New Upstream Snapshot - r-cran-popepi
Ready changes
Summary
Merged new upstream version: 0.4.10+git20221003.1.6b03392+dfsg (was: 0.4.10+dfsg).
Resulting package
Built on 2023-01-19T14:08 (took 18m54s)
The resulting binary packages can be installed (if you have the apt repository enabled) by running one of:
apt install -t fresh-snapshots r-cran-popepi
Diff
diff --git a/DESCRIPTION b/DESCRIPTION
index 6137c4c..99c6d5a 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -7,9 +7,9 @@ Authors@R: c(
person("Matti", "Rantanen", , "matti.rantanen@statfinn.com", role = "aut"),
person("Karri", "Seppa", , "karri.seppa@cancer.fi", role = "ctb")
)
-Author: Joonas Miettinen [cre, aut] (<https://orcid.org/0000-0001-8624-6754>),
- Matti Rantanen [aut],
- Karri Seppa [ctb]
+Author: Joonas Miettinen [cre, aut]
+ (<https://orcid.org/0000-0001-8624-6754>), Matti Rantanen [aut], Karri
+ Seppa [ctb]
Maintainer: Joonas Miettinen <joonas.miettinen@cancer.fi>
Description: Enables computation of epidemiological statistics, including
those where counts or mortality rates of the reference population are
@@ -36,6 +36,4 @@ Language: en-GB
LazyData: true
RoxygenNote: 7.2.1
NeedsCompilation: no
-Packaged: 2022-09-16 07:49:50 UTC; joonas.miettinen
-Repository: CRAN
-Date/Publication: 2022-09-25 16:40:02 UTC
+Packaged: 2023-01-19 13:55:24 UTC; root
diff --git a/MD5 b/MD5
deleted file mode 100644
index 1ad3f2e..0000000
--- a/MD5
+++ /dev/null
@@ -1,142 +0,0 @@
-ba4af2506083a32f3dc8ec56140c4305 *DESCRIPTION
-535ba352a75bd85f478f8c2e4731209c *NAMESPACE
-c1c981feb4077469e5c4f5dbe5976ef0 *NEWS.md
-7ac196a0ba2e0576911f5b19ff80b45f *R/S3_definitions.R
-5e3990e28fd56322cd0fc4261606c593 *R/Surv.R
-f0e3448c2e62238304ba9d936888cc27 *R/aggregating.R
-338a72fadf7a048a2fb99aa9a1d453c4 *R/data_document.R
-f6e8887c2c30620dbac2331be695cdb9 *R/direct_adjusting.R
-3b224d4a39adac5dcae5e23d902be746 *R/evaluation.R
-c2f087ec5aea7166d7b6f2f96d4b997e *R/flexyargs.R
-6d1ef35703f9670b04a2a2073f3cbe87 *R/fractional_years.R
-431a22e6aad6ce0c4df2bbedb5ee4c9a *R/incidence_rates.R
-338d3049dc118d009a92cc21a834c35a *R/incidence_rates_utils.R
-84437008fb3afc5e62a5cd163113d599 *R/lexpand.R
-66037734d577055aaad5c85486333e1b *R/long_df_and_array.R
-62a4fd54fac7f7ea505f37debf5bbb8c *R/ltable.R
-74dddb2fad46ba8a6062b3ba43f80019 *R/mean_survival.R
-4a811e31873177de5ebbbfda97626407 *R/popEpi_package.r
-0d57cae6ad721b6326074cad0707b8cf *R/pophaz.R
-f22959fac4b0cec375aca8c9b38c51e9 *R/prevalence.R
-9c756502961d4f96e2cf291d59ddb5a2 *R/relative_poisson.R
-edb847575f8fe5a83e69a6b86ca10c31 *R/relative_poisson_net_survival.R
-96dabe89cd610ffd8f696ad0079a9342 *R/sir.R
-40ec7c438f8f0da21f9d38057c788312 *R/sir_utils.R
-3672931fdd079b2b7bc64d9c009e116a *R/splitLexisDT.R
-82cadd5ee91fd0322aa233b2ac25fb86 *R/splitMulti.R
-ad2ca67705b62eb3ba846735991df48a *R/splitting_utility_functions.R
-2395e9993f6139db23707b45b6ccb9af *R/startup_message.R
-f8aea8b79b2c6da3d071d93f7f6ff13f *R/survival_aggregated.R
-ea41b8eaa3bc9cce84d9af4e7e3a6aa6 *R/survival_lexis.R
-22ed929d72c918ca92f4f6f2bba4867d *R/survival_utility_functions.R
-be31aacb98b9ff25a28a2afdfef8c0ea *R/utility_functions.R
-03be45e738826a355bf72ee2da9720d9 *R/weighted_table.R
-4eff267b8695980db96cb03fdc065b04 *README.md
-a93c6b14146112e0036831c8c8882cd5 *build/partial.rdb
-393896cf26615010bd75e5e4c62a4d63 *build/vignette.rds
-42a2e450ebc81d8cf32d7eb9f3efc406 *data/ICSS.rdata
-d15a881aeee84aa9307933f84acbe2ce *data/meanpop_fi.rda
-ba6bcd1044f5a25c868742359b4338ab *data/popmort.rdata
-9e5330442b29336fd3701ffe5127e4a4 *data/sibr.rdata
-acb6b4afdc41b51495ca354054899b43 *data/sire.rdata
-1f3ba42ee14403d7e17eff9ee19d9adc *data/stdpop101.rdata
-905a241496ce00690f2d227753b62364 *data/stdpop18.rdata
-b79094b0fa30222f908d4624b3ef7ee2 *inst/WORDLIST
-5fadf738581382aba8f336c577b3f007 *inst/doc/sir.R
-cd1fbd52e290ec8e854b9087a33d533d *inst/doc/sir.Rmd
-fb740191d15aaff0276dc7dc03c31258 *inst/doc/sir.html
-632dbb732de09105b715e22df0167217 *inst/doc/survtab_examples.R
-e3fcf1e6d707b9a160daaddef78ea27e *inst/doc/survtab_examples.Rmd
-2089bbfbbc7d2cda6d23c49b2da87e69 *inst/doc/survtab_examples.html
-c13a6c22ce194ec8b2f01b2cabda5d1a *man/ICSS.Rd
-335f3b865f5d689816cea1b073c44596 *man/Lexis_fpa.Rd
-a57913a664cabeabeafe5aa0d014a1ec *man/RPL.Rd
-ef36c1f7855e56c186e8d5e6cfd6694c *man/Surv.Rd
-b0ec6686fe92c944616bebdc5a5274ff *man/adjust.Rd
-68cbaad567b4a4b9c9c3ad326fe6ebcf *man/aggre.Rd
-37ced5d82fce2a80f149a6b9ff21f959 *man/all_names_present.Rd
-50782923c789b77771ce61618f5c6e58 *man/array_df_ratetable_utils.Rd
-85701435d8e55ac2bfd9b41645479031 *man/as.Date.yrs.Rd
-206f63d1784456e627ef52c17979789c *man/as.aggre.Rd
-4f64ac7af84cc7481cf795a7b4f5b22d *man/cast_simple.Rd
-8424da25d2d4664a03e9f3353f706bc3 *man/cut_bound.Rd
-9d87b572c13f3b5cf79e31fd3f7b10e1 *man/direct_standardization.Rd
-a3c7c6566b8c031e8d60db60935f3f61 *man/fac2num.Rd
-8cdc3edc12c8f6055d0a9f3593ec75e1 *man/flexible_argument.Rd
-00dc9a2bda50a073d117e85b82bc5dda *man/get.yrs.Rd
-adc3f6ad88a58248ae1f92b71fe2d860 *man/is.Date.Rd
-041347f1969b595f85cf0d24654b5248 *man/is_leap_year.Rd
-3a94c35655e9f048af39a10f0effd6e7 *man/lexpand.Rd
-fdf37774de766dcd30093dbc71bee607 *man/lines.sirspline.Rd
-a34febc8e4845cabd474e010d259d717 *man/lines.survmean.Rd
-56e27653855222fa8acb0d5996beff61 *man/lines.survtab.Rd
-97a7024ad28bee8899ccb5f458127ac7 *man/lower_bound.Rd
-c33adb55f917f147c592bed69a69b6fe *man/ltable.Rd
-4d64d1bd71ed9e5a510dc07841b3f8e5 *man/meanpop_fi.Rd
-5d547328b5e356eb2d23ab579ff94b59 *man/na2zero.Rd
-e8a763bbb8bffacd54fa044089b73bcd *man/plot.rate.Rd
-220e841bb017cb441242d3c2138115fb *man/plot.sir.Rd
-4ef693e3fa1b4ec77ad3489af1c35f85 *man/plot.sirspline.Rd
-a48ad93449b1aa8aa985c1bdf883fce0 *man/plot.survmean.Rd
-739eaa715f5dc73758530bee135a036b *man/plot.survtab.Rd
-c48c4652161a4671ee4cf50628a005e4 *man/poisson.ci.Rd
-77ca8adad5035322270e52f1c2e9139b *man/popEpi.Rd
-a7b9600e477a7e86b381b3f7d1e274f3 *man/pophaz.Rd
-661a6bbec3a708a0cc5367af5094afa1 *man/popmort.Rd
-64ea0b4ecb4249ac08c0b334b61859ef *man/prepExpo.Rd
-1f6db7311fbf4477fc510f9207499b11 *man/print.aggre.Rd
-b5edcc6693f6285e395a939eaed92ee1 *man/print.rate.Rd
-f3f079f48206e63832a271194166a3f1 *man/print.survtab.Rd
-c59d6ef5ed587a7616fdf06a312bc799 *man/rate.Rd
-e79bb61cf2b2e84368e08e33efb91f9f *man/rate_ratio.Rd
-d4d6543b3ed7b831a629c5975e85c1cc *man/relpois.Rd
-ba6e109dbda1259076a78417eabe9f56 *man/relpois_ag.Rd
-e971c89e11d25768c0a2b7f7c5972018 *man/robust_values.Rd
-b0b000728004c4bd01ab964230a1a0ec *man/rpcurve.Rd
-3e2457d5489c2fc1591c5a3c303f3e07 *man/setaggre.Rd
-5a97ddc2e9b68a65552e70c3eb88ef67 *man/setclass.Rd
-aec9591da20b5c92ac513eb7f0deea11 *man/setcolsnull.Rd
-2082f435648c0e0637e2b74232a87c69 *man/sibr.Rd
-65ed6829d48e2f25d6d01bfba90f655c *man/sir.Rd
-3c0fb1c0183446a6daab340590cd7a72 *man/sir_exp.Rd
-2e6e257cad3b538550a60e62f2ac670b *man/sir_ratio.Rd
-61c5f17ca120f073371552925c0b6776 *man/sire.Rd
-ad4d7c22ba9696ac0560340369ff95c5 *man/sirspline.Rd
-77d3a49456cb62be745a0710cfdf1bbf *man/splitLexisDT.Rd
-d46a324a333fa8afb79aebfcefc25a0b *man/splitMulti.Rd
-c1a63e1ecc9215d04abedd5005541923 *man/stdpop101.Rd
-5f5c79ba200cf05c56f7dbca62e22440 *man/stdpop18.Rd
-8555dd3fec52fad9b1e2c215c33bbaea *man/summary.aggre.Rd
-b0e3f88653965958a872d51bd97f41bf *man/summary.survtab.Rd
-9c3c6ba441327d6cd88b684decf79dbf *man/survmean.Rd
-81c18b1fdf771038fa0eba9bbc81cec9 *man/survtab.Rd
-757faa9fdd0b7546dff9c9a58f47e8f5 *man/survtab_ag.Rd
-ca267f6405095228829fc56031bf6cb5 *man/try2int.Rd
-5eb66e1ed29f5b085c6705a825f4fec1 *tests/testthat.R
-00119beca1146e39ca2a46935068915e *tests/testthat/Rplots.pdf
-7649bcb74c39a065e146c7af95db3bdf *tests/testthat/survmean_test_data_01.rds
-4cf13ed3f2ee2ad8cdddeb4feaeb70c1 *tests/testthat/test_Surv.R
-74f0a458ed04d0c586e50c77bab5ecb7 *tests/testthat/test_aggre.R
-d57c5f9349d55d889b97fc6b659c81f1 *tests/testthat/test_epi.R
-997a01976d8039d083b7e22e9f3f0b7f *tests/testthat/test_expo.R
-1a95164a315e190c37ead4e6b606cef7 *tests/testthat/test_lexpand.R
-24181e8c256b26fd5c91e33f43ad2c43 *tests/testthat/test_prevtab.R
-2d7c824c6765652ff843c92f24af2ff5 *tests/testthat/test_rate.R
-0d7d8a1b889eb37f56eeefb4e6eb9a09 *tests/testthat/test_relpois_mean_curve.R
-98bc582f455f7820698b6621c7acaa6e *tests/testthat/test_sir.R
-280c74b49ad712d28c65790ea53a2908 *tests/testthat/test_splitLexisDT.R
-181ff6622b7e91570dc02c4dcae102df *tests/testthat/test_splitMulti.R
-8aef60a92539712ed5a5575759893366 *tests/testthat/test_splitting_attributes.R
-fc7548c2dea21aee0c4c3cfcfe4f1d72 *tests/testthat/test_splitting_breaks.R
-544ba7d91fcd1820b41e8bbadfe48fda *tests/testthat/test_splitting_randomly_on_fixed_data.R
-564b3975dcceb0b2b099a49c64805af0 *tests/testthat/test_splitting_randomly_on_random_data.R
-e99bfa9755bf8fcc612cc2a3363b4c14 *tests/testthat/test_survmean.R
-82c4d07ac62512757883bc144e09e18a *tests/testthat/test_survtab_adjusted.R
-81256094125f368f9ecc1cc6e9cd178f *tests/testthat/test_survtab_bad_surv_ints.R
-0d42fb7d69144b00740d82b406392f6b *tests/testthat/test_survtab_observed.R
-c23a371e345f98d23accfbc0e5460aa6 *tests/testthat/test_survtab_relative.R
-b76e84d95ac49c21cd4980a1527d20da *tests/testthat/test_survtab_usage.R
-1da18d17a357c1c333e9ed3eb4b52844 *tests/testthat/test_utils.R
-011ce65ee701ccb0caab204ece04b5a7 *tests/testthat/test_weighter.R
-cd1fbd52e290ec8e854b9087a33d533d *vignettes/sir.Rmd
-e3fcf1e6d707b9a160daaddef78ea27e *vignettes/survtab_examples.Rmd
diff --git a/NAMESPACE b/NAMESPACE
index a00bb12..ebae18d 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -1,101 +1,101 @@
-# Generated by roxygen2: do not edit by hand
-
-S3method("[",aggre)
-S3method("[",rate)
-S3method("[",sir)
-S3method("[",survmean)
-S3method("[",survtab)
-S3method("[",yrs)
-S3method(as.Date,yrs)
-S3method(as.aggre,data.frame)
-S3method(as.aggre,data.table)
-S3method(as.aggre,default)
-S3method(coef,sir)
-S3method(confint,sir)
-S3method(formula,survmean)
-S3method(formula,survtab)
-S3method(getCall,rate)
-S3method(getCall,sir)
-S3method(getCall,survmean)
-S3method(getCall,survtab)
-S3method(lines,sirspline)
-S3method(lines,survmean)
-S3method(lines,survtab)
-S3method(plot,rate)
-S3method(plot,sir)
-S3method(plot,sirspline)
-S3method(plot,survmean)
-S3method(plot,survtab)
-S3method(print,aggre)
-S3method(print,rate)
-S3method(print,sir)
-S3method(print,sirspline)
-S3method(print,survtab)
-S3method(print,yrs)
-S3method(subset,aggre)
-S3method(subset,rate)
-S3method(subset,survmean)
-S3method(subset,survtab)
-S3method(summary,aggre)
-S3method(summary,survtab)
-export(Lexis_fpa)
-export(RPL)
-export(Surv)
-export(adjust)
-export(aggre)
-export(all_names_present)
-export(array_to_long_df)
-export(array_to_long_dt)
-export(array_to_ratetable)
-export(as.aggre)
-export(cast_simple)
-export(cut_bound)
-export(expr.by.cj)
-export(fac2num)
-export(get.yrs)
-export(is.Date)
-export(is_leap_year)
-export(lexpand)
-export(long_df_to_array)
-export(long_df_to_ratetable)
-export(long_dt_to_array)
-export(long_dt_to_ratetable)
-export(lower_bound)
-export(ltable)
-export(na2zero)
-export(poisson.ci)
-export(prepExpo)
-export(rate)
-export(rate_ratio)
-export(ratetable_to_array)
-export(ratetable_to_long_df)
-export(ratetable_to_long_dt)
-export(relpois)
-export(relpois_ag)
-export(robust_values)
-export(rpcurve)
-export(setaggre)
-export(setcolsnull)
-export(sir)
-export(sir_ag)
-export(sir_exp)
-export(sir_lex)
-export(sir_ratio)
-export(sirspline)
-export(splitLexisDT)
-export(splitMulti)
-export(survmean)
-export(survtab)
-export(survtab_ag)
-export(try2int)
-import(Epi)
-import(data.table)
-import(grDevices)
-import(graphics)
-import(splines)
-import(stats)
-importFrom(data.table,copy)
-importFrom(data.table,is.data.table)
-importFrom(data.table,setDT)
-importFrom(data.table,setattr)
-importFrom(survival,Surv)
+# Generated by roxygen2: do not edit by hand
+
+S3method("[",aggre)
+S3method("[",rate)
+S3method("[",sir)
+S3method("[",survmean)
+S3method("[",survtab)
+S3method("[",yrs)
+S3method(as.Date,yrs)
+S3method(as.aggre,data.frame)
+S3method(as.aggre,data.table)
+S3method(as.aggre,default)
+S3method(coef,sir)
+S3method(confint,sir)
+S3method(formula,survmean)
+S3method(formula,survtab)
+S3method(getCall,rate)
+S3method(getCall,sir)
+S3method(getCall,survmean)
+S3method(getCall,survtab)
+S3method(lines,sirspline)
+S3method(lines,survmean)
+S3method(lines,survtab)
+S3method(plot,rate)
+S3method(plot,sir)
+S3method(plot,sirspline)
+S3method(plot,survmean)
+S3method(plot,survtab)
+S3method(print,aggre)
+S3method(print,rate)
+S3method(print,sir)
+S3method(print,sirspline)
+S3method(print,survtab)
+S3method(print,yrs)
+S3method(subset,aggre)
+S3method(subset,rate)
+S3method(subset,survmean)
+S3method(subset,survtab)
+S3method(summary,aggre)
+S3method(summary,survtab)
+export(Lexis_fpa)
+export(RPL)
+export(Surv)
+export(adjust)
+export(aggre)
+export(all_names_present)
+export(array_to_long_df)
+export(array_to_long_dt)
+export(array_to_ratetable)
+export(as.aggre)
+export(cast_simple)
+export(cut_bound)
+export(expr.by.cj)
+export(fac2num)
+export(get.yrs)
+export(is.Date)
+export(is_leap_year)
+export(lexpand)
+export(long_df_to_array)
+export(long_df_to_ratetable)
+export(long_dt_to_array)
+export(long_dt_to_ratetable)
+export(lower_bound)
+export(ltable)
+export(na2zero)
+export(poisson.ci)
+export(prepExpo)
+export(rate)
+export(rate_ratio)
+export(ratetable_to_array)
+export(ratetable_to_long_df)
+export(ratetable_to_long_dt)
+export(relpois)
+export(relpois_ag)
+export(robust_values)
+export(rpcurve)
+export(setaggre)
+export(setcolsnull)
+export(sir)
+export(sir_ag)
+export(sir_exp)
+export(sir_lex)
+export(sir_ratio)
+export(sirspline)
+export(splitLexisDT)
+export(splitMulti)
+export(survmean)
+export(survtab)
+export(survtab_ag)
+export(try2int)
+import(Epi)
+import(data.table)
+import(grDevices)
+import(graphics)
+import(splines)
+import(stats)
+importFrom(data.table,copy)
+importFrom(data.table,is.data.table)
+importFrom(data.table,setDT)
+importFrom(data.table,setattr)
+importFrom(survival,Surv)
diff --git a/NEWS.md b/NEWS.md
index a623a23..30b965c 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,194 +1,194 @@
-# Changes in 0.4.10
-
-- No changes for user — “Suggests” packages now used conditionally in
- vignettes/tests/examples as per Writing R Extensions.
-
-# Changes in 0.4.9
-
-- `popEpi::aggre` bugfix: `aggre` now correctly infers which
- stratifying variables use Lexis time scales when output is cartesian
- and argument `by` is of type character.
-
-# Changes in 0.4.8
-
-- small internal fixes due to upcoming new package survival release
-- popEpi now includes a wrapper for survival::Surv, so you don’t need
- to do library(“survival”) when using Surv() in formulae (e.g. in
- survtab)
-
-# Changes in 0.4.7
-
-- implemented small internal changes due to upcoming R 3.6.0
-
-# Changes in 0.4.6
-
-- implemented small internal changes due to upcoming data.table
- version
-
-# Changes in 0.4.5
-
-- fixed errors arising from new data.table version
-
-# Changes in 0.4.4
-
-- splitLexisDT/splitMulti bug fix: splitting along multiple time
- scales *sometimes* produced duplicate transitions (e.g. alive -\>
- dead in the last two rows). see
- <https://github.com/FinnishCancerRegistry/popEpi/issues/138> for
- details.
-- splitLexisDT/splitMulti now retain time.since attribute; this
- attribute plays a role in cutLexis
-- known issue: splitLexisDT/splitMulti not guaranteed to work
- identically to splitLexis from Epi when there are NA values in the
- time scale one is splitting along.
-
-# Changes in 0.4.3
-
-- survtab adjusting was broken with older versions of data.table
- (tested 1.9.6); therefore popEpi now requires the newest version of
- data.table!
-
-# Changes in 0.4.2
-
-- **`survtab()` bug fix: standard errors were mis-specified for
- adjusted curves, e.g. age-adjusted Ederer II estimates. This
- resulted in too wide confidence intervals! SEE HERE FOR EXAMPLE:
- [#135](https://github.com/FinnishCancerRegistry/popEpi/issues/135)**.
- The standard errors and confidence intervals of non-adjusted curves
- have always been correct.
-- `survtab()` bug fix: confidence level was always 95 % regardless of
- `conf.level`
- [#134](https://github.com/FinnishCancerRegistry/popEpi/issues/134)
-
-# Changes in 0.4.1
-
-- `lexpand()` bug fixed (#120): observations were dropped if their
- entry by age was smaller than the smallest age value, though entry
- at exit is correct and used now.
-- `sir()` rewrite (#118, #122). New more consistent output, updates on
- plotting and minor changes in arguments. Introduce very simple
- `coef()` and `confint()` methods for sir class.
-- new functions in sir family: `sir_ag()`, `sir_lex()` and `sir_exp()`
- for extracting SMRs from `aggre` and `Lexis` objects.
-- fixed issue in internal test brought by pkg survival version 2.39.5;
- no changes in functions were needed (#125)
-- robustified `aggre()`; there were issues with Epi pkg dev version
- which are definitely avoided (#119)
-
-# Changes in 0.4.0
-
-- removed previously deprecated shift.var (#35)
-- popEpi no longer depends on package data.table but imports it - this
- means the user will have to do library(data.table) separately to
- make data.table’s functions become usable. Formerly popEpi
- effectively did library(data.table) when you did library(popEpi).
-- summary.survtab: args t and q behaviour changed
-- survtab: internal weights now based on counts of subjects in
- follow-up at the start of follow-up (used to be sum of counts/pyrs
- over all of follow-up)
-- new functions: `rate_ratio()`, `sir_ratio()`
-- small internal changes in preparation for data.table 1.9.8
-
-# Changes in 0.3.1
-
-This is a hotfix. survtab() was causing warnings in certain situations,
-which this update fixes. Also fixed plotting survtab objects so that
-multiple strata are plotted correctly when one or more curves end before
-the longest one as well other small fixes: See Github issues #89, #90,
-#91, and #92.
-
-# Changes in 0.3.0
-
-## Adjusting
-
-Direct adjusting (computing weighted averages of estimates) has been
-generalized. Functions such as `survtab` and `survmean` allow for using
-`adjust()` mini function within formulas, or a separate `adjust`
-argument. Weights are passed separately. See the examples in the next
-chapter. See also `?direct_adjusting`.
-
-## Estimating functions of survival time
-
-The `survtab` function computes observed, net/relative and
-cause-specific survivals as well as cumulative incidence functions for
-`Lexis` data. Any of the supported survival time functions can be easily
-adjusted by any number of categorical variables if needed.
-
-One can also use `survtab_ag` for aggregated data. This means the data
-does not have to be on the subject-level to compute survival time
-function estimates.
-
-``` r
-## prep data
-data(sibr)
-sire$cancer <- "rectal"
-sibr$cancer <- "breast"
-sr <- rbind(sire, sibr)
-
-sr$cancer <- factor(sr$cancer)
-sr <- sr[sr$dg_date < sr$ex_date, ]
-
-sr$status <- factor(sr$status, levels = 0:2,
- labels = c("alive", "canD", "othD"))
-
-## create Lexis object
-library(Epi)
-x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
- exit = list(CAL = get.yrs(ex_date)),
- data = sr,
- exit.status = status)
-#> NOTE: entry.status has been set to "alive" for all.
-
-## population hazards file - see ?pophaz for general instructions
-data(popmort)
-pm <- data.frame(popmort)
-names(pm) <- c("sex", "CAL", "AGE", "haz")
-
-## simple usage - uses lex.Xst as status variable
-st <- survtab(FUT ~ cancer, data = x,
- breaks = list(FUT = seq(0, 5, 1/12)),
- surv.type = "surv.rel", pophaz = pm)
-
-## more explicit usage
-st <- survtab(Surv(FUT, event = lex.Xst) ~ cancer, data = x,
- breaks = list(FUT = seq(0, 5, 1/12)),
- surv.type = "surv.rel", pophaz = pm)
-
-
-## adjusting
-x$agegr <- cut(x$dg_age, c(0,55,65,75,Inf))
-w <- as.numeric(table(x$agegr))
-st <- survtab(Surv(FUT, event = lex.Xst) ~ cancer + adjust(agegr),
- data = x,
- breaks = list(FUT = seq(0, 5, 1/12)),
- surv.type = "surv.rel",
- pophaz = pm, weights = w)
-```
-
-## Rates
-
-The new `rate` function enables easy calculation of e.g. standardized
-incidence rates:
-
-``` r
-## dummy data
-
-a <- merge(0:1, 1:18)
-names(a) <- c("sex", "agegroup")
-set.seed(1)
-a$obs <- rbinom(nrow(a), 100, 0.5)
-set.seed(1)
-a$pyrs <- rbinom(nrow(a), 1e4, 0.75)
-
-## so called "world" standard rates (weighted to hypothetical world pop in 2000)
-r <- rate(data = a, obs = obs, pyrs = pyrs, print = sex,
- adjust = agegroup, weights = 'world_2000_18of5')
-#> Warning in pyrJjCscXlsrH * pyrJjCscXlsrH: NAs produced by integer overflow
-
-#> Warning in pyrJjCscXlsrH * pyrJjCscXlsrH: NAs produced by integer overflow
-```
-
-| sex | obs | pyrs | rate.adj | SE.rate.adj | rate.adj.lo | rate.adj.hi | rate | SE.rate | rate.lo | rate.hi |
-|---:|---:|-----:|-------:|--------:|--------:|--------:|-------:|-----:|-------:|-------:|
-| 0 | 933 | 134986 | 0.0069947 | 0.0002541 | 0.0065140 | 0.0075108 | 0.0069118 | NA | 0.0064822 | 0.0073699 |
-| 1 | 875 | 134849 | 0.0064453 | 0.0002429 | 0.0059865 | 0.0069394 | 0.0064887 | NA | 0.0060727 | 0.0069332 |
+# Changes in 0.4.10
+
+- No changes for user — “Suggests” packages now used conditionally in
+ vignettes/tests/examples as per Writing R Extensions.
+
+# Changes in 0.4.9
+
+- `popEpi::aggre` bugfix: `aggre` now correctly infers which
+ stratifying variables use Lexis time scales when output is cartesian
+ and argument `by` is of type character.
+
+# Changes in 0.4.8
+
+- small internal fixes due to upcoming new package survival release
+- popEpi now includes a wrapper for survival::Surv, so you don’t need
+ to do library(“survival”) when using Surv() in formulae (e.g. in
+ survtab)
+
+# Changes in 0.4.7
+
+- implemented small internal changes due to upcoming R 3.6.0
+
+# Changes in 0.4.6
+
+- implemented small internal changes due to upcoming data.table
+ version
+
+# Changes in 0.4.5
+
+- fixed errors arising from new data.table version
+
+# Changes in 0.4.4
+
+- splitLexisDT/splitMulti bug fix: splitting along multiple time
+ scales *sometimes* produced duplicate transitions (e.g. alive -\>
+ dead in the last two rows). see
+ <https://github.com/FinnishCancerRegistry/popEpi/issues/138> for
+ details.
+- splitLexisDT/splitMulti now retain time.since attribute; this
+ attribute plays a role in cutLexis
+- known issue: splitLexisDT/splitMulti not guaranteed to work
+ identically to splitLexis from Epi when there are NA values in the
+ time scale one is splitting along.
+
+# Changes in 0.4.3
+
+- survtab adjusting was broken with older versions of data.table
+ (tested 1.9.6); therefore popEpi now requires the newest version of
+ data.table!
+
+# Changes in 0.4.2
+
+- **`survtab()` bug fix: standard errors were mis-specified for
+ adjusted curves, e.g. age-adjusted Ederer II estimates. This
+ resulted in too wide confidence intervals! SEE HERE FOR EXAMPLE:
+ [#135](https://github.com/FinnishCancerRegistry/popEpi/issues/135)**.
+ The standard errors and confidence intervals of non-adjusted curves
+ have always been correct.
+- `survtab()` bug fix: confidence level was always 95 % regardless of
+ `conf.level`
+ [#134](https://github.com/FinnishCancerRegistry/popEpi/issues/134)
+
+# Changes in 0.4.1
+
+- `lexpand()` bug fixed (#120): observations were dropped if their
+ entry by age was smaller than the smallest age value, though entry
+ at exit is correct and used now.
+- `sir()` rewrite (#118, #122). New more consistent output, updates on
+ plotting and minor changes in arguments. Introduce very simple
+ `coef()` and `confint()` methods for sir class.
+- new functions in sir family: `sir_ag()`, `sir_lex()` and `sir_exp()`
+ for extracting SMRs from `aggre` and `Lexis` objects.
+- fixed issue in internal test brought by pkg survival version 2.39.5;
+ no changes in functions were needed (#125)
+- robustified `aggre()`; there were issues with Epi pkg dev version
+ which are definitely avoided (#119)
+
+# Changes in 0.4.0
+
+- removed previously deprecated shift.var (#35)
+- popEpi no longer depends on package data.table but imports it - this
+ means the user will have to do library(data.table) separately to
+ make data.table’s functions become usable. Formerly popEpi
+ effectively did library(data.table) when you did library(popEpi).
+- summary.survtab: args t and q behaviour changed
+- survtab: internal weights now based on counts of subjects in
+ follow-up at the start of follow-up (used to be sum of counts/pyrs
+ over all of follow-up)
+- new functions: `rate_ratio()`, `sir_ratio()`
+- small internal changes in preparation for data.table 1.9.8
+
+# Changes in 0.3.1
+
+This is a hotfix. survtab() was causing warnings in certain situations,
+which this update fixes. Also fixed plotting survtab objects so that
+multiple strata are plotted correctly when one or more curves end before
+the longest one as well other small fixes: See Github issues #89, #90,
+#91, and #92.
+
+# Changes in 0.3.0
+
+## Adjusting
+
+Direct adjusting (computing weighted averages of estimates) has been
+generalized. Functions such as `survtab` and `survmean` allow for using
+`adjust()` mini function within formulas, or a separate `adjust`
+argument. Weights are passed separately. See the examples in the next
+chapter. See also `?direct_adjusting`.
+
+## Estimating functions of survival time
+
+The `survtab` function computes observed, net/relative and
+cause-specific survivals as well as cumulative incidence functions for
+`Lexis` data. Any of the supported survival time functions can be easily
+adjusted by any number of categorical variables if needed.
+
+One can also use `survtab_ag` for aggregated data. This means the data
+does not have to be on the subject-level to compute survival time
+function estimates.
+
+``` r
+## prep data
+data(sibr)
+sire$cancer <- "rectal"
+sibr$cancer <- "breast"
+sr <- rbind(sire, sibr)
+
+sr$cancer <- factor(sr$cancer)
+sr <- sr[sr$dg_date < sr$ex_date, ]
+
+sr$status <- factor(sr$status, levels = 0:2,
+ labels = c("alive", "canD", "othD"))
+
+## create Lexis object
+library(Epi)
+x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
+ exit = list(CAL = get.yrs(ex_date)),
+ data = sr,
+ exit.status = status)
+#> NOTE: entry.status has been set to "alive" for all.
+
+## population hazards file - see ?pophaz for general instructions
+data(popmort)
+pm <- data.frame(popmort)
+names(pm) <- c("sex", "CAL", "AGE", "haz")
+
+## simple usage - uses lex.Xst as status variable
+st <- survtab(FUT ~ cancer, data = x,
+ breaks = list(FUT = seq(0, 5, 1/12)),
+ surv.type = "surv.rel", pophaz = pm)
+
+## more explicit usage
+st <- survtab(Surv(FUT, event = lex.Xst) ~ cancer, data = x,
+ breaks = list(FUT = seq(0, 5, 1/12)),
+ surv.type = "surv.rel", pophaz = pm)
+
+
+## adjusting
+x$agegr <- cut(x$dg_age, c(0,55,65,75,Inf))
+w <- as.numeric(table(x$agegr))
+st <- survtab(Surv(FUT, event = lex.Xst) ~ cancer + adjust(agegr),
+ data = x,
+ breaks = list(FUT = seq(0, 5, 1/12)),
+ surv.type = "surv.rel",
+ pophaz = pm, weights = w)
+```
+
+## Rates
+
+The new `rate` function enables easy calculation of e.g. standardized
+incidence rates:
+
+``` r
+## dummy data
+
+a <- merge(0:1, 1:18)
+names(a) <- c("sex", "agegroup")
+set.seed(1)
+a$obs <- rbinom(nrow(a), 100, 0.5)
+set.seed(1)
+a$pyrs <- rbinom(nrow(a), 1e4, 0.75)
+
+## so called "world" standard rates (weighted to hypothetical world pop in 2000)
+r <- rate(data = a, obs = obs, pyrs = pyrs, print = sex,
+ adjust = agegroup, weights = 'world_2000_18of5')
+#> Warning in pyrJjCscXlsrH * pyrJjCscXlsrH: NAs produced by integer overflow
+
+#> Warning in pyrJjCscXlsrH * pyrJjCscXlsrH: NAs produced by integer overflow
+```
+
+| sex | obs | pyrs | rate.adj | SE.rate.adj | rate.adj.lo | rate.adj.hi | rate | SE.rate | rate.lo | rate.hi |
+|---:|---:|-----:|-------:|--------:|--------:|--------:|-------:|-----:|-------:|-------:|
+| 0 | 933 | 134986 | 0.0069947 | 0.0002541 | 0.0065140 | 0.0075108 | 0.0069118 | NA | 0.0064822 | 0.0073699 |
+| 1 | 875 | 134849 | 0.0064453 | 0.0002429 | 0.0059865 | 0.0069394 | 0.0064887 | NA | 0.0060727 | 0.0069332 |
diff --git a/R/S3_definitions.R b/R/S3_definitions.R
index 54d67a5..46a301c 100644
--- a/R/S3_definitions.R
+++ b/R/S3_definitions.R
@@ -1,1514 +1,1514 @@
-
-
-#' @export
-print.sir <- function(x, subset = NULL, ...) {
-
- at <- attributes(x)$sir.meta
- PF <- parent.frame(1L)
- subset <- evalLogicalSubset(x, substitute(subset), enclos = PF)
- x <- x[subset, ]
- setDT(x)
-
- t1 <- paste0("SIR (adjusted by ", paste(at$adjust, collapse = ', '),')',
- ' with ', at$conf.level*100, '% ', 'confidence intervals (', at$conf.type,')')
-
-
- # cat
- t3 <- paste0(' Total sir: ', round(at$pooled.sir$sir,2),' (',
- round(at$pooled.sir$sir.lo,2),'-', round(at$pooled.sir$sir.hi, 2),')\n',
- ' Total observed: ', at$pooled.sir$observed, '\n',
- ' Total expected: ', round(at$pooled.sir$expected,2), '\n',
- ' Total person-years: ', round(at$pooled.sir$pyrs))
-
- rv <- intersect(names(x), c('sir','sir.lo','sir.hi','observed','expected','pyrs'))
- if (length(rv)) {
- x[, (rv) := lapply(.SD, round, digits = 2L), .SDcols = rv]
- }
-
- rv <- intersect(names(x), c('p_value'))
- if (length(rv)) {
- x[, (rv) := lapply(.SD, round, digits = 4), .SDcols = rv]
- }
-
-
- if(is.null(at$lrt.test)) {
- d <- paste("Could not test", at$lrt.test.type)
- } else {
- if(at$lrt.test.type == 'homogeneity') {
- d <- paste("Test for homogeneity: p", p.round( c(at$lrt.test)))
- }
- if(at$lrt.test.type == 'trend') {
- d <- paste("Test for trend: p", p.round( c(at$lrt.test)))
- }
- }
- #b <- round(c(ta$total$sir, ta$total$sir.lo, ta$total$sir.hi), 2)
- # cat('\n',"Total observed", ta$total$observed, '\n',
- # "Total expected:", ta$total$expected, '\n',
- # "SIR:", paste0(b[1], ' (',b[2], '-',b[3],')'), '\n',
- # "Person-years:", ta$total$pyrs, '\n',
- # fill=TRUE)
-
- cat(t1, '\n')
- if(x[,.N] > 1) {
- cat(d, '\n')
- }
- cat(fill=TRUE)
- cat(t3, '\n', fill=TRUE)
-
- print(data.table(x), ...)
- return(invisible())
-}
-
-#' @export
-`[.sir` <- function(x, ...) {
- y <- NextMethod()
- if (is.data.frame(y)) {
- setattr(y, "class", class(x))
- setattr(y, "sir.meta", attr(x, "sir.meta"))
- }
- y
-}
-
-
-#' @import grDevices
-#' @export
-print.sirspline <- function(x, ...) {
- if ( x$spline.dependent ) {
- if( any( !is.na(x$p.values))) {
- cat( 'global p-value:', p.round(x$p.values[1]),'\n' )
- cat( 'level p-value:', p.round(x$p.values[2]) , fill= TRUE)
- } else {
- cat( 'No models compared.', fill= TRUE)
- }
- cat('---', '\n')
- cat('Colour codes:', '\n', fill=TRUE)
- } else {
-
- for(i in 1:length(x$p.values)) {
- cat( x$spline[i] ,': p ', p.round( x$p.values[[i]] ), '\n', sep = '')
- }
- cat(fill=TRUE)
-
- }
- # Print colour codes:
- cols <- unique(x$spline.est.A[,1])
- col.length <- length(cols)
- print( data.frame(levels = cols, colour = palette()[1:col.length]), include.rownames = FALSE)
-
- # Print p-values
- return(invisible())
-}
-
-
-#' Plot method for sir-object
-#'
-#' Plot SIR estimates with error bars
-#'
-#' @seealso \code{\link{sir}}, \code{\link{sirspline}}
-#'
-#' @import graphics
-#'
-#' @author Matti Rantanen
-#'
-#' @param x an object returned by function \code{sir}
-#' @param conf.int default TRUE draws confidence intervals
-#' @param xlab overwrites default x-axis label
-#' @param ylab overwrites default y-axis label
-#' @param xlim x-axis minimum and maximum values
-#' @param main optional plot title
-#' @param abline logical; draws a grey line in SIR = 1
-#' @param log logical; SIR is not in log scale by default
-#' @param eps error bar vertical bar height (works only in 'model' or 'univariate')
-#' @param left.margin adjust left marginal of the plot to fit long variable names
-#' @param ... arguments passed on to plot(), segment and lines()
-#'
-#'
-#' @details Plot SIR estimates and confidence intervals
-#' \itemize{
-#' \item univariate - plots SIR with univariate confidence intervals
-#' \item model - plots SIR with Poisson modelled confidence intervals
-#' }
-#'
-#' \strong{Customize}
-#' Normal plot parameters can be passed to \code{plot}. These can be a vector when plotting error bars:
-#' \itemize{
-#' \item \code{pch} - point type
-#' \item \code{lty} - line type
-#' \item \code{col} - line/point colour
-#' \item \code{lwd} - point/line size
-#' }
-#'
-#' \strong{Tips for plotting splines}
-#' It's possible to use \code{plot} to first draw the
-#' confidence intervals using specific line type or colour and then plotting
-#' again the estimate using \code{lines(... , conf.int = FALSE)} with different
-#' settings. This works only when \code{plot.type} is 'splines'.
-#'
-#'
-#' @examples
-#' \donttest{
-#' # Plot SIR estimates
-#'# plot(sir.by.gender, col = c(4,2), log=FALSE, eps=0.2, lty=1, lwd=2, pch=19,
-#'# main = 'SIR by gender', abline=TRUE)
-#' }
-#' @return
-#' Always returns `NULL` invisibly.
-#' This function is called for its side effects.
-#' @export
-
-plot.sir <- function(x, conf.int = TRUE, ylab, xlab, xlim, main,
- eps=0.2, abline = TRUE, log = FALSE, left.margin, ...) {
-
- a <- data.table(x)
- at <- attributes(x)$sir.meta
- level_names <- at$print
-
- if(is.null(level_names)) {
- levels <- 'Crude'
- level_names <- levels
- }
- else {
- q <- paste0('paste(', paste(level_names, collapse=', '),', sep = ":")' )
- q <- parse(text = q)
- levels <- a[, eval(q)]
- }
-
- # predefined parameters
- if( missing(main) ){
- main <- NA
- }
- if( missing(xlab) ){
- xlab <- 'SIR'
- }
- if( missing(ylab) ){
- ylab <- NA
- }
- if( missing(xlim) ) {
- xlimit <- c(min(a$sir.lo[a$sir.lo <Inf]), max(a$sir.hi[a$sir.hi <Inf]))
- xlimit <- xlimit + diff(xlimit)*c(-.3,.3)
- }
- else {
- xlimit <- xlim
- }
-
- # par options
- old_mar <- par("mar")
- on.exit(par(mar = old_mar))
- new.margin <- old_mar
- if(missing(left.margin)) {
- new.margin[2] <- 4.1 + sqrt( max(nchar(as.character(level_names))) )*2
- }
- else {
- new.margin[2] <- left.margin
- }
- par(mar = new.margin)
-
- # plot frame, estimates and CI (optional abline)
- logarithm <- ''
- if(log){
- logarithm <- 'x'
- if(xlimit[1]==0) xlimit[1] <- xlimit[1] + 0.01
- }
- y.axis.levels <- 1:length(levels)
- plot(c(xlimit), c(min(y.axis.levels)-0.5, max(y.axis.levels)+0.5),
- type='n', yaxt = 'n', xlab=xlab, ylab=ylab, log=logarithm, main = main, ...)
- axis(side = 2, at = y.axis.levels, labels = levels, las=1)
-
- if(abline) {
- abline(v=1, col = 'darkgray')
- }
-
- points(a$sir, factor(y.axis.levels, labels=levels), ...)
- if(conf.int) {
- segments(a$sir.lo, y.axis.levels , a$sir.hi, y.axis.levels, ...)
- segments(a$sir.lo, y.axis.levels - eps, a$sir.lo, y.axis.levels +eps, ... )
- segments(a$sir.hi, y.axis.levels - eps, a$sir.hi, y.axis.levels +eps, ... )
- }
-
- return(invisible(NULL))
-}
-
-#' @title \code{plot} method for sirspline-object
-#'
-#' @description Plot SIR splines using R base graphics.
-#'
-#'
-#' @import graphics
-#'
-#' @author Matti Rantanen
-#'
-#' @param x an object returned by function sirspline
-#' @param conf.int logical; default TRUE draws also the 95 confidence intervals
-#' @param xlab overwrites default x-axis label; can be a vector if multiple splines fitted
-#' @param ylab overwrites default y-axis label; can be a vector if multiple splines fitted
-#' @param log logical; default FALSE. Should the y-axis be in log scale
-#' @param abline logical; draws a reference line where SIR = 1
-#' @param type select \code{type = 'n'} to plot only figure frames
-#' @param ... arguments passed on to plot()
-#'
-#' @details
-#' In \code{plot.sirspline} almost every graphical parameter are user
-#' adjustable, such as \code{ylim}, \code{xlim}.
-#' \code{plot.sirsplines} calls \code{lines.splines} to add lines.
-#'
-#' The plot axis without lines can be plotted using option \code{type = 'n'}.
-#' On top of the frame it's then possible to add a \code{grid},
-#' \code{abline} or text before plotting the lines (see: \code{sirspline}).
-#' @export
-#' @return
-#' Always returns `NULL` invisibly.
-#' This function is called for its side effects.
-#' @family sir functions
-plot.sirspline <- function(x, conf.int=TRUE, abline = TRUE, log = FALSE, type, ylab, xlab, ...) {
-
- #print(list(...))
-
- ## premilinary checks
- if (is.null(x$spline.seq.A)) stop('No splines found.')
-
- ## prepare dimension and par
- plotdim <- as.numeric(c( !is.null( x$spline.seq.A ),
- !is.null( x$spline.seq.B ),
- !is.null( x$spline.seq.C ) ))
-
- if(sum(plotdim) > 1) {
- old_mfrow <- par("mfrow")
- on.exit(par(mfrow = old_mfrow))
- new_mfrow <- c(1,sum(plotdim))
- par(mfrow = new_mfrow)
- type <- 'l'
- }
-
- ## set labels
- if ( missing(xlab) ) {
- xlab <- x$spline
- }
-
- if ( missing(ylab) ) {
- ylab <- rep('SIR',sum(plotdim))
- if(log){
- ylab <- rep('log(SIR)', sum(plotdim))
- }
- if(x$spline.dependent & sum(plotdim) > 1) {
- ylab <- c(ylab[1], paste(ylab[2:sum(plotdim)], 'ratio'))
- }
- }
- else{
- if( length(ylab) < sum(plotdim))
- ylab <- rep(ylab, sum(plotdim))
- if(length(ylab) > sum(plotdim)) {
- warning('set ylabs in a vector length of num of plots (',sum(plotdim),')')
- }
- }
-
- ## set scale
- if(!is.logical(log)) stop('log should be a logical value.')
- log.bin <- ifelse(log, 'y', '')
-
- ## remove infinite values
- #rm_inf <- function(est){
- # x[[est]][ is.finite(x[[est]][[2]]) & is.finite(x[[est]][[3]]) & is.finite(x[[est]][[4]]), ]
- #}
-
- spl <- c('spline.seq.A', 'spline.seq.B', 'spline.seq.C')[1:sum(plotdim)]
- est <- gsub("seq", "est", spl)
-
- for (i in 1:sum(plotdim)) { # age, per, fot,
- # empty plot
- max_x <- range(x[[spl[i]]])
- max_y <- range( x[[est[i]]][, 2:4] )
- plot(max_x, max_y, type = 'n', ylab = ylab[i], xlab = xlab[i], log = log.bin, ...)
- if(abline) abline(h = 1)
-
- # plot lines
- if (missing(type) || type != 'n') {
- lines.sirspline(x, conf.int = conf.int, select.spline = i, ...)
- }
- }
- return(invisible(NULL))
-}
-
-
-
-#' @title lines method for sirspline-object
-#' @description Plot SIR spline lines with R base graphics
-#'
-#'
-#' @author Matti Rantanen
-#'
-#' @param x an object returned by function sirspline
-#' @param conf.int logical; default TRUE draws also the 95 confidence intervals
-#' @param print.levels name(s) to be plotted. Default plots all levels.
-#' @param select.spline select which spline variable (a number or a name) is plotted.
-#' @param ... arguments passed on to lines()
-#'
-#' @details In \code{lines.sirspline} most of graphical parameters is user
-#' adjustable.
-#' Desired spline variable can be selected with \code{select.spline} and only one
-#' can be plotted at a time. The spline variable can include
-#' several levels, e.g. gender (these are the levels of \code{print}
-#' from \code{sirspline}). All levels are printed by default, but a
-#' specific level can be selected using argument
-#' \code{print.levels}. Printing the levels separately enables e.g. to
-#' give different colours for each level.
-#'
-#' @family sir functions
-#'
-#' @import graphics
-#' @export
-#' @return
-#' Always returns `NULL` invisibly.
-#' This function is called for its side effects.
-
-lines.sirspline <- function(x, conf.int = TRUE, print.levels = NA, select.spline, ... ){
- ## input: sirspline object, with only one spline var (spline.est.A)
- ## input: print levels can be > 1.
-
- ## subset splines
- if( length(x$spline) > 1 ) {
- if ( missing(select.spline) ) {
- stop(paste('select what spline to plot in select.spline:', paste(x$spline, collapse = ', ')))
- }
- else {
- if(is.numeric(select.spline)) {
- k <- select.spline
- }
- else {
- k <- which(x$spline == select.spline)
- }
- if(length(k) == 0 | length(x$spline) < k) stop('select.spline name/number is incorrect')
- }
- }
- else {
- k <- 1
- }
-
- spl <- c('spline.seq.A', 'spline.seq.B', 'spline.seq.C')[k]
- est <- gsub("seq", "est", spl)
-
- ## remove infinite values
- # x[[h]] <- rm_inf(est=h)
-
- # get print levels
- if(missing(print.levels)) {
- print.levels <- NA
- }
- pl <- unique(x$spline.est.A[,1])
- if(any( is.null(print.levels), is.na(print.levels))) {
- print.levels <- pl
- }
- pl <- pl[ pl %in% print.levels]
-
- ## get conf.int
- if( !is.logical(conf.int) ) stop('conf.int is not logical')
- n <- c(2,4)[c(!conf.int, conf.int)]
-
-
- ## draw lines
- for( l in pl ){
- # loop through print.levels
- index <- which(x$spline.est.A$i == l)
-
- for(m in 2:n) {
- # loop through estiamte and confidence intervals
- lines(x = x[[spl]], y = x[[est]][index, m], ...)
- }
- }
- return(invisible(NULL))
-}
-
-#' @title Print an rate object
-#' @author Matti Rantanen
-#' @description Print method function for \code{rate} objects; see
-#' \code{\link{rate}}.
-#' @param x an \code{rate} object
-#' @param subset a logical condition to subset results table by
-#' before printing; use this to limit to a certain stratum. E.g.
-#' \code{subset = sex == "female"}
-#' @param ... arguments for data.tables print method, e.g. row.names = FALSE suppresses row numbers.
-#' @export
-#' @return
-#' Always returns `NULL` invisibly.
-#' This function is called for its side effects.
-print.rate <- function(x, subset = NULL, ...) {
-
- ra <- attributes(x)$rate.meta
- PF <- parent.frame(1L)
- TF <- environment()
- subset <- evalLogicalSubset(x, substitute(subset), enclos = PF)
- x <- x[subset, ]
-
- # pre texts:
- cat('\n')
- if(!is.null(ra$adjust)){
- if(is.character(ra$weights)) {
- a <- paste(ra$weights, collapse = ',')
- }
- if(all(is.numeric(ra$weights))) {
- a <- length(ra$weights)
- }
- if(is.list(ra$weights)) {
- a <- sapply(ra$weights, length)
- }
-
- b <- paste(ra$adjust,a, collapse = ', ', sep = '; ')
- cat('Adjusted rates (', b,') ', sep = '')
- }
- else{
- cat('Crude rates ')
- }
- cat('and', '95%', 'confidence intervals:', fill=TRUE)
- cat('\n')
- # table itself
-
-
- setDT(x)
- print(x, ...)
- return(invisible(NULL))
-}
-
-
-#' @title plot method for rate object
-#' @description Plot rate estimates with confidence intervals lines using R base graphics
-#' @author Matti Rantanen
-#'
-#' @param x a rate object (see \code{\link{rate}})
-#' @param conf.int logical; default TRUE draws the confidence intervals
-#' @param eps is the height of the ending of the error bars
-#' @param left.margin set a custom left margin for long variable names. Function
-#' tries to do it by default.
-#' @param xlim change the x-axis location
-#' @param ... arguments passed on to graphical functions points and segment
-#' (e.g. \code{col}, \code{lwd}, \code{pch} and \code{cex})
-#'
-#' @details This is limited explanatory tool but most graphical
-#' parameters are user adjustable.
-#'
-#' @import graphics
-#' @export
-#' @return
-#' Always returns `NULL` invisibly.
-#' This function is called for its side effects.
-plot.rate <- function(x, conf.int = TRUE, eps = 0.2, left.margin, xlim, ...) {
-
- ra <- attributes(x)$rate.meta
- varcol <- ra$print
-
- if(is.null(varcol)) {
- lvl.name <- 'Crude'
- }
- else {
- pp <- paste0('paste(', paste(varcol, collapse=','),',sep = ":")')
- q <- parse(text=pp)
- lvl.name <- x[,eval(q)]
- }
- lvls <- 1:length(lvl.name)
-
- # WHICH RATE:
- if('rate.adj' %in% names(x)) {
- r <- x$rate.adj
- hi <- x$rate.adj.hi
- lo <- x$rate.adj.lo
- }
- else {
- r <- x$rate
- hi <- x$rate.hi
- lo <- x$rate.lo
- }
- # X-AXIS LIMITs
- if(missing(xlim)) {
- t <- range(na.omit(c(lo , r, hi)))
- t0 <- (t[2]-t[1])/4
- xlimit <- c(pmax(t[1]-t0, 0), t[2] + t0)
- }
- else {
- xlimit <- xlim
- }
-
- # MARGINS
- old_mar <- par("mar")
- on.exit(par(mar = old_mar))
- if(missing(left.margin)) {
- new.margin <- par("mar")
- new.margin[2] <- 4.1 + sqrt( max(nchar(as.character(lvl.name))) )*2
- }
- else {
- new.margin[2] <- left.margin
- }
- par(mar = new.margin)
-
- plot(c(xlimit), c(min(lvls)-0.5, max(lvls)+0.5), type='n', yaxt = 'n', ylab = '', xlab='')
- axis(side = 2, at = lvls, labels = lvl.name, las = 1)
- points(r, lvls, ...)
-
- if(conf.int) {
- segments(lo, lvls, hi, lvls, ...)
- segments(lo, lvls - eps, lo, lvls + eps, ...)
- segments(hi, lvls - eps, hi, lvls + eps, ...)
- }
- return(invisible(NULL))
-}
-
-
-#' @export
-print.yrs <- function(x, ...) {
- print(as.numeric(x))
-}
-
-
-#' @export
-`[.yrs` <- function(x, ...) {
- yl <- attr(x, "year.length")
- structure(NextMethod(), year.length = yl, class = c("yrs", "numeric"))
-}
-
-
-#' @export
-`[.aggre` <- function(x, ...) {
- xa <- attributes(x)
- y <- NextMethod()
- if (is.data.frame(y)) {
- setattr(y, "class", xa$class)
- setattr(y, "aggre.meta", xa$aggre.meta)
- setattr(y, "breaks", xa$breaks)
- }
- y
-}
-
-#' @export
-subset.aggre <- function(x, ...) {
- y <- NextMethod()
- if (is.data.frame(y)) {
- setattr(y, "class", class(x))
- setattr(y, "aggre.meta", attr(x, "aggre.meta"))
- setattr(y, "breaks", attr(x, "breaks"))
- }
- y
-}
-
-preface_survtab.print <- function(x) {
- surv.int <- NULL ## APPEASE R CMD CHECK
- at <- attributes(x)$survtab.meta
- arg <- at$arguments
-
- cat("\n")
- cat("Call: \n", oneWhitespace(deparse(at$call)), "\n")
- cat("\n")
- cat("Type arguments: \n surv.type:", as.character(arg$surv.type),
- "--- surv.method:", as.character(arg$surv.method))
- if (as.character(arg$surv.type) == "surv.rel")
- cat(" --- relsurv.method:", as.character(arg$relsurv.method))
- cat("\n \n")
- cat("Confidence interval arguments: \n level:",
- as.character(arg$conf.level*100), "%")
- cat(" --- transformation:",
- as.character(arg$conf.type))
- cat("\n \n")
- cat("Totals:")
- totCat <- paste0("\n person-time:", round(sum(x$pyrs)))
- if (arg$surv.method == "lifetable") {
- totCat <- paste0("\n at-risk at T=0: ", round(sum(x[surv.int == 1L]$n)))
- }
-
- cat(totCat)
- cat(" --- events:", sum(x$d))
- cat("\n \n")
- if (length(at$print.vars) > 0L) {
- cat("Stratified by:", paste0("'", at$print.vars, "'", collapse = ", "))
- if (length(at$adjust.vars) > 0L) cat(" --- ")
- }
- if (length(at$adjust.vars) > 0L) {
- cat("Adjusted by:", paste0("'", at$adjust.vars, "'", collapse = ", "))
- }
- cat("\n")
- invisible()
-}
-
-
-#' @title Print an \code{aggre} Object
-#' @author Joonas Miettinen
-#' @description Print method function for \code{aggre} objects; see
-#' \code{\link{as.aggre}} and \code{\link{aggre}}.
-#' @param x an \code{aggre} object
-#' @param subset a logical condition to subset results table by
-#' before printing; use this to limit to a certain stratum. E.g.
-#' \code{subset = sex == "male"}
-#' @param ... arguments passed to \code{print.data.table}; try e.g.
-#' \code{top = 2} for numbers of rows in head and tail printed
-#' if the table is large,
-#' \code{nrow = 100} for number of rows to print, etc.
-#' @export
-#' @return
-#' Always returns `NULL` invisibly.
-#' This function is called for its side effects.
-print.aggre <- function(x, subset = NULL, ...) {
-
- PF <- parent.frame(1L)
- TF <- environment()
- sa <- attributes(x)$aggre.meta
-
- subset <- evalLogicalSubset(x, substitute(subset), enclos = PF)
- x <- x[subset, ]
- setDT(x)
-
- print(x, ...)
- return(invisible(NULL))
-}
-
-#' @title Summarize an \code{aggre} Object
-#' @author Joonas Miettinen
-#' @description \code{summary} method function for \code{aggre} objects; see
-#' \code{\link{as.aggre}} and \code{\link{aggre}}.
-#' @param object an \code{aggre} object
-#' @param by list of columns to summarize by - e.g. \code{list(V1, V2)}
-#' where \code{V1} and \code{V2} are columns in the data.
-#' @param subset a logical condition to subset results table by
-#' before summarizing; use this to limit to a certain stratum. E.g.
-#' \code{subset = sex == "male"}
-#' @param ... unused
-#' @export
-#' @family aggregation functions
-#' @return
-#' Returns a `data.table` --- a further aggregated version of `object`.
-summary.aggre <- function(object, by = NULL, subset = NULL, ...) {
-
- PF <- parent.frame(1L)
- TF <- environment()
- x <- object
- sa <- attributes(x)$aggre.meta
-
- subset <- evalLogicalSubset(x, substitute(subset), enclos = PF)
- x <- x[subset, ]
- setDT(x)
-
- bys <- substitute(by)
- bye <- evalPopArg(x, bys, enclos = environment(), types = c("list", "NULL"))
-
- vals <- sa$values
- vals <- intersect(names(x), vals)
- if (!length(vals)) {
- cat("No originally created value columns appear to be left in data.")
- }
- r <- x[, lapply(.SD, sum), by = eval(bye), .SDcols = vals]
- r
-}
-
-#' @title Print a survtab Object
-#' @author Joonas Miettinen
-#' @description Print method function for \code{survtab} objects; see
-#' \code{\link{survtab_ag}}.
-#' @param x a \code{survtab} object
-#' @param subset a logical condition to subset results table by
-#' before printing; use this to limit to a certain stratum. E.g.
-#' \code{subset = sex == "male"}
-#' @param ... arguments passed to \code{print.data.table}; try e.g.
-#' \code{top = 2} for numbers of rows in head and tail printed
-#' if the table is large,
-#' \code{nrow = 100} for number of rows to print, etc.
-#' @export
-#' @family survtab functions
-#' @return
-#' Always returns `NULL` invisibly.
-#' This function is called for its side effects.
-print.survtab <- function(x, subset = NULL, ...) {
-
- Tstart <- Tstop <- NULL ## APPEASE R CMD CHECK
-
- PF <- parent.frame(1L)
- TF <- environment()
- sa <- attributes(x)$survtab.meta
-
- subset <- evalLogicalSubset(x, substitute(subset), enclos = PF)
- x <- x[subset, ]
-
- preface_survtab.print(x)
-
- setDT(x)
-
- if (nrow(x) == 0L) {
- print(x)
- return(invisible())
- }
-
- pv <- as.character(sa$print.vars)
- if (length(pv) == 0L) pv <- NULL
-
- magicMedian <- function(x) {
- if (length(x) %% 2L == 0L) median(x[-1L], na.rm = TRUE) else
- median(x, na.rm = TRUE)
- }
-
- ## to avoid e.g. 'factor(V1, 1:2)' going bonkers
- pv_orig <- pv
- if (length(pv) > 0L) {
- pv <- makeTempVarName(x, pre = paste0("print_", 1:length(pv)))
- setnames(x, pv_orig, pv)
- }
-
- medmax <- x[, list(Tstop = c(magicMedian(c(min(Tstart),Tstop)), max(Tstop))), keyby = eval(pv)]
-
- setkeyv(medmax, c(pv, "Tstop"))
- setkeyv(x, c(pv, "Tstop"))
- x <- x[medmax]
-
- rv <- intersect(names(x), c(sa$est.vars, sa$CI.vars, sa$misc.vars))
- if (length(rv)) {
- x[, (rv) := lapply(.SD, round, digits = 4L), .SDcols = rv]
- }
-
- sv <- intersect(names(x), sa$SE.vars)
- if (length(sv > 0L)) {
- x[, c(sv) := lapply(.SD, signif, digits = 4L), .SDcols = sv]
- }
-
-
- setcolsnull(x, keep = c(pv, "Tstop", sa$surv.vars), colorder = TRUE)
- if (length(pv)) setnames(x, pv, pv_orig)
- print(data.table(x), ...)
- return(invisible(NULL))
-}
-
-#' @title Summarize a survtab Object
-#' @author Joonas Miettinen
-#' @description Summary method function for \code{survtab} objects; see
-#' \code{\link{survtab_ag}}. Returns estimates at given time points
-#' or all time points if \code{t} and \code{q} are both \code{NULL}.
-#' @param object a \code{survtab} object
-#' @param t a vector of times at which time points (actually intervals that
-#' contain t) to print summary table of survival function estimates by strata;
-#' values not existing in any interval cause rows containing only \code{NAs} to
-#' be returned.
-#' @param q a named \code{list} of quantiles to include in returned data set,
-#' where names must match to estimates in \code{object};
-#' returns intervals where the quantiles are reached first;
-#' e.g. \code{list(surv.obs = 0.5)} finds the interval where \code{surv.obs}
-#' is 0.45 and 0.55 at the beginning and end of the interval, respectively;
-#' returns rows with \code{NA} values for quantiles not reached in estimates
-#' (e.g. if \code{q = list(surv.obs = 0.5)} but lowest estimate is 0.6);
-#' see Examples.
-#' @param subset a logical condition to subset results table by
-#' before printing; use this to limit to a certain stratum. E.g.
-#' \code{subset = sex == "male"}
-#' @param ... unused; required for congruence with other \code{summary} methods
-#'
-#' @details
-#' Note that this function returns the intervals and NOT the time points
-#' corresponding to quantiles / estimates corresponding to time points.
-#' If you want precise estimates at time points that are not interval breaks,
-#' add the time points as breaks and re-estimate the survival time function.
-#' In interval-based estimation, the estimates denote e.g. probability of
-#' dying \emph{during} the interval, so time points within the intervals
-#' are not usually considered at all. See e.g. Seppa, Dyba, and Hakulinen
-#' (2015).
-#'
-#' @references
-#' Seppa K., Dyba T. and Hakulinen T.: Cancer Survival,
-#' Reference Module in Biomedical Sciences. Elsevier. 08-Jan-2015.
-#' \doi{10.1016/B978-0-12-801238-3.02745-8}
-#'
-#' @examples
-#'
-#' library(Epi)
-#'
-#' ## NOTE: recommended to use factor status variable
-#' x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
-#' exit = list(CAL = get.yrs(ex_date)),
-#' data = sire[sire$dg_date < sire$ex_date, ],
-#' exit.status = factor(status, levels = 0:2,
-#' labels = c("alive", "canD", "othD")),
-#' merge = TRUE)
-#' ## pretend some are male
-#' set.seed(1L)
-#' x$sex <- rbinom(nrow(x), 1, 0.5)
-#' ## observed survival
-#' st <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex, data = x,
-#' surv.type = "cif.obs",
-#' breaks = list(FUT = seq(0, 5, 1/12)))
-#'
-#' ## estimates at full years of follow-up
-#' summary(st, t = 1:5)
-#'
-#' ## interval estimate closest to 75th percentile, i.e.
-#' ## first interval where surv.obs < 0.75 at end
-#' ## (just switch 0.75 to 0.5 for median survival, etc.)
-#' summary(st, q = list(surv.obs = 0.75))
-#' ## multiple quantiles
-#' summary(st, q = list(surv.obs = c(0.75, 0.90), CIF_canD = 0.20))
-#'
-#' ## if you want all estimates in a new data.frame, you can also simply do
-#'
-#' x <- as.data.frame(st)
-#' @return
-#' A `data.table`: a slice from `object` based on `t`, `subset`, and `q`.
-#' @export
-#' @family survtab functions
-summary.survtab <- function(object, t = NULL, subset = NULL, q = NULL, ...) {
-
- PF <- parent.frame(1L)
- at <- copy(attr(object, "survtab.meta"))
- subr <- copy(at$surv.breaks)
-
- if (!is.null(t) && !is.null(q)) {
- stop("Only supply either t or q.")
- }
-
- sb <- substitute(subset)
- subset <- evalLogicalSubset(object, sb, enclos = PF)
- x <- object[subset, ]
-
- ## to avoid e.g. 'factor(V1, 1:2)' going bonkers
- pv_orig <- pv <- at$print.vars
- if (length(pv) > 0L) {
- pv <- makeTempVarName(x, pre = paste0("print_", 1:length(pv)))
- setnames(x, pv_orig, pv)
- }
-
- setDT(x)
-
- ## quantile detection --------------------------------------------------------
- if (!is.null(q)) {
- bn <- setdiff(names(q), at$est.vars)
- if (length(bn) > 0L) {
- stop("No survival time function estimates named ",
- paste0("'", bn, "'", collapse = ", "),
- " found in supplied survtab object. Available ",
- "survival time function estimates: ",
- paste0("'", at$est.vars, "'", collapse = ", "))
- }
-
- lapply(q, function(x) {
- if (min(x <= 0L) || max(x >= 1L)) {
- stop("Quantiles must be expressed as numbers between 0 and 1, ",
- "e.g. surv.obs = 0.5.")
- }
- })
-
-
- m <- x[, .SD[1, ], keyby = eval(pv)][, c(pv, "Tstop"), with = FALSE]
- setDF(m)
-
- rollVars <- makeTempVarName(x, pre = names(q))
- x[, c(rollVars) := lapply(.SD, copy), .SDcols = names(q)]
-
- m <- lapply(seq_along(q), function(i) {
- m <- merge(m, q[[i]])
- setnames(m, "y", rollVars[i])
- if (length(pv)) setorderv(m, pv)
- m[, c(pv, rollVars[i]), drop = FALSE]
- })
- names(m) <- names(q)
-
- l <- vector("list", length(q))
- names(l) <- names(q)
- for (k in names(q)) {
-
- l[[k]] <- setDT(x[m[[k]], on = names(m[[k]]), roll = 1L])
-
- }
- l <- rbindlist(l)
- set(l, j = rollVars, value = NULL)
- if (length(pv)) setkeyv(l, pv)
- x <- l
- }
-
- ## time point detection ------------------------------------------------------
-
- if (!is.null(t)) {
-
- tcutv <- makeTempVarName(x, pre = "cut_time_")
-
- set(x, j = tcutv, value = cut(x$Tstop, breaks = subr, right = TRUE,
- include.lowest = FALSE))
- cutt <- cut(t, breaks = subr, right = TRUE, include.lowest = FALSE)
-
- l <- list(cutt)
- names(l) <- tcutv
- if (length(pv)) {
- pvdt <- setDF(unique(x, by = pv))[, pv, drop = FALSE]
- l <- setDT(merge(pvdt, as.data.frame(l)))
- setkeyv(l, pv)
- }
-
- x <- x[l, on = c(pv, tcutv)]
-
- set(x, j = tcutv, value = NULL)
- if (length(pv)) setkeyv(x, pv)
- }
-
-
- ## final touches -------------------------------------------------------------
- if (length(pv) > 0L) setnames(x, pv, pv_orig)
-
- if (!return_DT()) setDFpe(x)
-
- x
-}
-
-#' @export
-`[.survtab` <- function(x, ...) {
- y <- NextMethod()
- if (is.data.frame(y)) {
- setattr(y, "class", class(x))
- setattr(y, "survtab.meta", attr(x, "survtab.meta"))
- }
- y
-}
-
-#' @export
-subset.survtab <- function(x, ...) {
- y <- NextMethod()
- if (is.data.frame(y)) {
- setattr(y, "class", class(x))
- setattr(y, "survtab.meta", attr(x, "survtab.meta"))
- }
- y
-}
-
-
-#' @export
-`[.survmean` <- function(x, ...) {
- y <- NextMethod()
- if (is.data.frame(y)) {
- setattr(y, "class", class(x))
- setattr(y, "survmean.mean", attr(x, "survmean.mean"))
- }
- y
-}
-
-
-#' @export
-subset.survmean <- function(x, ...) {
- y <- NextMethod()
- if (is.data.frame(y)) {
- setattr(y, "class", class(x))
- setattr(y, "survmean.mean", attr(x, "survmean.mean"))
- }
- y
-}
-
-#' @export
-`[.rate` <- function(x, ...) {
- y <- NextMethod()
- if (is.data.frame(y)) {
- setattr(y, "class", class(x))
- setattr(y, "rate.meta", attr(x, "rate.meta"))
- }
- y
-}
-
-#' @export
-subset.rate <- function(x, ...) {
- y <- NextMethod()
- if (is.data.frame(y)) {
- setattr(y, "class", class(x))
- setattr(y, "rate.meta", attr(x, "rate.meta"))
- }
- y
-}
-
-
-
-
-
-prep_plot_survtab <- function(x,
- y = NULL,
- subset = NULL,
- conf.int = TRUE,
- enclos = parent.frame(1L),
- ...) {
-
- ## subsetting ----------------------------------------------------------------
- subset <- evalLogicalSubset(data = x, substiset = substitute(subset),
- enclos = environment())
-
- attrs <- attributes(x)
-
- if (!inherits(x, "survtab")) stop("x is not a survtab object")
- if (is.null(attrs$survtab.meta)) {
- stop("Missing meta information (attributes) in survtab object; ",
- "have you tampered with it after estimation?")
- }
- strata.vars <- attrs$survtab.meta$print.vars
- x <- copy(x)
- setDT(x)
- x <- x[subset, ]
-
- ## detect survival variables in data -----------------------------------------
- surv_vars <- c("surv.obs","CIF.rel","CIF_","r.e2","r.pp")
- wh <- NULL
- for (k in surv_vars) {
- wh <- c(wh, which(substr(names(x), 1, nchar(k)) == k))
- }
- surv_vars <- names(x)[wh]
- surv_vars <- surv_vars[!substr(surv_vars, nchar(surv_vars)-1, nchar(surv_vars)) %in% c("hi","lo")]
- if (length(surv_vars) == 0) {
- stop("x does not appear to have any survival variables; ",
- "did you tamper with it after estimation?")
- }
-
-
- ## getting y -----------------------------------------------------------------
- if (!is.null(y)) {
- if (!is.character(y)) {
- stop("please supply y as a character string indicating ",
- "the name of a variable in x")
- }
- if (length(y) > 1) stop("y must be of length 1 or NULL")
- if (!all_names_present(x, y, stops = FALSE)) {
- stop("Given survival variable in argument 'y' ",
- "not present in survtab object ('", y, "')")
- }
- } else {
- y <- surv_vars[length(surv_vars)]
- if (length(surv_vars) > 1L) message("y was NULL; chose ", y, " automatically")
- }
- rm(surv_vars)
-
- if (substr(y, 1, 3) == "CIF" && conf.int) {
- stop("No confidence intervals currently supported for CIFs. ",
- "Hopefully they will be added in a future version; ",
- "meanwhile use conf.int = FALSE when plotting CIFs.")
- }
-
-
- ## confidence intervals ------------------------------------------------------
- y.lo <- y.hi <- y.ci <- NULL
- if (conf.int) {
-
- y.lo <- paste0(y, ".lo")
- y.hi <- paste0(y, ".hi")
- y.ci <- c(y.lo, y.hi)
-
- badCIvars <- setdiff(y.ci, names(x))
- if (sum(length(badCIvars))) {
- stop("conf.int = TRUE, but missing confidence interval ",
- "variables in data for y = '", y, "' (could not detect ",
- "variables named", paste0("'", badCIvars, "'", collapse = ", ") ,")")
- }
-
- }
-
- list(x = x, y = y, y.ci = y.ci, y.lo = y.lo, y.hi = y.hi,
- strata = strata.vars, attrs = attrs)
-
-}
-
-
-
-
-
-#' \code{plot} method for survtab objects
-#'
-#' Plotting for \code{survtab} objects
-#'
-#' @import graphics
-#'
-#' @author Joonas Miettinen
-#'
-#' @param x a \code{survtab} output object
-#' @param y survival a character vector of a variable names to plot;
-#' e.g. \code{y = "r.e2"}
-#' @param subset a logical condition; \code{obj} is subset accordingly
-#' before plotting; use this for limiting to specific strata,
-#' e.g. \code{subset = sex == "male"}
-#' @param conf.int logical; if \code{TRUE}, also plots any confidence intervals
-#' present in \code{obj} for variables in \code{y}
-#' @param col line colour; one value for each stratum; will be recycled
-#' @param lty line type; one value for each stratum; will be recycled
-#' @param ylab label for Y-axis
-#' @param xlab label for X-axis
-#' @param ... additional arguments passed on to \code{plot} and
-#' \code{lines.survtab}; e.g. \code{ylim} can be defined this way
-#' @examples
-#' data(sire)
-#' data(sibr)
-#' si <- rbind(sire, sibr)
-#' si$period <- cut(si$dg_date, as.Date(c("1993-01-01", "2004-01-01", "2013-01-01")), right = FALSE)
-#' si$cancer <- c(rep("rectal", nrow(sire)), rep("breast", nrow(sibr)))
-#' x <- lexpand(si, birth = bi_date, entry = dg_date, exit = ex_date,
-#' status = status %in% 1:2,
-#' fot = 0:5, aggre = list(cancer, period, fot))
-#' st <- survtab_ag(fot ~ cancer + period, data = x,
-#' surv.method = "lifetable", surv.type = "surv.obs")
-#'
-#' plot(st, "surv.obs", subset = cancer == "breast", ylim = c(0.5, 1), col = "blue")
-#' lines(st, "surv.obs", subset = cancer == "rectal", col = "red")
-#'
-#' ## or
-#' plot(st, "surv.obs", col = c(2,2,4,4), lty = c(1, 2, 1, 2))
-#' @export
-#' @family survtab functions
-#' @return
-#' Always returns `NULL` invisibly.
-#' This function is called for its side effects.
-plot.survtab <- function(x, y = NULL, subset=NULL, conf.int=TRUE, col=NULL,lty=NULL, ylab = NULL, xlab = NULL, ...) {
-
- Tstop <- delta <- NULL ## APPEASE R CMD CHECK
- ## prep ----------------------------------------------------------------------
- PF <- parent.frame(1L)
- subset <- substitute(subset)
- subset <- evalLogicalSubset(data = x, subset, enclos = PF)
-
- l <- prep_plot_survtab(x = x, y = y, subset = subset,
- conf.int = conf.int, enclos = PF)
- x <- l$x
- y <- l$y
- y.ci <- l$y.ci
- y.lo <- l$y.lo
- y.hi <- l$y.hi
-
- ## figure out limits, etc. to pass to plot() ---------------------------------
-
- min_y <- do.call("min", c(mget(c(y, y.lo), as.environment(x)), na.rm = TRUE))
- min_y <- max(min_y, 0)
- max_y <- max(x[[y]], na.rm=TRUE)
-
- if (substr(y, 1, 3) == "CIF") {
- min_y <- 0.0
- } else {
- max_y <- max(1.0, max_y)
- }
-
- max_x <- max(x[, Tstop])
- min_x <- min(x[, Tstop-delta])
-
- if (is.null(ylab)) {
- ylab <- "Observed survival"
- if (substr(y[1], 1,4) %in% c("r.e2", "r.pp")) ylab <- "Net survival"
- if (substr(y[1], 1,4) == "CIF_") ylab <- "Absolute risk"
- if (substr(y[1], 1,6) == "CIF.rel") ylab <- "Absolute risk"
- }
- if (is.null(xlab)) xlab <- "Time from entry"
-
- ## attributes insurance to pass to lines.survtab
- setattr(x, "survtab.meta", l$attrs$survtab.meta)
- setattr(x, "class", c("survtab", "data.table", "data.frame"))
-
- ## plotting ------------------------------------------------------------------
- plot(I(c(min_y,max_y))~I(c(min_x,max_x)), data=x, type="n",
- xlab = xlab, ylab = ylab, ...)
-
-
- lines.survtab(x, subset = NULL, y = y, conf.int=conf.int,
- col=col, lty=lty, ...)
-
- return(invisible(NULL))
-}
-
-
-#' \code{lines} method for survtab objects
-#'
-#' Plot \code{lines} from a \code{survtab} object
-#'
-#' @import graphics
-#'
-#' @author Joonas Miettinen
-#'
-#' @param x a \code{survtab} output object
-#' @param y a variable to plot; a quoted name of a variable
-#' in \code{x}; e.g. \code{y = "surv.obs"};
-#' if \code{NULL}, picks last survival variable column in order in \code{x}
-#' @param subset a logical condition; \code{obj} is subset accordingly
-#' before plotting; use this for limiting to specific strata,
-#' e.g. \code{subset = sex == "male"}
-#' @param conf.int logical; if \code{TRUE}, also plots any confidence intervals
-#' present in \code{obj} for variables in \code{y}
-#' @param col line colour passed to \code{matlines}
-#' @param lty line type passed to \code{matlines}
-#' @param ... additional arguments passed on to to a \code{matlines} call;
-#' e.g. \code{lwd} can be defined this way
-#' @examples
-#' data(sire)
-#' data(sibr)
-#' si <- rbind(sire, sibr)
-#' si$period <- cut(si$dg_date, as.Date(c("1993-01-01", "2004-01-01", "2013-01-01")), right = FALSE)
-#' si$cancer <- c(rep("rectal", nrow(sire)), rep("breast", nrow(sibr)))
-#' x <- lexpand(si, birth = bi_date, entry = dg_date, exit = ex_date,
-#' status = status %in% 1:2,
-#' fot = 0:5, aggre = list(cancer, period, fot))
-#' st <- survtab_ag(fot ~ cancer + period, data = x,
-#' surv.method = "lifetable", surv.type = "surv.obs")
-#'
-#' plot(st, "surv.obs", subset = cancer == "breast", ylim = c(0.5, 1), col = "blue")
-#' lines(st, "surv.obs", subset = cancer == "rectal", col = "red")
-#'
-#' ## or
-#' plot(st, "surv.obs", col = c(2,2,4,4), lty = c(1, 2, 1, 2))
-#' @export
-#' @family survtab functions
-#' @return
-#' Always returns `NULL` invisibly.
-#' This function is called for its side effects.
-lines.survtab <- function(x, y = NULL, subset = NULL,
- conf.int = TRUE, col=NULL, lty=NULL, ...) {
- Tstop <- NULL ## APPEASE R CMD CHECK
- ## prep ----------------------------------------------------------------------
- PF <- parent.frame(1L)
- global_breaks <- attr(x, "survtab.meta")$surv.breaks
-
- subset <- substitute(subset)
- subset <- evalLogicalSubset(data = x, subset, enclos = PF)
-
-
- l <- prep_plot_survtab(x = x, y = y, subset = subset,
- conf.int = conf.int, enclos = environment())
- x <- l$x
- y <- l$y
- y.ci <- l$y.ci
- y.lo <- l$y.lo
- y.hi <- l$y.hi
- strata <- l$strata ## character vector of var names
-
-
- ## impute first values (time = 0, surv = 1 / cif = 0) ------------------------
-
- is_CIF <- if (substr(y, 1, 3) == "CIF") TRUE else FALSE
- setkeyv(x, c(strata, "Tstop"))
- first <- x[1, ]
- if (length(strata)) first <- unique(x, by = strata)
- first[, c(y) := ifelse(is_CIF, 0, 1)]
- first$Tstop <- min(global_breaks)
-
- if (length(y.ci) > 0) first[, (y.ci) := get(y) ]
- x <- rbindlist(list(first, x[, ]), use.names = TRUE)
- setkeyv(x, c(strata, "Tstop"))
-
- ## plotting ------------------------------------------------------------------
-
- if (is.null(lty)) {
- lty <- list(c(1,2,2))
- if (!length(y.ci)) lty <- list(1)
- }
-
- lines_by(x = "Tstop", y = c(y, y.ci),
- strata.vars = strata,
- data = x, col = col, lty = lty, ...)
-
- return(invisible(NULL))
-}
-
-
-
-lines_by <- function(x, y, strata.vars = NULL, data, col, lty, ...) {
- ## INTENTION: plots lines separately by strata,
- ## which may have different colours / linetypes.
- ## @param x a variable to plot y by; a character string
- ## @param y a character vector of variables to plot by x;
- ## e.g. the estimate and confidence interval variables
- ## @param strata.vars a character string vector; variables
- ## to add lines by, which may have different colours etc for identification
- ## @param data a data.frame where x, y, and strata.vars are found
- ## @param col a vector of colors passed to lines(); if vector length 1,
- ## used for each level of strata. If vector length > 1,
- ## has to match to total number of strata. If list, must match
- ## to number of strata by length and contain elements of length
- ## length(y).
- ## @param see col; line type passed to lines().
- ## @param ... other arguments passed on to lines().
-
- TF <- environment()
- PF <- parent.frame(1L)
-
- stopifnot(is.data.frame(data))
- stopifnot(is.character(x) && length(x) == 1L)
- stopifnot(is.character(y) && length(y) > 0L)
- stopifnot(is.character(strata.vars) || is.null(strata.vars))
- all_names_present(data, c(x,y,strata.vars))
-
- d <- mget(c(strata.vars, y, x), envir = as.environment(data))
- setDT(d)
- setkeyv(d, c(strata.vars, x))
-
- ## create list of datas
- l <- list(d)
- inter <- 1L
- if (length(strata.vars)) {
- inter <- do.call(interaction, d[, strata.vars, with = FALSE])
- l <- vector("list", uniqueN(inter))
- l <- split(d, f = inter, drop = TRUE)
- }
-
- l <- lapply(l, function(tab) {
- setDT(tab)
- setcolsnull(tab, keep = c(x, y))
- tab
- })
-
-
- ## figure out colours and ltys
- for (objname in c("col", "lty")) {
- obj <- TF[[objname]]
-
- if (missing(obj) || !length(obj)) obj <- 1
- if (!length(obj) %in% c(1, length(l))) {
- stop("Argument ", objname, " is not of length 1 or ",
- "of length equal to total number of strata (",
- length(l), ").")
- }
-
- ol <- unlist(lapply(obj, length))
- if (length(y) > 1 && is.list(obj) && !all(ol %in% c(1, length(y)))) {
- stop("Argument y is of length > 1, and you passed ",
- objname, " as a list of values, but at least one element is not ",
- "of length 1 or length(y).")
- }
-
- ## NOTE: rep works for vector and list just the same
- if (length(obj) == 1) obj <- rep(obj, length(l))
- obj <- as.list(obj)
-
- assign(x = objname, value = obj)
- }
-
- lapply(seq_along(l), function(i) {
-
- tab <- l[[i]]
- cols <- col[[i]]
- ltys <- lty[[i]]
-
- matlines(x = tab[[x]], y = tab[, y, with = FALSE],
- col = cols, lty = ltys, ...)
-
- })
-
- invisible(NULL)
-}
-
-
-
-
-#' @title Graphically Inspect Curves Used in Mean Survival Computation
-#' @description Plots the observed (with extrapolation) and expected survival
-#' curves for all strata in an object created by \code{\link{survmean}}
-#' @author Joonas Miettinen
-#' @param x a \code{survmean} object
-#' @param ... arguments passed (ultimately) to \code{matlines}; you
-#' may, therefore, supply e.g. \code{xlab} through this, though arguments
-#' such as \code{lty} and \code{col} will not work
-#' @details
-#'
-#' For examples see \code{\link{survmean}}. This function is intended only
-#' for graphically inspecting that the observed survival curves with extrapolation
-#' and the expected survival curves have been sensibly computed in \code{survmean}.
-#'
-#' If you want finer control over the plotted curves, extract the curves from
-#' the \code{survmean} output using
-#'
-#' \code{attr(x, "curves")}
-#'
-#' where \code{x} is a \code{survmean} object.
-#' @export
-#' @family survmean functions
-#' @return
-#' Always returns `NULL` invisibly.
-#' This function is called for its side effects.
-plot.survmean <- function(x, ...) {
- at <- attr(x, "survmean.meta")
- curves <- at$curves
- if (is.null(curves)) {
- stop("no curves information in x; sometimes lost if x ",
- "altered after using survmean")
- }
-
- by.vars <- at$tprint
- by.vars <- c(by.vars, at$tadjust)
- by.vars <- intersect(by.vars, names(curves))
- if (!length(by.vars)) by.vars <- NULL
-
- plot(curves$surv ~ curves$Tstop, type="n",
- xlab = "Time from entry", ylab = "Survival")
- lines.survmean(x, ...)
-
- subr <- at$breaks[[at$survScale]]
- abline(v = max(subr), lty=2, col="grey")
-
- if (length(by.vars)) {
- ## add legend denoting colors
- Stratum <- curves[, unique(interaction(.SD)), .SDcols = eval(by.vars)]
- legend(x = "topright", legend = Stratum, col = seq_along(Stratum), lty = 1)
- }
- return(invisible(NULL))
-}
-
-#' @title Graphically Inspect Curves Used in Mean Survival Computation
-#' @description Plots the observed (with extrapolation) and expected survival
-#' curves for all strata in an object created by \code{\link{survmean}}
-#' @author Joonas Miettinen
-#' @param x a \code{survmean} object
-#' @param ... arguments passed (ultimately) to \code{matlines}; you
-#' may, therefore, supply e.g. \code{lwd} through this, though arguments
-#' such as \code{lty} and \code{col} will not work
-#' @details
-#'
-#' This function is intended to be a workhorse for \code{\link{plot.survmean}}.
-#' If you want finer control over the plotted curves, extract the curves from
-#' the \code{survmean} output using
-#'
-#' \code{attr(x, "curves")}
-#'
-#' where \code{x} is a \code{survmean} object.
-#' @export
-#' @family survmean functions
-#' @return
-#' Always returns `NULL` invisibly.
-#' This function is called for its side effects.
-lines.survmean <- function(x, ...) {
- at <- copy(attr(x, "survmean.meta"))
- curves <- at$curves
- if (is.null(curves)) stop("no curves information in x; usually lost if x altered after using survmean")
-
- by.vars <- at$tprint
- by.vars <- c(by.vars, at$tadjust)
- by.vars <- c("survmean_type", by.vars)
- by.vars <- intersect(by.vars, names(curves))
- if (!length(by.vars)) by.vars <- NULL
-
- curves <- data.table(curves)
- setkeyv(curves, c(by.vars, "Tstop"))
-
- type_levs <- length(levels(interaction(curves[, c(by.vars), with=FALSE])))/2L
- other_levs <- 1L
- if (length(by.vars) > 1) {
- other_levs <- length(levels(interaction(curves[, setdiff(by.vars, "survmean_type"), with=FALSE])))
- }
-
- curves <- cast_simple(curves, columns = by.vars, rows = "Tstop", values = "surv")
- matlines(x=curves$Tstop, y=curves[, setdiff(names(curves), "Tstop"), with=FALSE],
- lty = rep(1:2, each=type_levs), col = 1:other_levs, ...)
- return(invisible(NULL))
-}
-
-
-
-
-
-
-
-#' @export
-getCall.survtab <- function(x, ...) {
- attributes(x)$survtab.meta$call
-}
-
-
-#' @export
-formula.survtab <- function(x, ...) {
- attr(x, "survtab.meta")$arguments$formula
-}
-
-
-
-
-
-#' @export
-getCall.survmean <- function(x, ...) {
- attributes(x)$survmean.meta$call
-}
-
-
-#' @export
-formula.survmean <- function(x, ...) {
- attr(x, "survmean.meta")$formula
-}
-
-
-
+
+
+#' @export
+print.sir <- function(x, subset = NULL, ...) {
+
+ at <- attributes(x)$sir.meta
+ PF <- parent.frame(1L)
+ subset <- evalLogicalSubset(x, substitute(subset), enclos = PF)
+ x <- x[subset, ]
+ setDT(x)
+
+ t1 <- paste0("SIR (adjusted by ", paste(at$adjust, collapse = ', '),')',
+ ' with ', at$conf.level*100, '% ', 'confidence intervals (', at$conf.type,')')
+
+
+ # cat
+ t3 <- paste0(' Total sir: ', round(at$pooled.sir$sir,2),' (',
+ round(at$pooled.sir$sir.lo,2),'-', round(at$pooled.sir$sir.hi, 2),')\n',
+ ' Total observed: ', at$pooled.sir$observed, '\n',
+ ' Total expected: ', round(at$pooled.sir$expected,2), '\n',
+ ' Total person-years: ', round(at$pooled.sir$pyrs))
+
+ rv <- intersect(names(x), c('sir','sir.lo','sir.hi','observed','expected','pyrs'))
+ if (length(rv)) {
+ x[, (rv) := lapply(.SD, round, digits = 2L), .SDcols = rv]
+ }
+
+ rv <- intersect(names(x), c('p_value'))
+ if (length(rv)) {
+ x[, (rv) := lapply(.SD, round, digits = 4), .SDcols = rv]
+ }
+
+
+ if(is.null(at$lrt.test)) {
+ d <- paste("Could not test", at$lrt.test.type)
+ } else {
+ if(at$lrt.test.type == 'homogeneity') {
+ d <- paste("Test for homogeneity: p", p.round( c(at$lrt.test)))
+ }
+ if(at$lrt.test.type == 'trend') {
+ d <- paste("Test for trend: p", p.round( c(at$lrt.test)))
+ }
+ }
+ #b <- round(c(ta$total$sir, ta$total$sir.lo, ta$total$sir.hi), 2)
+ # cat('\n',"Total observed", ta$total$observed, '\n',
+ # "Total expected:", ta$total$expected, '\n',
+ # "SIR:", paste0(b[1], ' (',b[2], '-',b[3],')'), '\n',
+ # "Person-years:", ta$total$pyrs, '\n',
+ # fill=TRUE)
+
+ cat(t1, '\n')
+ if(x[,.N] > 1) {
+ cat(d, '\n')
+ }
+ cat(fill=TRUE)
+ cat(t3, '\n', fill=TRUE)
+
+ print(data.table(x), ...)
+ return(invisible())
+}
+
+#' @export
+`[.sir` <- function(x, ...) {
+ y <- NextMethod()
+ if (is.data.frame(y)) {
+ setattr(y, "class", class(x))
+ setattr(y, "sir.meta", attr(x, "sir.meta"))
+ }
+ y
+}
+
+
+#' @import grDevices
+#' @export
+print.sirspline <- function(x, ...) {
+ if ( x$spline.dependent ) {
+ if( any( !is.na(x$p.values))) {
+ cat( 'global p-value:', p.round(x$p.values[1]),'\n' )
+ cat( 'level p-value:', p.round(x$p.values[2]) , fill= TRUE)
+ } else {
+ cat( 'No models compared.', fill= TRUE)
+ }
+ cat('---', '\n')
+ cat('Colour codes:', '\n', fill=TRUE)
+ } else {
+
+ for(i in 1:length(x$p.values)) {
+ cat( x$spline[i] ,': p ', p.round( x$p.values[[i]] ), '\n', sep = '')
+ }
+ cat(fill=TRUE)
+
+ }
+ # Print colour codes:
+ cols <- unique(x$spline.est.A[,1])
+ col.length <- length(cols)
+ print( data.frame(levels = cols, colour = palette()[1:col.length]), include.rownames = FALSE)
+
+ # Print p-values
+ return(invisible())
+}
+
+
+#' Plot method for sir-object
+#'
+#' Plot SIR estimates with error bars
+#'
+#' @seealso \code{\link{sir}}, \code{\link{sirspline}}
+#'
+#' @import graphics
+#'
+#' @author Matti Rantanen
+#'
+#' @param x an object returned by function \code{sir}
+#' @param conf.int default TRUE draws confidence intervals
+#' @param xlab overwrites default x-axis label
+#' @param ylab overwrites default y-axis label
+#' @param xlim x-axis minimum and maximum values
+#' @param main optional plot title
+#' @param abline logical; draws a grey line in SIR = 1
+#' @param log logical; SIR is not in log scale by default
+#' @param eps error bar vertical bar height (works only in 'model' or 'univariate')
+#' @param left.margin adjust left marginal of the plot to fit long variable names
+#' @param ... arguments passed on to plot(), segment and lines()
+#'
+#'
+#' @details Plot SIR estimates and confidence intervals
+#' \itemize{
+#' \item univariate - plots SIR with univariate confidence intervals
+#' \item model - plots SIR with Poisson modelled confidence intervals
+#' }
+#'
+#' \strong{Customize}
+#' Normal plot parameters can be passed to \code{plot}. These can be a vector when plotting error bars:
+#' \itemize{
+#' \item \code{pch} - point type
+#' \item \code{lty} - line type
+#' \item \code{col} - line/point colour
+#' \item \code{lwd} - point/line size
+#' }
+#'
+#' \strong{Tips for plotting splines}
+#' It's possible to use \code{plot} to first draw the
+#' confidence intervals using specific line type or colour and then plotting
+#' again the estimate using \code{lines(... , conf.int = FALSE)} with different
+#' settings. This works only when \code{plot.type} is 'splines'.
+#'
+#'
+#' @examples
+#' \donttest{
+#' # Plot SIR estimates
+#'# plot(sir.by.gender, col = c(4,2), log=FALSE, eps=0.2, lty=1, lwd=2, pch=19,
+#'# main = 'SIR by gender', abline=TRUE)
+#' }
+#' @return
+#' Always returns `NULL` invisibly.
+#' This function is called for its side effects.
+#' @export
+
+plot.sir <- function(x, conf.int = TRUE, ylab, xlab, xlim, main,
+ eps=0.2, abline = TRUE, log = FALSE, left.margin, ...) {
+
+ a <- data.table(x)
+ at <- attributes(x)$sir.meta
+ level_names <- at$print
+
+ if(is.null(level_names)) {
+ levels <- 'Crude'
+ level_names <- levels
+ }
+ else {
+ q <- paste0('paste(', paste(level_names, collapse=', '),', sep = ":")' )
+ q <- parse(text = q)
+ levels <- a[, eval(q)]
+ }
+
+ # predefined parameters
+ if( missing(main) ){
+ main <- NA
+ }
+ if( missing(xlab) ){
+ xlab <- 'SIR'
+ }
+ if( missing(ylab) ){
+ ylab <- NA
+ }
+ if( missing(xlim) ) {
+ xlimit <- c(min(a$sir.lo[a$sir.lo <Inf]), max(a$sir.hi[a$sir.hi <Inf]))
+ xlimit <- xlimit + diff(xlimit)*c(-.3,.3)
+ }
+ else {
+ xlimit <- xlim
+ }
+
+ # par options
+ old_mar <- par("mar")
+ on.exit(par(mar = old_mar))
+ new.margin <- old_mar
+ if(missing(left.margin)) {
+ new.margin[2] <- 4.1 + sqrt( max(nchar(as.character(level_names))) )*2
+ }
+ else {
+ new.margin[2] <- left.margin
+ }
+ par(mar = new.margin)
+
+ # plot frame, estimates and CI (optional abline)
+ logarithm <- ''
+ if(log){
+ logarithm <- 'x'
+ if(xlimit[1]==0) xlimit[1] <- xlimit[1] + 0.01
+ }
+ y.axis.levels <- 1:length(levels)
+ plot(c(xlimit), c(min(y.axis.levels)-0.5, max(y.axis.levels)+0.5),
+ type='n', yaxt = 'n', xlab=xlab, ylab=ylab, log=logarithm, main = main, ...)
+ axis(side = 2, at = y.axis.levels, labels = levels, las=1)
+
+ if(abline) {
+ abline(v=1, col = 'darkgray')
+ }
+
+ points(a$sir, factor(y.axis.levels, labels=levels), ...)
+ if(conf.int) {
+ segments(a$sir.lo, y.axis.levels , a$sir.hi, y.axis.levels, ...)
+ segments(a$sir.lo, y.axis.levels - eps, a$sir.lo, y.axis.levels +eps, ... )
+ segments(a$sir.hi, y.axis.levels - eps, a$sir.hi, y.axis.levels +eps, ... )
+ }
+
+ return(invisible(NULL))
+}
+
+#' @title \code{plot} method for sirspline-object
+#'
+#' @description Plot SIR splines using R base graphics.
+#'
+#'
+#' @import graphics
+#'
+#' @author Matti Rantanen
+#'
+#' @param x an object returned by function sirspline
+#' @param conf.int logical; default TRUE draws also the 95 confidence intervals
+#' @param xlab overwrites default x-axis label; can be a vector if multiple splines fitted
+#' @param ylab overwrites default y-axis label; can be a vector if multiple splines fitted
+#' @param log logical; default FALSE. Should the y-axis be in log scale
+#' @param abline logical; draws a reference line where SIR = 1
+#' @param type select \code{type = 'n'} to plot only figure frames
+#' @param ... arguments passed on to plot()
+#'
+#' @details
+#' In \code{plot.sirspline} almost every graphical parameter are user
+#' adjustable, such as \code{ylim}, \code{xlim}.
+#' \code{plot.sirsplines} calls \code{lines.splines} to add lines.
+#'
+#' The plot axis without lines can be plotted using option \code{type = 'n'}.
+#' On top of the frame it's then possible to add a \code{grid},
+#' \code{abline} or text before plotting the lines (see: \code{sirspline}).
+#' @export
+#' @return
+#' Always returns `NULL` invisibly.
+#' This function is called for its side effects.
+#' @family sir functions
+plot.sirspline <- function(x, conf.int=TRUE, abline = TRUE, log = FALSE, type, ylab, xlab, ...) {
+
+ #print(list(...))
+
+ ## premilinary checks
+ if (is.null(x$spline.seq.A)) stop('No splines found.')
+
+ ## prepare dimension and par
+ plotdim <- as.numeric(c( !is.null( x$spline.seq.A ),
+ !is.null( x$spline.seq.B ),
+ !is.null( x$spline.seq.C ) ))
+
+ if(sum(plotdim) > 1) {
+ old_mfrow <- par("mfrow")
+ on.exit(par(mfrow = old_mfrow))
+ new_mfrow <- c(1,sum(plotdim))
+ par(mfrow = new_mfrow)
+ type <- 'l'
+ }
+
+ ## set labels
+ if ( missing(xlab) ) {
+ xlab <- x$spline
+ }
+
+ if ( missing(ylab) ) {
+ ylab <- rep('SIR',sum(plotdim))
+ if(log){
+ ylab <- rep('log(SIR)', sum(plotdim))
+ }
+ if(x$spline.dependent & sum(plotdim) > 1) {
+ ylab <- c(ylab[1], paste(ylab[2:sum(plotdim)], 'ratio'))
+ }
+ }
+ else{
+ if( length(ylab) < sum(plotdim))
+ ylab <- rep(ylab, sum(plotdim))
+ if(length(ylab) > sum(plotdim)) {
+ warning('set ylabs in a vector length of num of plots (',sum(plotdim),')')
+ }
+ }
+
+ ## set scale
+ if(!is.logical(log)) stop('log should be a logical value.')
+ log.bin <- ifelse(log, 'y', '')
+
+ ## remove infinite values
+ #rm_inf <- function(est){
+ # x[[est]][ is.finite(x[[est]][[2]]) & is.finite(x[[est]][[3]]) & is.finite(x[[est]][[4]]), ]
+ #}
+
+ spl <- c('spline.seq.A', 'spline.seq.B', 'spline.seq.C')[1:sum(plotdim)]
+ est <- gsub("seq", "est", spl)
+
+ for (i in 1:sum(plotdim)) { # age, per, fot,
+ # empty plot
+ max_x <- range(x[[spl[i]]])
+ max_y <- range( x[[est[i]]][, 2:4] )
+ plot(max_x, max_y, type = 'n', ylab = ylab[i], xlab = xlab[i], log = log.bin, ...)
+ if(abline) abline(h = 1)
+
+ # plot lines
+ if (missing(type) || type != 'n') {
+ lines.sirspline(x, conf.int = conf.int, select.spline = i, ...)
+ }
+ }
+ return(invisible(NULL))
+}
+
+
+
+#' @title lines method for sirspline-object
+#' @description Plot SIR spline lines with R base graphics
+#'
+#'
+#' @author Matti Rantanen
+#'
+#' @param x an object returned by function sirspline
+#' @param conf.int logical; default TRUE draws also the 95 confidence intervals
+#' @param print.levels name(s) to be plotted. Default plots all levels.
+#' @param select.spline select which spline variable (a number or a name) is plotted.
+#' @param ... arguments passed on to lines()
+#'
+#' @details In \code{lines.sirspline} most of graphical parameters is user
+#' adjustable.
+#' Desired spline variable can be selected with \code{select.spline} and only one
+#' can be plotted at a time. The spline variable can include
+#' several levels, e.g. gender (these are the levels of \code{print}
+#' from \code{sirspline}). All levels are printed by default, but a
+#' specific level can be selected using argument
+#' \code{print.levels}. Printing the levels separately enables e.g. to
+#' give different colours for each level.
+#'
+#' @family sir functions
+#'
+#' @import graphics
+#' @export
+#' @return
+#' Always returns `NULL` invisibly.
+#' This function is called for its side effects.
+
+lines.sirspline <- function(x, conf.int = TRUE, print.levels = NA, select.spline, ... ){
+ ## input: sirspline object, with only one spline var (spline.est.A)
+ ## input: print levels can be > 1.
+
+ ## subset splines
+ if( length(x$spline) > 1 ) {
+ if ( missing(select.spline) ) {
+ stop(paste('select what spline to plot in select.spline:', paste(x$spline, collapse = ', ')))
+ }
+ else {
+ if(is.numeric(select.spline)) {
+ k <- select.spline
+ }
+ else {
+ k <- which(x$spline == select.spline)
+ }
+ if(length(k) == 0 | length(x$spline) < k) stop('select.spline name/number is incorrect')
+ }
+ }
+ else {
+ k <- 1
+ }
+
+ spl <- c('spline.seq.A', 'spline.seq.B', 'spline.seq.C')[k]
+ est <- gsub("seq", "est", spl)
+
+ ## remove infinite values
+ # x[[h]] <- rm_inf(est=h)
+
+ # get print levels
+ if(missing(print.levels)) {
+ print.levels <- NA
+ }
+ pl <- unique(x$spline.est.A[,1])
+ if(any( is.null(print.levels), is.na(print.levels))) {
+ print.levels <- pl
+ }
+ pl <- pl[ pl %in% print.levels]
+
+ ## get conf.int
+ if( !is.logical(conf.int) ) stop('conf.int is not logical')
+ n <- c(2,4)[c(!conf.int, conf.int)]
+
+
+ ## draw lines
+ for( l in pl ){
+ # loop through print.levels
+ index <- which(x$spline.est.A$i == l)
+
+ for(m in 2:n) {
+ # loop through estiamte and confidence intervals
+ lines(x = x[[spl]], y = x[[est]][index, m], ...)
+ }
+ }
+ return(invisible(NULL))
+}
+
+#' @title Print an rate object
+#' @author Matti Rantanen
+#' @description Print method function for \code{rate} objects; see
+#' \code{\link{rate}}.
+#' @param x an \code{rate} object
+#' @param subset a logical condition to subset results table by
+#' before printing; use this to limit to a certain stratum. E.g.
+#' \code{subset = sex == "female"}
+#' @param ... arguments for data.tables print method, e.g. row.names = FALSE suppresses row numbers.
+#' @export
+#' @return
+#' Always returns `NULL` invisibly.
+#' This function is called for its side effects.
+print.rate <- function(x, subset = NULL, ...) {
+
+ ra <- attributes(x)$rate.meta
+ PF <- parent.frame(1L)
+ TF <- environment()
+ subset <- evalLogicalSubset(x, substitute(subset), enclos = PF)
+ x <- x[subset, ]
+
+ # pre texts:
+ cat('\n')
+ if(!is.null(ra$adjust)){
+ if(is.character(ra$weights)) {
+ a <- paste(ra$weights, collapse = ',')
+ }
+ if(all(is.numeric(ra$weights))) {
+ a <- length(ra$weights)
+ }
+ if(is.list(ra$weights)) {
+ a <- sapply(ra$weights, length)
+ }
+
+ b <- paste(ra$adjust,a, collapse = ', ', sep = '; ')
+ cat('Adjusted rates (', b,') ', sep = '')
+ }
+ else{
+ cat('Crude rates ')
+ }
+ cat('and', '95%', 'confidence intervals:', fill=TRUE)
+ cat('\n')
+ # table itself
+
+
+ setDT(x)
+ print(x, ...)
+ return(invisible(NULL))
+}
+
+
+#' @title plot method for rate object
+#' @description Plot rate estimates with confidence intervals lines using R base graphics
+#' @author Matti Rantanen
+#'
+#' @param x a rate object (see \code{\link{rate}})
+#' @param conf.int logical; default TRUE draws the confidence intervals
+#' @param eps is the height of the ending of the error bars
+#' @param left.margin set a custom left margin for long variable names. Function
+#' tries to do it by default.
+#' @param xlim change the x-axis location
+#' @param ... arguments passed on to graphical functions points and segment
+#' (e.g. \code{col}, \code{lwd}, \code{pch} and \code{cex})
+#'
+#' @details This is limited explanatory tool but most graphical
+#' parameters are user adjustable.
+#'
+#' @import graphics
+#' @export
+#' @return
+#' Always returns `NULL` invisibly.
+#' This function is called for its side effects.
+plot.rate <- function(x, conf.int = TRUE, eps = 0.2, left.margin, xlim, ...) {
+
+ ra <- attributes(x)$rate.meta
+ varcol <- ra$print
+
+ if(is.null(varcol)) {
+ lvl.name <- 'Crude'
+ }
+ else {
+ pp <- paste0('paste(', paste(varcol, collapse=','),',sep = ":")')
+ q <- parse(text=pp)
+ lvl.name <- x[,eval(q)]
+ }
+ lvls <- 1:length(lvl.name)
+
+ # WHICH RATE:
+ if('rate.adj' %in% names(x)) {
+ r <- x$rate.adj
+ hi <- x$rate.adj.hi
+ lo <- x$rate.adj.lo
+ }
+ else {
+ r <- x$rate
+ hi <- x$rate.hi
+ lo <- x$rate.lo
+ }
+ # X-AXIS LIMITs
+ if(missing(xlim)) {
+ t <- range(na.omit(c(lo , r, hi)))
+ t0 <- (t[2]-t[1])/4
+ xlimit <- c(pmax(t[1]-t0, 0), t[2] + t0)
+ }
+ else {
+ xlimit <- xlim
+ }
+
+ # MARGINS
+ old_mar <- par("mar")
+ on.exit(par(mar = old_mar))
+ if(missing(left.margin)) {
+ new.margin <- par("mar")
+ new.margin[2] <- 4.1 + sqrt( max(nchar(as.character(lvl.name))) )*2
+ }
+ else {
+ new.margin[2] <- left.margin
+ }
+ par(mar = new.margin)
+
+ plot(c(xlimit), c(min(lvls)-0.5, max(lvls)+0.5), type='n', yaxt = 'n', ylab = '', xlab='')
+ axis(side = 2, at = lvls, labels = lvl.name, las = 1)
+ points(r, lvls, ...)
+
+ if(conf.int) {
+ segments(lo, lvls, hi, lvls, ...)
+ segments(lo, lvls - eps, lo, lvls + eps, ...)
+ segments(hi, lvls - eps, hi, lvls + eps, ...)
+ }
+ return(invisible(NULL))
+}
+
+
+#' @export
+print.yrs <- function(x, ...) {
+ print(as.numeric(x))
+}
+
+
+#' @export
+`[.yrs` <- function(x, ...) {
+ yl <- attr(x, "year.length")
+ structure(NextMethod(), year.length = yl, class = c("yrs", "numeric"))
+}
+
+
+#' @export
+`[.aggre` <- function(x, ...) {
+ xa <- attributes(x)
+ y <- NextMethod()
+ if (is.data.frame(y)) {
+ setattr(y, "class", xa$class)
+ setattr(y, "aggre.meta", xa$aggre.meta)
+ setattr(y, "breaks", xa$breaks)
+ }
+ y
+}
+
+#' @export
+subset.aggre <- function(x, ...) {
+ y <- NextMethod()
+ if (is.data.frame(y)) {
+ setattr(y, "class", class(x))
+ setattr(y, "aggre.meta", attr(x, "aggre.meta"))
+ setattr(y, "breaks", attr(x, "breaks"))
+ }
+ y
+}
+
+preface_survtab.print <- function(x) {
+ surv.int <- NULL ## APPEASE R CMD CHECK
+ at <- attributes(x)$survtab.meta
+ arg <- at$arguments
+
+ cat("\n")
+ cat("Call: \n", oneWhitespace(deparse(at$call)), "\n")
+ cat("\n")
+ cat("Type arguments: \n surv.type:", as.character(arg$surv.type),
+ "--- surv.method:", as.character(arg$surv.method))
+ if (as.character(arg$surv.type) == "surv.rel")
+ cat(" --- relsurv.method:", as.character(arg$relsurv.method))
+ cat("\n \n")
+ cat("Confidence interval arguments: \n level:",
+ as.character(arg$conf.level*100), "%")
+ cat(" --- transformation:",
+ as.character(arg$conf.type))
+ cat("\n \n")
+ cat("Totals:")
+ totCat <- paste0("\n person-time:", round(sum(x$pyrs)))
+ if (arg$surv.method == "lifetable") {
+ totCat <- paste0("\n at-risk at T=0: ", round(sum(x[surv.int == 1L]$n)))
+ }
+
+ cat(totCat)
+ cat(" --- events:", sum(x$d))
+ cat("\n \n")
+ if (length(at$print.vars) > 0L) {
+ cat("Stratified by:", paste0("'", at$print.vars, "'", collapse = ", "))
+ if (length(at$adjust.vars) > 0L) cat(" --- ")
+ }
+ if (length(at$adjust.vars) > 0L) {
+ cat("Adjusted by:", paste0("'", at$adjust.vars, "'", collapse = ", "))
+ }
+ cat("\n")
+ invisible()
+}
+
+
+#' @title Print an \code{aggre} Object
+#' @author Joonas Miettinen
+#' @description Print method function for \code{aggre} objects; see
+#' \code{\link{as.aggre}} and \code{\link{aggre}}.
+#' @param x an \code{aggre} object
+#' @param subset a logical condition to subset results table by
+#' before printing; use this to limit to a certain stratum. E.g.
+#' \code{subset = sex == "male"}
+#' @param ... arguments passed to \code{print.data.table}; try e.g.
+#' \code{top = 2} for numbers of rows in head and tail printed
+#' if the table is large,
+#' \code{nrow = 100} for number of rows to print, etc.
+#' @export
+#' @return
+#' Always returns `NULL` invisibly.
+#' This function is called for its side effects.
+print.aggre <- function(x, subset = NULL, ...) {
+
+ PF <- parent.frame(1L)
+ TF <- environment()
+ sa <- attributes(x)$aggre.meta
+
+ subset <- evalLogicalSubset(x, substitute(subset), enclos = PF)
+ x <- x[subset, ]
+ setDT(x)
+
+ print(x, ...)
+ return(invisible(NULL))
+}
+
+#' @title Summarize an \code{aggre} Object
+#' @author Joonas Miettinen
+#' @description \code{summary} method function for \code{aggre} objects; see
+#' \code{\link{as.aggre}} and \code{\link{aggre}}.
+#' @param object an \code{aggre} object
+#' @param by list of columns to summarize by - e.g. \code{list(V1, V2)}
+#' where \code{V1} and \code{V2} are columns in the data.
+#' @param subset a logical condition to subset results table by
+#' before summarizing; use this to limit to a certain stratum. E.g.
+#' \code{subset = sex == "male"}
+#' @param ... unused
+#' @export
+#' @family aggregation functions
+#' @return
+#' Returns a `data.table` --- a further aggregated version of `object`.
+summary.aggre <- function(object, by = NULL, subset = NULL, ...) {
+
+ PF <- parent.frame(1L)
+ TF <- environment()
+ x <- object
+ sa <- attributes(x)$aggre.meta
+
+ subset <- evalLogicalSubset(x, substitute(subset), enclos = PF)
+ x <- x[subset, ]
+ setDT(x)
+
+ bys <- substitute(by)
+ bye <- evalPopArg(x, bys, enclos = environment(), types = c("list", "NULL"))
+
+ vals <- sa$values
+ vals <- intersect(names(x), vals)
+ if (!length(vals)) {
+ cat("No originally created value columns appear to be left in data.")
+ }
+ r <- x[, lapply(.SD, sum), by = eval(bye), .SDcols = vals]
+ r
+}
+
+#' @title Print a survtab Object
+#' @author Joonas Miettinen
+#' @description Print method function for \code{survtab} objects; see
+#' \code{\link{survtab_ag}}.
+#' @param x a \code{survtab} object
+#' @param subset a logical condition to subset results table by
+#' before printing; use this to limit to a certain stratum. E.g.
+#' \code{subset = sex == "male"}
+#' @param ... arguments passed to \code{print.data.table}; try e.g.
+#' \code{top = 2} for numbers of rows in head and tail printed
+#' if the table is large,
+#' \code{nrow = 100} for number of rows to print, etc.
+#' @export
+#' @family survtab functions
+#' @return
+#' Always returns `NULL` invisibly.
+#' This function is called for its side effects.
+print.survtab <- function(x, subset = NULL, ...) {
+
+ Tstart <- Tstop <- NULL ## APPEASE R CMD CHECK
+
+ PF <- parent.frame(1L)
+ TF <- environment()
+ sa <- attributes(x)$survtab.meta
+
+ subset <- evalLogicalSubset(x, substitute(subset), enclos = PF)
+ x <- x[subset, ]
+
+ preface_survtab.print(x)
+
+ setDT(x)
+
+ if (nrow(x) == 0L) {
+ print(x)
+ return(invisible())
+ }
+
+ pv <- as.character(sa$print.vars)
+ if (length(pv) == 0L) pv <- NULL
+
+ magicMedian <- function(x) {
+ if (length(x) %% 2L == 0L) median(x[-1L], na.rm = TRUE) else
+ median(x, na.rm = TRUE)
+ }
+
+ ## to avoid e.g. 'factor(V1, 1:2)' going bonkers
+ pv_orig <- pv
+ if (length(pv) > 0L) {
+ pv <- makeTempVarName(x, pre = paste0("print_", 1:length(pv)))
+ setnames(x, pv_orig, pv)
+ }
+
+ medmax <- x[, list(Tstop = c(magicMedian(c(min(Tstart),Tstop)), max(Tstop))), keyby = eval(pv)]
+
+ setkeyv(medmax, c(pv, "Tstop"))
+ setkeyv(x, c(pv, "Tstop"))
+ x <- x[medmax]
+
+ rv <- intersect(names(x), c(sa$est.vars, sa$CI.vars, sa$misc.vars))
+ if (length(rv)) {
+ x[, (rv) := lapply(.SD, round, digits = 4L), .SDcols = rv]
+ }
+
+ sv <- intersect(names(x), sa$SE.vars)
+ if (length(sv > 0L)) {
+ x[, c(sv) := lapply(.SD, signif, digits = 4L), .SDcols = sv]
+ }
+
+
+ setcolsnull(x, keep = c(pv, "Tstop", sa$surv.vars), colorder = TRUE)
+ if (length(pv)) setnames(x, pv, pv_orig)
+ print(data.table(x), ...)
+ return(invisible(NULL))
+}
+
+#' @title Summarize a survtab Object
+#' @author Joonas Miettinen
+#' @description Summary method function for \code{survtab} objects; see
+#' \code{\link{survtab_ag}}. Returns estimates at given time points
+#' or all time points if \code{t} and \code{q} are both \code{NULL}.
+#' @param object a \code{survtab} object
+#' @param t a vector of times at which time points (actually intervals that
+#' contain t) to print summary table of survival function estimates by strata;
+#' values not existing in any interval cause rows containing only \code{NAs} to
+#' be returned.
+#' @param q a named \code{list} of quantiles to include in returned data set,
+#' where names must match to estimates in \code{object};
+#' returns intervals where the quantiles are reached first;
+#' e.g. \code{list(surv.obs = 0.5)} finds the interval where \code{surv.obs}
+#' is 0.45 and 0.55 at the beginning and end of the interval, respectively;
+#' returns rows with \code{NA} values for quantiles not reached in estimates
+#' (e.g. if \code{q = list(surv.obs = 0.5)} but lowest estimate is 0.6);
+#' see Examples.
+#' @param subset a logical condition to subset results table by
+#' before printing; use this to limit to a certain stratum. E.g.
+#' \code{subset = sex == "male"}
+#' @param ... unused; required for congruence with other \code{summary} methods
+#'
+#' @details
+#' Note that this function returns the intervals and NOT the time points
+#' corresponding to quantiles / estimates corresponding to time points.
+#' If you want precise estimates at time points that are not interval breaks,
+#' add the time points as breaks and re-estimate the survival time function.
+#' In interval-based estimation, the estimates denote e.g. probability of
+#' dying \emph{during} the interval, so time points within the intervals
+#' are not usually considered at all. See e.g. Seppa, Dyba, and Hakulinen
+#' (2015).
+#'
+#' @references
+#' Seppa K., Dyba T. and Hakulinen T.: Cancer Survival,
+#' Reference Module in Biomedical Sciences. Elsevier. 08-Jan-2015.
+#' \doi{10.1016/B978-0-12-801238-3.02745-8}
+#'
+#' @examples
+#'
+#' library(Epi)
+#'
+#' ## NOTE: recommended to use factor status variable
+#' x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
+#' exit = list(CAL = get.yrs(ex_date)),
+#' data = sire[sire$dg_date < sire$ex_date, ],
+#' exit.status = factor(status, levels = 0:2,
+#' labels = c("alive", "canD", "othD")),
+#' merge = TRUE)
+#' ## pretend some are male
+#' set.seed(1L)
+#' x$sex <- rbinom(nrow(x), 1, 0.5)
+#' ## observed survival
+#' st <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex, data = x,
+#' surv.type = "cif.obs",
+#' breaks = list(FUT = seq(0, 5, 1/12)))
+#'
+#' ## estimates at full years of follow-up
+#' summary(st, t = 1:5)
+#'
+#' ## interval estimate closest to 75th percentile, i.e.
+#' ## first interval where surv.obs < 0.75 at end
+#' ## (just switch 0.75 to 0.5 for median survival, etc.)
+#' summary(st, q = list(surv.obs = 0.75))
+#' ## multiple quantiles
+#' summary(st, q = list(surv.obs = c(0.75, 0.90), CIF_canD = 0.20))
+#'
+#' ## if you want all estimates in a new data.frame, you can also simply do
+#'
+#' x <- as.data.frame(st)
+#' @return
+#' A `data.table`: a slice from `object` based on `t`, `subset`, and `q`.
+#' @export
+#' @family survtab functions
+summary.survtab <- function(object, t = NULL, subset = NULL, q = NULL, ...) {
+
+ PF <- parent.frame(1L)
+ at <- copy(attr(object, "survtab.meta"))
+ subr <- copy(at$surv.breaks)
+
+ if (!is.null(t) && !is.null(q)) {
+ stop("Only supply either t or q.")
+ }
+
+ sb <- substitute(subset)
+ subset <- evalLogicalSubset(object, sb, enclos = PF)
+ x <- object[subset, ]
+
+ ## to avoid e.g. 'factor(V1, 1:2)' going bonkers
+ pv_orig <- pv <- at$print.vars
+ if (length(pv) > 0L) {
+ pv <- makeTempVarName(x, pre = paste0("print_", 1:length(pv)))
+ setnames(x, pv_orig, pv)
+ }
+
+ setDT(x)
+
+ ## quantile detection --------------------------------------------------------
+ if (!is.null(q)) {
+ bn <- setdiff(names(q), at$est.vars)
+ if (length(bn) > 0L) {
+ stop("No survival time function estimates named ",
+ paste0("'", bn, "'", collapse = ", "),
+ " found in supplied survtab object. Available ",
+ "survival time function estimates: ",
+ paste0("'", at$est.vars, "'", collapse = ", "))
+ }
+
+ lapply(q, function(x) {
+ if (min(x <= 0L) || max(x >= 1L)) {
+ stop("Quantiles must be expressed as numbers between 0 and 1, ",
+ "e.g. surv.obs = 0.5.")
+ }
+ })
+
+
+ m <- x[, .SD[1, ], keyby = eval(pv)][, c(pv, "Tstop"), with = FALSE]
+ setDF(m)
+
+ rollVars <- makeTempVarName(x, pre = names(q))
+ x[, c(rollVars) := lapply(.SD, copy), .SDcols = names(q)]
+
+ m <- lapply(seq_along(q), function(i) {
+ m <- merge(m, q[[i]])
+ setnames(m, "y", rollVars[i])
+ if (length(pv)) setorderv(m, pv)
+ m[, c(pv, rollVars[i]), drop = FALSE]
+ })
+ names(m) <- names(q)
+
+ l <- vector("list", length(q))
+ names(l) <- names(q)
+ for (k in names(q)) {
+
+ l[[k]] <- setDT(x[m[[k]], on = names(m[[k]]), roll = 1L])
+
+ }
+ l <- rbindlist(l)
+ set(l, j = rollVars, value = NULL)
+ if (length(pv)) setkeyv(l, pv)
+ x <- l
+ }
+
+ ## time point detection ------------------------------------------------------
+
+ if (!is.null(t)) {
+
+ tcutv <- makeTempVarName(x, pre = "cut_time_")
+
+ set(x, j = tcutv, value = cut(x$Tstop, breaks = subr, right = TRUE,
+ include.lowest = FALSE))
+ cutt <- cut(t, breaks = subr, right = TRUE, include.lowest = FALSE)
+
+ l <- list(cutt)
+ names(l) <- tcutv
+ if (length(pv)) {
+ pvdt <- setDF(unique(x, by = pv))[, pv, drop = FALSE]
+ l <- setDT(merge(pvdt, as.data.frame(l)))
+ setkeyv(l, pv)
+ }
+
+ x <- x[l, on = c(pv, tcutv)]
+
+ set(x, j = tcutv, value = NULL)
+ if (length(pv)) setkeyv(x, pv)
+ }
+
+
+ ## final touches -------------------------------------------------------------
+ if (length(pv) > 0L) setnames(x, pv, pv_orig)
+
+ if (!return_DT()) setDFpe(x)
+
+ x
+}
+
+#' @export
+`[.survtab` <- function(x, ...) {
+ y <- NextMethod()
+ if (is.data.frame(y)) {
+ setattr(y, "class", class(x))
+ setattr(y, "survtab.meta", attr(x, "survtab.meta"))
+ }
+ y
+}
+
+#' @export
+subset.survtab <- function(x, ...) {
+ y <- NextMethod()
+ if (is.data.frame(y)) {
+ setattr(y, "class", class(x))
+ setattr(y, "survtab.meta", attr(x, "survtab.meta"))
+ }
+ y
+}
+
+
+#' @export
+`[.survmean` <- function(x, ...) {
+ y <- NextMethod()
+ if (is.data.frame(y)) {
+ setattr(y, "class", class(x))
+ setattr(y, "survmean.mean", attr(x, "survmean.mean"))
+ }
+ y
+}
+
+
+#' @export
+subset.survmean <- function(x, ...) {
+ y <- NextMethod()
+ if (is.data.frame(y)) {
+ setattr(y, "class", class(x))
+ setattr(y, "survmean.mean", attr(x, "survmean.mean"))
+ }
+ y
+}
+
+#' @export
+`[.rate` <- function(x, ...) {
+ y <- NextMethod()
+ if (is.data.frame(y)) {
+ setattr(y, "class", class(x))
+ setattr(y, "rate.meta", attr(x, "rate.meta"))
+ }
+ y
+}
+
+#' @export
+subset.rate <- function(x, ...) {
+ y <- NextMethod()
+ if (is.data.frame(y)) {
+ setattr(y, "class", class(x))
+ setattr(y, "rate.meta", attr(x, "rate.meta"))
+ }
+ y
+}
+
+
+
+
+
+prep_plot_survtab <- function(x,
+ y = NULL,
+ subset = NULL,
+ conf.int = TRUE,
+ enclos = parent.frame(1L),
+ ...) {
+
+ ## subsetting ----------------------------------------------------------------
+ subset <- evalLogicalSubset(data = x, substiset = substitute(subset),
+ enclos = environment())
+
+ attrs <- attributes(x)
+
+ if (!inherits(x, "survtab")) stop("x is not a survtab object")
+ if (is.null(attrs$survtab.meta)) {
+ stop("Missing meta information (attributes) in survtab object; ",
+ "have you tampered with it after estimation?")
+ }
+ strata.vars <- attrs$survtab.meta$print.vars
+ x <- copy(x)
+ setDT(x)
+ x <- x[subset, ]
+
+ ## detect survival variables in data -----------------------------------------
+ surv_vars <- c("surv.obs","CIF.rel","CIF_","r.e2","r.pp")
+ wh <- NULL
+ for (k in surv_vars) {
+ wh <- c(wh, which(substr(names(x), 1, nchar(k)) == k))
+ }
+ surv_vars <- names(x)[wh]
+ surv_vars <- surv_vars[!substr(surv_vars, nchar(surv_vars)-1, nchar(surv_vars)) %in% c("hi","lo")]
+ if (length(surv_vars) == 0) {
+ stop("x does not appear to have any survival variables; ",
+ "did you tamper with it after estimation?")
+ }
+
+
+ ## getting y -----------------------------------------------------------------
+ if (!is.null(y)) {
+ if (!is.character(y)) {
+ stop("please supply y as a character string indicating ",
+ "the name of a variable in x")
+ }
+ if (length(y) > 1) stop("y must be of length 1 or NULL")
+ if (!all_names_present(x, y, stops = FALSE)) {
+ stop("Given survival variable in argument 'y' ",
+ "not present in survtab object ('", y, "')")
+ }
+ } else {
+ y <- surv_vars[length(surv_vars)]
+ if (length(surv_vars) > 1L) message("y was NULL; chose ", y, " automatically")
+ }
+ rm(surv_vars)
+
+ if (substr(y, 1, 3) == "CIF" && conf.int) {
+ stop("No confidence intervals currently supported for CIFs. ",
+ "Hopefully they will be added in a future version; ",
+ "meanwhile use conf.int = FALSE when plotting CIFs.")
+ }
+
+
+ ## confidence intervals ------------------------------------------------------
+ y.lo <- y.hi <- y.ci <- NULL
+ if (conf.int) {
+
+ y.lo <- paste0(y, ".lo")
+ y.hi <- paste0(y, ".hi")
+ y.ci <- c(y.lo, y.hi)
+
+ badCIvars <- setdiff(y.ci, names(x))
+ if (sum(length(badCIvars))) {
+ stop("conf.int = TRUE, but missing confidence interval ",
+ "variables in data for y = '", y, "' (could not detect ",
+ "variables named", paste0("'", badCIvars, "'", collapse = ", ") ,")")
+ }
+
+ }
+
+ list(x = x, y = y, y.ci = y.ci, y.lo = y.lo, y.hi = y.hi,
+ strata = strata.vars, attrs = attrs)
+
+}
+
+
+
+
+
+#' \code{plot} method for survtab objects
+#'
+#' Plotting for \code{survtab} objects
+#'
+#' @import graphics
+#'
+#' @author Joonas Miettinen
+#'
+#' @param x a \code{survtab} output object
+#' @param y survival a character vector of a variable names to plot;
+#' e.g. \code{y = "r.e2"}
+#' @param subset a logical condition; \code{obj} is subset accordingly
+#' before plotting; use this for limiting to specific strata,
+#' e.g. \code{subset = sex == "male"}
+#' @param conf.int logical; if \code{TRUE}, also plots any confidence intervals
+#' present in \code{obj} for variables in \code{y}
+#' @param col line colour; one value for each stratum; will be recycled
+#' @param lty line type; one value for each stratum; will be recycled
+#' @param ylab label for Y-axis
+#' @param xlab label for X-axis
+#' @param ... additional arguments passed on to \code{plot} and
+#' \code{lines.survtab}; e.g. \code{ylim} can be defined this way
+#' @examples
+#' data(sire)
+#' data(sibr)
+#' si <- rbind(sire, sibr)
+#' si$period <- cut(si$dg_date, as.Date(c("1993-01-01", "2004-01-01", "2013-01-01")), right = FALSE)
+#' si$cancer <- c(rep("rectal", nrow(sire)), rep("breast", nrow(sibr)))
+#' x <- lexpand(si, birth = bi_date, entry = dg_date, exit = ex_date,
+#' status = status %in% 1:2,
+#' fot = 0:5, aggre = list(cancer, period, fot))
+#' st <- survtab_ag(fot ~ cancer + period, data = x,
+#' surv.method = "lifetable", surv.type = "surv.obs")
+#'
+#' plot(st, "surv.obs", subset = cancer == "breast", ylim = c(0.5, 1), col = "blue")
+#' lines(st, "surv.obs", subset = cancer == "rectal", col = "red")
+#'
+#' ## or
+#' plot(st, "surv.obs", col = c(2,2,4,4), lty = c(1, 2, 1, 2))
+#' @export
+#' @family survtab functions
+#' @return
+#' Always returns `NULL` invisibly.
+#' This function is called for its side effects.
+plot.survtab <- function(x, y = NULL, subset=NULL, conf.int=TRUE, col=NULL,lty=NULL, ylab = NULL, xlab = NULL, ...) {
+
+ Tstop <- delta <- NULL ## APPEASE R CMD CHECK
+ ## prep ----------------------------------------------------------------------
+ PF <- parent.frame(1L)
+ subset <- substitute(subset)
+ subset <- evalLogicalSubset(data = x, subset, enclos = PF)
+
+ l <- prep_plot_survtab(x = x, y = y, subset = subset,
+ conf.int = conf.int, enclos = PF)
+ x <- l$x
+ y <- l$y
+ y.ci <- l$y.ci
+ y.lo <- l$y.lo
+ y.hi <- l$y.hi
+
+ ## figure out limits, etc. to pass to plot() ---------------------------------
+
+ min_y <- do.call("min", c(mget(c(y, y.lo), as.environment(x)), na.rm = TRUE))
+ min_y <- max(min_y, 0)
+ max_y <- max(x[[y]], na.rm=TRUE)
+
+ if (substr(y, 1, 3) == "CIF") {
+ min_y <- 0.0
+ } else {
+ max_y <- max(1.0, max_y)
+ }
+
+ max_x <- max(x[, Tstop])
+ min_x <- min(x[, Tstop-delta])
+
+ if (is.null(ylab)) {
+ ylab <- "Observed survival"
+ if (substr(y[1], 1,4) %in% c("r.e2", "r.pp")) ylab <- "Net survival"
+ if (substr(y[1], 1,4) == "CIF_") ylab <- "Absolute risk"
+ if (substr(y[1], 1,6) == "CIF.rel") ylab <- "Absolute risk"
+ }
+ if (is.null(xlab)) xlab <- "Time from entry"
+
+ ## attributes insurance to pass to lines.survtab
+ setattr(x, "survtab.meta", l$attrs$survtab.meta)
+ setattr(x, "class", c("survtab", "data.table", "data.frame"))
+
+ ## plotting ------------------------------------------------------------------
+ plot(I(c(min_y,max_y))~I(c(min_x,max_x)), data=x, type="n",
+ xlab = xlab, ylab = ylab, ...)
+
+
+ lines.survtab(x, subset = NULL, y = y, conf.int=conf.int,
+ col=col, lty=lty, ...)
+
+ return(invisible(NULL))
+}
+
+
+#' \code{lines} method for survtab objects
+#'
+#' Plot \code{lines} from a \code{survtab} object
+#'
+#' @import graphics
+#'
+#' @author Joonas Miettinen
+#'
+#' @param x a \code{survtab} output object
+#' @param y a variable to plot; a quoted name of a variable
+#' in \code{x}; e.g. \code{y = "surv.obs"};
+#' if \code{NULL}, picks last survival variable column in order in \code{x}
+#' @param subset a logical condition; \code{obj} is subset accordingly
+#' before plotting; use this for limiting to specific strata,
+#' e.g. \code{subset = sex == "male"}
+#' @param conf.int logical; if \code{TRUE}, also plots any confidence intervals
+#' present in \code{obj} for variables in \code{y}
+#' @param col line colour passed to \code{matlines}
+#' @param lty line type passed to \code{matlines}
+#' @param ... additional arguments passed on to to a \code{matlines} call;
+#' e.g. \code{lwd} can be defined this way
+#' @examples
+#' data(sire)
+#' data(sibr)
+#' si <- rbind(sire, sibr)
+#' si$period <- cut(si$dg_date, as.Date(c("1993-01-01", "2004-01-01", "2013-01-01")), right = FALSE)
+#' si$cancer <- c(rep("rectal", nrow(sire)), rep("breast", nrow(sibr)))
+#' x <- lexpand(si, birth = bi_date, entry = dg_date, exit = ex_date,
+#' status = status %in% 1:2,
+#' fot = 0:5, aggre = list(cancer, period, fot))
+#' st <- survtab_ag(fot ~ cancer + period, data = x,
+#' surv.method = "lifetable", surv.type = "surv.obs")
+#'
+#' plot(st, "surv.obs", subset = cancer == "breast", ylim = c(0.5, 1), col = "blue")
+#' lines(st, "surv.obs", subset = cancer == "rectal", col = "red")
+#'
+#' ## or
+#' plot(st, "surv.obs", col = c(2,2,4,4), lty = c(1, 2, 1, 2))
+#' @export
+#' @family survtab functions
+#' @return
+#' Always returns `NULL` invisibly.
+#' This function is called for its side effects.
+lines.survtab <- function(x, y = NULL, subset = NULL,
+ conf.int = TRUE, col=NULL, lty=NULL, ...) {
+ Tstop <- NULL ## APPEASE R CMD CHECK
+ ## prep ----------------------------------------------------------------------
+ PF <- parent.frame(1L)
+ global_breaks <- attr(x, "survtab.meta")$surv.breaks
+
+ subset <- substitute(subset)
+ subset <- evalLogicalSubset(data = x, subset, enclos = PF)
+
+
+ l <- prep_plot_survtab(x = x, y = y, subset = subset,
+ conf.int = conf.int, enclos = environment())
+ x <- l$x
+ y <- l$y
+ y.ci <- l$y.ci
+ y.lo <- l$y.lo
+ y.hi <- l$y.hi
+ strata <- l$strata ## character vector of var names
+
+
+ ## impute first values (time = 0, surv = 1 / cif = 0) ------------------------
+
+ is_CIF <- if (substr(y, 1, 3) == "CIF") TRUE else FALSE
+ setkeyv(x, c(strata, "Tstop"))
+ first <- x[1, ]
+ if (length(strata)) first <- unique(x, by = strata)
+ first[, c(y) := ifelse(is_CIF, 0, 1)]
+ first$Tstop <- min(global_breaks)
+
+ if (length(y.ci) > 0) first[, (y.ci) := get(y) ]
+ x <- rbindlist(list(first, x[, ]), use.names = TRUE)
+ setkeyv(x, c(strata, "Tstop"))
+
+ ## plotting ------------------------------------------------------------------
+
+ if (is.null(lty)) {
+ lty <- list(c(1,2,2))
+ if (!length(y.ci)) lty <- list(1)
+ }
+
+ lines_by(x = "Tstop", y = c(y, y.ci),
+ strata.vars = strata,
+ data = x, col = col, lty = lty, ...)
+
+ return(invisible(NULL))
+}
+
+
+
+lines_by <- function(x, y, strata.vars = NULL, data, col, lty, ...) {
+ ## INTENTION: plots lines separately by strata,
+ ## which may have different colours / linetypes.
+ ## @param x a variable to plot y by; a character string
+ ## @param y a character vector of variables to plot by x;
+ ## e.g. the estimate and confidence interval variables
+ ## @param strata.vars a character string vector; variables
+ ## to add lines by, which may have different colours etc for identification
+ ## @param data a data.frame where x, y, and strata.vars are found
+ ## @param col a vector of colors passed to lines(); if vector length 1,
+ ## used for each level of strata. If vector length > 1,
+ ## has to match to total number of strata. If list, must match
+ ## to number of strata by length and contain elements of length
+ ## length(y).
+ ## @param see col; line type passed to lines().
+ ## @param ... other arguments passed on to lines().
+
+ TF <- environment()
+ PF <- parent.frame(1L)
+
+ stopifnot(is.data.frame(data))
+ stopifnot(is.character(x) && length(x) == 1L)
+ stopifnot(is.character(y) && length(y) > 0L)
+ stopifnot(is.character(strata.vars) || is.null(strata.vars))
+ all_names_present(data, c(x,y,strata.vars))
+
+ d <- mget(c(strata.vars, y, x), envir = as.environment(data))
+ setDT(d)
+ setkeyv(d, c(strata.vars, x))
+
+ ## create list of datas
+ l <- list(d)
+ inter <- 1L
+ if (length(strata.vars)) {
+ inter <- do.call(interaction, d[, strata.vars, with = FALSE])
+ l <- vector("list", uniqueN(inter))
+ l <- split(d, f = inter, drop = TRUE)
+ }
+
+ l <- lapply(l, function(tab) {
+ setDT(tab)
+ setcolsnull(tab, keep = c(x, y))
+ tab
+ })
+
+
+ ## figure out colours and ltys
+ for (objname in c("col", "lty")) {
+ obj <- TF[[objname]]
+
+ if (missing(obj) || !length(obj)) obj <- 1
+ if (!length(obj) %in% c(1, length(l))) {
+ stop("Argument ", objname, " is not of length 1 or ",
+ "of length equal to total number of strata (",
+ length(l), ").")
+ }
+
+ ol <- unlist(lapply(obj, length))
+ if (length(y) > 1 && is.list(obj) && !all(ol %in% c(1, length(y)))) {
+ stop("Argument y is of length > 1, and you passed ",
+ objname, " as a list of values, but at least one element is not ",
+ "of length 1 or length(y).")
+ }
+
+ ## NOTE: rep works for vector and list just the same
+ if (length(obj) == 1) obj <- rep(obj, length(l))
+ obj <- as.list(obj)
+
+ assign(x = objname, value = obj)
+ }
+
+ lapply(seq_along(l), function(i) {
+
+ tab <- l[[i]]
+ cols <- col[[i]]
+ ltys <- lty[[i]]
+
+ matlines(x = tab[[x]], y = tab[, y, with = FALSE],
+ col = cols, lty = ltys, ...)
+
+ })
+
+ invisible(NULL)
+}
+
+
+
+
+#' @title Graphically Inspect Curves Used in Mean Survival Computation
+#' @description Plots the observed (with extrapolation) and expected survival
+#' curves for all strata in an object created by \code{\link{survmean}}
+#' @author Joonas Miettinen
+#' @param x a \code{survmean} object
+#' @param ... arguments passed (ultimately) to \code{matlines}; you
+#' may, therefore, supply e.g. \code{xlab} through this, though arguments
+#' such as \code{lty} and \code{col} will not work
+#' @details
+#'
+#' For examples see \code{\link{survmean}}. This function is intended only
+#' for graphically inspecting that the observed survival curves with extrapolation
+#' and the expected survival curves have been sensibly computed in \code{survmean}.
+#'
+#' If you want finer control over the plotted curves, extract the curves from
+#' the \code{survmean} output using
+#'
+#' \code{attr(x, "curves")}
+#'
+#' where \code{x} is a \code{survmean} object.
+#' @export
+#' @family survmean functions
+#' @return
+#' Always returns `NULL` invisibly.
+#' This function is called for its side effects.
+plot.survmean <- function(x, ...) {
+ at <- attr(x, "survmean.meta")
+ curves <- at$curves
+ if (is.null(curves)) {
+ stop("no curves information in x; sometimes lost if x ",
+ "altered after using survmean")
+ }
+
+ by.vars <- at$tprint
+ by.vars <- c(by.vars, at$tadjust)
+ by.vars <- intersect(by.vars, names(curves))
+ if (!length(by.vars)) by.vars <- NULL
+
+ plot(curves$surv ~ curves$Tstop, type="n",
+ xlab = "Time from entry", ylab = "Survival")
+ lines.survmean(x, ...)
+
+ subr <- at$breaks[[at$survScale]]
+ abline(v = max(subr), lty=2, col="grey")
+
+ if (length(by.vars)) {
+ ## add legend denoting colors
+ Stratum <- curves[, unique(interaction(.SD)), .SDcols = eval(by.vars)]
+ legend(x = "topright", legend = Stratum, col = seq_along(Stratum), lty = 1)
+ }
+ return(invisible(NULL))
+}
+
+#' @title Graphically Inspect Curves Used in Mean Survival Computation
+#' @description Plots the observed (with extrapolation) and expected survival
+#' curves for all strata in an object created by \code{\link{survmean}}
+#' @author Joonas Miettinen
+#' @param x a \code{survmean} object
+#' @param ... arguments passed (ultimately) to \code{matlines}; you
+#' may, therefore, supply e.g. \code{lwd} through this, though arguments
+#' such as \code{lty} and \code{col} will not work
+#' @details
+#'
+#' This function is intended to be a workhorse for \code{\link{plot.survmean}}.
+#' If you want finer control over the plotted curves, extract the curves from
+#' the \code{survmean} output using
+#'
+#' \code{attr(x, "curves")}
+#'
+#' where \code{x} is a \code{survmean} object.
+#' @export
+#' @family survmean functions
+#' @return
+#' Always returns `NULL` invisibly.
+#' This function is called for its side effects.
+lines.survmean <- function(x, ...) {
+ at <- copy(attr(x, "survmean.meta"))
+ curves <- at$curves
+ if (is.null(curves)) stop("no curves information in x; usually lost if x altered after using survmean")
+
+ by.vars <- at$tprint
+ by.vars <- c(by.vars, at$tadjust)
+ by.vars <- c("survmean_type", by.vars)
+ by.vars <- intersect(by.vars, names(curves))
+ if (!length(by.vars)) by.vars <- NULL
+
+ curves <- data.table(curves)
+ setkeyv(curves, c(by.vars, "Tstop"))
+
+ type_levs <- length(levels(interaction(curves[, c(by.vars), with=FALSE])))/2L
+ other_levs <- 1L
+ if (length(by.vars) > 1) {
+ other_levs <- length(levels(interaction(curves[, setdiff(by.vars, "survmean_type"), with=FALSE])))
+ }
+
+ curves <- cast_simple(curves, columns = by.vars, rows = "Tstop", values = "surv")
+ matlines(x=curves$Tstop, y=curves[, setdiff(names(curves), "Tstop"), with=FALSE],
+ lty = rep(1:2, each=type_levs), col = 1:other_levs, ...)
+ return(invisible(NULL))
+}
+
+
+
+
+
+
+
+#' @export
+getCall.survtab <- function(x, ...) {
+ attributes(x)$survtab.meta$call
+}
+
+
+#' @export
+formula.survtab <- function(x, ...) {
+ attr(x, "survtab.meta")$arguments$formula
+}
+
+
+
+
+
+#' @export
+getCall.survmean <- function(x, ...) {
+ attributes(x)$survmean.meta$call
+}
+
+
+#' @export
+formula.survmean <- function(x, ...) {
+ attr(x, "survmean.meta")$formula
+}
+
+
+
diff --git a/R/Surv.R b/R/Surv.R
index 52f26ce..c83d3f2 100644
--- a/R/Surv.R
+++ b/R/Surv.R
@@ -1,70 +1,70 @@
-
-
-
-
-
-#' @md
-#' @title Survival Objects
-#' @description
-#' Wrapper for [survival::Surv].
-#' @param time see [survival::Surv]
-#' @param time2 see [survival::Surv]
-#' @param event see [survival::Surv]
-#' @param type see [survival::Surv]
-#' @param origin see [survival::Surv]
-#' @section Surv in survival vs. in popEpi:
-#' `popEpi::Surv` is a wrapper for [survival::Surv].
-#' Therefore you don't need to to do `library("survival")` when using `Surv`
-#' with e.g.
-#' \code{\link{survtab}}. Remember that if you do `library("survival")` after
-#' `library("popEpi")`, the `Surv` from \pkg{survival} is used instead of
-#' from \pkg{popEpi} (`R` throws a warning about this) when an expression
-#' such as `Surv(my_times, my_events)` is evaluated. You can avoid such
-#' conflicts by writing e.g. `popEpi::Surv(my_times, my_events)` instead.
-#' However, `popEpi::Surv` is designed in such a way that this should not
-#' become a problem and you should be able to use the two interchangeably.
-#' @export
-#' @family main functions
-#' @family survtab functions
-#' @family survmean functions
-#' @importFrom survival Surv
-#' @return
-#' See `[survival::Surv]`.
-#'
-Surv <- function(
- time,
- time2,
- event,
- type = c("right", "left", "interval", "counting", "interval2", "mstate"),
- origin = 0
-) {
-
- pf <- parent.frame(1)
- arg_nms <- names(formals(Surv))
- test_env <- environment()
- is_missing <- vapply(arg_nms, function(arg_nm) {
- eval(substitute(
- missing(OBJ),
- list(OBJ = parse(text = arg_nm)[[1]])
- ), envir = test_env)
- }, logical(1))
- pass_arg_nms <- arg_nms[!is_missing]
- pass_arg_nms <- intersect(pass_arg_nms, names(formals(survival::Surv)))
-
- pass_arg_list <- mget(pass_arg_nms)
- eval_env <- as.environment(pass_arg_list)
- parent.env(eval_env) <- pf
- expr_args <- lapply(pass_arg_nms, function(stri) {
- parse(text = stri)[[1]]
- })
- names(expr_args) <- pass_arg_nms
- surv_expr <- as.call(c(
- quote(survival::Surv),
- expr_args
- ))
- eval(surv_expr, envir = eval_env)
-}
-
-
-
-
+
+
+
+
+
+#' @md
+#' @title Survival Objects
+#' @description
+#' Wrapper for [survival::Surv].
+#' @param time see [survival::Surv]
+#' @param time2 see [survival::Surv]
+#' @param event see [survival::Surv]
+#' @param type see [survival::Surv]
+#' @param origin see [survival::Surv]
+#' @section Surv in survival vs. in popEpi:
+#' `popEpi::Surv` is a wrapper for [survival::Surv].
+#' Therefore you don't need to to do `library("survival")` when using `Surv`
+#' with e.g.
+#' \code{\link{survtab}}. Remember that if you do `library("survival")` after
+#' `library("popEpi")`, the `Surv` from \pkg{survival} is used instead of
+#' from \pkg{popEpi} (`R` throws a warning about this) when an expression
+#' such as `Surv(my_times, my_events)` is evaluated. You can avoid such
+#' conflicts by writing e.g. `popEpi::Surv(my_times, my_events)` instead.
+#' However, `popEpi::Surv` is designed in such a way that this should not
+#' become a problem and you should be able to use the two interchangeably.
+#' @export
+#' @family main functions
+#' @family survtab functions
+#' @family survmean functions
+#' @importFrom survival Surv
+#' @return
+#' See `[survival::Surv]`.
+#'
+Surv <- function(
+ time,
+ time2,
+ event,
+ type = c("right", "left", "interval", "counting", "interval2", "mstate"),
+ origin = 0
+) {
+
+ pf <- parent.frame(1)
+ arg_nms <- names(formals(Surv))
+ test_env <- environment()
+ is_missing <- vapply(arg_nms, function(arg_nm) {
+ eval(substitute(
+ missing(OBJ),
+ list(OBJ = parse(text = arg_nm)[[1]])
+ ), envir = test_env)
+ }, logical(1))
+ pass_arg_nms <- arg_nms[!is_missing]
+ pass_arg_nms <- intersect(pass_arg_nms, names(formals(survival::Surv)))
+
+ pass_arg_list <- mget(pass_arg_nms)
+ eval_env <- as.environment(pass_arg_list)
+ parent.env(eval_env) <- pf
+ expr_args <- lapply(pass_arg_nms, function(stri) {
+ parse(text = stri)[[1]]
+ })
+ names(expr_args) <- pass_arg_nms
+ surv_expr <- as.call(c(
+ quote(survival::Surv),
+ expr_args
+ ))
+ eval(surv_expr, envir = eval_env)
+}
+
+
+
+
diff --git a/R/aggregating.R b/R/aggregating.R
index 237db86..15cce53 100644
--- a/R/aggregating.R
+++ b/R/aggregating.R
@@ -1,622 +1,622 @@
-
-#' @title Set \code{aggre} attributes to an object by modifying in place
-#' @author Joonas Miettinen
-#' @description Coerces an R object to an \code{aggre} object, identifying
-#' the object as one containing aggregated counts, person-years and other
-#' information. \code{setaggre} modifies in place without taking any copies.
-#' Retains all other attributes.
-#' @param x a \code{data.frame} or \code{data.table}
-#' @param values a character string vector; the names of value variables
-#' @param by a character string vector; the names of variables by which
-#' \code{values} have been tabulated
-#' @param breaks a list of breaks, where each element is a breaks vector
-#' as usually passed to e.g. \code{\link{splitLexisDT}}. The list must be
-#' fully named, with the names corresponding to time scales at the aggregate
-#' level in your data. Every unique value in a time scale variable in data must
-#' also exist in the corresponding vector in the breaks list.
-#' @details
-#'
-#' \code{setaggre} sets \code{x} to the \code{aggre} class in place
-#' without taking a copy as e.g. \code{as.data.frame.XXX} functions do; see e.g.
-#' \code{\link[data.table]{setDT}}.
-#'
-#' @family aggregation functions
-#' @return
-#' Returns `x` invisibly after setting attributes to it without taking a copy.
-#' This function is called for its side effects.
-#' @export setaggre
-#' @examples
-#' df <- data.frame(sex = rep(c("male", "female"), each = 5),
-#' obs = rpois(10, rep(7,5, each=5)),
-#' pyrs = rpois(10, lambda = 10000))
-#' ## without any breaks
-#' setaggre(df, values = c("obs", "pyrs"), by = "sex")
-#' df <- data.frame(df)
-#' df$FUT <- 0:4
-#' ## with breaks list
-#' setaggre(df, values = c("obs", "pyrs"), by = "sex", breaks = list(FUT = 0:5))
-setaggre <- function(x, values = NULL, by = NULL, breaks = NULL) {
- ## input: aggregated data in data.frame or data.table format
- ## intention: any user can define their data as an aggregated data set
- ## which will be usable by survtab / sir / other
- ## output: no need to do x <- setaggre(x); instead modifies attributes in place;
- ## sets "aggre.meta" attribute, a list of names of various variables.
- ## survtab for aggregated data will need this attribute to work.
- all_names_present(x, c(values, by))
-
- if (!length(by) && length(values)) by <- setdiff(names(x), values)
- if (length(by) && !length(values)) values <- setdiff(names(x), by)
-
- if (!inherits(x, "aggre")) {
- cl <- class(x)
- wh <- which(cl %in% c("data.table", "data.frame"))
- wh <- min(wh)
-
- ## yes, from zero: in case only one class
- cl <- c(cl[0:(wh-1)], "aggre", cl[wh:length(cl)])
- setattr(x, "class", cl)
- }
-
-
- setattr(x, "aggre.meta", list(values = values, by = by, breaks = breaks))
- setattr(x, "breaks", breaks)
- invisible(x)
-}
-
-#' @title Coercion to Class \code{aggre}
-#' @author Joonas Miettinen
-#' @description Coerces an R object to an \code{aggre} object, identifying
-#' the object as one containing aggregated counts, person-years and other
-#' information.
-#' @inheritParams setaggre
-#' @param ... arguments passed to or from methods
-#' @family aggregation functions
-#'
-#'
-#' @examples
-#' library("data.table")
-#' df <- data.frame(sex = rep(c("male", "female"), each = 5),
-#' obs = rpois(10, rep(7,5, each=5)),
-#' pyrs = rpois(10, lambda = 10000))
-#' dt <- as.data.table(df)
-#'
-#' df <- as.aggre(df, values = c("pyrs", "obs"), by = "sex")
-#' dt <- as.aggre(dt, values = c("pyrs", "obs"), by = "sex")
-#'
-#' class(df)
-#' class(dt)
-#'
-#' BL <- list(fot = 0:5)
-#' df <- data.frame(df)
-#' df <- as.aggre(df, values = c("pyrs", "obs"), by = "sex", breaks = BL)
-#'
-#' @return
-#' Returns a copy of `x` with attributes set to those of an object of class
-#' `"aggre"`.
-#' @export
-as.aggre <- function(x, values = NULL, by = NULL, breaks = NULL, ...) {
- UseMethod("as.aggre", x)
-}
-
-#' @describeIn as.aggre Coerces a \code{data.frame} to an \code{aggre} object
-#' @export
-as.aggre.data.frame <- function(x, values = NULL, by = NULL, breaks = NULL, ...) {
- x <- copy(x)
- setaggre(x, values = values, by = by, breaks = breaks, ...)
- setattr(x, "class", c("aggre", "data.frame"))
- x[]
-}
-
-#' @describeIn as.aggre Coerces a \code{data.table} to an \code{aggre} object
-#' @export
-as.aggre.data.table <- function(x, values = NULL, by = NULL, breaks = NULL, ...) {
- x <- copy(x)
- setaggre(x, values = values, by = by, breaks = breaks, ...)
- setattr(x, "class", c("aggre", "data.table", "data.frame"))
- x[]
-}
-
-#' @describeIn as.aggre Default method for \code{as.aggre} (stops computations
-#' if no class-specific method found)
-#' @export
-as.aggre.default <- function(x, ...) {
- stop(gettextf("cannot coerce class \"%s\" to 'aggre'", deparse(class(x))),
- domain = NA)
-}
-
-
-
-#' @title Aggregation of split \code{Lexis} data
-#' @author Joonas Miettinen
-#' @description Aggregates a split \code{Lexis} object by given variables
-#' and / or expressions into a long-format table of person-years and
-#' transitions / end-points. Automatic aggregation over time scales
-#' by which data has been split if the respective time scales are mentioned
-#' in the aggregation argument to e.g. intervals of calendar time, follow-up time
-#' and/or age.
-#' @param lex a \code{Lexis} object split with e.g.
-#' \code{\link[Epi]{splitLexis}} or \code{\link{splitMulti}}
-#' @param by variables to tabulate (aggregate) by.
-#' \link[=flexible_argument]{Flexible input}, typically e.g.
-#' \code{by = c("V1", "V2")}. See Details and Examples.
-#' @param type determines output levels to which data is aggregated varying
-#' from returning only rows with \code{pyrs > 0} (\code{"unique"}) to
-#' returning all possible combinations of variables given in \code{aggre} even
-#' if those combinations are not represented in data (\code{"full"});
-#' see Details
-#' @param sum.values optional: additional variables to sum by argument
-#' \code{by}. \link[=flexible_argument]{Flexible input}, typically e.g.
-#' \code{sum.values = c("V1", "V2")}
-#' @param subset a logical condition to subset by before computations;
-#' e.g. \code{subset = area \%in\% c("A", "B")}
-#' @param verbose \code{logical}; if \code{TRUE}, the function returns timings
-#' and some information useful for debugging along the aggregation process
-#' @details
-#'
-#' \strong{Basics}
-#'
-#' \code{aggre} is intended for aggregation of split \code{Lexis} data only.
-#' See \code{\link[Epi]{Lexis}} for forming \code{Lexis} objects by hand
-#' and e.g. \code{\link[Epi]{splitLexis}}, \code{\link{splitLexisDT}}, and
-#' \code{\link{splitMulti}} for splitting the data. \code{\link{lexpand}}
-#' may be used for simple data sets to do both steps as well as aggregation
-#' in the same function call.
-#'
-#' Here aggregation refers to computing person-years and the appropriate events
-#' (state transitions and end points in status) for the subjects in the data.
-#' Hence, it computes e.g. deaths (end-point and state transition) and
-#' censorings (end-point) as well as events in a multi-state setting
-#' (state transitions).
-#'
-#' The result is a long-format \code{data.frame} or \code{data.table}
-#' (depending on \code{options("popEpi.datatable")}; see \code{?popEpi})
-#' with the columns \code{pyrs} and the appropriate transitions named as
-#' \code{fromXtoY}, e.g. \code{from0to0} and \code{from0to1} depending
-#' on the values of \code{lex.Cst} and \code{lex.Xst}.
-#'
-#'
-#' \strong{The by argument}
-#'
-#' The \code{by} argument determines the length of the table, i.e.
-#' the combinations of variables to which data is aggregated.
-#' \code{by} is relatively flexible, as it can be supplied as
-#'
-#' \itemize{
-#' \item{a character string vector, e.g. \code{c("sex", "area")},
-#' naming variables existing in \code{lex}}
-#' \item{an expression, e.g. \code{factor(sex, 0:1, c("m", "f"))}
-#' using any variable found in \code{lex}}
-#' \item{a list (fully or partially named) of expressions, e.g.
-#' \code{list(gender = factor(sex, 0:1, c("m", "f"), area)}}
-#' }
-#'
-#' Note that expressions effectively allow a variable to be supplied simply as
-#' e.g. \code{by = sex} (as a symbol/name in R lingo).
-#'
-#' The data is then aggregated to the levels of the given variables
-#' or expression(s). Variables defined to be time scales in the supplied
-#' \code{Lexis} are processed in a special way: If any are mentioned in the
-#' \code{by} argument, intervals of them are formed based on the breaks
-#' used to split the data: e.g. if \code{age} was split using the breaks
-#' \code{c(0, 50, Inf)}, mentioning \code{age} in \code{by} leads to
-#' creating the \code{age} intervals \code{[0, 50)} and \code{[50, Inf)}
-#' and aggregating to them. The intervals are identified in the output
-#' as the lower bounds of the appropriate intervals.
-#'
-#' The order of multiple time scales mentioned in \code{by} matters,
-#' as the last mentioned time scale is assumed to be a survival time scale
-#' for when computing event counts. E.g. when the data is split by the breaks
-#' \code{list(FUT = 0:5, CAL = c(2008,2010))}, time lines cut short at
-#' \code{CAL = 2010} are considered to be censored, but time lines cut short at
-#' \code{FUT = 5} are not. See Return.
-#'
-#' \strong{Aggregation types (styles)}
-#'
-#' It is almost always enough to aggregate the data to variable levels
-#' that are actually represented in the data
-#' (default \code{aggre = "unique"}; alias \code{"non-empty"}).
-#' For certain uses it may be useful
-#' to have also "empty" levels represented (resulting in some rows in output
-#' with zero person-years and events); in these cases supplying
-#' \code{aggre = "full"} (alias \code{"cartesian"}) causes \code{aggre}
-#' to determine the Cartesian product of all the levels of the supplied
-#' \code{by} variables or expressions and aggregate to them. As an example
-#' of a Cartesian product, try
-#'
-#' \code{merge(1:2, 1:5)}.
-#'
-#' @return
-#' A long \code{data.frame} or \code{data.table} of aggregated person-years
-#' (\code{pyrs}), numbers of subjects at risk (\code{at.risk}), and events
-#' formatted \code{fromXtoY}, where \code{X} and \code{X} are states
-#' transitioning from and to or states at the end of each \code{lex.id}'s
-#' follow-up (implying \code{X} = \code{Y}). Subjects at risk are computed
-#' in the beginning of an interval defined by any Lexis time scales and
-#' mentioned in \code{by}, but events occur at any point within an interval.
-#'
-#' When the data has been split along multiple time scales, the last
-#' time scale mentioned in \code{by} is considered to be the survival time
-#' scale with regard to computing events. Time lines cut short by the
-#' extrema of non-survival-time-scales are considered to be censored
-#' ("transitions" from the current state to the current state).
-#'
-#' @seealso \code{\link{aggregate}} for a similar base R solution,
-#' and \code{\link{ltable}} for a \code{data.table} based aggregator. Neither
-#' are directly applicable to split \code{Lexis} data.
-#'
-#' @family aggregation functions
-#'
-#'
-#'
-#' @examples
-#'
-#' ## form a Lexis object
-#' library(Epi)
-#' data(sibr)
-#' x <- sibr[1:10,]
-#' x[1:5,]$sex <- 0 ## pretend some are male
-#' x <- Lexis(data = x,
-#' entry = list(AGE = dg_age, CAL = get.yrs(dg_date)),
-#' exit = list(CAL = get.yrs(ex_date)),
-#' entry.status=0, exit.status = status)
-#' x <- splitMulti(x, breaks = list(CAL = seq(1993, 2013, 5),
-#' AGE = seq(0, 100, 50)))
-#'
-#' ## these produce the same results (with differing ways of determining aggre)
-#' a1 <- aggre(x, by = list(gender = factor(sex, 0:1, c("m", "f")),
-#' agegroup = AGE, period = CAL))
-#'
-#' a2 <- aggre(x, by = c("sex", "AGE", "CAL"))
-#'
-#' a3 <- aggre(x, by = list(sex, agegroup = AGE, CAL))
-#'
-#' ## returning also empty levels
-#' a4 <- aggre(x, by = c("sex", "AGE", "CAL"), type = "full")
-#'
-#' ## computing also expected numbers of cases
-#' x <- lexpand(sibr[1:10,], birth = bi_date, entry = dg_date,
-#' exit = ex_date, status = status %in% 1:2,
-#' pophaz = popmort, fot = 0:5, age = c(0, 50, 100))
-#' x$d.exp <- with(x, lex.dur*pop.haz)
-#' ## these produce the same result
-#' a5 <- aggre(x, by = c("sex", "age", "fot"), sum.values = list(d.exp))
-#' a5 <- aggre(x, by = c("sex", "age", "fot"), sum.values = "d.exp")
-#' a5 <- aggre(x, by = c("sex", "age", "fot"), sum.values = d.exp)
-#' ## same result here with custom name
-#' a5 <- aggre(x, by = c("sex", "age", "fot"),
-#' sum.values = list(expCases = d.exp))
-#'
-#' ## computing pohar-perme weighted figures
-#' x$d.exp.pp <- with(x, lex.dur*pop.haz*pp)
-#' a6 <- aggre(x, by = c("sex", "age", "fot"),
-#' sum.values = c("d.exp", "d.exp.pp"))
-#' ## or equivalently e.g. sum.values = list(expCases = d.exp, expCases.p = d.exp.pp).
-#' @export
-aggre <- function(lex, by = NULL, type = c("unique", "full"), sum.values = NULL, subset = NULL, verbose = FALSE) {
-
- allTime <- proc.time()
-
- lex.Cst <- lex.Xst <- lex.id <- at.risk <- NULL ## APPEASE R CMD CHECK
-
- PF <- parent.frame(1L)
- TF <- environment()
-
- type <- match.arg(type[1], c("non-empty", "unique", "full", "cartesian"))
- if (type == "cartesian") type <- "full"
- if (type == "non-empty") type <- "unique"
-
- if (verbose) cat("Aggregation type: '", type, "' \n", sep = "")
-
- checkLexisData(lex)
-
- breaks <- copy(attr(lex, "breaks"))
- checkBreaksList(lex, breaks)
-
- allScales <- copy(attr(lex, "time.scales"))
- if (length(allScales) == 0 ) {
- stop("could not determine names of time scales; ",
- "is the data a Lexis object?")
- }
-
- ## subset --------------------------------------------------------------------
- subset <- substitute(subset)
- subset <- evalLogicalSubset(lex, subset)
-
- ## check sum.values ----------------------------------------------------------
- sumSub <- substitute(sum.values)
- sum.values <- evalPopArg(lex[1:min(nrow(lex), 20L), ], arg = sumSub,
- enclos = PF, recursive = TRUE, DT = TRUE)
- sumType <- attr(sum.values, "arg.type")
- sumVars <- attr(sum.values, "all.vars")
- sumSub <- attr(sum.values, "quoted.arg")
- if (is.null(sum.values)) {
- sumType <- "NULL"
- sumVars <- NULL
- sumSub <- quote(list())
- }
- badSum <- names(sum.values)[!sapply(sum.values, is.numeric)]
- if (length(badSum) > 0L) {
- badSum <- paste0("'", badSum, "'", collapse = ", ")
- stop("Following variables resulting from evaluating supplied sum.values ",
- "argument are not numeric and cannot be summed: ", badSum,
- ". Evaluated sum.values: ", deparse(sumSub))
- }
-
-
- ## by argument type -------------------------------------------------------
- ## NOTE: need to eval by AFTER cutting time scales!
-
- ags <- substitute(by)
- if (verbose) cat("Used by argument:", paste0(deparse(ags)),"\n")
-
- ## NOTE: with recursive = TRUE, evalPopArg digs deep enough to find
- ## the actual expression (substituted only once) and returns that and other
- ## things in attributes. Useful if arg substituted multiple times.
- by <- evalPopArg(data = lex[1:min(nrow(lex), 20),],
- arg = ags, DT = TRUE, enclos = PF, recursive = TRUE)
- ags <- attr(by, "quoted.arg")
- av <- attr(by, "all.vars")
- argType <- attr(by, "arg.type")
-
- if (is.null(by)) {
- ags <- substitute(list())
- av <- NULL
- argType <- "NULL"
- type <- "unique"
- }
- if (verbose) cat("Type of by argument:", argType, "\n")
-
- ## take copy of lex ----------------------------------------------------------
- ## if lex is a data.table, this function gets really complicated.
- ## if copy is taken only of necessary vars, it should be fine.
- keepVars <- unique(c("lex.id", allScales, "lex.dur",
- "lex.Cst", "lex.Xst", av, sumVars))
- lex.orig <- lex
- lex <- subsetDTorDF(lex, subset = subset, select = keepVars)
- lex <- data.table(lex)
- forceLexisDT(lex, breaks = breaks, allScales = allScales, key = FALSE)
-
-
- ## ensure no observations outside breaks limits are left in
- lex <- intelliDrop(lex, breaks = breaks)
-
- setkeyv(lex, c("lex.id", allScales[1]))
- setcolsnull(lex, delete = setdiff(allScales, names(breaks)))
-
-
- ## cut time scales for aggregating if needed ---------------------------------
- aggScales <- intersect(av, allScales)
- if (any(!aggScales %in% names(breaks))) {
- aggScales <- paste0("'", setdiff(aggScales, names(breaks)), "'", collapse = ", ")
- stop("Requested aggregating by time scale(s) by which data ",
- "has not been split: ", aggScales)
- }
-
- ## before cutting, find out which rows count towards "at.risk" figure:
- ## of all scales in aggScales, the last one (or the only one) is assumed
- ## to be the survival time scale.
- tmpAtRisk <- makeTempVarName(lex, pre = "at.risk_")
- set(lex, j = tmpAtRisk, value = TRUE)
- survScale <- NULL
-
-
- if (length(aggScales) > 0) {
- cutTime <- proc.time()
- ## "at.risk" counts subjects at risk in the beginning of the survival
- ## time scale interval.
- survScale <- aggScales[length(aggScales)]
- lex[, c(tmpAtRisk) := lex[[survScale]] %in% breaks[[survScale]] ]
- catAggScales <- paste0("'", aggScales, "'", collapse = ", ")
- if (verbose) {
- cat("Following time scales mentioned in by argument and will be",
- "categorized into intervals (defined by breaks in object",
- "attributes) for aggregation:", catAggScales, "\n")
- }
-
- ## NEW METHOD: use a copy of lex and just modify in place.
-
- for (sc in aggScales) {
- set(lex, j = sc, value = cutLow(lex[[sc]], breaks = breaks[[sc]]))
- }
-
- if (verbose) cat("Time taken by cut()'ting time scales: ", timetaken(cutTime), "\n")
- }
-
- othVars <- setdiff(av, aggScales)
- if (verbose && length(othVars) > 0) {
- catOthVars <- paste0("'", othVars, "'", collapse = ", ")
- cat("Detected the following non-time-scale variables to be utilized in aggregating:", catOthVars, "\n")
- }
-
- ## eval by -------------------------------------------------------------------
- ## NOTE: needed to eval by AFTER cutting time scales!
- by <- evalPopArg(data = lex, arg = ags, DT = TRUE, enclos = PF, recursive = TRUE)
- byNames <- names(by)
-
- ## computing pyrs ------------------------------------------------------------
- ## final step in determining at.risk:
- ## a lex.id is at.risk only once per by-level
- pyrsTime <- proc.time()
- vdt <- data.table(pyrs = lex$lex.dur, at.risk = lex[[tmpAtRisk]],
- lex.id = lex$lex.id)
- pyrs <- vdt[, .(pyrs = sum(pyrs),
- at.risk = sum(!duplicated(lex.id) & at.risk)),
- keyby = by]
- setDT(pyrs)
-
- rm(vdt)
- sumNames <- NULL
- if (sumType != "NULL") {
- if (sumType == "character") {
- sumNames <- evalPopArg(lex, sumSub, n = 1L, DT = FALSE, recursive = TRUE, enclos = PF)
- sum.values <- lex[, lapply(.SD, sum), keyby = by, .SDcols = c(sumNames)]
- } else {
- sum.values <- evalPopArg(lex, sumSub, n = 1L, enclos = PF)
- sumNames <- names(sum.values)
- sumTmpNames <- makeTempVarName(lex, pre = sumNames)
- set(lex, j = sumTmpNames, value = sum.values)
- sum.values <- lex[, lapply(.SD, sum), keyby = by, .SDcols = sumTmpNames]
- setnames(sum.values, sumTmpNames, sumNames)
- setcolsnull(lex, sumTmpNames)
- }
-
- setDT(sum.values)
- pyrs <- merge(pyrs, sum.values, all = TRUE)
- rm(sum.values)
- }
-
-
- if (verbose) cat("Time taken by aggregating pyrs: ", timetaken(pyrsTime), "\n")
-
- valVars <- setdiff(names(pyrs), byNames) ## includes pyrs and anything created by sum
-
- pyrs[is.na(pyrs), pyrs := 0]
- pyrs <- pyrs[pyrs > 0]
-
- aggPyrs <- pyrs[, sum(pyrs)]
- lexPyrs <- sum(lex.orig$lex.dur[subset])
- pyrsDiff <- aggPyrs - lexPyrs
- if (!isTRUE(all.equal(aggPyrs, lexPyrs, scale = NULL))) {
- warning("Found discrepancy of ", abs(round(pyrsDiff, 4)), " ",
- "in total aggregated pyrs compared to ",
- "sum(lex$lex.dur); compare results by hand and make sure ",
- "settings are right \n")
- }
- rm(subset, aggPyrs, lexPyrs)
-
- ## cartesian output ----------------------------------------------------------
- if (type == "full") {
- carTime <- proc.time()
-
- varsUsingScales <- NULL
-
- ## which variables used one time scale? and which one?
- ## will only be used in cartesian stuff.
- if (argType == "character") {
- varsUsingScales <- intersect(names(by), aggScales)
- whScaleUsed <- varsUsingScales
- } else if (argType != "NULL") {
- ## note: ags a substitute()'d list at this point always if not char
- whScaleUsed <- lapply(ags[-1], function(x) intersect(all.vars(x), aggScales))
- ## only one time scale should be used in a variable!
- oneScaleTest <- any(sapply(whScaleUsed, function(x) length(x) > 1L))
- if (oneScaleTest) stop("Only one Lexis time scale can be used in any one variable in by argument!")
- varsUsingScales <- byNames[sapply(whScaleUsed, function (x) length(x) == 1L)]
- whScaleUsed <- unlist(whScaleUsed)
- }
-
- ceejay <- lapply(by, function(x) if (is.factor(x)) levels(x) else sort(unique(x)))
- if (length(aggScales) > 0) {
- ## which variables in ceejay used the Lexis time scales from lex?
- ceejay[varsUsingScales] <- lapply(breaks[whScaleUsed], function(x) x[-length(x)])
- }
-
- ceejay <- do.call(CJ, ceejay)
- setkeyv(ceejay, byNames)
- setkeyv(pyrs, byNames)
-
- pyrs <- pyrs[ceejay]
- rm(ceejay)
-
- if (verbose) cat("Time taken by making aggregated data large in the cartesian product sense: ", timetaken(carTime), "\n")
- }
-
-
- ## computing events ----------------------------------------------------------
-
- transTime <- proc.time()
-
- if (is.null(by) || (is.data.table(by) && nrow(by) == 0L)) {
-
- by <- quote(list(lex.Cst, lex.Xst))
-
- } else {
- for (var in c("lex.Cst", "lex.Xst")) {
- set(by, j = var, value = lex[[var]])
- }
- }
-
-
- ## NOTE: this will ensure correct detection of censorings:
- ## observations cut short by e.g. period window's edge
- ## will be considered a censoring if the breaks along that time scale
- ## are not passed to detectEvents (assuming the survival time scale is
- ## used in by). If no time scale mentioned in by, then all endings
- ## of observations are either censorings or events.
- detBr <- breaks[survScale]
- if (!length(survScale)) detBr <- NULL
- hasEvent <- detectEvents(lex, breaks = detBr, by = "lex.id") %in% 1:2
- ## is language if user supplied by = NULL
- if (!is.language(by)) by <- by[hasEvent]
-
- trans <- lex[hasEvent, list(obs = .N), keyby = by]
-
- rm(by, lex)
-
-
- if (verbose) cat("Time taken by aggregating events: ", timetaken(transTime), "\n")
-
- ## casting & merging ---------------------------------------------------------
-
- mergeTime <- proc.time()
- setDT(trans)
- setDT(pyrs)
-
- ## tmpTr to be used in casting
- tmpTr <- makeTempVarName(trans, pre = "trans_")
- trans[, c(tmpTr) := paste0("from", lex.Cst, "to", lex.Xst)]
- transitions <- sort(unique(trans[[tmpTr]]))
- trans[, c("lex.Cst", "lex.Xst") := NULL]
-
- ## note: need tmpDum if by = NULL for correct casting & merging
- tmpDum <- makeTempVarName(trans)
- byNames <- c(byNames, tmpDum)
- byNames <- setdiff(byNames, c("lex.Cst", "lex.Xst"))
- trans[, c(tmpDum) := 1L]
- pyrs[, c(tmpDum) := 1L]
-
- valVars <- unique(c(valVars, transitions))
-
- trans <- cast_simple(trans, rows = byNames, columns = tmpTr, values = "obs")
-
- setkeyv(trans, NULL); setkeyv(pyrs, NULL) ## dcast.data.table seems to keep key but row order may be funky; this avoids a warning
- setkeyv(trans, byNames); setkeyv(pyrs, byNames)
- trans <- trans[pyrs]; rm(pyrs)
-
- trans[, c(tmpDum) := NULL]
- byNames <- setdiff(byNames, tmpDum)
- setcolorder(trans, c(byNames, valVars))
-
- if (verbose) cat("Time taken by merging pyrs & transitions: ", timetaken(mergeTime), "\n")
-
- if (length(valVars) > 0L) {
- trans[, c(valVars) := lapply(.SD, function(x) {
- x[is.na(x)] <- 0
- x
- }), .SDcols = c(valVars)]
- }
-
-
- ## final touch ---------------------------------------------------------------
- trans <- data.table(trans)
- setaggre(trans, values = c("pyrs", "at.risk", transitions, sumNames),
- by = byNames, breaks = breaks)
- if (!return_DT()) setDFpe(trans)
- if (verbose) cat("Time taken by aggre(): ", timetaken(allTime), "\n")
-
-
-
- trans[]
-}
-
-
-
-
-
-
-
-
-
-
-
-
+
+#' @title Set \code{aggre} attributes to an object by modifying in place
+#' @author Joonas Miettinen
+#' @description Coerces an R object to an \code{aggre} object, identifying
+#' the object as one containing aggregated counts, person-years and other
+#' information. \code{setaggre} modifies in place without taking any copies.
+#' Retains all other attributes.
+#' @param x a \code{data.frame} or \code{data.table}
+#' @param values a character string vector; the names of value variables
+#' @param by a character string vector; the names of variables by which
+#' \code{values} have been tabulated
+#' @param breaks a list of breaks, where each element is a breaks vector
+#' as usually passed to e.g. \code{\link{splitLexisDT}}. The list must be
+#' fully named, with the names corresponding to time scales at the aggregate
+#' level in your data. Every unique value in a time scale variable in data must
+#' also exist in the corresponding vector in the breaks list.
+#' @details
+#'
+#' \code{setaggre} sets \code{x} to the \code{aggre} class in place
+#' without taking a copy as e.g. \code{as.data.frame.XXX} functions do; see e.g.
+#' \code{\link[data.table]{setDT}}.
+#'
+#' @family aggregation functions
+#' @return
+#' Returns `x` invisibly after setting attributes to it without taking a copy.
+#' This function is called for its side effects.
+#' @export setaggre
+#' @examples
+#' df <- data.frame(sex = rep(c("male", "female"), each = 5),
+#' obs = rpois(10, rep(7,5, each=5)),
+#' pyrs = rpois(10, lambda = 10000))
+#' ## without any breaks
+#' setaggre(df, values = c("obs", "pyrs"), by = "sex")
+#' df <- data.frame(df)
+#' df$FUT <- 0:4
+#' ## with breaks list
+#' setaggre(df, values = c("obs", "pyrs"), by = "sex", breaks = list(FUT = 0:5))
+setaggre <- function(x, values = NULL, by = NULL, breaks = NULL) {
+ ## input: aggregated data in data.frame or data.table format
+ ## intention: any user can define their data as an aggregated data set
+ ## which will be usable by survtab / sir / other
+ ## output: no need to do x <- setaggre(x); instead modifies attributes in place;
+ ## sets "aggre.meta" attribute, a list of names of various variables.
+ ## survtab for aggregated data will need this attribute to work.
+ all_names_present(x, c(values, by))
+
+ if (!length(by) && length(values)) by <- setdiff(names(x), values)
+ if (length(by) && !length(values)) values <- setdiff(names(x), by)
+
+ if (!inherits(x, "aggre")) {
+ cl <- class(x)
+ wh <- which(cl %in% c("data.table", "data.frame"))
+ wh <- min(wh)
+
+ ## yes, from zero: in case only one class
+ cl <- c(cl[0:(wh-1)], "aggre", cl[wh:length(cl)])
+ setattr(x, "class", cl)
+ }
+
+
+ setattr(x, "aggre.meta", list(values = values, by = by, breaks = breaks))
+ setattr(x, "breaks", breaks)
+ invisible(x)
+}
+
+#' @title Coercion to Class \code{aggre}
+#' @author Joonas Miettinen
+#' @description Coerces an R object to an \code{aggre} object, identifying
+#' the object as one containing aggregated counts, person-years and other
+#' information.
+#' @inheritParams setaggre
+#' @param ... arguments passed to or from methods
+#' @family aggregation functions
+#'
+#'
+#' @examples
+#' library("data.table")
+#' df <- data.frame(sex = rep(c("male", "female"), each = 5),
+#' obs = rpois(10, rep(7,5, each=5)),
+#' pyrs = rpois(10, lambda = 10000))
+#' dt <- as.data.table(df)
+#'
+#' df <- as.aggre(df, values = c("pyrs", "obs"), by = "sex")
+#' dt <- as.aggre(dt, values = c("pyrs", "obs"), by = "sex")
+#'
+#' class(df)
+#' class(dt)
+#'
+#' BL <- list(fot = 0:5)
+#' df <- data.frame(df)
+#' df <- as.aggre(df, values = c("pyrs", "obs"), by = "sex", breaks = BL)
+#'
+#' @return
+#' Returns a copy of `x` with attributes set to those of an object of class
+#' `"aggre"`.
+#' @export
+as.aggre <- function(x, values = NULL, by = NULL, breaks = NULL, ...) {
+ UseMethod("as.aggre", x)
+}
+
+#' @describeIn as.aggre Coerces a \code{data.frame} to an \code{aggre} object
+#' @export
+as.aggre.data.frame <- function(x, values = NULL, by = NULL, breaks = NULL, ...) {
+ x <- copy(x)
+ setaggre(x, values = values, by = by, breaks = breaks, ...)
+ setattr(x, "class", c("aggre", "data.frame"))
+ x[]
+}
+
+#' @describeIn as.aggre Coerces a \code{data.table} to an \code{aggre} object
+#' @export
+as.aggre.data.table <- function(x, values = NULL, by = NULL, breaks = NULL, ...) {
+ x <- copy(x)
+ setaggre(x, values = values, by = by, breaks = breaks, ...)
+ setattr(x, "class", c("aggre", "data.table", "data.frame"))
+ x[]
+}
+
+#' @describeIn as.aggre Default method for \code{as.aggre} (stops computations
+#' if no class-specific method found)
+#' @export
+as.aggre.default <- function(x, ...) {
+ stop(gettextf("cannot coerce class \"%s\" to 'aggre'", deparse(class(x))),
+ domain = NA)
+}
+
+
+
+#' @title Aggregation of split \code{Lexis} data
+#' @author Joonas Miettinen
+#' @description Aggregates a split \code{Lexis} object by given variables
+#' and / or expressions into a long-format table of person-years and
+#' transitions / end-points. Automatic aggregation over time scales
+#' by which data has been split if the respective time scales are mentioned
+#' in the aggregation argument to e.g. intervals of calendar time, follow-up time
+#' and/or age.
+#' @param lex a \code{Lexis} object split with e.g.
+#' \code{\link[Epi]{splitLexis}} or \code{\link{splitMulti}}
+#' @param by variables to tabulate (aggregate) by.
+#' \link[=flexible_argument]{Flexible input}, typically e.g.
+#' \code{by = c("V1", "V2")}. See Details and Examples.
+#' @param type determines output levels to which data is aggregated varying
+#' from returning only rows with \code{pyrs > 0} (\code{"unique"}) to
+#' returning all possible combinations of variables given in \code{aggre} even
+#' if those combinations are not represented in data (\code{"full"});
+#' see Details
+#' @param sum.values optional: additional variables to sum by argument
+#' \code{by}. \link[=flexible_argument]{Flexible input}, typically e.g.
+#' \code{sum.values = c("V1", "V2")}
+#' @param subset a logical condition to subset by before computations;
+#' e.g. \code{subset = area \%in\% c("A", "B")}
+#' @param verbose \code{logical}; if \code{TRUE}, the function returns timings
+#' and some information useful for debugging along the aggregation process
+#' @details
+#'
+#' \strong{Basics}
+#'
+#' \code{aggre} is intended for aggregation of split \code{Lexis} data only.
+#' See \code{\link[Epi]{Lexis}} for forming \code{Lexis} objects by hand
+#' and e.g. \code{\link[Epi]{splitLexis}}, \code{\link{splitLexisDT}}, and
+#' \code{\link{splitMulti}} for splitting the data. \code{\link{lexpand}}
+#' may be used for simple data sets to do both steps as well as aggregation
+#' in the same function call.
+#'
+#' Here aggregation refers to computing person-years and the appropriate events
+#' (state transitions and end points in status) for the subjects in the data.
+#' Hence, it computes e.g. deaths (end-point and state transition) and
+#' censorings (end-point) as well as events in a multi-state setting
+#' (state transitions).
+#'
+#' The result is a long-format \code{data.frame} or \code{data.table}
+#' (depending on \code{options("popEpi.datatable")}; see \code{?popEpi})
+#' with the columns \code{pyrs} and the appropriate transitions named as
+#' \code{fromXtoY}, e.g. \code{from0to0} and \code{from0to1} depending
+#' on the values of \code{lex.Cst} and \code{lex.Xst}.
+#'
+#'
+#' \strong{The by argument}
+#'
+#' The \code{by} argument determines the length of the table, i.e.
+#' the combinations of variables to which data is aggregated.
+#' \code{by} is relatively flexible, as it can be supplied as
+#'
+#' \itemize{
+#' \item{a character string vector, e.g. \code{c("sex", "area")},
+#' naming variables existing in \code{lex}}
+#' \item{an expression, e.g. \code{factor(sex, 0:1, c("m", "f"))}
+#' using any variable found in \code{lex}}
+#' \item{a list (fully or partially named) of expressions, e.g.
+#' \code{list(gender = factor(sex, 0:1, c("m", "f"), area)}}
+#' }
+#'
+#' Note that expressions effectively allow a variable to be supplied simply as
+#' e.g. \code{by = sex} (as a symbol/name in R lingo).
+#'
+#' The data is then aggregated to the levels of the given variables
+#' or expression(s). Variables defined to be time scales in the supplied
+#' \code{Lexis} are processed in a special way: If any are mentioned in the
+#' \code{by} argument, intervals of them are formed based on the breaks
+#' used to split the data: e.g. if \code{age} was split using the breaks
+#' \code{c(0, 50, Inf)}, mentioning \code{age} in \code{by} leads to
+#' creating the \code{age} intervals \code{[0, 50)} and \code{[50, Inf)}
+#' and aggregating to them. The intervals are identified in the output
+#' as the lower bounds of the appropriate intervals.
+#'
+#' The order of multiple time scales mentioned in \code{by} matters,
+#' as the last mentioned time scale is assumed to be a survival time scale
+#' for when computing event counts. E.g. when the data is split by the breaks
+#' \code{list(FUT = 0:5, CAL = c(2008,2010))}, time lines cut short at
+#' \code{CAL = 2010} are considered to be censored, but time lines cut short at
+#' \code{FUT = 5} are not. See Return.
+#'
+#' \strong{Aggregation types (styles)}
+#'
+#' It is almost always enough to aggregate the data to variable levels
+#' that are actually represented in the data
+#' (default \code{aggre = "unique"}; alias \code{"non-empty"}).
+#' For certain uses it may be useful
+#' to have also "empty" levels represented (resulting in some rows in output
+#' with zero person-years and events); in these cases supplying
+#' \code{aggre = "full"} (alias \code{"cartesian"}) causes \code{aggre}
+#' to determine the Cartesian product of all the levels of the supplied
+#' \code{by} variables or expressions and aggregate to them. As an example
+#' of a Cartesian product, try
+#'
+#' \code{merge(1:2, 1:5)}.
+#'
+#' @return
+#' A long \code{data.frame} or \code{data.table} of aggregated person-years
+#' (\code{pyrs}), numbers of subjects at risk (\code{at.risk}), and events
+#' formatted \code{fromXtoY}, where \code{X} and \code{X} are states
+#' transitioning from and to or states at the end of each \code{lex.id}'s
+#' follow-up (implying \code{X} = \code{Y}). Subjects at risk are computed
+#' in the beginning of an interval defined by any Lexis time scales and
+#' mentioned in \code{by}, but events occur at any point within an interval.
+#'
+#' When the data has been split along multiple time scales, the last
+#' time scale mentioned in \code{by} is considered to be the survival time
+#' scale with regard to computing events. Time lines cut short by the
+#' extrema of non-survival-time-scales are considered to be censored
+#' ("transitions" from the current state to the current state).
+#'
+#' @seealso \code{\link{aggregate}} for a similar base R solution,
+#' and \code{\link{ltable}} for a \code{data.table} based aggregator. Neither
+#' are directly applicable to split \code{Lexis} data.
+#'
+#' @family aggregation functions
+#'
+#'
+#'
+#' @examples
+#'
+#' ## form a Lexis object
+#' library(Epi)
+#' data(sibr)
+#' x <- sibr[1:10,]
+#' x[1:5,]$sex <- 0 ## pretend some are male
+#' x <- Lexis(data = x,
+#' entry = list(AGE = dg_age, CAL = get.yrs(dg_date)),
+#' exit = list(CAL = get.yrs(ex_date)),
+#' entry.status=0, exit.status = status)
+#' x <- splitMulti(x, breaks = list(CAL = seq(1993, 2013, 5),
+#' AGE = seq(0, 100, 50)))
+#'
+#' ## these produce the same results (with differing ways of determining aggre)
+#' a1 <- aggre(x, by = list(gender = factor(sex, 0:1, c("m", "f")),
+#' agegroup = AGE, period = CAL))
+#'
+#' a2 <- aggre(x, by = c("sex", "AGE", "CAL"))
+#'
+#' a3 <- aggre(x, by = list(sex, agegroup = AGE, CAL))
+#'
+#' ## returning also empty levels
+#' a4 <- aggre(x, by = c("sex", "AGE", "CAL"), type = "full")
+#'
+#' ## computing also expected numbers of cases
+#' x <- lexpand(sibr[1:10,], birth = bi_date, entry = dg_date,
+#' exit = ex_date, status = status %in% 1:2,
+#' pophaz = popmort, fot = 0:5, age = c(0, 50, 100))
+#' x$d.exp <- with(x, lex.dur*pop.haz)
+#' ## these produce the same result
+#' a5 <- aggre(x, by = c("sex", "age", "fot"), sum.values = list(d.exp))
+#' a5 <- aggre(x, by = c("sex", "age", "fot"), sum.values = "d.exp")
+#' a5 <- aggre(x, by = c("sex", "age", "fot"), sum.values = d.exp)
+#' ## same result here with custom name
+#' a5 <- aggre(x, by = c("sex", "age", "fot"),
+#' sum.values = list(expCases = d.exp))
+#'
+#' ## computing pohar-perme weighted figures
+#' x$d.exp.pp <- with(x, lex.dur*pop.haz*pp)
+#' a6 <- aggre(x, by = c("sex", "age", "fot"),
+#' sum.values = c("d.exp", "d.exp.pp"))
+#' ## or equivalently e.g. sum.values = list(expCases = d.exp, expCases.p = d.exp.pp).
+#' @export
+aggre <- function(lex, by = NULL, type = c("unique", "full"), sum.values = NULL, subset = NULL, verbose = FALSE) {
+
+ allTime <- proc.time()
+
+ lex.Cst <- lex.Xst <- lex.id <- at.risk <- NULL ## APPEASE R CMD CHECK
+
+ PF <- parent.frame(1L)
+ TF <- environment()
+
+ type <- match.arg(type[1], c("non-empty", "unique", "full", "cartesian"))
+ if (type == "cartesian") type <- "full"
+ if (type == "non-empty") type <- "unique"
+
+ if (verbose) cat("Aggregation type: '", type, "' \n", sep = "")
+
+ checkLexisData(lex)
+
+ breaks <- copy(attr(lex, "breaks"))
+ checkBreaksList(lex, breaks)
+
+ allScales <- copy(attr(lex, "time.scales"))
+ if (length(allScales) == 0 ) {
+ stop("could not determine names of time scales; ",
+ "is the data a Lexis object?")
+ }
+
+ ## subset --------------------------------------------------------------------
+ subset <- substitute(subset)
+ subset <- evalLogicalSubset(lex, subset)
+
+ ## check sum.values ----------------------------------------------------------
+ sumSub <- substitute(sum.values)
+ sum.values <- evalPopArg(lex[1:min(nrow(lex), 20L), ], arg = sumSub,
+ enclos = PF, recursive = TRUE, DT = TRUE)
+ sumType <- attr(sum.values, "arg.type")
+ sumVars <- attr(sum.values, "all.vars")
+ sumSub <- attr(sum.values, "quoted.arg")
+ if (is.null(sum.values)) {
+ sumType <- "NULL"
+ sumVars <- NULL
+ sumSub <- quote(list())
+ }
+ badSum <- names(sum.values)[!sapply(sum.values, is.numeric)]
+ if (length(badSum) > 0L) {
+ badSum <- paste0("'", badSum, "'", collapse = ", ")
+ stop("Following variables resulting from evaluating supplied sum.values ",
+ "argument are not numeric and cannot be summed: ", badSum,
+ ". Evaluated sum.values: ", deparse(sumSub))
+ }
+
+
+ ## by argument type -------------------------------------------------------
+ ## NOTE: need to eval by AFTER cutting time scales!
+
+ ags <- substitute(by)
+ if (verbose) cat("Used by argument:", paste0(deparse(ags)),"\n")
+
+ ## NOTE: with recursive = TRUE, evalPopArg digs deep enough to find
+ ## the actual expression (substituted only once) and returns that and other
+ ## things in attributes. Useful if arg substituted multiple times.
+ by <- evalPopArg(data = lex[1:min(nrow(lex), 20),],
+ arg = ags, DT = TRUE, enclos = PF, recursive = TRUE)
+ ags <- attr(by, "quoted.arg")
+ av <- attr(by, "all.vars")
+ argType <- attr(by, "arg.type")
+
+ if (is.null(by)) {
+ ags <- substitute(list())
+ av <- NULL
+ argType <- "NULL"
+ type <- "unique"
+ }
+ if (verbose) cat("Type of by argument:", argType, "\n")
+
+ ## take copy of lex ----------------------------------------------------------
+ ## if lex is a data.table, this function gets really complicated.
+ ## if copy is taken only of necessary vars, it should be fine.
+ keepVars <- unique(c("lex.id", allScales, "lex.dur",
+ "lex.Cst", "lex.Xst", av, sumVars))
+ lex.orig <- lex
+ lex <- subsetDTorDF(lex, subset = subset, select = keepVars)
+ lex <- data.table(lex)
+ forceLexisDT(lex, breaks = breaks, allScales = allScales, key = FALSE)
+
+
+ ## ensure no observations outside breaks limits are left in
+ lex <- intelliDrop(lex, breaks = breaks)
+
+ setkeyv(lex, c("lex.id", allScales[1]))
+ setcolsnull(lex, delete = setdiff(allScales, names(breaks)))
+
+
+ ## cut time scales for aggregating if needed ---------------------------------
+ aggScales <- intersect(av, allScales)
+ if (any(!aggScales %in% names(breaks))) {
+ aggScales <- paste0("'", setdiff(aggScales, names(breaks)), "'", collapse = ", ")
+ stop("Requested aggregating by time scale(s) by which data ",
+ "has not been split: ", aggScales)
+ }
+
+ ## before cutting, find out which rows count towards "at.risk" figure:
+ ## of all scales in aggScales, the last one (or the only one) is assumed
+ ## to be the survival time scale.
+ tmpAtRisk <- makeTempVarName(lex, pre = "at.risk_")
+ set(lex, j = tmpAtRisk, value = TRUE)
+ survScale <- NULL
+
+
+ if (length(aggScales) > 0) {
+ cutTime <- proc.time()
+ ## "at.risk" counts subjects at risk in the beginning of the survival
+ ## time scale interval.
+ survScale <- aggScales[length(aggScales)]
+ lex[, c(tmpAtRisk) := lex[[survScale]] %in% breaks[[survScale]] ]
+ catAggScales <- paste0("'", aggScales, "'", collapse = ", ")
+ if (verbose) {
+ cat("Following time scales mentioned in by argument and will be",
+ "categorized into intervals (defined by breaks in object",
+ "attributes) for aggregation:", catAggScales, "\n")
+ }
+
+ ## NEW METHOD: use a copy of lex and just modify in place.
+
+ for (sc in aggScales) {
+ set(lex, j = sc, value = cutLow(lex[[sc]], breaks = breaks[[sc]]))
+ }
+
+ if (verbose) cat("Time taken by cut()'ting time scales: ", timetaken(cutTime), "\n")
+ }
+
+ othVars <- setdiff(av, aggScales)
+ if (verbose && length(othVars) > 0) {
+ catOthVars <- paste0("'", othVars, "'", collapse = ", ")
+ cat("Detected the following non-time-scale variables to be utilized in aggregating:", catOthVars, "\n")
+ }
+
+ ## eval by -------------------------------------------------------------------
+ ## NOTE: needed to eval by AFTER cutting time scales!
+ by <- evalPopArg(data = lex, arg = ags, DT = TRUE, enclos = PF, recursive = TRUE)
+ byNames <- names(by)
+
+ ## computing pyrs ------------------------------------------------------------
+ ## final step in determining at.risk:
+ ## a lex.id is at.risk only once per by-level
+ pyrsTime <- proc.time()
+ vdt <- data.table(pyrs = lex$lex.dur, at.risk = lex[[tmpAtRisk]],
+ lex.id = lex$lex.id)
+ pyrs <- vdt[, .(pyrs = sum(pyrs),
+ at.risk = sum(!duplicated(lex.id) & at.risk)),
+ keyby = by]
+ setDT(pyrs)
+
+ rm(vdt)
+ sumNames <- NULL
+ if (sumType != "NULL") {
+ if (sumType == "character") {
+ sumNames <- evalPopArg(lex, sumSub, n = 1L, DT = FALSE, recursive = TRUE, enclos = PF)
+ sum.values <- lex[, lapply(.SD, sum), keyby = by, .SDcols = c(sumNames)]
+ } else {
+ sum.values <- evalPopArg(lex, sumSub, n = 1L, enclos = PF)
+ sumNames <- names(sum.values)
+ sumTmpNames <- makeTempVarName(lex, pre = sumNames)
+ set(lex, j = sumTmpNames, value = sum.values)
+ sum.values <- lex[, lapply(.SD, sum), keyby = by, .SDcols = sumTmpNames]
+ setnames(sum.values, sumTmpNames, sumNames)
+ setcolsnull(lex, sumTmpNames)
+ }
+
+ setDT(sum.values)
+ pyrs <- merge(pyrs, sum.values, all = TRUE)
+ rm(sum.values)
+ }
+
+
+ if (verbose) cat("Time taken by aggregating pyrs: ", timetaken(pyrsTime), "\n")
+
+ valVars <- setdiff(names(pyrs), byNames) ## includes pyrs and anything created by sum
+
+ pyrs[is.na(pyrs), pyrs := 0]
+ pyrs <- pyrs[pyrs > 0]
+
+ aggPyrs <- pyrs[, sum(pyrs)]
+ lexPyrs <- sum(lex.orig$lex.dur[subset])
+ pyrsDiff <- aggPyrs - lexPyrs
+ if (!isTRUE(all.equal(aggPyrs, lexPyrs, scale = NULL))) {
+ warning("Found discrepancy of ", abs(round(pyrsDiff, 4)), " ",
+ "in total aggregated pyrs compared to ",
+ "sum(lex$lex.dur); compare results by hand and make sure ",
+ "settings are right \n")
+ }
+ rm(subset, aggPyrs, lexPyrs)
+
+ ## cartesian output ----------------------------------------------------------
+ if (type == "full") {
+ carTime <- proc.time()
+
+ varsUsingScales <- NULL
+
+ ## which variables used one time scale? and which one?
+ ## will only be used in cartesian stuff.
+ if (argType == "character") {
+ varsUsingScales <- intersect(names(by), aggScales)
+ whScaleUsed <- varsUsingScales
+ } else if (argType != "NULL") {
+ ## note: ags a substitute()'d list at this point always if not char
+ whScaleUsed <- lapply(ags[-1], function(x) intersect(all.vars(x), aggScales))
+ ## only one time scale should be used in a variable!
+ oneScaleTest <- any(sapply(whScaleUsed, function(x) length(x) > 1L))
+ if (oneScaleTest) stop("Only one Lexis time scale can be used in any one variable in by argument!")
+ varsUsingScales <- byNames[sapply(whScaleUsed, function (x) length(x) == 1L)]
+ whScaleUsed <- unlist(whScaleUsed)
+ }
+
+ ceejay <- lapply(by, function(x) if (is.factor(x)) levels(x) else sort(unique(x)))
+ if (length(aggScales) > 0) {
+ ## which variables in ceejay used the Lexis time scales from lex?
+ ceejay[varsUsingScales] <- lapply(breaks[whScaleUsed], function(x) x[-length(x)])
+ }
+
+ ceejay <- do.call(CJ, ceejay)
+ setkeyv(ceejay, byNames)
+ setkeyv(pyrs, byNames)
+
+ pyrs <- pyrs[ceejay]
+ rm(ceejay)
+
+ if (verbose) cat("Time taken by making aggregated data large in the cartesian product sense: ", timetaken(carTime), "\n")
+ }
+
+
+ ## computing events ----------------------------------------------------------
+
+ transTime <- proc.time()
+
+ if (is.null(by) || (is.data.table(by) && nrow(by) == 0L)) {
+
+ by <- quote(list(lex.Cst, lex.Xst))
+
+ } else {
+ for (var in c("lex.Cst", "lex.Xst")) {
+ set(by, j = var, value = lex[[var]])
+ }
+ }
+
+
+ ## NOTE: this will ensure correct detection of censorings:
+ ## observations cut short by e.g. period window's edge
+ ## will be considered a censoring if the breaks along that time scale
+ ## are not passed to detectEvents (assuming the survival time scale is
+ ## used in by). If no time scale mentioned in by, then all endings
+ ## of observations are either censorings or events.
+ detBr <- breaks[survScale]
+ if (!length(survScale)) detBr <- NULL
+ hasEvent <- detectEvents(lex, breaks = detBr, by = "lex.id") %in% 1:2
+ ## is language if user supplied by = NULL
+ if (!is.language(by)) by <- by[hasEvent]
+
+ trans <- lex[hasEvent, list(obs = .N), keyby = by]
+
+ rm(by, lex)
+
+
+ if (verbose) cat("Time taken by aggregating events: ", timetaken(transTime), "\n")
+
+ ## casting & merging ---------------------------------------------------------
+
+ mergeTime <- proc.time()
+ setDT(trans)
+ setDT(pyrs)
+
+ ## tmpTr to be used in casting
+ tmpTr <- makeTempVarName(trans, pre = "trans_")
+ trans[, c(tmpTr) := paste0("from", lex.Cst, "to", lex.Xst)]
+ transitions <- sort(unique(trans[[tmpTr]]))
+ trans[, c("lex.Cst", "lex.Xst") := NULL]
+
+ ## note: need tmpDum if by = NULL for correct casting & merging
+ tmpDum <- makeTempVarName(trans)
+ byNames <- c(byNames, tmpDum)
+ byNames <- setdiff(byNames, c("lex.Cst", "lex.Xst"))
+ trans[, c(tmpDum) := 1L]
+ pyrs[, c(tmpDum) := 1L]
+
+ valVars <- unique(c(valVars, transitions))
+
+ trans <- cast_simple(trans, rows = byNames, columns = tmpTr, values = "obs")
+
+ setkeyv(trans, NULL); setkeyv(pyrs, NULL) ## dcast.data.table seems to keep key but row order may be funky; this avoids a warning
+ setkeyv(trans, byNames); setkeyv(pyrs, byNames)
+ trans <- trans[pyrs]; rm(pyrs)
+
+ trans[, c(tmpDum) := NULL]
+ byNames <- setdiff(byNames, tmpDum)
+ setcolorder(trans, c(byNames, valVars))
+
+ if (verbose) cat("Time taken by merging pyrs & transitions: ", timetaken(mergeTime), "\n")
+
+ if (length(valVars) > 0L) {
+ trans[, c(valVars) := lapply(.SD, function(x) {
+ x[is.na(x)] <- 0
+ x
+ }), .SDcols = c(valVars)]
+ }
+
+
+ ## final touch ---------------------------------------------------------------
+ trans <- data.table(trans)
+ setaggre(trans, values = c("pyrs", "at.risk", transitions, sumNames),
+ by = byNames, breaks = breaks)
+ if (!return_DT()) setDFpe(trans)
+ if (verbose) cat("Time taken by aggre(): ", timetaken(allTime), "\n")
+
+
+
+ trans[]
+}
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/R/data_document.R b/R/data_document.R
index 7ca38bc..314f340 100644
--- a/R/data_document.R
+++ b/R/data_document.R
@@ -1,175 +1,175 @@
-
-
-
-# sire - simulated survival data ------------------------------------------
-
-#' sire - a simulated cohort of Finnish female rectal cancer patients
-#'
-#' \code{sire} is a simulated cohort pertaining female Finnish rectal cancer patients
-#' diagnosed between 1993-2012. Instead of actual original dates, the dates are masked
-#' via modest randomization within several time windows.
-#'
-#' The closing date for the pertinent data was 2012-12-31, meaning status information was
-#' available only up to that point --- hence the maximum possible \code{ex_date} is \code{2012-12-31}.
-#'
-#' @source The Finnish Cancer Registry
-#' @format data.table with columns
-#' \itemize{
-#' \item sex - gender of the patient (1 = female)
-#' \item bi_date - date of birth
-#' \item dg_date - date of cancer diagnosis
-#' \item ex_date - date of exit from follow-up (death or censoring)
-#' \item status - status of the person at exit; 0 alive; 1 dead due to pertinent cancer; 2 dead due to other causes
-#' \item dg_age - age at diagnosis expressed as fractional years
-#' }
-#' @author Karri Seppa
-#' @name sire
-#' @family popEpi data
-#' @family survival data
-NULL
-
-
-# sibr - simulated survival data ------------------------------------------
-
-#' sibr - a simulated cohort of Finnish female breast cancer patients
-#'
-#' \code{sibr} is a simulated cohort pertaining female Finnish breast cancer patients
-#' diagnosed between 1993-2012. Instead of actual original dates, the dates are masked
-#' via modest randomization within several time windows. The dataset is additionally
-#' a random sample of 10 000 cases from the pertaining time window.
-#'
-#' The closing date for the pertinent data was 2012-12-31, meaning status information was
-#' available only up to that point --- hence the maximum possible \code{ex_date} is \code{2012-12-31}.
-#'
-#' @source The Finnish Cancer Registry
-#' @format data.table with columns
-#' \itemize{
-#' \item sex - gender of the patient (1 = female)
-#' \item bi_date - date of birth
-#' \item dg_date - date of cancer diagnosis
-#' \item ex_date - date of exit from follow-up (death or censoring)
-#' \item status - status of the person at exit; 0 alive; 1 dead due to pertinent cancer; 2 dead due to other causes
-#' \item dg_age - age at diagnosis expressed as fractional years
-#' }
-#' @author Karri Seppa
-#' @name sibr
-#' @family popEpi data
-#' @family survival data
-NULL
-
-
-
-
-# International standard weights ------------------------------------------
-#' Age standardisation weights from the ICSS scheme.
-#'
-#' Contains three sets age-standardisation weights for age-standardized survival (net, relative or observed).
-#'
-#'
-#' @source
-#' \href{https://seer.cancer.gov/stdpopulations/survival.html}{ICSS weights (US National Cancer Institute website)}
-#'
-#' Corazziari, Isabella, Mike Quinn, and Riccardo Capocaccia. "Standard cancer patient population for age standardising survival ratios." European Journal of Cancer 40.15 (2004): 2307-2316.
-#' @format data.table with columns
-#' \itemize{
-#' \item age - lower bound of the age group
-#' \item ICSS1 - first set of weights, sums to 100 000
-#' \item ICSS2 - second set of weights, sums to 100 000
-#' \item ICSS3 - third set of weights, sums to 100 000
-#' }
-#' @name ICSS
-#' @family popEpi data
-#' @family weights
-#' @examples
-#' ## aggregate weights to a subset of age groups
-#' data(ICSS)
-#' cut <- c(0, 30, 50, 70, Inf)
-#' agegr <- cut(ICSS$age, cut, right = FALSE)
-#' aggregate(ICSS1~agegr, data = ICSS, FUN = sum)
-NULL
-
-
-# popmort -------------------------------------------------------------------
-#' Population mortality rates in Finland 1951 - 2013 in 101 age groups and
-#' by gender. This is an example of a population hazard table as used in
-#' \pkg{popEpi}; for the general help page, see \code{\link{pophaz}}.
-#'
-#'
-#' @source Statistics Finland
-#' @format \code{data.table} with columns
-#' \itemize{
-#' \item \code{sex} gender coded as male, female (0, 1)
-#' \item \code{year} calendar year
-#' \item \code{agegroup} - coded 0 to 100; one-year age groups
-#' \item \code{haz} the average population mortality rate per person-year
-#' (d/(pyrs), where d is the number of deaths and pyrs is the person-years)
-#' }
-#' @name popmort
-#' @family popEpi data
-#' @seealso \code{\link{pophaz}}
-NULL
-
-
-
-
-# stdpop18 ------------------------------------------------------------------
-
-#' Standard populations from 2000: world, Europe and Nordic.
-#'
-#' World, European, and Nordic standard populations by 18 age categories.
-#' Sums to 100000.
-#'
-#' @source Nordcan, 2000
-#' @format data.table with columns
-#' \itemize{
-#' \item \code{agegroup}, age group in 18 categories (character)
-#' \item \code{world}, World 2000 standard population (numeric)
-#' \item \code{europe}, European standard population (numeric)
-#' \item \code{nordic}, Nordic standard population (numeric)
-#' }
-#' @name stdpop18
-#' @family popEpi data
-#' @family weights
-NULL
-
-
-# stdpop101 -----------------------------------------------------------------
-
-#' World standard population by 1 year age groups from 1 to 101. Sums to 100 000.
-#'
-#'
-#' @source Standard population is from:
-#' \href{https://seer.cancer.gov/stdpopulations/stdpop.singleages.html}{world standard population "101of1"}
-#'
-#' @format data.table with columns
-#' \itemize{
-#' \item \code{world_std} weight that sums to 100000 (numeric)
-#' \item \code{agegroup} age group from 1 to 101 (numeric)
-#' }
-#' @name stdpop101
-#' @family popEpi data
-#' @family weights
-NULL
-
-
-
-
-
-# meanpop_fi -------------------------------------------------------------------
-#' Mean population counts in Finland year, sex, and age group.
-#'
-#' @source Statistics Finland
-#' @format \code{data.table} with columns
-#' \itemize{
-#' \item \code{sex} gender coded as male, female (0, 1)
-#' \item \code{year} calendar year 1981-2016
-#' \item \code{agegroup} - coded 0 to 100; one-year age groups
-#' \item \code{meanpop} the mean population count; that is, the mean of the
-#' annual population counts of two consecutive years; e.g. for 1990
-#' \code{meanpop} is the mean of population counts for 1990 and 1991
-#' (counted at 1990-01-01 and 1991-01-01, respectively)
-#' }
-#' @name meanpop_fi
-#' @family popEpi data
-NULL
-
+
+
+
+# sire - simulated survival data ------------------------------------------
+
+#' sire - a simulated cohort of Finnish female rectal cancer patients
+#'
+#' \code{sire} is a simulated cohort pertaining female Finnish rectal cancer patients
+#' diagnosed between 1993-2012. Instead of actual original dates, the dates are masked
+#' via modest randomization within several time windows.
+#'
+#' The closing date for the pertinent data was 2012-12-31, meaning status information was
+#' available only up to that point --- hence the maximum possible \code{ex_date} is \code{2012-12-31}.
+#'
+#' @source The Finnish Cancer Registry
+#' @format data.table with columns
+#' \itemize{
+#' \item sex - gender of the patient (1 = female)
+#' \item bi_date - date of birth
+#' \item dg_date - date of cancer diagnosis
+#' \item ex_date - date of exit from follow-up (death or censoring)
+#' \item status - status of the person at exit; 0 alive; 1 dead due to pertinent cancer; 2 dead due to other causes
+#' \item dg_age - age at diagnosis expressed as fractional years
+#' }
+#' @author Karri Seppa
+#' @name sire
+#' @family popEpi data
+#' @family survival data
+NULL
+
+
+# sibr - simulated survival data ------------------------------------------
+
+#' sibr - a simulated cohort of Finnish female breast cancer patients
+#'
+#' \code{sibr} is a simulated cohort pertaining female Finnish breast cancer patients
+#' diagnosed between 1993-2012. Instead of actual original dates, the dates are masked
+#' via modest randomization within several time windows. The dataset is additionally
+#' a random sample of 10 000 cases from the pertaining time window.
+#'
+#' The closing date for the pertinent data was 2012-12-31, meaning status information was
+#' available only up to that point --- hence the maximum possible \code{ex_date} is \code{2012-12-31}.
+#'
+#' @source The Finnish Cancer Registry
+#' @format data.table with columns
+#' \itemize{
+#' \item sex - gender of the patient (1 = female)
+#' \item bi_date - date of birth
+#' \item dg_date - date of cancer diagnosis
+#' \item ex_date - date of exit from follow-up (death or censoring)
+#' \item status - status of the person at exit; 0 alive; 1 dead due to pertinent cancer; 2 dead due to other causes
+#' \item dg_age - age at diagnosis expressed as fractional years
+#' }
+#' @author Karri Seppa
+#' @name sibr
+#' @family popEpi data
+#' @family survival data
+NULL
+
+
+
+
+# International standard weights ------------------------------------------
+#' Age standardisation weights from the ICSS scheme.
+#'
+#' Contains three sets age-standardisation weights for age-standardized survival (net, relative or observed).
+#'
+#'
+#' @source
+#' \href{https://seer.cancer.gov/stdpopulations/survival.html}{ICSS weights (US National Cancer Institute website)}
+#'
+#' Corazziari, Isabella, Mike Quinn, and Riccardo Capocaccia. "Standard cancer patient population for age standardising survival ratios." European Journal of Cancer 40.15 (2004): 2307-2316.
+#' @format data.table with columns
+#' \itemize{
+#' \item age - lower bound of the age group
+#' \item ICSS1 - first set of weights, sums to 100 000
+#' \item ICSS2 - second set of weights, sums to 100 000
+#' \item ICSS3 - third set of weights, sums to 100 000
+#' }
+#' @name ICSS
+#' @family popEpi data
+#' @family weights
+#' @examples
+#' ## aggregate weights to a subset of age groups
+#' data(ICSS)
+#' cut <- c(0, 30, 50, 70, Inf)
+#' agegr <- cut(ICSS$age, cut, right = FALSE)
+#' aggregate(ICSS1~agegr, data = ICSS, FUN = sum)
+NULL
+
+
+# popmort -------------------------------------------------------------------
+#' Population mortality rates in Finland 1951 - 2013 in 101 age groups and
+#' by gender. This is an example of a population hazard table as used in
+#' \pkg{popEpi}; for the general help page, see \code{\link{pophaz}}.
+#'
+#'
+#' @source Statistics Finland
+#' @format \code{data.table} with columns
+#' \itemize{
+#' \item \code{sex} gender coded as male, female (0, 1)
+#' \item \code{year} calendar year
+#' \item \code{agegroup} - coded 0 to 100; one-year age groups
+#' \item \code{haz} the average population mortality rate per person-year
+#' (d/(pyrs), where d is the number of deaths and pyrs is the person-years)
+#' }
+#' @name popmort
+#' @family popEpi data
+#' @seealso \code{\link{pophaz}}
+NULL
+
+
+
+
+# stdpop18 ------------------------------------------------------------------
+
+#' Standard populations from 2000: world, Europe and Nordic.
+#'
+#' World, European, and Nordic standard populations by 18 age categories.
+#' Sums to 100000.
+#'
+#' @source Nordcan, 2000
+#' @format data.table with columns
+#' \itemize{
+#' \item \code{agegroup}, age group in 18 categories (character)
+#' \item \code{world}, World 2000 standard population (numeric)
+#' \item \code{europe}, European standard population (numeric)
+#' \item \code{nordic}, Nordic standard population (numeric)
+#' }
+#' @name stdpop18
+#' @family popEpi data
+#' @family weights
+NULL
+
+
+# stdpop101 -----------------------------------------------------------------
+
+#' World standard population by 1 year age groups from 1 to 101. Sums to 100 000.
+#'
+#'
+#' @source Standard population is from:
+#' \href{https://seer.cancer.gov/stdpopulations/stdpop.singleages.html}{world standard population "101of1"}
+#'
+#' @format data.table with columns
+#' \itemize{
+#' \item \code{world_std} weight that sums to 100000 (numeric)
+#' \item \code{agegroup} age group from 1 to 101 (numeric)
+#' }
+#' @name stdpop101
+#' @family popEpi data
+#' @family weights
+NULL
+
+
+
+
+
+# meanpop_fi -------------------------------------------------------------------
+#' Mean population counts in Finland year, sex, and age group.
+#'
+#' @source Statistics Finland
+#' @format \code{data.table} with columns
+#' \itemize{
+#' \item \code{sex} gender coded as male, female (0, 1)
+#' \item \code{year} calendar year 1981-2016
+#' \item \code{agegroup} - coded 0 to 100; one-year age groups
+#' \item \code{meanpop} the mean population count; that is, the mean of the
+#' annual population counts of two consecutive years; e.g. for 1990
+#' \code{meanpop} is the mean of population counts for 1990 and 1991
+#' (counted at 1990-01-01 and 1991-01-01, respectively)
+#' }
+#' @name meanpop_fi
+#' @family popEpi data
+NULL
+
diff --git a/R/direct_adjusting.R b/R/direct_adjusting.R
index ec3bca8..4b58984 100644
--- a/R/direct_adjusting.R
+++ b/R/direct_adjusting.R
@@ -1,155 +1,155 @@
-
-
-
-#' @title Direct Adjusting in \pkg{popEpi} Using Weights
-#' @author Joonas Miettinen
-#' @name direct_standardization
-#' @aliases direct_adjusting
-#' @description
-#'
-#' Several functions in \pkg{popEpi} have support for direct standardization
-#' of estimates. This document explains the usage of weighting with those
-#' functions.
-#'
-#' @details
-#'
-#' Direct standardization is performed by computing estimates of
-#' \code{E}
-#' by the set of adjusting variables \code{A}, to which a set of weights
-#' \code{W} is applicable. The weighted average over \code{A} is then the
-#' direct-adjusted estimate of \code{E} (\code{E*}).
-#'
-#' To enable both quick and easy as well as more rigorous usage of direct
-#' standardization with weights, the weights arguments in \pkg{popEpi}
-#' can be supplied in several ways. Ability to use the different
-#' ways depends on the number of adjusting variables.
-#'
-#' The weights are always handled internally to sum to 1, so they do not
-#' need to be scaled in this manner when they are supplied. E.g.
-#' counts of subjects in strata may be passed.
-#'
-#' @section Basic usage - one adjusting variable:
-#'
-#' In the simple case where we are adjusting by only one variable
-#' (e.g. by age group), one can simply supply a vector of weights:
-#'
-#' \code{FUN(weights = c(0.1, 0.25, 0.25, 0.2, 0.2))}
-#'
-#' which may be stored in advance:
-#'
-#' \code{w <- c(0.1, 0.25, 0.25, 0.2, 0.2)}
-#'
-#' \code{FUN(weights = w)}
-#'
-#' The order of the weights matters. \pkg{popEpi} functions with direct
-#' adjusting enabled match the supplied weights to the adjusting variables
-#' as follows: If the adjusting variable is a \code{factor}, the order
-#' of the levels is used. Otherwise, the alphabetic order of the unique
-#' values is used (try \code{sort} to see how it works). For clarity
-#' and certainty we recommend using \code{factor} or \code{numeric} variables
-#' when possible. \code{character} variables should be avoided: to see why,
-#' try \code{sort(15:9)} and \code{sort(as.character(15:9))}.
-#'
-#' It is also possible to supply a \code{character} string corresponding
-#' to one of the age group standardization schemes integrated into \pkg{popEpi}:
-#'
-#' \itemize{
-#' \item \code{'europe_1976_18of5'} - European std. population (1976), 18 age groups
-#' \item \code{'nordic_2000_18of5'} - Nordic std. population (2000), 18 age groups
-#' \item \code{'world_1966_18of5'} - world standard (1966), 18 age groups
-#' \item \code{'world_2000_18of5'} - world standard (2000), 18 age groups
-#' \item \code{'world_2000_20of5'} - world standard (2000), 20 age groups
-#' \item \code{'world_2000_101of1'} - world standard (2000), 101 age groups
-#' }
-#'
-#' Additionally, \code{\link{ICSS}} contains international weights used in
-#' cancer survival analysis, but they are not currently usable by passing
-#' a string to \code{weights} and must be supplied by hand.
-#'
-#' You may also supply \code{weights = "internal"} to use internally
-#' computed weights, i.e. usually simply the counts of subjects / person-time
-#' experienced in each stratum. E.g.
-#'
-#' \code{FUN(weights = "world_2000_18of5")}
-#'
-#' will use the world standard population from 2000 as
-#' weights for 18 age groups, that your adjusting variable is
-#' assumed to contain. The adjusting variable must be coded in this case as
-#' a numeric variable containing \code{1:18} or as a \code{factor} with
-#' 18 levels (coded from the youngest to the oldest age group).
-#'
-#' @section More than one adjusting variable:
-#'
-#' In the case that you employ more than one adjusting variable, separate
-#' weights should be passed to match to the levels of the different adjusting
-#' variables. When supplied correctly, "grand" weights are formed based on
-#' the variable-specific weights by multiplying over the variable-specific
-#' weights (e.g. if men have \code{w = 0.5} and the age group 0-4 has
-#' \code{w = 0.1}, the "grand" weight for men aged 0-4 is \code{0.5*0.1}).
-#' The "grand" weights are then used for adjusting after ensuring they
-#' sum to one.
-#'
-#' When using multiple adjusting variables, you
-#' are allowed to pass either a named \code{list} of
-#' weights or a \code{data.frame} of weights. E.g.
-#'
-#' \code{WL <- list(agegroup = age_w, sex = sex_w)}
-#'
-#' \code{FUN(weights = WL)}
-#'
-#' where \code{age_w} and \code{sex_w} are numeric vectors. Given the
-#' conditions explained in the previous section are satisfied, you may also do
-#' e.g.
-#'
-#' \code{WL <- list(agegroup = "world_2000_18of", sex = sex_w)}
-#'
-#' \code{FUN(weights = WL)}
-#'
-#' and the world standard pop is used as weights for the age groups as outlined
-#' in the previous section.
-#'
-#' Sometimes using a \code{data.frame} can be clearer (and it is fool-proof
-#' as well). To do this, form a \code{data.frame} that repeats the levels
-#' of your adjusting variables by each level of every other adjusting variable,
-#' and assign the weights as a column named \code{"weights"}. E.g.
-#'
-#' \code{wdf <- data.frame(sex = rep(0:1, each = 18), agegroup = rep(1:18, 2))}
-#'
-#' \code{wdf$weights <- rbinom(36, size = 100, prob = 0.25)}
-#'
-#' \code{FUN(weights = wdf)}
-#'
-#' If you want to use the counts of subjects in strata as the weights,
-#' one way to do this is by e.g.
-#'
-#' \code{wdf <- as.data.frame(x$V1, x$V2, x$V3)}
-#' \code{names(wdf) <- c("V1", "V2", "V3", "weights")}
-#'
-#' @family weights
-#' @family popEpi argument evaluation docs
-#'
-#' @references
-#' Source of the Nordic standard population in 5-year age groups
-#' (also contains European & 1966 world standards):
-#' \url{https://www-dep.iarc.fr/NORDCAN/english/glossary.htm}
-#'
-#' Source of the 1976 European standard population:
-#'
-#' Waterhouse, J.,Muir, C.S.,Correa, P.,Powell, J., eds (1976).
-#' Cancer Incidence in Five Continents, Vol. III.
-#' IARC Scientific Publications, No. 15, Lyon, IARC.
-#' ISBN: 9789283211150
-#'
-#' Source of 2000 world standard population in 1-year age groups:
-#' \url{https://seer.cancer.gov/stdpopulations/stdpop.singleages.html}
-
-NULL
-
-
-
-
-
-
-
-
-
+
+
+
+#' @title Direct Adjusting in \pkg{popEpi} Using Weights
+#' @author Joonas Miettinen
+#' @name direct_standardization
+#' @aliases direct_adjusting
+#' @description
+#'
+#' Several functions in \pkg{popEpi} have support for direct standardization
+#' of estimates. This document explains the usage of weighting with those
+#' functions.
+#'
+#' @details
+#'
+#' Direct standardization is performed by computing estimates of
+#' \code{E}
+#' by the set of adjusting variables \code{A}, to which a set of weights
+#' \code{W} is applicable. The weighted average over \code{A} is then the
+#' direct-adjusted estimate of \code{E} (\code{E*}).
+#'
+#' To enable both quick and easy as well as more rigorous usage of direct
+#' standardization with weights, the weights arguments in \pkg{popEpi}
+#' can be supplied in several ways. Ability to use the different
+#' ways depends on the number of adjusting variables.
+#'
+#' The weights are always handled internally to sum to 1, so they do not
+#' need to be scaled in this manner when they are supplied. E.g.
+#' counts of subjects in strata may be passed.
+#'
+#' @section Basic usage - one adjusting variable:
+#'
+#' In the simple case where we are adjusting by only one variable
+#' (e.g. by age group), one can simply supply a vector of weights:
+#'
+#' \code{FUN(weights = c(0.1, 0.25, 0.25, 0.2, 0.2))}
+#'
+#' which may be stored in advance:
+#'
+#' \code{w <- c(0.1, 0.25, 0.25, 0.2, 0.2)}
+#'
+#' \code{FUN(weights = w)}
+#'
+#' The order of the weights matters. \pkg{popEpi} functions with direct
+#' adjusting enabled match the supplied weights to the adjusting variables
+#' as follows: If the adjusting variable is a \code{factor}, the order
+#' of the levels is used. Otherwise, the alphabetic order of the unique
+#' values is used (try \code{sort} to see how it works). For clarity
+#' and certainty we recommend using \code{factor} or \code{numeric} variables
+#' when possible. \code{character} variables should be avoided: to see why,
+#' try \code{sort(15:9)} and \code{sort(as.character(15:9))}.
+#'
+#' It is also possible to supply a \code{character} string corresponding
+#' to one of the age group standardization schemes integrated into \pkg{popEpi}:
+#'
+#' \itemize{
+#' \item \code{'europe_1976_18of5'} - European std. population (1976), 18 age groups
+#' \item \code{'nordic_2000_18of5'} - Nordic std. population (2000), 18 age groups
+#' \item \code{'world_1966_18of5'} - world standard (1966), 18 age groups
+#' \item \code{'world_2000_18of5'} - world standard (2000), 18 age groups
+#' \item \code{'world_2000_20of5'} - world standard (2000), 20 age groups
+#' \item \code{'world_2000_101of1'} - world standard (2000), 101 age groups
+#' }
+#'
+#' Additionally, \code{\link{ICSS}} contains international weights used in
+#' cancer survival analysis, but they are not currently usable by passing
+#' a string to \code{weights} and must be supplied by hand.
+#'
+#' You may also supply \code{weights = "internal"} to use internally
+#' computed weights, i.e. usually simply the counts of subjects / person-time
+#' experienced in each stratum. E.g.
+#'
+#' \code{FUN(weights = "world_2000_18of5")}
+#'
+#' will use the world standard population from 2000 as
+#' weights for 18 age groups, that your adjusting variable is
+#' assumed to contain. The adjusting variable must be coded in this case as
+#' a numeric variable containing \code{1:18} or as a \code{factor} with
+#' 18 levels (coded from the youngest to the oldest age group).
+#'
+#' @section More than one adjusting variable:
+#'
+#' In the case that you employ more than one adjusting variable, separate
+#' weights should be passed to match to the levels of the different adjusting
+#' variables. When supplied correctly, "grand" weights are formed based on
+#' the variable-specific weights by multiplying over the variable-specific
+#' weights (e.g. if men have \code{w = 0.5} and the age group 0-4 has
+#' \code{w = 0.1}, the "grand" weight for men aged 0-4 is \code{0.5*0.1}).
+#' The "grand" weights are then used for adjusting after ensuring they
+#' sum to one.
+#'
+#' When using multiple adjusting variables, you
+#' are allowed to pass either a named \code{list} of
+#' weights or a \code{data.frame} of weights. E.g.
+#'
+#' \code{WL <- list(agegroup = age_w, sex = sex_w)}
+#'
+#' \code{FUN(weights = WL)}
+#'
+#' where \code{age_w} and \code{sex_w} are numeric vectors. Given the
+#' conditions explained in the previous section are satisfied, you may also do
+#' e.g.
+#'
+#' \code{WL <- list(agegroup = "world_2000_18of", sex = sex_w)}
+#'
+#' \code{FUN(weights = WL)}
+#'
+#' and the world standard pop is used as weights for the age groups as outlined
+#' in the previous section.
+#'
+#' Sometimes using a \code{data.frame} can be clearer (and it is fool-proof
+#' as well). To do this, form a \code{data.frame} that repeats the levels
+#' of your adjusting variables by each level of every other adjusting variable,
+#' and assign the weights as a column named \code{"weights"}. E.g.
+#'
+#' \code{wdf <- data.frame(sex = rep(0:1, each = 18), agegroup = rep(1:18, 2))}
+#'
+#' \code{wdf$weights <- rbinom(36, size = 100, prob = 0.25)}
+#'
+#' \code{FUN(weights = wdf)}
+#'
+#' If you want to use the counts of subjects in strata as the weights,
+#' one way to do this is by e.g.
+#'
+#' \code{wdf <- as.data.frame(x$V1, x$V2, x$V3)}
+#' \code{names(wdf) <- c("V1", "V2", "V3", "weights")}
+#'
+#' @family weights
+#' @family popEpi argument evaluation docs
+#'
+#' @references
+#' Source of the Nordic standard population in 5-year age groups
+#' (also contains European & 1966 world standards):
+#' \url{https://www-dep.iarc.fr/NORDCAN/english/glossary.htm}
+#'
+#' Source of the 1976 European standard population:
+#'
+#' Waterhouse, J.,Muir, C.S.,Correa, P.,Powell, J., eds (1976).
+#' Cancer Incidence in Five Continents, Vol. III.
+#' IARC Scientific Publications, No. 15, Lyon, IARC.
+#' ISBN: 9789283211150
+#'
+#' Source of 2000 world standard population in 1-year age groups:
+#' \url{https://seer.cancer.gov/stdpopulations/stdpop.singleages.html}
+
+NULL
+
+
+
+
+
+
+
+
+
diff --git a/R/evaluation.R b/R/evaluation.R
index 82575a7..790a033 100644
--- a/R/evaluation.R
+++ b/R/evaluation.R
@@ -1,993 +1,993 @@
-
-
-is_expression <- function(e) {
-
- ifelse(any(c("call", "name") %in% class(e)), TRUE, FALSE)
-
-}
-
-is_list_expression <- function(e) {
-
- ifelse(is_expression(e) && deparse(as.list(e)[[1]]) == "list", TRUE, FALSE)
-
-}
-
-is_dollar_expression <- function(e) {
-
- ifelse(is_expression(e) && deparse(as.list(e)[[1]]) == "$", TRUE, FALSE)
-
-}
-
-
-is_variable <- function(x) {
-
- varModes <- c("numeric", "complex", "logical", "character", "raw")
-
- ifelse(mode(x) %in% varModes, TRUE, FALSE)
-
-}
-
-
-evalArg <- function(arg, env, enc, ...) {
- UseMethod("evalArg")
-}
-
-
-evalArg.default <- function(arg, env, enc) {
- if (is.list(arg)) {
- arg <- as.list(arg)
- } else if (is_variable(arg)) {
- l <- list(arg)
- }
- return(arg)
-}
-
-evalArg.name <- function(arg, env, enc) {
- d <- deparse(arg)
- out <- try(get(d, envir = env, inherits = FALSE), silent = TRUE)
- if (inherits(out, "try-error")) {
- out <- try(get(d, envir = enc, inherits = FALSE), silent = TRUE)
- }
- if (inherits(out, "try-error")) {
- stop("Could not find object ", d, ".")
- }
- out <- list(out)
- names(out) <- d
- out
-}
-
-evalArg.call <- function(arg, env, enc) {
-
- out <- eval(arg, envir = env, enclos = enc)
-
- if (is.list(out)) {
- out <- as.list(out)
- } else if (is_variable(out)) {
- out <- list(out)
- names(out) <- paste0(deparse(arg), collapse = "")
- }
- out
-}
-
-evalArg.character <- function(arg, env, enc) {
- ## NOTE: enc unused
- se <- substitute(env)
- out <- lapply(arg, function(stri) {
- try({
- get(stri, envir = as.environment(env), inherits = FALSE)
- }, silent = TRUE)
- })
-
- notFound <- arg[sapply(out, inherits, "try-error")]
-
- if (length(notFound)) {
- if (length(notFound) > 5) notFound <- notFound[1:5]
- stop("Could not find object(s): ",
- paste0(notFound, collapse = ", "), ".")
- }
- names(out) <- arg
- out
-}
-
-evalArg.formula <- function(arg, env, enc) {
-
- rhsl <- as.list(RHS2DT(arg, data = env, enclos = enc))
-
- rhsl
-
-}
-
-
-method_classes <- function(f) {
-
- stopifnot(is.character(f))
- e <- utils::methods(f)
- e <- unlist(lapply(e, as.character))
- e <- unlist(lapply(e, sub, pattern = paste0(f, "."), replacement = ""))
- setdiff(e, "default")
-
-}
-
-
-do_evalPopArg <- function(arg, env, enc) {
- eam <- method_classes("evalArg")
-
- ne <- list(env = env, enc = enc)
- de <- list(env = enc, enc = baseenv())
-
- r <- arg
- tick <- 1L
- while (any(class(r) %in% eam)) {
-
- envs <- if (is_dollar_expression(r)) de else ne
- r <- evalArg(arg = r, env = envs$env, enc = envs$enc)
-
- tick <- tick + 1L
- if (tick == 100L) stop("No result after 100 evaluations")
- }
-
- r
-}
-
-
-
-argType <- function(arg) {
-
- tl <- list("NULL" = "NULL", character = "character",
- list = "call", formula = "formula",
- expression = c("call", "name"))
-
- tl <- sapply(tl, function(ch) {
- t <- tryCatch(inherits(arg, ch),
- error = function(e) e,
- warning = function(w) w)
- isTRUE(t)
- })
- if (!any(tl)) tl[names(tl) == "expression"] <- TRUE
- if (tl["list"]) tl["list"] <- substr(deparse(arg), 1, 5) == "list("
- names(tl)[tl & !duplicated(tl)]
-
-}
-
-
-
-
-
-evalPopArg2 <- function(data, arg, enclos, DT = TRUE,
- types = c("NULL","character", "list", "expression")) {
-
- allowed_types <- c("NULL", "character", "list", "expression", "formula")
- types <- match.arg(types, allowed_types,
- several.ok = TRUE)
- if (!argType(arg) %in% types) {
- stop("Supplied argument not allowed type. Current type: ",
- argType(arg), ". Allowed types: ",
- paste0(types, collapse = ", "))
- }
-
- l <- do_evalPopArg(arg = arg, env = data, enc = enclos)
- l
-}
-
-
-
-
-evalPopArg <- function(
- data,
- arg,
- n = 1L,
- DT = TRUE,
- enclos = NULL,
- recursive = TRUE,
- types = c("NULL","character", "list", "expression"),
- naming = c("DT", "model")
-) {
- ## arg: an unevaluated AND substitute()'d argument within a function, which may be
- ## * an expression
- ## * a list of expressions
- ## * a character vector of variable names (in a given data set)
- ## n: steps upstream as in parent.frame(n); 0L refers to calling environment
- ## of evalPopArg, 1L to calling environment of e.g. sir which uses evalPopArg, etc.
- ## hence n = 1L should be almost always the right way to go.
- ## ALTERNATIVELY supply an environment by hand via enclos.
- ## enclos will override n.
- ## recursive: if TRUE, evals arg as many times as it is of type language.
- ## output:
- ## * vector as a result of an expression
- ## * list as a result of a list
- ## * character vector of names
- ## OR with DT = TRUE, a data.table based on aforementioned results.
- ## intention: output to be used in by argument of data.table.
- ## a data.table output is directly usable in by.
- ## if column names cannot be easily found, BV1, BV2, ... are imputed
- ## for missing names (unrobustly: such names may already exist, resulting in duplicates)
-
- ## naming: DT style uses first element of all.names() where
- ## a name has to be created; model style keeps the whole deparsed
- ## expression. Only applied when DT = TRUE
- naming <- match.arg(naming[1L], c("DT", "model"))
-
- ## types: allowed popArg types of arguments.
- types <- match.arg(types, c("NULL","character", "list", "expression", "formula"), several.ok = TRUE)
-
- if (!is.null(enclos) && !is.environment(enclos)) {
- stop("enclos must be NULL or an environment")
- }
- if (!is.environment(enclos)) enclos <- parent.frame(n + 1L)
-
- ## used data may change if expression uses dollar operator, hence
- ## arg should not be evaluated within data but only its surroundings.
- use_data <- data
- use_enc <- enclos
- dataNames <- names(data)
-
- if (uses_dollar(arg, data.names = dataNames)) {
- use_data <- enclos
- use_enc <- baseenv()
- }
- e <- eval(arg, envir = use_data, enclos = use_enc)
- if (is.language(e) && !inherits(e, "formula")) {
- if (!recursive) stop("arg is of type language after evaluating, and recursive = FALSE")
-
- tick <- 1L
- while (is.language(e) && !inherits(e, "formula") && tick < 100L) {
- arg <- e
- use_data <- data
- use_enc <- enclos
- if (uses_dollar(arg, data.names = dataNames)) {
- use_data <- enclos
- use_enc <- baseenv()
- }
- e <- eval(arg, envir = use_data, enclos = use_enc)
- tick <- tick + 1L
- }
- if (tick == 100L) stop("arg was of type language even after 100 evaluations. Something went wrong here...")
-
-
-
- }
- argType <- "NULL"
- if (is.list(e)) argType <- "list" else
- if (is.character(e)) argType <- "character" else
- if (mode(e) == "numeric" || is.vector(e) || is.factor(e)) argType <- "expression" else
- if (inherits(e, "formula")) argType <- "formula"
-
- if (!argType %in% types) {
- stop(
- "popArg type of evaluated arg not one of the allowed types ",
- "(set via argument types). Detected type: '", deparse(argType),
- "'. Allowed types: ", deparse(types))
- }
- if (argType == "NULL") return(NULL)
-
- av <- all.vars(arg)
- if (argType == "character") av <- e
-
- ## byNames: names of columns resulting from aggre argument, by which
- ## pyrs and such are aggregated. same functionality
- ## as in results seen in e.g.
- ## dt[, .N, by = list(factor(x), y, z = w)] ## factor, y, z
- ## note: first object in ags with list or expression aggre is "list"
- byNames <- NULL
- arg_substr5 <- substr(paste0(deparse(arg), collapse = " "), 1, 5)
- if (is.character(e)) {
- byNames <- e
- } else if (argType == "list" && arg_substr5 == "list(") {
- byNames <- sapply(arg[-1], function(x) all.names(x)[1])
- } else if (argType == "expression") {
- byNames <- all.names(arg)[1]
- }
-
- badNames <- c("$", ":")
-
- byNames[byNames %in% badNames] <- paste0("BV", 1:length(byNames))[byNames %in% badNames]
-
- if (argType == "formula") {
- arg <- e
- use_data <- data
- use_enc <- enclos
- e <- RHS2DT(formula = e, data = use_data, enclos = use_enc)
- if (ncol(e) == 0L || nrow(e) == 0L) e <- data.table() ## e.g. y ~ 1
-
- } else if (is.character(e)) {
- all_names_present(data, e)
- if (DT) {
- ## note: e contains variable names in character strings,
- ## ergo fully named list & DT created
- l <- lapply(e, function(x) data[[x]])
- setattr(l, "names", e)
- setDT(l)
- e <- l; rm(l)
- }
- } else if (is.list(e)) {
- ## note: fully unnamed list has NULL names()
- ## partially named list has some "" names
- ne <- names(e)
-
- if (DT && any(sapply(e, is.null))) stop("at least one object in list arg is NULL; cannot form data.table with such list")
-
- if (is.null(ne)) ne <- rep("", length(e))
-
-
- wh_bad <- which(ne == "")
- if (length(wh_bad) > 0) {
- if (is.null(byNames)) {
- byNames <- paste0("BV", 1:length(e))
- }
-
- ne[wh_bad] <- byNames[wh_bad]
- setattr(e, "names", ne)
- }
-
- if (DT) {
- ## NOTE: used to be setDT, but length of different elements
- ## in list may differ, which as.data.table handles correctly
- e <- as.data.table(e)
- }
- } else if (mode(e) == "numeric" || is.vector(e) || is.factor(e)) {
- ## is e.g. a numeric vector or a factor
- if (DT) {
- e <- data.table(V1 = e)
- setnames(e, 1, byNames)
- }
- }
-
- ## NOTE: e may be of type language at this point if arg was double-quoted
- ## and recursive = FALSE
-
- if (DT) {
- setDT(e)
- setattr(e, "all.vars", av)
- setattr(e, "quoted.arg", arg)
- setattr(e, "arg.type", argType)
- if (naming == "model" && ncol(e) > 0L) setnames(e, 1:ncol(e), popArg2ModelNames(arg, type = argType))
- }
- e
-}
-
-
-popArgType <- function(arg, data = NULL, n = 1L, enclos = NULL, recursive = TRUE) {
- ## input: a substitute()'d expression / argument
- ## NOTE: recursive useful when arg might be quoted twice and want the eventual
- ## result; need to supply data for it though
- ## output: type of thingie that was substitute()'d
- ## * list (of expressions)
- ## * character string vector
- ## * an expression (includes symbol)
- av <- all.vars(arg, unique = TRUE) ## all variables
- av <- setdiff(av, c("$", "T", "F"))
- an <- all.names(arg, unique = TRUE) ## all variables and functions
- af <- setdiff(an, av) ## all functions used
-
- a <- deparse(arg)
- a <- paste0(a, collapse = "") ## lists may somehow produce length > 1 here
- if (substr(a, 1, 5) == "list(") return("list")
- if (a == "NULL") return("NULL")
- ## detection of character arguments is not easy and should not be considered
- ## fool proof since user may pass e.g. a vector of character strings as a
- ## symbol, which can only really be interpreted as an expression
- if (sum(grep('\\"', a)) && length(setdiff(af, "c")) == 0) return("character")
-
- if (is.data.frame(data)) {
- if (is.symbol(arg) && a %in% names(data)) return("expression")
- if (length(av) == 1L && av %in% names(data)) return("expression")
- e <- eval(arg, envir = data[1:min(nrow(data), 20L), ],
- enclos = if (is.environment(enclos)) enclos else parent.frame(n + 1L))
- if (inherits(e, "formula")) return("formula")
- if (is.null(e)) return("NULL")
- if (is.list(e)) return("list")
- if (is.character(e) && all(e %in% names(data))) return("character")
- if (is.vector(e) || is.factor(e)) return("expression")
-
- if (recursive && is.language(e)) return(popArgType(e, data = data, n = n + 1L, enclos = enclos))
- }
-
- "expression"
-
-}
-popArg2ModelNames <- function(arg, type) {
- ## INTENTION: given a quoted/substituted expression,
- ## digs out the expression(s) creating a/multiple column(s)
- ## and returns the deparsed expression(s) to be used as names
- ## of columns the same way that models such as lm() display
- ## the names of expressions used within formula
-
- ## some exceptions
- if (is.data.frame(arg)) return(names(arg))
- if (is.character(arg)) return(arg)
-
- type <- match.arg(type[1L], c("NULL", "character", "list", "expression", "formula"))
-
- lang <- NULL
- lang <- try(is.language(arg) || inherits(arg, "formula"), silent = TRUE)
-
-
- if (inherits(lang, "try-error") || !lang) stop("arg must be a quoted or substituted expression or a formula. Error message: ", lang, ". type of arg: ", typeof(arg), ". Class: ", class(arg), ". Mode: ", mode(arg), ".")
-
- d <- oneWhitespace(paste0(deparse(arg)))
-
- if (type == "expression") return(d) else
- if (type == "NULL") return(NULL) else
- if (type == "character") return(eval(arg)) else
- if (type == "list") {
- d <- substr(d, 6, nchar(d)-1L) ## removes "list(" and ")"
- d <- strsplit(d, ", ")
- return(unlist(d))
- } else if (type == "formula") {
- arg <- eval(arg)
- d <- names(RHS2list(arg))
- if (length(d) == 0L) return(NULL) ## e.g. y ~ 1
- return(d)
- }
- stop("could not determine deparsed-expression-names")
-}
-
-
-
-
-
-uses_dollar <- function(q, data.names) {
- ## INTENTION: determine whether q is an expressions that is evaluated
- ## outside a data.frame, i.e. one that uses the dollar operator.
- ## e.g. TF$V1 should not be evaluated in a data.frame even if it has
- ## the variables TF and V1 since it wont work and was not intended.
- if (!is.language(q) || inherits(q, "formula")) {
- return(FALSE)
- }
-
- d <- deparse(q)
- ## sometimes d is of length > 1 for some reason...
- d <- paste0(d, collapse = "")
- d <- oneWhitespace(d)
-
- if (substr(d, 1, 4) == "list") {
- ## lists are not allowed to work in this manner for now.
- return(FALSE)
- }
-
- if (!grepl(x = d, pattern = "\\$")) {
- ## does not use dollar operator.
- return(FALSE)
- }
-
- ## detect if word$word is used in d
- t <- regexec(pattern = "\\w+\\$\\w+", text = d)
- if (t != -1) {
- ## ok, used word$word
- ## is there are variable with that name in data.names?
- m <- unlist(regmatches(d, t))
- if (m %in% data.names) {
- return(FALSE)
- }
- ## if not, it should be evaluated outside the data.
- return(TRUE)
- }
-
- return(FALSE)
-}
-
-
-
-
-`%.:%` <- function(x, y) {
- ## INTENTION: hacking formula calls using `:`
- ## which is apparently normally evaluated in C... (in model.matrix.default)
- ## USAGE: e.g. c(1,2) %.:% c(3,4) = c(3, 8)
- ## (instead of getting warning)
- if (length(x) > 1L && length(y) > 1L && is.numeric(x) && is.numeric(y)) {
- return(x*y)
- } else if (length(x) == 1L && length(y) == 1L && is.numeric(x) && is.numeric(y)) {
- return(x:y)
- }
- as.factor(x):as.factor(y)
-
-}
-
-
-
-RHS2list <- function(formula, handle.adjust=TRUE) {
- ## INTENTION: turns the right-hand side of a formula
- ## into a list of substituted expressions;
- ## each element in list is an expressions separated
- ## by a '+' in the formula. needs to be eval()'d,
- ## preferably using the appropriate data set.
- if (!inherits(formula, "formula")) stop("not a formula")
-
- ## no response
- formula <- formula[c(1, length(formula))]
-
- te <- terms(formula)
- tl <- attr(te, "term.labels")
-
- ## handle adjusting variables (e.g. adjust(V1, V2) -> c("V1", "V2"))
- adj <- tl[substr(tl, 1, 7) == "adjust("]
- if (length(adj) == 0L) adj <- NULL
- if (handle.adjust && !is.null(adj)) {
- tl <- setdiff(tl, adj)
- adj <- unlist(lapply(adj, function(stri) {
- e <- parse(text = stri)[[1]]
- e <- as.list(e)[-1]
- unlist(lapply(e, deparse))
- }))
-
- tl <- c(tl, adj)
- }
-
- ## to avoid e.g. c(1,2):c(3,4) NOT evaluating as c(3, 8)
- l <- lapply(tl, function(x) gsub(pattern = ":", x = x, replacement = "%.:%"))
- l <- lapply(l, function(x) parse(text = x)[[1L]])
-
- names(l) <- tl
-
- setattr(l, "adjust", adj)
-
- l
-}
-
-uses_colon <- function(e) {
- if (is.character(e)) e <- parse(text = e)[[1]]
- stopifnot(is.call(e) || is.name(e))
- stopifnot(!inherits(e, "formula"))
-
- l <- as.list(e)
- if (deparse(l[[1]]) %in% c(":", "%.:%") && length(l) == 3) {
- return(TRUE)
- }
- FALSE
-}
-
-replace_colon <- function(e) {
- stopifnot(is.call(e) || is.name(e))
- stopifnot(!inherits(e, "formula"))
-
- if (!uses_colon(e)) return(e)
-
- l <- as.list(e)
- l[[1]] <- parse(text = "popEpi:::`%.:%`")[[1]]
- as.call(l)
-}
-
-RHS2DT <- function(formula, data = data.frame(), enclos = parent.frame(1L)) {
- l <- RHS2list(formula)
- if (length(l) == 0L) return(data.table())
- adj <- attr(l, "adjust")
-
- ## foolproofing in case data contains column named e.g. "a:b" and that is
- ## intended to be used
- dana <- names(data)
- dana <- gsub(x=dana, pattern=" %.:% ", replacement = ":")
- dana <- gsub(x=dana, pattern="%.:%", replacement = ":")
-
-
- ld <- lapply(l, deparse)
- ld <- lapply(ld, function(ch) {
- ch <- gsub(x=ch, pattern=" %.:% ", replacement = ":")
- ch <- gsub(x=ch, pattern="%.:%", replacement = ":")
- int <- if (ch %in% dana) which(dana %in% ch) else ch
- if (is.integer(int)) data[[names(data)[int]]] else NULL
- })
- ld[which(sapply(ld, is.null))] <- NULL
- l[names(ld)] <- ld
-
- ## foolproofs use of function %.:% by explicit referral, i.e. :::
- ## (this avoids scoping problem)
- l <- lapply(l, function(elem) {
- if (!is.call(elem)) return(elem)
- if (!uses_colon(elem)) return(elem)
-
- replace_colon(elem)
-
- })
-
- l <- lapply(l, function(elem) {
- eval(expr = elem, envir = data, enclos = enclos)
- })
-
- l <- as.data.table(l)
- setattr(l, "adjust", adj)
- l
-}
-
-
-
-
-
-Surv2DT <- function(Surv) {
- sa <- attributes(Surv)
- type <- sa$type
-
- dt <- as.data.table(lapply(sa$dimnames[[2]], function(col_nm) {
- Surv[, col_nm]
- }))
- setnames(dt, names(dt), sa$dimnames[[2]])
-
- statNA <- sum(is.na(dt$status))
- if (statNA) {
- stop("Some status indicators (", statNA ," values in total) were NA. ",
- "Usual suspects: original status variable ",
- "has NA values, or you have numeric status variable with more than ",
- "two levels and you did not assign e.g. type = 'mstate' (e.g. ",
- "Surv(time = c(1,1,1), event = c(0,1,2), type = 'mstate') works).")
-
- }
-
-
- setattr(dt, "type", type)
-
- label_sources <- c("time2", "event")
- lapply(label_sources, function(lbl_src) {
- if (identical(sa$inputAttributes[[lbl_src]]$class, "factor")) {
- set(
- dt, j = "status",
- value = factor(dt$status, labels = sa$inputAttributes[[lbl_src]]$levels)
- )
- }
- NULL
- })
-
- dt[]
-}
-
-
-
-
-
-evalPopFormula <- function(formula, data = data.frame(), enclos = parent.frame(2L), subset = NULL, Surv.response = TRUE) {
-
- ## INTENTION: given a formula object, returns a DT where each column
- ## is an evaluated expression from formula (separated by + )
-
- fe <- environment(formula)
-
- either <- FALSE
- if (is.character(Surv.response)) {
- Surv.response <- match.arg(Surv.response, "either")
- Surv.response <- TRUE
- either <- TRUE
- } else if (!is.logical(Surv.response)) {
- stop("Surv.response must be either logical or 'either'")
- }
-
- ## subset if needed ----------------------------------------------------------
- if (!is.null(subset) && !is.logical(subset)) {
- stop("subset must be NULL or a logical vector and not an expression at ",
- "this point. If you see this, complain to the package maintainer.")
- }
- if (!is.null(subset)) {
- keepVars <- c(all.vars(formula), "lex.Xst")
- data <- subsetDTorDF(data, subset = subset, select = keepVars)
- }
-
-
- ## formula -------------------------------------------------------------------
- if (!inherits(formula, "formula")) {
- stop("formula is not of class 'formula'; supply it as e.g. y ~ x")
- }
- if (length(formula) < 3L) {
- stop("formula appears to be one-sided, which is not supported; ",
- "supply it as e.g. y ~ x")
- }
-
- ## response
- y <- eval(formula[[2L]], envir = data, enclos = enclos)
- if (inherits(y, "Surv") && !either && !Surv.response) {
- stop("Response is a result of using Surv(), which is not allowed in ",
- "this context.")
- }
-
- if (!inherits(y, "Surv") && !either && Surv.response) {
- stop("The response of the formula must be a Surv object; ",
- "see ?Surv (in package survival).")
- }
-
- if (inherits(y, "Surv")) {
- y <- Surv2DT(y)
- setcolsnull(y, keep = c("time", "start", "status"), colorder = TRUE)
- if (!any(c("time", "start") %in% names(y))) {
- stop("You must supply function Surv a value to the 'time' ",
- "argument. See ?Surv")
- }
- setnames(y, names(y), c("time", "status")[1:ncol(y)])
- } else {
- y <- data.table(y)
- setnames(y, 1, deparse(formula[[2L]]))
- if (either && inherits(data, "Lexis")) {
- ## we assume the unmodified lex.Xst to be a useful status variable.
- if (!"lex.Xst" %in% names(data)) {
- stop("Supplied a formula without using Surv(), and data was a Lexis ",
- "object, so assumed you intended to use 'lex.Xst' in data as the ",
- "status variable in this context, but that column was missing ",
- "from data.")
- }
- setnames(y, 1, "time")
- y[, "status"] <- data$lex.Xst
-
- }
- }
-
-
- ## RHS
- l <- RHS2DT(formula, data = data, enclos = enclos)
- adj <- attr(l, "adjust")
-
- ## combine
- l <- if (length(l) > 0L) cbind(y, l) else y
-
- setattr(l, "adjust.names", adj)
- setattr(l, "print.names", setdiff(names(l), c(adj, names(y))))
- setattr(l, "Surv.names", names(y))
- setattr(l, "formula", formula)
-
- l
-}
-
-
-evalRecursive <- function(arg, env, enc, max.n = 100L) {
- ## INTENTION: digs out actual evaluatable value and expression
-
- if (missing(env)) env <- environment()
- if (missing(enc)) enc <- parent.frame(1L)
-
- if (is.data.frame(env)) {
- na <- names(env)
- env <- env[1:(min(10L, nrow(env))), ]
-
- env <- data.frame(env)
- setattr(env, "names", na)
-
- }
- argSub <- arg
-
- tick <- 1L
- while (!inherits(arg, "try-error") && is.language(arg) &&
- !inherits(arg, "formula") && tick < max.n) {
-
- argSub <- arg
- arg <- try(eval(argSub, envir = env, enclos = enc), silent = TRUE)
-
- tick <- tick + 1L
- }
-
- if (tick == max.n) {
- stop("evaluated expression ", max.n,
- " times and still could not find underlying expression")
- }
- if (!is.language(argSub)) argSub <- substitute(arg)
- list(arg = arg, argSub = argSub, all.vars = all.vars(argSub))
-}
-
-
-usePopFormula <- function(form = NULL, adjust = NULL, data = data.frame(),
- enclos, Surv.response = TRUE) {
- ## INTENTION: evaluates form and combines with adjust appropriately
- ## returns a list of the elements dug out from the formula and adjust
- ## arguments.
- # formSub <- substitute(form)
- al <- evalRecursive(arg = form, env = data, enc = enclos)
-
- if (!inherits(al$arg, "formula")) stop("'form' is not a formula object")
-
- dt <- evalPopFormula(formula = al$arg, data = data, enclos = enclos,
- Surv.response = Surv.response)
- adNames <- attr(dt, "adjust.names")
- prNames <- attr(dt, "print.names")
- suNames <- attr(dt, "Surv.names")
-
- adjust <- evalPopArg(data, adjust, DT = TRUE, recursive = TRUE,
- enclos = new.env(), naming = "model",
- types = c("NULL", "character", "list", "expression"))
-
- if (is.data.frame(adjust) && (nrow(adjust) == 0L || ncol(adjust) == 0L)) {
- stop("adjust evaluated to an empty data.frame")
- }
- if (!is.null(adjust) && ncol(adjust) > 0L && length(adNames) > 0L) {
- stop("Cannot both use argument 'adjust' AND use an adjust() term within ",
- "the formula argument. Please only use one.")
- }
- if (is.null(adjust) && length(adNames) > 0L) {
- adjust <- dt[, .SD, .SDcols = c(adNames)]
- }
-
-
- print <- NULL
- if (length(prNames > 0L)) print <- dt[, .SD, .SDcols = eval(prNames)]
-
- list(y = dt[, .SD, .SDcols = c(suNames)],
- print = print,
- adjust = adjust, formula = al$arg)
-}
-
-
-
-
-
-#' @title Adjust Estimates by Categorical Variables
-#' @description This function is only intended to be used within a formula
-#' when supplied to e.g. \code{\link{survtab_ag}} and should not be
-#' used elsewhere.
-#' @param ... variables to adjust by, e.g. \code{adjust(factor(v1), v2, v3)}
-#' @return Returns a list of promises of the variables supplied which can be
-#' evaluated.
-#' @examples
-#'
-#' y ~ x + adjust(z)
-#' @export
-adjust <- function(...) {
-
- call <- sys.call(1L)
- call <- as.list(call)[1L]
-
- if (deparse(call) %in% c("adjust", "list(adjust)")) {
- stop("Function adjust() only intended to be used within the formulas of ",
- "certain functions of package popEpi. See e.g. ?survtab_ag for usage.")
- }
-
- mc <- as.list(match.call())[-1L]
- if (is.list(mc) && length(mc) == 1) mc <- mc[[1]]
- mc
-}
-
-
-
-
-
-parse_adjust_formula <- function(f) {
-
- env <- environment(f)
- t <- attr(terms(f), "term.labels")
-
- l <- sapply(t, grepl, pattern = "adjust(", fixed = TRUE)
-
- a <- t[l]
-
- if (!any(l)) return(f)
-
- f <- deparse(f)
- f <- paste0(f, collapse = "")
- f <- oneWhitespace(f)
-
- for (k in seq_along(a)) {
- f <- sub(x = f, pattern = paste0(" + ", a[k]), replacement = "", fixed = TRUE)
- }
-
- a <- lapply(a, function(stri) {
- e <- parse(text = stri)[[1]]
- as.list(e)[-1]
- })
-
- a <- unlist(a, recursive = FALSE)
-
- a <- sapply(a, function(e) {
-
- e <- substitute(adjust(e), list(e = e))
- deparse(e)
-
- })
-
- f <- paste0(f, " + ", paste0(a, collapse = " + "))
- f <- eval(parse(text = f)[[1]])
- environment(f) <- env
- f
-}
-
-
-
-
-
-model_frame_robust <- function(formula, data, enc) {
-
- stopifnot(inherits(formula, "formula"))
- stopifnot(is.environment(enc))
-
- pe <- function(x, ...) {
- eval(parse(text = x), ...)
- }
-
- fo <- formula
-
- te <- terms(fo)
- tl <- attr(te, "term.labels")
-
- av <- all.vars(fo)
- av <- intersect(av, names(data))
-
- ## non-interactions as they are
- l <- lapply(tl, function(stri) {
- if (stri %in% names(data)) return(data[[stri]])
- e <- try(pe(stri, envir = data, enclos = enc), silent = TRUE)
- if (inherits(e, "try-error")) e <- stri
- e
- })
-
- fa <- attr(te, "factors")
-
- whInter <- colnames(fa)[colSums(fa) > 1]
-
- whInter <- which(sapply(l, function(elem) {
- is.character(elem) && length(elem) == 1L && elem %in% whInter
- }))
- whVar <- setdiff(seq_along(l), whInter)
-
- if (sum(whInter)) {
-
- fa <- fa[, whInter, drop = FALSE]
- interList <- lapply(colnames(fa), function(stri) {
-
- e <- parse(text = stri)[[1]]
- e <- as.list(e)[-1]
- e <- sapply(e, deparse)
-
- })
-
- names(interList) <- colnames(fa)
-
- interVars <- unique(unlist(interList))
-
-
- interData <- lapply(interVars, function(stri) {
- if (stri %in% names(data)) return(data[[stri]])
- eval(parse(text = stri), envir = data, enclos = enc)
- })
-
- interData <- setDT(lapply(interData, as.factor))
- names(interData) <- interVars
-
- on <- copy(names(interData))
- tn <- paste0("V", seq_along(interData))
- names(tn) <- on
- names(interData) <- tn
-
- til <- lapply(interList, function(stri) {
- tn[stri]
- })
- names(til) <- sapply(til, paste0, collapse = ":")
-
-
-
- l[whInter] <- lapply(seq_along(til), function(i) {
-
- tmpExpr <- til[[i]]
- realExpr <- l[whInter][[i]]
- e <- try(pe(tmpExpr, envir = interData), silent = TRUE)
-
- if (inherits(e, "try-error")) {
- e <- pe(realExpr, envir = data, enclos = enc)
- }
- e
- })
-
- }
-
- names(l) <- tl
- l <- as.data.table(l)
- l
-}
-
-
-
-
-
-dt_robust_by <- function(e, by.var.nms) {
- stopifnot(
- length(e) == 1,
- is.character(e),
- grepl(x = e, pattern = "by\\s{0,}=\\s{0,}%%BY_VAR_NMS%%"),
- length(by.var.nms) == 0 || is.character(by.var.nms)
- )
-
- le <- paste0("list(", paste0("`", by.var.nms, "`", collapse = ", "), ")")
- if (!length(by.var.nms)) le <- "NULL"
-
- e <- gsub(x = e, pattern = "%%BY_VAR_NMS%%", fixed = TRUE, replacement = le)
- eval(parse(text = e), envir = parent.frame(1L))
- NULL
-}
-
-
-
-
-
-
-
-
-
+
+
+is_expression <- function(e) {
+
+ ifelse(any(c("call", "name") %in% class(e)), TRUE, FALSE)
+
+}
+
+is_list_expression <- function(e) {
+
+ ifelse(is_expression(e) && deparse(as.list(e)[[1]]) == "list", TRUE, FALSE)
+
+}
+
+is_dollar_expression <- function(e) {
+
+ ifelse(is_expression(e) && deparse(as.list(e)[[1]]) == "$", TRUE, FALSE)
+
+}
+
+
+is_variable <- function(x) {
+
+ varModes <- c("numeric", "complex", "logical", "character", "raw")
+
+ ifelse(mode(x) %in% varModes, TRUE, FALSE)
+
+}
+
+
+evalArg <- function(arg, env, enc, ...) {
+ UseMethod("evalArg")
+}
+
+
+evalArg.default <- function(arg, env, enc) {
+ if (is.list(arg)) {
+ arg <- as.list(arg)
+ } else if (is_variable(arg)) {
+ l <- list(arg)
+ }
+ return(arg)
+}
+
+evalArg.name <- function(arg, env, enc) {
+ d <- deparse(arg)
+ out <- try(get(d, envir = env, inherits = FALSE), silent = TRUE)
+ if (inherits(out, "try-error")) {
+ out <- try(get(d, envir = enc, inherits = FALSE), silent = TRUE)
+ }
+ if (inherits(out, "try-error")) {
+ stop("Could not find object ", d, ".")
+ }
+ out <- list(out)
+ names(out) <- d
+ out
+}
+
+evalArg.call <- function(arg, env, enc) {
+
+ out <- eval(arg, envir = env, enclos = enc)
+
+ if (is.list(out)) {
+ out <- as.list(out)
+ } else if (is_variable(out)) {
+ out <- list(out)
+ names(out) <- paste0(deparse(arg), collapse = "")
+ }
+ out
+}
+
+evalArg.character <- function(arg, env, enc) {
+ ## NOTE: enc unused
+ se <- substitute(env)
+ out <- lapply(arg, function(stri) {
+ try({
+ get(stri, envir = as.environment(env), inherits = FALSE)
+ }, silent = TRUE)
+ })
+
+ notFound <- arg[sapply(out, inherits, "try-error")]
+
+ if (length(notFound)) {
+ if (length(notFound) > 5) notFound <- notFound[1:5]
+ stop("Could not find object(s): ",
+ paste0(notFound, collapse = ", "), ".")
+ }
+ names(out) <- arg
+ out
+}
+
+evalArg.formula <- function(arg, env, enc) {
+
+ rhsl <- as.list(RHS2DT(arg, data = env, enclos = enc))
+
+ rhsl
+
+}
+
+
+method_classes <- function(f) {
+
+ stopifnot(is.character(f))
+ e <- utils::methods(f)
+ e <- unlist(lapply(e, as.character))
+ e <- unlist(lapply(e, sub, pattern = paste0(f, "."), replacement = ""))
+ setdiff(e, "default")
+
+}
+
+
+do_evalPopArg <- function(arg, env, enc) {
+ eam <- method_classes("evalArg")
+
+ ne <- list(env = env, enc = enc)
+ de <- list(env = enc, enc = baseenv())
+
+ r <- arg
+ tick <- 1L
+ while (any(class(r) %in% eam)) {
+
+ envs <- if (is_dollar_expression(r)) de else ne
+ r <- evalArg(arg = r, env = envs$env, enc = envs$enc)
+
+ tick <- tick + 1L
+ if (tick == 100L) stop("No result after 100 evaluations")
+ }
+
+ r
+}
+
+
+
+argType <- function(arg) {
+
+ tl <- list("NULL" = "NULL", character = "character",
+ list = "call", formula = "formula",
+ expression = c("call", "name"))
+
+ tl <- sapply(tl, function(ch) {
+ t <- tryCatch(inherits(arg, ch),
+ error = function(e) e,
+ warning = function(w) w)
+ isTRUE(t)
+ })
+ if (!any(tl)) tl[names(tl) == "expression"] <- TRUE
+ if (tl["list"]) tl["list"] <- substr(deparse(arg), 1, 5) == "list("
+ names(tl)[tl & !duplicated(tl)]
+
+}
+
+
+
+
+
+evalPopArg2 <- function(data, arg, enclos, DT = TRUE,
+ types = c("NULL","character", "list", "expression")) {
+
+ allowed_types <- c("NULL", "character", "list", "expression", "formula")
+ types <- match.arg(types, allowed_types,
+ several.ok = TRUE)
+ if (!argType(arg) %in% types) {
+ stop("Supplied argument not allowed type. Current type: ",
+ argType(arg), ". Allowed types: ",
+ paste0(types, collapse = ", "))
+ }
+
+ l <- do_evalPopArg(arg = arg, env = data, enc = enclos)
+ l
+}
+
+
+
+
+evalPopArg <- function(
+ data,
+ arg,
+ n = 1L,
+ DT = TRUE,
+ enclos = NULL,
+ recursive = TRUE,
+ types = c("NULL","character", "list", "expression"),
+ naming = c("DT", "model")
+) {
+ ## arg: an unevaluated AND substitute()'d argument within a function, which may be
+ ## * an expression
+ ## * a list of expressions
+ ## * a character vector of variable names (in a given data set)
+ ## n: steps upstream as in parent.frame(n); 0L refers to calling environment
+ ## of evalPopArg, 1L to calling environment of e.g. sir which uses evalPopArg, etc.
+ ## hence n = 1L should be almost always the right way to go.
+ ## ALTERNATIVELY supply an environment by hand via enclos.
+ ## enclos will override n.
+ ## recursive: if TRUE, evals arg as many times as it is of type language.
+ ## output:
+ ## * vector as a result of an expression
+ ## * list as a result of a list
+ ## * character vector of names
+ ## OR with DT = TRUE, a data.table based on aforementioned results.
+ ## intention: output to be used in by argument of data.table.
+ ## a data.table output is directly usable in by.
+ ## if column names cannot be easily found, BV1, BV2, ... are imputed
+ ## for missing names (unrobustly: such names may already exist, resulting in duplicates)
+
+ ## naming: DT style uses first element of all.names() where
+ ## a name has to be created; model style keeps the whole deparsed
+ ## expression. Only applied when DT = TRUE
+ naming <- match.arg(naming[1L], c("DT", "model"))
+
+ ## types: allowed popArg types of arguments.
+ types <- match.arg(types, c("NULL","character", "list", "expression", "formula"), several.ok = TRUE)
+
+ if (!is.null(enclos) && !is.environment(enclos)) {
+ stop("enclos must be NULL or an environment")
+ }
+ if (!is.environment(enclos)) enclos <- parent.frame(n + 1L)
+
+ ## used data may change if expression uses dollar operator, hence
+ ## arg should not be evaluated within data but only its surroundings.
+ use_data <- data
+ use_enc <- enclos
+ dataNames <- names(data)
+
+ if (uses_dollar(arg, data.names = dataNames)) {
+ use_data <- enclos
+ use_enc <- baseenv()
+ }
+ e <- eval(arg, envir = use_data, enclos = use_enc)
+ if (is.language(e) && !inherits(e, "formula")) {
+ if (!recursive) stop("arg is of type language after evaluating, and recursive = FALSE")
+
+ tick <- 1L
+ while (is.language(e) && !inherits(e, "formula") && tick < 100L) {
+ arg <- e
+ use_data <- data
+ use_enc <- enclos
+ if (uses_dollar(arg, data.names = dataNames)) {
+ use_data <- enclos
+ use_enc <- baseenv()
+ }
+ e <- eval(arg, envir = use_data, enclos = use_enc)
+ tick <- tick + 1L
+ }
+ if (tick == 100L) stop("arg was of type language even after 100 evaluations. Something went wrong here...")
+
+
+
+ }
+ argType <- "NULL"
+ if (is.list(e)) argType <- "list" else
+ if (is.character(e)) argType <- "character" else
+ if (mode(e) == "numeric" || is.vector(e) || is.factor(e)) argType <- "expression" else
+ if (inherits(e, "formula")) argType <- "formula"
+
+ if (!argType %in% types) {
+ stop(
+ "popArg type of evaluated arg not one of the allowed types ",
+ "(set via argument types). Detected type: '", deparse(argType),
+ "'. Allowed types: ", deparse(types))
+ }
+ if (argType == "NULL") return(NULL)
+
+ av <- all.vars(arg)
+ if (argType == "character") av <- e
+
+ ## byNames: names of columns resulting from aggre argument, by which
+ ## pyrs and such are aggregated. same functionality
+ ## as in results seen in e.g.
+ ## dt[, .N, by = list(factor(x), y, z = w)] ## factor, y, z
+ ## note: first object in ags with list or expression aggre is "list"
+ byNames <- NULL
+ arg_substr5 <- substr(paste0(deparse(arg), collapse = " "), 1, 5)
+ if (is.character(e)) {
+ byNames <- e
+ } else if (argType == "list" && arg_substr5 == "list(") {
+ byNames <- sapply(arg[-1], function(x) all.names(x)[1])
+ } else if (argType == "expression") {
+ byNames <- all.names(arg)[1]
+ }
+
+ badNames <- c("$", ":")
+
+ byNames[byNames %in% badNames] <- paste0("BV", 1:length(byNames))[byNames %in% badNames]
+
+ if (argType == "formula") {
+ arg <- e
+ use_data <- data
+ use_enc <- enclos
+ e <- RHS2DT(formula = e, data = use_data, enclos = use_enc)
+ if (ncol(e) == 0L || nrow(e) == 0L) e <- data.table() ## e.g. y ~ 1
+
+ } else if (is.character(e)) {
+ all_names_present(data, e)
+ if (DT) {
+ ## note: e contains variable names in character strings,
+ ## ergo fully named list & DT created
+ l <- lapply(e, function(x) data[[x]])
+ setattr(l, "names", e)
+ setDT(l)
+ e <- l; rm(l)
+ }
+ } else if (is.list(e)) {
+ ## note: fully unnamed list has NULL names()
+ ## partially named list has some "" names
+ ne <- names(e)
+
+ if (DT && any(sapply(e, is.null))) stop("at least one object in list arg is NULL; cannot form data.table with such list")
+
+ if (is.null(ne)) ne <- rep("", length(e))
+
+
+ wh_bad <- which(ne == "")
+ if (length(wh_bad) > 0) {
+ if (is.null(byNames)) {
+ byNames <- paste0("BV", 1:length(e))
+ }
+
+ ne[wh_bad] <- byNames[wh_bad]
+ setattr(e, "names", ne)
+ }
+
+ if (DT) {
+ ## NOTE: used to be setDT, but length of different elements
+ ## in list may differ, which as.data.table handles correctly
+ e <- as.data.table(e)
+ }
+ } else if (mode(e) == "numeric" || is.vector(e) || is.factor(e)) {
+ ## is e.g. a numeric vector or a factor
+ if (DT) {
+ e <- data.table(V1 = e)
+ setnames(e, 1, byNames)
+ }
+ }
+
+ ## NOTE: e may be of type language at this point if arg was double-quoted
+ ## and recursive = FALSE
+
+ if (DT) {
+ setDT(e)
+ setattr(e, "all.vars", av)
+ setattr(e, "quoted.arg", arg)
+ setattr(e, "arg.type", argType)
+ if (naming == "model" && ncol(e) > 0L) setnames(e, 1:ncol(e), popArg2ModelNames(arg, type = argType))
+ }
+ e
+}
+
+
+popArgType <- function(arg, data = NULL, n = 1L, enclos = NULL, recursive = TRUE) {
+ ## input: a substitute()'d expression / argument
+ ## NOTE: recursive useful when arg might be quoted twice and want the eventual
+ ## result; need to supply data for it though
+ ## output: type of thingie that was substitute()'d
+ ## * list (of expressions)
+ ## * character string vector
+ ## * an expression (includes symbol)
+ av <- all.vars(arg, unique = TRUE) ## all variables
+ av <- setdiff(av, c("$", "T", "F"))
+ an <- all.names(arg, unique = TRUE) ## all variables and functions
+ af <- setdiff(an, av) ## all functions used
+
+ a <- deparse(arg)
+ a <- paste0(a, collapse = "") ## lists may somehow produce length > 1 here
+ if (substr(a, 1, 5) == "list(") return("list")
+ if (a == "NULL") return("NULL")
+ ## detection of character arguments is not easy and should not be considered
+ ## fool proof since user may pass e.g. a vector of character strings as a
+ ## symbol, which can only really be interpreted as an expression
+ if (sum(grep('\\"', a)) && length(setdiff(af, "c")) == 0) return("character")
+
+ if (is.data.frame(data)) {
+ if (is.symbol(arg) && a %in% names(data)) return("expression")
+ if (length(av) == 1L && av %in% names(data)) return("expression")
+ e <- eval(arg, envir = data[1:min(nrow(data), 20L), ],
+ enclos = if (is.environment(enclos)) enclos else parent.frame(n + 1L))
+ if (inherits(e, "formula")) return("formula")
+ if (is.null(e)) return("NULL")
+ if (is.list(e)) return("list")
+ if (is.character(e) && all(e %in% names(data))) return("character")
+ if (is.vector(e) || is.factor(e)) return("expression")
+
+ if (recursive && is.language(e)) return(popArgType(e, data = data, n = n + 1L, enclos = enclos))
+ }
+
+ "expression"
+
+}
+popArg2ModelNames <- function(arg, type) {
+ ## INTENTION: given a quoted/substituted expression,
+ ## digs out the expression(s) creating a/multiple column(s)
+ ## and returns the deparsed expression(s) to be used as names
+ ## of columns the same way that models such as lm() display
+ ## the names of expressions used within formula
+
+ ## some exceptions
+ if (is.data.frame(arg)) return(names(arg))
+ if (is.character(arg)) return(arg)
+
+ type <- match.arg(type[1L], c("NULL", "character", "list", "expression", "formula"))
+
+ lang <- NULL
+ lang <- try(is.language(arg) || inherits(arg, "formula"), silent = TRUE)
+
+
+ if (inherits(lang, "try-error") || !lang) stop("arg must be a quoted or substituted expression or a formula. Error message: ", lang, ". type of arg: ", typeof(arg), ". Class: ", class(arg), ". Mode: ", mode(arg), ".")
+
+ d <- oneWhitespace(paste0(deparse(arg)))
+
+ if (type == "expression") return(d) else
+ if (type == "NULL") return(NULL) else
+ if (type == "character") return(eval(arg)) else
+ if (type == "list") {
+ d <- substr(d, 6, nchar(d)-1L) ## removes "list(" and ")"
+ d <- strsplit(d, ", ")
+ return(unlist(d))
+ } else if (type == "formula") {
+ arg <- eval(arg)
+ d <- names(RHS2list(arg))
+ if (length(d) == 0L) return(NULL) ## e.g. y ~ 1
+ return(d)
+ }
+ stop("could not determine deparsed-expression-names")
+}
+
+
+
+
+
+uses_dollar <- function(q, data.names) {
+ ## INTENTION: determine whether q is an expressions that is evaluated
+ ## outside a data.frame, i.e. one that uses the dollar operator.
+ ## e.g. TF$V1 should not be evaluated in a data.frame even if it has
+ ## the variables TF and V1 since it wont work and was not intended.
+ if (!is.language(q) || inherits(q, "formula")) {
+ return(FALSE)
+ }
+
+ d <- deparse(q)
+ ## sometimes d is of length > 1 for some reason...
+ d <- paste0(d, collapse = "")
+ d <- oneWhitespace(d)
+
+ if (substr(d, 1, 4) == "list") {
+ ## lists are not allowed to work in this manner for now.
+ return(FALSE)
+ }
+
+ if (!grepl(x = d, pattern = "\\$")) {
+ ## does not use dollar operator.
+ return(FALSE)
+ }
+
+ ## detect if word$word is used in d
+ t <- regexec(pattern = "\\w+\\$\\w+", text = d)
+ if (t != -1) {
+ ## ok, used word$word
+ ## is there are variable with that name in data.names?
+ m <- unlist(regmatches(d, t))
+ if (m %in% data.names) {
+ return(FALSE)
+ }
+ ## if not, it should be evaluated outside the data.
+ return(TRUE)
+ }
+
+ return(FALSE)
+}
+
+
+
+
+`%.:%` <- function(x, y) {
+ ## INTENTION: hacking formula calls using `:`
+ ## which is apparently normally evaluated in C... (in model.matrix.default)
+ ## USAGE: e.g. c(1,2) %.:% c(3,4) = c(3, 8)
+ ## (instead of getting warning)
+ if (length(x) > 1L && length(y) > 1L && is.numeric(x) && is.numeric(y)) {
+ return(x*y)
+ } else if (length(x) == 1L && length(y) == 1L && is.numeric(x) && is.numeric(y)) {
+ return(x:y)
+ }
+ as.factor(x):as.factor(y)
+
+}
+
+
+
+RHS2list <- function(formula, handle.adjust=TRUE) {
+ ## INTENTION: turns the right-hand side of a formula
+ ## into a list of substituted expressions;
+ ## each element in list is an expressions separated
+ ## by a '+' in the formula. needs to be eval()'d,
+ ## preferably using the appropriate data set.
+ if (!inherits(formula, "formula")) stop("not a formula")
+
+ ## no response
+ formula <- formula[c(1, length(formula))]
+
+ te <- terms(formula)
+ tl <- attr(te, "term.labels")
+
+ ## handle adjusting variables (e.g. adjust(V1, V2) -> c("V1", "V2"))
+ adj <- tl[substr(tl, 1, 7) == "adjust("]
+ if (length(adj) == 0L) adj <- NULL
+ if (handle.adjust && !is.null(adj)) {
+ tl <- setdiff(tl, adj)
+ adj <- unlist(lapply(adj, function(stri) {
+ e <- parse(text = stri)[[1]]
+ e <- as.list(e)[-1]
+ unlist(lapply(e, deparse))
+ }))
+
+ tl <- c(tl, adj)
+ }
+
+ ## to avoid e.g. c(1,2):c(3,4) NOT evaluating as c(3, 8)
+ l <- lapply(tl, function(x) gsub(pattern = ":", x = x, replacement = "%.:%"))
+ l <- lapply(l, function(x) parse(text = x)[[1L]])
+
+ names(l) <- tl
+
+ setattr(l, "adjust", adj)
+
+ l
+}
+
+uses_colon <- function(e) {
+ if (is.character(e)) e <- parse(text = e)[[1]]
+ stopifnot(is.call(e) || is.name(e))
+ stopifnot(!inherits(e, "formula"))
+
+ l <- as.list(e)
+ if (deparse(l[[1]]) %in% c(":", "%.:%") && length(l) == 3) {
+ return(TRUE)
+ }
+ FALSE
+}
+
+replace_colon <- function(e) {
+ stopifnot(is.call(e) || is.name(e))
+ stopifnot(!inherits(e, "formula"))
+
+ if (!uses_colon(e)) return(e)
+
+ l <- as.list(e)
+ l[[1]] <- parse(text = "popEpi:::`%.:%`")[[1]]
+ as.call(l)
+}
+
+RHS2DT <- function(formula, data = data.frame(), enclos = parent.frame(1L)) {
+ l <- RHS2list(formula)
+ if (length(l) == 0L) return(data.table())
+ adj <- attr(l, "adjust")
+
+ ## foolproofing in case data contains column named e.g. "a:b" and that is
+ ## intended to be used
+ dana <- names(data)
+ dana <- gsub(x=dana, pattern=" %.:% ", replacement = ":")
+ dana <- gsub(x=dana, pattern="%.:%", replacement = ":")
+
+
+ ld <- lapply(l, deparse)
+ ld <- lapply(ld, function(ch) {
+ ch <- gsub(x=ch, pattern=" %.:% ", replacement = ":")
+ ch <- gsub(x=ch, pattern="%.:%", replacement = ":")
+ int <- if (ch %in% dana) which(dana %in% ch) else ch
+ if (is.integer(int)) data[[names(data)[int]]] else NULL
+ })
+ ld[which(sapply(ld, is.null))] <- NULL
+ l[names(ld)] <- ld
+
+ ## foolproofs use of function %.:% by explicit referral, i.e. :::
+ ## (this avoids scoping problem)
+ l <- lapply(l, function(elem) {
+ if (!is.call(elem)) return(elem)
+ if (!uses_colon(elem)) return(elem)
+
+ replace_colon(elem)
+
+ })
+
+ l <- lapply(l, function(elem) {
+ eval(expr = elem, envir = data, enclos = enclos)
+ })
+
+ l <- as.data.table(l)
+ setattr(l, "adjust", adj)
+ l
+}
+
+
+
+
+
+Surv2DT <- function(Surv) {
+ sa <- attributes(Surv)
+ type <- sa$type
+
+ dt <- as.data.table(lapply(sa$dimnames[[2]], function(col_nm) {
+ Surv[, col_nm]
+ }))
+ setnames(dt, names(dt), sa$dimnames[[2]])
+
+ statNA <- sum(is.na(dt$status))
+ if (statNA) {
+ stop("Some status indicators (", statNA ," values in total) were NA. ",
+ "Usual suspects: original status variable ",
+ "has NA values, or you have numeric status variable with more than ",
+ "two levels and you did not assign e.g. type = 'mstate' (e.g. ",
+ "Surv(time = c(1,1,1), event = c(0,1,2), type = 'mstate') works).")
+
+ }
+
+
+ setattr(dt, "type", type)
+
+ label_sources <- c("time2", "event")
+ lapply(label_sources, function(lbl_src) {
+ if (identical(sa$inputAttributes[[lbl_src]]$class, "factor")) {
+ set(
+ dt, j = "status",
+ value = factor(dt$status, labels = sa$inputAttributes[[lbl_src]]$levels)
+ )
+ }
+ NULL
+ })
+
+ dt[]
+}
+
+
+
+
+
+evalPopFormula <- function(formula, data = data.frame(), enclos = parent.frame(2L), subset = NULL, Surv.response = TRUE) {
+
+ ## INTENTION: given a formula object, returns a DT where each column
+ ## is an evaluated expression from formula (separated by + )
+
+ fe <- environment(formula)
+
+ either <- FALSE
+ if (is.character(Surv.response)) {
+ Surv.response <- match.arg(Surv.response, "either")
+ Surv.response <- TRUE
+ either <- TRUE
+ } else if (!is.logical(Surv.response)) {
+ stop("Surv.response must be either logical or 'either'")
+ }
+
+ ## subset if needed ----------------------------------------------------------
+ if (!is.null(subset) && !is.logical(subset)) {
+ stop("subset must be NULL or a logical vector and not an expression at ",
+ "this point. If you see this, complain to the package maintainer.")
+ }
+ if (!is.null(subset)) {
+ keepVars <- c(all.vars(formula), "lex.Xst")
+ data <- subsetDTorDF(data, subset = subset, select = keepVars)
+ }
+
+
+ ## formula -------------------------------------------------------------------
+ if (!inherits(formula, "formula")) {
+ stop("formula is not of class 'formula'; supply it as e.g. y ~ x")
+ }
+ if (length(formula) < 3L) {
+ stop("formula appears to be one-sided, which is not supported; ",
+ "supply it as e.g. y ~ x")
+ }
+
+ ## response
+ y <- eval(formula[[2L]], envir = data, enclos = enclos)
+ if (inherits(y, "Surv") && !either && !Surv.response) {
+ stop("Response is a result of using Surv(), which is not allowed in ",
+ "this context.")
+ }
+
+ if (!inherits(y, "Surv") && !either && Surv.response) {
+ stop("The response of the formula must be a Surv object; ",
+ "see ?Surv (in package survival).")
+ }
+
+ if (inherits(y, "Surv")) {
+ y <- Surv2DT(y)
+ setcolsnull(y, keep = c("time", "start", "status"), colorder = TRUE)
+ if (!any(c("time", "start") %in% names(y))) {
+ stop("You must supply function Surv a value to the 'time' ",
+ "argument. See ?Surv")
+ }
+ setnames(y, names(y), c("time", "status")[1:ncol(y)])
+ } else {
+ y <- data.table(y)
+ setnames(y, 1, deparse(formula[[2L]]))
+ if (either && inherits(data, "Lexis")) {
+ ## we assume the unmodified lex.Xst to be a useful status variable.
+ if (!"lex.Xst" %in% names(data)) {
+ stop("Supplied a formula without using Surv(), and data was a Lexis ",
+ "object, so assumed you intended to use 'lex.Xst' in data as the ",
+ "status variable in this context, but that column was missing ",
+ "from data.")
+ }
+ setnames(y, 1, "time")
+ y[, "status"] <- data$lex.Xst
+
+ }
+ }
+
+
+ ## RHS
+ l <- RHS2DT(formula, data = data, enclos = enclos)
+ adj <- attr(l, "adjust")
+
+ ## combine
+ l <- if (length(l) > 0L) cbind(y, l) else y
+
+ setattr(l, "adjust.names", adj)
+ setattr(l, "print.names", setdiff(names(l), c(adj, names(y))))
+ setattr(l, "Surv.names", names(y))
+ setattr(l, "formula", formula)
+
+ l
+}
+
+
+evalRecursive <- function(arg, env, enc, max.n = 100L) {
+ ## INTENTION: digs out actual evaluatable value and expression
+
+ if (missing(env)) env <- environment()
+ if (missing(enc)) enc <- parent.frame(1L)
+
+ if (is.data.frame(env)) {
+ na <- names(env)
+ env <- env[1:(min(10L, nrow(env))), ]
+
+ env <- data.frame(env)
+ setattr(env, "names", na)
+
+ }
+ argSub <- arg
+
+ tick <- 1L
+ while (!inherits(arg, "try-error") && is.language(arg) &&
+ !inherits(arg, "formula") && tick < max.n) {
+
+ argSub <- arg
+ arg <- try(eval(argSub, envir = env, enclos = enc), silent = TRUE)
+
+ tick <- tick + 1L
+ }
+
+ if (tick == max.n) {
+ stop("evaluated expression ", max.n,
+ " times and still could not find underlying expression")
+ }
+ if (!is.language(argSub)) argSub <- substitute(arg)
+ list(arg = arg, argSub = argSub, all.vars = all.vars(argSub))
+}
+
+
+usePopFormula <- function(form = NULL, adjust = NULL, data = data.frame(),
+ enclos, Surv.response = TRUE) {
+ ## INTENTION: evaluates form and combines with adjust appropriately
+ ## returns a list of the elements dug out from the formula and adjust
+ ## arguments.
+ # formSub <- substitute(form)
+ al <- evalRecursive(arg = form, env = data, enc = enclos)
+
+ if (!inherits(al$arg, "formula")) stop("'form' is not a formula object")
+
+ dt <- evalPopFormula(formula = al$arg, data = data, enclos = enclos,
+ Surv.response = Surv.response)
+ adNames <- attr(dt, "adjust.names")
+ prNames <- attr(dt, "print.names")
+ suNames <- attr(dt, "Surv.names")
+
+ adjust <- evalPopArg(data, adjust, DT = TRUE, recursive = TRUE,
+ enclos = new.env(), naming = "model",
+ types = c("NULL", "character", "list", "expression"))
+
+ if (is.data.frame(adjust) && (nrow(adjust) == 0L || ncol(adjust) == 0L)) {
+ stop("adjust evaluated to an empty data.frame")
+ }
+ if (!is.null(adjust) && ncol(adjust) > 0L && length(adNames) > 0L) {
+ stop("Cannot both use argument 'adjust' AND use an adjust() term within ",
+ "the formula argument. Please only use one.")
+ }
+ if (is.null(adjust) && length(adNames) > 0L) {
+ adjust <- dt[, .SD, .SDcols = c(adNames)]
+ }
+
+
+ print <- NULL
+ if (length(prNames > 0L)) print <- dt[, .SD, .SDcols = eval(prNames)]
+
+ list(y = dt[, .SD, .SDcols = c(suNames)],
+ print = print,
+ adjust = adjust, formula = al$arg)
+}
+
+
+
+
+
+#' @title Adjust Estimates by Categorical Variables
+#' @description This function is only intended to be used within a formula
+#' when supplied to e.g. \code{\link{survtab_ag}} and should not be
+#' used elsewhere.
+#' @param ... variables to adjust by, e.g. \code{adjust(factor(v1), v2, v3)}
+#' @return Returns a list of promises of the variables supplied which can be
+#' evaluated.
+#' @examples
+#'
+#' y ~ x + adjust(z)
+#' @export
+adjust <- function(...) {
+
+ call <- sys.call(1L)
+ call <- as.list(call)[1L]
+
+ if (deparse(call) %in% c("adjust", "list(adjust)")) {
+ stop("Function adjust() only intended to be used within the formulas of ",
+ "certain functions of package popEpi. See e.g. ?survtab_ag for usage.")
+ }
+
+ mc <- as.list(match.call())[-1L]
+ if (is.list(mc) && length(mc) == 1) mc <- mc[[1]]
+ mc
+}
+
+
+
+
+
+parse_adjust_formula <- function(f) {
+
+ env <- environment(f)
+ t <- attr(terms(f), "term.labels")
+
+ l <- sapply(t, grepl, pattern = "adjust(", fixed = TRUE)
+
+ a <- t[l]
+
+ if (!any(l)) return(f)
+
+ f <- deparse(f)
+ f <- paste0(f, collapse = "")
+ f <- oneWhitespace(f)
+
+ for (k in seq_along(a)) {
+ f <- sub(x = f, pattern = paste0(" + ", a[k]), replacement = "", fixed = TRUE)
+ }
+
+ a <- lapply(a, function(stri) {
+ e <- parse(text = stri)[[1]]
+ as.list(e)[-1]
+ })
+
+ a <- unlist(a, recursive = FALSE)
+
+ a <- sapply(a, function(e) {
+
+ e <- substitute(adjust(e), list(e = e))
+ deparse(e)
+
+ })
+
+ f <- paste0(f, " + ", paste0(a, collapse = " + "))
+ f <- eval(parse(text = f)[[1]])
+ environment(f) <- env
+ f
+}
+
+
+
+
+
+model_frame_robust <- function(formula, data, enc) {
+
+ stopifnot(inherits(formula, "formula"))
+ stopifnot(is.environment(enc))
+
+ pe <- function(x, ...) {
+ eval(parse(text = x), ...)
+ }
+
+ fo <- formula
+
+ te <- terms(fo)
+ tl <- attr(te, "term.labels")
+
+ av <- all.vars(fo)
+ av <- intersect(av, names(data))
+
+ ## non-interactions as they are
+ l <- lapply(tl, function(stri) {
+ if (stri %in% names(data)) return(data[[stri]])
+ e <- try(pe(stri, envir = data, enclos = enc), silent = TRUE)
+ if (inherits(e, "try-error")) e <- stri
+ e
+ })
+
+ fa <- attr(te, "factors")
+
+ whInter <- colnames(fa)[colSums(fa) > 1]
+
+ whInter <- which(sapply(l, function(elem) {
+ is.character(elem) && length(elem) == 1L && elem %in% whInter
+ }))
+ whVar <- setdiff(seq_along(l), whInter)
+
+ if (sum(whInter)) {
+
+ fa <- fa[, whInter, drop = FALSE]
+ interList <- lapply(colnames(fa), function(stri) {
+
+ e <- parse(text = stri)[[1]]
+ e <- as.list(e)[-1]
+ e <- sapply(e, deparse)
+
+ })
+
+ names(interList) <- colnames(fa)
+
+ interVars <- unique(unlist(interList))
+
+
+ interData <- lapply(interVars, function(stri) {
+ if (stri %in% names(data)) return(data[[stri]])
+ eval(parse(text = stri), envir = data, enclos = enc)
+ })
+
+ interData <- setDT(lapply(interData, as.factor))
+ names(interData) <- interVars
+
+ on <- copy(names(interData))
+ tn <- paste0("V", seq_along(interData))
+ names(tn) <- on
+ names(interData) <- tn
+
+ til <- lapply(interList, function(stri) {
+ tn[stri]
+ })
+ names(til) <- sapply(til, paste0, collapse = ":")
+
+
+
+ l[whInter] <- lapply(seq_along(til), function(i) {
+
+ tmpExpr <- til[[i]]
+ realExpr <- l[whInter][[i]]
+ e <- try(pe(tmpExpr, envir = interData), silent = TRUE)
+
+ if (inherits(e, "try-error")) {
+ e <- pe(realExpr, envir = data, enclos = enc)
+ }
+ e
+ })
+
+ }
+
+ names(l) <- tl
+ l <- as.data.table(l)
+ l
+}
+
+
+
+
+
+dt_robust_by <- function(e, by.var.nms) {
+ stopifnot(
+ length(e) == 1,
+ is.character(e),
+ grepl(x = e, pattern = "by\\s{0,}=\\s{0,}%%BY_VAR_NMS%%"),
+ length(by.var.nms) == 0 || is.character(by.var.nms)
+ )
+
+ le <- paste0("list(", paste0("`", by.var.nms, "`", collapse = ", "), ")")
+ if (!length(by.var.nms)) le <- "NULL"
+
+ e <- gsub(x = e, pattern = "%%BY_VAR_NMS%%", fixed = TRUE, replacement = le)
+ eval(parse(text = e), envir = parent.frame(1L))
+ NULL
+}
+
+
+
+
+
+
+
+
+
diff --git a/R/flexyargs.R b/R/flexyargs.R
index d3fe6b8..3ef315a 100644
--- a/R/flexyargs.R
+++ b/R/flexyargs.R
@@ -1,166 +1,166 @@
-
-
-
-#' @title Flexible Variable Usage in \pkg{popEpi} Functions
-#' @author Joonas Miettinen
-#' @name flexible_argument
-#' @description Certain arguments in \pkg{popEpi} can be passed in multiple
-#' ways. This document shows the usage and a pitfall in the
-#' usage of such flexible arguments.
-#'
-#' @details
-#'
-#' Flexible arguments in \pkg{popEpi} are used to pass variables existing
-#' in your data or in the environment where the function is used
-#' (for everyday users this is the global environment - in simple terms,
-#' where your data is / your work space). The flexible arguments
-#' are modelled after the \code{by} argument in \code{data.tables} -
-#' see \code{?data.table}. There are many ways to supply the same information
-#' to certain functions in \pkg{popEpi}, but the possible ways listed below
-#' may be limited in some of them to only allow for using only a part of them.
-#'
-#' @section Everyday usage:
-#'
-#' Most commonly you may pass
-#' variable names as character strings, e.g.
-#'
-#' \code{FUN(arg = c("V1", "V2"), data = x)}
-#'
-#' which may be stored in advance:
-#'
-#' \code{vars <- c("V1", "V2")}
-#'
-#' \code{FUN(arg = vars, data = x)}
-#'
-#' where \code{x} contains those variables. You may also supply variable
-#' names as symbols:
-#'
-#' \code{FUN(arg = V1, data = x)}
-#'
-#' Or as a list of symbols (similarly to as in \code{\link{aggregate}}):
-#'
-#' \code{FUN(arg = list(V1, V2), data = x)}
-#'
-#' Or as a list of expressions:
-#'
-#' \code{FUN(arg = list(V1 + 1, factor(V2)), data = x)}
-#'
-#' A formula without a left-hand-side specified is sometimes allowed as well:
-#'
-#' \code{FUN(arg = ~ I(V1 + 1) + factor(V2), data = x)}
-#'
-#' Using a symbol or a list of symbols/expressions typically
-#' causes the function to look for the variable(s)
-#' first in the supplied data (if any) and then where the function was called.
-#' For everyday users this means you might define e.g.
-#'
-#' \code{V3 <- factor(letters)}
-#'
-#' and do e.g.
-#'
-#' \code{FUN(arg = list(V1 + 1, factor(V2), V3), data = x)}
-#'
-#' provided \code{V1} and \code{V2} exist in \code{x} or in the function calling
-#' environment.
-#'
-#' @section A pitfall:
-#'
-#' There is one way to use flexible arguments incorrectly: By supplying
-#' the name of a variable which exists both in the supplied data
-#' and the calling environment, and intending the latter to be used. E.g.
-#'
-#' \code{vars <- c("V2")}
-#'
-#' \code{FUN(arg = V3, data = x)}
-#'
-#' where \code{x} has a column named \code{vars}. This causes the function to
-#' use \code{x$vars} and NOT \code{x$V2}.
-#'
-#' @section Advanced:
-#'
-#' Function programmers are advised to pass character strings
-#' whenever possible. To fool-proof against conflicts as described in the
-#' section above, refer to the calling environment explicitly when
-#' passing the variable containing the character strings:
-#'
-#' \code{TF <- environment() ## current env to refer to}
-#'
-#' \code{vars <- c("V1", "V2")}
-#'
-#' \code{FUN(arg = TF$vars, data = x)}
-#'
-#' Even if \code{x} has columns named \code{vars} and \code{TF},
-#' using \code{TF$vars} does not use those columns but only evaluates
-#' \code{TF$vars}
-#' in the calling environment. This is made possible by the fact
-#' that data is always passed as a \code{data.frame}, within which evaluation
-#' of expressions using the dollar operator is not possible. Therefore
-#' it is safe to assume the data should not be used. However, lists of
-#' expressions will not be checked for dollar use and will fail in conflict
-#' situations:
-#'
-#' \code{TF <- environment() ## current env to refer to}
-#'
-#' \code{vars <- letters[1:5]}
-#'
-#' \code{x <- data.frame(vars = 1:5, TF = 5:1, V1 = 10:6)}
-#'
-#' \code{FUN(arg = list(TF$vars, V1), data = x)}
-#'
-#' On the other hand you may typically also pass quoted (\code{\link{quote}})
-#' or substituted \code{\link{substitute}} expressions etc., where
-#' the \code{env$object} trick will work as well:
-#'
-#' \code{q <- quote(list(vars, V1))}
-#'
-#' \code{FUN(arg = TF$q, data = x)}
-#'
-#' This works even with
-#'
-#' \code{a <- 1:5}
-#'
-#' \code{V1 <- quote(TF$a)}
-#'
-#' \code{FUN(arg = TF$V1, data = x)}
-#'
-#' So no conflicts should occur.
-#' @family popEpi argument evaluation docs
-#' @examples
-#'
-#' data(sire)
-#' ## prepare data for e.g. 5-year "period analysis" for 2008-2012
-#' ## note: sire is a simulated cohort integrated into popEpi.
-#' BL <- list(fot=seq(0, 5, by = 1/12))
-#' x <- lexpand(sire, birth = bi_date, entry = dg_date, exit = ex_date,
-#' status = status %in% 1:2,
-#' breaks = BL)
-#'
-#' x <- aggre(x, by = fot)
-#'
-#' ## silly example of referring to pyrs data by fixed character string;
-#' ## its possible that the real name wont be fixed in a real-life application.
-#' pyrs <- "actual_pyrs"
-#' TF <- environment()
-#' x$actual_pyrs <- as.numeric(x$pyrs)
-#' x$pyrs <- 1
-#'
-#' ## this works (uses actual_pyrs eventually)
-#' st <- survtab_ag(fot ~ 1, data = x, surv.type = "surv.obs",
-#' pyrs = TF$pyrs, d = from0to1,
-#' surv.method = "hazard")
-#' ## this would be wrong (sees expression 'pyrs' and uses that column,
-#' ## which is not what is intended here)
-#' st <- survtab_ag(fot ~ 1, data = x, surv.type = "surv.obs",
-#' pyrs = pyrs, d = from0to1,
-#' surv.method = "hazard")
-
-NULL
-
-
-
-
-
-
-
-
-
+
+
+
+#' @title Flexible Variable Usage in \pkg{popEpi} Functions
+#' @author Joonas Miettinen
+#' @name flexible_argument
+#' @description Certain arguments in \pkg{popEpi} can be passed in multiple
+#' ways. This document shows the usage and a pitfall in the
+#' usage of such flexible arguments.
+#'
+#' @details
+#'
+#' Flexible arguments in \pkg{popEpi} are used to pass variables existing
+#' in your data or in the environment where the function is used
+#' (for everyday users this is the global environment - in simple terms,
+#' where your data is / your work space). The flexible arguments
+#' are modelled after the \code{by} argument in \code{data.tables} -
+#' see \code{?data.table}. There are many ways to supply the same information
+#' to certain functions in \pkg{popEpi}, but the possible ways listed below
+#' may be limited in some of them to only allow for using only a part of them.
+#'
+#' @section Everyday usage:
+#'
+#' Most commonly you may pass
+#' variable names as character strings, e.g.
+#'
+#' \code{FUN(arg = c("V1", "V2"), data = x)}
+#'
+#' which may be stored in advance:
+#'
+#' \code{vars <- c("V1", "V2")}
+#'
+#' \code{FUN(arg = vars, data = x)}
+#'
+#' where \code{x} contains those variables. You may also supply variable
+#' names as symbols:
+#'
+#' \code{FUN(arg = V1, data = x)}
+#'
+#' Or as a list of symbols (similarly to as in \code{\link{aggregate}}):
+#'
+#' \code{FUN(arg = list(V1, V2), data = x)}
+#'
+#' Or as a list of expressions:
+#'
+#' \code{FUN(arg = list(V1 + 1, factor(V2)), data = x)}
+#'
+#' A formula without a left-hand-side specified is sometimes allowed as well:
+#'
+#' \code{FUN(arg = ~ I(V1 + 1) + factor(V2), data = x)}
+#'
+#' Using a symbol or a list of symbols/expressions typically
+#' causes the function to look for the variable(s)
+#' first in the supplied data (if any) and then where the function was called.
+#' For everyday users this means you might define e.g.
+#'
+#' \code{V3 <- factor(letters)}
+#'
+#' and do e.g.
+#'
+#' \code{FUN(arg = list(V1 + 1, factor(V2), V3), data = x)}
+#'
+#' provided \code{V1} and \code{V2} exist in \code{x} or in the function calling
+#' environment.
+#'
+#' @section A pitfall:
+#'
+#' There is one way to use flexible arguments incorrectly: By supplying
+#' the name of a variable which exists both in the supplied data
+#' and the calling environment, and intending the latter to be used. E.g.
+#'
+#' \code{vars <- c("V2")}
+#'
+#' \code{FUN(arg = V3, data = x)}
+#'
+#' where \code{x} has a column named \code{vars}. This causes the function to
+#' use \code{x$vars} and NOT \code{x$V2}.
+#'
+#' @section Advanced:
+#'
+#' Function programmers are advised to pass character strings
+#' whenever possible. To fool-proof against conflicts as described in the
+#' section above, refer to the calling environment explicitly when
+#' passing the variable containing the character strings:
+#'
+#' \code{TF <- environment() ## current env to refer to}
+#'
+#' \code{vars <- c("V1", "V2")}
+#'
+#' \code{FUN(arg = TF$vars, data = x)}
+#'
+#' Even if \code{x} has columns named \code{vars} and \code{TF},
+#' using \code{TF$vars} does not use those columns but only evaluates
+#' \code{TF$vars}
+#' in the calling environment. This is made possible by the fact
+#' that data is always passed as a \code{data.frame}, within which evaluation
+#' of expressions using the dollar operator is not possible. Therefore
+#' it is safe to assume the data should not be used. However, lists of
+#' expressions will not be checked for dollar use and will fail in conflict
+#' situations:
+#'
+#' \code{TF <- environment() ## current env to refer to}
+#'
+#' \code{vars <- letters[1:5]}
+#'
+#' \code{x <- data.frame(vars = 1:5, TF = 5:1, V1 = 10:6)}
+#'
+#' \code{FUN(arg = list(TF$vars, V1), data = x)}
+#'
+#' On the other hand you may typically also pass quoted (\code{\link{quote}})
+#' or substituted \code{\link{substitute}} expressions etc., where
+#' the \code{env$object} trick will work as well:
+#'
+#' \code{q <- quote(list(vars, V1))}
+#'
+#' \code{FUN(arg = TF$q, data = x)}
+#'
+#' This works even with
+#'
+#' \code{a <- 1:5}
+#'
+#' \code{V1 <- quote(TF$a)}
+#'
+#' \code{FUN(arg = TF$V1, data = x)}
+#'
+#' So no conflicts should occur.
+#' @family popEpi argument evaluation docs
+#' @examples
+#'
+#' data(sire)
+#' ## prepare data for e.g. 5-year "period analysis" for 2008-2012
+#' ## note: sire is a simulated cohort integrated into popEpi.
+#' BL <- list(fot=seq(0, 5, by = 1/12))
+#' x <- lexpand(sire, birth = bi_date, entry = dg_date, exit = ex_date,
+#' status = status %in% 1:2,
+#' breaks = BL)
+#'
+#' x <- aggre(x, by = fot)
+#'
+#' ## silly example of referring to pyrs data by fixed character string;
+#' ## its possible that the real name wont be fixed in a real-life application.
+#' pyrs <- "actual_pyrs"
+#' TF <- environment()
+#' x$actual_pyrs <- as.numeric(x$pyrs)
+#' x$pyrs <- 1
+#'
+#' ## this works (uses actual_pyrs eventually)
+#' st <- survtab_ag(fot ~ 1, data = x, surv.type = "surv.obs",
+#' pyrs = TF$pyrs, d = from0to1,
+#' surv.method = "hazard")
+#' ## this would be wrong (sees expression 'pyrs' and uses that column,
+#' ## which is not what is intended here)
+#' st <- survtab_ag(fot ~ 1, data = x, surv.type = "surv.obs",
+#' pyrs = pyrs, d = from0to1,
+#' surv.method = "hazard")
+
+NULL
+
+
+
+
+
+
+
+
+
diff --git a/R/fractional_years.R b/R/fractional_years.R
index b5b0ce9..3aeb9ff 100644
--- a/R/fractional_years.R
+++ b/R/fractional_years.R
@@ -1,155 +1,155 @@
-
-
-#' @title Convert date objects to fractional years
-#' @author Joonas Miettinen
-#' @description Using Date objects, calculates given
-#' dates as fractional years.
-#' @param x a \code{Date} object, or anything that \code{link{as.Date}}
-#' accepts
-#' @param year.length character string, either \code{'actual'} or
-#' \code{'approx'}; can be abbreviated; see Details
-#' @param ... additional arguments passed on to \code{\link{as.Date}};
-#' typically \code{format} when \code{x} is a character string variable,
-#' and \code{origin} when \code{x} is numeric
-#' @import data.table
-#' @export
-#' @details
-#'
-#' \code{x} should preferably be a \code{date}, \code{Date} or \code{IDate}
-#' object, although it can also be a character string variable
-#' which is coerced internally to \code{Date} format
-#' using \code{\link{as.Date.character}}.
-#'
-#' When \code{ year.length = 'actual' }, fractional years are calculated as
-#' \code{ year + (day_in_year-1)/365 } for non-leap-years
-#' and as \code{ year + (day_in_year-1)/366 } for leap years.
-#' If \code{ year.length = 'approx' }, fractional years are always
-#' calculated as in \code{ year + (day_in_year-1)/365.242199 }.
-#'
-#' There is a slight difference, then, between the two methods
-#' when calculating durations between fractional years. For
-#' meticulous accuracy one might instead want to calculate durations using
-#' dates (days) and convert the results to fractional years.
-#'
-#' Note that dates are effectively converted to fractional years at
-#' \code{ 00:00:01 } o'clock:
-#'
-#'
-#' \code{ get.yrs("2000-01-01") = 2000 }, and
-#' \code{ get.yrs("2000-01-02") = 2000 + 1/365.242199 }.
-#'
-#'
-#' @seealso
-#' \code{\link[Epi]{cal.yr}}, \code{\link{as.Date.yrs}}, \code{\link{as.Date}}
-#'
-#' @return
-#' A numeric vector of fractional years.
-#'
-#' @examples
-#'
-#' data("sire")
-#' sire$dg_yrs <- get.yrs(sire$dg_date)
-#' summary(sire$dg_yrs)
-#'
-#' ## see: ?as.Date.yrs
-#' dg_date2 <- as.Date(sire$dg_yrs)
-#' summary(as.numeric(dg_date2 - as.Date(sire$dg_date)))
-#'
-#' ## Epi's cal.yr versus get.yrs
-#' d <- as.Date("2000-01-01")
-#' Epi::cal.yr(d) ## 1999.999
-#' get.yrs(d) ## 2000
-#'
-#' ## "..." passed on to as.Date, so character / numeric also accepted as input
-#' ## (and whatever else as.Date accepts)
-#' get.yrs("2000-06-01")
-#' get.yrs("20000601", format = "%Y%m%d")
-#' get.yrs("1/6/00", format = "%d/%m/%y")
-#'
-#' get.yrs(100, origin = "1970-01-01")
-#'
-#'
-get.yrs <- function(x, year.length = "approx", ...) {
- as.yrs(x, year.length = year.length, ...)
-}
-
-
-as.yrs <- function(x, year.length, ...) {
- UseMethod("as.yrs")
-}
-
-as.yrs.Date <- function(x, year.length = "approx", ...) {
- year.length <- match.arg(year.length, c("actual", "approx"))
-
- yl <- 365.242199
- y <- year(x)
- if (year.length == "actual") {
- yl <- ifelse(is_leap_year(y), 366L, 365L)
- }
- d <- yday(x)
-
- yrs <- y + (d - 1L)/yl
- setattr(yrs, "year.length", year.length)
- setattr(yrs, "class", c("yrs", "numeric"))
- yrs
-}
-
-as.yrs.default <- function(x, year.length = "approx", ...) {
-
- x <- as.Date(x, ...)
- as.yrs(x, year.length = year.length)
-
-}
-
-
-
-#' @title Coerce Fractional Year Values to Date Values
-#' @author Joonas Miettinen
-#' @param x an \code{yrs} object created by \code{get.yrs}
-#' @param ... unused, included for compatibility with other \code{as.Date}
-#' methods
-#' @description Coerces an \code{yrs} object to a \code{Date} object.
-#' Some loss of information comes if \code{year.length = "approx"}
-#' was set when using \code{\link{get.yrs}}, so the transformation back
-#' to \code{Date} will not be perfect there. With \code{year.length = "actual"}
-#' the original values are perfectly retrieved.
-#' @examples
-#' data("sire", package = "popEpi")
-#'
-#' ## approximate year lengths: here 20 % have an extra day added
-#' sire$dg_yrs <- get.yrs(sire$dg_date)
-#' summary(sire$dg_yrs)
-#' dg_date2 <- as.Date(sire$dg_yrs)
-#' summary(as.numeric(dg_date2 - as.Date(sire$dg_date)))
-#'
-#' ## using actual year lengths
-#' sire$dg_yrs <- get.yrs(sire$dg_date, year.length = "actual")
-#' summary(sire$dg_yrs)
-#' dg_date2 <- as.Date(sire$dg_yrs)
-#' summary(as.numeric(dg_date2 - as.Date(sire$dg_date)))
-#' @seealso \code{\link{get.yrs}}
-#' @return
-#' A vector of `Date` values based on the input fractional years.
-#' @export
-as.Date.yrs <- function(x, ...) {
-
- yl <- attr(x, "year.length")
- if (is.null(yl)) {
- warning("x did not contain meta information about year length used ",
- "when forming the yrs object. Assuming 'approx'.")
- yl <- "approx"
- }
-
- y <- as.integer(x)
-
- mu <- 365.242199
- if (yl == "actual") {
- mu <- ifelse(is_leap_year(y), rep(365L, length(x)), rep(364L, length(x)))
- }
- x <- x + 1L/mu
- yd <- as.integer((x-y)*mu)
- d <- as.Date(paste0(y, "-01-01")) + yd
- d
-}
-
-
+
+
+#' @title Convert date objects to fractional years
+#' @author Joonas Miettinen
+#' @description Using Date objects, calculates given
+#' dates as fractional years.
+#' @param x a \code{Date} object, or anything that \code{link{as.Date}}
+#' accepts
+#' @param year.length character string, either \code{'actual'} or
+#' \code{'approx'}; can be abbreviated; see Details
+#' @param ... additional arguments passed on to \code{\link{as.Date}};
+#' typically \code{format} when \code{x} is a character string variable,
+#' and \code{origin} when \code{x} is numeric
+#' @import data.table
+#' @export
+#' @details
+#'
+#' \code{x} should preferably be a \code{date}, \code{Date} or \code{IDate}
+#' object, although it can also be a character string variable
+#' which is coerced internally to \code{Date} format
+#' using \code{\link{as.Date.character}}.
+#'
+#' When \code{ year.length = 'actual' }, fractional years are calculated as
+#' \code{ year + (day_in_year-1)/365 } for non-leap-years
+#' and as \code{ year + (day_in_year-1)/366 } for leap years.
+#' If \code{ year.length = 'approx' }, fractional years are always
+#' calculated as in \code{ year + (day_in_year-1)/365.242199 }.
+#'
+#' There is a slight difference, then, between the two methods
+#' when calculating durations between fractional years. For
+#' meticulous accuracy one might instead want to calculate durations using
+#' dates (days) and convert the results to fractional years.
+#'
+#' Note that dates are effectively converted to fractional years at
+#' \code{ 00:00:01 } o'clock:
+#'
+#'
+#' \code{ get.yrs("2000-01-01") = 2000 }, and
+#' \code{ get.yrs("2000-01-02") = 2000 + 1/365.242199 }.
+#'
+#'
+#' @seealso
+#' \code{\link[Epi]{cal.yr}}, \code{\link{as.Date.yrs}}, \code{\link{as.Date}}
+#'
+#' @return
+#' A numeric vector of fractional years.
+#'
+#' @examples
+#'
+#' data("sire")
+#' sire$dg_yrs <- get.yrs(sire$dg_date)
+#' summary(sire$dg_yrs)
+#'
+#' ## see: ?as.Date.yrs
+#' dg_date2 <- as.Date(sire$dg_yrs)
+#' summary(as.numeric(dg_date2 - as.Date(sire$dg_date)))
+#'
+#' ## Epi's cal.yr versus get.yrs
+#' d <- as.Date("2000-01-01")
+#' Epi::cal.yr(d) ## 1999.999
+#' get.yrs(d) ## 2000
+#'
+#' ## "..." passed on to as.Date, so character / numeric also accepted as input
+#' ## (and whatever else as.Date accepts)
+#' get.yrs("2000-06-01")
+#' get.yrs("20000601", format = "%Y%m%d")
+#' get.yrs("1/6/00", format = "%d/%m/%y")
+#'
+#' get.yrs(100, origin = "1970-01-01")
+#'
+#'
+get.yrs <- function(x, year.length = "approx", ...) {
+ as.yrs(x, year.length = year.length, ...)
+}
+
+
+as.yrs <- function(x, year.length, ...) {
+ UseMethod("as.yrs")
+}
+
+as.yrs.Date <- function(x, year.length = "approx", ...) {
+ year.length <- match.arg(year.length, c("actual", "approx"))
+
+ yl <- 365.242199
+ y <- year(x)
+ if (year.length == "actual") {
+ yl <- ifelse(is_leap_year(y), 366L, 365L)
+ }
+ d <- yday(x)
+
+ yrs <- y + (d - 1L)/yl
+ setattr(yrs, "year.length", year.length)
+ setattr(yrs, "class", c("yrs", "numeric"))
+ yrs
+}
+
+as.yrs.default <- function(x, year.length = "approx", ...) {
+
+ x <- as.Date(x, ...)
+ as.yrs(x, year.length = year.length)
+
+}
+
+
+
+#' @title Coerce Fractional Year Values to Date Values
+#' @author Joonas Miettinen
+#' @param x an \code{yrs} object created by \code{get.yrs}
+#' @param ... unused, included for compatibility with other \code{as.Date}
+#' methods
+#' @description Coerces an \code{yrs} object to a \code{Date} object.
+#' Some loss of information comes if \code{year.length = "approx"}
+#' was set when using \code{\link{get.yrs}}, so the transformation back
+#' to \code{Date} will not be perfect there. With \code{year.length = "actual"}
+#' the original values are perfectly retrieved.
+#' @examples
+#' data("sire", package = "popEpi")
+#'
+#' ## approximate year lengths: here 20 % have an extra day added
+#' sire$dg_yrs <- get.yrs(sire$dg_date)
+#' summary(sire$dg_yrs)
+#' dg_date2 <- as.Date(sire$dg_yrs)
+#' summary(as.numeric(dg_date2 - as.Date(sire$dg_date)))
+#'
+#' ## using actual year lengths
+#' sire$dg_yrs <- get.yrs(sire$dg_date, year.length = "actual")
+#' summary(sire$dg_yrs)
+#' dg_date2 <- as.Date(sire$dg_yrs)
+#' summary(as.numeric(dg_date2 - as.Date(sire$dg_date)))
+#' @seealso \code{\link{get.yrs}}
+#' @return
+#' A vector of `Date` values based on the input fractional years.
+#' @export
+as.Date.yrs <- function(x, ...) {
+
+ yl <- attr(x, "year.length")
+ if (is.null(yl)) {
+ warning("x did not contain meta information about year length used ",
+ "when forming the yrs object. Assuming 'approx'.")
+ yl <- "approx"
+ }
+
+ y <- as.integer(x)
+
+ mu <- 365.242199
+ if (yl == "actual") {
+ mu <- ifelse(is_leap_year(y), rep(365L, length(x)), rep(364L, length(x)))
+ }
+ x <- x + 1L/mu
+ yd <- as.integer((x-y)*mu)
+ d <- as.Date(paste0(y, "-01-01")) + yd
+ d
+}
+
+
diff --git a/R/incidence_rates.R b/R/incidence_rates.R
index 7eaa433..a6fb24d 100644
--- a/R/incidence_rates.R
+++ b/R/incidence_rates.R
@@ -1,347 +1,347 @@
-#' @title Direct-Standardised Incidence/Mortality Rates
-#' @author Matti Rantanen, Joonas Miettinen
-#'
-#' @description \code{rate} calculates adjusted rates using
-#' preloaded weights data or user specified weights.
-#'
-#' @param data aggregated data (see e.g. \code{\link{lexpand}},
-#' \code{\link{aggre}} if you have subject-level data)
-#' @param pyrs person-years variable name in data.
-#' \link[=flexible_argument]{Flexible input}, typically e.g.
-#' \code{pyrs = pyrs}.
-#' @param obs observations variable name in data.
-#' \link[=flexible_argument]{Flexible input}, typically e.g.
-#' \code{obs = obs}.
-#' @param adjust variable for adjusting the rates.
-#' \link[=flexible_argument]{Flexible input}, typically e.g.
-#' \code{adjust = agegroup}.
-#' @param print variable name to stratify the rates.
-#' \link[=flexible_argument]{Flexible input}, typically e.g.
-#' \code{print = sex} or \code{print = list(sex, area)}.
-#' @param weights typically a list of weights or a \code{character} string
-#' specifying an age group standardization scheme; see
-#' the \link[=direct_standardization]{dedicated help page}
-#' and examples.
-#'
-#' @param subset a logical expression to subset data.
-#'
-#' @details Input data needs to be in aggregated format with observations
-#' and person-years. For individual data use \code{\link{lexpand}}, or
-#' \code{\link{ltable}} and merge person-years manually.
-#'
-#' The confidence intervals are based on the normal approximation of the logarithm of the rate.
-#' The variance of the log rate that is used to derive the confidence intervals
-#' is derived using the delta method.
-#'
-#' @return Returns a \code{data.table} with observations, person-years, rates and
-#' adjusted rates, if available. Results are stratified by \code{print}.
-#' Adjusted rates are identified with suffix \code{.adj} and
-#' \code{.lo} and \code{.hi} are for confidence intervals lower and upper
-#' 95\% bounds, respectively.
-#' The prefix \code{SE.} stands for standard error.
-#'
-#' @seealso \code{\link{lexpand}}, \code{\link{ltable}}
-#'
-#' @examples
-#' ## Prepare data with lexpand and then reformat agegroup.
-#' data(sibr)
-#' x <- lexpand(sibr, birth = bi_date, entry = dg_date, exit = ex_date,
-#' breaks = list(per = c(1990,2000,2010,2020), age = c(0:17*5,Inf)),
-#' aggre = list(agegroup = age, year.cat = per),
-#' status = status != 0)
-#'
-#' x$agegroup <- cut(x$agegroup, c(0:17*5,Inf), right = FALSE)
-#'
-#' ## calculate rates for selected periods with Nordic 2000 weights:
-#' r1 <- rate( data = x, obs = from0to1, pyrs = pyrs, print = year.cat,
-#' adjust = agegroup, weights = 'nordic')
-#' r1
-#'
-#' ## use total person-years by stratum as weights (some have zero)
-#' w <- ltable(x, by.vars = "agegroup", expr = sum(pyrs))
-#' w[is.na(w$V1),]$V1 <- 0
-#'
-#' r2 <- rate( data = x, obs = from0to1, pyrs = pyrs, print = year.cat,
-#' adjust = agegroup,
-#' weights = w$V1)
-#' r2
-#'
-#' ## use data.frame of weights:
-#' names(w) <- c("agegroup", "weights")
-#' r2 <- rate( data = x, obs = from0to1, pyrs = pyrs, print = year.cat,
-#' adjust = agegroup,
-#' weights = w)
-#' r2
-#'
-#' ## internal weights (same result as above)
-#' r3 <- rate( data = x, obs = from0to1, pyrs = pyrs, print = year.cat,
-#' adjust = agegroup,
-#' weights = "internal")
-#' r3
-#'
-#' @import data.table
-#' @export
-#' @family main functions
-#' @family rate functions
-
-rate <- function( data,
- obs = NULL,
- pyrs = NULL,
- print = NULL,
- adjust = NULL,
- weights = NULL,
- subset = NULL
-) {
-
- PF <- parent.frame(1L)
- TF <- environment()
-
- ## subsetting -----------------------------------------------------------
- subset <- substitute(subset)
- subset <- evalLogicalSubset(data = data, substiset = subset, enclos = PF)
- data <- data[subset,]
- setDT(data)
-
- # evalPopArg
- obs <- substitute(obs)
- inc.obs <- evalPopArg(data = data, arg = obs, enclos = PF)
- if (!length(inc.obs)) {
- stop("No observations given.")
- }
- obsNames <- copy(names(inc.obs))
- tmpObsNames <- makeTempVarName(data = data, pre = "obs")
- setnames(inc.obs, obsNames, tmpObsNames)
-
- pyrs <- substitute(pyrs)
- inc.pyr <- evalPopArg(data = data, arg = pyrs, enclos = PF)
- if (!length(inc.pyr)) {
- stop("No pyrs given.")
- }
- pyrNames <- copy(names(inc.pyr))
- tmpPyrNames <- makeTempVarName(data = data, pre = "pyr")
- setnames(inc.pyr, pyrNames, tmpPyrNames)
-
- print <- substitute(print)
- inc.pri <- evalPopArg(data = data, arg = print, enclos = PF)
- prNames <- tmpPrNames <- NULL
- if (length(inc.pri)) {
- prNames <- copy(names(inc.pri))
- tmpPrNames <- makeTempVarName(data = data,
- pre = paste0("print", seq_along(prNames)))
- setnames(inc.pri, prNames, tmpPrNames)
- }
-
- adjust <- substitute(adjust)
- inc.adj <- evalPopArg(data = data, arg = adjust, enclos = PF)
- adNames <- tmpAdNames <- NULL
- if (length(inc.adj)) {
- adNames <- copy(names(inc.adj))
- tmpAdNames <- makeTempVarName(data = data,
- pre = paste0("adjust", seq_along(adNames)))
- setnames(inc.adj, adNames, tmpAdNames)
- }
-
- ## collect data --------------------------------------------------------------
- data <- cbind(inc.obs, inc.pyr)
- if (!is.null(prNames)) data <- cbind(data, inc.pri)
- if (!is.null(adNames)) data <- cbind(data, inc.adj)
-
-
- ## handle weights ------------------------------------------------------------
- weights <- substitute(weights)
- weights <- eval(weights, envir = PF)
- weights <- copy(weights)
- if (length(inc.adj)) {
- ## rename adjust variables in inc.adj back to original names
- ## for more human-readable errors in checkWeights if any occur
- setnames(inc.adj, tmpAdNames, adNames)
- }
-
- checkWeights(weights, inc.adj)
- if (is.list(weights) && !is.data.frame(weights)) {
- ## ensure weights list / DF names match to temp adjust var names
- weights <- weights[adNames]
- names(weights) <- tmpAdNames
- } else if (is.data.frame(weights)) {
- setnames(weights, adNames, tmpAdNames)
- }
-
- ## form table with weights ---------------------------------------------------
- NA.msg <- "Data contains %%NA_COUNT%% NA values."
- data <- makeWeightsDT(data,
- values = list(tmpObsNames, tmpPyrNames),
- print = tmpPrNames,
- adjust = tmpAdNames,
- weights = weights,
- internal.weights.values = tmpPyrNames,
- NA.text = NA.msg)
-
- ## estimate standardized rates -----------------------------------------------
- data <- rate_est(data = data,
- obs = tmpObsNames,
- pyrs = tmpPyrNames,
- print = tmpPrNames,
- weights = "weights")
-
- ## final touch ---------------------------------------------------------------
- setDT(data)
- setattr(data, "class", c("rate", "data.table", "data.frame"))
- setattr(data, name = 'rate.meta', value = list(obs = obsNames,
- pyrs = pyrNames,
- weights = weights,
- adjust = adNames,
- print = prNames,
- call = match.call(),
- NAs = NA))
- setnames(data, c(tmpObsNames, tmpPyrNames, tmpPrNames),
- c(obsNames, pyrNames, prNames))
-
- # data.frame output option
- if (!return_DT()) {
- setDFpe(data)
- }
-
- return(data[])
-}
-
-#' @export
-getCall.rate <- function (x, ...) {
- attributes(x)$rate.meta$call
-}
-
-stdr.weights <- function(wp = 'world00_1') {
-
- ## This one returns the standard population
- ## output: data.table with colnames: agegroup, reference
- ## standard populations are from datasets: stdpop18 and stdpop101
- allow.pop <- c("world_1966_18of5",
- "europe_1976_18of5",
- "nordic_2000_18of5",
- "world_2000_18of5",
- "world_2000_20of5",
- "world_2000_101of1")
- wp <- match.arg(wp, allow.pop)
-
- if (length(wp) > 1) {
- stop('Standard population name is not a scalar (length != 1).')
-
- } else if (wp %in% allow.pop[1:3]) {
-
- # get standard pop
- sr <- data.table(popEpi::stdpop18)
- setnames(sr, 1:4, c("agegroup",allow.pop[1:3]))
- sr[, agegroup := 1:18]
- sr[, setdiff(allow.pop[1:3], wp) := NULL]
-
- setnames(sr, wp, 'reference')
-
- } else if (wp %in% allow.pop[4:6]) {
-
- sr <- data.table(popEpi::stdpop101)
- if (wp == "world_2000_18of5") {
- sr[,agegroup := cut(agegroup, breaks=c(0:17*5,Inf), right=FALSE, labels=FALSE)]
- sr <- sr[,list(world_std = sum(world_std)), by="agegroup"]
- }
- if (wp == 'world_2000_20of5') {
- sr[,agegroup := cut(agegroup, breaks=c(0:19*5,Inf), right=FALSE, labels=FALSE)]
- sr <- sr[,list(world_std = sum(world_std)), by="agegroup"]
- }
- else {
- sr <- sr[,list(world_std = sum(world_std)), by="agegroup"]
- }
- setnames(sr, "world_std", "reference")
- }
- else {
- stop("Invalid standard population name.")
- }
- sr[]
-}
-globalVariables(c('stdpop18','stdpop101','agegroup','world_std'))
-
-
-rate_est <- function(data = data,
- obs = 'obs',
- pyrs = 'pyrs',
- print = NULL,
- weights = NULL
-) {
- ## This one estimates the rates and calculates CI's and SE's.
-
- badVars <- paste0("Internal error: missing following variable names in ",
- "working data: %%VARS%%. Complain to the pkg maintainer ",
- "if you see this.")
- all_names_present(data, c(obs, pyrs, print), msg = badVars)
-
- data <- data.table(data)
- if ( is.null(weights) | !weights %in% colnames(data)) {
- weights <- NULL
- }
-
- if (all(!is.null(weights), !is.null(obs), !is.null(pyrs))) {
- # rate.adj
-
- f2 <- function(list) list[[1]]/list[[2]]*list[[3]]
- funx <- function(n,d,w,fun) eval(parse(text=fun))
-
-
- # variance rate.adj for each strata A
- fun1 <- '(._d_/._n_^2) * ._w_^2'
- fun2 <- '._d_ / ._n_ * ._w_'
-
- make_fun <- function(n = NA, d = NA, w = NA, fun) {
- fun <- gsub(pattern = "._n_", replacement = n, x = fun)
- fun <- gsub(pattern = "._d_", replacement = d, x = fun)
- fun <- gsub(pattern = "._w_", replacement = w, x = fun)
- parse(text = fun)
- }
- eval.me1 <- make_fun(d = obs, n = pyrs, w=weights, fun = fun1)
- eval.me2 <- make_fun(d = obs, n = pyrs, w=weights, fun = fun2)
- data[, var.temp := eval(eval.me1)]
- data[, lam.temp := eval(eval.me2)]
- # add std weighted rates and variances
- #data[, ':='(var.temp = funx(d=get(obs), n=get(pyrs), w=get(weights), fun = fun1),
- # lam.temp = funx(d=get(obs), n=get(pyrs), w=get(weights), fun = fun2)) ]
- data[, rate.adj := f2(.SD), .SDcols= c(obs, pyrs, weights)]
-
- # aggregate data
- ie <- paste0('list(', obs, '=sum(',obs,',na.rm=TRUE), ', pyrs, '=sum(',pyrs,',na.rm=TRUE),',
- 'rate.adj=sum(rate.adj,na.rm=TRUE),' ,'lam.temp=sum(lam.temp,na.rm=TRUE), var.temp=sum(var.temp,na.rm=TRUE))')
- l <- parse(text = ie)
-
- data <- data[, eval(l), by=print]
- # rate.adj: S.E.
- data[, SE.log.rate.adj := sqrt((1/lam.temp)^2 * var.temp) ] # tämä on log-rate
- data[, SE.rate.adj := sqrt(var.temp)]
- # rate.adj: CI
- data[, ':='(rate.adj.lo = exp( log(rate.adj) - SE.log.rate.adj*1.96 ),
- rate.adj.hi = exp( log(rate.adj) + SE.log.rate.adj*1.96 )) ]
- data[,c('lam.temp','var.temp','SE.log.rate.adj') := NULL]
- }
-
- else {
- ie <- paste0('list(', obs, '=sum(',obs,'), ', pyrs, '=sum(',pyrs,'))')
- l <- parse(text = ie)
- data <- data[, eval(l), by=print]
- }
- # rate
- ia <- paste0('rate := ',obs,'/', pyrs)
- k <- parse(text = ia)
- data[, eval(k), by = print]
-
- # var(rate)
- var_r <- paste0('SE.rate := sqrt(',obs,'/(',pyrs,'*',pyrs,'))')
- k <- parse(text = var_r)
- data[, eval(k), by = print]
-
- # var(log(rate)) and CI
- eval.me3 <- paste('exp(sqrt(1/',obs,'))')
- eval.me3 <- parse(text = eval.me3)
- data[, SE.log.rate := eval(eval.me3)]
- data[, ':='(rate.lo = exp(log(rate)-log(SE.log.rate)*1.96),
- rate.hi = exp(log(rate)+log(SE.log.rate)*1.96)) ]
- data[, SE.log.rate := NULL]
- return(data[])
-}
-
-globalVariables(c('var.temp','lam.temp','rate.adj','SE.rate.adj','SE.rate','SE.log.rate','SE.log.rate.adj'))
-
+#' @title Direct-Standardised Incidence/Mortality Rates
+#' @author Matti Rantanen, Joonas Miettinen
+#'
+#' @description \code{rate} calculates adjusted rates using
+#' preloaded weights data or user specified weights.
+#'
+#' @param data aggregated data (see e.g. \code{\link{lexpand}},
+#' \code{\link{aggre}} if you have subject-level data)
+#' @param pyrs person-years variable name in data.
+#' \link[=flexible_argument]{Flexible input}, typically e.g.
+#' \code{pyrs = pyrs}.
+#' @param obs observations variable name in data.
+#' \link[=flexible_argument]{Flexible input}, typically e.g.
+#' \code{obs = obs}.
+#' @param adjust variable for adjusting the rates.
+#' \link[=flexible_argument]{Flexible input}, typically e.g.
+#' \code{adjust = agegroup}.
+#' @param print variable name to stratify the rates.
+#' \link[=flexible_argument]{Flexible input}, typically e.g.
+#' \code{print = sex} or \code{print = list(sex, area)}.
+#' @param weights typically a list of weights or a \code{character} string
+#' specifying an age group standardization scheme; see
+#' the \link[=direct_standardization]{dedicated help page}
+#' and examples.
+#'
+#' @param subset a logical expression to subset data.
+#'
+#' @details Input data needs to be in aggregated format with observations
+#' and person-years. For individual data use \code{\link{lexpand}}, or
+#' \code{\link{ltable}} and merge person-years manually.
+#'
+#' The confidence intervals are based on the normal approximation of the logarithm of the rate.
+#' The variance of the log rate that is used to derive the confidence intervals
+#' is derived using the delta method.
+#'
+#' @return Returns a \code{data.table} with observations, person-years, rates and
+#' adjusted rates, if available. Results are stratified by \code{print}.
+#' Adjusted rates are identified with suffix \code{.adj} and
+#' \code{.lo} and \code{.hi} are for confidence intervals lower and upper
+#' 95\% bounds, respectively.
+#' The prefix \code{SE.} stands for standard error.
+#'
+#' @seealso \code{\link{lexpand}}, \code{\link{ltable}}
+#'
+#' @examples
+#' ## Prepare data with lexpand and then reformat agegroup.
+#' data(sibr)
+#' x <- lexpand(sibr, birth = bi_date, entry = dg_date, exit = ex_date,
+#' breaks = list(per = c(1990,2000,2010,2020), age = c(0:17*5,Inf)),
+#' aggre = list(agegroup = age, year.cat = per),
+#' status = status != 0)
+#'
+#' x$agegroup <- cut(x$agegroup, c(0:17*5,Inf), right = FALSE)
+#'
+#' ## calculate rates for selected periods with Nordic 2000 weights:
+#' r1 <- rate( data = x, obs = from0to1, pyrs = pyrs, print = year.cat,
+#' adjust = agegroup, weights = 'nordic')
+#' r1
+#'
+#' ## use total person-years by stratum as weights (some have zero)
+#' w <- ltable(x, by.vars = "agegroup", expr = sum(pyrs))
+#' w[is.na(w$V1),]$V1 <- 0
+#'
+#' r2 <- rate( data = x, obs = from0to1, pyrs = pyrs, print = year.cat,
+#' adjust = agegroup,
+#' weights = w$V1)
+#' r2
+#'
+#' ## use data.frame of weights:
+#' names(w) <- c("agegroup", "weights")
+#' r2 <- rate( data = x, obs = from0to1, pyrs = pyrs, print = year.cat,
+#' adjust = agegroup,
+#' weights = w)
+#' r2
+#'
+#' ## internal weights (same result as above)
+#' r3 <- rate( data = x, obs = from0to1, pyrs = pyrs, print = year.cat,
+#' adjust = agegroup,
+#' weights = "internal")
+#' r3
+#'
+#' @import data.table
+#' @export
+#' @family main functions
+#' @family rate functions
+
+rate <- function( data,
+ obs = NULL,
+ pyrs = NULL,
+ print = NULL,
+ adjust = NULL,
+ weights = NULL,
+ subset = NULL
+) {
+
+ PF <- parent.frame(1L)
+ TF <- environment()
+
+ ## subsetting -----------------------------------------------------------
+ subset <- substitute(subset)
+ subset <- evalLogicalSubset(data = data, substiset = subset, enclos = PF)
+ data <- data[subset,]
+ setDT(data)
+
+ # evalPopArg
+ obs <- substitute(obs)
+ inc.obs <- evalPopArg(data = data, arg = obs, enclos = PF)
+ if (!length(inc.obs)) {
+ stop("No observations given.")
+ }
+ obsNames <- copy(names(inc.obs))
+ tmpObsNames <- makeTempVarName(data = data, pre = "obs")
+ setnames(inc.obs, obsNames, tmpObsNames)
+
+ pyrs <- substitute(pyrs)
+ inc.pyr <- evalPopArg(data = data, arg = pyrs, enclos = PF)
+ if (!length(inc.pyr)) {
+ stop("No pyrs given.")
+ }
+ pyrNames <- copy(names(inc.pyr))
+ tmpPyrNames <- makeTempVarName(data = data, pre = "pyr")
+ setnames(inc.pyr, pyrNames, tmpPyrNames)
+
+ print <- substitute(print)
+ inc.pri <- evalPopArg(data = data, arg = print, enclos = PF)
+ prNames <- tmpPrNames <- NULL
+ if (length(inc.pri)) {
+ prNames <- copy(names(inc.pri))
+ tmpPrNames <- makeTempVarName(data = data,
+ pre = paste0("print", seq_along(prNames)))
+ setnames(inc.pri, prNames, tmpPrNames)
+ }
+
+ adjust <- substitute(adjust)
+ inc.adj <- evalPopArg(data = data, arg = adjust, enclos = PF)
+ adNames <- tmpAdNames <- NULL
+ if (length(inc.adj)) {
+ adNames <- copy(names(inc.adj))
+ tmpAdNames <- makeTempVarName(data = data,
+ pre = paste0("adjust", seq_along(adNames)))
+ setnames(inc.adj, adNames, tmpAdNames)
+ }
+
+ ## collect data --------------------------------------------------------------
+ data <- cbind(inc.obs, inc.pyr)
+ if (!is.null(prNames)) data <- cbind(data, inc.pri)
+ if (!is.null(adNames)) data <- cbind(data, inc.adj)
+
+
+ ## handle weights ------------------------------------------------------------
+ weights <- substitute(weights)
+ weights <- eval(weights, envir = PF)
+ weights <- copy(weights)
+ if (length(inc.adj)) {
+ ## rename adjust variables in inc.adj back to original names
+ ## for more human-readable errors in checkWeights if any occur
+ setnames(inc.adj, tmpAdNames, adNames)
+ }
+
+ checkWeights(weights, inc.adj)
+ if (is.list(weights) && !is.data.frame(weights)) {
+ ## ensure weights list / DF names match to temp adjust var names
+ weights <- weights[adNames]
+ names(weights) <- tmpAdNames
+ } else if (is.data.frame(weights)) {
+ setnames(weights, adNames, tmpAdNames)
+ }
+
+ ## form table with weights ---------------------------------------------------
+ NA.msg <- "Data contains %%NA_COUNT%% NA values."
+ data <- makeWeightsDT(data,
+ values = list(tmpObsNames, tmpPyrNames),
+ print = tmpPrNames,
+ adjust = tmpAdNames,
+ weights = weights,
+ internal.weights.values = tmpPyrNames,
+ NA.text = NA.msg)
+
+ ## estimate standardized rates -----------------------------------------------
+ data <- rate_est(data = data,
+ obs = tmpObsNames,
+ pyrs = tmpPyrNames,
+ print = tmpPrNames,
+ weights = "weights")
+
+ ## final touch ---------------------------------------------------------------
+ setDT(data)
+ setattr(data, "class", c("rate", "data.table", "data.frame"))
+ setattr(data, name = 'rate.meta', value = list(obs = obsNames,
+ pyrs = pyrNames,
+ weights = weights,
+ adjust = adNames,
+ print = prNames,
+ call = match.call(),
+ NAs = NA))
+ setnames(data, c(tmpObsNames, tmpPyrNames, tmpPrNames),
+ c(obsNames, pyrNames, prNames))
+
+ # data.frame output option
+ if (!return_DT()) {
+ setDFpe(data)
+ }
+
+ return(data[])
+}
+
+#' @export
+getCall.rate <- function (x, ...) {
+ attributes(x)$rate.meta$call
+}
+
+stdr.weights <- function(wp = 'world00_1') {
+
+ ## This one returns the standard population
+ ## output: data.table with colnames: agegroup, reference
+ ## standard populations are from datasets: stdpop18 and stdpop101
+ allow.pop <- c("world_1966_18of5",
+ "europe_1976_18of5",
+ "nordic_2000_18of5",
+ "world_2000_18of5",
+ "world_2000_20of5",
+ "world_2000_101of1")
+ wp <- match.arg(wp, allow.pop)
+
+ if (length(wp) > 1) {
+ stop('Standard population name is not a scalar (length != 1).')
+
+ } else if (wp %in% allow.pop[1:3]) {
+
+ # get standard pop
+ sr <- data.table(popEpi::stdpop18)
+ setnames(sr, 1:4, c("agegroup",allow.pop[1:3]))
+ sr[, agegroup := 1:18]
+ sr[, setdiff(allow.pop[1:3], wp) := NULL]
+
+ setnames(sr, wp, 'reference')
+
+ } else if (wp %in% allow.pop[4:6]) {
+
+ sr <- data.table(popEpi::stdpop101)
+ if (wp == "world_2000_18of5") {
+ sr[,agegroup := cut(agegroup, breaks=c(0:17*5,Inf), right=FALSE, labels=FALSE)]
+ sr <- sr[,list(world_std = sum(world_std)), by="agegroup"]
+ }
+ if (wp == 'world_2000_20of5') {
+ sr[,agegroup := cut(agegroup, breaks=c(0:19*5,Inf), right=FALSE, labels=FALSE)]
+ sr <- sr[,list(world_std = sum(world_std)), by="agegroup"]
+ }
+ else {
+ sr <- sr[,list(world_std = sum(world_std)), by="agegroup"]
+ }
+ setnames(sr, "world_std", "reference")
+ }
+ else {
+ stop("Invalid standard population name.")
+ }
+ sr[]
+}
+globalVariables(c('stdpop18','stdpop101','agegroup','world_std'))
+
+
+rate_est <- function(data = data,
+ obs = 'obs',
+ pyrs = 'pyrs',
+ print = NULL,
+ weights = NULL
+) {
+ ## This one estimates the rates and calculates CI's and SE's.
+
+ badVars <- paste0("Internal error: missing following variable names in ",
+ "working data: %%VARS%%. Complain to the pkg maintainer ",
+ "if you see this.")
+ all_names_present(data, c(obs, pyrs, print), msg = badVars)
+
+ data <- data.table(data)
+ if ( is.null(weights) | !weights %in% colnames(data)) {
+ weights <- NULL
+ }
+
+ if (all(!is.null(weights), !is.null(obs), !is.null(pyrs))) {
+ # rate.adj
+
+ f2 <- function(list) list[[1]]/list[[2]]*list[[3]]
+ funx <- function(n,d,w,fun) eval(parse(text=fun))
+
+
+ # variance rate.adj for each strata A
+ fun1 <- '(._d_/._n_^2) * ._w_^2'
+ fun2 <- '._d_ / ._n_ * ._w_'
+
+ make_fun <- function(n = NA, d = NA, w = NA, fun) {
+ fun <- gsub(pattern = "._n_", replacement = n, x = fun)
+ fun <- gsub(pattern = "._d_", replacement = d, x = fun)
+ fun <- gsub(pattern = "._w_", replacement = w, x = fun)
+ parse(text = fun)
+ }
+ eval.me1 <- make_fun(d = obs, n = pyrs, w=weights, fun = fun1)
+ eval.me2 <- make_fun(d = obs, n = pyrs, w=weights, fun = fun2)
+ data[, var.temp := eval(eval.me1)]
+ data[, lam.temp := eval(eval.me2)]
+ # add std weighted rates and variances
+ #data[, ':='(var.temp = funx(d=get(obs), n=get(pyrs), w=get(weights), fun = fun1),
+ # lam.temp = funx(d=get(obs), n=get(pyrs), w=get(weights), fun = fun2)) ]
+ data[, rate.adj := f2(.SD), .SDcols= c(obs, pyrs, weights)]
+
+ # aggregate data
+ ie <- paste0('list(', obs, '=sum(',obs,',na.rm=TRUE), ', pyrs, '=sum(',pyrs,',na.rm=TRUE),',
+ 'rate.adj=sum(rate.adj,na.rm=TRUE),' ,'lam.temp=sum(lam.temp,na.rm=TRUE), var.temp=sum(var.temp,na.rm=TRUE))')
+ l <- parse(text = ie)
+
+ data <- data[, eval(l), by=print]
+ # rate.adj: S.E.
+ data[, SE.log.rate.adj := sqrt((1/lam.temp)^2 * var.temp) ] # tämä on log-rate
+ data[, SE.rate.adj := sqrt(var.temp)]
+ # rate.adj: CI
+ data[, ':='(rate.adj.lo = exp( log(rate.adj) - SE.log.rate.adj*1.96 ),
+ rate.adj.hi = exp( log(rate.adj) + SE.log.rate.adj*1.96 )) ]
+ data[,c('lam.temp','var.temp','SE.log.rate.adj') := NULL]
+ }
+
+ else {
+ ie <- paste0('list(', obs, '=sum(',obs,'), ', pyrs, '=sum(',pyrs,'))')
+ l <- parse(text = ie)
+ data <- data[, eval(l), by=print]
+ }
+ # rate
+ ia <- paste0('rate := ',obs,'/', pyrs)
+ k <- parse(text = ia)
+ data[, eval(k), by = print]
+
+ # var(rate)
+ var_r <- paste0('SE.rate := sqrt(',obs,'/(',pyrs,'*',pyrs,'))')
+ k <- parse(text = var_r)
+ data[, eval(k), by = print]
+
+ # var(log(rate)) and CI
+ eval.me3 <- paste('exp(sqrt(1/',obs,'))')
+ eval.me3 <- parse(text = eval.me3)
+ data[, SE.log.rate := eval(eval.me3)]
+ data[, ':='(rate.lo = exp(log(rate)-log(SE.log.rate)*1.96),
+ rate.hi = exp(log(rate)+log(SE.log.rate)*1.96)) ]
+ data[, SE.log.rate := NULL]
+ return(data[])
+}
+
+globalVariables(c('var.temp','lam.temp','rate.adj','SE.rate.adj','SE.rate','SE.log.rate','SE.log.rate.adj'))
+
diff --git a/R/incidence_rates_utils.R b/R/incidence_rates_utils.R
index 2b47ca8..56e01b1 100644
--- a/R/incidence_rates_utils.R
+++ b/R/incidence_rates_utils.R
@@ -1,135 +1,135 @@
-
-
-#' @title Confidence intervals for the rate ratios
-#' @author Matti Rantanen
-#' @description Calculate rate ratio with confidence intervals for rate objects or observations and person-years.
-#'
-#' @details Calculate rate ratio of two age standardized rate objects (see \code{\link{rate}}).
-#' Multiple rates for each objects is supported if there are an equal number of rates.
-#' Another option is to set \code{x} and \code{y} as a vector of two.
-#' \enumerate{
-#' \item rate and its standard error, and set \code{SE.method = TRUE}.
-#' \item observations and person-year, and set \code{SE.method = FALSE}.
-#' }
-#' See examples.
-#'
-#'
-#' @param x a rate-object, vector of two; rate and standard error or observed and person-years.
-#' @param y a rate-object, vector of two; rate and standard error or observed and person-years.
-#' @param crude set TRUE to use crude rates; default is FALSE.
-#' @param SE.method default TRUE; if \code{x} and \code{y} are vectors of observed and
-#' person-years, this must be changed to FALSE.
-#'
-#' @examples
-#' \donttest{
-#' # two rate ratios; silly example with female rectal / breast cancer
-#' ## mortality rates
-#' data("sire", package = "popEpi")
-#' data("sibr", package = "popEpi")
-#'
-#' BL <- list(per = 2000:2005)
-#'
-#' re <- lexpand(sire, birth = "bi_date", entry = "dg_date", exit = "ex_date",
-#' status = status == 1, breaks = BL, aggre = list(per))
-#' br <- lexpand(sibr, birth = "bi_date", entry = "dg_date", exit = "ex_date",
-#' status = status == 1, breaks = BL, aggre = list(per))
-#'
-#' r_re <- rate(re, obs = "from0to1", pyrs = "pyrs")
-#' r_br <- rate(br, obs = "from0to1", pyrs = "pyrs")
-#'
-#' rate_ratio(r_re, r_br, SE.method = TRUE)
-#' }
-#'
-#' # manually set rates (0.003 and 0.005) and SEs (0.001 and 0.002)
-#' # so that x = y = c('rate', 'SE')
-#' rate_ratio(x= c(0.003, 0.001), y= c(0.005, 0.002), SE.method = TRUE)
-#'
-#' # observed numbers (10 and 20) and person-years (30000 and 40000):
-#' rate_ratio(x = c(10, 30000), y = c(20, 40000), SE.method = FALSE)
-#'
-#' @seealso \code{\link{rate}}
-#'
-#' @family rate functions
-#'
-#' @return A vector length of three: rate_ratio, and lower and upper confidence intervals.
-#'
-#' @export rate_ratio
-#'
-#' @import data.table
-#' @import stats
-rate_ratio <- function(x, y, crude = FALSE, SE.method = TRUE) {
- if( inherits(x, 'rate') | inherits(y, 'rate') ) {
- if(!crude & (!'rate.adj' %in% names(x) | !'rate.adj' %in% names(y))) {
- crude <- TRUE
- message('Crude rates used')
- }
- }
-
- x <- prep.rate.input(x, crude = crude, SE = SE.method)
- y <- prep.rate.input(y, crude = crude, SE = SE.method)
-
- if(SE.method) {
- ratio <- x[[1]]/y[[1]]
-
- # delta method for variance
- v0 <- (1/x[[1]])^2*x[[2]]^2 + (1/y[[1]])^2*y[[2]]^2
-
-
- lo <- ratio - v0*1.96 #exp(log(ratio)-log(v0)*1.96)
- hi <- ratio + v0*1.96 #exp(log(ratio)+log(v0)*1.96)
- out <- round(data.frame(rate_ratio = ratio, lower = lo, upper = hi), 3)
- }
- else {
- # x and y vector of two:, pyrs
- pt <- list()
- out <- data.frame()
- j <- 1
- for(j in 1:length(x[[1]])) {
- pt[[j]] <- poisson.test(x = c(x[[1]][j], y[[1]][j]), T = c(x[[2]][j],y[[2]][j]))
- out <- rbind(out, round(data.frame(rate_ratio = pt[[j]]$estimate,
- lower = pt[[j]]$conf.int[1],
- upper = pt[[j]]$conf.int[2]),3) )
- }
- }
- if(any(out<0)) {
- warning('Negative estimate or confidence intervals. Tip: set SE.method to FALSE when using observations and person-years.')
- }
- return(out)
-}
-
-
-
-prep.rate.input <- function(z, crude, SE) {
- # this one modulates input to rate_ratio function
- if(is.vector(z) && length(z) == 2) {
- # z is obs and pyrs OR rate and SE
- return(list(z[1], z[2]))
- }
- else if(inherits(z,'rate')){
- if(!SE) { # obs and pyrs
- att <- attributes(z)
- setDT(z)
- a <- z[, get(att$rate.meta$obs)]
- b <- z[, get(att$rate.meta$pyrs)]
- }
- else {
- if(crude) {
- a <- z[,rate]
- b <- z[,SE.rate]
- }
- else {
- # z is a rate object
- a <- z[,rate.adj]
- b <- z[,SE.rate.adj]
- }
- }
- }
- else{
- stop('Input is not correct: its neighter a vector of two nor a rate object')
- }
- return(list(a,b))
-}
-
-
-
-
+
+
+#' @title Confidence intervals for the rate ratios
+#' @author Matti Rantanen
+#' @description Calculate rate ratio with confidence intervals for rate objects or observations and person-years.
+#'
+#' @details Calculate rate ratio of two age standardized rate objects (see \code{\link{rate}}).
+#' Multiple rates for each objects is supported if there are an equal number of rates.
+#' Another option is to set \code{x} and \code{y} as a vector of two.
+#' \enumerate{
+#' \item rate and its standard error, and set \code{SE.method = TRUE}.
+#' \item observations and person-year, and set \code{SE.method = FALSE}.
+#' }
+#' See examples.
+#'
+#'
+#' @param x a rate-object, vector of two; rate and standard error or observed and person-years.
+#' @param y a rate-object, vector of two; rate and standard error or observed and person-years.
+#' @param crude set TRUE to use crude rates; default is FALSE.
+#' @param SE.method default TRUE; if \code{x} and \code{y} are vectors of observed and
+#' person-years, this must be changed to FALSE.
+#'
+#' @examples
+#' \donttest{
+#' # two rate ratios; silly example with female rectal / breast cancer
+#' ## mortality rates
+#' data("sire", package = "popEpi")
+#' data("sibr", package = "popEpi")
+#'
+#' BL <- list(per = 2000:2005)
+#'
+#' re <- lexpand(sire, birth = "bi_date", entry = "dg_date", exit = "ex_date",
+#' status = status == 1, breaks = BL, aggre = list(per))
+#' br <- lexpand(sibr, birth = "bi_date", entry = "dg_date", exit = "ex_date",
+#' status = status == 1, breaks = BL, aggre = list(per))
+#'
+#' r_re <- rate(re, obs = "from0to1", pyrs = "pyrs")
+#' r_br <- rate(br, obs = "from0to1", pyrs = "pyrs")
+#'
+#' rate_ratio(r_re, r_br, SE.method = TRUE)
+#' }
+#'
+#' # manually set rates (0.003 and 0.005) and SEs (0.001 and 0.002)
+#' # so that x = y = c('rate', 'SE')
+#' rate_ratio(x= c(0.003, 0.001), y= c(0.005, 0.002), SE.method = TRUE)
+#'
+#' # observed numbers (10 and 20) and person-years (30000 and 40000):
+#' rate_ratio(x = c(10, 30000), y = c(20, 40000), SE.method = FALSE)
+#'
+#' @seealso \code{\link{rate}}
+#'
+#' @family rate functions
+#'
+#' @return A vector length of three: rate_ratio, and lower and upper confidence intervals.
+#'
+#' @export rate_ratio
+#'
+#' @import data.table
+#' @import stats
+rate_ratio <- function(x, y, crude = FALSE, SE.method = TRUE) {
+ if( inherits(x, 'rate') | inherits(y, 'rate') ) {
+ if(!crude & (!'rate.adj' %in% names(x) | !'rate.adj' %in% names(y))) {
+ crude <- TRUE
+ message('Crude rates used')
+ }
+ }
+
+ x <- prep.rate.input(x, crude = crude, SE = SE.method)
+ y <- prep.rate.input(y, crude = crude, SE = SE.method)
+
+ if(SE.method) {
+ ratio <- x[[1]]/y[[1]]
+
+ # delta method for variance
+ v0 <- (1/x[[1]])^2*x[[2]]^2 + (1/y[[1]])^2*y[[2]]^2
+
+
+ lo <- ratio - v0*1.96 #exp(log(ratio)-log(v0)*1.96)
+ hi <- ratio + v0*1.96 #exp(log(ratio)+log(v0)*1.96)
+ out <- round(data.frame(rate_ratio = ratio, lower = lo, upper = hi), 3)
+ }
+ else {
+ # x and y vector of two:, pyrs
+ pt <- list()
+ out <- data.frame()
+ j <- 1
+ for(j in 1:length(x[[1]])) {
+ pt[[j]] <- poisson.test(x = c(x[[1]][j], y[[1]][j]), T = c(x[[2]][j],y[[2]][j]))
+ out <- rbind(out, round(data.frame(rate_ratio = pt[[j]]$estimate,
+ lower = pt[[j]]$conf.int[1],
+ upper = pt[[j]]$conf.int[2]),3) )
+ }
+ }
+ if(any(out<0)) {
+ warning('Negative estimate or confidence intervals. Tip: set SE.method to FALSE when using observations and person-years.')
+ }
+ return(out)
+}
+
+
+
+prep.rate.input <- function(z, crude, SE) {
+ # this one modulates input to rate_ratio function
+ if(is.vector(z) && length(z) == 2) {
+ # z is obs and pyrs OR rate and SE
+ return(list(z[1], z[2]))
+ }
+ else if(inherits(z,'rate')){
+ if(!SE) { # obs and pyrs
+ att <- attributes(z)
+ setDT(z)
+ a <- z[, get(att$rate.meta$obs)]
+ b <- z[, get(att$rate.meta$pyrs)]
+ }
+ else {
+ if(crude) {
+ a <- z[,rate]
+ b <- z[,SE.rate]
+ }
+ else {
+ # z is a rate object
+ a <- z[,rate.adj]
+ b <- z[,SE.rate.adj]
+ }
+ }
+ }
+ else{
+ stop('Input is not correct: its neighter a vector of two nor a rate object')
+ }
+ return(list(a,b))
+}
+
+
+
+
diff --git a/R/lexpand.R b/R/lexpand.R
index 355e41d..6df7be7 100644
--- a/R/lexpand.R
+++ b/R/lexpand.R
@@ -1,941 +1,941 @@
-
-#' @title Split case-level observations
-#' @author Joonas Miettinen
-#' @description Given subject-level data, data is split
-#' by calendar time (\code{per}), \code{age}, and follow-up
-#' time (\code{fot}, from 0 to the end of follow-up)
-#' into subject-time-interval rows according to
-#' given \code{breaks} and additionally processed if requested.
-#' @param data dataset of e.g. cancer cases as rows
-#' @param birth birth time in date format
-#' or fractional years; string, symbol or expression
-#' @param entry entry time in date format
-#' or fractional years; string, symbol or expression
-#' @param exit exit from follow-up time in date
-#' format or fractional years; string, symbol or expression
-#' @param event advanced: time of possible event differing from \code{exit};
-#' typically only used in certain SIR/SMR calculations - see Details;
-#' string, symbol or expression
-#' @param status variable indicating type of event at \code{exit} or \code{event};
-#' e.g. \code{status = status != 0}; expression or quoted variable name
-#' @param entry.status input in the same way as \code{status};
-#' status at \code{entry}; see Details
-#' @param id optional; an id variable; e.g. \code{id = my_id};
-#' string, symbol or expression
-#' @param overlapping advanced, logical; if \code{FALSE} AND if \code{data} contains
-#' multiple rows per subject,
-#' ensures that the timelines of \code{id}-specific rows do not overlap;
-#' this ensures e.g. that person-years are only computed once per subject
-#' in a multi-state paradigm
-#' @param aggre e.g. \code{aggre = list(sex, fot)};
-#' a list of unquoted variables and/or expressions thereof,
-#' which are interpreted as factors; data events and person-years will
-#' be aggregated by the unique combinations of these; see Details
-#' @param aggre.type one of \code{c("unique","cartesian")};
-#' can be abbreviated; see Details
-#' @param breaks a named list of vectors of time breaks;
-#' e.g. \code{breaks = list(fot=0:5, age=c(0,45,65,Inf))}; see Details
-#' @param drop logical; if \code{TRUE}, drops all resulting rows
-#' after splitting that reside outside
-#' the time window as defined by the given breaks (all time scales)
-#' @param pophaz a dataset of population hazards to merge
-#' with split data; see Details
-#' @param pp logical; if \code{TRUE}, computes Pohar-Perme weights using
-#' \code{pophaz}; adds variable with reserved name \code{pp};
-#' see Details for computing method
-#' @param subset a logical vector or any logical condition; data is subsetted
-#' before splitting accordingly
-#' @param merge logical; if \code{TRUE}, retains all
-#' original variables from the data
-#' @param verbose logical; if \code{TRUE}, the function is chatty and
-#' returns some messages along the way
-#' @param ... e.g. \code{fot = 0:5}; instead of specifying a \code{breaks} list,
-#' correctly named breaks vectors can be given
-#' for \code{fot}, \code{age}, and \code{per}; these override any breaks in the
-#' \code{breaks} list; see Examples
-#'
-#'
-#'
-#' @details
-#' \strong{Basics}
-#'
-#' \code{\link{lexpand}} splits a given data set (with e.g. cancer diagnoses
-#' as rows) to subintervals of time over
-#' calendar time, age, and follow-up time with given time breaks
-#' using \code{\link{splitMulti}}.
-#'
-#' The dataset must contain appropriate
-#' \code{Date} / \code{IDate} / \code{date} format or
-#' other numeric variables that can be used
-#' as the time variables.
-#'
-#' You may take a look at a simulated cohort
-#' \code{\link{sire}} as an example of the
-#' minimum required information for processing data with \code{lexpand}.
-#'
-#' Many arguments can be supplied as a character string naming the appropriate
-#' variable (e.g. \code{"sex"}), as a symbol (e.g. \code{sex}) or as an expression
-#' (e.g. \code{factor(sex, 0:1, c("m", "f"))}) for flexibility.
-#'
-#' \strong{Breaks}
-#'
-#' You should define all breaks as left inclusive and right exclusive
-#' time points (e.g.\code{[a,b)} )
-#' for 1-3 time dimensions so that the last member of a breaks vector
-#' is a meaningful "final upper limit",
-#' e.g. \code{per = c(2002,2007,2012)}
-#' to create a last subinterval of the form \code{[2007,2012)}.
-#'
-#' All breaks are explicit, i.e. if \code{drop = TRUE},
-#' any data beyond the outermost breaks points are dropped.
-#' If one wants to have unspecified upper / lower limits on one time scale,
-#' use \code{Inf}: e.g. \code{breaks = list(fot = 0:5, age = c(0,45,Inf))}.
-#' Breaks for \code{per} can also be given in
-#' \code{Date}/\code{IDate}/\code{date} format, whereupon
-#' they are converted to fractional years before used in splitting.
-#'
-#' The \code{age} time scale can additionally
-#' be automatically split into common age grouping schemes
-#' by naming the scheme with an appropriate character string:
-#'
-#' \itemize{
-#' \item \code{"18of5"}: age groups 0-4, 5-9, 10-14, ..., 75-79, 80-84, 85+
-#' \item \code{"20of5"}: age groups 0-4, 5-9, 10-14, ..., 85-89, 90-94, 95+
-#' \item \code{"101of1"}: age groups 0, 1, 2, ..., 98, 99, 100+
-#' }
-#'
-#' \strong{Time variables}
-#'
-#' If any of the given time variables
-#' (\code{birth}, \code{entry}, \code{exit}, \code{event})
-#' is in any kind of date format, they are first coerced to
-#' fractional years before splitting
-#' using \code{\link{get.yrs}} (with \code{year.length = "actual"}).
-#'
-#' Sometimes in e.g. SIR/SMR calculation one may want the event time to differ
-#' from the time of exit from follow-up, if the subject is still considered
-#' to be at risk of the event. If \code{event} is specified, the transition to
-#' \code{status} is moved to \code{event} from \code{exit}
-#' using \code{\link[Epi]{cutLexis}}. See Examples.
-#'
-#' \strong{The status variable}
-#'
-#' The statuses in the expanded output (\code{lex.Cst} and \code{lex.Xst})
-#' are determined by using either only \code{status} or both \code{status}
-#' and \code{entry.status}. If \code{entry.status = NULL}, the status at entry
-#' is guessed according to the type of variable supplied via \code{status}:
-#' For numeric variables it will be zero, for factors the first level
-#' (\code{levels(status)[1]}) and otherwise the first unique value in alphabetical
-#' order (\code{sort(unique(status))[1]}).
-#'
-#' Using numeric or factor status
-#' variables is strongly recommended. Logical expressions are also allowed
-#' (e.g. \code{status = my_status != 0L}) and are converted to integer internally.
-#'
-#' \strong{Merging population hazard information}
-#'
-#' To enable computing relative/net survivals with \code{\link{survtab}}
-#' and \code{\link{relpois}}, \code{lexpand} merges an appropriate
-#' population hazard data (\code{pophaz}) to the expanded data
-#' before dropping rows outside the specified
-#' time window (if \code{drop = TRUE}). \code{pophaz} must, for this reason,
-#' contain at a minimum the variables named
-#' \code{agegroup}, \code{year}, and \code{haz}. \code{pophaz} may contain additional variables to specify
-#' different population hazard levels in different strata; e.g. \code{popmort} includes \code{sex}.
-#' All the strata-defining variables must be present in the supplied \code{data}. \code{lexpand} will
-#' automatically detect variables with common names in the two datasets and merge using them.
-#'
-#' Currently \code{year} must be an integer variable specifying the appropriate year. \code{agegroup}
-#' must currently also specify one-year age groups, e.g. \code{popmort} specifies 101 age groups
-#' of length 1 year. In both
-#' \code{year} and \code{agegroup} variables the values are interpreted as the lower bounds of intervals
-#' (and passed on to a \code{cut} call). The mandatory variable \code{haz}
-#' must specify the appropriate average rate at the person-year level;
-#' e.g. \code{haz = -log(survProb)} where \code{survProb} is a one-year conditional
-#' survival probability will be the correct hazard specification.
-#'
-#' The corresponding \code{pophaz} population hazard value is merged by using the mid points
-#' of the records after splitting as reference values. E.g. if \code{age=89.9} at the start
-#' of a 1-year interval, then the reference age value is \code{90.4} for merging.
-#' This way we get a "typical" population hazard level for each record.
-#'
-#' \strong{Computing Pohar-Perme weights}
-#'
-#' If \code{pp = TRUE}, Pohar-Perme weights
-#' (the inverse of cumulative population survival) are computed. This will
-#' create the new \code{pp} variable in the expanded data. \code{pp} is a
-#' reserved name and \code{lexpand} throws exception if a variable with that name
-#' exists in \code{data}.
-#'
-#' When a survival interval contains one or several rows per subject
-#' (e.g. due to splitting by the \code{per} scale),
-#' \code{pp} is cumulated from the beginning of the first record in a survival
-#' interval for each subject to the mid-point of the remaining time within that
-#' survival interval, and that value is given for every other record
-#' that a given person has within the same survival interval.
-#'
-#' E.g. with 5 rows of duration \code{1/5} within a survival interval
-#' \code{[0,1)]}, \code{pp} is determined for all records by a cumulative
-#' population survival from \code{0} to \code{0.5}. The existing accuracy is used,
-#' so that the weight is cumulated first up to the end of the second row
-#' and then over the remaining distance to the mid-point (first to 0.4, then to
-#' 0.5). This ensures that more accurately merged population hazards are fully
-#' used.
-#'
-#' \strong{Event not at end of follow-up & overlapping time lines}
-#'
-#' \code{event} may be used if the event indicated by \code{status} should
-#' occur at a time differing from \code{exit}. If \code{event} is defined,
-#' \code{cutLexis} is used on the data set after coercing it to the \code{Lexis}
-#' format and before splitting. Note that some values of \code{event} are allowed
-#' to be \code{NA} as with \code{cutLexis} to accommodate observations
-#' without an event occurring.
-#'
-#' Additionally, setting \code{overlapping = FALSE} ensures that (irrespective
-#' of using \code{event}) the each subject defined by \code{id} only has one
-#' continuous time line instead of possibly overlapping time lines if
-#' there are multiple rows in \code{data} by \code{id}.
-#'
-#'
-#' \strong{Aggregating}
-#'
-#' Certain analyses such as SIR/SMR calculations require tables of events and
-#' person-years by the unique combinations (interactions) of several variables.
-#' For this, \code{aggre} can be specified as a list of such variables
-#' (preferably \code{factor} variables but not mandatory)
-#' and any arbitrary functions of the
-#' variables at one's disposal. E.g.
-#'
-#' \code{aggre = list(sex, agegr = cut(dg_age, 0:100))}
-#'
-#' would tabulate events and person-years by sex and an ad-hoc age group
-#' variable. Every ad-hoc-created variable should be named.
-#'
-#' \code{fot}, \code{per}, and \code{age} are special reserved variables which,
-#' when present in the \code{aggre} list, are output as categories of the
-#' corresponding time scale variables by using
-#' e.g.
-#'
-#' \code{cut(fot, breaks$fot, right=FALSE)}.
-#'
-#' This only works if
-#' the corresponding breaks are defined in \code{breaks} or via "\code{...}".
-#' E.g.
-#'
-#' \code{aggre = list(sex, fot.int = fot)} with
-#'
-#' \code{breaks = list(fot=0:5)}.
-#'
-#' The output variable \code{fot.int} in the above example will have
-#' the lower limits of the appropriate intervals as values.
-#'
-#' \code{aggre} as a named list will output numbers of events and person-years
-#' with the given new names as categorizing variable names, e.g.
-#' \code{aggre = list(follow_up = fot, gender = sex, agegroup = age)}.
-#'
-#' The output table has person-years (\code{pyrs}) and event counts
-#' (e.g. \code{from0to1}) as columns. Event counts are the numbers of transitions
-#' (\code{lex.Cst != lex.Xst}) or the \code{lex.Xst} value at a subject's
-#' last record (subject possibly defined by \code{id}).
-#'
-#' If \code{aggre.type = "unique"} (alias \code{"non-empty"}),
-#' the above results are computed for existing
-#' combinations of expressions given in \code{aggre}, but also for non-existing
-#' combinations if \code{aggre.type = "cartesian"} (alias \code{"full"}). E.g. if a
-#' factor variable has levels \code{"a", "b", "c"} but the data is limited
-#' to only have levels \code{"a", "b"} present
-#' (more than zero rows have these level values), the former setting only
-#' computes results for \code{"a", "b"}, and the latter also for \code{"c"}
-#' and any combination with other variables or expression given in \code{aggre}.
-#' In essence, \code{"cartesian"} forces also combinations of variables used
-#' in \code{aggre} that have no match in data to be shown in the result.
-#'
-#' If \code{aggre} is not \code{NULL} and \code{pophaz} has been supplied,
-#' \code{lexpand} also aggregates the expected counts of events, which
-#' appears in the output data by the reserved name \code{d.exp}. Additionally,
-#' having \code{pp = TRUE} causes \code{lexpand} to also compute various
-#' Pohar-Perme weighted figures necessary for computing Pohar-Perme net survivals
-#' with \code{\link{survtab_ag}}. This can be slow, so consider what is really
-#' needed. The Pohar-Perme weighted figures have the suffix \code{.pp}.
-#'
-#' @return
-#' If \code{aggre = NULL}, returns
-#' a \code{data.table} or \code{data.frame}
-#' (depending on \code{options("popEpi.datatable")}; see \code{?popEpi})
-#' object expanded to accommodate split observations with time scales as
-#' fractional years and \code{pophaz} merged in if given. Population
-#' hazard levels in new variable \code{pop.haz}, and Pohar-Perme
-#' weights as new variable \code{pp} if requested.
-#'
-#' If \code{aggre} is defined, returns a long-format
-#' \code{data.table}/\code{data.frame} with the variable \code{pyrs} (person-years),
-#' and variables for the counts of transitions in state or state at end of
-#' follow-up formatted \code{fromXtoY}, where \code{X} and \code{Y} are
-#' the states transitioned from and to, respectively. The data may also have
-#' the columns \code{d.exp} for expected numbers of cases and various
-#' Pohar-Perme weighted figures as identified by the suffix \code{.pp}; see
-#' Details.
-#'
-#'
-#' @examples
-#' \donttest{
-#' ## prepare data for e.g. 5-year cohort survival calculation
-#' x <- lexpand(sire, breaks=list(fot=seq(0, 5, by = 1/12)),
-#' birth = bi_date, entry = dg_date, exit = ex_date,
-#' status = status != 0, pophaz=popmort)
-#'
-#' ## prepare data for e.g. 5-year "period analysis" for 2008-2012
-#' BL <- list(fot = seq(0, 5, by = 1/12), per = c("2008-01-01", "2013-01-01"))
-#' x <- lexpand(sire, breaks = BL,
-#' birth = bi_date, entry = dg_date, exit = ex_date,
-#' pophaz=popmort, status = status != 0)
-#'
-#' ## aggregating
-#' BL <- list(fot = 0:5, per = c("2003-01-01","2008-01-01", "2013-01-01"))
-#' ag <- lexpand(sire, breaks = BL, status = status != 0,
-#' birth = bi_date, entry = dg_date, exit = ex_date,
-#' aggre=list(sex, period = per, surv.int = fot))
-#'
-#' ## aggregating even more
-#' ag <- lexpand(sire, breaks = BL, status = status != 0,
-#' birth = bi_date, entry = dg_date, exit = ex_date,
-#' aggre=list(sex, period = per, surv.int = fot),
-#' pophaz = popmort, pp = TRUE)
-#'
-#' ## using "..."
-#' x <- lexpand(sire, fot=0:5, status = status != 0,
-#' birth = bi_date, entry = dg_date, exit = ex_date,
-#' pophaz=popmort)
-#'
-#' x <- lexpand(sire, fot=0:5, status = status != 0,
-#' birth = bi_date, entry = dg_date, exit = ex_date,
-#' aggre=list(sex, surv.int = fot))
-#'
-#' ## using the "event" argument: it just places the transition to given "status"
-#' ## at the "event" time instead of at the end, if possible using cutLexis
-#' x <- lexpand(sire, status = status, event = dg_date,
-#' birth = bi_date, entry = dg_date, exit = ex_date,)
-#'
-#' ## aggregating with custom "event" time
-#' ## (the transition to status is moved to the "event" time)
-#' x <- lexpand(sire, status = status, event = dg_date,
-#' birth = bi_date, entry = dg_date, exit = ex_date,
-#' per = 1970:2014, age = c(0:100,Inf),
-#' aggre = list(sex, year = per, agegroup = age))
-#'
-#' }
-#'
-#' @import data.table
-#' @import Epi
-#' @family splitting functions
-#' @family aggregation functions
-#' @seealso
-#' \code{\link[Epi]{Lexis}}, \code{\link{popmort}}
-#' @export
-lexpand <- function(data,
- birth=NULL, entry=NULL, exit=NULL, event=NULL,
- status = status != 0,
- entry.status = NULL,
- breaks = list(fot=c(0,Inf)),
- id = NULL,
- overlapping = TRUE,
- aggre = NULL,
- aggre.type = c("unique", "cartesian"),
- drop=TRUE,
- pophaz = NULL, pp = TRUE,
- subset = NULL,
- merge=TRUE, verbose = FALSE,
- ...) {
- start_time <- proc.time()
-
- TF <- environment()
- PF <- parent.frame(1L)
-
- ## data checks
- if ( missing(data) || nrow(data) == 0) stop("no data found")
-
- if (!is.data.frame(data)) stop("data must be a data.frame or data.table")
-
- ## to instate global variables to appease R CMD CHECK
- .EACHI <- lex.status <- lexpand.id <- lex.exit <- lex.birth <-
- lex.entry <- lex.event <- temp.id <- cd <- fot <- age <- per <-
- lex.id <- lex.multi <- pop.haz <- lex.Cst <- lex.Xst <- lex.dur <- NULL
-
-
- ## test conflicting variable names -------------------------------------------
- added_vars <- c("fot", "per", "age", "lex.id", "lex.dur", "lex.Xst", "lex.Cst")
- if (!is.null(pophaz)) added_vars <- if (pp) c(added_vars, "pp", "pop.haz") else c(added_vars, "pop.haz")
- conflicted_vars <- intersect(added_vars, names(data))
-
- if (merge && length(conflicted_vars) > 0) {
- conflicted_vars <- paste0("'", conflicted_vars, "'", collapse = ", ")
- warning("'data' already had variable(s) named ", conflicted_vars, " which lexpand will create, and you have merge = TRUE; this may result in unexpected problems. Rename the variable(s)?")
- }
- rm(added_vars, conflicted_vars)
-
- ## test aggre type -----------------------------------------------------------
- aggre.type <- match.arg(aggre.type[1L], c("cartesian", "non-empty", "unique", "cross-product", "full"))
- if (aggre.type == "cross-product") {
- aggre.type <- "cartesian"
- warning("aggre.type value 'cross-product' deprecated and renamed to 'cartesian'; please use that in the future")
- }
-
- ## subsetting-----------------------------------------------------------------
- ## no copy taken of data!
- subset <- substitute(subset)
- subset <- evalLogicalSubset(data, subset)
-
- ## prepping time variables ---------------------------------------------------
- l <- substitute(list(birth, entry, exit, event, status, entry.status, id))
- rm(birth, entry, exit, event, status, entry.status, id)
-
- lc <- unlist(lapply(l, deparse))
- lc <- lc[-1] ## first always "list"
-
- wh <- which(lc != "NULL")
- lex_vars <- c("lex.birth","lex.entry","lex.exit","lex.event", "lex.status", "lex.entry.status", "lexpand.id")[wh]
- if (any(!c("lex.birth", "lex.entry", "lex.exit", "lex.status") %in% lex_vars)) stop("birth, entry, exit and status are mandatory")
-
- l <- eval(l, envir = data[subset, ], enclos = PF)
- l[-wh] <- NULL
-
-
- ## vars can be given as character strings of variable names
- isChar <- sapply(l, is.character, simplify = TRUE)
- if (any(isChar)) {
- isShort <- sapply(l, function(x) {length(x) == 1L}, simplify = TRUE)
- whOneChar <- which(isShort & isChar)
-
- whBadChar <- NULL
- if (length(whOneChar) > 0) {
- testBadChar <- unlist(l[whOneChar])
- whBadChar <- whOneChar[!testBadChar %in% names(data)]
- }
-
- if (length(whBadChar) > 0) {
-
- badChar <- l[whBadChar]
- badChar <- paste0(badChar[1:min(length(badChar), 5L)], collapse = ", ")
- stop("Variables given as a character of length one are interpreted as variable names in data,
- but some given characters were not found in data;
- check names or input as factor/Date;
- first five bad names: ", badChar)
- }
-
- l[whOneChar] <- lapply(l[whOneChar], function(x) {data[subset, ][[x]]})
- }
-
-
- l <- as.data.table(l)
- setnames(l, names(l), lex_vars)
-
-
- rm(lex_vars)
- if (!all(c("lex.birth","lex.entry","lex.exit","lex.status") %in% names(l))) {
- stop("birth, entry, exit and status are mandatory, but at least one was misspecified/NULL")
- }
-
- if (is.logical(l$lex.status)) l[, lex.status := as.integer(lex.status)]
- if (is.null(l$lexpand.id)) l[, lexpand.id := 1:.N]
-
- ## checks for merging style --------------------------------------------------
- if (!is.null(pophaz)) {
- all_names_present(pophaz, c("agegroup","year","haz"))
- othMergeVars <- setdiff(names(pophaz), c("agegroup","year","haz"))
- badOthMergeVars <- setdiff(othMergeVars, names(data))
- if (length(badOthMergeVars) > 0) {
- badOthMergeVars <- paste0("'", badOthMergeVars, "'", collapse = ", ")
- stop("Following variables exist in pophaz but do not exist in data: ", badOthMergeVars, ". Make sure data and pophaz contain variables with the same names that you intend to merge by.")
- }
- }
-
- if (is.null(pophaz)) {
- comp_pp <- FALSE
- } else {
- comp_pp <- TRUE
- }
-
- ## internally we have "delta" and "actual" methods,
- ## the latter being experimental and not visible in the documentation.
- ## "delta" is always used if pp = TRUE.
- ## it is possible to choose pp = "actual" as well, though, if you know
- ## about it.
- comp_pp <- FALSE
- if (is.logical(pp) && pp) pp <- "delta"
-
- if (!is.null(pp) && is.character(pp)) {
- pp <- match.arg(pp, c("delta", "actual"))
- comp_pp <- TRUE
- }
- if (comp_pp && "pp" %in% names(data)) stop("variable named 'pp' in data; this is a reserved name for pohar-perme weights, please rename / remove the variable in data")
-
- ## ensure given breaks make any sense ----------------------------------------
-
- bl <- list(...)
- lna <- names(bl)
- bad_lna <- setdiff(lna, c("fot","per","age"))
- if (length(bad_lna) > 0) {
- bad_lna <- paste0("'", bad_lna, "'", collapse = ", ")
- stop("only arguments named 'fot', 'per' or 'age' currently allowed to be passed via '...'; did you mistype an argument? bad args: ", bad_lna)
- }
- lna <- intersect(names(bl), c("fot","per","age"))
- if (length(lna) > 0) {
- bl <- bl[lna]
- if (!is.null(breaks)) breaks[lna] <- NULL
- breaks <- c(breaks, bl)
- }
- rm(bl, lna)
-
- brna <- names(breaks)
- if (length(brna) != length(breaks)) {
- stop("all elements in breaks list must be named, e.g. list(fot = 0:5, age=c(0,45,65,Inf))")
- }
-
- brna <- intersect(brna, c("fot","per","age"))
- if (length(brna) == 0) {
- breaks$fot <- c(0,Inf)
- }
-
- if ("age" %in% brna && is.character(breaks$age)) {
- schemeNames <- c("18of5", "20of5", "101of1")
- if (!breaks$age %in% schemeNames) stop("You supplied '", breaks$age, "' as breaks for the age scale, but allowed character strings are: ", paste0("'", schemeNames, "'", collapse = ","))
- brSchemes <- list(c(seq(0, 85, 5)), c(seq(0, 95, 5), Inf), c(0:100, Inf))
- names(brSchemes) <- paste0("age_", schemeNames)
- breaks$age <- brSchemes[paste0("age_",breaks$age)]
- }
-
-
- if (any(sapply(breaks, length) == 1L)) {
- stop("any given non-null vector of breaks must have more than one break!")
- }
-
- # convert to fractional years ------------------------------------------------
-
- char2date <- function(obj) {
- if (is.character(obj) || inherits(obj, "date")) {
- return(as.IDate(obj))
- } else {
- return(obj)
- }
- }
-
- date2yrs <- function(obj) {
- if (is.Date(obj) || inherits(obj, "date")) {
- get.yrs(obj, year.length = "actual")
- } else {
- obj
- }
- }
-
- breaks <- lapply(breaks, char2date)
- breaks <- lapply(breaks, date2yrs)
-
- time_vars <- intersect(names(l), c("lex.birth", "lex.entry", "lex.exit","lex.event"))
- l[, (time_vars) := lapply(.SD, date2yrs) , .SDcols = time_vars]
-
- if (verbose) cat("given birth, entry, exit, status etc. variables after coercion to numeric \n")
- if (verbose) print(l)
-
- # check data consistency for overlapping = FALSE -----------------------------
- ## not allowed: for any one unique subject to be true for
- ## multiple rows (if overlapping = TRUE):
- ## * same event values
- ## * same entry values
- if (!overlapping) {
- if ("lex.event" %in% names(l)) {
- if (all(is.na(l$lex.event))) stop("ALL 'event' values are NA; if this is as intended, please use event = NULL instead")
-
- if (any(duplicated(l, by = c("lexpand.id", "lex.event")))) {
- stop("subject(s) defined by lex.id had several rows where 'event' time had the same value, which is not supported with overlapping = FALSE; perhaps separate them by one day?")
- }
- if (any(l[!is.na(lex.event), lex.entry == lex.event])) {
- stop("some rows have simultaneous 'entry' and 'event', which is not supported with overlapping = FALSE; perhaps separate them by one day?")
- }
- } else if (any(duplicated(l, by = c("lexpand.id", "lex.exit")))) {
- stop("subject(s) defined by lex.id had several rows where 'exit' time had the same value, which is not supported without 'event' defined; use 'event' or perhaps separate them by one day?")
- }
-
-
- }
-
-
- # dropping unuseful records --------------------------------------------------
- test_times <- function(condition, msg, old_subset=l_subset, DT=l) {
-
- condition <- substitute(condition)
- condition <- eval(condition, envir = DT, enclos = parent.frame(1L))
-
- new_subset <- old_subset & !(condition & !is.na(condition))
- old_n <- sum(old_subset)
- new_n <- sum(new_subset)
-
- if (new_n == 0L) {
- stop("dropping rows where ", msg, " resulted in zero rows left. likely problem: misdefined time variables")
- }
-
- if (new_n < old_n) {
- message(paste0("dropped ", old_n-new_n, " rows where ", msg))
- }
- return(new_subset)
- }
-
- l_subset <- rep(TRUE, nrow(l))
-
- l_subset <- test_times(is.na(lex.birth), "birth values are missing")
- l_subset <- test_times(is.na(lex.entry), "entry values are missing")
- l_subset <- test_times(is.na(lex.exit), "exit values are missing")
-
- if (!is.null(breaks$per)) {
- l_subset <- test_times(lex.exit < min(breaks$per), "subjects left follow-up before earliest per breaks value")
- }
- if (!is.null(breaks$age)) {
- l_subset <- test_times(lex.exit - lex.birth < min(breaks$age), "subjects left follow-up before lowest age breaks value")
- }
- if (!is.null(breaks$fot)) {
- l_subset <- test_times(lex.exit - lex.entry < min(breaks$fot), "subjects left follow-up before lowest fot breaks value")
- }
- l_subset <- test_times(lex.birth >= lex.exit, "birth >= exit")
- l_subset <- test_times(lex.entry == lex.exit, "entry == exit")
- l_subset <- test_times(lex.entry > lex.exit, "entry > exit")
- l_subset <- test_times(lex.birth > lex.entry, "birth > entry")
- if (!is.null(l$lex.event)) {
- l_subset <- test_times(lex.event > lex.exit, "event > exit")
- l_subset <- test_times(lex.event < lex.entry, "event < entry")
- }
- l <- l[l_subset]
-
- if (verbose) cat("Time taken by checks, prepping and test: ", timetaken(start_time), "\n")
-
- # Lexis coercion -------------------------------------------------------------
-
- ## status definitions
- setnames(l, "lex.status", "lex.Xst")
- if ("lex.entry.status" %in% names(l)) {
- setnames(l, "lex.entry.status", "lex.Cst")
- } else {
- if (is.factor(l$lex.Xst)) {
- l[, lex.Cst := factor(levels(lex.Xst)[1L], levels=levels(lex.Xst))]
- } else if (is.double(l$lex.Xst)) {
- l[, lex.Cst := 0]
- } else if (is.integer(l$lex.Xst)) {
- l[, lex.Cst := 0L]
- } else {
- l[, lex.Cst := sort(unique(lex.Xst))[1L]]
- }
-
- }
-
- # ensure common labels for factors etc.
- harmonizeStatuses(x = l, C = "lex.Cst", X = "lex.Xst")
-
- ## time scales and duration
- l[, lex.dur := lex.exit - lex.entry]
- l[, fot := 0]
- setnames(l, "lex.entry", "per")
- l[, age := per-lex.birth]
- setnames(l, "lexpand.id", "lex.id")
-
- ## for merging data with l later
- if (merge) {
- idt <- data.table(temp.id = 1:nrow(l))
- l[, temp.id := 1:.N]
- }
-
- ## crop time scale values to obey breaks limits and drop if necessary
- ## NOTE: goes wrong if need to compute pp weights!
- # if (drop && !pp) {
- # intelliCrop(x = l, breaks = breaks, allScales = c("fot", "per", "age"), cropStatuses = TRUE)
- # l <- intelliDrop(x = l, breaks = breaks, dropNegDur = TRUE)
- # }
-
-
- setcolsnull(l, colorder=TRUE, soft=TRUE,
- keep = c("lex.id","fot","per","age",
- "lex.dur", "lex.Cst", "lex.Xst", "lex.event", "temp.id"))
- setattr(l, "class", c("Lexis", "data.table", "data.frame"))
- setattr(l, "time.scales", c("fot","per","age"))
- setattr(l, "time.since", c("","",""))
-
- if (verbose) cat("data just after Lexis coercion: \n")
- if (verbose) print(l)
-
- # event not at exit time -----------------------------------------------------
-
- if ("lex.event" %in% names(l)) {
-
- if (!overlapping) {
-
- ## using lex.event time, ensure coherence of lex.Cst & lex.Xst
- ## before cutLexis()
- tmpFE <- makeTempVarName(l, pre = "fot_end_")
- l[, (tmpFE) := fot + lex.dur]
- setkeyv(l, c("lex.id", "lex.event", tmpFE))
- tmpLX <- makeTempVarName(l, pre = "lag_lex.Xst_")
- l[, (tmpLX) := shift(lex.Xst, n = 1, type = "lag"), by = lex.id]
- l[!is.na(get(tmpLX)), lex.Cst := get(tmpLX)]
- l[, c(tmpFE, tmpLX) := NULL]
- rm(tmpFE, tmpLX)
-
- }
-
- if (verbose) cutt <- proc.time()
- setDF(l)
- setattr(l, "class", c("Lexis", "data.frame"))
- l <- Epi::cutLexis(l, cut = l$lex.event, timescale = "per", new.state = l$lex.Xst, precursor.states = unique(l$lex.Cst))
- setDT(l)
- setattr(l, "class", c("Lexis", "data.table", "data.frame"))
- if (verbose) cat("Time taken by cutLexis when defining event time points: ", timetaken(cutt), "\n")
-
- if (verbose) cat("Data just after using cutLexis: \n")
- if (verbose) print(l[])
-
- }
-
-
- # overlapping timelines? -----------------------------------------------------
-
- if (!overlapping && any(duplicated(l$lex.id))) {
- tmpFE <- makeTempVarName(l, pre = "fot_end_")
- l[, (tmpFE) := fot + lex.dur]
- ## don't keep duplicated rows:
- ## same end points imply fully overlapping time lines
- ## e.g.
- ## --->
- ## ->
- ## -->
- ## results in
- ## ->
- ## --->
- ## we only keep the longest time line with a unique end point.
-
- # setkeyv(l, c("lex.id", tmpFE, "fot"))
- tmpLE <- intersect(names(l), "lex.event")
- LEval <- if (length(tmpLE) == 0) NULL else -1
-
- setorderv(l, c("lex.id", tmpFE, tmpLE, "fot"), c(1,1,LEval,1))
- l <- unique(l, by = c("lex.id", tmpFE))
-
- ## end points are kept but starting points are "rolled"
- ## from first to last row by lex.id to ensure non-overlappingness; e.g.
- ## ->
- ## --->
- ## results in
- ## ->
- ## ->
- # setkeyv(l, c("lex.id", tmpFE))
- # setorderv(l, c("lex.id", tmpLE, tmpFE), c(1, LEval, 1))
- setkeyv(l, c("lex.id", tmpLE, tmpFE))
-
- if (verbose) cat("data just before fixing overlapping time lines \n")
- if (verbose) print(l)
- l[, lex.dur := get(tmpFE) - c(min(fot), get(tmpFE)[-.N]), by = lex.id]
- l[, fot := get(tmpFE) - lex.dur]
- cumDur <- l[, list(age = min(age), per = min(per), cd = c(0, cumsum(lex.dur)[-.N])), by = lex.id]
- cumDur[, age := age+cd]
- cumDur[, per := per+cd]
- l[, age := cumDur$age]
- l[, per := cumDur$per]
- l[, (tmpFE) := NULL]; rm(cumDur)
-
-
- ## if event used, first row up to event, second row from first event to etc...
- }
-
- setcolsnull(l, "lex.event", soft = TRUE) ## note: lex.event needed in overlapping procedures
-
- if (verbose) cat("time and status variables before splitting: \n")
- if (verbose) print(l)
- if ("id" %in% ls()) rm("id")
-
-
- # splitting ------------------------------------------------------------------
-
- ## determine whether to drop data only after splitting and merging
- drop_after <- FALSE
- if (drop == TRUE && comp_pp) {
- drop <- FALSE
- drop_after <- TRUE
- }
-
- forceLexisDT(l, breaks = list(fot = NULL, per = NULL, age = NULL),
- allScales = c("fot", "per", "age"))
- if (verbose) splittime <- proc.time()
- l <- splitMulti(l, breaks = breaks,
- drop = drop, verbose=FALSE, merge = TRUE)
- setDT(l)
- setkey(l, lex.id, fot)
- l[, lex.multi := 1:.N, by = lex.id]
- if (verbose) cat("Time taken by splitting:", timetaken(splittime), "\n")
-
- # merging other variables from data ------------------------------------------
-
- if (merge) {
- setkey(l, temp.id)
-
- temp <- data.table(idt, data[subset & !is.na(subset), ][l_subset, ])
- setkey(temp, temp.id)
-
- l <- temp[l]
-
- rm(temp, idt)
- setcolsnull(l, "temp.id")
-
- lex_vars <- c("lex.id","lex.multi","fot","per","age", "lex.dur", "lex.Cst", "lex.Xst")
- setcolorder(l, c(lex_vars, setdiff(names(l), lex_vars)))
- }
- rm(data, subset, l_subset)
-
- ## aggregating checks --------------------------------------------------------
- ## NOTE: aggre evaled here using small data subset to check that all needed
- ## variables are found, etc.
- aggSub <- substitute(aggre)
- agTest <- evalPopArg(arg = aggSub, data = l[1:min(10L, .N), ],
- enclos = PF, recursive = TRUE, DT = TRUE)
- agTy <- attr(agTest, "arg.type")
- if (is.null(agTy)) agTy <- "NULL"
- aggSub <- attr(agTest, "quoted.arg")
- agVars <- attr(agTest, "all.vars")
- rm(aggre)
-
- # merging pophaz and pp-weighting --------------------------------------------
- if (!is.null(pophaz)) {
-
- pophaztime <- proc.time()
-
- if (any(c("haz", "pop.haz") %in% names(l))) stop("case data had variable(s) named 'haz' / 'pop.haz', which are reserved for lexpand's internal use. rename/remove them please.")
- # merge surv.int information -----------------------------------------------
- NULL_FOT <- FALSE
- if (is.null(breaks$fot)) {
- breaks$fot <- l[, c(0, max(fot+lex.dur))]
- NULL_FOT <- TRUE
- }
-
- breaks$fot <- sort(unique(breaks$fot))
- # handle pophaz data -------------------------------------------------------
-
- if (!"haz" %in% names(pophaz)) stop("no 'haz' variable in pophaz; please rename you hazard variable to 'haz'")
- yBy <- xBy <- setdiff(names(pophaz), c("haz"))
- if (c("year") %in% yBy) xBy[yBy == "year"] <- "per"
- if (c("agegroup") %in% yBy) xBy[yBy == "agegroup"] <- "age"
- yByOth <- setdiff(yBy, c("year", "agegroup"))
-
- if (any(!yByOth %in% names(l)))
- stop("Following variable names not common between pophaz and data: ", paste0("'", yByOth[!yByOth %in% names(l)], "'", collapse = ", "))
-
- l <- cutLowMerge(x = l, y = pophaz, by.x = xBy, by.y = yBy, all.x = TRUE,
- all.y = FALSE, mid.scales = c("per", "age"), old.nums = TRUE)
- setnames(l, "haz", "pop.haz")
-
- ## check if l's merging time variables were within pophaz's limits ---------
- nNA <- l[is.na(pop.haz), .N]
- if (nNA > 0) message("WARNING: after merging pophaz, ", nNA, " rows in split data have NA hazard values!")
-
- names(yBy) <- xBy
- names(xBy) <- yBy
- for (k in intersect(c("per", "age"), xBy)) {
- yVar <- yBy[k]
- kLo <- min(pophaz[[yVar]])
- kHi <- max(pophaz[[yVar]])
- mid <- l[, get(k) + lex.dur]
- nLo <- sum(mid < kLo - .Machine$double.eps^0.5)
- nHi <- sum(mid > kHi - .Machine$double.eps^0.5)
- if (nLo > 0) message("WARNING: ", nLo, " rows in split data have NA values due to their mid-points residing below the minimum value of '", yVar, "' in pophaz!")
- if (nHi > 0) message("NOTE: ", nHi, " rows in split data had values of '", k, "' higher than max of pophaz's '", yVar, "'; the hazard values at '", yVar, "' == ", kHi, " were used for these")
- }
- rm(mid)
- for (k in yByOth) {
- levsNotOth <- setdiff(unique(l[[k]]), unique(pophaz[[k]]))
- if (length(levsNotOth) > 0) message("WARNING: following levels (first five) of variable '", k, "' not in pophaz but exist in split data: ", paste0("'",levsNotOth[1:5],"'", collapse = ", "))
- }
-
-
- # pohar-perme weighting ----------------------------------------------------
- if (comp_pp) {
- setkeyv(l, c("lex.id", "fot"))
- comp_pp_weights(l, surv.scale = "fot", breaks = breaks$fot, haz = "pop.haz",
- style = "delta", verbose = verbose)
- }
- merge_msg <- "Time taken by merging pophaz"
- if (comp_pp) merge_msg <- paste0(merge_msg, " and computing pp")
- merge_msg <- paste0(merge_msg, ": ")
- if (verbose) cat(paste0(merge_msg, timetaken(pophaztime), "\n"))
-
-
- }
-
- # dropping after merging -----------------------------------------------------
- if (drop_after) {
- l <- intelliDrop(x = l, breaks = breaks)
- }
-
- if (verbose) cat("Number of rows after splitting: ", nrow(l),"\n")
-
-
- # aggregating if appropriate -------------------------------------------------
- if (agTy != "NULL") {
-
- setcolsnull(l, keep = c("lex.id","lex.dur", "fot", "per", "age", "lex.Cst", "lex.Xst", agVars, "pop.haz", "pp"))
-
- sumVars <- NULL
- if ("pop.haz" %in% names(l)) {
- if ("d.exp" %in% names(l)) stop("data had variable named 'd.exp' by which to aggregate, which would be overwritten due to aggregating expected numbers of cases (you have supplied pophaz AND are aggregating); please rename / remove it first.")
- l[, c("d.exp") := pop.haz*lex.dur ]
- sumVars <- c(sumVars, "d.exp")
- }
- if ("pop.haz" %in% names(l) && comp_pp && "pp" %in% names(l)) {
- forceLexisDT(l, breaks = breaks, allScales = c("fot", "per", "age"))
- ppFigs <- comp_pp_weighted_figures(lex = l, haz = "pop.haz", pp = "pp", event.ind = NULL)
- bad_pp_vars <- intersect(names(ppFigs), names(l))
- if (length(bad_pp_vars) > 0L) {
- bad_pp_vars <- paste0("'",bad_pp_vars, "'", collapse = ", ")
- stop("Data had variable(s) named ", bad_pp_vars, ", by which to aggregate, which would be overwritten due to aggregating expected numbers of cases (you have supplied pophaz AND are aggregating); please rename / remove them first")
- }
- l[, names(ppFigs) := ppFigs]
- sumVars <- c(sumVars, names(ppFigs))
- rm(ppFigs)
-
- }
-
- if (verbose) cat("Starting aggregation of split data... \n")
- setDT(l)
- forceLexisDT(l, allScales = c("fot", "per", "age"), breaks = breaks)
- l <- try(aggre(lex = l, by = aggSub, type = aggre.type, verbose = verbose, sum.values = sumVars))
- if (inherits(l, "try-error")) stop("Something went wrong when calling aggre() within lexpand(). Usual suspect: bad 'by' argument. Error message from aggre():
- ", paste0(l[[1]]))
- if (verbose) cat("Aggregation done. \n")
-
- if (!return_DT() && is.data.table(l)) setDFpe(l)
-
- } else {
-
-
- # last touch-up --------------------------------------------------------------
- ## sometimes problems with releasing memory
- gc()
-
- breaks <- lapply(c("fot","per","age"), function(ts_nm) {
- breaks[[ts_nm]]
- })
- names(breaks) <- c("fot","per","age")
-
- ## handle attributes
- setkeyv(l, c("lex.id", "lex.multi"))
- set(l, j = "lex.multi", value = NULL)
- setattr(l, "time.scales", c("fot","per","age"))
- setattr(l, "time.since", c("","",""))
- setattr(l, "breaks", breaks)
- setattr(l, "class", c("Lexis","data.table","data.frame"))
- if (!return_DT() && is.data.table(l)) setDFpe(l)
-
-
-
- }
-
- if (verbose) cat("Time taken by lexpand(): ", timetaken(start_time), "\n")
-
- return(l[])
-}
-
-
-globalVariables(c('.EACHI', "dg_date", "ex_date", "bi_date"))
-
+
+#' @title Split case-level observations
+#' @author Joonas Miettinen
+#' @description Given subject-level data, data is split
+#' by calendar time (\code{per}), \code{age}, and follow-up
+#' time (\code{fot}, from 0 to the end of follow-up)
+#' into subject-time-interval rows according to
+#' given \code{breaks} and additionally processed if requested.
+#' @param data dataset of e.g. cancer cases as rows
+#' @param birth birth time in date format
+#' or fractional years; string, symbol or expression
+#' @param entry entry time in date format
+#' or fractional years; string, symbol or expression
+#' @param exit exit from follow-up time in date
+#' format or fractional years; string, symbol or expression
+#' @param event advanced: time of possible event differing from \code{exit};
+#' typically only used in certain SIR/SMR calculations - see Details;
+#' string, symbol or expression
+#' @param status variable indicating type of event at \code{exit} or \code{event};
+#' e.g. \code{status = status != 0}; expression or quoted variable name
+#' @param entry.status input in the same way as \code{status};
+#' status at \code{entry}; see Details
+#' @param id optional; an id variable; e.g. \code{id = my_id};
+#' string, symbol or expression
+#' @param overlapping advanced, logical; if \code{FALSE} AND if \code{data} contains
+#' multiple rows per subject,
+#' ensures that the timelines of \code{id}-specific rows do not overlap;
+#' this ensures e.g. that person-years are only computed once per subject
+#' in a multi-state paradigm
+#' @param aggre e.g. \code{aggre = list(sex, fot)};
+#' a list of unquoted variables and/or expressions thereof,
+#' which are interpreted as factors; data events and person-years will
+#' be aggregated by the unique combinations of these; see Details
+#' @param aggre.type one of \code{c("unique","cartesian")};
+#' can be abbreviated; see Details
+#' @param breaks a named list of vectors of time breaks;
+#' e.g. \code{breaks = list(fot=0:5, age=c(0,45,65,Inf))}; see Details
+#' @param drop logical; if \code{TRUE}, drops all resulting rows
+#' after splitting that reside outside
+#' the time window as defined by the given breaks (all time scales)
+#' @param pophaz a dataset of population hazards to merge
+#' with split data; see Details
+#' @param pp logical; if \code{TRUE}, computes Pohar-Perme weights using
+#' \code{pophaz}; adds variable with reserved name \code{pp};
+#' see Details for computing method
+#' @param subset a logical vector or any logical condition; data is subsetted
+#' before splitting accordingly
+#' @param merge logical; if \code{TRUE}, retains all
+#' original variables from the data
+#' @param verbose logical; if \code{TRUE}, the function is chatty and
+#' returns some messages along the way
+#' @param ... e.g. \code{fot = 0:5}; instead of specifying a \code{breaks} list,
+#' correctly named breaks vectors can be given
+#' for \code{fot}, \code{age}, and \code{per}; these override any breaks in the
+#' \code{breaks} list; see Examples
+#'
+#'
+#'
+#' @details
+#' \strong{Basics}
+#'
+#' \code{\link{lexpand}} splits a given data set (with e.g. cancer diagnoses
+#' as rows) to subintervals of time over
+#' calendar time, age, and follow-up time with given time breaks
+#' using \code{\link{splitMulti}}.
+#'
+#' The dataset must contain appropriate
+#' \code{Date} / \code{IDate} / \code{date} format or
+#' other numeric variables that can be used
+#' as the time variables.
+#'
+#' You may take a look at a simulated cohort
+#' \code{\link{sire}} as an example of the
+#' minimum required information for processing data with \code{lexpand}.
+#'
+#' Many arguments can be supplied as a character string naming the appropriate
+#' variable (e.g. \code{"sex"}), as a symbol (e.g. \code{sex}) or as an expression
+#' (e.g. \code{factor(sex, 0:1, c("m", "f"))}) for flexibility.
+#'
+#' \strong{Breaks}
+#'
+#' You should define all breaks as left inclusive and right exclusive
+#' time points (e.g.\code{[a,b)} )
+#' for 1-3 time dimensions so that the last member of a breaks vector
+#' is a meaningful "final upper limit",
+#' e.g. \code{per = c(2002,2007,2012)}
+#' to create a last subinterval of the form \code{[2007,2012)}.
+#'
+#' All breaks are explicit, i.e. if \code{drop = TRUE},
+#' any data beyond the outermost breaks points are dropped.
+#' If one wants to have unspecified upper / lower limits on one time scale,
+#' use \code{Inf}: e.g. \code{breaks = list(fot = 0:5, age = c(0,45,Inf))}.
+#' Breaks for \code{per} can also be given in
+#' \code{Date}/\code{IDate}/\code{date} format, whereupon
+#' they are converted to fractional years before used in splitting.
+#'
+#' The \code{age} time scale can additionally
+#' be automatically split into common age grouping schemes
+#' by naming the scheme with an appropriate character string:
+#'
+#' \itemize{
+#' \item \code{"18of5"}: age groups 0-4, 5-9, 10-14, ..., 75-79, 80-84, 85+
+#' \item \code{"20of5"}: age groups 0-4, 5-9, 10-14, ..., 85-89, 90-94, 95+
+#' \item \code{"101of1"}: age groups 0, 1, 2, ..., 98, 99, 100+
+#' }
+#'
+#' \strong{Time variables}
+#'
+#' If any of the given time variables
+#' (\code{birth}, \code{entry}, \code{exit}, \code{event})
+#' is in any kind of date format, they are first coerced to
+#' fractional years before splitting
+#' using \code{\link{get.yrs}} (with \code{year.length = "actual"}).
+#'
+#' Sometimes in e.g. SIR/SMR calculation one may want the event time to differ
+#' from the time of exit from follow-up, if the subject is still considered
+#' to be at risk of the event. If \code{event} is specified, the transition to
+#' \code{status} is moved to \code{event} from \code{exit}
+#' using \code{\link[Epi]{cutLexis}}. See Examples.
+#'
+#' \strong{The status variable}
+#'
+#' The statuses in the expanded output (\code{lex.Cst} and \code{lex.Xst})
+#' are determined by using either only \code{status} or both \code{status}
+#' and \code{entry.status}. If \code{entry.status = NULL}, the status at entry
+#' is guessed according to the type of variable supplied via \code{status}:
+#' For numeric variables it will be zero, for factors the first level
+#' (\code{levels(status)[1]}) and otherwise the first unique value in alphabetical
+#' order (\code{sort(unique(status))[1]}).
+#'
+#' Using numeric or factor status
+#' variables is strongly recommended. Logical expressions are also allowed
+#' (e.g. \code{status = my_status != 0L}) and are converted to integer internally.
+#'
+#' \strong{Merging population hazard information}
+#'
+#' To enable computing relative/net survivals with \code{\link{survtab}}
+#' and \code{\link{relpois}}, \code{lexpand} merges an appropriate
+#' population hazard data (\code{pophaz}) to the expanded data
+#' before dropping rows outside the specified
+#' time window (if \code{drop = TRUE}). \code{pophaz} must, for this reason,
+#' contain at a minimum the variables named
+#' \code{agegroup}, \code{year}, and \code{haz}. \code{pophaz} may contain additional variables to specify
+#' different population hazard levels in different strata; e.g. \code{popmort} includes \code{sex}.
+#' All the strata-defining variables must be present in the supplied \code{data}. \code{lexpand} will
+#' automatically detect variables with common names in the two datasets and merge using them.
+#'
+#' Currently \code{year} must be an integer variable specifying the appropriate year. \code{agegroup}
+#' must currently also specify one-year age groups, e.g. \code{popmort} specifies 101 age groups
+#' of length 1 year. In both
+#' \code{year} and \code{agegroup} variables the values are interpreted as the lower bounds of intervals
+#' (and passed on to a \code{cut} call). The mandatory variable \code{haz}
+#' must specify the appropriate average rate at the person-year level;
+#' e.g. \code{haz = -log(survProb)} where \code{survProb} is a one-year conditional
+#' survival probability will be the correct hazard specification.
+#'
+#' The corresponding \code{pophaz} population hazard value is merged by using the mid points
+#' of the records after splitting as reference values. E.g. if \code{age=89.9} at the start
+#' of a 1-year interval, then the reference age value is \code{90.4} for merging.
+#' This way we get a "typical" population hazard level for each record.
+#'
+#' \strong{Computing Pohar-Perme weights}
+#'
+#' If \code{pp = TRUE}, Pohar-Perme weights
+#' (the inverse of cumulative population survival) are computed. This will
+#' create the new \code{pp} variable in the expanded data. \code{pp} is a
+#' reserved name and \code{lexpand} throws exception if a variable with that name
+#' exists in \code{data}.
+#'
+#' When a survival interval contains one or several rows per subject
+#' (e.g. due to splitting by the \code{per} scale),
+#' \code{pp} is cumulated from the beginning of the first record in a survival
+#' interval for each subject to the mid-point of the remaining time within that
+#' survival interval, and that value is given for every other record
+#' that a given person has within the same survival interval.
+#'
+#' E.g. with 5 rows of duration \code{1/5} within a survival interval
+#' \code{[0,1)]}, \code{pp} is determined for all records by a cumulative
+#' population survival from \code{0} to \code{0.5}. The existing accuracy is used,
+#' so that the weight is cumulated first up to the end of the second row
+#' and then over the remaining distance to the mid-point (first to 0.4, then to
+#' 0.5). This ensures that more accurately merged population hazards are fully
+#' used.
+#'
+#' \strong{Event not at end of follow-up & overlapping time lines}
+#'
+#' \code{event} may be used if the event indicated by \code{status} should
+#' occur at a time differing from \code{exit}. If \code{event} is defined,
+#' \code{cutLexis} is used on the data set after coercing it to the \code{Lexis}
+#' format and before splitting. Note that some values of \code{event} are allowed
+#' to be \code{NA} as with \code{cutLexis} to accommodate observations
+#' without an event occurring.
+#'
+#' Additionally, setting \code{overlapping = FALSE} ensures that (irrespective
+#' of using \code{event}) the each subject defined by \code{id} only has one
+#' continuous time line instead of possibly overlapping time lines if
+#' there are multiple rows in \code{data} by \code{id}.
+#'
+#'
+#' \strong{Aggregating}
+#'
+#' Certain analyses such as SIR/SMR calculations require tables of events and
+#' person-years by the unique combinations (interactions) of several variables.
+#' For this, \code{aggre} can be specified as a list of such variables
+#' (preferably \code{factor} variables but not mandatory)
+#' and any arbitrary functions of the
+#' variables at one's disposal. E.g.
+#'
+#' \code{aggre = list(sex, agegr = cut(dg_age, 0:100))}
+#'
+#' would tabulate events and person-years by sex and an ad-hoc age group
+#' variable. Every ad-hoc-created variable should be named.
+#'
+#' \code{fot}, \code{per}, and \code{age} are special reserved variables which,
+#' when present in the \code{aggre} list, are output as categories of the
+#' corresponding time scale variables by using
+#' e.g.
+#'
+#' \code{cut(fot, breaks$fot, right=FALSE)}.
+#'
+#' This only works if
+#' the corresponding breaks are defined in \code{breaks} or via "\code{...}".
+#' E.g.
+#'
+#' \code{aggre = list(sex, fot.int = fot)} with
+#'
+#' \code{breaks = list(fot=0:5)}.
+#'
+#' The output variable \code{fot.int} in the above example will have
+#' the lower limits of the appropriate intervals as values.
+#'
+#' \code{aggre} as a named list will output numbers of events and person-years
+#' with the given new names as categorizing variable names, e.g.
+#' \code{aggre = list(follow_up = fot, gender = sex, agegroup = age)}.
+#'
+#' The output table has person-years (\code{pyrs}) and event counts
+#' (e.g. \code{from0to1}) as columns. Event counts are the numbers of transitions
+#' (\code{lex.Cst != lex.Xst}) or the \code{lex.Xst} value at a subject's
+#' last record (subject possibly defined by \code{id}).
+#'
+#' If \code{aggre.type = "unique"} (alias \code{"non-empty"}),
+#' the above results are computed for existing
+#' combinations of expressions given in \code{aggre}, but also for non-existing
+#' combinations if \code{aggre.type = "cartesian"} (alias \code{"full"}). E.g. if a
+#' factor variable has levels \code{"a", "b", "c"} but the data is limited
+#' to only have levels \code{"a", "b"} present
+#' (more than zero rows have these level values), the former setting only
+#' computes results for \code{"a", "b"}, and the latter also for \code{"c"}
+#' and any combination with other variables or expression given in \code{aggre}.
+#' In essence, \code{"cartesian"} forces also combinations of variables used
+#' in \code{aggre} that have no match in data to be shown in the result.
+#'
+#' If \code{aggre} is not \code{NULL} and \code{pophaz} has been supplied,
+#' \code{lexpand} also aggregates the expected counts of events, which
+#' appears in the output data by the reserved name \code{d.exp}. Additionally,
+#' having \code{pp = TRUE} causes \code{lexpand} to also compute various
+#' Pohar-Perme weighted figures necessary for computing Pohar-Perme net survivals
+#' with \code{\link{survtab_ag}}. This can be slow, so consider what is really
+#' needed. The Pohar-Perme weighted figures have the suffix \code{.pp}.
+#'
+#' @return
+#' If \code{aggre = NULL}, returns
+#' a \code{data.table} or \code{data.frame}
+#' (depending on \code{options("popEpi.datatable")}; see \code{?popEpi})
+#' object expanded to accommodate split observations with time scales as
+#' fractional years and \code{pophaz} merged in if given. Population
+#' hazard levels in new variable \code{pop.haz}, and Pohar-Perme
+#' weights as new variable \code{pp} if requested.
+#'
+#' If \code{aggre} is defined, returns a long-format
+#' \code{data.table}/\code{data.frame} with the variable \code{pyrs} (person-years),
+#' and variables for the counts of transitions in state or state at end of
+#' follow-up formatted \code{fromXtoY}, where \code{X} and \code{Y} are
+#' the states transitioned from and to, respectively. The data may also have
+#' the columns \code{d.exp} for expected numbers of cases and various
+#' Pohar-Perme weighted figures as identified by the suffix \code{.pp}; see
+#' Details.
+#'
+#'
+#' @examples
+#' \donttest{
+#' ## prepare data for e.g. 5-year cohort survival calculation
+#' x <- lexpand(sire, breaks=list(fot=seq(0, 5, by = 1/12)),
+#' birth = bi_date, entry = dg_date, exit = ex_date,
+#' status = status != 0, pophaz=popmort)
+#'
+#' ## prepare data for e.g. 5-year "period analysis" for 2008-2012
+#' BL <- list(fot = seq(0, 5, by = 1/12), per = c("2008-01-01", "2013-01-01"))
+#' x <- lexpand(sire, breaks = BL,
+#' birth = bi_date, entry = dg_date, exit = ex_date,
+#' pophaz=popmort, status = status != 0)
+#'
+#' ## aggregating
+#' BL <- list(fot = 0:5, per = c("2003-01-01","2008-01-01", "2013-01-01"))
+#' ag <- lexpand(sire, breaks = BL, status = status != 0,
+#' birth = bi_date, entry = dg_date, exit = ex_date,
+#' aggre=list(sex, period = per, surv.int = fot))
+#'
+#' ## aggregating even more
+#' ag <- lexpand(sire, breaks = BL, status = status != 0,
+#' birth = bi_date, entry = dg_date, exit = ex_date,
+#' aggre=list(sex, period = per, surv.int = fot),
+#' pophaz = popmort, pp = TRUE)
+#'
+#' ## using "..."
+#' x <- lexpand(sire, fot=0:5, status = status != 0,
+#' birth = bi_date, entry = dg_date, exit = ex_date,
+#' pophaz=popmort)
+#'
+#' x <- lexpand(sire, fot=0:5, status = status != 0,
+#' birth = bi_date, entry = dg_date, exit = ex_date,
+#' aggre=list(sex, surv.int = fot))
+#'
+#' ## using the "event" argument: it just places the transition to given "status"
+#' ## at the "event" time instead of at the end, if possible using cutLexis
+#' x <- lexpand(sire, status = status, event = dg_date,
+#' birth = bi_date, entry = dg_date, exit = ex_date,)
+#'
+#' ## aggregating with custom "event" time
+#' ## (the transition to status is moved to the "event" time)
+#' x <- lexpand(sire, status = status, event = dg_date,
+#' birth = bi_date, entry = dg_date, exit = ex_date,
+#' per = 1970:2014, age = c(0:100,Inf),
+#' aggre = list(sex, year = per, agegroup = age))
+#'
+#' }
+#'
+#' @import data.table
+#' @import Epi
+#' @family splitting functions
+#' @family aggregation functions
+#' @seealso
+#' \code{\link[Epi]{Lexis}}, \code{\link{popmort}}
+#' @export
+lexpand <- function(data,
+ birth=NULL, entry=NULL, exit=NULL, event=NULL,
+ status = status != 0,
+ entry.status = NULL,
+ breaks = list(fot=c(0,Inf)),
+ id = NULL,
+ overlapping = TRUE,
+ aggre = NULL,
+ aggre.type = c("unique", "cartesian"),
+ drop=TRUE,
+ pophaz = NULL, pp = TRUE,
+ subset = NULL,
+ merge=TRUE, verbose = FALSE,
+ ...) {
+ start_time <- proc.time()
+
+ TF <- environment()
+ PF <- parent.frame(1L)
+
+ ## data checks
+ if ( missing(data) || nrow(data) == 0) stop("no data found")
+
+ if (!is.data.frame(data)) stop("data must be a data.frame or data.table")
+
+ ## to instate global variables to appease R CMD CHECK
+ .EACHI <- lex.status <- lexpand.id <- lex.exit <- lex.birth <-
+ lex.entry <- lex.event <- temp.id <- cd <- fot <- age <- per <-
+ lex.id <- lex.multi <- pop.haz <- lex.Cst <- lex.Xst <- lex.dur <- NULL
+
+
+ ## test conflicting variable names -------------------------------------------
+ added_vars <- c("fot", "per", "age", "lex.id", "lex.dur", "lex.Xst", "lex.Cst")
+ if (!is.null(pophaz)) added_vars <- if (pp) c(added_vars, "pp", "pop.haz") else c(added_vars, "pop.haz")
+ conflicted_vars <- intersect(added_vars, names(data))
+
+ if (merge && length(conflicted_vars) > 0) {
+ conflicted_vars <- paste0("'", conflicted_vars, "'", collapse = ", ")
+ warning("'data' already had variable(s) named ", conflicted_vars, " which lexpand will create, and you have merge = TRUE; this may result in unexpected problems. Rename the variable(s)?")
+ }
+ rm(added_vars, conflicted_vars)
+
+ ## test aggre type -----------------------------------------------------------
+ aggre.type <- match.arg(aggre.type[1L], c("cartesian", "non-empty", "unique", "cross-product", "full"))
+ if (aggre.type == "cross-product") {
+ aggre.type <- "cartesian"
+ warning("aggre.type value 'cross-product' deprecated and renamed to 'cartesian'; please use that in the future")
+ }
+
+ ## subsetting-----------------------------------------------------------------
+ ## no copy taken of data!
+ subset <- substitute(subset)
+ subset <- evalLogicalSubset(data, subset)
+
+ ## prepping time variables ---------------------------------------------------
+ l <- substitute(list(birth, entry, exit, event, status, entry.status, id))
+ rm(birth, entry, exit, event, status, entry.status, id)
+
+ lc <- unlist(lapply(l, deparse))
+ lc <- lc[-1] ## first always "list"
+
+ wh <- which(lc != "NULL")
+ lex_vars <- c("lex.birth","lex.entry","lex.exit","lex.event", "lex.status", "lex.entry.status", "lexpand.id")[wh]
+ if (any(!c("lex.birth", "lex.entry", "lex.exit", "lex.status") %in% lex_vars)) stop("birth, entry, exit and status are mandatory")
+
+ l <- eval(l, envir = data[subset, ], enclos = PF)
+ l[-wh] <- NULL
+
+
+ ## vars can be given as character strings of variable names
+ isChar <- sapply(l, is.character, simplify = TRUE)
+ if (any(isChar)) {
+ isShort <- sapply(l, function(x) {length(x) == 1L}, simplify = TRUE)
+ whOneChar <- which(isShort & isChar)
+
+ whBadChar <- NULL
+ if (length(whOneChar) > 0) {
+ testBadChar <- unlist(l[whOneChar])
+ whBadChar <- whOneChar[!testBadChar %in% names(data)]
+ }
+
+ if (length(whBadChar) > 0) {
+
+ badChar <- l[whBadChar]
+ badChar <- paste0(badChar[1:min(length(badChar), 5L)], collapse = ", ")
+ stop("Variables given as a character of length one are interpreted as variable names in data,
+ but some given characters were not found in data;
+ check names or input as factor/Date;
+ first five bad names: ", badChar)
+ }
+
+ l[whOneChar] <- lapply(l[whOneChar], function(x) {data[subset, ][[x]]})
+ }
+
+
+ l <- as.data.table(l)
+ setnames(l, names(l), lex_vars)
+
+
+ rm(lex_vars)
+ if (!all(c("lex.birth","lex.entry","lex.exit","lex.status") %in% names(l))) {
+ stop("birth, entry, exit and status are mandatory, but at least one was misspecified/NULL")
+ }
+
+ if (is.logical(l$lex.status)) l[, lex.status := as.integer(lex.status)]
+ if (is.null(l$lexpand.id)) l[, lexpand.id := 1:.N]
+
+ ## checks for merging style --------------------------------------------------
+ if (!is.null(pophaz)) {
+ all_names_present(pophaz, c("agegroup","year","haz"))
+ othMergeVars <- setdiff(names(pophaz), c("agegroup","year","haz"))
+ badOthMergeVars <- setdiff(othMergeVars, names(data))
+ if (length(badOthMergeVars) > 0) {
+ badOthMergeVars <- paste0("'", badOthMergeVars, "'", collapse = ", ")
+ stop("Following variables exist in pophaz but do not exist in data: ", badOthMergeVars, ". Make sure data and pophaz contain variables with the same names that you intend to merge by.")
+ }
+ }
+
+ if (is.null(pophaz)) {
+ comp_pp <- FALSE
+ } else {
+ comp_pp <- TRUE
+ }
+
+ ## internally we have "delta" and "actual" methods,
+ ## the latter being experimental and not visible in the documentation.
+ ## "delta" is always used if pp = TRUE.
+ ## it is possible to choose pp = "actual" as well, though, if you know
+ ## about it.
+ comp_pp <- FALSE
+ if (is.logical(pp) && pp) pp <- "delta"
+
+ if (!is.null(pp) && is.character(pp)) {
+ pp <- match.arg(pp, c("delta", "actual"))
+ comp_pp <- TRUE
+ }
+ if (comp_pp && "pp" %in% names(data)) stop("variable named 'pp' in data; this is a reserved name for pohar-perme weights, please rename / remove the variable in data")
+
+ ## ensure given breaks make any sense ----------------------------------------
+
+ bl <- list(...)
+ lna <- names(bl)
+ bad_lna <- setdiff(lna, c("fot","per","age"))
+ if (length(bad_lna) > 0) {
+ bad_lna <- paste0("'", bad_lna, "'", collapse = ", ")
+ stop("only arguments named 'fot', 'per' or 'age' currently allowed to be passed via '...'; did you mistype an argument? bad args: ", bad_lna)
+ }
+ lna <- intersect(names(bl), c("fot","per","age"))
+ if (length(lna) > 0) {
+ bl <- bl[lna]
+ if (!is.null(breaks)) breaks[lna] <- NULL
+ breaks <- c(breaks, bl)
+ }
+ rm(bl, lna)
+
+ brna <- names(breaks)
+ if (length(brna) != length(breaks)) {
+ stop("all elements in breaks list must be named, e.g. list(fot = 0:5, age=c(0,45,65,Inf))")
+ }
+
+ brna <- intersect(brna, c("fot","per","age"))
+ if (length(brna) == 0) {
+ breaks$fot <- c(0,Inf)
+ }
+
+ if ("age" %in% brna && is.character(breaks$age)) {
+ schemeNames <- c("18of5", "20of5", "101of1")
+ if (!breaks$age %in% schemeNames) stop("You supplied '", breaks$age, "' as breaks for the age scale, but allowed character strings are: ", paste0("'", schemeNames, "'", collapse = ","))
+ brSchemes <- list(c(seq(0, 85, 5)), c(seq(0, 95, 5), Inf), c(0:100, Inf))
+ names(brSchemes) <- paste0("age_", schemeNames)
+ breaks$age <- brSchemes[paste0("age_",breaks$age)]
+ }
+
+
+ if (any(sapply(breaks, length) == 1L)) {
+ stop("any given non-null vector of breaks must have more than one break!")
+ }
+
+ # convert to fractional years ------------------------------------------------
+
+ char2date <- function(obj) {
+ if (is.character(obj) || inherits(obj, "date")) {
+ return(as.IDate(obj))
+ } else {
+ return(obj)
+ }
+ }
+
+ date2yrs <- function(obj) {
+ if (is.Date(obj) || inherits(obj, "date")) {
+ get.yrs(obj, year.length = "actual")
+ } else {
+ obj
+ }
+ }
+
+ breaks <- lapply(breaks, char2date)
+ breaks <- lapply(breaks, date2yrs)
+
+ time_vars <- intersect(names(l), c("lex.birth", "lex.entry", "lex.exit","lex.event"))
+ l[, (time_vars) := lapply(.SD, date2yrs) , .SDcols = time_vars]
+
+ if (verbose) cat("given birth, entry, exit, status etc. variables after coercion to numeric \n")
+ if (verbose) print(l)
+
+ # check data consistency for overlapping = FALSE -----------------------------
+ ## not allowed: for any one unique subject to be true for
+ ## multiple rows (if overlapping = TRUE):
+ ## * same event values
+ ## * same entry values
+ if (!overlapping) {
+ if ("lex.event" %in% names(l)) {
+ if (all(is.na(l$lex.event))) stop("ALL 'event' values are NA; if this is as intended, please use event = NULL instead")
+
+ if (any(duplicated(l, by = c("lexpand.id", "lex.event")))) {
+ stop("subject(s) defined by lex.id had several rows where 'event' time had the same value, which is not supported with overlapping = FALSE; perhaps separate them by one day?")
+ }
+ if (any(l[!is.na(lex.event), lex.entry == lex.event])) {
+ stop("some rows have simultaneous 'entry' and 'event', which is not supported with overlapping = FALSE; perhaps separate them by one day?")
+ }
+ } else if (any(duplicated(l, by = c("lexpand.id", "lex.exit")))) {
+ stop("subject(s) defined by lex.id had several rows where 'exit' time had the same value, which is not supported without 'event' defined; use 'event' or perhaps separate them by one day?")
+ }
+
+
+ }
+
+
+ # dropping unuseful records --------------------------------------------------
+ test_times <- function(condition, msg, old_subset=l_subset, DT=l) {
+
+ condition <- substitute(condition)
+ condition <- eval(condition, envir = DT, enclos = parent.frame(1L))
+
+ new_subset <- old_subset & !(condition & !is.na(condition))
+ old_n <- sum(old_subset)
+ new_n <- sum(new_subset)
+
+ if (new_n == 0L) {
+ stop("dropping rows where ", msg, " resulted in zero rows left. likely problem: misdefined time variables")
+ }
+
+ if (new_n < old_n) {
+ message(paste0("dropped ", old_n-new_n, " rows where ", msg))
+ }
+ return(new_subset)
+ }
+
+ l_subset <- rep(TRUE, nrow(l))
+
+ l_subset <- test_times(is.na(lex.birth), "birth values are missing")
+ l_subset <- test_times(is.na(lex.entry), "entry values are missing")
+ l_subset <- test_times(is.na(lex.exit), "exit values are missing")
+
+ if (!is.null(breaks$per)) {
+ l_subset <- test_times(lex.exit < min(breaks$per), "subjects left follow-up before earliest per breaks value")
+ }
+ if (!is.null(breaks$age)) {
+ l_subset <- test_times(lex.exit - lex.birth < min(breaks$age), "subjects left follow-up before lowest age breaks value")
+ }
+ if (!is.null(breaks$fot)) {
+ l_subset <- test_times(lex.exit - lex.entry < min(breaks$fot), "subjects left follow-up before lowest fot breaks value")
+ }
+ l_subset <- test_times(lex.birth >= lex.exit, "birth >= exit")
+ l_subset <- test_times(lex.entry == lex.exit, "entry == exit")
+ l_subset <- test_times(lex.entry > lex.exit, "entry > exit")
+ l_subset <- test_times(lex.birth > lex.entry, "birth > entry")
+ if (!is.null(l$lex.event)) {
+ l_subset <- test_times(lex.event > lex.exit, "event > exit")
+ l_subset <- test_times(lex.event < lex.entry, "event < entry")
+ }
+ l <- l[l_subset]
+
+ if (verbose) cat("Time taken by checks, prepping and test: ", timetaken(start_time), "\n")
+
+ # Lexis coercion -------------------------------------------------------------
+
+ ## status definitions
+ setnames(l, "lex.status", "lex.Xst")
+ if ("lex.entry.status" %in% names(l)) {
+ setnames(l, "lex.entry.status", "lex.Cst")
+ } else {
+ if (is.factor(l$lex.Xst)) {
+ l[, lex.Cst := factor(levels(lex.Xst)[1L], levels=levels(lex.Xst))]
+ } else if (is.double(l$lex.Xst)) {
+ l[, lex.Cst := 0]
+ } else if (is.integer(l$lex.Xst)) {
+ l[, lex.Cst := 0L]
+ } else {
+ l[, lex.Cst := sort(unique(lex.Xst))[1L]]
+ }
+
+ }
+
+ # ensure common labels for factors etc.
+ harmonizeStatuses(x = l, C = "lex.Cst", X = "lex.Xst")
+
+ ## time scales and duration
+ l[, lex.dur := lex.exit - lex.entry]
+ l[, fot := 0]
+ setnames(l, "lex.entry", "per")
+ l[, age := per-lex.birth]
+ setnames(l, "lexpand.id", "lex.id")
+
+ ## for merging data with l later
+ if (merge) {
+ idt <- data.table(temp.id = 1:nrow(l))
+ l[, temp.id := 1:.N]
+ }
+
+ ## crop time scale values to obey breaks limits and drop if necessary
+ ## NOTE: goes wrong if need to compute pp weights!
+ # if (drop && !pp) {
+ # intelliCrop(x = l, breaks = breaks, allScales = c("fot", "per", "age"), cropStatuses = TRUE)
+ # l <- intelliDrop(x = l, breaks = breaks, dropNegDur = TRUE)
+ # }
+
+
+ setcolsnull(l, colorder=TRUE, soft=TRUE,
+ keep = c("lex.id","fot","per","age",
+ "lex.dur", "lex.Cst", "lex.Xst", "lex.event", "temp.id"))
+ setattr(l, "class", c("Lexis", "data.table", "data.frame"))
+ setattr(l, "time.scales", c("fot","per","age"))
+ setattr(l, "time.since", c("","",""))
+
+ if (verbose) cat("data just after Lexis coercion: \n")
+ if (verbose) print(l)
+
+ # event not at exit time -----------------------------------------------------
+
+ if ("lex.event" %in% names(l)) {
+
+ if (!overlapping) {
+
+ ## using lex.event time, ensure coherence of lex.Cst & lex.Xst
+ ## before cutLexis()
+ tmpFE <- makeTempVarName(l, pre = "fot_end_")
+ l[, (tmpFE) := fot + lex.dur]
+ setkeyv(l, c("lex.id", "lex.event", tmpFE))
+ tmpLX <- makeTempVarName(l, pre = "lag_lex.Xst_")
+ l[, (tmpLX) := shift(lex.Xst, n = 1, type = "lag"), by = lex.id]
+ l[!is.na(get(tmpLX)), lex.Cst := get(tmpLX)]
+ l[, c(tmpFE, tmpLX) := NULL]
+ rm(tmpFE, tmpLX)
+
+ }
+
+ if (verbose) cutt <- proc.time()
+ setDF(l)
+ setattr(l, "class", c("Lexis", "data.frame"))
+ l <- Epi::cutLexis(l, cut = l$lex.event, timescale = "per", new.state = l$lex.Xst, precursor.states = unique(l$lex.Cst))
+ setDT(l)
+ setattr(l, "class", c("Lexis", "data.table", "data.frame"))
+ if (verbose) cat("Time taken by cutLexis when defining event time points: ", timetaken(cutt), "\n")
+
+ if (verbose) cat("Data just after using cutLexis: \n")
+ if (verbose) print(l[])
+
+ }
+
+
+ # overlapping timelines? -----------------------------------------------------
+
+ if (!overlapping && any(duplicated(l$lex.id))) {
+ tmpFE <- makeTempVarName(l, pre = "fot_end_")
+ l[, (tmpFE) := fot + lex.dur]
+ ## don't keep duplicated rows:
+ ## same end points imply fully overlapping time lines
+ ## e.g.
+ ## --->
+ ## ->
+ ## -->
+ ## results in
+ ## ->
+ ## --->
+ ## we only keep the longest time line with a unique end point.
+
+ # setkeyv(l, c("lex.id", tmpFE, "fot"))
+ tmpLE <- intersect(names(l), "lex.event")
+ LEval <- if (length(tmpLE) == 0) NULL else -1
+
+ setorderv(l, c("lex.id", tmpFE, tmpLE, "fot"), c(1,1,LEval,1))
+ l <- unique(l, by = c("lex.id", tmpFE))
+
+ ## end points are kept but starting points are "rolled"
+ ## from first to last row by lex.id to ensure non-overlappingness; e.g.
+ ## ->
+ ## --->
+ ## results in
+ ## ->
+ ## ->
+ # setkeyv(l, c("lex.id", tmpFE))
+ # setorderv(l, c("lex.id", tmpLE, tmpFE), c(1, LEval, 1))
+ setkeyv(l, c("lex.id", tmpLE, tmpFE))
+
+ if (verbose) cat("data just before fixing overlapping time lines \n")
+ if (verbose) print(l)
+ l[, lex.dur := get(tmpFE) - c(min(fot), get(tmpFE)[-.N]), by = lex.id]
+ l[, fot := get(tmpFE) - lex.dur]
+ cumDur <- l[, list(age = min(age), per = min(per), cd = c(0, cumsum(lex.dur)[-.N])), by = lex.id]
+ cumDur[, age := age+cd]
+ cumDur[, per := per+cd]
+ l[, age := cumDur$age]
+ l[, per := cumDur$per]
+ l[, (tmpFE) := NULL]; rm(cumDur)
+
+
+ ## if event used, first row up to event, second row from first event to etc...
+ }
+
+ setcolsnull(l, "lex.event", soft = TRUE) ## note: lex.event needed in overlapping procedures
+
+ if (verbose) cat("time and status variables before splitting: \n")
+ if (verbose) print(l)
+ if ("id" %in% ls()) rm("id")
+
+
+ # splitting ------------------------------------------------------------------
+
+ ## determine whether to drop data only after splitting and merging
+ drop_after <- FALSE
+ if (drop == TRUE && comp_pp) {
+ drop <- FALSE
+ drop_after <- TRUE
+ }
+
+ forceLexisDT(l, breaks = list(fot = NULL, per = NULL, age = NULL),
+ allScales = c("fot", "per", "age"))
+ if (verbose) splittime <- proc.time()
+ l <- splitMulti(l, breaks = breaks,
+ drop = drop, verbose=FALSE, merge = TRUE)
+ setDT(l)
+ setkey(l, lex.id, fot)
+ l[, lex.multi := 1:.N, by = lex.id]
+ if (verbose) cat("Time taken by splitting:", timetaken(splittime), "\n")
+
+ # merging other variables from data ------------------------------------------
+
+ if (merge) {
+ setkey(l, temp.id)
+
+ temp <- data.table(idt, data[subset & !is.na(subset), ][l_subset, ])
+ setkey(temp, temp.id)
+
+ l <- temp[l]
+
+ rm(temp, idt)
+ setcolsnull(l, "temp.id")
+
+ lex_vars <- c("lex.id","lex.multi","fot","per","age", "lex.dur", "lex.Cst", "lex.Xst")
+ setcolorder(l, c(lex_vars, setdiff(names(l), lex_vars)))
+ }
+ rm(data, subset, l_subset)
+
+ ## aggregating checks --------------------------------------------------------
+ ## NOTE: aggre evaled here using small data subset to check that all needed
+ ## variables are found, etc.
+ aggSub <- substitute(aggre)
+ agTest <- evalPopArg(arg = aggSub, data = l[1:min(10L, .N), ],
+ enclos = PF, recursive = TRUE, DT = TRUE)
+ agTy <- attr(agTest, "arg.type")
+ if (is.null(agTy)) agTy <- "NULL"
+ aggSub <- attr(agTest, "quoted.arg")
+ agVars <- attr(agTest, "all.vars")
+ rm(aggre)
+
+ # merging pophaz and pp-weighting --------------------------------------------
+ if (!is.null(pophaz)) {
+
+ pophaztime <- proc.time()
+
+ if (any(c("haz", "pop.haz") %in% names(l))) stop("case data had variable(s) named 'haz' / 'pop.haz', which are reserved for lexpand's internal use. rename/remove them please.")
+ # merge surv.int information -----------------------------------------------
+ NULL_FOT <- FALSE
+ if (is.null(breaks$fot)) {
+ breaks$fot <- l[, c(0, max(fot+lex.dur))]
+ NULL_FOT <- TRUE
+ }
+
+ breaks$fot <- sort(unique(breaks$fot))
+ # handle pophaz data -------------------------------------------------------
+
+ if (!"haz" %in% names(pophaz)) stop("no 'haz' variable in pophaz; please rename you hazard variable to 'haz'")
+ yBy <- xBy <- setdiff(names(pophaz), c("haz"))
+ if (c("year") %in% yBy) xBy[yBy == "year"] <- "per"
+ if (c("agegroup") %in% yBy) xBy[yBy == "agegroup"] <- "age"
+ yByOth <- setdiff(yBy, c("year", "agegroup"))
+
+ if (any(!yByOth %in% names(l)))
+ stop("Following variable names not common between pophaz and data: ", paste0("'", yByOth[!yByOth %in% names(l)], "'", collapse = ", "))
+
+ l <- cutLowMerge(x = l, y = pophaz, by.x = xBy, by.y = yBy, all.x = TRUE,
+ all.y = FALSE, mid.scales = c("per", "age"), old.nums = TRUE)
+ setnames(l, "haz", "pop.haz")
+
+ ## check if l's merging time variables were within pophaz's limits ---------
+ nNA <- l[is.na(pop.haz), .N]
+ if (nNA > 0) message("WARNING: after merging pophaz, ", nNA, " rows in split data have NA hazard values!")
+
+ names(yBy) <- xBy
+ names(xBy) <- yBy
+ for (k in intersect(c("per", "age"), xBy)) {
+ yVar <- yBy[k]
+ kLo <- min(pophaz[[yVar]])
+ kHi <- max(pophaz[[yVar]])
+ mid <- l[, get(k) + lex.dur]
+ nLo <- sum(mid < kLo - .Machine$double.eps^0.5)
+ nHi <- sum(mid > kHi - .Machine$double.eps^0.5)
+ if (nLo > 0) message("WARNING: ", nLo, " rows in split data have NA values due to their mid-points residing below the minimum value of '", yVar, "' in pophaz!")
+ if (nHi > 0) message("NOTE: ", nHi, " rows in split data had values of '", k, "' higher than max of pophaz's '", yVar, "'; the hazard values at '", yVar, "' == ", kHi, " were used for these")
+ }
+ rm(mid)
+ for (k in yByOth) {
+ levsNotOth <- setdiff(unique(l[[k]]), unique(pophaz[[k]]))
+ if (length(levsNotOth) > 0) message("WARNING: following levels (first five) of variable '", k, "' not in pophaz but exist in split data: ", paste0("'",levsNotOth[1:5],"'", collapse = ", "))
+ }
+
+
+ # pohar-perme weighting ----------------------------------------------------
+ if (comp_pp) {
+ setkeyv(l, c("lex.id", "fot"))
+ comp_pp_weights(l, surv.scale = "fot", breaks = breaks$fot, haz = "pop.haz",
+ style = "delta", verbose = verbose)
+ }
+ merge_msg <- "Time taken by merging pophaz"
+ if (comp_pp) merge_msg <- paste0(merge_msg, " and computing pp")
+ merge_msg <- paste0(merge_msg, ": ")
+ if (verbose) cat(paste0(merge_msg, timetaken(pophaztime), "\n"))
+
+
+ }
+
+ # dropping after merging -----------------------------------------------------
+ if (drop_after) {
+ l <- intelliDrop(x = l, breaks = breaks)
+ }
+
+ if (verbose) cat("Number of rows after splitting: ", nrow(l),"\n")
+
+
+ # aggregating if appropriate -------------------------------------------------
+ if (agTy != "NULL") {
+
+ setcolsnull(l, keep = c("lex.id","lex.dur", "fot", "per", "age", "lex.Cst", "lex.Xst", agVars, "pop.haz", "pp"))
+
+ sumVars <- NULL
+ if ("pop.haz" %in% names(l)) {
+ if ("d.exp" %in% names(l)) stop("data had variable named 'd.exp' by which to aggregate, which would be overwritten due to aggregating expected numbers of cases (you have supplied pophaz AND are aggregating); please rename / remove it first.")
+ l[, c("d.exp") := pop.haz*lex.dur ]
+ sumVars <- c(sumVars, "d.exp")
+ }
+ if ("pop.haz" %in% names(l) && comp_pp && "pp" %in% names(l)) {
+ forceLexisDT(l, breaks = breaks, allScales = c("fot", "per", "age"))
+ ppFigs <- comp_pp_weighted_figures(lex = l, haz = "pop.haz", pp = "pp", event.ind = NULL)
+ bad_pp_vars <- intersect(names(ppFigs), names(l))
+ if (length(bad_pp_vars) > 0L) {
+ bad_pp_vars <- paste0("'",bad_pp_vars, "'", collapse = ", ")
+ stop("Data had variable(s) named ", bad_pp_vars, ", by which to aggregate, which would be overwritten due to aggregating expected numbers of cases (you have supplied pophaz AND are aggregating); please rename / remove them first")
+ }
+ l[, names(ppFigs) := ppFigs]
+ sumVars <- c(sumVars, names(ppFigs))
+ rm(ppFigs)
+
+ }
+
+ if (verbose) cat("Starting aggregation of split data... \n")
+ setDT(l)
+ forceLexisDT(l, allScales = c("fot", "per", "age"), breaks = breaks)
+ l <- try(aggre(lex = l, by = aggSub, type = aggre.type, verbose = verbose, sum.values = sumVars))
+ if (inherits(l, "try-error")) stop("Something went wrong when calling aggre() within lexpand(). Usual suspect: bad 'by' argument. Error message from aggre():
+ ", paste0(l[[1]]))
+ if (verbose) cat("Aggregation done. \n")
+
+ if (!return_DT() && is.data.table(l)) setDFpe(l)
+
+ } else {
+
+
+ # last touch-up --------------------------------------------------------------
+ ## sometimes problems with releasing memory
+ gc()
+
+ breaks <- lapply(c("fot","per","age"), function(ts_nm) {
+ breaks[[ts_nm]]
+ })
+ names(breaks) <- c("fot","per","age")
+
+ ## handle attributes
+ setkeyv(l, c("lex.id", "lex.multi"))
+ set(l, j = "lex.multi", value = NULL)
+ setattr(l, "time.scales", c("fot","per","age"))
+ setattr(l, "time.since", c("","",""))
+ setattr(l, "breaks", breaks)
+ setattr(l, "class", c("Lexis","data.table","data.frame"))
+ if (!return_DT() && is.data.table(l)) setDFpe(l)
+
+
+
+ }
+
+ if (verbose) cat("Time taken by lexpand(): ", timetaken(start_time), "\n")
+
+ return(l[])
+}
+
+
+globalVariables(c('.EACHI', "dg_date", "ex_date", "bi_date"))
+
diff --git a/R/long_df_and_array.R b/R/long_df_and_array.R
index 9dc3d74..470742f 100644
--- a/R/long_df_and_array.R
+++ b/R/long_df_and_array.R
@@ -1,297 +1,297 @@
-
-
-
-
-
-#' @title `array`s, `data.frame`s and `ratetable`s
-#' @description
-#' Utilities to transform objects between `array`, `data.frame`, and
-#' [survival::ratetable].
-#' @param x `[data.frame, data.table, array, ratetable]` (mandatory, no default)
-#'
-#' - `long_df_to_array`: a `data.frame`
-#' - `long_df_to_ratetable`: a `data.frame`
-#' - `long_dt_to_array`: a `data.table`
-#' - `long_dt_to_ratetable`: a `data.table`
-#' - `array_to_long_df`: an `array`
-#' - `array_to_long_dt`: an `array`
-#' - `array_to_ratetable`: an `array`
-#' - `ratetable_to_array`: a [survival::ratetable]
-#' - `ratetable_to_long_df`: a [survival::ratetable]
-#' - `ratetable_to_long_dt`: a [survival::ratetable]
-#' @name array_df_ratetable_utils
-#' @examples
-#'
-#' long_dt <- popEpi::popmort
-#' arr <- long_df_to_array(long_dt, c("agegroup", "year", "sex"), "haz")
-#' rt <- array_to_ratetable(arr, dim.types = c(2L, 4L, 1L))
-#'
-#' arr2 <- ratetable_to_array(rt)
-#' long_df2 <- array_to_long_df(arr2)
-#'
-#' identical(sort(long_dt[["haz"]]), sort(long_df2[["value"]]))
-#' @return
-#'
-#' - `long_df_to_array`: an `array`
-#' - `long_df_to_ratetable`: a [survival::ratetable]
-#' - `long_dt_to_array`: an `array`
-#' - `long_dt_to_ratetable`: a [survival::ratetable]
-#' - `array_to_long_df`: an `data.frame`
-#' - `array_to_long_dt`: an `data.table`
-#' - `array_to_ratetable`: a [survival::ratetable]
-#' - `ratetable_to_array`: an `array`
-#' - `ratetable_to_long_df`: a `data.frame`
-#' - `ratetable_to_long_dt`: a `data.table`
-
-
-
-#' @rdname array_df_ratetable_utils
-#' @export
-#' @param stratum.col.nms `[character]` (mandatory, no default)
-#'
-#' a vector of column names in `x` by which values are stratified
-#'
-#' @param value.col.nm `[character]` (mandatory, no default)
-#'
-#' name of column in `x` containing values (these will be contents of the
-#' array)
-#' @details
-#' - `long_df_to_array`: converts a long-format `data.frame` to an `array`
-#' with one or more dimensions
-long_df_to_array <- function(x, stratum.col.nms, value.col.nm) {
- stopifnot(
- is.data.frame(x),
-
- is.character(stratum.col.nms),
- length(stratum.col.nms) >= 1,
- stratum.col.nms %in% names(x),
- !duplicated(stratum.col.nms),
-
- length(value.col.nm) == 1,
- value.col.nm %in% names(x)
- )
-
- dn <- lapply(stratum.col.nms, function(col_nm) {
- sort(unique(x[[col_nm]]))
- })
- names(dn) <- stratum.col.nms
-
- d <- vapply(dn, length, integer(1L))
- n_dims <- length(d)
-
- arr <- array(x[[value.col.nm]][0L], d)
-
- wh <- do.call(cbind, lapply(stratum.col.nms, function(col_nm) {
- match(x[[col_nm]], dn[[col_nm]])
- }))
- arr[wh] <- x[[value.col.nm]]
-
- dimnames(arr) <- dn
- arr
-}
-
-#' @rdname array_df_ratetable_utils
-#' @export
-#' @details
-#' - `long_df_to_ratetable`: calls `long_df_to_array` and then
-#' `array_to_ratetable`
-long_df_to_ratetable <- function(
- x,
- stratum.col.nms,
- value.col.nm,
- dim.types,
- cut.points = NULL
-) {
- arr <- long_df_to_array(x = x, stratum.col.nms = stratum.col.nms,
- value.col.nm = value.col.nm)
- array_to_ratetable(x = arr, dim.types = dim.types, cut.points = cut.points)
-}
-
-
-#' @rdname array_df_ratetable_utils
-#' @export
-#' @details
-#' - `long_dt_to_array`: simply asserts that `x` is a `data.table` and
-#' calls `long_df_to_array`
-#' @importFrom data.table is.data.table
-long_dt_to_array <- function(x, stratum.col.nms, value.col.nm) {
- stopifnot(data.table::is.data.table(x))
- long_df_to_array(x, stratum.col.nms, value.col.nm)
-}
-
-
-
-#' @rdname array_df_ratetable_utils
-#' @export
-#' @details
-#' - `long_dt_to_ratetable`: calls `long_dt_to_array` and then
-#' `array_to_ratetable`
-long_dt_to_ratetable <- function(
- x,
- stratum.col.nms,
- value.col.nm,
- dim.types,
- cut.points = NULL
-) {
- arr <- long_dt_to_array(x = x, stratum.col.nms = stratum.col.nms,
- value.col.nm = value.col.nm)
- array_to_ratetable(x = arr, dim.types = dim.types, cut.points = cut.points)
-}
-
-#' @rdname array_df_ratetable_utils
-#' @export
-#' @details
-#' - `array_to_long_df`: converts an array with one or more dimensions into
-#' a long-format `data.frame`; any [dimnames] are used to name and fill the
-#' stratifying columns; for dimensions without a name, `".dX"` is used
-#' for stratifying column number `X`; for each `k`, if there are no contents
-#' in `dimnames(x)[[k]]`, the elements of `seq(dim(x)[k])` are used to fill
-#' the corresponding stratifying column; the value column always has the name
-#' `"value"`
-array_to_long_df <- function(x) {
- stopifnot(
- is.array(x)
- )
-
- d <- dim(x)
-
- dn <- dimnames(x)
- if (is.null(dn)) {
- dn <- vector("list", length(d))
- }
- dn[] <- lapply(seq_along(dn), function(k) {
- nm_vec <- dn[[k]]
- if (is.null(nm_vec)) {
- nm_vec <- seq(d[k])
- }
- nm_vec
- })
- if (length(setdiff(names(dn), "")) == 0L) {
- names(dn) <- rep("", length(dn))
- }
- names(dn) <- vapply(seq_along(dn), function(k) {
- nm <- names(dn)[k]
- if (nm == "") {
- nm <- paste0(".d", k)
- }
- nm
- }, character(1))
-
- df <- as.data.frame(which(array(TRUE, d), arr.ind = TRUE))
- names(df) <- names(dn)
- df[, ] <- lapply(seq_along(d), function(k) {
- dn[[k]][df[[k]]]
- })
-
- df[["value"]] <- as.vector(x)
- df
-}
-
-
-#' @rdname array_df_ratetable_utils
-#' @export
-#' @details
-#' - `array_to_long_dt`: calls `array_to_long_df` and converts result to a
-#' `data.table` for convenience
-#' @importFrom data.table setDT
-array_to_long_dt <- function(x) {
- df <- array_to_long_df(x)
- data.table::setDT(df)
- df[]
-}
-
-
-
-
-
-
-#' @rdname array_df_ratetable_utils
-#' @export
-#' @details
-#' - `array_to_ratetable`: converts an array to a [survival::ratetable]
-#' @param dim.types `[integer]` (mandatory, no default)
-#'
-#' see `type` under **Details** in [survival::ratetable]
-#' @param cut.points `[NULL, list]` (optional, default `NULL`)
-#'
-#' see `cutpoints` under **Details** in [survival::ratetable]
-#'
-#' - `NULL`: automatically set using `dimnames(x)` and `dim.types`
-#' - `list`: one element for each dimensions of `x`
-#' @importFrom data.table copy setattr
-array_to_ratetable <- function(x, dim.types, cut.points = NULL) {
- stopifnot(
- is.array(x),
- length(dim.types) == length(dim(x)),
- dim.types %in% 1:4,
-
- is.null(cut.points) || inherits(cut.points, "list")
- )
- if (is.null(cut.points)) {
- cut.points <- lapply(seq_along(dim.types), function(k) {
- if (dim.types[k] == 1L) {
- return(NULL)
- }
- cp <- as.numeric(dimnames(x)[[k]])
- if (all(cp %% 1L == 0L)) {
- cp <- as.integer(cp)
- }
- cp
- })
- }
-
- x <- data.table::copy(x)
- data.table::setattr(x, "type", as.integer(dim.types))
- data.table::setattr(x, "cutpoints", cut.points)
- data.table::setattr(x, "class", "ratetable")
- x
-}
-
-
-
-
-
-#' @rdname array_df_ratetable_utils
-#' @export
-#' @details
-#' - `ratetable_to_array`: converts a [survival::ratetable] to an array
-#' @importFrom data.table copy setattr
-ratetable_to_array <- function(x) {
- stopifnot(
- inherits(x, "ratetable")
- )
- array(x, dim = dim(x), dimnames = dimnames(x))
-}
-
-#' @rdname array_df_ratetable_utils
-#' @export
-#' @details
-#' - `ratetable_to_long_df`: calls `ratetable_to_array` and then
-#' `array_to_long_df`
-#' @importFrom data.table copy setattr
-ratetable_to_long_df <- function(x) {
- array_to_long_df(ratetable_to_array(x))
-}
-
-#' @rdname array_df_ratetable_utils
-#' @export
-#' @details
-#' - `ratetable_to_long_dt`: calls `ratetable_to_array` and then
-#' `array_to_long_dt`
-#' @importFrom data.table copy setattr
-ratetable_to_long_dt <- function(x) {
- array_to_long_dt(ratetable_to_array(x))
-}
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+#' @title `array`s, `data.frame`s and `ratetable`s
+#' @description
+#' Utilities to transform objects between `array`, `data.frame`, and
+#' [survival::ratetable].
+#' @param x `[data.frame, data.table, array, ratetable]` (mandatory, no default)
+#'
+#' - `long_df_to_array`: a `data.frame`
+#' - `long_df_to_ratetable`: a `data.frame`
+#' - `long_dt_to_array`: a `data.table`
+#' - `long_dt_to_ratetable`: a `data.table`
+#' - `array_to_long_df`: an `array`
+#' - `array_to_long_dt`: an `array`
+#' - `array_to_ratetable`: an `array`
+#' - `ratetable_to_array`: a [survival::ratetable]
+#' - `ratetable_to_long_df`: a [survival::ratetable]
+#' - `ratetable_to_long_dt`: a [survival::ratetable]
+#' @name array_df_ratetable_utils
+#' @examples
+#'
+#' long_dt <- popEpi::popmort
+#' arr <- long_df_to_array(long_dt, c("agegroup", "year", "sex"), "haz")
+#' rt <- array_to_ratetable(arr, dim.types = c(2L, 4L, 1L))
+#'
+#' arr2 <- ratetable_to_array(rt)
+#' long_df2 <- array_to_long_df(arr2)
+#'
+#' identical(sort(long_dt[["haz"]]), sort(long_df2[["value"]]))
+#' @return
+#'
+#' - `long_df_to_array`: an `array`
+#' - `long_df_to_ratetable`: a [survival::ratetable]
+#' - `long_dt_to_array`: an `array`
+#' - `long_dt_to_ratetable`: a [survival::ratetable]
+#' - `array_to_long_df`: an `data.frame`
+#' - `array_to_long_dt`: an `data.table`
+#' - `array_to_ratetable`: a [survival::ratetable]
+#' - `ratetable_to_array`: an `array`
+#' - `ratetable_to_long_df`: a `data.frame`
+#' - `ratetable_to_long_dt`: a `data.table`
+
+
+
+#' @rdname array_df_ratetable_utils
+#' @export
+#' @param stratum.col.nms `[character]` (mandatory, no default)
+#'
+#' a vector of column names in `x` by which values are stratified
+#'
+#' @param value.col.nm `[character]` (mandatory, no default)
+#'
+#' name of column in `x` containing values (these will be contents of the
+#' array)
+#' @details
+#' - `long_df_to_array`: converts a long-format `data.frame` to an `array`
+#' with one or more dimensions
+long_df_to_array <- function(x, stratum.col.nms, value.col.nm) {
+ stopifnot(
+ is.data.frame(x),
+
+ is.character(stratum.col.nms),
+ length(stratum.col.nms) >= 1,
+ stratum.col.nms %in% names(x),
+ !duplicated(stratum.col.nms),
+
+ length(value.col.nm) == 1,
+ value.col.nm %in% names(x)
+ )
+
+ dn <- lapply(stratum.col.nms, function(col_nm) {
+ sort(unique(x[[col_nm]]))
+ })
+ names(dn) <- stratum.col.nms
+
+ d <- vapply(dn, length, integer(1L))
+ n_dims <- length(d)
+
+ arr <- array(x[[value.col.nm]][0L], d)
+
+ wh <- do.call(cbind, lapply(stratum.col.nms, function(col_nm) {
+ match(x[[col_nm]], dn[[col_nm]])
+ }))
+ arr[wh] <- x[[value.col.nm]]
+
+ dimnames(arr) <- dn
+ arr
+}
+
+#' @rdname array_df_ratetable_utils
+#' @export
+#' @details
+#' - `long_df_to_ratetable`: calls `long_df_to_array` and then
+#' `array_to_ratetable`
+long_df_to_ratetable <- function(
+ x,
+ stratum.col.nms,
+ value.col.nm,
+ dim.types,
+ cut.points = NULL
+) {
+ arr <- long_df_to_array(x = x, stratum.col.nms = stratum.col.nms,
+ value.col.nm = value.col.nm)
+ array_to_ratetable(x = arr, dim.types = dim.types, cut.points = cut.points)
+}
+
+
+#' @rdname array_df_ratetable_utils
+#' @export
+#' @details
+#' - `long_dt_to_array`: simply asserts that `x` is a `data.table` and
+#' calls `long_df_to_array`
+#' @importFrom data.table is.data.table
+long_dt_to_array <- function(x, stratum.col.nms, value.col.nm) {
+ stopifnot(data.table::is.data.table(x))
+ long_df_to_array(x, stratum.col.nms, value.col.nm)
+}
+
+
+
+#' @rdname array_df_ratetable_utils
+#' @export
+#' @details
+#' - `long_dt_to_ratetable`: calls `long_dt_to_array` and then
+#' `array_to_ratetable`
+long_dt_to_ratetable <- function(
+ x,
+ stratum.col.nms,
+ value.col.nm,
+ dim.types,
+ cut.points = NULL
+) {
+ arr <- long_dt_to_array(x = x, stratum.col.nms = stratum.col.nms,
+ value.col.nm = value.col.nm)
+ array_to_ratetable(x = arr, dim.types = dim.types, cut.points = cut.points)
+}
+
+#' @rdname array_df_ratetable_utils
+#' @export
+#' @details
+#' - `array_to_long_df`: converts an array with one or more dimensions into
+#' a long-format `data.frame`; any [dimnames] are used to name and fill the
+#' stratifying columns; for dimensions without a name, `".dX"` is used
+#' for stratifying column number `X`; for each `k`, if there are no contents
+#' in `dimnames(x)[[k]]`, the elements of `seq(dim(x)[k])` are used to fill
+#' the corresponding stratifying column; the value column always has the name
+#' `"value"`
+array_to_long_df <- function(x) {
+ stopifnot(
+ is.array(x)
+ )
+
+ d <- dim(x)
+
+ dn <- dimnames(x)
+ if (is.null(dn)) {
+ dn <- vector("list", length(d))
+ }
+ dn[] <- lapply(seq_along(dn), function(k) {
+ nm_vec <- dn[[k]]
+ if (is.null(nm_vec)) {
+ nm_vec <- seq(d[k])
+ }
+ nm_vec
+ })
+ if (length(setdiff(names(dn), "")) == 0L) {
+ names(dn) <- rep("", length(dn))
+ }
+ names(dn) <- vapply(seq_along(dn), function(k) {
+ nm <- names(dn)[k]
+ if (nm == "") {
+ nm <- paste0(".d", k)
+ }
+ nm
+ }, character(1))
+
+ df <- as.data.frame(which(array(TRUE, d), arr.ind = TRUE))
+ names(df) <- names(dn)
+ df[, ] <- lapply(seq_along(d), function(k) {
+ dn[[k]][df[[k]]]
+ })
+
+ df[["value"]] <- as.vector(x)
+ df
+}
+
+
+#' @rdname array_df_ratetable_utils
+#' @export
+#' @details
+#' - `array_to_long_dt`: calls `array_to_long_df` and converts result to a
+#' `data.table` for convenience
+#' @importFrom data.table setDT
+array_to_long_dt <- function(x) {
+ df <- array_to_long_df(x)
+ data.table::setDT(df)
+ df[]
+}
+
+
+
+
+
+
+#' @rdname array_df_ratetable_utils
+#' @export
+#' @details
+#' - `array_to_ratetable`: converts an array to a [survival::ratetable]
+#' @param dim.types `[integer]` (mandatory, no default)
+#'
+#' see `type` under **Details** in [survival::ratetable]
+#' @param cut.points `[NULL, list]` (optional, default `NULL`)
+#'
+#' see `cutpoints` under **Details** in [survival::ratetable]
+#'
+#' - `NULL`: automatically set using `dimnames(x)` and `dim.types`
+#' - `list`: one element for each dimensions of `x`
+#' @importFrom data.table copy setattr
+array_to_ratetable <- function(x, dim.types, cut.points = NULL) {
+ stopifnot(
+ is.array(x),
+ length(dim.types) == length(dim(x)),
+ dim.types %in% 1:4,
+
+ is.null(cut.points) || inherits(cut.points, "list")
+ )
+ if (is.null(cut.points)) {
+ cut.points <- lapply(seq_along(dim.types), function(k) {
+ if (dim.types[k] == 1L) {
+ return(NULL)
+ }
+ cp <- as.numeric(dimnames(x)[[k]])
+ if (all(cp %% 1L == 0L)) {
+ cp <- as.integer(cp)
+ }
+ cp
+ })
+ }
+
+ x <- data.table::copy(x)
+ data.table::setattr(x, "type", as.integer(dim.types))
+ data.table::setattr(x, "cutpoints", cut.points)
+ data.table::setattr(x, "class", "ratetable")
+ x
+}
+
+
+
+
+
+#' @rdname array_df_ratetable_utils
+#' @export
+#' @details
+#' - `ratetable_to_array`: converts a [survival::ratetable] to an array
+#' @importFrom data.table copy setattr
+ratetable_to_array <- function(x) {
+ stopifnot(
+ inherits(x, "ratetable")
+ )
+ array(x, dim = dim(x), dimnames = dimnames(x))
+}
+
+#' @rdname array_df_ratetable_utils
+#' @export
+#' @details
+#' - `ratetable_to_long_df`: calls `ratetable_to_array` and then
+#' `array_to_long_df`
+#' @importFrom data.table copy setattr
+ratetable_to_long_df <- function(x) {
+ array_to_long_df(ratetable_to_array(x))
+}
+
+#' @rdname array_df_ratetable_utils
+#' @export
+#' @details
+#' - `ratetable_to_long_dt`: calls `ratetable_to_array` and then
+#' `array_to_long_dt`
+#' @importFrom data.table copy setattr
+ratetable_to_long_dt <- function(x) {
+ array_to_long_dt(ratetable_to_array(x))
+}
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/R/ltable.R b/R/ltable.R
index 7929288..8e31742 100644
--- a/R/ltable.R
+++ b/R/ltable.R
@@ -1,255 +1,255 @@
-#' @title Tabulate Counts and Other Functions by Multiple Variables into a
-#' Long-Format Table
-#' @author Joonas Miettinen, Matti Rantanen
-#' @description \code{ltable} makes use of \code{data.table}
-#' capabilities to tabulate frequencies or
-#' arbitrary functions of given variables into a long format
-#' \code{data.table}/\code{data.frame}. \code{expr.by.cj} is the
-#' equivalent for more advanced users.
-#' @param data a \code{data.table}/\code{data.frame}
-#' @param by.vars names of variables that are used for categorization,
-#' as a character vector, e.g. \code{c('sex','agegroup')}
-#' @param expr object or a list of objects where each object is a function
-#' of a variable (see: details)
-#' @param subset a logical condition; data is limited accordingly before
-#' evaluating \code{expr} - but the result of \code{expr} is also
-#' returned as \code{NA} for levels not existing in the subset. See Examples.
-#' @param use.levels logical; if \code{TRUE}, uses factor levels of given
-#' variables if present; if you want e.g. counts for levels
-#' that actually have zero observations but are levels in a factor variable,
-#' use this
-#' @param na.rm logical; if \code{TRUE}, drops rows in table that have
-#' \code{NA} as values in any of \code{by.vars} columns
-#' @param robust logical; if \code{TRUE}, runs the output data's
-#' \code{by.vars} columns through \code{robust_values} before outputting
-#' @param .SDcols advanced; a character vector of column names
-#' passed to inside the data.table's brackets
-#' \code{DT[, , ...]}; see \code{\link{data.table}}; if \code{NULL},
-#' uses all appropriate columns. See Examples for usage.
-#' @param enclos advanced; an environment; the enclosing
-#' environment of the data.
-#' @param ... advanced; other arguments passed to inside the
-#' data.table's brackets \code{DT[, , ...]}; see \code{\link{data.table}}
-#'
-#' @import data.table
-#'
-#' @details
-#'
-#' Returns \code{expr} for each unique combination of given \code{by.vars}.
-#'
-#' By default makes use of any and all \code{\link{levels}} present for
-#' each variable in \code{by.vars}. This is useful,
-#' because even if a subset of the data does not contain observations
-#' for e.g. a specific age group, those age groups are
-#' nevertheless presented in the resulting table; e.g. with the default
-#' \code{expr = list(obs = .N)} all age group levels
-#' are represented by a row and can have \code{obs = 0}.
-#'
-#' The function differs from the
-#' vanilla \code{\link{table}} by giving a long format table of values
-#' regardless of the number of \code{by.vars} given.
-#' Make use of e.g. \code{\link{cast_simple}} if data needs to be
-#' presented in a wide format (e.g. a two-way table).
-#'
-#' The rows of the long-format table are effectively Cartesian products
-#' of the levels of each variable in \code{by.vars},
-#' e.g. with \code{by.vars = c("sex", "area")} all levels of
-#' \code{area} are repeated for both levels of \code{sex}
-#' in the table.
-#'
-#' The \code{expr} allows the user to apply any function(s) on all
-#' levels defined by \code{by.vars}. Here are some examples:
-#' \itemize{
-#' \item .N or list(.N) is a function used inside a \code{data.table} to
-#' calculate counts in each group
-#' \item list(obs = .N), same as above but user assigned variable name
-#' \item list(sum(obs), sum(pyrs), mean(dg_age)), multiple objects in a list
-#' \item list(obs = sum(obs), pyrs = sum(pyrs)), same as above with user
-#' defined variable names
-#' }
-#'
-#' If \code{use.levels = FALSE}, no \code{levels} information will
-#' be used. This means that if e.g. the \code{agegroup}
-#' variable is a factor and has 18 levels defined, but only 15 levels
-#' are present in the data, no rows for the missing
-#' levels will be shown in the table.
-#'
-#' \code{na.rm} simply drops any rows from the resulting table where
-#' any of the \code{by.vars} values was \code{NA}.
-#'
-#' @seealso
-#' \code{\link{table}}, \code{\link{cast_simple}}, \code{\link{melt}}
-#'
-#' @return
-#' A `data.table` of statistics (e.g. counts) stratified by the columns defined
-#' in `by.vars`.
-#'
-#' @export ltable
-#'
-#' @examples
-#' data("sire", package = "popEpi")
-#' sr <- sire
-#' sr$agegroup <- cut(sr$dg_age, breaks=c(0,45,60,75,85,Inf))
-#' ## counts by default
-#' ltable(sr, "agegroup")
-#'
-#' ## any expression can be given
-#' ltable(sr, "agegroup", list(mage = mean(dg_age)))
-#' ltable(sr, "agegroup", list(mage = mean(dg_age), vage = var(dg_age)))
-#'
-#' ## also returns levels where there are zero rows (expressions as NA)
-#' ltable(sr, "agegroup", list(obs = .N,
-#' minage = min(dg_age),
-#' maxage = max(dg_age)),
-#' subset = dg_age < 85)
-#'
-#' #### expr.by.cj
-#' expr.by.cj(sr, "agegroup")
-#'
-#' ## any arbitrary expression can be given
-#' expr.by.cj(sr, "agegroup", list(mage = mean(dg_age)))
-#' expr.by.cj(sr, "agegroup", list(mage = mean(dg_age), vage = var(dg_age)))
-#'
-#' ## only uses levels of by.vars present in data
-#' expr.by.cj(sr, "agegroup", list(mage = mean(dg_age), vage = var(dg_age)),
-#' subset = dg_age < 70)
-#'
-#' ## .SDcols trick
-#' expr.by.cj(sr, "agegroup", lapply(.SD, mean),
-#' subset = dg_age < 70, .SDcols = c("dg_age", "status"))
-
-ltable <- function(data,
- by.vars = NULL,
- expr = list(obs = .N),
- subset = NULL,
- use.levels = TRUE,
- na.rm = FALSE,
- robust = TRUE) {
-
- PF <- parent.frame()
- TF <- environment()
-
- e <- substitute(expr)
-
- ## eval subset ---------------------------------------------------------------
- subset <- substitute(subset)
- subset <- evalLogicalSubset(data, subset, enclos = PF)
-
- ## create table --------------------------------------------------------------
- res <- expr.by.cj(data = data,
- by.vars = by.vars,
- expr = e,
- subset = subset,
- use.levels = use.levels,
- na.rm = na.rm,
- robust = robust)
-
-
- ## final touch ---------------------------------------------------------------
-
- if (!return_DT()) {
- setDFpe(res)
- }
- res
-
-}
-
-
-
-
-#' @describeIn ltable Somewhat more streamlined \code{ltable} with
-#' defaults for speed. Explicit determination of enclosing environment
-#' of data.
-#' @export expr.by.cj
-
-expr.by.cj <- function(data,
- by.vars = NULL,
- expr = list(obs = .N),
- subset = NULL,
- use.levels = FALSE,
- na.rm = FALSE,
- robust = FALSE,
- .SDcols = NULL,
- enclos = parent.frame(1L),
- ...) {
-
- PF <- enclos
- TF <- environment()
-
-
- ## checks --------------------------------------------------------------------
- if (!is.data.frame(data)) {
- stop("Argument 'data' must be data.frame (data.table is fine too)")
- }
-
- stopifnot(is.environment(enclos))
- stopifnot(is.logical(na.rm))
- stopifnot(is.logical(use.levels))
-
- stopifnot(is.character(by.vars) || is.null(by.vars))
- all_names_present(data, c(by.vars))
-
- stopifnot(is.character(.SDcols) || is.null(.SDcols))
- all_names_present(data, .SDcols)
-
- tab <- data.table(data[1:min(10, nrow(data)),])
- e <- substitute(expr)
- e <- tab[, evalRecursive(e, env = .SD, enc = PF)$argSub]
-
- ## eval subset ---------------------------------------------------------------
- subset <- substitute(subset)
- subset <- evalLogicalSubset(data, subset, enclos = PF)
-
- ## retrieve data to use without taking copy ----------------------------------
-
- tabVars <- unique(c(by.vars, all.vars(e), .SDcols))
- tabVars <- intersect(names(data), tabVars)
-
- tab <- mget(tabVars, envir = as.environment(data))
- setDT(tab)
-
- tmpDum <- makeTempVarName(data, pre = "dummy_")
- if (!length(by.vars)) {
- if (!length(tab)) {
- ## no by.vars nor variables in expr
- tab <- data.table(rep(1L, nrow(data)))
- setnames(tab, "V1", tmpDum)
- } else {
- tab[, c(tmpDum) := 1L]
- }
- by.vars <- tmpDum
- }
-
- ## create joining table ------------------------------------------------------
- lev_fun <- function(x) {
- if (use.levels && is.factor(x)) {
- factor(levels(x), levels = levels(x))
- } else {
- sort(unique(x), na.last = TRUE)
- }
- }
- cj <- lapply(as.list(tab)[by.vars], lev_fun)
- cj <- do.call(CJ, c(cj, unique = FALSE, sorted = FALSE))
- if (na.rm) cj <- na.omit(cj)
-
- ## eval expression -----------------------------------------------------------
- tabe <- "tab[subset][cj, eval(e),
- on = by.vars,
- by = .EACHI, ..."
- tabe <- if (is.null(.SDcols)) tabe else paste0(tabe, ", .SDcols = .SDcols")
- tabe <- paste0(tabe ,"]")
- res <- eval(parse(text = tabe))
-
- setcolsnull(res, delete = tmpDum, soft = TRUE)
- by.vars <- setdiff(by.vars, tmpDum)
-
- ## final touch ---------------------------------------------------------------
- if (length(res)) setcolorder(res, c(by.vars, setdiff(names(res), by.vars)))
- if (length(by.vars)) setkeyv(res, by.vars)
- if (!return_DT()) {
- setDFpe(res)
- }
- res
-
-}
-
+#' @title Tabulate Counts and Other Functions by Multiple Variables into a
+#' Long-Format Table
+#' @author Joonas Miettinen, Matti Rantanen
+#' @description \code{ltable} makes use of \code{data.table}
+#' capabilities to tabulate frequencies or
+#' arbitrary functions of given variables into a long format
+#' \code{data.table}/\code{data.frame}. \code{expr.by.cj} is the
+#' equivalent for more advanced users.
+#' @param data a \code{data.table}/\code{data.frame}
+#' @param by.vars names of variables that are used for categorization,
+#' as a character vector, e.g. \code{c('sex','agegroup')}
+#' @param expr object or a list of objects where each object is a function
+#' of a variable (see: details)
+#' @param subset a logical condition; data is limited accordingly before
+#' evaluating \code{expr} - but the result of \code{expr} is also
+#' returned as \code{NA} for levels not existing in the subset. See Examples.
+#' @param use.levels logical; if \code{TRUE}, uses factor levels of given
+#' variables if present; if you want e.g. counts for levels
+#' that actually have zero observations but are levels in a factor variable,
+#' use this
+#' @param na.rm logical; if \code{TRUE}, drops rows in table that have
+#' \code{NA} as values in any of \code{by.vars} columns
+#' @param robust logical; if \code{TRUE}, runs the output data's
+#' \code{by.vars} columns through \code{robust_values} before outputting
+#' @param .SDcols advanced; a character vector of column names
+#' passed to inside the data.table's brackets
+#' \code{DT[, , ...]}; see \code{\link{data.table}}; if \code{NULL},
+#' uses all appropriate columns. See Examples for usage.
+#' @param enclos advanced; an environment; the enclosing
+#' environment of the data.
+#' @param ... advanced; other arguments passed to inside the
+#' data.table's brackets \code{DT[, , ...]}; see \code{\link{data.table}}
+#'
+#' @import data.table
+#'
+#' @details
+#'
+#' Returns \code{expr} for each unique combination of given \code{by.vars}.
+#'
+#' By default makes use of any and all \code{\link{levels}} present for
+#' each variable in \code{by.vars}. This is useful,
+#' because even if a subset of the data does not contain observations
+#' for e.g. a specific age group, those age groups are
+#' nevertheless presented in the resulting table; e.g. with the default
+#' \code{expr = list(obs = .N)} all age group levels
+#' are represented by a row and can have \code{obs = 0}.
+#'
+#' The function differs from the
+#' vanilla \code{\link{table}} by giving a long format table of values
+#' regardless of the number of \code{by.vars} given.
+#' Make use of e.g. \code{\link{cast_simple}} if data needs to be
+#' presented in a wide format (e.g. a two-way table).
+#'
+#' The rows of the long-format table are effectively Cartesian products
+#' of the levels of each variable in \code{by.vars},
+#' e.g. with \code{by.vars = c("sex", "area")} all levels of
+#' \code{area} are repeated for both levels of \code{sex}
+#' in the table.
+#'
+#' The \code{expr} allows the user to apply any function(s) on all
+#' levels defined by \code{by.vars}. Here are some examples:
+#' \itemize{
+#' \item .N or list(.N) is a function used inside a \code{data.table} to
+#' calculate counts in each group
+#' \item list(obs = .N), same as above but user assigned variable name
+#' \item list(sum(obs), sum(pyrs), mean(dg_age)), multiple objects in a list
+#' \item list(obs = sum(obs), pyrs = sum(pyrs)), same as above with user
+#' defined variable names
+#' }
+#'
+#' If \code{use.levels = FALSE}, no \code{levels} information will
+#' be used. This means that if e.g. the \code{agegroup}
+#' variable is a factor and has 18 levels defined, but only 15 levels
+#' are present in the data, no rows for the missing
+#' levels will be shown in the table.
+#'
+#' \code{na.rm} simply drops any rows from the resulting table where
+#' any of the \code{by.vars} values was \code{NA}.
+#'
+#' @seealso
+#' \code{\link{table}}, \code{\link{cast_simple}}, \code{\link{melt}}
+#'
+#' @return
+#' A `data.table` of statistics (e.g. counts) stratified by the columns defined
+#' in `by.vars`.
+#'
+#' @export ltable
+#'
+#' @examples
+#' data("sire", package = "popEpi")
+#' sr <- sire
+#' sr$agegroup <- cut(sr$dg_age, breaks=c(0,45,60,75,85,Inf))
+#' ## counts by default
+#' ltable(sr, "agegroup")
+#'
+#' ## any expression can be given
+#' ltable(sr, "agegroup", list(mage = mean(dg_age)))
+#' ltable(sr, "agegroup", list(mage = mean(dg_age), vage = var(dg_age)))
+#'
+#' ## also returns levels where there are zero rows (expressions as NA)
+#' ltable(sr, "agegroup", list(obs = .N,
+#' minage = min(dg_age),
+#' maxage = max(dg_age)),
+#' subset = dg_age < 85)
+#'
+#' #### expr.by.cj
+#' expr.by.cj(sr, "agegroup")
+#'
+#' ## any arbitrary expression can be given
+#' expr.by.cj(sr, "agegroup", list(mage = mean(dg_age)))
+#' expr.by.cj(sr, "agegroup", list(mage = mean(dg_age), vage = var(dg_age)))
+#'
+#' ## only uses levels of by.vars present in data
+#' expr.by.cj(sr, "agegroup", list(mage = mean(dg_age), vage = var(dg_age)),
+#' subset = dg_age < 70)
+#'
+#' ## .SDcols trick
+#' expr.by.cj(sr, "agegroup", lapply(.SD, mean),
+#' subset = dg_age < 70, .SDcols = c("dg_age", "status"))
+
+ltable <- function(data,
+ by.vars = NULL,
+ expr = list(obs = .N),
+ subset = NULL,
+ use.levels = TRUE,
+ na.rm = FALSE,
+ robust = TRUE) {
+
+ PF <- parent.frame()
+ TF <- environment()
+
+ e <- substitute(expr)
+
+ ## eval subset ---------------------------------------------------------------
+ subset <- substitute(subset)
+ subset <- evalLogicalSubset(data, subset, enclos = PF)
+
+ ## create table --------------------------------------------------------------
+ res <- expr.by.cj(data = data,
+ by.vars = by.vars,
+ expr = e,
+ subset = subset,
+ use.levels = use.levels,
+ na.rm = na.rm,
+ robust = robust)
+
+
+ ## final touch ---------------------------------------------------------------
+
+ if (!return_DT()) {
+ setDFpe(res)
+ }
+ res
+
+}
+
+
+
+
+#' @describeIn ltable Somewhat more streamlined \code{ltable} with
+#' defaults for speed. Explicit determination of enclosing environment
+#' of data.
+#' @export expr.by.cj
+
+expr.by.cj <- function(data,
+ by.vars = NULL,
+ expr = list(obs = .N),
+ subset = NULL,
+ use.levels = FALSE,
+ na.rm = FALSE,
+ robust = FALSE,
+ .SDcols = NULL,
+ enclos = parent.frame(1L),
+ ...) {
+
+ PF <- enclos
+ TF <- environment()
+
+
+ ## checks --------------------------------------------------------------------
+ if (!is.data.frame(data)) {
+ stop("Argument 'data' must be data.frame (data.table is fine too)")
+ }
+
+ stopifnot(is.environment(enclos))
+ stopifnot(is.logical(na.rm))
+ stopifnot(is.logical(use.levels))
+
+ stopifnot(is.character(by.vars) || is.null(by.vars))
+ all_names_present(data, c(by.vars))
+
+ stopifnot(is.character(.SDcols) || is.null(.SDcols))
+ all_names_present(data, .SDcols)
+
+ tab <- data.table(data[1:min(10, nrow(data)),])
+ e <- substitute(expr)
+ e <- tab[, evalRecursive(e, env = .SD, enc = PF)$argSub]
+
+ ## eval subset ---------------------------------------------------------------
+ subset <- substitute(subset)
+ subset <- evalLogicalSubset(data, subset, enclos = PF)
+
+ ## retrieve data to use without taking copy ----------------------------------
+
+ tabVars <- unique(c(by.vars, all.vars(e), .SDcols))
+ tabVars <- intersect(names(data), tabVars)
+
+ tab <- mget(tabVars, envir = as.environment(data))
+ setDT(tab)
+
+ tmpDum <- makeTempVarName(data, pre = "dummy_")
+ if (!length(by.vars)) {
+ if (!length(tab)) {
+ ## no by.vars nor variables in expr
+ tab <- data.table(rep(1L, nrow(data)))
+ setnames(tab, "V1", tmpDum)
+ } else {
+ tab[, c(tmpDum) := 1L]
+ }
+ by.vars <- tmpDum
+ }
+
+ ## create joining table ------------------------------------------------------
+ lev_fun <- function(x) {
+ if (use.levels && is.factor(x)) {
+ factor(levels(x), levels = levels(x))
+ } else {
+ sort(unique(x), na.last = TRUE)
+ }
+ }
+ cj <- lapply(as.list(tab)[by.vars], lev_fun)
+ cj <- do.call(CJ, c(cj, unique = FALSE, sorted = FALSE))
+ if (na.rm) cj <- na.omit(cj)
+
+ ## eval expression -----------------------------------------------------------
+ tabe <- "tab[subset][cj, eval(e),
+ on = by.vars,
+ by = .EACHI, ..."
+ tabe <- if (is.null(.SDcols)) tabe else paste0(tabe, ", .SDcols = .SDcols")
+ tabe <- paste0(tabe ,"]")
+ res <- eval(parse(text = tabe))
+
+ setcolsnull(res, delete = tmpDum, soft = TRUE)
+ by.vars <- setdiff(by.vars, tmpDum)
+
+ ## final touch ---------------------------------------------------------------
+ if (length(res)) setcolorder(res, c(by.vars, setdiff(names(res), by.vars)))
+ if (length(by.vars)) setkeyv(res, by.vars)
+ if (!return_DT()) {
+ setDFpe(res)
+ }
+ res
+
+}
+
diff --git a/R/mean_survival.R b/R/mean_survival.R
index aebfcb1..4138aa5 100644
--- a/R/mean_survival.R
+++ b/R/mean_survival.R
@@ -1,658 +1,658 @@
-
-
-
-#' @title Compute Mean Survival Times Using Extrapolation
-#' @description Computes mean survival times based on survival estimation up to
-#' a point in follow-up time (e.g. 10 years),
-#' after which survival is extrapolated
-#' using an appropriate hazard data file (\code{pophaz}) to yield the "full"
-#' survival curve. The area under the full survival curve is the mean survival.
-#' @author Joonas Miettinen
-#' @param formula a \code{formula}, e.g. \code{FUT ~ V1} or
-#' \code{Surv(FUT, lex.Xst) ~ V1}.
-#' Supplied in the same way as to \code{\link{survtab}}, see that help
-#' for more info.
-#' @param data a \code{Lexis} data set; see \code{\link[Epi]{Lexis}}.
-#' @param adjust variables to adjust estimates by, e.g. \code{adjust = "agegr"}.
-#' \link[=flexible_argument]{Flexible input}.
-#' @param weights weights to use to adjust mean survival times. See the
-#' \link[=direct_standardization]{dedicated help page} for more details on
-#' weighting. \code{survmean}
-#' computes curves separately by all variables to adjust by, computes mean
-#' survival times, and computes weighted means of the mean survival times.
-#' See Examples.
-#' @param breaks a list of breaks defining the time window to compute
-#' observed survival in, and the intervals used in estimation. E.g.
-#' \code{list(FUT = 0:10)} when \code{FUT} is the follow-up time scale in your
-#' data.
-#' @param pophaz a data set of population hazards passed to
-#' \code{\link{survtab}} (see the
-#' \link[=pophaz]{dedicated help page} and the help page of
-#' \code{survtab} for more information). Defines the
-#' population hazard in the time window where observed survival is estimated.
-#' @param e1.breaks \code{NULL} or a list of breaks defining the time
-#' window to compute
-#' \strong{expected} survival in, and the intervals used in estimation. E.g.
-#' \code{list(FUT = 0:100)} when \code{FUT} is the follow-up time scale in your
-#' data to extrapolate up to 100 years from where the observed survival
-#' curve ends. \strong{NOTE:} the breaks on the survival time scale
-#' MUST include the breaks supplied to argument \code{breaks}; see Examples.
-#' If \code{NULL}, uses decent defaults (maximum follow-up time of 50 years).
-#' @param e1.pophaz Same as \code{pophaz}, except this defines the
-#' population hazard in the time window where \strong{expected}
-#' survival is estimated. By default uses the same data as
-#' argument \code{pophaz}.
-#' @param r either a numeric multiplier such as \code{0.995}, \code{"auto"}, or
-#' \code{"autoX"} where \code{X} is an integer;
-#' used to determine the relative survival ratio (RSR) persisting after where
-#' the estimated observed survival curve ends. See Details.
-#' @param surv.method passed to \code{survtab}; see that help for more info.
-#' @param subset a logical condition; e.g. \code{subset = sex == 1};
-#' subsets the data before computations
-#' @param verbose \code{logical}; if \code{TRUE}, the function is returns
-#' some messages and results along the run, which may be useful in debugging
-#' @details
-#' \strong{Basics}
-#'
-#' \code{survmean} computes mean survival times. For median survival times
-#' (i.e. where 50 % of subjects have died or met some other event)
-#' use \code{\link{survtab}}.
-#'
-#' The mean survival time is simply the area under the survival curve.
-#' However, since full follow-up rarely happens, the observed survival curves
-#' are extrapolated using expected survival: E.g. one might compute observed
-#' survival till up to 10 years and extrapolate beyond that
-#' (till e.g. 50 years) to yield an educated guess on the full observed survival
-#' curve.
-#'
-#' The area is computed by trapezoidal integration of the area under the curve.
-#' This function also computes the "full" expected survival curve from
-#' T = 0 till e.g. T = 50 depending on supplied arguments. The
-#' expected mean survival time is the area under the
-#' mean expected survival curve.
-#' This function returns the mean expected survival time to be compared with
-#' the mean survival time and for computing years of potential life lost (YPLL).
-#'
-#' Results can be formed by strata and adjusted for e.g. age by using
-#' the \code{formula} argument as in \code{survtab}. See also Examples.
-#'
-#' \strong{Extrapolation tweaks}
-#'
-#' Argument \code{r} controls the relative survival ratio (RSR) assumed to
-#' persist beyond the time window where observed survival is computed
-#' (defined by argument \code{breaks}; e.g. up to \code{FUT = 10}).
-#' The RSR is simply \code{RSR_i = p_oi / p_ei} for a time interval \code{i},
-#' i.e. the observed divided by the expected
-#' (conditional, not cumulative) probability of surviving from the beginning of
-#' a time interval till its end. The cumulative product of \code{RSR_i}
-#' over time is the (cumulative) relative survival curve.
-#'
-#'
-#' If \code{r} is numeric, e.g. \code{r = 0.995}, that RSR level is assumed
-#' to persist beyond the observed survival curve.
-#' Numeric \code{r} should be \code{> 0} and expressed at the annual level
-#' when using fractional years as the scale of the time variables.
-#' E.g. if RSR is known to be \code{0.95} at the month level, then the
-#' annualized RSR is \code{0.95^12}. This enables correct usage of the RSR
-#' with survival intervals of varying lengths. When using day-level time
-#' variables (such as \code{Dates}; see \code{as.Date}), numeric \code{r}
-#' should be expressed at the day level, etc.
-#'
-#' If \code{r = "auto"} or \code{r = "auto1"}, this function computes
-#' RSR estimates internally and automatically uses the \code{RSR_i}
-#' in the last survival interval in each stratum (and adjusting group)
-#' and assumes that to persist beyond the observed survival curve.
-#' Automatic determination of \code{r} is a good starting point,
-#' but in situations where the RSR estimate is uncertain it may produce poor
-#' results. Using \code{"autoX"} such as \code{"auto6"} causes \code{survmean}
-#' to use the mean of the estimated RSRs in the last X survival intervals,
-#' which may be more stable.
-#' Automatic determination will not use values \code{>1} but set them to 1.
-#' Visual inspection of the produced curves is always recommended: see
-#' Examples.
-#'
-#' One may also tweak the accuracy and length of extrapolation and
-#' expected survival curve computation by using
-#' \code{e1.breaks}. By default this is whatever was supplied to \code{breaks}
-#' for the survival time scale, to which
-#'
-#' \code{c(seq(1/12, 1, 1/12), seq(1.2, 1.8, 0.2), 2:19, seq(20, 50, 5))}
-#'
-#' is added after the maximum value, e.g. with \code{breaks = list(FUT = 0:10)}
-#' we have
-#'
-#' \code{..., 10+1/12, ..., 11, 11.2, ..., 2, 3, ..., 19, 20, 25, ... 50}
-#'
-#' as the \code{e1.breaks}. Supplying \code{e1.breaks} manually requires
-#' the breaks over time survival time scale supplied to argument \code{breaks}
-#' to be reiterated in \code{e1.breaks}; see Examples. \strong{NOTE}: the
-#' default extrapolation breaks assume the time scales in the data to be
-#' expressed as fractional years, meaning this will work extremely poorly
-#' when using e.g. day-level time scales (such as \code{Date} variables).
-#' Set the extrapolation breaks manually in such cases.
-#'
-#' @return
-#' Returns a \code{data.frame} or \code{data.table} (depending on
-#' \code{getOptions("popEpi.datatable")}; see \code{?popEpi}) containing the
-#' following columns:
-#' \itemize{
-#' \item{est}{: The estimated mean survival time}
-#' \item{exp}{: The computed expected survival time}
-#' \item{obs}{: Counts of subjects in data}
-#' \item{YPLL}{: Years of Potential Life Lost, computed as
-#' (\code{(exp-est)*obs}) - though your time data may be in e.g. days,
-#' this column will have the same name regardless.}
-#' }
-#' The returned data also has columns named according to the variables
-#' supplied to the right-hand-side of the formula.
-#'
-#'
-#' @examples
-#'
-#' library(Epi)
-#' ## take 500 subjects randomly for demonstration
-#' data(sire)
-#' sire <- sire[sire$dg_date < sire$ex_date, ]
-#' set.seed(1L)
-#' sire <- sire[sample(x = nrow(sire), size = 500),]
-#'
-#' ## NOTE: recommended to use factor status variable
-#' x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
-#' exit = list(CAL = get.yrs(ex_date)),
-#' data = sire,
-#' exit.status = factor(status, levels = 0:2,
-#' labels = c("alive", "canD", "othD")),
-#' merge = TRUE)
-#'
-#' ## phony variable
-#' set.seed(1L)
-#' x$group <- rbinom(nrow(x), 1, 0.5)
-#' ## age group
-#' x$agegr <- cut(x$dg_age, c(0,45,60,Inf), right=FALSE)
-#'
-#' ## population hazards data set
-#' pm <- data.frame(popEpi::popmort)
-#' names(pm) <- c("sex", "CAL", "AGE", "haz")
-#'
-#' ## breaks to define observed survival estimation
-#' BL <- list(FUT = seq(0, 10, 1/12))
-#'
-#' ## crude mean survival
-#' sm1 <- survmean(Surv(FUT, lex.Xst != "alive") ~ 1,
-#' pophaz = pm, data = x, weights = NULL,
-#' breaks = BL)
-#'
-#' sm1 <- survmean(FUT ~ 1,
-#' pophaz = pm, data = x, weights = NULL,
-#' breaks = BL)
-#' \donttest{
-#' ## mean survival by group
-#' sm2 <- survmean(FUT ~ group,
-#' pophaz = pm, data = x, weights = NULL,
-#' breaks = BL)
-#'
-#' ## ... and adjusted for age using internal weights (counts of subjects)
-#' ## note: need also longer extrapolation here so that all curves
-#' ## converge to zero in the end.
-#' eBL <- list(FUT = c(BL$FUT, 11:75))
-#' sm3 <- survmean(FUT ~ group + adjust(agegr),
-#' pophaz = pm, data = x, weights = "internal",
-#' breaks = BL, e1.breaks = eBL)
-#' }
-
-#' ## visual inspection of how realistic extrapolation is for each stratum;
-#' ## solid lines are observed + extrapolated survivals;
-#' ## dashed lines are expected survivals
-#' plot(sm1)
-#' \donttest{
-#' ## plotting object with both stratification and standardization
-#' ## plots curves for each strata-std.group combination
-#' plot(sm3)
-#'
-#' ## for finer control of plotting these curves, you may extract
-#' ## from the survmean object using e.g.
-#' attributes(sm3)$survmean.meta$curves
-#'
-#'
-#' #### using Dates
-#'
-#' x <- Lexis(entry = list(FUT = 0L, AGE = dg_date-bi_date, CAL = dg_date),
-#' exit = list(CAL = ex_date),
-#' data = sire[sire$dg_date < sire$ex_date, ],
-#' exit.status = factor(status, levels = 0:2,
-#' labels = c("alive", "canD", "othD")),
-#' merge = TRUE)
-#' ## phony group variable
-#' set.seed(1L)
-#' x$group <- rbinom(nrow(x), 1, 0.5)
-#'
-#'
-#' ## NOTE: population hazard should be reported at the same scale
-#' ## as time variables in your Lexis data.
-#' data(popmort, package = "popEpi")
-#' pm <- data.frame(popmort)
-#' names(pm) <- c("sex", "CAL", "AGE", "haz")
-#' ## from year to day level
-#' pm$haz <- pm$haz/365.25
-#' pm$CAL <- as.Date(paste0(pm$CAL, "-01-01"))
-#' pm$AGE <- pm$AGE*365.25
-#'
-#' BL <- list(FUT = seq(0, 8, 1/12)*365.25)
-#' eBL <- list(FUT = c(BL$FUT, c(8.25,8.5,9:60)*365.25))
-#' smd <- survmean(FUT ~ group, data = x,
-#' pophaz = pm, verbose = TRUE, r = "auto5",
-#' breaks = BL, e1.breaks = eBL)
-#' plot(smd)
-#' }
-#'
-
-#'
-#' @export
-#' @family survmean functions
-#' @family main functions
-#'
-
-survmean <- function(formula, data, adjust = NULL, weights = NULL,
- breaks=NULL, pophaz = NULL,
- e1.breaks = NULL, e1.pophaz = pophaz, r = "auto",
- surv.method = "hazard", subset = NULL, verbose = FALSE) {
- pt <- proc.time()
- TF__ <- environment()
- PF__ <- parent.frame(1L)
-
- attr_form <- copy(formula)
-
- surv.method <- match.arg(surv.method, c("hazard", "lifetable"))
-
- ## appease R CMD CHECK (due to using vars in DT[] only)
- r.e2 <- last.p.e2 <- surv <- survmean_type <- est <- Tstart <- Tstop <-
- lex.id <- surv.int <- delta <- surv.exp <- obs <- NULL
-
- checkLexisData(data, check.breaks = FALSE)
- checkPophaz(data, pophaz, haz.name = "haz")
- checkPophaz(data, e1.pophaz, haz.name = "haz")
- pophaz <- setDT(copy(pophaz))
- e1.pophaz <- setDT(copy(e1.pophaz))
-
- if (is.numeric(r) && r < 0L) stop("numeric r must be > 0, e.g. r = 0.95")
- if (is.character(r)) {
- if (substr(r, 1, 4) != "auto") {
- stop("character string r must start with 'auto'; e.g. `auto` and ",
- "`auto5` are accepted.")
- }
- if (r == "auto") r <- "auto1"
-
- auto_ints <- regmatches(r, regexec("\\d+", text = r))
- auto_ints <- as.integer(auto_ints)
- r <- "auto"
- }
-
- tscales_all <- attr(data, "time.scales")
- breaks_old <- attr(data, "breaks")
-
-
-
- ## breaks --------------------------------------------------------------------
-
- if (!is.null(breaks_old)) checkBreaksList(data, breaks_old)
- if (is.null(breaks)) breaks <- breaks_old
-
- checkBreaksList(data, breaks)
-
- ## hmm - will later on set breaks on the found survival scale
- if (!is.null(e1.breaks)) checkBreaksList(data, e1.breaks)
-
- ## prep & subset data --------------------------------------------------------
- subset <- substitute(subset)
- subset <- evalLogicalSubset(data, subset)
-
- x <- setDT(data[subset, ])
- forceLexisDT(x, breaks = breaks_old, allScales = tscales_all)
-
- ## ensure variables to merge pophaz datas by are kept ------------------------
- ## NOTE: temp var names avoid conflicts down the line
- avoid <- unique(c(names(data), names(x), names(pophaz), names(e1.pophaz)))
-
- pophaz_vars <- c(names(pophaz), names(e1.pophaz))
- pophaz_vars <- setdiff(pophaz_vars, c(tscales_all, "haz"))
- pophaz_vars <- intersect(pophaz_vars, names(x))
- pophaz_vars_tmp <- makeTempVarName(names = avoid, pre = pophaz_vars)
- if (!length(pophaz_vars)) {
- pophaz_vars_tmp <- NULL
- } else {
- pophaz_vars_wh <- which(pophaz_vars %in% names(pophaz))
- if (sum(pophaz_vars_wh)) {
- setnames(pophaz, old = pophaz_vars[pophaz_vars_wh],
- new = pophaz_vars_tmp[pophaz_vars_wh])
- }
- pophaz_vars_wh <- which(pophaz_vars %in% names(e1.pophaz))
- if (sum(pophaz_vars_wh)) {
- setnames(e1.pophaz, old = pophaz_vars[pophaz_vars_wh],
- new = pophaz_vars_tmp[pophaz_vars_wh])
- }
- x[, (pophaz_vars_tmp) := copy(.SD), .SDcols = pophaz_vars]
- }
-
- ## determine printing & adjusting vars ---------------------------------------
- adSub <- substitute(adjust)
- foList <- usePopFormula(formula, adjust = adSub, data = x, enclos = PF__,
- Surv.response = "either")
-
- ## will avoid conflicts using temp names for tabulating variables
- adjust_vars <- names(foList$adjust)
- print_vars <- names(foList$print)
- by_vars <- c(print_vars, adjust_vars)
-
- avoid <- unique(c(names(data), names(x), names(pophaz), names(e1.pophaz)))
- adjust_vars_tmp <- makeTempVarName(names = avoid, pre = adjust_vars)
- if (!length(adjust_vars)) adjust_vars_tmp <- NULL
- avoid <- unique(c(names(data), names(x), names(pophaz), names(e1.pophaz)))
- print_vars_tmp <- makeTempVarName(names = avoid, pre = print_vars)
- if (!length(print_vars)) print_vars_tmp <- NULL
- by_vars_tmp <- c(print_vars_tmp, adjust_vars_tmp)
-
-
- lex_vars <- c("lex.id", tscales_all, "lex.dur", "lex.Cst", "lex.Xst")
- setcolsnull(x, keep = c(lex_vars, pophaz_vars_tmp), soft = FALSE)
- if (length(adjust_vars) > 0L) x[, (adjust_vars_tmp) := foList$adjust]
- if (length(print_vars) > 0L) x[, (print_vars_tmp) := foList$print]
-
- ## formula for survtab: we estimate survivals by all levels of both
- ## print and adjust; adjusting here means computing directly adjusted
- ## estimates of the mean survival time, so mean survival times are
- ## weighted later on.
-
- formula <- paste0(deparse(formula[[2L]]), " ~ ")
- if (length(c(adjust_vars_tmp, print_vars_tmp)) > 0L) {
- formula <- paste0(formula, paste0(c(print_vars_tmp, adjust_vars_tmp),
- collapse = " + "))
- } else {
- formula <- paste0(formula, "1")
- }
- formula <- as.formula(formula)
-
- ## detect survival time scale ------------------------------------------------
- tscale_surv <- detectSurvivalTimeScale(lex = x, values = foList$y$time)
-
- ## check weights & adjust ----------------------------------------------------
- test_obs <- x[, .(obs=.N), keyby=eval(TF__$by_vars_tmp)]
- if (length(by_vars)) setnames(test_obs, by_vars_tmp, by_vars)
- if (length(weights) && !length(adjust_vars)) {
- weights <- NULL
- warning("Replaced weights with NULL due to not supplying variables to ",
- "adjust by.")
- }
- mwDTtest <- makeWeightsDT(test_obs, values = list("obs"), print = print_vars,
- adjust = adjust_vars, weights = weights,
- internal.weights.values = "obs")
- if (length(by_vars)) setnames(test_obs, by_vars, by_vars_tmp)
-
- ## figure out extrapolation breaks -------------------------------------------
- ## now that the survival time scale is known this can actually be done.
-
- if (is.null(e1.breaks)) {
- e1.breaks <- copy(breaks[tscale_surv])
- addBreaks <- max(e1.breaks[[tscale_surv]]) +
- c(seq(0,1,1/12), seq(1.2, 1.8, 0.2), 2:19, seq(20, 50, 5))
- e1.breaks[[tscale_surv]] <- unique(c(e1.breaks[[tscale_surv]], addBreaks))
-
- checkBreaksList(x, e1.breaks)
- }
- if (!tscale_surv %in% names(e1.breaks)) {
- stop("The survival time scale must be included in the list of breaks ",
- "to extrapolate by ('e1.breaks').")
- }
- if (!all(breaks[[tscale_surv]] %in% e1.breaks[[tscale_surv]])) {
- stop("The vector of breaks in 'breaks' for the survival time scale MUST",
- "be a subset of the breaks for the survival time scale in ",
- "'e1.breaks'. E.g. the former could be 0:10 and the latter 0:100.")
- }
-
- if (verbose) {
- cat("Time taken by prepping data:", timetaken(pt), "\n")
- }
-
-
- ## compute observed survivals ------------------------------------------------
- ## NOTE: do not adjust here; adjust in original formula means weighting
- ## the mean survival time results.
-
- st <- survtab(formula, data = x, breaks = breaks,
- pophaz = pophaz,
- relsurv.method = "e2",
- surv.type = "surv.rel",
- surv.method = surv.method)
-
- st_keep_vars <- c(by_vars_tmp, "Tstop", "r.e2", "surv.obs")
- all_names_present(
- st, st_keep_vars,
- msg = paste0("Internal error: expected to have variables ",
- "%%VARS%% after computing observed survivals ",
- "but didn't. Blame the package maintainer if you ",
- "see this.")
- )
- setcolsnull(st, keep = st_keep_vars, colorder = TRUE)
- setDT(st)
- setkeyv(st, c(by_vars_tmp, "Tstop"))
- st[, "Tstart" := c(0, Tstop[-.N]), by = eval(by_vars_tmp)]
-
- ## decumulate for later cumulation
- st[, c("r.e2", "surv.obs") := lapply(.SD, function(col) col/c(1, col[-.N])),
- by = eval(by_vars_tmp),
- .SDcols = c("r.e2", "surv.obs")
- ]
-
-
- if (verbose) {
- cat("Time taken by estimating relative survival curves:",
- timetaken(pt), "\n")
- }
-
- ## compute overall expected survival -----------------------------------------
- ## 1) take only those individuals that were diagnosed in the time window
- ## defined by breaks list in argument 'breaks'
- pt <- proc.time()
- setkeyv(x, c("lex.id", tscale_surv))
- tol <- .Machine$double.eps^0.5
- xe <- unique(x, by = key(x))[x[[tscale_surv]] < TF__$tol, ] ## pick rows with entry to FU
-
- if (length(breaks) > 1L) {
- ## e.g. a period window was defined and we only use subjects
- ## entering follow-up in the time window.
- breaks_drop_tmp <- setdiff(names(breaks), tscale_surv)
- breaks_drop_tmp <- breaks[breaks_drop_tmp]
- breaks_drop_tmp <- lapply(breaks_drop_tmp, range)
-
- expr <- mapply(function(ch, ra) {
- paste0("between(", ch, ", ", ra[1], ", ", ra[2] - tol, ", incbounds = TRUE)")
- }, ch = names(breaks_drop_tmp), ra = breaks_drop_tmp, SIMPLIFY = FALSE)
-
- expr <- lapply(expr, function(e) eval(parse(text = e), envir = xe))
- setDT(expr)
- expr <- expr[, rowSums(.SD)] == ncol(expr)
- xe <- xe[expr, ]
- }
-
- xe <- x[lex.id %in% unique(xe[["lex.id"]])]
- forceLexisDT(xe, breaks = breaks_old, allScales = tscales_all, key = FALSE)
-
- ## 2) compute Ederer I expected survival curves from T = 0 till e.g. T = 100
- e1 <- comp_e1(xe, breaks = e1.breaks, pophaz = e1.pophaz, immortal = TRUE,
- survScale = tscale_surv, by = by_vars_tmp, id = "lex.id")
- setnames(e1, tscale_surv, "Tstop")
- e1[, "Tstart" := c(0, Tstop[-.N]), by = eval(by_vars_tmp)]
- e1[, "surv.int" := cut(Tstart, breaks = e1.breaks[[tscale_surv]],
- right = FALSE, labels = FALSE)]
- e1[, "delta" := Tstop - Tstart]
-
- ## decumulate for later cumulation
- e1[, "surv.exp" := surv.exp/c(1, surv.exp[-.N]), by = eval(by_vars_tmp)]
-
- if (verbose) {
- cat("Time taken by computing overall expected survival curves:",
- timetaken(pt), "\n")
- }
-
- ## compute counts of subjects ------------------------------------------------
- ## these correspond to the counts of patients for which expected survival
- ## was computed. If observed survival is e.g. a period estimated curve,
- ## we only use subjects entering follow-up in the period window.
- N_subjects <- xe[!duplicated(lex.id)][,
- list(obs=.N),
- keyby=eval(by_vars_tmp)
- ]
-
- ## combine all estimates into one data set -----------------------------------
- pt <- proc.time()
-
- st[, "surv.int" := cut(Tstart, breaks = e1.breaks[[tscale_surv]],
- right = FALSE, labels = FALSE)]
-
- x <- merge(e1, st[, .SD, .SDcols = c(by_vars_tmp, "surv.int", "r.e2", "surv.obs")],
- by = c(by_vars_tmp,"surv.int"), all = TRUE)
- setkeyv(x, c(by_vars_tmp, "surv.int"))
-
- ## extrapolation RSR definition ----------------------------------------------
- if (is.numeric(r)) {
- ## manually given RSR for extrapolated part of the obs.surv curve
- ## here it is assumed that r is annualized
- set(x, j = "last.p.e2", value = r^x[["delta"]])
-
-
- } else {
- ## add last non-NA values as separate column
-
- st <- st[, .SD[(.N-TF__$auto_ints+1):.N], by = eval(by_vars_tmp)]
-
- st[, "delta" := Tstop - Tstart]
- st[, "r.e2" := r.e2^(1/delta)] ## "annualized" RSRs
-
- ## mean annualized RSR in last N intervas by strata
- st <- st[, .(last.p.e2 = mean(r.e2)), by = eval(by_vars_tmp)]
- st[, "last.p.e2" := pmin(1, last.p.e2)]
- if (verbose) {
- cat("Using following table of mean RSR estimates",
- "(scaled to RSRs applicable to a time interval one",
- "unit of time wide, e.g. one year or one day)",
- "based on", auto_ints, "interval(s) from the end of the relative",
- "survival curve by strata: \n")
- prST <- data.table(st)
- setnames(prST, c(by_vars_tmp, "last.p.e2"), c(by_vars, "RSR"))
- print(prST)
- }
-
- if (length(by_vars_tmp)) {
- x <- merge(x, st, by = by_vars_tmp, all = TRUE)
- } else {
- set(x, j = "last.p.e2", value = st$last.p.e2)
- }
- x[, "last.p.e2" := last.p.e2^(delta)] ## back to non-annualized RSRs
- ## enforce RSR in extrapolated part of observed curve to at most 1
- x[, "last.p.e2" := pmin(last.p.e2, 1)]
- }
-
- x[is.na(r.e2), "r.e2" := last.p.e2]
- x[, "surv" := r.e2*surv.exp]
- # setnames(x, "surv.obs", "surv")
- # x[is.na(surv), "surv" := surv.exp*last.p.e2]
-
- ## cumulate again
- setkeyv(x, c(by_vars_tmp, "surv.int"))
- x[, c("surv", "surv.exp") := lapply(.SD, cumprod),
- .SDcols = c("surv", "surv.exp"), by = eval(by_vars_tmp)]
-
- x2 <- copy(x)
- x[, "surv.exp" := NULL]
- x2[, "surv" := NULL]
- setnames(x2, "surv.exp", "surv")
- x <- rbind(x, x2)
- x[, "survmean_type" := rep(c("est", "exp"), each = nrow(x2))]
-
- setcolsnull(
- x,
- keep = c(by_vars_tmp, "survmean_type",
- "surv.int", "Tstart", "Tstop",
- "delta", "surv", "surv.exp"),
- colorder = TRUE
- )
-
- ## check curve convergence to zero -------------------------------------------
- ## a good integration is based on curves that get very close to
- ## zero in the end
- mi <- x[, .(surv = round(min(surv),4)*100),
- keyby = eval(c(by_vars_tmp, "survmean_type"))]
-
- if (any(mi$surv > 1)) {
- warning("One or several of the curves used to compute mean survival times ",
- "or expected mean survival times was > 1 % at the lowest point. ",
- "Mean survival estimates may be significantly biased. To avoid ",
- "this, supply breaks to 'e1.breaks' which make the curves longer ",
- ", e.g. e1.breaks = list(FUT = 0:150) where time scale FUT ",
- "is the survival time scale (yours may have a different name).")
- }
- mi[, "surv" := paste0(formatC(surv, digits = 2, format = "f"), " %")]
- mi[, "survmean_type" := factor(survmean_type, c("est", "exp"),
- c("Observed", "Expected"))]
- setnames(mi, c("survmean_type", "surv"),
- c("Obs./Exp. curve", "Lowest value"))
- if (length(by_vars)) setnames(mi, by_vars_tmp, by_vars)
- if (verbose) {
- cat("Lowest points in observed / expected survival curves by strata:\n")
- print(mi)
- }
-
- ## integrating by trapezoid areas --------------------------------------------
- ## trapezoid area: WIDTH*(HEIGHT1 + HEIGHT2)/2
- ## so we compute "average interval survivals" for each interval t_i
- ## and multiply with interval length.
-
- setkeyv(x, c(by_vars_tmp, "survmean_type", "Tstop"))
- sm <- x[, .(survmean = sum(delta*(surv + c(1, surv[-.N]))/2L)),
- keyby = c(by_vars_tmp, "survmean_type")]
-
- ## cast ----------------------------------------------------------------------
-
- sm <- cast_simple(sm, columns = "survmean_type",
- rows = by_vars_tmp, values = "survmean")
-
- ## add numbers of subjects, compute YPLL -------------------------------------
- setkeyv(sm, by_vars_tmp); setkeyv(N_subjects, by_vars_tmp)
- sm[, "obs" := N_subjects$obs]
- sm[, "YPLL" := (exp-est)*obs]
-
-
- ## adjusting -----------------------------------------------------------------
-
- sm <- makeWeightsDT(sm, values = list(c("est", "exp", "obs", "YPLL")),
- print = print_vars_tmp, adjust = adjust_vars_tmp,
- weights = weights, internal.weights.values = "obs")
- if (length(adjust_vars)) {
- vv <- c("est", "exp", "obs", "YPLL")
- sm[, c("est", "exp") := lapply(.SD, function(col) col*sm$weights),
- .SDcols = c("est", "exp")]
- sm <- sm[, lapply(.SD, sum), .SDcols = vv, by = eval(print_vars_tmp)]
- }
-
- if (verbose) {
- cat("Time taken by final touches:", timetaken(pt), "\n")
- }
-
- ## final touch ---------------------------------------------------------------
- if (length(print_vars)) setnames(sm, print_vars_tmp, print_vars)
-
- at <- list(call = match.call(),
- formula = attr_form,
- print = print_vars,
- adjust = adjust_vars,
- tprint = print_vars_tmp,
- tadjust = adjust_vars_tmp,
- breaks = breaks,
- e1.breaks = e1.breaks,
- survScale = tscale_surv,
- curves = copy(x))
- setattr(sm, "class", c("survmean","data.table", "data.frame"))
- setattr(sm, "survmean.meta", at)
- if (!return_DT()) setDFpe(sm)
- return(sm[])
-}
-
+
+
+
+#' @title Compute Mean Survival Times Using Extrapolation
+#' @description Computes mean survival times based on survival estimation up to
+#' a point in follow-up time (e.g. 10 years),
+#' after which survival is extrapolated
+#' using an appropriate hazard data file (\code{pophaz}) to yield the "full"
+#' survival curve. The area under the full survival curve is the mean survival.
+#' @author Joonas Miettinen
+#' @param formula a \code{formula}, e.g. \code{FUT ~ V1} or
+#' \code{Surv(FUT, lex.Xst) ~ V1}.
+#' Supplied in the same way as to \code{\link{survtab}}, see that help
+#' for more info.
+#' @param data a \code{Lexis} data set; see \code{\link[Epi]{Lexis}}.
+#' @param adjust variables to adjust estimates by, e.g. \code{adjust = "agegr"}.
+#' \link[=flexible_argument]{Flexible input}.
+#' @param weights weights to use to adjust mean survival times. See the
+#' \link[=direct_standardization]{dedicated help page} for more details on
+#' weighting. \code{survmean}
+#' computes curves separately by all variables to adjust by, computes mean
+#' survival times, and computes weighted means of the mean survival times.
+#' See Examples.
+#' @param breaks a list of breaks defining the time window to compute
+#' observed survival in, and the intervals used in estimation. E.g.
+#' \code{list(FUT = 0:10)} when \code{FUT} is the follow-up time scale in your
+#' data.
+#' @param pophaz a data set of population hazards passed to
+#' \code{\link{survtab}} (see the
+#' \link[=pophaz]{dedicated help page} and the help page of
+#' \code{survtab} for more information). Defines the
+#' population hazard in the time window where observed survival is estimated.
+#' @param e1.breaks \code{NULL} or a list of breaks defining the time
+#' window to compute
+#' \strong{expected} survival in, and the intervals used in estimation. E.g.
+#' \code{list(FUT = 0:100)} when \code{FUT} is the follow-up time scale in your
+#' data to extrapolate up to 100 years from where the observed survival
+#' curve ends. \strong{NOTE:} the breaks on the survival time scale
+#' MUST include the breaks supplied to argument \code{breaks}; see Examples.
+#' If \code{NULL}, uses decent defaults (maximum follow-up time of 50 years).
+#' @param e1.pophaz Same as \code{pophaz}, except this defines the
+#' population hazard in the time window where \strong{expected}
+#' survival is estimated. By default uses the same data as
+#' argument \code{pophaz}.
+#' @param r either a numeric multiplier such as \code{0.995}, \code{"auto"}, or
+#' \code{"autoX"} where \code{X} is an integer;
+#' used to determine the relative survival ratio (RSR) persisting after where
+#' the estimated observed survival curve ends. See Details.
+#' @param surv.method passed to \code{survtab}; see that help for more info.
+#' @param subset a logical condition; e.g. \code{subset = sex == 1};
+#' subsets the data before computations
+#' @param verbose \code{logical}; if \code{TRUE}, the function is returns
+#' some messages and results along the run, which may be useful in debugging
+#' @details
+#' \strong{Basics}
+#'
+#' \code{survmean} computes mean survival times. For median survival times
+#' (i.e. where 50 % of subjects have died or met some other event)
+#' use \code{\link{survtab}}.
+#'
+#' The mean survival time is simply the area under the survival curve.
+#' However, since full follow-up rarely happens, the observed survival curves
+#' are extrapolated using expected survival: E.g. one might compute observed
+#' survival till up to 10 years and extrapolate beyond that
+#' (till e.g. 50 years) to yield an educated guess on the full observed survival
+#' curve.
+#'
+#' The area is computed by trapezoidal integration of the area under the curve.
+#' This function also computes the "full" expected survival curve from
+#' T = 0 till e.g. T = 50 depending on supplied arguments. The
+#' expected mean survival time is the area under the
+#' mean expected survival curve.
+#' This function returns the mean expected survival time to be compared with
+#' the mean survival time and for computing years of potential life lost (YPLL).
+#'
+#' Results can be formed by strata and adjusted for e.g. age by using
+#' the \code{formula} argument as in \code{survtab}. See also Examples.
+#'
+#' \strong{Extrapolation tweaks}
+#'
+#' Argument \code{r} controls the relative survival ratio (RSR) assumed to
+#' persist beyond the time window where observed survival is computed
+#' (defined by argument \code{breaks}; e.g. up to \code{FUT = 10}).
+#' The RSR is simply \code{RSR_i = p_oi / p_ei} for a time interval \code{i},
+#' i.e. the observed divided by the expected
+#' (conditional, not cumulative) probability of surviving from the beginning of
+#' a time interval till its end. The cumulative product of \code{RSR_i}
+#' over time is the (cumulative) relative survival curve.
+#'
+#'
+#' If \code{r} is numeric, e.g. \code{r = 0.995}, that RSR level is assumed
+#' to persist beyond the observed survival curve.
+#' Numeric \code{r} should be \code{> 0} and expressed at the annual level
+#' when using fractional years as the scale of the time variables.
+#' E.g. if RSR is known to be \code{0.95} at the month level, then the
+#' annualized RSR is \code{0.95^12}. This enables correct usage of the RSR
+#' with survival intervals of varying lengths. When using day-level time
+#' variables (such as \code{Dates}; see \code{as.Date}), numeric \code{r}
+#' should be expressed at the day level, etc.
+#'
+#' If \code{r = "auto"} or \code{r = "auto1"}, this function computes
+#' RSR estimates internally and automatically uses the \code{RSR_i}
+#' in the last survival interval in each stratum (and adjusting group)
+#' and assumes that to persist beyond the observed survival curve.
+#' Automatic determination of \code{r} is a good starting point,
+#' but in situations where the RSR estimate is uncertain it may produce poor
+#' results. Using \code{"autoX"} such as \code{"auto6"} causes \code{survmean}
+#' to use the mean of the estimated RSRs in the last X survival intervals,
+#' which may be more stable.
+#' Automatic determination will not use values \code{>1} but set them to 1.
+#' Visual inspection of the produced curves is always recommended: see
+#' Examples.
+#'
+#' One may also tweak the accuracy and length of extrapolation and
+#' expected survival curve computation by using
+#' \code{e1.breaks}. By default this is whatever was supplied to \code{breaks}
+#' for the survival time scale, to which
+#'
+#' \code{c(seq(1/12, 1, 1/12), seq(1.2, 1.8, 0.2), 2:19, seq(20, 50, 5))}
+#'
+#' is added after the maximum value, e.g. with \code{breaks = list(FUT = 0:10)}
+#' we have
+#'
+#' \code{..., 10+1/12, ..., 11, 11.2, ..., 2, 3, ..., 19, 20, 25, ... 50}
+#'
+#' as the \code{e1.breaks}. Supplying \code{e1.breaks} manually requires
+#' the breaks over time survival time scale supplied to argument \code{breaks}
+#' to be reiterated in \code{e1.breaks}; see Examples. \strong{NOTE}: the
+#' default extrapolation breaks assume the time scales in the data to be
+#' expressed as fractional years, meaning this will work extremely poorly
+#' when using e.g. day-level time scales (such as \code{Date} variables).
+#' Set the extrapolation breaks manually in such cases.
+#'
+#' @return
+#' Returns a \code{data.frame} or \code{data.table} (depending on
+#' \code{getOptions("popEpi.datatable")}; see \code{?popEpi}) containing the
+#' following columns:
+#' \itemize{
+#' \item{est}{: The estimated mean survival time}
+#' \item{exp}{: The computed expected survival time}
+#' \item{obs}{: Counts of subjects in data}
+#' \item{YPLL}{: Years of Potential Life Lost, computed as
+#' (\code{(exp-est)*obs}) - though your time data may be in e.g. days,
+#' this column will have the same name regardless.}
+#' }
+#' The returned data also has columns named according to the variables
+#' supplied to the right-hand-side of the formula.
+#'
+#'
+#' @examples
+#'
+#' library(Epi)
+#' ## take 500 subjects randomly for demonstration
+#' data(sire)
+#' sire <- sire[sire$dg_date < sire$ex_date, ]
+#' set.seed(1L)
+#' sire <- sire[sample(x = nrow(sire), size = 500),]
+#'
+#' ## NOTE: recommended to use factor status variable
+#' x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
+#' exit = list(CAL = get.yrs(ex_date)),
+#' data = sire,
+#' exit.status = factor(status, levels = 0:2,
+#' labels = c("alive", "canD", "othD")),
+#' merge = TRUE)
+#'
+#' ## phony variable
+#' set.seed(1L)
+#' x$group <- rbinom(nrow(x), 1, 0.5)
+#' ## age group
+#' x$agegr <- cut(x$dg_age, c(0,45,60,Inf), right=FALSE)
+#'
+#' ## population hazards data set
+#' pm <- data.frame(popEpi::popmort)
+#' names(pm) <- c("sex", "CAL", "AGE", "haz")
+#'
+#' ## breaks to define observed survival estimation
+#' BL <- list(FUT = seq(0, 10, 1/12))
+#'
+#' ## crude mean survival
+#' sm1 <- survmean(Surv(FUT, lex.Xst != "alive") ~ 1,
+#' pophaz = pm, data = x, weights = NULL,
+#' breaks = BL)
+#'
+#' sm1 <- survmean(FUT ~ 1,
+#' pophaz = pm, data = x, weights = NULL,
+#' breaks = BL)
+#' \donttest{
+#' ## mean survival by group
+#' sm2 <- survmean(FUT ~ group,
+#' pophaz = pm, data = x, weights = NULL,
+#' breaks = BL)
+#'
+#' ## ... and adjusted for age using internal weights (counts of subjects)
+#' ## note: need also longer extrapolation here so that all curves
+#' ## converge to zero in the end.
+#' eBL <- list(FUT = c(BL$FUT, 11:75))
+#' sm3 <- survmean(FUT ~ group + adjust(agegr),
+#' pophaz = pm, data = x, weights = "internal",
+#' breaks = BL, e1.breaks = eBL)
+#' }
+
+#' ## visual inspection of how realistic extrapolation is for each stratum;
+#' ## solid lines are observed + extrapolated survivals;
+#' ## dashed lines are expected survivals
+#' plot(sm1)
+#' \donttest{
+#' ## plotting object with both stratification and standardization
+#' ## plots curves for each strata-std.group combination
+#' plot(sm3)
+#'
+#' ## for finer control of plotting these curves, you may extract
+#' ## from the survmean object using e.g.
+#' attributes(sm3)$survmean.meta$curves
+#'
+#'
+#' #### using Dates
+#'
+#' x <- Lexis(entry = list(FUT = 0L, AGE = dg_date-bi_date, CAL = dg_date),
+#' exit = list(CAL = ex_date),
+#' data = sire[sire$dg_date < sire$ex_date, ],
+#' exit.status = factor(status, levels = 0:2,
+#' labels = c("alive", "canD", "othD")),
+#' merge = TRUE)
+#' ## phony group variable
+#' set.seed(1L)
+#' x$group <- rbinom(nrow(x), 1, 0.5)
+#'
+#'
+#' ## NOTE: population hazard should be reported at the same scale
+#' ## as time variables in your Lexis data.
+#' data(popmort, package = "popEpi")
+#' pm <- data.frame(popmort)
+#' names(pm) <- c("sex", "CAL", "AGE", "haz")
+#' ## from year to day level
+#' pm$haz <- pm$haz/365.25
+#' pm$CAL <- as.Date(paste0(pm$CAL, "-01-01"))
+#' pm$AGE <- pm$AGE*365.25
+#'
+#' BL <- list(FUT = seq(0, 8, 1/12)*365.25)
+#' eBL <- list(FUT = c(BL$FUT, c(8.25,8.5,9:60)*365.25))
+#' smd <- survmean(FUT ~ group, data = x,
+#' pophaz = pm, verbose = TRUE, r = "auto5",
+#' breaks = BL, e1.breaks = eBL)
+#' plot(smd)
+#' }
+#'
+
+#'
+#' @export
+#' @family survmean functions
+#' @family main functions
+#'
+
+survmean <- function(formula, data, adjust = NULL, weights = NULL,
+ breaks=NULL, pophaz = NULL,
+ e1.breaks = NULL, e1.pophaz = pophaz, r = "auto",
+ surv.method = "hazard", subset = NULL, verbose = FALSE) {
+ pt <- proc.time()
+ TF__ <- environment()
+ PF__ <- parent.frame(1L)
+
+ attr_form <- copy(formula)
+
+ surv.method <- match.arg(surv.method, c("hazard", "lifetable"))
+
+ ## appease R CMD CHECK (due to using vars in DT[] only)
+ r.e2 <- last.p.e2 <- surv <- survmean_type <- est <- Tstart <- Tstop <-
+ lex.id <- surv.int <- delta <- surv.exp <- obs <- NULL
+
+ checkLexisData(data, check.breaks = FALSE)
+ checkPophaz(data, pophaz, haz.name = "haz")
+ checkPophaz(data, e1.pophaz, haz.name = "haz")
+ pophaz <- setDT(copy(pophaz))
+ e1.pophaz <- setDT(copy(e1.pophaz))
+
+ if (is.numeric(r) && r < 0L) stop("numeric r must be > 0, e.g. r = 0.95")
+ if (is.character(r)) {
+ if (substr(r, 1, 4) != "auto") {
+ stop("character string r must start with 'auto'; e.g. `auto` and ",
+ "`auto5` are accepted.")
+ }
+ if (r == "auto") r <- "auto1"
+
+ auto_ints <- regmatches(r, regexec("\\d+", text = r))
+ auto_ints <- as.integer(auto_ints)
+ r <- "auto"
+ }
+
+ tscales_all <- attr(data, "time.scales")
+ breaks_old <- attr(data, "breaks")
+
+
+
+ ## breaks --------------------------------------------------------------------
+
+ if (!is.null(breaks_old)) checkBreaksList(data, breaks_old)
+ if (is.null(breaks)) breaks <- breaks_old
+
+ checkBreaksList(data, breaks)
+
+ ## hmm - will later on set breaks on the found survival scale
+ if (!is.null(e1.breaks)) checkBreaksList(data, e1.breaks)
+
+ ## prep & subset data --------------------------------------------------------
+ subset <- substitute(subset)
+ subset <- evalLogicalSubset(data, subset)
+
+ x <- setDT(data[subset, ])
+ forceLexisDT(x, breaks = breaks_old, allScales = tscales_all)
+
+ ## ensure variables to merge pophaz datas by are kept ------------------------
+ ## NOTE: temp var names avoid conflicts down the line
+ avoid <- unique(c(names(data), names(x), names(pophaz), names(e1.pophaz)))
+
+ pophaz_vars <- c(names(pophaz), names(e1.pophaz))
+ pophaz_vars <- setdiff(pophaz_vars, c(tscales_all, "haz"))
+ pophaz_vars <- intersect(pophaz_vars, names(x))
+ pophaz_vars_tmp <- makeTempVarName(names = avoid, pre = pophaz_vars)
+ if (!length(pophaz_vars)) {
+ pophaz_vars_tmp <- NULL
+ } else {
+ pophaz_vars_wh <- which(pophaz_vars %in% names(pophaz))
+ if (sum(pophaz_vars_wh)) {
+ setnames(pophaz, old = pophaz_vars[pophaz_vars_wh],
+ new = pophaz_vars_tmp[pophaz_vars_wh])
+ }
+ pophaz_vars_wh <- which(pophaz_vars %in% names(e1.pophaz))
+ if (sum(pophaz_vars_wh)) {
+ setnames(e1.pophaz, old = pophaz_vars[pophaz_vars_wh],
+ new = pophaz_vars_tmp[pophaz_vars_wh])
+ }
+ x[, (pophaz_vars_tmp) := copy(.SD), .SDcols = pophaz_vars]
+ }
+
+ ## determine printing & adjusting vars ---------------------------------------
+ adSub <- substitute(adjust)
+ foList <- usePopFormula(formula, adjust = adSub, data = x, enclos = PF__,
+ Surv.response = "either")
+
+ ## will avoid conflicts using temp names for tabulating variables
+ adjust_vars <- names(foList$adjust)
+ print_vars <- names(foList$print)
+ by_vars <- c(print_vars, adjust_vars)
+
+ avoid <- unique(c(names(data), names(x), names(pophaz), names(e1.pophaz)))
+ adjust_vars_tmp <- makeTempVarName(names = avoid, pre = adjust_vars)
+ if (!length(adjust_vars)) adjust_vars_tmp <- NULL
+ avoid <- unique(c(names(data), names(x), names(pophaz), names(e1.pophaz)))
+ print_vars_tmp <- makeTempVarName(names = avoid, pre = print_vars)
+ if (!length(print_vars)) print_vars_tmp <- NULL
+ by_vars_tmp <- c(print_vars_tmp, adjust_vars_tmp)
+
+
+ lex_vars <- c("lex.id", tscales_all, "lex.dur", "lex.Cst", "lex.Xst")
+ setcolsnull(x, keep = c(lex_vars, pophaz_vars_tmp), soft = FALSE)
+ if (length(adjust_vars) > 0L) x[, (adjust_vars_tmp) := foList$adjust]
+ if (length(print_vars) > 0L) x[, (print_vars_tmp) := foList$print]
+
+ ## formula for survtab: we estimate survivals by all levels of both
+ ## print and adjust; adjusting here means computing directly adjusted
+ ## estimates of the mean survival time, so mean survival times are
+ ## weighted later on.
+
+ formula <- paste0(deparse(formula[[2L]]), " ~ ")
+ if (length(c(adjust_vars_tmp, print_vars_tmp)) > 0L) {
+ formula <- paste0(formula, paste0(c(print_vars_tmp, adjust_vars_tmp),
+ collapse = " + "))
+ } else {
+ formula <- paste0(formula, "1")
+ }
+ formula <- as.formula(formula)
+
+ ## detect survival time scale ------------------------------------------------
+ tscale_surv <- detectSurvivalTimeScale(lex = x, values = foList$y$time)
+
+ ## check weights & adjust ----------------------------------------------------
+ test_obs <- x[, .(obs=.N), keyby=eval(TF__$by_vars_tmp)]
+ if (length(by_vars)) setnames(test_obs, by_vars_tmp, by_vars)
+ if (length(weights) && !length(adjust_vars)) {
+ weights <- NULL
+ warning("Replaced weights with NULL due to not supplying variables to ",
+ "adjust by.")
+ }
+ mwDTtest <- makeWeightsDT(test_obs, values = list("obs"), print = print_vars,
+ adjust = adjust_vars, weights = weights,
+ internal.weights.values = "obs")
+ if (length(by_vars)) setnames(test_obs, by_vars, by_vars_tmp)
+
+ ## figure out extrapolation breaks -------------------------------------------
+ ## now that the survival time scale is known this can actually be done.
+
+ if (is.null(e1.breaks)) {
+ e1.breaks <- copy(breaks[tscale_surv])
+ addBreaks <- max(e1.breaks[[tscale_surv]]) +
+ c(seq(0,1,1/12), seq(1.2, 1.8, 0.2), 2:19, seq(20, 50, 5))
+ e1.breaks[[tscale_surv]] <- unique(c(e1.breaks[[tscale_surv]], addBreaks))
+
+ checkBreaksList(x, e1.breaks)
+ }
+ if (!tscale_surv %in% names(e1.breaks)) {
+ stop("The survival time scale must be included in the list of breaks ",
+ "to extrapolate by ('e1.breaks').")
+ }
+ if (!all(breaks[[tscale_surv]] %in% e1.breaks[[tscale_surv]])) {
+ stop("The vector of breaks in 'breaks' for the survival time scale MUST",
+ "be a subset of the breaks for the survival time scale in ",
+ "'e1.breaks'. E.g. the former could be 0:10 and the latter 0:100.")
+ }
+
+ if (verbose) {
+ cat("Time taken by prepping data:", timetaken(pt), "\n")
+ }
+
+
+ ## compute observed survivals ------------------------------------------------
+ ## NOTE: do not adjust here; adjust in original formula means weighting
+ ## the mean survival time results.
+
+ st <- survtab(formula, data = x, breaks = breaks,
+ pophaz = pophaz,
+ relsurv.method = "e2",
+ surv.type = "surv.rel",
+ surv.method = surv.method)
+
+ st_keep_vars <- c(by_vars_tmp, "Tstop", "r.e2", "surv.obs")
+ all_names_present(
+ st, st_keep_vars,
+ msg = paste0("Internal error: expected to have variables ",
+ "%%VARS%% after computing observed survivals ",
+ "but didn't. Blame the package maintainer if you ",
+ "see this.")
+ )
+ setcolsnull(st, keep = st_keep_vars, colorder = TRUE)
+ setDT(st)
+ setkeyv(st, c(by_vars_tmp, "Tstop"))
+ st[, "Tstart" := c(0, Tstop[-.N]), by = eval(by_vars_tmp)]
+
+ ## decumulate for later cumulation
+ st[, c("r.e2", "surv.obs") := lapply(.SD, function(col) col/c(1, col[-.N])),
+ by = eval(by_vars_tmp),
+ .SDcols = c("r.e2", "surv.obs")
+ ]
+
+
+ if (verbose) {
+ cat("Time taken by estimating relative survival curves:",
+ timetaken(pt), "\n")
+ }
+
+ ## compute overall expected survival -----------------------------------------
+ ## 1) take only those individuals that were diagnosed in the time window
+ ## defined by breaks list in argument 'breaks'
+ pt <- proc.time()
+ setkeyv(x, c("lex.id", tscale_surv))
+ tol <- .Machine$double.eps^0.5
+ xe <- unique(x, by = key(x))[x[[tscale_surv]] < TF__$tol, ] ## pick rows with entry to FU
+
+ if (length(breaks) > 1L) {
+ ## e.g. a period window was defined and we only use subjects
+ ## entering follow-up in the time window.
+ breaks_drop_tmp <- setdiff(names(breaks), tscale_surv)
+ breaks_drop_tmp <- breaks[breaks_drop_tmp]
+ breaks_drop_tmp <- lapply(breaks_drop_tmp, range)
+
+ expr <- mapply(function(ch, ra) {
+ paste0("between(", ch, ", ", ra[1], ", ", ra[2] - tol, ", incbounds = TRUE)")
+ }, ch = names(breaks_drop_tmp), ra = breaks_drop_tmp, SIMPLIFY = FALSE)
+
+ expr <- lapply(expr, function(e) eval(parse(text = e), envir = xe))
+ setDT(expr)
+ expr <- expr[, rowSums(.SD)] == ncol(expr)
+ xe <- xe[expr, ]
+ }
+
+ xe <- x[lex.id %in% unique(xe[["lex.id"]])]
+ forceLexisDT(xe, breaks = breaks_old, allScales = tscales_all, key = FALSE)
+
+ ## 2) compute Ederer I expected survival curves from T = 0 till e.g. T = 100
+ e1 <- comp_e1(xe, breaks = e1.breaks, pophaz = e1.pophaz, immortal = TRUE,
+ survScale = tscale_surv, by = by_vars_tmp, id = "lex.id")
+ setnames(e1, tscale_surv, "Tstop")
+ e1[, "Tstart" := c(0, Tstop[-.N]), by = eval(by_vars_tmp)]
+ e1[, "surv.int" := cut(Tstart, breaks = e1.breaks[[tscale_surv]],
+ right = FALSE, labels = FALSE)]
+ e1[, "delta" := Tstop - Tstart]
+
+ ## decumulate for later cumulation
+ e1[, "surv.exp" := surv.exp/c(1, surv.exp[-.N]), by = eval(by_vars_tmp)]
+
+ if (verbose) {
+ cat("Time taken by computing overall expected survival curves:",
+ timetaken(pt), "\n")
+ }
+
+ ## compute counts of subjects ------------------------------------------------
+ ## these correspond to the counts of patients for which expected survival
+ ## was computed. If observed survival is e.g. a period estimated curve,
+ ## we only use subjects entering follow-up in the period window.
+ N_subjects <- xe[!duplicated(lex.id)][,
+ list(obs=.N),
+ keyby=eval(by_vars_tmp)
+ ]
+
+ ## combine all estimates into one data set -----------------------------------
+ pt <- proc.time()
+
+ st[, "surv.int" := cut(Tstart, breaks = e1.breaks[[tscale_surv]],
+ right = FALSE, labels = FALSE)]
+
+ x <- merge(e1, st[, .SD, .SDcols = c(by_vars_tmp, "surv.int", "r.e2", "surv.obs")],
+ by = c(by_vars_tmp,"surv.int"), all = TRUE)
+ setkeyv(x, c(by_vars_tmp, "surv.int"))
+
+ ## extrapolation RSR definition ----------------------------------------------
+ if (is.numeric(r)) {
+ ## manually given RSR for extrapolated part of the obs.surv curve
+ ## here it is assumed that r is annualized
+ set(x, j = "last.p.e2", value = r^x[["delta"]])
+
+
+ } else {
+ ## add last non-NA values as separate column
+
+ st <- st[, .SD[(.N-TF__$auto_ints+1):.N], by = eval(by_vars_tmp)]
+
+ st[, "delta" := Tstop - Tstart]
+ st[, "r.e2" := r.e2^(1/delta)] ## "annualized" RSRs
+
+ ## mean annualized RSR in last N intervas by strata
+ st <- st[, .(last.p.e2 = mean(r.e2)), by = eval(by_vars_tmp)]
+ st[, "last.p.e2" := pmin(1, last.p.e2)]
+ if (verbose) {
+ cat("Using following table of mean RSR estimates",
+ "(scaled to RSRs applicable to a time interval one",
+ "unit of time wide, e.g. one year or one day)",
+ "based on", auto_ints, "interval(s) from the end of the relative",
+ "survival curve by strata: \n")
+ prST <- data.table(st)
+ setnames(prST, c(by_vars_tmp, "last.p.e2"), c(by_vars, "RSR"))
+ print(prST)
+ }
+
+ if (length(by_vars_tmp)) {
+ x <- merge(x, st, by = by_vars_tmp, all = TRUE)
+ } else {
+ set(x, j = "last.p.e2", value = st$last.p.e2)
+ }
+ x[, "last.p.e2" := last.p.e2^(delta)] ## back to non-annualized RSRs
+ ## enforce RSR in extrapolated part of observed curve to at most 1
+ x[, "last.p.e2" := pmin(last.p.e2, 1)]
+ }
+
+ x[is.na(r.e2), "r.e2" := last.p.e2]
+ x[, "surv" := r.e2*surv.exp]
+ # setnames(x, "surv.obs", "surv")
+ # x[is.na(surv), "surv" := surv.exp*last.p.e2]
+
+ ## cumulate again
+ setkeyv(x, c(by_vars_tmp, "surv.int"))
+ x[, c("surv", "surv.exp") := lapply(.SD, cumprod),
+ .SDcols = c("surv", "surv.exp"), by = eval(by_vars_tmp)]
+
+ x2 <- copy(x)
+ x[, "surv.exp" := NULL]
+ x2[, "surv" := NULL]
+ setnames(x2, "surv.exp", "surv")
+ x <- rbind(x, x2)
+ x[, "survmean_type" := rep(c("est", "exp"), each = nrow(x2))]
+
+ setcolsnull(
+ x,
+ keep = c(by_vars_tmp, "survmean_type",
+ "surv.int", "Tstart", "Tstop",
+ "delta", "surv", "surv.exp"),
+ colorder = TRUE
+ )
+
+ ## check curve convergence to zero -------------------------------------------
+ ## a good integration is based on curves that get very close to
+ ## zero in the end
+ mi <- x[, .(surv = round(min(surv),4)*100),
+ keyby = eval(c(by_vars_tmp, "survmean_type"))]
+
+ if (any(mi$surv > 1)) {
+ warning("One or several of the curves used to compute mean survival times ",
+ "or expected mean survival times was > 1 % at the lowest point. ",
+ "Mean survival estimates may be significantly biased. To avoid ",
+ "this, supply breaks to 'e1.breaks' which make the curves longer ",
+ ", e.g. e1.breaks = list(FUT = 0:150) where time scale FUT ",
+ "is the survival time scale (yours may have a different name).")
+ }
+ mi[, "surv" := paste0(formatC(surv, digits = 2, format = "f"), " %")]
+ mi[, "survmean_type" := factor(survmean_type, c("est", "exp"),
+ c("Observed", "Expected"))]
+ setnames(mi, c("survmean_type", "surv"),
+ c("Obs./Exp. curve", "Lowest value"))
+ if (length(by_vars)) setnames(mi, by_vars_tmp, by_vars)
+ if (verbose) {
+ cat("Lowest points in observed / expected survival curves by strata:\n")
+ print(mi)
+ }
+
+ ## integrating by trapezoid areas --------------------------------------------
+ ## trapezoid area: WIDTH*(HEIGHT1 + HEIGHT2)/2
+ ## so we compute "average interval survivals" for each interval t_i
+ ## and multiply with interval length.
+
+ setkeyv(x, c(by_vars_tmp, "survmean_type", "Tstop"))
+ sm <- x[, .(survmean = sum(delta*(surv + c(1, surv[-.N]))/2L)),
+ keyby = c(by_vars_tmp, "survmean_type")]
+
+ ## cast ----------------------------------------------------------------------
+
+ sm <- cast_simple(sm, columns = "survmean_type",
+ rows = by_vars_tmp, values = "survmean")
+
+ ## add numbers of subjects, compute YPLL -------------------------------------
+ setkeyv(sm, by_vars_tmp); setkeyv(N_subjects, by_vars_tmp)
+ sm[, "obs" := N_subjects$obs]
+ sm[, "YPLL" := (exp-est)*obs]
+
+
+ ## adjusting -----------------------------------------------------------------
+
+ sm <- makeWeightsDT(sm, values = list(c("est", "exp", "obs", "YPLL")),
+ print = print_vars_tmp, adjust = adjust_vars_tmp,
+ weights = weights, internal.weights.values = "obs")
+ if (length(adjust_vars)) {
+ vv <- c("est", "exp", "obs", "YPLL")
+ sm[, c("est", "exp") := lapply(.SD, function(col) col*sm$weights),
+ .SDcols = c("est", "exp")]
+ sm <- sm[, lapply(.SD, sum), .SDcols = vv, by = eval(print_vars_tmp)]
+ }
+
+ if (verbose) {
+ cat("Time taken by final touches:", timetaken(pt), "\n")
+ }
+
+ ## final touch ---------------------------------------------------------------
+ if (length(print_vars)) setnames(sm, print_vars_tmp, print_vars)
+
+ at <- list(call = match.call(),
+ formula = attr_form,
+ print = print_vars,
+ adjust = adjust_vars,
+ tprint = print_vars_tmp,
+ tadjust = adjust_vars_tmp,
+ breaks = breaks,
+ e1.breaks = e1.breaks,
+ survScale = tscale_surv,
+ curves = copy(x))
+ setattr(sm, "class", c("survmean","data.table", "data.frame"))
+ setattr(sm, "survmean.meta", at)
+ if (!return_DT()) setDFpe(sm)
+ return(sm[])
+}
+
diff --git a/R/popEpi_package.r b/R/popEpi_package.r
index 545154f..366771a 100644
--- a/R/popEpi_package.r
+++ b/R/popEpi_package.r
@@ -1,35 +1,35 @@
-#' popEpi
-#'
-#' @name popEpi
-#' @docType package
-#' @title popEpi: Functions for large-scale epidemiological analysis
-#' @description
-#' \pkg{popEpi} is built for the needs of registry-based (large-scale)
-#' epidemiological analysis. This is in most part enabled by the
-#' efficient \pkg{data.table} package for handling and aggregating large data sets.
-#'
-#' \pkg{popEpi} currently supplies some utility functions such as \code{\link{splitMulti}}
-#' and \code{\link{get.yrs}} for preparing large data sets for epidemiological analysis.
-#' Included are also a a few functions that can be used in
-#' epidemiological analysis such as \code{\link{sir}} for estimating
-#' standardized incidence/mortality ratios (SIRs/SMRs) and \code{\link{survtab}} for
-#' estimating observed and relative/net survival as well as cumulative incidence
-#' functions (CIFs). In particular, \code{survtab} implements the Ederer II
-#' (Ederer and Heise (1959)) and
-#' Pohar Perme estimators (Pohar Perme, Stare, and Esteve (2012)
-#' \doi{10.1111/j.1541-0420.2011.01640.x}) and allows for easy
-#' age-standardisation.
-#'
-#' Since there are many benefits to using \code{data.tables}, \pkg{popEpi} returns
-#' outputs by default in the \code{data.table} format where appropriate.
-#' Since \code{data.table}
-#' objects are usually modified by reference, this may have surprising side
-#' effects for users uninitiated in using \code{data.table}. To ensure
-#' that appropriate outputs are in the \code{data.frame} format, set
-#' \code{options("popEpi.datatable" = FALSE)}. However, \code{data.table}
-#' usage is recommended due to better performance and testing coverage.
-#' \code{data.table} is used
-#' by most functions internally in both cases.
-#'
-NULL
-
+#' popEpi
+#'
+#' @name popEpi
+#' @docType package
+#' @title popEpi: Functions for large-scale epidemiological analysis
+#' @description
+#' \pkg{popEpi} is built for the needs of registry-based (large-scale)
+#' epidemiological analysis. This is in most part enabled by the
+#' efficient \pkg{data.table} package for handling and aggregating large data sets.
+#'
+#' \pkg{popEpi} currently supplies some utility functions such as \code{\link{splitMulti}}
+#' and \code{\link{get.yrs}} for preparing large data sets for epidemiological analysis.
+#' Included are also a a few functions that can be used in
+#' epidemiological analysis such as \code{\link{sir}} for estimating
+#' standardized incidence/mortality ratios (SIRs/SMRs) and \code{\link{survtab}} for
+#' estimating observed and relative/net survival as well as cumulative incidence
+#' functions (CIFs). In particular, \code{survtab} implements the Ederer II
+#' (Ederer and Heise (1959)) and
+#' Pohar Perme estimators (Pohar Perme, Stare, and Esteve (2012)
+#' \doi{10.1111/j.1541-0420.2011.01640.x}) and allows for easy
+#' age-standardisation.
+#'
+#' Since there are many benefits to using \code{data.tables}, \pkg{popEpi} returns
+#' outputs by default in the \code{data.table} format where appropriate.
+#' Since \code{data.table}
+#' objects are usually modified by reference, this may have surprising side
+#' effects for users uninitiated in using \code{data.table}. To ensure
+#' that appropriate outputs are in the \code{data.frame} format, set
+#' \code{options("popEpi.datatable" = FALSE)}. However, \code{data.table}
+#' usage is recommended due to better performance and testing coverage.
+#' \code{data.table} is used
+#' by most functions internally in both cases.
+#'
+NULL
+
diff --git a/R/pophaz.R b/R/pophaz.R
index b5a163d..485939c 100644
--- a/R/pophaz.R
+++ b/R/pophaz.R
@@ -1,70 +1,70 @@
-
-
-
-#' @title Expected / Population Hazard Data Sets Usage in \pkg{popEpi}
-#' @author Joonas Miettinen
-#' @name pophaz
-#' @description
-#'
-#' Several functions in \pkg{popEpi} make use of population or expected
-#' hazards in computing the intended estimates (e.g. \code{\link{survtab}}).
-#' This document explains using such data sets in this package.
-#'
-#' @details
-#'
-#' Population hazard data sets (pophaz for short) in \pkg{popEpi} should
-#' be \code{data.frame}s in the "long" format where one of the columns must be
-#' named \code{haz} (for hazard), and other columns define the values or
-#' levels in variables relating to subjects in your data. For example,
-#' \code{\link{popmort}} contains Finnish population mortality hazards
-#' by sex, calendar year, and 1-year age group.
-#'
-#' \tabular{rrrr}{
-#' \code{sex} \tab \code{year} \tab \code{agegroup} \tab \code{haz} \cr
-#' 0 \tab 1951 \tab 0 \tab 0.036363176\cr
-#' 0 \tab 1951 \tab 1 \tab 0.003616547\cr
-#' 0 \tab 1951 \tab 2 \tab 0.002172384\cr
-#' 0 \tab 1951 \tab 3 \tab 0.001581249\cr
-#' 0 \tab 1951 \tab 4 \tab 0.001180690\cr
-#' 0 \tab 1951 \tab 5 \tab 0.001070595
-#' }
-#'
-#' The names of the columns should match to the names of the variables
-#' that you have in your subject-level data. Time variables in your pophaz
-#' may also correspond to \code{Lexis} time scales; see
-#' \code{\link{survtab}}.
-#'
-#' Any time variables (as they usually have) should be coded consistently:
-#' When using fractional years in your data, the time variables in your pophaz
-#' must also be coded in fractional years. When using e.g. \code{Date}s in your
-#' data, ensure that the pophaz time variables are coded at the level of days
-#' (or \code{Date}s for calendar time).
-#'
-#' The \code{haz} variable in your pophaz should also be coded consistently
-#' with the used time variables. E.g. \code{haz} values in life-tables
-#' reported as deaths per person-year should be multiplied by 365.25 when
-#' using day-level time variables. Typically you'll have calendar time and age
-#' expressed in years, which means \code{haz} should be expressed as the number
-#' of deaths per person-year.
-#'
-#' If you have your population hazards in a \code{ratetable} object
-#' usable by functions in \pkg{survival} and \pkg{relsurv}, you may
-#' transform them to long-format \code{data.frame}s using
-#' \code{\link{ratetable_to_long_dt}}. Ensure, however, that the
-#' created \code{haz} column is coded at the right level (events per
-#' days or years typically).
-#'
-#' National statistical institutions, the WHO, and e.g. the Human
-#' Life-Table Database supply life-table data.
-#'
-
-NULL
-
-
-
-
-
-
-
-
-
+
+
+
+#' @title Expected / Population Hazard Data Sets Usage in \pkg{popEpi}
+#' @author Joonas Miettinen
+#' @name pophaz
+#' @description
+#'
+#' Several functions in \pkg{popEpi} make use of population or expected
+#' hazards in computing the intended estimates (e.g. \code{\link{survtab}}).
+#' This document explains using such data sets in this package.
+#'
+#' @details
+#'
+#' Population hazard data sets (pophaz for short) in \pkg{popEpi} should
+#' be \code{data.frame}s in the "long" format where one of the columns must be
+#' named \code{haz} (for hazard), and other columns define the values or
+#' levels in variables relating to subjects in your data. For example,
+#' \code{\link{popmort}} contains Finnish population mortality hazards
+#' by sex, calendar year, and 1-year age group.
+#'
+#' \tabular{rrrr}{
+#' \code{sex} \tab \code{year} \tab \code{agegroup} \tab \code{haz} \cr
+#' 0 \tab 1951 \tab 0 \tab 0.036363176\cr
+#' 0 \tab 1951 \tab 1 \tab 0.003616547\cr
+#' 0 \tab 1951 \tab 2 \tab 0.002172384\cr
+#' 0 \tab 1951 \tab 3 \tab 0.001581249\cr
+#' 0 \tab 1951 \tab 4 \tab 0.001180690\cr
+#' 0 \tab 1951 \tab 5 \tab 0.001070595
+#' }
+#'
+#' The names of the columns should match to the names of the variables
+#' that you have in your subject-level data. Time variables in your pophaz
+#' may also correspond to \code{Lexis} time scales; see
+#' \code{\link{survtab}}.
+#'
+#' Any time variables (as they usually have) should be coded consistently:
+#' When using fractional years in your data, the time variables in your pophaz
+#' must also be coded in fractional years. When using e.g. \code{Date}s in your
+#' data, ensure that the pophaz time variables are coded at the level of days
+#' (or \code{Date}s for calendar time).
+#'
+#' The \code{haz} variable in your pophaz should also be coded consistently
+#' with the used time variables. E.g. \code{haz} values in life-tables
+#' reported as deaths per person-year should be multiplied by 365.25 when
+#' using day-level time variables. Typically you'll have calendar time and age
+#' expressed in years, which means \code{haz} should be expressed as the number
+#' of deaths per person-year.
+#'
+#' If you have your population hazards in a \code{ratetable} object
+#' usable by functions in \pkg{survival} and \pkg{relsurv}, you may
+#' transform them to long-format \code{data.frame}s using
+#' \code{\link{ratetable_to_long_dt}}. Ensure, however, that the
+#' created \code{haz} column is coded at the right level (events per
+#' days or years typically).
+#'
+#' National statistical institutions, the WHO, and e.g. the Human
+#' Life-Table Database supply life-table data.
+#'
+
+NULL
+
+
+
+
+
+
+
+
+
diff --git a/R/prevalence.R b/R/prevalence.R
index 7e73b89..40a60c3 100644
--- a/R/prevalence.R
+++ b/R/prevalence.R
@@ -1,142 +1,142 @@
-
-
-
-
-prevtab <- function(
- formula,
- data,
- meanpop = NULL,
- breaks = NULL,
- adjust = NULL,
- weights = NULL,
- subset = NULL,
- verbose = FALSE
-) {
-
- PF <- parent.frame(1L)
- TF <- environment()
-
- checkLexisData(data)
- checkPophaz(data, meanpop, haz.name = "meanpop")
- meanpop <- data.table(meanpop)
-
- allScales <- attr(data, "time.scales")
- oldBreaks <- attr(data, "breaks")
-
- lexis_vars <- c(allScales, "lex.dur", "lex.id", "lex.Cst", "lex.Xst")
- lexis_vars <- intersect(names(data), lexis_vars)
-
- meanpop_vars <- setdiff(names(meanpop), "meanpop")
-
- print_vars <- print_vars_tmp <- NULL
- adjust_vars <- adjust_vars_tmp <- NULL
-
- all_vars <- unique(intersect(names(data), c(lexis_vars, print_vars, adjust_vars, meanpop_vars)))
-
- ## appease R CMD CHECK -------------------------------------------------------
- at.risk <- NULL
-
-
- ## subsetting ----------------------------------------------------------------
- sb <- substitute(subset)
- subset <- evalLogicalSubset(data, substiset = sb, enclos = PF)
-
- ## data with only time scales and by variables -------------------------------
-
- data = data[subset, ]
- by_data <- usePopFormula(formula, Surv.response = FALSE,
- data = data, enclos = PF)
- x <- setDT(mget(lexis_vars, as.environment(data)))
- if (!is.null(by_data[["print"]])) {
- print_vars <- names(by_data[["print"]])
- print_vars_tmp <- makeTempVarName(names = all_vars, pre = print_vars)
- set(x, j = print_vars_tmp, value = by_data[["print"]])
- }
- if (!is.null(by_data[["adjust"]])) {
- adjust_vars <- names(by_data[["adjust"]])
- adjust_vars_tmp <- makeTempVarName(names = all_vars, pre = adjust_vars)
- set(x, j = adjust_vars_tmp, value = by_data[["adjust"]])
- }
- forceLexisDT(x, breaks = oldBreaks, allScales = allScales)
- rm("by_data")
- x[, c("lex.Cst", "lex.Xst") := 0L]
-
- by_vars <- c(print_vars, adjust_vars)
- by_vars_tmp <- c(print_vars_tmp, adjust_vars_tmp)
-
- meanpop_vars_tmp <- makeTempVarName(
- names = c(names(x), names(data), names(meanpop)), pre = meanpop_vars
- )
- meanpop_vars_tmp <- unlist(lapply(seq_along(meanpop_vars), function(i) {
- if (!meanpop_vars[i] %in% by_vars) {
- return(meanpop_vars_tmp[i])
- }
- wh <- which(by_vars == meanpop_vars[i])
- by_vars_tmp[wh]
- }))
-
- lapply(seq_along(meanpop_vars), function(i) {
- set(x, j = meanpop_vars_tmp[i], value = data[[meanpop_vars[i]]])
- })
-
- ## Splitting to ensure breaks exist; also takes copy -------------------------
- x <- splitMulti(x, breaks = breaks, drop = TRUE, merge = TRUE)
- forceLexisDT(x, breaks = attr(x, "breaks"), allScales = allScales)
-
- newBreaks <- copy(attr(x, "breaks"))
-
-
- ## detect prevalence time scale ----------------------------------------------
- prevScale <- detectSurvivalTimeScale(data, eval(formula[[2]], envir = data))
-
-
- ## limit to prevalence time points -------------------------------------------
- ## since we want prevalence at certain points of time along the prevalence
- ## time scale, prevScale values not at the breaks are not considered at all.
- j <- list(newBreaks[[prevScale]])
- names(j) <- prevScale
- x <- x[j, on = prevScale, nomatch = 0L]
-
- ## aggregate -----------------------------------------------------------------
- aggre_vars <- unique(c(print_vars_tmp, adjust_vars_tmp, meanpop_vars_tmp))
- print(aggre_vars)
- ag <- aggre(x, by = aggre_vars)
- ag <- setDT(ag)
-
- setkeyv(
- ag, c(aggre_vars, setdiff(aggre_vars, intersect(lexis_vars, print_vars_tmp)))
- )
- ag[, "n" := cumsum(at.risk), by = eval(aggre_vars)]
- ag <- setDT(mget(c(aggre_vars, meanpop_vars_tmp, "n"), as.environment(ag)))
-
- ## compute prevalence rates if appropriate -----------------------------------
- print(ag)
- ag <- merge(ag, meanpop, by = meanpop_vars_tmp)
-
- if (length(c(print_vars_tmp, adjust_vars_tmp))) {
- setnames(ag, c(print_vars_tmp, adjust_vars_tmp),
- c(print_vars, adjust_vars_tmp))
- }
- ag <- rate(data = ag, obs = "n", pyrs = "meanpop", print = print_vars,
- adjust = adjust_vars, weights = weights)
-
- return(ag)
-}
-
-
-
-
-prevtab_ag <- function(
- formula,
- data,
- meanpop = NULL,
- adjust = NULL,
- weights = NULL,
- subset = NULL,
- verbose = FALSE
-) {
- ## prevtab(per ~ sex + fot)
-
-
-}
-
+
+
+
+
+prevtab <- function(
+ formula,
+ data,
+ meanpop = NULL,
+ breaks = NULL,
+ adjust = NULL,
+ weights = NULL,
+ subset = NULL,
+ verbose = FALSE
+) {
+
+ PF <- parent.frame(1L)
+ TF <- environment()
+
+ checkLexisData(data)
+ checkPophaz(data, meanpop, haz.name = "meanpop")
+ meanpop <- data.table(meanpop)
+
+ allScales <- attr(data, "time.scales")
+ oldBreaks <- attr(data, "breaks")
+
+ lexis_vars <- c(allScales, "lex.dur", "lex.id", "lex.Cst", "lex.Xst")
+ lexis_vars <- intersect(names(data), lexis_vars)
+
+ meanpop_vars <- setdiff(names(meanpop), "meanpop")
+
+ print_vars <- print_vars_tmp <- NULL
+ adjust_vars <- adjust_vars_tmp <- NULL
+
+ all_vars <- unique(intersect(names(data), c(lexis_vars, print_vars, adjust_vars, meanpop_vars)))
+
+ ## appease R CMD CHECK -------------------------------------------------------
+ at.risk <- NULL
+
+
+ ## subsetting ----------------------------------------------------------------
+ sb <- substitute(subset)
+ subset <- evalLogicalSubset(data, substiset = sb, enclos = PF)
+
+ ## data with only time scales and by variables -------------------------------
+
+ data = data[subset, ]
+ by_data <- usePopFormula(formula, Surv.response = FALSE,
+ data = data, enclos = PF)
+ x <- setDT(mget(lexis_vars, as.environment(data)))
+ if (!is.null(by_data[["print"]])) {
+ print_vars <- names(by_data[["print"]])
+ print_vars_tmp <- makeTempVarName(names = all_vars, pre = print_vars)
+ set(x, j = print_vars_tmp, value = by_data[["print"]])
+ }
+ if (!is.null(by_data[["adjust"]])) {
+ adjust_vars <- names(by_data[["adjust"]])
+ adjust_vars_tmp <- makeTempVarName(names = all_vars, pre = adjust_vars)
+ set(x, j = adjust_vars_tmp, value = by_data[["adjust"]])
+ }
+ forceLexisDT(x, breaks = oldBreaks, allScales = allScales)
+ rm("by_data")
+ x[, c("lex.Cst", "lex.Xst") := 0L]
+
+ by_vars <- c(print_vars, adjust_vars)
+ by_vars_tmp <- c(print_vars_tmp, adjust_vars_tmp)
+
+ meanpop_vars_tmp <- makeTempVarName(
+ names = c(names(x), names(data), names(meanpop)), pre = meanpop_vars
+ )
+ meanpop_vars_tmp <- unlist(lapply(seq_along(meanpop_vars), function(i) {
+ if (!meanpop_vars[i] %in% by_vars) {
+ return(meanpop_vars_tmp[i])
+ }
+ wh <- which(by_vars == meanpop_vars[i])
+ by_vars_tmp[wh]
+ }))
+
+ lapply(seq_along(meanpop_vars), function(i) {
+ set(x, j = meanpop_vars_tmp[i], value = data[[meanpop_vars[i]]])
+ })
+
+ ## Splitting to ensure breaks exist; also takes copy -------------------------
+ x <- splitMulti(x, breaks = breaks, drop = TRUE, merge = TRUE)
+ forceLexisDT(x, breaks = attr(x, "breaks"), allScales = allScales)
+
+ newBreaks <- copy(attr(x, "breaks"))
+
+
+ ## detect prevalence time scale ----------------------------------------------
+ prevScale <- detectSurvivalTimeScale(data, eval(formula[[2]], envir = data))
+
+
+ ## limit to prevalence time points -------------------------------------------
+ ## since we want prevalence at certain points of time along the prevalence
+ ## time scale, prevScale values not at the breaks are not considered at all.
+ j <- list(newBreaks[[prevScale]])
+ names(j) <- prevScale
+ x <- x[j, on = prevScale, nomatch = 0L]
+
+ ## aggregate -----------------------------------------------------------------
+ aggre_vars <- unique(c(print_vars_tmp, adjust_vars_tmp, meanpop_vars_tmp))
+ print(aggre_vars)
+ ag <- aggre(x, by = aggre_vars)
+ ag <- setDT(ag)
+
+ setkeyv(
+ ag, c(aggre_vars, setdiff(aggre_vars, intersect(lexis_vars, print_vars_tmp)))
+ )
+ ag[, "n" := cumsum(at.risk), by = eval(aggre_vars)]
+ ag <- setDT(mget(c(aggre_vars, meanpop_vars_tmp, "n"), as.environment(ag)))
+
+ ## compute prevalence rates if appropriate -----------------------------------
+ print(ag)
+ ag <- merge(ag, meanpop, by = meanpop_vars_tmp)
+
+ if (length(c(print_vars_tmp, adjust_vars_tmp))) {
+ setnames(ag, c(print_vars_tmp, adjust_vars_tmp),
+ c(print_vars, adjust_vars_tmp))
+ }
+ ag <- rate(data = ag, obs = "n", pyrs = "meanpop", print = print_vars,
+ adjust = adjust_vars, weights = weights)
+
+ return(ag)
+}
+
+
+
+
+prevtab_ag <- function(
+ formula,
+ data,
+ meanpop = NULL,
+ adjust = NULL,
+ weights = NULL,
+ subset = NULL,
+ verbose = FALSE
+) {
+ ## prevtab(per ~ sex + fot)
+
+
+}
+
diff --git a/R/relative_poisson.R b/R/relative_poisson.R
index 9614dd4..39bf7c8 100644
--- a/R/relative_poisson.R
+++ b/R/relative_poisson.R
@@ -1,616 +1,616 @@
-#' @title Excess hazard Poisson model
-#' @author Joonas Miettinen, Karri Seppa
-#' @description Estimate a Poisson piecewise constant excess
-#' hazards model
-#' @param data a dataset split with e.g. \code{\link{lexpand}};
-#' must have expected hazard merged within
-#' @param formula a formula which is passed on to \code{glm}; see Details
-#' @param fot.breaks optional; a numeric vector of [a,b) breaks to specify
-#' survival intervals over the follow-up time; if \code{NULL}, the
-#' existing breaks along the mandatory \code{fot} time scale in \code{data}
-#' are used (e.g. the breaks for \code{fot} supplied to \code{lexpand})
-#' @param subset a logical vector or condition; e.g. \code{subset = sex == 1};
-#' limits the data before estimation
-#' @param check logical; if \code{TRUE}, tabulates excess cases by all
-#' factor variables in the formula to check for negative / \code{NA}
-#' excess cases before fitting the GLM
-#' @param ... any argument passed on to \code{glm}
-#' @import stats
-#' @details
-#'
-#' \strong{Basics}
-#'
-#' \code{relpois} employs a custom link function of the Poisson variety
-#' to estimate piecewise constant parametric excess hazards. The pieces
-#' are determined by \code{fot.breaks}. A \code{log(person-years)} offset
-#' is passed automatically to the \code{glm} call.
-#'
-#' \strong{Formula usage}
-#'
-#' The formula can be used like any ordinary \code{glm} formula. The user must
-#' define the outcome in some manner, which is usually \code{lex.Xst} after splitting
-#' with e.g. \code{lexpand}. The exception is the possibility of including
-#' the baseline excess hazard terms by including the
-#' reserved term \code{FOT} in the formula.
-#'
-#' For example, \code{lex.Xst != 0 ~ FOT + agegr} estimates a model with constant
-#' excess hazards at the follow-up intervals as specified by
-#' the pertinent breaks used in splitting \code{data},
-#' as well as for the different age groups.
-#' \code{FOT} is created ad hoc if it is used in the formula.
-#' If you leave out \code{FOT}, the hazard is effectively
-#' assumed to be constant across the whole follow-up time.
-#'
-#' You can also simply use your own follow-up time interval variable that
-#' you have created before calling \code{relpois}. However, when using
-#' \code{FOT}, \code{relpois} automatically checks for e.g.
-#' negative excess cases in follow-up intervals,
-#' allowing for quickly finding splitting breaks
-#' where model estimation is possible. It also drops any data outside the
-#' follow-up time window.
-#'
-#' \strong{Splitting and merging population hazard}
-#'
-#' The easiest way to both split and to include population hazard information is
-#' by using \code{\link{lexpand}}. You may also fairly easily do it by hand
-#' by splitting first and then merging in your population hazard information.
-#'
-#'
-#' \strong{Data requirements}
-#'
-#' The population hazard information must be available for each record and named
-#' \code{pop.haz}. The follow-up time variable must be named \code{"fot"} e.g.
-#' as a result of using \code{lexpand}. The \code{lex.dur} variable must also
-#' be present, containing person-year information.
-#'
-#'
-#' @return
-#' A \code{glm} object created using a custom Poisson family construct. Some
-#' \code{glm} methods are applicable.
-#'
-#' @seealso
-#' \code{\link{lexpand}}, \code{\link{poisson}}, \code{\link{glm}}
-#' @family main functions
-#' @family relpois functions
-#' @export relpois
-#'
-#' @examples
-#' ## use the simulated rectal cancer cohort
-#' data("sire", package = "popEpi")
-#' sire$agegr <- cut(sire$dg_age, c(0,45,60,Inf), right=FALSE)
-#'
-#' ## usable straight away after splitting
-#' fb <- c(0,3/12,6/12,1,2,3,4,5)
-#' x <- lexpand(sire, birth = bi_date, entry = dg_date,
-#' exit = ex_date, status=status,
-#' breaks = list(fot=fb), pophaz=popmort)
-#' rpm <- relpois(x, formula = lex.Xst %in% 1:2 ~ FOT + agegr)
-#'
-#' ## some methods for glm work. e.g. test for interaction
-#' \donttest{
-#' rpm2 <- relpois(x, formula = lex.Xst %in% 1:2 ~ FOT*agegr)
-#' anova(rpm, rpm2, test="LRT")
-#' AIC(rpm, rpm2)
-#' ## update() won't work currently
-#' }
-#' @references
-#' Paul W Dickman, Andy Sloggett, Michael Hills, and Timo Hakulinen.
-#' Regression models for relative survival.
-#' Stat Med. 2004 Jan 15;23(1):51-64.
-#' \doi{10.1002/sim.1597}
-
-
-relpois <- function(data,
- formula,
- fot.breaks = NULL, subset = NULL, check=TRUE, ...) {
- ## R CMD CHECK appeasement
- lex.dur <- NULL
-
- ## prep arguments ------------------------------------------------------------
- excess_cases <- fot <- pop.haz <- NULL ## appease R CMD CHECK
-
- ## somehow the class of the data is being altered by this function
- oldClass <- class(data)
-
- if (missing(formula) || !inherits(formula, "formula")) stop("formula not defined")
-
- form_vars <- all.vars(formula)
- dataname <- as.name(deparse(substitute(data)))
-
- if (!inherits(data, "Lexis")) {
- stop("data is not a Lexis object; data must be a result of splitting or using Lexis")
- }
-
- if ("FOT" %in% names(data)) {
- stop("FOT is a reserved name but you have a variable with that name in data; rename/delete it first")
- }
-
- # wasDF <- FALSE
- if (!is.data.table(data)) {
- data <- copy(data)
- setDT(data)
- message("Took a copy of your data because it was a data.frame and not a data.table. This may take up a lot of memory.")
- message("It is recommended to convert your data to data.table before using this function using as.data.table or setDT")
- }
-
- req_vars <- unique(c("lex.id", "fot", "lex.dur", "pop.haz", setdiff(form_vars, "FOT")))
- all_names_present(data, req_vars)
-
- surv.breaks <- attr(data, "breaks")$fot
- if (is.null(surv.breaks)) {
- stop("did not find any breaks information in data attributes named 'fot';
- probable reason: split data was edited after splitting - ",
- "don't do that")
- } else {
- if (!is.null(fot.breaks)) {
- if (any(!fot.breaks %in% surv.breaks)) {
- stop("fot.breaks must be a subset of the breaks for 'fot' used in splitting;
- type attr(data, 'breaks')$fot to see the breaks you used in splitting")
- } else {
- surv.breaks <- fot.breaks
- }
- }
-
- }
-
- ## prep & subset data --------------------------------------------------------
- subset <- substitute(subset)
- subset <- evalLogicalSubset(data, subset)
-
- if (any(is.na(data[subset, ]$pop.haz))) {
- stop("some pop.haz are NA")
- }
-
- on.exit({
- setcolsnull(data, c("FOT", tmpdexp), soft = TRUE)
- }, add = TRUE)
-
- if ("FOT" %in% form_vars) {
- data[, "FOT" := cut(fot, breaks = surv.breaks, right = FALSE)]
- # set(data, j = "FOT", value = cut(data$fot, breaks = surv.breaks, right=FALSE))
- subset <- subset & !is.na(data$FOT)
- }
- tmpdexp <- makeTempVarName(data, pre = "TEMP_d.exp_")
- data[, c(tmpdexp) := pop.haz*lex.dur]
- # set(data, j = tmpdexp, value = data$pop.haz * data$lex.dur)
-
-
- if (check) {
- ## test for negative excess cases in factor variable combinations ------------
-
- ## determine factor variables for cross-tabulating
-
- fac_vars <- colnames(attr(terms.formula(formula), "factors"))
-
- fac_list <- paste0(fac_vars, collapse=", ")
- fac_list <- paste0("list(", fac_list, ")")
- fac_list <- parse(text=fac_list)
-
- wh_fac <- as.data.table(data)[subset, unlist(lapply(eval(fac_list), is.factor))]
- fac_vars <- fac_vars[wh_fac]
-
- if (length(fac_vars) == 0) fac_vars <- NULL
- fac_list <- paste0(fac_vars, collapse=", ")
- fac_list <- paste0("list(", fac_list, ")")
- fac_list <- parse(text=fac_list)
-
-
- ## test negativity of excess cases
- LHS <- as.character(formula)
- LHS <- LHS[2]
- LHS <- parse(text = LHS)
-
- excas <- as.data.table(data)[subset, list(excess_cases = sum(eval(LHS)-get(tmpdexp))), keyby=eval(fac_list)]
- setnames(excas, 1:ncol(excas), c(fac_vars, "excess_cases"))
-
-
- if (any(is.na(excas$excess_cases))) {
- stop("some excess cases were NA; is pop.haz available for all records?")
- }
- excas <- excas[excess_cases <= 0]
- if (any(excas$excess_cases<=0)) {
- print(excas)
- warning("negative excess cases found in some combinations of factor variables;
- see printed table and try e.g. wider FOT intervals")
- }
- }
-
-
- ## custom poisson family -----------------------------------------------------
- RPL <- copy(poisson())
- RPL$link <- "glm relative survival model with Poisson error"
- RPL$linkfun <- function(mu, d.exp = data[[tmpdexp]][subset]) log(mu - d.exp)
- RPL$linkinv <- function(eta, d.exp = data[[tmpdexp]][subset]) d.exp + exp(eta)
-
-
- RPL$initialize <- substitute( {
- if (any(y < 0)) stop(paste("Negative values not allowed for",
- "the Poisson family"))
- n <- rep.int(1, nobs)
- mustart <- pmax(y, d.exp) + 0.1
- }, list(d.exp = data[[tmpdexp]][subset]) )
-
-
-
- ## glm call ------------------------------------------------------------------
- ## update() won't work
- ## anova() works
-
-
- ml <- glm(formula = formula, data=data[subset,], offset=log(lex.dur),
- # subset = subset, ## Error in xj[i] : invalid subscript type 'closure'
- family = RPL, ...)
-
- ## final touches -------------------------------------------------------------
- ml$d.exp <- data[subset, ][[tmpdexp]]
- ml$FOT <- data[subset, ]$FOT
- ml$fot.breaks <- surv.breaks
- ml$call$data <- dataname
- ml$call$formula <- formula
- setattr(ml, "class", c("relpois", "glm", "lm"))
-
- setattr(data, "class", oldClass) ## see beginning of function
-
-
- ml
-}
-
-
-
-#' @title Excess hazard Poisson model
-#' @author Joonas Miettinen, Karri Seppa
-#' @description Estimate a Poisson Piecewise Constant Excess
-#' Hazards Model
-#' @param formula a formula with the counts of events as the response.
-#' Passed on to \code{glm}. May contain usage of the \code{offset()} function
-#' instead of supplying the offset for the Poisson model via the argument
-#' \code{offset}.
-#' @param data an \code{aggre} object (an aggregated data set;
-#' see \code{\link{as.aggre}} and \code{\link{aggre}})
-#' @param d.exp the counts of expected cases. Mandatory.
-#' E.g. \code{d.exp = EXC_CASES}, where \code{EXC_CASES} is a column in data.
-#' @param offset the offset for the Poisson model, supplied as e.g.
-#' \code{offset = log(PTIME)}, where \code{PTIME} is a subject-time
-#' variable in data. Not mandatory, but almost always should be supplied.
-#' @param breaks optional; a numeric vector of [a,b) breaks to specify
-#' survival intervals over the follow-up time; if \code{NULL}, the
-#' existing breaks along the mandatory time scale mentioned in \code{formula}
-#' are used
-#' @param subset a logical vector or condition; e.g. \code{subset = sex == 1};
-#' limits the data before estimation
-#' @param piecewise \code{logical}; if \code{TRUE}, and if any time scale
-#' from data is used (mentioned) in the formula, the time scale is
-#' transformed into a factor variable indicating intervals on the time scale.
-#' Otherwise the time scale left as it is, usually a numeric variable.
-#' E.g. if \code{formula = counts ~ TS1*VAR1}, \code{TS1} is transformed
-#' into a factor before fitting model.
-#' @param check \code{logical}; if \code{TRUE}, performs check on the
-#' negativity excess cases by factor-like covariates in formula -
-#' negative excess cases will very likely lead to non-converging model
-#' @param ... any other argument passed on to \code{\link[stats]{glm}} such as
-#' \code{control} or \code{weights}
-#' @import stats
-#'
-#' @return
-#' A \code{relpois} object created using a custom Poisson family construct.
-#'
-#' @seealso
-#' \code{\link{lexpand}}, \code{\link{poisson}}, \code{\link{glm}}
-#' @family main functions
-#' @family relpois functions
-#' @examples
-#' ## use the simulated rectal cancer cohort
-#' data(sire, package = "popEpi")
-#' sire$agegr <- cut(sire$dg_age, c(0,45,60,Inf), right=FALSE)
-#'
-#' ## create aggregated example data
-#' fb <- c(0,3/12,6/12,1,2,3,4,5)
-#' x <- lexpand(sire, birth = bi_date, entry = dg_date,
-#' exit = ex_date, status=status %in% 1:2,
-#' breaks = list(fot=fb),
-#' pophaz=popmort, pp = FALSE,
-#' aggre = list(agegr, fot))
-#'
-#' ## fit model using aggregated data
-#' rpm <- relpois_ag(formula = from0to1 ~ fot + agegr, data = x,
-#' d.exp = d.exp, offset = log(pyrs))
-#' summary(rpm)
-#'
-#' ## the usual functions for handling glm models work
-#' rpm2 <- update(rpm, . ~ fot*agegr)
-#' anova(rpm, rpm2, test="LRT")
-#' AIC(rpm, rpm2)
-#'
-#' ## other features such as residuals or predicting are not guaranteed
-#' ## to work as intended.
-#' @export
-
-relpois_ag <- function(formula, data, d.exp, offset = NULL, breaks = NULL, subset = NULL, piecewise = TRUE, check = TRUE, ...) {
-
- TF <- environment()
- PF <- parent.frame(1L)
- original_formula <- formula
-
- if (!inherits(data, "aggre")) {
- stop("data is not an aggre object. Please aggregate your data first using ",
- "e.g. lexpand(). If your data is pre-aggregated, use as.aggre() to ",
- "mark it as such.")
- }
-
- formula <- evalRecursive(formula, env = TF, enc = PF)$arg
- if (missing(formula) || !inherits(formula, "formula")) stop("formula not defined")
-
-
-
-
- ## detect survival time scale ------------------------------------------------
- oldBreaks <- copy(attr(data, "breaks"))
- allScales <- names(oldBreaks)
- if (is.null(oldBreaks)) {
- stop("data does not have breaks information. Is it a result of using ",
- "aggre() or as.aggre()?")
- }
- survScale <- intersect(all.vars(formula), allScales)
- if (length(survScale) > 1L) {
- stop("Found several used time scales in formula, which is not supported ",
- "(found ", paste0("'", survScale, "'", collapse = ", "), ")")
- }
-
- ## check supplied breaks -----------------------------------------------------
- if (is.numeric(breaks)) {
- breaks <- list(breaks)
- names(breaks) <- survScale
- }
-
- if (!is.null(breaks)) {
- if (!all_breaks_in(breaks, oldBreaks)) {
- stop("Supplied breaks must be subset of the breaks used in splitting/",
- "aggregating data. See the latter using e.g. ",
- "attributes(x)$aggre.meta$breaks where x is your aggregated data.")
- }
- }
-
- ## pre-find args -------------------------------------------------------------
- desub <- substitute(d.exp)
- sub_d.exp <- evalRecursive(desub, env = data[1L, ], enc = PF)$argSub
- offsub <- substitute(offset)
- sub_offset <- evalRecursive(offsub, env = data[1L, ], enc = PF)$argSub
-
- ## prep & subset data --------------------------------------------------------
- subset <- substitute(subset)
- subset <- evalLogicalSubset(data, subset)
-
- av <- c(all.vars(formula), all.vars(sub_d.exp), all.vars(sub_offset))
- av <- intersect(names(data), av)
-
- x <- subsetDTorDF(data, subset = subset, select = av)
-
- setDT(x)
- setattr(x, "class", c("aggre", "data.table", "data.frame"))
-
- ## handle breaks -------------------------------------------------------------
- if (!is.null(breaks)) {
- if (!piecewise) {
- stop("Supplied breaks but piecewise = FALSE. Please select piecewise = ",
- "TRUE if you want piecewise estimates defined by the breaks.")
- }
-
- }
-
- cutBreaks <- breaks
- othScales <- setdiff(names(oldBreaks), names(cutBreaks))
- cutBreaks[othScales] <- oldBreaks[othScales]
- cutBreaks[sapply(cutBreaks, length) < 2L] <- NULL
-
- if (piecewise && length(cutBreaks)) {
-
- for (sc in names(cutBreaks)) {
- set(x, j = sc, value = cut(x[[sc]], breaks = cutBreaks[[sc]],
- right = FALSE, labels = FALSE))
-
- pieces <- round(cutBreaks[[sc]], 2L)
- pieces <- paste0("[", pieces[-length(pieces)], ", ", pieces[-1L], ")")
- set(x, j = sc, value = pieces[x[[sc]]])
- }
-
- }
-
- ## eval value args -----------------------------------------------------------
- d.exp <- evalPopArg(x, sub_d.exp, enclos = PF,
- DT = TRUE, recursive = TRUE)
- if (is.null(d.exp)) stop("argument d.exp was not supplied")
- d.exp <- rowSums(d.exp)
- if (length(d.exp) == nrow(data)) d.exp <- d.exp[subset]
-
- offset <- evalPopArg(x, sub_offset, enclos = PF,
- DT = TRUE, recursive = TRUE)
- if (!is.null(offset)) offset <- rowSums(offset)
- if (length(offset) == nrow(data)) offset <- offset[subset]
-
- ## check excess cases --------------------------------------------------------
- d <- eval(formula[[2]], envir = x, enclos = PF)
- check_excess_cases(d = d, d.exp = d.exp, data = x,
- formula = formula, enclos = PF)
-
- ## custom poisson family -----------------------------------------------------
- RPL <- copy(poisson())
- RPL$link <- "glm relative survival model with Poisson error"
- RPL$linkfun <- function(mu, d.exp = TF$d.exp) {
- log(mu - d.exp)
- }
- RPL$linkinv <- function(eta, d.exp = TF$d.exp) {
- d.exp + exp(eta)
- }
-
- RPL$initialize <- substitute( {
- if (any(y < 0)) stop(paste("Negative values not allowed for",
- "the Poisson family"))
- n <- rep.int(1, nobs)
- mustart <- pmax(y, d.exp) + 0.1
- }, list(d.exp = TF$d.exp) )
-
- ## glm call ------------------------------------------------------------------
-
- ## NOTE: parent.frame(3L) to find this (this function's) environment
- ml <- glm(formula = formula, data=x, offset = parent.frame(3L)$offset, family = RPL, ...)
-
- ## final touches -------------------------------------------------------------
-
- ml$call <- match.call()
- setattr(ml, "class", c("relpois", "glm", "lm"))
-
- ml
-}
-
-
-
-
-
-
-check_excess_cases <- function(d, d.exp, formula, data, enclos = parent.frame(1)) {
- # @title Check Excess Counts for a Relative Poisson Model
- # @description Checks that the excess counts by strata all exceed 0.
- # @param d a vector of observed counts of cases
- # @param d.exp a vector of expected counts of cases
- # @param a formula, the right side of which is inspected for factor-like
- # stratifying variables (factors and character variables)
- # @param data a data set to eval formula in its context
- # @param enclos passed on to RHS2DT() to evaluate formula to columns;
- # enclosing environment of data
- PF <- parent.frame(1)
- tF <- environment()
-
- d.exc <- NULL
-
- by <- RHS2DT(formula, data = data, enclos = enclos)
- if (!length(by)) by <- list()
- facVars <- names(by)[sapply(by, function(col) is.factor(col) || is.character(col))]
-
- d <- substitute(d)
- d <- eval(d, envir = data, enclos = PF)
- d.exp <- substitute(d.exp)
- d.exp <- eval(d.exp, envir = data, enclos = PF)
-
- if (length(facVars)) {
- by <- setDT(mget(facVars, as.environment(by)))
- } else {
- by <- list()
- }
-
- dt <- data.table(d = d, d.exp = d.exp)
- dt[, d.exc := d - d.exp]
-
- for (k in seq_along(names(by))) {
- bycol <- names(by)[k]
-
- tab <- dt[, lapply(.SD, sum), keyby = .(by[[bycol]])][d.exc <= 0L, ]
- setnames(tab, 1, bycol)
- if (nrow(tab)) {
- on.exit(print(tab))
- stop("There are negative excess cases in the data calculated separately ",
- "by the factor-like variables ",
- paste0("'", facVars, "'", collapse = ", "), ". The model is not ",
- "estimable with negative excess cases in strata. ",
- "Infracting levels:")
- }
-
- }
-
- if (!length(by)) {
- tab <- dt[, lapply(.SD, sum)]
- if (tab$d.exc <= 0L) {
- stop("The marginal sum of excess cases is negative; the model cannot ",
- "be fitted. ")
- }
- }
-
-
-
-
- invisible(NULL)
-}
-
-
-
-
-
-
-relpois_lex <- function(formula,
- data,
- pophaz = NULL,
- breaks = NULL,
- subset = NULL,
- check = TRUE,
- ...) {
- PF <- parent.frame(1)
- TF <- environment()
-
- form <- agVars <- NULL
-
-
- ## checks --------------------------------------------------------------------
-
- checkLexisData(data)
- checkPophaz(lex = data, ph = pophaz)
- if (!is.null(breaks)) checkBreaksList(breaks)
-
- oldBreaks <- copy(attr(data, "breaks"))
- allScales <- copy(attr(data, "time.scales"))
-
-
- ## detect which time scale used ----------------------------------------------
-
- survScale <- intersect(all.vars(formula), allScales)
- if (length(survScale) > 1L) {
- stop("Found several used time scales in formula, which is not supported ",
- "(found ", paste0("'", survScale, "'", collapse = ", "), ")")
- }
- ## subset --------------------------------------------------------------------
-
- sb <- substitute(subset)
- subset <- evalLogicalSubset(data, sb, enclos = PF)
- x <- data[subset, ]
-
- ## essentially same steps as in survtab() here, maybe make that
- ## into a function / generalize lexpand.
-
- ## splitting -----------------------------------------------------------------
- if (is.numeric(breaks) && length(survScale)) {
- breaks <- list(breaks)
- names(breaks) <- survScale
- }
- if (!is.null(breaks)) x <- splitMulti(x, breaks = breaks, drop = TRUE)
- newBreaks <- copy(attr(x, "breaks"))
-
- ## merge in pophaz -----------------------------------------------------------
- haz <- makeTempVarName(x, pre = "haz_")
- ph <- data.table(pophaz)
- phVars <- setdiff(names(ph), "haz")
- setnames(ph, "haz", haz)
- x <- cutLowMerge(x, pophaz, by = phVars, all.x = TRUE, all.y = FALSE,
- old.nums = TRUE, mid.scales = intersect(allScales, phVars))
-
- # expected cases
- d.exp <- makeTempVarName(x, pre = "d.exp_")
- set(x, j = d.exp, value = x$lex.dur * x[[haz]])
-
- ## aggregating ---------------------------------------------------------------
- ag <- model.frame(formula[-2], data = x) ## without response
- setDT(ag)
- set(ag, j = d.exp, value = x[[d.exp]])
- d <- makeTempVarName(x, pre = "d_")
- set(ag, j = d, value = eval(form))
- ag <- aggre(x, by = agVars, sum.values = d.exp)
- rm(x)
-
- ag_form <- formula
- ag_form[[2]] <- quote(from0to1)
-
- rp <- relpois_ag(ag_form, data = data, breaks = NULL)
-
- rp$call <- match.call()
- rp$formula <- formula
-
- rp
-}
-
+#' @title Excess hazard Poisson model
+#' @author Joonas Miettinen, Karri Seppa
+#' @description Estimate a Poisson piecewise constant excess
+#' hazards model
+#' @param data a dataset split with e.g. \code{\link{lexpand}};
+#' must have expected hazard merged within
+#' @param formula a formula which is passed on to \code{glm}; see Details
+#' @param fot.breaks optional; a numeric vector of [a,b) breaks to specify
+#' survival intervals over the follow-up time; if \code{NULL}, the
+#' existing breaks along the mandatory \code{fot} time scale in \code{data}
+#' are used (e.g. the breaks for \code{fot} supplied to \code{lexpand})
+#' @param subset a logical vector or condition; e.g. \code{subset = sex == 1};
+#' limits the data before estimation
+#' @param check logical; if \code{TRUE}, tabulates excess cases by all
+#' factor variables in the formula to check for negative / \code{NA}
+#' excess cases before fitting the GLM
+#' @param ... any argument passed on to \code{glm}
+#' @import stats
+#' @details
+#'
+#' \strong{Basics}
+#'
+#' \code{relpois} employs a custom link function of the Poisson variety
+#' to estimate piecewise constant parametric excess hazards. The pieces
+#' are determined by \code{fot.breaks}. A \code{log(person-years)} offset
+#' is passed automatically to the \code{glm} call.
+#'
+#' \strong{Formula usage}
+#'
+#' The formula can be used like any ordinary \code{glm} formula. The user must
+#' define the outcome in some manner, which is usually \code{lex.Xst} after splitting
+#' with e.g. \code{lexpand}. The exception is the possibility of including
+#' the baseline excess hazard terms by including the
+#' reserved term \code{FOT} in the formula.
+#'
+#' For example, \code{lex.Xst != 0 ~ FOT + agegr} estimates a model with constant
+#' excess hazards at the follow-up intervals as specified by
+#' the pertinent breaks used in splitting \code{data},
+#' as well as for the different age groups.
+#' \code{FOT} is created ad hoc if it is used in the formula.
+#' If you leave out \code{FOT}, the hazard is effectively
+#' assumed to be constant across the whole follow-up time.
+#'
+#' You can also simply use your own follow-up time interval variable that
+#' you have created before calling \code{relpois}. However, when using
+#' \code{FOT}, \code{relpois} automatically checks for e.g.
+#' negative excess cases in follow-up intervals,
+#' allowing for quickly finding splitting breaks
+#' where model estimation is possible. It also drops any data outside the
+#' follow-up time window.
+#'
+#' \strong{Splitting and merging population hazard}
+#'
+#' The easiest way to both split and to include population hazard information is
+#' by using \code{\link{lexpand}}. You may also fairly easily do it by hand
+#' by splitting first and then merging in your population hazard information.
+#'
+#'
+#' \strong{Data requirements}
+#'
+#' The population hazard information must be available for each record and named
+#' \code{pop.haz}. The follow-up time variable must be named \code{"fot"} e.g.
+#' as a result of using \code{lexpand}. The \code{lex.dur} variable must also
+#' be present, containing person-year information.
+#'
+#'
+#' @return
+#' A \code{glm} object created using a custom Poisson family construct. Some
+#' \code{glm} methods are applicable.
+#'
+#' @seealso
+#' \code{\link{lexpand}}, \code{\link{poisson}}, \code{\link{glm}}
+#' @family main functions
+#' @family relpois functions
+#' @export relpois
+#'
+#' @examples
+#' ## use the simulated rectal cancer cohort
+#' data("sire", package = "popEpi")
+#' sire$agegr <- cut(sire$dg_age, c(0,45,60,Inf), right=FALSE)
+#'
+#' ## usable straight away after splitting
+#' fb <- c(0,3/12,6/12,1,2,3,4,5)
+#' x <- lexpand(sire, birth = bi_date, entry = dg_date,
+#' exit = ex_date, status=status,
+#' breaks = list(fot=fb), pophaz=popmort)
+#' rpm <- relpois(x, formula = lex.Xst %in% 1:2 ~ FOT + agegr)
+#'
+#' ## some methods for glm work. e.g. test for interaction
+#' \donttest{
+#' rpm2 <- relpois(x, formula = lex.Xst %in% 1:2 ~ FOT*agegr)
+#' anova(rpm, rpm2, test="LRT")
+#' AIC(rpm, rpm2)
+#' ## update() won't work currently
+#' }
+#' @references
+#' Paul W Dickman, Andy Sloggett, Michael Hills, and Timo Hakulinen.
+#' Regression models for relative survival.
+#' Stat Med. 2004 Jan 15;23(1):51-64.
+#' \doi{10.1002/sim.1597}
+
+
+relpois <- function(data,
+ formula,
+ fot.breaks = NULL, subset = NULL, check=TRUE, ...) {
+ ## R CMD CHECK appeasement
+ lex.dur <- NULL
+
+ ## prep arguments ------------------------------------------------------------
+ excess_cases <- fot <- pop.haz <- NULL ## appease R CMD CHECK
+
+ ## somehow the class of the data is being altered by this function
+ oldClass <- class(data)
+
+ if (missing(formula) || !inherits(formula, "formula")) stop("formula not defined")
+
+ form_vars <- all.vars(formula)
+ dataname <- as.name(deparse(substitute(data)))
+
+ if (!inherits(data, "Lexis")) {
+ stop("data is not a Lexis object; data must be a result of splitting or using Lexis")
+ }
+
+ if ("FOT" %in% names(data)) {
+ stop("FOT is a reserved name but you have a variable with that name in data; rename/delete it first")
+ }
+
+ # wasDF <- FALSE
+ if (!is.data.table(data)) {
+ data <- copy(data)
+ setDT(data)
+ message("Took a copy of your data because it was a data.frame and not a data.table. This may take up a lot of memory.")
+ message("It is recommended to convert your data to data.table before using this function using as.data.table or setDT")
+ }
+
+ req_vars <- unique(c("lex.id", "fot", "lex.dur", "pop.haz", setdiff(form_vars, "FOT")))
+ all_names_present(data, req_vars)
+
+ surv.breaks <- attr(data, "breaks")$fot
+ if (is.null(surv.breaks)) {
+ stop("did not find any breaks information in data attributes named 'fot';
+ probable reason: split data was edited after splitting - ",
+ "don't do that")
+ } else {
+ if (!is.null(fot.breaks)) {
+ if (any(!fot.breaks %in% surv.breaks)) {
+ stop("fot.breaks must be a subset of the breaks for 'fot' used in splitting;
+ type attr(data, 'breaks')$fot to see the breaks you used in splitting")
+ } else {
+ surv.breaks <- fot.breaks
+ }
+ }
+
+ }
+
+ ## prep & subset data --------------------------------------------------------
+ subset <- substitute(subset)
+ subset <- evalLogicalSubset(data, subset)
+
+ if (any(is.na(data[subset, ]$pop.haz))) {
+ stop("some pop.haz are NA")
+ }
+
+ on.exit({
+ setcolsnull(data, c("FOT", tmpdexp), soft = TRUE)
+ }, add = TRUE)
+
+ if ("FOT" %in% form_vars) {
+ data[, "FOT" := cut(fot, breaks = surv.breaks, right = FALSE)]
+ # set(data, j = "FOT", value = cut(data$fot, breaks = surv.breaks, right=FALSE))
+ subset <- subset & !is.na(data$FOT)
+ }
+ tmpdexp <- makeTempVarName(data, pre = "TEMP_d.exp_")
+ data[, c(tmpdexp) := pop.haz*lex.dur]
+ # set(data, j = tmpdexp, value = data$pop.haz * data$lex.dur)
+
+
+ if (check) {
+ ## test for negative excess cases in factor variable combinations ------------
+
+ ## determine factor variables for cross-tabulating
+
+ fac_vars <- colnames(attr(terms.formula(formula), "factors"))
+
+ fac_list <- paste0(fac_vars, collapse=", ")
+ fac_list <- paste0("list(", fac_list, ")")
+ fac_list <- parse(text=fac_list)
+
+ wh_fac <- as.data.table(data)[subset, unlist(lapply(eval(fac_list), is.factor))]
+ fac_vars <- fac_vars[wh_fac]
+
+ if (length(fac_vars) == 0) fac_vars <- NULL
+ fac_list <- paste0(fac_vars, collapse=", ")
+ fac_list <- paste0("list(", fac_list, ")")
+ fac_list <- parse(text=fac_list)
+
+
+ ## test negativity of excess cases
+ LHS <- as.character(formula)
+ LHS <- LHS[2]
+ LHS <- parse(text = LHS)
+
+ excas <- as.data.table(data)[subset, list(excess_cases = sum(eval(LHS)-get(tmpdexp))), keyby=eval(fac_list)]
+ setnames(excas, 1:ncol(excas), c(fac_vars, "excess_cases"))
+
+
+ if (any(is.na(excas$excess_cases))) {
+ stop("some excess cases were NA; is pop.haz available for all records?")
+ }
+ excas <- excas[excess_cases <= 0]
+ if (any(excas$excess_cases<=0)) {
+ print(excas)
+ warning("negative excess cases found in some combinations of factor variables;
+ see printed table and try e.g. wider FOT intervals")
+ }
+ }
+
+
+ ## custom poisson family -----------------------------------------------------
+ RPL <- copy(poisson())
+ RPL$link <- "glm relative survival model with Poisson error"
+ RPL$linkfun <- function(mu, d.exp = data[[tmpdexp]][subset]) log(mu - d.exp)
+ RPL$linkinv <- function(eta, d.exp = data[[tmpdexp]][subset]) d.exp + exp(eta)
+
+
+ RPL$initialize <- substitute( {
+ if (any(y < 0)) stop(paste("Negative values not allowed for",
+ "the Poisson family"))
+ n <- rep.int(1, nobs)
+ mustart <- pmax(y, d.exp) + 0.1
+ }, list(d.exp = data[[tmpdexp]][subset]) )
+
+
+
+ ## glm call ------------------------------------------------------------------
+ ## update() won't work
+ ## anova() works
+
+
+ ml <- glm(formula = formula, data=data[subset,], offset=log(lex.dur),
+ # subset = subset, ## Error in xj[i] : invalid subscript type 'closure'
+ family = RPL, ...)
+
+ ## final touches -------------------------------------------------------------
+ ml$d.exp <- data[subset, ][[tmpdexp]]
+ ml$FOT <- data[subset, ]$FOT
+ ml$fot.breaks <- surv.breaks
+ ml$call$data <- dataname
+ ml$call$formula <- formula
+ setattr(ml, "class", c("relpois", "glm", "lm"))
+
+ setattr(data, "class", oldClass) ## see beginning of function
+
+
+ ml
+}
+
+
+
+#' @title Excess hazard Poisson model
+#' @author Joonas Miettinen, Karri Seppa
+#' @description Estimate a Poisson Piecewise Constant Excess
+#' Hazards Model
+#' @param formula a formula with the counts of events as the response.
+#' Passed on to \code{glm}. May contain usage of the \code{offset()} function
+#' instead of supplying the offset for the Poisson model via the argument
+#' \code{offset}.
+#' @param data an \code{aggre} object (an aggregated data set;
+#' see \code{\link{as.aggre}} and \code{\link{aggre}})
+#' @param d.exp the counts of expected cases. Mandatory.
+#' E.g. \code{d.exp = EXC_CASES}, where \code{EXC_CASES} is a column in data.
+#' @param offset the offset for the Poisson model, supplied as e.g.
+#' \code{offset = log(PTIME)}, where \code{PTIME} is a subject-time
+#' variable in data. Not mandatory, but almost always should be supplied.
+#' @param breaks optional; a numeric vector of [a,b) breaks to specify
+#' survival intervals over the follow-up time; if \code{NULL}, the
+#' existing breaks along the mandatory time scale mentioned in \code{formula}
+#' are used
+#' @param subset a logical vector or condition; e.g. \code{subset = sex == 1};
+#' limits the data before estimation
+#' @param piecewise \code{logical}; if \code{TRUE}, and if any time scale
+#' from data is used (mentioned) in the formula, the time scale is
+#' transformed into a factor variable indicating intervals on the time scale.
+#' Otherwise the time scale left as it is, usually a numeric variable.
+#' E.g. if \code{formula = counts ~ TS1*VAR1}, \code{TS1} is transformed
+#' into a factor before fitting model.
+#' @param check \code{logical}; if \code{TRUE}, performs check on the
+#' negativity excess cases by factor-like covariates in formula -
+#' negative excess cases will very likely lead to non-converging model
+#' @param ... any other argument passed on to \code{\link[stats]{glm}} such as
+#' \code{control} or \code{weights}
+#' @import stats
+#'
+#' @return
+#' A \code{relpois} object created using a custom Poisson family construct.
+#'
+#' @seealso
+#' \code{\link{lexpand}}, \code{\link{poisson}}, \code{\link{glm}}
+#' @family main functions
+#' @family relpois functions
+#' @examples
+#' ## use the simulated rectal cancer cohort
+#' data(sire, package = "popEpi")
+#' sire$agegr <- cut(sire$dg_age, c(0,45,60,Inf), right=FALSE)
+#'
+#' ## create aggregated example data
+#' fb <- c(0,3/12,6/12,1,2,3,4,5)
+#' x <- lexpand(sire, birth = bi_date, entry = dg_date,
+#' exit = ex_date, status=status %in% 1:2,
+#' breaks = list(fot=fb),
+#' pophaz=popmort, pp = FALSE,
+#' aggre = list(agegr, fot))
+#'
+#' ## fit model using aggregated data
+#' rpm <- relpois_ag(formula = from0to1 ~ fot + agegr, data = x,
+#' d.exp = d.exp, offset = log(pyrs))
+#' summary(rpm)
+#'
+#' ## the usual functions for handling glm models work
+#' rpm2 <- update(rpm, . ~ fot*agegr)
+#' anova(rpm, rpm2, test="LRT")
+#' AIC(rpm, rpm2)
+#'
+#' ## other features such as residuals or predicting are not guaranteed
+#' ## to work as intended.
+#' @export
+
+relpois_ag <- function(formula, data, d.exp, offset = NULL, breaks = NULL, subset = NULL, piecewise = TRUE, check = TRUE, ...) {
+
+ TF <- environment()
+ PF <- parent.frame(1L)
+ original_formula <- formula
+
+ if (!inherits(data, "aggre")) {
+ stop("data is not an aggre object. Please aggregate your data first using ",
+ "e.g. lexpand(). If your data is pre-aggregated, use as.aggre() to ",
+ "mark it as such.")
+ }
+
+ formula <- evalRecursive(formula, env = TF, enc = PF)$arg
+ if (missing(formula) || !inherits(formula, "formula")) stop("formula not defined")
+
+
+
+
+ ## detect survival time scale ------------------------------------------------
+ oldBreaks <- copy(attr(data, "breaks"))
+ allScales <- names(oldBreaks)
+ if (is.null(oldBreaks)) {
+ stop("data does not have breaks information. Is it a result of using ",
+ "aggre() or as.aggre()?")
+ }
+ survScale <- intersect(all.vars(formula), allScales)
+ if (length(survScale) > 1L) {
+ stop("Found several used time scales in formula, which is not supported ",
+ "(found ", paste0("'", survScale, "'", collapse = ", "), ")")
+ }
+
+ ## check supplied breaks -----------------------------------------------------
+ if (is.numeric(breaks)) {
+ breaks <- list(breaks)
+ names(breaks) <- survScale
+ }
+
+ if (!is.null(breaks)) {
+ if (!all_breaks_in(breaks, oldBreaks)) {
+ stop("Supplied breaks must be subset of the breaks used in splitting/",
+ "aggregating data. See the latter using e.g. ",
+ "attributes(x)$aggre.meta$breaks where x is your aggregated data.")
+ }
+ }
+
+ ## pre-find args -------------------------------------------------------------
+ desub <- substitute(d.exp)
+ sub_d.exp <- evalRecursive(desub, env = data[1L, ], enc = PF)$argSub
+ offsub <- substitute(offset)
+ sub_offset <- evalRecursive(offsub, env = data[1L, ], enc = PF)$argSub
+
+ ## prep & subset data --------------------------------------------------------
+ subset <- substitute(subset)
+ subset <- evalLogicalSubset(data, subset)
+
+ av <- c(all.vars(formula), all.vars(sub_d.exp), all.vars(sub_offset))
+ av <- intersect(names(data), av)
+
+ x <- subsetDTorDF(data, subset = subset, select = av)
+
+ setDT(x)
+ setattr(x, "class", c("aggre", "data.table", "data.frame"))
+
+ ## handle breaks -------------------------------------------------------------
+ if (!is.null(breaks)) {
+ if (!piecewise) {
+ stop("Supplied breaks but piecewise = FALSE. Please select piecewise = ",
+ "TRUE if you want piecewise estimates defined by the breaks.")
+ }
+
+ }
+
+ cutBreaks <- breaks
+ othScales <- setdiff(names(oldBreaks), names(cutBreaks))
+ cutBreaks[othScales] <- oldBreaks[othScales]
+ cutBreaks[sapply(cutBreaks, length) < 2L] <- NULL
+
+ if (piecewise && length(cutBreaks)) {
+
+ for (sc in names(cutBreaks)) {
+ set(x, j = sc, value = cut(x[[sc]], breaks = cutBreaks[[sc]],
+ right = FALSE, labels = FALSE))
+
+ pieces <- round(cutBreaks[[sc]], 2L)
+ pieces <- paste0("[", pieces[-length(pieces)], ", ", pieces[-1L], ")")
+ set(x, j = sc, value = pieces[x[[sc]]])
+ }
+
+ }
+
+ ## eval value args -----------------------------------------------------------
+ d.exp <- evalPopArg(x, sub_d.exp, enclos = PF,
+ DT = TRUE, recursive = TRUE)
+ if (is.null(d.exp)) stop("argument d.exp was not supplied")
+ d.exp <- rowSums(d.exp)
+ if (length(d.exp) == nrow(data)) d.exp <- d.exp[subset]
+
+ offset <- evalPopArg(x, sub_offset, enclos = PF,
+ DT = TRUE, recursive = TRUE)
+ if (!is.null(offset)) offset <- rowSums(offset)
+ if (length(offset) == nrow(data)) offset <- offset[subset]
+
+ ## check excess cases --------------------------------------------------------
+ d <- eval(formula[[2]], envir = x, enclos = PF)
+ check_excess_cases(d = d, d.exp = d.exp, data = x,
+ formula = formula, enclos = PF)
+
+ ## custom poisson family -----------------------------------------------------
+ RPL <- copy(poisson())
+ RPL$link <- "glm relative survival model with Poisson error"
+ RPL$linkfun <- function(mu, d.exp = TF$d.exp) {
+ log(mu - d.exp)
+ }
+ RPL$linkinv <- function(eta, d.exp = TF$d.exp) {
+ d.exp + exp(eta)
+ }
+
+ RPL$initialize <- substitute( {
+ if (any(y < 0)) stop(paste("Negative values not allowed for",
+ "the Poisson family"))
+ n <- rep.int(1, nobs)
+ mustart <- pmax(y, d.exp) + 0.1
+ }, list(d.exp = TF$d.exp) )
+
+ ## glm call ------------------------------------------------------------------
+
+ ## NOTE: parent.frame(3L) to find this (this function's) environment
+ ml <- glm(formula = formula, data=x, offset = parent.frame(3L)$offset, family = RPL, ...)
+
+ ## final touches -------------------------------------------------------------
+
+ ml$call <- match.call()
+ setattr(ml, "class", c("relpois", "glm", "lm"))
+
+ ml
+}
+
+
+
+
+
+
+check_excess_cases <- function(d, d.exp, formula, data, enclos = parent.frame(1)) {
+ # @title Check Excess Counts for a Relative Poisson Model
+ # @description Checks that the excess counts by strata all exceed 0.
+ # @param d a vector of observed counts of cases
+ # @param d.exp a vector of expected counts of cases
+ # @param a formula, the right side of which is inspected for factor-like
+ # stratifying variables (factors and character variables)
+ # @param data a data set to eval formula in its context
+ # @param enclos passed on to RHS2DT() to evaluate formula to columns;
+ # enclosing environment of data
+ PF <- parent.frame(1)
+ tF <- environment()
+
+ d.exc <- NULL
+
+ by <- RHS2DT(formula, data = data, enclos = enclos)
+ if (!length(by)) by <- list()
+ facVars <- names(by)[sapply(by, function(col) is.factor(col) || is.character(col))]
+
+ d <- substitute(d)
+ d <- eval(d, envir = data, enclos = PF)
+ d.exp <- substitute(d.exp)
+ d.exp <- eval(d.exp, envir = data, enclos = PF)
+
+ if (length(facVars)) {
+ by <- setDT(mget(facVars, as.environment(by)))
+ } else {
+ by <- list()
+ }
+
+ dt <- data.table(d = d, d.exp = d.exp)
+ dt[, d.exc := d - d.exp]
+
+ for (k in seq_along(names(by))) {
+ bycol <- names(by)[k]
+
+ tab <- dt[, lapply(.SD, sum), keyby = .(by[[bycol]])][d.exc <= 0L, ]
+ setnames(tab, 1, bycol)
+ if (nrow(tab)) {
+ on.exit(print(tab))
+ stop("There are negative excess cases in the data calculated separately ",
+ "by the factor-like variables ",
+ paste0("'", facVars, "'", collapse = ", "), ". The model is not ",
+ "estimable with negative excess cases in strata. ",
+ "Infracting levels:")
+ }
+
+ }
+
+ if (!length(by)) {
+ tab <- dt[, lapply(.SD, sum)]
+ if (tab$d.exc <= 0L) {
+ stop("The marginal sum of excess cases is negative; the model cannot ",
+ "be fitted. ")
+ }
+ }
+
+
+
+
+ invisible(NULL)
+}
+
+
+
+
+
+
+relpois_lex <- function(formula,
+ data,
+ pophaz = NULL,
+ breaks = NULL,
+ subset = NULL,
+ check = TRUE,
+ ...) {
+ PF <- parent.frame(1)
+ TF <- environment()
+
+ form <- agVars <- NULL
+
+
+ ## checks --------------------------------------------------------------------
+
+ checkLexisData(data)
+ checkPophaz(lex = data, ph = pophaz)
+ if (!is.null(breaks)) checkBreaksList(breaks)
+
+ oldBreaks <- copy(attr(data, "breaks"))
+ allScales <- copy(attr(data, "time.scales"))
+
+
+ ## detect which time scale used ----------------------------------------------
+
+ survScale <- intersect(all.vars(formula), allScales)
+ if (length(survScale) > 1L) {
+ stop("Found several used time scales in formula, which is not supported ",
+ "(found ", paste0("'", survScale, "'", collapse = ", "), ")")
+ }
+ ## subset --------------------------------------------------------------------
+
+ sb <- substitute(subset)
+ subset <- evalLogicalSubset(data, sb, enclos = PF)
+ x <- data[subset, ]
+
+ ## essentially same steps as in survtab() here, maybe make that
+ ## into a function / generalize lexpand.
+
+ ## splitting -----------------------------------------------------------------
+ if (is.numeric(breaks) && length(survScale)) {
+ breaks <- list(breaks)
+ names(breaks) <- survScale
+ }
+ if (!is.null(breaks)) x <- splitMulti(x, breaks = breaks, drop = TRUE)
+ newBreaks <- copy(attr(x, "breaks"))
+
+ ## merge in pophaz -----------------------------------------------------------
+ haz <- makeTempVarName(x, pre = "haz_")
+ ph <- data.table(pophaz)
+ phVars <- setdiff(names(ph), "haz")
+ setnames(ph, "haz", haz)
+ x <- cutLowMerge(x, pophaz, by = phVars, all.x = TRUE, all.y = FALSE,
+ old.nums = TRUE, mid.scales = intersect(allScales, phVars))
+
+ # expected cases
+ d.exp <- makeTempVarName(x, pre = "d.exp_")
+ set(x, j = d.exp, value = x$lex.dur * x[[haz]])
+
+ ## aggregating ---------------------------------------------------------------
+ ag <- model.frame(formula[-2], data = x) ## without response
+ setDT(ag)
+ set(ag, j = d.exp, value = x[[d.exp]])
+ d <- makeTempVarName(x, pre = "d_")
+ set(ag, j = d, value = eval(form))
+ ag <- aggre(x, by = agVars, sum.values = d.exp)
+ rm(x)
+
+ ag_form <- formula
+ ag_form[[2]] <- quote(from0to1)
+
+ rp <- relpois_ag(ag_form, data = data, breaks = NULL)
+
+ rp$call <- match.call()
+ rp$formula <- formula
+
+ rp
+}
+
diff --git a/R/relative_poisson_net_survival.R b/R/relative_poisson_net_survival.R
index 81b50ae..21adde1 100644
--- a/R/relative_poisson_net_survival.R
+++ b/R/relative_poisson_net_survival.R
@@ -1,190 +1,190 @@
-#' @title Marginal piecewise parametric relative survival curve
-#' @author Joonas Miettinen
-#' @description Fit a marginal relative survival curve based on a \code{relpois} fit
-#' @param object a \code{relpois} object
-#' @details
-#' Estimates a marginal curve, i.e. the average of all
-#' possible individual curves.
-#'
-#' Only supported when the reserved \code{FOT} variable was used in \code{relpois}.
-#' Computes a curve for each unique combination of covariates (e.g. 4 sets)
-#' and returns a weighted average curve based on the counts
-#' of subjects for each combination (e.g. 1000, 125, 50, 25 respectively).
-#' Fairly fast when only categorical variables have been used, otherwise
-#' go get a cup of coffee.
-#'
-#' If delayed entry is present in data due to period analysis limiting,
-#' the marginal curve is constructed only for those whose follow-up started
-#' in the respective period.
-#' @return
-#' A `data.table` of relative survival curves.
-#' @export
-#' @family relpois functions
-#'
-#' @import data.table
-#' @import Epi
-#' @import stats
-#'
-#' @examples
-#' \donttest{
-#' ## use the simulated rectal cancer cohort
-#' data("sire", package = "popEpi")
-#' ab <- c(0,45,55,65,70,Inf)
-#' sire$agegr <- cut(sire$dg_age, breaks = ab, right = FALSE)
-#'
-#' BL <- list(fot= seq(0,10,1/12))
-#' pm <- data.frame(popEpi::popmort)
-#' x <- lexpand(sire, breaks=BL, pophaz=pm,
-#' birth = bi_date,
-#' entry = dg_date, exit = ex_date,
-#' status = status %in% 1:2)
-#'
-#' rpm <- relpois(x, formula = lex.Xst %in% 1:2 ~ -1+ FOT + agegr,
-#' fot.breaks=c(0,0.25,0.5,1:8,10))
-#' pmc <- rpcurve(rpm)
-#'
-#' ## compare with non-parametric estimates
-#' names(pm) <- c("sex", "per", "age", "haz")
-#' x$agegr <- cut(x$dg_age, c(0,45,55,65,75,Inf), right = FALSE)
-#' st <- survtab(fot ~ adjust(agegr), data = x, weights = "internal",
-#' pophaz = pm)
-#'
-#'
-#' plot(st, y = "r.e2.as")
-#' lines(y = pmc$est, x = pmc$Tstop, col="red")
-#' }
-#'
-#'
-#'
-
-rpcurve <- function(object) {
-
- ## appease R CMD CHECK
- Tstart <- FOT <- uni_id <- uni_n <- uni_w <-
- lo <- hi <- lex.Xst <- est <- fot <- pop.haz <- delta <-
- Tstop <- Tstar <- lex.id <- fot <- lex.multi <- pyrs <- NULL
-
- ## sanity checks -------------------------------------------------------------
- if (!inherits(object, "relpois")) {
- stop("object does not have class 'relpois'; see ?relpois")
- }
-
- if (!"FOT" %in% all.vars(object$formula)) {
- stop("No FOT variable in model formula; see Details in ?rpcurve")
- }
-
-
- ## collate surv.ints, breaks, deltas -----------------------------------------
- fot_levels <- as.factor(sort(as.character(unique(object$model$FOT))))
- fb <- sort(object$fot.breaks)
- fb <- data.table(Tstart = fb[-length(fb)], Tstop = fb[-1])
- fb[, FOT := fot_levels]
- fb[, delta := Tstop-Tstart]
- n_ints <- nrow(fb)
-
- ## model data / model matrix construction ------------------------------------
- modmat <- data.table(object$data)
- if (!"lex.multi" %in% names(modmat)) {
- setkey(modmat, lex.id, fot)
- modmat[, lex.multi := 1:.N, by = lex.id]
- }
- setkey(modmat, lex.id, lex.multi)
- modmat <- unique(modmat, by = "lex.id")
- modmat <- modmat[fot == 0] ## with period data, only non-delayed entries used
- modmat <- modmat[rep(1:.N, each = n_ints)]
- IDs <- modmat$lex.id
- n_matrows <- length(IDs)
-
- setcolsnull(modmat, keep = c(all.vars(object$formula)))
- setcolsnull(modmat, "FOT")
- modmat <- cbind(fb[, list(FOT=FOT, lex.dur = delta)], modmat)
- modmat[, "lex.Xst_factor" := factor(levels(as.factor(lex.Xst))[1])]
- modmat[, "lex.Xst" := NULL]
- data.table::setnames(modmat, "lex.Xst_factor", "lex.Xst")
- modmat[, "order" := 1:.N]
-
- ## unique sets of covariates only
- umodmat <- unique(modmat, by = setdiff(names(modmat), c("lex.dur","lex.Xst","order")))
- umodmat[, uni_id := rep(1:(nrow(umodmat)/n_ints), each=n_ints)]
-
- setkeyv(umodmat, setdiff(names(modmat), c("lex.dur","lex.Xst","order","uni_id")))
- setkeyv(modmat, setdiff(names(modmat), c("lex.dur","lex.Xst","order","uni_id")))
-
- uni_n <- umodmat[modmat, list(uni_n = .N / n_ints), by = "uni_id"][["uni_n"]]
- uni_n <- rep(uni_n, times = nrow(umodmat) / length(uni_n))
- data.table::set(umodmat, j = "uni_n", value = uni_n)
-
- setkeyv(umodmat, c("uni_id", "order"))
- mean_weights <- umodmat$uni_n
- IDs <- umodmat$uni_id
-
- setcolsnull(umodmat, delete=c("order","uni_id","uni_n"))
-
- modmat <- stats::model.matrix(object, data=umodmat)
- mmattrs <- attributes(modmat)
- mmattrs$dimnames <- mmattrs$dim <- NULL
-
-
- ## (unique covariate) subject-specific curve fits ----------------------------
- l <- split(data.table(modmat), IDs)
- l <- lapply(l, as.matrix)
- attrsetter <- function(obj) {
- mostattributes(obj) <- c(attributes(obj), mmattrs)
- obj
- }
- l <- lapply(l, attrsetter)
-
- epicumgetter <- function(x, ...) {
- Epi::ci.cum(ctr.mat = x, ..., alpha = 1-0.95, Exp = TRUE, ci.Exp = TRUE)
- }
-
- tab <- lapply(l, epicumgetter, obj=object, intl = fb$delta); rm(l)
-
- ## collate & compute relative survivals --------------------------------------
- tab <- lapply(tab, as.data.table)
- tab <- rbindlist(tab)
- setnames(tab, names(tab), c("est", "lo", "hi", "SE"))
- fot_values <- rep(fot_levels, times = nrow(tab) / length(fot_levels))
- data.table::set(tab, j = "FOT", value = fot_values)
- tab[, "uni_id" := IDs]
- tab[, "uni_w" := mean_weights]
- Haz2RS <- function(x) {
- sum(exp(-x)*tab$uni_w)/n_matrows
- }
- tab <- tab[, lapply(list(est=est,lo=lo,hi=hi), `-`)]
- tab <- tab[, lapply(list(est=est,lo=lo,hi=hi), exp)]
- tab[, `:=`(est=est*mean_weights,lo=lo*mean_weights,hi=hi*mean_weights)]
- data.table::set(tab, j = "FOT", value = fot_values)
- tab <- tab[, lapply(list(est=est, lo=lo, hi=hi), sum), by = "FOT"]
- tab <- tab[
- j = lapply(list(est=est, lo=lo, hi=hi), function(x) {
- x / (n_matrows / n_ints)
- }),
- by = "FOT"
- ]
-
- setkeyv(tab, "FOT")
- setkeyv(fb, "FOT")
- tab <- fb[tab, on = "FOT"]
-
- ## disabled CI computation in 0.2.2 due to lack of testing & certainty of
- ## correctness
- setcolsnull(tab, c("lo", "hi"))
-
- setattr(tab, "class", c("data.table", "data.frame"))
- if (!return_DT()) setDFpe(tab)
- tab[]
-}
-
-#' @title Relative Poisson family object
-#' @author Karri Seppa
-#' @description A family object for GLM fitting of relative Poisson models
-#' @format
-#' A list very similar to that created by \code{poisson()}.
-#' @export
-#' @family relpois functions
-RPL <- data.table::copy(stats::poisson())
-RPL$link <- "glm relative survival model with Poisson error"
-RPL$linkfun <- function(mu, d.exp) log(mu - d.exp)
-RPL$linkinv <- function(eta, d.exp) d.exp + exp(eta)
-
+#' @title Marginal piecewise parametric relative survival curve
+#' @author Joonas Miettinen
+#' @description Fit a marginal relative survival curve based on a \code{relpois} fit
+#' @param object a \code{relpois} object
+#' @details
+#' Estimates a marginal curve, i.e. the average of all
+#' possible individual curves.
+#'
+#' Only supported when the reserved \code{FOT} variable was used in \code{relpois}.
+#' Computes a curve for each unique combination of covariates (e.g. 4 sets)
+#' and returns a weighted average curve based on the counts
+#' of subjects for each combination (e.g. 1000, 125, 50, 25 respectively).
+#' Fairly fast when only categorical variables have been used, otherwise
+#' go get a cup of coffee.
+#'
+#' If delayed entry is present in data due to period analysis limiting,
+#' the marginal curve is constructed only for those whose follow-up started
+#' in the respective period.
+#' @return
+#' A `data.table` of relative survival curves.
+#' @export
+#' @family relpois functions
+#'
+#' @import data.table
+#' @import Epi
+#' @import stats
+#'
+#' @examples
+#' \donttest{
+#' ## use the simulated rectal cancer cohort
+#' data("sire", package = "popEpi")
+#' ab <- c(0,45,55,65,70,Inf)
+#' sire$agegr <- cut(sire$dg_age, breaks = ab, right = FALSE)
+#'
+#' BL <- list(fot= seq(0,10,1/12))
+#' pm <- data.frame(popEpi::popmort)
+#' x <- lexpand(sire, breaks=BL, pophaz=pm,
+#' birth = bi_date,
+#' entry = dg_date, exit = ex_date,
+#' status = status %in% 1:2)
+#'
+#' rpm <- relpois(x, formula = lex.Xst %in% 1:2 ~ -1+ FOT + agegr,
+#' fot.breaks=c(0,0.25,0.5,1:8,10))
+#' pmc <- rpcurve(rpm)
+#'
+#' ## compare with non-parametric estimates
+#' names(pm) <- c("sex", "per", "age", "haz")
+#' x$agegr <- cut(x$dg_age, c(0,45,55,65,75,Inf), right = FALSE)
+#' st <- survtab(fot ~ adjust(agegr), data = x, weights = "internal",
+#' pophaz = pm)
+#'
+#'
+#' plot(st, y = "r.e2.as")
+#' lines(y = pmc$est, x = pmc$Tstop, col="red")
+#' }
+#'
+#'
+#'
+
+rpcurve <- function(object) {
+
+ ## appease R CMD CHECK
+ Tstart <- FOT <- uni_id <- uni_n <- uni_w <-
+ lo <- hi <- lex.Xst <- est <- fot <- pop.haz <- delta <-
+ Tstop <- Tstar <- lex.id <- fot <- lex.multi <- pyrs <- NULL
+
+ ## sanity checks -------------------------------------------------------------
+ if (!inherits(object, "relpois")) {
+ stop("object does not have class 'relpois'; see ?relpois")
+ }
+
+ if (!"FOT" %in% all.vars(object$formula)) {
+ stop("No FOT variable in model formula; see Details in ?rpcurve")
+ }
+
+
+ ## collate surv.ints, breaks, deltas -----------------------------------------
+ fot_levels <- as.factor(sort(as.character(unique(object$model$FOT))))
+ fb <- sort(object$fot.breaks)
+ fb <- data.table(Tstart = fb[-length(fb)], Tstop = fb[-1])
+ fb[, FOT := fot_levels]
+ fb[, delta := Tstop-Tstart]
+ n_ints <- nrow(fb)
+
+ ## model data / model matrix construction ------------------------------------
+ modmat <- data.table(object$data)
+ if (!"lex.multi" %in% names(modmat)) {
+ setkey(modmat, lex.id, fot)
+ modmat[, lex.multi := 1:.N, by = lex.id]
+ }
+ setkey(modmat, lex.id, lex.multi)
+ modmat <- unique(modmat, by = "lex.id")
+ modmat <- modmat[fot == 0] ## with period data, only non-delayed entries used
+ modmat <- modmat[rep(1:.N, each = n_ints)]
+ IDs <- modmat$lex.id
+ n_matrows <- length(IDs)
+
+ setcolsnull(modmat, keep = c(all.vars(object$formula)))
+ setcolsnull(modmat, "FOT")
+ modmat <- cbind(fb[, list(FOT=FOT, lex.dur = delta)], modmat)
+ modmat[, "lex.Xst_factor" := factor(levels(as.factor(lex.Xst))[1])]
+ modmat[, "lex.Xst" := NULL]
+ data.table::setnames(modmat, "lex.Xst_factor", "lex.Xst")
+ modmat[, "order" := 1:.N]
+
+ ## unique sets of covariates only
+ umodmat <- unique(modmat, by = setdiff(names(modmat), c("lex.dur","lex.Xst","order")))
+ umodmat[, uni_id := rep(1:(nrow(umodmat)/n_ints), each=n_ints)]
+
+ setkeyv(umodmat, setdiff(names(modmat), c("lex.dur","lex.Xst","order","uni_id")))
+ setkeyv(modmat, setdiff(names(modmat), c("lex.dur","lex.Xst","order","uni_id")))
+
+ uni_n <- umodmat[modmat, list(uni_n = .N / n_ints), by = "uni_id"][["uni_n"]]
+ uni_n <- rep(uni_n, times = nrow(umodmat) / length(uni_n))
+ data.table::set(umodmat, j = "uni_n", value = uni_n)
+
+ setkeyv(umodmat, c("uni_id", "order"))
+ mean_weights <- umodmat$uni_n
+ IDs <- umodmat$uni_id
+
+ setcolsnull(umodmat, delete=c("order","uni_id","uni_n"))
+
+ modmat <- stats::model.matrix(object, data=umodmat)
+ mmattrs <- attributes(modmat)
+ mmattrs$dimnames <- mmattrs$dim <- NULL
+
+
+ ## (unique covariate) subject-specific curve fits ----------------------------
+ l <- split(data.table(modmat), IDs)
+ l <- lapply(l, as.matrix)
+ attrsetter <- function(obj) {
+ mostattributes(obj) <- c(attributes(obj), mmattrs)
+ obj
+ }
+ l <- lapply(l, attrsetter)
+
+ epicumgetter <- function(x, ...) {
+ Epi::ci.cum(ctr.mat = x, ..., alpha = 1-0.95, Exp = TRUE, ci.Exp = TRUE)
+ }
+
+ tab <- lapply(l, epicumgetter, obj=object, intl = fb$delta); rm(l)
+
+ ## collate & compute relative survivals --------------------------------------
+ tab <- lapply(tab, as.data.table)
+ tab <- rbindlist(tab)
+ setnames(tab, names(tab), c("est", "lo", "hi", "SE"))
+ fot_values <- rep(fot_levels, times = nrow(tab) / length(fot_levels))
+ data.table::set(tab, j = "FOT", value = fot_values)
+ tab[, "uni_id" := IDs]
+ tab[, "uni_w" := mean_weights]
+ Haz2RS <- function(x) {
+ sum(exp(-x)*tab$uni_w)/n_matrows
+ }
+ tab <- tab[, lapply(list(est=est,lo=lo,hi=hi), `-`)]
+ tab <- tab[, lapply(list(est=est,lo=lo,hi=hi), exp)]
+ tab[, `:=`(est=est*mean_weights,lo=lo*mean_weights,hi=hi*mean_weights)]
+ data.table::set(tab, j = "FOT", value = fot_values)
+ tab <- tab[, lapply(list(est=est, lo=lo, hi=hi), sum), by = "FOT"]
+ tab <- tab[
+ j = lapply(list(est=est, lo=lo, hi=hi), function(x) {
+ x / (n_matrows / n_ints)
+ }),
+ by = "FOT"
+ ]
+
+ setkeyv(tab, "FOT")
+ setkeyv(fb, "FOT")
+ tab <- fb[tab, on = "FOT"]
+
+ ## disabled CI computation in 0.2.2 due to lack of testing & certainty of
+ ## correctness
+ setcolsnull(tab, c("lo", "hi"))
+
+ setattr(tab, "class", c("data.table", "data.frame"))
+ if (!return_DT()) setDFpe(tab)
+ tab[]
+}
+
+#' @title Relative Poisson family object
+#' @author Karri Seppa
+#' @description A family object for GLM fitting of relative Poisson models
+#' @format
+#' A list very similar to that created by \code{poisson()}.
+#' @export
+#' @family relpois functions
+RPL <- data.table::copy(stats::poisson())
+RPL$link <- "glm relative survival model with Poisson error"
+RPL$linkfun <- function(mu, d.exp) log(mu - d.exp)
+RPL$linkinv <- function(eta, d.exp) d.exp + exp(eta)
+
diff --git a/R/sir.R b/R/sir.R
index 081a8b8..2d2a0e0 100644
--- a/R/sir.R
+++ b/R/sir.R
@@ -1,1452 +1,1452 @@
-#' @title Calculate SIR or SMR
-#' @author Matti Rantanen, Joonas Miettinen
-#' @description Poisson modelled standardised incidence or mortality ratios (SIRs / SMRs) i.e.
-#' indirect method for calculating standardised rates. SIR is a ratio of observed and expected cases.
-#' Expected cases are derived by multiplying the strata-specific population rate with the
-#' corresponding person-years of the cohort.
-#'
-#' @details \code{sir} is a comprehensive tool for modelling SIRs/SMRs with flexible
-#' options to adjust and print SIRs, test homogeneity and utilize
-#' multi-state data. The cohort data and the variable names for observation
-#' counts and person-years are required.
-#' The reference data is optional, since the cohort data
-#' can be stratified (\code{print}) and compared to total.
-#'
-#'
-#' \strong{Adjust and print}
-#'
-#' A SIR can be adjusted or standardised using the covariates found in both \code{coh.data} and \code{ref.data}.
-#' Variable to adjust are given in \code{adjust}.
-#' Variable names needs to match in both \code{coh.data} and \code{ref.data}.
-#' Typical variables to adjust by are gender, age group and calendar period.
-#'
-#' \code{print} is used to stratify the SIR output. In other words, the variables
-#' assigned to \code{print} are the covariates of the Poisson model.
-#' Variable levels are treated as categorical.
-#' Variables can be assigned in both \code{print} and \code{adjust}.
-#' This means the output it adjusted and printed by these variables.
-#'
-#' \code{print} can also be a list of expressions. This enables changing variable
-#' names or transforming variables with functions such as \code{cut} and \code{round}.
-#' For example, the existing variables \code{agegroup} and \code{year} could be
-#' transformed to new levels using \code{cut} by
-#'
-#' \code{print = list( age.category = cut(agegroup, breaks = c(0,50,75,100)),
-#' year.cat = cut(year, seq(1950,2010,20)))}
-#'
-#'
-#' \strong{ref.rate or ref.obs & ref.pyrs}
-#'
-#' The population rate variable can be given to the \code{ref.rate} parameter.
-#' That is, when using e.g. the \code{popmort} or a comparable data file, one may
-#' supply \code{ref.rate} instead of \code{ref.obs} and \code{ref.pyrs}, which
-#' will be ignored if \code{ref.rate} is supplied.
-#'
-#'
-#' Note that if all the stratifying variables in
-#' \code{ref.data} are not listed in \code{adjust},
-#' or when the categories are otherwise combined,
-#' the (unweighted) mean of rates is used for computing expected cases.
-#' This might incur a small bias in comparison to when exact numbers of observations
-#' and person-years are available.
-#'
-#'
-#'
-#' \strong{mstate}
-#'
-#' E.g. using \code{lexpand} it's possible to compute counts for several outcomes
-#' so that the population at risk is same for each
-#' outcome such as a certain kind of cancer.
-#' The transition counts are in wide data format,
-#' and the relevant columns can be supplied to \code{sir}
-#' in a vector via the \code{coh.obs} argument.
-#' The name of the corresponding new column in \code{ref.data} is given in
-#' \code{mstate}. It's recommended to include the \code{mstate} variable in \code{adjust},
-#' so the corresponding information should also be available in \code{ref.data}.
-#' More examples in sir-vignette.
-#'
-#' This approach is analogous to where SIRs are calculated separately their
-#' own function calls.
-#'
-#'
-#' \strong{Other parameters}
-#'
-#' \code{univariate} confidence intervals are calculated using exact
-#' Poisson intervals (\code{poisson.ci}). The options \code{profile} and \code{wald} are
-#' is based on a Poisson regression model: profile-likelihood confidence intervals
-#' or Wald's normal-approximation. P-value is Poisson model based \code{conf.type}
-#' or calculated using the method described by Breslow and Day. Function automatically
-#' switches to another \code{conf.type} if calculation is not possible with a message.
-#' Usually model fit fails if there is print stratum with zero expected values.
-#'
-#'
-#' The LRT p-value tests the levels of \code{print}. The test can be either
-#' \code{"homogeneity"}, a likelihood ratio test where the model variables defined in
-#' \code{print} (factor) is compared to the constant model.
-#' Option \code{"trend"} tests if the linear trend of the continuous variable in
-#' \code{print} is significant (using model comparison).
-#'
-#'
-#' \strong{EAR: Excess Absolute Risk}
-#'
-#' Excess Absolute Risk is a simple way to quantify the absolute difference between cohort risk and
-#' population risk.
-#' Make sure that the person-years are calculated accordingly before using EAR. (when using mstate)
-#'
-#' Formula for EAR:
-#' \deqn{EAR = \frac{observed - expected}{person years} \times 1000.}{EAR = (obs - exp)/pyrs * 1000.}
-#'
-#' \strong{Data format}
-#'
-#' The data should be given in tabulated format. That is the number of observations
-#' and person-years are represented for each stratum.
-#' Note that also individual data is allowed as long as each observations,
-#' person-years, and print and adjust variables are presented in columns.
-#' The extra variables and levels are reduced automatically before estimating SIRs.
-#' Example of data format:
-#'
-#' \tabular{rrrrr}{
-#' sex \tab age \tab period \tab obs \tab pyrs \cr
-#' 0 \tab 1 \tab 2010 \tab 0 \tab 390 \cr
-#' 0 \tab 2 \tab 2010 \tab 5 \tab 385 \cr
-#' 1 \tab 1 \tab 2010 \tab 3 \tab 308 \cr
-#' 1 \tab 2 \tab 2010 \tab 12 \tab 315
-#' }
-#'
-#'
-#' @param coh.data aggregated cohort data, see e.g. \code{\link{lexpand}}
-#' @param coh.pyrs variable name for person years in cohort data;
-#' quoted (as a string \code{'myvar'}) or unquoted (AKA as a name; \code{myvar})
-#' @param coh.obs variable name for observed cases; quoted or unquoted. A vector when using \code{mstata}.
-#' @param ref.data population data. Can be left NULL if \code{coh.data}
-#' is stratified in \code{print}. See \code{\link{pophaz}} for details.
-#' @param ref.rate population rate variable (cases/person-years). Overwrites
-#' arguments \code{ref.pyrs} and \code{ref.obs}. Quoted or unquoted
-#' @param ref.pyrs variable name for person-years in population data; quoted or unquoted
-#' @param ref.obs variable name for observed cases; quoted or unquoted
-#' @param subset logical condition to select data from \code{coh.data} before any computations
-#' @param adjust variable names for adjusting without stratifying output; quoted vector or unquoted list
-#' @param print variable names to stratify results; quoted vector or unquoted named list with functions
-#' @param mstate set column names for cause specific observations; quoted or unquoted. Relevant only
-#' when \code{coh.obs} length is two or more. See details.
-#' @param test.type Test for equal SIRs. Test available are 'homogeneity' and 'trend'.
-#' @param conf.type Confidence interval type: 'profile'(=default), 'wald' or 'univariate'.
-#' @param conf.level Level of type-I error in confidence intervals, default 0.05 is 95\% CI.
-#' @param EAR logical; TRUE calculates Excess Absolute Risks for univariate SIRs.
-#' (see details)
-
-#'
-#' @examples
-#' data(popmort)
-#' data(sire)
-#' c <- lexpand( sire, status = status, birth = bi_date, exit = ex_date, entry = dg_date,
-#' breaks = list(per = 1950:2013, age = 1:100, fot = c(0,10,20,Inf)),
-#' aggre = list(fot, agegroup = age, year = per, sex) )
-#' ## SMR due other causes: status = 2
-#' se <- sir( coh.data = c, coh.obs = 'from0to2', coh.pyrs = 'pyrs',
-#' ref.data = popmort, ref.rate = 'haz',
-#' adjust = c('agegroup', 'year', 'sex'), print = 'fot')
-#' se
-#' ## for examples see: vignette('sir')
-#'
-#'
-#' @seealso \code{\link{lexpand}}
-#' \href{../doc/sir.html}{A SIR calculation vignette}
-#' @family sir functions
-#' @family main functions
-#'
-#' @return A sir-object that is a \code{data.table} with meta information in the attributes.
-#'
-#' @export
-#'
-#' @import data.table
-#' @import stats
-
-
-
-
-sir <- function( coh.data,
- coh.obs,
- coh.pyrs,
- ref.data = NULL,
- ref.obs = NULL,
- ref.pyrs = NULL, ref.rate = NULL,
- subset = NULL,
- print = NULL,
- adjust = NULL,
- mstate = NULL,
- test.type = 'homogeneity',
- conf.type = 'profile',
- conf.level = 0.95,
- EAR = FALSE){
-
- coh.data <- data.table(coh.data)
-
- ## subsetting---------------------------------------------------------------
- ## no copy taken of data!
- subset <- substitute(subset)
- subset <- evalLogicalSubset(data = coh.data, substiset = subset)
- coh.data <- coh.data[subset,]
-
-
- # print list --------------------------------------------------------------
-
- # env1 <- environment() # set environment where to assign new print
- # coh.data <- data_list(data = coh.data, arg.list = substitute(print), env = env1)
-
- mstate <- as.character(substitute(mstate))
- if(length(mstate) == 0) {
- mstate <- NULL
- }
- if(!is.null(mstate)) {
- coh.data[,(mstate) := 0L]
- }
-
- # evalPopArg
- coh.obs <- substitute(coh.obs)
- c.obs <- evalPopArg(data = coh.data, arg = coh.obs)
- coh.obs <- names(c.obs)
-
- coh.pyrs <- substitute(coh.pyrs)
- c.pyr <- evalPopArg(data = coh.data, arg = coh.pyrs)
- coh.pyrs <- names(c.pyr)
-
- print <- substitute(print)
- c.pri <- evalPopArg(data = coh.data, arg = print)
- print <- names(c.pri)
-
- adjust <- substitute(adjust)
- c.adj <- evalPopArg(data = coh.data, arg = adjust)
- adjust <- names(c.adj)
-
- # collect data
- coh.data <- cbind(c.obs, c.pyr)
- if(!is.null(print)) coh.data <- cbind(coh.data, c.pri)
- if(!is.null(adjust)) coh.data <- cbind(coh.data, c.adj)
-
- if( !is.null(ref.data) ){
- ref.obs <- as.character(substitute(ref.obs))
- ref.pyrs <- as.character(substitute(ref.pyrs))
- ref.rate <- as.character(substitute(ref.rate))
-
- if (length(ref.obs) == 0) ref.obs <- NULL
- if (length(ref.pyrs) == 0) ref.pyrs <- NULL
- if (length(ref.rate) == 0) ref.rate <- NULL
- }
-
-
- # print(coh.data)
-
- st <- sir_table( coh.data = coh.data,
- coh.obs = coh.obs,
- coh.pyrs = coh.pyrs,
- ref.data = ref.data,
- ref.obs = ref.obs,
- ref.pyrs = ref.pyrs,
- ref.rate = ref.rate,
- print = print,
- adjust = adjust,
- mstate = mstate)
-
- results <- sir_est( table = st,
- print = print,
- adjust = adjust,
- conf.type = conf.type,
- test.type = test.type,
- conf.level = conf.level,
- EAR = EAR)
-
- ## final touch ---------------------------------------------------------------
-
-
- #setDT(data)
- if (!return_DT()) {
- for (i in 1:3) {
- if (!is.null(results[[i]])) {
- setDFpe(results[[i]])
- }
- }
- }
-
- data <- copy(results[[2]])
- setattr(data, name = 'sir.meta', value = list(adjust = adjust,
- print = print,
- call = match.call(),
- lrt.test= results$'lrt.test',
- conf.type = results$'conf.type',
- conf.level = conf.level,
- lrt.test.type = results$'test.type',
- pooled.sir = results[[1]]))
- setattr(data, "class", c("sir", "data.table", "data.frame"))
- return(data)
-}
-
-
-#' @title Estimate splines for SIR or SMR
-#' @author Matti Rantanen, Joonas Miettinen
-#'
-#' @description Splines for standardised incidence or mortality ratio. A useful
-#' tool to e.g. check whether a constant SIR can be assumed for all calendar periods,
-#' age groups or follow-up intervals. Splines can be fitted for these time dimensions
-#' separately or in the same model.
-#'
-#' @param coh.data cohort data with observations and at risk time variables
-#' @param coh.pyrs variable name for person-years in cohort data
-#' @param coh.obs variable name for observed cases
-#' @param ref.data aggregated population data
-#' @param ref.rate population rate observed/expected. This overwrites the parameters
-#' \code{ref.pyrs} and \code{ref.obs}.
-#' @param ref.pyrs variable name for person-years in population data
-#' @param ref.obs variable name for observed cases
-#' @param subset logical condition to subset \code{coh.data} before any computations
-#' @param adjust variable names for adjusting the expected cases
-#' @param print variable names for which to estimate SIRs/SMRs and
-#' associated splines separately
-#' @param mstate set column names for cause specific observations. Relevant only
-#' when coh.obs length is two or more. See help for \code{sir}.
-#' @param spline variable name(s) for the splines
-#' @param knots number knots (vector), pre-defined knots (list of vectors) or for optimal number of knots left NULL
-#' @param dependent.splines logical; if TRUE, all splines are fitted in same model.
-#' @param reference.points fixed reference values for rate ratios. If left \code{NULL}
-#' the smallest value is the reference point (where SIR = 1).
-#' Ignored if \code{dependent.splines = FALSE}
-#'
-#'
-#' @details
-#'
-#' See \code{\link{sir}} for help on SIR/SMR estimation in general; usage of splines
-#' is discussed below.
-#'
-#' \strong{The spline variables}
-#'
-#' The model can include one, two or three splines variables.
-#' Variables can be included in the same model selecting \code{dependent.splines = TRUE}
-#' and SIR ratios are calculated (first one is the SIR, others SIR ratios).
-#' Reference points vector can be set via \code{reference.points}
-#' where first element of the vector is the reference point for first ratio.
-#'
-#' Variable(s) to fit splines are given as a vector in argument \code{spline}.
-#' Order will affect the results.
-#'
-#'
-#' \strong{dependent.splines}
-#'
-#' By default dependent.splines is FALSE and all splines are fitted in separate models.
-#' If TRUE, the first variable in \code{spline} is a function of a SIR and other(s) are ratios.
-#'
-#' \strong{knots}
-#'
-#' There are three options to set knots to splines:
-#'
-#' Set the number of knots for each spline variable with a \strong{vector}.
-#' The knots are automatically placed to the quantiles of observed cases in cohort data.
-#' The first and last knots are always the maximum and minimum values, so knot
-#' value needs to be at least two.
-#'
-#' Predefined knot places can be set with a \strong{list} of vectors.
-#' The vector for each spline in the list specifies the knot places. The lowest
-#' and the largest values are the boundary knots and these should be checked beforehand.
-#'
-#' If \code{knots} is left \strong{NULL}, the model searches the optimal number
-#' of knots by model AIC by fitting models iteratively from 2 to 15 knots and
-#' the one with smallest AIC is selected.
-#' If \code{dependent.splines = TRUE}, the number of knots is searched by fitting each spline
-#' variable separately.
-#'
-#'
-#' \strong{print}
-#'
-#' Splines can be stratified by the levels of variable given in \code{print}. If
-#' \code{print} is a vector, only the first variable is accounted for. The knots
-#' are placed globally for all levels of \code{print}. This also ensures that the likelihood
-#' ratio test is valid.
-#' Splines are also fitted independently for each level of \code{print}.
-#' This allows for searching interactions, e.g. by fitting spline for period
-#' (\code{splines='period'}) for each age group (\code{print = 'agegroup'}).
-#'
-#'
-#' \strong{p-values}
-#'
-#' The output p-value is a test of whether the splines are equal (homogenous)
-#' at different levels of \code{print}.
-#' The test is based on the likelihood ratio test, where the full model
-#' includes \code{print} and is
-#' compared to a null model without it.
-#' When \code{(dependent.splines = TRUE)} the p-value returned is a global p-value.
-#' Otherwise the p-value is spline-specific.
-#'
-#'
-#' @return A list of data.frames and vectors.
-#' Three spline estimates are named as \code{spline.est.A/B/C} and the corresponding values
-#' in \code{spline.seq.A/B/C} for manual plotting
-#'
-#'
-#' @seealso \code{\link{splitMulti}}
-#' \href{../doc/sir.html}{A SIR calculation vignette}
-#' @family sir functions
-#' @family main functions
-#'
-#' @export sirspline
-#' @import data.table
-#' @import splines
-#' @import stats
-#'
-#' @examples \donttest{
-#' ## for examples see: vignette('sir')
-#' }
-
-sirspline <- function( coh.data,
- coh.obs,
- coh.pyrs,
- ref.data = NULL,
- ref.obs = NULL,
- ref.pyrs = NULL,
- ref.rate = NULL,
- subset = NULL,
- print = NULL,
- adjust = NULL,
- mstate = NULL,
- spline,
- knots = NULL,
- reference.points = NULL,
- dependent.splines = TRUE){
-
- coh.data <- data.table(coh.data)
-
- ## subsetting-----------------------------------------------------------------
- ## no copy taken of data!
- subset <- substitute(subset)
- subset <- evalLogicalSubset(data = coh.data, substiset = subset)
- coh.data <- coh.data[subset,]
-
- # print list --------------------------------------------------------------
-
- env1 <- environment()
- coh.data <- data_list(data = coh.data, arg.list = substitute(print), env = env1)
-
- mstate <- as.character(substitute(mstate))
- if(length(mstate) == 0) {
- mstate <- NULL
- }
- if(!is.null(mstate)) {
- coh.data[,(mstate) := 0L]
- }
-
- # evalPopArg
-
- spline <- substitute(spline)
- c.spl <- evalPopArg(data = coh.data, arg = spline)
- spline <- names(c.spl)
-
- coh.obs <- substitute(coh.obs)
- c.obs <- evalPopArg(data = coh.data, arg = coh.obs)
- coh.obs <- names(c.obs)
-
- coh.pyrs <- substitute(coh.pyrs)
- c.pyr <- evalPopArg(data = coh.data, arg = coh.pyrs)
- coh.pyrs <- names(c.pyr)
-
- print <- substitute(print)
- c.pri <- evalPopArg(data = coh.data, arg = print)
- print <- names(c.pri)
-
- adjust <- substitute(adjust)
- c.adj <- evalPopArg(data = coh.data, arg = adjust)
- adjust <- names(c.adj)
-
- # collect data
- coh.data <- cbind(c.obs, c.pyr, c.spl)
- if(!is.null(print)) {
- coh.data <- cbind(coh.data, c.pri[, print[!print %in% spline], with=FALSE])
- }
- if(!is.null(adjust)) {
- coh.data <- cbind(coh.data, c.adj[, adjust[!adjust %in% spline], with=FALSE])
- }
-
- if( !is.null(ref.data) ){
- ref.obs <- as.character(substitute(ref.obs))
- ref.pyrs <- as.character(substitute(ref.pyrs))
- ref.rate <- as.character(substitute(ref.rate))
-
- if (length(ref.obs) == 0) ref.obs <- NULL
- if (length(ref.pyrs) == 0) ref.pyrs <- NULL
- if (length(ref.rate) == 0) ref.rate <- NULL
- }
-
- st <- sir_table( coh.data = coh.data,
- coh.obs = coh.obs,
- coh.pyrs = coh.pyrs,
- ref.data = ref.data,
- ref.obs = ref.obs,
- ref.pyrs = ref.pyrs, ref.rate = ref.rate,
- print = print,
- adjust = adjust,
- mstate = mstate,
- spline = spline)
-
- results <- sir_spline( table = st,
- print = print,
- adjust = adjust,
- spline = spline,
- knots = knots,
- reference.points = reference.points,
- dependent.splines = dependent.splines)
-
- setclass(results, c('sirspline', 'pe', class(results)))
- return(results)
-}
-
-
-
-
-
-
-# Input: two data.table:s
-# output: one data.table including rates
-#' @import stats
-#' @import data.table
-sir_table <- function( coh.data,
- coh.obs,
- coh.pyrs,
- ref.data = NULL,
- ref.obs = NULL,
- ref.pyrs = NULL,
- ref.rate = NULL,
- print = NULL,
- adjust = NULL,
- spline = NULL,
- mstate = NULL) {
-
-
- # initial checks -------------------------------------------------
-
- if(is.null(ref.data)) {
- if(is.null(print)){
- stop('Both ref.data and print cannot be NULL.')
- }
- ref.data <- data.table(coh.data)
- ref.obs <- coh.obs
- ref.pyrs <- coh.pyrs
- }
-
- coh.data <- data.table(coh.data)
- ref.data <- data.table(ref.data)
-
- vl <- unique( c(coh.pyrs, coh.obs, adjust, print) )
- if( !is.null(mstate) ) {
- vl <- vl[which( vl != mstate )]
- }
- all_names_present(coh.data, vl )
-
- if ( !is.null(ref.pyrs) & !is.null(ref.obs) ) {
- all_names_present(ref.data, c(ref.pyrs, ref.obs, adjust))
- }
-
- # Melt lexpand data -------------------------------------------------------
-
- if( length(coh.obs) > 1 ) {
- if( is.null(mstate) ){
- stop('coh.obs length is > 1. Set variable name for mstate.')
- }
- if( !mstate %in% names(ref.data) ){
- warning('mstate variable name does not match names in ref.data.')
- }
-
- aggre <- unique(c(adjust, print, spline, coh.pyrs))
- aggre <- aggre[which(aggre != mstate)]
-
- coh.data <- melt( data = coh.data, id.vars = aggre, measure.vars = coh.obs,
- value.name = 'coh.observations',
- variable.name = mstate, variable.factor = FALSE)
- coh.obs <- 'coh.observations'
-
- # parse Y name form string 'formXtoY'
- q <- quote(
- robust_values(substr(get(mstate),
- start = regexpr( pattern = 'to', text = get(mstate) ) + 2,
- stop = nchar(x = get(mstate) )))
- )
- coh.data[,(mstate) := eval(q) ]
-
- if( !(mstate %in% adjust)) {
- warning('Consider including mstate variable also in adjust. See help(sir) for details.')
- }
- }
-
- # prepare data steps, reduce dimensions -----------------------------------
-
- setnames(coh.data, c(coh.obs, coh.pyrs), c('coh.observations','coh.personyears'))
-
-
- coh.data <- expr.by.cj(data = coh.data,
- by.vars = unique( sort(c(adjust, print, spline)) ),
- expr = list(coh.observations = sum(coh.observations),
- coh.personyears = sum(coh.personyears)))
- #coh.data <- na2zero(coh.data)
- #coh.data <- na.omit(coh.data)
-
- coh.data[is.na(coh.observations), coh.observations := 0]
- coh.data[is.na(coh.personyears), coh.personyears := 0]
- coh.data <- na.omit(coh.data)
-
- # rates
- if( !is.null(ref.rate) ){
- setnames(ref.data, ref.rate, 'ref.rate')
- ref.data <- expr.by.cj(data = ref.data, by.vars = c(adjust),
- expr = list(ref.rate = mean(ref.rate)))
- } else {
- setnames(ref.data, c(ref.obs, ref.pyrs), c('ref.obs','ref.pyrs'))
- ref.data <- expr.by.cj(data = ref.data, by.vars = c(adjust),
- expr = list(ref.obs = sum(ref.obs),
- ref.pyrs= sum(ref.pyrs)))
- ref.data[, ref.rate := ref.obs / ref.pyrs ]
- }
-
- # Merge
- sir.table <- merge(coh.data, ref.data, by=c(adjust), all.x=TRUE)
- sir.table[, expected := ref.rate * coh.personyears]
- sir.table <- na2zero(sir.table)
-
- if ( !is.null(print) | !is.null(spline)){
- sir.table <- sir.table[ ,list(observed = sum(coh.observations),
- expected = sum(expected),
- pyrs = sum(coh.personyears)),
- by = c(unique(c(print, spline)))]
- setkeyv(sir.table, c(print, spline))
- }
- else {
- sir.table <- sir.table[ ,list(observed = sum(coh.observations),
- expected = sum(expected),
- pyrs = sum(coh.personyears))]
- }
- return(sir.table)
-}
-
-
-
-
-# Input: sir.table
-# Output: list of data.tables and values
-sir_est <- function( table,
- print = NULL,
- adjust = NULL,
- EAR = FALSE,
- test.type = 'homogeneity',
- conf.level = 0.95,
- conf.type = 'profile') {
- pyrs <- NULL ## APPEASE R CMD CHECK
- setDT(table)
-
- if(!is.numeric(conf.level) | conf.level > 1) {
- stop('Confidence level must be a numeric value between 0-1')
- }
- # function to SIR p-value
- chi.p <- function(o, e) {
- pchisq( ( (abs(o - e) - 0.5)^2)/e, df=1, lower.tail=FALSE)
- }
-
- # total sir
- combined <- data.table(table)[,list(observed = sum(observed),
- expected = sum(expected),
- pyrs = sum(pyrs))]
- combined[ ,':='(sir = observed/expected,
- sir.lo = poisson.ci(observed, expected, conf.level=conf.level)[,4],
- sir.hi = poisson.ci(observed, expected, conf.level=conf.level)[,5],
- p_value = chi.p(observed, expected))]
-
- # Poisson regression ------------------------------------------------------
-
- # write model formula
- fa <- a <- NULL
- sir.formula <- paste('observed ~ 1')
- if(!is.null(print)){
- fa <- rev(print) # fa <- print
-
- # drop variables with only one value
- u <- c(t(table[, lapply(.SD, uniqueN), .SDcols = fa]))
- if (length(u[u==1]) > 0){
- message('Variable "', paste(fa[which(u==1)], collapse = '","'),'" (has only one level) removed from model.')
- fa <- fa[-which(u==1)]
- }
- if(length(fa)>0){
- # model formula
- a <- paste0('as.factor(',paste( fa, collapse = '):as.factor('),')')
- sir.formula <- paste('observed ~ 0 +', a)
- }
- }
- # fit model if possible -----------------------------------------------------
-
- fit <- tryCatch(do.call("glm", list(formula = terms(as.formula(sir.formula), keep.order = FALSE),
- offset = log(table[,expected]),
- data = table, family = poisson(log))),
- error=function(f) NULL )
-
- if(!is.null(fit)) eg <- expand.grid(fit$xlevels) # for further testing
-
-
- # LRT test (homogeneity or trend) --------------------------------------------
-
- test.type <- match.arg(test.type, c('homogeneity','trend'))
-
- lrt_sig <- NULL
- if( sir.formula != 'observed ~ 1' & !is.null(fit) ) {
- if (test.type == 'homogeneity') covariates <- a
- if (test.type == 'trend') covariates <- paste(print, collapse=' + ')
-
- fit_full <- tryCatch(
- do.call("glm", list(formula = terms(as.formula( paste0('observed ~ 1 + ', a) )),
- offset = log(table[,expected]),
- data = table, family=poisson(log))),
- error=function(f) NULL )
-
- fit_null <- tryCatch(
- do.call("glm", list(formula = terms(as.formula('observed ~ 1') ),
- offset = log(table[,expected]),
- data = table, family=poisson(log))),
- error=function(f) NULL )
-
- if (!is.null(fit_full)){
- lrt <- anova(fit_full, fit_null, test = 'Chisq')
- lrt_sig <- lrt[['Pr(>Chi)']][2]
- }
- }
-
- # confidence intervals ----------------------------------------------------
-
- conf.type <- match.arg(conf.type, c('wald','profile','univariate'))
- ci.info <- NULL
- ci <- NULL
-
- if (is.null(fit) & conf.type %in% c('wald','profile')) {
- conf.type <- 'univariate'
- ci.info <- 'Model fitting failed. Univariate confidence intervals selected.'
- if(any(table$expected == 0)) {
- ci.info <- paste(ci.info, '(zero values in expected)')
- }
- }
-
- if (conf.type == 'profile') {
-
- confint_glm <- function(object, parm, level = 0.95, trace = FALSE, ...) {
- pnames <- names(coef(object))
- if (missing(parm)) {
- parm <- seq_along(pnames)
- }
- else if (is.character(parm)) {
- parm <- match(parm, pnames, nomatch = 0L)
- }
- object <- profile(object, which = parm, alpha = (1 - level)/4, trace = trace)
- confint(object, parm = parm, level = level, trace = trace, ...)
- }
-
- ci <- suppressMessages( suppressWarnings(
- tryCatch(exp(confint_glm(fit, level=conf.level)), error=function(e) NULL )
- ))
- if(!is.null(ci)) {
- ci <- as.data.table(ci)
- if (is.null(print) | length(fa)==0) ci <- data.table(t(ci)) # transpose if only one row
- } else {
- conf.type <- 'wald'
- ci.info <- 'Could not solve profile-likelihood. Wald confidence intervals selected.'
- }
- }
-
- if (conf.type == 'wald') {
- ci <- data.table( exp(confint.default(fit)) )
- }
-
- if(conf.type == 'univariate') {
- ci <- data.table(poisson.ci(table$observed, table$expected, conf.level = conf.level))[,.(lower, upper)]
- pv <- chi.p(table$observed, table$expected)
- } else {
- pv <- as.vector(summary(fit)$coef[, "Pr(>|z|)"])
- }
- if(!is.null(ci.info)) message(ci.info)
-
- # collect results -----------------------------------------------------
-
- setnames(ci, 1:2, c('sir.lo','sir.hi'))
-
- table[, ':=' ( sir = observed/expected,
- sir.lo = ci[, sir.lo],
- sir.hi = ci[, sir.hi],
- p_value = round(pv,5))]
-
-
- # Round results -----------------------------------------------------------
-
- cols1 <- c('sir','sir.lo','sir.hi','expected','pyrs')
-
- table[,(cols1) := lapply(.SD, round, digits=4), .SDcols=cols1]
- combined[,(cols1) := lapply(.SD, round, digits=4), .SDcols=cols1]
-
-
- # tests -----------------------------------
-
- if (table[!is.na(sir) & (sir < sir.lo | sir > sir.hi), .N] > 0) {
- warning('There is something wrong with confidence intervals')
- }
- if (table[!is.na(sir.lo) & !is.na(sir.hi)][sir.lo > sir.hi, .N] > 0) {
- warning('CIs might be incorrect')
- }
-
- if(!is.null(fit) & length(fa)>0) {
- # pseudo test if the modelled confidence intervals are merged correctly:
- t1 <- copy(table)[,lapply(.SD, factor),.SDcols = fa]
- if(any(t1 != data.table(eg))) {
- message('CIs levels might not match. Contact the package maintainer and use univariate CIs.')
- }
- }
-
- # EAR -----------------------------------------------------------------
- if (EAR) {
- table[,EAR := round((observed - expected)/pyrs * 1000, 3)]
- }
-
-
- results <- list(total = combined,
- table = table,
- adjusted = adjust,
- lrt.test = lrt_sig,
- test.type = test.type,
- conf.type = conf.type,
- ci.info = ci.info)
- return(results)
-}
-
-
-#' @export
-getCall.sir <- function (x, ...) {
- attributes(x)$sir.meta$call
-}
-
-
-# Input: sir.table
-# Output: estimates and sequences for plotting splines
-#' @import splines
-#' @import data.table
-#' @import stats
-sir_spline <- function( table,
- print = NULL,
- adjust = NULL,
- spline,
- knots = NULL,
- reference.points = NULL,
- dependent.splines = TRUE){
- knts <-
- spline.seq.A <-
- spline.seq.B <-
- spline.seq.C <-
- spline.est.A <-
- spline.est.B <-
- spline.est.C <- NULL
-
- if (!is.null(knots) & length(knots) != length(spline) ) {
- stop('Arguments spline and knots has to be same length.')
- }
-
-
- # Spline functions -------------------------------------------------------
-
- # function to get spline seq
- spline.seq <- function(data, spline.var=NULL) {
- # palauttaa jotaina
- if(is.na(spline.var)) {
- return(NULL)
- }
- spline.seq <- seq( min( data[,get(spline.var)] ),
- max( data[,get(spline.var)] ), length.out = 100)
- return(spline.seq)
- }
-
- # function to search optimal number of knots by AIC
- spline.knots <- function(data, knots = NULL, spline.vars = NULL){
- # search optimal number of knots
- if( is.null(knots) ) {
- knts <- list()
- for (jj in 1:length(spline.vars)) {
- # reduce data to fit model
- data0 <- data[,list(observed=sum(observed), expected = sum(expected)), by = eval(spline.vars[jj])]
- data0 <- data0[expected > 0]
- spline.fit <- glm(observed ~ 1, offset=log(expected), family=poisson(log), data = data0)
- aic0 <- summary(spline.fit)[['aic']]
- limit <- 20
- ii <- 2
- while( ii < limit ){
- tmp.knots <- ii
- knts[jj] <- list( data0[ ,quantile( rep(get(spline.vars[jj]),observed), probs = seq(0,100,length.out = tmp.knots)/100)] )
- spline.fit <- glm(observed ~ Ns(get(spline.vars[jj]), knots = knts[[jj]]), offset=log(expected), family=poisson(log), data=data0)
- aic0 <- c(aic0, summary(spline.fit)[['aic']])
- ii <- ii + 1
- }
- tmp.knots <- which(aic0 == min(aic0))[1]
- if(tmp.knots == 1) {
- message(paste0('Null model better than spline in ', jj))
- tmp.knots <- 2
- }
- knts[jj] <- list(data0[ ,quantile( rep(get(spline.vars[jj]),observed), probs = seq(0,100,length.out = tmp.knots)/100)])
- rm(tmp.knots)
- }
- knots <- unlist(lapply(knts, length))
- }
- else {
- # knot predefined
- if( is.list(knots) ){
- knts <- knots
- knots <- unlist(lapply(knots, length))
- }
- # knot number predefined
- else {
- if( any(knots < 2) ) {
- message('Min knots number set to 2.')
- knots[knots < 2] <- 2
- }
- knts <- list()
- for(i in 1:length(knots)) {
- knts[i] <- list( data[ ,quantile( rep(get(spline.vars[i]), observed), probs = seq(0,100,length.out = knots[i])/100)])
- }
- }
- }
- names(knts) <- spline.vars
- return(knts)
- }
-
- # function to estimate 2-3 dim splines in same model
- spline.estimates.dep <- function(sir.spline = sir.spline,
- spline.seq.A = spline.seq.A,
- spline.seq.B = spline.seq.B,
- spline.seq.C = spline.seq.C,
- reference.points = reference.points,
- knts = knts
- ){
-
- if( all(!is.null(reference.points), (length(reference.points) + 1) != length(spline)) ){
- stop('Parameter reference.points length should be length of spline - 1.')
- }
-
-
- form <- 'Ns(get(spline[[1]]), kn=knts[[1]])'
- nsA <- Ns( spline.seq.A, knots = knts[[1]])
- if ( length(spline) >= 2) {
- form <- paste0(form, ' + Ns(get(spline[[2]]), kn=knts[[2]])')
- nsB <- Ns( spline.seq.B, knots = knts[[2]])
- }
- if ( length(spline) == 3) {
- form <- paste0(form, ' + Ns(get(spline[[3]]), kn=knts[[3]])')
- nsC <- Ns( spline.seq.C, knots = knts[[3]])
- }
-
- form <- paste0('observed ~ ', form)
- spline.fit <- do.call("glm", list(formula = as.formula(form),
- offset = log(sir.spline[expected > 0,expected]),
- family = poisson,
- data = sir.spline[expected>0]))
- if( any( ci.exp(spline.fit)[,1] == 1) ){
- message("NA's in spline estimates.")
- }
-
- aic <- summary(spline.fit)[['aic']]
-
- rf.C <- rf.B <- NA
- # set assigned reference points or get minimum values
- if( !is.null(reference.points) ) {
- rf.B <- reference.points[1]
- rf.C <- reference.points[2]
- }
- else {
- rf.B <- min( sir.spline[,get(spline[2])] )
- if(!is.na(spline[3])) {
- rf.C <- min( sir.spline[,get(spline[3])] )
- }
- }
-
- if( !is.na(rf.B) ) {
- B <- Ns( rep(rf.B, 100), knots = knts[[2]])
- if( findInterval(rf.B, range(sir.spline[,get(spline[2])])) != 1 ) {
- message("WARNING: reference point 2 doesn't fall into spline variable interval")
- }
- }
-
- if( !is.na(rf.C) ){
- C <- Ns( rep(rf.C, 100), knots = knts[[3]])
- if( findInterval(rf.C, range(sir.spline[,get(spline[3])])) != 1) {
- message("WARNING: reference point 3 doesn't fall into spline variable interval")
- }
- }
-
- # make subset of model parameters
- if( !is.null(knts[2]) ) {
- sub.B <- which( grepl('spline[[2]]', names(spline.fit$coefficients),fixed = TRUE) )
- }
- if( !is.null(knts[3]) ) {
- sub.C <- which( grepl('spline[[3]]', names(spline.fit$coefficients),fixed = TRUE) )
- }
- if ( length(spline) == 2) {
- spline.est.A <- ci.exp(spline.fit, ctr.mat = cbind(1, nsA, nsB))
- spline.est.B <- ci.exp(spline.fit, subset = sub.B, ctr.mat = nsB - B)
- spline.est.C <- NULL
- }
- if ( length(spline) == 3) {
- spline.est.A <- ci.exp(spline.fit, ctr.mat = cbind(1, nsA, nsB, nsC))
- spline.est.B <- ci.exp(spline.fit, subset= sub.B, ctr.mat = nsB - B)
- spline.est.C <- ci.exp(spline.fit, subset= sub.C, ctr.mat = nsC - C)
- }
- list(a = spline.est.A,
- b = spline.est.B,
- c = spline.est.C)
- }
-
- # function to estimate independet splines
- spline.estimates.uni <- function(data, spline.var, spline.seq, knots, knum) {
- if(is.na(spline.var)) return(NULL)
- knots <- knots[[knum]]
- data <- data[,list(observed=sum(observed), expected = sum(expected)), by = eval(spline.var)][expected > 0]
- spline.uni <- glm(observed ~ Ns(get(spline.var), knots = knots), offset=log(expected), family=poisson(log), data = data)
- nsx <- Ns( spline.seq, knots = knots)
- spline.est <- ci.exp(spline.uni, ctr.mat = cbind(1, nsx))
- spline.est
- }
-
-
-
- # Poisson regression Splines -------------------------------------------------
-
- sir.spline <- data.table(table)
-
- # convert spline variables to numeric
- temp.fun <- function(x){
- as.numeric(as.character(x))
- }
- sir.spline[, (spline) := lapply(.SD, temp.fun), .SDcols = spline]
-
-
-
- # set knots
- knts <- spline.knots(data=sir.spline, knots = knots, spline.vars = spline)
-
- # set sequences
- spline.seq.A <- spline.seq(data=sir.spline, spline.var=spline[1])
- spline.seq.B <- spline.seq(data=sir.spline, spline.var=spline[2])
- spline.seq.C <- spline.seq(data=sir.spline, spline.var=spline[3])
-
- if( length(spline) == 1 ) {
- dependent.splines <- FALSE
- }
-
- # convert print to factor
- print <- print[1]
-
- # loop for each level of print:
- if( !is.null(print) ) {
- prnt.levels <- sir.spline[,unique( get(print) )]
- sir.spline[,(print) := factor(get(print))]
- }
- else {
- print <- 'temp'
- sir.spline[,temp := 1]
- prnt.levels <- 1
- }
-
- spline.est.A <- NULL
- spline.est.B <- NULL
- spline.est.C <- NULL
-
- for(i in prnt.levels){
- if( dependent.splines ) {
- out <- spline.estimates.dep(sir.spline = sir.spline[get(print) == i],
- spline.seq.A = spline.seq.A,
- spline.seq.B = spline.seq.B,
- spline.seq.C = spline.seq.C,
- reference.points = reference.points,
- knts = knts)
- est.A <- out[['a']]
- est.B <- out[['b']]
- est.C <- out[['c']]
- }
- else{
- est.A <- spline.estimates.uni(data = sir.spline[get(print) == i], spline.var = spline[1], spline.seq = spline.seq.A, knots = knts, knum = 1)
- est.B <- spline.estimates.uni(data = sir.spline[get(print) == i], spline.var = spline[2], spline.seq = spline.seq.B, knots = knts, knum = 2)
- est.C <- spline.estimates.uni(data = sir.spline[get(print) == i], spline.var = spline[3], spline.seq = spline.seq.C, knots = knts, knum = 3)
- }
-
- add_i <- function(est.x, i){
- if(is.null(est.x)) {
- return(NULL)
- }
- cbind(i, data.frame(est.x))
- }
-
-
- est.A <- add_i(est.A, i)
- est.B <- add_i(est.B, i)
- est.C <- add_i(est.C, i)
-
- spline.est.A <- rbind(spline.est.A, est.A)
- spline.est.B <- rbind(spline.est.B, est.B)
- spline.est.C <- rbind(spline.est.C, est.C)
- }
-
- # get p-value and anova-table
- anovas <- NULL
- p <- NULL
- if(dependent.splines) {
- form.a <- 'Ns(get(spline[[1]]), kn=knts[[1]]) + Ns(get(spline[[2]]), kn=knts[[2]])'
- form.b <- 'get(print):Ns(get(spline[[1]]), kn=knts[[1]]) + get(print):Ns(get(spline[[2]]), kn=knts[[2]])'
- if ( length(spline) == 3) {
- form.a <- paste0(form.a, ' + Ns(get(spline[[3]]), kn=knts[[3]])')
- form.b <- paste0(form.b, ' + get(print):Ns(get(spline[[3]]), kn=knts[[3]])')
- }
-
- fit.fun <- function( form.string ){
- do.call("glm", list(formula = as.formula( form.string ),
- offset = log(sir.spline[expected > 0,expected]),
- family = poisson,
- data = sir.spline[expected>0]))
- }
-
- fit.1 <- fit.fun( paste0('observed ~ ', form.a) )
- fit.2 <- fit.fun( paste0('observed ~ ', 'get(print)+', form.a))
- fit.3 <- fit.fun( paste0('observed ~ ', form.b))
- fit.4 <- fit.fun( paste0('observed ~ ', 'get(print)+', form.b) )
-
- global.p<- anova(fit.4, fit.1, test='LRT')
- level.p <- anova(fit.2, fit.1, test='LRT')
- #shape.p <- anova(fit.4, fit.3, test='LRT')
-
- anovas <- list(global.p = global.p, level.p = level.p)
- p <- rbind(global.p[['Pr(>Chi)']][2], level.p[['Pr(>Chi)']][2]) # , shape.p,
- }
- else {
- lrt.uni <- function(data=sir.spline, spline.var=spline[1], print=print, knots=knts, knum = 1) {
- if (is.na(spline.var)) return (NULL)
- data <- data.table(data)
- knots <- knots[[knum]]
- fit0 <- glm(observed ~ get(print)+Ns(get(spline.var), knots = knots), offset=log(expected), family=poisson(log), data = data[expected>0])
- fit1 <- glm(observed ~ Ns(get(spline.var), knots = knots), offset=log(expected), family=poisson(log), data = data[expected>0])
- fit2 <- glm(observed ~ get(print)*Ns(get(spline.var), knots = knots), offset=log(expected), family=poisson(log), data = data[expected>0])
- anova(fit2,fit1,fit0, test='Chisq') # [['Pr(>Chi)']][2]
- }
-
- var1.p <- lrt.uni(spline.var = spline[1], print=print, knots=knts, knum = 1)
- var2.p <- lrt.uni(spline.var = spline[2], print=print, knots=knts, knum = 2)
- var3.p <- lrt.uni(spline.var = spline[3], print=print, knots=knts, knum = 3)
-
- p <- list(spline.a = var1.p[['Pr(>Chi)']][2],
- spline.b = var2.p[['Pr(>Chi)']][2],
- spline.c = var3.p[['Pr(>Chi)']][2])
- anovas <- list(spline.a = var1.p, spline.b = var2.p, spline.c = var3.p)
- }
-
- output <- list( spline.est.A = spline.est.A,
- spline.est.B = spline.est.B,
- spline.est.C = spline.est.C,
- spline.seq.A = spline.seq.A,
- spline.seq.B = spline.seq.B,
- spline.seq.C = spline.seq.C,
- adjust = adjust,
- print = print,
- spline = spline,
- anovas = anovas,
- knots = knts,
- spline.dependent = dependent.splines,
- p.values = p)
- output
-}
-
-# input data and argument list. replaces print in upper environment with name a vector.
-data_list <- function( data, arg.list, env ) {
- if(missing(env)){
- arg.list <- substitute(arg.list)
- env <- parent.frame()
- }
- d <- data.table(data)
-
- l <- eval(arg.list, envir = d, enclos = parent.frame())
-
- if( is.list( l ) ) {
- n <- intersect(names(l), names(d))
- if(length(n)>0){
- d[,(n) := NULL]
- }
- # if(is.null(names(l))) {
- # v <- 1:length(l)
- # setnames(l, v, paste0('V', v))
- # }
- l <- as.data.table(l)
- l <- data.table(l)
- assign('print', colnames(l), envir = env) # set names to parent environment
- if( ncol(d) > 0) {
- l <- data.table(d, l)
- }
- return(l)
- } else {
- return(data)
- }
-}
-
-#' @export
-coef.sir <- function(object, ...) {
- factors <- attr(object, 'sir.meta')$print
-
- q <- paste("paste(",paste(factors,collapse=","),", sep = ':')")
- q <- parse(text=q)
- n <- object[,eval(q)]
-
- res <- object$sir
- attr(res, 'names') <- n
-
- res
-}
-
-
-
-
-#' @export
-confint.sir <- function(object, parm, level = 0.95, conf.type = 'profile',
- test.type = 'homogeneity', ...) {
-
- meta <- attr(object, 'sir.meta')
- object <- copy(object)
- object <- sir_est(table = object,
- print = meta$print,
- adjust = NULL,
- conf.type = conf.type,
- test.type = test.type,
- conf.level = level,
- EAR = FALSE)
- object <- object$table
- q <- paste("paste(",paste(meta$print,collapse=","),", sep = ':')")
- q <- parse(text=q)
- n <- object[,eval(q)]
-
- res <- cbind(object$sir.lo, object$sir.hi)
-
- rownames(res) <- n
- colnames(res) <- paste( c( (1-level)/2*100, (1 - (1-level)/2)*100), '%')
-
- res
-}
-
-
-#' @title Calculate SMR
-#' @author Matti Rantanen
-#' @description Calculate Standardized Mortality Ratios (SMRs) using
-#' a single data set that includes
-#' observed and expected cases and additionally person-years.
-#'
-#' @details These functions are intended to calculate SMRs from a single data set
-#' that includes both observed and expected number of cases. For example utilizing the
-#' argument \code{pop.haz} of the \code{\link{lexpand}}.
-#'
-#' \code{sir_lex} automatically exports the transition \code{fromXtoY} using the first
-#' state in \code{lex.Str} as \code{0} and all other as \code{1}. No missing values
-#' is allowed in observed, pop.haz or person-years.
-#'
-#' @param x Data set e.g. \code{aggre} or \code{Lexis} object
-#' (see: \code{\link{lexpand}})
-#' @param obs Variable name of the observed cases in the data set
-#' @param exp Variable name or expression for expected cases
-#' @param pyrs Variable name for person-years (optional)
-#' @param print Variables or expression to stratify the results
-#' @param test.type Test for equal SIRs. Test available are 'homogeneity' and 'trend'
-#' @param conf.level Level of type-I error in confidence intervals, default 0.05 is 95\% CI
-#' @param conf.type select confidence interval type: (default=) `profile`, `wald`, `univariate`
-#' @param subset a logical vector for subsetting data
-#'
-#' @seealso \code{\link{lexpand}}
-#' \href{../doc/sir.html}{A SIR calculation vignette}
-#' @family sir functions
-#'
-#' @return A sir object
-#'
-#' @examples
-#'
-#' \donttest{
-#' BL <- list(fot = 0:5, per = c("2003-01-01","2008-01-01", "2013-01-01"))
-#'
-#' ## Aggregated data
-#' x1 <- lexpand(sire, breaks = BL, status = status != 0,
-#' birth = bi_date, entry = dg_date, exit = ex_date,
-#' pophaz=popmort,
-#' aggre=list(sex, period = per, surv.int = fot))
-#' sir_ag(x1, print = 'period')
-#'
-#'
-#' # no aggreate or breaks
-#' x2 <- lexpand(sire, status = status != 0,
-#' birth = bi_date, entry = dg_date, exit = ex_date,
-#' pophaz=popmort)
-#' sir_lex(x2, breaks = BL, print = 'per')
-#' }
-#'
-#' @import data.table
-#' @import stats
-#' @export
-sir_exp <- function(x, obs, exp, pyrs=NULL, print = NULL,
- conf.type = 'profile', test.type = 'homogeneity',
- conf.level = 0.95, subset = NULL) {
-
- # subsetting
- subset <- substitute(subset)
- subset <- evalLogicalSubset(data = x, substiset = subset)
- x <- x[subset,]
-
- # evalPopArg
- obs <- substitute(obs)
- c.obs <- evalPopArg(data = x, arg = obs)
- obs <- names(c.obs)
-
-
- print <- substitute(print)
- c.pri <- evalPopArg(data = x, arg = print)
- print <- names(c.pri)
-
- exp <- substitute(exp)
- c.exp <- evalPopArg(data = x, arg = exp)
- exp <- names(c.exp)
-
- pyrs <- substitute(pyrs)
- c.pyr <- evalPopArg(data = x, arg = pyrs)
- if(is.null(c.pyr)) c.pyr <- data.table(pyrs=0)
- pyrs <- names(c.pyr)
-
- # collect data
- x <- cbind(c.obs, c.pyr, c.exp)
- if(any(is.na(x))) stop('Missing values in expected cases.')
- if(!is.null(print)) x<- cbind(x, c.pri)
-
- express <- paste0('list(observed = sum(', obs, '), expected = sum(',exp,'), pyrs = sum(', pyrs,'))')
- # aggregate
- es <- parse(text = express)
- y <- x[, eval(es), keyby = print] # keyby is must
-
- results <- sir_est( table = y,
- print = print,
- adjust = NULL,
- conf.type = conf.type,
- test.type = test.type,
- conf.level = conf.level,
- EAR = FALSE)
-
- #setDT(data)
- if (!return_DT()) {
- for (i in 1:2) {
- if (!is.null(results[[i]])) {
- setDFpe(results[[i]])
- }
- }
- }
-
- data <- copy(results[[2]])
- setattr(data, name = 'sir.meta', value = list(adjust = NULL,
- print = print,
- call = match.call(),
- lrt.test= results$'lrt.test',
- conf.type = results$'conf.type',
- conf.level = conf.level,
- lrt.test.type = results$'test.type',
- pooled.sir = results[[1]]))
- setattr(data, "class", c("sir", "data.table", "data.frame"))
- return(data)
-}
-
-
-
-#' Calculate SMRs from a split Lexis object
-#'
-#' @description \code{sir_lex} solves SMR from a \code{\link{Lexis}} object
-#' calculated with \code{lexpand}.
-#'
-#' @param breaks a named list to split age group (age), period (per) or follow-up (fot).
-#' @param ... pass arguments to \code{sir_exp}
-#'
-#'
-#' @describeIn sir_exp
-#'
-#' @export
-
-sir_lex <- function(x, print = NULL, breaks = NULL, ... ) {
-
- ## R CMD CHECK appeasement
- lex.dur <- NULL
-
- if(!inherits(x, 'Lexis')) {
- stop('x has to be a Lexis object (see lexpand or Lexis)')
- }
- if(!"pop.haz" %in% names(x)) {
- stop("Variable pop.haz not found in the data.")
- }
-
-
- # reformat date breaks
- if(!is.null(breaks)) {
- breaks <- lapply(breaks, function(x) {
- if(is.character(x)) c(cal.yr(as.Date(x)))
- else x
- })
- }
-
- print <- substitute(print)
- # copy to retain the attributes
- x <- copy(x)
-
- # guess the first value
- first_value <- lapply(c("lex.Cst", "lex.Xst"), function(var) {
- if (is.factor(x[[var]])) levels(x[[var]]) else sort(unique(x[[var]]))
- })
- first_value <- unique(unlist(first_value))[1]
-
- col <- x$lex.Xst
- set(x, j = "lex.Cst", value = 0L)
- set(x, j = "lex.Xst", value = ifelse(col == first_value, 0L, 1L))
-
- if(!is.null(breaks)) {
- x <- splitMulti(x, breaks = breaks)
- }
-
- a <- copy(attr(x, "time.scales"))
- a <- a[!vapply(get_breaks(x), is.null, logical(1))]
- x[, d.exp := pop.haz*lex.dur]
-
- TF <- environment()
-
- if(any(is.na(x[,d.exp]))) stop('Missing values in either pop.haz or lex.dur.')
- x <- aggre(x, by = TF$a, sum.values = 'd.exp')
- if(!'from0to1' %in% names(x)) {
- stop('Could not find any transitions between states in lexis')
- }
- x <- sir_exp(x = x, obs = 'from0to1', print = print, exp = 'd.exp', pyrs = 'pyrs', ...)
- # override the match.call from sir_exp
- attr(x, 'sir.meta')$call <- match.call()
- return(x)
-}
-
-
-#' SMR method for an \code{aggre} object.
-#'
-#' @description \code{sir_ag} solves SMR from a \code{\link{aggre}} object
-#' calculated using \code{\link{lexpand}}.
-#'
-#' @describeIn sir_exp
-#'
-#' @export
-
-sir_ag <- function(x, obs = 'from0to1', print = attr(x, 'aggre.meta')$by, exp = 'd.exp', pyrs = 'pyrs', ... ) {
-
- if(!inherits(x, 'aggre')) {
- stop('x should be an aggre object (see lexpand or sir_lex)')
- }
- obs <- substitute(obs)
- print <- substitute(print)
-
- x <- copy(x)
- x <- sir_exp(x = x, obs = obs, print = print, exp = 'd.exp', pyrs = 'pyrs', ...) # original
- attr(x, 'sir.meta')$call <- match.call() # override the call from sir_exp
- x
-}
-
-
-
-globalVariables(c('observed','expected','p_adj','p_value','temp','coh.observations','coh.personyears',
- 'd.exp', 'lower', 'pop.haz', 'sir.hi','sir.lo','upper'))
-
+#' @title Calculate SIR or SMR
+#' @author Matti Rantanen, Joonas Miettinen
+#' @description Poisson modelled standardised incidence or mortality ratios (SIRs / SMRs) i.e.
+#' indirect method for calculating standardised rates. SIR is a ratio of observed and expected cases.
+#' Expected cases are derived by multiplying the strata-specific population rate with the
+#' corresponding person-years of the cohort.
+#'
+#' @details \code{sir} is a comprehensive tool for modelling SIRs/SMRs with flexible
+#' options to adjust and print SIRs, test homogeneity and utilize
+#' multi-state data. The cohort data and the variable names for observation
+#' counts and person-years are required.
+#' The reference data is optional, since the cohort data
+#' can be stratified (\code{print}) and compared to total.
+#'
+#'
+#' \strong{Adjust and print}
+#'
+#' A SIR can be adjusted or standardised using the covariates found in both \code{coh.data} and \code{ref.data}.
+#' Variable to adjust are given in \code{adjust}.
+#' Variable names needs to match in both \code{coh.data} and \code{ref.data}.
+#' Typical variables to adjust by are gender, age group and calendar period.
+#'
+#' \code{print} is used to stratify the SIR output. In other words, the variables
+#' assigned to \code{print} are the covariates of the Poisson model.
+#' Variable levels are treated as categorical.
+#' Variables can be assigned in both \code{print} and \code{adjust}.
+#' This means the output it adjusted and printed by these variables.
+#'
+#' \code{print} can also be a list of expressions. This enables changing variable
+#' names or transforming variables with functions such as \code{cut} and \code{round}.
+#' For example, the existing variables \code{agegroup} and \code{year} could be
+#' transformed to new levels using \code{cut} by
+#'
+#' \code{print = list( age.category = cut(agegroup, breaks = c(0,50,75,100)),
+#' year.cat = cut(year, seq(1950,2010,20)))}
+#'
+#'
+#' \strong{ref.rate or ref.obs & ref.pyrs}
+#'
+#' The population rate variable can be given to the \code{ref.rate} parameter.
+#' That is, when using e.g. the \code{popmort} or a comparable data file, one may
+#' supply \code{ref.rate} instead of \code{ref.obs} and \code{ref.pyrs}, which
+#' will be ignored if \code{ref.rate} is supplied.
+#'
+#'
+#' Note that if all the stratifying variables in
+#' \code{ref.data} are not listed in \code{adjust},
+#' or when the categories are otherwise combined,
+#' the (unweighted) mean of rates is used for computing expected cases.
+#' This might incur a small bias in comparison to when exact numbers of observations
+#' and person-years are available.
+#'
+#'
+#'
+#' \strong{mstate}
+#'
+#' E.g. using \code{lexpand} it's possible to compute counts for several outcomes
+#' so that the population at risk is same for each
+#' outcome such as a certain kind of cancer.
+#' The transition counts are in wide data format,
+#' and the relevant columns can be supplied to \code{sir}
+#' in a vector via the \code{coh.obs} argument.
+#' The name of the corresponding new column in \code{ref.data} is given in
+#' \code{mstate}. It's recommended to include the \code{mstate} variable in \code{adjust},
+#' so the corresponding information should also be available in \code{ref.data}.
+#' More examples in sir-vignette.
+#'
+#' This approach is analogous to where SIRs are calculated separately their
+#' own function calls.
+#'
+#'
+#' \strong{Other parameters}
+#'
+#' \code{univariate} confidence intervals are calculated using exact
+#' Poisson intervals (\code{poisson.ci}). The options \code{profile} and \code{wald} are
+#' is based on a Poisson regression model: profile-likelihood confidence intervals
+#' or Wald's normal-approximation. P-value is Poisson model based \code{conf.type}
+#' or calculated using the method described by Breslow and Day. Function automatically
+#' switches to another \code{conf.type} if calculation is not possible with a message.
+#' Usually model fit fails if there is print stratum with zero expected values.
+#'
+#'
+#' The LRT p-value tests the levels of \code{print}. The test can be either
+#' \code{"homogeneity"}, a likelihood ratio test where the model variables defined in
+#' \code{print} (factor) is compared to the constant model.
+#' Option \code{"trend"} tests if the linear trend of the continuous variable in
+#' \code{print} is significant (using model comparison).
+#'
+#'
+#' \strong{EAR: Excess Absolute Risk}
+#'
+#' Excess Absolute Risk is a simple way to quantify the absolute difference between cohort risk and
+#' population risk.
+#' Make sure that the person-years are calculated accordingly before using EAR. (when using mstate)
+#'
+#' Formula for EAR:
+#' \deqn{EAR = \frac{observed - expected}{person years} \times 1000.}{EAR = (obs - exp)/pyrs * 1000.}
+#'
+#' \strong{Data format}
+#'
+#' The data should be given in tabulated format. That is the number of observations
+#' and person-years are represented for each stratum.
+#' Note that also individual data is allowed as long as each observations,
+#' person-years, and print and adjust variables are presented in columns.
+#' The extra variables and levels are reduced automatically before estimating SIRs.
+#' Example of data format:
+#'
+#' \tabular{rrrrr}{
+#' sex \tab age \tab period \tab obs \tab pyrs \cr
+#' 0 \tab 1 \tab 2010 \tab 0 \tab 390 \cr
+#' 0 \tab 2 \tab 2010 \tab 5 \tab 385 \cr
+#' 1 \tab 1 \tab 2010 \tab 3 \tab 308 \cr
+#' 1 \tab 2 \tab 2010 \tab 12 \tab 315
+#' }
+#'
+#'
+#' @param coh.data aggregated cohort data, see e.g. \code{\link{lexpand}}
+#' @param coh.pyrs variable name for person years in cohort data;
+#' quoted (as a string \code{'myvar'}) or unquoted (AKA as a name; \code{myvar})
+#' @param coh.obs variable name for observed cases; quoted or unquoted. A vector when using \code{mstata}.
+#' @param ref.data population data. Can be left NULL if \code{coh.data}
+#' is stratified in \code{print}. See \code{\link{pophaz}} for details.
+#' @param ref.rate population rate variable (cases/person-years). Overwrites
+#' arguments \code{ref.pyrs} and \code{ref.obs}. Quoted or unquoted
+#' @param ref.pyrs variable name for person-years in population data; quoted or unquoted
+#' @param ref.obs variable name for observed cases; quoted or unquoted
+#' @param subset logical condition to select data from \code{coh.data} before any computations
+#' @param adjust variable names for adjusting without stratifying output; quoted vector or unquoted list
+#' @param print variable names to stratify results; quoted vector or unquoted named list with functions
+#' @param mstate set column names for cause specific observations; quoted or unquoted. Relevant only
+#' when \code{coh.obs} length is two or more. See details.
+#' @param test.type Test for equal SIRs. Test available are 'homogeneity' and 'trend'.
+#' @param conf.type Confidence interval type: 'profile'(=default), 'wald' or 'univariate'.
+#' @param conf.level Level of type-I error in confidence intervals, default 0.05 is 95\% CI.
+#' @param EAR logical; TRUE calculates Excess Absolute Risks for univariate SIRs.
+#' (see details)
+
+#'
+#' @examples
+#' data(popmort)
+#' data(sire)
+#' c <- lexpand( sire, status = status, birth = bi_date, exit = ex_date, entry = dg_date,
+#' breaks = list(per = 1950:2013, age = 1:100, fot = c(0,10,20,Inf)),
+#' aggre = list(fot, agegroup = age, year = per, sex) )
+#' ## SMR due other causes: status = 2
+#' se <- sir( coh.data = c, coh.obs = 'from0to2', coh.pyrs = 'pyrs',
+#' ref.data = popmort, ref.rate = 'haz',
+#' adjust = c('agegroup', 'year', 'sex'), print = 'fot')
+#' se
+#' ## for examples see: vignette('sir')
+#'
+#'
+#' @seealso \code{\link{lexpand}}
+#' \href{../doc/sir.html}{A SIR calculation vignette}
+#' @family sir functions
+#' @family main functions
+#'
+#' @return A sir-object that is a \code{data.table} with meta information in the attributes.
+#'
+#' @export
+#'
+#' @import data.table
+#' @import stats
+
+
+
+
+sir <- function( coh.data,
+ coh.obs,
+ coh.pyrs,
+ ref.data = NULL,
+ ref.obs = NULL,
+ ref.pyrs = NULL, ref.rate = NULL,
+ subset = NULL,
+ print = NULL,
+ adjust = NULL,
+ mstate = NULL,
+ test.type = 'homogeneity',
+ conf.type = 'profile',
+ conf.level = 0.95,
+ EAR = FALSE){
+
+ coh.data <- data.table(coh.data)
+
+ ## subsetting---------------------------------------------------------------
+ ## no copy taken of data!
+ subset <- substitute(subset)
+ subset <- evalLogicalSubset(data = coh.data, substiset = subset)
+ coh.data <- coh.data[subset,]
+
+
+ # print list --------------------------------------------------------------
+
+ # env1 <- environment() # set environment where to assign new print
+ # coh.data <- data_list(data = coh.data, arg.list = substitute(print), env = env1)
+
+ mstate <- as.character(substitute(mstate))
+ if(length(mstate) == 0) {
+ mstate <- NULL
+ }
+ if(!is.null(mstate)) {
+ coh.data[,(mstate) := 0L]
+ }
+
+ # evalPopArg
+ coh.obs <- substitute(coh.obs)
+ c.obs <- evalPopArg(data = coh.data, arg = coh.obs)
+ coh.obs <- names(c.obs)
+
+ coh.pyrs <- substitute(coh.pyrs)
+ c.pyr <- evalPopArg(data = coh.data, arg = coh.pyrs)
+ coh.pyrs <- names(c.pyr)
+
+ print <- substitute(print)
+ c.pri <- evalPopArg(data = coh.data, arg = print)
+ print <- names(c.pri)
+
+ adjust <- substitute(adjust)
+ c.adj <- evalPopArg(data = coh.data, arg = adjust)
+ adjust <- names(c.adj)
+
+ # collect data
+ coh.data <- cbind(c.obs, c.pyr)
+ if(!is.null(print)) coh.data <- cbind(coh.data, c.pri)
+ if(!is.null(adjust)) coh.data <- cbind(coh.data, c.adj)
+
+ if( !is.null(ref.data) ){
+ ref.obs <- as.character(substitute(ref.obs))
+ ref.pyrs <- as.character(substitute(ref.pyrs))
+ ref.rate <- as.character(substitute(ref.rate))
+
+ if (length(ref.obs) == 0) ref.obs <- NULL
+ if (length(ref.pyrs) == 0) ref.pyrs <- NULL
+ if (length(ref.rate) == 0) ref.rate <- NULL
+ }
+
+
+ # print(coh.data)
+
+ st <- sir_table( coh.data = coh.data,
+ coh.obs = coh.obs,
+ coh.pyrs = coh.pyrs,
+ ref.data = ref.data,
+ ref.obs = ref.obs,
+ ref.pyrs = ref.pyrs,
+ ref.rate = ref.rate,
+ print = print,
+ adjust = adjust,
+ mstate = mstate)
+
+ results <- sir_est( table = st,
+ print = print,
+ adjust = adjust,
+ conf.type = conf.type,
+ test.type = test.type,
+ conf.level = conf.level,
+ EAR = EAR)
+
+ ## final touch ---------------------------------------------------------------
+
+
+ #setDT(data)
+ if (!return_DT()) {
+ for (i in 1:3) {
+ if (!is.null(results[[i]])) {
+ setDFpe(results[[i]])
+ }
+ }
+ }
+
+ data <- copy(results[[2]])
+ setattr(data, name = 'sir.meta', value = list(adjust = adjust,
+ print = print,
+ call = match.call(),
+ lrt.test= results$'lrt.test',
+ conf.type = results$'conf.type',
+ conf.level = conf.level,
+ lrt.test.type = results$'test.type',
+ pooled.sir = results[[1]]))
+ setattr(data, "class", c("sir", "data.table", "data.frame"))
+ return(data)
+}
+
+
+#' @title Estimate splines for SIR or SMR
+#' @author Matti Rantanen, Joonas Miettinen
+#'
+#' @description Splines for standardised incidence or mortality ratio. A useful
+#' tool to e.g. check whether a constant SIR can be assumed for all calendar periods,
+#' age groups or follow-up intervals. Splines can be fitted for these time dimensions
+#' separately or in the same model.
+#'
+#' @param coh.data cohort data with observations and at risk time variables
+#' @param coh.pyrs variable name for person-years in cohort data
+#' @param coh.obs variable name for observed cases
+#' @param ref.data aggregated population data
+#' @param ref.rate population rate observed/expected. This overwrites the parameters
+#' \code{ref.pyrs} and \code{ref.obs}.
+#' @param ref.pyrs variable name for person-years in population data
+#' @param ref.obs variable name for observed cases
+#' @param subset logical condition to subset \code{coh.data} before any computations
+#' @param adjust variable names for adjusting the expected cases
+#' @param print variable names for which to estimate SIRs/SMRs and
+#' associated splines separately
+#' @param mstate set column names for cause specific observations. Relevant only
+#' when coh.obs length is two or more. See help for \code{sir}.
+#' @param spline variable name(s) for the splines
+#' @param knots number knots (vector), pre-defined knots (list of vectors) or for optimal number of knots left NULL
+#' @param dependent.splines logical; if TRUE, all splines are fitted in same model.
+#' @param reference.points fixed reference values for rate ratios. If left \code{NULL}
+#' the smallest value is the reference point (where SIR = 1).
+#' Ignored if \code{dependent.splines = FALSE}
+#'
+#'
+#' @details
+#'
+#' See \code{\link{sir}} for help on SIR/SMR estimation in general; usage of splines
+#' is discussed below.
+#'
+#' \strong{The spline variables}
+#'
+#' The model can include one, two or three splines variables.
+#' Variables can be included in the same model selecting \code{dependent.splines = TRUE}
+#' and SIR ratios are calculated (first one is the SIR, others SIR ratios).
+#' Reference points vector can be set via \code{reference.points}
+#' where first element of the vector is the reference point for first ratio.
+#'
+#' Variable(s) to fit splines are given as a vector in argument \code{spline}.
+#' Order will affect the results.
+#'
+#'
+#' \strong{dependent.splines}
+#'
+#' By default dependent.splines is FALSE and all splines are fitted in separate models.
+#' If TRUE, the first variable in \code{spline} is a function of a SIR and other(s) are ratios.
+#'
+#' \strong{knots}
+#'
+#' There are three options to set knots to splines:
+#'
+#' Set the number of knots for each spline variable with a \strong{vector}.
+#' The knots are automatically placed to the quantiles of observed cases in cohort data.
+#' The first and last knots are always the maximum and minimum values, so knot
+#' value needs to be at least two.
+#'
+#' Predefined knot places can be set with a \strong{list} of vectors.
+#' The vector for each spline in the list specifies the knot places. The lowest
+#' and the largest values are the boundary knots and these should be checked beforehand.
+#'
+#' If \code{knots} is left \strong{NULL}, the model searches the optimal number
+#' of knots by model AIC by fitting models iteratively from 2 to 15 knots and
+#' the one with smallest AIC is selected.
+#' If \code{dependent.splines = TRUE}, the number of knots is searched by fitting each spline
+#' variable separately.
+#'
+#'
+#' \strong{print}
+#'
+#' Splines can be stratified by the levels of variable given in \code{print}. If
+#' \code{print} is a vector, only the first variable is accounted for. The knots
+#' are placed globally for all levels of \code{print}. This also ensures that the likelihood
+#' ratio test is valid.
+#' Splines are also fitted independently for each level of \code{print}.
+#' This allows for searching interactions, e.g. by fitting spline for period
+#' (\code{splines='period'}) for each age group (\code{print = 'agegroup'}).
+#'
+#'
+#' \strong{p-values}
+#'
+#' The output p-value is a test of whether the splines are equal (homogenous)
+#' at different levels of \code{print}.
+#' The test is based on the likelihood ratio test, where the full model
+#' includes \code{print} and is
+#' compared to a null model without it.
+#' When \code{(dependent.splines = TRUE)} the p-value returned is a global p-value.
+#' Otherwise the p-value is spline-specific.
+#'
+#'
+#' @return A list of data.frames and vectors.
+#' Three spline estimates are named as \code{spline.est.A/B/C} and the corresponding values
+#' in \code{spline.seq.A/B/C} for manual plotting
+#'
+#'
+#' @seealso \code{\link{splitMulti}}
+#' \href{../doc/sir.html}{A SIR calculation vignette}
+#' @family sir functions
+#' @family main functions
+#'
+#' @export sirspline
+#' @import data.table
+#' @import splines
+#' @import stats
+#'
+#' @examples \donttest{
+#' ## for examples see: vignette('sir')
+#' }
+
+sirspline <- function( coh.data,
+ coh.obs,
+ coh.pyrs,
+ ref.data = NULL,
+ ref.obs = NULL,
+ ref.pyrs = NULL,
+ ref.rate = NULL,
+ subset = NULL,
+ print = NULL,
+ adjust = NULL,
+ mstate = NULL,
+ spline,
+ knots = NULL,
+ reference.points = NULL,
+ dependent.splines = TRUE){
+
+ coh.data <- data.table(coh.data)
+
+ ## subsetting-----------------------------------------------------------------
+ ## no copy taken of data!
+ subset <- substitute(subset)
+ subset <- evalLogicalSubset(data = coh.data, substiset = subset)
+ coh.data <- coh.data[subset,]
+
+ # print list --------------------------------------------------------------
+
+ env1 <- environment()
+ coh.data <- data_list(data = coh.data, arg.list = substitute(print), env = env1)
+
+ mstate <- as.character(substitute(mstate))
+ if(length(mstate) == 0) {
+ mstate <- NULL
+ }
+ if(!is.null(mstate)) {
+ coh.data[,(mstate) := 0L]
+ }
+
+ # evalPopArg
+
+ spline <- substitute(spline)
+ c.spl <- evalPopArg(data = coh.data, arg = spline)
+ spline <- names(c.spl)
+
+ coh.obs <- substitute(coh.obs)
+ c.obs <- evalPopArg(data = coh.data, arg = coh.obs)
+ coh.obs <- names(c.obs)
+
+ coh.pyrs <- substitute(coh.pyrs)
+ c.pyr <- evalPopArg(data = coh.data, arg = coh.pyrs)
+ coh.pyrs <- names(c.pyr)
+
+ print <- substitute(print)
+ c.pri <- evalPopArg(data = coh.data, arg = print)
+ print <- names(c.pri)
+
+ adjust <- substitute(adjust)
+ c.adj <- evalPopArg(data = coh.data, arg = adjust)
+ adjust <- names(c.adj)
+
+ # collect data
+ coh.data <- cbind(c.obs, c.pyr, c.spl)
+ if(!is.null(print)) {
+ coh.data <- cbind(coh.data, c.pri[, print[!print %in% spline], with=FALSE])
+ }
+ if(!is.null(adjust)) {
+ coh.data <- cbind(coh.data, c.adj[, adjust[!adjust %in% spline], with=FALSE])
+ }
+
+ if( !is.null(ref.data) ){
+ ref.obs <- as.character(substitute(ref.obs))
+ ref.pyrs <- as.character(substitute(ref.pyrs))
+ ref.rate <- as.character(substitute(ref.rate))
+
+ if (length(ref.obs) == 0) ref.obs <- NULL
+ if (length(ref.pyrs) == 0) ref.pyrs <- NULL
+ if (length(ref.rate) == 0) ref.rate <- NULL
+ }
+
+ st <- sir_table( coh.data = coh.data,
+ coh.obs = coh.obs,
+ coh.pyrs = coh.pyrs,
+ ref.data = ref.data,
+ ref.obs = ref.obs,
+ ref.pyrs = ref.pyrs, ref.rate = ref.rate,
+ print = print,
+ adjust = adjust,
+ mstate = mstate,
+ spline = spline)
+
+ results <- sir_spline( table = st,
+ print = print,
+ adjust = adjust,
+ spline = spline,
+ knots = knots,
+ reference.points = reference.points,
+ dependent.splines = dependent.splines)
+
+ setclass(results, c('sirspline', 'pe', class(results)))
+ return(results)
+}
+
+
+
+
+
+
+# Input: two data.table:s
+# output: one data.table including rates
+#' @import stats
+#' @import data.table
+sir_table <- function( coh.data,
+ coh.obs,
+ coh.pyrs,
+ ref.data = NULL,
+ ref.obs = NULL,
+ ref.pyrs = NULL,
+ ref.rate = NULL,
+ print = NULL,
+ adjust = NULL,
+ spline = NULL,
+ mstate = NULL) {
+
+
+ # initial checks -------------------------------------------------
+
+ if(is.null(ref.data)) {
+ if(is.null(print)){
+ stop('Both ref.data and print cannot be NULL.')
+ }
+ ref.data <- data.table(coh.data)
+ ref.obs <- coh.obs
+ ref.pyrs <- coh.pyrs
+ }
+
+ coh.data <- data.table(coh.data)
+ ref.data <- data.table(ref.data)
+
+ vl <- unique( c(coh.pyrs, coh.obs, adjust, print) )
+ if( !is.null(mstate) ) {
+ vl <- vl[which( vl != mstate )]
+ }
+ all_names_present(coh.data, vl )
+
+ if ( !is.null(ref.pyrs) & !is.null(ref.obs) ) {
+ all_names_present(ref.data, c(ref.pyrs, ref.obs, adjust))
+ }
+
+ # Melt lexpand data -------------------------------------------------------
+
+ if( length(coh.obs) > 1 ) {
+ if( is.null(mstate) ){
+ stop('coh.obs length is > 1. Set variable name for mstate.')
+ }
+ if( !mstate %in% names(ref.data) ){
+ warning('mstate variable name does not match names in ref.data.')
+ }
+
+ aggre <- unique(c(adjust, print, spline, coh.pyrs))
+ aggre <- aggre[which(aggre != mstate)]
+
+ coh.data <- melt( data = coh.data, id.vars = aggre, measure.vars = coh.obs,
+ value.name = 'coh.observations',
+ variable.name = mstate, variable.factor = FALSE)
+ coh.obs <- 'coh.observations'
+
+ # parse Y name form string 'formXtoY'
+ q <- quote(
+ robust_values(substr(get(mstate),
+ start = regexpr( pattern = 'to', text = get(mstate) ) + 2,
+ stop = nchar(x = get(mstate) )))
+ )
+ coh.data[,(mstate) := eval(q) ]
+
+ if( !(mstate %in% adjust)) {
+ warning('Consider including mstate variable also in adjust. See help(sir) for details.')
+ }
+ }
+
+ # prepare data steps, reduce dimensions -----------------------------------
+
+ setnames(coh.data, c(coh.obs, coh.pyrs), c('coh.observations','coh.personyears'))
+
+
+ coh.data <- expr.by.cj(data = coh.data,
+ by.vars = unique( sort(c(adjust, print, spline)) ),
+ expr = list(coh.observations = sum(coh.observations),
+ coh.personyears = sum(coh.personyears)))
+ #coh.data <- na2zero(coh.data)
+ #coh.data <- na.omit(coh.data)
+
+ coh.data[is.na(coh.observations), coh.observations := 0]
+ coh.data[is.na(coh.personyears), coh.personyears := 0]
+ coh.data <- na.omit(coh.data)
+
+ # rates
+ if( !is.null(ref.rate) ){
+ setnames(ref.data, ref.rate, 'ref.rate')
+ ref.data <- expr.by.cj(data = ref.data, by.vars = c(adjust),
+ expr = list(ref.rate = mean(ref.rate)))
+ } else {
+ setnames(ref.data, c(ref.obs, ref.pyrs), c('ref.obs','ref.pyrs'))
+ ref.data <- expr.by.cj(data = ref.data, by.vars = c(adjust),
+ expr = list(ref.obs = sum(ref.obs),
+ ref.pyrs= sum(ref.pyrs)))
+ ref.data[, ref.rate := ref.obs / ref.pyrs ]
+ }
+
+ # Merge
+ sir.table <- merge(coh.data, ref.data, by=c(adjust), all.x=TRUE)
+ sir.table[, expected := ref.rate * coh.personyears]
+ sir.table <- na2zero(sir.table)
+
+ if ( !is.null(print) | !is.null(spline)){
+ sir.table <- sir.table[ ,list(observed = sum(coh.observations),
+ expected = sum(expected),
+ pyrs = sum(coh.personyears)),
+ by = c(unique(c(print, spline)))]
+ setkeyv(sir.table, c(print, spline))
+ }
+ else {
+ sir.table <- sir.table[ ,list(observed = sum(coh.observations),
+ expected = sum(expected),
+ pyrs = sum(coh.personyears))]
+ }
+ return(sir.table)
+}
+
+
+
+
+# Input: sir.table
+# Output: list of data.tables and values
+sir_est <- function( table,
+ print = NULL,
+ adjust = NULL,
+ EAR = FALSE,
+ test.type = 'homogeneity',
+ conf.level = 0.95,
+ conf.type = 'profile') {
+ pyrs <- NULL ## APPEASE R CMD CHECK
+ setDT(table)
+
+ if(!is.numeric(conf.level) | conf.level > 1) {
+ stop('Confidence level must be a numeric value between 0-1')
+ }
+ # function to SIR p-value
+ chi.p <- function(o, e) {
+ pchisq( ( (abs(o - e) - 0.5)^2)/e, df=1, lower.tail=FALSE)
+ }
+
+ # total sir
+ combined <- data.table(table)[,list(observed = sum(observed),
+ expected = sum(expected),
+ pyrs = sum(pyrs))]
+ combined[ ,':='(sir = observed/expected,
+ sir.lo = poisson.ci(observed, expected, conf.level=conf.level)[,4],
+ sir.hi = poisson.ci(observed, expected, conf.level=conf.level)[,5],
+ p_value = chi.p(observed, expected))]
+
+ # Poisson regression ------------------------------------------------------
+
+ # write model formula
+ fa <- a <- NULL
+ sir.formula <- paste('observed ~ 1')
+ if(!is.null(print)){
+ fa <- rev(print) # fa <- print
+
+ # drop variables with only one value
+ u <- c(t(table[, lapply(.SD, uniqueN), .SDcols = fa]))
+ if (length(u[u==1]) > 0){
+ message('Variable "', paste(fa[which(u==1)], collapse = '","'),'" (has only one level) removed from model.')
+ fa <- fa[-which(u==1)]
+ }
+ if(length(fa)>0){
+ # model formula
+ a <- paste0('as.factor(',paste( fa, collapse = '):as.factor('),')')
+ sir.formula <- paste('observed ~ 0 +', a)
+ }
+ }
+ # fit model if possible -----------------------------------------------------
+
+ fit <- tryCatch(do.call("glm", list(formula = terms(as.formula(sir.formula), keep.order = FALSE),
+ offset = log(table[,expected]),
+ data = table, family = poisson(log))),
+ error=function(f) NULL )
+
+ if(!is.null(fit)) eg <- expand.grid(fit$xlevels) # for further testing
+
+
+ # LRT test (homogeneity or trend) --------------------------------------------
+
+ test.type <- match.arg(test.type, c('homogeneity','trend'))
+
+ lrt_sig <- NULL
+ if( sir.formula != 'observed ~ 1' & !is.null(fit) ) {
+ if (test.type == 'homogeneity') covariates <- a
+ if (test.type == 'trend') covariates <- paste(print, collapse=' + ')
+
+ fit_full <- tryCatch(
+ do.call("glm", list(formula = terms(as.formula( paste0('observed ~ 1 + ', a) )),
+ offset = log(table[,expected]),
+ data = table, family=poisson(log))),
+ error=function(f) NULL )
+
+ fit_null <- tryCatch(
+ do.call("glm", list(formula = terms(as.formula('observed ~ 1') ),
+ offset = log(table[,expected]),
+ data = table, family=poisson(log))),
+ error=function(f) NULL )
+
+ if (!is.null(fit_full)){
+ lrt <- anova(fit_full, fit_null, test = 'Chisq')
+ lrt_sig <- lrt[['Pr(>Chi)']][2]
+ }
+ }
+
+ # confidence intervals ----------------------------------------------------
+
+ conf.type <- match.arg(conf.type, c('wald','profile','univariate'))
+ ci.info <- NULL
+ ci <- NULL
+
+ if (is.null(fit) & conf.type %in% c('wald','profile')) {
+ conf.type <- 'univariate'
+ ci.info <- 'Model fitting failed. Univariate confidence intervals selected.'
+ if(any(table$expected == 0)) {
+ ci.info <- paste(ci.info, '(zero values in expected)')
+ }
+ }
+
+ if (conf.type == 'profile') {
+
+ confint_glm <- function(object, parm, level = 0.95, trace = FALSE, ...) {
+ pnames <- names(coef(object))
+ if (missing(parm)) {
+ parm <- seq_along(pnames)
+ }
+ else if (is.character(parm)) {
+ parm <- match(parm, pnames, nomatch = 0L)
+ }
+ object <- profile(object, which = parm, alpha = (1 - level)/4, trace = trace)
+ confint(object, parm = parm, level = level, trace = trace, ...)
+ }
+
+ ci <- suppressMessages( suppressWarnings(
+ tryCatch(exp(confint_glm(fit, level=conf.level)), error=function(e) NULL )
+ ))
+ if(!is.null(ci)) {
+ ci <- as.data.table(ci)
+ if (is.null(print) | length(fa)==0) ci <- data.table(t(ci)) # transpose if only one row
+ } else {
+ conf.type <- 'wald'
+ ci.info <- 'Could not solve profile-likelihood. Wald confidence intervals selected.'
+ }
+ }
+
+ if (conf.type == 'wald') {
+ ci <- data.table( exp(confint.default(fit)) )
+ }
+
+ if(conf.type == 'univariate') {
+ ci <- data.table(poisson.ci(table$observed, table$expected, conf.level = conf.level))[,.(lower, upper)]
+ pv <- chi.p(table$observed, table$expected)
+ } else {
+ pv <- as.vector(summary(fit)$coef[, "Pr(>|z|)"])
+ }
+ if(!is.null(ci.info)) message(ci.info)
+
+ # collect results -----------------------------------------------------
+
+ setnames(ci, 1:2, c('sir.lo','sir.hi'))
+
+ table[, ':=' ( sir = observed/expected,
+ sir.lo = ci[, sir.lo],
+ sir.hi = ci[, sir.hi],
+ p_value = round(pv,5))]
+
+
+ # Round results -----------------------------------------------------------
+
+ cols1 <- c('sir','sir.lo','sir.hi','expected','pyrs')
+
+ table[,(cols1) := lapply(.SD, round, digits=4), .SDcols=cols1]
+ combined[,(cols1) := lapply(.SD, round, digits=4), .SDcols=cols1]
+
+
+ # tests -----------------------------------
+
+ if (table[!is.na(sir) & (sir < sir.lo | sir > sir.hi), .N] > 0) {
+ warning('There is something wrong with confidence intervals')
+ }
+ if (table[!is.na(sir.lo) & !is.na(sir.hi)][sir.lo > sir.hi, .N] > 0) {
+ warning('CIs might be incorrect')
+ }
+
+ if(!is.null(fit) & length(fa)>0) {
+ # pseudo test if the modelled confidence intervals are merged correctly:
+ t1 <- copy(table)[,lapply(.SD, factor),.SDcols = fa]
+ if(any(t1 != data.table(eg))) {
+ message('CIs levels might not match. Contact the package maintainer and use univariate CIs.')
+ }
+ }
+
+ # EAR -----------------------------------------------------------------
+ if (EAR) {
+ table[,EAR := round((observed - expected)/pyrs * 1000, 3)]
+ }
+
+
+ results <- list(total = combined,
+ table = table,
+ adjusted = adjust,
+ lrt.test = lrt_sig,
+ test.type = test.type,
+ conf.type = conf.type,
+ ci.info = ci.info)
+ return(results)
+}
+
+
+#' @export
+getCall.sir <- function (x, ...) {
+ attributes(x)$sir.meta$call
+}
+
+
+# Input: sir.table
+# Output: estimates and sequences for plotting splines
+#' @import splines
+#' @import data.table
+#' @import stats
+sir_spline <- function( table,
+ print = NULL,
+ adjust = NULL,
+ spline,
+ knots = NULL,
+ reference.points = NULL,
+ dependent.splines = TRUE){
+ knts <-
+ spline.seq.A <-
+ spline.seq.B <-
+ spline.seq.C <-
+ spline.est.A <-
+ spline.est.B <-
+ spline.est.C <- NULL
+
+ if (!is.null(knots) & length(knots) != length(spline) ) {
+ stop('Arguments spline and knots has to be same length.')
+ }
+
+
+ # Spline functions -------------------------------------------------------
+
+ # function to get spline seq
+ spline.seq <- function(data, spline.var=NULL) {
+ # palauttaa jotaina
+ if(is.na(spline.var)) {
+ return(NULL)
+ }
+ spline.seq <- seq( min( data[,get(spline.var)] ),
+ max( data[,get(spline.var)] ), length.out = 100)
+ return(spline.seq)
+ }
+
+ # function to search optimal number of knots by AIC
+ spline.knots <- function(data, knots = NULL, spline.vars = NULL){
+ # search optimal number of knots
+ if( is.null(knots) ) {
+ knts <- list()
+ for (jj in 1:length(spline.vars)) {
+ # reduce data to fit model
+ data0 <- data[,list(observed=sum(observed), expected = sum(expected)), by = eval(spline.vars[jj])]
+ data0 <- data0[expected > 0]
+ spline.fit <- glm(observed ~ 1, offset=log(expected), family=poisson(log), data = data0)
+ aic0 <- summary(spline.fit)[['aic']]
+ limit <- 20
+ ii <- 2
+ while( ii < limit ){
+ tmp.knots <- ii
+ knts[jj] <- list( data0[ ,quantile( rep(get(spline.vars[jj]),observed), probs = seq(0,100,length.out = tmp.knots)/100)] )
+ spline.fit <- glm(observed ~ Ns(get(spline.vars[jj]), knots = knts[[jj]]), offset=log(expected), family=poisson(log), data=data0)
+ aic0 <- c(aic0, summary(spline.fit)[['aic']])
+ ii <- ii + 1
+ }
+ tmp.knots <- which(aic0 == min(aic0))[1]
+ if(tmp.knots == 1) {
+ message(paste0('Null model better than spline in ', jj))
+ tmp.knots <- 2
+ }
+ knts[jj] <- list(data0[ ,quantile( rep(get(spline.vars[jj]),observed), probs = seq(0,100,length.out = tmp.knots)/100)])
+ rm(tmp.knots)
+ }
+ knots <- unlist(lapply(knts, length))
+ }
+ else {
+ # knot predefined
+ if( is.list(knots) ){
+ knts <- knots
+ knots <- unlist(lapply(knots, length))
+ }
+ # knot number predefined
+ else {
+ if( any(knots < 2) ) {
+ message('Min knots number set to 2.')
+ knots[knots < 2] <- 2
+ }
+ knts <- list()
+ for(i in 1:length(knots)) {
+ knts[i] <- list( data[ ,quantile( rep(get(spline.vars[i]), observed), probs = seq(0,100,length.out = knots[i])/100)])
+ }
+ }
+ }
+ names(knts) <- spline.vars
+ return(knts)
+ }
+
+ # function to estimate 2-3 dim splines in same model
+ spline.estimates.dep <- function(sir.spline = sir.spline,
+ spline.seq.A = spline.seq.A,
+ spline.seq.B = spline.seq.B,
+ spline.seq.C = spline.seq.C,
+ reference.points = reference.points,
+ knts = knts
+ ){
+
+ if( all(!is.null(reference.points), (length(reference.points) + 1) != length(spline)) ){
+ stop('Parameter reference.points length should be length of spline - 1.')
+ }
+
+
+ form <- 'Ns(get(spline[[1]]), kn=knts[[1]])'
+ nsA <- Ns( spline.seq.A, knots = knts[[1]])
+ if ( length(spline) >= 2) {
+ form <- paste0(form, ' + Ns(get(spline[[2]]), kn=knts[[2]])')
+ nsB <- Ns( spline.seq.B, knots = knts[[2]])
+ }
+ if ( length(spline) == 3) {
+ form <- paste0(form, ' + Ns(get(spline[[3]]), kn=knts[[3]])')
+ nsC <- Ns( spline.seq.C, knots = knts[[3]])
+ }
+
+ form <- paste0('observed ~ ', form)
+ spline.fit <- do.call("glm", list(formula = as.formula(form),
+ offset = log(sir.spline[expected > 0,expected]),
+ family = poisson,
+ data = sir.spline[expected>0]))
+ if( any( ci.exp(spline.fit)[,1] == 1) ){
+ message("NA's in spline estimates.")
+ }
+
+ aic <- summary(spline.fit)[['aic']]
+
+ rf.C <- rf.B <- NA
+ # set assigned reference points or get minimum values
+ if( !is.null(reference.points) ) {
+ rf.B <- reference.points[1]
+ rf.C <- reference.points[2]
+ }
+ else {
+ rf.B <- min( sir.spline[,get(spline[2])] )
+ if(!is.na(spline[3])) {
+ rf.C <- min( sir.spline[,get(spline[3])] )
+ }
+ }
+
+ if( !is.na(rf.B) ) {
+ B <- Ns( rep(rf.B, 100), knots = knts[[2]])
+ if( findInterval(rf.B, range(sir.spline[,get(spline[2])])) != 1 ) {
+ message("WARNING: reference point 2 doesn't fall into spline variable interval")
+ }
+ }
+
+ if( !is.na(rf.C) ){
+ C <- Ns( rep(rf.C, 100), knots = knts[[3]])
+ if( findInterval(rf.C, range(sir.spline[,get(spline[3])])) != 1) {
+ message("WARNING: reference point 3 doesn't fall into spline variable interval")
+ }
+ }
+
+ # make subset of model parameters
+ if( !is.null(knts[2]) ) {
+ sub.B <- which( grepl('spline[[2]]', names(spline.fit$coefficients),fixed = TRUE) )
+ }
+ if( !is.null(knts[3]) ) {
+ sub.C <- which( grepl('spline[[3]]', names(spline.fit$coefficients),fixed = TRUE) )
+ }
+ if ( length(spline) == 2) {
+ spline.est.A <- ci.exp(spline.fit, ctr.mat = cbind(1, nsA, nsB))
+ spline.est.B <- ci.exp(spline.fit, subset = sub.B, ctr.mat = nsB - B)
+ spline.est.C <- NULL
+ }
+ if ( length(spline) == 3) {
+ spline.est.A <- ci.exp(spline.fit, ctr.mat = cbind(1, nsA, nsB, nsC))
+ spline.est.B <- ci.exp(spline.fit, subset= sub.B, ctr.mat = nsB - B)
+ spline.est.C <- ci.exp(spline.fit, subset= sub.C, ctr.mat = nsC - C)
+ }
+ list(a = spline.est.A,
+ b = spline.est.B,
+ c = spline.est.C)
+ }
+
+ # function to estimate independet splines
+ spline.estimates.uni <- function(data, spline.var, spline.seq, knots, knum) {
+ if(is.na(spline.var)) return(NULL)
+ knots <- knots[[knum]]
+ data <- data[,list(observed=sum(observed), expected = sum(expected)), by = eval(spline.var)][expected > 0]
+ spline.uni <- glm(observed ~ Ns(get(spline.var), knots = knots), offset=log(expected), family=poisson(log), data = data)
+ nsx <- Ns( spline.seq, knots = knots)
+ spline.est <- ci.exp(spline.uni, ctr.mat = cbind(1, nsx))
+ spline.est
+ }
+
+
+
+ # Poisson regression Splines -------------------------------------------------
+
+ sir.spline <- data.table(table)
+
+ # convert spline variables to numeric
+ temp.fun <- function(x){
+ as.numeric(as.character(x))
+ }
+ sir.spline[, (spline) := lapply(.SD, temp.fun), .SDcols = spline]
+
+
+
+ # set knots
+ knts <- spline.knots(data=sir.spline, knots = knots, spline.vars = spline)
+
+ # set sequences
+ spline.seq.A <- spline.seq(data=sir.spline, spline.var=spline[1])
+ spline.seq.B <- spline.seq(data=sir.spline, spline.var=spline[2])
+ spline.seq.C <- spline.seq(data=sir.spline, spline.var=spline[3])
+
+ if( length(spline) == 1 ) {
+ dependent.splines <- FALSE
+ }
+
+ # convert print to factor
+ print <- print[1]
+
+ # loop for each level of print:
+ if( !is.null(print) ) {
+ prnt.levels <- sir.spline[,unique( get(print) )]
+ sir.spline[,(print) := factor(get(print))]
+ }
+ else {
+ print <- 'temp'
+ sir.spline[,temp := 1]
+ prnt.levels <- 1
+ }
+
+ spline.est.A <- NULL
+ spline.est.B <- NULL
+ spline.est.C <- NULL
+
+ for(i in prnt.levels){
+ if( dependent.splines ) {
+ out <- spline.estimates.dep(sir.spline = sir.spline[get(print) == i],
+ spline.seq.A = spline.seq.A,
+ spline.seq.B = spline.seq.B,
+ spline.seq.C = spline.seq.C,
+ reference.points = reference.points,
+ knts = knts)
+ est.A <- out[['a']]
+ est.B <- out[['b']]
+ est.C <- out[['c']]
+ }
+ else{
+ est.A <- spline.estimates.uni(data = sir.spline[get(print) == i], spline.var = spline[1], spline.seq = spline.seq.A, knots = knts, knum = 1)
+ est.B <- spline.estimates.uni(data = sir.spline[get(print) == i], spline.var = spline[2], spline.seq = spline.seq.B, knots = knts, knum = 2)
+ est.C <- spline.estimates.uni(data = sir.spline[get(print) == i], spline.var = spline[3], spline.seq = spline.seq.C, knots = knts, knum = 3)
+ }
+
+ add_i <- function(est.x, i){
+ if(is.null(est.x)) {
+ return(NULL)
+ }
+ cbind(i, data.frame(est.x))
+ }
+
+
+ est.A <- add_i(est.A, i)
+ est.B <- add_i(est.B, i)
+ est.C <- add_i(est.C, i)
+
+ spline.est.A <- rbind(spline.est.A, est.A)
+ spline.est.B <- rbind(spline.est.B, est.B)
+ spline.est.C <- rbind(spline.est.C, est.C)
+ }
+
+ # get p-value and anova-table
+ anovas <- NULL
+ p <- NULL
+ if(dependent.splines) {
+ form.a <- 'Ns(get(spline[[1]]), kn=knts[[1]]) + Ns(get(spline[[2]]), kn=knts[[2]])'
+ form.b <- 'get(print):Ns(get(spline[[1]]), kn=knts[[1]]) + get(print):Ns(get(spline[[2]]), kn=knts[[2]])'
+ if ( length(spline) == 3) {
+ form.a <- paste0(form.a, ' + Ns(get(spline[[3]]), kn=knts[[3]])')
+ form.b <- paste0(form.b, ' + get(print):Ns(get(spline[[3]]), kn=knts[[3]])')
+ }
+
+ fit.fun <- function( form.string ){
+ do.call("glm", list(formula = as.formula( form.string ),
+ offset = log(sir.spline[expected > 0,expected]),
+ family = poisson,
+ data = sir.spline[expected>0]))
+ }
+
+ fit.1 <- fit.fun( paste0('observed ~ ', form.a) )
+ fit.2 <- fit.fun( paste0('observed ~ ', 'get(print)+', form.a))
+ fit.3 <- fit.fun( paste0('observed ~ ', form.b))
+ fit.4 <- fit.fun( paste0('observed ~ ', 'get(print)+', form.b) )
+
+ global.p<- anova(fit.4, fit.1, test='LRT')
+ level.p <- anova(fit.2, fit.1, test='LRT')
+ #shape.p <- anova(fit.4, fit.3, test='LRT')
+
+ anovas <- list(global.p = global.p, level.p = level.p)
+ p <- rbind(global.p[['Pr(>Chi)']][2], level.p[['Pr(>Chi)']][2]) # , shape.p,
+ }
+ else {
+ lrt.uni <- function(data=sir.spline, spline.var=spline[1], print=print, knots=knts, knum = 1) {
+ if (is.na(spline.var)) return (NULL)
+ data <- data.table(data)
+ knots <- knots[[knum]]
+ fit0 <- glm(observed ~ get(print)+Ns(get(spline.var), knots = knots), offset=log(expected), family=poisson(log), data = data[expected>0])
+ fit1 <- glm(observed ~ Ns(get(spline.var), knots = knots), offset=log(expected), family=poisson(log), data = data[expected>0])
+ fit2 <- glm(observed ~ get(print)*Ns(get(spline.var), knots = knots), offset=log(expected), family=poisson(log), data = data[expected>0])
+ anova(fit2,fit1,fit0, test='Chisq') # [['Pr(>Chi)']][2]
+ }
+
+ var1.p <- lrt.uni(spline.var = spline[1], print=print, knots=knts, knum = 1)
+ var2.p <- lrt.uni(spline.var = spline[2], print=print, knots=knts, knum = 2)
+ var3.p <- lrt.uni(spline.var = spline[3], print=print, knots=knts, knum = 3)
+
+ p <- list(spline.a = var1.p[['Pr(>Chi)']][2],
+ spline.b = var2.p[['Pr(>Chi)']][2],
+ spline.c = var3.p[['Pr(>Chi)']][2])
+ anovas <- list(spline.a = var1.p, spline.b = var2.p, spline.c = var3.p)
+ }
+
+ output <- list( spline.est.A = spline.est.A,
+ spline.est.B = spline.est.B,
+ spline.est.C = spline.est.C,
+ spline.seq.A = spline.seq.A,
+ spline.seq.B = spline.seq.B,
+ spline.seq.C = spline.seq.C,
+ adjust = adjust,
+ print = print,
+ spline = spline,
+ anovas = anovas,
+ knots = knts,
+ spline.dependent = dependent.splines,
+ p.values = p)
+ output
+}
+
+# input data and argument list. replaces print in upper environment with name a vector.
+data_list <- function( data, arg.list, env ) {
+ if(missing(env)){
+ arg.list <- substitute(arg.list)
+ env <- parent.frame()
+ }
+ d <- data.table(data)
+
+ l <- eval(arg.list, envir = d, enclos = parent.frame())
+
+ if( is.list( l ) ) {
+ n <- intersect(names(l), names(d))
+ if(length(n)>0){
+ d[,(n) := NULL]
+ }
+ # if(is.null(names(l))) {
+ # v <- 1:length(l)
+ # setnames(l, v, paste0('V', v))
+ # }
+ l <- as.data.table(l)
+ l <- data.table(l)
+ assign('print', colnames(l), envir = env) # set names to parent environment
+ if( ncol(d) > 0) {
+ l <- data.table(d, l)
+ }
+ return(l)
+ } else {
+ return(data)
+ }
+}
+
+#' @export
+coef.sir <- function(object, ...) {
+ factors <- attr(object, 'sir.meta')$print
+
+ q <- paste("paste(",paste(factors,collapse=","),", sep = ':')")
+ q <- parse(text=q)
+ n <- object[,eval(q)]
+
+ res <- object$sir
+ attr(res, 'names') <- n
+
+ res
+}
+
+
+
+
+#' @export
+confint.sir <- function(object, parm, level = 0.95, conf.type = 'profile',
+ test.type = 'homogeneity', ...) {
+
+ meta <- attr(object, 'sir.meta')
+ object <- copy(object)
+ object <- sir_est(table = object,
+ print = meta$print,
+ adjust = NULL,
+ conf.type = conf.type,
+ test.type = test.type,
+ conf.level = level,
+ EAR = FALSE)
+ object <- object$table
+ q <- paste("paste(",paste(meta$print,collapse=","),", sep = ':')")
+ q <- parse(text=q)
+ n <- object[,eval(q)]
+
+ res <- cbind(object$sir.lo, object$sir.hi)
+
+ rownames(res) <- n
+ colnames(res) <- paste( c( (1-level)/2*100, (1 - (1-level)/2)*100), '%')
+
+ res
+}
+
+
+#' @title Calculate SMR
+#' @author Matti Rantanen
+#' @description Calculate Standardized Mortality Ratios (SMRs) using
+#' a single data set that includes
+#' observed and expected cases and additionally person-years.
+#'
+#' @details These functions are intended to calculate SMRs from a single data set
+#' that includes both observed and expected number of cases. For example utilizing the
+#' argument \code{pop.haz} of the \code{\link{lexpand}}.
+#'
+#' \code{sir_lex} automatically exports the transition \code{fromXtoY} using the first
+#' state in \code{lex.Str} as \code{0} and all other as \code{1}. No missing values
+#' is allowed in observed, pop.haz or person-years.
+#'
+#' @param x Data set e.g. \code{aggre} or \code{Lexis} object
+#' (see: \code{\link{lexpand}})
+#' @param obs Variable name of the observed cases in the data set
+#' @param exp Variable name or expression for expected cases
+#' @param pyrs Variable name for person-years (optional)
+#' @param print Variables or expression to stratify the results
+#' @param test.type Test for equal SIRs. Test available are 'homogeneity' and 'trend'
+#' @param conf.level Level of type-I error in confidence intervals, default 0.05 is 95\% CI
+#' @param conf.type select confidence interval type: (default=) `profile`, `wald`, `univariate`
+#' @param subset a logical vector for subsetting data
+#'
+#' @seealso \code{\link{lexpand}}
+#' \href{../doc/sir.html}{A SIR calculation vignette}
+#' @family sir functions
+#'
+#' @return A sir object
+#'
+#' @examples
+#'
+#' \donttest{
+#' BL <- list(fot = 0:5, per = c("2003-01-01","2008-01-01", "2013-01-01"))
+#'
+#' ## Aggregated data
+#' x1 <- lexpand(sire, breaks = BL, status = status != 0,
+#' birth = bi_date, entry = dg_date, exit = ex_date,
+#' pophaz=popmort,
+#' aggre=list(sex, period = per, surv.int = fot))
+#' sir_ag(x1, print = 'period')
+#'
+#'
+#' # no aggreate or breaks
+#' x2 <- lexpand(sire, status = status != 0,
+#' birth = bi_date, entry = dg_date, exit = ex_date,
+#' pophaz=popmort)
+#' sir_lex(x2, breaks = BL, print = 'per')
+#' }
+#'
+#' @import data.table
+#' @import stats
+#' @export
+sir_exp <- function(x, obs, exp, pyrs=NULL, print = NULL,
+ conf.type = 'profile', test.type = 'homogeneity',
+ conf.level = 0.95, subset = NULL) {
+
+ # subsetting
+ subset <- substitute(subset)
+ subset <- evalLogicalSubset(data = x, substiset = subset)
+ x <- x[subset,]
+
+ # evalPopArg
+ obs <- substitute(obs)
+ c.obs <- evalPopArg(data = x, arg = obs)
+ obs <- names(c.obs)
+
+
+ print <- substitute(print)
+ c.pri <- evalPopArg(data = x, arg = print)
+ print <- names(c.pri)
+
+ exp <- substitute(exp)
+ c.exp <- evalPopArg(data = x, arg = exp)
+ exp <- names(c.exp)
+
+ pyrs <- substitute(pyrs)
+ c.pyr <- evalPopArg(data = x, arg = pyrs)
+ if(is.null(c.pyr)) c.pyr <- data.table(pyrs=0)
+ pyrs <- names(c.pyr)
+
+ # collect data
+ x <- cbind(c.obs, c.pyr, c.exp)
+ if(any(is.na(x))) stop('Missing values in expected cases.')
+ if(!is.null(print)) x<- cbind(x, c.pri)
+
+ express <- paste0('list(observed = sum(', obs, '), expected = sum(',exp,'), pyrs = sum(', pyrs,'))')
+ # aggregate
+ es <- parse(text = express)
+ y <- x[, eval(es), keyby = print] # keyby is must
+
+ results <- sir_est( table = y,
+ print = print,
+ adjust = NULL,
+ conf.type = conf.type,
+ test.type = test.type,
+ conf.level = conf.level,
+ EAR = FALSE)
+
+ #setDT(data)
+ if (!return_DT()) {
+ for (i in 1:2) {
+ if (!is.null(results[[i]])) {
+ setDFpe(results[[i]])
+ }
+ }
+ }
+
+ data <- copy(results[[2]])
+ setattr(data, name = 'sir.meta', value = list(adjust = NULL,
+ print = print,
+ call = match.call(),
+ lrt.test= results$'lrt.test',
+ conf.type = results$'conf.type',
+ conf.level = conf.level,
+ lrt.test.type = results$'test.type',
+ pooled.sir = results[[1]]))
+ setattr(data, "class", c("sir", "data.table", "data.frame"))
+ return(data)
+}
+
+
+
+#' Calculate SMRs from a split Lexis object
+#'
+#' @description \code{sir_lex} solves SMR from a \code{\link{Lexis}} object
+#' calculated with \code{lexpand}.
+#'
+#' @param breaks a named list to split age group (age), period (per) or follow-up (fot).
+#' @param ... pass arguments to \code{sir_exp}
+#'
+#'
+#' @describeIn sir_exp
+#'
+#' @export
+
+sir_lex <- function(x, print = NULL, breaks = NULL, ... ) {
+
+ ## R CMD CHECK appeasement
+ lex.dur <- NULL
+
+ if(!inherits(x, 'Lexis')) {
+ stop('x has to be a Lexis object (see lexpand or Lexis)')
+ }
+ if(!"pop.haz" %in% names(x)) {
+ stop("Variable pop.haz not found in the data.")
+ }
+
+
+ # reformat date breaks
+ if(!is.null(breaks)) {
+ breaks <- lapply(breaks, function(x) {
+ if(is.character(x)) c(cal.yr(as.Date(x)))
+ else x
+ })
+ }
+
+ print <- substitute(print)
+ # copy to retain the attributes
+ x <- copy(x)
+
+ # guess the first value
+ first_value <- lapply(c("lex.Cst", "lex.Xst"), function(var) {
+ if (is.factor(x[[var]])) levels(x[[var]]) else sort(unique(x[[var]]))
+ })
+ first_value <- unique(unlist(first_value))[1]
+
+ col <- x$lex.Xst
+ set(x, j = "lex.Cst", value = 0L)
+ set(x, j = "lex.Xst", value = ifelse(col == first_value, 0L, 1L))
+
+ if(!is.null(breaks)) {
+ x <- splitMulti(x, breaks = breaks)
+ }
+
+ a <- copy(attr(x, "time.scales"))
+ a <- a[!vapply(get_breaks(x), is.null, logical(1))]
+ x[, d.exp := pop.haz*lex.dur]
+
+ TF <- environment()
+
+ if(any(is.na(x[,d.exp]))) stop('Missing values in either pop.haz or lex.dur.')
+ x <- aggre(x, by = TF$a, sum.values = 'd.exp')
+ if(!'from0to1' %in% names(x)) {
+ stop('Could not find any transitions between states in lexis')
+ }
+ x <- sir_exp(x = x, obs = 'from0to1', print = print, exp = 'd.exp', pyrs = 'pyrs', ...)
+ # override the match.call from sir_exp
+ attr(x, 'sir.meta')$call <- match.call()
+ return(x)
+}
+
+
+#' SMR method for an \code{aggre} object.
+#'
+#' @description \code{sir_ag} solves SMR from a \code{\link{aggre}} object
+#' calculated using \code{\link{lexpand}}.
+#'
+#' @describeIn sir_exp
+#'
+#' @export
+
+sir_ag <- function(x, obs = 'from0to1', print = attr(x, 'aggre.meta')$by, exp = 'd.exp', pyrs = 'pyrs', ... ) {
+
+ if(!inherits(x, 'aggre')) {
+ stop('x should be an aggre object (see lexpand or sir_lex)')
+ }
+ obs <- substitute(obs)
+ print <- substitute(print)
+
+ x <- copy(x)
+ x <- sir_exp(x = x, obs = obs, print = print, exp = 'd.exp', pyrs = 'pyrs', ...) # original
+ attr(x, 'sir.meta')$call <- match.call() # override the call from sir_exp
+ x
+}
+
+
+
+globalVariables(c('observed','expected','p_adj','p_value','temp','coh.observations','coh.personyears',
+ 'd.exp', 'lower', 'pop.haz', 'sir.hi','sir.lo','upper'))
+
diff --git a/R/sir_utils.R b/R/sir_utils.R
index ef45065..18ee92a 100644
--- a/R/sir_utils.R
+++ b/R/sir_utils.R
@@ -1,115 +1,115 @@
-#' @title Confidence intervals for the ratio of two SIRs/SMRs
-#' @author Matti Rantanen
-#' @description Calculate ratio of two SIRs/SMRs and the confidence intervals of the ratio.
-#'
-#' @details Function works with pooled sir-objects i.e. the \code{print} argument in \code{sir} is ignored.
-#' Also \code{x} and \code{y} can be a vector of two where first index is the
-#' observed cases and second is expected cases (see examples).
-#' Note that the ratio of two SIR's is only applicable when the age distributions are similar
-#' in both populations.
-#'
-#' \strong{Formula}
-#'
-#' The observed number of first sir \code{O1} is considered as a Binomial variable with sample
-#' size of \code{O1+O2}. The confidence intervals for Binomial proportion \code{A}
-#' is solved using \code{exact} or \code{asymptotic}
-#' method. Now the CI for ratio \code{O1/O2} is \code{B = A/(1 - A)}. And further the CI for SIR/SMR
-#' is B*E2/E1. (Ederer and Mantel)
-#'
-#' @param x a sir-object or a vector of two; observed and expected cases.
-#' @param y a sir-object or a vector of two; observed and expected cases.
-#' @param conf.level the type-I error in confidence intervals, default 0.95 for 95\% CI.
-#' @param type How the binomial confidence intervals are calculated (default:) \code{exact} or \code{asymptotic}.
-#' @param alternative The null-hypothesis test: (default:) \code{two.sided}, \code{less}, \code{greater}
-#' @param digits number of digits in the output
-#'
-#' @note
-#' Parameter \code{alternative} is always \code{two.sided} when parameter
-#' \code{type} is set to \code{asymptotic}.
-#'
-#' @examples
-#' ## Ratio for sir-object and the same values given manually:
-#'
-#'
-#' ## create example dataset
-#' dt1 <- data.frame(obs = rep(c(5,7), 10),
-#' pyrs = rep(c(250,300,350,400), 5),
-#' var = 1:20)
-#' Ref <- data.frame(obs = rep(c(50,70,80,100), 5),
-#' pyrs = rep(c(2500,3000,3500,4000), 5),
-#' var = 1:20)
-#' ## sir using the function
-#' s1 <- sir(coh.data = dt1, coh.obs = obs, coh.pyrs = pyrs,
-#' ref.data = Ref, ref.obs = obs, ref.pyrs = pyrs,
-#' adjust = var)
-#'
-#' ## Ratio is simply 1:
-#' sir_ratio(s1, c(120, 150))
-#'
-#' @seealso \code{\link{sir}}
-#' \href{../doc/sir.html}{A SIR calculation vignette}
-#'
-#' @references
-#' Statistics with Confidence: Confidence Intervals and Statistical Guidelines,
-#' Douglas Altman, 2000. ISBN: 978-0-727-91375-3
-#'
-#' @family sir functions
-#'
-#' @return A vector length of three: sir_ratio, and lower and upper confidence intervals.
-#'
-#' @export sir_ratio
-#'
-#' @import data.table
-#' @import stats
-
-
-sir_ratio <- function(x, y, digits = 3, alternative = 'two.sided',
- conf.level = 0.95, type = 'exact') {
- # prepare input values: x
- # Tests are located in test_sir script.
- if(inherits(x = x, what = 'sir')){
- O1 <- sum(x$observed)
- E1 <- sum(x$expected)
- }
- else if(is.vector(x) && length(x) == 2) {
- O1 <- x[1]
- E1 <- x[2]
- }
- else{
- stop('Input x is not correct: x is neighter a vector of 2 nor sir-object')
- }
- # prepare y:
- if(inherits(y,'sir')){
- O2 <- sum(y$observed)
- E2 <- sum(y$expected)
- }
- else if(is.vector(y) && length(y) == 2) {
- O2 <- y[1]
- E2 <- y[2]
- }
- else{
- stop('Input y is not correct: y is neighter a vector of 2 nor sir-object')
- }
-
- type <- match.arg(type, c('asymptotic', 'exact'), several.ok = FALSE)
- alternative <- match.arg(alternative, c('two.sided','less', 'greater'), several.ok = FALSE)
- # conf.level
-
- p <- O1/(O1+O2)
- if(type == 'asymptotic') {
- alpha <- (1 - conf.level)/2
- Ex <- p + c(-qnorm(1-alpha),qnorm(1-alpha)) * sqrt((1/(O1+O2))*p*(1-p))
- if( alternative != 'two.sided') {
- message('Test changed to two.sided when asymptotic.')
- alternative <- 'two.sided'
- }
- }
- if(type == 'exact') {
- Ex <- binom.test(c(O1,O2), p = 0.5, alternative = alternative, conf.level = conf.level)$conf.int
- }
- B = Ex/(1-Ex)
-
- res <- round(c(sir_ratio = (O1/E1)/(O2/E2), lower=(B*(E2/E1))[1], upper = (B*(E2/E1))[2]), digits = digits)
- return(res)
-}
-
+#' @title Confidence intervals for the ratio of two SIRs/SMRs
+#' @author Matti Rantanen
+#' @description Calculate ratio of two SIRs/SMRs and the confidence intervals of the ratio.
+#'
+#' @details Function works with pooled sir-objects i.e. the \code{print} argument in \code{sir} is ignored.
+#' Also \code{x} and \code{y} can be a vector of two where first index is the
+#' observed cases and second is expected cases (see examples).
+#' Note that the ratio of two SIR's is only applicable when the age distributions are similar
+#' in both populations.
+#'
+#' \strong{Formula}
+#'
+#' The observed number of first sir \code{O1} is considered as a Binomial variable with sample
+#' size of \code{O1+O2}. The confidence intervals for Binomial proportion \code{A}
+#' is solved using \code{exact} or \code{asymptotic}
+#' method. Now the CI for ratio \code{O1/O2} is \code{B = A/(1 - A)}. And further the CI for SIR/SMR
+#' is B*E2/E1. (Ederer and Mantel)
+#'
+#' @param x a sir-object or a vector of two; observed and expected cases.
+#' @param y a sir-object or a vector of two; observed and expected cases.
+#' @param conf.level the type-I error in confidence intervals, default 0.95 for 95\% CI.
+#' @param type How the binomial confidence intervals are calculated (default:) \code{exact} or \code{asymptotic}.
+#' @param alternative The null-hypothesis test: (default:) \code{two.sided}, \code{less}, \code{greater}
+#' @param digits number of digits in the output
+#'
+#' @note
+#' Parameter \code{alternative} is always \code{two.sided} when parameter
+#' \code{type} is set to \code{asymptotic}.
+#'
+#' @examples
+#' ## Ratio for sir-object and the same values given manually:
+#'
+#'
+#' ## create example dataset
+#' dt1 <- data.frame(obs = rep(c(5,7), 10),
+#' pyrs = rep(c(250,300,350,400), 5),
+#' var = 1:20)
+#' Ref <- data.frame(obs = rep(c(50,70,80,100), 5),
+#' pyrs = rep(c(2500,3000,3500,4000), 5),
+#' var = 1:20)
+#' ## sir using the function
+#' s1 <- sir(coh.data = dt1, coh.obs = obs, coh.pyrs = pyrs,
+#' ref.data = Ref, ref.obs = obs, ref.pyrs = pyrs,
+#' adjust = var)
+#'
+#' ## Ratio is simply 1:
+#' sir_ratio(s1, c(120, 150))
+#'
+#' @seealso \code{\link{sir}}
+#' \href{../doc/sir.html}{A SIR calculation vignette}
+#'
+#' @references
+#' Statistics with Confidence: Confidence Intervals and Statistical Guidelines,
+#' Douglas Altman, 2000. ISBN: 978-0-727-91375-3
+#'
+#' @family sir functions
+#'
+#' @return A vector length of three: sir_ratio, and lower and upper confidence intervals.
+#'
+#' @export sir_ratio
+#'
+#' @import data.table
+#' @import stats
+
+
+sir_ratio <- function(x, y, digits = 3, alternative = 'two.sided',
+ conf.level = 0.95, type = 'exact') {
+ # prepare input values: x
+ # Tests are located in test_sir script.
+ if(inherits(x = x, what = 'sir')){
+ O1 <- sum(x$observed)
+ E1 <- sum(x$expected)
+ }
+ else if(is.vector(x) && length(x) == 2) {
+ O1 <- x[1]
+ E1 <- x[2]
+ }
+ else{
+ stop('Input x is not correct: x is neighter a vector of 2 nor sir-object')
+ }
+ # prepare y:
+ if(inherits(y,'sir')){
+ O2 <- sum(y$observed)
+ E2 <- sum(y$expected)
+ }
+ else if(is.vector(y) && length(y) == 2) {
+ O2 <- y[1]
+ E2 <- y[2]
+ }
+ else{
+ stop('Input y is not correct: y is neighter a vector of 2 nor sir-object')
+ }
+
+ type <- match.arg(type, c('asymptotic', 'exact'), several.ok = FALSE)
+ alternative <- match.arg(alternative, c('two.sided','less', 'greater'), several.ok = FALSE)
+ # conf.level
+
+ p <- O1/(O1+O2)
+ if(type == 'asymptotic') {
+ alpha <- (1 - conf.level)/2
+ Ex <- p + c(-qnorm(1-alpha),qnorm(1-alpha)) * sqrt((1/(O1+O2))*p*(1-p))
+ if( alternative != 'two.sided') {
+ message('Test changed to two.sided when asymptotic.')
+ alternative <- 'two.sided'
+ }
+ }
+ if(type == 'exact') {
+ Ex <- binom.test(c(O1,O2), p = 0.5, alternative = alternative, conf.level = conf.level)$conf.int
+ }
+ B = Ex/(1-Ex)
+
+ res <- round(c(sir_ratio = (O1/E1)/(O2/E2), lower=(B*(E2/E1))[1], upper = (B*(E2/E1))[2]), digits = digits)
+ return(res)
+}
+
diff --git a/R/splitLexisDT.R b/R/splitLexisDT.R
index 08cef4e..b75cb79 100644
--- a/R/splitLexisDT.R
+++ b/R/splitLexisDT.R
@@ -1,301 +1,301 @@
-#' @title Split case-level observations
-#' @author Joonas Miettinen
-#' @description Split a \code{Lexis} object along one time scale
-#' (as \code{\link[Epi]{splitLexis}}) with speed
-#' @param lex a Lexis object, split or not
-#' @param breaks a vector of \code{[a,b)} breaks to split \code{data} by
-#' @param timeScale a character string; name of the time scale to split by
-#' @param merge logical; if \code{TRUE}, retains all variables
-#' from the original data - i.e. original variables are
-#' repeated for all the rows by original subject
-#' @param drop logical; if \code{TRUE}, drops all resulting rows
-#' after expansion that reside outside the time window
-#' defined by the given breaks
-#'
-#'
-#' @details
-#'
-#' \code{splitLexisDT} is in essence a \pkg{data.table} version of
-#' \code{splitLexis} or \code{survSplit} for splitting along a single
-#' time scale. It requires a Lexis object as input, which may have already
-#' been split along some time scale.
-#'
-#' Unlike \code{splitLexis}, \code{splitLexisDT} drops observed time outside
-#' the roof and floor of \code{breaks} by default - with \code{drop = FALSE}
-#' the functions have identical behaviour.
-#'
-#' The \code{Lexis} time scale variables can be of any arbitrary
-#' format, e.g. \code{Date},
-#' fractional years (see \code{\link[Epi]{cal.yr}}) and \code{\link{get.yrs}},
-#' or other. However, using \code{date} variables (from package \pkg{date})
-#' are not recommended, as \code{date} variables are always stored as integers,
-#' whereas \code{Date} variables (see \code{?as.Date}) are typically stored
-#' in double ("numeric") format. This allows for breaking days into fractions
-#' as well, when using e.g. hypothetical years of 365.25 days.
-#'
-#' @return
-#' A \code{data.table} or \code{data.frame}
-#' (depending on \code{options("popEpi.datatable")}; see \code{?popEpi})
-#' object expanded to accommodate split observations.
-#'
-#' @export
-#' @family splitting functions
-#' @examples
-#' library(Epi)
-#' data("sire", package = "popEpi")
-#' x <- Lexis(data=sire[1000:1100, ],
-#' entry = list(fot=0, per=get.yrs(dg_date), age=dg_age),
-#' exit=list(per=get.yrs(ex_date)), exit.status=status)
-#' BL <- list(fot=seq(0, 5, by = 3/12), per=c(2008, 2013))
-#'
-#' x2 <- splitMulti(x, breaks = BL, drop = FALSE)
-#'
-#' x3 <- splitLexisDT(x, breaks = BL$fot, timeScale = "fot", drop = FALSE)
-#' x3 <- splitLexisDT(x3, breaks = BL$per, timeScale = "per", drop = FALSE)
-#'
-#' x4 <- splitLexis(x, breaks = BL$fot, time.scale = "fot")
-#' x4 <- splitLexis(x4, breaks = BL$per, time.scale = "per")
-#' ## all produce identical results
-#'
-#' ## using Date variables
-#' x <- Lexis(data=sire[1000:1100, ],
-#' entry = list(fot=0, per=dg_date, age=dg_date-bi_date),
-#' exit=list(per=ex_date), exit.status=status)
-#' BL <- list(fot = 0:5*365.25, per = as.Date(c("2008-01-01", "2013-01-01")))
-#'
-#' x2 <- splitMulti(x, breaks = BL, drop = FALSE)
-#'
-#' x3 <- splitLexisDT(x, breaks = BL$fot, timeScale = "fot", drop = FALSE)
-#' x3 <- splitLexisDT(x3, breaks = BL$per, timeScale = "per", drop = FALSE)
-#'
-#' ## splitLexis may not work when using Dates
-splitLexisDT <- function(lex, breaks, timeScale, merge = TRUE, drop = TRUE) {
-
- do_split <- TRUE
-
- tol <- .Machine$double.eps^0.5
- checkLexisData(lex, check.breaks = FALSE)
-
- attr_list <- copy(attributes(lex)[c("time.scales", "breaks", "time.since")])
- allScales <- attr_list[["time.scales"]]
- allBreaks <- attr_list[["breaks"]]
-
- if (!timeScale %in% allScales) {
- stop("timeScale '", timeScale,"' not among following existing time scales: ",
- paste0("'", allScales, "'", collapse = ", "))
- }
-
- ## lexVars: if !merge, will drop all but these (NOTE: checkLexisData
- ## check for existence of these)
- lexVars <- c("lex.id", "lex.multi", allScales, "lex.dur", "lex.Cst", "lex.Xst")
- lexVars <- intersect(lexVars, names(lex))
- othVars <- setdiff(names(lex), lexVars)
-
- ## basic checks on breaks
- if (drop && length(breaks) == 1L) {
- stop("Length of breaks vector is one, but argument 'drop' is TRUE. ",
- "Cannot do dropping with only one break. Either supply at least ",
- "two breaks or set drop = FALSE.")
- }
- if (length(breaks) == 0L) {
- stop("No breaks supplied (length of breaks is zero).")
- }
-
- ## remove any existing breaks already split by;
- ## NOTE: setdiff would break Date format breaks!
- orig_breaks <- copy(breaks)
- if (length(allBreaks[[timeScale]])) {
- ## because any test like (x %in% NULL) results in FALSE.
- breaks <- breaks[!breaks %in% allBreaks[[timeScale]]]
- }
-
- breaks <- matchBreakTypes(lex, breaks, timeScale, modify.lex = FALSE)
-
- if (length(breaks) == 0L || (length(orig_breaks) == 2L && drop)) {
- ## former means no additional splitting to do. (we still crop & drop
- ## if argument drop = TRUE)
- ## latter means we only need to crop & drop.
- do_split <- FALSE
- breaks <- orig_breaks
- }
-
- breaks <- sort(breaks)
- if (!drop) breaks <- protectFromDrop(breaks)
-
- BL <- list(breaks)
- setattr(BL, "names", timeScale)
- checkBreaksList(x = lex, breaks = BL)
-
-
- ## use subset lex if dropping for efficiency
- orig_lex <- lex
- if (drop) {
- keepVars <- if (merge) NULL else lexVars ## NULL: all vars
- lex <- subsetDTorDF(lex, select = keepVars)
- rm(keepVars)
- lex <- data.table(lex)
-
- setattr(lex, "class", c("Lexis", "data.table", "data.frame"))
-
- lex <- intelliCrop(lex, breaks = BL, allScales = allScales,
- cropStatuses = TRUE, tol = tol)
- lex <- intelliDrop(lex, breaks = BL, dropNegDur = TRUE,
- check = FALSE, tol = tol)
- }
-
- if (!do_split) {
-
- l <- if (!drop) copy(lex) else lex
-
- } else {
-
- ## currently cannot handle NA values in split time scale; will add them in
- ## the end
- ts_is_na <- is.na(lex[[timeScale]])
- ts_any_na <- any(ts_is_na)
- if (ts_any_na) {
- warning("NA values in the time scale you are splitting along ('",
- timeScale,"'). Results may deviate from that produced by ",
- "splitLexis from package Epi. For safety you may want to split ",
- "using only the data with no NA values and combine the the split",
- " data with the NA-valued data using rbind.")
- lex_na <- lex[ts_is_na, ]
- lex <- lex[!ts_is_na, ]
- }
-
-
- ## will use this due to step below (and laziness)
- ts_values <- lex[[timeScale]]
- ## Date objects are based on doubles and therefore keep the most information
- if (inherits(ts_values, c("IDate", "date", "dates"))) ts_values <- as.Date(ts_values)
-
- N_expand <- length(breaks)
- N_subjects <- nrow(lex)
-
- ## use tmp id to ensure correct status rolling -----------------------------
- id_dt <- data.table(
- tmp_id_values = 1:nrow(lex),
- orig_id_values = lex[["lex.id"]]
- )
- on.exit(set(lex, j = "lex.id", value = id_dt[["orig_id_values"]]))
- set(lex, j = "lex.id", value = id_dt[["tmp_id_values"]])
-
- ## quick data expansion ------------------------------------------------------
-
- l <- vector(mode = "list", length = N_expand)
- l[[1]] <- data.table(lex)
-
- if (!merge) setcolsnull(l[[1]], keep = lexVars, soft = FALSE)
-
- tmpID <- makeTempVarName(data = l[[1]], pre = "TEMP_SPLITTING_ID")
- tmpIE <- makeTempVarName(data = l[[1]], pre = "TEMP_SPLIT_INT_END")
-
- set(l[[1]], j = tmpID, value = 1:nrow(l[[1]]))
- if (N_expand > 1L) {
- for (k in 2:(N_expand)) {
- l[[k]] <- l[[1]]
- }
- }
-
- l <- rbindlist(l)
-
- ## time scale value determination --------------------------------------------
- set(l, j = tmpIE, value = rep(breaks, each = N_subjects))
- set(l, j = tmpIE, value = pmin(l[[tmpIE]], l[[timeScale]] + l$lex.dur) )
- set(l, j = timeScale, value = c(
- ts_values,
- pmax(ts_values, rep(breaks[-length(breaks)], each = N_subjects))
- ))
-
- set(l, j = "lex.dur", value = l[[tmpIE]] - l[[timeScale]] )
-
- ## other time scale values ---------------------------------------------------
- otherScales <- setdiff(allScales, timeScale)
- if (length(otherScales) > 0) {
- ## change in timeScale
- ts_delta <- l[[timeScale]] - ts_values
- for (k in otherScales) {
- set(l, j = k, value = lex[[k]] + ts_delta)
- }
- }
-
- ## dropping ----------------------------------------------------------------
- ## drops very very small intervals as well as dur <= 0
- has_zero_dur <- l[["lex.dur"]] < tol
- if (any(has_zero_dur)) {
- l <- l[!has_zero_dur]
- }
-
-
-
- ## roll states -------------------------------------------------------------
- # this avoids duplicate deaths, etc., where appropriate.
- setkeyv(l, c("lex.id", timeScale))
- lex_id <- mget_cols(c("lex.Cst", "lex.Xst", "lex.id"), data = lex)
- setattr(lex_id, "time.scales", allScales)
- roll_lexis_status_inplace(
- unsplit.data = lex_id, split.data = l, id.var = "lex.id"
- )
- rm("lex_id")
-
-
- set(l, j = c(tmpIE, tmpID), value = NULL)
-
- ## revert to original IDs --------------------------------------------------
- set(l, j = "lex.id", value = {
- id_dt[
- i = list(tmp_id_values = l$lex.id),
- j = .SD,
- on = "tmp_id_values",
- .SDcols = "orig_id_values"
- ]
- })
-
- if (ts_any_na) {
- l <- rbind(l, lex_na)
- setkeyv(l, c("lex.id", timeScale))
- }
-
- }
-
- ## harmonize statuses --------------------------------------------------------
- harmonizeStatuses(x = l, C = "lex.Cst", X = "lex.Xst")
-
-
- ## ensure time scales and lex.dur have same (ish) class as before ------------
- for (k in c(allScales, "lex.dur")) {
-
- if (inherits(orig_lex[[k]], "difftime") && !inherits(l[[k]], "difftime")){
- setattr(l[[k]], "class", "difftime")
- setattr(l[[k]], "units", attr(orig_lex[[k]], "units"))
- } else if (is.numeric(orig_lex[[k]]) && inherits(l[[k]], "difftime")) {
- set(l, j = k, value = as.numeric(l[[k]]))
- }
-
- }
-
- ## harmonize time scales -----------------------------------------------------
- ## numeric time scales are forced to the lowest common denominator:
- ## difftime -> integer -> double (though difftime is not numeric class)
- harmonizeNumericTimeScales(l, times = c(allScales, "lex.dur"))
-
-
- ## final touch & attributes --------------------------------------------------
- setcolorder(l, neworder = intersect(c(lexVars, othVars), names(l))) #merge=T/F
- if (!drop) breaks <- unprotectFromDrop(breaks)
- allBreaks[[timeScale]] <- sort(unique(c(allBreaks[[timeScale]], breaks)))
-
- allBreaks <- lapply(allScales, function(scale_nm) {
- allBreaks[[scale_nm]] ## intentionally NULL if not there
- })
- names(allBreaks) <- allScales
-
- setattr(l, "breaks", allBreaks)
- setattr(l, "time.scales", allScales)
- setattr(l, "time.since", attr_list[["time.since"]])
- setattr(l, "class", c("Lexis","data.table","data.frame"))
- if (!return_DT()) setDFpe(l)
-
- l[]
-}
-
+#' @title Split case-level observations
+#' @author Joonas Miettinen
+#' @description Split a \code{Lexis} object along one time scale
+#' (as \code{\link[Epi]{splitLexis}}) with speed
+#' @param lex a Lexis object, split or not
+#' @param breaks a vector of \code{[a,b)} breaks to split \code{data} by
+#' @param timeScale a character string; name of the time scale to split by
+#' @param merge logical; if \code{TRUE}, retains all variables
+#' from the original data - i.e. original variables are
+#' repeated for all the rows by original subject
+#' @param drop logical; if \code{TRUE}, drops all resulting rows
+#' after expansion that reside outside the time window
+#' defined by the given breaks
+#'
+#'
+#' @details
+#'
+#' \code{splitLexisDT} is in essence a \pkg{data.table} version of
+#' \code{splitLexis} or \code{survSplit} for splitting along a single
+#' time scale. It requires a Lexis object as input, which may have already
+#' been split along some time scale.
+#'
+#' Unlike \code{splitLexis}, \code{splitLexisDT} drops observed time outside
+#' the roof and floor of \code{breaks} by default - with \code{drop = FALSE}
+#' the functions have identical behaviour.
+#'
+#' The \code{Lexis} time scale variables can be of any arbitrary
+#' format, e.g. \code{Date},
+#' fractional years (see \code{\link[Epi]{cal.yr}}) and \code{\link{get.yrs}},
+#' or other. However, using \code{date} variables (from package \pkg{date})
+#' are not recommended, as \code{date} variables are always stored as integers,
+#' whereas \code{Date} variables (see \code{?as.Date}) are typically stored
+#' in double ("numeric") format. This allows for breaking days into fractions
+#' as well, when using e.g. hypothetical years of 365.25 days.
+#'
+#' @return
+#' A \code{data.table} or \code{data.frame}
+#' (depending on \code{options("popEpi.datatable")}; see \code{?popEpi})
+#' object expanded to accommodate split observations.
+#'
+#' @export
+#' @family splitting functions
+#' @examples
+#' library(Epi)
+#' data("sire", package = "popEpi")
+#' x <- Lexis(data=sire[1000:1100, ],
+#' entry = list(fot=0, per=get.yrs(dg_date), age=dg_age),
+#' exit=list(per=get.yrs(ex_date)), exit.status=status)
+#' BL <- list(fot=seq(0, 5, by = 3/12), per=c(2008, 2013))
+#'
+#' x2 <- splitMulti(x, breaks = BL, drop = FALSE)
+#'
+#' x3 <- splitLexisDT(x, breaks = BL$fot, timeScale = "fot", drop = FALSE)
+#' x3 <- splitLexisDT(x3, breaks = BL$per, timeScale = "per", drop = FALSE)
+#'
+#' x4 <- splitLexis(x, breaks = BL$fot, time.scale = "fot")
+#' x4 <- splitLexis(x4, breaks = BL$per, time.scale = "per")
+#' ## all produce identical results
+#'
+#' ## using Date variables
+#' x <- Lexis(data=sire[1000:1100, ],
+#' entry = list(fot=0, per=dg_date, age=dg_date-bi_date),
+#' exit=list(per=ex_date), exit.status=status)
+#' BL <- list(fot = 0:5*365.25, per = as.Date(c("2008-01-01", "2013-01-01")))
+#'
+#' x2 <- splitMulti(x, breaks = BL, drop = FALSE)
+#'
+#' x3 <- splitLexisDT(x, breaks = BL$fot, timeScale = "fot", drop = FALSE)
+#' x3 <- splitLexisDT(x3, breaks = BL$per, timeScale = "per", drop = FALSE)
+#'
+#' ## splitLexis may not work when using Dates
+splitLexisDT <- function(lex, breaks, timeScale, merge = TRUE, drop = TRUE) {
+
+ do_split <- TRUE
+
+ tol <- .Machine$double.eps^0.5
+ checkLexisData(lex, check.breaks = FALSE)
+
+ attr_list <- copy(attributes(lex)[c("time.scales", "breaks", "time.since")])
+ allScales <- attr_list[["time.scales"]]
+ allBreaks <- attr_list[["breaks"]]
+
+ if (!timeScale %in% allScales) {
+ stop("timeScale '", timeScale,"' not among following existing time scales: ",
+ paste0("'", allScales, "'", collapse = ", "))
+ }
+
+ ## lexVars: if !merge, will drop all but these (NOTE: checkLexisData
+ ## check for existence of these)
+ lexVars <- c("lex.id", "lex.multi", allScales, "lex.dur", "lex.Cst", "lex.Xst")
+ lexVars <- intersect(lexVars, names(lex))
+ othVars <- setdiff(names(lex), lexVars)
+
+ ## basic checks on breaks
+ if (drop && length(breaks) == 1L) {
+ stop("Length of breaks vector is one, but argument 'drop' is TRUE. ",
+ "Cannot do dropping with only one break. Either supply at least ",
+ "two breaks or set drop = FALSE.")
+ }
+ if (length(breaks) == 0L) {
+ stop("No breaks supplied (length of breaks is zero).")
+ }
+
+ ## remove any existing breaks already split by;
+ ## NOTE: setdiff would break Date format breaks!
+ orig_breaks <- copy(breaks)
+ if (length(allBreaks[[timeScale]])) {
+ ## because any test like (x %in% NULL) results in FALSE.
+ breaks <- breaks[!breaks %in% allBreaks[[timeScale]]]
+ }
+
+ breaks <- matchBreakTypes(lex, breaks, timeScale, modify.lex = FALSE)
+
+ if (length(breaks) == 0L || (length(orig_breaks) == 2L && drop)) {
+ ## former means no additional splitting to do. (we still crop & drop
+ ## if argument drop = TRUE)
+ ## latter means we only need to crop & drop.
+ do_split <- FALSE
+ breaks <- orig_breaks
+ }
+
+ breaks <- sort(breaks)
+ if (!drop) breaks <- protectFromDrop(breaks)
+
+ BL <- list(breaks)
+ setattr(BL, "names", timeScale)
+ checkBreaksList(x = lex, breaks = BL)
+
+
+ ## use subset lex if dropping for efficiency
+ orig_lex <- lex
+ if (drop) {
+ keepVars <- if (merge) NULL else lexVars ## NULL: all vars
+ lex <- subsetDTorDF(lex, select = keepVars)
+ rm(keepVars)
+ lex <- data.table(lex)
+
+ setattr(lex, "class", c("Lexis", "data.table", "data.frame"))
+
+ lex <- intelliCrop(lex, breaks = BL, allScales = allScales,
+ cropStatuses = TRUE, tol = tol)
+ lex <- intelliDrop(lex, breaks = BL, dropNegDur = TRUE,
+ check = FALSE, tol = tol)
+ }
+
+ if (!do_split) {
+
+ l <- if (!drop) copy(lex) else lex
+
+ } else {
+
+ ## currently cannot handle NA values in split time scale; will add them in
+ ## the end
+ ts_is_na <- is.na(lex[[timeScale]])
+ ts_any_na <- any(ts_is_na)
+ if (ts_any_na) {
+ warning("NA values in the time scale you are splitting along ('",
+ timeScale,"'). Results may deviate from that produced by ",
+ "splitLexis from package Epi. For safety you may want to split ",
+ "using only the data with no NA values and combine the the split",
+ " data with the NA-valued data using rbind.")
+ lex_na <- lex[ts_is_na, ]
+ lex <- lex[!ts_is_na, ]
+ }
+
+
+ ## will use this due to step below (and laziness)
+ ts_values <- lex[[timeScale]]
+ ## Date objects are based on doubles and therefore keep the most information
+ if (inherits(ts_values, c("IDate", "date", "dates"))) ts_values <- as.Date(ts_values)
+
+ N_expand <- length(breaks)
+ N_subjects <- nrow(lex)
+
+ ## use tmp id to ensure correct status rolling -----------------------------
+ id_dt <- data.table(
+ tmp_id_values = 1:nrow(lex),
+ orig_id_values = lex[["lex.id"]]
+ )
+ on.exit(set(lex, j = "lex.id", value = id_dt[["orig_id_values"]]))
+ set(lex, j = "lex.id", value = id_dt[["tmp_id_values"]])
+
+ ## quick data expansion ------------------------------------------------------
+
+ l <- vector(mode = "list", length = N_expand)
+ l[[1]] <- data.table(lex)
+
+ if (!merge) setcolsnull(l[[1]], keep = lexVars, soft = FALSE)
+
+ tmpID <- makeTempVarName(data = l[[1]], pre = "TEMP_SPLITTING_ID")
+ tmpIE <- makeTempVarName(data = l[[1]], pre = "TEMP_SPLIT_INT_END")
+
+ set(l[[1]], j = tmpID, value = 1:nrow(l[[1]]))
+ if (N_expand > 1L) {
+ for (k in 2:(N_expand)) {
+ l[[k]] <- l[[1]]
+ }
+ }
+
+ l <- rbindlist(l)
+
+ ## time scale value determination --------------------------------------------
+ set(l, j = tmpIE, value = rep(breaks, each = N_subjects))
+ set(l, j = tmpIE, value = pmin(l[[tmpIE]], l[[timeScale]] + l$lex.dur) )
+ set(l, j = timeScale, value = c(
+ ts_values,
+ pmax(ts_values, rep(breaks[-length(breaks)], each = N_subjects))
+ ))
+
+ set(l, j = "lex.dur", value = l[[tmpIE]] - l[[timeScale]] )
+
+ ## other time scale values ---------------------------------------------------
+ otherScales <- setdiff(allScales, timeScale)
+ if (length(otherScales) > 0) {
+ ## change in timeScale
+ ts_delta <- l[[timeScale]] - ts_values
+ for (k in otherScales) {
+ set(l, j = k, value = lex[[k]] + ts_delta)
+ }
+ }
+
+ ## dropping ----------------------------------------------------------------
+ ## drops very very small intervals as well as dur <= 0
+ has_zero_dur <- l[["lex.dur"]] < tol
+ if (any(has_zero_dur)) {
+ l <- l[!has_zero_dur]
+ }
+
+
+
+ ## roll states -------------------------------------------------------------
+ # this avoids duplicate deaths, etc., where appropriate.
+ setkeyv(l, c("lex.id", timeScale))
+ lex_id <- mget_cols(c("lex.Cst", "lex.Xst", "lex.id"), data = lex)
+ setattr(lex_id, "time.scales", allScales)
+ roll_lexis_status_inplace(
+ unsplit.data = lex_id, split.data = l, id.var = "lex.id"
+ )
+ rm("lex_id")
+
+
+ set(l, j = c(tmpIE, tmpID), value = NULL)
+
+ ## revert to original IDs --------------------------------------------------
+ set(l, j = "lex.id", value = {
+ id_dt[
+ i = list(tmp_id_values = l$lex.id),
+ j = .SD,
+ on = "tmp_id_values",
+ .SDcols = "orig_id_values"
+ ]
+ })
+
+ if (ts_any_na) {
+ l <- rbind(l, lex_na)
+ setkeyv(l, c("lex.id", timeScale))
+ }
+
+ }
+
+ ## harmonize statuses --------------------------------------------------------
+ harmonizeStatuses(x = l, C = "lex.Cst", X = "lex.Xst")
+
+
+ ## ensure time scales and lex.dur have same (ish) class as before ------------
+ for (k in c(allScales, "lex.dur")) {
+
+ if (inherits(orig_lex[[k]], "difftime") && !inherits(l[[k]], "difftime")){
+ setattr(l[[k]], "class", "difftime")
+ setattr(l[[k]], "units", attr(orig_lex[[k]], "units"))
+ } else if (is.numeric(orig_lex[[k]]) && inherits(l[[k]], "difftime")) {
+ set(l, j = k, value = as.numeric(l[[k]]))
+ }
+
+ }
+
+ ## harmonize time scales -----------------------------------------------------
+ ## numeric time scales are forced to the lowest common denominator:
+ ## difftime -> integer -> double (though difftime is not numeric class)
+ harmonizeNumericTimeScales(l, times = c(allScales, "lex.dur"))
+
+
+ ## final touch & attributes --------------------------------------------------
+ setcolorder(l, neworder = intersect(c(lexVars, othVars), names(l))) #merge=T/F
+ if (!drop) breaks <- unprotectFromDrop(breaks)
+ allBreaks[[timeScale]] <- sort(unique(c(allBreaks[[timeScale]], breaks)))
+
+ allBreaks <- lapply(allScales, function(scale_nm) {
+ allBreaks[[scale_nm]] ## intentionally NULL if not there
+ })
+ names(allBreaks) <- allScales
+
+ setattr(l, "breaks", allBreaks)
+ setattr(l, "time.scales", allScales)
+ setattr(l, "time.since", attr_list[["time.since"]])
+ setattr(l, "class", c("Lexis","data.table","data.frame"))
+ if (!return_DT()) setDFpe(l)
+
+ l[]
+}
+
diff --git a/R/splitMulti.R b/R/splitMulti.R
index 703a048..9b6f4bd 100644
--- a/R/splitMulti.R
+++ b/R/splitMulti.R
@@ -1,280 +1,280 @@
-#' @title Split case-level observations
-#' @author Joonas Miettinen
-#' @description Split a \code{Lexis} object along multiple time scales
-#' with speed and ease
-#' @param data a Lexis object with event cases as rows
-#' @param breaks a list of named numeric vectors of breaks; see Details and Examples
-#' @param ... alternate way of supplying breaks as named vectors;
-#' e.g. \code{fot = 0:5} instead of \code{breaks = list(fot = 0:5)};
-#' if \code{breaks} is not \code{NULL}, \code{breaks} is used and any breaks
-#' passed through \code{...} are NOT used; note also that due to partial
-#' matching of argument names in R,
-#' if you supply e.g. \code{dat = my_breaks} and you
-#' do not pass argument \code{data} explicitly (\code{data = my_data}), then R
-#' interprets this as \code{data = my_breaks} --- so choose the names of your
-#' time scales wisely
-#' @param drop logical; if \code{TRUE}, drops all resulting rows
-#' after expansion that reside outside the time window
-#' defined by the given breaks
-#' @param merge logical; if \code{TRUE}, retains all variables
-#' from the original data - i.e. original variables are
-#' repeated for all the rows by original subject
-#' @param verbose logical; if \code{TRUE}, the function is chatty
-#' and returns some messages along the way
-#'
-#'
-#' @details
-#'
-#' \code{splitMulti} is in essence a \pkg{data.table} version of
-#' \code{splitLexis} or \code{survSplit} for splitting along multiple
-#' time scales.
-#' It requires a Lexis object as input.
-#'
-#' The \code{breaks} must be a list of named vectors of the appropriate type.
-#' The breaks are fully explicit and
-#' left-inclusive and right exclusive, e.g. \code{fot=c(0,5)}
-#' forces the data to only include time between
-#' \code{[0,5)} for each original row (unless \code{drop = FALSE}).
-#' Use \code{Inf} or \code{-Inf} for open-ended intervals,
-#' e.g. \code{per=c(1990,1995,Inf)} creates the intervals
-#' \code{[1990,1995), [1995, Inf)}.
-#'
-#' Instead of specifying \code{breaks}, one may make use of the \code{...}
-#' argument to pass breaks: e.g.
-#'
-#' \code{splitMulti(x, breaks = list(fot = 0:5))}
-#'
-#' is equivalent to
-#'
-#' \code{splitMulti(x, fot = 0:5)}.
-#'
-#' Multiple breaks can be supplied in the same manner. However, if both
-#' \code{breaks} and \code{...} are used, only the breaks in \code{breaks}
-#' are utilized within the function.
-#'
-#' The \code{Lexis} time scale variables can be of any arbitrary
-#' format, e.g. \code{Date},
-#' fractional years (see \code{\link[Epi]{cal.yr}}) and \code{\link{get.yrs}},
-#' or other. However, using \code{date} variables (from package \pkg{date})
-#' are not recommended, as \code{date} variables are always stored as integers,
-#' whereas \code{Date} variables (see \code{?as.Date}) are typically stored
-#' in double ("numeric") format. This allows for breaking days into fractions
-#' as well, when using e.g. hypothetical years of 365.25 days.
-#'
-#' @return
-#' A \code{data.table} or \code{data.frame}
-#' (depending on \code{options("popEpi.datatable")}; see \code{?popEpi})
-#' object expanded to accommodate split observations.
-#'
-#' @examples
-#' #### let's prepare data for computing period method survivals
-#' #### in case there are problems with dates, we first
-#' #### convert to fractional years.
-#' \donttest{
-#' library("Epi")
-#' library("data.table")
-#' data("sire", package = "popEpi")
-#' x <- Lexis(data=sire[dg_date < ex_date, ],
-#' entry = list(fot=0, per=get.yrs(dg_date), age=dg_age),
-#' exit=list(per=get.yrs(ex_date)), exit.status=status)
-#' x2 <- splitMulti(x, breaks = list(fot=seq(0, 5, by = 3/12), per=c(2008, 2013)))
-#' # equivalently:
-#' x2 <- splitMulti(x, fot=seq(0, 5, by = 3/12), per=c(2008, 2013))
-#'
-#' ## using dates; note: breaks must be expressed as dates or days!
-#' x <- Lexis(data=sire[dg_date < ex_date, ],
-#' entry = list(fot=0, per=dg_date, age=dg_date-bi_date),
-#' exit=list(per=ex_date), exit.status=status)
-#' BL <- list(fot = seq(0, 5, by = 3/12)*365.242199,
-#' per = as.Date(paste0(c(1980:2014),"-01-01")),
-#' age = c(0,45,85,Inf)*365.242199)
-#' x2 <- splitMulti(x, breaks = BL, verbose=TRUE)
-#'
-#'
-#' ## multistate example (healty - sick - dead)
-#' sire2 <- data.frame(sire)
-#' sire2 <- sire2[sire2$dg_date < sire2$ex_date, ]
-#'
-#' set.seed(1L)
-#' not_sick <- sample.int(nrow(sire2), 6000L, replace = FALSE)
-#' sire2$dg_date[not_sick] <- NA
-#' sire2$status[!is.na(sire2$dg_date) & sire2$status == 0] <- -1
-#'
-#' sire2$status[sire2$status==2] <- 1
-#' sire2$status <- factor(sire2$status, levels = c(0, -1, 1),
-#' labels = c("healthy", "sick", "dead"))
-#'
-#' xm <- Lexis(data = sire2,
-#' entry = list(fot=0, per=get.yrs(bi_date), age=0),
-#' exit = list(per=get.yrs(ex_date)), exit.status=status)
-#' xm2 <- cutLexis(xm, cut = get.yrs(xm$dg_date),
-#' timescale = "per",
-#' new.state = "sick")
-#' xm2[xm2$lex.id == 6L, ]
-#'
-#' xm2 <- splitMulti(xm2, breaks = list(fot = seq(0,150,25)))
-#' xm2[xm2$lex.id == 6L, ]
-#' }
-#'
-#' @import data.table
-#' @import Epi
-#'
-#' @export
-#' @family splitting functions
-#' @seealso
-#' \code{\link[Epi]{splitLexis}}, \code{\link[Epi]{Lexis}},
-#' \code{\link[survival]{survSplit}}
-#'
-splitMulti <- function(data,
- breaks = NULL,
- ...,
- drop=TRUE,
- merge=TRUE,
- verbose=FALSE) {
-
- lex.id <- lex.dur <- NULL ## APPEASE R CMD CHECK
-
- ## basic checks --------------------------------------------------------------
- if (verbose) {stime <- proc.time()}
-
- breaks <- splitMultiPreCheck(data = data, breaks = breaks, ...)
-
- ## collect necessary data ----------------------------------------------------
- attr_list <- copy(attributes(data)[c("time.scales", "breaks", "time.since")])
- allScales <- attr_list$time.scales
- splitScales <- names(breaks)
-
- keep_nms <- if (merge) names(data) else {
- intersect(
- names(data),
- c("lex.id", "lex.Cst", "lex.Xst", allScales)
- )
- }
- # this is not a copy!
- dt <- mget_cols(keep_nms, data = data)
- forceLexisDT(dt, breaks = attr(data, "breaks"), allScales = allScales,
- key = FALSE)
-
- ## check if even need to do splitting ----------------------------------------
-
- oldBreaks <- copy(attr(data, "breaks"))
- tryCatch(checkBreaksList(data, oldBreaks), error = function(e) {
- stop("Error in splitMulti: \n",
- "Old breaks existing in Lexis data did not pass testing. Error ",
- "message from test: \n", e, call. = FALSE)
- })
-
- ## only do split if all breaks are NOT in the breaks that the data
- ## has already been split by.
- do_split <- TRUE
- do_split <- !all_breaks_in(breaks, oldBreaks, x = data)
-
- if (!do_split) {
- l <- setDT(copy(dt))
- setkeyv(l, c("lex.id", allScales[1]))
- } else {
-
- ## temp IDS ----------------------------------------------------------------
- # used to ensure correct splitting and lex status rolling
-
- id_dt <- data.table(
- orig_id_values = dt$lex.id,
- temp_id_values = 1:nrow(dt),
- key = "temp_id_values"
- )
-
- on.exit(set(dt, j = "lex.id", value = id_dt[["orig_id_values"]]))
- set(dt, j = "lex.id", value = id_dt[["temp_id_values"]])
-
- l <- vector(mode = "list", length = length(splitScales))
- setattr(l, "names", splitScales)
- for (v in splitScales) {
- l[[v]] <- splitLexisDT(dt, breaks = breaks[[v]],
- merge = merge, drop = FALSE, timeScale = v)
- breaks[[v]] <- attr(l[[v]], "breaks")[[v]]
- }
- l <- rbindlist(l)
-
- s1 <- allScales[1]
- setkeyv(l, c("lex.id", s1))
-
- if (length(splitScales) > 1L) {
- ## roll time scale values, re-compute interval lengths (lex.dur) ---------
-
- tmp_ie <- makeTempVarName(names = names(l), pre = "TEMP_INT_END_")
- l[, (tmp_ie) := shift(.SD, n = 1, type = "lead"),
- .SDcols = s1, by = "lex.id"]
- is_last_row <- is.na(l[[tmp_ie]])
-
- l[is_last_row, (tmp_ie) := lex.dur + .SD, .SDcols = s1]
-
- set(l, j = "lex.dur", value = l[[tmp_ie]] - l[[s1]])
- set(l, j = tmp_ie, value = NULL)
- }
-
- has_zero_dur <- l[["lex.dur"]] < .Machine$double.eps^0.5
- if (any(has_zero_dur)) {
- l <- l[!has_zero_dur, ]
- }
-
- ## ensure statuses are as expected -----------------------------------------
-
-
- setkeyv(l, c("lex.id", s1))
- roll_lexis_status_inplace(
- unsplit.data = dt, split.data = l, id.var = "lex.id"
- )
-
- ## dt$lex.id from temporary values to original values ----------------------
- # merge in correct IDs also to split data
- on.exit()
- set(dt, j = "lex.id", value = id_dt$lex.id)
-
-
- tmpID <- makeTempVarName(names = names(l), pre = "TEMP_SPLITMULTI_ID_")
- setnames(l, old = "lex.id", new = tmpID)
- set(l, j = "lex.id", value = {id_dt[
- i = .(l[[tmpID]]),
- j = .SD,
- on = "temp_id_values",
- .SDcols = "orig_id_values"
- ]})
- set(l, j = tmpID, value = NULL)
- rm("id_dt")
-
- }
-
- if (drop) l <- intelliDrop(l, breaks = breaks, dropNegDur = FALSE)
-
- if (nrow(l) == 0) {
- warning("no data left after dropping; check breaks?")
- }
-
- order <- c("lex.id", "lex.multi", allScales, "lex.dur", "lex.Cst", "lex.Xst")
- order <- c(order, setdiff(names(l), order))
- order <- intersect(order, names(l))
- setcolorder(l, order)
-
- if (verbose) cat("time taken by splitting process: ", timetaken(stime), "\n")
-
-
- breaks <- lapply(allScales, function(scale_nm) {
- ## allowed to NULL also
- br <- c(breaks[[scale_nm]], oldBreaks[[scale_nm]])
- if (is.null(br)) return(br)
- sort(unique(br))
- })
- names(breaks) <- allScales
-
- setattr(l, "time.scales", allScales)
- setattr(l, "time.since", attr_list[["time.since"]])
- setattr(l, "breaks", breaks)
- setattr(l, "class", c("Lexis","data.table","data.frame"))
- if (!return_DT()) setDFpe(l)
-
- l[]
-
-}
-
-globalVariables(".")
-
+#' @title Split case-level observations
+#' @author Joonas Miettinen
+#' @description Split a \code{Lexis} object along multiple time scales
+#' with speed and ease
+#' @param data a Lexis object with event cases as rows
+#' @param breaks a list of named numeric vectors of breaks; see Details and Examples
+#' @param ... alternate way of supplying breaks as named vectors;
+#' e.g. \code{fot = 0:5} instead of \code{breaks = list(fot = 0:5)};
+#' if \code{breaks} is not \code{NULL}, \code{breaks} is used and any breaks
+#' passed through \code{...} are NOT used; note also that due to partial
+#' matching of argument names in R,
+#' if you supply e.g. \code{dat = my_breaks} and you
+#' do not pass argument \code{data} explicitly (\code{data = my_data}), then R
+#' interprets this as \code{data = my_breaks} --- so choose the names of your
+#' time scales wisely
+#' @param drop logical; if \code{TRUE}, drops all resulting rows
+#' after expansion that reside outside the time window
+#' defined by the given breaks
+#' @param merge logical; if \code{TRUE}, retains all variables
+#' from the original data - i.e. original variables are
+#' repeated for all the rows by original subject
+#' @param verbose logical; if \code{TRUE}, the function is chatty
+#' and returns some messages along the way
+#'
+#'
+#' @details
+#'
+#' \code{splitMulti} is in essence a \pkg{data.table} version of
+#' \code{splitLexis} or \code{survSplit} for splitting along multiple
+#' time scales.
+#' It requires a Lexis object as input.
+#'
+#' The \code{breaks} must be a list of named vectors of the appropriate type.
+#' The breaks are fully explicit and
+#' left-inclusive and right exclusive, e.g. \code{fot=c(0,5)}
+#' forces the data to only include time between
+#' \code{[0,5)} for each original row (unless \code{drop = FALSE}).
+#' Use \code{Inf} or \code{-Inf} for open-ended intervals,
+#' e.g. \code{per=c(1990,1995,Inf)} creates the intervals
+#' \code{[1990,1995), [1995, Inf)}.
+#'
+#' Instead of specifying \code{breaks}, one may make use of the \code{...}
+#' argument to pass breaks: e.g.
+#'
+#' \code{splitMulti(x, breaks = list(fot = 0:5))}
+#'
+#' is equivalent to
+#'
+#' \code{splitMulti(x, fot = 0:5)}.
+#'
+#' Multiple breaks can be supplied in the same manner. However, if both
+#' \code{breaks} and \code{...} are used, only the breaks in \code{breaks}
+#' are utilized within the function.
+#'
+#' The \code{Lexis} time scale variables can be of any arbitrary
+#' format, e.g. \code{Date},
+#' fractional years (see \code{\link[Epi]{cal.yr}}) and \code{\link{get.yrs}},
+#' or other. However, using \code{date} variables (from package \pkg{date})
+#' are not recommended, as \code{date} variables are always stored as integers,
+#' whereas \code{Date} variables (see \code{?as.Date}) are typically stored
+#' in double ("numeric") format. This allows for breaking days into fractions
+#' as well, when using e.g. hypothetical years of 365.25 days.
+#'
+#' @return
+#' A \code{data.table} or \code{data.frame}
+#' (depending on \code{options("popEpi.datatable")}; see \code{?popEpi})
+#' object expanded to accommodate split observations.
+#'
+#' @examples
+#' #### let's prepare data for computing period method survivals
+#' #### in case there are problems with dates, we first
+#' #### convert to fractional years.
+#' \donttest{
+#' library("Epi")
+#' library("data.table")
+#' data("sire", package = "popEpi")
+#' x <- Lexis(data=sire[dg_date < ex_date, ],
+#' entry = list(fot=0, per=get.yrs(dg_date), age=dg_age),
+#' exit=list(per=get.yrs(ex_date)), exit.status=status)
+#' x2 <- splitMulti(x, breaks = list(fot=seq(0, 5, by = 3/12), per=c(2008, 2013)))
+#' # equivalently:
+#' x2 <- splitMulti(x, fot=seq(0, 5, by = 3/12), per=c(2008, 2013))
+#'
+#' ## using dates; note: breaks must be expressed as dates or days!
+#' x <- Lexis(data=sire[dg_date < ex_date, ],
+#' entry = list(fot=0, per=dg_date, age=dg_date-bi_date),
+#' exit=list(per=ex_date), exit.status=status)
+#' BL <- list(fot = seq(0, 5, by = 3/12)*365.242199,
+#' per = as.Date(paste0(c(1980:2014),"-01-01")),
+#' age = c(0,45,85,Inf)*365.242199)
+#' x2 <- splitMulti(x, breaks = BL, verbose=TRUE)
+#'
+#'
+#' ## multistate example (healty - sick - dead)
+#' sire2 <- data.frame(sire)
+#' sire2 <- sire2[sire2$dg_date < sire2$ex_date, ]
+#'
+#' set.seed(1L)
+#' not_sick <- sample.int(nrow(sire2), 6000L, replace = FALSE)
+#' sire2$dg_date[not_sick] <- NA
+#' sire2$status[!is.na(sire2$dg_date) & sire2$status == 0] <- -1
+#'
+#' sire2$status[sire2$status==2] <- 1
+#' sire2$status <- factor(sire2$status, levels = c(0, -1, 1),
+#' labels = c("healthy", "sick", "dead"))
+#'
+#' xm <- Lexis(data = sire2,
+#' entry = list(fot=0, per=get.yrs(bi_date), age=0),
+#' exit = list(per=get.yrs(ex_date)), exit.status=status)
+#' xm2 <- cutLexis(xm, cut = get.yrs(xm$dg_date),
+#' timescale = "per",
+#' new.state = "sick")
+#' xm2[xm2$lex.id == 6L, ]
+#'
+#' xm2 <- splitMulti(xm2, breaks = list(fot = seq(0,150,25)))
+#' xm2[xm2$lex.id == 6L, ]
+#' }
+#'
+#' @import data.table
+#' @import Epi
+#'
+#' @export
+#' @family splitting functions
+#' @seealso
+#' \code{\link[Epi]{splitLexis}}, \code{\link[Epi]{Lexis}},
+#' \code{\link[survival]{survSplit}}
+#'
+splitMulti <- function(data,
+ breaks = NULL,
+ ...,
+ drop=TRUE,
+ merge=TRUE,
+ verbose=FALSE) {
+
+ lex.id <- lex.dur <- NULL ## APPEASE R CMD CHECK
+
+ ## basic checks --------------------------------------------------------------
+ if (verbose) {stime <- proc.time()}
+
+ breaks <- splitMultiPreCheck(data = data, breaks = breaks, ...)
+
+ ## collect necessary data ----------------------------------------------------
+ attr_list <- copy(attributes(data)[c("time.scales", "breaks", "time.since")])
+ allScales <- attr_list$time.scales
+ splitScales <- names(breaks)
+
+ keep_nms <- if (merge) names(data) else {
+ intersect(
+ names(data),
+ c("lex.id", "lex.Cst", "lex.Xst", allScales)
+ )
+ }
+ # this is not a copy!
+ dt <- mget_cols(keep_nms, data = data)
+ forceLexisDT(dt, breaks = attr(data, "breaks"), allScales = allScales,
+ key = FALSE)
+
+ ## check if even need to do splitting ----------------------------------------
+
+ oldBreaks <- copy(attr(data, "breaks"))
+ tryCatch(checkBreaksList(data, oldBreaks), error = function(e) {
+ stop("Error in splitMulti: \n",
+ "Old breaks existing in Lexis data did not pass testing. Error ",
+ "message from test: \n", e, call. = FALSE)
+ })
+
+ ## only do split if all breaks are NOT in the breaks that the data
+ ## has already been split by.
+ do_split <- TRUE
+ do_split <- !all_breaks_in(breaks, oldBreaks, x = data)
+
+ if (!do_split) {
+ l <- setDT(copy(dt))
+ setkeyv(l, c("lex.id", allScales[1]))
+ } else {
+
+ ## temp IDS ----------------------------------------------------------------
+ # used to ensure correct splitting and lex status rolling
+
+ id_dt <- data.table(
+ orig_id_values = dt$lex.id,
+ temp_id_values = 1:nrow(dt),
+ key = "temp_id_values"
+ )
+
+ on.exit(set(dt, j = "lex.id", value = id_dt[["orig_id_values"]]))
+ set(dt, j = "lex.id", value = id_dt[["temp_id_values"]])
+
+ l <- vector(mode = "list", length = length(splitScales))
+ setattr(l, "names", splitScales)
+ for (v in splitScales) {
+ l[[v]] <- splitLexisDT(dt, breaks = breaks[[v]],
+ merge = merge, drop = FALSE, timeScale = v)
+ breaks[[v]] <- attr(l[[v]], "breaks")[[v]]
+ }
+ l <- rbindlist(l)
+
+ s1 <- allScales[1]
+ setkeyv(l, c("lex.id", s1))
+
+ if (length(splitScales) > 1L) {
+ ## roll time scale values, re-compute interval lengths (lex.dur) ---------
+
+ tmp_ie <- makeTempVarName(names = names(l), pre = "TEMP_INT_END_")
+ l[, (tmp_ie) := shift(.SD, n = 1, type = "lead"),
+ .SDcols = s1, by = "lex.id"]
+ is_last_row <- is.na(l[[tmp_ie]])
+
+ l[is_last_row, (tmp_ie) := lex.dur + .SD, .SDcols = s1]
+
+ set(l, j = "lex.dur", value = l[[tmp_ie]] - l[[s1]])
+ set(l, j = tmp_ie, value = NULL)
+ }
+
+ has_zero_dur <- l[["lex.dur"]] < .Machine$double.eps^0.5
+ if (any(has_zero_dur)) {
+ l <- l[!has_zero_dur, ]
+ }
+
+ ## ensure statuses are as expected -----------------------------------------
+
+
+ setkeyv(l, c("lex.id", s1))
+ roll_lexis_status_inplace(
+ unsplit.data = dt, split.data = l, id.var = "lex.id"
+ )
+
+ ## dt$lex.id from temporary values to original values ----------------------
+ # merge in correct IDs also to split data
+ on.exit()
+ set(dt, j = "lex.id", value = id_dt$lex.id)
+
+
+ tmpID <- makeTempVarName(names = names(l), pre = "TEMP_SPLITMULTI_ID_")
+ setnames(l, old = "lex.id", new = tmpID)
+ set(l, j = "lex.id", value = {id_dt[
+ i = .(l[[tmpID]]),
+ j = .SD,
+ on = "temp_id_values",
+ .SDcols = "orig_id_values"
+ ]})
+ set(l, j = tmpID, value = NULL)
+ rm("id_dt")
+
+ }
+
+ if (drop) l <- intelliDrop(l, breaks = breaks, dropNegDur = FALSE)
+
+ if (nrow(l) == 0) {
+ warning("no data left after dropping; check breaks?")
+ }
+
+ order <- c("lex.id", "lex.multi", allScales, "lex.dur", "lex.Cst", "lex.Xst")
+ order <- c(order, setdiff(names(l), order))
+ order <- intersect(order, names(l))
+ setcolorder(l, order)
+
+ if (verbose) cat("time taken by splitting process: ", timetaken(stime), "\n")
+
+
+ breaks <- lapply(allScales, function(scale_nm) {
+ ## allowed to NULL also
+ br <- c(breaks[[scale_nm]], oldBreaks[[scale_nm]])
+ if (is.null(br)) return(br)
+ sort(unique(br))
+ })
+ names(breaks) <- allScales
+
+ setattr(l, "time.scales", allScales)
+ setattr(l, "time.since", attr_list[["time.since"]])
+ setattr(l, "breaks", breaks)
+ setattr(l, "class", c("Lexis","data.table","data.frame"))
+ if (!return_DT()) setDFpe(l)
+
+ l[]
+
+}
+
+globalVariables(".")
+
diff --git a/R/splitting_utility_functions.R b/R/splitting_utility_functions.R
index ee0977d..447a510 100644
--- a/R/splitting_utility_functions.R
+++ b/R/splitting_utility_functions.R
@@ -1,1442 +1,1442 @@
-all_breaks_in <- function(bl1, bl2, x = NULL) {
- ## INTENTION: return TRUE/FALSE depending on whether bl1 is a subset of bl2;
- ## this means that each element in bl1 exists in bl2, and that those elements
- ## are each subsets of the corresponding elements in bl2.
- ## this is handy to check whether the some Lexis data has already
- ## been split using the breaks in bl1.
- ## NOTE: use checkBreakList() on each list separately before this.
-
- if (!is.list(bl1) || !is.list(bl2)) {
- stop("Arguments bl1 and bl2 must be lists of breaks as supplied to e.g. ",
- "splitMulti.")
- }
-
- if (inherits(x, "Lexis")) {
- checkLexisData(x)
- checkBreaksList(x, bl1)
- checkBreaksList(x, bl2)
- }
-
- ce <- intersect(names(bl1), names(bl2))
- if (length(ce) != length(bl1)) return(FALSE)
-
- test <- mapply(function(l1, l2) {
- all(l1 %in% l2)
- }, l1 = bl1, l2 = bl2[ce], SIMPLIFY = FALSE)
-
- all(unlist(test))
-}
-
-
-checkBreaksList <- function(x, breaks = list(fot = 0:5)) {
- if (is.null(breaks)) stop("breaks is NULL")
- if (!is.list(breaks)) stop("breaks needs to be a list")
- if (!is.data.frame(x)) stop("x needs to be a data.frame")
- timeScales <- names(breaks)
- if (length(breaks) == 0L) stop("length of breaks list is zero")
- if (length(timeScales) != length(breaks)) stop("breaks needs to be a fully named list")
-
- bad_scales <- setdiff(timeScales, names(x))
- if (length(bad_scales) > 0) {
- stop("at least one breaks list name wasn't a variable in data; bad names: ",
- paste0("'", bad_scales, "'", collapse = ", "))
- }
- lens <- lapply(breaks, function(el) if (is.null(el)) -1 else length(el))
- badLens <- names(lens[unlist(lens) == 0L])
- if (length(badLens)) {
- badLens <- paste0("'", badLens, "'", collapse = ", ")
- stop("Elements in breaks list for the following time scales were of ",
- "length zero but not NULL: ", badLens, ". Breaks list may only ",
- "contain elements of length > 0 or elements that are NULL.")
- }
- invisible(NULL)
-}
-
-checkPophaz <- function(lex, ph, haz.name = "haz") {
- ## INTENTION: checks a Lexis data set against the pophaz data set for
- ## consistency (e.g. existing variables to merge by)
-
- if (!is.data.frame(ph)) {
- stop("Data set containing population/expected hazards must be a data.frame",
- " (or a data.table, which is also a data.frame).")
- }
-
- if (!haz.name %in% names(ph)) {
- stop("Data set containing population/expected hazards does not contain a ",
- "column named 'haz'. Make sure the name is exactly that (",
- "case sensitive).")
- }
-
- if (haz.name %in% names(lex)) {
- stop("Lexis data set already contains a column named 'haz', which is a ",
- "reserved name for the population hazard variable to be merged. ",
- "Please rename/delete 'haz' from/in your Lexis data first.")
- }
-
- if (!is.data.frame(ph)) {
- stop("Data set of expected/population hazards must be a data.frame.")
- }
-
- bn <- setdiff(names(ph), haz.name)
-
- if (length(bn) == 0L) {
- stop("No variables in expected/population hazards data set to use in merge ",
- "with Lexis data. Ensure that the pop. haz. data set containts some ",
- "variables to merge by (e.g. sex, calendar year, and age group)")
- }
- if (!all(bn %in% names(lex))) {
- badbn <- paste0("'", setdiff(bn, names(lex)), "'", collapse = ", ")
- stop("Lexis data set did not have following variable(s) that were in ",
- "the expected/population hazards data set: ", badbn,". ",
- "Ensure you have supplied the right data and that the names of the ",
- "intended variables match.")
- }
-
- mergeVars <- setdiff(names(ph), haz.name)
- dup <- any(duplicated(as.data.table(ph), by = mergeVars))
- if (dup) {
- stop("Supplied data set of population/expected hzards has duplicated rows ",
- "by the variables ", paste0("'",mergeVars, "'", collapse = ", "),
- " which prevents correct usage of the data set. Please ensure no rows",
- " area duplicated in the data set before proceeding. Tip: use e.g. ",
- "duplicated(PH, by = c('V1', 'V2')) to check for duplicatedness in ",
- "your data set (here named PH) by the variables V1 and V2."
- )
- }
-
- invisible()
-}
-
-
-
-
-
-intelliCrop <- function(
- x,
- breaks = list(fot = 0:5),
- allScales = NULL,
- cropStatuses = FALSE,
- tol = .Machine$double.eps^0.5
-) {
-
- ## appease R CMD CHECK
- lex.dur <- lex.Xst <- lex.Cst <- NULL
-
- checkBreaksList(x = x, breaks = breaks)
- breaks[unlist(lapply(breaks, length)) == 0L] <- NULL
- if (!is.data.table(x)) stop("x needs to be a data.table")
-
- cropScales <- names(breaks)
-
- all_names_present(x, c("lex.dur", allScales))
-
- if (cropStatuses) {
- origEnd <- x$lex.dur + x[[allScales[1L]]]
- }
-
-
- deltas <- mapply(function(b, y) pmax(min(b), y) - y, SIMPLIFY = FALSE,
- b = breaks, y = mget_cols(cropScales, x))
- ## below: baseline (zero value without assigning zero of bad class)
- deltas <- c(deltas, list(x[[cropScales[1]]][1L] - x[[cropScales[1]]][1L]))
- deltas <- do.call(pmax, deltas)
-
- set(x, j = allScales, value = mget_cols(allScales, x) + deltas)
- set(x, j = "lex.dur", value = x[["lex.dur"]] - deltas)
-
- durs <- mapply(function(b, y) max(b) - y, SIMPLIFY = FALSE,
- b = breaks, y = mget_cols(cropScales, x))
- durs$lex.dur <- x$lex.dur
- durs <- do.call(pmin, durs)
- ## now have max durs by row, i.e. up to roof of breaks at most,
- ## or to ((original lex.dur) - (deltas)) if that is smaller.
- ## (being cropped or exiting before roof of breaks)
-
- set(x, j = "lex.dur", value = durs)
-
- if (cropStatuses) {
- harmonizeStatuses(x, C = "lex.Cst", X = "lex.Xst")
- wh_was_cropped <- which(x[["lex.dur"]] + x[[allScales[1L]]] + tol < origEnd)
- set(x, i = wh_was_cropped, j = "lex.Xst",
- value = x[["lex.Cst"]][wh_was_cropped])
- }
-
- invisible(x)
-}
-
-
-
-
-
-harmonizeStatuses <- function(x, C = "lex.Cst", X = "lex.Xst") {
-
- clC <- class(x[[C]])
- clX <- class(x[[X]])
- tyC <- typeof(x[[C]])
- tyX <- typeof(x[[X]])
- cl <- c(clC, clX)
-
- if (tyC != tyX && clC != clX) {
- if (is.numeric(x[[C]]) && is.numeric(x[[X]])) {
- harmonizeNumeric(x = x, v1="lex.Cst", v2="lex.Xst")
-
- } else if (is.factor(x[[C]]) || is.factor(x[[X]])) {
- if (!is.factor(x[[C]])) set(x, j = C, value = as.factor(x[[C]]))
- if (!is.factor(x[[X]])) set(x, j = X, value = as.factor(x[[X]]))
-
- }
- }
-
- if (any(cl == "factor")) {
- harmonizeFactors(x = x, v1="lex.Cst", v2="lex.Xst")
- }
-
-}
-
-harmonizeNumericTimeScales <- function(x, times = NULL) {
- ## INTENTION: given a Lexis data set with some time scales, ensure
- ## that the classes of the time scales comply to the lowest denominator,
- ## e.g. "double" and "integer" -> both "double"
-
- if (is.null(times)) {
- times <- c(attr(x, "time.scales"), "lex.dur")
- }
-
- msg <- paste0("Expected working data to have time scales %%VARS%%, but it ",
- "didn't. This is an internal error: If you see this, complain ",
- "to the package maintainer.")
- all_names_present(x, times, msg = msg)
- xt <- lapply(times, function(ch) x[[ch]])
- names(xt) <- times
-
- harmoClasses <- c("numeric", "integer", "difftime")
- cl <- lapply(xt, class)
- wh <- unlist(lapply(cl, function(ch) {
- any(ch %in% harmoClasses)
- }))
- ha <- times[wh]
- hacl <- unique(unlist(cl[wh]))
-
- if (length(ha) > 1L) {
- ## more than one class present and need to use common lowest denom
- newMode <- as.double
-
- if (all(ha %in% c("integer", "difftime"))) {
- ## all numeric times are integers or difftimes
- newMode <- as.integer
- }
- for (var in ha) {
- ## modify in place
- set(x, j = var, value = newMode(x[[var]]))
- }
-
-
- }
- invisible(NULL)
-}
-
-
-
-
-
-harmonizeNumeric <- function(x, v1="lex.Cst", v2="lex.Xst") {
- ## assumes v1, v2 are numeric variable names in x
-
- if (!is.numeric(x[[v1]]) || !is.numeric(x[[v2]])) {
- print(class(x[[v1]]))
- print(class(x[[v2]]))
- stop("v1 and/or v2 is/are not of class numeric")
- }
-
- if (!is.integer(x[[v1]])) set(x, j = v1, value = try2int(x[[v1]]))
- if (!is.integer(x[[v2]])) set(x, j = v2, value = try2int(x[[v2]]))
-
- if (typeof(x[[v1]]) != typeof(x[[v2]])) {
-
- if (is.double(x[[v1]])) set(x, j = v1, value = as.double(x[[v1]]))
- if (is.double(x[[v2]])) set(x, j = v2, value = as.double(x[[v2]]))
-
- }
-
-}
-
-
-
-
-
-harmonizeFactors <- function(x, v1="lex.Cst", v2="lex.Xst") {
- ## assumes v1, v2 are factor names in x
-
- if (!is.factor(x[[v1]]) || !is.factor(x[[v2]])) {
- stop("v1 and/or v2 is/are not of class factor")
- }
-
- glab1 <- union(levels(x[[v1]]), levels(x[[v2]]))
- glab2 <- union(levels(x[[v2]]), levels(x[[v1]]))
-
-
-
- setattr(x[[v1]], "levels", glab1)
- setattr(x[[v2]], "levels", glab2)
-
-}
-
-
-
-
-
-intelliDrop <- function(x, breaks = list(fot = 0:5), dropNegDur = TRUE, check = FALSE, tol = .Machine$double.eps^0.5, subset = NULL) {
-
- if (!is.data.table(x)) {
- stop("x needs to be a data.table; if you see this message, complain ",
- "to the package maintainer")
- }
- checkBreaksList(x = x, breaks = breaks)
- breaks[unlist(lapply(breaks, length)) < 2] <- NULL
- timeScales <- names(breaks)
-
- if (check) {
- checkLexisData(x)
- }
-
- ra <- lapply(breaks, range)
- ra <- lapply(ra, diff)
- ts <- names(sort(unlist(ra))) ## shortest first
- mi <- lapply(breaks, min)
- ma <- lapply(breaks, max)
-
- substi <- substitute(subset)
- subset <- evalLogicalSubset(x, substiset = substi)
-
- if (dropNegDur) subset[subset] <- subset[subset] & x$lex.dur[subset] > 0L
-
- ## figure out latest exit and first entry; don't need to test for dropping
- ## if e.g. all left follow-up before the max in breaks
- max_end <- lapply(ts, function(ch) min(x[[ch]] + x$lex.dur))
- min_start <- lapply(ts, function(ch) max(x[[ch]]))
- names(max_end) <- names(min_start) <- ts
-
- for (k in ts) {
- mik <- mi[[k]]
- mak <- ma[[k]]
-
- if (max_end[[k]] < mak + tol) {
- tmpSD <- x[subset, .SD, .SDcols = c(k, "lex.dur")]
- tmpSD <- setDT(lapply(tmpSD, as.numeric))
- subset[subset] <- rowSums(tmpSD) <= mak + tol
- }
- if (min_start[[k]] + tol > mik) {
- subset[subset] <- x[subset,][[k]] > mik - tol
- }
-
- if (all(!subset)) {
- stop("Dropped all remaining rows from data when subsetting by the ",
- "Lexis time scale '", k, "'. Range of values in data: ",
- paste0(round(range(x[[k]]),4), collapse = "-"), ". Min/Max breaks ",
- "(used to subset data): ", mik, "/", mak, ".")
- }
-
- }
-
-
- x[subset, ]
-}
-
-
-matchBreakTypes <- function(lex, breaks, timeScale, modify.lex = FALSE) {
- if (is.character(breaks)) {
- breaks <- as.IDate(breaks)
- }
- clb <- class(breaks)
- clb <- clb[length(clb)]
- cts <- class(lex[[timeScale]])
- cts <- cts[length(cts)]
-
- if (clb != cts) {
- if (is.Date(breaks) && !is.Date(lex[[timeScale]])) {
- breaks <- try2int(as.double(breaks))
- } else if (is.integer(breaks) && is.double(lex[[timeScale]])) {
- breaks <- as.double(breaks)
- } else if (is.double(breaks) && is.integer(lex[[timeScale]])) {
- breaks <- try2int(breaks)
- }
-
- }
-
- if (modify.lex && clb != cts) {
- if (!is.Date(breaks) && is.Date(lex[[timeScale]])) {
-
- if (clb == "double") {
- set(lex, j = timeScale, value = as.double(lex[[timeScale]]))
- } else {
- set(lex, j = timeScale, value = as.integer(lex[[timeScale]]))
- }
-
- } else if (is.double(breaks) && is.integer(lex[[timeScale]])) {
- set(lex, j = timeScale, value = as.double(lex[[timeScale]]))
- }
-
- }
- breaks
-}
-
-protectFromDrop <- function(breaks, lower = FALSE) {
- old_breaks <- copy(breaks)
- if (length(breaks) == 0L) {
- stop("Length of breaks to 'protect' from dropping is zero.")
- }
- if (is.Date(breaks)) {
- breaks <- c(breaks, max(breaks) + 1e4L)
- if (lower) breaks <- c(min(breaks) - 1e4L, breaks)
-
- } else if (is.integer(breaks)) {
- breaks <- c(breaks, 1e6L)
- if (lower) breaks <- c(-1e6L, breaks)
-
- } else if (is.double(breaks)) {
- breaks <- c(breaks, Inf)
- if (lower) breaks <- c(-Inf, breaks)
-
- } else {
- stop("breaks were not Date, integer or double")
- }
- setattr(breaks, "unprotected", old_breaks)
- breaks
-}
-
-unprotectFromDrop <- function(breaks) {
- up <- attr(breaks, "unprotected")
- if (is.null(up) || length(up) == 0L) {
- stop("Could not 'unprotect' breaks from dropping as the required ",
- "attribute was not found. If you see this it is most likely ",
- "an internal error and you should complain to the pkg maintainer.")
- }
- up
-}
-
-
-
-
-setLexisDT <- function(data, entry, exit, entry.status, exit.status, id = NULL, select = NULL) {
-
- ## appease R CMD CHECK
- lex.Cst <- lex.Xst <- NULL
-
- if (!is.data.table(data)) stop("not a data.table")
- if (inherits(data, "Lexis")) stop("already a Lexis object")
-
- if (!is.null(select) && !is.character(select)) stop("select was not a character vector of names")
-
- entry <- substitute(entry)
- exit <- substitute(exit)
- entry <- eval(entry, envir = data, enclos = parent.frame())
- exit <- eval(exit, envir = data, enclos = parent.frame())
- enNames <- names(entry)
- exNames <- names(exit)
-
- timeScales <- union(enNames, exNames)
- if (any(timeScales %in% names(data))) stop("at least one named time scales already present in data; original names mandatory")
- enNeeded <- setdiff(timeScales, enNames)
- enPresent <- setdiff(timeScales, enNeeded)
- durVar <- intersect(enNames, exNames)
- if (length(durVar) > 1) stop("you have more than 1 time scales in both entry and exit; only one mandatory")
-
- enVars <- paste0(enNames, "_en")
- exVars <- paste0(exNames, "_ex")
- setattr(entry, "names", enVars)
- setattr(exit, "names", exVars)
-
- l <- as.data.table(c(entry, exit))
- rm(entry, exit)
-
- ## duration
- exV <- paste0(durVar, "_ex")
- enV <- paste0(durVar, "_en")
- set(l, j = "lex.dur", value = l[[exV]] - l[[enV]])
- rm(exV, enV)
-
- ## time scale starting points
- if (length(enNeeded) > 0) {
- for (ts in enNeeded) {
- exV <- paste0(ts, "_ex")
- set(l, j = ts, value = l[[exV]] - l$lex.dur)
- }
- }
- setnames(l, paste0(enPresent, "_en"), enPresent)
-
- # no longer need time scale end points
- for (k in exVars) {
- set(l, j = k, value = NULL)
- }
-
- ## status definition
- data[, lex.Cst := entry.status]
- data[, lex.Xst := exit.status]
-
- harmonizeStatuses(data, C = "lex.Cst", X = "lex.Xst")
-
- ## all time scales etc. into data
- data[, names(l) := l]
-
-
- id <- substitute(id)
- id <- eval(id, envir = data, enclos = parent.frame())
- if (!is.null(id)) set(data, j = "lex.id", value = id)
- rm(id)
-
- if (!is.null(select)) {
-
- delVars <- setdiff(names(data), c(names(l), select))
- if (length(delVars) > 0) {
- l[, (delVars) := NULL]
- }
- }
-
- rm(l)
- lexVars <- c("lex.id", timeScales, "lex.dur", "lex.Cst", "lex.Xst")
- setcolorder(data, c(lexVars, setdiff(names(data), lexVars)))
-
- setattr(data, "time.scales", timeScales)
- setattr(data, "time.since", rep("", times = length(timeScales)))
- setattr(data, "class", c("Lexis", "data.table", "data.frame"))
-
-
-}
-
-checkLexisData <- function(lex, check.breaks = FALSE) {
- ## INTENTION: checks Lexis attributes
- ## OUTPUT: nothing
-
- if (missing(lex)) {
- stop("Data object not supplied")
- }
- if (!inherits(lex, "Lexis")) {
- stop("Data not a Lexis object; it has class(es) ", deparse(class(lex)))
- }
- if (!is.data.frame(lex)) {
- stop("Data is not a data.frame / data.table; it has class(es) ",
- deparse(class(lex)))
- }
- if (nrow(lex) == 0) {
- stop("Data has zero rows")
- }
- allScales <- attr(lex, "time.scales")
- if (length(allScales) == 0) {
- stop("no time scales appear to be defined; is data a Lexis object?")
- }
-
- badScales <- setdiff(allScales, names(lex))
- if (length(badScales) > 0) {
- badScales <- paste0("'", badScales, "'", collapse = ", ")
- stop("Following time scales found in data's attributes but not present ",
- "in data: ", badScales)
- }
-
- lexVars <- c("lex.dur", "lex.id", "lex.Cst", "lex.Xst")
- blv <- setdiff(lexVars, names(lex))
- if (length(blv) > 0) {
- blv <- paste0("'", blv, "'", collapse = ", ")
- stop("Following Lexis variables not found in data: ", blv)
- }
-
- if (check.breaks) {
- BL <- attr(lex, "breaks")
- if (is.null(BL)) stop("No breaks list in data attributes")
- checkBreaksList(lex, breaks = BL)
- }
-
- invisible()
-}
-
-
-splitMultiPreCheck <- function(data = NULL, breaks = NULL, ...) {
-
- ## INTENTION: checks for discrepancies between data and breaks, etc.
- ## OUTPUT: cleaned-up list of breaks
- checkLexisData(data)
- allScales <- attr(data, "time.scales")
-
- if (!is.null(breaks) && !is.list(breaks)) {
- stop("breaks must be a list; see examples in ?splitMulti")
- }
- if (is.null(breaks)) {
- breaks <- list(...)
- breaks <- breaks[intersect(names(breaks), allScales)]
- }
-
- if (length(breaks) == 0) stop("no breaks defined!")
-
- splitScales <- names(breaks)
- ## NULL breaks imply not used
- for (k in splitScales) {
- if (length(breaks[[k]]) == 0) {
- breaks[k] <- NULL
- }
- }
-
- checkBreaksList(x = data, breaks = breaks)
-
- splitScales <- names(breaks)
-
- if (!all(splitScales %in% allScales)) {
- stop("breaks must be a list with at least one named vector corresponding to used time scales \n
- e.g. breaks = list(fot = 0:5)")
- }
-
- if (!all(splitScales %in% names(data))) {
- stop("At least one vector name in breaks list is not a variable name in the data")
- }
- breaks
-}
-
-forceLexisDT <- function(x, breaks = NULL, allScales = NULL, key = TRUE) {
- setattr(x, "class", c("Lexis", "data.table", "data.frame"))
- setattr(x, "breaks", breaks)
- setattr(x, "time.scales", allScales)
- # alloc.col(x)
- if (key) setkeyv(x, c("lex.id", names(breaks)[1L]))
- invisible(x)
-}
-
-
-doCutLexisDT <- function(lex, cut = dg_date, timeScale = "per", by = "lex.id", n = 1L) {
-
- checkLexisData(lex, check.breaks = FALSE)
-
- x <- unique(lex, by = by)
- cut <- evalq(cut, envir = lex, enclos = parent.frame(n = n + 1L))
- delta <- cut - x[[timeScale]]
-
- allScales <- attr(lex, "time.scales")
-
- setDT(x)
- for (v in allScales) {
- set(x, j = v, value = x[[v]] + delta)
- }
-
- set(x, j = "lex.dur", value = 0)
-
- tmp <- list()
- tmp$isCut <- makeTempVarName(lex, pre = "isCut_")
-
- set(x, j = tmp$isCut, value = 1L)
- on.exit(setcolsnull(x, unlist(tmp)))
-
- x <- rbindlist(list(lex, x), use.names = TRUE, fill = TRUE)
- x[1:nrow(lex), (tmp$isCut) := 0L]
-
- ## NOTE: new cut row being the first or last row
- ## implies it resides outside old observations
- ## OR it is equal to lowest/highest value
- setkeyv(x, c(by, allScales))
- setkeyv(x, by)
- x <- x[!((duplicated(x, by = key(x)) | duplicated(x, by = key(x), fromLast = TRUE)) & x[[tmp$isCut]] == 0L)]
- stop("not ready")
-}
-
-# data <- data.table(birth = 2000:2000, entry=2002:2003,
-# exit=2011:2012, event=c(2010,2011),
-# status=1:0)
-#
-# lex <- lexpand(data = data, birth = birth, entry = entry,
-# exit = exit, event = event,
-# id = 1L, entry.status = 99L,
-# status = status, overlapping = TRUE)
-
-lexpile <- function(lex, by = "lex.id", subset = NULL) {
- ## PURPOSE: given several rows per id in a Lexis object,
- ## collate data into form where
- ## - no subject has any overlapping time lines
- ## - lex.Cst and lex.Xst are logical, i.e. 0 -> 1, 1 -> 1, 1 -> 2
- ## this should be made to work with both split and unsplit Lexis data.
-
- data <- NULL # R CMD CHECK appeasement
-
- checkLexisData(lex, check.breaks = FALSE)
-
- allScales <- attr(lex, "time.scales")
- sc <- allScales[1L]
-
- all_names_present(lex, by)
-
- if (is.character(lex$lex.Cst) || is.character(lex$lex.Xst)) {
- stop("This function requires lex.Cst and lex.Xst to be integer, double (i.e. numeric) or factor variables to determine the order of possible statuses!")
- }
-
- ## need to take copy eventually ----------------------------------------------
- attrs <- attributes(lex)
- subset <- evalLogicalSubset(data, substitute(subset))
- x <- lex[subset,]
- forceLexisDT(x, breaks = attrs$breaks, allScales = attrs$time.scales)
- alloc.col(x)
-
-
- ## ensure status harmony -----------------------------------------------------
- harmonizeStatuses(x = x, X = "lex.Xst", C = "lex.Cst")
- exStat <- if (is.factor(x$lex.Xst)) levels(x$lex.Xst) else sort(unique(x$lex.Xst))
- enStat <- if (is.factor(x$lex.Cst)) levels(x$lex.Cst) else sort(unique(x$lex.Cst))
- allStat <- c(setdiff(enStat, exStat), exStat) ## enStat & exStat equal if factors used
-
- ## avoiding side effects -----------------------------------------------------
- oldKey <- key(lex)
- tmp <- list()
- tmp$order<- makeTempVarName(x, pre = "order_")
-
- on.exit({
- if (length(oldKey) > 0) setkeyv(x, oldKey) else
- setorderv(x, tmp$order)
- }, add = TRUE)
-
- on.exit({
- setcolsnull(x, unlist(tmp$order), soft = TRUE)
- }, add = TRUE)
-
- x[, c(tmp$order) := 1:.N]
-
- ## check for need for lexpiling ----------------------------------------------
- setkeyv(x, by)
- if (sum(duplicated(x, by = key(x))) == 0L) return(lex)
-
-
- ## figure out what statuses are used -----------------------------------------
-
- tmp$ev <- makeTempVarName(x, pre = "event_")
- x[, c(tmp$ev) := detectEvents(x, breaks = attrs$breaks, by = by)]
-
- tmp$scEnds <- paste0(allScales, "_end")
- tmp$scEnds <- makeTempVarName(lex, pre = tmp$scEnds)
- x[, c(tmp$scEnds) := lapply(.SD, function(x) x + lex$lex.dur), .SDcols = allScales]
-
- ## NOTE: rows for a given subject ending in simultaneously with at least
- ## one being a transition will not be allowed.
- setkeyv(x, c(by, tmp$scEnds[1L]))
-
- whDup <- duplicated(x, fromLast = FALSE, by = key(x)) | duplicated(x, fromLast = TRUE, by = key(x))
- dupTest <- x[whDup, 1L %in% unique(.SD), .SDcols = tmp$ev]
- rm(whDup)
-
- if (dupTest) stop("At least one subject had at least two simultaneous events.")
- ## NOTE: if interval ends AND status are the very same for M rows,
- ## then the M rows are necessarily nested with one or more covering
- ## the whole time line. Only need to keep the one.
- setkeyv(x, c(tmp$scEnds, "lex.Cst", "lex.Xst"))
- setorderv(x, c(allScales,tmp$scEnds, "lex.Cst", "lex.Xst"))
-
- x <- unique(x, by = key(x))
- stop("unfinished")
-
-}
-
-contractLexis <- function(x, breaks, drop = TRUE) {
- stop("This doesnt do anything yet")
- ## INTENTION: given a Lexis object and breaks,
- ## ensures data is split by the breaks and contracts the split rows
- ## so that the data is split at the level of the supplied breaks.
- ## e.g. with x split by fot = seq(0, 5, 1/12) and with supplying
- ## breaks = list(fot = 0:5), rows within 0-1 are collated into one row etc.
-
- ## PROBLEM: a subject may have e.g. rows spaning 0.5 - 1 which are requested
- ## to be contracted to one row spanning 0-1.
-
-
-}
-
-
-
-
-#' @title Prepare Exposure Data for Aggregation
-#' @description \code{prepExpo} uses a \code{Lexis} object of periods of exposure
-#' to fill gaps between the periods and overall entry and exit times without
-#' accumulating exposure time in periods of no exposure, and splits the
-#' result if requested.
-#' @param lex a \code{\link[Epi]{Lexis}} object with ONLY periods of exposure
-#' as rows; one or multiple rows per subject allowed
-#' @param freezeScales a character vector naming \code{Lexis} time scales of exposure
-#' which should be frozen in periods where no exposure occurs (in the gap
-#' time periods)
-#' @param cutScale the \code{Lexis} time scale along which the subject-specific
-#' ultimate entry and exit times are specified
-#' @param entry an expression; the time of entry to follow-up which may be earlier, at, or after
-#' the first time of exposure in \code{freezeScales}; evaluated separately
-#' for each unique combination of \code{by}, so e.g. with
-#' \code{entry = min(Var1)} and \code{by = "lex.id"} it
-#' sets the \code{lex.id}-specific minima of \code{Var1} to be the original times
-#' of entry for each \code{lex.id}
-#' @param exit the same as \code{entry} but for the ultimate exit time per unique
-#' combination of \code{by}
-#' @param by a character vector indicating variable names in \code{lex},
-#' the unique combinations of which identify separate subjects for which
-#' to fill gaps in the records from \code{entry} to \code{exit};
-#' for novices of \code{{\link{data.table}}}, this is passed to a
-#' \code{data.table}'s \code{by} argument.
-#' @param breaks a named list of breaks;
-#' e.g. \code{list(work = 0:20,per = 1995:2015)}; passed on to
-#' \code{\link{splitMulti}} so see that function's help for more details
-#' @param freezeDummy a character string; specifies the name for a dummy variable
-#' that this function will create and add to output which
-#' identifies rows where the \code{freezeScales} are frozen and where not
-#' (\code{0} implies not frozen, \code{1} implies frozen);
-#' if \code{NULL}, no dummy is created
-#' @param subset a logical condition to subset data by before computations;
-#' e.g. \code{subset = sex == "male"}
-#' @param verbose logical; if \code{TRUE}, the function is chatty and returns
-#' some messages and timings during its run.
-#' @param ... additional arguments passed on to \code{\link{splitMulti}}
-#' @details
-#'
-#' \code{prepExpo} is a convenience function for the purpose of eventually aggregating
-#' person-time and events in categories of not only normally progressing
-#' \code{Lexis} time scales but also some time scales which should not
-#' progress sometimes. For example a person may work at a production facility
-#' only intermittently, meaning exposure time (to work-related substances
-#' for example) should not progress outside of periods of work. This allows for
-#' e.g. a correct aggregation of person-time and events by categories of cumulative
-#' time of exposure.
-#'
-#' Given a \code{Lexis} object containing rows (time lines)
-#' where a subject is exposed to something (and NO periods without exposure),
-#' fills any gaps between exposure periods for each unique combination of \code{by}
-#' and the subject-specific "ultimate" \code{entry} and \code{exit} times,
-#' "freezes" the cumulative exposure times in periods of no exposure,
-#' and splits data using \code{breaks} passed to \code{\link{splitMulti}}
-#' if requested. Results in a (split) \code{Lexis} object where \code{freezeScales}
-#' do not progress in time periods where no exposure was recorded in \code{lex}.
-#'
-#' This function assumes that \code{entry} and \code{exit} arguments are the
-#' same for each row within a unique combination of variables named in \code{by}.
-#' E.g. with \code{by = "lex.id"} only each \code{lex.id} has a unique value
-#' for \code{entry} and \code{exit} at most.
-#'
-#' The supplied \code{breaks} split the data using \code{splitMulti}, with
-#' the exception that breaks supplied concerning any frozen time scales
-#' ONLY split the rows where the time scales are not frozen. E.g.
-#' with \code{freezeScales = "work"},
-#' \code{breaks = list(work = 0:10, cal = 1995:2010)} splits all rows over
-#' \code{"cal"} but only non-frozen rows over \code{"work"}.
-#'
-#' Only supports frozen time scales that advance and freeze contemporaneously:
-#' e.g. it would not currently be possible to take into account the cumulative
-#' time working at a facility and the cumulative time doing a single task
-#' at the facility, if the two are not exactly the same. On the other hand
-#' one might use the same time scale for different exposure types, supply them
-#' as separate rows, and identify the different exposures using a dummy variable.
-#' @return
-#'
-#' Returns a \code{Lexis} object that has been split if \code{breaks} is specified.
-#' The resulting time is also a \code{data.table} if
-#' \code{options("popEpi.datatable") == TRUE} (see: \code{?popEpi})
-#'
-#' @import data.table
-#' @export
-prepExpo <- function(lex, freezeScales = "work", cutScale = "per", entry = min(get(cutScale)),
- exit = max(get(cutScale)), by = "lex.id", breaks = NULL, freezeDummy = NULL, subset = NULL,
- verbose = FALSE, ...) {
- ## R CMD CHECK appeasement
- lex.dur <- NULL
-
- if (verbose) allTime <- proc.time()
-
- ## check breaks & data -------------------------------------------------------
- breaks <- evalq(breaks)
- dumBreaks <- structure(list(c(-Inf, Inf)), names = cutScale, internal_prepExpo_dummy = TRUE)
- if (is.null(breaks)) breaks <- dumBreaks
- breaks <- splitMultiPreCheck(data = lex, breaks = breaks)
- if (!is.null(attr(breaks, "internal_prepExpo_dummy"))) breaks <- NULL
- checkLexisData(lex)
- oldBreaks <- attr(lex, "breaks")
- if (!is.null(breaks)) checkBreaksList(lex, breaks)
- checkBreaksList(lex, oldBreaks)
-
-
- ## data ----------------------------------------------------------------------
-
- subset <- evalLogicalSubset(data = lex, substitute(subset))
- x <- if (!all(subset)) evalq(lex)[subset, ] else copy(evalq(lex))
-
- setDT(x)
-
- allScales <- attr(lex, "time.scales")
- linkScales <- setdiff(allScales, freezeScales)
- othScales <- setdiff(linkScales, cutScale)
-
- setkeyv(x, c(by, cutScale))
-
- l <- list() ## will hold temp var names; this avoids collisions with names of vars in x
- l$cutScale <- cutScale
- l$freezeScales <- freezeScales
- l$liquidScales <- setdiff(allScales, freezeScales)
- l$by <- by
- rm(cutScale, freezeScales, by)
-
- ## args ----------------------------------------------------------------------
- if (verbose) argTime <- proc.time()
- tol <- .Machine$double.eps^0.75
-
- if (is.character(freezeDummy) && freezeDummy %in% names(lex)) stop("Variable named in freezeDummy already exists in data; freezeDummy is inteded for creating a new dummy for identifying the rows where freezeScales are frozen. Please supply an original variable name to freezeDummy")
-
- if (!is.character(l$by)) stop("by must be given as a vector of character strings naming columns in lex")
- all_names_present(lex, l$by)
-
- enSub <- substitute(entry)
- exSub <- substitute(exit)
-
- PF <- parent.frame(1L)
- l$en <- makeTempVarName(x, pre = "entry_")
- l$ex <- makeTempVarName(x, pre = "exit_")
- x[, c(l$ex, l$en) := list(eval(exSub, envir = .SD, enclos = PF),
- eval(enSub, envir = .SD, enclos = PF)), by = c(l$by)]
-
- ## tests disabled for now...
- # testTime <- proc.time()
- #
- # test <- x[, .N, by = list(r = get(l$cutScale) + lex.dur > get(l$ex) - tol)]
- # if(test[r == TRUE, .N] > 0) stop("exit must currently be higher than or equal to the maximum of cutScale (on subject basis defined using by); you may use breaks instead to limit the data")
- #
- # test <- x[, .N, by = list(r = get(l$cutScale) + tol < get(l$en))]
- # if(test[r == TRUE, .N] > 0) stop("entry must currently be lower than or equal to the minimum of cutScale (on subject basis defined using by); you may use breaks instead to limit the data")
- # if (verbose) cat("Finished checking entry and exit. Time taken: ", timetaken(argTime), "\n")
- if (verbose) cat("Finished evaluating entry and exit and checking args. Time taken: ", timetaken(argTime), "\n")
-
- ## create rows to fill gaps --------------------------------------------------
- if (verbose) fillTime <- proc.time()
- x2 <- copy(x)
- x2[, (l$freezeScales) := NA]
- x2 <- rbind(x2, unique(x2, by = c(l$by), fromLast = TRUE))
-
- l$delta <- makeTempVarName(x2, pre = "delta_")
- x2[, (l$delta) := c(get(l$en)[1], get(l$cutScale)[-c(1,.N)], max(get(l$cutScale)+lex.dur)) - get(l$cutScale), by = c(l$by)]
- x2[, c(linkScales) := lapply(mget(linkScales), function(x) x + get(l$delta)), by = c(l$by)]
-
- setcolsnull(x2, l$delta)
-
- l$order <- makeTempVarName(x, pre = "order_")
- x[, (l$order) := (1:.N)*2, by = c(l$by)]
- x2[, (l$order) := (1:.N)*2-1, by = c(l$by)]
-
- x <- rbindlist(list(x, x2))
- rm(x2)
- setkeyv(x, c(l$by, l$cutScale, l$order))
- setkeyv(x, c(l$by))
- set(x, j = l$order, value = as.integer(x[[l$order]]))
- x[, (l$order) := 1:.N, by = c(l$by)]
-
- if (verbose) cat("Finished expanding data to accommodate filling gaps. Time taken: ", timetaken(fillTime), "\n")
- ## handle time scale values --------------------------------------------------
- if (verbose) valueTime <- proc.time()
-
- l$CSE <- makeTempVarName(x, pre = paste0(l$cutScale, "_end_"))
- l$LCS <- makeTempVarName(x, pre = paste0("lead1_",l$cutScale, "_"))
- x[, (l$CSE) := lex.dur + get(l$cutScale)]
- x[, (l$LCS) := shift(get(l$cutScale), n = 1L, type = c("lead"), fill = NA), by = c(l$by)]
-
-
- x[!duplicated(x, fromLast = TRUE, by = key(x)), c(l$LCS, l$CSE) := get(l$ex)]
- x[, (l$CSE) := pmin(get(l$LCS), get(l$CSE))]
- x[, (l$cutScale) := sort(c(get(l$en)[1L],shift(get(l$CSE), n = 1L, type = "lag", fill = NA)[-1])), by = c(l$by)]
- x[, lex.dur := get(l$CSE) - get(l$cutScale)]
-
- ## bring up other than frozen and cut scales to bear -------------------------
- x[, (othScales) := lapply(mget(othScales), function(x) {min(x) + c(0, cumsum(lex.dur)[-.N])}), by = c(l$by)]
-
-
- ## frozen scales should make sense cumulatively ------------------------------
- ## indicates frozenness: 0 = not frozen, 1 = frozen
- l$frz <- makeTempVarName(x, pre = "frozen_")
- x[, (l$frz) := 0L]
- frozens <- x[,is.na(get(l$freezeScales[1]))]
- x[frozens, (l$frz) := 1L]
-
-
- ## alternate method: just use lex.durs and only cumulate in non-frozen rows
- x[, (l$freezeScales) := lapply(mget(l$freezeScales), function(x) {
- x <- max(0, min(x-lex.dur, na.rm=TRUE))
- x <- x + c(0, as.double(cumsum(as.integer(!get(l$frz))*lex.dur))[-.N])
- }), by = c(l$by)]
-
- x <- x[lex.dur > .Machine$double.eps^0.5, ]
-
- if (verbose) cat("Finished computing correct values for time scales. Time taken: ", timetaken(valueTime), "\n")
-
- ## splitting separately ------------------------------------------------------
- if (!is.null(breaks)) {
- if (verbose) splitTime <- proc.time()
- x_frozen <- x[get(l$frz) == 1L,]
- x <- x[get(l$frz) == 0L]
- forceLexisDT(x, allScales = allScales, breaks = oldBreaks)
-
- ## NOTE: since we only split by the frozen time scales by pretending
- ## they are NOT Lexis time scales (temporarily), and since one should
- ## pass the appropriate breaks info of pre-existing breaks to splitMulti,
- ## choose only breaks for non-frozen time scales to include in x_frozen's
- ## attributes here.
- ## (e.g. when work history is no longer accumulating)
- frzBreaks <- breaks[l$liquidScales]
- oldFrzBreaks <- oldBreaks[l$liquidScales]
- emptyFrzBreaks <- vector("list", length = length(l$liquidScales))
- names(emptyFrzBreaks) <- l$liquidScales
- if (length(oldFrzBreaks)) {
- emptyFrzBreaks[names(oldFrzBreaks)] <- oldFrzBreaks
- }
- forceLexisDT(x_frozen, allScales = l$liquidScales, breaks = emptyFrzBreaks)
-
- if (length(frzBreaks) > 0) {
- ## do (also) split for all time scales where also the frozen
- ## time scales are split. This is allowed for times where the
- ## frozen time scales have not been frozen
- ## (e.g. work history is accumulating)
- x_frozen <- splitMulti(x_frozen, breaks = frzBreaks, ...)
- }
-
- ## do (also) split where also split
- x <- splitMulti(x, breaks = breaks, ...)
- breaks <- attr(x, "breaks") ## new breaks appended by splitMulti
-
- setDT(x)
- setDT(x_frozen)
- x <- rbindlist(list(x, x_frozen), use.names = TRUE); rm(x_frozen)
- forceLexisDT(x, breaks = breaks, allScales = allScales)
- if (verbose) cat("Finished splitting data. Time taken: ", timetaken(splitTime), "\n")
- }
-
- ## final touch ---------------------------------------------------------------
-
- setDT(x)
- if (is.character(freezeDummy)) setnames(x, l$frz, freezeDummy)
- setkeyv(x, c(l$by, l$order))
- delCols <- setdiff(names(l), c("by", "cutScale", "freezeScales",
- "liquidScales",
- "linkScales", "allScales", "othScales"))
- delCols <- unlist(l[delCols])
- setcolsnull(x, keep = names(lex), colorder = TRUE)
-
- setattr(x, "time.scales", allScales)
- setattr(x, "breaks", breaks)
- setattr(x, "time.since", rep("", length(allScales)))
- setattr(x, "class", c("Lexis", "data.table", "data.frame"))
- if (!return_DT()) setDFpe(x)
-
- if (verbose) cat("Finished prepExpo run. Time taken: ", timetaken(allTime), "\n")
-
- x[]
-}
-
-
-
-doComparisonWithEpi <- function(lexDT, lexDTdrop, lexDF, breaks) {
- BL <- NULL
- if (!is.list(breaks)) stop("breaks needs to be a list")
- requireNamespace("Epi")
- requireNamespace("testthat")
-
- allScales <- attr(lexDF, "time.scales")
- sc1 <- allScales[1]
- setDT(lexDT)
- setDT(lexDTdrop)
- setDT(lexDF)
- setkeyv(lexDT, c("lex.id", sc1))
- setkeyv(lexDTdrop, c("lex.id", sc1))
- setkeyv(lexDF, c("lex.id", sc1))
-
- testthat::expect_equal(attr(lexDT, "time.scales"), attr(lexDF, "time.scales"))
- testthat::expect_equal(attr(lexDT, "time.since"), attr(lexDF, "time.since"))
-
- testthat::expect_equal(attr(lexDTdrop, "time.scales"), attr(lexDF, "time.scales"))
- testthat::expect_equal(attr(lexDTdrop, "time.since"), attr(lexDF, "time.since"))
-
- doTestBarrage(dt1 = lexDT, dt2 = lexDF, allScales = allScales)
- rm(lexDT)
-
- lexDF <- intelliDrop(x = lexDF, breaks = breaks)
-
- doTestBarrage(dt1 = lexDTdrop, dt2 = lexDF, allScales = allScales)
-
-}
-
-doTestBarrage <- function(dt1, dt2, allScales, testTimes = TRUE, testStatuses = TRUE) {
- requireNamespace("Epi")
- requireNamespace("testthat")
-
- lex.id <- lex.dur <- NULL ## APPEASE R CMD CHECK
-
- testthat::expect_equal(sum(dt1$lex.dur),
- sum(dt2$lex.dur),
- check.attributes = FALSE)
- testthat::expect_equal(dt1[, sum(lex.dur), keyby = lex.id]$V1,
- dt2[, sum(lex.dur), keyby = lex.id]$V1,
- check.attributes = FALSE)
-
- all_names_present(dt1, allScales)
- all_names_present(dt2, allScales)
-
- if (testTimes) {
- for (k in allScales) {
- testthat::expect_equal(dt1[[k]], dt2[[k]],
- check.attributes = TRUE)
- }
- }
-
- if (testStatuses) {
- testthat::expect_equal(dt1$lex.Cst, dt2$lex.Cst, check.attributes = FALSE)
- testthat::expect_equal(dt1$lex.Xst, dt2$lex.Xst, check.attributes = FALSE)
-
- testthat::expect_equal(levels(dt1$lex.Cst), levels(dt2$lex.Cst), check.attributes = FALSE)
- testthat::expect_equal(levels(dt1$lex.Xst), levels(dt2$lex.Xst), check.attributes = FALSE)
-
- testthat::expect_true(all(class(dt2$lex.Cst) %in% class(dt1$lex.Cst)))
- testthat::expect_true(all(class(dt2$lex.Xst) %in% class(dt1$lex.Xst)))
- }
-
- invisible(NULL)
-}
-
-compareSLDTWithEpi <- function(data, breaks, timeScale) {
- requireNamespace("Epi")
- requireNamespace("testthat")
-
- if (!inherits(data, "Lexis")) stop("data gotta be a Lexis object broseph")
-
- lexDT <- splitLexisDT(data, breaks = breaks, timeScale = timeScale, merge = TRUE, drop = FALSE)
- lexDTdrop <- splitLexisDT(data, breaks = breaks, timeScale = timeScale, merge = TRUE, drop = TRUE)
- lexDF <- splitLexis(data, breaks = breaks, time.scale = timeScale) ## without dropping
- ## this treatment done in splitLexisDT (difftime -> integer -> double)
- harmonizeNumericTimeScales(lexDF, times = c(Epi::timeScales(lexDF), "lex.dur"))
-
- BL <- list(breaks)
- setattr(BL, "names", timeScale)
-
- doComparisonWithEpi(lexDT = lexDT, lexDTdrop = lexDTdrop, lexDF = lexDF, breaks = BL)
-
- invisible(NULL)
-}
-
-
-
-
-
-splitMultiEpi <- function(data, breaks = list(fot = 0:5), drop) {
-
- for (k in names(breaks)) {
- data <- splitLexis(data, breaks = breaks[[k]], time.scale = k)
- }
-
- forceLexisDT(
- data, breaks = attr(data, "breaks"),
- allScales = attr(data, "time.scales"),
- key = FALSE
- )
- if (drop) data <- intelliDrop(data, breaks = breaks)
- data
-}
-
-
-
-
-
-compareSMWithEpi <- function(data, breaks = list(fot=0:5)) {
- requireNamespace("Epi")
- requireNamespace("testthat")
-
- lexDT <- splitMulti(data, breaks = breaks, merge = TRUE, drop = FALSE)
- lexDTdrop <- splitMulti(data, breaks = breaks, merge = TRUE, drop = TRUE)
- lexDF <- splitMultiEpi(data, breaks = breaks, drop = FALSE)
-
- doComparisonWithEpi(lexDT=lexDT, lexDTdrop = lexDTdrop, lexDF=lexDF, breaks = breaks)
-
- invisible(NULL)
-}
-
-
-
-
-
-summarize_Lexis <- function(x) {
-
- lex.Cst <- lex.Xst <- NULL ## appease R CMD CHECK
-
- dur <- sum(x$lex.dur)
- status_vars <- paste0("lex.", c("Cst", "Xst"))
- time_scales <- copy(attr(x, "time.scales"))
- dt <- copy(setDT(
- mget(c(status_vars, "lex.id", time_scales[1]), as.environment(x))
- ))
- setkeyv(dt, c("lex.id", time_scales[1]))
- dt <- unique(dt, by = c("lex.id"), fromLast = TRUE)
-
- n <- dt[, .N, keyby = status_vars]
- rm("dt")
- n[, "transition" := paste0(lex.Cst, "->", lex.Xst)]
- n <- cast_simple(data = n, columns = "transition", values = "N")
- return(cbind(lex.dur = dur, n))
-}
-
-
-
-
-
-roll_lexis_status_inplace <- function(unsplit.data, split.data, id.var) {
-
- ## R CMD CHECK appeasement
- lex.Cst <- lex.Xst <- NULL
-
- stopifnot(
- is.data.table(split.data),
- length(key(split.data)) > 1,
- key(split.data)[1] == id.var,
- key(split.data)[2] %in% attr(unsplit.data, "time.scales"),
- id.var %in% names(unsplit.data),
- id.var %in% names(split.data),
- uniqueN(unsplit.data[[id.var]]) == nrow(unsplit.data)
- )
-
- status_vars <- c("lex.Cst", "lex.Xst")
- status_ud <- mget_cols(c(id.var, status_vars), unsplit.data)
-
- join <- structure(list(split.data[[id.var]]), names = id.var)
- lex_cst <- status_ud[
- i = join,
- j = lex.Cst,
- on = id.var
- ]
- storage.mode(lex_cst) <- storage.mode(split.data[["lex.Cst"]])
- set(split.data, j = status_vars, value = list(lex_cst, lex_cst))
-
- wh_last_row <- which(!duplicated(split.data, by = id.var, fromLast = TRUE))
- join <- structure(list(split.data[[id.var]][wh_last_row]), names = id.var)
- last_lex_xst <- status_ud[
- i = join,
- j = lex.Xst,
- on = id.var
- ]
- storage.mode(last_lex_xst) <- storage.mode(split.data[["lex.Xst"]])
- set(split.data, i = wh_last_row, j = "lex.Xst", value = last_lex_xst)
-
-
- NULL
-}
-
-
-
-
-random_splitting_on <- function(
- lex,
- n.max.breaks = 20
-) {
- stopifnot(
- inherits(lex, "Lexis")
- )
-
- ts_nms <- attr(lex, "time.scales")
- brks <- attr(lex, "breaks")
- timesince <- attr(lex, "time.since")
- lex_vars <- c(paste0("lex.", c("id", "Cst", "Xst", "dur")), ts_nms)
- non_lex_vars <- setdiff(names(lex), lex_vars)
- lex <- mget_cols(lex_vars, lex)
- setattr(lex, "time.scales", ts_nms)
- setattr(lex, "breaks", brks)
- setattr(lex, "time.since", timesince)
- setattr(lex, "class", c("Lexis", "data.table", "data.frame"))
- checkLexisData(lex)
-
- n_split_ts <- sample(seq_along(ts_nms), 1)
- split_ts_nms <- sample(ts_nms, size = n_split_ts)
-
- do_drop <- sample(list(FALSE, TRUE), size = 1)[[1]]
-
- bl <- lapply(split_ts_nms, function(split_ts_nm) {
- r <- c(min(lex[[split_ts_nm]]), max(lex[[split_ts_nm]] + lex[["lex.dur"]]))
- d <- diff(r)
-
- br_r <- if (do_drop) 2:n.max.breaks else 1:n.max.breaks
- n_br <- sample(br_r, 1)
-
- ## allow breaks outside observed data, but at least one break must be
- ## not outside range of values in data
- extrema <- r + c(-1,1)*d*0.05
- l <- rep(extrema[1], n_br)
- u <- rep(extrema[2], n_br)
- u[1] <- l[1] <- mean(r)
- sort(unique(runif(min = l, max = u, n = n_br)))
- })
- names(bl) <- split_ts_nms
-
- es <- ps <- lex
- for (ts_nm in split_ts_nms) {
- es <- Epi::splitLexis(es, breaks = bl[[ts_nm]], time.scale = ts_nm)
- forceLexisDT(es, breaks = attr(es, "breaks"), allScales = ts_nms,
- key = FALSE)
- if (do_drop) {
- es <- intelliDrop(es, breaks = bl[ts_nm])
- }
- ps <- splitLexisDT(ps, breaks = bl[[ts_nm]], timeScale = ts_nm,
- drop = do_drop)
- }
-
- psm <- splitMulti(lex, breaks = bl, drop = do_drop)
-
- list(es = es, ps = ps, psm = psm)
-}
-
-
-
-
-
-random_Lexis <- function(
- n.rows = c(100, 1000, 2000),
- n.time.scales = 1:10,
- n.statuses = 2:10,
- n.other.vars = 1
-) {
-
- row_n <- sample(as.list(n.rows), 1)[[1]]
-
- ts_n <- sample(as.list(n.time.scales), 1)[[1]]
-
- st_n <- sample(as.list(n.statuses), 1)[[1]]
-
- dt <- setDT(lapply(1:ts_n, function(i) {
- runif(min = 0, max = 1000, n = row_n)
- }))
- ts_nms <- paste0("lex_ts_", formatC(seq_len(ncol(dt)), flag = "0", width = 3))
- setnames(dt, names(dt), ts_nms)
-
- dt[, "lex.Cst" := sample(1:st_n, size = .N, replace = TRUE)]
- dt[, "lex.Xst" := sample(1:st_n, size = .N, replace = TRUE)]
- dt[, "lex.id" := sample(1:.N, .N, replace = FALSE)]
- dt[, "lex.dur" := runif(n = .N, min = 0, max = 10)]
-
- oth_n <- sample(as.list(n.other.vars), 1)[[1]]
- lapply(seq_len(oth_n), function(i) {
- set(
- dt, j = makeTempVarName(names = names(dt), pre = "nonlexvar_"),
- value = sample(1:100, size = nrow(dt), replace = TRUE)
- )
- })
-
- brks <- lapply(ts_nms, function(nm) NULL)
- names(brks) <- ts_nms
-
- forceLexisDT(dt, breaks = brks, allScales = ts_nms, key = TRUE)
- checkLexisData(dt, check.breaks = TRUE)
- dt[]
-}
-
-
-
-
-
-random_splitting_on_random_data <- function(
- n.datasets = 100,
- n.rows = 1000,
- n.time.scales = 1:10,
- n.breaks = 10:100,
- n.statuses = 1:5,
- n.other.vars = 1
-) {
-
- neql <- vector("list", n.datasets)
-
- for (i in 1:n.datasets) {
-
-
- set.seed(get_random_seed())
-
- drop <- sample(list(TRUE, FALSE), 1)[[1]]
- drop <- FALSE
-
- dt <- random_Lexis(
- n.rows = n.rows,
- n.time.scales = n.time.scales,
- n.statuses = n.statuses,
- n.other.vars = n.other.vars
- )
-
- ts_names <- copy(attr(dt, "time.scales"))
- ts_n <- length(ts_names)
-
- dt_bl <- lapply(ts_names, function(x) NULL)
- names(dt_bl) <- ts_names
- forceLexisDT(dt, breaks = dt_bl, allScales = ts_names)
-
- br_n <- unlist(sample(as.list(n.breaks), ts_n))
- names(br_n) <- ts_names
- BL <- lapply(ts_names, function(ts_name) {
- runif(n = br_n[[ts_name]], min = -100, max = 100)
- })
- names(BL) <- ts_names
-
- BL <- BL[sample(ts_names, ts_n)]
-
- split_pop <- splitMulti(dt, breaks = BL, drop = drop)
- split_epi <- splitMultiEpi(dt, breaks = BL, drop = drop)
-
- setkeyv(split_epi, c("lex.id", ts_names[1]))
- setkeyv(split_pop, c("lex.id", ts_names[1]))
-
- summary_epi <- summarize_Lexis(split_epi)
- summary_pop <- summarize_Lexis(split_pop)
-
- eq <- all.equal(summary_pop, summary_epi, check.attributes = FALSE)
- if (!isTRUE(eq)) {
- message("split_epi, split_pop not equal in tick ", i, "")
- neql[[i]] <- mget(c(
- "drop", "row_n", "ts_n", "ts_names",
- "dt", "dt_bl", "br_n", "BL",
- "split_epi", "split_pop", "eq",
- "summary_epi", "summary_pop",
- "used_seed"
- ))
- }
- }
-
- neql[vapply(neql, is.null, logical(1))]
- neql
-}
-
-
-
-
-
-do_split <- function(x, ts, all.ts, breaks, drop = TRUE, merge = TRUE) {
-
- ## unfinished v2 splitlexisDT work horse
- stopifnot(
- is.integer(x[["lex.id"]])
- )
-
- id_dt <- data.table(
- "orig" = x[["lex.id"]],
- "temp" = 1:nrow(x)
- )
- set(x, j = "lex.id", value = id_dt[["temp"]])
-
- split <- mget_cols(c(ts, "lex.id", "lex.dur"), x)
-
- BL <- structure(list(breaks), names = ts)
- if (drop) {
- split <- intelliCrop(split, breaks = BL, allScales = all.ts,
- cropStatuses = TRUE)
- split <- intelliDrop(x = split, breaks = BL,
- check = FALSE, dropNegDur = TRUE)
- }
- n_subjects <- nrow(split)
- ts_values <- split[[ts]]
-
- split <- rbindlist(lapply(1:length(breaks), function(i) get("split")))
-
- tmp_ie_nm <- makeTempVarName(names = names(x), pre = "do_split_tmp_ie_")
-
- set(split, j = tmp_ie_nm, value = rep(breaks, each = n_subjects))
- set(split, j = tmp_ie_nm, value = {
- pmin(split[[tmp_ie_nm]], split[[ts]] + split[["lex.dur"]])
- })
- set(split, j = ts, value = c(
- ts_values,
- pmax(ts_values, rep(breaks[-length(breaks)], each = n_subjects))
- ))
-
-}
-
-
-
-
-
+all_breaks_in <- function(bl1, bl2, x = NULL) {
+ ## INTENTION: return TRUE/FALSE depending on whether bl1 is a subset of bl2;
+ ## this means that each element in bl1 exists in bl2, and that those elements
+ ## are each subsets of the corresponding elements in bl2.
+ ## this is handy to check whether the some Lexis data has already
+ ## been split using the breaks in bl1.
+ ## NOTE: use checkBreakList() on each list separately before this.
+
+ if (!is.list(bl1) || !is.list(bl2)) {
+ stop("Arguments bl1 and bl2 must be lists of breaks as supplied to e.g. ",
+ "splitMulti.")
+ }
+
+ if (inherits(x, "Lexis")) {
+ checkLexisData(x)
+ checkBreaksList(x, bl1)
+ checkBreaksList(x, bl2)
+ }
+
+ ce <- intersect(names(bl1), names(bl2))
+ if (length(ce) != length(bl1)) return(FALSE)
+
+ test <- mapply(function(l1, l2) {
+ all(l1 %in% l2)
+ }, l1 = bl1, l2 = bl2[ce], SIMPLIFY = FALSE)
+
+ all(unlist(test))
+}
+
+
+checkBreaksList <- function(x, breaks = list(fot = 0:5)) {
+ if (is.null(breaks)) stop("breaks is NULL")
+ if (!is.list(breaks)) stop("breaks needs to be a list")
+ if (!is.data.frame(x)) stop("x needs to be a data.frame")
+ timeScales <- names(breaks)
+ if (length(breaks) == 0L) stop("length of breaks list is zero")
+ if (length(timeScales) != length(breaks)) stop("breaks needs to be a fully named list")
+
+ bad_scales <- setdiff(timeScales, names(x))
+ if (length(bad_scales) > 0) {
+ stop("at least one breaks list name wasn't a variable in data; bad names: ",
+ paste0("'", bad_scales, "'", collapse = ", "))
+ }
+ lens <- lapply(breaks, function(el) if (is.null(el)) -1 else length(el))
+ badLens <- names(lens[unlist(lens) == 0L])
+ if (length(badLens)) {
+ badLens <- paste0("'", badLens, "'", collapse = ", ")
+ stop("Elements in breaks list for the following time scales were of ",
+ "length zero but not NULL: ", badLens, ". Breaks list may only ",
+ "contain elements of length > 0 or elements that are NULL.")
+ }
+ invisible(NULL)
+}
+
+checkPophaz <- function(lex, ph, haz.name = "haz") {
+ ## INTENTION: checks a Lexis data set against the pophaz data set for
+ ## consistency (e.g. existing variables to merge by)
+
+ if (!is.data.frame(ph)) {
+ stop("Data set containing population/expected hazards must be a data.frame",
+ " (or a data.table, which is also a data.frame).")
+ }
+
+ if (!haz.name %in% names(ph)) {
+ stop("Data set containing population/expected hazards does not contain a ",
+ "column named 'haz'. Make sure the name is exactly that (",
+ "case sensitive).")
+ }
+
+ if (haz.name %in% names(lex)) {
+ stop("Lexis data set already contains a column named 'haz', which is a ",
+ "reserved name for the population hazard variable to be merged. ",
+ "Please rename/delete 'haz' from/in your Lexis data first.")
+ }
+
+ if (!is.data.frame(ph)) {
+ stop("Data set of expected/population hazards must be a data.frame.")
+ }
+
+ bn <- setdiff(names(ph), haz.name)
+
+ if (length(bn) == 0L) {
+ stop("No variables in expected/population hazards data set to use in merge ",
+ "with Lexis data. Ensure that the pop. haz. data set containts some ",
+ "variables to merge by (e.g. sex, calendar year, and age group)")
+ }
+ if (!all(bn %in% names(lex))) {
+ badbn <- paste0("'", setdiff(bn, names(lex)), "'", collapse = ", ")
+ stop("Lexis data set did not have following variable(s) that were in ",
+ "the expected/population hazards data set: ", badbn,". ",
+ "Ensure you have supplied the right data and that the names of the ",
+ "intended variables match.")
+ }
+
+ mergeVars <- setdiff(names(ph), haz.name)
+ dup <- any(duplicated(as.data.table(ph), by = mergeVars))
+ if (dup) {
+ stop("Supplied data set of population/expected hzards has duplicated rows ",
+ "by the variables ", paste0("'",mergeVars, "'", collapse = ", "),
+ " which prevents correct usage of the data set. Please ensure no rows",
+ " area duplicated in the data set before proceeding. Tip: use e.g. ",
+ "duplicated(PH, by = c('V1', 'V2')) to check for duplicatedness in ",
+ "your data set (here named PH) by the variables V1 and V2."
+ )
+ }
+
+ invisible()
+}
+
+
+
+
+
+intelliCrop <- function(
+ x,
+ breaks = list(fot = 0:5),
+ allScales = NULL,
+ cropStatuses = FALSE,
+ tol = .Machine$double.eps^0.5
+) {
+
+ ## appease R CMD CHECK
+ lex.dur <- lex.Xst <- lex.Cst <- NULL
+
+ checkBreaksList(x = x, breaks = breaks)
+ breaks[unlist(lapply(breaks, length)) == 0L] <- NULL
+ if (!is.data.table(x)) stop("x needs to be a data.table")
+
+ cropScales <- names(breaks)
+
+ all_names_present(x, c("lex.dur", allScales))
+
+ if (cropStatuses) {
+ origEnd <- x$lex.dur + x[[allScales[1L]]]
+ }
+
+
+ deltas <- mapply(function(b, y) pmax(min(b), y) - y, SIMPLIFY = FALSE,
+ b = breaks, y = mget_cols(cropScales, x))
+ ## below: baseline (zero value without assigning zero of bad class)
+ deltas <- c(deltas, list(x[[cropScales[1]]][1L] - x[[cropScales[1]]][1L]))
+ deltas <- do.call(pmax, deltas)
+
+ set(x, j = allScales, value = mget_cols(allScales, x) + deltas)
+ set(x, j = "lex.dur", value = x[["lex.dur"]] - deltas)
+
+ durs <- mapply(function(b, y) max(b) - y, SIMPLIFY = FALSE,
+ b = breaks, y = mget_cols(cropScales, x))
+ durs$lex.dur <- x$lex.dur
+ durs <- do.call(pmin, durs)
+ ## now have max durs by row, i.e. up to roof of breaks at most,
+ ## or to ((original lex.dur) - (deltas)) if that is smaller.
+ ## (being cropped or exiting before roof of breaks)
+
+ set(x, j = "lex.dur", value = durs)
+
+ if (cropStatuses) {
+ harmonizeStatuses(x, C = "lex.Cst", X = "lex.Xst")
+ wh_was_cropped <- which(x[["lex.dur"]] + x[[allScales[1L]]] + tol < origEnd)
+ set(x, i = wh_was_cropped, j = "lex.Xst",
+ value = x[["lex.Cst"]][wh_was_cropped])
+ }
+
+ invisible(x)
+}
+
+
+
+
+
+harmonizeStatuses <- function(x, C = "lex.Cst", X = "lex.Xst") {
+
+ clC <- class(x[[C]])
+ clX <- class(x[[X]])
+ tyC <- typeof(x[[C]])
+ tyX <- typeof(x[[X]])
+ cl <- c(clC, clX)
+
+ if (tyC != tyX && clC != clX) {
+ if (is.numeric(x[[C]]) && is.numeric(x[[X]])) {
+ harmonizeNumeric(x = x, v1="lex.Cst", v2="lex.Xst")
+
+ } else if (is.factor(x[[C]]) || is.factor(x[[X]])) {
+ if (!is.factor(x[[C]])) set(x, j = C, value = as.factor(x[[C]]))
+ if (!is.factor(x[[X]])) set(x, j = X, value = as.factor(x[[X]]))
+
+ }
+ }
+
+ if (any(cl == "factor")) {
+ harmonizeFactors(x = x, v1="lex.Cst", v2="lex.Xst")
+ }
+
+}
+
+harmonizeNumericTimeScales <- function(x, times = NULL) {
+ ## INTENTION: given a Lexis data set with some time scales, ensure
+ ## that the classes of the time scales comply to the lowest denominator,
+ ## e.g. "double" and "integer" -> both "double"
+
+ if (is.null(times)) {
+ times <- c(attr(x, "time.scales"), "lex.dur")
+ }
+
+ msg <- paste0("Expected working data to have time scales %%VARS%%, but it ",
+ "didn't. This is an internal error: If you see this, complain ",
+ "to the package maintainer.")
+ all_names_present(x, times, msg = msg)
+ xt <- lapply(times, function(ch) x[[ch]])
+ names(xt) <- times
+
+ harmoClasses <- c("numeric", "integer", "difftime")
+ cl <- lapply(xt, class)
+ wh <- unlist(lapply(cl, function(ch) {
+ any(ch %in% harmoClasses)
+ }))
+ ha <- times[wh]
+ hacl <- unique(unlist(cl[wh]))
+
+ if (length(ha) > 1L) {
+ ## more than one class present and need to use common lowest denom
+ newMode <- as.double
+
+ if (all(ha %in% c("integer", "difftime"))) {
+ ## all numeric times are integers or difftimes
+ newMode <- as.integer
+ }
+ for (var in ha) {
+ ## modify in place
+ set(x, j = var, value = newMode(x[[var]]))
+ }
+
+
+ }
+ invisible(NULL)
+}
+
+
+
+
+
+harmonizeNumeric <- function(x, v1="lex.Cst", v2="lex.Xst") {
+ ## assumes v1, v2 are numeric variable names in x
+
+ if (!is.numeric(x[[v1]]) || !is.numeric(x[[v2]])) {
+ print(class(x[[v1]]))
+ print(class(x[[v2]]))
+ stop("v1 and/or v2 is/are not of class numeric")
+ }
+
+ if (!is.integer(x[[v1]])) set(x, j = v1, value = try2int(x[[v1]]))
+ if (!is.integer(x[[v2]])) set(x, j = v2, value = try2int(x[[v2]]))
+
+ if (typeof(x[[v1]]) != typeof(x[[v2]])) {
+
+ if (is.double(x[[v1]])) set(x, j = v1, value = as.double(x[[v1]]))
+ if (is.double(x[[v2]])) set(x, j = v2, value = as.double(x[[v2]]))
+
+ }
+
+}
+
+
+
+
+
+harmonizeFactors <- function(x, v1="lex.Cst", v2="lex.Xst") {
+ ## assumes v1, v2 are factor names in x
+
+ if (!is.factor(x[[v1]]) || !is.factor(x[[v2]])) {
+ stop("v1 and/or v2 is/are not of class factor")
+ }
+
+ glab1 <- union(levels(x[[v1]]), levels(x[[v2]]))
+ glab2 <- union(levels(x[[v2]]), levels(x[[v1]]))
+
+
+
+ setattr(x[[v1]], "levels", glab1)
+ setattr(x[[v2]], "levels", glab2)
+
+}
+
+
+
+
+
+intelliDrop <- function(x, breaks = list(fot = 0:5), dropNegDur = TRUE, check = FALSE, tol = .Machine$double.eps^0.5, subset = NULL) {
+
+ if (!is.data.table(x)) {
+ stop("x needs to be a data.table; if you see this message, complain ",
+ "to the package maintainer")
+ }
+ checkBreaksList(x = x, breaks = breaks)
+ breaks[unlist(lapply(breaks, length)) < 2] <- NULL
+ timeScales <- names(breaks)
+
+ if (check) {
+ checkLexisData(x)
+ }
+
+ ra <- lapply(breaks, range)
+ ra <- lapply(ra, diff)
+ ts <- names(sort(unlist(ra))) ## shortest first
+ mi <- lapply(breaks, min)
+ ma <- lapply(breaks, max)
+
+ substi <- substitute(subset)
+ subset <- evalLogicalSubset(x, substiset = substi)
+
+ if (dropNegDur) subset[subset] <- subset[subset] & x$lex.dur[subset] > 0L
+
+ ## figure out latest exit and first entry; don't need to test for dropping
+ ## if e.g. all left follow-up before the max in breaks
+ max_end <- lapply(ts, function(ch) min(x[[ch]] + x$lex.dur))
+ min_start <- lapply(ts, function(ch) max(x[[ch]]))
+ names(max_end) <- names(min_start) <- ts
+
+ for (k in ts) {
+ mik <- mi[[k]]
+ mak <- ma[[k]]
+
+ if (max_end[[k]] < mak + tol) {
+ tmpSD <- x[subset, .SD, .SDcols = c(k, "lex.dur")]
+ tmpSD <- setDT(lapply(tmpSD, as.numeric))
+ subset[subset] <- rowSums(tmpSD) <= mak + tol
+ }
+ if (min_start[[k]] + tol > mik) {
+ subset[subset] <- x[subset,][[k]] > mik - tol
+ }
+
+ if (all(!subset)) {
+ stop("Dropped all remaining rows from data when subsetting by the ",
+ "Lexis time scale '", k, "'. Range of values in data: ",
+ paste0(round(range(x[[k]]),4), collapse = "-"), ". Min/Max breaks ",
+ "(used to subset data): ", mik, "/", mak, ".")
+ }
+
+ }
+
+
+ x[subset, ]
+}
+
+
+matchBreakTypes <- function(lex, breaks, timeScale, modify.lex = FALSE) {
+ if (is.character(breaks)) {
+ breaks <- as.IDate(breaks)
+ }
+ clb <- class(breaks)
+ clb <- clb[length(clb)]
+ cts <- class(lex[[timeScale]])
+ cts <- cts[length(cts)]
+
+ if (clb != cts) {
+ if (is.Date(breaks) && !is.Date(lex[[timeScale]])) {
+ breaks <- try2int(as.double(breaks))
+ } else if (is.integer(breaks) && is.double(lex[[timeScale]])) {
+ breaks <- as.double(breaks)
+ } else if (is.double(breaks) && is.integer(lex[[timeScale]])) {
+ breaks <- try2int(breaks)
+ }
+
+ }
+
+ if (modify.lex && clb != cts) {
+ if (!is.Date(breaks) && is.Date(lex[[timeScale]])) {
+
+ if (clb == "double") {
+ set(lex, j = timeScale, value = as.double(lex[[timeScale]]))
+ } else {
+ set(lex, j = timeScale, value = as.integer(lex[[timeScale]]))
+ }
+
+ } else if (is.double(breaks) && is.integer(lex[[timeScale]])) {
+ set(lex, j = timeScale, value = as.double(lex[[timeScale]]))
+ }
+
+ }
+ breaks
+}
+
+protectFromDrop <- function(breaks, lower = FALSE) {
+ old_breaks <- copy(breaks)
+ if (length(breaks) == 0L) {
+ stop("Length of breaks to 'protect' from dropping is zero.")
+ }
+ if (is.Date(breaks)) {
+ breaks <- c(breaks, max(breaks) + 1e4L)
+ if (lower) breaks <- c(min(breaks) - 1e4L, breaks)
+
+ } else if (is.integer(breaks)) {
+ breaks <- c(breaks, 1e6L)
+ if (lower) breaks <- c(-1e6L, breaks)
+
+ } else if (is.double(breaks)) {
+ breaks <- c(breaks, Inf)
+ if (lower) breaks <- c(-Inf, breaks)
+
+ } else {
+ stop("breaks were not Date, integer or double")
+ }
+ setattr(breaks, "unprotected", old_breaks)
+ breaks
+}
+
+unprotectFromDrop <- function(breaks) {
+ up <- attr(breaks, "unprotected")
+ if (is.null(up) || length(up) == 0L) {
+ stop("Could not 'unprotect' breaks from dropping as the required ",
+ "attribute was not found. If you see this it is most likely ",
+ "an internal error and you should complain to the pkg maintainer.")
+ }
+ up
+}
+
+
+
+
+setLexisDT <- function(data, entry, exit, entry.status, exit.status, id = NULL, select = NULL) {
+
+ ## appease R CMD CHECK
+ lex.Cst <- lex.Xst <- NULL
+
+ if (!is.data.table(data)) stop("not a data.table")
+ if (inherits(data, "Lexis")) stop("already a Lexis object")
+
+ if (!is.null(select) && !is.character(select)) stop("select was not a character vector of names")
+
+ entry <- substitute(entry)
+ exit <- substitute(exit)
+ entry <- eval(entry, envir = data, enclos = parent.frame())
+ exit <- eval(exit, envir = data, enclos = parent.frame())
+ enNames <- names(entry)
+ exNames <- names(exit)
+
+ timeScales <- union(enNames, exNames)
+ if (any(timeScales %in% names(data))) stop("at least one named time scales already present in data; original names mandatory")
+ enNeeded <- setdiff(timeScales, enNames)
+ enPresent <- setdiff(timeScales, enNeeded)
+ durVar <- intersect(enNames, exNames)
+ if (length(durVar) > 1) stop("you have more than 1 time scales in both entry and exit; only one mandatory")
+
+ enVars <- paste0(enNames, "_en")
+ exVars <- paste0(exNames, "_ex")
+ setattr(entry, "names", enVars)
+ setattr(exit, "names", exVars)
+
+ l <- as.data.table(c(entry, exit))
+ rm(entry, exit)
+
+ ## duration
+ exV <- paste0(durVar, "_ex")
+ enV <- paste0(durVar, "_en")
+ set(l, j = "lex.dur", value = l[[exV]] - l[[enV]])
+ rm(exV, enV)
+
+ ## time scale starting points
+ if (length(enNeeded) > 0) {
+ for (ts in enNeeded) {
+ exV <- paste0(ts, "_ex")
+ set(l, j = ts, value = l[[exV]] - l$lex.dur)
+ }
+ }
+ setnames(l, paste0(enPresent, "_en"), enPresent)
+
+ # no longer need time scale end points
+ for (k in exVars) {
+ set(l, j = k, value = NULL)
+ }
+
+ ## status definition
+ data[, lex.Cst := entry.status]
+ data[, lex.Xst := exit.status]
+
+ harmonizeStatuses(data, C = "lex.Cst", X = "lex.Xst")
+
+ ## all time scales etc. into data
+ data[, names(l) := l]
+
+
+ id <- substitute(id)
+ id <- eval(id, envir = data, enclos = parent.frame())
+ if (!is.null(id)) set(data, j = "lex.id", value = id)
+ rm(id)
+
+ if (!is.null(select)) {
+
+ delVars <- setdiff(names(data), c(names(l), select))
+ if (length(delVars) > 0) {
+ l[, (delVars) := NULL]
+ }
+ }
+
+ rm(l)
+ lexVars <- c("lex.id", timeScales, "lex.dur", "lex.Cst", "lex.Xst")
+ setcolorder(data, c(lexVars, setdiff(names(data), lexVars)))
+
+ setattr(data, "time.scales", timeScales)
+ setattr(data, "time.since", rep("", times = length(timeScales)))
+ setattr(data, "class", c("Lexis", "data.table", "data.frame"))
+
+
+}
+
+checkLexisData <- function(lex, check.breaks = FALSE) {
+ ## INTENTION: checks Lexis attributes
+ ## OUTPUT: nothing
+
+ if (missing(lex)) {
+ stop("Data object not supplied")
+ }
+ if (!inherits(lex, "Lexis")) {
+ stop("Data not a Lexis object; it has class(es) ", deparse(class(lex)))
+ }
+ if (!is.data.frame(lex)) {
+ stop("Data is not a data.frame / data.table; it has class(es) ",
+ deparse(class(lex)))
+ }
+ if (nrow(lex) == 0) {
+ stop("Data has zero rows")
+ }
+ allScales <- attr(lex, "time.scales")
+ if (length(allScales) == 0) {
+ stop("no time scales appear to be defined; is data a Lexis object?")
+ }
+
+ badScales <- setdiff(allScales, names(lex))
+ if (length(badScales) > 0) {
+ badScales <- paste0("'", badScales, "'", collapse = ", ")
+ stop("Following time scales found in data's attributes but not present ",
+ "in data: ", badScales)
+ }
+
+ lexVars <- c("lex.dur", "lex.id", "lex.Cst", "lex.Xst")
+ blv <- setdiff(lexVars, names(lex))
+ if (length(blv) > 0) {
+ blv <- paste0("'", blv, "'", collapse = ", ")
+ stop("Following Lexis variables not found in data: ", blv)
+ }
+
+ if (check.breaks) {
+ BL <- attr(lex, "breaks")
+ if (is.null(BL)) stop("No breaks list in data attributes")
+ checkBreaksList(lex, breaks = BL)
+ }
+
+ invisible()
+}
+
+
+splitMultiPreCheck <- function(data = NULL, breaks = NULL, ...) {
+
+ ## INTENTION: checks for discrepancies between data and breaks, etc.
+ ## OUTPUT: cleaned-up list of breaks
+ checkLexisData(data)
+ allScales <- attr(data, "time.scales")
+
+ if (!is.null(breaks) && !is.list(breaks)) {
+ stop("breaks must be a list; see examples in ?splitMulti")
+ }
+ if (is.null(breaks)) {
+ breaks <- list(...)
+ breaks <- breaks[intersect(names(breaks), allScales)]
+ }
+
+ if (length(breaks) == 0) stop("no breaks defined!")
+
+ splitScales <- names(breaks)
+ ## NULL breaks imply not used
+ for (k in splitScales) {
+ if (length(breaks[[k]]) == 0) {
+ breaks[k] <- NULL
+ }
+ }
+
+ checkBreaksList(x = data, breaks = breaks)
+
+ splitScales <- names(breaks)
+
+ if (!all(splitScales %in% allScales)) {
+ stop("breaks must be a list with at least one named vector corresponding to used time scales \n
+ e.g. breaks = list(fot = 0:5)")
+ }
+
+ if (!all(splitScales %in% names(data))) {
+ stop("At least one vector name in breaks list is not a variable name in the data")
+ }
+ breaks
+}
+
+forceLexisDT <- function(x, breaks = NULL, allScales = NULL, key = TRUE) {
+ setattr(x, "class", c("Lexis", "data.table", "data.frame"))
+ setattr(x, "breaks", breaks)
+ setattr(x, "time.scales", allScales)
+ # alloc.col(x)
+ if (key) setkeyv(x, c("lex.id", names(breaks)[1L]))
+ invisible(x)
+}
+
+
+doCutLexisDT <- function(lex, cut = dg_date, timeScale = "per", by = "lex.id", n = 1L) {
+
+ checkLexisData(lex, check.breaks = FALSE)
+
+ x <- unique(lex, by = by)
+ cut <- evalq(cut, envir = lex, enclos = parent.frame(n = n + 1L))
+ delta <- cut - x[[timeScale]]
+
+ allScales <- attr(lex, "time.scales")
+
+ setDT(x)
+ for (v in allScales) {
+ set(x, j = v, value = x[[v]] + delta)
+ }
+
+ set(x, j = "lex.dur", value = 0)
+
+ tmp <- list()
+ tmp$isCut <- makeTempVarName(lex, pre = "isCut_")
+
+ set(x, j = tmp$isCut, value = 1L)
+ on.exit(setcolsnull(x, unlist(tmp)))
+
+ x <- rbindlist(list(lex, x), use.names = TRUE, fill = TRUE)
+ x[1:nrow(lex), (tmp$isCut) := 0L]
+
+ ## NOTE: new cut row being the first or last row
+ ## implies it resides outside old observations
+ ## OR it is equal to lowest/highest value
+ setkeyv(x, c(by, allScales))
+ setkeyv(x, by)
+ x <- x[!((duplicated(x, by = key(x)) | duplicated(x, by = key(x), fromLast = TRUE)) & x[[tmp$isCut]] == 0L)]
+ stop("not ready")
+}
+
+# data <- data.table(birth = 2000:2000, entry=2002:2003,
+# exit=2011:2012, event=c(2010,2011),
+# status=1:0)
+#
+# lex <- lexpand(data = data, birth = birth, entry = entry,
+# exit = exit, event = event,
+# id = 1L, entry.status = 99L,
+# status = status, overlapping = TRUE)
+
+lexpile <- function(lex, by = "lex.id", subset = NULL) {
+ ## PURPOSE: given several rows per id in a Lexis object,
+ ## collate data into form where
+ ## - no subject has any overlapping time lines
+ ## - lex.Cst and lex.Xst are logical, i.e. 0 -> 1, 1 -> 1, 1 -> 2
+ ## this should be made to work with both split and unsplit Lexis data.
+
+ data <- NULL # R CMD CHECK appeasement
+
+ checkLexisData(lex, check.breaks = FALSE)
+
+ allScales <- attr(lex, "time.scales")
+ sc <- allScales[1L]
+
+ all_names_present(lex, by)
+
+ if (is.character(lex$lex.Cst) || is.character(lex$lex.Xst)) {
+ stop("This function requires lex.Cst and lex.Xst to be integer, double (i.e. numeric) or factor variables to determine the order of possible statuses!")
+ }
+
+ ## need to take copy eventually ----------------------------------------------
+ attrs <- attributes(lex)
+ subset <- evalLogicalSubset(data, substitute(subset))
+ x <- lex[subset,]
+ forceLexisDT(x, breaks = attrs$breaks, allScales = attrs$time.scales)
+ alloc.col(x)
+
+
+ ## ensure status harmony -----------------------------------------------------
+ harmonizeStatuses(x = x, X = "lex.Xst", C = "lex.Cst")
+ exStat <- if (is.factor(x$lex.Xst)) levels(x$lex.Xst) else sort(unique(x$lex.Xst))
+ enStat <- if (is.factor(x$lex.Cst)) levels(x$lex.Cst) else sort(unique(x$lex.Cst))
+ allStat <- c(setdiff(enStat, exStat), exStat) ## enStat & exStat equal if factors used
+
+ ## avoiding side effects -----------------------------------------------------
+ oldKey <- key(lex)
+ tmp <- list()
+ tmp$order<- makeTempVarName(x, pre = "order_")
+
+ on.exit({
+ if (length(oldKey) > 0) setkeyv(x, oldKey) else
+ setorderv(x, tmp$order)
+ }, add = TRUE)
+
+ on.exit({
+ setcolsnull(x, unlist(tmp$order), soft = TRUE)
+ }, add = TRUE)
+
+ x[, c(tmp$order) := 1:.N]
+
+ ## check for need for lexpiling ----------------------------------------------
+ setkeyv(x, by)
+ if (sum(duplicated(x, by = key(x))) == 0L) return(lex)
+
+
+ ## figure out what statuses are used -----------------------------------------
+
+ tmp$ev <- makeTempVarName(x, pre = "event_")
+ x[, c(tmp$ev) := detectEvents(x, breaks = attrs$breaks, by = by)]
+
+ tmp$scEnds <- paste0(allScales, "_end")
+ tmp$scEnds <- makeTempVarName(lex, pre = tmp$scEnds)
+ x[, c(tmp$scEnds) := lapply(.SD, function(x) x + lex$lex.dur), .SDcols = allScales]
+
+ ## NOTE: rows for a given subject ending in simultaneously with at least
+ ## one being a transition will not be allowed.
+ setkeyv(x, c(by, tmp$scEnds[1L]))
+
+ whDup <- duplicated(x, fromLast = FALSE, by = key(x)) | duplicated(x, fromLast = TRUE, by = key(x))
+ dupTest <- x[whDup, 1L %in% unique(.SD), .SDcols = tmp$ev]
+ rm(whDup)
+
+ if (dupTest) stop("At least one subject had at least two simultaneous events.")
+ ## NOTE: if interval ends AND status are the very same for M rows,
+ ## then the M rows are necessarily nested with one or more covering
+ ## the whole time line. Only need to keep the one.
+ setkeyv(x, c(tmp$scEnds, "lex.Cst", "lex.Xst"))
+ setorderv(x, c(allScales,tmp$scEnds, "lex.Cst", "lex.Xst"))
+
+ x <- unique(x, by = key(x))
+ stop("unfinished")
+
+}
+
+contractLexis <- function(x, breaks, drop = TRUE) {
+ stop("This doesnt do anything yet")
+ ## INTENTION: given a Lexis object and breaks,
+ ## ensures data is split by the breaks and contracts the split rows
+ ## so that the data is split at the level of the supplied breaks.
+ ## e.g. with x split by fot = seq(0, 5, 1/12) and with supplying
+ ## breaks = list(fot = 0:5), rows within 0-1 are collated into one row etc.
+
+ ## PROBLEM: a subject may have e.g. rows spaning 0.5 - 1 which are requested
+ ## to be contracted to one row spanning 0-1.
+
+
+}
+
+
+
+
+#' @title Prepare Exposure Data for Aggregation
+#' @description \code{prepExpo} uses a \code{Lexis} object of periods of exposure
+#' to fill gaps between the periods and overall entry and exit times without
+#' accumulating exposure time in periods of no exposure, and splits the
+#' result if requested.
+#' @param lex a \code{\link[Epi]{Lexis}} object with ONLY periods of exposure
+#' as rows; one or multiple rows per subject allowed
+#' @param freezeScales a character vector naming \code{Lexis} time scales of exposure
+#' which should be frozen in periods where no exposure occurs (in the gap
+#' time periods)
+#' @param cutScale the \code{Lexis} time scale along which the subject-specific
+#' ultimate entry and exit times are specified
+#' @param entry an expression; the time of entry to follow-up which may be earlier, at, or after
+#' the first time of exposure in \code{freezeScales}; evaluated separately
+#' for each unique combination of \code{by}, so e.g. with
+#' \code{entry = min(Var1)} and \code{by = "lex.id"} it
+#' sets the \code{lex.id}-specific minima of \code{Var1} to be the original times
+#' of entry for each \code{lex.id}
+#' @param exit the same as \code{entry} but for the ultimate exit time per unique
+#' combination of \code{by}
+#' @param by a character vector indicating variable names in \code{lex},
+#' the unique combinations of which identify separate subjects for which
+#' to fill gaps in the records from \code{entry} to \code{exit};
+#' for novices of \code{{\link{data.table}}}, this is passed to a
+#' \code{data.table}'s \code{by} argument.
+#' @param breaks a named list of breaks;
+#' e.g. \code{list(work = 0:20,per = 1995:2015)}; passed on to
+#' \code{\link{splitMulti}} so see that function's help for more details
+#' @param freezeDummy a character string; specifies the name for a dummy variable
+#' that this function will create and add to output which
+#' identifies rows where the \code{freezeScales} are frozen and where not
+#' (\code{0} implies not frozen, \code{1} implies frozen);
+#' if \code{NULL}, no dummy is created
+#' @param subset a logical condition to subset data by before computations;
+#' e.g. \code{subset = sex == "male"}
+#' @param verbose logical; if \code{TRUE}, the function is chatty and returns
+#' some messages and timings during its run.
+#' @param ... additional arguments passed on to \code{\link{splitMulti}}
+#' @details
+#'
+#' \code{prepExpo} is a convenience function for the purpose of eventually aggregating
+#' person-time and events in categories of not only normally progressing
+#' \code{Lexis} time scales but also some time scales which should not
+#' progress sometimes. For example a person may work at a production facility
+#' only intermittently, meaning exposure time (to work-related substances
+#' for example) should not progress outside of periods of work. This allows for
+#' e.g. a correct aggregation of person-time and events by categories of cumulative
+#' time of exposure.
+#'
+#' Given a \code{Lexis} object containing rows (time lines)
+#' where a subject is exposed to something (and NO periods without exposure),
+#' fills any gaps between exposure periods for each unique combination of \code{by}
+#' and the subject-specific "ultimate" \code{entry} and \code{exit} times,
+#' "freezes" the cumulative exposure times in periods of no exposure,
+#' and splits data using \code{breaks} passed to \code{\link{splitMulti}}
+#' if requested. Results in a (split) \code{Lexis} object where \code{freezeScales}
+#' do not progress in time periods where no exposure was recorded in \code{lex}.
+#'
+#' This function assumes that \code{entry} and \code{exit} arguments are the
+#' same for each row within a unique combination of variables named in \code{by}.
+#' E.g. with \code{by = "lex.id"} only each \code{lex.id} has a unique value
+#' for \code{entry} and \code{exit} at most.
+#'
+#' The supplied \code{breaks} split the data using \code{splitMulti}, with
+#' the exception that breaks supplied concerning any frozen time scales
+#' ONLY split the rows where the time scales are not frozen. E.g.
+#' with \code{freezeScales = "work"},
+#' \code{breaks = list(work = 0:10, cal = 1995:2010)} splits all rows over
+#' \code{"cal"} but only non-frozen rows over \code{"work"}.
+#'
+#' Only supports frozen time scales that advance and freeze contemporaneously:
+#' e.g. it would not currently be possible to take into account the cumulative
+#' time working at a facility and the cumulative time doing a single task
+#' at the facility, if the two are not exactly the same. On the other hand
+#' one might use the same time scale for different exposure types, supply them
+#' as separate rows, and identify the different exposures using a dummy variable.
+#' @return
+#'
+#' Returns a \code{Lexis} object that has been split if \code{breaks} is specified.
+#' The resulting time is also a \code{data.table} if
+#' \code{options("popEpi.datatable") == TRUE} (see: \code{?popEpi})
+#'
+#' @import data.table
+#' @export
+prepExpo <- function(lex, freezeScales = "work", cutScale = "per", entry = min(get(cutScale)),
+ exit = max(get(cutScale)), by = "lex.id", breaks = NULL, freezeDummy = NULL, subset = NULL,
+ verbose = FALSE, ...) {
+ ## R CMD CHECK appeasement
+ lex.dur <- NULL
+
+ if (verbose) allTime <- proc.time()
+
+ ## check breaks & data -------------------------------------------------------
+ breaks <- evalq(breaks)
+ dumBreaks <- structure(list(c(-Inf, Inf)), names = cutScale, internal_prepExpo_dummy = TRUE)
+ if (is.null(breaks)) breaks <- dumBreaks
+ breaks <- splitMultiPreCheck(data = lex, breaks = breaks)
+ if (!is.null(attr(breaks, "internal_prepExpo_dummy"))) breaks <- NULL
+ checkLexisData(lex)
+ oldBreaks <- attr(lex, "breaks")
+ if (!is.null(breaks)) checkBreaksList(lex, breaks)
+ checkBreaksList(lex, oldBreaks)
+
+
+ ## data ----------------------------------------------------------------------
+
+ subset <- evalLogicalSubset(data = lex, substitute(subset))
+ x <- if (!all(subset)) evalq(lex)[subset, ] else copy(evalq(lex))
+
+ setDT(x)
+
+ allScales <- attr(lex, "time.scales")
+ linkScales <- setdiff(allScales, freezeScales)
+ othScales <- setdiff(linkScales, cutScale)
+
+ setkeyv(x, c(by, cutScale))
+
+ l <- list() ## will hold temp var names; this avoids collisions with names of vars in x
+ l$cutScale <- cutScale
+ l$freezeScales <- freezeScales
+ l$liquidScales <- setdiff(allScales, freezeScales)
+ l$by <- by
+ rm(cutScale, freezeScales, by)
+
+ ## args ----------------------------------------------------------------------
+ if (verbose) argTime <- proc.time()
+ tol <- .Machine$double.eps^0.75
+
+ if (is.character(freezeDummy) && freezeDummy %in% names(lex)) stop("Variable named in freezeDummy already exists in data; freezeDummy is inteded for creating a new dummy for identifying the rows where freezeScales are frozen. Please supply an original variable name to freezeDummy")
+
+ if (!is.character(l$by)) stop("by must be given as a vector of character strings naming columns in lex")
+ all_names_present(lex, l$by)
+
+ enSub <- substitute(entry)
+ exSub <- substitute(exit)
+
+ PF <- parent.frame(1L)
+ l$en <- makeTempVarName(x, pre = "entry_")
+ l$ex <- makeTempVarName(x, pre = "exit_")
+ x[, c(l$ex, l$en) := list(eval(exSub, envir = .SD, enclos = PF),
+ eval(enSub, envir = .SD, enclos = PF)), by = c(l$by)]
+
+ ## tests disabled for now...
+ # testTime <- proc.time()
+ #
+ # test <- x[, .N, by = list(r = get(l$cutScale) + lex.dur > get(l$ex) - tol)]
+ # if(test[r == TRUE, .N] > 0) stop("exit must currently be higher than or equal to the maximum of cutScale (on subject basis defined using by); you may use breaks instead to limit the data")
+ #
+ # test <- x[, .N, by = list(r = get(l$cutScale) + tol < get(l$en))]
+ # if(test[r == TRUE, .N] > 0) stop("entry must currently be lower than or equal to the minimum of cutScale (on subject basis defined using by); you may use breaks instead to limit the data")
+ # if (verbose) cat("Finished checking entry and exit. Time taken: ", timetaken(argTime), "\n")
+ if (verbose) cat("Finished evaluating entry and exit and checking args. Time taken: ", timetaken(argTime), "\n")
+
+ ## create rows to fill gaps --------------------------------------------------
+ if (verbose) fillTime <- proc.time()
+ x2 <- copy(x)
+ x2[, (l$freezeScales) := NA]
+ x2 <- rbind(x2, unique(x2, by = c(l$by), fromLast = TRUE))
+
+ l$delta <- makeTempVarName(x2, pre = "delta_")
+ x2[, (l$delta) := c(get(l$en)[1], get(l$cutScale)[-c(1,.N)], max(get(l$cutScale)+lex.dur)) - get(l$cutScale), by = c(l$by)]
+ x2[, c(linkScales) := lapply(mget(linkScales), function(x) x + get(l$delta)), by = c(l$by)]
+
+ setcolsnull(x2, l$delta)
+
+ l$order <- makeTempVarName(x, pre = "order_")
+ x[, (l$order) := (1:.N)*2, by = c(l$by)]
+ x2[, (l$order) := (1:.N)*2-1, by = c(l$by)]
+
+ x <- rbindlist(list(x, x2))
+ rm(x2)
+ setkeyv(x, c(l$by, l$cutScale, l$order))
+ setkeyv(x, c(l$by))
+ set(x, j = l$order, value = as.integer(x[[l$order]]))
+ x[, (l$order) := 1:.N, by = c(l$by)]
+
+ if (verbose) cat("Finished expanding data to accommodate filling gaps. Time taken: ", timetaken(fillTime), "\n")
+ ## handle time scale values --------------------------------------------------
+ if (verbose) valueTime <- proc.time()
+
+ l$CSE <- makeTempVarName(x, pre = paste0(l$cutScale, "_end_"))
+ l$LCS <- makeTempVarName(x, pre = paste0("lead1_",l$cutScale, "_"))
+ x[, (l$CSE) := lex.dur + get(l$cutScale)]
+ x[, (l$LCS) := shift(get(l$cutScale), n = 1L, type = c("lead"), fill = NA), by = c(l$by)]
+
+
+ x[!duplicated(x, fromLast = TRUE, by = key(x)), c(l$LCS, l$CSE) := get(l$ex)]
+ x[, (l$CSE) := pmin(get(l$LCS), get(l$CSE))]
+ x[, (l$cutScale) := sort(c(get(l$en)[1L],shift(get(l$CSE), n = 1L, type = "lag", fill = NA)[-1])), by = c(l$by)]
+ x[, lex.dur := get(l$CSE) - get(l$cutScale)]
+
+ ## bring up other than frozen and cut scales to bear -------------------------
+ x[, (othScales) := lapply(mget(othScales), function(x) {min(x) + c(0, cumsum(lex.dur)[-.N])}), by = c(l$by)]
+
+
+ ## frozen scales should make sense cumulatively ------------------------------
+ ## indicates frozenness: 0 = not frozen, 1 = frozen
+ l$frz <- makeTempVarName(x, pre = "frozen_")
+ x[, (l$frz) := 0L]
+ frozens <- x[,is.na(get(l$freezeScales[1]))]
+ x[frozens, (l$frz) := 1L]
+
+
+ ## alternate method: just use lex.durs and only cumulate in non-frozen rows
+ x[, (l$freezeScales) := lapply(mget(l$freezeScales), function(x) {
+ x <- max(0, min(x-lex.dur, na.rm=TRUE))
+ x <- x + c(0, as.double(cumsum(as.integer(!get(l$frz))*lex.dur))[-.N])
+ }), by = c(l$by)]
+
+ x <- x[lex.dur > .Machine$double.eps^0.5, ]
+
+ if (verbose) cat("Finished computing correct values for time scales. Time taken: ", timetaken(valueTime), "\n")
+
+ ## splitting separately ------------------------------------------------------
+ if (!is.null(breaks)) {
+ if (verbose) splitTime <- proc.time()
+ x_frozen <- x[get(l$frz) == 1L,]
+ x <- x[get(l$frz) == 0L]
+ forceLexisDT(x, allScales = allScales, breaks = oldBreaks)
+
+ ## NOTE: since we only split by the frozen time scales by pretending
+ ## they are NOT Lexis time scales (temporarily), and since one should
+ ## pass the appropriate breaks info of pre-existing breaks to splitMulti,
+ ## choose only breaks for non-frozen time scales to include in x_frozen's
+ ## attributes here.
+ ## (e.g. when work history is no longer accumulating)
+ frzBreaks <- breaks[l$liquidScales]
+ oldFrzBreaks <- oldBreaks[l$liquidScales]
+ emptyFrzBreaks <- vector("list", length = length(l$liquidScales))
+ names(emptyFrzBreaks) <- l$liquidScales
+ if (length(oldFrzBreaks)) {
+ emptyFrzBreaks[names(oldFrzBreaks)] <- oldFrzBreaks
+ }
+ forceLexisDT(x_frozen, allScales = l$liquidScales, breaks = emptyFrzBreaks)
+
+ if (length(frzBreaks) > 0) {
+ ## do (also) split for all time scales where also the frozen
+ ## time scales are split. This is allowed for times where the
+ ## frozen time scales have not been frozen
+ ## (e.g. work history is accumulating)
+ x_frozen <- splitMulti(x_frozen, breaks = frzBreaks, ...)
+ }
+
+ ## do (also) split where also split
+ x <- splitMulti(x, breaks = breaks, ...)
+ breaks <- attr(x, "breaks") ## new breaks appended by splitMulti
+
+ setDT(x)
+ setDT(x_frozen)
+ x <- rbindlist(list(x, x_frozen), use.names = TRUE); rm(x_frozen)
+ forceLexisDT(x, breaks = breaks, allScales = allScales)
+ if (verbose) cat("Finished splitting data. Time taken: ", timetaken(splitTime), "\n")
+ }
+
+ ## final touch ---------------------------------------------------------------
+
+ setDT(x)
+ if (is.character(freezeDummy)) setnames(x, l$frz, freezeDummy)
+ setkeyv(x, c(l$by, l$order))
+ delCols <- setdiff(names(l), c("by", "cutScale", "freezeScales",
+ "liquidScales",
+ "linkScales", "allScales", "othScales"))
+ delCols <- unlist(l[delCols])
+ setcolsnull(x, keep = names(lex), colorder = TRUE)
+
+ setattr(x, "time.scales", allScales)
+ setattr(x, "breaks", breaks)
+ setattr(x, "time.since", rep("", length(allScales)))
+ setattr(x, "class", c("Lexis", "data.table", "data.frame"))
+ if (!return_DT()) setDFpe(x)
+
+ if (verbose) cat("Finished prepExpo run. Time taken: ", timetaken(allTime), "\n")
+
+ x[]
+}
+
+
+
+doComparisonWithEpi <- function(lexDT, lexDTdrop, lexDF, breaks) {
+ BL <- NULL
+ if (!is.list(breaks)) stop("breaks needs to be a list")
+ requireNamespace("Epi")
+ requireNamespace("testthat")
+
+ allScales <- attr(lexDF, "time.scales")
+ sc1 <- allScales[1]
+ setDT(lexDT)
+ setDT(lexDTdrop)
+ setDT(lexDF)
+ setkeyv(lexDT, c("lex.id", sc1))
+ setkeyv(lexDTdrop, c("lex.id", sc1))
+ setkeyv(lexDF, c("lex.id", sc1))
+
+ testthat::expect_equal(attr(lexDT, "time.scales"), attr(lexDF, "time.scales"))
+ testthat::expect_equal(attr(lexDT, "time.since"), attr(lexDF, "time.since"))
+
+ testthat::expect_equal(attr(lexDTdrop, "time.scales"), attr(lexDF, "time.scales"))
+ testthat::expect_equal(attr(lexDTdrop, "time.since"), attr(lexDF, "time.since"))
+
+ doTestBarrage(dt1 = lexDT, dt2 = lexDF, allScales = allScales)
+ rm(lexDT)
+
+ lexDF <- intelliDrop(x = lexDF, breaks = breaks)
+
+ doTestBarrage(dt1 = lexDTdrop, dt2 = lexDF, allScales = allScales)
+
+}
+
+doTestBarrage <- function(dt1, dt2, allScales, testTimes = TRUE, testStatuses = TRUE) {
+ requireNamespace("Epi")
+ requireNamespace("testthat")
+
+ lex.id <- lex.dur <- NULL ## APPEASE R CMD CHECK
+
+ testthat::expect_equal(sum(dt1$lex.dur),
+ sum(dt2$lex.dur),
+ check.attributes = FALSE)
+ testthat::expect_equal(dt1[, sum(lex.dur), keyby = lex.id]$V1,
+ dt2[, sum(lex.dur), keyby = lex.id]$V1,
+ check.attributes = FALSE)
+
+ all_names_present(dt1, allScales)
+ all_names_present(dt2, allScales)
+
+ if (testTimes) {
+ for (k in allScales) {
+ testthat::expect_equal(dt1[[k]], dt2[[k]],
+ check.attributes = TRUE)
+ }
+ }
+
+ if (testStatuses) {
+ testthat::expect_equal(dt1$lex.Cst, dt2$lex.Cst, check.attributes = FALSE)
+ testthat::expect_equal(dt1$lex.Xst, dt2$lex.Xst, check.attributes = FALSE)
+
+ testthat::expect_equal(levels(dt1$lex.Cst), levels(dt2$lex.Cst), check.attributes = FALSE)
+ testthat::expect_equal(levels(dt1$lex.Xst), levels(dt2$lex.Xst), check.attributes = FALSE)
+
+ testthat::expect_true(all(class(dt2$lex.Cst) %in% class(dt1$lex.Cst)))
+ testthat::expect_true(all(class(dt2$lex.Xst) %in% class(dt1$lex.Xst)))
+ }
+
+ invisible(NULL)
+}
+
+compareSLDTWithEpi <- function(data, breaks, timeScale) {
+ requireNamespace("Epi")
+ requireNamespace("testthat")
+
+ if (!inherits(data, "Lexis")) stop("data gotta be a Lexis object broseph")
+
+ lexDT <- splitLexisDT(data, breaks = breaks, timeScale = timeScale, merge = TRUE, drop = FALSE)
+ lexDTdrop <- splitLexisDT(data, breaks = breaks, timeScale = timeScale, merge = TRUE, drop = TRUE)
+ lexDF <- splitLexis(data, breaks = breaks, time.scale = timeScale) ## without dropping
+ ## this treatment done in splitLexisDT (difftime -> integer -> double)
+ harmonizeNumericTimeScales(lexDF, times = c(Epi::timeScales(lexDF), "lex.dur"))
+
+ BL <- list(breaks)
+ setattr(BL, "names", timeScale)
+
+ doComparisonWithEpi(lexDT = lexDT, lexDTdrop = lexDTdrop, lexDF = lexDF, breaks = BL)
+
+ invisible(NULL)
+}
+
+
+
+
+
+splitMultiEpi <- function(data, breaks = list(fot = 0:5), drop) {
+
+ for (k in names(breaks)) {
+ data <- splitLexis(data, breaks = breaks[[k]], time.scale = k)
+ }
+
+ forceLexisDT(
+ data, breaks = attr(data, "breaks"),
+ allScales = attr(data, "time.scales"),
+ key = FALSE
+ )
+ if (drop) data <- intelliDrop(data, breaks = breaks)
+ data
+}
+
+
+
+
+
+compareSMWithEpi <- function(data, breaks = list(fot=0:5)) {
+ requireNamespace("Epi")
+ requireNamespace("testthat")
+
+ lexDT <- splitMulti(data, breaks = breaks, merge = TRUE, drop = FALSE)
+ lexDTdrop <- splitMulti(data, breaks = breaks, merge = TRUE, drop = TRUE)
+ lexDF <- splitMultiEpi(data, breaks = breaks, drop = FALSE)
+
+ doComparisonWithEpi(lexDT=lexDT, lexDTdrop = lexDTdrop, lexDF=lexDF, breaks = breaks)
+
+ invisible(NULL)
+}
+
+
+
+
+
+summarize_Lexis <- function(x) {
+
+ lex.Cst <- lex.Xst <- NULL ## appease R CMD CHECK
+
+ dur <- sum(x$lex.dur)
+ status_vars <- paste0("lex.", c("Cst", "Xst"))
+ time_scales <- copy(attr(x, "time.scales"))
+ dt <- copy(setDT(
+ mget(c(status_vars, "lex.id", time_scales[1]), as.environment(x))
+ ))
+ setkeyv(dt, c("lex.id", time_scales[1]))
+ dt <- unique(dt, by = c("lex.id"), fromLast = TRUE)
+
+ n <- dt[, .N, keyby = status_vars]
+ rm("dt")
+ n[, "transition" := paste0(lex.Cst, "->", lex.Xst)]
+ n <- cast_simple(data = n, columns = "transition", values = "N")
+ return(cbind(lex.dur = dur, n))
+}
+
+
+
+
+
+roll_lexis_status_inplace <- function(unsplit.data, split.data, id.var) {
+
+ ## R CMD CHECK appeasement
+ lex.Cst <- lex.Xst <- NULL
+
+ stopifnot(
+ is.data.table(split.data),
+ length(key(split.data)) > 1,
+ key(split.data)[1] == id.var,
+ key(split.data)[2] %in% attr(unsplit.data, "time.scales"),
+ id.var %in% names(unsplit.data),
+ id.var %in% names(split.data),
+ uniqueN(unsplit.data[[id.var]]) == nrow(unsplit.data)
+ )
+
+ status_vars <- c("lex.Cst", "lex.Xst")
+ status_ud <- mget_cols(c(id.var, status_vars), unsplit.data)
+
+ join <- structure(list(split.data[[id.var]]), names = id.var)
+ lex_cst <- status_ud[
+ i = join,
+ j = lex.Cst,
+ on = id.var
+ ]
+ storage.mode(lex_cst) <- storage.mode(split.data[["lex.Cst"]])
+ set(split.data, j = status_vars, value = list(lex_cst, lex_cst))
+
+ wh_last_row <- which(!duplicated(split.data, by = id.var, fromLast = TRUE))
+ join <- structure(list(split.data[[id.var]][wh_last_row]), names = id.var)
+ last_lex_xst <- status_ud[
+ i = join,
+ j = lex.Xst,
+ on = id.var
+ ]
+ storage.mode(last_lex_xst) <- storage.mode(split.data[["lex.Xst"]])
+ set(split.data, i = wh_last_row, j = "lex.Xst", value = last_lex_xst)
+
+
+ NULL
+}
+
+
+
+
+random_splitting_on <- function(
+ lex,
+ n.max.breaks = 20
+) {
+ stopifnot(
+ inherits(lex, "Lexis")
+ )
+
+ ts_nms <- attr(lex, "time.scales")
+ brks <- attr(lex, "breaks")
+ timesince <- attr(lex, "time.since")
+ lex_vars <- c(paste0("lex.", c("id", "Cst", "Xst", "dur")), ts_nms)
+ non_lex_vars <- setdiff(names(lex), lex_vars)
+ lex <- mget_cols(lex_vars, lex)
+ setattr(lex, "time.scales", ts_nms)
+ setattr(lex, "breaks", brks)
+ setattr(lex, "time.since", timesince)
+ setattr(lex, "class", c("Lexis", "data.table", "data.frame"))
+ checkLexisData(lex)
+
+ n_split_ts <- sample(seq_along(ts_nms), 1)
+ split_ts_nms <- sample(ts_nms, size = n_split_ts)
+
+ do_drop <- sample(list(FALSE, TRUE), size = 1)[[1]]
+
+ bl <- lapply(split_ts_nms, function(split_ts_nm) {
+ r <- c(min(lex[[split_ts_nm]]), max(lex[[split_ts_nm]] + lex[["lex.dur"]]))
+ d <- diff(r)
+
+ br_r <- if (do_drop) 2:n.max.breaks else 1:n.max.breaks
+ n_br <- sample(br_r, 1)
+
+ ## allow breaks outside observed data, but at least one break must be
+ ## not outside range of values in data
+ extrema <- r + c(-1,1)*d*0.05
+ l <- rep(extrema[1], n_br)
+ u <- rep(extrema[2], n_br)
+ u[1] <- l[1] <- mean(r)
+ sort(unique(runif(min = l, max = u, n = n_br)))
+ })
+ names(bl) <- split_ts_nms
+
+ es <- ps <- lex
+ for (ts_nm in split_ts_nms) {
+ es <- Epi::splitLexis(es, breaks = bl[[ts_nm]], time.scale = ts_nm)
+ forceLexisDT(es, breaks = attr(es, "breaks"), allScales = ts_nms,
+ key = FALSE)
+ if (do_drop) {
+ es <- intelliDrop(es, breaks = bl[ts_nm])
+ }
+ ps <- splitLexisDT(ps, breaks = bl[[ts_nm]], timeScale = ts_nm,
+ drop = do_drop)
+ }
+
+ psm <- splitMulti(lex, breaks = bl, drop = do_drop)
+
+ list(es = es, ps = ps, psm = psm)
+}
+
+
+
+
+
+random_Lexis <- function(
+ n.rows = c(100, 1000, 2000),
+ n.time.scales = 1:10,
+ n.statuses = 2:10,
+ n.other.vars = 1
+) {
+
+ row_n <- sample(as.list(n.rows), 1)[[1]]
+
+ ts_n <- sample(as.list(n.time.scales), 1)[[1]]
+
+ st_n <- sample(as.list(n.statuses), 1)[[1]]
+
+ dt <- setDT(lapply(1:ts_n, function(i) {
+ runif(min = 0, max = 1000, n = row_n)
+ }))
+ ts_nms <- paste0("lex_ts_", formatC(seq_len(ncol(dt)), flag = "0", width = 3))
+ setnames(dt, names(dt), ts_nms)
+
+ dt[, "lex.Cst" := sample(1:st_n, size = .N, replace = TRUE)]
+ dt[, "lex.Xst" := sample(1:st_n, size = .N, replace = TRUE)]
+ dt[, "lex.id" := sample(1:.N, .N, replace = FALSE)]
+ dt[, "lex.dur" := runif(n = .N, min = 0, max = 10)]
+
+ oth_n <- sample(as.list(n.other.vars), 1)[[1]]
+ lapply(seq_len(oth_n), function(i) {
+ set(
+ dt, j = makeTempVarName(names = names(dt), pre = "nonlexvar_"),
+ value = sample(1:100, size = nrow(dt), replace = TRUE)
+ )
+ })
+
+ brks <- lapply(ts_nms, function(nm) NULL)
+ names(brks) <- ts_nms
+
+ forceLexisDT(dt, breaks = brks, allScales = ts_nms, key = TRUE)
+ checkLexisData(dt, check.breaks = TRUE)
+ dt[]
+}
+
+
+
+
+
+random_splitting_on_random_data <- function(
+ n.datasets = 100,
+ n.rows = 1000,
+ n.time.scales = 1:10,
+ n.breaks = 10:100,
+ n.statuses = 1:5,
+ n.other.vars = 1
+) {
+
+ neql <- vector("list", n.datasets)
+
+ for (i in 1:n.datasets) {
+
+
+ set.seed(get_random_seed())
+
+ drop <- sample(list(TRUE, FALSE), 1)[[1]]
+ drop <- FALSE
+
+ dt <- random_Lexis(
+ n.rows = n.rows,
+ n.time.scales = n.time.scales,
+ n.statuses = n.statuses,
+ n.other.vars = n.other.vars
+ )
+
+ ts_names <- copy(attr(dt, "time.scales"))
+ ts_n <- length(ts_names)
+
+ dt_bl <- lapply(ts_names, function(x) NULL)
+ names(dt_bl) <- ts_names
+ forceLexisDT(dt, breaks = dt_bl, allScales = ts_names)
+
+ br_n <- unlist(sample(as.list(n.breaks), ts_n))
+ names(br_n) <- ts_names
+ BL <- lapply(ts_names, function(ts_name) {
+ runif(n = br_n[[ts_name]], min = -100, max = 100)
+ })
+ names(BL) <- ts_names
+
+ BL <- BL[sample(ts_names, ts_n)]
+
+ split_pop <- splitMulti(dt, breaks = BL, drop = drop)
+ split_epi <- splitMultiEpi(dt, breaks = BL, drop = drop)
+
+ setkeyv(split_epi, c("lex.id", ts_names[1]))
+ setkeyv(split_pop, c("lex.id", ts_names[1]))
+
+ summary_epi <- summarize_Lexis(split_epi)
+ summary_pop <- summarize_Lexis(split_pop)
+
+ eq <- all.equal(summary_pop, summary_epi, check.attributes = FALSE)
+ if (!isTRUE(eq)) {
+ message("split_epi, split_pop not equal in tick ", i, "")
+ neql[[i]] <- mget(c(
+ "drop", "row_n", "ts_n", "ts_names",
+ "dt", "dt_bl", "br_n", "BL",
+ "split_epi", "split_pop", "eq",
+ "summary_epi", "summary_pop",
+ "used_seed"
+ ))
+ }
+ }
+
+ neql[vapply(neql, is.null, logical(1))]
+ neql
+}
+
+
+
+
+
+do_split <- function(x, ts, all.ts, breaks, drop = TRUE, merge = TRUE) {
+
+ ## unfinished v2 splitlexisDT work horse
+ stopifnot(
+ is.integer(x[["lex.id"]])
+ )
+
+ id_dt <- data.table(
+ "orig" = x[["lex.id"]],
+ "temp" = 1:nrow(x)
+ )
+ set(x, j = "lex.id", value = id_dt[["temp"]])
+
+ split <- mget_cols(c(ts, "lex.id", "lex.dur"), x)
+
+ BL <- structure(list(breaks), names = ts)
+ if (drop) {
+ split <- intelliCrop(split, breaks = BL, allScales = all.ts,
+ cropStatuses = TRUE)
+ split <- intelliDrop(x = split, breaks = BL,
+ check = FALSE, dropNegDur = TRUE)
+ }
+ n_subjects <- nrow(split)
+ ts_values <- split[[ts]]
+
+ split <- rbindlist(lapply(1:length(breaks), function(i) get("split")))
+
+ tmp_ie_nm <- makeTempVarName(names = names(x), pre = "do_split_tmp_ie_")
+
+ set(split, j = tmp_ie_nm, value = rep(breaks, each = n_subjects))
+ set(split, j = tmp_ie_nm, value = {
+ pmin(split[[tmp_ie_nm]], split[[ts]] + split[["lex.dur"]])
+ })
+ set(split, j = ts, value = c(
+ ts_values,
+ pmax(ts_values, rep(breaks[-length(breaks)], each = n_subjects))
+ ))
+
+}
+
+
+
+
+
diff --git a/R/startup_message.R b/R/startup_message.R
index d3a096a..4211350 100644
--- a/R/startup_message.R
+++ b/R/startup_message.R
@@ -1,43 +1,43 @@
-
-
-
-
-
-.onAttach <- function(...) {
-
- if (interactive()) {
- msg <- paste0("Using popEpi. See ?popEpi for info and ",
- "news(package = \"popEpi\") for news.")
- packageStartupMessage(msg)
- }
-
- using_r_devel <- grepl(pattern = "devel", x = base::R.version$status)
- if (using_r_devel) {
- ## memory leak problem in data.table 1.11.2 in R-devel (3.6.0 atm)
- requireNamespace("data.table")
- data.table::setDTthreads(threads = 1L)
- }
- invisible(NULL)
-}
-
-
-
-
-
-.onLoad <- function(...) {
- opt <- getOption("popEpi.datatable")
- if (!is.null(opt) && is.logical(opt) && !isTRUE(opt)) {
- warning("Option 'popEpi.datatable' was set to TRUE when loading popEpi.",
- call. = FALSE)
- }
- options("popEpi.datatable" = TRUE)
- invisible(NULL)
-}
-
-
-
-
-
-
-
-
+
+
+
+
+
+.onAttach <- function(...) {
+
+ if (interactive()) {
+ msg <- paste0("Using popEpi. See ?popEpi for info and ",
+ "news(package = \"popEpi\") for news.")
+ packageStartupMessage(msg)
+ }
+
+ using_r_devel <- grepl(pattern = "devel", x = base::R.version$status)
+ if (using_r_devel) {
+ ## memory leak problem in data.table 1.11.2 in R-devel (3.6.0 atm)
+ requireNamespace("data.table")
+ data.table::setDTthreads(threads = 1L)
+ }
+ invisible(NULL)
+}
+
+
+
+
+
+.onLoad <- function(...) {
+ opt <- getOption("popEpi.datatable")
+ if (!is.null(opt) && is.logical(opt) && !isTRUE(opt)) {
+ warning("Option 'popEpi.datatable' was set to TRUE when loading popEpi.",
+ call. = FALSE)
+ }
+ options("popEpi.datatable" = TRUE)
+ invisible(NULL)
+}
+
+
+
+
+
+
+
+
diff --git a/R/survival_aggregated.R b/R/survival_aggregated.R
index 604d939..bfc52ba 100644
--- a/R/survival_aggregated.R
+++ b/R/survival_aggregated.R
@@ -1,898 +1,898 @@
-#' @template survival_doc_template
-#' @param formula a \code{formula}; the response
-#' must be the time scale to compute survival time function estimates
-#' over, e.g. \code{fot ~ sex}. Variables on the right-hand side of the formula
-#' separated by \code{+} are considered stratifying variables, for which
-#' estimates are computed separately. May contain usage of \code{adjust()}
-#' --- see Details and Examples.
-#' @param data since popEpi 0.4.0, a \code{data.frame}
-#' containing variables used in \code{formula} and other arguments.
-#' \code{aggre} objects are recommended as they contain information on any
-#' time scales and are therefore safer; for creating \code{aggre} objects see
-#' \code{\link{as.aggre}} when your data is already aggregated and \code{aggre}
-#' for aggregating split \code{Lexis} objects.
-#'
-#' @param surv.breaks a vector of breaks on the
-#' survival time scale. Optional if \code{data} is an \code{aggre} object
-#' and mandatory otherwise. Must define each intended interval;
-#' e.g. \code{surv.breaks = 0:5} when data has intervals defined by
-#' breaks \code{seq(0, 5, 1/12)} will aggregate to wider intervals first.
-#' It is generally recommended (and sufficient;
-#' see Seppa, Dyban and Hakulinen (2015)) to use monthly
-#' intervals where applicable.
-#'
-#' @param n variable containing counts of subjects at-risk at the start of a
-#' time interval; e.g. \code{n = "at.risk"}.
-#' Required when \code{surv.method = "lifetable"}.
-#' \link[=flexible_argument]{Flexible input}.
-#'
-#' @param d variable(s) containing counts of subjects experiencing an event.
-#' With only one type of event, e.g. \code{d = "deaths"}. With multiple types of
-#' events (for CIF or cause-specific survival estimation), supply e.g.
-#' \code{d = c("canD", "othD")}. If the survival time function to be estimated
-#' does not use multiple types of events, supplying more than one variable
-#' to \code{d} simply causes the variables to be added together.
-#' Always required. \link[=flexible_argument]{Flexible input}.
-#'
-#' @param n.cens variable containing counts of subjects censored during a
-#' survival time interval; E.g. \code{n.cens = "alive"}.
-#' Required when \code{surv.method = "lifetable"}.
-#' \link[=flexible_argument]{Flexible input}.
-
-#' @param pyrs variable containing total subject-time accumulated within a
-#' survival time interval; E.g. \code{pyrs = "pyrs"}.
-#' Required when \code{surv.method = "hazard"}. Flexible input.
-
-#' @param d.exp variable denoting total "expected numbers of events"
-#' (typically computed \code{pyrs * pop.haz}, where
-#' \code{pop.haz} is the expected hazard level)
-#' accumulated within a survival time interval; E.g. \code{pyrs = "pyrs"}.
-#' Required when computing EdererII relative survivals or
-#' CIFs based on excess counts of events. Flexible input.
-
-#' @param n.pp variable containing total Pohar-Perme weighted counts of
-#' subjects at risk in an interval,
-#' supplied as argument \code{n} is supplied.
-#' Computed originally on the subject
-#' level as analogous to \code{pp * as.integer(status == "at-risk")}.
-#' Required when \code{relsurv.method = "pp"}. Flexible input.
-#'
-#' @param d.pp variable(s) containing Pohar-Perme weighted counts of events,
-#' supplied as argument \code{d} is supplied. Computed originally on the subject
-#' level as analogous to \code{pp * as.integer(status == some_event)}.
-#' Required when \code{relsurv.method = "pp"}. Flexible input.
-
-#' @param d.pp.2 variable(s) containing total Pohar-Perme
-#' "double-weighted" counts of events,
-#' supplied as argument \code{d} is supplied. Computed originally on the subject
-#' level as analogous to \code{pp * pp * as.integer(status == some_event)}.
-#' Required when \code{relsurv.method = "pp"}. Flexible input.
-
-#' @param n.cens.pp variable containing total Pohar-Perme weighted counts
-#' censorings,
-#' supplied as argument \code{n.cens} is supplied.
-#' Computed originally on the subject
-#' level as analogous to \code{pp * as.integer(status == "censored")}.
-#' Required when \code{relsurv.method = "pp"}. Flexible input.
-
-#' @param pyrs.pp variable containing total Pohar-Perme weighted subject-times,
-#' supplied as argument \code{pyrs} is supplied.
-#' Computed originally on the subject
-#' level as analogous to \code{pp * pyrs}.
-#' Required when \code{relsurv.method = "pp"}. Flexible input.
-
-#' @param d.exp.pp variable containing total Pohar-Perme weighted counts
-#' of excess events,
-#' supplied as argument \code{pyrs} is supplied.
-#' Computed originally on the subject
-#' level as analogous to \code{pp * d.exp}.
-#' Required when \code{relsurv.method = "pp"}. Flexible input.
-#'
-#'
-#' @section Data requirements:
-#'
-#' \code{survtab_ag} computes estimates of survival time functions using
-#' pre-aggregated data. For using subject-level data directly, use
-#' \code{\link{survtab}}. For aggregating data, see \code{\link{lexpand}}
-#' and \code{\link{aggre}}.
-#'
-#' By default, and if data is an \code{aggre} object (not mandatory),
-#' \code{survtab_ag} makes use of the exact same breaks that were used in
-#' splitting the original data (with e.g. \code{lexpand}), so it is not
-#' necessary to specify any \code{surv.breaks}. If specified, the
-#' \code{surv.breaks} must be a subset of the pertinent
-#' pre-existing breaks. When data is not an \code{aggre} object, breaks
-#' must always be specified. Interval lengths (\code{delta} in output) are
-#' also calculated based on whichever breaks are used,
-#' so the upper limit of the breaks should
-#' therefore be meaningful and never e.g. \code{Inf}.
-#'
-#'
-#' @examples
-#' ## see more examples with explanations in vignette("survtab_examples")
-#'
-#' #### survtab_ag usage
-#'
-#' data("sire", package = "popEpi")
-#' ## prepare data for e.g. 5-year "period analysis" for 2008-2012
-#' ## note: sire is a simulated cohort integrated into popEpi.
-#' BL <- list(fot=seq(0, 5, by = 1/12),
-#' per = c("2008-01-01", "2013-01-01"))
-#' x <- lexpand(sire, birth = bi_date, entry = dg_date, exit = ex_date,
-#' status = status %in% 1:2,
-#' breaks = BL,
-#' pophaz = popmort,
-#' aggre = list(fot))
-#'
-#' ## calculate relative EdererII period method
-#' ## NOTE: x is an aggre object here, so surv.breaks are deduced
-#' ## automatically
-#' st <- survtab_ag(fot ~ 1, data = x)
-#'
-#' summary(st, t = 1:5) ## annual estimates
-#' summary(st, q = list(r.e2 = 0.75)) ## 1st interval where r.e2 < 0.75 at end
-#' \donttest{
-#' plot(st)
-#'
-#'
-#' ## non-aggre data: first call to survtab_ag would fail
-#' df <- data.frame(x)
-#' # st <- survtab_ag(fot ~ 1, data = x)
-#' st <- survtab_ag(fot ~ 1, data = x, surv.breaks = BL$fot)
-#'
-#' ## calculate age-standardised 5-year relative survival ratio using
-#' ## Ederer II method and period approach
-#'
-#' sire$agegr <- cut(sire$dg_age,c(0,45,55,65,75,Inf),right=FALSE)
-#' BL <- list(fot=seq(0, 5, by = 1/12),
-#' per = c("2008-01-01", "2013-01-01"))
-#' x <- lexpand(sire, birth = bi_date, entry = dg_date, exit = ex_date,
-#' status = status %in% 1:2,
-#' breaks = BL,
-#' pophaz = popmort,
-#' aggre = list(agegr, fot))
-#'
-#' ## age standardisation using internal weights (age distribution of
-#' ## patients diagnosed within the period window)
-#' ## (NOTE: what is done here is equivalent to using weights = "internal")
-#' w <- aggregate(at.risk ~ agegr, data = x[x$fot == 0], FUN = sum)
-#' names(w) <- c("agegr", "weights")
-#'
-#' st <- survtab_ag(fot ~ adjust(agegr), data = x, weights = w)
-#' plot(st, y = "r.e2.as", col = c("blue"))
-#'
-#' ## age standardisation using ICSS1 weights
-#' data(ICSS)
-#' cut <- c(0, 45, 55, 65, 75, Inf)
-#' agegr <- cut(ICSS$age, cut, right = FALSE)
-#' w <- aggregate(ICSS1~agegr, data = ICSS, FUN = sum)
-#' names(w) <- c("agegr", "weights")
-#'
-#' st <- survtab_ag(fot ~ adjust(agegr), data = x, weights = w)
-#' lines(st, y = "r.e2.as", col = c("red"))
-#'
-#'
-#' ## cause-specific survival
-#' sire$stat <- factor(sire$status, 0:2, c("alive", "canD", "othD"))
-#' x <- lexpand(sire, birth = bi_date, entry = dg_date, exit = ex_date,
-#' status = stat,
-#' breaks = BL,
-#' pophaz = popmort,
-#' aggre = list(agegr, fot))
-#' st <- survtab_ag(fot ~ adjust(agegr), data = x, weights = w,
-#' d = c("fromalivetocanD", "fromalivetoothD"),
-#' surv.type = "surv.cause")
-#' plot(st, y = "surv.obs.fromalivetocanD.as")
-#' lines(st, y = "surv.obs.fromalivetoothD.as", col = "red")
-#'
-#'
-#' }
-#' @export
-survtab_ag <- function(formula = NULL,
-
- data,
-
- adjust = NULL,
- weights = NULL,
-
- surv.breaks = NULL,
-
- n = "at.risk",
- d = "from0to1",
- n.cens = "from0to0",
- pyrs = "pyrs",
- d.exp = "d.exp",
-
- n.pp = NULL,
- d.pp = "d.pp",
- d.pp.2 = "d.pp.2",
- n.cens.pp = "n.cens.pp",
- pyrs.pp = "pyrs.pp",
- d.exp.pp = "d.exp.pp",
-
- surv.type="surv.rel",
- surv.method="hazard",
- relsurv.method="e2",
-
- subset = NULL,
-
- conf.level = 0.95,
- conf.type = "log-log",
-
- verbose=FALSE) {
-
- if (verbose) starttime <- proc.time()
-
- Tstop <- delta <- Tstart <- surv.int <- n.eff <- n.eff.pp <- surv.obs <-
- lag1_surv.obs <- p.obs <- CIF.rel <- NULL ## APPEASE R CMD CHECK
-
- TF <- environment()
- PF <- parent.frame(1L)
-
- this_call <- match.call()
- used_args <- as.list(this_call)[-1L]
- fl <- formals("survtab_ag")
- used_args <- c(used_args, fl[!names(fl) %in% names(used_args)])
- used_args <- used_args[names(fl)]
- rm(fl)
-
- attrs <- copy(attributes(data))
-
- # check data -----------------------------------------------------------------
- if (missing(data) || nrow(data) == 0) stop("data missing or has no rows")
-
- # check arguments ------------------------------------------------------------
-
- surv.type <- match.arg(surv.type, c("surv.obs","surv.rel","surv.cause", "cif.obs", "cif.rel"))
- surv.method <- match.arg(surv.method, c("lifetable","hazard"))
- relsurv.method <- match.arg(relsurv.method, c("e2", "pp", "EdererII", "Pohar-Perme", "pohar-perme", "edererII", "ederer2"))
- if (relsurv.method %in% c("EdererII", "edererII", "ederer2")) relsurv.method <- "e2"
- if (relsurv.method %in% c("Pohar-Perme", "pohar-perme")) relsurv.method <- "pp"
- relsurv.method <- match.arg(relsurv.method, c("e2", "pp"))
- conf.type <- match.arg(conf.type, c("log","log-log","plain"))
-
-
- ## argument 'formula' pre-check ----------------------------------------------
- if (!(inherits(formula, "formula") && length(formula) == 3L)) {
- stop("Argument 'formula' does not appear to be a two-sided formula. ",
- "Usage: e.g. fot ~ sex")
- }
- surv.scale <- deparse(formula[[2]])
- if (!surv.scale %in% names(data)) {
- stop("Left-hand-side of formula must be a column in data; e.g. ",
- "fot ~ sex, where 'fot' is the name of a column in data.")
- }
-
- ## check breaks --------------------------------------------------------------
-
- surv.breaks <- select_breaks(data = data, ts = surv.scale, br = surv.breaks)
- surv.breaks <- sort(unique(surv.breaks))
- # if (!breaks_in_data(surv.breaks, surv.scale, data)) {
- # stop("Used breaks do not all appear to exist in data. Make sure the ",
- # "breaks match to the values that your time scale variable has in the ",
- # "data.")
- # }
-
- # data prep & subsetting -----------------------------------------------------
- subset <- substitute(subset)
- subset <- evalLogicalSubset(data, subset)
-
- origData <- data
-
- data <- data[subset, ]
- setDT(data)
-
- # handle count etc. variables ------------------------------------------------
-
- valVars <- c("d")
- valVars <- c(valVars, if (surv.method == "hazard") "pyrs" else c("n", "n.cens"))
-
- valVars <- c(valVars, if (surv.type == "surv.rel" && relsurv.method == "e2") "d.exp" else NULL)
-
- valVars <- c(valVars, if (surv.type == "cif.rel") "d.exp" else NULL)
-
- ppVars <- c("d.pp", "d.exp.pp", "d.pp.2",
- if (surv.method == "hazard") "pyrs.pp" else c("n.cens.pp", "n.pp"))
- valVars <- c(valVars, if (surv.type == "surv.rel" && relsurv.method == "pp") ppVars else NULL)
-
- fo <- formals("survtab_ag")
- mc <- as.list(match.call())[-1]
- mc <- c(mc, fo[!names(fo) %in% names(mc)])
-
- mc <- mc[valVars]
-
-
- mc <- lapply(mc, function(elem) {
- evalPopArg(data = data, arg = elem, DT = TRUE, enclos = PF, recursive = TRUE)
- })
-
-
- ## if given as multiple vars, combine these into one (e.g. n = c("v1", "v2"))
- combValVars <- c("n", "n.cens", "d.exp", "d.pp", "d.exp.pp", "d.pp.2",
- "pyrs", "pyrs.pp", "n.cens.pp", "n.pp")
- combValVars <- intersect(names(mc), combValVars)
- mc[combValVars] <- lapply(combValVars, function(val_var) {
- tab <- mc[[val_var]]
- if (!is.data.frame(tab) || length(tab) == 1L) return(tab)
- tab_na <- names(tab)
- e <- paste0(tab_na, collapse = " + ")
- e <- parse(text = e)
- tab <- data.table(V1 = tab[, eval(e)])
- setnames(tab, "V1", val_var)
- tab
- })
-
- ## NOTE: this does not delete but sets the value to NULL.
- mc[unlist(lapply(mc, function(x) {
- NROW(x) == 0L || is.null(x) || is.language(x) || inherits(x, "try-error")
- }))] <- NULL
-
- lackVars <- setdiff(valVars, names(mc[!unlist(lapply(mc, is.null))]))
- if (length(lackVars) > 0) {
- stop("Following arguments were NULL or could not be evaluated but are ",
- "required: ", paste0("'", lackVars, "'", collapse = ", "), ". ",
- "Usual suspects: arguments are NULL or refer to variables that ",
- "cannot be found in data.")
- }
-
- eventVars <- NULL
- mc[[1]] <- data.table(mc[[1L]]) ## this avoids an exotic error in set().
- nl <- lapply(mc, names)
- for (k in 1:length(mc)) {
- jay <- argName <- names(mc[k])
- cn <- names(mc[[k]])
-
- if (length(cn) > 1) jay <- paste0(jay, ".", cn) ## e.g. d.1, d.2, ...
- if (argName %in% c("d")) {
- eventVars <- jay
- if (surv.type %in% c("surv.cause") && length(cn) == 1L) {
- stop("surv.type = 'surv.cause', but only one type of event supplied ",
- "via argument 'd'. If you want to compute cause-specific ",
- "survivals, please supply multiple types of events via ",
- "'d'; otherwise use surv.type = 'surv.obs'")
- } else if (length(cn) > 1 && !argName %in% c("d","d.pp", "d.pp.2", "n.pp")) {
- stop("'", argName, "' has/evaluates to ", length(cn),
- " columns; only 'd', 'd.pp', and 'd'pp.2', 'n.pp' may evaluate ",
- "to more than one column of the value arguments")
- }
-
- }
-
- setnames(mc[[k]], cn, jay)
- set(mc[[1]], j = jay, value = mc[[k]])
- nl[[argName]] <- jay
- }
- mc <- mc[[1]]
-
- if (!is.null(eventVars)) {
- set(mc, j = "d", value = rowSums(mc[, mget(eventVars)]))
- valVars <- unique(c(valVars, "d", eventVars))
- }
-
-
- all_names_present(mc, valVars,
- msg = paste0("Expected internal temp data to have ",
- "variables %%VARS%% at this point, but didn't",
- ". This is most likely a bug and should be ",
- "reported to pkg maintainer."))
- setcolorder(mc, valVars)
-
- ## addition: internal weights use n at beginning of first interval
-
- if (is.character(weights)) {
- checkWeights(weights)
- if (!"n" %in% valVars) {
- n <- substitute(n)
- mc$n <- evalPopArg(n, data = data, enclos = PF)
-
- valVars <- unique(c(valVars, "n"))
-
- if (is.null(mc$n)) {
-
- stop("Requested internal weights to be computed and used to standardize ",
- "estimates, but argument 'n' not supplied. This is currently ",
- "required for computing internal weights (the values of 'n' ",
- "in the first interval will be used for this). Please supply 'n' ",
- "or supply hand-made weights (preferred for your clarity).")
- }
- }
-
- data[, c("n") := mc$n]
-
- }
-
-
- # making weighted table of aggregated values ---------------------------------
- ## NOTE: at-risk counts require special treatment when surv.breaks
- ## are a subset of the available breaks: cannot sum at-risk figures!
- ## instead should simply pick the value at the start of the
- ## (now larger) interval. Will accomplish this by setting values not
- ## at the start of an interval to zero and summing anyway.
- if (surv.method == "lifetable") {
- wh_internal <- list(surv.breaks)
- names(wh_internal) <- surv.scale
- wh_internal <- data[wh_internal, on = eval(surv.scale), which = TRUE]
- wh_internal <- setdiff(1:nrow(data), wh_internal)
- mc[wh_internal, intersect(c("n", "n.pp"), names(mc)) := 0L]
- }
-
- ## NOTE: while ssSub will pass the whole column of e.g. fot values, which will
- ## not limit the data to e.g. up 5 years of follow-up if original data went
- ## further, surv.breaks may be only up to 5 years and will limit the data
- ## in makeWeightsDT using a CJ-merge-trick appropriately (via custom.levels).
- bl <- list(surv.breaks)
- setattr(bl, "names", surv.scale)
-
- adjust <- evalPopArg(data, adjust, enclos = PF, naming = "model")
-
- iws <- NULL
- if (is.character(weights) && pmatch(weights, c("internal", "cohort"), 0)) {
- if (!"n" %in% names(data)) {
- stop("Need 'n' specified for when using internal weights: Internal ",
- "weights are computed as the counts of subjects at the start of ",
- "follow-up.")
- }
- iws <- makeTempVarName(data, pre = "internal_weights_")
- data[, c(iws) := 0.0]
- data[data[[surv.scale]] == surv.breaks[1], c(iws) := n]
- }
-
- data <- makeWeightsDT(data = data, values = list(mc), enclos = PF,
- print = NULL, formula = formula, adjust = adjust,
- by.other = surv.scale, Surv.response = FALSE,
- custom.levels = bl, weights = weights,
- internal.weights.values = iws,
- custom.levels.cut.low = surv.scale)
-
- allVars <- attr(data, "makeWeightsDT")
- allVars[] <- lapply(allVars, function(x) if (length(x) == 0L) NULL else x)
- prVars <- allVars$prVars
- adVars <- allVars$adVars
- # boVars <- allVars$boVars ## this is surv.scale
- valVars <- allVars$vaVars
-
- ## to avoid e.g. 'factor(sex, 1:2)' going bonkers
- prVars_orig <- prVars
- if (length(prVars) > 0L) {
- prVars <- makeTempVarName(names = c(names(data), adVars),
- pre = paste0("print_", 1:length(prVars)))
- }
- adVars_orig <- adVars
- if (length(adVars) > 0L) {
- adVars <- makeTempVarName(names = c(names(data), prVars),
- pre = paste0("print_", 1:length(adVars)))
- }
- if (length(c(prVars, adVars))) setnames(data, c(prVars_orig, adVars_orig), c(prVars, adVars))
- byVars <- c(prVars, adVars)
-
- # formulate some needed variables --------------------------------------------
- setkeyv(data, c(byVars, surv.scale))
- data[, "Tstop" := rep(surv.breaks[-1],length.out=.N)]
- setnames(data, surv.scale, "Tstart")
- data[, "delta" := Tstop - Tstart]
- data[, "surv.int" := 1:.N, by = eval(byVars)]
- setcolorder(data, c(byVars, "surv.int", "Tstart", "Tstop", "delta", valVars, intersect(names(data), "weights")))
-
- if (surv.method == "lifetable") {
- testEvents <- data[, n - shift(n, n = 1, type = "lead", fill = NA), by = eval(byVars)]$V1
- testEvents <- data$n.cens + data$d - testEvents
-
- if (sum(abs(testEvents), na.rm = TRUE)) {
- on.exit({
-
- data[, "n.cens + d - (n-lead1_n)" := testEvents]
- wh <- testEvents != 0L
- wh <- wh & !is.na(wh)
- if (interactive()) {
- printSD <- c(byVars, "Tstop", "d", "n", "n.cens",
- "n.cens + d - (n-lead1_n)")
- print(data[wh, .SD, .SDcols = printSD], top = 5, nrow = 10)
-
- }
-
- }, add = TRUE)
-
- stop("Supplied n.cens and d do not sum to total number of events and ",
- "censorings based on n alone. Note that lifetable analysis ",
- "is currently not supported for period analysis (or other ",
- "comparable limitations of data).",
- if (interactive())" See table below and check your variables.")
- }
- rm(testEvents)
- data[, "n.eff" := n - n.cens/2L]
- }
-
-
- # compute observed survivals ------------------------------------------------
- if (verbose) ostime <- proc.time()
-
- if (surv.method=="lifetable") {
- comp.st.surv.obs.lif(surv.table = data, surv.by.vars = byVars)
- }
- if (surv.method=="hazard") {
- comp.st.surv.obs.haz(surv.table = data, surv.by.vars = byVars)
- }
-
- data <- comp.st.conf.ints(data, al=1-conf.level, surv="surv.obs", transform = conf.type)
-
- if (verbose) {
- message("* popEpi::survtab_ag: computed observed survival estimates; ",
- data.table::timetaken(ostime))
- }
-
- ## empty surv.int checking ---------------------------------------------------
- testVar <- if (surv.method == "lifetable") "n" else "pyrs"
- ## sum over adjusting variables
- data <- test_empty_surv_ints(data, by = c(prVars, adVars),
- show.by = c(prVars_orig, adVars_orig),
- sum.over = adVars,
- test.var = testVar)
-
- ## sum over nothing
- if (length(adVars) > 0L) {
- data <- test_empty_surv_ints(data, by = c(prVars, adVars),
- show.by = c(prVars_orig, adVars_orig),
- sum.over = NULL, test.var = testVar)
- }
-
- ## if adjusting, crop all estimates by adjusting variables
- ## to shortest estimate
- if (length(adVars)) {
- adLe <- data[, list(min = min(surv.int), max = max(surv.int)), keyby = eval(adVars)]
- adLe <- c(max(adLe$min), min(adLe$max))
- data <- data[surv.int %in% `:`(adLe[1L], adLe[2L])]
- }
-
- # create and print table of bad surv.ints ------------------------------------
-
- badObsSurv <- data$surv.obs == 0 | is.na(data$surv.obs)
- if (sum(badObsSurv)) {
-
- zerotab <- data[badObsSurv,
- list(first.bad.surv.int = min(as.integer(surv.int)),
- last.bad.surv.int = max(as.integer(surv.int)),
- surv.obs=min(surv.obs)), keyby = eval(byVars)]
-
-
- message("* popEpi::survtab_ag: Some cumulative surv.obs were zero or NA:")
- if (length(byVars)) setnames(zerotab, c(prVars, adVars), c(prVars_orig, adVars_orig))
- print(zerotab)
- if (surv.method == "lifetable" && data[surv.obs == 0, .N] > 0) {
- message("* popEpi::survtab_ag: NOTE: Zero surv.obs leads to zero ",
- "relative survivals as well. Adjusting with weights WILL use ",
- "the zero surv.obs / relative survival values.")
- }
-
- }
- rm(badObsSurv)
-
- # compute cause-specific survivals ------------------------------------------
- if (surv.type == "surv.cause") {
-
- ## NOTE: these related to adjusting life-table estimates for delayed entry...
- # data[, "n.eff" := n - n.cens/2 + n.de/2 + n.de.cens/4] # + d.de/2
- # "n.cens_1" := n.cens + (d-d_1)
- # "n.de.cens" := n.de.cens + (d.de - d.de_1)
-
- if (surv.method == "lifetable") {
- for (k in eventVars) {
- k <- gsub(pattern = "d_", replacement = "", x = k)
- d_k <- paste0("d_", k)
- # d.de_k <- paste0("d.de_",k)
-
- n.eff_k <- paste0("n.eff_",k)
-
- ## old: " := n - (n.cens + (d-", d_k,")/2 + n.de/2 + (n.de.cens + d.de - ", d.de_k,")/4 )"
- # expr <- paste0(n.eff_k, " := n - (n.cens + (d-", d_k,")/2 )")
-
- set(data, j = c(n.eff_k), value = data$n.eff + (data$d - data[[d_k]])/2L ) # + d.de/2
- # data[, eval(parse(text = expr), envir = .SD)]
-
- }
-
- }
-
- surv_names <- names(data)[grep("surv.obs", names(data))]
- surv_names <- c("d", if (surv.method == "lifetable") "n.eff" else NULL, surv_names)
- setnames(data, surv_names, paste0(surv_names, ".orig"))
-
- for (k in eventVars) {
-
- k <- gsub(pattern = "d.", replacement = "", x = k)
- setnames(data, paste0("d.",k), "d")
-
- if (surv.method=="hazard") {
- comp.st.surv.obs.haz(surv.table = data, surv.by.vars = byVars)
- } else {
- setnames(data, paste0("n.eff_", k), "n.eff")
- comp.st.surv.obs.lif(surv.table = data, surv.by.vars = byVars)
- }
- os.table <- comp.st.conf.ints(data, al=1-conf.level, surv="surv.obs", transform = conf.type)
-
- new_surv_names <- setdiff(surv_names, c("d", if (surv.method == "lifetable") "n.eff" else NULL))
- new_surv_names <- gsub("surv.obs", paste0("surv.obs.", k), new_surv_names)
- new_surv_names <- c(paste0(c("d.", if (surv.method == "lifetable") "n.eff." else NULL), k), new_surv_names)
- setnames(data, surv_names, new_surv_names)
-
-
- }
- setnames(data, paste0(surv_names, ".orig"), surv_names)
- }
-
- # compute cause-specific/excess-case CIFs ------------------------------------
- if (surv.type %in% c("cif.obs", "cif.rel")) {
-
- data[, "lag1_surv.obs" := shift(surv.obs, n = 1L, type = "lag", fill = 1), by = eval(byVars)]
- data[, "p.obs" := surv.obs/lag1_surv.obs]
-
- if (surv.type == "cif.obs") {
- for (k in eventVars) {
-
- k <- gsub("d.", "", x = k)
- d.k <- paste0("d.", k)
-
- d.var <- paste0("d.",k)
- q.var <- paste0("q.", k)
- CIF_var <- paste0("CIF_", k)
- data[, (q.var) := (1-p.obs)*get(d.var)/d]
- data[get(d.var) == 0L | d == 0L, (q.var) := 0]
- data[, (CIF_var) := cumsum(lag1_surv.obs*get(q.var)), by = eval(byVars)]
- }
- }
-
- if (surv.type == "cif.rel") {
- ## assuming d.exp in data
- data[, "CIF.rel" := (1-p.obs)*(d-d.exp)/d]
- data[d.exp>d, "CIF.rel" := NA]
- data[, "CIF.rel" := cumsum(lag1_surv.obs*CIF.rel), by = eval(byVars)]
- }
-
- ## SEs currently not known for CIFs; impute 0 to make adjusting work
- CIF_vars <- names(data)[substr(names(data),1,3) == "CIF"]
- data[, c(paste0("SE.", CIF_vars)) := 0L]
-
- setcolsnull(data, c("lag1_surv.obs", "p.obs", paste0("q.", substr(eventVars, 3, nchar(eventVars)))))
-
- }
-
-
- # relative survivals ---------------------------------------------------------
- if (surv.type == "surv.rel" & relsurv.method == "e2") {
-
- # compute r.e2 -------------------------------------------------------------
- comp.st.rs <- function(rs.table, rs.by.vars = byVars) {
-
- p.exp <- delta <- surv.exp <- surv.obs <- n.eff.pp <-
- surv.obs <- NULL ## APPEASE R CMD CHECK
- ## EdererII
-
- ##-------------
- if (surv.method == "hazard") {
- rs.table[, "p.exp" := exp(-delta*d.exp/pyrs)]
- rs.table[, "surv.exp" := cumprod(p.exp), by = eval(rs.by.vars)]
- comp.st.r.e2.haz(surv.table = rs.table, surv.by.vars = rs.by.vars)
- } else {
- rs.table[, "p.exp" := 1 - d.exp/n]
- rs.table[, "surv.exp" := cumprod(p.exp), by = eval(rs.by.vars)]
-
- if (rs.table[, min(surv.obs, na.rm=TRUE) == 0]) {
- rs.table[surv.obs == 0, "surv.exp" := 1]
- }
-
- comp.st.r.e2.lif(surv.table = rs.table, surv.by.vars = rs.by.vars)
-
- if (rs.table[, min(surv.obs, na.rm=TRUE) == 0]) {
- rs.table[surv.obs == 0, intersect(c("surv.exp","r.e2","SE.r.e2","r.e2.lo","r.e2.hi"), names(rs.table)) := 0]
- }
- }
-
- ## ------------
-
- rs.table <- comp.st.conf.ints(rs.table, al=1-conf.level, surv="r.e2", transform = conf.type)
-
- return(rs.table)
- }
-
- data <- comp.st.rs(rs.table = data)
-
-
- }
-
- # compute r.pp ---------------------------------------------------------------
- if (surv.type == "surv.rel" & relsurv.method == "pp") {
-
- all_names_present(data, c("d.pp", "d.exp.pp", "d.pp.2"))
- ## pohar perme: analysis weighted by expected cumulative survival
- comp.st.pp <- function(pp.table, by.vars = byVars) {
- ## relative survival
- if (surv.method == "hazard") {
- all_names_present(data, c("pyrs.pp"),
- msg = paste0("internal error: work data did not have",
- " variable named pyrs.pp. Complain ",
- "to package maintainer if you see this."))
- comp.st.r.pp.haz(surv.table = pp.table, surv.by.vars = by.vars)
- } else {
- data[, "n.eff.pp" := n.pp - 0.5*n.cens.pp]
- all_names_present(data, c("n.pp", "n.cens.pp", "n.eff.pp"),
- msg = paste0("internal error: work data did not have",
- " variable named n.eff.pp. Complain ",
- "to package maintainer if you see this."))
- comp.st.r.pp.lif(surv.table = pp.table, surv.by.vars = by.vars)
-
- if (pp.table[, min(surv.obs, na.rm=TRUE) == 0]) {
- pp.table[surv.obs == 0, intersect(c("r.pp","SE.r.pp","r.pp.lo","r.pp.hi"), names(pp.table)) := 0]
- }
- }
-
- pp.table <- comp.st.conf.ints(pp.table, al=1-conf.level, surv="r.pp", transform = conf.type )
-
- return(pp.table)
- }
- data <- comp.st.pp(pp.table = data)
- }
-
- # compute adjusted estimates -------------------------------------------------
- if ("weights" %in% names(data)) {
- w_est_vars <- names(data)[substr(names(data), 1, 8) == "surv.obs"]
- w_est_vars <- c(w_est_vars, "r.e2", "r.pp")
- w_est_vars <- c(w_est_vars, names(data)[substr(names(data),1,3)=="CIF"])
- w_est_vars <- intersect(w_est_vars, names(data))
- w_est_vars <- w_est_vars[unlist(lapply(w_est_vars, function(x) {
- !substr(x, nchar(x)-2L, nchar(x)) %in% c(".lo", ".hi")
- }))]
- w_se_vars <- paste0("SE.", w_est_vars)
-
- w_est <- data[, lapply(.SD, function(x) sum(x*weights)),
- keyby = c(prVars, "surv.int"), .SDcols = w_est_vars]
- w_se <- data[, lapply(.SD, function(x) sqrt(sum((x^2)*(weights^2)))),
- keyby = c(prVars, "surv.int"), .SDcols = w_se_vars]
-
- data <- data[, lapply(mget(valVars), sum),
- keyby = c(prVars, "surv.int", "Tstart", "Tstop", "delta")]
- set(data, j = w_se_vars, value = mget(w_se_vars, as.environment(w_se)))
- set(data, j = w_est_vars, value = mget(w_est_vars, as.environment(w_est)))
-
- setnames(data, old = c(w_est_vars, w_se_vars),
- new = paste0(c(w_est_vars, w_se_vars), ".as"))
-
- for (var in paste0(w_est_vars, ".as")) {
- data <- comp.st.conf.ints(data, al = 1-conf.level,
- surv = var, transform = conf.type)
- }
-
-
- }
-
- # clean-up -------------------------------------------------------------------
- ## back to original names of print / adjust (used to avoid e.g.
- ## 'factor(V1, 1:2)' going bonkers in data.table)
- if (length(c(prVars))) setnames(data, c(prVars), c(prVars_orig))
- prVars <- prVars_orig
- adVars <- adVars_orig
-
- ## reorder table, format numeric values, etc.
-
- miscVars <- intersect(names(data), c("surv.int", "Tstart", "Tstop", "delta"))
-
- survVars <- c("surv.obs.lo","surv.obs","surv.obs.hi","SE.surv.obs",
- "r.e2.lo","r.e2","r.e2.hi","SE.r.e2",
- "r.pp.lo","r.pp","r.pp.hi","SE.r.pp",
- paste0("CIF.rel.", c("lo", "", "hi")), "SE.CIF.rel",
- "surv.obs.as.lo","surv.obs.as","surv.obs.as.hi","SE.surv.obs.as",
- "r.e2.as.lo","r.e2.as","r.e2.as.hi","SE.r.e2.as",
- "r.pp.as.lo","r.pp.as","r.pp.as.hi","SE.r.pp.as",
- paste0("CIF.rel.as.", c("lo", "", "hi")), "SE.CIF.rel.as"
- )
- survVars <- intersect(survVars, names(data))
-
- ## which variables are estimates, SEs, CIs, etc.
- survVars.ca <- setdiff(names(data), c(prVars, valVars, miscVars, survVars))
- CIF_vars <- survVars.ca[substr(survVars.ca, 1,3)=="CIF" | substr(survVars.ca, 1,6)=="SE.CIF"]
- survVars <- c(survVars, CIF_vars)
-
- surv.obs.vars <- survVars.ca[substr(survVars.ca, 1,8) == "surv.obs" | substr(survVars.ca, 1,11) == "SE.surv.obs"]
- survVars <- c(survVars, surv.obs.vars)
-
- survVars <- unique(intersect(survVars, names(data)))
-
- ## remove some unuseful variables
- setcolsnull(data, c("SE.A", "SE.B"))
- setcolsnull(data, survVars[substr(survVars, 1, 6) == "SE.CIF"]) ## since they are zero for now
- survVars <- intersect(survVars, names(data))
-
- SEVars <- survVars[substr(survVars, 1, 3) == "SE."]
- CIVars <- survVars[substr(survVars, nchar(survVars) - 2L, nchar(survVars)) %in% c(".lo", ".hi")]
- estVars <- setdiff(survVars, c(SEVars, CIVars))
-
- order <- unique(c(prVars, miscVars, valVars, survVars))
- order <- intersect(order, names(data))
-
- setcolsnull(data, setdiff(names(data), order))
- setcolorder(data,order)
-
- setkeyv(data, c(prVars, "surv.int"))
-
- # attributes -----------------------------------------------------------------
- setkeyv(data, c(prVars, "surv.int"))
- setattr(data, "class", c("survtab", "data.table", "data.frame"))
- if (!return_DT()) setDFpe(data)
- if (length(prVars) == 0) prVars <- NULL ## might be character(0)
-
- used_args$data <- origData
- used_args$formula <- formula
- used_args$weights <- evalRecursive(arg = weights, env = PF)$weights
-
- arglist <- list(call = this_call,
- arguments = used_args,
- surv.scale = surv.scale,
- surv.breaks = surv.breaks,
- print.vars = prVars,
- adjust.vars = adVars,
- value.vars = valVars,
- misc.vars = miscVars,
- surv.vars = survVars,
- est.vars = estVars,
- SE.vars = SEVars,
- CI.vars = CIVars)
- varsArgs <- substr(names(arglist), nchar(names(arglist))-4L, nchar(names(arglist))) == ".vars"
- varsArgs <- names(arglist)[varsArgs]
- arglist[varsArgs] <- lapply(arglist[varsArgs], function(x) if (length(x) == 0L) NULL else x)
-
- setattr(data, "survtab.meta", arglist)
-
- if (verbose) {
- message("* popEpi::survtab_ag: finished whole process; ",
- data.table::timetaken(starttime))
- }
- data[]
-}
-
-
-# ag <- lexpand(sire, birth = "bi_date", entry = "dg_date", exit = "ex_date",
-# status = status %in% 1:2, pophaz = popmort, pp = TRUE,
-# aggre = list(sex, fot), fot = seq(0, 5, 1/12))
-# ag[, d.exp := pmax(0L, from0to1 - 3L)]
-# st <- survtab_ag(ag, surv.type = "surv.obs", surv.method = "hazard")
-# st <- survtab_ag(ag, surv.type = "surv.cause", surv.method = "hazard", d = list(a = from0to1-3, b = 3))
-
-# sire <- copy(sire)
-# sire$sex <- rbinom(nrow(sire), size = 1, prob = 0.5)
-# ag <- lexpand(sire, birth = "bi_date", entry = "dg_date", exit = "ex_date",
-# status = status %in% 1:2, pophaz = popmort, pp = TRUE,
-# aggre = list(sex, agegr = cut(dg_age, c(0,60,70,80, Inf), labels = FALSE), fot),
-# fot = seq(0, 5, 1/12))
-# ag <- lexpand(sire, birth = "bi_date", entry = "bi_date", exit = "ex_date",
-# status = status %in% 1:2,
-# aggre = list(sex, age),
-# age = seq(0, 100, 1))
-# wdt <- data.table(agegr = 1:4, weights = c(0.2, 0.4, 0.3, 0.1))
-# wli <- list(agegr = c(0.2, 0.4, 0.3, 0.1))
-# st <- survtab_ag(fot ~ sex + adjust(agegr), data = ag, surv.type = "surv.obs", surv.method = "hazard", weights = wli)
-# st <- survtab_ag(fot ~ sex + adjust(agegr), data = ag, surv.type = "surv.rel",
-# d.pp = "from0to1.pp", d.pp.2 = "from0to1.pp.2",
-# d.exp.pp = "d.exp.pp", pyrs.pp = "ptime.pp",
-# surv.method = "hazard", weights = wli,
-# relsurv.method = "pp")
-# ag <- lexpand(sire, birth = "bi_date", entry = "dg_date", exit = "ex_date",
-# status = status, pophaz = popmort, pp = TRUE,
-# aggre = list(sex, agegr = cut(dg_age, c(0,60,70,80, Inf), labels = FALSE), fot),
-# fot = seq(0, 5, 1/12))
-# st <- survtab_ag(fot ~ sex + adjust(agegr), data = ag,
-# d = list(cand = from0to1, othd = from0to2),
-# surv.type = "surv.cause", weights = wli)
-# st <- survtab_ag(fot ~ sex, data = ag, surv.type = "surv.obs", surv.method = "hazard", adjust = "agegr", weights = wli)
-# st <- survtab_ag(fot ~ adjust(agegr), data = ag, surv.type = "surv.obs", weights = wli)
-# st <- survtab_ag(fot ~ 1, data = ag, adjust = "agegr", surv.type = "surv.obs", weights = wli)
-# st <- survtab_ag(fot ~ 1, data = ag, adjust = "agegr", surv.type = "surv.obs", weights = wli)
-# st <- survtab_ag(fot ~ 1, data = ag, surv.type = "surv.obs")
-
-# wli2 <- wli
-# wli$sex <- c(0.4, 0.6)
-# st <- survtab_ag(fot ~ adjust(sex, agegr), data = ag, surv.type = "surv.obs", weights = wli)
-# st <- survtab_ag(fot ~ adjust(agegr), data = ag, surv.type = "surv.obs", weights = wli["agegr"])
-# ag[, d.exp := pmax(from0to1 - 1, 0L)]
-# st <- survtab_ag(fot ~ adjust(sex, agegr), data = ag, surv.type = "surv.rel", weights = wli)
-# st <- survtab_ag(fot ~ adjust(sex, agegr), data = ag, surv.type = "surv.cause", weights = wli)
-# ag[, othd := pmax(from0to1 - 1L, 0L)]
-# st <- survtab_ag(fot ~ adjust(sex, agegr), data = ag, d = list(cand = from0to1, othd = pmax(from0to1-1L, 0L)), surv.type = "surv.cause", weights = wli)
-
+#' @template survival_doc_template
+#' @param formula a \code{formula}; the response
+#' must be the time scale to compute survival time function estimates
+#' over, e.g. \code{fot ~ sex}. Variables on the right-hand side of the formula
+#' separated by \code{+} are considered stratifying variables, for which
+#' estimates are computed separately. May contain usage of \code{adjust()}
+#' --- see Details and Examples.
+#' @param data since popEpi 0.4.0, a \code{data.frame}
+#' containing variables used in \code{formula} and other arguments.
+#' \code{aggre} objects are recommended as they contain information on any
+#' time scales and are therefore safer; for creating \code{aggre} objects see
+#' \code{\link{as.aggre}} when your data is already aggregated and \code{aggre}
+#' for aggregating split \code{Lexis} objects.
+#'
+#' @param surv.breaks a vector of breaks on the
+#' survival time scale. Optional if \code{data} is an \code{aggre} object
+#' and mandatory otherwise. Must define each intended interval;
+#' e.g. \code{surv.breaks = 0:5} when data has intervals defined by
+#' breaks \code{seq(0, 5, 1/12)} will aggregate to wider intervals first.
+#' It is generally recommended (and sufficient;
+#' see Seppa, Dyban and Hakulinen (2015)) to use monthly
+#' intervals where applicable.
+#'
+#' @param n variable containing counts of subjects at-risk at the start of a
+#' time interval; e.g. \code{n = "at.risk"}.
+#' Required when \code{surv.method = "lifetable"}.
+#' \link[=flexible_argument]{Flexible input}.
+#'
+#' @param d variable(s) containing counts of subjects experiencing an event.
+#' With only one type of event, e.g. \code{d = "deaths"}. With multiple types of
+#' events (for CIF or cause-specific survival estimation), supply e.g.
+#' \code{d = c("canD", "othD")}. If the survival time function to be estimated
+#' does not use multiple types of events, supplying more than one variable
+#' to \code{d} simply causes the variables to be added together.
+#' Always required. \link[=flexible_argument]{Flexible input}.
+#'
+#' @param n.cens variable containing counts of subjects censored during a
+#' survival time interval; E.g. \code{n.cens = "alive"}.
+#' Required when \code{surv.method = "lifetable"}.
+#' \link[=flexible_argument]{Flexible input}.
+
+#' @param pyrs variable containing total subject-time accumulated within a
+#' survival time interval; E.g. \code{pyrs = "pyrs"}.
+#' Required when \code{surv.method = "hazard"}. Flexible input.
+
+#' @param d.exp variable denoting total "expected numbers of events"
+#' (typically computed \code{pyrs * pop.haz}, where
+#' \code{pop.haz} is the expected hazard level)
+#' accumulated within a survival time interval; E.g. \code{pyrs = "pyrs"}.
+#' Required when computing EdererII relative survivals or
+#' CIFs based on excess counts of events. Flexible input.
+
+#' @param n.pp variable containing total Pohar-Perme weighted counts of
+#' subjects at risk in an interval,
+#' supplied as argument \code{n} is supplied.
+#' Computed originally on the subject
+#' level as analogous to \code{pp * as.integer(status == "at-risk")}.
+#' Required when \code{relsurv.method = "pp"}. Flexible input.
+#'
+#' @param d.pp variable(s) containing Pohar-Perme weighted counts of events,
+#' supplied as argument \code{d} is supplied. Computed originally on the subject
+#' level as analogous to \code{pp * as.integer(status == some_event)}.
+#' Required when \code{relsurv.method = "pp"}. Flexible input.
+
+#' @param d.pp.2 variable(s) containing total Pohar-Perme
+#' "double-weighted" counts of events,
+#' supplied as argument \code{d} is supplied. Computed originally on the subject
+#' level as analogous to \code{pp * pp * as.integer(status == some_event)}.
+#' Required when \code{relsurv.method = "pp"}. Flexible input.
+
+#' @param n.cens.pp variable containing total Pohar-Perme weighted counts
+#' censorings,
+#' supplied as argument \code{n.cens} is supplied.
+#' Computed originally on the subject
+#' level as analogous to \code{pp * as.integer(status == "censored")}.
+#' Required when \code{relsurv.method = "pp"}. Flexible input.
+
+#' @param pyrs.pp variable containing total Pohar-Perme weighted subject-times,
+#' supplied as argument \code{pyrs} is supplied.
+#' Computed originally on the subject
+#' level as analogous to \code{pp * pyrs}.
+#' Required when \code{relsurv.method = "pp"}. Flexible input.
+
+#' @param d.exp.pp variable containing total Pohar-Perme weighted counts
+#' of excess events,
+#' supplied as argument \code{pyrs} is supplied.
+#' Computed originally on the subject
+#' level as analogous to \code{pp * d.exp}.
+#' Required when \code{relsurv.method = "pp"}. Flexible input.
+#'
+#'
+#' @section Data requirements:
+#'
+#' \code{survtab_ag} computes estimates of survival time functions using
+#' pre-aggregated data. For using subject-level data directly, use
+#' \code{\link{survtab}}. For aggregating data, see \code{\link{lexpand}}
+#' and \code{\link{aggre}}.
+#'
+#' By default, and if data is an \code{aggre} object (not mandatory),
+#' \code{survtab_ag} makes use of the exact same breaks that were used in
+#' splitting the original data (with e.g. \code{lexpand}), so it is not
+#' necessary to specify any \code{surv.breaks}. If specified, the
+#' \code{surv.breaks} must be a subset of the pertinent
+#' pre-existing breaks. When data is not an \code{aggre} object, breaks
+#' must always be specified. Interval lengths (\code{delta} in output) are
+#' also calculated based on whichever breaks are used,
+#' so the upper limit of the breaks should
+#' therefore be meaningful and never e.g. \code{Inf}.
+#'
+#'
+#' @examples
+#' ## see more examples with explanations in vignette("survtab_examples")
+#'
+#' #### survtab_ag usage
+#'
+#' data("sire", package = "popEpi")
+#' ## prepare data for e.g. 5-year "period analysis" for 2008-2012
+#' ## note: sire is a simulated cohort integrated into popEpi.
+#' BL <- list(fot=seq(0, 5, by = 1/12),
+#' per = c("2008-01-01", "2013-01-01"))
+#' x <- lexpand(sire, birth = bi_date, entry = dg_date, exit = ex_date,
+#' status = status %in% 1:2,
+#' breaks = BL,
+#' pophaz = popmort,
+#' aggre = list(fot))
+#'
+#' ## calculate relative EdererII period method
+#' ## NOTE: x is an aggre object here, so surv.breaks are deduced
+#' ## automatically
+#' st <- survtab_ag(fot ~ 1, data = x)
+#'
+#' summary(st, t = 1:5) ## annual estimates
+#' summary(st, q = list(r.e2 = 0.75)) ## 1st interval where r.e2 < 0.75 at end
+#' \donttest{
+#' plot(st)
+#'
+#'
+#' ## non-aggre data: first call to survtab_ag would fail
+#' df <- data.frame(x)
+#' # st <- survtab_ag(fot ~ 1, data = x)
+#' st <- survtab_ag(fot ~ 1, data = x, surv.breaks = BL$fot)
+#'
+#' ## calculate age-standardised 5-year relative survival ratio using
+#' ## Ederer II method and period approach
+#'
+#' sire$agegr <- cut(sire$dg_age,c(0,45,55,65,75,Inf),right=FALSE)
+#' BL <- list(fot=seq(0, 5, by = 1/12),
+#' per = c("2008-01-01", "2013-01-01"))
+#' x <- lexpand(sire, birth = bi_date, entry = dg_date, exit = ex_date,
+#' status = status %in% 1:2,
+#' breaks = BL,
+#' pophaz = popmort,
+#' aggre = list(agegr, fot))
+#'
+#' ## age standardisation using internal weights (age distribution of
+#' ## patients diagnosed within the period window)
+#' ## (NOTE: what is done here is equivalent to using weights = "internal")
+#' w <- aggregate(at.risk ~ agegr, data = x[x$fot == 0], FUN = sum)
+#' names(w) <- c("agegr", "weights")
+#'
+#' st <- survtab_ag(fot ~ adjust(agegr), data = x, weights = w)
+#' plot(st, y = "r.e2.as", col = c("blue"))
+#'
+#' ## age standardisation using ICSS1 weights
+#' data(ICSS)
+#' cut <- c(0, 45, 55, 65, 75, Inf)
+#' agegr <- cut(ICSS$age, cut, right = FALSE)
+#' w <- aggregate(ICSS1~agegr, data = ICSS, FUN = sum)
+#' names(w) <- c("agegr", "weights")
+#'
+#' st <- survtab_ag(fot ~ adjust(agegr), data = x, weights = w)
+#' lines(st, y = "r.e2.as", col = c("red"))
+#'
+#'
+#' ## cause-specific survival
+#' sire$stat <- factor(sire$status, 0:2, c("alive", "canD", "othD"))
+#' x <- lexpand(sire, birth = bi_date, entry = dg_date, exit = ex_date,
+#' status = stat,
+#' breaks = BL,
+#' pophaz = popmort,
+#' aggre = list(agegr, fot))
+#' st <- survtab_ag(fot ~ adjust(agegr), data = x, weights = w,
+#' d = c("fromalivetocanD", "fromalivetoothD"),
+#' surv.type = "surv.cause")
+#' plot(st, y = "surv.obs.fromalivetocanD.as")
+#' lines(st, y = "surv.obs.fromalivetoothD.as", col = "red")
+#'
+#'
+#' }
+#' @export
+survtab_ag <- function(formula = NULL,
+
+ data,
+
+ adjust = NULL,
+ weights = NULL,
+
+ surv.breaks = NULL,
+
+ n = "at.risk",
+ d = "from0to1",
+ n.cens = "from0to0",
+ pyrs = "pyrs",
+ d.exp = "d.exp",
+
+ n.pp = NULL,
+ d.pp = "d.pp",
+ d.pp.2 = "d.pp.2",
+ n.cens.pp = "n.cens.pp",
+ pyrs.pp = "pyrs.pp",
+ d.exp.pp = "d.exp.pp",
+
+ surv.type="surv.rel",
+ surv.method="hazard",
+ relsurv.method="e2",
+
+ subset = NULL,
+
+ conf.level = 0.95,
+ conf.type = "log-log",
+
+ verbose=FALSE) {
+
+ if (verbose) starttime <- proc.time()
+
+ Tstop <- delta <- Tstart <- surv.int <- n.eff <- n.eff.pp <- surv.obs <-
+ lag1_surv.obs <- p.obs <- CIF.rel <- NULL ## APPEASE R CMD CHECK
+
+ TF <- environment()
+ PF <- parent.frame(1L)
+
+ this_call <- match.call()
+ used_args <- as.list(this_call)[-1L]
+ fl <- formals("survtab_ag")
+ used_args <- c(used_args, fl[!names(fl) %in% names(used_args)])
+ used_args <- used_args[names(fl)]
+ rm(fl)
+
+ attrs <- copy(attributes(data))
+
+ # check data -----------------------------------------------------------------
+ if (missing(data) || nrow(data) == 0) stop("data missing or has no rows")
+
+ # check arguments ------------------------------------------------------------
+
+ surv.type <- match.arg(surv.type, c("surv.obs","surv.rel","surv.cause", "cif.obs", "cif.rel"))
+ surv.method <- match.arg(surv.method, c("lifetable","hazard"))
+ relsurv.method <- match.arg(relsurv.method, c("e2", "pp", "EdererII", "Pohar-Perme", "pohar-perme", "edererII", "ederer2"))
+ if (relsurv.method %in% c("EdererII", "edererII", "ederer2")) relsurv.method <- "e2"
+ if (relsurv.method %in% c("Pohar-Perme", "pohar-perme")) relsurv.method <- "pp"
+ relsurv.method <- match.arg(relsurv.method, c("e2", "pp"))
+ conf.type <- match.arg(conf.type, c("log","log-log","plain"))
+
+
+ ## argument 'formula' pre-check ----------------------------------------------
+ if (!(inherits(formula, "formula") && length(formula) == 3L)) {
+ stop("Argument 'formula' does not appear to be a two-sided formula. ",
+ "Usage: e.g. fot ~ sex")
+ }
+ surv.scale <- deparse(formula[[2]])
+ if (!surv.scale %in% names(data)) {
+ stop("Left-hand-side of formula must be a column in data; e.g. ",
+ "fot ~ sex, where 'fot' is the name of a column in data.")
+ }
+
+ ## check breaks --------------------------------------------------------------
+
+ surv.breaks <- select_breaks(data = data, ts = surv.scale, br = surv.breaks)
+ surv.breaks <- sort(unique(surv.breaks))
+ # if (!breaks_in_data(surv.breaks, surv.scale, data)) {
+ # stop("Used breaks do not all appear to exist in data. Make sure the ",
+ # "breaks match to the values that your time scale variable has in the ",
+ # "data.")
+ # }
+
+ # data prep & subsetting -----------------------------------------------------
+ subset <- substitute(subset)
+ subset <- evalLogicalSubset(data, subset)
+
+ origData <- data
+
+ data <- data[subset, ]
+ setDT(data)
+
+ # handle count etc. variables ------------------------------------------------
+
+ valVars <- c("d")
+ valVars <- c(valVars, if (surv.method == "hazard") "pyrs" else c("n", "n.cens"))
+
+ valVars <- c(valVars, if (surv.type == "surv.rel" && relsurv.method == "e2") "d.exp" else NULL)
+
+ valVars <- c(valVars, if (surv.type == "cif.rel") "d.exp" else NULL)
+
+ ppVars <- c("d.pp", "d.exp.pp", "d.pp.2",
+ if (surv.method == "hazard") "pyrs.pp" else c("n.cens.pp", "n.pp"))
+ valVars <- c(valVars, if (surv.type == "surv.rel" && relsurv.method == "pp") ppVars else NULL)
+
+ fo <- formals("survtab_ag")
+ mc <- as.list(match.call())[-1]
+ mc <- c(mc, fo[!names(fo) %in% names(mc)])
+
+ mc <- mc[valVars]
+
+
+ mc <- lapply(mc, function(elem) {
+ evalPopArg(data = data, arg = elem, DT = TRUE, enclos = PF, recursive = TRUE)
+ })
+
+
+ ## if given as multiple vars, combine these into one (e.g. n = c("v1", "v2"))
+ combValVars <- c("n", "n.cens", "d.exp", "d.pp", "d.exp.pp", "d.pp.2",
+ "pyrs", "pyrs.pp", "n.cens.pp", "n.pp")
+ combValVars <- intersect(names(mc), combValVars)
+ mc[combValVars] <- lapply(combValVars, function(val_var) {
+ tab <- mc[[val_var]]
+ if (!is.data.frame(tab) || length(tab) == 1L) return(tab)
+ tab_na <- names(tab)
+ e <- paste0(tab_na, collapse = " + ")
+ e <- parse(text = e)
+ tab <- data.table(V1 = tab[, eval(e)])
+ setnames(tab, "V1", val_var)
+ tab
+ })
+
+ ## NOTE: this does not delete but sets the value to NULL.
+ mc[unlist(lapply(mc, function(x) {
+ NROW(x) == 0L || is.null(x) || is.language(x) || inherits(x, "try-error")
+ }))] <- NULL
+
+ lackVars <- setdiff(valVars, names(mc[!unlist(lapply(mc, is.null))]))
+ if (length(lackVars) > 0) {
+ stop("Following arguments were NULL or could not be evaluated but are ",
+ "required: ", paste0("'", lackVars, "'", collapse = ", "), ". ",
+ "Usual suspects: arguments are NULL or refer to variables that ",
+ "cannot be found in data.")
+ }
+
+ eventVars <- NULL
+ mc[[1]] <- data.table(mc[[1L]]) ## this avoids an exotic error in set().
+ nl <- lapply(mc, names)
+ for (k in 1:length(mc)) {
+ jay <- argName <- names(mc[k])
+ cn <- names(mc[[k]])
+
+ if (length(cn) > 1) jay <- paste0(jay, ".", cn) ## e.g. d.1, d.2, ...
+ if (argName %in% c("d")) {
+ eventVars <- jay
+ if (surv.type %in% c("surv.cause") && length(cn) == 1L) {
+ stop("surv.type = 'surv.cause', but only one type of event supplied ",
+ "via argument 'd'. If you want to compute cause-specific ",
+ "survivals, please supply multiple types of events via ",
+ "'d'; otherwise use surv.type = 'surv.obs'")
+ } else if (length(cn) > 1 && !argName %in% c("d","d.pp", "d.pp.2", "n.pp")) {
+ stop("'", argName, "' has/evaluates to ", length(cn),
+ " columns; only 'd', 'd.pp', and 'd'pp.2', 'n.pp' may evaluate ",
+ "to more than one column of the value arguments")
+ }
+
+ }
+
+ setnames(mc[[k]], cn, jay)
+ set(mc[[1]], j = jay, value = mc[[k]])
+ nl[[argName]] <- jay
+ }
+ mc <- mc[[1]]
+
+ if (!is.null(eventVars)) {
+ set(mc, j = "d", value = rowSums(mc[, mget(eventVars)]))
+ valVars <- unique(c(valVars, "d", eventVars))
+ }
+
+
+ all_names_present(mc, valVars,
+ msg = paste0("Expected internal temp data to have ",
+ "variables %%VARS%% at this point, but didn't",
+ ". This is most likely a bug and should be ",
+ "reported to pkg maintainer."))
+ setcolorder(mc, valVars)
+
+ ## addition: internal weights use n at beginning of first interval
+
+ if (is.character(weights)) {
+ checkWeights(weights)
+ if (!"n" %in% valVars) {
+ n <- substitute(n)
+ mc$n <- evalPopArg(n, data = data, enclos = PF)
+
+ valVars <- unique(c(valVars, "n"))
+
+ if (is.null(mc$n)) {
+
+ stop("Requested internal weights to be computed and used to standardize ",
+ "estimates, but argument 'n' not supplied. This is currently ",
+ "required for computing internal weights (the values of 'n' ",
+ "in the first interval will be used for this). Please supply 'n' ",
+ "or supply hand-made weights (preferred for your clarity).")
+ }
+ }
+
+ data[, c("n") := mc$n]
+
+ }
+
+
+ # making weighted table of aggregated values ---------------------------------
+ ## NOTE: at-risk counts require special treatment when surv.breaks
+ ## are a subset of the available breaks: cannot sum at-risk figures!
+ ## instead should simply pick the value at the start of the
+ ## (now larger) interval. Will accomplish this by setting values not
+ ## at the start of an interval to zero and summing anyway.
+ if (surv.method == "lifetable") {
+ wh_internal <- list(surv.breaks)
+ names(wh_internal) <- surv.scale
+ wh_internal <- data[wh_internal, on = eval(surv.scale), which = TRUE]
+ wh_internal <- setdiff(1:nrow(data), wh_internal)
+ mc[wh_internal, intersect(c("n", "n.pp"), names(mc)) := 0L]
+ }
+
+ ## NOTE: while ssSub will pass the whole column of e.g. fot values, which will
+ ## not limit the data to e.g. up 5 years of follow-up if original data went
+ ## further, surv.breaks may be only up to 5 years and will limit the data
+ ## in makeWeightsDT using a CJ-merge-trick appropriately (via custom.levels).
+ bl <- list(surv.breaks)
+ setattr(bl, "names", surv.scale)
+
+ adjust <- evalPopArg(data, adjust, enclos = PF, naming = "model")
+
+ iws <- NULL
+ if (is.character(weights) && pmatch(weights, c("internal", "cohort"), 0)) {
+ if (!"n" %in% names(data)) {
+ stop("Need 'n' specified for when using internal weights: Internal ",
+ "weights are computed as the counts of subjects at the start of ",
+ "follow-up.")
+ }
+ iws <- makeTempVarName(data, pre = "internal_weights_")
+ data[, c(iws) := 0.0]
+ data[data[[surv.scale]] == surv.breaks[1], c(iws) := n]
+ }
+
+ data <- makeWeightsDT(data = data, values = list(mc), enclos = PF,
+ print = NULL, formula = formula, adjust = adjust,
+ by.other = surv.scale, Surv.response = FALSE,
+ custom.levels = bl, weights = weights,
+ internal.weights.values = iws,
+ custom.levels.cut.low = surv.scale)
+
+ allVars <- attr(data, "makeWeightsDT")
+ allVars[] <- lapply(allVars, function(x) if (length(x) == 0L) NULL else x)
+ prVars <- allVars$prVars
+ adVars <- allVars$adVars
+ # boVars <- allVars$boVars ## this is surv.scale
+ valVars <- allVars$vaVars
+
+ ## to avoid e.g. 'factor(sex, 1:2)' going bonkers
+ prVars_orig <- prVars
+ if (length(prVars) > 0L) {
+ prVars <- makeTempVarName(names = c(names(data), adVars),
+ pre = paste0("print_", 1:length(prVars)))
+ }
+ adVars_orig <- adVars
+ if (length(adVars) > 0L) {
+ adVars <- makeTempVarName(names = c(names(data), prVars),
+ pre = paste0("print_", 1:length(adVars)))
+ }
+ if (length(c(prVars, adVars))) setnames(data, c(prVars_orig, adVars_orig), c(prVars, adVars))
+ byVars <- c(prVars, adVars)
+
+ # formulate some needed variables --------------------------------------------
+ setkeyv(data, c(byVars, surv.scale))
+ data[, "Tstop" := rep(surv.breaks[-1],length.out=.N)]
+ setnames(data, surv.scale, "Tstart")
+ data[, "delta" := Tstop - Tstart]
+ data[, "surv.int" := 1:.N, by = eval(byVars)]
+ setcolorder(data, c(byVars, "surv.int", "Tstart", "Tstop", "delta", valVars, intersect(names(data), "weights")))
+
+ if (surv.method == "lifetable") {
+ testEvents <- data[, n - shift(n, n = 1, type = "lead", fill = NA), by = eval(byVars)]$V1
+ testEvents <- data$n.cens + data$d - testEvents
+
+ if (sum(abs(testEvents), na.rm = TRUE)) {
+ on.exit({
+
+ data[, "n.cens + d - (n-lead1_n)" := testEvents]
+ wh <- testEvents != 0L
+ wh <- wh & !is.na(wh)
+ if (interactive()) {
+ printSD <- c(byVars, "Tstop", "d", "n", "n.cens",
+ "n.cens + d - (n-lead1_n)")
+ print(data[wh, .SD, .SDcols = printSD], top = 5, nrow = 10)
+
+ }
+
+ }, add = TRUE)
+
+ stop("Supplied n.cens and d do not sum to total number of events and ",
+ "censorings based on n alone. Note that lifetable analysis ",
+ "is currently not supported for period analysis (or other ",
+ "comparable limitations of data).",
+ if (interactive())" See table below and check your variables.")
+ }
+ rm(testEvents)
+ data[, "n.eff" := n - n.cens/2L]
+ }
+
+
+ # compute observed survivals ------------------------------------------------
+ if (verbose) ostime <- proc.time()
+
+ if (surv.method=="lifetable") {
+ comp.st.surv.obs.lif(surv.table = data, surv.by.vars = byVars)
+ }
+ if (surv.method=="hazard") {
+ comp.st.surv.obs.haz(surv.table = data, surv.by.vars = byVars)
+ }
+
+ data <- comp.st.conf.ints(data, al=1-conf.level, surv="surv.obs", transform = conf.type)
+
+ if (verbose) {
+ message("* popEpi::survtab_ag: computed observed survival estimates; ",
+ data.table::timetaken(ostime))
+ }
+
+ ## empty surv.int checking ---------------------------------------------------
+ testVar <- if (surv.method == "lifetable") "n" else "pyrs"
+ ## sum over adjusting variables
+ data <- test_empty_surv_ints(data, by = c(prVars, adVars),
+ show.by = c(prVars_orig, adVars_orig),
+ sum.over = adVars,
+ test.var = testVar)
+
+ ## sum over nothing
+ if (length(adVars) > 0L) {
+ data <- test_empty_surv_ints(data, by = c(prVars, adVars),
+ show.by = c(prVars_orig, adVars_orig),
+ sum.over = NULL, test.var = testVar)
+ }
+
+ ## if adjusting, crop all estimates by adjusting variables
+ ## to shortest estimate
+ if (length(adVars)) {
+ adLe <- data[, list(min = min(surv.int), max = max(surv.int)), keyby = eval(adVars)]
+ adLe <- c(max(adLe$min), min(adLe$max))
+ data <- data[surv.int %in% `:`(adLe[1L], adLe[2L])]
+ }
+
+ # create and print table of bad surv.ints ------------------------------------
+
+ badObsSurv <- data$surv.obs == 0 | is.na(data$surv.obs)
+ if (sum(badObsSurv)) {
+
+ zerotab <- data[badObsSurv,
+ list(first.bad.surv.int = min(as.integer(surv.int)),
+ last.bad.surv.int = max(as.integer(surv.int)),
+ surv.obs=min(surv.obs)), keyby = eval(byVars)]
+
+
+ message("* popEpi::survtab_ag: Some cumulative surv.obs were zero or NA:")
+ if (length(byVars)) setnames(zerotab, c(prVars, adVars), c(prVars_orig, adVars_orig))
+ print(zerotab)
+ if (surv.method == "lifetable" && data[surv.obs == 0, .N] > 0) {
+ message("* popEpi::survtab_ag: NOTE: Zero surv.obs leads to zero ",
+ "relative survivals as well. Adjusting with weights WILL use ",
+ "the zero surv.obs / relative survival values.")
+ }
+
+ }
+ rm(badObsSurv)
+
+ # compute cause-specific survivals ------------------------------------------
+ if (surv.type == "surv.cause") {
+
+ ## NOTE: these related to adjusting life-table estimates for delayed entry...
+ # data[, "n.eff" := n - n.cens/2 + n.de/2 + n.de.cens/4] # + d.de/2
+ # "n.cens_1" := n.cens + (d-d_1)
+ # "n.de.cens" := n.de.cens + (d.de - d.de_1)
+
+ if (surv.method == "lifetable") {
+ for (k in eventVars) {
+ k <- gsub(pattern = "d_", replacement = "", x = k)
+ d_k <- paste0("d_", k)
+ # d.de_k <- paste0("d.de_",k)
+
+ n.eff_k <- paste0("n.eff_",k)
+
+ ## old: " := n - (n.cens + (d-", d_k,")/2 + n.de/2 + (n.de.cens + d.de - ", d.de_k,")/4 )"
+ # expr <- paste0(n.eff_k, " := n - (n.cens + (d-", d_k,")/2 )")
+
+ set(data, j = c(n.eff_k), value = data$n.eff + (data$d - data[[d_k]])/2L ) # + d.de/2
+ # data[, eval(parse(text = expr), envir = .SD)]
+
+ }
+
+ }
+
+ surv_names <- names(data)[grep("surv.obs", names(data))]
+ surv_names <- c("d", if (surv.method == "lifetable") "n.eff" else NULL, surv_names)
+ setnames(data, surv_names, paste0(surv_names, ".orig"))
+
+ for (k in eventVars) {
+
+ k <- gsub(pattern = "d.", replacement = "", x = k)
+ setnames(data, paste0("d.",k), "d")
+
+ if (surv.method=="hazard") {
+ comp.st.surv.obs.haz(surv.table = data, surv.by.vars = byVars)
+ } else {
+ setnames(data, paste0("n.eff_", k), "n.eff")
+ comp.st.surv.obs.lif(surv.table = data, surv.by.vars = byVars)
+ }
+ os.table <- comp.st.conf.ints(data, al=1-conf.level, surv="surv.obs", transform = conf.type)
+
+ new_surv_names <- setdiff(surv_names, c("d", if (surv.method == "lifetable") "n.eff" else NULL))
+ new_surv_names <- gsub("surv.obs", paste0("surv.obs.", k), new_surv_names)
+ new_surv_names <- c(paste0(c("d.", if (surv.method == "lifetable") "n.eff." else NULL), k), new_surv_names)
+ setnames(data, surv_names, new_surv_names)
+
+
+ }
+ setnames(data, paste0(surv_names, ".orig"), surv_names)
+ }
+
+ # compute cause-specific/excess-case CIFs ------------------------------------
+ if (surv.type %in% c("cif.obs", "cif.rel")) {
+
+ data[, "lag1_surv.obs" := shift(surv.obs, n = 1L, type = "lag", fill = 1), by = eval(byVars)]
+ data[, "p.obs" := surv.obs/lag1_surv.obs]
+
+ if (surv.type == "cif.obs") {
+ for (k in eventVars) {
+
+ k <- gsub("d.", "", x = k)
+ d.k <- paste0("d.", k)
+
+ d.var <- paste0("d.",k)
+ q.var <- paste0("q.", k)
+ CIF_var <- paste0("CIF_", k)
+ data[, (q.var) := (1-p.obs)*get(d.var)/d]
+ data[get(d.var) == 0L | d == 0L, (q.var) := 0]
+ data[, (CIF_var) := cumsum(lag1_surv.obs*get(q.var)), by = eval(byVars)]
+ }
+ }
+
+ if (surv.type == "cif.rel") {
+ ## assuming d.exp in data
+ data[, "CIF.rel" := (1-p.obs)*(d-d.exp)/d]
+ data[d.exp>d, "CIF.rel" := NA]
+ data[, "CIF.rel" := cumsum(lag1_surv.obs*CIF.rel), by = eval(byVars)]
+ }
+
+ ## SEs currently not known for CIFs; impute 0 to make adjusting work
+ CIF_vars <- names(data)[substr(names(data),1,3) == "CIF"]
+ data[, c(paste0("SE.", CIF_vars)) := 0L]
+
+ setcolsnull(data, c("lag1_surv.obs", "p.obs", paste0("q.", substr(eventVars, 3, nchar(eventVars)))))
+
+ }
+
+
+ # relative survivals ---------------------------------------------------------
+ if (surv.type == "surv.rel" & relsurv.method == "e2") {
+
+ # compute r.e2 -------------------------------------------------------------
+ comp.st.rs <- function(rs.table, rs.by.vars = byVars) {
+
+ p.exp <- delta <- surv.exp <- surv.obs <- n.eff.pp <-
+ surv.obs <- NULL ## APPEASE R CMD CHECK
+ ## EdererII
+
+ ##-------------
+ if (surv.method == "hazard") {
+ rs.table[, "p.exp" := exp(-delta*d.exp/pyrs)]
+ rs.table[, "surv.exp" := cumprod(p.exp), by = eval(rs.by.vars)]
+ comp.st.r.e2.haz(surv.table = rs.table, surv.by.vars = rs.by.vars)
+ } else {
+ rs.table[, "p.exp" := 1 - d.exp/n]
+ rs.table[, "surv.exp" := cumprod(p.exp), by = eval(rs.by.vars)]
+
+ if (rs.table[, min(surv.obs, na.rm=TRUE) == 0]) {
+ rs.table[surv.obs == 0, "surv.exp" := 1]
+ }
+
+ comp.st.r.e2.lif(surv.table = rs.table, surv.by.vars = rs.by.vars)
+
+ if (rs.table[, min(surv.obs, na.rm=TRUE) == 0]) {
+ rs.table[surv.obs == 0, intersect(c("surv.exp","r.e2","SE.r.e2","r.e2.lo","r.e2.hi"), names(rs.table)) := 0]
+ }
+ }
+
+ ## ------------
+
+ rs.table <- comp.st.conf.ints(rs.table, al=1-conf.level, surv="r.e2", transform = conf.type)
+
+ return(rs.table)
+ }
+
+ data <- comp.st.rs(rs.table = data)
+
+
+ }
+
+ # compute r.pp ---------------------------------------------------------------
+ if (surv.type == "surv.rel" & relsurv.method == "pp") {
+
+ all_names_present(data, c("d.pp", "d.exp.pp", "d.pp.2"))
+ ## pohar perme: analysis weighted by expected cumulative survival
+ comp.st.pp <- function(pp.table, by.vars = byVars) {
+ ## relative survival
+ if (surv.method == "hazard") {
+ all_names_present(data, c("pyrs.pp"),
+ msg = paste0("internal error: work data did not have",
+ " variable named pyrs.pp. Complain ",
+ "to package maintainer if you see this."))
+ comp.st.r.pp.haz(surv.table = pp.table, surv.by.vars = by.vars)
+ } else {
+ data[, "n.eff.pp" := n.pp - 0.5*n.cens.pp]
+ all_names_present(data, c("n.pp", "n.cens.pp", "n.eff.pp"),
+ msg = paste0("internal error: work data did not have",
+ " variable named n.eff.pp. Complain ",
+ "to package maintainer if you see this."))
+ comp.st.r.pp.lif(surv.table = pp.table, surv.by.vars = by.vars)
+
+ if (pp.table[, min(surv.obs, na.rm=TRUE) == 0]) {
+ pp.table[surv.obs == 0, intersect(c("r.pp","SE.r.pp","r.pp.lo","r.pp.hi"), names(pp.table)) := 0]
+ }
+ }
+
+ pp.table <- comp.st.conf.ints(pp.table, al=1-conf.level, surv="r.pp", transform = conf.type )
+
+ return(pp.table)
+ }
+ data <- comp.st.pp(pp.table = data)
+ }
+
+ # compute adjusted estimates -------------------------------------------------
+ if ("weights" %in% names(data)) {
+ w_est_vars <- names(data)[substr(names(data), 1, 8) == "surv.obs"]
+ w_est_vars <- c(w_est_vars, "r.e2", "r.pp")
+ w_est_vars <- c(w_est_vars, names(data)[substr(names(data),1,3)=="CIF"])
+ w_est_vars <- intersect(w_est_vars, names(data))
+ w_est_vars <- w_est_vars[unlist(lapply(w_est_vars, function(x) {
+ !substr(x, nchar(x)-2L, nchar(x)) %in% c(".lo", ".hi")
+ }))]
+ w_se_vars <- paste0("SE.", w_est_vars)
+
+ w_est <- data[, lapply(.SD, function(x) sum(x*weights)),
+ keyby = c(prVars, "surv.int"), .SDcols = w_est_vars]
+ w_se <- data[, lapply(.SD, function(x) sqrt(sum((x^2)*(weights^2)))),
+ keyby = c(prVars, "surv.int"), .SDcols = w_se_vars]
+
+ data <- data[, lapply(mget(valVars), sum),
+ keyby = c(prVars, "surv.int", "Tstart", "Tstop", "delta")]
+ set(data, j = w_se_vars, value = mget(w_se_vars, as.environment(w_se)))
+ set(data, j = w_est_vars, value = mget(w_est_vars, as.environment(w_est)))
+
+ setnames(data, old = c(w_est_vars, w_se_vars),
+ new = paste0(c(w_est_vars, w_se_vars), ".as"))
+
+ for (var in paste0(w_est_vars, ".as")) {
+ data <- comp.st.conf.ints(data, al = 1-conf.level,
+ surv = var, transform = conf.type)
+ }
+
+
+ }
+
+ # clean-up -------------------------------------------------------------------
+ ## back to original names of print / adjust (used to avoid e.g.
+ ## 'factor(V1, 1:2)' going bonkers in data.table)
+ if (length(c(prVars))) setnames(data, c(prVars), c(prVars_orig))
+ prVars <- prVars_orig
+ adVars <- adVars_orig
+
+ ## reorder table, format numeric values, etc.
+
+ miscVars <- intersect(names(data), c("surv.int", "Tstart", "Tstop", "delta"))
+
+ survVars <- c("surv.obs.lo","surv.obs","surv.obs.hi","SE.surv.obs",
+ "r.e2.lo","r.e2","r.e2.hi","SE.r.e2",
+ "r.pp.lo","r.pp","r.pp.hi","SE.r.pp",
+ paste0("CIF.rel.", c("lo", "", "hi")), "SE.CIF.rel",
+ "surv.obs.as.lo","surv.obs.as","surv.obs.as.hi","SE.surv.obs.as",
+ "r.e2.as.lo","r.e2.as","r.e2.as.hi","SE.r.e2.as",
+ "r.pp.as.lo","r.pp.as","r.pp.as.hi","SE.r.pp.as",
+ paste0("CIF.rel.as.", c("lo", "", "hi")), "SE.CIF.rel.as"
+ )
+ survVars <- intersect(survVars, names(data))
+
+ ## which variables are estimates, SEs, CIs, etc.
+ survVars.ca <- setdiff(names(data), c(prVars, valVars, miscVars, survVars))
+ CIF_vars <- survVars.ca[substr(survVars.ca, 1,3)=="CIF" | substr(survVars.ca, 1,6)=="SE.CIF"]
+ survVars <- c(survVars, CIF_vars)
+
+ surv.obs.vars <- survVars.ca[substr(survVars.ca, 1,8) == "surv.obs" | substr(survVars.ca, 1,11) == "SE.surv.obs"]
+ survVars <- c(survVars, surv.obs.vars)
+
+ survVars <- unique(intersect(survVars, names(data)))
+
+ ## remove some unuseful variables
+ setcolsnull(data, c("SE.A", "SE.B"))
+ setcolsnull(data, survVars[substr(survVars, 1, 6) == "SE.CIF"]) ## since they are zero for now
+ survVars <- intersect(survVars, names(data))
+
+ SEVars <- survVars[substr(survVars, 1, 3) == "SE."]
+ CIVars <- survVars[substr(survVars, nchar(survVars) - 2L, nchar(survVars)) %in% c(".lo", ".hi")]
+ estVars <- setdiff(survVars, c(SEVars, CIVars))
+
+ order <- unique(c(prVars, miscVars, valVars, survVars))
+ order <- intersect(order, names(data))
+
+ setcolsnull(data, setdiff(names(data), order))
+ setcolorder(data,order)
+
+ setkeyv(data, c(prVars, "surv.int"))
+
+ # attributes -----------------------------------------------------------------
+ setkeyv(data, c(prVars, "surv.int"))
+ setattr(data, "class", c("survtab", "data.table", "data.frame"))
+ if (!return_DT()) setDFpe(data)
+ if (length(prVars) == 0) prVars <- NULL ## might be character(0)
+
+ used_args$data <- origData
+ used_args$formula <- formula
+ used_args$weights <- evalRecursive(arg = weights, env = PF)$weights
+
+ arglist <- list(call = this_call,
+ arguments = used_args,
+ surv.scale = surv.scale,
+ surv.breaks = surv.breaks,
+ print.vars = prVars,
+ adjust.vars = adVars,
+ value.vars = valVars,
+ misc.vars = miscVars,
+ surv.vars = survVars,
+ est.vars = estVars,
+ SE.vars = SEVars,
+ CI.vars = CIVars)
+ varsArgs <- substr(names(arglist), nchar(names(arglist))-4L, nchar(names(arglist))) == ".vars"
+ varsArgs <- names(arglist)[varsArgs]
+ arglist[varsArgs] <- lapply(arglist[varsArgs], function(x) if (length(x) == 0L) NULL else x)
+
+ setattr(data, "survtab.meta", arglist)
+
+ if (verbose) {
+ message("* popEpi::survtab_ag: finished whole process; ",
+ data.table::timetaken(starttime))
+ }
+ data[]
+}
+
+
+# ag <- lexpand(sire, birth = "bi_date", entry = "dg_date", exit = "ex_date",
+# status = status %in% 1:2, pophaz = popmort, pp = TRUE,
+# aggre = list(sex, fot), fot = seq(0, 5, 1/12))
+# ag[, d.exp := pmax(0L, from0to1 - 3L)]
+# st <- survtab_ag(ag, surv.type = "surv.obs", surv.method = "hazard")
+# st <- survtab_ag(ag, surv.type = "surv.cause", surv.method = "hazard", d = list(a = from0to1-3, b = 3))
+
+# sire <- copy(sire)
+# sire$sex <- rbinom(nrow(sire), size = 1, prob = 0.5)
+# ag <- lexpand(sire, birth = "bi_date", entry = "dg_date", exit = "ex_date",
+# status = status %in% 1:2, pophaz = popmort, pp = TRUE,
+# aggre = list(sex, agegr = cut(dg_age, c(0,60,70,80, Inf), labels = FALSE), fot),
+# fot = seq(0, 5, 1/12))
+# ag <- lexpand(sire, birth = "bi_date", entry = "bi_date", exit = "ex_date",
+# status = status %in% 1:2,
+# aggre = list(sex, age),
+# age = seq(0, 100, 1))
+# wdt <- data.table(agegr = 1:4, weights = c(0.2, 0.4, 0.3, 0.1))
+# wli <- list(agegr = c(0.2, 0.4, 0.3, 0.1))
+# st <- survtab_ag(fot ~ sex + adjust(agegr), data = ag, surv.type = "surv.obs", surv.method = "hazard", weights = wli)
+# st <- survtab_ag(fot ~ sex + adjust(agegr), data = ag, surv.type = "surv.rel",
+# d.pp = "from0to1.pp", d.pp.2 = "from0to1.pp.2",
+# d.exp.pp = "d.exp.pp", pyrs.pp = "ptime.pp",
+# surv.method = "hazard", weights = wli,
+# relsurv.method = "pp")
+# ag <- lexpand(sire, birth = "bi_date", entry = "dg_date", exit = "ex_date",
+# status = status, pophaz = popmort, pp = TRUE,
+# aggre = list(sex, agegr = cut(dg_age, c(0,60,70,80, Inf), labels = FALSE), fot),
+# fot = seq(0, 5, 1/12))
+# st <- survtab_ag(fot ~ sex + adjust(agegr), data = ag,
+# d = list(cand = from0to1, othd = from0to2),
+# surv.type = "surv.cause", weights = wli)
+# st <- survtab_ag(fot ~ sex, data = ag, surv.type = "surv.obs", surv.method = "hazard", adjust = "agegr", weights = wli)
+# st <- survtab_ag(fot ~ adjust(agegr), data = ag, surv.type = "surv.obs", weights = wli)
+# st <- survtab_ag(fot ~ 1, data = ag, adjust = "agegr", surv.type = "surv.obs", weights = wli)
+# st <- survtab_ag(fot ~ 1, data = ag, adjust = "agegr", surv.type = "surv.obs", weights = wli)
+# st <- survtab_ag(fot ~ 1, data = ag, surv.type = "surv.obs")
+
+# wli2 <- wli
+# wli$sex <- c(0.4, 0.6)
+# st <- survtab_ag(fot ~ adjust(sex, agegr), data = ag, surv.type = "surv.obs", weights = wli)
+# st <- survtab_ag(fot ~ adjust(agegr), data = ag, surv.type = "surv.obs", weights = wli["agegr"])
+# ag[, d.exp := pmax(from0to1 - 1, 0L)]
+# st <- survtab_ag(fot ~ adjust(sex, agegr), data = ag, surv.type = "surv.rel", weights = wli)
+# st <- survtab_ag(fot ~ adjust(sex, agegr), data = ag, surv.type = "surv.cause", weights = wli)
+# ag[, othd := pmax(from0to1 - 1L, 0L)]
+# st <- survtab_ag(fot ~ adjust(sex, agegr), data = ag, d = list(cand = from0to1, othd = pmax(from0to1-1L, 0L)), surv.type = "surv.cause", weights = wli)
+
diff --git a/R/survival_lexis.R b/R/survival_lexis.R
index 0269b2d..5be1641 100644
--- a/R/survival_lexis.R
+++ b/R/survival_lexis.R
@@ -1,612 +1,612 @@
-
-
-
-
-
-#' @template survival_doc_template
-#' @param formula a \code{formula}; e.g. \code{fot ~ sex},
-#' where \code{fot} is the time scale over which you wish to estimate a
-#' survival time function; this
-#' assumes that \code{lex.Xst} in your data is the status variable in the
-#' intended format (almost always right).
-#' To be explicit, use \code{\link[survival]{Surv}}: e.g.
-#' \code{Surv(fot, lex.Xst) ~ sex}.
-#' Variables on the right-hand side of the formula
-#' separated by \code{+} are considered stratifying variables, for which
-#' estimates are computed separately. May contain usage of \code{adjust()}
-#' --- see Details and Examples.
-#' @param data a \code{Lexis} object with at least the survival time scale
-#' @param breaks a named list of breaks, e.g.
-#' \code{list(FUT = 0:5)}. If data is not split in advance, \code{breaks}
-#' must at the very least contain a vector of breaks to split the survival time
-#' scale (mentioned in argument \code{formula}). If data has already been split
-#' (using e.g. \code{\link{splitMulti}}) along at least the used survival time
-#' scale, this may be \code{NULL}. It is generally recommended (and sufficient;
-#' see Seppa, Dyban and Hakulinen (2015)) to use monthly
-#' intervals where applicable.
-#' @param pophaz a \code{data.frame} containing
-#' expected hazards for the event of interest to occur. See the
-#' \link[=pophaz]{dedicated help page}. Required when
-#' \code{surv.type = "surv.rel"} or \code{"cif.rel"}. \code{pophaz} must
-#' contain one column named \code{"haz"}, and any number of other columns
-#' identifying levels of variables to do a merge with split data within
-#' \code{survtab}. Some columns may be time scales, which will
-#' allow for the expected hazard to vary by e.g. calendar time and age.
-#'
-#'
-#'
-#' @examples
-#' \donttest{
-#' data("sire", package = "popEpi")
-#' library(Epi)
-#'
-#' ## NOTE: recommended to use factor status variable
-#' x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
-#' exit = list(CAL = get.yrs(ex_date)),
-#' data = sire[sire$dg_date < sire$ex_date, ],
-#' exit.status = factor(status, levels = 0:2,
-#' labels = c("alive", "canD", "othD")),
-#' merge = TRUE)
-#'
-#' ## phony group variable
-#' set.seed(1L)
-#' x$group <- rbinom(nrow(x), 1, 0.5)
-#'
-#' ## observed survival. explicit supplying of status:
-#' st <- survtab(Surv(time = FUT, event = lex.Xst) ~ group, data = x,
-#' surv.type = "surv.obs",
-#' breaks = list(FUT = seq(0, 5, 1/12)))
-#' ## this assumes the status is lex.Xst (right 99.9 % of the time)
-#' st <- survtab(FUT ~ group, data = x,
-#' surv.type = "surv.obs",
-#' breaks = list(FUT = seq(0, 5, 1/12)))
-#'
-#' ## relative survival (ederer II)
-#' data("popmort", package = "popEpi")
-#' pm <- data.frame(popmort)
-#' names(pm) <- c("sex", "CAL", "AGE", "haz")
-#' st <- survtab(FUT ~ group, data = x,
-#' surv.type = "surv.rel",
-#' pophaz = pm,
-#' breaks = list(FUT = seq(0, 5, 1/12)))
-#'
-#' ## ICSS weights usage
-#' data("ICSS", package = "popEpi")
-#' cut <- c(0, 30, 50, 70, Inf)
-#' agegr <- cut(ICSS$age, cut, right = FALSE)
-#' w <- aggregate(ICSS1~agegr, data = ICSS, FUN = sum)
-#' x$agegr <- cut(x$dg_age, cut, right = FALSE)
-#' st <- survtab(FUT ~ group + adjust(agegr), data = x,
-#' surv.type = "surv.rel",
-#' pophaz = pm, weights = w$ICSS1,
-#' breaks = list(FUT = seq(0, 5, 1/12)))
-#'
-#' #### using dates with survtab
-#' x <- Lexis(entry = list(FUT = 0L, AGE = dg_date-bi_date, CAL = dg_date),
-#' exit = list(CAL = ex_date),
-#' data = sire[sire$dg_date < sire$ex_date, ],
-#' exit.status = factor(status, levels = 0:2,
-#' labels = c("alive", "canD", "othD")),
-#' merge = TRUE)
-#' ## phony group variable
-#' set.seed(1L)
-#' x$group <- rbinom(nrow(x), 1, 0.5)
-#'
-#' st <- survtab(Surv(time = FUT, event = lex.Xst) ~ group, data = x,
-#' surv.type = "surv.obs",
-#' breaks = list(FUT = seq(0, 5, 1/12)*365.25))
-#'
-#' ## NOTE: population hazard should be reported at the same scale
-#' ## as time variables in your Lexis data.
-#' data(popmort, package = "popEpi")
-#' pm <- data.frame(popmort)
-#' names(pm) <- c("sex", "CAL", "AGE", "haz")
-#' ## from year to day level
-#' pm$haz <- pm$haz/365.25
-#' pm$CAL <- as.Date(paste0(pm$CAL, "-01-01"))
-#' pm$AGE <- pm$AGE*365.25
-#'
-#' st <- survtab(Surv(time = FUT, event = lex.Xst) ~ group, data = x,
-#' surv.type = "surv.rel", relsurv.method = "e2",
-#' pophaz = pm,
-#' breaks = list(FUT = seq(0, 5, 1/12)*365.25))
-#' }
-#' @export
-survtab <- function(formula, data, adjust = NULL, breaks = NULL,
- pophaz = NULL, weights = NULL, surv.type = "surv.rel",
- surv.method = "hazard", relsurv.method = "e2",
- subset = NULL,
- conf.level = 0.95,
- conf.type = "log-log",
- verbose = FALSE) {
-
- TF <- environment()
- PF <- parent.frame()
- this_call <- match.call()
- startTime <- proc.time()
-
- ## appease R CMD CHECK -------------------------------------------------------
- lex.Cst <- lex.Xst <- lex.dur <- NULL
-
- ## checks --------------------------------------------------------------------
-
- if (missing(formula)) stop("Formula not defined!")
-
- checkLexisData(data)
-
- allScales <- attr(data, "time.scales")
- splitScales <- names(breaks)
-
- ## ensure breaks make sense --------------------------------------------------
- oldBreaks <- attr(data, "breaks")
- checkBreaksList(data, breaks = oldBreaks)
- testOldBreaks <- setdiff(oldBreaks, list(NULL))
- if (is.null(breaks) && !length(testOldBreaks)) {
- stop("No breaks supplied via argument 'breaks', and data has not been ",
- "split in advance. Please supply a list of breaks ",
- "to argument 'breaks'")
- }
- if (is.null(breaks)) breaks <- oldBreaks
- checkBreaksList(data, breaks = breaks)
- ## match break types to time scale types
- ## (don't try to match time scales to breaks)
- splitScales <- names(breaks)
- for (k in splitScales) {
- breaks[[k]] <- matchBreakTypes(data, breaks = breaks[[k]], timeScale = k)
- }
-
- comp_pp <- FALSE
- drop <- TRUE
- if (surv.type == "surv.rel" && relsurv.method == "pp") comp_pp <- TRUE
- if (comp_pp) drop <- FALSE
-
-
- ## data & subset -------------------------------------------------------------
- subset <- evalLogicalSubset(data, substitute(subset))
- x <- data[subset, ]; rm(subset)
- setDT(x)
- forceLexisDT(x, breaks = NULL, allScales = allScales, key = TRUE)
-
- ## pre-eval of print & adjust ------------------------------------------------
-
- adSub <- substitute(adjust)
- adTest <- evalRecursive(adSub, env = x, enc = PF)
- if (!is.null(adTest)) {
- adSub <- adTest$argSub
- adVars <- all.vars(adSub)
- } else {
- adSub <- substitute(NULL)
- adVars <- NULL
- }
-
- formula <- evalRecursive(formula, env = TF, enc = PF)$arg
- foVars <- all.vars(formula)
-
- if (!inherits(formula,"formula")) {
- stop("Argument 'formula' is not a formula object. Usage: e.g. ",
- "Surv(fot, lex.Xst %in% 1:2) ~ sex")
- }
- if (length(formula) != 3L) {
- stop("Argument 'formula'must be two-sided. Usage: e.g. ",
- "Surv(fot, lex.Xst %in% 1:2) ~ sex")
- }
- ## eval print & adjust -------------------------------------------------------
- ## this adjust passed to resulting data's attributes at the end
- adSub <- substitute(adjust)
- adjust <- evalPopArg(data = x, arg = adSub,
- enclos = PF, DT = TRUE,
- recursive = TRUE)
-
- l <- usePopFormula(form = formula, adjust = adjust, data = x, enclos = PF,
- Surv.response = "either")
- prVars <- names(l$print)
- adVars <- names(l$adjust)
-
-
- ## check weights makes sense with respect to adjust --------------------------
- if (length(adVars) > 0L && !is.null(weights)) {
- checkWeights(weights, adjust = l$adjust)
-
- }
-
- ## check pophaz --------------------------------------------------------------
-
- if (surv.type %in% c("surv.rel", "cif.rel")) {
- checkPophaz(x, pophaz, haz.name = "haz")
- }
- pophazVars <- setdiff(names(pophaz), "haz")
-
- ## only keep necessary variables ---------------------------------------------
-
- setcolsnull(x, keep = c("lex.id", "lex.dur", allScales,
- "lex.Cst", "lex.Xst", pophazVars))
- if (length(prVars)) x[, c(prVars)] <- l$print
- if (length(adVars)) x[, c(adVars)] <- l$adjust
-
-
- ## simplify event and censoring indicators -----------------------------------
- cens.values <- event.values <- NULL
- all.values <- if (is.factor(l$y$status)) levels(l$y$status) else
- sort(unique(l$y$status))
- cens.values <- all.values[1L]
- event.values <- setdiff(all.values, cens.values)
-
- if (is.numeric(l$y$status) && all(unique(l$y$status) %in% 0:1)) {
- ## this should apply to situations where status coded 0/1
- ## and both 0/1 present or only 1 present
- if (all(unique(l$y$status) %in% 0L)) {
- stop("All status values were zero, i.e. all obs were censored. ",
- "Check that you passed the correct status variable or --- if this ",
- "was intended --- code the status variable to 0/1 so that 1 ",
- "corresponds to the event taking place and 0 not.")
- }
- cens.values <- 0L
- event.values <- 1L
- }
-
- x[, lex.Cst := NULL]
- x[, lex.Cst := TF$cens.values]
- x[, lex.Xst := NULL]
- x[, lex.Xst := l$y$status]
- harmonizeStatuses(x, C = "lex.Cst", X = "lex.Xst")
-
- if (!surv.type %in% c("cif.obs", "surv.cause")) {
- ## this simplifies computations
-
- x[, lex.Cst := NULL]
- x[, lex.Cst := 0L]
- setcolorder(x, c(intersect(names(data), names(x)),
- setdiff(names(x), names(data))))
-
- x[, lex.Xst := as.integer(lex.Xst %in% TF$event.values)]
- cens.values <- 0L
- event.values <- 1L
- if (x[, sum(lex.Xst)] == 0L) {
- stop("There are no events in the data. Ensure that the event argument ",
- "used in Surv() makes sense.")
- }
- }
-
- ## detect which time scale used ----------------------------------------------
-
- survScale <- detectSurvivalTimeScale(lex = x, values = l$y$time)
-
-
- ## crop data to speed up computations ----------------------------------------
- cropBreaks <- breaks
- if (surv.type == "surv.rel" && relsurv.method == "pp") {
- ## pp-weights have to be computed from entry to follow-up till roof of breaks;
- ## can only crop along the survival time scale
- cropBreaks <- breaks[1L]
- cb <- protectFromDrop(cropBreaks[[1L]], lower = TRUE)
- cb <- c(min(cb), max(cropBreaks[[1L]]))
- cropBreaks[[1L]] <- cb
- }
-
-
- intelliCrop(x = x, breaks = cropBreaks, allScales = allScales, cropStatuses = TRUE)
- x <- intelliDrop(x, breaks = cropBreaks, dropNegDur = TRUE, check = TRUE)
- setDT(x)
- forceLexisDT(x, breaks = oldBreaks, allScales = allScales, key = TRUE)
-
- ## splitting -----------------------------------------------------------------
-
- splitTime <- proc.time()
- setDT(x)
- forceLexisDT(x, breaks = oldBreaks, allScales = allScales, key = TRUE)
- x <- splitMulti(x, breaks = breaks, drop = FALSE, merge = TRUE)
- setDT(x)
- forceLexisDT(x, breaks = breaks, allScales = allScales, key = TRUE)
- if (verbose) {
- message("* popEpi::survtab: Time taken by splitting Lexis data: ",
- timetaken(splitTime), "\n")
- }
-
- ## pophaz merge --------------------------------------------------------------
- if (!is.null(pophaz)) {
- hazTime <- proc.time()
- haz <- NULL ## appease R CMD CHECK
- x <- cutLowMerge(x, pophaz, by = pophazVars,
- mid.scales = intersect(pophazVars, allScales))
- setDT(x)
- forceLexisDT(x, breaks = breaks, allScales =allScales, key = TRUE)
- if (verbose) {
- message("* popEpi::survtab: Time taken by merging population hazards ",
- "with split Lexis data: ", timetaken(hazTime))
- }
- }
-
- ## pp computation ------------------------------------------------------------
- ppNames <- d.pp <- d.pp.2 <- d.exp.pp <- ptime.pp <-
- at.risk.pp <- n.cens.pp <- NULL
-
- if (comp_pp) {
- ppTime <- proc.time()
- setkeyv(x, c("lex.id", survScale))
- comp_pp_weights(x, surv.scale = survScale,
- breaks = breaks[[survScale]], haz = "haz",
- style = "delta", verbose = FALSE)
- setDT(x)
- forceLexisDT(x, breaks = breaks, allScales = allScales, key = TRUE)
-
- if (verbose) {
- message("* popEpi::survtab: computed Pohar Perme weights; ",
- data.table::timetaken(ppTime))
- }
-
- intelliCrop(x = x, breaks = breaks, allScales = allScales, cropStatuses = TRUE)
- x <- intelliDrop(x, breaks = breaks, dropNegDur = TRUE, check = TRUE)
- forceLexisDT(x, breaks = breaks, allScales = allScales, key = TRUE)
-
- ppTime <- proc.time()
- pp <- comp_pp_weighted_figures(x, haz = "haz", pp = "pp", by = "lex.id")
- ppNames <- makeTempVarName(x, pre = names(pp))
- x[, c(TF$ppNames) := TF$pp] ## note: TF$pp avoids conflicts
- rm(pp)
-
- d.pp.2 <- ppNames[substr(ppNames, 1, 13) == "from0to1.pp.2"]
- d.pp <- ppNames[substr(ppNames, 1, 11) == "from0to1.pp"]
- d.pp <- setdiff(d.pp, d.pp.2)
- d.exp.pp <- ppNames[substr(ppNames, 1, 8) == "d.exp.pp"]
- ptime.pp <- ppNames[substr(ppNames, 1, 8) == "ptime.pp"]
- n.cens.pp <- ppNames[substr(ppNames, 1, 11) == "from0to0.pp"]
- n.cens.pp <- n.cens.pp[substr(n.cens.pp, 1,13) != "from0to0.pp.2"]
- at.risk.pp <- ppNames[substr(ppNames, 1, 10) == "at.risk.pp"]
- d.exp.pp <- ppNames[substr(ppNames, 1, 8) == "d.exp.pp"]
-
- if (verbose) {
- message("* popEpi::survtab: computed Pohar Perme weighted counts and ",
- "person-times; ", data.table::timetaken(ppTime))
- }
- }
-
- d.exp <- NULL
- if (surv.type %in% c("surv.rel", "cif.rel") && "haz" %in% names(x)) {
- d.exp <- makeTempVarName(x, pre = "d.exp_")
- x[, c(TF$d.exp) := lex.dur * haz]
- }
-
- ## aggregation ---------------------------------------------------------------
- aggreTime <- proc.time()
-
- ## this includes time scale to compute survivals over
- aggreVars <- c(prVars, adVars, survScale)
-
- setDT(x)
- forceLexisDT(x, breaks = breaks, allScales = allScales, key = TRUE)
-
- if (verbose) {
- message("* popEpi::survtab: calling popEpi::aggre")
- }
- x <- aggre(x, by = aggreVars, verbose = verbose,
- sum.values = c(d.exp, ppNames))
- if (verbose) {
- message("* popEpi::survtab: finished aggre call successfully")
- }
- setDT(x)
- setattr(x, "class", c("aggre", "data.table", "data.frame"))
-
- if (verbose) {
- message("* popEpi::survtab: done aggregating split Lexis data; ",
- data.table::timetaken(aggreTime))
- }
-
- ## neater column names -------------------------------------------------------
- ## in case there are zero obs that are censored
- censCols <- paste0("from", cens.values, "to", cens.values)
- if (all(!censCols %in% names(x))) {
- x[, c(censCols) := 0L]
- }
-
- ## e.g. fromAlivetoDead -> Dead; looks better in survtab_ag output
- evCols <- paste0("from", cens.values, "to", c(cens.values, event.values))
- whEC <- which(evCols %in% names(x))
-
- if (sum(whEC)) {
- setnames(x, evCols[whEC],
- as.character(c(cens.values, event.values)[whEC]))
- }
-
- ## survtab_ag ----------------------------------------------------------------
- dn <- intersect(event.values, names(x))
- if (length(dn) == 0L) {
- stop("Internal error: no event variables in work data. Complain to the ",
- "package maintainer if you see this - unless there are no events ",
- "in the data?")
- }
- n.cens <- intersect(cens.values, names(x))
-
- if (length(prVars) == 0L) {
- prVars <- "1"
- }
-
- form <- as.formula(paste0(survScale, " ~ ", paste0(prVars, collapse = " + ")))
- if (verbose) {
- message("* popEpi::survtab: calling popEpi::survtab_ag")
- }
- st <- survtab_ag(data = x,
- formula = TF$form,
- adjust = TF$adVars,
-
- weights = TF$weights,
-
- d = TF$dn, pyrs = "pyrs", n = "at.risk",
- d.exp = TF$d.exp, n.cens = TF$n.cens,
-
- n.pp = TF$at.risk.pp,
- d.pp = TF$d.pp, d.exp.pp = TF$d.exp.pp, d.pp.2 = TF$d.pp.2,
- n.cens.pp = TF$n.cens.pp, pyrs.pp = TF$ptime.pp,
-
- surv.type = surv.type,
- surv.method = surv.method,
- relsurv.method = relsurv.method,
-
- conf.type = conf.type,
- conf.level = conf.level,
-
- verbose = verbose)
- if (verbose) {
- message("* popEpi::survtab: successfully called popEpi::survtab_ag")
- }
-
- ## attributes ----------------------------------------------------------------
- attributes(st)$survtab.meta$call <- this_call
- attributes(st)$survtab.meta$arguments$adjust <- adjust
- attributes(st)$survtab.meta$arguments$conf.type <- conf.type
- attributes(st)$survtab.meta$arguments$conf.level <- conf.level
-
- attributes(st)$survtab.meta$arguments$surv.type <- surv.type
- attributes(st)$survtab.meta$arguments$surv.method <- surv.method
- attributes(st)$survtab.meta$arguments$relsurv.method <- relsurv.method
-
- if (verbose) {
- message("* popEpi::survtab: finished; ", data.table::timetaken(startTime))
- }
- return(st[])
-}
-# library(Epi)
-# library(popEpi)
-# dt <- copy(sire)[dg_date < ex_date,]
-# dt[, agegr := cut(dg_age, c(0,50,75,Inf))]
-# dt[, sex := rbinom(n = .N, size = 1, prob = 0.5)]
-# dt <- Lexis(data = dt, entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
-# exit = list(CAL = get.yrs(ex_date)), entry.status = 0L, exit.status = status, merge = TRUE)
-# pm <- copy(popEpi::popmort)
-# setnames(pm, c("agegroup", "year"), c("AGE", "CAL"))
-# st <- survtab(data = dt, formula = Surv(FUT, lex.Xst) ~ 1, #adjust = "agegr",
-# # pophaz = pm,
-# surv.type = "surv.obs",
-# # weights = list(agegr = c(0.2,0.4,0.4)),
-# breaks = list(FUT = seq(0,5,1/12)))
-# st <- survtab(dt, print = NULL, #adjust = "agegr",
-# # pophaz = pm,
-# surv.type = "surv.obs",
-# # weights = list(agegr = c(0.2,0.4,0.4)),
-# breaks = list(AGE = seq(0,100, 1)))
-# st <- survtab(dt, print = NULL, #adjust = "agegr",
-# pophaz = pm,
-# surv.type = "surv.rel",
-# relsurv.method = "pp",
-# # weights = list(agegr = c(0.2,0.4,0.4)),
-# breaks = list(FUT = seq(0,5,1/12)))
-# st <- survtab(dt, print = NULL, adjust = c("sex","agegr"),
-# pophaz = pm,
-# surv.type = "surv.rel",
-# relsurv.method = "pp",
-# weights = list(sex = c(0.5, 0.5), agegr = c(0.2,0.4,0.4)),
-# breaks = list(FUT = seq(0,5,1/12)))
-
-
-# ag <- lexpand(sire, birth = "bi_date", entry = "dg_date", exit = "ex_date",
-# status = status %in% 1:2, pophaz = popmort, pp = TRUE,
-# fot = seq(0, 5, 1/12))
-# pm2 <- copy(popEpi::popmort)
-# setnames(pm2, c("year", "agegroup"), c("per", "age"))
-# st <- survtab(ag, print = NULL, #adjust = c("sex","agegr"),
-# pophaz = pm2,
-# surv.type = "surv.rel",
-# relsurv.method = "pp",
-# #weights = list(sex = c(0.5, 0.5), agegr = c(0.2,0.4,0.4)),
-# breaks = list(fot = seq(0,5,1/12)))
-detectEvents <- function(x, breaks, tol = .Machine$double.eps^0.5, by = "lex.id") {
- ## INTENTION: given a Lexis object, determines which rows
- ## have an event (a transition or end-point) within the window
- ## determined by breaks (a list of breaks as supplied to e.g. splitMulti).
- ## Usable with split and unsplit data, though it is best to do this
- ## before splitting for efficiency.
- ## NOTE: by should be a character vector specifying variables that identify
- ## unique subjects; the idea is that each subject only has one end-point
- ## and some transitions
- ## NOTE: breaks should be a list of breaks or NULL; if it is NULL,
- ## it is NOT checked whether observations were cut short by the breaks used.
- ## observations cut short are not any kind of events.
- ## OUTPUT: an integer vector coding events as follows:
- ## 0: no event within breaks (row cut short by breaks or subject
- ## has multiple rows, of which this is not an event)
- ## 1: transition within breaks
- ## 2: original end-point within breaks and no transition occured (i.e. censoring)
- if (!is.data.table(x)) stop("x must be a data.table; if you see this, send the package maintainer an email")
- # checkLexisData(x)
- if (!inherits(x, "Lexis")) stop("data not a Lexis object")
- if (!is.null(breaks)) {
- checkBreaksList(x, breaks)
- breaks[unlist(lapply(breaks, length)) == 0L] <- NULL
- }
-
- ## R CMD CHECK appeasement
- lex.Cst <- lex.Xst <- NULL
-
- tmp <- list()
- oldKey <- key(x)
- if (length(oldKey) == 0L) {
- tmp$order <- makeTempVarName(x, pre = "order_")
- on.exit(if (tmp$order %in% names(x)) setorderv(x, tmp$order), add = TRUE)
- on.exit(setcolsnull(x, tmp$order, soft = TRUE), add = TRUE)
- set(x, j = tmp$order, value = 1:nrow(x))
- } else on.exit(setkeyv(x, oldKey), add = TRUE)
-
-
- setkeyv(x, c(by, names(breaks)[1L]))
- setkeyv(x, by)
- ## rows that actually can be events: transitions and last rows by subject
- whTr <- x[, lex.Cst != lex.Xst]
- whLa <- !duplicated(x, fromLast = TRUE, by=key(x))
- whEv <- whTr | whLa
-
- if (!is.null(breaks)) {
-
- splitScales <- names(breaks)
- if (any(!splitScales %in% names(x))) stop("Following time scales missing from data that data was split by: ", paste0("'", setdiff(splitScales, names(x)), "'", collapse = ", "))
-
- brmax <- lapply(breaks, max)
- brmin <- lapply(breaks, min)
-
- ## detect rows residing within breaks window
- for (sc in splitScales) {
- z <- (x$lex.dur + x[[sc]])[whEv]
- tol_sc <- if (is.double(z)) tol else 0L
-
- ## NOTE: if max of orig values within breaks window, then all may be events
- if (!(max(z) + tol_sc < brmax[[sc]])) whEv[whEv] <- z < brmax[[sc]] - tol_sc
- if (!(min(z) - tol_sc > brmin[[sc]])) whEv[whEv] <- z > brmin[[sc]] + tol_sc
-
- }
- ## whEv now indicates rows that may be events AND which reside within breaks window.
- }
-
- ## censored events are not transitions, but must reside within breaks window.
- whCe <- whLa & !whTr & whEv
-
- ## need to add event indicator to data since it has been reordered,
- ## reorder back old order, and return the event indicator.
- tmp$ind <- makeTempVarName(x, pre = "event_indicator_")
- on.exit(setcolsnull(x, delete = tmp$ind, soft = TRUE), add = TRUE)
- evInd <- as.integer(whEv)
- evInd <- ifelse(whCe, 2L, evInd)
- set(x, j = tmp$ind, value = evInd)
-
- if (length(oldKey) == 0L) {
- setkeyv(x, NULL)
- setorderv(x, tmp$order)
- set(x, j = tmp$order, value = NULL)
- } else setkeyv(x, oldKey)
-
-
- evInd <- x[[tmp$ind]]
- set(x, j = tmp$ind, value = NULL)
- on.exit(expr = {}, add = FALSE) ## removes on.exit expressions from earlier
-
-
- if (!identical(oldKey, key(x))) stop("keys do not match at function end; send an email to package maintainer if you see this")
-
- evInd
-}
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+#' @template survival_doc_template
+#' @param formula a \code{formula}; e.g. \code{fot ~ sex},
+#' where \code{fot} is the time scale over which you wish to estimate a
+#' survival time function; this
+#' assumes that \code{lex.Xst} in your data is the status variable in the
+#' intended format (almost always right).
+#' To be explicit, use \code{\link[survival]{Surv}}: e.g.
+#' \code{Surv(fot, lex.Xst) ~ sex}.
+#' Variables on the right-hand side of the formula
+#' separated by \code{+} are considered stratifying variables, for which
+#' estimates are computed separately. May contain usage of \code{adjust()}
+#' --- see Details and Examples.
+#' @param data a \code{Lexis} object with at least the survival time scale
+#' @param breaks a named list of breaks, e.g.
+#' \code{list(FUT = 0:5)}. If data is not split in advance, \code{breaks}
+#' must at the very least contain a vector of breaks to split the survival time
+#' scale (mentioned in argument \code{formula}). If data has already been split
+#' (using e.g. \code{\link{splitMulti}}) along at least the used survival time
+#' scale, this may be \code{NULL}. It is generally recommended (and sufficient;
+#' see Seppa, Dyban and Hakulinen (2015)) to use monthly
+#' intervals where applicable.
+#' @param pophaz a \code{data.frame} containing
+#' expected hazards for the event of interest to occur. See the
+#' \link[=pophaz]{dedicated help page}. Required when
+#' \code{surv.type = "surv.rel"} or \code{"cif.rel"}. \code{pophaz} must
+#' contain one column named \code{"haz"}, and any number of other columns
+#' identifying levels of variables to do a merge with split data within
+#' \code{survtab}. Some columns may be time scales, which will
+#' allow for the expected hazard to vary by e.g. calendar time and age.
+#'
+#'
+#'
+#' @examples
+#' \donttest{
+#' data("sire", package = "popEpi")
+#' library(Epi)
+#'
+#' ## NOTE: recommended to use factor status variable
+#' x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
+#' exit = list(CAL = get.yrs(ex_date)),
+#' data = sire[sire$dg_date < sire$ex_date, ],
+#' exit.status = factor(status, levels = 0:2,
+#' labels = c("alive", "canD", "othD")),
+#' merge = TRUE)
+#'
+#' ## phony group variable
+#' set.seed(1L)
+#' x$group <- rbinom(nrow(x), 1, 0.5)
+#'
+#' ## observed survival. explicit supplying of status:
+#' st <- survtab(Surv(time = FUT, event = lex.Xst) ~ group, data = x,
+#' surv.type = "surv.obs",
+#' breaks = list(FUT = seq(0, 5, 1/12)))
+#' ## this assumes the status is lex.Xst (right 99.9 % of the time)
+#' st <- survtab(FUT ~ group, data = x,
+#' surv.type = "surv.obs",
+#' breaks = list(FUT = seq(0, 5, 1/12)))
+#'
+#' ## relative survival (ederer II)
+#' data("popmort", package = "popEpi")
+#' pm <- data.frame(popmort)
+#' names(pm) <- c("sex", "CAL", "AGE", "haz")
+#' st <- survtab(FUT ~ group, data = x,
+#' surv.type = "surv.rel",
+#' pophaz = pm,
+#' breaks = list(FUT = seq(0, 5, 1/12)))
+#'
+#' ## ICSS weights usage
+#' data("ICSS", package = "popEpi")
+#' cut <- c(0, 30, 50, 70, Inf)
+#' agegr <- cut(ICSS$age, cut, right = FALSE)
+#' w <- aggregate(ICSS1~agegr, data = ICSS, FUN = sum)
+#' x$agegr <- cut(x$dg_age, cut, right = FALSE)
+#' st <- survtab(FUT ~ group + adjust(agegr), data = x,
+#' surv.type = "surv.rel",
+#' pophaz = pm, weights = w$ICSS1,
+#' breaks = list(FUT = seq(0, 5, 1/12)))
+#'
+#' #### using dates with survtab
+#' x <- Lexis(entry = list(FUT = 0L, AGE = dg_date-bi_date, CAL = dg_date),
+#' exit = list(CAL = ex_date),
+#' data = sire[sire$dg_date < sire$ex_date, ],
+#' exit.status = factor(status, levels = 0:2,
+#' labels = c("alive", "canD", "othD")),
+#' merge = TRUE)
+#' ## phony group variable
+#' set.seed(1L)
+#' x$group <- rbinom(nrow(x), 1, 0.5)
+#'
+#' st <- survtab(Surv(time = FUT, event = lex.Xst) ~ group, data = x,
+#' surv.type = "surv.obs",
+#' breaks = list(FUT = seq(0, 5, 1/12)*365.25))
+#'
+#' ## NOTE: population hazard should be reported at the same scale
+#' ## as time variables in your Lexis data.
+#' data(popmort, package = "popEpi")
+#' pm <- data.frame(popmort)
+#' names(pm) <- c("sex", "CAL", "AGE", "haz")
+#' ## from year to day level
+#' pm$haz <- pm$haz/365.25
+#' pm$CAL <- as.Date(paste0(pm$CAL, "-01-01"))
+#' pm$AGE <- pm$AGE*365.25
+#'
+#' st <- survtab(Surv(time = FUT, event = lex.Xst) ~ group, data = x,
+#' surv.type = "surv.rel", relsurv.method = "e2",
+#' pophaz = pm,
+#' breaks = list(FUT = seq(0, 5, 1/12)*365.25))
+#' }
+#' @export
+survtab <- function(formula, data, adjust = NULL, breaks = NULL,
+ pophaz = NULL, weights = NULL, surv.type = "surv.rel",
+ surv.method = "hazard", relsurv.method = "e2",
+ subset = NULL,
+ conf.level = 0.95,
+ conf.type = "log-log",
+ verbose = FALSE) {
+
+ TF <- environment()
+ PF <- parent.frame()
+ this_call <- match.call()
+ startTime <- proc.time()
+
+ ## appease R CMD CHECK -------------------------------------------------------
+ lex.Cst <- lex.Xst <- lex.dur <- NULL
+
+ ## checks --------------------------------------------------------------------
+
+ if (missing(formula)) stop("Formula not defined!")
+
+ checkLexisData(data)
+
+ allScales <- attr(data, "time.scales")
+ splitScales <- names(breaks)
+
+ ## ensure breaks make sense --------------------------------------------------
+ oldBreaks <- attr(data, "breaks")
+ checkBreaksList(data, breaks = oldBreaks)
+ testOldBreaks <- setdiff(oldBreaks, list(NULL))
+ if (is.null(breaks) && !length(testOldBreaks)) {
+ stop("No breaks supplied via argument 'breaks', and data has not been ",
+ "split in advance. Please supply a list of breaks ",
+ "to argument 'breaks'")
+ }
+ if (is.null(breaks)) breaks <- oldBreaks
+ checkBreaksList(data, breaks = breaks)
+ ## match break types to time scale types
+ ## (don't try to match time scales to breaks)
+ splitScales <- names(breaks)
+ for (k in splitScales) {
+ breaks[[k]] <- matchBreakTypes(data, breaks = breaks[[k]], timeScale = k)
+ }
+
+ comp_pp <- FALSE
+ drop <- TRUE
+ if (surv.type == "surv.rel" && relsurv.method == "pp") comp_pp <- TRUE
+ if (comp_pp) drop <- FALSE
+
+
+ ## data & subset -------------------------------------------------------------
+ subset <- evalLogicalSubset(data, substitute(subset))
+ x <- data[subset, ]; rm(subset)
+ setDT(x)
+ forceLexisDT(x, breaks = NULL, allScales = allScales, key = TRUE)
+
+ ## pre-eval of print & adjust ------------------------------------------------
+
+ adSub <- substitute(adjust)
+ adTest <- evalRecursive(adSub, env = x, enc = PF)
+ if (!is.null(adTest)) {
+ adSub <- adTest$argSub
+ adVars <- all.vars(adSub)
+ } else {
+ adSub <- substitute(NULL)
+ adVars <- NULL
+ }
+
+ formula <- evalRecursive(formula, env = TF, enc = PF)$arg
+ foVars <- all.vars(formula)
+
+ if (!inherits(formula,"formula")) {
+ stop("Argument 'formula' is not a formula object. Usage: e.g. ",
+ "Surv(fot, lex.Xst %in% 1:2) ~ sex")
+ }
+ if (length(formula) != 3L) {
+ stop("Argument 'formula'must be two-sided. Usage: e.g. ",
+ "Surv(fot, lex.Xst %in% 1:2) ~ sex")
+ }
+ ## eval print & adjust -------------------------------------------------------
+ ## this adjust passed to resulting data's attributes at the end
+ adSub <- substitute(adjust)
+ adjust <- evalPopArg(data = x, arg = adSub,
+ enclos = PF, DT = TRUE,
+ recursive = TRUE)
+
+ l <- usePopFormula(form = formula, adjust = adjust, data = x, enclos = PF,
+ Surv.response = "either")
+ prVars <- names(l$print)
+ adVars <- names(l$adjust)
+
+
+ ## check weights makes sense with respect to adjust --------------------------
+ if (length(adVars) > 0L && !is.null(weights)) {
+ checkWeights(weights, adjust = l$adjust)
+
+ }
+
+ ## check pophaz --------------------------------------------------------------
+
+ if (surv.type %in% c("surv.rel", "cif.rel")) {
+ checkPophaz(x, pophaz, haz.name = "haz")
+ }
+ pophazVars <- setdiff(names(pophaz), "haz")
+
+ ## only keep necessary variables ---------------------------------------------
+
+ setcolsnull(x, keep = c("lex.id", "lex.dur", allScales,
+ "lex.Cst", "lex.Xst", pophazVars))
+ if (length(prVars)) x[, c(prVars)] <- l$print
+ if (length(adVars)) x[, c(adVars)] <- l$adjust
+
+
+ ## simplify event and censoring indicators -----------------------------------
+ cens.values <- event.values <- NULL
+ all.values <- if (is.factor(l$y$status)) levels(l$y$status) else
+ sort(unique(l$y$status))
+ cens.values <- all.values[1L]
+ event.values <- setdiff(all.values, cens.values)
+
+ if (is.numeric(l$y$status) && all(unique(l$y$status) %in% 0:1)) {
+ ## this should apply to situations where status coded 0/1
+ ## and both 0/1 present or only 1 present
+ if (all(unique(l$y$status) %in% 0L)) {
+ stop("All status values were zero, i.e. all obs were censored. ",
+ "Check that you passed the correct status variable or --- if this ",
+ "was intended --- code the status variable to 0/1 so that 1 ",
+ "corresponds to the event taking place and 0 not.")
+ }
+ cens.values <- 0L
+ event.values <- 1L
+ }
+
+ x[, lex.Cst := NULL]
+ x[, lex.Cst := TF$cens.values]
+ x[, lex.Xst := NULL]
+ x[, lex.Xst := l$y$status]
+ harmonizeStatuses(x, C = "lex.Cst", X = "lex.Xst")
+
+ if (!surv.type %in% c("cif.obs", "surv.cause")) {
+ ## this simplifies computations
+
+ x[, lex.Cst := NULL]
+ x[, lex.Cst := 0L]
+ setcolorder(x, c(intersect(names(data), names(x)),
+ setdiff(names(x), names(data))))
+
+ x[, lex.Xst := as.integer(lex.Xst %in% TF$event.values)]
+ cens.values <- 0L
+ event.values <- 1L
+ if (x[, sum(lex.Xst)] == 0L) {
+ stop("There are no events in the data. Ensure that the event argument ",
+ "used in Surv() makes sense.")
+ }
+ }
+
+ ## detect which time scale used ----------------------------------------------
+
+ survScale <- detectSurvivalTimeScale(lex = x, values = l$y$time)
+
+
+ ## crop data to speed up computations ----------------------------------------
+ cropBreaks <- breaks
+ if (surv.type == "surv.rel" && relsurv.method == "pp") {
+ ## pp-weights have to be computed from entry to follow-up till roof of breaks;
+ ## can only crop along the survival time scale
+ cropBreaks <- breaks[1L]
+ cb <- protectFromDrop(cropBreaks[[1L]], lower = TRUE)
+ cb <- c(min(cb), max(cropBreaks[[1L]]))
+ cropBreaks[[1L]] <- cb
+ }
+
+
+ intelliCrop(x = x, breaks = cropBreaks, allScales = allScales, cropStatuses = TRUE)
+ x <- intelliDrop(x, breaks = cropBreaks, dropNegDur = TRUE, check = TRUE)
+ setDT(x)
+ forceLexisDT(x, breaks = oldBreaks, allScales = allScales, key = TRUE)
+
+ ## splitting -----------------------------------------------------------------
+
+ splitTime <- proc.time()
+ setDT(x)
+ forceLexisDT(x, breaks = oldBreaks, allScales = allScales, key = TRUE)
+ x <- splitMulti(x, breaks = breaks, drop = FALSE, merge = TRUE)
+ setDT(x)
+ forceLexisDT(x, breaks = breaks, allScales = allScales, key = TRUE)
+ if (verbose) {
+ message("* popEpi::survtab: Time taken by splitting Lexis data: ",
+ timetaken(splitTime), "\n")
+ }
+
+ ## pophaz merge --------------------------------------------------------------
+ if (!is.null(pophaz)) {
+ hazTime <- proc.time()
+ haz <- NULL ## appease R CMD CHECK
+ x <- cutLowMerge(x, pophaz, by = pophazVars,
+ mid.scales = intersect(pophazVars, allScales))
+ setDT(x)
+ forceLexisDT(x, breaks = breaks, allScales =allScales, key = TRUE)
+ if (verbose) {
+ message("* popEpi::survtab: Time taken by merging population hazards ",
+ "with split Lexis data: ", timetaken(hazTime))
+ }
+ }
+
+ ## pp computation ------------------------------------------------------------
+ ppNames <- d.pp <- d.pp.2 <- d.exp.pp <- ptime.pp <-
+ at.risk.pp <- n.cens.pp <- NULL
+
+ if (comp_pp) {
+ ppTime <- proc.time()
+ setkeyv(x, c("lex.id", survScale))
+ comp_pp_weights(x, surv.scale = survScale,
+ breaks = breaks[[survScale]], haz = "haz",
+ style = "delta", verbose = FALSE)
+ setDT(x)
+ forceLexisDT(x, breaks = breaks, allScales = allScales, key = TRUE)
+
+ if (verbose) {
+ message("* popEpi::survtab: computed Pohar Perme weights; ",
+ data.table::timetaken(ppTime))
+ }
+
+ intelliCrop(x = x, breaks = breaks, allScales = allScales, cropStatuses = TRUE)
+ x <- intelliDrop(x, breaks = breaks, dropNegDur = TRUE, check = TRUE)
+ forceLexisDT(x, breaks = breaks, allScales = allScales, key = TRUE)
+
+ ppTime <- proc.time()
+ pp <- comp_pp_weighted_figures(x, haz = "haz", pp = "pp", by = "lex.id")
+ ppNames <- makeTempVarName(x, pre = names(pp))
+ x[, c(TF$ppNames) := TF$pp] ## note: TF$pp avoids conflicts
+ rm(pp)
+
+ d.pp.2 <- ppNames[substr(ppNames, 1, 13) == "from0to1.pp.2"]
+ d.pp <- ppNames[substr(ppNames, 1, 11) == "from0to1.pp"]
+ d.pp <- setdiff(d.pp, d.pp.2)
+ d.exp.pp <- ppNames[substr(ppNames, 1, 8) == "d.exp.pp"]
+ ptime.pp <- ppNames[substr(ppNames, 1, 8) == "ptime.pp"]
+ n.cens.pp <- ppNames[substr(ppNames, 1, 11) == "from0to0.pp"]
+ n.cens.pp <- n.cens.pp[substr(n.cens.pp, 1,13) != "from0to0.pp.2"]
+ at.risk.pp <- ppNames[substr(ppNames, 1, 10) == "at.risk.pp"]
+ d.exp.pp <- ppNames[substr(ppNames, 1, 8) == "d.exp.pp"]
+
+ if (verbose) {
+ message("* popEpi::survtab: computed Pohar Perme weighted counts and ",
+ "person-times; ", data.table::timetaken(ppTime))
+ }
+ }
+
+ d.exp <- NULL
+ if (surv.type %in% c("surv.rel", "cif.rel") && "haz" %in% names(x)) {
+ d.exp <- makeTempVarName(x, pre = "d.exp_")
+ x[, c(TF$d.exp) := lex.dur * haz]
+ }
+
+ ## aggregation ---------------------------------------------------------------
+ aggreTime <- proc.time()
+
+ ## this includes time scale to compute survivals over
+ aggreVars <- c(prVars, adVars, survScale)
+
+ setDT(x)
+ forceLexisDT(x, breaks = breaks, allScales = allScales, key = TRUE)
+
+ if (verbose) {
+ message("* popEpi::survtab: calling popEpi::aggre")
+ }
+ x <- aggre(x, by = aggreVars, verbose = verbose,
+ sum.values = c(d.exp, ppNames))
+ if (verbose) {
+ message("* popEpi::survtab: finished aggre call successfully")
+ }
+ setDT(x)
+ setattr(x, "class", c("aggre", "data.table", "data.frame"))
+
+ if (verbose) {
+ message("* popEpi::survtab: done aggregating split Lexis data; ",
+ data.table::timetaken(aggreTime))
+ }
+
+ ## neater column names -------------------------------------------------------
+ ## in case there are zero obs that are censored
+ censCols <- paste0("from", cens.values, "to", cens.values)
+ if (all(!censCols %in% names(x))) {
+ x[, c(censCols) := 0L]
+ }
+
+ ## e.g. fromAlivetoDead -> Dead; looks better in survtab_ag output
+ evCols <- paste0("from", cens.values, "to", c(cens.values, event.values))
+ whEC <- which(evCols %in% names(x))
+
+ if (sum(whEC)) {
+ setnames(x, evCols[whEC],
+ as.character(c(cens.values, event.values)[whEC]))
+ }
+
+ ## survtab_ag ----------------------------------------------------------------
+ dn <- intersect(event.values, names(x))
+ if (length(dn) == 0L) {
+ stop("Internal error: no event variables in work data. Complain to the ",
+ "package maintainer if you see this - unless there are no events ",
+ "in the data?")
+ }
+ n.cens <- intersect(cens.values, names(x))
+
+ if (length(prVars) == 0L) {
+ prVars <- "1"
+ }
+
+ form <- as.formula(paste0(survScale, " ~ ", paste0(prVars, collapse = " + ")))
+ if (verbose) {
+ message("* popEpi::survtab: calling popEpi::survtab_ag")
+ }
+ st <- survtab_ag(data = x,
+ formula = TF$form,
+ adjust = TF$adVars,
+
+ weights = TF$weights,
+
+ d = TF$dn, pyrs = "pyrs", n = "at.risk",
+ d.exp = TF$d.exp, n.cens = TF$n.cens,
+
+ n.pp = TF$at.risk.pp,
+ d.pp = TF$d.pp, d.exp.pp = TF$d.exp.pp, d.pp.2 = TF$d.pp.2,
+ n.cens.pp = TF$n.cens.pp, pyrs.pp = TF$ptime.pp,
+
+ surv.type = surv.type,
+ surv.method = surv.method,
+ relsurv.method = relsurv.method,
+
+ conf.type = conf.type,
+ conf.level = conf.level,
+
+ verbose = verbose)
+ if (verbose) {
+ message("* popEpi::survtab: successfully called popEpi::survtab_ag")
+ }
+
+ ## attributes ----------------------------------------------------------------
+ attributes(st)$survtab.meta$call <- this_call
+ attributes(st)$survtab.meta$arguments$adjust <- adjust
+ attributes(st)$survtab.meta$arguments$conf.type <- conf.type
+ attributes(st)$survtab.meta$arguments$conf.level <- conf.level
+
+ attributes(st)$survtab.meta$arguments$surv.type <- surv.type
+ attributes(st)$survtab.meta$arguments$surv.method <- surv.method
+ attributes(st)$survtab.meta$arguments$relsurv.method <- relsurv.method
+
+ if (verbose) {
+ message("* popEpi::survtab: finished; ", data.table::timetaken(startTime))
+ }
+ return(st[])
+}
+# library(Epi)
+# library(popEpi)
+# dt <- copy(sire)[dg_date < ex_date,]
+# dt[, agegr := cut(dg_age, c(0,50,75,Inf))]
+# dt[, sex := rbinom(n = .N, size = 1, prob = 0.5)]
+# dt <- Lexis(data = dt, entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
+# exit = list(CAL = get.yrs(ex_date)), entry.status = 0L, exit.status = status, merge = TRUE)
+# pm <- copy(popEpi::popmort)
+# setnames(pm, c("agegroup", "year"), c("AGE", "CAL"))
+# st <- survtab(data = dt, formula = Surv(FUT, lex.Xst) ~ 1, #adjust = "agegr",
+# # pophaz = pm,
+# surv.type = "surv.obs",
+# # weights = list(agegr = c(0.2,0.4,0.4)),
+# breaks = list(FUT = seq(0,5,1/12)))
+# st <- survtab(dt, print = NULL, #adjust = "agegr",
+# # pophaz = pm,
+# surv.type = "surv.obs",
+# # weights = list(agegr = c(0.2,0.4,0.4)),
+# breaks = list(AGE = seq(0,100, 1)))
+# st <- survtab(dt, print = NULL, #adjust = "agegr",
+# pophaz = pm,
+# surv.type = "surv.rel",
+# relsurv.method = "pp",
+# # weights = list(agegr = c(0.2,0.4,0.4)),
+# breaks = list(FUT = seq(0,5,1/12)))
+# st <- survtab(dt, print = NULL, adjust = c("sex","agegr"),
+# pophaz = pm,
+# surv.type = "surv.rel",
+# relsurv.method = "pp",
+# weights = list(sex = c(0.5, 0.5), agegr = c(0.2,0.4,0.4)),
+# breaks = list(FUT = seq(0,5,1/12)))
+
+
+# ag <- lexpand(sire, birth = "bi_date", entry = "dg_date", exit = "ex_date",
+# status = status %in% 1:2, pophaz = popmort, pp = TRUE,
+# fot = seq(0, 5, 1/12))
+# pm2 <- copy(popEpi::popmort)
+# setnames(pm2, c("year", "agegroup"), c("per", "age"))
+# st <- survtab(ag, print = NULL, #adjust = c("sex","agegr"),
+# pophaz = pm2,
+# surv.type = "surv.rel",
+# relsurv.method = "pp",
+# #weights = list(sex = c(0.5, 0.5), agegr = c(0.2,0.4,0.4)),
+# breaks = list(fot = seq(0,5,1/12)))
+detectEvents <- function(x, breaks, tol = .Machine$double.eps^0.5, by = "lex.id") {
+ ## INTENTION: given a Lexis object, determines which rows
+ ## have an event (a transition or end-point) within the window
+ ## determined by breaks (a list of breaks as supplied to e.g. splitMulti).
+ ## Usable with split and unsplit data, though it is best to do this
+ ## before splitting for efficiency.
+ ## NOTE: by should be a character vector specifying variables that identify
+ ## unique subjects; the idea is that each subject only has one end-point
+ ## and some transitions
+ ## NOTE: breaks should be a list of breaks or NULL; if it is NULL,
+ ## it is NOT checked whether observations were cut short by the breaks used.
+ ## observations cut short are not any kind of events.
+ ## OUTPUT: an integer vector coding events as follows:
+ ## 0: no event within breaks (row cut short by breaks or subject
+ ## has multiple rows, of which this is not an event)
+ ## 1: transition within breaks
+ ## 2: original end-point within breaks and no transition occured (i.e. censoring)
+ if (!is.data.table(x)) stop("x must be a data.table; if you see this, send the package maintainer an email")
+ # checkLexisData(x)
+ if (!inherits(x, "Lexis")) stop("data not a Lexis object")
+ if (!is.null(breaks)) {
+ checkBreaksList(x, breaks)
+ breaks[unlist(lapply(breaks, length)) == 0L] <- NULL
+ }
+
+ ## R CMD CHECK appeasement
+ lex.Cst <- lex.Xst <- NULL
+
+ tmp <- list()
+ oldKey <- key(x)
+ if (length(oldKey) == 0L) {
+ tmp$order <- makeTempVarName(x, pre = "order_")
+ on.exit(if (tmp$order %in% names(x)) setorderv(x, tmp$order), add = TRUE)
+ on.exit(setcolsnull(x, tmp$order, soft = TRUE), add = TRUE)
+ set(x, j = tmp$order, value = 1:nrow(x))
+ } else on.exit(setkeyv(x, oldKey), add = TRUE)
+
+
+ setkeyv(x, c(by, names(breaks)[1L]))
+ setkeyv(x, by)
+ ## rows that actually can be events: transitions and last rows by subject
+ whTr <- x[, lex.Cst != lex.Xst]
+ whLa <- !duplicated(x, fromLast = TRUE, by=key(x))
+ whEv <- whTr | whLa
+
+ if (!is.null(breaks)) {
+
+ splitScales <- names(breaks)
+ if (any(!splitScales %in% names(x))) stop("Following time scales missing from data that data was split by: ", paste0("'", setdiff(splitScales, names(x)), "'", collapse = ", "))
+
+ brmax <- lapply(breaks, max)
+ brmin <- lapply(breaks, min)
+
+ ## detect rows residing within breaks window
+ for (sc in splitScales) {
+ z <- (x$lex.dur + x[[sc]])[whEv]
+ tol_sc <- if (is.double(z)) tol else 0L
+
+ ## NOTE: if max of orig values within breaks window, then all may be events
+ if (!(max(z) + tol_sc < brmax[[sc]])) whEv[whEv] <- z < brmax[[sc]] - tol_sc
+ if (!(min(z) - tol_sc > brmin[[sc]])) whEv[whEv] <- z > brmin[[sc]] + tol_sc
+
+ }
+ ## whEv now indicates rows that may be events AND which reside within breaks window.
+ }
+
+ ## censored events are not transitions, but must reside within breaks window.
+ whCe <- whLa & !whTr & whEv
+
+ ## need to add event indicator to data since it has been reordered,
+ ## reorder back old order, and return the event indicator.
+ tmp$ind <- makeTempVarName(x, pre = "event_indicator_")
+ on.exit(setcolsnull(x, delete = tmp$ind, soft = TRUE), add = TRUE)
+ evInd <- as.integer(whEv)
+ evInd <- ifelse(whCe, 2L, evInd)
+ set(x, j = tmp$ind, value = evInd)
+
+ if (length(oldKey) == 0L) {
+ setkeyv(x, NULL)
+ setorderv(x, tmp$order)
+ set(x, j = tmp$order, value = NULL)
+ } else setkeyv(x, oldKey)
+
+
+ evInd <- x[[tmp$ind]]
+ set(x, j = tmp$ind, value = NULL)
+ on.exit(expr = {}, add = FALSE) ## removes on.exit expressions from earlier
+
+
+ if (!identical(oldKey, key(x))) stop("keys do not match at function end; send an email to package maintainer if you see this")
+
+ evInd
+}
+
+
+
+
+
+
+
+
+
diff --git a/R/survival_utility_functions.R b/R/survival_utility_functions.R
index 96ac17f..1d372ae 100644
--- a/R/survival_utility_functions.R
+++ b/R/survival_utility_functions.R
@@ -1,639 +1,639 @@
-globalVariables(c("tab", "SE.A", "pp.table"))
-
-comp.st.surv <- function(surv.var = "p", surv.expr = "1-d/(n.eff-n.cens/2)",
- SE.expr = "sqrt(p*(1-p)/(n.eff))", cumu = TRUE) {
-
- function(surv.table = tab, surv.by.vars = NULL) {
-
- tabname <- deparse(substitute(surv.table))
- # tabname <- "surv.table"
- by.expr <- NULL
- if (!is.null(surv.by.vars)) {
- surv.by.vars <- paste0("'", surv.by.vars, "'", collapse = " ,")
- by.expr <- paste0(", by = c( ", surv.by.vars, " )")
- }
-
- surv.expr <- paste0(surv.var, " := ", surv.expr)
- tab.surv.expr <- paste0(tabname, "[, ", surv.expr, by.expr, "]")
- # surv.expr <- parse(text=surv.expr)
- # surv.var <- parse(text=surv.var)
- SE.var <- paste0("SE.", surv.var)
- SE.expr <- paste0(SE.var, " := ", SE.expr)
- tab.SE.expr <- paste0(tabname, "[, ", SE.expr, ", ", by.expr, "]")
- # SE.expr <- parse(text=SE.expr)
- # SE.var <- parse(text=SE.var)
- cumuexpr <- paste0(tabname, "[, ", surv.var, " := cumprod(", surv.var, ")", by.expr, "]" )
-
-
- ## parent.frame(2): two steps upstream in environments
- pe <- function(obj, ..., env=parent.frame(2)) {
- eval(parse(text=obj), ..., envir=env)
- }
-
- pe(tab.surv.expr)
-
-
- if (cumu) pe(cumuexpr)
-
- ## standard error
- pe(tab.SE.expr)
-
- ## zero survival leads to zero SE
- minexpr <- paste0(tabname, "[",surv.var, "== 0, ", SE.var, " := 0]")
- pe(minexpr)
- }
-}
-
-
-comp.st.surv.obs.lif <- comp.st.surv(surv.var= "surv.obs",
- surv.expr= "1-d/n.eff",
- SE.expr= "surv.obs*sqrt( cumsum( d/(n.eff*(n.eff-d)) ) )", ## old : sqrt(p*(1-p)/(n.eff))"
- cumu = TRUE)
-
-comp.st.surv.obs.haz <- comp.st.surv(surv.var= "surv.obs",
- surv.expr= "exp(-delta*d/pyrs)",
- SE.expr= "surv.obs*sqrt( cumsum( delta^2*d/pyrs^2 ) )", ## old: sqrt(p*(1-p)/(n.eff))
- cumu = TRUE)
-
-
-comp.st.r.e2.haz <- comp.st.surv(surv.var = "r.e2",
- surv.expr = "exp(-delta*(d-d.exp)/pyrs)",
- SE.expr = "SE.surv.obs/surv.exp",
- cumu=TRUE)
-
-comp.st.r.e2.lif <- comp.st.surv(surv.var = "r.e2",
- surv.expr = "1-(d-d.exp)/(n.eff)",
- SE.expr = "SE.surv.obs/surv.exp",
- cumu=TRUE)
-
-comp.st.r.pp.haz <- comp.st.surv(surv.var = "r.pp",
- surv.expr= "exp(-delta*(d.pp - d.exp.pp)/pyrs.pp)",
- SE.expr = "r.pp*sqrt( cumsum( delta^2*( d.pp.2)/ pyrs.pp^2 ) )",
- cumu=TRUE)
-
-comp.st.r.pp.lif <- comp.st.surv(surv.var = "r.pp",
- surv.expr = "1-(d.pp-d.exp.pp)/(n.eff.pp)",
- SE.expr = "r.pp*sqrt( cumsum( d.pp.2/(n.eff^2) ) )",
- cumu=TRUE)
-
-
-## this function will calculate confidence intervals
-## for obs & rel & net survivals
-#' @import stats
-comp.st.conf.ints <- function(tab = pp.table, al=0.05, surv="r.pp", transform ="log-log") {
- zlo <- as.character(qnorm(al/2))
- zhi <- as.character(qnorm(1-al/2))
- SE.surv <- paste0("SE.",surv)
- surv.hi <- paste0(surv, ".hi")
- surv.lo <- paste0(surv, ".lo")
-
- tmp_se <- makeTempVarName(names = names(tab), pre = "delta_method_SE_", length = 15L)
-
- pe <- function(...) {
- eval(parse(text=paste0(...)), envir=tab)
- }
-
- if (transform =="plain") {
- ## assume S(t)~N(mu, sigma)
-
- ex <- paste0(surv, " ", zlo, "*", SE.surv)
- tab[, (surv.lo) := pe(ex)]
- ex <- paste0(surv, " +", zhi, "*", SE.surv)
- tab[, (surv.hi) := pe(ex)]
-
- } else if (transform =="log-log") {
- ## assume log(H(t))~N(mu, sigma)
- ## -> delta method SE: sqrt( SE^2 * (1/(log(SURV)*SURV))^2 )
-
- ex <- paste0(SE.surv,"/(abs(log(",surv,"))*",surv,")")
- tab[, (tmp_se) := pe(ex)]
-
- ex <- paste0(surv, "^exp(", zhi, "*", tmp_se,")")
- tab[, (surv.lo) := pe(ex)]
- ex <- paste0(surv, "^exp(", zlo, "*", tmp_se,")")
- tab[, (surv.hi) := pe(ex)]
-
- } else if (transform =="log") {
- ## assume log(S(t))~N(mu, sigma)
- ## -> delta method SE: SE/SURV
-
- ex <- paste0(SE.surv,"/",surv)
- tab[, (tmp_se) := pe(ex)]
-
- ex <- paste0(surv, "*exp(", zlo, "*", tmp_se,")")
- tab[, (surv.lo) := pe(ex)]
- ex <- paste0(surv, "*exp(", zhi, "*", tmp_se,")")
- tab[, (surv.hi) := pe(ex)]
- }
- if (tmp_se %in% names(tab)) tab[, (tmp_se) := NULL]
-
- ## zero SE means zero uncertainty means lo=hi=estimate
- tab[tab[[SE.surv]] == 0, c(surv.lo, surv.hi) := .SD, .SDcols = surv]
-
- tab[]
-}
-
-
-
-# x <- Lexis(data=sire[1,], entry = list(fot=0, per=get.yrs(dg_date), age=dg_age),
-# exit=list(per=get.yrs(ex_date)), exit.status=status)
-# x <- splitMulti(x, breaks = list(fot=seq(0, 5, by = 1/12), per=1994:2013, age = 0:150))
-# x[, surv.int := cut(fot, seq(0, 5, 1/12) - .Machine$double.eps^0.5, labels = FALSE)]
-# x <- cutLowMerge(x, popmort, by.x = c("sex","per", "age"),
-# by.y = c("sex", "year", "agegroup"),
-# mid.scales = c("per", "age"), all.x = TRUE, all.y = FALSE)
-# comp_pp_weights(x, surv.scale = "fot", breaks = seq(0, 5, 1/12), haz = "haz", style = "delta")
-
-comp_pp_weights <- function(lex, surv.scale = "fot", breaks = NULL, haz = "haz", style = "delta", verbose = FALSE) {
- ppTime <- proc.time()
- ## input: a split Lexis object (data.table) and the time scale to compute
- ## pp weights over; lex must also contain 'haz', the population
- ## (expected) hazard level for each row
- TF <- environment()
-
- lex.dur <- lex.id <- pp <- NULL ## APPEASE R CMD CHECK
-
- style <- match.arg(style, c("delta", "actual"))
- if (!is.data.table(lex)) stop("lex must be a data.table")
-
- all_names_present(lex, c(haz, surv.scale, "lex.id", "lex.dur"))
-
- if ("pp" %in% names(lex)) stop("Variable named 'pp' existed in data when attempting to compute pohar-perme weights; 'pp' is reserved so you should delete or rename that variable")
-
-
- if (!identical(key(lex), c("lex.id", surv.scale))) stop("lex must be a data.table keyed by lex.id and the survival time scale")
-
-
- breaks <- sort(unique(breaks)) - .Machine$double.eps^0.5
-
- ## need a bunch of temporary variable names to compute pp weights
- ## inside the data set without overwriting anything existing.
- ## this will take about 0.1 secs.
- tmpSI <- makeTempVarName(data = lex, pre = "surv.int_")
- tmpSIstart <- makeTempVarName(data = lex, pre = "surv.int.start_")
- tmpSIstop <- makeTempVarName(data = lex, pre = "surv.int.stop_")
- tmpSIlength <- makeTempVarName(data = lex, pre = "surv.int.length_")
- on.exit(setcolsnull(lex, delete = c(tmpSI, tmpSIstart, tmpSIstop, tmpSIlength, tmpPS, tmpPCS, tmpPCSM)), add = TRUE)
-
- set(lex, j = tmpSI, value = cut(lex[[surv.scale]], breaks, labels = FALSE))
- set(lex, j = tmpSIstop, value = breaks[-1][lex[[tmpSI]]])
- set(lex, j = tmpSIstart, value = breaks[-length(breaks)][lex[[tmpSI]]])
- set(lex, j = tmpSIlength, value = lex[[tmpSIstop]] - lex[[tmpSIstart]])
-
- tmpPS <- makeTempVarName(data = lex, pre = "pop.surv_")
- tmpPCS <- makeTempVarName(data = lex, pre = "pop.cumsurv_")
- tmpPCSM <- makeTempVarName(data = lex, pre = "pop.cumsurv.mid_")
-
- ## conditional survs
- if (verbose) condSurvTime <- proc.time()
-
- set(lex, j = tmpPS, value = exp(-lex[[haz]]*lex$lex.dur))
- ## till end of each interval...
- lex[, c(tmpPCS) := list(exp(-cumsum(.SD[[1L]]*lex.dur))),
- by = lex.id, .SDcols = c(haz, "lex.dur")]
- ## till start of each interval
- set(lex, j = tmpPCS, value = lex[[tmpPCS]] / lex[[tmpPS]])
- if (verbose) cat("Time taken by computing expected survivals up to start of each interval for each lex.id: ", timetaken(condSurvTime), "\n")
-
- ## pohar-perme weighting by expected cumulative survival. approximation:
- ## cumulative survival up to either middle of remaining surv.int (not individual-specific)
- ## or up to middle of subject's follow-up in each row (individual-specific)
- ## difference: e.g. 2 rows within a surv.int have either the same or different pp-weights
- if (style == "actual") {
- set(lex, j = tmpPCSM, value = lex[[tmpPCS]] * (lex[[tmpPS]])^0.5)
- }
- if (style == "delta") {
- if (verbose) deltaTime <- proc.time()
-
- setkeyv(lex, c("lex.id", tmpSI))
- ## expected survival up to middle of remaining time in surv.int
- ## cumulation starting from first record for subject in each surv.int
-
- ## some records are the only one for a lex.id in a surv.int; these are easy
- first_in_surv.int <- !duplicated(lex, fromLast = FALSE, by = key(lex))
- last_in_surv.int <- !duplicated(lex, fromLast = TRUE, by = key(lex))
- only_in_surv.int <- first_in_surv.int & last_in_surv.int
-
- lex[only_in_surv.int, c(tmpPCSM) := .SD[[1L]] * exp(.SD[[2L]] * (.SD[[3L]] - .SD[[4L]])/2L),
- .SDcols = c(tmpPCS, haz, tmpSIstop, surv.scale)]
-
- ## more complicated with many records in a surv.int per lex.id
- if (any(!only_in_surv.int)) {
-
- tmpSImid <- makeTempVarName(lex, pre = "surv.int.mid_")
- dist <- makeTempVarName(lex, pre = "dist_")
- on.exit(setcolsnull(lex, delete = c(dist, tmpSImid)), add = TRUE)
-
- ## middle point of survival interval
- set(lex, j = tmpSImid, value = (lex[[tmpSIstop]] - lex[[tmpSIstart]])/2L)
-
- ## distance from remaining surv.int mid-point starting from start of
- ## record; or at most lex.dur; for integration
- set(lex, j = dist, value = pmin(lex$lex.dur, lex[[tmpSImid]]))
- ## some records after mid-point can have negative fot.dist at this point
- set(lex, j = dist, value = pmax(lex[[dist]], 0))
-
- ## some lex.id are censored / die before mid of surv.int; last record
- ## must reach its fot.dist at least up to the mid (or be zero due to above)
- lex[last_in_surv.int, c(dist) := pmax((.SD[[1L]] - .SD[[2L]])/2L, 0),
- .SDcols = c(tmpSIstop, surv.scale)]
-
- byTime <- proc.time()
-
- ## from start of first in surv.int till mid point
- ## step by step for efficiency...
- lex[!only_in_surv.int, c(tmpPCSM) := .SD[[1L]] * .SD[[2L]], .SDcols = c(haz, dist)]
- lex[!only_in_surv.int, c(tmpPCSM) := lapply(.SD, sum),
- .SDcols = c(tmpPCSM), by = c("lex.id", tmpSI)]
- lex[!only_in_surv.int, c(tmpPCS) := .SD[1L],
- by = c("lex.id", tmpSI), .SDcols = c(tmpPCS)]
- lex[!only_in_surv.int, c(tmpPCSM) := .SD[[1L]] * exp(-.SD[[2L]]),
- .SDcols = c(tmpPCS, tmpPCSM)]
-
- ## todo: alternate faster method for integration!
- setcolsnull(lex, delete = c(dist))
- if (verbose) cat("Time taken by extra computation due to style 'delta': ", timetaken(deltaTime), "\n")
- }
-
- rm(first_in_surv.int, last_in_surv.int, only_in_surv.int)
- if (verbose) cat("Time taken by computation of Pohar-Perme weights: ", timetaken(ppTime), "\n")
- }
-
- setkeyv(lex, c("lex.id", surv.scale))
-
- lex[, pp := 1/.SD, .SDcols = tmpPCSM]
-
- invisible(lex[])
-}
-
-comp_pp_weighted_figures <- function(lex, haz = "haz", pp = "pp", event.ind = NULL, by = "lex.id") {
- ## PURPOSE: given a split Lexis object with a column of pre-computed
- ## pohar-perme weights, computes pp-weighted:
- ## * person-time (lex.dur*pp)
- ## * at-risk indicator
- ## * event counts
- ## * event counts multiplied with pp^2
- ## * expected event counts
- ## events are transitions and end points as detected by detectEvents,
- ## and include censorings.
- ## OUTPUT: a DT of pp-weighted things.
-
- ## appease R CMD CHECK
- lex.Cst <- lex.Xst <- NULL
-
- checkLexisData(lex, check.breaks = TRUE)
- if (!is.data.table(lex)) stop("lex must be a data.table")
-
- all_names_present(lex, c(pp, haz, event.ind, by))
-
- ## NOTE: we want to avoid conflicts with possible variable names in lex
- ## (e.g. an existing column named ptime.pp might conflict with ptime.pp char vec)
- e <- environment()
-
- if (is.null(event.ind)) {
- event.ind <- makeTempVarName(lex, pre = "event_indicator_")
- on.exit(setcolsnull(lex, delete = event.ind, soft = TRUE), add = TRUE)
- set(lex, j = event.ind, value = detectEvents(lex, breaks = attr(lex, "breaks"), by = by))
- all_names_present(lex, event.ind)
- }
- ## data.table is probably faster in this than simply using vectors
- idt <- data.table(1:2)
- names(idt) <- event.ind
- haveEvents <- sort(lex[idt, on = event.ind, which = TRUE])
- evtab <- lex[haveEvents, .(obs = .N), by = list(lex.Cst, lex.Xst)]
- set(evtab, j = "obs", value = NULL)
-
- events <- paste0("from", evtab$lex.Cst, "to", evtab$lex.Xst)
- ppVars <- c(paste0(events, ".pp"), "ptime.pp", "d.exp.pp")
-
-
-# ## build table to join with lex to limit to rows with events -----------------
-# ## non-event-rows have zero valued pp-weighted event counts, naturally
-# set(evtab, j = event.ind, value = NULL)
-# evtab <- rbindlist(list(evtab, evtab))
-# set(evtab, j = event.ind, value = rep(1:2, each = nrow(evtab)/2L))
-# setkeyv(evtab, c("lex.Cst", "lex.Xst", event.ind))
-
- ## pp-weighted events --------------------------------------------------------
- ## NOTE: a pp-weighted event is simply the pp weight where the event occurs
- ## and zero otherwise (0L/1L times pp-weight)
-
- evN <- length(events)
- evdt <- data.table(rn = rep(1:nrow(lex), times = evN))
- set(evdt, j = "eventType", value = factor(rep(1:evN, each = nrow(lex)), levels = 1:evN, labels = events))
- set(evdt, j = "pp", value = rep(lex[[pp]],length.out=nrow(evdt)))
-
-
- ## need to still determine which rows are not their eventType's events -------
-
- rnVar <- makeTempVarName(lex, pre = "rowNum_")
- on.exit(setcolsnull(lex, delete = rnVar, soft = TRUE), add = TRUE)
- set(lex, j = rnVar, value = 1:nrow(lex))
-
- ## row numbers in lex by event type
- rowNums <- lex[haveEvents][evtab, .(rowNum = .SD[[e$rnVar]]), by = .EACHI, on = c("lex.Cst", "lex.Xst"), .SDcols = rnVar]
- ## multiply to accommodate expanded evdt data
-
- rowNum <- NULL ## appease R CMD CHECK
- rowNums[, rowNum := rowNum+(.GRP-1L)*nrow(lex), by = list(lex.Cst, lex.Xst)]
- noEvents <- setdiff(1:nrow(evdt), rowNums$rowNum)
-
- set(evdt, i = noEvents, j = "pp", value = 0)
-
- evdt <- dcast.data.table(evdt, rn ~ eventType, value.var = "pp")
-
- setorderv(evdt, "rn")
- set(evdt, j = "rn", value = NULL)
-
- ## ptime.pp & d.exp.pp -------------------------------------------------------
- set(evdt, j = "ptime.pp", value = lex$lex.dur * lex[[pp]])
- set(evdt, j = "d.exp.pp", value = lex$lex.dur * lex[[haz]] * lex[[pp]])
-
- setcolorder(evdt, c("ptime.pp", "d.exp.pp", sort(events)))
- setnames(evdt, events, paste0(events, ".pp"))
-
- ## pp-weighted at-risk indicators --------------------------------------------
- ## these will be n.pp at the aggregate level.
- set(evdt, j = "at.risk.pp", value = lex[[pp]]*1L)
-
- ## events multiplied with pp-weight again ------------------------------------
- ## (i.e. event times pp squared)
-
- set(evdt, j = paste0(events, ".pp.2"),
- value = evdt[, .SD, .SDcols = paste0(events, ".pp")]*lex[[pp]])
-
- return(evdt[])
-
-}
-
-
-
-test_empty_surv_ints <- function(x, by = NULL, sum.over = NULL, test.var = "pyrs", show.by = NULL) {
-
- x <- copy(x)
- oc <- class(x)
- setDT(x)
- setattr(x, "class", oc)
-
- surv.int <- NULL ## APPEASE R CMD CHECK
-
- all_names_present(x, by, msg = "Missing variable(s) %%VARS%% from data when inspected for empty survival intervals. If you see this, send a message to the package maintainer.")
- all_names_present(x, sum.over, msg = "Missing variable(s) %%VARS%% from data when inspected for empty survival intervals. If you see this, send a message to the package maintainer.")
- all_names_present(x, test.var, msg = "Missing variable(s) %%VARS%% from data when inspected for empty survival intervals. If you see this, send a message to the package maintainer.")
-
- if (any(!sum.over %in% by)) stop("sum.over must be a subset of by.")
- if (length(show.by) == 0L) show.by <- by
- if (length(by) != length(show.by)) {
- stop("Internal error: length(sum.over) != length(show.sum.over). ",
- "If you see this, complain to the package maintainer.")
- }
-
- wh_sum.to <- !by %in% sum.over
- sum.to <- by[wh_sum.to]
- show.sum.to <- show.by[wh_sum.to]
-
- if (length(sum.to) == 0L) sum.to <- show.sum.to <- NULL
-
- tmpTV <- makeTempVarName(x, pre = "testValues_")
- tmpDiff <- makeTempVarName(x, pre = "diff_")
- on.exit(setcolsnull(x, delete = c(tmpTV, tmpDiff)))
-
- ## first check empty surv.ints are all consecutive...
- ## consecutiveness: e.g. out of 10 surv ints, 6-10 are empty.
- ## non-consecutiveness: e.g. out of 10 surv ints, 6-8 are empty.
- ## (then 9-10 will have NA estimates as well.)
- setkeyv(x, c(by, "surv.int"))
-
- ct <- x[, lapply(.SD, sum), keyby = c(sum.to, "surv.int"), .SDcols = test.var]
- setnames(ct, length(ct), tmpTV)
- ct <- ct[ct[[tmpTV]] > 0L, diff(surv.int), keyby = eval(sum.to)]
- setnames(ct, length(ct), tmpDiff)
- ct <- ct[ct[[tmpDiff]] > 1L]
- ## THE IDEA: if the difference in the number of the survival interval
- ## is > 1, it means there is at least one row between two non-empty
- ## intervals, i.e. non-consecutively.
-
- ## we keep non-consecutively bad surv.int stratas in entirety for inspection
- if (nrow(ct) > 0L) {
- msg <- paste0("The total person-time was zero in some survival intervals")
-
- if (!is.null(sum.to)) {
- msg <- paste0(msg, ", when summed to the variable(s) ",
- paste0("'", show.sum.to, "'", collapse = ", "),
- " (i.e. over all other variables, if any)")
- } else {
- msg <- paste0(msg, " summed to the margins (over any stratifying ",
- "/ adjusting variables)")
- }
-
- msg <- paste0(msg, " _non-consecutively_, i.e. some intervals after an ",
- "empty interval had person-time in them. ",
- "Keeping all survival ",
- "intervals with some estimates as NA for inspection.")
- message(msg)
- } else {
- ## we leave out intervals that are empty consecutively (e.g. all from 5-10)
- x[, c(tmpTV) := lapply(.SD, sum), by=c(sum.to, "surv.int"), .SDcols = test.var]
- x <- x[x[[tmpTV]] > 0L]
- setcolsnull(x, tmpTV)
- }
-
- x
-}
-
-
-
-
-comp_e1 <- function(x, breaks, pophaz, survScale, by = NULL, id = "lex.id", immortal = TRUE, verbose = FALSE) {
- ## INTENTION: given a Lexis data set x,
- ## computes Ederer I expected survival curves till end of follow-up
- ## by 'by' unless individual = TRUE.
- TF <- environment()
-
- lex.dur <- haz <- surv.exp <- NULL # R CMD CHECK appeasement
- ## check ---------------------------------------------------------------------
- checkLexisData(x)
- checkBreaksList(x, breaks)
- ph <- data.table(pophaz)
- tmpHaz <- makeTempVarName(x, pre = "pop_haz_")
- setnames(ph, "haz", tmpHaz)
- checkPophaz(x, ph, haz.name = tmpHaz)
-
- byErr <- paste0("Internal error (probably): work data did not have ",
- "variable(s) %%VARS%%. If your supplied data has them, ",
- "complain to the package maintainer.")
- all_names_present(x, c(by, id, survScale), msg = byErr)
-
- if (length(id) != 1L) {
- stop("Argument id must be of length 1.")
- }
- ## split ---------------------------------------------------------------------
- pt <- proc.time()
- oldBreaks <- attr(x, "breaks")
- allScales <- attr(x, "time.scales")
- if (!survScale %in% allScales) {
- stop("survScale '", survScale, "' not a time scale in the Lexis object. ",
- "(Possibly internal error - ensure you have that time scale in data. ",
- "If not, complain to the package maintainer.")
- }
- keepVars <- c(allScales, "lex.dur", "lex.id", "lex.Cst",
- "lex.Xst", by, id, setdiff(names(ph), tmpHaz))
- keepVars <- unique(keepVars)
- y <- subsetDTorDF(x, select = keepVars)
- y <- setDT(copy(y))
- forceLexisDT(y, breaks = oldBreaks, allScales = allScales, key = TRUE)
-
- ## won't use statuses for anything
- y[, c("lex.Cst", "lex.Xst") := NULL]
- y[, c("lex.Cst", "lex.Xst") := 0L]
-
- if (immortal) {
- ## set lex.dur to infinite. this assumes that the subjects never leave
- ## follow-up (which Ederer I assumes)
- storage.mode(y$lex.dur) <- "double"
- id_last <- !duplicated(y, by = "lex.id", fromLast = TRUE)
- y[TF$id_last, lex.dur := Inf]
- }
-
- y <- intelliCrop(y, breaks = breaks, allScales = allScales)
- y <- intelliDrop(y, breaks = breaks)
- setDT(y)
- forceLexisDT(y, breaks = oldBreaks, allScales = allScales, key = TRUE)
- setkeyv(y, c(id, survScale))
-
- y <- splitMulti(y, breaks = breaks, drop = FALSE, merge = TRUE)
-
- if (verbose) cat("Time taken by splitting: ", timetaken(pt), ".\n", sep = "")
-
- ## merge pop haz -------------------------------------------------------------
- pt <- proc.time()
- mergeVars <- intersect(names(y), names(ph))
- mergeScales <- intersect(allScales, mergeVars)
- if (length(mergeScales) == 0L) mergeScales <- NULL
- mergeCats <- setdiff(mergeVars, mergeScales)
- if (length(mergeCats) == 0L) mergeCats <- NULL
-
- y <- cutLowMerge(y, ph, by = mergeVars,
- mid.scales = mergeScales, old.nums = TRUE,
- all.x = TRUE, all.y = FALSE)
- setDT(y)
- if (verbose) cat("Time taken by merging pophaz: ", timetaken(pt), ".\n", sep = "")
-
- ## ederer I computation ------------------------------------------------------
- ## prep temp surv.int var
- tmpSI <- makeTempVarName(x, pre = "surv_int_")
- setkeyv(y, c(by, id, allScales[1L]))
- y[, c(tmpSI) := cut(y[[survScale]], breaks[[survScale]],
- right=FALSE,labels=FALSE)]
- setkeyv(y, c(by, tmpSI))
-
- ## EDERER I: integral of the weighted average expected hazard,
- ## where the weights are the subject-specific expected survival
- ## probabilities.
- ## 1) compute integral of hazard over an interval t_i by id
- ## (NOT cumulative hazard from zero till end of interval t_i)
- ## This sums over multiple rows a subject may have within one
- ## survival interval due to splitting by multiple time scales.
- pt <- proc.time()
- set(y, j = tmpHaz, value = y[[tmpHaz]]*y$lex.dur)
- y <- y[, lapply(.SD, sum), keyby = eval(unique(c(by, id, tmpSI))),
- .SDcols = c(tmpHaz)]
- setnames(y, ncol(y), tmpHaz)
-
- ## reverse temp names - need to be able to refer to haz without temp var
- ## to enable correct cumsum() below
- avoid <- c(names(y), tmpHaz, "surv.exp")
- tmpBy <- makeTempVarName(names = avoid, pre = by)
- tmpID <- makeTempVarName(names = c(avoid, tmpBy), pre = id)
- if (length(by)) {
- setnames(y, by, tmpBy)
- if (id %in% by) tmpID <- id <- tmpBy[by == id]
- } else {
- tmpBy <- by <- NULL
- }
- setnames(y, id, tmpID)
- setnames(y, tmpHaz, "haz")
- if (verbose) cat("Time taken by 1): ", timetaken(pt), ".\n", sep = "")
-
- ## 2) expected cum.haz. over intervals t_1 -> t_i by id...
- ## (no cumulative exp.surv yet)
- pt <- proc.time()
- y[, surv.exp := cumsum(haz), by = eval(tmpID)]
-
- if (verbose) cat("Time taken by 2): ", timetaken(pt), ".\n", sep = "")
- ## 3) cumulative surv.exp till end of interval t_i by id...
- pt <- proc.time()
- y[, surv.exp := exp(-surv.exp)]
-
- if (verbose) cat("Time taken by 3): ", timetaken(pt), ".\n", sep = "")
-
- ## 4) The Ederer I expected (marginal) survivals for intervals t_i
- pt <- proc.time()
- y <- y[, .(surv.exp = mean(surv.exp)), by = eval(c(tmpBy, tmpSI))]
- if (verbose) cat("Time taken by 4): ", timetaken(pt), ".\n", sep = "")
-
- if ("surv.exp" %in% by) {
- by[by == "surv.exp"] <- makeTempVarName(y, pre = "surv.exp")
- }
- if (length(by)) setnames(y, tmpBy, by)
-
- setcolorder(y, c(by, tmpSI, "surv.exp"))
- setkeyv(y, c(by, tmpSI))
- setnames(y, tmpSI, survScale)
- br <- breaks[[survScale]]
- br <- br[-1]
- y[, c(survScale) := br[y[[survScale]]]]
-
-
- y[]
-}
-
-
-
-
-detectSurvivalTimeScale <- function(lex, values) {
-
- checkLexisData(lex)
-
- allScales <- attr(lex, "time.scales")
-
- allScVals <- lapply(allScales, function(ch) lex[[ch]])
- names(allScVals) <- allScales
-
- whSurvScale <- lapply(allScVals, function(col) {
- identical(col, values)
- })
- whSurvScale <- unlist(whSurvScale)
-
- if (sum(whSurvScale) == 0L) {
- whSurvScale <- lapply(allScVals, function(col) {
- isTRUE({
- all.equal(col, values, scale = 1L,
- check.attributes = FALSE,
- tolerance = .Machine$double.eps ^ 0.5)
- })
- })
- whSurvScale <- unlist(whSurvScale)
- }
- if (sum(whSurvScale) == 0L) {
-
- dt <- as.data.table(allScVals)
- dt <- cbind(dt, data.table(testValues = values))
- on.exit(print(dt))
-
- stop("Could not determine which time scale was used. The formula MUST ",
- "include the time scale used within a Surv() call (or a Surv object),",
- " e.g. Surv(FUT, lex.Xst) ~ sex. Note that the 'time' argument is ",
- "effectively (and exceptionally) used here to denote the times at ",
- "the beginning of follow-up to identify the time scale existing in ",
- "the supplied data to use. If you are sure you are mentioning a ",
- "time scale in the formula in this manner, complain to the ",
- "package maintainer. The table printed below contains the time ",
- "scales tested against and the values that were supplied as the last ",
- "column.")
- }
- survScale <- allScales[whSurvScale]
- survScale
-
-}
-
+globalVariables(c("tab", "SE.A", "pp.table"))
+
+comp.st.surv <- function(surv.var = "p", surv.expr = "1-d/(n.eff-n.cens/2)",
+ SE.expr = "sqrt(p*(1-p)/(n.eff))", cumu = TRUE) {
+
+ function(surv.table = tab, surv.by.vars = NULL) {
+
+ tabname <- deparse(substitute(surv.table))
+ # tabname <- "surv.table"
+ by.expr <- NULL
+ if (!is.null(surv.by.vars)) {
+ surv.by.vars <- paste0("'", surv.by.vars, "'", collapse = " ,")
+ by.expr <- paste0(", by = c( ", surv.by.vars, " )")
+ }
+
+ surv.expr <- paste0(surv.var, " := ", surv.expr)
+ tab.surv.expr <- paste0(tabname, "[, ", surv.expr, by.expr, "]")
+ # surv.expr <- parse(text=surv.expr)
+ # surv.var <- parse(text=surv.var)
+ SE.var <- paste0("SE.", surv.var)
+ SE.expr <- paste0(SE.var, " := ", SE.expr)
+ tab.SE.expr <- paste0(tabname, "[, ", SE.expr, ", ", by.expr, "]")
+ # SE.expr <- parse(text=SE.expr)
+ # SE.var <- parse(text=SE.var)
+ cumuexpr <- paste0(tabname, "[, ", surv.var, " := cumprod(", surv.var, ")", by.expr, "]" )
+
+
+ ## parent.frame(2): two steps upstream in environments
+ pe <- function(obj, ..., env=parent.frame(2)) {
+ eval(parse(text=obj), ..., envir=env)
+ }
+
+ pe(tab.surv.expr)
+
+
+ if (cumu) pe(cumuexpr)
+
+ ## standard error
+ pe(tab.SE.expr)
+
+ ## zero survival leads to zero SE
+ minexpr <- paste0(tabname, "[",surv.var, "== 0, ", SE.var, " := 0]")
+ pe(minexpr)
+ }
+}
+
+
+comp.st.surv.obs.lif <- comp.st.surv(surv.var= "surv.obs",
+ surv.expr= "1-d/n.eff",
+ SE.expr= "surv.obs*sqrt( cumsum( d/(n.eff*(n.eff-d)) ) )", ## old : sqrt(p*(1-p)/(n.eff))"
+ cumu = TRUE)
+
+comp.st.surv.obs.haz <- comp.st.surv(surv.var= "surv.obs",
+ surv.expr= "exp(-delta*d/pyrs)",
+ SE.expr= "surv.obs*sqrt( cumsum( delta^2*d/pyrs^2 ) )", ## old: sqrt(p*(1-p)/(n.eff))
+ cumu = TRUE)
+
+
+comp.st.r.e2.haz <- comp.st.surv(surv.var = "r.e2",
+ surv.expr = "exp(-delta*(d-d.exp)/pyrs)",
+ SE.expr = "SE.surv.obs/surv.exp",
+ cumu=TRUE)
+
+comp.st.r.e2.lif <- comp.st.surv(surv.var = "r.e2",
+ surv.expr = "1-(d-d.exp)/(n.eff)",
+ SE.expr = "SE.surv.obs/surv.exp",
+ cumu=TRUE)
+
+comp.st.r.pp.haz <- comp.st.surv(surv.var = "r.pp",
+ surv.expr= "exp(-delta*(d.pp - d.exp.pp)/pyrs.pp)",
+ SE.expr = "r.pp*sqrt( cumsum( delta^2*( d.pp.2)/ pyrs.pp^2 ) )",
+ cumu=TRUE)
+
+comp.st.r.pp.lif <- comp.st.surv(surv.var = "r.pp",
+ surv.expr = "1-(d.pp-d.exp.pp)/(n.eff.pp)",
+ SE.expr = "r.pp*sqrt( cumsum( d.pp.2/(n.eff^2) ) )",
+ cumu=TRUE)
+
+
+## this function will calculate confidence intervals
+## for obs & rel & net survivals
+#' @import stats
+comp.st.conf.ints <- function(tab = pp.table, al=0.05, surv="r.pp", transform ="log-log") {
+ zlo <- as.character(qnorm(al/2))
+ zhi <- as.character(qnorm(1-al/2))
+ SE.surv <- paste0("SE.",surv)
+ surv.hi <- paste0(surv, ".hi")
+ surv.lo <- paste0(surv, ".lo")
+
+ tmp_se <- makeTempVarName(names = names(tab), pre = "delta_method_SE_", length = 15L)
+
+ pe <- function(...) {
+ eval(parse(text=paste0(...)), envir=tab)
+ }
+
+ if (transform =="plain") {
+ ## assume S(t)~N(mu, sigma)
+
+ ex <- paste0(surv, " ", zlo, "*", SE.surv)
+ tab[, (surv.lo) := pe(ex)]
+ ex <- paste0(surv, " +", zhi, "*", SE.surv)
+ tab[, (surv.hi) := pe(ex)]
+
+ } else if (transform =="log-log") {
+ ## assume log(H(t))~N(mu, sigma)
+ ## -> delta method SE: sqrt( SE^2 * (1/(log(SURV)*SURV))^2 )
+
+ ex <- paste0(SE.surv,"/(abs(log(",surv,"))*",surv,")")
+ tab[, (tmp_se) := pe(ex)]
+
+ ex <- paste0(surv, "^exp(", zhi, "*", tmp_se,")")
+ tab[, (surv.lo) := pe(ex)]
+ ex <- paste0(surv, "^exp(", zlo, "*", tmp_se,")")
+ tab[, (surv.hi) := pe(ex)]
+
+ } else if (transform =="log") {
+ ## assume log(S(t))~N(mu, sigma)
+ ## -> delta method SE: SE/SURV
+
+ ex <- paste0(SE.surv,"/",surv)
+ tab[, (tmp_se) := pe(ex)]
+
+ ex <- paste0(surv, "*exp(", zlo, "*", tmp_se,")")
+ tab[, (surv.lo) := pe(ex)]
+ ex <- paste0(surv, "*exp(", zhi, "*", tmp_se,")")
+ tab[, (surv.hi) := pe(ex)]
+ }
+ if (tmp_se %in% names(tab)) tab[, (tmp_se) := NULL]
+
+ ## zero SE means zero uncertainty means lo=hi=estimate
+ tab[tab[[SE.surv]] == 0, c(surv.lo, surv.hi) := .SD, .SDcols = surv]
+
+ tab[]
+}
+
+
+
+# x <- Lexis(data=sire[1,], entry = list(fot=0, per=get.yrs(dg_date), age=dg_age),
+# exit=list(per=get.yrs(ex_date)), exit.status=status)
+# x <- splitMulti(x, breaks = list(fot=seq(0, 5, by = 1/12), per=1994:2013, age = 0:150))
+# x[, surv.int := cut(fot, seq(0, 5, 1/12) - .Machine$double.eps^0.5, labels = FALSE)]
+# x <- cutLowMerge(x, popmort, by.x = c("sex","per", "age"),
+# by.y = c("sex", "year", "agegroup"),
+# mid.scales = c("per", "age"), all.x = TRUE, all.y = FALSE)
+# comp_pp_weights(x, surv.scale = "fot", breaks = seq(0, 5, 1/12), haz = "haz", style = "delta")
+
+comp_pp_weights <- function(lex, surv.scale = "fot", breaks = NULL, haz = "haz", style = "delta", verbose = FALSE) {
+ ppTime <- proc.time()
+ ## input: a split Lexis object (data.table) and the time scale to compute
+ ## pp weights over; lex must also contain 'haz', the population
+ ## (expected) hazard level for each row
+ TF <- environment()
+
+ lex.dur <- lex.id <- pp <- NULL ## APPEASE R CMD CHECK
+
+ style <- match.arg(style, c("delta", "actual"))
+ if (!is.data.table(lex)) stop("lex must be a data.table")
+
+ all_names_present(lex, c(haz, surv.scale, "lex.id", "lex.dur"))
+
+ if ("pp" %in% names(lex)) stop("Variable named 'pp' existed in data when attempting to compute pohar-perme weights; 'pp' is reserved so you should delete or rename that variable")
+
+
+ if (!identical(key(lex), c("lex.id", surv.scale))) stop("lex must be a data.table keyed by lex.id and the survival time scale")
+
+
+ breaks <- sort(unique(breaks)) - .Machine$double.eps^0.5
+
+ ## need a bunch of temporary variable names to compute pp weights
+ ## inside the data set without overwriting anything existing.
+ ## this will take about 0.1 secs.
+ tmpSI <- makeTempVarName(data = lex, pre = "surv.int_")
+ tmpSIstart <- makeTempVarName(data = lex, pre = "surv.int.start_")
+ tmpSIstop <- makeTempVarName(data = lex, pre = "surv.int.stop_")
+ tmpSIlength <- makeTempVarName(data = lex, pre = "surv.int.length_")
+ on.exit(setcolsnull(lex, delete = c(tmpSI, tmpSIstart, tmpSIstop, tmpSIlength, tmpPS, tmpPCS, tmpPCSM)), add = TRUE)
+
+ set(lex, j = tmpSI, value = cut(lex[[surv.scale]], breaks, labels = FALSE))
+ set(lex, j = tmpSIstop, value = breaks[-1][lex[[tmpSI]]])
+ set(lex, j = tmpSIstart, value = breaks[-length(breaks)][lex[[tmpSI]]])
+ set(lex, j = tmpSIlength, value = lex[[tmpSIstop]] - lex[[tmpSIstart]])
+
+ tmpPS <- makeTempVarName(data = lex, pre = "pop.surv_")
+ tmpPCS <- makeTempVarName(data = lex, pre = "pop.cumsurv_")
+ tmpPCSM <- makeTempVarName(data = lex, pre = "pop.cumsurv.mid_")
+
+ ## conditional survs
+ if (verbose) condSurvTime <- proc.time()
+
+ set(lex, j = tmpPS, value = exp(-lex[[haz]]*lex$lex.dur))
+ ## till end of each interval...
+ lex[, c(tmpPCS) := list(exp(-cumsum(.SD[[1L]]*lex.dur))),
+ by = lex.id, .SDcols = c(haz, "lex.dur")]
+ ## till start of each interval
+ set(lex, j = tmpPCS, value = lex[[tmpPCS]] / lex[[tmpPS]])
+ if (verbose) cat("Time taken by computing expected survivals up to start of each interval for each lex.id: ", timetaken(condSurvTime), "\n")
+
+ ## pohar-perme weighting by expected cumulative survival. approximation:
+ ## cumulative survival up to either middle of remaining surv.int (not individual-specific)
+ ## or up to middle of subject's follow-up in each row (individual-specific)
+ ## difference: e.g. 2 rows within a surv.int have either the same or different pp-weights
+ if (style == "actual") {
+ set(lex, j = tmpPCSM, value = lex[[tmpPCS]] * (lex[[tmpPS]])^0.5)
+ }
+ if (style == "delta") {
+ if (verbose) deltaTime <- proc.time()
+
+ setkeyv(lex, c("lex.id", tmpSI))
+ ## expected survival up to middle of remaining time in surv.int
+ ## cumulation starting from first record for subject in each surv.int
+
+ ## some records are the only one for a lex.id in a surv.int; these are easy
+ first_in_surv.int <- !duplicated(lex, fromLast = FALSE, by = key(lex))
+ last_in_surv.int <- !duplicated(lex, fromLast = TRUE, by = key(lex))
+ only_in_surv.int <- first_in_surv.int & last_in_surv.int
+
+ lex[only_in_surv.int, c(tmpPCSM) := .SD[[1L]] * exp(.SD[[2L]] * (.SD[[3L]] - .SD[[4L]])/2L),
+ .SDcols = c(tmpPCS, haz, tmpSIstop, surv.scale)]
+
+ ## more complicated with many records in a surv.int per lex.id
+ if (any(!only_in_surv.int)) {
+
+ tmpSImid <- makeTempVarName(lex, pre = "surv.int.mid_")
+ dist <- makeTempVarName(lex, pre = "dist_")
+ on.exit(setcolsnull(lex, delete = c(dist, tmpSImid)), add = TRUE)
+
+ ## middle point of survival interval
+ set(lex, j = tmpSImid, value = (lex[[tmpSIstop]] - lex[[tmpSIstart]])/2L)
+
+ ## distance from remaining surv.int mid-point starting from start of
+ ## record; or at most lex.dur; for integration
+ set(lex, j = dist, value = pmin(lex$lex.dur, lex[[tmpSImid]]))
+ ## some records after mid-point can have negative fot.dist at this point
+ set(lex, j = dist, value = pmax(lex[[dist]], 0))
+
+ ## some lex.id are censored / die before mid of surv.int; last record
+ ## must reach its fot.dist at least up to the mid (or be zero due to above)
+ lex[last_in_surv.int, c(dist) := pmax((.SD[[1L]] - .SD[[2L]])/2L, 0),
+ .SDcols = c(tmpSIstop, surv.scale)]
+
+ byTime <- proc.time()
+
+ ## from start of first in surv.int till mid point
+ ## step by step for efficiency...
+ lex[!only_in_surv.int, c(tmpPCSM) := .SD[[1L]] * .SD[[2L]], .SDcols = c(haz, dist)]
+ lex[!only_in_surv.int, c(tmpPCSM) := lapply(.SD, sum),
+ .SDcols = c(tmpPCSM), by = c("lex.id", tmpSI)]
+ lex[!only_in_surv.int, c(tmpPCS) := .SD[1L],
+ by = c("lex.id", tmpSI), .SDcols = c(tmpPCS)]
+ lex[!only_in_surv.int, c(tmpPCSM) := .SD[[1L]] * exp(-.SD[[2L]]),
+ .SDcols = c(tmpPCS, tmpPCSM)]
+
+ ## todo: alternate faster method for integration!
+ setcolsnull(lex, delete = c(dist))
+ if (verbose) cat("Time taken by extra computation due to style 'delta': ", timetaken(deltaTime), "\n")
+ }
+
+ rm(first_in_surv.int, last_in_surv.int, only_in_surv.int)
+ if (verbose) cat("Time taken by computation of Pohar-Perme weights: ", timetaken(ppTime), "\n")
+ }
+
+ setkeyv(lex, c("lex.id", surv.scale))
+
+ lex[, pp := 1/.SD, .SDcols = tmpPCSM]
+
+ invisible(lex[])
+}
+
+comp_pp_weighted_figures <- function(lex, haz = "haz", pp = "pp", event.ind = NULL, by = "lex.id") {
+ ## PURPOSE: given a split Lexis object with a column of pre-computed
+ ## pohar-perme weights, computes pp-weighted:
+ ## * person-time (lex.dur*pp)
+ ## * at-risk indicator
+ ## * event counts
+ ## * event counts multiplied with pp^2
+ ## * expected event counts
+ ## events are transitions and end points as detected by detectEvents,
+ ## and include censorings.
+ ## OUTPUT: a DT of pp-weighted things.
+
+ ## appease R CMD CHECK
+ lex.Cst <- lex.Xst <- NULL
+
+ checkLexisData(lex, check.breaks = TRUE)
+ if (!is.data.table(lex)) stop("lex must be a data.table")
+
+ all_names_present(lex, c(pp, haz, event.ind, by))
+
+ ## NOTE: we want to avoid conflicts with possible variable names in lex
+ ## (e.g. an existing column named ptime.pp might conflict with ptime.pp char vec)
+ e <- environment()
+
+ if (is.null(event.ind)) {
+ event.ind <- makeTempVarName(lex, pre = "event_indicator_")
+ on.exit(setcolsnull(lex, delete = event.ind, soft = TRUE), add = TRUE)
+ set(lex, j = event.ind, value = detectEvents(lex, breaks = attr(lex, "breaks"), by = by))
+ all_names_present(lex, event.ind)
+ }
+ ## data.table is probably faster in this than simply using vectors
+ idt <- data.table(1:2)
+ names(idt) <- event.ind
+ haveEvents <- sort(lex[idt, on = event.ind, which = TRUE])
+ evtab <- lex[haveEvents, .(obs = .N), by = list(lex.Cst, lex.Xst)]
+ set(evtab, j = "obs", value = NULL)
+
+ events <- paste0("from", evtab$lex.Cst, "to", evtab$lex.Xst)
+ ppVars <- c(paste0(events, ".pp"), "ptime.pp", "d.exp.pp")
+
+
+# ## build table to join with lex to limit to rows with events -----------------
+# ## non-event-rows have zero valued pp-weighted event counts, naturally
+# set(evtab, j = event.ind, value = NULL)
+# evtab <- rbindlist(list(evtab, evtab))
+# set(evtab, j = event.ind, value = rep(1:2, each = nrow(evtab)/2L))
+# setkeyv(evtab, c("lex.Cst", "lex.Xst", event.ind))
+
+ ## pp-weighted events --------------------------------------------------------
+ ## NOTE: a pp-weighted event is simply the pp weight where the event occurs
+ ## and zero otherwise (0L/1L times pp-weight)
+
+ evN <- length(events)
+ evdt <- data.table(rn = rep(1:nrow(lex), times = evN))
+ set(evdt, j = "eventType", value = factor(rep(1:evN, each = nrow(lex)), levels = 1:evN, labels = events))
+ set(evdt, j = "pp", value = rep(lex[[pp]],length.out=nrow(evdt)))
+
+
+ ## need to still determine which rows are not their eventType's events -------
+
+ rnVar <- makeTempVarName(lex, pre = "rowNum_")
+ on.exit(setcolsnull(lex, delete = rnVar, soft = TRUE), add = TRUE)
+ set(lex, j = rnVar, value = 1:nrow(lex))
+
+ ## row numbers in lex by event type
+ rowNums <- lex[haveEvents][evtab, .(rowNum = .SD[[e$rnVar]]), by = .EACHI, on = c("lex.Cst", "lex.Xst"), .SDcols = rnVar]
+ ## multiply to accommodate expanded evdt data
+
+ rowNum <- NULL ## appease R CMD CHECK
+ rowNums[, rowNum := rowNum+(.GRP-1L)*nrow(lex), by = list(lex.Cst, lex.Xst)]
+ noEvents <- setdiff(1:nrow(evdt), rowNums$rowNum)
+
+ set(evdt, i = noEvents, j = "pp", value = 0)
+
+ evdt <- dcast.data.table(evdt, rn ~ eventType, value.var = "pp")
+
+ setorderv(evdt, "rn")
+ set(evdt, j = "rn", value = NULL)
+
+ ## ptime.pp & d.exp.pp -------------------------------------------------------
+ set(evdt, j = "ptime.pp", value = lex$lex.dur * lex[[pp]])
+ set(evdt, j = "d.exp.pp", value = lex$lex.dur * lex[[haz]] * lex[[pp]])
+
+ setcolorder(evdt, c("ptime.pp", "d.exp.pp", sort(events)))
+ setnames(evdt, events, paste0(events, ".pp"))
+
+ ## pp-weighted at-risk indicators --------------------------------------------
+ ## these will be n.pp at the aggregate level.
+ set(evdt, j = "at.risk.pp", value = lex[[pp]]*1L)
+
+ ## events multiplied with pp-weight again ------------------------------------
+ ## (i.e. event times pp squared)
+
+ set(evdt, j = paste0(events, ".pp.2"),
+ value = evdt[, .SD, .SDcols = paste0(events, ".pp")]*lex[[pp]])
+
+ return(evdt[])
+
+}
+
+
+
+test_empty_surv_ints <- function(x, by = NULL, sum.over = NULL, test.var = "pyrs", show.by = NULL) {
+
+ x <- copy(x)
+ oc <- class(x)
+ setDT(x)
+ setattr(x, "class", oc)
+
+ surv.int <- NULL ## APPEASE R CMD CHECK
+
+ all_names_present(x, by, msg = "Missing variable(s) %%VARS%% from data when inspected for empty survival intervals. If you see this, send a message to the package maintainer.")
+ all_names_present(x, sum.over, msg = "Missing variable(s) %%VARS%% from data when inspected for empty survival intervals. If you see this, send a message to the package maintainer.")
+ all_names_present(x, test.var, msg = "Missing variable(s) %%VARS%% from data when inspected for empty survival intervals. If you see this, send a message to the package maintainer.")
+
+ if (any(!sum.over %in% by)) stop("sum.over must be a subset of by.")
+ if (length(show.by) == 0L) show.by <- by
+ if (length(by) != length(show.by)) {
+ stop("Internal error: length(sum.over) != length(show.sum.over). ",
+ "If you see this, complain to the package maintainer.")
+ }
+
+ wh_sum.to <- !by %in% sum.over
+ sum.to <- by[wh_sum.to]
+ show.sum.to <- show.by[wh_sum.to]
+
+ if (length(sum.to) == 0L) sum.to <- show.sum.to <- NULL
+
+ tmpTV <- makeTempVarName(x, pre = "testValues_")
+ tmpDiff <- makeTempVarName(x, pre = "diff_")
+ on.exit(setcolsnull(x, delete = c(tmpTV, tmpDiff)))
+
+ ## first check empty surv.ints are all consecutive...
+ ## consecutiveness: e.g. out of 10 surv ints, 6-10 are empty.
+ ## non-consecutiveness: e.g. out of 10 surv ints, 6-8 are empty.
+ ## (then 9-10 will have NA estimates as well.)
+ setkeyv(x, c(by, "surv.int"))
+
+ ct <- x[, lapply(.SD, sum), keyby = c(sum.to, "surv.int"), .SDcols = test.var]
+ setnames(ct, length(ct), tmpTV)
+ ct <- ct[ct[[tmpTV]] > 0L, diff(surv.int), keyby = eval(sum.to)]
+ setnames(ct, length(ct), tmpDiff)
+ ct <- ct[ct[[tmpDiff]] > 1L]
+ ## THE IDEA: if the difference in the number of the survival interval
+ ## is > 1, it means there is at least one row between two non-empty
+ ## intervals, i.e. non-consecutively.
+
+ ## we keep non-consecutively bad surv.int stratas in entirety for inspection
+ if (nrow(ct) > 0L) {
+ msg <- paste0("The total person-time was zero in some survival intervals")
+
+ if (!is.null(sum.to)) {
+ msg <- paste0(msg, ", when summed to the variable(s) ",
+ paste0("'", show.sum.to, "'", collapse = ", "),
+ " (i.e. over all other variables, if any)")
+ } else {
+ msg <- paste0(msg, " summed to the margins (over any stratifying ",
+ "/ adjusting variables)")
+ }
+
+ msg <- paste0(msg, " _non-consecutively_, i.e. some intervals after an ",
+ "empty interval had person-time in them. ",
+ "Keeping all survival ",
+ "intervals with some estimates as NA for inspection.")
+ message(msg)
+ } else {
+ ## we leave out intervals that are empty consecutively (e.g. all from 5-10)
+ x[, c(tmpTV) := lapply(.SD, sum), by=c(sum.to, "surv.int"), .SDcols = test.var]
+ x <- x[x[[tmpTV]] > 0L]
+ setcolsnull(x, tmpTV)
+ }
+
+ x
+}
+
+
+
+
+comp_e1 <- function(x, breaks, pophaz, survScale, by = NULL, id = "lex.id", immortal = TRUE, verbose = FALSE) {
+ ## INTENTION: given a Lexis data set x,
+ ## computes Ederer I expected survival curves till end of follow-up
+ ## by 'by' unless individual = TRUE.
+ TF <- environment()
+
+ lex.dur <- haz <- surv.exp <- NULL # R CMD CHECK appeasement
+ ## check ---------------------------------------------------------------------
+ checkLexisData(x)
+ checkBreaksList(x, breaks)
+ ph <- data.table(pophaz)
+ tmpHaz <- makeTempVarName(x, pre = "pop_haz_")
+ setnames(ph, "haz", tmpHaz)
+ checkPophaz(x, ph, haz.name = tmpHaz)
+
+ byErr <- paste0("Internal error (probably): work data did not have ",
+ "variable(s) %%VARS%%. If your supplied data has them, ",
+ "complain to the package maintainer.")
+ all_names_present(x, c(by, id, survScale), msg = byErr)
+
+ if (length(id) != 1L) {
+ stop("Argument id must be of length 1.")
+ }
+ ## split ---------------------------------------------------------------------
+ pt <- proc.time()
+ oldBreaks <- attr(x, "breaks")
+ allScales <- attr(x, "time.scales")
+ if (!survScale %in% allScales) {
+ stop("survScale '", survScale, "' not a time scale in the Lexis object. ",
+ "(Possibly internal error - ensure you have that time scale in data. ",
+ "If not, complain to the package maintainer.")
+ }
+ keepVars <- c(allScales, "lex.dur", "lex.id", "lex.Cst",
+ "lex.Xst", by, id, setdiff(names(ph), tmpHaz))
+ keepVars <- unique(keepVars)
+ y <- subsetDTorDF(x, select = keepVars)
+ y <- setDT(copy(y))
+ forceLexisDT(y, breaks = oldBreaks, allScales = allScales, key = TRUE)
+
+ ## won't use statuses for anything
+ y[, c("lex.Cst", "lex.Xst") := NULL]
+ y[, c("lex.Cst", "lex.Xst") := 0L]
+
+ if (immortal) {
+ ## set lex.dur to infinite. this assumes that the subjects never leave
+ ## follow-up (which Ederer I assumes)
+ storage.mode(y$lex.dur) <- "double"
+ id_last <- !duplicated(y, by = "lex.id", fromLast = TRUE)
+ y[TF$id_last, lex.dur := Inf]
+ }
+
+ y <- intelliCrop(y, breaks = breaks, allScales = allScales)
+ y <- intelliDrop(y, breaks = breaks)
+ setDT(y)
+ forceLexisDT(y, breaks = oldBreaks, allScales = allScales, key = TRUE)
+ setkeyv(y, c(id, survScale))
+
+ y <- splitMulti(y, breaks = breaks, drop = FALSE, merge = TRUE)
+
+ if (verbose) cat("Time taken by splitting: ", timetaken(pt), ".\n", sep = "")
+
+ ## merge pop haz -------------------------------------------------------------
+ pt <- proc.time()
+ mergeVars <- intersect(names(y), names(ph))
+ mergeScales <- intersect(allScales, mergeVars)
+ if (length(mergeScales) == 0L) mergeScales <- NULL
+ mergeCats <- setdiff(mergeVars, mergeScales)
+ if (length(mergeCats) == 0L) mergeCats <- NULL
+
+ y <- cutLowMerge(y, ph, by = mergeVars,
+ mid.scales = mergeScales, old.nums = TRUE,
+ all.x = TRUE, all.y = FALSE)
+ setDT(y)
+ if (verbose) cat("Time taken by merging pophaz: ", timetaken(pt), ".\n", sep = "")
+
+ ## ederer I computation ------------------------------------------------------
+ ## prep temp surv.int var
+ tmpSI <- makeTempVarName(x, pre = "surv_int_")
+ setkeyv(y, c(by, id, allScales[1L]))
+ y[, c(tmpSI) := cut(y[[survScale]], breaks[[survScale]],
+ right=FALSE,labels=FALSE)]
+ setkeyv(y, c(by, tmpSI))
+
+ ## EDERER I: integral of the weighted average expected hazard,
+ ## where the weights are the subject-specific expected survival
+ ## probabilities.
+ ## 1) compute integral of hazard over an interval t_i by id
+ ## (NOT cumulative hazard from zero till end of interval t_i)
+ ## This sums over multiple rows a subject may have within one
+ ## survival interval due to splitting by multiple time scales.
+ pt <- proc.time()
+ set(y, j = tmpHaz, value = y[[tmpHaz]]*y$lex.dur)
+ y <- y[, lapply(.SD, sum), keyby = eval(unique(c(by, id, tmpSI))),
+ .SDcols = c(tmpHaz)]
+ setnames(y, ncol(y), tmpHaz)
+
+ ## reverse temp names - need to be able to refer to haz without temp var
+ ## to enable correct cumsum() below
+ avoid <- c(names(y), tmpHaz, "surv.exp")
+ tmpBy <- makeTempVarName(names = avoid, pre = by)
+ tmpID <- makeTempVarName(names = c(avoid, tmpBy), pre = id)
+ if (length(by)) {
+ setnames(y, by, tmpBy)
+ if (id %in% by) tmpID <- id <- tmpBy[by == id]
+ } else {
+ tmpBy <- by <- NULL
+ }
+ setnames(y, id, tmpID)
+ setnames(y, tmpHaz, "haz")
+ if (verbose) cat("Time taken by 1): ", timetaken(pt), ".\n", sep = "")
+
+ ## 2) expected cum.haz. over intervals t_1 -> t_i by id...
+ ## (no cumulative exp.surv yet)
+ pt <- proc.time()
+ y[, surv.exp := cumsum(haz), by = eval(tmpID)]
+
+ if (verbose) cat("Time taken by 2): ", timetaken(pt), ".\n", sep = "")
+ ## 3) cumulative surv.exp till end of interval t_i by id...
+ pt <- proc.time()
+ y[, surv.exp := exp(-surv.exp)]
+
+ if (verbose) cat("Time taken by 3): ", timetaken(pt), ".\n", sep = "")
+
+ ## 4) The Ederer I expected (marginal) survivals for intervals t_i
+ pt <- proc.time()
+ y <- y[, .(surv.exp = mean(surv.exp)), by = eval(c(tmpBy, tmpSI))]
+ if (verbose) cat("Time taken by 4): ", timetaken(pt), ".\n", sep = "")
+
+ if ("surv.exp" %in% by) {
+ by[by == "surv.exp"] <- makeTempVarName(y, pre = "surv.exp")
+ }
+ if (length(by)) setnames(y, tmpBy, by)
+
+ setcolorder(y, c(by, tmpSI, "surv.exp"))
+ setkeyv(y, c(by, tmpSI))
+ setnames(y, tmpSI, survScale)
+ br <- breaks[[survScale]]
+ br <- br[-1]
+ y[, c(survScale) := br[y[[survScale]]]]
+
+
+ y[]
+}
+
+
+
+
+detectSurvivalTimeScale <- function(lex, values) {
+
+ checkLexisData(lex)
+
+ allScales <- attr(lex, "time.scales")
+
+ allScVals <- lapply(allScales, function(ch) lex[[ch]])
+ names(allScVals) <- allScales
+
+ whSurvScale <- lapply(allScVals, function(col) {
+ identical(col, values)
+ })
+ whSurvScale <- unlist(whSurvScale)
+
+ if (sum(whSurvScale) == 0L) {
+ whSurvScale <- lapply(allScVals, function(col) {
+ isTRUE({
+ all.equal(col, values, scale = 1L,
+ check.attributes = FALSE,
+ tolerance = .Machine$double.eps ^ 0.5)
+ })
+ })
+ whSurvScale <- unlist(whSurvScale)
+ }
+ if (sum(whSurvScale) == 0L) {
+
+ dt <- as.data.table(allScVals)
+ dt <- cbind(dt, data.table(testValues = values))
+ on.exit(print(dt))
+
+ stop("Could not determine which time scale was used. The formula MUST ",
+ "include the time scale used within a Surv() call (or a Surv object),",
+ " e.g. Surv(FUT, lex.Xst) ~ sex. Note that the 'time' argument is ",
+ "effectively (and exceptionally) used here to denote the times at ",
+ "the beginning of follow-up to identify the time scale existing in ",
+ "the supplied data to use. If you are sure you are mentioning a ",
+ "time scale in the formula in this manner, complain to the ",
+ "package maintainer. The table printed below contains the time ",
+ "scales tested against and the values that were supplied as the last ",
+ "column.")
+ }
+ survScale <- allScales[whSurvScale]
+ survScale
+
+}
+
diff --git a/R/utility_functions.R b/R/utility_functions.R
index ccd3817..e3070e0 100644
--- a/R/utility_functions.R
+++ b/R/utility_functions.R
@@ -1,1322 +1,1322 @@
-
-
-#' @title Cast \code{data.table}/\code{data.frame} from long format to wide format
-#' @author Matti Rantanen, Joonas Miettinen
-#'
-#' @description
-#' Convenience function for using \code{\link[data.table]{dcast.data.table}};
-#' inputs are character strings (names of variables) instead of a formula.
-#'
-#' @param data a \code{data.table} or \code{data.frame}
-#' @param columns a character string vector; the (unique combinations of the)
-#' levels of these variable will be different rows
-#' @param rows a character string vector; the (unique combinations of the)
-#' levels of these variable will be different columns
-#' @param values a character string; the variable which will be represented
-#' on rows and columns as specified by \code{columns} and \code{rows}
-#' @import data.table
-#' @import stats
-#' @export cast_simple
-#' @details This function is just a small interface for \code{dcast} /
-#' \code{dcast.data.table} and less flexible than the originals.
-#'
-#' Note that all \code{data.table} objects are also \code{data.frame}
-#' objects, but that each have their own \code{dcast} method.
-#' \code{\link[data.table]{dcast.data.table}} is faster.
-#'
-#' If any values in \code{value.vars} need to be
-#' aggregated, they are aggregated using \code{sum}.
-#' See \code{?dcast}.
-#' @return
-#' A `data.table` just like `[data.table::dcast]`.
-#'
-#' @examples
-#' library("data.table")
-#' ## e.g. silly counts from a long-format table to a wide format
-#' test <- data.table::copy(popEpi::sire)
-#' test$dg_y <- year(test$dg_date)
-#' test$ex_y <- year(test$ex_date)
-#' tab <- ltable(test, c("dg_y","ex_y"))
-#' cast_simple(tab, columns='dg_y', rows="ex_y", values="obs")
-#'
-
-
-cast_simple <- function(data=NULL, columns=NULL, rows=NULL, values=NULL) {
- if (!is.data.frame(data)) stop("data needs be a data.frame or data.table")
- if (is.null(data) || nrow(data) == 0L) stop("data NULL or has no rows")
-
- if (is.null(columns)) stop("columns cannot be NULL")
-
- msg <- paste0("Missing 'columns' variables: %%VARS%%")
- all_names_present(data, columns, msg = msg)
- msg <- paste0("Missing 'rows' variables: %%VARS%%")
- all_names_present(data, rows, msg = msg)
- msg <- paste0("Missing 'values' variables: %%VARS%%")
- all_names_present(data, values, msg = msg)
-
- ## allow rows = NULL
- rowsNULL <- FALSE
- if (is.null(rows)) rowsNULL <- TRUE
- if (rowsNULL) rows <- "1"
-
- ## sometimes rows names appear to be like expressions, e.g. 'factor(V1)'
- ## (and this function only uses string-column-names, so that's fine.)
- actualRows <- rows
- if (length(rows) > 1L || rows != "1") {
- rows <- makeTempVarName(names = c(names(data), columns),
- pre = paste0("RN", 1:length(rows)))
- on.exit(setnames(data, rows, actualRows), add = TRUE)
- setnames(data, actualRows, rows)
- }
- ## same for cols
- actualCols <- columns
- columns <- makeTempVarName(names = c(names(data), rows),
- pre = paste0("CN", 1:length(columns)))
- on.exit(setnames(data, columns, actualCols), add = TRUE)
- setnames(data, actualCols, columns)
-
- form <- paste0(paste0(rows, collapse = " + "), " ~ ",
- paste0(columns, collapse = " + "))
- form <- as.formula(form)
-
- ## note: dcast probably usually finds the methods for data.frame / data.table,
- ## but this method is more certain
- if (is.data.table(data)) {
- d <- dcast.data.table(data, formula = form, value.var=values,
- drop=FALSE, fun.aggregate=sum)[]
- } else {
- d <- dcast(data, formula = form, value.var = values,
- drop = FALSE, fun.aggregate = sum)[]
- }
- if (rowsNULL) set(d, j = names(d)[1L], value = NULL)
- wh_rows <- which(rows %in% names(d))
- if (sum(wh_rows, na.rm = TRUE)) setnames(d, rows[wh_rows], actualRows[wh_rows])
-
- d
-}
-
-
-#' @title Convert NA's to zero in data.table
-#' @author Joonas Miettinen
-#' @description Given a \code{data.table DT}, replaces any \code{NA} values
-#' in the variables given in \code{vars} in \code{DT}. Takes a copy of the
-#' original data and returns the modified copy.
-#' @import data.table
-#' @param DT \code{data.table} object
-#' @param vars a character string vector of variables names in \code{DT};
-#' if \code{NULL}, uses all variable names in \code{DT}
-#' @export na2zero
-#' @details Given a \code{data.table} object, converts \code{NA} values
-#' to numeric (double) zeros for all variables named in \code{vars} or
-#' all variables if \code{vars = NULL}.
-#' @return
-#' A copy of `DT` where `NA` values have been replaced with zero.
-na2zero = function(DT, vars = NULL) {
- if (!data.table::is.data.table(DT)) stop("DT must be a data.table")
- DT <- data.table::copy(DT)
-
- navars <- vars
- if (is.null(navars)) navars <- names(DT)
- all_names_present(DT, navars)
- for (k in navars) {
- DT[is.na(get(k)), (k) := 0]
- }
-
- return(DT[])
-}
-
-
-#' @title Convert factor variable to numeric
-#' @description Convert factor variable with numbers as levels into a numeric variable
-#' @param x a factor variable with numbers as levels
-#' @export fac2num
-#' @details
-#' For example, a factor with levels \code{c("5","7")} is converted into
-#' a numeric variable with values \code{c(5,7)}.
-#' @seealso
-#' \code{\link{robust_values}}
-#' @source
-#' \href{https://stackoverflow.com/questions/3418128/how-to-convert-a-factor-to-an-integer-numeric-without-a-loss-of-information}{Stackoverflow thread}
-#' @examples
-#' ## this is often not intended
-#' as.numeric(factor(c(5,7))) ## result: c(1,2)
-#' ## but this
-#' fac2num(factor(c(5,7))) ## result: c(5,7)
-#'
-#' ## however
-#' as.numeric(factor(c("5","7","a"))) ## 1:3
-#'
-#' suppressWarnings(
-#' fac2num(factor(c("5","7","a"))) ## c(5,7,NA)
-#' )
-#'
-#'
-#' @return
-#' A numeric vector based on the levels of `x`.
-fac2num <- function(x) {
- as.numeric(levels(x))[x]
-}
-
-
-
-
-#' @title Detect leap years
-#' @author Joonas Miettinen
-#' @description Given a vector or column of year values (numeric or integer), \code{\link{is_leap_year}} returns a vector of equal length
-#' of logical indicators, i.e. a vector where corresponding leap years have value TRUE, and FALSE otherwise.
-#'
-#' @param years a vector or column of year values (numeric or integer)
-#' @examples
-#' ## can be used to assign new columns easily, e.g. a dummy indicator column
-#' df <- data.frame(yrs=c(1900,1904,2005,1995))
-#' df$lyd <- as.integer(is_leap_year(df$yrs))
-#'
-#' ## mostly it is useful as a condition or to indicate which rows have leap years
-#' which(is_leap_year(df$yrs)) # 2
-#' df[is_leap_year(df$yrs),] # 2nd row
-#'
-#' @export is_leap_year
-#' @return
-#' A `logical` vector where `TRUE` indicates a leap year.
-is_leap_year <- function(years) {
- if (!is.numeric(years)) {
- stop("years must be a numeric vector, preferably integer for speed. Use e.g. as.integer().")
- }
-
- years <- try2int(years)
- if (!is.integer(years)) stop("years could not be coerced to integer; don't use fractional years such as 2000.1234 but integers such as 2000")
-
- # divisible by four
- isLeap <- years %% 4L == 0L
- # not divisible by 100
- isLeap <- isLeap & years %% 100L != 0L
- # unless divisible by 400 also
- isLeap <- isLeap | years %% 400L == 0L
- isLeap
-
-}
-#' @title Test if object is a \code{Date} object
-#' @description Tests if an object is a \code{Date} object and returns
-#' a logical vector of length 1. \code{IDate} objects are also
-#' \code{Date} objects, but \code{date} objects from package \pkg{date}
-#' are not.
-#' @author Joonas Miettinen
-#' @param obj object to test on
-#' @export is.Date
-#' @seealso
-#' \code{\link{get.yrs}}, \code{\link{is_leap_year}}, \code{\link{as.Date}}
-#' @return
-#' `TRUE` if `obj` is of class `"Date"` or `"IDate"`.
-is.Date <- function(obj) {
- if (any(c("IDate", "Date") %in% class(obj))) {
- return(TRUE)
- }
- return(FALSE)
-}
-
-
-#' @title Convert values to numeric robustly
-#' @author Joonas Miettinen
-#'
-#' @param num.values values to convert to numeric
-#' @param force logical; if \code{TRUE}, returns a vector of values where values that cannot be interpreted as numeric are
-#' set to \code{NA}; if \code{FALSE}, returns the original vector and gives a warning if any value cannot be interpreted as
-#' numeric.
-#' @param messages logical; if \code{TRUE}, returns a message of what was done with the \code{num.values}
-#' @description Brute force solution for ensuring a variable is numeric by
-#' coercing a variable of any type first to factor and then to numeric
-#' @export robust_values
-#' @import data.table
-#' @note
-#' Returns \code{NULL} if given \code{num.values} is \code{NULL}.
-#' @examples
-#' ## this works
-#' values <- c("1", "3", "5")
-#' values <- robust_values(values)
-#'
-#' ## this works
-#' values <- c("1", "3", "5", NA)
-#' values <- robust_values(values)
-#'
-#' ## this returns originals and throws warnings
-#' values <- c("1", "3", "5", "a")
-#' suppressWarnings(
-#' values <- robust_values(values)
-#' )
-#'
-#'
-#' ## this forces "a" to NA and works otherwise; throws warning about NAs
-#' values <- c("1", "3", "5", "a")
-#' suppressWarnings(
-#' values <- robust_values(values, force=TRUE)
-#' )
-#'
-#' @return
-#' A numeric vector.
-
-robust_values <- function(num.values, force = FALSE, messages = TRUE) {
- a <- NULL
- if (is.null(num.values)) {
- return(NULL)
- }
- dt <- data.table(num.values)
- nas <- dt[is.na(num.values), .N]
-
- suppressWarnings(
- dt[,a := fac2num(factor(num.values))]
- )
- dt[, a := try2int(a)]
- nas2 <- dt[is.na(a), .N]
-
- if (!force & nas2 > nas) {
- if (messages) warning("since force = FALSE and NAs were created, returning original values")
- return(dt$num.values)
- }
- if (force) {
- if (nas2 > nas) {
- if (messages) warning("some NAs were created")
- }
- return(dt$a)
- }
-
-
- return(dt$a)
-
-
-}
-
-#' @title Check if all names are present in given data
-#' @author Joonas Miettinen
-#' @param data dataset where the variable names should be found
-#' @param var.names a character vector of variable names, e.g.
-#' \code{c("var1", "var2")}
-#' @param stops logical, stop returns exception
-#' @param msg Custom message to return instead of default message.
-#' Special: include \code{\%\%VARS\%\%} in message string and the missing
-#' variable names will be inserted there (quoted, separated by comma, e.g.
-#' \code{'var1'}, \code{'var2'} --- no leading or tracing white space).
-#' @description Given a character vector, checks if all names are present in \code{names(data)}.
-#' Throws error if \code{stops=TRUE}, else returns \code{FALSE} if some variable name is not present.
-#' @seealso
-#' \code{\link{robust_values}}
-#' @export all_names_present
-#' @return
-#' `TRUE` if all `var.names` are in `data`, else `FALSE`,
-
-all_names_present <- function(data, var.names, stops = TRUE, msg = NULL) {
-
- if (!is.null(var.names) && !is.character(var.names)) {
- stop("Argument 'var.names' must be NULL or a character vector of ",
- "variable names.")
- }
- if (length(var.names) && any(is.na(var.names))) {
- stop("There are ", sum(is.na(var.names)), " missing values in argument ",
- "'var.names'. Please only supply non-NA values.")
- }
-
- badNames <- setdiff(var.names, names(data))
- if (length(badNames) == 0L) return(TRUE)
-
- badNames <- paste0("'", badNames, "'", collapse = ", ")
-
- if (is.null(msg)) msg <- paste0("Cannot proceed - following given variable name(s) not present in dataset '",
- deparse(substitute(data)), "': ", badNames)
- if (!is.character(msg) || length(msg) > 1L) stop("Argument 'msg' must be a character string vector of length one.") else
- msg <- gsub(pattern = "%%VARS%%", replacement = badNames, x = msg)
- if (!is.logical(stops) || length(stops) > 1L) stop("Argument 'stops' must be either TRUE or FALSE.")
-
- if (stops) stop(msg)
-
- return(FALSE)
-}
-
-
-#' @title Return lower_bound value from char string (20,30]
-#' @author Matti Rantanen
-#' @description selects lowest values of each factor after cut() based
-#' on that the value starts from index 2 and end in comma ",".
-#' @param cut is a character vector of elements "(20,60]"
-#' @export lower_bound
-#' @return
-#' A numeric vector.
-
-lower_bound <- function(cut) {
- cut <- as.character(cut)
- ind <- gregexpr(pattern=',',cut)
- ind <- as.numeric(ind) - 1
- t.sub <- as.numeric(substr(cut,2, ind))
- return(t.sub)
-}
-
-
-#' @title Change output values from cut(..., labels = NULL) output
-#' @author Matti Rantanen
-#' @param t is a character vector of elements, e.g. "(20,60]"
-#' @param factor logical; TRUE returns informative character string, FALSE numeric (left value)
-#' @description Selects lowest values of each factor after cut() based
-#' on the assumption that the value starts from index 2 and end in comma ",".
-#' @details type = 'factor': "[50,52)" -> "50-51" OR "[50,51)" -> "50"
-#'
-#' type = 'numeric': lowest bound in numeric.
-#'
-#' @export cut_bound
-#' @return
-#' If `factor = TRUE`, returns a character vector; else returns a numeric
-#' vector.
-#' @examples
-#' cut_bound("[1900, 1910)") ## "1900-1909"
-
-cut_bound <- function(t, factor=TRUE) {
- if (!factor) {
- t <- as.character(t)
- ind <- gregexpr(pattern=',',t)
- ind <- as.numeric(ind) - 1
- t <- as.numeric(substr(t,2, ind))
- return(t)
- }
- if (factor) {
- t <- as.character(t)
- t <- gsub(',', '-' , substr(t, 2, nchar(t) - 1) )
- ind <-as.numeric( gregexpr(pattern='-',t) )
- if (any(as.numeric( substr(t,1,ind-1) ) +1 == as.numeric( substr(t,ind+1,nchar(t))) ) ) {
- t <- substr(t,1,ind-1)
- return(t)
- }
- t
- a <- substr(t, ind+1, nchar(t))
- t <- sub(a, as.character(as.numeric(a)-1), t)
- return(t)
- }
-}
-
-
-
-
-#' @title Set the class of an object (convenience function for
-#' \code{setattr(obj, "class", CLASS)}); can add instead of replace
-#' @description Sets the class of an object in place to \code{cl}
-#' by replacing or adding
-#' @param obj and object for which to set class
-#' @param cl class to set
-#' @param add if \code{TRUE}, adds \code{cl} to the
-#' classes of the \code{obj}; otherwise replaces the class information
-#' @param add.place \code{"first"} or \code{"last"}; adds \code{cl}
-#' to the front or to the back of the \code{obj}'s class vector
-#' @author Joonas Miettinen
-setclass <- function(obj, cl, add=FALSE, add.place="first") {
- match.arg(add.place, c("first","last"))
- cl <- as.character(cl)
-
- if (add) {
- old_classes <- attr(obj, "class")
-
- if (add.place=="first") {
- setattr(obj, "class", c(cl, old_classes))
- } else {
- setattr(obj, "class", c(old_classes, cl))
- }
- } else {
- setattr(obj, "class", cl)
- }
-}
-
-
-
-
-#' @title Attempt coercion to integer
-#' @author James Arnold
-#' @description Attempts to convert a numeric object to integer,
-#' but won't if loss of information is imminent (if values after decimal
-#' are not zero for even one value in \code{obj})
-#' @param obj a numeric vector
-#' @param tol tolerance; if each numeric value in \code{obj} deviate from
-#' the corresponding integers at most the value of \code{tol}, they are considered
-#' to be integers; e.g. by default \code{1 + .Machine$double.eps} is considered
-#' to be an integer but \code{1 + .Machine$double.eps^0.49} is not.
-#' @export try2int
-#' @return
-#' An `integer` vector if no information is lost in coercion; else `numeric`
-#' vector.
-#' @source \href{https://stackoverflow.com/questions/3476782/how-to-check-if-the-number-is-integer}{Stackoverflow thread}
-try2int <- function(obj, tol = .Machine$double.eps^0.5) {
- if (!is.numeric(obj)) stop("obj needs to be integer or double (numeric)")
- if (is.integer(obj)) return(obj)
-
- test <- FALSE
-
- bad <- if (length(na.omit(obj)) == 0) TRUE else
- min(obj, na.rm = TRUE) == -Inf || max(obj, na.rm = TRUE) == Inf
- if (bad) {
- return(obj)
- } else {
- test <- max(abs(obj) %% 1, na.rm = TRUE) < tol
- }
-
- if (is.na(test) || is.null(test)) test <- FALSE
-
- if (test) return(as.integer(obj))
-
- return(obj)
-
-}
-
-
-#' @md
-#' @title Get rate and exact Poisson confidence intervals
-#' @author epitools
-#' @description Computes confidence intervals for Poisson rates
-#' @param x observed
-#' @param pt expected
-#' @param conf.level alpha level
-#'
-#' @export poisson.ci
-#'
-#'
-#' @examples
-#'
-#' poisson.ci(x = 4, pt = 5, conf.level = 0.95)
-#' @return
-#' A `data.frame` with columns
-#'
-#' - `x`: arg `x`
-#' - `pt`: arg `pt`
-#' - `rate`: result of `x / pt`
-#' - `lower`: lower bound of CI
-#' - `upper`: upper bound of CI
-#' - `conf.level`: arg `conf.level`
-#'
-poisson.ci <- function(x, pt = 1, conf.level = 0.95) {
- xc <- cbind(x, conf.level, pt)
- pt2 <- xc[, 3]
- results <- matrix(NA, nrow(xc), 6)
- f1 <- function(x, ans, alpha = alp) {
- ppois(x, ans) - alpha/2
- }
- f2 <- function(x, ans, alpha = alp) 1 - ppois(x, ans) + dpois(x, ans) - alpha/2
- for (i in 1:nrow(xc)) {
- alp <- 1 - xc[i, 2]
- interval <- c(0, xc[i, 1] * 5 + 4)
- uci <- uniroot(f1, interval = interval, x = xc[i, 1])$root/pt2[i]
- if (xc[i, 1] == 0) {
- lci <- 0
- }
- else {
- lci <- uniroot(f2, interval = interval, x = xc[i,1])$root/pt2[i]
- }
- results[i, ] <- c(xc[i, 1], pt2[i], xc[i, 1]/pt2[i], lci, uci, xc[i, 2])
- }
- coln <- c("x", "pt", "rate", "lower", "upper", "conf.level")
- colnames(results) <- coln
- data.frame(results)
-}
-
-
-#' @title Delete \code{data.table} columns if there
-#' @author Joonas Miettinen
-#' @description Deletes columns in a \code{data.table} conveniently.
-#' May only delete columns that are found silently. Sometimes useful in e.g.
-#' \code{on.exit} expressions.
-#' @param DT a \code{data.table}
-#' @param delete a character vector of column names to be deleted
-#' @param keep a character vector of column names to keep;
-#' the rest will be removed; \code{keep} overrides \code{delete}
-#' @param colorder logical; if \code{TRUE}, also does \code{setcolorder} using
-#' \code{keep}
-#' @param soft logical; if \code{TRUE}, does not cause an error if any variable
-#' name in \code{keep} or \code{delete} is missing; \code{soft = FALSE} useful
-#' for programming sometimes
-#'
-#'
-#' @export setcolsnull
-#' @return
-#' Always returns `NULL` invisibly.
-#' This function is called for its side effects.
-setcolsnull <- function(DT=NULL, delete=NULL, keep=NULL, colorder=FALSE, soft=TRUE) {
- if (!is.data.table(DT)) stop("not a data.table")
- if (!soft) {
- all_names_present(DT, keep, msg = "Expected")
- all_names_present(DT, delete)
- }
- del_cols <- NULL
- del_cols <- intersect(delete, names(DT))
- if (!is.null(keep)) {
- del_cols <- setdiff(names(DT), keep)
- }
- if (length(del_cols) > 0) {
- set(DT, j = (del_cols), value = NULL)
- }
- if (colorder) {
- setcolorder(DT, intersect(keep, names(DT)))
- }
- return(invisible(NULL))
-}
-
-
-
-temp_var_names <- function(n = 1L, avoid = NULL, length = 10L) {
- ## INTENTION: make temporary variable names that don't exist in
- ## char vector "avoid", e.g. avoid = names(data).
- if (n < 1L || !is.integer(n)) {
- stop("n must an integer > 0")
- }
- if (length < 1L || !is.integer(length)) {
- stop("length must an integer > 0")
- }
- if (!is.null(avoid)) avoid <- as.character(avoid)
-
- pool <- c(0:9, letters, LETTERS)
-
- formTemp <- function(int) {
- v <- sample(x = pool, size = length, replace = TRUE)
- paste0(v, collapse = "")
- }
-
- l <- lapply(1:n, formTemp)
- dupll <- duplicated(l) | l %in% avoid
- tick <- 1L
- while (any(dupll) && tick <= 100L) {
- l[dupll] <- lapply(1:sum(dupll), formTemp)
- dupll <- duplicated(l) | l %in% avoid
- tick <- tick + 1L
- }
- if (tick >= 100L) {
- stop("ran randomization 100 times and could not create unique temporary",
- " names. Perhaps increase length?")
- }
- unlist(l)
-}
-
-#' @import stats
-makeTempVarName <- function(data=NULL, names=NULL,
- pre=NULL, post=NULL, length = 10L) {
- DN <- NULL
- DN <- c(DN, names(data))
- DN <- c(DN, names)
- DN <- unique(DN)
-
- if (length(pre) != length(post) && length(post) > 0L && length(pre) > 0L) {
- stop("Lengths of arguments 'pre' and 'post' differ (", length(pre), " vs. ",
- length(post), "). (Tried to create temporary variables, so this is ",
- "most likely an internal error and the pkg maintainer should be ",
- "complained to.)")
- }
- useN <- max(length(pre), length(post), 1L)
- useL <- length
- tv <- temp_var_names(avoid = DN, n = useN, length = useL)
- tv <- paste0(pre, tv, post)
- tv
-}
-
-
-setDFpe <- function(x) {
- ## intended to only be used to set data.table to data.frame in place
- ## when option("popEpi.datatable") == FALSE
- if (!is.data.table(x)) stop("only accepts data.table as input")
-
- cl <- class(x)
- wh <- which(cl == "data.table")
- cl = c(cl[1:(wh-1)], cl[(wh+1):length(cl)])
- setattr(x, "class", cl)
-
- setattr(x, "sorted", NULL)
- setattr(x, ".internal.selfref", NULL)
-}
-
-
-
-evalLogicalSubset <- function(data, substiset, n = 2, enclos = parent.frame(n)) {
- ## NOTE: subset MUST be substitute()'d before using this function!
- ## we allow substiset to be a logical condition only
- ## ALWAYS returns a logical vector of length nrow(data)
-
- substiset <- eval(substiset, envir = data, enclos = enclos)
- if (!is.null(substiset)) {
- if (!is.logical(substiset)) stop("Expression to subset by must be a logical condition, e.g. var1 == 0, var1 %in% 1:2, var1 > 0, etc.")
- substiset <- substiset & !is.na(substiset)
- if (sum(substiset) == 0) stop("zero rows in data after subset")
- } else {
- substiset <- rep(TRUE, nrow(data))
- }
- substiset
-}
-
-
-#' @importFrom data.table setDT
-subsetDTorDF <- function(data, subset = NULL, select = NULL) {
- ## INTENTION: subsetting either a data.table or a data.frame
- ## and returning only selected variables for lazy people.
- if (!is.data.frame(data)) {
- stop("data must be a data.table/data.frame")
- }
- if (!inherits(subset, c("NULL", "logical"))) {
- stop("subset must be a logical vector or NULL")
- }
-
- expr <- "data[subset, select]"
- if (is.data.table(data)) {
- expr <- "data[subset, .SD, .SDcols = select]"
- }
-
- if (!is.null(select)) {
- all_names_present(data, select)
- } else {
- select <- names(data)
- }
- if (is.null(subset)) {
- expr <- sub("^data\\[subset, ", "data[, ", expr)
- }
-
- eval(parse(text = expr))
-}
-
-
-
-setDT2DF <- function(x) {
- if (!is.data.table(x)) stop("only accepts data.table as input")
-
- cl <- class(x)
- cl <- setdiff(cl, "data.table")
- setattr(x, "class", cl)
- setattr(x, "sorted", NULL)
- setattr(x, ".internal.selfref", NULL)
- invisible(x)
-}
-
-setDF2DT <- function(x) {
- if (!is.data.frame(x) || is.data.table(x)) stop("only accepts data.frame as input")
-
- cl <- class(x)
- whDF <- which(cl == "data.frame")
- cl <- c(cl[1:(whDF-1)], "data.table", "data.frame", cl[whDF:length(cl)])
-
- setattr(x, "class", cl)
- alloc.col(x)
-
- invisible(x)
-}
-
-
-
-
-p.round <- function(p, dec=3) {
- th <- eval( parse(text=paste0('1E-', dec ) ))
- if( is.null(p)) return( '= NA')
- if( is.na(p)) return( '= NA')
- if( p < th ){
- p <- paste0('< ', th )
- } else {
- p <- paste0('= ', round(p, dec) )
- }
- p
-}
-
-
-cutLow <- function(x, breaks, tol = .Machine$double.eps^0.5) {
- ## a cut function that returns the lower bounds of the cut intervals (as numeric) as levels
-
- breaks <- sort(breaks)
- x <- cut(x + tol, right = FALSE, breaks = breaks, labels = FALSE)
- x <- breaks[-length(breaks)][x]
- x
-}
-
-
-
-
-setcols <- function(x, j, value) {
- ## intention: add new columns to DT via modifying in place, and to DF
- ## via DF$var <- value; both conserve memory (don't take copy of whole data)
-
- if (!is.data.frame(x)) stop("x must be a data.frame")
- if (!is.list(value)) stop("value must be a list of values (columns to add)")
- if (missing(j)) j <- names(value)
-
- if (!is.data.table(x)) {
- x[j] <- value
- } else {
- set(x, j = j, value = value)
- }
- x
-}
-
-
-
-
-cutLowMerge <- function(x, y, by.x = by, by.y = by, by = NULL, all.x = all, all.y = all, all = FALSE, mid.scales = c("per", "age"), old.nums = TRUE) {
- ## INTENTION: merges y to x by by.x & by.y after cutLow()'ing appropriate
- ## variables in x so that y's values match with x's values
- ## requirements;
- ## * numeric variables in y correspond to lower limits of some intervals OR
- ## are group variables (e.g. sex = c(0,1))
- ## inputs: two datas as in merge, preferably both data.table, and other args
- ## to merge()
- ## output: a data.table where y has been merged to x after cutLow()
- ## example: merging popmort to a split Lexis object, where popmort's variables
- ## correspond to at least some Lexis time scales
- ## old.nums: return old numeric variable values used in cutLow()'ing?
- ## mid.scales: use mid-point of interval when merging by these Lexis time scales
- ## computed by adding + 0.5*lex.dur, which must exist
-
- if (!is.data.table(x)) {
- stop("x must be a data.table")
- }
-
- if ((is.null(by.x) && !is.null(by.y)) || (!is.null(by.x) && is.null(by.y))) {
- stop("one but not both of by.x / by.y is NULL")
- }
- if (!is.null(by)) by.x <- by.y <- by
-
- if (length(by.x) != length(by.y)) stop("lengths differ for by.y & by.x")
- all_names_present(x, by.x)
- all_names_present(y, by.y)
- names(by.x) <- by.y
- names(by.y) <- by.x
-
- if (length(mid.scales)>0) all_names_present(x, c("lex.dur", mid.scales))
-
- whScale <- by.x %in% mid.scales
- xScales <- by.x[whScale]
- yScales <- by.y[whScale]
-
- if (length(yScales) > 0) {
-
- oldVals <- copy(with(x, mget(xScales)))
- on.exit(set(x, j = xScales, value = oldVals))
- setattr(oldVals, "names", yScales)
-
- for (yVar in yScales) {
- xVar <- xScales[yVar]
- xBr <- sort(unique(y[[yVar]]))
- xBr <- unique(c(xBr, Inf))
- set(x, j = xVar, value = cutLow(x[[xVar]] + x$lex.dur*0.5, breaks = xBr))
- }
-
- }
-
- ## ensure x retains order (no copy taken of it)
- xKey <- key(x)
- if (length(xKey) == 0) {
- xKey <- makeTempVarName(x, pre = "sort_")
- on.exit(if ("x" %in% ls()) setcolsnull(x, delete = xKey, soft = TRUE), add = TRUE)
- on.exit(if ("z" %in% ls()) setcolsnull(z, delete = xKey, soft = TRUE), add = TRUE)
- x[, (xKey) := 1:.N]
- }
-
- if (any(duplicated(y, by = by.y))) {
- stop("y is duplicated by the inferred/supplied by.y variables (",
- paste0("'", by.y, "'", collapse = ", "), "). ",
- "First ensure this is not so before proceeding.")
- }
-
- ## avoid e.g. using merge.Lexis when x inherits Lexis
- xClass <- class(x)
- on.exit({
- setattr(x, "class", xClass)
- }, add = TRUE)
- setattr(x, "class", c("data.table", "data.frame"))
-
- ## return old numeric values of variables that were cutLow()'d
- ## by keeping them
- if (old.nums && length(xScales)) {
- tmpXScales <- makeTempVarName(names = c(names(x), names(y)), pre = xScales)
- set(x, j = tmpXScales, value = oldVals)
- on.exit({
- xOrder <- setdiff(names(x), tmpXScales)
- setcolsnull(x, delete = xScales, soft = TRUE)
- setnames(x, tmpXScales, xScales)
- setcolorder(x, xOrder)
-
- }, add = TRUE)
- }
-
- ## merge
- z <- merge(x, y, by.x = by.x, by.y = by.y,
- all.x = all.x, all.y = all.y, all = all,
- sort = FALSE)
-
- setDT(z)
- if (old.nums && length(xScales)) {
- ## avoid warning due to coercing double to integer
- set(z, j = xScales, value = NULL)
- setnames(z, tmpXScales, xScales)
- }
-
- zOrder <- intersect(names(x), names(z))
- zOrder <- c(zOrder, setdiff(names(z), names(x)))
- setcolorder(z, zOrder)
- if (length(xKey) > 0) setkeyv(z, xKey)
- z[]
-
-}
-
-
-getOrigin <- function(x) {
- ## input: Date, IDate, or date variable
- ## output: the origin date in Date format,
- ## the origin date being the date where the underlying index is zero.
- if (inherits(x, "Date") || inherits(x, "IDate")) {
- as.Date("1970-01-01")
- } else if (inherits(x, "date")) {
- as.Date("1960-01-01")
- } else if (inherits(x, "dates")) {
- as.Date(paste0(attr(x, "origin"), collapse = "-"), format = "%d-%m-%Y")
- } else {
- stop("class '", class(x), "' not supported; usage of Date recommended - see ?as.Date")
- }
-
-}
-
-promptYN <- function(q) {
-
- rl <- readline(prompt = paste0(q, " (Y/N) ::: "))
- y <- c("y", "Y")
- n <- c( "n", "N")
- if (!rl %in% c(y,n)) {
- cat("Answer must be one of the following (without ticks):", paste0("'",c(y, n),"'", collapse = ", "))
- promptYN(q = q)
- }
-
- if (rl %in% y) TRUE else FALSE
-
-}
-
-
-
-oneWhitespace <- function(x) {
- if (!is.character(x)) stop("x not a character")
- x <- paste0(x, collapse = " ")
- while(sum(grep(pattern = " ", x = x))) {
- x <- gsub(pattern = " ", replacement = " ", x = x)
- }
- x
-}
-
-
-aliased_cols <- function(data, cols) {
-
- if (missing(cols)) cols <- names(data)
- all_names_present(data, cols)
-
- if (length(cols) < 2L) return(invisible())
-
- x <- with(data, mget(cols))
- x <- lapply(x, duplicated)
-
- sub_cols <- cols
- tl <- list()
- ## loop: each step reduce vector of names by one
- ## to avoid testing the same variables twice (in both directions)
- tick <- 0L
- aliased <- FALSE
- while (!aliased && length(sub_cols) > 1L && tick <= length(cols)) {
-
- currVar <- sub_cols[1L]
- sub_cols <- setdiff(sub_cols, currVar)
- tl[[currVar]] <- unlist(lapply(x[sub_cols], function(j) identical(x[[currVar]], j)))
- aliased <- sum(tl[[currVar]])
-
- tick <- tick + 1L
- }
-
- if (tick == length(cols)) warning("while loop went over the number of columns argument cols")
-
- ## result: list of logical vectors indicating if a column is aliased
- ## with other columns
- tl[vapply(tl, function(j) sum(j) == 0L, logical(1))] <- NULL
-
- if (length(tl) == 0L) return(invisible())
-
- ## take first vector for reporting
- var <- names(tl)[1L]
- aliases <- names(tl[[1L]])[tl[[1]]]
- aliases <- paste0("'", aliases, "'", collapse = ", ")
- stop("Variable '", var, "' is aliased with following variable(s): ", aliases, ".")
-
- invisible()
-}
-
-
-
-
-
-
-
-return_DT <- function() {
-
- x <- getOption("popEpi.datatable")
- if (!is.null(x) && !is.logical(x)) {
- stop("the option 'popEpi.datatable' must be either NULL or a logical ",
- "value (TRUE / FALSE).")
- }
- if (is.null(x) || isTRUE(x)) {
- return(TRUE)
- }
- return(FALSE)
-
-}
-
-
-
-
-#' @title Create a Lexis Object with Follow-up Time, Period, and Age
-#' Time Scales
-#' @description
-#' This is a simple wrapper around \code{\link[Epi]{Lexis}} for creating
-#' a \code{Lexis} object with the time scales \code{fot}, \code{per},
-#' and \code{age}.
-#' @param data a \code{data.frame}; mandatory
-#' @param birth the time of birth; A character string naming the variable in
-#' data or an expression to evaluate - see
-#' \link[=flexible_argument]{Flexible input}
-#' @param entry the time at entry to follow-up; supplied the
-#' same way as \code{birth}
-#' @param exit the time at exit from follow-up; supplied the
-#' same way as \code{birth}
-#' @param entry.status passed on to \code{\link[Epi]{Lexis}} if not \code{NULL};
-#' supplied the same way as \code{birth}
-#' @param exit.status passed on to \code{\link[Epi]{Lexis}} if not \code{NULL};
-#' supplied the same way as \code{birth}
-#' @param subset a logical condition to subset by before passing data
-#' and arguments to \code{\link[Epi]{Lexis}}
-#' @param ... additional optional arguments passed on to
-#' \code{\link[Epi]{Lexis}}
-#' @return
-#' A \code{Lexis} object with the usual columns that \code{Lexis} objects
-#' have, with time scale columns \code{fot}, \code{per}, and \code{age}.
-#' They are calculated as
-#'
-#' \code{fot = entry - entry} (to ensure correct format, e.g. difftime)
-#'
-#' \code{per = entry}
-#'
-#' and
-#'
-#' \code{age = entry - birth}
-#'
-#' @examples
-#'
-#' data("sire", package = "popEpi")
-#'
-#' lex <- Lexis_fpa(sire,
-#' birth = "bi_date",
-#' entry = dg_date,
-#' exit = ex_date + 1L,
-#' exit.status = "status")
-#'
-#' ## some special cases
-#' myVar <- "bi_date"
-#' l <- list(myVar = "bi_date")
-#' sire$l <- sire$myVar <- 1
-#'
-#' ## conflict: myVar taken from data when "bi_date" was intended
-#' lex <- Lexis_fpa(sire,
-#' birth = myVar,
-#' entry = dg_date,
-#' exit = ex_date + 1L,
-#' exit.status = "status")
-#'
-#' ## no conflict with names in data
-#' lex <- Lexis_fpa(sire,
-#' birth = l$myVar,
-#' entry = dg_date,
-#' exit = ex_date + 1L,
-#' exit.status = "status")
-#' @export
-Lexis_fpa <- function(data,
- birth = NULL,
- entry = NULL,
- exit = NULL,
- entry.status = NULL,
- exit.status = NULL,
- subset = NULL,
- ...) {
- if (!requireNamespace("Epi", quietly = TRUE)) {
- stop("Install package Epi before using this function.")
- }
- TF <- environment()
- PF <- parent.frame(1L)
-
- checkVars <- c("fot", "per", "age",
- paste0("lex.", c("dur", "Xst", "Cst", "id")))
- checkVars <- intersect(names(data), checkVars)
- if (length(checkVars)) {
- stop("Following variable name(s) reserved but exist in data: ",
- paste0(checkVars, collapse = ", "))
- }
-
-
- sb <- substitute(subset)
- subset <- evalLogicalSubset(data, sb, enclos = PF)
- if (all(subset)) subset <- NULL
- x <- subsetDTorDF(data = data, subset = subset)
- setDT(x)
-
- an <- c("birth", "entry", "exit", "entry.status", "exit.status")
-
- l <- vector("list", length(an))
- names(l) <- an
- for (stri in an) {
- e <- paste0("substitute(", stri, ", env = TF)")
- e <- parse(text = e)[[1]]
- e <- eval(e, envir = TF) ## e.g. result of substitute(birth)
- e <- evalPopArg(data = x, arg = e, enclos = PF)[[1]]
- l[[stri]] <- e
- }
-
- l[sapply(l, is.null)] <- NULL
-
- missVars <- setdiff(c("birth", "entry", "exit"), names(l))
- if (length(missVars)) {
- stop("Following mandatory arguments were NULL: ",
- paste0(missVars, collapse = ", "))
- }
-
- fot <- l$entry - l$entry
- per <- l$entry
- age <- l$entry - l$birth
- per_exit <- l$exit
-
- en <- list(fot = fot, per = per, age = age)
- ex <- list(per = per_exit)
-
- al <- list(entry = en, exit = ex, entry.status = l$entry.status,
- exit.status = l$exit.status, data = x)
- al[sapply(al, is.null)] <- NULL
-
- do.call(Epi::Lexis, args = c(al, ...))
-}
-
-
-
-
-
-
-
-get_breaks <- function(x) {
- UseMethod("get_breaks")
-}
-
-get_breaks.survtab <- function(x) {
-
- ss <- attributes(x)$survtab.meta$surv.scale
- sb <- attributes(x)$survtab.meta$surv.breaks
-
- l <- list(sb)
- names(l) <- ss
- as.list(l)
-
-}
-
-
-get_breaks.aggre <- function(x) {
-
- as.list(attributes(x)$aggre.meta$breaks)
-
-}
-
-get_breaks.Lexis <- function(x) {
- as.list(attributes(x)$breaks)
-}
-
-get_breaks.default <- function(x) {
- NULL
-}
-
-
-select_breaks <- function(data, ...) {
- UseMethod("select_breaks")
-}
-
-select_breaks.default <- function(data, ts, br = NULL, ...) {
- br <- do_select_breaks(data = data, ts = ts, br = br)
- if (is.null(br)) {
- stop("Data did not contain breaks and no breaks were supplied ",
- "by hand.")
- }
- br
-}
-
-select_breaks.aggre <- function(data, ts, br = NULL, ...) {
-
-
- br <- do_select_breaks(data = data, ts = ts, br = br)
-
- select_breaks_subcheck(br, get_breaks(data)[[ts]],
- "Manually supplied breaks were not a ",
- "subset of the breaks in aggre data. ",
- "Data has breaks as a result of being split and ",
- "aggregated; see ?as.aggre and ?aggre")
-
- if (is.null(br)) {
- stop("aggre object did not contain breaks and no breaks were supplied ",
- "by hand.")
- }
-
- br
-}
-
-select_breaks.Lexis <- function(data, ts, br = NULL, ...) {
-
- checkLexisData(data)
-
- br <- do_select_breaks(data = data, ts = ts, br = br)
-
- select_breaks_subcheck(br, get_breaks(data)[[ts]],
- "Manually supplied breaks were not a ",
- "subset of the breaks in Lexis data. ",
- "Data has breaks as a result of being a split Lexis ",
- "object; see ?Lexis and e.g. ?splitMulti")
-
- if (is.null(br)) {
- stop("Lexis object did not contain breaks and no breaks were supplied ",
- "by hand.")
- }
- bl <- list(br)
- names(bl) <- ts
- checkBreaksList(data, breaks = bl)
-
- br
-}
-
-
-select_breaks_subcheck <- function(b1, b2, ...) {
- l1 <- list(b1)
- l2 <- list(b2)
- names(l1) <- names(l2) <- "TS"
-
- if (!is.null(b1) && !is.null(b2) && !all_breaks_in(l1, l2)) {
- stop(...)
- }
-}
-
-do_select_breaks <- function(data, ts, br = NULL) {
- # @description selects breaks from data or from br depending on
- # which one is NULL. If both exist, br must be a subset of the breaks
- # in data.
-
- stopifnot(is.data.frame(data))
- stopifnot(is.character(ts) && length(ts) == 1L && ts %in% names(data))
-
- dbr <- get_breaks(data)[[ts]]
-
- dbl <- list(dbr)
- bl <- list(br)
- names(dbl) <- names(bl) <- "TS"
-
-
-
- if (is.null(br)) br <- dbr
-
- br
-}
-
-
-
-
-breaks_in_data <- function(br, ts, data) {
- ## note: last break does not usually appear in data, unless intentionally
- ## limiting from e.g. 0:5 to 0:4
- stopifnot(length(ts) == 1 && ts %in% names(data))
- u <- unique(data[[ts]])
-
- br <- sort(unique(br))
- if (length(br)<2) stop("There must be at least two breaks to form intervals")
-
- br <- if (max(br) <= max(u)) br else br[-length(br)]
- all(br %in% u)
-
-}
-
-
-
-
-
-is_named_list <- function(x) is.list(x) && length(unique(names(x))) == length(x)
-
-
-
-
-fuse_breakslists <- function(bl.old, bl.new, drop) {
- # @description given two lists of breaks, uses all timescales found
- # in both lists to fuse into one list. For common timescales an
- # interval-based subset is taken, so that the new always limits the old
- # when drop = TRUE.
-
- stopifnot(
- is_named_list(bl.old), is_named_list(bl.new)
- )
-
- bl <- bl.old
- new_scales <- setdiff(names(bl.old), names(bl.new))
- if (length(new_scales)) {
- bl[new_scales] <- bl.new[new_scales]
- }
- common_scales <- intersect(names(bl.old), names(bl.new))
- if (length(common_scales)) {
-
- bl[common_scales] <- lapply(common_scales, function(time_scale) {
- new <- bl.new[[time_scale]]
- old <- bl.old[time_scale]
- fuse <- sort(union(old, new))
- if (drop) {
- r.new <- range(new)
- r.old <- range(old)
- r <- c(max(r.new[1], r.old[1]), min(r.new[2], r.old[2]))
- fuse <- fuse[between(fuse, r[1], r[2], incbounds = TRUE)]
- }
- fuse
- })
-
- }
-
- bl
-
-}
-
-
-
-
-
-
-set2 <- function(x, j, ...) {
- cols_exst <- intersect(names(x), j)
- old_order <- copy(names(x))
- if (length(cols_exst)) {
- set(x, j = cols_exst, value = NULL)
- }
- set(x = x, j = j, ...)
- new_cols <- setdiff(names(x), old_order)
- setcolorder(x, c(old_order, new_cols))
- invisible(x)
-}
-
-
-
-
-
-mget_cols <- function(cols, data) {
-
- stopifnot(all(cols %in% names(data)))
-
- setDT(mget(x = cols, envir = as.environment(data), inherits = FALSE))
-}
-
-
-
-
-
-get_random_seed <- function() {
- t <- Sys.time()
- s <- as.numeric(t) %% as.integer(t)
- nc <- nchar(s)
- s <- as.integer(substr(s, nc-8, nc))
- s
-}
-
-
-skip_normally <- function() {
- requireNamespace("testthat")
- if (!identical(Sys.getenv("popEpi_run_all_unit_tests"), "true")) {
- testthat::skip("Unit tests skipped normally")
- }
-}
+
+
+#' @title Cast \code{data.table}/\code{data.frame} from long format to wide format
+#' @author Matti Rantanen, Joonas Miettinen
+#'
+#' @description
+#' Convenience function for using \code{\link[data.table]{dcast.data.table}};
+#' inputs are character strings (names of variables) instead of a formula.
+#'
+#' @param data a \code{data.table} or \code{data.frame}
+#' @param columns a character string vector; the (unique combinations of the)
+#' levels of these variable will be different rows
+#' @param rows a character string vector; the (unique combinations of the)
+#' levels of these variable will be different columns
+#' @param values a character string; the variable which will be represented
+#' on rows and columns as specified by \code{columns} and \code{rows}
+#' @import data.table
+#' @import stats
+#' @export cast_simple
+#' @details This function is just a small interface for \code{dcast} /
+#' \code{dcast.data.table} and less flexible than the originals.
+#'
+#' Note that all \code{data.table} objects are also \code{data.frame}
+#' objects, but that each have their own \code{dcast} method.
+#' \code{\link[data.table]{dcast.data.table}} is faster.
+#'
+#' If any values in \code{value.vars} need to be
+#' aggregated, they are aggregated using \code{sum}.
+#' See \code{?dcast}.
+#' @return
+#' A `data.table` just like `[data.table::dcast]`.
+#'
+#' @examples
+#' library("data.table")
+#' ## e.g. silly counts from a long-format table to a wide format
+#' test <- data.table::copy(popEpi::sire)
+#' test$dg_y <- year(test$dg_date)
+#' test$ex_y <- year(test$ex_date)
+#' tab <- ltable(test, c("dg_y","ex_y"))
+#' cast_simple(tab, columns='dg_y', rows="ex_y", values="obs")
+#'
+
+
+cast_simple <- function(data=NULL, columns=NULL, rows=NULL, values=NULL) {
+ if (!is.data.frame(data)) stop("data needs be a data.frame or data.table")
+ if (is.null(data) || nrow(data) == 0L) stop("data NULL or has no rows")
+
+ if (is.null(columns)) stop("columns cannot be NULL")
+
+ msg <- paste0("Missing 'columns' variables: %%VARS%%")
+ all_names_present(data, columns, msg = msg)
+ msg <- paste0("Missing 'rows' variables: %%VARS%%")
+ all_names_present(data, rows, msg = msg)
+ msg <- paste0("Missing 'values' variables: %%VARS%%")
+ all_names_present(data, values, msg = msg)
+
+ ## allow rows = NULL
+ rowsNULL <- FALSE
+ if (is.null(rows)) rowsNULL <- TRUE
+ if (rowsNULL) rows <- "1"
+
+ ## sometimes rows names appear to be like expressions, e.g. 'factor(V1)'
+ ## (and this function only uses string-column-names, so that's fine.)
+ actualRows <- rows
+ if (length(rows) > 1L || rows != "1") {
+ rows <- makeTempVarName(names = c(names(data), columns),
+ pre = paste0("RN", 1:length(rows)))
+ on.exit(setnames(data, rows, actualRows), add = TRUE)
+ setnames(data, actualRows, rows)
+ }
+ ## same for cols
+ actualCols <- columns
+ columns <- makeTempVarName(names = c(names(data), rows),
+ pre = paste0("CN", 1:length(columns)))
+ on.exit(setnames(data, columns, actualCols), add = TRUE)
+ setnames(data, actualCols, columns)
+
+ form <- paste0(paste0(rows, collapse = " + "), " ~ ",
+ paste0(columns, collapse = " + "))
+ form <- as.formula(form)
+
+ ## note: dcast probably usually finds the methods for data.frame / data.table,
+ ## but this method is more certain
+ if (is.data.table(data)) {
+ d <- dcast.data.table(data, formula = form, value.var=values,
+ drop=FALSE, fun.aggregate=sum)[]
+ } else {
+ d <- dcast(data, formula = form, value.var = values,
+ drop = FALSE, fun.aggregate = sum)[]
+ }
+ if (rowsNULL) set(d, j = names(d)[1L], value = NULL)
+ wh_rows <- which(rows %in% names(d))
+ if (sum(wh_rows, na.rm = TRUE)) setnames(d, rows[wh_rows], actualRows[wh_rows])
+
+ d
+}
+
+
+#' @title Convert NA's to zero in data.table
+#' @author Joonas Miettinen
+#' @description Given a \code{data.table DT}, replaces any \code{NA} values
+#' in the variables given in \code{vars} in \code{DT}. Takes a copy of the
+#' original data and returns the modified copy.
+#' @import data.table
+#' @param DT \code{data.table} object
+#' @param vars a character string vector of variables names in \code{DT};
+#' if \code{NULL}, uses all variable names in \code{DT}
+#' @export na2zero
+#' @details Given a \code{data.table} object, converts \code{NA} values
+#' to numeric (double) zeros for all variables named in \code{vars} or
+#' all variables if \code{vars = NULL}.
+#' @return
+#' A copy of `DT` where `NA` values have been replaced with zero.
+na2zero = function(DT, vars = NULL) {
+ if (!data.table::is.data.table(DT)) stop("DT must be a data.table")
+ DT <- data.table::copy(DT)
+
+ navars <- vars
+ if (is.null(navars)) navars <- names(DT)
+ all_names_present(DT, navars)
+ for (k in navars) {
+ DT[is.na(get(k)), (k) := 0]
+ }
+
+ return(DT[])
+}
+
+
+#' @title Convert factor variable to numeric
+#' @description Convert factor variable with numbers as levels into a numeric variable
+#' @param x a factor variable with numbers as levels
+#' @export fac2num
+#' @details
+#' For example, a factor with levels \code{c("5","7")} is converted into
+#' a numeric variable with values \code{c(5,7)}.
+#' @seealso
+#' \code{\link{robust_values}}
+#' @source
+#' \href{https://stackoverflow.com/questions/3418128/how-to-convert-a-factor-to-an-integer-numeric-without-a-loss-of-information}{Stackoverflow thread}
+#' @examples
+#' ## this is often not intended
+#' as.numeric(factor(c(5,7))) ## result: c(1,2)
+#' ## but this
+#' fac2num(factor(c(5,7))) ## result: c(5,7)
+#'
+#' ## however
+#' as.numeric(factor(c("5","7","a"))) ## 1:3
+#'
+#' suppressWarnings(
+#' fac2num(factor(c("5","7","a"))) ## c(5,7,NA)
+#' )
+#'
+#'
+#' @return
+#' A numeric vector based on the levels of `x`.
+fac2num <- function(x) {
+ as.numeric(levels(x))[x]
+}
+
+
+
+
+#' @title Detect leap years
+#' @author Joonas Miettinen
+#' @description Given a vector or column of year values (numeric or integer), \code{\link{is_leap_year}} returns a vector of equal length
+#' of logical indicators, i.e. a vector where corresponding leap years have value TRUE, and FALSE otherwise.
+#'
+#' @param years a vector or column of year values (numeric or integer)
+#' @examples
+#' ## can be used to assign new columns easily, e.g. a dummy indicator column
+#' df <- data.frame(yrs=c(1900,1904,2005,1995))
+#' df$lyd <- as.integer(is_leap_year(df$yrs))
+#'
+#' ## mostly it is useful as a condition or to indicate which rows have leap years
+#' which(is_leap_year(df$yrs)) # 2
+#' df[is_leap_year(df$yrs),] # 2nd row
+#'
+#' @export is_leap_year
+#' @return
+#' A `logical` vector where `TRUE` indicates a leap year.
+is_leap_year <- function(years) {
+ if (!is.numeric(years)) {
+ stop("years must be a numeric vector, preferably integer for speed. Use e.g. as.integer().")
+ }
+
+ years <- try2int(years)
+ if (!is.integer(years)) stop("years could not be coerced to integer; don't use fractional years such as 2000.1234 but integers such as 2000")
+
+ # divisible by four
+ isLeap <- years %% 4L == 0L
+ # not divisible by 100
+ isLeap <- isLeap & years %% 100L != 0L
+ # unless divisible by 400 also
+ isLeap <- isLeap | years %% 400L == 0L
+ isLeap
+
+}
+#' @title Test if object is a \code{Date} object
+#' @description Tests if an object is a \code{Date} object and returns
+#' a logical vector of length 1. \code{IDate} objects are also
+#' \code{Date} objects, but \code{date} objects from package \pkg{date}
+#' are not.
+#' @author Joonas Miettinen
+#' @param obj object to test on
+#' @export is.Date
+#' @seealso
+#' \code{\link{get.yrs}}, \code{\link{is_leap_year}}, \code{\link{as.Date}}
+#' @return
+#' `TRUE` if `obj` is of class `"Date"` or `"IDate"`.
+is.Date <- function(obj) {
+ if (any(c("IDate", "Date") %in% class(obj))) {
+ return(TRUE)
+ }
+ return(FALSE)
+}
+
+
+#' @title Convert values to numeric robustly
+#' @author Joonas Miettinen
+#'
+#' @param num.values values to convert to numeric
+#' @param force logical; if \code{TRUE}, returns a vector of values where values that cannot be interpreted as numeric are
+#' set to \code{NA}; if \code{FALSE}, returns the original vector and gives a warning if any value cannot be interpreted as
+#' numeric.
+#' @param messages logical; if \code{TRUE}, returns a message of what was done with the \code{num.values}
+#' @description Brute force solution for ensuring a variable is numeric by
+#' coercing a variable of any type first to factor and then to numeric
+#' @export robust_values
+#' @import data.table
+#' @note
+#' Returns \code{NULL} if given \code{num.values} is \code{NULL}.
+#' @examples
+#' ## this works
+#' values <- c("1", "3", "5")
+#' values <- robust_values(values)
+#'
+#' ## this works
+#' values <- c("1", "3", "5", NA)
+#' values <- robust_values(values)
+#'
+#' ## this returns originals and throws warnings
+#' values <- c("1", "3", "5", "a")
+#' suppressWarnings(
+#' values <- robust_values(values)
+#' )
+#'
+#'
+#' ## this forces "a" to NA and works otherwise; throws warning about NAs
+#' values <- c("1", "3", "5", "a")
+#' suppressWarnings(
+#' values <- robust_values(values, force=TRUE)
+#' )
+#'
+#' @return
+#' A numeric vector.
+
+robust_values <- function(num.values, force = FALSE, messages = TRUE) {
+ a <- NULL
+ if (is.null(num.values)) {
+ return(NULL)
+ }
+ dt <- data.table(num.values)
+ nas <- dt[is.na(num.values), .N]
+
+ suppressWarnings(
+ dt[,a := fac2num(factor(num.values))]
+ )
+ dt[, a := try2int(a)]
+ nas2 <- dt[is.na(a), .N]
+
+ if (!force & nas2 > nas) {
+ if (messages) warning("since force = FALSE and NAs were created, returning original values")
+ return(dt$num.values)
+ }
+ if (force) {
+ if (nas2 > nas) {
+ if (messages) warning("some NAs were created")
+ }
+ return(dt$a)
+ }
+
+
+ return(dt$a)
+
+
+}
+
+#' @title Check if all names are present in given data
+#' @author Joonas Miettinen
+#' @param data dataset where the variable names should be found
+#' @param var.names a character vector of variable names, e.g.
+#' \code{c("var1", "var2")}
+#' @param stops logical, stop returns exception
+#' @param msg Custom message to return instead of default message.
+#' Special: include \code{\%\%VARS\%\%} in message string and the missing
+#' variable names will be inserted there (quoted, separated by comma, e.g.
+#' \code{'var1'}, \code{'var2'} --- no leading or tracing white space).
+#' @description Given a character vector, checks if all names are present in \code{names(data)}.
+#' Throws error if \code{stops=TRUE}, else returns \code{FALSE} if some variable name is not present.
+#' @seealso
+#' \code{\link{robust_values}}
+#' @export all_names_present
+#' @return
+#' `TRUE` if all `var.names` are in `data`, else `FALSE`,
+
+all_names_present <- function(data, var.names, stops = TRUE, msg = NULL) {
+
+ if (!is.null(var.names) && !is.character(var.names)) {
+ stop("Argument 'var.names' must be NULL or a character vector of ",
+ "variable names.")
+ }
+ if (length(var.names) && any(is.na(var.names))) {
+ stop("There are ", sum(is.na(var.names)), " missing values in argument ",
+ "'var.names'. Please only supply non-NA values.")
+ }
+
+ badNames <- setdiff(var.names, names(data))
+ if (length(badNames) == 0L) return(TRUE)
+
+ badNames <- paste0("'", badNames, "'", collapse = ", ")
+
+ if (is.null(msg)) msg <- paste0("Cannot proceed - following given variable name(s) not present in dataset '",
+ deparse(substitute(data)), "': ", badNames)
+ if (!is.character(msg) || length(msg) > 1L) stop("Argument 'msg' must be a character string vector of length one.") else
+ msg <- gsub(pattern = "%%VARS%%", replacement = badNames, x = msg)
+ if (!is.logical(stops) || length(stops) > 1L) stop("Argument 'stops' must be either TRUE or FALSE.")
+
+ if (stops) stop(msg)
+
+ return(FALSE)
+}
+
+
+#' @title Return lower_bound value from char string (20,30]
+#' @author Matti Rantanen
+#' @description selects lowest values of each factor after cut() based
+#' on that the value starts from index 2 and end in comma ",".
+#' @param cut is a character vector of elements "(20,60]"
+#' @export lower_bound
+#' @return
+#' A numeric vector.
+
+lower_bound <- function(cut) {
+ cut <- as.character(cut)
+ ind <- gregexpr(pattern=',',cut)
+ ind <- as.numeric(ind) - 1
+ t.sub <- as.numeric(substr(cut,2, ind))
+ return(t.sub)
+}
+
+
+#' @title Change output values from cut(..., labels = NULL) output
+#' @author Matti Rantanen
+#' @param t is a character vector of elements, e.g. "(20,60]"
+#' @param factor logical; TRUE returns informative character string, FALSE numeric (left value)
+#' @description Selects lowest values of each factor after cut() based
+#' on the assumption that the value starts from index 2 and end in comma ",".
+#' @details type = 'factor': "[50,52)" -> "50-51" OR "[50,51)" -> "50"
+#'
+#' type = 'numeric': lowest bound in numeric.
+#'
+#' @export cut_bound
+#' @return
+#' If `factor = TRUE`, returns a character vector; else returns a numeric
+#' vector.
+#' @examples
+#' cut_bound("[1900, 1910)") ## "1900-1909"
+
+cut_bound <- function(t, factor=TRUE) {
+ if (!factor) {
+ t <- as.character(t)
+ ind <- gregexpr(pattern=',',t)
+ ind <- as.numeric(ind) - 1
+ t <- as.numeric(substr(t,2, ind))
+ return(t)
+ }
+ if (factor) {
+ t <- as.character(t)
+ t <- gsub(',', '-' , substr(t, 2, nchar(t) - 1) )
+ ind <-as.numeric( gregexpr(pattern='-',t) )
+ if (any(as.numeric( substr(t,1,ind-1) ) +1 == as.numeric( substr(t,ind+1,nchar(t))) ) ) {
+ t <- substr(t,1,ind-1)
+ return(t)
+ }
+ t
+ a <- substr(t, ind+1, nchar(t))
+ t <- sub(a, as.character(as.numeric(a)-1), t)
+ return(t)
+ }
+}
+
+
+
+
+#' @title Set the class of an object (convenience function for
+#' \code{setattr(obj, "class", CLASS)}); can add instead of replace
+#' @description Sets the class of an object in place to \code{cl}
+#' by replacing or adding
+#' @param obj and object for which to set class
+#' @param cl class to set
+#' @param add if \code{TRUE}, adds \code{cl} to the
+#' classes of the \code{obj}; otherwise replaces the class information
+#' @param add.place \code{"first"} or \code{"last"}; adds \code{cl}
+#' to the front or to the back of the \code{obj}'s class vector
+#' @author Joonas Miettinen
+setclass <- function(obj, cl, add=FALSE, add.place="first") {
+ match.arg(add.place, c("first","last"))
+ cl <- as.character(cl)
+
+ if (add) {
+ old_classes <- attr(obj, "class")
+
+ if (add.place=="first") {
+ setattr(obj, "class", c(cl, old_classes))
+ } else {
+ setattr(obj, "class", c(old_classes, cl))
+ }
+ } else {
+ setattr(obj, "class", cl)
+ }
+}
+
+
+
+
+#' @title Attempt coercion to integer
+#' @author James Arnold
+#' @description Attempts to convert a numeric object to integer,
+#' but won't if loss of information is imminent (if values after decimal
+#' are not zero for even one value in \code{obj})
+#' @param obj a numeric vector
+#' @param tol tolerance; if each numeric value in \code{obj} deviate from
+#' the corresponding integers at most the value of \code{tol}, they are considered
+#' to be integers; e.g. by default \code{1 + .Machine$double.eps} is considered
+#' to be an integer but \code{1 + .Machine$double.eps^0.49} is not.
+#' @export try2int
+#' @return
+#' An `integer` vector if no information is lost in coercion; else `numeric`
+#' vector.
+#' @source \href{https://stackoverflow.com/questions/3476782/how-to-check-if-the-number-is-integer}{Stackoverflow thread}
+try2int <- function(obj, tol = .Machine$double.eps^0.5) {
+ if (!is.numeric(obj)) stop("obj needs to be integer or double (numeric)")
+ if (is.integer(obj)) return(obj)
+
+ test <- FALSE
+
+ bad <- if (length(na.omit(obj)) == 0) TRUE else
+ min(obj, na.rm = TRUE) == -Inf || max(obj, na.rm = TRUE) == Inf
+ if (bad) {
+ return(obj)
+ } else {
+ test <- max(abs(obj) %% 1, na.rm = TRUE) < tol
+ }
+
+ if (is.na(test) || is.null(test)) test <- FALSE
+
+ if (test) return(as.integer(obj))
+
+ return(obj)
+
+}
+
+
+#' @md
+#' @title Get rate and exact Poisson confidence intervals
+#' @author epitools
+#' @description Computes confidence intervals for Poisson rates
+#' @param x observed
+#' @param pt expected
+#' @param conf.level alpha level
+#'
+#' @export poisson.ci
+#'
+#'
+#' @examples
+#'
+#' poisson.ci(x = 4, pt = 5, conf.level = 0.95)
+#' @return
+#' A `data.frame` with columns
+#'
+#' - `x`: arg `x`
+#' - `pt`: arg `pt`
+#' - `rate`: result of `x / pt`
+#' - `lower`: lower bound of CI
+#' - `upper`: upper bound of CI
+#' - `conf.level`: arg `conf.level`
+#'
+poisson.ci <- function(x, pt = 1, conf.level = 0.95) {
+ xc <- cbind(x, conf.level, pt)
+ pt2 <- xc[, 3]
+ results <- matrix(NA, nrow(xc), 6)
+ f1 <- function(x, ans, alpha = alp) {
+ ppois(x, ans) - alpha/2
+ }
+ f2 <- function(x, ans, alpha = alp) 1 - ppois(x, ans) + dpois(x, ans) - alpha/2
+ for (i in 1:nrow(xc)) {
+ alp <- 1 - xc[i, 2]
+ interval <- c(0, xc[i, 1] * 5 + 4)
+ uci <- uniroot(f1, interval = interval, x = xc[i, 1])$root/pt2[i]
+ if (xc[i, 1] == 0) {
+ lci <- 0
+ }
+ else {
+ lci <- uniroot(f2, interval = interval, x = xc[i,1])$root/pt2[i]
+ }
+ results[i, ] <- c(xc[i, 1], pt2[i], xc[i, 1]/pt2[i], lci, uci, xc[i, 2])
+ }
+ coln <- c("x", "pt", "rate", "lower", "upper", "conf.level")
+ colnames(results) <- coln
+ data.frame(results)
+}
+
+
+#' @title Delete \code{data.table} columns if there
+#' @author Joonas Miettinen
+#' @description Deletes columns in a \code{data.table} conveniently.
+#' May only delete columns that are found silently. Sometimes useful in e.g.
+#' \code{on.exit} expressions.
+#' @param DT a \code{data.table}
+#' @param delete a character vector of column names to be deleted
+#' @param keep a character vector of column names to keep;
+#' the rest will be removed; \code{keep} overrides \code{delete}
+#' @param colorder logical; if \code{TRUE}, also does \code{setcolorder} using
+#' \code{keep}
+#' @param soft logical; if \code{TRUE}, does not cause an error if any variable
+#' name in \code{keep} or \code{delete} is missing; \code{soft = FALSE} useful
+#' for programming sometimes
+#'
+#'
+#' @export setcolsnull
+#' @return
+#' Always returns `NULL` invisibly.
+#' This function is called for its side effects.
+setcolsnull <- function(DT=NULL, delete=NULL, keep=NULL, colorder=FALSE, soft=TRUE) {
+ if (!is.data.table(DT)) stop("not a data.table")
+ if (!soft) {
+ all_names_present(DT, keep, msg = "Expected")
+ all_names_present(DT, delete)
+ }
+ del_cols <- NULL
+ del_cols <- intersect(delete, names(DT))
+ if (!is.null(keep)) {
+ del_cols <- setdiff(names(DT), keep)
+ }
+ if (length(del_cols) > 0) {
+ set(DT, j = (del_cols), value = NULL)
+ }
+ if (colorder) {
+ setcolorder(DT, intersect(keep, names(DT)))
+ }
+ return(invisible(NULL))
+}
+
+
+
+temp_var_names <- function(n = 1L, avoid = NULL, length = 10L) {
+ ## INTENTION: make temporary variable names that don't exist in
+ ## char vector "avoid", e.g. avoid = names(data).
+ if (n < 1L || !is.integer(n)) {
+ stop("n must an integer > 0")
+ }
+ if (length < 1L || !is.integer(length)) {
+ stop("length must an integer > 0")
+ }
+ if (!is.null(avoid)) avoid <- as.character(avoid)
+
+ pool <- c(0:9, letters, LETTERS)
+
+ formTemp <- function(int) {
+ v <- sample(x = pool, size = length, replace = TRUE)
+ paste0(v, collapse = "")
+ }
+
+ l <- lapply(1:n, formTemp)
+ dupll <- duplicated(l) | l %in% avoid
+ tick <- 1L
+ while (any(dupll) && tick <= 100L) {
+ l[dupll] <- lapply(1:sum(dupll), formTemp)
+ dupll <- duplicated(l) | l %in% avoid
+ tick <- tick + 1L
+ }
+ if (tick >= 100L) {
+ stop("ran randomization 100 times and could not create unique temporary",
+ " names. Perhaps increase length?")
+ }
+ unlist(l)
+}
+
+#' @import stats
+makeTempVarName <- function(data=NULL, names=NULL,
+ pre=NULL, post=NULL, length = 10L) {
+ DN <- NULL
+ DN <- c(DN, names(data))
+ DN <- c(DN, names)
+ DN <- unique(DN)
+
+ if (length(pre) != length(post) && length(post) > 0L && length(pre) > 0L) {
+ stop("Lengths of arguments 'pre' and 'post' differ (", length(pre), " vs. ",
+ length(post), "). (Tried to create temporary variables, so this is ",
+ "most likely an internal error and the pkg maintainer should be ",
+ "complained to.)")
+ }
+ useN <- max(length(pre), length(post), 1L)
+ useL <- length
+ tv <- temp_var_names(avoid = DN, n = useN, length = useL)
+ tv <- paste0(pre, tv, post)
+ tv
+}
+
+
+setDFpe <- function(x) {
+ ## intended to only be used to set data.table to data.frame in place
+ ## when option("popEpi.datatable") == FALSE
+ if (!is.data.table(x)) stop("only accepts data.table as input")
+
+ cl <- class(x)
+ wh <- which(cl == "data.table")
+ cl = c(cl[1:(wh-1)], cl[(wh+1):length(cl)])
+ setattr(x, "class", cl)
+
+ setattr(x, "sorted", NULL)
+ setattr(x, ".internal.selfref", NULL)
+}
+
+
+
+evalLogicalSubset <- function(data, substiset, n = 2, enclos = parent.frame(n)) {
+ ## NOTE: subset MUST be substitute()'d before using this function!
+ ## we allow substiset to be a logical condition only
+ ## ALWAYS returns a logical vector of length nrow(data)
+
+ substiset <- eval(substiset, envir = data, enclos = enclos)
+ if (!is.null(substiset)) {
+ if (!is.logical(substiset)) stop("Expression to subset by must be a logical condition, e.g. var1 == 0, var1 %in% 1:2, var1 > 0, etc.")
+ substiset <- substiset & !is.na(substiset)
+ if (sum(substiset) == 0) stop("zero rows in data after subset")
+ } else {
+ substiset <- rep(TRUE, nrow(data))
+ }
+ substiset
+}
+
+
+#' @importFrom data.table setDT
+subsetDTorDF <- function(data, subset = NULL, select = NULL) {
+ ## INTENTION: subsetting either a data.table or a data.frame
+ ## and returning only selected variables for lazy people.
+ if (!is.data.frame(data)) {
+ stop("data must be a data.table/data.frame")
+ }
+ if (!inherits(subset, c("NULL", "logical"))) {
+ stop("subset must be a logical vector or NULL")
+ }
+
+ expr <- "data[subset, select]"
+ if (is.data.table(data)) {
+ expr <- "data[subset, .SD, .SDcols = select]"
+ }
+
+ if (!is.null(select)) {
+ all_names_present(data, select)
+ } else {
+ select <- names(data)
+ }
+ if (is.null(subset)) {
+ expr <- sub("^data\\[subset, ", "data[, ", expr)
+ }
+
+ eval(parse(text = expr))
+}
+
+
+
+setDT2DF <- function(x) {
+ if (!is.data.table(x)) stop("only accepts data.table as input")
+
+ cl <- class(x)
+ cl <- setdiff(cl, "data.table")
+ setattr(x, "class", cl)
+ setattr(x, "sorted", NULL)
+ setattr(x, ".internal.selfref", NULL)
+ invisible(x)
+}
+
+setDF2DT <- function(x) {
+ if (!is.data.frame(x) || is.data.table(x)) stop("only accepts data.frame as input")
+
+ cl <- class(x)
+ whDF <- which(cl == "data.frame")
+ cl <- c(cl[1:(whDF-1)], "data.table", "data.frame", cl[whDF:length(cl)])
+
+ setattr(x, "class", cl)
+ alloc.col(x)
+
+ invisible(x)
+}
+
+
+
+
+p.round <- function(p, dec=3) {
+ th <- eval( parse(text=paste0('1E-', dec ) ))
+ if( is.null(p)) return( '= NA')
+ if( is.na(p)) return( '= NA')
+ if( p < th ){
+ p <- paste0('< ', th )
+ } else {
+ p <- paste0('= ', round(p, dec) )
+ }
+ p
+}
+
+
+cutLow <- function(x, breaks, tol = .Machine$double.eps^0.5) {
+ ## a cut function that returns the lower bounds of the cut intervals (as numeric) as levels
+
+ breaks <- sort(breaks)
+ x <- cut(x + tol, right = FALSE, breaks = breaks, labels = FALSE)
+ x <- breaks[-length(breaks)][x]
+ x
+}
+
+
+
+
+setcols <- function(x, j, value) {
+ ## intention: add new columns to DT via modifying in place, and to DF
+ ## via DF$var <- value; both conserve memory (don't take copy of whole data)
+
+ if (!is.data.frame(x)) stop("x must be a data.frame")
+ if (!is.list(value)) stop("value must be a list of values (columns to add)")
+ if (missing(j)) j <- names(value)
+
+ if (!is.data.table(x)) {
+ x[j] <- value
+ } else {
+ set(x, j = j, value = value)
+ }
+ x
+}
+
+
+
+
+cutLowMerge <- function(x, y, by.x = by, by.y = by, by = NULL, all.x = all, all.y = all, all = FALSE, mid.scales = c("per", "age"), old.nums = TRUE) {
+ ## INTENTION: merges y to x by by.x & by.y after cutLow()'ing appropriate
+ ## variables in x so that y's values match with x's values
+ ## requirements;
+ ## * numeric variables in y correspond to lower limits of some intervals OR
+ ## are group variables (e.g. sex = c(0,1))
+ ## inputs: two datas as in merge, preferably both data.table, and other args
+ ## to merge()
+ ## output: a data.table where y has been merged to x after cutLow()
+ ## example: merging popmort to a split Lexis object, where popmort's variables
+ ## correspond to at least some Lexis time scales
+ ## old.nums: return old numeric variable values used in cutLow()'ing?
+ ## mid.scales: use mid-point of interval when merging by these Lexis time scales
+ ## computed by adding + 0.5*lex.dur, which must exist
+
+ if (!is.data.table(x)) {
+ stop("x must be a data.table")
+ }
+
+ if ((is.null(by.x) && !is.null(by.y)) || (!is.null(by.x) && is.null(by.y))) {
+ stop("one but not both of by.x / by.y is NULL")
+ }
+ if (!is.null(by)) by.x <- by.y <- by
+
+ if (length(by.x) != length(by.y)) stop("lengths differ for by.y & by.x")
+ all_names_present(x, by.x)
+ all_names_present(y, by.y)
+ names(by.x) <- by.y
+ names(by.y) <- by.x
+
+ if (length(mid.scales)>0) all_names_present(x, c("lex.dur", mid.scales))
+
+ whScale <- by.x %in% mid.scales
+ xScales <- by.x[whScale]
+ yScales <- by.y[whScale]
+
+ if (length(yScales) > 0) {
+
+ oldVals <- copy(with(x, mget(xScales)))
+ on.exit(set(x, j = xScales, value = oldVals))
+ setattr(oldVals, "names", yScales)
+
+ for (yVar in yScales) {
+ xVar <- xScales[yVar]
+ xBr <- sort(unique(y[[yVar]]))
+ xBr <- unique(c(xBr, Inf))
+ set(x, j = xVar, value = cutLow(x[[xVar]] + x$lex.dur*0.5, breaks = xBr))
+ }
+
+ }
+
+ ## ensure x retains order (no copy taken of it)
+ xKey <- key(x)
+ if (length(xKey) == 0) {
+ xKey <- makeTempVarName(x, pre = "sort_")
+ on.exit(if ("x" %in% ls()) setcolsnull(x, delete = xKey, soft = TRUE), add = TRUE)
+ on.exit(if ("z" %in% ls()) setcolsnull(z, delete = xKey, soft = TRUE), add = TRUE)
+ x[, (xKey) := 1:.N]
+ }
+
+ if (any(duplicated(y, by = by.y))) {
+ stop("y is duplicated by the inferred/supplied by.y variables (",
+ paste0("'", by.y, "'", collapse = ", "), "). ",
+ "First ensure this is not so before proceeding.")
+ }
+
+ ## avoid e.g. using merge.Lexis when x inherits Lexis
+ xClass <- class(x)
+ on.exit({
+ setattr(x, "class", xClass)
+ }, add = TRUE)
+ setattr(x, "class", c("data.table", "data.frame"))
+
+ ## return old numeric values of variables that were cutLow()'d
+ ## by keeping them
+ if (old.nums && length(xScales)) {
+ tmpXScales <- makeTempVarName(names = c(names(x), names(y)), pre = xScales)
+ set(x, j = tmpXScales, value = oldVals)
+ on.exit({
+ xOrder <- setdiff(names(x), tmpXScales)
+ setcolsnull(x, delete = xScales, soft = TRUE)
+ setnames(x, tmpXScales, xScales)
+ setcolorder(x, xOrder)
+
+ }, add = TRUE)
+ }
+
+ ## merge
+ z <- merge(x, y, by.x = by.x, by.y = by.y,
+ all.x = all.x, all.y = all.y, all = all,
+ sort = FALSE)
+
+ setDT(z)
+ if (old.nums && length(xScales)) {
+ ## avoid warning due to coercing double to integer
+ set(z, j = xScales, value = NULL)
+ setnames(z, tmpXScales, xScales)
+ }
+
+ zOrder <- intersect(names(x), names(z))
+ zOrder <- c(zOrder, setdiff(names(z), names(x)))
+ setcolorder(z, zOrder)
+ if (length(xKey) > 0) setkeyv(z, xKey)
+ z[]
+
+}
+
+
+getOrigin <- function(x) {
+ ## input: Date, IDate, or date variable
+ ## output: the origin date in Date format,
+ ## the origin date being the date where the underlying index is zero.
+ if (inherits(x, "Date") || inherits(x, "IDate")) {
+ as.Date("1970-01-01")
+ } else if (inherits(x, "date")) {
+ as.Date("1960-01-01")
+ } else if (inherits(x, "dates")) {
+ as.Date(paste0(attr(x, "origin"), collapse = "-"), format = "%d-%m-%Y")
+ } else {
+ stop("class '", class(x), "' not supported; usage of Date recommended - see ?as.Date")
+ }
+
+}
+
+promptYN <- function(q) {
+
+ rl <- readline(prompt = paste0(q, " (Y/N) ::: "))
+ y <- c("y", "Y")
+ n <- c( "n", "N")
+ if (!rl %in% c(y,n)) {
+ cat("Answer must be one of the following (without ticks):", paste0("'",c(y, n),"'", collapse = ", "))
+ promptYN(q = q)
+ }
+
+ if (rl %in% y) TRUE else FALSE
+
+}
+
+
+
+oneWhitespace <- function(x) {
+ if (!is.character(x)) stop("x not a character")
+ x <- paste0(x, collapse = " ")
+ while(sum(grep(pattern = " ", x = x))) {
+ x <- gsub(pattern = " ", replacement = " ", x = x)
+ }
+ x
+}
+
+
+aliased_cols <- function(data, cols) {
+
+ if (missing(cols)) cols <- names(data)
+ all_names_present(data, cols)
+
+ if (length(cols) < 2L) return(invisible())
+
+ x <- with(data, mget(cols))
+ x <- lapply(x, duplicated)
+
+ sub_cols <- cols
+ tl <- list()
+ ## loop: each step reduce vector of names by one
+ ## to avoid testing the same variables twice (in both directions)
+ tick <- 0L
+ aliased <- FALSE
+ while (!aliased && length(sub_cols) > 1L && tick <= length(cols)) {
+
+ currVar <- sub_cols[1L]
+ sub_cols <- setdiff(sub_cols, currVar)
+ tl[[currVar]] <- unlist(lapply(x[sub_cols], function(j) identical(x[[currVar]], j)))
+ aliased <- sum(tl[[currVar]])
+
+ tick <- tick + 1L
+ }
+
+ if (tick == length(cols)) warning("while loop went over the number of columns argument cols")
+
+ ## result: list of logical vectors indicating if a column is aliased
+ ## with other columns
+ tl[vapply(tl, function(j) sum(j) == 0L, logical(1))] <- NULL
+
+ if (length(tl) == 0L) return(invisible())
+
+ ## take first vector for reporting
+ var <- names(tl)[1L]
+ aliases <- names(tl[[1L]])[tl[[1]]]
+ aliases <- paste0("'", aliases, "'", collapse = ", ")
+ stop("Variable '", var, "' is aliased with following variable(s): ", aliases, ".")
+
+ invisible()
+}
+
+
+
+
+
+
+
+return_DT <- function() {
+
+ x <- getOption("popEpi.datatable")
+ if (!is.null(x) && !is.logical(x)) {
+ stop("the option 'popEpi.datatable' must be either NULL or a logical ",
+ "value (TRUE / FALSE).")
+ }
+ if (is.null(x) || isTRUE(x)) {
+ return(TRUE)
+ }
+ return(FALSE)
+
+}
+
+
+
+
+#' @title Create a Lexis Object with Follow-up Time, Period, and Age
+#' Time Scales
+#' @description
+#' This is a simple wrapper around \code{\link[Epi]{Lexis}} for creating
+#' a \code{Lexis} object with the time scales \code{fot}, \code{per},
+#' and \code{age}.
+#' @param data a \code{data.frame}; mandatory
+#' @param birth the time of birth; A character string naming the variable in
+#' data or an expression to evaluate - see
+#' \link[=flexible_argument]{Flexible input}
+#' @param entry the time at entry to follow-up; supplied the
+#' same way as \code{birth}
+#' @param exit the time at exit from follow-up; supplied the
+#' same way as \code{birth}
+#' @param entry.status passed on to \code{\link[Epi]{Lexis}} if not \code{NULL};
+#' supplied the same way as \code{birth}
+#' @param exit.status passed on to \code{\link[Epi]{Lexis}} if not \code{NULL};
+#' supplied the same way as \code{birth}
+#' @param subset a logical condition to subset by before passing data
+#' and arguments to \code{\link[Epi]{Lexis}}
+#' @param ... additional optional arguments passed on to
+#' \code{\link[Epi]{Lexis}}
+#' @return
+#' A \code{Lexis} object with the usual columns that \code{Lexis} objects
+#' have, with time scale columns \code{fot}, \code{per}, and \code{age}.
+#' They are calculated as
+#'
+#' \code{fot = entry - entry} (to ensure correct format, e.g. difftime)
+#'
+#' \code{per = entry}
+#'
+#' and
+#'
+#' \code{age = entry - birth}
+#'
+#' @examples
+#'
+#' data("sire", package = "popEpi")
+#'
+#' lex <- Lexis_fpa(sire,
+#' birth = "bi_date",
+#' entry = dg_date,
+#' exit = ex_date + 1L,
+#' exit.status = "status")
+#'
+#' ## some special cases
+#' myVar <- "bi_date"
+#' l <- list(myVar = "bi_date")
+#' sire$l <- sire$myVar <- 1
+#'
+#' ## conflict: myVar taken from data when "bi_date" was intended
+#' lex <- Lexis_fpa(sire,
+#' birth = myVar,
+#' entry = dg_date,
+#' exit = ex_date + 1L,
+#' exit.status = "status")
+#'
+#' ## no conflict with names in data
+#' lex <- Lexis_fpa(sire,
+#' birth = l$myVar,
+#' entry = dg_date,
+#' exit = ex_date + 1L,
+#' exit.status = "status")
+#' @export
+Lexis_fpa <- function(data,
+ birth = NULL,
+ entry = NULL,
+ exit = NULL,
+ entry.status = NULL,
+ exit.status = NULL,
+ subset = NULL,
+ ...) {
+ if (!requireNamespace("Epi", quietly = TRUE)) {
+ stop("Install package Epi before using this function.")
+ }
+ TF <- environment()
+ PF <- parent.frame(1L)
+
+ checkVars <- c("fot", "per", "age",
+ paste0("lex.", c("dur", "Xst", "Cst", "id")))
+ checkVars <- intersect(names(data), checkVars)
+ if (length(checkVars)) {
+ stop("Following variable name(s) reserved but exist in data: ",
+ paste0(checkVars, collapse = ", "))
+ }
+
+
+ sb <- substitute(subset)
+ subset <- evalLogicalSubset(data, sb, enclos = PF)
+ if (all(subset)) subset <- NULL
+ x <- subsetDTorDF(data = data, subset = subset)
+ setDT(x)
+
+ an <- c("birth", "entry", "exit", "entry.status", "exit.status")
+
+ l <- vector("list", length(an))
+ names(l) <- an
+ for (stri in an) {
+ e <- paste0("substitute(", stri, ", env = TF)")
+ e <- parse(text = e)[[1]]
+ e <- eval(e, envir = TF) ## e.g. result of substitute(birth)
+ e <- evalPopArg(data = x, arg = e, enclos = PF)[[1]]
+ l[[stri]] <- e
+ }
+
+ l[sapply(l, is.null)] <- NULL
+
+ missVars <- setdiff(c("birth", "entry", "exit"), names(l))
+ if (length(missVars)) {
+ stop("Following mandatory arguments were NULL: ",
+ paste0(missVars, collapse = ", "))
+ }
+
+ fot <- l$entry - l$entry
+ per <- l$entry
+ age <- l$entry - l$birth
+ per_exit <- l$exit
+
+ en <- list(fot = fot, per = per, age = age)
+ ex <- list(per = per_exit)
+
+ al <- list(entry = en, exit = ex, entry.status = l$entry.status,
+ exit.status = l$exit.status, data = x)
+ al[sapply(al, is.null)] <- NULL
+
+ do.call(Epi::Lexis, args = c(al, ...))
+}
+
+
+
+
+
+
+
+get_breaks <- function(x) {
+ UseMethod("get_breaks")
+}
+
+get_breaks.survtab <- function(x) {
+
+ ss <- attributes(x)$survtab.meta$surv.scale
+ sb <- attributes(x)$survtab.meta$surv.breaks
+
+ l <- list(sb)
+ names(l) <- ss
+ as.list(l)
+
+}
+
+
+get_breaks.aggre <- function(x) {
+
+ as.list(attributes(x)$aggre.meta$breaks)
+
+}
+
+get_breaks.Lexis <- function(x) {
+ as.list(attributes(x)$breaks)
+}
+
+get_breaks.default <- function(x) {
+ NULL
+}
+
+
+select_breaks <- function(data, ...) {
+ UseMethod("select_breaks")
+}
+
+select_breaks.default <- function(data, ts, br = NULL, ...) {
+ br <- do_select_breaks(data = data, ts = ts, br = br)
+ if (is.null(br)) {
+ stop("Data did not contain breaks and no breaks were supplied ",
+ "by hand.")
+ }
+ br
+}
+
+select_breaks.aggre <- function(data, ts, br = NULL, ...) {
+
+
+ br <- do_select_breaks(data = data, ts = ts, br = br)
+
+ select_breaks_subcheck(br, get_breaks(data)[[ts]],
+ "Manually supplied breaks were not a ",
+ "subset of the breaks in aggre data. ",
+ "Data has breaks as a result of being split and ",
+ "aggregated; see ?as.aggre and ?aggre")
+
+ if (is.null(br)) {
+ stop("aggre object did not contain breaks and no breaks were supplied ",
+ "by hand.")
+ }
+
+ br
+}
+
+select_breaks.Lexis <- function(data, ts, br = NULL, ...) {
+
+ checkLexisData(data)
+
+ br <- do_select_breaks(data = data, ts = ts, br = br)
+
+ select_breaks_subcheck(br, get_breaks(data)[[ts]],
+ "Manually supplied breaks were not a ",
+ "subset of the breaks in Lexis data. ",
+ "Data has breaks as a result of being a split Lexis ",
+ "object; see ?Lexis and e.g. ?splitMulti")
+
+ if (is.null(br)) {
+ stop("Lexis object did not contain breaks and no breaks were supplied ",
+ "by hand.")
+ }
+ bl <- list(br)
+ names(bl) <- ts
+ checkBreaksList(data, breaks = bl)
+
+ br
+}
+
+
+select_breaks_subcheck <- function(b1, b2, ...) {
+ l1 <- list(b1)
+ l2 <- list(b2)
+ names(l1) <- names(l2) <- "TS"
+
+ if (!is.null(b1) && !is.null(b2) && !all_breaks_in(l1, l2)) {
+ stop(...)
+ }
+}
+
+do_select_breaks <- function(data, ts, br = NULL) {
+ # @description selects breaks from data or from br depending on
+ # which one is NULL. If both exist, br must be a subset of the breaks
+ # in data.
+
+ stopifnot(is.data.frame(data))
+ stopifnot(is.character(ts) && length(ts) == 1L && ts %in% names(data))
+
+ dbr <- get_breaks(data)[[ts]]
+
+ dbl <- list(dbr)
+ bl <- list(br)
+ names(dbl) <- names(bl) <- "TS"
+
+
+
+ if (is.null(br)) br <- dbr
+
+ br
+}
+
+
+
+
+breaks_in_data <- function(br, ts, data) {
+ ## note: last break does not usually appear in data, unless intentionally
+ ## limiting from e.g. 0:5 to 0:4
+ stopifnot(length(ts) == 1 && ts %in% names(data))
+ u <- unique(data[[ts]])
+
+ br <- sort(unique(br))
+ if (length(br)<2) stop("There must be at least two breaks to form intervals")
+
+ br <- if (max(br) <= max(u)) br else br[-length(br)]
+ all(br %in% u)
+
+}
+
+
+
+
+
+is_named_list <- function(x) is.list(x) && length(unique(names(x))) == length(x)
+
+
+
+
+fuse_breakslists <- function(bl.old, bl.new, drop) {
+ # @description given two lists of breaks, uses all timescales found
+ # in both lists to fuse into one list. For common timescales an
+ # interval-based subset is taken, so that the new always limits the old
+ # when drop = TRUE.
+
+ stopifnot(
+ is_named_list(bl.old), is_named_list(bl.new)
+ )
+
+ bl <- bl.old
+ new_scales <- setdiff(names(bl.old), names(bl.new))
+ if (length(new_scales)) {
+ bl[new_scales] <- bl.new[new_scales]
+ }
+ common_scales <- intersect(names(bl.old), names(bl.new))
+ if (length(common_scales)) {
+
+ bl[common_scales] <- lapply(common_scales, function(time_scale) {
+ new <- bl.new[[time_scale]]
+ old <- bl.old[time_scale]
+ fuse <- sort(union(old, new))
+ if (drop) {
+ r.new <- range(new)
+ r.old <- range(old)
+ r <- c(max(r.new[1], r.old[1]), min(r.new[2], r.old[2]))
+ fuse <- fuse[between(fuse, r[1], r[2], incbounds = TRUE)]
+ }
+ fuse
+ })
+
+ }
+
+ bl
+
+}
+
+
+
+
+
+
+set2 <- function(x, j, ...) {
+ cols_exst <- intersect(names(x), j)
+ old_order <- copy(names(x))
+ if (length(cols_exst)) {
+ set(x, j = cols_exst, value = NULL)
+ }
+ set(x = x, j = j, ...)
+ new_cols <- setdiff(names(x), old_order)
+ setcolorder(x, c(old_order, new_cols))
+ invisible(x)
+}
+
+
+
+
+
+mget_cols <- function(cols, data) {
+
+ stopifnot(all(cols %in% names(data)))
+
+ setDT(mget(x = cols, envir = as.environment(data), inherits = FALSE))
+}
+
+
+
+
+
+get_random_seed <- function() {
+ t <- Sys.time()
+ s <- as.numeric(t) %% as.integer(t)
+ nc <- nchar(s)
+ s <- as.integer(substr(s, nc-8, nc))
+ s
+}
+
+
+skip_normally <- function() {
+ requireNamespace("testthat")
+ if (!identical(Sys.getenv("popEpi_run_all_unit_tests"), "true")) {
+ testthat::skip("Unit tests skipped normally")
+ }
+}
diff --git a/R/weighted_table.R b/R/weighted_table.R
index ca961e3..109ac4a 100644
--- a/R/weighted_table.R
+++ b/R/weighted_table.R
@@ -1,661 +1,661 @@
-# @title Make a \code{data.table} of Tabulated, Aggregated Values and Weights
-# @description An internal function that aggregates a table
-# and merges in weights.
-# @param data DF/DT; passed to \code{envir} in \code{eval}
-# @param values values to tabulate. Anything \code{evalPopArg} can evaluate.
-# @param print variables to tabulate by and include in \code{prVars} in attributes
-# @param adjust variables to tabulate by and include in \code{adVars} in attributes
-# @param formula a formula such as \code{fot ~ sex} or \code{Surv(fot, lex.Xst) ~ sex}
-# @param Surv.response logical, if \code{TRUE} throws error if response in
-# \code{formula} is not a \code{Surv} object and vice versa
-# @param by.other other variables to tabulate by and include
-# in \code{boVars} in attributes
-# @param custom.levels a named list of values. When "inflating" the data
-# in the cross-join / cartesian join sense (try e.g. \code{merge(1:5, 1:2)}),
-# one can supply the levels to inflate by using this to ensure inflation is full.
-# E.g. data might only have levels present to do inflation analogous to
-# \code{merge(2:5, 1:2)} although \code{merge(1:5, 1:2)} is intended and
-# needed.
-# @param custom.levels.cut.low a character string vector of variable names.
-# These variables mentioned in \code{custom.levels} and existing in data
-# or first modified (in data) using \code{cutLow()} (essentially
-# \code{cut()} with \code{right = FALSE} and returning the lower bounds
-# as values). Handy for aggregating data e.g. to survival intervals.
-# \strong{NOTE}: the appropriate elements in \code{custom.levels} for these
-# variables must exceptionally contain an extra value as the roof used in
-# cutting, which will not be used in "inflating" the table using a merge.
-# See Examples.
-# @param weights a named list or long-form data.frame of weights. See Examples.
-# @param internal.weights.values the variable to use to compute internal
-# weights; only used if \code{weights = "internal"}.
-# @param enclos the enclosing environment passed on to \code{eval}. Variables
-# not found in \code{data} or searched for here.
-# @param NA.text a character string to display in a \code{warning}
-# if there are any rows with missing \code{values} or \code{adjust} values.
-# \strong{special:} key phrase \code{\%\%NA_COUNT\%\%} in text is replaced
-# with the count of missing observations.
-# E.g. \code{"Missing \%\%NA_COUNTS\%\% observations due to derpness."}
-# @examples
-# library(data.table)
-#
-# makeWeightsDT <- popEpi:::makeWeightsDT ## this avoids errors during tests
-#
-# sire <- copy(popEpi::sire)
-# set.seed(1L)
-# sire$sex <- rbinom(nrow(sire), 1, 0.5)
-# ag <- lexpand(sire, birth = "bi_date", entry = "dg_date", exit = "ex_date",
-# status = status %in% 1:2, pophaz = popmort, pp = FALSE,
-# aggre = list(sex, agegr = cut(dg_age, c(0,50,75,Inf)), fot),
-# fot = seq(0, 5, 1/12))
-# ps <- quote(list(sex, fot))
-# as <- quote(list(agegr))
-# vs <- list(quote(list(pyrs, at.risk)))
-# ws <- list(agegr = c(0.2,0.4,0.4))
-#
-# #### custom.levels usage
-# fb <- seq(0, 5-1/12, 1/12) ## exclude 5 as no row has that value
-# ag2 <- ag[fot > 0.5,]
-# # repeats fot intervals < 0.5 as empty rows
-# # may be the safest way to do this
-# dt <- makeWeightsDT(ag2, print = ps, adjust = as,
-# values = vs, weights = ws,
-# custom.levels = list(fot = fb))
-# ## aggregate from intervals seq(0, 5, 1/12) to 0:5
-# fb2 <- 0:5 ## (this time we include 5 as the roof)
-# dt <- makeWeightsDT(ag2, print = ps, adjust = as,
-# values = vs, weights = ws,
-# custom.levels = list(fot = fb2),
-# custom.levels.cut.low = "fot")
-#
-#
-# #### use of enclos
-# TF <- environment()
-# gender <- factor(ag$sex)
-# dt <- makeWeightsDT(ag, print = quote(gender), adjust = as,
-# values = vs, weights = ws, enclos = TF)
-# ## or NULL: uses calling frame by default.
-# dt <- makeWeightsDT(ag, print = quote(gender), adjust = as,
-# values = vs, weights = ws,
-# enclos = NULL)
-# ## passing parent.fram(1) is the same thing (as below),
-# ## but won't pass in testing these examples somehow (but work in real life)
-# # dt <- makeWeightsDT(ag, print = quote(gender), adjust = as,
-# # values = vs, weights = ws,
-# # enclos = NULL)
-#
-# #### formula usage
-# form <- Surv(fot, factor(from0to1))~gender
-# dt <- makeWeightsDT(ag, formula = form, Surv.response = TRUE,
-# adjust = as, values = vs, weights = ws,
-# enclos = NULL)
-#
-# ## or
-# form <- Surv(fot, factor(from0to1))~gender + adjust(agegr)
-# dt <- makeWeightsDT(ag, formula = form, Surv.response = TRUE,
-# adjust = NULL, values = vs, weights = ws,
-# enclos = NULL)
-#
-# ## or
-# form <- from0to1 ~ fot + gender + adjust(agegr)
-# dt <- makeWeightsDT(ag, formula = form, Surv.response = FALSE,
-# adjust = NULL, values = vs, weights = ws,
-# enclos = NULL)
-#
-# form <- from0to1 ~ fot + adjust(agegr) + adjust(sex)
-# ws2 <- list(agegr = c(0.33, 0.33, 0.33), sex = c(0.5, 0.5))
-# dt <- makeWeightsDT(ag, formula = form, Surv.response = FALSE,
-# adjust = NULL, values = vs, weights = ws2,
-# enclos = NULL)
-#
-# ## international standard pops
-# ag <- lexpand(sire, birth = "bi_date", entry = "dg_date", exit = "ex_date",
-# status = status %in% 1:2, pophaz = popmort, pp = FALSE,
-# aggre = list(sex, agegr = cut(dg_age, c(seq(0, 85, 5), Inf)), fot),
-# fot = seq(0, 5, 1/12))
-#
-# form <- from0to1 ~ fot + adjust(agegr)
-# dt <- makeWeightsDT(ag, formula = form, Surv.response = FALSE,
-# adjust = NULL, values = vs, weights = "world_1966_18of5",
-# enclos = NULL)
-#
-# form <- from0to1 ~ fot + adjust(agegr, sex)
-# dt <- makeWeightsDT(ag, formula = form, Surv.response = FALSE,
-# adjust = NULL, values = vs,
-# weights = list(agegr = "nordic_2000_18of5", sex=c(1,1)),
-# enclos = NULL)
-makeWeightsDT <- function(data, values = NULL,
- print = NULL, adjust = NULL,
- formula = NULL, Surv.response = TRUE,
- by.other = NULL, custom.levels = NULL,
- custom.levels.cut.low = NULL, weights = NULL,
- internal.weights.values = NULL,
- enclos = NULL, NA.text = NULL) {
-
- # environmentalism -----------------------------------------------------------
- TF <- environment()
- PF <- parent.frame(1L)
- if (missing(enclos) || is.null(enclos)) {
- enclos <- PF
- }
-
- enclos <- eval(enclos, envir = TF)
-
- if (!is.environment(enclos)) {
- stop("Argument 'enclos' is not an environment. (Probably internal error, ",
- "meaning you should complain to the package maintainer if you are not",
- "doing something silly.)")
- }
-
- THIS_CALL <- match.call()
-
- ## dataism -------------------------------------------------------------------
- if (!is.data.frame(data)) stop("data must be a data.frame")
- ## tmpDum for convenience. will be deleted in the end. (if no tabulating vars)
- origData <- data
- tmpDum <- makeTempVarName(origData, pre = "dummy_")
- data <- data.table(rep(1L, nrow(origData)))
- setnames(data, 1, tmpDum)
-
-
- # formula: vars to print and adjust by ---------------------------------------
-
- adSub <- adjust
- adjust <- evalPopArg(data = origData, arg = adSub, DT = TRUE, enclos = enclos)
-
- if (!is.null(formula)) {
-
- foList <- usePopFormula(formula, adjust = adjust,
- data = origData, enclos = enclos,
- Surv.response = Surv.response)
- print <- foList$print
- adjust <- foList$adjust
- } else {
-
- prSub <- substitute(print)
- print <- evalPopArg(data = origData, arg = prSub, DT = TRUE, enclos = enclos)
-
-
- }
-
- if (length(weights) && length(adjust)) {
- checkWeights(weights, adjust = adjust)
- }
-
- # variables to print by ----------------------------------------------------
- prVars <- tmpDum
- if (length(print) > 0) {
- prVars <- names(print)
- data[, c(prVars) := TF$print]
- data[, c(tmpDum) := NULL]
- }
- rm(print)
-
- # standardization ----------------------------------------------------------
- ## note: adjust evaluated above with formula
- adVars <- NULL
- if (length(adjust) > 0) {
- adVars <- names(adjust)
- data[, c(adVars) := TF$adjust]
- }
- rm(adjust)
-
- if (is.null(weights) && length(adVars)) {
- stop("Variables to adjust by were defined but no weights were supplied.")
- }
-
- if (!length(adVars)) {
-
- if (!is.null(weights)) {
- message("NOTE: Weights ignored since no adjusting variables given")
- }
-
- weights <- NULL
- }
-
- # variables to sum -----------------------------------------------------------
- if (!is.list(values)) stop("Argument 'values' must be a list ",
- "(internal error: complain to the package",
- "maintainer if you see this)")
- values <- lapply(values, function(x) {
- evalPopArg(data = origData, arg = x, DT = TRUE, enclos = enclos)
- })
- for (dt in setdiff(seq_along(values), 1L)) {
- values[[1L]] <- cbind(values[[1L]], values[[dt]])
- }
- values <- values[[1L]]
- vaVars <- NULL
- if (nrow(values) != nrow(data)) {
- stop("mismatch in numers of rows in data (", nrow(data),
- ") and 'values' (", nrow(values), "). If you see this message, ",
- "complain to the package maintainer.")
- }
-
- if (length(values) > 0) {
- vaVars <- names(values)
- data[, c(vaVars) := TF$values]
- } else {
- stop("no values given to sum!")
- }
- rm(values)
-
- # additionally, values to compute internal weights by: -----------------------
- iwVar <- NULL
- if (is.character(weights) &&
- pmatch(weights, c("internal", "cohort"), nomatch = 0L)) {
- iw <- substitute(internal.weights.values)
- iw <- evalPopArg(data = origData, iw, DT = TRUE,
- enclos = PF, recursive = TRUE,
- types = c("character", "expression", "list", "NULL"))
-
- if (length(iw) > 1L) stop("Argument 'internal.weights.values' ",
- "must produce only one column.")
- if (length(iw) == 1L && is.character(weights) &&
- pmatch(weights, c("internal", "cohort"), nomatch = 0L)) {
- iwVar <- makeTempVarName(names=c(names(data), names(origData)), pre = "iw_")
- data[, c(iwVar) := TF$iw]
- }
-
- if (length(iwVar) == 0L) {
- stop("Requested computing internal weights, but no values to compute ",
- "internals weights with were supplied (internal error: If you see ",
- "this, complain to the package maintainer).")
- }
- rm(iw)
- }
-
-
- # other category vars to keep ------------------------------------------------
- boSub <- by.other
- by.other <- evalPopArg(data = origData, arg = boSub, DT = TRUE, enclos = enclos)
- boVars <- NULL
- if (length(by.other) > 0) {
- boVars <- names(by.other)
- data[, c(boVars) := TF$by.other]
- }
- rm(by.other)
-
- # check for aliased columns --------------------------------------------------
- aliased_cols(data, cols = c(prVars, adVars, boVars))
-
- # check for conflicting column names -----------------------------------------
- dupCols <- c(prVars, adVars, boVars, vaVars, iwVar)
- dupCols <- unique(dupCols[duplicated(dupCols)])
- if (length(dupCols) > 0L) {
- dupCols <- paste0("'", dupCols, "'", collapse = ", ")
- stop("Following column names duplicated (columns created by arguments ",
- "print, adjust, etc.): ", dupCols, ". If you see this, please ensure ",
- "you are not passing e.g. the same column to both for adjusting ",
- "and stratification (printing).")
- }
-
- # check for NA values --------------------------------------------------------
- ## NOTE: NA values of print/by.other are OK. values/adjust are NOT.
-
- NAs <- data[, lapply(.SD, function(x) is.na(x)), .SDcols = c(vaVars, iwVar, adVars)]
- NAs <- rowSums(NAs) > 0L
- if (sum(NAs)) {
- if (!is.null(NA.text)) {
- NA.text <- gsub(x = NA.text, pattern = "%%NA_COUNT%%",
- replacement = sum(NAs))
- warning(NA.text)
- }
- data <- data[!NAs]
- }
-
- # inflate data ---------------------------------------------------------------
- ## on the other hand we aggregate data to levels of print, adjust and
- ## by.other; on the other hand the data will always have tabulating variables
- ## represented as cross-joined, e.g. merge(1:5, 1:2).
- ## this means some rows might have zeros as values in the 'values'
- ## columns.
- ## (necessary for correct standardization with weights)
-
- ## NOTE: have to do CJ by hand: some levels of adjust or something may not
- ## have each level of e.g. fot repeated!
-
- sortedLevs <- function(x) {
- if (!is.factor(x)) return(sort(unique(x)))
-
- factor(levels(x), levels(x), levels(x))
- }
- cj <- list()
- cj <- lapply(data[, .SD, .SDcols = c(prVars, adVars, boVars)], sortedLevs)
-
- ## e.g. if data only has fot = seq(0, 4, 1/12), but want to display table
- ## with fot = seq(0, 5, 1/12). Very important sometimes for handy usage
- ## of weights.
- if (length(custom.levels) > 0) cj[names(custom.levels)] <- custom.levels
-
-
- ## SPECIAL: if e.g. a survival time scale with breaks seq(0, 5, 1/12)
- ## is to be "compressed" to breaks 0:5, and the latter breaks were passed
- ## via custom.levels, the following ensures e.g. intervals between 0 and 1
- ## are aggregated to the same row in what follows after.
- if (!is.null(custom.levels.cut.low)) {
- cl_msg <- paste0("Internal error: tried to cut() variables in ",
- "internally used work data that did not exist. ",
- "If you see this, complain to the ",
- "package maintainer. Bad variables: %%VARS%%.")
- all_names_present(data, custom.levels.cut.low, msg = cl_msg)
- all_names_present(cj, custom.levels.cut.low, msg = cl_msg)
-
- for (var in custom.levels.cut.low) {
- set(data, j = var, value = cutLow(data[[var]], breaks = cj[[var]]))
- }
-
- ## NOTE: if used cutlow(), then assume passed values via custom.levels
- ## also contained the roof of the values which should not be repeated.
- cj[custom.levels.cut.low] <- lapply(cj[custom.levels.cut.low],
- function(elem) elem[-length(elem)])
- }
-
- ## form data.table to merge by - the merge will inflate the data.
- cj <- do.call(function(...) CJ(..., unique = FALSE, sorted = FALSE), cj)
-
- ## inflate & aggregate.
- setkeyv(data, c(prVars, adVars, boVars))
- data <- data[cj, lapply(.SD, sum), .SDcols = c(vaVars, iwVar), by = .EACHI]
-
- for (k in c(vaVars, iwVar)) {
- data[is.na(get(k)), (k) := 0]
- }
-
- setcolsnull(data, tmpDum)
- prVars <- setdiff(prVars, tmpDum); if (length(prVars) == 0) prVars <- NULL
-
- ## merge in weights ----------------------------------------------------------
-
- if (!is.null(weights)) {
-
- if (is.list(weights) && !is.data.frame(weights)) {
- ## in case one of the elements is a standardization scheme string,
- ## such as "world_x_y".
- whChar <- which(unlist(lapply(weights, is.character)))
- if (sum(whChar)) {
-
- weights[whChar] <- lapply(weights[whChar], function(string) {
- ## expected to return data.frame with 1) age groups 2) weights
- ## as columns.
- stdr.weights(string)[[2]]
- })
-
- }
-
- ## now list only contains numeric weights i hope.
-
- }
-
- ## NOTE: adjust used here to contain levels of adjust arguments only
- adjust <- list()
- if (length(adVars) > 0L) {
- adjust <- lapply(data[, eval(adVars), with = FALSE], sortedLevs)
- }
-
- if (is.character(weights)) {
-
- if (pmatch(weights, c("internal", "cohort"), nomatch = 0L)) {
-
-
- all_names_present(data, iwVar,
- msg = paste0(
- "Internal error: expected to have variable ",
- "%%VARS%% in working data but didn't. Complain ",
- "to the pkg maintainer if you see this."
- ))
-
- weights <- lapply(seq_along(adjust), function(i) {
- cn <- names(adjust)[i]
- le <- unique(adjust[[i]])
- le <- structure(list(le), names = cn)
- data[le, lapply(.SD, sum), .SDcols = iwVar, by = .EACHI, on = cn][[iwVar]]
- })
- names(weights) <- names(adjust)
-
-
- setcolsnull(data, iwVar)
- setkeyv(data, c(prVars, adVars, boVars))
- } else {
- ## expected to return data.frame with 1) age groups 2) weights
- ## as columns.
- weights <- stdr.weights(weights)
- weights <- weights[[2]]
-
- }
- }
-
- if (!is.data.frame(weights) && is.vector(weights)) {
- ## note: lists are vectors
- if (!is.list(weights)) {
- weights <- list(weights) ## was a vector of values
- setattr(weights, "names", adVars[1])
- }
-
- weVars <- names(weights)
- weights <- weights[names(adjust)]
-
- adjust <- do.call(function(...) CJ(..., unique = FALSE, sorted = FALSE), adjust)
- weights <- do.call(function(...) CJ(..., unique = FALSE, sorted = FALSE), weights)
-
- weVars <- paste0(weVars, ".w")
- setnames(weights, adVars, weVars)
- weights[, (adVars) := adjust]
-
- set(weights, j = "weights", value = 1L)
- for (k in weVars) {
- set(weights, j = "weights", value = weights$weights * weights[[k]])
- }
- setcolsnull(weights, delete = weVars, soft = FALSE)
-
- ## NOTE: weights will be repeated for each level of print,
- ## and for each level of print the weights must sum to one for things
- ## to work.
- weights[, "weights" := weights/sum(weights)]
-
- }
-
- if (!is.data.frame(weights)) {
- stop("Something went wrong: 'weights' was not collated into a ",
- "data.frame to merge with data. ",
- "Blame the package maintainer please!")
- }
- ## at this points weights is a data.frame.
- weights <- data.table(weights)
- weights[, "weights" := as.double(weights)]
-
- ## ensure repetition by print levels if some adjust levels
- ## that exist in weights do not exist in data.
- ## NOTE: weights data.frame has at least as many levels as adjust column
- ## in data (or it has more sometimes).
- wm <- lapply(adVars, function(chStr) {
- col <- weights[[chStr]]
- if (is.factor(col)) return(levels(col))
- sort(unique(col))
- })
- names(wm) <- adVars
- if (length(prVars)) {
- wm[prVars] <- lapply(prVars, function(chStr) {
- col <- data[[chStr]]
- if (is.factor(col)) return(levels(col))
- sort(unique(col))
- })
- }
- wm <- setDT(do.call(CJ, wm))
-
- weights <- merge(wm, weights, by = adVars, all.x = TRUE, all.y = TRUE)
-
- dt_robust_by(
- 'weights[, "weights" := weights/sum(weights), by = %%BY_VAR_NMS%%]',
- by.var.nms = prVars
- )
-
- data[i = weights, on = c(prVars, adVars), j = "weights" := weights]
-
- if (any(is.na(data$weights))) {
- ## should not be any NAs since we checked for level congruence
- ## in checkWeights
- stop("Internal error: some weights were NA after merging to working ",
- "data. Complain to the package maintainer if you see this.")
- }
-
-
- }
-
- setattr(data, "makeWeightsDT", list(prVars = prVars, adVars = adVars,
- boVars = boVars, vaVars = vaVars,
- NAs = NAs))
- return(data[])
-
-}
-
-checkCharWeights <- function(w) {
- if (is.character(w)) {
- if (length(w) != 1L) {
- stop("weights supplied as a character string must be of length one.")
- }
- if (!pmatch(w, c("internal", "cohort"), nomatch = 0L)) {
- stdr.weights(w)
- }
- }
-}
-
-checkWeights <- function(weights, adjust) {
- ## INTENTION: given a list/DF/vector/string specifying weights
- ## and a data.frame/list of the adjusting variables,
- ## checks they are congruent and complains if not.
- allowed_classes <- c("list","data.frame","integer","numeric","character",
- "NULL")
- if (!any(class(weights) %in% allowed_classes)) {
- stop("weights must be either a list, a data.frame, a numeric variable, ",
- "or a character string specifing the weighting scheme to use. ",
- "See ?direct_standardization for more information.")
- }
-
- if (is.list(weights) && !is.data.frame(weights) &&
- length(adjust) != length(weights)) {
- stop("Mismatch in numbers of variables (NOT necessarily in the numbers of ",
- "levels/values within the variables) in adjust (", length(adjust),
- " variables) and weights (", length(weights)," variables); ",
- "make sure each given weights vector has a corresponding ",
- "variable in adjust and vice versa. ",
- "See ?direct_standardization for more information.")
- }
-
- if (is.list(weights)) {
- isChar <- unlist(lapply(weights, is.character))
- if (any(isChar)) {
- lapply(weights[isChar], checkCharWeights)
- weights[isChar] <- lapply(weights[isChar], function(string) {
- if (pmatch(string, c("cohort", "internal"), nomatch = 0L)) {
- stop("List of weights had 'cohort' or 'internal' as at least one ",
- "element, which is currently not supported. ",
- "See ?direct_standardization for more information.")
- }
- stdr.weights(string)[[2]]
- })
- }
- }
-
- if (is.character(weights)) {
- checkCharWeights(weights)
- if (pmatch(weights, c("internal", "cohort"), nomatch = 0L)) {
- ## done checking since internal weights are pretty fool-proof.
- return(invisible())
- }
- ## if not, pass along as vector of weights.
- weights <- stdr.weights(weights)[[2]]
- }
-
- if (is.numeric(weights)) {
- if (length(adjust) != 1L) {
- stop("Weights is a numeric vector of weights, ",
- "but there are more or less than one adjusting variable. ",
- "See ?direct_standardization for more information.")
- }
- weights <- list(weights)
- names(weights) <- names(adjust)
- }
-
- ## by now either a list or a data.frame of weights...
- adVars <- names(adjust)
- weVars <- names(weights)
- if (is.data.frame(weights)) {
- if (!"weights" %in% weVars) {
- stop("data.frame of weights did not have column named 'weights'. ",
- "see ?direct_standardization for more information.")
- }
- weVars <- setdiff(weVars, "weights")
- }
-
- badAdVars <- setdiff(adVars, weVars)
- badWeVars <- setdiff(weVars, adVars)
- if (length(badAdVars) > 0) {
- stop("Mismatch in names of variables in adjust and weights; ",
- "following adjust variables not mentioned in weights: ",
- paste0("'", badAdVars, "'", collapse = ", "))
- }
-
- if (length(badWeVars) > 0) {
- stop("Mismatch in names of variables in adjust and weights; ",
- "following weights variables not mentioned in adjust: ",
- paste0("'", badWeVars, "'", collapse = ", "))
- }
-
- if (is.data.frame(weights)) {
-
- levDiff <- lapply(names(adjust), function(var) {
- !all(adjust[[var]] %in% weights[[var]])
- })
- levDiff <- unlist(levDiff)
- if (any(levDiff)) {
- ## take only first conflicting variable for brevity of error message-
- badVar <- names(adjust)[1]
- badLevs <- setdiff(adjust[[badVar]], weights[[badVar]])
- badLevs <- paste0("'", badLevs, "'", collapse = ", ")
- stop("Missing levels in weights data.frame in variable '", badVar, "': ",
- badLevs, ". These levels were found to exist in the corresponding ",
- "adjusting variable. ",
- "Usual suspects: adjusting variable is a factor and you ",
- "only supplied weights for unique values in your data ",
- "as opposed to the levels of the factor, which may contain levels ",
- "that no row has. Try table(yourdata$yourvariable).")
- }
-
- } else {
- weights <- as.list(weights)
- weights <- weights[adVars]
-
- ## check variable levels
- adjust <- lapply(adjust, function(elem) {
- if (is.factor(elem)) {
- levels(elem)
- } else {
- sort(unique(elem))
- }
- })
-
- weLen <- unlist(lapply(weights, length))
- adLen <- unlist(lapply(adjust, length))
- badLen <- names(adjust)[weLen != adLen]
-
- if (length(badLen) > 0) {
- stop("Mismatch in numbers of levels/unique values in adjusting variables ",
- "and lengths of corresponding weights vectors. ",
- "Names of mismatching variables: ",
- paste0("'", badLen, "'", collapse = ", "), ". There were ",
- weLen[weLen != adLen], " weights and ", adLen[weLen != adLen],
- " adjusting variable levels.")
- }
- }
-
-
-
- invisible()
-}
-
-
-
-
-
-
-
-
+# @title Make a \code{data.table} of Tabulated, Aggregated Values and Weights
+# @description An internal function that aggregates a table
+# and merges in weights.
+# @param data DF/DT; passed to \code{envir} in \code{eval}
+# @param values values to tabulate. Anything \code{evalPopArg} can evaluate.
+# @param print variables to tabulate by and include in \code{prVars} in attributes
+# @param adjust variables to tabulate by and include in \code{adVars} in attributes
+# @param formula a formula such as \code{fot ~ sex} or \code{Surv(fot, lex.Xst) ~ sex}
+# @param Surv.response logical, if \code{TRUE} throws error if response in
+# \code{formula} is not a \code{Surv} object and vice versa
+# @param by.other other variables to tabulate by and include
+# in \code{boVars} in attributes
+# @param custom.levels a named list of values. When "inflating" the data
+# in the cross-join / cartesian join sense (try e.g. \code{merge(1:5, 1:2)}),
+# one can supply the levels to inflate by using this to ensure inflation is full.
+# E.g. data might only have levels present to do inflation analogous to
+# \code{merge(2:5, 1:2)} although \code{merge(1:5, 1:2)} is intended and
+# needed.
+# @param custom.levels.cut.low a character string vector of variable names.
+# These variables mentioned in \code{custom.levels} and existing in data
+# or first modified (in data) using \code{cutLow()} (essentially
+# \code{cut()} with \code{right = FALSE} and returning the lower bounds
+# as values). Handy for aggregating data e.g. to survival intervals.
+# \strong{NOTE}: the appropriate elements in \code{custom.levels} for these
+# variables must exceptionally contain an extra value as the roof used in
+# cutting, which will not be used in "inflating" the table using a merge.
+# See Examples.
+# @param weights a named list or long-form data.frame of weights. See Examples.
+# @param internal.weights.values the variable to use to compute internal
+# weights; only used if \code{weights = "internal"}.
+# @param enclos the enclosing environment passed on to \code{eval}. Variables
+# not found in \code{data} or searched for here.
+# @param NA.text a character string to display in a \code{warning}
+# if there are any rows with missing \code{values} or \code{adjust} values.
+# \strong{special:} key phrase \code{\%\%NA_COUNT\%\%} in text is replaced
+# with the count of missing observations.
+# E.g. \code{"Missing \%\%NA_COUNTS\%\% observations due to derpness."}
+# @examples
+# library(data.table)
+#
+# makeWeightsDT <- popEpi:::makeWeightsDT ## this avoids errors during tests
+#
+# sire <- copy(popEpi::sire)
+# set.seed(1L)
+# sire$sex <- rbinom(nrow(sire), 1, 0.5)
+# ag <- lexpand(sire, birth = "bi_date", entry = "dg_date", exit = "ex_date",
+# status = status %in% 1:2, pophaz = popmort, pp = FALSE,
+# aggre = list(sex, agegr = cut(dg_age, c(0,50,75,Inf)), fot),
+# fot = seq(0, 5, 1/12))
+# ps <- quote(list(sex, fot))
+# as <- quote(list(agegr))
+# vs <- list(quote(list(pyrs, at.risk)))
+# ws <- list(agegr = c(0.2,0.4,0.4))
+#
+# #### custom.levels usage
+# fb <- seq(0, 5-1/12, 1/12) ## exclude 5 as no row has that value
+# ag2 <- ag[fot > 0.5,]
+# # repeats fot intervals < 0.5 as empty rows
+# # may be the safest way to do this
+# dt <- makeWeightsDT(ag2, print = ps, adjust = as,
+# values = vs, weights = ws,
+# custom.levels = list(fot = fb))
+# ## aggregate from intervals seq(0, 5, 1/12) to 0:5
+# fb2 <- 0:5 ## (this time we include 5 as the roof)
+# dt <- makeWeightsDT(ag2, print = ps, adjust = as,
+# values = vs, weights = ws,
+# custom.levels = list(fot = fb2),
+# custom.levels.cut.low = "fot")
+#
+#
+# #### use of enclos
+# TF <- environment()
+# gender <- factor(ag$sex)
+# dt <- makeWeightsDT(ag, print = quote(gender), adjust = as,
+# values = vs, weights = ws, enclos = TF)
+# ## or NULL: uses calling frame by default.
+# dt <- makeWeightsDT(ag, print = quote(gender), adjust = as,
+# values = vs, weights = ws,
+# enclos = NULL)
+# ## passing parent.fram(1) is the same thing (as below),
+# ## but won't pass in testing these examples somehow (but work in real life)
+# # dt <- makeWeightsDT(ag, print = quote(gender), adjust = as,
+# # values = vs, weights = ws,
+# # enclos = NULL)
+#
+# #### formula usage
+# form <- Surv(fot, factor(from0to1))~gender
+# dt <- makeWeightsDT(ag, formula = form, Surv.response = TRUE,
+# adjust = as, values = vs, weights = ws,
+# enclos = NULL)
+#
+# ## or
+# form <- Surv(fot, factor(from0to1))~gender + adjust(agegr)
+# dt <- makeWeightsDT(ag, formula = form, Surv.response = TRUE,
+# adjust = NULL, values = vs, weights = ws,
+# enclos = NULL)
+#
+# ## or
+# form <- from0to1 ~ fot + gender + adjust(agegr)
+# dt <- makeWeightsDT(ag, formula = form, Surv.response = FALSE,
+# adjust = NULL, values = vs, weights = ws,
+# enclos = NULL)
+#
+# form <- from0to1 ~ fot + adjust(agegr) + adjust(sex)
+# ws2 <- list(agegr = c(0.33, 0.33, 0.33), sex = c(0.5, 0.5))
+# dt <- makeWeightsDT(ag, formula = form, Surv.response = FALSE,
+# adjust = NULL, values = vs, weights = ws2,
+# enclos = NULL)
+#
+# ## international standard pops
+# ag <- lexpand(sire, birth = "bi_date", entry = "dg_date", exit = "ex_date",
+# status = status %in% 1:2, pophaz = popmort, pp = FALSE,
+# aggre = list(sex, agegr = cut(dg_age, c(seq(0, 85, 5), Inf)), fot),
+# fot = seq(0, 5, 1/12))
+#
+# form <- from0to1 ~ fot + adjust(agegr)
+# dt <- makeWeightsDT(ag, formula = form, Surv.response = FALSE,
+# adjust = NULL, values = vs, weights = "world_1966_18of5",
+# enclos = NULL)
+#
+# form <- from0to1 ~ fot + adjust(agegr, sex)
+# dt <- makeWeightsDT(ag, formula = form, Surv.response = FALSE,
+# adjust = NULL, values = vs,
+# weights = list(agegr = "nordic_2000_18of5", sex=c(1,1)),
+# enclos = NULL)
+makeWeightsDT <- function(data, values = NULL,
+ print = NULL, adjust = NULL,
+ formula = NULL, Surv.response = TRUE,
+ by.other = NULL, custom.levels = NULL,
+ custom.levels.cut.low = NULL, weights = NULL,
+ internal.weights.values = NULL,
+ enclos = NULL, NA.text = NULL) {
+
+ # environmentalism -----------------------------------------------------------
+ TF <- environment()
+ PF <- parent.frame(1L)
+ if (missing(enclos) || is.null(enclos)) {
+ enclos <- PF
+ }
+
+ enclos <- eval(enclos, envir = TF)
+
+ if (!is.environment(enclos)) {
+ stop("Argument 'enclos' is not an environment. (Probably internal error, ",
+ "meaning you should complain to the package maintainer if you are not",
+ "doing something silly.)")
+ }
+
+ THIS_CALL <- match.call()
+
+ ## dataism -------------------------------------------------------------------
+ if (!is.data.frame(data)) stop("data must be a data.frame")
+ ## tmpDum for convenience. will be deleted in the end. (if no tabulating vars)
+ origData <- data
+ tmpDum <- makeTempVarName(origData, pre = "dummy_")
+ data <- data.table(rep(1L, nrow(origData)))
+ setnames(data, 1, tmpDum)
+
+
+ # formula: vars to print and adjust by ---------------------------------------
+
+ adSub <- adjust
+ adjust <- evalPopArg(data = origData, arg = adSub, DT = TRUE, enclos = enclos)
+
+ if (!is.null(formula)) {
+
+ foList <- usePopFormula(formula, adjust = adjust,
+ data = origData, enclos = enclos,
+ Surv.response = Surv.response)
+ print <- foList$print
+ adjust <- foList$adjust
+ } else {
+
+ prSub <- substitute(print)
+ print <- evalPopArg(data = origData, arg = prSub, DT = TRUE, enclos = enclos)
+
+
+ }
+
+ if (length(weights) && length(adjust)) {
+ checkWeights(weights, adjust = adjust)
+ }
+
+ # variables to print by ----------------------------------------------------
+ prVars <- tmpDum
+ if (length(print) > 0) {
+ prVars <- names(print)
+ data[, c(prVars) := TF$print]
+ data[, c(tmpDum) := NULL]
+ }
+ rm(print)
+
+ # standardization ----------------------------------------------------------
+ ## note: adjust evaluated above with formula
+ adVars <- NULL
+ if (length(adjust) > 0) {
+ adVars <- names(adjust)
+ data[, c(adVars) := TF$adjust]
+ }
+ rm(adjust)
+
+ if (is.null(weights) && length(adVars)) {
+ stop("Variables to adjust by were defined but no weights were supplied.")
+ }
+
+ if (!length(adVars)) {
+
+ if (!is.null(weights)) {
+ message("NOTE: Weights ignored since no adjusting variables given")
+ }
+
+ weights <- NULL
+ }
+
+ # variables to sum -----------------------------------------------------------
+ if (!is.list(values)) stop("Argument 'values' must be a list ",
+ "(internal error: complain to the package",
+ "maintainer if you see this)")
+ values <- lapply(values, function(x) {
+ evalPopArg(data = origData, arg = x, DT = TRUE, enclos = enclos)
+ })
+ for (dt in setdiff(seq_along(values), 1L)) {
+ values[[1L]] <- cbind(values[[1L]], values[[dt]])
+ }
+ values <- values[[1L]]
+ vaVars <- NULL
+ if (nrow(values) != nrow(data)) {
+ stop("mismatch in numers of rows in data (", nrow(data),
+ ") and 'values' (", nrow(values), "). If you see this message, ",
+ "complain to the package maintainer.")
+ }
+
+ if (length(values) > 0) {
+ vaVars <- names(values)
+ data[, c(vaVars) := TF$values]
+ } else {
+ stop("no values given to sum!")
+ }
+ rm(values)
+
+ # additionally, values to compute internal weights by: -----------------------
+ iwVar <- NULL
+ if (is.character(weights) &&
+ pmatch(weights, c("internal", "cohort"), nomatch = 0L)) {
+ iw <- substitute(internal.weights.values)
+ iw <- evalPopArg(data = origData, iw, DT = TRUE,
+ enclos = PF, recursive = TRUE,
+ types = c("character", "expression", "list", "NULL"))
+
+ if (length(iw) > 1L) stop("Argument 'internal.weights.values' ",
+ "must produce only one column.")
+ if (length(iw) == 1L && is.character(weights) &&
+ pmatch(weights, c("internal", "cohort"), nomatch = 0L)) {
+ iwVar <- makeTempVarName(names=c(names(data), names(origData)), pre = "iw_")
+ data[, c(iwVar) := TF$iw]
+ }
+
+ if (length(iwVar) == 0L) {
+ stop("Requested computing internal weights, but no values to compute ",
+ "internals weights with were supplied (internal error: If you see ",
+ "this, complain to the package maintainer).")
+ }
+ rm(iw)
+ }
+
+
+ # other category vars to keep ------------------------------------------------
+ boSub <- by.other
+ by.other <- evalPopArg(data = origData, arg = boSub, DT = TRUE, enclos = enclos)
+ boVars <- NULL
+ if (length(by.other) > 0) {
+ boVars <- names(by.other)
+ data[, c(boVars) := TF$by.other]
+ }
+ rm(by.other)
+
+ # check for aliased columns --------------------------------------------------
+ aliased_cols(data, cols = c(prVars, adVars, boVars))
+
+ # check for conflicting column names -----------------------------------------
+ dupCols <- c(prVars, adVars, boVars, vaVars, iwVar)
+ dupCols <- unique(dupCols[duplicated(dupCols)])
+ if (length(dupCols) > 0L) {
+ dupCols <- paste0("'", dupCols, "'", collapse = ", ")
+ stop("Following column names duplicated (columns created by arguments ",
+ "print, adjust, etc.): ", dupCols, ". If you see this, please ensure ",
+ "you are not passing e.g. the same column to both for adjusting ",
+ "and stratification (printing).")
+ }
+
+ # check for NA values --------------------------------------------------------
+ ## NOTE: NA values of print/by.other are OK. values/adjust are NOT.
+
+ NAs <- data[, lapply(.SD, function(x) is.na(x)), .SDcols = c(vaVars, iwVar, adVars)]
+ NAs <- rowSums(NAs) > 0L
+ if (sum(NAs)) {
+ if (!is.null(NA.text)) {
+ NA.text <- gsub(x = NA.text, pattern = "%%NA_COUNT%%",
+ replacement = sum(NAs))
+ warning(NA.text)
+ }
+ data <- data[!NAs]
+ }
+
+ # inflate data ---------------------------------------------------------------
+ ## on the other hand we aggregate data to levels of print, adjust and
+ ## by.other; on the other hand the data will always have tabulating variables
+ ## represented as cross-joined, e.g. merge(1:5, 1:2).
+ ## this means some rows might have zeros as values in the 'values'
+ ## columns.
+ ## (necessary for correct standardization with weights)
+
+ ## NOTE: have to do CJ by hand: some levels of adjust or something may not
+ ## have each level of e.g. fot repeated!
+
+ sortedLevs <- function(x) {
+ if (!is.factor(x)) return(sort(unique(x)))
+
+ factor(levels(x), levels(x), levels(x))
+ }
+ cj <- list()
+ cj <- lapply(data[, .SD, .SDcols = c(prVars, adVars, boVars)], sortedLevs)
+
+ ## e.g. if data only has fot = seq(0, 4, 1/12), but want to display table
+ ## with fot = seq(0, 5, 1/12). Very important sometimes for handy usage
+ ## of weights.
+ if (length(custom.levels) > 0) cj[names(custom.levels)] <- custom.levels
+
+
+ ## SPECIAL: if e.g. a survival time scale with breaks seq(0, 5, 1/12)
+ ## is to be "compressed" to breaks 0:5, and the latter breaks were passed
+ ## via custom.levels, the following ensures e.g. intervals between 0 and 1
+ ## are aggregated to the same row in what follows after.
+ if (!is.null(custom.levels.cut.low)) {
+ cl_msg <- paste0("Internal error: tried to cut() variables in ",
+ "internally used work data that did not exist. ",
+ "If you see this, complain to the ",
+ "package maintainer. Bad variables: %%VARS%%.")
+ all_names_present(data, custom.levels.cut.low, msg = cl_msg)
+ all_names_present(cj, custom.levels.cut.low, msg = cl_msg)
+
+ for (var in custom.levels.cut.low) {
+ set(data, j = var, value = cutLow(data[[var]], breaks = cj[[var]]))
+ }
+
+ ## NOTE: if used cutlow(), then assume passed values via custom.levels
+ ## also contained the roof of the values which should not be repeated.
+ cj[custom.levels.cut.low] <- lapply(cj[custom.levels.cut.low],
+ function(elem) elem[-length(elem)])
+ }
+
+ ## form data.table to merge by - the merge will inflate the data.
+ cj <- do.call(function(...) CJ(..., unique = FALSE, sorted = FALSE), cj)
+
+ ## inflate & aggregate.
+ setkeyv(data, c(prVars, adVars, boVars))
+ data <- data[cj, lapply(.SD, sum), .SDcols = c(vaVars, iwVar), by = .EACHI]
+
+ for (k in c(vaVars, iwVar)) {
+ data[is.na(get(k)), (k) := 0]
+ }
+
+ setcolsnull(data, tmpDum)
+ prVars <- setdiff(prVars, tmpDum); if (length(prVars) == 0) prVars <- NULL
+
+ ## merge in weights ----------------------------------------------------------
+
+ if (!is.null(weights)) {
+
+ if (is.list(weights) && !is.data.frame(weights)) {
+ ## in case one of the elements is a standardization scheme string,
+ ## such as "world_x_y".
+ whChar <- which(unlist(lapply(weights, is.character)))
+ if (sum(whChar)) {
+
+ weights[whChar] <- lapply(weights[whChar], function(string) {
+ ## expected to return data.frame with 1) age groups 2) weights
+ ## as columns.
+ stdr.weights(string)[[2]]
+ })
+
+ }
+
+ ## now list only contains numeric weights i hope.
+
+ }
+
+ ## NOTE: adjust used here to contain levels of adjust arguments only
+ adjust <- list()
+ if (length(adVars) > 0L) {
+ adjust <- lapply(data[, eval(adVars), with = FALSE], sortedLevs)
+ }
+
+ if (is.character(weights)) {
+
+ if (pmatch(weights, c("internal", "cohort"), nomatch = 0L)) {
+
+
+ all_names_present(data, iwVar,
+ msg = paste0(
+ "Internal error: expected to have variable ",
+ "%%VARS%% in working data but didn't. Complain ",
+ "to the pkg maintainer if you see this."
+ ))
+
+ weights <- lapply(seq_along(adjust), function(i) {
+ cn <- names(adjust)[i]
+ le <- unique(adjust[[i]])
+ le <- structure(list(le), names = cn)
+ data[le, lapply(.SD, sum), .SDcols = iwVar, by = .EACHI, on = cn][[iwVar]]
+ })
+ names(weights) <- names(adjust)
+
+
+ setcolsnull(data, iwVar)
+ setkeyv(data, c(prVars, adVars, boVars))
+ } else {
+ ## expected to return data.frame with 1) age groups 2) weights
+ ## as columns.
+ weights <- stdr.weights(weights)
+ weights <- weights[[2]]
+
+ }
+ }
+
+ if (!is.data.frame(weights) && is.vector(weights)) {
+ ## note: lists are vectors
+ if (!is.list(weights)) {
+ weights <- list(weights) ## was a vector of values
+ setattr(weights, "names", adVars[1])
+ }
+
+ weVars <- names(weights)
+ weights <- weights[names(adjust)]
+
+ adjust <- do.call(function(...) CJ(..., unique = FALSE, sorted = FALSE), adjust)
+ weights <- do.call(function(...) CJ(..., unique = FALSE, sorted = FALSE), weights)
+
+ weVars <- paste0(weVars, ".w")
+ setnames(weights, adVars, weVars)
+ weights[, (adVars) := adjust]
+
+ set(weights, j = "weights", value = 1L)
+ for (k in weVars) {
+ set(weights, j = "weights", value = weights$weights * weights[[k]])
+ }
+ setcolsnull(weights, delete = weVars, soft = FALSE)
+
+ ## NOTE: weights will be repeated for each level of print,
+ ## and for each level of print the weights must sum to one for things
+ ## to work.
+ weights[, "weights" := weights/sum(weights)]
+
+ }
+
+ if (!is.data.frame(weights)) {
+ stop("Something went wrong: 'weights' was not collated into a ",
+ "data.frame to merge with data. ",
+ "Blame the package maintainer please!")
+ }
+ ## at this points weights is a data.frame.
+ weights <- data.table(weights)
+ weights[, "weights" := as.double(weights)]
+
+ ## ensure repetition by print levels if some adjust levels
+ ## that exist in weights do not exist in data.
+ ## NOTE: weights data.frame has at least as many levels as adjust column
+ ## in data (or it has more sometimes).
+ wm <- lapply(adVars, function(chStr) {
+ col <- weights[[chStr]]
+ if (is.factor(col)) return(levels(col))
+ sort(unique(col))
+ })
+ names(wm) <- adVars
+ if (length(prVars)) {
+ wm[prVars] <- lapply(prVars, function(chStr) {
+ col <- data[[chStr]]
+ if (is.factor(col)) return(levels(col))
+ sort(unique(col))
+ })
+ }
+ wm <- setDT(do.call(CJ, wm))
+
+ weights <- merge(wm, weights, by = adVars, all.x = TRUE, all.y = TRUE)
+
+ dt_robust_by(
+ 'weights[, "weights" := weights/sum(weights), by = %%BY_VAR_NMS%%]',
+ by.var.nms = prVars
+ )
+
+ data[i = weights, on = c(prVars, adVars), j = "weights" := weights]
+
+ if (any(is.na(data$weights))) {
+ ## should not be any NAs since we checked for level congruence
+ ## in checkWeights
+ stop("Internal error: some weights were NA after merging to working ",
+ "data. Complain to the package maintainer if you see this.")
+ }
+
+
+ }
+
+ setattr(data, "makeWeightsDT", list(prVars = prVars, adVars = adVars,
+ boVars = boVars, vaVars = vaVars,
+ NAs = NAs))
+ return(data[])
+
+}
+
+checkCharWeights <- function(w) {
+ if (is.character(w)) {
+ if (length(w) != 1L) {
+ stop("weights supplied as a character string must be of length one.")
+ }
+ if (!pmatch(w, c("internal", "cohort"), nomatch = 0L)) {
+ stdr.weights(w)
+ }
+ }
+}
+
+checkWeights <- function(weights, adjust) {
+ ## INTENTION: given a list/DF/vector/string specifying weights
+ ## and a data.frame/list of the adjusting variables,
+ ## checks they are congruent and complains if not.
+ allowed_classes <- c("list","data.frame","integer","numeric","character",
+ "NULL")
+ if (!any(class(weights) %in% allowed_classes)) {
+ stop("weights must be either a list, a data.frame, a numeric variable, ",
+ "or a character string specifing the weighting scheme to use. ",
+ "See ?direct_standardization for more information.")
+ }
+
+ if (is.list(weights) && !is.data.frame(weights) &&
+ length(adjust) != length(weights)) {
+ stop("Mismatch in numbers of variables (NOT necessarily in the numbers of ",
+ "levels/values within the variables) in adjust (", length(adjust),
+ " variables) and weights (", length(weights)," variables); ",
+ "make sure each given weights vector has a corresponding ",
+ "variable in adjust and vice versa. ",
+ "See ?direct_standardization for more information.")
+ }
+
+ if (is.list(weights)) {
+ isChar <- unlist(lapply(weights, is.character))
+ if (any(isChar)) {
+ lapply(weights[isChar], checkCharWeights)
+ weights[isChar] <- lapply(weights[isChar], function(string) {
+ if (pmatch(string, c("cohort", "internal"), nomatch = 0L)) {
+ stop("List of weights had 'cohort' or 'internal' as at least one ",
+ "element, which is currently not supported. ",
+ "See ?direct_standardization for more information.")
+ }
+ stdr.weights(string)[[2]]
+ })
+ }
+ }
+
+ if (is.character(weights)) {
+ checkCharWeights(weights)
+ if (pmatch(weights, c("internal", "cohort"), nomatch = 0L)) {
+ ## done checking since internal weights are pretty fool-proof.
+ return(invisible())
+ }
+ ## if not, pass along as vector of weights.
+ weights <- stdr.weights(weights)[[2]]
+ }
+
+ if (is.numeric(weights)) {
+ if (length(adjust) != 1L) {
+ stop("Weights is a numeric vector of weights, ",
+ "but there are more or less than one adjusting variable. ",
+ "See ?direct_standardization for more information.")
+ }
+ weights <- list(weights)
+ names(weights) <- names(adjust)
+ }
+
+ ## by now either a list or a data.frame of weights...
+ adVars <- names(adjust)
+ weVars <- names(weights)
+ if (is.data.frame(weights)) {
+ if (!"weights" %in% weVars) {
+ stop("data.frame of weights did not have column named 'weights'. ",
+ "see ?direct_standardization for more information.")
+ }
+ weVars <- setdiff(weVars, "weights")
+ }
+
+ badAdVars <- setdiff(adVars, weVars)
+ badWeVars <- setdiff(weVars, adVars)
+ if (length(badAdVars) > 0) {
+ stop("Mismatch in names of variables in adjust and weights; ",
+ "following adjust variables not mentioned in weights: ",
+ paste0("'", badAdVars, "'", collapse = ", "))
+ }
+
+ if (length(badWeVars) > 0) {
+ stop("Mismatch in names of variables in adjust and weights; ",
+ "following weights variables not mentioned in adjust: ",
+ paste0("'", badWeVars, "'", collapse = ", "))
+ }
+
+ if (is.data.frame(weights)) {
+
+ levDiff <- lapply(names(adjust), function(var) {
+ !all(adjust[[var]] %in% weights[[var]])
+ })
+ levDiff <- unlist(levDiff)
+ if (any(levDiff)) {
+ ## take only first conflicting variable for brevity of error message-
+ badVar <- names(adjust)[1]
+ badLevs <- setdiff(adjust[[badVar]], weights[[badVar]])
+ badLevs <- paste0("'", badLevs, "'", collapse = ", ")
+ stop("Missing levels in weights data.frame in variable '", badVar, "': ",
+ badLevs, ". These levels were found to exist in the corresponding ",
+ "adjusting variable. ",
+ "Usual suspects: adjusting variable is a factor and you ",
+ "only supplied weights for unique values in your data ",
+ "as opposed to the levels of the factor, which may contain levels ",
+ "that no row has. Try table(yourdata$yourvariable).")
+ }
+
+ } else {
+ weights <- as.list(weights)
+ weights <- weights[adVars]
+
+ ## check variable levels
+ adjust <- lapply(adjust, function(elem) {
+ if (is.factor(elem)) {
+ levels(elem)
+ } else {
+ sort(unique(elem))
+ }
+ })
+
+ weLen <- unlist(lapply(weights, length))
+ adLen <- unlist(lapply(adjust, length))
+ badLen <- names(adjust)[weLen != adLen]
+
+ if (length(badLen) > 0) {
+ stop("Mismatch in numbers of levels/unique values in adjusting variables ",
+ "and lengths of corresponding weights vectors. ",
+ "Names of mismatching variables: ",
+ paste0("'", badLen, "'", collapse = ", "), ". There were ",
+ weLen[weLen != adLen], " weights and ", adLen[weLen != adLen],
+ " adjusting variable levels.")
+ }
+ }
+
+
+
+ invisible()
+}
+
+
+
+
+
+
+
+
diff --git a/README.md b/README.md
index 07f3def..cdea348 100644
--- a/README.md
+++ b/README.md
@@ -1,194 +1,194 @@
-[](https://travis-ci.org/FinnishCancerRegistry/popEpi)
-[](https://ci.appveyor.com/project/FinnishCancerRegistry/popepi)
-[](https://cran.r-project.org/package=popEpi)
-[](https://codecov.io/github/FinnishCancerRegistry/popEpi?branch=master)
-[](https://cran.r-project.org/package=popEpi)
-
-# popEpi: Epidemiology with population data
-
-The purpose of popEpi is to facilitate computing certain epidemiological
-statistics where population data is used. Current main attractions:
-
-## Splitting, merging population hazards, and aggregating
-
-the `lexpand` function allows users to split their subject-level
-follow-up data into sub-intervals along age, follow-up time and calendar
-time, merge corresponding population hazard information to those
-intervals, and to aggregate the resulting data if needed.
-
-``` r
-data(sire)
-sr <- sire[1,]
-print(sr)
-#> sex bi_date dg_date ex_date status dg_age
-#> 1: 1 1952-05-27 1994-02-03 2012-12-31 0 41.68877
-```
-
-``` r
-x <- lexpand(sr, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status %in% 1:2,
- fot = 0:5, per = 1994:2000)
-print(x)
-#> lex.id fot per age lex.dur lex.Cst lex.Xst sex bi_date
-#> 1: 1 0.000000 1994.09 41.68877 0.90958904 0 0 1 1952-05-27
-#> 2: 1 0.909589 1995.00 42.59836 0.09041096 0 0 1 1952-05-27
-#> 3: 1 1.000000 1995.09 42.68877 0.90958904 0 0 1 1952-05-27
-#> 4: 1 1.909589 1996.00 43.59836 0.09041096 0 0 1 1952-05-27
-#> 5: 1 2.000000 1996.09 43.68877 0.90958904 0 0 1 1952-05-27
-#> 6: 1 2.909589 1997.00 44.59836 0.09041096 0 0 1 1952-05-27
-#> 7: 1 3.000000 1997.09 44.68877 0.90958904 0 0 1 1952-05-27
-#> 8: 1 3.909589 1998.00 45.59836 0.09041096 0 0 1 1952-05-27
-#> 9: 1 4.000000 1998.09 45.68877 0.90958904 0 0 1 1952-05-27
-#> 10: 1 4.909589 1999.00 46.59836 0.09041096 0 0 1 1952-05-27
-#> dg_date ex_date status dg_age
-#> 1: 1994-02-03 2012-12-31 0 41.68877
-#> 2: 1994-02-03 2012-12-31 0 41.68877
-#> 3: 1994-02-03 2012-12-31 0 41.68877
-#> 4: 1994-02-03 2012-12-31 0 41.68877
-#> 5: 1994-02-03 2012-12-31 0 41.68877
-#> 6: 1994-02-03 2012-12-31 0 41.68877
-#> 7: 1994-02-03 2012-12-31 0 41.68877
-#> 8: 1994-02-03 2012-12-31 0 41.68877
-#> 9: 1994-02-03 2012-12-31 0 41.68877
-#> 10: 1994-02-03 2012-12-31 0 41.68877
-```
-
-``` r
-data(popmort)
-x <- lexpand(sr, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status %in% 1:2,
- fot = 0:5, per = 1994:2000, pophaz = popmort)
-print(x)
-#> lex.id fot per age lex.dur lex.Cst lex.Xst sex bi_date
-#> 1: 1 0.000000 1994.09 41.68877 0.90958904 0 0 1 1952-05-27
-#> 2: 1 0.909589 1995.00 42.59836 0.09041096 0 0 1 1952-05-27
-#> 3: 1 1.000000 1995.09 42.68877 0.90958904 0 0 1 1952-05-27
-#> 4: 1 1.909589 1996.00 43.59836 0.09041096 0 0 1 1952-05-27
-#> 5: 1 2.000000 1996.09 43.68877 0.90958904 0 0 1 1952-05-27
-#> 6: 1 2.909589 1997.00 44.59836 0.09041096 0 0 1 1952-05-27
-#> 7: 1 3.000000 1997.09 44.68877 0.90958904 0 0 1 1952-05-27
-#> 8: 1 3.909589 1998.00 45.59836 0.09041096 0 0 1 1952-05-27
-#> 9: 1 4.000000 1998.09 45.68877 0.90958904 0 0 1 1952-05-27
-#> 10: 1 4.909589 1999.00 46.59836 0.09041096 0 0 1 1952-05-27
-#> dg_date ex_date status dg_age pop.haz pp
-#> 1: 1994-02-03 2012-12-31 0 41.68877 0.001170685 1.000651
-#> 2: 1994-02-03 2012-12-31 0 41.68877 0.001441038 1.000651
-#> 3: 1994-02-03 2012-12-31 0 41.68877 0.001200721 1.001856
-#> 4: 1994-02-03 2012-12-31 0 41.68877 0.001300846 1.001856
-#> 5: 1994-02-03 2012-12-31 0 41.68877 0.001400981 1.003207
-#> 6: 1994-02-03 2012-12-31 0 41.68877 0.002142293 1.003207
-#> 7: 1994-02-03 2012-12-31 0 41.68877 0.002202424 1.005067
-#> 8: 1994-02-03 2012-12-31 0 41.68877 0.001771568 1.005067
-#> 9: 1994-02-03 2012-12-31 0 41.68877 0.002222468 1.007277
-#> 10: 1994-02-03 2012-12-31 0 41.68877 0.002282603 1.007277
-```
-
-``` r
-a <- lexpand(sr, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status %in% 1:2,
- fot = 0:5, per = 1994:2000, aggre = list(fot, per))
-print(a)
-#> fot per pyrs at.risk from0to0
-#> 1: 0 1994 0.90958904 0 0
-#> 2: 0 1995 0.09041096 1 0
-#> 3: 1 1995 0.90958904 0 0
-#> 4: 1 1996 0.09041096 1 0
-#> 5: 2 1996 0.90958904 0 0
-#> 6: 2 1997 0.09041096 1 0
-#> 7: 3 1997 0.90958904 0 0
-#> 8: 3 1998 0.09041096 1 0
-#> 9: 4 1998 0.90958904 0 0
-#> 10: 4 1999 0.09041096 1 1
-```
-
-## SIRs / SMRs
-
-One can make use of the `sir` function to estimate indirectly
-standardised incidence or mortality ratios (SIRs/SMRs). The data can be
-aggregated by `lexpand` or by other means. While `sir` is simple and
-flexible in itself, one may also use `sirspline` to fit spline functions
-for the effect of e.g. age as a continuous variable on SIRs.
-
-``` r
-data(popmort)
-data(sire)
-c <- lexpand( sire, status = status %in% 1:2, birth = bi_date, exit = ex_date, entry = dg_date,
- breaks = list(per = 1950:2013, age = 1:100, fot = c(0,10,20,Inf)),
- aggre = list(fot, agegroup = age, year = per, sex) )
-#> dropped 16 rows where entry == exit
-
-se <- sir( coh.data = c, coh.obs = 'from0to1', coh.pyrs = 'pyrs',
- ref.data = popmort, ref.rate = 'haz',
- adjust = c('agegroup', 'year', 'sex'), print = 'fot')
-se
-#> SIR (adjusted by agegroup, year, sex) with 95% confidence intervals (profile)
-#> Test for homogeneity: p < 0.001
-#>
-#> Total sir: 3.08 (2.99-3.17)
-#> Total observed: 4559
-#> Total expected: 1482.13
-#> Total person-years: 39906
-#>
-#>
-#> fot observed expected pyrs sir sir.lo sir.hi p_value
-#> 1: 0 4264 1214.54 34445.96 3.51 3.41 3.62 0.000
-#> 2: 10 295 267.59 5459.96 1.10 0.98 1.23 0.094
-```
-
-## (Relative) survival
-
-The `survtab` function computes observed, net/relative and
-cause-specific survivals as well as cumulative incidence functions for
-`Lexis` data. Any of the supported survival time functions can be easily
-adjusted by any number of categorical variables if needed.
-
-One can also use `survtab_ag` for aggregated data. This means the data
-does not have to be on the subject-level to compute survival time
-function estimates.
-
-``` r
-library(Epi)
-
-data(sibr)
-sire$cancer <- "rectal"
-sibr$cancer <- "breast"
-sr <- rbind(sire, sibr)
-
-sr$cancer <- factor(sr$cancer)
-sr <- sr[sr$dg_date < sr$ex_date, ]
-
-sr$status <- factor(sr$status, levels = 0:2,
- labels = c("alive", "canD", "othD"))
-
-x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
- exit = list(CAL = get.yrs(ex_date)),
- data = sr,
- exit.status = status)
-#> NOTE: entry.status has been set to "alive" for all.
-
-st <- survtab(FUT ~ cancer, data = x,
- breaks = list(FUT = seq(0, 5, 1/12)),
- surv.type = "cif.obs")
-st
-#>
-#> Call:
-#> survtab(formula = FUT ~ cancer, data = x, breaks = list(FUT = seq(0, 5, 1/12)), surv.type = "cif.obs")
-#>
-#> Type arguments:
-#> surv.type: cif.obs --- surv.method: hazard
-#>
-#> Confidence interval arguments:
-#> level: 95 % --- transformation: log-log
-#>
-#> Totals:
-#> person-time:62120 --- events: 5375
-#>
-#> Stratified by: 'cancer'
-#> cancer Tstop surv.obs.lo surv.obs surv.obs.hi SE.surv.obs CIF_canD CIF_othD
-#> 1: breast 2.5 0.8804 0.8870 0.8933 0.003290 0.0687 0.0442
-#> 2: breast 5.0 0.7899 0.7986 0.8070 0.004368 0.1162 0.0852
-#> 3: rectal 2.5 0.6250 0.6359 0.6465 0.005480 0.2981 0.0660
-#> 4: rectal 5.0 0.5032 0.5148 0.5263 0.005901 0.3727 0.1125
-```
+[](https://travis-ci.org/FinnishCancerRegistry/popEpi)
+[](https://ci.appveyor.com/project/FinnishCancerRegistry/popepi)
+[](https://cran.r-project.org/package=popEpi)
+[](https://codecov.io/github/FinnishCancerRegistry/popEpi?branch=master)
+[](https://cran.r-project.org/package=popEpi)
+
+# popEpi: Epidemiology with population data
+
+The purpose of popEpi is to facilitate computing certain epidemiological
+statistics where population data is used. Current main attractions:
+
+## Splitting, merging population hazards, and aggregating
+
+the `lexpand` function allows users to split their subject-level
+follow-up data into sub-intervals along age, follow-up time and calendar
+time, merge corresponding population hazard information to those
+intervals, and to aggregate the resulting data if needed.
+
+``` r
+data(sire)
+sr <- sire[1,]
+print(sr)
+#> sex bi_date dg_date ex_date status dg_age
+#> 1: 1 1952-05-27 1994-02-03 2012-12-31 0 41.68877
+```
+
+``` r
+x <- lexpand(sr, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status %in% 1:2,
+ fot = 0:5, per = 1994:2000)
+print(x)
+#> lex.id fot per age lex.dur lex.Cst lex.Xst sex bi_date
+#> 1: 1 0.000000 1994.09 41.68877 0.90958904 0 0 1 1952-05-27
+#> 2: 1 0.909589 1995.00 42.59836 0.09041096 0 0 1 1952-05-27
+#> 3: 1 1.000000 1995.09 42.68877 0.90958904 0 0 1 1952-05-27
+#> 4: 1 1.909589 1996.00 43.59836 0.09041096 0 0 1 1952-05-27
+#> 5: 1 2.000000 1996.09 43.68877 0.90958904 0 0 1 1952-05-27
+#> 6: 1 2.909589 1997.00 44.59836 0.09041096 0 0 1 1952-05-27
+#> 7: 1 3.000000 1997.09 44.68877 0.90958904 0 0 1 1952-05-27
+#> 8: 1 3.909589 1998.00 45.59836 0.09041096 0 0 1 1952-05-27
+#> 9: 1 4.000000 1998.09 45.68877 0.90958904 0 0 1 1952-05-27
+#> 10: 1 4.909589 1999.00 46.59836 0.09041096 0 0 1 1952-05-27
+#> dg_date ex_date status dg_age
+#> 1: 1994-02-03 2012-12-31 0 41.68877
+#> 2: 1994-02-03 2012-12-31 0 41.68877
+#> 3: 1994-02-03 2012-12-31 0 41.68877
+#> 4: 1994-02-03 2012-12-31 0 41.68877
+#> 5: 1994-02-03 2012-12-31 0 41.68877
+#> 6: 1994-02-03 2012-12-31 0 41.68877
+#> 7: 1994-02-03 2012-12-31 0 41.68877
+#> 8: 1994-02-03 2012-12-31 0 41.68877
+#> 9: 1994-02-03 2012-12-31 0 41.68877
+#> 10: 1994-02-03 2012-12-31 0 41.68877
+```
+
+``` r
+data(popmort)
+x <- lexpand(sr, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status %in% 1:2,
+ fot = 0:5, per = 1994:2000, pophaz = popmort)
+print(x)
+#> lex.id fot per age lex.dur lex.Cst lex.Xst sex bi_date
+#> 1: 1 0.000000 1994.09 41.68877 0.90958904 0 0 1 1952-05-27
+#> 2: 1 0.909589 1995.00 42.59836 0.09041096 0 0 1 1952-05-27
+#> 3: 1 1.000000 1995.09 42.68877 0.90958904 0 0 1 1952-05-27
+#> 4: 1 1.909589 1996.00 43.59836 0.09041096 0 0 1 1952-05-27
+#> 5: 1 2.000000 1996.09 43.68877 0.90958904 0 0 1 1952-05-27
+#> 6: 1 2.909589 1997.00 44.59836 0.09041096 0 0 1 1952-05-27
+#> 7: 1 3.000000 1997.09 44.68877 0.90958904 0 0 1 1952-05-27
+#> 8: 1 3.909589 1998.00 45.59836 0.09041096 0 0 1 1952-05-27
+#> 9: 1 4.000000 1998.09 45.68877 0.90958904 0 0 1 1952-05-27
+#> 10: 1 4.909589 1999.00 46.59836 0.09041096 0 0 1 1952-05-27
+#> dg_date ex_date status dg_age pop.haz pp
+#> 1: 1994-02-03 2012-12-31 0 41.68877 0.001170685 1.000651
+#> 2: 1994-02-03 2012-12-31 0 41.68877 0.001441038 1.000651
+#> 3: 1994-02-03 2012-12-31 0 41.68877 0.001200721 1.001856
+#> 4: 1994-02-03 2012-12-31 0 41.68877 0.001300846 1.001856
+#> 5: 1994-02-03 2012-12-31 0 41.68877 0.001400981 1.003207
+#> 6: 1994-02-03 2012-12-31 0 41.68877 0.002142293 1.003207
+#> 7: 1994-02-03 2012-12-31 0 41.68877 0.002202424 1.005067
+#> 8: 1994-02-03 2012-12-31 0 41.68877 0.001771568 1.005067
+#> 9: 1994-02-03 2012-12-31 0 41.68877 0.002222468 1.007277
+#> 10: 1994-02-03 2012-12-31 0 41.68877 0.002282603 1.007277
+```
+
+``` r
+a <- lexpand(sr, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status %in% 1:2,
+ fot = 0:5, per = 1994:2000, aggre = list(fot, per))
+print(a)
+#> fot per pyrs at.risk from0to0
+#> 1: 0 1994 0.90958904 0 0
+#> 2: 0 1995 0.09041096 1 0
+#> 3: 1 1995 0.90958904 0 0
+#> 4: 1 1996 0.09041096 1 0
+#> 5: 2 1996 0.90958904 0 0
+#> 6: 2 1997 0.09041096 1 0
+#> 7: 3 1997 0.90958904 0 0
+#> 8: 3 1998 0.09041096 1 0
+#> 9: 4 1998 0.90958904 0 0
+#> 10: 4 1999 0.09041096 1 1
+```
+
+## SIRs / SMRs
+
+One can make use of the `sir` function to estimate indirectly
+standardised incidence or mortality ratios (SIRs/SMRs). The data can be
+aggregated by `lexpand` or by other means. While `sir` is simple and
+flexible in itself, one may also use `sirspline` to fit spline functions
+for the effect of e.g. age as a continuous variable on SIRs.
+
+``` r
+data(popmort)
+data(sire)
+c <- lexpand( sire, status = status %in% 1:2, birth = bi_date, exit = ex_date, entry = dg_date,
+ breaks = list(per = 1950:2013, age = 1:100, fot = c(0,10,20,Inf)),
+ aggre = list(fot, agegroup = age, year = per, sex) )
+#> dropped 16 rows where entry == exit
+
+se <- sir( coh.data = c, coh.obs = 'from0to1', coh.pyrs = 'pyrs',
+ ref.data = popmort, ref.rate = 'haz',
+ adjust = c('agegroup', 'year', 'sex'), print = 'fot')
+se
+#> SIR (adjusted by agegroup, year, sex) with 95% confidence intervals (profile)
+#> Test for homogeneity: p < 0.001
+#>
+#> Total sir: 3.08 (2.99-3.17)
+#> Total observed: 4559
+#> Total expected: 1482.13
+#> Total person-years: 39906
+#>
+#>
+#> fot observed expected pyrs sir sir.lo sir.hi p_value
+#> 1: 0 4264 1214.54 34445.96 3.51 3.41 3.62 0.000
+#> 2: 10 295 267.59 5459.96 1.10 0.98 1.23 0.094
+```
+
+## (Relative) survival
+
+The `survtab` function computes observed, net/relative and
+cause-specific survivals as well as cumulative incidence functions for
+`Lexis` data. Any of the supported survival time functions can be easily
+adjusted by any number of categorical variables if needed.
+
+One can also use `survtab_ag` for aggregated data. This means the data
+does not have to be on the subject-level to compute survival time
+function estimates.
+
+``` r
+library(Epi)
+
+data(sibr)
+sire$cancer <- "rectal"
+sibr$cancer <- "breast"
+sr <- rbind(sire, sibr)
+
+sr$cancer <- factor(sr$cancer)
+sr <- sr[sr$dg_date < sr$ex_date, ]
+
+sr$status <- factor(sr$status, levels = 0:2,
+ labels = c("alive", "canD", "othD"))
+
+x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
+ exit = list(CAL = get.yrs(ex_date)),
+ data = sr,
+ exit.status = status)
+#> NOTE: entry.status has been set to "alive" for all.
+
+st <- survtab(FUT ~ cancer, data = x,
+ breaks = list(FUT = seq(0, 5, 1/12)),
+ surv.type = "cif.obs")
+st
+#>
+#> Call:
+#> survtab(formula = FUT ~ cancer, data = x, breaks = list(FUT = seq(0, 5, 1/12)), surv.type = "cif.obs")
+#>
+#> Type arguments:
+#> surv.type: cif.obs --- surv.method: hazard
+#>
+#> Confidence interval arguments:
+#> level: 95 % --- transformation: log-log
+#>
+#> Totals:
+#> person-time:62120 --- events: 5375
+#>
+#> Stratified by: 'cancer'
+#> cancer Tstop surv.obs.lo surv.obs surv.obs.hi SE.surv.obs CIF_canD CIF_othD
+#> 1: breast 2.5 0.8804 0.8870 0.8933 0.003290 0.0687 0.0442
+#> 2: breast 5.0 0.7899 0.7986 0.8070 0.004368 0.1162 0.0852
+#> 3: rectal 2.5 0.6250 0.6359 0.6465 0.005480 0.2981 0.0660
+#> 4: rectal 5.0 0.5032 0.5148 0.5263 0.005901 0.3727 0.1125
+```
diff --git a/build/partial.rdb b/build/partial.rdb
index bff827b..d53b128 100644
Binary files a/build/partial.rdb and b/build/partial.rdb differ
diff --git a/build/vignette.rds b/build/vignette.rds
index 2ac0443..3031c67 100644
Binary files a/build/vignette.rds and b/build/vignette.rds differ
diff --git a/debian/changelog b/debian/changelog
index 0dd7dbe..add68ac 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+r-cran-popepi (0.4.10+git20221003.1.6b03392+dfsg-1) UNRELEASED; urgency=low
+
+ * New upstream snapshot.
+
+ -- Debian Janitor <janitor@jelmer.uk> Thu, 19 Jan 2023 13:56:49 -0000
+
r-cran-popepi (0.4.10+dfsg-1) unstable; urgency=medium
* Disable reprotest
diff --git a/inst/WORDLIST b/inst/WORDLIST
index 8307025..d579873 100644
--- a/inst/WORDLIST
+++ b/inst/WORDLIST
@@ -1,109 +1,109 @@
-YPLL
-FinnishCancerRegistry
-Xst
-var
-wald
-underfitting
-Timo
-survtab
-survmean
-Surv
-std
-Stackoverflow
-splitMulti
-splitLexisDT
-splitLexis
-specified
-SMRs
-SMR's
-SMR
-sibr
-specified
-Vol
-sirspline
-SIRs
-SIR
-SIR's
-RStudio
-RSRs
-RSR
-robustified
-Riccardo
-relpois
-pyrs
-popmort
-pophaz
-Pokhrel
-Poisson
-Pohar
-pkg
-Perme
-obs
-Nordcan
-NA's
-mstate
-mis
-Maja
-lex
-Janez
-io
-ICSS
-IARC
-hotfix
-haz
-Hakulinen
-Github
-github
-frac
-fot
-etc
-Estève
-epitools
-Epi
-EdererII
-Ederer
-Dyban
-Dyba
-DT
-doi
-DLs
-difftime
-dg
-DF
-cutLexis
-Correa
-Corazziari
-com
-coh
-codecov
-CIFs
-CIF
-censorings
-Capocaccia
-Breslow
-args
-AppVeyor
-Altman
-adj
-Esteve
-df
-dt
-dX
-ratetable
-seq
-Pohar
-Perme
-Dickman
-Ederer
-Esteve
-Hakulinen
-Heise
-Sloggett
-aggre
-arg
-dcast
-IDate
-obj
-sim
-Stat
-vars
+YPLL
+FinnishCancerRegistry
+Xst
+var
+wald
+underfitting
+Timo
+survtab
+survmean
+Surv
+std
+Stackoverflow
+splitMulti
+splitLexisDT
+splitLexis
+specified
+SMRs
+SMR's
+SMR
+sibr
+specified
+Vol
+sirspline
+SIRs
+SIR
+SIR's
+RStudio
+RSRs
+RSR
+robustified
+Riccardo
+relpois
+pyrs
+popmort
+pophaz
+Pokhrel
+Poisson
+Pohar
+pkg
+Perme
+obs
+Nordcan
+NA's
+mstate
+mis
+Maja
+lex
+Janez
+io
+ICSS
+IARC
+hotfix
+haz
+Hakulinen
+Github
+github
+frac
+fot
+etc
+Estève
+epitools
+Epi
+EdererII
+Ederer
+Dyban
+Dyba
+DT
+doi
+DLs
+difftime
+dg
+DF
+cutLexis
+Correa
+Corazziari
+com
+coh
+codecov
+CIFs
+CIF
+censorings
+Capocaccia
+Breslow
+args
+AppVeyor
+Altman
+adj
+Esteve
+df
+dt
+dX
+ratetable
+seq
+Pohar
+Perme
+Dickman
+Ederer
+Esteve
+Hakulinen
+Heise
+Sloggett
+aggre
+arg
+dcast
+IDate
+obj
+sim
+Stat
+vars
diff --git a/inst/doc/sir.R b/inst/doc/sir.R
index df4b8cb..67f4460 100644
--- a/inst/doc/sir.R
+++ b/inst/doc/sir.R
@@ -1,63 +1,63 @@
-## ---- echo=TRUE, warning=FALSE, message=FALSE---------------------------------
-library(popEpi)
-library(Epi)
-
-## -----------------------------------------------------------------------------
-data(sire)
-data(popmort)
-c <- lexpand( sire, status = status, birth = bi_date, exit = ex_date, entry = dg_date,
- breaks = list(per = 1950:2013, age = 1:100, fot = c(0,10,20,Inf)),
- aggre = list(fot, agegroup = age, year = per, sex) )
-
-se <- sir( coh.data = c, coh.obs = 'from0to2', coh.pyrs = 'pyrs',
- ref.data = popmort, ref.rate = 'haz',
- adjust = c('agegroup','year','sex'), print ='fot')
-se
-
-## -----------------------------------------------------------------------------
-c <- lexpand( sire, status = status %in% 1:2, birth = bi_date, exit = ex_date, entry = dg_date,
- breaks = list(per = 1950:2013, age = 1:100, fot = c(0,10,20,Inf)),
- aggre = list(fot, agegroup = age, year = per, sex) )
-
-se <- sir( coh.data = c, coh.obs = 'from0to1', coh.pyrs = 'pyrs',
- ref.data = popmort, ref.rate = 'haz',
- adjust = c('agegroup','year','sex'), print ='fot')
-se
-
-## ---- fig.height=3, fig.width=6-----------------------------------------------
-plot(se, col = 2:3)
-title('SMR for follow-up categories')
-
-## ---- fig.height=5, fig.width=6-----------------------------------------------
-c <- lexpand( sire, status = status %in% 1:2, birth = bi_date, exit = ex_date, entry = dg_date,
- breaks = list(per = 1950:2013, age = 1:100, fot = 0:50),
- aggre = list(fot, agegroup = age, year = per, sex) )
-
-sf <- sirspline( coh.data = c, coh.obs = 'from0to1', coh.pyrs = 'pyrs',
- ref.data = popmort, ref.rate = 'haz',
- adjust = c('agegroup','year','sex'),
- spline = c('agegroup','fot'), dependent.splines=FALSE)
-
-st <- sirspline( coh.data = c, coh.obs = 'from0to1', coh.pyrs = 'pyrs',
- ref.data = popmort, ref.rate = 'haz',
- adjust = c('agegroup','year','sex'),
- spline = c('agegroup','fot'), dependent.splines = TRUE)
-
-plot(sf, col=2, log=TRUE)
-title('Splines fitted in different models')
-
-plot(st, col=4, log=TRUE)
-title('Splines are dependent')
-
-## ---- results='hide', fig.height=5, fig.width=6-------------------------------
-c$year.cat <- ifelse(c$year < 2002, 1, 2)
-sy <- sirspline( coh.data = c, coh.obs = 'from0to1', coh.pyrs = 'pyrs',
- ref.data = popmort, ref.rate = 'haz',
- adjust = c('agegroup','year','sex'),
- spline = c('agegroup'), print = 'year.cat')
-plot(sy, log=TRUE)
-legend('topright', c('before 2002','after 2002'), lty=1, col=c(1,2))
-
-## -----------------------------------------------------------------------------
-print(sy)
-
+## ---- echo=TRUE, warning=FALSE, message=FALSE---------------------------------
+library(popEpi)
+library(Epi)
+
+## -----------------------------------------------------------------------------
+data(sire)
+data(popmort)
+c <- lexpand( sire, status = status, birth = bi_date, exit = ex_date, entry = dg_date,
+ breaks = list(per = 1950:2013, age = 1:100, fot = c(0,10,20,Inf)),
+ aggre = list(fot, agegroup = age, year = per, sex) )
+
+se <- sir( coh.data = c, coh.obs = 'from0to2', coh.pyrs = 'pyrs',
+ ref.data = popmort, ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'), print ='fot')
+se
+
+## -----------------------------------------------------------------------------
+c <- lexpand( sire, status = status %in% 1:2, birth = bi_date, exit = ex_date, entry = dg_date,
+ breaks = list(per = 1950:2013, age = 1:100, fot = c(0,10,20,Inf)),
+ aggre = list(fot, agegroup = age, year = per, sex) )
+
+se <- sir( coh.data = c, coh.obs = 'from0to1', coh.pyrs = 'pyrs',
+ ref.data = popmort, ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'), print ='fot')
+se
+
+## ---- fig.height=3, fig.width=6-----------------------------------------------
+plot(se, col = 2:3)
+title('SMR for follow-up categories')
+
+## ---- fig.height=5, fig.width=6-----------------------------------------------
+c <- lexpand( sire, status = status %in% 1:2, birth = bi_date, exit = ex_date, entry = dg_date,
+ breaks = list(per = 1950:2013, age = 1:100, fot = 0:50),
+ aggre = list(fot, agegroup = age, year = per, sex) )
+
+sf <- sirspline( coh.data = c, coh.obs = 'from0to1', coh.pyrs = 'pyrs',
+ ref.data = popmort, ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'),
+ spline = c('agegroup','fot'), dependent.splines=FALSE)
+
+st <- sirspline( coh.data = c, coh.obs = 'from0to1', coh.pyrs = 'pyrs',
+ ref.data = popmort, ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'),
+ spline = c('agegroup','fot'), dependent.splines = TRUE)
+
+plot(sf, col=2, log=TRUE)
+title('Splines fitted in different models')
+
+plot(st, col=4, log=TRUE)
+title('Splines are dependent')
+
+## ---- results='hide', fig.height=5, fig.width=6-------------------------------
+c$year.cat <- ifelse(c$year < 2002, 1, 2)
+sy <- sirspline( coh.data = c, coh.obs = 'from0to1', coh.pyrs = 'pyrs',
+ ref.data = popmort, ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'),
+ spline = c('agegroup'), print = 'year.cat')
+plot(sy, log=TRUE)
+legend('topright', c('before 2002','after 2002'), lty=1, col=c(1,2))
+
+## -----------------------------------------------------------------------------
+print(sy)
+
diff --git a/inst/doc/sir.Rmd b/inst/doc/sir.Rmd
index f125f05..97887c4 100644
--- a/inst/doc/sir.Rmd
+++ b/inst/doc/sir.Rmd
@@ -1,158 +1,158 @@
----
-title: "SMR Vignette"
-author: "Matti Rantanen"
-date: "`r Sys.Date()`"
-output:
- html_document:
- fig_caption: yes
- toc: true
- toc_depth: 2
-vignette: >
- %\VignetteEngine{knitr::rmarkdown}
- %\VignetteIndexEntry{Standardised incidence and mortality ratios}
- %\usepackage[utf8]{inputenc}
----
-
-```{r, echo=TRUE, warning=FALSE, message=FALSE}
-library(popEpi)
-library(Epi)
-```
-
-# Introduction
-
-Standardized incidence ratio (SIR) or mortality ratio (SMR) is a ratio of observed and expected cases. Observed cases is the absolute number of cases in the cohort. The expected cases are derived by multiplying the cohort person-years with reference populations rate. The rate should be stratified or adjusted by confounding factors. Usually these are age group, gender, calendar period and possibly a cancer type or other confounding variable. Also a social economic status or area variable can be used.
-
-In reference population the expected rate in strata $j$ is $\lambda_j = d_j$ / $n_j$, where $d_j$ is observed cases and $n_j$ is observed person years. Now the SIR can be written as a ratio
-$$
-SIR = \frac{ \sum d_j }{\sum n_j \lambda_j} = \frac{D}{E}
-$$
-where $D$ is the observed cases in cohort population and $E$ is the expected number. Univariate confidence intervals are based on exact values of Poisson distribution and the formula for p-value is
-$$
-\chi^2 = \frac{ (|O - E| -0.5)^2 }{E}.
-$$
-Modelled SIR is a Poisson regression model with log-link and cohorts person-years as a offset.
-
-The homogeneity of SIR's can be tested using a likelihood ratio test in Poisson modelled SIRs.
-
-The same workflow applies for standardised mortality ratios.
-
-# Splines
-
-A continuous spline function can be fitted for time variables, e.g. age-group. Idea of the splines is to smooth the SMR estimates and do inference from the curve figure. This requires pre-defined knots/nodes that are used to fit the spline curve. Selecting the number of knots and knot places is a very subjective matter and there are three options to pass spline knots to function.
-
-It's good practice to try between different knot settings for realistic spline estimates. Overfitting might cause unintentional artefacts in the estimate and underfitting might smooth away interesting patterns.
-
-The spline variable should be as continuous as possible, say from 18 to 100 time points. But when splitting time in too narrow intervals, random variation might occur in the expected or population rate values. Therefore it's also possible to do two variables for age or period: first with wider intervals for standardisation and second with narrow intervals for the spline.
-
-## Knots
-
-There are three options to for assigning knots to the spline:
-
-1. A vector of numbers of knots for each spline variable. Number of knots includes the boundary knots, so that the minimum number of knots is 2, which is a log linear association. The knots are placed automatically using the quantiles of observed cases.
-
-2. A list of vectors of predefined knot places. Number of vectors needs to match the length of spline variables. And each vector has to have at least the minimum and maximum for boundary knots.
-
-3. NULL will automatically finds the optimal number of knots based on AIC. Knots are placed according the quantiles of observed cases. This is usually a good place to start the fitting process.
-
-Number of knots and knot places are always found in output.
-
-# SMR
-
-## Mortality: External cohort and popmort data
-
-Estimate SMR of a simulated cohort of Finnish female rectal cancer patients, `sire`.
-Death rates for each age, period and sex is available in `popmort` dataset.
-
-For more information about the dataset see `help(popmort)` and `help(sire)`.
-
-```{r}
-data(sire)
-data(popmort)
-c <- lexpand( sire, status = status, birth = bi_date, exit = ex_date, entry = dg_date,
- breaks = list(per = 1950:2013, age = 1:100, fot = c(0,10,20,Inf)),
- aggre = list(fot, agegroup = age, year = per, sex) )
-
-se <- sir( coh.data = c, coh.obs = 'from0to2', coh.pyrs = 'pyrs',
- ref.data = popmort, ref.rate = 'haz',
- adjust = c('agegroup','year','sex'), print ='fot')
-se
-```
-
-SMR's for other causes is 1 for both follow-up intervals. Also the p-value suggest that there is no heterogeneity between SMR estimates (p=0.735).
-
-
-The total mortality can be estimated by modifying the `status` argument. Now we want to account all deaths, i.e. status is 1 or 2.
-
-```{r}
-c <- lexpand( sire, status = status %in% 1:2, birth = bi_date, exit = ex_date, entry = dg_date,
- breaks = list(per = 1950:2013, age = 1:100, fot = c(0,10,20,Inf)),
- aggre = list(fot, agegroup = age, year = per, sex) )
-
-se <- sir( coh.data = c, coh.obs = 'from0to1', coh.pyrs = 'pyrs',
- ref.data = popmort, ref.rate = 'haz',
- adjust = c('agegroup','year','sex'), print ='fot')
-se
-```
-
-Now the estimates for follow-up intervals seems to differ significantly, p = 0. Plotting SMR (S3-method for `sir`-object) is easily done using default plot-function.
-
-```{r, fig.height=3, fig.width=6}
-plot(se, col = 2:3)
-title('SMR for follow-up categories')
-```
-
-
-## splines
-
-
-Lets fit splines for the follow-up time and age group using two different options: the splines are fitted in different model and in same model, `dependent.splines`.
-
-```{r, fig.height=5, fig.width=6}
-c <- lexpand( sire, status = status %in% 1:2, birth = bi_date, exit = ex_date, entry = dg_date,
- breaks = list(per = 1950:2013, age = 1:100, fot = 0:50),
- aggre = list(fot, agegroup = age, year = per, sex) )
-
-sf <- sirspline( coh.data = c, coh.obs = 'from0to1', coh.pyrs = 'pyrs',
- ref.data = popmort, ref.rate = 'haz',
- adjust = c('agegroup','year','sex'),
- spline = c('agegroup','fot'), dependent.splines=FALSE)
-
-st <- sirspline( coh.data = c, coh.obs = 'from0to1', coh.pyrs = 'pyrs',
- ref.data = popmort, ref.rate = 'haz',
- adjust = c('agegroup','year','sex'),
- spline = c('agegroup','fot'), dependent.splines = TRUE)
-
-plot(sf, col=2, log=TRUE)
-title('Splines fitted in different models')
-
-plot(st, col=4, log=TRUE)
-title('Splines are dependent')
-```
-
-In dependent spline the `fot` is the ratio with zero time as reference point. Reference points can be altered. Here age group profile is assumed to be same for every follow-up time. SMR is 0.2 times from 0 to 10 years of follow-up.
-
-
-Splines can also be stratified using the `print` argument. For example we split the death time in two time periods and test if the age group splines are equal.
-
-```{r, results='hide', fig.height=5, fig.width=6}
-c$year.cat <- ifelse(c$year < 2002, 1, 2)
-sy <- sirspline( coh.data = c, coh.obs = 'from0to1', coh.pyrs = 'pyrs',
- ref.data = popmort, ref.rate = 'haz',
- adjust = c('agegroup','year','sex'),
- spline = c('agegroup'), print = 'year.cat')
-plot(sy, log=TRUE)
-legend('topright', c('before 2002','after 2002'), lty=1, col=c(1,2))
-```
-
-For category before 2002 the SMR seems to be higher after the age of 50. Also the p-value (<0.0001) indicates that there is a difference in age group trends before and after year 2002. P-value is a likelihood ratio test that compares models where splines are fitted together and separately.
-
-```{r}
-print(sy)
-```
-
-
-
-
-
-
-
+---
+title: "SMR Vignette"
+author: "Matti Rantanen"
+date: "`r Sys.Date()`"
+output:
+ html_document:
+ fig_caption: yes
+ toc: true
+ toc_depth: 2
+vignette: >
+ %\VignetteEngine{knitr::rmarkdown}
+ %\VignetteIndexEntry{Standardised incidence and mortality ratios}
+ %\usepackage[utf8]{inputenc}
+---
+
+```{r, echo=TRUE, warning=FALSE, message=FALSE}
+library(popEpi)
+library(Epi)
+```
+
+# Introduction
+
+Standardized incidence ratio (SIR) or mortality ratio (SMR) is a ratio of observed and expected cases. Observed cases is the absolute number of cases in the cohort. The expected cases are derived by multiplying the cohort person-years with reference populations rate. The rate should be stratified or adjusted by confounding factors. Usually these are age group, gender, calendar period and possibly a cancer type or other confounding variable. Also a social economic status or area variable can be used.
+
+In reference population the expected rate in strata $j$ is $\lambda_j = d_j$ / $n_j$, where $d_j$ is observed cases and $n_j$ is observed person years. Now the SIR can be written as a ratio
+$$
+SIR = \frac{ \sum d_j }{\sum n_j \lambda_j} = \frac{D}{E}
+$$
+where $D$ is the observed cases in cohort population and $E$ is the expected number. Univariate confidence intervals are based on exact values of Poisson distribution and the formula for p-value is
+$$
+\chi^2 = \frac{ (|O - E| -0.5)^2 }{E}.
+$$
+Modelled SIR is a Poisson regression model with log-link and cohorts person-years as a offset.
+
+The homogeneity of SIR's can be tested using a likelihood ratio test in Poisson modelled SIRs.
+
+The same workflow applies for standardised mortality ratios.
+
+# Splines
+
+A continuous spline function can be fitted for time variables, e.g. age-group. Idea of the splines is to smooth the SMR estimates and do inference from the curve figure. This requires pre-defined knots/nodes that are used to fit the spline curve. Selecting the number of knots and knot places is a very subjective matter and there are three options to pass spline knots to function.
+
+It's good practice to try between different knot settings for realistic spline estimates. Overfitting might cause unintentional artefacts in the estimate and underfitting might smooth away interesting patterns.
+
+The spline variable should be as continuous as possible, say from 18 to 100 time points. But when splitting time in too narrow intervals, random variation might occur in the expected or population rate values. Therefore it's also possible to do two variables for age or period: first with wider intervals for standardisation and second with narrow intervals for the spline.
+
+## Knots
+
+There are three options to for assigning knots to the spline:
+
+1. A vector of numbers of knots for each spline variable. Number of knots includes the boundary knots, so that the minimum number of knots is 2, which is a log linear association. The knots are placed automatically using the quantiles of observed cases.
+
+2. A list of vectors of predefined knot places. Number of vectors needs to match the length of spline variables. And each vector has to have at least the minimum and maximum for boundary knots.
+
+3. NULL will automatically finds the optimal number of knots based on AIC. Knots are placed according the quantiles of observed cases. This is usually a good place to start the fitting process.
+
+Number of knots and knot places are always found in output.
+
+# SMR
+
+## Mortality: External cohort and popmort data
+
+Estimate SMR of a simulated cohort of Finnish female rectal cancer patients, `sire`.
+Death rates for each age, period and sex is available in `popmort` dataset.
+
+For more information about the dataset see `help(popmort)` and `help(sire)`.
+
+```{r}
+data(sire)
+data(popmort)
+c <- lexpand( sire, status = status, birth = bi_date, exit = ex_date, entry = dg_date,
+ breaks = list(per = 1950:2013, age = 1:100, fot = c(0,10,20,Inf)),
+ aggre = list(fot, agegroup = age, year = per, sex) )
+
+se <- sir( coh.data = c, coh.obs = 'from0to2', coh.pyrs = 'pyrs',
+ ref.data = popmort, ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'), print ='fot')
+se
+```
+
+SMR's for other causes is 1 for both follow-up intervals. Also the p-value suggest that there is no heterogeneity between SMR estimates (p=0.735).
+
+
+The total mortality can be estimated by modifying the `status` argument. Now we want to account all deaths, i.e. status is 1 or 2.
+
+```{r}
+c <- lexpand( sire, status = status %in% 1:2, birth = bi_date, exit = ex_date, entry = dg_date,
+ breaks = list(per = 1950:2013, age = 1:100, fot = c(0,10,20,Inf)),
+ aggre = list(fot, agegroup = age, year = per, sex) )
+
+se <- sir( coh.data = c, coh.obs = 'from0to1', coh.pyrs = 'pyrs',
+ ref.data = popmort, ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'), print ='fot')
+se
+```
+
+Now the estimates for follow-up intervals seems to differ significantly, p = 0. Plotting SMR (S3-method for `sir`-object) is easily done using default plot-function.
+
+```{r, fig.height=3, fig.width=6}
+plot(se, col = 2:3)
+title('SMR for follow-up categories')
+```
+
+
+## splines
+
+
+Lets fit splines for the follow-up time and age group using two different options: the splines are fitted in different model and in same model, `dependent.splines`.
+
+```{r, fig.height=5, fig.width=6}
+c <- lexpand( sire, status = status %in% 1:2, birth = bi_date, exit = ex_date, entry = dg_date,
+ breaks = list(per = 1950:2013, age = 1:100, fot = 0:50),
+ aggre = list(fot, agegroup = age, year = per, sex) )
+
+sf <- sirspline( coh.data = c, coh.obs = 'from0to1', coh.pyrs = 'pyrs',
+ ref.data = popmort, ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'),
+ spline = c('agegroup','fot'), dependent.splines=FALSE)
+
+st <- sirspline( coh.data = c, coh.obs = 'from0to1', coh.pyrs = 'pyrs',
+ ref.data = popmort, ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'),
+ spline = c('agegroup','fot'), dependent.splines = TRUE)
+
+plot(sf, col=2, log=TRUE)
+title('Splines fitted in different models')
+
+plot(st, col=4, log=TRUE)
+title('Splines are dependent')
+```
+
+In dependent spline the `fot` is the ratio with zero time as reference point. Reference points can be altered. Here age group profile is assumed to be same for every follow-up time. SMR is 0.2 times from 0 to 10 years of follow-up.
+
+
+Splines can also be stratified using the `print` argument. For example we split the death time in two time periods and test if the age group splines are equal.
+
+```{r, results='hide', fig.height=5, fig.width=6}
+c$year.cat <- ifelse(c$year < 2002, 1, 2)
+sy <- sirspline( coh.data = c, coh.obs = 'from0to1', coh.pyrs = 'pyrs',
+ ref.data = popmort, ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'),
+ spline = c('agegroup'), print = 'year.cat')
+plot(sy, log=TRUE)
+legend('topright', c('before 2002','after 2002'), lty=1, col=c(1,2))
+```
+
+For category before 2002 the SMR seems to be higher after the age of 50. Also the p-value (<0.0001) indicates that there is a difference in age group trends before and after year 2002. P-value is a likelihood ratio test that compares models where splines are fitted together and separately.
+
+```{r}
+print(sy)
+```
+
+
+
+
+
+
+
diff --git a/inst/doc/sir.html b/inst/doc/sir.html
new file mode 100644
index 0000000..c121cfc
--- /dev/null
+++ b/inst/doc/sir.html
@@ -0,0 +1,649 @@
+<!DOCTYPE html>
+
+<html>
+
+<head>
+
+<meta charset="utf-8" />
+<meta name="generator" content="pandoc" />
+<meta http-equiv="X-UA-Compatible" content="IE=EDGE" />
+
+
+<meta name="author" content="Matti Rantanen" />
+
+<meta name="date" content="2023-01-19" />
+
+<title>SMR Vignette</title>
+
+<script>// Pandoc 2.9 adds attributes on both header and div. We remove the former (to
+// be compatible with the behavior of Pandoc < 2.8).
+document.addEventListener('DOMContentLoaded', function(e) {
+ var hs = document.querySelectorAll("div.section[class*='level'] > :first-child");
+ var i, h, a;
+ for (i = 0; i < hs.length; i++) {
+ h = hs[i];
+ if (!/^h[1-6]$/i.test(h.tagName)) continue; // it should be a header h1-h6
+ a = h.attributes;
+ while (a.length > 0) h.removeAttribute(a[0].name);
+ }
+});
+</script>
+<script>/*! jQuery v3.6.1 | (c) OpenJS Foundation and other contributors | jquery.org/license */
+!function(e,t){"use strict";"object"==typeof module&&"object"==typeof module.exports?module.exports=e.document?t(e,!0):function(e){if(e.document)return t(e);throw new Error("jQuery requires a window with a document")}:t(e)}("undefined"!=typeof window?window:this,function(w,R){"use strict";function v(e){return"function"==typeof e&&"number"!=typeof e.nodeType&&"function"!=typeof e.item}function g(e){return null!=e&&e===e.window}var t=[],M=Object.getPrototypeOf,s=t.slice,I=t.flat?function(e){return t.flat.call(e)}:function(e){return t.concat.apply([],e)},W=t.push,F=t.indexOf,$={},B=$.toString,_=$.hasOwnProperty,z=_.toString,U=z.call(Object),y={},T=w.document,X={type:!0,src:!0,nonce:!0,noModule:!0};function V(e,t,n){var r,i,o=(n=n||T).createElement("script");if(o.text=e,t)for(r in X)(i=t[r]||t.getAttribute&&t.getAttribute(r))&&o.setAttribute(r,i);n.head.appendChild(o).parentNode.removeChild(o)}function h(e){return null==e?e+"":"object"==typeof e||"function"==typeof e?$[B.call(e)]||"object":typeof e}var e="3.6.1",C=function(e,t){return new C.fn.init(e,t)};function G(e){var t=!!e&&"length"in e&&e.length,n=h(e);return!v(e)&&!g(e)&&("array"===n||0===t||"number"==typeof t&&0<t&&t-1 in e)}C.fn=C.prototype={jquery:e,constructor:C,length:0,toArray:function(){return s.call(this)},get:function(e){return null==e?s.call(this):e<0?this[e+this.length]:this[e]},pushStack:function(e){e=C.merge(this.constructor(),e);return e.prevObject=this,e},each:function(e){return C.each(this,e)},map:function(n){return this.pushStack(C.map(this,function(e,t){return n.call(e,t,e)}))},slice:function(){return this.pushStack(s.apply(this,arguments))},first:function(){return this.eq(0)},last:function(){return this.eq(-1)},even:function(){return this.pushStack(C.grep(this,function(e,t){return(t+1)%2}))},odd:function(){return this.pushStack(C.grep(this,function(e,t){return t%2}))},eq:function(e){var t=this.length,e=+e+(e<0?t:0);return this.pushStack(0<=e&&e<t?[this[e]]:[])},end:function(){return this.prevObject||this.constructor()},push:W,sort:t.sort,splice:t.splice},C.extend=C.fn.extend=function(){var e,t,n,r,i,o=arguments[0]||{},a=1,s=arguments.length,u=!1;for("boolean"==typeof o&&(u=o,o=arguments[a]||{},a++),"object"==typeof o||v(o)||(o={}),a===s&&(o=this,a--);a<s;a++)if(null!=(e=arguments[a]))for(t in e)n=e[t],"__proto__"!==t&&o!==n&&(u&&n&&(C.isPlainObject(n)||(r=Array.isArray(n)))?(i=o[t],i=r&&!Array.isArray(i)?[]:r||C.isPlainObject(i)?i:{},r=!1,o[t]=C.extend(u,i,n)):void 0!==n&&(o[t]=n));return o},C.extend({expando:"jQuery"+(e+Math.random()).replace(/\D/g,""),isReady:!0,error:function(e){throw new Error(e)},noop:function(){},isPlainObject:function(e){return!(!e||"[object Object]"!==B.call(e))&&(!(e=M(e))||"function"==typeof(e=_.call(e,"constructor")&&e.constructor)&&z.call(e)===U)},isEmptyObject:function(e){for(var t in e)return!1;return!0},globalEval:function(e,t,n){V(e,{nonce:t&&t.nonce},n)},each:function(e,t){var n,r=0;if(G(e)){for(n=e.length;r<n;r++)if(!1===t.call(e[r],r,e[r]))break}else for(r in e)if(!1===t.call(e[r],r,e[r]))break;return e},makeArray:function(e,t){t=t||[];return null!=e&&(G(Object(e))?C.merge(t,"string"==typeof e?[e]:e):W.call(t,e)),t},inArray:function(e,t,n){return null==t?-1:F.call(t,e,n)},merge:function(e,t){for(var n=+t.length,r=0,i=e.length;r<n;r++)e[i++]=t[r];return e.length=i,e},grep:function(e,t,n){for(var r=[],i=0,o=e.length,a=!n;i<o;i++)!t(e[i],i)!=a&&r.push(e[i]);return r},map:function(e,t,n){var r,i,o=0,a=[];if(G(e))for(r=e.length;o<r;o++)null!=(i=t(e[o],o,n))&&a.push(i);else for(o in e)null!=(i=t(e[o],o,n))&&a.push(i);return I(a)},guid:1,support:y}),"function"==typeof Symbol&&(C.fn[Symbol.iterator]=t[Symbol.iterator]),C.each("Boolean Number String Function Array Date RegExp Object Error Symbol".split(" "),function(e,t){$["[object "+t+"]"]=t.toLowerCase()});function r(e,t,n){var r=[],i=void 0!==n;while((e=e[t])&&9!==e.nodeType)if(1===e.nodeType){if(i&&C(e).is(n))break;r.push(e)}return r}function Y(e,t){for(var n=[];e;e=e.nextSibling)1===e.nodeType&&e!==t&&n.push(e);return n}var e=function(R){function c(e,t){return e="0x"+e.slice(1)-65536,t||(e<0?String.fromCharCode(65536+e):String.fromCharCode(e>>10|55296,1023&e|56320))}function M(e,t){return t?"\0"===e?"\ufffd":e.slice(0,-1)+"\\"+e.charCodeAt(e.length-1).toString(16)+" ":"\\"+e}function I(){T()}var e,p,b,o,W,d,F,$,w,u,l,T,C,n,E,h,r,i,g,S="sizzle"+ +new Date,f=R.document,k=0,B=0,_=q(),z=q(),U=q(),y=q(),X=function(e,t){return e===t&&(l=!0),0},V={}.hasOwnProperty,t=[],G=t.pop,Y=t.push,A=t.push,Q=t.slice,v=function(e,t){for(var n=0,r=e.length;n<r;n++)if(e[n]===t)return n;return-1},J="checked|selected|async|autofocus|autoplay|controls|defer|disabled|hidden|ismap|loop|multiple|open|readonly|required|scoped",a="[\\x20\\t\\r\\n\\f]",s="(?:\\\\[\\da-fA-F]{1,6}"+a+"?|\\\\[^\\r\\n\\f]|[\\w-]|[^\0-\\x7f])+",K="\\["+a+"*("+s+")(?:"+a+"*([*^$|!~]?=)"+a+"*(?:'((?:\\\\.|[^\\\\'])*)'|\"((?:\\\\.|[^\\\\\"])*)\"|("+s+"))|)"+a+"*\\]",Z=":("+s+")(?:\\((('((?:\\\\.|[^\\\\'])*)'|\"((?:\\\\.|[^\\\\\"])*)\")|((?:\\\\.|[^\\\\()[\\]]|"+K+")*)|.*)\\)|)",ee=new RegExp(a+"+","g"),m=new RegExp("^"+a+"+|((?:^|[^\\\\])(?:\\\\.)*)"+a+"+$","g"),te=new RegExp("^"+a+"*,"+a+"*"),ne=new RegExp("^"+a+"*([>+~]|"+a+")"+a+"*"),re=new RegExp(a+"|>"),ie=new RegExp(Z),oe=new RegExp("^"+s+"$"),x={ID:new RegExp("^#("+s+")"),CLASS:new RegExp("^\\.("+s+")"),TAG:new RegExp("^("+s+"|[*])"),ATTR:new RegExp("^"+K),PSEUDO:new RegExp("^"+Z),CHILD:new RegExp("^:(only|first|last|nth|nth-last)-(child|of-type)(?:\\("+a+"*(even|odd|(([+-]|)(\\d*)n|)"+a+"*(?:([+-]|)"+a+"*(\\d+)|))"+a+"*\\)|)","i"),bool:new RegExp("^(?:"+J+")$","i"),needsContext:new RegExp("^"+a+"*[>+~]|:(even|odd|eq|gt|lt|nth|first|last)(?:\\("+a+"*((?:-\\d)?\\d*)"+a+"*\\)|)(?=[^-]|$)","i")},ae=/HTML$/i,se=/^(?:input|select|textarea|button)$/i,ue=/^h\d$/i,N=/^[^{]+\{\s*\[native \w/,le=/^(?:#([\w-]+)|(\w+)|\.([\w-]+))$/,ce=/[+~]/,j=new RegExp("\\\\[\\da-fA-F]{1,6}"+a+"?|\\\\([^\\r\\n\\f])","g"),fe=/([\0-\x1f\x7f]|^-?\d)|^-$|[^\0-\x1f\x7f-\uFFFF\w-]/g,pe=ve(function(e){return!0===e.disabled&&"fieldset"===e.nodeName.toLowerCase()},{dir:"parentNode",next:"legend"});try{A.apply(t=Q.call(f.childNodes),f.childNodes),t[f.childNodes.length].nodeType}catch(e){A={apply:t.length?function(e,t){Y.apply(e,Q.call(t))}:function(e,t){var n=e.length,r=0;while(e[n++]=t[r++]);e.length=n-1}}}function D(t,e,n,r){var i,o,a,s,u,l,c=e&&e.ownerDocument,f=e?e.nodeType:9;if(n=n||[],"string"!=typeof t||!t||1!==f&&9!==f&&11!==f)return n;if(!r&&(T(e),e=e||C,E)){if(11!==f&&(s=le.exec(t)))if(i=s[1]){if(9===f){if(!(l=e.getElementById(i)))return n;if(l.id===i)return n.push(l),n}else if(c&&(l=c.getElementById(i))&&g(e,l)&&l.id===i)return n.push(l),n}else{if(s[2])return A.apply(n,e.getElementsByTagName(t)),n;if((i=s[3])&&p.getElementsByClassName&&e.getElementsByClassName)return A.apply(n,e.getElementsByClassName(i)),n}if(p.qsa&&!y[t+" "]&&(!h||!h.test(t))&&(1!==f||"object"!==e.nodeName.toLowerCase())){if(l=t,c=e,1===f&&(re.test(t)||ne.test(t))){(c=ce.test(t)&&ye(e.parentNode)||e)===e&&p.scope||((a=e.getAttribute("id"))?a=a.replace(fe,M):e.setAttribute("id",a=S)),o=(u=d(t)).length;while(o--)u[o]=(a?"#"+a:":scope")+" "+P(u[o]);l=u.join(",")}try{return A.apply(n,c.querySelectorAll(l)),n}catch(e){y(t,!0)}finally{a===S&&e.removeAttribute("id")}}}return $(t.replace(m,"$1"),e,n,r)}function q(){var n=[];function r(e,t){return n.push(e+" ")>b.cacheLength&&delete r[n.shift()],r[e+" "]=t}return r}function L(e){return e[S]=!0,e}function H(e){var t=C.createElement("fieldset");try{return!!e(t)}catch(e){return!1}finally{t.parentNode&&t.parentNode.removeChild(t)}}function de(e,t){var n=e.split("|"),r=n.length;while(r--)b.attrHandle[n[r]]=t}function he(e,t){var n=t&&e,r=n&&1===e.nodeType&&1===t.nodeType&&e.sourceIndex-t.sourceIndex;if(r)return r;if(n)while(n=n.nextSibling)if(n===t)return-1;return e?1:-1}function ge(t){return function(e){return"form"in e?e.parentNode&&!1===e.disabled?"label"in e?"label"in e.parentNode?e.parentNode.disabled===t:e.disabled===t:e.isDisabled===t||e.isDisabled!==!t&&pe(e)===t:e.disabled===t:"label"in e&&e.disabled===t}}function O(a){return L(function(o){return o=+o,L(function(e,t){var n,r=a([],e.length,o),i=r.length;while(i--)e[n=r[i]]&&(e[n]=!(t[n]=e[n]))})})}function ye(e){return e&&"undefined"!=typeof e.getElementsByTagName&&e}for(e in p=D.support={},W=D.isXML=function(e){var t=e&&e.namespaceURI,e=e&&(e.ownerDocument||e).documentElement;return!ae.test(t||e&&e.nodeName||"HTML")},T=D.setDocument=function(e){var e=e?e.ownerDocument||e:f;return e!=C&&9===e.nodeType&&e.documentElement&&(n=(C=e).documentElement,E=!W(C),f!=C&&(e=C.defaultView)&&e.top!==e&&(e.addEventListener?e.addEventListener("unload",I,!1):e.attachEvent&&e.attachEvent("onunload",I)),p.scope=H(function(e){return n.appendChild(e).appendChild(C.createElement("div")),"undefined"!=typeof e.querySelectorAll&&!e.querySelectorAll(":scope fieldset div").length}),p.attributes=H(function(e){return e.className="i",!e.getAttribute("className")}),p.getElementsByTagName=H(function(e){return e.appendChild(C.createComment("")),!e.getElementsByTagName("*").length}),p.getElementsByClassName=N.test(C.getElementsByClassName),p.getById=H(function(e){return n.appendChild(e).id=S,!C.getElementsByName||!C.getElementsByName(S).length}),p.getById?(b.filter.ID=function(e){var t=e.replace(j,c);return function(e){return e.getAttribute("id")===t}},b.find.ID=function(e,t){if("undefined"!=typeof t.getElementById&&E)return(t=t.getElementById(e))?[t]:[]}):(b.filter.ID=function(e){var t=e.replace(j,c);return function(e){e="undefined"!=typeof e.getAttributeNode&&e.getAttributeNode("id");return e&&e.value===t}},b.find.ID=function(e,t){if("undefined"!=typeof t.getElementById&&E){var n,r,i,o=t.getElementById(e);if(o){if((n=o.getAttributeNode("id"))&&n.value===e)return[o];i=t.getElementsByName(e),r=0;while(o=i[r++])if((n=o.getAttributeNode("id"))&&n.value===e)return[o]}return[]}}),b.find.TAG=p.getElementsByTagName?function(e,t){return"undefined"!=typeof t.getElementsByTagName?t.getElementsByTagName(e):p.qsa?t.querySelectorAll(e):void 0}:function(e,t){var n,r=[],i=0,o=t.getElementsByTagName(e);if("*"!==e)return o;while(n=o[i++])1===n.nodeType&&r.push(n);return r},b.find.CLASS=p.getElementsByClassName&&function(e,t){if("undefined"!=typeof t.getElementsByClassName&&E)return t.getElementsByClassName(e)},r=[],h=[],(p.qsa=N.test(C.querySelectorAll))&&(H(function(e){var t;n.appendChild(e).innerHTML="<a id='"+S+"'></a><select id='"+S+"-\r\\' msallowcapture=''><option selected=''></option></select>",e.querySelectorAll("[msallowcapture^='']").length&&h.push("[*^$]="+a+"*(?:''|\"\")"),e.querySelectorAll("[selected]").length||h.push("\\["+a+"*(?:value|"+J+")"),e.querySelectorAll("[id~="+S+"-]").length||h.push("~="),(t=C.createElement("input")).setAttribute("name",""),e.appendChild(t),e.querySelectorAll("[name='']").length||h.push("\\["+a+"*name"+a+"*="+a+"*(?:''|\"\")"),e.querySelectorAll(":checked").length||h.push(":checked"),e.querySelectorAll("a#"+S+"+*").length||h.push(".#.+[+~]"),e.querySelectorAll("\\\f"),h.push("[\\r\\n\\f]")}),H(function(e){e.innerHTML="<a href='' disabled='disabled'></a><select disabled='disabled'><option/></select>";var t=C.createElement("input");t.setAttribute("type","hidden"),e.appendChild(t).setAttribute("name","D"),e.querySelectorAll("[name=d]").length&&h.push("name"+a+"*[*^$|!~]?="),2!==e.querySelectorAll(":enabled").length&&h.push(":enabled",":disabled"),n.appendChild(e).disabled=!0,2!==e.querySelectorAll(":disabled").length&&h.push(":enabled",":disabled"),e.querySelectorAll("*,:x"),h.push(",.*:")})),(p.matchesSelector=N.test(i=n.matches||n.webkitMatchesSelector||n.mozMatchesSelector||n.oMatchesSelector||n.msMatchesSelector))&&H(function(e){p.disconnectedMatch=i.call(e,"*"),i.call(e,"[s!='']:x"),r.push("!=",Z)}),h=h.length&&new RegExp(h.join("|")),r=r.length&&new RegExp(r.join("|")),e=N.test(n.compareDocumentPosition),g=e||N.test(n.contains)?function(e,t){var n=9===e.nodeType?e.documentElement:e,t=t&&t.parentNode;return e===t||!(!t||1!==t.nodeType||!(n.contains?n.contains(t):e.compareDocumentPosition&&16&e.compareDocumentPosition(t)))}:function(e,t){if(t)while(t=t.parentNode)if(t===e)return!0;return!1},X=e?function(e,t){var n;return e===t?(l=!0,0):(n=!e.compareDocumentPosition-!t.compareDocumentPosition)||(1&(n=(e.ownerDocument||e)==(t.ownerDocument||t)?e.compareDocumentPosition(t):1)||!p.sortDetached&&t.compareDocumentPosition(e)===n?e==C||e.ownerDocument==f&&g(f,e)?-1:t==C||t.ownerDocument==f&&g(f,t)?1:u?v(u,e)-v(u,t):0:4&n?-1:1)}:function(e,t){if(e===t)return l=!0,0;var n,r=0,i=e.parentNode,o=t.parentNode,a=[e],s=[t];if(!i||!o)return e==C?-1:t==C?1:i?-1:o?1:u?v(u,e)-v(u,t):0;if(i===o)return he(e,t);n=e;while(n=n.parentNode)a.unshift(n);n=t;while(n=n.parentNode)s.unshift(n);while(a[r]===s[r])r++;return r?he(a[r],s[r]):a[r]==f?-1:s[r]==f?1:0}),C},D.matches=function(e,t){return D(e,null,null,t)},D.matchesSelector=function(e,t){if(T(e),p.matchesSelector&&E&&!y[t+" "]&&(!r||!r.test(t))&&(!h||!h.test(t)))try{var n=i.call(e,t);if(n||p.disconnectedMatch||e.document&&11!==e.document.nodeType)return n}catch(e){y(t,!0)}return 0<D(t,C,null,[e]).length},D.contains=function(e,t){return(e.ownerDocument||e)!=C&&T(e),g(e,t)},D.attr=function(e,t){(e.ownerDocument||e)!=C&&T(e);var n=b.attrHandle[t.toLowerCase()],n=n&&V.call(b.attrHandle,t.toLowerCase())?n(e,t,!E):void 0;return void 0!==n?n:p.attributes||!E?e.getAttribute(t):(n=e.getAttributeNode(t))&&n.specified?n.value:null},D.escape=function(e){return(e+"").replace(fe,M)},D.error=function(e){throw new Error("Syntax error, unrecognized expression: "+e)},D.uniqueSort=function(e){var t,n=[],r=0,i=0;if(l=!p.detectDuplicates,u=!p.sortStable&&e.slice(0),e.sort(X),l){while(t=e[i++])t===e[i]&&(r=n.push(i));while(r--)e.splice(n[r],1)}return u=null,e},o=D.getText=function(e){var t,n="",r=0,i=e.nodeType;if(i){if(1===i||9===i||11===i){if("string"==typeof e.textContent)return e.textContent;for(e=e.firstChild;e;e=e.nextSibling)n+=o(e)}else if(3===i||4===i)return e.nodeValue}else while(t=e[r++])n+=o(t);return n},(b=D.selectors={cacheLength:50,createPseudo:L,match:x,attrHandle:{},find:{},relative:{">":{dir:"parentNode",first:!0}," ":{dir:"parentNode"},"+":{dir:"previousSibling",first:!0},"~":{dir:"previousSibling"}},preFilter:{ATTR:function(e){return e[1]=e[1].replace(j,c),e[3]=(e[3]||e[4]||e[5]||"").replace(j,c),"~="===e[2]&&(e[3]=" "+e[3]+" "),e.slice(0,4)},CHILD:function(e){return e[1]=e[1].toLowerCase(),"nth"===e[1].slice(0,3)?(e[3]||D.error(e[0]),e[4]=+(e[4]?e[5]+(e[6]||1):2*("even"===e[3]||"odd"===e[3])),e[5]=+(e[7]+e[8]||"odd"===e[3])):e[3]&&D.error(e[0]),e},PSEUDO:function(e){var t,n=!e[6]&&e[2];return x.CHILD.test(e[0])?null:(e[3]?e[2]=e[4]||e[5]||"":n&&ie.test(n)&&(t=d(n,!0))&&(t=n.indexOf(")",n.length-t)-n.length)&&(e[0]=e[0].slice(0,t),e[2]=n.slice(0,t)),e.slice(0,3))}},filter:{TAG:function(e){var t=e.replace(j,c).toLowerCase();return"*"===e?function(){return!0}:function(e){return e.nodeName&&e.nodeName.toLowerCase()===t}},CLASS:function(e){var t=_[e+" "];return t||(t=new RegExp("(^|"+a+")"+e+"("+a+"|$)"))&&_(e,function(e){return t.test("string"==typeof e.className&&e.className||"undefined"!=typeof e.getAttribute&&e.getAttribute("class")||"")})},ATTR:function(t,n,r){return function(e){e=D.attr(e,t);return null==e?"!="===n:!n||(e+="","="===n?e===r:"!="===n?e!==r:"^="===n?r&&0===e.indexOf(r):"*="===n?r&&-1<e.indexOf(r):"$="===n?r&&e.slice(-r.length)===r:"~="===n?-1<(" "+e.replace(ee," ")+" ").indexOf(r):"|="===n&&(e===r||e.slice(0,r.length+1)===r+"-"))}},CHILD:function(h,e,t,g,y){var m="nth"!==h.slice(0,3),v="last"!==h.slice(-4),x="of-type"===e;return 1===g&&0===y?function(e){return!!e.parentNode}:function(e,t,n){var r,i,o,a,s,u,l=m!=v?"nextSibling":"previousSibling",c=e.parentNode,f=x&&e.nodeName.toLowerCase(),p=!n&&!x,d=!1;if(c){if(m){while(l){a=e;while(a=a[l])if(x?a.nodeName.toLowerCase()===f:1===a.nodeType)return!1;u=l="only"===h&&!u&&"nextSibling"}return!0}if(u=[v?c.firstChild:c.lastChild],v&&p){d=(s=(r=(i=(o=(a=c)[S]||(a[S]={}))[a.uniqueID]||(o[a.uniqueID]={}))[h]||[])[0]===k&&r[1])&&r[2],a=s&&c.childNodes[s];while(a=++s&&a&&a[l]||(d=s=0)||u.pop())if(1===a.nodeType&&++d&&a===e){i[h]=[k,s,d];break}}else if(!1===(d=p?s=(r=(i=(o=(a=e)[S]||(a[S]={}))[a.uniqueID]||(o[a.uniqueID]={}))[h]||[])[0]===k&&r[1]:d))while(a=++s&&a&&a[l]||(d=s=0)||u.pop())if((x?a.nodeName.toLowerCase()===f:1===a.nodeType)&&++d&&(p&&((i=(o=a[S]||(a[S]={}))[a.uniqueID]||(o[a.uniqueID]={}))[h]=[k,d]),a===e))break;return(d-=y)===g||d%g==0&&0<=d/g}}},PSEUDO:function(e,o){var t,a=b.pseudos[e]||b.setFilters[e.toLowerCase()]||D.error("unsupported pseudo: "+e);return a[S]?a(o):1<a.length?(t=[e,e,"",o],b.setFilters.hasOwnProperty(e.toLowerCase())?L(function(e,t){var n,r=a(e,o),i=r.length;while(i--)e[n=v(e,r[i])]=!(t[n]=r[i])}):function(e){return a(e,0,t)}):a}},pseudos:{not:L(function(e){var r=[],i=[],s=F(e.replace(m,"$1"));return s[S]?L(function(e,t,n,r){var i,o=s(e,null,r,[]),a=e.length;while(a--)(i=o[a])&&(e[a]=!(t[a]=i))}):function(e,t,n){return r[0]=e,s(r,null,n,i),r[0]=null,!i.pop()}}),has:L(function(t){return function(e){return 0<D(t,e).length}}),contains:L(function(t){return t=t.replace(j,c),function(e){return-1<(e.textContent||o(e)).indexOf(t)}}),lang:L(function(n){return oe.test(n||"")||D.error("unsupported lang: "+n),n=n.replace(j,c).toLowerCase(),function(e){var t;do{if(t=E?e.lang:e.getAttribute("xml:lang")||e.getAttribute("lang"))return(t=t.toLowerCase())===n||0===t.indexOf(n+"-")}while((e=e.parentNode)&&1===e.nodeType);return!1}}),target:function(e){var t=R.location&&R.location.hash;return t&&t.slice(1)===e.id},root:function(e){return e===n},focus:function(e){return e===C.activeElement&&(!C.hasFocus||C.hasFocus())&&!!(e.type||e.href||~e.tabIndex)},enabled:ge(!1),disabled:ge(!0),checked:function(e){var t=e.nodeName.toLowerCase();return"input"===t&&!!e.checked||"option"===t&&!!e.selected},selected:function(e){return e.parentNode&&e.parentNode.selectedIndex,!0===e.selected},empty:function(e){for(e=e.firstChild;e;e=e.nextSibling)if(e.nodeType<6)return!1;return!0},parent:function(e){return!b.pseudos.empty(e)},header:function(e){return ue.test(e.nodeName)},input:function(e){return se.test(e.nodeName)},button:function(e){var t=e.nodeName.toLowerCase();return"input"===t&&"button"===e.type||"button"===t},text:function(e){return"input"===e.nodeName.toLowerCase()&&"text"===e.type&&(null==(e=e.getAttribute("type"))||"text"===e.toLowerCase())},first:O(function(){return[0]}),last:O(function(e,t){return[t-1]}),eq:O(function(e,t,n){return[n<0?n+t:n]}),even:O(function(e,t){for(var n=0;n<t;n+=2)e.push(n);return e}),odd:O(function(e,t){for(var n=1;n<t;n+=2)e.push(n);return e}),lt:O(function(e,t,n){for(var r=n<0?n+t:t<n?t:n;0<=--r;)e.push(r);return e}),gt:O(function(e,t,n){for(var r=n<0?n+t:n;++r<t;)e.push(r);return e})}}).pseudos.nth=b.pseudos.eq,{radio:!0,checkbox:!0,file:!0,password:!0,image:!0})b.pseudos[e]=function(t){return function(e){return"input"===e.nodeName.toLowerCase()&&e.type===t}}(e);for(e in{submit:!0,reset:!0})b.pseudos[e]=function(n){return function(e){var t=e.nodeName.toLowerCase();return("input"===t||"button"===t)&&e.type===n}}(e);function me(){}function P(e){for(var t=0,n=e.length,r="";t<n;t++)r+=e[t].value;return r}function ve(a,e,t){var s=e.dir,u=e.next,l=u||s,c=t&&"parentNode"===l,f=B++;return e.first?function(e,t,n){while(e=e[s])if(1===e.nodeType||c)return a(e,t,n);return!1}:function(e,t,n){var r,i,o=[k,f];if(n){while(e=e[s])if((1===e.nodeType||c)&&a(e,t,n))return!0}else while(e=e[s])if(1===e.nodeType||c)if(i=(i=e[S]||(e[S]={}))[e.uniqueID]||(i[e.uniqueID]={}),u&&u===e.nodeName.toLowerCase())e=e[s]||e;else{if((r=i[l])&&r[0]===k&&r[1]===f)return o[2]=r[2];if((i[l]=o)[2]=a(e,t,n))return!0}return!1}}function xe(i){return 1<i.length?function(e,t,n){var r=i.length;while(r--)if(!i[r](e,t,n))return!1;return!0}:i[0]}function be(e,t,n,r,i){for(var o,a=[],s=0,u=e.length,l=null!=t;s<u;s++)!(o=e[s])||n&&!n(o,r,i)||(a.push(o),l&&t.push(s));return a}function we(d,h,g,y,m,e){return y&&!y[S]&&(y=we(y)),m&&!m[S]&&(m=we(m,e)),L(function(e,t,n,r){var i,o,a,s=[],u=[],l=t.length,c=e||function(e,t,n){for(var r=0,i=t.length;r<i;r++)D(e,t[r],n);return n}(h||"*",n.nodeType?[n]:n,[]),f=!d||!e&&h?c:be(c,s,d,n,r),p=g?m||(e?d:l||y)?[]:t:f;if(g&&g(f,p,n,r),y){i=be(p,u),y(i,[],n,r),o=i.length;while(o--)(a=i[o])&&(p[u[o]]=!(f[u[o]]=a))}if(e){if(m||d){if(m){i=[],o=p.length;while(o--)(a=p[o])&&i.push(f[o]=a);m(null,p=[],i,r)}o=p.length;while(o--)(a=p[o])&&-1<(i=m?v(e,a):s[o])&&(e[i]=!(t[i]=a))}}else p=be(p===t?p.splice(l,p.length):p),m?m(null,t,p,r):A.apply(t,p)})}function Te(y,m){function e(e,t,n,r,i){var o,a,s,u=0,l="0",c=e&&[],f=[],p=w,d=e||x&&b.find.TAG("*",i),h=k+=null==p?1:Math.random()||.1,g=d.length;for(i&&(w=t==C||t||i);l!==g&&null!=(o=d[l]);l++){if(x&&o){a=0,t||o.ownerDocument==C||(T(o),n=!E);while(s=y[a++])if(s(o,t||C,n)){r.push(o);break}i&&(k=h)}v&&((o=!s&&o)&&u--,e&&c.push(o))}if(u+=l,v&&l!==u){a=0;while(s=m[a++])s(c,f,t,n);if(e){if(0<u)while(l--)c[l]||f[l]||(f[l]=G.call(r));f=be(f)}A.apply(r,f),i&&!e&&0<f.length&&1<u+m.length&&D.uniqueSort(r)}return i&&(k=h,w=p),c}var v=0<m.length,x=0<y.length;return v?L(e):e}return me.prototype=b.filters=b.pseudos,b.setFilters=new me,d=D.tokenize=function(e,t){var n,r,i,o,a,s,u,l=z[e+" "];if(l)return t?0:l.slice(0);a=e,s=[],u=b.preFilter;while(a){for(o in n&&!(r=te.exec(a))||(r&&(a=a.slice(r[0].length)||a),s.push(i=[])),n=!1,(r=ne.exec(a))&&(n=r.shift(),i.push({value:n,type:r[0].replace(m," ")}),a=a.slice(n.length)),b.filter)!(r=x[o].exec(a))||u[o]&&!(r=u[o](r))||(n=r.shift(),i.push({value:n,type:o,matches:r}),a=a.slice(n.length));if(!n)break}return t?a.length:a?D.error(e):z(e,s).slice(0)},F=D.compile=function(e,t){var n,r=[],i=[],o=U[e+" "];if(!o){n=(t=t||d(e)).length;while(n--)((o=function e(t){for(var r,n,i,o=t.length,a=b.relative[t[0].type],s=a||b.relative[" "],u=a?1:0,l=ve(function(e){return e===r},s,!0),c=ve(function(e){return-1<v(r,e)},s,!0),f=[function(e,t,n){return e=!a&&(n||t!==w)||((r=t).nodeType?l:c)(e,t,n),r=null,e}];u<o;u++)if(n=b.relative[t[u].type])f=[ve(xe(f),n)];else{if((n=b.filter[t[u].type].apply(null,t[u].matches))[S]){for(i=++u;i<o;i++)if(b.relative[t[i].type])break;return we(1<u&&xe(f),1<u&&P(t.slice(0,u-1).concat({value:" "===t[u-2].type?"*":""})).replace(m,"$1"),n,u<i&&e(t.slice(u,i)),i<o&&e(t=t.slice(i)),i<o&&P(t))}f.push(n)}return xe(f)}(t[n]))[S]?r:i).push(o);(o=U(e,Te(i,r))).selector=e}return o},$=D.select=function(e,t,n,r){var i,o,a,s,u="function"==typeof e&&e,l=!r&&d(e=u.selector||e);if(n=n||[],1===l.length){if(2<(o=l[0]=l[0].slice(0)).length&&"ID"===(a=o[0]).type&&9===t.nodeType&&E&&b.relative[o[1].type]){if(!(t=(b.find.ID(a.matches[0].replace(j,c),t)||[])[0]))return n;u&&(t=t.parentNode),e=e.slice(o.shift().value.length)}i=x.needsContext.test(e)?0:o.length;while(i--){if(a=o[i],b.relative[s=a.type])break;if((s=b.find[s])&&(r=s(a.matches[0].replace(j,c),ce.test(o[0].type)&&ye(t.parentNode)||t))){if(o.splice(i,1),e=r.length&&P(o))break;return A.apply(n,r),n}}}return(u||F(e,l))(r,t,!E,n,!t||ce.test(e)&&ye(t.parentNode)||t),n},p.sortStable=S.split("").sort(X).join("")===S,p.detectDuplicates=!!l,T(),p.sortDetached=H(function(e){return 1&e.compareDocumentPosition(C.createElement("fieldset"))}),H(function(e){return e.innerHTML="<a href='#'></a>","#"===e.firstChild.getAttribute("href")})||de("type|href|height|width",function(e,t,n){if(!n)return e.getAttribute(t,"type"===t.toLowerCase()?1:2)}),p.attributes&&H(function(e){return e.innerHTML="<input/>",e.firstChild.setAttribute("value",""),""===e.firstChild.getAttribute("value")})||de("value",function(e,t,n){if(!n&&"input"===e.nodeName.toLowerCase())return e.defaultValue}),H(function(e){return null==e.getAttribute("disabled")})||de(J,function(e,t,n){if(!n)return!0===e[t]?t.toLowerCase():(n=e.getAttributeNode(t))&&n.specified?n.value:null}),D}(w),Q=(C.find=e,C.expr=e.selectors,C.expr[":"]=C.expr.pseudos,C.uniqueSort=C.unique=e.uniqueSort,C.text=e.getText,C.isXMLDoc=e.isXML,C.contains=e.contains,C.escapeSelector=e.escape,C.expr.match.needsContext);function u(e,t){return e.nodeName&&e.nodeName.toLowerCase()===t.toLowerCase()}var J=/^<([a-z][^\/\0>:\x20\t\r\n\f]*)[\x20\t\r\n\f]*\/?>(?:<\/\1>|)$/i;function K(e,n,r){return v(n)?C.grep(e,function(e,t){return!!n.call(e,t,e)!==r}):n.nodeType?C.grep(e,function(e){return e===n!==r}):"string"!=typeof n?C.grep(e,function(e){return-1<F.call(n,e)!==r}):C.filter(n,e,r)}C.filter=function(e,t,n){var r=t[0];return n&&(e=":not("+e+")"),1===t.length&&1===r.nodeType?C.find.matchesSelector(r,e)?[r]:[]:C.find.matches(e,C.grep(t,function(e){return 1===e.nodeType}))},C.fn.extend({find:function(e){var t,n,r=this.length,i=this;if("string"!=typeof e)return this.pushStack(C(e).filter(function(){for(t=0;t<r;t++)if(C.contains(i[t],this))return!0}));for(n=this.pushStack([]),t=0;t<r;t++)C.find(e,i[t],n);return 1<r?C.uniqueSort(n):n},filter:function(e){return this.pushStack(K(this,e||[],!1))},not:function(e){return this.pushStack(K(this,e||[],!0))},is:function(e){return!!K(this,"string"==typeof e&&Q.test(e)?C(e):e||[],!1).length}});var Z,ee=/^(?:\s*(<[\w\W]+>)[^>]*|#([\w-]+))$/,te=((C.fn.init=function(e,t,n){if(e){if(n=n||Z,"string"!=typeof e)return e.nodeType?(this[0]=e,this.length=1,this):v(e)?void 0!==n.ready?n.ready(e):e(C):C.makeArray(e,this);if(!(r="<"===e[0]&&">"===e[e.length-1]&&3<=e.length?[null,e,null]:ee.exec(e))||!r[1]&&t)return(!t||t.jquery?t||n:this.constructor(t)).find(e);if(r[1]){if(t=t instanceof C?t[0]:t,C.merge(this,C.parseHTML(r[1],t&&t.nodeType?t.ownerDocument||t:T,!0)),J.test(r[1])&&C.isPlainObject(t))for(var r in t)v(this[r])?this[r](t[r]):this.attr(r,t[r])}else(n=T.getElementById(r[2]))&&(this[0]=n,this.length=1)}return this}).prototype=C.fn,Z=C(T),/^(?:parents|prev(?:Until|All))/),ne={children:!0,contents:!0,next:!0,prev:!0};function re(e,t){while((e=e[t])&&1!==e.nodeType);return e}C.fn.extend({has:function(e){var t=C(e,this),n=t.length;return this.filter(function(){for(var e=0;e<n;e++)if(C.contains(this,t[e]))return!0})},closest:function(e,t){var n,r=0,i=this.length,o=[],a="string"!=typeof e&&C(e);if(!Q.test(e))for(;r<i;r++)for(n=this[r];n&&n!==t;n=n.parentNode)if(n.nodeType<11&&(a?-1<a.index(n):1===n.nodeType&&C.find.matchesSelector(n,e))){o.push(n);break}return this.pushStack(1<o.length?C.uniqueSort(o):o)},index:function(e){return e?"string"==typeof e?F.call(C(e),this[0]):F.call(this,e.jquery?e[0]:e):this[0]&&this[0].parentNode?this.first().prevAll().length:-1},add:function(e,t){return this.pushStack(C.uniqueSort(C.merge(this.get(),C(e,t))))},addBack:function(e){return this.add(null==e?this.prevObject:this.prevObject.filter(e))}}),C.each({parent:function(e){e=e.parentNode;return e&&11!==e.nodeType?e:null},parents:function(e){return r(e,"parentNode")},parentsUntil:function(e,t,n){return r(e,"parentNode",n)},next:function(e){return re(e,"nextSibling")},prev:function(e){return re(e,"previousSibling")},nextAll:function(e){return r(e,"nextSibling")},prevAll:function(e){return r(e,"previousSibling")},nextUntil:function(e,t,n){return r(e,"nextSibling",n)},prevUntil:function(e,t,n){return r(e,"previousSibling",n)},siblings:function(e){return Y((e.parentNode||{}).firstChild,e)},children:function(e){return Y(e.firstChild)},contents:function(e){return null!=e.contentDocument&&M(e.contentDocument)?e.contentDocument:(u(e,"template")&&(e=e.content||e),C.merge([],e.childNodes))}},function(r,i){C.fn[r]=function(e,t){var n=C.map(this,i,e);return(t="Until"!==r.slice(-5)?e:t)&&"string"==typeof t&&(n=C.filter(t,n)),1<this.length&&(ne[r]||C.uniqueSort(n),te.test(r)&&n.reverse()),this.pushStack(n)}});var E=/[^\x20\t\r\n\f]+/g;function c(e){return e}function ie(e){throw e}function oe(e,t,n,r){var i;try{e&&v(i=e.promise)?i.call(e).done(t).fail(n):e&&v(i=e.then)?i.call(e,t,n):t.apply(void 0,[e].slice(r))}catch(e){n.apply(void 0,[e])}}C.Callbacks=function(r){var e,n;r="string"==typeof r?(e=r,n={},C.each(e.match(E)||[],function(e,t){n[t]=!0}),n):C.extend({},r);function i(){for(s=s||r.once,a=o=!0;l.length;c=-1){t=l.shift();while(++c<u.length)!1===u[c].apply(t[0],t[1])&&r.stopOnFalse&&(c=u.length,t=!1)}r.memory||(t=!1),o=!1,s&&(u=t?[]:"")}var o,t,a,s,u=[],l=[],c=-1,f={add:function(){return u&&(t&&!o&&(c=u.length-1,l.push(t)),function n(e){C.each(e,function(e,t){v(t)?r.unique&&f.has(t)||u.push(t):t&&t.length&&"string"!==h(t)&&n(t)})}(arguments),t&&!o&&i()),this},remove:function(){return C.each(arguments,function(e,t){var n;while(-1<(n=C.inArray(t,u,n)))u.splice(n,1),n<=c&&c--}),this},has:function(e){return e?-1<C.inArray(e,u):0<u.length},empty:function(){return u=u&&[],this},disable:function(){return s=l=[],u=t="",this},disabled:function(){return!u},lock:function(){return s=l=[],t||o||(u=t=""),this},locked:function(){return!!s},fireWith:function(e,t){return s||(t=[e,(t=t||[]).slice?t.slice():t],l.push(t),o||i()),this},fire:function(){return f.fireWith(this,arguments),this},fired:function(){return!!a}};return f},C.extend({Deferred:function(e){var o=[["notify","progress",C.Callbacks("memory"),C.Callbacks("memory"),2],["resolve","done",C.Callbacks("once memory"),C.Callbacks("once memory"),0,"resolved"],["reject","fail",C.Callbacks("once memory"),C.Callbacks("once memory"),1,"rejected"]],i="pending",a={state:function(){return i},always:function(){return s.done(arguments).fail(arguments),this},catch:function(e){return a.then(null,e)},pipe:function(){var i=arguments;return C.Deferred(function(r){C.each(o,function(e,t){var n=v(i[t[4]])&&i[t[4]];s[t[1]](function(){var e=n&&n.apply(this,arguments);e&&v(e.promise)?e.promise().progress(r.notify).done(r.resolve).fail(r.reject):r[t[0]+"With"](this,n?[e]:arguments)})}),i=null}).promise()},then:function(t,n,r){var u=0;function l(i,o,a,s){return function(){function e(){var e,t;if(!(i<u)){if((e=a.apply(n,r))===o.promise())throw new TypeError("Thenable self-resolution");t=e&&("object"==typeof e||"function"==typeof e)&&e.then,v(t)?s?t.call(e,l(u,o,c,s),l(u,o,ie,s)):(u++,t.call(e,l(u,o,c,s),l(u,o,ie,s),l(u,o,c,o.notifyWith))):(a!==c&&(n=void 0,r=[e]),(s||o.resolveWith)(n,r))}}var n=this,r=arguments,t=s?e:function(){try{e()}catch(e){C.Deferred.exceptionHook&&C.Deferred.exceptionHook(e,t.stackTrace),u<=i+1&&(a!==ie&&(n=void 0,r=[e]),o.rejectWith(n,r))}};i?t():(C.Deferred.getStackHook&&(t.stackTrace=C.Deferred.getStackHook()),w.setTimeout(t))}}return C.Deferred(function(e){o[0][3].add(l(0,e,v(r)?r:c,e.notifyWith)),o[1][3].add(l(0,e,v(t)?t:c)),o[2][3].add(l(0,e,v(n)?n:ie))}).promise()},promise:function(e){return null!=e?C.extend(e,a):a}},s={};return C.each(o,function(e,t){var n=t[2],r=t[5];a[t[1]]=n.add,r&&n.add(function(){i=r},o[3-e][2].disable,o[3-e][3].disable,o[0][2].lock,o[0][3].lock),n.add(t[3].fire),s[t[0]]=function(){return s[t[0]+"With"](this===s?void 0:this,arguments),this},s[t[0]+"With"]=n.fireWith}),a.promise(s),e&&e.call(s,s),s},when:function(e){function t(t){return function(e){i[t]=this,o[t]=1<arguments.length?s.call(arguments):e,--n||a.resolveWith(i,o)}}var n=arguments.length,r=n,i=Array(r),o=s.call(arguments),a=C.Deferred();if(n<=1&&(oe(e,a.done(t(r)).resolve,a.reject,!n),"pending"===a.state()||v(o[r]&&o[r].then)))return a.then();while(r--)oe(o[r],t(r),a.reject);return a.promise()}});var ae=/^(Eval|Internal|Range|Reference|Syntax|Type|URI)Error$/,se=(C.Deferred.exceptionHook=function(e,t){w.console&&w.console.warn&&e&&ae.test(e.name)&&w.console.warn("jQuery.Deferred exception: "+e.message,e.stack,t)},C.readyException=function(e){w.setTimeout(function(){throw e})},C.Deferred());function ue(){T.removeEventListener("DOMContentLoaded",ue),w.removeEventListener("load",ue),C.ready()}C.fn.ready=function(e){return se.then(e).catch(function(e){C.readyException(e)}),this},C.extend({isReady:!1,readyWait:1,ready:function(e){(!0===e?--C.readyWait:C.isReady)||(C.isReady=!0)!==e&&0<--C.readyWait||se.resolveWith(T,[C])}}),C.ready.then=se.then,"complete"===T.readyState||"loading"!==T.readyState&&!T.documentElement.doScroll?w.setTimeout(C.ready):(T.addEventListener("DOMContentLoaded",ue),w.addEventListener("load",ue));function f(e,t,n,r,i,o,a){var s=0,u=e.length,l=null==n;if("object"===h(n))for(s in i=!0,n)f(e,t,s,n[s],!0,o,a);else if(void 0!==r&&(i=!0,v(r)||(a=!0),t=l?a?(t.call(e,r),null):(l=t,function(e,t,n){return l.call(C(e),n)}):t))for(;s<u;s++)t(e[s],n,a?r:r.call(e[s],s,t(e[s],n)));return i?e:l?t.call(e):u?t(e[0],n):o}var le=/^-ms-/,ce=/-([a-z])/g;function fe(e,t){return t.toUpperCase()}function x(e){return e.replace(le,"ms-").replace(ce,fe)}function m(e){return 1===e.nodeType||9===e.nodeType||!+e.nodeType}function pe(){this.expando=C.expando+pe.uid++}pe.uid=1,pe.prototype={cache:function(e){var t=e[this.expando];return t||(t={},m(e)&&(e.nodeType?e[this.expando]=t:Object.defineProperty(e,this.expando,{value:t,configurable:!0}))),t},set:function(e,t,n){var r,i=this.cache(e);if("string"==typeof t)i[x(t)]=n;else for(r in t)i[x(r)]=t[r];return i},get:function(e,t){return void 0===t?this.cache(e):e[this.expando]&&e[this.expando][x(t)]},access:function(e,t,n){return void 0===t||t&&"string"==typeof t&&void 0===n?this.get(e,t):(this.set(e,t,n),void 0!==n?n:t)},remove:function(e,t){var n,r=e[this.expando];if(void 0!==r){if(void 0!==t){n=(t=Array.isArray(t)?t.map(x):(t=x(t))in r?[t]:t.match(E)||[]).length;while(n--)delete r[t[n]]}void 0!==t&&!C.isEmptyObject(r)||(e.nodeType?e[this.expando]=void 0:delete e[this.expando])}},hasData:function(e){e=e[this.expando];return void 0!==e&&!C.isEmptyObject(e)}};var b=new pe,l=new pe,de=/^(?:\{[\w\W]*\}|\[[\w\W]*\])$/,he=/[A-Z]/g;function ge(e,t,n){var r,i;if(void 0===n&&1===e.nodeType)if(r="data-"+t.replace(he,"-$&").toLowerCase(),"string"==typeof(n=e.getAttribute(r))){try{n="true"===(i=n)||"false"!==i&&("null"===i?null:i===+i+""?+i:de.test(i)?JSON.parse(i):i)}catch(e){}l.set(e,t,n)}else n=void 0;return n}C.extend({hasData:function(e){return l.hasData(e)||b.hasData(e)},data:function(e,t,n){return l.access(e,t,n)},removeData:function(e,t){l.remove(e,t)},_data:function(e,t,n){return b.access(e,t,n)},_removeData:function(e,t){b.remove(e,t)}}),C.fn.extend({data:function(n,e){var t,r,i,o=this[0],a=o&&o.attributes;if(void 0!==n)return"object"==typeof n?this.each(function(){l.set(this,n)}):f(this,function(e){var t;if(o&&void 0===e)return void 0!==(t=l.get(o,n))||void 0!==(t=ge(o,n))?t:void 0;this.each(function(){l.set(this,n,e)})},null,e,1<arguments.length,null,!0);if(this.length&&(i=l.get(o),1===o.nodeType&&!b.get(o,"hasDataAttrs"))){t=a.length;while(t--)a[t]&&0===(r=a[t].name).indexOf("data-")&&(r=x(r.slice(5)),ge(o,r,i[r]));b.set(o,"hasDataAttrs",!0)}return i},removeData:function(e){return this.each(function(){l.remove(this,e)})}}),C.extend({queue:function(e,t,n){var r;if(e)return r=b.get(e,t=(t||"fx")+"queue"),n&&(!r||Array.isArray(n)?r=b.access(e,t,C.makeArray(n)):r.push(n)),r||[]},dequeue:function(e,t){t=t||"fx";var n=C.queue(e,t),r=n.length,i=n.shift(),o=C._queueHooks(e,t);"inprogress"===i&&(i=n.shift(),r--),i&&("fx"===t&&n.unshift("inprogress"),delete o.stop,i.call(e,function(){C.dequeue(e,t)},o)),!r&&o&&o.empty.fire()},_queueHooks:function(e,t){var n=t+"queueHooks";return b.get(e,n)||b.access(e,n,{empty:C.Callbacks("once memory").add(function(){b.remove(e,[t+"queue",n])})})}}),C.fn.extend({queue:function(t,n){var e=2;return"string"!=typeof t&&(n=t,t="fx",e--),arguments.length<e?C.queue(this[0],t):void 0===n?this:this.each(function(){var e=C.queue(this,t,n);C._queueHooks(this,t),"fx"===t&&"inprogress"!==e[0]&&C.dequeue(this,t)})},dequeue:function(e){return this.each(function(){C.dequeue(this,e)})},clearQueue:function(e){return this.queue(e||"fx",[])},promise:function(e,t){function n(){--i||o.resolveWith(a,[a])}var r,i=1,o=C.Deferred(),a=this,s=this.length;"string"!=typeof e&&(t=e,e=void 0),e=e||"fx";while(s--)(r=b.get(a[s],e+"queueHooks"))&&r.empty&&(i++,r.empty.add(n));return n(),o.promise(t)}});function ye(e,t){return"none"===(e=t||e).style.display||""===e.style.display&&k(e)&&"none"===C.css(e,"display")}var e=/[+-]?(?:\d*\.|)\d+(?:[eE][+-]?\d+|)/.source,me=new RegExp("^(?:([+-])=|)("+e+")([a-z%]*)$","i"),p=["Top","Right","Bottom","Left"],S=T.documentElement,k=function(e){return C.contains(e.ownerDocument,e)},ve={composed:!0};S.getRootNode&&(k=function(e){return C.contains(e.ownerDocument,e)||e.getRootNode(ve)===e.ownerDocument});function xe(e,t,n,r){var i,o,a=20,s=r?function(){return r.cur()}:function(){return C.css(e,t,"")},u=s(),l=n&&n[3]||(C.cssNumber[t]?"":"px"),c=e.nodeType&&(C.cssNumber[t]||"px"!==l&&+u)&&me.exec(C.css(e,t));if(c&&c[3]!==l){l=l||c[3],c=+(u/=2)||1;while(a--)C.style(e,t,c+l),(1-o)*(1-(o=s()/u||.5))<=0&&(a=0),c/=o;C.style(e,t,(c*=2)+l),n=n||[]}return n&&(c=+c||+u||0,i=n[1]?c+(n[1]+1)*n[2]:+n[2],r&&(r.unit=l,r.start=c,r.end=i)),i}var be={};function A(e,t){for(var n,r,i,o,a,s=[],u=0,l=e.length;u<l;u++)(r=e[u]).style&&(n=r.style.display,t?("none"===n&&(s[u]=b.get(r,"display")||null,s[u]||(r.style.display="")),""===r.style.display&&ye(r)&&(s[u]=(a=o=void 0,o=(i=r).ownerDocument,i=i.nodeName,(a=be[i])||(o=o.body.appendChild(o.createElement(i)),a=C.css(o,"display"),o.parentNode.removeChild(o),be[i]=a="none"===a?"block":a),a))):"none"!==n&&(s[u]="none",b.set(r,"display",n)));for(u=0;u<l;u++)null!=s[u]&&(e[u].style.display=s[u]);return e}C.fn.extend({show:function(){return A(this,!0)},hide:function(){return A(this)},toggle:function(e){return"boolean"==typeof e?e?this.show():this.hide():this.each(function(){ye(this)?C(this).show():C(this).hide()})}});var we=/^(?:checkbox|radio)$/i,Te=/<([a-z][^\/\0>\x20\t\r\n\f]*)/i,Ce=/^$|^module$|\/(?:java|ecma)script/i,N=(L=T.createDocumentFragment().appendChild(T.createElement("div")),(o=T.createElement("input")).setAttribute("type","radio"),o.setAttribute("checked","checked"),o.setAttribute("name","t"),L.appendChild(o),y.checkClone=L.cloneNode(!0).cloneNode(!0).lastChild.checked,L.innerHTML="<textarea>x</textarea>",y.noCloneChecked=!!L.cloneNode(!0).lastChild.defaultValue,L.innerHTML="<option></option>",y.option=!!L.lastChild,{thead:[1,"<table>","</table>"],col:[2,"<table><colgroup>","</colgroup></table>"],tr:[2,"<table><tbody>","</tbody></table>"],td:[3,"<table><tbody><tr>","</tr></tbody></table>"],_default:[0,"",""]});function j(e,t){var n="undefined"!=typeof e.getElementsByTagName?e.getElementsByTagName(t||"*"):"undefined"!=typeof e.querySelectorAll?e.querySelectorAll(t||"*"):[];return void 0===t||t&&u(e,t)?C.merge([e],n):n}function Ee(e,t){for(var n=0,r=e.length;n<r;n++)b.set(e[n],"globalEval",!t||b.get(t[n],"globalEval"))}N.tbody=N.tfoot=N.colgroup=N.caption=N.thead,N.th=N.td,y.option||(N.optgroup=N.option=[1,"<select multiple='multiple'>","</select>"]);var Se=/<|&#?\w+;/;function ke(e,t,n,r,i){for(var o,a,s,u,l,c=t.createDocumentFragment(),f=[],p=0,d=e.length;p<d;p++)if((o=e[p])||0===o)if("object"===h(o))C.merge(f,o.nodeType?[o]:o);else if(Se.test(o)){a=a||c.appendChild(t.createElement("div")),s=(Te.exec(o)||["",""])[1].toLowerCase(),s=N[s]||N._default,a.innerHTML=s[1]+C.htmlPrefilter(o)+s[2],l=s[0];while(l--)a=a.lastChild;C.merge(f,a.childNodes),(a=c.firstChild).textContent=""}else f.push(t.createTextNode(o));c.textContent="",p=0;while(o=f[p++])if(r&&-1<C.inArray(o,r))i&&i.push(o);else if(u=k(o),a=j(c.appendChild(o),"script"),u&&Ee(a),n){l=0;while(o=a[l++])Ce.test(o.type||"")&&n.push(o)}return c}var Ae=/^([^.]*)(?:\.(.+)|)/;function n(){return!0}function d(){return!1}function Ne(e,t){return e===function(){try{return T.activeElement}catch(e){}}()==("focus"===t)}function je(e,t,n,r,i,o){var a,s;if("object"==typeof t){for(s in"string"!=typeof n&&(r=r||n,n=void 0),t)je(e,s,n,r,t[s],o);return e}if(null==r&&null==i?(i=n,r=n=void 0):null==i&&("string"==typeof n?(i=r,r=void 0):(i=r,r=n,n=void 0)),!1===i)i=d;else if(!i)return e;return 1===o&&(a=i,(i=function(e){return C().off(e),a.apply(this,arguments)}).guid=a.guid||(a.guid=C.guid++)),e.each(function(){C.event.add(this,t,i,r,n)})}function De(e,i,o){o?(b.set(e,i,!1),C.event.add(e,i,{namespace:!1,handler:function(e){var t,n,r=b.get(this,i);if(1&e.isTrigger&&this[i]){if(r.length)(C.event.special[i]||{}).delegateType&&e.stopPropagation();else if(r=s.call(arguments),b.set(this,i,r),t=o(this,i),this[i](),r!==(n=b.get(this,i))||t?b.set(this,i,!1):n={},r!==n)return e.stopImmediatePropagation(),e.preventDefault(),n&&n.value}else r.length&&(b.set(this,i,{value:C.event.trigger(C.extend(r[0],C.Event.prototype),r.slice(1),this)}),e.stopImmediatePropagation())}})):void 0===b.get(e,i)&&C.event.add(e,i,n)}C.event={global:{},add:function(t,e,n,r,i){var o,a,s,u,l,c,f,p,d,h=b.get(t);if(m(t)){n.handler&&(n=(o=n).handler,i=o.selector),i&&C.find.matchesSelector(S,i),n.guid||(n.guid=C.guid++),(s=h.events)||(s=h.events=Object.create(null)),(a=h.handle)||(a=h.handle=function(e){return"undefined"!=typeof C&&C.event.triggered!==e.type?C.event.dispatch.apply(t,arguments):void 0}),u=(e=(e||"").match(E)||[""]).length;while(u--)f=d=(p=Ae.exec(e[u])||[])[1],p=(p[2]||"").split(".").sort(),f&&(l=C.event.special[f]||{},f=(i?l.delegateType:l.bindType)||f,l=C.event.special[f]||{},d=C.extend({type:f,origType:d,data:r,handler:n,guid:n.guid,selector:i,needsContext:i&&C.expr.match.needsContext.test(i),namespace:p.join(".")},o),(c=s[f])||((c=s[f]=[]).delegateCount=0,l.setup&&!1!==l.setup.call(t,r,p,a)||t.addEventListener&&t.addEventListener(f,a)),l.add&&(l.add.call(t,d),d.handler.guid||(d.handler.guid=n.guid)),i?c.splice(c.delegateCount++,0,d):c.push(d),C.event.global[f]=!0)}},remove:function(e,t,n,r,i){var o,a,s,u,l,c,f,p,d,h,g,y=b.hasData(e)&&b.get(e);if(y&&(u=y.events)){l=(t=(t||"").match(E)||[""]).length;while(l--)if(d=g=(s=Ae.exec(t[l])||[])[1],h=(s[2]||"").split(".").sort(),d){f=C.event.special[d]||{},p=u[d=(r?f.delegateType:f.bindType)||d]||[],s=s[2]&&new RegExp("(^|\\.)"+h.join("\\.(?:.*\\.|)")+"(\\.|$)"),a=o=p.length;while(o--)c=p[o],!i&&g!==c.origType||n&&n.guid!==c.guid||s&&!s.test(c.namespace)||r&&r!==c.selector&&("**"!==r||!c.selector)||(p.splice(o,1),c.selector&&p.delegateCount--,f.remove&&f.remove.call(e,c));a&&!p.length&&(f.teardown&&!1!==f.teardown.call(e,h,y.handle)||C.removeEvent(e,d,y.handle),delete u[d])}else for(d in u)C.event.remove(e,d+t[l],n,r,!0);C.isEmptyObject(u)&&b.remove(e,"handle events")}},dispatch:function(e){var t,n,r,i,o,a=new Array(arguments.length),s=C.event.fix(e),e=(b.get(this,"events")||Object.create(null))[s.type]||[],u=C.event.special[s.type]||{};for(a[0]=s,t=1;t<arguments.length;t++)a[t]=arguments[t];if(s.delegateTarget=this,!u.preDispatch||!1!==u.preDispatch.call(this,s)){o=C.event.handlers.call(this,s,e),t=0;while((r=o[t++])&&!s.isPropagationStopped()){s.currentTarget=r.elem,n=0;while((i=r.handlers[n++])&&!s.isImmediatePropagationStopped())s.rnamespace&&!1!==i.namespace&&!s.rnamespace.test(i.namespace)||(s.handleObj=i,s.data=i.data,void 0!==(i=((C.event.special[i.origType]||{}).handle||i.handler).apply(r.elem,a))&&!1===(s.result=i)&&(s.preventDefault(),s.stopPropagation()))}return u.postDispatch&&u.postDispatch.call(this,s),s.result}},handlers:function(e,t){var n,r,i,o,a,s=[],u=t.delegateCount,l=e.target;if(u&&l.nodeType&&!("click"===e.type&&1<=e.button))for(;l!==this;l=l.parentNode||this)if(1===l.nodeType&&("click"!==e.type||!0!==l.disabled)){for(o=[],a={},n=0;n<u;n++)void 0===a[i=(r=t[n]).selector+" "]&&(a[i]=r.needsContext?-1<C(i,this).index(l):C.find(i,this,null,[l]).length),a[i]&&o.push(r);o.length&&s.push({elem:l,handlers:o})}return l=this,u<t.length&&s.push({elem:l,handlers:t.slice(u)}),s},addProp:function(t,e){Object.defineProperty(C.Event.prototype,t,{enumerable:!0,configurable:!0,get:v(e)?function(){if(this.originalEvent)return e(this.originalEvent)}:function(){if(this.originalEvent)return this.originalEvent[t]},set:function(e){Object.defineProperty(this,t,{enumerable:!0,configurable:!0,writable:!0,value:e})}})},fix:function(e){return e[C.expando]?e:new C.Event(e)},special:{load:{noBubble:!0},click:{setup:function(e){e=this||e;return we.test(e.type)&&e.click&&u(e,"input")&&De(e,"click",n),!1},trigger:function(e){e=this||e;return we.test(e.type)&&e.click&&u(e,"input")&&De(e,"click"),!0},_default:function(e){e=e.target;return we.test(e.type)&&e.click&&u(e,"input")&&b.get(e,"click")||u(e,"a")}},beforeunload:{postDispatch:function(e){void 0!==e.result&&e.originalEvent&&(e.originalEvent.returnValue=e.result)}}}},C.removeEvent=function(e,t,n){e.removeEventListener&&e.removeEventListener(t,n)},C.Event=function(e,t){if(!(this instanceof C.Event))return new C.Event(e,t);e&&e.type?(this.originalEvent=e,this.type=e.type,this.isDefaultPrevented=e.defaultPrevented||void 0===e.defaultPrevented&&!1===e.returnValue?n:d,this.target=e.target&&3===e.target.nodeType?e.target.parentNode:e.target,this.currentTarget=e.currentTarget,this.relatedTarget=e.relatedTarget):this.type=e,t&&C.extend(this,t),this.timeStamp=e&&e.timeStamp||Date.now(),this[C.expando]=!0},C.Event.prototype={constructor:C.Event,isDefaultPrevented:d,isPropagationStopped:d,isImmediatePropagationStopped:d,isSimulated:!1,preventDefault:function(){var e=this.originalEvent;this.isDefaultPrevented=n,e&&!this.isSimulated&&e.preventDefault()},stopPropagation:function(){var e=this.originalEvent;this.isPropagationStopped=n,e&&!this.isSimulated&&e.stopPropagation()},stopImmediatePropagation:function(){var e=this.originalEvent;this.isImmediatePropagationStopped=n,e&&!this.isSimulated&&e.stopImmediatePropagation(),this.stopPropagation()}},C.each({altKey:!0,bubbles:!0,cancelable:!0,changedTouches:!0,ctrlKey:!0,detail:!0,eventPhase:!0,metaKey:!0,pageX:!0,pageY:!0,shiftKey:!0,view:!0,char:!0,code:!0,charCode:!0,key:!0,keyCode:!0,button:!0,buttons:!0,clientX:!0,clientY:!0,offsetX:!0,offsetY:!0,pointerId:!0,pointerType:!0,screenX:!0,screenY:!0,targetTouches:!0,toElement:!0,touches:!0,which:!0},C.event.addProp),C.each({focus:"focusin",blur:"focusout"},function(t,e){C.event.special[t]={setup:function(){return De(this,t,Ne),!1},trigger:function(){return De(this,t),!0},_default:function(e){return b.get(e.target,t)},delegateType:e}}),C.each({mouseenter:"mouseover",mouseleave:"mouseout",pointerenter:"pointerover",pointerleave:"pointerout"},function(e,i){C.event.special[e]={delegateType:i,bindType:i,handle:function(e){var t,n=e.relatedTarget,r=e.handleObj;return n&&(n===this||C.contains(this,n))||(e.type=r.origType,t=r.handler.apply(this,arguments),e.type=i),t}}}),C.fn.extend({on:function(e,t,n,r){return je(this,e,t,n,r)},one:function(e,t,n,r){return je(this,e,t,n,r,1)},off:function(e,t,n){var r,i;if(e&&e.preventDefault&&e.handleObj)r=e.handleObj,C(e.delegateTarget).off(r.namespace?r.origType+"."+r.namespace:r.origType,r.selector,r.handler);else{if("object"!=typeof e)return!1!==t&&"function"!=typeof t||(n=t,t=void 0),!1===n&&(n=d),this.each(function(){C.event.remove(this,e,n,t)});for(i in e)this.off(i,t,e[i])}return this}});var qe=/<script|<style|<link/i,Le=/checked\s*(?:[^=]|=\s*.checked.)/i,He=/^\s*<!\[CDATA\[|\]\]>\s*$/g;function Oe(e,t){return u(e,"table")&&u(11!==t.nodeType?t:t.firstChild,"tr")&&C(e).children("tbody")[0]||e}function Pe(e){return e.type=(null!==e.getAttribute("type"))+"/"+e.type,e}function Re(e){return"true/"===(e.type||"").slice(0,5)?e.type=e.type.slice(5):e.removeAttribute("type"),e}function Me(e,t){var n,r,i,o;if(1===t.nodeType){if(b.hasData(e)&&(o=b.get(e).events))for(i in b.remove(t,"handle events"),o)for(n=0,r=o[i].length;n<r;n++)C.event.add(t,i,o[i][n]);l.hasData(e)&&(e=l.access(e),e=C.extend({},e),l.set(t,e))}}function D(n,r,i,o){r=I(r);var e,t,a,s,u,l,c=0,f=n.length,p=f-1,d=r[0],h=v(d);if(h||1<f&&"string"==typeof d&&!y.checkClone&&Le.test(d))return n.each(function(e){var t=n.eq(e);h&&(r[0]=d.call(this,e,t.html())),D(t,r,i,o)});if(f&&(t=(e=ke(r,n[0].ownerDocument,!1,n,o)).firstChild,1===e.childNodes.length&&(e=t),t||o)){for(s=(a=C.map(j(e,"script"),Pe)).length;c<f;c++)u=e,c!==p&&(u=C.clone(u,!0,!0),s&&C.merge(a,j(u,"script"))),i.call(n[c],u,c);if(s)for(l=a[a.length-1].ownerDocument,C.map(a,Re),c=0;c<s;c++)u=a[c],Ce.test(u.type||"")&&!b.access(u,"globalEval")&&C.contains(l,u)&&(u.src&&"module"!==(u.type||"").toLowerCase()?C._evalUrl&&!u.noModule&&C._evalUrl(u.src,{nonce:u.nonce||u.getAttribute("nonce")},l):V(u.textContent.replace(He,""),u,l))}return n}function Ie(e,t,n){for(var r,i=t?C.filter(t,e):e,o=0;null!=(r=i[o]);o++)n||1!==r.nodeType||C.cleanData(j(r)),r.parentNode&&(n&&k(r)&&Ee(j(r,"script")),r.parentNode.removeChild(r));return e}C.extend({htmlPrefilter:function(e){return e},clone:function(e,t,n){var r,i,o,a,s,u,l,c=e.cloneNode(!0),f=k(e);if(!(y.noCloneChecked||1!==e.nodeType&&11!==e.nodeType||C.isXMLDoc(e)))for(a=j(c),r=0,i=(o=j(e)).length;r<i;r++)s=o[r],u=a[r],l=void 0,"input"===(l=u.nodeName.toLowerCase())&&we.test(s.type)?u.checked=s.checked:"input"!==l&&"textarea"!==l||(u.defaultValue=s.defaultValue);if(t)if(n)for(o=o||j(e),a=a||j(c),r=0,i=o.length;r<i;r++)Me(o[r],a[r]);else Me(e,c);return 0<(a=j(c,"script")).length&&Ee(a,!f&&j(e,"script")),c},cleanData:function(e){for(var t,n,r,i=C.event.special,o=0;void 0!==(n=e[o]);o++)if(m(n)){if(t=n[b.expando]){if(t.events)for(r in t.events)i[r]?C.event.remove(n,r):C.removeEvent(n,r,t.handle);n[b.expando]=void 0}n[l.expando]&&(n[l.expando]=void 0)}}}),C.fn.extend({detach:function(e){return Ie(this,e,!0)},remove:function(e){return Ie(this,e)},text:function(e){return f(this,function(e){return void 0===e?C.text(this):this.empty().each(function(){1!==this.nodeType&&11!==this.nodeType&&9!==this.nodeType||(this.textContent=e)})},null,e,arguments.length)},append:function(){return D(this,arguments,function(e){1!==this.nodeType&&11!==this.nodeType&&9!==this.nodeType||Oe(this,e).appendChild(e)})},prepend:function(){return D(this,arguments,function(e){var t;1!==this.nodeType&&11!==this.nodeType&&9!==this.nodeType||(t=Oe(this,e)).insertBefore(e,t.firstChild)})},before:function(){return D(this,arguments,function(e){this.parentNode&&this.parentNode.insertBefore(e,this)})},after:function(){return D(this,arguments,function(e){this.parentNode&&this.parentNode.insertBefore(e,this.nextSibling)})},empty:function(){for(var e,t=0;null!=(e=this[t]);t++)1===e.nodeType&&(C.cleanData(j(e,!1)),e.textContent="");return this},clone:function(e,t){return e=null!=e&&e,t=null==t?e:t,this.map(function(){return C.clone(this,e,t)})},html:function(e){return f(this,function(e){var t=this[0]||{},n=0,r=this.length;if(void 0===e&&1===t.nodeType)return t.innerHTML;if("string"==typeof e&&!qe.test(e)&&!N[(Te.exec(e)||["",""])[1].toLowerCase()]){e=C.htmlPrefilter(e);try{for(;n<r;n++)1===(t=this[n]||{}).nodeType&&(C.cleanData(j(t,!1)),t.innerHTML=e);t=0}catch(e){}}t&&this.empty().append(e)},null,e,arguments.length)},replaceWith:function(){var n=[];return D(this,arguments,function(e){var t=this.parentNode;C.inArray(this,n)<0&&(C.cleanData(j(this)),t&&t.replaceChild(e,this))},n)}}),C.each({appendTo:"append",prependTo:"prepend",insertBefore:"before",insertAfter:"after",replaceAll:"replaceWith"},function(e,a){C.fn[e]=function(e){for(var t,n=[],r=C(e),i=r.length-1,o=0;o<=i;o++)t=o===i?this:this.clone(!0),C(r[o])[a](t),W.apply(n,t.get());return this.pushStack(n)}});function We(e){var t=e.ownerDocument.defaultView;return(t=t&&t.opener?t:w).getComputedStyle(e)}function Fe(e,t,n){var r,i={};for(r in t)i[r]=e.style[r],e.style[r]=t[r];for(r in n=n.call(e),t)e.style[r]=i[r];return n}var $e,Be,_e,ze,Ue,Xe,Ve,i,Ge=new RegExp("^("+e+")(?!px)[a-z%]+$","i"),Ye=/^--/,Qe=new RegExp(p.join("|"),"i"),o="[\\x20\\t\\r\\n\\f]",Je=new RegExp("^"+o+"+|((?:^|[^\\\\])(?:\\\\.)*)"+o+"+$","g");function Ke(){var e;i&&(Ve.style.cssText="position:absolute;left:-11111px;width:60px;margin-top:1px;padding:0;border:0",i.style.cssText="position:relative;display:block;box-sizing:border-box;overflow:scroll;margin:auto;border:1px;padding:1px;width:60%;top:1%",S.appendChild(Ve).appendChild(i),e=w.getComputedStyle(i),$e="1%"!==e.top,Xe=12===Ze(e.marginLeft),i.style.right="60%",ze=36===Ze(e.right),Be=36===Ze(e.width),i.style.position="absolute",_e=12===Ze(i.offsetWidth/3),S.removeChild(Ve),i=null)}function Ze(e){return Math.round(parseFloat(e))}function et(e,t,n){var r,i=Ye.test(t),o=e.style;return(n=n||We(e))&&(r=n.getPropertyValue(t)||n[t],""!==(r=i?r.replace(Je,"$1"):r)||k(e)||(r=C.style(e,t)),!y.pixelBoxStyles()&&Ge.test(r)&&Qe.test(t)&&(i=o.width,e=o.minWidth,t=o.maxWidth,o.minWidth=o.maxWidth=o.width=r,r=n.width,o.width=i,o.minWidth=e,o.maxWidth=t)),void 0!==r?r+"":r}function tt(e,t){return{get:function(){if(!e())return(this.get=t).apply(this,arguments);delete this.get}}}Ve=T.createElement("div"),(i=T.createElement("div")).style&&(i.style.backgroundClip="content-box",i.cloneNode(!0).style.backgroundClip="",y.clearCloneStyle="content-box"===i.style.backgroundClip,C.extend(y,{boxSizingReliable:function(){return Ke(),Be},pixelBoxStyles:function(){return Ke(),ze},pixelPosition:function(){return Ke(),$e},reliableMarginLeft:function(){return Ke(),Xe},scrollboxSize:function(){return Ke(),_e},reliableTrDimensions:function(){var e,t,n;return null==Ue&&(e=T.createElement("table"),t=T.createElement("tr"),n=T.createElement("div"),e.style.cssText="position:absolute;left:-11111px;border-collapse:separate",t.style.cssText="border:1px solid",t.style.height="1px",n.style.height="9px",n.style.display="block",S.appendChild(e).appendChild(t).appendChild(n),n=w.getComputedStyle(t),Ue=parseInt(n.height,10)+parseInt(n.borderTopWidth,10)+parseInt(n.borderBottomWidth,10)===t.offsetHeight,S.removeChild(e)),Ue}}));var nt=["Webkit","Moz","ms"],rt=T.createElement("div").style,it={};function ot(e){var t=C.cssProps[e]||it[e];return t||(e in rt?e:it[e]=function(e){var t=e[0].toUpperCase()+e.slice(1),n=nt.length;while(n--)if((e=nt[n]+t)in rt)return e}(e)||e)}var at=/^(none|table(?!-c[ea]).+)/,st={position:"absolute",visibility:"hidden",display:"block"},ut={letterSpacing:"0",fontWeight:"400"};function lt(e,t,n){var r=me.exec(t);return r?Math.max(0,r[2]-(n||0))+(r[3]||"px"):t}function ct(e,t,n,r,i,o){var a="width"===t?1:0,s=0,u=0;if(n===(r?"border":"content"))return 0;for(;a<4;a+=2)"margin"===n&&(u+=C.css(e,n+p[a],!0,i)),r?("content"===n&&(u-=C.css(e,"padding"+p[a],!0,i)),"margin"!==n&&(u-=C.css(e,"border"+p[a]+"Width",!0,i))):(u+=C.css(e,"padding"+p[a],!0,i),"padding"!==n?u+=C.css(e,"border"+p[a]+"Width",!0,i):s+=C.css(e,"border"+p[a]+"Width",!0,i));return!r&&0<=o&&(u+=Math.max(0,Math.ceil(e["offset"+t[0].toUpperCase()+t.slice(1)]-o-u-s-.5))||0),u}function ft(e,t,n){var r=We(e),i=(!y.boxSizingReliable()||n)&&"border-box"===C.css(e,"boxSizing",!1,r),o=i,a=et(e,t,r),s="offset"+t[0].toUpperCase()+t.slice(1);if(Ge.test(a)){if(!n)return a;a="auto"}return(!y.boxSizingReliable()&&i||!y.reliableTrDimensions()&&u(e,"tr")||"auto"===a||!parseFloat(a)&&"inline"===C.css(e,"display",!1,r))&&e.getClientRects().length&&(i="border-box"===C.css(e,"boxSizing",!1,r),(o=s in e)&&(a=e[s])),(a=parseFloat(a)||0)+ct(e,t,n||(i?"border":"content"),o,r,a)+"px"}function a(e,t,n,r,i){return new a.prototype.init(e,t,n,r,i)}C.extend({cssHooks:{opacity:{get:function(e,t){if(t)return""===(t=et(e,"opacity"))?"1":t}}},cssNumber:{animationIterationCount:!0,columnCount:!0,fillOpacity:!0,flexGrow:!0,flexShrink:!0,fontWeight:!0,gridArea:!0,gridColumn:!0,gridColumnEnd:!0,gridColumnStart:!0,gridRow:!0,gridRowEnd:!0,gridRowStart:!0,lineHeight:!0,opacity:!0,order:!0,orphans:!0,widows:!0,zIndex:!0,zoom:!0},cssProps:{},style:function(e,t,n,r){if(e&&3!==e.nodeType&&8!==e.nodeType&&e.style){var i,o,a,s=x(t),u=Ye.test(t),l=e.style;if(u||(t=ot(s)),a=C.cssHooks[t]||C.cssHooks[s],void 0===n)return a&&"get"in a&&void 0!==(i=a.get(e,!1,r))?i:l[t];"string"===(o=typeof n)&&(i=me.exec(n))&&i[1]&&(n=xe(e,t,i),o="number"),null!=n&&n==n&&("number"!==o||u||(n+=i&&i[3]||(C.cssNumber[s]?"":"px")),y.clearCloneStyle||""!==n||0!==t.indexOf("background")||(l[t]="inherit"),a&&"set"in a&&void 0===(n=a.set(e,n,r))||(u?l.setProperty(t,n):l[t]=n))}},css:function(e,t,n,r){var i,o=x(t);return Ye.test(t)||(t=ot(o)),"normal"===(i=void 0===(i=(o=C.cssHooks[t]||C.cssHooks[o])&&"get"in o?o.get(e,!0,n):i)?et(e,t,r):i)&&t in ut&&(i=ut[t]),(""===n||n)&&(o=parseFloat(i),!0===n||isFinite(o))?o||0:i}}),C.each(["height","width"],function(e,a){C.cssHooks[a]={get:function(e,t,n){if(t)return!at.test(C.css(e,"display"))||e.getClientRects().length&&e.getBoundingClientRect().width?ft(e,a,n):Fe(e,st,function(){return ft(e,a,n)})},set:function(e,t,n){var r=We(e),i=!y.scrollboxSize()&&"absolute"===r.position,o=(i||n)&&"border-box"===C.css(e,"boxSizing",!1,r),n=n?ct(e,a,n,o,r):0;return o&&i&&(n-=Math.ceil(e["offset"+a[0].toUpperCase()+a.slice(1)]-parseFloat(r[a])-ct(e,a,"border",!1,r)-.5)),n&&(o=me.exec(t))&&"px"!==(o[3]||"px")&&(e.style[a]=t,t=C.css(e,a)),lt(0,t,n)}}}),C.cssHooks.marginLeft=tt(y.reliableMarginLeft,function(e,t){if(t)return(parseFloat(et(e,"marginLeft"))||e.getBoundingClientRect().left-Fe(e,{marginLeft:0},function(){return e.getBoundingClientRect().left}))+"px"}),C.each({margin:"",padding:"",border:"Width"},function(i,o){C.cssHooks[i+o]={expand:function(e){for(var t=0,n={},r="string"==typeof e?e.split(" "):[e];t<4;t++)n[i+p[t]+o]=r[t]||r[t-2]||r[0];return n}},"margin"!==i&&(C.cssHooks[i+o].set=lt)}),C.fn.extend({css:function(e,t){return f(this,function(e,t,n){var r,i,o={},a=0;if(Array.isArray(t)){for(r=We(e),i=t.length;a<i;a++)o[t[a]]=C.css(e,t[a],!1,r);return o}return void 0!==n?C.style(e,t,n):C.css(e,t)},e,t,1<arguments.length)}}),((C.Tween=a).prototype={constructor:a,init:function(e,t,n,r,i,o){this.elem=e,this.prop=n,this.easing=i||C.easing._default,this.options=t,this.start=this.now=this.cur(),this.end=r,this.unit=o||(C.cssNumber[n]?"":"px")},cur:function(){var e=a.propHooks[this.prop];return(e&&e.get?e:a.propHooks._default).get(this)},run:function(e){var t,n=a.propHooks[this.prop];return this.options.duration?this.pos=t=C.easing[this.easing](e,this.options.duration*e,0,1,this.options.duration):this.pos=t=e,this.now=(this.end-this.start)*t+this.start,this.options.step&&this.options.step.call(this.elem,this.now,this),(n&&n.set?n:a.propHooks._default).set(this),this}}).init.prototype=a.prototype,(a.propHooks={_default:{get:function(e){return 1!==e.elem.nodeType||null!=e.elem[e.prop]&&null==e.elem.style[e.prop]?e.elem[e.prop]:(e=C.css(e.elem,e.prop,""))&&"auto"!==e?e:0},set:function(e){C.fx.step[e.prop]?C.fx.step[e.prop](e):1!==e.elem.nodeType||!C.cssHooks[e.prop]&&null==e.elem.style[ot(e.prop)]?e.elem[e.prop]=e.now:C.style(e.elem,e.prop,e.now+e.unit)}}}).scrollTop=a.propHooks.scrollLeft={set:function(e){e.elem.nodeType&&e.elem.parentNode&&(e.elem[e.prop]=e.now)}},C.easing={linear:function(e){return e},swing:function(e){return.5-Math.cos(e*Math.PI)/2},_default:"swing"},C.fx=a.prototype.init,C.fx.step={};var q,pt,L,dt=/^(?:toggle|show|hide)$/,ht=/queueHooks$/;function gt(){pt&&(!1===T.hidden&&w.requestAnimationFrame?w.requestAnimationFrame(gt):w.setTimeout(gt,C.fx.interval),C.fx.tick())}function yt(){return w.setTimeout(function(){q=void 0}),q=Date.now()}function mt(e,t){var n,r=0,i={height:e};for(t=t?1:0;r<4;r+=2-t)i["margin"+(n=p[r])]=i["padding"+n]=e;return t&&(i.opacity=i.width=e),i}function vt(e,t,n){for(var r,i=(H.tweeners[t]||[]).concat(H.tweeners["*"]),o=0,a=i.length;o<a;o++)if(r=i[o].call(n,t,e))return r}function H(i,e,t){var n,o,r,a,s,u,l,c=0,f=H.prefilters.length,p=C.Deferred().always(function(){delete d.elem}),d=function(){if(!o){for(var e=q||yt(),e=Math.max(0,h.startTime+h.duration-e),t=1-(e/h.duration||0),n=0,r=h.tweens.length;n<r;n++)h.tweens[n].run(t);if(p.notifyWith(i,[h,t,e]),t<1&&r)return e;r||p.notifyWith(i,[h,1,0]),p.resolveWith(i,[h])}return!1},h=p.promise({elem:i,props:C.extend({},e),opts:C.extend(!0,{specialEasing:{},easing:C.easing._default},t),originalProperties:e,originalOptions:t,startTime:q||yt(),duration:t.duration,tweens:[],createTween:function(e,t){t=C.Tween(i,h.opts,e,t,h.opts.specialEasing[e]||h.opts.easing);return h.tweens.push(t),t},stop:function(e){var t=0,n=e?h.tweens.length:0;if(!o){for(o=!0;t<n;t++)h.tweens[t].run(1);e?(p.notifyWith(i,[h,1,0]),p.resolveWith(i,[h,e])):p.rejectWith(i,[h,e])}return this}}),g=h.props,y=g,m=h.opts.specialEasing;for(r in y)if(s=m[a=x(r)],u=y[r],Array.isArray(u)&&(s=u[1],u=y[r]=u[0]),r!==a&&(y[a]=u,delete y[r]),(l=C.cssHooks[a])&&"expand"in l)for(r in u=l.expand(u),delete y[a],u)r in y||(y[r]=u[r],m[r]=s);else m[a]=s;for(;c<f;c++)if(n=H.prefilters[c].call(h,i,g,h.opts))return v(n.stop)&&(C._queueHooks(h.elem,h.opts.queue).stop=n.stop.bind(n)),n;return C.map(g,vt,h),v(h.opts.start)&&h.opts.start.call(i,h),h.progress(h.opts.progress).done(h.opts.done,h.opts.complete).fail(h.opts.fail).always(h.opts.always),C.fx.timer(C.extend(d,{elem:i,anim:h,queue:h.opts.queue})),h}C.Animation=C.extend(H,{tweeners:{"*":[function(e,t){var n=this.createTween(e,t);return xe(n.elem,e,me.exec(t),n),n}]},tweener:function(e,t){for(var n,r=0,i=(e=v(e)?(t=e,["*"]):e.match(E)).length;r<i;r++)n=e[r],H.tweeners[n]=H.tweeners[n]||[],H.tweeners[n].unshift(t)},prefilters:[function(e,t,n){var r,i,o,a,s,u,l,c="width"in t||"height"in t,f=this,p={},d=e.style,h=e.nodeType&&ye(e),g=b.get(e,"fxshow");for(r in n.queue||(null==(a=C._queueHooks(e,"fx")).unqueued&&(a.unqueued=0,s=a.empty.fire,a.empty.fire=function(){a.unqueued||s()}),a.unqueued++,f.always(function(){f.always(function(){a.unqueued--,C.queue(e,"fx").length||a.empty.fire()})})),t)if(i=t[r],dt.test(i)){if(delete t[r],o=o||"toggle"===i,i===(h?"hide":"show")){if("show"!==i||!g||void 0===g[r])continue;h=!0}p[r]=g&&g[r]||C.style(e,r)}if((u=!C.isEmptyObject(t))||!C.isEmptyObject(p))for(r in c&&1===e.nodeType&&(n.overflow=[d.overflow,d.overflowX,d.overflowY],null==(l=g&&g.display)&&(l=b.get(e,"display")),"none"===(c=C.css(e,"display"))&&(l?c=l:(A([e],!0),l=e.style.display||l,c=C.css(e,"display"),A([e]))),("inline"===c||"inline-block"===c&&null!=l)&&"none"===C.css(e,"float")&&(u||(f.done(function(){d.display=l}),null==l&&(c=d.display,l="none"===c?"":c)),d.display="inline-block")),n.overflow&&(d.overflow="hidden",f.always(function(){d.overflow=n.overflow[0],d.overflowX=n.overflow[1],d.overflowY=n.overflow[2]})),u=!1,p)u||(g?"hidden"in g&&(h=g.hidden):g=b.access(e,"fxshow",{display:l}),o&&(g.hidden=!h),h&&A([e],!0),f.done(function(){for(r in h||A([e]),b.remove(e,"fxshow"),p)C.style(e,r,p[r])})),u=vt(h?g[r]:0,r,f),r in g||(g[r]=u.start,h&&(u.end=u.start,u.start=0))}],prefilter:function(e,t){t?H.prefilters.unshift(e):H.prefilters.push(e)}}),C.speed=function(e,t,n){var r=e&&"object"==typeof e?C.extend({},e):{complete:n||!n&&t||v(e)&&e,duration:e,easing:n&&t||t&&!v(t)&&t};return C.fx.off?r.duration=0:"number"!=typeof r.duration&&(r.duration in C.fx.speeds?r.duration=C.fx.speeds[r.duration]:r.duration=C.fx.speeds._default),null!=r.queue&&!0!==r.queue||(r.queue="fx"),r.old=r.complete,r.complete=function(){v(r.old)&&r.old.call(this),r.queue&&C.dequeue(this,r.queue)},r},C.fn.extend({fadeTo:function(e,t,n,r){return this.filter(ye).css("opacity",0).show().end().animate({opacity:t},e,n,r)},animate:function(t,e,n,r){function i(){var e=H(this,C.extend({},t),a);(o||b.get(this,"finish"))&&e.stop(!0)}var o=C.isEmptyObject(t),a=C.speed(e,n,r);return i.finish=i,o||!1===a.queue?this.each(i):this.queue(a.queue,i)},stop:function(i,e,o){function a(e){var t=e.stop;delete e.stop,t(o)}return"string"!=typeof i&&(o=e,e=i,i=void 0),e&&this.queue(i||"fx",[]),this.each(function(){var e=!0,t=null!=i&&i+"queueHooks",n=C.timers,r=b.get(this);if(t)r[t]&&r[t].stop&&a(r[t]);else for(t in r)r[t]&&r[t].stop&&ht.test(t)&&a(r[t]);for(t=n.length;t--;)n[t].elem!==this||null!=i&&n[t].queue!==i||(n[t].anim.stop(o),e=!1,n.splice(t,1));!e&&o||C.dequeue(this,i)})},finish:function(a){return!1!==a&&(a=a||"fx"),this.each(function(){var e,t=b.get(this),n=t[a+"queue"],r=t[a+"queueHooks"],i=C.timers,o=n?n.length:0;for(t.finish=!0,C.queue(this,a,[]),r&&r.stop&&r.stop.call(this,!0),e=i.length;e--;)i[e].elem===this&&i[e].queue===a&&(i[e].anim.stop(!0),i.splice(e,1));for(e=0;e<o;e++)n[e]&&n[e].finish&&n[e].finish.call(this);delete t.finish})}}),C.each(["toggle","show","hide"],function(e,r){var i=C.fn[r];C.fn[r]=function(e,t,n){return null==e||"boolean"==typeof e?i.apply(this,arguments):this.animate(mt(r,!0),e,t,n)}}),C.each({slideDown:mt("show"),slideUp:mt("hide"),slideToggle:mt("toggle"),fadeIn:{opacity:"show"},fadeOut:{opacity:"hide"},fadeToggle:{opacity:"toggle"}},function(e,r){C.fn[e]=function(e,t,n){return this.animate(r,e,t,n)}}),C.timers=[],C.fx.tick=function(){var e,t=0,n=C.timers;for(q=Date.now();t<n.length;t++)(e=n[t])()||n[t]!==e||n.splice(t--,1);n.length||C.fx.stop(),q=void 0},C.fx.timer=function(e){C.timers.push(e),C.fx.start()},C.fx.interval=13,C.fx.start=function(){pt||(pt=!0,gt())},C.fx.stop=function(){pt=null},C.fx.speeds={slow:600,fast:200,_default:400},C.fn.delay=function(r,e){return r=C.fx&&C.fx.speeds[r]||r,this.queue(e=e||"fx",function(e,t){var n=w.setTimeout(e,r);t.stop=function(){w.clearTimeout(n)}})},L=T.createElement("input"),e=T.createElement("select").appendChild(T.createElement("option")),L.type="checkbox",y.checkOn=""!==L.value,y.optSelected=e.selected,(L=T.createElement("input")).value="t",L.type="radio",y.radioValue="t"===L.value;var xt,bt=C.expr.attrHandle,wt=(C.fn.extend({attr:function(e,t){return f(this,C.attr,e,t,1<arguments.length)},removeAttr:function(e){return this.each(function(){C.removeAttr(this,e)})}}),C.extend({attr:function(e,t,n){var r,i,o=e.nodeType;if(3!==o&&8!==o&&2!==o)return"undefined"==typeof e.getAttribute?C.prop(e,t,n):(1===o&&C.isXMLDoc(e)||(i=C.attrHooks[t.toLowerCase()]||(C.expr.match.bool.test(t)?xt:void 0)),void 0!==n?null===n?void C.removeAttr(e,t):i&&"set"in i&&void 0!==(r=i.set(e,n,t))?r:(e.setAttribute(t,n+""),n):!(i&&"get"in i&&null!==(r=i.get(e,t)))&&null==(r=C.find.attr(e,t))?void 0:r)},attrHooks:{type:{set:function(e,t){var n;if(!y.radioValue&&"radio"===t&&u(e,"input"))return n=e.value,e.setAttribute("type",t),n&&(e.value=n),t}}},removeAttr:function(e,t){var n,r=0,i=t&&t.match(E);if(i&&1===e.nodeType)while(n=i[r++])e.removeAttribute(n)}}),xt={set:function(e,t,n){return!1===t?C.removeAttr(e,n):e.setAttribute(n,n),n}},C.each(C.expr.match.bool.source.match(/\w+/g),function(e,t){var a=bt[t]||C.find.attr;bt[t]=function(e,t,n){var r,i,o=t.toLowerCase();return n||(i=bt[o],bt[o]=r,r=null!=a(e,t,n)?o:null,bt[o]=i),r}}),/^(?:input|select|textarea|button)$/i),Tt=/^(?:a|area)$/i;function O(e){return(e.match(E)||[]).join(" ")}function P(e){return e.getAttribute&&e.getAttribute("class")||""}function Ct(e){return Array.isArray(e)?e:"string"==typeof e&&e.match(E)||[]}C.fn.extend({prop:function(e,t){return f(this,C.prop,e,t,1<arguments.length)},removeProp:function(e){return this.each(function(){delete this[C.propFix[e]||e]})}}),C.extend({prop:function(e,t,n){var r,i,o=e.nodeType;if(3!==o&&8!==o&&2!==o)return 1===o&&C.isXMLDoc(e)||(t=C.propFix[t]||t,i=C.propHooks[t]),void 0!==n?i&&"set"in i&&void 0!==(r=i.set(e,n,t))?r:e[t]=n:i&&"get"in i&&null!==(r=i.get(e,t))?r:e[t]},propHooks:{tabIndex:{get:function(e){var t=C.find.attr(e,"tabindex");return t?parseInt(t,10):wt.test(e.nodeName)||Tt.test(e.nodeName)&&e.href?0:-1}}},propFix:{for:"htmlFor",class:"className"}}),y.optSelected||(C.propHooks.selected={get:function(e){e=e.parentNode;return e&&e.parentNode&&e.parentNode.selectedIndex,null},set:function(e){e=e.parentNode;e&&(e.selectedIndex,e.parentNode&&e.parentNode.selectedIndex)}}),C.each(["tabIndex","readOnly","maxLength","cellSpacing","cellPadding","rowSpan","colSpan","useMap","frameBorder","contentEditable"],function(){C.propFix[this.toLowerCase()]=this}),C.fn.extend({addClass:function(t){var e,n,r,i,o,a;return v(t)?this.each(function(e){C(this).addClass(t.call(this,e,P(this)))}):(e=Ct(t)).length?this.each(function(){if(r=P(this),n=1===this.nodeType&&" "+O(r)+" "){for(o=0;o<e.length;o++)i=e[o],n.indexOf(" "+i+" ")<0&&(n+=i+" ");a=O(n),r!==a&&this.setAttribute("class",a)}}):this},removeClass:function(t){var e,n,r,i,o,a;return v(t)?this.each(function(e){C(this).removeClass(t.call(this,e,P(this)))}):arguments.length?(e=Ct(t)).length?this.each(function(){if(r=P(this),n=1===this.nodeType&&" "+O(r)+" "){for(o=0;o<e.length;o++){i=e[o];while(-1<n.indexOf(" "+i+" "))n=n.replace(" "+i+" "," ")}a=O(n),r!==a&&this.setAttribute("class",a)}}):this:this.attr("class","")},toggleClass:function(t,n){var e,r,i,o,a=typeof t,s="string"==a||Array.isArray(t);return v(t)?this.each(function(e){C(this).toggleClass(t.call(this,e,P(this),n),n)}):"boolean"==typeof n&&s?n?this.addClass(t):this.removeClass(t):(e=Ct(t),this.each(function(){if(s)for(o=C(this),i=0;i<e.length;i++)r=e[i],o.hasClass(r)?o.removeClass(r):o.addClass(r);else void 0!==t&&"boolean"!=a||((r=P(this))&&b.set(this,"__className__",r),this.setAttribute&&this.setAttribute("class",!r&&!1!==t&&b.get(this,"__className__")||""))}))},hasClass:function(e){var t,n=0,r=" "+e+" ";while(t=this[n++])if(1===t.nodeType&&-1<(" "+O(P(t))+" ").indexOf(r))return!0;return!1}});function Et(e){e.stopPropagation()}var St=/\r/g,kt=(C.fn.extend({val:function(t){var n,e,r,i=this[0];return arguments.length?(r=v(t),this.each(function(e){1===this.nodeType&&(null==(e=r?t.call(this,e,C(this).val()):t)?e="":"number"==typeof e?e+="":Array.isArray(e)&&(e=C.map(e,function(e){return null==e?"":e+""})),(n=C.valHooks[this.type]||C.valHooks[this.nodeName.toLowerCase()])&&"set"in n&&void 0!==n.set(this,e,"value")||(this.value=e))})):i?(n=C.valHooks[i.type]||C.valHooks[i.nodeName.toLowerCase()])&&"get"in n&&void 0!==(e=n.get(i,"value"))?e:"string"==typeof(e=i.value)?e.replace(St,""):null==e?"":e:void 0}}),C.extend({valHooks:{option:{get:function(e){var t=C.find.attr(e,"value");return null!=t?t:O(C.text(e))}},select:{get:function(e){for(var t,n=e.options,r=e.selectedIndex,i="select-one"===e.type,o=i?null:[],a=i?r+1:n.length,s=r<0?a:i?r:0;s<a;s++)if(((t=n[s]).selected||s===r)&&!t.disabled&&(!t.parentNode.disabled||!u(t.parentNode,"optgroup"))){if(t=C(t).val(),i)return t;o.push(t)}return o},set:function(e,t){var n,r,i=e.options,o=C.makeArray(t),a=i.length;while(a--)((r=i[a]).selected=-1<C.inArray(C.valHooks.option.get(r),o))&&(n=!0);return n||(e.selectedIndex=-1),o}}}}),C.each(["radio","checkbox"],function(){C.valHooks[this]={set:function(e,t){if(Array.isArray(t))return e.checked=-1<C.inArray(C(e).val(),t)}},y.checkOn||(C.valHooks[this].get=function(e){return null===e.getAttribute("value")?"on":e.value})}),y.focusin="onfocusin"in w,/^(?:focusinfocus|focusoutblur)$/),At=(C.extend(C.event,{trigger:function(e,t,n,r){var i,o,a,s,u,l,c,f=[n||T],p=_.call(e,"type")?e.type:e,d=_.call(e,"namespace")?e.namespace.split("."):[],h=c=o=n=n||T;if(3!==n.nodeType&&8!==n.nodeType&&!kt.test(p+C.event.triggered)&&(-1<p.indexOf(".")&&(p=(d=p.split(".")).shift(),d.sort()),s=p.indexOf(":")<0&&"on"+p,(e=e[C.expando]?e:new C.Event(p,"object"==typeof e&&e)).isTrigger=r?2:3,e.namespace=d.join("."),e.rnamespace=e.namespace?new RegExp("(^|\\.)"+d.join("\\.(?:.*\\.|)")+"(\\.|$)"):null,e.result=void 0,e.target||(e.target=n),t=null==t?[e]:C.makeArray(t,[e]),l=C.event.special[p]||{},r||!l.trigger||!1!==l.trigger.apply(n,t))){if(!r&&!l.noBubble&&!g(n)){for(a=l.delegateType||p,kt.test(a+p)||(h=h.parentNode);h;h=h.parentNode)f.push(h),o=h;o===(n.ownerDocument||T)&&f.push(o.defaultView||o.parentWindow||w)}i=0;while((h=f[i++])&&!e.isPropagationStopped())c=h,e.type=1<i?a:l.bindType||p,(u=(b.get(h,"events")||Object.create(null))[e.type]&&b.get(h,"handle"))&&u.apply(h,t),(u=s&&h[s])&&u.apply&&m(h)&&(e.result=u.apply(h,t),!1===e.result&&e.preventDefault());return e.type=p,r||e.isDefaultPrevented()||l._default&&!1!==l._default.apply(f.pop(),t)||!m(n)||s&&v(n[p])&&!g(n)&&((o=n[s])&&(n[s]=null),C.event.triggered=p,e.isPropagationStopped()&&c.addEventListener(p,Et),n[p](),e.isPropagationStopped()&&c.removeEventListener(p,Et),C.event.triggered=void 0,o&&(n[s]=o)),e.result}},simulate:function(e,t,n){n=C.extend(new C.Event,n,{type:e,isSimulated:!0});C.event.trigger(n,null,t)}}),C.fn.extend({trigger:function(e,t){return this.each(function(){C.event.trigger(e,t,this)})},triggerHandler:function(e,t){var n=this[0];if(n)return C.event.trigger(e,t,n,!0)}}),y.focusin||C.each({focus:"focusin",blur:"focusout"},function(n,r){function i(e){C.event.simulate(r,e.target,C.event.fix(e))}C.event.special[r]={setup:function(){var e=this.ownerDocument||this.document||this,t=b.access(e,r);t||e.addEventListener(n,i,!0),b.access(e,r,(t||0)+1)},teardown:function(){var e=this.ownerDocument||this.document||this,t=b.access(e,r)-1;t?b.access(e,r,t):(e.removeEventListener(n,i,!0),b.remove(e,r))}}}),w.location),Nt={guid:Date.now()},jt=/\?/,Dt=(C.parseXML=function(e){var t,n;if(!e||"string"!=typeof e)return null;try{t=(new w.DOMParser).parseFromString(e,"text/xml")}catch(e){}return n=t&&t.getElementsByTagName("parsererror")[0],t&&!n||C.error("Invalid XML: "+(n?C.map(n.childNodes,function(e){return e.textContent}).join("\n"):e)),t},/\[\]$/),qt=/\r?\n/g,Lt=/^(?:submit|button|image|reset|file)$/i,Ht=/^(?:input|select|textarea|keygen)/i;C.param=function(e,t){function n(e,t){t=v(t)?t():t,i[i.length]=encodeURIComponent(e)+"="+encodeURIComponent(null==t?"":t)}var r,i=[];if(null==e)return"";if(Array.isArray(e)||e.jquery&&!C.isPlainObject(e))C.each(e,function(){n(this.name,this.value)});else for(r in e)!function n(r,e,i,o){if(Array.isArray(e))C.each(e,function(e,t){i||Dt.test(r)?o(r,t):n(r+"["+("object"==typeof t&&null!=t?e:"")+"]",t,i,o)});else if(i||"object"!==h(e))o(r,e);else for(var t in e)n(r+"["+t+"]",e[t],i,o)}(r,e[r],t,n);return i.join("&")},C.fn.extend({serialize:function(){return C.param(this.serializeArray())},serializeArray:function(){return this.map(function(){var e=C.prop(this,"elements");return e?C.makeArray(e):this}).filter(function(){var e=this.type;return this.name&&!C(this).is(":disabled")&&Ht.test(this.nodeName)&&!Lt.test(e)&&(this.checked||!we.test(e))}).map(function(e,t){var n=C(this).val();return null==n?null:Array.isArray(n)?C.map(n,function(e){return{name:t.name,value:e.replace(qt,"\r\n")}}):{name:t.name,value:n.replace(qt,"\r\n")}}).get()}});var Ot=/%20/g,Pt=/#.*$/,Rt=/([?&])_=[^&]*/,Mt=/^(.*?):[ \t]*([^\r\n]*)$/gm,It=/^(?:GET|HEAD)$/,Wt=/^\/\//,Ft={},$t={},Bt="*/".concat("*"),_t=T.createElement("a");function zt(o){return function(e,t){"string"!=typeof e&&(t=e,e="*");var n,r=0,i=e.toLowerCase().match(E)||[];if(v(t))while(n=i[r++])"+"===n[0]?(n=n.slice(1)||"*",(o[n]=o[n]||[]).unshift(t)):(o[n]=o[n]||[]).push(t)}}function Ut(t,r,i,o){var a={},s=t===$t;function u(e){var n;return a[e]=!0,C.each(t[e]||[],function(e,t){t=t(r,i,o);return"string"!=typeof t||s||a[t]?s?!(n=t):void 0:(r.dataTypes.unshift(t),u(t),!1)}),n}return u(r.dataTypes[0])||!a["*"]&&u("*")}function Xt(e,t){var n,r,i=C.ajaxSettings.flatOptions||{};for(n in t)void 0!==t[n]&&((i[n]?e:r=r||{})[n]=t[n]);return r&&C.extend(!0,e,r),e}_t.href=At.href,C.extend({active:0,lastModified:{},etag:{},ajaxSettings:{url:At.href,type:"GET",isLocal:/^(?:about|app|app-storage|.+-extension|file|res|widget):$/.test(At.protocol),global:!0,processData:!0,async:!0,contentType:"application/x-www-form-urlencoded; charset=UTF-8",accepts:{"*":Bt,text:"text/plain",html:"text/html",xml:"application/xml, text/xml",json:"application/json, text/javascript"},contents:{xml:/\bxml\b/,html:/\bhtml/,json:/\bjson\b/},responseFields:{xml:"responseXML",text:"responseText",json:"responseJSON"},converters:{"* text":String,"text html":!0,"text json":JSON.parse,"text xml":C.parseXML},flatOptions:{url:!0,context:!0}},ajaxSetup:function(e,t){return t?Xt(Xt(e,C.ajaxSettings),t):Xt(C.ajaxSettings,e)},ajaxPrefilter:zt(Ft),ajaxTransport:zt($t),ajax:function(e,t){"object"==typeof e&&(t=e,e=void 0);var u,l,c,n,f,p,d,r,h=C.ajaxSetup({},t=t||{}),g=h.context||h,y=h.context&&(g.nodeType||g.jquery)?C(g):C.event,m=C.Deferred(),v=C.Callbacks("once memory"),x=h.statusCode||{},i={},o={},a="canceled",b={readyState:0,getResponseHeader:function(e){var t;if(p){if(!n){n={};while(t=Mt.exec(c))n[t[1].toLowerCase()+" "]=(n[t[1].toLowerCase()+" "]||[]).concat(t[2])}t=n[e.toLowerCase()+" "]}return null==t?null:t.join(", ")},getAllResponseHeaders:function(){return p?c:null},setRequestHeader:function(e,t){return null==p&&(e=o[e.toLowerCase()]=o[e.toLowerCase()]||e,i[e]=t),this},overrideMimeType:function(e){return null==p&&(h.mimeType=e),this},statusCode:function(e){if(e)if(p)b.always(e[b.status]);else for(var t in e)x[t]=[x[t],e[t]];return this},abort:function(e){e=e||a;return u&&u.abort(e),s(0,e),this}};if(m.promise(b),h.url=((e||h.url||At.href)+"").replace(Wt,At.protocol+"//"),h.type=t.method||t.type||h.method||h.type,h.dataTypes=(h.dataType||"*").toLowerCase().match(E)||[""],null==h.crossDomain){e=T.createElement("a");try{e.href=h.url,e.href=e.href,h.crossDomain=_t.protocol+"//"+_t.host!=e.protocol+"//"+e.host}catch(e){h.crossDomain=!0}}if(h.data&&h.processData&&"string"!=typeof h.data&&(h.data=C.param(h.data,h.traditional)),Ut(Ft,h,t,b),!p){for(r in(d=C.event&&h.global)&&0==C.active++&&C.event.trigger("ajaxStart"),h.type=h.type.toUpperCase(),h.hasContent=!It.test(h.type),l=h.url.replace(Pt,""),h.hasContent?h.data&&h.processData&&0===(h.contentType||"").indexOf("application/x-www-form-urlencoded")&&(h.data=h.data.replace(Ot,"+")):(e=h.url.slice(l.length),h.data&&(h.processData||"string"==typeof h.data)&&(l+=(jt.test(l)?"&":"?")+h.data,delete h.data),!1===h.cache&&(l=l.replace(Rt,"$1"),e=(jt.test(l)?"&":"?")+"_="+Nt.guid+++e),h.url=l+e),h.ifModified&&(C.lastModified[l]&&b.setRequestHeader("If-Modified-Since",C.lastModified[l]),C.etag[l]&&b.setRequestHeader("If-None-Match",C.etag[l])),(h.data&&h.hasContent&&!1!==h.contentType||t.contentType)&&b.setRequestHeader("Content-Type",h.contentType),b.setRequestHeader("Accept",h.dataTypes[0]&&h.accepts[h.dataTypes[0]]?h.accepts[h.dataTypes[0]]+("*"!==h.dataTypes[0]?", "+Bt+"; q=0.01":""):h.accepts["*"]),h.headers)b.setRequestHeader(r,h.headers[r]);if(h.beforeSend&&(!1===h.beforeSend.call(g,b,h)||p))return b.abort();if(a="abort",v.add(h.complete),b.done(h.success),b.fail(h.error),u=Ut($t,h,t,b)){if(b.readyState=1,d&&y.trigger("ajaxSend",[b,h]),p)return b;h.async&&0<h.timeout&&(f=w.setTimeout(function(){b.abort("timeout")},h.timeout));try{p=!1,u.send(i,s)}catch(e){if(p)throw e;s(-1,e)}}else s(-1,"No Transport")}return b;function s(e,t,n,r){var i,o,a,s=t;p||(p=!0,f&&w.clearTimeout(f),u=void 0,c=r||"",b.readyState=0<e?4:0,r=200<=e&&e<300||304===e,n&&(a=function(e,t,n){var r,i,o,a,s=e.contents,u=e.dataTypes;while("*"===u[0])u.shift(),void 0===r&&(r=e.mimeType||t.getResponseHeader("Content-Type"));if(r)for(i in s)if(s[i]&&s[i].test(r)){u.unshift(i);break}if(u[0]in n)o=u[0];else{for(i in n){if(!u[0]||e.converters[i+" "+u[0]]){o=i;break}a=a||i}o=o||a}if(o)return o!==u[0]&&u.unshift(o),n[o]}(h,b,n)),!r&&-1<C.inArray("script",h.dataTypes)&&C.inArray("json",h.dataTypes)<0&&(h.converters["text script"]=function(){}),a=function(e,t,n,r){var i,o,a,s,u,l={},c=e.dataTypes.slice();if(c[1])for(a in e.converters)l[a.toLowerCase()]=e.converters[a];o=c.shift();while(o)if(e.responseFields[o]&&(n[e.responseFields[o]]=t),!u&&r&&e.dataFilter&&(t=e.dataFilter(t,e.dataType)),u=o,o=c.shift())if("*"===o)o=u;else if("*"!==u&&u!==o){if(!(a=l[u+" "+o]||l["* "+o]))for(i in l)if((s=i.split(" "))[1]===o&&(a=l[u+" "+s[0]]||l["* "+s[0]])){!0===a?a=l[i]:!0!==l[i]&&(o=s[0],c.unshift(s[1]));break}if(!0!==a)if(a&&e.throws)t=a(t);else try{t=a(t)}catch(e){return{state:"parsererror",error:a?e:"No conversion from "+u+" to "+o}}}return{state:"success",data:t}}(h,a,b,r),r?(h.ifModified&&((n=b.getResponseHeader("Last-Modified"))&&(C.lastModified[l]=n),(n=b.getResponseHeader("etag"))&&(C.etag[l]=n)),204===e||"HEAD"===h.type?s="nocontent":304===e?s="notmodified":(s=a.state,i=a.data,r=!(o=a.error))):(o=s,!e&&s||(s="error",e<0&&(e=0))),b.status=e,b.statusText=(t||s)+"",r?m.resolveWith(g,[i,s,b]):m.rejectWith(g,[b,s,o]),b.statusCode(x),x=void 0,d&&y.trigger(r?"ajaxSuccess":"ajaxError",[b,h,r?i:o]),v.fireWith(g,[b,s]),d&&(y.trigger("ajaxComplete",[b,h]),--C.active||C.event.trigger("ajaxStop")))}},getJSON:function(e,t,n){return C.get(e,t,n,"json")},getScript:function(e,t){return C.get(e,void 0,t,"script")}}),C.each(["get","post"],function(e,i){C[i]=function(e,t,n,r){return v(t)&&(r=r||n,n=t,t=void 0),C.ajax(C.extend({url:e,type:i,dataType:r,data:t,success:n},C.isPlainObject(e)&&e))}}),C.ajaxPrefilter(function(e){for(var t in e.headers)"content-type"===t.toLowerCase()&&(e.contentType=e.headers[t]||"")}),C._evalUrl=function(e,t,n){return C.ajax({url:e,type:"GET",dataType:"script",cache:!0,async:!1,global:!1,converters:{"text script":function(){}},dataFilter:function(e){C.globalEval(e,t,n)}})},C.fn.extend({wrapAll:function(e){return this[0]&&(v(e)&&(e=e.call(this[0])),e=C(e,this[0].ownerDocument).eq(0).clone(!0),this[0].parentNode&&e.insertBefore(this[0]),e.map(function(){var e=this;while(e.firstElementChild)e=e.firstElementChild;return e}).append(this)),this},wrapInner:function(n){return v(n)?this.each(function(e){C(this).wrapInner(n.call(this,e))}):this.each(function(){var e=C(this),t=e.contents();t.length?t.wrapAll(n):e.append(n)})},wrap:function(t){var n=v(t);return this.each(function(e){C(this).wrapAll(n?t.call(this,e):t)})},unwrap:function(e){return this.parent(e).not("body").each(function(){C(this).replaceWith(this.childNodes)}),this}}),C.expr.pseudos.hidden=function(e){return!C.expr.pseudos.visible(e)},C.expr.pseudos.visible=function(e){return!!(e.offsetWidth||e.offsetHeight||e.getClientRects().length)},C.ajaxSettings.xhr=function(){try{return new w.XMLHttpRequest}catch(e){}};var Vt={0:200,1223:204},Gt=C.ajaxSettings.xhr(),Yt=(y.cors=!!Gt&&"withCredentials"in Gt,y.ajax=Gt=!!Gt,C.ajaxTransport(function(i){var o,a;if(y.cors||Gt&&!i.crossDomain)return{send:function(e,t){var n,r=i.xhr();if(r.open(i.type,i.url,i.async,i.username,i.password),i.xhrFields)for(n in i.xhrFields)r[n]=i.xhrFields[n];for(n in i.mimeType&&r.overrideMimeType&&r.overrideMimeType(i.mimeType),i.crossDomain||e["X-Requested-With"]||(e["X-Requested-With"]="XMLHttpRequest"),e)r.setRequestHeader(n,e[n]);o=function(e){return function(){o&&(o=a=r.onload=r.onerror=r.onabort=r.ontimeout=r.onreadystatechange=null,"abort"===e?r.abort():"error"===e?"number"!=typeof r.status?t(0,"error"):t(r.status,r.statusText):t(Vt[r.status]||r.status,r.statusText,"text"!==(r.responseType||"text")||"string"!=typeof r.responseText?{binary:r.response}:{text:r.responseText},r.getAllResponseHeaders()))}},r.onload=o(),a=r.onerror=r.ontimeout=o("error"),void 0!==r.onabort?r.onabort=a:r.onreadystatechange=function(){4===r.readyState&&w.setTimeout(function(){o&&a()})},o=o("abort");try{r.send(i.hasContent&&i.data||null)}catch(e){if(o)throw e}},abort:function(){o&&o()}}}),C.ajaxPrefilter(function(e){e.crossDomain&&(e.contents.script=!1)}),C.ajaxSetup({accepts:{script:"text/javascript, application/javascript, application/ecmascript, application/x-ecmascript"},contents:{script:/\b(?:java|ecma)script\b/},converters:{"text script":function(e){return C.globalEval(e),e}}}),C.ajaxPrefilter("script",function(e){void 0===e.cache&&(e.cache=!1),e.crossDomain&&(e.type="GET")}),C.ajaxTransport("script",function(n){var r,i;if(n.crossDomain||n.scriptAttrs)return{send:function(e,t){r=C("<script>").attr(n.scriptAttrs||{}).prop({charset:n.scriptCharset,src:n.url}).on("load error",i=function(e){r.remove(),i=null,e&&t("error"===e.type?404:200,e.type)}),T.head.appendChild(r[0])},abort:function(){i&&i()}}}),[]),Qt=/(=)\?(?=&|$)|\?\?/,Jt=(C.ajaxSetup({jsonp:"callback",jsonpCallback:function(){var e=Yt.pop()||C.expando+"_"+Nt.guid++;return this[e]=!0,e}}),C.ajaxPrefilter("json jsonp",function(e,t,n){var r,i,o,a=!1!==e.jsonp&&(Qt.test(e.url)?"url":"string"==typeof e.data&&0===(e.contentType||"").indexOf("application/x-www-form-urlencoded")&&Qt.test(e.data)&&"data");if(a||"jsonp"===e.dataTypes[0])return r=e.jsonpCallback=v(e.jsonpCallback)?e.jsonpCallback():e.jsonpCallback,a?e[a]=e[a].replace(Qt,"$1"+r):!1!==e.jsonp&&(e.url+=(jt.test(e.url)?"&":"?")+e.jsonp+"="+r),e.converters["script json"]=function(){return o||C.error(r+" was not called"),o[0]},e.dataTypes[0]="json",i=w[r],w[r]=function(){o=arguments},n.always(function(){void 0===i?C(w).removeProp(r):w[r]=i,e[r]&&(e.jsonpCallback=t.jsonpCallback,Yt.push(r)),o&&v(i)&&i(o[0]),o=i=void 0}),"script"}),y.createHTMLDocument=((o=T.implementation.createHTMLDocument("").body).innerHTML="<form></form><form></form>",2===o.childNodes.length),C.parseHTML=function(e,t,n){var r;return"string"!=typeof e?[]:("boolean"==typeof t&&(n=t,t=!1),t||(y.createHTMLDocument?((r=(t=T.implementation.createHTMLDocument("")).createElement("base")).href=T.location.href,t.head.appendChild(r)):t=T),r=!n&&[],(n=J.exec(e))?[t.createElement(n[1])]:(n=ke([e],t,r),r&&r.length&&C(r).remove(),C.merge([],n.childNodes)))},C.fn.load=function(e,t,n){var r,i,o,a=this,s=e.indexOf(" ");return-1<s&&(r=O(e.slice(s)),e=e.slice(0,s)),v(t)?(n=t,t=void 0):t&&"object"==typeof t&&(i="POST"),0<a.length&&C.ajax({url:e,type:i||"GET",dataType:"html",data:t}).done(function(e){o=arguments,a.html(r?C("<div>").append(C.parseHTML(e)).find(r):e)}).always(n&&function(e,t){a.each(function(){n.apply(this,o||[e.responseText,t,e])})}),this},C.expr.pseudos.animated=function(t){return C.grep(C.timers,function(e){return t===e.elem}).length},C.offset={setOffset:function(e,t,n){var r,i,o,a,s=C.css(e,"position"),u=C(e),l={};"static"===s&&(e.style.position="relative"),o=u.offset(),r=C.css(e,"top"),a=C.css(e,"left"),s=("absolute"===s||"fixed"===s)&&-1<(r+a).indexOf("auto")?(i=(s=u.position()).top,s.left):(i=parseFloat(r)||0,parseFloat(a)||0),null!=(t=v(t)?t.call(e,n,C.extend({},o)):t).top&&(l.top=t.top-o.top+i),null!=t.left&&(l.left=t.left-o.left+s),"using"in t?t.using.call(e,l):u.css(l)}},C.fn.extend({offset:function(t){var e,n;return arguments.length?void 0===t?this:this.each(function(e){C.offset.setOffset(this,t,e)}):(n=this[0])?n.getClientRects().length?(e=n.getBoundingClientRect(),n=n.ownerDocument.defaultView,{top:e.top+n.pageYOffset,left:e.left+n.pageXOffset}):{top:0,left:0}:void 0},position:function(){if(this[0]){var e,t,n,r=this[0],i={top:0,left:0};if("fixed"===C.css(r,"position"))t=r.getBoundingClientRect();else{t=this.offset(),n=r.ownerDocument,e=r.offsetParent||n.documentElement;while(e&&(e===n.body||e===n.documentElement)&&"static"===C.css(e,"position"))e=e.parentNode;e&&e!==r&&1===e.nodeType&&((i=C(e).offset()).top+=C.css(e,"borderTopWidth",!0),i.left+=C.css(e,"borderLeftWidth",!0))}return{top:t.top-i.top-C.css(r,"marginTop",!0),left:t.left-i.left-C.css(r,"marginLeft",!0)}}},offsetParent:function(){return this.map(function(){var e=this.offsetParent;while(e&&"static"===C.css(e,"position"))e=e.offsetParent;return e||S})}}),C.each({scrollLeft:"pageXOffset",scrollTop:"pageYOffset"},function(t,i){var o="pageYOffset"===i;C.fn[t]=function(e){return f(this,function(e,t,n){var r;if(g(e)?r=e:9===e.nodeType&&(r=e.defaultView),void 0===n)return r?r[i]:e[t];r?r.scrollTo(o?r.pageXOffset:n,o?n:r.pageYOffset):e[t]=n},t,e,arguments.length)}}),C.each(["top","left"],function(e,n){C.cssHooks[n]=tt(y.pixelPosition,function(e,t){if(t)return t=et(e,n),Ge.test(t)?C(e).position()[n]+"px":t})}),C.each({Height:"height",Width:"width"},function(a,s){C.each({padding:"inner"+a,content:s,"":"outer"+a},function(r,o){C.fn[o]=function(e,t){var n=arguments.length&&(r||"boolean"!=typeof e),i=r||(!0===e||!0===t?"margin":"border");return f(this,function(e,t,n){var r;return g(e)?0===o.indexOf("outer")?e["inner"+a]:e.document.documentElement["client"+a]:9===e.nodeType?(r=e.documentElement,Math.max(e.body["scroll"+a],r["scroll"+a],e.body["offset"+a],r["offset"+a],r["client"+a])):void 0===n?C.css(e,t,i):C.style(e,t,n,i)},s,n?e:void 0,n)}})}),C.each(["ajaxStart","ajaxStop","ajaxComplete","ajaxError","ajaxSuccess","ajaxSend"],function(e,t){C.fn[t]=function(e){return this.on(t,e)}}),C.fn.extend({bind:function(e,t,n){return this.on(e,null,t,n)},unbind:function(e,t){return this.off(e,null,t)},delegate:function(e,t,n,r){return this.on(t,e,n,r)},undelegate:function(e,t,n){return 1===arguments.length?this.off(e,"**"):this.off(t,e||"**",n)},hover:function(e,t){return this.mouseenter(e).mouseleave(t||e)}}),C.each("blur focus focusin focusout resize scroll click dblclick mousedown mouseup mousemove mouseover mouseout mouseenter mouseleave change select submit keydown keypress keyup contextmenu".split(" "),function(e,n){C.fn[n]=function(e,t){return 0<arguments.length?this.on(n,null,e,t):this.trigger(n)}}),/^[\s\uFEFF\xA0]+|([^\s\uFEFF\xA0])[\s\uFEFF\xA0]+$/g),Kt=(C.proxy=function(e,t){var n,r;if("string"==typeof t&&(r=e[t],t=e,e=r),v(e))return n=s.call(arguments,2),(r=function(){return e.apply(t||this,n.concat(s.call(arguments)))}).guid=e.guid=e.guid||C.guid++,r},C.holdReady=function(e){e?C.readyWait++:C.ready(!0)},C.isArray=Array.isArray,C.parseJSON=JSON.parse,C.nodeName=u,C.isFunction=v,C.isWindow=g,C.camelCase=x,C.type=h,C.now=Date.now,C.isNumeric=function(e){var t=C.type(e);return("number"===t||"string"===t)&&!isNaN(e-parseFloat(e))},C.trim=function(e){return null==e?"":(e+"").replace(Jt,"$1")},"function"==typeof define&&define.amd&&define("jquery",[],function(){return C}),w.jQuery),Zt=w.$;return C.noConflict=function(e){return w.$===C&&(w.$=Zt),e&&w.jQuery===C&&(w.jQuery=Kt),C},"undefined"==typeof R&&(w.jQuery=w.$=C),C});
+</script>
+<meta name="viewport" content="width=device-width, initial-scale=1" />
+<style type="text/css"> html{font-family:sans-serif;-ms-text-size-adjust:100%;-webkit-text-size-adjust:100%}body{margin:0}article,aside,details,figcaption,figure,footer,header,hgroup,main,menu,nav,section,summary{display:block}audio,canvas,progress,video{display:inline-block;vertical-align:baseline}audio:not([controls]){display:none;height:0}[hidden],template{display:none}a{background-color:transparent}a:active,a:hover{outline:0}abbr[title]{border-bottom:none;text-decoration:underline;text-decoration:underline dotted}b,strong{font-weight:bold}dfn{font-style:italic}h1{font-size:2em;margin:.67em 0}mark{background:#ff0;color:#000}small{font-size:80%}sub,sup{font-size:75%;line-height:0;position:relative;vertical-align:baseline}sup{top:-0.5em}sub{bottom:-0.25em}img{border:0}svg:not(:root){overflow:hidden}figure{margin:1em 40px}hr{box-sizing:content-box;height:0}pre{overflow:auto}code,kbd,pre,samp{font-family:monospace,monospace;font-size:1em}button,input,optgroup,select,textarea{color:inherit;font:inherit;margin:0}button{overflow:visible}button,select{text-transform:none}button,html input[type="button"],input[type="reset"],input[type="submit"]{-webkit-appearance:button;cursor:pointer}button[disabled],html input[disabled]{cursor:default}button::-moz-focus-inner,input::-moz-focus-inner{border:0;padding:0}input{line-height:normal}input[type="checkbox"],input[type="radio"]{box-sizing:border-box;padding:0}input[type="number"]::-webkit-inner-spin-button,input[type="number"]::-webkit-outer-spin-button{height:auto}input[type="search"]{-webkit-appearance:textfield;box-sizing:content-box}input[type="search"]::-webkit-search-cancel-button,input[type="search"]::-webkit-search-decoration{-webkit-appearance:none}fieldset{border:1px solid #c0c0c0;margin:0 2px;padding:.35em .625em .75em}legend{border:0;padding:0}textarea{overflow:auto}optgroup{font-weight:bold}table{border-collapse:collapse;border-spacing:0}td,th{padding:0} @media print{*,*:before,*:after{color:#000!important;text-shadow:none!important;background:transparent!important;box-shadow:none!important}a,a:visited{text-decoration:underline}a[href]:after{content:"(" attr(href) ")"}abbr[title]:after{content:"(" attr(title) ")"}a[href^="#"]:after,a[href^="javascript:"]:after{content:""}pre,blockquote{border:1px solid #999;page-break-inside:avoid}thead{display:table-header-group}tr,img{page-break-inside:avoid}img{max-width:100%!important}p,h2,h3{orphans:3;widows:3}h2,h3{page-break-after:avoid}.navbar{display:none}.btn>.caret,.dropup>.btn>.caret{border-top-color:#000!important}.label{border:1px solid #000}.table{border-collapse:collapse!important}.table td,.table th{background-color:#fff!important}.table-bordered th,.table-bordered td{border:1px solid #ddd!important}}@font-face{font-family:"Glyphicons Halflings";src:url(data:application/vnd.ms-fontobject;base64,n04AAEFNAAACAAIABAAAAAAABQAAAAAAAAABAJABAAAEAExQAAAAAAAAAAIAAAAAAAAAAAEAAAAAAAAAJxJ/LAAAAAAAAAAAAAAAAAAAAAAAACgARwBMAFkAUABIAEkAQwBPAE4AUwAgAEgAYQBsAGYAbABpAG4AZwBzAAAADgBSAGUAZwB1AGwAYQByAAAAeABWAGUAcgBzAGkAbwBuACAAMQAuADAAMAA5ADsAUABTACAAMAAwADEALgAwADAAOQA7AGgAbwB0AGMAbwBuAHYAIAAxAC4AMAAuADcAMAA7AG0AYQBrAGUAbwB0AGYALgBsAGkAYgAyAC4ANQAuADUAOAAzADIAOQAAADgARwBMAFkAUABIAEkAQwBPAE4AUwAgAEgAYQBsAGYAbABpAG4AZwBzACAAUgBlAGcAdQBsAGEAcgAAAAAAQlNHUAAAAAAAAAAAAAAAAAAAAAADAKncAE0TAE0ZAEbuFM3pjM/SEdmjKHUbyow8ATBE40IvWA3vTu8LiABDQ+pexwUMcm1SMnNryctQSiI1K5ZnbOlXKmnVV5YvRe6RnNMFNCOs1KNVpn6yZhCJkRtVRNzEufeIq7HgSrcx4S8h/v4vnrrKc6oCNxmSk2uKlZQHBii6iKFoH0746ThvkO1kJHlxjrkxs+LWORaDQBEtiYJIR5IB9Bi1UyL4Rmr0BNigNkMzlKQmnofBHviqVzUxwdMb3NdCn69hy+pRYVKGVS/1tnsqv4LL7wCCPZZAZPT4aCShHjHJVNuXbmMrY5LeQaGnvAkXlVrJgKRAUdFjrWEah9XebPeQMj7KS7DIBAFt8ycgC5PLGUOHSE3ErGZCiViNLL5ZARfywnCoZaKQCu6NuFX42AEeKtKUGnr/Cm2Cy8tpFhBPMW5Fxi4Qm4TkDWh4IWFDClhU2hRWosUWqcKLlgyXB+lSHaWaHiWlBAR8SeSgSPCQxdVQgzUixWKSTrIQEbU94viDctkvX+VSjJuUmV8L4CXShI11esnp0pjWNZIyxKHS4wVQ2ime1P4RnhvGw0aDN1OLAXGERsB7buFpFGGBAre4QEQR0HOIO5oYH305G+KspT/FupEGGafCCwxSe6ZUa+073rXHnNdVXE6eWvibUS27XtRzkH838mYLMBmYysZTM0EM3A1fbpCBYFccN1B/EnCYu/TgCGmr7bMh8GfYL+BfcLvB0gRagC09w9elfldaIy/hNCBLRgBgtCC7jAF63wLSMAfbfAlEggYU0bUA7ACCJmTDpEmJtI78w4/BO7dN7JR7J7ZvbYaUbaILSQsRBiF3HGk5fEg6p9unwLvn98r+vnsV+372uf1xBLq4qU/45fTuqaAP+pssmCCCTF0mhEow8ZXZOS8D7Q85JsxZ+Azok7B7O/f6J8AzYBySZQB/QHYUSA+EeQhEWiS6AIQzgcsDiER4MjgMBAWDV4AgQ3g1eBgIdweCQmCjJEMkJ+PKRWyFHHmg1Wi/6xzUgA0LREoKJChwnQa9B+5RQZRB3IlBlkAnxyQNaANwHMowzlYSMCBgnbpzvqpl0iTJNCQidDI9ZrSYNIRBhHtUa5YHMHxyGEik9hDE0AKj72AbTCaxtHPUaKZdAZSnQTyjGqGLsmBStCejApUhg4uBMU6mATujEl+KdDPbI6Ag4vLr+hjY6lbjBeoLKnZl0UZgRX8gTySOeynZVz1wOq7e1hFGYIq+MhrGxDLak0PrwYzSXtcuyhXEhwOYofiW+EcI/jw8P6IY6ed+etAbuqKp5QIapT77LnAe505lMuqL79a0ut4rWexzFttsOsLDy7zvtQzcq3U1qabe7tB0wHWVXji+zDbo8x8HyIRUbXnwUcklFv51fvTymiV+MXLSmGH9d9+aXpD5X6lao41anWGig7IwIdnoBY2ht/pO9mClLo4NdXHAsefqWUKlXJkbqPOFhMoR4aiA1BXqhRNbB2Xwi+7u/jpAoOpKJ0UX24EsrzMfHXViakCNcKjBxuQX8BO0ZqjJ3xXzf+61t2VXOSgJ8xu65QKgtN6FibPmPYsXbJRHHqbgATcSZxBqGiDiU4NNNsYBsKD0MIP/OfKnlk/Lkaid/O2NbKeuQrwOB2Gq3YHyr6ALgzym5wIBnsdC1ZkoBFZSQXChZvlesPqvK2c5oHHT3Q65jYpNxnQcGF0EHbvYqoFw60WNlXIHQF2HQB7zD6lWjZ9rVqUKBXUT6hrkZOle0RFYII0V5ZYGl1JAP0Ud1fZZMvSomBzJ710j4Me8mjQDwEre5Uv2wQfk1ifDwb5ksuJQQ3xt423lbuQjvoIQByQrNDh1JxGFkOdlJvu/gFtuW0wR4cgd+ZKesSV7QkNE2kw6AV4hoIuC02LGmTomyf8PiO6CZzOTLTPQ+HW06H+tx+bQ8LmDYg1pTFrp2oJXgkZTyeRJZM0C8aE2LpFrNVDuhARsN543/FV6klQ6Tv1OoZGXLv0igKrl/CmJxRmX7JJbJ998VSIPQRyDBICzl4JJlYHbdql30NvYcOuZ7a10uWRrgoieOdgIm4rlq6vNOQBuqESLbXG5lzdJGHw2m0sDYmODXbYGTfSTGRKpssTO95fothJCjUGQgEL4yKoGAF/0SrpUDNn8CBgBcSDQByAeNkCXp4S4Ro2Xh4OeaGRgR66PVOsU8bc6TR5/xTcn4IVMLOkXSWiXxkZQCbvKfmoAvQaKjO3EDKwkwqHChCDEM5loQRPd5ACBki1TjF772oaQhQbQ5C0lcWXPFOzrfsDGUXGrpxasbG4iab6eByaQkQfm0VFlP0ZsDkvvqCL6QXMUwCjdMx1ZOyKhTJ7a1GWAdOUcJ8RSejxNVyGs31OKMyRyBVoZFjqIkmKlLQ5eHMeEL4MkUf23cQ/1SgRCJ1dk4UdBT7OoyuNgLs0oCd8RnrEIb6QdMxT2QjD4zMrJkfgx5aDMcA4orsTtKCqWb/Veyceqa5OGSmB28YwH4rFbkQaLoUN8OQQYnD3w2eXpI4ScQfbCUZiJ4yMOIKLyyTc7BQ4uXUw6Ee6/xM+4Y67ngNBknxIPwuppgIhFcwJyr6EIj+LzNj/mfR2vhhRlx0BILZoAYruF0caWQ7YxO66UmeguDREAFHYuC7HJviRgVO6ruJH59h/C/PkgSle8xNzZJULLWq9JMDTE2fjGE146a1Us6PZDGYle6ldWRqn/pdpgHKNGrGIdkRK+KPETT9nKT6kLyDI8xd9A1FgWmXWRAIHwZ37WyZHOVyCadJEmMVz0MadMjDrPho+EIochkVC2xgGiwwsQ6DMv2P7UXqT4x7CdcYGId2BJQQa85EQKmCmwcRejQ9Bm4oATENFPkxPXILHpMPUyWTI5rjNOsIlmEeMbcOCEqInpXACYQ9DDxmFo9vcmsDblcMtg4tqBerNngkIKaFJmrQAPnq1dEzsMXcwjcHdfdCibcAxxA+q/j9m3LM/O7WJka4tSidVCjsvo2lQ/2ewyoYyXwAYyr2PlRoR5MpgVmSUIrM3PQxXPbgjBOaDQFIyFMJvx3Pc5RSYj12ySVF9fwFPQu2e2KWVoL9q3Ayv3IzpGHUdvdPdrNUdicjsTQ2ISy7QU3DrEytIjvbzJnAkmANXjAFERA0MUoPF3/5KFmW14bBNOhwircYgMqoDpUMcDtCmBE82QM2YtdjVLB4kBuKho/bcwQdeboqfQartuU3CsCf+cXkgYAqp/0Ee3RorAZt0AvvOCSI4JICIlGlsV0bsSid/NIEALAAzb6HAgyWHBps6xAOwkJIGcB82CxRQq4sJf3FzA70A+TRqcqjEMETCoez3mkPcpnoALs0ugJY8kQwrC+JE5ik3w9rzrvDRjAQnqgEVvdGrNwlanR0SOKWzxOJOvLJhcd8Cl4AshACUkv9czdMkJCVQSQhp6kp7StAlpVRpK0t0SW6LHeBJnE2QchB5Ccu8kxRghZXGIgZIiSj7gEKMJDClcnX6hgoqJMwiQDigIXg3ioFLCgDgjPtYHYpsF5EiA4kcnN18MZtOrY866dEQAb0FB34OGKHGZQjwW/WDHA60cYFaI/PjpzquUqdaYGcIq+mLez3WLFFCtNBN2QJcrlcoELgiPku5R5dSlJFaCEqEZle1AQzAKC+1SotMcBNyQUFuRHRF6OlimSBgjZeTBCwLyc6A+P/oFRchXTz5ADknYJHxzrJ5pGuIKRQISU6WyKTBBjD8WozmVYWIsto1AS5rxzKlvJu4E/vwOiKxRtCWsDM+eTHUrmwrCK5BIfMzGkD+0Fk5LzBs0jMYXktNDblB06LMNJ09U8pzSLmo14MS0OMjcdrZ31pyQqxJJpRImlSvfYAK8inkYU52QY2FPEVsjoWewpwhRp5yAuNpkqhdb7ku9Seefl2D0B8SMTFD90xi4CSOwwZy9IKkpMtI3FmFUg3/kFutpQGNc3pCR7gvC4sgwbupDu3DyEN+W6YGLNM21jpB49irxy9BSlHrVDlnihGKHwPrbVFtc+h1rVQKZduxIyojccZIIcOCmhEnC7UkY68WXKQgLi2JCDQkQWJRQuk60hZp0D3rtCTINSeY9Ej2kIKYfGxwOs4j9qMM7fYZiipzgcf7TamnehqdhsiMiCawXnz4xAbyCkLAx5EGbo3Ax1u3dUIKnTxIaxwQTHehPl3V491H0+bC5zgpGz7Io+mjdhKlPJ01EeMpM7UsRJMi1nGjmJg35i6bQBAAxjO/ENJubU2mg3ONySEoWklCwdABETcs7ck3jgiuU9pcKKpbgn+3YlzV1FzIkB6pmEDOSSyDfPPlQskznctFji0kpgZjW5RZe6x9kYT4KJcXg0bNiCyif+pZACCyRMmYsfiKmN9tSO65F0R2OO6ytlEhY5Sj6uRKfFxw0ijJaAx/k3QgnAFSq27/2i4GEBA+UvTJKK/9eISNvG46Em5RZfjTYLdeD8kdXHyrwId/DQZUaMCY4gGbke2C8vfjgV/Y9kkRQOJIn/xM9INZSpiBnqX0Q9GlQPpPKAyO5y+W5NMPSRdBCUlmuxl40ZfMCnf2Cp044uI9WLFtCi4YVxKjuRCOBWIb4XbIsGdbo4qtMQnNOQz4XDSui7W/N6l54qOynCqD3DpWQ+mpD7C40D8BZEWGJX3tlAaZBMj1yjvDYKwCJBa201u6nBKE5UE+7QSEhCwrXfbRZylAaAkplhBWX50dumrElePyNMRYUrC99UmcSSNgImhFhDI4BXjMtiqkgizUGCrZ8iwFxU6fQ8GEHCFdLewwxYWxgScAYMdMLmcZR6b7rZl95eQVDGVoUKcRMM1ixXQtXNkBETZkVVPg8LoSrdetHzkuM7DjZRHP02tCxA1fmkXKF3VzfN1pc1cv/8lbTIkkYpqKM9VOhp65ktYk+Q46myFWBapDfyWUCnsnI00QTBQmuFjMZTcd0V2NQ768Fhpby04k2IzNR1wKabuGJqYWwSly6ocMFGTeeI+ejsWDYgEvr66QgqdcIbFYDNgsm0x9UHY6SCd5+7tpsLpKdvhahIDyYmEJQCqMqtCF6UlrE5GXRmbu+vtm3BFSxI6ND6UxIE7GsGMgWqghXxSnaRJuGFveTcK5ZVSPJyjUxe1dKgI6kNF7EZhIZs8y8FVqwEfbM0Xk2ltORVDKZZM40SD3qQoQe0orJEKwPfZwm3YPqwixhUMOndis6MhbmfvLBKjC8sKKIZKbJk8L11oNkCQzCgvjhyyEiQSuJcgCQSG4Mocfgc0Hkwcjal1UNgP0CBPikYqBIk9tONv4kLtBswH07vUCjEaHiFGlLf8MgXKzSgjp2HolRRccAOh0ILHz9qlGgIFkwAnzHJRjWFhlA7ROwINyB5HFj59PRZHFor6voq7l23EPNRwdWhgawqbivLSjRA4htEYUFkjESu67icTg5S0aW1sOkCiIysfJ9UnIWevOOLGpepcBxy1wEhd2WI3AZg7sr9WBmHWyasxMcvY/iOmsLtHSWNUWEGk9hScMPShasUA1AcHOtRZlqMeQ0OzYS9vQvYUjOLrzP07BUAFikcJNMi7gIxEw4pL1G54TcmmmoAQ5s7TGWErJZ2Io4yQ0ljRYhL8H5e62oDtLF8aDpnIvZ5R3GWJyAugdiiJW9hQAVTsnCBHhwu7rkBlBX6r3b7ejEY0k5GGeyKv66v+6dg7mcJTrWHbtMywbedYqCQ0FPwoytmSWsL8WTtChZCKKzEF7vP6De4x2BJkkniMgSdWhbeBSLtJZR9CTHetK1xb34AYIJ37OegYIoPVbXgJ/qDQK+bfCtxQRVKQu77WzOoM6SGL7MaZwCGJVk46aImai9fmam+WpHG+0BtQPWUgZ7RIAlPq6lkECUhZQ2gqWkMYKcYMYaIc4gYCDFHYa2d1nzp3+J1eCBay8IYZ0wQRKGAqvCuZ/UgbQPyllosq+XtfKIZOzmeJqRazpmmoP/76YfkjzV2NlXTDSBYB04SVlNQsFTbGPk1t/I4Jktu0XSgifO2ozFOiwd/0SssJDn0dn4xqk4GDTTKX73/wQyBLdqgJ+Wx6AQaba3BA9CKEzjtQYIfAsiYamapq80LAamYjinlKXUkxdpIDk0puXUEYzSalfRibAeDAKpNiqQ0FTwoxuGYzRnisyTotdVTclis1LHRQCy/qqL8oUaQzWRxilq5Mi0IJGtMY02cGLD69vGjkj3p6pGePKI8bkBv5evq8SjjyU04vJR2cQXQwSJyoinDsUJHCQ50jrFTT7yRdbdYQMB3MYCb6uBzJ9ewhXYPAIZSXfeEQBZZ3GPN3Nbhh/wkvAJLXnQMdi5NYYZ5GHE400GS5rXkOZSQsdZgIbzRnF9ueLnsfQ47wHAsirITnTlkCcuWWIUhJSbpM3wWhXNHvt2xUsKKMpdBSbJnBMcihkoDqAd1Zml/R4yrzow1Q2A5G+kzo/RhRxQS2lCSDRV8LlYLBOOoo1bF4jwJAwKMK1tWLHlu9i0j4Ig8qVm6wE1DxXwAwQwsaBWUg2pOOol2dHxyt6npwJEdLDDVYyRc2D0HbcbLUJQj8gPevQBUBOUHXPrsAPBERICpnYESeu2OHotpXQxRGlCCtLdIsu23MhZVEoJg8Qumj/UMMc34IBqTKLDTp76WzL/dMjCxK7MjhiGjeYAC/kj/jY/Rde7hpSM1xChrog6yZ7OWTuD56xBJnGFE+pT2ElSyCnJcwVzCjkqeNLfMEJqKW0G7OFIp0G+9mh50I9o8k1tpCY0xYqFNIALgIfc2me4n1bmJnRZ89oepgLPT0NTMLNZsvSCZAc3TXaNB07vail36/dBySis4m9/DR8izaLJW6bWCkVgm5T+ius3ZXq4xI+GnbveLbdRwF2mNtsrE0JjYc1AXknCOrLSu7Te/r4dPYMCl5qtiHNTn+TPbh1jCBHH+dMJNhwNgs3nT+OhQoQ0vYif56BMG6WowAcHR3DjQolxLzyVekHj00PBAaW7IIAF1EF+uRIWyXjQMAs2chdpaKPNaB+kSezYt0+CA04sOg5vx8Fr7Ofa9sUv87h7SLAUFSzbetCCZ9pmyLt6l6/TzoA1/ZBG9bIUVHLAbi/kdBFgYGyGwRQGBpkqCEg2ah9UD6EedEcEL3j4y0BQQCiExEnocA3SZboh+epgd3YsOkHskZwPuQ5OoyA0fTA5AXrHcUOQF+zkJHIA7PwCDk1gGVmGUZSSoPhNf+Tklauz98QofOlCIQ/tCD4dosHYPqtPCXB3agggQQIqQJsSkB+qn0rkQ1toJjON/OtCIB9RYv3PqRA4C4U68ZMlZn6BdgEvi2ziU+TQ6NIw3ej+AtDwMGEZk7e2IjxUWKdAxyaw9OCwSmeADTPPleyk6UhGDNXQb++W6Uk4q6F7/rg6WVTo82IoCxSIsFDrav4EPHphD3u4hR53WKVvYZUwNCCeM4PMBWzK+EfIthZOkuAwPo5C5jgoZgn6dUdvx5rIDmd58cXXdKNfw3l+wM2UjgrDJeQHhbD7HW2QDoZMCujgIUkk5Fg8VCsdyjOtnGRx8wgKRPZN5dR0zPUyfGZFVihbFRniXZFOZGKPnEQzU3AnD1KfR6weHW2XS6KbPJxUkOTZsAB9vTVp3Le1F8q5l+DMcLiIq78jxAImD2pGFw0VHfRatScGlK6SMu8leTmhUSMy8Uhdd6xBiH3Gdman4tjQGLboJfqz6fL2WKHTmrfsKZRYX6BTDjDldKMosaSTLdQS7oDisJNqAUhw1PfTlnacCO8vl8706Km1FROgLDmudzxg+EWTiArtHgLsRrAXYWdB0NmToNCJdKm0KWycZQqb+Mw76Qy29iQ5up/X7oyw8QZ75kP5F6iJAJz6KCmqxz8fEa/xnsMYcIO/vEkGRuMckhr4rIeLrKaXnmIzlNLxbFspOphkcnJdnz/Chp/Vlpj2P7jJQmQRwGnltkTV5dbF9fE3/fxoSqTROgq9wFUlbuYzYcasE0ouzBo+dDCDzxKAfhbAZYxQiHrLzV2iVexnDX/QnT1fsT/xuhu1ui5qIytgbGmRoQkeQooO8eJNNZsf0iALur8QxZFH0nCMnjerYQqG1pIfjyVZWxhVRznmmfLG00BcBWJE6hzQWRyFknuJnXuk8A5FRDCulwrWASSNoBtR+CtGdkPwYN2o7DOw/VGlCZPusRBFXODQdUM5zeHDIVuAJBLqbO/f9Qua+pDqEPk230Sob9lEZ8BHiCorjVghuI0lI4JDgHGRDD/prQ84B1pVGkIpVUAHCG+iz3Bn3qm2AVrYcYWhock4jso5+J7HfHVj4WMIQdGctq3psBCVVzupQOEioBGA2Bk+UILT7+VoX5mdxxA5fS42gISQVi/HTzrgMxu0fY6hE1ocUwwbsbWcezrY2n6S8/6cxXkOH4prpmPuFoikTzY7T85C4T2XYlbxLglSv2uLCgFv8Quk/wdesUdWPeHYIH0R729JIisN9Apdd4eB10aqwXrPt+Su9mA8k8n1sjMwnfsfF2j3jMUzXepSHmZ/BfqXvzgUNQQWOXO8YEuFBh4QTYCkOAPxywpYu1VxiDyJmKVcmJPGWk/gc3Pov02StyYDahwmzw3E1gYC9wkupyWfDqDSUMpCTH5e5N8B//lHiMuIkTNw4USHrJU67bjXGqNav6PBuQSoqTxc8avHoGmvqNtXzIaoyMIQIiiUHIM64cXieouplhNYln7qgc4wBVAYR104kO+CvKqsg4yIUlFNThVUAKZxZt1XA34h3TCUUiXVkZ0w8Hh2R0Z5L0b4LZvPd/p1gi/07h8qfwHrByuSxglc9cI4QIg2oqvC/qm0i7tjPLTgDhoWTAKDO2ONW5oe+/eKB9vZB8K6C25yCZ9RFVMnb6NRdRjyVK57CHHSkJBfnM2/j4ODUwRkqrtBBCrDsDpt8jhZdXoy/1BCqw3sSGhgGGy0a5Jw6BP/TExoCmNFYjZl248A0osgPyGEmRA+fAsqPVaNAfytu0vuQJ7rk3J4kTDTR2AlCHJ5cls26opZM4w3jMULh2YXKpcqGBtuleAlOZnaZGbD6DHzMd6i2oFeJ8z9XYmalg1Szd/ocZDc1C7Y6vcALJz2lYnTXiWEr2wawtoR4g3jvWUU2Ngjd1cewtFzEvM1NiHZPeLlIXFbBPawxNgMwwAlyNSuGF3zizVeOoC9bag1qRAQKQE/EZBWC2J8mnXAN2aTBboZ7HewnObE8CwROudZHmUM5oZ/Ugd/JZQK8lvAm43uDRAbyW8gZ+ZGq0EVerVGUKUSm/Idn8AQHdR4m7bue88WBwft9mSCeMOt1ncBwziOmJYI2ZR7ewNMPiCugmSsE4EyQ+QATJG6qORMGd4snEzc6B4shPIo4G1T7PgSm8PY5eUkPdF8JZ0VBtadbHXoJgnEhZQaODPj2gpODKJY5Yp4DOsLBFxWbvXN755KWylJm+oOd4zEL9Hpubuy2gyyfxh8oEfFutnYWdfB8PdESLWYvSqbElP9qo3u6KTmkhoacDauMNNjj0oy40DFV7Ql0aZj77xfGl7TJNHnIwgqOkenruYYNo6h724+zUQ7+vkCpZB+pGA562hYQiDxHVWOq0oDQl/QsoiY+cuI7iWq/ZIBtHcXJ7kks+h2fCNUPA82BzjnqktNts+RLdk1VSu+tqEn7QZCCsvEqk6FkfiOYkrsw092J8jsfIuEKypNjLxrKA9kiA19mxBD2suxQKCzwXGws7kEJvlhUiV9tArLIdZW0IORcxEzdzKmjtFhsjKy/44XYXdI5noQoRcvjZ1RMPACRqYg2V1+OwOepcOknRLLFdYgTkT5UApt/JhLM3jeFYprZV+Zow2g8fP+U68hkKFWJj2yBbKqsrp25xkZX1DAjUw52IMYWaOhab8Kp05VrdNftqwRrymWF4OQSjbdfzmRZirK8FMJELEgER2PHjEAN9pGfLhCUiTJFbd5LBkOBMaxLr/A1SY9dXFz4RjzoU9ExfJCmx/I9FKEGT3n2cmzl2X42L3Jh+AbQq6sA+Ss1kitoa4TAYgKHaoybHUDJ51oETdeI/9ThSmjWGkyLi5QAGWhL0BG1UsTyRGRJOldKBrYJeB8ljLJHfATWTEQBXBDnQexOHTB+Un44zExFE4vLytcu5NwpWrUxO/0ZICUGM7hGABXym0V6ZvDST0E370St9MIWQOTWngeoQHUTdCJUP04spMBMS8LSker9cReVQkULFDIZDFPrhTzBl6sed9wcZQTbL+BDqMyaN3RJPh/anbx+Iv+qgQdAa3M9Z5JmvYlh4qop+Ho1F1W5gbOE9YKLgAnWytXElU4G8GtW47lhgFE6gaSs+gs37sFvi0PPVvA5dnCBgILTwoKd/+DoL9F6inlM7H4rOTzD79KJgKlZO/Zgt22UsKhrAaXU5ZcLrAglTVKJEmNJvORGN1vqrcfSMizfpsgbIe9zno+gBoKVXgIL/VI8dB1O5o/R3Suez/gD7M781ShjKpIIORM/nxG+jjhhgPwsn2IoXsPGPqYHXA63zJ07M2GPEykQwJBYLK808qYxuIew4frk52nhCsnCYmXiR6CuapvE1IwRB4/QftDbEn+AucIr1oxrLabRj9q4ae0+fXkHnteAJwXRbVkR0mctVSwEbqhJiMSZUp9DNbEDMmjX22m3ABpkrPQQTP3S1sib5pD2VRKRd+eNAjLYyT0hGrdjWJZy24OYXRoWQAIhGBZRxuBFMjjZQhpgrWo8SiFYbojcHO8V5DyscJpLTHyx9Fimassyo5U6WNtquUMYgccaHY5amgR3PQzq3ToNM5ABnoB9kuxsebqmYZm0R9qxJbFXCQ1UPyFIbxoUraTJFDpCk0Wk9GaYJKz/6oHwEP0Q14lMtlddQsOAU9zlYdMVHiT7RQP3XCmWYDcHCGbVRHGnHuwzScA0BaSBOGkz3lM8CArjrBsyEoV6Ys4qgDK3ykQQPZ3hCRGNXQTNNXbEb6tDiTDLKOyMzRhCFT+mAUmiYbV3YQVqFVp9dorv+TsLeCykS2b5yyu8AV7IS9cxcL8z4Kfwp+xJyYLv1OsxQCZwTB4a8BZ/5EdxTBJthApqyfd9u3ifr/WILTqq5VqgwMT9SOxbSGWLQJUUWCVi4k9tho9nEsbUh7U6NUsLmkYFXOhZ0kmamaJLRNJzSj/qn4Mso6zb6iLLBXoaZ6AqeWCjHQm2lztnejYYM2eubnpBdKVLORZhudH3JF1waBJKA9+W8EhMj3Kzf0L4vi4k6RoHh3Z5YgmSZmk6ns4fjScjAoL8GoOECgqgYEBYUGFVO4FUv4/YtowhEmTs0vrvlD/CrisnoBNDAcUi/teY7OctFlmARQzjOItrrlKuPO6E2Ox93L4O/4DcgV/dZ7qR3VBwVQxP1GCieA4RIpweYJ5FoYrHxqRBdJjnqbsikA2Ictbb8vE1GYIo9dacK0REgDX4smy6GAkxlH1yCGGsk+tgiDhNKuKu3yNrMdxafmKTF632F8Vx4BNK57GvlFisrkjN9WDAtjsWA0ENT2e2nETUb/n7qwhvGnrHuf5bX6Vh/n3xffU3PeHdR+FA92i6ufT3AlyAREoNDh6chiMWTvjKjHDeRhOa9YkOQRq1vQXEMppAQVwHCuIcV2g5rBn6GmZZpTR7vnSD6ZmhdSl176gqKTXu5E+YbfL0adwNtHP7dT7t7b46DVZIkzaRJOM+S6KcrzYVg+T3wSRFRQashjfU18NutrKa/7PXbtuJvpIjbgPeqd+pjmRw6YKpnANFSQcpzTZgpSNJ6J7uiagAbir/8tNXJ/OsOnRh6iuIexxrmkIneAgz8QoLmiaJ8sLQrELVK2yn3wOHp57BAZJhDZjTBzyoRAuuZ4eoxHruY1pSb7qq79cIeAdOwin4GdgMeIMHeG+FZWYaiUQQyC5b50zKjYw97dFjAeY2I4Bnl105Iku1y0lMA1ZHolLx19uZnRdILcXKlZGQx/GdEqSsMRU1BIrFqRcV1qQOOHyxOLXEGcbRtAEsuAC2V4K3p5mFJ22IDWaEkk9ttf5Izb2LkD1MnrSwztXmmD/Qi/EmVEFBfiKGmftsPwVaIoZanlKndMZsIBOskFYpDOq3QUs9aSbAAtL5Dbokus2G4/asthNMK5UQKCOhU97oaOYNGsTah+jfCKsZnTRn5TbhFX8ghg8CBYt/BjeYYYUrtUZ5jVij/op7V5SsbA4mYTOwZ46hqdpbB6Qvq3AS2HHNkC15pTDIcDNGsMPXaBidXYPHc6PJAkRh29Vx8KcgX46LoUQBhRM+3SW6Opll/wgxxsPgKJKzr5QCmwkUxNbeg6Wj34SUnEzOemSuvS2OetRCO8Tyy+QbSKVJcqkia+GvDefFwMOmgnD7h81TUtMn+mRpyJJ349HhAnoWFTejhpYTL9G8N2nVg1qkXBeoS9Nw2fB27t7trm7d/QK7Cr4uoCeOQ7/8JfKT77KiDzLImESHw/0wf73QeHu74hxv7uihi4fTX+XEwAyQG3264dwv17aJ5N335Vt9sdrAXhPOAv8JFvzqyYXwfx8WYJaef1gMl98JRFyl5Mv5Uo/oVH5ww5OzLFsiTPDns7fS6EURSSWd/92BxMYQ8sBaH+j+wthQPdVgDGpTfi+JQIWMD8xKqULliRH01rTeyF8x8q/GBEEEBrAJMPf25UQwi0b8tmqRXY7kIvNkzrkvRWLnxoGYEJsz8u4oOyMp8cHyaybb1HdMCaLApUE+/7xLIZGP6H9xuSEXp1zLIdjk5nBaMuV/yTDRRP8Y2ww5RO6d2D94o+6ucWIqUAvgHIHXhZsmDhjVLczmZ3ca0Cb3PpKwt2UtHVQ0BgFJsqqTsnzZPlKahRUkEu4qmkJt+kqdae76ViWe3STan69yaF9+fESD2lcQshLHWVu4ovItXxO69bqC5p1nZLvI8NdQB9s9UNaJGlQ5mG947ipdDA0eTIw/A1zEdjWquIsQXXGIVEH0thC5M+W9pZe7IhAVnPJkYCCXN5a32HjN6nsvokEqRS44tGIs7s2LVTvcrHAF+RVmI8L4HUYk4x+67AxSMJKqCg8zrGOgvK9kNMdDrNiUtSWuHFpC8/p5qIQrEo/H+1l/0cAwQ2nKmpWxKcMIuHY44Y6DlkpO48tRuUGBWT0FyHwSKO72Ud+tJUfdaZ4CWNijzZtlRa8+CkmO/EwHYfPZFU/hzjFWH7vnzHRMo+aF9u8qHSAiEkA2HjoNQPEwHsDKOt6hOoK3Ce/+/9boMWDa44I6FrQhdgS7OnNaSzwxWKZMcyHi6LN4WC6sSj0qm2PSOGBTvDs/GWJS6SwEN/ULwpb4LQo9fYjUfSXRwZkynUazlSpvX9e+G2zor8l+YaMxSEomDdLHGcD6YVQPegTaA74H8+V4WvJkFUrjMLGLlvSZQWvi8/QA7yzQ8GPno//5SJHRP/OqKObPCo81s/+6WgLqykYpGAgQZhVDEBPXWgU/WzFZjKUhSFInufPRiMAUULC6T11yL45ZrRoB4DzOyJShKXaAJIBS9wzLYIoCEcJKQW8GVCx4fihqJ6mshBUXSw3wWVj3grrHQlGNGhIDNNzsxQ3M+GWn6ASobIWC+LbYOC6UpahVO13Zs2zOzZC8z7FmA05JhUGyBsF4tsG0drcggIFzgg/kpf3+CnAXKiMgIE8Jk/Mhpkc8DUJEUzDSnWlQFme3d0sHZDrg7LavtsEX3cHwjCYA17pMTfx8Ajw9hHscN67hyo+RJQ4458RmPywXykkVcW688oVUrQhahpPRvTWPnuI0B+SkQu7dCyvLRyFYlC1LG1gRCIvn3rwQeINzZQC2KXq31FaR9UmVV2QeGVqBHjmE+VMd3b1fhCynD0pQNhCG6/WCDbKPyE7NRQzL3BzQAJ0g09aUzcQA6mUp9iZFK6Sbp/YbHjo++7/Wj8S4YNa+ZdqAw1hDrKWFXv9+zaXpf8ZTDSbiqsxnwN/CzK5tPkOr4tRh2kY3Bn9JtalbIOI4b3F7F1vPQMfoDcdxMS8CW9m/NCW/HILTUVWQIPiD0j1A6bo8vsv6P1hCESl2abrSJWDrq5sSzUpwoxaCU9FtJyYH4QFMxDBpkkBR6kn0LMPO+5EJ7Z6bCiRoPedRZ/P0SSdii7ZnPAtVwwHUidcdyspwncz5uq6vvm4IEDbJVLUFCn/LvIHfooUBTkFO130FC7CmmcrKdgDJcid9mvVzsDSibOoXtIf9k6ABle3PmIxejodc4aob0QKS432srrCMndbfD454q52V01G4q913mC5HOsTzWF4h2No1av1VbcUgWAqyoZl+11PoFYnNv2HwAODeNRkHj+8SF1fcvVBu6MrehHAZK1Gm69ICcTKizykHgGFx7QdowTVAsYEF2tVc0Z6wLryz2FI1sc5By2znJAAmINndoJiB4sfPdPrTC8RnkW7KRCwxC6YvXg5ahMlQuMpoCSXjOlBy0Kij+bsCYPbGp8BdCBiLmLSAkEQRaieWo1SYvZIKJGj9Ur/eWHjiB7SOVdqMAVmpBvfRiebsFjger7DC+8kRFGtNrTrnnGD2GAJb8rQCWkUPYHhwXsjNBSkE6lGWUj5QNhK0DMNM2l+kXRZ0KLZaGsFSIdQz/HXDxf3/TE30+DgBKWGWdxElyLccJfEpjsnszECNoDGZpdwdRgCixeg9L4EPhH+RptvRMVRaahu4cySjS3P5wxAUCPkmn+rhyASpmiTaiDeggaIxYBmtLZDDhiWIJaBgzfCsAGUF1Q1SFZYyXDt9skCaxJsxK2Ms65dmdp5WAZyxik/zbrTQk5KmgxCg/f45L0jywebOWUYFJQAJia7XzCV0x89rpp/f3AVWhSPyTanqmik2SkD8A3Ml4NhIGLAjBXtPShwKYfi2eXtrDuKLk4QlSyTw1ftXgwqA2jUuopDl+5tfUWZNwBpEPXghzbBggYCw/dhy0ntds2yeHCDKkF/YxQjNIL/F/37jLPHCKBO9ibwYCmuxImIo0ijV2Wbg3kSN2psoe8IsABv3RNFaF9uMyCtCYtqcD+qNOhwMlfARQUdJ2tUX+MNJqOwIciWalZsmEjt07tfa8ma4cji9sqz+Q9hWfmMoKEbIHPOQORbhQRHIsrTYlnVTNvcq1imqmmPDdVDkJgRcTgB8Sb6epCQVmFZe+jGDiNJQLWnfx+drTKYjm0G8yH0ZAGMWzEJhUEQ4Maimgf/bkvo8PLVBsZl152y5S8+HRDfZIMCbYZ1WDp4yrdchOJw8k6R+/2pHmydK4NIK2PHdFPHtoLmHxRDwLFb7eB+M4zNZcB9NrAgjVyzLM7xyYSY13ykWfIEEd2n5/iYp3ZdrCf7fL+en+sIJu2W7E30MrAgZBD1rAAbZHPgeAMtKCg3NpSpYQUDWJu9bT3V7tOKv+NRiJc8JAKqqgCA/PNRBR7ChpiEulyQApMK1AyqcWnpSOmYh6yLiWkGJ2mklCSPIqN7UypWj3dGi5MvsHQ87MrB4VFgypJaFriaHivwcHIpmyi5LhNqtem4q0n8awM19Qk8BOS0EsqGscuuydYsIGsbT5GHnERUiMpKJl4ON7qjB4fEqlGN/hCky89232UQCiaeWpDYCJINXjT6xl4Gc7DxRCtgV0i1ma4RgWLsNtnEBRQFqZggCLiuyEydmFd7WlogpkCw5G1x4ft2psm3KAREwVwr1Gzl6RT7FDAqpVal34ewVm3VH4qn5mjGj+bYL1NgfLNeXDwtmYSpwzbruDKpTjOdgiIHDVQSb5/zBgSMbHLkxWWgghIh9QTFSDILixVwg0Eg1puooBiHAt7DzwJ7m8i8/i+jHvKf0QDnnHVkVTIqMvIQImOrzCJwhSR7qYB5gSwL6aWL9hERHCZc4G2+JrpgHNB8eCCmcIWIQ6rSdyPCyftXkDlErUkHafHRlkOIjxGbAktz75bnh50dU7YHk+Mz7wwstg6RFZb+TZuSOx1qqP5C66c0mptQmzIC2dlpte7vZrauAMm/7RfBYkGtXWGiaWTtwvAQiq2oD4YixPLXE2khB2FRaNRDTk+9sZ6K74Ia9VntCpN4BhJGJMT4Z5c5FhSepRCRWmBXqx+whVZC4me4saDs2iNqXMuCl6iAZflH8fscC1sTsy4PHeC+XYuqMBMUun5YezKbRKmEPwuK+CLzijPEQgfhahQswBBLfg/GBgBiI4QwAqzJkkyYAWtjzSg2ILgMAgqxYfwERRo3zruBL9WOryUArSD8sQOcD7fvIODJxKFS615KFPsb68USBEPPj1orNzFY2xoTtNBVTyzBhPbhFH0PI5AtlJBl2aSgNPYzxYLw7XTDBDinmVoENwiGzmngrMo8OmnRP0Z0i0Zrln9DDFcnmOoBZjABaQIbPOJYZGqX+RCMlDDbElcjaROLDoualmUIQ88Kekk3iM4OQrADcxi3rJguS4MOIBIgKgXrjd1WkbCdqxJk/4efRIFsavZA7KvvJQqp3Iid5Z0NFc5aiMRzGN3vrpBzaMy4JYde3wr96PjN90AYOIbyp6T4zj8LoE66OGcX1Ef4Z3KoWLAUF4BTg7ug/AbkG5UNQXAMkQezujSHeir2uTThgd3gpyzDrbnEdDRH2W7U6PeRvBX1ZFMP5RM+Zu6UUZZD8hDPHldVWntTCNk7To8IeOW9yn2wx0gmurwqC60AOde4r3ETi5pVMSDK8wxhoGAoEX9NLWHIR33VbrbMveii2jAJlrxwytTHbWNu8Y4N8vCCyZjAX/pcsfwXbLze2+D+u33OGBoJyAAL3jn3RuEcdp5If8O+a4NKWvxOTyDltG0IWoHhwVGe7dKkCWFT++tm+haBCikRUUMrMhYKZJKYoVuv/bsJzO8DwfVIInQq3g3BYypiz8baogH3r3GwqCwFtZnz4xMjAVOYnyOi5HWbFA8n0qz1OjSpHWFzpQOpvkNETZBGpxN8ybhtqV/DMUxd9uFZmBfKXMCn/SqkWJyKPnT6lq+4zBZni6fYRByJn6OK+OgPBGRAJluwGSk4wxjOOzyce/PKODwRlsgrVkdcsEiYrqYdXo0Er2GXi2GQZd0tNJT6c9pK1EEJG1zgDJBoTVuCXGAU8BKTvCO/cEQ1Wjk3Zzuy90JX4m3O5IlxVFhYkSUwuQB2up7jhvkm+bddRQu5F9s0XftGEJ9JSuSk+ZachCbdU45fEqbugzTIUokwoAKvpUQF/CvLbWW5BNQFqFkJg2f30E/48StNe5QwBg8zz3YAJ82FZoXBxXSv4QDooDo79NixyglO9AembuBcx5Re3CwOKTHebOPhkmFC7wNaWtoBhFuV4AkEuJ0J+1pT0tLkvFVZaNzfhs/Kd3+A9YsImlO4XK4vpCo/elHQi/9gkFg07xxnuXLt21unCIpDV+bbRxb7FC6nWYTsMFF8+1LUg4JFjVt3vqbuhHmDKbgQ4e+RGizRiO8ky05LQGMdL2IKLSNar0kNG7lHJMaXr5mLdG3nykgj6vB/KVijd1ARWkFEf3yiUw1v/WaQivVUpIDdSNrrKbjO5NPnxz6qTTGgYg03HgPhDrCFyYZTi3XQw3HXCva39mpLNFtz8AiEhxAJHpWX13gCTAwgm9YTvMeiqetdNQv6IU0hH0G+ZManTqDLPjyrOse7WiiwOJCG+J0pZYULhN8NILulmYYvmVcV2MjAfA39sGKqGdjpiPo86fecg65UPyXDIAOyOkCx5NQsLeD4gGVjTVDwOHWkbbBW0GeNjDkcSOn2Nq4cEssP54t9D749A7M1AIOBl0Fi0sSO5v3P7LCBrM6ZwFY6kp2FX6AcbGUdybnfChHPyu6WlRZ2Fwv9YM0RMI7kISRgR8HpQSJJOyTfXj/6gQKuihPtiUtlCQVPohUgzfezTg8o1b3n9pNZeco1QucaoXe40Fa5JYhqdTspFmxGtW9h5ezLFZs3j/N46f+S2rjYNC2JySXrnSAFhvAkz9a5L3pza8eYKHNoPrvBRESpxYPJdKVUxBE39nJ1chrAFpy4MMkf0qKgYALctGg1DQI1kIymyeS2AJNT4X240d3IFQb/0jQbaHJ2YRK8A+ls6WMhWmpCXYG5jqapGs5/eOJErxi2/2KWVHiPellTgh/fNl/2KYPKb7DUcAg+mCOPQFCiU9Mq/WLcU1xxC8aLePFZZlE+PCLzf7ey46INWRw2kcXySR9FDgByXzfxiNKwDFbUSMMhALPFSedyjEVM5442GZ4hTrsAEvZxIieSHGSgkwFh/nFNdrrFD4tBH4Il7fW6ur4J8Xaz7RW9jgtuPEXQsYk7gcMs2neu3zJwTyUerHKSh1iTBkj2YJh1SSOZL5pLuQbFFAvyO4k1Hxg2h99MTC6cTUkbONQIAnEfGsGkNFWRbuRyyaEZInM5pij73EA9rPIUfU4XoqQpHT9THZkW+oKFLvpyvTBMM69tN1Ydwv1LIEhHsC+ueVG+w+kyCPsvV3erRikcscHjZCkccx6VrBkBRusTDDd8847GA7p2Ucy0y0HdSRN6YIBciYa4vuXcAZbQAuSEmzw+H/AuOx+aH+tBL88H57D0MsqyiZxhOEQkF/8DR1d2hSPMj/sNOa5rxcUnBgH8ictv2J+cb4BA4v3MCShdZ2vtK30vAwkobnEWh7rsSyhmos3WC93Gn9C4nnAd/PjMMtQfyDNZsOPd6XcAsnBE/mRHtHEyJMzJfZFLE9OvQa0i9kUmToJ0ZxknTgdl/XPV8xoh0K7wNHHsnBdvFH3sv52lU7UFteseLG/VanIvcwycVA7+BE1Ulyb20BvwUWZcMTKhaCcmY3ROpvonVMV4N7yBXTL7IDtHzQ4CCcqF66LjF3xUqgErKzolLyCG6Kb7irP/MVTCCwGRxfrPGpMMGvPLgJ881PHMNMIO09T5ig7AzZTX/5PLlwnJLDAPfuHynSGhV4tPqR3gJ4kg4c06c/F1AcjGytKm2Yb5jwMotF7vro4YDLWlnMIpmPg36NgAZsGA0W1spfLSue4xxat0Gdwd0lqDBOgIaMANykwwDKejt5YaNtJYIkrSgu0KjIg0pznY0SCd1qlC6R19g97UrWDoYJGlrvCE05J/5wkjpkre727p5PTRX5FGrSBIfJqhJE/IS876PaHFkx9pGTH3oaY3jJRvLX9Iy3Edoar7cFvJqyUlOhAEiOSAyYgVEGkzHdug+oRHIEOXAExMiTSKU9A6nmRC8mp8iYhwWdP2U/5EkFAdPrZw03YA3gSyNUtMZeh7dDCu8pF5x0VORCTgKp07ehy7NZqKTpIC4UJJ89lnboyAfy5OyXzXtuDRbtAFjZRSyGFTpFrXwkpjSLIQIG3N0Vj4BtzK3wdlkBJrO18MNsgseR4BysJilI0wI6ZahLhBFA0XBmV8d4LUzEcNVb0xbLjLTETYN8OEVqNxkt10W614dd1FlFFVTIgB7/BQQp1sWlNolpIu4ekxUTBV7NmxOFKEBmmN+nA7pvF78/RII5ZHA09OAiE/66MF6HQ+qVEJCHxwymukkNvzqHEh52dULPbVasfQMgTDyBZzx4007YiKdBuUauQOt27Gmy8ISclPmEUCIcuLbkb1mzQSqIa3iE0PJh7UMYQbkpe+hXjTJKdldyt2mVPwywoODGJtBV1lJTgMsuSQBlDMwhEKIfrvsxGQjHPCEfNfMAY2oxvyKcKPUbQySkKG6tj9AQyEW3Q5rpaDJ5Sns9ScLKeizPRbvWYAw4bXkrZdmB7CQopCH8NAmqbuciZChHN8lVGaDbCnmddnqO1PQ4ieMYfcSiBE5zzMz+JV/4eyzrzTEShvqSGzgWimkNxLvUj86iAwcZuIkqdB0VaIB7wncLRmzHkiUQpPBIXbDDLHBlq7vp9xwuC9AiNkIptAYlG7Biyuk8ILdynuUM1cHWJgeB+K3wBP/ineogxkvBNNQ4AkW0hvpBOQGFfeptF2YTR75MexYDUy7Q/9uocGsx41O4IZhViw/2FvAEuGO5g2kyXBUijAggWM08bRhXg5ijgMwDJy40QeY/cQpUDZiIzmvskQpO5G1zyGZA8WByjIQU4jRoFJt56behxtHUUE/om7Rj2psYXGmq3llVOCgGYKNMo4pzwntITtapDqjvQtqpjaJwjHmDzSVGLxMt12gEXAdLi/caHSM3FPRGRf7dB7YC+cD2ho6oL2zGDCkjlf/DFoQVl8GS/56wur3rdV6ggtzZW60MRB3g+U1W8o8cvqIpMkctiGVMzXUFI7FacFLrgtdz4mTEr4aRAaQ2AFQaNeG7GX0yOJgMRYFziXdJf24kg/gBQIZMG/YcPEllRTVNoDYR6oSJ8wQNLuihfw81UpiKPm714bZX1KYjcXJdfclCUOOpvTxr9AAJevTY4HK/G7F3mUc3GOAKqh60zM0v34v+ELyhJZqhkaMA8UMMOU90f8RKEJFj7EqepBVwsRiLbwMo1J2zrE2UYJnsgIAscDmjPjnzI8a719Wxp757wqmSJBjXowhc46QN4RwKIxqEE6E5218OeK7RfcpGjWG1jD7qND+/GTk6M56Ig4yMsU6LUW1EWE+fIYycVV1thldSlbP6ltdC01y3KUfkobkt2q01YYMmxpKRvh1Z48uNKzP/IoRIZ/F6buOymSnW8gICitpJjKWBscSb9JJKaWkvEkqinAJ2kowKoqkqZftRqfRQlLtKoqvTRDi2vg/RrPD/d3a09J8JhGZlEkOM6znTsoMCsuvTmywxTCDhw5dd0GJOHCMPbsj3QLkTE3MInsZsimDQ3HkvthT7U9VA4s6G07sID0FW4SHJmRGwCl+Mu4xf0ezqeXD2PtPDnwMPo86sbwDV+9PWcgFcARUVYm3hrFQrHcgMElFGbSM2A1zUYA3baWfheJp2AINmTJLuoyYD/OwA4a6V0ChBN97E8YtDBerUECv0u0TlxR5yhJCXvJxgyM73Bb6pyq0jTFJDZ4p1Am1SA6sh8nADd1hAcGBMfq4d/UfwnmBqe0Jun1n1LzrgKuZMAnxA3NtCN7Klf4BH+14B7ibBmgt0TGUafVzI4uKlpF7v8NmgNjg90D6QE3tbx8AjSAC+OA1YJvclyPKgT27QpIEgVYpbPYGBsnyCNrGz9XUsCHkW1QAHgL2STZk12QGqmvAB0NFteERkvBIH7INDsNW9KKaAYyDMdBEMzJiWaJHZALqDxQDWRntumSDPcplyFiI1oDpT8wbwe01AHhW6+vAUUBoGhY3CT2tgwehdPqU/4Q7ZLYvhRl/ogOvR9O2+wkkPKW5vCTjD2fHRYXONCoIl4Jh1bZY0ZE1O94mMGn/dFSWBWzQ/VYk+Gezi46RgiDv3EshoTmMSlioUK6MQEN8qeyK6FRninyX8ZPeUWjjbMJChn0n/yJvrq5bh5UcCAcBYSafTFg7p0jDgrXo2QWLb3WpSOET/Hh4oSadBTvyDo10IufLzxiMLAnbZ1vcUmj3w7BQuIXjEZXifwukVxrGa9j+DXfpi12m1RbzYLg9J2wFergEwOxFyD0/JstNK06ZN2XdZSGWxcJODpQHOq4iKqjqkJUmPu1VczL5xTGUfCgLEYyNBCCbMBFT/cUP6pE/mujnHsSDeWxMbhrNilS5MyYR0nJyzanWXBeVcEQrRIhQeJA6Xt4f2eQESNeLwmC10WJVHqwx8SSyrtAAjpGjidcj1E2FYN0LObUcFQhafUKTiGmHWRHGsFCB+HEXgrzJEB5bp0QiF8ZHh11nFX8AboTD0PS4O1LqF8XBks2MpjsQnwKHF6HgaKCVLJtcr0XjqFMRGfKv8tmmykhLRzu+vqQ02+KpJBjaLt9ye1Ab+BbEBhy4EVdIJDrL2naV0o4wU8YZ2Lq04FG1mWCKC+UwkXOoAjneU/xHplMQo2cXUlrVNqJYczgYlaOEczVCs/OCgkyvLmTmdaBJc1iBLuKwmr6qtRnhowngsDxhzKFAi02tf8bmET8BO27ovJKF1plJwm3b0JpMh38+xsrXXg7U74QUM8ZCIMOpXujHntKdaRtsgyEZl5MClMVMMMZkZLNxH9+b8fH6+b8Lev30A9TuEVj9CqAdmwAAHBPbfOBFEATAPZ2CS0OH1Pj/0Q7PFUcC8hDrxESWdfgFRm+7vvWbkEppHB4T/1ApWnlTIqQwjcPl0VgS1yHSmD0OdsCVST8CQVwuiew1Y+g3QGFjNMzwRB2DSsAk26cmA8lp2wIU4p93AUBiUHFGOxOajAqD7Gm6NezNDjYzwLOaSXRBYcWipTSONHjUDXCY4mMI8XoVCR/Rrs/JLKXgEx+qkmeDlFOD1/yTQNDClRuiUyKYCllfMiQiyFkmuTz2vLsBNyRW+xz+5FElFxWB28VjYIGZ0Yd+5wIjkcoMaggxswbT0pCmckRAErbRlIlcOGdBo4djTNO8FAgQ+lT6vPS60BwTRSUAM3ddkEAZiwtEyArrkiDRnS7LJ+2hwbzd2YDQagSgACpsovmjil5wfPuXq3GuH0CyE7FK3M4FgRaFoIkaodORrPx1+JpI9psyNYIFuJogZa0/1AhOWdlHQxdAgbwacsHqPZo8u/ngAH2GmaTdhYnBfSDbBfh8CHq6Bx5bttP2+RdM+MAaYaZ0Y/ADkbNCZuAyAVQa2OcXOeICmDn9Q/eFkDeFQg5MgHEDXq/tVjj+jtd26nhaaolWxs1ixSUgOBwrDhRIGOLyOVk2/Bc0UxvseQCO2pQ2i+Krfhu/WeBovNb5dJxQtJRUDv2mCwYVpNl2efQM9xQHnK0JwLYt/U0Wf+phiA4uw8G91slC832pmOTCAoZXohg1fewCZqLBhkOUBofBWpMPsqg7XEXgPfAlDo2U5WXjtFdS87PIqClCK5nW6adCeXPkUiTGx0emOIDQqw1yFYGHEVx20xKjJVYe0O8iLmnQr3FA9nSIQilUKtJ4ZAdcTm7+ExseJauyqo30hs+1qSW211A1SFAOUgDlCGq7eTIcMAeyZkV1SQJ4j/e1Smbq4HcjqgFbLAGLyKxlMDMgZavK5NAYH19Olz3la/QCTiVelFnU6O/GCvykqS/wZJDhKN9gBtSOp/1SP5VRgJcoVj+kmf2wBgv4gjrgARBWiURYx8xENV3bEVUAAWWD3dYDKAIWk5opaCFCMR5ZjJExiCAw7gYiSZ2rkyTce4eNMY3lfGn+8p6+vBckGlKEXnA6Eota69OxDO9oOsJoy28BXOR0UoXNRaJD5ceKdlWMJlOFzDdZNpc05tkMGQtqeNF2lttZqNco1VtwXgRstLSQ6tSPChgqtGV5h2DcDReIQadaNRR6AsAYKL5gSFsCJMgfsaZ7DpKh8mg8Wz8V7H+gDnLuMxaWEIUPevIbClgap4dqmVWSrPgVYCzAoZHIa5z2Ocx1D/GvDOEqMOKLrMefWIbSWHZ6jbgA8qVBhYNHpx0P+jAgN5TB3haSifDcApp6yymEi6Ij/GsEpDYUgcHATJUYDUAmC1SCkJ4cuZXSAP2DEpQsGUjQmKJfJOvlC2x/pChkOyLW7KEoMYc5FDC4v2FGqSoRWiLsbPCiyg1U5yiHZVm1XLkHMMZL11/yxyw0UnGig3MFdZklN5FI/qiT65T+jOXOdO7XbgWurOAZR6Cv9uu1cm5LjkXX4xi6mWn5r5NjBS0gTliHhMZI2WNqSiSphEtiCAwnafS11JhseDGHYQ5+bqWiAYiAv6Jsf79/VUs4cIl+n6+WOjcgB/2l5TreoAV2717JzZbQIR0W1cl/dEqCy5kJ3ZSIHuU0vBoHooEpiHeQWVkkkOqRX27eD1FWw4BfO9CJDdKoSogQi3hAAwsPRFrN5RbX7bqLdBJ9JYMohWrgJKHSjVl1sy2xAG0E3sNyO0oCbSGOxCNBRRXTXenYKuwAoDLfnDcQaCwehUOIDiHAu5m5hMpKeKM4sIo3vxACakIxKoH2YWF2QM84e6F5C5hJU4g8uxuFOlAYnqtwxmHyNEawLW/PhoawJDrGAP0JYWHgAVUByo/bGdiv2T2EMg8gsS14/rAdzlOYazFE7w4OzxeKiWdm3nSOnQRRKXSlVo8HEAbBfyJMKqoq+SCcTSx5NDtbFwNlh8VhjGGDu7JG5/TAGAvniQSSUog0pNzTim8Owc6QTuSKSTXlQqwV3eiEnklS3LeSXYPXGK2VgeZBqNcHG6tZHvA3vTINhV0ELuQdp3t1y9+ogD8Kk/W7QoRN1UWPqM4+xdygkFDPLoTaumKReKiLWoPHOfY54m3qPx4c+4pgY3MRKKbljG8w4wvz8pxk3AqKsy4GMAkAtmRjRMsCxbb4Q2Ds0Ia9ci8cMT6DmsJG00XaHCIS+o3F8YVVeikw13w+OEDaCYYhC0ZE54kA4jpjruBr5STWeqQG6M74HHL6TZ3lXrd99ZX++7LhNatQaZosuxEf5yRA15S9gPeHskBIq3Gcw81AGb9/O53DYi/5CsQ51EmEh8Rkg4vOciClpy4d04eYsfr6fyQkBmtD+P8sNh6e+XYHJXT/lkXxT4KXU5F2sGxYyzfniMMQkb9OjDN2C8tRRgTyL7GwozH14PrEUZc6oz05Emne3Ts5EG7WolDmU8OB1LDG3VrpQxp+pT0KYV5dGtknU64JhabdqcVQbGZiAxQAnvN1u70y1AnmvOSPgLI6uB4AuDGhmAu3ATkJSw7OtS/2ToPjqkaq62/7WFG8advGlRRqxB9diP07JrXowKR9tpRa+jGJ91zxNTT1h8I2PcSfoUPtd7NejVoH03EUcqSBuFZPkMZhegHyo2ZAITovmm3zAIdGFWxoNNORiMRShgwdYwFzkPw5PA4a5MIIQpmq+nsp3YMuXt/GkXxLx/P6+ZJS0lFyz4MunC3eWSGE8xlCQrKvhKUPXr0hjpAN9ZK4PfEDrPMfMbGNWcHDzjA7ngMxTPnT7GMHar+gMQQ3NwHCv4zH4BIMYvzsdiERi6gebRmerTsVwZJTRsL8dkZgxgRxmpbgRcud+YlCIRpPwHShlUSwuipZnx9QCsEWziVazdDeKSYU5CF7UVPAhLer3CgJOQXl/zh575R5rsrmRnKAzq4POFdgbYBuEviM4+LVC15ssLNFghbTtHWerS1hDt5s4qkLUha/qpZXhWh1C6lTQAqCNQnaDjS7UGFBC6wTu8yFnKJnExCnAs3Ok9yj5KpfZESQ4lTy5pTGTnkAUpxI+yjEldJfSo4y0QhG4i4IwkRFGcjWY8+EzgYYJUK7BXQksLxAww/YYWBMhJILB9e8ePEJ4OP7z+4/wOQDl64iOYDp26DaONPxpKtBxq/aTzRGarm3VkPYTLJKx6Z/Mw2YbBGseJhPMwhhNswrIkyvV2BYzrvZbxLpKwcWJhYmFtVZ+lPEq91FzVp1HlQY1bZVLqeNR9SAUn6n0E28k/UuGkNpP1DBI5ch/EehZfjUQ9aE41NhETExoPT2gGQz0IhWJbEOvTQ4wgcXCHHFBhewYUiFHuhRSAUVmEHeCRQHQkXGFwkAgyzREJCVN7TRnTon36Zw3tPhx4EALwNdwDv+J41YSP4B2CQqz0EFgARZ4ESgBHQgROwAVn9GTI+HYexTUevLUeta4/DqKrbMVS+Yqb8hUwYCrlgKtmAq1YCrFgKrd4qpXiqZcKn1oqdWipjYKpWwVPVYqW6xUpVipKqFR3QKjagVEtAqHpxUMTitsnFaJOKx2cVhswq35RVpyiq9lFVNIKnOQVMkgqtYxVNxiqQjFS7GKlSIVIsQqPIhUWwioigFQ++KkN8VHr49HDw9Ebo9EDo9DTo9Crg9BDg9/Wx7gWx7YWwlobYrOGxWPNisAaAHEyALpkAVDIAeWAArsABVXACYuAD5cAF6wAKFQAQqgAbVAAsoAAlQAUaYAfkwAvogBWQACOgAD9AAHSAAKT4GUdMiOvFngBTwCn2AZ7Dv6B6k/90B8+yRnkV144AIBoAMTQATGgAjNAA4YABgwABZgB/mQCwyAVlwCguASlwCEuAQFwB4uAMlwBYuAJlQAUVAAhUD2KgdpUDaJgaRMDFJgX5MC1JgWJEAokQCWRAHxEAWkQBMRADpEAMkQAYROAEecC484DRpwBDTnwNOdw05tjTmiNOYwtswhYFwLA7BYG4LA2BYGOLAwRYFuLAsxYFQJAohIEyJAMwkAwiQC0JAJgkAeiQBkJAFokAPCQA0JABwcD4Dgc4cDdDgaYcDIDgYgUC6CgWgUClCgUYUAVBQBOFAEYMALgwAgDA9QYAdIn8AZzeBB2L5EcWrenUT1KXienEsuJJ7x5U8XlTjc1NVzUyXFTGb1LlpUtWlTDIjqwE4LsagowoCi2gJLKAkpoBgJQNpAIhNqaEoneI6kiiqQ6Go/n6j0cS+a2gEU8gIHJ+BwfgZX4GL+Bd/gW34FZ+BS/gUH4FN6BTegTvoEv6BJegRnYEF2A79gOvYDl2BdEjCkqkGtwXp0LNToIskOTXzh/F062yJ7AAAAEDAWAAABWhJ+KPEIJgBFxMVP7w2QJBGHASQnOBKXKFIdUK4igKA9IEaYJg);src:url(data:application/vnd.ms-fontobject;base64,n04AAEFNAAACAAIABAAAAAAABQAAAAAAAAABAJABAAAEAExQAAAAAAAAAAIAAAAAAAAAAAEAAAAAAAAAJxJ/LAAAAAAAAAAAAAAAAAAAAAAAACgARwBMAFkAUABIAEkAQwBPAE4AUwAgAEgAYQBsAGYAbABpAG4AZwBzAAAADgBSAGUAZwB1AGwAYQByAAAAeABWAGUAcgBzAGkAbwBuACAAMQAuADAAMAA5ADsAUABTACAAMAAwADEALgAwADAAOQA7AGgAbwB0AGMAbwBuAHYAIAAxAC4AMAAuADcAMAA7AG0AYQBrAGUAbwB0AGYALgBsAGkAYgAyAC4ANQAuADUAOAAzADIAOQAAADgARwBMAFkAUABIAEkAQwBPAE4AUwAgAEgAYQBsAGYAbABpAG4AZwBzACAAUgBlAGcAdQBsAGEAcgAAAAAAQlNHUAAAAAAAAAAAAAAAAAAAAAADAKncAE0TAE0ZAEbuFM3pjM/SEdmjKHUbyow8ATBE40IvWA3vTu8LiABDQ+pexwUMcm1SMnNryctQSiI1K5ZnbOlXKmnVV5YvRe6RnNMFNCOs1KNVpn6yZhCJkRtVRNzEufeIq7HgSrcx4S8h/v4vnrrKc6oCNxmSk2uKlZQHBii6iKFoH0746ThvkO1kJHlxjrkxs+LWORaDQBEtiYJIR5IB9Bi1UyL4Rmr0BNigNkMzlKQmnofBHviqVzUxwdMb3NdCn69hy+pRYVKGVS/1tnsqv4LL7wCCPZZAZPT4aCShHjHJVNuXbmMrY5LeQaGnvAkXlVrJgKRAUdFjrWEah9XebPeQMj7KS7DIBAFt8ycgC5PLGUOHSE3ErGZCiViNLL5ZARfywnCoZaKQCu6NuFX42AEeKtKUGnr/Cm2Cy8tpFhBPMW5Fxi4Qm4TkDWh4IWFDClhU2hRWosUWqcKLlgyXB+lSHaWaHiWlBAR8SeSgSPCQxdVQgzUixWKSTrIQEbU94viDctkvX+VSjJuUmV8L4CXShI11esnp0pjWNZIyxKHS4wVQ2ime1P4RnhvGw0aDN1OLAXGERsB7buFpFGGBAre4QEQR0HOIO5oYH305G+KspT/FupEGGafCCwxSe6ZUa+073rXHnNdVXE6eWvibUS27XtRzkH838mYLMBmYysZTM0EM3A1fbpCBYFccN1B/EnCYu/TgCGmr7bMh8GfYL+BfcLvB0gRagC09w9elfldaIy/hNCBLRgBgtCC7jAF63wLSMAfbfAlEggYU0bUA7ACCJmTDpEmJtI78w4/BO7dN7JR7J7ZvbYaUbaILSQsRBiF3HGk5fEg6p9unwLvn98r+vnsV+372uf1xBLq4qU/45fTuqaAP+pssmCCCTF0mhEow8ZXZOS8D7Q85JsxZ+Azok7B7O/f6J8AzYBySZQB/QHYUSA+EeQhEWiS6AIQzgcsDiER4MjgMBAWDV4AgQ3g1eBgIdweCQmCjJEMkJ+PKRWyFHHmg1Wi/6xzUgA0LREoKJChwnQa9B+5RQZRB3IlBlkAnxyQNaANwHMowzlYSMCBgnbpzvqpl0iTJNCQidDI9ZrSYNIRBhHtUa5YHMHxyGEik9hDE0AKj72AbTCaxtHPUaKZdAZSnQTyjGqGLsmBStCejApUhg4uBMU6mATujEl+KdDPbI6Ag4vLr+hjY6lbjBeoLKnZl0UZgRX8gTySOeynZVz1wOq7e1hFGYIq+MhrGxDLak0PrwYzSXtcuyhXEhwOYofiW+EcI/jw8P6IY6ed+etAbuqKp5QIapT77LnAe505lMuqL79a0ut4rWexzFttsOsLDy7zvtQzcq3U1qabe7tB0wHWVXji+zDbo8x8HyIRUbXnwUcklFv51fvTymiV+MXLSmGH9d9+aXpD5X6lao41anWGig7IwIdnoBY2ht/pO9mClLo4NdXHAsefqWUKlXJkbqPOFhMoR4aiA1BXqhRNbB2Xwi+7u/jpAoOpKJ0UX24EsrzMfHXViakCNcKjBxuQX8BO0ZqjJ3xXzf+61t2VXOSgJ8xu65QKgtN6FibPmPYsXbJRHHqbgATcSZxBqGiDiU4NNNsYBsKD0MIP/OfKnlk/Lkaid/O2NbKeuQrwOB2Gq3YHyr6ALgzym5wIBnsdC1ZkoBFZSQXChZvlesPqvK2c5oHHT3Q65jYpNxnQcGF0EHbvYqoFw60WNlXIHQF2HQB7zD6lWjZ9rVqUKBXUT6hrkZOle0RFYII0V5ZYGl1JAP0Ud1fZZMvSomBzJ710j4Me8mjQDwEre5Uv2wQfk1ifDwb5ksuJQQ3xt423lbuQjvoIQByQrNDh1JxGFkOdlJvu/gFtuW0wR4cgd+ZKesSV7QkNE2kw6AV4hoIuC02LGmTomyf8PiO6CZzOTLTPQ+HW06H+tx+bQ8LmDYg1pTFrp2oJXgkZTyeRJZM0C8aE2LpFrNVDuhARsN543/FV6klQ6Tv1OoZGXLv0igKrl/CmJxRmX7JJbJ998VSIPQRyDBICzl4JJlYHbdql30NvYcOuZ7a10uWRrgoieOdgIm4rlq6vNOQBuqESLbXG5lzdJGHw2m0sDYmODXbYGTfSTGRKpssTO95fothJCjUGQgEL4yKoGAF/0SrpUDNn8CBgBcSDQByAeNkCXp4S4Ro2Xh4OeaGRgR66PVOsU8bc6TR5/xTcn4IVMLOkXSWiXxkZQCbvKfmoAvQaKjO3EDKwkwqHChCDEM5loQRPd5ACBki1TjF772oaQhQbQ5C0lcWXPFOzrfsDGUXGrpxasbG4iab6eByaQkQfm0VFlP0ZsDkvvqCL6QXMUwCjdMx1ZOyKhTJ7a1GWAdOUcJ8RSejxNVyGs31OKMyRyBVoZFjqIkmKlLQ5eHMeEL4MkUf23cQ/1SgRCJ1dk4UdBT7OoyuNgLs0oCd8RnrEIb6QdMxT2QjD4zMrJkfgx5aDMcA4orsTtKCqWb/Veyceqa5OGSmB28YwH4rFbkQaLoUN8OQQYnD3w2eXpI4ScQfbCUZiJ4yMOIKLyyTc7BQ4uXUw6Ee6/xM+4Y67ngNBknxIPwuppgIhFcwJyr6EIj+LzNj/mfR2vhhRlx0BILZoAYruF0caWQ7YxO66UmeguDREAFHYuC7HJviRgVO6ruJH59h/C/PkgSle8xNzZJULLWq9JMDTE2fjGE146a1Us6PZDGYle6ldWRqn/pdpgHKNGrGIdkRK+KPETT9nKT6kLyDI8xd9A1FgWmXWRAIHwZ37WyZHOVyCadJEmMVz0MadMjDrPho+EIochkVC2xgGiwwsQ6DMv2P7UXqT4x7CdcYGId2BJQQa85EQKmCmwcRejQ9Bm4oATENFPkxPXILHpMPUyWTI5rjNOsIlmEeMbcOCEqInpXACYQ9DDxmFo9vcmsDblcMtg4tqBerNngkIKaFJmrQAPnq1dEzsMXcwjcHdfdCibcAxxA+q/j9m3LM/O7WJka4tSidVCjsvo2lQ/2ewyoYyXwAYyr2PlRoR5MpgVmSUIrM3PQxXPbgjBOaDQFIyFMJvx3Pc5RSYj12ySVF9fwFPQu2e2KWVoL9q3Ayv3IzpGHUdvdPdrNUdicjsTQ2ISy7QU3DrEytIjvbzJnAkmANXjAFERA0MUoPF3/5KFmW14bBNOhwircYgMqoDpUMcDtCmBE82QM2YtdjVLB4kBuKho/bcwQdeboqfQartuU3CsCf+cXkgYAqp/0Ee3RorAZt0AvvOCSI4JICIlGlsV0bsSid/NIEALAAzb6HAgyWHBps6xAOwkJIGcB82CxRQq4sJf3FzA70A+TRqcqjEMETCoez3mkPcpnoALs0ugJY8kQwrC+JE5ik3w9rzrvDRjAQnqgEVvdGrNwlanR0SOKWzxOJOvLJhcd8Cl4AshACUkv9czdMkJCVQSQhp6kp7StAlpVRpK0t0SW6LHeBJnE2QchB5Ccu8kxRghZXGIgZIiSj7gEKMJDClcnX6hgoqJMwiQDigIXg3ioFLCgDgjPtYHYpsF5EiA4kcnN18MZtOrY866dEQAb0FB34OGKHGZQjwW/WDHA60cYFaI/PjpzquUqdaYGcIq+mLez3WLFFCtNBN2QJcrlcoELgiPku5R5dSlJFaCEqEZle1AQzAKC+1SotMcBNyQUFuRHRF6OlimSBgjZeTBCwLyc6A+P/oFRchXTz5ADknYJHxzrJ5pGuIKRQISU6WyKTBBjD8WozmVYWIsto1AS5rxzKlvJu4E/vwOiKxRtCWsDM+eTHUrmwrCK5BIfMzGkD+0Fk5LzBs0jMYXktNDblB06LMNJ09U8pzSLmo14MS0OMjcdrZ31pyQqxJJpRImlSvfYAK8inkYU52QY2FPEVsjoWewpwhRp5yAuNpkqhdb7ku9Seefl2D0B8SMTFD90xi4CSOwwZy9IKkpMtI3FmFUg3/kFutpQGNc3pCR7gvC4sgwbupDu3DyEN+W6YGLNM21jpB49irxy9BSlHrVDlnihGKHwPrbVFtc+h1rVQKZduxIyojccZIIcOCmhEnC7UkY68WXKQgLi2JCDQkQWJRQuk60hZp0D3rtCTINSeY9Ej2kIKYfGxwOs4j9qMM7fYZiipzgcf7TamnehqdhsiMiCawXnz4xAbyCkLAx5EGbo3Ax1u3dUIKnTxIaxwQTHehPl3V491H0+bC5zgpGz7Io+mjdhKlPJ01EeMpM7UsRJMi1nGjmJg35i6bQBAAxjO/ENJubU2mg3ONySEoWklCwdABETcs7ck3jgiuU9pcKKpbgn+3YlzV1FzIkB6pmEDOSSyDfPPlQskznctFji0kpgZjW5RZe6x9kYT4KJcXg0bNiCyif+pZACCyRMmYsfiKmN9tSO65F0R2OO6ytlEhY5Sj6uRKfFxw0ijJaAx/k3QgnAFSq27/2i4GEBA+UvTJKK/9eISNvG46Em5RZfjTYLdeD8kdXHyrwId/DQZUaMCY4gGbke2C8vfjgV/Y9kkRQOJIn/xM9INZSpiBnqX0Q9GlQPpPKAyO5y+W5NMPSRdBCUlmuxl40ZfMCnf2Cp044uI9WLFtCi4YVxKjuRCOBWIb4XbIsGdbo4qtMQnNOQz4XDSui7W/N6l54qOynCqD3DpWQ+mpD7C40D8BZEWGJX3tlAaZBMj1yjvDYKwCJBa201u6nBKE5UE+7QSEhCwrXfbRZylAaAkplhBWX50dumrElePyNMRYUrC99UmcSSNgImhFhDI4BXjMtiqkgizUGCrZ8iwFxU6fQ8GEHCFdLewwxYWxgScAYMdMLmcZR6b7rZl95eQVDGVoUKcRMM1ixXQtXNkBETZkVVPg8LoSrdetHzkuM7DjZRHP02tCxA1fmkXKF3VzfN1pc1cv/8lbTIkkYpqKM9VOhp65ktYk+Q46myFWBapDfyWUCnsnI00QTBQmuFjMZTcd0V2NQ768Fhpby04k2IzNR1wKabuGJqYWwSly6ocMFGTeeI+ejsWDYgEvr66QgqdcIbFYDNgsm0x9UHY6SCd5+7tpsLpKdvhahIDyYmEJQCqMqtCF6UlrE5GXRmbu+vtm3BFSxI6ND6UxIE7GsGMgWqghXxSnaRJuGFveTcK5ZVSPJyjUxe1dKgI6kNF7EZhIZs8y8FVqwEfbM0Xk2ltORVDKZZM40SD3qQoQe0orJEKwPfZwm3YPqwixhUMOndis6MhbmfvLBKjC8sKKIZKbJk8L11oNkCQzCgvjhyyEiQSuJcgCQSG4Mocfgc0Hkwcjal1UNgP0CBPikYqBIk9tONv4kLtBswH07vUCjEaHiFGlLf8MgXKzSgjp2HolRRccAOh0ILHz9qlGgIFkwAnzHJRjWFhlA7ROwINyB5HFj59PRZHFor6voq7l23EPNRwdWhgawqbivLSjRA4htEYUFkjESu67icTg5S0aW1sOkCiIysfJ9UnIWevOOLGpepcBxy1wEhd2WI3AZg7sr9WBmHWyasxMcvY/iOmsLtHSWNUWEGk9hScMPShasUA1AcHOtRZlqMeQ0OzYS9vQvYUjOLrzP07BUAFikcJNMi7gIxEw4pL1G54TcmmmoAQ5s7TGWErJZ2Io4yQ0ljRYhL8H5e62oDtLF8aDpnIvZ5R3GWJyAugdiiJW9hQAVTsnCBHhwu7rkBlBX6r3b7ejEY0k5GGeyKv66v+6dg7mcJTrWHbtMywbedYqCQ0FPwoytmSWsL8WTtChZCKKzEF7vP6De4x2BJkkniMgSdWhbeBSLtJZR9CTHetK1xb34AYIJ37OegYIoPVbXgJ/qDQK+bfCtxQRVKQu77WzOoM6SGL7MaZwCGJVk46aImai9fmam+WpHG+0BtQPWUgZ7RIAlPq6lkECUhZQ2gqWkMYKcYMYaIc4gYCDFHYa2d1nzp3+J1eCBay8IYZ0wQRKGAqvCuZ/UgbQPyllosq+XtfKIZOzmeJqRazpmmoP/76YfkjzV2NlXTDSBYB04SVlNQsFTbGPk1t/I4Jktu0XSgifO2ozFOiwd/0SssJDn0dn4xqk4GDTTKX73/wQyBLdqgJ+Wx6AQaba3BA9CKEzjtQYIfAsiYamapq80LAamYjinlKXUkxdpIDk0puXUEYzSalfRibAeDAKpNiqQ0FTwoxuGYzRnisyTotdVTclis1LHRQCy/qqL8oUaQzWRxilq5Mi0IJGtMY02cGLD69vGjkj3p6pGePKI8bkBv5evq8SjjyU04vJR2cQXQwSJyoinDsUJHCQ50jrFTT7yRdbdYQMB3MYCb6uBzJ9ewhXYPAIZSXfeEQBZZ3GPN3Nbhh/wkvAJLXnQMdi5NYYZ5GHE400GS5rXkOZSQsdZgIbzRnF9ueLnsfQ47wHAsirITnTlkCcuWWIUhJSbpM3wWhXNHvt2xUsKKMpdBSbJnBMcihkoDqAd1Zml/R4yrzow1Q2A5G+kzo/RhRxQS2lCSDRV8LlYLBOOoo1bF4jwJAwKMK1tWLHlu9i0j4Ig8qVm6wE1DxXwAwQwsaBWUg2pOOol2dHxyt6npwJEdLDDVYyRc2D0HbcbLUJQj8gPevQBUBOUHXPrsAPBERICpnYESeu2OHotpXQxRGlCCtLdIsu23MhZVEoJg8Qumj/UMMc34IBqTKLDTp76WzL/dMjCxK7MjhiGjeYAC/kj/jY/Rde7hpSM1xChrog6yZ7OWTuD56xBJnGFE+pT2ElSyCnJcwVzCjkqeNLfMEJqKW0G7OFIp0G+9mh50I9o8k1tpCY0xYqFNIALgIfc2me4n1bmJnRZ89oepgLPT0NTMLNZsvSCZAc3TXaNB07vail36/dBySis4m9/DR8izaLJW6bWCkVgm5T+ius3ZXq4xI+GnbveLbdRwF2mNtsrE0JjYc1AXknCOrLSu7Te/r4dPYMCl5qtiHNTn+TPbh1jCBHH+dMJNhwNgs3nT+OhQoQ0vYif56BMG6WowAcHR3DjQolxLzyVekHj00PBAaW7IIAF1EF+uRIWyXjQMAs2chdpaKPNaB+kSezYt0+CA04sOg5vx8Fr7Ofa9sUv87h7SLAUFSzbetCCZ9pmyLt6l6/TzoA1/ZBG9bIUVHLAbi/kdBFgYGyGwRQGBpkqCEg2ah9UD6EedEcEL3j4y0BQQCiExEnocA3SZboh+epgd3YsOkHskZwPuQ5OoyA0fTA5AXrHcUOQF+zkJHIA7PwCDk1gGVmGUZSSoPhNf+Tklauz98QofOlCIQ/tCD4dosHYPqtPCXB3agggQQIqQJsSkB+qn0rkQ1toJjON/OtCIB9RYv3PqRA4C4U68ZMlZn6BdgEvi2ziU+TQ6NIw3ej+AtDwMGEZk7e2IjxUWKdAxyaw9OCwSmeADTPPleyk6UhGDNXQb++W6Uk4q6F7/rg6WVTo82IoCxSIsFDrav4EPHphD3u4hR53WKVvYZUwNCCeM4PMBWzK+EfIthZOkuAwPo5C5jgoZgn6dUdvx5rIDmd58cXXdKNfw3l+wM2UjgrDJeQHhbD7HW2QDoZMCujgIUkk5Fg8VCsdyjOtnGRx8wgKRPZN5dR0zPUyfGZFVihbFRniXZFOZGKPnEQzU3AnD1KfR6weHW2XS6KbPJxUkOTZsAB9vTVp3Le1F8q5l+DMcLiIq78jxAImD2pGFw0VHfRatScGlK6SMu8leTmhUSMy8Uhdd6xBiH3Gdman4tjQGLboJfqz6fL2WKHTmrfsKZRYX6BTDjDldKMosaSTLdQS7oDisJNqAUhw1PfTlnacCO8vl8706Km1FROgLDmudzxg+EWTiArtHgLsRrAXYWdB0NmToNCJdKm0KWycZQqb+Mw76Qy29iQ5up/X7oyw8QZ75kP5F6iJAJz6KCmqxz8fEa/xnsMYcIO/vEkGRuMckhr4rIeLrKaXnmIzlNLxbFspOphkcnJdnz/Chp/Vlpj2P7jJQmQRwGnltkTV5dbF9fE3/fxoSqTROgq9wFUlbuYzYcasE0ouzBo+dDCDzxKAfhbAZYxQiHrLzV2iVexnDX/QnT1fsT/xuhu1ui5qIytgbGmRoQkeQooO8eJNNZsf0iALur8QxZFH0nCMnjerYQqG1pIfjyVZWxhVRznmmfLG00BcBWJE6hzQWRyFknuJnXuk8A5FRDCulwrWASSNoBtR+CtGdkPwYN2o7DOw/VGlCZPusRBFXODQdUM5zeHDIVuAJBLqbO/f9Qua+pDqEPk230Sob9lEZ8BHiCorjVghuI0lI4JDgHGRDD/prQ84B1pVGkIpVUAHCG+iz3Bn3qm2AVrYcYWhock4jso5+J7HfHVj4WMIQdGctq3psBCVVzupQOEioBGA2Bk+UILT7+VoX5mdxxA5fS42gISQVi/HTzrgMxu0fY6hE1ocUwwbsbWcezrY2n6S8/6cxXkOH4prpmPuFoikTzY7T85C4T2XYlbxLglSv2uLCgFv8Quk/wdesUdWPeHYIH0R729JIisN9Apdd4eB10aqwXrPt+Su9mA8k8n1sjMwnfsfF2j3jMUzXepSHmZ/BfqXvzgUNQQWOXO8YEuFBh4QTYCkOAPxywpYu1VxiDyJmKVcmJPGWk/gc3Pov02StyYDahwmzw3E1gYC9wkupyWfDqDSUMpCTH5e5N8B//lHiMuIkTNw4USHrJU67bjXGqNav6PBuQSoqTxc8avHoGmvqNtXzIaoyMIQIiiUHIM64cXieouplhNYln7qgc4wBVAYR104kO+CvKqsg4yIUlFNThVUAKZxZt1XA34h3TCUUiXVkZ0w8Hh2R0Z5L0b4LZvPd/p1gi/07h8qfwHrByuSxglc9cI4QIg2oqvC/qm0i7tjPLTgDhoWTAKDO2ONW5oe+/eKB9vZB8K6C25yCZ9RFVMnb6NRdRjyVK57CHHSkJBfnM2/j4ODUwRkqrtBBCrDsDpt8jhZdXoy/1BCqw3sSGhgGGy0a5Jw6BP/TExoCmNFYjZl248A0osgPyGEmRA+fAsqPVaNAfytu0vuQJ7rk3J4kTDTR2AlCHJ5cls26opZM4w3jMULh2YXKpcqGBtuleAlOZnaZGbD6DHzMd6i2oFeJ8z9XYmalg1Szd/ocZDc1C7Y6vcALJz2lYnTXiWEr2wawtoR4g3jvWUU2Ngjd1cewtFzEvM1NiHZPeLlIXFbBPawxNgMwwAlyNSuGF3zizVeOoC9bag1qRAQKQE/EZBWC2J8mnXAN2aTBboZ7HewnObE8CwROudZHmUM5oZ/Ugd/JZQK8lvAm43uDRAbyW8gZ+ZGq0EVerVGUKUSm/Idn8AQHdR4m7bue88WBwft9mSCeMOt1ncBwziOmJYI2ZR7ewNMPiCugmSsE4EyQ+QATJG6qORMGd4snEzc6B4shPIo4G1T7PgSm8PY5eUkPdF8JZ0VBtadbHXoJgnEhZQaODPj2gpODKJY5Yp4DOsLBFxWbvXN755KWylJm+oOd4zEL9Hpubuy2gyyfxh8oEfFutnYWdfB8PdESLWYvSqbElP9qo3u6KTmkhoacDauMNNjj0oy40DFV7Ql0aZj77xfGl7TJNHnIwgqOkenruYYNo6h724+zUQ7+vkCpZB+pGA562hYQiDxHVWOq0oDQl/QsoiY+cuI7iWq/ZIBtHcXJ7kks+h2fCNUPA82BzjnqktNts+RLdk1VSu+tqEn7QZCCsvEqk6FkfiOYkrsw092J8jsfIuEKypNjLxrKA9kiA19mxBD2suxQKCzwXGws7kEJvlhUiV9tArLIdZW0IORcxEzdzKmjtFhsjKy/44XYXdI5noQoRcvjZ1RMPACRqYg2V1+OwOepcOknRLLFdYgTkT5UApt/JhLM3jeFYprZV+Zow2g8fP+U68hkKFWJj2yBbKqsrp25xkZX1DAjUw52IMYWaOhab8Kp05VrdNftqwRrymWF4OQSjbdfzmRZirK8FMJELEgER2PHjEAN9pGfLhCUiTJFbd5LBkOBMaxLr/A1SY9dXFz4RjzoU9ExfJCmx/I9FKEGT3n2cmzl2X42L3Jh+AbQq6sA+Ss1kitoa4TAYgKHaoybHUDJ51oETdeI/9ThSmjWGkyLi5QAGWhL0BG1UsTyRGRJOldKBrYJeB8ljLJHfATWTEQBXBDnQexOHTB+Un44zExFE4vLytcu5NwpWrUxO/0ZICUGM7hGABXym0V6ZvDST0E370St9MIWQOTWngeoQHUTdCJUP04spMBMS8LSker9cReVQkULFDIZDFPrhTzBl6sed9wcZQTbL+BDqMyaN3RJPh/anbx+Iv+qgQdAa3M9Z5JmvYlh4qop+Ho1F1W5gbOE9YKLgAnWytXElU4G8GtW47lhgFE6gaSs+gs37sFvi0PPVvA5dnCBgILTwoKd/+DoL9F6inlM7H4rOTzD79KJgKlZO/Zgt22UsKhrAaXU5ZcLrAglTVKJEmNJvORGN1vqrcfSMizfpsgbIe9zno+gBoKVXgIL/VI8dB1O5o/R3Suez/gD7M781ShjKpIIORM/nxG+jjhhgPwsn2IoXsPGPqYHXA63zJ07M2GPEykQwJBYLK808qYxuIew4frk52nhCsnCYmXiR6CuapvE1IwRB4/QftDbEn+AucIr1oxrLabRj9q4ae0+fXkHnteAJwXRbVkR0mctVSwEbqhJiMSZUp9DNbEDMmjX22m3ABpkrPQQTP3S1sib5pD2VRKRd+eNAjLYyT0hGrdjWJZy24OYXRoWQAIhGBZRxuBFMjjZQhpgrWo8SiFYbojcHO8V5DyscJpLTHyx9Fimassyo5U6WNtquUMYgccaHY5amgR3PQzq3ToNM5ABnoB9kuxsebqmYZm0R9qxJbFXCQ1UPyFIbxoUraTJFDpCk0Wk9GaYJKz/6oHwEP0Q14lMtlddQsOAU9zlYdMVHiT7RQP3XCmWYDcHCGbVRHGnHuwzScA0BaSBOGkz3lM8CArjrBsyEoV6Ys4qgDK3ykQQPZ3hCRGNXQTNNXbEb6tDiTDLKOyMzRhCFT+mAUmiYbV3YQVqFVp9dorv+TsLeCykS2b5yyu8AV7IS9cxcL8z4Kfwp+xJyYLv1OsxQCZwTB4a8BZ/5EdxTBJthApqyfd9u3ifr/WILTqq5VqgwMT9SOxbSGWLQJUUWCVi4k9tho9nEsbUh7U6NUsLmkYFXOhZ0kmamaJLRNJzSj/qn4Mso6zb6iLLBXoaZ6AqeWCjHQm2lztnejYYM2eubnpBdKVLORZhudH3JF1waBJKA9+W8EhMj3Kzf0L4vi4k6RoHh3Z5YgmSZmk6ns4fjScjAoL8GoOECgqgYEBYUGFVO4FUv4/YtowhEmTs0vrvlD/CrisnoBNDAcUi/teY7OctFlmARQzjOItrrlKuPO6E2Ox93L4O/4DcgV/dZ7qR3VBwVQxP1GCieA4RIpweYJ5FoYrHxqRBdJjnqbsikA2Ictbb8vE1GYIo9dacK0REgDX4smy6GAkxlH1yCGGsk+tgiDhNKuKu3yNrMdxafmKTF632F8Vx4BNK57GvlFisrkjN9WDAtjsWA0ENT2e2nETUb/n7qwhvGnrHuf5bX6Vh/n3xffU3PeHdR+FA92i6ufT3AlyAREoNDh6chiMWTvjKjHDeRhOa9YkOQRq1vQXEMppAQVwHCuIcV2g5rBn6GmZZpTR7vnSD6ZmhdSl176gqKTXu5E+YbfL0adwNtHP7dT7t7b46DVZIkzaRJOM+S6KcrzYVg+T3wSRFRQashjfU18NutrKa/7PXbtuJvpIjbgPeqd+pjmRw6YKpnANFSQcpzTZgpSNJ6J7uiagAbir/8tNXJ/OsOnRh6iuIexxrmkIneAgz8QoLmiaJ8sLQrELVK2yn3wOHp57BAZJhDZjTBzyoRAuuZ4eoxHruY1pSb7qq79cIeAdOwin4GdgMeIMHeG+FZWYaiUQQyC5b50zKjYw97dFjAeY2I4Bnl105Iku1y0lMA1ZHolLx19uZnRdILcXKlZGQx/GdEqSsMRU1BIrFqRcV1qQOOHyxOLXEGcbRtAEsuAC2V4K3p5mFJ22IDWaEkk9ttf5Izb2LkD1MnrSwztXmmD/Qi/EmVEFBfiKGmftsPwVaIoZanlKndMZsIBOskFYpDOq3QUs9aSbAAtL5Dbokus2G4/asthNMK5UQKCOhU97oaOYNGsTah+jfCKsZnTRn5TbhFX8ghg8CBYt/BjeYYYUrtUZ5jVij/op7V5SsbA4mYTOwZ46hqdpbB6Qvq3AS2HHNkC15pTDIcDNGsMPXaBidXYPHc6PJAkRh29Vx8KcgX46LoUQBhRM+3SW6Opll/wgxxsPgKJKzr5QCmwkUxNbeg6Wj34SUnEzOemSuvS2OetRCO8Tyy+QbSKVJcqkia+GvDefFwMOmgnD7h81TUtMn+mRpyJJ349HhAnoWFTejhpYTL9G8N2nVg1qkXBeoS9Nw2fB27t7trm7d/QK7Cr4uoCeOQ7/8JfKT77KiDzLImESHw/0wf73QeHu74hxv7uihi4fTX+XEwAyQG3264dwv17aJ5N335Vt9sdrAXhPOAv8JFvzqyYXwfx8WYJaef1gMl98JRFyl5Mv5Uo/oVH5ww5OzLFsiTPDns7fS6EURSSWd/92BxMYQ8sBaH+j+wthQPdVgDGpTfi+JQIWMD8xKqULliRH01rTeyF8x8q/GBEEEBrAJMPf25UQwi0b8tmqRXY7kIvNkzrkvRWLnxoGYEJsz8u4oOyMp8cHyaybb1HdMCaLApUE+/7xLIZGP6H9xuSEXp1zLIdjk5nBaMuV/yTDRRP8Y2ww5RO6d2D94o+6ucWIqUAvgHIHXhZsmDhjVLczmZ3ca0Cb3PpKwt2UtHVQ0BgFJsqqTsnzZPlKahRUkEu4qmkJt+kqdae76ViWe3STan69yaF9+fESD2lcQshLHWVu4ovItXxO69bqC5p1nZLvI8NdQB9s9UNaJGlQ5mG947ipdDA0eTIw/A1zEdjWquIsQXXGIVEH0thC5M+W9pZe7IhAVnPJkYCCXN5a32HjN6nsvokEqRS44tGIs7s2LVTvcrHAF+RVmI8L4HUYk4x+67AxSMJKqCg8zrGOgvK9kNMdDrNiUtSWuHFpC8/p5qIQrEo/H+1l/0cAwQ2nKmpWxKcMIuHY44Y6DlkpO48tRuUGBWT0FyHwSKO72Ud+tJUfdaZ4CWNijzZtlRa8+CkmO/EwHYfPZFU/hzjFWH7vnzHRMo+aF9u8qHSAiEkA2HjoNQPEwHsDKOt6hOoK3Ce/+/9boMWDa44I6FrQhdgS7OnNaSzwxWKZMcyHi6LN4WC6sSj0qm2PSOGBTvDs/GWJS6SwEN/ULwpb4LQo9fYjUfSXRwZkynUazlSpvX9e+G2zor8l+YaMxSEomDdLHGcD6YVQPegTaA74H8+V4WvJkFUrjMLGLlvSZQWvi8/QA7yzQ8GPno//5SJHRP/OqKObPCo81s/+6WgLqykYpGAgQZhVDEBPXWgU/WzFZjKUhSFInufPRiMAUULC6T11yL45ZrRoB4DzOyJShKXaAJIBS9wzLYIoCEcJKQW8GVCx4fihqJ6mshBUXSw3wWVj3grrHQlGNGhIDNNzsxQ3M+GWn6ASobIWC+LbYOC6UpahVO13Zs2zOzZC8z7FmA05JhUGyBsF4tsG0drcggIFzgg/kpf3+CnAXKiMgIE8Jk/Mhpkc8DUJEUzDSnWlQFme3d0sHZDrg7LavtsEX3cHwjCYA17pMTfx8Ajw9hHscN67hyo+RJQ4458RmPywXykkVcW688oVUrQhahpPRvTWPnuI0B+SkQu7dCyvLRyFYlC1LG1gRCIvn3rwQeINzZQC2KXq31FaR9UmVV2QeGVqBHjmE+VMd3b1fhCynD0pQNhCG6/WCDbKPyE7NRQzL3BzQAJ0g09aUzcQA6mUp9iZFK6Sbp/YbHjo++7/Wj8S4YNa+ZdqAw1hDrKWFXv9+zaXpf8ZTDSbiqsxnwN/CzK5tPkOr4tRh2kY3Bn9JtalbIOI4b3F7F1vPQMfoDcdxMS8CW9m/NCW/HILTUVWQIPiD0j1A6bo8vsv6P1hCESl2abrSJWDrq5sSzUpwoxaCU9FtJyYH4QFMxDBpkkBR6kn0LMPO+5EJ7Z6bCiRoPedRZ/P0SSdii7ZnPAtVwwHUidcdyspwncz5uq6vvm4IEDbJVLUFCn/LvIHfooUBTkFO130FC7CmmcrKdgDJcid9mvVzsDSibOoXtIf9k6ABle3PmIxejodc4aob0QKS432srrCMndbfD454q52V01G4q913mC5HOsTzWF4h2No1av1VbcUgWAqyoZl+11PoFYnNv2HwAODeNRkHj+8SF1fcvVBu6MrehHAZK1Gm69ICcTKizykHgGFx7QdowTVAsYEF2tVc0Z6wLryz2FI1sc5By2znJAAmINndoJiB4sfPdPrTC8RnkW7KRCwxC6YvXg5ahMlQuMpoCSXjOlBy0Kij+bsCYPbGp8BdCBiLmLSAkEQRaieWo1SYvZIKJGj9Ur/eWHjiB7SOVdqMAVmpBvfRiebsFjger7DC+8kRFGtNrTrnnGD2GAJb8rQCWkUPYHhwXsjNBSkE6lGWUj5QNhK0DMNM2l+kXRZ0KLZaGsFSIdQz/HXDxf3/TE30+DgBKWGWdxElyLccJfEpjsnszECNoDGZpdwdRgCixeg9L4EPhH+RptvRMVRaahu4cySjS3P5wxAUCPkmn+rhyASpmiTaiDeggaIxYBmtLZDDhiWIJaBgzfCsAGUF1Q1SFZYyXDt9skCaxJsxK2Ms65dmdp5WAZyxik/zbrTQk5KmgxCg/f45L0jywebOWUYFJQAJia7XzCV0x89rpp/f3AVWhSPyTanqmik2SkD8A3Ml4NhIGLAjBXtPShwKYfi2eXtrDuKLk4QlSyTw1ftXgwqA2jUuopDl+5tfUWZNwBpEPXghzbBggYCw/dhy0ntds2yeHCDKkF/YxQjNIL/F/37jLPHCKBO9ibwYCmuxImIo0ijV2Wbg3kSN2psoe8IsABv3RNFaF9uMyCtCYtqcD+qNOhwMlfARQUdJ2tUX+MNJqOwIciWalZsmEjt07tfa8ma4cji9sqz+Q9hWfmMoKEbIHPOQORbhQRHIsrTYlnVTNvcq1imqmmPDdVDkJgRcTgB8Sb6epCQVmFZe+jGDiNJQLWnfx+drTKYjm0G8yH0ZAGMWzEJhUEQ4Maimgf/bkvo8PLVBsZl152y5S8+HRDfZIMCbYZ1WDp4yrdchOJw8k6R+/2pHmydK4NIK2PHdFPHtoLmHxRDwLFb7eB+M4zNZcB9NrAgjVyzLM7xyYSY13ykWfIEEd2n5/iYp3ZdrCf7fL+en+sIJu2W7E30MrAgZBD1rAAbZHPgeAMtKCg3NpSpYQUDWJu9bT3V7tOKv+NRiJc8JAKqqgCA/PNRBR7ChpiEulyQApMK1AyqcWnpSOmYh6yLiWkGJ2mklCSPIqN7UypWj3dGi5MvsHQ87MrB4VFgypJaFriaHivwcHIpmyi5LhNqtem4q0n8awM19Qk8BOS0EsqGscuuydYsIGsbT5GHnERUiMpKJl4ON7qjB4fEqlGN/hCky89232UQCiaeWpDYCJINXjT6xl4Gc7DxRCtgV0i1ma4RgWLsNtnEBRQFqZggCLiuyEydmFd7WlogpkCw5G1x4ft2psm3KAREwVwr1Gzl6RT7FDAqpVal34ewVm3VH4qn5mjGj+bYL1NgfLNeXDwtmYSpwzbruDKpTjOdgiIHDVQSb5/zBgSMbHLkxWWgghIh9QTFSDILixVwg0Eg1puooBiHAt7DzwJ7m8i8/i+jHvKf0QDnnHVkVTIqMvIQImOrzCJwhSR7qYB5gSwL6aWL9hERHCZc4G2+JrpgHNB8eCCmcIWIQ6rSdyPCyftXkDlErUkHafHRlkOIjxGbAktz75bnh50dU7YHk+Mz7wwstg6RFZb+TZuSOx1qqP5C66c0mptQmzIC2dlpte7vZrauAMm/7RfBYkGtXWGiaWTtwvAQiq2oD4YixPLXE2khB2FRaNRDTk+9sZ6K74Ia9VntCpN4BhJGJMT4Z5c5FhSepRCRWmBXqx+whVZC4me4saDs2iNqXMuCl6iAZflH8fscC1sTsy4PHeC+XYuqMBMUun5YezKbRKmEPwuK+CLzijPEQgfhahQswBBLfg/GBgBiI4QwAqzJkkyYAWtjzSg2ILgMAgqxYfwERRo3zruBL9WOryUArSD8sQOcD7fvIODJxKFS615KFPsb68USBEPPj1orNzFY2xoTtNBVTyzBhPbhFH0PI5AtlJBl2aSgNPYzxYLw7XTDBDinmVoENwiGzmngrMo8OmnRP0Z0i0Zrln9DDFcnmOoBZjABaQIbPOJYZGqX+RCMlDDbElcjaROLDoualmUIQ88Kekk3iM4OQrADcxi3rJguS4MOIBIgKgXrjd1WkbCdqxJk/4efRIFsavZA7KvvJQqp3Iid5Z0NFc5aiMRzGN3vrpBzaMy4JYde3wr96PjN90AYOIbyp6T4zj8LoE66OGcX1Ef4Z3KoWLAUF4BTg7ug/AbkG5UNQXAMkQezujSHeir2uTThgd3gpyzDrbnEdDRH2W7U6PeRvBX1ZFMP5RM+Zu6UUZZD8hDPHldVWntTCNk7To8IeOW9yn2wx0gmurwqC60AOde4r3ETi5pVMSDK8wxhoGAoEX9NLWHIR33VbrbMveii2jAJlrxwytTHbWNu8Y4N8vCCyZjAX/pcsfwXbLze2+D+u33OGBoJyAAL3jn3RuEcdp5If8O+a4NKWvxOTyDltG0IWoHhwVGe7dKkCWFT++tm+haBCikRUUMrMhYKZJKYoVuv/bsJzO8DwfVIInQq3g3BYypiz8baogH3r3GwqCwFtZnz4xMjAVOYnyOi5HWbFA8n0qz1OjSpHWFzpQOpvkNETZBGpxN8ybhtqV/DMUxd9uFZmBfKXMCn/SqkWJyKPnT6lq+4zBZni6fYRByJn6OK+OgPBGRAJluwGSk4wxjOOzyce/PKODwRlsgrVkdcsEiYrqYdXo0Er2GXi2GQZd0tNJT6c9pK1EEJG1zgDJBoTVuCXGAU8BKTvCO/cEQ1Wjk3Zzuy90JX4m3O5IlxVFhYkSUwuQB2up7jhvkm+bddRQu5F9s0XftGEJ9JSuSk+ZachCbdU45fEqbugzTIUokwoAKvpUQF/CvLbWW5BNQFqFkJg2f30E/48StNe5QwBg8zz3YAJ82FZoXBxXSv4QDooDo79NixyglO9AembuBcx5Re3CwOKTHebOPhkmFC7wNaWtoBhFuV4AkEuJ0J+1pT0tLkvFVZaNzfhs/Kd3+A9YsImlO4XK4vpCo/elHQi/9gkFg07xxnuXLt21unCIpDV+bbRxb7FC6nWYTsMFF8+1LUg4JFjVt3vqbuhHmDKbgQ4e+RGizRiO8ky05LQGMdL2IKLSNar0kNG7lHJMaXr5mLdG3nykgj6vB/KVijd1ARWkFEf3yiUw1v/WaQivVUpIDdSNrrKbjO5NPnxz6qTTGgYg03HgPhDrCFyYZTi3XQw3HXCva39mpLNFtz8AiEhxAJHpWX13gCTAwgm9YTvMeiqetdNQv6IU0hH0G+ZManTqDLPjyrOse7WiiwOJCG+J0pZYULhN8NILulmYYvmVcV2MjAfA39sGKqGdjpiPo86fecg65UPyXDIAOyOkCx5NQsLeD4gGVjTVDwOHWkbbBW0GeNjDkcSOn2Nq4cEssP54t9D749A7M1AIOBl0Fi0sSO5v3P7LCBrM6ZwFY6kp2FX6AcbGUdybnfChHPyu6WlRZ2Fwv9YM0RMI7kISRgR8HpQSJJOyTfXj/6gQKuihPtiUtlCQVPohUgzfezTg8o1b3n9pNZeco1QucaoXe40Fa5JYhqdTspFmxGtW9h5ezLFZs3j/N46f+S2rjYNC2JySXrnSAFhvAkz9a5L3pza8eYKHNoPrvBRESpxYPJdKVUxBE39nJ1chrAFpy4MMkf0qKgYALctGg1DQI1kIymyeS2AJNT4X240d3IFQb/0jQbaHJ2YRK8A+ls6WMhWmpCXYG5jqapGs5/eOJErxi2/2KWVHiPellTgh/fNl/2KYPKb7DUcAg+mCOPQFCiU9Mq/WLcU1xxC8aLePFZZlE+PCLzf7ey46INWRw2kcXySR9FDgByXzfxiNKwDFbUSMMhALPFSedyjEVM5442GZ4hTrsAEvZxIieSHGSgkwFh/nFNdrrFD4tBH4Il7fW6ur4J8Xaz7RW9jgtuPEXQsYk7gcMs2neu3zJwTyUerHKSh1iTBkj2YJh1SSOZL5pLuQbFFAvyO4k1Hxg2h99MTC6cTUkbONQIAnEfGsGkNFWRbuRyyaEZInM5pij73EA9rPIUfU4XoqQpHT9THZkW+oKFLvpyvTBMM69tN1Ydwv1LIEhHsC+ueVG+w+kyCPsvV3erRikcscHjZCkccx6VrBkBRusTDDd8847GA7p2Ucy0y0HdSRN6YIBciYa4vuXcAZbQAuSEmzw+H/AuOx+aH+tBL88H57D0MsqyiZxhOEQkF/8DR1d2hSPMj/sNOa5rxcUnBgH8ictv2J+cb4BA4v3MCShdZ2vtK30vAwkobnEWh7rsSyhmos3WC93Gn9C4nnAd/PjMMtQfyDNZsOPd6XcAsnBE/mRHtHEyJMzJfZFLE9OvQa0i9kUmToJ0ZxknTgdl/XPV8xoh0K7wNHHsnBdvFH3sv52lU7UFteseLG/VanIvcwycVA7+BE1Ulyb20BvwUWZcMTKhaCcmY3ROpvonVMV4N7yBXTL7IDtHzQ4CCcqF66LjF3xUqgErKzolLyCG6Kb7irP/MVTCCwGRxfrPGpMMGvPLgJ881PHMNMIO09T5ig7AzZTX/5PLlwnJLDAPfuHynSGhV4tPqR3gJ4kg4c06c/F1AcjGytKm2Yb5jwMotF7vro4YDLWlnMIpmPg36NgAZsGA0W1spfLSue4xxat0Gdwd0lqDBOgIaMANykwwDKejt5YaNtJYIkrSgu0KjIg0pznY0SCd1qlC6R19g97UrWDoYJGlrvCE05J/5wkjpkre727p5PTRX5FGrSBIfJqhJE/IS876PaHFkx9pGTH3oaY3jJRvLX9Iy3Edoar7cFvJqyUlOhAEiOSAyYgVEGkzHdug+oRHIEOXAExMiTSKU9A6nmRC8mp8iYhwWdP2U/5EkFAdPrZw03YA3gSyNUtMZeh7dDCu8pF5x0VORCTgKp07ehy7NZqKTpIC4UJJ89lnboyAfy5OyXzXtuDRbtAFjZRSyGFTpFrXwkpjSLIQIG3N0Vj4BtzK3wdlkBJrO18MNsgseR4BysJilI0wI6ZahLhBFA0XBmV8d4LUzEcNVb0xbLjLTETYN8OEVqNxkt10W614dd1FlFFVTIgB7/BQQp1sWlNolpIu4ekxUTBV7NmxOFKEBmmN+nA7pvF78/RII5ZHA09OAiE/66MF6HQ+qVEJCHxwymukkNvzqHEh52dULPbVasfQMgTDyBZzx4007YiKdBuUauQOt27Gmy8ISclPmEUCIcuLbkb1mzQSqIa3iE0PJh7UMYQbkpe+hXjTJKdldyt2mVPwywoODGJtBV1lJTgMsuSQBlDMwhEKIfrvsxGQjHPCEfNfMAY2oxvyKcKPUbQySkKG6tj9AQyEW3Q5rpaDJ5Sns9ScLKeizPRbvWYAw4bXkrZdmB7CQopCH8NAmqbuciZChHN8lVGaDbCnmddnqO1PQ4ieMYfcSiBE5zzMz+JV/4eyzrzTEShvqSGzgWimkNxLvUj86iAwcZuIkqdB0VaIB7wncLRmzHkiUQpPBIXbDDLHBlq7vp9xwuC9AiNkIptAYlG7Biyuk8ILdynuUM1cHWJgeB+K3wBP/ineogxkvBNNQ4AkW0hvpBOQGFfeptF2YTR75MexYDUy7Q/9uocGsx41O4IZhViw/2FvAEuGO5g2kyXBUijAggWM08bRhXg5ijgMwDJy40QeY/cQpUDZiIzmvskQpO5G1zyGZA8WByjIQU4jRoFJt56behxtHUUE/om7Rj2psYXGmq3llVOCgGYKNMo4pzwntITtapDqjvQtqpjaJwjHmDzSVGLxMt12gEXAdLi/caHSM3FPRGRf7dB7YC+cD2ho6oL2zGDCkjlf/DFoQVl8GS/56wur3rdV6ggtzZW60MRB3g+U1W8o8cvqIpMkctiGVMzXUFI7FacFLrgtdz4mTEr4aRAaQ2AFQaNeG7GX0yOJgMRYFziXdJf24kg/gBQIZMG/YcPEllRTVNoDYR6oSJ8wQNLuihfw81UpiKPm714bZX1KYjcXJdfclCUOOpvTxr9AAJevTY4HK/G7F3mUc3GOAKqh60zM0v34v+ELyhJZqhkaMA8UMMOU90f8RKEJFj7EqepBVwsRiLbwMo1J2zrE2UYJnsgIAscDmjPjnzI8a719Wxp757wqmSJBjXowhc46QN4RwKIxqEE6E5218OeK7RfcpGjWG1jD7qND+/GTk6M56Ig4yMsU6LUW1EWE+fIYycVV1thldSlbP6ltdC01y3KUfkobkt2q01YYMmxpKRvh1Z48uNKzP/IoRIZ/F6buOymSnW8gICitpJjKWBscSb9JJKaWkvEkqinAJ2kowKoqkqZftRqfRQlLtKoqvTRDi2vg/RrPD/d3a09J8JhGZlEkOM6znTsoMCsuvTmywxTCDhw5dd0GJOHCMPbsj3QLkTE3MInsZsimDQ3HkvthT7U9VA4s6G07sID0FW4SHJmRGwCl+Mu4xf0ezqeXD2PtPDnwMPo86sbwDV+9PWcgFcARUVYm3hrFQrHcgMElFGbSM2A1zUYA3baWfheJp2AINmTJLuoyYD/OwA4a6V0ChBN97E8YtDBerUECv0u0TlxR5yhJCXvJxgyM73Bb6pyq0jTFJDZ4p1Am1SA6sh8nADd1hAcGBMfq4d/UfwnmBqe0Jun1n1LzrgKuZMAnxA3NtCN7Klf4BH+14B7ibBmgt0TGUafVzI4uKlpF7v8NmgNjg90D6QE3tbx8AjSAC+OA1YJvclyPKgT27QpIEgVYpbPYGBsnyCNrGz9XUsCHkW1QAHgL2STZk12QGqmvAB0NFteERkvBIH7INDsNW9KKaAYyDMdBEMzJiWaJHZALqDxQDWRntumSDPcplyFiI1oDpT8wbwe01AHhW6+vAUUBoGhY3CT2tgwehdPqU/4Q7ZLYvhRl/ogOvR9O2+wkkPKW5vCTjD2fHRYXONCoIl4Jh1bZY0ZE1O94mMGn/dFSWBWzQ/VYk+Gezi46RgiDv3EshoTmMSlioUK6MQEN8qeyK6FRninyX8ZPeUWjjbMJChn0n/yJvrq5bh5UcCAcBYSafTFg7p0jDgrXo2QWLb3WpSOET/Hh4oSadBTvyDo10IufLzxiMLAnbZ1vcUmj3w7BQuIXjEZXifwukVxrGa9j+DXfpi12m1RbzYLg9J2wFergEwOxFyD0/JstNK06ZN2XdZSGWxcJODpQHOq4iKqjqkJUmPu1VczL5xTGUfCgLEYyNBCCbMBFT/cUP6pE/mujnHsSDeWxMbhrNilS5MyYR0nJyzanWXBeVcEQrRIhQeJA6Xt4f2eQESNeLwmC10WJVHqwx8SSyrtAAjpGjidcj1E2FYN0LObUcFQhafUKTiGmHWRHGsFCB+HEXgrzJEB5bp0QiF8ZHh11nFX8AboTD0PS4O1LqF8XBks2MpjsQnwKHF6HgaKCVLJtcr0XjqFMRGfKv8tmmykhLRzu+vqQ02+KpJBjaLt9ye1Ab+BbEBhy4EVdIJDrL2naV0o4wU8YZ2Lq04FG1mWCKC+UwkXOoAjneU/xHplMQo2cXUlrVNqJYczgYlaOEczVCs/OCgkyvLmTmdaBJc1iBLuKwmr6qtRnhowngsDxhzKFAi02tf8bmET8BO27ovJKF1plJwm3b0JpMh38+xsrXXg7U74QUM8ZCIMOpXujHntKdaRtsgyEZl5MClMVMMMZkZLNxH9+b8fH6+b8Lev30A9TuEVj9CqAdmwAAHBPbfOBFEATAPZ2CS0OH1Pj/0Q7PFUcC8hDrxESWdfgFRm+7vvWbkEppHB4T/1ApWnlTIqQwjcPl0VgS1yHSmD0OdsCVST8CQVwuiew1Y+g3QGFjNMzwRB2DSsAk26cmA8lp2wIU4p93AUBiUHFGOxOajAqD7Gm6NezNDjYzwLOaSXRBYcWipTSONHjUDXCY4mMI8XoVCR/Rrs/JLKXgEx+qkmeDlFOD1/yTQNDClRuiUyKYCllfMiQiyFkmuTz2vLsBNyRW+xz+5FElFxWB28VjYIGZ0Yd+5wIjkcoMaggxswbT0pCmckRAErbRlIlcOGdBo4djTNO8FAgQ+lT6vPS60BwTRSUAM3ddkEAZiwtEyArrkiDRnS7LJ+2hwbzd2YDQagSgACpsovmjil5wfPuXq3GuH0CyE7FK3M4FgRaFoIkaodORrPx1+JpI9psyNYIFuJogZa0/1AhOWdlHQxdAgbwacsHqPZo8u/ngAH2GmaTdhYnBfSDbBfh8CHq6Bx5bttP2+RdM+MAaYaZ0Y/ADkbNCZuAyAVQa2OcXOeICmDn9Q/eFkDeFQg5MgHEDXq/tVjj+jtd26nhaaolWxs1ixSUgOBwrDhRIGOLyOVk2/Bc0UxvseQCO2pQ2i+Krfhu/WeBovNb5dJxQtJRUDv2mCwYVpNl2efQM9xQHnK0JwLYt/U0Wf+phiA4uw8G91slC832pmOTCAoZXohg1fewCZqLBhkOUBofBWpMPsqg7XEXgPfAlDo2U5WXjtFdS87PIqClCK5nW6adCeXPkUiTGx0emOIDQqw1yFYGHEVx20xKjJVYe0O8iLmnQr3FA9nSIQilUKtJ4ZAdcTm7+ExseJauyqo30hs+1qSW211A1SFAOUgDlCGq7eTIcMAeyZkV1SQJ4j/e1Smbq4HcjqgFbLAGLyKxlMDMgZavK5NAYH19Olz3la/QCTiVelFnU6O/GCvykqS/wZJDhKN9gBtSOp/1SP5VRgJcoVj+kmf2wBgv4gjrgARBWiURYx8xENV3bEVUAAWWD3dYDKAIWk5opaCFCMR5ZjJExiCAw7gYiSZ2rkyTce4eNMY3lfGn+8p6+vBckGlKEXnA6Eota69OxDO9oOsJoy28BXOR0UoXNRaJD5ceKdlWMJlOFzDdZNpc05tkMGQtqeNF2lttZqNco1VtwXgRstLSQ6tSPChgqtGV5h2DcDReIQadaNRR6AsAYKL5gSFsCJMgfsaZ7DpKh8mg8Wz8V7H+gDnLuMxaWEIUPevIbClgap4dqmVWSrPgVYCzAoZHIa5z2Ocx1D/GvDOEqMOKLrMefWIbSWHZ6jbgA8qVBhYNHpx0P+jAgN5TB3haSifDcApp6yymEi6Ij/GsEpDYUgcHATJUYDUAmC1SCkJ4cuZXSAP2DEpQsGUjQmKJfJOvlC2x/pChkOyLW7KEoMYc5FDC4v2FGqSoRWiLsbPCiyg1U5yiHZVm1XLkHMMZL11/yxyw0UnGig3MFdZklN5FI/qiT65T+jOXOdO7XbgWurOAZR6Cv9uu1cm5LjkXX4xi6mWn5r5NjBS0gTliHhMZI2WNqSiSphEtiCAwnafS11JhseDGHYQ5+bqWiAYiAv6Jsf79/VUs4cIl+n6+WOjcgB/2l5TreoAV2717JzZbQIR0W1cl/dEqCy5kJ3ZSIHuU0vBoHooEpiHeQWVkkkOqRX27eD1FWw4BfO9CJDdKoSogQi3hAAwsPRFrN5RbX7bqLdBJ9JYMohWrgJKHSjVl1sy2xAG0E3sNyO0oCbSGOxCNBRRXTXenYKuwAoDLfnDcQaCwehUOIDiHAu5m5hMpKeKM4sIo3vxACakIxKoH2YWF2QM84e6F5C5hJU4g8uxuFOlAYnqtwxmHyNEawLW/PhoawJDrGAP0JYWHgAVUByo/bGdiv2T2EMg8gsS14/rAdzlOYazFE7w4OzxeKiWdm3nSOnQRRKXSlVo8HEAbBfyJMKqoq+SCcTSx5NDtbFwNlh8VhjGGDu7JG5/TAGAvniQSSUog0pNzTim8Owc6QTuSKSTXlQqwV3eiEnklS3LeSXYPXGK2VgeZBqNcHG6tZHvA3vTINhV0ELuQdp3t1y9+ogD8Kk/W7QoRN1UWPqM4+xdygkFDPLoTaumKReKiLWoPHOfY54m3qPx4c+4pgY3MRKKbljG8w4wvz8pxk3AqKsy4GMAkAtmRjRMsCxbb4Q2Ds0Ia9ci8cMT6DmsJG00XaHCIS+o3F8YVVeikw13w+OEDaCYYhC0ZE54kA4jpjruBr5STWeqQG6M74HHL6TZ3lXrd99ZX++7LhNatQaZosuxEf5yRA15S9gPeHskBIq3Gcw81AGb9/O53DYi/5CsQ51EmEh8Rkg4vOciClpy4d04eYsfr6fyQkBmtD+P8sNh6e+XYHJXT/lkXxT4KXU5F2sGxYyzfniMMQkb9OjDN2C8tRRgTyL7GwozH14PrEUZc6oz05Emne3Ts5EG7WolDmU8OB1LDG3VrpQxp+pT0KYV5dGtknU64JhabdqcVQbGZiAxQAnvN1u70y1AnmvOSPgLI6uB4AuDGhmAu3ATkJSw7OtS/2ToPjqkaq62/7WFG8advGlRRqxB9diP07JrXowKR9tpRa+jGJ91zxNTT1h8I2PcSfoUPtd7NejVoH03EUcqSBuFZPkMZhegHyo2ZAITovmm3zAIdGFWxoNNORiMRShgwdYwFzkPw5PA4a5MIIQpmq+nsp3YMuXt/GkXxLx/P6+ZJS0lFyz4MunC3eWSGE8xlCQrKvhKUPXr0hjpAN9ZK4PfEDrPMfMbGNWcHDzjA7ngMxTPnT7GMHar+gMQQ3NwHCv4zH4BIMYvzsdiERi6gebRmerTsVwZJTRsL8dkZgxgRxmpbgRcud+YlCIRpPwHShlUSwuipZnx9QCsEWziVazdDeKSYU5CF7UVPAhLer3CgJOQXl/zh575R5rsrmRnKAzq4POFdgbYBuEviM4+LVC15ssLNFghbTtHWerS1hDt5s4qkLUha/qpZXhWh1C6lTQAqCNQnaDjS7UGFBC6wTu8yFnKJnExCnAs3Ok9yj5KpfZESQ4lTy5pTGTnkAUpxI+yjEldJfSo4y0QhG4i4IwkRFGcjWY8+EzgYYJUK7BXQksLxAww/YYWBMhJILB9e8ePEJ4OP7z+4/wOQDl64iOYDp26DaONPxpKtBxq/aTzRGarm3VkPYTLJKx6Z/Mw2YbBGseJhPMwhhNswrIkyvV2BYzrvZbxLpKwcWJhYmFtVZ+lPEq91FzVp1HlQY1bZVLqeNR9SAUn6n0E28k/UuGkNpP1DBI5ch/EehZfjUQ9aE41NhETExoPT2gGQz0IhWJbEOvTQ4wgcXCHHFBhewYUiFHuhRSAUVmEHeCRQHQkXGFwkAgyzREJCVN7TRnTon36Zw3tPhx4EALwNdwDv+J41YSP4B2CQqz0EFgARZ4ESgBHQgROwAVn9GTI+HYexTUevLUeta4/DqKrbMVS+Yqb8hUwYCrlgKtmAq1YCrFgKrd4qpXiqZcKn1oqdWipjYKpWwVPVYqW6xUpVipKqFR3QKjagVEtAqHpxUMTitsnFaJOKx2cVhswq35RVpyiq9lFVNIKnOQVMkgqtYxVNxiqQjFS7GKlSIVIsQqPIhUWwioigFQ++KkN8VHr49HDw9Ebo9EDo9DTo9Crg9BDg9/Wx7gWx7YWwlobYrOGxWPNisAaAHEyALpkAVDIAeWAArsABVXACYuAD5cAF6wAKFQAQqgAbVAAsoAAlQAUaYAfkwAvogBWQACOgAD9AAHSAAKT4GUdMiOvFngBTwCn2AZ7Dv6B6k/90B8+yRnkV144AIBoAMTQATGgAjNAA4YABgwABZgB/mQCwyAVlwCguASlwCEuAQFwB4uAMlwBYuAJlQAUVAAhUD2KgdpUDaJgaRMDFJgX5MC1JgWJEAokQCWRAHxEAWkQBMRADpEAMkQAYROAEecC484DRpwBDTnwNOdw05tjTmiNOYwtswhYFwLA7BYG4LA2BYGOLAwRYFuLAsxYFQJAohIEyJAMwkAwiQC0JAJgkAeiQBkJAFokAPCQA0JABwcD4Dgc4cDdDgaYcDIDgYgUC6CgWgUClCgUYUAVBQBOFAEYMALgwAgDA9QYAdIn8AZzeBB2L5EcWrenUT1KXienEsuJJ7x5U8XlTjc1NVzUyXFTGb1LlpUtWlTDIjqwE4LsagowoCi2gJLKAkpoBgJQNpAIhNqaEoneI6kiiqQ6Go/n6j0cS+a2gEU8gIHJ+BwfgZX4GL+Bd/gW34FZ+BS/gUH4FN6BTegTvoEv6BJegRnYEF2A79gOvYDl2BdEjCkqkGtwXp0LNToIskOTXzh/F062yJ7AAAAEDAWAAABWhJ+KPEIJgBFxMVP7w2QJBGHASQnOBKXKFIdUK4igKA9IEaYJg) format("embedded-opentype"),url(data:font/woff2;base64,d09GMgABAAAAAEZsAA8AAAAAsVwAAEYJAAECTQAAAAAAAAAAAAAAAAAAAAAAAAAAP0ZGVE0cGiAGYACMcggEEQgKgqkkgeVlATYCJAOGdAuEMAAEIAWHIgeVUT93ZWJmBhtljDXsmI+A80Cgwj/+vggK2vaIIBusdPb/n5SghozBk8fY3CwzKw8ycQ3LRhauWU8b7AQmPrHpsWLSbaQ1gVqO5kgksapZihmcvXvsSAlqZIYL1YkM/LIl97nZp395IqcEA/f21yuNQLmMXb2rZZ/7e/rS+3aQoE5jiykOu275k8k/fj/okKRo8gD/nl/nJmkfxsrIHdGdBcGkiz+6PvzlXksg+3a0LRtj240x7fSAEokyS6Dhebf1LCdu5KvgAAco8DNFd2ngQgUXgqAmqf8L6c5UtGxo2DBNGtLY2tKGZOVZ2HLx77Kss250ad5d3Xl1cpW0vK77me4TVlhzag6hop7lZ01uGarTmUiBV5Wpw9QIIHIy9D5pVGBWN7jNUiixqMnPGuD/K6BvNvMnY8XIQrCP5gbrNOe31s653X+Hg4vjv5quVAldYVtRZDwzd3E4LI6F7nJUSRahOOESHI4wPkW4P/kqRajnl6aVI8/6NyeN7N39hlMJDAtvY/vKt+1fizcmIyrRKym9s6DQKzRhAbBBNrZjjOd5sdmjhmYoYhlG6ebk/+m0JDt7IFlBwzF2UC10R/j/jOHAsRXNIvuwldsBQ8JmLSBXgveuAprUmc51S9awSwjjI63tDuSs1ipLhjzb/AQgKNHf69T31/9a/mDZqwzltVuXJepZBVSKrHslr8mKJIitEKBze2/v7RmcF/KIgxjVu+92dCJw4Jw0YMjq36mKz6R9bwxg47PdFPonbhRl3D4K5EceNXMAevNfTvMKklBL06Z2bVXeC8m+e3q93PLu8/+fGfh/+IyHIjNgbA2SHAOWVyPUkL1eGEArjSwHY7nJa2+pjUFPG3AVbnW1p9R685Z6Sin13M6lHveY2zHHfeHh/0893n+ttoB4vlLGxGDBSolgp3GDFaWCVXMvvyv4a9J2xzF4bBrd3+dqEmwFlkVs7FxuRIzIw8a2r1aGseb/0Gpnm3taZOWJCHo3jwsUNf/fIQR4bcI1b8JbBxy9v3Xv+ya3rzHagkgQQmtB4uwIcXLqzlKQxA2jt7AWjyhcZ2j0EBTIN4ns0op5jz2GSLVa81VQaOnQJDgQUmfTBcQYgHrCZ82tyU46i+AAMXWsJNyFr6Shnj5S/V3l+hSXDqasIp/0Zje8lwv1S69efyeYquu9M5MrRS+8xF6JWVU1XahOQhcu3sqLpdI438Urzs2POI/5LHyJe018jEGKEeV1YXzQYYiSf+yO1d7LhdWdJQAKf2xLR6JQ7SwXTnUU5tzUa/5j7zhtWEDa02T/F8yYP3/x/NrzoudZ0ybP/nvq9pT4s8fPDj/bUNworhRHil22v8/G5K/kT+SP5Lfk1+SX5AZyLbmSXExGyQg5lywmp5N55DhyrPu0+zP3H9yfuD9wv+8+6n7b/br7FXPo5P8Fi54S0BCi00THCKR68zH6oT8SXFU1FnE9rdl00XrUkg6GJlqQbmqiJeltTbQifbyJ1nRr3kQbundooi09/22iHb1CE+3p9Tc28fSugyY60rvJcXQiC9YxOpMVrOvQlaypdTv0IktfoS9KZNZjMJZssvUcMB2yxSdeAxZCtvk4VkO21XpnsAayvawPBlsgO8r6ZOwK2VnWF2J/yIN1HQ6HvKl1O5xAnip9AQZ5iXwMLqmsJ0M+E1xnPRvyOeBW68WQrwG3W2+GfGfwoPVekB8MnrY+ivxkvAo5rc/H++QX7tjF+JQKKkV8QaUOj+MbKk2tW+NbKm1P3A7fUel6HD9Q6W7dGz9SKVmPwW9UJlvPAVUqi5U1EMBT2QxNQgv+7AShpfBbsxMKrYTfb1lEaK0Y1Xvs0Sx9MTxmjSYCNmikGIYnj4F/B8qlVSNWqAjeEa28H6GlRftEfyJUwaXeqdAGokFEOYP/ZUK5OqkHBhXEJQ8CT5zBINLQBBPxgofYRhJ1im4gFjc/JVIDRzQihLhmqWfHwUbquoEgDmE9gpEts9VRl+G9eStCvSzE+NAyw8sT1oU1opWH8JmEjHhuoQUVzqoEZiohobPm62zifEdYUfgg3oNVcJTkCsVFdSDCQJ4Bj6blLfCABB9Eby42WVr2gi0mYT5mEj+bAKuTTo9OnKIJXdRPL147XNoOwkrKDc9CBsdFc0pyGQSqkBkBoMSa9cYPFCfyhWcSL+Pj0UIXJZ+hHm8gH0P16rpulTeL3DoFfPV5g0t0sib3JKfYc698ufV3UIj5xFxpXb4kWhJAKwHNDLa21YA5MHhdu3K4rSW+yNUr9gdSVaxFbYcrFtywqqM7d6B1rMA5L0m8BdQ3yDfVprlR/mx1XKZ50A5XixBOKes4idywdlnuKnW0bQKUobG/6eKp4gS6bSgJZgbKRb3y/0c4sgyiaiNJrL1SjswX+XoMI3G437ffAQYJhClZoNckiwvh0JuGY18lv20teyEwLWALO+HlhazxFGh5VvXkwV1IdiEJzx90HGG9XEvvxRAeBqVbzDF7GgMi52ogNkDsljNUMCWlE78P6c6YIsfUmcZaSYZH5AabU5P3jYIusxHEzqNwB4HG06xTxjFl6fvZk8TYm535DFnBHv92uzgaCGSxXLFCoRdsoVP7/lIpBtIT04bn+a+WroALewJJitOG9NIlnZSvPvsw0I7aprNc8CeUY2e9MiU0oFGORKEKMM2SM0KyIslNjtWOJoDbimhJFcfC2qfSUmcQt01FpKGpobaaDUm9zigHqd7VNVWWRF0MffIdmQdi7Tgkl4fsOKg+8+FYIAGyB2iVImwetc6A4mocnS4liNuAGEhIxy0LSZqm3bgjMZIdQwE09d5Z3gE3hO3urhLtWd2WoVYMbwgaPlDKXaE2v7cHmPaZTzT/N2YaDb1+ABgeQUpkWUbVwoDKLpbeb/XD/nkpCcY4bMYLtjIyjmWKnB+m0jFIG6FbAXSJsEAhyIUMMlyAQLgINQbE2ZPKJVrX7vzba96SCAZh9Z2u3ED6LmBuqDPKT0aMohBSKPOFpbb3/71aAWtMawVGIO1IV2pZHw1JpOo11+cqE/E22s5ltVNiay6kvDVGLBfsLpUCTjDf1JmSuYB8lIZWpoB8fH4FTvSHKAkgNLed7NpdLOwaSnB8fvl4ZdPJQajUHKGvNYiIL7vau1Ok/QTk9JTQdvLX3Hk/m/myJ192fHLqhMtY3Ab47kjpUcoFsLUVBcSTQkA9C91YrN/6rEITGDnLNLOYq8NUqdhCiUKpY6CtwRirSJFQo84rgvKJgV+Tk9VZSNkjrCSqy8pgoOxG+KPxQjvjtcIr2xGUhUJQUrA0zLwgdAStOnQI9SJaE0W6Sl4hWMLHk+CscTRfZFRXKDXk3IAEp+X/5B+42kmxlFXFh9JBzXr+QFU2/24uV0dY/cDBBehI7FJLwBbbGiYIJ3N3TbFqisqOmIuxPJ+UsZgzpimAlp1gI0ZAEgwYDEYg1KLgCP7Ydo1vzWIkeAwH7yuy4Lx1+ya0fYl8ylgYJlvZqpA4RostuUUmLz6KLxfRR8UuYep6XoreL4PU/n0pnBGyE5LzJ5N4qZEkTz08AcfCepmkb+Sn4UE5TR/YnSYd8n7uoZm5MxlytQUzZ5+cpie/ONKjXLAttk1EesjoEZj4a7rNNYb5sbRBCt3C/apHOankfDEt2CEgxzg3+xBbnH/0pCxtUu51fKY1N64KHD1Y/pGkLJhhSqfZGxabuF50tE6bNNPYXGYQ0IRdQXobSF4CN7eqRpXoHP6VmYQmayIbTFU+few+53JC5Vgo24Kq64ICVJolv6sLSqoIv4StZGhLxB+U87ZQk7JLwR5URmFBhzNISIZDW3I7YZvAtmQCt5kXhxqVNTTIzAyJl2xMhGsDakcPGnuh7DifaH7kjwcNZlJAA9Ds/B45d+BCqKTg0DDrC3pT9fSw4v8nl6AUAmE3A4JA3UBOm7GK3ca5bJFiGGozD2hOBBPuslj2i0Yvye1lonOj2Sf6ikRzUavxPP5rXtPtHfLXvLL9iFpBU0+oaRdkulNK43gcTjREvbPAS9MhtLnU+Qkh2at2iaxoQWDbRZa3WBCQlQACvMotDaJQDe3EOp+C29GkG39D6jrCwlfNelO9c8RkTww6CBC2X7+r1Mtgijp0wWHOt9CRCx6lhrLN2LP6ohaBrg28SVnwBDTHDCMgEJD4KtIczSs8A+pxAG6wb9QAuHUKVQgEzGN3d4/zeCRktbPwG8a/Dp19z4H71sE5NMz9mu38AzlwrCpUOvolRxVR5oVeYZ+LFYcQ5APdyyeo52WDHvRi9qgEFBSKbC3V3CpY3UznJSrFuggZuC6F2orIXIpAcFIkVOUqS9YYzQW9CLhocIfAiMjowYLf46Zt+sEbkeItL5NvU9ozjt/CRY3gz850b3+4B55959C2Vodv9QdlSgtgPJkk9tl07dgSvd/8HwmqXWcq31qbD4S1NnGwwPlskgT4fhv3Ra+rCoZT+rgvipL5aaPEVMZ0zWuCx67gslfdw74M3D0/arkAR6LSzNRVVQVBSsb1Dv2bAhxghtJi1MuRl4NHwoj1Uc1Bz6upgfHDls4VxtrsY4P76r1Xy++pFegDV1NtCN3ArWezutpGy/GqkSapXhb1+tiY1KGINjtDMTo924hQieS6FNVgytqckFZW/5Md1EWdxjUitGhPq1jgfhQbq97YTjNfNdOBXbp6Lf6t5JJDV9PddNSljYLTiLTQGMtl3F2wXLaUqb8dVq8ZE5aL/2PUIx1tW8Zrdd6XrV/KsSKpyfZzjUizf/Q8fXjvsQKFbTBi5XgBSNNxYh+RYTN0ZudNVNvRzypdSbsYHAoV3n3XKBz6vpwsTZSEjZY9igndQIxKQdvG0GSJkKCsyz/CpzZQVrH2Ww1kVuN29OY0ap7S35uRbEhc4vfUFozF6HuY2PICTfTlvciYXLqdjeUBWf7cgYAcHYFgOU3DYEQTYoc8wQUSO2EjevKGkTyKeCIG8yyoZIJnQ2m/YJFjkpsWOsEBBcjiSbTiPmp3t8x9SgXIyXqnjV46Vi4d/TrX/tqLE3u/zbwGKMiyQvfmyxzJpgOSyfN4jjwYHkRiIyJTo6F79JJQ+Uh1vU6BLxPre3I2BTt3VbYT5tDyEnPWUBfQnpM8pOdYwOBZ4nPUxPfeTXh1sIcUXJpiAJHac7gkEY6YEXiOyiiiiS9efANeKhgwan5t4Kw7I7clSoTeTTSdx3CYUU3XrPA6OhpiXEMyZ2YBsLBdvXrSUDhUmSBVqpNRYtbodLqDHUMcvVSfPgpwoDgrNmdfMpZszqE2p0jyEQgg2s4Ax4YPSJ069w1kmzzmQ83pNrOv2KTqL6u/Nn/jRTrCS4uUIstga0qpPJvPxqLkPQj5dp43hKXiTjW3tWCw8pu2SnSLEtlcark2zYUlAw7Lnjf0KqUnD6UQlVWV2TSxOuIbWCsN5FwCYgD8kkUKEeTs9N5hZq6KeIwfk33BiTErcJmLQqXLMO428hfilOX9njNy9UEkG04Umn62EvQjs2SqfQjH16SfUDdo90g3YqNGqp7Cp4WCrDjwEQ0es1A++EJ0GR5HTtAUFY6i8G3kAYJ49ECPagmFkbh8e8BzORIZ4Ls9D/53UtkvratvREpzNRZ6PpM7iid43fFFBtBxFV4GculePUcaP72FOUHqoQZ/5pbHQeRfl6MG7UsltUTJrjp1aWtqa+5JGGXJ5r0arEf61Z0jKqGGKbVqbQaR4Xy9dKO5fWABSuapWtiI6db3FwcDSA89NO6de2ffgaK+KaFxWIhNQSwXmkj4jDcY+zGJ61YipdkUD28s51kjaBL9/PfdqFMX8l/qO4vNYV/Ul1peY240oq0QjaCCSLhFq64/iauwEX3RCsidobut3O682aQ9fUKeV3beqlVl8OVomheD2gBHHYqTRpCFiZHmO51AMlOl2AGcgEDLZiAF/sLL/G7N4jLQI42O5h658RNm3Vk6Xb9KeeUISF0arZUtt5hH14x3Z3YnoQcE4nyIxDBl8QrDXzeI8NKQq24rZh7f2bji4Fk8q+cozQqqP/bskhCpkXny+aEld22sK2oOgyYmIeiiY5NeoXUnnWL8JvFon202EATCpJrO+7kqMgw/HLRBx0kcq7bGsjVGBle+2Jlb4sacBqhC9VV670nORZSTIZJtOovS+5x4aNRll93Hrm68enxdJQyNkG0R2XLBVbhGjdqvkAWU+RF/rjHGCx2JfTshD24gRr4moGfy2vH/UImG3QGvrxsbOybX9qmc+O8YJCS4GulGqykaLnSbQu1RqDOmjr0VKJ5DPfq30+SmWMDO2GVz1Dvdafurtq3ZikC80Qh+/E7tyRsbzqFFAX/rCdRTUosUBBShiGidXOnoo/rBQmXxbxi6hr2coLS5zgFiVNEWhAZuzpIRanUCub7AGwkHZ0Dk9ycEcVHrlI5ueC51NmJWVSbUDJtduTvb76oVIUNfDIQWBgsIno01xireerkdybr7bYBSUXWRqnGCkuAWprFQ/NpaMIO2fW3xvKHMBsr1br2mXm7VT3LJVKbiwZG1zjqfVeMn12jA5qcwbg9aoXBeGVLpfERGql9iXPJAltZtgYLoREXrOIEAxntv6B5HTYnhoJwBcbjdzwZ93O5TZCAWFK4PQywb+wRpwNyaReodEorpL7Dew4tbGGQ4XY7XLE1DSZrO0PNfdZcsXVaZgWPxIpfkpHAYsAZnHUDsYCJ5KYssO0KzXmWtnmwQ2ggEoaoyJ4AuKJ3N0MSY4nk+4C0afM5orRjcE9PEd5r6/uo7qWrlpegdku3VjRjR0mnUvbHkr+pfGQhvfCFA9inJot0eqsQ9f9nMjFNQep2X6R0fiCohen0pvHzGp1R9vWoYkYZFo3RDrFrloW6MjRe9f8O9nCrVnvXJNNuG171buamxC745GrvQrgWojuiIF5EGkt2T9Yx6YFcIbRRl9G+Ci3xqOGqt7zXhGJA5vPa1QC76mkW/GFbML8xaVwVAF3yXgWZf5xBcIiQde+EFnJF2EKHg8oPznMDIL7gG8rY7YdcWHDpTZaZpM1TkR8sQKuvO/YNduMahL8xoFMAyHUMzMiS/0wEO9L/8MX2/jESkzU5Yyfj+dOw/Rs+d7X5uLFBqOQ8u7pY+16P8qM17Cjn9f8lFTi12fDNohhTykUPF0LhFlJWHIFhU4OLLO1CWJMM9jUrWLQ/d1Wfdlf35aWd6fnGXKEHpPDpoEzGxObMz4U7szL31UYmL48d9Q0zYf5BX+d+nwteO3H6DEhvhDRLaYpmlIoaBh818xzR1fe7wrdcB2WOZeYAE4IvINrChMv9bIKXY1lxkuCy10o7Vs2KBEWv5pMxE5eS+JTBU3Hitrns9O/bUt4uGASiEaQiHC43YTFO3+BPfMb2Y+P2p0TP/Ts9oL6Q2P+YnRV72fv/G1FCuf3tzWuwbmVrTS5TEnhNCe5JEzHT4Jom91HqS0/cptRdVb2H5NVGmM4+RyJeIcn6/jpG+CqYB9Nn5Rl0RoCS6POgE+nRtKJp9DPvDz01CQIeeW5xHeOwIzkbTBWgQOACbI32I9CyjI8CYdQv9TGF6KN5RaLE0JdN4AW0EYFUT4JXVuS5FEajjdjFhkp40Dl8nL1uoZLF7RnioSco1OZ6MDINE9RE86uwmkDhWiEXzRmfJyNkL6IqYI/VJkeSfjTJTss3u/18GD+OpXVFxQROabojRX/BRGecHEj5i3pg0Z6EZqK0TsS2uATAmB0UjY6bcaTi/CXZSL9U0/xhynorrCJpQN5WjSwNzT1cFtU4z1Y8edkVcYnGGf/tR3zUYEo1audq9Vnk1B12NE73W9uBoLwlpKcX7naaOLS+0sOOha7VOrNGOvsjEHBMjZewpIlAX7fH8CAl7/UtTUZB4ibK4naY+YeMmte22jjxhLOumjBdIRUjP8vOJDQIcXZQlLGVEnrNVfle7bP0XjwPam6s7Y77hmJP3B2D+nT8gob5wkU0Nsgts6+ouglCyVzf1BqHZo8guGi/0V5wjO1f1ZCqWOno7RTKGqJ/u9uP6aqEH+DkTecncQcdTkFM46HXAjLbgrDtmWTi7bSBL0a/o7NSE1LaJzaE+LIQXoA4NX+hnpbTxLW3hYzzXGG5d0KctFK41kTJjqLmhrvF6Daw3ZCBQnHrzE+UBtRng8vCyVoT2k/ulTx1Qdma8Uv4MUqTTxuCwkzmGWg0tn8Ee3mQShveumoi/Q5ua8fPHYCz2YXTBPRMUh2s/dqLtNCNQDeikQswWCKGa2KW4L1sX9QZzLjxhFTBlxnuPtCaOonb+EPKhYX4BHWUBCNDzOIvoKWbksRwX224UeQaS6gJm5EJQHEz5dfGzSXmySBg9U/gy9tEdlNIiW8PIKNnCvE9A7XoqSbi6QMX2MJfkqiOY49zgLBrQAAKt9MVJJFGhz3kNDWP00Z5GDethj9+eA3Yisu8OfFLH3JgJJ1ecE0agDHg/Ef4rYU6DTfauj0vOYMZEBd4DL+i3bmY6WLhJODpICbFJUm1dm0v0ujZpDiD8QFUSz0gqTu3QbwhGrOD9O5axqZvhh48iAledcaO+ZFyT74qIiZHQjSpDPSPjMs82eJQ37DxUz9UbCjd5iNRyVT4tYkgpERHJunrvICd9tte23e53nCEEF3LBWM4RWoq1CbQuOpJWbtcTO+4t7j6KOuEKHQI2AeBy/72HDh1VwWNz1TRrrBFWV6x7kvqJ8COtD5g135EwwULd4+zHYNyd/zB1mtEiLlHKxh+sm2RCtJgwo5Qd9ZhDntBy9R5d7e/gI+26UTkIbHGc4AJOXvTWs42v6fRofqBOVVy0ILwxNpoKfunoFZMc4ZRTkW6HVPIEbKKRXP5USNKy2pst2cl+qkd+KSSFb1E3Hi3rr0PvEbDMAcjsfXESJS8cYZmms3ZPsKp8W3E0loKKkrN+QmMtJE7cGzc8VhiFSEWAH2ktmZwX6FLIRpMMR05N4HvQIjOVkAz7NDmHWxWEajygkOG4HaxX060LyuNo1fiYAr9skW7bBsMg/MjYUdKo2olHB2NxqO9Ad68vZSBx/6PMFeYBZ84crsg8iKPNxhAPOiCg6uFh6ZK3opF1rxDqzfGUlV9Qi2AM3flie0XrHOGmSSgWz9lPV0fdHOarZkV5wNzpQUJhX57fO08IXo5EUaPiJ+i1c/Pl5wzu0OzzYETuI9Gaaa86GNG02yvfFlkBe6l70nDlJrbFXN8aUmGemsDBl2cQ/s+eMP/BH2f671T5TM5pPCefN/YPpj/ABdII51gxucDPQ+/WCmGlv+nubjBvuXIx0QyZHhcvVa2liZ0F9QvOb48vDz/pleKZr2H501+scBXqj0jWsQ1H9ey0oKbCOJ/doz8zRokw8AeYgNlgJcP3z5HE0zyNCkeaXdS9nBk4YmzNjyUtLMIpfSWeA0qUOha5WQKt0mrQGxBUzTvQq8i2NcWSPp42HL2fkHfSew+cVumkgy4mE6P2KIYOb7mpKvVuPKfYbjkGoQbBSpYKImGHB6kL0JQIzd0roYYLYcovu/26uvA7N3pE2FrOtxF713SPTQlNcJejCWnYmmu8TlB3iNiRzbrwSGBUDfYkMjMbloZmHtP2wNDaMJp6H8bIO62hpp7nIvBdjPKqgiqOWbKk6RAs5FGhV4HYG+AO9LhsU+m1xsVPjnJXJDUGXUuhVtm7QuIWhdyahUm4GIoYa9p83z2yJsFb1Ojq3tHexTU4RdNSpDDei0drq3MbU+7xwW7j8m4RbnXj+vFFeEuN0H9y9KKsjH2Hfm0f8dlgEI5HNAJ1e9DR8T1dNmakAPfiCNeoCkJv1h4mPA2Zw7FjOzKgrhBQJMPHg3ttV19jG571wqonQjbQij8kvV56W49DA5cdWbndrZnppWrQTvN+C/6m264wBb67m/p0oq8G+rDb4oQ2LyktiTF/OnAkROqlhciXCq4QGg4KLCezhvx54PWx+MF2mMQghW6ci0azVNfRgZlbBCdhpk1izkpduyWQJsOuEKxsYzYCJsLoSXBG5ZDEDajcb/CMaYMGqsTJ/uMVNbGg+CdyqOTL5XKRKHG87+iQ+q7r7r56NsGw9p7uySg189DhRQ704Mmi1Z9sE1wdhUzxnWu6N6uwMcVZNF4pAmLZl8KmOPm8efjGj6rk2wpOntg9g5s5elSWXltUJIdka8IZnA1R4mlLJeGINo61kPxxtenn9czuZk98A+Da4GPQOCSVamledhsEcv4CLlFRUiLiWeFyxIrj4vW4DajDa/iSpd5yn7q8Sw6IorU8UUmJIhG3QLTv6lIQFDkN9sAPL72rGFwmN1l9bYln0oo3u5wceja4LU35dT2CwOks9f5OM09cujaMw2FEQY673q7wTGRecuvJLy6uPvug5ugKTrdl7c8IUmkT+zSmvtUhM1L5oroVkCKNNKaIyPH6mm6ZYuFtyS15W1impv/P8S4ixvQZIZT43FFLr+VFXAdOj+u1NGfVoNed+AWnv6aD77FhTqZwgg0+ayk5wcEwiEKNWurMQnMK9qV5ihlyjpplcqspdq+irkTz63TocnaBXPt2+Vut/D7zcrVKbZyBApYKYZzyq7XMvJt+dd0X6urVj7o+tXJNWpywmGPtQjz44w9gKVx513R8243v/3InPIYYGgb0mOA++dfW/uNb5sOOl++t6Gg36/qt/lrFEASMOH9jYUmBIbkNtHDiop/NzK4ALLYPR8PtC7trB6A1QMjZ9PcIG/9g9Mlpdw2I0m7Qnh04cJ92vyDnyRPpKo+dssInTwoL3R3U/IqyFKDdQVvILqGkco8WaPNUDXBSPys7y//zXBEqSItzTHHe5utVmrlmluI6cWwtxIekDPEqNiGFaOcry6wEAHtot4n2LSBqZ7FryU1NyddQI+O25Dq8fZGxuHsv3evuVsvfxbZDXeyYmeq3JluzVyTaqwEDXt8j4Pu4tjRmHVdhXA2LBcE17PDourpNWzaevRwpVKczl5UbFZt+/Nodzg6tyRLUwArjOi4gWpSmvAKoYHPeaSjNUvSpUYW8ssx8L/pg+QppbM9esEwjoKf3HfJmpC3x1zstQzsTX9ze+Sr5e0BFTUNvb8OCX6ScxsP1Nxe+VPbjcnF63Ea1JRfXr3yZmlU8WqTcb8ETW1RBPY6EBNAnRFBKXbQ7LFU5Ga+1ylGbsdNwip5rBvE0foAd6uEGweIGXwWNQ6pemXFFosWukJxiDYFTR3Pa+N/tf1mFnTJOlkEOrtJ17a4fJfDwU0SEgiDXaGoJCv95Ozkk37RJQajVaOQERU+PzBGE4bLLfQqoFmeJs6yFFJcvKyD51YOT7zWdSlnKIEDkB0f6+I2N/L6C6q5mMhSQorQEl1mgxOcvuMLfvJl/ZYTft7mxfHbeLxYfuCLe/9Vw5YDYfuWIi/FU4/Q4Hk9L83Iq0g+e3SoNhoMdwBM0aGngQFGbmTNnIh/RBmqynxw69CT7lTsdOpT9pGbgzfyW94wsZL2urnrNyMia2cbUjOq6swOwqxp1Jeegy6N9T/Ums76CaRkyD1XoLAtAAs1r6moPJXU/2xrjNKdOnEtt9t750GQ/NcndkzvKMJlZ753a/GV9c1r0gBuHqj5FxqtVc14U3Zx2e6B/6wSkpmZRPMSQoYlWUPzvw8pUDmbNpu4/pZD1bdhw2VAqAMgmAab30FGHR4n5e2OcA0rv8UVQGGUyKY54UL0wBUEG0d/NAftNyapaSLZqlSIR17si2UEFrNBDK3pxiW0EVhF64ZaeBfNVJdhDtQA6FkAxDubj8Fe5igzuWxF5Kc5KQPdvsWIlDPdqlBVBPilOD9LHgNRpf+e8JJJB84jA7HRgPsw/ZjBnAP9IMzZw6DbhzER8+wRNm+QM4fYQNE6NobAKnJIgNEq9StqDHq8KtWoHpJ6YxocBtPNcDe1woDPTGfgcjqM4jcCmqtHjltCv75QTu602cK4R+VY/OqwkgnNE+cBO+hK1Dsa5kTLvkm6SLLaESN1PXIJbuPjVuJv2S9ktKZ2rV365aeltmT8Y/66DVNA6sMzw3rpV1mVZjNPjii0jZEplKa+x2s9aqtU1lD/4JLvmDqFcZKlXGTy3ubksyYZ/hpo7r9i3uMM1zc3yU7jVuK+8GpdUq1SW8ZrOCMyEZiiBUFkOsHY9UQ1+RFh/Kge83w/dOPjovqlzLQnCCAXLqK7OgAU1NQIMrQ1YolKlbCBRQ88IGOEZpM4M4ZP4A9HAbHzy/TXOe/vTplRcdOq8lSvp76Nlu27F27iLksJQc9PoH2z7MxWZnflVT6lb/Nvux1q7yVMz5cCd7p+dKujsLJiqht86w5taH/6+xtRMiZushtUFU52d9BUnzLXm4yoH9fKMKkCo+BmdH8Sxfnhnbm8ysbkZ4RaI4i0KhYwgs1ezFIqrvVYcADvkcFrlBDmNPxN+hBirJKs2nzyUtVFygmJROCbzFHNlG5XJRWKv2lEULLf+XnxCsrXv56KY71ZkrFYttijcXeMgLu/oy444HxIvcWhWoRtuUq7zrlHIRIkq+VUoKjFo5zEUw2DYnVFMEnsHhYFVagsLYBfg0iKabx4zANy75plWqAJsBYW1OhwJ0e3qwtjADWphBEZh4BCeRa22zJ5aiItnMbG3evywzDLWoNU6BM1BddlaSWY2loMBMtV0dysIiomJF2YZgadEj4se78noEaqpEUNMLX0UZ7u1WhizMD7ShPN4SqL9/8U+XO6QwetRibhB2l9DtmmCaN/SYg9sXQ0FGoc23tXeHdw0HioOmkHLrxbJsPxxWImkBDeEG7sUWfJYLoAtvora1biVYcmHw1biaBeslmlLZ5XUz3FOs1LEhk4ochEnwV284CXZmISPha30jYhAM9TNgM7CgWqnFlqs90qGLh87/ONubd36r9XOLFP7+9gEMHivs8MfAfX42M27o09GBzMzrdKntoWrPCQn2w67uEeXRSu02n2lpc7z+vOnhScx8GYzm8b90nnQNd0vJqRanFwaUkL0N2Rt7fRd5rw4p6fCXM39AYQz34KEyKqYQPfsb7/7VOm/M2V1XhIdt1dAiqoV/JSWjqZlN2yWHgchQuMswHOC5OYx3M3fJJrkG/Kv21qn4ybZFJLnPwOv4mRD6eEgnShZ0KZTbT6CSiImcHTe3IiqUOOHhANCGwFGrBT4tJ3aBLHg2fg0jEfhNZwJdF4dxIYkr97yai1h46CNZxpewQ7KkEOkEpaFg0ECc9ZUPWuhVFMsfA6AcuDlD5o5SbcPvULPmAfQrIb2JwHC7HZHAEG2zhFAkM10BBDAzGhR1U5qhiYYgAXlVD3OA3h0OzJdrxJQoXxULQcJTMOeg5LJ57/xZTEU4929BFfDWsWaKk1ySDU/hPGCPeAA/dFvsAOsIuvGOdFLNc74Pasna8ktKgeVhOhBphIPFkV8Cf4g3iBx0pQTkV8/XKM3JR72jnxNNrBmqiuTkyuSUyp951cAX9xdM6qo+rZmbdyu2NLLs9LcbSB3IZaX7vflLttSI4nprKo7xu0f+qaxcaBx8zcxigHW5CTCld2Z1a9fGcDzaUvgJuxKqc6sTa6KrPbeGsdlbRLlVsQ1UH/PMD4Uvr4gUZ0V57U1qoZXlalIrUlo1xrl+Sb5NNKNSWzTRTd94nPI6cRtW2PIvuwBooR8jWReCaLs9yVVdukBMQ+mRAeTsj6TLuhUrNIbNyrpPXSDWrhfp+OfvjHQpTo9MHBa+5oGNtKLik4EhHQXFAAo5Rd17Q4exp2tOyDHQtJds5EkgGuh2oyAwi7ze6pGxCoDEi9VHVqSH8ZOCPwS56CmfG9xisoVS5dHO17W5L6eOU6n+2Uf/+14S4sMkqGoXId3aP748X6h8vJaAnBI1GKREovN5Im4Hgy7iNtba7Y44snNzGv34i5iWA8uUb5YcAK4eA5ZYV61GALQIpjRI+ufGJnjQrMQd25ipL8R8+WQddPwoOltNZ5Gsg+9fj7H0DgfBYCtwWL9+o7kTjrdcBs0C7UBW2d2XgpCvdNG0FV6+yk/nLw2MI/QRsnJBziYggDCLwQyoIxDCDiojK4+GJ1OOEfuj80lEGzzJegf3TW6RkiYezSENmgcBKeO77g0jiXGASMNN7jomx3xjs36y3gM82+63E4gdKpclSffyKgPDagg+uZFo42O5r0wI4MS72q4TsOjVu/TuWTgP1dsY1eQgdfwiwvE7QrFvr3WtbV1+y2TBrt9DzKEMqi2pUVOkL99I4fktbUySF5hM/D1uxmlcrvBcXOnpLCIhC2PUzMmyAQU7/SEZrTth6MOzOvOZndsLpo9V/g45YQs9eDSY0gD4a5qnmNU6rFXrg6R16AFc4E5DvIwnu6UWuBEzk0Rk/q+QzKSWk2Sjd37kGRqtYx0nxYiOMA6Z+17LsaxsNAxRmI2gzHHOCIGedSmPpj1vwySrVfAOaPrINNWmhqKivYLr2DXEmq//a4Wmo+/VPKUlJGRgDxJEaO9TdSxVyclrWYbJrhceeRa62RrAc206PlSBHnRaneY5gUVffmI0IDP31s4whfUjQKGu6PHYkLtIKknZCdt/G/7Eic8nRH4fEXUys016vU6FbO52otvvJqpyT6ytXIsboOpacCtwQ0NPFSquFO5uZ8+pRZks4Ug//TpcU6nqt0MLmcEKyDvUwfCGuu8DVH6+beBvusPCQ2B4UsCYUIIAb6M2+A/X+2L21GNRSCHk7VyuIb/aqTugmg+9JVFppDTmzsTj0Od1603f4WLHLdeca8KxmBVr2X6Iy2fmBi3O29KmMSL49LmjtSdPikLx/2CO0pn7aPPf9etOVI7T2ftoh/F/WlJN/p9l+I4S6GSnB/bgQRxpmqPudFl2JOjK9mXJ27xz7drM4vBrbsH/GVGz4ED+wWe7A6FMLGa8q/fViOp7cZwpU1BemJeUI73Vs91pNt+3jF1upfSk5V3Hm7ICV6bLklJl6GKXxzGzNp2ZFeuyPaP885bUSzN3ugrTA8EvmKCFu2+yQKl5YTGxIdxvP4NOatWHH3vCZTOj1bRdzRxVeQzJmrbxLFIWWK8IPy5iAsVv3QVdI1UnPWIN8+B8pKr2WEWckJ3UDk/Kdt1lemLVC/ZYaOVjkExOZYRsWuqTQpc0+RQ3d9zmzzYVGGejdDjQII8P03iCygQf+oIvC6hLCclPyzHJYFhHH5lzgXrEo7AnY5V4ZYwtc0velHV9ijRuP2T96RhmayqcDouNqtqwv9kRkBcVq40psl/e9NSaez+GQuIzTjpr8mqBm51/a5G75hNX4anPaa99Vo44aQDSOPuimyHc3k1ayX1zHwXKPBpOQILItk25Lp91It+V0uE258EkWhZqWuKyvYXpBOXXOD712yTUm0Pjru0JtINuh3mpvHY8jC+78Fi+11nyhOUtb4iwufegERe/bLmvt6MqGr/sRVKKimemjYDqLUYiy1ZYtlo1uD38ukKWv2v6d89BN6RpkEsjsoojp1LI9AJDZayT2bISgIbOu47vkmGvschNgFZaSb7ZNng1iVtrjg2I6r2mVGBtdLUzFdfkRUb9kGbdn0/K+hH4ZrK+gljYw4qEP9t+/SSZ2DSPoUO9XGx2Csc+6M92Vs1xM2Ut7bW1z+yOaNXwMkrXv1vr15F4OM4c4Ep5Y9m5wuXMmH05gEWrVGfBXgBGn+kF7dph+kmCU5FPiJeTmHkYZ87ZorZzDldTkUmCXQYXrDAQ0waeifiZYU4WlLxB3MmNt4CsjdfAB/8w6NjeUqekTEaDcT+QFRasD9TAEQy+woah3zUUPXUy0/TjOlcZKoaUu/e8Ps3ekjV+IPusTlpyAMAi1Ejtb+2gnpys/NjLvI09oZH/VKdEzTOyHF4pvC+PDJ+WJJotfduCOEZ4xngqbOoBsUyiGF1Qq1OQ9EAK5uia5dY8zAO0Q0YE2FqNW4DPt6JqPWyEmUz9gcRdt6nF9P06TylPoGwX7KfkKAH2wx1SDqgBJBYUp3/JX454QQhNPb8b9EP0bym6BwCADOFuuKUOD+2giDOHzEBZBoj79TR/ByWmkEmi4SEe0EhaTYLi4zt3C9YYZ2foxrhBeOHpD0SVxaJO3zvBPDkGimBINBnFr5+ow0/Kr7mgr3DIH2/49qniEsRdMw+NXytRY610O7R3NUup/30QQf7mgtR8Tb8+g0CB7KAvig2GgoKNtGUxjcAltr3PDn5+V/wlUPBDGYxDxn+69CO6Wk4FQa+robluywNVrs0JMCfdXTJ+Jz4o8ZpwSwuYHY2cgnio/KOUA2vGr1nRkKQyY7HCnQb8sPn2g1DATO9O5gMHwQYLLxvw4KT5uOceHwJCi9L801wqTFTX76RWC5m91aNqoYjvFU+yJLI9YgjQvbxXbUNQRUdj5FJVm/AzNCGz7XAkRQVv/xHVFYxbnIro85PWMJTlSULi5sEwrO2mWanT1pb21/9OZz7EZFQrd+w9yAPe0dsEW6RBSXfI9rbaMBkd79IoPk9hn8guHmpZS/tqle8GbO0tj5/0izT9qywSVAsKk1WlfCEfsK6SybjZRWixIu7+00G7L2jPfIpFotxRr+gU7bfCBsFtCLJR9HrVJpGmY0quUxYLGiKW5e0upOnd453tO1l8VdRRdl42uu6DD/h6JN7EF7ahkWOeO9ou51p/bsFoteCjxKESpSzw8BIjwelfPNe2c2TioXJZSpeidCvLuN12nhFmejry2Ij7jubkvTUnTxdel1c7YPXAoGof3faTrtob7xjaHG4RZijPR665+ITNFExH7g3Dv3d51f8vcyTbMOVNo/hp78UrRJIRV/Mo6D5cXn/iR7hC1kGUo6k26saPHg91GNT31gVeSE9MPs4x5fzeNYMmJ30/j8fsXt9ov/A7t9GX4T84cegmXr4r4lrdKnJsfCIN7PK2oJ8dPunK2Gubbg8eAdlJILpZZaP48mNqtc8Wxy5VPem/49YWxz+4ZobC55/+AOj2fYAG79zux1Ww8yLq96nVZ7JKhGz4Yxol1OpSz1GZctzdyB1Welvzd/Zr25RqxezPU4bRTpb0ih/F3Rd5Q1r13znQJHZv3VaXDl7aIGxj3YQfxiAFNrcldOGLtqh+nNhg4kkdSufcbkZdzoj4x/mP+Vl+lSJMz3QFKwH0LvQIbVw7FBMYM06hZPd0FIDOwzYZwjKrgudBkZoYZ3OkDuvFAcTzBOGNUlloCsYltvY9bsODJ3XYnQwNkFXNDBUzWhKY2M8JgPAbUpjY+AKuBAMjQfzoU8cG0Nuq1c//PlOB8Jp/u6+b10oWNCE+59790x67Jj02Tu/8NjxZ7nvfMeP5z4Y5Dl+bDRz5lZ5+a2ZYIrXVd+bLPmf/vHXxSNfynW0+StEZerq7Zng6U3Z/KJ+A2izcarrsoeStyNZ+srm8Xr8JDvbDDXNrzkktcsgerIdPv8Kvipq9U+fjfiM8dsknNAkTy+vwA8Vw3hS7b2DwnT9Zi19Kp5v78mm+NnMfDOGTTsVeN6or1WUlbVsLy4U8X5Yx46vWeG8NJl4Mybm69d4riI7pCSNS0n2kjXbZNqtDL3K4fz6i353W8rUTRkfOU/Y4yU00uFRqBx96RlTXp7sdJad6EDRy+YOd1ubWTst3fb/jcC6czuiYr7Nd0gtKgUM75aWw2ltvbZJyggtth9/MWUvlX74qFROTq4u8nCy3/ApSCT766tX799+j87wA5C1ycam7bxPCiig6TnohizZDV1nTTZyHeorhCO7ByWD4C9z/HevQRicJBH1jHHGNMsRB08+CmQ5ffedEyvw0SSMc/Sas/0/AzCjmRRhLD6deYu52ohzPPD+PYYs8ItjXypc4oNE7bzcfcgyGU3tsM3MVDgXLxLtNOZn5ifapp6d4jgn+30ii0PiAyqEXDm9I1mPHz56JI7m9tQ3Y1tzk3wiJH27CXltzBbv1cCrelF4IDW3JeWgb/nlkyRqhmvQznASKfF4vcT7LTq6htCYfD+dmG/j+Ganh2dGcsCe3zIVGopTkcda94wCEXF9cYiKtQmFb4AdHyx3ecVPoWfKE5BDRjHWbJjnnycG7Uw1VDP18jP70fB5qqZNiTnaMiJzlJjyNRR1G0SVizbA1C1K7IlVCIZiBXO6zxgKq08pg8wWd7hSDS0y5i81Ztw8qkJRzDQWa4yY6pCtnUe5CRMfKSXfvA7jPGQexuDEqsSe7bwBM8gyC2COHBphAhLYw12pqlN7o0sl9FxdpjMIJoGKcBKEk66uG9q42huIlEPVuKIM/Zyp64a2kyz3wA3a+V7pVNDZ2ze/aLw1mXX7bETAo3jat7Yfl/EDTCdEtgbwhBhywzYd+nYMGdW3ZmNc/qP9p7VnQeoFkcKds6CGskAAP7a9nsLYf8GRCZyVR0bmwVYRQbdsLLa1xDqnvqCVaSN+TlX75pNEVn43vo9rt0tgGiGIUByW7E1Ys/xSzcYkI+5UaWloqJ6ub23VmMU8LjhVbcc8ks4z79PpGEVT5DQM3Kud+p9WHjmy8ie9mWJ20nu/ofg/7lZW3v2jM53XO5RVJ9askQLAtTFS2Vbpe0LH9MbuaZ8H67ofNEMLUmjc6YpyNn6YH9OWkEqUpR9Q4M2O1fdNH4cMCwQ3R4zQAC0sEE5Mb7z0PJ+yttGjeuf3lZUySCYSfBYks7KSvDx7DQam2pyTS+RfnObW/21tU4wpPn9yks+bZkAHHz2a4kJGmYvvQ0IAsamJiYOHJieHRn0ZQKkm08j/GQSEedd1YuLQwcnJQz8nqx7q5fHnGFMB5jQ5K5fDk+SxQ/ius+1Jw67wpNkfjCvX55jrZgUvUqsGVeoNzBLuQwuwAUZ1OhRDESqjfQyGVDofurZ9e8Lc3b0B4rK31HWqztcX+JWsZVshrpY++j8Li8QP5f3auLgix00KOGd6g/QwXEhrg9QGWrM6xGjlAq0bfpkDQBOqKx30I6tOneoM1mZqvucYebXu5Ytpb8AhhEL3Cf7x9LeTsVInqTU+2hMDYNryWyEawsRUGIhgbR9DAZqdC0mF0Z3DfbhuCo8+V98Q9AEhTX0YVcthdvW2ATSQgDMpIRAEpwEOaxtjyIIasvNt/j+Sjgnd5WTvGHeV43YXqyHXlDtYz6HbqH29HTjtdnSV69Ai07wjDGvCdhdYikoXmbFbk2ydtlta3ZlNw4Cn8cMWWEMHM2zqllsNw1RhvFZqi6GF2sq7peUYAYzRrCLFkxfR8gt0OhWCKJ7q4KbIwTy+CAZjWvN2ZZf9UZvH7lSFn6BxSOGRaXug0umKgFHln5MnwZPDlruTaaD2UNj277+t6PzIA6/h7W1LykHnSYr1pBmPkEJGgwqjFQU9iYm1B+LWB1Thhb224CjiD5wmVFMQnz8v79iBQTrWtx6su9CeVqco+PdAd+8PRgdhXuOmXYWMteRvXSrT8Tk5FhasUr9pDuHxX9TymMCZ/s7LMnZNk4DYYFCnk/RmA6a0BntRBlnPFqvtSH8jVjd2xTfM0rCgcT5A4POrGH51yZjXhkF4sMMvgwKreNkIsEL+4DOjxKDZ9ImddIPKwXkdhmIwjJ4WbkdgBMEMGPIERdoEROzZjRrkQZLUOgzGUNgQBXdJH9M3z+wQblfT9zJFRDxoGESQJlqYiMMJzqA3zTPhJvrNHOspTETLNDvcN+jm0bQ/JK3uy2tA2QMi9r8iTCZ+p/n2MR3KumarMTSKyrF87trZN09zjx7NffrGTDE76d0/wnsxJJAXgwOvdymZgDEYfdDgMOh+N4TaIwgLRRA1iqpgHdJxJm8Nx2933s0Ly9Nfk4XptIqq1DhRMdsaj0fzu7vz6/nTyYr56vkwGTjl1wJouORXv2WgmCu6slzq5RPUiYZSi9TKF5PDVT93ruBl2fTvT9kZj91TeBKBFkFV1syefzOYfAk9V0G1zd3FUp0OClDxsHRPJVEiMVnXlB0ZIXNvJSWtXp0Uev9faG4sBP17P9TcBR/4IkwcrBc1sV9ENqnu7AQr6u/Ky1MYYsY8geCnzGdmSsv0pTDkYuxf56HReNQtG+0Loxg7iUir4uPi4leROkeYTfBpxEVlzEl1qq52Sl1+bcjZ39hRSExLa+y7ymhinkE+fS4oaJXcIoLz41VdojlJ7Whf7lavQIebR1oQMEMK3HAVE2IN8xs645lMDDONoXROKqpODL0yv9MhvDOMjQ1DYRizl3luLpXK3cmLf1fiYMyz3H0YsVFCG8xDj6rDaSDBoTgqCALD73s1N4m57AVPI2FUossdQr2fgr1V7W/+aacw5w3zX8vw0fleCkNoclV9fnLITBkgMfJ6/z4uLvY9HCUWR8Gam0eMowvr/G8gmZCHDBiMRel1kVCzBVBz2JjeuOjzOK3wA/wF/lCon3UmO+bKKozr+XxpJqT/UGLbyJuwspho0ju0W5eAfBh5KmODVppohtK80ij/lH7OFl9BlXFVMre9//RHSVHHM2CuXsp2/j3uQKwP3EsnpLXQh+jLWiMINHNKAj0PuqQ6c1kFqegJFHPapWLCeWoMr+u3G1MfX0XcgyKOqouKQJ5+gp/nuQg+rTg2uvEjznmx2uTlW+/oY/JT74Sl2cWslpCU8vIjrVNKlEda+655GXZ2Et3fU/nRjxrmiZ1wuHdhVJqez/XFLxMsHxQKOSdKa3YlJS6Gfm/yW8zznyDooaf8HJwTwlKxQmqin1PoyIAqJCf46IWBCKlww6dTpXUAC+Ar5wc5GFys7V9mK+Xy/Pk49RB1XCy2yhSP03Tm5fBwntGN0B5r2K4TSjBo8yhdGE4RhFHIdvOzVx+sgcfMN/MMlTirgzY63Nbdo8/iC7fxV2OTr1lfaT76rIzdIpHfUqEQ5/WS4oEo02UYXd42+LmqBFJBJVWXNia0Rl2UvTdAzLNrM1gNaIE/jMFL7+ATrgTeAB5RpDKZQghrvls8b6UtWw0RAHN+nxzuMK+NXVScsMMywc3kr2jK8d1KxnHuS7l2p6ufKDMySha6/hrtLy9XCIUavCzjrBnDztt67wsRj2QkMtFjQbRrUJQPuQGXCaeUS/8rgO6tRWOlC9vCAdwH4FtRnvng8/T5+2n6lxZFZBpWHMP1eFI4GZrkQtA12swWxGEXPTqigUtRmLadA+fTHFygsEDGVrteO0tyzAmXTRh7/PcT8cZ7fyP+80OPd30Te14s7RunJDBSY/9cb76rUb3RvMHXpVD8yiTpAYYbWcp2cOCuPj8PLv8fgMMuS6HIS0Fijsx/Nv3exBQfNb9/t2vykmWOK12yRhY8SMtlIqo7e3dOiXl4L8bX5QcmZuaqhC9YWhhbn6Q3u5q2YyXfxYA1vWSVWV+feSLQq9+eozJcMzfXCpYLGmtcxOudsnxGAk8gipIPtDY4iqjx8IWRnJzD7/y9F4SN/25L8Bd6UiKPDhmD/Yeglp8/LzfQMzKaOtCw4T6OsGX2V0gEqVXyq/sHME/d16e+NYW0+P8NpPru5GUzSIeuY2/HPmwWXTC2MrGIY/25h91Iyjmae1oNe3NP9QSWIaVBLP43hj/FtzMAd+S/jkEcCuBGatr/uDi4QhbtJjhVJAYRR4WhwgC12d/pJBu1WTWYghiGDw5G4hFMhTVux+yy2PIxlpQ+Agxx87oyo6MuqzaTA2WX6QruDey82vWXnCuYlkAvrKLwmbVr7WJ74Pcoj8U3B9BpPRulyXtszY2s3YKt4s7mv6bvGaA4qwOFMWedKAO7/BPoJc4C02gv60Vmtk250o3ddJ8ANQ8fFL2fGsy8dme9bwPaIOp+AeCpm1dLaeeItlUHq9/Yo92WrXesUlOCRexG7d9UH6yyJaoNYD3tFxiL+HwqPTGC8iqO+RYfu/23U6dY9qyAHrfYXury03cpbB+Ww9ZmUZ1I4/qMKBRZU/70hFPLjEuPt+Yx3tji7VddtWaZn7ewN9eas14mD/1w9EBUJy7swCUzjbOVhMMNmp2vtN/e8rsR+TXPemFUZjbR66lBNdwZTJXzWMyh5rfBfPEITLh/LZ/lls63B+rEGlQDFtdne0Epqu6trkbRFZUuIhRo/BiT+WqioEE7EC7w4n7C/qCFb94lsOgM/UcjGtF9Jl0CGt7XvmPcYA9Du2hIOXhuToa3WSDOEhds8LJj3hQDpFwrdlxFn6WrxqcxpkQ5S7dY4SkyYgEuv/Otk070B9oX/Veip47cUdepJKUvBaOUEHw2dMOwmcMzMhTUm6O0N6GhF6YAljK40dvQuHl1/DBl1/GAKZJO2HVoJ2SctsPuhPWBH354WYnJCx4AkJG0PsTaIwxiiCJrM9MO8MIMA7yDrsw6E6A5v7qidhMPiPoGJNCfQ906FMopSLnLPgnVppp6x9scO2WTZFxqF20aZp/kGE/PYSXyOZqRiARjS5t409AP26XFIWupJUiB3kRukxB//HtZ3CKTF3tuX9Z9Ct8pOYM9DV8v+x6HWs4o6fk+Fmz6tq33WZ4Gn9ZW94sbBmdRI6ffrTpRxAGVF8hidweDx/fVJL4benex8NmuiyO/u+N/VRSYP3zF8O9HCNTOBYRowR5/evx7+W+6JHfx18+cnbS6BBwpfFZoido/u4wNFFpWjze+JZ/8R/tvL6PXhof06UXPIrlL07KFoOwVtQhsBqVwNzbOAB8teg0hwWyANBduPpS8JFzh13pWP3N6+3FlauxR5+vpXW2LmwTmXuY9XrUN5KftraUhoLK6bIX0SEI0c0wLaTl93h0yol7X/UvQNQTFT0L6KejtTw2t53ZefqoS6rX9792AeKaTcm1cHkvaJkde0Ac1j0Pn0BBMG7x9Jka68pTAy+KoQl1LhhShbjOGhnzNc0dqeRrwFmv+T6+1Ftpi5XPcveZhVz9SNvASobeyvkqQwsdmaOPaMgkMxMpsQlMcp1w9omrV1VaXHsoqlB/0WaaTFF6iosGZBITLul4aRSkH1egqlANcvZ8EoAoDwhSCctRyKGGiHUD4BRYIhDZu1IwUoz+lfdpkTLCpFx6mgRaaZ6IOSR12cdhOY9DHYY2Rxq5rjM33bUyM9n9jwUEhpLFoZLijsVbr8LW5zvJ3YwM9oqbmhpbh5haW1XNf0jqK/9KXlaJzTB/L7aNnPpGclzHcKjQtJfATJsv1MBEIVWIWgylF3KyNhioZYrjU1gY1MZfE74TnCeQr6Cs7mI48hauGkmAhcbBmzRrOTfkqxixbL0dLKxMHexcEwxKXro0sPkPiTBOBjBsB851SJSVjjLPCxsN+kZInRUePhkGJrke6wj2HaMIS5J+UjrA4HDpJROxOAinFV8y74UFGKXVjdydxaM1YH8OoskxAYYS+fow2zFBjMkzjIqVBCIUyYuzIVQmZwCaME4CL/wyvOfZBI9NRTE8HBKw6gUUUgDlrp6mSkcYaZt5LRpViOTN0ukwkY4nLrHD/THr/oL811GQS2nAIov7w+duwPiRgnC7376sdfljzBz22FwCh4z+EoBhOkBTNsBwvEIrEEqlMrlCq1BqtTm8wmswWq83ucLrcHq/PDyCCYjhBUjTDcrwgSrKiar99+J/QDdOyHdfzgzCKkzTLi7Kqm7brh3Gal3Xbj/O6n/f7QQhGUAwnSIpmWI4XRElWVE03TMt2XM8PwihO0iwvyqpu2q4fxmle1m0/zut+3u/3hxEUwwmSohmW4wVRkhVV0w3Tsh3X84MwipM0y4uyqpu264dxmpd124/zup/39/8AYiScq3RWJmeuz5btf8FyPr882Xnz5T+PkhmTmI37Zv57nee0t52jAIm1EZueJe6178fMft9a+/5hxXpXvr+899z13TKfHbVzdpDvwMzyHZCZ2WVXHasAibWR4AIAAAAAQEREREQkIiIiImJmZmZm1n0DkFgbCQ7TTwGEMMYYY0RERERErLXWWps2V/IwOELW5xBJG6UPAAAAAAAAAACQEwAAAIMuAUisjQRXCAAAAAAAAAqi34gTx9A5oACJdYQqpZRSKkpefYAeFMQ6TZS0JEmSJEnSDkaCi5mZmZl50Z+e+97zwF9Xzcb9PEc8/gMAAA==) format("woff2"),url(data:application/font-woff;base64,d09GRgABAAAAAFuAAA8AAAAAsVwAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAABGRlRNAAABWAAAABwAAAAcbSqX3EdERUYAAAF0AAAAHwAAACABRAAET1MvMgAAAZQAAABFAAAAYGe5a4ljbWFwAAAB3AAAAsAAAAZy2q3jgWN2dCAAAAScAAAABAAAAAQAKAL4Z2FzcAAABKAAAAAIAAAACP//AANnbHlmAAAEqAAATRcAAJSkfV3Cb2hlYWQAAFHAAAAANAAAADYFTS/YaGhlYQAAUfQAAAAcAAAAJApEBBFobXR4AABSEAAAAU8AAAN00scgYGxvY2EAAFNgAAACJwAAAjBv+5XObWF4cAAAVYgAAAAgAAAAIAFqANhuYW1lAABVqAAAAZ4AAAOisyygm3Bvc3QAAFdIAAAELQAACtG6o+U1d2ViZgAAW3gAAAAGAAAABsMYVFAAAAABAAAAAMw9os8AAAAA0HaBdQAAAADQdnOXeNpjYGRgYOADYgkGEGBiYGRgZBQDkixgHgMABUgASgB42mNgZulmnMDAysDCzMN0gYGBIQpCMy5hMGLaAeQDpRCACYkd6h3ux+DAoPD/P/OB/wJAdSIM1UBhRiQlCgyMADGWCwwAAAB42u2UP2hTQRzHf5ekaVPExv6JjW3fvTQ0sa3QLA5xylBLgyBx0gzSWEUaXbIoBBQyCQGHLqXUqYNdtIIgIg5FHJxEtwqtpbnfaV1E1KFaSvX5vVwGEbW6OPngk8/vvXfv7pt3v4SImojIDw6BViKxRgIVBaZwVdSv+xvXA+Iuzqcog2cOkkvDNE8Lbqs74k64i+5Sf3u8Z2AnIRLbyVCyTflVSEXVoEqrrMqrgiqqsqqqWQ5xlAc5zWOc5TwXucxVnuE5HdQhHdFRHdNJndZZndeFLc/zsKJLQ/WV6BcrCdWkwspVKZVROaw0qUqqoqZZcJhdTnGGxznHBS5xhad5VhNWCuturBTXKZ3RObuS98pb9c57k6ql9rp2v1as5deb1r6s9q1GV2IrHSt73T631424YXzjgPwqt+Rn+VG+lRvyirwsS/KCPCfPytPypDwhj8mjctRZd9acF86y89x55jxxHjkPnXstXfbt/pNjj/nwXW+cHa6/SYvZ7yEwbDYazDcIgoUGzY3h2HtqgUcs1AFPWKgTXrRQF7xkoQhRf7uF9hPFeyzUTTSwY6EoUUJY6AC8bSGMS4Ys1Au3WaiPSGGsMtkdGH2rzJgYHAaYjxIwQqtB1CnYkEZ9BM6ALOpROAfyqI/DBQudgidBETXuqRIooz4DV0AV9UV4GsyivkTEyMMmw1UYGdhkuAYjA5sMGMvIwCbDDRgZeAz1TXgcmDy3YeRhk+cOjCxsMjyAkYFNhscwMrDJ8BQ2886gXoaRhedQvyTSkDZ7uA6HLLQBI5vGntAbGHugTc53cMxC7+E4SKL+ACOzNpk3YWTWJid+iRo5NXIKM3fBItAPW55FdJLY3FeHBDr90606JCIU9Jk+Ms3/Y/8L8jUq3y79bJ/0/+ROoP4v9v/4/mj+i7HBXUd0/elU6IHfHt8Aj9EPGAAoAvgAAAAB//8AAnjaxb0JfBvVtTA+dxaN1hltI1m2ZVuSJVneLVlSHCdy9oTEWchqtrBEJRAgCYEsQNhC2EsbWmpI2dqkQBoSYgKlpaQthVL0yusrpW77aEubfq/ly+ujvJampSTW5Dvnzmi1E+jr//3+Xmbu3Llz77nnbuece865DMu0MAy5jGtiOEZkOp8lTNeUwyLP/DH+rEH41ZTDHAtB5lkOowWMPiwayNiUwwTjE46AI5xwhFrINPXYn/7ENY0dbWHfZAiTZbL8ID/InAd5xz2NpIH4STpDGonHIJNE3OP1KG4ISaSNeBuITAyRLgIxoiEUhFAnmUpEiXSRSGqAQEw0kuyFUIb0k2gnGSApyBFi0il2SI5YLGb5MdFjXCey4mNHzQ7WwLGEdZiPPgYR64we8THZHAt+wnT84D/x8YTpGPgheKH4CMEDVF9xBOIeP3EbQgGH29BGgpGkIxCMTCW9qUTA0Zsir+QUP1mt+P2KusevwIO6Bx/Iaj8/OD5O0VNrZW2EsqZBWbO1skRiEKE0DdlKKaSVO5VAuRpqk8VQJAqY7ydxaK44YJvrO2EWjOoDBoFYzQbDNkON+UbiKoRkywMWWf1j4bEY2iIY1AeMgvmEz/kVo9v4FSc/aMZMrFbjl4zWLL0+Y5FlyzNlEVYDudJohg8gPUP7kcB/mn+G6cd+5PV4Q72dXCgocWJADBgUuDTwiXiGSyZo14HOEQ2lE6k0XDIEusexDzZOMXwt1Dutz+tqmxTvlskNWXXUQIbhaurum9GrePqm9Yaeabjkiqf+bUvzDOvb2Y1E+EX2DnemcTP/zLcuu7xjQXdAtjR0Lo5n4/Hs/GtntMlysHt+29NXbH6se//WbFcyu+r28H0MwzI30DYeYTLMXIA2EG8QlHpAsyS0EfEToR0a3utIxFPJ3kiIHCCrZ66b0e2xEmL1dM9YN/MwS5p01N5jMX/BLKt/1R83l0LyC29M6+iYxo/UNg/EF7c2WyyW5tYl8WnhWg2/hyySbD5UhnDyS7OcU0dnrFw+DfGdI7v4QfYIIzOMq9hFtY55gmvC7jZ2FK7sEdrn6IXBuucYhjsGdQ8z0yEbWkkczjjsE5hNAIZrPx2zOLZDmKNXcXtg7EMqidAEEWg+SJCBBNwxvxJfc/bZa+KKf+xoKZybnq5vaqpPTye7CiF+ZFjxZ8/7Qij0hfOG/cowPA1rT1l4ymWnrKmxxqfErTVrpgwPlz1kC+Oy8NMDz6c+IO38K/x0xkPnLW8Kx6qGAoQdL+TD9V9rb+/ctn//trxz8dUrZrD/zk/ferF0cNt1BzctmX2FZPXt/jnFCQNz4Ah/iKllGiCMs1w5Lkg0kiEwj6VTXCDKsX9rMpnvIj9pcDecXAIXMnqn2dTUbN6w0XQ9ue6FV/nnXCH7S3lPWGltVcLsH75ub3ab7A8M28caNrIeOr3o5Q0yFsYL80xaa0EY/UEczV7icUMY5pnelAkmUAXmHYjvFWFGxuqlSaow3OM+/iYY7/l/hVELF4EjRqNR/bvRbOY+DUGzGR/Oh3EqmE/ugIQQguGt/eMYz/+L0cimjeZfQDI3phXMbMQsqH+CjwVz/hf4idHovgVmB8gLvjbicDcC/NypP536E/9N/puMibExdohBmNwyiaZdJGoigos7GpF222xrfnZhML/7Z+ylaqP63Hr+m7bdUkQ6/2cXqdfmvwixY+s2ksXFeXcE+iX0Z+Iow76DBNgjJ7TOdUK18iPsPflfQD+DPsZG2Aj9VmKMMJ4fYRrhIaxhTDR0Elh2vA6h/AE6xUb29mj3sjmL72petXjejPy+oel60M99tFduCI59N3221xe7apOvxs6aHs7vab1IqY2tv7q2xsHeHGml/cV06u/8S/xTjJ+JYc0bWEX0ukW6YmIbGkJRMdjJ9mYIH5QIdJF4hvRGyK7cC7ctImQRcUET99fGXOoft35GYLMQu+g2smnkgZUrH8AL/9Si217IssJ916nv14ZrJrvdxLkQvrvtBcjgPC0NXOicO8Qf4mcxPqh3hgUw3DDfdvLJXngg7N3dN2zbPJSaed3OfZnMU7dvmznp3C3bruO+Nmue0LFsy7S+6265+fCKFYdvvuW6vmlblnUI8xCXp37CrOZv4B9gauDBlYp7adcUXB5DNCwYImlXOJJKkAdvExXxVvKEYnCo+3eIskP9qrrfIYs71CccBjfXRC52udTHHdaP1A1ui/VvH1otbrLrpNXBsGX5B89QghDyimlvNB2KfkxZ5C9/em3+d1+d//IfFp2+2Oxn/s+9n/79p39S3s8idN6g0yZObwJOgKUpNB3GyU0Ls0PbRzIRq4lcarLKOJBkLRzJQD4j2090XrbA7DW8K3jNF5hlGS5e4V2D17zgss4T20egOJte5iD0bReM9yjTxnQxCRj3c5kFzGJmGbNKmwGw39IJDJcXJZGMkaAB4jyJAKw0jt5IAuIE+A+U3cVAZZrq9zhDyBrU8oosuxcGNTzCKJfla7JjNVmuSb/+tuzN2H+X4vlB+PpdfMXXmuVsNiub1T34SFbjYw5itEvVi0K0Nt9pNJUMI7SLGRhf2xipfCYf8z5OdlGKayOucFeVPeS/dbo3lBrbSMmwUiQN5/ed7g0Ds1s17IuZC5kNzM3MZ6EWCa0DtekdJfAxz+R/OX28sND7yRMTBcf++s8mQCQWHya4qBv/ufeMoWyslPA9DtMxUknxkH/yfTnm2CMYzs+Cq3r7PxY/MXomrvTEsRpfEGHa+WN8E1AHjElb7d06ddA7oK/+5Mdsv9EtPms0jv0Z5kf1FqPxWdFtfFr0kHfgDX0Y+5PRSG7RUj0tQr7rmfX8DH4G5W28kKeJLtmQsQkuwMP1pk16EV4sl7vrMJATfyUWo/GwEco4rh4XFQgaiUX9qxZHrMQqKnz/c2d8b9TysYrAuXpP/Rf/Gr8b1qwwc5a+euLa6S6sneNXToG2XrEJi4R5SGs8Sq2S3d97bsfCRaTdaLwKClRHt37mkudvXbjwVrLhuYeGhh56bvfQkHpk2CwvwClqgWwuBfndC3c8dwmstj81KkagcUgbfPY8Zje0W/82VPWJHmSq6pP8hPWpotc/EexDOK3qU+wngPhOCiO9MJRm8TJefjelrzoKnG2Bn+1NCUmPE4gHFmBN9jrTigRIpsACrc9Gstg58ULkp9467+Gf/eFnD5/31lNrt2967dhrm7bzI+VT5m+fzKhvf2MzpICEm79Bopkn07lt1762adNr127LwVqQLdJ5+lpQDcvHPQtVY5knhYrK6q8/JsiP6EuhGZdFdaNszjvpqvc+PI0CdjN0AXsFOC3ZfALDJwr4q2Xq+GF+GNbsxUg5NLLIEXi8otcDQcUts0D8eQ1iVDRAMBTsYiNdRIxE09EIBJO9A2xqgERTaW86BUFn0OD2xFO97FAgFhF6OoQ7prYt4XwSeUgQHiJyDbeke9IdQntciLQ1FlJMaYcUNvZBg+FB1ubjlnRNvl3o6IEU2w7fdNPhm/hh+FLysUu6++DLHkOkrSHYEjH0tEPe7WdD3uyDgvAgK/m4szFFR7ch0toUgBTdWHr7EpaWru6+6dmbbnqWEbV2EtxAsXiZAPTtGPSbHsotI2leoM8TePEqgSQprs7AGFf8kuOkPdZPXGb55POAW1d/jLST9v5YflasP6v/CO7+GNAPC2BMZWmsOjp2NNbfHwMCJD+LPVL+D/OYlWEEI/9jpPddOFkB5d1GSuKZYggmCCd7JUxD7EXAzxyirYnNDLdDZoFdx14kivkvGc3579Jm36reTTvDgBnaO6vzyQ6chQmlsMoIkIQ2+bBDWBud1Va4pcCn8CPqxlh/fgtG8IPaPH8C5wk6/nZDv69jurV5QhtwE0x2iqOsj9Mx8B9/0EaUdiPfOYYDCi/q9jhWRuupMDEU0+CtX0sDFxv07T/K5niBPqN9+tQjgEc31NGCXFeMcCEuQBIc/BK4CO78u7EPYvl3yaEfK3vcb6qP1R2tI7vUjVDDUdKubsSrNjYKY1qBEa2P50SJoaXiksIoLiCwnxS6EBuBde87botNfdEWwYvF/R0/u5yCqhGeEOR2ynSeyXjt6ka7neyye8kryBSWE52y+RBgogrXPZ8E1yIHoHIFUM+AbJhE7lbMtt8ApL+xmZW7PwbjAO0fAVoXQOuiSP/ksIVdFZ0aulsamKUzwPZ/NYDMJRBPCxsBqLzqHyneXF6Ej9HlIFo7+pg+jUb3unRmGpstGkm6etOuDBGA5wCMefp1gTHcdZlvPBXlOslvYTp1cd8UjYLVd/J5awNrIOKLnIt9MD9qdrKrWCvA6ALm3QV9VrsPm60Q7+RHJHP+2hqfugo/MvI2H/mqr4b9tFnKSRY1Y5Ek80Nm/WIhr1ikKnxGz9TWXrokf9xwujfvcOTtNTWnxd0F37Y2W79tteBqZ4G5qLCuomw+nSr28QESCRVLTyYKILGJOPfcnaIFOsewhRdvv+rWa/Wih0vlbX6Zb75T5C0qNKVFvH1QL/vazSWgC2s6oWXXIuUxQelKiJbowuJDQViatLmLijg9CQBMg8WiPgiw3LEeYRmm5f+XdnvkDnxLLjMLxtvX74C3OlwPQqx4xwIdpPx38LrlDphiyWUWHWKAzzxurS/xTo+P5wGFak62ap1PVFFN4v/y+xuR39WnIO7lsWfwgVsK17wxrs9K8ltIKuhkw7f/6dhK6gQokFKhWX3urrjk/rnI0pgfpGMeuQIUaEM7+GF5q2iMkCaMQwxxOzcvU0eXbsnS9XknXvP7Gtw5dwPXlFu2ecvSHEZgNDsU6x/GdXBYXyOQjzZReSedeEPY6nEv9gJR4oBQJtFO6Kd0fwC6BO4LNHDeBujB6dSNcUQC9zIv2LnAzGk99bUDrdFY+9yGFQtEo0GQPNv6vS2drj4+1jHbv3aJSMUWP+QTZrmbNTjU8wyG/iXNNpskybLcJ3CiTF5Ir+JYzmJwE0mSVhlxbtbmvweB3ulB6Til5UuUZydpgiFVeobhU0WaBqpJ198d+/XeNRTZ9/1OPfG7+2hwzd5W3D+hmyjsRcUg/+Cavb++Vh2ls3L7zT/etOnHNxeerv313vzLVqPai4nJv+K1FC6040/4udw7sAb3laSg0XCkAAs0npBO6VJabS4Elk/U+D4gTXW+j0wnrMlqNamq4tMIYB87tE10i0FR3LZNhJsb7/R561btmes8YBCRkhYNByRtKd55mqTas9FYhJnbRGHuOh3M4QTdgQSqmgRxuzGdSvZGcbMxNQGk5C3ebLjoXIOFM4l+WKHmLTJwRv9E8GWJ6dYvf/FmEyEGr+gyrr1p5zrgkz0Cw2j94Hv8Jdx7dIVegBSNtgsqGsRQEYiIBoXwD0LNvQ5d7s5Z00QzwNhqZA0b+tMG1tQq5nd84uq8R0zPvX35G8uRaze4jcOHzz0w1+Q2BIRvf6J6Kgatnrbiem+CFvAxfkrndzD9MFPP1GWTUHclpASUkCNAQkpCCcCgDSUDAhDZ+CuEkgn8J7i9nMA7pA4lISappxILKfAeSAbIcSDuN2bJcfZILqeO5rLs0MnngSHYRdrHjmaz7JEsEPw51ZqDJDmUIOZIe34WaQeegNsJn1qz8AIpT3yCjyEih/xELkuJ0lEMYTLVCiWpo5oYMleMH6USyYJcD+uOe+kWKpn1Qns34iyYDjkSLvgnZXcgVQNeqINXr48m3iS7cjm8tedyY0f1QvTnHHdsrKby/+SSbPY8/NH6vpl/Esq3Ae4ZU1HC44KFiI9o7CEgab/RqHbj7s5KAg06s39ZP/zxI/mVuF/TbTSy+3Fb8If9/cv7+wt91yy8RfP1QXtW5RzQn7qIiZyuFM5QfJ5E9uVnqT85TanFx0lkP3ukBAMprvsRyi/C8NAJL1xbIIirSvnSj4O5netb4JxmNANHPssHAcHMHsFRgEug816gDBeMbdfiuRcghqYcm0+Xxx/5IAEtN3fqFF3LzAXqwoT0PN0OVTNqxo8sxMkd5Ig6k79Zk7VxxX6gMLOZFQgvpW2RrMW1D0BDihaXQ9wVRoBxPLfpknmkeMtoB/qM9cRc9IqmMD2XUmdZ7GSRKPUZvChf8BoykriM2MnKYbOHX8R7cLdNCxSFFVQqoYswnlWtlFS2mNkhswVpZiQW1J/UKFfipHGlUkM6UKBhMz1istELIHJLMSctu3ugzfaVSOjKvUgc/THK4Sdg2Wscz69leKIkkrwuuWiOe9yGYKQXRumkC3qbRcMwrvhjNXgdZk3RxAUEhuSPvn3nnd++U/3vlVOmrJzCD8JLxV1OHRjrZifbcFDOuRNTGqdgQm1tSNJ2OcQ04YiEXuxtII1ECSQRoQGYioEsgCfchB4ghAtw7FfJre4WZ9hkVi9MtjuWqtdNDlpMrfEG9fOT6q21okg+e4As38MfGquNt7oUws6Ysarj1/efE+yst86YUVNvDdts3Pv5c8m/aP0C+f8/Qb+IMnGq09BgwN01oIOAnAdagI8mBSrqk1gxTDUBOtk2ousEtBH2z4Ir2d3f6k8PXXVlt2qN9RODxRuoJT/v27wm09jRYVc/e++iyx2tyzJb/n3J0htXP87eSsQaf2Ly0s6Zmxela88REy1cf4273mI3iXNJ7KxrZibOm9xm6rl4fqy/t27smU8tOfdW2ucBzg2UfmOIVyLIl3kpYlwphDISTXJXsctmiDtN7fNV6zelgxwnWxsVr83Aj/S5ki1jL/a0GC6+2L6Um+aoddlNFuj+bJ8mH/iaLh8I0/U51NspIEfq0dohwyFXKgm4NggwQ4rRhCOUFtxxo8XnitT4cnGfT93IS8FaT85XE3H5LMY4zIEPL1hw443wz+1UmhTJyJGxZzw+wsKkKZgUiVtKOKMEb2AKHTv61FNc01PQFwKnvsZ/9pPA4RKTASWahmh+8MxwzHxKy74IRn5LGRjsPUUwTu64UYNY38caqd7HKucZ/tHnODtENw/2UfHRMaq1UUPDJQ0OKkWCeet5fYOhII1VRz8+/Elg5j4Gxur3J8o2PJ4rg+2d08T/fwEzSVbyZ9XPro95T477lRKqUSRXQnauHNsISAl27oWi6Fv9z48JMv8r/aMMj8onCP/DuDZOuN+GPPr/+p7bx+7JlbYdppcNhzKU/1Px5aiaGDn/s1iGMaBcleKUo/v9rcxkZj7DBEKOfrayytXNLYiUdBY+pleQXdnscKlQcpzuWluxsieeyuXIK6SdxozitWyGOV3vOHHjguyCQ6fpIYy2JwvrQEF/Qa9Pdf/QqOSqCiE/EE1/XIVKTc2tzWbHnimrEd+Vyz311Ml3P0GVTj7PD5aDnsvCvH36alEaPMePcMegXs7x8igTu4B9v7G9vTHvhCu/kzIdx+BxC0ay9zRSvoS0F2lIxI+X7klU63I40gLQ3w5ep5na+SFnba3z5D64zv+QtM4n4ffG3tq4aNHGRfxgrXPMim+5487abL7xhdseIRn1KDl+7aINixdv0OD+JSPwKf5+xoP6aiTeQIDVlIhMcL1H5R9PYXvprs3fv2bO7MOplCmweuiq2JRZ1zz+9a/v2PH1Hfz9236w+ZrPXvWfAxlj4NLLHpq3c/PQ3uvmvbrjG7fe+o2y/cLdtE6VUlXi0ASb1VLUBVSUWSU4HdvAraTyS8xzM8NxvxFkXV6pUVRiJwcgC5zEeht4rwcp7ki0k41G0qlQhG1Vzlq8alEmnFi58caB5Q9vn988MLhqyVlHvLEWjtQFeupdiocF/tkkOGPW2ibWaBTkeZ/dvPWazXfOnnvL6jkRXpi85sFzZt+55ZptW3bl1cCCHZPD06MhySha7UFzjcjbp8fOecFCirzAG/yVjBX6OFIaadSjQq1nNhyIe8tVbaaSdHlXIWKacMeuZA1uxS95zILhyrxAdsXTL6m7kNQlx2P9uZf2qhufePFFbpI6/OU0WcP99RrCsrwseVot5mtytpf6Y0gm9sdeyKnPQ7onyK4nXlR/rg7H95M1upzu89DH6pgUcikoiihJ6NJKmRxV1x+MJiOA3YwhDRQrWU0u/0rvq0VYXnyCwsLeTJYBq3dAtJDavuzyoVpzZ99Z0+a0uoiFH/xcqgDR7rUFeOrUn6Cywb8ZeNMbhLV5ugP9l0zv9UN5b5mFkjzxUcpPJCn3V402pRxtJd2GrnLdhtVk9ZSZh9W91fCSH5B7ofxPiWL+j3D/uwhBRdyAyozeZwvQzs79soi+BKSnafLviZCcfrpBpLyimfLfTyJtbyruIQKD01tUwJyKEo/ybaxkSNFUMdMkhQoJyRBQFhnUkDQSXhTM+3NmY0EDM7ffLIjqWEGt8lCO6mLia3PukFnghosJD5p5SIho/VDkzQfLE+IrYoJXkD19pdP7OwG/voIUtagiWiZ4PAFTHHlTVhRZ7dYmPar+NJ+8JhmR6DFK5DV1foHoLNO/pHrvZfmWZ15RQlwvoVDKhCWNK3CCch9lfFBuAqUgpFSShmNaPj+i5++WZfKeViJfW5HnUakVL4UCNVkA4+ETfIqx4B5xSaP2L1yn0zn2ltPn4+OqZGmwwEVCaCSqG53ldtL1oLGAhdMLd09MpCCF6tD6ZnAZBY9hDaYsP0jzZ0j5ZjKsF4i1UmLuhbJMCnYJPt5VwFNvmZawXjEvLJqIH8STonZjq7BZ8gKgR20C9MDFqJAX1H64QW2NEup6qgzLP8cvppL/NNTOBTCJABOHeWoXzLhw4Wuy7gaBtjKr9kgKq8ZlRYBS32Lpxc8vIhpNDTfyNXWybMJbn2RyQ5EmWc2QF9wmSZ0KYCE+cPuYO6b15Uotj2Kd4MItLS7gtFbkTdrFND6pvEZqv5Yv7jXAus7Pg7avo7KDot50NX3CPkP+Kps8J9/3mGQIteY/LGPC+L7872SPR2br5fy8MtKBMHedGuM28/MZmPJMrGgi3Gb1S+Si1/L/zrZwO9XH1ce/z7ZQ1WSoY/+pMb5FT4ua0Wm+Jf/298nFmChEQ+Ti71est4mq9VYI6RsymoRJKYidElT2FGnDTZvqtfhGAFTbeqEw68GqtfmbVa/1IFO1/jdWr/8BDRRtQh9XNjubEm4aWVpVonpTGR7PVGc+KJNoBIWF7kYi4gUV3r1U6723i6TxUl3n3/tM27aZfKb7THiHW9VzFSwHJ05VfK6Ar7kaB0XgPPE0BSkSFKsBUpaLihEWoA9wBt8qirh2VSOkZwXEwyrxZ5jyt2rJmSo9gX7cg6jsEUGJU9z9xJPOEM3uQQxKgkh35DNATnVyrmJ3mbCNyIB/yox4wH1bg2DwN7q9kov4pFqny8oSm3RQbGgJ1QQTs6ZMLilOVYJ9v6Wha3HcJ9jddsXp9YhGUXLXt/qMDnvLpPNTXfNa60z5/yjXQOMq+lNmwh5egpYrdfZQZV9rI47xlRkuyTjpzsmCBSWNkAXVoK8sgYWqQJWbo1RLo6QH0YW6pxqfCnRgkd+RiFjUQUQ7poIaYoakgXxwFd9BuuI38H1xBxXSFb/pBDIKQFn7YB3dB36l7sG1FLaKiBdp1KxLvfswap/30lnVESgNnvjbUoT6w9N+Xoio0qcYOIM+heg940YimsucQVvli9NEcft2UZwGQwLuilj1fFr1i3NP94X+PE7Hpvtj6lBJfJ4R6NvWiaL6MgzWHxiN66DExa+dAdAbMYX6HVF8A+7rjEZIXAVbDe7PVI9rmN69JOLV1DOSvRPxWNPZBZf/Nf+Ny65BhYxxxV+77XJ2wfQ389/IQPgajXbwMsuAz/0IaQcXJavKbRqR2IqyZruXjVC2+hdee/5vdnYOedpmVtR3NGXldxSzDSIiBVpkGb9by89UpEPKrSLZmyFDzMab/wXl2CNe7s/qCtTvWgG5kpBmCBlSzDS/r8N4uwBwohRW63JTS1y32f0TQsPfXVGEHQrV8/NCfiOUVirYcBbIeA2+iF68rQIo3B/S628vYESr79ehzS7Q9LEL9UXmik9XVHb1yBO3Ngvt5935+k1efkV51mzzrM0LL3/20avnwMeKuWyOUZg2TasSqZ+KcZQiOn1Iu2Vh497ALUVZiCKt/gh6IvTIj1ZLRjWAkpHKOKovNwp00eqPROiAbiNEKieXwMLcXhVJ1/uzmLP4tfxaHR59cBdJVG1kTAgl9ze9QKUEQ946Hkb+okJ5JRDyf54Axur1D+WS49cLr0tTPEu7UmXrxcSr3XNvumv4yXzInXKH4F7Tc7p17Zt+t/qW2+93k063X7VW6lALxTY7i1nBXMxcxmzQbabxz+tJo+wijYaIGMNS8AoSMgAPt84DdHOoMPfjXhF+kuH1tZvuFQrRCN07xGcXRX9MYxYchDe5BcHj+Z4i+42WyPc8Xofi7bbZJN5nJLJ5qr6IqRtzqNlM17SpFsnkEyTWoABEjz4JXOQvzWYuwdnV5LNGOwTM5v9r4RpQ8ZXsYodks3o31JBlzbYtNotisnm22MxiwGFXam5oN1n0TA/hRvshvTSDwHff4nNzRo9Dum6PaJbMXzDz+x+Fkj4L4bFNBb1asqsgH7Dyh4DvbkPtf5yMDKzEwyoaESMSNS9P9gJVA3/RTlwoMwZvxECFWxIPNw9gi01nOHjP32esZTtmXHnxvZd8ZtakqQ7ekajbXetpNa6ocTVxJtY+uSe69OLz77zh5bDR3xjZMzUz6fxrz1nqrZGcHQHfPVefN+fiK86LeXj+Sc5lPKy+k/vCUI/DaLFYCWHr6nbXuILTIsb5imNKY/rCm28fSMxPhkN1XbNMNZGuqwOBhtTSxWuTk6bw0ZaG86b1hKddePOKuBvmiguYBn4T/yOqOyGRBt7bKUI1GjioBC8aUKwF7Q319UgcmtFGIzCJGBqwQij0ynDsfdFGc3TS3BlNfJ25xmzniMkpXXTPvCaD3ZaZvyzjmZdudBostmhb0ORZNN2sJBeed1HXkrUsywueQH+L0eCPxmsa5ZpgRJSDZ11yDv+jmbd86vxZfc1WcZJ3UkMq1BOOOVtvu/+pB+en186d3GTwWAw2jheaJs09/+LNfZft37DALyrNj1wABMuUKbODyTVnT/KYbJ3Tpq8IrNh92dkxOj5P/YpZx4/ycyiVcDYdn4JbEoKdQi9054iBKsygLW46FRGxAb0NPNCm8BSNCPjoKcj6EAus4SuP3rB+cV99/eTF6294dA8+TK6v74MHVpYNRt/I30e8QGTOOdfGWzzxcy+87a7bLjw37rHw1nPzp0KyyRSeZO+QQhInt3dYgvycjrPOv+T8s1rptaP84VeywdWX2T4ysr0/7TLIs6+x9zib56ye1dM9e/XsZmePY3NDs9zlnNVt4+WgHJbbz3Livg4P9WWgviOMm4kCRT6I8vw0NbUUEnFvOuFKoxQW1gTsvFirsF5pb7qTUCx4i7VmtToveaDxvK9uOaedVvPRpVOnNz0Q6bry7uiSdQ8t7Vy4JQKVS+XPplV2ts4bvCwZu+KzgITtxepaPRzWdpv74muvv6RO0SorX6cu/dqKn/XWnrtp/Zragz13DUCl5myiFW2Ycvb0PtsXnU+tx8pvLFbUspLX68mdegwmOif/NPDONajTGoUh6tU56HBJCTBASVvNUB5VIiKpc9kd7kludodSFz7xQbiOmMk5dOYk56gzL6uaf7N8a6MQOHm0ae6snZpFDfuT3/jdYzjzwkXXIVHoXNuCfQslQZqBZjTsoHMqrkE4jaYdgkGz2ATOgB3cPkSukD01DnV3ttb1wx+6arPqbkcNAHoFPzKUUQ+qL0k97pjbZv1I/egC9zTFbrrlFpNdmea+gIgfWW3wqkcis8ky5FAcRd1If5nNZrl2FFpungc8wpoCl1BpQV/ScS+zjlASyUTVv/AJ46gkJI4bHX4lTnloctxPZE1ckS3+jG2fKIjkQFyzuo8jvYQG1OrGvJPSTu/nSp9PHNTl4z5hK/8gtXVKF6gEKiglgcKiRlCESsQCV5QIlKWKpr34lt/wkSx/JCmP5/cBKQfl/5gd+rOS/+p91/+YCg5CXK2W4M9fu+/6xxX+vnelVuldIDCG0VQTpU9Dw4pRfei+6zWx0MLie0gPbyrkmRU7OwT16JGeyXLHqOLqAfVN1GPlBzWtFNzj0TRTCjogtP1NjIvu5habN5Aoa1k66wGpqriVetJgiGdwDZtKhnN0y4n9sXYnsqGmZfDSR15+5NLBlhoDaedEm7sxmpqRija6ZEEg2EAnTiAC8IrmFbGz1q08P9PSkjl/5bqzYqT9hMmptEXDgTqP3Wiye+sD4Wir4jCeoHbbp5hRfpB7BakUIppIlPCD30dR1GtslDz8OsqbXmejFC/v8wu5X2myq7SJ8Avzv9DFUJySf5uNvq4+Ti7W9D/OZrLChdwxmPNiBRqVjnpK/aGxRCDspVYKAW9AN1JANoo8wP4BJUlGqdgw6m1qPQ2QW3+OfU5/ieLS/NuKpDU3uf8bcAXyBal5jMR2NEAbPAZt0K3hvxHBEDlUxfIGcD+N2gNSNx36nfqlAYow0puatNpRz0e4W2oahKzQHsjf2c16ad/3t2KTtPobnX6D8C8pd0MDP+Kx7wnXqGGlLQcvikMErm6TmfsuxJXbSAxqNjOogJLQBLiKEHAE+JGTS3JoEhTrz8/CB+5YlupJ58aOat8Kv4JvregxwcU5Cp8GFAFm1FyOfto6GS2m1NGTS6CPNKkbsTdCBlnN9onMho55BX8IJZtEQ35lk+htwN5A0V3RCPoD/yXAcv6pAtbZczRUA64JmcUf4q7Q89ZHLeJVZ5D1Ps/t+0iCT3AHVtZC7JDCXfR7OSb/Xja5H3zQbZL1B+ULX1BMTEk3AseSpmnKEK4T9ekMIidUCRQFfcbj7z8gNLvzF7mbhQN8h6ZbRset+nQWdS/ZX3k7WpS8P9sfo0iGS64wV516pOhjI6TZ2dApgI5+LhxywYoWxKUrykKJsIoDsR4mSrCTg0egMPnLW/3Q5Nn8BZEuzqEI7HK3n0+zFmuO3TtWQ5WJoG9YqCD6Gc32SxnbnVPfsxvrFXK2dILl7bLthDp6glhcsfp4bYvbSmj/mQ94uBTw0E73x2jbNRCvC6VL6GCFDwU7eWQDcC5FY5s0slieRDwtAbRsbLXbaXAuu14e2OJw1dc6jQ3ZdY8v7rv2/BWZLqvFWVvvcmwZkK9f5jS4muO9yR5res4kfkRxhV03L1RfPOiPtYi8pd7jNEsOpyTwxpaY/yCZu/Amd5Or9uS3DYaeqVOhH7gZN/8I/wi1fEuLXvyNivibjuKvN+1Nc01HF/3h+ef/sOhox8MPd5SFucPjorQwXT+ytA8EmA5mamHNFDVhBI5pjZbQpugBNkO8MvRub8KVDKST1Wag7D3xlin1ZF7LFP/79nbvCXFOY+PUjrT7/otsPXXZ4exdPzuhZuL5LUXVAn7k7PbhG89uz3b41X01gbjP1xwlu5rrvvf9+pbs6E/Vu7Nk642/PYRaAiUBdrmO6CDTBLPQFA1ur0uXoBR1INDMkypKpoTqnSMx5GiEdTEaSHLs0Alvu/19/5QW9Rv1U1ridT22i+53pzumbs+XFFXYC++CGsTj5JUT/GCgRt3n78i2n71FHG4/u6X++9+raya7os3ZbDmgWfXun44e+u2NZKuGZ0HiF8M4TlMPR+EU6rPKRJ8wOU2RFUFLex3egEsz3YqEAq0cqhAAW19dBZIlVzR61tuIdTnpXH7l+uXrbjPUyep+8cl6aXKWhPHpDcXl9KiTWDNr4mBQc8Tq+NzK/OKSbsfl79o9G20R+brBXYvUg0rLHhtrc4TN81TTOWSZ0gL1ZVlOYH2ery/7XVUjFMbzYpg7UswcqJPQwBd0LKLabJ8IaCr2otcjSkIrGwootKECaUd4XH1+SdazRrfddkBU98t1htvWrbjqSqjaCguxrffM/5zDCpBALUycmajhd+R6ww4SWafuZ5eU+tPid4lgd3gt+b/Y9rQoZNmiXYPXyRHbRs8zX/f4WIFjWZJtUdSD55AP3xtXH+ZipC0EqdBGDA4CoYEU6gRLGPU11QhkLTBiEYPiqOeQgwTCl9aok1Qr5pFf71qEeNxjy/8F0GoqYPv75Yh9j3x4DuJ+uEzHRpAq2lMqb+qfTdiq6kGtzfOWsv0c7lSeMXDHBDe1MT+LUgx0Pg/p87u2UicdIvqQi8DkxhcUwUXCedMpb4NQjwY3npTmgsURJavLwCRyEcN2HfWsDVGfv/u9ZUWUx+PYFueUKwaNvbtu+Xps3eVWbN1GcgVrdMnWJ7WmJz9SD66EBidag0NF1Ukep0t5A7sFCWdhzvYwHv6L/BehXuHqfaBwBEU7hfVLcXvS4VQv+T/vaSIl7cbeMc7ekv9i8S3e1L5xxpvMGcu1EYPbKyCiijjGXcDKckm43PqU2qNWlXusZMiqF82cuVzolUHN9NNR0HZPxFPV9V0wLtvq+k4DqOwVWDlzuQLVdqFiP08cRX7aRlBVfR8cb55bWe5LExnlcsDp1vAP8Q9BucPMk1Ulh4GnN0SAdxcNHv3q9ohx1Ati4S/tkWjIDe3hQdkUGrGRaFBiUdiTSkI41UkMuuQHP+EaSQYlPQTFWJF03BNPpTu5KFAdkWgDukzsZKMG0Q1TAQQglScOaP/dsZ8+fP75D/9Uu5Gs3FY/2SxPld0DHOciXI9gqjcEidXjE+3BLosy0OcX3T7O5g65ROGyzQ2BZs7WbZVnO5ydLe32hMwTQ4wnnKXW6XW5LAa7oaXOIHoUl0FgLQLH2by8wSTWeAx2Y5PDazK3BqZbeJZwXGPaYhX87ZNszoDdaRxotXO1nNlpdvAPFWHDm8PqEE0sZxDEqGzxisFNnuCWetPcGrObN0p23tTZwMuRVodSV8+LTrOV3eRvzjQZiSjaLYS1WEJe0kNsJlZu9LFun7++wW4gRDRbaxw2nrOGm+xOj9cmtbp9ZqeTM1m8UXfQQCSTVSQox6pvtjot/FpHvIUjJovFEoYvHYV9C5Y/xN9OfcalvII37UEhTbTg/AQIaPb4Vz6j5u8/aViycMod/fkDcpu8QZbZoeBi/vbzP3XPsZvOubMtaPHkD9jt6+U2O7vqU/9C9SMvgrXpQNG/E0oJxun+CiElUa0IKQSUwERxOntKSV7ekcuh9VBZBBo3VUcB58ofKBHCwLyf9qFosz9Ibf8dGqwaBMjRig4SGOZ2UkWI7UiO9OfUPdxOYFApUZyfpY7mgEc5rtNGGk2H1lPhAk1Hp/VAMqQEHEUfEYkkUQq1JMdzsX7kklRrTrUi1wMcDjmu1YYfATj7Y+pGpPEBXuoQIj8rR9mgCl4C9yqmF7xnVWxGVniNqtpVmXBvQ6iwni5YQ8a1jYrXtc2J13HvgkvqWxuva1sbr+P2S5ceKGyBwDv2DbrToe1u6BkAJV7xnVLUaq0sJB8pFqcUIPi3yuwxi4JuLr+P30f3OkPQ72aO0xYo3/EsmO3QO5qEF8S0qQH0UsKXv0brnl9+8M7jF174+DsfvPOl1au/RL5/9DsbNnwHL2pHR1NTRxMZhJtHktOOxLxErPF6YlLvpC9YP73x+4ofw+3xVdrHcDE0dQQCmCRgvt9b35xINDf1CDcRSfJ+pYl+Sf8YcurfmXP5F/kj6J82jNsrkWiEuhVlgFfyNkB3S5MUzLhoNiwSCYcxQ7Ui4J0Xh7fmqRbaPa1tzujxkBRlsEHy0/OM4pYLPb7g9O6BQJN6l9zQ0OGyCaZz0vMTbHOzXfQ7a2tsterTcqxeInODoemdktw+1SbVhKwtW9ffe8VKadK0OVuC3bWzyKm5LeddsWTeorWyY9IMtUFutdu5g+Rn533qkocdvLs2HmhU75br/MmWtD8zA3OP2t1ea636jEzqYxJZGAwFiDEd61oTsrRuW3/3pYNi3bS+Rd+GjOfVpAPNd6y64Gsz1GaZleWIPoYL/v9mTeQBENVEguiF1aC4YeXxFETw6QyPfn0m9g8IrMFAvKM1EI11DARnbqibHk/Iojy5rSdgCyZi06y8sS024PeuO4MfwQ5Y9yKRZCqyYaF30vzeHlmUprR21tR0t0yz8KZY66zWuGvxVQB/36kP+K38t2Hu6NQ9SFJfw0AdpqPEK2qTMpf2VCqJwqPoJezTL824b8akoL+x03nhh+oNo5e77psxg9Q5LzebIKD+fsY34f2MtB9fk9v5b8PT6tYrgv4kRPwd0q9z3gdJSJ0653KjCYPwCaR5aUY63eW48O/kdo33yxX9wCiMv2QTrk8eGSI6Ag6moG9t2P/F7GRNlDjl0gw7pJ5aOXXqyqn8SENnXBmbSwUYLyqJjv3UmY1nKr4t80no0faXsaIEiF/BRaIBnItSce4OUif7W6Vm9T9H1X9Vj71BEm+RdmIJQST/ZfVdudUvh9S/qqNvqT98g9SQ3lHibZY0mRVHooyDN/FHmTgzjdozKw28NwQ0hwN6BCoPKaEk3YtKwNhwRLXuk076CGoZNXDQcRwZvreTZY9EZi+d0s4+ztv8iei04JQl6ZbDD2eHV7X4uHuFVfPrOmcs6m6Kr7hssr+1VZFcEZ/PdJkn1hOs8SXS/NFFgqt94PIZzZ3tdaL6Q5vo6piSzdy737pwsX1VyxUrF15iJ4uNkq+rbyg1Z+O8VsNC1UmcvORPRfxtPrfRwL2p/oA1eZp6Z/aGffoewaXcA/xBlKlQLfhQL/oPgBGP3qsA7IQS8qDVNswHKRSheDUvA3Q7MZoRcJMxlEygujn1QdyzfPfq3dEp/bXh5e5YXW2Ngfvza0ZF6UgFL/E0fTq4LBlvTE2qb/KuuzYSXVnjTfM1osvqMHVbm9950quIZlbqaL6YP7jk3kUtA0GnX2nvq53f3WoSsvEdDRnULgo2fN7lNZJgI8/VWi33c3bBZnGY05+dm+3qc7fNmj4YGKLj2nfqFP+g7jdDlxEV5XsJQZP6hYrS1l0VQr4c69Xueixp90gnZPmE5OF22j+SYEWHlZ0K/Hgsh/Ztsbh6h2DNRlvv6jJh9XaJaHCZDiUDKNTMkvb8vsqCyf3ZNdSmO0fa0Y4baJTtpbKzuVzeeSI7fCKr2Z0WypapnXJ4gnoWy3PoUIlIQ1TXdqhQJIXp9Wx5fYdpeWh2TY5D+YVyKd0jw3iumwi/BC3cEy4o83QlZnW79MrCgCjbhWXBlRZVVZZv4rIKpXC01HFlHdHLoeWVl6UVc/J5uGm6CViW5mulYMk+HqNYr0AyUPivLg2oMs2MPqtuhHyRyiwvNJej1Br+fcLyoAyu8D9B7bgmzUqfFobF5nKnK4+t8MPJkI/xHUNWk117jugWF+xazTAALQn6+UE9lhoI5ApGA/iuJOsrlNP28SVVuBVajXmircLel46w2bJS1Q0Ft0KDuikDFL/3pYrid1Q4FvofwRIo4R9h2ftSwc6jHAMqLcCql8YPHtlzGoByNXYN6v8hXnRaOhUvx0sVLCexwupGDR4NOYC7PePa5keIPACnuAdD7dEadRuTIiS6Lb7uskb381My5yjzF8lGCjBRqdwrWJCagfB3yCy7XT1i92hbcZ5Ci1FJkgYMDf6n+jspIsHFjJrTOdzSMuOa9DbDcj/nH9N9bIoGVgzHPWIQuFuYtaMRaq8eCKI0gEF6lPOZjBz3EEvaaxwSUT9U/8JbJZPJJLBLolH1La/RbF9AbC8JJjv/mMnssKjLRBJyqj9QXxNko0Ux/X79epfiXkm6fmKwF/en1HLc6LxloXWKvGa5rVCVL83VuiPcDEX/K5pTXOxHfx6HHB0t2FI0qI2rCZFTrvPWU67zVuS/kTsLnc7IKhFg30e4FOkqNSfH5PtkmUy6Cpiv/36k2sbqCeCFNa+URpoY0sZoYmCgCr3qgZz6s8I0gP1bYiR+D79H56NOz0EVWCTy2/fffvSCCx59W7uRV9995eqrX8GLesOXNm360iZ+T/El3uZqL+FyzSZ8XxpTiI/G0nkT4zznFZ0t4ipMz5v4q9ssqbdKUZt6u82knPCrt6PZwsnn0XySVnyPR1ZXAn72yx48bWJsu7apnI3Hy8bygUK5Js32qcytapqgmn95uexccj205vGgJ+euOeG2SORmKZr/qKzcx9SFctMJdwMUFZDJITs7dnOp1EKZCxg304Cevyfya+vlKqv6aXK1qIj3imL+L6hL+yvUlFfE0VKZ7E8gBY3M/8VoJCFgizH1W6VyC76nH6b7jiibYVxUmVIEspry/LgZIlCeP11Z4zs/AwvVwtGFEut5S1JY4lfyT0N/evOLo+rUEgjcqc9IkGpQbv3iW7Co5b+KgjvpzYdH85PLcc4X21ouwEGl/S4qnUAvoSlXUUhR1eKr2VWFTB+GMl6FsiQsVD1R3urlAAIoSn7JQkmiVVCHSpCwDH/qPepXQ0Db77CJOAImohB+RPWr31ev5g/kE+zTa4lbvZo8xdWPffQu9yJTPCNB66s+zXoJt/0L6hSoCuBIoK8fnBGG87OoRckJpLqyWe4YbpGi50g0+3I3UD85Oa0fzubfoXxPLbW3FDWzigmyJeM0tQkax7PqTy80+UxfUHPlBZIRVNQ+v0xRm8REKPoLmNr0+Uo48v9GFbXPKylqQ2IKm00QddgyWGMROCTxdLB9nCY8P7j2DjlsV/+mfr0C0r/NkeXbbpPlOTBBwT0mVz1zx9S/wJecBF9Wgv3p032iP2v4VSgfgW2G+HUEdEXU6iq4CtpLJfIN9XQG8dwa1VoO8XC2SrPDDyCOQptXgbcPvlAgBfxBoGwftQKeKFrNTASPt3pGGqDt/QRasn2kri+H6L80MJRsmVYJrAKyDItpJUy3/15WYIJqcJ9Q5N/LFJ4c3dc1URpWl9hW6mu50MUIelg4ucTPf15zs5DFo1c0VSp1tKB9jkwIyuM45kb+IP8gHed+6jO3v0KbIknzLy636E8KPTdCuUpB0wLo9JKnAO6pv0vS31EtBha/fJemkgLVVnd8KCk4qBTpQ5m7FbifBKrPJcq0pZAFVG/XbOFz+Tcq2MLrcmV28Nmi/OHskh82bau0k8eWCaPijQPWQ5lUvslwVCfHkXBMIehqUgtDNLeauH1huvZTbYmw+luPjyWoNGEuxRLR7LK5fSyXFUyK7PURQv2v8D3XOt2NJ6liBbmPGOsakw1kbeOs+31Wm5qpH+iJWSzqdPr2O7zc2TmtnrzCig6bBd/vgQmzOlz0STWIlmZEQfupogOZFHUZ7EkUnMn0RrpIMqAgHRJAOjIJ3yGw1I/MAp9q9S3Q/clADNm1wEeO+xbwg5OIYHZLY3ehG5lJk2xhco+6JWybpEVz2wrR6hZyD0QXZbeDVB+onmlimpkWprdAs4WEZDSQppsDlcdCBJJESIYFuAtUnC4GIF2C3Uu2Kv7L1bdz6FxtqxpG4TqQOqOUNAJ2HLvPWA2GgDy4O4vaDrtyl6P+1fAll+SyFcQ28GHqh7fvvf37udylf0fNwhzgz87Y+cf5x9GnF6ygHu18sAbipWeF0YPBgp2GaKeQduxxdEr3SgbH1kvH7tvqSLhedomOvZyts2dw8acu3dY/f+ucuMtCuP/e4zC4XnH3OLZ8ZuxTWxy8dJfU5dhDeKPSlJy5pn/+7u3XrJhmr9C5CuleGflGQocKnlAUaRKp0BAHV0ZwUt9VCqk6zYOgRIuMfePJzdmBdpPJ7/6B23+f+sp9NMDZevovvfYHG5dGPISQq1DojqNckchVrCcCYz/Q0hI0m3NKDRfkgsrnamo+p0CAq1FyvC3a3Nak/s5VX282x9Ufy3E39VAx6o7LpCvO2wK+ch9jNqpJCutcIOooKnYWtDK8gTRVYygRQfwgzKM5+jP2jOZdx3r32Py7rQUPOzAnoRs95NvRAR0qLGU11Taqu1bUYSzMcWjMEir067JQQHfIrLBHsrgv00/Wavd8HRLMEEYFSW3HCSNQehnrHztKqHcDyo4VfZ6gPKCR+gufwA8GegxUEo4A+gd0BASHiH6jYMLIsUdQJTs/C641KN4oCHWolCMLlMfIdtWKScjx7SM5LD9HnfmhrGI0S139UWfUnxgOXdJFW+AMcGjKr6eHAttHF5sUoeArYKDcxMSYcKA/xUDhPiEOEAPafSIUFArN0r24ynI91EPARDXvIDYyvqZaWeroBOUABQA/E+DXC7PWafDLQY2oiwpUEyj4RQtVlUp1GrM7In2p2A7VuiOW6otMiGOo5Mrp05ejVuTy6dNX/k/7mybZQ0nUmfrbx3U4KueDnlHm5wdh8FFeKnoaKKh/TK18StOPhwG9Xo5mqXAxvw/79YQwwDR+nAKQQ4izVXioB84qcppWB7IqjU45z4CE17OvF1Dw+oTFqxtz8dxwtogBnF9MjIl/in+K8s3hM9laIn0TiCbTAXL0T798bPXqx36p3chrv0O+GC9Xaj48Ecv8U8UEeBvUEsDlTepiU5OvlpeNGvpnKF0RvUooWhIjnx6GeBapXCQYTw9DNg6/OC3gZjp76oNTj9Kz6Jqobxb9NDqc08vcKReOpcsQV2K8InXFaXW3aI6Ofr1k48rp7CX7rx+v1UKPsfvzQU0Kc83i2VdILmd2/yX55zT9luN2+Cu4nKfwPcK/CvDVU+pHh8+LaldIf1fA5h3ndT6Fln9/W/9Ce1vndfvJtnPVO2xhm3qbafHVCN1X363UXHq9xuVD8OSD29Z8pZ5cZrern9cAdGW/uib/ud+VK0L9a42r6C90kL8KzxwLQw9NkIQJL0ASU8M+VG0KsUdgdvpgP/6NqqP0/gHZFUfGEijZLHpiIgvV5/Bltrj8Qd7XQd5p4P+7tJo30NMO6VGBwahSPMYiaaBYoLY6uEnciyhhh1Z/vvacG/rjpsvnpzs0B1Id6fmX8119l88XnOxe/uGrzzHcdu7UtY3+2vmXN5zUyj3ZcPl8p1sZSs6/nGXtwrV7Ka0XZdz83fwjjINpZWYw85lL8BRK4nGyIir2RiOsEyipuEcIakpGjWgBjLiHWOgj0Yi34gW1kKPxHt2Na5q+lwg1RdRSpFDNzosb44YJXnAfoEOpZW//6u1lhYA6leevezbI26zNHO811M2dc5HFxpk4i1jPC0s21/BWW5DnPQbn2X1WK43/aM2n18DfSoybbNHijFpamzXI31eRibGUOxSu/lT96YZlq1Yt20DaSBuG6knw2eusHs5EPBfNmVvHKdaQzcDfz9ZsXmLDWGXy2U5OsYSsIn8CS12jQIyD12KKqZrLPy7mSPdICmd6WGHG8NDZkkHuE4h9TU8FpmUO/VjC/EinToFyoNDz2p9XD6g78WgQdPG7Z3R0T/Z5dTM9lsL8Ktek7szl2L+gQwGgwkZHc2g5Su7NvVqwGy2Ua4KSXUwt1X4PaM5paaEu6jQ5zVFyNabxvUksVt2T/4VeamYPlLtffdQsk+2sUTY/zDXl/05W53/Bz9UK3p7LjapZ2ZxOm+UlZXrL3HHGqO8+wVroDaCTTnTxitMxmiAAYQzVJQH+nj3oIHnPaN6Zq6sNSLjBl8tKgVr2mj/9CWi9dnKca8rBQBsd5R1tzVlgrl5pbnPw6kZclCr2CHxMnHohLz+3KRQokzALyeIKFU1TNCiayJdoHvDYe7K6mZLm8S3uJ9dojuaJ62/qN/tjQxnSnhnKPw+LNrLi8ZKyJ3x1YhiI1aNAtP6NzCGzYv3DmaGh/LvQZnt0evgIhTFV0kE/PYxAnOHhCQUZdCWY5JWJwMzlAGl1mpNbDU7yyGnhRMILsYhH3VRAijrPcBU8/Cj1Y9NY6cnGVW0CjTLaz7E3epvaT/LtTV72Rs+0WVVmd0dz/MGTI5F0OsIviaqDlbbO5X6xT3PeXbXHRtf/z+fdka+eKPr8KF7IF4vBsT9MFPuPJMBTBMq9hQxXelQ+bewnf18ap4Ib+mSMrtDU5zqlD8QANa5MBGh/OwOvSDfcV2d66mfEWsbGWmIz6nsyZDWQSmqmxDneYyvjHPmRXHZxeueyRGLZzvRioKnGto9nIPkibAJA16adcOZRQr1iAP3bUyBR7T4RgAWTKxhkCYFwshq+7iV9r0whk50cmRcTg4fy5x4OmmNkHndIA2+YuMbmE9dwGYB4KFTsvnDE6Ah47r/fE3AYI+oXADpkdlENcZ8OZEEf8FFGZNxMs6ZLpG3SUFLL7Q2kcFU/A/Jsw+vWDa/7emewLaoeibaF1B9qUNnuqWK3+UfXYVL1v/omD15xxeDkPnXTOKSVcCbDGtOu0YQNpGAP7U1HU58UrqGu8xIbHtkQ3LVhb7Dx46ET3Ffcm1q0YcOizNmf3bC3VjWfAcpSv3MyTlgJ23FHQgmgvk+gk8pL0mcCDOn08MDAQlf+/SlTZ1z12fnqntOhbOTL9/ZdevbAPN+yby1f/uUtC/ixm8ZBo59LTXEW060hGrTDplNprWd58fwB/b/E27BdS/s7U+rGVCeQ46nzaw9QccnmZerGZZs3Yw9aVHt+Kh6HN4ti6lxIhT/wahnZtWwzlY9QHQ2c79C+dxzvVDKy8GqKWQERO9YAKbpsDUTLdWV5dE8PVPjvj9pqw7ah/PFVtkit7aj6G5xY9mfJrCz1j1e0BcnPol4UjtrCdbahIVtd2HaURujnFJR8CuOuUUfhrGhgKKgjCYNSvCc1WKlEp8wHUaAYynFNyzZn+2MnYv36dbMDBTonl/T/ma5IKAyEGz+4eRnVtaX6tss2o34u8mWorFtuFgm4A6qK/yp/gLEBVat5WnPDdKA574ubuFJ/IUfZ/Y2Nt6mN+ZNNTSTaeI56gKwkXerTe9DDHUw8/H35FY3nNN7GGuBKWhrV9ep+0k1WjNWVaHkW1yA+QHWNu8rtBw2a5YXuE40rs7/GA+j09V3hA98yRnFPOGr8ltGlsFdD/7tRce3LH6Trcneuiy7K7J3khKu+3qUaXPWaX7T6/Kfj9BX2eZq2XAcZT79u1ClJzUtHUqfqSMWBcZS43Ena0cUGLgpkKxB1QM+0Fxz10wgg6r5rltnFpH05pepUq3Y2HfYqeKRntmUFNz+XmcOs1H31U6cC6RTVLfCg7RNBF1UF2/wBgu0fFQtPEU1sSg3VcNsR7dWq3af87tUFn1l3ltXpaJxpNvtcZkH2WmMst3JqRpxUH+WC0E1qOGtP66s1MYv+VLu8/XFXvV/ZbunYYBeVN64ls0ur6NzpV9xzlmQwB5qC4Tq70WC0tk8dWJXeHvkD0h9zJOM0vD86/1NJMaIAolctvlByferCsqOKDKceOfUu1PsmoFCamV5mCrMUOCi6V6FJosMF22AcrKJgQDVhfYh6tepp/lYgvnCEAbJQ1L0rOpajEmRcasMiPfxhgGoVo4rwreQpV6fUJHH2e8fa1s2c13Apl1b89a58ozdoap2sjgLN9uISl7P1DrulyeIkt0zr6JjWocoPOZsaXPb6jtqBblsgsaRre2xHi4nELm0MhG1+x1SXwLpFi53b+aHRYo/IrbZtuWAKu5cSEXfybnnmUCaXGTpQr0xK2O2WWY76f+nAjNVf7nCZHU5XqIkTnpt6VtvsFlPXg1031g/VRdpkkyVpD7jnmax88QwDvg/66NnMRdRXTcGTmQc3cuINwN5IQqi0yzb+YFVHuVqI5s4ADfg5oE4ybDLd28mFSFmYvRoomsWXEdLU2Wl3GJy93ZNb/d5gqmNaqJZSO1l6PVRy0nZIj/45EetjLguh1rLqR+SK0hO6NrsqcNX8zoUdjQYDJ7tb4os6+i+Y0qpY2AWlnLRDWdGFTfGY1gV0zNAtJ7pdo24se0D88AwLY/gZmE9iuP4V5v7CSR/RThaHLh+UeBkXwU6BC7lGOevK65udTv+tS/PfW7qj3ljTcj3b9OkbV85t8xsMj7Ddj7DGpthZKwKPvso/c/1K9aLE12fMWLV1y1D9ua8lyJdWXr/bG+noCFutf/mLILe39ITUV4igr3876fpX5g2zeB52sWnIL4fXHlgeUzOx5QfIvJQyrKQE9wHUqVq+PEaOrz0wVvNbJZVSfsuMzxN4l9PkedFzw9V5Dj+nzpgoT4ZxCxJfC5RWLc74YVHxKlExCYt0JAOMatREhHBSCAtSfod6x6Ls8HCWECLwXZ9nd5Dz1T24JUdWs6fU3++fcnT49Qe+kBs+wdsMZgPXMp3U5S958snPP/EE7bvkOPCuTUDTUQ/UzirLhML9yPahoe1D5Fj5jWsaoveyP00PehdUAHk/seDVWsvDWXXXsyn/4wfpXc2V3/Qxli3jl/5hj/83avSCfpTNxOEKLmTjxOEKuxgNlsQn0xgct724mhynupNW1Ph6o3RYS3/+2TJrzLlkFz+ip3qCHKf6eqW02QJLjBYuuj4sobhCWqa/YHGEHpcnumuWSOhxeaL7sOakNR6vvmo+YcfFA8UFXEPZf9UjyudIOyNwx/i90DdsujS/FX2UAwvWSVK4NxaMhAGw3oowp/uc8CTi7D2rBgZWwb/60faR7SPsEbjkXy4G0XaqhXPwe2cePjxjxuHD6ssQuR1fq6PF0E+o2t1nePTn8TUmxz/A3crMoCc7egESuoTHYc7mYdg6etORoOhR7BBGD+qJopELrl4S6cJNRtEAsLP/OdvnJq0Wo0GolY2Et9VFB2Kf+4bZvVyxfOMz3WdFfSIryj6DwWghre7aQbdiDrkTL3A3vNDuDpk93HqXwam+bWmUJZfNn5ozKV5Pmmq8PF/jVY+2Tlk2M2RzSXKjmbQ4RZcQavEYrN/9rlXwtIQqzxQNMzPPfHYLvuPoO9TbT8bpGw5CQPGd+SyX/Cyf0Vxjd2R9NmsunnXYa8xGHzn+sSfM5J0y0DZEXWWxkXjcR75KBLNLHi7XvX2G8VOrf4Ykg0AMdBESIpo7MgAfyakA6rkqpI6UjNs0px7cMV+D5BF49Tez1VGnYmq0WIijp985m4Sn2gJR9b07riPPFo97OYbUZbxJCpot7H/lpZBicglCPN7WOfJkcHqc3ElWqvvz/1E6bIQrG+tz6WkM1SM9FBTR7FSs8KyBBytSmNEoquJNFN5EQyTiCrnKDx1h58yxCepPHU5nxGoxEQeeOZi2m80DxNxncVhr6BmEfUarxejw+WSiHhWk19bSY7aKR5MsteblJpfTLtjimBouXsm3d3djjYM+wEW0El9dM/ueVRWIsXwe43R7SgbVZqrnqoJ1X/kuF7pcgf8duv4q6vayV5U9zMV91GxO59UUjW8rHV6u799WzKMT7umRCXbYUKM+foaCcwgaoqZUtmodV3p+X7akb4dnU9B9La38RPFUG2SCC90tVA4XwEFhyOpZZrUCsgWYHsczLFBBVGNtstoN1bw0Z+O4fYIbvZVt4EUcJEKOhHeincWqONw+q6w5Go+WGOSR7LhKV+KBqbBPpfUvOf9QqkpDyVhBeyyZQGMsdA5FBUqvFMtUyGq9vjnsAJU4UcrxldP1CCaofyDkSAifoP5QwWx+SyUGxp75BzGAvtG7uQ38LehlyEQMeh0TeE6Bm7tYdXqdkt0uOb3kfYlNwmOdDyacOq/qlFo1v+PTmTi3E/glC9W11b34A22zmLzvb231Q0L2Bgg60OTW4YdstO+YOJnO38TtpH7zy9ymokWyA79qlVSn38HtpFlImFnhu3b4boNWXklOXV0Iwo7lQ1hrZyPFcwtjwFP7iEKSHSSJw509kh8kj6pr+H1jR7km9vcvqN9657vffefkv+fKxge1X+7RdjYUPIESN7gTvRkB/RMYtEkaVkdHApmdBPpnKmz0n1xSWFOyVIuLrinZwpoCRe6kyiVZoHX088F+UX4+WKS4iBTP0IWxGtZgOdMaV4KTayqHQF/VihBwTbgDXTCmKoOBJeNhwJMzEVjtjIFLuU38fPR7hqNG1JS7g/qRCuy3vmQ3W9Vu8qbVbP+SzazGRJH83MzP90Ck2m31mMjP8TiLn5uwD2Ugr2PFvPQjB5BnSJvQxGQZZEB+LopqzGzDbMmbkAPkZVJjeO5FzOSBKCgJze2ZS4Gemc9twrwY6u9H61iUQTcRvtdT9RW3tRxAWwFs2tcuJRnI6xjmBdWjbgFNRHMHiF1uHYBfUR/ut5Ug2jXAaT96+9RH/FToRwIzGbKmVJ1AZQnoabSB1yyIg7ByAridHApPMjyw0OiV6RjSbCuzwLAvFizBliWJua1tsuAgvNPbmljYbpt8lkWam7b3XZiOiKJskMOtmfScnsbPW208knwjuXrXK4Q1iKIgNyYXXDVT9C2Ye/78GQ5BEEXfFdde2RwauOysdJNL5AzCy84ard/nGAVN8alecnFdgu5Gbd5DJTL+hHZK0vApVy3OfU8XTSJg1TlssivsPYUlIqvn66PzrVTymCc4wgF6SDNR0pDf+9Gp+VnsUH5WtpHYsuhOaey8zdwLN47V8MTbm78g687+P3cx6tcAeNpjYGRgYGBk8s0/zBIfz2/zlUGeZQNQhOFCWfF0GP0/8P8c1jusIkAuBwMTSBQAYwQM6HjaY2BkYGAV+d8KJgP/XWG9wwAUQQGLAYqPBl942n1TvUoDQRCe1VM8kWARjNrZGIurBAsRBIuA2vkAFsJiKTYW4guIjT5ARMgTxCLoA1hcb5OgDyGHrY7f7M65e8fpLF++2W/nZ2eTmGfaIJi5I0qGDlZZcD51QzTTJirZPAI9JIwVA+wT8L5nOdMaV0AuMJ+icRHq8of6LSD18fzq8ds7xjpwBnQiSI9V5QVl6NwPvgM15NXn/AtWZyj3W0HjEXitOc/dIdbetPdFTZ+P6t+X7xU0/k6GJtOe1/B3arN0/pmz1J4UZc+D6ExwjD7vioeGd5HvhvU+R+DZcGZ6YBPNfAi0G97iBPwFXqph2cW8+D7kjMfwtinHb6kLb6Wygk3cZytSEoptGrlScdHtLPeri1JKueACMZfU1ViJG1Sq5E43dIt7SZZFl1zuRhb/GOs44xFVDbrJzB5tYs35OmaXTrEmkv0DajnMWQB42mNgYNCCwk0MLxheMPrhgUuY2JiUmOqY2pjWMD1hdmPOY+5hPsLCwWLEksSyiOUOawzrLrYiti/sCuxJ7Kc45DiSOPZxmnG2cG7jvMelweXDNYXrEbcBdxf3KR4OngheLd443g18fHwZfFv4NfiX8T8TEBIIEZggsEpQS7BMcJsQl5CFUI3QAWEp4RLhCyJaIldEbURXiJ4RYxEzE0sQ2yD2TzxIfJkEk4SeRJbENIkNEg8k/klqSGZITpE8InlL8p2UmVSG1A6pb9Jx0ltkjGSmyDySlZF1kc2RnSK7R/aZnJ5cmdwB+ST5SwpuCvsUjRTLFHcoOShNU9qhzKespGyhXKV8SPmBCpOKgUqcyjSVR6omqgmqe9RE1OrUnqkHqO9R/6FholGgsUZzgeYZLTUtL60WbS7tKh0OnQydXTpvdGV0O3S/6Gnopekt0ruhz6fvpl+nv0n/h4GdQYvBJUMhwwTDdYYvjFSM4oxmGd0zVjK2M84w3mYiYZJgssLkkqmO6TzTF2Z2ZjVmd8ylzP3MJ5lfsRCwcLJoszhhyWXpZdlhecZKxirHapbVPesF1ndsJGwCbBbZ/LA1sn1jZ2XXY3fFXsM+z36V/S8HD4cGh2OOTI51ThJOK5zeOUs4OzmXOS9wPuUi4JLgss7lm2uU6zY3NrcSty1u39zN3Mvct7l/8xDzMPLw88jyaPM44ynkaeEZ59niucqLyUvPKwgAn3OqOQAAAQAAARcApwARAAAAAAACAAAAAQABAAAAQAAuAAAAAHjarZK9TgJBEMf/d6CRaAyRhMLqCgsbL4ciglTGRPEjSiSKlnLycXJ86CEniU/hM9jYWPgIFkYfwd6nsDD+d1mBIIUx3mZnfzs3MzszuwDCeIYG8UUwQxmAFgxxPeeuyxrmcaNYxzTuFAewi0fFQSTxqXgM11pC8TgS2oPiCUS1d8Uh8ofiSczpYcVT5LjiCPlY8Qui+ncOr7D02y6/BTCrP/m+b5bdTrPi2I26Z9qNGtbRQBMdXMJBGRW0YOCecxEWYoiTCvxrYBunqHPdoX2bLOyrMKlZg8thDETw5K7Itci1TXlGy0124QRZZLDFU/exhxztMozlosTpMH6ZPge0L+OKGnFKjJ4WRwppHPL0PP3SI2P9jLQwFOu3GRhDfkeyDo//G7IHgzllZQxLdquvrdCyBVvat3seJlYo06gxapUxhU2JWnFygR03sSxnEkvcpf5Y5eibGq315TDp7fKWm8zbUVl71Aqq/ZtNnlkWmLnQtno9ycvXYbA6W2pF3aKfCayyC0Ja7Fr/PW70/HO4YM0OKxFvzf0C1MyPjwAAeNpt1VWUU2cYRuHsgxenQt1d8/3JOUnqAyR1d/cCLQVKO22pu7tQd3d3d3d3d3cXmGzumrWy3pWLs/NdPDMpZaWu1783l1Lpf14MnfzO6FbqVupfGkD30iR60JNe9KYP09CXfvRnAAMZxGCGMG3pW6ZjemZgKDMyEzMzC7MyG7MzB3MyF3MzD/MyH/OzAAuyEAuzCIuyGIuzBGWCRIUqOQU16jRYkqVYmmVYluVYng6GMZwRNGmxAiuyEiuzCquyGquzBmuyFmuzDuuyHuuzARuyERuzCZuyGZuzBVuyFVuzDduyHdszklGMZgd2ZAw7MZZxjGdnJrALu9LJbuzOHkxkT/Zib/ZhX/Zjfw7gQA7iYA7hUA7jcI7gSI7iaI7hWI7jeE7gRE7iZE5hEqdyGqdzBmdyFmdzDudyHudzARdyERdzCZdyGZdzBVdyFVdzDddyHddzAzdyEzdzC7dyG7dzB3dyF3dzD/dyH/fzAA/yEA/zCI/yGI/zBE/yFE/zDM/yHM/zAi/yEi/zCq/yGq/zBm/yFm/zDu/yHu/zAR/yER/zCZ/yGZ/zBV/yFV/zDd/yHd/zAz/yEz/zC7/yG7/zB3/yF3/zD/9mpYwsy7pl3bMeWc+sV9Y765NNk/XN+mX9swHZwGxQNjgb0nPkmInjR0V7Uq/OsaPL5Y7ylE3l8tQNN7kVt+rmbuHW3LrbcDvam1rtzVvdm50TxrU/DBvRtZUY1rV5a3jXFn550Wo/XDNWK3dFmh7X9LimxzU9qulRTY9qelTTo5rlKLt2wk7YiaprL+yFvbAX9pK9ZC/ZS/aSvWQv2Uv2kr1kr2KvYq9ir2KvYq9ir2KvYq9ir2Kvaq9qr2qvaq9qr2qvaq9qr2qvai+3l9vL7eX2cnu5vdxebi+3l9sr7BV2CjuFncJOYaewU9gp7NTs1LyrZq9mr2avZq9mr2avZq9mr26vbq9ur26vbq9ur26vbq9ur26vYa9hr2GvYa9hr2GvYa/R7oXuQ/eh+2j/UU7e3C3cqc/V3fYdof/Qf+g/9B/6D/2H/kP/of/Qf+g/9B/6D/2H/kP/of/Qf+g/9B/6D/2H/kP/of/Qf+g/9B/6D/2H/kP/of/Qf+g/9B/6D92H7kP3ofvQfeg+dB+6D92H7kP3ofvQfRT29B/6D/2H/kP/of/Qf+g/9B/6D/2H/kP/of/Qf+g/9B/6D/2H/kP/of/Qf+g/9B/6D/2H/kP/of/Qf+g/9B/6j6nuG3Ya7U5q/0hN3nCTW3Grbu4Wrs/rP+k/6T/pP+k/6T/pP+k+6T7pPek86TzpPOk86TzpOuk66TrpOuk66TrpOlWmPu/36zrpOuk66TrpOuk66TrpOvl/Pek76TvpO+k76TvpO+k76TvpO+k76TvpO7V9t+qtVs/OaOURU6bo6PgPt6rZbwAAAAABVFDDFwAA) format("woff"),url(data:application/font-sfnt;base64,AAEAAAAPAIAAAwBwRkZUTW0ql9wAAAD8AAAAHEdERUYBRAAEAAABGAAAACBPUy8yZ7lriQAAATgAAABgY21hcNqt44EAAAGYAAAGcmN2dCAAKAL4AAAIDAAAAARnYXNw//8AAwAACBAAAAAIZ2x5Zn1dwm8AAAgYAACUpGhlYWQFTS/YAACcvAAAADZoaGVhCkQEEQAAnPQAAAAkaG10eNLHIGAAAJ0YAAADdGxvY2Fv+5XOAACgjAAAAjBtYXhwAWoA2AAAorwAAAAgbmFtZbMsoJsAAKLcAAADonBvc3S6o+U1AACmgAAACtF3ZWJmwxhUUAAAsVQAAAAGAAAAAQAAAADMPaLPAAAAANB2gXUAAAAA0HZzlwABAAAADgAAABgAAAAAAAIAAQABARYAAQAEAAAAAgAAAAMEiwGQAAUABAMMAtAAAABaAwwC0AAAAaQAMgK4AAAAAAUAAAAAAAAAAAAAAAIAAAAAAAAAAAAAAFVLV04AQAAg//8DwP8QAAAFFAB7AAAAAQAAAAAAAAAAAAAAIAABAAAABQAAAAMAAAAsAAAACgAAAdwAAQAAAAAEaAADAAEAAAAsAAMACgAAAdwABAGwAAAAaABAAAUAKAAgACsAoAClIAogLyBfIKwgvSISIxsl/CYBJvonCScP4APgCeAZ4CngOeBJ4FngYOBp4HngieCX4QnhGeEp4TnhRuFJ4VnhaeF54YnhleGZ4gbiCeIW4hniIeIn4jniSeJZ4mD4////AAAAIAAqAKAApSAAIC8gXyCsIL0iEiMbJfwmASb6JwknD+AB4AXgEOAg4DDgQOBQ4GDgYuBw4IDgkOEB4RDhIOEw4UDhSOFQ4WDhcOGA4ZDhl+IA4gniEOIY4iHiI+Iw4kDiUOJg+P/////j/9r/Zv9i4Ajf5N+132nfWd4F3P3aHdoZ2SHZE9kOIB0gHCAWIBAgCiAEH/4f+B/3H/Ef6x/lH3wfdh9wH2ofZB9jH10fVx9RH0sfRR9EHt4e3B7WHtUezh7NHsUevx65HrMIFQABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAAAACjAAAAAAAAAA1AAAAIAAAACAAAAADAAAAKgAAACsAAAAEAAAAoAAAAKAAAAAGAAAApQAAAKUAAAAHAAAgAAAAIAoAAAAIAAAgLwAAIC8AAAATAAAgXwAAIF8AAAAUAAAgrAAAIKwAAAAVAAAgvQAAIL0AAAAWAAAiEgAAIhIAAAAXAAAjGwAAIxsAAAAYAAAl/AAAJfwAAAAZAAAmAQAAJgEAAAAaAAAm+gAAJvoAAAAbAAAnCQAAJwkAAAAcAAAnDwAAJw8AAAAdAADgAQAA4AMAAAAeAADgBQAA4AkAAAAhAADgEAAA4BkAAAAmAADgIAAA4CkAAAAwAADgMAAA4DkAAAA6AADgQAAA4EkAAABEAADgUAAA4FkAAABOAADgYAAA4GAAAABYAADgYgAA4GkAAABZAADgcAAA4HkAAABhAADggAAA4IkAAABrAADgkAAA4JcAAAB1AADhAQAA4QkAAAB9AADhEAAA4RkAAACGAADhIAAA4SkAAACQAADhMAAA4TkAAACaAADhQAAA4UYAAACkAADhSAAA4UkAAACrAADhUAAA4VkAAACtAADhYAAA4WkAAAC3AADhcAAA4XkAAADBAADhgAAA4YkAAADLAADhkAAA4ZUAAADVAADhlwAA4ZkAAADbAADiAAAA4gYAAADeAADiCQAA4gkAAADlAADiEAAA4hYAAADmAADiGAAA4hkAAADtAADiIQAA4iEAAADvAADiIwAA4icAAADwAADiMAAA4jkAAAD1AADiQAAA4kkAAAD/AADiUAAA4lkAAAEJAADiYAAA4mAAAAETAAD4/wAA+P8AAAEUAAH1EQAB9REAAAEVAAH2qgAB9qoAAAEWAAYCCgAAAAABAAABAAAAAAAAAAAAAAAAAAAAAQACAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAEAAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAVAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKAL4AAAAAf//AAIAAgAoAAABaAMgAAMABwAusQEALzyyBwQA7TKxBgXcPLIDAgDtMgCxAwAvPLIFBADtMrIHBgH8PLIBAgDtMjMRIRElMxEjKAFA/ujw8AMg/OAoAtAAAQBkAGQETARMAFsAAAEyFh8BHgEdATc+AR8BFgYPATMyFhcWFRQGDwEOASsBFx4BDwEGJi8BFRQGBwYjIiYvAS4BPQEHDgEvASY2PwEjIiYnJjU0Nj8BPgE7AScuAT8BNhYfATU0Njc2AlgPJgsLCg+eBxYIagcCB57gChECBgMCAQIRCuCeBwIHaggWB54PCikiDyYLCwoPngcWCGoHAgee4AoRAgYDAgECEQrgngcCB2oIFgeeDwopBEwDAgECEQrgngcCB2oIFgeeDwopIg8mCwsKD54HFghqBwIHnuAKEQIGAwIBAhEK4J4HAgdqCBYHng8KKSIPJgsLCg+eBxYIagcCB57gChECBgAAAAABAAAAAARMBEwAIwAAATMyFhURITIWHQEUBiMhERQGKwEiJjURISImPQE0NjMhETQ2AcLIFR0BXhUdHRX+oh0VyBUd/qIVHR0VAV4dBEwdFf6iHRXIFR3+ohUdHRUBXh0VyBUdAV4VHQAAAAABAHAAAARABEwARQAAATMyFgcBBgchMhYPAQ4BKwEVITIWDwEOASsBFRQGKwEiJj0BISImPwE+ATsBNSEiJj8BPgE7ASYnASY2OwEyHwEWMj8BNgM5+goFCP6UBgUBDAoGBngGGAp9ARMKBgZ4BhgKfQ8LlAsP/u0KBgZ4BhgKff7tCgYGeAYYCnYFBv6UCAUK+hkSpAgUCKQSBEwKCP6UBgwMCKAIDGQMCKAIDK4LDw8LrgwIoAgMZAwIoAgMDAYBbAgKEqQICKQSAAABAGQABQSMBK4AOwAAATIXFhcjNC4DIyIOAwchByEGFSEHIR4EMzI+AzUzBgcGIyInLgEnIzczNjcjNzM+ATc2AujycDwGtSM0QDkXEys4MjAPAXtk/tQGAZZk/tQJMDlCNBUWOUA0I64eYmunznYkQgzZZHABBdpkhhQ+H3UErr1oaS1LMCEPCx4uTzJkMjJkSnRCKw8PIjBKK6trdZ4wqndkLzVkV4UljQAAAgB7AAAETASwAD4ARwAAASEyHgUVHAEVFA4FKwEHITIWDwEOASsBFRQGKwEiJj0BISImPwE+ATsBNSEiJj8BPgE7ARE0NhcRMzI2NTQmIwGsAV5DakIwFgwBAQwWMEJqQ7ICASAKBgZ4BhgKigsKlQoP/vUKBgZ4BhgKdf71CgYGeAYYCnUPtstALS1ABLAaJD8yTyokCwsLJCpQMkAlGmQMCKAIDK8LDg8KrwwIoAgMZAwIoAgMAdsKD8j+1EJWVEAAAAEAyAGQBEwCvAAPAAATITIWHQEUBiMhIiY9ATQ2+gMgFR0dFfzgFR0dArwdFcgVHR0VyBUdAAAAAgDIAAAD6ASwACUAQQAAARUUBisBFRQGBx4BHQEzMhYdASE1NDY7ATU0NjcuAT0BIyImPQEXFRQWFx4BFAYHDgEdASE1NCYnLgE0Njc+AT0BA+gdFTJjUVFjMhUd/OAdFTJjUVFjMhUdyEE3HCAgHDdBAZBBNxwgIBw3QQSwlhUdZFuVIyOVW5YdFZaWFR2WW5UjI5VbZB0VlshkPGMYDDI8MgwYYzyWljxjGAwyPDIMGGM8ZAAAAAEAAAAAAAAAAAAAAAAxAAAB//IBLATCBEEAFgAAATIWFzYzMhYVFAYjISImNTQ2NyY1NDYB9261LCwueKqqeP0ST3FVQgLYBEF3YQ6teHmtclBFaw4MGZnXAAAAAgAAAGQEsASvABoAHgAAAB4BDwEBMzIWHQEhNTQ2OwEBJyY+ARYfATc2AyEnAwL2IAkKiAHTHhQe+1AeFB4B1IcKCSAkCm9wCXoBebbDBLMTIxC7/RYlFSoqFSUC6rcQJBQJEJSWEPwecAIWAAAAAAQAAABkBLAETAALABcAIwA3AAATITIWBwEGIicBJjYXARYUBwEGJjURNDYJATYWFREUBicBJjQHARYGIyEiJjcBNjIfARYyPwE2MhkEfgoFCP3MCBQI/cwIBQMBCAgI/vgICgoDjAEICAoKCP74CFwBbAgFCvuCCgUIAWwIFAikCBQIpAgUBEwKCP3JCAgCNwgK2v74CBQI/vgIBQoCJgoF/vABCAgFCv3aCgUIAQgIFID+lAgKCggBbAgIpAgIpAgAAAAD//D/8AS6BLoACQANABAAAAAyHwEWFA8BJzcTAScJAQUTA+AmDpkNDWPWXyL9mdYCZv4f/rNuBLoNmQ4mDlzWYP50/ZrWAmb8anABTwAAAAEAAAAABLAEsAAPAAABETMyFh0BITU0NjsBEQEhArz6FR384B0V+v4MBLACiv3aHRUyMhUdAiYCJgAAAAEADgAIBEwEnAAfAAABJTYWFREUBgcGLgE2NzYXEQURFAYHBi4BNjc2FxE0NgFwAoUnMFNGT4gkV09IQv2oWEFPiCRXT0hCHQP5ow8eIvzBN1EXGSltchkYEAIJm/2iKmAVGilucRoYEQJ/JioAAAACAAn/+AS7BKcAHQApAAAAMh4CFQcXFAcBFgYPAQYiJwEGIycHIi4CND4BBCIOARQeATI+ATQmAZDItoNOAQFOARMXARY7GikT/u13jgUCZLaDTk6DAXKwlFZWlLCUVlYEp06DtmQCBY15/u4aJRg6FBQBEk0BAU6Dtsi2g1tWlLCUVlaUsJQAAQBkAFgErwREABkAAAE+Ah4CFRQOAwcuBDU0PgIeAQKJMHt4dVg2Q3mEqD4+p4V4Qzhadnh5A7VESAUtU3ZAOXmAf7JVVbJ/gHk5QHZTLQVIAAAAAf/TAF4EewSUABgAAAETNjIXEyEyFgcFExYGJyUFBiY3EyUmNjMBl4MHFQeBAaUVBhH+qoIHDxH+qf6qEQ8Hgv6lEQYUAyABYRMT/p8RDPn+bxQLDPb3DAsUAZD7DBEAAv/TAF4EewSUABgAIgAAARM2MhcTITIWBwUTFgYnJQUGJjcTJSY2MwUjFwc3Fyc3IycBl4MHFQeBAaUVBhH+qoIHDxH+qf6qEQ8Hgv6lEQYUAfPwxUrBw0rA6k4DIAFhExP+nxEM+f5vFAsM9vcMCxQBkPsMEWSO4ouM5YzTAAABAAAAAASwBLAAJgAAATIWHQEUBiMVFBYXBR4BHQEUBiMhIiY9ATQ2NyU+AT0BIiY9ATQ2Alh8sD4mDAkBZgkMDwr7ggoPDAkBZgkMJj6wBLCwfPouaEsKFwbmBRcKXQoPDwpdChcF5gYXCktoLvp8sAAAAA0AAAAABLAETAAPABMAIwAnACsALwAzADcARwBLAE8AUwBXAAATITIWFREUBiMhIiY1ETQ2FxUzNSkBIgYVERQWMyEyNjURNCYzFTM1BRUzNSEVMzUFFTM1IRUzNQchIgYVERQWMyEyNjURNCYFFTM1IRUzNQUVMzUhFTM1GQR+Cg8PCvuCCg8PVWQCo/3aCg8PCgImCg8Pc2T8GGQDIGT8GGQDIGTh/doKDw8KAiYKDw/872QDIGT8GGQDIGQETA8K++YKDw8KBBoKD2RkZA8K/qIKDw8KAV4KD2RkyGRkZGTIZGRkZGQPCv6iCg8PCgFeCg9kZGRkZMhkZGRkAAAEAAAAAARMBEwADwAfAC8APwAAEyEyFhURFAYjISImNRE0NikBMhYVERQGIyEiJjURNDYBITIWFREUBiMhIiY1ETQ2KQEyFhURFAYjISImNRE0NjIBkBUdHRX+cBUdHQJtAZAVHR0V/nAVHR39vQGQFR0dFf5wFR0dAm0BkBUdHRX+cBUdHQRMHRX+cBUdHRUBkBUdHRX+cBUdHRUBkBUd/agdFf5wFR0dFQGQFR0dFf5wFR0dFQGQFR0AAAkAAAAABEwETAAPAB8ALwA/AE8AXwBvAH8AjwAAEzMyFh0BFAYrASImPQE0NiEzMhYdARQGKwEiJj0BNDYhMzIWHQEUBisBIiY9ATQ2ATMyFh0BFAYrASImPQE0NiEzMhYdARQGKwEiJj0BNDYhMzIWHQEUBisBIiY9ATQ2ATMyFh0BFAYrASImPQE0NiEzMhYdARQGKwEiJj0BNDYhMzIWHQEUBisBIiY9ATQ2MsgVHR0VyBUdHQGlyBUdHRXIFR0dAaXIFR0dFcgVHR389cgVHR0VyBUdHQGlyBUdHRXIFR0dAaXIFR0dFcgVHR389cgVHR0VyBUdHQGlyBUdHRXIFR0dAaXIFR0dFcgVHR0ETB0VyBUdHRXIFR0dFcgVHR0VyBUdHRXIFR0dFcgVHf5wHRXIFR0dFcgVHR0VyBUdHRXIFR0dFcgVHR0VyBUd/nAdFcgVHR0VyBUdHRXIFR0dFcgVHR0VyBUdHRXIFR0ABgAAAAAEsARMAA8AHwAvAD8ATwBfAAATMzIWHQEUBisBIiY9ATQ2KQEyFh0BFAYjISImPQE0NgEzMhYdARQGKwEiJj0BNDYpATIWHQEUBiMhIiY9ATQ2ATMyFh0BFAYrASImPQE0NikBMhYdARQGIyEiJj0BNDYyyBUdHRXIFR0dAaUCvBUdHRX9RBUdHf6FyBUdHRXIFR0dAaUCvBUdHRX9RBUdHf6FyBUdHRXIFR0dAaUCvBUdHRX9RBUdHQRMHRXIFR0dFcgVHR0VyBUdHRXIFR3+cB0VyBUdHRXIFR0dFcgVHR0VyBUd/nAdFcgVHR0VyBUdHRXIFR0dFcgVHQAAAAABACYALAToBCAAFwAACQE2Mh8BFhQHAQYiJwEmND8BNjIfARYyAdECOwgUB7EICPzxBxUH/oAICLEHFAirBxYB3QI7CAixBxQI/PAICAGACBQHsQgIqwcAAQBuAG4EQgRCACMAAAEXFhQHCQEWFA8BBiInCQEGIi8BJjQ3CQEmND8BNjIXCQE2MgOIsggI/vUBCwgIsggVB/70/vQHFQiyCAgBC/71CAiyCBUHAQwBDAcVBDuzCBUH/vT+9AcVCLIICAEL/vUICLIIFQcBDAEMBxUIsggI/vUBDAcAAwAX/+sExQSZABkAJQBJAAAAMh4CFRQHARYUDwEGIicBBiMiLgI0PgEEIg4BFB4BMj4BNCYFMzIWHQEzMhYdARQGKwEVFAYrASImPQEjIiY9ATQ2OwE1NDYBmcSzgk1OASwICG0HFQj+1HeOYrSBTU2BAW+zmFhYmLOZWFj+vJYKD0sKDw8KSw8KlgoPSwoPDwpLDwSZTYKzYo15/tUIFQhsCAgBK01NgbTEs4JNWJmzmFhYmLOZIw8KSw8KlgoPSwoPDwpLDwqWCg9LCg8AAAMAF//rBMUEmQAZACUANQAAADIeAhUUBwEWFA8BBiInAQYjIi4CND4BBCIOARQeATI+ATQmBSEyFh0BFAYjISImPQE0NgGZxLOCTU4BLAgIbQcVCP7Ud45itIFNTYEBb7OYWFiYs5lYWP5YAV4KDw8K/qIKDw8EmU2Cs2KNef7VCBUIbAgIAStNTYG0xLOCTViZs5hYWJizmYcPCpYKDw8KlgoPAAAAAAIAFwAXBJkEsAAPAC0AAAEzMhYVERQGKwEiJjURNDYFNRYSFRQOAiIuAjU0EjcVDgEVFB4BMj4BNTQmAiZkFR0dFWQVHR0BD6fSW5vW6tabW9KnZ3xyxejFcnwEsB0V/nAVHR0VAZAVHeGmPv7ZuHXWm1tbm9Z1uAEnPqY3yHh0xXJyxXR4yAAEAGQAAASwBLAADwAfAC8APwAAATMyFhURFAYrASImNRE0NgEzMhYVERQGKwEiJjURNDYBMzIWFREUBisBIiY1ETQ2BTMyFh0BFAYrASImPQE0NgQBlgoPDwqWCg8P/t6WCg8PCpYKDw/+3pYKDw8KlgoPD/7elgoPDwqWCg8PBLAPCvuCCg8PCgR+Cg/+cA8K/RIKDw8KAu4KD/7UDwr+PgoPDwoBwgoPyA8K+goPDwr6Cg8AAAAAAgAaABsElgSWAEcATwAAATIfAhYfATcWFwcXFh8CFhUUDwIGDwEXBgcnBwYPAgYjIi8CJi8BByYnNycmLwImNTQ/AjY/ASc2Nxc3Nj8CNhIiBhQWMjY0AlghKSYFMS0Fhj0rUAMZDgGYBQWYAQ8YA1AwOIYFLDIFJisfISkmBTEtBYY8LFADGQ0ClwYGlwINGQNQLzqFBS0xBSYreLJ+frJ+BJYFmAEOGQJQMDmGBSwxBiYrHiIoJgYxLAWGPSxRAxkOApcFBZcCDhkDUTA5hgUtMAYmKiAhKCYGMC0Fhj0sUAIZDgGYBf6ZfrF+frEABwBkAAAEsAUUABMAFwAhACUAKQAtADEAAAEhMhYdASEyFh0BITU0NjMhNTQ2FxUhNQERFAYjISImNREXETMRMxEzETMRMxEzETMRAfQBLCk7ARMKD/u0DwoBEzspASwBLDsp/UQpO2RkZGRkZGRkBRQ7KWQPCktLCg9kKTtkZGT+1PzgKTs7KQMgZP1EArz9RAK8/UQCvP1EArwAAQAMAAAFCATRAB8AABMBNjIXARYGKwERFAYrASImNREhERQGKwEiJjURIyImEgJsCBUHAmAIBQqvDwr6Cg/+1A8K+goPrwoFAmoCYAcH/aAICv3BCg8PCgF3/okKDw8KAj8KAAIAZAAAA+gEsAARABcAAAERFBYzIREUBiMhIiY1ETQ2MwEjIiY9AQJYOykBLB0V/OAVHR0VA1L6FR0EsP5wKTv9dhUdHRUETBUd/nAdFfoAAwAXABcEmQSZAA8AGwAwAAAAMh4CFA4CIi4CND4BBCIOARQeATI+ATQmBTMyFhURMzIWHQEUBisBIiY1ETQ2AePq1ptbW5vW6tabW1ubAb/oxXJyxejFcnL+fDIKD68KDw8K+goPDwSZW5vW6tabW1ub1urWmztyxejFcnLF6MUNDwr+7Q8KMgoPDwoBXgoPAAAAAAL/nAAABRQEsAALAA8AACkBAyMDIQEzAzMDMwEDMwMFFP3mKfIp/eYBr9EVohTQ/p4b4BsBkP5wBLD+1AEs/nD+1AEsAAAAAAIAZAAABLAEsAAVAC8AAAEzMhYVETMyFgcBBiInASY2OwERNDYBMzIWFREUBiMhIiY1ETQ2OwEyFh0BITU0NgImyBUdvxQLDf65DSYN/rkNCxS/HQJUMgoPDwr75goPDwoyCg8DhA8EsB0V/j4XEP5wEBABkBAXAcIVHfzgDwr+ogoPDwoBXgoPDwqvrwoPAAMAFwAXBJkEmQAPABsAMQAAADIeAhQOAiIuAjQ+AQQiDgEUHgEyPgE0JgUzMhYVETMyFgcDBiInAyY2OwERNDYB4+rWm1tbm9bq1ptbW5sBv+jFcnLF6MVycv58lgoPiRUKDd8NJg3fDQoViQ8EmVub1urWm1tbm9bq1ps7csXoxXJyxejFDQ8K/u0XEP7tEBABExAXARMKDwAAAAMAFwAXBJkEmQAPABsAMQAAADIeAhQOAiIuAjQ+AQQiDgEUHgEyPgE0JiUTFgYrAREUBisBIiY1ESMiJjcTNjIB4+rWm1tbm9bq1ptbW5sBv+jFcnLF6MVycv7n3w0KFYkPCpYKD4kVCg3fDSYEmVub1urWm1tbm9bq1ps7csXoxXJyxejFAf7tEBf+7QoPDwoBExcQARMQAAAAAAIAAAAABLAEsAAZADkAABMhMhYXExYVERQGBwYjISImJyY1EzQ3Ez4BBSEiBgcDBhY7ATIWHwEeATsBMjY/AT4BOwEyNicDLgHhAu4KEwO6BwgFDBn7tAweAgYBB7kDEwKX/dQKEgJXAgwKlgoTAiYCEwr6ChMCJgITCpYKDAJXAhIEsA4K/XQYGf5XDB4CBggEDRkBqRkYAowKDsgOC/4+Cw4OCpgKDg4KmAoODgsBwgsOAAMAFwAXBJkEmQAPABsAJwAAADIeAhQOAiIuAjQ+AQQiDgEUHgEyPgE0JgUXFhQPAQYmNRE0NgHj6tabW1ub1urWm1tbmwG/6MVycsXoxXJy/ov9ERH9EBgYBJlbm9bq1ptbW5vW6tabO3LF6MVycsXoxV2+DCQMvgwLFQGQFQsAAQAXABcEmQSwACgAAAE3NhYVERQGIyEiJj8BJiMiDgEUHgEyPgE1MxQOAiIuAjQ+AjMyA7OHBwsPCv6WCwQHhW2BdMVycsXoxXKWW5vW6tabW1ub1nXABCSHBwQL/pYKDwsHhUxyxejFcnLFdHXWm1tbm9bq1ptbAAAAAAIAFwABBJkEsAAaADUAAAE3NhYVERQGIyEiJj8BJiMiDgEVIzQ+AjMyEzMUDgIjIicHBiY1ETQ2MyEyFg8BFjMyPgEDs4cHCw8L/pcLBAeGboF0xXKWW5vWdcDrllub1nXAnIYHCw8LAWgKBQiFboJ0xXIEJIcHBAv+lwsPCweGS3LFdHXWm1v9v3XWm1t2hggFCgFoCw8LB4VMcsUAAAAKAGQAAASwBLAADwAfAC8APwBPAF8AbwB/AI8AnwAAEyEyFhURFAYjISImNRE0NgUhIgYVERQWMyEyNjURNCYFMzIWHQEUBisBIiY9ATQ2MyEyFh0BFAYjISImPQE0NgczMhYdARQGKwEiJj0BNDYzITIWHQEUBiMhIiY9ATQ2BzMyFh0BFAYrASImPQE0NjMhMhYdARQGIyEiJj0BNDYHMzIWHQEUBisBIiY9ATQ2MyEyFh0BFAYjISImPQE0Nn0EGgoPDwr75goPDwPA/K4KDw8KA1IKDw/9CDIKDw8KMgoPD9IBwgoPDwr+PgoPD74yCg8PCjIKDw/SAcIKDw8K/j4KDw++MgoPDwoyCg8P0gHCCg8PCv4+Cg8PvjIKDw8KMgoPD9IBwgoPDwr+PgoPDwSwDwr7ggoPDwoEfgoPyA8K/K4KDw8KA1IKD2QPCjIKDw8KMgoPDwoyCg8PCjIKD8gPCjIKDw8KMgoPDwoyCg8PCjIKD8gPCjIKDw8KMgoPDwoyCg8PCjIKD8gPCjIKDw8KMgoPDwoyCg8PCjIKDwAAAAACAAAAAARMBLAAGQAjAAABNTQmIyEiBh0BIyIGFREUFjMhMjY1ETQmIyE1NDY7ATIWHQEDhHVT/tRSdmQpOzspA4QpOzsp/ageFMgUHgMgyFN1dlLIOyn9qCk7OykCWCk7lhUdHRWWAAIAZAAABEwETAAJADcAABMzMhYVESMRNDYFMhcWFREUBw4DIyIuAScuAiMiBwYjIicmNRE+ATc2HgMXHgIzMjc2fTIKD2QPA8AEBRADIUNAMRwaPyonKSxHHlVLBwgGBQ4WeDsXKC4TOQQpLUUdZ1AHBEwPCvvNBDMKDzACBhH+WwYGO1AkDQ0ODg8PDzkFAwcPAbY3VwMCAwsGFAEODg5XCAAAAwAAAAAEsASXACEAMQBBAAAAMh4CFREUBisBIiY1ETQuASAOARURFAYrASImNRE0PgEDMzIWFREUBisBIiY1ETQ2ITMyFhURFAYrASImNRE0NgHk6N6jYw8KMgoPjeT++uSNDwoyCg9joyqgCAwMCKAIDAwCYKAIDAwIoAgMDASXY6PedP7UCg8PCgEsf9FyctF//tQKDw8KASx03qP9wAwI/jQIDAwIAcwIDAwI/jQIDAwIAcwIDAAAAAACAAAA0wRHA90AFQA5AAABJTYWFREUBiclJisBIiY1ETQ2OwEyBTc2Mh8BFhQPARcWFA8BBiIvAQcGIi8BJjQ/AScmND8BNjIXAUEBAgkMDAn+/hUZ+goPDwr6GQJYeAcUByIHB3h4BwciBxQHeHgHFAciBwd3dwcHIgcUBwMurAYHCv0SCgcGrA4PCgFeCg+EeAcHIgcUB3h4BxQHIgcHd3cHByIHFAd4eAcUByIICAAAAAACAAAA0wNyA90AFQAvAAABJTYWFREUBiclJisBIiY1ETQ2OwEyJTMWFxYVFAcGDwEiLwEuATc2NTQnJjY/ATYBQQECCQwMCf7+FRn6Cg8PCvoZAdIECgZgWgYLAwkHHQcDBkhOBgMIHQcDLqwGBwr9EgoHBqwODwoBXgoPZAEJgaGafwkBAQYXBxMIZ36EaggUBxYFAAAAAAMAAADEBGID7AAbADEASwAAATMWFxYVFAYHBgcjIi8BLgE3NjU0JicmNj8BNgUlNhYVERQGJyUmKwEiJjURNDY7ATIlMxYXFhUUBwYPASIvAS4BNzY1NCcmNj8BNgPHAwsGh0RABwoDCQcqCAIGbzs3BgIJKgf9ggECCQwMCf7+FRn6Cg8PCvoZAdIECgZgWgYLAwkHHQcDBkhOBgMIHQcD7AEJs9lpy1QJAQYiBhQIlrJarEcJFAYhBb6sBgcK/RIKBwasDg8KAV4KD2QBCYGhmn8JAQEGFwcTCGd+hGoIFQYWBQAAAAANAAAAAASwBLAACQAVABkAHQAhACUALQA7AD8AQwBHAEsATwAAATMVIxUhFSMRIQEjFTMVIREjESM1IQURIREhESERBSM1MwUjNTMBMxEhETM1MwEzFSMVIzUjNTM1IzUhBREhEQcjNTMFIzUzASM1MwUhNSEB9GRk/nBkAfQCvMjI/tTIZAJY+7QBLAGQASz84GRkArxkZP1EyP4MyGQB9MhkyGRkyAEs/UQBLGRkZAOEZGT+DGRkAfT+1AEsA4RkZGQCWP4MZMgBLAEsyGT+1AEs/tQBLMhkZGT+DP4MAfRk/tRkZGRkyGTI/tQBLMhkZGT+1GRkZAAAAAAJAAAAAASwBLAAAwAHAAsADwATABcAGwAfACMAADcjETMTIxEzASMRMxMjETMBIxEzASE1IRcjNTMXIzUzBSM1M2RkZMhkZAGQyMjIZGQBLMjI/OD+1AEsyGRkyGRkASzIyMgD6PwYA+j8GAPo/BgD6PwYA+j7UGRkW1tbW1sAAAIAAAAKBKYEsAANABUAAAkBFhQHAQYiJwETNDYzBCYiBhQWMjYB9AKqCAj+MAgUCP1WAQ8KAUM7Uzs7UzsEsP1WCBQI/jAICAKqAdsKD807O1Q7OwAAAAADAAAACgXSBLAADQAZACEAAAkBFhQHAQYiJwETNDYzIQEWFAcBBiIvAQkBBCYiBhQWMjYB9AKqCAj+MAgUCP1WAQ8KAwYCqggI/jAIFAg4Aaj9RP7TO1M7O1M7BLD9VggUCP4wCAgCqgHbCg/9VggUCP4wCAg4AaoCvM07O1Q7OwAAAAABAGQAAASwBLAAJgAAASEyFREUDwEGJjURNCYjISIPAQYWMyEyFhURFAYjISImNRE0PwE2ASwDOUsSQAgKDwr9RBkSQAgFCgK8Cg8PCvyuCg8SixIEsEv8fBkSQAgFCgO2Cg8SQAgKDwr8SgoPDwoDzxkSixIAAAABAMj//wRMBLAACgAAEyEyFhURCQERNDb6AyAVHf4+/j4dBLAdFfuCAbz+QwR/FR0AAAAAAwAAAAAEsASwABUARQBVAAABISIGBwMGHwEeATMhMjY/ATYnAy4BASMiBg8BDgEjISImLwEuASsBIgYVERQWOwEyNj0BNDYzITIWHQEUFjsBMjY1ETQmASEiBg8BBhYzITI2LwEuAQM2/kQLEAFOBw45BhcKAcIKFwY+DgdTARABVpYKFgROBBYK/doKFgROBBYKlgoPDwqWCg8PCgLuCg8PCpYKDw/+sf4MChMCJgILCgJYCgsCJgITBLAPCv7TGBVsCQwMCWwVGAEtCg/+cA0JnAkNDQmcCQ0PCv12Cg8PCpYKDw8KlgoPDwoCigoP/agOCpgKDg4KmAoOAAAAAAQAAABkBLAETAAdACEAKQAxAAABMzIeAh8BMzIWFREUBiMhIiY1ETQ2OwE+BAEVMzUEIgYUFjI2NCQyFhQGIiY0AfTIOF00JAcGlik7Oyn8GCk7OymWAgknM10ByGT+z76Hh76H/u9WPDxWPARMKTs7FRQ7Kf2oKTs7KQJYKTsIG0U1K/7UZGRGh76Hh74IPFY8PFYAAAAAAgA1AAAEsASvACAAIwAACQEWFx4BHwEVITUyNi8BIQYHBh4CMxUhNTY3PgE/AQEDIQMCqQGBFCgSJQkK/l81LBFS/nk6IgsJKjIe/pM4HAwaBwcBj6wBVKIEr/waMioTFQECQkJXLd6RWSIuHAxCQhgcDCUNDQPu/VoByQAAAAADAGQAAAPwBLAAJwAyADsAAAEeBhUUDgMjITU+ATURNC4EJzUFMh4CFRQOAgclMzI2NTQuAisBETMyNjU0JisBAvEFEzUwOyodN1htbDD+DCk7AQYLFyEaAdc5dWM+Hy0tEP6Pi05pESpTPnbYUFJ9Xp8CgQEHGB0zOlIuQ3VONxpZBzMoAzsYFBwLEAkHRwEpSXNDM1s6KwkxYUopOzQb/K5lUFqBAAABAMgAAANvBLAAGQAAARcOAQcDBhYXFSE1NjcTNjQuBCcmJzUDbQJTQgeECSxK/gy6Dq0DAw8MHxUXDQYEsDkTNSj8uTEoBmFhEFIDQBEaExAJCwYHAwI5AAAAAAL/tQAABRQEsAAlAC8AAAEjNC4FKwERFBYfARUhNTI+AzURIyIOBRUjESEFIxEzByczESM3BRQyCAsZEyYYGcgyGRn+cAQOIhoWyBkYJhMZCwgyA+j7m0tLfX1LS30DhBUgFQ4IAwH8rhYZAQJkZAEFCRUOA1IBAwgOFSAVASzI/OCnpwMgpwACACH/tQSPBLAAJQAvAAABIzQuBSsBERQWHwEVITUyPgM1ESMiDgUVIxEhEwc1IRUnNxUhNQRMMggLGRMmGBnIMhkZ/nAEDiIaFsgZGCYTGQsIMgPoQ6f84KenAyADhBUgFQ4IAwH9dhYZAQJkZAEFCRUOAooBAwgOFSAVASz7gn1LS319S0sABAAAAAAEsARMAA8AHwAvAD8AABMhMhYdARQGIyEiJj0BNDYTITIWHQEUBiMhIiY9ATQ2EyEyFh0BFAYjISImPQE0NhMhMhYdARQGIyEiJj0BNDYyAlgVHR0V/agVHR0VA+gVHR0V/BgVHR0VAyAVHR0V/OAVHR0VBEwVHR0V+7QVHR0ETB0VZBUdHRVkFR3+1B0VZBUdHRVkFR3+1B0VZBUdHRVkFR3+1B0VZBUdHRVkFR0ABAAAAAAEsARMAA8AHwAvAD8AABMhMhYdARQGIyEiJj0BNDYDITIWHQEUBiMhIiY9ATQ2EyEyFh0BFAYjISImPQE0NgMhMhYdARQGIyEiJj0BNDb6ArwVHR0V/UQVHR2zBEwVHR0V+7QVHR3dArwVHR0V/UQVHR2zBEwVHR0V+7QVHR0ETB0VZBUdHRVkFR3+1B0VZBUdHRVkFR3+1B0VZBUdHRVkFR3+1B0VZBUdHRVkFR0ABAAAAAAEsARMAA8AHwAvAD8AAAE1NDYzITIWHQEUBiMhIiYBNTQ2MyEyFh0BFAYjISImEzU0NjMhMhYdARQGIyEiJgE1NDYzITIWHQEUBiMhIiYB9B0VAlgVHR0V/agVHf5wHRUD6BUdHRX8GBUdyB0VAyAVHR0V/OAVHf7UHRUETBUdHRX7tBUdA7ZkFR0dFWQVHR3+6WQVHR0VZBUdHf7pZBUdHRVkFR0d/ulkFR0dFWQVHR0AAAQAAAAABLAETAAPAB8ALwA/AAATITIWHQEUBiMhIiY9ATQ2EyEyFh0BFAYjISImPQE0NhMhMhYdARQGIyEiJj0BNDYTITIWHQEUBiMhIiY9ATQ2MgRMFR0dFfu0FR0dFQRMFR0dFfu0FR0dFQRMFR0dFfu0FR0dFQRMFR0dFfu0FR0dBEwdFWQVHR0VZBUd/tQdFWQVHR0VZBUd/tQdFWQVHR0VZBUd/tQdFWQVHR0VZBUdAAgAAAAABLAETAAPAB8ALwA/AE8AXwBvAH8AABMzMhYdARQGKwEiJj0BNDYpATIWHQEUBiMhIiY9ATQ2ATMyFh0BFAYrASImPQE0NikBMhYdARQGIyEiJj0BNDYBMzIWHQEUBisBIiY9ATQ2KQEyFh0BFAYjISImPQE0NgEzMhYdARQGKwEiJj0BNDYpATIWHQEUBiMhIiY9ATQ2MmQVHR0VZBUdHQFBAyAVHR0V/OAVHR3+6WQVHR0VZBUdHQFBAyAVHR0V/OAVHR3+6WQVHR0VZBUdHQFBAyAVHR0V/OAVHR3+6WQVHR0VZBUdHQFBAyAVHR0V/OAVHR0ETB0VZBUdHRVkFR0dFWQVHR0VZBUd/tQdFWQVHR0VZBUdHRVkFR0dFWQVHf7UHRVkFR0dFWQVHR0VZBUdHRVkFR3+1B0VZBUdHRVkFR0dFWQVHR0VZBUdAAAG/5wAAASwBEwAAwATACMAKgA6AEoAACEjETsCMhYdARQGKwEiJj0BNDYTITIWHQEUBiMhIiY9ATQ2BQc1IzUzNQUhMhYdARQGIyEiJj0BNDYTITIWHQEUBiMhIiY9ATQ2AZBkZJZkFR0dFWQVHR0VAfQVHR0V/gwVHR3++qfIyAHCASwVHR0V/tQVHR0VAlgVHR0V/agVHR0ETB0VZBUdHRVkFR3+1B0VZBUdHRVkFR36fUtkS68dFWQVHR0VZBUd/tQdFWQVHR0VZBUdAAAABgAAAAAFFARMAA8AEwAjACoAOgBKAAATMzIWHQEUBisBIiY9ATQ2ASMRMwEhMhYdARQGIyEiJj0BNDYFMxUjFSc3BSEyFh0BFAYjISImPQE0NhMhMhYdARQGIyEiJj0BNDYyZBUdHRVkFR0dA2dkZPyuAfQVHR0V/gwVHR0EL8jIp6f75gEsFR0dFf7UFR0dFQJYFR0dFf2oFR0dBEwdFWQVHR0VZBUd+7QETP7UHRVkFR0dFWQVHchkS319rx0VZBUdHRVkFR3+1B0VZBUdHRVkFR0AAAAAAgAAAMgEsAPoAA8AEgAAEyEyFhURFAYjISImNRE0NgkCSwLuHywsH/0SHywsBIT+1AEsA+gsH/12HywsHwKKHyz9RAEsASwAAwAAAAAEsARMAA8AFwAfAAATITIWFREUBiMhIiY1ETQ2FxE3BScBExEEMhYUBiImNCwEWBIaGhL7qBIaGkr3ASpKASXs/NJwTk5wTgRMGhL8DBIaGhID9BIaZP0ftoOcAT7+4AH0dE5vT09vAAAAAAIA2wAFBDYEkQAWAB4AAAEyHgEVFAcOAQ8BLgQnJjU0PgIWIgYUFjI2NAKIdcZzRkWyNjYJIV5YbSk8RHOft7eCgreCBJF4ynVzj23pPz4IIWZomEiEdVijeUjDgriBgbgAAAACABcAFwSZBJkADwAXAAAAMh4CFA4CIi4CND4BAREiDgEUHgEB4+rWm1tbm9bq1ptbW5sBS3TFcnLFBJlbm9bq1ptbW5vW6tab/G8DVnLF6MVyAAACAHUAAwPfBQ8AGgA1AAABHgYVFA4DBy4DNTQ+BQMOAhceBBcWNj8BNiYnLgInJjc2IyYCKhVJT1dOPiUzVnB9P1SbfEokP0xXUEm8FykoAwEbITEcExUWAgYCCQkFEikMGiACCAgFD0iPdXdzdYdFR4BeRiYEBTpjl1lFh3ZzeHaQ/f4hS4I6JUEnIw4IBwwQIgoYBwQQQSlZtgsBAAAAAwAAAAAEywRsAAwAKgAvAAABNz4CHgEXHgEPAiUhMhcHISIGFREUFjMhMjY9ATcRFAYjISImNRE0NgkBBzcBA+hsAgYUFR0OFgoFBmz9BQGQMje7/pApOzspAfQpO8i7o/5wpbm5Azj+lqE3AWMD9XMBAgIEDw4WKgsKc8gNuzsp/gwpOzsptsj+tKW5uaUBkKW5/tf+ljKqAWMAAgAAAAAEkwRMABsANgAAASEGByMiBhURFBYzITI2NTcVFAYjISImNRE0NgUBFhQHAQYmJzUmDgMHPgY3NT4BAV4BaaQ0wyk7OykB9Ck7yLml/nClubkCfwFTCAj+rAcLARo5ZFRYGgouOUlARioTAQsETJI2Oyn+DCk7OymZZ6W5uaUBkKW5G/7TBxUH/s4GBAnLAQINFjAhO2JBNB0UBwHSCgUAAAAAAgAAAAAEnQRMAB0ANQAAASEyFwchIgYVERQWMyEyNj0BNxUUBiMhIiY1ETQ2CQE2Mh8BFhQHAQYiLwEmND8BNjIfARYyAV4BXjxDsv6jKTs7KQH0KTvIuaX+cKW5uQHKAYsHFQdlBwf97QcVB/gHB2UHFQdvCBQETBexOyn+DCk7OylFyNulubmlAZCluf4zAYsHB2UHFQf97AcH+AcVB2UHB28HAAAAAQAKAAoEpgSmADsAAAkBNjIXARYGKwEVMzU0NhcBFhQHAQYmPQEjFTMyFgcBBiInASY2OwE1IxUUBicBJjQ3ATYWHQEzNSMiJgE+AQgIFAgBBAcFCqrICggBCAgI/vgICsiqCgUH/vwIFAj++AgFCq/ICgj++AgIAQgICsivCgUDlgEICAj++AgKyK0KBAf+/AcVB/73BwQKrcgKCP74CAgBCAgKyK0KBAcBCQcVBwEEBwQKrcgKAAEAyAAAA4QETAAZAAATMzIWFREBNhYVERQGJwERFAYrASImNRE0NvpkFR0B0A8VFQ/+MB0VZBUdHQRMHRX+SgHFDggV/BgVCA4Bxf5KFR0dFQPoFR0AAAABAAAAAASwBEwAIwAAEzMyFhURATYWFREBNhYVERQGJwERFAYnAREUBisBIiY1ETQ2MmQVHQHQDxUB0A8VFQ/+MBUP/jAdFWQVHR0ETB0V/koBxQ4IFf5KAcUOCBX8GBUIDgHF/koVCA4Bxf5KFR0dFQPoFR0AAAABAJ0AGQSwBDMAFQAAAREUBicBERQGJwEmNDcBNhYVEQE2FgSwFQ/+MBUP/hQPDwHsDxUB0A8VBBr8GBUIDgHF/koVCA4B4A4qDgHgDggV/koBxQ4IAAAAAQDIABYEMwQ2AAsAABMBFhQHAQYmNRE0NvMDLhIS/NISGRkEMv4OCx4L/g4LDhUD6BUOAAIAyABkA4QD6AAPAB8AABMzMhYVERQGKwEiJjURNDYhMzIWFREUBisBIiY1ETQ2+sgVHR0VyBUdHQGlyBUdHRXIFR0dA+gdFfzgFR0dFQMgFR0dFfzgFR0dFQMgFR0AAAEAyABkBEwD6AAPAAABERQGIyEiJjURNDYzITIWBEwdFfzgFR0dFQMgFR0DtvzgFR0dFQMgFR0dAAAAAAEAAAAZBBMEMwAVAAABETQ2FwEWFAcBBiY1EQEGJjURNDYXAfQVDwHsDw/+FA8V/jAPFRUPAmQBthUIDv4gDioO/iAOCBUBtv47DggVA+gVCA4AAAH//gACBLMETwAjAAABNzIWFRMUBiMHIiY1AwEGJjUDAQYmNQM0NhcBAzQ2FwEDNDYEGGQUHgUdFWQVHQL+MQ4VAv4yDxUFFQ8B0gIVDwHSAh0ETgEdFfwYFR0BHRUBtf46DwkVAbX+OQ4JFAPoFQkP/j4BthQJDv49AbYVHQAAAQEsAAAD6ARMABkAAAEzMhYVERQGKwEiJjURAQYmNRE0NhcBETQ2A1JkFR0dFWQVHf4wDxUVDwHQHQRMHRX8GBUdHRUBtv47DggVA+gVCA7+OwG2FR0AAAIAZADIBLAESAALABsAAAkBFgYjISImNwE2MgEhMhYdARQGIyEiJj0BNDYCrgH1DwkW++4WCQ8B9Q8q/fcD6BUdHRX8GBUdHQQ5/eQPFhYPAhwP/UgdFWQVHR0VZBUdAAEAiP/8A3UESgAFAAAJAgcJAQN1/qABYMX92AIoA4T+n/6fxgIoAiYAAAAAAQE7//wEKARKAAUAAAkBJwkBNwQo/dnGAWH+n8YCI/3ZxgFhAWHGAAIAFwAXBJkEmQAPADMAAAAyHgIUDgIiLgI0PgEFIyIGHQEjIgYdARQWOwEVFBY7ATI2PQEzMjY9ATQmKwE1NCYB4+rWm1tbm9bq1ptbW5sBfWQVHZYVHR0Vlh0VZBUdlhUdHRWWHQSZW5vW6tabW1ub1urWm7odFZYdFWQVHZYVHR0Vlh0VZBUdlhUdAAAAAAIAFwAXBJkEmQAPAB8AAAAyHgIUDgIiLgI0PgEBISIGHQEUFjMhMjY9ATQmAePq1ptbW5vW6tabW1ubAkX+DBUdHRUB9BUdHQSZW5vW6tabW1ub1urWm/5+HRVkFR0dFWQVHQACABcAFwSZBJkADwAzAAAAMh4CFA4CIi4CND4BBCIPAScmIg8BBhQfAQcGFB8BFjI/ARcWMj8BNjQvATc2NC8BAePq1ptbW5vW6tabW1ubAeUZCXh4CRkJjQkJeHgJCY0JGQl4eAkZCY0JCXh4CQmNBJlbm9bq1ptbW5vW6tabrQl4eAkJjQkZCXh4CRkJjQkJeHgJCY0JGQl4eAkZCY0AAgAXABcEmQSZAA8AJAAAADIeAhQOAiIuAjQ+AQEnJiIPAQYUHwEWMjcBNjQvASYiBwHj6tabW1ub1urWm1tbmwEVVAcVCIsHB/IHFQcBdwcHiwcVBwSZW5vW6tabW1ub1urWm/4xVQcHiwgUCPEICAF3BxUIiwcHAAAAAAMAFwAXBJkEmQAPADsASwAAADIeAhQOAiIuAjQ+AQUiDgMVFDsBFjc+ATMyFhUUBgciDgUHBhY7ATI+AzU0LgMTIyIGHQEUFjsBMjY9ATQmAePq1ptbW5vW6tabW1ubAT8dPEIyIRSDHgUGHR8UFw4TARkOGhITDAIBDQ6tBx4oIxgiM0Q8OpYKDw8KlgoPDwSZW5vW6tabW1ub1urWm5ELHi9PMhkFEBQQFRIXFgcIBw4UHCoZCBEQKDhcNi9IKhsJ/eMPCpYKDw8KlgoPAAADABcAFwSZBJkADwAfAD4AAAAyHgIUDgIiLgI0PgEFIyIGHQEUFjsBMjY9ATQmAyMiBh0BFBY7ARUjIgYdARQWMyEyNj0BNCYrARE0JgHj6tabW1ub1urWm1tbmwGWlgoPDwqWCg8PCvoKDw8KS0sKDw8KAV4KDw8KSw8EmVub1urWm1tbm9bq1ptWDwqWCg8PCpYKD/7UDwoyCg/IDwoyCg8PCjIKDwETCg8AAgAAAAAEsASwAC8AXwAAATMyFh0BHgEXMzIWHQEUBisBDgEHFRQGKwEiJj0BLgEnIyImPQE0NjsBPgE3NTQ2ExUUBisBIiY9AQ4BBzMyFh0BFAYrAR4BFzU0NjsBMhYdAT4BNyMiJj0BNDY7AS4BAg2WCg9nlxvCCg8PCsIbl2cPCpYKD2eXG8IKDw8KwhuXZw+5DwqWCg9EZheoCg8PCqgXZkQPCpYKD0RmF6gKDw8KqBdmBLAPCsIbl2cPCpYKD2eXG8IKDw8KwhuXZw8KlgoPZ5cbwgoP/s2oCg8PCqgXZkQPCpYKD0RmF6gKDw8KqBdmRA8KlgoPRGYAAwAXABcEmQSZAA8AGwA/AAAAMh4CFA4CIi4CND4BBCIOARQeATI+ATQmBxcWFA8BFxYUDwEGIi8BBwYiLwEmND8BJyY0PwE2Mh8BNzYyAePq1ptbW5vW6tabW1ubAb/oxXJyxejFcnKaQAcHfHwHB0AHFQd8fAcVB0AHB3x8BwdABxUHfHwHFQSZW5vW6tabW1ub1urWmztyxejFcnLF6MVaQAcVB3x8BxUHQAcHfHwHB0AHFQd8fAcVB0AHB3x8BwAAAAMAFwAXBJkEmQAPABsAMAAAADIeAhQOAiIuAjQ+AQQiDgEUHgEyPgE0JgcXFhQHAQYiLwEmND8BNjIfATc2MgHj6tabW1ub1urWm1tbmwG/6MVycsXoxXJyg2oHB/7ACBQIyggIagcVB0/FBxUEmVub1urWm1tbm9bq1ps7csXoxXJyxejFfWoHFQf+vwcHywcVB2oICE/FBwAAAAMAFwAXBJkEmQAPABgAIQAAADIeAhQOAiIuAjQ+AQUiDgEVFBcBJhcBFjMyPgE1NAHj6tabW1ub1urWm1tbmwFLdMVyQQJLafX9uGhzdMVyBJlbm9bq1ptbW5vW6tabO3LFdHhpAktB0P24PnLFdHMAAAAAAQAXAFMEsAP5ABUAABMBNhYVESEyFh0BFAYjIREUBicBJjQnAgoQFwImFR0dFf3aFxD99hACRgGrDQoV/t0dFcgVHf7dFQoNAasNJgAAAAABAAAAUwSZA/kAFQAACQEWFAcBBiY1ESEiJj0BNDYzIRE0NgJ/AgoQEP32EBf92hUdHRUCJhcD8f5VDSYN/lUNChUBIx0VyBUdASMVCgAAAAEAtwAABF0EmQAVAAAJARYGIyERFAYrASImNREhIiY3ATYyAqoBqw0KFf7dHRXIFR3+3RUKDQGrDSYEif32EBf92hUdHRUCJhcQAgoQAAAAAQC3ABcEXQSwABUAAAEzMhYVESEyFgcBBiInASY2MyERNDYCJsgVHQEjFQoN/lUNJg3+VQ0KFQEjHQSwHRX92hcQ/fYQEAIKEBcCJhUdAAABAAAAtwSZBF0AFwAACQEWFAcBBiY1EQ4DBz4ENxE0NgJ/AgoQEP32EBdesKWBJAUsW4fHfhcEVf5VDSYN/lUNChUBIwIkRHVNabGdcUYHAQYVCgACAAAAAASwBLAAFQArAAABITIWFREUBi8BBwYiLwEmND8BJyY2ASEiJjURNDYfATc2Mh8BFhQPARcWBgNSASwVHRUOXvkIFAhqBwf5Xg4I/iH+1BUdFQ5e+QgUCGoHB/leDggEsB0V/tQVCA5e+QcHaggUCPleDhX7UB0VASwVCA5e+QcHaggUCPleDhUAAAACAEkASQRnBGcAFQArAAABFxYUDwEXFgYjISImNRE0Nh8BNzYyASEyFhURFAYvAQcGIi8BJjQ/AScmNgP2agcH+V4OCBX+1BUdFQ5e+QgU/QwBLBUdFQ5e+QgUCGoHB/leDggEYGoIFAj5Xg4VHRUBLBUIDl75B/3xHRX+1BUIDl75BwdqCBQI+V4OFQAAAAADABcAFwSZBJkADwAfAC8AAAAyHgIUDgIiLgI0PgEFIyIGFxMeATsBMjY3EzYmAyMiBh0BFBY7ATI2PQE0JgHj6tabW1ub1urWm1tbmwGz0BQYBDoEIxQ2FCMEOgQYMZYKDw8KlgoPDwSZW5vW6tabW1ub1urWm7odFP7SFB0dFAEuFB3+DA8KlgoPDwqWCg8AAAAABQAAAAAEsASwAEkAVQBhAGgAbwAAATIWHwEWHwEWFxY3Nj8BNjc2MzIWHwEWHwIeATsBMhYdARQGKwEiBh0BIREjESE1NCYrASImPQE0NjsBMjY1ND8BNjc+BAUHBhY7ATI2LwEuAQUnJgYPAQYWOwEyNhMhIiY1ESkBERQGIyERAQQJFAUFFhbEFQ8dCAsmxBYXERUXMA0NDgQZCAEPCj0KDw8KMgoP/nDI/nAPCjIKDw8KPQsOCRkFDgIGFRYfAp2mBwQK2woKAzMDEP41sQgQAzMDCgrnCwMe/okKDwGQAlgPCv6JBLAEAgIKDXYNCxUJDRZ2DQoHIREQFRh7LAkLDwoyCg8PCq8BLP7UrwoPDwoyCg8GBQQwgBkUAwgWEQ55ogcKDgqVCgSqnQcECo8KDgr8cg8KAXf+iQoPAZAAAAAAAgAAAAwErwSmACsASQAAATYWFQYCDgQuAScmByYOAQ8BBiY1NDc+ATc+AScuAT4BNz4GFyYGBw4BDwEOBAcOARY2Nz4CNz4DNz4BBI0IGgItQmxhi2KORDg9EQQRMxuZGhYqCFUYEyADCQIQOjEnUmFch3vAJQgdHyaiPT44XHRZUhcYDhItIRmKcVtGYWtbKRYEBKYDEwiy/t3IlVgxEQgLCwwBAQIbG5kYEyJAJghKFRE8Hzdff4U/M0o1JSMbL0QJGCYvcSEhHjZST2c1ODwEJygeW0AxJUBff1UyFAABAF0AHgRyBM8ATwAAAQ4BHgQXLgc+ATceAwYHDgQHBicmNzY3PgQuAScWDgMmJy4BJyY+BDcGHgM3PgEuAicmPgMCjScfCic4R0IgBBsKGAoQAwEJEg5gikggBhANPkpTPhZINx8SBgsNJysiCRZOQQoVNU1bYC9QZwICBAUWITsoCAYdJzIYHw8YIiYHDyJJYlkEz0OAZVxEOSQMBzgXOB42IzElKRIqg5Gnl0o3Z0c6IAYWCwYNAwQFIDhHXGF1OWiqb0sdBxUknF0XNTQ8PEUiNWNROBYJDS5AQVUhVZloUSkAAAAAA//cAGoE1ARGABsAPwBRAAAAMh4FFA4FIi4FND4EBSYGFxYVFAYiJjU0NzYmBwYHDgEXHgQyPgM3NiYnJgUHDgEXFhcWNj8BNiYnJicuAQIGpJ17bk85HBw6T257naKde25POhwcOU9uewIPDwYIGbD4sBcIBw5GWg0ECxYyWl+DiINfWjIWCwQMWv3/Iw8JCSU4EC0OIw4DDywtCyIERi1JXGJcSSpJXGJcSS0tSVxiXEkqSVxiXEncDwYTOT58sLB8OzcTBg9FcxAxEiRGXkQxMEVeRSQSMRF1HiQPLxJEMA0EDyIPJQ8sSRIEAAAABP/cAAAE1ASwABQAJwA7AEwAACEjNy4ENTQ+BTMyFzczEzceARUUDgMHNz4BNzYmJyYlBgcOARceBBc3LgE1NDc2JhcHDgEXFhcWNj8CJyYnLgECUJQfW6l2WSwcOU9ue51SPUEglCYvbIknUGqYUi5NdiYLBAw2/VFGWg0ECxIqSExoNSlrjxcIB3wjDwkJJTgQLQ4MFgMsLQsieBRhdHpiGxVJXGJcSS0Pef5StVXWNBpacm5jGq0xiD8SMRFGckVzEDESHjxRQTkNmhKnbjs3EwZwJA8vEkQwDQQPC1YELEkSBAAAAAP/ngAABRIEqwALABgAKAAAJwE2FhcBFgYjISImJSE1NDY7ATIWHQEhAQczMhYPAQ4BKwEiJi8BJjZaAoIUOBQCghUbJfryJRsBCgFZDwqWCg8BWf5DaNAUGAQ6BCMUNhQjBDoEGGQEKh8FIfvgIEdEhEsKDw8KSwLT3x0U/BQdHRT8FB0AAAABAGQAFQSwBLAAKAAAADIWFREBHgEdARQGJyURFh0BFAYvAQcGJj0BNDcRBQYmPQE0NjcBETQCTHxYAWsPFhgR/plkGhPNzRMaZP6ZERgWDwFrBLBYPv6t/rsOMRQpFA0M+f75XRRAFRAJgIAJEBVAFF0BB/kMDRQpFDEOAUUBUz4AAAARAAAAAARMBLAAHQAnACsALwAzADcAOwA/AEMARwBLAE8AUwBXAFsAXwBjAAABMzIWHQEzMhYdASE1NDY7ATU0NjsBMhYdASE1NDYBERQGIyEiJjURFxUzNTMVMzUzFTM1MxUzNTMVMzUFFTM1MxUzNTMVMzUzFTM1MxUzNQUVMzUzFTM1MxUzNTMVMzUzFTM1A1JkFR0yFR37tB0VMh0VZBUdAfQdAQ8dFfwYFR1kZGRkZGRkZGRk/HxkZGRkZGRkZGT8fGRkZGRkZGRkZASwHRUyHRWWlhUdMhUdHRUyMhUd/nD9EhUdHRUC7shkZGRkZGRkZGRkyGRkZGRkZGRkZGTIZGRkZGRkZGRkZAAAAAMAAAAZBXcElwAZACUANwAAARcWFA8BBiY9ASMBISImPQE0NjsBATM1NDYBBycjIiY9ATQ2MyEBFxYUDwEGJj0BIyc3FzM1NDYEb/kPD/kOFZ/9qP7dFR0dFdECWPEV/amNetEVHR0VASMDGvkPD/kOFfG1jXqfFQSN5g4qDuYOCBWW/agdFWQVHQJYlhUI/piNeh0VZBUd/k3mDioO5g4IFZa1jXqWFQgAAAABAAAAAASwBEwAEgAAEyEyFhURFAYjIQERIyImNRE0NmQD6Ck7Oyn9rP7QZCk7OwRMOyn9qCk7/tQBLDspAlgpOwAAAAMAZAAABEwEsAAJABMAPwAAEzMyFh0BITU0NiEzMhYdASE1NDYBERQOBSIuBTURIRUUFRwBHgYyPgYmNTQ9AZbIFR3+1B0C0cgVHf7UHQEPBhgoTGacwJxmTCgYBgEsAwcNFB8nNkI2Jx8TDwUFAQSwHRX6+hUdHRX6+hUd/nD+1ClJalZcPigoPlxWakkpASz6CRIVKyclIRsWEAgJEBccISUnKhURCPoAAAAB//8A1ARMA8IABQAAAQcJAScBBEzG/p/+n8UCJwGbxwFh/p/HAicAAQAAAO4ETQPcAAUAAAkCNwkBBE392v3ZxgFhAWEDFf3ZAifH/p8BYQAAAAAC/1EAZAVfA+gAFAApAAABITIWFREzMhYPAQYiLwEmNjsBESElFxYGKwERIRchIiY1ESMiJj8BNjIBlALqFR2WFQgO5g4qDuYOCBWW/oP+HOYOCBWWAYHX/RIVHZYVCA7mDioD6B0V/dkVDvkPD/kOFQGRuPkOFf5wyB0VAiYVDvkPAAABAAYAAASeBLAAMAAAEzMyFh8BITIWBwMOASMhFyEyFhQGKwEVFAYiJj0BIRUUBiImPQEjIiYvAQMjIiY0NjheERwEJgOAGB4FZAUsIf2HMAIXFR0dFTIdKh3+1B0qHR8SHQYFyTYUHh4EsBYQoiUY/iUVK8gdKh0yFR0dFTIyFR0dFTIUCQoDwR0qHQAAAAACAAAAAASwBEwACwAPAAABFSE1MzQ2MyEyFhUFIREhBLD7UMg7KQEsKTv9RASw+1AD6GRkKTs7Kcj84AACAAAAAAXcBEwADAAQAAATAxEzNDYzITIWFSEVBQEhAcjIyDspASwqOgH0ASz+1PtQASwDIP5wAlgpOzspyGT9RAK8AAEBRQAAA2sErwAbAAABFxYGKwERMzIWDwEGIi8BJjY7AREjIiY/ATYyAnvmDggVlpYVCA7mDioO5g4IFZaWFQgO5g4qBKD5DhX9pxUO+Q8P+Q4VAlkVDvkPAAAAAQABAUQErwNrABsAAAEXFhQPAQYmPQEhFRQGLwEmND8BNhYdASE1NDYDqPkODvkPFf2oFQ/5Dg75DxUCWBUDYOUPKQ/lDwkUl5cUCQ/lDykP5Q8JFZWVFQkAAAAEAAAAAASwBLAACQAZAB0AIQAAAQMuASMhIgYHAwUhIgYdARQWMyEyNj0BNCYFNTMVMzUzFQSRrAUkFP1gFCQFrAQt/BgpOzspA+gpOzv+q2RkZAGQAtwXLSgV/R1kOylkKTs7KWQpO8hkZGRkAAAAA/+cAGQEsARMAAsAIwAxAAAAMhYVERQGIiY1ETQDJSMTFgYjIisBIiYnAj0BNDU0PgE7ASUBFSIuAz0BND4CNwRpKh0dKh1k/V0mLwMRFQUCVBQdBDcCCwzIAqP8GAQOIhoWFR0dCwRMHRX8rhUdHRUDUhX8mcj+7BAIHBUBUQ76AgQQDw36/tT6AQsTKRwyGigUDAEAAAACAEoAAARmBLAALAA1AAABMzIWDwEeARcTFzMyFhQGBw4EIyIuBC8BLgE0NjsBNxM+ATcnJjYDFjMyNw4BIiYCKV4UEgYSU3oPP3YRExwaEggeZGqfTzl0XFU+LwwLEhocExF2Pw96UxIGEyQyNDUxDDdGOASwFRMlE39N/rmtHSkoBwQLHBYSCg4REg4FBAgoKR2tAUdNfhQgExr7vgYGMT09AAEAFAAUBJwEnAAXAAABNwcXBxcHFycHJwcnBzcnNyc3Jxc3FzcDIOBO6rS06k7gLZubLeBO6rS06k7gLZubA7JO4C2bmy3gTuq0tOpO4C2bmy3gTuq0tAADAAAAZASwBLAAIQAtAD0AAAEzMhYdAQchMhYdARQHAw4BKwEiJi8BIyImNRE0PwI+ARcPAREzFzMTNSE3NQEzMhYVERQGKwEiJjURNDYCijIoPBwBSCg8He4QLBf6B0YfHz0tNxSRYA0xG2SWZIjW+v4+Mv12ZBUdHRVkFR0dBLBRLJZ9USxkLR3+qBghMhkZJCcBkCQbxMYcKGTU1f6JZAF3feGv/tQdFf4MFR0dFQH0FR0AAAAAAwAAAAAEsARMACAAMAA8AAABMzIWFxMWHQEUBiMhFh0BFAYrASImLwImNRE0NjsBNgUzMhYVERQGKwEiJjURNDYhByMRHwEzNSchNQMCWPoXLBDuHTwo/rgcPCgyGzENYJEUNy09fP3pZBUdHRVkFR0dAl+IZJZkMjIBwvoETCEY/qgdLWQsUXYHlixRKBzGxBskAZAnJGRkHRX+DBUdHRUB9BUdZP6J1dSv4X0BdwADAAAAZAUOBE8AGwA3AEcAAAElNh8BHgEPASEyFhQGKwEDDgEjISImNRE0NjcXERchEz4BOwEyNiYjISoDLgQnJj8BJwUzMhYVERQGKwEiJjURNDYBZAFrHxZuDQEMVAEuVGxuVGqDBhsP/qoHphwOOmQBJYMGGw/LFRMSFv44AgoCCQMHAwUDAQwRklb9T2QVHR0VZBUdHQNp5hAWcA0mD3lMkE7+rRUoog0CDRElCkj+CVkBUxUoMjIBAgIDBQIZFrdT5B0V/gwVHR0VAfQVHQAAAAP/nABkBLAETwAdADYARgAAAQUeBBURFAYjISImJwMjIiY0NjMhJyY2PwE2BxcWBw4FKgIjIRUzMhYXEyE3ESUFMzIWFREUBisBIiY1ETQ2AdsBbgIIFBANrAf+qg8bBoNqVW1sVAEuVQsBDW4WSpIRDAIDBQMHAwkDCgH+Jd0PHAaCASZq/qoCUGQVHR0VZBUdHQRP5gEFEBEXC/3zDaIoFQFTTpBMeQ8mDXAWrrcWGQIFAwICAWQoFf6tWQH37OQdFf4MFR0dFQH0FR0AAAADAGEAAARMBQ4AGwA3AEcAAAAyFh0BBR4BFREUBiMhIiYvAQMmPwE+AR8BETQXNTQmBhURHAMOBAcGLwEHEyE3ESUuAQMhMhYdARQGIyEiJj0BNDYB3pBOAVMVKKIN/fMRJQoJ5hAWcA0mD3nGMjIBAgIDBQIZFrdT7AH3Wf6tFSiWAfQVHR0V/gwVHR0FDm5UaoMGGw/+qgemHA4OAWsfFm4NAQxUAS5U1ssVExIW/jgCCgIJAwcDBQMBDBGSVv6tZAElgwYb/QsdFWQVHR0VZBUdAAP//QAGA+gFFAAPAC0ASQAAASEyNj0BNCYjISIGHQEUFgEVFAYiJjURBwYmLwEmNxM+BDMhMhYVERQGBwEDFzc2Fx4FHAIVERQWNj0BNDY3JREnAV4B9BUdHRX+DBUdHQEPTpBMeQ8mDXAWEOYBBRARFwsCDQ2iKBX9iexTtxYZAgUDAgIBMjIoFQFTWQRMHRVkFR0dFWQVHfzmalRubFQBLlQMAQ1uFh8BawIIEw8Mpgf+qg8bBgHP/q1WkhEMAQMFAwcDCQIKAv44FhITFcsPGwaDASVkAAIAFgAWBJoEmgAPACUAAAAyHgIUDgIiLgI0PgEBJSYGHQEhIgYdARQWMyEVFBY3JTY0AeLs1ptbW5vW7NabW1ubAob+7RAX/u0KDw8KARMXEAETEASaW5vW7NabW1ub1uzWm/453w0KFYkPCpYKD4kVCg3fDSYAAAIAFgAWBJoEmgAPACUAAAAyHgIUDgIiLgI0PgENAQYUFwUWNj0BITI2PQE0JiMhNTQmAeLs1ptbW5vW7NabW1ubASX+7RAQARMQFwETCg8PCv7tFwSaW5vW7NabW1ub1uzWm+jfDSYN3w0KFYkPCpYKD4kVCgAAAAIAFgAWBJoEmgAPACUAAAAyHgIUDgIiLgI0PgEBAyYiBwMGFjsBERQWOwEyNjURMzI2AeLs1ptbW5vW7NabW1ubAkvfDSYN3w0KFYkPCpYKD4kVCgSaW5vW7NabW1ub1uzWm/5AARMQEP7tEBf+7QoPDwoBExcAAAIAFgAWBJoEmgAPACUAAAAyHgIUDgIiLgI0PgEFIyIGFREjIgYXExYyNxM2JisBETQmAeLs1ptbW5vW7NabW1ubAZeWCg+JFQoN3w0mDd8NChWJDwSaW5vW7NabW1ub1uzWm7sPCv7tFxD+7RAQARMQFwETCg8AAAMAGAAYBJgEmAAPAJYApgAAADIeAhQOAiIuAjQ+ASUOAwcGJgcOAQcGFgcOAQcGFgcUFgcyHgEXHgIXHgI3Fg4BFx4CFxQGFBcWNz4CNy4BJy4BJyIOAgcGJyY2NS4BJzYuAQYHBicmNzY3HgIXHgMfAT4CJyY+ATc+AzcmNzIWMjY3LgMnND4CJiceAT8BNi4CJwYHFB4BFS4CJz4BNxYyPgEB5OjVm1xcm9Xo1ZtcXJsBZA8rHDoKDz0PFD8DAxMBAzEFCRwGIgEMFhkHECIvCxU/OR0HFBkDDRQjEwcFaHUeISQDDTAMD0UREi4oLBAzDwQBBikEAQMLGhIXExMLBhAGKBsGBxYVEwYFAgsFAwMNFwQGCQcYFgYQCCARFwkKKiFBCwQCAQMDHzcLDAUdLDgNEiEQEgg/KhADGgMKEgoRBJhcm9Xo1ZtcXJvV6NWbEQwRBwkCAwYFBycPCxcHInIWInYcCUcYChQECA4QBAkuHgQPJioRFRscBAcSCgwCch0kPiAIAQcHEAsBAgsLIxcBMQENCQIPHxkCFBkdHB4QBgEBBwoMGBENBAMMJSAQEhYXDQ4qFBkKEhIDCQsXJxQiBgEOCQwHAQ0DBAUcJAwSCwRnETIoAwEJCwsLJQcKDBEAAAAAAQAAAAIErwSFABYAAAE2FwUXNxYGBw4BJwEGIi8BJjQ3ASY2AvSkjv79kfsGUE08hjv9rA8rD28PDwJYIk8EhVxliuh+WYcrIgsW/awQEG4PKxACV2XJAAYAAABgBLAErAAPABMAIwAnADcAOwAAEyEyFh0BFAYjISImPQE0NgUjFTMFITIWHQEUBiMhIiY9ATQ2BSEVIQUhMhYdARQGIyEiJj0BNDYFIRUhZAPoKTs7KfwYKTs7BBHIyPwYA+gpOzsp/BgpOzsEEf4MAfT8GAPoKTs7KfwYKTs7BBH+1AEsBKw7KWQpOzspZCk7ZGTIOylkKTs7KWQpO2RkyDspZCk7OylkKTtkZAAAAAIAZAAABEwEsAALABEAABMhMhYUBiMhIiY0NgERBxEBIZYDhBUdHRX8fBUdHQI7yP6iA4QEsB0qHR0qHf1E/tTIAfQB9AAAAAMAAABkBLAEsAAXABsAJQAAATMyFh0BITIWFREhNSMVIRE0NjMhNTQ2FxUzNQEVFAYjISImPQEB9MgpOwEsKTv+DMj+DDspASw7KcgB9Dsp/BgpOwSwOylkOyn+cGRkAZApO2QpO2RkZP1EyCk7OynIAAAABAAAAAAEsASwABUAKwBBAFcAABMhMhYPARcWFA8BBiIvAQcGJjURNDYpATIWFREUBi8BBwYiLwEmND8BJyY2ARcWFA8BFxYGIyEiJjURNDYfATc2MgU3NhYVERQGIyEiJj8BJyY0PwE2MhcyASwVCA5exwcHaggUCMdeDhUdAzUBLBUdFQ5exwgUCGoHB8deDgj+L2oHB8deDggV/tQVHRUOXscIFALLXg4VHRX+1BUIDl7HBwdqCBQIBLAVDl7HCBQIagcHx14OCBUBLBUdHRX+1BUIDl7HBwdqCBQIx14OFf0maggUCMdeDhUdFQEsFQgOXscHzl4OCBX+1BUdFQ5exwgUCGoHBwAAAAYAAAAABKgEqAAPABsAIwA7AEMASwAAADIeAhQOAiIuAjQ+AQQiDgEUHgEyPgE0JiQyFhQGIiY0JDIWFAYjIicHFhUUBiImNTQ2PwImNTQEMhYUBiImNCQyFhQGIiY0Advy3Z9fX5/d8t2gXl6gAcbgv29vv+C/b2/+LS0gIC0gAUwtICAWDg83ETNIMykfegEJ/octICAtIAIdLSAgLSAEqF+f3fLdoF5eoN3y3Z9Xb7/gv29vv+C/BiAtISEtICAtIQqRFxwkMzMkIDEFfgEODhekIC0gIC0gIC0gIC0AAf/YAFoEuQS8AFsAACUBNjc2JicmIyIOAwcABw4EFx4BMzI3ATYnLgEjIgcGBwEOASY0NwA3PgEzMhceARcWBgcOBgcGIyImJyY2NwE2NzYzMhceARcWBgcBDgEnLgECIgHVWwgHdl8WGSJBMD8hIP6IDx4eLRMNBQlZN0ozAiQkEAcdEhoYDRr+qw8pHA4BRyIjQS4ODyw9DQ4YIwwod26La1YOOEBGdiIwGkQB/0coW2tQSE5nDxE4Qv4eDyoQEAOtAdZbZWKbEQQUGjIhH/6JDxsdNSg3HT5CMwIkJCcQFBcMGv6uDwEcKQ4BTSIjIQEINykvYyMLKnhuiWZMBxtAOU6+RAH/SBg3ISSGV121Qv4kDwIPDyYAAAACAGQAWASvBEQAGQBEAAABPgIeAhUUDgMHLgQ1ND4CHgEFIg4DIi4DIyIGFRQeAhcWFx4EMj4DNzY3PgQ1NCYCiTB7eHVYNkN5hKg+PqeFeEM4WnZ4eQEjIT8yLSohJyktPyJDbxtBMjMPBw86KzEhDSIzKUAMBAgrKT8dF2oDtURIBS1TdkA5eYB/slVVsn+AeTlAdlMtBUgtJjY1JiY1NiZvTRc4SjQxDwcOPCouGBgwKEALBAkpKkQqMhNPbQACADn/8gR3BL4AFwAuAAAAMh8BFhUUBg8BJi8BNycBFwcvASY0NwEDNxYfARYUBwEGIi8BJjQ/ARYfAQcXAQKru0KNQjgiHR8uEl/3/nvUaRONQkIBGxJpCgmNQkL+5UK6Qo1CQjcdLhJf9wGFBL5CjUJeKmsiHTUuEl/4/nvUahKNQrpCARv+RmkICY1CukL+5UJCjUK7Qjc3LxFf+AGFAAAAAAMAyAAAA+gEsAARABUAHQAAADIeAhURFAYjISImNRE0PgEHESERACIGFBYyNjQCBqqaZDo7Kf2oKTs8Zj4CWP7/Vj09Vj0EsB4uMhX8Ryk7OykDuRUzLar9RAK8/RY9Vj09VgABAAAAAASwBLAAFgAACQEWFAYiLwEBEScBBRMBJyEBJyY0NjIDhgEbDx0qDiT+6dT+zP7oywEz0gEsAQsjDx0qBKH+5g8qHQ8j/vX+1NL+zcsBGAE01AEXJA4qHQAAAAADAScAEQQJBOAAMgBAAEsAAAEVHgQXIy4DJxEXHgQVFAYHFSM1JicuASczHgEXEScuBDU0PgI3NRkBDgMVFB4DFxYXET4ENC4CArwmRVI8LAKfBA0dMydAIjxQNyiym2SWVygZA4sFV0obLkJOMCAyVWg6HSoqFQ4TJhkZCWgWKTEiGBkzNwTgTgUTLD9pQiQuLBsH/s0NBxMtPGQ+i6oMTU8QVyhrVk1iEAFPCA4ZLzlYNkZwSCoGTf4SARIEDh02Jh0rGRQIBgPQ/soCCRYgNEM0JRkAAAABAGQAZgOUBK0ASgAAATIeARUjNC4CIyIGBwYVFB4BFxYXMxUjFgYHBgc+ATM2FjMyNxcOAyMiLgEHDgEPASc+BTc+AScjNTMmJy4CPgE3NgIxVJlemSc8OxolVBQpGxoYBgPxxQgVFS02ImIWIIwiUzUyHzY4HCAXanQmJ1YYFzcEGAcTDBEJMAwk3aYXFQcKAg4tJGEErVCLTig/IhIdFSw5GkowKgkFZDKCHj4yCg8BIh6TExcIASIfBAMaDAuRAxAFDQsRCjePR2QvORQrREFMIVgAAAACABn//wSXBLAADwAfAAABMzIWDwEGIi8BJjY7AREzBRcWBisBESMRIyImPwE2MgGQlhUIDuYOKg7mDggVlsgCF+YOCBWWyJYVCA7mDioBLBYO+g8P+g4WA4QQ+Q4V/HwDhBUO+Q8AAAQAGf//A+gEsAAHABcAGwAlAAABIzUjFSMRIQEzMhYPAQYiLwEmNjsBETMFFTM1EwczFSE1NyM1IQPoZGRkASz9qJYVCA7mDioO5g4IFZbIAZFkY8jI/tTIyAEsArxkZAH0/HwWDvoPD/oOFgOEZMjI/RL6ZJb6ZAAAAAAEABn//wPoBLAADwAZACEAJQAAATMyFg8BBiIvASY2OwERMwUHMxUhNTcjNSERIzUjFSMRIQcVMzUBkJYVCA7mDioO5g4IFZbIAljIyP7UyMgBLGRkZAEsx2QBLBYO+g8P+g4WA4SW+mSW+mT7UGRkAfRkyMgAAAAEABn//wRMBLAADwAVABsAHwAAATMyFg8BBiIvASY2OwERMwEjESM1MxMjNSMRIQcVMzUBkJYVCA7mDioO5g4IFZbIAlhkZMhkZMgBLMdkASwWDvoPD/oOFgOE/gwBkGT7UGQBkGTIyAAAAAAEABn//wRMBLAADwAVABkAHwAAATMyFg8BBiIvASY2OwERMwEjNSMRIQcVMzUDIxEjNTMBkJYVCA7mDioO5g4IFZbIArxkyAEsx2QBZGTIASwWDvoPD/oOFgOE/gxkAZBkyMj7tAGQZAAAAAAFABn//wSwBLAADwATABcAGwAfAAABMzIWDwEGIi8BJjY7AREzBSM1MxMhNSETITUhEyE1IQGQlhUIDuYOKg7mDggVlsgB9MjIZP7UASxk/nABkGT+DAH0ASwWDvoPD/oOFgOEyMj+DMj+DMj+DMgABQAZ//8EsASwAA8AEwAXABsAHwAAATMyFg8BBiIvASY2OwERMwUhNSEDITUhAyE1IQMjNTMBkJYVCA7mDioO5g4IFZbIAyD+DAH0ZP5wAZBk/tQBLGTIyAEsFg76Dw/6DhYDhMjI/gzI/gzI/gzIAAIAAAAABEwETAAPAB8AAAEhMhYVERQGIyEiJjURNDYFISIGFREUFjMhMjY1ETQmAV4BkKK8u6P+cKW5uQJn/gwpOzspAfQpOzsETLuj/nClubmlAZClucg7Kf4MKTs7KQH0KTsAAAAAAwAAAAAETARMAA8AHwArAAABITIWFREUBiMhIiY1ETQ2BSEiBhURFBYzITI2NRE0JgUXFhQPAQYmNRE0NgFeAZClubml/nCju7wCZP4MKTs7KQH0KTs7/m/9ERH9EBgYBEy5pf5wpbm5pQGQo7vIOyn+DCk7OykB9Ck7gr4MJAy+DAsVAZAVCwAAAAADAAAAAARMBEwADwAfACsAAAEhMhYVERQGIyEiJjURNDYFISIGFREUFjMhMjY1ETQmBSEyFg8BBiIvASY2AV4BkKO7uaX+cKW5uQJn/gwpOzspAfQpOzv+FQGQFQsMvgwkDL4MCwRMvKL+cKW5uaUBkKO7yDsp/gwpOzspAfQpO8gYEP0REf0QGAAAAAMAAAAABEwETAAPAB8AKwAAASEyFhURFAYjISImNRE0NgUhIgYVERQWMyEyNjURNCYFFxYGIyEiJj8BNjIBXgGQpbm5pf5wo7u5Amf+DCk7OykB9Ck7O/77vgwLFf5wFQsMvgwkBEy5pf5wo7u8ogGQpbnIOyn+DCk7OykB9Ck7z/0QGBgQ/REAAAAAAgAAAAAFFARMAB8ANQAAASEyFhURFAYjISImPQE0NjMhMjY1ETQmIyEiJj0BNDYHARYUBwEGJj0BIyImPQE0NjsBNTQ2AiYBkKW5uaX+cBUdHRUBwik7Oyn+PhUdHb8BRBAQ/rwQFvoVHR0V+hYETLml/nCluR0VZBUdOykB9Ck7HRVkFR3p/uQOJg7+5A4KFZYdFcgVHZYVCgAAAQDZAAID1wSeACMAAAEXFgcGAgclMhYHIggBBwYrAScmNz4BPwEhIicmNzYANjc2MwMZCQgDA5gCASwYEQ4B/vf+8wQMDgkJCQUCUCcn/tIXCAoQSwENuwUJEASeCQoRC/5TBwEjEv7K/sUFDwgLFQnlbm4TFRRWAS/TBhAAAAACAAAAAAT+BEwAHwA1AAABITIWHQEUBiMhIgYVERQWMyEyFh0BFAYjISImNRE0NgUBFhQHAQYmPQEjIiY9ATQ2OwE1NDYBXgGQFR0dFf4+KTs7KQHCFR0dFf5wpbm5AvEBRBAQ/rwQFvoVHR0V+hYETB0VZBUdOyn+DCk7HRVkFR25pQGQpbnp/uQOJg7+5A4KFZYdFcgVHZYVCgACAAAAAASwBLAAFQAxAAABITIWFREUBi8BAQYiLwEmNDcBJyY2ASMiBhURFBYzITI2PQE3ERQGIyEiJjURNDYzIQLuAZAVHRUObf7IDykPjQ8PAThtDgj+75wpOzspAfQpO8i7o/5wpbm5pQEsBLAdFf5wFQgObf7IDw+NDykPAThtDhX+1Dsp/gwpOzsplMj+1qW5uaUBkKW5AAADAA4ADgSiBKIADwAbACMAAAAyHgIUDgIiLgI0PgEEIg4BFB4BMj4BNCYEMhYUBiImNAHh7tmdXV2d2e7ZnV1dnQHD5sJxccLmwnFx/nugcnKgcgSiXZ3Z7tmdXV2d2e7ZnUdxwubCcXHC5sJzcqBycqAAAAMAAAAABEwEsAAVAB8AIwAAATMyFhURMzIWBwEGIicBJjY7ARE0NgEhMhYdASE1NDYFFTM1AcLIFR31FAoO/oEOJw3+hQ0JFfod/oUD6BUd+7QdA2dkBLAdFf6iFg/+Vg8PAaoPFgFeFR38fB0V+voVHWQyMgAAAAMAAAAABEwErAAVAB8AIwAACQEWBisBFRQGKwEiJj0BIyImNwE+AQEhMhYdASE1NDYFFTM1AkcBeg4KFfQiFsgUGPoUCw4Bfw4n/fkD6BUd+7QdA2dkBJ7+TQ8g+hQeHRX6IQ8BrxAC/H8dFfr6FR1kMjIAAwAAAAAETARLABQAHgAiAAAJATYyHwEWFAcBBiInASY0PwE2MhcDITIWHQEhNTQ2BRUzNQGMAXEHFQeLBwf98wcVB/7cBweLCBUH1APoFR37tB0DZ2QC0wFxBweLCBUH/fMICAEjCBQIiwcH/dIdFfr6FR1kMjIABAAAAAAETASbAAkAGQAjACcAABM3NjIfAQcnJjQFNzYWFQMOASMFIiY/ASc3ASEyFh0BITU0NgUVMzWHjg4qDk3UTQ4CFtIOFQIBHRX9qxUIDtCa1P49A+gVHfu0HQNnZAP/jg4OTdRMDyqa0g4IFf2pFB4BFQ7Qm9T9Oh0V+voVHWQyMgAAAAQAAAAABEwEsAAPABkAIwAnAAABBR4BFRMUBi8BByc3JyY2EwcGIi8BJjQ/AQEhMhYdASE1NDYFFTM1AV4CVxQeARUO0JvUm9IOCMNMDyoOjg4OTf76A+gVHfu0HQNnZASwAgEdFf2rFQgO0JrUmtIOFf1QTQ4Ojg4qDk3+WB0V+voVHWQyMgACAAT/7ASwBK8ABQAIAAAlCQERIQkBFQEEsP4d/sb+cQSs/TMCq2cBFP5xAacDHPz55gO5AAAAAAIAAABkBEwEsAAVABkAAAERFAYrAREhESMiJjURNDY7AREhETMHIzUzBEwdFZb9RJYVHR0V+gH0ZMhkZAPo/K4VHQGQ/nAdFQPoFB7+1AEsyMgAAAMAAABFBN0EsAAWABoALwAAAQcBJyYiDwEhESMiJjURNDY7AREhETMHIzUzARcWFAcBBiIvASY0PwE2Mh8BATYyBEwC/tVfCRkJlf7IlhUdHRX6AfRkyGRkAbBqBwf+XAgUCMoICGoHFQdPASkHFQPolf7VXwkJk/5wHRUD6BQe/tQBLMjI/c5qBxUH/lsHB8sHFQdqCAhPASkHAAMAAAANBQcEsAAWABoAPgAAAREHJy4BBwEhESMiJjURNDY7AREhETMHIzUzARcWFA8BFxYUDwEGIi8BBwYiLwEmND8BJyY0PwE2Mh8BNzYyBExnhg8lEP72/reWFR0dFfoB9GTIZGQB9kYPD4ODDw9GDykPg4MPKQ9GDw+Dgw8PRg8pD4ODDykD6P7zZ4YPAw7+9v5wHRUD6BQe/tQBLMjI/YxGDykPg4MPKQ9GDw+Dgw8PRg8pD4ODDykPRg8Pg4MPAAADAAAAFQSXBLAAFQAZAC8AAAERISIGHQEhESMiJjURNDY7AREhETMHIzUzEzMyFh0BMzIWDwEGIi8BJjY7ATU0NgRM/qIVHf4MlhUdHRX6AfRkyGRklmQVHZYVCA7mDioO5g4IFZYdA+j+1B0Vlv5wHRUD6BQe/tQBLMjI/agdFfoVDuYODuYOFfoVHQAAAAADAAAAAASXBLAAFQAZAC8AAAERJyYiBwEhESMiJjURNDY7AREhETMHIzUzExcWBisBFRQGKwEiJj0BIyImPwE2MgRMpQ4qDv75/m6WFR0dFfoB9GTIZGTr5g4IFZYdFWQVHZYVCA7mDioD6P5wpQ8P/vf+cB0VA+gUHv7UASzIyP2F5Q8V+hQeHhT6FQ/lDwADAAAAyASwBEwACQATABcAABMhMhYdASE1NDYBERQGIyEiJjURExUhNTIETBUd+1AdBJMdFfu0FR1kAZAETB0VlpYVHf7U/doVHR0VAib+1MjIAAAGAAMAfQStBJcADwAZAB0ALQAxADsAAAEXFhQPAQYmPQEhNSE1NDYBIyImPQE0NjsBFyM1MwE3NhYdASEVIRUUBi8BJjQFIzU7AjIWHQEUBisBA6f4Dg74DhX+cAGQFf0vMhUdHRUyyGRk/oL3DhUBkP5wFQ73DwOBZGRkMxQdHRQzBI3mDioO5g4IFZbIlhUI/oUdFWQVHcjI/cvmDggVlsiWFQgO5g4qecgdFWQVHQAAAAACAGQAAASwBLAAFgBRAAABJTYWFREUBisBIiY1ES4ENRE0NiUyFh8BERQOAg8BERQGKwEiJjURLgQ1ETQ+AzMyFh8BETMRPAE+AjMyFh8BETMRND4DA14BFBklHRXIFR0EDiIaFiX+4RYZAgEVHR0LCh0VyBUdBA4iGhYBBwoTDRQZAgNkBQkVDxcZAQFkAQUJFQQxdBIUH/uuFR0dFQGNAQgbHzUeAWcfRJEZDA3+Phw/MSkLC/5BFR0dFQG/BA8uLkAcAcICBxENCxkMDf6iAV4CBxENCxkMDf6iAV4CBxENCwABAGQAAASwBEwAMwAAARUiDgMVERQWHwEVITUyNjURIREUFjMVITUyPgM1ETQmLwE1IRUiBhURIRE0JiM1BLAEDiIaFjIZGf5wSxn+DBlL/nAEDiIaFjIZGQGQSxkB9BlLBEw4AQUKFA78iBYZAQI4OA0lAYr+diUNODgBBQoUDgN4FhkBAjg4DSX+dgGKJQ04AAAABgAAAAAETARMAAwAHAAgACQAKAA0AAABITIWHQEjBTUnITchBSEyFhURFAYjISImNRE0NhcVITUBBTUlBRUhNQUVFAYjIQchJyE3MwKjAXcVHWn+2cj+cGQBd/4lASwpOzsp/tQpOzspASwCvP5wAZD8GAEsArwdFf6JZP6JZAGQyGkD6B0VlmJiyGTIOyn+DCk7OykB9Ck7ZMjI/veFo4XGyMhm+BUdZGTIAAEAEAAQBJ8EnwAmAAATNzYWHwEWBg8BHgEXNz4BHwEeAQ8BBiIuBicuBTcRohEuDosOBhF3ZvyNdxEzE8ATBxGjAw0uMUxPZWZ4O0p3RjITCwED76IRBhPCFDERdo78ZXYRBA6IDi8RogEECBUgNUNjO0qZfHNVQBAAAAACAAAAAASwBEwAIwBBAAAAMh4EHwEVFAYvAS4BPQEmIAcVFAYPAQYmPQE+BRIyHgIfARUBHgEdARQGIyEiJj0BNDY3ATU0PgIB/LimdWQ/LAkJHRTKFB2N/sKNHRTKFB0DDTE7ZnTKcFImFgEBAW0OFR0V+7QVHRUOAW0CFiYETBUhKCgiCgrIFRgDIgMiFZIYGJIVIgMiAxgVyAQNJyQrIP7kExwcCgoy/tEPMhTUFR0dFdQUMg8BLzIEDSEZAAADAAAAAASwBLAADQAdACcAAAEHIScRMxUzNTMVMzUzASEyFhQGKwEXITcjIiY0NgMhMhYdASE1NDYETMj9qMjIyMjIyPyuArwVHR0VDIn8SokMFR0dswRMFR37UB0CvMjIAfTIyMjI/OAdKh1kZB0qHf7UHRUyMhUdAAAAAwBkAAAEsARMAAkAEwAdAAABIyIGFREhETQmASMiBhURIRE0JgEhETQ2OwEyFhUCvGQpOwEsOwFnZCk7ASw7/Rv+1DspZCk7BEw7KfwYA+gpO/7UOyn9RAK8KTv84AGQKTs7KQAAAAAF/5wAAASwBEwADwATAB8AJQApAAATITIWFREUBiMhIiY1ETQ2FxEhEQUjFTMRITUzNSMRIQURByMRMwcRMxHIArx8sLB8/UR8sLAYA4T+DMjI/tTIyAEsAZBkyMhkZARMsHz+DHywsHwB9HywyP1EArzIZP7UZGQBLGT+1GQB9GT+1AEsAAAABf+cAAAEsARMAA8AEwAfACUAKQAAEyEyFhURFAYjISImNRE0NhcRIREBIzUjFSMRMxUzNTMFEQcjETMHETMRyAK8fLCwfP1EfLCwGAOE/gxkZGRkZGQBkGTIyGRkBEywfP4MfLCwfAH0fLDI/UQCvP2oyMgB9MjIZP7UZAH0ZP7UASwABP+cAAAEsARMAA8AEwAbACMAABMhMhYVERQGIyEiJjURNDYXESERBSMRMxUhESEFIxEzFSERIcgCvHywsHz9RHywsBgDhP4MyMj+1AEsAZDIyP7UASwETLB8/gx8sLB8AfR8sMj9RAK8yP7UZAH0ZP7UZAH0AAAABP+cAAAEsARMAA8AEwAWABkAABMhMhYVERQGIyEiJjURNDYXESERAS0BDQERyAK8fLCwfP1EfLCwGAOE/gz+1AEsAZD+1ARMsHz+DHywsHwB9HywyP1EArz+DJaWlpYBLAAAAAX/nAAABLAETAAPABMAFwAgACkAABMhMhYVERQGIyEiJjURNDYXESERAyERIQcjIgYVFBY7AQERMzI2NTQmI8gCvHywsHz9RHywsBgDhGT9RAK8ZIImOTYpgv4Mgik2OSYETLB8/gx8sLB8AfR8sMj9RAK8/agB9GRWQUFUASz+1FRBQVYAAAAF/5wAAASwBEwADwATAB8AJQApAAATITIWFREUBiMhIiY1ETQ2FxEhEQUjFTMRITUzNSMRIQEjESM1MwMjNTPIArx8sLB8/UR8sLAYA4T+DMjI/tTIyAEsAZBkZMjIZGQETLB8/gx8sLB8AfR8sMj9RAK8yGT+1GRkASz+DAGQZP4MZAAG/5wAAASwBEwADwATABkAHwAjACcAABMhMhYVERQGIyEiJjURNDYXESERBTMRIREzASMRIzUzBRUzNQEjNTPIArx8sLB8/UR8sLAYA4T9RMj+1GQCWGRkyP2oZAEsZGQETLB8/gx8sLB8AfR8sMj9RAK8yP5wAfT+DAGQZMjIyP7UZAAF/5wAAASwBEwADwATABwAIgAmAAATITIWFREUBiMhIiY1ETQ2FxEhEQEHIzU3NSM1IQEjESM1MwMjNTPIArx8sLB8/UR8sLAYA4T+DMdkx8gBLAGQZGTIx2RkBEywfP4MfLCwfAH0fLDI/UQCvP5wyDLIlmT+DAGQZP4MZAAAAAMACQAJBKcEpwAPABsAJQAAADIeAhQOAiIuAjQ+AQQiDgEUHgEyPgE0JgchFSEVISc1NyEB4PDbnl5entvw255eXp4BxeTCcXHC5MJxcWz+1AEs/tRkZAEsBKdentvw255eXp7b8NueTHHC5MJxccLkwtDIZGTIZAAAAAAEAAkACQSnBKcADwAbACcAKwAAADIeAhQOAiIuAjQ+AQQiDgEUHgEyPgE0JgcVBxcVIycjFSMRIQcVMzUB4PDbnl5entvw255eXp4BxeTCcXHC5MJxcWwyZGRklmQBLMjIBKdentvw255eXp7b8NueTHHC5MJxccLkwtBkMmQyZGQBkGRkZAAAAv/y/50EwgRBACAANgAAATIWFzYzMhYUBisBNTQmIyEiBh0BIyImNTQ2NyY1ND4BEzMyFhURMzIWDwEGIi8BJjY7ARE0NgH3brUsLC54qqp4gB0V/tQVHd5QcFZBAmKqepYKD4kVCg3fDSYN3w0KFYkPBEF3YQ6t8a36FR0dFfpzT0VrDhMSZKpi/bMPCv7tFxD0EBD0EBcBEwoPAAAAAAL/8v+cBMMEQQAcADMAAAEyFhc2MzIWFxQGBwEmIgcBIyImNTQ2NyY1ND4BExcWBisBERQGKwEiJjURIyImNzY3NjIB9m62LCsueaoBeFr+hg0lDf6DCU9xVkECYqnm3w0KFYkPCpYKD4kVCg3HGBMZBEF3YQ+teGOkHAFoEBD+k3NPRWsOExNkqWP9kuQQF/7tCg8PCgETFxDMGBMAAAABAGQAAARMBG0AGAAAJTUhATMBMwkBMwEzASEVIyIGHQEhNTQmIwK8AZD+8qr+8qr+1P7Uqv7yqv7yAZAyFR0BkB0VZGQBLAEsAU3+s/7U/tRkHRUyMhUdAAAAAAEAeQAABDcEmwAvAAABMhYXHgEVFAYHFhUUBiMiJxUyFh0BITU0NjM1BiMiJjU0Ny4BNTQ2MzIXNCY1NDYCWF6TGll7OzIJaUo3LRUd/tQdFS03SmkELzlpSgUSAqMEm3FZBoNaPWcfHRpKaR77HRUyMhUd+x5pShIUFVg1SmkCAhAFdKMAAAAGACcAFASJBJwAEQAqAEIASgBiAHsAAAEWEgIHDgEiJicmAhI3PgEyFgUiBw4BBwYWHwEWMzI3Njc2Nz4BLwEmJyYXIgcOAQcGFh8BFjMyNz4BNz4BLwEmJyYWJiIGFBYyNjciBw4BBw4BHwEWFxYzMjc+ATc2Ji8BJhciBwYHBgcOAR8BFhcWMzI3PgE3NiYvASYD8m9PT29T2dzZU29PT29T2dzZ/j0EBHmxIgQNDCQDBBcGG0dGYAsNAwkDCwccBAVQdRgEDA0iBAQWBhJROQwMAwkDCwf5Y4xjY4xjVhYGElE6CwwDCQMLBwgEBVB1GAQNDCIEjRcGG0dGYAsNAwkDCwcIBAR5sSIEDQwkAwPyb/7V/tVvU1dXU28BKwErb1NXVxwBIrF5DBYDCQEWYEZHGwMVDCMNBgSRAhh1UA0WAwkBFTpREgMVCyMMBwT6Y2OMY2MVFTpREQQVCyMMBwQCGHVQDRYDCQEkFmBGRxsDFQwjDQYEASKxeQwWAwkBAAAABQBkAAAD6ASwAAwADwAWABwAIgAAASERIzUhFSERNDYzIQEjNQMzByczNTMDISImNREFFRQGKwECvAEstP6s/oQPCgI/ASzIZKLU1KJktP51Cg8DhA8KwwMg/oTIyALzCg/+1Mj84NTUyP4MDwoBi8jDCg8AAAAABQBkAAAD6ASwAAkADAATABoAIQAAASERCQERNDYzIQEjNRMjFSM1IzcDISImPQEpARUUBisBNQK8ASz+ov3aDwoCPwEsyD6iZKLUqv6dCg8BfAIIDwqbAyD9+AFe/doERwoP/tTI/HzIyNT+ZA8KNzcKD1AAAAAAAwAAAAAEsAP0AAgAGQAfAAABIxUzFyERIzcFMzIeAhUhFSEDETM0PgIBMwMhASEEiqJkZP7UotT9EsgbGiEOASz9qMhkDiEaAnPw8PzgASwB9AMgyGQBLNTUBBErJGT+ogHCJCsRBP5w/nAB9AAAAAMAAAAABEwETAAZADIAOQAAATMyFh0BMzIWHQEUBiMhIiY9ATQ2OwE1NDYFNTIWFREUBiMhIic3ARE0NjMVFBYzITI2AQc1IzUzNQKKZBUdMhUdHRX+1BUdHRUyHQFzKTs7Kf2oARP2/ro7KVg+ASw+WP201MjIBEwdFTIdFWQVHR0VZBUdMhUd+pY7KfzgKTsE9gFGAUQpO5Y+WFj95tSiZKIAAwBkAAAEvARMABkANgA9AAABMzIWHQEzMhYdARQGIyEiJj0BNDY7ATU0NgU1MhYVESMRMxQOAiMhIiY1ETQ2MxUUFjMhMjYBBzUjNTM1AcJkFR0yFR0dFf7UFR0dFTIdAXMpO8jIDiEaG/2oKTs7KVg+ASw+WAGc1MjIBEwdFTIdFWQVHR0VZBUdMhUd+pY7Kf4M/tQkKxEEOykDICk7lj5YWP3m1KJkogAAAAP/ogAABRYE1AALABsAHwAACQEWBiMhIiY3ATYyEyMiBhcTHgE7ATI2NxM2JgMVMzUCkgJ9FyAs+wQsIBcCfRZARNAUGAQ6BCMUNhQjBDoEGODIBK37sCY3NyYEUCf+TB0U/tIUHR0UAS4UHf4MZGQAAAAACQAAAAAETARMAA8AHwAvAD8ATwBfAG8AfwCPAAABMzIWHQEUBisBIiY9ATQ2EzMyFh0BFAYrASImPQE0NiEzMhYdARQGKwEiJj0BNDYBMzIWHQEUBisBIiY9ATQ2ITMyFh0BFAYrASImPQE0NiEzMhYdARQGKwEiJj0BNDYBMzIWHQEUBisBIiY9ATQ2ITMyFh0BFAYrASImPQE0NiEzMhYdARQGKwEiJj0BNDYBqfoKDw8K+goPDwr6Cg8PCvoKDw8BmvoKDw8K+goPD/zq+goPDwr6Cg8PAZr6Cg8PCvoKDw8BmvoKDw8K+goPD/zq+goPDwr6Cg8PAZr6Cg8PCvoKDw8BmvoKDw8K+goPDwRMDwqWCg8PCpYKD/7UDwqWCg8PCpYKDw8KlgoPDwqWCg/+1A8KlgoPDwqWCg8PCpYKDw8KlgoPDwqWCg8PCpYKD/7UDwqWCg8PCpYKDw8KlgoPDwqWCg8PCpYKDw8KlgoPAAAAAwAAAAAEsAUUABkAKQAzAAABMxUjFSEyFg8BBgchJi8BJjYzITUjNTM1MwEhMhYUBisBFyE3IyImNDYDITIWHQEhNTQ2ArxkZAFePjEcQiko/PwoKUIcMT4BXmRkyP4+ArwVHR0VDIn8SooNFR0dswRMFR37UB0EsMhkTzeEUzMzU4Q3T2TIZPx8HSodZGQdKh3+1B0VMjIVHQAABAAAAAAEsAUUAAUAGQArADUAAAAyFhUjNAchFhUUByEyFg8BIScmNjMhJjU0AyEyFhQGKwEVBSElNSMiJjQ2AyEyFh0BITU0NgIwUDnCPAE6EgMBSCkHIq/9WrIiCikBSAOvArwVHR0VlgET/EoBE5YVHR2zBEwVHftQHQUUOykpjSUmCBEhFpGRFiERCCb+lR0qHcjIyMgdKh39qB0VMjIVHQAEAAAAAASwBJ0ABwAUACQALgAAADIWFAYiJjQTMzIWFRQXITY1NDYzASEyFhQGKwEXITcjIiY0NgMhMhYdASE1NDYCDZZqapZqty4iKyf+vCcrI/7NArwVHR0VDYr8SokMFR0dswRMFR37UB0EnWqWamqW/us5Okxra0w6Of5yHSodZGQdKh3+1B0VMjIVHQAEAAAAAASwBRQADwAcACwANgAAATIeARUUBiImNTQ3FzcnNhMzMhYVFBchNjU0NjMBITIWFAYrARchNyMiJjQ2AyEyFh0BITU0NgJYL1szb5xvIpBvoyIfLiIrJ/68Jysj/s0CvBUdHRUNivxKiQwVHR2zBEwVHftQHQUUa4s2Tm9vTj5Rj2+jGv4KOTpMa2tMOjn+ch0qHWRkHSod/tQdFTIyFR0AAAADAAAAAASwBRIAEgAiACwAAAEFFSEUHgMXIS4BNTQ+AjcBITIWFAYrARchNyMiJjQ2AyEyFh0BITU0NgJYASz+1CU/P00T/e48PUJtj0r+ogK8FR0dFQ2K/EqJDBUdHbMETBUd+1AdBLChizlmUT9IGVO9VFShdksE/H4dKh1kZB0qHf7UHRUyMhUdAAIAyAAAA+gFFAAPACkAAAAyFh0BHgEdASE1NDY3NTQDITIWFyMVMxUjFTMVIxUzFAYjISImNRE0NgIvUjsuNv5wNi5kAZA2XBqsyMjIyMh1U/5wU3V1BRQ7KU4aXDYyMjZcGk4p/kc2LmRkZGRkU3V1UwGQU3UAAAMAZP//BEwETAAPAC8AMwAAEyEyFhURFAYjISImNRE0NgMhMhYdARQGIyEXFhQGIi8BIQcGIiY0PwEhIiY9ATQ2BQchJ5YDhBUdHRX8fBUdHQQDtgoPDwr+5eANGiUNWP30Vw0mGg3g/t8KDw8BqmQBRGQETB0V/gwVHR0VAfQVHf1EDwoyCg/gDSUbDVhYDRslDeAPCjIKD2RkZAAAAAAEAAAAAASwBEwAGQAjAC0ANwAAEyEyFh0BIzQmKwEiBhUjNCYrASIGFSM1NDYDITIWFREhETQ2ExUUBisBIiY9ASEVFAYrASImPQHIAyBTdWQ7KfopO2Q7KfopO2R1EQPoKTv7UDvxHRVkFR0D6B0VZBUdBEx1U8gpOzspKTs7KchTdf4MOyn+1AEsKTv+DDIVHR0VMjIVHR0VMgADAAEAAASpBKwADQARABsAAAkBFhQPASEBJjQ3ATYyCQMDITIWHQEhNTQ2AeACqh8fg/4f/fsgIAEnH1n+rAFWAS/+q6IDIBUd/HwdBI39VR9ZH4MCBh9ZHwEoH/5u/qoBMAFV/BsdFTIyFR0AAAAAAgCPAAAEIQSwABcALwAAAQMuASMhIgYHAwYWMyEVFBYyNj0BMzI2AyE1NDY7ATU0NjsBETMRMzIWHQEzMhYVBCG9CCcV/nAVJwi9CBMVAnEdKh19FROo/a0dFTIdFTDILxUdMhUdAocB+hMcHBP+BhMclhUdHRWWHP2MMhUdMhUdASz+1B0VMh0VAAAEAAAAAASwBLAADQAQAB8AIgAAASERFAYjIREBNTQ2MyEBIzUBIREUBiMhIiY1ETQ2MyEBIzUDhAEsDwr+if7UDwoBdwEsyP2oASwPCv12Cg8PCgF3ASzIAyD9wQoPAk8BLFQKD/7UyP4M/cEKDw8KA7YKD/7UyAAC/5wAZAUUBEcARgBWAAABMzIeAhcWFxY2NzYnJjc+ARYXFgcOASsBDgEPAQ4BKwEiJj8BBisBIicHDgErASImPwEmLwEuAT0BNDY7ATY3JyY2OwE2BSMiBh0BFBY7ATI2PQE0JgHkw0uOakkMEhEfQwoKGRMKBQ8XDCkCA1Y9Pgc4HCcDIhVkFRgDDDEqwxgpCwMiFWQVGAMaVCyfExwdFXwLLW8QBxXLdAFF+goPDwr6Cg8PBEdBa4pJDgYKISAiJRsQCAYIDCw9P1c3fCbqFB0dFEYOCEAUHR0UnUplNQcmFTIVHVdPXw4TZV8PCjIKDw8KMgoPAAb/nP/mBRQEfgAJACQANAA8AFIAYgAAASU2Fh8BFgYPASUzMhYfASEyFh0BFAYHBQYmJyYjISImPQE0NhcjIgYdARQ7ATI2NTQmJyYEIgYUFjI2NAE3PgEeARceAT8BFxYGDwEGJi8BJjYlBwYfAR4BPwE2Jy4BJy4BAoEBpxMuDiAOAxCL/CtqQ0geZgM3FR0cE/0fFyIJKjr+1D5YWLlQExIqhhALIAsSAYBALS1ALf4PmBIgHhMQHC0aPzANITNQL3wpgigJASlmHyElDR0RPRMFAhQHCxADhPcICxAmDyoNeMgiNtQdFTIVJgeEBBQPQ1g+yD5YrBwVODMQEAtEERzJLUAtLUD+24ITChESEyMgAwWzPUkrRSgJL5cvfRxYGyYrDwkLNRAhFEgJDAQAAAAAAwBkAAAEOQSwAFEAYABvAAABMzIWHQEeARcWDgIPATIeBRUUDgUjFRQGKwEiJj0BIxUUBisBIiY9ASMiJj0BNDY7AREjIiY9ATQ2OwE1NDY7ATIWHQEzNTQ2AxUhMj4CNTc0LgMjARUhMj4CNTc0LgMjAnGWCg9PaAEBIC4uEBEGEjQwOiodFyI2LUAjGg8KlgoPZA8KlgoPrwoPDwpLSwoPDwqvDwqWCg9kD9cBBxwpEwsBAQsTKRz++QFrHCkTCwEBCxMpHASwDwptIW1KLk0tHwYGAw8UKDJOLTtdPCoVCwJLCg8PCktLCg8PCksPCpYKDwJYDwqWCg9LCg8PCktLCg/+1MgVHR0LCgQOIhoW/nDIFR0dCwoEDiIaFgAAAwAEAAIEsASuABcAKQAsAAATITIWFREUBg8BDgEjISImJy4CNRE0NgQiDgQPARchNy4FAyMT1AMMVnokEhIdgVL9xFKCHAgYKHoCIIx9VkcrHQYGnAIwnAIIIClJVSGdwwSuelb+YDO3QkJXd3ZYHFrFMwGgVnqZFyYtLSUMDPPzBQ8sKDEj/sIBBQACAMgAAAOEBRQADwAZAAABMzIWFREUBiMhIiY1ETQ2ARUUBisBIiY9AQHblmesVCn+PilUrAFINhWWFTYFFKxn/gwpVFQpAfRnrPwY4RU2NhXhAAACAMgAAAOEBRQADwAZAAABMxQWMxEUBiMhIiY1ETQ2ARUUBisBIiY9AQHbYLOWVCn+PilUrAFINhWWFTYFFJaz/kIpVFQpAfRnrPwY4RU2NhXhAAACAAAAFAUOBBoAFAAaAAAJASUHFRcVJwc1NzU0Jj4CPwEnCQEFJTUFJQUO/YL+hk5klpZkAQEBBQQvkwKCAVz+ov6iAV4BXgL//uWqPOCWx5SVyJb6BA0GCgYDKEEBG/1ipqaTpaUAAAMAZAH0BLADIAAHAA8AFwAAEjIWFAYiJjQkMhYUBiImNCQyFhQGIiY0vHxYWHxYAeh8WFh8WAHofFhYfFgDIFh8WFh8WFh8WFh8WFh8WFh8AAAAAAMBkAAAArwETAAHAA8AFwAAADIWFAYiJjQSMhYUBiImNBIyFhQGIiY0Aeh8WFh8WFh8WFh8WFh8WFh8WARMWHxYWHz+yFh8WFh8/shYfFhYfAAAAAMAZABkBEwETAAPAB8ALwAAEyEyFh0BFAYjISImPQE0NhMhMhYdARQGIyEiJj0BNDYTITIWHQEUBiMhIiY9ATQ2fQO2Cg8PCvxKCg8PCgO2Cg8PCvxKCg8PCgO2Cg8PCvxKCg8PBEwPCpYKDw8KlgoP/nAPCpYKDw8KlgoP/nAPCpYKDw8KlgoPAAAABAAAAAAEsASwAA8AHwAvADMAAAEhMhYVERQGIyEiJjURNDYFISIGFREUFjMhMjY1ETQmBSEyFhURFAYjISImNRE0NhcVITUBXgH0ory7o/4Mpbm5Asv9qCk7OykCWCk7O/2xAfQVHR0V/gwVHR1HAZAEsLuj/gylubmlAfSlucg7Kf2oKTs7KQJYKTtkHRX+1BUdHRUBLBUdZMjIAAAAAAEAZABkBLAETAA7AAATITIWFAYrARUzMhYUBisBFTMyFhQGKwEVMzIWFAYjISImNDY7ATUjIiY0NjsBNSMiJjQ2OwE1IyImNDaWA+gVHR0VMjIVHR0VMjIVHR0VMjIVHR0V/BgVHR0VMjIVHR0VMjIVHR0VMjIVHR0ETB0qHcgdKh3IHSodyB0qHR0qHcgdKh3IHSodyB0qHQAAAAYBLAAFA+gEowAHAA0AEwAZAB8AKgAAAR4BBgcuATYBMhYVIiYlFAYjNDYBMhYVIiYlFAYjNDYDFRQGIiY9ARYzMgKKVz8/V1c/P/75fLB8sAK8sHyw/cB8sHywArywfLCwHSodKAMRBKNDsrJCQrKy/sCwfLB8fLB8sP7UsHywfHywfLD+05AVHR0VjgQAAAH/tQDIBJQDgQBCAAABNzYXAR4BBw4BKwEyFRQOBCsBIhE0NyYiBxYVECsBIi4DNTQzIyImJyY2NwE2HwEeAQ4BLwEHIScHBi4BNgLpRRkUASoLCAYFGg8IAQQNGyc/KZK4ChRUFQu4jjBJJxkHAgcPGQYGCAsBKhQaTBQVCiMUM7YDe7YsFCMKFgNuEwYS/tkLHw8OEw0dNkY4MhwBIBgXBAQYF/7gKjxTQyMNEw4PHwoBKBIHEwUjKBYGDMHBDAUWKCMAAAAAAgAAAAAEsASwACUAQwAAASM0LgUrAREUFh8BFSE1Mj4DNREjIg4FFSMRIQEjNC4DKwERFBYXMxUjNTI1ESMiDgMVIzUhBLAyCAsZEyYYGcgyGRn+cAQOIhoWyBkYJhMZCwgyA+j9RBkIChgQEWQZDQzIMmQREBgKCBkB9AOEFSAVDggDAfyuFhkBAmRkAQUJFQ4DUgEDCA4VIBUBLP0SDxMKBQH+VwsNATIyGQGpAQUKEw+WAAAAAAMAAAAABEwErgAdACAAMAAAATUiJy4BLwEBIwEGBw4BDwEVITUiJj8BIRcWBiMVARsBARUUBiMhIiY9ATQ2MyEyFgPoGR4OFgUE/t9F/tQSFQkfCwsBETE7EkUBJT0NISf+7IZ5AbEdFfwYFR0dFQPoFR0BLDIgDiIKCwLr/Q4jFQkTBQUyMisusKYiQTIBhwFW/qr942QVHR0VZBUdHQADAAAAAASwBLAADwBHAEoAABMhMhYVERQGIyEiJjURNDYFIyIHAQYHBgcGHQEUFjMhMjY9ATQmIyInJj8BIRcWBwYjIgYdARQWMyEyNj0BNCYnIicmJyMBJhMjEzIETBUdHRX7tBUdHQJGRg0F/tUREhImDAsJAREIDAwINxAKCj8BCjkLEQwYCAwMCAE5CAwLCBEZGQ8B/uAFDsVnBLAdFfu0FR0dFQRMFR1SDP0PIBMSEAUNMggMDAgyCAwXDhmjmR8YEQwIMggMDAgyBwwBGRskAuwM/gUBCAAABAAAAAAEsASwAAMAEwAjACcAAAEhNSEFITIWFREUBiMhIiY1ETQ2KQEyFhURFAYjISImNRE0NhcRIREEsPtQBLD7ggGQFR0dFf5wFR0dAm0BkBUdHRX+cBUdHUcBLARMZMgdFfx8FR0dFQOEFR0dFf5wFR0dFQGQFR1k/tQBLAAEAAAAAASwBLAADwAfACMAJwAAEyEyFhURFAYjISImNRE0NgEhMhYVERQGIyEiJjURNDYXESEREyE1ITIBkBUdHRX+cBUdHQJtAZAVHR0V/nAVHR1HASzI+1AEsASwHRX8fBUdHRUDhBUd/gwdFf5wFR0dFQGQFR1k/tQBLP2oZAAAAAACAAAAZASwA+gAJwArAAATITIWFREzNTQ2MyEyFh0BMxUjFRQGIyEiJj0BIxEUBiMhIiY1ETQ2AREhETIBkBUdZB0VAZAVHWRkHRX+cBUdZB0V/nAVHR0CnwEsA+gdFf6ilhUdHRWWZJYVHR0Vlv6iFR0dFQMgFR3+1P7UASwAAAQAAAAABLAEsAADABMAFwAnAAAzIxEzFyEyFhURFAYjISImNRE0NhcRIREBITIWFREUBiMhIiY1ETQ2ZGRklgGQFR0dFf5wFR0dRwEs/qIDhBUdHRX8fBUdHQSwZB0V/nAVHR0VAZAVHWT+1AEs/gwdFf5wFR0dFQGQFR0AAAAAAgBkAAAETASwACcAKwAAATMyFhURFAYrARUhMhYVERQGIyEiJjURNDYzITUjIiY1ETQ2OwE1MwcRIRECWJYVHR0VlgHCFR0dFfx8FR0dFQFelhUdHRWWZMgBLARMHRX+cBUdZB0V/nAVHR0VAZAVHWQdFQGQFR1kyP7UASwAAAAEAAAAAASwBLAAAwATABcAJwAAISMRMwUhMhYVERQGIyEiJjURNDYXESERASEyFhURFAYjISImNRE0NgSwZGT9dgGQFR0dFf5wFR0dRwEs/K4DhBUdHRX8fBUdHQSwZB0V/nAVHR0VAZAVHWT+1AEs/gwdFf5wFR0dFQGQFR0AAAEBLAAwA28EgAAPAAAJAQYjIiY1ETQ2MzIXARYUA2H+EhcSDhAQDhIXAe4OAjX+EhcbGQPoGRsX/hIOKgAAAAABAUEAMgOEBH4ACwAACQE2FhURFAYnASY0AU8B7h0qKh3+Eg4CewHuHREp/BgpER0B7g4qAAAAAAEAMgFBBH4DhAALAAATITIWBwEGIicBJjZkA+gpER3+Eg4qDv4SHREDhCod/hIODgHuHSoAAAAAAQAyASwEfgNvAAsAAAkBFgYjISImNwE2MgJ7Ae4dESn8GCkRHQHuDioDYf4SHSoqHQHuDgAAAAACAAgAAASwBCgABgAKAAABFQE1LQE1ASE1IQK8/UwBnf5jBKj84AMgAuW2/r3dwcHd+9jIAAAAAAIAAABkBLAEsAALADEAAAEjFTMVIREzNSM1IQEzND4FOwERFAYPARUhNSIuAzURMzIeBRUzESEEsMjI/tTIyAEs+1AyCAsZEyYYGWQyGRkBkAQOIhoWZBkYJhMZCwgy/OADhGRkASxkZP4MFSAVDggDAf3aFhkBAmRkAQUJFQ4CJgEDCA4VIBUBLAAAAgAAAAAETAPoACUAMQAAASM0LgUrAREUFh8BFSE1Mj4DNREjIg4FFSMRIQEjFTMVIREzNSM1IQMgMggLGRMmGBlkMhkZ/nAEDiIaFmQZGCYTGQsIMgMgASzIyP7UyMgBLAK8FSAVDggDAf3aFhkCAWRkAQUJFQ4CJgEDCA4VIBUBLPzgZGQBLGRkAAABAMgAZgNyBEoAEgAAATMyFgcJARYGKwEiJwEmNDcBNgK9oBAKDP4wAdAMChCgDQr+KQcHAdcKBEoWDP4w/jAMFgkB1wgUCAHXCQAAAQE+AGYD6ARKABIAAAEzMhcBFhQHAQYrASImNwkBJjYBU6ANCgHXBwf+KQoNoBAKDAHQ/jAMCgRKCf4pCBQI/ikJFgwB0AHQDBYAAAEAZgDIBEoDcgASAAAAFh0BFAcBBiInASY9ATQ2FwkBBDQWCf4pCBQI/ikJFgwB0AHQA3cKEKANCv4pBwcB1woNoBAKDP4wAdAAAAABAGYBPgRKA+gAEgAACQEWHQEUBicJAQYmPQE0NwE2MgJqAdcJFgz+MP4wDBYJAdcIFAPh/ikKDaAQCgwB0P4wDAoQoA0KAdcHAAAAAgDZ//kEPQSwAAUAOgAAARQGIzQ2BTMyFh8BNjc+Ah4EBgcOBgcGIiYjIgYiJy4DLwEuAT4EHgEXJyY2A+iwfLD+VmQVJgdPBQsiKFAzRyorDwURAQQSFyozTSwNOkkLDkc3EDlfNyYHBw8GDyUqPjdGMR+TDA0EsHywfLDIHBPCAQIGBwcFDx81S21DBxlLR1xKQhEFBQcHGWt0bCQjP2hJNyATBwMGBcASGAAAAAACAMgAFQOEBLAAFgAaAAATITIWFREUBisBEQcGJjURIyImNRE0NhcVITX6AlgVHR0Vlv8TGpYVHR2rASwEsB0V/nAVHf4MsgkQFQKKHRUBkBUdZGRkAAAAAgDIABkETASwAA4AEgAAEyEyFhURBRElIREjETQ2ARU3NfoC7ic9/UQCWP1EZB8BDWQEsFEs/Ft1A7Z9/BgEARc0/V1kFGQAAQAAAAECTW/DBF9fDzz1AB8EsAAAAADQdnOXAAAAANB2c5f/Uf+cBdwFFAAAAAgAAgAAAAAAAAABAAAFFP+FAAAFFP9R/tQF3AABAAAAAAAAAAAAAAAAAAAAowG4ACgAAAAAAZAAAASwAAAEsABkBLAAAASwAAAEsABwAooAAAUUAAACigAABRQAAAGxAAABRQAAANgAAADYAAAAogAAAQQAAABIAAABBAAAAUUAAASwAGQEsAB7BLAAyASwAMgB9AAABLD/8gSwAAAEsAAABLD/8ASwAAAEsAAOBLAACQSwAGQEsP/TBLD/0wSwAAAEsAAABLAAAASwAAAEsAAABLAAJgSwAG4EsAAXBLAAFwSwABcEsABkBLAAGgSwAGQEsAAMBLAAZASwABcEsP+cBLAAZASwABcEsAAXBLAAAASwABcEsAAXBLAAFwSwAGQEsAAABLAAZASwAAAEsAAABLAAAASwAAAEsAAABLAAAASwAAAEsAAABLAAZASwAMgEsAAABLAAAASwADUEsABkBLAAyASw/7UEsAAhBLAAAASwAAAEsAAABLAAAASwAAAEsP+cBLAAAASwAAAEsAAABLAA2wSwABcEsAB1BLAAAASwAAAEsAAABLAACgSwAMgEsAAABLAAnQSwAMgEsADIBLAAyASwAAAEsP/+BLABLASwAGQEsACIBLABOwSwABcEsAAXBLAAFwSwABcEsAAXBLAAFwSwAAAEsAAXBLAAFwSwABcEsAAXBLAAAASwALcEsAC3BLAAAASwAAAEsABJBLAAFwSwAAAEsAAABLAAXQSw/9wEsP/cBLD/nwSwAGQEsAAABLAAAASwAAAEsABkBLD//wSwAAAEsP9RBLAABgSwAAAEsAAABLABRQSwAAEEsAAABLD/nASwAEoEsAAUBLAAAASwAAAEsAAABLD/nASwAGEEsP/9BLAAFgSwABYEsAAWBLAAFgSwABgEsAAABMQAAASwAGQAAAAAAAD/2ABkADkAyAAAAScAZAAZABkAGQAZABkAGQAZAAAAAAAAAAAAAADZAAAAAAAOAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAMAZABkAAAAEAAAAAAAZP+c/5z/nP+c/5z/nP+c/5wACQAJ//L/8gBkAHkAJwBkAGQAAAAAAGT/ogAAAAAAAAAAAAAAAADIAGQAAAABAI8AAP+c/5wAZAAEAMgAyAAAAGQBkABkAAAAZAEs/7UAAAAAAAAAAAAAAAAAAABkAAABLAFBADIAMgAIAAAAAADIAT4AZgBmANkAyADIAAAAKgAqACoAKgCyAOgA6AFOAU4BTgFOAU4BTgFOAU4BTgFOAU4BTgFOAU4BpAIGAiICfgKGAqwC5ANGA24DjAPEBAgEMgRiBKIE3AVcBboGcgb0ByAHYgfKCB4IYgi+CTYJhAm2Cd4KKApMCpQK4gswC4oLygwIDFgNKg1eDbAODg5oDrQPKA+mD+YQEhBUEJAQqhEqEXYRthIKEjgSfBLAExoTdBPQFCoU1BU8FagVzBYEFjYWYBawFv4XUhemGAIYLhhqGJYYsBjgGP4ZKBloGZQZxBnaGe4aNhpoGrga9hteG7QcMhyUHOIdHB1EHWwdlB28HeYeLh52HsAfYh/SIEYgviEyIXYhuCJAIpYiuCMOIyIjOCN6I8Ij4CQCJDAkXiSWJOIlNCVgJbwmFCZ+JuYnUCe8J/goNChwKKwpoCnMKiYqSiqEKworeiwILGgsuizsLRwtiC30LiguZi6iLtgvDi9GL34vsi/4MD4whDDSMRIxYDGuMegyJDJeMpoy3jMiMz4zaDO2NBg0YDSoNNI1LDWeNeg2PjZ8Ntw3GjdON5I31DgQOEI4hjjIOQo5SjmIOcw6HDpsOpo63jugO9w8GDxQPKI8+D0yPew+Oj6MPtQ/KD9uP6o/+kBIQIBAxkECQX5CGEKoQu5DGENCQ3ZDoEPKRBBEYESuRPZFWkW2RgZGdEa0RvZHNkd2R7ZH9kgWSDJITkhqSIZIzEkSSThJXkmESapKAkouSlIAAQAAARcApwARAAAAAAACAAAAAQABAAAAQAAuAAAAAAAAABAAxgABAAAAAAATABIAAAADAAEECQAAAGoAEgADAAEECQABACgAfAADAAEECQACAA4ApAADAAEECQADAEwAsgADAAEECQAEADgA/gADAAEECQAFAHgBNgADAAEECQAGADYBrgADAAEECQAIABYB5AADAAEECQAJABYB+gADAAEECQALACQCEAADAAEECQAMACQCNAADAAEECQATACQCWAADAAEECQDIABYCfAADAAEECQDJADACkgADAAEECdkDABoCwnd3dy5nbHlwaGljb25zLmNvbQBDAG8AcAB5AHIAaQBnAGgAdAAgAKkAIAAyADAAMQA0ACAAYgB5ACAASgBhAG4AIABLAG8AdgBhAHIAaQBrAC4AIABBAGwAbAAgAHIAaQBnAGgAdABzACAAcgBlAHMAZQByAHYAZQBkAC4ARwBMAFkAUABIAEkAQwBPAE4AUwAgAEgAYQBsAGYAbABpAG4AZwBzAFIAZQBnAHUAbABhAHIAMQAuADAAMAA5ADsAVQBLAFcATgA7AEcATABZAFAASABJAEMATwBOAFMASABhAGwAZgBsAGkAbgBnAHMALQBSAGUAZwB1AGwAYQByAEcATABZAFAASABJAEMATwBOAFMAIABIAGEAbABmAGwAaQBuAGcAcwAgAFIAZQBnAHUAbABhAHIAVgBlAHIAcwBpAG8AbgAgADEALgAwADAAOQA7AFAAUwAgADAAMAAxAC4AMAAwADkAOwBoAG8AdABjAG8AbgB2ACAAMQAuADAALgA3ADAAOwBtAGEAawBlAG8AdABmAC4AbABpAGIAMgAuADUALgA1ADgAMwAyADkARwBMAFkAUABIAEkAQwBPAE4AUwBIAGEAbABmAGwAaQBuAGcAcwAtAFIAZQBnAHUAbABhAHIASgBhAG4AIABLAG8AdgBhAHIAaQBrAEoAYQBuACAASwBvAHYAYQByAGkAawB3AHcAdwAuAGcAbAB5AHAAaABpAGMAbwBuAHMALgBjAG8AbQB3AHcAdwAuAGcAbAB5AHAAaABpAGMAbwBuAHMALgBjAG8AbQB3AHcAdwAuAGcAbAB5AHAAaABpAGMAbwBuAHMALgBjAG8AbQBXAGUAYgBmAG8AbgB0ACAAMQAuADAAVwBlAGQAIABPAGMAdAAgADIAOQAgADAANgA6ADMANgA6ADAANwAgADIAMAAxADQARgBvAG4AdAAgAFMAcQB1AGkAcgByAGUAbAAAAAIAAAAAAAD/tQAyAAAAAAAAAAAAAAAAAAAAAAAAAAABFwAAAQIBAwADAA0ADgEEAJYBBQEGAQcBCAEJAQoBCwEMAQ0BDgEPARABEQESARMA7wEUARUBFgEXARgBGQEaARsBHAEdAR4BHwEgASEBIgEjASQBJQEmAScBKAEpASoBKwEsAS0BLgEvATABMQEyATMBNAE1ATYBNwE4ATkBOgE7ATwBPQE+AT8BQAFBAUIBQwFEAUUBRgFHAUgBSQFKAUsBTAFNAU4BTwFQAVEBUgFTAVQBVQFWAVcBWAFZAVoBWwFcAV0BXgFfAWABYQFiAWMBZAFlAWYBZwFoAWkBagFrAWwBbQFuAW8BcAFxAXIBcwF0AXUBdgF3AXgBeQF6AXsBfAF9AX4BfwGAAYEBggGDAYQBhQGGAYcBiAGJAYoBiwGMAY0BjgGPAZABkQGSAZMBlAGVAZYBlwGYAZkBmgGbAZwBnQGeAZ8BoAGhAaIBowGkAaUBpgGnAagBqQGqAasBrAGtAa4BrwGwAbEBsgGzAbQBtQG2AbcBuAG5AboBuwG8Ab0BvgG/AcABwQHCAcMBxAHFAcYBxwHIAckBygHLAcwBzQHOAc8B0AHRAdIB0wHUAdUB1gHXAdgB2QHaAdsB3AHdAd4B3wHgAeEB4gHjAeQB5QHmAecB6AHpAeoB6wHsAe0B7gHvAfAB8QHyAfMB9AH1AfYB9wH4AfkB+gH7AfwB/QH+Af8CAAIBAgICAwIEAgUCBgIHAggCCQIKAgsCDAINAg4CDwIQAhECEgZnbHlwaDEGZ2x5cGgyB3VuaTAwQTAHdW5pMjAwMAd1bmkyMDAxB3VuaTIwMDIHdW5pMjAwMwd1bmkyMDA0B3VuaTIwMDUHdW5pMjAwNgd1bmkyMDA3B3VuaTIwMDgHdW5pMjAwOQd1bmkyMDBBB3VuaTIwMkYHdW5pMjA1RgRFdXJvB3VuaTIwQkQHdW5pMjMxQgd1bmkyNUZDB3VuaTI2MDEHdW5pMjZGQQd1bmkyNzA5B3VuaTI3MEYHdW5pRTAwMQd1bmlFMDAyB3VuaUUwMDMHdW5pRTAwNQd1bmlFMDA2B3VuaUUwMDcHdW5pRTAwOAd1bmlFMDA5B3VuaUUwMTAHdW5pRTAxMQd1bmlFMDEyB3VuaUUwMTMHdW5pRTAxNAd1bmlFMDE1B3VuaUUwMTYHdW5pRTAxNwd1bmlFMDE4B3VuaUUwMTkHdW5pRTAyMAd1bmlFMDIxB3VuaUUwMjIHdW5pRTAyMwd1bmlFMDI0B3VuaUUwMjUHdW5pRTAyNgd1bmlFMDI3B3VuaUUwMjgHdW5pRTAyOQd1bmlFMDMwB3VuaUUwMzEHdW5pRTAzMgd1bmlFMDMzB3VuaUUwMzQHdW5pRTAzNQd1bmlFMDM2B3VuaUUwMzcHdW5pRTAzOAd1bmlFMDM5B3VuaUUwNDAHdW5pRTA0MQd1bmlFMDQyB3VuaUUwNDMHdW5pRTA0NAd1bmlFMDQ1B3VuaUUwNDYHdW5pRTA0Nwd1bmlFMDQ4B3VuaUUwNDkHdW5pRTA1MAd1bmlFMDUxB3VuaUUwNTIHdW5pRTA1Mwd1bmlFMDU0B3VuaUUwNTUHdW5pRTA1Ngd1bmlFMDU3B3VuaUUwNTgHdW5pRTA1OQd1bmlFMDYwB3VuaUUwNjIHdW5pRTA2Mwd1bmlFMDY0B3VuaUUwNjUHdW5pRTA2Ngd1bmlFMDY3B3VuaUUwNjgHdW5pRTA2OQd1bmlFMDcwB3VuaUUwNzEHdW5pRTA3Mgd1bmlFMDczB3VuaUUwNzQHdW5pRTA3NQd1bmlFMDc2B3VuaUUwNzcHdW5pRTA3OAd1bmlFMDc5B3VuaUUwODAHdW5pRTA4MQd1bmlFMDgyB3VuaUUwODMHdW5pRTA4NAd1bmlFMDg1B3VuaUUwODYHdW5pRTA4Nwd1bmlFMDg4B3VuaUUwODkHdW5pRTA5MAd1bmlFMDkxB3VuaUUwOTIHdW5pRTA5Mwd1bmlFMDk0B3VuaUUwOTUHdW5pRTA5Ngd1bmlFMDk3B3VuaUUxMDEHdW5pRTEwMgd1bmlFMTAzB3VuaUUxMDQHdW5pRTEwNQd1bmlFMTA2B3VuaUUxMDcHdW5pRTEwOAd1bmlFMTA5B3VuaUUxMTAHdW5pRTExMQd1bmlFMTEyB3VuaUUxMTMHdW5pRTExNAd1bmlFMTE1B3VuaUUxMTYHdW5pRTExNwd1bmlFMTE4B3VuaUUxMTkHdW5pRTEyMAd1bmlFMTIxB3VuaUUxMjIHdW5pRTEyMwd1bmlFMTI0B3VuaUUxMjUHdW5pRTEyNgd1bmlFMTI3B3VuaUUxMjgHdW5pRTEyOQd1bmlFMTMwB3VuaUUxMzEHdW5pRTEzMgd1bmlFMTMzB3VuaUUxMzQHdW5pRTEzNQd1bmlFMTM2B3VuaUUxMzcHdW5pRTEzOAd1bmlFMTM5B3VuaUUxNDAHdW5pRTE0MQd1bmlFMTQyB3VuaUUxNDMHdW5pRTE0NAd1bmlFMTQ1B3VuaUUxNDYHdW5pRTE0OAd1bmlFMTQ5B3VuaUUxNTAHdW5pRTE1MQd1bmlFMTUyB3VuaUUxNTMHdW5pRTE1NAd1bmlFMTU1B3VuaUUxNTYHdW5pRTE1Nwd1bmlFMTU4B3VuaUUxNTkHdW5pRTE2MAd1bmlFMTYxB3VuaUUxNjIHdW5pRTE2Mwd1bmlFMTY0B3VuaUUxNjUHdW5pRTE2Ngd1bmlFMTY3B3VuaUUxNjgHdW5pRTE2OQd1bmlFMTcwB3VuaUUxNzEHdW5pRTE3Mgd1bmlFMTczB3VuaUUxNzQHdW5pRTE3NQd1bmlFMTc2B3VuaUUxNzcHdW5pRTE3OAd1bmlFMTc5B3VuaUUxODAHdW5pRTE4MQd1bmlFMTgyB3VuaUUxODMHdW5pRTE4NAd1bmlFMTg1B3VuaUUxODYHdW5pRTE4Nwd1bmlFMTg4B3VuaUUxODkHdW5pRTE5MAd1bmlFMTkxB3VuaUUxOTIHdW5pRTE5Mwd1bmlFMTk0B3VuaUUxOTUHdW5pRTE5Nwd1bmlFMTk4B3VuaUUxOTkHdW5pRTIwMAd1bmlFMjAxB3VuaUUyMDIHdW5pRTIwMwd1bmlFMjA0B3VuaUUyMDUHdW5pRTIwNgd1bmlFMjA5B3VuaUUyMTAHdW5pRTIxMQd1bmlFMjEyB3VuaUUyMTMHdW5pRTIxNAd1bmlFMjE1B3VuaUUyMTYHdW5pRTIxOAd1bmlFMjE5B3VuaUUyMjEHdW5pRTIyMwd1bmlFMjI0B3VuaUUyMjUHdW5pRTIyNgd1bmlFMjI3B3VuaUUyMzAHdW5pRTIzMQd1bmlFMjMyB3VuaUUyMzMHdW5pRTIzNAd1bmlFMjM1B3VuaUUyMzYHdW5pRTIzNwd1bmlFMjM4B3VuaUUyMzkHdW5pRTI0MAd1bmlFMjQxB3VuaUUyNDIHdW5pRTI0Mwd1bmlFMjQ0B3VuaUUyNDUHdW5pRTI0Ngd1bmlFMjQ3B3VuaUUyNDgHdW5pRTI0OQd1bmlFMjUwB3VuaUUyNTEHdW5pRTI1Mgd1bmlFMjUzB3VuaUUyNTQHdW5pRTI1NQd1bmlFMjU2B3VuaUUyNTcHdW5pRTI1OAd1bmlFMjU5B3VuaUUyNjAHdW5pRjhGRgZ1MUY1MTEGdTFGNkFBAAAAAAFUUMMXAAA=) format("truetype"),url(data:image/svg+xml;base64,PD94bWwgdmVyc2lvbj0iMS4wIiBzdGFuZGFsb25lPSJubyI/Pgo8IURPQ1RZUEUgc3ZnIFBVQkxJQyAiLS8vVzNDLy9EVEQgU1ZHIDEuMS8vRU4iICJodHRwOi8vd3d3LnczLm9yZy9HcmFwaGljcy9TVkcvMS4xL0RURC9zdmcxMS5kdGQiID4KPHN2ZyB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciPgo8bWV0YWRhdGE+PC9tZXRhZGF0YT4KPGRlZnM+Cjxmb250IGlkPSJnbHlwaGljb25zX2hhbGZsaW5nc3JlZ3VsYXIiIGhvcml6LWFkdi14PSIxMjAwIiA+Cjxmb250LWZhY2UgdW5pdHMtcGVyLWVtPSIxMjAwIiBhc2NlbnQ9Ijk2MCIgZGVzY2VudD0iLTI0MCIgLz4KPG1pc3NpbmctZ2x5cGggaG9yaXotYWR2LXg9IjUwMCIgLz4KPGdseXBoIGhvcml6LWFkdi14PSIwIiAvPgo8Z2x5cGggaG9yaXotYWR2LXg9IjQwMCIgLz4KPGdseXBoIHVuaWNvZGU9IiAiIC8+CjxnbHlwaCB1bmljb2RlPSIqIiBkPSJNNjAwIDExMDBxMTUgMCAzNCAtMS41dDMwIC0zLjVsMTEgLTFxMTAgLTIgMTcuNSAtMTAuNXQ3LjUgLTE4LjV2LTIyNGwxNTggMTU4cTcgNyAxOCA4dDE5IC02bDEwNiAtMTA2cTcgLTggNiAtMTl0LTggLTE4bC0xNTggLTE1OGgyMjRxMTAgMCAxOC41IC03LjV0MTAuNSAtMTcuNXE2IC00MSA2IC03NXEwIC0xNSAtMS41IC0zNHQtMy41IC0zMGwtMSAtMTFxLTIgLTEwIC0xMC41IC0xNy41dC0xOC41IC03LjVoLTIyNGwxNTggLTE1OCBxNyAtNyA4IC0xOHQtNiAtMTlsLTEwNiAtMTA2cS04IC03IC0xOSAtNnQtMTggOGwtMTU4IDE1OHYtMjI0cTAgLTEwIC03LjUgLTE4LjV0LTE3LjUgLTEwLjVxLTQxIC02IC03NSAtNnEtMTUgMCAtMzQgMS41dC0zMCAzLjVsLTExIDFxLTEwIDIgLTE3LjUgMTAuNXQtNy41IDE4LjV2MjI0bC0xNTggLTE1OHEtNyAtNyAtMTggLTh0LTE5IDZsLTEwNiAxMDZxLTcgOCAtNiAxOXQ4IDE4bDE1OCAxNThoLTIyNHEtMTAgMCAtMTguNSA3LjUgdC0xMC41IDE3LjVxLTYgNDEgLTYgNzVxMCAxNSAxLjUgMzR0My41IDMwbDEgMTFxMiAxMCAxMC41IDE3LjV0MTguNSA3LjVoMjI0bC0xNTggMTU4cS03IDcgLTggMTh0NiAxOWwxMDYgMTA2cTggNyAxOSA2dDE4IC04bDE1OCAtMTU4djIyNHEwIDEwIDcuNSAxOC41dDE3LjUgMTAuNXE0MSA2IDc1IDZ6IiAvPgo8Z2x5cGggdW5pY29kZT0iKyIgZD0iTTQ1MCAxMTAwaDIwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMzUwaDM1MHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMjAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0zNTB2LTM1MHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMjAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYzNTBoLTM1MHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MjAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNSBoMzUwdjM1MHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4YTA7IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4YTU7IiBkPSJNODI1IDExMDBoMjUwcTEwIDAgMTIuNSAtNXQtNS41IC0xM2wtMzY0IC0zNjRxLTYgLTYgLTExIC0xOGgyNjhxMTAgMCAxMyAtNnQtMyAtMTRsLTEyMCAtMTYwcS02IC04IC0xOCAtMTR0LTIyIC02aC0xMjV2LTEwMGgyNzVxMTAgMCAxMyAtNnQtMyAtMTRsLTEyMCAtMTYwcS02IC04IC0xOCAtMTR0LTIyIC02aC0xMjV2LTE3NHEwIC0xMSAtNy41IC0xOC41dC0xOC41IC03LjVoLTE0OHEtMTEgMCAtMTguNSA3LjV0LTcuNSAxOC41djE3NCBoLTI3NXEtMTAgMCAtMTMgNnQzIDE0bDEyMCAxNjBxNiA4IDE4IDE0dDIyIDZoMTI1djEwMGgtMjc1cS0xMCAwIC0xMyA2dDMgMTRsMTIwIDE2MHE2IDggMTggMTR0MjIgNmgxMThxLTUgMTIgLTExIDE4bC0zNjQgMzY0cS04IDggLTUuNSAxM3QxMi41IDVoMjUwcTI1IDAgNDMgLTE4bDE2NCAtMTY0cTggLTggMTggLTh0MTggOGwxNjQgMTY0cTE4IDE4IDQzIDE4eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeDIwMDA7IiBob3Jpei1hZHYteD0iNjUwIiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4MjAwMTsiIGhvcml6LWFkdi14PSIxMzAwIiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4MjAwMjsiIGhvcml6LWFkdi14PSI2NTAiIC8+CjxnbHlwaCB1bmljb2RlPSImI3gyMDAzOyIgaG9yaXotYWR2LXg9IjEzMDAiIC8+CjxnbHlwaCB1bmljb2RlPSImI3gyMDA0OyIgaG9yaXotYWR2LXg9IjQzMyIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeDIwMDU7IiBob3Jpei1hZHYteD0iMzI1IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4MjAwNjsiIGhvcml6LWFkdi14PSIyMTYiIC8+CjxnbHlwaCB1bmljb2RlPSImI3gyMDA3OyIgaG9yaXotYWR2LXg9IjIxNiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeDIwMDg7IiBob3Jpei1hZHYteD0iMTYyIiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4MjAwOTsiIGhvcml6LWFkdi14PSIyNjAiIC8+CjxnbHlwaCB1bmljb2RlPSImI3gyMDBhOyIgaG9yaXotYWR2LXg9IjcyIiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4MjAyZjsiIGhvcml6LWFkdi14PSIyNjAiIC8+CjxnbHlwaCB1bmljb2RlPSImI3gyMDVmOyIgaG9yaXotYWR2LXg9IjMyNSIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeDIwYWM7IiBkPSJNNzQ0IDExOThxMjQyIDAgMzU0IC0xODlxNjAgLTEwNCA2NiAtMjA5aC0xODFxMCA0NSAtMTcuNSA4Mi41dC00My41IDYxLjV0LTU4IDQwLjV0LTYwLjUgMjR0LTUxLjUgNy41cS0xOSAwIC00MC41IC01LjV0LTQ5LjUgLTIwLjV0LTUzIC0zOHQtNDkgLTYyLjV0LTM5IC04OS41aDM3OWwtMTAwIC0xMDBoLTMwMHEtNiAtNTAgLTYgLTEwMGg0MDZsLTEwMCAtMTAwaC0zMDBxOSAtNzQgMzMgLTEzMnQ1Mi41IC05MXQ2MS41IC01NC41dDU5IC0yOSB0NDcgLTcuNXEyMiAwIDUwLjUgNy41dDYwLjUgMjQuNXQ1OCA0MXQ0My41IDYxdDE3LjUgODBoMTc0cS0zMCAtMTcxIC0xMjggLTI3OHEtMTA3IC0xMTcgLTI3NCAtMTE3cS0yMDYgMCAtMzI0IDE1OHEtMzYgNDggLTY5IDEzM3QtNDUgMjA0aC0yMTdsMTAwIDEwMGgxMTJxMSA0NyA2IDEwMGgtMjE4bDEwMCAxMDBoMTM0cTIwIDg3IDUxIDE1My41dDYyIDEwMy41cTExNyAxNDEgMjk3IDE0MXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3gyMGJkOyIgZD0iTTQyOCAxMjAwaDM1MHE2NyAwIDEyMCAtMTN0ODYgLTMxdDU3IC00OS41dDM1IC01Ni41dDE3IC02NC41dDYuNSAtNjAuNXQwLjUgLTU3di0xNi41di0xNi41cTAgLTM2IC0wLjUgLTU3dC02LjUgLTYxdC0xNyAtNjV0LTM1IC01N3QtNTcgLTUwLjV0LTg2IC0zMS41dC0xMjAgLTEzaC0xNzhsLTIgLTEwMGgyODhxMTAgMCAxMyAtNnQtMyAtMTRsLTEyMCAtMTYwcS02IC04IC0xOCAtMTR0LTIyIC02aC0xMzh2LTE3NXEwIC0xMSAtNS41IC0xOCB0LTE1LjUgLTdoLTE0OXEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djE3NWgtMjY3cS0xMCAwIC0xMyA2dDMgMTRsMTIwIDE2MHE2IDggMTggMTR0MjIgNmgxMTd2MTAwaC0yNjdxLTEwIDAgLTEzIDZ0MyAxNGwxMjAgMTYwcTYgOCAxOCAxNHQyMiA2aDExN3Y0NzVxMCAxMCA3LjUgMTcuNXQxNy41IDcuNXpNNjAwIDEwMDB2LTMwMGgyMDNxNjQgMCA4Ni41IDMzdDIyLjUgMTE5cTAgODQgLTIyLjUgMTE2dC04Ni41IDMyaC0yMDN6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4MjIxMjsiIGQ9Ik0yNTAgNzAwaDgwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMjAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC04MDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djIwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4MjMxYjsiIGQ9Ik0xMDAwIDEyMDB2LTE1MHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNTB2LTEwMHEwIC05MSAtNDkuNSAtMTY1LjV0LTEzMC41IC0xMDkuNXE4MSAtMzUgMTMwLjUgLTEwOS41dDQ5LjUgLTE2NS41di0xNTBoNTBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTE1MGgtODAwdjE1MHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjVoNTB2MTUwcTAgOTEgNDkuNSAxNjUuNXQxMzAuNSAxMDkuNXEtODEgMzUgLTEzMC41IDEwOS41IHQtNDkuNSAxNjUuNXYxMDBoLTUwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYxNTBoODAwek00MDAgMTAwMHYtMTAwcTAgLTYwIDMyLjUgLTEwOS41dDg3LjUgLTczLjVxMjggLTEyIDQ0IC0zN3QxNiAtNTV0LTE2IC01NXQtNDQgLTM3cS01NSAtMjQgLTg3LjUgLTczLjV0LTMyLjUgLTEwOS41di0xNTBoNDAwdjE1MHEwIDYwIC0zMi41IDEwOS41dC04Ny41IDczLjVxLTI4IDEyIC00NCAzN3QtMTYgNTV0MTYgNTV0NDQgMzcgcTU1IDI0IDg3LjUgNzMuNXQzMi41IDEwOS41djEwMGgtNDAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeDI1ZmM7IiBob3Jpei1hZHYteD0iNTAwIiBkPSJNMCAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeDI2MDE7IiBkPSJNNTAzIDEwODlxMTEwIDAgMjAwLjUgLTU5LjV0MTM0LjUgLTE1Ni41cTQ0IDE0IDkwIDE0cTEyMCAwIDIwNSAtODYuNXQ4NSAtMjA2LjVxMCAtMTIxIC04NSAtMjA3LjV0LTIwNSAtODYuNWgtNzUwcS03OSAwIC0xMzUuNSA1N3QtNTYuNSAxMzdxMCA2OSA0Mi41IDEyMi41dDEwOC41IDY3LjVxLTIgMTIgLTIgMzdxMCAxNTMgMTA4IDI2MC41dDI2MCAxMDcuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3gyNmZhOyIgZD0iTTc3NCAxMTkzLjVxMTYgLTkuNSAyMC41IC0yN3QtNS41IC0zMy41bC0xMzYgLTE4N2w0NjcgLTc0NmgzMHEyMCAwIDM1IC0xOC41dDE1IC0zOS41di00MmgtMTIwMHY0MnEwIDIxIDE1IDM5LjV0MzUgMTguNWgzMGw0NjggNzQ2bC0xMzUgMTgzcS0xMCAxNiAtNS41IDM0dDIwLjUgMjh0MzQgNS41dDI4IC0yMC41bDExMSAtMTQ4bDExMiAxNTBxOSAxNiAyNyAyMC41dDM0IC01ek02MDAgMjAwaDM3N2wtMTgyIDExMmwtMTk1IDUzNHYtNjQ2eiAiIC8+CjxnbHlwaCB1bmljb2RlPSImI3gyNzA5OyIgZD0iTTI1IDExMDBoMTE1MHExMCAwIDEyLjUgLTV0LTUuNSAtMTNsLTU2NCAtNTY3cS04IC04IC0xOCAtOHQtMTggOGwtNTY0IDU2N3EtOCA4IC01LjUgMTN0MTIuNSA1ek0xOCA4ODJsMjY0IC0yNjRxOCAtOCA4IC0xOHQtOCAtMThsLTI2NCAtMjY0cS04IC04IC0xMyAtNS41dC01IDEyLjV2NTUwcTAgMTAgNSAxMi41dDEzIC01LjV6TTkxOCA2MThsMjY0IDI2NHE4IDggMTMgNS41dDUgLTEyLjV2LTU1MHEwIC0xMCAtNSAtMTIuNXQtMTMgNS41IGwtMjY0IDI2NHEtOCA4IC04IDE4dDggMTh6TTgxOCA0ODJsMzY0IC0zNjRxOCAtOCA1LjUgLTEzdC0xMi41IC01aC0xMTUwcS0xMCAwIC0xMi41IDV0NS41IDEzbDM2NCAzNjRxOCA4IDE4IDh0MTggLThsMTY0IC0xNjRxOCAtOCAxOCAtOHQxOCA4bDE2NCAxNjRxOCA4IDE4IDh0MTggLTh6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4MjcwZjsiIGQ9Ik0xMDExIDEyMTBxMTkgMCAzMyAtMTNsMTUzIC0xNTNxMTMgLTE0IDEzIC0zM3QtMTMgLTMzbC05OSAtOTJsLTIxNCAyMTRsOTUgOTZxMTMgMTQgMzIgMTR6TTEwMTMgODAwbC02MTUgLTYxNGwtMjE0IDIxNGw2MTQgNjE0ek0zMTcgOTZsLTMzMyAtMTEybDExMCAzMzV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTAwMTsiIGQ9Ik03MDAgNjUwdi01NTBoMjUwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di01MGgtODAwdjUwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNWgyNTB2NTUwbC01MDAgNTUwaDEyMDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTAwMjsiIGQ9Ik0zNjggMTAxN2w2NDUgMTYzcTM5IDE1IDYzIDB0MjQgLTQ5di04MzFxMCAtNTUgLTQxLjUgLTk1LjV0LTExMS41IC02My41cS03OSAtMjUgLTE0NyAtNC41dC04NiA3NXQyNS41IDExMS41dDEyMi41IDgycTcyIDI0IDEzOCA4djUyMWwtNjAwIC0xNTV2LTYwNnEwIC00MiAtNDQgLTkwdC0xMDkgLTY5cS03OSAtMjYgLTE0NyAtNS41dC04NiA3NS41dDI1LjUgMTExLjV0MTIyLjUgODIuNXE3MiAyNCAxMzggN3Y2MzlxMCAzOCAxNC41IDU5IHQ1My41IDM0eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwMDM7IiBkPSJNNTAwIDExOTFxMTAwIDAgMTkxIC0zOXQxNTYuNSAtMTA0LjV0MTA0LjUgLTE1Ni41dDM5IC0xOTFsLTEgLTJsMSAtNXEwIC0xNDEgLTc4IC0yNjJsMjc1IC0yNzRxMjMgLTI2IDIyLjUgLTQ0LjV0LTIyLjUgLTQyLjVsLTU5IC01OHEtMjYgLTIwIC00Ni41IC0yMHQtMzkuNSAyMGwtMjc1IDI3NHEtMTE5IC03NyAtMjYxIC03N2wtNSAxbC0yIC0xcS0xMDAgMCAtMTkxIDM5dC0xNTYuNSAxMDQuNXQtMTA0LjUgMTU2LjV0LTM5IDE5MSB0MzkgMTkxdDEwNC41IDE1Ni41dDE1Ni41IDEwNC41dDE5MSAzOXpNNTAwIDEwMjJxLTg4IDAgLTE2MiAtNDN0LTExNyAtMTE3dC00MyAtMTYydDQzIC0xNjJ0MTE3IC0xMTd0MTYyIC00M3QxNjIgNDN0MTE3IDExN3Q0MyAxNjJ0LTQzIDE2MnQtMTE3IDExN3QtMTYyIDQzeiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwMDU7IiBkPSJNNjQ5IDk0OXE0OCA2OCAxMDkuNSAxMDR0MTIxLjUgMzguNXQxMTguNSAtMjB0MTAyLjUgLTY0dDcxIC0xMDAuNXQyNyAtMTIzcTAgLTU3IC0zMy41IC0xMTcuNXQtOTQgLTEyNC41dC0xMjYuNSAtMTI3LjV0LTE1MCAtMTUyLjV0LTE0NiAtMTc0cS02MiA4NSAtMTQ1LjUgMTc0dC0xNTAgMTUyLjV0LTEyNi41IDEyNy41dC05My41IDEyNC41dC0zMy41IDExNy41cTAgNjQgMjggMTIzdDczIDEwMC41dDEwNCA2NHQxMTkgMjAgdDEyMC41IC0zOC41dDEwNC41IC0xMDR6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTAwNjsiIGQ9Ik00MDcgODAwbDEzMSAzNTNxNyAxOSAxNy41IDE5dDE3LjUgLTE5bDEyOSAtMzUzaDQyMXEyMSAwIDI0IC04LjV0LTE0IC0yMC41bC0zNDIgLTI0OWwxMzAgLTQwMXE3IC0yMCAtMC41IC0yNS41dC0yNC41IDYuNWwtMzQzIDI0NmwtMzQyIC0yNDdxLTE3IC0xMiAtMjQuNSAtNi41dC0wLjUgMjUuNWwxMzAgNDAwbC0zNDcgMjUxcS0xNyAxMiAtMTQgMjAuNXQyMyA4LjVoNDI5eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwMDc7IiBkPSJNNDA3IDgwMGwxMzEgMzUzcTcgMTkgMTcuNSAxOXQxNy41IC0xOWwxMjkgLTM1M2g0MjFxMjEgMCAyNCAtOC41dC0xNCAtMjAuNWwtMzQyIC0yNDlsMTMwIC00MDFxNyAtMjAgLTAuNSAtMjUuNXQtMjQuNSA2LjVsLTM0MyAyNDZsLTM0MiAtMjQ3cS0xNyAtMTIgLTI0LjUgLTYuNXQtMC41IDI1LjVsMTMwIDQwMGwtMzQ3IDI1MXEtMTcgMTIgLTE0IDIwLjV0MjMgOC41aDQyOXpNNDc3IDcwMGgtMjQwbDE5NyAtMTQybC03NCAtMjI2IGwxOTMgMTM5bDE5NSAtMTQwbC03NCAyMjlsMTkyIDE0MGgtMjM0bC03OCAyMTF6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTAwODsiIGQ9Ik02MDAgMTIwMHExMjQgMCAyMTIgLTg4dDg4IC0yMTJ2LTI1MHEwIC00NiAtMzEgLTk4dC02OSAtNTJ2LTc1cTAgLTEwIDYgLTIxLjV0MTUgLTE3LjVsMzU4IC0yMzBxOSAtNSAxNSAtMTYuNXQ2IC0yMS41di05M3EwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTExNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXY5M3EwIDEwIDYgMjEuNXQxNSAxNi41bDM1OCAyMzBxOSA2IDE1IDE3LjV0NiAyMS41djc1cS0zOCAwIC02OSA1MiB0LTMxIDk4djI1MHEwIDEyNCA4OCAyMTJ0MjEyIDg4eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwMDk7IiBkPSJNMjUgMTEwMGgxMTUwcTEwIDAgMTcuNSAtNy41dDcuNSAtMTcuNXYtMTA1MHEwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTExNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXYxMDUwcTAgMTAgNy41IDE3LjV0MTcuNSA3LjV6TTEwMCAxMDAwdi0xMDBoMTAwdjEwMGgtMTAwek04NzUgMTAwMGgtNTUwcS0xMCAwIC0xNy41IC03LjV0LTcuNSAtMTcuNXYtMzUwcTAgLTEwIDcuNSAtMTcuNXQxNy41IC03LjVoNTUwIHExMCAwIDE3LjUgNy41dDcuNSAxNy41djM1MHEwIDEwIC03LjUgMTcuNXQtMTcuNSA3LjV6TTEwMDAgMTAwMHYtMTAwaDEwMHYxMDBoLTEwMHpNMTAwIDgwMHYtMTAwaDEwMHYxMDBoLTEwMHpNMTAwMCA4MDB2LTEwMGgxMDB2MTAwaC0xMDB6TTEwMCA2MDB2LTEwMGgxMDB2MTAwaC0xMDB6TTEwMDAgNjAwdi0xMDBoMTAwdjEwMGgtMTAwek04NzUgNTAwaC01NTBxLTEwIDAgLTE3LjUgLTcuNXQtNy41IC0xNy41di0zNTBxMCAtMTAgNy41IC0xNy41IHQxNy41IC03LjVoNTUwcTEwIDAgMTcuNSA3LjV0Ny41IDE3LjV2MzUwcTAgMTAgLTcuNSAxNy41dC0xNy41IDcuNXpNMTAwIDQwMHYtMTAwaDEwMHYxMDBoLTEwMHpNMTAwMCA0MDB2LTEwMGgxMDB2MTAwaC0xMDB6TTEwMCAyMDB2LTEwMGgxMDB2MTAwaC0xMDB6TTEwMDAgMjAwdi0xMDBoMTAwdjEwMGgtMTAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwMTA7IiBkPSJNNTAgMTEwMGg0MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTQwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNDAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXY0MDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek02NTAgMTEwMGg0MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTQwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNDAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXY0MDAgcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNNTAgNTAwaDQwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtNDAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC00MDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djQwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTY1MCA1MDBoNDAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di00MDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTQwMCBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djQwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTAxMTsiIGQ9Ik01MCAxMTAwaDIwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMjAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0yMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djIwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTQ1MCAxMTAwaDIwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMjAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0yMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djIwMCBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek04NTAgMTEwMGgyMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTIwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMjAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYyMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek01MCA3MDBoMjAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0yMDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTIwMCBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djIwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTQ1MCA3MDBoMjAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0yMDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTIwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MjAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNODUwIDcwMGgyMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTIwMCBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTIwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MjAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNNTAgMzAwaDIwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMjAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0yMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djIwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTQ1MCAzMDBoMjAwIHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMjAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0yMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djIwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTg1MCAzMDBoMjAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0yMDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTIwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MjAwcTAgMjEgMTQuNSAzNS41IHQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTAxMjsiIGQ9Ik01MCAxMTAwaDIwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMjAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0yMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djIwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTQ1MCAxMTAwaDcwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMjAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC03MDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djIwMCBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek01MCA3MDBoMjAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0yMDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTIwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MjAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNNDUwIDcwMGg3MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTIwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNzAwIHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MjAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNNTAgMzAwaDIwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMjAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0yMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djIwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTQ1MCAzMDBoNzAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0yMDAgcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC03MDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djIwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTAxMzsiIGQ9Ik00NjUgNDc3bDU3MSA1NzFxOCA4IDE4IDh0MTcgLThsMTc3IC0xNzdxOCAtNyA4IC0xN3QtOCAtMThsLTc4MyAtNzg0cS03IC04IC0xNy41IC04dC0xNy41IDhsLTM4NCAzODRxLTggOCAtOCAxOHQ4IDE3bDE3NyAxNzdxNyA4IDE3IDh0MTggLThsMTcxIC0xNzFxNyAtNyAxOCAtN3QxOCA3eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwMTQ7IiBkPSJNOTA0IDEwODNsMTc4IC0xNzlxOCAtOCA4IC0xOC41dC04IC0xNy41bC0yNjcgLTI2OGwyNjcgLTI2OHE4IC03IDggLTE3LjV0LTggLTE4LjVsLTE3OCAtMTc4cS04IC04IC0xOC41IC04dC0xNy41IDhsLTI2OCAyNjdsLTI2OCAtMjY3cS03IC04IC0xNy41IC04dC0xOC41IDhsLTE3OCAxNzhxLTggOCAtOCAxOC41dDggMTcuNWwyNjcgMjY4bC0yNjcgMjY4cS04IDcgLTggMTcuNXQ4IDE4LjVsMTc4IDE3OHE4IDggMTguNSA4dDE3LjUgLTggbDI2OCAtMjY3bDI2OCAyNjhxNyA3IDE3LjUgN3QxOC41IC03eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwMTU7IiBkPSJNNTA3IDExNzdxOTggMCAxODcuNSAtMzguNXQxNTQuNSAtMTAzLjV0MTAzLjUgLTE1NC41dDM4LjUgLTE4Ny41cTAgLTE0MSAtNzggLTI2MmwzMDAgLTI5OXE4IC04IDggLTE4LjV0LTggLTE4LjVsLTEwOSAtMTA4cS03IC04IC0xNy41IC04dC0xOC41IDhsLTMwMCAyOTlxLTExOSAtNzcgLTI2MSAtNzdxLTk4IDAgLTE4OCAzOC41dC0xNTQuNSAxMDN0LTEwMyAxNTQuNXQtMzguNSAxODh0MzguNSAxODcuNXQxMDMgMTU0LjUgdDE1NC41IDEwMy41dDE4OCAzOC41ek01MDYuNSAxMDIzcS04OS41IDAgLTE2NS41IC00NHQtMTIwIC0xMjAuNXQtNDQgLTE2NnQ0NCAtMTY1LjV0MTIwIC0xMjB0MTY1LjUgLTQ0dDE2NiA0NHQxMjAuNSAxMjB0NDQgMTY1LjV0LTQ0IDE2NnQtMTIwLjUgMTIwLjV0LTE2NiA0NHpNNDI1IDkwMGgxNTBxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di03NWg3NXExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTE1MHEwIC0xMCAtNy41IC0xNy41IHQtMTcuNSAtNy41aC03NXYtNzVxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC0xNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXY3NWgtNzVxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXYxNTBxMCAxMCA3LjUgMTcuNXQxNy41IDcuNWg3NXY3NXEwIDEwIDcuNSAxNy41dDE3LjUgNy41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwMTY7IiBkPSJNNTA3IDExNzdxOTggMCAxODcuNSAtMzguNXQxNTQuNSAtMTAzLjV0MTAzLjUgLTE1NC41dDM4LjUgLTE4Ny41cTAgLTE0MSAtNzggLTI2MmwzMDAgLTI5OXE4IC04IDggLTE4LjV0LTggLTE4LjVsLTEwOSAtMTA4cS03IC04IC0xNy41IC04dC0xOC41IDhsLTMwMCAyOTlxLTExOSAtNzcgLTI2MSAtNzdxLTk4IDAgLTE4OCAzOC41dC0xNTQuNSAxMDN0LTEwMyAxNTQuNXQtMzguNSAxODh0MzguNSAxODcuNXQxMDMgMTU0LjUgdDE1NC41IDEwMy41dDE4OCAzOC41ek01MDYuNSAxMDIzcS04OS41IDAgLTE2NS41IC00NHQtMTIwIC0xMjAuNXQtNDQgLTE2NnQ0NCAtMTY1LjV0MTIwIC0xMjB0MTY1LjUgLTQ0dDE2NiA0NHQxMjAuNSAxMjB0NDQgMTY1LjV0LTQ0IDE2NnQtMTIwLjUgMTIwLjV0LTE2NiA0NHpNMzI1IDgwMGgzNTBxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di0xNTBxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC0zNTBxLTEwIDAgLTE3LjUgNy41IHQtNy41IDE3LjV2MTUwcTAgMTAgNy41IDE3LjV0MTcuNSA3LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTAxNzsiIGQ9Ik01NTAgMTIwMGgxMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTQwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMTAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXY0MDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek04MDAgOTc1djE2NnExNjcgLTYyIDI3MiAtMjA5LjV0MTA1IC0zMzEuNXEwIC0xMTcgLTQ1LjUgLTIyNHQtMTIzIC0xODQuNXQtMTg0LjUgLTEyM3QtMjI0IC00NS41dC0yMjQgNDUuNSB0LTE4NC41IDEyM3QtMTIzIDE4NC41dC00NS41IDIyNHEwIDE4NCAxMDUgMzMxLjV0MjcyIDIwOS41di0xNjZxLTEwMyAtNTUgLTE2NSAtMTU1dC02MiAtMjIwcTAgLTExNiA1NyAtMjE0LjV0MTU1LjUgLTE1NS41dDIxNC41IC01N3QyMTQuNSA1N3QxNTUuNSAxNTUuNXQ1NyAyMTQuNXEwIDEyMCAtNjIgMjIwdC0xNjUgMTU1eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwMTg7IiBkPSJNMTAyNSAxMjAwaDE1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTExNTBxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC0xNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXYxMTUwcTAgMTAgNy41IDE3LjV0MTcuNSA3LjV6TTcyNSA4MDBoMTUwcTEwIDAgMTcuNSAtNy41dDcuNSAtMTcuNXYtNzUwcTAgLTEwIC03LjUgLTE3LjV0LTE3LjUgLTcuNWgtMTUwcS0xMCAwIC0xNy41IDcuNXQtNy41IDE3LjV2NzUwIHEwIDEwIDcuNSAxNy41dDE3LjUgNy41ek00MjUgNTAwaDE1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTQ1MHEwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTE1MHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djQ1MHEwIDEwIDcuNSAxNy41dDE3LjUgNy41ek0xMjUgMzAwaDE1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTI1MHEwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTE1MHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41IHYyNTBxMCAxMCA3LjUgMTcuNXQxNy41IDcuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDE5OyIgZD0iTTYwMCAxMTc0cTMzIDAgNzQgLTVsMzggLTE1Mmw1IC0xcTQ5IC0xNCA5NCAtMzlsNSAtMmwxMzQgODBxNjEgLTQ4IDEwNCAtMTA1bC04MCAtMTM0bDMgLTVxMjUgLTQ0IDM5IC05M2wxIC02bDE1MiAtMzhxNSAtNDMgNSAtNzNxMCAtMzQgLTUgLTc0bC0xNTIgLTM4bC0xIC02cS0xNSAtNDkgLTM5IC05M2wtMyAtNWw4MCAtMTM0cS00OCAtNjEgLTEwNCAtMTA1bC0xMzQgODFsLTUgLTNxLTQ0IC0yNSAtOTQgLTM5bC01IC0ybC0zOCAtMTUxIHEtNDMgLTUgLTc0IC01cS0zMyAwIC03NCA1bC0zOCAxNTFsLTUgMnEtNDkgMTQgLTk0IDM5bC01IDNsLTEzNCAtODFxLTYwIDQ4IC0xMDQgMTA1bDgwIDEzNGwtMyA1cS0yNSA0NSAtMzggOTNsLTIgNmwtMTUxIDM4cS02IDQyIC02IDc0cTAgMzMgNiA3M2wxNTEgMzhsMiA2cTEzIDQ4IDM4IDkzbDMgNWwtODAgMTM0cTQ3IDYxIDEwNSAxMDVsMTMzIC04MGw1IDJxNDUgMjUgOTQgMzlsNSAxbDM4IDE1MnE0MyA1IDc0IDV6TTYwMCA4MTUgcS04OSAwIC0xNTIgLTYzdC02MyAtMTUxLjV0NjMgLTE1MS41dDE1MiAtNjN0MTUyIDYzdDYzIDE1MS41dC02MyAxNTEuNXQtMTUyIDYzeiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwMjA7IiBkPSJNNTAwIDEzMDBoMzAwcTQxIDAgNzAuNSAtMjkuNXQyOS41IC03MC41di0xMDBoMjc1cTEwIDAgMTcuNSAtNy41dDcuNSAtMTcuNXYtNzVoLTExMDB2NzVxMCAxMCA3LjUgMTcuNXQxNy41IDcuNWgyNzV2MTAwcTAgNDEgMjkuNSA3MC41dDcwLjUgMjkuNXpNNTAwIDEyMDB2LTEwMGgzMDB2MTAwaC0zMDB6TTExMDAgOTAwdi04MDBxMCAtNDEgLTI5LjUgLTcwLjV0LTcwLjUgLTI5LjVoLTcwMHEtNDEgMCAtNzAuNSAyOS41dC0yOS41IDcwLjUgdjgwMGg5MDB6TTMwMCA4MDB2LTcwMGgxMDB2NzAwaC0xMDB6TTUwMCA4MDB2LTcwMGgxMDB2NzAwaC0xMDB6TTcwMCA4MDB2LTcwMGgxMDB2NzAwaC0xMDB6TTkwMCA4MDB2LTcwMGgxMDB2NzAwaC0xMDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTAyMTsiIGQ9Ik0xOCA2MThsNjIwIDYwOHE4IDcgMTguNSA3dDE3LjUgLTdsNjA4IC02MDhxOCAtOCA1LjUgLTEzdC0xMi41IC01aC0xNzV2LTU3NXEwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTI1MHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djM3NWgtMzAwdi0zNzVxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC0yNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXY1NzVoLTE3NXEtMTAgMCAtMTIuNSA1dDUuNSAxM3oiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDIyOyIgZD0iTTYwMCAxMjAwdi00MDBxMCAtNDEgMjkuNSAtNzAuNXQ3MC41IC0yOS41aDMwMHYtNjUwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC04MDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djExMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41aDQ1MHpNMTAwMCA4MDBoLTI1MHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MjUweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwMjM7IiBkPSJNNjAwIDExNzdxMTE3IDAgMjI0IC00NS41dDE4NC41IC0xMjN0MTIzIC0xODQuNXQ0NS41IC0yMjR0LTQ1LjUgLTIyNHQtMTIzIC0xODQuNXQtMTg0LjUgLTEyM3QtMjI0IC00NS41dC0yMjQgNDUuNXQtMTg0LjUgMTIzdC0xMjMgMTg0LjV0LTQ1LjUgMjI0dDQ1LjUgMjI0dDEyMyAxODQuNXQxODQuNSAxMjN0MjI0IDQ1LjV6TTYwMCAxMDI3cS0xMTYgMCAtMjE0LjUgLTU3dC0xNTUuNSAtMTU1LjV0LTU3IC0yMTQuNXQ1NyAtMjE0LjUgdDE1NS41IC0xNTUuNXQyMTQuNSAtNTd0MjE0LjUgNTd0MTU1LjUgMTU1LjV0NTcgMjE0LjV0LTU3IDIxNC41dC0xNTUuNSAxNTUuNXQtMjE0LjUgNTd6TTUyNSA5MDBoNTBxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di0yNzVoMTc1cTEwIDAgMTcuNSAtNy41dDcuNSAtMTcuNXYtNTBxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC0yNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXYzNTBxMCAxMCA3LjUgMTcuNXQxNy41IDcuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDI0OyIgZD0iTTEzMDAgMGgtNTM4bC00MSA0MDBoLTI0MmwtNDEgLTQwMGgtNTM4bDQzMSAxMjAwaDIwOWwtMjEgLTMwMGgxNjJsLTIwIDMwMGgyMDh6TTUxNSA4MDBsLTI3IC0zMDBoMjI0bC0yNyAzMDBoLTE3MHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDI1OyIgZD0iTTU1MCAxMjAwaDIwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtNDUwaDE5MXEyMCAwIDI1LjUgLTExLjV0LTcuNSAtMjcuNWwtMzI3IC00MDBxLTEzIC0xNiAtMzIgLTE2dC0zMiAxNmwtMzI3IDQwMHEtMTMgMTYgLTcuNSAyNy41dDI1LjUgMTEuNWgxOTF2NDUwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNMTEyNSA0MDBoNTBxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di0zNTBxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41IGgtMTA1MHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djM1MHEwIDEwIDcuNSAxNy41dDE3LjUgNy41aDUwcTEwIDAgMTcuNSAtNy41dDcuNSAtMTcuNXYtMTc1aDkwMHYxNzVxMCAxMCA3LjUgMTcuNXQxNy41IDcuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDI2OyIgZD0iTTYwMCAxMTc3cTExNyAwIDIyNCAtNDUuNXQxODQuNSAtMTIzdDEyMyAtMTg0LjV0NDUuNSAtMjI0dC00NS41IC0yMjR0LTEyMyAtMTg0LjV0LTE4NC41IC0xMjN0LTIyNCAtNDUuNXQtMjI0IDQ1LjV0LTE4NC41IDEyM3QtMTIzIDE4NC41dC00NS41IDIyNHQ0NS41IDIyNHQxMjMgMTg0LjV0MTg0LjUgMTIzdDIyNCA0NS41ek02MDAgMTAyN3EtMTE2IDAgLTIxNC41IC01N3QtMTU1LjUgLTE1NS41dC01NyAtMjE0LjV0NTcgLTIxNC41IHQxNTUuNSAtMTU1LjV0MjE0LjUgLTU3dDIxNC41IDU3dDE1NS41IDE1NS41dDU3IDIxNC41dC01NyAyMTQuNXQtMTU1LjUgMTU1LjV0LTIxNC41IDU3ek01MjUgOTAwaDE1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTI3NWgxMzdxMjEgMCAyNiAtMTEuNXQtOCAtMjcuNWwtMjIzIC0yNzVxLTEzIC0xNiAtMzIgLTE2dC0zMiAxNmwtMjIzIDI3NXEtMTMgMTYgLTggMjcuNXQyNiAxMS41aDEzN3YyNzVxMCAxMCA3LjUgMTcuNXQxNy41IDcuNXogIiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTAyNzsiIGQ9Ik02MDAgMTE3N3ExMTcgMCAyMjQgLTQ1LjV0MTg0LjUgLTEyM3QxMjMgLTE4NC41dDQ1LjUgLTIyNHQtNDUuNSAtMjI0dC0xMjMgLTE4NC41dC0xODQuNSAtMTIzdC0yMjQgLTQ1LjV0LTIyNCA0NS41dC0xODQuNSAxMjN0LTEyMyAxODQuNXQtNDUuNSAyMjR0NDUuNSAyMjR0MTIzIDE4NC41dDE4NC41IDEyM3QyMjQgNDUuNXpNNjAwIDEwMjdxLTExNiAwIC0yMTQuNSAtNTd0LTE1NS41IC0xNTUuNXQtNTcgLTIxNC41dDU3IC0yMTQuNSB0MTU1LjUgLTE1NS41dDIxNC41IC01N3QyMTQuNSA1N3QxNTUuNSAxNTUuNXQ1NyAyMTQuNXQtNTcgMjE0LjV0LTE1NS41IDE1NS41dC0yMTQuNSA1N3pNNjMyIDkxNGwyMjMgLTI3NXExMyAtMTYgOCAtMjcuNXQtMjYgLTExLjVoLTEzN3YtMjc1cTAgLTEwIC03LjUgLTE3LjV0LTE3LjUgLTcuNWgtMTUwcS0xMCAwIC0xNy41IDcuNXQtNy41IDE3LjV2Mjc1aC0xMzdxLTIxIDAgLTI2IDExLjV0OCAyNy41bDIyMyAyNzVxMTMgMTYgMzIgMTYgdDMyIC0xNnoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDI4OyIgZD0iTTIyNSAxMjAwaDc1MHExMCAwIDE5LjUgLTd0MTIuNSAtMTdsMTg2IC02NTJxNyAtMjQgNyAtNDl2LTQyNXEwIC0xMiAtNCAtMjd0LTkgLTE3cS0xMiAtNiAtMzcgLTZoLTExMDBxLTEyIDAgLTI3IDR0LTE3IDhxLTYgMTMgLTYgMzhsMSA0MjVxMCAyNSA3IDQ5bDE4NSA2NTJxMyAxMCAxMi41IDE3dDE5LjUgN3pNODc4IDEwMDBoLTU1NnEtMTAgMCAtMTkgLTd0LTExIC0xOGwtODcgLTQ1MHEtMiAtMTEgNCAtMTh0MTYgLTdoMTUwIHExMCAwIDE5LjUgLTd0MTEuNSAtMTdsMzggLTE1MnEyIC0xMCAxMS41IC0xN3QxOS41IC03aDI1MHExMCAwIDE5LjUgN3QxMS41IDE3bDM4IDE1MnEyIDEwIDExLjUgMTd0MTkuNSA3aDE1MHExMCAwIDE2IDd0NCAxOGwtODcgNDUwcS0yIDExIC0xMSAxOHQtMTkgN3oiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDI5OyIgZD0iTTYwMCAxMTc3cTExNyAwIDIyNCAtNDUuNXQxODQuNSAtMTIzdDEyMyAtMTg0LjV0NDUuNSAtMjI0dC00NS41IC0yMjR0LTEyMyAtMTg0LjV0LTE4NC41IC0xMjN0LTIyNCAtNDUuNXQtMjI0IDQ1LjV0LTE4NC41IDEyM3QtMTIzIDE4NC41dC00NS41IDIyNHQ0NS41IDIyNHQxMjMgMTg0LjV0MTg0LjUgMTIzdDIyNCA0NS41ek02MDAgMTAyN3EtMTE2IDAgLTIxNC41IC01N3QtMTU1LjUgLTE1NS41dC01NyAtMjE0LjV0NTcgLTIxNC41IHQxNTUuNSAtMTU1LjV0MjE0LjUgLTU3dDIxNC41IDU3dDE1NS41IDE1NS41dDU3IDIxNC41dC01NyAyMTQuNXQtMTU1LjUgMTU1LjV0LTIxNC41IDU3ek01NDAgODIwbDI1MyAtMTkwcTE3IC0xMiAxNyAtMzB0LTE3IC0zMGwtMjUzIC0xOTBxLTE2IC0xMiAtMjggLTYuNXQtMTIgMjYuNXY0MDBxMCAyMSAxMiAyNi41dDI4IC02LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTAzMDsiIGQ9Ik05NDcgMTA2MGwxMzUgMTM1cTcgNyAxMi41IDV0NS41IC0xM3YtMzYycTAgLTEwIC03LjUgLTE3LjV0LTE3LjUgLTcuNWgtMzYycS0xMSAwIC0xMyA1LjV0NSAxMi41bDEzMyAxMzNxLTEwOSA3NiAtMjM4IDc2cS0xMTYgMCAtMjE0LjUgLTU3dC0xNTUuNSAtMTU1LjV0LTU3IC0yMTQuNXQ1NyAtMjE0LjV0MTU1LjUgLTE1NS41dDIxNC41IC01N3QyMTQuNSA1N3QxNTUuNSAxNTUuNXQ1NyAyMTQuNWgxNTBxMCAtMTE3IC00NS41IC0yMjQgdC0xMjMgLTE4NC41dC0xODQuNSAtMTIzdC0yMjQgLTQ1LjV0LTIyNCA0NS41dC0xODQuNSAxMjN0LTEyMyAxODQuNXQtNDUuNSAyMjR0NDUuNSAyMjR0MTIzIDE4NC41dDE4NC41IDEyM3QyMjQgNDUuNXExOTIgMCAzNDcgLTExN3oiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDMxOyIgZD0iTTk0NyAxMDYwbDEzNSAxMzVxNyA3IDEyLjUgNXQ1LjUgLTEzdi0zNjFxMCAtMTEgLTcuNSAtMTguNXQtMTguNSAtNy41aC0zNjFxLTExIDAgLTEzIDUuNXQ1IDEyLjVsMTM0IDEzNHEtMTEwIDc1IC0yMzkgNzVxLTExNiAwIC0yMTQuNSAtNTd0LTE1NS41IC0xNTUuNXQtNTcgLTIxNC41aC0xNTBxMCAxMTcgNDUuNSAyMjR0MTIzIDE4NC41dDE4NC41IDEyM3QyMjQgNDUuNXExOTIgMCAzNDcgLTExN3pNMTAyNyA2MDBoMTUwIHEwIC0xMTcgLTQ1LjUgLTIyNHQtMTIzIC0xODQuNXQtMTg0LjUgLTEyM3QtMjI0IC00NS41cS0xOTIgMCAtMzQ4IDExOGwtMTM0IC0xMzRxLTcgLTggLTEyLjUgLTUuNXQtNS41IDEyLjV2MzYwcTAgMTEgNy41IDE4LjV0MTguNSA3LjVoMzYwcTEwIDAgMTIuNSAtNS41dC01LjUgLTEyLjVsLTEzMyAtMTMzcTExMCAtNzYgMjQwIC03NnExMTYgMCAyMTQuNSA1N3QxNTUuNSAxNTUuNXQ1NyAyMTQuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDMyOyIgZD0iTTEyNSAxMjAwaDEwNTBxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di0xMTUwcTAgLTEwIC03LjUgLTE3LjV0LTE3LjUgLTcuNWgtMTA1MHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djExNTBxMCAxMCA3LjUgMTcuNXQxNy41IDcuNXpNMTA3NSAxMDAwaC04NTBxLTEwIDAgLTE3LjUgLTcuNXQtNy41IC0xNy41di04NTBxMCAtMTAgNy41IC0xNy41dDE3LjUgLTcuNWg4NTBxMTAgMCAxNy41IDcuNXQ3LjUgMTcuNXY4NTAgcTAgMTAgLTcuNSAxNy41dC0xNy41IDcuNXpNMzI1IDkwMGg1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTUwcTAgLTEwIC03LjUgLTE3LjV0LTE3LjUgLTcuNWgtNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXY1MHEwIDEwIDcuNSAxNy41dDE3LjUgNy41ek01MjUgOTAwaDQ1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTUwcTAgLTEwIC03LjUgLTE3LjV0LTE3LjUgLTcuNWgtNDUwcS0xMCAwIC0xNy41IDcuNXQtNy41IDE3LjV2NTAgcTAgMTAgNy41IDE3LjV0MTcuNSA3LjV6TTMyNSA3MDBoNTBxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di01MHEwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTUwcS0xMCAwIC0xNy41IDcuNXQtNy41IDE3LjV2NTBxMCAxMCA3LjUgMTcuNXQxNy41IDcuNXpNNTI1IDcwMGg0NTBxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di01MHEwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTQ1MHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djUwIHEwIDEwIDcuNSAxNy41dDE3LjUgNy41ek0zMjUgNTAwaDUwcTEwIDAgMTcuNSAtNy41dDcuNSAtMTcuNXYtNTBxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC01MHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djUwcTAgMTAgNy41IDE3LjV0MTcuNSA3LjV6TTUyNSA1MDBoNDUwcTEwIDAgMTcuNSAtNy41dDcuNSAtMTcuNXYtNTBxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC00NTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXY1MCBxMCAxMCA3LjUgMTcuNXQxNy41IDcuNXpNMzI1IDMwMGg1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTUwcTAgLTEwIC03LjUgLTE3LjV0LTE3LjUgLTcuNWgtNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXY1MHEwIDEwIDcuNSAxNy41dDE3LjUgNy41ek01MjUgMzAwaDQ1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTUwcTAgLTEwIC03LjUgLTE3LjV0LTE3LjUgLTcuNWgtNDUwcS0xMCAwIC0xNy41IDcuNXQtNy41IDE3LjV2NTAgcTAgMTAgNy41IDE3LjV0MTcuNSA3LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTAzMzsiIGQ9Ik05MDAgODAwdjIwMHEwIDgzIC01OC41IDE0MS41dC0xNDEuNSA1OC41aC0zMDBxLTgyIDAgLTE0MSAtNTl0LTU5IC0xNDF2LTIwMGgtMTAwcS00MSAwIC03MC41IC0yOS41dC0yOS41IC03MC41di02MDBxMCAtNDEgMjkuNSAtNzAuNXQ3MC41IC0yOS41aDkwMHE0MSAwIDcwLjUgMjkuNXQyOS41IDcwLjV2NjAwcTAgNDEgLTI5LjUgNzAuNXQtNzAuNSAyOS41aC0xMDB6TTQwMCA4MDB2MTUwcTAgMjEgMTUgMzUuNXQzNSAxNC41aDIwMCBxMjAgMCAzNSAtMTQuNXQxNSAtMzUuNXYtMTUwaC0zMDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTAzNDsiIGQ9Ik0xMjUgMTEwMGg1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTEwNzVoLTEwMHYxMDc1cTAgMTAgNy41IDE3LjV0MTcuNSA3LjV6TTEwNzUgMTA1MnE0IDAgOSAtMnExNiAtNiAxNiAtMjN2LTQyMXEwIC02IC0zIC0xMnEtMzMgLTU5IC02Ni41IC05OXQtNjUuNSAtNTh0LTU2LjUgLTI0LjV0LTUyLjUgLTYuNXEtMjYgMCAtNTcuNSA2LjV0LTUyLjUgMTMuNXQtNjAgMjFxLTQxIDE1IC02MyAyMi41dC01Ny41IDE1dC02NS41IDcuNSBxLTg1IDAgLTE2MCAtNTdxLTcgLTUgLTE1IC01cS02IDAgLTExIDNxLTE0IDcgLTE0IDIydjQzOHEyMiA1NSA4MiA5OC41dDExOSA0Ni41cTIzIDIgNDMgMC41dDQzIC03dDMyLjUgLTguNXQzOCAtMTN0MzIuNSAtMTFxNDEgLTE0IDYzLjUgLTIxdDU3IC0xNHQ2My41IC03cTEwMyAwIDE4MyA4N3E3IDggMTggOHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDM1OyIgZD0iTTYwMCAxMTc1cTExNiAwIDIyNyAtNDkuNXQxOTIuNSAtMTMxdDEzMSAtMTkyLjV0NDkuNSAtMjI3di0zMDBxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC01MHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djMwMHEwIDEyNyAtNzAuNSAyMzEuNXQtMTg0LjUgMTYxLjV0LTI0NSA1N3QtMjQ1IC01N3QtMTg0LjUgLTE2MS41dC03MC41IC0yMzEuNXYtMzAwcTAgLTEwIC03LjUgLTE3LjV0LTE3LjUgLTcuNWgtNTAgcS0xMCAwIC0xNy41IDcuNXQtNy41IDE3LjV2MzAwcTAgMTE2IDQ5LjUgMjI3dDEzMSAxOTIuNXQxOTIuNSAxMzF0MjI3IDQ5LjV6TTIyMCA1MDBoMTYwcTggMCAxNCAtNnQ2IC0xNHYtNDYwcTAgLTggLTYgLTE0dC0xNCAtNmgtMTYwcS04IDAgLTE0IDZ0LTYgMTR2NDYwcTAgOCA2IDE0dDE0IDZ6TTgyMCA1MDBoMTYwcTggMCAxNCAtNnQ2IC0xNHYtNDYwcTAgLTggLTYgLTE0dC0xNCAtNmgtMTYwcS04IDAgLTE0IDZ0LTYgMTR2NDYwIHEwIDggNiAxNHQxNCA2eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwMzY7IiBkPSJNMzIxIDgxNGwyNTggMTcycTkgNiAxNSAyLjV0NiAtMTMuNXYtNzUwcTAgLTEwIC02IC0xMy41dC0xNSAyLjVsLTI1OCAxNzJxLTIxIDE0IC00NiAxNGgtMjUwcS0xMCAwIC0xNy41IDcuNXQtNy41IDE3LjV2MzUwcTAgMTAgNy41IDE3LjV0MTcuNSA3LjVoMjUwcTI1IDAgNDYgMTR6TTkwMCA2NjhsMTIwIDEyMHE3IDcgMTcgN3QxNyAtN2wzNCAtMzRxNyAtNyA3IC0xN3QtNyAtMTdsLTEyMCAtMTIwbDEyMCAtMTIwcTcgLTcgNyAtMTcgdC03IC0xN2wtMzQgLTM0cS03IC03IC0xNyAtN3QtMTcgN2wtMTIwIDExOWwtMTIwIC0xMTlxLTcgLTcgLTE3IC03dC0xNyA3bC0zNCAzNHEtNyA3IC03IDE3dDcgMTdsMTE5IDEyMGwtMTE5IDEyMHEtNyA3IC03IDE3dDcgMTdsMzQgMzRxNyA4IDE3IDh0MTcgLTh6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTAzNzsiIGQ9Ik0zMjEgODE0bDI1OCAxNzJxOSA2IDE1IDIuNXQ2IC0xMy41di03NTBxMCAtMTAgLTYgLTEzLjV0LTE1IDIuNWwtMjU4IDE3MnEtMjEgMTQgLTQ2IDE0aC0yNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXYzNTBxMCAxMCA3LjUgMTcuNXQxNy41IDcuNWgyNTBxMjUgMCA0NiAxNHpNNzY2IDkwMGg0cTEwIC0xIDE2IC0xMHE5NiAtMTI5IDk2IC0yOTBxMCAtMTU0IC05MCAtMjgxcS02IC05IC0xNyAtMTBsLTMgLTFxLTkgMCAtMTYgNiBsLTI5IDIzcS03IDcgLTguNSAxNi41dDQuNSAxNy41cTcyIDEwMyA3MiAyMjlxMCAxMzIgLTc4IDIzOHEtNiA4IC00LjUgMTh0OS41IDE3bDI5IDIycTcgNSAxNSA1eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwMzg7IiBkPSJNOTY3IDEwMDRoM3ExMSAtMSAxNyAtMTBxMTM1IC0xNzkgMTM1IC0zOTZxMCAtMTA1IC0zNCAtMjA2LjV0LTk4IC0xODUuNXEtNyAtOSAtMTcgLTEwaC0zcS05IDAgLTE2IDZsLTQyIDM0cS04IDYgLTkgMTZ0NSAxOHExMTEgMTUwIDExMSAzMjhxMCA5MCAtMjkuNSAxNzZ0LTg0LjUgMTU3cS02IDkgLTUgMTl0MTAgMTZsNDIgMzNxNyA1IDE1IDV6TTMyMSA4MTRsMjU4IDE3MnE5IDYgMTUgMi41dDYgLTEzLjV2LTc1MHEwIC0xMCAtNiAtMTMuNSB0LTE1IDIuNWwtMjU4IDE3MnEtMjEgMTQgLTQ2IDE0aC0yNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXYzNTBxMCAxMCA3LjUgMTcuNXQxNy41IDcuNWgyNTBxMjUgMCA0NiAxNHpNNzY2IDkwMGg0cTEwIC0xIDE2IC0xMHE5NiAtMTI5IDk2IC0yOTBxMCAtMTU0IC05MCAtMjgxcS02IC05IC0xNyAtMTBsLTMgLTFxLTkgMCAtMTYgNmwtMjkgMjNxLTcgNyAtOC41IDE2LjV0NC41IDE3LjVxNzIgMTAzIDcyIDIyOXEwIDEzMiAtNzggMjM4IHEtNiA4IC00LjUgMTguNXQ5LjUgMTYuNWwyOSAyMnE3IDUgMTUgNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDM5OyIgZD0iTTUwMCA5MDBoMTAwdi0xMDBoLTEwMHYtMTAwaC00MDB2LTEwMGgtMTAwdjYwMGg1MDB2LTMwMHpNMTIwMCA3MDBoLTIwMHYtMTAwaDIwMHYtMjAwaC0zMDB2MzAwaC0yMDB2MzAwaC0xMDB2MjAwaDYwMHYtNTAwek0xMDAgMTEwMHYtMzAwaDMwMHYzMDBoLTMwMHpNODAwIDExMDB2LTMwMGgzMDB2MzAwaC0zMDB6TTMwMCA5MDBoLTEwMHYxMDBoMTAwdi0xMDB6TTEwMDAgOTAwaC0xMDB2MTAwaDEwMHYtMTAwek0zMDAgNTAwaDIwMHYtNTAwIGgtNTAwdjUwMGgyMDB2MTAwaDEwMHYtMTAwek04MDAgMzAwaDIwMHYtMTAwaC0xMDB2LTEwMGgtMjAwdjEwMGgtMTAwdjEwMGgxMDB2MjAwaC0yMDB2MTAwaDMwMHYtMzAwek0xMDAgNDAwdi0zMDBoMzAwdjMwMGgtMzAwek0zMDAgMjAwaC0xMDB2MTAwaDEwMHYtMTAwek0xMjAwIDIwMGgtMTAwdjEwMGgxMDB2LTEwMHpNNzAwIDBoLTEwMHYxMDBoMTAwdi0xMDB6TTEyMDAgMGgtMzAwdjEwMGgzMDB2LTEwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDQwOyIgZD0iTTEwMCAyMDBoLTEwMHYxMDAwaDEwMHYtMTAwMHpNMzAwIDIwMGgtMTAwdjEwMDBoMTAwdi0xMDAwek03MDAgMjAwaC0yMDB2MTAwMGgyMDB2LTEwMDB6TTkwMCAyMDBoLTEwMHYxMDAwaDEwMHYtMTAwMHpNMTIwMCAyMDBoLTIwMHYxMDAwaDIwMHYtMTAwMHpNNDAwIDBoLTMwMHYxMDBoMzAwdi0xMDB6TTYwMCAwaC0xMDB2OTFoMTAwdi05MXpNODAwIDBoLTEwMHY5MWgxMDB2LTkxek0xMTAwIDBoLTIwMHY5MWgyMDB2LTkxeiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwNDE7IiBkPSJNNTAwIDEyMDBsNjgyIC02ODJxOCAtOCA4IC0xOHQtOCAtMThsLTQ2NCAtNDY0cS04IC04IC0xOCAtOHQtMTggOGwtNjgyIDY4MmwxIDQ3NXEwIDEwIDcuNSAxNy41dDE3LjUgNy41aDQ3NHpNMzE5LjUgMTAyNC41cS0yOS41IDI5LjUgLTcxIDI5LjV0LTcxIC0yOS41dC0yOS41IC03MS41dDI5LjUgLTcxLjV0NzEgLTI5LjV0NzEgMjkuNXQyOS41IDcxLjV0LTI5LjUgNzEuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDQyOyIgZD0iTTUwMCAxMjAwbDY4MiAtNjgycTggLTggOCAtMTh0LTggLTE4bC00NjQgLTQ2NHEtOCAtOCAtMTggLTh0LTE4IDhsLTY4MiA2ODJsMSA0NzVxMCAxMCA3LjUgMTcuNXQxNy41IDcuNWg0NzR6TTgwMCAxMjAwbDY4MiAtNjgycTggLTggOCAtMTh0LTggLTE4bC00NjQgLTQ2NHEtOCAtOCAtMTggLTh0LTE4IDhsLTU2IDU2bDQyNCA0MjZsLTcwMCA3MDBoMTUwek0zMTkuNSAxMDI0LjVxLTI5LjUgMjkuNSAtNzEgMjkuNXQtNzEgLTI5LjUgdC0yOS41IC03MS41dDI5LjUgLTcxLjV0NzEgLTI5LjV0NzEgMjkuNXQyOS41IDcxLjV0LTI5LjUgNzEuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDQzOyIgZD0iTTMwMCAxMjAwaDgyNXE3NSAwIDc1IC03NXYtOTAwcTAgLTI1IC0xOCAtNDNsLTY0IC02NHEtOCAtOCAtMTMgLTUuNXQtNSAxMi41djk1MHEwIDEwIC03LjUgMTcuNXQtMTcuNSA3LjVoLTcwMHEtMjUgMCAtNDMgLTE4bC02NCAtNjRxLTggLTggLTUuNSAtMTN0MTIuNSAtNWg3MDBxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di05NTBxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC04NTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXY5NzUgcTAgMjUgMTggNDNsMTM5IDEzOXExOCAxOCA0MyAxOHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDQ0OyIgZD0iTTI1MCAxMjAwaDgwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMTE1MGwtNDUwIDQ0NGwtNDUwIC00NDV2MTE1MXEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA0NTsiIGQ9Ik04MjIgMTIwMGgtNDQ0cS0xMSAwIC0xOSAtNy41dC05IC0xNy41bC03OCAtMzAxcS03IC0yNCA3IC00NWw1NyAtMTA4cTYgLTkgMTcuNSAtMTV0MjEuNSAtNmg0NTBxMTAgMCAyMS41IDZ0MTcuNSAxNWw2MiAxMDhxMTQgMjEgNyA0NWwtODMgMzAxcS0xIDEwIC05IDE3LjV0LTE5IDcuNXpNMTE3NSA4MDBoLTE1MHEtMTAgMCAtMjEgLTYuNXQtMTUgLTE1LjVsLTc4IC0xNTZxLTQgLTkgLTE1IC0xNS41dC0yMSAtNi41aC01NTAgcS0xMCAwIC0yMSA2LjV0LTE1IDE1LjVsLTc4IDE1NnEtNCA5IC0xNSAxNS41dC0yMSA2LjVoLTE1MHEtMTAgMCAtMTcuNSAtNy41dC03LjUgLTE3LjV2LTY1MHEwIC0xMCA3LjUgLTE3LjV0MTcuNSAtNy41aDE1MHExMCAwIDE3LjUgNy41dDcuNSAxNy41djE1MHEwIDEwIDcuNSAxNy41dDE3LjUgNy41aDc1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTE1MHEwIC0xMCA3LjUgLTE3LjV0MTcuNSAtNy41aDE1MHExMCAwIDE3LjUgNy41IHQ3LjUgMTcuNXY2NTBxMCAxMCAtNy41IDE3LjV0LTE3LjUgNy41ek04NTAgMjAwaC01MDBxLTEwIDAgLTE5LjUgLTd0LTExLjUgLTE3bC0zOCAtMTUycS0yIC0xMCAzLjUgLTE3dDE1LjUgLTdoNjAwcTEwIDAgMTUuNSA3dDMuNSAxN2wtMzggMTUycS0yIDEwIC0xMS41IDE3dC0xOS41IDd6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA0NjsiIGQ9Ik01MDAgMTEwMGgyMDBxNTYgMCAxMDIuNSAtMjAuNXQ3Mi41IC01MHQ0NCAtNTl0MjUgLTUwLjVsNiAtMjBoMTUwcTQxIDAgNzAuNSAtMjkuNXQyOS41IC03MC41di02MDBxMCAtNDEgLTI5LjUgLTcwLjV0LTcwLjUgLTI5LjVoLTEwMDBxLTQxIDAgLTcwLjUgMjkuNXQtMjkuNSA3MC41djYwMHEwIDQxIDI5LjUgNzAuNXQ3MC41IDI5LjVoMTUwcTIgOCA2LjUgMjEuNXQyNCA0OHQ0NSA2MXQ3MiA0OHQxMDIuNSAyMS41ek05MDAgODAwdi0xMDAgaDEwMHYxMDBoLTEwMHpNNjAwIDczMHEtOTUgMCAtMTYyLjUgLTY3LjV0LTY3LjUgLTE2Mi41dDY3LjUgLTE2Mi41dDE2Mi41IC02Ny41dDE2Mi41IDY3LjV0NjcuNSAxNjIuNXQtNjcuNSAxNjIuNXQtMTYyLjUgNjcuNXpNNjAwIDYwM3E0MyAwIDczIC0zMHQzMCAtNzN0LTMwIC03M3QtNzMgLTMwdC03MyAzMHQtMzAgNzN0MzAgNzN0NzMgMzB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA0NzsiIGQ9Ik02ODEgMTE5OWwzODUgLTk5OHEyMCAtNTAgNjAgLTkycTE4IC0xOSAzNi41IC0yOS41dDI3LjUgLTExLjVsMTAgLTJ2LTY2aC00MTd2NjZxNTMgMCA3NSA0My41dDUgODguNWwtODIgMjIyaC0zOTFxLTU4IC0xNDUgLTkyIC0yMzRxLTExIC0zNCAtNi41IC01N3QyNS41IC0zN3Q0NiAtMjB0NTUgLTZ2LTY2aC0zNjV2NjZxNTYgMjQgODQgNTJxMTIgMTIgMjUgMzAuNXQyMCAzMS41bDcgMTNsMzk5IDEwMDZoOTN6TTQxNiA1MjFoMzQwIGwtMTYyIDQ1N3oiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDQ4OyIgZD0iTTc1MyA2NDFxNSAtMSAxNC41IC00LjV0MzYgLTE1LjV0NTAuNSAtMjYuNXQ1My41IC00MHQ1MC41IC01NC41dDM1LjUgLTcwdDE0LjUgLTg3cTAgLTY3IC0yNy41IC0xMjUuNXQtNzEuNSAtOTcuNXQtOTguNSAtNjYuNXQtMTA4LjUgLTQwLjV0LTEwMiAtMTNoLTUwMHY4OXE0MSA3IDcwLjUgMzIuNXQyOS41IDY1LjV2ODI3cTAgMjQgLTAuNSAzNHQtMy41IDI0dC04LjUgMTkuNXQtMTcgMTMuNXQtMjggMTIuNXQtNDIuNSAxMS41djcxIGw0NzEgLTFxNTcgMCAxMTUuNSAtMjAuNXQxMDggLTU3dDgwLjUgLTk0dDMxIC0xMjQuNXEwIC01MSAtMTUuNSAtOTYuNXQtMzggLTc0LjV0LTQ1IC01MC41dC0zOC41IC0zMC41ek00MDAgNzAwaDEzOXE3OCAwIDEzMC41IDQ4LjV0NTIuNSAxMjIuNXEwIDQxIC04LjUgNzAuNXQtMjkuNSA1NS41dC02Mi41IDM5LjV0LTEwMy41IDEzLjVoLTExOHYtMzUwek00MDAgMjAwaDIxNnE4MCAwIDEyMSA1MC41dDQxIDEzMC41cTAgOTAgLTYyLjUgMTU0LjUgdC0xNTYuNSA2NC41aC0xNTl2LTQwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDQ5OyIgZD0iTTg3NyAxMjAwbDIgLTU3cS04MyAtMTkgLTExNiAtNDUuNXQtNDAgLTY2LjVsLTEzMiAtODM5cS05IC00OSAxMyAtNjl0OTYgLTI2di05N2gtNTAwdjk3cTE4NiAxNiAyMDAgOThsMTczIDgzMnEzIDE3IDMgMzB0LTEuNSAyMi41dC05IDE3LjV0LTEzLjUgMTIuNXQtMjEuNSAxMHQtMjYgOC41dC0zMy41IDEwcS0xMyAzIC0xOSA1djU3aDQyNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDUwOyIgZD0iTTEzMDAgOTAwaC01MHEwIDIxIC00IDM3dC05LjUgMjYuNXQtMTggMTcuNXQtMjIgMTF0LTI4LjUgNS41dC0zMSAydC0zNyAwLjVoLTIwMHYtODUwcTAgLTIyIDI1IC0zNC41dDUwIC0xMy41bDI1IC0ydi0xMDBoLTQwMHYxMDBxNCAwIDExIDAuNXQyNCAzdDMwIDd0MjQgMTV0MTEgMjQuNXY4NTBoLTIwMHEtMjUgMCAtMzcgLTAuNXQtMzEgLTJ0LTI4LjUgLTUuNXQtMjIgLTExdC0xOCAtMTcuNXQtOS41IC0yNi41dC00IC0zN2gtNTB2MzAwIGgxMDAwdi0zMDB6TTE3NSAxMDAwaC03NXYtODAwaDc1bC0xMjUgLTE2N2wtMTI1IDE2N2g3NXY4MDBoLTc1bDEyNSAxNjd6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA1MTsiIGQ9Ik0xMTAwIDkwMGgtNTBxMCAyMSAtNCAzN3QtOS41IDI2LjV0LTE4IDE3LjV0LTIyIDExdC0yOC41IDUuNXQtMzEgMnQtMzcgMC41aC0yMDB2LTY1MHEwIC0yMiAyNSAtMzQuNXQ1MCAtMTMuNWwyNSAtMnYtMTAwaC00MDB2MTAwcTQgMCAxMSAwLjV0MjQgM3QzMCA3dDI0IDE1dDExIDI0LjV2NjUwaC0yMDBxLTI1IDAgLTM3IC0wLjV0LTMxIC0ydC0yOC41IC01LjV0LTIyIC0xMXQtMTggLTE3LjV0LTkuNSAtMjYuNXQtNCAtMzdoLTUwdjMwMCBoMTAwMHYtMzAwek0xMTY3IDUwbC0xNjcgLTEyNXY3NWgtODAwdi03NWwtMTY3IDEyNWwxNjcgMTI1di03NWg4MDB2NzV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA1MjsiIGQ9Ik01MCAxMTAwaDYwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC02MDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTUwIDgwMGgxMDAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0xMDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTEwMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMCBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek01MCA1MDBoODAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0xMDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTgwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MTAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNNTAgMjAwaDExMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMTEwMCBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA1MzsiIGQ9Ik0yNTAgMTEwMGg3MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNzAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYxMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek01MCA4MDBoMTEwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xMTAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYxMDAgcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNMjUwIDUwMGg3MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNzAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYxMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek01MCAyMDBoMTEwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xMTAwIHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MTAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDU0OyIgZD0iTTUwMCA5NTB2MTAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNWg2MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNjAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXpNMTAwIDY1MHYxMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41aDEwMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMTAwMCBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41ek0zMDAgMzUwdjEwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjVoODAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0xMDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTgwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV6TTAgNTB2MTAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNWgxMTAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0xMDAgcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xMTAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDU1OyIgZD0iTTUwIDExMDBoMTEwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xMTAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYxMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek01MCA4MDBoMTEwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xMTAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYxMDAgcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNNTAgNTAwaDExMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMTEwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MTAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNNTAgMjAwaDExMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMTEwMCBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA1NjsiIGQ9Ik01MCAxMTAwaDEwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTM1MCAxMTAwaDgwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC04MDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMCBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek01MCA4MDBoMTAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0xMDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTEwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MTAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNMzUwIDgwMGg4MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtODAwIHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MTAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNNTAgNTAwaDEwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTM1MCA1MDBoODAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0xMDAgcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC04MDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTUwIDIwMGgxMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMTAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYxMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek0zNTAgMjAwaDgwMCBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtODAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYxMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwNTc7IiBkPSJNNDAwIDBoLTEwMHYxMTAwaDEwMHYtMTEwMHpNNTUwIDExMDBoMTAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0xMDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTEwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MTAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNNTUwIDgwMGg1MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNTAwIHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MTAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNMjY3IDU1MGwtMTY3IC0xMjV2NzVoLTIwMHYxMDBoMjAwdjc1ek01NTAgNTAwaDMwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0zMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTU1MCAyMDBoNjAwIHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC02MDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA1ODsiIGQ9Ik01MCAxMTAwaDEwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTkwMCAwaC0xMDB2MTEwMGgxMDB2LTExMDB6TTUwIDgwMGg1MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNTAwIHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MTAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNMTEwMCA2MDBoMjAwdi0xMDBoLTIwMHYtNzVsLTE2NyAxMjVsMTY3IDEyNXYtNzV6TTUwIDUwMGgzMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMzAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYxMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek01MCAyMDBoNjAwIHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC02MDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA1OTsiIGQ9Ik03NSAxMDAwaDc1MHEzMSAwIDUzIC0yMnQyMiAtNTN2LTY1MHEwIC0zMSAtMjIgLTUzdC01MyAtMjJoLTc1MHEtMzEgMCAtNTMgMjJ0LTIyIDUzdjY1MHEwIDMxIDIyIDUzdDUzIDIyek0xMjAwIDMwMGwtMzAwIDMwMGwzMDAgMzAwdi02MDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA2MDsiIGQ9Ik00NCAxMTAwaDExMTJxMTggMCAzMSAtMTN0MTMgLTMxdi0xMDEycTAgLTE4IC0xMyAtMzF0LTMxIC0xM2gtMTExMnEtMTggMCAtMzEgMTN0LTEzIDMxdjEwMTJxMCAxOCAxMyAzMXQzMSAxM3pNMTAwIDEwMDB2LTczN2wyNDcgMTgybDI5OCAtMTMxbC03NCAxNTZsMjkzIDMxOGwyMzYgLTI4OHY1MDBoLTEwMDB6TTM0MiA4ODRxNTYgMCA5NSAtMzl0MzkgLTk0LjV0LTM5IC05NXQtOTUgLTM5LjV0LTk1IDM5LjV0LTM5IDk1dDM5IDk0LjUgdDk1IDM5eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwNjI7IiBkPSJNNjQ4IDExNjlxMTE3IDAgMjE2IC02MHQxNTYuNSAtMTYxdDU3LjUgLTIxOHEwIC0xMTUgLTcwIC0yNThxLTY5IC0xMDkgLTE1OCAtMjI1LjV0LTE0MyAtMTc5LjVsLTU0IC02MnEtOSA4IC0yNS41IDI0LjV0LTYzLjUgNjcuNXQtOTEgMTAzdC05OC41IDEyOHQtOTUuNSAxNDhxLTYwIDEzMiAtNjAgMjQ5cTAgODggMzQgMTY5LjV0OTEuNSAxNDJ0MTM3IDk2LjV0MTY2LjUgMzZ6TTY1Mi41IDk3NHEtOTEuNSAwIC0xNTYuNSAtNjUgdC02NSAtMTU3dDY1IC0xNTYuNXQxNTYuNSAtNjQuNXQxNTYuNSA2NC41dDY1IDE1Ni41dC02NSAxNTd0LTE1Ni41IDY1eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwNjM7IiBkPSJNNjAwIDExNzdxMTE3IDAgMjI0IC00NS41dDE4NC41IC0xMjN0MTIzIC0xODQuNXQ0NS41IC0yMjR0LTQ1LjUgLTIyNHQtMTIzIC0xODQuNXQtMTg0LjUgLTEyM3QtMjI0IC00NS41dC0yMjQgNDUuNXQtMTg0LjUgMTIzdC0xMjMgMTg0LjV0LTQ1LjUgMjI0dDQ1LjUgMjI0dDEyMyAxODQuNXQxODQuNSAxMjN0MjI0IDQ1LjV6TTYwMCAxNzN2ODU0cS0xMTYgMCAtMjE0LjUgLTU3dC0xNTUuNSAtMTU1LjV0LTU3IC0yMTQuNXQ1NyAtMjE0LjUgdDE1NS41IC0xNTUuNXQyMTQuNSAtNTd6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA2NDsiIGQ9Ik01NTQgMTI5NXEyMSAtNzIgNTcuNSAtMTQzLjV0NzYgLTEzMHQ4MyAtMTE4dDgyLjUgLTExN3Q3MCAtMTE2dDQ5LjUgLTEyNnQxOC41IC0xMzYuNXEwIC03MSAtMjUuNSAtMTM1dC02OC41IC0xMTF0LTk5IC04MnQtMTE4LjUgLTU0dC0xMjUuNSAtMjNxLTg0IDUgLTE2MS41IDM0dC0xMzkuNSA3OC41dC05OSAxMjV0LTM3IDE2NC41cTAgNjkgMTggMTM2LjV0NDkuNSAxMjYuNXQ2OS41IDExNi41dDgxLjUgMTE3LjV0ODMuNSAxMTkgdDc2LjUgMTMxdDU4LjUgMTQzek0zNDQgNzEwcS0yMyAtMzMgLTQzLjUgLTcwLjV0LTQwLjUgLTEwMi41dC0xNyAtMTIzcTEgLTM3IDE0LjUgLTY5LjV0MzAgLTUydDQxIC0zN3QzOC41IC0yNC41dDMzIC0xNXEyMSAtNyAzMiAtMXQxMyAyMmw2IDM0cTIgMTAgLTIuNSAyMnQtMTMuNSAxOXEtNSA0IC0xNCAxMnQtMjkuNSA0MC41dC0zMi41IDczLjVxLTI2IDg5IDYgMjcxcTIgMTEgLTYgMTFxLTggMSAtMTUgLTEweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwNjU7IiBkPSJNMTAwMCAxMDEzbDEwOCAxMTVxMiAxIDUgMnQxMyAydDIwLjUgLTF0MjUgLTkuNXQyOC41IC0yMS41cTIyIC0yMiAyNyAtNDN0MCAtMzJsLTYgLTEwbC0xMDggLTExNXpNMzUwIDExMDBoNDAwcTUwIDAgMTA1IC0xM2wtMTg3IC0xODdoLTM2OHEtNDEgMCAtNzAuNSAtMjkuNXQtMjkuNSAtNzAuNXYtNTAwcTAgLTQxIDI5LjUgLTcwLjV0NzAuNSAtMjkuNWg1MDBxNDEgMCA3MC41IDI5LjV0MjkuNSA3MC41djE4MmwyMDAgMjAwdi0zMzIgcTAgLTE2NSAtOTMuNSAtMjU3LjV0LTI1Ni41IC05Mi41aC00MDBxLTE2NSAwIC0yNTcuNSA5Mi41dC05Mi41IDI1Ny41djQwMHEwIDE2NSA5Mi41IDI1Ny41dDI1Ny41IDkyLjV6TTEwMDkgODAzbC0zNjIgLTM2MmwtMTYxIC01MGw1NSAxNzBsMzU1IDM1NXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDY2OyIgZD0iTTM1MCAxMTAwaDM2MXEtMTY0IC0xNDYgLTIxNiAtMjAwaC0xOTVxLTQxIDAgLTcwLjUgLTI5LjV0LTI5LjUgLTcwLjV2LTUwMHEwIC00MSAyOS41IC03MC41dDcwLjUgLTI5LjVoNTAwcTQxIDAgNzAuNSAyOS41dDI5LjUgNzAuNWwyMDAgMTUzdi0xMDNxMCAtMTY1IC05Mi41IC0yNTcuNXQtMjU3LjUgLTkyLjVoLTQwMHEtMTY1IDAgLTI1Ny41IDkyLjV0LTkyLjUgMjU3LjV2NDAwcTAgMTY1IDkyLjUgMjU3LjV0MjU3LjUgOTIuNXogTTgyNCAxMDczbDMzOSAtMzAxcTggLTcgOCAtMTcuNXQtOCAtMTcuNWwtMzQwIC0zMDZxLTcgLTYgLTEyLjUgLTR0LTYuNSAxMXYyMDNxLTI2IDEgLTU0LjUgMHQtNzguNSAtNy41dC05MiAtMTcuNXQtODYgLTM1dC03MCAtNTdxMTAgNTkgMzMgMTA4dDUxLjUgODEuNXQ2NSA1OC41dDY4LjUgNDAuNXQ2NyAyNC41dDU2IDEzLjV0NDAgNC41djIxMHExIDEwIDYuNSAxMi41dDEzLjUgLTQuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDY3OyIgZD0iTTM1MCAxMTAwaDM1MHE2MCAwIDEyNyAtMjNsLTE3OCAtMTc3aC0zNDlxLTQxIDAgLTcwLjUgLTI5LjV0LTI5LjUgLTcwLjV2LTUwMHEwIC00MSAyOS41IC03MC41dDcwLjUgLTI5LjVoNTAwcTQxIDAgNzAuNSAyOS41dDI5LjUgNzAuNXY2OWwyMDAgMjAwdi0yMTlxMCAtMTY1IC05Mi41IC0yNTcuNXQtMjU3LjUgLTkyLjVoLTQwMHEtMTY1IDAgLTI1Ny41IDkyLjV0LTkyLjUgMjU3LjV2NDAwcTAgMTY1IDkyLjUgMjU3LjV0MjU3LjUgOTIuNXogTTY0MyA2MzlsMzk1IDM5NXE3IDcgMTcuNSA3dDE3LjUgLTdsMTAxIC0xMDFxNyAtNyA3IC0xNy41dC03IC0xNy41bC01MzEgLTUzMnEtNyAtNyAtMTcuNSAtN3QtMTcuNSA3bC0yNDggMjQ4cS03IDcgLTcgMTcuNXQ3IDE3LjVsMTAxIDEwMXE3IDcgMTcuNSA3dDE3LjUgLTdsMTExIC0xMTFxOCAtNyAxOCAtN3QxOCA3eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwNjg7IiBkPSJNMzE4IDkxOGwyNjQgMjY0cTggOCAxOCA4dDE4IC04bDI2MCAtMjY0cTcgLTggNC41IC0xM3QtMTIuNSAtNWgtMTcwdi0yMDBoMjAwdjE3M3EwIDEwIDUgMTJ0MTMgLTVsMjY0IC0yNjBxOCAtNyA4IC0xNy41dC04IC0xNy41bC0yNjQgLTI2NXEtOCAtNyAtMTMgLTV0LTUgMTJ2MTczaC0yMDB2LTIwMGgxNzBxMTAgMCAxMi41IC01dC00LjUgLTEzbC0yNjAgLTI2NHEtOCAtOCAtMTggLTh0LTE4IDhsLTI2NCAyNjRxLTggOCAtNS41IDEzIHQxMi41IDVoMTc1djIwMGgtMjAwdi0xNzNxMCAtMTAgLTUgLTEydC0xMyA1bC0yNjQgMjY1cS04IDcgLTggMTcuNXQ4IDE3LjVsMjY0IDI2MHE4IDcgMTMgNXQ1IC0xMnYtMTczaDIwMHYyMDBoLTE3NXEtMTAgMCAtMTIuNSA1dDUuNSAxM3oiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDY5OyIgZD0iTTI1MCAxMTAwaDEwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtNDM4bDQ2NCA0NTNxMTUgMTQgMjUuNSAxMHQxMC41IC0yNXYtMTAwMHEwIC0yMSAtMTAuNSAtMjV0LTI1LjUgMTBsLTQ2NCA0NTN2LTQzOHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMTAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYxMDAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDcwOyIgZD0iTTUwIDExMDBoMTAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di00MzhsNDY0IDQ1M3ExNSAxNCAyNS41IDEwdDEwLjUgLTI1di00MzhsNDY0IDQ1M3ExNSAxNCAyNS41IDEwdDEwLjUgLTI1di0xMDAwcTAgLTIxIC0xMC41IC0yNXQtMjUuNSAxMGwtNDY0IDQ1M3YtNDM4cTAgLTIxIC0xMC41IC0yNXQtMjUuNSAxMGwtNDY0IDQ1M3YtNDM4cTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xMDBxLTIxIDAgLTM1LjUgMTQuNSB0LTE0LjUgMzUuNXYxMDAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDcxOyIgZD0iTTEyMDAgMTA1MHYtMTAwMHEwIC0yMSAtMTAuNSAtMjV0LTI1LjUgMTBsLTQ2NCA0NTN2LTQzOHEwIC0yMSAtMTAuNSAtMjV0LTI1LjUgMTBsLTQ5MiA0ODBxLTE1IDE0IC0xNSAzNXQxNSAzNWw0OTIgNDgwcTE1IDE0IDI1LjUgMTB0MTAuNSAtMjV2LTQzOGw0NjQgNDUzcTE1IDE0IDI1LjUgMTB0MTAuNSAtMjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA3MjsiIGQ9Ik0yNDMgMTA3NGw4MTQgLTQ5OHExOCAtMTEgMTggLTI2dC0xOCAtMjZsLTgxNCAtNDk4cS0xOCAtMTEgLTMwLjUgLTR0LTEyLjUgMjh2MTAwMHEwIDIxIDEyLjUgMjh0MzAuNSAtNHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDczOyIgZD0iTTI1MCAxMDAwaDIwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtODAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0yMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djgwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTY1MCAxMDAwaDIwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtODAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0yMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djgwMCBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwNzQ7IiBkPSJNMTEwMCA5NTB2LTgwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtODAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXY4MDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41aDgwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDc1OyIgZD0iTTUwMCA2MTJ2NDM4cTAgMjEgMTAuNSAyNXQyNS41IC0xMGw0OTIgLTQ4MHExNSAtMTQgMTUgLTM1dC0xNSAtMzVsLTQ5MiAtNDgwcS0xNSAtMTQgLTI1LjUgLTEwdC0xMC41IDI1djQzOGwtNDY0IC00NTNxLTE1IC0xNCAtMjUuNSAtMTB0LTEwLjUgMjV2MTAwMHEwIDIxIDEwLjUgMjV0MjUuNSAtMTB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA3NjsiIGQ9Ik0xMDQ4IDExMDJsMTAwIDFxMjAgMCAzNSAtMTQuNXQxNSAtMzUuNWw1IC0xMDAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41bC0xMDAgLTFxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41bC0yIDQzN2wtNDYzIC00NTRxLTE0IC0xNSAtMjQuNSAtMTAuNXQtMTAuNSAyNS41bC0yIDQzN2wtNDYyIC00NTVxLTE1IC0xNCAtMjUuNSAtOS41dC0xMC41IDI0LjVsLTUgMTAwMHEwIDIxIDEwLjUgMjUuNXQyNS41IC0xMC41bDQ2NiAtNDUwIGwtMiA0MzhxMCAyMCAxMC41IDI0LjV0MjUuNSAtOS41bDQ2NiAtNDUxbC0yIDQzOHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA3NzsiIGQ9Ik04NTAgMTEwMGgxMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTEwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2NDM4bC00NjQgLTQ1M3EtMTUgLTE0IC0yNS41IC0xMHQtMTAuNSAyNXYxMDAwcTAgMjEgMTAuNSAyNXQyNS41IC0xMGw0NjQgLTQ1M3Y0MzhxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwNzg7IiBkPSJNNjg2IDEwODFsNTAxIC01NDBxMTUgLTE1IDEwLjUgLTI2dC0yNi41IC0xMWgtMTA0MnEtMjIgMCAtMjYuNSAxMXQxMC41IDI2bDUwMSA1NDBxMTUgMTUgMzYgMTV0MzYgLTE1ek0xNTAgNDAwaDEwMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMTAwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MTAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDc5OyIgZD0iTTg4NSA5MDBsLTM1MiAtMzUzbDM1MiAtMzUzbC0xOTcgLTE5OGwtNTUyIDU1Mmw1NTIgNTUweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwODA7IiBkPSJNMTA2NCA1NDdsLTU1MSAtNTUxbC0xOTggMTk4bDM1MyAzNTNsLTM1MyAzNTNsMTk4IDE5OHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDgxOyIgZD0iTTYwMCAxMTc3cTExNyAwIDIyNCAtNDUuNXQxODQuNSAtMTIzdDEyMyAtMTg0LjV0NDUuNSAtMjI0dC00NS41IC0yMjR0LTEyMyAtMTg0LjV0LTE4NC41IC0xMjN0LTIyNCAtNDUuNXQtMjI0IDQ1LjV0LTE4NC41IDEyM3QtMTIzIDE4NC41dC00NS41IDIyNHQ0NS41IDIyNHQxMjMgMTg0LjV0MTg0LjUgMTIzdDIyNCA0NS41ek02NTAgOTAwaC0xMDBxLTIxIDAgLTM1LjUgLTE0LjV0LTE0LjUgLTM1LjV2LTE1MGgtMTUwIHEtMjEgMCAtMzUuNSAtMTQuNXQtMTQuNSAtMzUuNXYtMTAwcTAgLTIxIDE0LjUgLTM1LjV0MzUuNSAtMTQuNWgxNTB2LTE1MHEwIC0yMSAxNC41IC0zNS41dDM1LjUgLTE0LjVoMTAwcTIxIDAgMzUuNSAxNC41dDE0LjUgMzUuNXYxNTBoMTUwcTIxIDAgMzUuNSAxNC41dDE0LjUgMzUuNXYxMDBxMCAyMSAtMTQuNSAzNS41dC0zNS41IDE0LjVoLTE1MHYxNTBxMCAyMSAtMTQuNSAzNS41dC0zNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA4MjsiIGQ9Ik02MDAgMTE3N3ExMTcgMCAyMjQgLTQ1LjV0MTg0LjUgLTEyM3QxMjMgLTE4NC41dDQ1LjUgLTIyNHQtNDUuNSAtMjI0dC0xMjMgLTE4NC41dC0xODQuNSAtMTIzdC0yMjQgLTQ1LjV0LTIyNCA0NS41dC0xODQuNSAxMjN0LTEyMyAxODQuNXQtNDUuNSAyMjR0NDUuNSAyMjR0MTIzIDE4NC41dDE4NC41IDEyM3QyMjQgNDUuNXpNODUwIDcwMGgtNTAwcS0yMSAwIC0zNS41IC0xNC41dC0xNC41IC0zNS41di0xMDBxMCAtMjEgMTQuNSAtMzUuNSB0MzUuNSAtMTQuNWg1MDBxMjEgMCAzNS41IDE0LjV0MTQuNSAzNS41djEwMHEwIDIxIC0xNC41IDM1LjV0LTM1LjUgMTQuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDgzOyIgZD0iTTYwMCAxMTc3cTExNyAwIDIyNCAtNDUuNXQxODQuNSAtMTIzdDEyMyAtMTg0LjV0NDUuNSAtMjI0dC00NS41IC0yMjR0LTEyMyAtMTg0LjV0LTE4NC41IC0xMjN0LTIyNCAtNDUuNXQtMjI0IDQ1LjV0LTE4NC41IDEyM3QtMTIzIDE4NC41dC00NS41IDIyNHQ0NS41IDIyNHQxMjMgMTg0LjV0MTg0LjUgMTIzdDIyNCA0NS41ek03NDEuNSA5MTNxLTEyLjUgMCAtMjEuNSAtOWwtMTIwIC0xMjBsLTEyMCAxMjBxLTkgOSAtMjEuNSA5IHQtMjEuNSAtOWwtMTQxIC0xNDFxLTkgLTkgLTkgLTIxLjV0OSAtMjEuNWwxMjAgLTEyMGwtMTIwIC0xMjBxLTkgLTkgLTkgLTIxLjV0OSAtMjEuNWwxNDEgLTE0MXE5IC05IDIxLjUgLTl0MjEuNSA5bDEyMCAxMjBsMTIwIC0xMjBxOSAtOSAyMS41IC05dDIxLjUgOWwxNDEgMTQxcTkgOSA5IDIxLjV0LTkgMjEuNWwtMTIwIDEyMGwxMjAgMTIwcTkgOSA5IDIxLjV0LTkgMjEuNWwtMTQxIDE0MXEtOSA5IC0yMS41IDl6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA4NDsiIGQ9Ik02MDAgMTE3N3ExMTcgMCAyMjQgLTQ1LjV0MTg0LjUgLTEyM3QxMjMgLTE4NC41dDQ1LjUgLTIyNHQtNDUuNSAtMjI0dC0xMjMgLTE4NC41dC0xODQuNSAtMTIzdC0yMjQgLTQ1LjV0LTIyNCA0NS41dC0xODQuNSAxMjN0LTEyMyAxODQuNXQtNDUuNSAyMjR0NDUuNSAyMjR0MTIzIDE4NC41dDE4NC41IDEyM3QyMjQgNDUuNXpNNTQ2IDYyM2wtODQgODVxLTcgNyAtMTcuNSA3dC0xOC41IC03bC0xMzkgLTEzOXEtNyAtOCAtNyAtMTh0NyAtMTggbDI0MiAtMjQxcTcgLTggMTcuNSAtOHQxNy41IDhsMzc1IDM3NXE3IDcgNyAxNy41dC03IDE4LjVsLTEzOSAxMzlxLTcgNyAtMTcuNSA3dC0xNy41IC03eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwODU7IiBkPSJNNjAwIDExNzdxMTE3IDAgMjI0IC00NS41dDE4NC41IC0xMjN0MTIzIC0xODQuNXQ0NS41IC0yMjR0LTQ1LjUgLTIyNHQtMTIzIC0xODQuNXQtMTg0LjUgLTEyM3QtMjI0IC00NS41dC0yMjQgNDUuNXQtMTg0LjUgMTIzdC0xMjMgMTg0LjV0LTQ1LjUgMjI0dDQ1LjUgMjI0dDEyMyAxODQuNXQxODQuNSAxMjN0MjI0IDQ1LjV6TTU4OCA5NDFxLTI5IDAgLTU5IC01LjV0LTYzIC0yMC41dC01OCAtMzguNXQtNDEuNSAtNjN0LTE2LjUgLTg5LjUgcTAgLTI1IDIwIC0yNWgxMzFxMzAgLTUgMzUgMTFxNiAyMCAyMC41IDI4dDQ1LjUgOHEyMCAwIDMxLjUgLTEwLjV0MTEuNSAtMjguNXEwIC0yMyAtNyAtMzR0LTI2IC0xOHEtMSAwIC0xMy41IC00dC0xOS41IC03LjV0LTIwIC0xMC41dC0yMiAtMTd0LTE4LjUgLTI0dC0xNS41IC0zNXQtOCAtNDZxLTEgLTggNS41IC0xNi41dDIwLjUgLTguNWgxNzNxNyAwIDIyIDh0MzUgMjh0MzcuNSA0OHQyOS41IDc0dDEyIDEwMHEwIDQ3IC0xNyA4MyB0LTQyLjUgNTd0LTU5LjUgMzQuNXQtNjQgMTh0LTU5IDQuNXpNNjc1IDQwMGgtMTUwcS0xMCAwIC0xNy41IC03LjV0LTcuNSAtMTcuNXYtMTUwcTAgLTEwIDcuNSAtMTcuNXQxNy41IC03LjVoMTUwcTEwIDAgMTcuNSA3LjV0Ny41IDE3LjV2MTUwcTAgMTAgLTcuNSAxNy41dC0xNy41IDcuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDg2OyIgZD0iTTYwMCAxMTc3cTExNyAwIDIyNCAtNDUuNXQxODQuNSAtMTIzdDEyMyAtMTg0LjV0NDUuNSAtMjI0dC00NS41IC0yMjR0LTEyMyAtMTg0LjV0LTE4NC41IC0xMjN0LTIyNCAtNDUuNXQtMjI0IDQ1LjV0LTE4NC41IDEyM3QtMTIzIDE4NC41dC00NS41IDIyNHQ0NS41IDIyNHQxMjMgMTg0LjV0MTg0LjUgMTIzdDIyNCA0NS41ek02NzUgMTAwMGgtMTUwcS0xMCAwIC0xNy41IC03LjV0LTcuNSAtMTcuNXYtMTUwcTAgLTEwIDcuNSAtMTcuNSB0MTcuNSAtNy41aDE1MHExMCAwIDE3LjUgNy41dDcuNSAxNy41djE1MHEwIDEwIC03LjUgMTcuNXQtMTcuNSA3LjV6TTY3NSA3MDBoLTI1MHEtMTAgMCAtMTcuNSAtNy41dC03LjUgLTE3LjV2LTUwcTAgLTEwIDcuNSAtMTcuNXQxNy41IC03LjVoNzV2LTIwMGgtNzVxLTEwIDAgLTE3LjUgLTcuNXQtNy41IC0xNy41di01MHEwIC0xMCA3LjUgLTE3LjV0MTcuNSAtNy41aDM1MHExMCAwIDE3LjUgNy41dDcuNSAxNy41djUwcTAgMTAgLTcuNSAxNy41IHQtMTcuNSA3LjVoLTc1djI3NXEwIDEwIC03LjUgMTcuNXQtMTcuNSA3LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA4NzsiIGQ9Ik01MjUgMTIwMGgxNTBxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di0xOTRxMTAzIC0yNyAxNzguNSAtMTAyLjV0MTAyLjUgLTE3OC41aDE5NHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTE1MHEwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTE5NHEtMjcgLTEwMyAtMTAyLjUgLTE3OC41dC0xNzguNSAtMTAyLjV2LTE5NHEwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTE1MHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djE5NCBxLTEwMyAyNyAtMTc4LjUgMTAyLjV0LTEwMi41IDE3OC41aC0xOTRxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXYxNTBxMCAxMCA3LjUgMTcuNXQxNy41IDcuNWgxOTRxMjcgMTAzIDEwMi41IDE3OC41dDE3OC41IDEwMi41djE5NHEwIDEwIDcuNSAxNy41dDE3LjUgNy41ek03MDAgODkzdi0xNjhxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC0xNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXYxNjhxLTY4IC0yMyAtMTE5IC03NCB0LTc0IC0xMTloMTY4cTEwIDAgMTcuNSAtNy41dDcuNSAtMTcuNXYtMTUwcTAgLTEwIC03LjUgLTE3LjV0LTE3LjUgLTcuNWgtMTY4cTIzIC02OCA3NCAtMTE5dDExOSAtNzR2MTY4cTAgMTAgNy41IDE3LjV0MTcuNSA3LjVoMTUwcTEwIDAgMTcuNSAtNy41dDcuNSAtMTcuNXYtMTY4cTY4IDIzIDExOSA3NHQ3NCAxMTloLTE2OHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djE1MHEwIDEwIDcuNSAxNy41dDE3LjUgNy41aDE2OCBxLTIzIDY4IC03NCAxMTl0LTExOSA3NHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDg4OyIgZD0iTTYwMCAxMTc3cTExNyAwIDIyNCAtNDUuNXQxODQuNSAtMTIzdDEyMyAtMTg0LjV0NDUuNSAtMjI0dC00NS41IC0yMjR0LTEyMyAtMTg0LjV0LTE4NC41IC0xMjN0LTIyNCAtNDUuNXQtMjI0IDQ1LjV0LTE4NC41IDEyM3QtMTIzIDE4NC41dC00NS41IDIyNHQ0NS41IDIyNHQxMjMgMTg0LjV0MTg0LjUgMTIzdDIyNCA0NS41ek02MDAgMTAyN3EtMTE2IDAgLTIxNC41IC01N3QtMTU1LjUgLTE1NS41dC01NyAtMjE0LjV0NTcgLTIxNC41IHQxNTUuNSAtMTU1LjV0MjE0LjUgLTU3dDIxNC41IDU3dDE1NS41IDE1NS41dDU3IDIxNC41dC01NyAyMTQuNXQtMTU1LjUgMTU1LjV0LTIxNC41IDU3ek03NTkgODIzbDY0IC02NHE3IC03IDcgLTE3LjV0LTcgLTE3LjVsLTEyNCAtMTI0bDEyNCAtMTI0cTcgLTcgNyAtMTcuNXQtNyAtMTcuNWwtNjQgLTY0cS03IC03IC0xNy41IC03dC0xNy41IDdsLTEyNCAxMjRsLTEyNCAtMTI0cS03IC03IC0xNy41IC03dC0xNy41IDdsLTY0IDY0IHEtNyA3IC03IDE3LjV0NyAxNy41bDEyNCAxMjRsLTEyNCAxMjRxLTcgNyAtNyAxNy41dDcgMTcuNWw2NCA2NHE3IDcgMTcuNSA3dDE3LjUgLTdsMTI0IC0xMjRsMTI0IDEyNHE3IDcgMTcuNSA3dDE3LjUgLTd6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA4OTsiIGQ9Ik02MDAgMTE3N3ExMTcgMCAyMjQgLTQ1LjV0MTg0LjUgLTEyM3QxMjMgLTE4NC41dDQ1LjUgLTIyNHQtNDUuNSAtMjI0dC0xMjMgLTE4NC41dC0xODQuNSAtMTIzdC0yMjQgLTQ1LjV0LTIyNCA0NS41dC0xODQuNSAxMjN0LTEyMyAxODQuNXQtNDUuNSAyMjR0NDUuNSAyMjR0MTIzIDE4NC41dDE4NC41IDEyM3QyMjQgNDUuNXpNNjAwIDEwMjdxLTExNiAwIC0yMTQuNSAtNTd0LTE1NS41IC0xNTUuNXQtNTcgLTIxNC41dDU3IC0yMTQuNSB0MTU1LjUgLTE1NS41dDIxNC41IC01N3QyMTQuNSA1N3QxNTUuNSAxNTUuNXQ1NyAyMTQuNXQtNTcgMjE0LjV0LTE1NS41IDE1NS41dC0yMTQuNSA1N3pNNzgyIDc4OGwxMDYgLTEwNnE3IC03IDcgLTE3LjV0LTcgLTE3LjVsLTMyMCAtMzIxcS04IC03IC0xOCAtN3QtMTggN2wtMjAyIDIwM3EtOCA3IC04IDE3LjV0OCAxNy41bDEwNiAxMDZxNyA4IDE3LjUgOHQxNy41IC04bDc5IC03OWwxOTcgMTk3cTcgNyAxNy41IDd0MTcuNSAtN3oiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDkwOyIgZD0iTTYwMCAxMTc3cTExNyAwIDIyNCAtNDUuNXQxODQuNSAtMTIzdDEyMyAtMTg0LjV0NDUuNSAtMjI0dC00NS41IC0yMjR0LTEyMyAtMTg0LjV0LTE4NC41IC0xMjN0LTIyNCAtNDUuNXQtMjI0IDQ1LjV0LTE4NC41IDEyM3QtMTIzIDE4NC41dC00NS41IDIyNHQ0NS41IDIyNHQxMjMgMTg0LjV0MTg0LjUgMTIzdDIyNCA0NS41ek02MDAgMTAyN3EtMTE2IDAgLTIxNC41IC01N3QtMTU1LjUgLTE1NS41dC01NyAtMjE0LjVxMCAtMTIwIDY1IC0yMjUgbDU4NyA1ODdxLTEwNSA2NSAtMjI1IDY1ek05NjUgODE5bC01ODQgLTU4NHExMDQgLTYyIDIxOSAtNjJxMTE2IDAgMjE0LjUgNTd0MTU1LjUgMTU1LjV0NTcgMjE0LjVxMCAxMTUgLTYyIDIxOXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDkxOyIgZD0iTTM5IDU4Mmw1MjIgNDI3cTE2IDEzIDI3LjUgOHQxMS41IC0yNnYtMjkxaDU1MHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMjAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC01NTB2LTI5MXEwIC0yMSAtMTEuNSAtMjZ0LTI3LjUgOGwtNTIyIDQyN3EtMTYgMTMgLTE2IDMydDE2IDMyeiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwOTI7IiBkPSJNNjM5IDEwMDlsNTIyIC00MjdxMTYgLTEzIDE2IC0zMnQtMTYgLTMybC01MjIgLTQyN3EtMTYgLTEzIC0yNy41IC04dC0xMS41IDI2djI5MWgtNTUwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYyMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41aDU1MHYyOTFxMCAyMSAxMS41IDI2dDI3LjUgLTh6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA5MzsiIGQ9Ik02ODIgMTE2MWw0MjcgLTUyMnExMyAtMTYgOCAtMjcuNXQtMjYgLTExLjVoLTI5MXYtNTUwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0yMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djU1MGgtMjkxcS0yMSAwIC0yNiAxMS41dDggMjcuNWw0MjcgNTIycTEzIDE2IDMyIDE2dDMyIC0xNnoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDk0OyIgZD0iTTU1MCAxMjAwaDIwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtNTUwaDI5MXEyMSAwIDI2IC0xMS41dC04IC0yNy41bC00MjcgLTUyMnEtMTMgLTE2IC0zMiAtMTZ0LTMyIDE2bC00MjcgNTIycS0xMyAxNiAtOCAyNy41dDI2IDExLjVoMjkxdjU1MHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA5NTsiIGQ9Ik02MzkgMTEwOWw1MjIgLTQyN3ExNiAtMTMgMTYgLTMydC0xNiAtMzJsLTUyMiAtNDI3cS0xNiAtMTMgLTI3LjUgLTh0LTExLjUgMjZ2MjkxcS05NCAtMiAtMTgyIC0yMHQtMTcwLjUgLTUydC0xNDcgLTkyLjV0LTEwMC41IC0xMzUuNXE1IDEwNSAyNyAxOTMuNXQ2Ny41IDE2N3QxMTMgMTM1dDE2NyA5MS41dDIyNS41IDQydjI2MnEwIDIxIDExLjUgMjZ0MjcuNSAtOHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDk2OyIgZD0iTTg1MCAxMjAwaDMwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMzAwcTAgLTIxIC0xMC41IC0yNXQtMjQuNSAxMGwtOTQgOTRsLTI0OSAtMjQ5cS04IC03IC0xOCAtN3QtMTggN2wtMTA2IDEwNnEtNyA4IC03IDE4dDcgMThsMjQ5IDI0OWwtOTQgOTRxLTE0IDE0IC0xMCAyNC41dDI1IDEwLjV6TTM1MCAwaC0zMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djMwMHEwIDIxIDEwLjUgMjV0MjQuNSAtMTBsOTQgLTk0bDI0OSAyNDkgcTggNyAxOCA3dDE4IC03bDEwNiAtMTA2cTcgLTggNyAtMTh0LTcgLTE4bC0yNDkgLTI0OWw5NCAtOTRxMTQgLTE0IDEwIC0yNC41dC0yNSAtMTAuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDk3OyIgZD0iTTEwMTQgMTEyMGwxMDYgLTEwNnE3IC04IDcgLTE4dC03IC0xOGwtMjQ5IC0yNDlsOTQgLTk0cTE0IC0xNCAxMCAtMjQuNXQtMjUgLTEwLjVoLTMwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MzAwcTAgMjEgMTAuNSAyNXQyNC41IC0xMGw5NCAtOTRsMjQ5IDI0OXE4IDcgMTggN3QxOCAtN3pNMjUwIDYwMGgzMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTMwMHEwIC0yMSAtMTAuNSAtMjV0LTI0LjUgMTBsLTk0IDk0IGwtMjQ5IC0yNDlxLTggLTcgLTE4IC03dC0xOCA3bC0xMDYgMTA2cS03IDggLTcgMTh0NyAxOGwyNDkgMjQ5bC05NCA5NHEtMTQgMTQgLTEwIDI0LjV0MjUgMTAuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTAxOyIgZD0iTTYwMCAxMTc3cTExNyAwIDIyNCAtNDUuNXQxODQuNSAtMTIzdDEyMyAtMTg0LjV0NDUuNSAtMjI0dC00NS41IC0yMjR0LTEyMyAtMTg0LjV0LTE4NC41IC0xMjN0LTIyNCAtNDUuNXQtMjI0IDQ1LjV0LTE4NC41IDEyM3QtMTIzIDE4NC41dC00NS41IDIyNHQ0NS41IDIyNHQxMjMgMTg0LjV0MTg0LjUgMTIzdDIyNCA0NS41ek03MDQgOTAwaC0yMDhxLTIwIDAgLTMyIC0xNC41dC04IC0zNC41bDU4IC0zMDJxNCAtMjAgMjEuNSAtMzQuNSB0MzcuNSAtMTQuNWg1NHEyMCAwIDM3LjUgMTQuNXQyMS41IDM0LjVsNTggMzAycTQgMjAgLTggMzQuNXQtMzIgMTQuNXpNNjc1IDQwMGgtMTUwcS0xMCAwIC0xNy41IC03LjV0LTcuNSAtMTcuNXYtMTUwcTAgLTEwIDcuNSAtMTcuNXQxNy41IC03LjVoMTUwcTEwIDAgMTcuNSA3LjV0Ny41IDE3LjV2MTUwcTAgMTAgLTcuNSAxNy41dC0xNy41IDcuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTAyOyIgZD0iTTI2MCAxMjAwcTkgMCAxOSAtMnQxNSAtNGw1IC0ycTIyIC0xMCA0NCAtMjNsMTk2IC0xMThxMjEgLTEzIDM2IC0yNHEyOSAtMjEgMzcgLTEycTExIDEzIDQ5IDM1bDE5NiAxMThxMjIgMTMgNDUgMjNxMTcgNyAzOCA3cTIzIDAgNDcgLTE2LjV0MzcgLTMzLjVsMTMgLTE2cTE0IC0yMSAxOCAtNDVsMjUgLTEyM2w4IC00NHExIC05IDguNSAtMTQuNXQxNy41IC01LjVoNjFxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di01MCBxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC01MHEtMTAgMCAtMTcuNSAtNy41dC03LjUgLTE3LjV2LTE3NWgtNDAwdjMwMGgtMjAwdi0zMDBoLTQwMHYxNzVxMCAxMCAtNy41IDE3LjV0LTE3LjUgNy41aC01MHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djUwcTAgMTAgNy41IDE3LjV0MTcuNSA3LjVoNjFxMTEgMCAxOCAzdDcgOHEwIDQgOSA1MmwyNSAxMjhxNSAyNSAxOSA0NXEyIDMgNSA3dDEzLjUgMTV0MjEuNSAxOS41dDI2LjUgMTUuNSB0MjkuNSA3ek05MTUgMTA3OWwtMTY2IC0xNjJxLTcgLTcgLTUgLTEydDEyIC01aDIxOXExMCAwIDE1IDd0MiAxN2wtNTEgMTQ5cS0zIDEwIC0xMSAxMnQtMTUgLTZ6TTQ2MyA5MTdsLTE3NyAxNTdxLTggNyAtMTYgNXQtMTEgLTEybC01MSAtMTQzcS0zIC0xMCAyIC0xN3QxNSAtN2gyMzFxMTEgMCAxMi41IDV0LTUuNSAxMnpNNTAwIDBoLTM3NXEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djM3NWg0MDB2LTQwMHpNMTEwMCA0MDB2LTM3NSBxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC0zNzV2NDAwaDQwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTAzOyIgZD0iTTExNjUgMTE5MHE4IDMgMjEgLTYuNXQxMyAtMTcuNXEtMiAtMTc4IC0yNC41IC0zMjMuNXQtNTUuNSAtMjQ1LjV0LTg3IC0xNzQuNXQtMTAyLjUgLTExOC41dC0xMTggLTY4LjV0LTExOC41IC0zM3QtMTIwIC00LjV0LTEwNSA5LjV0LTkwIDE2LjVxLTYxIDEyIC03OCAxMXEtNCAxIC0xMi41IDB0LTM0IC0xNC41dC01Mi41IC00MC41bC0xNTMgLTE1M3EtMjYgLTI0IC0zNyAtMTQuNXQtMTEgNDMuNXEwIDY0IDQyIDEwMnE4IDggNTAuNSA0NSB0NjYuNSA1OHExOSAxNyAzNSA0N3QxMyA2MXEtOSA1NSAtMTAgMTAyLjV0NyAxMTF0MzcgMTMwdDc4IDEyOS41cTM5IDUxIDgwIDg4dDg5LjUgNjMuNXQ5NC41IDQ1dDExMy41IDM2dDEyOSAzMXQxNTcuNSAzN3QxODIgNDcuNXpNMTExNiAxMDk4cS04IDkgLTIyLjUgLTN0LTQ1LjUgLTUwcS0zOCAtNDcgLTExOSAtMTAzLjV0LTE0MiAtODkuNWwtNjIgLTMzcS01NiAtMzAgLTEwMiAtNTd0LTEwNCAtNjh0LTEwMi41IC04MC41dC04NS41IC05MSB0LTY0IC0xMDQuNXEtMjQgLTU2IC0zMSAtODZ0MiAtMzJ0MzEuNSAxNy41dDU1LjUgNTkuNXEyNSAzMCA5NCA3NS41dDEyNS41IDc3LjV0MTQ3LjUgODFxNzAgMzcgMTE4LjUgNjl0MTAyIDc5LjV0OTkgMTExdDg2LjUgMTQ4LjVxMjIgNTAgMjQgNjB0LTYgMTl6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTEwNDsiIGQ9Ik02NTMgMTIzMXEtMzkgLTY3IC01NC41IC0xMzF0LTEwLjUgLTExNC41dDI0LjUgLTk2LjV0NDcuNSAtODB0NjMuNSAtNjIuNXQ2OC41IC00Ni41dDY1IC0zMHEtNCA3IC0xNy41IDM1dC0xOC41IDM5LjV0LTE3IDM5LjV0LTE3IDQzdC0xMyA0MnQtOS41IDQ0LjV0LTIgNDJ0NCA0M3QxMy41IDM5dDIzIDM4LjVxOTYgLTQyIDE2NSAtMTA3LjV0MTA1IC0xMzh0NTIgLTE1NnQxMyAtMTU5dC0xOSAtMTQ5LjVxLTEzIC01NSAtNDQgLTEwNi41IHQtNjggLTg3dC03OC41IC02NC41dC03Mi41IC00NXQtNTMgLTIycS03MiAtMjIgLTEyNyAtMTFxLTMxIDYgLTEzIDE5cTYgMyAxNyA3cTEzIDUgMzIuNSAyMXQ0MSA0NHQzOC41IDYzLjV0MjEuNSA4MS41dC02LjUgOTQuNXQtNTAgMTA3dC0xMDQgMTE1LjVxMTAgLTEwNCAtMC41IC0xODl0LTM3IC0xNDAuNXQtNjUgLTkzdC04NCAtNTJ0LTkzLjUgLTExdC05NSAyNC41cS04MCAzNiAtMTMxLjUgMTE0dC01My41IDE3MXEtMiAyMyAwIDQ5LjUgdDQuNSA1Mi41dDEzLjUgNTZ0MjcuNSA2MHQ0NiA2NC41dDY5LjUgNjguNXEtOCAtNTMgLTUgLTEwMi41dDE3LjUgLTkwdDM0IC02OC41dDQ0LjUgLTM5dDQ5IC0ycTMxIDEzIDM4LjUgMzZ0LTQuNSA1NXQtMjkgNjQuNXQtMzYgNzV0LTI2IDc1LjVxLTE1IDg1IDIgMTYxLjV0NTMuNSAxMjguNXQ4NS41IDkyLjV0OTMuNSA2MXQ4MS41IDI1LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTEwNTsiIGQ9Ik02MDAgMTA5NHE4MiAwIDE2MC41IC0yMi41dDE0MCAtNTl0MTE2LjUgLTgyLjV0OTQuNSAtOTV0NjggLTk1dDQyLjUgLTgyLjV0MTQgLTU3LjV0LTE0IC01Ny41dC00MyAtODIuNXQtNjguNSAtOTV0LTk0LjUgLTk1dC0xMTYuNSAtODIuNXQtMTQwIC01OXQtMTU5LjUgLTIyLjV0LTE1OS41IDIyLjV0LTE0MCA1OXQtMTE2LjUgODIuNXQtOTQuNSA5NXQtNjguNSA5NXQtNDMgODIuNXQtMTQgNTcuNXQxNCA1Ny41dDQyLjUgODIuNXQ2OCA5NSB0OTQuNSA5NXQxMTYuNSA4Mi41dDE0MCA1OXQxNjAuNSAyMi41ek04ODggODI5cS0xNSAxNSAtMTggMTJ0NSAtMjJxMjUgLTU3IDI1IC0xMTlxMCAtMTI0IC04OCAtMjEydC0yMTIgLTg4dC0yMTIgODh0LTg4IDIxMnEwIDU5IDIzIDExNHE4IDE5IDQuNSAyMnQtMTcuNSAtMTJxLTcwIC02OSAtMTYwIC0xODRxLTEzIC0xNiAtMTUgLTQwLjV0OSAtNDIuNXEyMiAtMzYgNDcgLTcxdDcwIC04MnQ5Mi41IC04MXQxMTMgLTU4LjV0MTMzLjUgLTI0LjUgdDEzMy41IDI0dDExMyA1OC41dDkyLjUgODEuNXQ3MCA4MS41dDQ3IDcwLjVxMTEgMTggOSA0Mi41dC0xNCA0MS41cS05MCAxMTcgLTE2MyAxODl6TTQ0OCA3MjdsLTM1IC0zNnEtMTUgLTE1IC0xOS41IC0zOC41dDQuNSAtNDEuNXEzNyAtNjggOTMgLTExNnExNiAtMTMgMzguNSAtMTF0MzYuNSAxN2wzNSAzNHExNCAxNSAxMi41IDMzLjV0LTE2LjUgMzMuNXEtNDQgNDQgLTg5IDExN3EtMTEgMTggLTI4IDIwdC0zMiAtMTJ6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTEwNjsiIGQ9Ik01OTIgMGgtMTQ4bDMxIDEyMHEtOTEgMjAgLTE3NS41IDY4LjV0LTE0My41IDEwNi41dC0xMDMuNSAxMTl0LTY2LjUgMTEwdC0yMiA3NnEwIDIxIDE0IDU3LjV0NDIuNSA4Mi41dDY4IDk1dDk0LjUgOTV0MTE2LjUgODIuNXQxNDAgNTl0MTYwLjUgMjIuNXE2MSAwIDEyNiAtMTVsMzIgMTIxaDE0OHpNOTQ0IDc3MGw0NyAxODFxMTA4IC04NSAxNzYuNSAtMTkydDY4LjUgLTE1OXEwIC0yNiAtMTkuNSAtNzF0LTU5LjUgLTEwMnQtOTMgLTExMiB0LTEyOSAtMTA0LjV0LTE1OCAtNzUuNWw0NiAxNzNxNzcgNDkgMTM2IDExN3Q5NyAxMzFxMTEgMTggOSA0Mi41dC0xNCA0MS41cS01NCA3MCAtMTA3IDEzMHpNMzEwIDgyNHEtNzAgLTY5IC0xNjAgLTE4NHEtMTMgLTE2IC0xNSAtNDAuNXQ5IC00Mi41cTE4IC0zMCAzOSAtNjB0NTcgLTcwLjV0NzQgLTczdDkwIC02MXQxMDUgLTQxLjVsNDEgMTU0cS0xMDcgMTggLTE3OC41IDEwMS41dC03MS41IDE5My41cTAgNTkgMjMgMTE0cTggMTkgNC41IDIyIHQtMTcuNSAtMTJ6TTQ0OCA3MjdsLTM1IC0zNnEtMTUgLTE1IC0xOS41IC0zOC41dDQuNSAtNDEuNXEzNyAtNjggOTMgLTExNnExNiAtMTMgMzguNSAtMTF0MzYuNSAxN2wxMiAxMWwyMiA4NmwtMyA0cS00NCA0NCAtODkgMTE3cS0xMSAxOCAtMjggMjB0LTMyIC0xMnoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTA3OyIgZD0iTS05MCAxMDBsNjQyIDEwNjZxMjAgMzEgNDggMjguNXQ0OCAtMzUuNWw2NDIgLTEwNTZxMjEgLTMyIDcuNSAtNjcuNXQtNTAuNSAtMzUuNWgtMTI5NHEtMzcgMCAtNTAuNSAzNHQ3LjUgNjZ6TTE1NSAyMDBoMzQ1djc1cTAgMTAgNy41IDE3LjV0MTcuNSA3LjVoMTUwcTEwIDAgMTcuNSAtNy41dDcuNSAtMTcuNXYtNzVoMzQ1bC00NDUgNzIzek00OTYgNzAwaDIwOHEyMCAwIDMyIC0xNC41dDggLTM0LjVsLTU4IC0yNTIgcS00IC0yMCAtMjEuNSAtMzQuNXQtMzcuNSAtMTQuNWgtNTRxLTIwIDAgLTM3LjUgMTQuNXQtMjEuNSAzNC41bC01OCAyNTJxLTQgMjAgOCAzNC41dDMyIDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTEwODsiIGQ9Ik02NTAgMTIwMHE2MiAwIDEwNiAtNDR0NDQgLTEwNnYtMzM5bDM2MyAtMzI1cTE1IC0xNCAyNiAtMzguNXQxMSAtNDQuNXYtNDFxMCAtMjAgLTEyIC0yNi41dC0yOSA1LjVsLTM1OSAyNDl2LTI2M3ExMDAgLTkzIDEwMCAtMTEzdi02NHEwIC0yMSAtMTMgLTI5dC0zMiAxbC0yMDUgMTI4bC0yMDUgLTEyOHEtMTkgLTkgLTMyIC0xdC0xMyAyOXY2NHEwIDIwIDEwMCAxMTN2MjYzbC0zNTkgLTI0OXEtMTcgLTEyIC0yOSAtNS41dC0xMiAyNi41djQxIHEwIDIwIDExIDQ0LjV0MjYgMzguNWwzNjMgMzI1djMzOXEwIDYyIDQ0IDEwNnQxMDYgNDR6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTEwOTsiIGQ9Ik04NTAgMTIwMGgxMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTUwaDUwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0xNTBoLTExMDB2MTUwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNWg1MHY1MHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjVoMTAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di01MGg1MDB2NTBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek0xMTAwIDgwMHYtNzUwcTAgLTIxIC0xNC41IC0zNS41IHQtMzUuNSAtMTQuNWgtMTAwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2NzUwaDExMDB6TTEwMCA2MDB2LTEwMGgxMDB2MTAwaC0xMDB6TTMwMCA2MDB2LTEwMGgxMDB2MTAwaC0xMDB6TTUwMCA2MDB2LTEwMGgxMDB2MTAwaC0xMDB6TTcwMCA2MDB2LTEwMGgxMDB2MTAwaC0xMDB6TTkwMCA2MDB2LTEwMGgxMDB2MTAwaC0xMDB6TTEwMCA0MDB2LTEwMGgxMDB2MTAwaC0xMDB6TTMwMCA0MDB2LTEwMGgxMDB2MTAwaC0xMDB6TTUwMCA0MDAgdi0xMDBoMTAwdjEwMGgtMTAwek03MDAgNDAwdi0xMDBoMTAwdjEwMGgtMTAwek05MDAgNDAwdi0xMDBoMTAwdjEwMGgtMTAwek0xMDAgMjAwdi0xMDBoMTAwdjEwMGgtMTAwek0zMDAgMjAwdi0xMDBoMTAwdjEwMGgtMTAwek01MDAgMjAwdi0xMDBoMTAwdjEwMGgtMTAwek03MDAgMjAwdi0xMDBoMTAwdjEwMGgtMTAwek05MDAgMjAwdi0xMDBoMTAwdjEwMGgtMTAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxMTA7IiBkPSJNMTEzNSAxMTY1bDI0OSAtMjMwcTE1IC0xNCAxNSAtMzV0LTE1IC0zNWwtMjQ5IC0yMzBxLTE0IC0xNCAtMjQuNSAtMTB0LTEwLjUgMjV2MTUwaC0xNTlsLTYwMCAtNjAwaC0yOTFxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjVoMjA5bDYwMCA2MDBoMjQxdjE1MHEwIDIxIDEwLjUgMjV0MjQuNSAtMTB6TTUyMiA4MTlsLTE0MSAtMTQxbC0xMjIgMTIyaC0yMDlxLTIxIDAgLTM1LjUgMTQuNSB0LTE0LjUgMzUuNXYxMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41aDI5MXpNMTEzNSA1NjVsMjQ5IC0yMzBxMTUgLTE0IDE1IC0zNXQtMTUgLTM1bC0yNDkgLTIzMHEtMTQgLTE0IC0yNC41IC0xMHQtMTAuNSAyNXYxNTBoLTI0MWwtMTgxIDE4MWwxNDEgMTQxbDEyMiAtMTIyaDE1OXYxNTBxMCAyMSAxMC41IDI1dDI0LjUgLTEweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxMTE7IiBkPSJNMTAwIDExMDBoMTAwMHE0MSAwIDcwLjUgLTI5LjV0MjkuNSAtNzAuNXYtNjAwcTAgLTQxIC0yOS41IC03MC41dC03MC41IC0yOS41aC01OTZsLTMwNCAtMzAwdjMwMGgtMTAwcS00MSAwIC03MC41IDI5LjV0LTI5LjUgNzAuNXY2MDBxMCA0MSAyOS41IDcwLjV0NzAuNSAyOS41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxMTI7IiBkPSJNMTUwIDEyMDBoMjAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0yNTBoLTMwMHYyNTBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek04NTAgMTIwMGgyMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTI1MGgtMzAwdjI1MHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTExMDAgODAwdi0zMDBxMCAtNDEgLTMgLTc3LjV0LTE1IC04OS41dC0zMiAtOTZ0LTU4IC04OXQtODkgLTc3dC0xMjkgLTUxdC0xNzQgLTIwdC0xNzQgMjAgdC0xMjkgNTF0LTg5IDc3dC01OCA4OXQtMzIgOTZ0LTE1IDg5LjV0LTMgNzcuNXYzMDBoMzAwdi0yNTB2LTI3di00Mi41dDEuNSAtNDF0NSAtMzh0MTAgLTM1dDE2LjUgLTMwdDI1LjUgLTI0LjV0MzUgLTE5dDQ2LjUgLTEydDYwIC00dDYwIDQuNXQ0Ni41IDEyLjV0MzUgMTkuNXQyNSAyNS41dDE3IDMwLjV0MTAgMzV0NSAzOHQyIDQwLjV0LTAuNSA0MnYyNXYyNTBoMzAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxMTM7IiBkPSJNMTEwMCA0MTFsLTE5OCAtMTk5bC0zNTMgMzUzbC0zNTMgLTM1M2wtMTk3IDE5OWw1NTEgNTUxeiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxMTQ7IiBkPSJNMTEwMSA3ODlsLTU1MCAtNTUxbC01NTEgNTUxbDE5OCAxOTlsMzUzIC0zNTNsMzUzIDM1M3oiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTE1OyIgZD0iTTQwNCAxMDAwaDc0NnEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtNTUxaDE1MHEyMSAwIDI1IC0xMC41dC0xMCAtMjQuNWwtMjMwIC0yNDlxLTE0IC0xNSAtMzUgLTE1dC0zNSAxNWwtMjMwIDI0OXEtMTQgMTQgLTEwIDI0LjV0MjUgMTAuNWgxNTB2NDAxaC0zODF6TTEzNSA5ODRsMjMwIC0yNDlxMTQgLTE0IDEwIC0yNC41dC0yNSAtMTAuNWgtMTUwdi00MDBoMzg1bDIxNSAtMjAwaC03NTBxLTIxIDAgLTM1LjUgMTQuNSB0LTE0LjUgMzUuNXY1NTBoLTE1MHEtMjEgMCAtMjUgMTAuNXQxMCAyNC41bDIzMCAyNDlxMTQgMTUgMzUgMTV0MzUgLTE1eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxMTY7IiBkPSJNNTYgMTIwMGg5NHExNyAwIDMxIC0xMXQxOCAtMjdsMzggLTE2Mmg4OTZxMjQgMCAzOSAtMTguNXQxMCAtNDIuNWwtMTAwIC00NzVxLTUgLTIxIC0yNyAtNDIuNXQtNTUgLTIxLjVoLTYzM2w0OCAtMjAwaDUzNXEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXQtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNTB2LTUwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41dC0zNS41IDE0LjV0LTE0LjUgMzUuNXY1MGgtMzAwdi01MCBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjV0LTM1LjUgMTQuNXQtMTQuNSAzNS41djUwaC0zMXEtMTggMCAtMzIuNSAxMHQtMjAuNSAxOWwtNSAxMGwtMjAxIDk2MWgtNTRxLTIwIDAgLTM1IDE0LjV0LTE1IDM1LjV0MTUgMzUuNXQzNSAxNC41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxMTc7IiBkPSJNMTIwMCAxMDAwdi0xMDBoLTEyMDB2MTAwaDIwMHEwIDQxIDI5LjUgNzAuNXQ3MC41IDI5LjVoMzAwcTQxIDAgNzAuNSAtMjkuNXQyOS41IC03MC41aDUwMHpNMCA4MDBoMTIwMHYtODAwaC0xMjAwdjgwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTE4OyIgZD0iTTIwMCA4MDBsLTIwMCAtNDAwdjYwMGgyMDBxMCA0MSAyOS41IDcwLjV0NzAuNSAyOS41aDMwMHE0MiAwIDcxIC0yOS41dDI5IC03MC41aDUwMHYtMjAwaC0xMDAwek0xNTAwIDcwMGwtMzAwIC03MDBoLTEyMDBsMzAwIDcwMGgxMjAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxMTk7IiBkPSJNNjM1IDExODRsMjMwIC0yNDlxMTQgLTE0IDEwIC0yNC41dC0yNSAtMTAuNWgtMTUwdi02MDFoMTUwcTIxIDAgMjUgLTEwLjV0LTEwIC0yNC41bC0yMzAgLTI0OXEtMTQgLTE1IC0zNSAtMTV0LTM1IDE1bC0yMzAgMjQ5cS0xNCAxNCAtMTAgMjQuNXQyNSAxMC41aDE1MHY2MDFoLTE1MHEtMjEgMCAtMjUgMTAuNXQxMCAyNC41bDIzMCAyNDlxMTQgMTUgMzUgMTV0MzUgLTE1eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxMjA7IiBkPSJNOTM2IDg2NGwyNDkgLTIyOXExNCAtMTUgMTQgLTM1LjV0LTE0IC0zNS41bC0yNDkgLTIyOXEtMTUgLTE1IC0yNS41IC0xMC41dC0xMC41IDI0LjV2MTUxaC02MDB2LTE1MXEwIC0yMCAtMTAuNSAtMjQuNXQtMjUuNSAxMC41bC0yNDkgMjI5cS0xNCAxNSAtMTQgMzUuNXQxNCAzNS41bDI0OSAyMjlxMTUgMTUgMjUuNSAxMC41dDEwLjUgLTI1LjV2LTE0OWg2MDB2MTQ5cTAgMjEgMTAuNSAyNS41dDI1LjUgLTEwLjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTEyMTsiIGQ9Ik0xMTY5IDQwMGwtMTcyIDczMnEtNSAyMyAtMjMgNDUuNXQtMzggMjIuNWgtNjcycS0yMCAwIC0zOCAtMjB0LTIzIC00MWwtMTcyIC03MzloMTEzOHpNMTEwMCAzMDBoLTEwMDBxLTQxIDAgLTcwLjUgLTI5LjV0LTI5LjUgLTcwLjV2LTEwMHEwIC00MSAyOS41IC03MC41dDcwLjUgLTI5LjVoMTAwMHE0MSAwIDcwLjUgMjkuNXQyOS41IDcwLjV2MTAwcTAgNDEgLTI5LjUgNzAuNXQtNzAuNSAyOS41ek04MDAgMTAwdjEwMGgxMDB2LTEwMGgtMTAwIHpNMTAwMCAxMDB2MTAwaDEwMHYtMTAwaC0xMDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTEyMjsiIGQ9Ik0xMTUwIDExMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTg1MHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNXQtMzUuNSAxNC41dC0xNC41IDM1LjV2ODUwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNMTAwMCAyMDBsLTY3NSAyMDBoLTM4bDQ3IC0yNzZxMyAtMTYgLTUuNSAtMjB0LTI5LjUgLTRoLTdoLTg0cS0yMCAwIC0zNC41IDE0dC0xOC41IDM1cS01NSAzMzcgLTU1IDM1MXYyNTB2NnEwIDE2IDEgMjMuNXQ2LjUgMTQgdDE3LjUgNi41aDIwMGw2NzUgMjUwdi04NTB6TTAgNzUwdi0yNTBxLTQgMCAtMTEgMC41dC0yNCA2dC0zMCAxNXQtMjQgMzB0LTExIDQ4LjV2NTBxMCAyNiAxMC41IDQ2dDI1IDMwdDI5IDE2dDI1LjUgN3oiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTIzOyIgZD0iTTU1MyAxMjAwaDk0cTIwIDAgMjkgLTEwLjV0MyAtMjkuNWwtMTggLTM3cTgzIC0xOSAxNDQgLTgyLjV0NzYgLTE0MC41bDYzIC0zMjdsMTE4IC0xNzNoMTdxMTkgMCAzMyAtMTQuNXQxNCAtMzV0LTEzIC00MC41dC0zMSAtMjdxLTggLTQgLTIzIC05LjV0LTY1IC0xOS41dC0xMDMgLTI1dC0xMzIuNSAtMjB0LTE1OC41IC05cS01NyAwIC0xMTUgNXQtMTA0IDEydC04OC41IDE1LjV0LTczLjUgMTcuNXQtNTQuNSAxNnQtMzUuNSAxMmwtMTEgNCBxLTE4IDggLTMxIDI4dC0xMyA0MC41dDE0IDM1dDMzIDE0LjVoMTdsMTE4IDE3M2w2MyAzMjdxMTUgNzcgNzYgMTQwdDE0NCA4M2wtMTggMzJxLTYgMTkgMy41IDMydDI4LjUgMTN6TTQ5OCAxMTBxNTAgLTYgMTAyIC02cTUzIDAgMTAyIDZxLTEyIC00OSAtMzkuNSAtNzkuNXQtNjIuNSAtMzAuNXQtNjMgMzAuNXQtMzkgNzkuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTI0OyIgZD0iTTgwMCA5NDZsMjI0IDc4bC03OCAtMjI0bDIzNCAtNDVsLTE4MCAtMTU1bDE4MCAtMTU1bC0yMzQgLTQ1bDc4IC0yMjRsLTIyNCA3OGwtNDUgLTIzNGwtMTU1IDE4MGwtMTU1IC0xODBsLTQ1IDIzNGwtMjI0IC03OGw3OCAyMjRsLTIzNCA0NWwxODAgMTU1bC0xODAgMTU1bDIzNCA0NWwtNzggMjI0bDIyNCAtNzhsNDUgMjM0bDE1NSAtMTgwbDE1NSAxODB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTEyNTsiIGQ9Ik02NTAgMTIwMGg1MHE0MCAwIDcwIC00MC41dDMwIC04NC41di0xNTBsLTI4IC0xMjVoMzI4cTQwIDAgNzAgLTQwLjV0MzAgLTg0LjV2LTEwMHEwIC00NSAtMjkgLTc0bC0yMzggLTM0NHEtMTYgLTI0IC0zOCAtNDAuNXQtNDUgLTE2LjVoLTI1MHEtNyAwIC00MiAyNXQtNjYgNTBsLTMxIDI1aC02MXEtNDUgMCAtNzIuNSAxOHQtMjcuNSA1N3Y0MDBxMCAzNiAyMCA2M2wxNDUgMTk2bDk2IDE5OHExMyAyOCAzNy41IDQ4dDUxLjUgMjB6IE02NTAgMTEwMGwtMTAwIC0yMTJsLTE1MCAtMjEzdi0zNzVoMTAwbDEzNiAtMTAwaDIxNGwyNTAgMzc1djEyNWgtNDUwbDUwIDIyNXYxNzVoLTUwek01MCA4MDBoMTAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di01MDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTEwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2NTAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTI2OyIgZD0iTTYwMCAxMTAwaDI1MHEyMyAwIDQ1IC0xNi41dDM4IC00MC41bDIzOCAtMzQ0cTI5IC0yOSAyOSAtNzR2LTEwMHEwIC00NCAtMzAgLTg0LjV0LTcwIC00MC41aC0zMjhxMjggLTExOCAyOCAtMTI1di0xNTBxMCAtNDQgLTMwIC04NC41dC03MCAtNDAuNWgtNTBxLTI3IDAgLTUxLjUgMjB0LTM3LjUgNDhsLTk2IDE5OGwtMTQ1IDE5NnEtMjAgMjcgLTIwIDYzdjQwMHEwIDM5IDI3LjUgNTd0NzIuNSAxOGg2MXExMjQgMTAwIDEzOSAxMDB6IE01MCAxMDAwaDEwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtNTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djUwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTYzNiAxMDAwbC0xMzYgLTEwMGgtMTAwdi0zNzVsMTUwIC0yMTNsMTAwIC0yMTJoNTB2MTc1bC01MCAyMjVoNDUwdjEyNWwtMjUwIDM3NWgtMjE0eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxMjc7IiBkPSJNMzU2IDg3M2wzNjMgMjMwcTMxIDE2IDUzIC02bDExMCAtMTEycTEzIC0xMyAxMy41IC0zMnQtMTEuNSAtMzRsLTg0IC0xMjFoMzAycTg0IDAgMTM4IC0zOHQ1NCAtMTEwdC01NSAtMTExdC0xMzkgLTM5aC0xMDZsLTEzMSAtMzM5cS02IC0yMSAtMTkuNSAtNDF0LTI4LjUgLTIwaC0zNDJxLTcgMCAtOTAgODF0LTgzIDk0djUyNXEwIDE3IDE0IDM1LjV0MjggMjguNXpNNDAwIDc5MnYtNTAzbDEwMCAtODloMjkzbDEzMSAzMzkgcTYgMjEgMTkuNSA0MXQyOC41IDIwaDIwM3EyMSAwIDMwLjUgMjV0MC41IDUwdC0zMSAyNWgtNDU2aC03aC02aC01LjV0LTYgMC41dC01IDEuNXQtNSAydC00IDIuNXQtNCA0dC0yLjUgNC41cS0xMiAyNSA1IDQ3bDE0NiAxODNsLTg2IDgzek01MCA4MDBoMTAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di01MDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTEwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2NTAwIHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTEyODsiIGQ9Ik00NzUgMTEwM2wzNjYgLTIzMHEyIC0xIDYgLTMuNXQxNCAtMTAuNXQxOCAtMTYuNXQxNC41IC0yMHQ2LjUgLTIyLjV2LTUyNXEwIC0xMyAtODYgLTk0dC05MyAtODFoLTM0MnEtMTUgMCAtMjguNSAyMHQtMTkuNSA0MWwtMTMxIDMzOWgtMTA2cS04NSAwIC0xMzkuNSAzOXQtNTQuNSAxMTF0NTQgMTEwdDEzOCAzOGgzMDJsLTg1IDEyMXEtMTEgMTUgLTEwLjUgMzR0MTMuNSAzMmwxMTAgMTEycTIyIDIyIDUzIDZ6TTM3MCA5NDVsMTQ2IC0xODMgcTE3IC0yMiA1IC00N3EtMiAtMiAtMy41IC00LjV0LTQgLTR0LTQgLTIuNXQtNSAtMnQtNSAtMS41dC02IC0wLjVoLTZoLTYuNWgtNmgtNDc1di0xMDBoMjIxcTE1IDAgMjkgLTIwdDIwIC00MWwxMzAgLTMzOWgyOTRsMTA2IDg5djUwM2wtMzQyIDIzNnpNMTA1MCA4MDBoMTAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di01MDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTEwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjUgdjUwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTEyOTsiIGQ9Ik01NTAgMTI5NHE3MiAwIDExMSAtNTV0MzkgLTEzOXYtMTA2bDMzOSAtMTMxcTIxIC02IDQxIC0xOS41dDIwIC0yOC41di0zNDJxMCAtNyAtODEgLTkwdC05NCAtODNoLTUyNXEtMTcgMCAtMzUuNSAxNHQtMjguNSAyOGwtOSAxNGwtMjMwIDM2M3EtMTYgMzEgNiA1M2wxMTIgMTEwcTEzIDEzIDMyIDEzLjV0MzQgLTExLjVsMTIxIC04NHYzMDJxMCA4NCAzOCAxMzh0MTEwIDU0ek02MDAgOTcydjIwM3EwIDIxIC0yNSAzMC41dC01MCAwLjUgdC0yNSAtMzF2LTQ1NnYtN3YtNnYtNS41dC0wLjUgLTZ0LTEuNSAtNXQtMiAtNXQtMi41IC00dC00IC00dC00LjUgLTIuNXEtMjUgLTEyIC00NyA1bC0xODMgMTQ2bC04MyAtODZsMjM2IC0zMzloNTAzbDg5IDEwMHYyOTNsLTMzOSAxMzFxLTIxIDYgLTQxIDE5LjV0LTIwIDI4LjV6TTQ1MCAyMDBoNTAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0xMDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTUwMCBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTEzMDsiIGQ9Ik0zNTAgMTEwMGg1MDBxMjEgMCAzNS41IDE0LjV0MTQuNSAzNS41djEwMHEwIDIxIC0xNC41IDM1LjV0LTM1LjUgMTQuNWgtNTAwcS0yMSAwIC0zNS41IC0xNC41dC0xNC41IC0zNS41di0xMDBxMCAtMjEgMTQuNSAtMzUuNXQzNS41IC0xNC41ek02MDAgMzA2di0xMDZxMCAtODQgLTM5IC0xMzl0LTExMSAtNTV0LTExMCA1NHQtMzggMTM4djMwMmwtMTIxIC04NHEtMTUgLTEyIC0zNCAtMTEuNXQtMzIgMTMuNWwtMTEyIDExMCBxLTIyIDIyIC02IDUzbDIzMCAzNjNxMSAyIDMuNSA2dDEwLjUgMTMuNXQxNi41IDE3dDIwIDEzLjV0MjIuNSA2aDUyNXExMyAwIDk0IC04M3Q4MSAtOTB2LTM0MnEwIC0xNSAtMjAgLTI4LjV0LTQxIC0xOS41ek0zMDggOTAwbC0yMzYgLTMzOWw4MyAtODZsMTgzIDE0NnEyMiAxNyA0NyA1cTIgLTEgNC41IC0yLjV0NCAtNHQyLjUgLTR0MiAtNXQxLjUgLTV0MC41IC02di01LjV2LTZ2LTd2LTQ1NnEwIC0yMiAyNSAtMzF0NTAgMC41dDI1IDMwLjUgdjIwM3EwIDE1IDIwIDI4LjV0NDEgMTkuNWwzMzkgMTMxdjI5M2wtODkgMTAwaC01MDN6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTEzMTsiIGQ9Ik02MDAgMTE3OHExMTggMCAyMjUgLTQ1LjV0MTg0LjUgLTEyM3QxMjMgLTE4NC41dDQ1LjUgLTIyNXQtNDUuNSAtMjI1dC0xMjMgLTE4NC41dC0xODQuNSAtMTIzdC0yMjUgLTQ1LjV0LTIyNSA0NS41dC0xODQuNSAxMjN0LTEyMyAxODQuNXQtNDUuNSAyMjV0NDUuNSAyMjV0MTIzIDE4NC41dDE4NC41IDEyM3QyMjUgNDUuNXpNOTE0IDYzMmwtMjc1IDIyM3EtMTYgMTMgLTI3LjUgOHQtMTEuNSAtMjZ2LTEzN2gtMjc1IHEtMTAgMCAtMTcuNSAtNy41dC03LjUgLTE3LjV2LTE1MHEwIC0xMCA3LjUgLTE3LjV0MTcuNSAtNy41aDI3NXYtMTM3cTAgLTIxIDExLjUgLTI2dDI3LjUgOGwyNzUgMjIzcTE2IDEzIDE2IDMydC0xNiAzMnoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTMyOyIgZD0iTTYwMCAxMTc4cTExOCAwIDIyNSAtNDUuNXQxODQuNSAtMTIzdDEyMyAtMTg0LjV0NDUuNSAtMjI1dC00NS41IC0yMjV0LTEyMyAtMTg0LjV0LTE4NC41IC0xMjN0LTIyNSAtNDUuNXQtMjI1IDQ1LjV0LTE4NC41IDEyM3QtMTIzIDE4NC41dC00NS41IDIyNXQ0NS41IDIyNXQxMjMgMTg0LjV0MTg0LjUgMTIzdDIyNSA0NS41ek01NjEgODU1bC0yNzUgLTIyM3EtMTYgLTEzIC0xNiAtMzJ0MTYgLTMybDI3NSAtMjIzcTE2IC0xMyAyNy41IC04IHQxMS41IDI2djEzN2gyNzVxMTAgMCAxNy41IDcuNXQ3LjUgMTcuNXYxNTBxMCAxMCAtNy41IDE3LjV0LTE3LjUgNy41aC0yNzV2MTM3cTAgMjEgLTExLjUgMjZ0LTI3LjUgLTh6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTEzMzsiIGQ9Ik02MDAgMTE3OHExMTggMCAyMjUgLTQ1LjV0MTg0LjUgLTEyM3QxMjMgLTE4NC41dDQ1LjUgLTIyNXQtNDUuNSAtMjI1dC0xMjMgLTE4NC41dC0xODQuNSAtMTIzdC0yMjUgLTQ1LjV0LTIyNSA0NS41dC0xODQuNSAxMjN0LTEyMyAxODQuNXQtNDUuNSAyMjV0NDUuNSAyMjV0MTIzIDE4NC41dDE4NC41IDEyM3QyMjUgNDUuNXpNODU1IDYzOWwtMjIzIDI3NXEtMTMgMTYgLTMyIDE2dC0zMiAtMTZsLTIyMyAtMjc1cS0xMyAtMTYgLTggLTI3LjUgdDI2IC0xMS41aDEzN3YtMjc1cTAgLTEwIDcuNSAtMTcuNXQxNy41IC03LjVoMTUwcTEwIDAgMTcuNSA3LjV0Ny41IDE3LjV2Mjc1aDEzN3EyMSAwIDI2IDExLjV0LTggMjcuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTM0OyIgZD0iTTYwMCAxMTc4cTExOCAwIDIyNSAtNDUuNXQxODQuNSAtMTIzdDEyMyAtMTg0LjV0NDUuNSAtMjI1dC00NS41IC0yMjV0LTEyMyAtMTg0LjV0LTE4NC41IC0xMjN0LTIyNSAtNDUuNXQtMjI1IDQ1LjV0LTE4NC41IDEyM3QtMTIzIDE4NC41dC00NS41IDIyNXQ0NS41IDIyNXQxMjMgMTg0LjV0MTg0LjUgMTIzdDIyNSA0NS41ek02NzUgOTAwaC0xNTBxLTEwIDAgLTE3LjUgLTcuNXQtNy41IC0xNy41di0yNzVoLTEzN3EtMjEgMCAtMjYgLTExLjUgdDggLTI3LjVsMjIzIC0yNzVxMTMgLTE2IDMyIC0xNnQzMiAxNmwyMjMgMjc1cTEzIDE2IDggMjcuNXQtMjYgMTEuNWgtMTM3djI3NXEwIDEwIC03LjUgMTcuNXQtMTcuNSA3LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTEzNTsiIGQ9Ik02MDAgMTE3NnExMTYgMCAyMjIuNSAtNDZ0MTg0IC0xMjMuNXQxMjMuNSAtMTg0dDQ2IC0yMjIuNXQtNDYgLTIyMi41dC0xMjMuNSAtMTg0dC0xODQgLTEyMy41dC0yMjIuNSAtNDZ0LTIyMi41IDQ2dC0xODQgMTIzLjV0LTEyMy41IDE4NHQtNDYgMjIyLjV0NDYgMjIyLjV0MTIzLjUgMTg0dDE4NCAxMjMuNXQyMjIuNSA0NnpNNjI3IDExMDFxLTE1IC0xMiAtMzYuNSAtMjAuNXQtMzUuNSAtMTJ0LTQzIC04dC0zOSAtNi41IHEtMTUgLTMgLTQ1LjUgMHQtNDUuNSAtMnEtMjAgLTcgLTUxLjUgLTI2LjV0LTM0LjUgLTM0LjVxLTMgLTExIDYuNSAtMjIuNXQ4LjUgLTE4LjVxLTMgLTM0IC0yNy41IC05MXQtMjkuNSAtNzlxLTkgLTM0IDUgLTkzdDggLTg3cTAgLTkgMTcgLTQ0LjV0MTYgLTU5LjVxMTIgMCAyMyAtNXQyMy41IC0xNXQxOS41IC0xNHExNiAtOCAzMyAtMTV0NDAuNSAtMTV0MzQuNSAtMTJxMjEgLTkgNTIuNSAtMzJ0NjAgLTM4dDU3LjUgLTExIHE3IC0xNSAtMyAtMzR0LTIyLjUgLTQwdC05LjUgLTM4cTEzIC0yMSAyMyAtMzQuNXQyNy41IC0yNy41dDM2LjUgLTE4cTAgLTcgLTMuNSAtMTZ0LTMuNSAtMTR0NSAtMTdxMTA0IC0yIDIyMSAxMTJxMzAgMjkgNDYuNSA0N3QzNC41IDQ5dDIxIDYzcS0xMyA4IC0zNyA4LjV0LTM2IDcuNXEtMTUgNyAtNDkuNSAxNXQtNTEuNSAxOXEtMTggMCAtNDEgLTAuNXQtNDMgLTEuNXQtNDIgLTYuNXQtMzggLTE2LjVxLTUxIC0zNSAtNjYgLTEyIHEtNCAxIC0zLjUgMjUuNXQwLjUgMjUuNXEtNiAxMyAtMjYuNSAxNy41dC0yNC41IDYuNXExIDE1IC0wLjUgMzAuNXQtNyAyOHQtMTguNSAxMS41dC0zMSAtMjFxLTIzIC0yNSAtNDIgNHEtMTkgMjggLTggNThxNiAxNiAyMiAyMnE2IC0xIDI2IC0xLjV0MzMuNSAtNHQxOS41IC0xMy41cTcgLTEyIDE4IC0yNHQyMS41IC0yMC41dDIwIC0xNXQxNS41IC0xMC41bDUgLTNxMiAxMiA3LjUgMzAuNXQ4IDM0LjV0LTAuNSAzMnEtMyAxOCAzLjUgMjkgdDE4IDIyLjV0MTUuNSAyNC41cTYgMTQgMTAuNSAzNXQ4IDMxdDE1LjUgMjIuNXQzNCAyMi41cS02IDE4IDEwIDM2cTggMCAyNCAtMS41dDI0LjUgLTEuNXQyMCA0LjV0MjAuNSAxNS41cS0xMCAyMyAtMzEgNDIuNXQtMzcuNSAyOS41dC00OSAyN3QtNDMuNSAyM3EwIDEgMiA4dDMgMTEuNXQxLjUgMTAuNXQtMSA5LjV0LTQuNSA0LjVxMzEgLTEzIDU4LjUgLTE0LjV0MzguNSAyLjVsMTIgNXE1IDI4IC05LjUgNDZ0LTM2LjUgMjR0LTUwIDE1IHQtNDEgMjBxLTE4IC00IC0zNyAwek02MTMgOTk0cTAgLTE3IDggLTQydDE3IC00NXQ5IC0yM3EtOCAxIC0zOS41IDUuNXQtNTIuNSAxMHQtMzcgMTYuNXEzIDExIDE2IDI5LjV0MTYgMjUuNXExMCAtMTAgMTkgLTEwdDE0IDZ0MTMuNSAxNC41dDE2LjUgMTIuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTM2OyIgZD0iTTc1NiAxMTU3cTE2NCA5MiAzMDYgLTlsLTI1OSAtMTM4bDE0NSAtMjMybDI1MSAxMjZxNiAtODkgLTM0IC0xNTYuNXQtMTE3IC0xMTAuNXEtNjAgLTM0IC0xMjcgLTM5LjV0LTEyNiAxNi41bC01OTYgLTU5NnEtMTUgLTE2IC0zNi41IC0xNnQtMzYuNSAxNmwtMTExIDExMHEtMTUgMTUgLTE1IDM2LjV0MTUgMzcuNWw2MDAgNTk5cS0zNCAxMDEgNS41IDIwMS41dDEzNS41IDE1NC41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxMzc7IiBob3Jpei1hZHYteD0iMTIyMCIgZD0iTTEwMCAxMTk2aDEwMDBxNDEgMCA3MC41IC0yOS41dDI5LjUgLTcwLjV2LTEwMHEwIC00MSAtMjkuNSAtNzAuNXQtNzAuNSAtMjkuNWgtMTAwMHEtNDEgMCAtNzAuNSAyOS41dC0yOS41IDcwLjV2MTAwcTAgNDEgMjkuNSA3MC41dDcwLjUgMjkuNXpNMTEwMCAxMDk2aC0yMDB2LTEwMGgyMDB2MTAwek0xMDAgNzk2aDEwMDBxNDEgMCA3MC41IC0yOS41dDI5LjUgLTcwLjV2LTEwMHEwIC00MSAtMjkuNSAtNzAuNXQtNzAuNSAtMjkuNWgtMTAwMCBxLTQxIDAgLTcwLjUgMjkuNXQtMjkuNSA3MC41djEwMHEwIDQxIDI5LjUgNzAuNXQ3MC41IDI5LjV6TTExMDAgNjk2aC01MDB2LTEwMGg1MDB2MTAwek0xMDAgMzk2aDEwMDBxNDEgMCA3MC41IC0yOS41dDI5LjUgLTcwLjV2LTEwMHEwIC00MSAtMjkuNSAtNzAuNXQtNzAuNSAtMjkuNWgtMTAwMHEtNDEgMCAtNzAuNSAyOS41dC0yOS41IDcwLjV2MTAwcTAgNDEgMjkuNSA3MC41dDcwLjUgMjkuNXpNMTEwMCAyOTZoLTMwMHYtMTAwaDMwMHYxMDB6ICIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxMzg7IiBkPSJNMTUwIDEyMDBoOTAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41dC0xNC41IC0zNS41dC0zNS41IC0xNC41aC05MDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41dDE0LjUgMzUuNXQzNS41IDE0LjV6TTcwMCA1MDB2LTMwMGwtMjAwIC0yMDB2NTAwbC0zNTAgNTAwaDkwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTM5OyIgZD0iTTUwMCAxMjAwaDIwMHE0MSAwIDcwLjUgLTI5LjV0MjkuNSAtNzAuNXYtMTAwaDMwMHE0MSAwIDcwLjUgLTI5LjV0MjkuNSAtNzAuNXYtNDAwaC01MDB2MTAwaC0yMDB2LTEwMGgtNTAwdjQwMHEwIDQxIDI5LjUgNzAuNXQ3MC41IDI5LjVoMzAwdjEwMHEwIDQxIDI5LjUgNzAuNXQ3MC41IDI5LjV6TTUwMCAxMTAwdi0xMDBoMjAwdjEwMGgtMjAwek0xMjAwIDQwMHYtMjAwcTAgLTQxIC0yOS41IC03MC41dC03MC41IC0yOS41aC0xMDAwIHEtNDEgMCAtNzAuNSAyOS41dC0yOS41IDcwLjV2MjAwaDEyMDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE0MDsiIGQ9Ik01MCAxMjAwaDMwMHEyMSAwIDI1IC0xMC41dC0xMCAtMjQuNWwtOTQgLTk0bDE5OSAtMTk5cTcgLTggNyAtMTh0LTcgLTE4bC0xMDYgLTEwNnEtOCAtNyAtMTggLTd0LTE4IDdsLTE5OSAxOTlsLTk0IC05NHEtMTQgLTE0IC0yNC41IC0xMHQtMTAuNSAyNXYzMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek04NTAgMTIwMGgzMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTMwMHEwIC0yMSAtMTAuNSAtMjV0LTI0LjUgMTBsLTk0IDk0IGwtMTk5IC0xOTlxLTggLTcgLTE4IC03dC0xOCA3bC0xMDYgMTA2cS03IDggLTcgMTh0NyAxOGwxOTkgMTk5bC05NCA5NHEtMTQgMTQgLTEwIDI0LjV0MjUgMTAuNXpNMzY0IDQ3MGwxMDYgLTEwNnE3IC04IDcgLTE4dC03IC0xOGwtMTk5IC0xOTlsOTQgLTk0cTE0IC0xNCAxMCAtMjQuNXQtMjUgLTEwLjVoLTMwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MzAwcTAgMjEgMTAuNSAyNXQyNC41IC0xMGw5NCAtOTRsMTk5IDE5OSBxOCA3IDE4IDd0MTggLTd6TTEwNzEgMjcxbDk0IDk0cTE0IDE0IDI0LjUgMTB0MTAuNSAtMjV2LTMwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMzAwcS0yMSAwIC0yNSAxMC41dDEwIDI0LjVsOTQgOTRsLTE5OSAxOTlxLTcgOCAtNyAxOHQ3IDE4bDEwNiAxMDZxOCA3IDE4IDd0MTggLTd6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE0MTsiIGQ9Ik01OTYgMTE5MnExMjEgMCAyMzEuNSAtNDcuNXQxOTAgLTEyN3QxMjcgLTE5MHQ0Ny41IC0yMzEuNXQtNDcuNSAtMjMxLjV0LTEyNyAtMTkwLjV0LTE5MCAtMTI3dC0yMzEuNSAtNDd0LTIzMS41IDQ3dC0xOTAuNSAxMjd0LTEyNyAxOTAuNXQtNDcgMjMxLjV0NDcgMjMxLjV0MTI3IDE5MHQxOTAuNSAxMjd0MjMxLjUgNDcuNXpNNTk2IDEwMTBxLTExMiAwIC0yMDcuNSAtNTUuNXQtMTUxIC0xNTF0LTU1LjUgLTIwNy41dDU1LjUgLTIwNy41IHQxNTEgLTE1MXQyMDcuNSAtNTUuNXQyMDcuNSA1NS41dDE1MSAxNTF0NTUuNSAyMDcuNXQtNTUuNSAyMDcuNXQtMTUxIDE1MXQtMjA3LjUgNTUuNXpNNDU0LjUgOTA1cTIyLjUgMCAzOC41IC0xNnQxNiAtMzguNXQtMTYgLTM5dC0zOC41IC0xNi41dC0zOC41IDE2LjV0LTE2IDM5dDE2IDM4LjV0MzguNSAxNnpNNzU0LjUgOTA1cTIyLjUgMCAzOC41IC0xNnQxNiAtMzguNXQtMTYgLTM5dC0zOCAtMTYuNXEtMTQgMCAtMjkgMTBsLTU1IC0xNDUgcTE3IC0yMyAxNyAtNTFxMCAtMzYgLTI1LjUgLTYxLjV0LTYxLjUgLTI1LjV0LTYxLjUgMjUuNXQtMjUuNSA2MS41cTAgMzIgMjAuNSA1Ni41dDUxLjUgMjkuNWwxMjIgMTI2bDEgMXEtOSAxNCAtOSAyOHEwIDIzIDE2IDM5dDM4LjUgMTZ6TTM0NS41IDcwOXEyMi41IDAgMzguNSAtMTZ0MTYgLTM4LjV0LTE2IC0zOC41dC0zOC41IC0xNnQtMzguNSAxNnQtMTYgMzguNXQxNiAzOC41dDM4LjUgMTZ6TTg1NC41IDcwOXEyMi41IDAgMzguNSAtMTYgdDE2IC0zOC41dC0xNiAtMzguNXQtMzguNSAtMTZ0LTM4LjUgMTZ0LTE2IDM4LjV0MTYgMzguNXQzOC41IDE2eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNDI7IiBkPSJNNTQ2IDE3M2w0NjkgNDcwcTkxIDkxIDk5IDE5MnE3IDk4IC01MiAxNzUuNXQtMTU0IDk0LjVxLTIyIDQgLTQ3IDRxLTM0IDAgLTY2LjUgLTEwdC01Ni41IC0yM3QtNTUuNSAtMzh0LTQ4IC00MS41dC00OC41IC00Ny41cS0zNzYgLTM3NSAtMzkxIC0zOTBxLTMwIC0yNyAtNDUgLTQxLjV0LTM3LjUgLTQxdC0zMiAtNDYuNXQtMTYgLTQ3LjV0LTEuNSAtNTYuNXE5IC02MiA1My41IC05NXQ5OS41IC0zM3E3NCAwIDEyNSA1MWw1NDggNTQ4IHEzNiAzNiAyMCA3NXEtNyAxNiAtMjEuNSAyNnQtMzIuNSAxMHEtMjYgMCAtNTAgLTIzcS0xMyAtMTIgLTM5IC0zOGwtMzQxIC0zMzhxLTE1IC0xNSAtMzUuNSAtMTUuNXQtMzQuNSAxMy41dC0xNCAzNC41dDE0IDM0LjVxMzI3IDMzMyAzNjEgMzY3cTM1IDM1IDY3LjUgNTEuNXQ3OC41IDE2LjVxMTQgMCAyOSAtMXE0NCAtOCA3NC41IC0zNS41dDQzLjUgLTY4LjVxMTQgLTQ3IDIgLTk2LjV0LTQ3IC04NC41cS0xMiAtMTEgLTMyIC0zMiB0LTc5LjUgLTgxdC0xMTQuNSAtMTE1dC0xMjQuNSAtMTIzLjV0LTEyMyAtMTE5LjV0LTk2LjUgLTg5dC01NyAtNDVxLTU2IC0yNyAtMTIwIC0yN3EtNzAgMCAtMTI5IDMydC05MyA4OXEtNDggNzggLTM1IDE3M3Q4MSAxNjNsNTExIDUxMXE3MSA3MiAxMTEgOTZxOTEgNTUgMTk4IDU1cTgwIDAgMTUyIC0zM3E3OCAtMzYgMTI5LjUgLTEwM3Q2Ni41IC0xNTRxMTcgLTkzIC0xMSAtMTgzLjV0LTk0IC0xNTYuNWwtNDgyIC00NzYgcS0xNSAtMTUgLTM2IC0xNnQtMzcgMTR0LTE3LjUgMzR0MTQuNSAzNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTQzOyIgZD0iTTY0OSA5NDlxNDggNjggMTA5LjUgMTA0dDEyMS41IDM4LjV0MTE4LjUgLTIwdDEwMi41IC02NHQ3MSAtMTAwLjV0MjcgLTEyM3EwIC01NyAtMzMuNSAtMTE3LjV0LTk0IC0xMjQuNXQtMTI2LjUgLTEyNy41dC0xNTAgLTE1Mi41dC0xNDYgLTE3NHEtNjIgODUgLTE0NS41IDE3NHQtMTUwIDE1Mi41dC0xMjYuNSAxMjcuNXQtOTMuNSAxMjQuNXQtMzMuNSAxMTcuNXEwIDY0IDI4IDEyM3Q3MyAxMDAuNXQxMDQgNjR0MTE5IDIwIHQxMjAuNSAtMzguNXQxMDQuNSAtMTA0ek04OTYgOTcycS0zMyAwIC02NC41IC0xOXQtNTYuNSAtNDZ0LTQ3LjUgLTUzLjV0LTQzLjUgLTQ1LjV0LTM3LjUgLTE5dC0zNiAxOXQtNDAgNDUuNXQtNDMgNTMuNXQtNTQgNDZ0LTY1LjUgMTlxLTY3IDAgLTEyMi41IC01NS41dC01NS41IC0xMzIuNXEwIC0yMyAxMy41IC01MXQ0NiAtNjV0NTcuNSAtNjN0NzYgLTc1bDIyIC0yMnExNSAtMTQgNDQgLTQ0dDUwLjUgLTUxdDQ2IC00NHQ0MSAtMzV0MjMgLTEyIHQyMy41IDEydDQyLjUgMzZ0NDYgNDR0NTIuNSA1MnQ0NCA0M3E0IDQgMTIgMTNxNDMgNDEgNjMuNSA2MnQ1MiA1NXQ0NiA1NXQyNiA0NnQxMS41IDQ0cTAgNzkgLTUzIDEzMy41dC0xMjAgNTQuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTQ0OyIgZD0iTTc3Ni41IDEyMTRxOTMuNSAwIDE1OS41IC02NmwxNDEgLTE0MXE2NiAtNjYgNjYgLTE2MHEwIC00MiAtMjggLTk1LjV0LTYyIC04Ny41bC0yOSAtMjlxLTMxIDUzIC03NyA5OWwtMTggMThsOTUgOTVsLTI0NyAyNDhsLTM4OSAtMzg5bDIxMiAtMjEybC0xMDUgLTEwNmwtMTkgMThsLTE0MSAxNDFxLTY2IDY2IC02NiAxNTl0NjYgMTU5bDI4MyAyODNxNjUgNjYgMTU4LjUgNjZ6TTYwMCA3MDZsMTA1IDEwNXExMCAtOCAxOSAtMTdsMTQxIC0xNDEgcTY2IC02NiA2NiAtMTU5dC02NiAtMTU5bC0yODMgLTI4M3EtNjYgLTY2IC0xNTkgLTY2dC0xNTkgNjZsLTE0MSAxNDFxLTY2IDY2IC02NiAxNTkuNXQ2NiAxNTkuNWw1NSA1NXEyOSAtNTUgNzUgLTEwMmwxOCAtMTdsLTk1IC05NWwyNDcgLTI0OGwzODkgMzg5eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNDU7IiBkPSJNNjAzIDEyMDBxODUgMCAxNjIgLTE1dDEyNyAtMzh0NzkgLTQ4dDI5IC00NnYtOTUzcTAgLTQxIC0yOS41IC03MC41dC03MC41IC0yOS41aC02MDBxLTQxIDAgLTcwLjUgMjkuNXQtMjkuNSA3MC41djk1M3EwIDIxIDMwIDQ2LjV0ODEgNDh0MTI5IDM3LjV0MTYzIDE1ek0zMDAgMTAwMHYtNzAwaDYwMHY3MDBoLTYwMHpNNjAwIDI1NHEtNDMgMCAtNzMuNSAtMzAuNXQtMzAuNSAtNzMuNXQzMC41IC03My41dDczLjUgLTMwLjV0NzMuNSAzMC41IHQzMC41IDczLjV0LTMwLjUgNzMuNXQtNzMuNSAzMC41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNDY7IiBkPSJNOTAyIDExODVsMjgzIC0yODJxMTUgLTE1IDE1IC0zNnQtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNXQtMzUgMTVsLTM2IDM1bC0yNzkgLTI2N3YtMzAwbC0yMTIgMjEwbC0zMDggLTMwN2wtMjgwIC0yMDNsMjAzIDI4MGwzMDcgMzA4bC0yMTAgMjEyaDMwMGwyNjcgMjc5bC0zNSAzNnEtMTUgMTQgLTE1IDM1dDE0LjUgMzUuNXQzNS41IDE0LjV0MzUgLTE1eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNDg7IiBkPSJNNzAwIDEyNDh2LTc4cTM4IC01IDcyLjUgLTE0LjV0NzUuNSAtMzEuNXQ3MSAtNTMuNXQ1MiAtODR0MjQgLTExOC41aC0xNTlxLTQgMzYgLTEwLjUgNTl0LTIxIDQ1dC00MCAzNS41dC02NC41IDIwLjV2LTMwN2w2NCAtMTNxMzQgLTcgNjQgLTE2LjV0NzAgLTMydDY3LjUgLTUyLjV0NDcuNSAtODB0MjAgLTExMnEwIC0xMzkgLTg5IC0yMjR0LTI0NCAtOTd2LTc3aC0xMDB2NzlxLTE1MCAxNiAtMjM3IDEwM3EtNDAgNDAgLTUyLjUgOTMuNSB0LTE1LjUgMTM5LjVoMTM5cTUgLTc3IDQ4LjUgLTEyNnQxMTcuNSAtNjV2MzM1bC0yNyA4cS00NiAxNCAtNzkgMjYuNXQtNzIgMzZ0LTYzIDUydC00MCA3Mi41dC0xNiA5OHEwIDcwIDI1IDEyNnQ2Ny41IDkydDk0LjUgNTd0MTEwIDI3djc3aDEwMHpNNjAwIDc1NHYyNzRxLTI5IC00IC01MCAtMTF0LTQyIC0yMS41dC0zMS41IC00MS41dC0xMC41IC02NXEwIC0yOSA3IC01MC41dDE2LjUgLTM0dDI4LjUgLTIyLjV0MzEuNSAtMTR0MzcuNSAtMTAgcTkgLTMgMTMgLTR6TTcwMCA1NDd2LTMxMHEyMiAyIDQyLjUgNi41dDQ1IDE1LjV0NDEuNSAyN3QyOSA0MnQxMiA1OS41dC0xMi41IDU5LjV0LTM4IDQ0LjV0LTUzIDMxdC02Ni41IDI0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE0OTsiIGQ9Ik01NjEgMTE5N3E4NCAwIDE2MC41IC00MHQxMjMuNSAtMTA5LjV0NDcgLTE0Ny41aC0xNTNxMCA0MCAtMTkuNSA3MS41dC00OS41IDQ4LjV0LTU5LjUgMjZ0LTU1LjUgOXEtMzcgMCAtNzkgLTE0LjV0LTYyIC0zNS41cS00MSAtNDQgLTQxIC0xMDFxMCAtMjYgMTMuNSAtNjN0MjYuNSAtNjF0MzcgLTY2cTYgLTkgOSAtMTRoMjQxdi0xMDBoLTE5N3E4IC01MCAtMi41IC0xMTV0LTMxLjUgLTk1cS00NSAtNjIgLTk5IC0xMTIgcTM0IDEwIDgzIDE3LjV0NzEgNy41cTMyIDEgMTAyIC0xNnQxMDQgLTE3cTgzIDAgMTM2IDMwbDUwIC0xNDdxLTMxIC0xOSAtNTggLTMwLjV0LTU1IC0xNS41dC00MiAtNC41dC00NiAtMC41cS0yMyAwIC03NiAxN3QtMTExIDMyLjV0LTk2IDExLjVxLTM5IC0zIC04MiAtMTZ0LTY3IC0yNWwtMjMgLTExbC01NSAxNDVxNCAzIDE2IDExdDE1LjUgMTAuNXQxMyA5dDE1LjUgMTJ0MTQuNSAxNHQxNy41IDE4LjVxNDggNTUgNTQgMTI2LjUgdC0zMCAxNDIuNWgtMjIxdjEwMGgxNjZxLTIzIDQ3IC00NCAxMDRxLTcgMjAgLTEyIDQxLjV0LTYgNTUuNXQ2IDY2LjV0MjkuNSA3MC41dDU4LjUgNzFxOTcgODggMjYzIDg4eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNTA7IiBkPSJNNDAwIDMwMGgxNTBxMjEgMCAyNSAtMTF0LTEwIC0yNWwtMjMwIC0yNTBxLTE0IC0xNSAtMzUgLTE1dC0zNSAxNWwtMjMwIDI1MHEtMTQgMTQgLTEwIDI1dDI1IDExaDE1MHY5MDBoMjAwdi05MDB6TTkzNSAxMTg0bDIzMCAtMjQ5cTE0IC0xNCAxMCAtMjQuNXQtMjUgLTEwLjVoLTE1MHYtOTAwaC0yMDB2OTAwaC0xNTBxLTIxIDAgLTI1IDEwLjV0MTAgMjQuNWwyMzAgMjQ5cTE0IDE1IDM1IDE1dDM1IC0xNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTUxOyIgZD0iTTEwMDAgNzAwaC0xMDB2MTAwaC0xMDB2LTEwMGgtMTAwdjUwMGgzMDB2LTUwMHpNNDAwIDMwMGgxNTBxMjEgMCAyNSAtMTF0LTEwIC0yNWwtMjMwIC0yNTBxLTE0IC0xNSAtMzUgLTE1dC0zNSAxNWwtMjMwIDI1MHEtMTQgMTQgLTEwIDI1dDI1IDExaDE1MHY5MDBoMjAwdi05MDB6TTgwMSAxMTAwdi0yMDBoMTAwdjIwMGgtMTAwek0xMDAwIDM1MGwtMjAwIC0yNTBoMjAwdi0xMDBoLTMwMHYxNTBsMjAwIDI1MGgtMjAwdjEwMGgzMDB2LTE1MHogIiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE1MjsiIGQ9Ik00MDAgMzAwaDE1MHEyMSAwIDI1IC0xMXQtMTAgLTI1bC0yMzAgLTI1MHEtMTQgLTE1IC0zNSAtMTV0LTM1IDE1bC0yMzAgMjUwcS0xNCAxNCAtMTAgMjV0MjUgMTFoMTUwdjkwMGgyMDB2LTkwMHpNMTAwMCAxMDUwbC0yMDAgLTI1MGgyMDB2LTEwMGgtMzAwdjE1MGwyMDAgMjUwaC0yMDB2MTAwaDMwMHYtMTUwek0xMDAwIDBoLTEwMHYxMDBoLTEwMHYtMTAwaC0xMDB2NTAwaDMwMHYtNTAwek04MDEgNDAwdi0yMDBoMTAwdjIwMGgtMTAweiAiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTUzOyIgZD0iTTQwMCAzMDBoMTUwcTIxIDAgMjUgLTExdC0xMCAtMjVsLTIzMCAtMjUwcS0xNCAtMTUgLTM1IC0xNXQtMzUgMTVsLTIzMCAyNTBxLTE0IDE0IC0xMCAyNXQyNSAxMWgxNTB2OTAwaDIwMHYtOTAwek0xMDAwIDcwMGgtMTAwdjQwMGgtMTAwdjEwMGgyMDB2LTUwMHpNMTEwMCAwaC0xMDB2MTAwaC0yMDB2NDAwaDMwMHYtNTAwek05MDEgNDAwdi0yMDBoMTAwdjIwMGgtMTAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNTQ7IiBkPSJNNDAwIDMwMGgxNTBxMjEgMCAyNSAtMTF0LTEwIC0yNWwtMjMwIC0yNTBxLTE0IC0xNSAtMzUgLTE1dC0zNSAxNWwtMjMwIDI1MHEtMTQgMTQgLTEwIDI1dDI1IDExaDE1MHY5MDBoMjAwdi05MDB6TTExMDAgNzAwaC0xMDB2MTAwaC0yMDB2NDAwaDMwMHYtNTAwek05MDEgMTEwMHYtMjAwaDEwMHYyMDBoLTEwMHpNMTAwMCAwaC0xMDB2NDAwaC0xMDB2MTAwaDIwMHYtNTAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNTU7IiBkPSJNNDAwIDMwMGgxNTBxMjEgMCAyNSAtMTF0LTEwIC0yNWwtMjMwIC0yNTBxLTE0IC0xNSAtMzUgLTE1dC0zNSAxNWwtMjMwIDI1MHEtMTQgMTQgLTEwIDI1dDI1IDExaDE1MHY5MDBoMjAwdi05MDB6TTkwMCAxMDAwaC0yMDB2MjAwaDIwMHYtMjAwek0xMDAwIDcwMGgtMzAwdjIwMGgzMDB2LTIwMHpNMTEwMCA0MDBoLTQwMHYyMDBoNDAwdi0yMDB6TTEyMDAgMTAwaC01MDB2MjAwaDUwMHYtMjAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNTY7IiBkPSJNNDAwIDMwMGgxNTBxMjEgMCAyNSAtMTF0LTEwIC0yNWwtMjMwIC0yNTBxLTE0IC0xNSAtMzUgLTE1dC0zNSAxNWwtMjMwIDI1MHEtMTQgMTQgLTEwIDI1dDI1IDExaDE1MHY5MDBoMjAwdi05MDB6TTEyMDAgMTAwMGgtNTAwdjIwMGg1MDB2LTIwMHpNMTEwMCA3MDBoLTQwMHYyMDBoNDAwdi0yMDB6TTEwMDAgNDAwaC0zMDB2MjAwaDMwMHYtMjAwek05MDAgMTAwaC0yMDB2MjAwaDIwMHYtMjAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNTc7IiBkPSJNMzUwIDExMDBoNDAwcTE2MiAwIDI1NiAtOTMuNXQ5NCAtMjU2LjV2LTQwMHEwIC0xNjUgLTkzLjUgLTI1Ny41dC0yNTYuNSAtOTIuNWgtNDAwcS0xNjUgMCAtMjU3LjUgOTIuNXQtOTIuNSAyNTcuNXY0MDBxMCAxNjUgOTIuNSAyNTcuNXQyNTcuNSA5Mi41ek04MDAgOTAwaC01MDBxLTQxIDAgLTcwLjUgLTI5LjV0LTI5LjUgLTcwLjV2LTUwMHEwIC00MSAyOS41IC03MC41dDcwLjUgLTI5LjVoNTAwcTQxIDAgNzAuNSAyOS41dDI5LjUgNzAuNSB2NTAwcTAgNDEgLTI5LjUgNzAuNXQtNzAuNSAyOS41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNTg7IiBkPSJNMzUwIDExMDBoNDAwcTE2NSAwIDI1Ny41IC05Mi41dDkyLjUgLTI1Ny41di00MDBxMCAtMTY1IC05Mi41IC0yNTcuNXQtMjU3LjUgLTkyLjVoLTQwMHEtMTYzIDAgLTI1Ni41IDkyLjV0LTkzLjUgMjU3LjV2NDAwcTAgMTYzIDk0IDI1Ni41dDI1NiA5My41ek04MDAgOTAwaC01MDBxLTQxIDAgLTcwLjUgLTI5LjV0LTI5LjUgLTcwLjV2LTUwMHEwIC00MSAyOS41IC03MC41dDcwLjUgLTI5LjVoNTAwcTQxIDAgNzAuNSAyOS41dDI5LjUgNzAuNSB2NTAwcTAgNDEgLTI5LjUgNzAuNXQtNzAuNSAyOS41ek00NDAgNzcwbDI1MyAtMTkwcTE3IC0xMiAxNyAtMzB0LTE3IC0zMGwtMjUzIC0xOTBxLTE2IC0xMiAtMjggLTYuNXQtMTIgMjYuNXY0MDBxMCAyMSAxMiAyNi41dDI4IC02LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE1OTsiIGQ9Ik0zNTAgMTEwMGg0MDBxMTYzIDAgMjU2LjUgLTk0dDkzLjUgLTI1NnYtNDAwcTAgLTE2NSAtOTIuNSAtMjU3LjV0LTI1Ny41IC05Mi41aC00MDBxLTE2NSAwIC0yNTcuNSA5Mi41dC05Mi41IDI1Ny41djQwMHEwIDE2MyA5Mi41IDI1Ni41dDI1Ny41IDkzLjV6TTgwMCA5MDBoLTUwMHEtNDEgMCAtNzAuNSAtMjkuNXQtMjkuNSAtNzAuNXYtNTAwcTAgLTQxIDI5LjUgLTcwLjV0NzAuNSAtMjkuNWg1MDBxNDEgMCA3MC41IDI5LjV0MjkuNSA3MC41IHY1MDBxMCA0MSAtMjkuNSA3MC41dC03MC41IDI5LjV6TTM1MCA3MDBoNDAwcTIxIDAgMjYuNSAtMTJ0LTYuNSAtMjhsLTE5MCAtMjUzcS0xMiAtMTcgLTMwIC0xN3QtMzAgMTdsLTE5MCAyNTNxLTEyIDE2IC02LjUgMjh0MjYuNSAxMnoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTYwOyIgZD0iTTM1MCAxMTAwaDQwMHExNjUgMCAyNTcuNSAtOTIuNXQ5Mi41IC0yNTcuNXYtNDAwcTAgLTE2MyAtOTIuNSAtMjU2LjV0LTI1Ny41IC05My41aC00MDBxLTE2MyAwIC0yNTYuNSA5NHQtOTMuNSAyNTZ2NDAwcTAgMTY1IDkyLjUgMjU3LjV0MjU3LjUgOTIuNXpNODAwIDkwMGgtNTAwcS00MSAwIC03MC41IC0yOS41dC0yOS41IC03MC41di01MDBxMCAtNDEgMjkuNSAtNzAuNXQ3MC41IC0yOS41aDUwMHE0MSAwIDcwLjUgMjkuNXQyOS41IDcwLjUgdjUwMHEwIDQxIC0yOS41IDcwLjV0LTcwLjUgMjkuNXpNNTgwIDY5M2wxOTAgLTI1M3ExMiAtMTYgNi41IC0yOHQtMjYuNSAtMTJoLTQwMHEtMjEgMCAtMjYuNSAxMnQ2LjUgMjhsMTkwIDI1M3ExMiAxNyAzMCAxN3QzMCAtMTd6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE2MTsiIGQ9Ik01NTAgMTEwMGg0MDBxMTY1IDAgMjU3LjUgLTkyLjV0OTIuNSAtMjU3LjV2LTQwMHEwIC0xNjUgLTkyLjUgLTI1Ny41dC0yNTcuNSAtOTIuNWgtNDAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYxMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41aDQ1MHE0MSAwIDcwLjUgMjkuNXQyOS41IDcwLjV2NTAwcTAgNDEgLTI5LjUgNzAuNXQtNzAuNSAyOS41aC00NTBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMCBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek0zMzggODY3bDMyNCAtMjg0cTE2IC0xNCAxNiAtMzN0LTE2IC0zM2wtMzI0IC0yODRxLTE2IC0xNCAtMjcgLTl0LTExIDI2djE1MGgtMjUwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYyMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41aDI1MHYxNTBxMCAyMSAxMSAyNnQyNyAtOXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTYyOyIgZD0iTTc5MyAxMTgybDkgLTlxOCAtMTAgNSAtMjdxLTMgLTExIC03OSAtMjI1LjV0LTc4IC0yMjEuNWwzMDAgMXEyNCAwIDMyLjUgLTE3LjV0LTUuNSAtMzUuNXEtMSAwIC0xMzMuNSAtMTU1dC0yNjcgLTMxMi41dC0xMzguNSAtMTYyLjVxLTEyIC0xNSAtMjYgLTE1aC05bC05IDhxLTkgMTEgLTQgMzJxMiA5IDQyIDEyMy41dDc5IDIyNC41bDM5IDExMGgtMzAycS0yMyAwIC0zMSAxOXEtMTAgMjEgNiA0MXE3NSA4NiAyMDkuNSAyMzcuNSB0MjI4IDI1N3Q5OC41IDExMS41cTkgMTYgMjUgMTZoOXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTYzOyIgZD0iTTM1MCAxMTAwaDQwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC00NTBxLTQxIDAgLTcwLjUgLTI5LjV0LTI5LjUgLTcwLjV2LTUwMHEwIC00MSAyOS41IC03MC41dDcwLjUgLTI5LjVoNDUwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0xMDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTQwMHEtMTY1IDAgLTI1Ny41IDkyLjV0LTkyLjUgMjU3LjV2NDAwIHEwIDE2NSA5Mi41IDI1Ny41dDI1Ny41IDkyLjV6TTkzOCA4NjdsMzI0IC0yODRxMTYgLTE0IDE2IC0zM3QtMTYgLTMzbC0zMjQgLTI4NHEtMTYgLTE0IC0yNyAtOXQtMTEgMjZ2MTUwaC0yNTBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djIwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjVoMjUwdjE1MHEwIDIxIDExIDI2dDI3IC05eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNjQ7IiBkPSJNNzUwIDEyMDBoNDAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di00MDBxMCAtMjEgLTEwLjUgLTI1dC0yNC41IDEwbC0xMDkgMTA5bC0zMTIgLTMxMnEtMTUgLTE1IC0zNS41IC0xNXQtMzUuNSAxNWwtMTQxIDE0MXEtMTUgMTUgLTE1IDM1LjV0MTUgMzUuNWwzMTIgMzEybC0xMDkgMTA5cS0xNCAxNCAtMTAgMjQuNXQyNSAxMC41ek00NTYgOTAwaC0xNTZxLTQxIDAgLTcwLjUgLTI5LjV0LTI5LjUgLTcwLjV2LTUwMCBxMCAtNDEgMjkuNSAtNzAuNXQ3MC41IC0yOS41aDUwMHE0MSAwIDcwLjUgMjkuNXQyOS41IDcwLjV2MTQ4bDIwMCAyMDB2LTI5OHEwIC0xNjUgLTkzLjUgLTI1Ny41dC0yNTYuNSAtOTIuNWgtNDAwcS0xNjUgMCAtMjU3LjUgOTIuNXQtOTIuNSAyNTcuNXY0MDBxMCAxNjUgOTIuNSAyNTcuNXQyNTcuNSA5Mi41aDMwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTY1OyIgZD0iTTYwMCAxMTg2cTExOSAwIDIyNy41IC00Ni41dDE4NyAtMTI1dDEyNSAtMTg3dDQ2LjUgLTIyNy41dC00Ni41IC0yMjcuNXQtMTI1IC0xODd0LTE4NyAtMTI1dC0yMjcuNSAtNDYuNXQtMjI3LjUgNDYuNXQtMTg3IDEyNXQtMTI1IDE4N3QtNDYuNSAyMjcuNXQ0Ni41IDIyNy41dDEyNSAxODd0MTg3IDEyNXQyMjcuNSA0Ni41ek02MDAgMTAyMnEtMTE1IDAgLTIxMiAtNTYuNXQtMTUzLjUgLTE1My41dC01Ni41IC0yMTJ0NTYuNSAtMjEyIHQxNTMuNSAtMTUzLjV0MjEyIC01Ni41dDIxMiA1Ni41dDE1My41IDE1My41dDU2LjUgMjEydC01Ni41IDIxMnQtMTUzLjUgMTUzLjV0LTIxMiA1Ni41ek02MDAgNzk0cTgwIDAgMTM3IC01N3Q1NyAtMTM3dC01NyAtMTM3dC0xMzcgLTU3dC0xMzcgNTd0LTU3IDEzN3Q1NyAxMzd0MTM3IDU3eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNjY7IiBkPSJNNDUwIDEyMDBoMjAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0zNTBoMjQ1cTIwIDAgMjUgLTExdC05IC0yNmwtMzgzIC00MjZxLTE0IC0xNSAtMzMuNSAtMTV0LTMyLjUgMTVsLTM3OSA0MjZxLTEzIDE1IC04LjUgMjZ0MjUuNSAxMWgyNTB2MzUwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNNTAgMzAwaDEwMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTI1MGgtMTEwMHYyNTBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41eiBNOTAwIDIwMHYtNTBoMTAwdjUwaC0xMDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE2NzsiIGQ9Ik01ODMgMTE4MmwzNzggLTQzNXExNCAtMTUgOSAtMzF0LTI2IC0xNmgtMjQ0di0yNTBxMCAtMjAgLTE3IC0zNXQtMzkgLTE1aC0yMDBxLTIwIDAgLTMyIDE0LjV0LTEyIDM1LjV2MjUwaC0yNTBxLTIwIDAgLTI1LjUgMTYuNXQ4LjUgMzEuNWwzODMgNDMxcTE0IDE2IDMzLjUgMTd0MzMuNSAtMTR6TTUwIDMwMGgxMDAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0yNTBoLTExMDB2MjUwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXogTTkwMCAyMDB2LTUwaDEwMHY1MGgtMTAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNjg7IiBkPSJNMzk2IDcyM2wzNjkgMzY5cTcgNyAxNy41IDd0MTcuNSAtN2wxMzkgLTEzOXE3IC04IDcgLTE4LjV0LTcgLTE3LjVsLTUyNSAtNTI1cS03IC04IC0xNy41IC04dC0xNy41IDhsLTI5MiAyOTFxLTcgOCAtNyAxOHQ3IDE4bDEzOSAxMzlxOCA3IDE4LjUgN3QxNy41IC03ek01MCAzMDBoMTAwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMjUwaC0xMTAwdjI1MHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTkwMCAyMDB2LTUwaDEwMHY1MCBoLTEwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTY5OyIgZD0iTTEzNSAxMDIzbDE0MiAxNDJxMTQgMTQgMzUgMTR0MzUgLTE0bDc3IC03N2wtMjEyIC0yMTJsLTc3IDc2cS0xNCAxNSAtMTQgMzZ0MTQgMzV6TTY1NSA4NTVsMjEwIDIxMHExNCAxNCAyNC41IDEwdDEwLjUgLTI1bC0yIC01OTlxLTEgLTIwIC0xNS41IC0zNXQtMzUuNSAtMTVsLTU5NyAtMXEtMjEgMCAtMjUgMTAuNXQxMCAyNC41bDIwOCAyMDhsLTE1NCAxNTVsMjEyIDIxMnpNNTAgMzAwaDEwMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjUgdi0yNTBoLTExMDB2MjUwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNOTAwIDIwMHYtNTBoMTAwdjUwaC0xMDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE3MDsiIGQ9Ik0zNTAgMTIwMGw1OTkgLTJxMjAgLTEgMzUgLTE1LjV0MTUgLTM1LjVsMSAtNTk3cTAgLTIxIC0xMC41IC0yNXQtMjQuNSAxMGwtMjA4IDIwOGwtMTU1IC0xNTRsLTIxMiAyMTJsMTU1IDE1NGwtMjEwIDIxMHEtMTQgMTQgLTEwIDI0LjV0MjUgMTAuNXpNNTI0IDUxMmwtNzYgLTc3cS0xNSAtMTQgLTM2IC0xNHQtMzUgMTRsLTE0MiAxNDJxLTE0IDE0IC0xNCAzNXQxNCAzNWw3NyA3N3pNNTAgMzAwaDEwMDBxMjEgMCAzNS41IC0xNC41IHQxNC41IC0zNS41di0yNTBoLTExMDB2MjUwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNOTAwIDIwMHYtNTBoMTAwdjUwaC0xMDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE3MTsiIGQ9Ik0xMjAwIDEwM2wtNDgzIDI3NmwtMzE0IC0zOTl2NDIzaC0zOTlsMTE5NiA3OTZ2LTEwOTZ6TTQ4MyA0MjR2LTIzMGw2ODMgOTUzeiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNzI7IiBkPSJNMTEwMCAxMDAwdi04NTBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTE1MHY0MDBoLTcwMHYtNDAwaC0xNTBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMDBxMCAyMCAxNC41IDM1dDM1LjUgMTVoMjUwdi0zMDBoNTAwdjMwMGgxMDB6TTcwMCAxMDAwaC0xMDB2MjAwaDEwMHYtMjAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNzM7IiBkPSJNMTEwMCAxMDAwbC0yIC0xNDlsLTI5OSAtMjk5bC05NSA5NXEtOSA5IC0yMS41IDl0LTIxLjUgLTlsLTE0OSAtMTQ3aC0zMTJ2LTQwMGgtMTUwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYxMDAwcTAgMjAgMTQuNSAzNXQzNS41IDE1aDI1MHYtMzAwaDUwMHYzMDBoMTAwek03MDAgMTAwMGgtMTAwdjIwMGgxMDB2LTIwMHpNMTEzMiA2MzhsMTA2IC0xMDZxNyAtNyA3IC0xNy41dC03IC0xNy41bC00MjAgLTQyMXEtOCAtNyAtMTggLTcgdC0xOCA3bC0yMDIgMjAzcS04IDcgLTggMTcuNXQ4IDE3LjVsMTA2IDEwNnE3IDggMTcuNSA4dDE3LjUgLThsNzkgLTc5bDI5NyAyOTdxNyA3IDE3LjUgN3QxNy41IC03eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNzQ7IiBkPSJNMTEwMCAxMDAwdi0yNjlsLTEwMyAtMTAzbC0xMzQgMTM0cS0xNSAxNSAtMzMuNSAxNi41dC0zNC41IC0xMi41bC0yNjYgLTI2NmgtMzI5di00MDBoLTE1MHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MTAwMHEwIDIwIDE0LjUgMzV0MzUuNSAxNWgyNTB2LTMwMGg1MDB2MzAwaDEwMHpNNzAwIDEwMDBoLTEwMHYyMDBoMTAwdi0yMDB6TTEyMDIgNTcybDcwIC03MHExNSAtMTUgMTUgLTM1LjV0LTE1IC0zNS41bC0xMzEgLTEzMSBsMTMxIC0xMzFxMTUgLTE1IDE1IC0zNS41dC0xNSAtMzUuNWwtNzAgLTcwcS0xNSAtMTUgLTM1LjUgLTE1dC0zNS41IDE1bC0xMzEgMTMxbC0xMzEgLTEzMXEtMTUgLTE1IC0zNS41IC0xNXQtMzUuNSAxNWwtNzAgNzBxLTE1IDE1IC0xNSAzNS41dDE1IDM1LjVsMTMxIDEzMWwtMTMxIDEzMXEtMTUgMTUgLTE1IDM1LjV0MTUgMzUuNWw3MCA3MHExNSAxNSAzNS41IDE1dDM1LjUgLTE1bDEzMSAtMTMxbDEzMSAxMzFxMTUgMTUgMzUuNSAxNSB0MzUuNSAtMTV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE3NTsiIGQ9Ik0xMTAwIDEwMDB2LTMwMGgtMzUwcS0yMSAwIC0zNS41IC0xNC41dC0xNC41IC0zNS41di0xNTBoLTUwMHYtNDAwaC0xNTBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMDBxMCAyMCAxNC41IDM1dDM1LjUgMTVoMjUwdi0zMDBoNTAwdjMwMGgxMDB6TTcwMCAxMDAwaC0xMDB2MjAwaDEwMHYtMjAwek04NTAgNjAwaDEwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMjUwaDE1MHEyMSAwIDI1IC0xMC41dC0xMCAtMjQuNSBsLTIzMCAtMjMwcS0xNCAtMTQgLTM1IC0xNHQtMzUgMTRsLTIzMCAyMzBxLTE0IDE0IC0xMCAyNC41dDI1IDEwLjVoMTUwdjI1MHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE3NjsiIGQ9Ik0xMTAwIDEwMDB2LTQwMGwtMTY1IDE2NXEtMTQgMTUgLTM1IDE1dC0zNSAtMTVsLTI2MyAtMjY1aC00MDJ2LTQwMGgtMTUwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYxMDAwcTAgMjAgMTQuNSAzNXQzNS41IDE1aDI1MHYtMzAwaDUwMHYzMDBoMTAwek03MDAgMTAwMGgtMTAwdjIwMGgxMDB2LTIwMHpNOTM1IDU2NWwyMzAgLTIyOXExNCAtMTUgMTAgLTI1LjV0LTI1IC0xMC41aC0xNTB2LTI1MHEwIC0yMCAtMTQuNSAtMzUgdC0zNS41IC0xNWgtMTAwcS0yMSAwIC0zNS41IDE1dC0xNC41IDM1djI1MGgtMTUwcS0yMSAwIC0yNSAxMC41dDEwIDI1LjVsMjMwIDIyOXExNCAxNSAzNSAxNXQzNSAtMTV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE3NzsiIGQ9Ik01MCAxMTAwaDExMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTE1MGgtMTIwMHYxNTBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek0xMjAwIDgwMHYtNTUwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xMTAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXY1NTBoMTIwMHpNMTAwIDUwMHYtMjAwaDQwMHYyMDBoLTQwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTc4OyIgZD0iTTkzNSAxMTY1bDI0OCAtMjMwcTE0IC0xNCAxNCAtMzV0LTE0IC0zNWwtMjQ4IC0yMzBxLTE0IC0xNCAtMjQuNSAtMTB0LTEwLjUgMjV2MTUwaC00MDB2MjAwaDQwMHYxNTBxMCAyMSAxMC41IDI1dDI0LjUgLTEwek0yMDAgODAwaC01MHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MTAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNWg1MHYtMjAwek00MDAgODAwaC0xMDB2MjAwaDEwMHYtMjAwek0xOCA0MzVsMjQ3IDIzMCBxMTQgMTQgMjQuNSAxMHQxMC41IC0yNXYtMTUwaDQwMHYtMjAwaC00MDB2LTE1MHEwIC0yMSAtMTAuNSAtMjV0LTI0LjUgMTBsLTI0NyAyMzBxLTE1IDE0IC0xNSAzNXQxNSAzNXpNOTAwIDMwMGgtMTAwdjIwMGgxMDB2LTIwMHpNMTAwMCA1MDBoNTFxMjAgMCAzNC41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzQuNSAtMTQuNWgtNTF2MjAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNzk7IiBkPSJNODYyIDEwNzNsMjc2IDExNnEyNSAxOCA0My41IDh0MTguNSAtNDF2LTExMDZxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTIwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2Mzk3cS00IDEgLTExIDV0LTI0IDE3LjV0LTMwIDI5dC0yNCA0MnQtMTEgNTYuNXYzNTlxMCAzMSAxOC41IDY1dDQzLjUgNTJ6TTU1MCAxMjAwcTIyIDAgMzQuNSAtMTIuNXQxNC41IC0yNC41bDEgLTEzdi00NTBxMCAtMjggLTEwLjUgLTU5LjUgdC0yNSAtNTZ0LTI5IC00NXQtMjUuNSAtMzEuNWwtMTAgLTExdi00NDdxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTIwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2NDQ3cS00IDQgLTExIDExLjV0LTI0IDMwLjV0LTMwIDQ2dC0yNCA1NXQtMTEgNjB2NDUwcTAgMiAwLjUgNS41dDQgMTJ0OC41IDE1dDE0LjUgMTJ0MjIuNSA1LjVxMjAgMCAzMi41IC0xMi41dDE0LjUgLTI0LjVsMyAtMTN2LTM1MGgxMDB2MzUwdjUuNXQyLjUgMTIgdDcgMTV0MTUgMTJ0MjUuNSA1LjVxMjMgMCAzNS41IC0xMi41dDEzLjUgLTI0LjVsMSAtMTN2LTM1MGgxMDB2MzUwcTAgMiAwLjUgNS41dDMgMTJ0NyAxNXQxNSAxMnQyNC41IDUuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTgwOyIgZD0iTTEyMDAgMTEwMHYtNTZxLTQgMCAtMTEgLTAuNXQtMjQgLTN0LTMwIC03LjV0LTI0IC0xNXQtMTEgLTI0di04ODhxMCAtMjIgMjUgLTM0LjV0NTAgLTEzLjVsMjUgLTJ2LTU2aC00MDB2NTZxNzUgMCA4Ny41IDYuNXQxMi41IDQzLjV2Mzk0aC01MDB2LTM5NHEwIC0zNyAxMi41IC00My41dDg3LjUgLTYuNXYtNTZoLTQwMHY1NnE0IDAgMTEgMC41dDI0IDN0MzAgNy41dDI0IDE1dDExIDI0djg4OHEwIDIyIC0yNSAzNC41dC01MCAxMy41IGwtMjUgMnY1Nmg0MDB2LTU2cS03NSAwIC04Ny41IC02LjV0LTEyLjUgLTQzLjV2LTM5NGg1MDB2Mzk0cTAgMzcgLTEyLjUgNDMuNXQtODcuNSA2LjV2NTZoNDAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxODE7IiBkPSJNNjc1IDEwMDBoMzc1cTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0xNTBoLTEwNWwtMjk1IC05OHY5OGwtMjAwIDIwMGgtNDAwbDEwMCAxMDBoMzc1ek0xMDAgOTAwaDMwMHE0MSAwIDcwLjUgLTI5LjV0MjkuNSAtNzAuNXYtNTAwcTAgLTQxIC0yOS41IC03MC41dC03MC41IC0yOS41aC0zMDBxLTQxIDAgLTcwLjUgMjkuNXQtMjkuNSA3MC41djUwMHEwIDQxIDI5LjUgNzAuNXQ3MC41IDI5LjV6TTEwMCA4MDB2LTIwMGgzMDB2MjAwIGgtMzAwek0xMTAwIDUzNWwtNDAwIC0xMzN2MTYzbDQwMCAxMzN2LTE2M3pNMTAwIDUwMHYtMjAwaDMwMHYyMDBoLTMwMHpNMTEwMCAzOTh2LTI0OHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMzc1bC0xMDAgLTEwMGgtMzc1bC0xMDAgMTAwaDQwMGwyMDAgMjAwaDEwNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTgyOyIgZD0iTTE3IDEwMDdsMTYyIDE2MnExNyAxNyA0MCAxNHQzNyAtMjJsMTM5IC0xOTRxMTQgLTIwIDExIC00NC41dC0yMCAtNDEuNWwtMTE5IC0xMThxMTAyIC0xNDIgMjI4IC0yNjh0MjY3IC0yMjdsMTE5IDExOHExNyAxNyA0Mi41IDE5dDQ0LjUgLTEybDE5MiAtMTM2cTE5IC0xNCAyMi41IC0zNy41dC0xMy41IC00MC41bC0xNjMgLTE2MnEtMyAtMSAtOS41IC0xdC0yOS41IDJ0LTQ3LjUgNnQtNjIuNSAxNC41dC03Ny41IDI2LjV0LTkwIDQyLjUgdC0xMDEuNSA2MHQtMTExIDgzdC0xMTkgMTA4LjVxLTc0IDc0IC0xMzMuNSAxNTAuNXQtOTQuNSAxMzguNXQtNjAgMTE5LjV0LTM0LjUgMTAwdC0xNSA3NC41dC00LjUgNDh6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE4MzsiIGQ9Ik02MDAgMTEwMHE5MiAwIDE3NSAtMTAuNXQxNDEuNSAtMjd0MTA4LjUgLTM2LjV0ODEuNSAtNDB0NTMuNSAtMzd0MzEgLTI3bDkgLTEwdi0yMDBxMCAtMjEgLTE0LjUgLTMzdC0zNC41IC05bC0yMDIgMzRxLTIwIDMgLTM0LjUgMjB0LTE0LjUgMzh2MTQ2cS0xNDEgMjQgLTMwMCAyNHQtMzAwIC0yNHYtMTQ2cTAgLTIxIC0xNC41IC0zOHQtMzQuNSAtMjBsLTIwMiAtMzRxLTIwIC0zIC0zNC41IDl0LTE0LjUgMzN2MjAwcTMgNCA5LjUgMTAuNSB0MzEgMjZ0NTQgMzcuNXQ4MC41IDM5LjV0MTA5IDM3LjV0MTQxIDI2LjV0MTc1IDEwLjV6TTYwMCA3OTVxNTYgMCA5NyAtOS41dDYwIC0yMy41dDMwIC0yOHQxMiAtMjRsMSAtMTB2LTUwbDM2NSAtMzAzcTE0IC0xNSAyNC41IC00MHQxMC41IC00NXYtMjEycTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xMTAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYyMTJxMCAyMCAxMC41IDQ1dDI0LjUgNDBsMzY1IDMwM3Y1MCBxMCA0IDEgMTAuNXQxMiAyM3QzMCAyOXQ2MCAyMi41dDk3IDEweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxODQ7IiBkPSJNMTEwMCA3MDBsLTIwMCAtMjAwaC02MDBsLTIwMCAyMDB2NTAwaDIwMHYtMjAwaDIwMHYyMDBoMjAwdi0yMDBoMjAwdjIwMGgyMDB2LTUwMHpNMjUwIDQwMGg3MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV0LTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTEybDEzNyAtMTAwaC05NTBsMTM3IDEwMGgtMTJxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41dDE0LjUgMzUuNXQzNS41IDE0LjV6TTUwIDEwMGgxMTAwcTIxIDAgMzUuNSAtMTQuNSB0MTQuNSAtMzUuNXYtNTBoLTEyMDB2NTBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxODU7IiBkPSJNNzAwIDExMDBoLTEwMHEtNDEgMCAtNzAuNSAtMjkuNXQtMjkuNSAtNzAuNXYtMTAwMGgzMDB2MTAwMHEwIDQxIC0yOS41IDcwLjV0LTcwLjUgMjkuNXpNMTEwMCA4MDBoLTEwMHEtNDEgMCAtNzAuNSAtMjkuNXQtMjkuNSAtNzAuNXYtNzAwaDMwMHY3MDBxMCA0MSAtMjkuNSA3MC41dC03MC41IDI5LjV6TTQwMCAwaC0zMDB2NDAwcTAgNDEgMjkuNSA3MC41dDcwLjUgMjkuNWgxMDBxNDEgMCA3MC41IC0yOS41dDI5LjUgLTcwLjV2LTQwMHogIiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE4NjsiIGQ9Ik0yMDAgMTEwMGg3MDBxMTI0IDAgMjEyIC04OHQ4OCAtMjEydi01MDBxMCAtMTI0IC04OCAtMjEydC0yMTIgLTg4aC03MDBxLTEyNCAwIC0yMTIgODh0LTg4IDIxMnY1MDBxMCAxMjQgODggMjEydDIxMiA4OHpNMTAwIDkwMHYtNzAwaDkwMHY3MDBoLTkwMHpNNTAwIDcwMGgtMjAwdi0xMDBoMjAwdi0zMDBoLTMwMHYxMDBoMjAwdjEwMGgtMjAwdjMwMGgzMDB2LTEwMHpNOTAwIDcwMHYtMzAwbC0xMDAgLTEwMGgtMjAwdjUwMGgyMDB6IE03MDAgNzAwdi0zMDBoMTAwdjMwMGgtMTAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxODc7IiBkPSJNMjAwIDExMDBoNzAwcTEyNCAwIDIxMiAtODh0ODggLTIxMnYtNTAwcTAgLTEyNCAtODggLTIxMnQtMjEyIC04OGgtNzAwcS0xMjQgMCAtMjEyIDg4dC04OCAyMTJ2NTAwcTAgMTI0IDg4IDIxMnQyMTIgODh6TTEwMCA5MDB2LTcwMGg5MDB2NzAwaC05MDB6TTUwMCAzMDBoLTEwMHYyMDBoLTEwMHYtMjAwaC0xMDB2NTAwaDEwMHYtMjAwaDEwMHYyMDBoMTAwdi01MDB6TTkwMCA3MDB2LTMwMGwtMTAwIC0xMDBoLTIwMHY1MDBoMjAweiBNNzAwIDcwMHYtMzAwaDEwMHYzMDBoLTEwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTg4OyIgZD0iTTIwMCAxMTAwaDcwMHExMjQgMCAyMTIgLTg4dDg4IC0yMTJ2LTUwMHEwIC0xMjQgLTg4IC0yMTJ0LTIxMiAtODhoLTcwMHEtMTI0IDAgLTIxMiA4OHQtODggMjEydjUwMHEwIDEyNCA4OCAyMTJ0MjEyIDg4ek0xMDAgOTAwdi03MDBoOTAwdjcwMGgtOTAwek01MDAgNzAwaC0yMDB2LTMwMGgyMDB2LTEwMGgtMzAwdjUwMGgzMDB2LTEwMHpNOTAwIDcwMGgtMjAwdi0zMDBoMjAwdi0xMDBoLTMwMHY1MDBoMzAwdi0xMDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE4OTsiIGQ9Ik0yMDAgMTEwMGg3MDBxMTI0IDAgMjEyIC04OHQ4OCAtMjEydi01MDBxMCAtMTI0IC04OCAtMjEydC0yMTIgLTg4aC03MDBxLTEyNCAwIC0yMTIgODh0LTg4IDIxMnY1MDBxMCAxMjQgODggMjEydDIxMiA4OHpNMTAwIDkwMHYtNzAwaDkwMHY3MDBoLTkwMHpNNTAwIDQwMGwtMzAwIDE1MGwzMDAgMTUwdi0zMDB6TTkwMCA1NTBsLTMwMCAtMTUwdjMwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTkwOyIgZD0iTTIwMCAxMTAwaDcwMHExMjQgMCAyMTIgLTg4dDg4IC0yMTJ2LTUwMHEwIC0xMjQgLTg4IC0yMTJ0LTIxMiAtODhoLTcwMHEtMTI0IDAgLTIxMiA4OHQtODggMjEydjUwMHEwIDEyNCA4OCAyMTJ0MjEyIDg4ek0xMDAgOTAwdi03MDBoOTAwdjcwMGgtOTAwek05MDAgMzAwaC03MDB2NTAwaDcwMHYtNTAwek04MDAgNzAwaC0xMzBxLTM4IDAgLTY2LjUgLTQzdC0yOC41IC0xMDh0MjcgLTEwN3Q2OCAtNDJoMTMwdjMwMHpNMzAwIDcwMHYtMzAwIGgxMzBxNDEgMCA2OCA0MnQyNyAxMDd0LTI4LjUgMTA4dC02Ni41IDQzaC0xMzB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE5MTsiIGQ9Ik0yMDAgMTEwMGg3MDBxMTI0IDAgMjEyIC04OHQ4OCAtMjEydi01MDBxMCAtMTI0IC04OCAtMjEydC0yMTIgLTg4aC03MDBxLTEyNCAwIC0yMTIgODh0LTg4IDIxMnY1MDBxMCAxMjQgODggMjEydDIxMiA4OHpNMTAwIDkwMHYtNzAwaDkwMHY3MDBoLTkwMHpNNTAwIDcwMGgtMjAwdi0xMDBoMjAwdi0zMDBoLTMwMHYxMDBoMjAwdjEwMGgtMjAwdjMwMGgzMDB2LTEwMHpNOTAwIDMwMGgtMTAwdjQwMGgtMTAwdjEwMGgyMDB2LTUwMHogTTcwMCAzMDBoLTEwMHYxMDBoMTAwdi0xMDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE5MjsiIGQ9Ik0yMDAgMTEwMGg3MDBxMTI0IDAgMjEyIC04OHQ4OCAtMjEydi01MDBxMCAtMTI0IC04OCAtMjEydC0yMTIgLTg4aC03MDBxLTEyNCAwIC0yMTIgODh0LTg4IDIxMnY1MDBxMCAxMjQgODggMjEydDIxMiA4OHpNMTAwIDkwMHYtNzAwaDkwMHY3MDBoLTkwMHpNMzAwIDcwMGgyMDB2LTQwMGgtMzAwdjUwMGgxMDB2LTEwMHpNOTAwIDMwMGgtMTAwdjQwMGgtMTAwdjEwMGgyMDB2LTUwMHpNMzAwIDYwMHYtMjAwaDEwMHYyMDBoLTEwMHogTTcwMCAzMDBoLTEwMHYxMDBoMTAwdi0xMDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE5MzsiIGQ9Ik0yMDAgMTEwMGg3MDBxMTI0IDAgMjEyIC04OHQ4OCAtMjEydi01MDBxMCAtMTI0IC04OCAtMjEydC0yMTIgLTg4aC03MDBxLTEyNCAwIC0yMTIgODh0LTg4IDIxMnY1MDBxMCAxMjQgODggMjEydDIxMiA4OHpNMTAwIDkwMHYtNzAwaDkwMHY3MDBoLTkwMHpNNTAwIDUwMGwtMTk5IC0yMDBoLTEwMHY1MGwxOTkgMjAwdjE1MGgtMjAwdjEwMGgzMDB2LTMwMHpNOTAwIDMwMGgtMTAwdjQwMGgtMTAwdjEwMGgyMDB2LTUwMHpNNzAxIDMwMGgtMTAwIHYxMDBoMTAwdi0xMDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE5NDsiIGQ9Ik02MDAgMTE5MXExMjAgMCAyMjkuNSAtNDd0MTg4LjUgLTEyNnQxMjYgLTE4OC41dDQ3IC0yMjkuNXQtNDcgLTIyOS41dC0xMjYgLTE4OC41dC0xODguNSAtMTI2dC0yMjkuNSAtNDd0LTIyOS41IDQ3dC0xODguNSAxMjZ0LTEyNiAxODguNXQtNDcgMjI5LjV0NDcgMjI5LjV0MTI2IDE4OC41dDE4OC41IDEyNnQyMjkuNSA0N3pNNjAwIDEwMjFxLTExNCAwIC0yMTEgLTU2LjV0LTE1My41IC0xNTMuNXQtNTYuNSAtMjExdDU2LjUgLTIxMSB0MTUzLjUgLTE1My41dDIxMSAtNTYuNXQyMTEgNTYuNXQxNTMuNSAxNTMuNXQ1Ni41IDIxMXQtNTYuNSAyMTF0LTE1My41IDE1My41dC0yMTEgNTYuNXpNODAwIDcwMGgtMzAwdi0yMDBoMzAwdi0xMDBoLTMwMGwtMTAwIDEwMHYyMDBsMTAwIDEwMGgzMDB2LTEwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTk1OyIgZD0iTTYwMCAxMTkxcTEyMCAwIDIyOS41IC00N3QxODguNSAtMTI2dDEyNiAtMTg4LjV0NDcgLTIyOS41dC00NyAtMjI5LjV0LTEyNiAtMTg4LjV0LTE4OC41IC0xMjZ0LTIyOS41IC00N3QtMjI5LjUgNDd0LTE4OC41IDEyNnQtMTI2IDE4OC41dC00NyAyMjkuNXQ0NyAyMjkuNXQxMjYgMTg4LjV0MTg4LjUgMTI2dDIyOS41IDQ3ek02MDAgMTAyMXEtMTE0IDAgLTIxMSAtNTYuNXQtMTUzLjUgLTE1My41dC01Ni41IC0yMTF0NTYuNSAtMjExIHQxNTMuNSAtMTUzLjV0MjExIC01Ni41dDIxMSA1Ni41dDE1My41IDE1My41dDU2LjUgMjExdC01Ni41IDIxMXQtMTUzLjUgMTUzLjV0LTIxMSA1Ni41ek04MDAgNzAwdi0xMDBsLTUwIC01MGwxMDAgLTEwMHYtNTBoLTEwMGwtMTAwIDEwMGgtMTUwdi0xMDBoLTEwMHY0MDBoMzAwek01MDAgNzAwdi0xMDBoMjAwdjEwMGgtMjAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxOTc7IiBkPSJNNTAzIDEwODlxMTEwIDAgMjAwLjUgLTU5LjV0MTM0LjUgLTE1Ni41cTQ0IDE0IDkwIDE0cTEyMCAwIDIwNSAtODYuNXQ4NSAtMjA3dC04NSAtMjA3dC0yMDUgLTg2LjVoLTEyOHYyNTBxMCAyMSAtMTQuNSAzNS41dC0zNS41IDE0LjVoLTMwMHEtMjEgMCAtMzUuNSAtMTQuNXQtMTQuNSAtMzUuNXYtMjUwaC0yMjJxLTgwIDAgLTEzNiA1Ny41dC01NiAxMzYuNXEwIDY5IDQzIDEyMi41dDEwOCA2Ny41cS0yIDE5IC0yIDM3cTAgMTAwIDQ5IDE4NSB0MTM0IDEzNHQxODUgNDl6TTUyNSA1MDBoMTUwcTEwIDAgMTcuNSAtNy41dDcuNSAtMTcuNXYtMjc1aDEzN3EyMSAwIDI2IC0xMS41dC04IC0yNy41bC0yMjMgLTI0NHEtMTMgLTE2IC0zMiAtMTZ0LTMyIDE2bC0yMjMgMjQ0cS0xMyAxNiAtOCAyNy41dDI2IDExLjVoMTM3djI3NXEwIDEwIDcuNSAxNy41dDE3LjUgNy41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxOTg7IiBkPSJNNTAyIDEwODlxMTEwIDAgMjAxIC01OS41dDEzNSAtMTU2LjVxNDMgMTUgODkgMTVxMTIxIDAgMjA2IC04Ni41dDg2IC0yMDYuNXEwIC05OSAtNjAgLTE4MXQtMTUwIC0xMTBsLTM3OCAzNjBxLTEzIDE2IC0zMS41IDE2dC0zMS41IC0xNmwtMzgxIC0zNjVoLTlxLTc5IDAgLTEzNS41IDU3LjV0LTU2LjUgMTM2LjVxMCA2OSA0MyAxMjIuNXQxMDggNjcuNXEtMiAxOSAtMiAzOHEwIDEwMCA0OSAxODQuNXQxMzMuNSAxMzR0MTg0LjUgNDkuNXogTTYzMiA0NjdsMjIzIC0yMjhxMTMgLTE2IDggLTI3LjV0LTI2IC0xMS41aC0xMzd2LTI3NXEwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTE1MHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djI3NWgtMTM3cS0yMSAwIC0yNiAxMS41dDggMjcuNXExOTkgMjA0IDIyMyAyMjhxMTkgMTkgMzEuNSAxOXQzMi41IC0xOXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTk5OyIgZD0iTTcwMCAxMDB2MTAwaDQwMGwtMjcwIDMwMGgxNzBsLTI3MCAzMDBoMTcwbC0zMDAgMzMzbC0zMDAgLTMzM2gxNzBsLTI3MCAtMzAwaDE3MGwtMjcwIC0zMDBoNDAwdi0xMDBoLTUwcS0yMSAwIC0zNS41IC0xNC41dC0xNC41IC0zNS41di01MGg0MDB2NTBxMCAyMSAtMTQuNSAzNS41dC0zNS41IDE0LjVoLTUweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyMDA7IiBkPSJNNjAwIDExNzlxOTQgMCAxNjcuNSAtNTYuNXQ5OS41IC0xNDUuNXE4OSAtNiAxNTAuNSAtNzEuNXQ2MS41IC0xNTUuNXEwIC02MSAtMjkuNSAtMTEyLjV0LTc5LjUgLTgyLjVxOSAtMjkgOSAtNTVxMCAtNzQgLTUyLjUgLTEyNi41dC0xMjYuNSAtNTIuNXEtNTUgMCAtMTAwIDMwdi0yNTFxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTUwaC0zMDB2NTBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41djI1MXEtNDUgLTMwIC0xMDAgLTMwIHEtNzQgMCAtMTI2LjUgNTIuNXQtNTIuNSAxMjYuNXEwIDE4IDQgMzhxLTQ3IDIxIC03NS41IDY1dC0yOC41IDk3cTAgNzQgNTIuNSAxMjYuNXQxMjYuNSA1Mi41cTUgMCAyMyAtMnEwIDIgLTEgMTB0LTEgMTNxMCAxMTYgODEuNSAxOTcuNXQxOTcuNSA4MS41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyMDE7IiBkPSJNMTAxMCAxMDEwcTExMSAtMTExIDE1MC41IC0yNjAuNXQwIC0yOTl0LTE1MC41IC0yNjAuNXEtODMgLTgzIC0xOTEuNSAtMTI2LjV0LTIxOC41IC00My41dC0yMTguNSA0My41dC0xOTEuNSAxMjYuNXEtMTExIDExMSAtMTUwLjUgMjYwLjV0MCAyOTl0MTUwLjUgMjYwLjVxODMgODMgMTkxLjUgMTI2LjV0MjE4LjUgNDMuNXQyMTguNSAtNDMuNXQxOTEuNSAtMTI2LjV6TTQ3NiAxMDY1cS00IDAgLTggLTFxLTEyMSAtMzQgLTIwOS41IC0xMjIuNSB0LTEyMi41IC0yMDkuNXEtNCAtMTIgMi41IC0yM3QxOC41IC0xNGwzNiAtOXEzIC0xIDcgLTFxMjMgMCAyOSAyMnEyNyA5NiA5OCAxNjZxNzAgNzEgMTY2IDk4cTExIDMgMTcuNSAxMy41dDMuNSAyMi41bC05IDM1cS0zIDEzIC0xNCAxOXEtNyA0IC0xNSA0ek01MTIgOTIwcS00IDAgLTkgLTJxLTgwIC0yNCAtMTM4LjUgLTgyLjV0LTgyLjUgLTEzOC41cS00IC0xMyAyIC0yNHQxOSAtMTRsMzQgLTlxNCAtMSA4IC0xcTIyIDAgMjggMjEgcTE4IDU4IDU4LjUgOTguNXQ5Ny41IDU4LjVxMTIgMyAxOCAxMy41dDMgMjEuNWwtOSAzNXEtMyAxMiAtMTQgMTlxLTcgNCAtMTUgNHpNNzE5LjUgNzE5LjVxLTQ5LjUgNDkuNSAtMTE5LjUgNDkuNXQtMTE5LjUgLTQ5LjV0LTQ5LjUgLTExOS41dDQ5LjUgLTExOS41dDExOS41IC00OS41dDExOS41IDQ5LjV0NDkuNSAxMTkuNXQtNDkuNSAxMTkuNXpNODU1IDU1MXEtMjIgMCAtMjggLTIxcS0xOCAtNTggLTU4LjUgLTk4LjV0LTk4LjUgLTU3LjUgcS0xMSAtNCAtMTcgLTE0LjV0LTMgLTIxLjVsOSAtMzVxMyAtMTIgMTQgLTE5cTcgLTQgMTUgLTRxNCAwIDkgMnE4MCAyNCAxMzguNSA4Mi41dDgyLjUgMTM4LjVxNCAxMyAtMi41IDI0dC0xOC41IDE0bC0zNCA5cS00IDEgLTggMXpNMTAwMCA1MTVxLTIzIDAgLTI5IC0yMnEtMjcgLTk2IC05OCAtMTY2cS03MCAtNzEgLTE2NiAtOThxLTExIC0zIC0xNy41IC0xMy41dC0zLjUgLTIyLjVsOSAtMzVxMyAtMTMgMTQgLTE5cTcgLTQgMTUgLTQgcTQgMCA4IDFxMTIxIDM0IDIwOS41IDEyMi41dDEyMi41IDIwOS41cTQgMTIgLTIuNSAyM3QtMTguNSAxNGwtMzYgOXEtMyAxIC03IDF6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTIwMjsiIGQ9Ik03MDAgODAwaDMwMHYtMzgwaC0xODB2MjAwaC0zNDB2LTIwMGgtMzgwdjc1NXEwIDEwIDcuNSAxNy41dDE3LjUgNy41aDU3NXYtNDAwek0xMDAwIDkwMGgtMjAwdjIwMHpNNzAwIDMwMGgxNjJsLTIxMiAtMjEybC0yMTIgMjEyaDE2MnYyMDBoMTAwdi0yMDB6TTUyMCAwaC0zOTVxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXYzOTV6TTEwMDAgMjIwdi0xOTVxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC0xOTV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTIwMzsiIGQ9Ik03MDAgODAwaDMwMHYtNTIwbC0zNTAgMzUwbC01NTAgLTU1MHYxMDk1cTAgMTAgNy41IDE3LjV0MTcuNSA3LjVoNTc1di00MDB6TTEwMDAgOTAwaC0yMDB2MjAwek04NjIgMjAwaC0xNjJ2LTIwMGgtMTAwdjIwMGgtMTYybDIxMiAyMTJ6TTQ4MCAwaC0zNTVxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXY1NWgzODB2LTgwek0xMDAwIDgwdi01NXEwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTE1NXY4MGgxODB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTIwNDsiIGQ9Ik0xMTYyIDgwMGgtMTYydi0yMDBoMTAwbDEwMCAtMTAwaC0zMDB2MzAwaC0xNjJsMjEyIDIxMnpNMjAwIDgwMGgyMDBxMjcgMCA0MCAtMnQyOS41IC0xMC41dDIzLjUgLTMwdDcgLTU3LjVoMzAwdi0xMDBoLTYwMGwtMjAwIC0zNTB2NDUwaDEwMHEwIDM2IDcgNTcuNXQyMy41IDMwdDI5LjUgMTAuNXQ0MCAyek04MDAgNDAwaDI0MGwtMjQwIC00MDBoLTgwMGwzMDAgNTAwaDUwMHYtMTAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyMDU7IiBkPSJNNjUwIDExMDBoMTAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di01MGg1MHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0zMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjVoNTB2NTBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek0xMDAwIDg1MHYxNTBxNDEgMCA3MC41IC0yOS41dDI5LjUgLTcwLjV2LTgwMCBxMCAtNDEgLTI5LjUgLTcwLjV0LTcwLjUgLTI5LjVoLTYwMHEtMSAwIC0yMCA0bDI0NiAyNDZsLTMyNiAzMjZ2MzI0cTAgNDEgMjkuNSA3MC41dDcwLjUgMjkuNXYtMTUwcTAgLTYyIDQ0IC0xMDZ0MTA2IC00NGgzMDBxNjIgMCAxMDYgNDR0NDQgMTA2ek00MTIgMjUwbC0yMTIgLTIxMnYxNjJoLTIwMHYxMDBoMjAwdjE2MnoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjA2OyIgZD0iTTQ1MCAxMTAwaDEwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtNTBoNTBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMzAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYxMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41aDUwdjUwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNODAwIDg1MHYxNTBxNDEgMCA3MC41IC0yOS41dDI5LjUgLTcwLjV2LTUwMCBoLTIwMHYtMzAwaDIwMHEwIC0zNiAtNyAtNTcuNXQtMjMuNSAtMzB0LTI5LjUgLTEwLjV0LTQwIC0yaC02MDBxLTQxIDAgLTcwLjUgMjkuNXQtMjkuNSA3MC41djgwMHEwIDQxIDI5LjUgNzAuNXQ3MC41IDI5LjV2LTE1MHEwIC02MiA0NCAtMTA2dDEwNiAtNDRoMzAwcTYyIDAgMTA2IDQ0dDQ0IDEwNnpNMTIxMiAyNTBsLTIxMiAtMjEydjE2MmgtMjAwdjEwMGgyMDB2MTYyeiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyMDk7IiBkPSJNNjU4IDExOTdsNjM3IC0xMTA0cTIzIC0zOCA3IC02NS41dC02MCAtMjcuNWgtMTI3NnEtNDQgMCAtNjAgMjcuNXQ3IDY1LjVsNjM3IDExMDRxMjIgMzkgNTQgMzl0NTQgLTM5ek03MDQgODAwaC0yMDhxLTIwIDAgLTMyIC0xNC41dC04IC0zNC41bDU4IC0zMDJxNCAtMjAgMjEuNSAtMzQuNXQzNy41IC0xNC41aDU0cTIwIDAgMzcuNSAxNC41dDIxLjUgMzQuNWw1OCAzMDJxNCAyMCAtOCAzNC41dC0zMiAxNC41ek01MDAgMzAwdi0xMDBoMjAwIHYxMDBoLTIwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjEwOyIgZD0iTTQyNSAxMTAwaDI1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTE1MHEwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTI1MHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djE1MHEwIDEwIDcuNSAxNy41dDE3LjUgNy41ek00MjUgODAwaDI1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTE1MHEwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTI1MHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djE1MHEwIDEwIDcuNSAxNy41IHQxNy41IDcuNXpNODI1IDgwMGgyNTBxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di0xNTBxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC0yNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXYxNTBxMCAxMCA3LjUgMTcuNXQxNy41IDcuNXpNMjUgNTAwaDI1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTE1MHEwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTI1MHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djE1MCBxMCAxMCA3LjUgMTcuNXQxNy41IDcuNXpNNDI1IDUwMGgyNTBxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di0xNTBxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC0yNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXYxNTBxMCAxMCA3LjUgMTcuNXQxNy41IDcuNXpNODI1IDUwMGgyNTBxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di0xNTBxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC0yNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNSB2MTUwcTAgMTAgNy41IDE3LjV0MTcuNSA3LjV6TTI1IDIwMGgyNTBxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di0xNTBxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC0yNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXYxNTBxMCAxMCA3LjUgMTcuNXQxNy41IDcuNXpNNDI1IDIwMGgyNTBxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di0xNTBxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC0yNTBxLTEwIDAgLTE3LjUgNy41IHQtNy41IDE3LjV2MTUwcTAgMTAgNy41IDE3LjV0MTcuNSA3LjV6TTgyNSAyMDBoMjUwcTEwIDAgMTcuNSAtNy41dDcuNSAtMTcuNXYtMTUwcTAgLTEwIC03LjUgLTE3LjV0LTE3LjUgLTcuNWgtMjUwcS0xMCAwIC0xNy41IDcuNXQtNy41IDE3LjV2MTUwcTAgMTAgNy41IDE3LjV0MTcuNSA3LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTIxMTsiIGQ9Ik03MDAgMTIwMGgxMDB2LTIwMGgtMTAwdi0xMDBoMzUwcTYyIDAgODYuNSAtMzkuNXQtMy41IC05NC41bC02NiAtMTMycS00MSAtODMgLTgxIC0xMzRoLTc3MnEtNDAgNTEgLTgxIDEzNGwtNjYgMTMycS0yOCA1NSAtMy41IDk0LjV0ODYuNSAzOS41aDM1MHYxMDBoLTEwMHYyMDBoMTAwdjEwMGgyMDB2LTEwMHpNMjUwIDQwMGg3MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV0LTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTEybDEzNyAtMTAwIGgtOTUwbDEzOCAxMDBoLTEzcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXQxNC41IDM1LjV0MzUuNSAxNC41ek01MCAxMDBoMTEwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtNTBoLTEyMDB2NTBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyMTI7IiBkPSJNNjAwIDEzMDBxNDAgMCA2OC41IC0yOS41dDI4LjUgLTcwLjVoLTE5NHEwIDQxIDI4LjUgNzAuNXQ2OC41IDI5LjV6TTQ0MyAxMTAwaDMxNHExOCAtMzcgMTggLTc1cTAgLTggLTMgLTI1aDMyOHE0MSAwIDQ0LjUgLTE2LjV0LTMwLjUgLTM4LjVsLTE3NSAtMTQ1aC02NzhsLTE3OCAxNDVxLTM0IDIyIC0yOSAzOC41dDQ2IDE2LjVoMzI4cS0zIDE3IC0zIDI1cTAgMzggMTggNzV6TTI1MCA3MDBoNzAwcTIxIDAgMzUuNSAtMTQuNSB0MTQuNSAtMzUuNXQtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMTUwdi0yMDBsMjc1IC0yMDBoLTk1MGwyNzUgMjAwdjIwMGgtMTUwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXQxNC41IDM1LjV0MzUuNSAxNC41ek01MCAxMDBoMTEwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtNTBoLTEyMDB2NTBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyMTM7IiBkPSJNNjAwIDExODFxNzUgMCAxMjggLTUzdDUzIC0xMjh0LTUzIC0xMjh0LTEyOCAtNTN0LTEyOCA1M3QtNTMgMTI4dDUzIDEyOHQxMjggNTN6TTYwMiA3OThoNDZxMzQgMCA1NS41IC0yOC41dDIxLjUgLTg2LjVxMCAtNzYgMzkgLTE4M2gtMzI0cTM5IDEwNyAzOSAxODNxMCA1OCAyMS41IDg2LjV0NTYuNSAyOC41aDQ1ek0yNTAgNDAwaDcwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXQtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMTMgbDEzOCAtMTAwaC05NTBsMTM3IDEwMGgtMTJxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41dDE0LjUgMzUuNXQzNS41IDE0LjV6TTUwIDEwMGgxMTAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di01MGgtMTIwMHY1MHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTIxNDsiIGQ9Ik02MDAgMTMwMHE0NyAwIDkyLjUgLTUzLjV0NzEgLTEyM3QyNS41IC0xMjMuNXEwIC03OCAtNTUuNSAtMTMzLjV0LTEzMy41IC01NS41dC0xMzMuNSA1NS41dC01NS41IDEzMy41cTAgNjIgMzQgMTQzbDE0NCAtMTQzbDExMSAxMTFsLTE2MyAxNjNxMzQgMjYgNjMgMjZ6TTYwMiA3OThoNDZxMzQgMCA1NS41IC0yOC41dDIxLjUgLTg2LjVxMCAtNzYgMzkgLTE4M2gtMzI0cTM5IDEwNyAzOSAxODNxMCA1OCAyMS41IDg2LjV0NTYuNSAyOC41aDQ1IHpNMjUwIDQwMGg3MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV0LTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTEzbDEzOCAtMTAwaC05NTBsMTM3IDEwMGgtMTJxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41dDE0LjUgMzUuNXQzNS41IDE0LjV6TTUwIDEwMGgxMTAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di01MGgtMTIwMHY1MHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTIxNTsiIGQ9Ik02MDAgMTIwMGwzMDAgLTE2MXYtMTM5aC0zMDBxMCAtNTcgMTguNSAtMTA4dDUwIC05MS41dDYzIC03MnQ3MCAtNjcuNXQ1Ny41IC02MWgtNTMwcS02MCA4MyAtOTAuNSAxNzcuNXQtMzAuNSAxNzguNXQzMyAxNjQuNXQ4Ny41IDEzOS41dDEyNiA5Ni41dDE0NS41IDQxLjV2LTk4ek0yNTAgNDAwaDcwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXQtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMTNsMTM4IC0xMDBoLTk1MGwxMzcgMTAwIGgtMTJxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41dDE0LjUgMzUuNXQzNS41IDE0LjV6TTUwIDEwMGgxMTAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di01MGgtMTIwMHY1MHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTIxNjsiIGQ9Ik02MDAgMTMwMHE0MSAwIDcwLjUgLTI5LjV0MjkuNSAtNzAuNXYtNzhxNDYgLTI2IDczIC03MnQyNyAtMTAwdi01MGgtNDAwdjUwcTAgNTQgMjcgMTAwdDczIDcydjc4cTAgNDEgMjkuNSA3MC41dDcwLjUgMjkuNXpNNDAwIDgwMGg0MDBxNTQgMCAxMDAgLTI3dDcyIC03M2gtMTcydi0xMDBoMjAwdi0xMDBoLTIwMHYtMTAwaDIwMHYtMTAwaC0yMDB2LTEwMGgyMDBxMCAtODMgLTU4LjUgLTE0MS41dC0xNDEuNSAtNTguNWgtNDAwIHEtODMgMCAtMTQxLjUgNTguNXQtNTguNSAxNDEuNXY0MDBxMCA4MyA1OC41IDE0MS41dDE0MS41IDU4LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTIxODsiIGQ9Ik0xNTAgMTEwMGg5MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTUwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtOTAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXY1MDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek0xMjUgNDAwaDk1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTUwcTAgLTEwIC03LjUgLTE3LjV0LTE3LjUgLTcuNWgtMjgzbDIyNCAtMjI0cTEzIC0xMyAxMyAtMzEuNXQtMTMgLTMyIHQtMzEuNSAtMTMuNXQtMzEuNSAxM2wtODggODhoLTUyNGwtODcgLTg4cS0xMyAtMTMgLTMyIC0xM3QtMzIgMTMuNXQtMTMgMzJ0MTMgMzEuNWwyMjQgMjI0aC0yODlxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXY1MHEwIDEwIDcuNSAxNy41dDE3LjUgNy41ek01NDEgMzAwbC0xMDAgLTEwMGgzMjRsLTEwMCAxMDBoLTEyNHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjE5OyIgZD0iTTIwMCAxMTAwaDgwMHE4MyAwIDE0MS41IC01OC41dDU4LjUgLTE0MS41di0yMDBoLTEwMHEwIDQxIC0yOS41IDcwLjV0LTcwLjUgMjkuNWgtMjUwcS00MSAwIC03MC41IC0yOS41dC0yOS41IC03MC41aC0xMDBxMCA0MSAtMjkuNSA3MC41dC03MC41IDI5LjVoLTI1MHEtNDEgMCAtNzAuNSAtMjkuNXQtMjkuNSAtNzAuNWgtMTAwdjIwMHEwIDgzIDU4LjUgMTQxLjV0MTQxLjUgNTguNXpNMTAwIDYwMGgxMDAwcTQxIDAgNzAuNSAtMjkuNSB0MjkuNSAtNzAuNXYtMzAwaC0xMjAwdjMwMHEwIDQxIDI5LjUgNzAuNXQ3MC41IDI5LjV6TTMwMCAxMDB2LTUwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djUwaDIwMHpNMTEwMCAxMDB2LTUwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djUwaDIwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjIxOyIgZD0iTTQ4MCAxMTY1bDY4MiAtNjgzcTMxIC0zMSAzMSAtNzUuNXQtMzEgLTc1LjVsLTEzMSAtMTMxaC00ODFsLTUxNyA1MThxLTMyIDMxIC0zMiA3NS41dDMyIDc1LjVsMjk1IDI5NnEzMSAzMSA3NS41IDMxdDc2LjUgLTMxek0xMDggNzk0bDM0MiAtMzQybDMwMyAzMDRsLTM0MSAzNDF6TTI1MCAxMDBoODAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di01MGgtOTAwdjUwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjIzOyIgZD0iTTEwNTcgNjQ3bC0xODkgNTA2cS04IDE5IC0yNy41IDMzdC00MC41IDE0aC00MDBxLTIxIDAgLTQwLjUgLTE0dC0yNy41IC0zM2wtMTg5IC01MDZxLTggLTE5IDEuNSAtMzN0MzAuNSAtMTRoNjI1di0xNTBxMCAtMjEgMTQuNSAtMzUuNXQzNS41IC0xNC41dDM1LjUgMTQuNXQxNC41IDM1LjV2MTUwaDEyNXEyMSAwIDMwLjUgMTR0MS41IDMzek04OTcgMGgtNTk1djUwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNWg1MHY1MCBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41aDQ4djMwMGgyMDB2LTMwMGg0N3EyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtNTBoNTBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTUweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyMjQ7IiBkPSJNOTAwIDgwMGgzMDB2LTU3NXEwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTM3NXY1OTFsLTMwMCAzMDB2ODRxMCAxMCA3LjUgMTcuNXQxNy41IDcuNWgzNzV2LTQwMHpNMTIwMCA5MDBoLTIwMHYyMDB6TTQwMCA2MDBoMzAwdi01NzVxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC02NTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXY5NTBxMCAxMCA3LjUgMTcuNXQxNy41IDcuNWgzNzV2LTQwMHpNNzAwIDcwMGgtMjAwdjIwMHogIiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTIyNTsiIGQ9Ik00ODQgMTA5NWgxOTVxNzUgMCAxNDYgLTMyLjV0MTI0IC04NnQ4OS41IC0xMjIuNXQ0OC41IC0xNDJxMTggLTE0IDM1IC0yMHEzMSAtMTAgNjQuNSA2LjV0NDMuNSA0OC41cTEwIDM0IC0xNSA3MXEtMTkgMjcgLTkgNDNxNSA4IDEyLjUgMTF0MTkgLTF0MjMuNSAtMTZxNDEgLTQ0IDM5IC0xMDVxLTMgLTYzIC00NiAtMTA2LjV0LTEwNCAtNDMuNWgtNjJxLTcgLTU1IC0zNSAtMTE3dC01NiAtMTAwbC0zOSAtMjM0cS0zIC0yMCAtMjAgLTM0LjUgdC0zOCAtMTQuNWgtMTAwcS0yMSAwIC0zMyAxNC41dC05IDM0LjVsMTIgNzBxLTQ5IC0xNCAtOTEgLTE0aC0xOTVxLTI0IDAgLTY1IDhsLTExIC02NHEtMyAtMjAgLTIwIC0zNC41dC0zOCAtMTQuNWgtMTAwcS0yMSAwIC0zMyAxNC41dC05IDM0LjVsMjYgMTU3cS04NCA3NCAtMTI4IDE3NWwtMTU5IDUzcS0xOSA3IC0zMyAyNnQtMTQgNDB2NTBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41aDEyNHExMSA4NyA1NiAxNjZsLTExMSA5NSBxLTE2IDE0IC0xMi41IDIzLjV0MjQuNSA5LjVoMjAzcTExNiAxMDEgMjUwIDEwMXpNNjc1IDEwMDBoLTI1MHEtMTAgMCAtMTcuNSAtNy41dC03LjUgLTE3LjV2LTUwcTAgLTEwIDcuNSAtMTcuNXQxNy41IC03LjVoMjUwcTEwIDAgMTcuNSA3LjV0Ny41IDE3LjV2NTBxMCAxMCAtNy41IDE3LjV0LTE3LjUgNy41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyMjY7IiBkPSJNNjQxIDkwMGw0MjMgMjQ3cTE5IDggNDIgMi41dDM3IC0yMS41bDMyIC0zOHExNCAtMTUgMTIuNSAtMzZ0LTE3LjUgLTM0bC0xMzkgLTEyMGgtMzkwek01MCAxMTAwaDEwNnE2NyAwIDEwMyAtMTd0NjYgLTcxbDEwMiAtMjEyaDgyM3EyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtNTBxMCAtMjEgLTE0IC00MHQtMzMgLTI2bC03MzcgLTEzMnEtMjMgLTQgLTQwIDZ0LTI2IDI1cS00MiA2NyAtMTAwIDY3aC0zMDBxLTYyIDAgLTEwNiA0NCB0LTQ0IDEwNnYyMDBxMCA2MiA0NCAxMDZ0MTA2IDQ0ek0xNzMgOTI4aC04MHEtMTkgMCAtMjggLTE0dC05IC0zNXYtNTZxMCAtNTEgNDIgLTUxaDEzNHExNiAwIDIxLjUgOHQ1LjUgMjRxMCAxMSAtMTYgNDV0LTI3IDUxcS0xOCAyOCAtNDMgMjh6TTU1MCA3MjdxLTMyIDAgLTU0LjUgLTIyLjV0LTIyLjUgLTU0LjV0MjIuNSAtNTQuNXQ1NC41IC0yMi41dDU0LjUgMjIuNXQyMi41IDU0LjV0LTIyLjUgNTQuNXQtNTQuNSAyMi41ek0xMzAgMzg5IGwxNTIgMTMwcTE4IDE5IDM0IDI0dDMxIC0zLjV0MjQuNSAtMTcuNXQyNS41IC0yOHEyOCAtMzUgNTAuNSAtNTF0NDguNSAtMTNsNjMgNWw0OCAtMTc5cTEzIC02MSAtMy41IC05Ny41dC02Ny41IC03OS41bC04MCAtNjlxLTQ3IC00MCAtMTA5IC0zNS41dC0xMDMgNTEuNWwtMTMwIDE1MXEtNDAgNDcgLTM1LjUgMTA5LjV0NTEuNSAxMDIuNXpNMzgwIDM3N2wtMTAyIC04OHEtMzEgLTI3IDIgLTY1bDM3IC00M3ExMyAtMTUgMjcuNSAtMTkuNSB0MzEuNSA2LjVsNjEgNTNxMTkgMTYgMTQgNDlxLTIgMjAgLTEyIDU2dC0xNyA0NXEtMTEgMTIgLTE5IDE0dC0yMyAtOHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjI3OyIgZD0iTTYyNSAxMjAwaDE1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTEwOXE3OSAtMzMgMTMxIC04Ny41dDUzIC0xMjguNXExIC00NiAtMTUgLTg0LjV0LTM5IC02MXQtNDYgLTM4dC0zOSAtMjEuNWwtMTcgLTZxNiAwIDE1IC0xLjV0MzUgLTl0NTAgLTE3LjV0NTMgLTMwdDUwIC00NXQzNS41IC02NHQxNC41IC04NHEwIC01OSAtMTEuNSAtMTA1LjV0LTI4LjUgLTc2LjV0LTQ0IC01MXQtNDkuNSAtMzEuNXQtNTQuNSAtMTZ0LTQ5LjUgLTYuNSB0LTQzLjUgLTF2LTc1cTAgLTEwIC03LjUgLTE3LjV0LTE3LjUgLTcuNWgtMTUwcS0xMCAwIC0xNy41IDcuNXQtNy41IDE3LjV2NzVoLTEwMHYtNzVxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC0xNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXY3NWgtMTc1cS0xMCAwIC0xNy41IDcuNXQtNy41IDE3LjV2MTUwcTAgMTAgNy41IDE3LjV0MTcuNSA3LjVoNzV2NjAwaC03NXEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djE1MCBxMCAxMCA3LjUgMTcuNXQxNy41IDcuNWgxNzV2NzVxMCAxMCA3LjUgMTcuNXQxNy41IDcuNWgxNTBxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di03NWgxMDB2NzVxMCAxMCA3LjUgMTcuNXQxNy41IDcuNXpNNDAwIDkwMHYtMjAwaDI2M3EyOCAwIDQ4LjUgMTAuNXQzMCAyNXQxNSAyOXQ1LjUgMjUuNWwxIDEwcTAgNCAtMC41IDExdC02IDI0dC0xNSAzMHQtMzAgMjR0LTQ4LjUgMTFoLTI2M3pNNDAwIDUwMHYtMjAwaDM2M3EyOCAwIDQ4LjUgMTAuNSB0MzAgMjV0MTUgMjl0NS41IDI1LjVsMSAxMHEwIDQgLTAuNSAxMXQtNiAyNHQtMTUgMzB0LTMwIDI0dC00OC41IDExaC0zNjN6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTIzMDsiIGQ9Ik0yMTIgMTE5OGg3ODBxODYgMCAxNDcgLTYxdDYxIC0xNDd2LTQxNnEwIC01MSAtMTggLTE0Mi41dC0zNiAtMTU3LjVsLTE4IC02NnEtMjkgLTg3IC05My41IC0xNDYuNXQtMTQ2LjUgLTU5LjVoLTU3MnEtODIgMCAtMTQ3IDU5dC05MyAxNDdxLTggMjggLTIwIDczdC0zMiAxNDMuNXQtMjAgMTQ5LjV2NDE2cTAgODYgNjEgMTQ3dDE0NyA2MXpNNjAwIDEwNDVxLTcwIDAgLTEzMi41IC0xMS41dC0xMDUuNSAtMzAuNXQtNzguNSAtNDEuNSB0LTU3IC00NXQtMzYgLTQxdC0yMC41IC0zMC41bC02IC0xMmwxNTYgLTI0M2g1NjBsMTU2IDI0M3EtMiA1IC02IDEyLjV0LTIwIDI5LjV0LTM2LjUgNDJ0LTU3IDQ0LjV0LTc5IDQydC0xMDUgMjkuNXQtMTMyLjUgMTJ6TTc2MiA3MDNoLTE1N2wxOTUgMjYxeiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyMzE7IiBkPSJNNDc1IDEzMDBoMTUwcTEwMyAwIDE4OSAtODZ0ODYgLTE4OXYtNTAwcTAgLTQxIC00MiAtODN0LTgzIC00MmgtNDUwcS00MSAwIC04MyA0MnQtNDIgODN2NTAwcTAgMTAzIDg2IDE4OXQxODkgODZ6TTcwMCAzMDB2LTIyNXEwIC0yMSAtMjcgLTQ4dC00OCAtMjdoLTE1MHEtMjEgMCAtNDggMjd0LTI3IDQ4djIyNWgzMDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTIzMjsiIGQ9Ik00NzUgMTMwMGg5NnEwIC0xNTAgODkuNSAtMjM5LjV0MjM5LjUgLTg5LjV2LTQ0NnEwIC00MSAtNDIgLTgzdC04MyAtNDJoLTQ1MHEtNDEgMCAtODMgNDJ0LTQyIDgzdjUwMHEwIDEwMyA4NiAxODl0MTg5IDg2ek03MDAgMzAwdi0yMjVxMCAtMjEgLTI3IC00OHQtNDggLTI3aC0xNTBxLTIxIDAgLTQ4IDI3dC0yNyA0OHYyMjVoMzAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyMzM7IiBkPSJNMTI5NCA3NjdsLTYzOCAtMjgzbC0zNzggMTcwbC03OCAtNjB2LTIyNGwxMDAgLTE1MHYtMTk5bC0xNTAgMTQ4bC0xNTAgLTE0OXYyMDBsMTAwIDE1MHYyNTBxMCA0IC0wLjUgMTAuNXQwIDkuNXQxIDh0MyA4dDYuNSA2bDQ3IDQwbC0xNDcgNjVsNjQyIDI4M3pNMTAwMCAzODBsLTM1MCAtMTY2bC0zNTAgMTY2djE0N2wzNTAgLTE2NWwzNTAgMTY1di0xNDd6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTIzNDsiIGQ9Ik0yNTAgODAwcTYyIDAgMTA2IC00NHQ0NCAtMTA2dC00NCAtMTA2dC0xMDYgLTQ0dC0xMDYgNDR0LTQ0IDEwNnQ0NCAxMDZ0MTA2IDQ0ek02NTAgODAwcTYyIDAgMTA2IC00NHQ0NCAtMTA2dC00NCAtMTA2dC0xMDYgLTQ0dC0xMDYgNDR0LTQ0IDEwNnQ0NCAxMDZ0MTA2IDQ0ek0xMDUwIDgwMHE2MiAwIDEwNiAtNDR0NDQgLTEwNnQtNDQgLTEwNnQtMTA2IC00NHQtMTA2IDQ0dC00NCAxMDZ0NDQgMTA2dDEwNiA0NHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjM1OyIgZD0iTTU1MCAxMTAwcTYyIDAgMTA2IC00NHQ0NCAtMTA2dC00NCAtMTA2dC0xMDYgLTQ0dC0xMDYgNDR0LTQ0IDEwNnQ0NCAxMDZ0MTA2IDQ0ek01NTAgNzAwcTYyIDAgMTA2IC00NHQ0NCAtMTA2dC00NCAtMTA2dC0xMDYgLTQ0dC0xMDYgNDR0LTQ0IDEwNnQ0NCAxMDZ0MTA2IDQ0ek01NTAgMzAwcTYyIDAgMTA2IC00NHQ0NCAtMTA2dC00NCAtMTA2dC0xMDYgLTQ0dC0xMDYgNDR0LTQ0IDEwNnQ0NCAxMDZ0MTA2IDQ0eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyMzY7IiBkPSJNMTI1IDExMDBoOTUwcTEwIDAgMTcuNSAtNy41dDcuNSAtMTcuNXYtMTUwcTAgLTEwIC03LjUgLTE3LjV0LTE3LjUgLTcuNWgtOTUwcS0xMCAwIC0xNy41IDcuNXQtNy41IDE3LjV2MTUwcTAgMTAgNy41IDE3LjV0MTcuNSA3LjV6TTEyNSA3MDBoOTUwcTEwIDAgMTcuNSAtNy41dDcuNSAtMTcuNXYtMTUwcTAgLTEwIC03LjUgLTE3LjV0LTE3LjUgLTcuNWgtOTUwcS0xMCAwIC0xNy41IDcuNXQtNy41IDE3LjV2MTUwcTAgMTAgNy41IDE3LjUgdDE3LjUgNy41ek0xMjUgMzAwaDk1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTE1MHEwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTk1MHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djE1MHEwIDEwIDcuNSAxNy41dDE3LjUgNy41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyMzc7IiBkPSJNMzUwIDEyMDBoNTAwcTE2MiAwIDI1NiAtOTMuNXQ5NCAtMjU2LjV2LTUwMHEwIC0xNjUgLTkzLjUgLTI1Ny41dC0yNTYuNSAtOTIuNWgtNTAwcS0xNjUgMCAtMjU3LjUgOTIuNXQtOTIuNSAyNTcuNXY1MDBxMCAxNjUgOTIuNSAyNTcuNXQyNTcuNSA5Mi41ek05MDAgMTAwMGgtNjAwcS00MSAwIC03MC41IC0yOS41dC0yOS41IC03MC41di02MDBxMCAtNDEgMjkuNSAtNzAuNXQ3MC41IC0yOS41aDYwMHE0MSAwIDcwLjUgMjkuNSB0MjkuNSA3MC41djYwMHEwIDQxIC0yOS41IDcwLjV0LTcwLjUgMjkuNXpNMzUwIDkwMGg1MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTMwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNTAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYzMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek00MDAgODAwdi0yMDBoNDAwdjIwMGgtNDAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyMzg7IiBkPSJNMTUwIDExMDBoMTAwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXQtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNTB2LTIwMGg1MHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXQtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNTB2LTIwMGg1MHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXQtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNTB2LTIwMGg1MHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXQtMTQuNSAtMzUuNSB0LTM1LjUgLTE0LjVoLTEwMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41dDE0LjUgMzUuNXQzNS41IDE0LjVoNTB2MjAwaC01MHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV0MTQuNSAzNS41dDM1LjUgMTQuNWg1MHYyMDBoLTUwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXQxNC41IDM1LjV0MzUuNSAxNC41aDUwdjIwMGgtNTBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41dDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTIzOTsiIGQ9Ik02NTAgMTE4N3E4NyAtNjcgMTE4LjUgLTE1NnQwIC0xNzh0LTExOC41IC0xNTVxLTg3IDY2IC0xMTguNSAxNTV0MCAxNzh0MTE4LjUgMTU2ek0zMDAgODAwcTEyNCAwIDIxMiAtODh0ODggLTIxMnEtMTI0IDAgLTIxMiA4OHQtODggMjEyek0xMDAwIDgwMHEwIC0xMjQgLTg4IC0yMTJ0LTIxMiAtODhxMCAxMjQgODggMjEydDIxMiA4OHpNMzAwIDUwMHExMjQgMCAyMTIgLTg4dDg4IC0yMTJxLTEyNCAwIC0yMTIgODh0LTg4IDIxMnogTTEwMDAgNTAwcTAgLTEyNCAtODggLTIxMnQtMjEyIC04OHEwIDEyNCA4OCAyMTJ0MjEyIDg4ek03MDAgMTk5di0xNDRxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjV0LTM1LjUgMTQuNXQtMTQuNSAzNS41djE0MnE0MCAtNCA0MyAtNHExNyAwIDU3IDZ6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTI0MDsiIGQ9Ik03NDUgODc4bDY5IDE5cTI1IDYgNDUgLTEybDI5OCAtMjk1cTExIC0xMSAxNSAtMjYuNXQtMiAtMzAuNXEtNSAtMTQgLTE4IC0yMy41dC0yOCAtOS41aC04cTEgMCAxIC0xM3EwIC0yOSAtMiAtNTZ0LTguNSAtNjJ0LTIwIC02M3QtMzMgLTUzdC01MSAtMzl0LTcyLjUgLTE0aC0xNDZxLTE4NCAwIC0xODQgMjg4cTAgMjQgMTAgNDdxLTIwIDQgLTYyIDR0LTYzIC00cTExIC0yNCAxMSAtNDdxMCAtMjg4IC0xODQgLTI4OGgtMTQyIHEtNDggMCAtODQuNSAyMXQtNTYgNTF0LTMyIDcxLjV0LTE2IDc1dC0zLjUgNjguNXEwIDEzIDIgMTNoLTdxLTE1IDAgLTI3LjUgOS41dC0xOC41IDIzLjVxLTYgMTUgLTIgMzAuNXQxNSAyNS41bDI5OCAyOTZxMjAgMTggNDYgMTFsNzYgLTE5cTIwIC01IDMwLjUgLTIyLjV0NS41IC0zNy41dC0yMi41IC0zMXQtMzcuNSAtNWwtNTEgMTJsLTE4MiAtMTkzaDg5MWwtMTgyIDE5M2wtNDQgLTEycS0yMCAtNSAtMzcuNSA2dC0yMi41IDMxdDYgMzcuNSB0MzEgMjIuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjQxOyIgZD0iTTEyMDAgOTAwaC01MHEwIDIxIC00IDM3dC05LjUgMjYuNXQtMTggMTcuNXQtMjIgMTF0LTI4LjUgNS41dC0zMSAydC0zNyAwLjVoLTIwMHYtODUwcTAgLTIyIDI1IC0zNC41dDUwIC0xMy41bDI1IC0ydi0xMDBoLTQwMHYxMDBxNCAwIDExIDAuNXQyNCAzdDMwIDd0MjQgMTV0MTEgMjQuNXY4NTBoLTIwMHEtMjUgMCAtMzcgLTAuNXQtMzEgLTJ0LTI4LjUgLTUuNXQtMjIgLTExdC0xOCAtMTcuNXQtOS41IC0yNi41dC00IC0zN2gtNTB2MzAwIGgxMDAwdi0zMDB6TTUwMCA0NTBoLTI1cTAgMTUgLTQgMjQuNXQtOSAxNC41dC0xNyA3LjV0LTIwIDN0LTI1IDAuNWgtMTAwdi00MjVxMCAtMTEgMTIuNSAtMTcuNXQyNS41IC03LjVoMTJ2LTUwaC0yMDB2NTBxNTAgMCA1MCAyNXY0MjVoLTEwMHEtMTcgMCAtMjUgLTAuNXQtMjAgLTN0LTE3IC03LjV0LTkgLTE0LjV0LTQgLTI0LjVoLTI1djE1MGg1MDB2LTE1MHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjQyOyIgZD0iTTEwMDAgMzAwdjUwcS0yNSAwIC01NSAzMnEtMTQgMTQgLTI1IDMxdC0xNiAyN2wtNCAxMWwtMjg5IDc0N2gtNjlsLTMwMCAtNzU0cS0xOCAtMzUgLTM5IC01NnEtOSAtOSAtMjQuNSAtMTguNXQtMjYuNSAtMTQuNWwtMTEgLTV2LTUwaDI3M3Y1MHEtNDkgMCAtNzguNSAyMS41dC0xMS41IDY3LjVsNjkgMTc2aDI5M2w2MSAtMTY2cTEzIC0zNCAtMy41IC02Ni41dC01NS41IC0zMi41di01MGgzMTJ6TTQxMiA2OTFsMTM0IDM0MmwxMjEgLTM0MiBoLTI1NXpNMTEwMCAxNTB2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMTAwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MTAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNWgxMDAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyNDM7IiBkPSJNNTAgMTIwMGgxMTAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0xMTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xMTAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYxMTAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNNjExIDExMThoLTcwcS0xMyAwIC0xOCAtMTJsLTI5OSAtNzUzcS0xNyAtMzIgLTM1IC01MXEtMTggLTE4IC01NiAtMzRxLTEyIC01IC0xMiAtMTh2LTUwcTAgLTggNS41IC0xNHQxNC41IC02IGgyNzNxOCAwIDE0IDZ0NiAxNHY1MHEwIDggLTYgMTR0LTE0IDZxLTU1IDAgLTcxIDIzcS0xMCAxNCAwIDM5bDYzIDE2M2gyNjZsNTcgLTE1M3ExMSAtMzEgLTYgLTU1cS0xMiAtMTcgLTM2IC0xN3EtOCAwIC0xNCAtNnQtNiAtMTR2LTUwcTAgLTggNiAtMTR0MTQgLTZoMzEzcTggMCAxNCA2dDYgMTR2NTBxMCA3IC01LjUgMTN0LTEzLjUgN3EtMTcgMCAtNDIgMjVxLTI1IDI3IC00MCA2M2gtMWwtMjg4IDc0OHEtNSAxMiAtMTkgMTJ6TTYzOSA2MTEgaC0xOTdsMTAzIDI2NHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjQ0OyIgZD0iTTEyMDAgMTEwMGgtMTIwMHYxMDBoMTIwMHYtMTAwek01MCAxMDAwaDQwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtOTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC00MDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djkwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTY1MCAxMDAwaDQwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtNDAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC00MDAgcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXY0MDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek03MDAgOTAwdi0zMDBoMzAwdjMwMGgtMzAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyNDU7IiBkPSJNNTAgMTIwMGg0MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTkwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNDAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXY5MDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek02NTAgNzAwaDQwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtNDAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC00MDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djQwMCBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek03MDAgNjAwdi0zMDBoMzAwdjMwMGgtMzAwek0xMjAwIDBoLTEyMDB2MTAwaDEyMDB2LTEwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjQ2OyIgZD0iTTUwIDEwMDBoNDAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0zNTBoMTAwdjE1MHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjVoNDAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0xNTBoMTAwdi0xMDBoLTEwMHYtMTUwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC00MDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djE1MGgtMTAwdi0zNTBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTQwMCBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djgwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTcwMCA3MDB2LTMwMGgzMDB2MzAwaC0zMDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTI0NzsiIGQ9Ik0xMDAgMGgtMTAwdjEyMDBoMTAwdi0xMjAwek0yNTAgMTEwMGg0MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTQwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNDAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXY0MDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek0zMDAgMTAwMHYtMzAwaDMwMHYzMDBoLTMwMHpNMjUwIDUwMGg5MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTQwMCBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTkwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2NDAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjQ4OyIgZD0iTTYwMCAxMTAwaDE1MHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtNDAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xNTB2LTEwMGg0NTBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTQwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtOTAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXY0MDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41aDM1MHYxMDBoLTE1MHEtMjEgMCAtMzUuNSAxNC41IHQtMTQuNSAzNS41djQwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjVoMTUwdjEwMGgxMDB2LTEwMHpNNDAwIDEwMDB2LTMwMGgzMDB2MzAwaC0zMDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTI0OTsiIGQ9Ik0xMjAwIDBoLTEwMHYxMjAwaDEwMHYtMTIwMHpNNTUwIDExMDBoNDAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di00MDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTQwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2NDAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNNjAwIDEwMDB2LTMwMGgzMDB2MzAwaC0zMDB6TTUwIDUwMGg5MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTQwMCBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTkwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2NDAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjUwOyIgZD0iTTg2NSA1NjVsLTQ5NCAtNDk0cS0yMyAtMjMgLTQxIC0yM3EtMTQgMCAtMjIgMTMuNXQtOCAzOC41djEwMDBxMCAyNSA4IDM4LjV0MjIgMTMuNXExOCAwIDQxIC0yM2w0OTQgLTQ5NHExNCAtMTQgMTQgLTM1dC0xNCAtMzV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTI1MTsiIGQ9Ik0zMzUgNjM1bDQ5NCA0OTRxMjkgMjkgNTAgMjAuNXQyMSAtNDkuNXYtMTAwMHEwIC00MSAtMjEgLTQ5LjV0LTUwIDIwLjVsLTQ5NCA0OTRxLTE0IDE0IC0xNCAzNXQxNCAzNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjUyOyIgZD0iTTEwMCA5MDBoMTAwMHE0MSAwIDQ5LjUgLTIxdC0yMC41IC01MGwtNDk0IC00OTRxLTE0IC0xNCAtMzUgLTE0dC0zNSAxNGwtNDk0IDQ5NHEtMjkgMjkgLTIwLjUgNTB0NDkuNSAyMXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjUzOyIgZD0iTTYzNSA4NjVsNDk0IC00OTRxMjkgLTI5IDIwLjUgLTUwdC00OS41IC0yMWgtMTAwMHEtNDEgMCAtNDkuNSAyMXQyMC41IDUwbDQ5NCA0OTRxMTQgMTQgMzUgMTR0MzUgLTE0eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyNTQ7IiBkPSJNNzAwIDc0MXYtMTgybC02OTIgLTMyM3YyMjFsNDEzIDE5M2wtNDEzIDE5M3YyMjF6TTEyMDAgMGgtODAwdjIwMGg4MDB2LTIwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjU1OyIgZD0iTTEyMDAgOTAwaC0yMDB2LTEwMGgyMDB2LTEwMGgtMzAwdjMwMGgyMDB2MTAwaC0yMDB2MTAwaDMwMHYtMzAwek0wIDcwMGg1MHEwIDIxIDQgMzd0OS41IDI2LjV0MTggMTcuNXQyMiAxMXQyOC41IDUuNXQzMSAydDM3IDAuNWgxMDB2LTU1MHEwIC0yMiAtMjUgLTM0LjV0LTUwIC0xMy41bC0yNSAtMnYtMTAwaDQwMHYxMDBxLTQgMCAtMTEgMC41dC0yNCAzdC0zMCA3dC0yNCAxNXQtMTEgMjQuNXY1NTBoMTAwcTI1IDAgMzcgLTAuNXQzMSAtMiB0MjguNSAtNS41dDIyIC0xMXQxOCAtMTcuNXQ5LjUgLTI2LjV0NCAtMzdoNTB2MzAwaC04MDB2LTMwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjU2OyIgZD0iTTgwMCA3MDBoLTUwcTAgMjEgLTQgMzd0LTkuNSAyNi41dC0xOCAxNy41dC0yMiAxMXQtMjguNSA1LjV0LTMxIDJ0LTM3IDAuNWgtMTAwdi01NTBxMCAtMjIgMjUgLTM0LjV0NTAgLTE0LjVsMjUgLTF2LTEwMGgtNDAwdjEwMHE0IDAgMTEgMC41dDI0IDN0MzAgN3QyNCAxNXQxMSAyNC41djU1MGgtMTAwcS0yNSAwIC0zNyAtMC41dC0zMSAtMnQtMjguNSAtNS41dC0yMiAtMTF0LTE4IC0xNy41dC05LjUgLTI2LjV0LTQgLTM3aC01MHYzMDAgaDgwMHYtMzAwek0xMTAwIDIwMGgtMjAwdi0xMDBoMjAwdi0xMDBoLTMwMHYzMDBoMjAwdjEwMGgtMjAwdjEwMGgzMDB2LTMwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjU3OyIgZD0iTTcwMSAxMDk4aDE2MHExNiAwIDIxIC0xMXQtNyAtMjNsLTQ2NCAtNDY0bDQ2NCAtNDY0cTEyIC0xMiA3IC0yM3QtMjEgLTExaC0xNjBxLTEzIDAgLTIzIDlsLTQ3MSA0NzFxLTcgOCAtNyAxOHQ3IDE4bDQ3MSA0NzFxMTAgOSAyMyA5eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyNTg7IiBkPSJNMzM5IDEwOThoMTYwcTEzIDAgMjMgLTlsNDcxIC00NzFxNyAtOCA3IC0xOHQtNyAtMThsLTQ3MSAtNDcxcS0xMCAtOSAtMjMgLTloLTE2MHEtMTYgMCAtMjEgMTF0NyAyM2w0NjQgNDY0bC00NjQgNDY0cS0xMiAxMiAtNyAyM3QyMSAxMXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjU5OyIgZD0iTTEwODcgODgycTExIC01IDExIC0yMXYtMTYwcTAgLTEzIC05IC0yM2wtNDcxIC00NzFxLTggLTcgLTE4IC03dC0xOCA3bC00NzEgNDcxcS05IDEwIC05IDIzdjE2MHEwIDE2IDExIDIxdDIzIC03bDQ2NCAtNDY0bDQ2NCA0NjRxMTIgMTIgMjMgN3oiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjYwOyIgZD0iTTYxOCA5OTNsNDcxIC00NzFxOSAtMTAgOSAtMjN2LTE2MHEwIC0xNiAtMTEgLTIxdC0yMyA3bC00NjQgNDY0bC00NjQgLTQ2NHEtMTIgLTEyIC0yMyAtN3QtMTEgMjF2MTYwcTAgMTMgOSAyM2w0NzEgNDcxcTggNyAxOCA3dDE4IC03eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGY4ZmY7IiBkPSJNMTAwMCAxMjAwcTAgLTEyNCAtODggLTIxMnQtMjEyIC04OHEwIDEyNCA4OCAyMTJ0MjEyIDg4ek00NTAgMTAwMGgxMDBxMjEgMCA0MCAtMTR0MjYgLTMzbDc5IC0xOTRxNSAxIDE2IDNxMzQgNiA1NCA5LjV0NjAgN3Q2NS41IDF0NjEgLTEwdDU2LjUgLTIzdDQyLjUgLTQydDI5IC02NHQ1IC05MnQtMTkuNSAtMTIxLjVxLTEgLTcgLTMgLTE5LjV0LTExIC01MHQtMjAuNSAtNzN0LTMyLjUgLTgxLjV0LTQ2LjUgLTgzdC02NCAtNzAgdC04Mi41IC01MHEtMTMgLTUgLTQyIC01dC02NS41IDIuNXQtNDcuNSAyLjVxLTE0IDAgLTQ5LjUgLTMuNXQtNjMgLTMuNXQtNDMuNSA3cS01NyAyNSAtMTA0LjUgNzguNXQtNzUgMTExLjV0LTQ2LjUgMTEydC0yNiA5MGwtNyAzNXEtMTUgNjMgLTE4IDExNXQ0LjUgODguNXQyNiA2NHQzOS41IDQzLjV0NTIgMjUuNXQ1OC41IDEzdDYyLjUgMnQ1OS41IC00LjV0NTUuNSAtOGwtMTQ3IDE5MnEtMTIgMTggLTUuNSAzMHQyNy41IDEyeiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeDFmNTExOyIgZD0iTTI1MCAxMjAwaDYwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtNDAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xNTB2LTUwMGwtMjU1IC0xNzhxLTE5IC05IC0zMiAtMXQtMTMgMjl2NjUwaC0xNTBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djQwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTQwMCAxMTAwdi0xMDBoMzAwdjEwMGgtMzAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeDFmNmFhOyIgZD0iTTI1MCAxMjAwaDc1MHEzOSAwIDY5LjUgLTQwLjV0MzAuNSAtODQuNXYtOTMzbC03MDAgLTExN3Y5NTBsNjAwIDEyNWgtNzAwdi0xMDAwaC0xMDB2MTAyNXEwIDIzIDE1LjUgNDl0MzQuNSAyNnpNNTAwIDUyNXYtMTAwbDEwMCAyMHYxMDB6IiAvPgo8L2ZvbnQ+CjwvZGVmcz48L3N2Zz4g) format("svg")}.glyphicon{position:relative;top:1px;display:inline-block;font-family:"Glyphicons Halflings";font-style:normal;font-weight:400;line-height:1;-webkit-font-smoothing:antialiased;-moz-osx-font-smoothing:grayscale}.glyphicon-asterisk:before{content:"\002a"}.glyphicon-plus:before{content:"\002b"}.glyphicon-euro:before,.glyphicon-eur:before{content:"\20ac"}.glyphicon-minus:before{content:"\2212"}.glyphicon-cloud:before{content:"\2601"}.glyphicon-envelope:before{content:"\2709"}.glyphicon-pencil:before{content:"\270f"}.glyphicon-glass:before{content:"\e001"}.glyphicon-music:before{content:"\e002"}.glyphicon-search:before{content:"\e003"}.glyphicon-heart:before{content:"\e005"}.glyphicon-star:before{content:"\e006"}.glyphicon-star-empty:before{content:"\e007"}.glyphicon-user:before{content:"\e008"}.glyphicon-film:before{content:"\e009"}.glyphicon-th-large:before{content:"\e010"}.glyphicon-th:before{content:"\e011"}.glyphicon-th-list:before{content:"\e012"}.glyphicon-ok:before{content:"\e013"}.glyphicon-remove:before{content:"\e014"}.glyphicon-zoom-in:before{content:"\e015"}.glyphicon-zoom-out:before{content:"\e016"}.glyphicon-off:before{content:"\e017"}.glyphicon-signal:before{content:"\e018"}.glyphicon-cog:before{content:"\e019"}.glyphicon-trash:before{content:"\e020"}.glyphicon-home:before{content:"\e021"}.glyphicon-file:before{content:"\e022"}.glyphicon-time:before{content:"\e023"}.glyphicon-road:before{content:"\e024"}.glyphicon-download-alt:before{content:"\e025"}.glyphicon-download:before{content:"\e026"}.glyphicon-upload:before{content:"\e027"}.glyphicon-inbox:before{content:"\e028"}.glyphicon-play-circle:before{content:"\e029"}.glyphicon-repeat:before{content:"\e030"}.glyphicon-refresh:before{content:"\e031"}.glyphicon-list-alt:before{content:"\e032"}.glyphicon-lock:before{content:"\e033"}.glyphicon-flag:before{content:"\e034"}.glyphicon-headphones:before{content:"\e035"}.glyphicon-volume-off:before{content:"\e036"}.glyphicon-volume-down:before{content:"\e037"}.glyphicon-volume-up:before{content:"\e038"}.glyphicon-qrcode:before{content:"\e039"}.glyphicon-barcode:before{content:"\e040"}.glyphicon-tag:before{content:"\e041"}.glyphicon-tags:before{content:"\e042"}.glyphicon-book:before{content:"\e043"}.glyphicon-bookmark:before{content:"\e044"}.glyphicon-print:before{content:"\e045"}.glyphicon-camera:before{content:"\e046"}.glyphicon-font:before{content:"\e047"}.glyphicon-bold:before{content:"\e048"}.glyphicon-italic:before{content:"\e049"}.glyphicon-text-height:before{content:"\e050"}.glyphicon-text-width:before{content:"\e051"}.glyphicon-align-left:before{content:"\e052"}.glyphicon-align-center:before{content:"\e053"}.glyphicon-align-right:before{content:"\e054"}.glyphicon-align-justify:before{content:"\e055"}.glyphicon-list:before{content:"\e056"}.glyphicon-indent-left:before{content:"\e057"}.glyphicon-indent-right:before{content:"\e058"}.glyphicon-facetime-video:before{content:"\e059"}.glyphicon-picture:before{content:"\e060"}.glyphicon-map-marker:before{content:"\e062"}.glyphicon-adjust:before{content:"\e063"}.glyphicon-tint:before{content:"\e064"}.glyphicon-edit:before{content:"\e065"}.glyphicon-share:before{content:"\e066"}.glyphicon-check:before{content:"\e067"}.glyphicon-move:before{content:"\e068"}.glyphicon-step-backward:before{content:"\e069"}.glyphicon-fast-backward:before{content:"\e070"}.glyphicon-backward:before{content:"\e071"}.glyphicon-play:before{content:"\e072"}.glyphicon-pause:before{content:"\e073"}.glyphicon-stop:before{content:"\e074"}.glyphicon-forward:before{content:"\e075"}.glyphicon-fast-forward:before{content:"\e076"}.glyphicon-step-forward:before{content:"\e077"}.glyphicon-eject:before{content:"\e078"}.glyphicon-chevron-left:before{content:"\e079"}.glyphicon-chevron-right:before{content:"\e080"}.glyphicon-plus-sign:before{content:"\e081"}.glyphicon-minus-sign:before{content:"\e082"}.glyphicon-remove-sign:before{content:"\e083"}.glyphicon-ok-sign:before{content:"\e084"}.glyphicon-question-sign:before{content:"\e085"}.glyphicon-info-sign:before{content:"\e086"}.glyphicon-screenshot:before{content:"\e087"}.glyphicon-remove-circle:before{content:"\e088"}.glyphicon-ok-circle:before{content:"\e089"}.glyphicon-ban-circle:before{content:"\e090"}.glyphicon-arrow-left:before{content:"\e091"}.glyphicon-arrow-right:before{content:"\e092"}.glyphicon-arrow-up:before{content:"\e093"}.glyphicon-arrow-down:before{content:"\e094"}.glyphicon-share-alt:before{content:"\e095"}.glyphicon-resize-full:before{content:"\e096"}.glyphicon-resize-small:before{content:"\e097"}.glyphicon-exclamation-sign:before{content:"\e101"}.glyphicon-gift:before{content:"\e102"}.glyphicon-leaf:before{content:"\e103"}.glyphicon-fire:before{content:"\e104"}.glyphicon-eye-open:before{content:"\e105"}.glyphicon-eye-close:before{content:"\e106"}.glyphicon-warning-sign:before{content:"\e107"}.glyphicon-plane:before{content:"\e108"}.glyphicon-calendar:before{content:"\e109"}.glyphicon-random:before{content:"\e110"}.glyphicon-comment:before{content:"\e111"}.glyphicon-magnet:before{content:"\e112"}.glyphicon-chevron-up:before{content:"\e113"}.glyphicon-chevron-down:before{content:"\e114"}.glyphicon-retweet:before{content:"\e115"}.glyphicon-shopping-cart:before{content:"\e116"}.glyphicon-folder-close:before{content:"\e117"}.glyphicon-folder-open:before{content:"\e118"}.glyphicon-resize-vertical:before{content:"\e119"}.glyphicon-resize-horizontal:before{content:"\e120"}.glyphicon-hdd:before{content:"\e121"}.glyphicon-bullhorn:before{content:"\e122"}.glyphicon-bell:before{content:"\e123"}.glyphicon-certificate:before{content:"\e124"}.glyphicon-thumbs-up:before{content:"\e125"}.glyphicon-thumbs-down:before{content:"\e126"}.glyphicon-hand-right:before{content:"\e127"}.glyphicon-hand-left:before{content:"\e128"}.glyphicon-hand-up:before{content:"\e129"}.glyphicon-hand-down:before{content:"\e130"}.glyphicon-circle-arrow-right:before{content:"\e131"}.glyphicon-circle-arrow-left:before{content:"\e132"}.glyphicon-circle-arrow-up:before{content:"\e133"}.glyphicon-circle-arrow-down:before{content:"\e134"}.glyphicon-globe:before{content:"\e135"}.glyphicon-wrench:before{content:"\e136"}.glyphicon-tasks:before{content:"\e137"}.glyphicon-filter:before{content:"\e138"}.glyphicon-briefcase:before{content:"\e139"}.glyphicon-fullscreen:before{content:"\e140"}.glyphicon-dashboard:before{content:"\e141"}.glyphicon-paperclip:before{content:"\e142"}.glyphicon-heart-empty:before{content:"\e143"}.glyphicon-link:before{content:"\e144"}.glyphicon-phone:before{content:"\e145"}.glyphicon-pushpin:before{content:"\e146"}.glyphicon-usd:before{content:"\e148"}.glyphicon-gbp:before{content:"\e149"}.glyphicon-sort:before{content:"\e150"}.glyphicon-sort-by-alphabet:before{content:"\e151"}.glyphicon-sort-by-alphabet-alt:before{content:"\e152"}.glyphicon-sort-by-order:before{content:"\e153"}.glyphicon-sort-by-order-alt:before{content:"\e154"}.glyphicon-sort-by-attributes:before{content:"\e155"}.glyphicon-sort-by-attributes-alt:before{content:"\e156"}.glyphicon-unchecked:before{content:"\e157"}.glyphicon-expand:before{content:"\e158"}.glyphicon-collapse-down:before{content:"\e159"}.glyphicon-collapse-up:before{content:"\e160"}.glyphicon-log-in:before{content:"\e161"}.glyphicon-flash:before{content:"\e162"}.glyphicon-log-out:before{content:"\e163"}.glyphicon-new-window:before{content:"\e164"}.glyphicon-record:before{content:"\e165"}.glyphicon-save:before{content:"\e166"}.glyphicon-open:before{content:"\e167"}.glyphicon-saved:before{content:"\e168"}.glyphicon-import:before{content:"\e169"}.glyphicon-export:before{content:"\e170"}.glyphicon-send:before{content:"\e171"}.glyphicon-floppy-disk:before{content:"\e172"}.glyphicon-floppy-saved:before{content:"\e173"}.glyphicon-floppy-remove:before{content:"\e174"}.glyphicon-floppy-save:before{content:"\e175"}.glyphicon-floppy-open:before{content:"\e176"}.glyphicon-credit-card:before{content:"\e177"}.glyphicon-transfer:before{content:"\e178"}.glyphicon-cutlery:before{content:"\e179"}.glyphicon-header:before{content:"\e180"}.glyphicon-compressed:before{content:"\e181"}.glyphicon-earphone:before{content:"\e182"}.glyphicon-phone-alt:before{content:"\e183"}.glyphicon-tower:before{content:"\e184"}.glyphicon-stats:before{content:"\e185"}.glyphicon-sd-video:before{content:"\e186"}.glyphicon-hd-video:before{content:"\e187"}.glyphicon-subtitles:before{content:"\e188"}.glyphicon-sound-stereo:before{content:"\e189"}.glyphicon-sound-dolby:before{content:"\e190"}.glyphicon-sound-5-1:before{content:"\e191"}.glyphicon-sound-6-1:before{content:"\e192"}.glyphicon-sound-7-1:before{content:"\e193"}.glyphicon-copyright-mark:before{content:"\e194"}.glyphicon-registration-mark:before{content:"\e195"}.glyphicon-cloud-download:before{content:"\e197"}.glyphicon-cloud-upload:before{content:"\e198"}.glyphicon-tree-conifer:before{content:"\e199"}.glyphicon-tree-deciduous:before{content:"\e200"}.glyphicon-cd:before{content:"\e201"}.glyphicon-save-file:before{content:"\e202"}.glyphicon-open-file:before{content:"\e203"}.glyphicon-level-up:before{content:"\e204"}.glyphicon-copy:before{content:"\e205"}.glyphicon-paste:before{content:"\e206"}.glyphicon-alert:before{content:"\e209"}.glyphicon-equalizer:before{content:"\e210"}.glyphicon-king:before{content:"\e211"}.glyphicon-queen:before{content:"\e212"}.glyphicon-pawn:before{content:"\e213"}.glyphicon-bishop:before{content:"\e214"}.glyphicon-knight:before{content:"\e215"}.glyphicon-baby-formula:before{content:"\e216"}.glyphicon-tent:before{content:"\26fa"}.glyphicon-blackboard:before{content:"\e218"}.glyphicon-bed:before{content:"\e219"}.glyphicon-apple:before{content:"\f8ff"}.glyphicon-erase:before{content:"\e221"}.glyphicon-hourglass:before{content:"\231b"}.glyphicon-lamp:before{content:"\e223"}.glyphicon-duplicate:before{content:"\e224"}.glyphicon-piggy-bank:before{content:"\e225"}.glyphicon-scissors:before{content:"\e226"}.glyphicon-bitcoin:before{content:"\e227"}.glyphicon-btc:before{content:"\e227"}.glyphicon-xbt:before{content:"\e227"}.glyphicon-yen:before{content:"\00a5"}.glyphicon-jpy:before{content:"\00a5"}.glyphicon-ruble:before{content:"\20bd"}.glyphicon-rub:before{content:"\20bd"}.glyphicon-scale:before{content:"\e230"}.glyphicon-ice-lolly:before{content:"\e231"}.glyphicon-ice-lolly-tasted:before{content:"\e232"}.glyphicon-education:before{content:"\e233"}.glyphicon-option-horizontal:before{content:"\e234"}.glyphicon-option-vertical:before{content:"\e235"}.glyphicon-menu-hamburger:before{content:"\e236"}.glyphicon-modal-window:before{content:"\e237"}.glyphicon-oil:before{content:"\e238"}.glyphicon-grain:before{content:"\e239"}.glyphicon-sunglasses:before{content:"\e240"}.glyphicon-text-size:before{content:"\e241"}.glyphicon-text-color:before{content:"\e242"}.glyphicon-text-background:before{content:"\e243"}.glyphicon-object-align-top:before{content:"\e244"}.glyphicon-object-align-bottom:before{content:"\e245"}.glyphicon-object-align-horizontal:before{content:"\e246"}.glyphicon-object-align-left:before{content:"\e247"}.glyphicon-object-align-vertical:before{content:"\e248"}.glyphicon-object-align-right:before{content:"\e249"}.glyphicon-triangle-right:before{content:"\e250"}.glyphicon-triangle-left:before{content:"\e251"}.glyphicon-triangle-bottom:before{content:"\e252"}.glyphicon-triangle-top:before{content:"\e253"}.glyphicon-console:before{content:"\e254"}.glyphicon-superscript:before{content:"\e255"}.glyphicon-subscript:before{content:"\e256"}.glyphicon-menu-left:before{content:"\e257"}.glyphicon-menu-right:before{content:"\e258"}.glyphicon-menu-down:before{content:"\e259"}.glyphicon-menu-up:before{content:"\e260"}*{-webkit-box-sizing:border-box;-moz-box-sizing:border-box;box-sizing:border-box}*:before,*:after{-webkit-box-sizing:border-box;-moz-box-sizing:border-box;box-sizing:border-box}html{font-size:10px;-webkit-tap-highlight-color:rgba(0,0,0,0)}body{font-family:"Helvetica Neue",Helvetica,Arial,sans-serif;font-size:14px;line-height:1.42857143;color:#333;background-color:#fff}input,button,select,textarea{font-family:inherit;font-size:inherit;line-height:inherit}a{color:#337ab7;text-decoration:none}a:hover,a:focus{color:#23527c;text-decoration:underline}a:focus{outline:5px auto -webkit-focus-ring-color;outline-offset:-2px}figure{margin:0}img{vertical-align:middle}.img-responsive,.thumbnail>img,.thumbnail a>img,.carousel-inner>.item>img,.carousel-inner>.item>a>img{display:block;max-width:100%;height:auto}.img-rounded{border-radius:6px}.img-thumbnail{padding:4px;line-height:1.42857143;background-color:#fff;border:1px solid #ddd;border-radius:4px;-webkit-transition:all .2s ease-in-out;-o-transition:all .2s ease-in-out;transition:all .2s ease-in-out;display:inline-block;max-width:100%;height:auto}.img-circle{border-radius:50%}hr{margin-top:20px;margin-bottom:20px;border:0;border-top:1px solid #eee}.sr-only{position:absolute;width:1px;height:1px;padding:0;margin:-1px;overflow:hidden;clip:rect(0,0,0,0);border:0}.sr-only-focusable:active,.sr-only-focusable:focus{position:static;width:auto;height:auto;margin:0;overflow:visible;clip:auto}[role="button"]{cursor:pointer}h1,h2,h3,h4,h5,h6,.h1,.h2,.h3,.h4,.h5,.h6{font-family:inherit;font-weight:500;line-height:1.1;color:inherit}h1 small,h2 small,h3 small,h4 small,h5 small,h6 small,.h1 small,.h2 small,.h3 small,.h4 small,.h5 small,.h6 small,h1 .small,h2 .small,h3 .small,h4 .small,h5 .small,h6 .small,.h1 .small,.h2 .small,.h3 .small,.h4 .small,.h5 .small,.h6 .small{font-weight:400;line-height:1;color:#777}h1,.h1,h2,.h2,h3,.h3{margin-top:20px;margin-bottom:10px}h1 small,.h1 small,h2 small,.h2 small,h3 small,.h3 small,h1 .small,.h1 .small,h2 .small,.h2 .small,h3 .small,.h3 .small{font-size:65%}h4,.h4,h5,.h5,h6,.h6{margin-top:10px;margin-bottom:10px}h4 small,.h4 small,h5 small,.h5 small,h6 small,.h6 small,h4 .small,.h4 .small,h5 .small,.h5 .small,h6 .small,.h6 .small{font-size:75%}h1,.h1{font-size:36px}h2,.h2{font-size:30px}h3,.h3{font-size:24px}h4,.h4{font-size:18px}h5,.h5{font-size:14px}h6,.h6{font-size:12px}p{margin:0 0 10px}.lead{margin-bottom:20px;font-size:16px;font-weight:300;line-height:1.4}@media(min-width:768px){.lead{font-size:21px}}small,.small{font-size:85%}mark,.mark{padding:.2em;background-color:#fcf8e3}.text-left{text-align:left}.text-right{text-align:right}.text-center{text-align:center}.text-justify{text-align:justify}.text-nowrap{white-space:nowrap}.text-lowercase{text-transform:lowercase}.text-uppercase{text-transform:uppercase}.text-capitalize{text-transform:capitalize}.text-muted{color:#777}.text-primary{color:#337ab7}a.text-primary:hover,a.text-primary:focus{color:#286090}.text-success{color:#3c763d}a.text-success:hover,a.text-success:focus{color:#2b542c}.text-info{color:#31708f}a.text-info:hover,a.text-info:focus{color:#245269}.text-warning{color:#8a6d3b}a.text-warning:hover,a.text-warning:focus{color:#66512c}.text-danger{color:#a94442}a.text-danger:hover,a.text-danger:focus{color:#843534}.bg-primary{color:#fff;background-color:#337ab7}a.bg-primary:hover,a.bg-primary:focus{background-color:#286090}.bg-success{background-color:#dff0d8}a.bg-success:hover,a.bg-success:focus{background-color:#c1e2b3}.bg-info{background-color:#d9edf7}a.bg-info:hover,a.bg-info:focus{background-color:#afd9ee}.bg-warning{background-color:#fcf8e3}a.bg-warning:hover,a.bg-warning:focus{background-color:#f7ecb5}.bg-danger{background-color:#f2dede}a.bg-danger:hover,a.bg-danger:focus{background-color:#e4b9b9}.page-header{padding-bottom:9px;margin:40px 0 20px;border-bottom:1px solid #eee}ul,ol{margin-top:0;margin-bottom:10px}ul ul,ol ul,ul ol,ol ol{margin-bottom:0}.list-unstyled{padding-left:0;list-style:none}.list-inline{padding-left:0;list-style:none;margin-left:-5px}.list-inline>li{display:inline-block;padding-right:5px;padding-left:5px}dl{margin-top:0;margin-bottom:20px}dt,dd{line-height:1.42857143}dt{font-weight:700}dd{margin-left:0}@media(min-width:768px){.dl-horizontal dt{float:left;width:160px;clear:left;text-align:right;overflow:hidden;text-overflow:ellipsis;white-space:nowrap}.dl-horizontal dd{margin-left:180px}}abbr[title],abbr[data-original-title]{cursor:help}.initialism{font-size:90%;text-transform:uppercase}blockquote{padding:10px 20px;margin:0 0 20px;font-size:17.5px;border-left:5px solid #eee}blockquote p:last-child,blockquote ul:last-child,blockquote ol:last-child{margin-bottom:0}blockquote footer,blockquote small,blockquote .small{display:block;font-size:80%;line-height:1.42857143;color:#777}blockquote footer:before,blockquote small:before,blockquote .small:before{content:"\2014 \00A0"}.blockquote-reverse,blockquote.pull-right{padding-right:15px;padding-left:0;text-align:right;border-right:5px solid #eee;border-left:0}.blockquote-reverse footer:before,blockquote.pull-right footer:before,.blockquote-reverse small:before,blockquote.pull-right small:before,.blockquote-reverse .small:before,blockquote.pull-right .small:before{content:""}.blockquote-reverse footer:after,blockquote.pull-right footer:after,.blockquote-reverse small:after,blockquote.pull-right small:after,.blockquote-reverse .small:after,blockquote.pull-right .small:after{content:"\00A0 \2014"}address{margin-bottom:20px;font-style:normal;line-height:1.42857143}code,kbd,pre,samp{font-family:Menlo,Monaco,Consolas,"Courier New",monospace}code{padding:2px 4px;font-size:90%;color:#c7254e;background-color:#f9f2f4;border-radius:4px}kbd{padding:2px 4px;font-size:90%;color:#fff;background-color:#333;border-radius:3px;box-shadow:inset 0 -1px 0 rgba(0,0,0,0.25)}kbd kbd{padding:0;font-size:100%;font-weight:700;box-shadow:none}pre{display:block;padding:9.5px;margin:0 0 10px;font-size:13px;line-height:1.42857143;color:#333;word-break:break-all;word-wrap:break-word;background-color:#f5f5f5;border:1px solid #ccc;border-radius:4px}pre code{padding:0;font-size:inherit;color:inherit;white-space:pre-wrap;background-color:transparent;border-radius:0}.pre-scrollable{max-height:340px;overflow-y:scroll}.container{padding-right:15px;padding-left:15px;margin-right:auto;margin-left:auto}@media(min-width:768px){.container{width:750px}}@media(min-width:992px){.container{width:970px}}@media(min-width:1200px){.container{width:1170px}}.container-fluid{padding-right:15px;padding-left:15px;margin-right:auto;margin-left:auto}.row{margin-right:-15px;margin-left:-15px}.row-no-gutters{margin-right:0;margin-left:0}.row-no-gutters [class*="col-"]{padding-right:0;padding-left:0}.col-xs-1,.col-sm-1,.col-md-1,.col-lg-1,.col-xs-2,.col-sm-2,.col-md-2,.col-lg-2,.col-xs-3,.col-sm-3,.col-md-3,.col-lg-3,.col-xs-4,.col-sm-4,.col-md-4,.col-lg-4,.col-xs-5,.col-sm-5,.col-md-5,.col-lg-5,.col-xs-6,.col-sm-6,.col-md-6,.col-lg-6,.col-xs-7,.col-sm-7,.col-md-7,.col-lg-7,.col-xs-8,.col-sm-8,.col-md-8,.col-lg-8,.col-xs-9,.col-sm-9,.col-md-9,.col-lg-9,.col-xs-10,.col-sm-10,.col-md-10,.col-lg-10,.col-xs-11,.col-sm-11,.col-md-11,.col-lg-11,.col-xs-12,.col-sm-12,.col-md-12,.col-lg-12{position:relative;min-height:1px;padding-right:15px;padding-left:15px}.col-xs-1,.col-xs-2,.col-xs-3,.col-xs-4,.col-xs-5,.col-xs-6,.col-xs-7,.col-xs-8,.col-xs-9,.col-xs-10,.col-xs-11,.col-xs-12{float:left}.col-xs-12{width:100%}.col-xs-11{width:91.66666667%}.col-xs-10{width:83.33333333%}.col-xs-9{width:75%}.col-xs-8{width:66.66666667%}.col-xs-7{width:58.33333333%}.col-xs-6{width:50%}.col-xs-5{width:41.66666667%}.col-xs-4{width:33.33333333%}.col-xs-3{width:25%}.col-xs-2{width:16.66666667%}.col-xs-1{width:8.33333333%}.col-xs-pull-12{right:100%}.col-xs-pull-11{right:91.66666667%}.col-xs-pull-10{right:83.33333333%}.col-xs-pull-9{right:75%}.col-xs-pull-8{right:66.66666667%}.col-xs-pull-7{right:58.33333333%}.col-xs-pull-6{right:50%}.col-xs-pull-5{right:41.66666667%}.col-xs-pull-4{right:33.33333333%}.col-xs-pull-3{right:25%}.col-xs-pull-2{right:16.66666667%}.col-xs-pull-1{right:8.33333333%}.col-xs-pull-0{right:auto}.col-xs-push-12{left:100%}.col-xs-push-11{left:91.66666667%}.col-xs-push-10{left:83.33333333%}.col-xs-push-9{left:75%}.col-xs-push-8{left:66.66666667%}.col-xs-push-7{left:58.33333333%}.col-xs-push-6{left:50%}.col-xs-push-5{left:41.66666667%}.col-xs-push-4{left:33.33333333%}.col-xs-push-3{left:25%}.col-xs-push-2{left:16.66666667%}.col-xs-push-1{left:8.33333333%}.col-xs-push-0{left:auto}.col-xs-offset-12{margin-left:100%}.col-xs-offset-11{margin-left:91.66666667%}.col-xs-offset-10{margin-left:83.33333333%}.col-xs-offset-9{margin-left:75%}.col-xs-offset-8{margin-left:66.66666667%}.col-xs-offset-7{margin-left:58.33333333%}.col-xs-offset-6{margin-left:50%}.col-xs-offset-5{margin-left:41.66666667%}.col-xs-offset-4{margin-left:33.33333333%}.col-xs-offset-3{margin-left:25%}.col-xs-offset-2{margin-left:16.66666667%}.col-xs-offset-1{margin-left:8.33333333%}.col-xs-offset-0{margin-left:0}@media(min-width:768px){.col-sm-1,.col-sm-2,.col-sm-3,.col-sm-4,.col-sm-5,.col-sm-6,.col-sm-7,.col-sm-8,.col-sm-9,.col-sm-10,.col-sm-11,.col-sm-12{float:left}.col-sm-12{width:100%}.col-sm-11{width:91.66666667%}.col-sm-10{width:83.33333333%}.col-sm-9{width:75%}.col-sm-8{width:66.66666667%}.col-sm-7{width:58.33333333%}.col-sm-6{width:50%}.col-sm-5{width:41.66666667%}.col-sm-4{width:33.33333333%}.col-sm-3{width:25%}.col-sm-2{width:16.66666667%}.col-sm-1{width:8.33333333%}.col-sm-pull-12{right:100%}.col-sm-pull-11{right:91.66666667%}.col-sm-pull-10{right:83.33333333%}.col-sm-pull-9{right:75%}.col-sm-pull-8{right:66.66666667%}.col-sm-pull-7{right:58.33333333%}.col-sm-pull-6{right:50%}.col-sm-pull-5{right:41.66666667%}.col-sm-pull-4{right:33.33333333%}.col-sm-pull-3{right:25%}.col-sm-pull-2{right:16.66666667%}.col-sm-pull-1{right:8.33333333%}.col-sm-pull-0{right:auto}.col-sm-push-12{left:100%}.col-sm-push-11{left:91.66666667%}.col-sm-push-10{left:83.33333333%}.col-sm-push-9{left:75%}.col-sm-push-8{left:66.66666667%}.col-sm-push-7{left:58.33333333%}.col-sm-push-6{left:50%}.col-sm-push-5{left:41.66666667%}.col-sm-push-4{left:33.33333333%}.col-sm-push-3{left:25%}.col-sm-push-2{left:16.66666667%}.col-sm-push-1{left:8.33333333%}.col-sm-push-0{left:auto}.col-sm-offset-12{margin-left:100%}.col-sm-offset-11{margin-left:91.66666667%}.col-sm-offset-10{margin-left:83.33333333%}.col-sm-offset-9{margin-left:75%}.col-sm-offset-8{margin-left:66.66666667%}.col-sm-offset-7{margin-left:58.33333333%}.col-sm-offset-6{margin-left:50%}.col-sm-offset-5{margin-left:41.66666667%}.col-sm-offset-4{margin-left:33.33333333%}.col-sm-offset-3{margin-left:25%}.col-sm-offset-2{margin-left:16.66666667%}.col-sm-offset-1{margin-left:8.33333333%}.col-sm-offset-0{margin-left:0}}@media(min-width:992px){.col-md-1,.col-md-2,.col-md-3,.col-md-4,.col-md-5,.col-md-6,.col-md-7,.col-md-8,.col-md-9,.col-md-10,.col-md-11,.col-md-12{float:left}.col-md-12{width:100%}.col-md-11{width:91.66666667%}.col-md-10{width:83.33333333%}.col-md-9{width:75%}.col-md-8{width:66.66666667%}.col-md-7{width:58.33333333%}.col-md-6{width:50%}.col-md-5{width:41.66666667%}.col-md-4{width:33.33333333%}.col-md-3{width:25%}.col-md-2{width:16.66666667%}.col-md-1{width:8.33333333%}.col-md-pull-12{right:100%}.col-md-pull-11{right:91.66666667%}.col-md-pull-10{right:83.33333333%}.col-md-pull-9{right:75%}.col-md-pull-8{right:66.66666667%}.col-md-pull-7{right:58.33333333%}.col-md-pull-6{right:50%}.col-md-pull-5{right:41.66666667%}.col-md-pull-4{right:33.33333333%}.col-md-pull-3{right:25%}.col-md-pull-2{right:16.66666667%}.col-md-pull-1{right:8.33333333%}.col-md-pull-0{right:auto}.col-md-push-12{left:100%}.col-md-push-11{left:91.66666667%}.col-md-push-10{left:83.33333333%}.col-md-push-9{left:75%}.col-md-push-8{left:66.66666667%}.col-md-push-7{left:58.33333333%}.col-md-push-6{left:50%}.col-md-push-5{left:41.66666667%}.col-md-push-4{left:33.33333333%}.col-md-push-3{left:25%}.col-md-push-2{left:16.66666667%}.col-md-push-1{left:8.33333333%}.col-md-push-0{left:auto}.col-md-offset-12{margin-left:100%}.col-md-offset-11{margin-left:91.66666667%}.col-md-offset-10{margin-left:83.33333333%}.col-md-offset-9{margin-left:75%}.col-md-offset-8{margin-left:66.66666667%}.col-md-offset-7{margin-left:58.33333333%}.col-md-offset-6{margin-left:50%}.col-md-offset-5{margin-left:41.66666667%}.col-md-offset-4{margin-left:33.33333333%}.col-md-offset-3{margin-left:25%}.col-md-offset-2{margin-left:16.66666667%}.col-md-offset-1{margin-left:8.33333333%}.col-md-offset-0{margin-left:0}}@media(min-width:1200px){.col-lg-1,.col-lg-2,.col-lg-3,.col-lg-4,.col-lg-5,.col-lg-6,.col-lg-7,.col-lg-8,.col-lg-9,.col-lg-10,.col-lg-11,.col-lg-12{float:left}.col-lg-12{width:100%}.col-lg-11{width:91.66666667%}.col-lg-10{width:83.33333333%}.col-lg-9{width:75%}.col-lg-8{width:66.66666667%}.col-lg-7{width:58.33333333%}.col-lg-6{width:50%}.col-lg-5{width:41.66666667%}.col-lg-4{width:33.33333333%}.col-lg-3{width:25%}.col-lg-2{width:16.66666667%}.col-lg-1{width:8.33333333%}.col-lg-pull-12{right:100%}.col-lg-pull-11{right:91.66666667%}.col-lg-pull-10{right:83.33333333%}.col-lg-pull-9{right:75%}.col-lg-pull-8{right:66.66666667%}.col-lg-pull-7{right:58.33333333%}.col-lg-pull-6{right:50%}.col-lg-pull-5{right:41.66666667%}.col-lg-pull-4{right:33.33333333%}.col-lg-pull-3{right:25%}.col-lg-pull-2{right:16.66666667%}.col-lg-pull-1{right:8.33333333%}.col-lg-pull-0{right:auto}.col-lg-push-12{left:100%}.col-lg-push-11{left:91.66666667%}.col-lg-push-10{left:83.33333333%}.col-lg-push-9{left:75%}.col-lg-push-8{left:66.66666667%}.col-lg-push-7{left:58.33333333%}.col-lg-push-6{left:50%}.col-lg-push-5{left:41.66666667%}.col-lg-push-4{left:33.33333333%}.col-lg-push-3{left:25%}.col-lg-push-2{left:16.66666667%}.col-lg-push-1{left:8.33333333%}.col-lg-push-0{left:auto}.col-lg-offset-12{margin-left:100%}.col-lg-offset-11{margin-left:91.66666667%}.col-lg-offset-10{margin-left:83.33333333%}.col-lg-offset-9{margin-left:75%}.col-lg-offset-8{margin-left:66.66666667%}.col-lg-offset-7{margin-left:58.33333333%}.col-lg-offset-6{margin-left:50%}.col-lg-offset-5{margin-left:41.66666667%}.col-lg-offset-4{margin-left:33.33333333%}.col-lg-offset-3{margin-left:25%}.col-lg-offset-2{margin-left:16.66666667%}.col-lg-offset-1{margin-left:8.33333333%}.col-lg-offset-0{margin-left:0}}table{background-color:transparent}table col[class*="col-"]{position:static;display:table-column;float:none}table td[class*="col-"],table th[class*="col-"]{position:static;display:table-cell;float:none}caption{padding-top:8px;padding-bottom:8px;color:#777;text-align:left}th{text-align:left}.table{width:100%;max-width:100%;margin-bottom:20px}.table>thead>tr>th,.table>tbody>tr>th,.table>tfoot>tr>th,.table>thead>tr>td,.table>tbody>tr>td,.table>tfoot>tr>td{padding:8px;line-height:1.42857143;vertical-align:top;border-top:1px solid #ddd}.table>thead>tr>th{vertical-align:bottom;border-bottom:2px solid #ddd}.table>caption+thead>tr:first-child>th,.table>colgroup+thead>tr:first-child>th,.table>thead:first-child>tr:first-child>th,.table>caption+thead>tr:first-child>td,.table>colgroup+thead>tr:first-child>td,.table>thead:first-child>tr:first-child>td{border-top:0}.table>tbody+tbody{border-top:2px solid #ddd}.table .table{background-color:#fff}.table-condensed>thead>tr>th,.table-condensed>tbody>tr>th,.table-condensed>tfoot>tr>th,.table-condensed>thead>tr>td,.table-condensed>tbody>tr>td,.table-condensed>tfoot>tr>td{padding:5px}.table-bordered{border:1px solid #ddd}.table-bordered>thead>tr>th,.table-bordered>tbody>tr>th,.table-bordered>tfoot>tr>th,.table-bordered>thead>tr>td,.table-bordered>tbody>tr>td,.table-bordered>tfoot>tr>td{border:1px solid #ddd}.table-bordered>thead>tr>th,.table-bordered>thead>tr>td{border-bottom-width:2px}.table-striped>tbody>tr:nth-of-type(odd){background-color:#f9f9f9}.table-hover>tbody>tr:hover{background-color:#f5f5f5}.table>thead>tr>td.active,.table>tbody>tr>td.active,.table>tfoot>tr>td.active,.table>thead>tr>th.active,.table>tbody>tr>th.active,.table>tfoot>tr>th.active,.table>thead>tr.active>td,.table>tbody>tr.active>td,.table>tfoot>tr.active>td,.table>thead>tr.active>th,.table>tbody>tr.active>th,.table>tfoot>tr.active>th{background-color:#f5f5f5}.table-hover>tbody>tr>td.active:hover,.table-hover>tbody>tr>th.active:hover,.table-hover>tbody>tr.active:hover>td,.table-hover>tbody>tr:hover>.active,.table-hover>tbody>tr.active:hover>th{background-color:#e8e8e8}.table>thead>tr>td.success,.table>tbody>tr>td.success,.table>tfoot>tr>td.success,.table>thead>tr>th.success,.table>tbody>tr>th.success,.table>tfoot>tr>th.success,.table>thead>tr.success>td,.table>tbody>tr.success>td,.table>tfoot>tr.success>td,.table>thead>tr.success>th,.table>tbody>tr.success>th,.table>tfoot>tr.success>th{background-color:#dff0d8}.table-hover>tbody>tr>td.success:hover,.table-hover>tbody>tr>th.success:hover,.table-hover>tbody>tr.success:hover>td,.table-hover>tbody>tr:hover>.success,.table-hover>tbody>tr.success:hover>th{background-color:#d0e9c6}.table>thead>tr>td.info,.table>tbody>tr>td.info,.table>tfoot>tr>td.info,.table>thead>tr>th.info,.table>tbody>tr>th.info,.table>tfoot>tr>th.info,.table>thead>tr.info>td,.table>tbody>tr.info>td,.table>tfoot>tr.info>td,.table>thead>tr.info>th,.table>tbody>tr.info>th,.table>tfoot>tr.info>th{background-color:#d9edf7}.table-hover>tbody>tr>td.info:hover,.table-hover>tbody>tr>th.info:hover,.table-hover>tbody>tr.info:hover>td,.table-hover>tbody>tr:hover>.info,.table-hover>tbody>tr.info:hover>th{background-color:#c4e3f3}.table>thead>tr>td.warning,.table>tbody>tr>td.warning,.table>tfoot>tr>td.warning,.table>thead>tr>th.warning,.table>tbody>tr>th.warning,.table>tfoot>tr>th.warning,.table>thead>tr.warning>td,.table>tbody>tr.warning>td,.table>tfoot>tr.warning>td,.table>thead>tr.warning>th,.table>tbody>tr.warning>th,.table>tfoot>tr.warning>th{background-color:#fcf8e3}.table-hover>tbody>tr>td.warning:hover,.table-hover>tbody>tr>th.warning:hover,.table-hover>tbody>tr.warning:hover>td,.table-hover>tbody>tr:hover>.warning,.table-hover>tbody>tr.warning:hover>th{background-color:#faf2cc}.table>thead>tr>td.danger,.table>tbody>tr>td.danger,.table>tfoot>tr>td.danger,.table>thead>tr>th.danger,.table>tbody>tr>th.danger,.table>tfoot>tr>th.danger,.table>thead>tr.danger>td,.table>tbody>tr.danger>td,.table>tfoot>tr.danger>td,.table>thead>tr.danger>th,.table>tbody>tr.danger>th,.table>tfoot>tr.danger>th{background-color:#f2dede}.table-hover>tbody>tr>td.danger:hover,.table-hover>tbody>tr>th.danger:hover,.table-hover>tbody>tr.danger:hover>td,.table-hover>tbody>tr:hover>.danger,.table-hover>tbody>tr.danger:hover>th{background-color:#ebcccc}.table-responsive{min-height:.01%;overflow-x:auto}@media screen and (max-width:767px){.table-responsive{width:100%;margin-bottom:15px;overflow-y:hidden;-ms-overflow-style:-ms-autohiding-scrollbar;border:1px solid #ddd}.table-responsive>.table{margin-bottom:0}.table-responsive>.table>thead>tr>th,.table-responsive>.table>tbody>tr>th,.table-responsive>.table>tfoot>tr>th,.table-responsive>.table>thead>tr>td,.table-responsive>.table>tbody>tr>td,.table-responsive>.table>tfoot>tr>td{white-space:nowrap}.table-responsive>.table-bordered{border:0}.table-responsive>.table-bordered>thead>tr>th:first-child,.table-responsive>.table-bordered>tbody>tr>th:first-child,.table-responsive>.table-bordered>tfoot>tr>th:first-child,.table-responsive>.table-bordered>thead>tr>td:first-child,.table-responsive>.table-bordered>tbody>tr>td:first-child,.table-responsive>.table-bordered>tfoot>tr>td:first-child{border-left:0}.table-responsive>.table-bordered>thead>tr>th:last-child,.table-responsive>.table-bordered>tbody>tr>th:last-child,.table-responsive>.table-bordered>tfoot>tr>th:last-child,.table-responsive>.table-bordered>thead>tr>td:last-child,.table-responsive>.table-bordered>tbody>tr>td:last-child,.table-responsive>.table-bordered>tfoot>tr>td:last-child{border-right:0}.table-responsive>.table-bordered>tbody>tr:last-child>th,.table-responsive>.table-bordered>tfoot>tr:last-child>th,.table-responsive>.table-bordered>tbody>tr:last-child>td,.table-responsive>.table-bordered>tfoot>tr:last-child>td{border-bottom:0}}fieldset{min-width:0;padding:0;margin:0;border:0}legend{display:block;width:100%;padding:0;margin-bottom:20px;font-size:21px;line-height:inherit;color:#333;border:0;border-bottom:1px solid #e5e5e5}label{display:inline-block;max-width:100%;margin-bottom:5px;font-weight:700}input[type="search"]{-webkit-box-sizing:border-box;-moz-box-sizing:border-box;box-sizing:border-box;-webkit-appearance:none;appearance:none}input[type="radio"],input[type="checkbox"]{margin:4px 0 0;margin-top:1px \9;line-height:normal}input[type="radio"][disabled],input[type="checkbox"][disabled],input[type="radio"].disabled,input[type="checkbox"].disabled,fieldset[disabled] input[type="radio"],fieldset[disabled] input[type="checkbox"]{cursor:not-allowed}input[type="file"]{display:block}input[type="range"]{display:block;width:100%}select[multiple],select[size]{height:auto}input[type="file"]:focus,input[type="radio"]:focus,input[type="checkbox"]:focus{outline:5px auto -webkit-focus-ring-color;outline-offset:-2px}output{display:block;padding-top:7px;font-size:14px;line-height:1.42857143;color:#555}.form-control{display:block;width:100%;height:34px;padding:6px 12px;font-size:14px;line-height:1.42857143;color:#555;background-color:#fff;background-image:none;border:1px solid #ccc;border-radius:4px;-webkit-box-shadow:inset 0 1px 1px rgba(0,0,0,0.075);box-shadow:inset 0 1px 1px rgba(0,0,0,0.075);-webkit-transition:border-color ease-in-out .15s,box-shadow ease-in-out .15s;-o-transition:border-color ease-in-out .15s,box-shadow ease-in-out .15s;transition:border-color ease-in-out .15s,box-shadow ease-in-out .15s}.form-control:focus{border-color:#66afe9;outline:0;-webkit-box-shadow:inset 0 1px 1px rgba(0,0,0,.075),0 0 8px rgba(102,175,233,0.6);box-shadow:inset 0 1px 1px rgba(0,0,0,.075),0 0 8px rgba(102,175,233,0.6)}.form-control::-moz-placeholder{color:#999;opacity:1}.form-control:-ms-input-placeholder{color:#999}.form-control::-webkit-input-placeholder{color:#999}.form-control::-ms-expand{background-color:transparent;border:0}.form-control[disabled],.form-control[readonly],fieldset[disabled] .form-control{background-color:#eee;opacity:1}.form-control[disabled],fieldset[disabled] .form-control{cursor:not-allowed}textarea.form-control{height:auto}@media screen and (-webkit-min-device-pixel-ratio:0){input[type="date"].form-control,input[type="time"].form-control,input[type="datetime-local"].form-control,input[type="month"].form-control{line-height:34px}input[type="date"].input-sm,input[type="time"].input-sm,input[type="datetime-local"].input-sm,input[type="month"].input-sm,.input-group-sm input[type="date"],.input-group-sm input[type="time"],.input-group-sm input[type="datetime-local"],.input-group-sm input[type="month"]{line-height:30px}input[type="date"].input-lg,input[type="time"].input-lg,input[type="datetime-local"].input-lg,input[type="month"].input-lg,.input-group-lg input[type="date"],.input-group-lg input[type="time"],.input-group-lg input[type="datetime-local"],.input-group-lg input[type="month"]{line-height:46px}}.form-group{margin-bottom:15px}.radio,.checkbox{position:relative;display:block;margin-top:10px;margin-bottom:10px}.radio.disabled label,.checkbox.disabled label,fieldset[disabled] .radio label,fieldset[disabled] .checkbox label{cursor:not-allowed}.radio label,.checkbox label{min-height:20px;padding-left:20px;margin-bottom:0;font-weight:400;cursor:pointer}.radio input[type="radio"],.radio-inline input[type="radio"],.checkbox input[type="checkbox"],.checkbox-inline input[type="checkbox"]{position:absolute;margin-top:4px \9;margin-left:-20px}.radio+.radio,.checkbox+.checkbox{margin-top:-5px}.radio-inline,.checkbox-inline{position:relative;display:inline-block;padding-left:20px;margin-bottom:0;font-weight:400;vertical-align:middle;cursor:pointer}.radio-inline.disabled,.checkbox-inline.disabled,fieldset[disabled] .radio-inline,fieldset[disabled] .checkbox-inline{cursor:not-allowed}.radio-inline+.radio-inline,.checkbox-inline+.checkbox-inline{margin-top:0;margin-left:10px}.form-control-static{min-height:34px;padding-top:7px;padding-bottom:7px;margin-bottom:0}.form-control-static.input-lg,.form-control-static.input-sm{padding-right:0;padding-left:0}.input-sm{height:30px;padding:5px 10px;font-size:12px;line-height:1.5;border-radius:3px}select.input-sm{height:30px;line-height:30px}textarea.input-sm,select[multiple].input-sm{height:auto}.form-group-sm .form-control{height:30px;padding:5px 10px;font-size:12px;line-height:1.5;border-radius:3px}.form-group-sm select.form-control{height:30px;line-height:30px}.form-group-sm textarea.form-control,.form-group-sm select[multiple].form-control{height:auto}.form-group-sm .form-control-static{height:30px;min-height:32px;padding:6px 10px;font-size:12px;line-height:1.5}.input-lg{height:46px;padding:10px 16px;font-size:18px;line-height:1.3333333;border-radius:6px}select.input-lg{height:46px;line-height:46px}textarea.input-lg,select[multiple].input-lg{height:auto}.form-group-lg .form-control{height:46px;padding:10px 16px;font-size:18px;line-height:1.3333333;border-radius:6px}.form-group-lg select.form-control{height:46px;line-height:46px}.form-group-lg textarea.form-control,.form-group-lg select[multiple].form-control{height:auto}.form-group-lg .form-control-static{height:46px;min-height:38px;padding:11px 16px;font-size:18px;line-height:1.3333333}.has-feedback{position:relative}.has-feedback .form-control{padding-right:42.5px}.form-control-feedback{position:absolute;top:0;right:0;z-index:2;display:block;width:34px;height:34px;line-height:34px;text-align:center;pointer-events:none}.input-lg+.form-control-feedback,.input-group-lg+.form-control-feedback,.form-group-lg .form-control+.form-control-feedback{width:46px;height:46px;line-height:46px}.input-sm+.form-control-feedback,.input-group-sm+.form-control-feedback,.form-group-sm .form-control+.form-control-feedback{width:30px;height:30px;line-height:30px}.has-success .help-block,.has-success .control-label,.has-success .radio,.has-success .checkbox,.has-success .radio-inline,.has-success .checkbox-inline,.has-success.radio label,.has-success.checkbox label,.has-success.radio-inline label,.has-success.checkbox-inline label{color:#3c763d}.has-success .form-control{border-color:#3c763d;-webkit-box-shadow:inset 0 1px 1px rgba(0,0,0,0.075);box-shadow:inset 0 1px 1px rgba(0,0,0,0.075)}.has-success .form-control:focus{border-color:#2b542c;-webkit-box-shadow:inset 0 1px 1px rgba(0,0,0,0.075),0 0 6px #67b168;box-shadow:inset 0 1px 1px rgba(0,0,0,0.075),0 0 6px #67b168}.has-success .input-group-addon{color:#3c763d;background-color:#dff0d8;border-color:#3c763d}.has-success .form-control-feedback{color:#3c763d}.has-warning .help-block,.has-warning .control-label,.has-warning .radio,.has-warning .checkbox,.has-warning .radio-inline,.has-warning .checkbox-inline,.has-warning.radio label,.has-warning.checkbox label,.has-warning.radio-inline label,.has-warning.checkbox-inline label{color:#8a6d3b}.has-warning .form-control{border-color:#8a6d3b;-webkit-box-shadow:inset 0 1px 1px rgba(0,0,0,0.075);box-shadow:inset 0 1px 1px rgba(0,0,0,0.075)}.has-warning .form-control:focus{border-color:#66512c;-webkit-box-shadow:inset 0 1px 1px rgba(0,0,0,0.075),0 0 6px #c0a16b;box-shadow:inset 0 1px 1px rgba(0,0,0,0.075),0 0 6px #c0a16b}.has-warning .input-group-addon{color:#8a6d3b;background-color:#fcf8e3;border-color:#8a6d3b}.has-warning .form-control-feedback{color:#8a6d3b}.has-error .help-block,.has-error .control-label,.has-error .radio,.has-error .checkbox,.has-error .radio-inline,.has-error .checkbox-inline,.has-error.radio label,.has-error.checkbox label,.has-error.radio-inline label,.has-error.checkbox-inline label{color:#a94442}.has-error .form-control{border-color:#a94442;-webkit-box-shadow:inset 0 1px 1px rgba(0,0,0,0.075);box-shadow:inset 0 1px 1px rgba(0,0,0,0.075)}.has-error .form-control:focus{border-color:#843534;-webkit-box-shadow:inset 0 1px 1px rgba(0,0,0,0.075),0 0 6px #ce8483;box-shadow:inset 0 1px 1px rgba(0,0,0,0.075),0 0 6px #ce8483}.has-error .input-group-addon{color:#a94442;background-color:#f2dede;border-color:#a94442}.has-error .form-control-feedback{color:#a94442}.has-feedback label ~ .form-control-feedback{top:25px}.has-feedback label.sr-only ~ .form-control-feedback{top:0}.help-block{display:block;margin-top:5px;margin-bottom:10px;color:#737373}@media(min-width:768px){.form-inline .form-group{display:inline-block;margin-bottom:0;vertical-align:middle}.form-inline .form-control{display:inline-block;width:auto;vertical-align:middle}.form-inline .form-control-static{display:inline-block}.form-inline .input-group{display:inline-table;vertical-align:middle}.form-inline .input-group .input-group-addon,.form-inline .input-group .input-group-btn,.form-inline .input-group .form-control{width:auto}.form-inline .input-group>.form-control{width:100%}.form-inline .control-label{margin-bottom:0;vertical-align:middle}.form-inline .radio,.form-inline .checkbox{display:inline-block;margin-top:0;margin-bottom:0;vertical-align:middle}.form-inline .radio label,.form-inline .checkbox label{padding-left:0}.form-inline .radio input[type="radio"],.form-inline .checkbox input[type="checkbox"]{position:relative;margin-left:0}.form-inline .has-feedback .form-control-feedback{top:0}}.form-horizontal .radio,.form-horizontal .checkbox,.form-horizontal .radio-inline,.form-horizontal .checkbox-inline{padding-top:7px;margin-top:0;margin-bottom:0}.form-horizontal .radio,.form-horizontal .checkbox{min-height:27px}.form-horizontal .form-group{margin-right:-15px;margin-left:-15px}@media(min-width:768px){.form-horizontal .control-label{padding-top:7px;margin-bottom:0;text-align:right}}.form-horizontal .has-feedback .form-control-feedback{right:15px}@media(min-width:768px){.form-horizontal .form-group-lg .control-label{padding-top:11px;font-size:18px}}@media(min-width:768px){.form-horizontal .form-group-sm .control-label{padding-top:6px;font-size:12px}}.btn{display:inline-block;margin-bottom:0;font-weight:normal;text-align:center;white-space:nowrap;vertical-align:middle;touch-action:manipulation;cursor:pointer;background-image:none;border:1px solid transparent;padding:6px 12px;font-size:14px;line-height:1.42857143;border-radius:4px;-webkit-user-select:none;-moz-user-select:none;-ms-user-select:none;user-select:none}.btn:focus,.btn:active:focus,.btn.active:focus,.btn.focus,.btn:active.focus,.btn.active.focus{outline:5px auto -webkit-focus-ring-color;outline-offset:-2px}.btn:hover,.btn:focus,.btn.focus{color:#333;text-decoration:none}.btn:active,.btn.active{background-image:none;outline:0;-webkit-box-shadow:inset 0 3px 5px rgba(0,0,0,0.125);box-shadow:inset 0 3px 5px rgba(0,0,0,0.125)}.btn.disabled,.btn[disabled],fieldset[disabled] .btn{cursor:not-allowed;filter:alpha(opacity=65);opacity:.65;-webkit-box-shadow:none;box-shadow:none}a.btn.disabled,fieldset[disabled] a.btn{pointer-events:none}.btn-default{color:#333;background-color:#fff;border-color:#ccc}.btn-default:focus,.btn-default.focus{color:#333;background-color:#e6e6e6;border-color:#8c8c8c}.btn-default:hover{color:#333;background-color:#e6e6e6;border-color:#adadad}.btn-default:active,.btn-default.active,.open>.dropdown-toggle.btn-default{color:#333;background-color:#e6e6e6;background-image:none;border-color:#adadad}.btn-default:active:hover,.btn-default.active:hover,.open>.dropdown-toggle.btn-default:hover,.btn-default:active:focus,.btn-default.active:focus,.open>.dropdown-toggle.btn-default:focus,.btn-default:active.focus,.btn-default.active.focus,.open>.dropdown-toggle.btn-default.focus{color:#333;background-color:#d4d4d4;border-color:#8c8c8c}.btn-default.disabled:hover,.btn-default[disabled]:hover,fieldset[disabled] .btn-default:hover,.btn-default.disabled:focus,.btn-default[disabled]:focus,fieldset[disabled] .btn-default:focus,.btn-default.disabled.focus,.btn-default[disabled].focus,fieldset[disabled] .btn-default.focus{background-color:#fff;border-color:#ccc}.btn-default .badge{color:#fff;background-color:#333}.btn-primary{color:#fff;background-color:#337ab7;border-color:#2e6da4}.btn-primary:focus,.btn-primary.focus{color:#fff;background-color:#286090;border-color:#122b40}.btn-primary:hover{color:#fff;background-color:#286090;border-color:#204d74}.btn-primary:active,.btn-primary.active,.open>.dropdown-toggle.btn-primary{color:#fff;background-color:#286090;background-image:none;border-color:#204d74}.btn-primary:active:hover,.btn-primary.active:hover,.open>.dropdown-toggle.btn-primary:hover,.btn-primary:active:focus,.btn-primary.active:focus,.open>.dropdown-toggle.btn-primary:focus,.btn-primary:active.focus,.btn-primary.active.focus,.open>.dropdown-toggle.btn-primary.focus{color:#fff;background-color:#204d74;border-color:#122b40}.btn-primary.disabled:hover,.btn-primary[disabled]:hover,fieldset[disabled] .btn-primary:hover,.btn-primary.disabled:focus,.btn-primary[disabled]:focus,fieldset[disabled] .btn-primary:focus,.btn-primary.disabled.focus,.btn-primary[disabled].focus,fieldset[disabled] .btn-primary.focus{background-color:#337ab7;border-color:#2e6da4}.btn-primary .badge{color:#337ab7;background-color:#fff}.btn-success{color:#fff;background-color:#5cb85c;border-color:#4cae4c}.btn-success:focus,.btn-success.focus{color:#fff;background-color:#449d44;border-color:#255625}.btn-success:hover{color:#fff;background-color:#449d44;border-color:#398439}.btn-success:active,.btn-success.active,.open>.dropdown-toggle.btn-success{color:#fff;background-color:#449d44;background-image:none;border-color:#398439}.btn-success:active:hover,.btn-success.active:hover,.open>.dropdown-toggle.btn-success:hover,.btn-success:active:focus,.btn-success.active:focus,.open>.dropdown-toggle.btn-success:focus,.btn-success:active.focus,.btn-success.active.focus,.open>.dropdown-toggle.btn-success.focus{color:#fff;background-color:#398439;border-color:#255625}.btn-success.disabled:hover,.btn-success[disabled]:hover,fieldset[disabled] .btn-success:hover,.btn-success.disabled:focus,.btn-success[disabled]:focus,fieldset[disabled] .btn-success:focus,.btn-success.disabled.focus,.btn-success[disabled].focus,fieldset[disabled] .btn-success.focus{background-color:#5cb85c;border-color:#4cae4c}.btn-success .badge{color:#5cb85c;background-color:#fff}.btn-info{color:#fff;background-color:#5bc0de;border-color:#46b8da}.btn-info:focus,.btn-info.focus{color:#fff;background-color:#31b0d5;border-color:#1b6d85}.btn-info:hover{color:#fff;background-color:#31b0d5;border-color:#269abc}.btn-info:active,.btn-info.active,.open>.dropdown-toggle.btn-info{color:#fff;background-color:#31b0d5;background-image:none;border-color:#269abc}.btn-info:active:hover,.btn-info.active:hover,.open>.dropdown-toggle.btn-info:hover,.btn-info:active:focus,.btn-info.active:focus,.open>.dropdown-toggle.btn-info:focus,.btn-info:active.focus,.btn-info.active.focus,.open>.dropdown-toggle.btn-info.focus{color:#fff;background-color:#269abc;border-color:#1b6d85}.btn-info.disabled:hover,.btn-info[disabled]:hover,fieldset[disabled] .btn-info:hover,.btn-info.disabled:focus,.btn-info[disabled]:focus,fieldset[disabled] .btn-info:focus,.btn-info.disabled.focus,.btn-info[disabled].focus,fieldset[disabled] .btn-info.focus{background-color:#5bc0de;border-color:#46b8da}.btn-info .badge{color:#5bc0de;background-color:#fff}.btn-warning{color:#fff;background-color:#f0ad4e;border-color:#eea236}.btn-warning:focus,.btn-warning.focus{color:#fff;background-color:#ec971f;border-color:#985f0d}.btn-warning:hover{color:#fff;background-color:#ec971f;border-color:#d58512}.btn-warning:active,.btn-warning.active,.open>.dropdown-toggle.btn-warning{color:#fff;background-color:#ec971f;background-image:none;border-color:#d58512}.btn-warning:active:hover,.btn-warning.active:hover,.open>.dropdown-toggle.btn-warning:hover,.btn-warning:active:focus,.btn-warning.active:focus,.open>.dropdown-toggle.btn-warning:focus,.btn-warning:active.focus,.btn-warning.active.focus,.open>.dropdown-toggle.btn-warning.focus{color:#fff;background-color:#d58512;border-color:#985f0d}.btn-warning.disabled:hover,.btn-warning[disabled]:hover,fieldset[disabled] .btn-warning:hover,.btn-warning.disabled:focus,.btn-warning[disabled]:focus,fieldset[disabled] .btn-warning:focus,.btn-warning.disabled.focus,.btn-warning[disabled].focus,fieldset[disabled] .btn-warning.focus{background-color:#f0ad4e;border-color:#eea236}.btn-warning .badge{color:#f0ad4e;background-color:#fff}.btn-danger{color:#fff;background-color:#d9534f;border-color:#d43f3a}.btn-danger:focus,.btn-danger.focus{color:#fff;background-color:#c9302c;border-color:#761c19}.btn-danger:hover{color:#fff;background-color:#c9302c;border-color:#ac2925}.btn-danger:active,.btn-danger.active,.open>.dropdown-toggle.btn-danger{color:#fff;background-color:#c9302c;background-image:none;border-color:#ac2925}.btn-danger:active:hover,.btn-danger.active:hover,.open>.dropdown-toggle.btn-danger:hover,.btn-danger:active:focus,.btn-danger.active:focus,.open>.dropdown-toggle.btn-danger:focus,.btn-danger:active.focus,.btn-danger.active.focus,.open>.dropdown-toggle.btn-danger.focus{color:#fff;background-color:#ac2925;border-color:#761c19}.btn-danger.disabled:hover,.btn-danger[disabled]:hover,fieldset[disabled] .btn-danger:hover,.btn-danger.disabled:focus,.btn-danger[disabled]:focus,fieldset[disabled] .btn-danger:focus,.btn-danger.disabled.focus,.btn-danger[disabled].focus,fieldset[disabled] .btn-danger.focus{background-color:#d9534f;border-color:#d43f3a}.btn-danger .badge{color:#d9534f;background-color:#fff}.btn-link{font-weight:400;color:#337ab7;border-radius:0}.btn-link,.btn-link:active,.btn-link.active,.btn-link[disabled],fieldset[disabled] .btn-link{background-color:transparent;-webkit-box-shadow:none;box-shadow:none}.btn-link,.btn-link:hover,.btn-link:focus,.btn-link:active{border-color:transparent}.btn-link:hover,.btn-link:focus{color:#23527c;text-decoration:underline;background-color:transparent}.btn-link[disabled]:hover,fieldset[disabled] .btn-link:hover,.btn-link[disabled]:focus,fieldset[disabled] .btn-link:focus{color:#777;text-decoration:none}.btn-lg,.btn-group-lg>.btn{padding:10px 16px;font-size:18px;line-height:1.3333333;border-radius:6px}.btn-sm,.btn-group-sm>.btn{padding:5px 10px;font-size:12px;line-height:1.5;border-radius:3px}.btn-xs,.btn-group-xs>.btn{padding:1px 5px;font-size:12px;line-height:1.5;border-radius:3px}.btn-block{display:block;width:100%}.btn-block+.btn-block{margin-top:5px}input[type="submit"].btn-block,input[type="reset"].btn-block,input[type="button"].btn-block{width:100%}.fade{opacity:0;-webkit-transition:opacity .15s linear;-o-transition:opacity .15s linear;transition:opacity .15s linear}.fade.in{opacity:1}.collapse{display:none}.collapse.in{display:block}tr.collapse.in{display:table-row}tbody.collapse.in{display:table-row-group}.collapsing{position:relative;height:0;overflow:hidden;-webkit-transition-property:height,visibility;transition-property:height,visibility;-webkit-transition-duration:.35s;transition-duration:.35s;-webkit-transition-timing-function:ease;transition-timing-function:ease}.caret{display:inline-block;width:0;height:0;margin-left:2px;vertical-align:middle;border-top:4px dashed;border-top:4px solid \9;border-right:4px solid transparent;border-left:4px solid transparent}.dropup,.dropdown{position:relative}.dropdown-toggle:focus{outline:0}.dropdown-menu{position:absolute;top:100%;left:0;z-index:1000;display:none;float:left;min-width:160px;padding:5px 0;margin:2px 0 0;font-size:14px;text-align:left;list-style:none;background-color:#fff;background-clip:padding-box;border:1px solid #ccc;border:1px solid rgba(0,0,0,0.15);border-radius:4px;-webkit-box-shadow:0 6px 12px rgba(0,0,0,0.175);box-shadow:0 6px 12px rgba(0,0,0,0.175)}.dropdown-menu.pull-right{right:0;left:auto}.dropdown-menu .divider{height:1px;margin:9px 0;overflow:hidden;background-color:#e5e5e5}.dropdown-menu>li>a{display:block;padding:3px 20px;clear:both;font-weight:400;line-height:1.42857143;color:#333;white-space:nowrap}.dropdown-menu>li>a:hover,.dropdown-menu>li>a:focus{color:#262626;text-decoration:none;background-color:#f5f5f5}.dropdown-menu>.active>a,.dropdown-menu>.active>a:hover,.dropdown-menu>.active>a:focus{color:#fff;text-decoration:none;background-color:#337ab7;outline:0}.dropdown-menu>.disabled>a,.dropdown-menu>.disabled>a:hover,.dropdown-menu>.disabled>a:focus{color:#777}.dropdown-menu>.disabled>a:hover,.dropdown-menu>.disabled>a:focus{text-decoration:none;cursor:not-allowed;background-color:transparent;background-image:none;filter:progid:DXImageTransform.Microsoft.gradient(enabled = false)}.open>.dropdown-menu{display:block}.open>a{outline:0}.dropdown-menu-right{right:0;left:auto}.dropdown-menu-left{right:auto;left:0}.dropdown-header{display:block;padding:3px 20px;font-size:12px;line-height:1.42857143;color:#777;white-space:nowrap}.dropdown-backdrop{position:fixed;top:0;right:0;bottom:0;left:0;z-index:990}.pull-right>.dropdown-menu{right:0;left:auto}.dropup .caret,.navbar-fixed-bottom .dropdown .caret{content:"";border-top:0;border-bottom:4px dashed;border-bottom:4px solid \9}.dropup .dropdown-menu,.navbar-fixed-bottom .dropdown .dropdown-menu{top:auto;bottom:100%;margin-bottom:2px}@media(min-width:768px){.navbar-right .dropdown-menu{right:0;left:auto}.navbar-right .dropdown-menu-left{right:auto;left:0}}.btn-group,.btn-group-vertical{position:relative;display:inline-block;vertical-align:middle}.btn-group>.btn,.btn-group-vertical>.btn{position:relative;float:left}.btn-group>.btn:hover,.btn-group-vertical>.btn:hover,.btn-group>.btn:focus,.btn-group-vertical>.btn:focus,.btn-group>.btn:active,.btn-group-vertical>.btn:active,.btn-group>.btn.active,.btn-group-vertical>.btn.active{z-index:2}.btn-group .btn+.btn,.btn-group .btn+.btn-group,.btn-group .btn-group+.btn,.btn-group .btn-group+.btn-group{margin-left:-1px}.btn-toolbar{margin-left:-5px}.btn-toolbar .btn,.btn-toolbar .btn-group,.btn-toolbar .input-group{float:left}.btn-toolbar>.btn,.btn-toolbar>.btn-group,.btn-toolbar>.input-group{margin-left:5px}.btn-group>.btn:not(:first-child):not(:last-child):not(.dropdown-toggle){border-radius:0}.btn-group>.btn:first-child{margin-left:0}.btn-group>.btn:first-child:not(:last-child):not(.dropdown-toggle){border-top-right-radius:0;border-bottom-right-radius:0}.btn-group>.btn:last-child:not(:first-child),.btn-group>.dropdown-toggle:not(:first-child){border-top-left-radius:0;border-bottom-left-radius:0}.btn-group>.btn-group{float:left}.btn-group>.btn-group:not(:first-child):not(:last-child)>.btn{border-radius:0}.btn-group>.btn-group:first-child:not(:last-child)>.btn:last-child,.btn-group>.btn-group:first-child:not(:last-child)>.dropdown-toggle{border-top-right-radius:0;border-bottom-right-radius:0}.btn-group>.btn-group:last-child:not(:first-child)>.btn:first-child{border-top-left-radius:0;border-bottom-left-radius:0}.btn-group .dropdown-toggle:active,.btn-group.open .dropdown-toggle{outline:0}.btn-group>.btn+.dropdown-toggle{padding-right:8px;padding-left:8px}.btn-group>.btn-lg+.dropdown-toggle{padding-right:12px;padding-left:12px}.btn-group.open .dropdown-toggle{-webkit-box-shadow:inset 0 3px 5px rgba(0,0,0,0.125);box-shadow:inset 0 3px 5px rgba(0,0,0,0.125)}.btn-group.open .dropdown-toggle.btn-link{-webkit-box-shadow:none;box-shadow:none}.btn .caret{margin-left:0}.btn-lg .caret{border-width:5px 5px 0;border-bottom-width:0}.dropup .btn-lg .caret{border-width:0 5px 5px}.btn-group-vertical>.btn,.btn-group-vertical>.btn-group,.btn-group-vertical>.btn-group>.btn{display:block;float:none;width:100%;max-width:100%}.btn-group-vertical>.btn-group>.btn{float:none}.btn-group-vertical>.btn+.btn,.btn-group-vertical>.btn+.btn-group,.btn-group-vertical>.btn-group+.btn,.btn-group-vertical>.btn-group+.btn-group{margin-top:-1px;margin-left:0}.btn-group-vertical>.btn:not(:first-child):not(:last-child){border-radius:0}.btn-group-vertical>.btn:first-child:not(:last-child){border-top-left-radius:4px;border-top-right-radius:4px;border-bottom-right-radius:0;border-bottom-left-radius:0}.btn-group-vertical>.btn:last-child:not(:first-child){border-top-left-radius:0;border-top-right-radius:0;border-bottom-right-radius:4px;border-bottom-left-radius:4px}.btn-group-vertical>.btn-group:not(:first-child):not(:last-child)>.btn{border-radius:0}.btn-group-vertical>.btn-group:first-child:not(:last-child)>.btn:last-child,.btn-group-vertical>.btn-group:first-child:not(:last-child)>.dropdown-toggle{border-bottom-right-radius:0;border-bottom-left-radius:0}.btn-group-vertical>.btn-group:last-child:not(:first-child)>.btn:first-child{border-top-left-radius:0;border-top-right-radius:0}.btn-group-justified{display:table;width:100%;table-layout:fixed;border-collapse:separate}.btn-group-justified>.btn,.btn-group-justified>.btn-group{display:table-cell;float:none;width:1%}.btn-group-justified>.btn-group .btn{width:100%}.btn-group-justified>.btn-group .dropdown-menu{left:auto}[data-toggle="buttons"]>.btn input[type="radio"],[data-toggle="buttons"]>.btn-group>.btn input[type="radio"],[data-toggle="buttons"]>.btn input[type="checkbox"],[data-toggle="buttons"]>.btn-group>.btn input[type="checkbox"]{position:absolute;clip:rect(0,0,0,0);pointer-events:none}.input-group{position:relative;display:table;border-collapse:separate}.input-group[class*="col-"]{float:none;padding-right:0;padding-left:0}.input-group .form-control{position:relative;z-index:2;float:left;width:100%;margin-bottom:0}.input-group .form-control:focus{z-index:3}.input-group-lg>.form-control,.input-group-lg>.input-group-addon,.input-group-lg>.input-group-btn>.btn{height:46px;padding:10px 16px;font-size:18px;line-height:1.3333333;border-radius:6px}select.input-group-lg>.form-control,select.input-group-lg>.input-group-addon,select.input-group-lg>.input-group-btn>.btn{height:46px;line-height:46px}textarea.input-group-lg>.form-control,textarea.input-group-lg>.input-group-addon,textarea.input-group-lg>.input-group-btn>.btn,select[multiple].input-group-lg>.form-control,select[multiple].input-group-lg>.input-group-addon,select[multiple].input-group-lg>.input-group-btn>.btn{height:auto}.input-group-sm>.form-control,.input-group-sm>.input-group-addon,.input-group-sm>.input-group-btn>.btn{height:30px;padding:5px 10px;font-size:12px;line-height:1.5;border-radius:3px}select.input-group-sm>.form-control,select.input-group-sm>.input-group-addon,select.input-group-sm>.input-group-btn>.btn{height:30px;line-height:30px}textarea.input-group-sm>.form-control,textarea.input-group-sm>.input-group-addon,textarea.input-group-sm>.input-group-btn>.btn,select[multiple].input-group-sm>.form-control,select[multiple].input-group-sm>.input-group-addon,select[multiple].input-group-sm>.input-group-btn>.btn{height:auto}.input-group-addon,.input-group-btn,.input-group .form-control{display:table-cell}.input-group-addon:not(:first-child):not(:last-child),.input-group-btn:not(:first-child):not(:last-child),.input-group .form-control:not(:first-child):not(:last-child){border-radius:0}.input-group-addon,.input-group-btn{width:1%;white-space:nowrap;vertical-align:middle}.input-group-addon{padding:6px 12px;font-size:14px;font-weight:400;line-height:1;color:#555;text-align:center;background-color:#eee;border:1px solid #ccc;border-radius:4px}.input-group-addon.input-sm{padding:5px 10px;font-size:12px;border-radius:3px}.input-group-addon.input-lg{padding:10px 16px;font-size:18px;border-radius:6px}.input-group-addon input[type="radio"],.input-group-addon input[type="checkbox"]{margin-top:0}.input-group .form-control:first-child,.input-group-addon:first-child,.input-group-btn:first-child>.btn,.input-group-btn:first-child>.btn-group>.btn,.input-group-btn:first-child>.dropdown-toggle,.input-group-btn:last-child>.btn:not(:last-child):not(.dropdown-toggle),.input-group-btn:last-child>.btn-group:not(:last-child)>.btn{border-top-right-radius:0;border-bottom-right-radius:0}.input-group-addon:first-child{border-right:0}.input-group .form-control:last-child,.input-group-addon:last-child,.input-group-btn:last-child>.btn,.input-group-btn:last-child>.btn-group>.btn,.input-group-btn:last-child>.dropdown-toggle,.input-group-btn:first-child>.btn:not(:first-child),.input-group-btn:first-child>.btn-group:not(:first-child)>.btn{border-top-left-radius:0;border-bottom-left-radius:0}.input-group-addon:last-child{border-left:0}.input-group-btn{position:relative;font-size:0;white-space:nowrap}.input-group-btn>.btn{position:relative}.input-group-btn>.btn+.btn{margin-left:-1px}.input-group-btn>.btn:hover,.input-group-btn>.btn:focus,.input-group-btn>.btn:active{z-index:2}.input-group-btn:first-child>.btn,.input-group-btn:first-child>.btn-group{margin-right:-1px}.input-group-btn:last-child>.btn,.input-group-btn:last-child>.btn-group{z-index:2;margin-left:-1px}.nav{padding-left:0;margin-bottom:0;list-style:none}.nav>li{position:relative;display:block}.nav>li>a{position:relative;display:block;padding:10px 15px}.nav>li>a:hover,.nav>li>a:focus{text-decoration:none;background-color:#eee}.nav>li.disabled>a{color:#777}.nav>li.disabled>a:hover,.nav>li.disabled>a:focus{color:#777;text-decoration:none;cursor:not-allowed;background-color:transparent}.nav .open>a,.nav .open>a:hover,.nav .open>a:focus{background-color:#eee;border-color:#337ab7}.nav .nav-divider{height:1px;margin:9px 0;overflow:hidden;background-color:#e5e5e5}.nav>li>a>img{max-width:none}.nav-tabs{border-bottom:1px solid #ddd}.nav-tabs>li{float:left;margin-bottom:-1px}.nav-tabs>li>a{margin-right:2px;line-height:1.42857143;border:1px solid transparent;border-radius:4px 4px 0 0}.nav-tabs>li>a:hover{border-color:#eee #eee #ddd}.nav-tabs>li.active>a,.nav-tabs>li.active>a:hover,.nav-tabs>li.active>a:focus{color:#555;cursor:default;background-color:#fff;border:1px solid #ddd;border-bottom-color:transparent}.nav-tabs.nav-justified{width:100%;border-bottom:0}.nav-tabs.nav-justified>li{float:none}.nav-tabs.nav-justified>li>a{margin-bottom:5px;text-align:center}.nav-tabs.nav-justified>.dropdown .dropdown-menu{top:auto;left:auto}@media(min-width:768px){.nav-tabs.nav-justified>li{display:table-cell;width:1%}.nav-tabs.nav-justified>li>a{margin-bottom:0}}.nav-tabs.nav-justified>li>a{margin-right:0;border-radius:4px}.nav-tabs.nav-justified>.active>a,.nav-tabs.nav-justified>.active>a:hover,.nav-tabs.nav-justified>.active>a:focus{border:1px solid #ddd}@media(min-width:768px){.nav-tabs.nav-justified>li>a{border-bottom:1px solid #ddd;border-radius:4px 4px 0 0}.nav-tabs.nav-justified>.active>a,.nav-tabs.nav-justified>.active>a:hover,.nav-tabs.nav-justified>.active>a:focus{border-bottom-color:#fff}}.nav-pills>li{float:left}.nav-pills>li>a{border-radius:4px}.nav-pills>li+li{margin-left:2px}.nav-pills>li.active>a,.nav-pills>li.active>a:hover,.nav-pills>li.active>a:focus{color:#fff;background-color:#337ab7}.nav-stacked>li{float:none}.nav-stacked>li+li{margin-top:2px;margin-left:0}.nav-justified{width:100%}.nav-justified>li{float:none}.nav-justified>li>a{margin-bottom:5px;text-align:center}.nav-justified>.dropdown .dropdown-menu{top:auto;left:auto}@media(min-width:768px){.nav-justified>li{display:table-cell;width:1%}.nav-justified>li>a{margin-bottom:0}}.nav-tabs-justified{border-bottom:0}.nav-tabs-justified>li>a{margin-right:0;border-radius:4px}.nav-tabs-justified>.active>a,.nav-tabs-justified>.active>a:hover,.nav-tabs-justified>.active>a:focus{border:1px solid #ddd}@media(min-width:768px){.nav-tabs-justified>li>a{border-bottom:1px solid #ddd;border-radius:4px 4px 0 0}.nav-tabs-justified>.active>a,.nav-tabs-justified>.active>a:hover,.nav-tabs-justified>.active>a:focus{border-bottom-color:#fff}}.tab-content>.tab-pane{display:none}.tab-content>.active{display:block}.nav-tabs .dropdown-menu{margin-top:-1px;border-top-left-radius:0;border-top-right-radius:0}.navbar{position:relative;min-height:50px;margin-bottom:20px;border:1px solid transparent}@media(min-width:768px){.navbar{border-radius:4px}}@media(min-width:768px){.navbar-header{float:left}}.navbar-collapse{padding-right:15px;padding-left:15px;overflow-x:visible;border-top:1px solid transparent;box-shadow:inset 0 1px 0 rgba(255,255,255,0.1);-webkit-overflow-scrolling:touch}.navbar-collapse.in{overflow-y:auto}@media(min-width:768px){.navbar-collapse{width:auto;border-top:0;box-shadow:none}.navbar-collapse.collapse{display:block!important;height:auto!important;padding-bottom:0;overflow:visible!important}.navbar-collapse.in{overflow-y:visible}.navbar-fixed-top .navbar-collapse,.navbar-static-top .navbar-collapse,.navbar-fixed-bottom .navbar-collapse{padding-right:0;padding-left:0}}.navbar-fixed-top,.navbar-fixed-bottom{position:fixed;right:0;left:0;z-index:1030}.navbar-fixed-top .navbar-collapse,.navbar-fixed-bottom .navbar-collapse{max-height:340px}@media(max-device-width:480px) and (orientation:landscape){.navbar-fixed-top .navbar-collapse,.navbar-fixed-bottom .navbar-collapse{max-height:200px}}@media(min-width:768px){.navbar-fixed-top,.navbar-fixed-bottom{border-radius:0}}.navbar-fixed-top{top:0;border-width:0 0 1px}.navbar-fixed-bottom{bottom:0;margin-bottom:0;border-width:1px 0 0}.container>.navbar-header,.container-fluid>.navbar-header,.container>.navbar-collapse,.container-fluid>.navbar-collapse{margin-right:-15px;margin-left:-15px}@media(min-width:768px){.container>.navbar-header,.container-fluid>.navbar-header,.container>.navbar-collapse,.container-fluid>.navbar-collapse{margin-right:0;margin-left:0}}.navbar-static-top{z-index:1000;border-width:0 0 1px}@media(min-width:768px){.navbar-static-top{border-radius:0}}.navbar-brand{float:left;height:50px;padding:15px 15px;font-size:18px;line-height:20px}.navbar-brand:hover,.navbar-brand:focus{text-decoration:none}.navbar-brand>img{display:block}@media(min-width:768px){.navbar>.container .navbar-brand,.navbar>.container-fluid .navbar-brand{margin-left:-15px}}.navbar-toggle{position:relative;float:right;padding:9px 10px;margin-right:15px;margin-top:8px;margin-bottom:8px;background-color:transparent;background-image:none;border:1px solid transparent;border-radius:4px}.navbar-toggle:focus{outline:0}.navbar-toggle .icon-bar{display:block;width:22px;height:2px;border-radius:1px}.navbar-toggle .icon-bar+.icon-bar{margin-top:4px}@media(min-width:768px){.navbar-toggle{display:none}}.navbar-nav{margin:7.5px -15px}.navbar-nav>li>a{padding-top:10px;padding-bottom:10px;line-height:20px}@media(max-width:767px){.navbar-nav .open .dropdown-menu{position:static;float:none;width:auto;margin-top:0;background-color:transparent;border:0;box-shadow:none}.navbar-nav .open .dropdown-menu>li>a,.navbar-nav .open .dropdown-menu .dropdown-header{padding:5px 15px 5px 25px}.navbar-nav .open .dropdown-menu>li>a{line-height:20px}.navbar-nav .open .dropdown-menu>li>a:hover,.navbar-nav .open .dropdown-menu>li>a:focus{background-image:none}}@media(min-width:768px){.navbar-nav{float:left;margin:0}.navbar-nav>li{float:left}.navbar-nav>li>a{padding-top:15px;padding-bottom:15px}}.navbar-form{padding:10px 15px;margin-right:-15px;margin-left:-15px;border-top:1px solid transparent;border-bottom:1px solid transparent;-webkit-box-shadow:inset 0 1px 0 rgba(255,255,255,0.1),0 1px 0 rgba(255,255,255,0.1);box-shadow:inset 0 1px 0 rgba(255,255,255,0.1),0 1px 0 rgba(255,255,255,0.1);margin-top:8px;margin-bottom:8px}@media(min-width:768px){.navbar-form .form-group{display:inline-block;margin-bottom:0;vertical-align:middle}.navbar-form .form-control{display:inline-block;width:auto;vertical-align:middle}.navbar-form .form-control-static{display:inline-block}.navbar-form .input-group{display:inline-table;vertical-align:middle}.navbar-form .input-group .input-group-addon,.navbar-form .input-group .input-group-btn,.navbar-form .input-group .form-control{width:auto}.navbar-form .input-group>.form-control{width:100%}.navbar-form .control-label{margin-bottom:0;vertical-align:middle}.navbar-form .radio,.navbar-form .checkbox{display:inline-block;margin-top:0;margin-bottom:0;vertical-align:middle}.navbar-form .radio label,.navbar-form .checkbox label{padding-left:0}.navbar-form .radio input[type="radio"],.navbar-form .checkbox input[type="checkbox"]{position:relative;margin-left:0}.navbar-form .has-feedback .form-control-feedback{top:0}}@media(max-width:767px){.navbar-form .form-group{margin-bottom:5px}.navbar-form .form-group:last-child{margin-bottom:0}}@media(min-width:768px){.navbar-form{width:auto;padding-top:0;padding-bottom:0;margin-right:0;margin-left:0;border:0;-webkit-box-shadow:none;box-shadow:none}}.navbar-nav>li>.dropdown-menu{margin-top:0;border-top-left-radius:0;border-top-right-radius:0}.navbar-fixed-bottom .navbar-nav>li>.dropdown-menu{margin-bottom:0;border-top-left-radius:4px;border-top-right-radius:4px;border-bottom-right-radius:0;border-bottom-left-radius:0}.navbar-btn{margin-top:8px;margin-bottom:8px}.navbar-btn.btn-sm{margin-top:10px;margin-bottom:10px}.navbar-btn.btn-xs{margin-top:14px;margin-bottom:14px}.navbar-text{margin-top:15px;margin-bottom:15px}@media(min-width:768px){.navbar-text{float:left;margin-right:15px;margin-left:15px}}@media(min-width:768px){.navbar-left{float:left!important}.navbar-right{float:right!important;margin-right:-15px}.navbar-right ~ .navbar-right{margin-right:0}}.navbar-default{background-color:#f8f8f8;border-color:#e7e7e7}.navbar-default .navbar-brand{color:#777}.navbar-default .navbar-brand:hover,.navbar-default .navbar-brand:focus{color:#5e5e5e;background-color:transparent}.navbar-default .navbar-text{color:#777}.navbar-default .navbar-nav>li>a{color:#777}.navbar-default .navbar-nav>li>a:hover,.navbar-default .navbar-nav>li>a:focus{color:#333;background-color:transparent}.navbar-default .navbar-nav>.active>a,.navbar-default .navbar-nav>.active>a:hover,.navbar-default .navbar-nav>.active>a:focus{color:#555;background-color:#e7e7e7}.navbar-default .navbar-nav>.disabled>a,.navbar-default .navbar-nav>.disabled>a:hover,.navbar-default .navbar-nav>.disabled>a:focus{color:#ccc;background-color:transparent}.navbar-default .navbar-nav>.open>a,.navbar-default .navbar-nav>.open>a:hover,.navbar-default .navbar-nav>.open>a:focus{color:#555;background-color:#e7e7e7}@media(max-width:767px){.navbar-default .navbar-nav .open .dropdown-menu>li>a{color:#777}.navbar-default .navbar-nav .open .dropdown-menu>li>a:hover,.navbar-default .navbar-nav .open .dropdown-menu>li>a:focus{color:#333;background-color:transparent}.navbar-default .navbar-nav .open .dropdown-menu>.active>a,.navbar-default .navbar-nav .open .dropdown-menu>.active>a:hover,.navbar-default .navbar-nav .open .dropdown-menu>.active>a:focus{color:#555;background-color:#e7e7e7}.navbar-default .navbar-nav .open .dropdown-menu>.disabled>a,.navbar-default .navbar-nav .open .dropdown-menu>.disabled>a:hover,.navbar-default .navbar-nav .open .dropdown-menu>.disabled>a:focus{color:#ccc;background-color:transparent}}.navbar-default .navbar-toggle{border-color:#ddd}.navbar-default .navbar-toggle:hover,.navbar-default .navbar-toggle:focus{background-color:#ddd}.navbar-default .navbar-toggle .icon-bar{background-color:#888}.navbar-default .navbar-collapse,.navbar-default .navbar-form{border-color:#e7e7e7}.navbar-default .navbar-link{color:#777}.navbar-default .navbar-link:hover{color:#333}.navbar-default .btn-link{color:#777}.navbar-default .btn-link:hover,.navbar-default .btn-link:focus{color:#333}.navbar-default .btn-link[disabled]:hover,fieldset[disabled] .navbar-default .btn-link:hover,.navbar-default .btn-link[disabled]:focus,fieldset[disabled] .navbar-default .btn-link:focus{color:#ccc}.navbar-inverse{background-color:#222;border-color:#080808}.navbar-inverse .navbar-brand{color:#9d9d9d}.navbar-inverse .navbar-brand:hover,.navbar-inverse .navbar-brand:focus{color:#fff;background-color:transparent}.navbar-inverse .navbar-text{color:#9d9d9d}.navbar-inverse .navbar-nav>li>a{color:#9d9d9d}.navbar-inverse .navbar-nav>li>a:hover,.navbar-inverse .navbar-nav>li>a:focus{color:#fff;background-color:transparent}.navbar-inverse .navbar-nav>.active>a,.navbar-inverse .navbar-nav>.active>a:hover,.navbar-inverse .navbar-nav>.active>a:focus{color:#fff;background-color:#080808}.navbar-inverse .navbar-nav>.disabled>a,.navbar-inverse .navbar-nav>.disabled>a:hover,.navbar-inverse .navbar-nav>.disabled>a:focus{color:#444;background-color:transparent}.navbar-inverse .navbar-nav>.open>a,.navbar-inverse .navbar-nav>.open>a:hover,.navbar-inverse .navbar-nav>.open>a:focus{color:#fff;background-color:#080808}@media(max-width:767px){.navbar-inverse .navbar-nav .open .dropdown-menu>.dropdown-header{border-color:#080808}.navbar-inverse .navbar-nav .open .dropdown-menu .divider{background-color:#080808}.navbar-inverse .navbar-nav .open .dropdown-menu>li>a{color:#9d9d9d}.navbar-inverse .navbar-nav .open .dropdown-menu>li>a:hover,.navbar-inverse .navbar-nav .open .dropdown-menu>li>a:focus{color:#fff;background-color:transparent}.navbar-inverse .navbar-nav .open .dropdown-menu>.active>a,.navbar-inverse .navbar-nav .open .dropdown-menu>.active>a:hover,.navbar-inverse .navbar-nav .open .dropdown-menu>.active>a:focus{color:#fff;background-color:#080808}.navbar-inverse .navbar-nav .open .dropdown-menu>.disabled>a,.navbar-inverse .navbar-nav .open .dropdown-menu>.disabled>a:hover,.navbar-inverse .navbar-nav .open .dropdown-menu>.disabled>a:focus{color:#444;background-color:transparent}}.navbar-inverse .navbar-toggle{border-color:#333}.navbar-inverse .navbar-toggle:hover,.navbar-inverse .navbar-toggle:focus{background-color:#333}.navbar-inverse .navbar-toggle .icon-bar{background-color:#fff}.navbar-inverse .navbar-collapse,.navbar-inverse .navbar-form{border-color:#101010}.navbar-inverse .navbar-link{color:#9d9d9d}.navbar-inverse .navbar-link:hover{color:#fff}.navbar-inverse .btn-link{color:#9d9d9d}.navbar-inverse .btn-link:hover,.navbar-inverse .btn-link:focus{color:#fff}.navbar-inverse .btn-link[disabled]:hover,fieldset[disabled] .navbar-inverse .btn-link:hover,.navbar-inverse .btn-link[disabled]:focus,fieldset[disabled] .navbar-inverse .btn-link:focus{color:#444}.breadcrumb{padding:8px 15px;margin-bottom:20px;list-style:none;background-color:#f5f5f5;border-radius:4px}.breadcrumb>li{display:inline-block}.breadcrumb>li+li:before{padding:0 5px;color:#ccc;content:"/\00a0"}.breadcrumb>.active{color:#777}.pagination{display:inline-block;padding-left:0;margin:20px 0;border-radius:4px}.pagination>li{display:inline}.pagination>li>a,.pagination>li>span{position:relative;float:left;padding:6px 12px;margin-left:-1px;line-height:1.42857143;color:#337ab7;text-decoration:none;background-color:#fff;border:1px solid #ddd}.pagination>li>a:hover,.pagination>li>span:hover,.pagination>li>a:focus,.pagination>li>span:focus{z-index:2;color:#23527c;background-color:#eee;border-color:#ddd}.pagination>li:first-child>a,.pagination>li:first-child>span{margin-left:0;border-top-left-radius:4px;border-bottom-left-radius:4px}.pagination>li:last-child>a,.pagination>li:last-child>span{border-top-right-radius:4px;border-bottom-right-radius:4px}.pagination>.active>a,.pagination>.active>span,.pagination>.active>a:hover,.pagination>.active>span:hover,.pagination>.active>a:focus,.pagination>.active>span:focus{z-index:3;color:#fff;cursor:default;background-color:#337ab7;border-color:#337ab7}.pagination>.disabled>span,.pagination>.disabled>span:hover,.pagination>.disabled>span:focus,.pagination>.disabled>a,.pagination>.disabled>a:hover,.pagination>.disabled>a:focus{color:#777;cursor:not-allowed;background-color:#fff;border-color:#ddd}.pagination-lg>li>a,.pagination-lg>li>span{padding:10px 16px;font-size:18px;line-height:1.3333333}.pagination-lg>li:first-child>a,.pagination-lg>li:first-child>span{border-top-left-radius:6px;border-bottom-left-radius:6px}.pagination-lg>li:last-child>a,.pagination-lg>li:last-child>span{border-top-right-radius:6px;border-bottom-right-radius:6px}.pagination-sm>li>a,.pagination-sm>li>span{padding:5px 10px;font-size:12px;line-height:1.5}.pagination-sm>li:first-child>a,.pagination-sm>li:first-child>span{border-top-left-radius:3px;border-bottom-left-radius:3px}.pagination-sm>li:last-child>a,.pagination-sm>li:last-child>span{border-top-right-radius:3px;border-bottom-right-radius:3px}.pager{padding-left:0;margin:20px 0;text-align:center;list-style:none}.pager li{display:inline}.pager li>a,.pager li>span{display:inline-block;padding:5px 14px;background-color:#fff;border:1px solid #ddd;border-radius:15px}.pager li>a:hover,.pager li>a:focus{text-decoration:none;background-color:#eee}.pager .next>a,.pager .next>span{float:right}.pager .previous>a,.pager .previous>span{float:left}.pager .disabled>a,.pager .disabled>a:hover,.pager .disabled>a:focus,.pager .disabled>span{color:#777;cursor:not-allowed;background-color:#fff}.label{display:inline;padding:.2em .6em .3em;font-size:75%;font-weight:700;line-height:1;color:#fff;text-align:center;white-space:nowrap;vertical-align:baseline;border-radius:.25em}a.label:hover,a.label:focus{color:#fff;text-decoration:none;cursor:pointer}.label:empty{display:none}.btn .label{position:relative;top:-1px}.label-default{background-color:#777}.label-default[href]:hover,.label-default[href]:focus{background-color:#5e5e5e}.label-primary{background-color:#337ab7}.label-primary[href]:hover,.label-primary[href]:focus{background-color:#286090}.label-success{background-color:#5cb85c}.label-success[href]:hover,.label-success[href]:focus{background-color:#449d44}.label-info{background-color:#5bc0de}.label-info[href]:hover,.label-info[href]:focus{background-color:#31b0d5}.label-warning{background-color:#f0ad4e}.label-warning[href]:hover,.label-warning[href]:focus{background-color:#ec971f}.label-danger{background-color:#d9534f}.label-danger[href]:hover,.label-danger[href]:focus{background-color:#c9302c}.badge{display:inline-block;min-width:10px;padding:3px 7px;font-size:12px;font-weight:bold;line-height:1;color:#fff;text-align:center;white-space:nowrap;vertical-align:middle;background-color:#777;border-radius:10px}.badge:empty{display:none}.btn .badge{position:relative;top:-1px}.btn-xs .badge,.btn-group-xs>.btn .badge{top:0;padding:1px 5px}a.badge:hover,a.badge:focus{color:#fff;text-decoration:none;cursor:pointer}.list-group-item.active>.badge,.nav-pills>.active>a>.badge{color:#337ab7;background-color:#fff}.list-group-item>.badge{float:right}.list-group-item>.badge+.badge{margin-right:5px}.nav-pills>li>a>.badge{margin-left:3px}.jumbotron{padding-top:30px;padding-bottom:30px;margin-bottom:30px;color:inherit;background-color:#eee}.jumbotron h1,.jumbotron .h1{color:inherit}.jumbotron p{margin-bottom:15px;font-size:21px;font-weight:200}.jumbotron>hr{border-top-color:#d5d5d5}.container .jumbotron,.container-fluid .jumbotron{padding-right:15px;padding-left:15px;border-radius:6px}.jumbotron .container{max-width:100%}@media screen and (min-width:768px){.jumbotron{padding-top:48px;padding-bottom:48px}.container .jumbotron,.container-fluid .jumbotron{padding-right:60px;padding-left:60px}.jumbotron h1,.jumbotron .h1{font-size:63px}}.thumbnail{display:block;padding:4px;margin-bottom:20px;line-height:1.42857143;background-color:#fff;border:1px solid #ddd;border-radius:4px;-webkit-transition:border .2s ease-in-out;-o-transition:border .2s ease-in-out;transition:border .2s ease-in-out}.thumbnail>img,.thumbnail a>img{margin-right:auto;margin-left:auto}a.thumbnail:hover,a.thumbnail:focus,a.thumbnail.active{border-color:#337ab7}.thumbnail .caption{padding:9px;color:#333}.alert{padding:15px;margin-bottom:20px;border:1px solid transparent;border-radius:4px}.alert h4{margin-top:0;color:inherit}.alert .alert-link{font-weight:bold}.alert>p,.alert>ul{margin-bottom:0}.alert>p+p{margin-top:5px}.alert-dismissable,.alert-dismissible{padding-right:35px}.alert-dismissable .close,.alert-dismissible .close{position:relative;top:-2px;right:-21px;color:inherit}.alert-success{color:#3c763d;background-color:#dff0d8;border-color:#d6e9c6}.alert-success hr{border-top-color:#c9e2b3}.alert-success .alert-link{color:#2b542c}.alert-info{color:#31708f;background-color:#d9edf7;border-color:#bce8f1}.alert-info hr{border-top-color:#a6e1ec}.alert-info .alert-link{color:#245269}.alert-warning{color:#8a6d3b;background-color:#fcf8e3;border-color:#faebcc}.alert-warning hr{border-top-color:#f7e1b5}.alert-warning .alert-link{color:#66512c}.alert-danger{color:#a94442;background-color:#f2dede;border-color:#ebccd1}.alert-danger hr{border-top-color:#e4b9c0}.alert-danger .alert-link{color:#843534}@-webkit-keyframes progress-bar-stripes{from{background-position:40px 0}to{background-position:0 0}}@keyframes progress-bar-stripes{from{background-position:40px 0}to{background-position:0 0}}.progress{height:20px;margin-bottom:20px;overflow:hidden;background-color:#f5f5f5;border-radius:4px;-webkit-box-shadow:inset 0 1px 2px rgba(0,0,0,0.1);box-shadow:inset 0 1px 2px rgba(0,0,0,0.1)}.progress-bar{float:left;width:0;height:100%;font-size:12px;line-height:20px;color:#fff;text-align:center;background-color:#337ab7;-webkit-box-shadow:inset 0 -1px 0 rgba(0,0,0,0.15);box-shadow:inset 0 -1px 0 rgba(0,0,0,0.15);-webkit-transition:width .6s ease;-o-transition:width .6s ease;transition:width .6s ease}.progress-striped .progress-bar,.progress-bar-striped{background-image:-webkit-linear-gradient(45deg,rgba(255,255,255,0.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,0.15) 50%,rgba(255,255,255,0.15) 75%,transparent 75%,transparent);background-image:-o-linear-gradient(45deg,rgba(255,255,255,0.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,0.15) 50%,rgba(255,255,255,0.15) 75%,transparent 75%,transparent);background-image:linear-gradient(45deg,rgba(255,255,255,0.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,0.15) 50%,rgba(255,255,255,0.15) 75%,transparent 75%,transparent);background-size:40px 40px}.progress.active .progress-bar,.progress-bar.active{-webkit-animation:progress-bar-stripes 2s linear infinite;-o-animation:progress-bar-stripes 2s linear infinite;animation:progress-bar-stripes 2s linear infinite}.progress-bar-success{background-color:#5cb85c}.progress-striped .progress-bar-success{background-image:-webkit-linear-gradient(45deg,rgba(255,255,255,0.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,0.15) 50%,rgba(255,255,255,0.15) 75%,transparent 75%,transparent);background-image:-o-linear-gradient(45deg,rgba(255,255,255,0.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,0.15) 50%,rgba(255,255,255,0.15) 75%,transparent 75%,transparent);background-image:linear-gradient(45deg,rgba(255,255,255,0.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,0.15) 50%,rgba(255,255,255,0.15) 75%,transparent 75%,transparent)}.progress-bar-info{background-color:#5bc0de}.progress-striped .progress-bar-info{background-image:-webkit-linear-gradient(45deg,rgba(255,255,255,0.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,0.15) 50%,rgba(255,255,255,0.15) 75%,transparent 75%,transparent);background-image:-o-linear-gradient(45deg,rgba(255,255,255,0.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,0.15) 50%,rgba(255,255,255,0.15) 75%,transparent 75%,transparent);background-image:linear-gradient(45deg,rgba(255,255,255,0.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,0.15) 50%,rgba(255,255,255,0.15) 75%,transparent 75%,transparent)}.progress-bar-warning{background-color:#f0ad4e}.progress-striped .progress-bar-warning{background-image:-webkit-linear-gradient(45deg,rgba(255,255,255,0.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,0.15) 50%,rgba(255,255,255,0.15) 75%,transparent 75%,transparent);background-image:-o-linear-gradient(45deg,rgba(255,255,255,0.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,0.15) 50%,rgba(255,255,255,0.15) 75%,transparent 75%,transparent);background-image:linear-gradient(45deg,rgba(255,255,255,0.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,0.15) 50%,rgba(255,255,255,0.15) 75%,transparent 75%,transparent)}.progress-bar-danger{background-color:#d9534f}.progress-striped .progress-bar-danger{background-image:-webkit-linear-gradient(45deg,rgba(255,255,255,0.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,0.15) 50%,rgba(255,255,255,0.15) 75%,transparent 75%,transparent);background-image:-o-linear-gradient(45deg,rgba(255,255,255,0.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,0.15) 50%,rgba(255,255,255,0.15) 75%,transparent 75%,transparent);background-image:linear-gradient(45deg,rgba(255,255,255,0.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,0.15) 50%,rgba(255,255,255,0.15) 75%,transparent 75%,transparent)}.media{margin-top:15px}.media:first-child{margin-top:0}.media,.media-body{overflow:hidden;zoom:1}.media-body{width:10000px}.media-object{display:block}.media-object.img-thumbnail{max-width:none}.media-right,.media>.pull-right{padding-left:10px}.media-left,.media>.pull-left{padding-right:10px}.media-left,.media-right,.media-body{display:table-cell;vertical-align:top}.media-middle{vertical-align:middle}.media-bottom{vertical-align:bottom}.media-heading{margin-top:0;margin-bottom:5px}.media-list{padding-left:0;list-style:none}.list-group{padding-left:0;margin-bottom:20px}.list-group-item{position:relative;display:block;padding:10px 15px;margin-bottom:-1px;background-color:#fff;border:1px solid #ddd}.list-group-item:first-child{border-top-left-radius:4px;border-top-right-radius:4px}.list-group-item:last-child{margin-bottom:0;border-bottom-right-radius:4px;border-bottom-left-radius:4px}.list-group-item.disabled,.list-group-item.disabled:hover,.list-group-item.disabled:focus{color:#777;cursor:not-allowed;background-color:#eee}.list-group-item.disabled .list-group-item-heading,.list-group-item.disabled:hover .list-group-item-heading,.list-group-item.disabled:focus .list-group-item-heading{color:inherit}.list-group-item.disabled .list-group-item-text,.list-group-item.disabled:hover .list-group-item-text,.list-group-item.disabled:focus .list-group-item-text{color:#777}.list-group-item.active,.list-group-item.active:hover,.list-group-item.active:focus{z-index:2;color:#fff;background-color:#337ab7;border-color:#337ab7}.list-group-item.active .list-group-item-heading,.list-group-item.active:hover .list-group-item-heading,.list-group-item.active:focus .list-group-item-heading,.list-group-item.active .list-group-item-heading>small,.list-group-item.active:hover .list-group-item-heading>small,.list-group-item.active:focus .list-group-item-heading>small,.list-group-item.active .list-group-item-heading>.small,.list-group-item.active:hover .list-group-item-heading>.small,.list-group-item.active:focus .list-group-item-heading>.small{color:inherit}.list-group-item.active .list-group-item-text,.list-group-item.active:hover .list-group-item-text,.list-group-item.active:focus .list-group-item-text{color:#c7ddef}a.list-group-item,button.list-group-item{color:#555}a.list-group-item .list-group-item-heading,button.list-group-item .list-group-item-heading{color:#333}a.list-group-item:hover,button.list-group-item:hover,a.list-group-item:focus,button.list-group-item:focus{color:#555;text-decoration:none;background-color:#f5f5f5}button.list-group-item{width:100%;text-align:left}.list-group-item-success{color:#3c763d;background-color:#dff0d8}a.list-group-item-success,button.list-group-item-success{color:#3c763d}a.list-group-item-success .list-group-item-heading,button.list-group-item-success .list-group-item-heading{color:inherit}a.list-group-item-success:hover,button.list-group-item-success:hover,a.list-group-item-success:focus,button.list-group-item-success:focus{color:#3c763d;background-color:#d0e9c6}a.list-group-item-success.active,button.list-group-item-success.active,a.list-group-item-success.active:hover,button.list-group-item-success.active:hover,a.list-group-item-success.active:focus,button.list-group-item-success.active:focus{color:#fff;background-color:#3c763d;border-color:#3c763d}.list-group-item-info{color:#31708f;background-color:#d9edf7}a.list-group-item-info,button.list-group-item-info{color:#31708f}a.list-group-item-info .list-group-item-heading,button.list-group-item-info .list-group-item-heading{color:inherit}a.list-group-item-info:hover,button.list-group-item-info:hover,a.list-group-item-info:focus,button.list-group-item-info:focus{color:#31708f;background-color:#c4e3f3}a.list-group-item-info.active,button.list-group-item-info.active,a.list-group-item-info.active:hover,button.list-group-item-info.active:hover,a.list-group-item-info.active:focus,button.list-group-item-info.active:focus{color:#fff;background-color:#31708f;border-color:#31708f}.list-group-item-warning{color:#8a6d3b;background-color:#fcf8e3}a.list-group-item-warning,button.list-group-item-warning{color:#8a6d3b}a.list-group-item-warning .list-group-item-heading,button.list-group-item-warning .list-group-item-heading{color:inherit}a.list-group-item-warning:hover,button.list-group-item-warning:hover,a.list-group-item-warning:focus,button.list-group-item-warning:focus{color:#8a6d3b;background-color:#faf2cc}a.list-group-item-warning.active,button.list-group-item-warning.active,a.list-group-item-warning.active:hover,button.list-group-item-warning.active:hover,a.list-group-item-warning.active:focus,button.list-group-item-warning.active:focus{color:#fff;background-color:#8a6d3b;border-color:#8a6d3b}.list-group-item-danger{color:#a94442;background-color:#f2dede}a.list-group-item-danger,button.list-group-item-danger{color:#a94442}a.list-group-item-danger .list-group-item-heading,button.list-group-item-danger .list-group-item-heading{color:inherit}a.list-group-item-danger:hover,button.list-group-item-danger:hover,a.list-group-item-danger:focus,button.list-group-item-danger:focus{color:#a94442;background-color:#ebcccc}a.list-group-item-danger.active,button.list-group-item-danger.active,a.list-group-item-danger.active:hover,button.list-group-item-danger.active:hover,a.list-group-item-danger.active:focus,button.list-group-item-danger.active:focus{color:#fff;background-color:#a94442;border-color:#a94442}.list-group-item-heading{margin-top:0;margin-bottom:5px}.list-group-item-text{margin-bottom:0;line-height:1.3}.panel{margin-bottom:20px;background-color:#fff;border:1px solid transparent;border-radius:4px;-webkit-box-shadow:0 1px 1px rgba(0,0,0,0.05);box-shadow:0 1px 1px rgba(0,0,0,0.05)}.panel-body{padding:15px}.panel-heading{padding:10px 15px;border-bottom:1px solid transparent;border-top-left-radius:3px;border-top-right-radius:3px}.panel-heading>.dropdown .dropdown-toggle{color:inherit}.panel-title{margin-top:0;margin-bottom:0;font-size:16px;color:inherit}.panel-title>a,.panel-title>small,.panel-title>.small,.panel-title>small>a,.panel-title>.small>a{color:inherit}.panel-footer{padding:10px 15px;background-color:#f5f5f5;border-top:1px solid #ddd;border-bottom-right-radius:3px;border-bottom-left-radius:3px}.panel>.list-group,.panel>.panel-collapse>.list-group{margin-bottom:0}.panel>.list-group .list-group-item,.panel>.panel-collapse>.list-group .list-group-item{border-width:1px 0;border-radius:0}.panel>.list-group:first-child .list-group-item:first-child,.panel>.panel-collapse>.list-group:first-child .list-group-item:first-child{border-top:0;border-top-left-radius:3px;border-top-right-radius:3px}.panel>.list-group:last-child .list-group-item:last-child,.panel>.panel-collapse>.list-group:last-child .list-group-item:last-child{border-bottom:0;border-bottom-right-radius:3px;border-bottom-left-radius:3px}.panel>.panel-heading+.panel-collapse>.list-group .list-group-item:first-child{border-top-left-radius:0;border-top-right-radius:0}.panel-heading+.list-group .list-group-item:first-child{border-top-width:0}.list-group+.panel-footer{border-top-width:0}.panel>.table,.panel>.table-responsive>.table,.panel>.panel-collapse>.table{margin-bottom:0}.panel>.table caption,.panel>.table-responsive>.table caption,.panel>.panel-collapse>.table caption{padding-right:15px;padding-left:15px}.panel>.table:first-child,.panel>.table-responsive:first-child>.table:first-child{border-top-left-radius:3px;border-top-right-radius:3px}.panel>.table:first-child>thead:first-child>tr:first-child,.panel>.table-responsive:first-child>.table:first-child>thead:first-child>tr:first-child,.panel>.table:first-child>tbody:first-child>tr:first-child,.panel>.table-responsive:first-child>.table:first-child>tbody:first-child>tr:first-child{border-top-left-radius:3px;border-top-right-radius:3px}.panel>.table:first-child>thead:first-child>tr:first-child td:first-child,.panel>.table-responsive:first-child>.table:first-child>thead:first-child>tr:first-child td:first-child,.panel>.table:first-child>tbody:first-child>tr:first-child td:first-child,.panel>.table-responsive:first-child>.table:first-child>tbody:first-child>tr:first-child td:first-child,.panel>.table:first-child>thead:first-child>tr:first-child th:first-child,.panel>.table-responsive:first-child>.table:first-child>thead:first-child>tr:first-child th:first-child,.panel>.table:first-child>tbody:first-child>tr:first-child th:first-child,.panel>.table-responsive:first-child>.table:first-child>tbody:first-child>tr:first-child th:first-child{border-top-left-radius:3px}.panel>.table:first-child>thead:first-child>tr:first-child td:last-child,.panel>.table-responsive:first-child>.table:first-child>thead:first-child>tr:first-child td:last-child,.panel>.table:first-child>tbody:first-child>tr:first-child td:last-child,.panel>.table-responsive:first-child>.table:first-child>tbody:first-child>tr:first-child td:last-child,.panel>.table:first-child>thead:first-child>tr:first-child th:last-child,.panel>.table-responsive:first-child>.table:first-child>thead:first-child>tr:first-child th:last-child,.panel>.table:first-child>tbody:first-child>tr:first-child th:last-child,.panel>.table-responsive:first-child>.table:first-child>tbody:first-child>tr:first-child th:last-child{border-top-right-radius:3px}.panel>.table:last-child,.panel>.table-responsive:last-child>.table:last-child{border-bottom-right-radius:3px;border-bottom-left-radius:3px}.panel>.table:last-child>tbody:last-child>tr:last-child,.panel>.table-responsive:last-child>.table:last-child>tbody:last-child>tr:last-child,.panel>.table:last-child>tfoot:last-child>tr:last-child,.panel>.table-responsive:last-child>.table:last-child>tfoot:last-child>tr:last-child{border-bottom-right-radius:3px;border-bottom-left-radius:3px}.panel>.table:last-child>tbody:last-child>tr:last-child td:first-child,.panel>.table-responsive:last-child>.table:last-child>tbody:last-child>tr:last-child td:first-child,.panel>.table:last-child>tfoot:last-child>tr:last-child td:first-child,.panel>.table-responsive:last-child>.table:last-child>tfoot:last-child>tr:last-child td:first-child,.panel>.table:last-child>tbody:last-child>tr:last-child th:first-child,.panel>.table-responsive:last-child>.table:last-child>tbody:last-child>tr:last-child th:first-child,.panel>.table:last-child>tfoot:last-child>tr:last-child th:first-child,.panel>.table-responsive:last-child>.table:last-child>tfoot:last-child>tr:last-child th:first-child{border-bottom-left-radius:3px}.panel>.table:last-child>tbody:last-child>tr:last-child td:last-child,.panel>.table-responsive:last-child>.table:last-child>tbody:last-child>tr:last-child td:last-child,.panel>.table:last-child>tfoot:last-child>tr:last-child td:last-child,.panel>.table-responsive:last-child>.table:last-child>tfoot:last-child>tr:last-child td:last-child,.panel>.table:last-child>tbody:last-child>tr:last-child th:last-child,.panel>.table-responsive:last-child>.table:last-child>tbody:last-child>tr:last-child th:last-child,.panel>.table:last-child>tfoot:last-child>tr:last-child th:last-child,.panel>.table-responsive:last-child>.table:last-child>tfoot:last-child>tr:last-child th:last-child{border-bottom-right-radius:3px}.panel>.panel-body+.table,.panel>.panel-body+.table-responsive,.panel>.table+.panel-body,.panel>.table-responsive+.panel-body{border-top:1px solid #ddd}.panel>.table>tbody:first-child>tr:first-child th,.panel>.table>tbody:first-child>tr:first-child td{border-top:0}.panel>.table-bordered,.panel>.table-responsive>.table-bordered{border:0}.panel>.table-bordered>thead>tr>th:first-child,.panel>.table-responsive>.table-bordered>thead>tr>th:first-child,.panel>.table-bordered>tbody>tr>th:first-child,.panel>.table-responsive>.table-bordered>tbody>tr>th:first-child,.panel>.table-bordered>tfoot>tr>th:first-child,.panel>.table-responsive>.table-bordered>tfoot>tr>th:first-child,.panel>.table-bordered>thead>tr>td:first-child,.panel>.table-responsive>.table-bordered>thead>tr>td:first-child,.panel>.table-bordered>tbody>tr>td:first-child,.panel>.table-responsive>.table-bordered>tbody>tr>td:first-child,.panel>.table-bordered>tfoot>tr>td:first-child,.panel>.table-responsive>.table-bordered>tfoot>tr>td:first-child{border-left:0}.panel>.table-bordered>thead>tr>th:last-child,.panel>.table-responsive>.table-bordered>thead>tr>th:last-child,.panel>.table-bordered>tbody>tr>th:last-child,.panel>.table-responsive>.table-bordered>tbody>tr>th:last-child,.panel>.table-bordered>tfoot>tr>th:last-child,.panel>.table-responsive>.table-bordered>tfoot>tr>th:last-child,.panel>.table-bordered>thead>tr>td:last-child,.panel>.table-responsive>.table-bordered>thead>tr>td:last-child,.panel>.table-bordered>tbody>tr>td:last-child,.panel>.table-responsive>.table-bordered>tbody>tr>td:last-child,.panel>.table-bordered>tfoot>tr>td:last-child,.panel>.table-responsive>.table-bordered>tfoot>tr>td:last-child{border-right:0}.panel>.table-bordered>thead>tr:first-child>td,.panel>.table-responsive>.table-bordered>thead>tr:first-child>td,.panel>.table-bordered>tbody>tr:first-child>td,.panel>.table-responsive>.table-bordered>tbody>tr:first-child>td,.panel>.table-bordered>thead>tr:first-child>th,.panel>.table-responsive>.table-bordered>thead>tr:first-child>th,.panel>.table-bordered>tbody>tr:first-child>th,.panel>.table-responsive>.table-bordered>tbody>tr:first-child>th{border-bottom:0}.panel>.table-bordered>tbody>tr:last-child>td,.panel>.table-responsive>.table-bordered>tbody>tr:last-child>td,.panel>.table-bordered>tfoot>tr:last-child>td,.panel>.table-responsive>.table-bordered>tfoot>tr:last-child>td,.panel>.table-bordered>tbody>tr:last-child>th,.panel>.table-responsive>.table-bordered>tbody>tr:last-child>th,.panel>.table-bordered>tfoot>tr:last-child>th,.panel>.table-responsive>.table-bordered>tfoot>tr:last-child>th{border-bottom:0}.panel>.table-responsive{margin-bottom:0;border:0}.panel-group{margin-bottom:20px}.panel-group .panel{margin-bottom:0;border-radius:4px}.panel-group .panel+.panel{margin-top:5px}.panel-group .panel-heading{border-bottom:0}.panel-group .panel-heading+.panel-collapse>.panel-body,.panel-group .panel-heading+.panel-collapse>.list-group{border-top:1px solid #ddd}.panel-group .panel-footer{border-top:0}.panel-group .panel-footer+.panel-collapse .panel-body{border-bottom:1px solid #ddd}.panel-default{border-color:#ddd}.panel-default>.panel-heading{color:#333;background-color:#f5f5f5;border-color:#ddd}.panel-default>.panel-heading+.panel-collapse>.panel-body{border-top-color:#ddd}.panel-default>.panel-heading .badge{color:#f5f5f5;background-color:#333}.panel-default>.panel-footer+.panel-collapse>.panel-body{border-bottom-color:#ddd}.panel-primary{border-color:#337ab7}.panel-primary>.panel-heading{color:#fff;background-color:#337ab7;border-color:#337ab7}.panel-primary>.panel-heading+.panel-collapse>.panel-body{border-top-color:#337ab7}.panel-primary>.panel-heading .badge{color:#337ab7;background-color:#fff}.panel-primary>.panel-footer+.panel-collapse>.panel-body{border-bottom-color:#337ab7}.panel-success{border-color:#d6e9c6}.panel-success>.panel-heading{color:#3c763d;background-color:#dff0d8;border-color:#d6e9c6}.panel-success>.panel-heading+.panel-collapse>.panel-body{border-top-color:#d6e9c6}.panel-success>.panel-heading .badge{color:#dff0d8;background-color:#3c763d}.panel-success>.panel-footer+.panel-collapse>.panel-body{border-bottom-color:#d6e9c6}.panel-info{border-color:#bce8f1}.panel-info>.panel-heading{color:#31708f;background-color:#d9edf7;border-color:#bce8f1}.panel-info>.panel-heading+.panel-collapse>.panel-body{border-top-color:#bce8f1}.panel-info>.panel-heading .badge{color:#d9edf7;background-color:#31708f}.panel-info>.panel-footer+.panel-collapse>.panel-body{border-bottom-color:#bce8f1}.panel-warning{border-color:#faebcc}.panel-warning>.panel-heading{color:#8a6d3b;background-color:#fcf8e3;border-color:#faebcc}.panel-warning>.panel-heading+.panel-collapse>.panel-body{border-top-color:#faebcc}.panel-warning>.panel-heading .badge{color:#fcf8e3;background-color:#8a6d3b}.panel-warning>.panel-footer+.panel-collapse>.panel-body{border-bottom-color:#faebcc}.panel-danger{border-color:#ebccd1}.panel-danger>.panel-heading{color:#a94442;background-color:#f2dede;border-color:#ebccd1}.panel-danger>.panel-heading+.panel-collapse>.panel-body{border-top-color:#ebccd1}.panel-danger>.panel-heading .badge{color:#f2dede;background-color:#a94442}.panel-danger>.panel-footer+.panel-collapse>.panel-body{border-bottom-color:#ebccd1}.embed-responsive{position:relative;display:block;height:0;padding:0;overflow:hidden}.embed-responsive .embed-responsive-item,.embed-responsive iframe,.embed-responsive embed,.embed-responsive object,.embed-responsive video{position:absolute;top:0;bottom:0;left:0;width:100%;height:100%;border:0}.embed-responsive-16by9{padding-bottom:56.25%}.embed-responsive-4by3{padding-bottom:75%}.well{min-height:20px;padding:19px;margin-bottom:20px;background-color:#f5f5f5;border:1px solid #e3e3e3;border-radius:4px;-webkit-box-shadow:inset 0 1px 1px rgba(0,0,0,0.05);box-shadow:inset 0 1px 1px rgba(0,0,0,0.05)}.well blockquote{border-color:#ddd;border-color:rgba(0,0,0,0.15)}.well-lg{padding:24px;border-radius:6px}.well-sm{padding:9px;border-radius:3px}.close{float:right;font-size:21px;font-weight:bold;line-height:1;color:#000;text-shadow:0 1px 0 #fff;filter:alpha(opacity=20);opacity:.2}.close:hover,.close:focus{color:#000;text-decoration:none;cursor:pointer;filter:alpha(opacity=50);opacity:.5}button.close{padding:0;cursor:pointer;background:transparent;border:0;-webkit-appearance:none;appearance:none}.modal-open{overflow:hidden}.modal{position:fixed;top:0;right:0;bottom:0;left:0;z-index:1050;display:none;overflow:hidden;-webkit-overflow-scrolling:touch;outline:0}.modal.fade .modal-dialog{-webkit-transform:translate(0,-25%);-ms-transform:translate(0,-25%);-o-transform:translate(0,-25%);transform:translate(0,-25%);-webkit-transition:-webkit-transform .3s ease-out;-moz-transition:-moz-transform .3s ease-out;-o-transition:-o-transform .3s ease-out;transition:transform .3s ease-out}.modal.in .modal-dialog{-webkit-transform:translate(0,0);-ms-transform:translate(0,0);-o-transform:translate(0,0);transform:translate(0,0)}.modal-open .modal{overflow-x:hidden;overflow-y:auto}.modal-dialog{position:relative;width:auto;margin:10px}.modal-content{position:relative;background-color:#fff;background-clip:padding-box;border:1px solid #999;border:1px solid rgba(0,0,0,0.2);border-radius:6px;-webkit-box-shadow:0 3px 9px rgba(0,0,0,0.5);box-shadow:0 3px 9px rgba(0,0,0,0.5);outline:0}.modal-backdrop{position:fixed;top:0;right:0;bottom:0;left:0;z-index:1040;background-color:#000}.modal-backdrop.fade{filter:alpha(opacity=0);opacity:0}.modal-backdrop.in{filter:alpha(opacity=50);opacity:.5}.modal-header{padding:15px;border-bottom:1px solid #e5e5e5}.modal-header .close{margin-top:-2px}.modal-title{margin:0;line-height:1.42857143}.modal-body{position:relative;padding:15px}.modal-footer{padding:15px;text-align:right;border-top:1px solid #e5e5e5}.modal-footer .btn+.btn{margin-bottom:0;margin-left:5px}.modal-footer .btn-group .btn+.btn{margin-left:-1px}.modal-footer .btn-block+.btn-block{margin-left:0}.modal-scrollbar-measure{position:absolute;top:-9999px;width:50px;height:50px;overflow:scroll}@media(min-width:768px){.modal-dialog{width:600px;margin:30px auto}.modal-content{-webkit-box-shadow:0 5px 15px rgba(0,0,0,0.5);box-shadow:0 5px 15px rgba(0,0,0,0.5)}.modal-sm{width:300px}}@media(min-width:992px){.modal-lg{width:900px}}.tooltip{position:absolute;z-index:1070;display:block;font-family:"Helvetica Neue",Helvetica,Arial,sans-serif;font-style:normal;font-weight:400;line-height:1.42857143;line-break:auto;text-align:left;text-align:start;text-decoration:none;text-shadow:none;text-transform:none;letter-spacing:normal;word-break:normal;word-spacing:normal;word-wrap:normal;white-space:normal;font-size:12px;filter:alpha(opacity=0);opacity:0}.tooltip.in{filter:alpha(opacity=90);opacity:.9}.tooltip.top{padding:5px 0;margin-top:-3px}.tooltip.right{padding:0 5px;margin-left:3px}.tooltip.bottom{padding:5px 0;margin-top:3px}.tooltip.left{padding:0 5px;margin-left:-3px}.tooltip.top .tooltip-arrow{bottom:0;left:50%;margin-left:-5px;border-width:5px 5px 0;border-top-color:#000}.tooltip.top-left .tooltip-arrow{right:5px;bottom:0;margin-bottom:-5px;border-width:5px 5px 0;border-top-color:#000}.tooltip.top-right .tooltip-arrow{bottom:0;left:5px;margin-bottom:-5px;border-width:5px 5px 0;border-top-color:#000}.tooltip.right .tooltip-arrow{top:50%;left:0;margin-top:-5px;border-width:5px 5px 5px 0;border-right-color:#000}.tooltip.left .tooltip-arrow{top:50%;right:0;margin-top:-5px;border-width:5px 0 5px 5px;border-left-color:#000}.tooltip.bottom .tooltip-arrow{top:0;left:50%;margin-left:-5px;border-width:0 5px 5px;border-bottom-color:#000}.tooltip.bottom-left .tooltip-arrow{top:0;right:5px;margin-top:-5px;border-width:0 5px 5px;border-bottom-color:#000}.tooltip.bottom-right .tooltip-arrow{top:0;left:5px;margin-top:-5px;border-width:0 5px 5px;border-bottom-color:#000}.tooltip-inner{max-width:200px;padding:3px 8px;color:#fff;text-align:center;background-color:#000;border-radius:4px}.tooltip-arrow{position:absolute;width:0;height:0;border-color:transparent;border-style:solid}.popover{position:absolute;top:0;left:0;z-index:1060;display:none;max-width:276px;padding:1px;font-family:"Helvetica Neue",Helvetica,Arial,sans-serif;font-style:normal;font-weight:400;line-height:1.42857143;line-break:auto;text-align:left;text-align:start;text-decoration:none;text-shadow:none;text-transform:none;letter-spacing:normal;word-break:normal;word-spacing:normal;word-wrap:normal;white-space:normal;font-size:14px;background-color:#fff;background-clip:padding-box;border:1px solid #ccc;border:1px solid rgba(0,0,0,0.2);border-radius:6px;-webkit-box-shadow:0 5px 10px rgba(0,0,0,0.2);box-shadow:0 5px 10px rgba(0,0,0,0.2)}.popover.top{margin-top:-10px}.popover.right{margin-left:10px}.popover.bottom{margin-top:10px}.popover.left{margin-left:-10px}.popover>.arrow{border-width:11px}.popover>.arrow,.popover>.arrow:after{position:absolute;display:block;width:0;height:0;border-color:transparent;border-style:solid}.popover>.arrow:after{content:"";border-width:10px}.popover.top>.arrow{bottom:-11px;left:50%;margin-left:-11px;border-top-color:#999;border-top-color:rgba(0,0,0,0.25);border-bottom-width:0}.popover.top>.arrow:after{bottom:1px;margin-left:-10px;content:" ";border-top-color:#fff;border-bottom-width:0}.popover.right>.arrow{top:50%;left:-11px;margin-top:-11px;border-right-color:#999;border-right-color:rgba(0,0,0,0.25);border-left-width:0}.popover.right>.arrow:after{bottom:-10px;left:1px;content:" ";border-right-color:#fff;border-left-width:0}.popover.bottom>.arrow{top:-11px;left:50%;margin-left:-11px;border-top-width:0;border-bottom-color:#999;border-bottom-color:rgba(0,0,0,0.25)}.popover.bottom>.arrow:after{top:1px;margin-left:-10px;content:" ";border-top-width:0;border-bottom-color:#fff}.popover.left>.arrow{top:50%;right:-11px;margin-top:-11px;border-right-width:0;border-left-color:#999;border-left-color:rgba(0,0,0,0.25)}.popover.left>.arrow:after{right:1px;bottom:-10px;content:" ";border-right-width:0;border-left-color:#fff}.popover-title{padding:8px 14px;margin:0;font-size:14px;background-color:#f7f7f7;border-bottom:1px solid #ebebeb;border-radius:5px 5px 0 0}.popover-content{padding:9px 14px}.carousel{position:relative}.carousel-inner{position:relative;width:100%;overflow:hidden}.carousel-inner>.item{position:relative;display:none;-webkit-transition:.6s ease-in-out left;-o-transition:.6s ease-in-out left;transition:.6s ease-in-out left}.carousel-inner>.item>img,.carousel-inner>.item>a>img{line-height:1}@media all and (transform-3d),(-webkit-transform-3d){.carousel-inner>.item{-webkit-transition:-webkit-transform .6s ease-in-out;-moz-transition:-moz-transform .6s ease-in-out;-o-transition:-o-transform .6s ease-in-out;transition:transform .6s ease-in-out;-webkit-backface-visibility:hidden;-moz-backface-visibility:hidden;backface-visibility:hidden;-webkit-perspective:1000px;-moz-perspective:1000px;perspective:1000px}.carousel-inner>.item.next,.carousel-inner>.item.active.right{-webkit-transform:translate3d(100%,0,0);transform:translate3d(100%,0,0);left:0}.carousel-inner>.item.prev,.carousel-inner>.item.active.left{-webkit-transform:translate3d(-100%,0,0);transform:translate3d(-100%,0,0);left:0}.carousel-inner>.item.next.left,.carousel-inner>.item.prev.right,.carousel-inner>.item.active{-webkit-transform:translate3d(0,0,0);transform:translate3d(0,0,0);left:0}}.carousel-inner>.active,.carousel-inner>.next,.carousel-inner>.prev{display:block}.carousel-inner>.active{left:0}.carousel-inner>.next,.carousel-inner>.prev{position:absolute;top:0;width:100%}.carousel-inner>.next{left:100%}.carousel-inner>.prev{left:-100%}.carousel-inner>.next.left,.carousel-inner>.prev.right{left:0}.carousel-inner>.active.left{left:-100%}.carousel-inner>.active.right{left:100%}.carousel-control{position:absolute;top:0;bottom:0;left:0;width:15%;font-size:20px;color:#fff;text-align:center;text-shadow:0 1px 2px rgba(0,0,0,0.6);background-color:rgba(0,0,0,0);filter:alpha(opacity=50);opacity:.5}.carousel-control.left{background-image:-webkit-linear-gradient(left,rgba(0,0,0,0.5) 0,rgba(0,0,0,0.0001) 100%);background-image:-o-linear-gradient(left,rgba(0,0,0,0.5) 0,rgba(0,0,0,0.0001) 100%);background-image:linear-gradient(to right,rgba(0,0,0,0.5) 0,rgba(0,0,0,0.0001) 100%);filter:progid:DXImageTransform.Microsoft.gradient(startColorstr='#80000000',endColorstr='#00000000',GradientType=1);background-repeat:repeat-x}.carousel-control.right{right:0;left:auto;background-image:-webkit-linear-gradient(left,rgba(0,0,0,0.0001) 0,rgba(0,0,0,0.5) 100%);background-image:-o-linear-gradient(left,rgba(0,0,0,0.0001) 0,rgba(0,0,0,0.5) 100%);background-image:linear-gradient(to right,rgba(0,0,0,0.0001) 0,rgba(0,0,0,0.5) 100%);filter:progid:DXImageTransform.Microsoft.gradient(startColorstr='#00000000',endColorstr='#80000000',GradientType=1);background-repeat:repeat-x}.carousel-control:hover,.carousel-control:focus{color:#fff;text-decoration:none;outline:0;filter:alpha(opacity=90);opacity:.9}.carousel-control .icon-prev,.carousel-control .icon-next,.carousel-control .glyphicon-chevron-left,.carousel-control .glyphicon-chevron-right{position:absolute;top:50%;z-index:5;display:inline-block;margin-top:-10px}.carousel-control .icon-prev,.carousel-control .glyphicon-chevron-left{left:50%;margin-left:-10px}.carousel-control .icon-next,.carousel-control .glyphicon-chevron-right{right:50%;margin-right:-10px}.carousel-control .icon-prev,.carousel-control .icon-next{width:20px;height:20px;font-family:serif;line-height:1}.carousel-control .icon-prev:before{content:"\2039"}.carousel-control .icon-next:before{content:"\203a"}.carousel-indicators{position:absolute;bottom:10px;left:50%;z-index:15;width:60%;padding-left:0;margin-left:-30%;text-align:center;list-style:none}.carousel-indicators li{display:inline-block;width:10px;height:10px;margin:1px;text-indent:-999px;cursor:pointer;background-color:#000 \9;background-color:rgba(0,0,0,0);border:1px solid #fff;border-radius:10px}.carousel-indicators .active{width:12px;height:12px;margin:0;background-color:#fff}.carousel-caption{position:absolute;right:15%;bottom:20px;left:15%;z-index:10;padding-top:20px;padding-bottom:20px;color:#fff;text-align:center;text-shadow:0 1px 2px rgba(0,0,0,0.6)}.carousel-caption .btn{text-shadow:none}@media screen and (min-width:768px){.carousel-control .glyphicon-chevron-left,.carousel-control .glyphicon-chevron-right,.carousel-control .icon-prev,.carousel-control .icon-next{width:30px;height:30px;margin-top:-10px;font-size:30px}.carousel-control .glyphicon-chevron-left,.carousel-control .icon-prev{margin-left:-10px}.carousel-control .glyphicon-chevron-right,.carousel-control .icon-next{margin-right:-10px}.carousel-caption{right:20%;left:20%;padding-bottom:30px}.carousel-indicators{bottom:20px}}.clearfix:before,.clearfix:after,.dl-horizontal dd:before,.dl-horizontal dd:after,.container:before,.container:after,.container-fluid:before,.container-fluid:after,.row:before,.row:after,.form-horizontal .form-group:before,.form-horizontal .form-group:after,.btn-toolbar:before,.btn-toolbar:after,.btn-group-vertical>.btn-group:before,.btn-group-vertical>.btn-group:after,.nav:before,.nav:after,.navbar:before,.navbar:after,.navbar-header:before,.navbar-header:after,.navbar-collapse:before,.navbar-collapse:after,.pager:before,.pager:after,.panel-body:before,.panel-body:after,.modal-header:before,.modal-header:after,.modal-footer:before,.modal-footer:after{display:table;content:" "}.clearfix:after,.dl-horizontal dd:after,.container:after,.container-fluid:after,.row:after,.form-horizontal .form-group:after,.btn-toolbar:after,.btn-group-vertical>.btn-group:after,.nav:after,.navbar:after,.navbar-header:after,.navbar-collapse:after,.pager:after,.panel-body:after,.modal-header:after,.modal-footer:after{clear:both}.center-block{display:block;margin-right:auto;margin-left:auto}.pull-right{float:right!important}.pull-left{float:left!important}.hide{display:none!important}.show{display:block!important}.invisible{visibility:hidden}.text-hide{font:0/0 a;color:transparent;text-shadow:none;background-color:transparent;border:0}.hidden{display:none!important}.affix{position:fixed}@-ms-viewport{width:device-width}.visible-xs,.visible-sm,.visible-md,.visible-lg{display:none!important}.visible-xs-block,.visible-xs-inline,.visible-xs-inline-block,.visible-sm-block,.visible-sm-inline,.visible-sm-inline-block,.visible-md-block,.visible-md-inline,.visible-md-inline-block,.visible-lg-block,.visible-lg-inline,.visible-lg-inline-block{display:none!important}@media(max-width:767px){.visible-xs{display:block!important}table.visible-xs{display:table!important}tr.visible-xs{display:table-row!important}th.visible-xs,td.visible-xs{display:table-cell!important}}@media(max-width:767px){.visible-xs-block{display:block!important}}@media(max-width:767px){.visible-xs-inline{display:inline!important}}@media(max-width:767px){.visible-xs-inline-block{display:inline-block!important}}@media(min-width:768px) and (max-width:991px){.visible-sm{display:block!important}table.visible-sm{display:table!important}tr.visible-sm{display:table-row!important}th.visible-sm,td.visible-sm{display:table-cell!important}}@media(min-width:768px) and (max-width:991px){.visible-sm-block{display:block!important}}@media(min-width:768px) and (max-width:991px){.visible-sm-inline{display:inline!important}}@media(min-width:768px) and (max-width:991px){.visible-sm-inline-block{display:inline-block!important}}@media(min-width:992px) and (max-width:1199px){.visible-md{display:block!important}table.visible-md{display:table!important}tr.visible-md{display:table-row!important}th.visible-md,td.visible-md{display:table-cell!important}}@media(min-width:992px) and (max-width:1199px){.visible-md-block{display:block!important}}@media(min-width:992px) and (max-width:1199px){.visible-md-inline{display:inline!important}}@media(min-width:992px) and (max-width:1199px){.visible-md-inline-block{display:inline-block!important}}@media(min-width:1200px){.visible-lg{display:block!important}table.visible-lg{display:table!important}tr.visible-lg{display:table-row!important}th.visible-lg,td.visible-lg{display:table-cell!important}}@media(min-width:1200px){.visible-lg-block{display:block!important}}@media(min-width:1200px){.visible-lg-inline{display:inline!important}}@media(min-width:1200px){.visible-lg-inline-block{display:inline-block!important}}@media(max-width:767px){.hidden-xs{display:none!important}}@media(min-width:768px) and (max-width:991px){.hidden-sm{display:none!important}}@media(min-width:992px) and (max-width:1199px){.hidden-md{display:none!important}}@media(min-width:1200px){.hidden-lg{display:none!important}}.visible-print{display:none!important}@media print{.visible-print{display:block!important}table.visible-print{display:table!important}tr.visible-print{display:table-row!important}th.visible-print,td.visible-print{display:table-cell!important}}.visible-print-block{display:none!important}@media print{.visible-print-block{display:block!important}}.visible-print-inline{display:none!important}@media print{.visible-print-inline{display:inline!important}}.visible-print-inline-block{display:none!important}@media print{.visible-print-inline-block{display:inline-block!important}}@media print{.hidden-print{display:none!important}}</style>
+<script>if(typeof jQuery==="undefined"){throw new Error("Bootstrap's JavaScript requires jQuery")}+function($){"use strict";var version=$.fn.jquery.split(" ")[0].split(".");if(version[0]<2&&version[1]<9||version[0]==1&&version[1]==9&&version[2]<1||version[0]>3){throw new Error("Bootstrap's JavaScript requires jQuery version 1.9.1 or higher, but lower than version 4")}}(jQuery);+function($){"use strict";function transitionEnd(){var el=document.createElement("bootstrap");var transEndEventNames={WebkitTransition:"webkitTransitionEnd",MozTransition:"transitionend",OTransition:"oTransitionEnd otransitionend",transition:"transitionend"};for(var name in transEndEventNames){if(el.style[name]!==undefined){return{end:transEndEventNames[name]}}}return false}$.fn.emulateTransitionEnd=function(duration){var called=false;var $el=this;$(this).one("bsTransitionEnd",function(){called=true});var callback=function(){if(!called)$($el).trigger($.support.transition.end)};setTimeout(callback,duration);return this};$(function(){$.support.transition=transitionEnd();if(!$.support.transition)return;$.event.special.bsTransitionEnd={bindType:$.support.transition.end,delegateType:$.support.transition.end,handle:function(e){if($(e.target).is(this))return e.handleObj.handler.apply(this,arguments)}}})}(jQuery);+function($){"use strict";var dismiss='[data-dismiss="alert"]';var Alert=function(el){$(el).on("click",dismiss,this.close)};Alert.VERSION="3.4.1";Alert.TRANSITION_DURATION=150;Alert.prototype.close=function(e){var $this=$(this);var selector=$this.attr("data-target");if(!selector){selector=$this.attr("href");selector=selector&&selector.replace(/.*(?=#[^\s]*$)/,"")}selector=selector==="#"?[]:selector;var $parent=$(document).find(selector);if(e)e.preventDefault();if(!$parent.length){$parent=$this.closest(".alert")}$parent.trigger(e=$.Event("close.bs.alert"));if(e.isDefaultPrevented())return;$parent.removeClass("in");function removeElement(){$parent.detach().trigger("closed.bs.alert").remove()}$.support.transition&&$parent.hasClass("fade")?$parent.one("bsTransitionEnd",removeElement).emulateTransitionEnd(Alert.TRANSITION_DURATION):removeElement()};function Plugin(option){return this.each(function(){var $this=$(this);var data=$this.data("bs.alert");if(!data)$this.data("bs.alert",data=new Alert(this));if(typeof option=="string")data[option].call($this)})}var old=$.fn.alert;$.fn.alert=Plugin;$.fn.alert.Constructor=Alert;$.fn.alert.noConflict=function(){$.fn.alert=old;return this};$(document).on("click.bs.alert.data-api",dismiss,Alert.prototype.close)}(jQuery);+function($){"use strict";var Button=function(element,options){this.$element=$(element);this.options=$.extend({},Button.DEFAULTS,options);this.isLoading=false};Button.VERSION="3.4.1";Button.DEFAULTS={loadingText:"loading..."};Button.prototype.setState=function(state){var d="disabled";var $el=this.$element;var val=$el.is("input")?"val":"html";var data=$el.data();state+="Text";if(data.resetText==null)$el.data("resetText",$el[val]());setTimeout($.proxy(function(){$el[val](data[state]==null?this.options[state]:data[state]);if(state=="loadingText"){this.isLoading=true;$el.addClass(d).attr(d,d).prop(d,true)}else if(this.isLoading){this.isLoading=false;$el.removeClass(d).removeAttr(d).prop(d,false)}},this),0)};Button.prototype.toggle=function(){var changed=true;var $parent=this.$element.closest('[data-toggle="buttons"]');if($parent.length){var $input=this.$element.find("input");if($input.prop("type")=="radio"){if($input.prop("checked"))changed=false;$parent.find(".active").removeClass("active");this.$element.addClass("active")}else if($input.prop("type")=="checkbox"){if($input.prop("checked")!==this.$element.hasClass("active"))changed=false;this.$element.toggleClass("active")}$input.prop("checked",this.$element.hasClass("active"));if(changed)$input.trigger("change")}else{this.$element.attr("aria-pressed",!this.$element.hasClass("active"));this.$element.toggleClass("active")}};function Plugin(option){return this.each(function(){var $this=$(this);var data=$this.data("bs.button");var options=typeof option=="object"&&option;if(!data)$this.data("bs.button",data=new Button(this,options));if(option=="toggle")data.toggle();else if(option)data.setState(option)})}var old=$.fn.button;$.fn.button=Plugin;$.fn.button.Constructor=Button;$.fn.button.noConflict=function(){$.fn.button=old;return this};$(document).on("click.bs.button.data-api",'[data-toggle^="button"]',function(e){var $btn=$(e.target).closest(".btn");Plugin.call($btn,"toggle");if(!$(e.target).is('input[type="radio"], input[type="checkbox"]')){e.preventDefault();if($btn.is("input,button"))$btn.trigger("focus");else $btn.find("input:visible,button:visible").first().trigger("focus")}}).on("focus.bs.button.data-api blur.bs.button.data-api",'[data-toggle^="button"]',function(e){$(e.target).closest(".btn").toggleClass("focus",/^focus(in)?$/.test(e.type))})}(jQuery);+function($){"use strict";var Carousel=function(element,options){this.$element=$(element);this.$indicators=this.$element.find(".carousel-indicators");this.options=options;this.paused=null;this.sliding=null;this.interval=null;this.$active=null;this.$items=null;this.options.keyboard&&this.$element.on("keydown.bs.carousel",$.proxy(this.keydown,this));this.options.pause=="hover"&&!("ontouchstart"in document.documentElement)&&this.$element.on("mouseenter.bs.carousel",$.proxy(this.pause,this)).on("mouseleave.bs.carousel",$.proxy(this.cycle,this))};Carousel.VERSION="3.4.1";Carousel.TRANSITION_DURATION=600;Carousel.DEFAULTS={interval:5e3,pause:"hover",wrap:true,keyboard:true};Carousel.prototype.keydown=function(e){if(/input|textarea/i.test(e.target.tagName))return;switch(e.which){case 37:this.prev();break;case 39:this.next();break;default:return}e.preventDefault()};Carousel.prototype.cycle=function(e){e||(this.paused=false);this.interval&&clearInterval(this.interval);this.options.interval&&!this.paused&&(this.interval=setInterval($.proxy(this.next,this),this.options.interval));return this};Carousel.prototype.getItemIndex=function(item){this.$items=item.parent().children(".item");return this.$items.index(item||this.$active)};Carousel.prototype.getItemForDirection=function(direction,active){var activeIndex=this.getItemIndex(active);var willWrap=direction=="prev"&&activeIndex===0||direction=="next"&&activeIndex==this.$items.length-1;if(willWrap&&!this.options.wrap)return active;var delta=direction=="prev"?-1:1;var itemIndex=(activeIndex+delta)%this.$items.length;return this.$items.eq(itemIndex)};Carousel.prototype.to=function(pos){var that=this;var activeIndex=this.getItemIndex(this.$active=this.$element.find(".item.active"));if(pos>this.$items.length-1||pos<0)return;if(this.sliding)return this.$element.one("slid.bs.carousel",function(){that.to(pos)});if(activeIndex==pos)return this.pause().cycle();return this.slide(pos>activeIndex?"next":"prev",this.$items.eq(pos))};Carousel.prototype.pause=function(e){e||(this.paused=true);if(this.$element.find(".next, .prev").length&&$.support.transition){this.$element.trigger($.support.transition.end);this.cycle(true)}this.interval=clearInterval(this.interval);return this};Carousel.prototype.next=function(){if(this.sliding)return;return this.slide("next")};Carousel.prototype.prev=function(){if(this.sliding)return;return this.slide("prev")};Carousel.prototype.slide=function(type,next){var $active=this.$element.find(".item.active");var $next=next||this.getItemForDirection(type,$active);var isCycling=this.interval;var direction=type=="next"?"left":"right";var that=this;if($next.hasClass("active"))return this.sliding=false;var relatedTarget=$next[0];var slideEvent=$.Event("slide.bs.carousel",{relatedTarget:relatedTarget,direction:direction});this.$element.trigger(slideEvent);if(slideEvent.isDefaultPrevented())return;this.sliding=true;isCycling&&this.pause();if(this.$indicators.length){this.$indicators.find(".active").removeClass("active");var $nextIndicator=$(this.$indicators.children()[this.getItemIndex($next)]);$nextIndicator&&$nextIndicator.addClass("active")}var slidEvent=$.Event("slid.bs.carousel",{relatedTarget:relatedTarget,direction:direction});if($.support.transition&&this.$element.hasClass("slide")){$next.addClass(type);if(typeof $next==="object"&&$next.length){$next[0].offsetWidth}$active.addClass(direction);$next.addClass(direction);$active.one("bsTransitionEnd",function(){$next.removeClass([type,direction].join(" ")).addClass("active");$active.removeClass(["active",direction].join(" "));that.sliding=false;setTimeout(function(){that.$element.trigger(slidEvent)},0)}).emulateTransitionEnd(Carousel.TRANSITION_DURATION)}else{$active.removeClass("active");$next.addClass("active");this.sliding=false;this.$element.trigger(slidEvent)}isCycling&&this.cycle();return this};function Plugin(option){return this.each(function(){var $this=$(this);var data=$this.data("bs.carousel");var options=$.extend({},Carousel.DEFAULTS,$this.data(),typeof option=="object"&&option);var action=typeof option=="string"?option:options.slide;if(!data)$this.data("bs.carousel",data=new Carousel(this,options));if(typeof option=="number")data.to(option);else if(action)data[action]();else if(options.interval)data.pause().cycle()})}var old=$.fn.carousel;$.fn.carousel=Plugin;$.fn.carousel.Constructor=Carousel;$.fn.carousel.noConflict=function(){$.fn.carousel=old;return this};var clickHandler=function(e){var $this=$(this);var href=$this.attr("href");if(href){href=href.replace(/.*(?=#[^\s]+$)/,"")}var target=$this.attr("data-target")||href;var $target=$(document).find(target);if(!$target.hasClass("carousel"))return;var options=$.extend({},$target.data(),$this.data());var slideIndex=$this.attr("data-slide-to");if(slideIndex)options.interval=false;Plugin.call($target,options);if(slideIndex){$target.data("bs.carousel").to(slideIndex)}e.preventDefault()};$(document).on("click.bs.carousel.data-api","[data-slide]",clickHandler).on("click.bs.carousel.data-api","[data-slide-to]",clickHandler);$(window).on("load",function(){$('[data-ride="carousel"]').each(function(){var $carousel=$(this);Plugin.call($carousel,$carousel.data())})})}(jQuery);+function($){"use strict";var Collapse=function(element,options){this.$element=$(element);this.options=$.extend({},Collapse.DEFAULTS,options);this.$trigger=$('[data-toggle="collapse"][href="#'+element.id+'"],'+'[data-toggle="collapse"][data-target="#'+element.id+'"]');this.transitioning=null;if(this.options.parent){this.$parent=this.getParent()}else{this.addAriaAndCollapsedClass(this.$element,this.$trigger)}if(this.options.toggle)this.toggle()};Collapse.VERSION="3.4.1";Collapse.TRANSITION_DURATION=350;Collapse.DEFAULTS={toggle:true};Collapse.prototype.dimension=function(){var hasWidth=this.$element.hasClass("width");return hasWidth?"width":"height"};Collapse.prototype.show=function(){if(this.transitioning||this.$element.hasClass("in"))return;var activesData;var actives=this.$parent&&this.$parent.children(".panel").children(".in, .collapsing");if(actives&&actives.length){activesData=actives.data("bs.collapse");if(activesData&&activesData.transitioning)return}var startEvent=$.Event("show.bs.collapse");this.$element.trigger(startEvent);if(startEvent.isDefaultPrevented())return;if(actives&&actives.length){Plugin.call(actives,"hide");activesData||actives.data("bs.collapse",null)}var dimension=this.dimension();this.$element.removeClass("collapse").addClass("collapsing")[dimension](0).attr("aria-expanded",true);this.$trigger.removeClass("collapsed").attr("aria-expanded",true);this.transitioning=1;var complete=function(){this.$element.removeClass("collapsing").addClass("collapse in")[dimension]("");this.transitioning=0;this.$element.trigger("shown.bs.collapse")};if(!$.support.transition)return complete.call(this);var scrollSize=$.camelCase(["scroll",dimension].join("-"));this.$element.one("bsTransitionEnd",$.proxy(complete,this)).emulateTransitionEnd(Collapse.TRANSITION_DURATION)[dimension](this.$element[0][scrollSize])};Collapse.prototype.hide=function(){if(this.transitioning||!this.$element.hasClass("in"))return;var startEvent=$.Event("hide.bs.collapse");this.$element.trigger(startEvent);if(startEvent.isDefaultPrevented())return;var dimension=this.dimension();this.$element[dimension](this.$element[dimension]())[0].offsetHeight;this.$element.addClass("collapsing").removeClass("collapse in").attr("aria-expanded",false);this.$trigger.addClass("collapsed").attr("aria-expanded",false);this.transitioning=1;var complete=function(){this.transitioning=0;this.$element.removeClass("collapsing").addClass("collapse").trigger("hidden.bs.collapse")};if(!$.support.transition)return complete.call(this);this.$element[dimension](0).one("bsTransitionEnd",$.proxy(complete,this)).emulateTransitionEnd(Collapse.TRANSITION_DURATION)};Collapse.prototype.toggle=function(){this[this.$element.hasClass("in")?"hide":"show"]()};Collapse.prototype.getParent=function(){return $(document).find(this.options.parent).find('[data-toggle="collapse"][data-parent="'+this.options.parent+'"]').each($.proxy(function(i,element){var $element=$(element);this.addAriaAndCollapsedClass(getTargetFromTrigger($element),$element)},this)).end()};Collapse.prototype.addAriaAndCollapsedClass=function($element,$trigger){var isOpen=$element.hasClass("in");$element.attr("aria-expanded",isOpen);$trigger.toggleClass("collapsed",!isOpen).attr("aria-expanded",isOpen)};function getTargetFromTrigger($trigger){var href;var target=$trigger.attr("data-target")||(href=$trigger.attr("href"))&&href.replace(/.*(?=#[^\s]+$)/,"");return $(document).find(target)}function Plugin(option){return this.each(function(){var $this=$(this);var data=$this.data("bs.collapse");var options=$.extend({},Collapse.DEFAULTS,$this.data(),typeof option=="object"&&option);if(!data&&options.toggle&&/show|hide/.test(option))options.toggle=false;if(!data)$this.data("bs.collapse",data=new Collapse(this,options));if(typeof option=="string")data[option]()})}var old=$.fn.collapse;$.fn.collapse=Plugin;$.fn.collapse.Constructor=Collapse;$.fn.collapse.noConflict=function(){$.fn.collapse=old;return this};$(document).on("click.bs.collapse.data-api",'[data-toggle="collapse"]',function(e){var $this=$(this);if(!$this.attr("data-target"))e.preventDefault();var $target=getTargetFromTrigger($this);var data=$target.data("bs.collapse");var option=data?"toggle":$this.data();Plugin.call($target,option)})}(jQuery);+function($){"use strict";var backdrop=".dropdown-backdrop";var toggle='[data-toggle="dropdown"]';var Dropdown=function(element){$(element).on("click.bs.dropdown",this.toggle)};Dropdown.VERSION="3.4.1";function getParent($this){var selector=$this.attr("data-target");if(!selector){selector=$this.attr("href");selector=selector&&/#[A-Za-z]/.test(selector)&&selector.replace(/.*(?=#[^\s]*$)/,"")}var $parent=selector!=="#"?$(document).find(selector):null;return $parent&&$parent.length?$parent:$this.parent()}function clearMenus(e){if(e&&e.which===3)return;$(backdrop).remove();$(toggle).each(function(){var $this=$(this);var $parent=getParent($this);var relatedTarget={relatedTarget:this};if(!$parent.hasClass("open"))return;if(e&&e.type=="click"&&/input|textarea/i.test(e.target.tagName)&&$.contains($parent[0],e.target))return;$parent.trigger(e=$.Event("hide.bs.dropdown",relatedTarget));if(e.isDefaultPrevented())return;$this.attr("aria-expanded","false");$parent.removeClass("open").trigger($.Event("hidden.bs.dropdown",relatedTarget))})}Dropdown.prototype.toggle=function(e){var $this=$(this);if($this.is(".disabled, :disabled"))return;var $parent=getParent($this);var isActive=$parent.hasClass("open");clearMenus();if(!isActive){if("ontouchstart"in document.documentElement&&!$parent.closest(".navbar-nav").length){$(document.createElement("div")).addClass("dropdown-backdrop").insertAfter($(this)).on("click",clearMenus)}var relatedTarget={relatedTarget:this};$parent.trigger(e=$.Event("show.bs.dropdown",relatedTarget));if(e.isDefaultPrevented())return;$this.trigger("focus").attr("aria-expanded","true");$parent.toggleClass("open").trigger($.Event("shown.bs.dropdown",relatedTarget))}return false};Dropdown.prototype.keydown=function(e){if(!/(38|40|27|32)/.test(e.which)||/input|textarea/i.test(e.target.tagName))return;var $this=$(this);e.preventDefault();e.stopPropagation();if($this.is(".disabled, :disabled"))return;var $parent=getParent($this);var isActive=$parent.hasClass("open");if(!isActive&&e.which!=27||isActive&&e.which==27){if(e.which==27)$parent.find(toggle).trigger("focus");return $this.trigger("click")}var desc=" li:not(.disabled):visible a";var $items=$parent.find(".dropdown-menu"+desc);if(!$items.length)return;var index=$items.index(e.target);if(e.which==38&&index>0)index--;if(e.which==40&&index<$items.length-1)index++;if(!~index)index=0;$items.eq(index).trigger("focus")};function Plugin(option){return this.each(function(){var $this=$(this);var data=$this.data("bs.dropdown");if(!data)$this.data("bs.dropdown",data=new Dropdown(this));if(typeof option=="string")data[option].call($this)})}var old=$.fn.dropdown;$.fn.dropdown=Plugin;$.fn.dropdown.Constructor=Dropdown;$.fn.dropdown.noConflict=function(){$.fn.dropdown=old;return this};$(document).on("click.bs.dropdown.data-api",clearMenus).on("click.bs.dropdown.data-api",".dropdown form",function(e){e.stopPropagation()}).on("click.bs.dropdown.data-api",toggle,Dropdown.prototype.toggle).on("keydown.bs.dropdown.data-api",toggle,Dropdown.prototype.keydown).on("keydown.bs.dropdown.data-api",".dropdown-menu",Dropdown.prototype.keydown)}(jQuery);+function($){"use strict";var Modal=function(element,options){this.options=options;this.$body=$(document.body);this.$element=$(element);this.$dialog=this.$element.find(".modal-dialog");this.$backdrop=null;this.isShown=null;this.originalBodyPad=null;this.scrollbarWidth=0;this.ignoreBackdropClick=false;this.fixedContent=".navbar-fixed-top, .navbar-fixed-bottom";if(this.options.remote){this.$element.find(".modal-content").load(this.options.remote,$.proxy(function(){this.$element.trigger("loaded.bs.modal")},this))}};Modal.VERSION="3.4.1";Modal.TRANSITION_DURATION=300;Modal.BACKDROP_TRANSITION_DURATION=150;Modal.DEFAULTS={backdrop:true,keyboard:true,show:true};Modal.prototype.toggle=function(_relatedTarget){return this.isShown?this.hide():this.show(_relatedTarget)};Modal.prototype.show=function(_relatedTarget){var that=this;var e=$.Event("show.bs.modal",{relatedTarget:_relatedTarget});this.$element.trigger(e);if(this.isShown||e.isDefaultPrevented())return;this.isShown=true;this.checkScrollbar();this.setScrollbar();this.$body.addClass("modal-open");this.escape();this.resize();this.$element.on("click.dismiss.bs.modal",'[data-dismiss="modal"]',$.proxy(this.hide,this));this.$dialog.on("mousedown.dismiss.bs.modal",function(){that.$element.one("mouseup.dismiss.bs.modal",function(e){if($(e.target).is(that.$element))that.ignoreBackdropClick=true})});this.backdrop(function(){var transition=$.support.transition&&that.$element.hasClass("fade");if(!that.$element.parent().length){that.$element.appendTo(that.$body)}that.$element.show().scrollTop(0);that.adjustDialog();if(transition){that.$element[0].offsetWidth}that.$element.addClass("in");that.enforceFocus();var e=$.Event("shown.bs.modal",{relatedTarget:_relatedTarget});transition?that.$dialog.one("bsTransitionEnd",function(){that.$element.trigger("focus").trigger(e)}).emulateTransitionEnd(Modal.TRANSITION_DURATION):that.$element.trigger("focus").trigger(e)})};Modal.prototype.hide=function(e){if(e)e.preventDefault();e=$.Event("hide.bs.modal");this.$element.trigger(e);if(!this.isShown||e.isDefaultPrevented())return;this.isShown=false;this.escape();this.resize();$(document).off("focusin.bs.modal");this.$element.removeClass("in").off("click.dismiss.bs.modal").off("mouseup.dismiss.bs.modal");this.$dialog.off("mousedown.dismiss.bs.modal");$.support.transition&&this.$element.hasClass("fade")?this.$element.one("bsTransitionEnd",$.proxy(this.hideModal,this)).emulateTransitionEnd(Modal.TRANSITION_DURATION):this.hideModal()};Modal.prototype.enforceFocus=function(){$(document).off("focusin.bs.modal").on("focusin.bs.modal",$.proxy(function(e){if(document!==e.target&&this.$element[0]!==e.target&&!this.$element.has(e.target).length){this.$element.trigger("focus")}},this))};Modal.prototype.escape=function(){if(this.isShown&&this.options.keyboard){this.$element.on("keydown.dismiss.bs.modal",$.proxy(function(e){e.which==27&&this.hide()},this))}else if(!this.isShown){this.$element.off("keydown.dismiss.bs.modal")}};Modal.prototype.resize=function(){if(this.isShown){$(window).on("resize.bs.modal",$.proxy(this.handleUpdate,this))}else{$(window).off("resize.bs.modal")}};Modal.prototype.hideModal=function(){var that=this;this.$element.hide();this.backdrop(function(){that.$body.removeClass("modal-open");that.resetAdjustments();that.resetScrollbar();that.$element.trigger("hidden.bs.modal")})};Modal.prototype.removeBackdrop=function(){this.$backdrop&&this.$backdrop.remove();this.$backdrop=null};Modal.prototype.backdrop=function(callback){var that=this;var animate=this.$element.hasClass("fade")?"fade":"";if(this.isShown&&this.options.backdrop){var doAnimate=$.support.transition&&animate;this.$backdrop=$(document.createElement("div")).addClass("modal-backdrop "+animate).appendTo(this.$body);this.$element.on("click.dismiss.bs.modal",$.proxy(function(e){if(this.ignoreBackdropClick){this.ignoreBackdropClick=false;return}if(e.target!==e.currentTarget)return;this.options.backdrop=="static"?this.$element[0].focus():this.hide()},this));if(doAnimate)this.$backdrop[0].offsetWidth;this.$backdrop.addClass("in");if(!callback)return;doAnimate?this.$backdrop.one("bsTransitionEnd",callback).emulateTransitionEnd(Modal.BACKDROP_TRANSITION_DURATION):callback()}else if(!this.isShown&&this.$backdrop){this.$backdrop.removeClass("in");var callbackRemove=function(){that.removeBackdrop();callback&&callback()};$.support.transition&&this.$element.hasClass("fade")?this.$backdrop.one("bsTransitionEnd",callbackRemove).emulateTransitionEnd(Modal.BACKDROP_TRANSITION_DURATION):callbackRemove()}else if(callback){callback()}};Modal.prototype.handleUpdate=function(){this.adjustDialog()};Modal.prototype.adjustDialog=function(){var modalIsOverflowing=this.$element[0].scrollHeight>document.documentElement.clientHeight;this.$element.css({paddingLeft:!this.bodyIsOverflowing&&modalIsOverflowing?this.scrollbarWidth:"",paddingRight:this.bodyIsOverflowing&&!modalIsOverflowing?this.scrollbarWidth:""})};Modal.prototype.resetAdjustments=function(){this.$element.css({paddingLeft:"",paddingRight:""})};Modal.prototype.checkScrollbar=function(){var fullWindowWidth=window.innerWidth;if(!fullWindowWidth){var documentElementRect=document.documentElement.getBoundingClientRect();fullWindowWidth=documentElementRect.right-Math.abs(documentElementRect.left)}this.bodyIsOverflowing=document.body.clientWidth<fullWindowWidth;this.scrollbarWidth=this.measureScrollbar()};Modal.prototype.setScrollbar=function(){var bodyPad=parseInt(this.$body.css("padding-right")||0,10);this.originalBodyPad=document.body.style.paddingRight||"";var scrollbarWidth=this.scrollbarWidth;if(this.bodyIsOverflowing){this.$body.css("padding-right",bodyPad+scrollbarWidth);$(this.fixedContent).each(function(index,element){var actualPadding=element.style.paddingRight;var calculatedPadding=$(element).css("padding-right");$(element).data("padding-right",actualPadding).css("padding-right",parseFloat(calculatedPadding)+scrollbarWidth+"px")})}};Modal.prototype.resetScrollbar=function(){this.$body.css("padding-right",this.originalBodyPad);$(this.fixedContent).each(function(index,element){var padding=$(element).data("padding-right");$(element).removeData("padding-right");element.style.paddingRight=padding?padding:""})};Modal.prototype.measureScrollbar=function(){var scrollDiv=document.createElement("div");scrollDiv.className="modal-scrollbar-measure";this.$body.append(scrollDiv);var scrollbarWidth=scrollDiv.offsetWidth-scrollDiv.clientWidth;this.$body[0].removeChild(scrollDiv);return scrollbarWidth};function Plugin(option,_relatedTarget){return this.each(function(){var $this=$(this);var data=$this.data("bs.modal");var options=$.extend({},Modal.DEFAULTS,$this.data(),typeof option=="object"&&option);if(!data)$this.data("bs.modal",data=new Modal(this,options));if(typeof option=="string")data[option](_relatedTarget);else if(options.show)data.show(_relatedTarget)})}var old=$.fn.modal;$.fn.modal=Plugin;$.fn.modal.Constructor=Modal;$.fn.modal.noConflict=function(){$.fn.modal=old;return this};$(document).on("click.bs.modal.data-api",'[data-toggle="modal"]',function(e){var $this=$(this);var href=$this.attr("href");var target=$this.attr("data-target")||href&&href.replace(/.*(?=#[^\s]+$)/,"");var $target=$(document).find(target);var option=$target.data("bs.modal")?"toggle":$.extend({remote:!/#/.test(href)&&href},$target.data(),$this.data());if($this.is("a"))e.preventDefault();$target.one("show.bs.modal",function(showEvent){if(showEvent.isDefaultPrevented())return;$target.one("hidden.bs.modal",function(){$this.is(":visible")&&$this.trigger("focus")})});Plugin.call($target,option,this)})}(jQuery);+function($){"use strict";var DISALLOWED_ATTRIBUTES=["sanitize","whiteList","sanitizeFn"];var uriAttrs=["background","cite","href","itemtype","longdesc","poster","src","xlink:href"];var ARIA_ATTRIBUTE_PATTERN=/^aria-[\w-]*$/i;var DefaultWhitelist={"*":["class","dir","id","lang","role",ARIA_ATTRIBUTE_PATTERN],a:["target","href","title","rel"],area:[],b:[],br:[],col:[],code:[],div:[],em:[],hr:[],h1:[],h2:[],h3:[],h4:[],h5:[],h6:[],i:[],img:["src","alt","title","width","height"],li:[],ol:[],p:[],pre:[],s:[],small:[],span:[],sub:[],sup:[],strong:[],u:[],ul:[]};var SAFE_URL_PATTERN=/^(?:(?:https?|mailto|ftp|tel|file):|[^&:/?#]*(?:[/?#]|$))/gi;var DATA_URL_PATTERN=/^data:(?:image\/(?:bmp|gif|jpeg|jpg|png|tiff|webp)|video\/(?:mpeg|mp4|ogg|webm)|audio\/(?:mp3|oga|ogg|opus));base64,[a-z0-9+/]+=*$/i;function allowedAttribute(attr,allowedAttributeList){var attrName=attr.nodeName.toLowerCase();if($.inArray(attrName,allowedAttributeList)!==-1){if($.inArray(attrName,uriAttrs)!==-1){return Boolean(attr.nodeValue.match(SAFE_URL_PATTERN)||attr.nodeValue.match(DATA_URL_PATTERN))}return true}var regExp=$(allowedAttributeList).filter(function(index,value){return value instanceof RegExp});for(var i=0,l=regExp.length;i<l;i++){if(attrName.match(regExp[i])){return true}}return false}function sanitizeHtml(unsafeHtml,whiteList,sanitizeFn){if(unsafeHtml.length===0){return unsafeHtml}if(sanitizeFn&&typeof sanitizeFn==="function"){return sanitizeFn(unsafeHtml)}if(!document.implementation||!document.implementation.createHTMLDocument){return unsafeHtml}var createdDocument=document.implementation.createHTMLDocument("sanitization");createdDocument.body.innerHTML=unsafeHtml;var whitelistKeys=$.map(whiteList,function(el,i){return i});var elements=$(createdDocument.body).find("*");for(var i=0,len=elements.length;i<len;i++){var el=elements[i];var elName=el.nodeName.toLowerCase();if($.inArray(elName,whitelistKeys)===-1){el.parentNode.removeChild(el);continue}var attributeList=$.map(el.attributes,function(el){return el});var whitelistedAttributes=[].concat(whiteList["*"]||[],whiteList[elName]||[]);for(var j=0,len2=attributeList.length;j<len2;j++){if(!allowedAttribute(attributeList[j],whitelistedAttributes)){el.removeAttribute(attributeList[j].nodeName)}}}return createdDocument.body.innerHTML}var Tooltip=function(element,options){this.type=null;this.options=null;this.enabled=null;this.timeout=null;this.hoverState=null;this.$element=null;this.inState=null;this.init("tooltip",element,options)};Tooltip.VERSION="3.4.1";Tooltip.TRANSITION_DURATION=150;Tooltip.DEFAULTS={animation:true,placement:"top",selector:false,template:'<div class="tooltip" role="tooltip"><div class="tooltip-arrow"></div><div class="tooltip-inner"></div></div>',trigger:"hover focus",title:"",delay:0,html:false,container:false,viewport:{selector:"body",padding:0},sanitize:true,sanitizeFn:null,whiteList:DefaultWhitelist};Tooltip.prototype.init=function(type,element,options){this.enabled=true;this.type=type;this.$element=$(element);this.options=this.getOptions(options);this.$viewport=this.options.viewport&&$(document).find($.isFunction(this.options.viewport)?this.options.viewport.call(this,this.$element):this.options.viewport.selector||this.options.viewport);this.inState={click:false,hover:false,focus:false};if(this.$element[0]instanceof document.constructor&&!this.options.selector){throw new Error("`selector` option must be specified when initializing "+this.type+" on the window.document object!")}var triggers=this.options.trigger.split(" ");for(var i=triggers.length;i--;){var trigger=triggers[i];if(trigger=="click"){this.$element.on("click."+this.type,this.options.selector,$.proxy(this.toggle,this))}else if(trigger!="manual"){var eventIn=trigger=="hover"?"mouseenter":"focusin";var eventOut=trigger=="hover"?"mouseleave":"focusout";this.$element.on(eventIn+"."+this.type,this.options.selector,$.proxy(this.enter,this));this.$element.on(eventOut+"."+this.type,this.options.selector,$.proxy(this.leave,this))}}this.options.selector?this._options=$.extend({},this.options,{trigger:"manual",selector:""}):this.fixTitle()};Tooltip.prototype.getDefaults=function(){return Tooltip.DEFAULTS};Tooltip.prototype.getOptions=function(options){var dataAttributes=this.$element.data();for(var dataAttr in dataAttributes){if(dataAttributes.hasOwnProperty(dataAttr)&&$.inArray(dataAttr,DISALLOWED_ATTRIBUTES)!==-1){delete dataAttributes[dataAttr]}}options=$.extend({},this.getDefaults(),dataAttributes,options);if(options.delay&&typeof options.delay=="number"){options.delay={show:options.delay,hide:options.delay}}if(options.sanitize){options.template=sanitizeHtml(options.template,options.whiteList,options.sanitizeFn)}return options};Tooltip.prototype.getDelegateOptions=function(){var options={};var defaults=this.getDefaults();this._options&&$.each(this._options,function(key,value){if(defaults[key]!=value)options[key]=value});return options};Tooltip.prototype.enter=function(obj){var self=obj instanceof this.constructor?obj:$(obj.currentTarget).data("bs."+this.type);if(!self){self=new this.constructor(obj.currentTarget,this.getDelegateOptions());$(obj.currentTarget).data("bs."+this.type,self)}if(obj instanceof $.Event){self.inState[obj.type=="focusin"?"focus":"hover"]=true}if(self.tip().hasClass("in")||self.hoverState=="in"){self.hoverState="in";return}clearTimeout(self.timeout);self.hoverState="in";if(!self.options.delay||!self.options.delay.show)return self.show();self.timeout=setTimeout(function(){if(self.hoverState=="in")self.show()},self.options.delay.show)};Tooltip.prototype.isInStateTrue=function(){for(var key in this.inState){if(this.inState[key])return true}return false};Tooltip.prototype.leave=function(obj){var self=obj instanceof this.constructor?obj:$(obj.currentTarget).data("bs."+this.type);if(!self){self=new this.constructor(obj.currentTarget,this.getDelegateOptions());$(obj.currentTarget).data("bs."+this.type,self)}if(obj instanceof $.Event){self.inState[obj.type=="focusout"?"focus":"hover"]=false}if(self.isInStateTrue())return;clearTimeout(self.timeout);self.hoverState="out";if(!self.options.delay||!self.options.delay.hide)return self.hide();self.timeout=setTimeout(function(){if(self.hoverState=="out")self.hide()},self.options.delay.hide)};Tooltip.prototype.show=function(){var e=$.Event("show.bs."+this.type);if(this.hasContent()&&this.enabled){this.$element.trigger(e);var inDom=$.contains(this.$element[0].ownerDocument.documentElement,this.$element[0]);if(e.isDefaultPrevented()||!inDom)return;var that=this;var $tip=this.tip();var tipId=this.getUID(this.type);this.setContent();$tip.attr("id",tipId);this.$element.attr("aria-describedby",tipId);if(this.options.animation)$tip.addClass("fade");var placement=typeof this.options.placement=="function"?this.options.placement.call(this,$tip[0],this.$element[0]):this.options.placement;var autoToken=/\s?auto?\s?/i;var autoPlace=autoToken.test(placement);if(autoPlace)placement=placement.replace(autoToken,"")||"top";$tip.detach().css({top:0,left:0,display:"block"}).addClass(placement).data("bs."+this.type,this);this.options.container?$tip.appendTo($(document).find(this.options.container)):$tip.insertAfter(this.$element);this.$element.trigger("inserted.bs."+this.type);var pos=this.getPosition();var actualWidth=$tip[0].offsetWidth;var actualHeight=$tip[0].offsetHeight;if(autoPlace){var orgPlacement=placement;var viewportDim=this.getPosition(this.$viewport);placement=placement=="bottom"&&pos.bottom+actualHeight>viewportDim.bottom?"top":placement=="top"&&pos.top-actualHeight<viewportDim.top?"bottom":placement=="right"&&pos.right+actualWidth>viewportDim.width?"left":placement=="left"&&pos.left-actualWidth<viewportDim.left?"right":placement;$tip.removeClass(orgPlacement).addClass(placement)}var calculatedOffset=this.getCalculatedOffset(placement,pos,actualWidth,actualHeight);this.applyPlacement(calculatedOffset,placement);var complete=function(){var prevHoverState=that.hoverState;that.$element.trigger("shown.bs."+that.type);that.hoverState=null;if(prevHoverState=="out")that.leave(that)};$.support.transition&&this.$tip.hasClass("fade")?$tip.one("bsTransitionEnd",complete).emulateTransitionEnd(Tooltip.TRANSITION_DURATION):complete()}};Tooltip.prototype.applyPlacement=function(offset,placement){var $tip=this.tip();var width=$tip[0].offsetWidth;var height=$tip[0].offsetHeight;var marginTop=parseInt($tip.css("margin-top"),10);var marginLeft=parseInt($tip.css("margin-left"),10);if(isNaN(marginTop))marginTop=0;if(isNaN(marginLeft))marginLeft=0;offset.top+=marginTop;offset.left+=marginLeft;$.offset.setOffset($tip[0],$.extend({using:function(props){$tip.css({top:Math.round(props.top),left:Math.round(props.left)})}},offset),0);$tip.addClass("in");var actualWidth=$tip[0].offsetWidth;var actualHeight=$tip[0].offsetHeight;if(placement=="top"&&actualHeight!=height){offset.top=offset.top+height-actualHeight}var delta=this.getViewportAdjustedDelta(placement,offset,actualWidth,actualHeight);if(delta.left)offset.left+=delta.left;else offset.top+=delta.top;var isVertical=/top|bottom/.test(placement);var arrowDelta=isVertical?delta.left*2-width+actualWidth:delta.top*2-height+actualHeight;var arrowOffsetPosition=isVertical?"offsetWidth":"offsetHeight";$tip.offset(offset);this.replaceArrow(arrowDelta,$tip[0][arrowOffsetPosition],isVertical)};Tooltip.prototype.replaceArrow=function(delta,dimension,isVertical){this.arrow().css(isVertical?"left":"top",50*(1-delta/dimension)+"%").css(isVertical?"top":"left","")};Tooltip.prototype.setContent=function(){var $tip=this.tip();var title=this.getTitle();if(this.options.html){if(this.options.sanitize){title=sanitizeHtml(title,this.options.whiteList,this.options.sanitizeFn)}$tip.find(".tooltip-inner").html(title)}else{$tip.find(".tooltip-inner").text(title)}$tip.removeClass("fade in top bottom left right")};Tooltip.prototype.hide=function(callback){var that=this;var $tip=$(this.$tip);var e=$.Event("hide.bs."+this.type);function complete(){if(that.hoverState!="in")$tip.detach();if(that.$element){that.$element.removeAttr("aria-describedby").trigger("hidden.bs."+that.type)}callback&&callback()}this.$element.trigger(e);if(e.isDefaultPrevented())return;$tip.removeClass("in");$.support.transition&&$tip.hasClass("fade")?$tip.one("bsTransitionEnd",complete).emulateTransitionEnd(Tooltip.TRANSITION_DURATION):complete();this.hoverState=null;return this};Tooltip.prototype.fixTitle=function(){var $e=this.$element;if($e.attr("title")||typeof $e.attr("data-original-title")!="string"){$e.attr("data-original-title",$e.attr("title")||"").attr("title","")}};Tooltip.prototype.hasContent=function(){return this.getTitle()};Tooltip.prototype.getPosition=function($element){$element=$element||this.$element;var el=$element[0];var isBody=el.tagName=="BODY";var elRect=el.getBoundingClientRect();if(elRect.width==null){elRect=$.extend({},elRect,{width:elRect.right-elRect.left,height:elRect.bottom-elRect.top})}var isSvg=window.SVGElement&&el instanceof window.SVGElement;var elOffset=isBody?{top:0,left:0}:isSvg?null:$element.offset();var scroll={scroll:isBody?document.documentElement.scrollTop||document.body.scrollTop:$element.scrollTop()};var outerDims=isBody?{width:$(window).width(),height:$(window).height()}:null;return $.extend({},elRect,scroll,outerDims,elOffset)};Tooltip.prototype.getCalculatedOffset=function(placement,pos,actualWidth,actualHeight){return placement=="bottom"?{top:pos.top+pos.height,left:pos.left+pos.width/2-actualWidth/2}:placement=="top"?{top:pos.top-actualHeight,left:pos.left+pos.width/2-actualWidth/2}:placement=="left"?{top:pos.top+pos.height/2-actualHeight/2,left:pos.left-actualWidth}:{top:pos.top+pos.height/2-actualHeight/2,left:pos.left+pos.width}};Tooltip.prototype.getViewportAdjustedDelta=function(placement,pos,actualWidth,actualHeight){var delta={top:0,left:0};if(!this.$viewport)return delta;var viewportPadding=this.options.viewport&&this.options.viewport.padding||0;var viewportDimensions=this.getPosition(this.$viewport);if(/right|left/.test(placement)){var topEdgeOffset=pos.top-viewportPadding-viewportDimensions.scroll;var bottomEdgeOffset=pos.top+viewportPadding-viewportDimensions.scroll+actualHeight;if(topEdgeOffset<viewportDimensions.top){delta.top=viewportDimensions.top-topEdgeOffset}else if(bottomEdgeOffset>viewportDimensions.top+viewportDimensions.height){delta.top=viewportDimensions.top+viewportDimensions.height-bottomEdgeOffset}}else{var leftEdgeOffset=pos.left-viewportPadding;var rightEdgeOffset=pos.left+viewportPadding+actualWidth;if(leftEdgeOffset<viewportDimensions.left){delta.left=viewportDimensions.left-leftEdgeOffset}else if(rightEdgeOffset>viewportDimensions.right){delta.left=viewportDimensions.left+viewportDimensions.width-rightEdgeOffset}}return delta};Tooltip.prototype.getTitle=function(){var title;var $e=this.$element;var o=this.options;title=$e.attr("data-original-title")||(typeof o.title=="function"?o.title.call($e[0]):o.title);return title};Tooltip.prototype.getUID=function(prefix){do{prefix+=~~(Math.random()*1e6)}while(document.getElementById(prefix));return prefix};Tooltip.prototype.tip=function(){if(!this.$tip){this.$tip=$(this.options.template);if(this.$tip.length!=1){throw new Error(this.type+" `template` option must consist of exactly 1 top-level element!")}}return this.$tip};Tooltip.prototype.arrow=function(){return this.$arrow=this.$arrow||this.tip().find(".tooltip-arrow")};Tooltip.prototype.enable=function(){this.enabled=true};Tooltip.prototype.disable=function(){this.enabled=false};Tooltip.prototype.toggleEnabled=function(){this.enabled=!this.enabled};Tooltip.prototype.toggle=function(e){var self=this;if(e){self=$(e.currentTarget).data("bs."+this.type);if(!self){self=new this.constructor(e.currentTarget,this.getDelegateOptions());$(e.currentTarget).data("bs."+this.type,self)}}if(e){self.inState.click=!self.inState.click;if(self.isInStateTrue())self.enter(self);else self.leave(self)}else{self.tip().hasClass("in")?self.leave(self):self.enter(self)}};Tooltip.prototype.destroy=function(){var that=this;clearTimeout(this.timeout);this.hide(function(){that.$element.off("."+that.type).removeData("bs."+that.type);if(that.$tip){that.$tip.detach()}that.$tip=null;that.$arrow=null;that.$viewport=null;that.$element=null})};Tooltip.prototype.sanitizeHtml=function(unsafeHtml){return sanitizeHtml(unsafeHtml,this.options.whiteList,this.options.sanitizeFn)};function Plugin(option){return this.each(function(){var $this=$(this);var data=$this.data("bs.tooltip");var options=typeof option=="object"&&option;if(!data&&/destroy|hide/.test(option))return;if(!data)$this.data("bs.tooltip",data=new Tooltip(this,options));if(typeof option=="string")data[option]()})}var old=$.fn.tooltip;$.fn.tooltip=Plugin;$.fn.tooltip.Constructor=Tooltip;$.fn.tooltip.noConflict=function(){$.fn.tooltip=old;return this}}(jQuery);+function($){"use strict";var Popover=function(element,options){this.init("popover",element,options)};if(!$.fn.tooltip)throw new Error("Popover requires tooltip.js");Popover.VERSION="3.4.1";Popover.DEFAULTS=$.extend({},$.fn.tooltip.Constructor.DEFAULTS,{placement:"right",trigger:"click",content:"",template:'<div class="popover" role="tooltip"><div class="arrow"></div><h3 class="popover-title"></h3><div class="popover-content"></div></div>'});Popover.prototype=$.extend({},$.fn.tooltip.Constructor.prototype);Popover.prototype.constructor=Popover;Popover.prototype.getDefaults=function(){return Popover.DEFAULTS};Popover.prototype.setContent=function(){var $tip=this.tip();var title=this.getTitle();var content=this.getContent();if(this.options.html){var typeContent=typeof content;if(this.options.sanitize){title=this.sanitizeHtml(title);if(typeContent==="string"){content=this.sanitizeHtml(content)}}$tip.find(".popover-title").html(title);$tip.find(".popover-content").children().detach().end()[typeContent==="string"?"html":"append"](content)}else{$tip.find(".popover-title").text(title);$tip.find(".popover-content").children().detach().end().text(content)}$tip.removeClass("fade top bottom left right in");if(!$tip.find(".popover-title").html())$tip.find(".popover-title").hide()};Popover.prototype.hasContent=function(){return this.getTitle()||this.getContent()};Popover.prototype.getContent=function(){var $e=this.$element;var o=this.options;return $e.attr("data-content")||(typeof o.content=="function"?o.content.call($e[0]):o.content)};Popover.prototype.arrow=function(){return this.$arrow=this.$arrow||this.tip().find(".arrow")};function Plugin(option){return this.each(function(){var $this=$(this);var data=$this.data("bs.popover");var options=typeof option=="object"&&option;if(!data&&/destroy|hide/.test(option))return;if(!data)$this.data("bs.popover",data=new Popover(this,options));if(typeof option=="string")data[option]()})}var old=$.fn.popover;$.fn.popover=Plugin;$.fn.popover.Constructor=Popover;$.fn.popover.noConflict=function(){$.fn.popover=old;return this}}(jQuery);+function($){"use strict";function ScrollSpy(element,options){this.$body=$(document.body);this.$scrollElement=$(element).is(document.body)?$(window):$(element);this.options=$.extend({},ScrollSpy.DEFAULTS,options);this.selector=(this.options.target||"")+" .nav li > a";this.offsets=[];this.targets=[];this.activeTarget=null;this.scrollHeight=0;this.$scrollElement.on("scroll.bs.scrollspy",$.proxy(this.process,this));this.refresh();this.process()}ScrollSpy.VERSION="3.4.1";ScrollSpy.DEFAULTS={offset:10};ScrollSpy.prototype.getScrollHeight=function(){return this.$scrollElement[0].scrollHeight||Math.max(this.$body[0].scrollHeight,document.documentElement.scrollHeight)};ScrollSpy.prototype.refresh=function(){var that=this;var offsetMethod="offset";var offsetBase=0;this.offsets=[];this.targets=[];this.scrollHeight=this.getScrollHeight();if(!$.isWindow(this.$scrollElement[0])){offsetMethod="position";offsetBase=this.$scrollElement.scrollTop()}this.$body.find(this.selector).map(function(){var $el=$(this);var href=$el.data("target")||$el.attr("href");var $href=/^#./.test(href)&&$(href);return $href&&$href.length&&$href.is(":visible")&&[[$href[offsetMethod]().top+offsetBase,href]]||null}).sort(function(a,b){return a[0]-b[0]}).each(function(){that.offsets.push(this[0]);that.targets.push(this[1])})};ScrollSpy.prototype.process=function(){var scrollTop=this.$scrollElement.scrollTop()+this.options.offset;var scrollHeight=this.getScrollHeight();var maxScroll=this.options.offset+scrollHeight-this.$scrollElement.height();var offsets=this.offsets;var targets=this.targets;var activeTarget=this.activeTarget;var i;if(this.scrollHeight!=scrollHeight){this.refresh()}if(scrollTop>=maxScroll){return activeTarget!=(i=targets[targets.length-1])&&this.activate(i)}if(activeTarget&&scrollTop<offsets[0]){this.activeTarget=null;return this.clear()}for(i=offsets.length;i--;){activeTarget!=targets[i]&&scrollTop>=offsets[i]&&(offsets[i+1]===undefined||scrollTop<offsets[i+1])&&this.activate(targets[i])}};ScrollSpy.prototype.activate=function(target){this.activeTarget=target;this.clear();var selector=this.selector+'[data-target="'+target+'"],'+this.selector+'[href="'+target+'"]';var active=$(selector).parents("li").addClass("active");if(active.parent(".dropdown-menu").length){active=active.closest("li.dropdown").addClass("active")}active.trigger("activate.bs.scrollspy")};ScrollSpy.prototype.clear=function(){$(this.selector).parentsUntil(this.options.target,".active").removeClass("active")};function Plugin(option){return this.each(function(){var $this=$(this);var data=$this.data("bs.scrollspy");var options=typeof option=="object"&&option;if(!data)$this.data("bs.scrollspy",data=new ScrollSpy(this,options));if(typeof option=="string")data[option]()})}var old=$.fn.scrollspy;$.fn.scrollspy=Plugin;$.fn.scrollspy.Constructor=ScrollSpy;$.fn.scrollspy.noConflict=function(){$.fn.scrollspy=old;return this};$(window).on("load.bs.scrollspy.data-api",function(){$('[data-spy="scroll"]').each(function(){var $spy=$(this);Plugin.call($spy,$spy.data())})})}(jQuery);+function($){"use strict";var Tab=function(element){this.element=$(element)};Tab.VERSION="3.4.1";Tab.TRANSITION_DURATION=150;Tab.prototype.show=function(){var $this=this.element;var $ul=$this.closest("ul:not(.dropdown-menu)");var selector=$this.data("target");if(!selector){selector=$this.attr("href");selector=selector&&selector.replace(/.*(?=#[^\s]*$)/,"")}if($this.parent("li").hasClass("active"))return;var $previous=$ul.find(".active:last a");var hideEvent=$.Event("hide.bs.tab",{relatedTarget:$this[0]});var showEvent=$.Event("show.bs.tab",{relatedTarget:$previous[0]});$previous.trigger(hideEvent);$this.trigger(showEvent);if(showEvent.isDefaultPrevented()||hideEvent.isDefaultPrevented())return;var $target=$(document).find(selector);this.activate($this.closest("li"),$ul);this.activate($target,$target.parent(),function(){$previous.trigger({type:"hidden.bs.tab",relatedTarget:$this[0]});$this.trigger({type:"shown.bs.tab",relatedTarget:$previous[0]})})};Tab.prototype.activate=function(element,container,callback){var $active=container.find("> .active");var transition=callback&&$.support.transition&&($active.length&&$active.hasClass("fade")||!!container.find("> .fade").length);function next(){$active.removeClass("active").find("> .dropdown-menu > .active").removeClass("active").end().find('[data-toggle="tab"]').attr("aria-expanded",false);element.addClass("active").find('[data-toggle="tab"]').attr("aria-expanded",true);if(transition){element[0].offsetWidth;element.addClass("in")}else{element.removeClass("fade")}if(element.parent(".dropdown-menu").length){element.closest("li.dropdown").addClass("active").end().find('[data-toggle="tab"]').attr("aria-expanded",true)}callback&&callback()}$active.length&&transition?$active.one("bsTransitionEnd",next).emulateTransitionEnd(Tab.TRANSITION_DURATION):next();$active.removeClass("in")};function Plugin(option){return this.each(function(){var $this=$(this);var data=$this.data("bs.tab");if(!data)$this.data("bs.tab",data=new Tab(this));if(typeof option=="string")data[option]()})}var old=$.fn.tab;$.fn.tab=Plugin;$.fn.tab.Constructor=Tab;$.fn.tab.noConflict=function(){$.fn.tab=old;return this};var clickHandler=function(e){e.preventDefault();Plugin.call($(this),"show")};$(document).on("click.bs.tab.data-api",'[data-toggle="tab"]',clickHandler).on("click.bs.tab.data-api",'[data-toggle="pill"]',clickHandler)}(jQuery);+function($){"use strict";var Affix=function(element,options){this.options=$.extend({},Affix.DEFAULTS,options);var target=this.options.target===Affix.DEFAULTS.target?$(this.options.target):$(document).find(this.options.target);this.$target=target.on("scroll.bs.affix.data-api",$.proxy(this.checkPosition,this)).on("click.bs.affix.data-api",$.proxy(this.checkPositionWithEventLoop,this));this.$element=$(element);this.affixed=null;this.unpin=null;this.pinnedOffset=null;this.checkPosition()};Affix.VERSION="3.4.1";Affix.RESET="affix affix-top affix-bottom";Affix.DEFAULTS={offset:0,target:window};Affix.prototype.getState=function(scrollHeight,height,offsetTop,offsetBottom){var scrollTop=this.$target.scrollTop();var position=this.$element.offset();var targetHeight=this.$target.height();if(offsetTop!=null&&this.affixed=="top")return scrollTop<offsetTop?"top":false;if(this.affixed=="bottom"){if(offsetTop!=null)return scrollTop+this.unpin<=position.top?false:"bottom";return scrollTop+targetHeight<=scrollHeight-offsetBottom?false:"bottom"}var initializing=this.affixed==null;var colliderTop=initializing?scrollTop:position.top;var colliderHeight=initializing?targetHeight:height;if(offsetTop!=null&&scrollTop<=offsetTop)return"top";if(offsetBottom!=null&&colliderTop+colliderHeight>=scrollHeight-offsetBottom)return"bottom";return false};Affix.prototype.getPinnedOffset=function(){if(this.pinnedOffset)return this.pinnedOffset;this.$element.removeClass(Affix.RESET).addClass("affix");var scrollTop=this.$target.scrollTop();var position=this.$element.offset();return this.pinnedOffset=position.top-scrollTop};Affix.prototype.checkPositionWithEventLoop=function(){setTimeout($.proxy(this.checkPosition,this),1)};Affix.prototype.checkPosition=function(){if(!this.$element.is(":visible"))return;var height=this.$element.height();var offset=this.options.offset;var offsetTop=offset.top;var offsetBottom=offset.bottom;var scrollHeight=Math.max($(document).height(),$(document.body).height());if(typeof offset!="object")offsetBottom=offsetTop=offset;if(typeof offsetTop=="function")offsetTop=offset.top(this.$element);if(typeof offsetBottom=="function")offsetBottom=offset.bottom(this.$element);var affix=this.getState(scrollHeight,height,offsetTop,offsetBottom);if(this.affixed!=affix){if(this.unpin!=null)this.$element.css("top","");var affixType="affix"+(affix?"-"+affix:"");var e=$.Event(affixType+".bs.affix");this.$element.trigger(e);if(e.isDefaultPrevented())return;this.affixed=affix;this.unpin=affix=="bottom"?this.getPinnedOffset():null;this.$element.removeClass(Affix.RESET).addClass(affixType).trigger(affixType.replace("affix","affixed")+".bs.affix")}if(affix=="bottom"){this.$element.offset({top:scrollHeight-height-offsetBottom})}};function Plugin(option){return this.each(function(){var $this=$(this);var data=$this.data("bs.affix");var options=typeof option=="object"&&option;if(!data)$this.data("bs.affix",data=new Affix(this,options));if(typeof option=="string")data[option]()})}var old=$.fn.affix;$.fn.affix=Plugin;$.fn.affix.Constructor=Affix;$.fn.affix.noConflict=function(){$.fn.affix=old;return this};$(window).on("load",function(){$('[data-spy="affix"]').each(function(){var $spy=$(this);var data=$spy.data();data.offset=data.offset||{};if(data.offsetBottom!=null)data.offset.bottom=data.offsetBottom;if(data.offsetTop!=null)data.offset.top=data.offsetTop;Plugin.call($spy,data)})})}(jQuery);</script>
+<script>!function(e, i) {
+ var l, m, t, n = e.html5 || {}, r = /^<|^(?:button|map|select|textarea|object|iframe|option|optgroup)$/i, a = /^(?:a|b|code|div|fieldset|h1|h2|h3|h4|h5|h6|i|label|li|ol|p|q|span|strong|style|table|tbody|td|th|tr|ul)$/i, o = "_html5shiv", c = 0, s = {};
+ try {
+ var d = i.createElement("a");
+ d.innerHTML = "<xyz></xyz>", l = "hidden" in d, m = 1 == d.childNodes.length || (i.createElement("a"),
+ void 0 === (t = i.createDocumentFragment()).cloneNode || void 0 === t.createDocumentFragment || void 0 === t.createElement);
+ } catch (e) {
+ m = l = !0;
+ }
+ function u() {
+ var e = p.elements;
+ return "string" == typeof e ? e.split(" ") : e;
+ }
+ function h(e) {
+ var t = s[e[o]];
+ return t || (t = {}, c++, e[o] = c, s[c] = t), t;
+ }
+ function f(e, t, n) {
+ return t = t || i, m ? t.createElement(e) : !(t = (n = n || h(t)).cache[e] ? n.cache[e].cloneNode() : a.test(e) ? (n.cache[e] = n.createElem(e)).cloneNode() : n.createElem(e)).canHaveChildren || r.test(e) || t.tagUrn ? t : n.frag.appendChild(t);
+ }
+ function g(e) {
+ var t, n, r, a, o, c = h(e = e || i);
+ return !p.shivCSS || l || c.hasCSS || (c.hasCSS = (n = "article,aside,dialog,figcaption,figure,footer,header,hgroup,main,nav,section{display:block}mark{background:#FF0;color:#000}template{display:none}",
+ r = (t = e).createElement("p"), t = t.getElementsByTagName("head")[0] || t.documentElement,
+ r.innerHTML = "x<style>" + n + "</style>", !!t.insertBefore(r.lastChild, t.firstChild))),
+ m || (a = e, (o = c).cache || (o.cache = {}, o.createElem = a.createElement,
+ o.createFrag = a.createDocumentFragment, o.frag = o.createFrag()), a.createElement = function(e) {
+ return p.shivMethods ? f(e, a, o) : o.createElem(e);
+ }, a.createDocumentFragment = Function("h,f", "return function(){var n=f.cloneNode(),c=n.createElement;h.shivMethods&&(" + u().join().replace(/[\w\-:]+/g, function(e) {
+ return o.createElem(e), o.frag.createElement(e), 'c("' + e + '")';
+ }) + ");return n}")(p, o.frag)), e;
+ }
+ var p = {
+ elements: n.elements || "abbr article aside audio bdi canvas data datalist details dialog figcaption figure footer header hgroup main mark meter nav output picture progress section summary template time video",
+ version: "3.7.3",
+ shivCSS: !1 !== n.shivCSS,
+ supportsUnknownElements: m,
+ shivMethods: !1 !== n.shivMethods,
+ type: "default",
+ shivDocument: g,
+ createElement: f,
+ createDocumentFragment: function(e, t) {
+ if (e = e || i, m) return e.createDocumentFragment();
+ for (var n = (t = t || h(e)).frag.cloneNode(), r = 0, a = u(), o = a.length; r < o; r++) n.createElement(a[r]);
+ return n;
+ },
+ addElements: function(e, t) {
+ var n = p.elements;
+ "string" != typeof n && (n = n.join(" ")), "string" != typeof e && (e = e.join(" ")),
+ p.elements = n + " " + e, g(t);
+ }
+ };
+ e.html5 = p, g(i), "object" == typeof module && module.exports && (module.exports = p);
+}("undefined" != typeof window ? window : this, document);</script>
+<script>(function(c){c.matchMedia=c.matchMedia||function(c,e){var h,r=c.documentElement,t=r.firstElementChild||r.firstChild,m=c.createElement("body"),f=c.createElement("div");f.id="mq-test-1";f.style.cssText="position:absolute;top:-100em";m.style.background="none";m.appendChild(f);return function(c){f.innerHTML='­<style media="'+c+'"> #mq-test-1 { width: 42px; }</style>';r.insertBefore(m,t);h=42===f.offsetWidth;r.removeChild(m);return{matches:h,media:c}}}(c.document)})(this);
+(function(c){function D(){y(!0)}var e={};c.respond=e;e.update=function(){};var h=[],r=function(){var d=!1;try{d=new c.XMLHttpRequest}catch(b){d=new c.ActiveXObject("Microsoft.XMLHTTP")}return function(){return d}}(),t=function(d,b){var a=r();a&&(a.open("GET",d,!0),a.onreadystatechange=function(){4!==a.readyState||200!==a.status&&304!==a.status||b(a.responseText)},4!==a.readyState&&a.send(null))},m=function(d){return d.replace(e.regex.minmaxwh,"").match(e.regex.other)};e.ajax=t;e.queue=h;e.unsupportedmq=
+m;e.regex={media:/@media[^\{]+\{([^\{\}]*\{[^\}\{]*\})+/gi,keyframes:/@(?:\-(?:o|moz|webkit)\-)?keyframes[^\{]+\{(?:[^\{\}]*\{[^\}\{]*\})+[^\}]*\}/gi,comments:/\/\*[^*]*\*+([^/][^*]*\*+)*\//gi,urls:/(url\()['"]?([^\/\)'"][^:\)'"]+)['"]?(\))/g,findStyles:/@media *([^\{]+)\{([\S\s]+?)$/,only:/(only\s+)?([a-zA-Z]+)\s?/,minw:/\(\s*min\-width\s*:\s*(\s*[0-9\.]+)(px|em)\s*\)/,maxw:/\(\s*max\-width\s*:\s*(\s*[0-9\.]+)(px|em)\s*\)/,minmaxwh:/\(\s*m(in|ax)\-(height|width)\s*:\s*(\s*[0-9\.]+)(px|em)\s*\)/gi,
+other:/\([^\)]*\)/g};e.mediaQueriesSupported=c.matchMedia&&null!==c.matchMedia("only all")&&c.matchMedia("only all").matches;if(!e.mediaQueriesSupported){var f=c.document,k=f.documentElement,u=[],v=[],n=[],z={},w=f.getElementsByTagName("head")[0]||k,I=f.getElementsByTagName("base")[0],x=w.getElementsByTagName("link"),A,E,B,C=function(){var d,b=f.createElement("div"),a=f.body,c=k.style.fontSize,e=a&&a.style.fontSize,g=!1;b.style.cssText="position:absolute;font-size:1em;width:1em";a||(a=g=f.createElement("body"),
+a.style.background="none");k.style.fontSize="100%";a.style.fontSize="100%";a.appendChild(b);g&&k.insertBefore(a,k.firstChild);d=b.offsetWidth;g?k.removeChild(a):a.removeChild(b);k.style.fontSize=c;e&&(a.style.fontSize=e);return d=B=parseFloat(d)},y=function(d){var b=k.clientWidth,a="CSS1Compat"===f.compatMode&&b||f.body.clientWidth||b,b={},e=x[x.length-1],q=(new Date).getTime();if(d&&A&&30>q-A)c.clearTimeout(E),E=c.setTimeout(y,30);else{A=q;for(var g in u)if(u.hasOwnProperty(g)){d=u[g];var q=d.minw,
+s=d.maxw,l=null===q,h=null===s;q&&(q=parseFloat(q)*(-1<q.indexOf("em")?B||C():1));s&&(s=parseFloat(s)*(-1<s.indexOf("em")?B||C():1));if(!d.hasquery||(!l||!h)&&(l||a>=q)&&(h||a<=s))b[d.media]||(b[d.media]=[]),b[d.media].push(v[d.rules])}for(var p in n)n.hasOwnProperty(p)&&n[p]&&n[p].parentNode===w&&w.removeChild(n[p]);n.length=0;for(var m in b)b.hasOwnProperty(m)&&(g=f.createElement("style"),p=b[m].join("\n"),g.type="text/css",g.media=m,w.insertBefore(g,e.nextSibling),g.styleSheet?g.styleSheet.cssText=
+p:g.appendChild(f.createTextNode(p)),n.push(g))}},F=function(d,b,a){var c=d.replace(e.regex.comments,"").replace(e.regex.keyframes,"").match(e.regex.media),f=c&&c.length||0;b=b.substring(0,b.lastIndexOf("/"));var g=!f&&a;b.length&&(b+="/");g&&(f=1);for(var h=0;h<f;h++){var l,k,p;g?(l=a,v.push(d.replace(e.regex.urls,"$1"+b+"$2$3"))):(l=c[h].match(e.regex.findStyles)&&RegExp.$1,v.push(RegExp.$2&&RegExp.$2.replace(e.regex.urls,"$1"+b+"$2$3")));k=l.split(",");p=k.length;for(var n=0;n<p;n++)l=k[n],m(l)||
+u.push({media:l.split("(")[0].match(e.regex.only)&&RegExp.$2||"all",rules:v.length-1,hasquery:-1<l.indexOf("("),minw:l.match(e.regex.minw)&&parseFloat(RegExp.$1)+(RegExp.$2||""),maxw:l.match(e.regex.maxw)&&parseFloat(RegExp.$1)+(RegExp.$2||"")})}y()},G=function(){if(h.length){var d=h.shift();t(d.href,function(b){F(b,d.href,d.media);z[d.href]=!0;c.setTimeout(function(){G()},0)})}},H=function(){for(var d=0;d<x.length;d++){var b=x[d],a=b.href,e=b.media,f=b.rel&&"stylesheet"===b.rel.toLowerCase();if(a&&
+f&&!z[a])if(b.styleSheet&&b.styleSheet.rawCssText)F(b.styleSheet.rawCssText,a,e),z[a]=!0;else if(!/^([a-zA-Z:]*\/\/)/.test(a)&&!I||a.replace(RegExp.$1,"").split("/")[0]===c.location.host)"//"===a.substring(0,2)&&(a=c.location.protocol+a),h.push({href:a,media:e})}G()};H();e.update=H;e.getEmValue=C;c.addEventListener?c.addEventListener("resize",D,!1):c.attachEvent&&c.attachEvent("onresize",D)}})(this);
+</script>
+<style>h1 {font-size: 34px;}
+ h1.title {font-size: 38px;}
+ h2 {font-size: 30px;}
+ h3 {font-size: 24px;}
+ h4 {font-size: 18px;}
+ h5 {font-size: 16px;}
+ h6 {font-size: 12px;}
+ code {color: inherit; background-color: rgba(0, 0, 0, 0.04);}
+ pre:not([class]) { background-color: white }</style>
+<script>
+
+/**
+ * jQuery Plugin: Sticky Tabs
+ *
+ * @author Aidan Lister <aidan@php.net>
+ * adapted by Ruben Arslan to activate parent tabs too
+ * http://www.aidanlister.com/2014/03/persisting-the-tab-state-in-bootstrap/
+ */
+(function($) {
+ "use strict";
+ $.fn.rmarkdownStickyTabs = function() {
+ var context = this;
+ // Show the tab corresponding with the hash in the URL, or the first tab
+ var showStuffFromHash = function() {
+ var hash = window.location.hash;
+ var selector = hash ? 'a[href="' + hash + '"]' : 'li.active > a';
+ var $selector = $(selector, context);
+ if($selector.data('toggle') === "tab") {
+ $selector.tab('show');
+ // walk up the ancestors of this element, show any hidden tabs
+ $selector.parents('.section.tabset').each(function(i, elm) {
+ var link = $('a[href="#' + $(elm).attr('id') + '"]');
+ if(link.data('toggle') === "tab") {
+ link.tab("show");
+ }
+ });
+ }
+ };
+
+
+ // Set the correct tab when the page loads
+ showStuffFromHash(context);
+
+ // Set the correct tab when a user uses their back/forward button
+ $(window).on('hashchange', function() {
+ showStuffFromHash(context);
+ });
+
+ // Change the URL when tabs are clicked
+ $('a', context).on('click', function(e) {
+ history.pushState(null, null, this.href);
+ showStuffFromHash(context);
+ });
+
+ return this;
+ };
+}(jQuery));
+
+window.buildTabsets = function(tocID) {
+
+ // build a tabset from a section div with the .tabset class
+ function buildTabset(tabset) {
+
+ // check for fade and pills options
+ var fade = tabset.hasClass("tabset-fade");
+ var pills = tabset.hasClass("tabset-pills");
+ var navClass = pills ? "nav-pills" : "nav-tabs";
+
+ // determine the heading level of the tabset and tabs
+ var match = tabset.attr('class').match(/level(\d) /);
+ if (match === null)
+ return;
+ var tabsetLevel = Number(match[1]);
+ var tabLevel = tabsetLevel + 1;
+
+ // find all subheadings immediately below
+ var tabs = tabset.find("div.section.level" + tabLevel);
+ if (!tabs.length)
+ return;
+
+ // create tablist and tab-content elements
+ var tabList = $('<ul class="nav ' + navClass + '" role="tablist"></ul>');
+ $(tabs[0]).before(tabList);
+ var tabContent = $('<div class="tab-content"></div>');
+ $(tabs[0]).before(tabContent);
+
+ // build the tabset
+ var activeTab = 0;
+ tabs.each(function(i) {
+
+ // get the tab div
+ var tab = $(tabs[i]);
+
+ // get the id then sanitize it for use with bootstrap tabs
+ var id = tab.attr('id');
+
+ // see if this is marked as the active tab
+ if (tab.hasClass('active'))
+ activeTab = i;
+
+ // remove any table of contents entries associated with
+ // this ID (since we'll be removing the heading element)
+ $("div#" + tocID + " li a[href='#" + id + "']").parent().remove();
+
+ // sanitize the id for use with bootstrap tabs
+ id = id.replace(/[.\/?&!#<>]/g, '').replace(/\s/g, '_');
+ tab.attr('id', id);
+
+ // get the heading element within it, grab it's text, then remove it
+ var heading = tab.find('h' + tabLevel + ':first');
+ var headingText = heading.html();
+ heading.remove();
+
+ // build and append the tab list item
+ var a = $('<a role="tab" data-toggle="tab">' + headingText + '</a>');
+ a.attr('href', '#' + id);
+ a.attr('aria-controls', id);
+ var li = $('<li role="presentation"></li>');
+ li.append(a);
+ tabList.append(li);
+
+ // set it's attributes
+ tab.attr('role', 'tabpanel');
+ tab.addClass('tab-pane');
+ tab.addClass('tabbed-pane');
+ if (fade)
+ tab.addClass('fade');
+
+ // move it into the tab content div
+ tab.detach().appendTo(tabContent);
+ });
+
+ // set active tab
+ $(tabList.children('li')[activeTab]).addClass('active');
+ var active = $(tabContent.children('div.section')[activeTab]);
+ active.addClass('active');
+ if (fade)
+ active.addClass('in');
+
+ if (tabset.hasClass("tabset-sticky"))
+ tabset.rmarkdownStickyTabs();
+ }
+
+ // convert section divs with the .tabset class to tabsets
+ var tabsets = $("div.section.tabset");
+ tabsets.each(function(i) {
+ buildTabset($(tabsets[i]));
+ });
+};
+
+</script>
+<style type="text/css">.hljs-literal {
+color: #990073;
+}
+.hljs-number {
+color: #099;
+}
+.hljs-comment {
+color: #998;
+font-style: italic;
+}
+.hljs-keyword {
+color: #900;
+font-weight: bold;
+}
+.hljs-string {
+color: #d14;
+}
+</style>
+<script>var hljs=function(factory){var globalObject=typeof window==="object"&&window||typeof self==="object"&&self;if(typeof exports!=="undefined"&&!exports.nodeType){return factory(exports)}else if(globalObject){globalObject.hljs=factory({});if(typeof define==="function"&&define.amd){define([],function(){return globalObject.hljs})}return globalObject.hljs}}(function(hljs){var showedUpgradeWarning=false;var ArrayProto=[],objectKeys=Object.keys;var languages=Object.create(null),aliases=Object.create(null);var SAFE_MODE=true;var noHighlightRe=/^(no-?highlight|plain|text)$/i,languagePrefixRe=/\blang(?:uage)?-([\w-]+)\b/i,fixMarkupRe=/((^(<[^>]+>|\t|)+|(?:\n)))/gm;var API_REPLACES;var spanEndTag="</span>";var LANGUAGE_NOT_FOUND="Could not find the language '{}', did you forget to load/include a language module?";var options={hideUpgradeWarningAcceptNoSupportOrSecurityUpdates:false,classPrefix:"hljs-",tabReplace:null,useBR:false,languages:undefined};var COMMON_KEYWORDS="of and for in not or if then".split(" ");function escape(value){return value.replace(/&/g,"&").replace(/</g,"<").replace(/>/g,">")}function tag(node){return node.nodeName.toLowerCase()}function testRe(re,lexeme){var match=re&&re.exec(lexeme);return match&&match.index===0}function isNotHighlighted(language){return noHighlightRe.test(language)}function blockLanguage(block){var i,match,length,_class;var classes=block.className+" ";classes+=block.parentNode?block.parentNode.className:"";match=languagePrefixRe.exec(classes);if(match){var language=getLanguage(match[1]);if(!language){console.warn(LANGUAGE_NOT_FOUND.replace("{}",match[1]));console.warn("Falling back to no-highlight mode for this block.",block)}return language?match[1]:"no-highlight"}classes=classes.split(/\s+/);for(i=0,length=classes.length;i<length;i++){_class=classes[i];if(isNotHighlighted(_class)||getLanguage(_class)){return _class}}}function inherit(parent){var key;var result={};var objects=Array.prototype.slice.call(arguments,1);for(key in parent)result[key]=parent[key];objects.forEach(function(obj){for(key in obj)result[key]=obj[key]});return result}function nodeStream(node){var result=[];(function _nodeStream(node,offset){for(var child=node.firstChild;child;child=child.nextSibling){if(child.nodeType===3)offset+=child.nodeValue.length;else if(child.nodeType===1){result.push({event:"start",offset:offset,node:child});offset=_nodeStream(child,offset);if(!tag(child).match(/br|hr|img|input/)){result.push({event:"stop",offset:offset,node:child})}}}return offset})(node,0);return result}function mergeStreams(original,highlighted,value){var processed=0;var result="";var nodeStack=[];function selectStream(){if(!original.length||!highlighted.length){return original.length?original:highlighted}if(original[0].offset!==highlighted[0].offset){return original[0].offset<highlighted[0].offset?original:highlighted}return highlighted[0].event==="start"?original:highlighted}function open(node){function attr_str(a){return" "+a.nodeName+'="'+escape(a.value).replace(/"/g,""")+'"'}result+="<"+tag(node)+ArrayProto.map.call(node.attributes,attr_str).join("")+">"}function close(node){result+="</"+tag(node)+">"}function render(event){(event.event==="start"?open:close)(event.node)}while(original.length||highlighted.length){var stream=selectStream();result+=escape(value.substring(processed,stream[0].offset));processed=stream[0].offset;if(stream===original){nodeStack.reverse().forEach(close);do{render(stream.splice(0,1)[0]);stream=selectStream()}while(stream===original&&stream.length&&stream[0].offset===processed);nodeStack.reverse().forEach(open)}else{if(stream[0].event==="start"){nodeStack.push(stream[0].node)}else{nodeStack.pop()}render(stream.splice(0,1)[0])}}return result+escape(value.substr(processed))}function dependencyOnParent(mode){if(!mode)return false;return mode.endsWithParent||dependencyOnParent(mode.starts)}function expand_or_clone_mode(mode){if(mode.variants&&!mode.cached_variants){mode.cached_variants=mode.variants.map(function(variant){return inherit(mode,{variants:null},variant)})}if(mode.cached_variants)return mode.cached_variants;if(dependencyOnParent(mode))return[inherit(mode,{starts:mode.starts?inherit(mode.starts):null})];if(Object.isFrozen(mode))return[inherit(mode)];return[mode]}function restoreLanguageApi(obj){if(API_REPLACES&&!obj.langApiRestored){obj.langApiRestored=true;for(var key in API_REPLACES){if(obj[key]){obj[API_REPLACES[key]]=obj[key]}}(obj.contains||[]).concat(obj.variants||[]).forEach(restoreLanguageApi)}}function compileKeywords(rawKeywords,case_insensitive){var compiled_keywords={};if(typeof rawKeywords==="string"){splitAndCompile("keyword",rawKeywords)}else{objectKeys(rawKeywords).forEach(function(className){splitAndCompile(className,rawKeywords[className])})}return compiled_keywords;function splitAndCompile(className,str){if(case_insensitive){str=str.toLowerCase()}str.split(" ").forEach(function(keyword){var pair=keyword.split("|");compiled_keywords[pair[0]]=[className,scoreForKeyword(pair[0],pair[1])]})}}function scoreForKeyword(keyword,providedScore){if(providedScore)return Number(providedScore);return commonKeyword(keyword)?0:1}function commonKeyword(word){return COMMON_KEYWORDS.indexOf(word.toLowerCase())!=-1}function compileLanguage(language){function reStr(re){return re&&re.source||re}function langRe(value,global){return new RegExp(reStr(value),"m"+(language.case_insensitive?"i":"")+(global?"g":""))}function reCountMatchGroups(re){return new RegExp(re.toString()+"|").exec("").length-1}function joinRe(regexps,separator){var backreferenceRe=/\[(?:[^\\\]]|\\.)*\]|\(\??|\\([1-9][0-9]*)|\\./;var numCaptures=0;var ret="";for(var i=0;i<regexps.length;i++){numCaptures+=1;var offset=numCaptures;var re=reStr(regexps[i]);if(i>0){ret+=separator}ret+="(";while(re.length>0){var match=backreferenceRe.exec(re);if(match==null){ret+=re;break}ret+=re.substring(0,match.index);re=re.substring(match.index+match[0].length);if(match[0][0]=="\\"&&match[1]){ret+="\\"+String(Number(match[1])+offset)}else{ret+=match[0];if(match[0]=="("){numCaptures++}}}ret+=")"}return ret}function buildModeRegex(mode){var matchIndexes={};var matcherRe;var regexes=[];var matcher={};var matchAt=1;function addRule(rule,regex){matchIndexes[matchAt]=rule;regexes.push([rule,regex]);matchAt+=reCountMatchGroups(regex)+1}var term;for(var i=0;i<mode.contains.length;i++){var re;term=mode.contains[i];if(term.beginKeywords){re="\\.?(?:"+term.begin+")\\.?"}else{re=term.begin}addRule(term,re)}if(mode.terminator_end)addRule("end",mode.terminator_end);if(mode.illegal)addRule("illegal",mode.illegal);var terminators=regexes.map(function(el){return el[1]});matcherRe=langRe(joinRe(terminators,"|"),true);matcher.lastIndex=0;matcher.exec=function(s){var rule;if(regexes.length===0)return null;matcherRe.lastIndex=matcher.lastIndex;var match=matcherRe.exec(s);if(!match){return null}for(var i=0;i<match.length;i++){if(match[i]!=undefined&&matchIndexes[""+i]!=undefined){rule=matchIndexes[""+i];break}}if(typeof rule==="string"){match.type=rule;match.extra=[mode.illegal,mode.terminator_end]}else{match.type="begin";match.rule=rule}return match};return matcher}function compileMode(mode,parent){if(mode.compiled)return;mode.compiled=true;mode.keywords=mode.keywords||mode.beginKeywords;if(mode.keywords)mode.keywords=compileKeywords(mode.keywords,language.case_insensitive);mode.lexemesRe=langRe(mode.lexemes||/\w+/,true);if(parent){if(mode.beginKeywords){mode.begin="\\b("+mode.beginKeywords.split(" ").join("|")+")\\b"}if(!mode.begin)mode.begin=/\B|\b/;mode.beginRe=langRe(mode.begin);if(mode.endSameAsBegin)mode.end=mode.begin;if(!mode.end&&!mode.endsWithParent)mode.end=/\B|\b/;if(mode.end)mode.endRe=langRe(mode.end);mode.terminator_end=reStr(mode.end)||"";if(mode.endsWithParent&&parent.terminator_end)mode.terminator_end+=(mode.end?"|":"")+parent.terminator_end}if(mode.illegal)mode.illegalRe=langRe(mode.illegal);if(mode.relevance==null)mode.relevance=1;if(!mode.contains){mode.contains=[]}mode.contains=Array.prototype.concat.apply([],mode.contains.map(function(c){return expand_or_clone_mode(c==="self"?mode:c)}));mode.contains.forEach(function(c){compileMode(c,mode)});if(mode.starts){compileMode(mode.starts,parent)}mode.terminators=buildModeRegex(mode)}if(language.contains&&language.contains.indexOf("self")!=-1){if(!SAFE_MODE){throw new Error("ERR: contains `self` is not supported at the top-level of a language. See documentation.")}else{language.contains=language.contains.filter(function(mode){return mode!="self"})}}compileMode(language)}function hideUpgradeWarning(){if(options.hideUpgradeWarningAcceptNoSupportOrSecurityUpdates)return true;if(typeof process==="object"&&typeof process.env==="object"&&process.env["HLJS_HIDE_UPGRADE_WARNING"])return true}function highlight(languageName,code,ignore_illegals,continuation){if(!hideUpgradeWarning()){if(!showedUpgradeWarning){showedUpgradeWarning=true;console.log("Version 9 of Highlight.js has reached EOL and is no longer supported.\n"+"Please upgrade or ask whatever dependency you are using to upgrade.\n"+"https://github.com/highlightjs/highlight.js/issues/2877")}}var codeToHighlight=code;function escapeRe(value){return new RegExp(value.replace(/[-\/\\^$*+?.()|[\]{}]/g,"\\$&"),"m")}function endOfMode(mode,lexeme){if(testRe(mode.endRe,lexeme)){while(mode.endsParent&&mode.parent){mode=mode.parent}return mode}if(mode.endsWithParent){return endOfMode(mode.parent,lexeme)}}function keywordMatch(mode,match){var match_str=language.case_insensitive?match[0].toLowerCase():match[0];return mode.keywords.hasOwnProperty(match_str)&&mode.keywords[match_str]}function buildSpan(className,insideSpan,leaveOpen,noPrefix){if(!leaveOpen&&insideSpan==="")return"";if(!className)return insideSpan;var classPrefix=noPrefix?"":options.classPrefix,openSpan='<span class="'+classPrefix,closeSpan=leaveOpen?"":spanEndTag;openSpan+=className+'">';return openSpan+insideSpan+closeSpan}function processKeywords(){var keyword_match,last_index,match,result;if(!top.keywords)return escape(mode_buffer);result="";last_index=0;top.lexemesRe.lastIndex=0;match=top.lexemesRe.exec(mode_buffer);while(match){result+=escape(mode_buffer.substring(last_index,match.index));keyword_match=keywordMatch(top,match);if(keyword_match){relevance+=keyword_match[1];result+=buildSpan(keyword_match[0],escape(match[0]))}else{result+=escape(match[0])}last_index=top.lexemesRe.lastIndex;match=top.lexemesRe.exec(mode_buffer)}return result+escape(mode_buffer.substr(last_index))}function processSubLanguage(){var explicit=typeof top.subLanguage==="string";if(explicit&&!languages[top.subLanguage]){return escape(mode_buffer)}var result=explicit?highlight(top.subLanguage,mode_buffer,true,continuations[top.subLanguage]):highlightAuto(mode_buffer,top.subLanguage.length?top.subLanguage:undefined);if(top.relevance>0){relevance+=result.relevance}if(explicit){continuations[top.subLanguage]=result.top}return buildSpan(result.language,result.value,false,true)}function processBuffer(){result+=top.subLanguage!=null?processSubLanguage():processKeywords();mode_buffer=""}function startNewMode(mode){result+=mode.className?buildSpan(mode.className,"",true):"";top=Object.create(mode,{parent:{value:top}})}function doBeginMatch(match){var lexeme=match[0];var new_mode=match.rule;if(new_mode&&new_mode.endSameAsBegin){new_mode.endRe=escapeRe(lexeme)}if(new_mode.skip){mode_buffer+=lexeme}else{if(new_mode.excludeBegin){mode_buffer+=lexeme}processBuffer();if(!new_mode.returnBegin&&!new_mode.excludeBegin){mode_buffer=lexeme}}startNewMode(new_mode);return new_mode.returnBegin?0:lexeme.length}function doEndMatch(match){var lexeme=match[0];var matchPlusRemainder=codeToHighlight.substr(match.index);var end_mode=endOfMode(top,matchPlusRemainder);if(!end_mode){return}var origin=top;if(origin.skip){mode_buffer+=lexeme}else{if(!(origin.returnEnd||origin.excludeEnd)){mode_buffer+=lexeme}processBuffer();if(origin.excludeEnd){mode_buffer=lexeme}}do{if(top.className){result+=spanEndTag}if(!top.skip&&!top.subLanguage){relevance+=top.relevance}top=top.parent}while(top!==end_mode.parent);if(end_mode.starts){if(end_mode.endSameAsBegin){end_mode.starts.endRe=end_mode.endRe}startNewMode(end_mode.starts)}return origin.returnEnd?0:lexeme.length}var lastMatch={};function processLexeme(text_before_match,match){var lexeme=match&&match[0];mode_buffer+=text_before_match;if(lexeme==null){processBuffer();return 0}if(lastMatch.type=="begin"&&match.type=="end"&&lastMatch.index==match.index&&lexeme===""){mode_buffer+=codeToHighlight.slice(match.index,match.index+1);return 1}if(lastMatch.type==="illegal"&&lexeme===""){mode_buffer+=codeToHighlight.slice(match.index,match.index+1);return 1}lastMatch=match;if(match.type==="begin"){return doBeginMatch(match)}else if(match.type==="illegal"&&!ignore_illegals){throw new Error('Illegal lexeme "'+lexeme+'" for mode "'+(top.className||"<unnamed>")+'"')}else if(match.type==="end"){var processed=doEndMatch(match);if(processed!=undefined)return processed}mode_buffer+=lexeme;return lexeme.length}var language=getLanguage(languageName);if(!language){console.error(LANGUAGE_NOT_FOUND.replace("{}",languageName));throw new Error('Unknown language: "'+languageName+'"')}compileLanguage(language);var top=continuation||language;var continuations={};var result="",current;for(current=top;current!==language;current=current.parent){if(current.className){result=buildSpan(current.className,"",true)+result}}var mode_buffer="";var relevance=0;try{var match,count,index=0;while(true){top.terminators.lastIndex=index;match=top.terminators.exec(codeToHighlight);if(!match)break;count=processLexeme(codeToHighlight.substring(index,match.index),match);index=match.index+count}processLexeme(codeToHighlight.substr(index));for(current=top;current.parent;current=current.parent){if(current.className){result+=spanEndTag}}return{relevance:relevance,value:result,illegal:false,language:languageName,top:top}}catch(err){if(err.message&&err.message.indexOf("Illegal")!==-1){return{illegal:true,relevance:0,value:escape(codeToHighlight)}}else if(SAFE_MODE){return{relevance:0,value:escape(codeToHighlight),language:languageName,top:top,errorRaised:err}}else{throw err}}}function highlightAuto(code,languageSubset){languageSubset=languageSubset||options.languages||objectKeys(languages);var result={relevance:0,value:escape(code)};var second_best=result;languageSubset.filter(getLanguage).filter(autoDetection).forEach(function(name){var current=highlight(name,code,false);current.language=name;if(current.relevance>second_best.relevance){second_best=current}if(current.relevance>result.relevance){second_best=result;result=current}});if(second_best.language){result.second_best=second_best}return result}function fixMarkup(value){if(!(options.tabReplace||options.useBR)){return value}return value.replace(fixMarkupRe,function(match,p1){if(options.useBR&&match==="\n"){return"<br>"}else if(options.tabReplace){return p1.replace(/\t/g,options.tabReplace)}return""})}function buildClassName(prevClassName,currentLang,resultLang){var language=currentLang?aliases[currentLang]:resultLang,result=[prevClassName.trim()];if(!prevClassName.match(/\bhljs\b/)){result.push("hljs")}if(prevClassName.indexOf(language)===-1){result.push(language)}return result.join(" ").trim()}function highlightBlock(block){var node,originalStream,result,resultNode,text;var language=blockLanguage(block);if(isNotHighlighted(language))return;if(options.useBR){node=document.createElement("div");node.innerHTML=block.innerHTML.replace(/\n/g,"").replace(/<br[ \/]*>/g,"\n")}else{node=block}text=node.textContent;result=language?highlight(language,text,true):highlightAuto(text);originalStream=nodeStream(node);if(originalStream.length){resultNode=document.createElement("div");resultNode.innerHTML=result.value;result.value=mergeStreams(originalStream,nodeStream(resultNode),text)}result.value=fixMarkup(result.value);block.innerHTML=result.value;block.className=buildClassName(block.className,language,result.language);block.result={language:result.language,re:result.relevance};if(result.second_best){block.second_best={language:result.second_best.language,re:result.second_best.relevance}}}function configure(user_options){options=inherit(options,user_options)}function initHighlighting(){if(initHighlighting.called)return;initHighlighting.called=true;var blocks=document.querySelectorAll("pre code");ArrayProto.forEach.call(blocks,highlightBlock)}function initHighlightingOnLoad(){window.addEventListener("DOMContentLoaded",initHighlighting,false);window.addEventListener("load",initHighlighting,false)}var PLAINTEXT_LANGUAGE={disableAutodetect:true};function registerLanguage(name,language){var lang;try{lang=language(hljs)}catch(error){console.error("Language definition for '{}' could not be registered.".replace("{}",name));if(!SAFE_MODE){throw error}else{console.error(error)}lang=PLAINTEXT_LANGUAGE}languages[name]=lang;restoreLanguageApi(lang);lang.rawDefinition=language.bind(null,hljs);if(lang.aliases){lang.aliases.forEach(function(alias){aliases[alias]=name})}}function listLanguages(){return objectKeys(languages)}function requireLanguage(name){var lang=getLanguage(name);if(lang){return lang}var err=new Error("The '{}' language is required, but not loaded.".replace("{}",name));throw err}function getLanguage(name){name=(name||"").toLowerCase();return languages[name]||languages[aliases[name]]}function autoDetection(name){var lang=getLanguage(name);return lang&&!lang.disableAutodetect}hljs.highlight=highlight;hljs.highlightAuto=highlightAuto;hljs.fixMarkup=fixMarkup;hljs.highlightBlock=highlightBlock;hljs.configure=configure;hljs.initHighlighting=initHighlighting;hljs.initHighlightingOnLoad=initHighlightingOnLoad;hljs.registerLanguage=registerLanguage;hljs.listLanguages=listLanguages;hljs.getLanguage=getLanguage;hljs.requireLanguage=requireLanguage;hljs.autoDetection=autoDetection;hljs.inherit=inherit;hljs.debugMode=function(){SAFE_MODE=false};hljs.IDENT_RE="[a-zA-Z]\\w*";hljs.UNDERSCORE_IDENT_RE="[a-zA-Z_]\\w*";hljs.NUMBER_RE="\\b\\d+(\\.\\d+)?";hljs.C_NUMBER_RE="(-?)(\\b0[xX][a-fA-F0-9]+|(\\b\\d+(\\.\\d*)?|\\.\\d+)([eE][-+]?\\d+)?)";hljs.BINARY_NUMBER_RE="\\b(0b[01]+)";hljs.RE_STARTERS_RE="!|!=|!==|%|%=|&|&&|&=|\\*|\\*=|\\+|\\+=|,|-|-=|/=|/|:|;|<<|<<=|<=|<|===|==|=|>>>=|>>=|>=|>>>|>>|>|\\?|\\[|\\{|\\(|\\^|\\^=|\\||\\|=|\\|\\||~";hljs.BACKSLASH_ESCAPE={begin:"\\\\[\\s\\S]",relevance:0};hljs.APOS_STRING_MODE={className:"string",begin:"'",end:"'",illegal:"\\n",contains:[hljs.BACKSLASH_ESCAPE]};hljs.QUOTE_STRING_MODE={className:"string",begin:'"',end:'"',illegal:"\\n",contains:[hljs.BACKSLASH_ESCAPE]};hljs.PHRASAL_WORDS_MODE={begin:/\b(a|an|the|are|I'm|isn't|don't|doesn't|won't|but|just|should|pretty|simply|enough|gonna|going|wtf|so|such|will|you|your|they|like|more)\b/};hljs.COMMENT=function(begin,end,inherits){var mode=hljs.inherit({className:"comment",begin:begin,end:end,contains:[]},inherits||{});mode.contains.push(hljs.PHRASAL_WORDS_MODE);mode.contains.push({className:"doctag",begin:"(?:TODO|FIXME|NOTE|BUG|XXX):",relevance:0});return mode};hljs.C_LINE_COMMENT_MODE=hljs.COMMENT("//","$");hljs.C_BLOCK_COMMENT_MODE=hljs.COMMENT("/\\*","\\*/");hljs.HASH_COMMENT_MODE=hljs.COMMENT("#","$");hljs.NUMBER_MODE={className:"number",begin:hljs.NUMBER_RE,relevance:0};hljs.C_NUMBER_MODE={className:"number",begin:hljs.C_NUMBER_RE,relevance:0};hljs.BINARY_NUMBER_MODE={className:"number",begin:hljs.BINARY_NUMBER_RE,relevance:0};hljs.CSS_NUMBER_MODE={className:"number",begin:hljs.NUMBER_RE+"("+"%|em|ex|ch|rem"+"|vw|vh|vmin|vmax"+"|cm|mm|in|pt|pc|px"+"|deg|grad|rad|turn"+"|s|ms"+"|Hz|kHz"+"|dpi|dpcm|dppx"+")?",relevance:0};hljs.REGEXP_MODE={className:"regexp",begin:/\//,end:/\/[gimuy]*/,illegal:/\n/,contains:[hljs.BACKSLASH_ESCAPE,{begin:/\[/,end:/\]/,relevance:0,contains:[hljs.BACKSLASH_ESCAPE]}]};hljs.TITLE_MODE={className:"title",begin:hljs.IDENT_RE,relevance:0};hljs.UNDERSCORE_TITLE_MODE={className:"title",begin:hljs.UNDERSCORE_IDENT_RE,relevance:0};hljs.METHOD_GUARD={begin:"\\.\\s*"+hljs.UNDERSCORE_IDENT_RE,relevance:0};var constants=[hljs.BACKSLASH_ESCAPE,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.PHRASAL_WORDS_MODE,hljs.COMMENT,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.HASH_COMMENT_MODE,hljs.NUMBER_MODE,hljs.C_NUMBER_MODE,hljs.BINARY_NUMBER_MODE,hljs.CSS_NUMBER_MODE,hljs.REGEXP_MODE,hljs.TITLE_MODE,hljs.UNDERSCORE_TITLE_MODE,hljs.METHOD_GUARD];constants.forEach(function(obj){deepFreeze(obj)});function deepFreeze(o){Object.freeze(o);var objIsFunction=typeof o==="function";Object.getOwnPropertyNames(o).forEach(function(prop){if(o.hasOwnProperty(prop)&&o[prop]!==null&&(typeof o[prop]==="object"||typeof o[prop]==="function")&&(objIsFunction?prop!=="caller"&&prop!=="callee"&&prop!=="arguments":true)&&!Object.isFrozen(o[prop])){deepFreeze(o[prop])}});return o}return hljs});hljs.registerLanguage("hsp",function(hljs){return{case_insensitive:true,lexemes:/[\w\._]+/,keywords:"goto gosub return break repeat loop continue wait await dim sdim foreach dimtype dup dupptr end stop newmod delmod mref run exgoto on mcall assert logmes newlab resume yield onexit onerror onkey onclick oncmd exist delete mkdir chdir dirlist bload bsave bcopy memfile if else poke wpoke lpoke getstr chdpm memexpand memcpy memset notesel noteadd notedel noteload notesave randomize noteunsel noteget split strrep setease button chgdisp exec dialog mmload mmplay mmstop mci pset pget syscolor mes print title pos circle cls font sysfont objsize picload color palcolor palette redraw width gsel gcopy gzoom gmode bmpsave hsvcolor getkey listbox chkbox combox input mesbox buffer screen bgscr mouse objsel groll line clrobj boxf objprm objmode stick grect grotate gsquare gradf objimage objskip objenable celload celdiv celput newcom querycom delcom cnvstow comres axobj winobj sendmsg comevent comevarg sarrayconv callfunc cnvwtos comevdisp libptr system hspstat hspver stat cnt err strsize looplev sublev iparam wparam lparam refstr refdval int rnd strlen length length2 length3 length4 vartype gettime peek wpeek lpeek varptr varuse noteinfo instr abs limit getease str strmid strf getpath strtrim sin cos tan atan sqrt double absf expf logf limitf powf geteasef mousex mousey mousew hwnd hinstance hdc ginfo objinfo dirinfo sysinfo thismod __hspver__ __hsp30__ __date__ __time__ __line__ __file__ _debug __hspdef__ and or xor not screen_normal screen_palette screen_hide screen_fixedsize screen_tool screen_frame gmode_gdi gmode_mem gmode_rgb0 gmode_alpha gmode_rgb0alpha gmode_add gmode_sub gmode_pixela ginfo_mx ginfo_my ginfo_act ginfo_sel ginfo_wx1 ginfo_wy1 ginfo_wx2 ginfo_wy2 ginfo_vx ginfo_vy ginfo_sizex ginfo_sizey ginfo_winx ginfo_winy ginfo_mesx ginfo_mesy ginfo_r ginfo_g ginfo_b ginfo_paluse ginfo_dispx ginfo_dispy ginfo_cx ginfo_cy ginfo_intid ginfo_newid ginfo_sx ginfo_sy objinfo_mode objinfo_bmscr objinfo_hwnd notemax notesize dir_cur dir_exe dir_win dir_sys dir_cmdline dir_desktop dir_mydoc dir_tv font_normal font_bold font_italic font_underline font_strikeout font_antialias objmode_normal objmode_guifont objmode_usefont gsquare_grad msgothic msmincho do until while wend for next _break _continue switch case default swbreak swend ddim ldim alloc m_pi rad2deg deg2rad ease_linear ease_quad_in ease_quad_out ease_quad_inout ease_cubic_in ease_cubic_out ease_cubic_inout ease_quartic_in ease_quartic_out ease_quartic_inout ease_bounce_in ease_bounce_out ease_bounce_inout ease_shake_in ease_shake_out ease_shake_inout ease_loop",contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE,{className:"string",begin:'{"',end:'"}',contains:[hljs.BACKSLASH_ESCAPE]},hljs.COMMENT(";","$",{relevance:0}),{className:"meta",begin:"#",end:"$",keywords:{"meta-keyword":"addion cfunc cmd cmpopt comfunc const defcfunc deffunc define else endif enum epack func global if ifdef ifndef include modcfunc modfunc modinit modterm module pack packopt regcmd runtime undef usecom uselib"},contains:[hljs.inherit(hljs.QUOTE_STRING_MODE,{className:"meta-string"}),hljs.NUMBER_MODE,hljs.C_NUMBER_MODE,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE]},{className:"symbol",begin:"^\\*(\\w+|@)"},hljs.NUMBER_MODE,hljs.C_NUMBER_MODE]}});hljs.registerLanguage("applescript",function(hljs){var STRING=hljs.inherit(hljs.QUOTE_STRING_MODE,{illegal:""});var PARAMS={className:"params",begin:"\\(",end:"\\)",contains:["self",hljs.C_NUMBER_MODE,STRING]};var COMMENT_MODE_1=hljs.COMMENT("--","$");var COMMENT_MODE_2=hljs.COMMENT("\\(\\*","\\*\\)",{contains:["self",COMMENT_MODE_1]});var COMMENTS=[COMMENT_MODE_1,COMMENT_MODE_2,hljs.HASH_COMMENT_MODE];return{aliases:["osascript"],keywords:{keyword:"about above after against and around as at back before beginning "+"behind below beneath beside between but by considering "+"contain contains continue copy div does eighth else end equal "+"equals error every exit fifth first for fourth from front "+"get given global if ignoring in into is it its last local me "+"middle mod my ninth not of on onto or over prop property put ref "+"reference repeat returning script second set seventh since "+"sixth some tell tenth that the|0 then third through thru "+"timeout times to transaction try until where while whose with "+"without",literal:"AppleScript false linefeed return pi quote result space tab true",built_in:"alias application boolean class constant date file integer list "+"number real record string text "+"activate beep count delay launch log offset read round "+"run say summarize write "+"character characters contents day frontmost id item length "+"month name paragraph paragraphs rest reverse running time version "+"weekday word words year"},contains:[STRING,hljs.C_NUMBER_MODE,{className:"built_in",begin:"\\b(clipboard info|the clipboard|info for|list (disks|folder)|"+"mount volume|path to|(close|open for) access|(get|set) eof|"+"current date|do shell script|get volume settings|random number|"+"set volume|system attribute|system info|time to GMT|"+"(load|run|store) script|scripting components|"+"ASCII (character|number)|localized string|"+"choose (application|color|file|file name|"+"folder|from list|remote application|URL)|"+"display (alert|dialog))\\b|^\\s*return\\b"},{className:"literal",begin:"\\b(text item delimiters|current application|missing value)\\b"},{className:"keyword",begin:"\\b(apart from|aside from|instead of|out of|greater than|"+"isn't|(doesn't|does not) (equal|come before|come after|contain)|"+"(greater|less) than( or equal)?|(starts?|ends|begins?) with|"+"contained by|comes (before|after)|a (ref|reference)|POSIX file|"+"POSIX path|(date|time) string|quoted form)\\b"},{beginKeywords:"on",illegal:"[${=;\\n]",contains:[hljs.UNDERSCORE_TITLE_MODE,PARAMS]}].concat(COMMENTS),illegal:"//|->|=>|\\[\\["}});hljs.registerLanguage("matlab",function(hljs){var TRANSPOSE_RE="('|\\.')+";var TRANSPOSE={relevance:0,contains:[{begin:TRANSPOSE_RE}]};return{keywords:{keyword:"break case catch classdef continue else elseif end enumerated events for function "+"global if methods otherwise parfor persistent properties return spmd switch try while",built_in:"sin sind sinh asin asind asinh cos cosd cosh acos acosd acosh tan tand tanh atan "+"atand atan2 atanh sec secd sech asec asecd asech csc cscd csch acsc acscd acsch cot "+"cotd coth acot acotd acoth hypot exp expm1 log log1p log10 log2 pow2 realpow reallog "+"realsqrt sqrt nthroot nextpow2 abs angle complex conj imag real unwrap isreal "+"cplxpair fix floor ceil round mod rem sign airy besselj bessely besselh besseli "+"besselk beta betainc betaln ellipj ellipke erf erfc erfcx erfinv expint gamma "+"gammainc gammaln psi legendre cross dot factor isprime primes gcd lcm rat rats perms "+"nchoosek factorial cart2sph cart2pol pol2cart sph2cart hsv2rgb rgb2hsv zeros ones "+"eye repmat rand randn linspace logspace freqspace meshgrid accumarray size length "+"ndims numel disp isempty isequal isequalwithequalnans cat reshape diag blkdiag tril "+"triu fliplr flipud flipdim rot90 find sub2ind ind2sub bsxfun ndgrid permute ipermute "+"shiftdim circshift squeeze isscalar isvector ans eps realmax realmin pi i inf nan "+"isnan isinf isfinite j why compan gallery hadamard hankel hilb invhilb magic pascal "+"rosser toeplitz vander wilkinson max min nanmax nanmin mean nanmean type table "+"readtable writetable sortrows sort figure plot plot3 scatter scatter3 cellfun "+"legend intersect ismember procrustes hold num2cell "},illegal:'(//|"|#|/\\*|\\s+/\\w+)',contains:[{className:"function",beginKeywords:"function",end:"$",contains:[hljs.UNDERSCORE_TITLE_MODE,{className:"params",variants:[{begin:"\\(",end:"\\)"},{begin:"\\[",end:"\\]"}]}]},{className:"built_in",begin:/true|false/,relevance:0,starts:TRANSPOSE},{begin:"[a-zA-Z][a-zA-Z_0-9]*"+TRANSPOSE_RE,relevance:0},{className:"number",begin:hljs.C_NUMBER_RE,relevance:0,starts:TRANSPOSE},{className:"string",begin:"'",end:"'",contains:[hljs.BACKSLASH_ESCAPE,{begin:"''"}]},{begin:/\]|}|\)/,relevance:0,starts:TRANSPOSE},{className:"string",begin:'"',end:'"',contains:[hljs.BACKSLASH_ESCAPE,{begin:'""'}],starts:TRANSPOSE},hljs.COMMENT("^\\s*\\%\\{\\s*$","^\\s*\\%\\}\\s*$"),hljs.COMMENT("\\%","$")]}});hljs.registerLanguage("gml",function(hljs){var GML_KEYWORDS={keyword:"begin end if then else while do for break continue with until "+"repeat exit and or xor not return mod div switch case default var "+"globalvar enum #macro #region #endregion",built_in:"is_real is_string is_array is_undefined is_int32 is_int64 "+"is_ptr is_vec3 is_vec4 is_matrix is_bool typeof "+"variable_global_exists variable_global_get variable_global_set "+"variable_instance_exists variable_instance_get variable_instance_set "+"variable_instance_get_names array_length_1d array_length_2d "+"array_height_2d array_equals array_create array_copy random "+"random_range irandom irandom_range random_set_seed random_get_seed "+"randomize randomise choose abs round floor ceil sign frac sqrt sqr "+"exp ln log2 log10 sin cos tan arcsin arccos arctan arctan2 dsin dcos "+"dtan darcsin darccos darctan darctan2 degtorad radtodeg power logn "+"min max mean median clamp lerp dot_product dot_product_3d "+"dot_product_normalised dot_product_3d_normalised "+"dot_product_normalized dot_product_3d_normalized math_set_epsilon "+"math_get_epsilon angle_difference point_distance_3d point_distance "+"point_direction lengthdir_x lengthdir_y real string int64 ptr "+"string_format chr ansi_char ord string_length string_byte_length "+"string_pos string_copy string_char_at string_ord_at string_byte_at "+"string_set_byte_at string_delete string_insert string_lower "+"string_upper string_repeat string_letters string_digits "+"string_lettersdigits string_replace string_replace_all string_count "+"string_hash_to_newline clipboard_has_text clipboard_set_text "+"clipboard_get_text date_current_datetime date_create_datetime "+"date_valid_datetime date_inc_year date_inc_month date_inc_week "+"date_inc_day date_inc_hour date_inc_minute date_inc_second "+"date_get_year date_get_month date_get_week date_get_day "+"date_get_hour date_get_minute date_get_second date_get_weekday "+"date_get_day_of_year date_get_hour_of_year date_get_minute_of_year "+"date_get_second_of_year date_year_span date_month_span "+"date_week_span date_day_span date_hour_span date_minute_span "+"date_second_span date_compare_datetime date_compare_date "+"date_compare_time date_date_of date_time_of date_datetime_string "+"date_date_string date_time_string date_days_in_month "+"date_days_in_year date_leap_year date_is_today date_set_timezone "+"date_get_timezone game_set_speed game_get_speed motion_set "+"motion_add place_free place_empty place_meeting place_snapped "+"move_random move_snap move_towards_point move_contact_solid "+"move_contact_all move_outside_solid move_outside_all "+"move_bounce_solid move_bounce_all move_wrap distance_to_point "+"distance_to_object position_empty position_meeting path_start "+"path_end mp_linear_step mp_potential_step mp_linear_step_object "+"mp_potential_step_object mp_potential_settings mp_linear_path "+"mp_potential_path mp_linear_path_object mp_potential_path_object "+"mp_grid_create mp_grid_destroy mp_grid_clear_all mp_grid_clear_cell "+"mp_grid_clear_rectangle mp_grid_add_cell mp_grid_get_cell "+"mp_grid_add_rectangle mp_grid_add_instances mp_grid_path "+"mp_grid_draw mp_grid_to_ds_grid collision_point collision_rectangle "+"collision_circle collision_ellipse collision_line "+"collision_point_list collision_rectangle_list collision_circle_list "+"collision_ellipse_list collision_line_list instance_position_list "+"instance_place_list point_in_rectangle "+"point_in_triangle point_in_circle rectangle_in_rectangle "+"rectangle_in_triangle rectangle_in_circle instance_find "+"instance_exists instance_number instance_position instance_nearest "+"instance_furthest instance_place instance_create_depth "+"instance_create_layer instance_copy instance_change instance_destroy "+"position_destroy position_change instance_id_get "+"instance_deactivate_all instance_deactivate_object "+"instance_deactivate_region instance_activate_all "+"instance_activate_object instance_activate_region room_goto "+"room_goto_previous room_goto_next room_previous room_next "+"room_restart game_end game_restart game_load game_save "+"game_save_buffer game_load_buffer event_perform event_user "+"event_perform_object event_inherited show_debug_message "+"show_debug_overlay debug_event debug_get_callstack alarm_get "+"alarm_set font_texture_page_size keyboard_set_map keyboard_get_map "+"keyboard_unset_map keyboard_check keyboard_check_pressed "+"keyboard_check_released keyboard_check_direct keyboard_get_numlock "+"keyboard_set_numlock keyboard_key_press keyboard_key_release "+"keyboard_clear io_clear mouse_check_button "+"mouse_check_button_pressed mouse_check_button_released "+"mouse_wheel_up mouse_wheel_down mouse_clear draw_self draw_sprite "+"draw_sprite_pos draw_sprite_ext draw_sprite_stretched "+"draw_sprite_stretched_ext draw_sprite_tiled draw_sprite_tiled_ext "+"draw_sprite_part draw_sprite_part_ext draw_sprite_general draw_clear "+"draw_clear_alpha draw_point draw_line draw_line_width draw_rectangle "+"draw_roundrect draw_roundrect_ext draw_triangle draw_circle "+"draw_ellipse draw_set_circle_precision draw_arrow draw_button "+"draw_path draw_healthbar draw_getpixel draw_getpixel_ext "+"draw_set_colour draw_set_color draw_set_alpha draw_get_colour "+"draw_get_color draw_get_alpha merge_colour make_colour_rgb "+"make_colour_hsv colour_get_red colour_get_green colour_get_blue "+"colour_get_hue colour_get_saturation colour_get_value merge_color "+"make_color_rgb make_color_hsv color_get_red color_get_green "+"color_get_blue color_get_hue color_get_saturation color_get_value "+"merge_color screen_save screen_save_part draw_set_font "+"draw_set_halign draw_set_valign draw_text draw_text_ext string_width "+"string_height string_width_ext string_height_ext "+"draw_text_transformed draw_text_ext_transformed draw_text_colour "+"draw_text_ext_colour draw_text_transformed_colour "+"draw_text_ext_transformed_colour draw_text_color draw_text_ext_color "+"draw_text_transformed_color draw_text_ext_transformed_color "+"draw_point_colour draw_line_colour draw_line_width_colour "+"draw_rectangle_colour draw_roundrect_colour "+"draw_roundrect_colour_ext draw_triangle_colour draw_circle_colour "+"draw_ellipse_colour draw_point_color draw_line_color "+"draw_line_width_color draw_rectangle_color draw_roundrect_color "+"draw_roundrect_color_ext draw_triangle_color draw_circle_color "+"draw_ellipse_color draw_primitive_begin draw_vertex "+"draw_vertex_colour draw_vertex_color draw_primitive_end "+"sprite_get_uvs font_get_uvs sprite_get_texture font_get_texture "+"texture_get_width texture_get_height texture_get_uvs "+"draw_primitive_begin_texture draw_vertex_texture "+"draw_vertex_texture_colour draw_vertex_texture_color "+"texture_global_scale surface_create surface_create_ext "+"surface_resize surface_free surface_exists surface_get_width "+"surface_get_height surface_get_texture surface_set_target "+"surface_set_target_ext surface_reset_target surface_depth_disable "+"surface_get_depth_disable draw_surface draw_surface_stretched "+"draw_surface_tiled draw_surface_part draw_surface_ext "+"draw_surface_stretched_ext draw_surface_tiled_ext "+"draw_surface_part_ext draw_surface_general surface_getpixel "+"surface_getpixel_ext surface_save surface_save_part surface_copy "+"surface_copy_part application_surface_draw_enable "+"application_get_position application_surface_enable "+"application_surface_is_enabled display_get_width display_get_height "+"display_get_orientation display_get_gui_width display_get_gui_height "+"display_reset display_mouse_get_x display_mouse_get_y "+"display_mouse_set display_set_ui_visibility "+"window_set_fullscreen window_get_fullscreen "+"window_set_caption window_set_min_width window_set_max_width "+"window_set_min_height window_set_max_height window_get_visible_rects "+"window_get_caption window_set_cursor window_get_cursor "+"window_set_colour window_get_colour window_set_color "+"window_get_color window_set_position window_set_size "+"window_set_rectangle window_center window_get_x window_get_y "+"window_get_width window_get_height window_mouse_get_x "+"window_mouse_get_y window_mouse_set window_view_mouse_get_x "+"window_view_mouse_get_y window_views_mouse_get_x "+"window_views_mouse_get_y audio_listener_position "+"audio_listener_velocity audio_listener_orientation "+"audio_emitter_position audio_emitter_create audio_emitter_free "+"audio_emitter_exists audio_emitter_pitch audio_emitter_velocity "+"audio_emitter_falloff audio_emitter_gain audio_play_sound "+"audio_play_sound_on audio_play_sound_at audio_stop_sound "+"audio_resume_music audio_music_is_playing audio_resume_sound "+"audio_pause_sound audio_pause_music audio_channel_num "+"audio_sound_length audio_get_type audio_falloff_set_model "+"audio_play_music audio_stop_music audio_master_gain audio_music_gain "+"audio_sound_gain audio_sound_pitch audio_stop_all audio_resume_all "+"audio_pause_all audio_is_playing audio_is_paused audio_exists "+"audio_sound_set_track_position audio_sound_get_track_position "+"audio_emitter_get_gain audio_emitter_get_pitch audio_emitter_get_x "+"audio_emitter_get_y audio_emitter_get_z audio_emitter_get_vx "+"audio_emitter_get_vy audio_emitter_get_vz "+"audio_listener_set_position audio_listener_set_velocity "+"audio_listener_set_orientation audio_listener_get_data "+"audio_set_master_gain audio_get_master_gain audio_sound_get_gain "+"audio_sound_get_pitch audio_get_name audio_sound_set_track_position "+"audio_sound_get_track_position audio_create_stream "+"audio_destroy_stream audio_create_sync_group "+"audio_destroy_sync_group audio_play_in_sync_group "+"audio_start_sync_group audio_stop_sync_group audio_pause_sync_group "+"audio_resume_sync_group audio_sync_group_get_track_pos "+"audio_sync_group_debug audio_sync_group_is_playing audio_debug "+"audio_group_load audio_group_unload audio_group_is_loaded "+"audio_group_load_progress audio_group_name audio_group_stop_all "+"audio_group_set_gain audio_create_buffer_sound "+"audio_free_buffer_sound audio_create_play_queue "+"audio_free_play_queue audio_queue_sound audio_get_recorder_count "+"audio_get_recorder_info audio_start_recording audio_stop_recording "+"audio_sound_get_listener_mask audio_emitter_get_listener_mask "+"audio_get_listener_mask audio_sound_set_listener_mask "+"audio_emitter_set_listener_mask audio_set_listener_mask "+"audio_get_listener_count audio_get_listener_info audio_system "+"show_message show_message_async clickable_add clickable_add_ext "+"clickable_change clickable_change_ext clickable_delete "+"clickable_exists clickable_set_style show_question "+"show_question_async get_integer get_string get_integer_async "+"get_string_async get_login_async get_open_filename get_save_filename "+"get_open_filename_ext get_save_filename_ext show_error "+"highscore_clear highscore_add highscore_value highscore_name "+"draw_highscore sprite_exists sprite_get_name sprite_get_number "+"sprite_get_width sprite_get_height sprite_get_xoffset "+"sprite_get_yoffset sprite_get_bbox_left sprite_get_bbox_right "+"sprite_get_bbox_top sprite_get_bbox_bottom sprite_save "+"sprite_save_strip sprite_set_cache_size sprite_set_cache_size_ext "+"sprite_get_tpe sprite_prefetch sprite_prefetch_multi sprite_flush "+"sprite_flush_multi sprite_set_speed sprite_get_speed_type "+"sprite_get_speed font_exists font_get_name font_get_fontname "+"font_get_bold font_get_italic font_get_first font_get_last "+"font_get_size font_set_cache_size path_exists path_get_name "+"path_get_length path_get_time path_get_kind path_get_closed "+"path_get_precision path_get_number path_get_point_x path_get_point_y "+"path_get_point_speed path_get_x path_get_y path_get_speed "+"script_exists script_get_name timeline_add timeline_delete "+"timeline_clear timeline_exists timeline_get_name "+"timeline_moment_clear timeline_moment_add_script timeline_size "+"timeline_max_moment object_exists object_get_name object_get_sprite "+"object_get_solid object_get_visible object_get_persistent "+"object_get_mask object_get_parent object_get_physics "+"object_is_ancestor room_exists room_get_name sprite_set_offset "+"sprite_duplicate sprite_assign sprite_merge sprite_add "+"sprite_replace sprite_create_from_surface sprite_add_from_surface "+"sprite_delete sprite_set_alpha_from_sprite sprite_collision_mask "+"font_add_enable_aa font_add_get_enable_aa font_add font_add_sprite "+"font_add_sprite_ext font_replace font_replace_sprite "+"font_replace_sprite_ext font_delete path_set_kind path_set_closed "+"path_set_precision path_add path_assign path_duplicate path_append "+"path_delete path_add_point path_insert_point path_change_point "+"path_delete_point path_clear_points path_reverse path_mirror "+"path_flip path_rotate path_rescale path_shift script_execute "+"object_set_sprite object_set_solid object_set_visible "+"object_set_persistent object_set_mask room_set_width room_set_height "+"room_set_persistent room_set_background_colour "+"room_set_background_color room_set_view room_set_viewport "+"room_get_viewport room_set_view_enabled room_add room_duplicate "+"room_assign room_instance_add room_instance_clear room_get_camera "+"room_set_camera asset_get_index asset_get_type "+"file_text_open_from_string file_text_open_read file_text_open_write "+"file_text_open_append file_text_close file_text_write_string "+"file_text_write_real file_text_writeln file_text_read_string "+"file_text_read_real file_text_readln file_text_eof file_text_eoln "+"file_exists file_delete file_rename file_copy directory_exists "+"directory_create directory_destroy file_find_first file_find_next "+"file_find_close file_attributes filename_name filename_path "+"filename_dir filename_drive filename_ext filename_change_ext "+"file_bin_open file_bin_rewrite file_bin_close file_bin_position "+"file_bin_size file_bin_seek file_bin_write_byte file_bin_read_byte "+"parameter_count parameter_string environment_get_variable "+"ini_open_from_string ini_open ini_close ini_read_string "+"ini_read_real ini_write_string ini_write_real ini_key_exists "+"ini_section_exists ini_key_delete ini_section_delete "+"ds_set_precision ds_exists ds_stack_create ds_stack_destroy "+"ds_stack_clear ds_stack_copy ds_stack_size ds_stack_empty "+"ds_stack_push ds_stack_pop ds_stack_top ds_stack_write ds_stack_read "+"ds_queue_create ds_queue_destroy ds_queue_clear ds_queue_copy "+"ds_queue_size ds_queue_empty ds_queue_enqueue ds_queue_dequeue "+"ds_queue_head ds_queue_tail ds_queue_write ds_queue_read "+"ds_list_create ds_list_destroy ds_list_clear ds_list_copy "+"ds_list_size ds_list_empty ds_list_add ds_list_insert "+"ds_list_replace ds_list_delete ds_list_find_index ds_list_find_value "+"ds_list_mark_as_list ds_list_mark_as_map ds_list_sort "+"ds_list_shuffle ds_list_write ds_list_read ds_list_set ds_map_create "+"ds_map_destroy ds_map_clear ds_map_copy ds_map_size ds_map_empty "+"ds_map_add ds_map_add_list ds_map_add_map ds_map_replace "+"ds_map_replace_map ds_map_replace_list ds_map_delete ds_map_exists "+"ds_map_find_value ds_map_find_previous ds_map_find_next "+"ds_map_find_first ds_map_find_last ds_map_write ds_map_read "+"ds_map_secure_save ds_map_secure_load ds_map_secure_load_buffer "+"ds_map_secure_save_buffer ds_map_set ds_priority_create "+"ds_priority_destroy ds_priority_clear ds_priority_copy "+"ds_priority_size ds_priority_empty ds_priority_add "+"ds_priority_change_priority ds_priority_find_priority "+"ds_priority_delete_value ds_priority_delete_min ds_priority_find_min "+"ds_priority_delete_max ds_priority_find_max ds_priority_write "+"ds_priority_read ds_grid_create ds_grid_destroy ds_grid_copy "+"ds_grid_resize ds_grid_width ds_grid_height ds_grid_clear "+"ds_grid_set ds_grid_add ds_grid_multiply ds_grid_set_region "+"ds_grid_add_region ds_grid_multiply_region ds_grid_set_disk "+"ds_grid_add_disk ds_grid_multiply_disk ds_grid_set_grid_region "+"ds_grid_add_grid_region ds_grid_multiply_grid_region ds_grid_get "+"ds_grid_get_sum ds_grid_get_max ds_grid_get_min ds_grid_get_mean "+"ds_grid_get_disk_sum ds_grid_get_disk_min ds_grid_get_disk_max "+"ds_grid_get_disk_mean ds_grid_value_exists ds_grid_value_x "+"ds_grid_value_y ds_grid_value_disk_exists ds_grid_value_disk_x "+"ds_grid_value_disk_y ds_grid_shuffle ds_grid_write ds_grid_read "+"ds_grid_sort ds_grid_set ds_grid_get effect_create_below "+"effect_create_above effect_clear part_type_create part_type_destroy "+"part_type_exists part_type_clear part_type_shape part_type_sprite "+"part_type_size part_type_scale part_type_orientation part_type_life "+"part_type_step part_type_death part_type_speed part_type_direction "+"part_type_gravity part_type_colour1 part_type_colour2 "+"part_type_colour3 part_type_colour_mix part_type_colour_rgb "+"part_type_colour_hsv part_type_color1 part_type_color2 "+"part_type_color3 part_type_color_mix part_type_color_rgb "+"part_type_color_hsv part_type_alpha1 part_type_alpha2 "+"part_type_alpha3 part_type_blend part_system_create "+"part_system_create_layer part_system_destroy part_system_exists "+"part_system_clear part_system_draw_order part_system_depth "+"part_system_position part_system_automatic_update "+"part_system_automatic_draw part_system_update part_system_drawit "+"part_system_get_layer part_system_layer part_particles_create "+"part_particles_create_colour part_particles_create_color "+"part_particles_clear part_particles_count part_emitter_create "+"part_emitter_destroy part_emitter_destroy_all part_emitter_exists "+"part_emitter_clear part_emitter_region part_emitter_burst "+"part_emitter_stream external_call external_define external_free "+"window_handle window_device matrix_get matrix_set "+"matrix_build_identity matrix_build matrix_build_lookat "+"matrix_build_projection_ortho matrix_build_projection_perspective "+"matrix_build_projection_perspective_fov matrix_multiply "+"matrix_transform_vertex matrix_stack_push matrix_stack_pop "+"matrix_stack_multiply matrix_stack_set matrix_stack_clear "+"matrix_stack_top matrix_stack_is_empty browser_input_capture "+"os_get_config os_get_info os_get_language os_get_region "+"os_lock_orientation display_get_dpi_x display_get_dpi_y "+"display_set_gui_size display_set_gui_maximise "+"display_set_gui_maximize device_mouse_dbclick_enable "+"display_set_timing_method display_get_timing_method "+"display_set_sleep_margin display_get_sleep_margin virtual_key_add "+"virtual_key_hide virtual_key_delete virtual_key_show "+"draw_enable_drawevent draw_enable_swf_aa draw_set_swf_aa_level "+"draw_get_swf_aa_level draw_texture_flush draw_flush "+"gpu_set_blendenable gpu_set_ztestenable gpu_set_zfunc "+"gpu_set_zwriteenable gpu_set_lightingenable gpu_set_fog "+"gpu_set_cullmode gpu_set_blendmode gpu_set_blendmode_ext "+"gpu_set_blendmode_ext_sepalpha gpu_set_colorwriteenable "+"gpu_set_colourwriteenable gpu_set_alphatestenable "+"gpu_set_alphatestref gpu_set_alphatestfunc gpu_set_texfilter "+"gpu_set_texfilter_ext gpu_set_texrepeat gpu_set_texrepeat_ext "+"gpu_set_tex_filter gpu_set_tex_filter_ext gpu_set_tex_repeat "+"gpu_set_tex_repeat_ext gpu_set_tex_mip_filter "+"gpu_set_tex_mip_filter_ext gpu_set_tex_mip_bias "+"gpu_set_tex_mip_bias_ext gpu_set_tex_min_mip gpu_set_tex_min_mip_ext "+"gpu_set_tex_max_mip gpu_set_tex_max_mip_ext gpu_set_tex_max_aniso "+"gpu_set_tex_max_aniso_ext gpu_set_tex_mip_enable "+"gpu_set_tex_mip_enable_ext gpu_get_blendenable gpu_get_ztestenable "+"gpu_get_zfunc gpu_get_zwriteenable gpu_get_lightingenable "+"gpu_get_fog gpu_get_cullmode gpu_get_blendmode gpu_get_blendmode_ext "+"gpu_get_blendmode_ext_sepalpha gpu_get_blendmode_src "+"gpu_get_blendmode_dest gpu_get_blendmode_srcalpha "+"gpu_get_blendmode_destalpha gpu_get_colorwriteenable "+"gpu_get_colourwriteenable gpu_get_alphatestenable "+"gpu_get_alphatestref gpu_get_alphatestfunc gpu_get_texfilter "+"gpu_get_texfilter_ext gpu_get_texrepeat gpu_get_texrepeat_ext "+"gpu_get_tex_filter gpu_get_tex_filter_ext gpu_get_tex_repeat "+"gpu_get_tex_repeat_ext gpu_get_tex_mip_filter "+"gpu_get_tex_mip_filter_ext gpu_get_tex_mip_bias "+"gpu_get_tex_mip_bias_ext gpu_get_tex_min_mip gpu_get_tex_min_mip_ext "+"gpu_get_tex_max_mip gpu_get_tex_max_mip_ext gpu_get_tex_max_aniso "+"gpu_get_tex_max_aniso_ext gpu_get_tex_mip_enable "+"gpu_get_tex_mip_enable_ext gpu_push_state gpu_pop_state "+"gpu_get_state gpu_set_state draw_light_define_ambient "+"draw_light_define_direction draw_light_define_point "+"draw_light_enable draw_set_lighting draw_light_get_ambient "+"draw_light_get draw_get_lighting shop_leave_rating url_get_domain "+"url_open url_open_ext url_open_full get_timer achievement_login "+"achievement_logout achievement_post achievement_increment "+"achievement_post_score achievement_available "+"achievement_show_achievements achievement_show_leaderboards "+"achievement_load_friends achievement_load_leaderboard "+"achievement_send_challenge achievement_load_progress "+"achievement_reset achievement_login_status achievement_get_pic "+"achievement_show_challenge_notifications achievement_get_challenges "+"achievement_event achievement_show achievement_get_info "+"cloud_file_save cloud_string_save cloud_synchronise ads_enable "+"ads_disable ads_setup ads_engagement_launch ads_engagement_available "+"ads_engagement_active ads_event ads_event_preload "+"ads_set_reward_callback ads_get_display_height ads_get_display_width "+"ads_move ads_interstitial_available ads_interstitial_display "+"device_get_tilt_x device_get_tilt_y device_get_tilt_z "+"device_is_keypad_open device_mouse_check_button "+"device_mouse_check_button_pressed device_mouse_check_button_released "+"device_mouse_x device_mouse_y device_mouse_raw_x device_mouse_raw_y "+"device_mouse_x_to_gui device_mouse_y_to_gui iap_activate iap_status "+"iap_enumerate_products iap_restore_all iap_acquire iap_consume "+"iap_product_details iap_purchase_details facebook_init "+"facebook_login facebook_status facebook_graph_request "+"facebook_dialog facebook_logout facebook_launch_offerwall "+"facebook_post_message facebook_send_invite facebook_user_id "+"facebook_accesstoken facebook_check_permission "+"facebook_request_read_permissions "+"facebook_request_publish_permissions gamepad_is_supported "+"gamepad_get_device_count gamepad_is_connected "+"gamepad_get_description gamepad_get_button_threshold "+"gamepad_set_button_threshold gamepad_get_axis_deadzone "+"gamepad_set_axis_deadzone gamepad_button_count gamepad_button_check "+"gamepad_button_check_pressed gamepad_button_check_released "+"gamepad_button_value gamepad_axis_count gamepad_axis_value "+"gamepad_set_vibration gamepad_set_colour gamepad_set_color "+"os_is_paused window_has_focus code_is_compiled http_get "+"http_get_file http_post_string http_request json_encode json_decode "+"zip_unzip load_csv base64_encode base64_decode md5_string_unicode "+"md5_string_utf8 md5_file os_is_network_connected sha1_string_unicode "+"sha1_string_utf8 sha1_file os_powersave_enable analytics_event "+"analytics_event_ext win8_livetile_tile_notification "+"win8_livetile_tile_clear win8_livetile_badge_notification "+"win8_livetile_badge_clear win8_livetile_queue_enable "+"win8_secondarytile_pin win8_secondarytile_badge_notification "+"win8_secondarytile_delete win8_livetile_notification_begin "+"win8_livetile_notification_secondary_begin "+"win8_livetile_notification_expiry win8_livetile_notification_tag "+"win8_livetile_notification_text_add "+"win8_livetile_notification_image_add win8_livetile_notification_end "+"win8_appbar_enable win8_appbar_add_element "+"win8_appbar_remove_element win8_settingscharm_add_entry "+"win8_settingscharm_add_html_entry win8_settingscharm_add_xaml_entry "+"win8_settingscharm_set_xaml_property "+"win8_settingscharm_get_xaml_property win8_settingscharm_remove_entry "+"win8_share_image win8_share_screenshot win8_share_file "+"win8_share_url win8_share_text win8_search_enable "+"win8_search_disable win8_search_add_suggestions "+"win8_device_touchscreen_available win8_license_initialize_sandbox "+"win8_license_trial_version winphone_license_trial_version "+"winphone_tile_title winphone_tile_count winphone_tile_back_title "+"winphone_tile_back_content winphone_tile_back_content_wide "+"winphone_tile_front_image winphone_tile_front_image_small "+"winphone_tile_front_image_wide winphone_tile_back_image "+"winphone_tile_back_image_wide winphone_tile_background_colour "+"winphone_tile_background_color winphone_tile_icon_image "+"winphone_tile_small_icon_image winphone_tile_wide_content "+"winphone_tile_cycle_images winphone_tile_small_background_image "+"physics_world_create physics_world_gravity "+"physics_world_update_speed physics_world_update_iterations "+"physics_world_draw_debug physics_pause_enable physics_fixture_create "+"physics_fixture_set_kinematic physics_fixture_set_density "+"physics_fixture_set_awake physics_fixture_set_restitution "+"physics_fixture_set_friction physics_fixture_set_collision_group "+"physics_fixture_set_sensor physics_fixture_set_linear_damping "+"physics_fixture_set_angular_damping physics_fixture_set_circle_shape "+"physics_fixture_set_box_shape physics_fixture_set_edge_shape "+"physics_fixture_set_polygon_shape physics_fixture_set_chain_shape "+"physics_fixture_add_point physics_fixture_bind "+"physics_fixture_bind_ext physics_fixture_delete physics_apply_force "+"physics_apply_impulse physics_apply_angular_impulse "+"physics_apply_local_force physics_apply_local_impulse "+"physics_apply_torque physics_mass_properties physics_draw_debug "+"physics_test_overlap physics_remove_fixture physics_set_friction "+"physics_set_density physics_set_restitution physics_get_friction "+"physics_get_density physics_get_restitution "+"physics_joint_distance_create physics_joint_rope_create "+"physics_joint_revolute_create physics_joint_prismatic_create "+"physics_joint_pulley_create physics_joint_wheel_create "+"physics_joint_weld_create physics_joint_friction_create "+"physics_joint_gear_create physics_joint_enable_motor "+"physics_joint_get_value physics_joint_set_value physics_joint_delete "+"physics_particle_create physics_particle_delete "+"physics_particle_delete_region_circle "+"physics_particle_delete_region_box "+"physics_particle_delete_region_poly physics_particle_set_flags "+"physics_particle_set_category_flags physics_particle_draw "+"physics_particle_draw_ext physics_particle_count "+"physics_particle_get_data physics_particle_get_data_particle "+"physics_particle_group_begin physics_particle_group_circle "+"physics_particle_group_box physics_particle_group_polygon "+"physics_particle_group_add_point physics_particle_group_end "+"physics_particle_group_join physics_particle_group_delete "+"physics_particle_group_count physics_particle_group_get_data "+"physics_particle_group_get_mass physics_particle_group_get_inertia "+"physics_particle_group_get_centre_x "+"physics_particle_group_get_centre_y physics_particle_group_get_vel_x "+"physics_particle_group_get_vel_y physics_particle_group_get_ang_vel "+"physics_particle_group_get_x physics_particle_group_get_y "+"physics_particle_group_get_angle physics_particle_set_group_flags "+"physics_particle_get_group_flags physics_particle_get_max_count "+"physics_particle_get_radius physics_particle_get_density "+"physics_particle_get_damping physics_particle_get_gravity_scale "+"physics_particle_set_max_count physics_particle_set_radius "+"physics_particle_set_density physics_particle_set_damping "+"physics_particle_set_gravity_scale network_create_socket "+"network_create_socket_ext network_create_server "+"network_create_server_raw network_connect network_connect_raw "+"network_send_packet network_send_raw network_send_broadcast "+"network_send_udp network_send_udp_raw network_set_timeout "+"network_set_config network_resolve network_destroy buffer_create "+"buffer_write buffer_read buffer_seek buffer_get_surface "+"buffer_set_surface buffer_delete buffer_exists buffer_get_type "+"buffer_get_alignment buffer_poke buffer_peek buffer_save "+"buffer_save_ext buffer_load buffer_load_ext buffer_load_partial "+"buffer_copy buffer_fill buffer_get_size buffer_tell buffer_resize "+"buffer_md5 buffer_sha1 buffer_base64_encode buffer_base64_decode "+"buffer_base64_decode_ext buffer_sizeof buffer_get_address "+"buffer_create_from_vertex_buffer "+"buffer_create_from_vertex_buffer_ext buffer_copy_from_vertex_buffer "+"buffer_async_group_begin buffer_async_group_option "+"buffer_async_group_end buffer_load_async buffer_save_async "+"gml_release_mode gml_pragma steam_activate_overlay "+"steam_is_overlay_enabled steam_is_overlay_activated "+"steam_get_persona_name steam_initialised "+"steam_is_cloud_enabled_for_app steam_is_cloud_enabled_for_account "+"steam_file_persisted steam_get_quota_total steam_get_quota_free "+"steam_file_write steam_file_write_file steam_file_read "+"steam_file_delete steam_file_exists steam_file_size steam_file_share "+"steam_is_screenshot_requested steam_send_screenshot "+"steam_is_user_logged_on steam_get_user_steam_id steam_user_owns_dlc "+"steam_user_installed_dlc steam_set_achievement steam_get_achievement "+"steam_clear_achievement steam_set_stat_int steam_set_stat_float "+"steam_set_stat_avg_rate steam_get_stat_int steam_get_stat_float "+"steam_get_stat_avg_rate steam_reset_all_stats "+"steam_reset_all_stats_achievements steam_stats_ready "+"steam_create_leaderboard steam_upload_score steam_upload_score_ext "+"steam_download_scores_around_user steam_download_scores "+"steam_download_friends_scores steam_upload_score_buffer "+"steam_upload_score_buffer_ext steam_current_game_language "+"steam_available_languages steam_activate_overlay_browser "+"steam_activate_overlay_user steam_activate_overlay_store "+"steam_get_user_persona_name steam_get_app_id "+"steam_get_user_account_id steam_ugc_download steam_ugc_create_item "+"steam_ugc_start_item_update steam_ugc_set_item_title "+"steam_ugc_set_item_description steam_ugc_set_item_visibility "+"steam_ugc_set_item_tags steam_ugc_set_item_content "+"steam_ugc_set_item_preview steam_ugc_submit_item_update "+"steam_ugc_get_item_update_progress steam_ugc_subscribe_item "+"steam_ugc_unsubscribe_item steam_ugc_num_subscribed_items "+"steam_ugc_get_subscribed_items steam_ugc_get_item_install_info "+"steam_ugc_get_item_update_info steam_ugc_request_item_details "+"steam_ugc_create_query_user steam_ugc_create_query_user_ex "+"steam_ugc_create_query_all steam_ugc_create_query_all_ex "+"steam_ugc_query_set_cloud_filename_filter "+"steam_ugc_query_set_match_any_tag steam_ugc_query_set_search_text "+"steam_ugc_query_set_ranked_by_trend_days "+"steam_ugc_query_add_required_tag steam_ugc_query_add_excluded_tag "+"steam_ugc_query_set_return_long_description "+"steam_ugc_query_set_return_total_only "+"steam_ugc_query_set_allow_cached_response steam_ugc_send_query "+"shader_set shader_get_name shader_reset shader_current "+"shader_is_compiled shader_get_sampler_index shader_get_uniform "+"shader_set_uniform_i shader_set_uniform_i_array shader_set_uniform_f "+"shader_set_uniform_f_array shader_set_uniform_matrix "+"shader_set_uniform_matrix_array shader_enable_corner_id "+"texture_set_stage texture_get_texel_width texture_get_texel_height "+"shaders_are_supported vertex_format_begin vertex_format_end "+"vertex_format_delete vertex_format_add_position "+"vertex_format_add_position_3d vertex_format_add_colour "+"vertex_format_add_color vertex_format_add_normal "+"vertex_format_add_texcoord vertex_format_add_textcoord "+"vertex_format_add_custom vertex_create_buffer "+"vertex_create_buffer_ext vertex_delete_buffer vertex_begin "+"vertex_end vertex_position vertex_position_3d vertex_colour "+"vertex_color vertex_argb vertex_texcoord vertex_normal vertex_float1 "+"vertex_float2 vertex_float3 vertex_float4 vertex_ubyte4 "+"vertex_submit vertex_freeze vertex_get_number vertex_get_buffer_size "+"vertex_create_buffer_from_buffer "+"vertex_create_buffer_from_buffer_ext push_local_notification "+"push_get_first_local_notification push_get_next_local_notification "+"push_cancel_local_notification skeleton_animation_set "+"skeleton_animation_get skeleton_animation_mix "+"skeleton_animation_set_ext skeleton_animation_get_ext "+"skeleton_animation_get_duration skeleton_animation_get_frames "+"skeleton_animation_clear skeleton_skin_set skeleton_skin_get "+"skeleton_attachment_set skeleton_attachment_get "+"skeleton_attachment_create skeleton_collision_draw_set "+"skeleton_bone_data_get skeleton_bone_data_set "+"skeleton_bone_state_get skeleton_bone_state_set skeleton_get_minmax "+"skeleton_get_num_bounds skeleton_get_bounds "+"skeleton_animation_get_frame skeleton_animation_set_frame "+"draw_skeleton draw_skeleton_time draw_skeleton_instance "+"draw_skeleton_collision skeleton_animation_list skeleton_skin_list "+"skeleton_slot_data layer_get_id layer_get_id_at_depth "+"layer_get_depth layer_create layer_destroy layer_destroy_instances "+"layer_add_instance layer_has_instance layer_set_visible "+"layer_get_visible layer_exists layer_x layer_y layer_get_x "+"layer_get_y layer_hspeed layer_vspeed layer_get_hspeed "+"layer_get_vspeed layer_script_begin layer_script_end layer_shader "+"layer_get_script_begin layer_get_script_end layer_get_shader "+"layer_set_target_room layer_get_target_room layer_reset_target_room "+"layer_get_all layer_get_all_elements layer_get_name layer_depth "+"layer_get_element_layer layer_get_element_type layer_element_move "+"layer_force_draw_depth layer_is_draw_depth_forced "+"layer_get_forced_depth layer_background_get_id "+"layer_background_exists layer_background_create "+"layer_background_destroy layer_background_visible "+"layer_background_change layer_background_sprite "+"layer_background_htiled layer_background_vtiled "+"layer_background_stretch layer_background_yscale "+"layer_background_xscale layer_background_blend "+"layer_background_alpha layer_background_index layer_background_speed "+"layer_background_get_visible layer_background_get_sprite "+"layer_background_get_htiled layer_background_get_vtiled "+"layer_background_get_stretch layer_background_get_yscale "+"layer_background_get_xscale layer_background_get_blend "+"layer_background_get_alpha layer_background_get_index "+"layer_background_get_speed layer_sprite_get_id layer_sprite_exists "+"layer_sprite_create layer_sprite_destroy layer_sprite_change "+"layer_sprite_index layer_sprite_speed layer_sprite_xscale "+"layer_sprite_yscale layer_sprite_angle layer_sprite_blend "+"layer_sprite_alpha layer_sprite_x layer_sprite_y "+"layer_sprite_get_sprite layer_sprite_get_index "+"layer_sprite_get_speed layer_sprite_get_xscale "+"layer_sprite_get_yscale layer_sprite_get_angle "+"layer_sprite_get_blend layer_sprite_get_alpha layer_sprite_get_x "+"layer_sprite_get_y layer_tilemap_get_id layer_tilemap_exists "+"layer_tilemap_create layer_tilemap_destroy tilemap_tileset tilemap_x "+"tilemap_y tilemap_set tilemap_set_at_pixel tilemap_get_tileset "+"tilemap_get_tile_width tilemap_get_tile_height tilemap_get_width "+"tilemap_get_height tilemap_get_x tilemap_get_y tilemap_get "+"tilemap_get_at_pixel tilemap_get_cell_x_at_pixel "+"tilemap_get_cell_y_at_pixel tilemap_clear draw_tilemap draw_tile "+"tilemap_set_global_mask tilemap_get_global_mask tilemap_set_mask "+"tilemap_get_mask tilemap_get_frame tile_set_empty tile_set_index "+"tile_set_flip tile_set_mirror tile_set_rotate tile_get_empty "+"tile_get_index tile_get_flip tile_get_mirror tile_get_rotate "+"layer_tile_exists layer_tile_create layer_tile_destroy "+"layer_tile_change layer_tile_xscale layer_tile_yscale "+"layer_tile_blend layer_tile_alpha layer_tile_x layer_tile_y "+"layer_tile_region layer_tile_visible layer_tile_get_sprite "+"layer_tile_get_xscale layer_tile_get_yscale layer_tile_get_blend "+"layer_tile_get_alpha layer_tile_get_x layer_tile_get_y "+"layer_tile_get_region layer_tile_get_visible "+"layer_instance_get_instance instance_activate_layer "+"instance_deactivate_layer camera_create camera_create_view "+"camera_destroy camera_apply camera_get_active camera_get_default "+"camera_set_default camera_set_view_mat camera_set_proj_mat "+"camera_set_update_script camera_set_begin_script "+"camera_set_end_script camera_set_view_pos camera_set_view_size "+"camera_set_view_speed camera_set_view_border camera_set_view_angle "+"camera_set_view_target camera_get_view_mat camera_get_proj_mat "+"camera_get_update_script camera_get_begin_script "+"camera_get_end_script camera_get_view_x camera_get_view_y "+"camera_get_view_width camera_get_view_height camera_get_view_speed_x "+"camera_get_view_speed_y camera_get_view_border_x "+"camera_get_view_border_y camera_get_view_angle "+"camera_get_view_target view_get_camera view_get_visible "+"view_get_xport view_get_yport view_get_wport view_get_hport "+"view_get_surface_id view_set_camera view_set_visible view_set_xport "+"view_set_yport view_set_wport view_set_hport view_set_surface_id "+"gesture_drag_time gesture_drag_distance gesture_flick_speed "+"gesture_double_tap_time gesture_double_tap_distance "+"gesture_pinch_distance gesture_pinch_angle_towards "+"gesture_pinch_angle_away gesture_rotate_time gesture_rotate_angle "+"gesture_tap_count gesture_get_drag_time gesture_get_drag_distance "+"gesture_get_flick_speed gesture_get_double_tap_time "+"gesture_get_double_tap_distance gesture_get_pinch_distance "+"gesture_get_pinch_angle_towards gesture_get_pinch_angle_away "+"gesture_get_rotate_time gesture_get_rotate_angle "+"gesture_get_tap_count keyboard_virtual_show keyboard_virtual_hide "+"keyboard_virtual_status keyboard_virtual_height",literal:"self other all noone global local undefined pointer_invalid "+"pointer_null path_action_stop path_action_restart "+"path_action_continue path_action_reverse true false pi GM_build_date "+"GM_version GM_runtime_version timezone_local timezone_utc "+"gamespeed_fps gamespeed_microseconds ev_create ev_destroy ev_step "+"ev_alarm ev_keyboard ev_mouse ev_collision ev_other ev_draw "+"ev_draw_begin ev_draw_end ev_draw_pre ev_draw_post ev_keypress "+"ev_keyrelease ev_trigger ev_left_button ev_right_button "+"ev_middle_button ev_no_button ev_left_press ev_right_press "+"ev_middle_press ev_left_release ev_right_release ev_middle_release "+"ev_mouse_enter ev_mouse_leave ev_mouse_wheel_up ev_mouse_wheel_down "+"ev_global_left_button ev_global_right_button ev_global_middle_button "+"ev_global_left_press ev_global_right_press ev_global_middle_press "+"ev_global_left_release ev_global_right_release "+"ev_global_middle_release ev_joystick1_left ev_joystick1_right "+"ev_joystick1_up ev_joystick1_down ev_joystick1_button1 "+"ev_joystick1_button2 ev_joystick1_button3 ev_joystick1_button4 "+"ev_joystick1_button5 ev_joystick1_button6 ev_joystick1_button7 "+"ev_joystick1_button8 ev_joystick2_left ev_joystick2_right "+"ev_joystick2_up ev_joystick2_down ev_joystick2_button1 "+"ev_joystick2_button2 ev_joystick2_button3 ev_joystick2_button4 "+"ev_joystick2_button5 ev_joystick2_button6 ev_joystick2_button7 "+"ev_joystick2_button8 ev_outside ev_boundary ev_game_start "+"ev_game_end ev_room_start ev_room_end ev_no_more_lives "+"ev_animation_end ev_end_of_path ev_no_more_health ev_close_button "+"ev_user0 ev_user1 ev_user2 ev_user3 ev_user4 ev_user5 ev_user6 "+"ev_user7 ev_user8 ev_user9 ev_user10 ev_user11 ev_user12 ev_user13 "+"ev_user14 ev_user15 ev_step_normal ev_step_begin ev_step_end ev_gui "+"ev_gui_begin ev_gui_end ev_cleanup ev_gesture ev_gesture_tap "+"ev_gesture_double_tap ev_gesture_drag_start ev_gesture_dragging "+"ev_gesture_drag_end ev_gesture_flick ev_gesture_pinch_start "+"ev_gesture_pinch_in ev_gesture_pinch_out ev_gesture_pinch_end "+"ev_gesture_rotate_start ev_gesture_rotating ev_gesture_rotate_end "+"ev_global_gesture_tap ev_global_gesture_double_tap "+"ev_global_gesture_drag_start ev_global_gesture_dragging "+"ev_global_gesture_drag_end ev_global_gesture_flick "+"ev_global_gesture_pinch_start ev_global_gesture_pinch_in "+"ev_global_gesture_pinch_out ev_global_gesture_pinch_end "+"ev_global_gesture_rotate_start ev_global_gesture_rotating "+"ev_global_gesture_rotate_end vk_nokey vk_anykey vk_enter vk_return "+"vk_shift vk_control vk_alt vk_escape vk_space vk_backspace vk_tab "+"vk_pause vk_printscreen vk_left vk_right vk_up vk_down vk_home "+"vk_end vk_delete vk_insert vk_pageup vk_pagedown vk_f1 vk_f2 vk_f3 "+"vk_f4 vk_f5 vk_f6 vk_f7 vk_f8 vk_f9 vk_f10 vk_f11 vk_f12 vk_numpad0 "+"vk_numpad1 vk_numpad2 vk_numpad3 vk_numpad4 vk_numpad5 vk_numpad6 "+"vk_numpad7 vk_numpad8 vk_numpad9 vk_divide vk_multiply vk_subtract "+"vk_add vk_decimal vk_lshift vk_lcontrol vk_lalt vk_rshift "+"vk_rcontrol vk_ralt mb_any mb_none mb_left mb_right mb_middle "+"c_aqua c_black c_blue c_dkgray c_fuchsia c_gray c_green c_lime "+"c_ltgray c_maroon c_navy c_olive c_purple c_red c_silver c_teal "+"c_white c_yellow c_orange fa_left fa_center fa_right fa_top "+"fa_middle fa_bottom pr_pointlist pr_linelist pr_linestrip "+"pr_trianglelist pr_trianglestrip pr_trianglefan bm_complex bm_normal "+"bm_add bm_max bm_subtract bm_zero bm_one bm_src_colour "+"bm_inv_src_colour bm_src_color bm_inv_src_color bm_src_alpha "+"bm_inv_src_alpha bm_dest_alpha bm_inv_dest_alpha bm_dest_colour "+"bm_inv_dest_colour bm_dest_color bm_inv_dest_color bm_src_alpha_sat "+"tf_point tf_linear tf_anisotropic mip_off mip_on mip_markedonly "+"audio_falloff_none audio_falloff_inverse_distance "+"audio_falloff_inverse_distance_clamped audio_falloff_linear_distance "+"audio_falloff_linear_distance_clamped "+"audio_falloff_exponent_distance "+"audio_falloff_exponent_distance_clamped audio_old_system "+"audio_new_system audio_mono audio_stereo audio_3d cr_default cr_none "+"cr_arrow cr_cross cr_beam cr_size_nesw cr_size_ns cr_size_nwse "+"cr_size_we cr_uparrow cr_hourglass cr_drag cr_appstart cr_handpoint "+"cr_size_all spritespeed_framespersecond "+"spritespeed_framespergameframe asset_object asset_unknown "+"asset_sprite asset_sound asset_room asset_path asset_script "+"asset_font asset_timeline asset_tiles asset_shader fa_readonly "+"fa_hidden fa_sysfile fa_volumeid fa_directory fa_archive "+"ds_type_map ds_type_list ds_type_stack ds_type_queue ds_type_grid "+"ds_type_priority ef_explosion ef_ring ef_ellipse ef_firework "+"ef_smoke ef_smokeup ef_star ef_spark ef_flare ef_cloud ef_rain "+"ef_snow pt_shape_pixel pt_shape_disk pt_shape_square pt_shape_line "+"pt_shape_star pt_shape_circle pt_shape_ring pt_shape_sphere "+"pt_shape_flare pt_shape_spark pt_shape_explosion pt_shape_cloud "+"pt_shape_smoke pt_shape_snow ps_distr_linear ps_distr_gaussian "+"ps_distr_invgaussian ps_shape_rectangle ps_shape_ellipse "+"ps_shape_diamond ps_shape_line ty_real ty_string dll_cdecl "+"dll_stdcall matrix_view matrix_projection matrix_world os_win32 "+"os_windows os_macosx os_ios os_android os_symbian os_linux "+"os_unknown os_winphone os_tizen os_win8native "+"os_wiiu os_3ds os_psvita os_bb10 os_ps4 os_xboxone "+"os_ps3 os_xbox360 os_uwp os_tvos os_switch "+"browser_not_a_browser browser_unknown browser_ie browser_firefox "+"browser_chrome browser_safari browser_safari_mobile browser_opera "+"browser_tizen browser_edge browser_windows_store browser_ie_mobile "+"device_ios_unknown device_ios_iphone device_ios_iphone_retina "+"device_ios_ipad device_ios_ipad_retina device_ios_iphone5 "+"device_ios_iphone6 device_ios_iphone6plus device_emulator "+"device_tablet display_landscape display_landscape_flipped "+"display_portrait display_portrait_flipped tm_sleep tm_countvsyncs "+"of_challenge_win of_challen ge_lose of_challenge_tie "+"leaderboard_type_number leaderboard_type_time_mins_secs "+"cmpfunc_never cmpfunc_less cmpfunc_equal cmpfunc_lessequal "+"cmpfunc_greater cmpfunc_notequal cmpfunc_greaterequal cmpfunc_always "+"cull_noculling cull_clockwise cull_counterclockwise lighttype_dir "+"lighttype_point iap_ev_storeload iap_ev_product iap_ev_purchase "+"iap_ev_consume iap_ev_restore iap_storeload_ok iap_storeload_failed "+"iap_status_uninitialised iap_status_unavailable iap_status_loading "+"iap_status_available iap_status_processing iap_status_restoring "+"iap_failed iap_unavailable iap_available iap_purchased iap_canceled "+"iap_refunded fb_login_default fb_login_fallback_to_webview "+"fb_login_no_fallback_to_webview fb_login_forcing_webview "+"fb_login_use_system_account fb_login_forcing_safari "+"phy_joint_anchor_1_x phy_joint_anchor_1_y phy_joint_anchor_2_x "+"phy_joint_anchor_2_y phy_joint_reaction_force_x "+"phy_joint_reaction_force_y phy_joint_reaction_torque "+"phy_joint_motor_speed phy_joint_angle phy_joint_motor_torque "+"phy_joint_max_motor_torque phy_joint_translation phy_joint_speed "+"phy_joint_motor_force phy_joint_max_motor_force phy_joint_length_1 "+"phy_joint_length_2 phy_joint_damping_ratio phy_joint_frequency "+"phy_joint_lower_angle_limit phy_joint_upper_angle_limit "+"phy_joint_angle_limits phy_joint_max_length phy_joint_max_torque "+"phy_joint_max_force phy_debug_render_aabb "+"phy_debug_render_collision_pairs phy_debug_render_coms "+"phy_debug_render_core_shapes phy_debug_render_joints "+"phy_debug_render_obb phy_debug_render_shapes "+"phy_particle_flag_water phy_particle_flag_zombie "+"phy_particle_flag_wall phy_particle_flag_spring "+"phy_particle_flag_elastic phy_particle_flag_viscous "+"phy_particle_flag_powder phy_particle_flag_tensile "+"phy_particle_flag_colourmixing phy_particle_flag_colormixing "+"phy_particle_group_flag_solid phy_particle_group_flag_rigid "+"phy_particle_data_flag_typeflags phy_particle_data_flag_position "+"phy_particle_data_flag_velocity phy_particle_data_flag_colour "+"phy_particle_data_flag_color phy_particle_data_flag_category "+"achievement_our_info achievement_friends_info "+"achievement_leaderboard_info achievement_achievement_info "+"achievement_filter_all_players achievement_filter_friends_only "+"achievement_filter_favorites_only "+"achievement_type_achievement_challenge "+"achievement_type_score_challenge achievement_pic_loaded "+"achievement_show_ui achievement_show_profile "+"achievement_show_leaderboard achievement_show_achievement "+"achievement_show_bank achievement_show_friend_picker "+"achievement_show_purchase_prompt network_socket_tcp "+"network_socket_udp network_socket_bluetooth network_type_connect "+"network_type_disconnect network_type_data "+"network_type_non_blocking_connect network_config_connect_timeout "+"network_config_use_non_blocking_socket "+"network_config_enable_reliable_udp "+"network_config_disable_reliable_udp buffer_fixed buffer_grow "+"buffer_wrap buffer_fast buffer_vbuffer buffer_network buffer_u8 "+"buffer_s8 buffer_u16 buffer_s16 buffer_u32 buffer_s32 buffer_u64 "+"buffer_f16 buffer_f32 buffer_f64 buffer_bool buffer_text "+"buffer_string buffer_surface_copy buffer_seek_start "+"buffer_seek_relative buffer_seek_end "+"buffer_generalerror buffer_outofspace buffer_outofbounds "+"buffer_invalidtype text_type button_type input_type ANSI_CHARSET "+"DEFAULT_CHARSET EASTEUROPE_CHARSET RUSSIAN_CHARSET SYMBOL_CHARSET "+"SHIFTJIS_CHARSET HANGEUL_CHARSET GB2312_CHARSET CHINESEBIG5_CHARSET "+"JOHAB_CHARSET HEBREW_CHARSET ARABIC_CHARSET GREEK_CHARSET "+"TURKISH_CHARSET VIETNAMESE_CHARSET THAI_CHARSET MAC_CHARSET "+"BALTIC_CHARSET OEM_CHARSET gp_face1 gp_face2 gp_face3 gp_face4 "+"gp_shoulderl gp_shoulderr gp_shoulderlb gp_shoulderrb gp_select "+"gp_start gp_stickl gp_stickr gp_padu gp_padd gp_padl gp_padr "+"gp_axislh gp_axislv gp_axisrh gp_axisrv ov_friends ov_community "+"ov_players ov_settings ov_gamegroup ov_achievements lb_sort_none "+"lb_sort_ascending lb_sort_descending lb_disp_none lb_disp_numeric "+"lb_disp_time_sec lb_disp_time_ms ugc_result_success "+"ugc_filetype_community ugc_filetype_microtrans ugc_visibility_public "+"ugc_visibility_friends_only ugc_visibility_private "+"ugc_query_RankedByVote ugc_query_RankedByPublicationDate "+"ugc_query_AcceptedForGameRankedByAcceptanceDate "+"ugc_query_RankedByTrend "+"ugc_query_FavoritedByFriendsRankedByPublicationDate "+"ugc_query_CreatedByFriendsRankedByPublicationDate "+"ugc_query_RankedByNumTimesReported "+"ugc_query_CreatedByFollowedUsersRankedByPublicationDate "+"ugc_query_NotYetRated ugc_query_RankedByTotalVotesAsc "+"ugc_query_RankedByVotesUp ugc_query_RankedByTextSearch "+"ugc_sortorder_CreationOrderDesc ugc_sortorder_CreationOrderAsc "+"ugc_sortorder_TitleAsc ugc_sortorder_LastUpdatedDesc "+"ugc_sortorder_SubscriptionDateDesc ugc_sortorder_VoteScoreDesc "+"ugc_sortorder_ForModeration ugc_list_Published ugc_list_VotedOn "+"ugc_list_VotedUp ugc_list_VotedDown ugc_list_WillVoteLater "+"ugc_list_Favorited ugc_list_Subscribed ugc_list_UsedOrPlayed "+"ugc_list_Followed ugc_match_Items ugc_match_Items_Mtx "+"ugc_match_Items_ReadyToUse ugc_match_Collections ugc_match_Artwork "+"ugc_match_Videos ugc_match_Screenshots ugc_match_AllGuides "+"ugc_match_WebGuides ugc_match_IntegratedGuides "+"ugc_match_UsableInGame ugc_match_ControllerBindings "+"vertex_usage_position vertex_usage_colour vertex_usage_color "+"vertex_usage_normal vertex_usage_texcoord vertex_usage_textcoord "+"vertex_usage_blendweight vertex_usage_blendindices "+"vertex_usage_psize vertex_usage_tangent vertex_usage_binormal "+"vertex_usage_fog vertex_usage_depth vertex_usage_sample "+"vertex_type_float1 vertex_type_float2 vertex_type_float3 "+"vertex_type_float4 vertex_type_colour vertex_type_color "+"vertex_type_ubyte4 layerelementtype_undefined "+"layerelementtype_background layerelementtype_instance "+"layerelementtype_oldtilemap layerelementtype_sprite "+"layerelementtype_tilemap layerelementtype_particlesystem "+"layerelementtype_tile tile_rotate tile_flip tile_mirror "+"tile_index_mask kbv_type_default kbv_type_ascii kbv_type_url "+"kbv_type_email kbv_type_numbers kbv_type_phone kbv_type_phone_name "+"kbv_returnkey_default kbv_returnkey_go kbv_returnkey_google "+"kbv_returnkey_join kbv_returnkey_next kbv_returnkey_route "+"kbv_returnkey_search kbv_returnkey_send kbv_returnkey_yahoo "+"kbv_returnkey_done kbv_returnkey_continue kbv_returnkey_emergency "+"kbv_autocapitalize_none kbv_autocapitalize_words "+"kbv_autocapitalize_sentences kbv_autocapitalize_characters",symbol:"argument_relative argument argument0 argument1 argument2 "+"argument3 argument4 argument5 argument6 argument7 argument8 "+"argument9 argument10 argument11 argument12 argument13 argument14 "+"argument15 argument_count x y xprevious yprevious xstart ystart "+"hspeed vspeed direction speed friction gravity gravity_direction "+"path_index path_position path_positionprevious path_speed "+"path_scale path_orientation path_endaction object_index id solid "+"persistent mask_index instance_count instance_id room_speed fps "+"fps_real current_time current_year current_month current_day "+"current_weekday current_hour current_minute current_second alarm "+"timeline_index timeline_position timeline_speed timeline_running "+"timeline_loop room room_first room_last room_width room_height "+"room_caption room_persistent score lives health show_score "+"show_lives show_health caption_score caption_lives caption_health "+"event_type event_number event_object event_action "+"application_surface gamemaker_pro gamemaker_registered "+"gamemaker_version error_occurred error_last debug_mode "+"keyboard_key keyboard_lastkey keyboard_lastchar keyboard_string "+"mouse_x mouse_y mouse_button mouse_lastbutton cursor_sprite "+"visible sprite_index sprite_width sprite_height sprite_xoffset "+"sprite_yoffset image_number image_index image_speed depth "+"image_xscale image_yscale image_angle image_alpha image_blend "+"bbox_left bbox_right bbox_top bbox_bottom layer background_colour "+"background_showcolour background_color background_showcolor "+"view_enabled view_current view_visible view_xview view_yview "+"view_wview view_hview view_xport view_yport view_wport view_hport "+"view_angle view_hborder view_vborder view_hspeed view_vspeed "+"view_object view_surface_id view_camera game_id game_display_name "+"game_project_name game_save_id working_directory temp_directory "+"program_directory browser_width browser_height os_type os_device "+"os_browser os_version display_aa async_load delta_time "+"webgl_enabled event_data iap_data phy_rotation phy_position_x "+"phy_position_y phy_angular_velocity phy_linear_velocity_x "+"phy_linear_velocity_y phy_speed_x phy_speed_y phy_speed "+"phy_angular_damping phy_linear_damping phy_bullet "+"phy_fixed_rotation phy_active phy_mass phy_inertia phy_com_x "+"phy_com_y phy_dynamic phy_kinematic phy_sleeping "+"phy_collision_points phy_collision_x phy_collision_y "+"phy_col_normal_x phy_col_normal_y phy_position_xprevious "+"phy_position_yprevious"};return{aliases:["gml","GML"],case_insensitive:false,keywords:GML_KEYWORDS,contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.C_NUMBER_MODE]}});hljs.registerLanguage("smali",function(hljs){var smali_instr_low_prio=["add","and","cmp","cmpg","cmpl","const","div","double","float","goto","if","int","long","move","mul","neg","new","nop","not","or","rem","return","shl","shr","sput","sub","throw","ushr","xor"];var smali_instr_high_prio=["aget","aput","array","check","execute","fill","filled","goto/16","goto/32","iget","instance","invoke","iput","monitor","packed","sget","sparse"];var smali_keywords=["transient","constructor","abstract","final","synthetic","public","private","protected","static","bridge","system"];return{aliases:["smali"],contains:[{className:"string",begin:'"',end:'"',relevance:0},hljs.COMMENT("#","$",{relevance:0}),{className:"keyword",variants:[{begin:"\\s*\\.end\\s[a-zA-Z0-9]*"},{begin:"^[ ]*\\.[a-zA-Z]*",relevance:0},{begin:"\\s:[a-zA-Z_0-9]*",relevance:0},{begin:"\\s("+smali_keywords.join("|")+")"}]},{className:"built_in",variants:[{begin:"\\s("+smali_instr_low_prio.join("|")+")\\s"},{begin:"\\s("+smali_instr_low_prio.join("|")+")((\\-|/)[a-zA-Z0-9]+)+\\s",relevance:10},{begin:"\\s("+smali_instr_high_prio.join("|")+")((\\-|/)[a-zA-Z0-9]+)*\\s",relevance:10}]},{className:"class",begin:"L[^(;:\n]*;",relevance:0},{begin:"[vp][0-9]+"}]}});hljs.registerLanguage("lsl",function(hljs){var LSL_STRING_ESCAPE_CHARS={className:"subst",begin:/\\[tn"\\]/};var LSL_STRINGS={className:"string",begin:'"',end:'"',contains:[LSL_STRING_ESCAPE_CHARS]};var LSL_NUMBERS={className:"number",begin:hljs.C_NUMBER_RE};var LSL_CONSTANTS={className:"literal",variants:[{begin:"\\b(?:PI|TWO_PI|PI_BY_TWO|DEG_TO_RAD|RAD_TO_DEG|SQRT2)\\b"},{begin:"\\b(?:XP_ERROR_(?:EXPERIENCES_DISABLED|EXPERIENCE_(?:DISABLED|SUSPENDED)|INVALID_(?:EXPERIENCE|PARAMETERS)|KEY_NOT_FOUND|MATURITY_EXCEEDED|NONE|NOT_(?:FOUND|PERMITTED(?:_LAND)?)|NO_EXPERIENCE|QUOTA_EXCEEDED|RETRY_UPDATE|STORAGE_EXCEPTION|STORE_DISABLED|THROTTLED|UNKNOWN_ERROR)|JSON_APPEND|STATUS_(?:PHYSICS|ROTATE_[XYZ]|PHANTOM|SANDBOX|BLOCK_GRAB(?:_OBJECT)?|(?:DIE|RETURN)_AT_EDGE|CAST_SHADOWS|OK|MALFORMED_PARAMS|TYPE_MISMATCH|BOUNDS_ERROR|NOT_(?:FOUND|SUPPORTED)|INTERNAL_ERROR|WHITELIST_FAILED)|AGENT(?:_(?:BY_(?:LEGACY_|USER)NAME|FLYING|ATTACHMENTS|SCRIPTED|MOUSELOOK|SITTING|ON_OBJECT|AWAY|WALKING|IN_AIR|TYPING|CROUCHING|BUSY|ALWAYS_RUN|AUTOPILOT|LIST_(?:PARCEL(?:_OWNER)?|REGION)))?|CAMERA_(?:PITCH|DISTANCE|BEHINDNESS_(?:ANGLE|LAG)|(?:FOCUS|POSITION)(?:_(?:THRESHOLD|LOCKED|LAG))?|FOCUS_OFFSET|ACTIVE)|ANIM_ON|LOOP|REVERSE|PING_PONG|SMOOTH|ROTATE|SCALE|ALL_SIDES|LINK_(?:ROOT|SET|ALL_(?:OTHERS|CHILDREN)|THIS)|ACTIVE|PASS(?:IVE|_(?:ALWAYS|IF_NOT_HANDLED|NEVER))|SCRIPTED|CONTROL_(?:FWD|BACK|(?:ROT_)?(?:LEFT|RIGHT)|UP|DOWN|(?:ML_)?LBUTTON)|PERMISSION_(?:RETURN_OBJECTS|DEBIT|OVERRIDE_ANIMATIONS|SILENT_ESTATE_MANAGEMENT|TAKE_CONTROLS|TRIGGER_ANIMATION|ATTACH|CHANGE_LINKS|(?:CONTROL|TRACK)_CAMERA|TELEPORT)|INVENTORY_(?:TEXTURE|SOUND|OBJECT|SCRIPT|LANDMARK|CLOTHING|NOTECARD|BODYPART|ANIMATION|GESTURE|ALL|NONE)|CHANGED_(?:INVENTORY|COLOR|SHAPE|SCALE|TEXTURE|LINK|ALLOWED_DROP|OWNER|REGION(?:_START)?|TELEPORT|MEDIA)|OBJECT_(?:CLICK_ACTION|HOVER_HEIGHT|LAST_OWNER_ID|(?:PHYSICS|SERVER|STREAMING)_COST|UNKNOWN_DETAIL|CHARACTER_TIME|PHANTOM|PHYSICS|TEMP_(?:ATTACHED|ON_REZ)|NAME|DESC|POS|PRIM_(?:COUNT|EQUIVALENCE)|RETURN_(?:PARCEL(?:_OWNER)?|REGION)|REZZER_KEY|ROO?T|VELOCITY|OMEGA|OWNER|GROUP(?:_TAG)?|CREATOR|ATTACHED_(?:POINT|SLOTS_AVAILABLE)|RENDER_WEIGHT|(?:BODY_SHAPE|PATHFINDING)_TYPE|(?:RUNNING|TOTAL)_SCRIPT_COUNT|TOTAL_INVENTORY_COUNT|SCRIPT_(?:MEMORY|TIME))|TYPE_(?:INTEGER|FLOAT|STRING|KEY|VECTOR|ROTATION|INVALID)|(?:DEBUG|PUBLIC)_CHANNEL|ATTACH_(?:AVATAR_CENTER|CHEST|HEAD|BACK|PELVIS|MOUTH|CHIN|NECK|NOSE|BELLY|[LR](?:SHOULDER|HAND|FOOT|EAR|EYE|[UL](?:ARM|LEG)|HIP)|(?:LEFT|RIGHT)_PEC|HUD_(?:CENTER_[12]|TOP_(?:RIGHT|CENTER|LEFT)|BOTTOM(?:_(?:RIGHT|LEFT))?)|[LR]HAND_RING1|TAIL_(?:BASE|TIP)|[LR]WING|FACE_(?:JAW|[LR]EAR|[LR]EYE|TOUNGE)|GROIN|HIND_[LR]FOOT)|LAND_(?:LEVEL|RAISE|LOWER|SMOOTH|NOISE|REVERT)|DATA_(?:ONLINE|NAME|BORN|SIM_(?:POS|STATUS|RATING)|PAYINFO)|PAYMENT_INFO_(?:ON_FILE|USED)|REMOTE_DATA_(?:CHANNEL|REQUEST|REPLY)|PSYS_(?:PART_(?:BF_(?:ZERO|ONE(?:_MINUS_(?:DEST_COLOR|SOURCE_(ALPHA|COLOR)))?|DEST_COLOR|SOURCE_(ALPHA|COLOR))|BLEND_FUNC_(DEST|SOURCE)|FLAGS|(?:START|END)_(?:COLOR|ALPHA|SCALE|GLOW)|MAX_AGE|(?:RIBBON|WIND|INTERP_(?:COLOR|SCALE)|BOUNCE|FOLLOW_(?:SRC|VELOCITY)|TARGET_(?:POS|LINEAR)|EMISSIVE)_MASK)|SRC_(?:MAX_AGE|PATTERN|ANGLE_(?:BEGIN|END)|BURST_(?:RATE|PART_COUNT|RADIUS|SPEED_(?:MIN|MAX))|ACCEL|TEXTURE|TARGET_KEY|OMEGA|PATTERN_(?:DROP|EXPLODE|ANGLE(?:_CONE(?:_EMPTY)?)?)))|VEHICLE_(?:REFERENCE_FRAME|TYPE_(?:NONE|SLED|CAR|BOAT|AIRPLANE|BALLOON)|(?:LINEAR|ANGULAR)_(?:FRICTION_TIMESCALE|MOTOR_DIRECTION)|LINEAR_MOTOR_OFFSET|HOVER_(?:HEIGHT|EFFICIENCY|TIMESCALE)|BUOYANCY|(?:LINEAR|ANGULAR)_(?:DEFLECTION_(?:EFFICIENCY|TIMESCALE)|MOTOR_(?:DECAY_)?TIMESCALE)|VERTICAL_ATTRACTION_(?:EFFICIENCY|TIMESCALE)|BANKING_(?:EFFICIENCY|MIX|TIMESCALE)|FLAG_(?:NO_DEFLECTION_UP|LIMIT_(?:ROLL_ONLY|MOTOR_UP)|HOVER_(?:(?:WATER|TERRAIN|UP)_ONLY|GLOBAL_HEIGHT)|MOUSELOOK_(?:STEER|BANK)|CAMERA_DECOUPLED))|PRIM_(?:ALLOW_UNSIT|ALPHA_MODE(?:_(?:BLEND|EMISSIVE|MASK|NONE))?|NORMAL|SPECULAR|TYPE(?:_(?:BOX|CYLINDER|PRISM|SPHERE|TORUS|TUBE|RING|SCULPT))?|HOLE_(?:DEFAULT|CIRCLE|SQUARE|TRIANGLE)|MATERIAL(?:_(?:STONE|METAL|GLASS|WOOD|FLESH|PLASTIC|RUBBER))?|SHINY_(?:NONE|LOW|MEDIUM|HIGH)|BUMP_(?:NONE|BRIGHT|DARK|WOOD|BARK|BRICKS|CHECKER|CONCRETE|TILE|STONE|DISKS|GRAVEL|BLOBS|SIDING|LARGETILE|STUCCO|SUCTION|WEAVE)|TEXGEN_(?:DEFAULT|PLANAR)|SCRIPTED_SIT_ONLY|SCULPT_(?:TYPE_(?:SPHERE|TORUS|PLANE|CYLINDER|MASK)|FLAG_(?:MIRROR|INVERT))|PHYSICS(?:_(?:SHAPE_(?:CONVEX|NONE|PRIM|TYPE)))?|(?:POS|ROT)_LOCAL|SLICE|TEXT|FLEXIBLE|POINT_LIGHT|TEMP_ON_REZ|PHANTOM|POSITION|SIT_TARGET|SIZE|ROTATION|TEXTURE|NAME|OMEGA|DESC|LINK_TARGET|COLOR|BUMP_SHINY|FULLBRIGHT|TEXGEN|GLOW|MEDIA_(?:ALT_IMAGE_ENABLE|CONTROLS|(?:CURRENT|HOME)_URL|AUTO_(?:LOOP|PLAY|SCALE|ZOOM)|FIRST_CLICK_INTERACT|(?:WIDTH|HEIGHT)_PIXELS|WHITELIST(?:_ENABLE)?|PERMS_(?:INTERACT|CONTROL)|PARAM_MAX|CONTROLS_(?:STANDARD|MINI)|PERM_(?:NONE|OWNER|GROUP|ANYONE)|MAX_(?:URL_LENGTH|WHITELIST_(?:SIZE|COUNT)|(?:WIDTH|HEIGHT)_PIXELS)))|MASK_(?:BASE|OWNER|GROUP|EVERYONE|NEXT)|PERM_(?:TRANSFER|MODIFY|COPY|MOVE|ALL)|PARCEL_(?:MEDIA_COMMAND_(?:STOP|PAUSE|PLAY|LOOP|TEXTURE|URL|TIME|AGENT|UNLOAD|AUTO_ALIGN|TYPE|SIZE|DESC|LOOP_SET)|FLAG_(?:ALLOW_(?:FLY|(?:GROUP_)?SCRIPTS|LANDMARK|TERRAFORM|DAMAGE|CREATE_(?:GROUP_)?OBJECTS)|USE_(?:ACCESS_(?:GROUP|LIST)|BAN_LIST|LAND_PASS_LIST)|LOCAL_SOUND_ONLY|RESTRICT_PUSHOBJECT|ALLOW_(?:GROUP|ALL)_OBJECT_ENTRY)|COUNT_(?:TOTAL|OWNER|GROUP|OTHER|SELECTED|TEMP)|DETAILS_(?:NAME|DESC|OWNER|GROUP|AREA|ID|SEE_AVATARS))|LIST_STAT_(?:MAX|MIN|MEAN|MEDIAN|STD_DEV|SUM(?:_SQUARES)?|NUM_COUNT|GEOMETRIC_MEAN|RANGE)|PAY_(?:HIDE|DEFAULT)|REGION_FLAG_(?:ALLOW_DAMAGE|FIXED_SUN|BLOCK_TERRAFORM|SANDBOX|DISABLE_(?:COLLISIONS|PHYSICS)|BLOCK_FLY|ALLOW_DIRECT_TELEPORT|RESTRICT_PUSHOBJECT)|HTTP_(?:METHOD|MIMETYPE|BODY_(?:MAXLENGTH|TRUNCATED)|CUSTOM_HEADER|PRAGMA_NO_CACHE|VERBOSE_THROTTLE|VERIFY_CERT)|SIT_(?:INVALID_(?:AGENT|LINK_OBJECT)|NO(?:T_EXPERIENCE|_(?:ACCESS|EXPERIENCE_PERMISSION|SIT_TARGET)))|STRING_(?:TRIM(?:_(?:HEAD|TAIL))?)|CLICK_ACTION_(?:NONE|TOUCH|SIT|BUY|PAY|OPEN(?:_MEDIA)?|PLAY|ZOOM)|TOUCH_INVALID_FACE|PROFILE_(?:NONE|SCRIPT_MEMORY)|RC_(?:DATA_FLAGS|DETECT_PHANTOM|GET_(?:LINK_NUM|NORMAL|ROOT_KEY)|MAX_HITS|REJECT_(?:TYPES|AGENTS|(?:NON)?PHYSICAL|LAND))|RCERR_(?:CAST_TIME_EXCEEDED|SIM_PERF_LOW|UNKNOWN)|ESTATE_ACCESS_(?:ALLOWED_(?:AGENT|GROUP)_(?:ADD|REMOVE)|BANNED_AGENT_(?:ADD|REMOVE))|DENSITY|FRICTION|RESTITUTION|GRAVITY_MULTIPLIER|KFM_(?:COMMAND|CMD_(?:PLAY|STOP|PAUSE)|MODE|FORWARD|LOOP|PING_PONG|REVERSE|DATA|ROTATION|TRANSLATION)|ERR_(?:GENERIC|PARCEL_PERMISSIONS|MALFORMED_PARAMS|RUNTIME_PERMISSIONS|THROTTLED)|CHARACTER_(?:CMD_(?:(?:SMOOTH_)?STOP|JUMP)|DESIRED_(?:TURN_)?SPEED|RADIUS|STAY_WITHIN_PARCEL|LENGTH|ORIENTATION|ACCOUNT_FOR_SKIPPED_FRAMES|AVOIDANCE_MODE|TYPE(?:_(?:[ABCD]|NONE))?|MAX_(?:DECEL|TURN_RADIUS|(?:ACCEL|SPEED)))|PURSUIT_(?:OFFSET|FUZZ_FACTOR|GOAL_TOLERANCE|INTERCEPT)|REQUIRE_LINE_OF_SIGHT|FORCE_DIRECT_PATH|VERTICAL|HORIZONTAL|AVOID_(?:CHARACTERS|DYNAMIC_OBSTACLES|NONE)|PU_(?:EVADE_(?:HIDDEN|SPOTTED)|FAILURE_(?:DYNAMIC_PATHFINDING_DISABLED|INVALID_(?:GOAL|START)|NO_(?:NAVMESH|VALID_DESTINATION)|OTHER|TARGET_GONE|(?:PARCEL_)?UNREACHABLE)|(?:GOAL|SLOWDOWN_DISTANCE)_REACHED)|TRAVERSAL_TYPE(?:_(?:FAST|NONE|SLOW))?|CONTENT_TYPE_(?:ATOM|FORM|HTML|JSON|LLSD|RSS|TEXT|XHTML|XML)|GCNP_(?:RADIUS|STATIC)|(?:PATROL|WANDER)_PAUSE_AT_WAYPOINTS|OPT_(?:AVATAR|CHARACTER|EXCLUSION_VOLUME|LEGACY_LINKSET|MATERIAL_VOLUME|OTHER|STATIC_OBSTACLE|WALKABLE)|SIM_STAT_PCT_CHARS_STEPPED)\\b"},{begin:"\\b(?:FALSE|TRUE)\\b"},{begin:"\\b(?:ZERO_ROTATION)\\b"},{begin:"\\b(?:EOF|JSON_(?:ARRAY|DELETE|FALSE|INVALID|NULL|NUMBER|OBJECT|STRING|TRUE)|NULL_KEY|TEXTURE_(?:BLANK|DEFAULT|MEDIA|PLYWOOD|TRANSPARENT)|URL_REQUEST_(?:GRANTED|DENIED))\\b"},{begin:"\\b(?:ZERO_VECTOR|TOUCH_INVALID_(?:TEXCOORD|VECTOR))\\b"}]};var LSL_FUNCTIONS={className:"built_in",begin:"\\b(?:ll(?:AgentInExperience|(?:Create|DataSize|Delete|KeyCount|Keys|Read|Update)KeyValue|GetExperience(?:Details|ErrorMessage)|ReturnObjectsBy(?:ID|Owner)|Json(?:2List|[GS]etValue|ValueType)|Sin|Cos|Tan|Atan2|Sqrt|Pow|Abs|Fabs|Frand|Floor|Ceil|Round|Vec(?:Mag|Norm|Dist)|Rot(?:Between|2(?:Euler|Fwd|Left|Up))|(?:Euler|Axes)2Rot|Whisper|(?:Region|Owner)?Say|Shout|Listen(?:Control|Remove)?|Sensor(?:Repeat|Remove)?|Detected(?:Name|Key|Owner|Type|Pos|Vel|Grab|Rot|Group|LinkNumber)|Die|Ground|Wind|(?:[GS]et)(?:AnimationOverride|MemoryLimit|PrimMediaParams|ParcelMusicURL|Object(?:Desc|Name)|PhysicsMaterial|Status|Scale|Color|Alpha|Texture|Pos|Rot|Force|Torque)|ResetAnimationOverride|(?:Scale|Offset|Rotate)Texture|(?:Rot)?Target(?:Remove)?|(?:Stop)?MoveToTarget|Apply(?:Rotational)?Impulse|Set(?:KeyframedMotion|ContentType|RegionPos|(?:Angular)?Velocity|Buoyancy|HoverHeight|ForceAndTorque|TimerEvent|ScriptState|Damage|TextureAnim|Sound(?:Queueing|Radius)|Vehicle(?:Type|(?:Float|Vector|Rotation)Param)|(?:Touch|Sit)?Text|Camera(?:Eye|At)Offset|PrimitiveParams|ClickAction|Link(?:Alpha|Color|PrimitiveParams(?:Fast)?|Texture(?:Anim)?|Camera|Media)|RemoteScriptAccessPin|PayPrice|LocalRot)|ScaleByFactor|Get(?:(?:Max|Min)ScaleFactor|ClosestNavPoint|StaticPath|SimStats|Env|PrimitiveParams|Link(?:PrimitiveParams|Number(?:OfSides)?|Key|Name|Media)|HTTPHeader|FreeURLs|Object(?:Details|PermMask|PrimCount)|Parcel(?:MaxPrims|Details|Prim(?:Count|Owners))|Attached(?:List)?|(?:SPMax|Free|Used)Memory|Region(?:Name|TimeDilation|FPS|Corner|AgentCount)|Root(?:Position|Rotation)|UnixTime|(?:Parcel|Region)Flags|(?:Wall|GMT)clock|SimulatorHostname|BoundingBox|GeometricCenter|Creator|NumberOf(?:Prims|NotecardLines|Sides)|Animation(?:List)?|(?:Camera|Local)(?:Pos|Rot)|Vel|Accel|Omega|Time(?:stamp|OfDay)|(?:Object|CenterOf)?Mass|MassMKS|Energy|Owner|(?:Owner)?Key|SunDirection|Texture(?:Offset|Scale|Rot)|Inventory(?:Number|Name|Key|Type|Creator|PermMask)|Permissions(?:Key)?|StartParameter|List(?:Length|EntryType)|Date|Agent(?:Size|Info|Language|List)|LandOwnerAt|NotecardLine|Script(?:Name|State))|(?:Get|Reset|GetAndReset)Time|PlaySound(?:Slave)?|LoopSound(?:Master|Slave)?|(?:Trigger|Stop|Preload)Sound|(?:(?:Get|Delete)Sub|Insert)String|To(?:Upper|Lower)|Give(?:InventoryList|Money)|RezObject|(?:Stop)?LookAt|Sleep|CollisionFilter|(?:Take|Release)Controls|DetachFromAvatar|AttachToAvatar(?:Temp)?|InstantMessage|(?:GetNext)?Email|StopHover|MinEventDelay|RotLookAt|String(?:Length|Trim)|(?:Start|Stop)Animation|TargetOmega|Request(?:Experience)?Permissions|(?:Create|Break)Link|BreakAllLinks|(?:Give|Remove)Inventory|Water|PassTouches|Request(?:Agent|Inventory)Data|TeleportAgent(?:Home|GlobalCoords)?|ModifyLand|CollisionSound|ResetScript|MessageLinked|PushObject|PassCollisions|AxisAngle2Rot|Rot2(?:Axis|Angle)|A(?:cos|sin)|AngleBetween|AllowInventoryDrop|SubStringIndex|List2(?:CSV|Integer|Json|Float|String|Key|Vector|Rot|List(?:Strided)?)|DeleteSubList|List(?:Statistics|Sort|Randomize|(?:Insert|Find|Replace)List)|EdgeOfWorld|AdjustSoundVolume|Key2Name|TriggerSoundLimited|EjectFromLand|(?:CSV|ParseString)2List|OverMyLand|SameGroup|UnSit|Ground(?:Slope|Normal|Contour)|GroundRepel|(?:Set|Remove)VehicleFlags|SitOnLink|(?:AvatarOn)?(?:Link)?SitTarget|Script(?:Danger|Profiler)|Dialog|VolumeDetect|ResetOtherScript|RemoteLoadScriptPin|(?:Open|Close)RemoteDataChannel|SendRemoteData|RemoteDataReply|(?:Integer|String)ToBase64|XorBase64|Log(?:10)?|Base64To(?:String|Integer)|ParseStringKeepNulls|RezAtRoot|RequestSimulatorData|ForceMouselook|(?:Load|Release|(?:E|Une)scape)URL|ParcelMedia(?:CommandList|Query)|ModPow|MapDestination|(?:RemoveFrom|AddTo|Reset)Land(?:Pass|Ban)List|(?:Set|Clear)CameraParams|HTTP(?:Request|Response)|TextBox|DetectedTouch(?:UV|Face|Pos|(?:N|Bin)ormal|ST)|(?:MD5|SHA1|DumpList2)String|Request(?:Secure)?URL|Clear(?:Prim|Link)Media|(?:Link)?ParticleSystem|(?:Get|Request)(?:Username|DisplayName)|RegionSayTo|CastRay|GenerateKey|TransferLindenDollars|ManageEstateAccess|(?:Create|Delete)Character|ExecCharacterCmd|Evade|FleeFrom|NavigateTo|PatrolPoints|Pursue|UpdateCharacter|WanderWithin))\\b"};return{illegal:":",contains:[LSL_STRINGS,{className:"comment",variants:[hljs.COMMENT("//","$"),hljs.COMMENT("/\\*","\\*/")],relevance:0},LSL_NUMBERS,{className:"section",variants:[{begin:"\\b(?:state|default)\\b"},{begin:"\\b(?:state_(?:entry|exit)|touch(?:_(?:start|end))?|(?:land_)?collision(?:_(?:start|end))?|timer|listen|(?:no_)?sensor|control|(?:not_)?at_(?:rot_)?target|money|email|experience_permissions(?:_denied)?|run_time_permissions|changed|attach|dataserver|moving_(?:start|end)|link_message|(?:on|object)_rez|remote_data|http_re(?:sponse|quest)|path_update|transaction_result)\\b"}]},LSL_FUNCTIONS,LSL_CONSTANTS,{className:"type",begin:"\\b(?:integer|float|string|key|vector|quaternion|rotation|list)\\b"}]}});hljs.registerLanguage("markdown",function(hljs){return{aliases:["md","mkdown","mkd"],contains:[{className:"section",variants:[{begin:"^#{1,6}",end:"$"},{begin:"^.+?\\n[=-]{2,}$"}]},{begin:"<",end:">",subLanguage:"xml",relevance:0},{className:"bullet",begin:"^\\s*([*+-]|(\\d+\\.))\\s+"},{className:"strong",begin:"[*_]{2}.+?[*_]{2}"},{className:"emphasis",variants:[{begin:"\\*.+?\\*"},{begin:"_.+?_",relevance:0}]},{className:"quote",begin:"^>\\s+",end:"$"},{className:"code",variants:[{begin:"^```\\w*\\s*$",end:"^```[ ]*$"},{begin:"`.+?`"},{begin:"^( {4}|\\t)",end:"$",relevance:0}]},{begin:"^[-\\*]{3,}",end:"$"},{begin:"\\[.+?\\][\\(\\[].*?[\\)\\]]",returnBegin:true,contains:[{className:"string",begin:"\\[",end:"\\]",excludeBegin:true,returnEnd:true,relevance:0},{className:"link",begin:"\\]\\(",end:"\\)",excludeBegin:true,excludeEnd:true},{className:"symbol",begin:"\\]\\[",end:"\\]",excludeBegin:true,excludeEnd:true}],relevance:10},{begin:/^\[[^\n]+\]:/,returnBegin:true,contains:[{className:"symbol",begin:/\[/,end:/\]/,excludeBegin:true,excludeEnd:true},{className:"link",begin:/:\s*/,end:/$/,excludeBegin:true}]}]}});hljs.registerLanguage("dart",function(hljs){var SUBST={className:"subst",variants:[{begin:"\\$[A-Za-z0-9_]+"}]};var BRACED_SUBST={className:"subst",variants:[{begin:"\\${",end:"}"}],keywords:"true false null this is new super"};var STRING={className:"string",variants:[{begin:"r'''",end:"'''"},{begin:'r"""',end:'"""'},{begin:"r'",end:"'",illegal:"\\n"},{begin:'r"',end:'"',illegal:"\\n"},{begin:"'''",end:"'''",contains:[hljs.BACKSLASH_ESCAPE,SUBST,BRACED_SUBST]},{begin:'"""',end:'"""',contains:[hljs.BACKSLASH_ESCAPE,SUBST,BRACED_SUBST]},{begin:"'",end:"'",illegal:"\\n",contains:[hljs.BACKSLASH_ESCAPE,SUBST,BRACED_SUBST]},{begin:'"',end:'"',illegal:"\\n",contains:[hljs.BACKSLASH_ESCAPE,SUBST,BRACED_SUBST]}]};BRACED_SUBST.contains=[hljs.C_NUMBER_MODE,STRING];var KEYWORDS={keyword:"abstract as assert async await break case catch class const continue covariant default deferred do "+"dynamic else enum export extends extension external factory false final finally for Function get hide if "+"implements import in inferface is library mixin new null on operator part rethrow return set show static "+"super switch sync this throw true try typedef var void while with yield",built_in:"Comparable DateTime Duration Function Iterable Iterator List Map Match Null Object Pattern RegExp Set "+"Stopwatch String StringBuffer StringSink Symbol Type Uri bool double dynamic int num print "+"Element ElementList document querySelector querySelectorAll window"};return{keywords:KEYWORDS,contains:[STRING,hljs.COMMENT("/\\*\\*","\\*/",{subLanguage:"markdown"}),hljs.COMMENT("///+\\s*","$",{contains:[{subLanguage:"markdown",begin:".",end:"$"}]}),hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,{className:"class",beginKeywords:"class interface",end:"{",excludeEnd:true,contains:[{beginKeywords:"extends implements"},hljs.UNDERSCORE_TITLE_MODE]},hljs.C_NUMBER_MODE,{className:"meta",begin:"@[A-Za-z]+"},{begin:"=>"}]}});hljs.registerLanguage("xml",function(hljs){var XML_IDENT_RE="[A-Za-z0-9\\._:-]+";var XML_ENTITIES={className:"symbol",begin:"&[a-z]+;|&#[0-9]+;|&#x[a-f0-9]+;"};var XML_META_KEYWORDS={begin:"\\s",contains:[{className:"meta-keyword",begin:"#?[a-z_][a-z1-9_-]+",illegal:"\\n"}]};var XML_META_PAR_KEYWORDS=hljs.inherit(XML_META_KEYWORDS,{begin:"\\(",end:"\\)"});var APOS_META_STRING_MODE=hljs.inherit(hljs.APOS_STRING_MODE,{className:"meta-string"});var QUOTE_META_STRING_MODE=hljs.inherit(hljs.QUOTE_STRING_MODE,{className:"meta-string"});var TAG_INTERNALS={endsWithParent:true,illegal:/</,relevance:0,contains:[{className:"attr",begin:XML_IDENT_RE,relevance:0},{begin:/=\s*/,relevance:0,contains:[{className:"string",endsParent:true,variants:[{begin:/"/,end:/"/,contains:[XML_ENTITIES]},{begin:/'/,end:/'/,contains:[XML_ENTITIES]},{begin:/[^\s"'=<>`]+/}]}]}]};return{aliases:["html","xhtml","rss","atom","xjb","xsd","xsl","plist","wsf","svg"],case_insensitive:true,contains:[{className:"meta",begin:"<![a-z]",end:">",relevance:10,contains:[XML_META_KEYWORDS,QUOTE_META_STRING_MODE,APOS_META_STRING_MODE,XML_META_PAR_KEYWORDS,{begin:"\\[",end:"\\]",contains:[{className:"meta",begin:"<![a-z]",end:">",contains:[XML_META_KEYWORDS,XML_META_PAR_KEYWORDS,QUOTE_META_STRING_MODE,APOS_META_STRING_MODE]}]}]},hljs.COMMENT("\x3c!--","--\x3e",{relevance:10}),{begin:"<\\!\\[CDATA\\[",end:"\\]\\]>",relevance:10},XML_ENTITIES,{className:"meta",begin:/<\?xml/,end:/\?>/,relevance:10},{begin:/<\?(php)?/,end:/\?>/,subLanguage:"php",contains:[{begin:"/\\*",end:"\\*/",skip:true},{begin:'b"',end:'"',skip:true},{begin:"b'",end:"'",skip:true},hljs.inherit(hljs.APOS_STRING_MODE,{illegal:null,className:null,contains:null,skip:true}),hljs.inherit(hljs.QUOTE_STRING_MODE,{illegal:null,className:null,contains:null,skip:true})]},{className:"tag",begin:"<style(?=\\s|>)",end:">",keywords:{name:"style"},contains:[TAG_INTERNALS],starts:{end:"</style>",returnEnd:true,subLanguage:["css","xml"]}},{className:"tag",begin:"<script(?=\\s|>)",end:">",keywords:{name:"script"},contains:[TAG_INTERNALS],starts:{end:"<\/script>",returnEnd:true,subLanguage:["actionscript","javascript","handlebars","xml"]}},{className:"tag",begin:"</?",end:"/?>",contains:[{className:"name",begin:/[^\/><\s]+/,relevance:0},TAG_INTERNALS]}]}});hljs.registerLanguage("parser3",function(hljs){var CURLY_SUBCOMMENT=hljs.COMMENT("{","}",{contains:["self"]});return{subLanguage:"xml",relevance:0,contains:[hljs.COMMENT("^#","$"),hljs.COMMENT("\\^rem{","}",{relevance:10,contains:[CURLY_SUBCOMMENT]}),{className:"meta",begin:"^@(?:BASE|USE|CLASS|OPTIONS)$",relevance:10},{className:"title",begin:"@[\\w\\-]+\\[[\\w^;\\-]*\\](?:\\[[\\w^;\\-]*\\])?(?:.*)$"},{className:"variable",begin:"\\$\\{?[\\w\\-\\.\\:]+\\}?"},{className:"keyword",begin:"\\^[\\w\\-\\.\\:]+"},{className:"number",begin:"\\^#[0-9a-fA-F]+"},hljs.C_NUMBER_MODE]}});hljs.registerLanguage("sql",function(hljs){var COMMENT_MODE=hljs.COMMENT("--","$");return{case_insensitive:true,illegal:/[<>{}*]/,contains:[{beginKeywords:"begin end start commit rollback savepoint lock alter create drop rename call "+"delete do handler insert load replace select truncate update set show pragma grant "+"merge describe use explain help declare prepare execute deallocate release "+"unlock purge reset change stop analyze cache flush optimize repair kill "+"install uninstall checksum restore check backup revoke comment values with",end:/;/,endsWithParent:true,lexemes:/[\w\.]+/,keywords:{keyword:"as abort abs absolute acc acce accep accept access accessed accessible account acos action activate add "+"addtime admin administer advanced advise aes_decrypt aes_encrypt after agent aggregate ali alia alias "+"all allocate allow alter always analyze ancillary and anti any anydata anydataset anyschema anytype apply "+"archive archived archivelog are as asc ascii asin assembly assertion associate asynchronous at atan "+"atn2 attr attri attrib attribu attribut attribute attributes audit authenticated authentication authid "+"authors auto autoallocate autodblink autoextend automatic availability avg backup badfile basicfile "+"before begin beginning benchmark between bfile bfile_base big bigfile bin binary_double binary_float "+"binlog bit_and bit_count bit_length bit_or bit_xor bitmap blob_base block blocksize body both bound "+"bucket buffer_cache buffer_pool build bulk by byte byteordermark bytes cache caching call calling cancel "+"capacity cascade cascaded case cast catalog category ceil ceiling chain change changed char_base "+"char_length character_length characters characterset charindex charset charsetform charsetid check "+"checksum checksum_agg child choose chr chunk class cleanup clear client clob clob_base clone close "+"cluster_id cluster_probability cluster_set clustering coalesce coercibility col collate collation "+"collect colu colum column column_value columns columns_updated comment commit compact compatibility "+"compiled complete composite_limit compound compress compute concat concat_ws concurrent confirm conn "+"connec connect connect_by_iscycle connect_by_isleaf connect_by_root connect_time connection "+"consider consistent constant constraint constraints constructor container content contents context "+"contributors controlfile conv convert convert_tz corr corr_k corr_s corresponding corruption cos cost "+"count count_big counted covar_pop covar_samp cpu_per_call cpu_per_session crc32 create creation "+"critical cross cube cume_dist curdate current current_date current_time current_timestamp current_user "+"cursor curtime customdatum cycle data database databases datafile datafiles datalength date_add "+"date_cache date_format date_sub dateadd datediff datefromparts datename datepart datetime2fromparts "+"day day_to_second dayname dayofmonth dayofweek dayofyear days db_role_change dbtimezone ddl deallocate "+"declare decode decompose decrement decrypt deduplicate def defa defau defaul default defaults "+"deferred defi defin define degrees delayed delegate delete delete_all delimited demand dense_rank "+"depth dequeue des_decrypt des_encrypt des_key_file desc descr descri describ describe descriptor "+"deterministic diagnostics difference dimension direct_load directory disable disable_all "+"disallow disassociate discardfile disconnect diskgroup distinct distinctrow distribute distributed div "+"do document domain dotnet double downgrade drop dumpfile duplicate duration each edition editionable "+"editions element ellipsis else elsif elt empty enable enable_all enclosed encode encoding encrypt "+"end end-exec endian enforced engine engines enqueue enterprise entityescaping eomonth error errors "+"escaped evalname evaluate event eventdata events except exception exceptions exchange exclude excluding "+"execu execut execute exempt exists exit exp expire explain explode export export_set extended extent external "+"external_1 external_2 externally extract failed failed_login_attempts failover failure far fast "+"feature_set feature_value fetch field fields file file_name_convert filesystem_like_logging final "+"finish first first_value fixed flash_cache flashback floor flush following follows for forall force foreign "+"form forma format found found_rows freelist freelists freepools fresh from from_base64 from_days "+"ftp full function general generated get get_format get_lock getdate getutcdate global global_name "+"globally go goto grant grants greatest group group_concat group_id grouping grouping_id groups "+"gtid_subtract guarantee guard handler hash hashkeys having hea head headi headin heading heap help hex "+"hierarchy high high_priority hosts hour hours http id ident_current ident_incr ident_seed identified "+"identity idle_time if ifnull ignore iif ilike ilm immediate import in include including increment "+"index indexes indexing indextype indicator indices inet6_aton inet6_ntoa inet_aton inet_ntoa infile "+"initial initialized initially initrans inmemory inner innodb input insert install instance instantiable "+"instr interface interleaved intersect into invalidate invisible is is_free_lock is_ipv4 is_ipv4_compat "+"is_not is_not_null is_used_lock isdate isnull isolation iterate java join json json_exists "+"keep keep_duplicates key keys kill language large last last_day last_insert_id last_value lateral lax lcase "+"lead leading least leaves left len lenght length less level levels library like like2 like4 likec limit "+"lines link list listagg little ln load load_file lob lobs local localtime localtimestamp locate "+"locator lock locked log log10 log2 logfile logfiles logging logical logical_reads_per_call "+"logoff logon logs long loop low low_priority lower lpad lrtrim ltrim main make_set makedate maketime "+"managed management manual map mapping mask master master_pos_wait match matched materialized max "+"maxextents maximize maxinstances maxlen maxlogfiles maxloghistory maxlogmembers maxsize maxtrans "+"md5 measures median medium member memcompress memory merge microsecond mid migration min minextents "+"minimum mining minus minute minutes minvalue missing mod mode model modification modify module monitoring month "+"months mount move movement multiset mutex name name_const names nan national native natural nav nchar "+"nclob nested never new newline next nextval no no_write_to_binlog noarchivelog noaudit nobadfile "+"nocheck nocompress nocopy nocycle nodelay nodiscardfile noentityescaping noguarantee nokeep nologfile "+"nomapping nomaxvalue nominimize nominvalue nomonitoring none noneditionable nonschema noorder "+"nopr nopro noprom nopromp noprompt norely noresetlogs noreverse normal norowdependencies noschemacheck "+"noswitch not nothing notice notnull notrim novalidate now nowait nth_value nullif nulls num numb numbe "+"nvarchar nvarchar2 object ocicoll ocidate ocidatetime ociduration ociinterval ociloblocator ocinumber "+"ociref ocirefcursor ocirowid ocistring ocitype oct octet_length of off offline offset oid oidindex old "+"on online only opaque open operations operator optimal optimize option optionally or oracle oracle_date "+"oradata ord ordaudio orddicom orddoc order ordimage ordinality ordvideo organization orlany orlvary "+"out outer outfile outline output over overflow overriding package pad parallel parallel_enable "+"parameters parent parse partial partition partitions pascal passing password password_grace_time "+"password_lock_time password_reuse_max password_reuse_time password_verify_function patch path patindex "+"pctincrease pctthreshold pctused pctversion percent percent_rank percentile_cont percentile_disc "+"performance period period_add period_diff permanent physical pi pipe pipelined pivot pluggable plugin "+"policy position post_transaction pow power pragma prebuilt precedes preceding precision prediction "+"prediction_cost prediction_details prediction_probability prediction_set prepare present preserve "+"prior priority private private_sga privileges procedural procedure procedure_analyze processlist "+"profiles project prompt protection public publishingservername purge quarter query quick quiesce quota "+"quotename radians raise rand range rank raw read reads readsize rebuild record records "+"recover recovery recursive recycle redo reduced ref reference referenced references referencing refresh "+"regexp_like register regr_avgx regr_avgy regr_count regr_intercept regr_r2 regr_slope regr_sxx regr_sxy "+"reject rekey relational relative relaylog release release_lock relies_on relocate rely rem remainder rename "+"repair repeat replace replicate replication required reset resetlogs resize resource respect restore "+"restricted result result_cache resumable resume retention return returning returns reuse reverse revoke "+"right rlike role roles rollback rolling rollup round row row_count rowdependencies rowid rownum rows "+"rtrim rules safe salt sample save savepoint sb1 sb2 sb4 scan schema schemacheck scn scope scroll "+"sdo_georaster sdo_topo_geometry search sec_to_time second seconds section securefile security seed segment select "+"self semi sequence sequential serializable server servererror session session_user sessions_per_user set "+"sets settings sha sha1 sha2 share shared shared_pool short show shrink shutdown si_averagecolor "+"si_colorhistogram si_featurelist si_positionalcolor si_stillimage si_texture siblings sid sign sin "+"size size_t sizes skip slave sleep smalldatetimefromparts smallfile snapshot some soname sort soundex "+"source space sparse spfile split sql sql_big_result sql_buffer_result sql_cache sql_calc_found_rows "+"sql_small_result sql_variant_property sqlcode sqldata sqlerror sqlname sqlstate sqrt square standalone "+"standby start starting startup statement static statistics stats_binomial_test stats_crosstab "+"stats_ks_test stats_mode stats_mw_test stats_one_way_anova stats_t_test_ stats_t_test_indep "+"stats_t_test_one stats_t_test_paired stats_wsr_test status std stddev stddev_pop stddev_samp stdev "+"stop storage store stored str str_to_date straight_join strcmp strict string struct stuff style subdate "+"subpartition subpartitions substitutable substr substring subtime subtring_index subtype success sum "+"suspend switch switchoffset switchover sync synchronous synonym sys sys_xmlagg sysasm sysaux sysdate "+"sysdatetimeoffset sysdba sysoper system system_user sysutcdatetime table tables tablespace tablesample tan tdo "+"template temporary terminated tertiary_weights test than then thread through tier ties time time_format "+"time_zone timediff timefromparts timeout timestamp timestampadd timestampdiff timezone_abbr "+"timezone_minute timezone_region to to_base64 to_date to_days to_seconds todatetimeoffset trace tracking "+"transaction transactional translate translation treat trigger trigger_nestlevel triggers trim truncate "+"try_cast try_convert try_parse type ub1 ub2 ub4 ucase unarchived unbounded uncompress "+"under undo unhex unicode uniform uninstall union unique unix_timestamp unknown unlimited unlock unnest unpivot "+"unrecoverable unsafe unsigned until untrusted unusable unused update updated upgrade upped upper upsert "+"url urowid usable usage use use_stored_outlines user user_data user_resources users using utc_date "+"utc_timestamp uuid uuid_short validate validate_password_strength validation valist value values var "+"var_samp varcharc vari varia variab variabl variable variables variance varp varraw varrawc varray "+"verify version versions view virtual visible void wait wallet warning warnings week weekday weekofyear "+"wellformed when whene whenev wheneve whenever where while whitespace window with within without work wrapped "+"xdb xml xmlagg xmlattributes xmlcast xmlcolattval xmlelement xmlexists xmlforest xmlindex xmlnamespaces "+"xmlpi xmlquery xmlroot xmlschema xmlserialize xmltable xmltype xor year year_to_month years yearweek",literal:"true false null unknown",built_in:"array bigint binary bit blob bool boolean char character date dec decimal float int int8 integer interval number "+"numeric real record serial serial8 smallint text time timestamp tinyint varchar varchar2 varying void"},contains:[{className:"string",begin:"'",end:"'",contains:[{begin:"''"}]},{className:"string",begin:'"',end:'"',contains:[{begin:'""'}]},{className:"string",begin:"`",end:"`"},hljs.C_NUMBER_MODE,hljs.C_BLOCK_COMMENT_MODE,COMMENT_MODE,hljs.HASH_COMMENT_MODE]},hljs.C_BLOCK_COMMENT_MODE,COMMENT_MODE,hljs.HASH_COMMENT_MODE]}});hljs.registerLanguage("perl",function(hljs){var PERL_KEYWORDS="getpwent getservent quotemeta msgrcv scalar kill dbmclose undef lc "+"ma syswrite tr send umask sysopen shmwrite vec qx utime local oct semctl localtime "+"readpipe do return format read sprintf dbmopen pop getpgrp not getpwnam rewinddir qq"+"fileno qw endprotoent wait sethostent bless s|0 opendir continue each sleep endgrent "+"shutdown dump chomp connect getsockname die socketpair close flock exists index shmget"+"sub for endpwent redo lstat msgctl setpgrp abs exit select print ref gethostbyaddr "+"unshift fcntl syscall goto getnetbyaddr join gmtime symlink semget splice x|0 "+"getpeername recv log setsockopt cos last reverse gethostbyname getgrnam study formline "+"endhostent times chop length gethostent getnetent pack getprotoent getservbyname rand "+"mkdir pos chmod y|0 substr endnetent printf next open msgsnd readdir use unlink "+"getsockopt getpriority rindex wantarray hex system getservbyport endservent int chr "+"untie rmdir prototype tell listen fork shmread ucfirst setprotoent else sysseek link "+"getgrgid shmctl waitpid unpack getnetbyname reset chdir grep split require caller "+"lcfirst until warn while values shift telldir getpwuid my getprotobynumber delete and "+"sort uc defined srand accept package seekdir getprotobyname semop our rename seek if q|0 "+"chroot sysread setpwent no crypt getc chown sqrt write setnetent setpriority foreach "+"tie sin msgget map stat getlogin unless elsif truncate exec keys glob tied closedir"+"ioctl socket readlink eval xor readline binmode setservent eof ord bind alarm pipe "+"atan2 getgrent exp time push setgrent gt lt or ne m|0 break given say state when";var SUBST={className:"subst",begin:"[$@]\\{",end:"\\}",keywords:PERL_KEYWORDS};var METHOD={begin:"->{",end:"}"};var VAR={variants:[{begin:/\$\d/},{begin:/[\$%@](\^\w\b|#\w+(::\w+)*|{\w+}|\w+(::\w*)*)/},{begin:/[\$%@][^\s\w{]/,relevance:0}]};var STRING_CONTAINS=[hljs.BACKSLASH_ESCAPE,SUBST,VAR];var PERL_DEFAULT_CONTAINS=[VAR,hljs.HASH_COMMENT_MODE,hljs.COMMENT("^\\=\\w","\\=cut",{endsWithParent:true}),METHOD,{className:"string",contains:STRING_CONTAINS,variants:[{begin:"q[qwxr]?\\s*\\(",end:"\\)",relevance:5},{begin:"q[qwxr]?\\s*\\[",end:"\\]",relevance:5},{begin:"q[qwxr]?\\s*\\{",end:"\\}",relevance:5},{begin:"q[qwxr]?\\s*\\|",end:"\\|",relevance:5},{begin:"q[qwxr]?\\s*\\<",end:"\\>",relevance:5},{begin:"qw\\s+q",end:"q",relevance:5},{begin:"'",end:"'",contains:[hljs.BACKSLASH_ESCAPE]},{begin:'"',end:'"'},{begin:"`",end:"`",contains:[hljs.BACKSLASH_ESCAPE]},{begin:"{\\w+}",contains:[],relevance:0},{begin:"-?\\w+\\s*\\=\\>",contains:[],relevance:0}]},{className:"number",begin:"(\\b0[0-7_]+)|(\\b0x[0-9a-fA-F_]+)|(\\b[1-9][0-9_]*(\\.[0-9_]+)?)|[0_]\\b",relevance:0},{begin:"(\\/\\/|"+hljs.RE_STARTERS_RE+"|\\b(split|return|print|reverse|grep)\\b)\\s*",keywords:"split return print reverse grep",relevance:0,contains:[hljs.HASH_COMMENT_MODE,{className:"regexp",begin:"(s|tr|y)/(\\\\.|[^/])*/(\\\\.|[^/])*/[a-z]*",relevance:10},{className:"regexp",begin:"(m|qr)?/",end:"/[a-z]*",contains:[hljs.BACKSLASH_ESCAPE],relevance:0}]},{className:"function",beginKeywords:"sub",end:"(\\s*\\(.*?\\))?[;{]",excludeEnd:true,relevance:5,contains:[hljs.TITLE_MODE]},{begin:"-\\w\\b",relevance:0},{begin:"^__DATA__$",end:"^__END__$",subLanguage:"mojolicious",contains:[{begin:"^@@.*",end:"$",className:"comment"}]}];SUBST.contains=PERL_DEFAULT_CONTAINS;METHOD.contains=PERL_DEFAULT_CONTAINS;return{aliases:["pl","pm"],lexemes:/[\w\.]+/,keywords:PERL_KEYWORDS,contains:PERL_DEFAULT_CONTAINS}});hljs.registerLanguage("gauss",function(hljs){var KEYWORDS={keyword:"bool break call callexe checkinterrupt clear clearg closeall cls comlog compile "+"continue create debug declare delete disable dlibrary dllcall do dos ed edit else "+"elseif enable end endfor endif endp endo errorlog errorlogat expr external fn "+"for format goto gosub graph if keyword let lib library line load loadarray loadexe "+"loadf loadk loadm loadp loads loadx local locate loopnextindex lprint lpwidth lshow "+"matrix msym ndpclex new open output outwidth plot plotsym pop prcsn print "+"printdos proc push retp return rndcon rndmod rndmult rndseed run save saveall screen "+"scroll setarray show sparse stop string struct system trace trap threadfor "+"threadendfor threadbegin threadjoin threadstat threadend until use while winprint "+"ne ge le gt lt and xor or not eq eqv",built_in:"abs acf aconcat aeye amax amean AmericanBinomCall AmericanBinomCall_Greeks AmericanBinomCall_ImpVol "+"AmericanBinomPut AmericanBinomPut_Greeks AmericanBinomPut_ImpVol AmericanBSCall AmericanBSCall_Greeks "+"AmericanBSCall_ImpVol AmericanBSPut AmericanBSPut_Greeks AmericanBSPut_ImpVol amin amult annotationGetDefaults "+"annotationSetBkd annotationSetFont annotationSetLineColor annotationSetLineStyle annotationSetLineThickness "+"annualTradingDays arccos arcsin areshape arrayalloc arrayindex arrayinit arraytomat asciiload asclabel astd "+"astds asum atan atan2 atranspose axmargin balance band bandchol bandcholsol bandltsol bandrv bandsolpd bar "+"base10 begwind besselj bessely beta box boxcox cdfBeta cdfBetaInv cdfBinomial cdfBinomialInv cdfBvn cdfBvn2 "+"cdfBvn2e cdfCauchy cdfCauchyInv cdfChic cdfChii cdfChinc cdfChincInv cdfExp cdfExpInv cdfFc cdfFnc cdfFncInv "+"cdfGam cdfGenPareto cdfHyperGeo cdfLaplace cdfLaplaceInv cdfLogistic cdfLogisticInv cdfmControlCreate cdfMvn "+"cdfMvn2e cdfMvnce cdfMvne cdfMvt2e cdfMvtce cdfMvte cdfN cdfN2 cdfNc cdfNegBinomial cdfNegBinomialInv cdfNi "+"cdfPoisson cdfPoissonInv cdfRayleigh cdfRayleighInv cdfTc cdfTci cdfTnc cdfTvn cdfWeibull cdfWeibullInv cdir "+"ceil ChangeDir chdir chiBarSquare chol choldn cholsol cholup chrs close code cols colsf combinate combinated "+"complex con cond conj cons ConScore contour conv convertsatostr convertstrtosa corrm corrms corrvc corrx corrxs "+"cos cosh counts countwts crossprd crout croutp csrcol csrlin csvReadM csvReadSA cumprodc cumsumc curve cvtos "+"datacreate datacreatecomplex datalist dataload dataloop dataopen datasave date datestr datestring datestrymd "+"dayinyr dayofweek dbAddDatabase dbClose dbCommit dbCreateQuery dbExecQuery dbGetConnectOptions dbGetDatabaseName "+"dbGetDriverName dbGetDrivers dbGetHostName dbGetLastErrorNum dbGetLastErrorText dbGetNumericalPrecPolicy "+"dbGetPassword dbGetPort dbGetTableHeaders dbGetTables dbGetUserName dbHasFeature dbIsDriverAvailable dbIsOpen "+"dbIsOpenError dbOpen dbQueryBindValue dbQueryClear dbQueryCols dbQueryExecPrepared dbQueryFetchAllM dbQueryFetchAllSA "+"dbQueryFetchOneM dbQueryFetchOneSA dbQueryFinish dbQueryGetBoundValue dbQueryGetBoundValues dbQueryGetField "+"dbQueryGetLastErrorNum dbQueryGetLastErrorText dbQueryGetLastInsertID dbQueryGetLastQuery dbQueryGetPosition "+"dbQueryIsActive dbQueryIsForwardOnly dbQueryIsNull dbQueryIsSelect dbQueryIsValid dbQueryPrepare dbQueryRows "+"dbQuerySeek dbQuerySeekFirst dbQuerySeekLast dbQuerySeekNext dbQuerySeekPrevious dbQuerySetForwardOnly "+"dbRemoveDatabase dbRollback dbSetConnectOptions dbSetDatabaseName dbSetHostName dbSetNumericalPrecPolicy "+"dbSetPort dbSetUserName dbTransaction DeleteFile delif delrows denseToSp denseToSpRE denToZero design det detl "+"dfft dffti diag diagrv digamma doswin DOSWinCloseall DOSWinOpen dotfeq dotfeqmt dotfge dotfgemt dotfgt dotfgtmt "+"dotfle dotflemt dotflt dotfltmt dotfne dotfnemt draw drop dsCreate dstat dstatmt dstatmtControlCreate dtdate dtday "+"dttime dttodtv dttostr dttoutc dtvnormal dtvtodt dtvtoutc dummy dummybr dummydn eig eigh eighv eigv elapsedTradingDays "+"endwind envget eof eqSolve eqSolvemt eqSolvemtControlCreate eqSolvemtOutCreate eqSolveset erf erfc erfccplx erfcplx error "+"etdays ethsec etstr EuropeanBinomCall EuropeanBinomCall_Greeks EuropeanBinomCall_ImpVol EuropeanBinomPut "+"EuropeanBinomPut_Greeks EuropeanBinomPut_ImpVol EuropeanBSCall EuropeanBSCall_Greeks EuropeanBSCall_ImpVol "+"EuropeanBSPut EuropeanBSPut_Greeks EuropeanBSPut_ImpVol exctsmpl exec execbg exp extern eye fcheckerr fclearerr feq "+"feqmt fflush fft ffti fftm fftmi fftn fge fgemt fgets fgetsa fgetsat fgetst fgt fgtmt fileinfo filesa fle flemt "+"floor flt fltmt fmod fne fnemt fonts fopen formatcv formatnv fputs fputst fseek fstrerror ftell ftocv ftos ftostrC "+"gamma gammacplx gammaii gausset gdaAppend gdaCreate gdaDStat gdaDStatMat gdaGetIndex gdaGetName gdaGetNames gdaGetOrders "+"gdaGetType gdaGetTypes gdaGetVarInfo gdaIsCplx gdaLoad gdaPack gdaRead gdaReadByIndex gdaReadSome gdaReadSparse "+"gdaReadStruct gdaReportVarInfo gdaSave gdaUpdate gdaUpdateAndPack gdaVars gdaWrite gdaWrite32 gdaWriteSome getarray "+"getdims getf getGAUSShome getmatrix getmatrix4D getname getnamef getNextTradingDay getNextWeekDay getnr getorders "+"getpath getPreviousTradingDay getPreviousWeekDay getRow getscalar3D getscalar4D getTrRow getwind glm gradcplx gradMT "+"gradMTm gradMTT gradMTTm gradp graphprt graphset hasimag header headermt hess hessMT hessMTg hessMTgw hessMTm "+"hessMTmw hessMTT hessMTTg hessMTTgw hessMTTm hessMTw hessp hist histf histp hsec imag indcv indexcat indices indices2 "+"indicesf indicesfn indnv indsav integrate1d integrateControlCreate intgrat2 intgrat3 inthp1 inthp2 inthp3 inthp4 "+"inthpControlCreate intquad1 intquad2 intquad3 intrleav intrleavsa intrsect intsimp inv invpd invswp iscplx iscplxf "+"isden isinfnanmiss ismiss key keyav keyw lag lag1 lagn lapEighb lapEighi lapEighvb lapEighvi lapgEig lapgEigh lapgEighv "+"lapgEigv lapgSchur lapgSvdcst lapgSvds lapgSvdst lapSvdcusv lapSvds lapSvdusv ldlp ldlsol linSolve listwise ln lncdfbvn "+"lncdfbvn2 lncdfmvn lncdfn lncdfn2 lncdfnc lnfact lngammacplx lnpdfmvn lnpdfmvt lnpdfn lnpdft loadd loadstruct loadwind "+"loess loessmt loessmtControlCreate log loglog logx logy lower lowmat lowmat1 ltrisol lu lusol machEpsilon make makevars "+"makewind margin matalloc matinit mattoarray maxbytes maxc maxindc maxv maxvec mbesselei mbesselei0 mbesselei1 mbesseli "+"mbesseli0 mbesseli1 meanc median mergeby mergevar minc minindc minv miss missex missrv moment momentd movingave "+"movingaveExpwgt movingaveWgt nextindex nextn nextnevn nextwind ntos null null1 numCombinations ols olsmt olsmtControlCreate "+"olsqr olsqr2 olsqrmt ones optn optnevn orth outtyp pacf packedToSp packr parse pause pdfCauchy pdfChi pdfExp pdfGenPareto "+"pdfHyperGeo pdfLaplace pdfLogistic pdfn pdfPoisson pdfRayleigh pdfWeibull pi pinv pinvmt plotAddArrow plotAddBar plotAddBox "+"plotAddHist plotAddHistF plotAddHistP plotAddPolar plotAddScatter plotAddShape plotAddTextbox plotAddTS plotAddXY plotArea "+"plotBar plotBox plotClearLayout plotContour plotCustomLayout plotGetDefaults plotHist plotHistF plotHistP plotLayout "+"plotLogLog plotLogX plotLogY plotOpenWindow plotPolar plotSave plotScatter plotSetAxesPen plotSetBar plotSetBarFill "+"plotSetBarStacked plotSetBkdColor plotSetFill plotSetGrid plotSetLegend plotSetLineColor plotSetLineStyle plotSetLineSymbol "+"plotSetLineThickness plotSetNewWindow plotSetTitle plotSetWhichYAxis plotSetXAxisShow plotSetXLabel plotSetXRange "+"plotSetXTicInterval plotSetXTicLabel plotSetYAxisShow plotSetYLabel plotSetYRange plotSetZAxisShow plotSetZLabel "+"plotSurface plotTS plotXY polar polychar polyeval polygamma polyint polymake polymat polymroot polymult polyroot "+"pqgwin previousindex princomp printfm printfmt prodc psi putarray putf putvals pvCreate pvGetIndex pvGetParNames "+"pvGetParVector pvLength pvList pvPack pvPacki pvPackm pvPackmi pvPacks pvPacksi pvPacksm pvPacksmi pvPutParVector "+"pvTest pvUnpack QNewton QNewtonmt QNewtonmtControlCreate QNewtonmtOutCreate QNewtonSet QProg QProgmt QProgmtInCreate "+"qqr qqre qqrep qr qre qrep qrsol qrtsol qtyr qtyre qtyrep quantile quantiled qyr qyre qyrep qz rank rankindx readr "+"real reclassify reclassifyCuts recode recserar recsercp recserrc rerun rescale reshape rets rev rfft rffti rfftip rfftn "+"rfftnp rfftp rndBernoulli rndBeta rndBinomial rndCauchy rndChiSquare rndCon rndCreateState rndExp rndGamma rndGeo rndGumbel "+"rndHyperGeo rndi rndKMbeta rndKMgam rndKMi rndKMn rndKMnb rndKMp rndKMu rndKMvm rndLaplace rndLCbeta rndLCgam rndLCi rndLCn "+"rndLCnb rndLCp rndLCu rndLCvm rndLogNorm rndMTu rndMVn rndMVt rndn rndnb rndNegBinomial rndp rndPoisson rndRayleigh "+"rndStateSkip rndu rndvm rndWeibull rndWishart rotater round rows rowsf rref sampleData satostrC saved saveStruct savewind "+"scale scale3d scalerr scalinfnanmiss scalmiss schtoc schur searchsourcepath seekr select selif seqa seqm setdif setdifsa "+"setvars setvwrmode setwind shell shiftr sin singleindex sinh sleep solpd sortc sortcc sortd sorthc sorthcc sortind "+"sortindc sortmc sortr sortrc spBiconjGradSol spChol spConjGradSol spCreate spDenseSubmat spDiagRvMat spEigv spEye spLDL "+"spline spLU spNumNZE spOnes spreadSheetReadM spreadSheetReadSA spreadSheetWrite spScale spSubmat spToDense spTrTDense "+"spTScalar spZeros sqpSolve sqpSolveMT sqpSolveMTControlCreate sqpSolveMTlagrangeCreate sqpSolveMToutCreate sqpSolveSet "+"sqrt statements stdc stdsc stocv stof strcombine strindx strlen strput strrindx strsect strsplit strsplitPad strtodt "+"strtof strtofcplx strtriml strtrimr strtrunc strtruncl strtruncpad strtruncr submat subscat substute subvec sumc sumr "+"surface svd svd1 svd2 svdcusv svds svdusv sysstate tab tan tanh tempname "+"time timedt timestr timeutc title tkf2eps tkf2ps tocart todaydt toeplitz token topolar trapchk "+"trigamma trimr trunc type typecv typef union unionsa uniqindx uniqindxsa unique uniquesa upmat upmat1 upper utctodt "+"utctodtv utrisol vals varCovMS varCovXS varget vargetl varmall varmares varput varputl vartypef vcm vcms vcx vcxs "+"vec vech vecr vector vget view viewxyz vlist vnamecv volume vput vread vtypecv wait waitc walkindex where window "+"writer xlabel xlsGetSheetCount xlsGetSheetSize xlsGetSheetTypes xlsMakeRange xlsReadM xlsReadSA xlsWrite xlsWriteM "+"xlsWriteSA xpnd xtics xy xyz ylabel ytics zeros zeta zlabel ztics cdfEmpirical dot h5create h5open h5read h5readAttribute "+"h5write h5writeAttribute ldl plotAddErrorBar plotAddSurface plotCDFEmpirical plotSetColormap plotSetContourLabels "+"plotSetLegendFont plotSetTextInterpreter plotSetXTicCount plotSetYTicCount plotSetZLevels powerm strjoin sylvester "+"strtrim",literal:"DB_AFTER_LAST_ROW DB_ALL_TABLES DB_BATCH_OPERATIONS DB_BEFORE_FIRST_ROW DB_BLOB DB_EVENT_NOTIFICATIONS "+"DB_FINISH_QUERY DB_HIGH_PRECISION DB_LAST_INSERT_ID DB_LOW_PRECISION_DOUBLE DB_LOW_PRECISION_INT32 "+"DB_LOW_PRECISION_INT64 DB_LOW_PRECISION_NUMBERS DB_MULTIPLE_RESULT_SETS DB_NAMED_PLACEHOLDERS "+"DB_POSITIONAL_PLACEHOLDERS DB_PREPARED_QUERIES DB_QUERY_SIZE DB_SIMPLE_LOCKING DB_SYSTEM_TABLES DB_TABLES "+"DB_TRANSACTIONS DB_UNICODE DB_VIEWS __STDIN __STDOUT __STDERR __FILE_DIR"};var AT_COMMENT_MODE=hljs.COMMENT("@","@");var PREPROCESSOR={className:"meta",begin:"#",end:"$",keywords:{"meta-keyword":"define definecs|10 undef ifdef ifndef iflight ifdllcall ifmac ifos2win ifunix else endif lineson linesoff srcfile srcline"},contains:[{begin:/\\\n/,relevance:0},{beginKeywords:"include",end:"$",keywords:{"meta-keyword":"include"},contains:[{className:"meta-string",begin:'"',end:'"',illegal:"\\n"}]},hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,AT_COMMENT_MODE]};var STRUCT_TYPE={begin:/\bstruct\s+/,end:/\s/,keywords:"struct",contains:[{className:"type",begin:hljs.UNDERSCORE_IDENT_RE,relevance:0}]};var PARSE_PARAMS=[{className:"params",begin:/\(/,end:/\)/,excludeBegin:true,excludeEnd:true,endsWithParent:true,relevance:0,contains:[{className:"literal",begin:/\.\.\./},hljs.C_NUMBER_MODE,hljs.C_BLOCK_COMMENT_MODE,AT_COMMENT_MODE,STRUCT_TYPE]}];var FUNCTION_DEF={className:"title",begin:hljs.UNDERSCORE_IDENT_RE,relevance:0};var DEFINITION=function(beginKeywords,end,inherits){var mode=hljs.inherit({className:"function",beginKeywords:beginKeywords,end:end,excludeEnd:true,contains:[].concat(PARSE_PARAMS)},inherits||{});mode.contains.push(FUNCTION_DEF);mode.contains.push(hljs.C_NUMBER_MODE);mode.contains.push(hljs.C_BLOCK_COMMENT_MODE);mode.contains.push(AT_COMMENT_MODE);return mode};var BUILT_IN_REF={className:"built_in",begin:"\\b("+KEYWORDS.built_in.split(" ").join("|")+")\\b"};var STRING_REF={className:"string",begin:'"',end:'"',contains:[hljs.BACKSLASH_ESCAPE],relevance:0};var FUNCTION_REF={begin:hljs.UNDERSCORE_IDENT_RE+"\\s*\\(",returnBegin:true,keywords:KEYWORDS,relevance:0,contains:[{beginKeywords:KEYWORDS.keyword},BUILT_IN_REF,{className:"built_in",begin:hljs.UNDERSCORE_IDENT_RE,relevance:0}]};var FUNCTION_REF_PARAMS={begin:/\(/,end:/\)/,relevance:0,keywords:{built_in:KEYWORDS.built_in,literal:KEYWORDS.literal},contains:[hljs.C_NUMBER_MODE,hljs.C_BLOCK_COMMENT_MODE,AT_COMMENT_MODE,BUILT_IN_REF,FUNCTION_REF,STRING_REF,"self"]};FUNCTION_REF.contains.push(FUNCTION_REF_PARAMS);return{aliases:["gss"],case_insensitive:true,keywords:KEYWORDS,illegal:/(\{[%#]|[%#]\}| <- )/,contains:[hljs.C_NUMBER_MODE,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,AT_COMMENT_MODE,STRING_REF,PREPROCESSOR,{className:"keyword",begin:/\bexternal (matrix|string|array|sparse matrix|struct|proc|keyword|fn)/},DEFINITION("proc keyword",";"),DEFINITION("fn","="),{beginKeywords:"for threadfor",end:/;/,relevance:0,contains:[hljs.C_BLOCK_COMMENT_MODE,AT_COMMENT_MODE,FUNCTION_REF_PARAMS]},{variants:[{begin:hljs.UNDERSCORE_IDENT_RE+"\\."+hljs.UNDERSCORE_IDENT_RE},{begin:hljs.UNDERSCORE_IDENT_RE+"\\s*="}],relevance:0},FUNCTION_REF,STRUCT_TYPE]}});hljs.registerLanguage("awk",function(hljs){var VARIABLE={className:"variable",variants:[{begin:/\$[\w\d#@][\w\d_]*/},{begin:/\$\{(.*?)}/}]};var KEYWORDS="BEGIN END if else while do for in break continue delete next nextfile function func exit|10";var STRING={className:"string",contains:[hljs.BACKSLASH_ESCAPE],variants:[{begin:/(u|b)?r?'''/,end:/'''/,relevance:10},{begin:/(u|b)?r?"""/,end:/"""/,relevance:10},{begin:/(u|r|ur)'/,end:/'/,relevance:10},{begin:/(u|r|ur)"/,end:/"/,relevance:10},{begin:/(b|br)'/,end:/'/},{begin:/(b|br)"/,end:/"/},hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE]};return{keywords:{keyword:KEYWORDS},contains:[VARIABLE,STRING,hljs.REGEXP_MODE,hljs.HASH_COMMENT_MODE,hljs.NUMBER_MODE]}});hljs.registerLanguage("yaml",function(hljs){var LITERALS="true false yes no null";var KEY={className:"attr",variants:[{begin:"\\w[\\w :\\/.-]*:(?=[ \t]|$)"},{begin:'"\\w[\\w :\\/.-]*":(?=[ \t]|$)'},{begin:"'\\w[\\w :\\/.-]*':(?=[ \t]|$)"}]};var TEMPLATE_VARIABLES={className:"template-variable",variants:[{begin:"{{",end:"}}"},{begin:"%{",end:"}"}]};var STRING={className:"string",relevance:0,variants:[{begin:/'/,end:/'/},{begin:/"/,end:/"/},{begin:/\S+/}],contains:[hljs.BACKSLASH_ESCAPE,TEMPLATE_VARIABLES]};return{case_insensitive:true,aliases:["yml","YAML","yaml"],contains:[KEY,{className:"meta",begin:"^---s*$",relevance:10},{className:"string",begin:"[\\|>]([0-9]?[+-])?[ ]*\\n( *)[\\S ]+\\n(\\2[\\S ]+\\n?)*"},{begin:"<%[%=-]?",end:"[%-]?%>",subLanguage:"ruby",excludeBegin:true,excludeEnd:true,relevance:0},{className:"type",begin:"!"+hljs.UNDERSCORE_IDENT_RE},{className:"type",begin:"!!"+hljs.UNDERSCORE_IDENT_RE},{className:"meta",begin:"&"+hljs.UNDERSCORE_IDENT_RE+"$"},{className:"meta",begin:"\\*"+hljs.UNDERSCORE_IDENT_RE+"$"},{className:"bullet",begin:"\\-(?=[ ]|$)",relevance:0},hljs.HASH_COMMENT_MODE,{beginKeywords:LITERALS,keywords:{literal:LITERALS}},{className:"number",begin:hljs.C_NUMBER_RE+"\\b"},STRING]}});hljs.registerLanguage("tap",function(hljs){return{case_insensitive:true,contains:[hljs.HASH_COMMENT_MODE,{className:"meta",variants:[{begin:"^TAP version (\\d+)$"},{begin:"^1\\.\\.(\\d+)$"}]},{begin:"(s+)?---$",end:"\\.\\.\\.$",subLanguage:"yaml",relevance:0},{className:"number",begin:" (\\d+) "},{className:"symbol",variants:[{begin:"^ok"},{begin:"^not ok"}]}]}});hljs.registerLanguage("rib",function(hljs){return{keywords:"ArchiveRecord AreaLightSource Atmosphere Attribute AttributeBegin AttributeEnd Basis "+"Begin Blobby Bound Clipping ClippingPlane Color ColorSamples ConcatTransform Cone "+"CoordinateSystem CoordSysTransform CropWindow Curves Cylinder DepthOfField Detail "+"DetailRange Disk Displacement Display End ErrorHandler Exposure Exterior Format "+"FrameAspectRatio FrameBegin FrameEnd GeneralPolygon GeometricApproximation Geometry "+"Hider Hyperboloid Identity Illuminate Imager Interior LightSource "+"MakeCubeFaceEnvironment MakeLatLongEnvironment MakeShadow MakeTexture Matte "+"MotionBegin MotionEnd NuPatch ObjectBegin ObjectEnd ObjectInstance Opacity Option "+"Orientation Paraboloid Patch PatchMesh Perspective PixelFilter PixelSamples "+"PixelVariance Points PointsGeneralPolygons PointsPolygons Polygon Procedural Projection "+"Quantize ReadArchive RelativeDetail ReverseOrientation Rotate Scale ScreenWindow "+"ShadingInterpolation ShadingRate Shutter Sides Skew SolidBegin SolidEnd Sphere "+"SubdivisionMesh Surface TextureCoordinates Torus Transform TransformBegin TransformEnd "+"TransformPoints Translate TrimCurve WorldBegin WorldEnd",illegal:"</",contains:[hljs.HASH_COMMENT_MODE,hljs.C_NUMBER_MODE,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE]}});hljs.registerLanguage("prolog",function(hljs){var ATOM={begin:/[a-z][A-Za-z0-9_]*/,relevance:0};var VAR={className:"symbol",variants:[{begin:/[A-Z][a-zA-Z0-9_]*/},{begin:/_[A-Za-z0-9_]*/}],relevance:0};var PARENTED={begin:/\(/,end:/\)/,relevance:0};var LIST={begin:/\[/,end:/\]/};var LINE_COMMENT={className:"comment",begin:/%/,end:/$/,contains:[hljs.PHRASAL_WORDS_MODE]};var BACKTICK_STRING={className:"string",begin:/`/,end:/`/,contains:[hljs.BACKSLASH_ESCAPE]};var CHAR_CODE={className:"string",begin:/0\'(\\\'|.)/};var SPACE_CODE={className:"string",begin:/0\'\\s/};var PRED_OP={begin:/:-/};var inner=[ATOM,VAR,PARENTED,PRED_OP,LIST,LINE_COMMENT,hljs.C_BLOCK_COMMENT_MODE,hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE,BACKTICK_STRING,CHAR_CODE,SPACE_CODE,hljs.C_NUMBER_MODE];PARENTED.contains=inner;LIST.contains=inner;return{contains:inner.concat([{begin:/\.$/}])}});hljs.registerLanguage("actionscript",function(hljs){var IDENT_RE="[a-zA-Z_$][a-zA-Z0-9_$]*";var IDENT_FUNC_RETURN_TYPE_RE="([*]|[a-zA-Z_$][a-zA-Z0-9_$]*)";var AS3_REST_ARG_MODE={className:"rest_arg",begin:"[.]{3}",end:IDENT_RE,relevance:10};return{aliases:["as"],keywords:{keyword:"as break case catch class const continue default delete do dynamic each "+"else extends final finally for function get if implements import in include "+"instanceof interface internal is namespace native new override package private "+"protected public return set static super switch this throw try typeof use var void "+"while with",literal:"true false null undefined"},contains:[hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.C_NUMBER_MODE,{className:"class",beginKeywords:"package",end:"{",contains:[hljs.TITLE_MODE]},{className:"class",beginKeywords:"class interface",end:"{",excludeEnd:true,contains:[{beginKeywords:"extends implements"},hljs.TITLE_MODE]},{className:"meta",beginKeywords:"import include",end:";",keywords:{"meta-keyword":"import include"}},{className:"function",beginKeywords:"function",end:"[{;]",excludeEnd:true,illegal:"\\S",contains:[hljs.TITLE_MODE,{className:"params",begin:"\\(",end:"\\)",contains:[hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,AS3_REST_ARG_MODE]},{begin:":\\s*"+IDENT_FUNC_RETURN_TYPE_RE}]},hljs.METHOD_GUARD],illegal:/#/}});hljs.registerLanguage("ebnf",function(hljs){var commentMode=hljs.COMMENT(/\(\*/,/\*\)/);var nonTerminalMode={className:"attribute",begin:/^[ ]*[a-zA-Z][a-zA-Z-_]*([\s-_]+[a-zA-Z][a-zA-Z]*)*/};var specialSequenceMode={className:"meta",begin:/\?.*\?/};var ruleBodyMode={begin:/=/,end:/[.;]/,contains:[commentMode,specialSequenceMode,{className:"string",variants:[hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,{begin:"`",end:"`"}]}]};return{illegal:/\S/,contains:[commentMode,nonTerminalMode,ruleBodyMode]}});hljs.registerLanguage("fix",function(hljs){return{contains:[{begin:/[^\u2401\u0001]+/,end:/[\u2401\u0001]/,excludeEnd:true,returnBegin:true,returnEnd:false,contains:[{begin:/([^\u2401\u0001=]+)/,end:/=([^\u2401\u0001=]+)/,returnEnd:true,returnBegin:false,className:"attr"},{begin:/=/,end:/([\u2401\u0001])/,excludeEnd:true,excludeBegin:true,className:"string"}]}],case_insensitive:true}});hljs.registerLanguage("bnf",function(hljs){return{contains:[{className:"attribute",begin:/</,end:/>/},{begin:/::=/,starts:{end:/$/,contains:[{begin:/</,end:/>/},hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE]}}]}});hljs.registerLanguage("isbl",function(hljs){var UNDERSCORE_IDENT_RE="[A-Za-zА-Яа-яёЁ_!][A-Za-zА-Яа-яёЁ_0-9]*";var FUNCTION_NAME_IDENT_RE="[A-Za-zА-Яа-яёЁ_][A-Za-zА-Яа-яёЁ_0-9]*";var KEYWORD="and и else иначе endexcept endfinally endforeach конецвсе endif конецесли endwhile конецпока "+"except exitfor finally foreach все if если in в not не or или try while пока ";var sysres_constants="SYSRES_CONST_ACCES_RIGHT_TYPE_EDIT "+"SYSRES_CONST_ACCES_RIGHT_TYPE_FULL "+"SYSRES_CONST_ACCES_RIGHT_TYPE_VIEW "+"SYSRES_CONST_ACCESS_MODE_REQUISITE_CODE "+"SYSRES_CONST_ACCESS_NO_ACCESS_VIEW "+"SYSRES_CONST_ACCESS_NO_ACCESS_VIEW_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_ADD_REQUISITE_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_ADD_REQUISITE_YES_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_CHANGE_REQUISITE_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_CHANGE_REQUISITE_YES_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_DELETE_REQUISITE_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_DELETE_REQUISITE_YES_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_EXECUTE_REQUISITE_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_EXECUTE_REQUISITE_YES_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_NO_ACCESS_REQUISITE_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_NO_ACCESS_REQUISITE_YES_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_RATIFY_REQUISITE_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_RATIFY_REQUISITE_YES_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_REQUISITE_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_VIEW "+"SYSRES_CONST_ACCESS_RIGHTS_VIEW_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_VIEW_REQUISITE_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_VIEW_REQUISITE_YES_CODE "+"SYSRES_CONST_ACCESS_TYPE_CHANGE "+"SYSRES_CONST_ACCESS_TYPE_CHANGE_CODE "+"SYSRES_CONST_ACCESS_TYPE_EXISTS "+"SYSRES_CONST_ACCESS_TYPE_EXISTS_CODE "+"SYSRES_CONST_ACCESS_TYPE_FULL "+"SYSRES_CONST_ACCESS_TYPE_FULL_CODE "+"SYSRES_CONST_ACCESS_TYPE_VIEW "+"SYSRES_CONST_ACCESS_TYPE_VIEW_CODE "+"SYSRES_CONST_ACTION_TYPE_ABORT "+"SYSRES_CONST_ACTION_TYPE_ACCEPT "+"SYSRES_CONST_ACTION_TYPE_ACCESS_RIGHTS "+"SYSRES_CONST_ACTION_TYPE_ADD_ATTACHMENT "+"SYSRES_CONST_ACTION_TYPE_CHANGE_CARD "+"SYSRES_CONST_ACTION_TYPE_CHANGE_KIND "+"SYSRES_CONST_ACTION_TYPE_CHANGE_STORAGE "+"SYSRES_CONST_ACTION_TYPE_CONTINUE "+"SYSRES_CONST_ACTION_TYPE_COPY "+"SYSRES_CONST_ACTION_TYPE_CREATE "+"SYSRES_CONST_ACTION_TYPE_CREATE_VERSION "+"SYSRES_CONST_ACTION_TYPE_DELETE "+"SYSRES_CONST_ACTION_TYPE_DELETE_ATTACHMENT "+"SYSRES_CONST_ACTION_TYPE_DELETE_VERSION "+"SYSRES_CONST_ACTION_TYPE_DISABLE_DELEGATE_ACCESS_RIGHTS "+"SYSRES_CONST_ACTION_TYPE_ENABLE_DELEGATE_ACCESS_RIGHTS "+"SYSRES_CONST_ACTION_TYPE_ENCRYPTION_BY_CERTIFICATE "+"SYSRES_CONST_ACTION_TYPE_ENCRYPTION_BY_CERTIFICATE_AND_PASSWORD "+"SYSRES_CONST_ACTION_TYPE_ENCRYPTION_BY_PASSWORD "+"SYSRES_CONST_ACTION_TYPE_EXPORT_WITH_LOCK "+"SYSRES_CONST_ACTION_TYPE_EXPORT_WITHOUT_LOCK "+"SYSRES_CONST_ACTION_TYPE_IMPORT_WITH_UNLOCK "+"SYSRES_CONST_ACTION_TYPE_IMPORT_WITHOUT_UNLOCK "+"SYSRES_CONST_ACTION_TYPE_LIFE_CYCLE_STAGE "+"SYSRES_CONST_ACTION_TYPE_LOCK "+"SYSRES_CONST_ACTION_TYPE_LOCK_FOR_SERVER "+"SYSRES_CONST_ACTION_TYPE_LOCK_MODIFY "+"SYSRES_CONST_ACTION_TYPE_MARK_AS_READED "+"SYSRES_CONST_ACTION_TYPE_MARK_AS_UNREADED "+"SYSRES_CONST_ACTION_TYPE_MODIFY "+"SYSRES_CONST_ACTION_TYPE_MODIFY_CARD "+"SYSRES_CONST_ACTION_TYPE_MOVE_TO_ARCHIVE "+"SYSRES_CONST_ACTION_TYPE_OFF_ENCRYPTION "+"SYSRES_CONST_ACTION_TYPE_PASSWORD_CHANGE "+"SYSRES_CONST_ACTION_TYPE_PERFORM "+"SYSRES_CONST_ACTION_TYPE_RECOVER_FROM_LOCAL_COPY "+"SYSRES_CONST_ACTION_TYPE_RESTART "+"SYSRES_CONST_ACTION_TYPE_RESTORE_FROM_ARCHIVE "+"SYSRES_CONST_ACTION_TYPE_REVISION "+"SYSRES_CONST_ACTION_TYPE_SEND_BY_MAIL "+"SYSRES_CONST_ACTION_TYPE_SIGN "+"SYSRES_CONST_ACTION_TYPE_START "+"SYSRES_CONST_ACTION_TYPE_UNLOCK "+"SYSRES_CONST_ACTION_TYPE_UNLOCK_FROM_SERVER "+"SYSRES_CONST_ACTION_TYPE_VERSION_STATE "+"SYSRES_CONST_ACTION_TYPE_VERSION_VISIBILITY "+"SYSRES_CONST_ACTION_TYPE_VIEW "+"SYSRES_CONST_ACTION_TYPE_VIEW_SHADOW_COPY "+"SYSRES_CONST_ACTION_TYPE_WORKFLOW_DESCRIPTION_MODIFY "+"SYSRES_CONST_ACTION_TYPE_WRITE_HISTORY "+"SYSRES_CONST_ACTIVE_VERSION_STATE_PICK_VALUE "+"SYSRES_CONST_ADD_REFERENCE_MODE_NAME "+"SYSRES_CONST_ADDITION_REQUISITE_CODE "+"SYSRES_CONST_ADDITIONAL_PARAMS_REQUISITE_CODE "+"SYSRES_CONST_ADITIONAL_JOB_END_DATE_REQUISITE_NAME "+"SYSRES_CONST_ADITIONAL_JOB_READ_REQUISITE_NAME "+"SYSRES_CONST_ADITIONAL_JOB_START_DATE_REQUISITE_NAME "+"SYSRES_CONST_ADITIONAL_JOB_STATE_REQUISITE_NAME "+"SYSRES_CONST_ADMINISTRATION_HISTORY_ADDING_USER_TO_GROUP_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_ADDING_USER_TO_GROUP_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_CREATION_COMP_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_CREATION_COMP_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_CREATION_GROUP_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_CREATION_GROUP_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_CREATION_USER_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_CREATION_USER_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_DATABASE_USER_CREATION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_DATABASE_USER_CREATION_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_DATABASE_USER_DELETION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_DATABASE_USER_DELETION_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_DELETION_COMP_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_DELETION_COMP_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_DELETION_GROUP_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_DELETION_GROUP_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_DELETION_USER_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_DELETION_USER_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_DELETION_USER_FROM_GROUP_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_DELETION_USER_FROM_GROUP_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_GRANTING_FILTERER_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_GRANTING_FILTERER_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_GRANTING_FILTERER_RESTRICTION_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_GRANTING_FILTERER_RESTRICTION_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_GRANTING_PRIVILEGE_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_GRANTING_PRIVILEGE_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_GRANTING_RIGHTS_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_GRANTING_RIGHTS_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_IS_MAIN_SERVER_CHANGED_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_IS_MAIN_SERVER_CHANGED_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_IS_PUBLIC_CHANGED_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_IS_PUBLIC_CHANGED_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_REMOVING_FILTERER_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_REMOVING_FILTERER_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_REMOVING_FILTERER_RESTRICTION_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_REMOVING_FILTERER_RESTRICTION_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_REMOVING_PRIVILEGE_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_REMOVING_PRIVILEGE_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_REMOVING_RIGHTS_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_REMOVING_RIGHTS_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_SERVER_LOGIN_CREATION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_SERVER_LOGIN_CREATION_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_SERVER_LOGIN_DELETION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_SERVER_LOGIN_DELETION_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_CATEGORY_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_CATEGORY_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_COMP_TITLE_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_COMP_TITLE_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_FULL_NAME_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_FULL_NAME_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_GROUP_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_GROUP_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_PARENT_GROUP_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_PARENT_GROUP_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_USER_AUTH_TYPE_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_USER_AUTH_TYPE_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_USER_LOGIN_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_USER_LOGIN_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_USER_STATUS_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_USER_STATUS_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_USER_PASSWORD_CHANGE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_USER_PASSWORD_CHANGE_ACTION "+"SYSRES_CONST_ALL_ACCEPT_CONDITION_RUS "+"SYSRES_CONST_ALL_USERS_GROUP "+"SYSRES_CONST_ALL_USERS_GROUP_NAME "+"SYSRES_CONST_ALL_USERS_SERVER_GROUP_NAME "+"SYSRES_CONST_ALLOWED_ACCESS_TYPE_CODE "+"SYSRES_CONST_ALLOWED_ACCESS_TYPE_NAME "+"SYSRES_CONST_APP_VIEWER_TYPE_REQUISITE_CODE "+"SYSRES_CONST_APPROVING_SIGNATURE_NAME "+"SYSRES_CONST_APPROVING_SIGNATURE_REQUISITE_CODE "+"SYSRES_CONST_ASSISTANT_SUBSTITUE_TYPE "+"SYSRES_CONST_ASSISTANT_SUBSTITUE_TYPE_CODE "+"SYSRES_CONST_ATTACH_TYPE_COMPONENT_TOKEN "+"SYSRES_CONST_ATTACH_TYPE_DOC "+"SYSRES_CONST_ATTACH_TYPE_EDOC "+"SYSRES_CONST_ATTACH_TYPE_FOLDER "+"SYSRES_CONST_ATTACH_TYPE_JOB "+"SYSRES_CONST_ATTACH_TYPE_REFERENCE "+"SYSRES_CONST_ATTACH_TYPE_TASK "+"SYSRES_CONST_AUTH_ENCODED_PASSWORD "+"SYSRES_CONST_AUTH_ENCODED_PASSWORD_CODE "+"SYSRES_CONST_AUTH_NOVELL "+"SYSRES_CONST_AUTH_PASSWORD "+"SYSRES_CONST_AUTH_PASSWORD_CODE "+"SYSRES_CONST_AUTH_WINDOWS "+"SYSRES_CONST_AUTHENTICATING_SIGNATURE_NAME "+"SYSRES_CONST_AUTHENTICATING_SIGNATURE_REQUISITE_CODE "+"SYSRES_CONST_AUTO_ENUM_METHOD_FLAG "+"SYSRES_CONST_AUTO_NUMERATION_CODE "+"SYSRES_CONST_AUTO_STRONG_ENUM_METHOD_FLAG "+"SYSRES_CONST_AUTOTEXT_NAME_REQUISITE_CODE "+"SYSRES_CONST_AUTOTEXT_TEXT_REQUISITE_CODE "+"SYSRES_CONST_AUTOTEXT_USAGE_ALL "+"SYSRES_CONST_AUTOTEXT_USAGE_ALL_CODE "+"SYSRES_CONST_AUTOTEXT_USAGE_SIGN "+"SYSRES_CONST_AUTOTEXT_USAGE_SIGN_CODE "+"SYSRES_CONST_AUTOTEXT_USAGE_WORK "+"SYSRES_CONST_AUTOTEXT_USAGE_WORK_CODE "+"SYSRES_CONST_AUTOTEXT_USE_ANYWHERE_CODE "+"SYSRES_CONST_AUTOTEXT_USE_ON_SIGNING_CODE "+"SYSRES_CONST_AUTOTEXT_USE_ON_WORK_CODE "+"SYSRES_CONST_BEGIN_DATE_REQUISITE_CODE "+"SYSRES_CONST_BLACK_LIFE_CYCLE_STAGE_FONT_COLOR "+"SYSRES_CONST_BLUE_LIFE_CYCLE_STAGE_FONT_COLOR "+"SYSRES_CONST_BTN_PART "+"SYSRES_CONST_CALCULATED_ROLE_TYPE_CODE "+"SYSRES_CONST_CALL_TYPE_VARIABLE_BUTTON_VALUE "+"SYSRES_CONST_CALL_TYPE_VARIABLE_PROGRAM_VALUE "+"SYSRES_CONST_CANCEL_MESSAGE_FUNCTION_RESULT "+"SYSRES_CONST_CARD_PART "+"SYSRES_CONST_CARD_REFERENCE_MODE_NAME "+"SYSRES_CONST_CERTIFICATE_TYPE_REQUISITE_ENCRYPT_VALUE "+"SYSRES_CONST_CERTIFICATE_TYPE_REQUISITE_SIGN_AND_ENCRYPT_VALUE "+"SYSRES_CONST_CERTIFICATE_TYPE_REQUISITE_SIGN_VALUE "+"SYSRES_CONST_CHECK_PARAM_VALUE_DATE_PARAM_TYPE "+"SYSRES_CONST_CHECK_PARAM_VALUE_FLOAT_PARAM_TYPE "+"SYSRES_CONST_CHECK_PARAM_VALUE_INTEGER_PARAM_TYPE "+"SYSRES_CONST_CHECK_PARAM_VALUE_PICK_PARAM_TYPE "+"SYSRES_CONST_CHECK_PARAM_VALUE_REEFRENCE_PARAM_TYPE "+"SYSRES_CONST_CLOSED_RECORD_FLAG_VALUE_FEMININE "+"SYSRES_CONST_CLOSED_RECORD_FLAG_VALUE_MASCULINE "+"SYSRES_CONST_CODE_COMPONENT_TYPE_ADMIN "+"SYSRES_CONST_CODE_COMPONENT_TYPE_DEVELOPER "+"SYSRES_CONST_CODE_COMPONENT_TYPE_DOCS "+"SYSRES_CONST_CODE_COMPONENT_TYPE_EDOC_CARDS "+"SYSRES_CONST_CODE_COMPONENT_TYPE_EXTERNAL_EXECUTABLE "+"SYSRES_CONST_CODE_COMPONENT_TYPE_OTHER "+"SYSRES_CONST_CODE_COMPONENT_TYPE_REFERENCE "+"SYSRES_CONST_CODE_COMPONENT_TYPE_REPORT "+"SYSRES_CONST_CODE_COMPONENT_TYPE_SCRIPT "+"SYSRES_CONST_CODE_COMPONENT_TYPE_URL "+"SYSRES_CONST_CODE_REQUISITE_ACCESS "+"SYSRES_CONST_CODE_REQUISITE_CODE "+"SYSRES_CONST_CODE_REQUISITE_COMPONENT "+"SYSRES_CONST_CODE_REQUISITE_DESCRIPTION "+"SYSRES_CONST_CODE_REQUISITE_EXCLUDE_COMPONENT "+"SYSRES_CONST_CODE_REQUISITE_RECORD "+"SYSRES_CONST_COMMENT_REQ_CODE "+"SYSRES_CONST_COMMON_SETTINGS_REQUISITE_CODE "+"SYSRES_CONST_COMP_CODE_GRD "+"SYSRES_CONST_COMPONENT_GROUP_TYPE_REQUISITE_CODE "+"SYSRES_CONST_COMPONENT_TYPE_ADMIN_COMPONENTS "+"SYSRES_CONST_COMPONENT_TYPE_DEVELOPER_COMPONENTS "+"SYSRES_CONST_COMPONENT_TYPE_DOCS "+"SYSRES_CONST_COMPONENT_TYPE_EDOC_CARDS "+"SYSRES_CONST_COMPONENT_TYPE_EDOCS "+"SYSRES_CONST_COMPONENT_TYPE_EXTERNAL_EXECUTABLE "+"SYSRES_CONST_COMPONENT_TYPE_OTHER "+"SYSRES_CONST_COMPONENT_TYPE_REFERENCE_TYPES "+"SYSRES_CONST_COMPONENT_TYPE_REFERENCES "+"SYSRES_CONST_COMPONENT_TYPE_REPORTS "+"SYSRES_CONST_COMPONENT_TYPE_SCRIPTS "+"SYSRES_CONST_COMPONENT_TYPE_URL "+"SYSRES_CONST_COMPONENTS_REMOTE_SERVERS_VIEW_CODE "+"SYSRES_CONST_CONDITION_BLOCK_DESCRIPTION "+"SYSRES_CONST_CONST_FIRM_STATUS_COMMON "+"SYSRES_CONST_CONST_FIRM_STATUS_INDIVIDUAL "+"SYSRES_CONST_CONST_NEGATIVE_VALUE "+"SYSRES_CONST_CONST_POSITIVE_VALUE "+"SYSRES_CONST_CONST_SERVER_STATUS_DONT_REPLICATE "+"SYSRES_CONST_CONST_SERVER_STATUS_REPLICATE "+"SYSRES_CONST_CONTENTS_REQUISITE_CODE "+"SYSRES_CONST_DATA_TYPE_BOOLEAN "+"SYSRES_CONST_DATA_TYPE_DATE "+"SYSRES_CONST_DATA_TYPE_FLOAT "+"SYSRES_CONST_DATA_TYPE_INTEGER "+"SYSRES_CONST_DATA_TYPE_PICK "+"SYSRES_CONST_DATA_TYPE_REFERENCE "+"SYSRES_CONST_DATA_TYPE_STRING "+"SYSRES_CONST_DATA_TYPE_TEXT "+"SYSRES_CONST_DATA_TYPE_VARIANT "+"SYSRES_CONST_DATE_CLOSE_REQ_CODE "+"SYSRES_CONST_DATE_FORMAT_DATE_ONLY_CHAR "+"SYSRES_CONST_DATE_OPEN_REQ_CODE "+"SYSRES_CONST_DATE_REQUISITE "+"SYSRES_CONST_DATE_REQUISITE_CODE "+"SYSRES_CONST_DATE_REQUISITE_NAME "+"SYSRES_CONST_DATE_REQUISITE_TYPE "+"SYSRES_CONST_DATE_TYPE_CHAR "+"SYSRES_CONST_DATETIME_FORMAT_VALUE "+"SYSRES_CONST_DEA_ACCESS_RIGHTS_ACTION_CODE "+"SYSRES_CONST_DESCRIPTION_LOCALIZE_ID_REQUISITE_CODE "+"SYSRES_CONST_DESCRIPTION_REQUISITE_CODE "+"SYSRES_CONST_DET1_PART "+"SYSRES_CONST_DET2_PART "+"SYSRES_CONST_DET3_PART "+"SYSRES_CONST_DET4_PART "+"SYSRES_CONST_DET5_PART "+"SYSRES_CONST_DET6_PART "+"SYSRES_CONST_DETAIL_DATASET_KEY_REQUISITE_CODE "+"SYSRES_CONST_DETAIL_PICK_REQUISITE_CODE "+"SYSRES_CONST_DETAIL_REQ_CODE "+"SYSRES_CONST_DO_NOT_USE_ACCESS_TYPE_CODE "+"SYSRES_CONST_DO_NOT_USE_ACCESS_TYPE_NAME "+"SYSRES_CONST_DO_NOT_USE_ON_VIEW_ACCESS_TYPE_CODE "+"SYSRES_CONST_DO_NOT_USE_ON_VIEW_ACCESS_TYPE_NAME "+"SYSRES_CONST_DOCUMENT_STORAGES_CODE "+"SYSRES_CONST_DOCUMENT_TEMPLATES_TYPE_NAME "+"SYSRES_CONST_DOUBLE_REQUISITE_CODE "+"SYSRES_CONST_EDITOR_CLOSE_FILE_OBSERV_TYPE_CODE "+"SYSRES_CONST_EDITOR_CLOSE_PROCESS_OBSERV_TYPE_CODE "+"SYSRES_CONST_EDITOR_TYPE_REQUISITE_CODE "+"SYSRES_CONST_EDITORS_APPLICATION_NAME_REQUISITE_CODE "+"SYSRES_CONST_EDITORS_CREATE_SEVERAL_PROCESSES_REQUISITE_CODE "+"SYSRES_CONST_EDITORS_EXTENSION_REQUISITE_CODE "+"SYSRES_CONST_EDITORS_OBSERVER_BY_PROCESS_TYPE "+"SYSRES_CONST_EDITORS_REFERENCE_CODE "+"SYSRES_CONST_EDITORS_REPLACE_SPEC_CHARS_REQUISITE_CODE "+"SYSRES_CONST_EDITORS_USE_PLUGINS_REQUISITE_CODE "+"SYSRES_CONST_EDITORS_VIEW_DOCUMENT_OPENED_TO_EDIT_CODE "+"SYSRES_CONST_EDOC_CARD_TYPE_REQUISITE_CODE "+"SYSRES_CONST_EDOC_CARD_TYPES_LINK_REQUISITE_CODE "+"SYSRES_CONST_EDOC_CERTIFICATE_AND_PASSWORD_ENCODE_CODE "+"SYSRES_CONST_EDOC_CERTIFICATE_ENCODE_CODE "+"SYSRES_CONST_EDOC_DATE_REQUISITE_CODE "+"SYSRES_CONST_EDOC_KIND_REFERENCE_CODE "+"SYSRES_CONST_EDOC_KINDS_BY_TEMPLATE_ACTION_CODE "+"SYSRES_CONST_EDOC_MANAGE_ACCESS_CODE "+"SYSRES_CONST_EDOC_NONE_ENCODE_CODE "+"SYSRES_CONST_EDOC_NUMBER_REQUISITE_CODE "+"SYSRES_CONST_EDOC_PASSWORD_ENCODE_CODE "+"SYSRES_CONST_EDOC_READONLY_ACCESS_CODE "+"SYSRES_CONST_EDOC_SHELL_LIFE_TYPE_VIEW_VALUE "+"SYSRES_CONST_EDOC_SIZE_RESTRICTION_PRIORITY_REQUISITE_CODE "+"SYSRES_CONST_EDOC_STORAGE_CHECK_ACCESS_RIGHTS_REQUISITE_CODE "+"SYSRES_CONST_EDOC_STORAGE_COMPUTER_NAME_REQUISITE_CODE "+"SYSRES_CONST_EDOC_STORAGE_DATABASE_NAME_REQUISITE_CODE "+"SYSRES_CONST_EDOC_STORAGE_EDIT_IN_STORAGE_REQUISITE_CODE "+"SYSRES_CONST_EDOC_STORAGE_LOCAL_PATH_REQUISITE_CODE "+"SYSRES_CONST_EDOC_STORAGE_SHARED_SOURCE_NAME_REQUISITE_CODE "+"SYSRES_CONST_EDOC_TEMPLATE_REQUISITE_CODE "+"SYSRES_CONST_EDOC_TYPES_REFERENCE_CODE "+"SYSRES_CONST_EDOC_VERSION_ACTIVE_STAGE_CODE "+"SYSRES_CONST_EDOC_VERSION_DESIGN_STAGE_CODE "+"SYSRES_CONST_EDOC_VERSION_OBSOLETE_STAGE_CODE "+"SYSRES_CONST_EDOC_WRITE_ACCES_CODE "+"SYSRES_CONST_EDOCUMENT_CARD_REQUISITES_REFERENCE_CODE_SELECTED_REQUISITE "+"SYSRES_CONST_ENCODE_CERTIFICATE_TYPE_CODE "+"SYSRES_CONST_END_DATE_REQUISITE_CODE "+"SYSRES_CONST_ENUMERATION_TYPE_REQUISITE_CODE "+"SYSRES_CONST_EXECUTE_ACCESS_RIGHTS_TYPE_CODE "+"SYSRES_CONST_EXECUTIVE_FILE_STORAGE_TYPE "+"SYSRES_CONST_EXIST_CONST "+"SYSRES_CONST_EXIST_VALUE "+"SYSRES_CONST_EXPORT_LOCK_TYPE_ASK "+"SYSRES_CONST_EXPORT_LOCK_TYPE_WITH_LOCK "+"SYSRES_CONST_EXPORT_LOCK_TYPE_WITHOUT_LOCK "+"SYSRES_CONST_EXPORT_VERSION_TYPE_ASK "+"SYSRES_CONST_EXPORT_VERSION_TYPE_LAST "+"SYSRES_CONST_EXPORT_VERSION_TYPE_LAST_ACTIVE "+"SYSRES_CONST_EXTENSION_REQUISITE_CODE "+"SYSRES_CONST_FILTER_NAME_REQUISITE_CODE "+"SYSRES_CONST_FILTER_REQUISITE_CODE "+"SYSRES_CONST_FILTER_TYPE_COMMON_CODE "+"SYSRES_CONST_FILTER_TYPE_COMMON_NAME "+"SYSRES_CONST_FILTER_TYPE_USER_CODE "+"SYSRES_CONST_FILTER_TYPE_USER_NAME "+"SYSRES_CONST_FILTER_VALUE_REQUISITE_NAME "+"SYSRES_CONST_FLOAT_NUMBER_FORMAT_CHAR "+"SYSRES_CONST_FLOAT_REQUISITE_TYPE "+"SYSRES_CONST_FOLDER_AUTHOR_VALUE "+"SYSRES_CONST_FOLDER_KIND_ANY_OBJECTS "+"SYSRES_CONST_FOLDER_KIND_COMPONENTS "+"SYSRES_CONST_FOLDER_KIND_EDOCS "+"SYSRES_CONST_FOLDER_KIND_JOBS "+"SYSRES_CONST_FOLDER_KIND_TASKS "+"SYSRES_CONST_FOLDER_TYPE_COMMON "+"SYSRES_CONST_FOLDER_TYPE_COMPONENT "+"SYSRES_CONST_FOLDER_TYPE_FAVORITES "+"SYSRES_CONST_FOLDER_TYPE_INBOX "+"SYSRES_CONST_FOLDER_TYPE_OUTBOX "+"SYSRES_CONST_FOLDER_TYPE_QUICK_LAUNCH "+"SYSRES_CONST_FOLDER_TYPE_SEARCH "+"SYSRES_CONST_FOLDER_TYPE_SHORTCUTS "+"SYSRES_CONST_FOLDER_TYPE_USER "+"SYSRES_CONST_FROM_DICTIONARY_ENUM_METHOD_FLAG "+"SYSRES_CONST_FULL_SUBSTITUTE_TYPE "+"SYSRES_CONST_FULL_SUBSTITUTE_TYPE_CODE "+"SYSRES_CONST_FUNCTION_CANCEL_RESULT "+"SYSRES_CONST_FUNCTION_CATEGORY_SYSTEM "+"SYSRES_CONST_FUNCTION_CATEGORY_USER "+"SYSRES_CONST_FUNCTION_FAILURE_RESULT "+"SYSRES_CONST_FUNCTION_SAVE_RESULT "+"SYSRES_CONST_GENERATED_REQUISITE "+"SYSRES_CONST_GREEN_LIFE_CYCLE_STAGE_FONT_COLOR "+"SYSRES_CONST_GROUP_ACCOUNT_TYPE_VALUE_CODE "+"SYSRES_CONST_GROUP_CATEGORY_NORMAL_CODE "+"SYSRES_CONST_GROUP_CATEGORY_NORMAL_NAME "+"SYSRES_CONST_GROUP_CATEGORY_SERVICE_CODE "+"SYSRES_CONST_GROUP_CATEGORY_SERVICE_NAME "+"SYSRES_CONST_GROUP_COMMON_CATEGORY_FIELD_VALUE "+"SYSRES_CONST_GROUP_FULL_NAME_REQUISITE_CODE "+"SYSRES_CONST_GROUP_NAME_REQUISITE_CODE "+"SYSRES_CONST_GROUP_RIGHTS_T_REQUISITE_CODE "+"SYSRES_CONST_GROUP_SERVER_CODES_REQUISITE_CODE "+"SYSRES_CONST_GROUP_SERVER_NAME_REQUISITE_CODE "+"SYSRES_CONST_GROUP_SERVICE_CATEGORY_FIELD_VALUE "+"SYSRES_CONST_GROUP_USER_REQUISITE_CODE "+"SYSRES_CONST_GROUPS_REFERENCE_CODE "+"SYSRES_CONST_GROUPS_REQUISITE_CODE "+"SYSRES_CONST_HIDDEN_MODE_NAME "+"SYSRES_CONST_HIGH_LVL_REQUISITE_CODE "+"SYSRES_CONST_HISTORY_ACTION_CREATE_CODE "+"SYSRES_CONST_HISTORY_ACTION_DELETE_CODE "+"SYSRES_CONST_HISTORY_ACTION_EDIT_CODE "+"SYSRES_CONST_HOUR_CHAR "+"SYSRES_CONST_ID_REQUISITE_CODE "+"SYSRES_CONST_IDSPS_REQUISITE_CODE "+"SYSRES_CONST_IMAGE_MODE_COLOR "+"SYSRES_CONST_IMAGE_MODE_GREYSCALE "+"SYSRES_CONST_IMAGE_MODE_MONOCHROME "+"SYSRES_CONST_IMPORTANCE_HIGH "+"SYSRES_CONST_IMPORTANCE_LOW "+"SYSRES_CONST_IMPORTANCE_NORMAL "+"SYSRES_CONST_IN_DESIGN_VERSION_STATE_PICK_VALUE "+"SYSRES_CONST_INCOMING_WORK_RULE_TYPE_CODE "+"SYSRES_CONST_INT_REQUISITE "+"SYSRES_CONST_INT_REQUISITE_TYPE "+"SYSRES_CONST_INTEGER_NUMBER_FORMAT_CHAR "+"SYSRES_CONST_INTEGER_TYPE_CHAR "+"SYSRES_CONST_IS_GENERATED_REQUISITE_NEGATIVE_VALUE "+"SYSRES_CONST_IS_PUBLIC_ROLE_REQUISITE_CODE "+"SYSRES_CONST_IS_REMOTE_USER_NEGATIVE_VALUE "+"SYSRES_CONST_IS_REMOTE_USER_POSITIVE_VALUE "+"SYSRES_CONST_IS_STORED_REQUISITE_NEGATIVE_VALUE "+"SYSRES_CONST_IS_STORED_REQUISITE_STORED_VALUE "+"SYSRES_CONST_ITALIC_LIFE_CYCLE_STAGE_DRAW_STYLE "+"SYSRES_CONST_JOB_BLOCK_DESCRIPTION "+"SYSRES_CONST_JOB_KIND_CONTROL_JOB "+"SYSRES_CONST_JOB_KIND_JOB "+"SYSRES_CONST_JOB_KIND_NOTICE "+"SYSRES_CONST_JOB_STATE_ABORTED "+"SYSRES_CONST_JOB_STATE_COMPLETE "+"SYSRES_CONST_JOB_STATE_WORKING "+"SYSRES_CONST_KIND_REQUISITE_CODE "+"SYSRES_CONST_KIND_REQUISITE_NAME "+"SYSRES_CONST_KINDS_CREATE_SHADOW_COPIES_REQUISITE_CODE "+"SYSRES_CONST_KINDS_DEFAULT_EDOC_LIFE_STAGE_REQUISITE_CODE "+"SYSRES_CONST_KINDS_EDOC_ALL_TEPLATES_ALLOWED_REQUISITE_CODE "+"SYSRES_CONST_KINDS_EDOC_ALLOW_LIFE_CYCLE_STAGE_CHANGING_REQUISITE_CODE "+"SYSRES_CONST_KINDS_EDOC_ALLOW_MULTIPLE_ACTIVE_VERSIONS_REQUISITE_CODE "+"SYSRES_CONST_KINDS_EDOC_SHARE_ACCES_RIGHTS_BY_DEFAULT_CODE "+"SYSRES_CONST_KINDS_EDOC_TEMPLATE_REQUISITE_CODE "+"SYSRES_CONST_KINDS_EDOC_TYPE_REQUISITE_CODE "+"SYSRES_CONST_KINDS_SIGNERS_REQUISITES_CODE "+"SYSRES_CONST_KOD_INPUT_TYPE "+"SYSRES_CONST_LAST_UPDATE_DATE_REQUISITE_CODE "+"SYSRES_CONST_LIFE_CYCLE_START_STAGE_REQUISITE_CODE "+"SYSRES_CONST_LILAC_LIFE_CYCLE_STAGE_FONT_COLOR "+"SYSRES_CONST_LINK_OBJECT_KIND_COMPONENT "+"SYSRES_CONST_LINK_OBJECT_KIND_DOCUMENT "+"SYSRES_CONST_LINK_OBJECT_KIND_EDOC "+"SYSRES_CONST_LINK_OBJECT_KIND_FOLDER "+"SYSRES_CONST_LINK_OBJECT_KIND_JOB "+"SYSRES_CONST_LINK_OBJECT_KIND_REFERENCE "+"SYSRES_CONST_LINK_OBJECT_KIND_TASK "+"SYSRES_CONST_LINK_REF_TYPE_REQUISITE_CODE "+"SYSRES_CONST_LIST_REFERENCE_MODE_NAME "+"SYSRES_CONST_LOCALIZATION_DICTIONARY_MAIN_VIEW_CODE "+"SYSRES_CONST_MAIN_VIEW_CODE "+"SYSRES_CONST_MANUAL_ENUM_METHOD_FLAG "+"SYSRES_CONST_MASTER_COMP_TYPE_REQUISITE_CODE "+"SYSRES_CONST_MASTER_TABLE_REC_ID_REQUISITE_CODE "+"SYSRES_CONST_MAXIMIZED_MODE_NAME "+"SYSRES_CONST_ME_VALUE "+"SYSRES_CONST_MESSAGE_ATTENTION_CAPTION "+"SYSRES_CONST_MESSAGE_CONFIRMATION_CAPTION "+"SYSRES_CONST_MESSAGE_ERROR_CAPTION "+"SYSRES_CONST_MESSAGE_INFORMATION_CAPTION "+"SYSRES_CONST_MINIMIZED_MODE_NAME "+"SYSRES_CONST_MINUTE_CHAR "+"SYSRES_CONST_MODULE_REQUISITE_CODE "+"SYSRES_CONST_MONITORING_BLOCK_DESCRIPTION "+"SYSRES_CONST_MONTH_FORMAT_VALUE "+"SYSRES_CONST_NAME_LOCALIZE_ID_REQUISITE_CODE "+"SYSRES_CONST_NAME_REQUISITE_CODE "+"SYSRES_CONST_NAME_SINGULAR_REQUISITE_CODE "+"SYSRES_CONST_NAMEAN_INPUT_TYPE "+"SYSRES_CONST_NEGATIVE_PICK_VALUE "+"SYSRES_CONST_NEGATIVE_VALUE "+"SYSRES_CONST_NO "+"SYSRES_CONST_NO_PICK_VALUE "+"SYSRES_CONST_NO_SIGNATURE_REQUISITE_CODE "+"SYSRES_CONST_NO_VALUE "+"SYSRES_CONST_NONE_ACCESS_RIGHTS_TYPE_CODE "+"SYSRES_CONST_NONOPERATING_RECORD_FLAG_VALUE "+"SYSRES_CONST_NONOPERATING_RECORD_FLAG_VALUE_MASCULINE "+"SYSRES_CONST_NORMAL_ACCESS_RIGHTS_TYPE_CODE "+"SYSRES_CONST_NORMAL_LIFE_CYCLE_STAGE_DRAW_STYLE "+"SYSRES_CONST_NORMAL_MODE_NAME "+"SYSRES_CONST_NOT_ALLOWED_ACCESS_TYPE_CODE "+"SYSRES_CONST_NOT_ALLOWED_ACCESS_TYPE_NAME "+"SYSRES_CONST_NOTE_REQUISITE_CODE "+"SYSRES_CONST_NOTICE_BLOCK_DESCRIPTION "+"SYSRES_CONST_NUM_REQUISITE "+"SYSRES_CONST_NUM_STR_REQUISITE_CODE "+"SYSRES_CONST_NUMERATION_AUTO_NOT_STRONG "+"SYSRES_CONST_NUMERATION_AUTO_STRONG "+"SYSRES_CONST_NUMERATION_FROM_DICTONARY "+"SYSRES_CONST_NUMERATION_MANUAL "+"SYSRES_CONST_NUMERIC_TYPE_CHAR "+"SYSRES_CONST_NUMREQ_REQUISITE_CODE "+"SYSRES_CONST_OBSOLETE_VERSION_STATE_PICK_VALUE "+"SYSRES_CONST_OPERATING_RECORD_FLAG_VALUE "+"SYSRES_CONST_OPERATING_RECORD_FLAG_VALUE_CODE "+"SYSRES_CONST_OPERATING_RECORD_FLAG_VALUE_FEMININE "+"SYSRES_CONST_OPERATING_RECORD_FLAG_VALUE_MASCULINE "+"SYSRES_CONST_OPTIONAL_FORM_COMP_REQCODE_PREFIX "+"SYSRES_CONST_ORANGE_LIFE_CYCLE_STAGE_FONT_COLOR "+"SYSRES_CONST_ORIGINALREF_REQUISITE_CODE "+"SYSRES_CONST_OURFIRM_REF_CODE "+"SYSRES_CONST_OURFIRM_REQUISITE_CODE "+"SYSRES_CONST_OURFIRM_VAR "+"SYSRES_CONST_OUTGOING_WORK_RULE_TYPE_CODE "+"SYSRES_CONST_PICK_NEGATIVE_RESULT "+"SYSRES_CONST_PICK_POSITIVE_RESULT "+"SYSRES_CONST_PICK_REQUISITE "+"SYSRES_CONST_PICK_REQUISITE_TYPE "+"SYSRES_CONST_PICK_TYPE_CHAR "+"SYSRES_CONST_PLAN_STATUS_REQUISITE_CODE "+"SYSRES_CONST_PLATFORM_VERSION_COMMENT "+"SYSRES_CONST_PLUGINS_SETTINGS_DESCRIPTION_REQUISITE_CODE "+"SYSRES_CONST_POSITIVE_PICK_VALUE "+"SYSRES_CONST_POWER_TO_CREATE_ACTION_CODE "+"SYSRES_CONST_POWER_TO_SIGN_ACTION_CODE "+"SYSRES_CONST_PRIORITY_REQUISITE_CODE "+"SYSRES_CONST_QUALIFIED_TASK_TYPE "+"SYSRES_CONST_QUALIFIED_TASK_TYPE_CODE "+"SYSRES_CONST_RECSTAT_REQUISITE_CODE "+"SYSRES_CONST_RED_LIFE_CYCLE_STAGE_FONT_COLOR "+"SYSRES_CONST_REF_ID_T_REF_TYPE_REQUISITE_CODE "+"SYSRES_CONST_REF_REQUISITE "+"SYSRES_CONST_REF_REQUISITE_TYPE "+"SYSRES_CONST_REF_REQUISITES_REFERENCE_CODE_SELECTED_REQUISITE "+"SYSRES_CONST_REFERENCE_RECORD_HISTORY_CREATE_ACTION_CODE "+"SYSRES_CONST_REFERENCE_RECORD_HISTORY_DELETE_ACTION_CODE "+"SYSRES_CONST_REFERENCE_RECORD_HISTORY_MODIFY_ACTION_CODE "+"SYSRES_CONST_REFERENCE_TYPE_CHAR "+"SYSRES_CONST_REFERENCE_TYPE_REQUISITE_NAME "+"SYSRES_CONST_REFERENCES_ADD_PARAMS_REQUISITE_CODE "+"SYSRES_CONST_REFERENCES_DISPLAY_REQUISITE_REQUISITE_CODE "+"SYSRES_CONST_REMOTE_SERVER_STATUS_WORKING "+"SYSRES_CONST_REMOTE_SERVER_TYPE_MAIN "+"SYSRES_CONST_REMOTE_SERVER_TYPE_SECONDARY "+"SYSRES_CONST_REMOTE_USER_FLAG_VALUE_CODE "+"SYSRES_CONST_REPORT_APP_EDITOR_INTERNAL "+"SYSRES_CONST_REPORT_BASE_REPORT_ID_REQUISITE_CODE "+"SYSRES_CONST_REPORT_BASE_REPORT_REQUISITE_CODE "+"SYSRES_CONST_REPORT_SCRIPT_REQUISITE_CODE "+"SYSRES_CONST_REPORT_TEMPLATE_REQUISITE_CODE "+"SYSRES_CONST_REPORT_VIEWER_CODE_REQUISITE_CODE "+"SYSRES_CONST_REQ_ALLOW_COMPONENT_DEFAULT_VALUE "+"SYSRES_CONST_REQ_ALLOW_RECORD_DEFAULT_VALUE "+"SYSRES_CONST_REQ_ALLOW_SERVER_COMPONENT_DEFAULT_VALUE "+"SYSRES_CONST_REQ_MODE_AVAILABLE_CODE "+"SYSRES_CONST_REQ_MODE_EDIT_CODE "+"SYSRES_CONST_REQ_MODE_HIDDEN_CODE "+"SYSRES_CONST_REQ_MODE_NOT_AVAILABLE_CODE "+"SYSRES_CONST_REQ_MODE_VIEW_CODE "+"SYSRES_CONST_REQ_NUMBER_REQUISITE_CODE "+"SYSRES_CONST_REQ_SECTION_VALUE "+"SYSRES_CONST_REQ_TYPE_VALUE "+"SYSRES_CONST_REQUISITE_FORMAT_BY_UNIT "+"SYSRES_CONST_REQUISITE_FORMAT_DATE_FULL "+"SYSRES_CONST_REQUISITE_FORMAT_DATE_TIME "+"SYSRES_CONST_REQUISITE_FORMAT_LEFT "+"SYSRES_CONST_REQUISITE_FORMAT_RIGHT "+"SYSRES_CONST_REQUISITE_FORMAT_WITHOUT_UNIT "+"SYSRES_CONST_REQUISITE_NUMBER_REQUISITE_CODE "+"SYSRES_CONST_REQUISITE_SECTION_ACTIONS "+"SYSRES_CONST_REQUISITE_SECTION_BUTTON "+"SYSRES_CONST_REQUISITE_SECTION_BUTTONS "+"SYSRES_CONST_REQUISITE_SECTION_CARD "+"SYSRES_CONST_REQUISITE_SECTION_TABLE "+"SYSRES_CONST_REQUISITE_SECTION_TABLE10 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE11 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE12 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE13 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE14 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE15 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE16 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE17 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE18 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE19 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE2 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE20 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE21 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE22 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE23 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE24 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE3 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE4 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE5 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE6 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE7 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE8 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE9 "+"SYSRES_CONST_REQUISITES_PSEUDOREFERENCE_REQUISITE_NUMBER_REQUISITE_CODE "+"SYSRES_CONST_RIGHT_ALIGNMENT_CODE "+"SYSRES_CONST_ROLES_REFERENCE_CODE "+"SYSRES_CONST_ROUTE_STEP_AFTER_RUS "+"SYSRES_CONST_ROUTE_STEP_AND_CONDITION_RUS "+"SYSRES_CONST_ROUTE_STEP_OR_CONDITION_RUS "+"SYSRES_CONST_ROUTE_TYPE_COMPLEX "+"SYSRES_CONST_ROUTE_TYPE_PARALLEL "+"SYSRES_CONST_ROUTE_TYPE_SERIAL "+"SYSRES_CONST_SBDATASETDESC_NEGATIVE_VALUE "+"SYSRES_CONST_SBDATASETDESC_POSITIVE_VALUE "+"SYSRES_CONST_SBVIEWSDESC_POSITIVE_VALUE "+"SYSRES_CONST_SCRIPT_BLOCK_DESCRIPTION "+"SYSRES_CONST_SEARCH_BY_TEXT_REQUISITE_CODE "+"SYSRES_CONST_SEARCHES_COMPONENT_CONTENT "+"SYSRES_CONST_SEARCHES_CRITERIA_ACTION_NAME "+"SYSRES_CONST_SEARCHES_EDOC_CONTENT "+"SYSRES_CONST_SEARCHES_FOLDER_CONTENT "+"SYSRES_CONST_SEARCHES_JOB_CONTENT "+"SYSRES_CONST_SEARCHES_REFERENCE_CODE "+"SYSRES_CONST_SEARCHES_TASK_CONTENT "+"SYSRES_CONST_SECOND_CHAR "+"SYSRES_CONST_SECTION_REQUISITE_ACTIONS_VALUE "+"SYSRES_CONST_SECTION_REQUISITE_CARD_VALUE "+"SYSRES_CONST_SECTION_REQUISITE_CODE "+"SYSRES_CONST_SECTION_REQUISITE_DETAIL_1_VALUE "+"SYSRES_CONST_SECTION_REQUISITE_DETAIL_2_VALUE "+"SYSRES_CONST_SECTION_REQUISITE_DETAIL_3_VALUE "+"SYSRES_CONST_SECTION_REQUISITE_DETAIL_4_VALUE "+"SYSRES_CONST_SECTION_REQUISITE_DETAIL_5_VALUE "+"SYSRES_CONST_SECTION_REQUISITE_DETAIL_6_VALUE "+"SYSRES_CONST_SELECT_REFERENCE_MODE_NAME "+"SYSRES_CONST_SELECT_TYPE_SELECTABLE "+"SYSRES_CONST_SELECT_TYPE_SELECTABLE_ONLY_CHILD "+"SYSRES_CONST_SELECT_TYPE_SELECTABLE_WITH_CHILD "+"SYSRES_CONST_SELECT_TYPE_UNSLECTABLE "+"SYSRES_CONST_SERVER_TYPE_MAIN "+"SYSRES_CONST_SERVICE_USER_CATEGORY_FIELD_VALUE "+"SYSRES_CONST_SETTINGS_USER_REQUISITE_CODE "+"SYSRES_CONST_SIGNATURE_AND_ENCODE_CERTIFICATE_TYPE_CODE "+"SYSRES_CONST_SIGNATURE_CERTIFICATE_TYPE_CODE "+"SYSRES_CONST_SINGULAR_TITLE_REQUISITE_CODE "+"SYSRES_CONST_SQL_SERVER_AUTHENTIFICATION_FLAG_VALUE_CODE "+"SYSRES_CONST_SQL_SERVER_ENCODE_AUTHENTIFICATION_FLAG_VALUE_CODE "+"SYSRES_CONST_STANDART_ROUTE_REFERENCE_CODE "+"SYSRES_CONST_STANDART_ROUTE_REFERENCE_COMMENT_REQUISITE_CODE "+"SYSRES_CONST_STANDART_ROUTES_GROUPS_REFERENCE_CODE "+"SYSRES_CONST_STATE_REQ_NAME "+"SYSRES_CONST_STATE_REQUISITE_ACTIVE_VALUE "+"SYSRES_CONST_STATE_REQUISITE_CLOSED_VALUE "+"SYSRES_CONST_STATE_REQUISITE_CODE "+"SYSRES_CONST_STATIC_ROLE_TYPE_CODE "+"SYSRES_CONST_STATUS_PLAN_DEFAULT_VALUE "+"SYSRES_CONST_STATUS_VALUE_AUTOCLEANING "+"SYSRES_CONST_STATUS_VALUE_BLUE_SQUARE "+"SYSRES_CONST_STATUS_VALUE_COMPLETE "+"SYSRES_CONST_STATUS_VALUE_GREEN_SQUARE "+"SYSRES_CONST_STATUS_VALUE_ORANGE_SQUARE "+"SYSRES_CONST_STATUS_VALUE_PURPLE_SQUARE "+"SYSRES_CONST_STATUS_VALUE_RED_SQUARE "+"SYSRES_CONST_STATUS_VALUE_SUSPEND "+"SYSRES_CONST_STATUS_VALUE_YELLOW_SQUARE "+"SYSRES_CONST_STDROUTE_SHOW_TO_USERS_REQUISITE_CODE "+"SYSRES_CONST_STORAGE_TYPE_FILE "+"SYSRES_CONST_STORAGE_TYPE_SQL_SERVER "+"SYSRES_CONST_STR_REQUISITE "+"SYSRES_CONST_STRIKEOUT_LIFE_CYCLE_STAGE_DRAW_STYLE "+"SYSRES_CONST_STRING_FORMAT_LEFT_ALIGN_CHAR "+"SYSRES_CONST_STRING_FORMAT_RIGHT_ALIGN_CHAR "+"SYSRES_CONST_STRING_REQUISITE_CODE "+"SYSRES_CONST_STRING_REQUISITE_TYPE "+"SYSRES_CONST_STRING_TYPE_CHAR "+"SYSRES_CONST_SUBSTITUTES_PSEUDOREFERENCE_CODE "+"SYSRES_CONST_SUBTASK_BLOCK_DESCRIPTION "+"SYSRES_CONST_SYSTEM_SETTING_CURRENT_USER_PARAM_VALUE "+"SYSRES_CONST_SYSTEM_SETTING_EMPTY_VALUE_PARAM_VALUE "+"SYSRES_CONST_SYSTEM_VERSION_COMMENT "+"SYSRES_CONST_TASK_ACCESS_TYPE_ALL "+"SYSRES_CONST_TASK_ACCESS_TYPE_ALL_MEMBERS "+"SYSRES_CONST_TASK_ACCESS_TYPE_MANUAL "+"SYSRES_CONST_TASK_ENCODE_TYPE_CERTIFICATION "+"SYSRES_CONST_TASK_ENCODE_TYPE_CERTIFICATION_AND_PASSWORD "+"SYSRES_CONST_TASK_ENCODE_TYPE_NONE "+"SYSRES_CONST_TASK_ENCODE_TYPE_PASSWORD "+"SYSRES_CONST_TASK_ROUTE_ALL_CONDITION "+"SYSRES_CONST_TASK_ROUTE_AND_CONDITION "+"SYSRES_CONST_TASK_ROUTE_OR_CONDITION "+"SYSRES_CONST_TASK_STATE_ABORTED "+"SYSRES_CONST_TASK_STATE_COMPLETE "+"SYSRES_CONST_TASK_STATE_CONTINUED "+"SYSRES_CONST_TASK_STATE_CONTROL "+"SYSRES_CONST_TASK_STATE_INIT "+"SYSRES_CONST_TASK_STATE_WORKING "+"SYSRES_CONST_TASK_TITLE "+"SYSRES_CONST_TASK_TYPES_GROUPS_REFERENCE_CODE "+"SYSRES_CONST_TASK_TYPES_REFERENCE_CODE "+"SYSRES_CONST_TEMPLATES_REFERENCE_CODE "+"SYSRES_CONST_TEST_DATE_REQUISITE_NAME "+"SYSRES_CONST_TEST_DEV_DATABASE_NAME "+"SYSRES_CONST_TEST_DEV_SYSTEM_CODE "+"SYSRES_CONST_TEST_EDMS_DATABASE_NAME "+"SYSRES_CONST_TEST_EDMS_MAIN_CODE "+"SYSRES_CONST_TEST_EDMS_MAIN_DB_NAME "+"SYSRES_CONST_TEST_EDMS_SECOND_CODE "+"SYSRES_CONST_TEST_EDMS_SECOND_DB_NAME "+"SYSRES_CONST_TEST_EDMS_SYSTEM_CODE "+"SYSRES_CONST_TEST_NUMERIC_REQUISITE_NAME "+"SYSRES_CONST_TEXT_REQUISITE "+"SYSRES_CONST_TEXT_REQUISITE_CODE "+"SYSRES_CONST_TEXT_REQUISITE_TYPE "+"SYSRES_CONST_TEXT_TYPE_CHAR "+"SYSRES_CONST_TYPE_CODE_REQUISITE_CODE "+"SYSRES_CONST_TYPE_REQUISITE_CODE "+"SYSRES_CONST_UNDEFINED_LIFE_CYCLE_STAGE_FONT_COLOR "+"SYSRES_CONST_UNITS_SECTION_ID_REQUISITE_CODE "+"SYSRES_CONST_UNITS_SECTION_REQUISITE_CODE "+"SYSRES_CONST_UNOPERATING_RECORD_FLAG_VALUE_CODE "+"SYSRES_CONST_UNSTORED_DATA_REQUISITE_CODE "+"SYSRES_CONST_UNSTORED_DATA_REQUISITE_NAME "+"SYSRES_CONST_USE_ACCESS_TYPE_CODE "+"SYSRES_CONST_USE_ACCESS_TYPE_NAME "+"SYSRES_CONST_USER_ACCOUNT_TYPE_VALUE_CODE "+"SYSRES_CONST_USER_ADDITIONAL_INFORMATION_REQUISITE_CODE "+"SYSRES_CONST_USER_AND_GROUP_ID_FROM_PSEUDOREFERENCE_REQUISITE_CODE "+"SYSRES_CONST_USER_CATEGORY_NORMAL "+"SYSRES_CONST_USER_CERTIFICATE_REQUISITE_CODE "+"SYSRES_CONST_USER_CERTIFICATE_STATE_REQUISITE_CODE "+"SYSRES_CONST_USER_CERTIFICATE_SUBJECT_NAME_REQUISITE_CODE "+"SYSRES_CONST_USER_CERTIFICATE_THUMBPRINT_REQUISITE_CODE "+"SYSRES_CONST_USER_COMMON_CATEGORY "+"SYSRES_CONST_USER_COMMON_CATEGORY_CODE "+"SYSRES_CONST_USER_FULL_NAME_REQUISITE_CODE "+"SYSRES_CONST_USER_GROUP_TYPE_REQUISITE_CODE "+"SYSRES_CONST_USER_LOGIN_REQUISITE_CODE "+"SYSRES_CONST_USER_REMOTE_CONTROLLER_REQUISITE_CODE "+"SYSRES_CONST_USER_REMOTE_SYSTEM_REQUISITE_CODE "+"SYSRES_CONST_USER_RIGHTS_T_REQUISITE_CODE "+"SYSRES_CONST_USER_SERVER_NAME_REQUISITE_CODE "+"SYSRES_CONST_USER_SERVICE_CATEGORY "+"SYSRES_CONST_USER_SERVICE_CATEGORY_CODE "+"SYSRES_CONST_USER_STATUS_ADMINISTRATOR_CODE "+"SYSRES_CONST_USER_STATUS_ADMINISTRATOR_NAME "+"SYSRES_CONST_USER_STATUS_DEVELOPER_CODE "+"SYSRES_CONST_USER_STATUS_DEVELOPER_NAME "+"SYSRES_CONST_USER_STATUS_DISABLED_CODE "+"SYSRES_CONST_USER_STATUS_DISABLED_NAME "+"SYSRES_CONST_USER_STATUS_SYSTEM_DEVELOPER_CODE "+"SYSRES_CONST_USER_STATUS_USER_CODE "+"SYSRES_CONST_USER_STATUS_USER_NAME "+"SYSRES_CONST_USER_STATUS_USER_NAME_DEPRECATED "+"SYSRES_CONST_USER_TYPE_FIELD_VALUE_USER "+"SYSRES_CONST_USER_TYPE_REQUISITE_CODE "+"SYSRES_CONST_USERS_CONTROLLER_REQUISITE_CODE "+"SYSRES_CONST_USERS_IS_MAIN_SERVER_REQUISITE_CODE "+"SYSRES_CONST_USERS_REFERENCE_CODE "+"SYSRES_CONST_USERS_REGISTRATION_CERTIFICATES_ACTION_NAME "+"SYSRES_CONST_USERS_REQUISITE_CODE "+"SYSRES_CONST_USERS_SYSTEM_REQUISITE_CODE "+"SYSRES_CONST_USERS_USER_ACCESS_RIGHTS_TYPR_REQUISITE_CODE "+"SYSRES_CONST_USERS_USER_AUTHENTICATION_REQUISITE_CODE "+"SYSRES_CONST_USERS_USER_COMPONENT_REQUISITE_CODE "+"SYSRES_CONST_USERS_USER_GROUP_REQUISITE_CODE "+"SYSRES_CONST_USERS_VIEW_CERTIFICATES_ACTION_NAME "+"SYSRES_CONST_VIEW_DEFAULT_CODE "+"SYSRES_CONST_VIEW_DEFAULT_NAME "+"SYSRES_CONST_VIEWER_REQUISITE_CODE "+"SYSRES_CONST_WAITING_BLOCK_DESCRIPTION "+"SYSRES_CONST_WIZARD_FORM_LABEL_TEST_STRING "+"SYSRES_CONST_WIZARD_QUERY_PARAM_HEIGHT_ETALON_STRING "+"SYSRES_CONST_WIZARD_REFERENCE_COMMENT_REQUISITE_CODE "+"SYSRES_CONST_WORK_RULES_DESCRIPTION_REQUISITE_CODE "+"SYSRES_CONST_WORK_TIME_CALENDAR_REFERENCE_CODE "+"SYSRES_CONST_WORK_WORKFLOW_HARD_ROUTE_TYPE_VALUE "+"SYSRES_CONST_WORK_WORKFLOW_HARD_ROUTE_TYPE_VALUE_CODE "+"SYSRES_CONST_WORK_WORKFLOW_HARD_ROUTE_TYPE_VALUE_CODE_RUS "+"SYSRES_CONST_WORK_WORKFLOW_SOFT_ROUTE_TYPE_VALUE_CODE_RUS "+"SYSRES_CONST_WORKFLOW_ROUTE_TYPR_HARD "+"SYSRES_CONST_WORKFLOW_ROUTE_TYPR_SOFT "+"SYSRES_CONST_XML_ENCODING "+"SYSRES_CONST_XREC_STAT_REQUISITE_CODE "+"SYSRES_CONST_XRECID_FIELD_NAME "+"SYSRES_CONST_YES "+"SYSRES_CONST_YES_NO_2_REQUISITE_CODE "+"SYSRES_CONST_YES_NO_REQUISITE_CODE "+"SYSRES_CONST_YES_NO_T_REF_TYPE_REQUISITE_CODE "+"SYSRES_CONST_YES_PICK_VALUE "+"SYSRES_CONST_YES_VALUE ";var base_constants="CR FALSE nil NO_VALUE NULL TAB TRUE YES_VALUE ";var base_group_name_constants="ADMINISTRATORS_GROUP_NAME CUSTOMIZERS_GROUP_NAME DEVELOPERS_GROUP_NAME SERVICE_USERS_GROUP_NAME ";var decision_block_properties_constants="DECISION_BLOCK_FIRST_OPERAND_PROPERTY DECISION_BLOCK_NAME_PROPERTY DECISION_BLOCK_OPERATION_PROPERTY "+"DECISION_BLOCK_RESULT_TYPE_PROPERTY DECISION_BLOCK_SECOND_OPERAND_PROPERTY ";var file_extension_constants="ANY_FILE_EXTENTION COMPRESSED_DOCUMENT_EXTENSION EXTENDED_DOCUMENT_EXTENSION "+"SHORT_COMPRESSED_DOCUMENT_EXTENSION SHORT_EXTENDED_DOCUMENT_EXTENSION ";var job_block_properties_constants="JOB_BLOCK_ABORT_DEADLINE_PROPERTY "+"JOB_BLOCK_AFTER_FINISH_EVENT "+"JOB_BLOCK_AFTER_QUERY_PARAMETERS_EVENT "+"JOB_BLOCK_ATTACHMENT_PROPERTY "+"JOB_BLOCK_ATTACHMENTS_RIGHTS_GROUP_PROPERTY "+"JOB_BLOCK_ATTACHMENTS_RIGHTS_TYPE_PROPERTY "+"JOB_BLOCK_BEFORE_QUERY_PARAMETERS_EVENT "+"JOB_BLOCK_BEFORE_START_EVENT "+"JOB_BLOCK_CREATED_JOBS_PROPERTY "+"JOB_BLOCK_DEADLINE_PROPERTY "+"JOB_BLOCK_EXECUTION_RESULTS_PROPERTY "+"JOB_BLOCK_IS_PARALLEL_PROPERTY "+"JOB_BLOCK_IS_RELATIVE_ABORT_DEADLINE_PROPERTY "+"JOB_BLOCK_IS_RELATIVE_DEADLINE_PROPERTY "+"JOB_BLOCK_JOB_TEXT_PROPERTY "+"JOB_BLOCK_NAME_PROPERTY "+"JOB_BLOCK_NEED_SIGN_ON_PERFORM_PROPERTY "+"JOB_BLOCK_PERFORMER_PROPERTY "+"JOB_BLOCK_RELATIVE_ABORT_DEADLINE_TYPE_PROPERTY "+"JOB_BLOCK_RELATIVE_DEADLINE_TYPE_PROPERTY "+"JOB_BLOCK_SUBJECT_PROPERTY ";var language_code_constants="ENGLISH_LANGUAGE_CODE RUSSIAN_LANGUAGE_CODE ";var launching_external_applications_constants="smHidden smMaximized smMinimized smNormal wmNo wmYes ";var link_kind_constants="COMPONENT_TOKEN_LINK_KIND "+"DOCUMENT_LINK_KIND "+"EDOCUMENT_LINK_KIND "+"FOLDER_LINK_KIND "+"JOB_LINK_KIND "+"REFERENCE_LINK_KIND "+"TASK_LINK_KIND ";var lock_type_constants="COMPONENT_TOKEN_LOCK_TYPE EDOCUMENT_VERSION_LOCK_TYPE ";var monitor_block_properties_constants="MONITOR_BLOCK_AFTER_FINISH_EVENT "+"MONITOR_BLOCK_BEFORE_START_EVENT "+"MONITOR_BLOCK_DEADLINE_PROPERTY "+"MONITOR_BLOCK_INTERVAL_PROPERTY "+"MONITOR_BLOCK_INTERVAL_TYPE_PROPERTY "+"MONITOR_BLOCK_IS_RELATIVE_DEADLINE_PROPERTY "+"MONITOR_BLOCK_NAME_PROPERTY "+"MONITOR_BLOCK_RELATIVE_DEADLINE_TYPE_PROPERTY "+"MONITOR_BLOCK_SEARCH_SCRIPT_PROPERTY ";var notice_block_properties_constants="NOTICE_BLOCK_AFTER_FINISH_EVENT "+"NOTICE_BLOCK_ATTACHMENT_PROPERTY "+"NOTICE_BLOCK_ATTACHMENTS_RIGHTS_GROUP_PROPERTY "+"NOTICE_BLOCK_ATTACHMENTS_RIGHTS_TYPE_PROPERTY "+"NOTICE_BLOCK_BEFORE_START_EVENT "+"NOTICE_BLOCK_CREATED_NOTICES_PROPERTY "+"NOTICE_BLOCK_DEADLINE_PROPERTY "+"NOTICE_BLOCK_IS_RELATIVE_DEADLINE_PROPERTY "+"NOTICE_BLOCK_NAME_PROPERTY "+"NOTICE_BLOCK_NOTICE_TEXT_PROPERTY "+"NOTICE_BLOCK_PERFORMER_PROPERTY "+"NOTICE_BLOCK_RELATIVE_DEADLINE_TYPE_PROPERTY "+"NOTICE_BLOCK_SUBJECT_PROPERTY ";var object_events_constants="dseAfterCancel "+"dseAfterClose "+"dseAfterDelete "+"dseAfterDeleteOutOfTransaction "+"dseAfterInsert "+"dseAfterOpen "+"dseAfterScroll "+"dseAfterUpdate "+"dseAfterUpdateOutOfTransaction "+"dseBeforeCancel "+"dseBeforeClose "+"dseBeforeDelete "+"dseBeforeDetailUpdate "+"dseBeforeInsert "+"dseBeforeOpen "+"dseBeforeUpdate "+"dseOnAnyRequisiteChange "+"dseOnCloseRecord "+"dseOnDeleteError "+"dseOnOpenRecord "+"dseOnPrepareUpdate "+"dseOnUpdateError "+"dseOnUpdateRatifiedRecord "+"dseOnValidDelete "+"dseOnValidUpdate "+"reOnChange "+"reOnChangeValues "+"SELECTION_BEGIN_ROUTE_EVENT "+"SELECTION_END_ROUTE_EVENT ";var object_params_constants="CURRENT_PERIOD_IS_REQUIRED "+"PREVIOUS_CARD_TYPE_NAME "+"SHOW_RECORD_PROPERTIES_FORM ";var other_constants="ACCESS_RIGHTS_SETTING_DIALOG_CODE "+"ADMINISTRATOR_USER_CODE "+"ANALYTIC_REPORT_TYPE "+"asrtHideLocal "+"asrtHideRemote "+"CALCULATED_ROLE_TYPE_CODE "+"COMPONENTS_REFERENCE_DEVELOPER_VIEW_CODE "+"DCTS_TEST_PROTOCOLS_FOLDER_PATH "+"E_EDOC_VERSION_ALREADY_APPROVINGLY_SIGNED "+"E_EDOC_VERSION_ALREADY_APPROVINGLY_SIGNED_BY_USER "+"E_EDOC_VERSION_ALREDY_SIGNED "+"E_EDOC_VERSION_ALREDY_SIGNED_BY_USER "+"EDOC_TYPES_CODE_REQUISITE_FIELD_NAME "+"EDOCUMENTS_ALIAS_NAME "+"FILES_FOLDER_PATH "+"FILTER_OPERANDS_DELIMITER "+"FILTER_OPERATIONS_DELIMITER "+"FORMCARD_NAME "+"FORMLIST_NAME "+"GET_EXTENDED_DOCUMENT_EXTENSION_CREATION_MODE "+"GET_EXTENDED_DOCUMENT_EXTENSION_IMPORT_MODE "+"INTEGRATED_REPORT_TYPE "+"IS_BUILDER_APPLICATION_ROLE "+"IS_BUILDER_APPLICATION_ROLE2 "+"IS_BUILDER_USERS "+"ISBSYSDEV "+"LOG_FOLDER_PATH "+"mbCancel "+"mbNo "+"mbNoToAll "+"mbOK "+"mbYes "+"mbYesToAll "+"MEMORY_DATASET_DESRIPTIONS_FILENAME "+"mrNo "+"mrNoToAll "+"mrYes "+"mrYesToAll "+"MULTIPLE_SELECT_DIALOG_CODE "+"NONOPERATING_RECORD_FLAG_FEMININE "+"NONOPERATING_RECORD_FLAG_MASCULINE "+"OPERATING_RECORD_FLAG_FEMININE "+"OPERATING_RECORD_FLAG_MASCULINE "+"PROFILING_SETTINGS_COMMON_SETTINGS_CODE_VALUE "+"PROGRAM_INITIATED_LOOKUP_ACTION "+"ratDelete "+"ratEdit "+"ratInsert "+"REPORT_TYPE "+"REQUIRED_PICK_VALUES_VARIABLE "+"rmCard "+"rmList "+"SBRTE_PROGID_DEV "+"SBRTE_PROGID_RELEASE "+"STATIC_ROLE_TYPE_CODE "+"SUPPRESS_EMPTY_TEMPLATE_CREATION "+"SYSTEM_USER_CODE "+"UPDATE_DIALOG_DATASET "+"USED_IN_OBJECT_HINT_PARAM "+"USER_INITIATED_LOOKUP_ACTION "+"USER_NAME_FORMAT "+"USER_SELECTION_RESTRICTIONS "+"WORKFLOW_TEST_PROTOCOLS_FOLDER_PATH "+"ELS_SUBTYPE_CONTROL_NAME "+"ELS_FOLDER_KIND_CONTROL_NAME "+"REPEAT_PROCESS_CURRENT_OBJECT_EXCEPTION_NAME ";var privileges_constants="PRIVILEGE_COMPONENT_FULL_ACCESS "+"PRIVILEGE_DEVELOPMENT_EXPORT "+"PRIVILEGE_DEVELOPMENT_IMPORT "+"PRIVILEGE_DOCUMENT_DELETE "+"PRIVILEGE_ESD "+"PRIVILEGE_FOLDER_DELETE "+"PRIVILEGE_MANAGE_ACCESS_RIGHTS "+"PRIVILEGE_MANAGE_REPLICATION "+"PRIVILEGE_MANAGE_SESSION_SERVER "+"PRIVILEGE_OBJECT_FULL_ACCESS "+"PRIVILEGE_OBJECT_VIEW "+"PRIVILEGE_RESERVE_LICENSE "+"PRIVILEGE_SYSTEM_CUSTOMIZE "+"PRIVILEGE_SYSTEM_DEVELOP "+"PRIVILEGE_SYSTEM_INSTALL "+"PRIVILEGE_TASK_DELETE "+"PRIVILEGE_USER_PLUGIN_SETTINGS_CUSTOMIZE "+"PRIVILEGES_PSEUDOREFERENCE_CODE ";var pseudoreference_code_constants="ACCESS_TYPES_PSEUDOREFERENCE_CODE "+"ALL_AVAILABLE_COMPONENTS_PSEUDOREFERENCE_CODE "+"ALL_AVAILABLE_PRIVILEGES_PSEUDOREFERENCE_CODE "+"ALL_REPLICATE_COMPONENTS_PSEUDOREFERENCE_CODE "+"AVAILABLE_DEVELOPERS_COMPONENTS_PSEUDOREFERENCE_CODE "+"COMPONENTS_PSEUDOREFERENCE_CODE "+"FILTRATER_SETTINGS_CONFLICTS_PSEUDOREFERENCE_CODE "+"GROUPS_PSEUDOREFERENCE_CODE "+"RECEIVE_PROTOCOL_PSEUDOREFERENCE_CODE "+"REFERENCE_REQUISITE_PSEUDOREFERENCE_CODE "+"REFERENCE_REQUISITES_PSEUDOREFERENCE_CODE "+"REFTYPES_PSEUDOREFERENCE_CODE "+"REPLICATION_SEANCES_DIARY_PSEUDOREFERENCE_CODE "+"SEND_PROTOCOL_PSEUDOREFERENCE_CODE "+"SUBSTITUTES_PSEUDOREFERENCE_CODE "+"SYSTEM_SETTINGS_PSEUDOREFERENCE_CODE "+"UNITS_PSEUDOREFERENCE_CODE "+"USERS_PSEUDOREFERENCE_CODE "+"VIEWERS_PSEUDOREFERENCE_CODE ";var requisite_ISBCertificateType_values_constants="CERTIFICATE_TYPE_ENCRYPT "+"CERTIFICATE_TYPE_SIGN "+"CERTIFICATE_TYPE_SIGN_AND_ENCRYPT ";var requisite_ISBEDocStorageType_values_constants="STORAGE_TYPE_FILE "+"STORAGE_TYPE_NAS_CIFS "+"STORAGE_TYPE_SAPERION "+"STORAGE_TYPE_SQL_SERVER ";var requisite_compType2_values_constants="COMPTYPE2_REQUISITE_DOCUMENTS_VALUE "+"COMPTYPE2_REQUISITE_TASKS_VALUE "+"COMPTYPE2_REQUISITE_FOLDERS_VALUE "+"COMPTYPE2_REQUISITE_REFERENCES_VALUE ";var requisite_name_constants="SYSREQ_CODE "+"SYSREQ_COMPTYPE2 "+"SYSREQ_CONST_AVAILABLE_FOR_WEB "+"SYSREQ_CONST_COMMON_CODE "+"SYSREQ_CONST_COMMON_VALUE "+"SYSREQ_CONST_FIRM_CODE "+"SYSREQ_CONST_FIRM_STATUS "+"SYSREQ_CONST_FIRM_VALUE "+"SYSREQ_CONST_SERVER_STATUS "+"SYSREQ_CONTENTS "+"SYSREQ_DATE_OPEN "+"SYSREQ_DATE_CLOSE "+"SYSREQ_DESCRIPTION "+"SYSREQ_DESCRIPTION_LOCALIZE_ID "+"SYSREQ_DOUBLE "+"SYSREQ_EDOC_ACCESS_TYPE "+"SYSREQ_EDOC_AUTHOR "+"SYSREQ_EDOC_CREATED "+"SYSREQ_EDOC_DELEGATE_RIGHTS_REQUISITE_CODE "+"SYSREQ_EDOC_EDITOR "+"SYSREQ_EDOC_ENCODE_TYPE "+"SYSREQ_EDOC_ENCRYPTION_PLUGIN_NAME "+"SYSREQ_EDOC_ENCRYPTION_PLUGIN_VERSION "+"SYSREQ_EDOC_EXPORT_DATE "+"SYSREQ_EDOC_EXPORTER "+"SYSREQ_EDOC_KIND "+"SYSREQ_EDOC_LIFE_STAGE_NAME "+"SYSREQ_EDOC_LOCKED_FOR_SERVER_CODE "+"SYSREQ_EDOC_MODIFIED "+"SYSREQ_EDOC_NAME "+"SYSREQ_EDOC_NOTE "+"SYSREQ_EDOC_QUALIFIED_ID "+"SYSREQ_EDOC_SESSION_KEY "+"SYSREQ_EDOC_SESSION_KEY_ENCRYPTION_PLUGIN_NAME "+"SYSREQ_EDOC_SESSION_KEY_ENCRYPTION_PLUGIN_VERSION "+"SYSREQ_EDOC_SIGNATURE_TYPE "+"SYSREQ_EDOC_SIGNED "+"SYSREQ_EDOC_STORAGE "+"SYSREQ_EDOC_STORAGES_ARCHIVE_STORAGE "+"SYSREQ_EDOC_STORAGES_CHECK_RIGHTS "+"SYSREQ_EDOC_STORAGES_COMPUTER_NAME "+"SYSREQ_EDOC_STORAGES_EDIT_IN_STORAGE "+"SYSREQ_EDOC_STORAGES_EXECUTIVE_STORAGE "+"SYSREQ_EDOC_STORAGES_FUNCTION "+"SYSREQ_EDOC_STORAGES_INITIALIZED "+"SYSREQ_EDOC_STORAGES_LOCAL_PATH "+"SYSREQ_EDOC_STORAGES_SAPERION_DATABASE_NAME "+"SYSREQ_EDOC_STORAGES_SEARCH_BY_TEXT "+"SYSREQ_EDOC_STORAGES_SERVER_NAME "+"SYSREQ_EDOC_STORAGES_SHARED_SOURCE_NAME "+"SYSREQ_EDOC_STORAGES_TYPE "+"SYSREQ_EDOC_TEXT_MODIFIED "+"SYSREQ_EDOC_TYPE_ACT_CODE "+"SYSREQ_EDOC_TYPE_ACT_DESCRIPTION "+"SYSREQ_EDOC_TYPE_ACT_DESCRIPTION_LOCALIZE_ID "+"SYSREQ_EDOC_TYPE_ACT_ON_EXECUTE "+"SYSREQ_EDOC_TYPE_ACT_ON_EXECUTE_EXISTS "+"SYSREQ_EDOC_TYPE_ACT_SECTION "+"SYSREQ_EDOC_TYPE_ADD_PARAMS "+"SYSREQ_EDOC_TYPE_COMMENT "+"SYSREQ_EDOC_TYPE_EVENT_TEXT "+"SYSREQ_EDOC_TYPE_NAME_IN_SINGULAR "+"SYSREQ_EDOC_TYPE_NAME_IN_SINGULAR_LOCALIZE_ID "+"SYSREQ_EDOC_TYPE_NAME_LOCALIZE_ID "+"SYSREQ_EDOC_TYPE_NUMERATION_METHOD "+"SYSREQ_EDOC_TYPE_PSEUDO_REQUISITE_CODE "+"SYSREQ_EDOC_TYPE_REQ_CODE "+"SYSREQ_EDOC_TYPE_REQ_DESCRIPTION "+"SYSREQ_EDOC_TYPE_REQ_DESCRIPTION_LOCALIZE_ID "+"SYSREQ_EDOC_TYPE_REQ_IS_LEADING "+"SYSREQ_EDOC_TYPE_REQ_IS_REQUIRED "+"SYSREQ_EDOC_TYPE_REQ_NUMBER "+"SYSREQ_EDOC_TYPE_REQ_ON_CHANGE "+"SYSREQ_EDOC_TYPE_REQ_ON_CHANGE_EXISTS "+"SYSREQ_EDOC_TYPE_REQ_ON_SELECT "+"SYSREQ_EDOC_TYPE_REQ_ON_SELECT_KIND "+"SYSREQ_EDOC_TYPE_REQ_SECTION "+"SYSREQ_EDOC_TYPE_VIEW_CARD "+"SYSREQ_EDOC_TYPE_VIEW_CODE "+"SYSREQ_EDOC_TYPE_VIEW_COMMENT "+"SYSREQ_EDOC_TYPE_VIEW_IS_MAIN "+"SYSREQ_EDOC_TYPE_VIEW_NAME "+"SYSREQ_EDOC_TYPE_VIEW_NAME_LOCALIZE_ID "+"SYSREQ_EDOC_VERSION_AUTHOR "+"SYSREQ_EDOC_VERSION_CRC "+"SYSREQ_EDOC_VERSION_DATA "+"SYSREQ_EDOC_VERSION_EDITOR "+"SYSREQ_EDOC_VERSION_EXPORT_DATE "+"SYSREQ_EDOC_VERSION_EXPORTER "+"SYSREQ_EDOC_VERSION_HIDDEN "+"SYSREQ_EDOC_VERSION_LIFE_STAGE "+"SYSREQ_EDOC_VERSION_MODIFIED "+"SYSREQ_EDOC_VERSION_NOTE "+"SYSREQ_EDOC_VERSION_SIGNATURE_TYPE "+"SYSREQ_EDOC_VERSION_SIGNED "+"SYSREQ_EDOC_VERSION_SIZE "+"SYSREQ_EDOC_VERSION_SOURCE "+"SYSREQ_EDOC_VERSION_TEXT_MODIFIED "+"SYSREQ_EDOCKIND_DEFAULT_VERSION_STATE_CODE "+"SYSREQ_FOLDER_KIND "+"SYSREQ_FUNC_CATEGORY "+"SYSREQ_FUNC_COMMENT "+"SYSREQ_FUNC_GROUP "+"SYSREQ_FUNC_GROUP_COMMENT "+"SYSREQ_FUNC_GROUP_NUMBER "+"SYSREQ_FUNC_HELP "+"SYSREQ_FUNC_PARAM_DEF_VALUE "+"SYSREQ_FUNC_PARAM_IDENT "+"SYSREQ_FUNC_PARAM_NUMBER "+"SYSREQ_FUNC_PARAM_TYPE "+"SYSREQ_FUNC_TEXT "+"SYSREQ_GROUP_CATEGORY "+"SYSREQ_ID "+"SYSREQ_LAST_UPDATE "+"SYSREQ_LEADER_REFERENCE "+"SYSREQ_LINE_NUMBER "+"SYSREQ_MAIN_RECORD_ID "+"SYSREQ_NAME "+"SYSREQ_NAME_LOCALIZE_ID "+"SYSREQ_NOTE "+"SYSREQ_ORIGINAL_RECORD "+"SYSREQ_OUR_FIRM "+"SYSREQ_PROFILING_SETTINGS_BATCH_LOGING "+"SYSREQ_PROFILING_SETTINGS_BATCH_SIZE "+"SYSREQ_PROFILING_SETTINGS_PROFILING_ENABLED "+"SYSREQ_PROFILING_SETTINGS_SQL_PROFILING_ENABLED "+"SYSREQ_PROFILING_SETTINGS_START_LOGGED "+"SYSREQ_RECORD_STATUS "+"SYSREQ_REF_REQ_FIELD_NAME "+"SYSREQ_REF_REQ_FORMAT "+"SYSREQ_REF_REQ_GENERATED "+"SYSREQ_REF_REQ_LENGTH "+"SYSREQ_REF_REQ_PRECISION "+"SYSREQ_REF_REQ_REFERENCE "+"SYSREQ_REF_REQ_SECTION "+"SYSREQ_REF_REQ_STORED "+"SYSREQ_REF_REQ_TOKENS "+"SYSREQ_REF_REQ_TYPE "+"SYSREQ_REF_REQ_VIEW "+"SYSREQ_REF_TYPE_ACT_CODE "+"SYSREQ_REF_TYPE_ACT_DESCRIPTION "+"SYSREQ_REF_TYPE_ACT_DESCRIPTION_LOCALIZE_ID "+"SYSREQ_REF_TYPE_ACT_ON_EXECUTE "+"SYSREQ_REF_TYPE_ACT_ON_EXECUTE_EXISTS "+"SYSREQ_REF_TYPE_ACT_SECTION "+"SYSREQ_REF_TYPE_ADD_PARAMS "+"SYSREQ_REF_TYPE_COMMENT "+"SYSREQ_REF_TYPE_COMMON_SETTINGS "+"SYSREQ_REF_TYPE_DISPLAY_REQUISITE_NAME "+"SYSREQ_REF_TYPE_EVENT_TEXT "+"SYSREQ_REF_TYPE_MAIN_LEADING_REF "+"SYSREQ_REF_TYPE_NAME_IN_SINGULAR "+"SYSREQ_REF_TYPE_NAME_IN_SINGULAR_LOCALIZE_ID "+"SYSREQ_REF_TYPE_NAME_LOCALIZE_ID "+"SYSREQ_REF_TYPE_NUMERATION_METHOD "+"SYSREQ_REF_TYPE_REQ_CODE "+"SYSREQ_REF_TYPE_REQ_DESCRIPTION "+"SYSREQ_REF_TYPE_REQ_DESCRIPTION_LOCALIZE_ID "+"SYSREQ_REF_TYPE_REQ_IS_CONTROL "+"SYSREQ_REF_TYPE_REQ_IS_FILTER "+"SYSREQ_REF_TYPE_REQ_IS_LEADING "+"SYSREQ_REF_TYPE_REQ_IS_REQUIRED "+"SYSREQ_REF_TYPE_REQ_NUMBER "+"SYSREQ_REF_TYPE_REQ_ON_CHANGE "+"SYSREQ_REF_TYPE_REQ_ON_CHANGE_EXISTS "+"SYSREQ_REF_TYPE_REQ_ON_SELECT "+"SYSREQ_REF_TYPE_REQ_ON_SELECT_KIND "+"SYSREQ_REF_TYPE_REQ_SECTION "+"SYSREQ_REF_TYPE_VIEW_CARD "+"SYSREQ_REF_TYPE_VIEW_CODE "+"SYSREQ_REF_TYPE_VIEW_COMMENT "+"SYSREQ_REF_TYPE_VIEW_IS_MAIN "+"SYSREQ_REF_TYPE_VIEW_NAME "+"SYSREQ_REF_TYPE_VIEW_NAME_LOCALIZE_ID "+"SYSREQ_REFERENCE_TYPE_ID "+"SYSREQ_STATE "+"SYSREQ_STATЕ "+"SYSREQ_SYSTEM_SETTINGS_VALUE "+"SYSREQ_TYPE "+"SYSREQ_UNIT "+"SYSREQ_UNIT_ID "+"SYSREQ_USER_GROUPS_GROUP_FULL_NAME "+"SYSREQ_USER_GROUPS_GROUP_NAME "+"SYSREQ_USER_GROUPS_GROUP_SERVER_NAME "+"SYSREQ_USERS_ACCESS_RIGHTS "+"SYSREQ_USERS_AUTHENTICATION "+"SYSREQ_USERS_CATEGORY "+"SYSREQ_USERS_COMPONENT "+"SYSREQ_USERS_COMPONENT_USER_IS_PUBLIC "+"SYSREQ_USERS_DOMAIN "+"SYSREQ_USERS_FULL_USER_NAME "+"SYSREQ_USERS_GROUP "+"SYSREQ_USERS_IS_MAIN_SERVER "+"SYSREQ_USERS_LOGIN "+"SYSREQ_USERS_REFERENCE_USER_IS_PUBLIC "+"SYSREQ_USERS_STATUS "+"SYSREQ_USERS_USER_CERTIFICATE "+"SYSREQ_USERS_USER_CERTIFICATE_INFO "+"SYSREQ_USERS_USER_CERTIFICATE_PLUGIN_NAME "+"SYSREQ_USERS_USER_CERTIFICATE_PLUGIN_VERSION "+"SYSREQ_USERS_USER_CERTIFICATE_STATE "+"SYSREQ_USERS_USER_CERTIFICATE_SUBJECT_NAME "+"SYSREQ_USERS_USER_CERTIFICATE_THUMBPRINT "+"SYSREQ_USERS_USER_DEFAULT_CERTIFICATE "+"SYSREQ_USERS_USER_DESCRIPTION "+"SYSREQ_USERS_USER_GLOBAL_NAME "+"SYSREQ_USERS_USER_LOGIN "+"SYSREQ_USERS_USER_MAIN_SERVER "+"SYSREQ_USERS_USER_TYPE "+"SYSREQ_WORK_RULES_FOLDER_ID ";var result_constants="RESULT_VAR_NAME RESULT_VAR_NAME_ENG ";var rule_identification_constants="AUTO_NUMERATION_RULE_ID "+"CANT_CHANGE_ID_REQUISITE_RULE_ID "+"CANT_CHANGE_OURFIRM_REQUISITE_RULE_ID "+"CHECK_CHANGING_REFERENCE_RECORD_USE_RULE_ID "+"CHECK_CODE_REQUISITE_RULE_ID "+"CHECK_DELETING_REFERENCE_RECORD_USE_RULE_ID "+"CHECK_FILTRATER_CHANGES_RULE_ID "+"CHECK_RECORD_INTERVAL_RULE_ID "+"CHECK_REFERENCE_INTERVAL_RULE_ID "+"CHECK_REQUIRED_DATA_FULLNESS_RULE_ID "+"CHECK_REQUIRED_REQUISITES_FULLNESS_RULE_ID "+"MAKE_RECORD_UNRATIFIED_RULE_ID "+"RESTORE_AUTO_NUMERATION_RULE_ID "+"SET_FIRM_CONTEXT_FROM_RECORD_RULE_ID "+"SET_FIRST_RECORD_IN_LIST_FORM_RULE_ID "+"SET_IDSPS_VALUE_RULE_ID "+"SET_NEXT_CODE_VALUE_RULE_ID "+"SET_OURFIRM_BOUNDS_RULE_ID "+"SET_OURFIRM_REQUISITE_RULE_ID ";var script_block_properties_constants="SCRIPT_BLOCK_AFTER_FINISH_EVENT "+"SCRIPT_BLOCK_BEFORE_START_EVENT "+"SCRIPT_BLOCK_EXECUTION_RESULTS_PROPERTY "+"SCRIPT_BLOCK_NAME_PROPERTY "+"SCRIPT_BLOCK_SCRIPT_PROPERTY ";var subtask_block_properties_constants="SUBTASK_BLOCK_ABORT_DEADLINE_PROPERTY "+"SUBTASK_BLOCK_AFTER_FINISH_EVENT "+"SUBTASK_BLOCK_ASSIGN_PARAMS_EVENT "+"SUBTASK_BLOCK_ATTACHMENTS_PROPERTY "+"SUBTASK_BLOCK_ATTACHMENTS_RIGHTS_GROUP_PROPERTY "+"SUBTASK_BLOCK_ATTACHMENTS_RIGHTS_TYPE_PROPERTY "+"SUBTASK_BLOCK_BEFORE_START_EVENT "+"SUBTASK_BLOCK_CREATED_TASK_PROPERTY "+"SUBTASK_BLOCK_CREATION_EVENT "+"SUBTASK_BLOCK_DEADLINE_PROPERTY "+"SUBTASK_BLOCK_IMPORTANCE_PROPERTY "+"SUBTASK_BLOCK_INITIATOR_PROPERTY "+"SUBTASK_BLOCK_IS_RELATIVE_ABORT_DEADLINE_PROPERTY "+"SUBTASK_BLOCK_IS_RELATIVE_DEADLINE_PROPERTY "+"SUBTASK_BLOCK_JOBS_TYPE_PROPERTY "+"SUBTASK_BLOCK_NAME_PROPERTY "+"SUBTASK_BLOCK_PARALLEL_ROUTE_PROPERTY "+"SUBTASK_BLOCK_PERFORMERS_PROPERTY "+"SUBTASK_BLOCK_RELATIVE_ABORT_DEADLINE_TYPE_PROPERTY "+"SUBTASK_BLOCK_RELATIVE_DEADLINE_TYPE_PROPERTY "+"SUBTASK_BLOCK_REQUIRE_SIGN_PROPERTY "+"SUBTASK_BLOCK_STANDARD_ROUTE_PROPERTY "+"SUBTASK_BLOCK_START_EVENT "+"SUBTASK_BLOCK_STEP_CONTROL_PROPERTY "+"SUBTASK_BLOCK_SUBJECT_PROPERTY "+"SUBTASK_BLOCK_TASK_CONTROL_PROPERTY "+"SUBTASK_BLOCK_TEXT_PROPERTY "+"SUBTASK_BLOCK_UNLOCK_ATTACHMENTS_ON_STOP_PROPERTY "+"SUBTASK_BLOCK_USE_STANDARD_ROUTE_PROPERTY "+"SUBTASK_BLOCK_WAIT_FOR_TASK_COMPLETE_PROPERTY ";var system_component_constants="SYSCOMP_CONTROL_JOBS "+"SYSCOMP_FOLDERS "+"SYSCOMP_JOBS "+"SYSCOMP_NOTICES "+"SYSCOMP_TASKS ";var system_dialogs_constants="SYSDLG_CREATE_EDOCUMENT "+"SYSDLG_CREATE_EDOCUMENT_VERSION "+"SYSDLG_CURRENT_PERIOD "+"SYSDLG_EDIT_FUNCTION_HELP "+"SYSDLG_EDOCUMENT_KINDS_FOR_TEMPLATE "+"SYSDLG_EXPORT_MULTIPLE_EDOCUMENTS "+"SYSDLG_EXPORT_SINGLE_EDOCUMENT "+"SYSDLG_IMPORT_EDOCUMENT "+"SYSDLG_MULTIPLE_SELECT "+"SYSDLG_SETUP_ACCESS_RIGHTS "+"SYSDLG_SETUP_DEFAULT_RIGHTS "+"SYSDLG_SETUP_FILTER_CONDITION "+"SYSDLG_SETUP_SIGN_RIGHTS "+"SYSDLG_SETUP_TASK_OBSERVERS "+"SYSDLG_SETUP_TASK_ROUTE "+"SYSDLG_SETUP_USERS_LIST "+"SYSDLG_SIGN_EDOCUMENT "+"SYSDLG_SIGN_MULTIPLE_EDOCUMENTS ";var system_reference_names_constants="SYSREF_ACCESS_RIGHTS_TYPES "+"SYSREF_ADMINISTRATION_HISTORY "+"SYSREF_ALL_AVAILABLE_COMPONENTS "+"SYSREF_ALL_AVAILABLE_PRIVILEGES "+"SYSREF_ALL_REPLICATING_COMPONENTS "+"SYSREF_AVAILABLE_DEVELOPERS_COMPONENTS "+"SYSREF_CALENDAR_EVENTS "+"SYSREF_COMPONENT_TOKEN_HISTORY "+"SYSREF_COMPONENT_TOKENS "+"SYSREF_COMPONENTS "+"SYSREF_CONSTANTS "+"SYSREF_DATA_RECEIVE_PROTOCOL "+"SYSREF_DATA_SEND_PROTOCOL "+"SYSREF_DIALOGS "+"SYSREF_DIALOGS_REQUISITES "+"SYSREF_EDITORS "+"SYSREF_EDOC_CARDS "+"SYSREF_EDOC_TYPES "+"SYSREF_EDOCUMENT_CARD_REQUISITES "+"SYSREF_EDOCUMENT_CARD_TYPES "+"SYSREF_EDOCUMENT_CARD_TYPES_REFERENCE "+"SYSREF_EDOCUMENT_CARDS "+"SYSREF_EDOCUMENT_HISTORY "+"SYSREF_EDOCUMENT_KINDS "+"SYSREF_EDOCUMENT_REQUISITES "+"SYSREF_EDOCUMENT_SIGNATURES "+"SYSREF_EDOCUMENT_TEMPLATES "+"SYSREF_EDOCUMENT_TEXT_STORAGES "+"SYSREF_EDOCUMENT_VIEWS "+"SYSREF_FILTERER_SETUP_CONFLICTS "+"SYSREF_FILTRATER_SETTING_CONFLICTS "+"SYSREF_FOLDER_HISTORY "+"SYSREF_FOLDERS "+"SYSREF_FUNCTION_GROUPS "+"SYSREF_FUNCTION_PARAMS "+"SYSREF_FUNCTIONS "+"SYSREF_JOB_HISTORY "+"SYSREF_LINKS "+"SYSREF_LOCALIZATION_DICTIONARY "+"SYSREF_LOCALIZATION_LANGUAGES "+"SYSREF_MODULES "+"SYSREF_PRIVILEGES "+"SYSREF_RECORD_HISTORY "+"SYSREF_REFERENCE_REQUISITES "+"SYSREF_REFERENCE_TYPE_VIEWS "+"SYSREF_REFERENCE_TYPES "+"SYSREF_REFERENCES "+"SYSREF_REFERENCES_REQUISITES "+"SYSREF_REMOTE_SERVERS "+"SYSREF_REPLICATION_SESSIONS_LOG "+"SYSREF_REPLICATION_SESSIONS_PROTOCOL "+"SYSREF_REPORTS "+"SYSREF_ROLES "+"SYSREF_ROUTE_BLOCK_GROUPS "+"SYSREF_ROUTE_BLOCKS "+"SYSREF_SCRIPTS "+"SYSREF_SEARCHES "+"SYSREF_SERVER_EVENTS "+"SYSREF_SERVER_EVENTS_HISTORY "+"SYSREF_STANDARD_ROUTE_GROUPS "+"SYSREF_STANDARD_ROUTES "+"SYSREF_STATUSES "+"SYSREF_SYSTEM_SETTINGS "+"SYSREF_TASK_HISTORY "+"SYSREF_TASK_KIND_GROUPS "+"SYSREF_TASK_KINDS "+"SYSREF_TASK_RIGHTS "+"SYSREF_TASK_SIGNATURES "+"SYSREF_TASKS "+"SYSREF_UNITS "+"SYSREF_USER_GROUPS "+"SYSREF_USER_GROUPS_REFERENCE "+"SYSREF_USER_SUBSTITUTION "+"SYSREF_USERS "+"SYSREF_USERS_REFERENCE "+"SYSREF_VIEWERS "+"SYSREF_WORKING_TIME_CALENDARS ";var table_name_constants="ACCESS_RIGHTS_TABLE_NAME "+"EDMS_ACCESS_TABLE_NAME "+"EDOC_TYPES_TABLE_NAME ";var test_constants="TEST_DEV_DB_NAME "+"TEST_DEV_SYSTEM_CODE "+"TEST_EDMS_DB_NAME "+"TEST_EDMS_MAIN_CODE "+"TEST_EDMS_MAIN_DB_NAME "+"TEST_EDMS_SECOND_CODE "+"TEST_EDMS_SECOND_DB_NAME "+"TEST_EDMS_SYSTEM_CODE "+"TEST_ISB5_MAIN_CODE "+"TEST_ISB5_SECOND_CODE "+"TEST_SQL_SERVER_2005_NAME "+"TEST_SQL_SERVER_NAME ";var using_the_dialog_windows_constants="ATTENTION_CAPTION "+"cbsCommandLinks "+"cbsDefault "+"CONFIRMATION_CAPTION "+"ERROR_CAPTION "+"INFORMATION_CAPTION "+"mrCancel "+"mrOk ";var using_the_document_constants="EDOC_VERSION_ACTIVE_STAGE_CODE "+"EDOC_VERSION_DESIGN_STAGE_CODE "+"EDOC_VERSION_OBSOLETE_STAGE_CODE ";var using_the_EA_and_encryption_constants="cpDataEnciphermentEnabled "+"cpDigitalSignatureEnabled "+"cpID "+"cpIssuer "+"cpPluginVersion "+"cpSerial "+"cpSubjectName "+"cpSubjSimpleName "+"cpValidFromDate "+"cpValidToDate ";var using_the_ISBL_editor_constants="ISBL_SYNTAX "+"NO_SYNTAX "+"XML_SYNTAX ";var wait_block_properties_constants="WAIT_BLOCK_AFTER_FINISH_EVENT "+"WAIT_BLOCK_BEFORE_START_EVENT "+"WAIT_BLOCK_DEADLINE_PROPERTY "+"WAIT_BLOCK_IS_RELATIVE_DEADLINE_PROPERTY "+"WAIT_BLOCK_NAME_PROPERTY "+"WAIT_BLOCK_RELATIVE_DEADLINE_TYPE_PROPERTY ";var sysres_common_constants="SYSRES_COMMON "+"SYSRES_CONST "+"SYSRES_MBFUNC "+"SYSRES_SBDATA "+"SYSRES_SBGUI "+"SYSRES_SBINTF "+"SYSRES_SBREFDSC "+"SYSRES_SQLERRORS "+"SYSRES_SYSCOMP ";var CONSTANTS=sysres_constants+base_constants+base_group_name_constants+decision_block_properties_constants+file_extension_constants+job_block_properties_constants+language_code_constants+launching_external_applications_constants+link_kind_constants+lock_type_constants+monitor_block_properties_constants+notice_block_properties_constants+object_events_constants+object_params_constants+other_constants+privileges_constants+pseudoreference_code_constants+requisite_ISBCertificateType_values_constants+requisite_ISBEDocStorageType_values_constants+requisite_compType2_values_constants+requisite_name_constants+result_constants+rule_identification_constants+script_block_properties_constants+subtask_block_properties_constants+system_component_constants+system_dialogs_constants+system_reference_names_constants+table_name_constants+test_constants+using_the_dialog_windows_constants+using_the_document_constants+using_the_EA_and_encryption_constants+using_the_ISBL_editor_constants+wait_block_properties_constants+sysres_common_constants;var TAccountType="atUser atGroup atRole ";var TActionEnabledMode="aemEnabledAlways "+"aemDisabledAlways "+"aemEnabledOnBrowse "+"aemEnabledOnEdit "+"aemDisabledOnBrowseEmpty ";var TAddPosition="apBegin apEnd ";var TAlignment="alLeft alRight ";var TAreaShowMode="asmNever "+"asmNoButCustomize "+"asmAsLastTime "+"asmYesButCustomize "+"asmAlways ";var TCertificateInvalidationReason="cirCommon cirRevoked ";var TCertificateType="ctSignature ctEncode ctSignatureEncode ";var TCheckListBoxItemState="clbUnchecked clbChecked clbGrayed ";var TCloseOnEsc="ceISB ceAlways ceNever ";var TCompType="ctDocument "+"ctReference "+"ctScript "+"ctUnknown "+"ctReport "+"ctDialog "+"ctFunction "+"ctFolder "+"ctEDocument "+"ctTask "+"ctJob "+"ctNotice "+"ctControlJob ";var TConditionFormat="cfInternal cfDisplay ";var TConnectionIntent="ciUnspecified ciWrite ciRead ";var TContentKind="ckFolder "+"ckEDocument "+"ckTask "+"ckJob "+"ckComponentToken "+"ckAny "+"ckReference "+"ckScript "+"ckReport "+"ckDialog ";var TControlType="ctISBLEditor "+"ctBevel "+"ctButton "+"ctCheckListBox "+"ctComboBox "+"ctComboEdit "+"ctGrid "+"ctDBCheckBox "+"ctDBComboBox "+"ctDBEdit "+"ctDBEllipsis "+"ctDBMemo "+"ctDBNavigator "+"ctDBRadioGroup "+"ctDBStatusLabel "+"ctEdit "+"ctGroupBox "+"ctInplaceHint "+"ctMemo "+"ctPanel "+"ctListBox "+"ctRadioButton "+"ctRichEdit "+"ctTabSheet "+"ctWebBrowser "+"ctImage "+"ctHyperLink "+"ctLabel "+"ctDBMultiEllipsis "+"ctRibbon "+"ctRichView "+"ctInnerPanel "+"ctPanelGroup "+"ctBitButton ";var TCriterionContentType="cctDate "+"cctInteger "+"cctNumeric "+"cctPick "+"cctReference "+"cctString "+"cctText ";var TCultureType="cltInternal cltPrimary cltGUI ";var TDataSetEventType="dseBeforeOpen "+"dseAfterOpen "+"dseBeforeClose "+"dseAfterClose "+"dseOnValidDelete "+"dseBeforeDelete "+"dseAfterDelete "+"dseAfterDeleteOutOfTransaction "+"dseOnDeleteError "+"dseBeforeInsert "+"dseAfterInsert "+"dseOnValidUpdate "+"dseBeforeUpdate "+"dseOnUpdateRatifiedRecord "+"dseAfterUpdate "+"dseAfterUpdateOutOfTransaction "+"dseOnUpdateError "+"dseAfterScroll "+"dseOnOpenRecord "+"dseOnCloseRecord "+"dseBeforeCancel "+"dseAfterCancel "+"dseOnUpdateDeadlockError "+"dseBeforeDetailUpdate "+"dseOnPrepareUpdate "+"dseOnAnyRequisiteChange ";var TDataSetState="dssEdit dssInsert dssBrowse dssInActive ";var TDateFormatType="dftDate dftShortDate dftDateTime dftTimeStamp ";var TDateOffsetType="dotDays dotHours dotMinutes dotSeconds ";var TDateTimeKind="dtkndLocal dtkndUTC ";var TDeaAccessRights="arNone arView arEdit arFull ";var TDocumentDefaultAction="ddaView ddaEdit ";var TEditMode="emLock "+"emEdit "+"emSign "+"emExportWithLock "+"emImportWithUnlock "+"emChangeVersionNote "+"emOpenForModify "+"emChangeLifeStage "+"emDelete "+"emCreateVersion "+"emImport "+"emUnlockExportedWithLock "+"emStart "+"emAbort "+"emReInit "+"emMarkAsReaded "+"emMarkAsUnreaded "+"emPerform "+"emAccept "+"emResume "+"emChangeRights "+"emEditRoute "+"emEditObserver "+"emRecoveryFromLocalCopy "+"emChangeWorkAccessType "+"emChangeEncodeTypeToCertificate "+"emChangeEncodeTypeToPassword "+"emChangeEncodeTypeToNone "+"emChangeEncodeTypeToCertificatePassword "+"emChangeStandardRoute "+"emGetText "+"emOpenForView "+"emMoveToStorage "+"emCreateObject "+"emChangeVersionHidden "+"emDeleteVersion "+"emChangeLifeCycleStage "+"emApprovingSign "+"emExport "+"emContinue "+"emLockFromEdit "+"emUnLockForEdit "+"emLockForServer "+"emUnlockFromServer "+"emDelegateAccessRights "+"emReEncode ";var TEditorCloseObservType="ecotFile ecotProcess ";var TEdmsApplicationAction="eaGet eaCopy eaCreate eaCreateStandardRoute ";var TEDocumentLockType="edltAll edltNothing edltQuery ";var TEDocumentStepShowMode="essmText essmCard ";var TEDocumentStepVersionType="esvtLast esvtLastActive esvtSpecified ";var TEDocumentStorageFunction="edsfExecutive edsfArchive ";var TEDocumentStorageType="edstSQLServer edstFile ";var TEDocumentVersionSourceType="edvstNone edvstEDocumentVersionCopy edvstFile edvstTemplate edvstScannedFile ";var TEDocumentVersionState="vsDefault vsDesign vsActive vsObsolete ";var TEncodeType="etNone etCertificate etPassword etCertificatePassword ";var TExceptionCategory="ecException ecWarning ecInformation ";var TExportedSignaturesType="estAll estApprovingOnly ";var TExportedVersionType="evtLast evtLastActive evtQuery ";var TFieldDataType="fdtString "+"fdtNumeric "+"fdtInteger "+"fdtDate "+"fdtText "+"fdtUnknown "+"fdtWideString "+"fdtLargeInteger ";var TFolderType="ftInbox "+"ftOutbox "+"ftFavorites "+"ftCommonFolder "+"ftUserFolder "+"ftComponents "+"ftQuickLaunch "+"ftShortcuts "+"ftSearch ";var TGridRowHeight="grhAuto "+"grhX1 "+"grhX2 "+"grhX3 ";var THyperlinkType="hltText "+"hltRTF "+"hltHTML ";var TImageFileFormat="iffBMP "+"iffJPEG "+"iffMultiPageTIFF "+"iffSinglePageTIFF "+"iffTIFF "+"iffPNG ";var TImageMode="im8bGrayscale "+"im24bRGB "+"im1bMonochrome ";var TImageType="itBMP "+"itJPEG "+"itWMF "+"itPNG ";var TInplaceHintKind="ikhInformation "+"ikhWarning "+"ikhError "+"ikhNoIcon ";var TISBLContext="icUnknown "+"icScript "+"icFunction "+"icIntegratedReport "+"icAnalyticReport "+"icDataSetEventHandler "+"icActionHandler "+"icFormEventHandler "+"icLookUpEventHandler "+"icRequisiteChangeEventHandler "+"icBeforeSearchEventHandler "+"icRoleCalculation "+"icSelectRouteEventHandler "+"icBlockPropertyCalculation "+"icBlockQueryParamsEventHandler "+"icChangeSearchResultEventHandler "+"icBlockEventHandler "+"icSubTaskInitEventHandler "+"icEDocDataSetEventHandler "+"icEDocLookUpEventHandler "+"icEDocActionHandler "+"icEDocFormEventHandler "+"icEDocRequisiteChangeEventHandler "+"icStructuredConversionRule "+"icStructuredConversionEventBefore "+"icStructuredConversionEventAfter "+"icWizardEventHandler "+"icWizardFinishEventHandler "+"icWizardStepEventHandler "+"icWizardStepFinishEventHandler "+"icWizardActionEnableEventHandler "+"icWizardActionExecuteEventHandler "+"icCreateJobsHandler "+"icCreateNoticesHandler "+"icBeforeLookUpEventHandler "+"icAfterLookUpEventHandler "+"icTaskAbortEventHandler "+"icWorkflowBlockActionHandler "+"icDialogDataSetEventHandler "+"icDialogActionHandler "+"icDialogLookUpEventHandler "+"icDialogRequisiteChangeEventHandler "+"icDialogFormEventHandler "+"icDialogValidCloseEventHandler "+"icBlockFormEventHandler "+"icTaskFormEventHandler "+"icReferenceMethod "+"icEDocMethod "+"icDialogMethod "+"icProcessMessageHandler ";var TItemShow="isShow "+"isHide "+"isByUserSettings ";var TJobKind="jkJob "+"jkNotice "+"jkControlJob ";var TJoinType="jtInner "+"jtLeft "+"jtRight "+"jtFull "+"jtCross ";var TLabelPos="lbpAbove "+"lbpBelow "+"lbpLeft "+"lbpRight ";var TLicensingType="eltPerConnection "+"eltPerUser ";var TLifeCycleStageFontColor="sfcUndefined "+"sfcBlack "+"sfcGreen "+"sfcRed "+"sfcBlue "+"sfcOrange "+"sfcLilac ";var TLifeCycleStageFontStyle="sfsItalic "+"sfsStrikeout "+"sfsNormal ";var TLockableDevelopmentComponentType="ldctStandardRoute "+"ldctWizard "+"ldctScript "+"ldctFunction "+"ldctRouteBlock "+"ldctIntegratedReport "+"ldctAnalyticReport "+"ldctReferenceType "+"ldctEDocumentType "+"ldctDialog "+"ldctServerEvents ";var TMaxRecordCountRestrictionType="mrcrtNone "+"mrcrtUser "+"mrcrtMaximal "+"mrcrtCustom ";var TRangeValueType="vtEqual "+"vtGreaterOrEqual "+"vtLessOrEqual "+"vtRange ";var TRelativeDate="rdYesterday "+"rdToday "+"rdTomorrow "+"rdThisWeek "+"rdThisMonth "+"rdThisYear "+"rdNextMonth "+"rdNextWeek "+"rdLastWeek "+"rdLastMonth ";var TReportDestination="rdWindow "+"rdFile "+"rdPrinter ";var TReqDataType="rdtString "+"rdtNumeric "+"rdtInteger "+"rdtDate "+"rdtReference "+"rdtAccount "+"rdtText "+"rdtPick "+"rdtUnknown "+"rdtLargeInteger "+"rdtDocument ";var TRequisiteEventType="reOnChange "+"reOnChangeValues ";var TSBTimeType="ttGlobal "+"ttLocal "+"ttUser "+"ttSystem ";var TSearchShowMode="ssmBrowse "+"ssmSelect "+"ssmMultiSelect "+"ssmBrowseModal ";var TSelectMode="smSelect "+"smLike "+"smCard ";var TSignatureType="stNone "+"stAuthenticating "+"stApproving ";var TSignerContentType="sctString "+"sctStream ";var TStringsSortType="sstAnsiSort "+"sstNaturalSort ";var TStringValueType="svtEqual "+"svtContain ";var TStructuredObjectAttributeType="soatString "+"soatNumeric "+"soatInteger "+"soatDatetime "+"soatReferenceRecord "+"soatText "+"soatPick "+"soatBoolean "+"soatEDocument "+"soatAccount "+"soatIntegerCollection "+"soatNumericCollection "+"soatStringCollection "+"soatPickCollection "+"soatDatetimeCollection "+"soatBooleanCollection "+"soatReferenceRecordCollection "+"soatEDocumentCollection "+"soatAccountCollection "+"soatContents "+"soatUnknown ";var TTaskAbortReason="tarAbortByUser "+"tarAbortByWorkflowException ";var TTextValueType="tvtAllWords "+"tvtExactPhrase "+"tvtAnyWord ";var TUserObjectStatus="usNone "+"usCompleted "+"usRedSquare "+"usBlueSquare "+"usYellowSquare "+"usGreenSquare "+"usOrangeSquare "+"usPurpleSquare "+"usFollowUp ";var TUserType="utUnknown "+"utUser "+"utDeveloper "+"utAdministrator "+"utSystemDeveloper "+"utDisconnected ";var TValuesBuildType="btAnd "+"btDetailAnd "+"btOr "+"btNotOr "+"btOnly ";var TViewMode="vmView "+"vmSelect "+"vmNavigation ";var TViewSelectionMode="vsmSingle "+"vsmMultiple "+"vsmMultipleCheck "+"vsmNoSelection ";var TWizardActionType="wfatPrevious "+"wfatNext "+"wfatCancel "+"wfatFinish ";var TWizardFormElementProperty="wfepUndefined "+"wfepText3 "+"wfepText6 "+"wfepText9 "+"wfepSpinEdit "+"wfepDropDown "+"wfepRadioGroup "+"wfepFlag "+"wfepText12 "+"wfepText15 "+"wfepText18 "+"wfepText21 "+"wfepText24 "+"wfepText27 "+"wfepText30 "+"wfepRadioGroupColumn1 "+"wfepRadioGroupColumn2 "+"wfepRadioGroupColumn3 ";var TWizardFormElementType="wfetQueryParameter "+"wfetText "+"wfetDelimiter "+"wfetLabel ";var TWizardParamType="wptString "+"wptInteger "+"wptNumeric "+"wptBoolean "+"wptDateTime "+"wptPick "+"wptText "+"wptUser "+"wptUserList "+"wptEDocumentInfo "+"wptEDocumentInfoList "+"wptReferenceRecordInfo "+"wptReferenceRecordInfoList "+"wptFolderInfo "+"wptTaskInfo "+"wptContents "+"wptFileName "+"wptDate ";var TWizardStepResult="wsrComplete "+"wsrGoNext "+"wsrGoPrevious "+"wsrCustom "+"wsrCancel "+"wsrGoFinal ";var TWizardStepType="wstForm "+"wstEDocument "+"wstTaskCard "+"wstReferenceRecordCard "+"wstFinal ";var TWorkAccessType="waAll "+"waPerformers "+"waManual ";var TWorkflowBlockType="wsbStart "+"wsbFinish "+"wsbNotice "+"wsbStep "+"wsbDecision "+"wsbWait "+"wsbMonitor "+"wsbScript "+"wsbConnector "+"wsbSubTask "+"wsbLifeCycleStage "+"wsbPause ";var TWorkflowDataType="wdtInteger "+"wdtFloat "+"wdtString "+"wdtPick "+"wdtDateTime "+"wdtBoolean "+"wdtTask "+"wdtJob "+"wdtFolder "+"wdtEDocument "+"wdtReferenceRecord "+"wdtUser "+"wdtGroup "+"wdtRole "+"wdtIntegerCollection "+"wdtFloatCollection "+"wdtStringCollection "+"wdtPickCollection "+"wdtDateTimeCollection "+"wdtBooleanCollection "+"wdtTaskCollection "+"wdtJobCollection "+"wdtFolderCollection "+"wdtEDocumentCollection "+"wdtReferenceRecordCollection "+"wdtUserCollection "+"wdtGroupCollection "+"wdtRoleCollection "+"wdtContents "+"wdtUserList "+"wdtSearchDescription "+"wdtDeadLine "+"wdtPickSet "+"wdtAccountCollection ";var TWorkImportance="wiLow "+"wiNormal "+"wiHigh ";var TWorkRouteType="wrtSoft "+"wrtHard ";var TWorkState="wsInit "+"wsRunning "+"wsDone "+"wsControlled "+"wsAborted "+"wsContinued ";var TWorkTextBuildingMode="wtmFull "+"wtmFromCurrent "+"wtmOnlyCurrent ";var ENUMS=TAccountType+TActionEnabledMode+TAddPosition+TAlignment+TAreaShowMode+TCertificateInvalidationReason+TCertificateType+TCheckListBoxItemState+TCloseOnEsc+TCompType+TConditionFormat+TConnectionIntent+TContentKind+TControlType+TCriterionContentType+TCultureType+TDataSetEventType+TDataSetState+TDateFormatType+TDateOffsetType+TDateTimeKind+TDeaAccessRights+TDocumentDefaultAction+TEditMode+TEditorCloseObservType+TEdmsApplicationAction+TEDocumentLockType+TEDocumentStepShowMode+TEDocumentStepVersionType+TEDocumentStorageFunction+TEDocumentStorageType+TEDocumentVersionSourceType+TEDocumentVersionState+TEncodeType+TExceptionCategory+TExportedSignaturesType+TExportedVersionType+TFieldDataType+TFolderType+TGridRowHeight+THyperlinkType+TImageFileFormat+TImageMode+TImageType+TInplaceHintKind+TISBLContext+TItemShow+TJobKind+TJoinType+TLabelPos+TLicensingType+TLifeCycleStageFontColor+TLifeCycleStageFontStyle+TLockableDevelopmentComponentType+TMaxRecordCountRestrictionType+TRangeValueType+TRelativeDate+TReportDestination+TReqDataType+TRequisiteEventType+TSBTimeType+TSearchShowMode+TSelectMode+TSignatureType+TSignerContentType+TStringsSortType+TStringValueType+TStructuredObjectAttributeType+TTaskAbortReason+TTextValueType+TUserObjectStatus+TUserType+TValuesBuildType+TViewMode+TViewSelectionMode+TWizardActionType+TWizardFormElementProperty+TWizardFormElementType+TWizardParamType+TWizardStepResult+TWizardStepType+TWorkAccessType+TWorkflowBlockType+TWorkflowDataType+TWorkImportance+TWorkRouteType+TWorkState+TWorkTextBuildingMode;var system_functions="AddSubString "+"AdjustLineBreaks "+"AmountInWords "+"Analysis "+"ArrayDimCount "+"ArrayHighBound "+"ArrayLowBound "+"ArrayOf "+"ArrayReDim "+"Assert "+"Assigned "+"BeginOfMonth "+"BeginOfPeriod "+"BuildProfilingOperationAnalysis "+"CallProcedure "+"CanReadFile "+"CArrayElement "+"CDataSetRequisite "+"ChangeDate "+"ChangeReferenceDataset "+"Char "+"CharPos "+"CheckParam "+"CheckParamValue "+"CompareStrings "+"ConstantExists "+"ControlState "+"ConvertDateStr "+"Copy "+"CopyFile "+"CreateArray "+"CreateCachedReference "+"CreateConnection "+"CreateDialog "+"CreateDualListDialog "+"CreateEditor "+"CreateException "+"CreateFile "+"CreateFolderDialog "+"CreateInputDialog "+"CreateLinkFile "+"CreateList "+"CreateLock "+"CreateMemoryDataSet "+"CreateObject "+"CreateOpenDialog "+"CreateProgress "+"CreateQuery "+"CreateReference "+"CreateReport "+"CreateSaveDialog "+"CreateScript "+"CreateSQLPivotFunction "+"CreateStringList "+"CreateTreeListSelectDialog "+"CSelectSQL "+"CSQL "+"CSubString "+"CurrentUserID "+"CurrentUserName "+"CurrentVersion "+"DataSetLocateEx "+"DateDiff "+"DateTimeDiff "+"DateToStr "+"DayOfWeek "+"DeleteFile "+"DirectoryExists "+"DisableCheckAccessRights "+"DisableCheckFullShowingRestriction "+"DisableMassTaskSendingRestrictions "+"DropTable "+"DupeString "+"EditText "+"EnableCheckAccessRights "+"EnableCheckFullShowingRestriction "+"EnableMassTaskSendingRestrictions "+"EndOfMonth "+"EndOfPeriod "+"ExceptionExists "+"ExceptionsOff "+"ExceptionsOn "+"Execute "+"ExecuteProcess "+"Exit "+"ExpandEnvironmentVariables "+"ExtractFileDrive "+"ExtractFileExt "+"ExtractFileName "+"ExtractFilePath "+"ExtractParams "+"FileExists "+"FileSize "+"FindFile "+"FindSubString "+"FirmContext "+"ForceDirectories "+"Format "+"FormatDate "+"FormatNumeric "+"FormatSQLDate "+"FormatString "+"FreeException "+"GetComponent "+"GetComponentLaunchParam "+"GetConstant "+"GetLastException "+"GetReferenceRecord "+"GetRefTypeByRefID "+"GetTableID "+"GetTempFolder "+"IfThen "+"In "+"IndexOf "+"InputDialog "+"InputDialogEx "+"InteractiveMode "+"IsFileLocked "+"IsGraphicFile "+"IsNumeric "+"Length "+"LoadString "+"LoadStringFmt "+"LocalTimeToUTC "+"LowerCase "+"Max "+"MessageBox "+"MessageBoxEx "+"MimeDecodeBinary "+"MimeDecodeString "+"MimeEncodeBinary "+"MimeEncodeString "+"Min "+"MoneyInWords "+"MoveFile "+"NewID "+"Now "+"OpenFile "+"Ord "+"Precision "+"Raise "+"ReadCertificateFromFile "+"ReadFile "+"ReferenceCodeByID "+"ReferenceNumber "+"ReferenceRequisiteMode "+"ReferenceRequisiteValue "+"RegionDateSettings "+"RegionNumberSettings "+"RegionTimeSettings "+"RegRead "+"RegWrite "+"RenameFile "+"Replace "+"Round "+"SelectServerCode "+"SelectSQL "+"ServerDateTime "+"SetConstant "+"SetManagedFolderFieldsState "+"ShowConstantsInputDialog "+"ShowMessage "+"Sleep "+"Split "+"SQL "+"SQL2XLSTAB "+"SQLProfilingSendReport "+"StrToDate "+"SubString "+"SubStringCount "+"SystemSetting "+"Time "+"TimeDiff "+"Today "+"Transliterate "+"Trim "+"UpperCase "+"UserStatus "+"UTCToLocalTime "+"ValidateXML "+"VarIsClear "+"VarIsEmpty "+"VarIsNull "+"WorkTimeDiff "+"WriteFile "+"WriteFileEx "+"WriteObjectHistory "+"Анализ "+"БазаДанных "+"БлокЕсть "+"БлокЕстьРасш "+"БлокИнфо "+"БлокСнять "+"БлокСнятьРасш "+"БлокУстановить "+"Ввод "+"ВводМеню "+"ВедС "+"ВедСпр "+"ВерхняяГраницаМассива "+"ВнешПрогр "+"Восст "+"ВременнаяПапка "+"Время "+"ВыборSQL "+"ВыбратьЗапись "+"ВыделитьСтр "+"Вызвать "+"Выполнить "+"ВыпПрогр "+"ГрафическийФайл "+"ГруппаДополнительно "+"ДатаВремяСерв "+"ДеньНедели "+"ДиалогДаНет "+"ДлинаСтр "+"ДобПодстр "+"ЕПусто "+"ЕслиТо "+"ЕЧисло "+"ЗамПодстр "+"ЗаписьСправочника "+"ЗначПоляСпр "+"ИДТипСпр "+"ИзвлечьДиск "+"ИзвлечьИмяФайла "+"ИзвлечьПуть "+"ИзвлечьРасширение "+"ИзмДат "+"ИзменитьРазмерМассива "+"ИзмеренийМассива "+"ИмяОрг "+"ИмяПоляСпр "+"Индекс "+"ИндикаторЗакрыть "+"ИндикаторОткрыть "+"ИндикаторШаг "+"ИнтерактивныйРежим "+"ИтогТблСпр "+"КодВидВедСпр "+"КодВидСпрПоИД "+"КодПоAnalit "+"КодСимвола "+"КодСпр "+"КолПодстр "+"КолПроп "+"КонМес "+"Конст "+"КонстЕсть "+"КонстЗнач "+"КонТран "+"КопироватьФайл "+"КопияСтр "+"КПериод "+"КСтрТблСпр "+"Макс "+"МаксСтрТблСпр "+"Массив "+"Меню "+"МенюРасш "+"Мин "+"НаборДанныхНайтиРасш "+"НаимВидСпр "+"НаимПоAnalit "+"НаимСпр "+"НастроитьПереводыСтрок "+"НачМес "+"НачТран "+"НижняяГраницаМассива "+"НомерСпр "+"НПериод "+"Окно "+"Окр "+"Окружение "+"ОтлИнфДобавить "+"ОтлИнфУдалить "+"Отчет "+"ОтчетАнал "+"ОтчетИнт "+"ПапкаСуществует "+"Пауза "+"ПВыборSQL "+"ПереименоватьФайл "+"Переменные "+"ПереместитьФайл "+"Подстр "+"ПоискПодстр "+"ПоискСтр "+"ПолучитьИДТаблицы "+"ПользовательДополнительно "+"ПользовательИД "+"ПользовательИмя "+"ПользовательСтатус "+"Прервать "+"ПроверитьПараметр "+"ПроверитьПараметрЗнач "+"ПроверитьУсловие "+"РазбСтр "+"РазнВремя "+"РазнДат "+"РазнДатаВремя "+"РазнРабВремя "+"РегУстВрем "+"РегУстДат "+"РегУстЧсл "+"РедТекст "+"РеестрЗапись "+"РеестрСписокИменПарам "+"РеестрЧтение "+"РеквСпр "+"РеквСпрПр "+"Сегодня "+"Сейчас "+"Сервер "+"СерверПроцессИД "+"СертификатФайлСчитать "+"СжПроб "+"Символ "+"СистемаДиректумКод "+"СистемаИнформация "+"СистемаКод "+"Содержит "+"СоединениеЗакрыть "+"СоединениеОткрыть "+"СоздатьДиалог "+"СоздатьДиалогВыбораИзДвухСписков "+"СоздатьДиалогВыбораПапки "+"СоздатьДиалогОткрытияФайла "+"СоздатьДиалогСохраненияФайла "+"СоздатьЗапрос "+"СоздатьИндикатор "+"СоздатьИсключение "+"СоздатьКэшированныйСправочник "+"СоздатьМассив "+"СоздатьНаборДанных "+"СоздатьОбъект "+"СоздатьОтчет "+"СоздатьПапку "+"СоздатьРедактор "+"СоздатьСоединение "+"СоздатьСписок "+"СоздатьСписокСтрок "+"СоздатьСправочник "+"СоздатьСценарий "+"СоздСпр "+"СостСпр "+"Сохр "+"СохрСпр "+"СписокСистем "+"Спр "+"Справочник "+"СпрБлокЕсть "+"СпрБлокСнять "+"СпрБлокСнятьРасш "+"СпрБлокУстановить "+"СпрИзмНабДан "+"СпрКод "+"СпрНомер "+"СпрОбновить "+"СпрОткрыть "+"СпрОтменить "+"СпрПарам "+"СпрПолеЗнач "+"СпрПолеИмя "+"СпрРекв "+"СпрРеквВведЗн "+"СпрРеквНовые "+"СпрРеквПр "+"СпрРеквПредЗн "+"СпрРеквРежим "+"СпрРеквТипТекст "+"СпрСоздать "+"СпрСост "+"СпрСохранить "+"СпрТблИтог "+"СпрТблСтр "+"СпрТблСтрКол "+"СпрТблСтрМакс "+"СпрТблСтрМин "+"СпрТблСтрПред "+"СпрТблСтрСлед "+"СпрТблСтрСозд "+"СпрТблСтрУд "+"СпрТекПредст "+"СпрУдалить "+"СравнитьСтр "+"СтрВерхРегистр "+"СтрНижнРегистр "+"СтрТблСпр "+"СумПроп "+"Сценарий "+"СценарийПарам "+"ТекВерсия "+"ТекОрг "+"Точн "+"Тран "+"Транслитерация "+"УдалитьТаблицу "+"УдалитьФайл "+"УдСпр "+"УдСтрТблСпр "+"Уст "+"УстановкиКонстант "+"ФайлАтрибутСчитать "+"ФайлАтрибутУстановить "+"ФайлВремя "+"ФайлВремяУстановить "+"ФайлВыбрать "+"ФайлЗанят "+"ФайлЗаписать "+"ФайлИскать "+"ФайлКопировать "+"ФайлМожноЧитать "+"ФайлОткрыть "+"ФайлПереименовать "+"ФайлПерекодировать "+"ФайлПереместить "+"ФайлПросмотреть "+"ФайлРазмер "+"ФайлСоздать "+"ФайлСсылкаСоздать "+"ФайлСуществует "+"ФайлСчитать "+"ФайлУдалить "+"ФмтSQLДат "+"ФмтДат "+"ФмтСтр "+"ФмтЧсл "+"Формат "+"ЦМассивЭлемент "+"ЦНаборДанныхРеквизит "+"ЦПодстр ";var predefined_variables="AltState "+"Application "+"CallType "+"ComponentTokens "+"CreatedJobs "+"CreatedNotices "+"ControlState "+"DialogResult "+"Dialogs "+"EDocuments "+"EDocumentVersionSource "+"Folders "+"GlobalIDs "+"Job "+"Jobs "+"InputValue "+"LookUpReference "+"LookUpRequisiteNames "+"LookUpSearch "+"Object "+"ParentComponent "+"Processes "+"References "+"Requisite "+"ReportName "+"Reports "+"Result "+"Scripts "+"Searches "+"SelectedAttachments "+"SelectedItems "+"SelectMode "+"Sender "+"ServerEvents "+"ServiceFactory "+"ShiftState "+"SubTask "+"SystemDialogs "+"Tasks "+"Wizard "+"Wizards "+"Work "+"ВызовСпособ "+"ИмяОтчета "+"РеквЗнач ";var interfaces="IApplication "+"IAccessRights "+"IAccountRepository "+"IAccountSelectionRestrictions "+"IAction "+"IActionList "+"IAdministrationHistoryDescription "+"IAnchors "+"IApplication "+"IArchiveInfo "+"IAttachment "+"IAttachmentList "+"ICheckListBox "+"ICheckPointedList "+"IColumn "+"IComponent "+"IComponentDescription "+"IComponentToken "+"IComponentTokenFactory "+"IComponentTokenInfo "+"ICompRecordInfo "+"IConnection "+"IContents "+"IControl "+"IControlJob "+"IControlJobInfo "+"IControlList "+"ICrypto "+"ICrypto2 "+"ICustomJob "+"ICustomJobInfo "+"ICustomListBox "+"ICustomObjectWizardStep "+"ICustomWork "+"ICustomWorkInfo "+"IDataSet "+"IDataSetAccessInfo "+"IDataSigner "+"IDateCriterion "+"IDateRequisite "+"IDateRequisiteDescription "+"IDateValue "+"IDeaAccessRights "+"IDeaObjectInfo "+"IDevelopmentComponentLock "+"IDialog "+"IDialogFactory "+"IDialogPickRequisiteItems "+"IDialogsFactory "+"IDICSFactory "+"IDocRequisite "+"IDocumentInfo "+"IDualListDialog "+"IECertificate "+"IECertificateInfo "+"IECertificates "+"IEditControl "+"IEditorForm "+"IEdmsExplorer "+"IEdmsObject "+"IEdmsObjectDescription "+"IEdmsObjectFactory "+"IEdmsObjectInfo "+"IEDocument "+"IEDocumentAccessRights "+"IEDocumentDescription "+"IEDocumentEditor "+"IEDocumentFactory "+"IEDocumentInfo "+"IEDocumentStorage "+"IEDocumentVersion "+"IEDocumentVersionListDialog "+"IEDocumentVersionSource "+"IEDocumentWizardStep "+"IEDocVerSignature "+"IEDocVersionState "+"IEnabledMode "+"IEncodeProvider "+"IEncrypter "+"IEvent "+"IEventList "+"IException "+"IExternalEvents "+"IExternalHandler "+"IFactory "+"IField "+"IFileDialog "+"IFolder "+"IFolderDescription "+"IFolderDialog "+"IFolderFactory "+"IFolderInfo "+"IForEach "+"IForm "+"IFormTitle "+"IFormWizardStep "+"IGlobalIDFactory "+"IGlobalIDInfo "+"IGrid "+"IHasher "+"IHistoryDescription "+"IHyperLinkControl "+"IImageButton "+"IImageControl "+"IInnerPanel "+"IInplaceHint "+"IIntegerCriterion "+"IIntegerList "+"IIntegerRequisite "+"IIntegerValue "+"IISBLEditorForm "+"IJob "+"IJobDescription "+"IJobFactory "+"IJobForm "+"IJobInfo "+"ILabelControl "+"ILargeIntegerCriterion "+"ILargeIntegerRequisite "+"ILargeIntegerValue "+"ILicenseInfo "+"ILifeCycleStage "+"IList "+"IListBox "+"ILocalIDInfo "+"ILocalization "+"ILock "+"IMemoryDataSet "+"IMessagingFactory "+"IMetadataRepository "+"INotice "+"INoticeInfo "+"INumericCriterion "+"INumericRequisite "+"INumericValue "+"IObject "+"IObjectDescription "+"IObjectImporter "+"IObjectInfo "+"IObserver "+"IPanelGroup "+"IPickCriterion "+"IPickProperty "+"IPickRequisite "+"IPickRequisiteDescription "+"IPickRequisiteItem "+"IPickRequisiteItems "+"IPickValue "+"IPrivilege "+"IPrivilegeList "+"IProcess "+"IProcessFactory "+"IProcessMessage "+"IProgress "+"IProperty "+"IPropertyChangeEvent "+"IQuery "+"IReference "+"IReferenceCriterion "+"IReferenceEnabledMode "+"IReferenceFactory "+"IReferenceHistoryDescription "+"IReferenceInfo "+"IReferenceRecordCardWizardStep "+"IReferenceRequisiteDescription "+"IReferencesFactory "+"IReferenceValue "+"IRefRequisite "+"IReport "+"IReportFactory "+"IRequisite "+"IRequisiteDescription "+"IRequisiteDescriptionList "+"IRequisiteFactory "+"IRichEdit "+"IRouteStep "+"IRule "+"IRuleList "+"ISchemeBlock "+"IScript "+"IScriptFactory "+"ISearchCriteria "+"ISearchCriterion "+"ISearchDescription "+"ISearchFactory "+"ISearchFolderInfo "+"ISearchForObjectDescription "+"ISearchResultRestrictions "+"ISecuredContext "+"ISelectDialog "+"IServerEvent "+"IServerEventFactory "+"IServiceDialog "+"IServiceFactory "+"ISignature "+"ISignProvider "+"ISignProvider2 "+"ISignProvider3 "+"ISimpleCriterion "+"IStringCriterion "+"IStringList "+"IStringRequisite "+"IStringRequisiteDescription "+"IStringValue "+"ISystemDialogsFactory "+"ISystemInfo "+"ITabSheet "+"ITask "+"ITaskAbortReasonInfo "+"ITaskCardWizardStep "+"ITaskDescription "+"ITaskFactory "+"ITaskInfo "+"ITaskRoute "+"ITextCriterion "+"ITextRequisite "+"ITextValue "+"ITreeListSelectDialog "+"IUser "+"IUserList "+"IValue "+"IView "+"IWebBrowserControl "+"IWizard "+"IWizardAction "+"IWizardFactory "+"IWizardFormElement "+"IWizardParam "+"IWizardPickParam "+"IWizardReferenceParam "+"IWizardStep "+"IWorkAccessRights "+"IWorkDescription "+"IWorkflowAskableParam "+"IWorkflowAskableParams "+"IWorkflowBlock "+"IWorkflowBlockResult "+"IWorkflowEnabledMode "+"IWorkflowParam "+"IWorkflowPickParam "+"IWorkflowReferenceParam "+"IWorkState "+"IWorkTreeCustomNode "+"IWorkTreeJobNode "+"IWorkTreeTaskNode "+"IXMLEditorForm "+"SBCrypto ";var BUILTIN=CONSTANTS+ENUMS;var CLASS=predefined_variables;var LITERAL="null true false nil ";var NUMBERS={className:"number",begin:hljs.NUMBER_RE,relevance:0};var STRINGS={className:"string",variants:[{begin:'"',end:'"'},{begin:"'",end:"'"}]};var DOCTAGS={className:"doctag",begin:"\\b(?:TODO|DONE|BEGIN|END|STUB|CHG|FIXME|NOTE|BUG|XXX)\\b",relevance:0};var ISBL_LINE_COMMENT_MODE={className:"comment",begin:"//",end:"$",relevance:0,contains:[hljs.PHRASAL_WORDS_MODE,DOCTAGS]};var ISBL_BLOCK_COMMENT_MODE={className:"comment",begin:"/\\*",end:"\\*/",relevance:0,contains:[hljs.PHRASAL_WORDS_MODE,DOCTAGS]};var COMMENTS={variants:[ISBL_LINE_COMMENT_MODE,ISBL_BLOCK_COMMENT_MODE]};var KEYWORDS={keyword:KEYWORD,built_in:BUILTIN,class:CLASS,literal:LITERAL};var METHODS={begin:"\\.\\s*"+hljs.UNDERSCORE_IDENT_RE,keywords:KEYWORDS,relevance:0};var TYPES={className:"type",begin:":[ \\t]*("+interfaces.trim().replace(/\s/g,"|")+")",end:"[ \\t]*=",excludeEnd:true};var VARIABLES={className:"variable",lexemes:UNDERSCORE_IDENT_RE,keywords:KEYWORDS,begin:UNDERSCORE_IDENT_RE,relevance:0,contains:[TYPES,METHODS]};var FUNCTION_TITLE=FUNCTION_NAME_IDENT_RE+"\\(";var TITLE_MODE={className:"title",lexemes:UNDERSCORE_IDENT_RE,keywords:{built_in:system_functions},begin:FUNCTION_TITLE,end:"\\(",returnBegin:true,excludeEnd:true};var FUNCTIONS={className:"function",begin:FUNCTION_TITLE,end:"\\)$",returnBegin:true,lexemes:UNDERSCORE_IDENT_RE,keywords:KEYWORDS,illegal:"[\\[\\]\\|\\$\\?%,~#@]",contains:[TITLE_MODE,METHODS,VARIABLES,STRINGS,NUMBERS,COMMENTS]};return{aliases:["isbl"],case_insensitive:true,lexemes:UNDERSCORE_IDENT_RE,keywords:KEYWORDS,illegal:"\\$|\\?|%|,|;$|~|#|@|</",contains:[FUNCTIONS,TYPES,METHODS,VARIABLES,STRINGS,NUMBERS,COMMENTS]}});hljs.registerLanguage("reasonml",function(hljs){function orReValues(ops){return ops.map(function(op){return op.split("").map(function(char){return"\\"+char}).join("")}).join("|")}var RE_IDENT="~?[a-z$_][0-9a-zA-Z$_]*";var RE_MODULE_IDENT="`?[A-Z$_][0-9a-zA-Z$_]*";var RE_PARAM_TYPEPARAM="'?[a-z$_][0-9a-z$_]*";var RE_PARAM_TYPE="s*:s*[a-z$_][0-9a-z$_]*((s*("+RE_PARAM_TYPEPARAM+"s*(,"+RE_PARAM_TYPEPARAM+")*)?s*))?";var RE_PARAM=RE_IDENT+"("+RE_PARAM_TYPE+")?("+RE_PARAM_TYPE+")?";var RE_OPERATOR="("+orReValues(["||","&&","++","**","+.","*","/","*.","/.","...","|>"])+"|==|===)";var RE_OPERATOR_SPACED="\\s+"+RE_OPERATOR+"\\s+";var KEYWORDS={keyword:"and as asr assert begin class constraint do done downto else end exception external"+"for fun function functor if in include inherit initializer"+"land lazy let lor lsl lsr lxor match method mod module mutable new nonrec"+"object of open or private rec sig struct then to try type val virtual when while with",built_in:"array bool bytes char exn|5 float int int32 int64 list lazy_t|5 nativeint|5 ref string unit ",literal:"true false"};var RE_NUMBER="\\b(0[xX][a-fA-F0-9_]+[Lln]?|"+"0[oO][0-7_]+[Lln]?|"+"0[bB][01_]+[Lln]?|"+"[0-9][0-9_]*([Lln]|(\\.[0-9_]*)?([eE][-+]?[0-9_]+)?)?)";var NUMBER_MODE={className:"number",relevance:0,variants:[{begin:RE_NUMBER},{begin:"\\(\\-"+RE_NUMBER+"\\)"}]};var OPERATOR_MODE={className:"operator",relevance:0,begin:RE_OPERATOR};var LIST_CONTENTS_MODES=[{className:"identifier",relevance:0,begin:RE_IDENT},OPERATOR_MODE,NUMBER_MODE];var MODULE_ACCESS_CONTENTS=[hljs.QUOTE_STRING_MODE,OPERATOR_MODE,{className:"module",begin:"\\b"+RE_MODULE_IDENT,returnBegin:true,end:".",contains:[{className:"identifier",begin:RE_MODULE_IDENT,relevance:0}]}];var PARAMS_CONTENTS=[{className:"module",begin:"\\b"+RE_MODULE_IDENT,returnBegin:true,end:".",relevance:0,contains:[{className:"identifier",begin:RE_MODULE_IDENT,relevance:0}]}];var PARAMS_MODE={begin:RE_IDENT,end:"(,|\\n|\\))",relevance:0,contains:[OPERATOR_MODE,{className:"typing",begin:":",end:"(,|\\n)",returnBegin:true,relevance:0,contains:PARAMS_CONTENTS}]};var FUNCTION_BLOCK_MODE={className:"function",relevance:0,keywords:KEYWORDS,variants:[{begin:"\\s(\\(\\.?.*?\\)|"+RE_IDENT+")\\s*=>",end:"\\s*=>",returnBegin:true,relevance:0,contains:[{className:"params",variants:[{begin:RE_IDENT},{begin:RE_PARAM},{begin:/\(\s*\)/}]}]},{begin:"\\s\\(\\.?[^;\\|]*\\)\\s*=>",end:"\\s=>",returnBegin:true,relevance:0,contains:[{className:"params",relevance:0,variants:[PARAMS_MODE]}]},{begin:"\\(\\.\\s"+RE_IDENT+"\\)\\s*=>"}]};MODULE_ACCESS_CONTENTS.push(FUNCTION_BLOCK_MODE);var CONSTRUCTOR_MODE={className:"constructor",begin:RE_MODULE_IDENT+"\\(",end:"\\)",illegal:"\\n",keywords:KEYWORDS,contains:[hljs.QUOTE_STRING_MODE,OPERATOR_MODE,{className:"params",begin:"\\b"+RE_IDENT}]};var PATTERN_MATCH_BLOCK_MODE={className:"pattern-match",begin:"\\|",returnBegin:true,keywords:KEYWORDS,end:"=>",relevance:0,contains:[CONSTRUCTOR_MODE,OPERATOR_MODE,{relevance:0,className:"constructor",begin:RE_MODULE_IDENT}]};var MODULE_ACCESS_MODE={className:"module-access",keywords:KEYWORDS,returnBegin:true,variants:[{begin:"\\b("+RE_MODULE_IDENT+"\\.)+"+RE_IDENT},{begin:"\\b("+RE_MODULE_IDENT+"\\.)+\\(",end:"\\)",returnBegin:true,contains:[FUNCTION_BLOCK_MODE,{begin:"\\(",end:"\\)",skip:true}].concat(MODULE_ACCESS_CONTENTS)},{begin:"\\b("+RE_MODULE_IDENT+"\\.)+{",end:"}"}],contains:MODULE_ACCESS_CONTENTS};PARAMS_CONTENTS.push(MODULE_ACCESS_MODE);return{aliases:["re"],keywords:KEYWORDS,illegal:"(:\\-|:=|\\${|\\+=)",contains:[hljs.COMMENT("/\\*","\\*/",{illegal:"^(\\#,\\/\\/)"}),{className:"character",begin:"'(\\\\[^']+|[^'])'",illegal:"\\n",relevance:0},hljs.QUOTE_STRING_MODE,{className:"literal",begin:"\\(\\)",relevance:0},{className:"literal",begin:"\\[\\|",end:"\\|\\]",relevance:0,contains:LIST_CONTENTS_MODES},{className:"literal",begin:"\\[",end:"\\]",relevance:0,contains:LIST_CONTENTS_MODES},CONSTRUCTOR_MODE,{className:"operator",begin:RE_OPERATOR_SPACED,illegal:"\\-\\->",relevance:0},NUMBER_MODE,hljs.C_LINE_COMMENT_MODE,PATTERN_MATCH_BLOCK_MODE,FUNCTION_BLOCK_MODE,{className:"module-def",begin:"\\bmodule\\s+"+RE_IDENT+"\\s+"+RE_MODULE_IDENT+"\\s+=\\s+{",end:"}",returnBegin:true,keywords:KEYWORDS,relevance:0,contains:[{className:"module",relevance:0,begin:RE_MODULE_IDENT},{begin:"{",end:"}",skip:true}].concat(MODULE_ACCESS_CONTENTS)},MODULE_ACCESS_MODE]}});hljs.registerLanguage("maxima",function(hljs){var KEYWORDS="if then else elseif for thru do while unless step in and or not";var LITERALS="true false unknown inf minf ind und %e %i %pi %phi %gamma";var BUILTIN_FUNCTIONS=" abasep abs absint absolute_real_time acos acosh acot acoth acsc acsch activate"+" addcol add_edge add_edges addmatrices addrow add_vertex add_vertices adjacency_matrix"+" adjoin adjoint af agd airy airy_ai airy_bi airy_dai airy_dbi algsys alg_type"+" alias allroots alphacharp alphanumericp amortization %and annuity_fv"+" annuity_pv antid antidiff AntiDifference append appendfile apply apply1 apply2"+" applyb1 apropos args arit_amortization arithmetic arithsum array arrayapply"+" arrayinfo arraymake arraysetapply ascii asec asech asin asinh askinteger"+" asksign assoc assoc_legendre_p assoc_legendre_q assume assume_external_byte_order"+" asympa at atan atan2 atanh atensimp atom atvalue augcoefmatrix augmented_lagrangian_method"+" av average_degree backtrace bars barsplot barsplot_description base64 base64_decode"+" bashindices batch batchload bc2 bdvac belln benefit_cost bern bernpoly bernstein_approx"+" bernstein_expand bernstein_poly bessel bessel_i bessel_j bessel_k bessel_simplify"+" bessel_y beta beta_incomplete beta_incomplete_generalized beta_incomplete_regularized"+" bezout bfallroots bffac bf_find_root bf_fmin_cobyla bfhzeta bfloat bfloatp"+" bfpsi bfpsi0 bfzeta biconnected_components bimetric binomial bipartition"+" block blockmatrixp bode_gain bode_phase bothcoef box boxplot boxplot_description"+" break bug_report build_info|10 buildq build_sample burn cabs canform canten"+" cardinality carg cartan cartesian_product catch cauchy_matrix cbffac cdf_bernoulli"+" cdf_beta cdf_binomial cdf_cauchy cdf_chi2 cdf_continuous_uniform cdf_discrete_uniform"+" cdf_exp cdf_f cdf_gamma cdf_general_finite_discrete cdf_geometric cdf_gumbel"+" cdf_hypergeometric cdf_laplace cdf_logistic cdf_lognormal cdf_negative_binomial"+" cdf_noncentral_chi2 cdf_noncentral_student_t cdf_normal cdf_pareto cdf_poisson"+" cdf_rank_sum cdf_rayleigh cdf_signed_rank cdf_student_t cdf_weibull cdisplay"+" ceiling central_moment cequal cequalignore cf cfdisrep cfexpand cgeodesic"+" cgreaterp cgreaterpignore changename changevar chaosgame charat charfun charfun2"+" charlist charp charpoly chdir chebyshev_t chebyshev_u checkdiv check_overlaps"+" chinese cholesky christof chromatic_index chromatic_number cint circulant_graph"+" clear_edge_weight clear_rules clear_vertex_label clebsch_gordan clebsch_graph"+" clessp clesspignore close closefile cmetric coeff coefmatrix cograd col collapse"+" collectterms columnop columnspace columnswap columnvector combination combine"+" comp2pui compare compfile compile compile_file complement_graph complete_bipartite_graph"+" complete_graph complex_number_p components compose_functions concan concat"+" conjugate conmetderiv connected_components connect_vertices cons constant"+" constantp constituent constvalue cont2part content continuous_freq contortion"+" contour_plot contract contract_edge contragrad contrib_ode convert coord"+" copy copy_file copy_graph copylist copymatrix cor cos cosh cot coth cov cov1"+" covdiff covect covers crc24sum create_graph create_list csc csch csetup cspline"+" ctaylor ct_coordsys ctransform ctranspose cube_graph cuboctahedron_graph"+" cunlisp cv cycle_digraph cycle_graph cylindrical days360 dblint deactivate"+" declare declare_constvalue declare_dimensions declare_fundamental_dimensions"+" declare_fundamental_units declare_qty declare_translated declare_unit_conversion"+" declare_units declare_weights decsym defcon define define_alt_display define_variable"+" defint defmatch defrule defstruct deftaylor degree_sequence del delete deleten"+" delta demo demoivre denom depends derivdegree derivlist describe desolve"+" determinant dfloat dgauss_a dgauss_b dgeev dgemm dgeqrf dgesv dgesvd diag"+" diagmatrix diag_matrix diagmatrixp diameter diff digitcharp dimacs_export"+" dimacs_import dimension dimensionless dimensions dimensions_as_list direct"+" directory discrete_freq disjoin disjointp disolate disp dispcon dispform"+" dispfun dispJordan display disprule dispterms distrib divide divisors divsum"+" dkummer_m dkummer_u dlange dodecahedron_graph dotproduct dotsimp dpart"+" draw draw2d draw3d drawdf draw_file draw_graph dscalar echelon edge_coloring"+" edge_connectivity edges eigens_by_jacobi eigenvalues eigenvectors eighth"+" einstein eivals eivects elapsed_real_time elapsed_run_time ele2comp ele2polynome"+" ele2pui elem elementp elevation_grid elim elim_allbut eliminate eliminate_using"+" ellipse elliptic_e elliptic_ec elliptic_eu elliptic_f elliptic_kc elliptic_pi"+" ematrix empty_graph emptyp endcons entermatrix entertensor entier equal equalp"+" equiv_classes erf erfc erf_generalized erfi errcatch error errormsg errors"+" euler ev eval_string evenp every evolution evolution2d evundiff example exp"+" expand expandwrt expandwrt_factored expint expintegral_chi expintegral_ci"+" expintegral_e expintegral_e1 expintegral_ei expintegral_e_simplify expintegral_li"+" expintegral_shi expintegral_si explicit explose exponentialize express expt"+" exsec extdiff extract_linear_equations extremal_subset ezgcd %f f90 facsum"+" factcomb factor factorfacsum factorial factorout factorsum facts fast_central_elements"+" fast_linsolve fasttimes featurep fernfale fft fib fibtophi fifth filename_merge"+" file_search file_type fillarray findde find_root find_root_abs find_root_error"+" find_root_rel first fix flatten flength float floatnump floor flower_snark"+" flush flush1deriv flushd flushnd flush_output fmin_cobyla forget fortran"+" fourcos fourexpand fourier fourier_elim fourint fourintcos fourintsin foursimp"+" foursin fourth fposition frame_bracket freeof freshline fresnel_c fresnel_s"+" from_adjacency_matrix frucht_graph full_listify fullmap fullmapl fullratsimp"+" fullratsubst fullsetify funcsolve fundamental_dimensions fundamental_units"+" fundef funmake funp fv g0 g1 gamma gamma_greek gamma_incomplete gamma_incomplete_generalized"+" gamma_incomplete_regularized gauss gauss_a gauss_b gaussprob gcd gcdex gcdivide"+" gcfac gcfactor gd generalized_lambert_w genfact gen_laguerre genmatrix gensym"+" geo_amortization geo_annuity_fv geo_annuity_pv geomap geometric geometric_mean"+" geosum get getcurrentdirectory get_edge_weight getenv get_lu_factors get_output_stream_string"+" get_pixel get_plot_option get_tex_environment get_tex_environment_default"+" get_vertex_label gfactor gfactorsum ggf girth global_variances gn gnuplot_close"+" gnuplot_replot gnuplot_reset gnuplot_restart gnuplot_start go Gosper GosperSum"+" gr2d gr3d gradef gramschmidt graph6_decode graph6_encode graph6_export graph6_import"+" graph_center graph_charpoly graph_eigenvalues graph_flow graph_order graph_periphery"+" graph_product graph_size graph_union great_rhombicosidodecahedron_graph great_rhombicuboctahedron_graph"+" grid_graph grind grobner_basis grotzch_graph hamilton_cycle hamilton_path"+" hankel hankel_1 hankel_2 harmonic harmonic_mean hav heawood_graph hermite"+" hessian hgfred hilbertmap hilbert_matrix hipow histogram histogram_description"+" hodge horner hypergeometric i0 i1 %ibes ic1 ic2 ic_convert ichr1 ichr2 icosahedron_graph"+" icosidodecahedron_graph icurvature ident identfor identity idiff idim idummy"+" ieqn %if ifactors iframes ifs igcdex igeodesic_coords ilt image imagpart"+" imetric implicit implicit_derivative implicit_plot indexed_tensor indices"+" induced_subgraph inferencep inference_result infix info_display init_atensor"+" init_ctensor in_neighbors innerproduct inpart inprod inrt integerp integer_partitions"+" integrate intersect intersection intervalp intopois intosum invariant1 invariant2"+" inverse_fft inverse_jacobi_cd inverse_jacobi_cn inverse_jacobi_cs inverse_jacobi_dc"+" inverse_jacobi_dn inverse_jacobi_ds inverse_jacobi_nc inverse_jacobi_nd inverse_jacobi_ns"+" inverse_jacobi_sc inverse_jacobi_sd inverse_jacobi_sn invert invert_by_adjoint"+" invert_by_lu inv_mod irr is is_biconnected is_bipartite is_connected is_digraph"+" is_edge_in_graph is_graph is_graph_or_digraph ishow is_isomorphic isolate"+" isomorphism is_planar isqrt isreal_p is_sconnected is_tree is_vertex_in_graph"+" items_inference %j j0 j1 jacobi jacobian jacobi_cd jacobi_cn jacobi_cs jacobi_dc"+" jacobi_dn jacobi_ds jacobi_nc jacobi_nd jacobi_ns jacobi_p jacobi_sc jacobi_sd"+" jacobi_sn JF jn join jordan julia julia_set julia_sin %k kdels kdelta kill"+" killcontext kostka kron_delta kronecker_product kummer_m kummer_u kurtosis"+" kurtosis_bernoulli kurtosis_beta kurtosis_binomial kurtosis_chi2 kurtosis_continuous_uniform"+" kurtosis_discrete_uniform kurtosis_exp kurtosis_f kurtosis_gamma kurtosis_general_finite_discrete"+" kurtosis_geometric kurtosis_gumbel kurtosis_hypergeometric kurtosis_laplace"+" kurtosis_logistic kurtosis_lognormal kurtosis_negative_binomial kurtosis_noncentral_chi2"+" kurtosis_noncentral_student_t kurtosis_normal kurtosis_pareto kurtosis_poisson"+" kurtosis_rayleigh kurtosis_student_t kurtosis_weibull label labels lagrange"+" laguerre lambda lambert_w laplace laplacian_matrix last lbfgs lc2kdt lcharp"+" lc_l lcm lc_u ldefint ldisp ldisplay legendre_p legendre_q leinstein length"+" let letrules letsimp levi_civita lfreeof lgtreillis lhs li liediff limit"+" Lindstedt linear linearinterpol linear_program linear_regression line_graph"+" linsolve listarray list_correlations listify list_matrix_entries list_nc_monomials"+" listoftens listofvars listp lmax lmin load loadfile local locate_matrix_entry"+" log logcontract log_gamma lopow lorentz_gauge lowercasep lpart lratsubst"+" lreduce lriemann lsquares_estimates lsquares_estimates_approximate lsquares_estimates_exact"+" lsquares_mse lsquares_residual_mse lsquares_residuals lsum ltreillis lu_backsub"+" lucas lu_factor %m macroexpand macroexpand1 make_array makebox makefact makegamma"+" make_graph make_level_picture makelist makeOrders make_poly_continent make_poly_country"+" make_polygon make_random_state make_rgb_picture makeset make_string_input_stream"+" make_string_output_stream make_transform mandelbrot mandelbrot_set map mapatom"+" maplist matchdeclare matchfix mat_cond mat_fullunblocker mat_function mathml_display"+" mat_norm matrix matrixmap matrixp matrix_size mattrace mat_trace mat_unblocker"+" max max_clique max_degree max_flow maximize_lp max_independent_set max_matching"+" maybe md5sum mean mean_bernoulli mean_beta mean_binomial mean_chi2 mean_continuous_uniform"+" mean_deviation mean_discrete_uniform mean_exp mean_f mean_gamma mean_general_finite_discrete"+" mean_geometric mean_gumbel mean_hypergeometric mean_laplace mean_logistic"+" mean_lognormal mean_negative_binomial mean_noncentral_chi2 mean_noncentral_student_t"+" mean_normal mean_pareto mean_poisson mean_rayleigh mean_student_t mean_weibull"+" median median_deviation member mesh metricexpandall mgf1_sha1 min min_degree"+" min_edge_cut minfactorial minimalPoly minimize_lp minimum_spanning_tree minor"+" minpack_lsquares minpack_solve min_vertex_cover min_vertex_cut mkdir mnewton"+" mod mode_declare mode_identity ModeMatrix moebius mon2schur mono monomial_dimensions"+" multibernstein_poly multi_display_for_texinfo multi_elem multinomial multinomial_coeff"+" multi_orbit multiplot_mode multi_pui multsym multthru mycielski_graph nary"+" natural_unit nc_degree ncexpt ncharpoly negative_picture neighbors new newcontext"+" newdet new_graph newline newton new_variable next_prime nicedummies niceindices"+" ninth nofix nonarray noncentral_moment nonmetricity nonnegintegerp nonscalarp"+" nonzeroandfreeof notequal nounify nptetrad npv nroots nterms ntermst"+" nthroot nullity nullspace num numbered_boundaries numberp number_to_octets"+" num_distinct_partitions numerval numfactor num_partitions nusum nzeta nzetai"+" nzetar octets_to_number octets_to_oid odd_girth oddp ode2 ode_check odelin"+" oid_to_octets op opena opena_binary openr openr_binary openw openw_binary"+" operatorp opsubst optimize %or orbit orbits ordergreat ordergreatp orderless"+" orderlessp orthogonal_complement orthopoly_recur orthopoly_weight outermap"+" out_neighbors outofpois pade parabolic_cylinder_d parametric parametric_surface"+" parg parGosper parse_string parse_timedate part part2cont partfrac partition"+" partition_set partpol path_digraph path_graph pathname_directory pathname_name"+" pathname_type pdf_bernoulli pdf_beta pdf_binomial pdf_cauchy pdf_chi2 pdf_continuous_uniform"+" pdf_discrete_uniform pdf_exp pdf_f pdf_gamma pdf_general_finite_discrete"+" pdf_geometric pdf_gumbel pdf_hypergeometric pdf_laplace pdf_logistic pdf_lognormal"+" pdf_negative_binomial pdf_noncentral_chi2 pdf_noncentral_student_t pdf_normal"+" pdf_pareto pdf_poisson pdf_rank_sum pdf_rayleigh pdf_signed_rank pdf_student_t"+" pdf_weibull pearson_skewness permanent permut permutation permutations petersen_graph"+" petrov pickapart picture_equalp picturep piechart piechart_description planar_embedding"+" playback plog plot2d plot3d plotdf ploteq plsquares pochhammer points poisdiff"+" poisexpt poisint poismap poisplus poissimp poissubst poistimes poistrim polar"+" polarform polartorect polar_to_xy poly_add poly_buchberger poly_buchberger_criterion"+" poly_colon_ideal poly_content polydecomp poly_depends_p poly_elimination_ideal"+" poly_exact_divide poly_expand poly_expt poly_gcd polygon poly_grobner poly_grobner_equal"+" poly_grobner_member poly_grobner_subsetp poly_ideal_intersection poly_ideal_polysaturation"+" poly_ideal_polysaturation1 poly_ideal_saturation poly_ideal_saturation1 poly_lcm"+" poly_minimization polymod poly_multiply polynome2ele polynomialp poly_normal_form"+" poly_normalize poly_normalize_list poly_polysaturation_extension poly_primitive_part"+" poly_pseudo_divide poly_reduced_grobner poly_reduction poly_saturation_extension"+" poly_s_polynomial poly_subtract polytocompanion pop postfix potential power_mod"+" powerseries powerset prefix prev_prime primep primes principal_components"+" print printf printfile print_graph printpois printprops prodrac product properties"+" propvars psi psubst ptriangularize pui pui2comp pui2ele pui2polynome pui_direct"+" puireduc push put pv qput qrange qty quad_control quad_qag quad_qagi quad_qagp"+" quad_qags quad_qawc quad_qawf quad_qawo quad_qaws quadrilateral quantile"+" quantile_bernoulli quantile_beta quantile_binomial quantile_cauchy quantile_chi2"+" quantile_continuous_uniform quantile_discrete_uniform quantile_exp quantile_f"+" quantile_gamma quantile_general_finite_discrete quantile_geometric quantile_gumbel"+" quantile_hypergeometric quantile_laplace quantile_logistic quantile_lognormal"+" quantile_negative_binomial quantile_noncentral_chi2 quantile_noncentral_student_t"+" quantile_normal quantile_pareto quantile_poisson quantile_rayleigh quantile_student_t"+" quantile_weibull quartile_skewness quit qunit quotient racah_v racah_w radcan"+" radius random random_bernoulli random_beta random_binomial random_bipartite_graph"+" random_cauchy random_chi2 random_continuous_uniform random_digraph random_discrete_uniform"+" random_exp random_f random_gamma random_general_finite_discrete random_geometric"+" random_graph random_graph1 random_gumbel random_hypergeometric random_laplace"+" random_logistic random_lognormal random_negative_binomial random_network"+" random_noncentral_chi2 random_noncentral_student_t random_normal random_pareto"+" random_permutation random_poisson random_rayleigh random_regular_graph random_student_t"+" random_tournament random_tree random_weibull range rank rat ratcoef ratdenom"+" ratdiff ratdisrep ratexpand ratinterpol rational rationalize ratnumer ratnump"+" ratp ratsimp ratsubst ratvars ratweight read read_array read_binary_array"+" read_binary_list read_binary_matrix readbyte readchar read_hashed_array readline"+" read_list read_matrix read_nested_list readonly read_xpm real_imagpart_to_conjugate"+" realpart realroots rearray rectangle rectform rectform_log_if_constant recttopolar"+" rediff reduce_consts reduce_order region region_boundaries region_boundaries_plus"+" rem remainder remarray rembox remcomps remcon remcoord remfun remfunction"+" remlet remove remove_constvalue remove_dimensions remove_edge remove_fundamental_dimensions"+" remove_fundamental_units remove_plot_option remove_vertex rempart remrule"+" remsym remvalue rename rename_file reset reset_displays residue resolvante"+" resolvante_alternee1 resolvante_bipartite resolvante_diedrale resolvante_klein"+" resolvante_klein3 resolvante_produit_sym resolvante_unitaire resolvante_vierer"+" rest resultant return reveal reverse revert revert2 rgb2level rhs ricci riemann"+" rinvariant risch rk rmdir rncombine romberg room rootscontract round row"+" rowop rowswap rreduce run_testsuite %s save saving scalarp scaled_bessel_i"+" scaled_bessel_i0 scaled_bessel_i1 scalefactors scanmap scatterplot scatterplot_description"+" scene schur2comp sconcat scopy scsimp scurvature sdowncase sec sech second"+" sequal sequalignore set_alt_display setdifference set_draw_defaults set_edge_weight"+" setelmx setequalp setify setp set_partitions set_plot_option set_prompt set_random_state"+" set_tex_environment set_tex_environment_default setunits setup_autoload set_up_dot_simplifications"+" set_vertex_label seventh sexplode sf sha1sum sha256sum shortest_path shortest_weighted_path"+" show showcomps showratvars sierpinskiale sierpinskimap sign signum similaritytransform"+" simp_inequality simplify_sum simplode simpmetderiv simtran sin sinh sinsert"+" sinvertcase sixth skewness skewness_bernoulli skewness_beta skewness_binomial"+" skewness_chi2 skewness_continuous_uniform skewness_discrete_uniform skewness_exp"+" skewness_f skewness_gamma skewness_general_finite_discrete skewness_geometric"+" skewness_gumbel skewness_hypergeometric skewness_laplace skewness_logistic"+" skewness_lognormal skewness_negative_binomial skewness_noncentral_chi2 skewness_noncentral_student_t"+" skewness_normal skewness_pareto skewness_poisson skewness_rayleigh skewness_student_t"+" skewness_weibull slength smake small_rhombicosidodecahedron_graph small_rhombicuboctahedron_graph"+" smax smin smismatch snowmap snub_cube_graph snub_dodecahedron_graph solve"+" solve_rec solve_rec_rat some somrac sort sparse6_decode sparse6_encode sparse6_export"+" sparse6_import specint spherical spherical_bessel_j spherical_bessel_y spherical_hankel1"+" spherical_hankel2 spherical_harmonic spherical_to_xyz splice split sposition"+" sprint sqfr sqrt sqrtdenest sremove sremovefirst sreverse ssearch ssort sstatus"+" ssubst ssubstfirst staircase standardize standardize_inverse_trig starplot"+" starplot_description status std std1 std_bernoulli std_beta std_binomial"+" std_chi2 std_continuous_uniform std_discrete_uniform std_exp std_f std_gamma"+" std_general_finite_discrete std_geometric std_gumbel std_hypergeometric std_laplace"+" std_logistic std_lognormal std_negative_binomial std_noncentral_chi2 std_noncentral_student_t"+" std_normal std_pareto std_poisson std_rayleigh std_student_t std_weibull"+" stemplot stirling stirling1 stirling2 strim striml strimr string stringout"+" stringp strong_components struve_h struve_l sublis sublist sublist_indices"+" submatrix subsample subset subsetp subst substinpart subst_parallel substpart"+" substring subvar subvarp sum sumcontract summand_to_rec supcase supcontext"+" symbolp symmdifference symmetricp system take_channel take_inference tan"+" tanh taylor taylorinfo taylorp taylor_simplifier taytorat tcl_output tcontract"+" tellrat tellsimp tellsimpafter tentex tenth test_mean test_means_difference"+" test_normality test_proportion test_proportions_difference test_rank_sum"+" test_sign test_signed_rank test_variance test_variance_ratio tex tex1 tex_display"+" texput %th third throw time timedate timer timer_info tldefint tlimit todd_coxeter"+" toeplitz tokens to_lisp topological_sort to_poly to_poly_solve totaldisrep"+" totalfourier totient tpartpol trace tracematrix trace_options transform_sample"+" translate translate_file transpose treefale tree_reduce treillis treinat"+" triangle triangularize trigexpand trigrat trigreduce trigsimp trunc truncate"+" truncated_cube_graph truncated_dodecahedron_graph truncated_icosahedron_graph"+" truncated_tetrahedron_graph tr_warnings_get tube tutte_graph ueivects uforget"+" ultraspherical underlying_graph undiff union unique uniteigenvectors unitp"+" units unit_step unitvector unorder unsum untellrat untimer"+" untrace uppercasep uricci uriemann uvect vandermonde_matrix var var1 var_bernoulli"+" var_beta var_binomial var_chi2 var_continuous_uniform var_discrete_uniform"+" var_exp var_f var_gamma var_general_finite_discrete var_geometric var_gumbel"+" var_hypergeometric var_laplace var_logistic var_lognormal var_negative_binomial"+" var_noncentral_chi2 var_noncentral_student_t var_normal var_pareto var_poisson"+" var_rayleigh var_student_t var_weibull vector vectorpotential vectorsimp"+" verbify vers vertex_coloring vertex_connectivity vertex_degree vertex_distance"+" vertex_eccentricity vertex_in_degree vertex_out_degree vertices vertices_to_cycle"+" vertices_to_path %w weyl wheel_graph wiener_index wigner_3j wigner_6j"+" wigner_9j with_stdout write_binary_data writebyte write_data writefile wronskian"+" xreduce xthru %y Zeilberger zeroequiv zerofor zeromatrix zeromatrixp zeta"+" zgeev zheev zlange zn_add_table zn_carmichael_lambda zn_characteristic_factors"+" zn_determinant zn_factor_generators zn_invert_by_lu zn_log zn_mult_table"+" absboxchar activecontexts adapt_depth additive adim aform algebraic"+" algepsilon algexact aliases allbut all_dotsimp_denoms allocation allsym alphabetic"+" animation antisymmetric arrays askexp assume_pos assume_pos_pred assumescalar"+" asymbol atomgrad atrig1 axes axis_3d axis_bottom axis_left axis_right axis_top"+" azimuth background background_color backsubst berlefact bernstein_explicit"+" besselexpand beta_args_sum_to_integer beta_expand bftorat bftrunc bindtest"+" border boundaries_array box boxchar breakup %c capping cauchysum cbrange"+" cbtics center cflength cframe_flag cnonmet_flag color color_bar color_bar_tics"+" colorbox columns commutative complex cone context contexts contour contour_levels"+" cosnpiflag ctaypov ctaypt ctayswitch ctayvar ct_coords ctorsion_flag ctrgsimp"+" cube current_let_rule_package cylinder data_file_name debugmode decreasing"+" default_let_rule_package delay dependencies derivabbrev derivsubst detout"+" diagmetric diff dim dimensions dispflag display2d|10 display_format_internal"+" distribute_over doallmxops domain domxexpt domxmxops domxnctimes dontfactor"+" doscmxops doscmxplus dot0nscsimp dot0simp dot1simp dotassoc dotconstrules"+" dotdistrib dotexptsimp dotident dotscrules draw_graph_program draw_realpart"+" edge_color edge_coloring edge_partition edge_type edge_width %edispflag"+" elevation %emode endphi endtheta engineering_format_floats enhanced3d %enumer"+" epsilon_lp erfflag erf_representation errormsg error_size error_syms error_type"+" %e_to_numlog eval even evenfun evflag evfun ev_point expandwrt_denom expintexpand"+" expintrep expon expop exptdispflag exptisolate exptsubst facexpand facsum_combine"+" factlim factorflag factorial_expand factors_only fb feature features"+" file_name file_output_append file_search_demo file_search_lisp file_search_maxima|10"+" file_search_tests file_search_usage file_type_lisp file_type_maxima|10 fill_color"+" fill_density filled_func fixed_vertices flipflag float2bf font font_size"+" fortindent fortspaces fpprec fpprintprec functions gamma_expand gammalim"+" gdet genindex gensumnum GGFCFMAX GGFINFINITY globalsolve gnuplot_command"+" gnuplot_curve_styles gnuplot_curve_titles gnuplot_default_term_command gnuplot_dumb_term_command"+" gnuplot_file_args gnuplot_file_name gnuplot_out_file gnuplot_pdf_term_command"+" gnuplot_pm3d gnuplot_png_term_command gnuplot_postamble gnuplot_preamble"+" gnuplot_ps_term_command gnuplot_svg_term_command gnuplot_term gnuplot_view_args"+" Gosper_in_Zeilberger gradefs grid grid2d grind halfangles head_angle head_both"+" head_length head_type height hypergeometric_representation %iargs ibase"+" icc1 icc2 icounter idummyx ieqnprint ifb ifc1 ifc2 ifg ifgi ifr iframe_bracket_form"+" ifri igeowedge_flag ikt1 ikt2 imaginary inchar increasing infeval"+" infinity inflag infolists inm inmc1 inmc2 intanalysis integer integervalued"+" integrate_use_rootsof integration_constant integration_constant_counter interpolate_color"+" intfaclim ip_grid ip_grid_in irrational isolate_wrt_times iterations itr"+" julia_parameter %k1 %k2 keepfloat key key_pos kinvariant kt label label_alignment"+" label_orientation labels lassociative lbfgs_ncorrections lbfgs_nfeval_max"+" leftjust legend letrat let_rule_packages lfg lg lhospitallim limsubst linear"+" linear_solver linechar linel|10 linenum line_type linewidth line_width linsolve_params"+" linsolvewarn lispdisp listarith listconstvars listdummyvars lmxchar load_pathname"+" loadprint logabs logarc logcb logconcoeffp logexpand lognegint logsimp logx"+" logx_secondary logy logy_secondary logz lriem m1pbranch macroexpansion macros"+" mainvar manual_demo maperror mapprint matrix_element_add matrix_element_mult"+" matrix_element_transpose maxapplydepth maxapplyheight maxima_tempdir|10 maxima_userdir|10"+" maxnegex MAX_ORD maxposex maxpsifracdenom maxpsifracnum maxpsinegint maxpsiposint"+" maxtayorder mesh_lines_color method mod_big_prime mode_check_errorp"+" mode_checkp mode_check_warnp mod_test mod_threshold modular_linear_solver"+" modulus multiplicative multiplicities myoptions nary negdistrib negsumdispflag"+" newline newtonepsilon newtonmaxiter nextlayerfactor niceindicespref nm nmc"+" noeval nolabels nonegative_lp noninteger nonscalar noun noundisp nouns np"+" npi nticks ntrig numer numer_pbranch obase odd oddfun opacity opproperties"+" opsubst optimprefix optionset orientation origin orthopoly_returns_intervals"+" outative outchar packagefile palette partswitch pdf_file pfeformat phiresolution"+" %piargs piece pivot_count_sx pivot_max_sx plot_format plot_options plot_realpart"+" png_file pochhammer_max_index points pointsize point_size points_joined point_type"+" poislim poisson poly_coefficient_ring poly_elimination_order polyfactor poly_grobner_algorithm"+" poly_grobner_debug poly_monomial_order poly_primary_elimination_order poly_return_term_list"+" poly_secondary_elimination_order poly_top_reduction_only posfun position"+" powerdisp pred prederror primep_number_of_tests product_use_gamma program"+" programmode promote_float_to_bigfloat prompt proportional_axes props psexpand"+" ps_file radexpand radius radsubstflag rassociative ratalgdenom ratchristof"+" ratdenomdivide rateinstein ratepsilon ratfac rational ratmx ratprint ratriemann"+" ratsimpexpons ratvarswitch ratweights ratweyl ratwtlvl real realonly redraw"+" refcheck resolution restart resultant ric riem rmxchar %rnum_list rombergabs"+" rombergit rombergmin rombergtol rootsconmode rootsepsilon run_viewer same_xy"+" same_xyz savedef savefactors scalar scalarmatrixp scale scale_lp setcheck"+" setcheckbreak setval show_edge_color show_edges show_edge_type show_edge_width"+" show_id show_label showtime show_vertex_color show_vertex_size show_vertex_type"+" show_vertices show_weight simp simplified_output simplify_products simpproduct"+" simpsum sinnpiflag solvedecomposes solveexplicit solvefactors solvenullwarn"+" solveradcan solvetrigwarn space sparse sphere spring_embedding_depth sqrtdispflag"+" stardisp startphi starttheta stats_numer stringdisp structures style sublis_apply_lambda"+" subnumsimp sumexpand sumsplitfact surface surface_hide svg_file symmetric"+" tab taylordepth taylor_logexpand taylor_order_coefficients taylor_truncate_polynomials"+" tensorkill terminal testsuite_files thetaresolution timer_devalue title tlimswitch"+" tr track transcompile transform transform_xy translate_fast_arrays transparent"+" transrun tr_array_as_ref tr_bound_function_applyp tr_file_tty_messagesp tr_float_can_branch_complex"+" tr_function_call_default trigexpandplus trigexpandtimes triginverses trigsign"+" trivial_solutions tr_numer tr_optimize_max_loop tr_semicompile tr_state_vars"+" tr_warn_bad_function_calls tr_warn_fexpr tr_warn_meval tr_warn_mode"+" tr_warn_undeclared tr_warn_undefined_variable tstep ttyoff tube_extremes"+" ufg ug %unitexpand unit_vectors uric uriem use_fast_arrays user_preamble"+" usersetunits values vect_cross verbose vertex_color vertex_coloring vertex_partition"+" vertex_size vertex_type view warnings weyl width windowname windowtitle wired_surface"+" wireframe xaxis xaxis_color xaxis_secondary xaxis_type xaxis_width xlabel"+" xlabel_secondary xlength xrange xrange_secondary xtics xtics_axis xtics_rotate"+" xtics_rotate_secondary xtics_secondary xtics_secondary_axis xu_grid x_voxel"+" xy_file xyplane xy_scale yaxis yaxis_color yaxis_secondary yaxis_type yaxis_width"+" ylabel ylabel_secondary ylength yrange yrange_secondary ytics ytics_axis"+" ytics_rotate ytics_rotate_secondary ytics_secondary ytics_secondary_axis"+" yv_grid y_voxel yx_ratio zaxis zaxis_color zaxis_type zaxis_width zeroa zerob"+" zerobern zeta%pi zlabel zlabel_rotate zlength zmin zn_primroot_limit zn_primroot_pretest";var SYMBOLS="_ __ %|0 %%|0";return{lexemes:"[A-Za-z_%][0-9A-Za-z_%]*",keywords:{keyword:KEYWORDS,literal:LITERALS,built_in:BUILTIN_FUNCTIONS,symbol:SYMBOLS},contains:[{className:"comment",begin:"/\\*",end:"\\*/",contains:["self"]},hljs.QUOTE_STRING_MODE,{className:"number",relevance:0,variants:[{begin:"\\b(\\d+|\\d+\\.|\\.\\d+|\\d+\\.\\d+)[Ee][-+]?\\d+\\b"},{begin:"\\b(\\d+|\\d+\\.|\\.\\d+|\\d+\\.\\d+)[Bb][-+]?\\d+\\b",relevance:10},{begin:"\\b(\\.\\d+|\\d+\\.\\d+)\\b"},{begin:"\\b(\\d+|0[0-9A-Za-z]+)\\.?\\b"}]}],illegal:/@/}});hljs.registerLanguage("1c",function(hljs){var UNDERSCORE_IDENT_RE="[A-Za-zА-Яа-яёЁ_][A-Za-zА-Яа-яёЁ_0-9]+";var v7_keywords="далее ";var v8_keywords="возврат вызватьисключение выполнить для если и из или иначе иначеесли исключение каждого конецесли "+"конецпопытки конеццикла не новый перейти перем по пока попытка прервать продолжить тогда цикл экспорт ";var KEYWORD=v7_keywords+v8_keywords;var v7_meta_keywords="загрузитьизфайла ";var v8_meta_keywords="вебклиент вместо внешнеесоединение клиент конецобласти мобильноеприложениеклиент мобильноеприложениесервер "+"наклиенте наклиентенасервере наклиентенасерверебезконтекста насервере насерверебезконтекста область перед "+"после сервер толстыйклиентобычноеприложение толстыйклиентуправляемоеприложение тонкийклиент ";var METAKEYWORD=v7_meta_keywords+v8_meta_keywords;var v7_system_constants="разделительстраниц разделительстрок символтабуляции ";var v7_global_context_methods="ansitooem oemtoansi ввестивидсубконто ввестиперечисление ввестипериод ввестиплансчетов выбранныйплансчетов "+"датагод датамесяц датачисло заголовоксистемы значениевстроку значениеизстроки каталогиб каталогпользователя "+"кодсимв конгода конецпериодаби конецрассчитанногопериодаби конецстандартногоинтервала конквартала конмесяца "+"коннедели лог лог10 максимальноеколичествосубконто названиеинтерфейса названиенабораправ назначитьвид "+"назначитьсчет найтиссылки началопериодаби началостандартногоинтервала начгода начквартала начмесяца "+"начнедели номерднягода номерднянедели номернеделигода обработкаожидания основнойжурналрасчетов "+"основнойплансчетов основнойязык очиститьокносообщений периодстр получитьвремята получитьдатута "+"получитьдокументта получитьзначенияотбора получитьпозициюта получитьпустоезначение получитьта "+"префиксавтонумерации пропись пустоезначение разм разобратьпозициюдокумента рассчитатьрегистрына "+"рассчитатьрегистрыпо симв создатьобъект статусвозврата стрколичествострок сформироватьпозициюдокумента "+"счетпокоду текущеевремя типзначения типзначениястр установитьтана установитьтапо фиксшаблон шаблон ";var v8_global_context_methods="acos asin atan base64значение base64строка cos exp log log10 pow sin sqrt tan xmlзначение xmlстрока "+"xmlтип xmlтипзнч активноеокно безопасныйрежим безопасныйрежимразделенияданных булево ввестидату ввестизначение "+"ввестистроку ввестичисло возможностьчтенияxml вопрос восстановитьзначение врег выгрузитьжурналрегистрации "+"выполнитьобработкуоповещения выполнитьпроверкуправдоступа вычислить год данныеформывзначение дата день деньгода "+"деньнедели добавитьмесяц заблокироватьданныедляредактирования заблокироватьработупользователя завершитьработусистемы "+"загрузитьвнешнююкомпоненту закрытьсправку записатьjson записатьxml записатьдатуjson записьжурналарегистрации "+"заполнитьзначениясвойств запроситьразрешениепользователя запуститьприложение запуститьсистему зафиксироватьтранзакцию "+"значениевданныеформы значениевстрокувнутр значениевфайл значениезаполнено значениеизстрокивнутр значениеизфайла "+"изxmlтипа импортмоделиxdto имякомпьютера имяпользователя инициализироватьпредопределенныеданные информацияобошибке "+"каталогбиблиотекимобильногоустройства каталогвременныхфайлов каталогдокументов каталогпрограммы кодироватьстроку "+"кодлокализацииинформационнойбазы кодсимвола командасистемы конецгода конецдня конецквартала конецмесяца конецминуты "+"конецнедели конецчаса конфигурациябазыданныхизмененадинамически конфигурацияизменена копироватьданныеформы "+"копироватьфайл краткоепредставлениеошибки лев макс местноевремя месяц мин минута монопольныйрежим найти "+"найтинедопустимыесимволыxml найтиокнопонавигационнойссылке найтипомеченныенаудаление найтипоссылкам найтифайлы "+"началогода началодня началоквартала началомесяца началоминуты началонедели началочаса начатьзапросразрешенияпользователя "+"начатьзапускприложения начатькопированиефайла начатьперемещениефайла начатьподключениевнешнейкомпоненты "+"начатьподключениерасширенияработыскриптографией начатьподключениерасширенияработысфайлами начатьпоискфайлов "+"начатьполучениекаталогавременныхфайлов начатьполучениекаталогадокументов начатьполучениерабочегокаталогаданныхпользователя "+"начатьполучениефайлов начатьпомещениефайла начатьпомещениефайлов начатьсозданиедвоичныхданныхизфайла начатьсозданиекаталога "+"начатьтранзакцию начатьудалениефайлов начатьустановкувнешнейкомпоненты начатьустановкурасширенияработыскриптографией "+"начатьустановкурасширенияработысфайлами неделягода необходимостьзавершениясоединения номерсеансаинформационнойбазы "+"номерсоединенияинформационнойбазы нрег нстр обновитьинтерфейс обновитьнумерациюобъектов обновитьповторноиспользуемыезначения "+"обработкапрерыванияпользователя объединитьфайлы окр описаниеошибки оповестить оповеститьобизменении "+"отключитьобработчикзапросанастроекклиенталицензирования отключитьобработчикожидания отключитьобработчикоповещения "+"открытьзначение открытьиндекссправки открытьсодержаниесправки открытьсправку открытьформу открытьформумодально "+"отменитьтранзакцию очиститьжурналрегистрации очиститьнастройкипользователя очиститьсообщения параметрыдоступа "+"перейтипонавигационнойссылке переместитьфайл подключитьвнешнююкомпоненту "+"подключитьобработчикзапросанастроекклиенталицензирования подключитьобработчикожидания подключитьобработчикоповещения "+"подключитьрасширениеработыскриптографией подключитьрасширениеработысфайлами подробноепредставлениеошибки "+"показатьвводдаты показатьвводзначения показатьвводстроки показатьвводчисла показатьвопрос показатьзначение "+"показатьинформациюобошибке показатьнакарте показатьоповещениепользователя показатьпредупреждение полноеимяпользователя "+"получитьcomобъект получитьxmlтип получитьадреспоместоположению получитьблокировкусеансов получитьвремязавершенияспящегосеанса "+"получитьвремязасыпанияпассивногосеанса получитьвремяожиданияблокировкиданных получитьданныевыбора "+"получитьдополнительныйпараметрклиенталицензирования получитьдопустимыекодылокализации получитьдопустимыечасовыепояса "+"получитьзаголовокклиентскогоприложения получитьзаголовоксистемы получитьзначенияотборажурналарегистрации "+"получитьидентификаторконфигурации получитьизвременногохранилища получитьимявременногофайла "+"получитьимяклиенталицензирования получитьинформациюэкрановклиента получитьиспользованиежурналарегистрации "+"получитьиспользованиесобытияжурналарегистрации получитькраткийзаголовокприложения получитьмакетоформления "+"получитьмаскувсефайлы получитьмаскувсефайлыклиента получитьмаскувсефайлысервера получитьместоположениепоадресу "+"получитьминимальнуюдлинупаролейпользователей получитьнавигационнуюссылку получитьнавигационнуюссылкуинформационнойбазы "+"получитьобновлениеконфигурациибазыданных получитьобновлениепредопределенныхданныхинформационнойбазы получитьобщиймакет "+"получитьобщуюформу получитьокна получитьоперативнуюотметкувремени получитьотключениебезопасногорежима "+"получитьпараметрыфункциональныхопцийинтерфейса получитьполноеимяпредопределенногозначения "+"получитьпредставлениянавигационныхссылок получитьпроверкусложностипаролейпользователей получитьразделительпути "+"получитьразделительпутиклиента получитьразделительпутисервера получитьсеансыинформационнойбазы "+"получитьскоростьклиентскогосоединения получитьсоединенияинформационнойбазы получитьсообщенияпользователю "+"получитьсоответствиеобъектаиформы получитьсоставстандартногоинтерфейсаodata получитьструктурухранениябазыданных "+"получитьтекущийсеансинформационнойбазы получитьфайл получитьфайлы получитьформу получитьфункциональнуюопцию "+"получитьфункциональнуюопциюинтерфейса получитьчасовойпоясинформационнойбазы пользователиос поместитьвовременноехранилище "+"поместитьфайл поместитьфайлы прав праводоступа предопределенноезначение представлениекодалокализации представлениепериода "+"представлениеправа представлениеприложения представлениесобытияжурналарегистрации представлениечасовогопояса предупреждение "+"прекратитьработусистемы привилегированныйрежим продолжитьвызов прочитатьjson прочитатьxml прочитатьдатуjson пустаястрока "+"рабочийкаталогданныхпользователя разблокироватьданныедляредактирования разделитьфайл разорватьсоединениесвнешнимисточникомданных "+"раскодироватьстроку рольдоступна секунда сигнал символ скопироватьжурналрегистрации смещениелетнеговремени "+"смещениестандартноговремени соединитьбуферыдвоичныхданных создатькаталог создатьфабрикуxdto сокрл сокрлп сокрп сообщить "+"состояние сохранитьзначение сохранитьнастройкипользователя сред стрдлина стрзаканчиваетсяна стрзаменить стрнайти стрначинаетсяс "+"строка строкасоединенияинформационнойбазы стрполучитьстроку стрразделить стрсоединить стрсравнить стрчисловхождений "+"стрчислострок стршаблон текущаядата текущаядатасеанса текущаяуниверсальнаядата текущаяуниверсальнаядатавмиллисекундах "+"текущийвариантинтерфейсаклиентскогоприложения текущийвариантосновногошрифтаклиентскогоприложения текущийкодлокализации "+"текущийрежимзапуска текущийязык текущийязыксистемы тип типзнч транзакцияактивна трег удалитьданныеинформационнойбазы "+"удалитьизвременногохранилища удалитьобъекты удалитьфайлы универсальноевремя установитьбезопасныйрежим "+"установитьбезопасныйрежимразделенияданных установитьблокировкусеансов установитьвнешнююкомпоненту "+"установитьвремязавершенияспящегосеанса установитьвремязасыпанияпассивногосеанса установитьвремяожиданияблокировкиданных "+"установитьзаголовокклиентскогоприложения установитьзаголовоксистемы установитьиспользованиежурналарегистрации "+"установитьиспользованиесобытияжурналарегистрации установитькраткийзаголовокприложения "+"установитьминимальнуюдлинупаролейпользователей установитьмонопольныйрежим установитьнастройкиклиенталицензирования "+"установитьобновлениепредопределенныхданныхинформационнойбазы установитьотключениебезопасногорежима "+"установитьпараметрыфункциональныхопцийинтерфейса установитьпривилегированныйрежим "+"установитьпроверкусложностипаролейпользователей установитьрасширениеработыскриптографией "+"установитьрасширениеработысфайлами установитьсоединениесвнешнимисточникомданных установитьсоответствиеобъектаиформы "+"установитьсоставстандартногоинтерфейсаodata установитьчасовойпоясинформационнойбазы установитьчасовойпояссеанса "+"формат цел час часовойпояс часовойпояссеанса число числопрописью этоадресвременногохранилища ";var v8_global_context_property="wsссылки библиотекакартинок библиотекамакетовоформлениякомпоновкиданных библиотекастилей бизнеспроцессы "+"внешниеисточникиданных внешниеобработки внешниеотчеты встроенныепокупки главныйинтерфейс главныйстиль "+"документы доставляемыеуведомления журналыдокументов задачи информацияобинтернетсоединении использованиерабочейдаты "+"историяработыпользователя константы критерииотбора метаданные обработки отображениерекламы отправкадоставляемыхуведомлений "+"отчеты панельзадачос параметрзапуска параметрысеанса перечисления планывидоврасчета планывидовхарактеристик "+"планыобмена планысчетов полнотекстовыйпоиск пользователиинформационнойбазы последовательности проверкавстроенныхпокупок "+"рабочаядата расширенияконфигурации регистрыбухгалтерии регистрынакопления регистрырасчета регистрысведений "+"регламентныезадания сериализаторxdto справочники средствагеопозиционирования средствакриптографии средствамультимедиа "+"средстваотображениярекламы средствапочты средствателефонии фабрикаxdto файловыепотоки фоновыезадания хранилищанастроек "+"хранилищевариантовотчетов хранилищенастроекданныхформ хранилищеобщихнастроек хранилищепользовательскихнастроекдинамическихсписков "+"хранилищепользовательскихнастроекотчетов хранилищесистемныхнастроек ";var BUILTIN=v7_system_constants+v7_global_context_methods+v8_global_context_methods+v8_global_context_property;var v8_system_sets_of_values="webцвета windowsцвета windowsшрифты библиотекакартинок рамкистиля символы цветастиля шрифтыстиля ";var v8_system_enums_interface="автоматическоесохранениеданныхформывнастройках автонумерациявформе автораздвижениесерий "+"анимациядиаграммы вариантвыравниванияэлементовизаголовков вариантуправлениявысотойтаблицы "+"вертикальнаяпрокруткаформы вертикальноеположение вертикальноеположениеэлемента видгруппыформы "+"виддекорацииформы виддополненияэлементаформы видизмененияданных видкнопкиформы видпереключателя "+"видподписейкдиаграмме видполяформы видфлажка влияниеразмеранапузырекдиаграммы горизонтальноеположение "+"горизонтальноеположениеэлемента группировкаколонок группировкаподчиненныхэлементовформы "+"группыиэлементы действиеперетаскивания дополнительныйрежимотображения допустимыедействияперетаскивания "+"интервалмеждуэлементамиформы использованиевывода использованиеполосыпрокрутки "+"используемоезначениеточкибиржевойдиаграммы историявыборапривводе источникзначенийоситочекдиаграммы "+"источникзначенияразмерапузырькадиаграммы категориягруппыкоманд максимумсерий начальноеотображениедерева "+"начальноеотображениесписка обновлениетекстаредактирования ориентациядендрограммы ориентациядиаграммы "+"ориентацияметокдиаграммы ориентацияметоксводнойдиаграммы ориентацияэлементаформы отображениевдиаграмме "+"отображениевлегендедиаграммы отображениегруппыкнопок отображениезаголовкашкалыдиаграммы "+"отображениезначенийсводнойдиаграммы отображениезначенияизмерительнойдиаграммы "+"отображениеинтерваладиаграммыганта отображениекнопки отображениекнопкивыбора отображениеобсужденийформы "+"отображениеобычнойгруппы отображениеотрицательныхзначенийпузырьковойдиаграммы отображениепанелипоиска "+"отображениеподсказки отображениепредупрежденияприредактировании отображениеразметкиполосырегулирования "+"отображениестраницформы отображениетаблицы отображениетекстазначениядиаграммыганта "+"отображениеуправленияобычнойгруппы отображениефигурыкнопки палитрацветовдиаграммы поведениеобычнойгруппы "+"поддержкамасштабадендрограммы поддержкамасштабадиаграммыганта поддержкамасштабасводнойдиаграммы "+"поисквтаблицепривводе положениезаголовкаэлементаформы положениекартинкикнопкиформы "+"положениекартинкиэлементаграфическойсхемы положениекоманднойпанелиформы положениекоманднойпанелиэлементаформы "+"положениеопорнойточкиотрисовки положениеподписейкдиаграмме положениеподписейшкалызначенийизмерительнойдиаграммы "+"положениесостоянияпросмотра положениестрокипоиска положениетекстасоединительнойлинии положениеуправленияпоиском "+"положениешкалывремени порядокотображенияточекгоризонтальнойгистограммы порядоксерийвлегендедиаграммы "+"размеркартинки расположениезаголовкашкалыдиаграммы растягиваниеповертикалидиаграммыганта "+"режимавтоотображениясостояния режимвводастроктаблицы режимвыборанезаполненного режимвыделениядаты "+"режимвыделениястрокитаблицы режимвыделениятаблицы режимизмененияразмера режимизменениясвязанногозначения "+"режимиспользованиядиалогапечати режимиспользованияпараметракоманды режиммасштабированияпросмотра "+"режимосновногоокнаклиентскогоприложения режимоткрытияокнаформы режимотображениявыделения "+"режимотображениягеографическойсхемы режимотображениязначенийсерии режимотрисовкисеткиграфическойсхемы "+"режимполупрозрачностидиаграммы режимпробеловдиаграммы режимразмещениянастранице режимредактированияколонки "+"режимсглаживаниядиаграммы режимсглаживанияиндикатора режимсписказадач сквозноевыравнивание "+"сохранениеданныхформывнастройках способзаполнениятекстазаголовкашкалыдиаграммы "+"способопределенияограничивающегозначениядиаграммы стандартнаягруппакоманд стандартноеоформление "+"статусоповещенияпользователя стильстрелки типаппроксимациилиниитрендадиаграммы типдиаграммы "+"типединицышкалывремени типимпортасерийслоягеографическойсхемы типлиниигеографическойсхемы типлиниидиаграммы "+"типмаркерагеографическойсхемы типмаркерадиаграммы типобластиоформления "+"типорганизацииисточникаданныхгеографическойсхемы типотображениясериислоягеографическойсхемы "+"типотображенияточечногообъектагеографическойсхемы типотображенияшкалыэлементалегендыгеографическойсхемы "+"типпоискаобъектовгеографическойсхемы типпроекциигеографическойсхемы типразмещенияизмерений "+"типразмещенияреквизитовизмерений типрамкиэлементауправления типсводнойдиаграммы "+"типсвязидиаграммыганта типсоединениязначенийпосериямдиаграммы типсоединенияточекдиаграммы "+"типсоединительнойлинии типстороныэлементаграфическойсхемы типформыотчета типшкалырадарнойдиаграммы "+"факторлиниитрендадиаграммы фигуракнопки фигурыграфическойсхемы фиксациявтаблице форматдняшкалывремени "+"форматкартинки ширинаподчиненныхэлементовформы ";var v8_system_enums_objects_properties="виддвижениябухгалтерии виддвижениянакопления видпериодарегистрарасчета видсчета видточкимаршрутабизнеспроцесса "+"использованиеагрегатарегистранакопления использованиегруппиэлементов использованиережимапроведения "+"использованиесреза периодичностьагрегатарегистранакопления режимавтовремя режимзаписидокумента режимпроведениядокумента ";var v8_system_enums_exchange_plans="авторегистрацияизменений допустимыйномерсообщения отправкаэлементаданных получениеэлементаданных ";var v8_system_enums_tabular_document="использованиерасшифровкитабличногодокумента ориентациястраницы положениеитоговколоноксводнойтаблицы "+"положениеитоговстроксводнойтаблицы положениетекстаотносительнокартинки расположениезаголовкагруппировкитабличногодокумента "+"способчтениязначенийтабличногодокумента типдвустороннейпечати типзаполненияобластитабличногодокумента "+"типкурсоровтабличногодокумента типлиниирисункатабличногодокумента типлинииячейкитабличногодокумента "+"типнаправленияпереходатабличногодокумента типотображениявыделениятабличногодокумента типотображениялинийсводнойтаблицы "+"типразмещениятекстатабличногодокумента типрисункатабличногодокумента типсмещениятабличногодокумента "+"типузоратабличногодокумента типфайлатабличногодокумента точностьпечати чередованиерасположениястраниц ";var v8_system_enums_sheduler="отображениевремениэлементовпланировщика ";var v8_system_enums_formatted_document="типфайлаформатированногодокумента ";var v8_system_enums_query="обходрезультатазапроса типзаписизапроса ";var v8_system_enums_report_builder="видзаполнениярасшифровкипостроителяотчета типдобавленияпредставлений типизмеренияпостроителяотчета типразмещенияитогов ";var v8_system_enums_files="доступкфайлу режимдиалогавыборафайла режимоткрытияфайла ";var v8_system_enums_query_builder="типизмеренияпостроителязапроса ";var v8_system_enums_data_analysis="видданныханализа методкластеризации типединицыинтервалавременианализаданных типзаполнениятаблицырезультатаанализаданных "+"типиспользованиячисловыхзначенийанализаданных типисточникаданныхпоискаассоциаций типколонкианализаданныхдереворешений "+"типколонкианализаданныхкластеризация типколонкианализаданныхобщаястатистика типколонкианализаданныхпоискассоциаций "+"типколонкианализаданныхпоискпоследовательностей типколонкимоделипрогноза типмерырасстоянияанализаданных "+"типотсеченияправилассоциации типполяанализаданных типстандартизациианализаданных типупорядочиванияправилассоциациианализаданных "+"типупорядочиванияшаблоновпоследовательностейанализаданных типупрощениядереварешений ";var v8_system_enums_xml_json_xs_dom_xdto_ws="wsнаправлениепараметра вариантxpathxs вариантзаписидатыjson вариантпростоготипаxs видгруппымоделиxs видфасетаxdto "+"действиепостроителяdom завершенностьпростоготипаxs завершенностьсоставноготипаxs завершенностьсхемыxs запрещенныеподстановкиxs "+"исключениягруппподстановкиxs категорияиспользованияатрибутаxs категорияограниченияидентичностиxs категорияограниченияпространствименxs "+"методнаследованияxs модельсодержимогоxs назначениетипаxml недопустимыеподстановкиxs обработкапробельныхсимволовxs обработкасодержимогоxs "+"ограничениезначенияxs параметрыотбораузловdom переносстрокjson позициявдокументеdom пробельныесимволыxml типатрибутаxml типзначенияjson "+"типканоническогоxml типкомпонентыxs типпроверкиxml типрезультатаdomxpath типузлаdom типузлаxml формаxml формапредставленияxs "+"форматдатыjson экранированиесимволовjson ";var v8_system_enums_data_composition_system="видсравнениякомпоновкиданных действиеобработкирасшифровкикомпоновкиданных направлениесортировкикомпоновкиданных "+"расположениевложенныхэлементоврезультатакомпоновкиданных расположениеитоговкомпоновкиданных расположениегруппировкикомпоновкиданных "+"расположениеполейгруппировкикомпоновкиданных расположениеполякомпоновкиданных расположениереквизитовкомпоновкиданных "+"расположениересурсовкомпоновкиданных типбухгалтерскогоостаткакомпоновкиданных типвыводатекстакомпоновкиданных "+"типгруппировкикомпоновкиданных типгруппыэлементовотборакомпоновкиданных типдополненияпериодакомпоновкиданных "+"типзаголовкаполейкомпоновкиданных типмакетагруппировкикомпоновкиданных типмакетаобластикомпоновкиданных типостаткакомпоновкиданных "+"типпериодакомпоновкиданных типразмещениятекстакомпоновкиданных типсвязинаборовданныхкомпоновкиданных типэлементарезультатакомпоновкиданных "+"расположениелегендыдиаграммыкомпоновкиданных типпримененияотборакомпоновкиданных режимотображенияэлементанастройкикомпоновкиданных "+"режимотображениянастроеккомпоновкиданных состояниеэлементанастройкикомпоновкиданных способвосстановлениянастроеккомпоновкиданных "+"режимкомпоновкирезультата использованиепараметракомпоновкиданных автопозицияресурсовкомпоновкиданных "+"вариантиспользованиягруппировкикомпоновкиданных расположениересурсоввдиаграммекомпоновкиданных фиксациякомпоновкиданных "+"использованиеусловногооформлениякомпоновкиданных ";var v8_system_enums_email="важностьинтернетпочтовогосообщения обработкатекстаинтернетпочтовогосообщения способкодированияинтернетпочтовоговложения "+"способкодированиянеasciiсимволовинтернетпочтовогосообщения типтекстапочтовогосообщения протоколинтернетпочты "+"статусразборапочтовогосообщения ";var v8_system_enums_logbook="режимтранзакциизаписижурналарегистрации статустранзакциизаписижурналарегистрации уровеньжурналарегистрации ";var v8_system_enums_cryptography="расположениехранилищасертификатовкриптографии режимвключениясертификатовкриптографии режимпроверкисертификатакриптографии "+"типхранилищасертификатовкриптографии ";var v8_system_enums_zip="кодировкаименфайловвzipфайле методсжатияzip методшифрованияzip режимвосстановленияпутейфайловzip режимобработкиподкаталоговzip "+"режимсохраненияпутейzip уровеньсжатияzip ";var v8_system_enums_other="звуковоеоповещение направлениепереходакстроке позициявпотоке порядокбайтов режимблокировкиданных режимуправленияблокировкойданных "+"сервисвстроенныхпокупок состояниефоновогозадания типподписчикадоставляемыхуведомлений уровеньиспользованиязащищенногосоединенияftp ";var v8_system_enums_request_schema="направлениепорядкасхемызапроса типдополненияпериодамисхемызапроса типконтрольнойточкисхемызапроса типобъединениясхемызапроса "+"типпараметрадоступнойтаблицысхемызапроса типсоединениясхемызапроса ";var v8_system_enums_properties_of_metadata_objects="httpметод автоиспользованиеобщегореквизита автопрефиксномеразадачи вариантвстроенногоязыка видиерархии видрегистранакопления "+"видтаблицывнешнегоисточникаданных записьдвиженийприпроведении заполнениепоследовательностей индексирование "+"использованиебазыпланавидоврасчета использованиебыстроговыбора использованиеобщегореквизита использованиеподчинения "+"использованиеполнотекстовогопоиска использованиеразделяемыхданныхобщегореквизита использованиереквизита "+"назначениеиспользованияприложения назначениерасширенияконфигурации направлениепередачи обновлениепредопределенныхданных "+"оперативноепроведение основноепредставлениевидарасчета основноепредставлениевидахарактеристики основноепредставлениезадачи "+"основноепредставлениепланаобмена основноепредставлениесправочника основноепредставлениесчета перемещениеграницыприпроведении "+"периодичностьномерабизнеспроцесса периодичностьномерадокумента периодичностьрегистрарасчета периодичностьрегистрасведений "+"повторноеиспользованиевозвращаемыхзначений полнотекстовыйпоискпривводепостроке принадлежностьобъекта проведение "+"разделениеаутентификацииобщегореквизита разделениеданныхобщегореквизита разделениерасширенийконфигурацииобщегореквизита "+"режимавтонумерацииобъектов режимзаписирегистра режимиспользованиямодальности "+"режимиспользованиясинхронныхвызововрасширенийплатформыивнешнихкомпонент режимповторногоиспользованиясеансов "+"режимполученияданныхвыборапривводепостроке режимсовместимости режимсовместимостиинтерфейса "+"режимуправленияблокировкойданныхпоумолчанию сериикодовпланавидовхарактеристик сериикодовпланасчетов "+"сериикодовсправочника созданиепривводе способвыбора способпоискастрокипривводепостроке способредактирования "+"типданныхтаблицывнешнегоисточникаданных типкодапланавидоврасчета типкодасправочника типмакета типномерабизнеспроцесса "+"типномерадокумента типномеразадачи типформы удалениедвижений ";var v8_system_enums_differents="важностьпроблемыприменениярасширенияконфигурации вариантинтерфейсаклиентскогоприложения вариантмасштабаформклиентскогоприложения "+"вариантосновногошрифтаклиентскогоприложения вариантстандартногопериода вариантстандартнойдатыначала видграницы видкартинки "+"видотображенияполнотекстовогопоиска видрамки видсравнения видцвета видчисловогозначения видшрифта допустимаядлина допустимыйзнак "+"использованиеbyteordermark использованиеметаданныхполнотекстовогопоиска источникрасширенийконфигурации клавиша кодвозвратадиалога "+"кодировкаxbase кодировкатекста направлениепоиска направлениесортировки обновлениепредопределенныхданных обновлениеприизмененииданных "+"отображениепанелиразделов проверказаполнения режимдиалогавопрос режимзапускаклиентскогоприложения режимокругления режимоткрытияформприложения "+"режимполнотекстовогопоиска скоростьклиентскогосоединения состояниевнешнегоисточникаданных состояниеобновленияконфигурациибазыданных "+"способвыборасертификатаwindows способкодированиястроки статуссообщения типвнешнейкомпоненты типплатформы типповеденияклавишиenter "+"типэлементаинформацииовыполненииобновленияконфигурациибазыданных уровеньизоляциитранзакций хешфункция частидаты";var CLASS=v8_system_sets_of_values+v8_system_enums_interface+v8_system_enums_objects_properties+v8_system_enums_exchange_plans+v8_system_enums_tabular_document+v8_system_enums_sheduler+v8_system_enums_formatted_document+v8_system_enums_query+v8_system_enums_report_builder+v8_system_enums_files+v8_system_enums_query_builder+v8_system_enums_data_analysis+v8_system_enums_xml_json_xs_dom_xdto_ws+v8_system_enums_data_composition_system+v8_system_enums_email+v8_system_enums_logbook+v8_system_enums_cryptography+v8_system_enums_zip+v8_system_enums_other+v8_system_enums_request_schema+v8_system_enums_properties_of_metadata_objects+v8_system_enums_differents;var v8_shared_object="comобъект ftpсоединение httpзапрос httpсервисответ httpсоединение wsопределения wsпрокси xbase анализданных аннотацияxs "+"блокировкаданных буфердвоичныхданных включениеxs выражениекомпоновкиданных генераторслучайныхчисел географическаясхема "+"географическиекоординаты графическаясхема группамоделиxs данныерасшифровкикомпоновкиданных двоичныеданные дендрограмма "+"диаграмма диаграммаганта диалогвыборафайла диалогвыборацвета диалогвыборашрифта диалограсписаниярегламентногозадания "+"диалогредактированиястандартногопериода диапазон документdom документhtml документацияxs доставляемоеуведомление "+"записьdom записьfastinfoset записьhtml записьjson записьxml записьzipфайла записьданных записьтекста записьузловdom "+"запрос защищенноесоединениеopenssl значенияполейрасшифровкикомпоновкиданных извлечениетекста импортxs интернетпочта "+"интернетпочтовоесообщение интернетпочтовыйпрофиль интернетпрокси интернетсоединение информациядляприложенияxs "+"использованиеатрибутаxs использованиесобытияжурналарегистрации источникдоступныхнастроеккомпоновкиданных "+"итераторузловdom картинка квалификаторыдаты квалификаторыдвоичныхданных квалификаторыстроки квалификаторычисла "+"компоновщикмакетакомпоновкиданных компоновщикнастроеккомпоновкиданных конструктормакетаоформлениякомпоновкиданных "+"конструкторнастроеккомпоновкиданных конструкторформатнойстроки линия макеткомпоновкиданных макетобластикомпоновкиданных "+"макетоформлениякомпоновкиданных маскаxs менеджеркриптографии наборсхемxml настройкикомпоновкиданных настройкисериализацииjson "+"обработкакартинок обработкарасшифровкикомпоновкиданных обходдереваdom объявлениеатрибутаxs объявлениенотацииxs "+"объявлениеэлементаxs описаниеиспользованиясобытиядоступжурналарегистрации "+"описаниеиспользованиясобытияотказвдоступежурналарегистрации описаниеобработкирасшифровкикомпоновкиданных "+"описаниепередаваемогофайла описаниетипов определениегруппыатрибутовxs определениегруппымоделиxs "+"определениеограниченияидентичностиxs определениепростоготипаxs определениесоставноготипаxs определениетипадокументаdom "+"определенияxpathxs отборкомпоновкиданных пакетотображаемыхдокументов параметрвыбора параметркомпоновкиданных "+"параметрызаписиjson параметрызаписиxml параметрычтенияxml переопределениеxs планировщик полеанализаданных "+"полекомпоновкиданных построительdom построительзапроса построительотчета построительотчетаанализаданных "+"построительсхемxml поток потоквпамяти почта почтовоесообщение преобразованиеxsl преобразованиекканоническомуxml "+"процессорвыводарезультатакомпоновкиданныхвколлекциюзначений процессорвыводарезультатакомпоновкиданныхвтабличныйдокумент "+"процессоркомпоновкиданных разыменовательпространствименdom рамка расписаниерегламентногозадания расширенноеимяxml "+"результатчтенияданных своднаядиаграмма связьпараметравыбора связьпотипу связьпотипукомпоновкиданных сериализаторxdto "+"сертификатклиентаwindows сертификатклиентафайл сертификаткриптографии сертификатыудостоверяющихцентровwindows "+"сертификатыудостоверяющихцентровфайл сжатиеданных системнаяинформация сообщениепользователю сочетаниеклавиш "+"сравнениезначений стандартнаядатаначала стандартныйпериод схемаxml схемакомпоновкиданных табличныйдокумент "+"текстовыйдокумент тестируемоеприложение типданныхxml уникальныйидентификатор фабрикаxdto файл файловыйпоток "+"фасетдлиныxs фасетколичестваразрядовдробнойчастиxs фасетмаксимальноговключающегозначенияxs "+"фасетмаксимальногоисключающегозначенияxs фасетмаксимальнойдлиныxs фасетминимальноговключающегозначенияxs "+"фасетминимальногоисключающегозначенияxs фасетминимальнойдлиныxs фасетобразцаxs фасетобщегоколичестваразрядовxs "+"фасетперечисленияxs фасетпробельныхсимволовxs фильтрузловdom форматированнаястрока форматированныйдокумент "+"фрагментxs хешированиеданных хранилищезначения цвет чтениеfastinfoset чтениеhtml чтениеjson чтениеxml чтениеzipфайла "+"чтениеданных чтениетекста чтениеузловdom шрифт элементрезультатакомпоновкиданных ";var v8_universal_collection="comsafearray деревозначений массив соответствие списокзначений структура таблицазначений фиксированнаяструктура "+"фиксированноесоответствие фиксированныймассив ";var TYPE=v8_shared_object+v8_universal_collection;var LITERAL="null истина ложь неопределено";var NUMBERS=hljs.inherit(hljs.NUMBER_MODE);var STRINGS={className:"string",begin:'"|\\|',end:'"|$',contains:[{begin:'""'}]};var DATE={begin:"'",end:"'",excludeBegin:true,excludeEnd:true,contains:[{className:"number",begin:"\\d{4}([\\.\\\\/:-]?\\d{2}){0,5}"}]};var COMMENTS=hljs.inherit(hljs.C_LINE_COMMENT_MODE);var META={className:"meta",lexemes:UNDERSCORE_IDENT_RE,begin:"#|&",end:"$",keywords:{"meta-keyword":KEYWORD+METAKEYWORD},contains:[COMMENTS]};var SYMBOL={className:"symbol",begin:"~",end:";|:",excludeEnd:true};var FUNCTION={className:"function",lexemes:UNDERSCORE_IDENT_RE,variants:[{begin:"процедура|функция",end:"\\)",keywords:"процедура функция"},{begin:"конецпроцедуры|конецфункции",keywords:"конецпроцедуры конецфункции"}],contains:[{begin:"\\(",end:"\\)",endsParent:true,contains:[{className:"params",lexemes:UNDERSCORE_IDENT_RE,begin:UNDERSCORE_IDENT_RE,end:",",excludeEnd:true,endsWithParent:true,keywords:{keyword:"знач",literal:LITERAL},contains:[NUMBERS,STRINGS,DATE]},COMMENTS]},hljs.inherit(hljs.TITLE_MODE,{begin:UNDERSCORE_IDENT_RE})]};return{case_insensitive:true,lexemes:UNDERSCORE_IDENT_RE,keywords:{keyword:KEYWORD,built_in:BUILTIN,class:CLASS,type:TYPE,literal:LITERAL},contains:[META,FUNCTION,COMMENTS,SYMBOL,NUMBERS,STRINGS,DATE]}});hljs.registerLanguage("asciidoc",function(hljs){return{aliases:["adoc"],contains:[hljs.COMMENT("^/{4,}\\n","\\n/{4,}$",{relevance:10}),hljs.COMMENT("^//","$",{relevance:0}),{className:"title",begin:"^\\.\\w.*$"},{begin:"^[=\\*]{4,}\\n",end:"\\n^[=\\*]{4,}$",relevance:10},{className:"section",relevance:10,variants:[{begin:"^(={1,5}) .+?( \\1)?$"},{begin:"^[^\\[\\]\\n]+?\\n[=\\-~\\^\\+]{2,}$"}]},{className:"meta",begin:"^:.+?:",end:"\\s",excludeEnd:true,relevance:10},{className:"meta",begin:"^\\[.+?\\]$",relevance:0},{className:"quote",begin:"^_{4,}\\n",end:"\\n_{4,}$",relevance:10},{className:"code",begin:"^[\\-\\.]{4,}\\n",end:"\\n[\\-\\.]{4,}$",relevance:10},{begin:"^\\+{4,}\\n",end:"\\n\\+{4,}$",contains:[{begin:"<",end:">",subLanguage:"xml",relevance:0}],relevance:10},{className:"bullet",begin:"^(\\*+|\\-+|\\.+|[^\\n]+?::)\\s+"},{className:"symbol",begin:"^(NOTE|TIP|IMPORTANT|WARNING|CAUTION):\\s+",relevance:10},{className:"strong",begin:"\\B\\*(?![\\*\\s])",end:"(\\n{2}|\\*)",contains:[{begin:"\\\\*\\w",relevance:0}]},{className:"emphasis",begin:"\\B'(?!['\\s])",end:"(\\n{2}|')",contains:[{begin:"\\\\'\\w",relevance:0}],relevance:0},{className:"emphasis",begin:"_(?![_\\s])",end:"(\\n{2}|_)",relevance:0},{className:"string",variants:[{begin:"``.+?''"},{begin:"`.+?'"}]},{className:"code",begin:"(`.+?`|\\+.+?\\+)",relevance:0},{className:"code",begin:"^[ \\t]",end:"$",relevance:0},{begin:"^'{3,}[ \\t]*$",relevance:10},{begin:"(link:)?(http|https|ftp|file|irc|image:?):\\S+\\[.*?\\]",returnBegin:true,contains:[{begin:"(link|image:?):",relevance:0},{className:"link",begin:"\\w",end:"[^\\[]+",relevance:0},{className:"string",begin:"\\[",end:"\\]",excludeBegin:true,excludeEnd:true,relevance:0}],relevance:10}]}});hljs.registerLanguage("flix",function(hljs){var CHAR={className:"string",begin:/'(.|\\[xXuU][a-zA-Z0-9]+)'/};var STRING={className:"string",variants:[{begin:'"',end:'"'}]};var NAME={className:"title",begin:/[^0-9\n\t "'(),.`{}\[\]:;][^\n\t "'(),.`{}\[\]:;]+|[^0-9\n\t "'(),.`{}\[\]:;=]/};var METHOD={className:"function",beginKeywords:"def",end:/[:={\[(\n;]/,excludeEnd:true,contains:[NAME]};return{keywords:{literal:"true false",keyword:"case class def else enum if impl import in lat rel index let match namespace switch type yield with"},contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,CHAR,STRING,METHOD,hljs.C_NUMBER_MODE]}});hljs.registerLanguage("python",function(hljs){var KEYWORDS={keyword:"and elif is global as in if from raise for except finally print import pass return "+"exec else break not with class assert yield try while continue del or def lambda "+"async await nonlocal|10",built_in:"Ellipsis NotImplemented",literal:"False None True"};var PROMPT={className:"meta",begin:/^(>>>|\.\.\.) /};var SUBST={className:"subst",begin:/\{/,end:/\}/,keywords:KEYWORDS,illegal:/#/};var LITERAL_BRACKET={begin:/\{\{/,relevance:0};var STRING={className:"string",contains:[hljs.BACKSLASH_ESCAPE],variants:[{begin:/(u|b)?r?'''/,end:/'''/,contains:[hljs.BACKSLASH_ESCAPE,PROMPT],relevance:10},{begin:/(u|b)?r?"""/,end:/"""/,contains:[hljs.BACKSLASH_ESCAPE,PROMPT],relevance:10},{begin:/(fr|rf|f)'''/,end:/'''/,contains:[hljs.BACKSLASH_ESCAPE,PROMPT,LITERAL_BRACKET,SUBST]},{begin:/(fr|rf|f)"""/,end:/"""/,contains:[hljs.BACKSLASH_ESCAPE,PROMPT,LITERAL_BRACKET,SUBST]},{begin:/(u|r|ur)'/,end:/'/,relevance:10},{begin:/(u|r|ur)"/,end:/"/,relevance:10},{begin:/(b|br)'/,end:/'/},{begin:/(b|br)"/,end:/"/},{begin:/(fr|rf|f)'/,end:/'/,contains:[hljs.BACKSLASH_ESCAPE,LITERAL_BRACKET,SUBST]},{begin:/(fr|rf|f)"/,end:/"/,contains:[hljs.BACKSLASH_ESCAPE,LITERAL_BRACKET,SUBST]},hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE]};var NUMBER={className:"number",relevance:0,variants:[{begin:hljs.BINARY_NUMBER_RE+"[lLjJ]?"},{begin:"\\b(0o[0-7]+)[lLjJ]?"},{begin:hljs.C_NUMBER_RE+"[lLjJ]?"}]};var PARAMS={className:"params",begin:/\(/,end:/\)/,contains:["self",PROMPT,NUMBER,STRING,hljs.HASH_COMMENT_MODE]};SUBST.contains=[STRING,NUMBER,PROMPT];return{aliases:["py","gyp","ipython"],keywords:KEYWORDS,illegal:/(<\/|->|\?)|=>/,contains:[PROMPT,NUMBER,{beginKeywords:"if",relevance:0},STRING,hljs.HASH_COMMENT_MODE,{variants:[{className:"function",beginKeywords:"def"},{className:"class",beginKeywords:"class"}],end:/:/,illegal:/[${=;\n,]/,contains:[hljs.UNDERSCORE_TITLE_MODE,PARAMS,{begin:/->/,endsWithParent:true,keywords:"None"}]},{className:"meta",begin:/^[\t ]*@/,end:/$/},{begin:/\b(print|exec)\(/}]}});hljs.registerLanguage("leaf",function(hljs){return{contains:[{className:"function",begin:"#+"+"[A-Za-z_0-9]*"+"\\(",end:" {",returnBegin:true,excludeEnd:true,contains:[{className:"keyword",begin:"#+"},{className:"title",begin:"[A-Za-z_][A-Za-z_0-9]*"},{className:"params",begin:"\\(",end:"\\)",endsParent:true,contains:[{className:"string",begin:'"',end:'"'},{className:"variable",begin:"[A-Za-z_][A-Za-z_0-9]*"}]}]}]}});hljs.registerLanguage("groovy",function(hljs){return{keywords:{literal:"true false null",keyword:"byte short char int long boolean float double void "+"def as in assert trait "+"super this abstract static volatile transient public private protected synchronized final "+"class interface enum if else for while switch case break default continue "+"throw throws try catch finally implements extends new import package return instanceof"},contains:[hljs.COMMENT("/\\*\\*","\\*/",{relevance:0,contains:[{begin:/\w+@/,relevance:0},{className:"doctag",begin:"@[A-Za-z]+"}]}),hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,{className:"string",begin:'"""',end:'"""'},{className:"string",begin:"'''",end:"'''"},{className:"string",begin:"\\$/",end:"/\\$",relevance:10},hljs.APOS_STRING_MODE,{className:"regexp",begin:/~?\/[^\/\n]+\//,contains:[hljs.BACKSLASH_ESCAPE]},hljs.QUOTE_STRING_MODE,{className:"meta",begin:"^#!/usr/bin/env",end:"$",illegal:"\n"},hljs.BINARY_NUMBER_MODE,{className:"class",beginKeywords:"class interface trait enum",end:"{",illegal:":",contains:[{beginKeywords:"extends implements"},hljs.UNDERSCORE_TITLE_MODE]},hljs.C_NUMBER_MODE,{className:"meta",begin:"@[A-Za-z]+"},{className:"string",begin:/[^\?]{0}[A-Za-z0-9_$]+ *:/},{begin:/\?/,end:/\:/},{className:"symbol",begin:"^\\s*[A-Za-z0-9_$]+:",relevance:0}],illegal:/#|<\//}});hljs.registerLanguage("armasm",function(hljs){return{case_insensitive:true,aliases:["arm"],lexemes:"\\.?"+hljs.IDENT_RE,keywords:{meta:".2byte .4byte .align .ascii .asciz .balign .byte .code .data .else .end .endif .endm .endr .equ .err .exitm .extern .global .hword .if .ifdef .ifndef .include .irp .long .macro .rept .req .section .set .skip .space .text .word .arm .thumb .code16 .code32 .force_thumb .thumb_func .ltorg "+"ALIAS ALIGN ARM AREA ASSERT ATTR CN CODE CODE16 CODE32 COMMON CP DATA DCB DCD DCDU DCDO DCFD DCFDU DCI DCQ DCQU DCW DCWU DN ELIF ELSE END ENDFUNC ENDIF ENDP ENTRY EQU EXPORT EXPORTAS EXTERN FIELD FILL FUNCTION GBLA GBLL GBLS GET GLOBAL IF IMPORT INCBIN INCLUDE INFO KEEP LCLA LCLL LCLS LTORG MACRO MAP MEND MEXIT NOFP OPT PRESERVE8 PROC QN READONLY RELOC REQUIRE REQUIRE8 RLIST FN ROUT SETA SETL SETS SN SPACE SUBT THUMB THUMBX TTL WHILE WEND ",built_in:"r0 r1 r2 r3 r4 r5 r6 r7 r8 r9 r10 r11 r12 r13 r14 r15 "+"pc lr sp ip sl sb fp "+"a1 a2 a3 a4 v1 v2 v3 v4 v5 v6 v7 v8 f0 f1 f2 f3 f4 f5 f6 f7 "+"p0 p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 "+"c0 c1 c2 c3 c4 c5 c6 c7 c8 c9 c10 c11 c12 c13 c14 c15 "+"q0 q1 q2 q3 q4 q5 q6 q7 q8 q9 q10 q11 q12 q13 q14 q15 "+"cpsr_c cpsr_x cpsr_s cpsr_f cpsr_cx cpsr_cxs cpsr_xs cpsr_xsf cpsr_sf cpsr_cxsf "+"spsr_c spsr_x spsr_s spsr_f spsr_cx spsr_cxs spsr_xs spsr_xsf spsr_sf spsr_cxsf "+"s0 s1 s2 s3 s4 s5 s6 s7 s8 s9 s10 s11 s12 s13 s14 s15 "+"s16 s17 s18 s19 s20 s21 s22 s23 s24 s25 s26 s27 s28 s29 s30 s31 "+"d0 d1 d2 d3 d4 d5 d6 d7 d8 d9 d10 d11 d12 d13 d14 d15 "+"d16 d17 d18 d19 d20 d21 d22 d23 d24 d25 d26 d27 d28 d29 d30 d31 "+"{PC} {VAR} {TRUE} {FALSE} {OPT} {CONFIG} {ENDIAN} {CODESIZE} {CPU} {FPU} {ARCHITECTURE} {PCSTOREOFFSET} {ARMASM_VERSION} {INTER} {ROPI} {RWPI} {SWST} {NOSWST} . @"},contains:[{className:"keyword",begin:"\\b("+"adc|"+"(qd?|sh?|u[qh]?)?add(8|16)?|usada?8|(q|sh?|u[qh]?)?(as|sa)x|"+"and|adrl?|sbc|rs[bc]|asr|b[lx]?|blx|bxj|cbn?z|tb[bh]|bic|"+"bfc|bfi|[su]bfx|bkpt|cdp2?|clz|clrex|cmp|cmn|cpsi[ed]|cps|"+"setend|dbg|dmb|dsb|eor|isb|it[te]{0,3}|lsl|lsr|ror|rrx|"+"ldm(([id][ab])|f[ds])?|ldr((s|ex)?[bhd])?|movt?|mvn|mra|mar|"+"mul|[us]mull|smul[bwt][bt]|smu[as]d|smmul|smmla|"+"mla|umlaal|smlal?([wbt][bt]|d)|mls|smlsl?[ds]|smc|svc|sev|"+"mia([bt]{2}|ph)?|mrr?c2?|mcrr2?|mrs|msr|orr|orn|pkh(tb|bt)|rbit|"+"rev(16|sh)?|sel|[su]sat(16)?|nop|pop|push|rfe([id][ab])?|"+"stm([id][ab])?|str(ex)?[bhd]?|(qd?)?sub|(sh?|q|u[qh]?)?sub(8|16)|"+"[su]xt(a?h|a?b(16)?)|srs([id][ab])?|swpb?|swi|smi|tst|teq|"+"wfe|wfi|yield"+")"+"(eq|ne|cs|cc|mi|pl|vs|vc|hi|ls|ge|lt|gt|le|al|hs|lo)?"+"[sptrx]?",end:"\\s"},hljs.COMMENT("[;@]","$",{relevance:0}),hljs.C_BLOCK_COMMENT_MODE,hljs.QUOTE_STRING_MODE,{className:"string",begin:"'",end:"[^\\\\]'",relevance:0},{className:"title",begin:"\\|",end:"\\|",illegal:"\\n",relevance:0},{className:"number",variants:[{begin:"[#$=]?0x[0-9a-f]+"},{begin:"[#$=]?0b[01]+"},{begin:"[#$=]\\d+"},{begin:"\\b\\d+"}],relevance:0},{className:"symbol",variants:[{begin:"^[a-z_\\.\\$][a-z0-9_\\.\\$]+"},{begin:"^\\s*[a-z_\\.\\$][a-z0-9_\\.\\$]+:"},{begin:"[=#]\\w+"}],relevance:0}]}});hljs.registerLanguage("glsl",function(hljs){return{keywords:{keyword:"break continue discard do else for if return while switch case default "+"attribute binding buffer ccw centroid centroid varying coherent column_major const cw "+"depth_any depth_greater depth_less depth_unchanged early_fragment_tests equal_spacing "+"flat fractional_even_spacing fractional_odd_spacing highp in index inout invariant "+"invocations isolines layout line_strip lines lines_adjacency local_size_x local_size_y "+"local_size_z location lowp max_vertices mediump noperspective offset origin_upper_left "+"out packed patch pixel_center_integer point_mode points precise precision quads r11f_g11f_b10f "+"r16 r16_snorm r16f r16i r16ui r32f r32i r32ui r8 r8_snorm r8i r8ui readonly restrict "+"rg16 rg16_snorm rg16f rg16i rg16ui rg32f rg32i rg32ui rg8 rg8_snorm rg8i rg8ui rgb10_a2 "+"rgb10_a2ui rgba16 rgba16_snorm rgba16f rgba16i rgba16ui rgba32f rgba32i rgba32ui rgba8 "+"rgba8_snorm rgba8i rgba8ui row_major sample shared smooth std140 std430 stream triangle_strip "+"triangles triangles_adjacency uniform varying vertices volatile writeonly",type:"atomic_uint bool bvec2 bvec3 bvec4 dmat2 dmat2x2 dmat2x3 dmat2x4 dmat3 dmat3x2 dmat3x3 "+"dmat3x4 dmat4 dmat4x2 dmat4x3 dmat4x4 double dvec2 dvec3 dvec4 float iimage1D iimage1DArray "+"iimage2D iimage2DArray iimage2DMS iimage2DMSArray iimage2DRect iimage3D iimageBuffer"+"iimageCube iimageCubeArray image1D image1DArray image2D image2DArray image2DMS image2DMSArray "+"image2DRect image3D imageBuffer imageCube imageCubeArray int isampler1D isampler1DArray "+"isampler2D isampler2DArray isampler2DMS isampler2DMSArray isampler2DRect isampler3D "+"isamplerBuffer isamplerCube isamplerCubeArray ivec2 ivec3 ivec4 mat2 mat2x2 mat2x3 "+"mat2x4 mat3 mat3x2 mat3x3 mat3x4 mat4 mat4x2 mat4x3 mat4x4 sampler1D sampler1DArray "+"sampler1DArrayShadow sampler1DShadow sampler2D sampler2DArray sampler2DArrayShadow "+"sampler2DMS sampler2DMSArray sampler2DRect sampler2DRectShadow sampler2DShadow sampler3D "+"samplerBuffer samplerCube samplerCubeArray samplerCubeArrayShadow samplerCubeShadow "+"image1D uimage1DArray uimage2D uimage2DArray uimage2DMS uimage2DMSArray uimage2DRect "+"uimage3D uimageBuffer uimageCube uimageCubeArray uint usampler1D usampler1DArray "+"usampler2D usampler2DArray usampler2DMS usampler2DMSArray usampler2DRect usampler3D "+"samplerBuffer usamplerCube usamplerCubeArray uvec2 uvec3 uvec4 vec2 vec3 vec4 void",built_in:"gl_MaxAtomicCounterBindings gl_MaxAtomicCounterBufferSize gl_MaxClipDistances gl_MaxClipPlanes "+"gl_MaxCombinedAtomicCounterBuffers gl_MaxCombinedAtomicCounters gl_MaxCombinedImageUniforms "+"gl_MaxCombinedImageUnitsAndFragmentOutputs gl_MaxCombinedTextureImageUnits gl_MaxComputeAtomicCounterBuffers "+"gl_MaxComputeAtomicCounters gl_MaxComputeImageUniforms gl_MaxComputeTextureImageUnits "+"gl_MaxComputeUniformComponents gl_MaxComputeWorkGroupCount gl_MaxComputeWorkGroupSize "+"gl_MaxDrawBuffers gl_MaxFragmentAtomicCounterBuffers gl_MaxFragmentAtomicCounters "+"gl_MaxFragmentImageUniforms gl_MaxFragmentInputComponents gl_MaxFragmentInputVectors "+"gl_MaxFragmentUniformComponents gl_MaxFragmentUniformVectors gl_MaxGeometryAtomicCounterBuffers "+"gl_MaxGeometryAtomicCounters gl_MaxGeometryImageUniforms gl_MaxGeometryInputComponents "+"gl_MaxGeometryOutputComponents gl_MaxGeometryOutputVertices gl_MaxGeometryTextureImageUnits "+"gl_MaxGeometryTotalOutputComponents gl_MaxGeometryUniformComponents gl_MaxGeometryVaryingComponents "+"gl_MaxImageSamples gl_MaxImageUnits gl_MaxLights gl_MaxPatchVertices gl_MaxProgramTexelOffset "+"gl_MaxTessControlAtomicCounterBuffers gl_MaxTessControlAtomicCounters gl_MaxTessControlImageUniforms "+"gl_MaxTessControlInputComponents gl_MaxTessControlOutputComponents gl_MaxTessControlTextureImageUnits "+"gl_MaxTessControlTotalOutputComponents gl_MaxTessControlUniformComponents "+"gl_MaxTessEvaluationAtomicCounterBuffers gl_MaxTessEvaluationAtomicCounters "+"gl_MaxTessEvaluationImageUniforms gl_MaxTessEvaluationInputComponents gl_MaxTessEvaluationOutputComponents "+"gl_MaxTessEvaluationTextureImageUnits gl_MaxTessEvaluationUniformComponents "+"gl_MaxTessGenLevel gl_MaxTessPatchComponents gl_MaxTextureCoords gl_MaxTextureImageUnits "+"gl_MaxTextureUnits gl_MaxVaryingComponents gl_MaxVaryingFloats gl_MaxVaryingVectors "+"gl_MaxVertexAtomicCounterBuffers gl_MaxVertexAtomicCounters gl_MaxVertexAttribs gl_MaxVertexImageUniforms "+"gl_MaxVertexOutputComponents gl_MaxVertexOutputVectors gl_MaxVertexTextureImageUnits "+"gl_MaxVertexUniformComponents gl_MaxVertexUniformVectors gl_MaxViewports gl_MinProgramTexelOffset "+"gl_BackColor gl_BackLightModelProduct gl_BackLightProduct gl_BackMaterial "+"gl_BackSecondaryColor gl_ClipDistance gl_ClipPlane gl_ClipVertex gl_Color "+"gl_DepthRange gl_EyePlaneQ gl_EyePlaneR gl_EyePlaneS gl_EyePlaneT gl_Fog gl_FogCoord "+"gl_FogFragCoord gl_FragColor gl_FragCoord gl_FragData gl_FragDepth gl_FrontColor "+"gl_FrontFacing gl_FrontLightModelProduct gl_FrontLightProduct gl_FrontMaterial "+"gl_FrontSecondaryColor gl_GlobalInvocationID gl_InstanceID gl_InvocationID gl_Layer gl_LightModel "+"gl_LightSource gl_LocalInvocationID gl_LocalInvocationIndex gl_ModelViewMatrix "+"gl_ModelViewMatrixInverse gl_ModelViewMatrixInverseTranspose gl_ModelViewMatrixTranspose "+"gl_ModelViewProjectionMatrix gl_ModelViewProjectionMatrixInverse gl_ModelViewProjectionMatrixInverseTranspose "+"gl_ModelViewProjectionMatrixTranspose gl_MultiTexCoord0 gl_MultiTexCoord1 gl_MultiTexCoord2 "+"gl_MultiTexCoord3 gl_MultiTexCoord4 gl_MultiTexCoord5 gl_MultiTexCoord6 gl_MultiTexCoord7 "+"gl_Normal gl_NormalMatrix gl_NormalScale gl_NumSamples gl_NumWorkGroups gl_ObjectPlaneQ "+"gl_ObjectPlaneR gl_ObjectPlaneS gl_ObjectPlaneT gl_PatchVerticesIn gl_Point gl_PointCoord "+"gl_PointSize gl_Position gl_PrimitiveID gl_PrimitiveIDIn gl_ProjectionMatrix gl_ProjectionMatrixInverse "+"gl_ProjectionMatrixInverseTranspose gl_ProjectionMatrixTranspose gl_SampleID gl_SampleMask "+"gl_SampleMaskIn gl_SamplePosition gl_SecondaryColor gl_TessCoord gl_TessLevelInner gl_TessLevelOuter "+"gl_TexCoord gl_TextureEnvColor gl_TextureMatrix gl_TextureMatrixInverse gl_TextureMatrixInverseTranspose "+"gl_TextureMatrixTranspose gl_Vertex gl_VertexID gl_ViewportIndex gl_WorkGroupID gl_WorkGroupSize gl_in gl_out "+"EmitStreamVertex EmitVertex EndPrimitive EndStreamPrimitive abs acos acosh all any asin "+"asinh atan atanh atomicAdd atomicAnd atomicCompSwap atomicCounter atomicCounterDecrement "+"atomicCounterIncrement atomicExchange atomicMax atomicMin atomicOr atomicXor barrier "+"bitCount bitfieldExtract bitfieldInsert bitfieldReverse ceil clamp cos cosh cross "+"dFdx dFdy degrees determinant distance dot equal exp exp2 faceforward findLSB findMSB "+"floatBitsToInt floatBitsToUint floor fma fract frexp ftransform fwidth greaterThan "+"greaterThanEqual groupMemoryBarrier imageAtomicAdd imageAtomicAnd imageAtomicCompSwap "+"imageAtomicExchange imageAtomicMax imageAtomicMin imageAtomicOr imageAtomicXor imageLoad "+"imageSize imageStore imulExtended intBitsToFloat interpolateAtCentroid interpolateAtOffset "+"interpolateAtSample inverse inversesqrt isinf isnan ldexp length lessThan lessThanEqual log "+"log2 matrixCompMult max memoryBarrier memoryBarrierAtomicCounter memoryBarrierBuffer "+"memoryBarrierImage memoryBarrierShared min mix mod modf noise1 noise2 noise3 noise4 "+"normalize not notEqual outerProduct packDouble2x32 packHalf2x16 packSnorm2x16 packSnorm4x8 "+"packUnorm2x16 packUnorm4x8 pow radians reflect refract round roundEven shadow1D shadow1DLod "+"shadow1DProj shadow1DProjLod shadow2D shadow2DLod shadow2DProj shadow2DProjLod sign sin sinh "+"smoothstep sqrt step tan tanh texelFetch texelFetchOffset texture texture1D texture1DLod "+"texture1DProj texture1DProjLod texture2D texture2DLod texture2DProj texture2DProjLod "+"texture3D texture3DLod texture3DProj texture3DProjLod textureCube textureCubeLod "+"textureGather textureGatherOffset textureGatherOffsets textureGrad textureGradOffset "+"textureLod textureLodOffset textureOffset textureProj textureProjGrad textureProjGradOffset "+"textureProjLod textureProjLodOffset textureProjOffset textureQueryLevels textureQueryLod "+"textureSize transpose trunc uaddCarry uintBitsToFloat umulExtended unpackDouble2x32 "+"unpackHalf2x16 unpackSnorm2x16 unpackSnorm4x8 unpackUnorm2x16 unpackUnorm4x8 usubBorrow",literal:"true false"},illegal:'"',contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.C_NUMBER_MODE,{className:"meta",begin:"#",end:"$"}]}});hljs.registerLanguage("q",function(hljs){var Q_KEYWORDS={keyword:"do while select delete by update from",literal:"0b 1b",built_in:"neg not null string reciprocal floor ceiling signum mod xbar xlog and or each scan over prior mmu lsq inv md5 ltime gtime count first var dev med cov cor all any rand sums prds mins maxs fills deltas ratios avgs differ prev next rank reverse iasc idesc asc desc msum mcount mavg mdev xrank mmin mmax xprev rotate distinct group where flip type key til get value attr cut set upsert raze union inter except cross sv vs sublist enlist read0 read1 hopen hclose hdel hsym hcount peach system ltrim rtrim trim lower upper ssr view tables views cols xcols keys xkey xcol xasc xdesc fkeys meta lj aj aj0 ij pj asof uj ww wj wj1 fby xgroup ungroup ej save load rsave rload show csv parse eval min max avg wavg wsum sin cos tan sum",type:"`float `double int `timestamp `timespan `datetime `time `boolean `symbol `char `byte `short `long `real `month `date `minute `second `guid"};return{aliases:["k","kdb"],keywords:Q_KEYWORDS,lexemes:/(`?)[A-Za-z0-9_]+\b/,contains:[hljs.C_LINE_COMMENT_MODE,hljs.QUOTE_STRING_MODE,hljs.C_NUMBER_MODE]}});hljs.registerLanguage("css",function(hljs){var FUNCTION_LIKE={begin:/[\w-]+\(/,returnBegin:true,contains:[{className:"built_in",begin:/[\w-]+/},{begin:/\(/,end:/\)/,contains:[hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.CSS_NUMBER_MODE]}]};var ATTRIBUTE={className:"attribute",begin:/\S/,end:":",excludeEnd:true,starts:{endsWithParent:true,excludeEnd:true,contains:[FUNCTION_LIKE,hljs.CSS_NUMBER_MODE,hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE,hljs.C_BLOCK_COMMENT_MODE,{className:"number",begin:"#[0-9A-Fa-f]+"},{className:"meta",begin:"!important"}]}};var AT_IDENTIFIER="@[a-z-]+";var AT_MODIFIERS="and or not only";var MEDIA_TYPES="all print screen speech";var AT_PROPERTY_RE=/@\-?\w[\w]*(\-\w+)*/;var IDENT_RE="[a-zA-Z-][a-zA-Z0-9_-]*";var RULE={begin:/(?:[A-Z\_\.\-]+|--[a-zA-Z0-9_-]+)\s*:/,returnBegin:true,end:";",endsWithParent:true,contains:[ATTRIBUTE]};return{case_insensitive:true,illegal:/[=\/|'\$]/,contains:[hljs.C_BLOCK_COMMENT_MODE,{className:"selector-id",begin:/#[A-Za-z0-9_-]+/},{className:"selector-class",begin:/\.[A-Za-z0-9_-]+/},{className:"selector-attr",begin:/\[/,end:/\]/,illegal:"$",contains:[hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE]},{className:"selector-pseudo",begin:/:(:)?[a-zA-Z0-9\_\-\+\(\)"'.]+/},{begin:"@(page|font-face)",lexemes:AT_IDENTIFIER,keywords:"@page @font-face"},{begin:"@",end:"[{;]",illegal:/:/,returnBegin:true,contains:[{className:"keyword",begin:AT_PROPERTY_RE},{begin:/\s/,endsWithParent:true,excludeEnd:true,relevance:0,keywords:AT_MODIFIERS,contains:[{begin:/[a-z-]+:/,className:"attribute"},hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.CSS_NUMBER_MODE]}]},{className:"selector-tag",begin:IDENT_RE,relevance:0},{begin:"{",end:"}",illegal:/\S/,contains:[hljs.C_BLOCK_COMMENT_MODE,RULE]}]}});hljs.registerLanguage("ini",function(hljs){var NUMBERS={className:"number",relevance:0,variants:[{begin:/([\+\-]+)?[\d]+_[\d_]+/},{begin:hljs.NUMBER_RE}]};var COMMENTS=hljs.COMMENT();COMMENTS.variants=[{begin:/;/,end:/$/},{begin:/#/,end:/$/}];var VARIABLES={className:"variable",variants:[{begin:/\$[\w\d"][\w\d_]*/},{begin:/\$\{(.*?)}/}]};var LITERALS={className:"literal",begin:/\bon|off|true|false|yes|no\b/};var STRINGS={className:"string",contains:[hljs.BACKSLASH_ESCAPE],variants:[{begin:"'''",end:"'''",relevance:10},{begin:'"""',end:'"""',relevance:10},{begin:'"',end:'"'},{begin:"'",end:"'"}]};var ARRAY={begin:/\[/,end:/\]/,contains:[COMMENTS,LITERALS,VARIABLES,STRINGS,NUMBERS,"self"],relevance:0};return{aliases:["toml"],case_insensitive:true,illegal:/\S/,contains:[COMMENTS,{className:"section",begin:/\[+/,end:/\]+/},{begin:/^[a-z0-9\[\]_\.-]+(?=\s*=\s*)/,className:"attr",starts:{end:/$/,contains:[COMMENTS,ARRAY,LITERALS,VARIABLES,STRINGS,NUMBERS]}}]}});hljs.registerLanguage("elm",function(hljs){var COMMENT={variants:[hljs.COMMENT("--","$"),hljs.COMMENT("{-","-}",{contains:["self"]})]};var CONSTRUCTOR={className:"type",begin:"\\b[A-Z][\\w']*",relevance:0};var LIST={begin:"\\(",end:"\\)",illegal:'"',contains:[{className:"type",begin:"\\b[A-Z][\\w]*(\\((\\.\\.|,|\\w+)\\))?"},COMMENT]};var RECORD={begin:"{",end:"}",contains:LIST.contains};var CHARACTER={className:"string",begin:"'\\\\?.",end:"'",illegal:"."};return{keywords:"let in if then else case of where module import exposing "+"type alias as infix infixl infixr port effect command subscription",contains:[{beginKeywords:"port effect module",end:"exposing",keywords:"port effect module where command subscription exposing",contains:[LIST,COMMENT],illegal:"\\W\\.|;"},{begin:"import",end:"$",keywords:"import as exposing",contains:[LIST,COMMENT],illegal:"\\W\\.|;"},{begin:"type",end:"$",keywords:"type alias",contains:[CONSTRUCTOR,LIST,RECORD,COMMENT]},{beginKeywords:"infix infixl infixr",end:"$",contains:[hljs.C_NUMBER_MODE,COMMENT]},{begin:"port",end:"$",keywords:"port",contains:[COMMENT]},CHARACTER,hljs.QUOTE_STRING_MODE,hljs.C_NUMBER_MODE,CONSTRUCTOR,hljs.inherit(hljs.TITLE_MODE,{begin:"^[_a-z][\\w']*"}),COMMENT,{begin:"->|<-"}],illegal:/;/}});hljs.registerLanguage("ldif",function(hljs){return{contains:[{className:"attribute",begin:"^dn",end:": ",excludeEnd:true,starts:{end:"$",relevance:0},relevance:10},{className:"attribute",begin:"^\\w",end:": ",excludeEnd:true,starts:{end:"$",relevance:0}},{className:"literal",begin:"^-",end:"$"},hljs.HASH_COMMENT_MODE]}});hljs.registerLanguage("makefile",function(hljs){var VARIABLE={className:"variable",variants:[{begin:"\\$\\("+hljs.UNDERSCORE_IDENT_RE+"\\)",contains:[hljs.BACKSLASH_ESCAPE]},{begin:/\$[@%<?\^\+\*]/}]};var QUOTE_STRING={className:"string",begin:/"/,end:/"/,contains:[hljs.BACKSLASH_ESCAPE,VARIABLE]};var FUNC={className:"variable",begin:/\$\([\w-]+\s/,end:/\)/,keywords:{built_in:"subst patsubst strip findstring filter filter-out sort "+"word wordlist firstword lastword dir notdir suffix basename "+"addsuffix addprefix join wildcard realpath abspath error warning "+"shell origin flavor foreach if or and call eval file value"},contains:[VARIABLE]};var ASSIGNMENT={begin:"^"+hljs.UNDERSCORE_IDENT_RE+"\\s*(?=[:+?]?=)"};var META={className:"meta",begin:/^\.PHONY:/,end:/$/,keywords:{"meta-keyword":".PHONY"},lexemes:/[\.\w]+/};var TARGET={className:"section",begin:/^[^\s]+:/,end:/$/,contains:[VARIABLE]};return{aliases:["mk","mak"],keywords:"define endef undefine ifdef ifndef ifeq ifneq else endif "+"include -include sinclude override export unexport private vpath",lexemes:/[\w-]+/,contains:[hljs.HASH_COMMENT_MODE,VARIABLE,QUOTE_STRING,FUNC,ASSIGNMENT,META,TARGET]}});hljs.registerLanguage("coffeescript",function(hljs){var KEYWORDS={keyword:"in if for while finally new do return else break catch instanceof throw try this "+"switch continue typeof delete debugger super yield import export from as default await "+"then unless until loop of by when and or is isnt not",literal:"true false null undefined "+"yes no on off",built_in:"npm require console print module global window document"};var JS_IDENT_RE="[A-Za-z$_][0-9A-Za-z$_]*";var SUBST={className:"subst",begin:/#\{/,end:/}/,keywords:KEYWORDS};var EXPRESSIONS=[hljs.BINARY_NUMBER_MODE,hljs.inherit(hljs.C_NUMBER_MODE,{starts:{end:"(\\s*/)?",relevance:0}}),{className:"string",variants:[{begin:/'''/,end:/'''/,contains:[hljs.BACKSLASH_ESCAPE]},{begin:/'/,end:/'/,contains:[hljs.BACKSLASH_ESCAPE]},{begin:/"""/,end:/"""/,contains:[hljs.BACKSLASH_ESCAPE,SUBST]},{begin:/"/,end:/"/,contains:[hljs.BACKSLASH_ESCAPE,SUBST]}]},{className:"regexp",variants:[{begin:"///",end:"///",contains:[SUBST,hljs.HASH_COMMENT_MODE]},{begin:"//[gim]{0,3}(?=\\W)",relevance:0},{begin:/\/(?![ *]).*?(?![\\]).\/[gim]{0,3}(?=\W)/}]},{begin:"@"+JS_IDENT_RE},{subLanguage:"javascript",excludeBegin:true,excludeEnd:true,variants:[{begin:"```",end:"```"},{begin:"`",end:"`"}]}];SUBST.contains=EXPRESSIONS;var TITLE=hljs.inherit(hljs.TITLE_MODE,{begin:JS_IDENT_RE});var PARAMS_RE="(\\(.*\\))?\\s*\\B[-=]>";var PARAMS={className:"params",begin:"\\([^\\(]",returnBegin:true,contains:[{begin:/\(/,end:/\)/,keywords:KEYWORDS,contains:["self"].concat(EXPRESSIONS)}]};return{aliases:["coffee","cson","iced"],keywords:KEYWORDS,illegal:/\/\*/,contains:EXPRESSIONS.concat([hljs.COMMENT("###","###"),hljs.HASH_COMMENT_MODE,{className:"function",begin:"^\\s*"+JS_IDENT_RE+"\\s*=\\s*"+PARAMS_RE,end:"[-=]>",returnBegin:true,contains:[TITLE,PARAMS]},{begin:/[:\(,=]\s*/,relevance:0,contains:[{className:"function",begin:PARAMS_RE,end:"[-=]>",returnBegin:true,contains:[PARAMS]}]},{className:"class",beginKeywords:"class",end:"$",illegal:/[:="\[\]]/,contains:[{beginKeywords:"extends",endsWithParent:true,illegal:/[:="\[\]]/,contains:[TITLE]},TITLE]},{begin:JS_IDENT_RE+":",end:":",returnBegin:true,returnEnd:true,relevance:0}])}});hljs.registerLanguage("abnf",function(hljs){var regexes={ruleDeclaration:"^[a-zA-Z][a-zA-Z0-9-]*",unexpectedChars:"[!@#$^&',?+~`|:]"};var keywords=["ALPHA","BIT","CHAR","CR","CRLF","CTL","DIGIT","DQUOTE","HEXDIG","HTAB","LF","LWSP","OCTET","SP","VCHAR","WSP"];var commentMode=hljs.COMMENT(";","$");var terminalBinaryMode={className:"symbol",begin:/%b[0-1]+(-[0-1]+|(\.[0-1]+)+){0,1}/};var terminalDecimalMode={className:"symbol",begin:/%d[0-9]+(-[0-9]+|(\.[0-9]+)+){0,1}/};var terminalHexadecimalMode={className:"symbol",begin:/%x[0-9A-F]+(-[0-9A-F]+|(\.[0-9A-F]+)+){0,1}/};var caseSensitivityIndicatorMode={className:"symbol",begin:/%[si]/};var ruleDeclarationMode={className:"attribute",begin:regexes.ruleDeclaration+"(?=\\s*=)"};return{illegal:regexes.unexpectedChars,keywords:keywords.join(" "),contains:[ruleDeclarationMode,commentMode,terminalBinaryMode,terminalDecimalMode,terminalHexadecimalMode,caseSensitivityIndicatorMode,hljs.QUOTE_STRING_MODE,hljs.NUMBER_MODE]}});hljs.registerLanguage("kotlin",function(hljs){var KEYWORDS={keyword:"abstract as val var vararg get set class object open private protected public noinline "+"crossinline dynamic final enum if else do while for when throw try catch finally "+"import package is in fun override companion reified inline lateinit init "+"interface annotation data sealed internal infix operator out by constructor super "+"tailrec where const inner suspend typealias external expect actual "+"trait volatile transient native default",built_in:"Byte Short Char Int Long Boolean Float Double Void Unit Nothing",literal:"true false null"};var KEYWORDS_WITH_LABEL={className:"keyword",begin:/\b(break|continue|return|this)\b/,starts:{contains:[{className:"symbol",begin:/@\w+/}]}};var LABEL={className:"symbol",begin:hljs.UNDERSCORE_IDENT_RE+"@"};var SUBST={className:"subst",begin:"\\${",end:"}",contains:[hljs.C_NUMBER_MODE]};var VARIABLE={className:"variable",begin:"\\$"+hljs.UNDERSCORE_IDENT_RE};var STRING={className:"string",variants:[{begin:'"""',end:'"""(?=[^"])',contains:[VARIABLE,SUBST]},{begin:"'",end:"'",illegal:/\n/,contains:[hljs.BACKSLASH_ESCAPE]},{begin:'"',end:'"',illegal:/\n/,contains:[hljs.BACKSLASH_ESCAPE,VARIABLE,SUBST]}]};SUBST.contains.push(STRING);var ANNOTATION_USE_SITE={className:"meta",begin:"@(?:file|property|field|get|set|receiver|param|setparam|delegate)\\s*:(?:\\s*"+hljs.UNDERSCORE_IDENT_RE+")?"};var ANNOTATION={className:"meta",begin:"@"+hljs.UNDERSCORE_IDENT_RE,contains:[{begin:/\(/,end:/\)/,contains:[hljs.inherit(STRING,{className:"meta-string"})]}]};var KOTLIN_NUMBER_RE="\\b"+"("+"0[bB]([01]+[01_]+[01]+|[01]+)"+"|"+"0[xX]([a-fA-F0-9]+[a-fA-F0-9_]+[a-fA-F0-9]+|[a-fA-F0-9]+)"+"|"+"("+"([\\d]+[\\d_]+[\\d]+|[\\d]+)(\\.([\\d]+[\\d_]+[\\d]+|[\\d]+))?"+"|"+"\\.([\\d]+[\\d_]+[\\d]+|[\\d]+)"+")"+"([eE][-+]?\\d+)?"+")"+"[lLfF]?";var KOTLIN_NUMBER_MODE={className:"number",begin:KOTLIN_NUMBER_RE,relevance:0};var KOTLIN_NESTED_COMMENT=hljs.COMMENT("/\\*","\\*/",{contains:[hljs.C_BLOCK_COMMENT_MODE]});var KOTLIN_PAREN_TYPE={variants:[{className:"type",begin:hljs.UNDERSCORE_IDENT_RE},{begin:/\(/,end:/\)/,contains:[]}]};var KOTLIN_PAREN_TYPE2=KOTLIN_PAREN_TYPE;KOTLIN_PAREN_TYPE2.variants[1].contains=[KOTLIN_PAREN_TYPE];KOTLIN_PAREN_TYPE.variants[1].contains=[KOTLIN_PAREN_TYPE2];return{aliases:["kt"],keywords:KEYWORDS,contains:[hljs.COMMENT("/\\*\\*","\\*/",{relevance:0,contains:[{className:"doctag",begin:"@[A-Za-z]+"}]}),hljs.C_LINE_COMMENT_MODE,KOTLIN_NESTED_COMMENT,KEYWORDS_WITH_LABEL,LABEL,ANNOTATION_USE_SITE,ANNOTATION,{className:"function",beginKeywords:"fun",end:"[(]|$",returnBegin:true,excludeEnd:true,keywords:KEYWORDS,illegal:/fun\s+(<.*>)?[^\s\(]+(\s+[^\s\(]+)\s*=/,relevance:5,contains:[{begin:hljs.UNDERSCORE_IDENT_RE+"\\s*\\(",returnBegin:true,relevance:0,contains:[hljs.UNDERSCORE_TITLE_MODE]},{className:"type",begin:/</,end:/>/,keywords:"reified",relevance:0},{className:"params",begin:/\(/,end:/\)/,endsParent:true,keywords:KEYWORDS,relevance:0,contains:[{begin:/:/,end:/[=,\/]/,endsWithParent:true,contains:[KOTLIN_PAREN_TYPE,hljs.C_LINE_COMMENT_MODE,KOTLIN_NESTED_COMMENT],relevance:0},hljs.C_LINE_COMMENT_MODE,KOTLIN_NESTED_COMMENT,ANNOTATION_USE_SITE,ANNOTATION,STRING,hljs.C_NUMBER_MODE]},KOTLIN_NESTED_COMMENT]},{className:"class",beginKeywords:"class interface trait",end:/[:\{(]|$/,excludeEnd:true,illegal:"extends implements",contains:[{beginKeywords:"public protected internal private constructor"},hljs.UNDERSCORE_TITLE_MODE,{className:"type",begin:/</,end:/>/,excludeBegin:true,excludeEnd:true,relevance:0},{className:"type",begin:/[,:]\s*/,end:/[<\(,]|$/,excludeBegin:true,returnEnd:true},ANNOTATION_USE_SITE,ANNOTATION]},STRING,{className:"meta",begin:"^#!/usr/bin/env",end:"$",illegal:"\n"},KOTLIN_NUMBER_MODE]}});hljs.registerLanguage("dsconfig",function(hljs){var QUOTED_PROPERTY={className:"string",begin:/"/,end:/"/};var APOS_PROPERTY={className:"string",begin:/'/,end:/'/};var UNQUOTED_PROPERTY={className:"string",begin:"[\\w-?]+:\\w+",end:"\\W",relevance:0};var VALUELESS_PROPERTY={className:"string",begin:"\\w+-?\\w+",end:"\\W",relevance:0};return{keywords:"dsconfig",contains:[{className:"keyword",begin:"^dsconfig",end:"\\s",excludeEnd:true,relevance:10},{className:"built_in",begin:"(list|create|get|set|delete)-(\\w+)",end:"\\s",excludeEnd:true,illegal:"!@#$%^&*()",relevance:10},{className:"built_in",begin:"--(\\w+)",end:"\\s",excludeEnd:true},QUOTED_PROPERTY,APOS_PROPERTY,UNQUOTED_PROPERTY,VALUELESS_PROPERTY,hljs.HASH_COMMENT_MODE]}});hljs.registerLanguage("http",function(hljs){var VERSION="HTTP/[0-9\\.]+";return{aliases:["https"],illegal:"\\S",contains:[{begin:"^"+VERSION,end:"$",contains:[{className:"number",begin:"\\b\\d{3}\\b"}]},{begin:"^[A-Z]+ (.*?) "+VERSION+"$",returnBegin:true,end:"$",contains:[{className:"string",begin:" ",end:" ",excludeBegin:true,excludeEnd:true},{begin:VERSION},{className:"keyword",begin:"[A-Z]+"}]},{className:"attribute",begin:"^\\w",end:": ",excludeEnd:true,illegal:"\\n|\\s|=",starts:{end:"$",relevance:0}},{begin:"\\n\\n",starts:{subLanguage:[],endsWithParent:true}}]}});hljs.registerLanguage("pony",function(hljs){var KEYWORDS={keyword:"actor addressof and as be break class compile_error compile_intrinsic "+"consume continue delegate digestof do else elseif embed end error "+"for fun if ifdef in interface is isnt lambda let match new not object "+"or primitive recover repeat return struct then trait try type until "+"use var where while with xor",meta:"iso val tag trn box ref",literal:"this false true"};var TRIPLE_QUOTE_STRING_MODE={className:"string",begin:'"""',end:'"""',relevance:10};var QUOTE_STRING_MODE={className:"string",begin:'"',end:'"',contains:[hljs.BACKSLASH_ESCAPE]};var SINGLE_QUOTE_CHAR_MODE={className:"string",begin:"'",end:"'",contains:[hljs.BACKSLASH_ESCAPE],relevance:0};var TYPE_NAME={className:"type",begin:"\\b_?[A-Z][\\w]*",relevance:0};var PRIMED_NAME={begin:hljs.IDENT_RE+"'",relevance:0};var NUMBER_MODE={className:"number",begin:"(-?)(\\b0[xX][a-fA-F0-9]+|\\b0[bB][01]+|(\\b\\d+(_\\d+)?(\\.\\d*)?|\\.\\d+)([eE][-+]?\\d+)?)",relevance:0};return{keywords:KEYWORDS,contains:[TYPE_NAME,TRIPLE_QUOTE_STRING_MODE,QUOTE_STRING_MODE,SINGLE_QUOTE_CHAR_MODE,PRIMED_NAME,NUMBER_MODE,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE]}});hljs.registerLanguage("cpp",function(hljs){function optional(s){return"(?:"+s+")?"}var DECLTYPE_AUTO_RE="decltype\\(auto\\)";var NAMESPACE_RE="[a-zA-Z_]\\w*::";var TEMPLATE_ARGUMENT_RE="<.*?>";var FUNCTION_TYPE_RE="("+DECLTYPE_AUTO_RE+"|"+optional(NAMESPACE_RE)+"[a-zA-Z_]\\w*"+optional(TEMPLATE_ARGUMENT_RE)+")";var CPP_PRIMITIVE_TYPES={className:"keyword",begin:"\\b[a-z\\d_]*_t\\b"};var CHARACTER_ESCAPES="\\\\(x[0-9A-Fa-f]{2}|u[0-9A-Fa-f]{4,8}|[0-7]{3}|\\S)";var STRINGS={className:"string",variants:[{begin:'(u8?|U|L)?"',end:'"',illegal:"\\n",contains:[hljs.BACKSLASH_ESCAPE]},{begin:"(u8?|U|L)?'("+CHARACTER_ESCAPES+"|.)",end:"'",illegal:"."},{begin:/(?:u8?|U|L)?R"([^()\\ ]{0,16})\((?:.|\n)*?\)\1"/}]};var NUMBERS={className:"number",variants:[{begin:"\\b(0b[01']+)"},{begin:"(-?)\\b([\\d']+(\\.[\\d']*)?|\\.[\\d']+)(u|U|l|L|ul|UL|f|F|b|B)"},{begin:"(-?)(\\b0[xX][a-fA-F0-9']+|(\\b[\\d']+(\\.[\\d']*)?|\\.[\\d']+)([eE][-+]?[\\d']+)?)"}],relevance:0};var PREPROCESSOR={className:"meta",begin:/#\s*[a-z]+\b/,end:/$/,keywords:{"meta-keyword":"if else elif endif define undef warning error line "+"pragma _Pragma ifdef ifndef include"},contains:[{begin:/\\\n/,relevance:0},hljs.inherit(STRINGS,{className:"meta-string"}),{className:"meta-string",begin:/<.*?>/,end:/$/,illegal:"\\n"},hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE]};var TITLE_MODE={className:"title",begin:optional(NAMESPACE_RE)+hljs.IDENT_RE,relevance:0};var FUNCTION_TITLE=optional(NAMESPACE_RE)+hljs.IDENT_RE+"\\s*\\(";var CPP_KEYWORDS={keyword:"int float while private char char8_t char16_t char32_t catch import module export virtual operator sizeof "+"dynamic_cast|10 typedef const_cast|10 const for static_cast|10 union namespace "+"unsigned long volatile static protected bool template mutable if public friend "+"do goto auto void enum else break extern using asm case typeid wchar_t"+"short reinterpret_cast|10 default double register explicit signed typename try this "+"switch continue inline delete alignas alignof constexpr consteval constinit decltype "+"concept co_await co_return co_yield requires "+"noexcept static_assert thread_local restrict final override "+"atomic_bool atomic_char atomic_schar "+"atomic_uchar atomic_short atomic_ushort atomic_int atomic_uint atomic_long atomic_ulong atomic_llong "+"atomic_ullong new throw return "+"and and_eq bitand bitor compl not not_eq or or_eq xor xor_eq",built_in:"std string wstring cin cout cerr clog stdin stdout stderr stringstream istringstream ostringstream "+"auto_ptr deque list queue stack vector map set bitset multiset multimap unordered_set "+"unordered_map unordered_multiset unordered_multimap array shared_ptr abort terminate abs acos "+"asin atan2 atan calloc ceil cosh cos exit exp fabs floor fmod fprintf fputs free frexp "+"fscanf future isalnum isalpha iscntrl isdigit isgraph islower isprint ispunct isspace isupper "+"isxdigit tolower toupper labs ldexp log10 log malloc realloc memchr memcmp memcpy memset modf pow "+"printf putchar puts scanf sinh sin snprintf sprintf sqrt sscanf strcat strchr strcmp "+"strcpy strcspn strlen strncat strncmp strncpy strpbrk strrchr strspn strstr tanh tan "+"vfprintf vprintf vsprintf endl initializer_list unique_ptr _Bool complex _Complex imaginary _Imaginary",literal:"true false nullptr NULL"};var EXPRESSION_CONTAINS=[CPP_PRIMITIVE_TYPES,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,NUMBERS,STRINGS];var EXPRESSION_CONTEXT={variants:[{begin:/=/,end:/;/},{begin:/\(/,end:/\)/},{beginKeywords:"new throw return else",end:/;/}],keywords:CPP_KEYWORDS,contains:EXPRESSION_CONTAINS.concat([{begin:/\(/,end:/\)/,keywords:CPP_KEYWORDS,contains:EXPRESSION_CONTAINS.concat(["self"]),relevance:0}]),relevance:0};var FUNCTION_DECLARATION={className:"function",begin:"("+FUNCTION_TYPE_RE+"[\\*&\\s]+)+"+FUNCTION_TITLE,returnBegin:true,end:/[{;=]/,excludeEnd:true,keywords:CPP_KEYWORDS,illegal:/[^\w\s\*&:<>]/,contains:[{begin:DECLTYPE_AUTO_RE,keywords:CPP_KEYWORDS,relevance:0},{begin:FUNCTION_TITLE,returnBegin:true,contains:[TITLE_MODE],relevance:0},{className:"params",begin:/\(/,end:/\)/,keywords:CPP_KEYWORDS,relevance:0,contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,STRINGS,NUMBERS,CPP_PRIMITIVE_TYPES,{begin:/\(/,end:/\)/,keywords:CPP_KEYWORDS,relevance:0,contains:["self",hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,STRINGS,NUMBERS,CPP_PRIMITIVE_TYPES]}]},CPP_PRIMITIVE_TYPES,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,PREPROCESSOR]};return{aliases:["c","cc","h","c++","h++","hpp","hh","hxx","cxx"],keywords:CPP_KEYWORDS,illegal:"</",contains:[].concat(EXPRESSION_CONTEXT,FUNCTION_DECLARATION,EXPRESSION_CONTAINS,[PREPROCESSOR,{begin:"\\b(deque|list|queue|stack|vector|map|set|bitset|multiset|multimap|unordered_map|unordered_set|unordered_multiset|unordered_multimap|array)\\s*<",end:">",keywords:CPP_KEYWORDS,contains:["self",CPP_PRIMITIVE_TYPES]},{begin:hljs.IDENT_RE+"::",keywords:CPP_KEYWORDS},{className:"class",beginKeywords:"class struct",end:/[{;:]/,contains:[{begin:/</,end:/>/,contains:["self"]},hljs.TITLE_MODE]}]),exports:{preprocessor:PREPROCESSOR,strings:STRINGS,keywords:CPP_KEYWORDS}}});hljs.registerLanguage("arduino",function(hljs){var ARDUINO_KW={keyword:"boolean byte word String",built_in:"setup loop"+"KeyboardController MouseController SoftwareSerial "+"EthernetServer EthernetClient LiquidCrystal "+"RobotControl GSMVoiceCall EthernetUDP EsploraTFT "+"HttpClient RobotMotor WiFiClient GSMScanner "+"FileSystem Scheduler GSMServer YunClient YunServer "+"IPAddress GSMClient GSMModem Keyboard Ethernet "+"Console GSMBand Esplora Stepper Process "+"WiFiUDP GSM_SMS Mailbox USBHost Firmata PImage "+"Client Server GSMPIN FileIO Bridge Serial "+"EEPROM Stream Mouse Audio Servo File Task "+"GPRS WiFi Wire TFT GSM SPI SD "+"runShellCommandAsynchronously analogWriteResolution "+"retrieveCallingNumber printFirmwareVersion "+"analogReadResolution sendDigitalPortPair "+"noListenOnLocalhost readJoystickButton setFirmwareVersion "+"readJoystickSwitch scrollDisplayRight getVoiceCallStatus "+"scrollDisplayLeft writeMicroseconds delayMicroseconds "+"beginTransmission getSignalStrength runAsynchronously "+"getAsynchronously listenOnLocalhost getCurrentCarrier "+"readAccelerometer messageAvailable sendDigitalPorts "+"lineFollowConfig countryNameWrite runShellCommand "+"readStringUntil rewindDirectory readTemperature "+"setClockDivider readLightSensor endTransmission "+"analogReference detachInterrupt countryNameRead "+"attachInterrupt encryptionType readBytesUntil "+"robotNameWrite readMicrophone robotNameRead cityNameWrite "+"userNameWrite readJoystickY readJoystickX mouseReleased "+"openNextFile scanNetworks noInterrupts digitalWrite "+"beginSpeaker mousePressed isActionDone mouseDragged "+"displayLogos noAutoscroll addParameter remoteNumber "+"getModifiers keyboardRead userNameRead waitContinue "+"processInput parseCommand printVersion readNetworks "+"writeMessage blinkVersion cityNameRead readMessage "+"setDataMode parsePacket isListening setBitOrder "+"beginPacket isDirectory motorsWrite drawCompass "+"digitalRead clearScreen serialEvent rightToLeft "+"setTextSize leftToRight requestFrom keyReleased "+"compassRead analogWrite interrupts WiFiServer "+"disconnect playMelody parseFloat autoscroll "+"getPINUsed setPINUsed setTimeout sendAnalog "+"readSlider analogRead beginWrite createChar "+"motorsStop keyPressed tempoWrite readButton "+"subnetMask debugPrint macAddress writeGreen "+"randomSeed attachGPRS readString sendString "+"remotePort releaseAll mouseMoved background "+"getXChange getYChange answerCall getResult "+"voiceCall endPacket constrain getSocket writeJSON "+"getButton available connected findUntil readBytes "+"exitValue readGreen writeBlue startLoop IPAddress "+"isPressed sendSysex pauseMode gatewayIP setCursor "+"getOemKey tuneWrite noDisplay loadImage switchPIN "+"onRequest onReceive changePIN playFile noBuffer "+"parseInt overflow checkPIN knobRead beginTFT "+"bitClear updateIR bitWrite position writeRGB "+"highByte writeRed setSpeed readBlue noStroke "+"remoteIP transfer shutdown hangCall beginSMS "+"endWrite attached maintain noCursor checkReg "+"checkPUK shiftOut isValid shiftIn pulseIn "+"connect println localIP pinMode getIMEI "+"display noBlink process getBand running beginSD "+"drawBMP lowByte setBand release bitRead prepare "+"pointTo readRed setMode noFill remove listen "+"stroke detach attach noTone exists buffer "+"height bitSet circle config cursor random "+"IRread setDNS endSMS getKey micros "+"millis begin print write ready flush width "+"isPIN blink clear press mkdir rmdir close "+"point yield image BSSID click delay "+"read text move peek beep rect line open "+"seek fill size turn stop home find "+"step tone sqrt RSSI SSID "+"end bit tan cos sin pow map abs max "+"min get run put",literal:"DIGITAL_MESSAGE FIRMATA_STRING ANALOG_MESSAGE "+"REPORT_DIGITAL REPORT_ANALOG INPUT_PULLUP "+"SET_PIN_MODE INTERNAL2V56 SYSTEM_RESET LED_BUILTIN "+"INTERNAL1V1 SYSEX_START INTERNAL EXTERNAL "+"DEFAULT OUTPUT INPUT HIGH LOW"};var ARDUINO=hljs.requireLanguage("cpp").rawDefinition();var kws=ARDUINO.keywords;kws.keyword+=" "+ARDUINO_KW.keyword;kws.literal+=" "+ARDUINO_KW.literal;kws.built_in+=" "+ARDUINO_KW.built_in;return ARDUINO});hljs.registerLanguage("ocaml",function(hljs){return{aliases:["ml"],keywords:{keyword:"and as assert asr begin class constraint do done downto else end "+"exception external for fun function functor if in include "+"inherit! inherit initializer land lazy let lor lsl lsr lxor match method!|10 method "+"mod module mutable new object of open! open or private rec sig struct "+"then to try type val! val virtual when while with "+"parser value",built_in:"array bool bytes char exn|5 float int int32 int64 list lazy_t|5 nativeint|5 string unit "+"in_channel out_channel ref",literal:"true false"},illegal:/\/\/|>>/,lexemes:"[a-z_]\\w*!?",contains:[{className:"literal",begin:"\\[(\\|\\|)?\\]|\\(\\)",relevance:0},hljs.COMMENT("\\(\\*","\\*\\)",{contains:["self"]}),{className:"symbol",begin:"'[A-Za-z_](?!')[\\w']*"},{className:"type",begin:"`[A-Z][\\w']*"},{className:"type",begin:"\\b[A-Z][\\w']*",relevance:0},{begin:"[a-z_]\\w*'[\\w']*",relevance:0},hljs.inherit(hljs.APOS_STRING_MODE,{className:"string",relevance:0}),hljs.inherit(hljs.QUOTE_STRING_MODE,{illegal:null}),{className:"number",begin:"\\b(0[xX][a-fA-F0-9_]+[Lln]?|"+"0[oO][0-7_]+[Lln]?|"+"0[bB][01_]+[Lln]?|"+"[0-9][0-9_]*([Lln]|(\\.[0-9_]*)?([eE][-+]?[0-9_]+)?)?)",relevance:0},{begin:/[-=]>/}]}});hljs.registerLanguage("oxygene",function(hljs){var OXYGENE_KEYWORDS="abstract add and array as asc aspect assembly async begin break block by case class concat const copy constructor continue "+"create default delegate desc distinct div do downto dynamic each else empty end ensure enum equals event except exit extension external false "+"final finalize finalizer finally flags for forward from function future global group has if implementation implements implies in index inherited "+"inline interface into invariants is iterator join locked locking loop matching method mod module namespace nested new nil not notify nullable of "+"old on operator or order out override parallel params partial pinned private procedure property protected public queryable raise read readonly "+"record reintroduce remove repeat require result reverse sealed select self sequence set shl shr skip static step soft take then to true try tuple "+"type union unit unsafe until uses using var virtual raises volatile where while with write xor yield await mapped deprecated stdcall cdecl pascal "+"register safecall overload library platform reference packed strict published autoreleasepool selector strong weak unretained";var CURLY_COMMENT=hljs.COMMENT("{","}",{relevance:0});var PAREN_COMMENT=hljs.COMMENT("\\(\\*","\\*\\)",{relevance:10});var STRING={className:"string",begin:"'",end:"'",contains:[{begin:"''"}]};var CHAR_STRING={className:"string",begin:"(#\\d+)+"};var FUNCTION={className:"function",beginKeywords:"function constructor destructor procedure method",end:"[:;]",keywords:"function constructor|10 destructor|10 procedure|10 method|10",contains:[hljs.TITLE_MODE,{className:"params",begin:"\\(",end:"\\)",keywords:OXYGENE_KEYWORDS,contains:[STRING,CHAR_STRING]},CURLY_COMMENT,PAREN_COMMENT]};return{case_insensitive:true,lexemes:/\.?\w+/,keywords:OXYGENE_KEYWORDS,illegal:'("|\\$[G-Zg-z]|\\/\\*|</|=>|->)',contains:[CURLY_COMMENT,PAREN_COMMENT,hljs.C_LINE_COMMENT_MODE,STRING,CHAR_STRING,hljs.NUMBER_MODE,FUNCTION,{className:"class",begin:"=\\bclass\\b",end:"end;",keywords:OXYGENE_KEYWORDS,contains:[STRING,CHAR_STRING,CURLY_COMMENT,PAREN_COMMENT,hljs.C_LINE_COMMENT_MODE,FUNCTION]}]}});hljs.registerLanguage("scilab",function(hljs){var COMMON_CONTAINS=[hljs.C_NUMBER_MODE,{className:"string",begin:"'|\"",end:"'|\"",contains:[hljs.BACKSLASH_ESCAPE,{begin:"''"}]}];return{aliases:["sci"],lexemes:/%?\w+/,keywords:{keyword:"abort break case clear catch continue do elseif else endfunction end for function "+"global if pause return resume select try then while",literal:"%f %F %t %T %pi %eps %inf %nan %e %i %z %s",built_in:"abs and acos asin atan ceil cd chdir clearglobal cosh cos cumprod deff disp error "+"exec execstr exists exp eye gettext floor fprintf fread fsolve imag isdef isempty "+"isinfisnan isvector lasterror length load linspace list listfiles log10 log2 log "+"max min msprintf mclose mopen ones or pathconvert poly printf prod pwd rand real "+"round sinh sin size gsort sprintf sqrt strcat strcmps tring sum system tanh tan "+"type typename warning zeros matrix"},illegal:'("|#|/\\*|\\s+/\\w+)',contains:[{className:"function",beginKeywords:"function",end:"$",contains:[hljs.UNDERSCORE_TITLE_MODE,{className:"params",begin:"\\(",end:"\\)"}]},{begin:"[a-zA-Z_][a-zA-Z_0-9]*('+[\\.']*|[\\.']+)",end:"",relevance:0},{begin:"\\[",end:"\\]'*[\\.']*",relevance:0,contains:COMMON_CONTAINS},hljs.COMMENT("//","$")].concat(COMMON_CONTAINS)}});hljs.registerLanguage("jboss-cli",function(hljs){var PARAM={begin:/[\w-]+ *=/,returnBegin:true,relevance:0,contains:[{className:"attr",begin:/[\w-]+/}]};var PARAMSBLOCK={className:"params",begin:/\(/,end:/\)/,contains:[PARAM],relevance:0};var OPERATION={className:"function",begin:/:[\w\-.]+/,relevance:0};var PATH={className:"string",begin:/\B(([\/.])[\w\-.\/=]+)+/};var COMMAND_PARAMS={className:"params",begin:/--[\w\-=\/]+/};return{aliases:["wildfly-cli"],lexemes:"[a-z-]+",keywords:{keyword:"alias batch cd clear command connect connection-factory connection-info data-source deploy "+"deployment-info deployment-overlay echo echo-dmr help history if jdbc-driver-info jms-queue|20 jms-topic|20 ls "+"patch pwd quit read-attribute read-operation reload rollout-plan run-batch set shutdown try unalias "+"undeploy unset version xa-data-source",literal:"true false"},contains:[hljs.HASH_COMMENT_MODE,hljs.QUOTE_STRING_MODE,COMMAND_PARAMS,OPERATION,PATH,PARAMSBLOCK]}});hljs.registerLanguage("angelscript",function(hljs){var builtInTypeMode={className:"built_in",begin:"\\b(void|bool|int|int8|int16|int32|int64|uint|uint8|uint16|uint32|uint64|string|ref|array|double|float|auto|dictionary)"};var objectHandleMode={className:"symbol",begin:"[a-zA-Z0-9_]+@"};var genericMode={className:"keyword",begin:"<",end:">",contains:[builtInTypeMode,objectHandleMode]};builtInTypeMode.contains=[genericMode];objectHandleMode.contains=[genericMode];return{aliases:["asc"],keywords:"for in|0 break continue while do|0 return if else case switch namespace is cast "+"or and xor not get|0 in inout|10 out override set|0 private public const default|0 "+"final shared external mixin|10 enum typedef funcdef this super import from interface "+"abstract|0 try catch protected explicit property",illegal:"(^using\\s+[A-Za-z0-9_\\.]+;$|\\bfunctions*[^\\(])",contains:[{className:"string",begin:"'",end:"'",illegal:"\\n",contains:[hljs.BACKSLASH_ESCAPE],relevance:0},{className:"string",begin:'"',end:'"',illegal:"\\n",contains:[hljs.BACKSLASH_ESCAPE],relevance:0},{className:"string",begin:'"""',end:'"""'},hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,{beginKeywords:"interface namespace",end:"{",illegal:"[;.\\-]",contains:[{className:"symbol",begin:"[a-zA-Z0-9_]+"}]},{beginKeywords:"class",end:"{",illegal:"[;.\\-]",contains:[{className:"symbol",begin:"[a-zA-Z0-9_]+",contains:[{begin:"[:,]\\s*",contains:[{className:"symbol",begin:"[a-zA-Z0-9_]+"}]}]}]},builtInTypeMode,objectHandleMode,{className:"literal",begin:"\\b(null|true|false)"},{className:"number",begin:"(-?)(\\b0[xX][a-fA-F0-9]+|(\\b\\d+(\\.\\d*)?f?|\\.\\d+f?)([eE][-+]?\\d+f?)?)"}]}});hljs.registerLanguage("r",function(hljs){var IDENT_RE="([a-zA-Z]|\\.[a-zA-Z.])[a-zA-Z0-9._]*";return{contains:[hljs.HASH_COMMENT_MODE,{begin:IDENT_RE,lexemes:IDENT_RE,keywords:{keyword:"function if in break next repeat else for return switch while try tryCatch "+"stop warning require library attach detach source setMethod setGeneric "+"setGroupGeneric setClass ...",literal:"NULL NA TRUE FALSE T F Inf NaN NA_integer_|10 NA_real_|10 NA_character_|10 "+"NA_complex_|10"},relevance:0},{className:"number",begin:"0[xX][0-9a-fA-F]+[Li]?\\b",relevance:0},{className:"number",begin:"\\d+(?:[eE][+\\-]?\\d*)?L\\b",relevance:0},{className:"number",begin:"\\d+\\.(?!\\d)(?:i\\b)?",relevance:0},{className:"number",begin:"\\d+(?:\\.\\d*)?(?:[eE][+\\-]?\\d*)?i?\\b",relevance:0},{className:"number",begin:"\\.\\d+(?:[eE][+\\-]?\\d*)?i?\\b",relevance:0},{begin:"`",end:"`",relevance:0},{className:"string",contains:[hljs.BACKSLASH_ESCAPE],variants:[{begin:'"',end:'"'},{begin:"'",end:"'"}]}]}});hljs.registerLanguage("json",function(hljs){var LITERALS={literal:"true false null"};var ALLOWED_COMMENTS=[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE];var TYPES=[hljs.QUOTE_STRING_MODE,hljs.C_NUMBER_MODE];var VALUE_CONTAINER={end:",",endsWithParent:true,excludeEnd:true,contains:TYPES,keywords:LITERALS};var OBJECT={begin:"{",end:"}",contains:[{className:"attr",begin:/"/,end:/"/,contains:[hljs.BACKSLASH_ESCAPE],illegal:"\\n"},hljs.inherit(VALUE_CONTAINER,{begin:/:/})].concat(ALLOWED_COMMENTS),illegal:"\\S"};var ARRAY={begin:"\\[",end:"\\]",contains:[hljs.inherit(VALUE_CONTAINER)],illegal:"\\S"};TYPES.push(OBJECT,ARRAY);ALLOWED_COMMENTS.forEach(function(rule){TYPES.push(rule)});return{contains:TYPES,keywords:LITERALS,illegal:"\\S"}});hljs.registerLanguage("haskell",function(hljs){var COMMENT={variants:[hljs.COMMENT("--","$"),hljs.COMMENT("{-","-}",{contains:["self"]})]};var PRAGMA={className:"meta",begin:"{-#",end:"#-}"};var PREPROCESSOR={className:"meta",begin:"^#",end:"$"};var CONSTRUCTOR={className:"type",begin:"\\b[A-Z][\\w']*",relevance:0};var LIST={begin:"\\(",end:"\\)",illegal:'"',contains:[PRAGMA,PREPROCESSOR,{className:"type",begin:"\\b[A-Z][\\w]*(\\((\\.\\.|,|\\w+)\\))?"},hljs.inherit(hljs.TITLE_MODE,{begin:"[_a-z][\\w']*"}),COMMENT]};var RECORD={begin:"{",end:"}",contains:LIST.contains};return{aliases:["hs"],keywords:"let in if then else case of where do module import hiding "+"qualified type data newtype deriving class instance as default "+"infix infixl infixr foreign export ccall stdcall cplusplus "+"jvm dotnet safe unsafe family forall mdo proc rec",contains:[{beginKeywords:"module",end:"where",keywords:"module where",contains:[LIST,COMMENT],illegal:"\\W\\.|;"},{begin:"\\bimport\\b",end:"$",keywords:"import qualified as hiding",contains:[LIST,COMMENT],illegal:"\\W\\.|;"},{className:"class",begin:"^(\\s*)?(class|instance)\\b",end:"where",keywords:"class family instance where",contains:[CONSTRUCTOR,LIST,COMMENT]},{className:"class",begin:"\\b(data|(new)?type)\\b",end:"$",keywords:"data family type newtype deriving",contains:[PRAGMA,CONSTRUCTOR,LIST,RECORD,COMMENT]},{beginKeywords:"default",end:"$",contains:[CONSTRUCTOR,LIST,COMMENT]},{beginKeywords:"infix infixl infixr",end:"$",contains:[hljs.C_NUMBER_MODE,COMMENT]},{begin:"\\bforeign\\b",end:"$",keywords:"foreign import export ccall stdcall cplusplus jvm "+"dotnet safe unsafe",contains:[CONSTRUCTOR,hljs.QUOTE_STRING_MODE,COMMENT]},{className:"meta",begin:"#!\\/usr\\/bin\\/env runhaskell",end:"$"},PRAGMA,PREPROCESSOR,hljs.QUOTE_STRING_MODE,hljs.C_NUMBER_MODE,CONSTRUCTOR,hljs.inherit(hljs.TITLE_MODE,{begin:"^[_a-z][\\w']*"}),COMMENT,{begin:"->|<-"}]}});hljs.registerLanguage("taggerscript",function(hljs){var COMMENT={className:"comment",begin:/\$noop\(/,end:/\)/,contains:[{begin:/\(/,end:/\)/,contains:["self",{begin:/\\./}]}],relevance:10};var FUNCTION={className:"keyword",begin:/\$(?!noop)[a-zA-Z][_a-zA-Z0-9]*/,end:/\(/,excludeEnd:true};var VARIABLE={className:"variable",begin:/%[_a-zA-Z0-9:]*/,end:"%"};var ESCAPE_SEQUENCE={className:"symbol",begin:/\\./};return{contains:[COMMENT,FUNCTION,VARIABLE,ESCAPE_SEQUENCE]}});hljs.registerLanguage("xl",function(hljs){var BUILTIN_MODULES="ObjectLoader Animate MovieCredits Slides Filters Shading Materials LensFlare Mapping VLCAudioVideo "+"StereoDecoder PointCloud NetworkAccess RemoteControl RegExp ChromaKey Snowfall NodeJS Speech Charts";var XL_KEYWORDS={keyword:"if then else do while until for loop import with is as where when by data constant "+"integer real text name boolean symbol infix prefix postfix block tree",literal:"true false nil",built_in:"in mod rem and or xor not abs sign floor ceil sqrt sin cos tan asin "+"acos atan exp expm1 log log2 log10 log1p pi at text_length text_range "+"text_find text_replace contains page slide basic_slide title_slide "+"title subtitle fade_in fade_out fade_at clear_color color line_color "+"line_width texture_wrap texture_transform texture scale_?x scale_?y "+"scale_?z? translate_?x translate_?y translate_?z? rotate_?x rotate_?y "+"rotate_?z? rectangle circle ellipse sphere path line_to move_to "+"quad_to curve_to theme background contents locally time mouse_?x "+"mouse_?y mouse_buttons "+BUILTIN_MODULES};var DOUBLE_QUOTE_TEXT={className:"string",begin:'"',end:'"',illegal:"\\n"};var SINGLE_QUOTE_TEXT={className:"string",begin:"'",end:"'",illegal:"\\n"};var LONG_TEXT={className:"string",begin:"<<",end:">>"};var BASED_NUMBER={className:"number",begin:"[0-9]+#[0-9A-Z_]+(\\.[0-9-A-Z_]+)?#?([Ee][+-]?[0-9]+)?"};var IMPORT={beginKeywords:"import",end:"$",keywords:XL_KEYWORDS,contains:[DOUBLE_QUOTE_TEXT]};var FUNCTION_DEFINITION={className:"function",begin:/[a-z][^\n]*->/,returnBegin:true,end:/->/,contains:[hljs.inherit(hljs.TITLE_MODE,{starts:{endsWithParent:true,keywords:XL_KEYWORDS}})]};return{aliases:["tao"],lexemes:/[a-zA-Z][a-zA-Z0-9_?]*/,keywords:XL_KEYWORDS,contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,DOUBLE_QUOTE_TEXT,SINGLE_QUOTE_TEXT,LONG_TEXT,FUNCTION_DEFINITION,IMPORT,BASED_NUMBER,hljs.NUMBER_MODE]}});hljs.registerLanguage("axapta",function(hljs){return{keywords:"false int abstract private char boolean static null if for true "+"while long throw finally protected final return void enum else "+"break new catch byte super case short default double public try this switch "+"continue reverse firstfast firstonly forupdate nofetch sum avg minof maxof count "+"order group by asc desc index hint like dispaly edit client server ttsbegin "+"ttscommit str real date container anytype common div mod",contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.C_NUMBER_MODE,{className:"meta",begin:"#",end:"$"},{className:"class",beginKeywords:"class interface",end:"{",excludeEnd:true,illegal:":",contains:[{beginKeywords:"extends implements"},hljs.UNDERSCORE_TITLE_MODE]}]}});hljs.registerLanguage("purebasic",function(hljs){var STRINGS={className:"string",begin:'(~)?"',end:'"',illegal:"\\n"};var CONSTANTS={className:"symbol",begin:"#[a-zA-Z_]\\w*\\$?"};return{aliases:["pb","pbi"],keywords:"Align And Array As Break CallDebugger Case CompilerCase CompilerDefault "+"CompilerElse CompilerElseIf CompilerEndIf CompilerEndSelect CompilerError "+"CompilerIf CompilerSelect CompilerWarning Continue Data DataSection Debug "+"DebugLevel Declare DeclareC DeclareCDLL DeclareDLL DeclareModule Default "+"Define Dim DisableASM DisableDebugger DisableExplicit Else ElseIf EnableASM "+"EnableDebugger EnableExplicit End EndDataSection EndDeclareModule EndEnumeration "+"EndIf EndImport EndInterface EndMacro EndModule EndProcedure EndSelect "+"EndStructure EndStructureUnion EndWith Enumeration EnumerationBinary Extends "+"FakeReturn For ForEach ForEver Global Gosub Goto If Import ImportC "+"IncludeBinary IncludeFile IncludePath Interface List Macro MacroExpandedCount "+"Map Module NewList NewMap Next Not Or Procedure ProcedureC "+"ProcedureCDLL ProcedureDLL ProcedureReturn Protected Prototype PrototypeC ReDim "+"Read Repeat Restore Return Runtime Select Shared Static Step Structure "+"StructureUnion Swap Threaded To UndefineMacro Until Until UnuseModule "+"UseModule Wend While With XIncludeFile XOr",contains:[hljs.COMMENT(";","$",{relevance:0}),{className:"function",begin:"\\b(Procedure|Declare)(C|CDLL|DLL)?\\b",end:"\\(",excludeEnd:true,returnBegin:true,contains:[{className:"keyword",begin:"(Procedure|Declare)(C|CDLL|DLL)?",excludeEnd:true},{className:"type",begin:"\\.\\w*"},hljs.UNDERSCORE_TITLE_MODE]},STRINGS,CONSTANTS]}});hljs.registerLanguage("zephir",function(hljs){var STRING={className:"string",contains:[hljs.BACKSLASH_ESCAPE],variants:[{begin:'b"',end:'"'},{begin:"b'",end:"'"},hljs.inherit(hljs.APOS_STRING_MODE,{illegal:null}),hljs.inherit(hljs.QUOTE_STRING_MODE,{illegal:null})]};var NUMBER={variants:[hljs.BINARY_NUMBER_MODE,hljs.C_NUMBER_MODE]};return{aliases:["zep"],case_insensitive:true,keywords:"and include_once list abstract global private echo interface as static endswitch "+"array null if endwhile or const for endforeach self var let while isset public "+"protected exit foreach throw elseif include __FILE__ empty require_once do xor "+"return parent clone use __CLASS__ __LINE__ else break print eval new "+"catch __METHOD__ case exception default die require __FUNCTION__ "+"enddeclare final try switch continue endfor endif declare unset true false "+"trait goto instanceof insteadof __DIR__ __NAMESPACE__ "+"yield finally int uint long ulong char uchar double float bool boolean string"+"likely unlikely",contains:[hljs.C_LINE_COMMENT_MODE,hljs.HASH_COMMENT_MODE,hljs.COMMENT("/\\*","\\*/",{contains:[{className:"doctag",begin:"@[A-Za-z]+"}]}),hljs.COMMENT("__halt_compiler.+?;",false,{endsWithParent:true,keywords:"__halt_compiler",lexemes:hljs.UNDERSCORE_IDENT_RE}),{className:"string",begin:"<<<['\"]?\\w+['\"]?$",end:"^\\w+;",contains:[hljs.BACKSLASH_ESCAPE]},{begin:/(::|->)+[a-zA-Z_\x7f-\xff][a-zA-Z0-9_\x7f-\xff]*/},{className:"function",beginKeywords:"function",end:/[;{]/,excludeEnd:true,illegal:"\\$|\\[|%",contains:[hljs.UNDERSCORE_TITLE_MODE,{className:"params",begin:"\\(",end:"\\)",contains:["self",hljs.C_BLOCK_COMMENT_MODE,STRING,NUMBER]}]},{className:"class",beginKeywords:"class interface",end:"{",excludeEnd:true,illegal:/[:\(\$"]/,contains:[{beginKeywords:"extends implements"},hljs.UNDERSCORE_TITLE_MODE]},{beginKeywords:"namespace",end:";",illegal:/[\.']/,contains:[hljs.UNDERSCORE_TITLE_MODE]},{beginKeywords:"use",end:";",contains:[hljs.UNDERSCORE_TITLE_MODE]},{begin:"=>"},STRING,NUMBER]}});hljs.registerLanguage("coq",function(hljs){return{keywords:{keyword:"_|0 as at cofix else end exists exists2 fix for forall fun if IF in let "+"match mod Prop return Set then Type using where with "+"Abort About Add Admit Admitted All Arguments Assumptions Axiom Back BackTo "+"Backtrack Bind Blacklist Canonical Cd Check Class Classes Close Coercion "+"Coercions CoFixpoint CoInductive Collection Combined Compute Conjecture "+"Conjectures Constant constr Constraint Constructors Context Corollary "+"CreateHintDb Cut Declare Defined Definition Delimit Dependencies Dependent"+"Derive Drop eauto End Equality Eval Example Existential Existentials "+"Existing Export exporting Extern Extract Extraction Fact Field Fields File "+"Fixpoint Focus for From Function Functional Generalizable Global Goal Grab "+"Grammar Graph Guarded Heap Hint HintDb Hints Hypotheses Hypothesis ident "+"Identity If Immediate Implicit Import Include Inductive Infix Info Initial "+"Inline Inspect Instance Instances Intro Intros Inversion Inversion_clear "+"Language Left Lemma Let Libraries Library Load LoadPath Local Locate Ltac ML "+"Mode Module Modules Monomorphic Morphism Next NoInline Notation Obligation "+"Obligations Opaque Open Optimize Options Parameter Parameters Parametric "+"Path Paths pattern Polymorphic Preterm Print Printing Program Projections "+"Proof Proposition Pwd Qed Quit Rec Record Recursive Redirect Relation Remark "+"Remove Require Reserved Reset Resolve Restart Rewrite Right Ring Rings Save "+"Scheme Scope Scopes Script Search SearchAbout SearchHead SearchPattern "+"SearchRewrite Section Separate Set Setoid Show Solve Sorted Step Strategies "+"Strategy Structure SubClass Table Tables Tactic Term Test Theorem Time "+"Timeout Transparent Type Typeclasses Types Undelimit Undo Unfocus Unfocused "+"Unfold Universe Universes Unset Unshelve using Variable Variables Variant "+"Verbose Visibility where with",built_in:"abstract absurd admit after apply as assert assumption at auto autorewrite "+"autounfold before bottom btauto by case case_eq cbn cbv change "+"classical_left classical_right clear clearbody cofix compare compute "+"congruence constr_eq constructor contradict contradiction cut cutrewrite "+"cycle decide decompose dependent destruct destruction dintuition "+"discriminate discrR do double dtauto eapply eassumption eauto ecase "+"econstructor edestruct ediscriminate eelim eexact eexists einduction "+"einjection eleft elim elimtype enough equality erewrite eright "+"esimplify_eq esplit evar exact exactly_once exfalso exists f_equal fail "+"field field_simplify field_simplify_eq first firstorder fix fold fourier "+"functional generalize generalizing gfail give_up has_evar hnf idtac in "+"induction injection instantiate intro intro_pattern intros intuition "+"inversion inversion_clear is_evar is_var lapply lazy left lia lra move "+"native_compute nia nsatz omega once pattern pose progress proof psatz quote "+"record red refine reflexivity remember rename repeat replace revert "+"revgoals rewrite rewrite_strat right ring ring_simplify rtauto set "+"setoid_reflexivity setoid_replace setoid_rewrite setoid_symmetry "+"setoid_transitivity shelve shelve_unifiable simpl simple simplify_eq solve "+"specialize split split_Rabs split_Rmult stepl stepr subst sum swap "+"symmetry tactic tauto time timeout top transitivity trivial try tryif "+"unfold unify until using vm_compute with"},contains:[hljs.QUOTE_STRING_MODE,hljs.COMMENT("\\(\\*","\\*\\)"),hljs.C_NUMBER_MODE,{className:"type",excludeBegin:true,begin:"\\|\\s*",end:"\\w+"},{begin:/[-=]>/}]}});hljs.registerLanguage("clojure",function(hljs){var keywords={"builtin-name":"def defonce cond apply if-not if-let if not not= = < > <= >= == + / * - rem "+"quot neg? pos? delay? symbol? keyword? true? false? integer? empty? coll? list? "+"set? ifn? fn? associative? sequential? sorted? counted? reversible? number? decimal? "+"class? distinct? isa? float? rational? reduced? ratio? odd? even? char? seq? vector? "+"string? map? nil? contains? zero? instance? not-every? not-any? libspec? -> ->> .. . "+"inc compare do dotimes mapcat take remove take-while drop letfn drop-last take-last "+"drop-while while intern condp case reduced cycle split-at split-with repeat replicate "+"iterate range merge zipmap declare line-seq sort comparator sort-by dorun doall nthnext "+"nthrest partition eval doseq await await-for let agent atom send send-off release-pending-sends "+"add-watch mapv filterv remove-watch agent-error restart-agent set-error-handler error-handler "+"set-error-mode! error-mode shutdown-agents quote var fn loop recur throw try monitor-enter "+"monitor-exit defmacro defn defn- macroexpand macroexpand-1 for dosync and or "+"when when-not when-let comp juxt partial sequence memoize constantly complement identity assert "+"peek pop doto proxy defstruct first rest cons defprotocol cast coll deftype defrecord last butlast "+"sigs reify second ffirst fnext nfirst nnext defmulti defmethod meta with-meta ns in-ns create-ns import "+"refer keys select-keys vals key val rseq name namespace promise into transient persistent! conj! "+"assoc! dissoc! pop! disj! use class type num float double short byte boolean bigint biginteger "+"bigdec print-method print-dup throw-if printf format load compile get-in update-in pr pr-on newline "+"flush read slurp read-line subvec with-open memfn time re-find re-groups rand-int rand mod locking "+"assert-valid-fdecl alias resolve ref deref refset swap! reset! set-validator! compare-and-set! alter-meta! "+"reset-meta! commute get-validator alter ref-set ref-history-count ref-min-history ref-max-history ensure sync io! "+"new next conj set! to-array future future-call into-array aset gen-class reduce map filter find empty "+"hash-map hash-set sorted-map sorted-map-by sorted-set sorted-set-by vec vector seq flatten reverse assoc dissoc list "+"disj get union difference intersection extend extend-type extend-protocol int nth delay count concat chunk chunk-buffer "+"chunk-append chunk-first chunk-rest max min dec unchecked-inc-int unchecked-inc unchecked-dec-inc unchecked-dec unchecked-negate "+"unchecked-add-int unchecked-add unchecked-subtract-int unchecked-subtract chunk-next chunk-cons chunked-seq? prn vary-meta "+"lazy-seq spread list* str find-keyword keyword symbol gensym force rationalize"};var SYMBOLSTART="a-zA-Z_\\-!.?+*=<>&#'";var SYMBOL_RE="["+SYMBOLSTART+"]["+SYMBOLSTART+"0-9/;:]*";var SIMPLE_NUMBER_RE="[-+]?\\d+(\\.\\d+)?";var SYMBOL={begin:SYMBOL_RE,relevance:0};var NUMBER={className:"number",begin:SIMPLE_NUMBER_RE,relevance:0};var STRING=hljs.inherit(hljs.QUOTE_STRING_MODE,{illegal:null});var COMMENT=hljs.COMMENT(";","$",{relevance:0});var LITERAL={className:"literal",begin:/\b(true|false|nil)\b/};var COLLECTION={begin:"[\\[\\{]",end:"[\\]\\}]"};var HINT={className:"comment",begin:"\\^"+SYMBOL_RE};var HINT_COL=hljs.COMMENT("\\^\\{","\\}");var KEY={className:"symbol",begin:"[:]{1,2}"+SYMBOL_RE};var LIST={begin:"\\(",end:"\\)"};var BODY={endsWithParent:true,relevance:0};var NAME={keywords:keywords,lexemes:SYMBOL_RE,className:"name",begin:SYMBOL_RE,starts:BODY};var DEFAULT_CONTAINS=[LIST,STRING,HINT,HINT_COL,COMMENT,KEY,COLLECTION,NUMBER,LITERAL,SYMBOL];LIST.contains=[hljs.COMMENT("comment",""),NAME,BODY];BODY.contains=DEFAULT_CONTAINS;COLLECTION.contains=DEFAULT_CONTAINS;HINT_COL.contains=[COLLECTION];return{aliases:["clj"],illegal:/\S/,contains:[LIST,STRING,HINT,HINT_COL,COMMENT,KEY,COLLECTION,NUMBER,LITERAL]}});hljs.registerLanguage("clojure-repl",function(hljs){return{contains:[{className:"meta",begin:/^([\w.-]+|\s*#_)?=>/,starts:{end:/$/,subLanguage:"clojure"}}]}});hljs.registerLanguage("java",function(hljs){var JAVA_IDENT_RE="[À-ʸa-zA-Z_$][À-ʸa-zA-Z_$0-9]*";var GENERIC_IDENT_RE=JAVA_IDENT_RE+"(<"+JAVA_IDENT_RE+"(\\s*,\\s*"+JAVA_IDENT_RE+")*>)?";var KEYWORDS="false synchronized int abstract float private char boolean var static null if const "+"for true while long strictfp finally protected import native final void "+"enum else break transient catch instanceof byte super volatile case assert short "+"package default double public try this switch continue throws protected public private "+"module requires exports do";var JAVA_NUMBER_RE="\\b"+"("+"0[bB]([01]+[01_]+[01]+|[01]+)"+"|"+"0[xX]([a-fA-F0-9]+[a-fA-F0-9_]+[a-fA-F0-9]+|[a-fA-F0-9]+)"+"|"+"("+"([\\d]+[\\d_]+[\\d]+|[\\d]+)(\\.([\\d]+[\\d_]+[\\d]+|[\\d]+))?"+"|"+"\\.([\\d]+[\\d_]+[\\d]+|[\\d]+)"+")"+"([eE][-+]?\\d+)?"+")"+"[lLfF]?";var JAVA_NUMBER_MODE={className:"number",begin:JAVA_NUMBER_RE,relevance:0};return{aliases:["jsp"],keywords:KEYWORDS,illegal:/<\/|#/,contains:[hljs.COMMENT("/\\*\\*","\\*/",{relevance:0,contains:[{begin:/\w+@/,relevance:0},{className:"doctag",begin:"@[A-Za-z]+"}]}),hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,{className:"class",beginKeywords:"class interface",end:/[{;=]/,excludeEnd:true,keywords:"class interface",illegal:/[:"\[\]]/,contains:[{beginKeywords:"extends implements"},hljs.UNDERSCORE_TITLE_MODE]},{beginKeywords:"new throw return else",relevance:0},{className:"function",begin:"("+GENERIC_IDENT_RE+"\\s+)+"+hljs.UNDERSCORE_IDENT_RE+"\\s*\\(",returnBegin:true,end:/[{;=]/,excludeEnd:true,keywords:KEYWORDS,contains:[{begin:hljs.UNDERSCORE_IDENT_RE+"\\s*\\(",returnBegin:true,relevance:0,contains:[hljs.UNDERSCORE_TITLE_MODE]},{className:"params",begin:/\(/,end:/\)/,keywords:KEYWORDS,relevance:0,contains:[hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.C_NUMBER_MODE,hljs.C_BLOCK_COMMENT_MODE]},hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE]},JAVA_NUMBER_MODE,{className:"meta",begin:"@[A-Za-z]+"}]}});hljs.registerLanguage("csp",function(hljs){return{case_insensitive:false,lexemes:"[a-zA-Z][a-zA-Z0-9_-]*",keywords:{keyword:"base-uri child-src connect-src default-src font-src form-action"+" frame-ancestors frame-src img-src media-src object-src plugin-types"+" report-uri sandbox script-src style-src"},contains:[{className:"string",begin:"'",end:"'"},{className:"attribute",begin:"^Content",end:":",excludeEnd:true}]}});hljs.registerLanguage("ruby",function(hljs){var RUBY_METHOD_RE="[a-zA-Z_]\\w*[!?=]?|[-+~]\\@|<<|>>|=~|===?|<=>|[<>]=?|\\*\\*|[-/+%^&*~`|]|\\[\\]=?";var RUBY_KEYWORDS={keyword:"and then defined module in return redo if BEGIN retry end for self when "+"next until do begin unless END rescue else break undef not super class case "+"require yield alias while ensure elsif or include attr_reader attr_writer attr_accessor",literal:"true false nil"};var YARDOCTAG={className:"doctag",begin:"@[A-Za-z]+"};var IRB_OBJECT={begin:"#<",end:">"};var COMMENT_MODES=[hljs.COMMENT("#","$",{contains:[YARDOCTAG]}),hljs.COMMENT("^\\=begin","^\\=end",{contains:[YARDOCTAG],relevance:10}),hljs.COMMENT("^__END__","\\n$")];var SUBST={className:"subst",begin:"#\\{",end:"}",keywords:RUBY_KEYWORDS};var STRING={className:"string",contains:[hljs.BACKSLASH_ESCAPE,SUBST],variants:[{begin:/'/,end:/'/},{begin:/"/,end:/"/},{begin:/`/,end:/`/},{begin:"%[qQwWx]?\\(",end:"\\)"},{begin:"%[qQwWx]?\\[",end:"\\]"},{begin:"%[qQwWx]?{",end:"}"},{begin:"%[qQwWx]?<",end:">"},{begin:"%[qQwWx]?/",end:"/"},{begin:"%[qQwWx]?%",end:"%"},{begin:"%[qQwWx]?-",end:"-"},{begin:"%[qQwWx]?\\|",end:"\\|"},{begin:/\B\?(\\\d{1,3}|\\x[A-Fa-f0-9]{1,2}|\\u[A-Fa-f0-9]{4}|\\?\S)\b/},{begin:/<<[-~]?'?(\w+)(?:.|\n)*?\n\s*\1\b/,returnBegin:true,contains:[{begin:/<<[-~]?'?/},{begin:/\w+/,endSameAsBegin:true,contains:[hljs.BACKSLASH_ESCAPE,SUBST]}]}]};var PARAMS={className:"params",begin:"\\(",end:"\\)",endsParent:true,keywords:RUBY_KEYWORDS};var RUBY_DEFAULT_CONTAINS=[STRING,IRB_OBJECT,{className:"class",beginKeywords:"class module",end:"$|;",illegal:/=/,contains:[hljs.inherit(hljs.TITLE_MODE,{begin:"[A-Za-z_]\\w*(::\\w+)*(\\?|\\!)?"}),{begin:"<\\s*",contains:[{begin:"("+hljs.IDENT_RE+"::)?"+hljs.IDENT_RE}]}].concat(COMMENT_MODES)},{className:"function",beginKeywords:"def",end:"$|;",contains:[hljs.inherit(hljs.TITLE_MODE,{begin:RUBY_METHOD_RE}),PARAMS].concat(COMMENT_MODES)},{begin:hljs.IDENT_RE+"::"},{className:"symbol",begin:hljs.UNDERSCORE_IDENT_RE+"(\\!|\\?)?:",relevance:0},{className:"symbol",begin:":(?!\\s)",contains:[STRING,{begin:RUBY_METHOD_RE}],relevance:0},{className:"number",begin:"(\\b0[0-7_]+)|(\\b0x[0-9a-fA-F_]+)|(\\b[1-9][0-9_]*(\\.[0-9_]+)?)|[0_]\\b",relevance:0},{begin:"(\\$\\W)|((\\$|\\@\\@?)(\\w+))"},{className:"params",begin:/\|/,end:/\|/,keywords:RUBY_KEYWORDS},{begin:"("+hljs.RE_STARTERS_RE+"|unless)\\s*",keywords:"unless",contains:[IRB_OBJECT,{className:"regexp",contains:[hljs.BACKSLASH_ESCAPE,SUBST],illegal:/\n/,variants:[{begin:"/",end:"/[a-z]*"},{begin:"%r{",end:"}[a-z]*"},{begin:"%r\\(",end:"\\)[a-z]*"},{begin:"%r!",end:"![a-z]*"},{begin:"%r\\[",end:"\\][a-z]*"}]}].concat(COMMENT_MODES),relevance:0}].concat(COMMENT_MODES);SUBST.contains=RUBY_DEFAULT_CONTAINS;PARAMS.contains=RUBY_DEFAULT_CONTAINS;var SIMPLE_PROMPT="[>?]>";var DEFAULT_PROMPT="[\\w#]+\\(\\w+\\):\\d+:\\d+>";var RVM_PROMPT="(\\w+-)?\\d+\\.\\d+\\.\\d(p\\d+)?[^>]+>";var IRB_DEFAULT=[{begin:/^\s*=>/,starts:{end:"$",contains:RUBY_DEFAULT_CONTAINS}},{className:"meta",begin:"^("+SIMPLE_PROMPT+"|"+DEFAULT_PROMPT+"|"+RVM_PROMPT+")",starts:{end:"$",contains:RUBY_DEFAULT_CONTAINS}}];return{aliases:["rb","gemspec","podspec","thor","irb"],keywords:RUBY_KEYWORDS,illegal:/\/\*/,contains:COMMENT_MODES.concat(IRB_DEFAULT).concat(RUBY_DEFAULT_CONTAINS)}});hljs.registerLanguage("cs",function(hljs){var KEYWORDS={keyword:"abstract as base bool break byte case catch char checked const continue decimal "+"default delegate do double enum event explicit extern finally fixed float "+"for foreach goto if implicit in int interface internal is lock long "+"object operator out override params private protected public readonly ref sbyte "+"sealed short sizeof stackalloc static string struct switch this try typeof "+"uint ulong unchecked unsafe ushort using virtual void volatile while "+"add alias ascending async await by descending dynamic equals from get global group into join "+"let nameof on orderby partial remove select set value var when where yield",literal:"null false true"};var NUMBERS={className:"number",variants:[{begin:"\\b(0b[01']+)"},{begin:"(-?)\\b([\\d']+(\\.[\\d']*)?|\\.[\\d']+)(u|U|l|L|ul|UL|f|F|b|B)"},{begin:"(-?)(\\b0[xX][a-fA-F0-9']+|(\\b[\\d']+(\\.[\\d']*)?|\\.[\\d']+)([eE][-+]?[\\d']+)?)"}],relevance:0};var VERBATIM_STRING={className:"string",begin:'@"',end:'"',contains:[{begin:'""'}]};var VERBATIM_STRING_NO_LF=hljs.inherit(VERBATIM_STRING,{illegal:/\n/});var SUBST={className:"subst",begin:"{",end:"}",keywords:KEYWORDS};var SUBST_NO_LF=hljs.inherit(SUBST,{illegal:/\n/});var INTERPOLATED_STRING={className:"string",begin:/\$"/,end:'"',illegal:/\n/,contains:[{begin:"{{"},{begin:"}}"},hljs.BACKSLASH_ESCAPE,SUBST_NO_LF]};var INTERPOLATED_VERBATIM_STRING={className:"string",begin:/\$@"/,end:'"',contains:[{begin:"{{"},{begin:"}}"},{begin:'""'},SUBST]};var INTERPOLATED_VERBATIM_STRING_NO_LF=hljs.inherit(INTERPOLATED_VERBATIM_STRING,{illegal:/\n/,contains:[{begin:"{{"},{begin:"}}"},{begin:'""'},SUBST_NO_LF]});SUBST.contains=[INTERPOLATED_VERBATIM_STRING,INTERPOLATED_STRING,VERBATIM_STRING,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,NUMBERS,hljs.C_BLOCK_COMMENT_MODE];SUBST_NO_LF.contains=[INTERPOLATED_VERBATIM_STRING_NO_LF,INTERPOLATED_STRING,VERBATIM_STRING_NO_LF,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,NUMBERS,hljs.inherit(hljs.C_BLOCK_COMMENT_MODE,{illegal:/\n/})];var STRING={variants:[INTERPOLATED_VERBATIM_STRING,INTERPOLATED_STRING,VERBATIM_STRING,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE]};var TYPE_IDENT_RE=hljs.IDENT_RE+"(<"+hljs.IDENT_RE+"(\\s*,\\s*"+hljs.IDENT_RE+")*>)?(\\[\\])?";return{aliases:["csharp","c#"],keywords:KEYWORDS,illegal:/::/,contains:[hljs.COMMENT("///","$",{returnBegin:true,contains:[{className:"doctag",variants:[{begin:"///",relevance:0},{begin:"\x3c!--|--\x3e"},{begin:"</?",end:">"}]}]}),hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,{className:"meta",begin:"#",end:"$",keywords:{"meta-keyword":"if else elif endif define undef warning error line region endregion pragma checksum"}},STRING,NUMBERS,{beginKeywords:"class interface",end:/[{;=]/,illegal:/[^\s:,]/,contains:[hljs.TITLE_MODE,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE]},{beginKeywords:"namespace",end:/[{;=]/,illegal:/[^\s:]/,contains:[hljs.inherit(hljs.TITLE_MODE,{begin:"[a-zA-Z](\\.?\\w)*"}),hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE]},{className:"meta",begin:"^\\s*\\[",excludeBegin:true,end:"\\]",excludeEnd:true,contains:[{className:"meta-string",begin:/"/,end:/"/}]},{beginKeywords:"new return throw await else",relevance:0},{className:"function",begin:"("+TYPE_IDENT_RE+"\\s+)+"+hljs.IDENT_RE+"\\s*\\(",returnBegin:true,end:/\s*[{;=]/,excludeEnd:true,keywords:KEYWORDS,contains:[{begin:hljs.IDENT_RE+"\\s*\\(",returnBegin:true,contains:[hljs.TITLE_MODE],relevance:0},{className:"params",begin:/\(/,end:/\)/,excludeBegin:true,excludeEnd:true,keywords:KEYWORDS,relevance:0,contains:[STRING,NUMBERS,hljs.C_BLOCK_COMMENT_MODE]},hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE]}]}});hljs.registerLanguage("x86asm",function(hljs){return{case_insensitive:true,lexemes:"[.%]?"+hljs.IDENT_RE,keywords:{keyword:"lock rep repe repz repne repnz xaquire xrelease bnd nobnd "+"aaa aad aam aas adc add and arpl bb0_reset bb1_reset bound bsf bsr bswap bt btc btr bts call cbw cdq cdqe clc cld cli clts cmc cmp cmpsb cmpsd cmpsq cmpsw cmpxchg cmpxchg486 cmpxchg8b cmpxchg16b cpuid cpu_read cpu_write cqo cwd cwde daa das dec div dmint emms enter equ f2xm1 fabs fadd faddp fbld fbstp fchs fclex fcmovb fcmovbe fcmove fcmovnb fcmovnbe fcmovne fcmovnu fcmovu fcom fcomi fcomip fcomp fcompp fcos fdecstp fdisi fdiv fdivp fdivr fdivrp femms feni ffree ffreep fiadd ficom ficomp fidiv fidivr fild fimul fincstp finit fist fistp fisttp fisub fisubr fld fld1 fldcw fldenv fldl2e fldl2t fldlg2 fldln2 fldpi fldz fmul fmulp fnclex fndisi fneni fninit fnop fnsave fnstcw fnstenv fnstsw fpatan fprem fprem1 fptan frndint frstor fsave fscale fsetpm fsin fsincos fsqrt fst fstcw fstenv fstp fstsw fsub fsubp fsubr fsubrp ftst fucom fucomi fucomip fucomp fucompp fxam fxch fxtract fyl2x fyl2xp1 hlt ibts icebp idiv imul in inc incbin insb insd insw int int01 int1 int03 int3 into invd invpcid invlpg invlpga iret iretd iretq iretw jcxz jecxz jrcxz jmp jmpe lahf lar lds lea leave les lfence lfs lgdt lgs lidt lldt lmsw loadall loadall286 lodsb lodsd lodsq lodsw loop loope loopne loopnz loopz lsl lss ltr mfence monitor mov movd movq movsb movsd movsq movsw movsx movsxd movzx mul mwait neg nop not or out outsb outsd outsw packssdw packsswb packuswb paddb paddd paddsb paddsiw paddsw paddusb paddusw paddw pand pandn pause paveb pavgusb pcmpeqb pcmpeqd pcmpeqw pcmpgtb pcmpgtd pcmpgtw pdistib pf2id pfacc pfadd pfcmpeq pfcmpge pfcmpgt pfmax pfmin pfmul pfrcp pfrcpit1 pfrcpit2 pfrsqit1 pfrsqrt pfsub pfsubr pi2fd pmachriw pmaddwd pmagw pmulhriw pmulhrwa pmulhrwc pmulhw pmullw pmvgezb pmvlzb pmvnzb pmvzb pop popa popad popaw popf popfd popfq popfw por prefetch prefetchw pslld psllq psllw psrad psraw psrld psrlq psrlw psubb psubd psubsb psubsiw psubsw psubusb psubusw psubw punpckhbw punpckhdq punpckhwd punpcklbw punpckldq punpcklwd push pusha pushad pushaw pushf pushfd pushfq pushfw pxor rcl rcr rdshr rdmsr rdpmc rdtsc rdtscp ret retf retn rol ror rdm rsdc rsldt rsm rsts sahf sal salc sar sbb scasb scasd scasq scasw sfence sgdt shl shld shr shrd sidt sldt skinit smi smint smintold smsw stc std sti stosb stosd stosq stosw str sub svdc svldt svts swapgs syscall sysenter sysexit sysret test ud0 ud1 ud2b ud2 ud2a umov verr verw fwait wbinvd wrshr wrmsr xadd xbts xchg xlatb xlat xor cmove cmovz cmovne cmovnz cmova cmovnbe cmovae cmovnb cmovb cmovnae cmovbe cmovna cmovg cmovnle cmovge cmovnl cmovl cmovnge cmovle cmovng cmovc cmovnc cmovo cmovno cmovs cmovns cmovp cmovpe cmovnp cmovpo je jz jne jnz ja jnbe jae jnb jb jnae jbe jna jg jnle jge jnl jl jnge jle jng jc jnc jo jno js jns jpo jnp jpe jp sete setz setne setnz seta setnbe setae setnb setnc setb setnae setcset setbe setna setg setnle setge setnl setl setnge setle setng sets setns seto setno setpe setp setpo setnp addps addss andnps andps cmpeqps cmpeqss cmpleps cmpless cmpltps cmpltss cmpneqps cmpneqss cmpnleps cmpnless cmpnltps cmpnltss cmpordps cmpordss cmpunordps cmpunordss cmpps cmpss comiss cvtpi2ps cvtps2pi cvtsi2ss cvtss2si cvttps2pi cvttss2si divps divss ldmxcsr maxps maxss minps minss movaps movhps movlhps movlps movhlps movmskps movntps movss movups mulps mulss orps rcpps rcpss rsqrtps rsqrtss shufps sqrtps sqrtss stmxcsr subps subss ucomiss unpckhps unpcklps xorps fxrstor fxrstor64 fxsave fxsave64 xgetbv xsetbv xsave xsave64 xsaveopt xsaveopt64 xrstor xrstor64 prefetchnta prefetcht0 prefetcht1 prefetcht2 maskmovq movntq pavgb pavgw pextrw pinsrw pmaxsw pmaxub pminsw pminub pmovmskb pmulhuw psadbw pshufw pf2iw pfnacc pfpnacc pi2fw pswapd maskmovdqu clflush movntdq movnti movntpd movdqa movdqu movdq2q movq2dq paddq pmuludq pshufd pshufhw pshuflw pslldq psrldq psubq punpckhqdq punpcklqdq addpd addsd andnpd andpd cmpeqpd cmpeqsd cmplepd cmplesd cmpltpd cmpltsd cmpneqpd cmpneqsd cmpnlepd cmpnlesd cmpnltpd cmpnltsd cmpordpd cmpordsd cmpunordpd cmpunordsd cmppd comisd cvtdq2pd cvtdq2ps cvtpd2dq cvtpd2pi cvtpd2ps cvtpi2pd cvtps2dq cvtps2pd cvtsd2si cvtsd2ss cvtsi2sd cvtss2sd cvttpd2pi cvttpd2dq cvttps2dq cvttsd2si divpd divsd maxpd maxsd minpd minsd movapd movhpd movlpd movmskpd movupd mulpd mulsd orpd shufpd sqrtpd sqrtsd subpd subsd ucomisd unpckhpd unpcklpd xorpd addsubpd addsubps haddpd haddps hsubpd hsubps lddqu movddup movshdup movsldup clgi stgi vmcall vmclear vmfunc vmlaunch vmload vmmcall vmptrld vmptrst vmread vmresume vmrun vmsave vmwrite vmxoff vmxon invept invvpid pabsb pabsw pabsd palignr phaddw phaddd phaddsw phsubw phsubd phsubsw pmaddubsw pmulhrsw pshufb psignb psignw psignd extrq insertq movntsd movntss lzcnt blendpd blendps blendvpd blendvps dppd dpps extractps insertps movntdqa mpsadbw packusdw pblendvb pblendw pcmpeqq pextrb pextrd pextrq phminposuw pinsrb pinsrd pinsrq pmaxsb pmaxsd pmaxud pmaxuw pminsb pminsd pminud pminuw pmovsxbw pmovsxbd pmovsxbq pmovsxwd pmovsxwq pmovsxdq pmovzxbw pmovzxbd pmovzxbq pmovzxwd pmovzxwq pmovzxdq pmuldq pmulld ptest roundpd roundps roundsd roundss crc32 pcmpestri pcmpestrm pcmpistri pcmpistrm pcmpgtq popcnt getsec pfrcpv pfrsqrtv movbe aesenc aesenclast aesdec aesdeclast aesimc aeskeygenassist vaesenc vaesenclast vaesdec vaesdeclast vaesimc vaeskeygenassist vaddpd vaddps vaddsd vaddss vaddsubpd vaddsubps vandpd vandps vandnpd vandnps vblendpd vblendps vblendvpd vblendvps vbroadcastss vbroadcastsd vbroadcastf128 vcmpeq_ospd vcmpeqpd vcmplt_ospd vcmpltpd vcmple_ospd vcmplepd vcmpunord_qpd vcmpunordpd vcmpneq_uqpd vcmpneqpd vcmpnlt_uspd vcmpnltpd vcmpnle_uspd vcmpnlepd vcmpord_qpd vcmpordpd vcmpeq_uqpd vcmpnge_uspd vcmpngepd vcmpngt_uspd vcmpngtpd vcmpfalse_oqpd vcmpfalsepd vcmpneq_oqpd vcmpge_ospd vcmpgepd vcmpgt_ospd vcmpgtpd vcmptrue_uqpd vcmptruepd vcmplt_oqpd vcmple_oqpd vcmpunord_spd vcmpneq_uspd vcmpnlt_uqpd vcmpnle_uqpd vcmpord_spd vcmpeq_uspd vcmpnge_uqpd vcmpngt_uqpd vcmpfalse_ospd vcmpneq_ospd vcmpge_oqpd vcmpgt_oqpd vcmptrue_uspd vcmppd vcmpeq_osps vcmpeqps vcmplt_osps vcmpltps vcmple_osps vcmpleps vcmpunord_qps vcmpunordps vcmpneq_uqps vcmpneqps vcmpnlt_usps vcmpnltps vcmpnle_usps vcmpnleps vcmpord_qps vcmpordps vcmpeq_uqps vcmpnge_usps vcmpngeps vcmpngt_usps vcmpngtps vcmpfalse_oqps vcmpfalseps vcmpneq_oqps vcmpge_osps vcmpgeps vcmpgt_osps vcmpgtps vcmptrue_uqps vcmptrueps vcmplt_oqps vcmple_oqps vcmpunord_sps vcmpneq_usps vcmpnlt_uqps vcmpnle_uqps vcmpord_sps vcmpeq_usps vcmpnge_uqps vcmpngt_uqps vcmpfalse_osps vcmpneq_osps vcmpge_oqps vcmpgt_oqps vcmptrue_usps vcmpps vcmpeq_ossd vcmpeqsd vcmplt_ossd vcmpltsd vcmple_ossd vcmplesd vcmpunord_qsd vcmpunordsd vcmpneq_uqsd vcmpneqsd vcmpnlt_ussd vcmpnltsd vcmpnle_ussd vcmpnlesd vcmpord_qsd vcmpordsd vcmpeq_uqsd vcmpnge_ussd vcmpngesd vcmpngt_ussd vcmpngtsd vcmpfalse_oqsd vcmpfalsesd vcmpneq_oqsd vcmpge_ossd vcmpgesd vcmpgt_ossd vcmpgtsd vcmptrue_uqsd vcmptruesd vcmplt_oqsd vcmple_oqsd vcmpunord_ssd vcmpneq_ussd vcmpnlt_uqsd vcmpnle_uqsd vcmpord_ssd vcmpeq_ussd vcmpnge_uqsd vcmpngt_uqsd vcmpfalse_ossd vcmpneq_ossd vcmpge_oqsd vcmpgt_oqsd vcmptrue_ussd vcmpsd vcmpeq_osss vcmpeqss vcmplt_osss vcmpltss vcmple_osss vcmpless vcmpunord_qss vcmpunordss vcmpneq_uqss vcmpneqss vcmpnlt_usss vcmpnltss vcmpnle_usss vcmpnless vcmpord_qss vcmpordss vcmpeq_uqss vcmpnge_usss vcmpngess vcmpngt_usss vcmpngtss vcmpfalse_oqss vcmpfalsess vcmpneq_oqss vcmpge_osss vcmpgess vcmpgt_osss vcmpgtss vcmptrue_uqss vcmptruess vcmplt_oqss vcmple_oqss vcmpunord_sss vcmpneq_usss vcmpnlt_uqss vcmpnle_uqss vcmpord_sss vcmpeq_usss vcmpnge_uqss vcmpngt_uqss vcmpfalse_osss vcmpneq_osss vcmpge_oqss vcmpgt_oqss vcmptrue_usss vcmpss vcomisd vcomiss vcvtdq2pd vcvtdq2ps vcvtpd2dq vcvtpd2ps vcvtps2dq vcvtps2pd vcvtsd2si vcvtsd2ss vcvtsi2sd vcvtsi2ss vcvtss2sd vcvtss2si vcvttpd2dq vcvttps2dq vcvttsd2si vcvttss2si vdivpd vdivps vdivsd vdivss vdppd vdpps vextractf128 vextractps vhaddpd vhaddps vhsubpd vhsubps vinsertf128 vinsertps vlddqu vldqqu vldmxcsr vmaskmovdqu vmaskmovps vmaskmovpd vmaxpd vmaxps vmaxsd vmaxss vminpd vminps vminsd vminss vmovapd vmovaps vmovd vmovq vmovddup vmovdqa vmovqqa vmovdqu vmovqqu vmovhlps vmovhpd vmovhps vmovlhps vmovlpd vmovlps vmovmskpd vmovmskps vmovntdq vmovntqq vmovntdqa vmovntpd vmovntps vmovsd vmovshdup vmovsldup vmovss vmovupd vmovups vmpsadbw vmulpd vmulps vmulsd vmulss vorpd vorps vpabsb vpabsw vpabsd vpacksswb vpackssdw vpackuswb vpackusdw vpaddb vpaddw vpaddd vpaddq vpaddsb vpaddsw vpaddusb vpaddusw vpalignr vpand vpandn vpavgb vpavgw vpblendvb vpblendw vpcmpestri vpcmpestrm vpcmpistri vpcmpistrm vpcmpeqb vpcmpeqw vpcmpeqd vpcmpeqq vpcmpgtb vpcmpgtw vpcmpgtd vpcmpgtq vpermilpd vpermilps vperm2f128 vpextrb vpextrw vpextrd vpextrq vphaddw vphaddd vphaddsw vphminposuw vphsubw vphsubd vphsubsw vpinsrb vpinsrw vpinsrd vpinsrq vpmaddwd vpmaddubsw vpmaxsb vpmaxsw vpmaxsd vpmaxub vpmaxuw vpmaxud vpminsb vpminsw vpminsd vpminub vpminuw vpminud vpmovmskb vpmovsxbw vpmovsxbd vpmovsxbq vpmovsxwd vpmovsxwq vpmovsxdq vpmovzxbw vpmovzxbd vpmovzxbq vpmovzxwd vpmovzxwq vpmovzxdq vpmulhuw vpmulhrsw vpmulhw vpmullw vpmulld vpmuludq vpmuldq vpor vpsadbw vpshufb vpshufd vpshufhw vpshuflw vpsignb vpsignw vpsignd vpslldq vpsrldq vpsllw vpslld vpsllq vpsraw vpsrad vpsrlw vpsrld vpsrlq vptest vpsubb vpsubw vpsubd vpsubq vpsubsb vpsubsw vpsubusb vpsubusw vpunpckhbw vpunpckhwd vpunpckhdq vpunpckhqdq vpunpcklbw vpunpcklwd vpunpckldq vpunpcklqdq vpxor vrcpps vrcpss vrsqrtps vrsqrtss vroundpd vroundps vroundsd vroundss vshufpd vshufps vsqrtpd vsqrtps vsqrtsd vsqrtss vstmxcsr vsubpd vsubps vsubsd vsubss vtestps vtestpd vucomisd vucomiss vunpckhpd vunpckhps vunpcklpd vunpcklps vxorpd vxorps vzeroall vzeroupper pclmullqlqdq pclmulhqlqdq pclmullqhqdq pclmulhqhqdq pclmulqdq vpclmullqlqdq vpclmulhqlqdq vpclmullqhqdq vpclmulhqhqdq vpclmulqdq vfmadd132ps vfmadd132pd vfmadd312ps vfmadd312pd vfmadd213ps vfmadd213pd vfmadd123ps vfmadd123pd vfmadd231ps vfmadd231pd vfmadd321ps vfmadd321pd vfmaddsub132ps vfmaddsub132pd vfmaddsub312ps vfmaddsub312pd vfmaddsub213ps vfmaddsub213pd vfmaddsub123ps vfmaddsub123pd vfmaddsub231ps vfmaddsub231pd vfmaddsub321ps vfmaddsub321pd vfmsub132ps vfmsub132pd vfmsub312ps vfmsub312pd vfmsub213ps vfmsub213pd vfmsub123ps vfmsub123pd vfmsub231ps vfmsub231pd vfmsub321ps vfmsub321pd vfmsubadd132ps vfmsubadd132pd vfmsubadd312ps vfmsubadd312pd vfmsubadd213ps vfmsubadd213pd vfmsubadd123ps vfmsubadd123pd vfmsubadd231ps vfmsubadd231pd vfmsubadd321ps vfmsubadd321pd vfnmadd132ps vfnmadd132pd vfnmadd312ps vfnmadd312pd vfnmadd213ps vfnmadd213pd vfnmadd123ps vfnmadd123pd vfnmadd231ps vfnmadd231pd vfnmadd321ps vfnmadd321pd vfnmsub132ps vfnmsub132pd vfnmsub312ps vfnmsub312pd vfnmsub213ps vfnmsub213pd vfnmsub123ps vfnmsub123pd vfnmsub231ps vfnmsub231pd vfnmsub321ps vfnmsub321pd vfmadd132ss vfmadd132sd vfmadd312ss vfmadd312sd vfmadd213ss vfmadd213sd vfmadd123ss vfmadd123sd vfmadd231ss vfmadd231sd vfmadd321ss vfmadd321sd vfmsub132ss vfmsub132sd vfmsub312ss vfmsub312sd vfmsub213ss vfmsub213sd vfmsub123ss vfmsub123sd vfmsub231ss vfmsub231sd vfmsub321ss vfmsub321sd vfnmadd132ss vfnmadd132sd vfnmadd312ss vfnmadd312sd vfnmadd213ss vfnmadd213sd vfnmadd123ss vfnmadd123sd vfnmadd231ss vfnmadd231sd vfnmadd321ss vfnmadd321sd vfnmsub132ss vfnmsub132sd vfnmsub312ss vfnmsub312sd vfnmsub213ss vfnmsub213sd vfnmsub123ss vfnmsub123sd vfnmsub231ss vfnmsub231sd vfnmsub321ss vfnmsub321sd rdfsbase rdgsbase rdrand wrfsbase wrgsbase vcvtph2ps vcvtps2ph adcx adox rdseed clac stac xstore xcryptecb xcryptcbc xcryptctr xcryptcfb xcryptofb montmul xsha1 xsha256 llwpcb slwpcb lwpval lwpins vfmaddpd vfmaddps vfmaddsd vfmaddss vfmaddsubpd vfmaddsubps vfmsubaddpd vfmsubaddps vfmsubpd vfmsubps vfmsubsd vfmsubss vfnmaddpd vfnmaddps vfnmaddsd vfnmaddss vfnmsubpd vfnmsubps vfnmsubsd vfnmsubss vfrczpd vfrczps vfrczsd vfrczss vpcmov vpcomb vpcomd vpcomq vpcomub vpcomud vpcomuq vpcomuw vpcomw vphaddbd vphaddbq vphaddbw vphadddq vphaddubd vphaddubq vphaddubw vphaddudq vphadduwd vphadduwq vphaddwd vphaddwq vphsubbw vphsubdq vphsubwd vpmacsdd vpmacsdqh vpmacsdql vpmacssdd vpmacssdqh vpmacssdql vpmacsswd vpmacssww vpmacswd vpmacsww vpmadcsswd vpmadcswd vpperm vprotb vprotd vprotq vprotw vpshab vpshad vpshaq vpshaw vpshlb vpshld vpshlq vpshlw vbroadcasti128 vpblendd vpbroadcastb vpbroadcastw vpbroadcastd vpbroadcastq vpermd vpermpd vpermps vpermq vperm2i128 vextracti128 vinserti128 vpmaskmovd vpmaskmovq vpsllvd vpsllvq vpsravd vpsrlvd vpsrlvq vgatherdpd vgatherqpd vgatherdps vgatherqps vpgatherdd vpgatherqd vpgatherdq vpgatherqq xabort xbegin xend xtest andn bextr blci blcic blsi blsic blcfill blsfill blcmsk blsmsk blsr blcs bzhi mulx pdep pext rorx sarx shlx shrx tzcnt tzmsk t1mskc valignd valignq vblendmpd vblendmps vbroadcastf32x4 vbroadcastf64x4 vbroadcasti32x4 vbroadcasti64x4 vcompresspd vcompressps vcvtpd2udq vcvtps2udq vcvtsd2usi vcvtss2usi vcvttpd2udq vcvttps2udq vcvttsd2usi vcvttss2usi vcvtudq2pd vcvtudq2ps vcvtusi2sd vcvtusi2ss vexpandpd vexpandps vextractf32x4 vextractf64x4 vextracti32x4 vextracti64x4 vfixupimmpd vfixupimmps vfixupimmsd vfixupimmss vgetexppd vgetexpps vgetexpsd vgetexpss vgetmantpd vgetmantps vgetmantsd vgetmantss vinsertf32x4 vinsertf64x4 vinserti32x4 vinserti64x4 vmovdqa32 vmovdqa64 vmovdqu32 vmovdqu64 vpabsq vpandd vpandnd vpandnq vpandq vpblendmd vpblendmq vpcmpltd vpcmpled vpcmpneqd vpcmpnltd vpcmpnled vpcmpd vpcmpltq vpcmpleq vpcmpneqq vpcmpnltq vpcmpnleq vpcmpq vpcmpequd vpcmpltud vpcmpleud vpcmpnequd vpcmpnltud vpcmpnleud vpcmpud vpcmpequq vpcmpltuq vpcmpleuq vpcmpnequq vpcmpnltuq vpcmpnleuq vpcmpuq vpcompressd vpcompressq vpermi2d vpermi2pd vpermi2ps vpermi2q vpermt2d vpermt2pd vpermt2ps vpermt2q vpexpandd vpexpandq vpmaxsq vpmaxuq vpminsq vpminuq vpmovdb vpmovdw vpmovqb vpmovqd vpmovqw vpmovsdb vpmovsdw vpmovsqb vpmovsqd vpmovsqw vpmovusdb vpmovusdw vpmovusqb vpmovusqd vpmovusqw vpord vporq vprold vprolq vprolvd vprolvq vprord vprorq vprorvd vprorvq vpscatterdd vpscatterdq vpscatterqd vpscatterqq vpsraq vpsravq vpternlogd vpternlogq vptestmd vptestmq vptestnmd vptestnmq vpxord vpxorq vrcp14pd vrcp14ps vrcp14sd vrcp14ss vrndscalepd vrndscaleps vrndscalesd vrndscaless vrsqrt14pd vrsqrt14ps vrsqrt14sd vrsqrt14ss vscalefpd vscalefps vscalefsd vscalefss vscatterdpd vscatterdps vscatterqpd vscatterqps vshuff32x4 vshuff64x2 vshufi32x4 vshufi64x2 kandnw kandw kmovw knotw kortestw korw kshiftlw kshiftrw kunpckbw kxnorw kxorw vpbroadcastmb2q vpbroadcastmw2d vpconflictd vpconflictq vplzcntd vplzcntq vexp2pd vexp2ps vrcp28pd vrcp28ps vrcp28sd vrcp28ss vrsqrt28pd vrsqrt28ps vrsqrt28sd vrsqrt28ss vgatherpf0dpd vgatherpf0dps vgatherpf0qpd vgatherpf0qps vgatherpf1dpd vgatherpf1dps vgatherpf1qpd vgatherpf1qps vscatterpf0dpd vscatterpf0dps vscatterpf0qpd vscatterpf0qps vscatterpf1dpd vscatterpf1dps vscatterpf1qpd vscatterpf1qps prefetchwt1 bndmk bndcl bndcu bndcn bndmov bndldx bndstx sha1rnds4 sha1nexte sha1msg1 sha1msg2 sha256rnds2 sha256msg1 sha256msg2 hint_nop0 hint_nop1 hint_nop2 hint_nop3 hint_nop4 hint_nop5 hint_nop6 hint_nop7 hint_nop8 hint_nop9 hint_nop10 hint_nop11 hint_nop12 hint_nop13 hint_nop14 hint_nop15 hint_nop16 hint_nop17 hint_nop18 hint_nop19 hint_nop20 hint_nop21 hint_nop22 hint_nop23 hint_nop24 hint_nop25 hint_nop26 hint_nop27 hint_nop28 hint_nop29 hint_nop30 hint_nop31 hint_nop32 hint_nop33 hint_nop34 hint_nop35 hint_nop36 hint_nop37 hint_nop38 hint_nop39 hint_nop40 hint_nop41 hint_nop42 hint_nop43 hint_nop44 hint_nop45 hint_nop46 hint_nop47 hint_nop48 hint_nop49 hint_nop50 hint_nop51 hint_nop52 hint_nop53 hint_nop54 hint_nop55 hint_nop56 hint_nop57 hint_nop58 hint_nop59 hint_nop60 hint_nop61 hint_nop62 hint_nop63",built_in:"ip eip rip "+"al ah bl bh cl ch dl dh sil dil bpl spl r8b r9b r10b r11b r12b r13b r14b r15b "+"ax bx cx dx si di bp sp r8w r9w r10w r11w r12w r13w r14w r15w "+"eax ebx ecx edx esi edi ebp esp eip r8d r9d r10d r11d r12d r13d r14d r15d "+"rax rbx rcx rdx rsi rdi rbp rsp r8 r9 r10 r11 r12 r13 r14 r15 "+"cs ds es fs gs ss "+"st st0 st1 st2 st3 st4 st5 st6 st7 "+"mm0 mm1 mm2 mm3 mm4 mm5 mm6 mm7 "+"xmm0 xmm1 xmm2 xmm3 xmm4 xmm5 xmm6 xmm7 xmm8 xmm9 xmm10 xmm11 xmm12 xmm13 xmm14 xmm15 "+"xmm16 xmm17 xmm18 xmm19 xmm20 xmm21 xmm22 xmm23 xmm24 xmm25 xmm26 xmm27 xmm28 xmm29 xmm30 xmm31 "+"ymm0 ymm1 ymm2 ymm3 ymm4 ymm5 ymm6 ymm7 ymm8 ymm9 ymm10 ymm11 ymm12 ymm13 ymm14 ymm15 "+"ymm16 ymm17 ymm18 ymm19 ymm20 ymm21 ymm22 ymm23 ymm24 ymm25 ymm26 ymm27 ymm28 ymm29 ymm30 ymm31 "+"zmm0 zmm1 zmm2 zmm3 zmm4 zmm5 zmm6 zmm7 zmm8 zmm9 zmm10 zmm11 zmm12 zmm13 zmm14 zmm15 "+"zmm16 zmm17 zmm18 zmm19 zmm20 zmm21 zmm22 zmm23 zmm24 zmm25 zmm26 zmm27 zmm28 zmm29 zmm30 zmm31 "+"k0 k1 k2 k3 k4 k5 k6 k7 "+"bnd0 bnd1 bnd2 bnd3 "+"cr0 cr1 cr2 cr3 cr4 cr8 dr0 dr1 dr2 dr3 dr8 tr3 tr4 tr5 tr6 tr7 "+"r0 r1 r2 r3 r4 r5 r6 r7 r0b r1b r2b r3b r4b r5b r6b r7b "+"r0w r1w r2w r3w r4w r5w r6w r7w r0d r1d r2d r3d r4d r5d r6d r7d "+"r0h r1h r2h r3h "+"r0l r1l r2l r3l r4l r5l r6l r7l r8l r9l r10l r11l r12l r13l r14l r15l "+"db dw dd dq dt ddq do dy dz "+"resb resw resd resq rest resdq reso resy resz "+"incbin equ times "+"byte word dword qword nosplit rel abs seg wrt strict near far a32 ptr",meta:"%define %xdefine %+ %undef %defstr %deftok %assign %strcat %strlen %substr %rotate %elif %else %endif "+"%if %ifmacro %ifctx %ifidn %ifidni %ifid %ifnum %ifstr %iftoken %ifempty %ifenv %error %warning %fatal %rep "+"%endrep %include %push %pop %repl %pathsearch %depend %use %arg %stacksize %local %line %comment %endcomment "+".nolist "+"__FILE__ __LINE__ __SECT__ __BITS__ __OUTPUT_FORMAT__ __DATE__ __TIME__ __DATE_NUM__ __TIME_NUM__ "+"__UTC_DATE__ __UTC_TIME__ __UTC_DATE_NUM__ __UTC_TIME_NUM__ __PASS__ struc endstruc istruc at iend "+"align alignb sectalign daz nodaz up down zero default option assume public "+"bits use16 use32 use64 default section segment absolute extern global common cpu float "+"__utf16__ __utf16le__ __utf16be__ __utf32__ __utf32le__ __utf32be__ "+"__float8__ __float16__ __float32__ __float64__ __float80m__ __float80e__ __float128l__ __float128h__ "+"__Infinity__ __QNaN__ __SNaN__ Inf NaN QNaN SNaN float8 float16 float32 float64 float80m float80e "+"float128l float128h __FLOAT_DAZ__ __FLOAT_ROUND__ __FLOAT__"},contains:[hljs.COMMENT(";","$",{relevance:0}),{className:"number",variants:[{begin:"\\b(?:([0-9][0-9_]*)?\\.[0-9_]*(?:[eE][+-]?[0-9_]+)?|"+"(0[Xx])?[0-9][0-9_]*\\.?[0-9_]*(?:[pP](?:[+-]?[0-9_]+)?)?)\\b",relevance:0},{begin:"\\$[0-9][0-9A-Fa-f]*",relevance:0},{begin:"\\b(?:[0-9A-Fa-f][0-9A-Fa-f_]*[Hh]|[0-9][0-9_]*[DdTt]?|[0-7][0-7_]*[QqOo]|[0-1][0-1_]*[BbYy])\\b"},{begin:"\\b(?:0[Xx][0-9A-Fa-f_]+|0[DdTt][0-9_]+|0[QqOo][0-7_]+|0[BbYy][0-1_]+)\\b"}]},hljs.QUOTE_STRING_MODE,{className:"string",variants:[{begin:"'",end:"[^\\\\]'"},{begin:"`",end:"[^\\\\]`"}],relevance:0},{className:"symbol",variants:[{begin:"^\\s*[A-Za-z._?][A-Za-z0-9_$#@~.?]*(:|\\s+label)"},{begin:"^\\s*%%[A-Za-z0-9_$#@~.?]*:"}],relevance:0},{className:"subst",begin:"%[0-9]+",relevance:0},{className:"subst",begin:"%!S+",relevance:0},{className:"meta",begin:/^\s*\.[\w_-]+/}]}});hljs.registerLanguage("mipsasm",function(hljs){return{case_insensitive:true,aliases:["mips"],lexemes:"\\.?"+hljs.IDENT_RE,keywords:{meta:".2byte .4byte .align .ascii .asciz .balign .byte .code .data .else .end .endif .endm .endr .equ .err .exitm .extern .global .hword .if .ifdef .ifndef .include .irp .long .macro .rept .req .section .set .skip .space .text .word .ltorg ",built_in:"$0 $1 $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 $12 $13 $14 $15 "+"$16 $17 $18 $19 $20 $21 $22 $23 $24 $25 $26 $27 $28 $29 $30 $31 "+"zero at v0 v1 a0 a1 a2 a3 a4 a5 a6 a7 "+"t0 t1 t2 t3 t4 t5 t6 t7 t8 t9 s0 s1 s2 s3 s4 s5 s6 s7 s8 "+"k0 k1 gp sp fp ra "+"$f0 $f1 $f2 $f2 $f4 $f5 $f6 $f7 $f8 $f9 $f10 $f11 $f12 $f13 $f14 $f15 "+"$f16 $f17 $f18 $f19 $f20 $f21 $f22 $f23 $f24 $f25 $f26 $f27 $f28 $f29 $f30 $f31 "+"Context Random EntryLo0 EntryLo1 Context PageMask Wired EntryHi "+"HWREna BadVAddr Count Compare SR IntCtl SRSCtl SRSMap Cause EPC PRId "+"EBase Config Config1 Config2 Config3 LLAddr Debug DEPC DESAVE CacheErr "+"ECC ErrorEPC TagLo DataLo TagHi DataHi WatchLo WatchHi PerfCtl PerfCnt "},contains:[{className:"keyword",begin:"\\b("+"addi?u?|andi?|b(al)?|beql?|bgez(al)?l?|bgtzl?|blezl?|bltz(al)?l?|"+"bnel?|cl[oz]|divu?|ext|ins|j(al)?|jalr(.hb)?|jr(.hb)?|lbu?|lhu?|"+"ll|lui|lw[lr]?|maddu?|mfhi|mflo|movn|movz|move|msubu?|mthi|mtlo|mul|"+"multu?|nop|nor|ori?|rotrv?|sb|sc|se[bh]|sh|sllv?|slti?u?|srav?|"+"srlv?|subu?|sw[lr]?|xori?|wsbh|"+"abs.[sd]|add.[sd]|alnv.ps|bc1[ft]l?|"+"c.(s?f|un|u?eq|[ou]lt|[ou]le|ngle?|seq|l[et]|ng[et]).[sd]|"+"(ceil|floor|round|trunc).[lw].[sd]|cfc1|cvt.d.[lsw]|"+"cvt.l.[dsw]|cvt.ps.s|cvt.s.[dlw]|cvt.s.p[lu]|cvt.w.[dls]|"+"div.[ds]|ldx?c1|luxc1|lwx?c1|madd.[sd]|mfc1|mov[fntz]?.[ds]|"+"msub.[sd]|mth?c1|mul.[ds]|neg.[ds]|nmadd.[ds]|nmsub.[ds]|"+"p[lu][lu].ps|recip.fmt|r?sqrt.[ds]|sdx?c1|sub.[ds]|suxc1|"+"swx?c1|"+"break|cache|d?eret|[de]i|ehb|mfc0|mtc0|pause|prefx?|rdhwr|"+"rdpgpr|sdbbp|ssnop|synci?|syscall|teqi?|tgei?u?|tlb(p|r|w[ir])|"+"tlti?u?|tnei?|wait|wrpgpr"+")",end:"\\s"},hljs.COMMENT("[;#](?!s*$)","$"),hljs.C_BLOCK_COMMENT_MODE,hljs.QUOTE_STRING_MODE,{className:"string",begin:"'",end:"[^\\\\]'",relevance:0},{className:"title",begin:"\\|",end:"\\|",illegal:"\\n",relevance:0},{className:"number",variants:[{begin:"0x[0-9a-f]+"},{begin:"\\b-?\\d+"}],relevance:0},{className:"symbol",variants:[{begin:"^\\s*[a-z_\\.\\$][a-z0-9_\\.\\$]+:"},{begin:"^\\s*[0-9]+:"},{begin:"[0-9]+[bf]"}],relevance:0}],illegal:"/"}});hljs.registerLanguage("gams",function(hljs){var KEYWORDS={keyword:"abort acronym acronyms alias all and assign binary card diag display "+"else eq file files for free ge gt if integer le loop lt maximizing "+"minimizing model models ne negative no not option options or ord "+"positive prod put putpage puttl repeat sameas semicont semiint smax "+"smin solve sos1 sos2 sum system table then until using while xor yes",literal:"eps inf na","built-in":"abs arccos arcsin arctan arctan2 Beta betaReg binomial ceil centropy "+"cos cosh cvPower div div0 eDist entropy errorf execSeed exp fact "+"floor frac gamma gammaReg log logBeta logGamma log10 log2 mapVal max "+"min mod ncpCM ncpF ncpVUpow ncpVUsin normal pi poly power "+"randBinomial randLinear randTriangle round rPower sigmoid sign "+"signPower sin sinh slexp sllog10 slrec sqexp sqlog10 sqr sqrec sqrt "+"tan tanh trunc uniform uniformInt vcPower bool_and bool_eqv bool_imp "+"bool_not bool_or bool_xor ifThen rel_eq rel_ge rel_gt rel_le rel_lt "+"rel_ne gday gdow ghour gleap gmillisec gminute gmonth gsecond gyear "+"jdate jnow jstart jtime errorLevel execError gamsRelease gamsVersion "+"handleCollect handleDelete handleStatus handleSubmit heapFree "+"heapLimit heapSize jobHandle jobKill jobStatus jobTerminate "+"licenseLevel licenseStatus maxExecError sleep timeClose timeComp "+"timeElapsed timeExec timeStart"};var PARAMS={className:"params",begin:/\(/,end:/\)/,excludeBegin:true,excludeEnd:true};var SYMBOLS={className:"symbol",variants:[{begin:/\=[lgenxc]=/},{begin:/\$/}]};var QSTR={className:"comment",variants:[{begin:"'",end:"'"},{begin:'"',end:'"'}],illegal:"\\n",contains:[hljs.BACKSLASH_ESCAPE]};var ASSIGNMENT={begin:"/",end:"/",keywords:KEYWORDS,contains:[QSTR,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE,hljs.C_NUMBER_MODE]};var DESCTEXT={begin:/[a-z][a-z0-9_]*(\([a-z0-9_, ]*\))?[ \t]+/,excludeBegin:true,end:"$",endsWithParent:true,contains:[QSTR,ASSIGNMENT,{className:"comment",begin:/([ ]*[a-z0-9&#*=?@>\\<:\-,()$\[\]_.{}!+%^]+)+/,relevance:0}]};return{aliases:["gms"],case_insensitive:true,keywords:KEYWORDS,contains:[hljs.COMMENT(/^\$ontext/,/^\$offtext/),{className:"meta",begin:"^\\$[a-z0-9]+",end:"$",returnBegin:true,contains:[{className:"meta-keyword",begin:"^\\$[a-z0-9]+"}]},hljs.COMMENT("^\\*","$"),hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE,{beginKeywords:"set sets parameter parameters variable variables "+"scalar scalars equation equations",end:";",contains:[hljs.COMMENT("^\\*","$"),hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE,ASSIGNMENT,DESCTEXT]},{beginKeywords:"table",end:";",returnBegin:true,contains:[{beginKeywords:"table",end:"$",contains:[DESCTEXT]},hljs.COMMENT("^\\*","$"),hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE,hljs.C_NUMBER_MODE]},{className:"function",begin:/^[a-z][a-z0-9_,\-+' ()$]+\.{2}/,returnBegin:true,contains:[{className:"title",begin:/^[a-z0-9_]+/},PARAMS,SYMBOLS]},hljs.C_NUMBER_MODE,SYMBOLS]}});hljs.registerLanguage("nimrod",function(hljs){return{aliases:["nim"],keywords:{keyword:"addr and as asm bind block break case cast const continue converter "+"discard distinct div do elif else end enum except export finally "+"for from generic if import in include interface is isnot iterator "+"let macro method mixin mod nil not notin object of or out proc ptr "+"raise ref return shl shr static template try tuple type using var "+"when while with without xor yield",literal:"shared guarded stdin stdout stderr result true false",built_in:"int int8 int16 int32 int64 uint uint8 uint16 uint32 uint64 float "+"float32 float64 bool char string cstring pointer expr stmt void "+"auto any range array openarray varargs seq set clong culong cchar "+"cschar cshort cint csize clonglong cfloat cdouble clongdouble "+"cuchar cushort cuint culonglong cstringarray semistatic"},contains:[{className:"meta",begin:/{\./,end:/\.}/,relevance:10},{className:"string",begin:/[a-zA-Z]\w*"/,end:/"/,contains:[{begin:/""/}]},{className:"string",begin:/([a-zA-Z]\w*)?"""/,end:/"""/},hljs.QUOTE_STRING_MODE,{className:"type",begin:/\b[A-Z]\w+\b/,relevance:0},{className:"number",relevance:0,variants:[{begin:/\b(0[xX][0-9a-fA-F][_0-9a-fA-F]*)('?[iIuU](8|16|32|64))?/},{begin:/\b(0o[0-7][_0-7]*)('?[iIuUfF](8|16|32|64))?/},{begin:/\b(0(b|B)[01][_01]*)('?[iIuUfF](8|16|32|64))?/},{begin:/\b(\d[_\d]*)('?[iIuUfF](8|16|32|64))?/}]},hljs.HASH_COMMENT_MODE]}});hljs.registerLanguage("dts",function(hljs){var STRINGS={className:"string",variants:[hljs.inherit(hljs.QUOTE_STRING_MODE,{begin:'((u8?|U)|L)?"'}),{begin:'(u8?|U)?R"',end:'"',contains:[hljs.BACKSLASH_ESCAPE]},{begin:"'\\\\?.",end:"'",illegal:"."}]};var NUMBERS={className:"number",variants:[{begin:"\\b(\\d+(\\.\\d*)?|\\.\\d+)(u|U|l|L|ul|UL|f|F)"},{begin:hljs.C_NUMBER_RE}],relevance:0};var PREPROCESSOR={className:"meta",begin:"#",end:"$",keywords:{"meta-keyword":"if else elif endif define undef ifdef ifndef"},contains:[{begin:/\\\n/,relevance:0},{beginKeywords:"include",end:"$",keywords:{"meta-keyword":"include"},contains:[hljs.inherit(STRINGS,{className:"meta-string"}),{className:"meta-string",begin:"<",end:">",illegal:"\\n"}]},STRINGS,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE]};var DTS_REFERENCE={className:"variable",begin:"\\&[a-z\\d_]*\\b"};var DTS_KEYWORD={className:"meta-keyword",begin:"/[a-z][a-z\\d-]*/"};var DTS_LABEL={className:"symbol",begin:"^\\s*[a-zA-Z_][a-zA-Z\\d_]*:"};var DTS_CELL_PROPERTY={className:"params",begin:"<",end:">",contains:[NUMBERS,DTS_REFERENCE]};var DTS_NODE={className:"class",begin:/[a-zA-Z_][a-zA-Z\d_@]*\s{/,end:/[{;=]/,returnBegin:true,excludeEnd:true};var DTS_ROOT_NODE={className:"class",begin:"/\\s*{",end:"};",relevance:10,contains:[DTS_REFERENCE,DTS_KEYWORD,DTS_LABEL,DTS_NODE,DTS_CELL_PROPERTY,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,NUMBERS,STRINGS]};return{keywords:"",contains:[DTS_ROOT_NODE,DTS_REFERENCE,DTS_KEYWORD,DTS_LABEL,DTS_NODE,DTS_CELL_PROPERTY,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,NUMBERS,STRINGS,PREPROCESSOR,{begin:hljs.IDENT_RE+"::",keywords:""}]}});hljs.registerLanguage("step21",function(hljs){var STEP21_IDENT_RE="[A-Z_][A-Z0-9_.]*";var STEP21_KEYWORDS={keyword:"HEADER ENDSEC DATA"};var STEP21_START={className:"meta",begin:"ISO-10303-21;",relevance:10};var STEP21_CLOSE={className:"meta",begin:"END-ISO-10303-21;",relevance:10};return{aliases:["p21","step","stp"],case_insensitive:true,lexemes:STEP21_IDENT_RE,keywords:STEP21_KEYWORDS,contains:[STEP21_START,STEP21_CLOSE,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.COMMENT("/\\*\\*!","\\*/"),hljs.C_NUMBER_MODE,hljs.inherit(hljs.APOS_STRING_MODE,{illegal:null}),hljs.inherit(hljs.QUOTE_STRING_MODE,{illegal:null}),{className:"string",begin:"'",end:"'"},{className:"symbol",variants:[{begin:"#",end:"\\d+",illegal:"\\W"}]}]}});hljs.registerLanguage("sml",function(hljs){return{aliases:["ml"],keywords:{keyword:"abstype and andalso as case datatype do else end eqtype "+"exception fn fun functor handle if in include infix infixr "+"let local nonfix of op open orelse raise rec sharing sig "+"signature struct structure then type val with withtype where while",built_in:"array bool char exn int list option order real ref string substring vector unit word",literal:"true false NONE SOME LESS EQUAL GREATER nil"},illegal:/\/\/|>>/,lexemes:"[a-z_]\\w*!?",contains:[{className:"literal",begin:/\[(\|\|)?\]|\(\)/,relevance:0},hljs.COMMENT("\\(\\*","\\*\\)",{contains:["self"]}),{className:"symbol",begin:"'[A-Za-z_](?!')[\\w']*"},{className:"type",begin:"`[A-Z][\\w']*"},{className:"type",begin:"\\b[A-Z][\\w']*",relevance:0},{begin:"[a-z_]\\w*'[\\w']*"},hljs.inherit(hljs.APOS_STRING_MODE,{className:"string",relevance:0}),hljs.inherit(hljs.QUOTE_STRING_MODE,{illegal:null}),{className:"number",begin:"\\b(0[xX][a-fA-F0-9_]+[Lln]?|"+"0[oO][0-7_]+[Lln]?|"+"0[bB][01_]+[Lln]?|"+"[0-9][0-9_]*([Lln]|(\\.[0-9_]*)?([eE][-+]?[0-9_]+)?)?)",relevance:0},{begin:/[-=]>/}]}});hljs.registerLanguage("fsharp",function(hljs){var TYPEPARAM={begin:"<",end:">",contains:[hljs.inherit(hljs.TITLE_MODE,{begin:/'[a-zA-Z0-9_]+/})]};return{aliases:["fs"],keywords:"abstract and as assert base begin class default delegate do done "+"downcast downto elif else end exception extern false finally for "+"fun function global if in inherit inline interface internal lazy let "+"match member module mutable namespace new null of open or "+"override private public rec return sig static struct then to "+"true try type upcast use val void when while with yield",illegal:/\/\*/,contains:[{className:"keyword",begin:/\b(yield|return|let|do)!/},{className:"string",begin:'@"',end:'"',contains:[{begin:'""'}]},{className:"string",begin:'"""',end:'"""'},hljs.COMMENT("\\(\\*","\\*\\)"),{className:"class",beginKeywords:"type",end:"\\(|=|$",excludeEnd:true,contains:[hljs.UNDERSCORE_TITLE_MODE,TYPEPARAM]},{className:"meta",begin:"\\[<",end:">\\]",relevance:10},{className:"symbol",begin:"\\B('[A-Za-z])\\b",contains:[hljs.BACKSLASH_ESCAPE]},hljs.C_LINE_COMMENT_MODE,hljs.inherit(hljs.QUOTE_STRING_MODE,{illegal:null}),hljs.C_NUMBER_MODE]}});hljs.registerLanguage("julia",function(hljs){var KEYWORDS={keyword:"in isa where "+"baremodule begin break catch ccall const continue do else elseif end export false finally for function "+"global if import importall let local macro module quote return true try using while "+"type immutable abstract bitstype typealias ",literal:"true false "+"ARGS C_NULL DevNull ENDIAN_BOM ENV I Inf Inf16 Inf32 Inf64 InsertionSort JULIA_HOME LOAD_PATH MergeSort "+"NaN NaN16 NaN32 NaN64 PROGRAM_FILE QuickSort RoundDown RoundFromZero RoundNearest RoundNearestTiesAway "+"RoundNearestTiesUp RoundToZero RoundUp STDERR STDIN STDOUT VERSION catalan e|0 eu|0 eulergamma golden im "+"nothing pi γ π φ ",built_in:"ANY AbstractArray AbstractChannel AbstractFloat AbstractMatrix AbstractRNG AbstractSerializer AbstractSet "+"AbstractSparseArray AbstractSparseMatrix AbstractSparseVector AbstractString AbstractUnitRange AbstractVecOrMat "+"AbstractVector Any ArgumentError Array AssertionError Associative Base64DecodePipe Base64EncodePipe Bidiagonal "+"BigFloat BigInt BitArray BitMatrix BitVector Bool BoundsError BufferStream CachingPool CapturedException "+"CartesianIndex CartesianRange Cchar Cdouble Cfloat Channel Char Cint Cintmax_t Clong Clonglong ClusterManager "+"Cmd CodeInfo Colon Complex Complex128 Complex32 Complex64 CompositeException Condition ConjArray ConjMatrix "+"ConjVector Cptrdiff_t Cshort Csize_t Cssize_t Cstring Cuchar Cuint Cuintmax_t Culong Culonglong Cushort Cwchar_t "+"Cwstring DataType Date DateFormat DateTime DenseArray DenseMatrix DenseVecOrMat DenseVector Diagonal Dict "+"DimensionMismatch Dims DirectIndexString Display DivideError DomainError EOFError EachLine Enum Enumerate "+"ErrorException Exception ExponentialBackOff Expr Factorization FileMonitor Float16 Float32 Float64 Function "+"Future GlobalRef GotoNode HTML Hermitian IO IOBuffer IOContext IOStream IPAddr IPv4 IPv6 IndexCartesian IndexLinear "+"IndexStyle InexactError InitError Int Int128 Int16 Int32 Int64 Int8 IntSet Integer InterruptException "+"InvalidStateException Irrational KeyError LabelNode LinSpace LineNumberNode LoadError LowerTriangular MIME Matrix "+"MersenneTwister Method MethodError MethodTable Module NTuple NewvarNode NullException Nullable Number ObjectIdDict "+"OrdinalRange OutOfMemoryError OverflowError Pair ParseError PartialQuickSort PermutedDimsArray Pipe "+"PollingFileWatcher ProcessExitedException Ptr QuoteNode RandomDevice Range RangeIndex Rational RawFD "+"ReadOnlyMemoryError Real ReentrantLock Ref Regex RegexMatch RemoteChannel RemoteException RevString RoundingMode "+"RowVector SSAValue SegmentationFault SerializationState Set SharedArray SharedMatrix SharedVector Signed "+"SimpleVector Slot SlotNumber SparseMatrixCSC SparseVector StackFrame StackOverflowError StackTrace StepRange "+"StepRangeLen StridedArray StridedMatrix StridedVecOrMat StridedVector String SubArray SubString SymTridiagonal "+"Symbol Symmetric SystemError TCPSocket Task Text TextDisplay Timer Tridiagonal Tuple Type TypeError TypeMapEntry "+"TypeMapLevel TypeName TypeVar TypedSlot UDPSocket UInt UInt128 UInt16 UInt32 UInt64 UInt8 UndefRefError UndefVarError "+"UnicodeError UniformScaling Union UnionAll UnitRange Unsigned UpperTriangular Val Vararg VecElement VecOrMat Vector "+"VersionNumber Void WeakKeyDict WeakRef WorkerConfig WorkerPool "};var VARIABLE_NAME_RE="[A-Za-z_\\u00A1-\\uFFFF][A-Za-z_0-9\\u00A1-\\uFFFF]*";var DEFAULT={lexemes:VARIABLE_NAME_RE,keywords:KEYWORDS,illegal:/<\//};var NUMBER={className:"number",begin:/(\b0x[\d_]*(\.[\d_]*)?|0x\.\d[\d_]*)p[-+]?\d+|\b0[box][a-fA-F0-9][a-fA-F0-9_]*|(\b\d[\d_]*(\.[\d_]*)?|\.\d[\d_]*)([eEfF][-+]?\d+)?/,relevance:0};var CHAR={className:"string",begin:/'(.|\\[xXuU][a-zA-Z0-9]+)'/};var INTERPOLATION={className:"subst",begin:/\$\(/,end:/\)/,keywords:KEYWORDS};var INTERPOLATED_VARIABLE={className:"variable",begin:"\\$"+VARIABLE_NAME_RE};var STRING={className:"string",contains:[hljs.BACKSLASH_ESCAPE,INTERPOLATION,INTERPOLATED_VARIABLE],variants:[{begin:/\w*"""/,end:/"""\w*/,relevance:10},{begin:/\w*"/,end:/"\w*/}]};var COMMAND={className:"string",contains:[hljs.BACKSLASH_ESCAPE,INTERPOLATION,INTERPOLATED_VARIABLE],begin:"`",end:"`"};var MACROCALL={className:"meta",begin:"@"+VARIABLE_NAME_RE};var COMMENT={className:"comment",variants:[{begin:"#=",end:"=#",relevance:10},{begin:"#",end:"$"}]};DEFAULT.contains=[NUMBER,CHAR,STRING,COMMAND,MACROCALL,COMMENT,hljs.HASH_COMMENT_MODE,{className:"keyword",begin:"\\b(((abstract|primitive)\\s+)type|(mutable\\s+)?struct)\\b"},{begin:/<:/}];INTERPOLATION.contains=DEFAULT.contains;return DEFAULT});hljs.registerLanguage("julia-repl",function(hljs){return{contains:[{className:"meta",begin:/^julia>/,relevance:10,starts:{end:/^(?![ ]{6})/,subLanguage:"julia"},aliases:["jldoctest"]}]}});hljs.registerLanguage("fortran",function(hljs){var PARAMS={className:"params",begin:"\\(",end:"\\)"};var F_KEYWORDS={literal:".False. .True.",keyword:"kind do while private call intrinsic where elsewhere "+"type endtype endmodule endselect endinterface end enddo endif if forall endforall only contains default return stop then block endblock "+"public subroutine|10 function program .and. .or. .not. .le. .eq. .ge. .gt. .lt. "+"goto save else use module select case "+"access blank direct exist file fmt form formatted iostat name named nextrec number opened rec recl sequential status unformatted unit "+"continue format pause cycle exit "+"c_null_char c_alert c_backspace c_form_feed flush wait decimal round iomsg "+"synchronous nopass non_overridable pass protected volatile abstract extends import "+"non_intrinsic value deferred generic final enumerator class associate bind enum "+"c_int c_short c_long c_long_long c_signed_char c_size_t c_int8_t c_int16_t c_int32_t c_int64_t c_int_least8_t c_int_least16_t "+"c_int_least32_t c_int_least64_t c_int_fast8_t c_int_fast16_t c_int_fast32_t c_int_fast64_t c_intmax_t C_intptr_t c_float c_double "+"c_long_double c_float_complex c_double_complex c_long_double_complex c_bool c_char c_null_ptr c_null_funptr "+"c_new_line c_carriage_return c_horizontal_tab c_vertical_tab iso_c_binding c_loc c_funloc c_associated c_f_pointer "+"c_ptr c_funptr iso_fortran_env character_storage_size error_unit file_storage_size input_unit iostat_end iostat_eor "+"numeric_storage_size output_unit c_f_procpointer ieee_arithmetic ieee_support_underflow_control "+"ieee_get_underflow_mode ieee_set_underflow_mode newunit contiguous recursive "+"pad position action delim readwrite eor advance nml interface procedure namelist include sequence elemental pure "+"integer real character complex logical dimension allocatable|10 parameter "+"external implicit|10 none double precision assign intent optional pointer "+"target in out common equivalence data",built_in:"alog alog10 amax0 amax1 amin0 amin1 amod cabs ccos cexp clog csin csqrt dabs dacos dasin datan datan2 dcos dcosh ddim dexp dint "+"dlog dlog10 dmax1 dmin1 dmod dnint dsign dsin dsinh dsqrt dtan dtanh float iabs idim idint idnint ifix isign max0 max1 min0 min1 sngl "+"algama cdabs cdcos cdexp cdlog cdsin cdsqrt cqabs cqcos cqexp cqlog cqsin cqsqrt dcmplx dconjg derf derfc dfloat dgamma dimag dlgama "+"iqint qabs qacos qasin qatan qatan2 qcmplx qconjg qcos qcosh qdim qerf qerfc qexp qgamma qimag qlgama qlog qlog10 qmax1 qmin1 qmod "+"qnint qsign qsin qsinh qsqrt qtan qtanh abs acos aimag aint anint asin atan atan2 char cmplx conjg cos cosh exp ichar index int log "+"log10 max min nint sign sin sinh sqrt tan tanh print write dim lge lgt lle llt mod nullify allocate deallocate "+"adjustl adjustr all allocated any associated bit_size btest ceiling count cshift date_and_time digits dot_product "+"eoshift epsilon exponent floor fraction huge iand ibclr ibits ibset ieor ior ishft ishftc lbound len_trim matmul "+"maxexponent maxloc maxval merge minexponent minloc minval modulo mvbits nearest pack present product "+"radix random_number random_seed range repeat reshape rrspacing scale scan selected_int_kind selected_real_kind "+"set_exponent shape size spacing spread sum system_clock tiny transpose trim ubound unpack verify achar iachar transfer "+"dble entry dprod cpu_time command_argument_count get_command get_command_argument get_environment_variable is_iostat_end "+"ieee_arithmetic ieee_support_underflow_control ieee_get_underflow_mode ieee_set_underflow_mode "+"is_iostat_eor move_alloc new_line selected_char_kind same_type_as extends_type_of"+"acosh asinh atanh bessel_j0 bessel_j1 bessel_jn bessel_y0 bessel_y1 bessel_yn erf erfc erfc_scaled gamma log_gamma hypot norm2 "+"atomic_define atomic_ref execute_command_line leadz trailz storage_size merge_bits "+"bge bgt ble blt dshiftl dshiftr findloc iall iany iparity image_index lcobound ucobound maskl maskr "+"num_images parity popcnt poppar shifta shiftl shiftr this_image"};return{case_insensitive:true,aliases:["f90","f95"],keywords:F_KEYWORDS,illegal:/\/\*/,contains:[hljs.inherit(hljs.APOS_STRING_MODE,{className:"string",relevance:0}),hljs.inherit(hljs.QUOTE_STRING_MODE,{className:"string",relevance:0}),{className:"function",beginKeywords:"subroutine function program",illegal:"[${=\\n]",contains:[hljs.UNDERSCORE_TITLE_MODE,PARAMS]},hljs.COMMENT("!","$",{relevance:0}),{className:"number",begin:"(?=\\b|\\+|\\-|\\.)(?=\\.\\d|\\d)(?:\\d+)?(?:\\.?\\d*)(?:[de][+-]?\\d+)?\\b\\.?",relevance:0}]}});hljs.registerLanguage("basic",function(hljs){return{case_insensitive:true,illegal:"^.",lexemes:"[a-zA-Z][a-zA-Z0-9_$%!#]*",keywords:{keyword:"ABS ASC AND ATN AUTO|0 BEEP BLOAD|10 BSAVE|10 CALL CALLS CDBL CHAIN CHDIR CHR$|10 CINT CIRCLE "+"CLEAR CLOSE CLS COLOR COM COMMON CONT COS CSNG CSRLIN CVD CVI CVS DATA DATE$ "+"DEFDBL DEFINT DEFSNG DEFSTR DEF|0 SEG USR DELETE DIM DRAW EDIT END ENVIRON ENVIRON$ "+"EOF EQV ERASE ERDEV ERDEV$ ERL ERR ERROR EXP FIELD FILES FIX FOR|0 FRE GET GOSUB|10 GOTO "+"HEX$ IF THEN ELSE|0 INKEY$ INP INPUT INPUT# INPUT$ INSTR IMP INT IOCTL IOCTL$ KEY ON "+"OFF LIST KILL LEFT$ LEN LET LINE LLIST LOAD LOC LOCATE LOF LOG LPRINT USING LSET "+"MERGE MID$ MKDIR MKD$ MKI$ MKS$ MOD NAME NEW NEXT NOISE NOT OCT$ ON OR PEN PLAY STRIG OPEN OPTION "+"BASE OUT PAINT PALETTE PCOPY PEEK PMAP POINT POKE POS PRINT PRINT] PSET PRESET "+"PUT RANDOMIZE READ REM RENUM RESET|0 RESTORE RESUME RETURN|0 RIGHT$ RMDIR RND RSET "+"RUN SAVE SCREEN SGN SHELL SIN SOUND SPACE$ SPC SQR STEP STICK STOP STR$ STRING$ SWAP "+"SYSTEM TAB TAN TIME$ TIMER TROFF TRON TO USR VAL VARPTR VARPTR$ VIEW WAIT WHILE "+"WEND WIDTH WINDOW WRITE XOR"},contains:[hljs.QUOTE_STRING_MODE,hljs.COMMENT("REM","$",{relevance:10}),hljs.COMMENT("'","$",{relevance:0}),{className:"symbol",begin:"^[0-9]+ ",relevance:10},{className:"number",begin:"\\b([0-9]+[0-9edED.]*[#!]?)",relevance:0},{className:"number",begin:"(&[hH][0-9a-fA-F]{1,4})"},{className:"number",begin:"(&[oO][0-7]{1,6})"}]}});hljs.registerLanguage("ada",function(hljs){var INTEGER_RE="\\d(_|\\d)*";var EXPONENT_RE="[eE][-+]?"+INTEGER_RE;var DECIMAL_LITERAL_RE=INTEGER_RE+"(\\."+INTEGER_RE+")?"+"("+EXPONENT_RE+")?";var BASED_INTEGER_RE="\\w+";var BASED_LITERAL_RE=INTEGER_RE+"#"+BASED_INTEGER_RE+"(\\."+BASED_INTEGER_RE+")?"+"#"+"("+EXPONENT_RE+")?";var NUMBER_RE="\\b("+BASED_LITERAL_RE+"|"+DECIMAL_LITERAL_RE+")";var ID_REGEX="[A-Za-z](_?[A-Za-z0-9.])*";var BAD_CHARS="[]{}%#'\"";var COMMENTS=hljs.COMMENT("--","$");var VAR_DECLS={begin:"\\s+:\\s+",end:"\\s*(:=|;|\\)|=>|$)",illegal:BAD_CHARS,contains:[{beginKeywords:"loop for declare others",endsParent:true},{className:"keyword",beginKeywords:"not null constant access function procedure in out aliased exception"},{className:"type",begin:ID_REGEX,endsParent:true,relevance:0}]};return{case_insensitive:true,keywords:{keyword:"abort else new return abs elsif not reverse abstract end "+"accept entry select access exception of separate aliased exit or some "+"all others subtype and for out synchronized array function overriding "+"at tagged generic package task begin goto pragma terminate "+"body private then if procedure type case in protected constant interface "+"is raise use declare range delay limited record when delta loop rem while "+"digits renames with do mod requeue xor",literal:"True False"},contains:[COMMENTS,{className:"string",begin:/"/,end:/"/,contains:[{begin:/""/,relevance:0}]},{className:"string",begin:/'.'/},{className:"number",begin:NUMBER_RE,relevance:0},{className:"symbol",begin:"'"+ID_REGEX},{className:"title",begin:"(\\bwith\\s+)?(\\bprivate\\s+)?\\bpackage\\s+(\\bbody\\s+)?",end:"(is|$)",keywords:"package body",excludeBegin:true,excludeEnd:true,illegal:BAD_CHARS},{begin:"(\\b(with|overriding)\\s+)?\\b(function|procedure)\\s+",end:"(\\bis|\\bwith|\\brenames|\\)\\s*;)",keywords:"overriding function procedure with is renames return",returnBegin:true,contains:[COMMENTS,{className:"title",begin:"(\\bwith\\s+)?\\b(function|procedure)\\s+",end:"(\\(|\\s+|$)",excludeBegin:true,excludeEnd:true,illegal:BAD_CHARS},VAR_DECLS,{className:"type",begin:"\\breturn\\s+",end:"(\\s+|;|$)",keywords:"return",excludeBegin:true,excludeEnd:true,endsParent:true,illegal:BAD_CHARS}]},{className:"type",begin:"\\b(sub)?type\\s+",end:"\\s+",keywords:"type",excludeBegin:true,illegal:BAD_CHARS},VAR_DECLS]}});hljs.registerLanguage("puppet",function(hljs){var PUPPET_KEYWORDS={keyword:"and case default else elsif false if in import enherits node or true undef unless main settings $string ",literal:"alias audit before loglevel noop require subscribe tag "+"owner ensure group mode name|0 changes context force incl lens load_path onlyif provider returns root show_diff type_check "+"en_address ip_address realname command environment hour monute month monthday special target weekday "+"creates cwd ogoutput refresh refreshonly tries try_sleep umask backup checksum content ctime force ignore "+"links mtime purge recurse recurselimit replace selinux_ignore_defaults selrange selrole seltype seluser source "+"souirce_permissions sourceselect validate_cmd validate_replacement allowdupe attribute_membership auth_membership forcelocal gid "+"ia_load_module members system host_aliases ip allowed_trunk_vlans description device_url duplex encapsulation etherchannel "+"native_vlan speed principals allow_root auth_class auth_type authenticate_user k_of_n mechanisms rule session_owner shared options "+"device fstype enable hasrestart directory present absent link atboot blockdevice device dump pass remounts poller_tag use "+"message withpath adminfile allow_virtual allowcdrom category configfiles flavor install_options instance package_settings platform "+"responsefile status uninstall_options vendor unless_system_user unless_uid binary control flags hasstatus manifest pattern restart running "+"start stop allowdupe auths expiry gid groups home iterations key_membership keys managehome membership password password_max_age "+"password_min_age profile_membership profiles project purge_ssh_keys role_membership roles salt shell uid baseurl cost descr enabled "+"enablegroups exclude failovermethod gpgcheck gpgkey http_caching include includepkgs keepalive metadata_expire metalink mirrorlist "+"priority protect proxy proxy_password proxy_username repo_gpgcheck s3_enabled skip_if_unavailable sslcacert sslclientcert sslclientkey "+"sslverify mounted",built_in:"architecture augeasversion blockdevices boardmanufacturer boardproductname boardserialnumber cfkey dhcp_servers "+"domain ec2_ ec2_userdata facterversion filesystems ldom fqdn gid hardwareisa hardwaremodel hostname id|0 interfaces "+"ipaddress ipaddress_ ipaddress6 ipaddress6_ iphostnumber is_virtual kernel kernelmajversion kernelrelease kernelversion "+"kernelrelease kernelversion lsbdistcodename lsbdistdescription lsbdistid lsbdistrelease lsbmajdistrelease lsbminordistrelease "+"lsbrelease macaddress macaddress_ macosx_buildversion macosx_productname macosx_productversion macosx_productverson_major "+"macosx_productversion_minor manufacturer memoryfree memorysize netmask metmask_ network_ operatingsystem operatingsystemmajrelease "+"operatingsystemrelease osfamily partitions path physicalprocessorcount processor processorcount productname ps puppetversion "+"rubysitedir rubyversion selinux selinux_config_mode selinux_config_policy selinux_current_mode selinux_current_mode selinux_enforced "+"selinux_policyversion serialnumber sp_ sshdsakey sshecdsakey sshrsakey swapencrypted swapfree swapsize timezone type uniqueid uptime "+"uptime_days uptime_hours uptime_seconds uuid virtual vlans xendomains zfs_version zonenae zones zpool_version"};var COMMENT=hljs.COMMENT("#","$");var IDENT_RE="([A-Za-z_]|::)(\\w|::)*";var TITLE=hljs.inherit(hljs.TITLE_MODE,{begin:IDENT_RE});var VARIABLE={className:"variable",begin:"\\$"+IDENT_RE};var STRING={className:"string",contains:[hljs.BACKSLASH_ESCAPE,VARIABLE],variants:[{begin:/'/,end:/'/},{begin:/"/,end:/"/}]};return{aliases:["pp"],contains:[COMMENT,VARIABLE,STRING,{beginKeywords:"class",end:"\\{|;",illegal:/=/,contains:[TITLE,COMMENT]},{beginKeywords:"define",end:/\{/,contains:[{className:"section",begin:hljs.IDENT_RE,endsParent:true}]},{begin:hljs.IDENT_RE+"\\s+\\{",returnBegin:true,end:/\S/,contains:[{className:"keyword",begin:hljs.IDENT_RE},{begin:/\{/,end:/\}/,keywords:PUPPET_KEYWORDS,relevance:0,contains:[STRING,COMMENT,{begin:"[a-zA-Z_]+\\s*=>",returnBegin:true,end:"=>",contains:[{className:"attr",begin:hljs.IDENT_RE}]},{className:"number",begin:"(\\b0[0-7_]+)|(\\b0x[0-9a-fA-F_]+)|(\\b[1-9][0-9_]*(\\.[0-9_]+)?)|[0_]\\b",relevance:0},VARIABLE]}],relevance:0}]}});hljs.registerLanguage("vim",function(hljs){return{lexemes:/[!#@\w]+/,keywords:{keyword:"N|0 P|0 X|0 a|0 ab abc abo al am an|0 ar arga argd arge argdo argg argl argu as au aug aun b|0 bN ba bad bd be bel bf bl bm bn bo bp br brea breaka breakd breakl bro bufdo buffers bun bw c|0 cN cNf ca cabc caddb cad caddf cal cat cb cc ccl cd ce cex cf cfir cgetb cgete cg changes chd che checkt cl cla clo cm cmapc cme cn cnew cnf cno cnorea cnoreme co col colo com comc comp con conf cope "+"cp cpf cq cr cs cst cu cuna cunme cw delm deb debugg delc delf dif diffg diffo diffp diffpu diffs diffthis dig di dl dell dj dli do doautoa dp dr ds dsp e|0 ea ec echoe echoh echom echon el elsei em en endfo endf endt endw ene ex exe exi exu f|0 files filet fin fina fini fir fix fo foldc foldd folddoc foldo for fu go gr grepa gu gv ha helpf helpg helpt hi hid his ia iabc if ij il im imapc "+"ime ino inorea inoreme int is isp iu iuna iunme j|0 ju k|0 keepa kee keepj lN lNf l|0 lad laddb laddf la lan lat lb lc lch lcl lcs le lefta let lex lf lfir lgetb lgete lg lgr lgrepa lh ll lla lli lmak lm lmapc lne lnew lnf ln loadk lo loc lockv lol lope lp lpf lr ls lt lu lua luad luaf lv lvimgrepa lw m|0 ma mak map mapc marks mat me menut mes mk mks mksp mkv mkvie mod mz mzf nbc nb nbs new nm nmapc nme nn nnoreme noa no noh norea noreme norm nu nun nunme ol o|0 om omapc ome on ono onoreme opt ou ounme ow p|0 "+"profd prof pro promptr pc ped pe perld po popu pp pre prev ps pt ptN ptf ptj ptl ptn ptp ptr pts pu pw py3 python3 py3d py3f py pyd pyf quita qa rec red redi redr redraws reg res ret retu rew ri rightb rub rubyd rubyf rund ru rv sN san sa sal sav sb sbN sba sbf sbl sbm sbn sbp sbr scrip scripte scs se setf setg setl sf sfir sh sim sig sil sl sla sm smap smapc sme sn sni sno snor snoreme sor "+"so spelld spe spelli spellr spellu spellw sp spr sre st sta startg startr star stopi stj sts sun sunm sunme sus sv sw sy synti sync tN tabN tabc tabdo tabe tabf tabfir tabl tabm tabnew "+"tabn tabo tabp tabr tabs tab ta tags tc tcld tclf te tf th tj tl tm tn to tp tr try ts tu u|0 undoj undol una unh unl unlo unm unme uns up ve verb vert vim vimgrepa vi viu vie vm vmapc vme vne vn vnoreme vs vu vunme windo w|0 wN wa wh wi winc winp wn wp wq wqa ws wu wv x|0 xa xmapc xm xme xn xnoreme xu xunme y|0 z|0 ~ "+"Next Print append abbreviate abclear aboveleft all amenu anoremenu args argadd argdelete argedit argglobal arglocal argument ascii autocmd augroup aunmenu buffer bNext ball badd bdelete behave belowright bfirst blast bmodified bnext botright bprevious brewind break breakadd breakdel breaklist browse bunload "+"bwipeout change cNext cNfile cabbrev cabclear caddbuffer caddexpr caddfile call catch cbuffer cclose center cexpr cfile cfirst cgetbuffer cgetexpr cgetfile chdir checkpath checktime clist clast close cmap cmapclear cmenu cnext cnewer cnfile cnoremap cnoreabbrev cnoremenu copy colder colorscheme command comclear compiler continue confirm copen cprevious cpfile cquit crewind cscope cstag cunmap "+"cunabbrev cunmenu cwindow delete delmarks debug debuggreedy delcommand delfunction diffupdate diffget diffoff diffpatch diffput diffsplit digraphs display deletel djump dlist doautocmd doautoall deletep drop dsearch dsplit edit earlier echo echoerr echohl echomsg else elseif emenu endif endfor "+"endfunction endtry endwhile enew execute exit exusage file filetype find finally finish first fixdel fold foldclose folddoopen folddoclosed foldopen function global goto grep grepadd gui gvim hardcopy help helpfind helpgrep helptags highlight hide history insert iabbrev iabclear ijump ilist imap "+"imapclear imenu inoremap inoreabbrev inoremenu intro isearch isplit iunmap iunabbrev iunmenu join jumps keepalt keepmarks keepjumps lNext lNfile list laddexpr laddbuffer laddfile last language later lbuffer lcd lchdir lclose lcscope left leftabove lexpr lfile lfirst lgetbuffer lgetexpr lgetfile lgrep lgrepadd lhelpgrep llast llist lmake lmap lmapclear lnext lnewer lnfile lnoremap loadkeymap loadview "+"lockmarks lockvar lolder lopen lprevious lpfile lrewind ltag lunmap luado luafile lvimgrep lvimgrepadd lwindow move mark make mapclear match menu menutranslate messages mkexrc mksession mkspell mkvimrc mkview mode mzscheme mzfile nbclose nbkey nbsart next nmap nmapclear nmenu nnoremap "+"nnoremenu noautocmd noremap nohlsearch noreabbrev noremenu normal number nunmap nunmenu oldfiles open omap omapclear omenu only onoremap onoremenu options ounmap ounmenu ownsyntax print profdel profile promptfind promptrepl pclose pedit perl perldo pop popup ppop preserve previous psearch ptag ptNext "+"ptfirst ptjump ptlast ptnext ptprevious ptrewind ptselect put pwd py3do py3file python pydo pyfile quit quitall qall read recover redo redir redraw redrawstatus registers resize retab return rewind right rightbelow ruby rubydo rubyfile rundo runtime rviminfo substitute sNext sandbox sargument sall saveas sbuffer sbNext sball sbfirst sblast sbmodified sbnext sbprevious sbrewind scriptnames scriptencoding "+"scscope set setfiletype setglobal setlocal sfind sfirst shell simalt sign silent sleep slast smagic smapclear smenu snext sniff snomagic snoremap snoremenu sort source spelldump spellgood spellinfo spellrepall spellundo spellwrong split sprevious srewind stop stag startgreplace startreplace "+"startinsert stopinsert stjump stselect sunhide sunmap sunmenu suspend sview swapname syntax syntime syncbind tNext tabNext tabclose tabedit tabfind tabfirst tablast tabmove tabnext tabonly tabprevious tabrewind tag tcl tcldo tclfile tearoff tfirst throw tjump tlast tmenu tnext topleft tprevious "+"trewind tselect tunmenu undo undojoin undolist unabbreviate unhide unlet unlockvar unmap unmenu unsilent update vglobal version verbose vertical vimgrep vimgrepadd visual viusage view vmap vmapclear vmenu vnew "+"vnoremap vnoremenu vsplit vunmap vunmenu write wNext wall while winsize wincmd winpos wnext wprevious wqall wsverb wundo wviminfo xit xall xmapclear xmap xmenu xnoremap xnoremenu xunmap xunmenu yank",built_in:"synIDtrans atan2 range matcharg did_filetype asin feedkeys xor argv "+"complete_check add getwinposx getqflist getwinposy screencol "+"clearmatches empty extend getcmdpos mzeval garbagecollect setreg "+"ceil sqrt diff_hlID inputsecret get getfperm getpid filewritable "+"shiftwidth max sinh isdirectory synID system inputrestore winline "+"atan visualmode inputlist tabpagewinnr round getregtype mapcheck "+"hasmapto histdel argidx findfile sha256 exists toupper getcmdline "+"taglist string getmatches bufnr strftime winwidth bufexists "+"strtrans tabpagebuflist setcmdpos remote_read printf setloclist "+"getpos getline bufwinnr float2nr len getcmdtype diff_filler luaeval "+"resolve libcallnr foldclosedend reverse filter has_key bufname "+"str2float strlen setline getcharmod setbufvar index searchpos "+"shellescape undofile foldclosed setqflist buflisted strchars str2nr "+"virtcol floor remove undotree remote_expr winheight gettabwinvar "+"reltime cursor tabpagenr finddir localtime acos getloclist search "+"tanh matchend rename gettabvar strdisplaywidth type abs py3eval "+"setwinvar tolower wildmenumode log10 spellsuggest bufloaded "+"synconcealed nextnonblank server2client complete settabwinvar "+"executable input wincol setmatches getftype hlID inputsave "+"searchpair or screenrow line settabvar histadd deepcopy strpart "+"remote_peek and eval getftime submatch screenchar winsaveview "+"matchadd mkdir screenattr getfontname libcall reltimestr getfsize "+"winnr invert pow getbufline byte2line soundfold repeat fnameescape "+"tagfiles sin strwidth spellbadword trunc maparg log lispindent "+"hostname setpos globpath remote_foreground getchar synIDattr "+"fnamemodify cscope_connection stridx winbufnr indent min "+"complete_add nr2char searchpairpos inputdialog values matchlist "+"items hlexists strridx browsedir expand fmod pathshorten line2byte "+"argc count getwinvar glob foldtextresult getreg foreground cosh "+"matchdelete has char2nr simplify histget searchdecl iconv "+"winrestcmd pumvisible writefile foldlevel haslocaldir keys cos "+"matchstr foldtext histnr tan tempname getcwd byteidx getbufvar "+"islocked escape eventhandler remote_send serverlist winrestview "+"synstack pyeval prevnonblank readfile cindent filereadable changenr "+"exp"},illegal:/;/,contains:[hljs.NUMBER_MODE,{className:"string",begin:"'",end:"'",illegal:"\\n"},{className:"string",begin:/"(\\"|\n\\|[^"\n])*"/},hljs.COMMENT('"',"$"),{className:"variable",begin:/[bwtglsav]:[\w\d_]*/},{className:"function",beginKeywords:"function function!",end:"$",relevance:0,contains:[hljs.TITLE_MODE,{className:"params",begin:"\\(",end:"\\)"}]},{className:"symbol",begin:/<[\w-]+>/}]}});hljs.registerLanguage("dos",function(hljs){var COMMENT=hljs.COMMENT(/^\s*@?rem\b/,/$/,{relevance:10});var LABEL={className:"symbol",begin:"^\\s*[A-Za-z._?][A-Za-z0-9_$#@~.?]*(:|\\s+label)",relevance:0};return{aliases:["bat","cmd"],case_insensitive:true,illegal:/\/\*/,keywords:{keyword:"if else goto for in do call exit not exist errorlevel defined "+"equ neq lss leq gtr geq",built_in:"prn nul lpt3 lpt2 lpt1 con com4 com3 com2 com1 aux "+"shift cd dir echo setlocal endlocal set pause copy "+"append assoc at attrib break cacls cd chcp chdir chkdsk chkntfs cls cmd color "+"comp compact convert date dir diskcomp diskcopy doskey erase fs "+"find findstr format ftype graftabl help keyb label md mkdir mode more move path "+"pause print popd pushd promt rd recover rem rename replace restore rmdir shift"+"sort start subst time title tree type ver verify vol "+"ping net ipconfig taskkill xcopy ren del"},contains:[{className:"variable",begin:/%%[^ ]|%[^ ]+?%|![^ ]+?!/},{className:"function",begin:LABEL.begin,end:"goto:eof",contains:[hljs.inherit(hljs.TITLE_MODE,{begin:"([_a-zA-Z]\\w*\\.)*([_a-zA-Z]\\w*:)?[_a-zA-Z]\\w*"}),COMMENT]},{className:"number",begin:"\\b\\d+",relevance:0},COMMENT]}});hljs.registerLanguage("ceylon",function(hljs){var KEYWORDS="assembly module package import alias class interface object given value "+"assign void function new of extends satisfies abstracts in out return "+"break continue throw assert dynamic if else switch case for while try "+"catch finally then let this outer super is exists nonempty";var DECLARATION_MODIFIERS="shared abstract formal default actual variable late native deprecated"+"final sealed annotation suppressWarnings small";var DOCUMENTATION="doc by license see throws tagged";var SUBST={className:"subst",excludeBegin:true,excludeEnd:true,begin:/``/,end:/``/,keywords:KEYWORDS,relevance:10};var EXPRESSIONS=[{className:"string",begin:'"""',end:'"""',relevance:10},{className:"string",begin:'"',end:'"',contains:[SUBST]},{className:"string",begin:"'",end:"'"},{className:"number",begin:"#[0-9a-fA-F_]+|\\$[01_]+|[0-9_]+(?:\\.[0-9_](?:[eE][+-]?\\d+)?)?[kMGTPmunpf]?",relevance:0}];SUBST.contains=EXPRESSIONS;return{keywords:{keyword:KEYWORDS+" "+DECLARATION_MODIFIERS,meta:DOCUMENTATION},illegal:"\\$[^01]|#[^0-9a-fA-F]",contains:[hljs.C_LINE_COMMENT_MODE,hljs.COMMENT("/\\*","\\*/",{contains:["self"]}),{className:"meta",begin:'@[a-z]\\w*(?:\\:"[^"]*")?'}].concat(EXPRESSIONS)}});hljs.registerLanguage("nsis",function(hljs){var CONSTANTS={className:"variable",begin:/\$(ADMINTOOLS|APPDATA|CDBURN_AREA|CMDLINE|COMMONFILES32|COMMONFILES64|COMMONFILES|COOKIES|DESKTOP|DOCUMENTS|EXEDIR|EXEFILE|EXEPATH|FAVORITES|FONTS|HISTORY|HWNDPARENT|INSTDIR|INTERNET_CACHE|LANGUAGE|LOCALAPPDATA|MUSIC|NETHOOD|OUTDIR|PICTURES|PLUGINSDIR|PRINTHOOD|PROFILE|PROGRAMFILES32|PROGRAMFILES64|PROGRAMFILES|QUICKLAUNCH|RECENT|RESOURCES_LOCALIZED|RESOURCES|SENDTO|SMPROGRAMS|SMSTARTUP|STARTMENU|SYSDIR|TEMP|TEMPLATES|VIDEOS|WINDIR)/};var DEFINES={className:"variable",begin:/\$+{[\w\.:-]+}/};var VARIABLES={className:"variable",begin:/\$+\w+/,illegal:/\(\){}/};var LANGUAGES={className:"variable",begin:/\$+\([\w\^\.:-]+\)/};var PARAMETERS={className:"params",begin:"(ARCHIVE|FILE_ATTRIBUTE_ARCHIVE|FILE_ATTRIBUTE_NORMAL|FILE_ATTRIBUTE_OFFLINE|FILE_ATTRIBUTE_READONLY|FILE_ATTRIBUTE_SYSTEM|FILE_ATTRIBUTE_TEMPORARY|HKCR|HKCU|HKDD|HKEY_CLASSES_ROOT|HKEY_CURRENT_CONFIG|HKEY_CURRENT_USER|HKEY_DYN_DATA|HKEY_LOCAL_MACHINE|HKEY_PERFORMANCE_DATA|HKEY_USERS|HKLM|HKPD|HKU|IDABORT|IDCANCEL|IDIGNORE|IDNO|IDOK|IDRETRY|IDYES|MB_ABORTRETRYIGNORE|MB_DEFBUTTON1|MB_DEFBUTTON2|MB_DEFBUTTON3|MB_DEFBUTTON4|MB_ICONEXCLAMATION|MB_ICONINFORMATION|MB_ICONQUESTION|MB_ICONSTOP|MB_OK|MB_OKCANCEL|MB_RETRYCANCEL|MB_RIGHT|MB_RTLREADING|MB_SETFOREGROUND|MB_TOPMOST|MB_USERICON|MB_YESNO|NORMAL|OFFLINE|READONLY|SHCTX|SHELL_CONTEXT|SYSTEM|TEMPORARY)"};var COMPILER={className:"keyword",begin:/\!(addincludedir|addplugindir|appendfile|cd|define|delfile|echo|else|endif|error|execute|finalize|getdllversion|gettlbversion|if|ifdef|ifmacrodef|ifmacrondef|ifndef|include|insertmacro|macro|macroend|makensis|packhdr|searchparse|searchreplace|system|tempfile|undef|verbose|warning)/};var METACHARS={className:"meta",begin:/\$(\\[nrt]|\$)/};var PLUGINS={className:"class",begin:/\w+\:\:\w+/};var STRING={className:"string",variants:[{begin:'"',end:'"'},{begin:"'",end:"'"},{begin:"`",end:"`"}],illegal:/\n/,contains:[METACHARS,CONSTANTS,DEFINES,VARIABLES,LANGUAGES]};return{case_insensitive:false,keywords:{keyword:"Abort AddBrandingImage AddSize AllowRootDirInstall AllowSkipFiles AutoCloseWindow BGFont BGGradient BrandingText BringToFront Call CallInstDLL Caption ChangeUI CheckBitmap ClearErrors CompletedText ComponentText CopyFiles CRCCheck CreateDirectory CreateFont CreateShortCut Delete DeleteINISec DeleteINIStr DeleteRegKey DeleteRegValue DetailPrint DetailsButtonText DirText DirVar DirVerify EnableWindow EnumRegKey EnumRegValue Exch Exec ExecShell ExecShellWait ExecWait ExpandEnvStrings File FileBufSize FileClose FileErrorText FileOpen FileRead FileReadByte FileReadUTF16LE FileReadWord FileSeek FileWrite FileWriteByte FileWriteUTF16LE FileWriteWord FindClose FindFirst FindNext FindWindow FlushINI FunctionEnd GetCurInstType GetCurrentAddress GetDlgItem GetDLLVersion GetDLLVersionLocal GetErrorLevel GetFileTime GetFileTimeLocal GetFullPathName GetFunctionAddress GetInstDirError GetLabelAddress GetTempFileName Goto HideWindow Icon IfAbort IfErrors IfFileExists IfRebootFlag IfSilent InitPluginsDir InstallButtonText InstallColors InstallDir InstallDirRegKey InstProgressFlags InstType InstTypeGetText InstTypeSetText Int64Cmp Int64CmpU Int64Fmt IntCmp IntCmpU IntFmt IntOp IntPtrCmp IntPtrCmpU IntPtrOp IsWindow LangString LicenseBkColor LicenseData LicenseForceSelection LicenseLangString LicenseText LoadLanguageFile LockWindow LogSet LogText ManifestDPIAware ManifestSupportedOS MessageBox MiscButtonText Name Nop OutFile Page PageCallbacks PageExEnd Pop Push Quit ReadEnvStr ReadINIStr ReadRegDWORD ReadRegStr Reboot RegDLL Rename RequestExecutionLevel ReserveFile Return RMDir SearchPath SectionEnd SectionGetFlags SectionGetInstTypes SectionGetSize SectionGetText SectionGroupEnd SectionIn SectionSetFlags SectionSetInstTypes SectionSetSize SectionSetText SendMessage SetAutoClose SetBrandingImage SetCompress SetCompressor SetCompressorDictSize SetCtlColors SetCurInstType SetDatablockOptimize SetDateSave SetDetailsPrint SetDetailsView SetErrorLevel SetErrors SetFileAttributes SetFont SetOutPath SetOverwrite SetRebootFlag SetRegView SetShellVarContext SetSilent ShowInstDetails ShowUninstDetails ShowWindow SilentInstall SilentUnInstall Sleep SpaceTexts StrCmp StrCmpS StrCpy StrLen SubCaption Unicode UninstallButtonText UninstallCaption UninstallIcon UninstallSubCaption UninstallText UninstPage UnRegDLL Var VIAddVersionKey VIFileVersion VIProductVersion WindowIcon WriteINIStr WriteRegBin WriteRegDWORD WriteRegExpandStr WriteRegMultiStr WriteRegNone WriteRegStr WriteUninstaller XPStyle",literal:"admin all auto both bottom bzip2 colored components current custom directory false force hide highest ifdiff ifnewer instfiles lastused leave left license listonly lzma nevershow none normal notset off on open print right show silent silentlog smooth textonly top true try un.components un.custom un.directory un.instfiles un.license uninstConfirm user Win10 Win7 Win8 WinVista zlib"},contains:[hljs.HASH_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.COMMENT(";","$",{relevance:0}),{className:"function",beginKeywords:"Function PageEx Section SectionGroup",end:"$"},STRING,COMPILER,DEFINES,VARIABLES,LANGUAGES,PARAMETERS,PLUGINS,hljs.NUMBER_MODE]}});hljs.registerLanguage("go",function(hljs){var GO_KEYWORDS={keyword:"break default func interface select case map struct chan else goto package switch "+"const fallthrough if range type continue for import return var go defer "+"bool byte complex64 complex128 float32 float64 int8 int16 int32 int64 string uint8 "+"uint16 uint32 uint64 int uint uintptr rune",literal:"true false iota nil",built_in:"append cap close complex copy imag len make new panic print println real recover delete"};return{aliases:["golang"],keywords:GO_KEYWORDS,illegal:"</",contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,{className:"string",variants:[hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE,{begin:"`",end:"`"}]},{className:"number",variants:[{begin:hljs.C_NUMBER_RE+"[i]",relevance:1},hljs.C_NUMBER_MODE]},{begin:/:=/},{className:"function",beginKeywords:"func",end:"\\s*(\\{|$)",excludeEnd:true,contains:[hljs.TITLE_MODE,{className:"params",begin:/\(/,end:/\)/,keywords:GO_KEYWORDS,illegal:/["']/}]}]}});hljs.registerLanguage("nix",function(hljs){var NIX_KEYWORDS={keyword:"rec with let in inherit assert if else then",literal:"true false or and null",built_in:"import abort baseNameOf dirOf isNull builtins map removeAttrs throw "+"toString derivation"};var ANTIQUOTE={className:"subst",begin:/\$\{/,end:/}/,keywords:NIX_KEYWORDS};var ATTRS={begin:/[a-zA-Z0-9-_]+(\s*=)/,returnBegin:true,relevance:0,contains:[{className:"attr",begin:/\S+/}]};var STRING={className:"string",contains:[ANTIQUOTE],variants:[{begin:"''",end:"''"},{begin:'"',end:'"'}]};var EXPRESSIONS=[hljs.NUMBER_MODE,hljs.HASH_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,STRING,ATTRS];ANTIQUOTE.contains=EXPRESSIONS;return{aliases:["nixos"],keywords:NIX_KEYWORDS,contains:EXPRESSIONS}});hljs.registerLanguage("mel",function(hljs){return{keywords:"int float string vector matrix if else switch case default while do for in break "+"continue global proc return about abs addAttr addAttributeEditorNodeHelp addDynamic "+"addNewShelfTab addPP addPanelCategory addPrefixToName advanceToNextDrivenKey "+"affectedNet affects aimConstraint air alias aliasAttr align alignCtx alignCurve "+"alignSurface allViewFit ambientLight angle angleBetween animCone animCurveEditor "+"animDisplay animView annotate appendStringArray applicationName applyAttrPreset "+"applyTake arcLenDimContext arcLengthDimension arclen arrayMapper art3dPaintCtx "+"artAttrCtx artAttrPaintVertexCtx artAttrSkinPaintCtx artAttrTool artBuildPaintMenu "+"artFluidAttrCtx artPuttyCtx artSelectCtx artSetPaintCtx artUserPaintCtx assignCommand "+"assignInputDevice assignViewportFactories attachCurve attachDeviceAttr attachSurface "+"attrColorSliderGrp attrCompatibility attrControlGrp attrEnumOptionMenu "+"attrEnumOptionMenuGrp attrFieldGrp attrFieldSliderGrp attrNavigationControlGrp "+"attrPresetEditWin attributeExists attributeInfo attributeMenu attributeQuery "+"autoKeyframe autoPlace bakeClip bakeFluidShading bakePartialHistory bakeResults "+"bakeSimulation basename basenameEx batchRender bessel bevel bevelPlus binMembership "+"bindSkin blend2 blendShape blendShapeEditor blendShapePanel blendTwoAttr blindDataType "+"boneLattice boundary boxDollyCtx boxZoomCtx bufferCurve buildBookmarkMenu "+"buildKeyframeMenu button buttonManip CBG cacheFile cacheFileCombine cacheFileMerge "+"cacheFileTrack camera cameraView canCreateManip canvas capitalizeString catch "+"catchQuiet ceil changeSubdivComponentDisplayLevel changeSubdivRegion channelBox "+"character characterMap characterOutlineEditor characterize chdir checkBox checkBoxGrp "+"checkDefaultRenderGlobals choice circle circularFillet clamp clear clearCache clip "+"clipEditor clipEditorCurrentTimeCtx clipSchedule clipSchedulerOutliner clipTrimBefore "+"closeCurve closeSurface cluster cmdFileOutput cmdScrollFieldExecuter "+"cmdScrollFieldReporter cmdShell coarsenSubdivSelectionList collision color "+"colorAtPoint colorEditor colorIndex colorIndexSliderGrp colorSliderButtonGrp "+"colorSliderGrp columnLayout commandEcho commandLine commandPort compactHairSystem "+"componentEditor compositingInterop computePolysetVolume condition cone confirmDialog "+"connectAttr connectControl connectDynamic connectJoint connectionInfo constrain "+"constrainValue constructionHistory container containsMultibyte contextInfo control "+"convertFromOldLayers convertIffToPsd convertLightmap convertSolidTx convertTessellation "+"convertUnit copyArray copyFlexor copyKey copySkinWeights cos cpButton cpCache "+"cpClothSet cpCollision cpConstraint cpConvClothToMesh cpForces cpGetSolverAttr cpPanel "+"cpProperty cpRigidCollisionFilter cpSeam cpSetEdit cpSetSolverAttr cpSolver "+"cpSolverTypes cpTool cpUpdateClothUVs createDisplayLayer createDrawCtx createEditor "+"createLayeredPsdFile createMotionField createNewShelf createNode createRenderLayer "+"createSubdivRegion cross crossProduct ctxAbort ctxCompletion ctxEditMode ctxTraverse "+"currentCtx currentTime currentTimeCtx currentUnit curve curveAddPtCtx "+"curveCVCtx curveEPCtx curveEditorCtx curveIntersect curveMoveEPCtx curveOnSurface "+"curveSketchCtx cutKey cycleCheck cylinder dagPose date defaultLightListCheckBox "+"defaultNavigation defineDataServer defineVirtualDevice deformer deg_to_rad delete "+"deleteAttr deleteShadingGroupsAndMaterials deleteShelfTab deleteUI deleteUnusedBrushes "+"delrandstr detachCurve detachDeviceAttr detachSurface deviceEditor devicePanel dgInfo "+"dgdirty dgeval dgtimer dimWhen directKeyCtx directionalLight dirmap dirname disable "+"disconnectAttr disconnectJoint diskCache displacementToPoly displayAffected "+"displayColor displayCull displayLevelOfDetail displayPref displayRGBColor "+"displaySmoothness displayStats displayString displaySurface distanceDimContext "+"distanceDimension doBlur dolly dollyCtx dopeSheetEditor dot dotProduct "+"doubleProfileBirailSurface drag dragAttrContext draggerContext dropoffLocator "+"duplicate duplicateCurve duplicateSurface dynCache dynControl dynExport dynExpression "+"dynGlobals dynPaintEditor dynParticleCtx dynPref dynRelEdPanel dynRelEditor "+"dynamicLoad editAttrLimits editDisplayLayerGlobals editDisplayLayerMembers "+"editRenderLayerAdjustment editRenderLayerGlobals editRenderLayerMembers editor "+"editorTemplate effector emit emitter enableDevice encodeString endString endsWith env "+"equivalent equivalentTol erf error eval evalDeferred evalEcho event "+"exactWorldBoundingBox exclusiveLightCheckBox exec executeForEachObject exists exp "+"expression expressionEditorListen extendCurve extendSurface extrude fcheck fclose feof "+"fflush fgetline fgetword file fileBrowserDialog fileDialog fileExtension fileInfo "+"filetest filletCurve filter filterCurve filterExpand filterStudioImport "+"findAllIntersections findAnimCurves findKeyframe findMenuItem findRelatedSkinCluster "+"finder firstParentOf fitBspline flexor floatEq floatField floatFieldGrp floatScrollBar "+"floatSlider floatSlider2 floatSliderButtonGrp floatSliderGrp floor flow fluidCacheInfo "+"fluidEmitter fluidVoxelInfo flushUndo fmod fontDialog fopen formLayout format fprint "+"frameLayout fread freeFormFillet frewind fromNativePath fwrite gamma gauss "+"geometryConstraint getApplicationVersionAsFloat getAttr getClassification "+"getDefaultBrush getFileList getFluidAttr getInputDeviceRange getMayaPanelTypes "+"getModifiers getPanel getParticleAttr getPluginResource getenv getpid glRender "+"glRenderEditor globalStitch gmatch goal gotoBindPose grabColor gradientControl "+"gradientControlNoAttr graphDollyCtx graphSelectContext graphTrackCtx gravity grid "+"gridLayout group groupObjectsByName HfAddAttractorToAS HfAssignAS HfBuildEqualMap "+"HfBuildFurFiles HfBuildFurImages HfCancelAFR HfConnectASToHF HfCreateAttractor "+"HfDeleteAS HfEditAS HfPerformCreateAS HfRemoveAttractorFromAS HfSelectAttached "+"HfSelectAttractors HfUnAssignAS hardenPointCurve hardware hardwareRenderPanel "+"headsUpDisplay headsUpMessage help helpLine hermite hide hilite hitTest hotBox hotkey "+"hotkeyCheck hsv_to_rgb hudButton hudSlider hudSliderButton hwReflectionMap hwRender "+"hwRenderLoad hyperGraph hyperPanel hyperShade hypot iconTextButton iconTextCheckBox "+"iconTextRadioButton iconTextRadioCollection iconTextScrollList iconTextStaticLabel "+"ikHandle ikHandleCtx ikHandleDisplayScale ikSolver ikSplineHandleCtx ikSystem "+"ikSystemInfo ikfkDisplayMethod illustratorCurves image imfPlugins inheritTransform "+"insertJoint insertJointCtx insertKeyCtx insertKnotCurve insertKnotSurface instance "+"instanceable instancer intField intFieldGrp intScrollBar intSlider intSliderGrp "+"interToUI internalVar intersect iprEngine isAnimCurve isConnected isDirty isParentOf "+"isSameObject isTrue isValidObjectName isValidString isValidUiName isolateSelect "+"itemFilter itemFilterAttr itemFilterRender itemFilterType joint jointCluster jointCtx "+"jointDisplayScale jointLattice keyTangent keyframe keyframeOutliner "+"keyframeRegionCurrentTimeCtx keyframeRegionDirectKeyCtx keyframeRegionDollyCtx "+"keyframeRegionInsertKeyCtx keyframeRegionMoveKeyCtx keyframeRegionScaleKeyCtx "+"keyframeRegionSelectKeyCtx keyframeRegionSetKeyCtx keyframeRegionTrackCtx "+"keyframeStats lassoContext lattice latticeDeformKeyCtx launch launchImageEditor "+"layerButton layeredShaderPort layeredTexturePort layout layoutDialog lightList "+"lightListEditor lightListPanel lightlink lineIntersection linearPrecision linstep "+"listAnimatable listAttr listCameras listConnections listDeviceAttachments listHistory "+"listInputDeviceAxes listInputDeviceButtons listInputDevices listMenuAnnotation "+"listNodeTypes listPanelCategories listRelatives listSets listTransforms "+"listUnselected listerEditor loadFluid loadNewShelf loadPlugin "+"loadPluginLanguageResources loadPrefObjects localizedPanelLabel lockNode loft log "+"longNameOf lookThru ls lsThroughFilter lsType lsUI Mayatomr mag makeIdentity makeLive "+"makePaintable makeRoll makeSingleSurface makeTubeOn makebot manipMoveContext "+"manipMoveLimitsCtx manipOptions manipRotateContext manipRotateLimitsCtx "+"manipScaleContext manipScaleLimitsCtx marker match max memory menu menuBarLayout "+"menuEditor menuItem menuItemToShelf menuSet menuSetPref messageLine min minimizeApp "+"mirrorJoint modelCurrentTimeCtx modelEditor modelPanel mouse movIn movOut move "+"moveIKtoFK moveKeyCtx moveVertexAlongDirection multiProfileBirailSurface mute "+"nParticle nameCommand nameField namespace namespaceInfo newPanelItems newton nodeCast "+"nodeIconButton nodeOutliner nodePreset nodeType noise nonLinear normalConstraint "+"normalize nurbsBoolean nurbsCopyUVSet nurbsCube nurbsEditUV nurbsPlane nurbsSelect "+"nurbsSquare nurbsToPoly nurbsToPolygonsPref nurbsToSubdiv nurbsToSubdivPref "+"nurbsUVSet nurbsViewDirectionVector objExists objectCenter objectLayer objectType "+"objectTypeUI obsoleteProc oceanNurbsPreviewPlane offsetCurve offsetCurveOnSurface "+"offsetSurface openGLExtension openMayaPref optionMenu optionMenuGrp optionVar orbit "+"orbitCtx orientConstraint outlinerEditor outlinerPanel overrideModifier "+"paintEffectsDisplay pairBlend palettePort paneLayout panel panelConfiguration "+"panelHistory paramDimContext paramDimension paramLocator parent parentConstraint "+"particle particleExists particleInstancer particleRenderInfo partition pasteKey "+"pathAnimation pause pclose percent performanceOptions pfxstrokes pickWalk picture "+"pixelMove planarSrf plane play playbackOptions playblast plugAttr plugNode pluginInfo "+"pluginResourceUtil pointConstraint pointCurveConstraint pointLight pointMatrixMult "+"pointOnCurve pointOnSurface pointPosition poleVectorConstraint polyAppend "+"polyAppendFacetCtx polyAppendVertex polyAutoProjection polyAverageNormal "+"polyAverageVertex polyBevel polyBlendColor polyBlindData polyBoolOp polyBridgeEdge "+"polyCacheMonitor polyCheck polyChipOff polyClipboard polyCloseBorder polyCollapseEdge "+"polyCollapseFacet polyColorBlindData polyColorDel polyColorPerVertex polyColorSet "+"polyCompare polyCone polyCopyUV polyCrease polyCreaseCtx polyCreateFacet "+"polyCreateFacetCtx polyCube polyCut polyCutCtx polyCylinder polyCylindricalProjection "+"polyDelEdge polyDelFacet polyDelVertex polyDuplicateAndConnect polyDuplicateEdge "+"polyEditUV polyEditUVShell polyEvaluate polyExtrudeEdge polyExtrudeFacet "+"polyExtrudeVertex polyFlipEdge polyFlipUV polyForceUV polyGeoSampler polyHelix "+"polyInfo polyInstallAction polyLayoutUV polyListComponentConversion polyMapCut "+"polyMapDel polyMapSew polyMapSewMove polyMergeEdge polyMergeEdgeCtx polyMergeFacet "+"polyMergeFacetCtx polyMergeUV polyMergeVertex polyMirrorFace polyMoveEdge "+"polyMoveFacet polyMoveFacetUV polyMoveUV polyMoveVertex polyNormal polyNormalPerVertex "+"polyNormalizeUV polyOptUvs polyOptions polyOutput polyPipe polyPlanarProjection "+"polyPlane polyPlatonicSolid polyPoke polyPrimitive polyPrism polyProjection "+"polyPyramid polyQuad polyQueryBlindData polyReduce polySelect polySelectConstraint "+"polySelectConstraintMonitor polySelectCtx polySelectEditCtx polySeparate "+"polySetToFaceNormal polySewEdge polyShortestPathCtx polySmooth polySoftEdge "+"polySphere polySphericalProjection polySplit polySplitCtx polySplitEdge polySplitRing "+"polySplitVertex polyStraightenUVBorder polySubdivideEdge polySubdivideFacet "+"polyToSubdiv polyTorus polyTransfer polyTriangulate polyUVSet polyUnite polyWedgeFace "+"popen popupMenu pose pow preloadRefEd print progressBar progressWindow projFileViewer "+"projectCurve projectTangent projectionContext projectionManip promptDialog propModCtx "+"propMove psdChannelOutliner psdEditTextureFile psdExport psdTextureFile putenv pwd "+"python querySubdiv quit rad_to_deg radial radioButton radioButtonGrp radioCollection "+"radioMenuItemCollection rampColorPort rand randomizeFollicles randstate rangeControl "+"readTake rebuildCurve rebuildSurface recordAttr recordDevice redo reference "+"referenceEdit referenceQuery refineSubdivSelectionList refresh refreshAE "+"registerPluginResource rehash reloadImage removeJoint removeMultiInstance "+"removePanelCategory rename renameAttr renameSelectionList renameUI render "+"renderGlobalsNode renderInfo renderLayerButton renderLayerParent "+"renderLayerPostProcess renderLayerUnparent renderManip renderPartition "+"renderQualityNode renderSettings renderThumbnailUpdate renderWindowEditor "+"renderWindowSelectContext renderer reorder reorderDeformers requires reroot "+"resampleFluid resetAE resetPfxToPolyCamera resetTool resolutionNode retarget "+"reverseCurve reverseSurface revolve rgb_to_hsv rigidBody rigidSolver roll rollCtx "+"rootOf rot rotate rotationInterpolation roundConstantRadius rowColumnLayout rowLayout "+"runTimeCommand runup sampleImage saveAllShelves saveAttrPreset saveFluid saveImage "+"saveInitialState saveMenu savePrefObjects savePrefs saveShelf saveToolSettings scale "+"scaleBrushBrightness scaleComponents scaleConstraint scaleKey scaleKeyCtx sceneEditor "+"sceneUIReplacement scmh scriptCtx scriptEditorInfo scriptJob scriptNode scriptTable "+"scriptToShelf scriptedPanel scriptedPanelType scrollField scrollLayout sculpt "+"searchPathArray seed selLoadSettings select selectContext selectCurveCV selectKey "+"selectKeyCtx selectKeyframeRegionCtx selectMode selectPref selectPriority selectType "+"selectedNodes selectionConnection separator setAttr setAttrEnumResource "+"setAttrMapping setAttrNiceNameResource setConstraintRestPosition "+"setDefaultShadingGroup setDrivenKeyframe setDynamic setEditCtx setEditor setFluidAttr "+"setFocus setInfinity setInputDeviceMapping setKeyCtx setKeyPath setKeyframe "+"setKeyframeBlendshapeTargetWts setMenuMode setNodeNiceNameResource setNodeTypeFlag "+"setParent setParticleAttr setPfxToPolyCamera setPluginResource setProject "+"setStampDensity setStartupMessage setState setToolTo setUITemplate setXformManip sets "+"shadingConnection shadingGeometryRelCtx shadingLightRelCtx shadingNetworkCompare "+"shadingNode shapeCompare shelfButton shelfLayout shelfTabLayout shellField "+"shortNameOf showHelp showHidden showManipCtx showSelectionInTitle "+"showShadingGroupAttrEditor showWindow sign simplify sin singleProfileBirailSurface "+"size sizeBytes skinCluster skinPercent smoothCurve smoothTangentSurface smoothstep "+"snap2to2 snapKey snapMode snapTogetherCtx snapshot soft softMod softModCtx sort sound "+"soundControl source spaceLocator sphere sphrand spotLight spotLightPreviewPort "+"spreadSheetEditor spring sqrt squareSurface srtContext stackTrace startString "+"startsWith stitchAndExplodeShell stitchSurface stitchSurfacePoints strcmp "+"stringArrayCatenate stringArrayContains stringArrayCount stringArrayInsertAtIndex "+"stringArrayIntersector stringArrayRemove stringArrayRemoveAtIndex "+"stringArrayRemoveDuplicates stringArrayRemoveExact stringArrayToString "+"stringToStringArray strip stripPrefixFromName stroke subdAutoProjection "+"subdCleanTopology subdCollapse subdDuplicateAndConnect subdEditUV "+"subdListComponentConversion subdMapCut subdMapSewMove subdMatchTopology subdMirror "+"subdToBlind subdToPoly subdTransferUVsToCache subdiv subdivCrease "+"subdivDisplaySmoothness substitute substituteAllString substituteGeometry substring "+"surface surfaceSampler surfaceShaderList swatchDisplayPort switchTable symbolButton "+"symbolCheckBox sysFile system tabLayout tan tangentConstraint texLatticeDeformContext "+"texManipContext texMoveContext texMoveUVShellContext texRotateContext texScaleContext "+"texSelectContext texSelectShortestPathCtx texSmudgeUVContext texWinToolCtx text "+"textCurves textField textFieldButtonGrp textFieldGrp textManip textScrollList "+"textToShelf textureDisplacePlane textureHairColor texturePlacementContext "+"textureWindow threadCount threePointArcCtx timeControl timePort timerX toNativePath "+"toggle toggleAxis toggleWindowVisibility tokenize tokenizeList tolerance tolower "+"toolButton toolCollection toolDropped toolHasOptions toolPropertyWindow torus toupper "+"trace track trackCtx transferAttributes transformCompare transformLimits translator "+"trim trunc truncateFluidCache truncateHairCache tumble tumbleCtx turbulence "+"twoPointArcCtx uiRes uiTemplate unassignInputDevice undo undoInfo ungroup uniform unit "+"unloadPlugin untangleUV untitledFileName untrim upAxis updateAE userCtx uvLink "+"uvSnapshot validateShelfName vectorize view2dToolCtx viewCamera viewClipPlane "+"viewFit viewHeadOn viewLookAt viewManip viewPlace viewSet visor volumeAxis vortex "+"waitCursor warning webBrowser webBrowserPrefs whatIs window windowPref wire "+"wireContext workspace wrinkle wrinkleContext writeTake xbmLangPathList xform",illegal:"</",contains:[hljs.C_NUMBER_MODE,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,{className:"string",begin:"`",end:"`",contains:[hljs.BACKSLASH_ESCAPE]},{begin:"[\\$\\%\\@](\\^\\w\\b|#\\w+|[^\\s\\w{]|{\\w+}|\\w+)"},hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE]}});hljs.registerLanguage("autoit",function(hljs){var KEYWORDS="ByRef Case Const ContinueCase ContinueLoop "+"Default Dim Do Else ElseIf EndFunc EndIf EndSelect "+"EndSwitch EndWith Enum Exit ExitLoop For Func "+"Global If In Local Next ReDim Return Select Static "+"Step Switch Then To Until Volatile WEnd While With",LITERAL="True False And Null Not Or",BUILT_IN="Abs ACos AdlibRegister AdlibUnRegister Asc AscW ASin Assign ATan AutoItSetOption AutoItWinGetTitle AutoItWinSetTitle Beep Binary BinaryLen BinaryMid BinaryToString BitAND BitNOT BitOR BitRotate BitShift BitXOR BlockInput Break Call CDTray Ceiling Chr ChrW ClipGet ClipPut ConsoleRead ConsoleWrite ConsoleWriteError ControlClick ControlCommand ControlDisable ControlEnable ControlFocus ControlGetFocus ControlGetHandle ControlGetPos ControlGetText ControlHide ControlListView ControlMove ControlSend ControlSetText ControlShow ControlTreeView Cos Dec DirCopy DirCreate DirGetSize DirMove DirRemove DllCall DllCallAddress DllCallbackFree DllCallbackGetPtr DllCallbackRegister DllClose DllOpen DllStructCreate DllStructGetData DllStructGetPtr DllStructGetSize DllStructSetData DriveGetDrive DriveGetFileSystem DriveGetLabel DriveGetSerial DriveGetType DriveMapAdd DriveMapDel DriveMapGet DriveSetLabel DriveSpaceFree DriveSpaceTotal DriveStatus EnvGet EnvSet EnvUpdate Eval Execute Exp FileChangeDir FileClose FileCopy FileCreateNTFSLink FileCreateShortcut FileDelete FileExists FileFindFirstFile FileFindNextFile FileFlush FileGetAttrib FileGetEncoding FileGetLongName FileGetPos FileGetShortcut FileGetShortName FileGetSize FileGetTime FileGetVersion FileInstall FileMove FileOpen FileOpenDialog FileRead FileReadLine FileReadToArray FileRecycle FileRecycleEmpty FileSaveDialog FileSelectFolder FileSetAttrib FileSetEnd FileSetPos FileSetTime FileWrite FileWriteLine Floor FtpSetProxy FuncName GUICreate GUICtrlCreateAvi GUICtrlCreateButton GUICtrlCreateCheckbox GUICtrlCreateCombo GUICtrlCreateContextMenu GUICtrlCreateDate GUICtrlCreateDummy GUICtrlCreateEdit GUICtrlCreateGraphic GUICtrlCreateGroup GUICtrlCreateIcon GUICtrlCreateInput GUICtrlCreateLabel GUICtrlCreateList GUICtrlCreateListView GUICtrlCreateListViewItem GUICtrlCreateMenu GUICtrlCreateMenuItem GUICtrlCreateMonthCal GUICtrlCreateObj GUICtrlCreatePic GUICtrlCreateProgress GUICtrlCreateRadio GUICtrlCreateSlider GUICtrlCreateTab GUICtrlCreateTabItem GUICtrlCreateTreeView GUICtrlCreateTreeViewItem GUICtrlCreateUpdown GUICtrlDelete GUICtrlGetHandle GUICtrlGetState GUICtrlRead GUICtrlRecvMsg GUICtrlRegisterListViewSort GUICtrlSendMsg GUICtrlSendToDummy GUICtrlSetBkColor GUICtrlSetColor GUICtrlSetCursor GUICtrlSetData GUICtrlSetDefBkColor GUICtrlSetDefColor GUICtrlSetFont GUICtrlSetGraphic GUICtrlSetImage GUICtrlSetLimit GUICtrlSetOnEvent GUICtrlSetPos GUICtrlSetResizing GUICtrlSetState GUICtrlSetStyle GUICtrlSetTip GUIDelete GUIGetCursorInfo GUIGetMsg GUIGetStyle GUIRegisterMsg GUISetAccelerators GUISetBkColor GUISetCoord GUISetCursor GUISetFont GUISetHelp GUISetIcon GUISetOnEvent GUISetState GUISetStyle GUIStartGroup GUISwitch Hex HotKeySet HttpSetProxy HttpSetUserAgent HWnd InetClose InetGet InetGetInfo InetGetSize InetRead IniDelete IniRead IniReadSection IniReadSectionNames IniRenameSection IniWrite IniWriteSection InputBox Int IsAdmin IsArray IsBinary IsBool IsDeclared IsDllStruct IsFloat IsFunc IsHWnd IsInt IsKeyword IsNumber IsObj IsPtr IsString Log MemGetStats Mod MouseClick MouseClickDrag MouseDown MouseGetCursor MouseGetPos MouseMove MouseUp MouseWheel MsgBox Number ObjCreate ObjCreateInterface ObjEvent ObjGet ObjName OnAutoItExitRegister OnAutoItExitUnRegister Ping PixelChecksum PixelGetColor PixelSearch ProcessClose ProcessExists ProcessGetStats ProcessList ProcessSetPriority ProcessWait ProcessWaitClose ProgressOff ProgressOn ProgressSet Ptr Random RegDelete RegEnumKey RegEnumVal RegRead RegWrite Round Run RunAs RunAsWait RunWait Send SendKeepActive SetError SetExtended ShellExecute ShellExecuteWait Shutdown Sin Sleep SoundPlay SoundSetWaveVolume SplashImageOn SplashOff SplashTextOn Sqrt SRandom StatusbarGetText StderrRead StdinWrite StdioClose StdoutRead String StringAddCR StringCompare StringFormat StringFromASCIIArray StringInStr StringIsAlNum StringIsAlpha StringIsASCII StringIsDigit StringIsFloat StringIsInt StringIsLower StringIsSpace StringIsUpper StringIsXDigit StringLeft StringLen StringLower StringMid StringRegExp StringRegExpReplace StringReplace StringReverse StringRight StringSplit StringStripCR StringStripWS StringToASCIIArray StringToBinary StringTrimLeft StringTrimRight StringUpper Tan TCPAccept TCPCloseSocket TCPConnect TCPListen TCPNameToIP TCPRecv TCPSend TCPShutdown, UDPShutdown TCPStartup, UDPStartup TimerDiff TimerInit ToolTip TrayCreateItem TrayCreateMenu TrayGetMsg TrayItemDelete TrayItemGetHandle TrayItemGetState TrayItemGetText TrayItemSetOnEvent TrayItemSetState TrayItemSetText TraySetClick TraySetIcon TraySetOnEvent TraySetPauseIcon TraySetState TraySetToolTip TrayTip UBound UDPBind UDPCloseSocket UDPOpen UDPRecv UDPSend VarGetType WinActivate WinActive WinClose WinExists WinFlash WinGetCaretPos WinGetClassList WinGetClientSize WinGetHandle WinGetPos WinGetProcess WinGetState WinGetText WinGetTitle WinKill WinList WinMenuSelectItem WinMinimizeAll WinMinimizeAllUndo WinMove WinSetOnTop WinSetState WinSetTitle WinSetTrans WinWait",COMMENT={variants:[hljs.COMMENT(";","$",{relevance:0}),hljs.COMMENT("#cs","#ce"),hljs.COMMENT("#comments-start","#comments-end")]},VARIABLE={begin:"\\$[A-z0-9_]+"},STRING={className:"string",variants:[{begin:/"/,end:/"/,contains:[{begin:/""/,relevance:0}]},{begin:/'/,end:/'/,contains:[{begin:/''/,relevance:0}]}]},NUMBER={variants:[hljs.BINARY_NUMBER_MODE,hljs.C_NUMBER_MODE]},PREPROCESSOR={className:"meta",begin:"#",end:"$",keywords:{"meta-keyword":"comments include include-once NoTrayIcon OnAutoItStartRegister pragma compile RequireAdmin"},contains:[{begin:/\\\n/,relevance:0},{beginKeywords:"include",keywords:{"meta-keyword":"include"},end:"$",contains:[STRING,{className:"meta-string",variants:[{begin:"<",end:">"},{begin:/"/,end:/"/,contains:[{begin:/""/,relevance:0}]},{begin:/'/,end:/'/,contains:[{begin:/''/,relevance:0}]}]}]},STRING,COMMENT]},CONSTANT={className:"symbol",begin:"@[A-z0-9_]+"},FUNCTION={className:"function",beginKeywords:"Func",end:"$",illegal:"\\$|\\[|%",contains:[hljs.UNDERSCORE_TITLE_MODE,{className:"params",begin:"\\(",end:"\\)",contains:[VARIABLE,STRING,NUMBER]}]};return{case_insensitive:true,illegal:/\/\*/,keywords:{keyword:KEYWORDS,built_in:BUILT_IN,literal:LITERAL},contains:[COMMENT,VARIABLE,STRING,NUMBER,PREPROCESSOR,CONSTANT,FUNCTION]}});hljs.registerLanguage("less",function(hljs){var IDENT_RE="[\\w-]+";var INTERP_IDENT_RE="("+IDENT_RE+"|@{"+IDENT_RE+"})";var RULES=[],VALUE=[];var STRING_MODE=function(c){return{className:"string",begin:"~?"+c+".*?"+c}};var IDENT_MODE=function(name,begin,relevance){return{className:name,begin:begin,relevance:relevance}};var PARENS_MODE={begin:"\\(",end:"\\)",contains:VALUE,relevance:0};VALUE.push(hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,STRING_MODE("'"),STRING_MODE('"'),hljs.CSS_NUMBER_MODE,{begin:"(url|data-uri)\\(",starts:{className:"string",end:"[\\)\\n]",excludeEnd:true}},IDENT_MODE("number","#[0-9A-Fa-f]+\\b"),PARENS_MODE,IDENT_MODE("variable","@@?"+IDENT_RE,10),IDENT_MODE("variable","@{"+IDENT_RE+"}"),IDENT_MODE("built_in","~?`[^`]*?`"),{className:"attribute",begin:IDENT_RE+"\\s*:",end:":",returnBegin:true,excludeEnd:true},{className:"meta",begin:"!important"});var VALUE_WITH_RULESETS=VALUE.concat({begin:"{",end:"}",contains:RULES});var MIXIN_GUARD_MODE={beginKeywords:"when",endsWithParent:true,contains:[{beginKeywords:"and not"}].concat(VALUE)};var RULE_MODE={begin:INTERP_IDENT_RE+"\\s*:",returnBegin:true,end:"[;}]",relevance:0,contains:[{className:"attribute",begin:INTERP_IDENT_RE,end:":",excludeEnd:true,starts:{endsWithParent:true,illegal:"[<=$]",relevance:0,contains:VALUE}}]};var AT_RULE_MODE={className:"keyword",begin:"@(import|media|charset|font-face|(-[a-z]+-)?keyframes|supports|document|namespace|page|viewport|host)\\b",starts:{end:"[;{}]",returnEnd:true,contains:VALUE,relevance:0}};var VAR_RULE_MODE={className:"variable",variants:[{begin:"@"+IDENT_RE+"\\s*:",relevance:15},{begin:"@"+IDENT_RE}],starts:{end:"[;}]",returnEnd:true,contains:VALUE_WITH_RULESETS}};var SELECTOR_MODE={variants:[{begin:"[\\.#:&\\[>]",end:"[;{}]"},{begin:INTERP_IDENT_RE,end:"{"}],returnBegin:true,returnEnd:true,illegal:"[<='$\"]",relevance:0,contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,MIXIN_GUARD_MODE,IDENT_MODE("keyword","all\\b"),IDENT_MODE("variable","@{"+IDENT_RE+"}"),IDENT_MODE("selector-tag",INTERP_IDENT_RE+"%?",0),IDENT_MODE("selector-id","#"+INTERP_IDENT_RE),IDENT_MODE("selector-class","\\."+INTERP_IDENT_RE,0),IDENT_MODE("selector-tag","&",0),{className:"selector-attr",begin:"\\[",end:"\\]"},{className:"selector-pseudo",begin:/:(:)?[a-zA-Z0-9\_\-\+\(\)"'.]+/},{begin:"\\(",end:"\\)",contains:VALUE_WITH_RULESETS},{begin:"!important"}]};RULES.push(hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,AT_RULE_MODE,VAR_RULE_MODE,RULE_MODE,SELECTOR_MODE);return{case_insensitive:true,illegal:"[=>'/<($\"]",contains:RULES}});hljs.registerLanguage("tp",function(hljs){var TPID={className:"number",begin:"[1-9][0-9]*",relevance:0};var TPLABEL={className:"symbol",begin:":[^\\]]+"};var TPDATA={className:"built_in",begin:"(AR|P|PAYLOAD|PR|R|SR|RSR|LBL|VR|UALM|MESSAGE|UTOOL|UFRAME|TIMER|"+"TIMER_OVERFLOW|JOINT_MAX_SPEED|RESUME_PROG|DIAG_REC)\\[",end:"\\]",contains:["self",TPID,TPLABEL]};var TPIO={className:"built_in",begin:"(AI|AO|DI|DO|F|RI|RO|UI|UO|GI|GO|SI|SO)\\[",end:"\\]",contains:["self",TPID,hljs.QUOTE_STRING_MODE,TPLABEL]};return{keywords:{keyword:"ABORT ACC ADJUST AND AP_LD BREAK CALL CNT COL CONDITION CONFIG DA DB "+"DIV DETECT ELSE END ENDFOR ERR_NUM ERROR_PROG FINE FOR GP GUARD INC "+"IF JMP LINEAR_MAX_SPEED LOCK MOD MONITOR OFFSET Offset OR OVERRIDE "+"PAUSE PREG PTH RT_LD RUN SELECT SKIP Skip TA TB TO TOOL_OFFSET "+"Tool_Offset UF UT UFRAME_NUM UTOOL_NUM UNLOCK WAIT X Y Z W P R STRLEN "+"SUBSTR FINDSTR VOFFSET PROG ATTR MN POS",literal:"ON OFF max_speed LPOS JPOS ENABLE DISABLE START STOP RESET"},contains:[TPDATA,TPIO,{className:"keyword",begin:"/(PROG|ATTR|MN|POS|END)\\b"},{className:"keyword",begin:"(CALL|RUN|POINT_LOGIC|LBL)\\b"},{className:"keyword",begin:"\\b(ACC|CNT|Skip|Offset|PSPD|RT_LD|AP_LD|Tool_Offset)"},{className:"number",begin:"\\d+(sec|msec|mm/sec|cm/min|inch/min|deg/sec|mm|in|cm)?\\b",relevance:0},hljs.COMMENT("//","[;$]"),hljs.COMMENT("!","[;$]"),hljs.COMMENT("--eg:","$"),hljs.QUOTE_STRING_MODE,{className:"string",begin:"'",end:"'"},hljs.C_NUMBER_MODE,{className:"variable",begin:"\\$[A-Za-z0-9_]+"}]}});hljs.registerLanguage("cos",function cos(hljs){var STRINGS={className:"string",variants:[{begin:'"',end:'"',contains:[{begin:'""',relevance:0}]}]};var NUMBERS={className:"number",begin:"\\b(\\d+(\\.\\d*)?|\\.\\d+)",relevance:0};var COS_KEYWORDS="property parameter class classmethod clientmethod extends as break "+"catch close continue do d|0 else elseif for goto halt hang h|0 if job "+"j|0 kill k|0 lock l|0 merge new open quit q|0 read r|0 return set s|0 "+"tcommit throw trollback try tstart use view while write w|0 xecute x|0 "+"zkill znspace zn ztrap zwrite zw zzdump zzwrite print zbreak zinsert "+"zload zprint zremove zsave zzprint mv mvcall mvcrt mvdim mvprint zquit "+"zsync ascii";return{case_insensitive:true,aliases:["cos","cls"],keywords:COS_KEYWORDS,contains:[NUMBERS,STRINGS,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,{className:"comment",begin:/;/,end:"$",relevance:0},{className:"built_in",begin:/(?:\$\$?|\.\.)\^?[a-zA-Z]+/},{className:"built_in",begin:/\$\$\$[a-zA-Z]+/},{className:"built_in",begin:/%[a-z]+(?:\.[a-z]+)*/},{className:"symbol",begin:/\^%?[a-zA-Z][\w]*/},{className:"keyword",begin:/##class|##super|#define|#dim/},{begin:/&sql\(/,end:/\)/,excludeBegin:true,excludeEnd:true,subLanguage:"sql"},{begin:/&(js|jscript|javascript)</,end:/>/,excludeBegin:true,excludeEnd:true,subLanguage:"javascript"},{begin:/&html<\s*</,end:/>\s*>/,subLanguage:"xml"}]}});hljs.registerLanguage("erlang-repl",function(hljs){return{keywords:{built_in:"spawn spawn_link self",keyword:"after and andalso|10 band begin bnot bor bsl bsr bxor case catch cond div end fun if "+"let not of or orelse|10 query receive rem try when xor"},contains:[{className:"meta",begin:"^[0-9]+> ",relevance:10},hljs.COMMENT("%","$"),{className:"number",begin:"\\b(\\d+#[a-fA-F0-9]+|\\d+(\\.\\d+)?([eE][-+]?\\d+)?)",relevance:0},hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,{begin:"\\?(::)?([A-Z]\\w*(::)?)+"},{begin:"->"},{begin:"ok"},{begin:"!"},{begin:"(\\b[a-z'][a-zA-Z0-9_']*:[a-z'][a-zA-Z0-9_']*)|(\\b[a-z'][a-zA-Z0-9_']*)",relevance:0},{begin:"[A-Z][a-zA-Z0-9_']*",relevance:0}]}});hljs.registerLanguage("vbscript",function(hljs){return{aliases:["vbs"],case_insensitive:true,keywords:{keyword:"call class const dim do loop erase execute executeglobal exit for each next function "+"if then else on error option explicit new private property let get public randomize "+"redim rem select case set stop sub while wend with end to elseif is or xor and not "+"class_initialize class_terminate default preserve in me byval byref step resume goto",built_in:"lcase month vartype instrrev ubound setlocale getobject rgb getref string "+"weekdayname rnd dateadd monthname now day minute isarray cbool round formatcurrency "+"conversions csng timevalue second year space abs clng timeserial fixs len asc "+"isempty maths dateserial atn timer isobject filter weekday datevalue ccur isdate "+"instr datediff formatdatetime replace isnull right sgn array snumeric log cdbl hex "+"chr lbound msgbox ucase getlocale cos cdate cbyte rtrim join hour oct typename trim "+"strcomp int createobject loadpicture tan formatnumber mid scriptenginebuildversion "+"scriptengine split scriptengineminorversion cint sin datepart ltrim sqr "+"scriptenginemajorversion time derived eval date formatpercent exp inputbox left ascw "+"chrw regexp server response request cstr err",literal:"true false null nothing empty"},illegal:"//",contains:[hljs.inherit(hljs.QUOTE_STRING_MODE,{contains:[{begin:'""'}]}),hljs.COMMENT(/'/,/$/,{relevance:0}),hljs.C_NUMBER_MODE]}});hljs.registerLanguage("vbscript-html",function(hljs){return{subLanguage:"xml",contains:[{begin:"<%",end:"%>",subLanguage:"vbscript"}]}});hljs.registerLanguage("twig",function(hljs){var PARAMS={className:"params",begin:"\\(",end:"\\)"};var FUNCTION_NAMES="attribute block constant cycle date dump include "+"max min parent random range source template_from_string";var FUNCTIONS={beginKeywords:FUNCTION_NAMES,keywords:{name:FUNCTION_NAMES},relevance:0,contains:[PARAMS]};var FILTER={begin:/\|[A-Za-z_]+:?/,keywords:"abs batch capitalize column convert_encoding date date_modify default "+"escape filter first format inky_to_html inline_css join json_encode keys last "+"length lower map markdown merge nl2br number_format raw reduce replace "+"reverse round slice sort spaceless split striptags title trim upper url_encode",contains:[FUNCTIONS]};var TAGS="apply autoescape block deprecated do embed extends filter flush for from "+"if import include macro sandbox set use verbatim with";TAGS=TAGS+" "+TAGS.split(" ").map(function(t){return"end"+t}).join(" ");return{aliases:["craftcms"],case_insensitive:true,subLanguage:"xml",contains:[hljs.COMMENT(/\{#/,/#}/),{className:"template-tag",begin:/\{%/,end:/%}/,contains:[{className:"name",begin:/\w+/,keywords:TAGS,starts:{endsWithParent:true,contains:[FILTER,FUNCTIONS],relevance:0}}]},{className:"template-variable",begin:/\{\{/,end:/}}/,contains:["self",FILTER,FUNCTIONS]}]}});hljs.registerLanguage("cmake",function(hljs){return{aliases:["cmake.in"],case_insensitive:true,keywords:{keyword:"break cmake_host_system_information cmake_minimum_required cmake_parse_arguments "+"cmake_policy configure_file continue elseif else endforeach endfunction endif endmacro "+"endwhile execute_process file find_file find_library find_package find_path "+"find_program foreach function get_cmake_property get_directory_property "+"get_filename_component get_property if include include_guard list macro "+"mark_as_advanced math message option return separate_arguments "+"set_directory_properties set_property set site_name string unset variable_watch while "+"add_compile_definitions add_compile_options add_custom_command add_custom_target "+"add_definitions add_dependencies add_executable add_library add_link_options "+"add_subdirectory add_test aux_source_directory build_command create_test_sourcelist "+"define_property enable_language enable_testing export fltk_wrap_ui "+"get_source_file_property get_target_property get_test_property include_directories "+"include_external_msproject include_regular_expression install link_directories "+"link_libraries load_cache project qt_wrap_cpp qt_wrap_ui remove_definitions "+"set_source_files_properties set_target_properties set_tests_properties source_group "+"target_compile_definitions target_compile_features target_compile_options "+"target_include_directories target_link_directories target_link_libraries "+"target_link_options target_sources try_compile try_run "+"ctest_build ctest_configure ctest_coverage ctest_empty_binary_directory ctest_memcheck "+"ctest_read_custom_files ctest_run_script ctest_sleep ctest_start ctest_submit "+"ctest_test ctest_update ctest_upload "+"build_name exec_program export_library_dependencies install_files install_programs "+"install_targets load_command make_directory output_required_files remove "+"subdir_depends subdirs use_mangled_mesa utility_source variable_requires write_file "+"qt5_use_modules qt5_use_package qt5_wrap_cpp "+"on off true false and or not command policy target test exists is_newer_than "+"is_directory is_symlink is_absolute matches less greater equal less_equal "+"greater_equal strless strgreater strequal strless_equal strgreater_equal version_less "+"version_greater version_equal version_less_equal version_greater_equal in_list defined"},contains:[{className:"variable",begin:"\\${",end:"}"},hljs.HASH_COMMENT_MODE,hljs.QUOTE_STRING_MODE,hljs.NUMBER_MODE]}});hljs.registerLanguage("handlebars",function(hljs){var BUILT_INS={"builtin-name":"each in with if else unless bindattr action collection debugger log outlet template unbound view yield lookup"};var IDENTIFIER_PLAIN_OR_QUOTED={begin:/".*?"|'.*?'|\[.*?\]|\w+/};var EXPRESSION_OR_HELPER_CALL=hljs.inherit(IDENTIFIER_PLAIN_OR_QUOTED,{keywords:BUILT_INS,starts:{endsWithParent:true,relevance:0,contains:[hljs.inherit(IDENTIFIER_PLAIN_OR_QUOTED,{relevance:0})]}});var BLOCK_MUSTACHE_CONTENTS=hljs.inherit(EXPRESSION_OR_HELPER_CALL,{className:"name"});var BASIC_MUSTACHE_CONTENTS=hljs.inherit(EXPRESSION_OR_HELPER_CALL,{relevance:0});var ESCAPE_MUSTACHE_WITH_PRECEEDING_BACKSLASH={begin:/\\\{\{/,skip:true};var PREVENT_ESCAPE_WITH_ANOTHER_PRECEEDING_BACKSLASH={begin:/\\\\(?=\{\{)/,skip:true};return{aliases:["hbs","html.hbs","html.handlebars"],case_insensitive:true,subLanguage:"xml",contains:[ESCAPE_MUSTACHE_WITH_PRECEEDING_BACKSLASH,PREVENT_ESCAPE_WITH_ANOTHER_PRECEEDING_BACKSLASH,hljs.COMMENT(/\{\{!--/,/--\}\}/),hljs.COMMENT(/\{\{!/,/\}\}/),{className:"template-tag",begin:/\{\{\{\{(?!\/)/,end:/\}\}\}\}/,contains:[BLOCK_MUSTACHE_CONTENTS],starts:{end:/\{\{\{\{\//,returnEnd:true,subLanguage:"xml"}},{className:"template-tag",begin:/\{\{\{\{\//,end:/\}\}\}\}/,contains:[BLOCK_MUSTACHE_CONTENTS]},{className:"template-tag",begin:/\{\{[#\/]/,end:/\}\}/,contains:[BLOCK_MUSTACHE_CONTENTS]},{className:"template-variable",begin:/\{\{\{/,end:/\}\}\}/,keywords:BUILT_INS,contains:[BASIC_MUSTACHE_CONTENTS]},{className:"template-variable",begin:/\{\{/,end:/\}\}/,keywords:BUILT_INS,contains:[BASIC_MUSTACHE_CONTENTS]}]}});hljs.registerLanguage("delphi",function(hljs){var KEYWORDS="exports register file shl array record property for mod while set ally label uses raise not "+"stored class safecall var interface or private static exit index inherited to else stdcall "+"override shr asm far resourcestring finalization packed virtual out and protected library do "+"xorwrite goto near function end div overload object unit begin string on inline repeat until "+"destructor write message program with read initialization except default nil if case cdecl in "+"downto threadvar of try pascal const external constructor type public then implementation "+"finally published procedure absolute reintroduce operator as is abstract alias assembler "+"bitpacked break continue cppdecl cvar enumerator experimental platform deprecated "+"unimplemented dynamic export far16 forward generic helper implements interrupt iochecks "+"local name nodefault noreturn nostackframe oldfpccall otherwise saveregisters softfloat "+"specialize strict unaligned varargs ";var COMMENT_MODES=[hljs.C_LINE_COMMENT_MODE,hljs.COMMENT(/\{/,/\}/,{relevance:0}),hljs.COMMENT(/\(\*/,/\*\)/,{relevance:10})];var DIRECTIVE={className:"meta",variants:[{begin:/\{\$/,end:/\}/},{begin:/\(\*\$/,end:/\*\)/}]};var STRING={className:"string",begin:/'/,end:/'/,contains:[{begin:/''/}]};var CHAR_STRING={className:"string",begin:/(#\d+)+/};var CLASS={begin:hljs.IDENT_RE+"\\s*=\\s*class\\s*\\(",returnBegin:true,contains:[hljs.TITLE_MODE]};var FUNCTION={className:"function",beginKeywords:"function constructor destructor procedure",end:/[:;]/,keywords:"function constructor|10 destructor|10 procedure|10",contains:[hljs.TITLE_MODE,{className:"params",begin:/\(/,end:/\)/,keywords:KEYWORDS,contains:[STRING,CHAR_STRING,DIRECTIVE].concat(COMMENT_MODES)},DIRECTIVE].concat(COMMENT_MODES)};return{aliases:["dpr","dfm","pas","pascal","freepascal","lazarus","lpr","lfm"],case_insensitive:true,keywords:KEYWORDS,illegal:/"|\$[G-Zg-z]|\/\*|<\/|\|/,contains:[STRING,CHAR_STRING,hljs.NUMBER_MODE,CLASS,FUNCTION,DIRECTIVE].concat(COMMENT_MODES)}});hljs.registerLanguage("javascript",function(hljs){var FRAGMENT={begin:"<>",end:"</>"};var XML_TAG={begin:/<[A-Za-z0-9\\._:-]+/,end:/\/[A-Za-z0-9\\._:-]+>|\/>/};var IDENT_RE="[A-Za-z$_][0-9A-Za-z$_]*";var KEYWORDS={keyword:"in of if for while finally var new function do return void else break catch "+"instanceof with throw case default try this switch continue typeof delete "+"let yield const export super debugger as async await static "+"import from as",literal:"true false null undefined NaN Infinity",built_in:"eval isFinite isNaN parseFloat parseInt decodeURI decodeURIComponent "+"encodeURI encodeURIComponent escape unescape Object Function Boolean Error "+"EvalError InternalError RangeError ReferenceError StopIteration SyntaxError "+"TypeError URIError Number Math Date String RegExp Array Float32Array "+"Float64Array Int16Array Int32Array Int8Array Uint16Array Uint32Array "+"Uint8Array Uint8ClampedArray ArrayBuffer DataView JSON Intl arguments require "+"module console window document Symbol Set Map WeakSet WeakMap Proxy Reflect "+"Promise"};var NUMBER={className:"number",variants:[{begin:"\\b(0[bB][01]+)n?"},{begin:"\\b(0[oO][0-7]+)n?"},{begin:hljs.C_NUMBER_RE+"n?"}],relevance:0};var SUBST={className:"subst",begin:"\\$\\{",end:"\\}",keywords:KEYWORDS,contains:[]};var HTML_TEMPLATE={begin:"html`",end:"",starts:{end:"`",returnEnd:false,contains:[hljs.BACKSLASH_ESCAPE,SUBST],subLanguage:"xml"}};var CSS_TEMPLATE={begin:"css`",end:"",starts:{end:"`",returnEnd:false,contains:[hljs.BACKSLASH_ESCAPE,SUBST],subLanguage:"css"}};var TEMPLATE_STRING={className:"string",begin:"`",end:"`",contains:[hljs.BACKSLASH_ESCAPE,SUBST]};SUBST.contains=[hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,HTML_TEMPLATE,CSS_TEMPLATE,TEMPLATE_STRING,NUMBER,hljs.REGEXP_MODE];var PARAMS_CONTAINS=SUBST.contains.concat([hljs.C_BLOCK_COMMENT_MODE,hljs.C_LINE_COMMENT_MODE]);return{aliases:["js","jsx","mjs","cjs"],keywords:KEYWORDS,contains:[{className:"meta",relevance:10,begin:/^\s*['"]use (strict|asm)['"]/},{className:"meta",begin:/^#!/,end:/$/},hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,HTML_TEMPLATE,CSS_TEMPLATE,TEMPLATE_STRING,hljs.C_LINE_COMMENT_MODE,hljs.COMMENT("/\\*\\*","\\*/",{relevance:0,contains:[{className:"doctag",begin:"@[A-Za-z]+",contains:[{className:"type",begin:"\\{",end:"\\}",relevance:0},{className:"variable",begin:IDENT_RE+"(?=\\s*(-)|$)",endsParent:true,relevance:0},{begin:/(?=[^\n])\s/,relevance:0}]}]}),hljs.C_BLOCK_COMMENT_MODE,NUMBER,{begin:/[{,\n]\s*/,relevance:0,contains:[{begin:IDENT_RE+"\\s*:",returnBegin:true,relevance:0,contains:[{className:"attr",begin:IDENT_RE,relevance:0}]}]},{begin:"("+hljs.RE_STARTERS_RE+"|\\b(case|return|throw)\\b)\\s*",keywords:"return throw case",contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.REGEXP_MODE,{className:"function",begin:"(\\(.*?\\)|"+IDENT_RE+")\\s*=>",returnBegin:true,end:"\\s*=>",contains:[{className:"params",variants:[{begin:IDENT_RE},{begin:/\(\s*\)/},{begin:/\(/,end:/\)/,excludeBegin:true,excludeEnd:true,keywords:KEYWORDS,contains:PARAMS_CONTAINS}]}]},{className:"",begin:/\s/,end:/\s*/,skip:true},{variants:[{begin:FRAGMENT.begin,end:FRAGMENT.end},{begin:XML_TAG.begin,end:XML_TAG.end}],subLanguage:"xml",contains:[{begin:XML_TAG.begin,end:XML_TAG.end,skip:true,contains:["self"]}]}],relevance:0},{className:"function",beginKeywords:"function",end:/\{/,excludeEnd:true,contains:[hljs.inherit(hljs.TITLE_MODE,{begin:IDENT_RE}),{className:"params",begin:/\(/,end:/\)/,excludeBegin:true,excludeEnd:true,contains:PARAMS_CONTAINS}],illegal:/\[|%/},{begin:/\$[(.]/},hljs.METHOD_GUARD,{className:"class",beginKeywords:"class",end:/[{;=]/,excludeEnd:true,illegal:/[:"\[\]]/,contains:[{beginKeywords:"extends"},hljs.UNDERSCORE_TITLE_MODE]},{beginKeywords:"constructor get set",end:/\{/,excludeEnd:true}],illegal:/#(?!!)/}});hljs.registerLanguage("rust",function(hljs){var NUM_SUFFIX="([ui](8|16|32|64|128|size)|f(32|64))?";var KEYWORDS="abstract as async await become box break const continue crate do dyn "+"else enum extern false final fn for if impl in let loop macro match mod "+"move mut override priv pub ref return self Self static struct super "+"trait true try type typeof unsafe unsized use virtual where while yield";var BUILTINS="drop "+"i8 i16 i32 i64 i128 isize "+"u8 u16 u32 u64 u128 usize "+"f32 f64 "+"str char bool "+"Box Option Result String Vec "+"Copy Send Sized Sync Drop Fn FnMut FnOnce ToOwned Clone Debug "+"PartialEq PartialOrd Eq Ord AsRef AsMut Into From Default Iterator "+"Extend IntoIterator DoubleEndedIterator ExactSizeIterator "+"SliceConcatExt ToString "+"assert! assert_eq! bitflags! bytes! cfg! col! concat! concat_idents! "+"debug_assert! debug_assert_eq! env! panic! file! format! format_args! "+"include_bin! include_str! line! local_data_key! module_path! "+"option_env! print! println! select! stringify! try! unimplemented! "+"unreachable! vec! write! writeln! macro_rules! assert_ne! debug_assert_ne!";return{aliases:["rs"],keywords:{keyword:KEYWORDS,literal:"true false Some None Ok Err",built_in:BUILTINS},lexemes:hljs.IDENT_RE+"!?",illegal:"</",contains:[hljs.C_LINE_COMMENT_MODE,hljs.COMMENT("/\\*","\\*/",{contains:["self"]}),hljs.inherit(hljs.QUOTE_STRING_MODE,{begin:/b?"/,illegal:null}),{className:"string",variants:[{begin:/r(#*)"(.|\n)*?"\1(?!#)/},{begin:/b?'\\?(x\w{2}|u\w{4}|U\w{8}|.)'/}]},{className:"symbol",begin:/'[a-zA-Z_][a-zA-Z0-9_]*/},{className:"number",variants:[{begin:"\\b0b([01_]+)"+NUM_SUFFIX},{begin:"\\b0o([0-7_]+)"+NUM_SUFFIX},{begin:"\\b0x([A-Fa-f0-9_]+)"+NUM_SUFFIX},{begin:"\\b(\\d[\\d_]*(\\.[0-9_]+)?([eE][+-]?[0-9_]+)?)"+NUM_SUFFIX}],relevance:0},{className:"function",beginKeywords:"fn",end:"(\\(|<)",excludeEnd:true,contains:[hljs.UNDERSCORE_TITLE_MODE]},{className:"meta",begin:"#\\!?\\[",end:"\\]",contains:[{className:"meta-string",begin:/"/,end:/"/}]},{className:"class",beginKeywords:"type",end:";",contains:[hljs.inherit(hljs.UNDERSCORE_TITLE_MODE,{endsParent:true})],illegal:"\\S"},{className:"class",beginKeywords:"trait enum struct union",end:"{",contains:[hljs.inherit(hljs.UNDERSCORE_TITLE_MODE,{endsParent:true})],illegal:"[\\w\\d]"},{begin:hljs.IDENT_RE+"::",keywords:{built_in:BUILTINS}},{begin:"->"}]}});hljs.registerLanguage("diff",function(hljs){return{aliases:["patch"],contains:[{className:"meta",relevance:10,variants:[{begin:/^@@ +\-\d+,\d+ +\+\d+,\d+ +@@$/},{begin:/^\*\*\* +\d+,\d+ +\*\*\*\*$/},{begin:/^\-\-\- +\d+,\d+ +\-\-\-\-$/}]},{className:"comment",variants:[{begin:/Index: /,end:/$/},{begin:/={3,}/,end:/$/},{begin:/^\-{3}/,end:/$/},{begin:/^\*{3} /,end:/$/},{begin:/^\+{3}/,end:/$/},{begin:/^\*{15}$/}]},{className:"addition",begin:"^\\+",end:"$"},{className:"deletion",begin:"^\\-",end:"$"},{className:"addition",begin:"^\\!",end:"$"}]}});hljs.registerLanguage("thrift",function(hljs){var BUILT_IN_TYPES="bool byte i16 i32 i64 double string binary";return{keywords:{keyword:"namespace const typedef struct enum service exception void oneway set list map required optional",built_in:BUILT_IN_TYPES,literal:"true false"},contains:[hljs.QUOTE_STRING_MODE,hljs.NUMBER_MODE,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,{className:"class",beginKeywords:"struct enum service exception",end:/\{/,illegal:/\n/,contains:[hljs.inherit(hljs.TITLE_MODE,{starts:{endsWithParent:true,excludeEnd:true}})]},{begin:"\\b(set|list|map)\\s*<",end:">",keywords:BUILT_IN_TYPES,contains:["self"]}]}});hljs.registerLanguage("accesslog",function(hljs){var HTTP_VERBS=["GET","POST","HEAD","PUT","DELETE","CONNECT","OPTIONS","PATCH","TRACE"];return{contains:[{className:"number",begin:"^\\d{1,3}\\.\\d{1,3}\\.\\d{1,3}\\.\\d{1,3}(:\\d{1,5})?\\b",relevance:5},{className:"number",begin:"\\b\\d+\\b",relevance:0},{className:"string",begin:'"('+HTTP_VERBS.join("|")+")",end:'"',keywords:HTTP_VERBS.join(" "),illegal:"\\n",relevance:5,contains:[{begin:"HTTP/[12]\\.\\d",relevance:5}]},{className:"string",begin:/\[\d[^\]\n]{8,}\]/,illegal:"\\n",relevance:1},{className:"string",begin:/\[/,end:/\]/,illegal:"\\n",relevance:0},{className:"string",begin:'"Mozilla/\\d\\.\\d \\(',end:'"',illegal:"\\n",relevance:3},{className:"string",begin:'"',end:'"',illegal:"\\n",relevance:0}]}});hljs.registerLanguage("tex",function(hljs){var COMMAND={className:"tag",begin:/\\/,relevance:0,contains:[{className:"name",variants:[{begin:/[a-zA-Z\u0430-\u044f\u0410-\u042f]+[*]?/},{begin:/[^a-zA-Z\u0430-\u044f\u0410-\u042f0-9]/}],starts:{endsWithParent:true,relevance:0,contains:[{className:"string",variants:[{begin:/\[/,end:/\]/},{begin:/\{/,end:/\}/}]},{begin:/\s*=\s*/,endsWithParent:true,relevance:0,contains:[{className:"number",begin:/-?\d*\.?\d+(pt|pc|mm|cm|in|dd|cc|ex|em)?/}]}]}}]};return{contains:[COMMAND,{className:"formula",contains:[COMMAND],relevance:0,variants:[{begin:/\$\$/,end:/\$\$/},{begin:/\$/,end:/\$/}]},hljs.COMMENT("%","$",{relevance:0})]}});hljs.registerLanguage("livescript",function(hljs){var KEYWORDS={keyword:"in if for while finally new do return else break catch instanceof throw try this "+"switch continue typeof delete debugger case default function var with "+"then unless until loop of by when and or is isnt not it that otherwise from to til fallthrough super "+"case default function var void const let enum export import native list map "+"__hasProp __extends __slice __bind __indexOf",literal:"true false null undefined "+"yes no on off it that void",built_in:"npm require console print module global window document"};var JS_IDENT_RE="[A-Za-z$_](?:-[0-9A-Za-z$_]|[0-9A-Za-z$_])*";var TITLE=hljs.inherit(hljs.TITLE_MODE,{begin:JS_IDENT_RE});var SUBST={className:"subst",begin:/#\{/,end:/}/,keywords:KEYWORDS};var SUBST_SIMPLE={className:"subst",begin:/#[A-Za-z$_]/,end:/(?:\-[0-9A-Za-z$_]|[0-9A-Za-z$_])*/,keywords:KEYWORDS};var EXPRESSIONS=[hljs.BINARY_NUMBER_MODE,{className:"number",begin:"(\\b0[xX][a-fA-F0-9_]+)|(\\b\\d(\\d|_\\d)*(\\.(\\d(\\d|_\\d)*)?)?(_*[eE]([-+]\\d(_\\d|\\d)*)?)?[_a-z]*)",relevance:0,starts:{end:"(\\s*/)?",relevance:0}},{className:"string",variants:[{begin:/'''/,end:/'''/,contains:[hljs.BACKSLASH_ESCAPE]},{begin:/'/,end:/'/,contains:[hljs.BACKSLASH_ESCAPE]},{begin:/"""/,end:/"""/,contains:[hljs.BACKSLASH_ESCAPE,SUBST,SUBST_SIMPLE]},{begin:/"/,end:/"/,contains:[hljs.BACKSLASH_ESCAPE,SUBST,SUBST_SIMPLE]},{begin:/\\/,end:/(\s|$)/,excludeEnd:true}]},{className:"regexp",variants:[{begin:"//",end:"//[gim]*",contains:[SUBST,hljs.HASH_COMMENT_MODE]},{begin:/\/(?![ *])(\\.|[^\\\n])*?\/[gim]*(?=\W)/}]},{begin:"@"+JS_IDENT_RE},{begin:"``",end:"``",excludeBegin:true,excludeEnd:true,subLanguage:"javascript"}];SUBST.contains=EXPRESSIONS;var PARAMS={className:"params",begin:"\\(",returnBegin:true,contains:[{begin:/\(/,end:/\)/,keywords:KEYWORDS,contains:["self"].concat(EXPRESSIONS)}]};var SYMBOLS={begin:"(#=>|=>|\\|>>|-?->|\\!->)"};return{aliases:["ls"],keywords:KEYWORDS,illegal:/\/\*/,contains:EXPRESSIONS.concat([hljs.COMMENT("\\/\\*","\\*\\/"),hljs.HASH_COMMENT_MODE,SYMBOLS,{className:"function",contains:[TITLE,PARAMS],returnBegin:true,variants:[{begin:"("+JS_IDENT_RE+"\\s*(?:=|:=)\\s*)?(\\(.*\\))?\\s*\\B\\->\\*?",end:"\\->\\*?"},{begin:"("+JS_IDENT_RE+"\\s*(?:=|:=)\\s*)?!?(\\(.*\\))?\\s*\\B[-~]{1,2}>\\*?",end:"[-~]{1,2}>\\*?"},{begin:"("+JS_IDENT_RE+"\\s*(?:=|:=)\\s*)?(\\(.*\\))?\\s*\\B!?[-~]{1,2}>\\*?",end:"!?[-~]{1,2}>\\*?"}]},{className:"class",beginKeywords:"class",end:"$",illegal:/[:="\[\]]/,contains:[{beginKeywords:"extends",endsWithParent:true,illegal:/[:="\[\]]/,contains:[TITLE]},TITLE]},{begin:JS_IDENT_RE+":",end:":",returnBegin:true,returnEnd:true,relevance:0}])}});hljs.registerLanguage("apache",function(hljs){var NUMBER={className:"number",begin:"[\\$%]\\d+"};return{aliases:["apacheconf"],case_insensitive:true,contains:[hljs.HASH_COMMENT_MODE,{className:"section",begin:"</?",end:">"},{className:"attribute",begin:/\w+/,relevance:0,keywords:{nomarkup:"order deny allow setenv rewriterule rewriteengine rewritecond documentroot "+"sethandler errordocument loadmodule options header listen serverroot "+"servername"},starts:{end:/$/,relevance:0,keywords:{literal:"on off all"},contains:[{className:"meta",begin:"\\s\\[",end:"\\]$"},{className:"variable",begin:"[\\$%]\\{",end:"\\}",contains:["self",NUMBER]},NUMBER,hljs.QUOTE_STRING_MODE]}}],illegal:/\S/}});hljs.registerLanguage("typescript",function(hljs){var JS_IDENT_RE="[A-Za-z$_][0-9A-Za-z$_]*";var KEYWORDS={keyword:"in if for while finally var new function do return void else break catch "+"instanceof with throw case default try this switch continue typeof delete "+"let yield const class public private protected get set super "+"static implements enum export import declare type namespace abstract "+"as from extends async await",literal:"true false null undefined NaN Infinity",built_in:"eval isFinite isNaN parseFloat parseInt decodeURI decodeURIComponent "+"encodeURI encodeURIComponent escape unescape Object Function Boolean Error "+"EvalError InternalError RangeError ReferenceError StopIteration SyntaxError "+"TypeError URIError Number Math Date String RegExp Array Float32Array "+"Float64Array Int16Array Int32Array Int8Array Uint16Array Uint32Array "+"Uint8Array Uint8ClampedArray ArrayBuffer DataView JSON Intl arguments require "+"module console window document any number boolean string void Promise"};var DECORATOR={className:"meta",begin:"@"+JS_IDENT_RE};var ARGS={begin:"\\(",end:/\)/,keywords:KEYWORDS,contains:["self",hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE,hljs.NUMBER_MODE]};var PARAMS={className:"params",begin:/\(/,end:/\)/,excludeBegin:true,excludeEnd:true,keywords:KEYWORDS,contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,DECORATOR,ARGS]};var NUMBER={className:"number",variants:[{begin:"\\b(0[bB][01]+)n?"},{begin:"\\b(0[oO][0-7]+)n?"},{begin:hljs.C_NUMBER_RE+"n?"}],relevance:0};var SUBST={className:"subst",begin:"\\$\\{",end:"\\}",keywords:KEYWORDS,contains:[]};var HTML_TEMPLATE={begin:"html`",end:"",starts:{end:"`",returnEnd:false,contains:[hljs.BACKSLASH_ESCAPE,SUBST],subLanguage:"xml"}};var CSS_TEMPLATE={begin:"css`",end:"",starts:{end:"`",returnEnd:false,contains:[hljs.BACKSLASH_ESCAPE,SUBST],subLanguage:"css"}};var TEMPLATE_STRING={className:"string",begin:"`",end:"`",contains:[hljs.BACKSLASH_ESCAPE,SUBST]};SUBST.contains=[hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,HTML_TEMPLATE,CSS_TEMPLATE,TEMPLATE_STRING,NUMBER,hljs.REGEXP_MODE];return{aliases:["ts"],keywords:KEYWORDS,contains:[{className:"meta",begin:/^\s*['"]use strict['"]/},hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,HTML_TEMPLATE,CSS_TEMPLATE,TEMPLATE_STRING,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,NUMBER,{begin:"("+hljs.RE_STARTERS_RE+"|\\b(case|return|throw)\\b)\\s*",keywords:"return throw case",contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.REGEXP_MODE,{className:"function",begin:"(\\(.*?\\)|"+hljs.IDENT_RE+")\\s*=>",returnBegin:true,end:"\\s*=>",contains:[{className:"params",variants:[{begin:hljs.IDENT_RE},{begin:/\(\s*\)/},{begin:/\(/,end:/\)/,excludeBegin:true,excludeEnd:true,keywords:KEYWORDS,contains:["self",hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE]}]}]}],relevance:0},{className:"function",beginKeywords:"function",end:/[\{;]/,excludeEnd:true,keywords:KEYWORDS,contains:["self",hljs.inherit(hljs.TITLE_MODE,{begin:JS_IDENT_RE}),PARAMS],illegal:/%/,relevance:0},{beginKeywords:"constructor",end:/[\{;]/,excludeEnd:true,contains:["self",PARAMS]},{begin:/module\./,keywords:{built_in:"module"},relevance:0},{beginKeywords:"module",end:/\{/,excludeEnd:true},{beginKeywords:"interface",end:/\{/,excludeEnd:true,keywords:"interface extends"},{begin:/\$[(.]/},{begin:"\\."+hljs.IDENT_RE,relevance:0},DECORATOR,ARGS]}});hljs.registerLanguage("roboconf",function(hljs){var IDENTIFIER="[a-zA-Z-_][^\\n{]+\\{";var PROPERTY={className:"attribute",begin:/[a-zA-Z-_]+/,end:/\s*:/,excludeEnd:true,starts:{end:";",relevance:0,contains:[{className:"variable",begin:/\.[a-zA-Z-_]+/},{className:"keyword",begin:/\(optional\)/}]}};return{aliases:["graph","instances"],case_insensitive:true,keywords:"import",contains:[{begin:"^facet "+IDENTIFIER,end:"}",keywords:"facet",contains:[PROPERTY,hljs.HASH_COMMENT_MODE]},{begin:"^\\s*instance of "+IDENTIFIER,end:"}",keywords:"name count channels instance-data instance-state instance of",illegal:/\S/,contains:["self",PROPERTY,hljs.HASH_COMMENT_MODE]},{begin:"^"+IDENTIFIER,end:"}",contains:[PROPERTY,hljs.HASH_COMMENT_MODE]},hljs.HASH_COMMENT_MODE]}});hljs.registerLanguage("htmlbars",function(hljs){var BUILT_INS="action collection component concat debugger each each-in else get hash if input link-to loc log mut outlet partial query-params render textarea unbound unless with yield view";var ATTR_ASSIGNMENT={illegal:/\}\}/,begin:/[a-zA-Z0-9_]+=/,returnBegin:true,relevance:0,contains:[{className:"attr",begin:/[a-zA-Z0-9_]+/}]};var SUB_EXPR={illegal:/\}\}/,begin:/\)/,end:/\)/,contains:[{begin:/[a-zA-Z\.\-]+/,keywords:{built_in:BUILT_INS},starts:{endsWithParent:true,relevance:0,contains:[hljs.QUOTE_STRING_MODE]}}]};var TAG_INNARDS={endsWithParent:true,relevance:0,keywords:{keyword:"as",built_in:BUILT_INS},contains:[hljs.QUOTE_STRING_MODE,ATTR_ASSIGNMENT,hljs.NUMBER_MODE]};return{case_insensitive:true,subLanguage:"xml",contains:[hljs.COMMENT("{{!(--)?","(--)?}}"),{className:"template-tag",begin:/\{\{[#\/]/,end:/\}\}/,contains:[{className:"name",begin:/[a-zA-Z\.\-]+/,keywords:{"builtin-name":BUILT_INS},starts:TAG_INNARDS}]},{className:"template-variable",begin:/\{\{[a-zA-Z][a-zA-Z\-]+/,end:/\}\}/,keywords:{keyword:"as",built_in:BUILT_INS},contains:[hljs.QUOTE_STRING_MODE]}]}});hljs.registerLanguage("routeros",function(hljs){var STATEMENTS="foreach do while for if from to step else on-error and or not in";var GLOBAL_COMMANDS="global local beep delay put len typeof pick log time set find environment terminal error execute parse resolve toarray tobool toid toip toip6 tonum tostr totime";var COMMON_COMMANDS="add remove enable disable set get print export edit find run debug error info warning";var LITERALS="true false yes no nothing nil null";var OBJECTS="traffic-flow traffic-generator firewall scheduler aaa accounting address-list address align area bandwidth-server bfd bgp bridge client clock community config connection console customer default dhcp-client dhcp-server discovery dns e-mail ethernet filter firewall firmware gps graphing group hardware health hotspot identity igmp-proxy incoming instance interface ip ipsec ipv6 irq l2tp-server lcd ldp logging mac-server mac-winbox mangle manual mirror mme mpls nat nd neighbor network note ntp ospf ospf-v3 ovpn-server page peer pim ping policy pool port ppp pppoe-client pptp-server prefix profile proposal proxy queue radius resource rip ripng route routing screen script security-profiles server service service-port settings shares smb sms sniffer snmp snooper socks sstp-server system tool tracking type upgrade upnp user-manager users user vlan secret vrrp watchdog web-access wireless pptp pppoe lan wan layer7-protocol lease simple raw";var VAR_PREFIX="global local set for foreach";var VAR={className:"variable",variants:[{begin:/\$[\w\d#@][\w\d_]*/},{begin:/\$\{(.*?)}/}]};var QUOTE_STRING={className:"string",begin:/"/,end:/"/,contains:[hljs.BACKSLASH_ESCAPE,VAR,{className:"variable",begin:/\$\(/,end:/\)/,contains:[hljs.BACKSLASH_ESCAPE]}]};var APOS_STRING={className:"string",begin:/'/,end:/'/};var IPADDR="((25[0-5]|(2[0-4]|1{0,1}[0-9]){0,1}[0-9]).){3}(25[0-5]|(2[0-4]|1{0,1}[0-9]){0,1}[0-9])\\b";var IPADDR_wBITMASK=IPADDR+"/(3[0-2]|[1-2][0-9]|\\d)";return{aliases:["routeros","mikrotik"],case_insensitive:true,lexemes:/:?[\w-]+/,keywords:{literal:LITERALS,keyword:STATEMENTS+" :"+STATEMENTS.split(" ").join(" :")+" :"+GLOBAL_COMMANDS.split(" ").join(" :")},contains:[{variants:[{begin:/^@/,end:/$/},{begin:/\/\*/,end:/\*\//},{begin:/%%/,end:/$/},{begin:/^'/,end:/$/},{begin:/^\s*\/[\w-]+=/,end:/$/},{begin:/\/\//,end:/$/},{begin:/^\[\</,end:/\>\]$/},{begin:/<\//,end:/>/},{begin:/^facet /,end:/\}/},{begin:"^1\\.\\.(\\d+)$",end:/$/}],illegal:/./},hljs.COMMENT("^#","$"),QUOTE_STRING,APOS_STRING,VAR,{begin:/[\w-]+\=([^\s\{\}\[\]\(\)]+)/,relevance:0,returnBegin:true,contains:[{className:"attribute",begin:/[^=]+/},{begin:/=/,endsWithParent:true,relevance:0,contains:[QUOTE_STRING,APOS_STRING,VAR,{className:"literal",begin:"\\b("+LITERALS.split(" ").join("|")+")\\b"},{begin:/("[^"]*"|[^\s\{\}\[\]]+)/}]}]},{className:"number",begin:/\*[0-9a-fA-F]+/},{begin:"\\b("+COMMON_COMMANDS.split(" ").join("|")+")([\\s[(]|])",returnBegin:true,contains:[{className:"builtin-name",begin:/\w+/}]},{className:"built_in",variants:[{begin:"(\\.\\./|/|\\s)(("+OBJECTS.split(" ").join("|")+");?\\s)+",relevance:10},{begin:/\.\./}]}]}});hljs.registerLanguage("mercury",function(hljs){var KEYWORDS={keyword:"module use_module import_module include_module end_module initialise "+"mutable initialize finalize finalise interface implementation pred "+"mode func type inst solver any_pred any_func is semidet det nondet "+"multi erroneous failure cc_nondet cc_multi typeclass instance where "+"pragma promise external trace atomic or_else require_complete_switch "+"require_det require_semidet require_multi require_nondet "+"require_cc_multi require_cc_nondet require_erroneous require_failure",meta:"inline no_inline type_spec source_file fact_table obsolete memo "+"loop_check minimal_model terminates does_not_terminate "+"check_termination promise_equivalent_clauses "+"foreign_proc foreign_decl foreign_code foreign_type "+"foreign_import_module foreign_export_enum foreign_export "+"foreign_enum may_call_mercury will_not_call_mercury thread_safe "+"not_thread_safe maybe_thread_safe promise_pure promise_semipure "+"tabled_for_io local untrailed trailed attach_to_io_state "+"can_pass_as_mercury_type stable will_not_throw_exception "+"may_modify_trail will_not_modify_trail may_duplicate "+"may_not_duplicate affects_liveness does_not_affect_liveness "+"doesnt_affect_liveness no_sharing unknown_sharing sharing",built_in:"some all not if then else true fail false try catch catch_any "+"semidet_true semidet_false semidet_fail impure_true impure semipure"};var COMMENT=hljs.COMMENT("%","$");var NUMCODE={className:"number",begin:"0'.\\|0[box][0-9a-fA-F]*"};var ATOM=hljs.inherit(hljs.APOS_STRING_MODE,{relevance:0});var STRING=hljs.inherit(hljs.QUOTE_STRING_MODE,{relevance:0});var STRING_FMT={className:"subst",begin:"\\\\[abfnrtv]\\|\\\\x[0-9a-fA-F]*\\\\\\|%[-+# *.0-9]*[dioxXucsfeEgGp]",relevance:0};STRING.contains=STRING.contains.slice();STRING.contains.push(STRING_FMT);var IMPLICATION={className:"built_in",variants:[{begin:"<=>"},{begin:"<=",relevance:0},{begin:"=>",relevance:0},{begin:"/\\\\"},{begin:"\\\\/"}]};var HEAD_BODY_CONJUNCTION={className:"built_in",variants:[{begin:":-\\|--\x3e"},{begin:"=",relevance:0}]};return{aliases:["m","moo"],keywords:KEYWORDS,contains:[IMPLICATION,HEAD_BODY_CONJUNCTION,COMMENT,hljs.C_BLOCK_COMMENT_MODE,NUMCODE,hljs.NUMBER_MODE,ATOM,STRING,{begin:/:-/},{begin:/\.$/}]}});hljs.registerLanguage("inform7",function(hljs){var START_BRACKET="\\[";var END_BRACKET="\\]";return{aliases:["i7"],case_insensitive:true,keywords:{keyword:"thing room person man woman animal container "+"supporter backdrop door "+"scenery open closed locked inside gender "+"is are say understand "+"kind of rule"},contains:[{className:"string",begin:'"',end:'"',relevance:0,contains:[{className:"subst",begin:START_BRACKET,end:END_BRACKET}]},{className:"section",begin:/^(Volume|Book|Part|Chapter|Section|Table)\b/,end:"$"},{begin:/^(Check|Carry out|Report|Instead of|To|Rule|When|Before|After)\b/,end:":",contains:[{begin:"\\(This",end:"\\)"}]},{className:"comment",begin:START_BRACKET,end:END_BRACKET,contains:["self"]}]}});hljs.registerLanguage("lua",function(hljs){var OPENING_LONG_BRACKET="\\[=*\\[";var CLOSING_LONG_BRACKET="\\]=*\\]";var LONG_BRACKETS={begin:OPENING_LONG_BRACKET,end:CLOSING_LONG_BRACKET,contains:["self"]};var COMMENTS=[hljs.COMMENT("--(?!"+OPENING_LONG_BRACKET+")","$"),hljs.COMMENT("--"+OPENING_LONG_BRACKET,CLOSING_LONG_BRACKET,{contains:[LONG_BRACKETS],relevance:10})];return{lexemes:hljs.UNDERSCORE_IDENT_RE,keywords:{literal:"true false nil",keyword:"and break do else elseif end for goto if in local not or repeat return then until while",built_in:"_G _ENV _VERSION __index __newindex __mode __call __metatable __tostring __len "+"__gc __add __sub __mul __div __mod __pow __concat __unm __eq __lt __le assert "+"collectgarbage dofile error getfenv getmetatable ipairs load loadfile loadstring"+"module next pairs pcall print rawequal rawget rawset require select setfenv"+"setmetatable tonumber tostring type unpack xpcall arg self"+"coroutine resume yield status wrap create running debug getupvalue "+"debug sethook getmetatable gethook setmetatable setlocal traceback setfenv getinfo setupvalue getlocal getregistry getfenv "+"io lines write close flush open output type read stderr stdin input stdout popen tmpfile "+"math log max acos huge ldexp pi cos tanh pow deg tan cosh sinh random randomseed frexp ceil floor rad abs sqrt modf asin min mod fmod log10 atan2 exp sin atan "+"os exit setlocale date getenv difftime remove time clock tmpname rename execute package preload loadlib loaded loaders cpath config path seeall "+"string sub upper len gfind rep find match char dump gmatch reverse byte format gsub lower "+"table setn insert getn foreachi maxn foreach concat sort remove"},contains:COMMENTS.concat([{className:"function",beginKeywords:"function",end:"\\)",contains:[hljs.inherit(hljs.TITLE_MODE,{begin:"([_a-zA-Z]\\w*\\.)*([_a-zA-Z]\\w*:)?[_a-zA-Z]\\w*"}),{className:"params",begin:"\\(",endsWithParent:true,contains:COMMENTS}].concat(COMMENTS)},hljs.C_NUMBER_MODE,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,{className:"string",begin:OPENING_LONG_BRACKET,end:CLOSING_LONG_BRACKET,contains:[LONG_BRACKETS],relevance:5}])}});hljs.registerLanguage("crmsh",function(hljs){var RESOURCES="primitive rsc_template";var COMMANDS="group clone ms master location colocation order fencing_topology "+"rsc_ticket acl_target acl_group user role "+"tag xml";var PROPERTY_SETS="property rsc_defaults op_defaults";var KEYWORDS="params meta operations op rule attributes utilization";var OPERATORS="read write deny defined not_defined in_range date spec in "+"ref reference attribute type xpath version and or lt gt tag "+"lte gte eq ne \\";var TYPES="number string";var LITERALS="Master Started Slave Stopped start promote demote stop monitor true false";return{aliases:["crm","pcmk"],case_insensitive:true,keywords:{keyword:KEYWORDS+" "+OPERATORS+" "+TYPES,literal:LITERALS},contains:[hljs.HASH_COMMENT_MODE,{beginKeywords:"node",starts:{end:"\\s*([\\w_-]+:)?",starts:{className:"title",end:"\\s*[\\$\\w_][\\w_-]*"}}},{beginKeywords:RESOURCES,starts:{className:"title",end:"\\s*[\\$\\w_][\\w_-]*",starts:{end:"\\s*@?[\\w_][\\w_\\.:-]*"}}},{begin:"\\b("+COMMANDS.split(" ").join("|")+")\\s+",keywords:COMMANDS,starts:{className:"title",end:"[\\$\\w_][\\w_-]*"}},{beginKeywords:PROPERTY_SETS,starts:{className:"title",end:"\\s*([\\w_-]+:)?"}},hljs.QUOTE_STRING_MODE,{className:"meta",begin:"(ocf|systemd|service|lsb):[\\w_:-]+",relevance:0},{className:"number",begin:"\\b\\d+(\\.\\d+)?(ms|s|h|m)?",relevance:0},{className:"literal",begin:"[-]?(infinity|inf)",relevance:0},{className:"attr",begin:/([A-Za-z\$_\#][\w_-]+)=/,relevance:0},{className:"tag",begin:"</?",end:"/?>",relevance:0}]}});hljs.registerLanguage("scheme",function(hljs){var SCHEME_IDENT_RE="[^\\(\\)\\[\\]\\{\\}\",'`;#|\\\\\\s]+";var SCHEME_SIMPLE_NUMBER_RE="(\\-|\\+)?\\d+([./]\\d+)?";var SCHEME_COMPLEX_NUMBER_RE=SCHEME_SIMPLE_NUMBER_RE+"[+\\-]"+SCHEME_SIMPLE_NUMBER_RE+"i";var BUILTINS={"builtin-name":"case-lambda call/cc class define-class exit-handler field import "+"inherit init-field interface let*-values let-values let/ec mixin "+"opt-lambda override protect provide public rename require "+"require-for-syntax syntax syntax-case syntax-error unit/sig unless "+"when with-syntax and begin call-with-current-continuation "+"call-with-input-file call-with-output-file case cond define "+"define-syntax delay do dynamic-wind else for-each if lambda let let* "+"let-syntax letrec letrec-syntax map or syntax-rules ' * + , ,@ - ... / "+"; < <= = => > >= ` abs acos angle append apply asin assoc assq assv atan "+"boolean? caar cadr call-with-input-file call-with-output-file "+"call-with-values car cdddar cddddr cdr ceiling char->integer "+"char-alphabetic? char-ci<=? char-ci<? char-ci=? char-ci>=? char-ci>? "+"char-downcase char-lower-case? char-numeric? char-ready? char-upcase "+"char-upper-case? char-whitespace? char<=? char<? char=? char>=? char>? "+"char? close-input-port close-output-port complex? cons cos "+"current-input-port current-output-port denominator display eof-object? "+"eq? equal? eqv? eval even? exact->inexact exact? exp expt floor "+"force gcd imag-part inexact->exact inexact? input-port? integer->char "+"integer? interaction-environment lcm length list list->string "+"list->vector list-ref list-tail list? load log magnitude make-polar "+"make-rectangular make-string make-vector max member memq memv min "+"modulo negative? newline not null-environment null? number->string "+"number? numerator odd? open-input-file open-output-file output-port? "+"pair? peek-char port? positive? procedure? quasiquote quote quotient "+"rational? rationalize read read-char real-part real? remainder reverse "+"round scheme-report-environment set! set-car! set-cdr! sin sqrt string "+"string->list string->number string->symbol string-append string-ci<=? "+"string-ci<? string-ci=? string-ci>=? string-ci>? string-copy "+"string-fill! string-length string-ref string-set! string<=? string<? "+"string=? string>=? string>? string? substring symbol->string symbol? "+"tan transcript-off transcript-on truncate values vector "+"vector->list vector-fill! vector-length vector-ref vector-set! "+"with-input-from-file with-output-to-file write write-char zero?"};var SHEBANG={className:"meta",begin:"^#!",end:"$"};var LITERAL={className:"literal",begin:"(#t|#f|#\\\\"+SCHEME_IDENT_RE+"|#\\\\.)"};var NUMBER={className:"number",variants:[{begin:SCHEME_SIMPLE_NUMBER_RE,relevance:0},{begin:SCHEME_COMPLEX_NUMBER_RE,relevance:0},{begin:"#b[0-1]+(/[0-1]+)?"},{begin:"#o[0-7]+(/[0-7]+)?"},{begin:"#x[0-9a-f]+(/[0-9a-f]+)?"}]};var STRING=hljs.QUOTE_STRING_MODE;var REGULAR_EXPRESSION={className:"regexp",begin:'#[pr]x"',end:'[^\\\\]"'};var COMMENT_MODES=[hljs.COMMENT(";","$",{relevance:0}),hljs.COMMENT("#\\|","\\|#")];var IDENT={begin:SCHEME_IDENT_RE,relevance:0};var QUOTED_IDENT={className:"symbol",begin:"'"+SCHEME_IDENT_RE};var BODY={endsWithParent:true,relevance:0};var QUOTED_LIST={variants:[{begin:/'/},{begin:"`"}],contains:[{begin:"\\(",end:"\\)",contains:["self",LITERAL,STRING,NUMBER,IDENT,QUOTED_IDENT]}]};var NAME={className:"name",begin:SCHEME_IDENT_RE,lexemes:SCHEME_IDENT_RE,keywords:BUILTINS};var LAMBDA={begin:/lambda/,endsWithParent:true,returnBegin:true,contains:[NAME,{begin:/\(/,end:/\)/,endsParent:true,contains:[IDENT]}]};var LIST={variants:[{begin:"\\(",end:"\\)"},{begin:"\\[",end:"\\]"}],contains:[LAMBDA,NAME,BODY]};BODY.contains=[LITERAL,NUMBER,STRING,IDENT,QUOTED_IDENT,QUOTED_LIST,LIST].concat(COMMENT_MODES);return{illegal:/\S/,contains:[SHEBANG,NUMBER,STRING,QUOTED_IDENT,QUOTED_LIST,LIST].concat(COMMENT_MODES)}});hljs.registerLanguage("bash",function(hljs){var VAR={className:"variable",variants:[{begin:/\$[\w\d#@][\w\d_]*/},{begin:/\$\{(.*?)}/}]};var QUOTE_STRING={className:"string",begin:/"/,end:/"/,contains:[hljs.BACKSLASH_ESCAPE,VAR,{className:"variable",begin:/\$\(/,end:/\)/,contains:[hljs.BACKSLASH_ESCAPE]}]};var ESCAPED_QUOTE={className:"",begin:/\\"/};var APOS_STRING={className:"string",begin:/'/,end:/'/};return{aliases:["sh","zsh"],lexemes:/\b-?[a-z\._]+\b/,keywords:{keyword:"if then else elif fi for while in do done case esac function",literal:"true false",built_in:"break cd continue eval exec exit export getopts hash pwd readonly return shift test times "+"trap umask unset "+"alias bind builtin caller command declare echo enable help let local logout mapfile printf "+"read readarray source type typeset ulimit unalias "+"set shopt "+"autoload bg bindkey bye cap chdir clone comparguments compcall compctl compdescribe compfiles "+"compgroups compquote comptags comptry compvalues dirs disable disown echotc echoti emulate "+"fc fg float functions getcap getln history integer jobs kill limit log noglob popd print "+"pushd pushln rehash sched setcap setopt stat suspend ttyctl unfunction unhash unlimit "+"unsetopt vared wait whence where which zcompile zformat zftp zle zmodload zparseopts zprof "+"zpty zregexparse zsocket zstyle ztcp",_:"-ne -eq -lt -gt -f -d -e -s -l -a"},contains:[{className:"meta",begin:/^#![^\n]+sh\s*$/,relevance:10},{className:"function",begin:/\w[\w\d_]*\s*\(\s*\)\s*\{/,returnBegin:true,contains:[hljs.inherit(hljs.TITLE_MODE,{begin:/\w[\w\d_]*/})],relevance:0},hljs.HASH_COMMENT_MODE,QUOTE_STRING,ESCAPED_QUOTE,APOS_STRING,VAR]}});hljs.registerLanguage("dockerfile",function(hljs){return{aliases:["docker"],case_insensitive:true,keywords:"from maintainer expose env arg user onbuild stopsignal",contains:[hljs.HASH_COMMENT_MODE,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.NUMBER_MODE,{beginKeywords:"run cmd entrypoint volume add copy workdir label healthcheck shell",starts:{end:/[^\\]$/,subLanguage:"bash"}}],illegal:"</"}});hljs.registerLanguage("properties",function(hljs){var WS0="[ \\t\\f]*";var WS1="[ \\t\\f]+";var DELIM="("+WS0+"[:=]"+WS0+"|"+WS1+")";var KEY_ALPHANUM="([^\\\\\\W:= \\t\\f\\n]|\\\\.)+";var KEY_OTHER="([^\\\\:= \\t\\f\\n]|\\\\.)+";var DELIM_AND_VALUE={end:DELIM,relevance:0,starts:{className:"string",end:/$/,relevance:0,contains:[{begin:"\\\\\\n"}]}};return{case_insensitive:true,illegal:/\S/,contains:[hljs.COMMENT("^\\s*[!#]","$"),{begin:KEY_ALPHANUM+DELIM,returnBegin:true,contains:[{className:"attr",begin:KEY_ALPHANUM,endsParent:true,relevance:0}],starts:DELIM_AND_VALUE},{begin:KEY_OTHER+DELIM,returnBegin:true,relevance:0,contains:[{className:"meta",begin:KEY_OTHER,endsParent:true,relevance:0}],starts:DELIM_AND_VALUE},{className:"attr",relevance:0,begin:KEY_OTHER+WS0+"$"}]}});hljs.registerLanguage("dns",function(hljs){return{aliases:["bind","zone"],keywords:{keyword:"IN A AAAA AFSDB APL CAA CDNSKEY CDS CERT CNAME DHCID DLV DNAME DNSKEY DS HIP IPSECKEY KEY KX "+"LOC MX NAPTR NS NSEC NSEC3 NSEC3PARAM PTR RRSIG RP SIG SOA SRV SSHFP TA TKEY TLSA TSIG TXT"},contains:[hljs.COMMENT(";","$",{relevance:0}),{className:"meta",begin:/^\$(TTL|GENERATE|INCLUDE|ORIGIN)\b/},{className:"number",begin:"((([0-9A-Fa-f]{1,4}:){7}([0-9A-Fa-f]{1,4}|:))|(([0-9A-Fa-f]{1,4}:){6}(:[0-9A-Fa-f]{1,4}|((25[0-5]|2[0-4]\\d|1\\d\\d|[1-9]?\\d)(\\.(25[0-5]|2[0-4]\\d|1\\d\\d|[1-9]?\\d)){3})|:))|(([0-9A-Fa-f]{1,4}:){5}(((:[0-9A-Fa-f]{1,4}){1,2})|:((25[0-5]|2[0-4]\\d|1\\d\\d|[1-9]?\\d)(\\.(25[0-5]|2[0-4]\\d|1\\d\\d|[1-9]?\\d)){3})|:))|(([0-9A-Fa-f]{1,4}:){4}(((:[0-9A-Fa-f]{1,4}){1,3})|((:[0-9A-Fa-f]{1,4})?:((25[0-5]|2[0-4]\\d|1\\d\\d|[1-9]?\\d)(\\.(25[0-5]|2[0-4]\\d|1\\d\\d|[1-9]?\\d)){3}))|:))|(([0-9A-Fa-f]{1,4}:){3}(((:[0-9A-Fa-f]{1,4}){1,4})|((:[0-9A-Fa-f]{1,4}){0,2}:((25[0-5]|2[0-4]\\d|1\\d\\d|[1-9]?\\d)(\\.(25[0-5]|2[0-4]\\d|1\\d\\d|[1-9]?\\d)){3}))|:))|(([0-9A-Fa-f]{1,4}:){2}(((:[0-9A-Fa-f]{1,4}){1,5})|((:[0-9A-Fa-f]{1,4}){0,3}:((25[0-5]|2[0-4]\\d|1\\d\\d|[1-9]?\\d)(\\.(25[0-5]|2[0-4]\\d|1\\d\\d|[1-9]?\\d)){3}))|:))|(([0-9A-Fa-f]{1,4}:){1}(((:[0-9A-Fa-f]{1,4}){1,6})|((:[0-9A-Fa-f]{1,4}){0,4}:((25[0-5]|2[0-4]\\d|1\\d\\d|[1-9]?\\d)(\\.(25[0-5]|2[0-4]\\d|1\\d\\d|[1-9]?\\d)){3}))|:))|(:(((:[0-9A-Fa-f]{1,4}){1,7})|((:[0-9A-Fa-f]{1,4}){0,5}:((25[0-5]|2[0-4]\\d|1\\d\\d|[1-9]?\\d)(\\.(25[0-5]|2[0-4]\\d|1\\d\\d|[1-9]?\\d)){3}))|:)))\\b"},{className:"number",begin:"((25[0-5]|(2[0-4]|1{0,1}[0-9]){0,1}[0-9]).){3,3}(25[0-5]|(2[0-4]|1{0,1}[0-9]){0,1}[0-9])\\b"},hljs.inherit(hljs.NUMBER_MODE,{begin:/\b\d+[dhwm]?/})]}});hljs.registerLanguage("monkey",function(hljs){var NUMBER={className:"number",relevance:0,variants:[{begin:"[$][a-fA-F0-9]+"},hljs.NUMBER_MODE]};return{case_insensitive:true,keywords:{keyword:"public private property continue exit extern new try catch "+"eachin not abstract final select case default const local global field "+"end if then else elseif endif while wend repeat until forever for "+"to step next return module inline throw import",built_in:"DebugLog DebugStop Error Print ACos ACosr ASin ASinr ATan ATan2 ATan2r ATanr Abs Abs Ceil "+"Clamp Clamp Cos Cosr Exp Floor Log Max Max Min Min Pow Sgn Sgn Sin Sinr Sqrt Tan Tanr Seed PI HALFPI TWOPI",literal:"true false null and or shl shr mod"},illegal:/\/\*/,contains:[hljs.COMMENT("#rem","#end"),hljs.COMMENT("'","$",{relevance:0}),{className:"function",beginKeywords:"function method",end:"[(=:]|$",illegal:/\n/,contains:[hljs.UNDERSCORE_TITLE_MODE]},{className:"class",beginKeywords:"class interface",end:"$",contains:[{beginKeywords:"extends implements"},hljs.UNDERSCORE_TITLE_MODE]},{className:"built_in",begin:"\\b(self|super)\\b"},{className:"meta",begin:"\\s*#",end:"$",keywords:{"meta-keyword":"if else elseif endif end then"}},{className:"meta",begin:"^\\s*strict\\b"},{beginKeywords:"alias",end:"=",contains:[hljs.UNDERSCORE_TITLE_MODE]},hljs.QUOTE_STRING_MODE,NUMBER]}});hljs.registerLanguage("golo",function(hljs){return{keywords:{keyword:"println readln print import module function local return let var "+"while for foreach times in case when match with break continue "+"augment augmentation each find filter reduce "+"if then else otherwise try catch finally raise throw orIfNull "+"DynamicObject|10 DynamicVariable struct Observable map set vector list array",literal:"true false null"},contains:[hljs.HASH_COMMENT_MODE,hljs.QUOTE_STRING_MODE,hljs.C_NUMBER_MODE,{className:"meta",begin:"@[A-Za-z]+"}]}});hljs.registerLanguage("livecodeserver",function(hljs){var VARIABLE={className:"variable",variants:[{begin:"\\b([gtps][A-Z]{1}[a-zA-Z0-9]*)(\\[.+\\])?(?:\\s*?)"},{begin:"\\$_[A-Z]+"}],relevance:0};var COMMENT_MODES=[hljs.C_BLOCK_COMMENT_MODE,hljs.HASH_COMMENT_MODE,hljs.COMMENT("--","$"),hljs.COMMENT("[^:]//","$")];var TITLE1=hljs.inherit(hljs.TITLE_MODE,{variants:[{begin:"\\b_*rig[A-Z]+[A-Za-z0-9_\\-]*"},{begin:"\\b_[a-z0-9\\-]+"}]});var TITLE2=hljs.inherit(hljs.TITLE_MODE,{begin:"\\b([A-Za-z0-9_\\-]+)\\b"});return{case_insensitive:false,keywords:{keyword:"$_COOKIE $_FILES $_GET $_GET_BINARY $_GET_RAW $_POST $_POST_BINARY $_POST_RAW $_SESSION $_SERVER "+"codepoint codepoints segment segments codeunit codeunits sentence sentences trueWord trueWords paragraph "+"after byte bytes english the until http forever descending using line real8 with seventh "+"for stdout finally element word words fourth before black ninth sixth characters chars stderr "+"uInt1 uInt1s uInt2 uInt2s stdin string lines relative rel any fifth items from middle mid "+"at else of catch then third it file milliseconds seconds second secs sec int1 int1s int4 "+"int4s internet int2 int2s normal text item last long detailed effective uInt4 uInt4s repeat "+"end repeat URL in try into switch to words https token binfile each tenth as ticks tick "+"system real4 by dateItems without char character ascending eighth whole dateTime numeric short "+"first ftp integer abbreviated abbr abbrev private case while if "+"div mod wrap and or bitAnd bitNot bitOr bitXor among not in a an within "+"contains ends with begins the keys of keys",literal:"SIX TEN FORMFEED NINE ZERO NONE SPACE FOUR FALSE COLON CRLF PI COMMA ENDOFFILE EOF EIGHT FIVE "+"QUOTE EMPTY ONE TRUE RETURN CR LINEFEED RIGHT BACKSLASH NULL SEVEN TAB THREE TWO "+"six ten formfeed nine zero none space four false colon crlf pi comma endoffile eof eight five "+"quote empty one true return cr linefeed right backslash null seven tab three two "+"RIVERSION RISTATE FILE_READ_MODE FILE_WRITE_MODE FILE_WRITE_MODE DIR_WRITE_MODE FILE_READ_UMASK "+"FILE_WRITE_UMASK DIR_READ_UMASK DIR_WRITE_UMASK",built_in:"put abs acos aliasReference annuity arrayDecode arrayEncode asin atan atan2 average avg avgDev base64Decode "+"base64Encode baseConvert binaryDecode binaryEncode byteOffset byteToNum cachedURL cachedURLs charToNum "+"cipherNames codepointOffset codepointProperty codepointToNum codeunitOffset commandNames compound compress "+"constantNames cos date dateFormat decompress difference directories "+"diskSpace DNSServers exp exp1 exp2 exp10 extents files flushEvents folders format functionNames geometricMean global "+"globals hasMemory harmonicMean hostAddress hostAddressToName hostName hostNameToAddress isNumber ISOToMac itemOffset "+"keys len length libURLErrorData libUrlFormData libURLftpCommand libURLLastHTTPHeaders libURLLastRHHeaders "+"libUrlMultipartFormAddPart libUrlMultipartFormData libURLVersion lineOffset ln ln1 localNames log log2 log10 "+"longFilePath lower macToISO matchChunk matchText matrixMultiply max md5Digest median merge messageAuthenticationCode messageDigest millisec "+"millisecs millisecond milliseconds min monthNames nativeCharToNum normalizeText num number numToByte numToChar "+"numToCodepoint numToNativeChar offset open openfiles openProcesses openProcessIDs openSockets "+"paragraphOffset paramCount param params peerAddress pendingMessages platform popStdDev populationStandardDeviation "+"populationVariance popVariance processID random randomBytes replaceText result revCreateXMLTree revCreateXMLTreeFromFile "+"revCurrentRecord revCurrentRecordIsFirst revCurrentRecordIsLast revDatabaseColumnCount revDatabaseColumnIsNull "+"revDatabaseColumnLengths revDatabaseColumnNames revDatabaseColumnNamed revDatabaseColumnNumbered "+"revDatabaseColumnTypes revDatabaseConnectResult revDatabaseCursors revDatabaseID revDatabaseTableNames "+"revDatabaseType revDataFromQuery revdb_closeCursor revdb_columnbynumber revdb_columncount revdb_columnisnull "+"revdb_columnlengths revdb_columnnames revdb_columntypes revdb_commit revdb_connect revdb_connections "+"revdb_connectionerr revdb_currentrecord revdb_cursorconnection revdb_cursorerr revdb_cursors revdb_dbtype "+"revdb_disconnect revdb_execute revdb_iseof revdb_isbof revdb_movefirst revdb_movelast revdb_movenext "+"revdb_moveprev revdb_query revdb_querylist revdb_recordcount revdb_rollback revdb_tablenames "+"revGetDatabaseDriverPath revNumberOfRecords revOpenDatabase revOpenDatabases revQueryDatabase "+"revQueryDatabaseBlob revQueryResult revQueryIsAtStart revQueryIsAtEnd revUnixFromMacPath revXMLAttribute "+"revXMLAttributes revXMLAttributeValues revXMLChildContents revXMLChildNames revXMLCreateTreeFromFileWithNamespaces "+"revXMLCreateTreeWithNamespaces revXMLDataFromXPathQuery revXMLEvaluateXPath revXMLFirstChild revXMLMatchingNode "+"revXMLNextSibling revXMLNodeContents revXMLNumberOfChildren revXMLParent revXMLPreviousSibling "+"revXMLRootNode revXMLRPC_CreateRequest revXMLRPC_Documents revXMLRPC_Error "+"revXMLRPC_GetHost revXMLRPC_GetMethod revXMLRPC_GetParam revXMLText revXMLRPC_Execute "+"revXMLRPC_GetParamCount revXMLRPC_GetParamNode revXMLRPC_GetParamType revXMLRPC_GetPath revXMLRPC_GetPort "+"revXMLRPC_GetProtocol revXMLRPC_GetRequest revXMLRPC_GetResponse revXMLRPC_GetSocket revXMLTree "+"revXMLTrees revXMLValidateDTD revZipDescribeItem revZipEnumerateItems revZipOpenArchives round sampVariance "+"sec secs seconds sentenceOffset sha1Digest shell shortFilePath sin specialFolderPath sqrt standardDeviation statRound "+"stdDev sum sysError systemVersion tan tempName textDecode textEncode tick ticks time to tokenOffset toLower toUpper "+"transpose truewordOffset trunc uniDecode uniEncode upper URLDecode URLEncode URLStatus uuid value variableNames "+"variance version waitDepth weekdayNames wordOffset xsltApplyStylesheet xsltApplyStylesheetFromFile xsltLoadStylesheet "+"xsltLoadStylesheetFromFile add breakpoint cancel clear local variable file word line folder directory URL close socket process "+"combine constant convert create new alias folder directory decrypt delete variable word line folder "+"directory URL dispatch divide do encrypt filter get include intersect kill libURLDownloadToFile "+"libURLFollowHttpRedirects libURLftpUpload libURLftpUploadFile libURLresetAll libUrlSetAuthCallback libURLSetDriver "+"libURLSetCustomHTTPHeaders libUrlSetExpect100 libURLSetFTPListCommand libURLSetFTPMode libURLSetFTPStopTime "+"libURLSetStatusCallback load extension loadedExtensions multiply socket prepare process post seek rel relative read from process rename "+"replace require resetAll resolve revAddXMLNode revAppendXML revCloseCursor revCloseDatabase revCommitDatabase "+"revCopyFile revCopyFolder revCopyXMLNode revDeleteFolder revDeleteXMLNode revDeleteAllXMLTrees "+"revDeleteXMLTree revExecuteSQL revGoURL revInsertXMLNode revMoveFolder revMoveToFirstRecord revMoveToLastRecord "+"revMoveToNextRecord revMoveToPreviousRecord revMoveToRecord revMoveXMLNode revPutIntoXMLNode revRollBackDatabase "+"revSetDatabaseDriverPath revSetXMLAttribute revXMLRPC_AddParam revXMLRPC_DeleteAllDocuments revXMLAddDTD "+"revXMLRPC_Free revXMLRPC_FreeAll revXMLRPC_DeleteDocument revXMLRPC_DeleteParam revXMLRPC_SetHost "+"revXMLRPC_SetMethod revXMLRPC_SetPort revXMLRPC_SetProtocol revXMLRPC_SetSocket revZipAddItemWithData "+"revZipAddItemWithFile revZipAddUncompressedItemWithData revZipAddUncompressedItemWithFile revZipCancel "+"revZipCloseArchive revZipDeleteItem revZipExtractItemToFile revZipExtractItemToVariable revZipSetProgressCallback "+"revZipRenameItem revZipReplaceItemWithData revZipReplaceItemWithFile revZipOpenArchive send set sort split start stop "+"subtract symmetric union unload vectorDotProduct wait write"},contains:[VARIABLE,{className:"keyword",begin:"\\bend\\sif\\b"},{className:"function",beginKeywords:"function",end:"$",contains:[VARIABLE,TITLE2,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.BINARY_NUMBER_MODE,hljs.C_NUMBER_MODE,TITLE1]},{className:"function",begin:"\\bend\\s+",end:"$",keywords:"end",contains:[TITLE2,TITLE1],relevance:0},{beginKeywords:"command on",end:"$",contains:[VARIABLE,TITLE2,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.BINARY_NUMBER_MODE,hljs.C_NUMBER_MODE,TITLE1]},{className:"meta",variants:[{begin:"<\\?(rev|lc|livecode)",relevance:10},{begin:"<\\?"},{begin:"\\?>"}]},hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.BINARY_NUMBER_MODE,hljs.C_NUMBER_MODE,TITLE1].concat(COMMENT_MODES),illegal:";$|^\\[|^=|&|{"}});hljs.registerLanguage("haml",function(hljs){return{case_insensitive:true,contains:[{className:"meta",begin:"^!!!( (5|1\\.1|Strict|Frameset|Basic|Mobile|RDFa|XML\\b.*))?$",relevance:10},hljs.COMMENT("^\\s*(!=#|=#|-#|/).*$",false,{relevance:0}),{begin:"^\\s*(-|=|!=)(?!#)",starts:{end:"\\n",subLanguage:"ruby"}},{className:"tag",begin:"^\\s*%",contains:[{className:"selector-tag",begin:"\\w+"},{className:"selector-id",begin:"#[\\w-]+"},{className:"selector-class",begin:"\\.[\\w-]+"},{begin:"{\\s*",end:"\\s*}",contains:[{begin:":\\w+\\s*=>",end:",\\s+",returnBegin:true,endsWithParent:true,contains:[{className:"attr",begin:":\\w+"},hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,{begin:"\\w+",relevance:0}]}]},{begin:"\\(\\s*",end:"\\s*\\)",excludeEnd:true,contains:[{begin:"\\w+\\s*=",end:"\\s+",returnBegin:true,endsWithParent:true,contains:[{className:"attr",begin:"\\w+",relevance:0},hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,{begin:"\\w+",relevance:0}]}]}]},{begin:"^\\s*[=~]\\s*"},{begin:"#{",starts:{end:"}",subLanguage:"ruby"}}]}});hljs.registerLanguage("gcode",function(hljs){var GCODE_IDENT_RE="[A-Z_][A-Z0-9_.]*";var GCODE_CLOSE_RE="\\%";var GCODE_KEYWORDS="IF DO WHILE ENDWHILE CALL ENDIF SUB ENDSUB GOTO REPEAT ENDREPEAT "+"EQ LT GT NE GE LE OR XOR";var GCODE_START={className:"meta",begin:"([O])([0-9]+)"};var GCODE_CODE=[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.COMMENT(/\(/,/\)/),hljs.inherit(hljs.C_NUMBER_MODE,{begin:"([-+]?([0-9]*\\.?[0-9]+\\.?))|"+hljs.C_NUMBER_RE}),hljs.inherit(hljs.APOS_STRING_MODE,{illegal:null}),hljs.inherit(hljs.QUOTE_STRING_MODE,{illegal:null}),{className:"name",begin:"([G])([0-9]+\\.?[0-9]?)"},{className:"name",begin:"([M])([0-9]+\\.?[0-9]?)"},{className:"attr",begin:"(VC|VS|#)",end:"(\\d+)"},{className:"attr",begin:"(VZOFX|VZOFY|VZOFZ)"},{className:"built_in",begin:"(ATAN|ABS|ACOS|ASIN|SIN|COS|EXP|FIX|FUP|ROUND|LN|TAN)(\\[)",end:"([-+]?([0-9]*\\.?[0-9]+\\.?))(\\])"},{className:"symbol",variants:[{begin:"N",end:"\\d+",illegal:"\\W"}]}];return{aliases:["nc"],case_insensitive:true,lexemes:GCODE_IDENT_RE,keywords:GCODE_KEYWORDS,contains:[{className:"meta",begin:GCODE_CLOSE_RE},GCODE_START].concat(GCODE_CODE)}});hljs.registerLanguage("erlang",function(hljs){var BASIC_ATOM_RE="[a-z'][a-zA-Z0-9_']*";var FUNCTION_NAME_RE="("+BASIC_ATOM_RE+":"+BASIC_ATOM_RE+"|"+BASIC_ATOM_RE+")";var ERLANG_RESERVED={keyword:"after and andalso|10 band begin bnot bor bsl bzr bxor case catch cond div end fun if "+"let not of orelse|10 query receive rem try when xor",literal:"false true"};var COMMENT=hljs.COMMENT("%","$");var NUMBER={className:"number",begin:"\\b(\\d+#[a-fA-F0-9]+|\\d+(\\.\\d+)?([eE][-+]?\\d+)?)",relevance:0};var NAMED_FUN={begin:"fun\\s+"+BASIC_ATOM_RE+"/\\d+"};var FUNCTION_CALL={begin:FUNCTION_NAME_RE+"\\(",end:"\\)",returnBegin:true,relevance:0,contains:[{begin:FUNCTION_NAME_RE,relevance:0},{begin:"\\(",end:"\\)",endsWithParent:true,returnEnd:true,relevance:0}]};var TUPLE={begin:"{",end:"}",relevance:0};var VAR1={begin:"\\b_([A-Z][A-Za-z0-9_]*)?",relevance:0};var VAR2={begin:"[A-Z][a-zA-Z0-9_]*",relevance:0};var RECORD_ACCESS={begin:"#"+hljs.UNDERSCORE_IDENT_RE,relevance:0,returnBegin:true,contains:[{begin:"#"+hljs.UNDERSCORE_IDENT_RE,relevance:0},{begin:"{",end:"}",relevance:0}]};var BLOCK_STATEMENTS={beginKeywords:"fun receive if try case",end:"end",keywords:ERLANG_RESERVED};BLOCK_STATEMENTS.contains=[COMMENT,NAMED_FUN,hljs.inherit(hljs.APOS_STRING_MODE,{className:""}),BLOCK_STATEMENTS,FUNCTION_CALL,hljs.QUOTE_STRING_MODE,NUMBER,TUPLE,VAR1,VAR2,RECORD_ACCESS];var BASIC_MODES=[COMMENT,NAMED_FUN,BLOCK_STATEMENTS,FUNCTION_CALL,hljs.QUOTE_STRING_MODE,NUMBER,TUPLE,VAR1,VAR2,RECORD_ACCESS];FUNCTION_CALL.contains[1].contains=BASIC_MODES;TUPLE.contains=BASIC_MODES;RECORD_ACCESS.contains[1].contains=BASIC_MODES;var PARAMS={className:"params",begin:"\\(",end:"\\)",contains:BASIC_MODES};return{aliases:["erl"],keywords:ERLANG_RESERVED,illegal:"(</|\\*=|\\+=|-=|/\\*|\\*/|\\(\\*|\\*\\))",contains:[{className:"function",begin:"^"+BASIC_ATOM_RE+"\\s*\\(",end:"->",returnBegin:true,illegal:"\\(|#|//|/\\*|\\\\|:|;",contains:[PARAMS,hljs.inherit(hljs.TITLE_MODE,{begin:BASIC_ATOM_RE})],starts:{end:";|\\.",keywords:ERLANG_RESERVED,contains:BASIC_MODES}},COMMENT,{begin:"^-",end:"\\.",relevance:0,excludeEnd:true,returnBegin:true,lexemes:"-"+hljs.IDENT_RE,keywords:"-module -record -undef -export -ifdef -ifndef -author -copyright -doc -vsn "+"-import -include -include_lib -compile -define -else -endif -file -behaviour "+"-behavior -spec",contains:[PARAMS]},NUMBER,hljs.QUOTE_STRING_MODE,RECORD_ACCESS,VAR1,VAR2,TUPLE,{begin:/\.$/}]}});hljs.registerLanguage("dust",function(hljs){var EXPRESSION_KEYWORDS="if eq ne lt lte gt gte select default math sep";return{aliases:["dst"],case_insensitive:true,subLanguage:"xml",contains:[{className:"template-tag",begin:/\{[#\/]/,end:/\}/,illegal:/;/,contains:[{className:"name",begin:/[a-zA-Z\.-]+/,starts:{endsWithParent:true,relevance:0,contains:[hljs.QUOTE_STRING_MODE]}}]},{className:"template-variable",begin:/\{/,end:/\}/,illegal:/;/,keywords:EXPRESSION_KEYWORDS}]}});hljs.registerLanguage("mizar",function(hljs){return{keywords:"environ vocabularies notations constructors definitions "+"registrations theorems schemes requirements begin end definition "+"registration cluster existence pred func defpred deffunc theorem "+"proof let take assume then thus hence ex for st holds consider "+"reconsider such that and in provided of as from be being by means "+"equals implies iff redefine define now not or attr is mode "+"suppose per cases set thesis contradiction scheme reserve struct "+"correctness compatibility coherence symmetry assymetry "+"reflexivity irreflexivity connectedness uniqueness commutativity "+"idempotence involutiveness projectivity",contains:[hljs.COMMENT("::","$")]}});hljs.registerLanguage("arcade",function(hljs){var IDENT_RE="[A-Za-z_][0-9A-Za-z_]*";var KEYWORDS={keyword:"if for while var new function do return void else break",literal:"BackSlash DoubleQuote false ForwardSlash Infinity NaN NewLine null PI SingleQuote Tab TextFormatting true undefined",built_in:"Abs Acos Angle Attachments Area AreaGeodetic Asin Atan Atan2 Average Bearing Boolean Buffer BufferGeodetic "+"Ceil Centroid Clip Console Constrain Contains Cos Count Crosses Cut Date DateAdd "+"DateDiff Day Decode DefaultValue Dictionary Difference Disjoint Distance DistanceGeodetic Distinct "+"DomainCode DomainName Equals Exp Extent Feature FeatureSet FeatureSetByAssociation FeatureSetById FeatureSetByPortalItem "+"FeatureSetByRelationshipName FeatureSetByTitle FeatureSetByUrl Filter First Floor Geometry GroupBy Guid HasKey Hour IIf IndexOf "+"Intersection Intersects IsEmpty IsNan IsSelfIntersecting Length LengthGeodetic Log Max Mean Millisecond Min Minute Month "+"MultiPartToSinglePart Multipoint NextSequenceValue Now Number OrderBy Overlaps Point Polygon "+"Polyline Portal Pow Random Relate Reverse RingIsClockWise Round Second SetGeometry Sin Sort Sqrt Stdev Sum "+"SymmetricDifference Tan Text Timestamp Today ToLocal Top Touches ToUTC TrackCurrentTime "+"TrackGeometryWindow TrackIndex TrackStartTime TrackWindow TypeOf Union UrlEncode Variance "+"Weekday When Within Year "};var EXPRESSIONS;var SYMBOL={className:"symbol",begin:"\\$[datastore|feature|layer|map|measure|sourcefeature|sourcelayer|targetfeature|targetlayer|value|view]+"};var NUMBER={className:"number",variants:[{begin:"\\b(0[bB][01]+)"},{begin:"\\b(0[oO][0-7]+)"},{begin:hljs.C_NUMBER_RE}],relevance:0};var SUBST={className:"subst",begin:"\\$\\{",end:"\\}",keywords:KEYWORDS,contains:[]};var TEMPLATE_STRING={className:"string",begin:"`",end:"`",contains:[hljs.BACKSLASH_ESCAPE,SUBST]};SUBST.contains=[hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,TEMPLATE_STRING,NUMBER,hljs.REGEXP_MODE];var PARAMS_CONTAINS=SUBST.contains.concat([hljs.C_BLOCK_COMMENT_MODE,hljs.C_LINE_COMMENT_MODE]);return{aliases:["arcade"],keywords:KEYWORDS,contains:[hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,TEMPLATE_STRING,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,SYMBOL,NUMBER,{begin:/[{,]\s*/,relevance:0,contains:[{begin:IDENT_RE+"\\s*:",returnBegin:true,relevance:0,contains:[{className:"attr",begin:IDENT_RE,relevance:0}]}]},{begin:"("+hljs.RE_STARTERS_RE+"|\\b(return)\\b)\\s*",keywords:"return",contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.REGEXP_MODE,{className:"function",begin:"(\\(.*?\\)|"+IDENT_RE+")\\s*=>",returnBegin:true,end:"\\s*=>",contains:[{className:"params",variants:[{begin:IDENT_RE},{begin:/\(\s*\)/},{begin:/\(/,end:/\)/,excludeBegin:true,excludeEnd:true,keywords:KEYWORDS,contains:PARAMS_CONTAINS}]}]}],relevance:0},{className:"function",beginKeywords:"function",end:/\{/,excludeEnd:true,contains:[hljs.inherit(hljs.TITLE_MODE,{begin:IDENT_RE}),{className:"params",begin:/\(/,end:/\)/,excludeBegin:true,excludeEnd:true,contains:PARAMS_CONTAINS}],illegal:/\[|%/},{begin:/\$[(.]/}],illegal:/#(?!!)/}});hljs.registerLanguage("php",function(hljs){var VARIABLE={begin:"\\$+[a-zA-Z_-ÿ][a-zA-Z0-9_-ÿ]*"};var PREPROCESSOR={className:"meta",begin:/<\?(php)?|\?>/};var STRING={className:"string",contains:[hljs.BACKSLASH_ESCAPE,PREPROCESSOR],variants:[{begin:'b"',end:'"'},{begin:"b'",end:"'"},hljs.inherit(hljs.APOS_STRING_MODE,{illegal:null}),hljs.inherit(hljs.QUOTE_STRING_MODE,{illegal:null})]};var NUMBER={variants:[hljs.BINARY_NUMBER_MODE,hljs.C_NUMBER_MODE]};return{aliases:["php","php3","php4","php5","php6","php7"],case_insensitive:true,keywords:"and include_once list abstract global private echo interface as static endswitch "+"array null if endwhile or const for endforeach self var while isset public "+"protected exit foreach throw elseif include __FILE__ empty require_once do xor "+"return parent clone use __CLASS__ __LINE__ else break print eval new "+"catch __METHOD__ case exception default die require __FUNCTION__ "+"enddeclare final try switch continue endfor endif declare unset true false "+"trait goto instanceof insteadof __DIR__ __NAMESPACE__ "+"yield finally",contains:[hljs.HASH_COMMENT_MODE,hljs.COMMENT("//","$",{contains:[PREPROCESSOR]}),hljs.COMMENT("/\\*","\\*/",{contains:[{className:"doctag",begin:"@[A-Za-z]+"}]}),hljs.COMMENT("__halt_compiler.+?;",false,{endsWithParent:true,keywords:"__halt_compiler",lexemes:hljs.UNDERSCORE_IDENT_RE}),{className:"string",begin:/<<<['"]?\w+['"]?$/,end:/^\w+;?$/,contains:[hljs.BACKSLASH_ESCAPE,{className:"subst",variants:[{begin:/\$\w+/},{begin:/\{\$/,end:/\}/}]}]},PREPROCESSOR,{className:"keyword",begin:/\$this\b/},VARIABLE,{begin:/(::|->)+[a-zA-Z_\x7f-\xff][a-zA-Z0-9_\x7f-\xff]*/},{className:"function",beginKeywords:"function",end:/[;{]/,excludeEnd:true,illegal:"\\$|\\[|%",contains:[hljs.UNDERSCORE_TITLE_MODE,{className:"params",begin:"\\(",end:"\\)",contains:["self",VARIABLE,hljs.C_BLOCK_COMMENT_MODE,STRING,NUMBER]}]},{className:"class",beginKeywords:"class interface",end:"{",excludeEnd:true,illegal:/[:\(\$"]/,contains:[{beginKeywords:"extends implements"},hljs.UNDERSCORE_TITLE_MODE]},{beginKeywords:"namespace",end:";",illegal:/[\.']/,contains:[hljs.UNDERSCORE_TITLE_MODE]},{beginKeywords:"use",end:";",contains:[hljs.UNDERSCORE_TITLE_MODE]},{begin:"=>"},STRING,NUMBER]}});hljs.registerLanguage("haxe",function(hljs){var IDENT_RE="[a-zA-Z_$][a-zA-Z0-9_$]*";var IDENT_FUNC_RETURN_TYPE_RE="([*]|[a-zA-Z_$][a-zA-Z0-9_$]*)";var HAXE_BASIC_TYPES="Int Float String Bool Dynamic Void Array ";return{aliases:["hx"],keywords:{keyword:"break case cast catch continue default do dynamic else enum extern "+"for function here if import in inline never new override package private get set "+"public return static super switch this throw trace try typedef untyped using var while "+HAXE_BASIC_TYPES,built_in:"trace this",literal:"true false null _"},contains:[{className:"string",begin:"'",end:"'",contains:[hljs.BACKSLASH_ESCAPE,{className:"subst",begin:"\\$\\{",end:"\\}"},{className:"subst",begin:"\\$",end:"\\W}"}]},hljs.QUOTE_STRING_MODE,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.C_NUMBER_MODE,{className:"meta",begin:"@:",end:"$"},{className:"meta",begin:"#",end:"$",keywords:{"meta-keyword":"if else elseif end error"}},{className:"type",begin:":[ \t]*",end:"[^A-Za-z0-9_ \t\\->]",excludeBegin:true,excludeEnd:true,relevance:0},{className:"type",begin:":[ \t]*",end:"\\W",excludeBegin:true,excludeEnd:true},{className:"type",begin:"new *",end:"\\W",excludeBegin:true,excludeEnd:true},{className:"class",beginKeywords:"enum",end:"\\{",contains:[hljs.TITLE_MODE]},{className:"class",beginKeywords:"abstract",end:"[\\{$]",contains:[{className:"type",begin:"\\(",end:"\\)",excludeBegin:true,excludeEnd:true},{className:"type",begin:"from +",end:"\\W",excludeBegin:true,excludeEnd:true},{className:"type",begin:"to +",end:"\\W",excludeBegin:true,excludeEnd:true},hljs.TITLE_MODE],keywords:{keyword:"abstract from to"}},{className:"class",begin:"\\b(class|interface) +",end:"[\\{$]",excludeEnd:true,keywords:"class interface",contains:[{className:"keyword",begin:"\\b(extends|implements) +",keywords:"extends implements",contains:[{className:"type",begin:hljs.IDENT_RE,relevance:0}]},hljs.TITLE_MODE]},{className:"function",beginKeywords:"function",end:"\\(",excludeEnd:true,illegal:"\\S",contains:[hljs.TITLE_MODE]}],illegal:/<\//}});hljs.registerLanguage("autohotkey",function(hljs){var BACKTICK_ESCAPE={begin:"`[\\s\\S]"};return{case_insensitive:true,aliases:["ahk"],keywords:{keyword:"Break Continue Critical Exit ExitApp Gosub Goto New OnExit Pause return SetBatchLines SetTimer Suspend Thread Throw Until ahk_id ahk_class ahk_pid ahk_exe ahk_group",literal:"true false NOT AND OR",built_in:"ComSpec Clipboard ClipboardAll ErrorLevel"},contains:[BACKTICK_ESCAPE,hljs.inherit(hljs.QUOTE_STRING_MODE,{contains:[BACKTICK_ESCAPE]}),hljs.COMMENT(";","$",{relevance:0}),hljs.C_BLOCK_COMMENT_MODE,{className:"number",begin:hljs.NUMBER_RE,relevance:0},{className:"variable",begin:"%[a-zA-Z0-9#_$@]+%"},{className:"built_in",begin:"^\\s*\\w+\\s*(,|%)"},{className:"title",variants:[{begin:'^[^\\n";]+::(?!=)'},{begin:'^[^\\n";]+:(?!=)',relevance:0}]},{className:"meta",begin:"^\\s*#\\w+",end:"$",relevance:0},{className:"built_in",begin:"A_[a-zA-Z0-9]+"},{begin:",\\s*,"}]}});hljs.registerLanguage("protobuf",function(hljs){return{keywords:{keyword:"package import option optional required repeated group oneof",built_in:"double float int32 int64 uint32 uint64 sint32 sint64 "+"fixed32 fixed64 sfixed32 sfixed64 bool string bytes",literal:"true false"},contains:[hljs.QUOTE_STRING_MODE,hljs.NUMBER_MODE,hljs.C_LINE_COMMENT_MODE,{className:"class",beginKeywords:"message enum service",end:/\{/,illegal:/\n/,contains:[hljs.inherit(hljs.TITLE_MODE,{starts:{endsWithParent:true,excludeEnd:true}})]},{className:"function",beginKeywords:"rpc",end:/;/,excludeEnd:true,keywords:"rpc returns"},{begin:/^\s*[A-Z_]+/,end:/\s*=/,excludeEnd:true}]}});hljs.registerLanguage("capnproto",function(hljs){return{aliases:["capnp"],keywords:{keyword:"struct enum interface union group import using const annotation extends in of on as with from fixed",built_in:"Void Bool Int8 Int16 Int32 Int64 UInt8 UInt16 UInt32 UInt64 Float32 Float64 "+"Text Data AnyPointer AnyStruct Capability List",literal:"true false"},contains:[hljs.QUOTE_STRING_MODE,hljs.NUMBER_MODE,hljs.HASH_COMMENT_MODE,{className:"meta",begin:/@0x[\w\d]{16};/,illegal:/\n/},{className:"symbol",begin:/@\d+\b/},{className:"class",beginKeywords:"struct enum",end:/\{/,illegal:/\n/,contains:[hljs.inherit(hljs.TITLE_MODE,{starts:{endsWithParent:true,excludeEnd:true}})]},{className:"class",beginKeywords:"interface",end:/\{/,illegal:/\n/,contains:[hljs.inherit(hljs.TITLE_MODE,{starts:{endsWithParent:true,excludeEnd:true}})]}]}});hljs.registerLanguage("scala",function(hljs){var ANNOTATION={className:"meta",begin:"@[A-Za-z]+"};var SUBST={className:"subst",variants:[{begin:"\\$[A-Za-z0-9_]+"},{begin:"\\${",end:"}"}]};var STRING={className:"string",variants:[{begin:'"',end:'"',illegal:"\\n",contains:[hljs.BACKSLASH_ESCAPE]},{begin:'"""',end:'"""',relevance:10},{begin:'[a-z]+"',end:'"',illegal:"\\n",contains:[hljs.BACKSLASH_ESCAPE,SUBST]},{className:"string",begin:'[a-z]+"""',end:'"""',contains:[SUBST],relevance:10}]};var SYMBOL={className:"symbol",begin:"'\\w[\\w\\d_]*(?!')"};var TYPE={className:"type",begin:"\\b[A-Z][A-Za-z0-9_]*",relevance:0};var NAME={className:"title",begin:/[^0-9\n\t "'(),.`{}\[\]:;][^\n\t "'(),.`{}\[\]:;]+|[^0-9\n\t "'(),.`{}\[\]:;=]/,relevance:0};var CLASS={className:"class",beginKeywords:"class object trait type",end:/[:={\[\n;]/,excludeEnd:true,contains:[{beginKeywords:"extends with",relevance:10},{begin:/\[/,end:/\]/,excludeBegin:true,excludeEnd:true,relevance:0,contains:[TYPE]},{className:"params",begin:/\(/,end:/\)/,excludeBegin:true,excludeEnd:true,relevance:0,contains:[TYPE]},NAME]};var METHOD={className:"function",beginKeywords:"def",end:/[:={\[(\n;]/,excludeEnd:true,contains:[NAME]};return{keywords:{literal:"true false null",keyword:"type yield lazy override def with val var sealed abstract private trait object if forSome for while throw finally protected extends import final return else break new catch super class case package default try this match continue throws implicit"},contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,STRING,SYMBOL,TYPE,METHOD,CLASS,hljs.C_NUMBER_MODE,ANNOTATION]}});hljs.registerLanguage("django",function(hljs){var FILTER={begin:/\|[A-Za-z]+:?/,keywords:{name:"truncatewords removetags linebreaksbr yesno get_digit timesince random striptags "+"filesizeformat escape linebreaks length_is ljust rjust cut urlize fix_ampersands "+"title floatformat capfirst pprint divisibleby add make_list unordered_list urlencode "+"timeuntil urlizetrunc wordcount stringformat linenumbers slice date dictsort "+"dictsortreversed default_if_none pluralize lower join center default "+"truncatewords_html upper length phone2numeric wordwrap time addslashes slugify first "+"escapejs force_escape iriencode last safe safeseq truncatechars localize unlocalize "+"localtime utc timezone"},contains:[hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE]};return{aliases:["jinja"],case_insensitive:true,subLanguage:"xml",contains:[hljs.COMMENT(/\{%\s*comment\s*%}/,/\{%\s*endcomment\s*%}/),hljs.COMMENT(/\{#/,/#}/),{className:"template-tag",begin:/\{%/,end:/%}/,contains:[{className:"name",begin:/\w+/,keywords:{name:"comment endcomment load templatetag ifchanged endifchanged if endif firstof for "+"endfor ifnotequal endifnotequal widthratio extends include spaceless "+"endspaceless regroup ifequal endifequal ssi now with cycle url filter "+"endfilter debug block endblock else autoescape endautoescape csrf_token empty elif "+"endwith static trans blocktrans endblocktrans get_static_prefix get_media_prefix "+"plural get_current_language language get_available_languages "+"get_current_language_bidi get_language_info get_language_info_list localize "+"endlocalize localtime endlocaltime timezone endtimezone get_current_timezone "+"verbatim"},starts:{endsWithParent:true,keywords:"in by as",contains:[FILTER],relevance:0}}]},{className:"template-variable",begin:/\{\{/,end:/}}/,contains:[FILTER]}]}});hljs.registerLanguage("shell",function(hljs){return{aliases:["console"],contains:[{className:"meta",begin:"^\\s{0,3}[/\\w\\d\\[\\]()@-]*[>%$#]",starts:{end:"$",subLanguage:"bash"}}]}});hljs.registerLanguage("powershell",function(hljs){var TYPES=["string","char","byte","int","long","bool","decimal","single","double","DateTime","xml","array","hashtable","void"];var VALID_VERBS="Add|Clear|Close|Copy|Enter|Exit|Find|Format|Get|Hide|Join|Lock|"+"Move|New|Open|Optimize|Pop|Push|Redo|Remove|Rename|Reset|Resize|"+"Search|Select|Set|Show|Skip|Split|Step|Switch|Undo|Unlock|"+"Watch|Backup|Checkpoint|Compare|Compress|Convert|ConvertFrom|"+"ConvertTo|Dismount|Edit|Expand|Export|Group|Import|Initialize|"+"Limit|Merge|New|Out|Publish|Restore|Save|Sync|Unpublish|Update|"+"Approve|Assert|Complete|Confirm|Deny|Disable|Enable|Install|Invoke|Register|"+"Request|Restart|Resume|Start|Stop|Submit|Suspend|Uninstall|"+"Unregister|Wait|Debug|Measure|Ping|Repair|Resolve|Test|Trace|Connect|"+"Disconnect|Read|Receive|Send|Write|Block|Grant|Protect|Revoke|Unblock|"+"Unprotect|Use|ForEach|Sort|Tee|Where";var COMPARISON_OPERATORS="-and|-as|-band|-bnot|-bor|-bxor|-casesensitive|-ccontains|-ceq|-cge|-cgt|"+"-cle|-clike|-clt|-cmatch|-cne|-cnotcontains|-cnotlike|-cnotmatch|-contains|"+"-creplace|-csplit|-eq|-exact|-f|-file|-ge|-gt|-icontains|-ieq|-ige|-igt|"+"-ile|-ilike|-ilt|-imatch|-in|-ine|-inotcontains|-inotlike|-inotmatch|"+"-ireplace|-is|-isnot|-isplit|-join|-le|-like|-lt|-match|-ne|-not|"+"-notcontains|-notin|-notlike|-notmatch|-or|-regex|-replace|-shl|-shr|"+"-split|-wildcard|-xor";var KEYWORDS={keyword:"if else foreach return do while until elseif begin for trap data dynamicparam "+"end break throw param continue finally in switch exit filter try process catch "+"hidden static parameter"};var TITLE_NAME_RE=/\w[\w\d]*((-)[\w\d]+)*/;var BACKTICK_ESCAPE={begin:"`[\\s\\S]",relevance:0};var VAR={className:"variable",variants:[{begin:/\$\B/},{className:"keyword",begin:/\$this/},{begin:/\$[\w\d][\w\d_:]*/}]};var LITERAL={className:"literal",begin:/\$(null|true|false)\b/};var QUOTE_STRING={className:"string",variants:[{begin:/"/,end:/"/},{begin:/@"/,end:/^"@/}],contains:[BACKTICK_ESCAPE,VAR,{className:"variable",begin:/\$[A-z]/,end:/[^A-z]/}]};var APOS_STRING={className:"string",variants:[{begin:/'/,end:/'/},{begin:/@'/,end:/^'@/}]};var PS_HELPTAGS={className:"doctag",variants:[{begin:/\.(synopsis|description|example|inputs|outputs|notes|link|component|role|functionality)/},{begin:/\.(parameter|forwardhelptargetname|forwardhelpcategory|remotehelprunspace|externalhelp)\s+\S+/}]};var PS_COMMENT=hljs.inherit(hljs.COMMENT(null,null),{variants:[{begin:/#/,end:/$/},{begin:/<#/,end:/#>/}],contains:[PS_HELPTAGS]});var CMDLETS={className:"built_in",variants:[{begin:"(".concat(VALID_VERBS,")+(-)[\\w\\d]+")}]};var PS_CLASS={className:"class",beginKeywords:"class enum",end:/\s*[{]/,excludeEnd:true,relevance:0,contains:[hljs.TITLE_MODE]};var PS_FUNCTION={className:"function",begin:/function\s+/,end:/\s*\{|$/,excludeEnd:true,returnBegin:true,relevance:0,contains:[{begin:"function",relevance:0,className:"keyword"},{className:"title",begin:TITLE_NAME_RE,relevance:0},{begin:/\(/,end:/\)/,className:"params",relevance:0,contains:[VAR]}]};var PS_USING={begin:/using\s/,end:/$/,returnBegin:true,contains:[QUOTE_STRING,APOS_STRING,{className:"keyword",begin:/(using|assembly|command|module|namespace|type)/}]};var PS_ARGUMENTS={variants:[{className:"operator",begin:"(".concat(COMPARISON_OPERATORS,")\\b")},{className:"literal",begin:/(-)[\w\d]+/,relevance:0}]};var STATIC_MEMBER={className:"selector-tag",begin:/::\w+\b/,end:/$/,returnBegin:true,contains:[{className:"attribute",begin:/\w+/,endsParent:true}]};var HASH_SIGNS={className:"selector-tag",begin:/\@\B/,relevance:0};var PS_NEW_OBJECT_TYPE={className:"built_in",begin:/New-Object\s+\w/,end:/$/,returnBegin:true,contains:[{begin:/New-Object\s+/,relevance:0},{className:"meta",begin:/([\w\.])+/,endsParent:true}]};var PS_METHODS={className:"function",begin:/\[.*\]\s*[\w]+[ ]??\(/,end:/$/,returnBegin:true,relevance:0,contains:[{className:"keyword",begin:"(".concat(KEYWORDS.keyword.toString().replace(/\s/g,"|"),")\\b"),endsParent:true,relevance:0},hljs.inherit(hljs.TITLE_MODE,{endsParent:true})]};var GENTLEMANS_SET=[PS_METHODS,PS_COMMENT,BACKTICK_ESCAPE,hljs.NUMBER_MODE,QUOTE_STRING,APOS_STRING,CMDLETS,VAR,LITERAL,HASH_SIGNS];var PS_TYPE={begin:/\[/,end:/\]/,excludeBegin:true,excludeEnd:true,relevance:0,contains:[].concat("self",GENTLEMANS_SET,{begin:"("+TYPES.join("|")+")",className:"built_in",relevance:0},{className:"type",begin:/[\.\w\d]+/,relevance:0})};PS_METHODS.contains.unshift(PS_TYPE);return{aliases:["ps","ps1"],lexemes:/-?[A-z\.\-]+/,case_insensitive:true,keywords:KEYWORDS,contains:GENTLEMANS_SET.concat(PS_CLASS,PS_FUNCTION,PS_USING,PS_ARGUMENTS,PS_TYPE)}});hljs.registerLanguage("swift",function(hljs){var SWIFT_KEYWORDS={keyword:"#available #colorLiteral #column #else #elseif #endif #file "+"#fileLiteral #function #if #imageLiteral #line #selector #sourceLocation "+"_ __COLUMN__ __FILE__ __FUNCTION__ __LINE__ Any as as! as? associatedtype "+"associativity break case catch class continue convenience default defer deinit didSet do "+"dynamic dynamicType else enum extension fallthrough false fileprivate final for func "+"get guard if import in indirect infix init inout internal is lazy left let "+"mutating nil none nonmutating open operator optional override postfix precedence "+"prefix private protocol Protocol public repeat required rethrows return "+"right self Self set static struct subscript super switch throw throws true "+"try try! try? Type typealias unowned var weak where while willSet",literal:"true false nil",built_in:"abs advance alignof alignofValue anyGenerator assert assertionFailure "+"bridgeFromObjectiveC bridgeFromObjectiveCUnconditional bridgeToObjectiveC "+"bridgeToObjectiveCUnconditional c contains count countElements countLeadingZeros "+"debugPrint debugPrintln distance dropFirst dropLast dump encodeBitsAsWords "+"enumerate equal fatalError filter find getBridgedObjectiveCType getVaList "+"indices insertionSort isBridgedToObjectiveC isBridgedVerbatimToObjectiveC "+"isUniquelyReferenced isUniquelyReferencedNonObjC join lazy lexicographicalCompare "+"map max maxElement min minElement numericCast overlaps partition posix "+"precondition preconditionFailure print println quickSort readLine reduce reflect "+"reinterpretCast reverse roundUpToAlignment sizeof sizeofValue sort split "+"startsWith stride strideof strideofValue swap toString transcode "+"underestimateCount unsafeAddressOf unsafeBitCast unsafeDowncast unsafeUnwrap "+"unsafeReflect withExtendedLifetime withObjectAtPlusZero withUnsafePointer "+"withUnsafePointerToObject withUnsafeMutablePointer withUnsafeMutablePointers "+"withUnsafePointer withUnsafePointers withVaList zip"};var TYPE={className:"type",begin:"\\b[A-Z][\\wÀ-ʸ']*",relevance:0};var OPTIONAL_USING_TYPE={className:"type",begin:"\\b[A-Z][\\wÀ-ʸ']*[!?]"};var BLOCK_COMMENT=hljs.COMMENT("/\\*","\\*/",{contains:["self"]});var SUBST={className:"subst",begin:/\\\(/,end:"\\)",keywords:SWIFT_KEYWORDS,contains:[]};var STRING={className:"string",contains:[hljs.BACKSLASH_ESCAPE,SUBST],variants:[{begin:/"""/,end:/"""/},{begin:/"/,end:/"/}]};var NUMBERS={className:"number",begin:"\\b([\\d_]+(\\.[\\deE_]+)?|0x[a-fA-F0-9_]+(\\.[a-fA-F0-9p_]+)?|0b[01_]+|0o[0-7_]+)\\b",relevance:0};SUBST.contains=[NUMBERS];return{keywords:SWIFT_KEYWORDS,contains:[STRING,hljs.C_LINE_COMMENT_MODE,BLOCK_COMMENT,OPTIONAL_USING_TYPE,TYPE,NUMBERS,{className:"function",beginKeywords:"func",end:"{",excludeEnd:true,contains:[hljs.inherit(hljs.TITLE_MODE,{begin:/[A-Za-z$_][0-9A-Za-z$_]*/}),{begin:/</,end:/>/},{className:"params",begin:/\(/,end:/\)/,endsParent:true,keywords:SWIFT_KEYWORDS,contains:["self",NUMBERS,STRING,hljs.C_BLOCK_COMMENT_MODE,{begin:":"}],illegal:/["']/}],illegal:/\[|%/},{className:"class",beginKeywords:"struct protocol class extension enum",keywords:SWIFT_KEYWORDS,end:"\\{",excludeEnd:true,contains:[hljs.inherit(hljs.TITLE_MODE,{begin:/[A-Za-z$_][\u00C0-\u02B80-9A-Za-z$_]*/})]},{className:"meta",begin:"(@discardableResult|@warn_unused_result|@exported|@lazy|@noescape|"+"@NSCopying|@NSManaged|@objc|@objcMembers|@convention|@required|"+"@noreturn|@IBAction|@IBDesignable|@IBInspectable|@IBOutlet|"+"@infix|@prefix|@postfix|@autoclosure|@testable|@available|"+"@nonobjc|@NSApplicationMain|@UIApplicationMain|@dynamicMemberLookup|"+"@propertyWrapper)"},{beginKeywords:"import",end:/$/,contains:[hljs.C_LINE_COMMENT_MODE,BLOCK_COMMENT]}]}});hljs.registerLanguage("sas",function(hljs){var SAS_KEYWORDS=""+"do if then else end until while "+""+"abort array attrib by call cards cards4 catname continue "+"datalines datalines4 delete delim delimiter display dm drop "+"endsas error file filename footnote format goto in infile "+"informat input keep label leave length libname link list "+"lostcard merge missing modify options output out page put "+"redirect remove rename replace retain return select set skip "+"startsas stop title update waitsas where window x systask "+""+"add and alter as cascade check create delete describe "+"distinct drop foreign from group having index insert into in "+"key like message modify msgtype not null on or order primary "+"references reset restrict select set table unique update "+"validate view where";var SAS_FUN=""+"abs|addr|airy|arcos|arsin|atan|attrc|attrn|band|"+"betainv|blshift|bnot|bor|brshift|bxor|byte|cdf|ceil|"+"cexist|cinv|close|cnonct|collate|compbl|compound|"+"compress|cos|cosh|css|curobs|cv|daccdb|daccdbsl|"+"daccsl|daccsyd|dacctab|dairy|date|datejul|datepart|"+"datetime|day|dclose|depdb|depdbsl|depdbsl|depsl|"+"depsl|depsyd|depsyd|deptab|deptab|dequote|dhms|dif|"+"digamma|dim|dinfo|dnum|dopen|doptname|doptnum|dread|"+"dropnote|dsname|erf|erfc|exist|exp|fappend|fclose|"+"fcol|fdelete|fetch|fetchobs|fexist|fget|fileexist|"+"filename|fileref|finfo|finv|fipname|fipnamel|"+"fipstate|floor|fnonct|fnote|fopen|foptname|foptnum|"+"fpoint|fpos|fput|fread|frewind|frlen|fsep|fuzz|"+"fwrite|gaminv|gamma|getoption|getvarc|getvarn|hbound|"+"hms|hosthelp|hour|ibessel|index|indexc|indexw|input|"+"inputc|inputn|int|intck|intnx|intrr|irr|jbessel|"+"juldate|kurtosis|lag|lbound|left|length|lgamma|"+"libname|libref|log|log10|log2|logpdf|logpmf|logsdf|"+"lowcase|max|mdy|mean|min|minute|mod|month|mopen|"+"mort|n|netpv|nmiss|normal|note|npv|open|ordinal|"+"pathname|pdf|peek|peekc|pmf|point|poisson|poke|"+"probbeta|probbnml|probchi|probf|probgam|probhypr|"+"probit|probnegb|probnorm|probt|put|putc|putn|qtr|"+"quote|ranbin|rancau|ranexp|rangam|range|rank|rannor|"+"ranpoi|rantbl|rantri|ranuni|repeat|resolve|reverse|"+"rewind|right|round|saving|scan|sdf|second|sign|"+"sin|sinh|skewness|soundex|spedis|sqrt|std|stderr|"+"stfips|stname|stnamel|substr|sum|symget|sysget|"+"sysmsg|sysprod|sysrc|system|tan|tanh|time|timepart|"+"tinv|tnonct|today|translate|tranwrd|trigamma|"+"trim|trimn|trunc|uniform|upcase|uss|var|varfmt|"+"varinfmt|varlabel|varlen|varname|varnum|varray|"+"varrayx|vartype|verify|vformat|vformatd|vformatdx|"+"vformatn|vformatnx|vformatw|vformatwx|vformatx|"+"vinarray|vinarrayx|vinformat|vinformatd|vinformatdx|"+"vinformatn|vinformatnx|vinformatw|vinformatwx|"+"vinformatx|vlabel|vlabelx|vlength|vlengthx|vname|"+"vnamex|vtype|vtypex|weekday|year|yyq|zipfips|zipname|"+"zipnamel|zipstate";var SAS_MACRO_FUN="bquote|nrbquote|cmpres|qcmpres|compstor|"+"datatyp|display|do|else|end|eval|global|goto|"+"if|index|input|keydef|label|left|length|let|"+"local|lowcase|macro|mend|nrbquote|nrquote|"+"nrstr|put|qcmpres|qleft|qlowcase|qscan|"+"qsubstr|qsysfunc|qtrim|quote|qupcase|scan|str|"+"substr|superq|syscall|sysevalf|sysexec|sysfunc|"+"sysget|syslput|sysprod|sysrc|sysrput|then|to|"+"trim|unquote|until|upcase|verify|while|window";return{aliases:["sas","SAS"],case_insensitive:true,keywords:{literal:"null missing _all_ _automatic_ _character_ _infile_ "+"_n_ _name_ _null_ _numeric_ _user_ _webout_",meta:SAS_KEYWORDS},contains:[{className:"keyword",begin:/^\s*(proc [\w\d_]+|data|run|quit)[\s\;]/},{className:"variable",begin:/\&[a-zA-Z_\&][a-zA-Z0-9_]*\.?/},{className:"emphasis",begin:/^\s*datalines|cards.*;/,end:/^\s*;\s*$/},{className:"built_in",begin:"%("+SAS_MACRO_FUN+")"},{className:"name",begin:/%[a-zA-Z_][a-zA-Z_0-9]*/},{className:"meta",begin:"[^%]("+SAS_FUN+")[(]"},{className:"string",variants:[hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE]},hljs.COMMENT("\\*",";"),hljs.C_BLOCK_COMMENT_MODE]}});hljs.registerLanguage("gradle",function(hljs){return{case_insensitive:true,keywords:{keyword:"task project allprojects subprojects artifacts buildscript configurations "+"dependencies repositories sourceSets description delete from into include "+"exclude source classpath destinationDir includes options sourceCompatibility "+"targetCompatibility group flatDir doLast doFirst flatten todir fromdir ant "+"def abstract break case catch continue default do else extends final finally "+"for if implements instanceof native new private protected public return static "+"switch synchronized throw throws transient try volatile while strictfp package "+"import false null super this true antlrtask checkstyle codenarc copy boolean "+"byte char class double float int interface long short void compile runTime "+"file fileTree abs any append asList asWritable call collect compareTo count "+"div dump each eachByte eachFile eachLine every find findAll flatten getAt "+"getErr getIn getOut getText grep immutable inject inspect intersect invokeMethods "+"isCase join leftShift minus multiply newInputStream newOutputStream newPrintWriter "+"newReader newWriter next plus pop power previous print println push putAt read "+"readBytes readLines reverse reverseEach round size sort splitEachLine step subMap "+"times toInteger toList tokenize upto waitForOrKill withPrintWriter withReader "+"withStream withWriter withWriterAppend write writeLine"},contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.NUMBER_MODE,hljs.REGEXP_MODE]}});hljs.registerLanguage("stylus",function(hljs){var VARIABLE={className:"variable",begin:"\\$"+hljs.IDENT_RE};var HEX_COLOR={className:"number",begin:"#([a-fA-F0-9]{6}|[a-fA-F0-9]{3})"};var AT_KEYWORDS=["charset","css","debug","extend","font-face","for","import","include","media","mixin","page","warn","while"];var PSEUDO_SELECTORS=["after","before","first-letter","first-line","active","first-child","focus","hover","lang","link","visited"];var TAGS=["a","abbr","address","article","aside","audio","b","blockquote","body","button","canvas","caption","cite","code","dd","del","details","dfn","div","dl","dt","em","fieldset","figcaption","figure","footer","form","h1","h2","h3","h4","h5","h6","header","hgroup","html","i","iframe","img","input","ins","kbd","label","legend","li","mark","menu","nav","object","ol","p","q","quote","samp","section","span","strong","summary","sup","table","tbody","td","textarea","tfoot","th","thead","time","tr","ul","var","video"];var LOOKAHEAD_TAG_END="(?=[\\.\\s\\n\\[\\:,])";var ATTRIBUTES=["align-content","align-items","align-self","animation","animation-delay","animation-direction","animation-duration","animation-fill-mode","animation-iteration-count","animation-name","animation-play-state","animation-timing-function","auto","backface-visibility","background","background-attachment","background-clip","background-color","background-image","background-origin","background-position","background-repeat","background-size","border","border-bottom","border-bottom-color","border-bottom-left-radius","border-bottom-right-radius","border-bottom-style","border-bottom-width","border-collapse","border-color","border-image","border-image-outset","border-image-repeat","border-image-slice","border-image-source","border-image-width","border-left","border-left-color","border-left-style","border-left-width","border-radius","border-right","border-right-color","border-right-style","border-right-width","border-spacing","border-style","border-top","border-top-color","border-top-left-radius","border-top-right-radius","border-top-style","border-top-width","border-width","bottom","box-decoration-break","box-shadow","box-sizing","break-after","break-before","break-inside","caption-side","clear","clip","clip-path","color","column-count","column-fill","column-gap","column-rule","column-rule-color","column-rule-style","column-rule-width","column-span","column-width","columns","content","counter-increment","counter-reset","cursor","direction","display","empty-cells","filter","flex","flex-basis","flex-direction","flex-flow","flex-grow","flex-shrink","flex-wrap","float","font","font-family","font-feature-settings","font-kerning","font-language-override","font-size","font-size-adjust","font-stretch","font-style","font-variant","font-variant-ligatures","font-weight","height","hyphens","icon","image-orientation","image-rendering","image-resolution","ime-mode","inherit","initial","justify-content","left","letter-spacing","line-height","list-style","list-style-image","list-style-position","list-style-type","margin","margin-bottom","margin-left","margin-right","margin-top","marks","mask","max-height","max-width","min-height","min-width","nav-down","nav-index","nav-left","nav-right","nav-up","none","normal","object-fit","object-position","opacity","order","orphans","outline","outline-color","outline-offset","outline-style","outline-width","overflow","overflow-wrap","overflow-x","overflow-y","padding","padding-bottom","padding-left","padding-right","padding-top","page-break-after","page-break-before","page-break-inside","perspective","perspective-origin","pointer-events","position","quotes","resize","right","tab-size","table-layout","text-align","text-align-last","text-decoration","text-decoration-color","text-decoration-line","text-decoration-style","text-indent","text-overflow","text-rendering","text-shadow","text-transform","text-underline-position","top","transform","transform-origin","transform-style","transition","transition-delay","transition-duration","transition-property","transition-timing-function","unicode-bidi","vertical-align","visibility","white-space","widows","width","word-break","word-spacing","word-wrap","z-index"];var ILLEGAL=["\\?","(\\bReturn\\b)","(\\bEnd\\b)","(\\bend\\b)","(\\bdef\\b)",";","#\\s","\\*\\s","===\\s","\\|","%"];return{aliases:["styl"],case_insensitive:false,keywords:"if else for in",illegal:"("+ILLEGAL.join("|")+")",contains:[hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,HEX_COLOR,{begin:"\\.[a-zA-Z][a-zA-Z0-9_-]*"+LOOKAHEAD_TAG_END,className:"selector-class"},{begin:"\\#[a-zA-Z][a-zA-Z0-9_-]*"+LOOKAHEAD_TAG_END,className:"selector-id"},{begin:"\\b("+TAGS.join("|")+")"+LOOKAHEAD_TAG_END,className:"selector-tag"},{begin:"&?:?:\\b("+PSEUDO_SELECTORS.join("|")+")"+LOOKAHEAD_TAG_END},{begin:"@("+AT_KEYWORDS.join("|")+")\\b"},VARIABLE,hljs.CSS_NUMBER_MODE,hljs.NUMBER_MODE,{className:"function",begin:"^[a-zA-Z][a-zA-Z0-9_-]*\\(.*\\)",illegal:"[\\n]",returnBegin:true,contains:[{className:"title",begin:"\\b[a-zA-Z][a-zA-Z0-9_-]*"},{className:"params",begin:/\(/,end:/\)/,contains:[HEX_COLOR,VARIABLE,hljs.APOS_STRING_MODE,hljs.CSS_NUMBER_MODE,hljs.NUMBER_MODE,hljs.QUOTE_STRING_MODE]}]},{className:"attribute",begin:"\\b("+ATTRIBUTES.reverse().join("|")+")\\b",starts:{end:/;|$/,contains:[HEX_COLOR,VARIABLE,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.CSS_NUMBER_MODE,hljs.NUMBER_MODE,hljs.C_BLOCK_COMMENT_MODE],illegal:/\./,relevance:0}}]}});hljs.registerLanguage("profile",function(hljs){return{contains:[hljs.C_NUMBER_MODE,{begin:"[a-zA-Z_][\\da-zA-Z_]+\\.[\\da-zA-Z_]{1,3}",end:":",excludeEnd:true},{begin:"(ncalls|tottime|cumtime)",end:"$",keywords:"ncalls tottime|10 cumtime|10 filename",relevance:10},{begin:"function calls",end:"$",contains:[hljs.C_NUMBER_MODE],relevance:10},hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,{className:"string",begin:"\\(",end:"\\)$",excludeBegin:true,excludeEnd:true,relevance:0}]}});hljs.registerLanguage("sqf",function(hljs){var VARIABLE={className:"variable",begin:/\b_+[a-zA-Z_]\w*/};var FUNCTION={className:"title",begin:/[a-zA-Z][a-zA-Z0-9]+_fnc_\w*/};var STRINGS={className:"string",variants:[{begin:'"',end:'"',contains:[{begin:'""',relevance:0}]},{begin:"'",end:"'",contains:[{begin:"''",relevance:0}]}]};var PREPROCESSOR={className:"meta",begin:/#\s*[a-z]+\b/,end:/$/,keywords:{"meta-keyword":"define undef ifdef ifndef else endif include"},contains:[{begin:/\\\n/,relevance:0},hljs.inherit(STRINGS,{className:"meta-string"}),{className:"meta-string",begin:/<[^\n>]*>/,end:/$/,illegal:"\\n"},hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE]};return{aliases:["sqf"],case_insensitive:true,keywords:{keyword:"case catch default do else exit exitWith for forEach from if "+"private switch then throw to try waitUntil while with",built_in:"abs accTime acos action actionIDs actionKeys actionKeysImages actionKeysNames "+"actionKeysNamesArray actionName actionParams activateAddons activatedAddons activateKey "+"add3DENConnection add3DENEventHandler add3DENLayer addAction addBackpack addBackpackCargo "+"addBackpackCargoGlobal addBackpackGlobal addCamShake addCuratorAddons addCuratorCameraArea "+"addCuratorEditableObjects addCuratorEditingArea addCuratorPoints addEditorObject addEventHandler "+"addForce addGoggles addGroupIcon addHandgunItem addHeadgear addItem addItemCargo "+"addItemCargoGlobal addItemPool addItemToBackpack addItemToUniform addItemToVest addLiveStats "+"addMagazine addMagazineAmmoCargo addMagazineCargo addMagazineCargoGlobal addMagazineGlobal "+"addMagazinePool addMagazines addMagazineTurret addMenu addMenuItem addMissionEventHandler "+"addMPEventHandler addMusicEventHandler addOwnedMine addPlayerScores addPrimaryWeaponItem "+"addPublicVariableEventHandler addRating addResources addScore addScoreSide addSecondaryWeaponItem "+"addSwitchableUnit addTeamMember addToRemainsCollector addTorque addUniform addVehicle addVest "+"addWaypoint addWeapon addWeaponCargo addWeaponCargoGlobal addWeaponGlobal addWeaponItem "+"addWeaponPool addWeaponTurret admin agent agents AGLToASL aimedAtTarget aimPos airDensityRTD "+"airplaneThrottle airportSide AISFinishHeal alive all3DENEntities allAirports allControls "+"allCurators allCutLayers allDead allDeadMen allDisplays allGroups allMapMarkers allMines "+"allMissionObjects allow3DMode allowCrewInImmobile allowCuratorLogicIgnoreAreas allowDamage "+"allowDammage allowFileOperations allowFleeing allowGetIn allowSprint allPlayers allSimpleObjects "+"allSites allTurrets allUnits allUnitsUAV allVariables ammo ammoOnPylon and animate animateBay "+"animateDoor animatePylon animateSource animationNames animationPhase animationSourcePhase "+"animationState append apply armoryPoints arrayIntersect asin ASLToAGL ASLToATL assert "+"assignAsCargo assignAsCargoIndex assignAsCommander assignAsDriver assignAsGunner assignAsTurret "+"assignCurator assignedCargo assignedCommander assignedDriver assignedGunner assignedItems "+"assignedTarget assignedTeam assignedVehicle assignedVehicleRole assignItem assignTeam "+"assignToAirport atan atan2 atg ATLToASL attachedObject attachedObjects attachedTo attachObject "+"attachTo attackEnabled backpack backpackCargo backpackContainer backpackItems backpackMagazines "+"backpackSpaceFor behaviour benchmark binocular boundingBox boundingBoxReal boundingCenter "+"breakOut breakTo briefingName buildingExit buildingPos buttonAction buttonSetAction cadetMode "+"call callExtension camCommand camCommit camCommitPrepared camCommitted camConstuctionSetParams "+"camCreate camDestroy cameraEffect cameraEffectEnableHUD cameraInterest cameraOn cameraView "+"campaignConfigFile camPreload camPreloaded camPrepareBank camPrepareDir camPrepareDive "+"camPrepareFocus camPrepareFov camPrepareFovRange camPreparePos camPrepareRelPos camPrepareTarget "+"camSetBank camSetDir camSetDive camSetFocus camSetFov camSetFovRange camSetPos camSetRelPos "+"camSetTarget camTarget camUseNVG canAdd canAddItemToBackpack canAddItemToUniform canAddItemToVest "+"cancelSimpleTaskDestination canFire canMove canSlingLoad canStand canSuspend "+"canTriggerDynamicSimulation canUnloadInCombat canVehicleCargo captive captiveNum cbChecked "+"cbSetChecked ceil channelEnabled cheatsEnabled checkAIFeature checkVisibility className "+"clearAllItemsFromBackpack clearBackpackCargo clearBackpackCargoGlobal clearGroupIcons "+"clearItemCargo clearItemCargoGlobal clearItemPool clearMagazineCargo clearMagazineCargoGlobal "+"clearMagazinePool clearOverlay clearRadio clearWeaponCargo clearWeaponCargoGlobal clearWeaponPool "+"clientOwner closeDialog closeDisplay closeOverlay collapseObjectTree collect3DENHistory "+"collectiveRTD combatMode commandArtilleryFire commandChat commander commandFire commandFollow "+"commandFSM commandGetOut commandingMenu commandMove commandRadio commandStop "+"commandSuppressiveFire commandTarget commandWatch comment commitOverlay compile compileFinal "+"completedFSM composeText configClasses configFile configHierarchy configName configProperties "+"configSourceAddonList configSourceMod configSourceModList confirmSensorTarget "+"connectTerminalToUAV controlsGroupCtrl copyFromClipboard copyToClipboard copyWaypoints cos count "+"countEnemy countFriendly countSide countType countUnknown create3DENComposition create3DENEntity "+"createAgent createCenter createDialog createDiaryLink createDiaryRecord createDiarySubject "+"createDisplay createGearDialog createGroup createGuardedPoint createLocation createMarker "+"createMarkerLocal createMenu createMine createMissionDisplay createMPCampaignDisplay "+"createSimpleObject createSimpleTask createSite createSoundSource createTask createTeam "+"createTrigger createUnit createVehicle createVehicleCrew createVehicleLocal crew ctAddHeader "+"ctAddRow ctClear ctCurSel ctData ctFindHeaderRows ctFindRowHeader ctHeaderControls ctHeaderCount "+"ctRemoveHeaders ctRemoveRows ctrlActivate ctrlAddEventHandler ctrlAngle ctrlAutoScrollDelay "+"ctrlAutoScrollRewind ctrlAutoScrollSpeed ctrlChecked ctrlClassName ctrlCommit ctrlCommitted "+"ctrlCreate ctrlDelete ctrlEnable ctrlEnabled ctrlFade ctrlHTMLLoaded ctrlIDC ctrlIDD "+"ctrlMapAnimAdd ctrlMapAnimClear ctrlMapAnimCommit ctrlMapAnimDone ctrlMapCursor ctrlMapMouseOver "+"ctrlMapScale ctrlMapScreenToWorld ctrlMapWorldToScreen ctrlModel ctrlModelDirAndUp ctrlModelScale "+"ctrlParent ctrlParentControlsGroup ctrlPosition ctrlRemoveAllEventHandlers ctrlRemoveEventHandler "+"ctrlScale ctrlSetActiveColor ctrlSetAngle ctrlSetAutoScrollDelay ctrlSetAutoScrollRewind "+"ctrlSetAutoScrollSpeed ctrlSetBackgroundColor ctrlSetChecked ctrlSetEventHandler ctrlSetFade "+"ctrlSetFocus ctrlSetFont ctrlSetFontH1 ctrlSetFontH1B ctrlSetFontH2 ctrlSetFontH2B ctrlSetFontH3 "+"ctrlSetFontH3B ctrlSetFontH4 ctrlSetFontH4B ctrlSetFontH5 ctrlSetFontH5B ctrlSetFontH6 "+"ctrlSetFontH6B ctrlSetFontHeight ctrlSetFontHeightH1 ctrlSetFontHeightH2 ctrlSetFontHeightH3 "+"ctrlSetFontHeightH4 ctrlSetFontHeightH5 ctrlSetFontHeightH6 ctrlSetFontHeightSecondary "+"ctrlSetFontP ctrlSetFontPB ctrlSetFontSecondary ctrlSetForegroundColor ctrlSetModel "+"ctrlSetModelDirAndUp ctrlSetModelScale ctrlSetPixelPrecision ctrlSetPosition ctrlSetScale "+"ctrlSetStructuredText ctrlSetText ctrlSetTextColor ctrlSetTooltip ctrlSetTooltipColorBox "+"ctrlSetTooltipColorShade ctrlSetTooltipColorText ctrlShow ctrlShown ctrlText ctrlTextHeight "+"ctrlTextWidth ctrlType ctrlVisible ctRowControls ctRowCount ctSetCurSel ctSetData "+"ctSetHeaderTemplate ctSetRowTemplate ctSetValue ctValue curatorAddons curatorCamera "+"curatorCameraArea curatorCameraAreaCeiling curatorCoef curatorEditableObjects curatorEditingArea "+"curatorEditingAreaType curatorMouseOver curatorPoints curatorRegisteredObjects curatorSelected "+"curatorWaypointCost current3DENOperation currentChannel currentCommand currentMagazine "+"currentMagazineDetail currentMagazineDetailTurret currentMagazineTurret currentMuzzle "+"currentNamespace currentTask currentTasks currentThrowable currentVisionMode currentWaypoint "+"currentWeapon currentWeaponMode currentWeaponTurret currentZeroing cursorObject cursorTarget "+"customChat customRadio cutFadeOut cutObj cutRsc cutText damage date dateToNumber daytime "+"deActivateKey debriefingText debugFSM debugLog deg delete3DENEntities deleteAt deleteCenter "+"deleteCollection deleteEditorObject deleteGroup deleteGroupWhenEmpty deleteIdentity "+"deleteLocation deleteMarker deleteMarkerLocal deleteRange deleteResources deleteSite deleteStatus "+"deleteTeam deleteVehicle deleteVehicleCrew deleteWaypoint detach detectedMines "+"diag_activeMissionFSMs diag_activeScripts diag_activeSQFScripts diag_activeSQSScripts "+"diag_captureFrame diag_captureFrameToFile diag_captureSlowFrame diag_codePerformance "+"diag_drawMode diag_enable diag_enabled diag_fps diag_fpsMin diag_frameNo diag_lightNewLoad "+"diag_list diag_log diag_logSlowFrame diag_mergeConfigFile diag_recordTurretLimits "+"diag_setLightNew diag_tickTime diag_toggle dialog diarySubjectExists didJIP didJIPOwner "+"difficulty difficultyEnabled difficultyEnabledRTD difficultyOption direction directSay disableAI "+"disableCollisionWith disableConversation disableDebriefingStats disableMapIndicators "+"disableNVGEquipment disableRemoteSensors disableSerialization disableTIEquipment "+"disableUAVConnectability disableUserInput displayAddEventHandler displayCtrl displayParent "+"displayRemoveAllEventHandlers displayRemoveEventHandler displaySetEventHandler dissolveTeam "+"distance distance2D distanceSqr distributionRegion do3DENAction doArtilleryFire doFire doFollow "+"doFSM doGetOut doMove doorPhase doStop doSuppressiveFire doTarget doWatch drawArrow drawEllipse "+"drawIcon drawIcon3D drawLine drawLine3D drawLink drawLocation drawPolygon drawRectangle "+"drawTriangle driver drop dynamicSimulationDistance dynamicSimulationDistanceCoef "+"dynamicSimulationEnabled dynamicSimulationSystemEnabled echo edit3DENMissionAttributes editObject "+"editorSetEventHandler effectiveCommander emptyPositions enableAI enableAIFeature "+"enableAimPrecision enableAttack enableAudioFeature enableAutoStartUpRTD enableAutoTrimRTD "+"enableCamShake enableCaustics enableChannel enableCollisionWith enableCopilot "+"enableDebriefingStats enableDiagLegend enableDynamicSimulation enableDynamicSimulationSystem "+"enableEndDialog enableEngineArtillery enableEnvironment enableFatigue enableGunLights "+"enableInfoPanelComponent enableIRLasers enableMimics enablePersonTurret enableRadio enableReload "+"enableRopeAttach enableSatNormalOnDetail enableSaving enableSentences enableSimulation "+"enableSimulationGlobal enableStamina enableTeamSwitch enableTraffic enableUAVConnectability "+"enableUAVWaypoints enableVehicleCargo enableVehicleSensor enableWeaponDisassembly "+"endLoadingScreen endMission engineOn enginesIsOnRTD enginesRpmRTD enginesTorqueRTD entities "+"environmentEnabled estimatedEndServerTime estimatedTimeLeft evalObjectArgument everyBackpack "+"everyContainer exec execEditorScript execFSM execVM exp expectedDestination exportJIPMessages "+"eyeDirection eyePos face faction fadeMusic fadeRadio fadeSound fadeSpeech failMission "+"fillWeaponsFromPool find findCover findDisplay findEditorObject findEmptyPosition "+"findEmptyPositionReady findIf findNearestEnemy finishMissionInit finite fire fireAtTarget "+"firstBackpack flag flagAnimationPhase flagOwner flagSide flagTexture fleeing floor flyInHeight "+"flyInHeightASL fog fogForecast fogParams forceAddUniform forcedMap forceEnd forceFlagTexture "+"forceFollowRoad forceMap forceRespawn forceSpeed forceWalk forceWeaponFire forceWeatherChange "+"forEachMember forEachMemberAgent forEachMemberTeam forgetTarget format formation "+"formationDirection formationLeader formationMembers formationPosition formationTask formatText "+"formLeader freeLook fromEditor fuel fullCrew gearIDCAmmoCount gearSlotAmmoCount gearSlotData "+"get3DENActionState get3DENAttribute get3DENCamera get3DENConnections get3DENEntity "+"get3DENEntityID get3DENGrid get3DENIconsVisible get3DENLayerEntities get3DENLinesVisible "+"get3DENMissionAttribute get3DENMouseOver get3DENSelected getAimingCoef getAllEnvSoundControllers "+"getAllHitPointsDamage getAllOwnedMines getAllSoundControllers getAmmoCargo getAnimAimPrecision "+"getAnimSpeedCoef getArray getArtilleryAmmo getArtilleryComputerSettings getArtilleryETA "+"getAssignedCuratorLogic getAssignedCuratorUnit getBackpackCargo getBleedingRemaining "+"getBurningValue getCameraViewDirection getCargoIndex getCenterOfMass getClientState "+"getClientStateNumber getCompatiblePylonMagazines getConnectedUAV getContainerMaxLoad "+"getCursorObjectParams getCustomAimCoef getDammage getDescription getDir getDirVisual "+"getDLCAssetsUsage getDLCAssetsUsageByName getDLCs getEditorCamera getEditorMode "+"getEditorObjectScope getElevationOffset getEnvSoundController getFatigue getForcedFlagTexture "+"getFriend getFSMVariable getFuelCargo getGroupIcon getGroupIconParams getGroupIcons getHideFrom "+"getHit getHitIndex getHitPointDamage getItemCargo getMagazineCargo getMarkerColor getMarkerPos "+"getMarkerSize getMarkerType getMass getMissionConfig getMissionConfigValue getMissionDLCs "+"getMissionLayerEntities getModelInfo getMousePosition getMusicPlayedTime getNumber "+"getObjectArgument getObjectChildren getObjectDLC getObjectMaterials getObjectProxy "+"getObjectTextures getObjectType getObjectViewDistance getOxygenRemaining getPersonUsedDLCs "+"getPilotCameraDirection getPilotCameraPosition getPilotCameraRotation getPilotCameraTarget "+"getPlateNumber getPlayerChannel getPlayerScores getPlayerUID getPos getPosASL getPosASLVisual "+"getPosASLW getPosATL getPosATLVisual getPosVisual getPosWorld getPylonMagazines getRelDir "+"getRelPos getRemoteSensorsDisabled getRepairCargo getResolution getShadowDistance getShotParents "+"getSlingLoad getSoundController getSoundControllerResult getSpeed getStamina getStatValue "+"getSuppression getTerrainGrid getTerrainHeightASL getText getTotalDLCUsageTime getUnitLoadout "+"getUnitTrait getUserMFDText getUserMFDvalue getVariable getVehicleCargo getWeaponCargo "+"getWeaponSway getWingsOrientationRTD getWingsPositionRTD getWPPos glanceAt globalChat globalRadio "+"goggles goto group groupChat groupFromNetId groupIconSelectable groupIconsVisible groupId "+"groupOwner groupRadio groupSelectedUnits groupSelectUnit gunner gusts halt handgunItems "+"handgunMagazine handgunWeapon handsHit hasInterface hasPilotCamera hasWeapon hcAllGroups "+"hcGroupParams hcLeader hcRemoveAllGroups hcRemoveGroup hcSelected hcSelectGroup hcSetGroup "+"hcShowBar hcShownBar headgear hideBody hideObject hideObjectGlobal hideSelection hint hintC "+"hintCadet hintSilent hmd hostMission htmlLoad HUDMovementLevels humidity image importAllGroups "+"importance in inArea inAreaArray incapacitatedState inflame inflamed infoPanel "+"infoPanelComponentEnabled infoPanelComponents infoPanels inGameUISetEventHandler inheritsFrom "+"initAmbientLife inPolygon inputAction inRangeOfArtillery insertEditorObject intersect is3DEN "+"is3DENMultiplayer isAbleToBreathe isAgent isArray isAutoHoverOn isAutonomous isAutotest "+"isBleeding isBurning isClass isCollisionLightOn isCopilotEnabled isDamageAllowed isDedicated "+"isDLCAvailable isEngineOn isEqualTo isEqualType isEqualTypeAll isEqualTypeAny isEqualTypeArray "+"isEqualTypeParams isFilePatchingEnabled isFlashlightOn isFlatEmpty isForcedWalk isFormationLeader "+"isGroupDeletedWhenEmpty isHidden isInRemainsCollector isInstructorFigureEnabled isIRLaserOn "+"isKeyActive isKindOf isLaserOn isLightOn isLocalized isManualFire isMarkedForCollection "+"isMultiplayer isMultiplayerSolo isNil isNull isNumber isObjectHidden isObjectRTD isOnRoad "+"isPipEnabled isPlayer isRealTime isRemoteExecuted isRemoteExecutedJIP isServer isShowing3DIcons "+"isSimpleObject isSprintAllowed isStaminaEnabled isSteamMission isStreamFriendlyUIEnabled isText "+"isTouchingGround isTurnedOut isTutHintsEnabled isUAVConnectable isUAVConnected isUIContext "+"isUniformAllowed isVehicleCargo isVehicleRadarOn isVehicleSensorEnabled isWalking "+"isWeaponDeployed isWeaponRested itemCargo items itemsWithMagazines join joinAs joinAsSilent "+"joinSilent joinString kbAddDatabase kbAddDatabaseTargets kbAddTopic kbHasTopic kbReact "+"kbRemoveTopic kbTell kbWasSaid keyImage keyName knowsAbout land landAt landResult language "+"laserTarget lbAdd lbClear lbColor lbColorRight lbCurSel lbData lbDelete lbIsSelected lbPicture "+"lbPictureRight lbSelection lbSetColor lbSetColorRight lbSetCurSel lbSetData lbSetPicture "+"lbSetPictureColor lbSetPictureColorDisabled lbSetPictureColorSelected lbSetPictureRight "+"lbSetPictureRightColor lbSetPictureRightColorDisabled lbSetPictureRightColorSelected "+"lbSetSelectColor lbSetSelectColorRight lbSetSelected lbSetText lbSetTextRight lbSetTooltip "+"lbSetValue lbSize lbSort lbSortByValue lbText lbTextRight lbValue leader leaderboardDeInit "+"leaderboardGetRows leaderboardInit leaderboardRequestRowsFriends leaderboardsRequestUploadScore "+"leaderboardsRequestUploadScoreKeepBest leaderboardState leaveVehicle libraryCredits "+"libraryDisclaimers lifeState lightAttachObject lightDetachObject lightIsOn lightnings limitSpeed "+"linearConversion lineIntersects lineIntersectsObjs lineIntersectsSurfaces lineIntersectsWith "+"linkItem list listObjects listRemoteTargets listVehicleSensors ln lnbAddArray lnbAddColumn "+"lnbAddRow lnbClear lnbColor lnbCurSelRow lnbData lnbDeleteColumn lnbDeleteRow "+"lnbGetColumnsPosition lnbPicture lnbSetColor lnbSetColumnsPos lnbSetCurSelRow lnbSetData "+"lnbSetPicture lnbSetText lnbSetValue lnbSize lnbSort lnbSortByValue lnbText lnbValue load loadAbs "+"loadBackpack loadFile loadGame loadIdentity loadMagazine loadOverlay loadStatus loadUniform "+"loadVest local localize locationPosition lock lockCameraTo lockCargo lockDriver locked "+"lockedCargo lockedDriver lockedTurret lockIdentity lockTurret lockWP log logEntities logNetwork "+"logNetworkTerminate lookAt lookAtPos magazineCargo magazines magazinesAllTurrets magazinesAmmo "+"magazinesAmmoCargo magazinesAmmoFull magazinesDetail magazinesDetailBackpack "+"magazinesDetailUniform magazinesDetailVest magazinesTurret magazineTurretAmmo mapAnimAdd "+"mapAnimClear mapAnimCommit mapAnimDone mapCenterOnCamera mapGridPosition markAsFinishedOnSteam "+"markerAlpha markerBrush markerColor markerDir markerPos markerShape markerSize markerText "+"markerType max members menuAction menuAdd menuChecked menuClear menuCollapse menuData menuDelete "+"menuEnable menuEnabled menuExpand menuHover menuPicture menuSetAction menuSetCheck menuSetData "+"menuSetPicture menuSetValue menuShortcut menuShortcutText menuSize menuSort menuText menuURL "+"menuValue min mineActive mineDetectedBy missionConfigFile missionDifficulty missionName "+"missionNamespace missionStart missionVersion mod modelToWorld modelToWorldVisual "+"modelToWorldVisualWorld modelToWorldWorld modParams moonIntensity moonPhase morale move "+"move3DENCamera moveInAny moveInCargo moveInCommander moveInDriver moveInGunner moveInTurret "+"moveObjectToEnd moveOut moveTime moveTo moveToCompleted moveToFailed musicVolume name nameSound "+"nearEntities nearestBuilding nearestLocation nearestLocations nearestLocationWithDubbing "+"nearestObject nearestObjects nearestTerrainObjects nearObjects nearObjectsReady nearRoads "+"nearSupplies nearTargets needReload netId netObjNull newOverlay nextMenuItemIndex "+"nextWeatherChange nMenuItems not numberOfEnginesRTD numberToDate objectCurators objectFromNetId "+"objectParent objStatus onBriefingGroup onBriefingNotes onBriefingPlan onBriefingTeamSwitch "+"onCommandModeChanged onDoubleClick onEachFrame onGroupIconClick onGroupIconOverEnter "+"onGroupIconOverLeave onHCGroupSelectionChanged onMapSingleClick onPlayerConnected "+"onPlayerDisconnected onPreloadFinished onPreloadStarted onShowNewObject onTeamSwitch "+"openCuratorInterface openDLCPage openMap openSteamApp openYoutubeVideo or orderGetIn overcast "+"overcastForecast owner param params parseNumber parseSimpleArray parseText parsingNamespace "+"particlesQuality pickWeaponPool pitch pixelGrid pixelGridBase pixelGridNoUIScale pixelH pixelW "+"playableSlotsNumber playableUnits playAction playActionNow player playerRespawnTime playerSide "+"playersNumber playGesture playMission playMove playMoveNow playMusic playScriptedMission "+"playSound playSound3D position positionCameraToWorld posScreenToWorld posWorldToScreen "+"ppEffectAdjust ppEffectCommit ppEffectCommitted ppEffectCreate ppEffectDestroy ppEffectEnable "+"ppEffectEnabled ppEffectForceInNVG precision preloadCamera preloadObject preloadSound "+"preloadTitleObj preloadTitleRsc preprocessFile preprocessFileLineNumbers primaryWeapon "+"primaryWeaponItems primaryWeaponMagazine priority processDiaryLink productVersion profileName "+"profileNamespace profileNameSteam progressLoadingScreen progressPosition progressSetPosition "+"publicVariable publicVariableClient publicVariableServer pushBack pushBackUnique putWeaponPool "+"queryItemsPool queryMagazinePool queryWeaponPool rad radioChannelAdd radioChannelCreate "+"radioChannelRemove radioChannelSetCallSign radioChannelSetLabel radioVolume rain rainbow random "+"rank rankId rating rectangular registeredTasks registerTask reload reloadEnabled remoteControl "+"remoteExec remoteExecCall remoteExecutedOwner remove3DENConnection remove3DENEventHandler "+"remove3DENLayer removeAction removeAll3DENEventHandlers removeAllActions removeAllAssignedItems "+"removeAllContainers removeAllCuratorAddons removeAllCuratorCameraAreas "+"removeAllCuratorEditingAreas removeAllEventHandlers removeAllHandgunItems removeAllItems "+"removeAllItemsWithMagazines removeAllMissionEventHandlers removeAllMPEventHandlers "+"removeAllMusicEventHandlers removeAllOwnedMines removeAllPrimaryWeaponItems removeAllWeapons "+"removeBackpack removeBackpackGlobal removeCuratorAddons removeCuratorCameraArea "+"removeCuratorEditableObjects removeCuratorEditingArea removeDrawIcon removeDrawLinks "+"removeEventHandler removeFromRemainsCollector removeGoggles removeGroupIcon removeHandgunItem "+"removeHeadgear removeItem removeItemFromBackpack removeItemFromUniform removeItemFromVest "+"removeItems removeMagazine removeMagazineGlobal removeMagazines removeMagazinesTurret "+"removeMagazineTurret removeMenuItem removeMissionEventHandler removeMPEventHandler "+"removeMusicEventHandler removeOwnedMine removePrimaryWeaponItem removeSecondaryWeaponItem "+"removeSimpleTask removeSwitchableUnit removeTeamMember removeUniform removeVest removeWeapon "+"removeWeaponAttachmentCargo removeWeaponCargo removeWeaponGlobal removeWeaponTurret "+"reportRemoteTarget requiredVersion resetCamShake resetSubgroupDirection resize resources "+"respawnVehicle restartEditorCamera reveal revealMine reverse reversedMouseY roadAt "+"roadsConnectedTo roleDescription ropeAttachedObjects ropeAttachedTo ropeAttachEnabled "+"ropeAttachTo ropeCreate ropeCut ropeDestroy ropeDetach ropeEndPosition ropeLength ropes "+"ropeUnwind ropeUnwound rotorsForcesRTD rotorsRpmRTD round runInitScript safeZoneH safeZoneW "+"safeZoneWAbs safeZoneX safeZoneXAbs safeZoneY save3DENInventory saveGame saveIdentity "+"saveJoysticks saveOverlay saveProfileNamespace saveStatus saveVar savingEnabled say say2D say3D "+"scopeName score scoreSide screenshot screenToWorld scriptDone scriptName scudState "+"secondaryWeapon secondaryWeaponItems secondaryWeaponMagazine select selectBestPlaces "+"selectDiarySubject selectedEditorObjects selectEditorObject selectionNames selectionPosition "+"selectLeader selectMax selectMin selectNoPlayer selectPlayer selectRandom selectRandomWeighted "+"selectWeapon selectWeaponTurret sendAUMessage sendSimpleCommand sendTask sendTaskResult "+"sendUDPMessage serverCommand serverCommandAvailable serverCommandExecutable serverName serverTime "+"set set3DENAttribute set3DENAttributes set3DENGrid set3DENIconsVisible set3DENLayer "+"set3DENLinesVisible set3DENLogicType set3DENMissionAttribute set3DENMissionAttributes "+"set3DENModelsVisible set3DENObjectType set3DENSelected setAccTime setActualCollectiveRTD "+"setAirplaneThrottle setAirportSide setAmmo setAmmoCargo setAmmoOnPylon setAnimSpeedCoef "+"setAperture setApertureNew setArmoryPoints setAttributes setAutonomous setBehaviour "+"setBleedingRemaining setBrakesRTD setCameraInterest setCamShakeDefParams setCamShakeParams "+"setCamUseTI setCaptive setCenterOfMass setCollisionLight setCombatMode setCompassOscillation "+"setConvoySeparation setCuratorCameraAreaCeiling setCuratorCoef setCuratorEditingAreaType "+"setCuratorWaypointCost setCurrentChannel setCurrentTask setCurrentWaypoint setCustomAimCoef "+"setCustomWeightRTD setDamage setDammage setDate setDebriefingText setDefaultCamera setDestination "+"setDetailMapBlendPars setDir setDirection setDrawIcon setDriveOnPath setDropInterval "+"setDynamicSimulationDistance setDynamicSimulationDistanceCoef setEditorMode setEditorObjectScope "+"setEffectCondition setEngineRPMRTD setFace setFaceAnimation setFatigue setFeatureType "+"setFlagAnimationPhase setFlagOwner setFlagSide setFlagTexture setFog setFormation "+"setFormationTask setFormDir setFriend setFromEditor setFSMVariable setFuel setFuelCargo "+"setGroupIcon setGroupIconParams setGroupIconsSelectable setGroupIconsVisible setGroupId "+"setGroupIdGlobal setGroupOwner setGusts setHideBehind setHit setHitIndex setHitPointDamage "+"setHorizonParallaxCoef setHUDMovementLevels setIdentity setImportance setInfoPanel setLeader "+"setLightAmbient setLightAttenuation setLightBrightness setLightColor setLightDayLight "+"setLightFlareMaxDistance setLightFlareSize setLightIntensity setLightnings setLightUseFlare "+"setLocalWindParams setMagazineTurretAmmo setMarkerAlpha setMarkerAlphaLocal setMarkerBrush "+"setMarkerBrushLocal setMarkerColor setMarkerColorLocal setMarkerDir setMarkerDirLocal "+"setMarkerPos setMarkerPosLocal setMarkerShape setMarkerShapeLocal setMarkerSize "+"setMarkerSizeLocal setMarkerText setMarkerTextLocal setMarkerType setMarkerTypeLocal setMass "+"setMimic setMousePosition setMusicEffect setMusicEventHandler setName setNameSound "+"setObjectArguments setObjectMaterial setObjectMaterialGlobal setObjectProxy setObjectTexture "+"setObjectTextureGlobal setObjectViewDistance setOvercast setOwner setOxygenRemaining "+"setParticleCircle setParticleClass setParticleFire setParticleParams setParticleRandom "+"setPilotCameraDirection setPilotCameraRotation setPilotCameraTarget setPilotLight setPiPEffect "+"setPitch setPlateNumber setPlayable setPlayerRespawnTime setPos setPosASL setPosASL2 setPosASLW "+"setPosATL setPosition setPosWorld setPylonLoadOut setPylonsPriority setRadioMsg setRain "+"setRainbow setRandomLip setRank setRectangular setRepairCargo setRotorBrakeRTD setShadowDistance "+"setShotParents setSide setSimpleTaskAlwaysVisible setSimpleTaskCustomData "+"setSimpleTaskDescription setSimpleTaskDestination setSimpleTaskTarget setSimpleTaskType "+"setSimulWeatherLayers setSize setSkill setSlingLoad setSoundEffect setSpeaker setSpeech "+"setSpeedMode setStamina setStaminaScheme setStatValue setSuppression setSystemOfUnits "+"setTargetAge setTaskMarkerOffset setTaskResult setTaskState setTerrainGrid setText "+"setTimeMultiplier setTitleEffect setTrafficDensity setTrafficDistance setTrafficGap "+"setTrafficSpeed setTriggerActivation setTriggerArea setTriggerStatements setTriggerText "+"setTriggerTimeout setTriggerType setType setUnconscious setUnitAbility setUnitLoadout setUnitPos "+"setUnitPosWeak setUnitRank setUnitRecoilCoefficient setUnitTrait setUnloadInCombat "+"setUserActionText setUserMFDText setUserMFDvalue setVariable setVectorDir setVectorDirAndUp "+"setVectorUp setVehicleAmmo setVehicleAmmoDef setVehicleArmor setVehicleCargo setVehicleId "+"setVehicleLock setVehiclePosition setVehicleRadar setVehicleReceiveRemoteTargets "+"setVehicleReportOwnPosition setVehicleReportRemoteTargets setVehicleTIPars setVehicleVarName "+"setVelocity setVelocityModelSpace setVelocityTransformation setViewDistance "+"setVisibleIfTreeCollapsed setWantedRPMRTD setWaves setWaypointBehaviour setWaypointCombatMode "+"setWaypointCompletionRadius setWaypointDescription setWaypointForceBehaviour setWaypointFormation "+"setWaypointHousePosition setWaypointLoiterRadius setWaypointLoiterType setWaypointName "+"setWaypointPosition setWaypointScript setWaypointSpeed setWaypointStatements setWaypointTimeout "+"setWaypointType setWaypointVisible setWeaponReloadingTime setWind setWindDir setWindForce "+"setWindStr setWingForceScaleRTD setWPPos show3DIcons showChat showCinemaBorder showCommandingMenu "+"showCompass showCuratorCompass showGPS showHUD showLegend showMap shownArtilleryComputer "+"shownChat shownCompass shownCuratorCompass showNewEditorObject shownGPS shownHUD shownMap "+"shownPad shownRadio shownScoretable shownUAVFeed shownWarrant shownWatch showPad showRadio "+"showScoretable showSubtitles showUAVFeed showWarrant showWatch showWaypoint showWaypoints side "+"sideChat sideEnemy sideFriendly sideRadio simpleTasks simulationEnabled simulCloudDensity "+"simulCloudOcclusion simulInClouds simulWeatherSync sin size sizeOf skill skillFinal skipTime "+"sleep sliderPosition sliderRange sliderSetPosition sliderSetRange sliderSetSpeed sliderSpeed "+"slingLoadAssistantShown soldierMagazines someAmmo sort soundVolume spawn speaker speed speedMode "+"splitString sqrt squadParams stance startLoadingScreen step stop stopEngineRTD stopped str "+"sunOrMoon supportInfo suppressFor surfaceIsWater surfaceNormal surfaceType swimInDepth "+"switchableUnits switchAction switchCamera switchGesture switchLight switchMove "+"synchronizedObjects synchronizedTriggers synchronizedWaypoints synchronizeObjectsAdd "+"synchronizeObjectsRemove synchronizeTrigger synchronizeWaypoint systemChat systemOfUnits tan "+"targetKnowledge targets targetsAggregate targetsQuery taskAlwaysVisible taskChildren "+"taskCompleted taskCustomData taskDescription taskDestination taskHint taskMarkerOffset taskParent "+"taskResult taskState taskType teamMember teamName teams teamSwitch teamSwitchEnabled teamType "+"terminate terrainIntersect terrainIntersectASL terrainIntersectAtASL text textLog textLogFormat "+"tg time timeMultiplier titleCut titleFadeOut titleObj titleRsc titleText toArray toFixed toLower "+"toString toUpper triggerActivated triggerActivation triggerArea triggerAttachedVehicle "+"triggerAttachObject triggerAttachVehicle triggerDynamicSimulation triggerStatements triggerText "+"triggerTimeout triggerTimeoutCurrent triggerType turretLocal turretOwner turretUnit tvAdd tvClear "+"tvCollapse tvCollapseAll tvCount tvCurSel tvData tvDelete tvExpand tvExpandAll tvPicture "+"tvSetColor tvSetCurSel tvSetData tvSetPicture tvSetPictureColor tvSetPictureColorDisabled "+"tvSetPictureColorSelected tvSetPictureRight tvSetPictureRightColor tvSetPictureRightColorDisabled "+"tvSetPictureRightColorSelected tvSetText tvSetTooltip tvSetValue tvSort tvSortByValue tvText "+"tvTooltip tvValue type typeName typeOf UAVControl uiNamespace uiSleep unassignCurator "+"unassignItem unassignTeam unassignVehicle underwater uniform uniformContainer uniformItems "+"uniformMagazines unitAddons unitAimPosition unitAimPositionVisual unitBackpack unitIsUAV unitPos "+"unitReady unitRecoilCoefficient units unitsBelowHeight unlinkItem unlockAchievement "+"unregisterTask updateDrawIcon updateMenuItem updateObjectTree useAISteeringComponent "+"useAudioTimeForMoves userInputDisabled vectorAdd vectorCos vectorCrossProduct vectorDiff "+"vectorDir vectorDirVisual vectorDistance vectorDistanceSqr vectorDotProduct vectorFromTo "+"vectorMagnitude vectorMagnitudeSqr vectorModelToWorld vectorModelToWorldVisual vectorMultiply "+"vectorNormalized vectorUp vectorUpVisual vectorWorldToModel vectorWorldToModelVisual vehicle "+"vehicleCargoEnabled vehicleChat vehicleRadio vehicleReceiveRemoteTargets vehicleReportOwnPosition "+"vehicleReportRemoteTargets vehicles vehicleVarName velocity velocityModelSpace verifySignature "+"vest vestContainer vestItems vestMagazines viewDistance visibleCompass visibleGPS visibleMap "+"visiblePosition visiblePositionASL visibleScoretable visibleWatch waves waypointAttachedObject "+"waypointAttachedVehicle waypointAttachObject waypointAttachVehicle waypointBehaviour "+"waypointCombatMode waypointCompletionRadius waypointDescription waypointForceBehaviour "+"waypointFormation waypointHousePosition waypointLoiterRadius waypointLoiterType waypointName "+"waypointPosition waypoints waypointScript waypointsEnabledUAV waypointShow waypointSpeed "+"waypointStatements waypointTimeout waypointTimeoutCurrent waypointType waypointVisible "+"weaponAccessories weaponAccessoriesCargo weaponCargo weaponDirection weaponInertia weaponLowered "+"weapons weaponsItems weaponsItemsCargo weaponState weaponsTurret weightRTD WFSideText wind ",literal:"blufor civilian configNull controlNull displayNull east endl false grpNull independent lineBreak "+"locationNull nil objNull opfor pi resistance scriptNull sideAmbientLife sideEmpty sideLogic "+"sideUnknown taskNull teamMemberNull true west"},contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.NUMBER_MODE,VARIABLE,FUNCTION,STRINGS,PREPROCESSOR],illegal:/#|^\$ /}});hljs.registerLanguage("qml",function(hljs){var KEYWORDS={keyword:"in of on if for while finally var new function do return void else break catch "+"instanceof with throw case default try this switch continue typeof delete "+"let yield const export super debugger as async await import",literal:"true false null undefined NaN Infinity",built_in:"eval isFinite isNaN parseFloat parseInt decodeURI decodeURIComponent "+"encodeURI encodeURIComponent escape unescape Object Function Boolean Error "+"EvalError InternalError RangeError ReferenceError StopIteration SyntaxError "+"TypeError URIError Number Math Date String RegExp Array Float32Array "+"Float64Array Int16Array Int32Array Int8Array Uint16Array Uint32Array "+"Uint8Array Uint8ClampedArray ArrayBuffer DataView JSON Intl arguments require "+"module console window document Symbol Set Map WeakSet WeakMap Proxy Reflect "+"Behavior bool color coordinate date double enumeration font geocircle georectangle "+"geoshape int list matrix4x4 parent point quaternion real rect "+"size string url variant vector2d vector3d vector4d"+"Promise"};var QML_IDENT_RE="[a-zA-Z_][a-zA-Z0-9\\._]*";var PROPERTY={className:"keyword",begin:"\\bproperty\\b",starts:{className:"string",end:"(:|=|;|,|//|/\\*|$)",returnEnd:true}};var SIGNAL={className:"keyword",begin:"\\bsignal\\b",starts:{className:"string",end:"(\\(|:|=|;|,|//|/\\*|$)",returnEnd:true}};var ID_ID={className:"attribute",begin:"\\bid\\s*:",starts:{className:"string",end:QML_IDENT_RE,returnEnd:false}};var QML_ATTRIBUTE={begin:QML_IDENT_RE+"\\s*:",returnBegin:true,contains:[{className:"attribute",begin:QML_IDENT_RE,end:"\\s*:",excludeEnd:true,relevance:0}],relevance:0};var QML_OBJECT={begin:QML_IDENT_RE+"\\s*{",end:"{",returnBegin:true,relevance:0,contains:[hljs.inherit(hljs.TITLE_MODE,{begin:QML_IDENT_RE})]};return{aliases:["qt"],case_insensitive:false,keywords:KEYWORDS,contains:[{className:"meta",begin:/^\s*['"]use (strict|asm)['"]/},hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,{className:"string",begin:"`",end:"`",contains:[hljs.BACKSLASH_ESCAPE,{className:"subst",begin:"\\$\\{",end:"\\}"}]},hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,{className:"number",variants:[{begin:"\\b(0[bB][01]+)"},{begin:"\\b(0[oO][0-7]+)"},{begin:hljs.C_NUMBER_RE}],relevance:0},{begin:"("+hljs.RE_STARTERS_RE+"|\\b(case|return|throw)\\b)\\s*",keywords:"return throw case",contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.REGEXP_MODE,{begin:/</,end:/>\s*[);\]]/,relevance:0,subLanguage:"xml"}],relevance:0},SIGNAL,PROPERTY,{className:"function",beginKeywords:"function",end:/\{/,excludeEnd:true,contains:[hljs.inherit(hljs.TITLE_MODE,{begin:/[A-Za-z$_][0-9A-Za-z$_]*/}),{className:"params",begin:/\(/,end:/\)/,excludeBegin:true,excludeEnd:true,contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE]}],illegal:/\[|%/},{begin:"\\."+hljs.IDENT_RE,relevance:0},ID_ID,QML_ATTRIBUTE,QML_OBJECT],illegal:/#/}});hljs.registerLanguage("erb",function(hljs){return{subLanguage:"xml",contains:[hljs.COMMENT("<%#","%>"),{begin:"<%[%=-]?",end:"[%-]?%>",subLanguage:"ruby",excludeBegin:true,excludeEnd:true}]}});hljs.registerLanguage("openscad",function(hljs){var SPECIAL_VARS={className:"keyword",begin:"\\$(f[asn]|t|vp[rtd]|children)"},LITERALS={className:"literal",begin:"false|true|PI|undef"},NUMBERS={className:"number",begin:"\\b\\d+(\\.\\d+)?(e-?\\d+)?",relevance:0},STRING=hljs.inherit(hljs.QUOTE_STRING_MODE,{illegal:null}),PREPRO={className:"meta",keywords:{"meta-keyword":"include use"},begin:"include|use <",end:">"},PARAMS={className:"params",begin:"\\(",end:"\\)",contains:["self",NUMBERS,STRING,SPECIAL_VARS,LITERALS]},MODIFIERS={begin:"[*!#%]",relevance:0},FUNCTIONS={className:"function",beginKeywords:"module function",end:"\\=|\\{",contains:[PARAMS,hljs.UNDERSCORE_TITLE_MODE]};return{aliases:["scad"],keywords:{keyword:"function module include use for intersection_for if else \\%",literal:"false true PI undef",built_in:"circle square polygon text sphere cube cylinder polyhedron translate rotate scale resize mirror multmatrix color offset hull minkowski union difference intersection abs sign sin cos tan acos asin atan atan2 floor round ceil ln log pow sqrt exp rands min max concat lookup str chr search version version_num norm cross parent_module echo import import_dxf dxf_linear_extrude linear_extrude rotate_extrude surface projection render children dxf_cross dxf_dim let assign"},contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,NUMBERS,PREPRO,STRING,SPECIAL_VARS,MODIFIERS,FUNCTIONS]}});hljs.registerLanguage("elixir",function(hljs){var ELIXIR_IDENT_RE="[a-zA-Z_][a-zA-Z0-9_.]*(\\!|\\?)?";var ELIXIR_METHOD_RE="[a-zA-Z_]\\w*[!?=]?|[-+~]\\@|<<|>>|=~|===?|<=>|[<>]=?|\\*\\*|[-/+%^&*~`|]|\\[\\]=?";var ELIXIR_KEYWORDS="and false then defined module in return redo retry end for true self when "+"next until do begin unless nil break not case cond alias while ensure or "+"include use alias fn quote require import with|0";var SUBST={className:"subst",begin:"#\\{",end:"}",lexemes:ELIXIR_IDENT_RE,keywords:ELIXIR_KEYWORDS};var SIGIL_DELIMITERS="[/|([{<\"']";var LOWERCASE_SIGIL={className:"string",begin:"~[a-z]"+"(?="+SIGIL_DELIMITERS+")",contains:[{endsParent:true,contains:[{contains:[hljs.BACKSLASH_ESCAPE,SUBST],variants:[{begin:/"/,end:/"/},{begin:/'/,end:/'/},{begin:/\//,end:/\//},{begin:/\|/,end:/\|/},{begin:/\(/,end:/\)/},{begin:/\[/,end:/\]/},{begin:/\{/,end:/\}/},{begin:/</,end:/>/}]}]}]};var UPCASE_SIGIL={className:"string",begin:"~[A-Z]"+"(?="+SIGIL_DELIMITERS+")",contains:[{begin:/"/,end:/"/},{begin:/'/,end:/'/},{begin:/\//,end:/\//},{begin:/\|/,end:/\|/},{begin:/\(/,end:/\)/},{begin:/\[/,end:/\]/},{begin:/\{/,end:/\}/},{begin:/\</,end:/\>/}]};var STRING={className:"string",contains:[hljs.BACKSLASH_ESCAPE,SUBST],variants:[{begin:/"""/,end:/"""/},{begin:/'''/,end:/'''/},{begin:/~S"""/,end:/"""/,contains:[]},{begin:/~S"/,end:/"/,contains:[]},{begin:/~S'''/,end:/'''/,contains:[]},{begin:/~S'/,end:/'/,contains:[]},{begin:/'/,end:/'/},{begin:/"/,end:/"/}]};var FUNCTION={className:"function",beginKeywords:"def defp defmacro",end:/\B\b/,contains:[hljs.inherit(hljs.TITLE_MODE,{begin:ELIXIR_IDENT_RE,endsParent:true})]};var CLASS=hljs.inherit(FUNCTION,{className:"class",beginKeywords:"defimpl defmodule defprotocol defrecord",end:/\bdo\b|$|;/});var ELIXIR_DEFAULT_CONTAINS=[STRING,UPCASE_SIGIL,LOWERCASE_SIGIL,hljs.HASH_COMMENT_MODE,CLASS,FUNCTION,{begin:"::"},{className:"symbol",begin:":(?![\\s:])",contains:[STRING,{begin:ELIXIR_METHOD_RE}],relevance:0},{className:"symbol",begin:ELIXIR_IDENT_RE+":(?!:)",relevance:0},{className:"number",begin:"(\\b0o[0-7_]+)|(\\b0b[01_]+)|(\\b0x[0-9a-fA-F_]+)|(-?\\b[1-9][0-9_]*(.[0-9_]+([eE][-+]?[0-9]+)?)?)",relevance:0},{className:"variable",begin:"(\\$\\W)|((\\$|\\@\\@?)(\\w+))"},{begin:"->"},{begin:"("+hljs.RE_STARTERS_RE+")\\s*",contains:[hljs.HASH_COMMENT_MODE,{className:"regexp",illegal:"\\n",contains:[hljs.BACKSLASH_ESCAPE,SUBST],variants:[{begin:"/",end:"/[a-z]*"},{begin:"%r\\[",end:"\\][a-z]*"}]}],relevance:0}];SUBST.contains=ELIXIR_DEFAULT_CONTAINS;return{lexemes:ELIXIR_IDENT_RE,keywords:ELIXIR_KEYWORDS,contains:ELIXIR_DEFAULT_CONTAINS}});hljs.registerLanguage("vhdl",function(hljs){var INTEGER_RE="\\d(_|\\d)*";var EXPONENT_RE="[eE][-+]?"+INTEGER_RE;var DECIMAL_LITERAL_RE=INTEGER_RE+"(\\."+INTEGER_RE+")?"+"("+EXPONENT_RE+")?";var BASED_INTEGER_RE="\\w+";var BASED_LITERAL_RE=INTEGER_RE+"#"+BASED_INTEGER_RE+"(\\."+BASED_INTEGER_RE+")?"+"#"+"("+EXPONENT_RE+")?";var NUMBER_RE="\\b("+BASED_LITERAL_RE+"|"+DECIMAL_LITERAL_RE+")";return{case_insensitive:true,keywords:{keyword:"abs access after alias all and architecture array assert assume assume_guarantee attribute "+"begin block body buffer bus case component configuration constant context cover disconnect "+"downto default else elsif end entity exit fairness file for force function generate "+"generic group guarded if impure in inertial inout is label library linkage literal "+"loop map mod nand new next nor not null of on open or others out package parameter port "+"postponed procedure process property protected pure range record register reject "+"release rem report restrict restrict_guarantee return rol ror select sequence "+"severity shared signal sla sll sra srl strong subtype then to transport type "+"unaffected units until use variable view vmode vprop vunit wait when while with xnor xor",built_in:"boolean bit character "+"integer time delay_length natural positive "+"string bit_vector file_open_kind file_open_status "+"std_logic std_logic_vector unsigned signed boolean_vector integer_vector "+"std_ulogic std_ulogic_vector unresolved_unsigned u_unsigned unresolved_signed u_signed "+"real_vector time_vector",literal:"false true note warning error failure "+"line text side width"},illegal:"{",contains:[hljs.C_BLOCK_COMMENT_MODE,hljs.COMMENT("--","$"),hljs.QUOTE_STRING_MODE,{className:"number",begin:NUMBER_RE,relevance:0},{className:"string",begin:"'(U|X|0|1|Z|W|L|H|-)'",contains:[hljs.BACKSLASH_ESCAPE]},{className:"symbol",begin:"'[A-Za-z](_?[A-Za-z0-9])*",contains:[hljs.BACKSLASH_ESCAPE]}]}});hljs.registerLanguage("aspectj",function(hljs){var KEYWORDS="false synchronized int abstract float private char boolean static null if const "+"for true while long throw strictfp finally protected import native final return void "+"enum else extends implements break transient new catch instanceof byte super volatile case "+"assert short package default double public try this switch continue throws privileged "+"aspectOf adviceexecution proceed cflowbelow cflow initialization preinitialization "+"staticinitialization withincode target within execution getWithinTypeName handler "+"thisJoinPoint thisJoinPointStaticPart thisEnclosingJoinPointStaticPart declare parents "+"warning error soft precedence thisAspectInstance";var SHORTKEYS="get set args call";return{keywords:KEYWORDS,illegal:/<\/|#/,contains:[hljs.COMMENT("/\\*\\*","\\*/",{relevance:0,contains:[{begin:/\w+@/,relevance:0},{className:"doctag",begin:"@[A-Za-z]+"}]}),hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,{className:"class",beginKeywords:"aspect",end:/[{;=]/,excludeEnd:true,illegal:/[:;"\[\]]/,contains:[{beginKeywords:"extends implements pertypewithin perthis pertarget percflowbelow percflow issingleton"},hljs.UNDERSCORE_TITLE_MODE,{begin:/\([^\)]*/,end:/[)]+/,keywords:KEYWORDS+" "+SHORTKEYS,excludeEnd:false}]},{className:"class",beginKeywords:"class interface",end:/[{;=]/,excludeEnd:true,relevance:0,keywords:"class interface",illegal:/[:"\[\]]/,contains:[{beginKeywords:"extends implements"},hljs.UNDERSCORE_TITLE_MODE]},{beginKeywords:"pointcut after before around throwing returning",end:/[)]/,excludeEnd:false,illegal:/["\[\]]/,contains:[{begin:hljs.UNDERSCORE_IDENT_RE+"\\s*\\(",returnBegin:true,contains:[hljs.UNDERSCORE_TITLE_MODE]}]},{begin:/[:]/,returnBegin:true,end:/[{;]/,relevance:0,excludeEnd:false,keywords:KEYWORDS,illegal:/["\[\]]/,contains:[{begin:hljs.UNDERSCORE_IDENT_RE+"\\s*\\(",keywords:KEYWORDS+" "+SHORTKEYS,relevance:0},hljs.QUOTE_STRING_MODE]},{beginKeywords:"new throw",relevance:0},{className:"function",begin:/\w+ +\w+(\.)?\w+\s*\([^\)]*\)\s*((throws)[\w\s,]+)?[\{;]/,returnBegin:true,end:/[{;=]/,keywords:KEYWORDS,excludeEnd:true,contains:[{begin:hljs.UNDERSCORE_IDENT_RE+"\\s*\\(",returnBegin:true,relevance:0,contains:[hljs.UNDERSCORE_TITLE_MODE]},{className:"params",begin:/\(/,end:/\)/,relevance:0,keywords:KEYWORDS,contains:[hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.C_NUMBER_MODE,hljs.C_BLOCK_COMMENT_MODE]},hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE]},hljs.C_NUMBER_MODE,{className:"meta",begin:"@[A-Za-z]+"}]}});hljs.registerLanguage("plaintext",function(hljs){return{disableAutodetect:true}});hljs.registerLanguage("xquery",function(hljs){var KEYWORDS="module schema namespace boundary-space preserve no-preserve strip default collation base-uri ordering context decimal-format decimal-separator copy-namespaces empty-sequence except exponent-separator external grouping-separator inherit no-inherit lax minus-sign per-mille percent schema-attribute schema-element strict unordered zero-digit "+"declare import option function validate variable "+"for at in let where order group by return if then else "+"tumbling sliding window start when only end previous next stable "+"ascending descending allowing empty greatest least some every satisfies switch case typeswitch try catch "+"and or to union intersect instance of treat as castable cast map array "+"delete insert into replace value rename copy modify update";var TYPE="item document-node node attribute document element comment namespace namespace-node processing-instruction text construction "+"xs:anyAtomicType xs:untypedAtomic xs:duration xs:time xs:decimal xs:float xs:double xs:gYearMonth xs:gYear xs:gMonthDay xs:gMonth xs:gDay xs:boolean xs:base64Binary xs:hexBinary xs:anyURI xs:QName xs:NOTATION xs:dateTime xs:dateTimeStamp xs:date xs:string xs:normalizedString xs:token xs:language xs:NMTOKEN xs:Name xs:NCName xs:ID xs:IDREF xs:ENTITY xs:integer xs:nonPositiveInteger xs:negativeInteger xs:long xs:int xs:short xs:byte xs:nonNegativeInteger xs:unisignedLong xs:unsignedInt xs:unsignedShort xs:unsignedByte xs:positiveInteger xs:yearMonthDuration xs:dayTimeDuration";var LITERAL="eq ne lt le gt ge is "+"self:: child:: descendant:: descendant-or-self:: attribute:: following:: following-sibling:: parent:: ancestor:: ancestor-or-self:: preceding:: preceding-sibling:: "+"NaN";var BUILT_IN={className:"built_in",variants:[{begin:/\barray\:/,end:/(?:append|filter|flatten|fold\-(?:left|right)|for-each(?:\-pair)?|get|head|insert\-before|join|put|remove|reverse|size|sort|subarray|tail)\b/},{begin:/\bmap\:/,end:/(?:contains|entry|find|for\-each|get|keys|merge|put|remove|size)\b/},{begin:/\bmath\:/,end:/(?:a(?:cos|sin|tan[2]?)|cos|exp(?:10)?|log(?:10)?|pi|pow|sin|sqrt|tan)\b/},{begin:/\bop\:/,end:/\(/,excludeEnd:true},{begin:/\bfn\:/,end:/\(/,excludeEnd:true},{begin:/[^<\/\$\:'"-]\b(?:abs|accumulator\-(?:after|before)|adjust\-(?:date(?:Time)?|time)\-to\-timezone|analyze\-string|apply|available\-(?:environment\-variables|system\-properties)|avg|base\-uri|boolean|ceiling|codepoints?\-(?:equal|to\-string)|collation\-key|collection|compare|concat|contains(?:\-token)?|copy\-of|count|current(?:\-)?(?:date(?:Time)?|time|group(?:ing\-key)?|output\-uri|merge\-(?:group|key))?data|dateTime|days?\-from\-(?:date(?:Time)?|duration)|deep\-equal|default\-(?:collation|language)|distinct\-values|document(?:\-uri)?|doc(?:\-available)?|element\-(?:available|with\-id)|empty|encode\-for\-uri|ends\-with|environment\-variable|error|escape\-html\-uri|exactly\-one|exists|false|filter|floor|fold\-(?:left|right)|for\-each(?:\-pair)?|format\-(?:date(?:Time)?|time|integer|number)|function\-(?:arity|available|lookup|name)|generate\-id|has\-children|head|hours\-from\-(?:dateTime|duration|time)|id(?:ref)?|implicit\-timezone|in\-scope\-prefixes|index\-of|innermost|insert\-before|iri\-to\-uri|json\-(?:doc|to\-xml)|key|lang|last|load\-xquery\-module|local\-name(?:\-from\-QName)?|(?:lower|upper)\-case|matches|max|minutes\-from\-(?:dateTime|duration|time)|min|months?\-from\-(?:date(?:Time)?|duration)|name(?:space\-uri\-?(?:for\-prefix|from\-QName)?)?|nilled|node\-name|normalize\-(?:space|unicode)|not|number|one\-or\-more|outermost|parse\-(?:ietf\-date|json)|path|position|(?:prefix\-from\-)?QName|random\-number\-generator|regex\-group|remove|replace|resolve\-(?:QName|uri)|reverse|root|round(?:\-half\-to\-even)?|seconds\-from\-(?:dateTime|duration|time)|snapshot|sort|starts\-with|static\-base\-uri|stream\-available|string\-?(?:join|length|to\-codepoints)?|subsequence|substring\-?(?:after|before)?|sum|system\-property|tail|timezone\-from\-(?:date(?:Time)?|time)|tokenize|trace|trans(?:form|late)|true|type\-available|unordered|unparsed\-(?:entity|text)?\-?(?:public\-id|uri|available|lines)?|uri\-collection|xml\-to\-json|years?\-from\-(?:date(?:Time)?|duration)|zero\-or\-one)\b/},{begin:/\blocal\:/,end:/\(/,excludeEnd:true},{begin:/\bzip\:/,end:/(?:zip\-file|(?:xml|html|text|binary)\-entry| (?:update\-)?entries)\b/},{begin:/\b(?:util|db|functx|app|xdmp|xmldb)\:/,end:/\(/,excludeEnd:true}]};var TITLE={className:"title",begin:/\bxquery version "[13]\.[01]"\s?(?:encoding ".+")?/,end:/;/};var VAR={className:"variable",begin:/[\$][\w-:]+/};var NUMBER={className:"number",begin:"(\\b0[0-7_]+)|(\\b0x[0-9a-fA-F_]+)|(\\b[1-9][0-9_]*(\\.[0-9_]+)?)|[0_]\\b",relevance:0};var STRING={className:"string",variants:[{begin:/"/,end:/"/,contains:[{begin:/""/,relevance:0}]},{begin:/'/,end:/'/,contains:[{begin:/''/,relevance:0}]}]};var ANNOTATION={className:"meta",begin:/%[\w-:]+/};var COMMENT={className:"comment",begin:"\\(:",end:":\\)",relevance:10,contains:[{className:"doctag",begin:"@\\w+"}]};var COMPUTED={beginKeywords:"element attribute comment document processing-instruction",end:"{",excludeEnd:true};var DIRECT={begin:/<([\w\._:\-]+)((\s*.*)=('|").*('|"))?>/,end:/(\/[\w\._:\-]+>)/,subLanguage:"xml",contains:[{begin:"{",end:"}",subLanguage:"xquery"},"self"]};var CONTAINS=[VAR,BUILT_IN,STRING,NUMBER,COMMENT,ANNOTATION,TITLE,COMPUTED,DIRECT];var METHOD={begin:"{",end:"}",contains:CONTAINS};return{aliases:["xpath","xq"],case_insensitive:false,lexemes:/[a-zA-Z\$][a-zA-Z0-9_:\-]*/,illegal:/(proc)|(abstract)|(extends)|(until)|(#)/,keywords:{keyword:KEYWORDS,type:TYPE,literal:LITERAL},contains:CONTAINS}});hljs.registerLanguage("irpf90",function(hljs){var PARAMS={className:"params",begin:"\\(",end:"\\)"};var F_KEYWORDS={literal:".False. .True.",keyword:"kind do while private call intrinsic where elsewhere "+"type endtype endmodule endselect endinterface end enddo endif if forall endforall only contains default return stop then "+"public subroutine|10 function program .and. .or. .not. .le. .eq. .ge. .gt. .lt. "+"goto save else use module select case "+"access blank direct exist file fmt form formatted iostat name named nextrec number opened rec recl sequential status unformatted unit "+"continue format pause cycle exit "+"c_null_char c_alert c_backspace c_form_feed flush wait decimal round iomsg "+"synchronous nopass non_overridable pass protected volatile abstract extends import "+"non_intrinsic value deferred generic final enumerator class associate bind enum "+"c_int c_short c_long c_long_long c_signed_char c_size_t c_int8_t c_int16_t c_int32_t c_int64_t c_int_least8_t c_int_least16_t "+"c_int_least32_t c_int_least64_t c_int_fast8_t c_int_fast16_t c_int_fast32_t c_int_fast64_t c_intmax_t C_intptr_t c_float c_double "+"c_long_double c_float_complex c_double_complex c_long_double_complex c_bool c_char c_null_ptr c_null_funptr "+"c_new_line c_carriage_return c_horizontal_tab c_vertical_tab iso_c_binding c_loc c_funloc c_associated c_f_pointer "+"c_ptr c_funptr iso_fortran_env character_storage_size error_unit file_storage_size input_unit iostat_end iostat_eor "+"numeric_storage_size output_unit c_f_procpointer ieee_arithmetic ieee_support_underflow_control "+"ieee_get_underflow_mode ieee_set_underflow_mode newunit contiguous recursive "+"pad position action delim readwrite eor advance nml interface procedure namelist include sequence elemental pure "+"integer real character complex logical dimension allocatable|10 parameter "+"external implicit|10 none double precision assign intent optional pointer "+"target in out common equivalence data "+"begin_provider &begin_provider end_provider begin_shell end_shell begin_template end_template subst assert touch "+"soft_touch provide no_dep free irp_if irp_else irp_endif irp_write irp_read",built_in:"alog alog10 amax0 amax1 amin0 amin1 amod cabs ccos cexp clog csin csqrt dabs dacos dasin datan datan2 dcos dcosh ddim dexp dint "+"dlog dlog10 dmax1 dmin1 dmod dnint dsign dsin dsinh dsqrt dtan dtanh float iabs idim idint idnint ifix isign max0 max1 min0 min1 sngl "+"algama cdabs cdcos cdexp cdlog cdsin cdsqrt cqabs cqcos cqexp cqlog cqsin cqsqrt dcmplx dconjg derf derfc dfloat dgamma dimag dlgama "+"iqint qabs qacos qasin qatan qatan2 qcmplx qconjg qcos qcosh qdim qerf qerfc qexp qgamma qimag qlgama qlog qlog10 qmax1 qmin1 qmod "+"qnint qsign qsin qsinh qsqrt qtan qtanh abs acos aimag aint anint asin atan atan2 char cmplx conjg cos cosh exp ichar index int log "+"log10 max min nint sign sin sinh sqrt tan tanh print write dim lge lgt lle llt mod nullify allocate deallocate "+"adjustl adjustr all allocated any associated bit_size btest ceiling count cshift date_and_time digits dot_product "+"eoshift epsilon exponent floor fraction huge iand ibclr ibits ibset ieor ior ishft ishftc lbound len_trim matmul "+"maxexponent maxloc maxval merge minexponent minloc minval modulo mvbits nearest pack present product "+"radix random_number random_seed range repeat reshape rrspacing scale scan selected_int_kind selected_real_kind "+"set_exponent shape size spacing spread sum system_clock tiny transpose trim ubound unpack verify achar iachar transfer "+"dble entry dprod cpu_time command_argument_count get_command get_command_argument get_environment_variable is_iostat_end "+"ieee_arithmetic ieee_support_underflow_control ieee_get_underflow_mode ieee_set_underflow_mode "+"is_iostat_eor move_alloc new_line selected_char_kind same_type_as extends_type_of"+"acosh asinh atanh bessel_j0 bessel_j1 bessel_jn bessel_y0 bessel_y1 bessel_yn erf erfc erfc_scaled gamma log_gamma hypot norm2 "+"atomic_define atomic_ref execute_command_line leadz trailz storage_size merge_bits "+"bge bgt ble blt dshiftl dshiftr findloc iall iany iparity image_index lcobound ucobound maskl maskr "+"num_images parity popcnt poppar shifta shiftl shiftr this_image "+"IRP_ALIGN irp_here"};return{case_insensitive:true,keywords:F_KEYWORDS,illegal:/\/\*/,contains:[hljs.inherit(hljs.APOS_STRING_MODE,{className:"string",relevance:0}),hljs.inherit(hljs.QUOTE_STRING_MODE,{className:"string",relevance:0}),{className:"function",beginKeywords:"subroutine function program",illegal:"[${=\\n]",contains:[hljs.UNDERSCORE_TITLE_MODE,PARAMS]},hljs.COMMENT("!","$",{relevance:0}),hljs.COMMENT("begin_doc","end_doc",{relevance:10}),{className:"number",begin:"(?=\\b|\\+|\\-|\\.)(?=\\.\\d|\\d)(?:\\d+)?(?:\\.?\\d*)(?:[de][+-]?\\d+)?\\b\\.?",relevance:0}]}});hljs.registerLanguage("cal",function(hljs){var KEYWORDS="div mod in and or not xor asserterror begin case do downto else end exit for if of repeat then to "+"until while with var";var LITERALS="false true";var COMMENT_MODES=[hljs.C_LINE_COMMENT_MODE,hljs.COMMENT(/\{/,/\}/,{relevance:0}),hljs.COMMENT(/\(\*/,/\*\)/,{relevance:10})];var STRING={className:"string",begin:/'/,end:/'/,contains:[{begin:/''/}]};var CHAR_STRING={className:"string",begin:/(#\d+)+/};var DATE={className:"number",begin:"\\b\\d+(\\.\\d+)?(DT|D|T)",relevance:0};var DBL_QUOTED_VARIABLE={className:"string",begin:'"',end:'"'};var PROCEDURE={className:"function",beginKeywords:"procedure",end:/[:;]/,keywords:"procedure|10",contains:[hljs.TITLE_MODE,{className:"params",begin:/\(/,end:/\)/,keywords:KEYWORDS,contains:[STRING,CHAR_STRING]}].concat(COMMENT_MODES)};var OBJECT={className:"class",begin:"OBJECT (Table|Form|Report|Dataport|Codeunit|XMLport|MenuSuite|Page|Query) (\\d+) ([^\\r\\n]+)",returnBegin:true,contains:[hljs.TITLE_MODE,PROCEDURE]};return{case_insensitive:true,keywords:{keyword:KEYWORDS,literal:LITERALS},illegal:/\/\*/,contains:[STRING,CHAR_STRING,DATE,DBL_QUOTED_VARIABLE,hljs.NUMBER_MODE,OBJECT,PROCEDURE]}});hljs.registerLanguage("gherkin",function(hljs){return{aliases:["feature"],keywords:"Feature Background Ability Business Need Scenario Scenarios Scenario Outline Scenario Template Examples Given And Then But When",contains:[{className:"symbol",begin:"\\*",relevance:0},{className:"meta",begin:"@[^@\\s]+"},{begin:"\\|",end:"\\|\\w*$",contains:[{className:"string",begin:"[^|]+"}]},{className:"variable",begin:"<",end:">"},hljs.HASH_COMMENT_MODE,{className:"string",begin:'"""',end:'"""'},hljs.QUOTE_STRING_MODE]}});hljs.registerLanguage("subunit",function(hljs){var DETAILS={className:"string",begin:"\\[\n(multipart)?",end:"\\]\n"};var TIME={className:"string",begin:"\\d{4}-\\d{2}-\\d{2}(\\s+)\\d{2}:\\d{2}:\\d{2}.\\d+Z"};var PROGRESSVALUE={className:"string",begin:"(\\+|-)\\d+"};var KEYWORDS={className:"keyword",relevance:10,variants:[{begin:"^(test|testing|success|successful|failure|error|skip|xfail|uxsuccess)(:?)\\s+(test)?"},{begin:"^progress(:?)(\\s+)?(pop|push)?"},{begin:"^tags:"},{begin:"^time:"}]};return{case_insensitive:true,contains:[DETAILS,TIME,PROGRESSVALUE,KEYWORDS]}});hljs.registerLanguage("stata",function(hljs){return{aliases:["do","ado"],case_insensitive:true,keywords:"if else in foreach for forv forva forval forvalu forvalue forvalues by bys bysort xi quietly qui capture about ac ac_7 acprplot acprplot_7 adjust ado adopath adoupdate alpha ameans an ano anov anova anova_estat anova_terms anovadef aorder ap app appe appen append arch arch_dr arch_estat arch_p archlm areg areg_p args arima arima_dr arima_estat arima_p as asmprobit asmprobit_estat asmprobit_lf asmprobit_mfx__dlg asmprobit_p ass asse asser assert avplot avplot_7 avplots avplots_7 bcskew0 bgodfrey bias binreg bip0_lf biplot bipp_lf bipr_lf bipr_p biprobit bitest bitesti bitowt blogit bmemsize boot bootsamp bootstrap bootstrap_8 boxco_l boxco_p boxcox boxcox_6 boxcox_p bprobit br break brier bro brow brows browse brr brrstat bs bs_7 bsampl_w bsample bsample_7 bsqreg bstat bstat_7 bstat_8 bstrap bstrap_7 bubble bubbleplot ca ca_estat ca_p cabiplot camat canon canon_8 canon_8_p canon_estat canon_p cap caprojection capt captu captur capture cat cc cchart cchart_7 cci cd censobs_table centile cf char chdir checkdlgfiles checkestimationsample checkhlpfiles checksum chelp ci cii cl class classutil clear cli clis clist clo clog clog_lf clog_p clogi clogi_sw clogit clogit_lf clogit_p clogitp clogl_sw cloglog clonevar clslistarray cluster cluster_measures cluster_stop cluster_tree cluster_tree_8 clustermat cmdlog cnr cnre cnreg cnreg_p cnreg_sw cnsreg codebook collaps4 collapse colormult_nb colormult_nw compare compress conf confi confir confirm conren cons const constr constra constrai constrain constraint continue contract copy copyright copysource cor corc corr corr2data corr_anti corr_kmo corr_smc corre correl correla correlat correlate corrgram cou coun count cox cox_p cox_sw coxbase coxhaz coxvar cprplot cprplot_7 crc cret cretu cretur creturn cross cs cscript cscript_log csi ct ct_is ctset ctst_5 ctst_st cttost cumsp cumsp_7 cumul cusum cusum_7 cutil d|0 datasig datasign datasigna datasignat datasignatu datasignatur datasignature datetof db dbeta de dec deco decod decode deff des desc descr descri describ describe destring dfbeta dfgls dfuller di di_g dir dirstats dis discard disp disp_res disp_s displ displa display distinct do doe doed doedi doedit dotplot dotplot_7 dprobit drawnorm drop ds ds_util dstdize duplicates durbina dwstat dydx e|0 ed edi edit egen eivreg emdef en enc enco encod encode eq erase ereg ereg_lf ereg_p ereg_sw ereghet ereghet_glf ereghet_glf_sh ereghet_gp ereghet_ilf ereghet_ilf_sh ereghet_ip eret eretu eretur ereturn err erro error esize est est_cfexist est_cfname est_clickable est_expand est_hold est_table est_unhold est_unholdok estat estat_default estat_summ estat_vce_only esti estimates etodow etof etomdy ex exi exit expand expandcl fac fact facto factor factor_estat factor_p factor_pca_rotated factor_rotate factormat fcast fcast_compute fcast_graph fdades fdadesc fdadescr fdadescri fdadescrib fdadescribe fdasav fdasave fdause fh_st file open file read file close file filefilter fillin find_hlp_file findfile findit findit_7 fit fl fli flis flist for5_0 forest forestplot form forma format fpredict frac_154 frac_adj frac_chk frac_cox frac_ddp frac_dis frac_dv frac_in frac_mun frac_pp frac_pq frac_pv frac_wgt frac_xo fracgen fracplot fracplot_7 fracpoly fracpred fron_ex fron_hn fron_p fron_tn fron_tn2 frontier ftodate ftoe ftomdy ftowdate funnel funnelplot g|0 gamhet_glf gamhet_gp gamhet_ilf gamhet_ip gamma gamma_d2 gamma_p gamma_sw gammahet gdi_hexagon gdi_spokes ge gen gene gener genera generat generate genrank genstd genvmean gettoken gl gladder gladder_7 glim_l01 glim_l02 glim_l03 glim_l04 glim_l05 glim_l06 glim_l07 glim_l08 glim_l09 glim_l10 glim_l11 glim_l12 glim_lf glim_mu glim_nw1 glim_nw2 glim_nw3 glim_p glim_v1 glim_v2 glim_v3 glim_v4 glim_v5 glim_v6 glim_v7 glm glm_6 glm_p glm_sw glmpred glo glob globa global glogit glogit_8 glogit_p gmeans gnbre_lf gnbreg gnbreg_5 gnbreg_p gomp_lf gompe_sw gomper_p gompertz gompertzhet gomphet_glf gomphet_glf_sh gomphet_gp gomphet_ilf gomphet_ilf_sh gomphet_ip gphdot gphpen gphprint gprefs gprobi_p gprobit gprobit_8 gr gr7 gr_copy gr_current gr_db gr_describe gr_dir gr_draw gr_draw_replay gr_drop gr_edit gr_editviewopts gr_example gr_example2 gr_export gr_print gr_qscheme gr_query gr_read gr_rename gr_replay gr_save gr_set gr_setscheme gr_table gr_undo gr_use graph graph7 grebar greigen greigen_7 greigen_8 grmeanby grmeanby_7 gs_fileinfo gs_filetype gs_graphinfo gs_stat gsort gwood h|0 hadimvo hareg hausman haver he heck_d2 heckma_p heckman heckp_lf heckpr_p heckprob hel help hereg hetpr_lf hetpr_p hetprob hettest hexdump hilite hist hist_7 histogram hlogit hlu hmeans hotel hotelling hprobit hreg hsearch icd9 icd9_ff icd9p iis impute imtest inbase include inf infi infil infile infix inp inpu input ins insheet insp inspe inspec inspect integ inten intreg intreg_7 intreg_p intrg2_ll intrg_ll intrg_ll2 ipolate iqreg ir irf irf_create irfm iri is_svy is_svysum isid istdize ivprob_1_lf ivprob_lf ivprobit ivprobit_p ivreg ivreg_footnote ivtob_1_lf ivtob_lf ivtobit ivtobit_p jackknife jacknife jknife jknife_6 jknife_8 jkstat joinby kalarma1 kap kap_3 kapmeier kappa kapwgt kdensity kdensity_7 keep ksm ksmirnov ktau kwallis l|0 la lab labbe labbeplot labe label labelbook ladder levels levelsof leverage lfit lfit_p li lincom line linktest lis list lloghet_glf lloghet_glf_sh lloghet_gp lloghet_ilf lloghet_ilf_sh lloghet_ip llogi_sw llogis_p llogist llogistic llogistichet lnorm_lf lnorm_sw lnorma_p lnormal lnormalhet lnormhet_glf lnormhet_glf_sh lnormhet_gp lnormhet_ilf lnormhet_ilf_sh lnormhet_ip lnskew0 loadingplot loc loca local log logi logis_lf logistic logistic_p logit logit_estat logit_p loglogs logrank loneway lookfor lookup lowess lowess_7 lpredict lrecomp lroc lroc_7 lrtest ls lsens lsens_7 lsens_x lstat ltable ltable_7 ltriang lv lvr2plot lvr2plot_7 m|0 ma mac macr macro makecns man manova manova_estat manova_p manovatest mantel mark markin markout marksample mat mat_capp mat_order mat_put_rr mat_rapp mata mata_clear mata_describe mata_drop mata_matdescribe mata_matsave mata_matuse mata_memory mata_mlib mata_mosave mata_rename mata_which matalabel matcproc matlist matname matr matri matrix matrix_input__dlg matstrik mcc mcci md0_ md1_ md1debug_ md2_ md2debug_ mds mds_estat mds_p mdsconfig mdslong mdsmat mdsshepard mdytoe mdytof me_derd mean means median memory memsize menl meqparse mer merg merge meta mfp mfx mhelp mhodds minbound mixed_ll mixed_ll_reparm mkassert mkdir mkmat mkspline ml ml_5 ml_adjs ml_bhhhs ml_c_d ml_check ml_clear ml_cnt ml_debug ml_defd ml_e0 ml_e0_bfgs ml_e0_cycle ml_e0_dfp ml_e0i ml_e1 ml_e1_bfgs ml_e1_bhhh ml_e1_cycle ml_e1_dfp ml_e2 ml_e2_cycle ml_ebfg0 ml_ebfr0 ml_ebfr1 ml_ebh0q ml_ebhh0 ml_ebhr0 ml_ebr0i ml_ecr0i ml_edfp0 ml_edfr0 ml_edfr1 ml_edr0i ml_eds ml_eer0i ml_egr0i ml_elf ml_elf_bfgs ml_elf_bhhh ml_elf_cycle ml_elf_dfp ml_elfi ml_elfs ml_enr0i ml_enrr0 ml_erdu0 ml_erdu0_bfgs ml_erdu0_bhhh ml_erdu0_bhhhq ml_erdu0_cycle ml_erdu0_dfp ml_erdu0_nrbfgs ml_exde ml_footnote ml_geqnr ml_grad0 ml_graph ml_hbhhh ml_hd0 ml_hold ml_init ml_inv ml_log ml_max ml_mlout ml_mlout_8 ml_model ml_nb0 ml_opt ml_p ml_plot ml_query ml_rdgrd ml_repor ml_s_e ml_score ml_searc ml_technique ml_unhold mleval mlf_ mlmatbysum mlmatsum mlog mlogi mlogit mlogit_footnote mlogit_p mlopts mlsum mlvecsum mnl0_ mor more mov move mprobit mprobit_lf mprobit_p mrdu0_ mrdu1_ mvdecode mvencode mvreg mvreg_estat n|0 nbreg nbreg_al nbreg_lf nbreg_p nbreg_sw nestreg net newey newey_7 newey_p news nl nl_7 nl_9 nl_9_p nl_p nl_p_7 nlcom nlcom_p nlexp2 nlexp2_7 nlexp2a nlexp2a_7 nlexp3 nlexp3_7 nlgom3 nlgom3_7 nlgom4 nlgom4_7 nlinit nllog3 nllog3_7 nllog4 nllog4_7 nlog_rd nlogit nlogit_p nlogitgen nlogittree nlpred no nobreak noi nois noisi noisil noisily note notes notes_dlg nptrend numlabel numlist odbc old_ver olo olog ologi ologi_sw ologit ologit_p ologitp on one onew onewa oneway op_colnm op_comp op_diff op_inv op_str opr opro oprob oprob_sw oprobi oprobi_p oprobit oprobitp opts_exclusive order orthog orthpoly ou out outf outfi outfil outfile outs outsh outshe outshee outsheet ovtest pac pac_7 palette parse parse_dissim pause pca pca_8 pca_display pca_estat pca_p pca_rotate pcamat pchart pchart_7 pchi pchi_7 pcorr pctile pentium pergram pergram_7 permute permute_8 personal peto_st pkcollapse pkcross pkequiv pkexamine pkexamine_7 pkshape pksumm pksumm_7 pl plo plot plugin pnorm pnorm_7 poisgof poiss_lf poiss_sw poisso_p poisson poisson_estat post postclose postfile postutil pperron pr prais prais_e prais_e2 prais_p predict predictnl preserve print pro prob probi probit probit_estat probit_p proc_time procoverlay procrustes procrustes_estat procrustes_p profiler prog progr progra program prop proportion prtest prtesti pwcorr pwd q\\s qby qbys qchi qchi_7 qladder qladder_7 qnorm qnorm_7 qqplot qqplot_7 qreg qreg_c qreg_p qreg_sw qu quadchk quantile quantile_7 que quer query range ranksum ratio rchart rchart_7 rcof recast reclink recode reg reg3 reg3_p regdw regr regre regre_p2 regres regres_p regress regress_estat regriv_p remap ren rena renam rename renpfix repeat replace report reshape restore ret retu retur return rm rmdir robvar roccomp roccomp_7 roccomp_8 rocf_lf rocfit rocfit_8 rocgold rocplot rocplot_7 roctab roctab_7 rolling rologit rologit_p rot rota rotat rotate rotatemat rreg rreg_p ru run runtest rvfplot rvfplot_7 rvpplot rvpplot_7 sa safesum sample sampsi sav save savedresults saveold sc sca scal scala scalar scatter scm_mine sco scob_lf scob_p scobi_sw scobit scor score scoreplot scoreplot_help scree screeplot screeplot_help sdtest sdtesti se search separate seperate serrbar serrbar_7 serset set set_defaults sfrancia sh she shel shell shewhart shewhart_7 signestimationsample signrank signtest simul simul_7 simulate simulate_8 sktest sleep slogit slogit_d2 slogit_p smooth snapspan so sor sort spearman spikeplot spikeplot_7 spikeplt spline_x split sqreg sqreg_p sret sretu sretur sreturn ssc st st_ct st_hc st_hcd st_hcd_sh st_is st_issys st_note st_promo st_set st_show st_smpl st_subid stack statsby statsby_8 stbase stci stci_7 stcox stcox_estat stcox_fr stcox_fr_ll stcox_p stcox_sw stcoxkm stcoxkm_7 stcstat stcurv stcurve stcurve_7 stdes stem stepwise stereg stfill stgen stir stjoin stmc stmh stphplot stphplot_7 stphtest stphtest_7 stptime strate strate_7 streg streg_sw streset sts sts_7 stset stsplit stsum sttocc sttoct stvary stweib su suest suest_8 sum summ summa summar summari summariz summarize sunflower sureg survcurv survsum svar svar_p svmat svy svy_disp svy_dreg svy_est svy_est_7 svy_estat svy_get svy_gnbreg_p svy_head svy_header svy_heckman_p svy_heckprob_p svy_intreg_p svy_ivreg_p svy_logistic_p svy_logit_p svy_mlogit_p svy_nbreg_p svy_ologit_p svy_oprobit_p svy_poisson_p svy_probit_p svy_regress_p svy_sub svy_sub_7 svy_x svy_x_7 svy_x_p svydes svydes_8 svygen svygnbreg svyheckman svyheckprob svyintreg svyintreg_7 svyintrg svyivreg svylc svylog_p svylogit svymarkout svymarkout_8 svymean svymlog svymlogit svynbreg svyolog svyologit svyoprob svyoprobit svyopts svypois svypois_7 svypoisson svyprobit svyprobt svyprop svyprop_7 svyratio svyreg svyreg_p svyregress svyset svyset_7 svyset_8 svytab svytab_7 svytest svytotal sw sw_8 swcnreg swcox swereg swilk swlogis swlogit swologit swoprbt swpois swprobit swqreg swtobit swweib symmetry symmi symplot symplot_7 syntax sysdescribe sysdir sysuse szroeter ta tab tab1 tab2 tab_or tabd tabdi tabdis tabdisp tabi table tabodds tabodds_7 tabstat tabu tabul tabula tabulat tabulate te tempfile tempname tempvar tes test testnl testparm teststd tetrachoric time_it timer tis tob tobi tobit tobit_p tobit_sw token tokeni tokeniz tokenize tostring total translate translator transmap treat_ll treatr_p treatreg trim trimfill trnb_cons trnb_mean trpoiss_d2 trunc_ll truncr_p truncreg tsappend tset tsfill tsline tsline_ex tsreport tsrevar tsrline tsset tssmooth tsunab ttest ttesti tut_chk tut_wait tutorial tw tware_st two twoway twoway__fpfit_serset twoway__function_gen twoway__histogram_gen twoway__ipoint_serset twoway__ipoints_serset twoway__kdensity_gen twoway__lfit_serset twoway__normgen_gen twoway__pci_serset twoway__qfit_serset twoway__scatteri_serset twoway__sunflower_gen twoway_ksm_serset ty typ type typeof u|0 unab unabbrev unabcmd update us use uselabel var var_mkcompanion var_p varbasic varfcast vargranger varirf varirf_add varirf_cgraph varirf_create varirf_ctable varirf_describe varirf_dir varirf_drop varirf_erase varirf_graph varirf_ograph varirf_rename varirf_set varirf_table varlist varlmar varnorm varsoc varstable varstable_w varstable_w2 varwle vce vec vec_fevd vec_mkphi vec_p vec_p_w vecirf_create veclmar veclmar_w vecnorm vecnorm_w vecrank vecstable verinst vers versi versio version view viewsource vif vwls wdatetof webdescribe webseek webuse weib1_lf weib2_lf weib_lf weib_lf0 weibhet_glf weibhet_glf_sh weibhet_glfa weibhet_glfa_sh weibhet_gp weibhet_ilf weibhet_ilf_sh weibhet_ilfa weibhet_ilfa_sh weibhet_ip weibu_sw weibul_p weibull weibull_c weibull_s weibullhet wh whelp whi which whil while wilc_st wilcoxon win wind windo window winexec wntestb wntestb_7 wntestq xchart xchart_7 xcorr xcorr_7 xi xi_6 xmlsav xmlsave xmluse xpose xsh xshe xshel xshell xt_iis xt_tis xtab_p xtabond xtbin_p xtclog xtcloglog xtcloglog_8 xtcloglog_d2 xtcloglog_pa_p xtcloglog_re_p xtcnt_p xtcorr xtdata xtdes xtfront_p xtfrontier xtgee xtgee_elink xtgee_estat xtgee_makeivar xtgee_p xtgee_plink xtgls xtgls_p xthaus xthausman xtht_p xthtaylor xtile xtint_p xtintreg xtintreg_8 xtintreg_d2 xtintreg_p xtivp_1 xtivp_2 xtivreg xtline xtline_ex xtlogit xtlogit_8 xtlogit_d2 xtlogit_fe_p xtlogit_pa_p xtlogit_re_p xtmixed xtmixed_estat xtmixed_p xtnb_fe xtnb_lf xtnbreg xtnbreg_pa_p xtnbreg_refe_p xtpcse xtpcse_p xtpois xtpoisson xtpoisson_d2 xtpoisson_pa_p xtpoisson_refe_p xtpred xtprobit xtprobit_8 xtprobit_d2 xtprobit_re_p xtps_fe xtps_lf xtps_ren xtps_ren_8 xtrar_p xtrc xtrc_p xtrchh xtrefe_p xtreg xtreg_be xtreg_fe xtreg_ml xtreg_pa_p xtreg_re xtregar xtrere_p xtset xtsf_ll xtsf_llti xtsum xttab xttest0 xttobit xttobit_8 xttobit_p xttrans yx yxview__barlike_draw yxview_area_draw yxview_bar_draw yxview_dot_draw yxview_dropline_draw yxview_function_draw yxview_iarrow_draw yxview_ilabels_draw yxview_normal_draw yxview_pcarrow_draw yxview_pcbarrow_draw yxview_pccapsym_draw yxview_pcscatter_draw yxview_pcspike_draw yxview_rarea_draw yxview_rbar_draw yxview_rbarm_draw yxview_rcap_draw yxview_rcapsym_draw yxview_rconnected_draw yxview_rline_draw yxview_rscatter_draw yxview_rspike_draw yxview_spike_draw yxview_sunflower_draw zap_s zinb zinb_llf zinb_plf zip zip_llf zip_p zip_plf zt_ct_5 zt_hc_5 zt_hcd_5 zt_is_5 zt_iss_5 zt_sho_5 zt_smp_5 ztbase_5 ztcox_5 ztdes_5 ztereg_5 ztfill_5 ztgen_5 ztir_5 ztjoin_5 ztnb ztnb_p ztp ztp_p zts_5 ztset_5 ztspli_5 ztsum_5 zttoct_5 ztvary_5 ztweib_5",contains:[{className:"symbol",begin:/`[a-zA-Z0-9_]+'/},{className:"variable",begin:/\$\{?[a-zA-Z0-9_]+\}?/},{className:"string",variants:[{begin:'`"[^\r\n]*?"\''},{begin:'"[^\r\n"]*"'}]},{className:"built_in",variants:[{begin:"\\b(abs|acos|asin|atan|atan2|atanh|ceil|cloglog|comb|cos|digamma|exp|floor|invcloglog|invlogit|ln|lnfact|lnfactorial|lngamma|log|log10|max|min|mod|reldif|round|sign|sin|sqrt|sum|tan|tanh|trigamma|trunc|betaden|Binomial|binorm|binormal|chi2|chi2tail|dgammapda|dgammapdada|dgammapdadx|dgammapdx|dgammapdxdx|F|Fden|Ftail|gammaden|gammap|ibeta|invbinomial|invchi2|invchi2tail|invF|invFtail|invgammap|invibeta|invnchi2|invnFtail|invnibeta|invnorm|invnormal|invttail|nbetaden|nchi2|nFden|nFtail|nibeta|norm|normal|normalden|normd|npnchi2|tden|ttail|uniform|abbrev|char|index|indexnot|length|lower|ltrim|match|plural|proper|real|regexm|regexr|regexs|reverse|rtrim|string|strlen|strlower|strltrim|strmatch|strofreal|strpos|strproper|strreverse|strrtrim|strtrim|strupper|subinstr|subinword|substr|trim|upper|word|wordcount|_caller|autocode|byteorder|chop|clip|cond|e|epsdouble|epsfloat|group|inlist|inrange|irecode|matrix|maxbyte|maxdouble|maxfloat|maxint|maxlong|mi|minbyte|mindouble|minfloat|minint|minlong|missing|r|recode|replay|return|s|scalar|d|date|day|dow|doy|halfyear|mdy|month|quarter|week|year|d|daily|dofd|dofh|dofm|dofq|dofw|dofy|h|halfyearly|hofd|m|mofd|monthly|q|qofd|quarterly|tin|twithin|w|weekly|wofd|y|yearly|yh|ym|yofd|yq|yw|cholesky|colnumb|colsof|corr|det|diag|diag0cnt|el|get|hadamard|I|inv|invsym|issym|issymmetric|J|matmissing|matuniform|mreldif|nullmat|rownumb|rowsof|sweep|syminv|trace|vec|vecdiag)(?=\\()"}]},hljs.COMMENT("^[ \t]*\\*.*$",false),hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE]}});hljs.registerLanguage("scss",function(hljs){var AT_IDENTIFIER="@[a-z-]+";var AT_MODIFIERS="and or not only";var IDENT_RE="[a-zA-Z-][a-zA-Z0-9_-]*";var VARIABLE={className:"variable",begin:"(\\$"+IDENT_RE+")\\b"};var HEXCOLOR={className:"number",begin:"#[0-9A-Fa-f]+"};var DEF_INTERNALS={className:"attribute",begin:"[A-Z\\_\\.\\-]+",end:":",excludeEnd:true,illegal:"[^\\s]",starts:{endsWithParent:true,excludeEnd:true,contains:[HEXCOLOR,hljs.CSS_NUMBER_MODE,hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE,hljs.C_BLOCK_COMMENT_MODE,{className:"meta",begin:"!important"}]}};return{case_insensitive:true,illegal:"[=/|']",contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,{className:"selector-id",begin:"\\#[A-Za-z0-9_-]+",relevance:0},{className:"selector-class",begin:"\\.[A-Za-z0-9_-]+",relevance:0},{className:"selector-attr",begin:"\\[",end:"\\]",illegal:"$"},{className:"selector-tag",begin:"\\b(a|abbr|acronym|address|area|article|aside|audio|b|base|big|blockquote|body|br|button|canvas|caption|cite|code|col|colgroup|command|datalist|dd|del|details|dfn|div|dl|dt|em|embed|fieldset|figcaption|figure|footer|form|frame|frameset|(h[1-6])|head|header|hgroup|hr|html|i|iframe|img|input|ins|kbd|keygen|label|legend|li|link|map|mark|meta|meter|nav|noframes|noscript|object|ol|optgroup|option|output|p|param|pre|progress|q|rp|rt|ruby|samp|script|section|select|small|span|strike|strong|style|sub|sup|table|tbody|td|textarea|tfoot|th|thead|time|title|tr|tt|ul|var|video)\\b",relevance:0},{className:"selector-pseudo",begin:":(visited|valid|root|right|required|read-write|read-only|out-range|optional|only-of-type|only-child|nth-of-type|nth-last-of-type|nth-last-child|nth-child|not|link|left|last-of-type|last-child|lang|invalid|indeterminate|in-range|hover|focus|first-of-type|first-line|first-letter|first-child|first|enabled|empty|disabled|default|checked|before|after|active)"},{className:"selector-pseudo",begin:"::(after|before|choices|first-letter|first-line|repeat-index|repeat-item|selection|value)"},VARIABLE,{className:"attribute",begin:"\\b(src|z-index|word-wrap|word-spacing|word-break|width|widows|white-space|visibility|vertical-align|unicode-bidi|transition-timing-function|transition-property|transition-duration|transition-delay|transition|transform-style|transform-origin|transform|top|text-underline-position|text-transform|text-shadow|text-rendering|text-overflow|text-indent|text-decoration-style|text-decoration-line|text-decoration-color|text-decoration|text-align-last|text-align|tab-size|table-layout|right|resize|quotes|position|pointer-events|perspective-origin|perspective|page-break-inside|page-break-before|page-break-after|padding-top|padding-right|padding-left|padding-bottom|padding|overflow-y|overflow-x|overflow-wrap|overflow|outline-width|outline-style|outline-offset|outline-color|outline|orphans|order|opacity|object-position|object-fit|normal|none|nav-up|nav-right|nav-left|nav-index|nav-down|min-width|min-height|max-width|max-height|mask|marks|margin-top|margin-right|margin-left|margin-bottom|margin|list-style-type|list-style-position|list-style-image|list-style|line-height|letter-spacing|left|justify-content|initial|inherit|ime-mode|image-orientation|image-resolution|image-rendering|icon|hyphens|height|font-weight|font-variant-ligatures|font-variant|font-style|font-stretch|font-size-adjust|font-size|font-language-override|font-kerning|font-feature-settings|font-family|font|float|flex-wrap|flex-shrink|flex-grow|flex-flow|flex-direction|flex-basis|flex|filter|empty-cells|display|direction|cursor|counter-reset|counter-increment|content|column-width|column-span|column-rule-width|column-rule-style|column-rule-color|column-rule|column-gap|column-fill|column-count|columns|color|clip-path|clip|clear|caption-side|break-inside|break-before|break-after|box-sizing|box-shadow|box-decoration-break|bottom|border-width|border-top-width|border-top-style|border-top-right-radius|border-top-left-radius|border-top-color|border-top|border-style|border-spacing|border-right-width|border-right-style|border-right-color|border-right|border-radius|border-left-width|border-left-style|border-left-color|border-left|border-image-width|border-image-source|border-image-slice|border-image-repeat|border-image-outset|border-image|border-color|border-collapse|border-bottom-width|border-bottom-style|border-bottom-right-radius|border-bottom-left-radius|border-bottom-color|border-bottom|border|background-size|background-repeat|background-position|background-origin|background-image|background-color|background-clip|background-attachment|background-blend-mode|background|backface-visibility|auto|animation-timing-function|animation-play-state|animation-name|animation-iteration-count|animation-fill-mode|animation-duration|animation-direction|animation-delay|animation|align-self|align-items|align-content)\\b",illegal:"[^\\s]"},{begin:"\\b(whitespace|wait|w-resize|visible|vertical-text|vertical-ideographic|uppercase|upper-roman|upper-alpha|underline|transparent|top|thin|thick|text|text-top|text-bottom|tb-rl|table-header-group|table-footer-group|sw-resize|super|strict|static|square|solid|small-caps|separate|se-resize|scroll|s-resize|rtl|row-resize|ridge|right|repeat|repeat-y|repeat-x|relative|progress|pointer|overline|outside|outset|oblique|nowrap|not-allowed|normal|none|nw-resize|no-repeat|no-drop|newspaper|ne-resize|n-resize|move|middle|medium|ltr|lr-tb|lowercase|lower-roman|lower-alpha|loose|list-item|line|line-through|line-edge|lighter|left|keep-all|justify|italic|inter-word|inter-ideograph|inside|inset|inline|inline-block|inherit|inactive|ideograph-space|ideograph-parenthesis|ideograph-numeric|ideograph-alpha|horizontal|hidden|help|hand|groove|fixed|ellipsis|e-resize|double|dotted|distribute|distribute-space|distribute-letter|distribute-all-lines|disc|disabled|default|decimal|dashed|crosshair|collapse|col-resize|circle|char|center|capitalize|break-word|break-all|bottom|both|bolder|bold|block|bidi-override|below|baseline|auto|always|all-scroll|absolute|table|table-cell)\\b"},{begin:":",end:";",contains:[VARIABLE,HEXCOLOR,hljs.CSS_NUMBER_MODE,hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE,{className:"meta",begin:"!important"}]},{begin:"@(page|font-face)",lexemes:AT_IDENTIFIER,keywords:"@page @font-face"},{begin:"@",end:"[{;]",returnBegin:true,keywords:AT_MODIFIERS,contains:[{begin:AT_IDENTIFIER,className:"keyword"},VARIABLE,hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE,HEXCOLOR,hljs.CSS_NUMBER_MODE]}]}});hljs.registerLanguage("tcl",function(hljs){return{aliases:["tk"],keywords:"after append apply array auto_execok auto_import auto_load auto_mkindex "+"auto_mkindex_old auto_qualify auto_reset bgerror binary break catch cd chan clock "+"close concat continue dde dict encoding eof error eval exec exit expr fblocked "+"fconfigure fcopy file fileevent filename flush for foreach format gets glob global "+"history http if incr info interp join lappend|10 lassign|10 lindex|10 linsert|10 list "+"llength|10 load lrange|10 lrepeat|10 lreplace|10 lreverse|10 lsearch|10 lset|10 lsort|10 "+"mathfunc mathop memory msgcat namespace open package parray pid pkg::create pkg_mkIndex "+"platform platform::shell proc puts pwd read refchan regexp registry regsub|10 rename "+"return safe scan seek set socket source split string subst switch tcl_endOfWord "+"tcl_findLibrary tcl_startOfNextWord tcl_startOfPreviousWord tcl_wordBreakAfter "+"tcl_wordBreakBefore tcltest tclvars tell time tm trace unknown unload unset update "+"uplevel upvar variable vwait while",contains:[hljs.COMMENT(";[ \\t]*#","$"),hljs.COMMENT("^[ \\t]*#","$"),{beginKeywords:"proc",end:"[\\{]",excludeEnd:true,contains:[{className:"title",begin:"[ \\t\\n\\r]+(::)?[a-zA-Z_]((::)?[a-zA-Z0-9_])*",end:"[ \\t\\n\\r]",endsWithParent:true,excludeEnd:true}]},{excludeEnd:true,variants:[{begin:"\\$(\\{)?(::)?[a-zA-Z_]((::)?[a-zA-Z0-9_])*\\(([a-zA-Z0-9_])*\\)",end:"[^a-zA-Z0-9_\\}\\$]"},{begin:"\\$(\\{)?(::)?[a-zA-Z_]((::)?[a-zA-Z0-9_])*",end:"(\\))?[^a-zA-Z0-9_\\}\\$]"}]},{className:"string",contains:[hljs.BACKSLASH_ESCAPE],variants:[hljs.inherit(hljs.QUOTE_STRING_MODE,{illegal:null})]},{className:"number",variants:[hljs.BINARY_NUMBER_MODE,hljs.C_NUMBER_MODE]}]}});hljs.registerLanguage("pgsql",function(hljs){var COMMENT_MODE=hljs.COMMENT("--","$");var UNQUOTED_IDENT="[a-zA-Z_][a-zA-Z_0-9$]*";var DOLLAR_STRING="\\$([a-zA-Z_]?|[a-zA-Z_][a-zA-Z_0-9]*)\\$";var LABEL="<<\\s*"+UNQUOTED_IDENT+"\\s*>>";var SQL_KW="ABORT ALTER ANALYZE BEGIN CALL CHECKPOINT|10 CLOSE CLUSTER COMMENT COMMIT COPY CREATE DEALLOCATE DECLARE "+"DELETE DISCARD DO DROP END EXECUTE EXPLAIN FETCH GRANT IMPORT INSERT LISTEN LOAD LOCK MOVE NOTIFY "+"PREPARE REASSIGN|10 REFRESH REINDEX RELEASE RESET REVOKE ROLLBACK SAVEPOINT SECURITY SELECT SET SHOW "+"START TRUNCATE UNLISTEN|10 UPDATE VACUUM|10 VALUES "+"AGGREGATE COLLATION CONVERSION|10 DATABASE DEFAULT PRIVILEGES DOMAIN TRIGGER EXTENSION FOREIGN "+"WRAPPER|10 TABLE FUNCTION GROUP LANGUAGE LARGE OBJECT MATERIALIZED VIEW OPERATOR CLASS "+"FAMILY POLICY PUBLICATION|10 ROLE RULE SCHEMA SEQUENCE SERVER STATISTICS SUBSCRIPTION SYSTEM "+"TABLESPACE CONFIGURATION DICTIONARY PARSER TEMPLATE TYPE USER MAPPING PREPARED ACCESS "+"METHOD CAST AS TRANSFORM TRANSACTION OWNED TO INTO SESSION AUTHORIZATION "+"INDEX PROCEDURE ASSERTION "+"ALL ANALYSE AND ANY ARRAY ASC ASYMMETRIC|10 BOTH CASE CHECK "+"COLLATE COLUMN CONCURRENTLY|10 CONSTRAINT CROSS "+"DEFERRABLE RANGE "+"DESC DISTINCT ELSE EXCEPT FOR FREEZE|10 FROM FULL HAVING "+"ILIKE IN INITIALLY INNER INTERSECT IS ISNULL JOIN LATERAL LEADING LIKE LIMIT "+"NATURAL NOT NOTNULL NULL OFFSET ON ONLY OR ORDER OUTER OVERLAPS PLACING PRIMARY "+"REFERENCES RETURNING SIMILAR SOME SYMMETRIC TABLESAMPLE THEN "+"TRAILING UNION UNIQUE USING VARIADIC|10 VERBOSE WHEN WHERE WINDOW WITH "+"BY RETURNS INOUT OUT SETOF|10 IF STRICT CURRENT CONTINUE OWNER LOCATION OVER PARTITION WITHIN "+"BETWEEN ESCAPE EXTERNAL INVOKER DEFINER WORK RENAME VERSION CONNECTION CONNECT "+"TABLES TEMP TEMPORARY FUNCTIONS SEQUENCES TYPES SCHEMAS OPTION CASCADE RESTRICT ADD ADMIN "+"EXISTS VALID VALIDATE ENABLE DISABLE REPLICA|10 ALWAYS PASSING COLUMNS PATH "+"REF VALUE OVERRIDING IMMUTABLE STABLE VOLATILE BEFORE AFTER EACH ROW PROCEDURAL "+"ROUTINE NO HANDLER VALIDATOR OPTIONS STORAGE OIDS|10 WITHOUT INHERIT DEPENDS CALLED "+"INPUT LEAKPROOF|10 COST ROWS NOWAIT SEARCH UNTIL ENCRYPTED|10 PASSWORD CONFLICT|10 "+"INSTEAD INHERITS CHARACTERISTICS WRITE CURSOR ALSO STATEMENT SHARE EXCLUSIVE INLINE "+"ISOLATION REPEATABLE READ COMMITTED SERIALIZABLE UNCOMMITTED LOCAL GLOBAL SQL PROCEDURES "+"RECURSIVE SNAPSHOT ROLLUP CUBE TRUSTED|10 INCLUDE FOLLOWING PRECEDING UNBOUNDED RANGE GROUPS "+"UNENCRYPTED|10 SYSID FORMAT DELIMITER HEADER QUOTE ENCODING FILTER OFF "+"FORCE_QUOTE FORCE_NOT_NULL FORCE_NULL COSTS BUFFERS TIMING SUMMARY DISABLE_PAGE_SKIPPING "+"RESTART CYCLE GENERATED IDENTITY DEFERRED IMMEDIATE LEVEL LOGGED UNLOGGED "+"OF NOTHING NONE EXCLUDE ATTRIBUTE "+"USAGE ROUTINES "+"TRUE FALSE NAN INFINITY ";var ROLE_ATTRS="SUPERUSER NOSUPERUSER CREATEDB NOCREATEDB CREATEROLE NOCREATEROLE INHERIT NOINHERIT "+"LOGIN NOLOGIN REPLICATION NOREPLICATION BYPASSRLS NOBYPASSRLS ";var PLPGSQL_KW="ALIAS BEGIN CONSTANT DECLARE END EXCEPTION RETURN PERFORM|10 RAISE GET DIAGNOSTICS "+"STACKED|10 FOREACH LOOP ELSIF EXIT WHILE REVERSE SLICE DEBUG LOG INFO NOTICE WARNING ASSERT "+"OPEN ";var TYPES="BIGINT INT8 BIGSERIAL SERIAL8 BIT VARYING VARBIT BOOLEAN BOOL BOX BYTEA CHARACTER CHAR VARCHAR "+"CIDR CIRCLE DATE DOUBLE PRECISION FLOAT8 FLOAT INET INTEGER INT INT4 INTERVAL JSON JSONB LINE LSEG|10 "+"MACADDR MACADDR8 MONEY NUMERIC DEC DECIMAL PATH POINT POLYGON REAL FLOAT4 SMALLINT INT2 "+"SMALLSERIAL|10 SERIAL2|10 SERIAL|10 SERIAL4|10 TEXT TIME ZONE TIMETZ|10 TIMESTAMP TIMESTAMPTZ|10 TSQUERY|10 TSVECTOR|10 "+"TXID_SNAPSHOT|10 UUID XML NATIONAL NCHAR "+"INT4RANGE|10 INT8RANGE|10 NUMRANGE|10 TSRANGE|10 TSTZRANGE|10 DATERANGE|10 "+"ANYELEMENT ANYARRAY ANYNONARRAY ANYENUM ANYRANGE CSTRING INTERNAL "+"RECORD PG_DDL_COMMAND VOID UNKNOWN OPAQUE REFCURSOR "+"NAME "+"OID REGPROC|10 REGPROCEDURE|10 REGOPER|10 REGOPERATOR|10 REGCLASS|10 REGTYPE|10 REGROLE|10 "+"REGNAMESPACE|10 REGCONFIG|10 REGDICTIONARY|10 ";"HSTORE|10 LO LTREE|10 ";var TYPES_RE=TYPES.trim().split(" ").map(function(val){return val.split("|")[0]}).join("|");var SQL_BI="CURRENT_TIME CURRENT_TIMESTAMP CURRENT_USER CURRENT_CATALOG|10 CURRENT_DATE LOCALTIME LOCALTIMESTAMP "+"CURRENT_ROLE|10 CURRENT_SCHEMA|10 SESSION_USER PUBLIC ";var PLPGSQL_BI="FOUND NEW OLD TG_NAME|10 TG_WHEN|10 TG_LEVEL|10 TG_OP|10 TG_RELID|10 TG_RELNAME|10 "+"TG_TABLE_NAME|10 TG_TABLE_SCHEMA|10 TG_NARGS|10 TG_ARGV|10 TG_EVENT|10 TG_TAG|10 "+"ROW_COUNT RESULT_OID|10 PG_CONTEXT|10 RETURNED_SQLSTATE COLUMN_NAME CONSTRAINT_NAME "+"PG_DATATYPE_NAME|10 MESSAGE_TEXT TABLE_NAME SCHEMA_NAME PG_EXCEPTION_DETAIL|10 "+"PG_EXCEPTION_HINT|10 PG_EXCEPTION_CONTEXT|10 ";var PLPGSQL_EXCEPTIONS="SQLSTATE SQLERRM|10 "+"SUCCESSFUL_COMPLETION WARNING DYNAMIC_RESULT_SETS_RETURNED IMPLICIT_ZERO_BIT_PADDING "+"NULL_VALUE_ELIMINATED_IN_SET_FUNCTION PRIVILEGE_NOT_GRANTED PRIVILEGE_NOT_REVOKED "+"STRING_DATA_RIGHT_TRUNCATION DEPRECATED_FEATURE NO_DATA NO_ADDITIONAL_DYNAMIC_RESULT_SETS_RETURNED "+"SQL_STATEMENT_NOT_YET_COMPLETE CONNECTION_EXCEPTION CONNECTION_DOES_NOT_EXIST CONNECTION_FAILURE "+"SQLCLIENT_UNABLE_TO_ESTABLISH_SQLCONNECTION SQLSERVER_REJECTED_ESTABLISHMENT_OF_SQLCONNECTION "+"TRANSACTION_RESOLUTION_UNKNOWN PROTOCOL_VIOLATION TRIGGERED_ACTION_EXCEPTION FEATURE_NOT_SUPPORTED "+"INVALID_TRANSACTION_INITIATION LOCATOR_EXCEPTION INVALID_LOCATOR_SPECIFICATION INVALID_GRANTOR "+"INVALID_GRANT_OPERATION INVALID_ROLE_SPECIFICATION DIAGNOSTICS_EXCEPTION "+"STACKED_DIAGNOSTICS_ACCESSED_WITHOUT_ACTIVE_HANDLER CASE_NOT_FOUND CARDINALITY_VIOLATION "+"DATA_EXCEPTION ARRAY_SUBSCRIPT_ERROR CHARACTER_NOT_IN_REPERTOIRE DATETIME_FIELD_OVERFLOW "+"DIVISION_BY_ZERO ERROR_IN_ASSIGNMENT ESCAPE_CHARACTER_CONFLICT INDICATOR_OVERFLOW "+"INTERVAL_FIELD_OVERFLOW INVALID_ARGUMENT_FOR_LOGARITHM INVALID_ARGUMENT_FOR_NTILE_FUNCTION "+"INVALID_ARGUMENT_FOR_NTH_VALUE_FUNCTION INVALID_ARGUMENT_FOR_POWER_FUNCTION "+"INVALID_ARGUMENT_FOR_WIDTH_BUCKET_FUNCTION INVALID_CHARACTER_VALUE_FOR_CAST "+"INVALID_DATETIME_FORMAT INVALID_ESCAPE_CHARACTER INVALID_ESCAPE_OCTET INVALID_ESCAPE_SEQUENCE "+"NONSTANDARD_USE_OF_ESCAPE_CHARACTER INVALID_INDICATOR_PARAMETER_VALUE INVALID_PARAMETER_VALUE "+"INVALID_REGULAR_EXPRESSION INVALID_ROW_COUNT_IN_LIMIT_CLAUSE "+"INVALID_ROW_COUNT_IN_RESULT_OFFSET_CLAUSE INVALID_TABLESAMPLE_ARGUMENT INVALID_TABLESAMPLE_REPEAT "+"INVALID_TIME_ZONE_DISPLACEMENT_VALUE INVALID_USE_OF_ESCAPE_CHARACTER MOST_SPECIFIC_TYPE_MISMATCH "+"NULL_VALUE_NOT_ALLOWED NULL_VALUE_NO_INDICATOR_PARAMETER NUMERIC_VALUE_OUT_OF_RANGE "+"SEQUENCE_GENERATOR_LIMIT_EXCEEDED STRING_DATA_LENGTH_MISMATCH STRING_DATA_RIGHT_TRUNCATION "+"SUBSTRING_ERROR TRIM_ERROR UNTERMINATED_C_STRING ZERO_LENGTH_CHARACTER_STRING "+"FLOATING_POINT_EXCEPTION INVALID_TEXT_REPRESENTATION INVALID_BINARY_REPRESENTATION "+"BAD_COPY_FILE_FORMAT UNTRANSLATABLE_CHARACTER NOT_AN_XML_DOCUMENT INVALID_XML_DOCUMENT "+"INVALID_XML_CONTENT INVALID_XML_COMMENT INVALID_XML_PROCESSING_INSTRUCTION "+"INTEGRITY_CONSTRAINT_VIOLATION RESTRICT_VIOLATION NOT_NULL_VIOLATION FOREIGN_KEY_VIOLATION "+"UNIQUE_VIOLATION CHECK_VIOLATION EXCLUSION_VIOLATION INVALID_CURSOR_STATE "+"INVALID_TRANSACTION_STATE ACTIVE_SQL_TRANSACTION BRANCH_TRANSACTION_ALREADY_ACTIVE "+"HELD_CURSOR_REQUIRES_SAME_ISOLATION_LEVEL INAPPROPRIATE_ACCESS_MODE_FOR_BRANCH_TRANSACTION "+"INAPPROPRIATE_ISOLATION_LEVEL_FOR_BRANCH_TRANSACTION "+"NO_ACTIVE_SQL_TRANSACTION_FOR_BRANCH_TRANSACTION READ_ONLY_SQL_TRANSACTION "+"SCHEMA_AND_DATA_STATEMENT_MIXING_NOT_SUPPORTED NO_ACTIVE_SQL_TRANSACTION "+"IN_FAILED_SQL_TRANSACTION IDLE_IN_TRANSACTION_SESSION_TIMEOUT INVALID_SQL_STATEMENT_NAME "+"TRIGGERED_DATA_CHANGE_VIOLATION INVALID_AUTHORIZATION_SPECIFICATION INVALID_PASSWORD "+"DEPENDENT_PRIVILEGE_DESCRIPTORS_STILL_EXIST DEPENDENT_OBJECTS_STILL_EXIST "+"INVALID_TRANSACTION_TERMINATION SQL_ROUTINE_EXCEPTION FUNCTION_EXECUTED_NO_RETURN_STATEMENT "+"MODIFYING_SQL_DATA_NOT_PERMITTED PROHIBITED_SQL_STATEMENT_ATTEMPTED "+"READING_SQL_DATA_NOT_PERMITTED INVALID_CURSOR_NAME EXTERNAL_ROUTINE_EXCEPTION "+"CONTAINING_SQL_NOT_PERMITTED MODIFYING_SQL_DATA_NOT_PERMITTED "+"PROHIBITED_SQL_STATEMENT_ATTEMPTED READING_SQL_DATA_NOT_PERMITTED "+"EXTERNAL_ROUTINE_INVOCATION_EXCEPTION INVALID_SQLSTATE_RETURNED NULL_VALUE_NOT_ALLOWED "+"TRIGGER_PROTOCOL_VIOLATED SRF_PROTOCOL_VIOLATED EVENT_TRIGGER_PROTOCOL_VIOLATED "+"SAVEPOINT_EXCEPTION INVALID_SAVEPOINT_SPECIFICATION INVALID_CATALOG_NAME "+"INVALID_SCHEMA_NAME TRANSACTION_ROLLBACK TRANSACTION_INTEGRITY_CONSTRAINT_VIOLATION "+"SERIALIZATION_FAILURE STATEMENT_COMPLETION_UNKNOWN DEADLOCK_DETECTED "+"SYNTAX_ERROR_OR_ACCESS_RULE_VIOLATION SYNTAX_ERROR INSUFFICIENT_PRIVILEGE CANNOT_COERCE "+"GROUPING_ERROR WINDOWING_ERROR INVALID_RECURSION INVALID_FOREIGN_KEY INVALID_NAME "+"NAME_TOO_LONG RESERVED_NAME DATATYPE_MISMATCH INDETERMINATE_DATATYPE COLLATION_MISMATCH "+"INDETERMINATE_COLLATION WRONG_OBJECT_TYPE GENERATED_ALWAYS UNDEFINED_COLUMN "+"UNDEFINED_FUNCTION UNDEFINED_TABLE UNDEFINED_PARAMETER UNDEFINED_OBJECT "+"DUPLICATE_COLUMN DUPLICATE_CURSOR DUPLICATE_DATABASE DUPLICATE_FUNCTION "+"DUPLICATE_PREPARED_STATEMENT DUPLICATE_SCHEMA DUPLICATE_TABLE DUPLICATE_ALIAS "+"DUPLICATE_OBJECT AMBIGUOUS_COLUMN AMBIGUOUS_FUNCTION AMBIGUOUS_PARAMETER AMBIGUOUS_ALIAS "+"INVALID_COLUMN_REFERENCE INVALID_COLUMN_DEFINITION INVALID_CURSOR_DEFINITION "+"INVALID_DATABASE_DEFINITION INVALID_FUNCTION_DEFINITION "+"INVALID_PREPARED_STATEMENT_DEFINITION INVALID_SCHEMA_DEFINITION INVALID_TABLE_DEFINITION "+"INVALID_OBJECT_DEFINITION WITH_CHECK_OPTION_VIOLATION INSUFFICIENT_RESOURCES DISK_FULL "+"OUT_OF_MEMORY TOO_MANY_CONNECTIONS CONFIGURATION_LIMIT_EXCEEDED PROGRAM_LIMIT_EXCEEDED "+"STATEMENT_TOO_COMPLEX TOO_MANY_COLUMNS TOO_MANY_ARGUMENTS OBJECT_NOT_IN_PREREQUISITE_STATE "+"OBJECT_IN_USE CANT_CHANGE_RUNTIME_PARAM LOCK_NOT_AVAILABLE OPERATOR_INTERVENTION "+"QUERY_CANCELED ADMIN_SHUTDOWN CRASH_SHUTDOWN CANNOT_CONNECT_NOW DATABASE_DROPPED "+"SYSTEM_ERROR IO_ERROR UNDEFINED_FILE DUPLICATE_FILE SNAPSHOT_TOO_OLD CONFIG_FILE_ERROR "+"LOCK_FILE_EXISTS FDW_ERROR FDW_COLUMN_NAME_NOT_FOUND FDW_DYNAMIC_PARAMETER_VALUE_NEEDED "+"FDW_FUNCTION_SEQUENCE_ERROR FDW_INCONSISTENT_DESCRIPTOR_INFORMATION "+"FDW_INVALID_ATTRIBUTE_VALUE FDW_INVALID_COLUMN_NAME FDW_INVALID_COLUMN_NUMBER "+"FDW_INVALID_DATA_TYPE FDW_INVALID_DATA_TYPE_DESCRIPTORS "+"FDW_INVALID_DESCRIPTOR_FIELD_IDENTIFIER FDW_INVALID_HANDLE FDW_INVALID_OPTION_INDEX "+"FDW_INVALID_OPTION_NAME FDW_INVALID_STRING_LENGTH_OR_BUFFER_LENGTH "+"FDW_INVALID_STRING_FORMAT FDW_INVALID_USE_OF_NULL_POINTER FDW_TOO_MANY_HANDLES "+"FDW_OUT_OF_MEMORY FDW_NO_SCHEMAS FDW_OPTION_NAME_NOT_FOUND FDW_REPLY_HANDLE "+"FDW_SCHEMA_NOT_FOUND FDW_TABLE_NOT_FOUND FDW_UNABLE_TO_CREATE_EXECUTION "+"FDW_UNABLE_TO_CREATE_REPLY FDW_UNABLE_TO_ESTABLISH_CONNECTION PLPGSQL_ERROR "+"RAISE_EXCEPTION NO_DATA_FOUND TOO_MANY_ROWS ASSERT_FAILURE INTERNAL_ERROR DATA_CORRUPTED "+"INDEX_CORRUPTED ";var FUNCTIONS="ARRAY_AGG AVG BIT_AND BIT_OR BOOL_AND BOOL_OR COUNT EVERY JSON_AGG JSONB_AGG JSON_OBJECT_AGG "+"JSONB_OBJECT_AGG MAX MIN MODE STRING_AGG SUM XMLAGG "+"CORR COVAR_POP COVAR_SAMP REGR_AVGX REGR_AVGY REGR_COUNT REGR_INTERCEPT REGR_R2 REGR_SLOPE "+"REGR_SXX REGR_SXY REGR_SYY STDDEV STDDEV_POP STDDEV_SAMP VARIANCE VAR_POP VAR_SAMP "+"PERCENTILE_CONT PERCENTILE_DISC "+"ROW_NUMBER RANK DENSE_RANK PERCENT_RANK CUME_DIST NTILE LAG LEAD FIRST_VALUE LAST_VALUE NTH_VALUE "+"NUM_NONNULLS NUM_NULLS "+"ABS CBRT CEIL CEILING DEGREES DIV EXP FLOOR LN LOG MOD PI POWER RADIANS ROUND SCALE SIGN SQRT "+"TRUNC WIDTH_BUCKET "+"RANDOM SETSEED "+"ACOS ACOSD ASIN ASIND ATAN ATAND ATAN2 ATAN2D COS COSD COT COTD SIN SIND TAN TAND "+"BIT_LENGTH CHAR_LENGTH CHARACTER_LENGTH LOWER OCTET_LENGTH OVERLAY POSITION SUBSTRING TREAT TRIM UPPER "+"ASCII BTRIM CHR CONCAT CONCAT_WS CONVERT CONVERT_FROM CONVERT_TO DECODE ENCODE INITCAP"+"LEFT LENGTH LPAD LTRIM MD5 PARSE_IDENT PG_CLIENT_ENCODING QUOTE_IDENT|10 QUOTE_LITERAL|10 "+"QUOTE_NULLABLE|10 REGEXP_MATCH REGEXP_MATCHES REGEXP_REPLACE REGEXP_SPLIT_TO_ARRAY "+"REGEXP_SPLIT_TO_TABLE REPEAT REPLACE REVERSE RIGHT RPAD RTRIM SPLIT_PART STRPOS SUBSTR "+"TO_ASCII TO_HEX TRANSLATE "+"OCTET_LENGTH GET_BIT GET_BYTE SET_BIT SET_BYTE "+"TO_CHAR TO_DATE TO_NUMBER TO_TIMESTAMP "+"AGE CLOCK_TIMESTAMP|10 DATE_PART DATE_TRUNC ISFINITE JUSTIFY_DAYS JUSTIFY_HOURS JUSTIFY_INTERVAL "+"MAKE_DATE MAKE_INTERVAL|10 MAKE_TIME MAKE_TIMESTAMP|10 MAKE_TIMESTAMPTZ|10 NOW STATEMENT_TIMESTAMP|10 "+"TIMEOFDAY TRANSACTION_TIMESTAMP|10 "+"ENUM_FIRST ENUM_LAST ENUM_RANGE "+"AREA CENTER DIAMETER HEIGHT ISCLOSED ISOPEN NPOINTS PCLOSE POPEN RADIUS WIDTH "+"BOX BOUND_BOX CIRCLE LINE LSEG PATH POLYGON "+"ABBREV BROADCAST HOST HOSTMASK MASKLEN NETMASK NETWORK SET_MASKLEN TEXT INET_SAME_FAMILY"+"INET_MERGE MACADDR8_SET7BIT "+"ARRAY_TO_TSVECTOR GET_CURRENT_TS_CONFIG NUMNODE PLAINTO_TSQUERY PHRASETO_TSQUERY WEBSEARCH_TO_TSQUERY "+"QUERYTREE SETWEIGHT STRIP TO_TSQUERY TO_TSVECTOR JSON_TO_TSVECTOR JSONB_TO_TSVECTOR TS_DELETE "+"TS_FILTER TS_HEADLINE TS_RANK TS_RANK_CD TS_REWRITE TSQUERY_PHRASE TSVECTOR_TO_ARRAY "+"TSVECTOR_UPDATE_TRIGGER TSVECTOR_UPDATE_TRIGGER_COLUMN "+"XMLCOMMENT XMLCONCAT XMLELEMENT XMLFOREST XMLPI XMLROOT "+"XMLEXISTS XML_IS_WELL_FORMED XML_IS_WELL_FORMED_DOCUMENT XML_IS_WELL_FORMED_CONTENT "+"XPATH XPATH_EXISTS XMLTABLE XMLNAMESPACES "+"TABLE_TO_XML TABLE_TO_XMLSCHEMA TABLE_TO_XML_AND_XMLSCHEMA "+"QUERY_TO_XML QUERY_TO_XMLSCHEMA QUERY_TO_XML_AND_XMLSCHEMA "+"CURSOR_TO_XML CURSOR_TO_XMLSCHEMA "+"SCHEMA_TO_XML SCHEMA_TO_XMLSCHEMA SCHEMA_TO_XML_AND_XMLSCHEMA "+"DATABASE_TO_XML DATABASE_TO_XMLSCHEMA DATABASE_TO_XML_AND_XMLSCHEMA "+"XMLATTRIBUTES "+"TO_JSON TO_JSONB ARRAY_TO_JSON ROW_TO_JSON JSON_BUILD_ARRAY JSONB_BUILD_ARRAY JSON_BUILD_OBJECT "+"JSONB_BUILD_OBJECT JSON_OBJECT JSONB_OBJECT JSON_ARRAY_LENGTH JSONB_ARRAY_LENGTH JSON_EACH "+"JSONB_EACH JSON_EACH_TEXT JSONB_EACH_TEXT JSON_EXTRACT_PATH JSONB_EXTRACT_PATH "+"JSON_OBJECT_KEYS JSONB_OBJECT_KEYS JSON_POPULATE_RECORD JSONB_POPULATE_RECORD JSON_POPULATE_RECORDSET "+"JSONB_POPULATE_RECORDSET JSON_ARRAY_ELEMENTS JSONB_ARRAY_ELEMENTS JSON_ARRAY_ELEMENTS_TEXT "+"JSONB_ARRAY_ELEMENTS_TEXT JSON_TYPEOF JSONB_TYPEOF JSON_TO_RECORD JSONB_TO_RECORD JSON_TO_RECORDSET "+"JSONB_TO_RECORDSET JSON_STRIP_NULLS JSONB_STRIP_NULLS JSONB_SET JSONB_INSERT JSONB_PRETTY "+"CURRVAL LASTVAL NEXTVAL SETVAL "+"COALESCE NULLIF GREATEST LEAST "+"ARRAY_APPEND ARRAY_CAT ARRAY_NDIMS ARRAY_DIMS ARRAY_FILL ARRAY_LENGTH ARRAY_LOWER ARRAY_POSITION "+"ARRAY_POSITIONS ARRAY_PREPEND ARRAY_REMOVE ARRAY_REPLACE ARRAY_TO_STRING ARRAY_UPPER CARDINALITY "+"STRING_TO_ARRAY UNNEST "+"ISEMPTY LOWER_INC UPPER_INC LOWER_INF UPPER_INF RANGE_MERGE "+"GENERATE_SERIES GENERATE_SUBSCRIPTS "+"CURRENT_DATABASE CURRENT_QUERY CURRENT_SCHEMA|10 CURRENT_SCHEMAS|10 INET_CLIENT_ADDR INET_CLIENT_PORT "+"INET_SERVER_ADDR INET_SERVER_PORT ROW_SECURITY_ACTIVE FORMAT_TYPE "+"TO_REGCLASS TO_REGPROC TO_REGPROCEDURE TO_REGOPER TO_REGOPERATOR TO_REGTYPE TO_REGNAMESPACE TO_REGROLE "+"COL_DESCRIPTION OBJ_DESCRIPTION SHOBJ_DESCRIPTION "+"TXID_CURRENT TXID_CURRENT_IF_ASSIGNED TXID_CURRENT_SNAPSHOT TXID_SNAPSHOT_XIP TXID_SNAPSHOT_XMAX "+"TXID_SNAPSHOT_XMIN TXID_VISIBLE_IN_SNAPSHOT TXID_STATUS "+"CURRENT_SETTING SET_CONFIG BRIN_SUMMARIZE_NEW_VALUES BRIN_SUMMARIZE_RANGE BRIN_DESUMMARIZE_RANGE "+"GIN_CLEAN_PENDING_LIST "+"SUPPRESS_REDUNDANT_UPDATES_TRIGGER "+"LO_FROM_BYTEA LO_PUT LO_GET LO_CREAT LO_CREATE LO_UNLINK LO_IMPORT LO_EXPORT LOREAD LOWRITE "+"GROUPING CAST ";var FUNCTIONS_RE=FUNCTIONS.trim().split(" ").map(function(val){return val.split("|")[0]}).join("|");return{aliases:["postgres","postgresql"],case_insensitive:true,keywords:{keyword:SQL_KW+PLPGSQL_KW+ROLE_ATTRS,built_in:SQL_BI+PLPGSQL_BI+PLPGSQL_EXCEPTIONS},illegal:/:==|\W\s*\(\*|(^|\s)\$[a-z]|{{|[a-z]:\s*$|\.\.\.|TO:|DO:/,contains:[{className:"keyword",variants:[{begin:/\bTEXT\s*SEARCH\b/},{begin:/\b(PRIMARY|FOREIGN|FOR(\s+NO)?)\s+KEY\b/},{begin:/\bPARALLEL\s+(UNSAFE|RESTRICTED|SAFE)\b/},{begin:/\bSTORAGE\s+(PLAIN|EXTERNAL|EXTENDED|MAIN)\b/},{begin:/\bMATCH\s+(FULL|PARTIAL|SIMPLE)\b/},{begin:/\bNULLS\s+(FIRST|LAST)\b/},{begin:/\bEVENT\s+TRIGGER\b/},{begin:/\b(MAPPING|OR)\s+REPLACE\b/},{begin:/\b(FROM|TO)\s+(PROGRAM|STDIN|STDOUT)\b/},{begin:/\b(SHARE|EXCLUSIVE)\s+MODE\b/},{begin:/\b(LEFT|RIGHT)\s+(OUTER\s+)?JOIN\b/},{begin:/\b(FETCH|MOVE)\s+(NEXT|PRIOR|FIRST|LAST|ABSOLUTE|RELATIVE|FORWARD|BACKWARD)\b/},{begin:/\bPRESERVE\s+ROWS\b/},{begin:/\bDISCARD\s+PLANS\b/},{begin:/\bREFERENCING\s+(OLD|NEW)\b/},{begin:/\bSKIP\s+LOCKED\b/},{begin:/\bGROUPING\s+SETS\b/},{begin:/\b(BINARY|INSENSITIVE|SCROLL|NO\s+SCROLL)\s+(CURSOR|FOR)\b/},{begin:/\b(WITH|WITHOUT)\s+HOLD\b/},{begin:/\bWITH\s+(CASCADED|LOCAL)\s+CHECK\s+OPTION\b/},{begin:/\bEXCLUDE\s+(TIES|NO\s+OTHERS)\b/},{begin:/\bFORMAT\s+(TEXT|XML|JSON|YAML)\b/},{begin:/\bSET\s+((SESSION|LOCAL)\s+)?NAMES\b/},{begin:/\bIS\s+(NOT\s+)?UNKNOWN\b/},{begin:/\bSECURITY\s+LABEL\b/},{begin:/\bSTANDALONE\s+(YES|NO|NO\s+VALUE)\b/},{begin:/\bWITH\s+(NO\s+)?DATA\b/},{begin:/\b(FOREIGN|SET)\s+DATA\b/},{begin:/\bSET\s+(CATALOG|CONSTRAINTS)\b/},{begin:/\b(WITH|FOR)\s+ORDINALITY\b/},{begin:/\bIS\s+(NOT\s+)?DOCUMENT\b/},{begin:/\bXML\s+OPTION\s+(DOCUMENT|CONTENT)\b/},{begin:/\b(STRIP|PRESERVE)\s+WHITESPACE\b/},{begin:/\bNO\s+(ACTION|MAXVALUE|MINVALUE)\b/},{begin:/\bPARTITION\s+BY\s+(RANGE|LIST|HASH)\b/},{begin:/\bAT\s+TIME\s+ZONE\b/},{begin:/\bGRANTED\s+BY\b/},{begin:/\bRETURN\s+(QUERY|NEXT)\b/},{begin:/\b(ATTACH|DETACH)\s+PARTITION\b/},{begin:/\bFORCE\s+ROW\s+LEVEL\s+SECURITY\b/},{begin:/\b(INCLUDING|EXCLUDING)\s+(COMMENTS|CONSTRAINTS|DEFAULTS|IDENTITY|INDEXES|STATISTICS|STORAGE|ALL)\b/},{begin:/\bAS\s+(ASSIGNMENT|IMPLICIT|PERMISSIVE|RESTRICTIVE|ENUM|RANGE)\b/}]},{begin:/\b(FORMAT|FAMILY|VERSION)\s*\(/},{begin:/\bINCLUDE\s*\(/,keywords:"INCLUDE"},{begin:/\bRANGE(?!\s*(BETWEEN|UNBOUNDED|CURRENT|[-0-9]+))/},{begin:/\b(VERSION|OWNER|TEMPLATE|TABLESPACE|CONNECTION\s+LIMIT|PROCEDURE|RESTRICT|JOIN|PARSER|COPY|START|END|COLLATION|INPUT|ANALYZE|STORAGE|LIKE|DEFAULT|DELIMITER|ENCODING|COLUMN|CONSTRAINT|TABLE|SCHEMA)\s*=/},{begin:/\b(PG_\w+?|HAS_[A-Z_]+_PRIVILEGE)\b/,relevance:10},{begin:/\bEXTRACT\s*\(/,end:/\bFROM\b/,returnEnd:true,keywords:{type:"CENTURY DAY DECADE DOW DOY EPOCH HOUR ISODOW ISOYEAR MICROSECONDS "+"MILLENNIUM MILLISECONDS MINUTE MONTH QUARTER SECOND TIMEZONE TIMEZONE_HOUR "+"TIMEZONE_MINUTE WEEK YEAR"}},{begin:/\b(XMLELEMENT|XMLPI)\s*\(\s*NAME/,keywords:{keyword:"NAME"}},{begin:/\b(XMLPARSE|XMLSERIALIZE)\s*\(\s*(DOCUMENT|CONTENT)/,keywords:{keyword:"DOCUMENT CONTENT"}},{beginKeywords:"CACHE INCREMENT MAXVALUE MINVALUE",end:hljs.C_NUMBER_RE,returnEnd:true,keywords:"BY CACHE INCREMENT MAXVALUE MINVALUE"},{className:"type",begin:/\b(WITH|WITHOUT)\s+TIME\s+ZONE\b/},{className:"type",begin:/\bINTERVAL\s+(YEAR|MONTH|DAY|HOUR|MINUTE|SECOND)(\s+TO\s+(MONTH|HOUR|MINUTE|SECOND))?\b/},{begin:/\bRETURNS\s+(LANGUAGE_HANDLER|TRIGGER|EVENT_TRIGGER|FDW_HANDLER|INDEX_AM_HANDLER|TSM_HANDLER)\b/,keywords:{keyword:"RETURNS",type:"LANGUAGE_HANDLER TRIGGER EVENT_TRIGGER FDW_HANDLER INDEX_AM_HANDLER TSM_HANDLER"}},{begin:"\\b("+FUNCTIONS_RE+")\\s*\\("},{begin:"\\.("+TYPES_RE+")\\b"},{begin:"\\b("+TYPES_RE+")\\s+PATH\\b",keywords:{keyword:"PATH",type:TYPES.replace("PATH ","")}},{className:"type",begin:"\\b("+TYPES_RE+")\\b"},{className:"string",begin:"'",end:"'",contains:[{begin:"''"}]},{className:"string",begin:"(e|E|u&|U&)'",end:"'",contains:[{begin:"\\\\."}],relevance:10},{begin:DOLLAR_STRING,endSameAsBegin:true,contains:[{subLanguage:["pgsql","perl","python","tcl","r","lua","java","php","ruby","bash","scheme","xml","json"],endsWithParent:true}]},{begin:'"',end:'"',contains:[{begin:'""'}]},hljs.C_NUMBER_MODE,hljs.C_BLOCK_COMMENT_MODE,COMMENT_MODE,{className:"meta",variants:[{begin:"%(ROW)?TYPE",relevance:10},{begin:"\\$\\d+"},{begin:"^#\\w",end:"$"}]},{className:"symbol",begin:LABEL,relevance:10}]}});hljs.registerLanguage("brainfuck",function(hljs){var LITERAL={className:"literal",begin:"[\\+\\-]",relevance:0};return{aliases:["bf"],contains:[hljs.COMMENT("[^\\[\\]\\.,\\+\\-<> \r\n]","[\\[\\]\\.,\\+\\-<> \r\n]",{returnEnd:true,relevance:0}),{className:"title",begin:"[\\[\\]]",relevance:0},{className:"string",begin:"[\\.,]",relevance:0},{begin:/(?:\+\+|\-\-)/,contains:[LITERAL]},LITERAL]}});hljs.registerLanguage("rsl",function(hljs){return{keywords:{keyword:"float color point normal vector matrix while for if do return else break extern continue",built_in:"abs acos ambient area asin atan atmosphere attribute calculatenormal ceil cellnoise "+"clamp comp concat cos degrees depth Deriv diffuse distance Du Dv environment exp "+"faceforward filterstep floor format fresnel incident length lightsource log match "+"max min mod noise normalize ntransform opposite option phong pnoise pow printf "+"ptlined radians random reflect refract renderinfo round setcomp setxcomp setycomp "+"setzcomp shadow sign sin smoothstep specular specularbrdf spline sqrt step tan "+"texture textureinfo trace transform vtransform xcomp ycomp zcomp"},illegal:"</",contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE,hljs.C_NUMBER_MODE,{className:"meta",begin:"#",end:"$"},{className:"class",beginKeywords:"surface displacement light volume imager",end:"\\("},{beginKeywords:"illuminate illuminance gather",end:"\\("}]}});hljs.registerLanguage("crystal",function(hljs){var INT_SUFFIX="(_*[ui](8|16|32|64|128))?";var FLOAT_SUFFIX="(_*f(32|64))?";var CRYSTAL_IDENT_RE="[a-zA-Z_]\\w*[!?=]?";var CRYSTAL_METHOD_RE="[a-zA-Z_]\\w*[!?=]?|[-+~]\\@|<<|>>|[=!]~|===?|<=>|[<>]=?|\\*\\*|[-/+%^&*~|]|//|//=|&[-+*]=?|&\\*\\*|\\[\\][=?]?";var CRYSTAL_PATH_RE="[A-Za-z_]\\w*(::\\w+)*(\\?|\\!)?";var CRYSTAL_KEYWORDS={keyword:"abstract alias annotation as as? asm begin break case class def do else elsif end ensure enum extend for fun if "+"include instance_sizeof is_a? lib macro module next nil? of out pointerof private protected rescue responds_to? "+"return require select self sizeof struct super then type typeof union uninitialized unless until verbatim when while with yield "+"__DIR__ __END_LINE__ __FILE__ __LINE__",literal:"false nil true"};var SUBST={className:"subst",begin:"#{",end:"}",keywords:CRYSTAL_KEYWORDS};var EXPANSION={className:"template-variable",variants:[{begin:"\\{\\{",end:"\\}\\}"},{begin:"\\{%",end:"%\\}"}],keywords:CRYSTAL_KEYWORDS};function recursiveParen(begin,end){var contains=[{begin:begin,end:end}];contains[0].contains=contains;return contains}var STRING={className:"string",contains:[hljs.BACKSLASH_ESCAPE,SUBST],variants:[{begin:/'/,end:/'/},{begin:/"/,end:/"/},{begin:/`/,end:/`/},{begin:"%[Qwi]?\\(",end:"\\)",contains:recursiveParen("\\(","\\)")},{begin:"%[Qwi]?\\[",end:"\\]",contains:recursiveParen("\\[","\\]")},{begin:"%[Qwi]?{",end:"}",contains:recursiveParen("{","}")},{begin:"%[Qwi]?<",end:">",contains:recursiveParen("<",">")},{begin:"%[Qwi]?\\|",end:"\\|"},{begin:/<<-\w+$/,end:/^\s*\w+$/}],relevance:0};var Q_STRING={className:"string",variants:[{begin:"%q\\(",end:"\\)",contains:recursiveParen("\\(","\\)")},{begin:"%q\\[",end:"\\]",contains:recursiveParen("\\[","\\]")},{begin:"%q{",end:"}",contains:recursiveParen("{","}")},{begin:"%q<",end:">",contains:recursiveParen("<",">")},{begin:"%q\\|",end:"\\|"},{begin:/<<-'\w+'$/,end:/^\s*\w+$/}],relevance:0};var REGEXP={begin:"(?!%})("+hljs.RE_STARTERS_RE+"|\\n|\\b(case|if|select|unless|until|when|while)\\b)\\s*",keywords:"case if select unless until when while",contains:[{className:"regexp",contains:[hljs.BACKSLASH_ESCAPE,SUBST],variants:[{begin:"//[a-z]*",relevance:0},{begin:"/(?!\\/)",end:"/[a-z]*"}]}],relevance:0};var REGEXP2={className:"regexp",contains:[hljs.BACKSLASH_ESCAPE,SUBST],variants:[{begin:"%r\\(",end:"\\)",contains:recursiveParen("\\(","\\)")},{begin:"%r\\[",end:"\\]",contains:recursiveParen("\\[","\\]")},{begin:"%r{",end:"}",contains:recursiveParen("{","}")},{begin:"%r<",end:">",contains:recursiveParen("<",">")},{begin:"%r\\|",end:"\\|"}],relevance:0};var ATTRIBUTE={className:"meta",begin:"@\\[",end:"\\]",contains:[hljs.inherit(hljs.QUOTE_STRING_MODE,{className:"meta-string"})]};var CRYSTAL_DEFAULT_CONTAINS=[EXPANSION,STRING,Q_STRING,REGEXP2,REGEXP,ATTRIBUTE,hljs.HASH_COMMENT_MODE,{className:"class",beginKeywords:"class module struct",end:"$|;",illegal:/=/,contains:[hljs.HASH_COMMENT_MODE,hljs.inherit(hljs.TITLE_MODE,{begin:CRYSTAL_PATH_RE}),{begin:"<"}]},{className:"class",beginKeywords:"lib enum union",end:"$|;",illegal:/=/,contains:[hljs.HASH_COMMENT_MODE,hljs.inherit(hljs.TITLE_MODE,{begin:CRYSTAL_PATH_RE})],relevance:10},{beginKeywords:"annotation",end:"$|;",illegal:/=/,contains:[hljs.HASH_COMMENT_MODE,hljs.inherit(hljs.TITLE_MODE,{begin:CRYSTAL_PATH_RE})],relevance:10},{className:"function",beginKeywords:"def",end:/\B\b/,contains:[hljs.inherit(hljs.TITLE_MODE,{begin:CRYSTAL_METHOD_RE,endsParent:true})]},{className:"function",beginKeywords:"fun macro",end:/\B\b/,contains:[hljs.inherit(hljs.TITLE_MODE,{begin:CRYSTAL_METHOD_RE,endsParent:true})],relevance:5},{className:"symbol",begin:hljs.UNDERSCORE_IDENT_RE+"(\\!|\\?)?:",relevance:0},{className:"symbol",begin:":",contains:[STRING,{begin:CRYSTAL_METHOD_RE}],relevance:0},{className:"number",variants:[{begin:"\\b0b([01_]+)"+INT_SUFFIX},{begin:"\\b0o([0-7_]+)"+INT_SUFFIX},{begin:"\\b0x([A-Fa-f0-9_]+)"+INT_SUFFIX},{begin:"\\b([1-9][0-9_]*[0-9]|[0-9])(\\.[0-9][0-9_]*)?([eE]_*[-+]?[0-9_]*)?"+FLOAT_SUFFIX+"(?!_)"},{begin:"\\b([1-9][0-9_]*|0)"+INT_SUFFIX}],relevance:0}];SUBST.contains=CRYSTAL_DEFAULT_CONTAINS;EXPANSION.contains=CRYSTAL_DEFAULT_CONTAINS.slice(1);return{aliases:["cr"],lexemes:CRYSTAL_IDENT_RE,keywords:CRYSTAL_KEYWORDS,contains:CRYSTAL_DEFAULT_CONTAINS}});hljs.registerLanguage("smalltalk",function(hljs){var VAR_IDENT_RE="[a-z][a-zA-Z0-9_]*";var CHAR={className:"string",begin:"\\$.{1}"};var SYMBOL={className:"symbol",begin:"#"+hljs.UNDERSCORE_IDENT_RE};return{aliases:["st"],keywords:"self super nil true false thisContext",contains:[hljs.COMMENT('"','"'),hljs.APOS_STRING_MODE,{className:"type",begin:"\\b[A-Z][A-Za-z0-9_]*",relevance:0},{begin:VAR_IDENT_RE+":",relevance:0},hljs.C_NUMBER_MODE,SYMBOL,CHAR,{begin:"\\|[ ]*"+VAR_IDENT_RE+"([ ]+"+VAR_IDENT_RE+")*[ ]*\\|",returnBegin:true,end:/\|/,illegal:/\S/,contains:[{begin:"(\\|[ ]*)?"+VAR_IDENT_RE}]},{begin:"\\#\\(",end:"\\)",contains:[hljs.APOS_STRING_MODE,CHAR,hljs.C_NUMBER_MODE,SYMBOL]}]}});hljs.registerLanguage("vbnet",function(hljs){return{aliases:["vb"],case_insensitive:true,keywords:{keyword:"addhandler addressof alias and andalso aggregate ansi as async assembly auto await binary by byref byval "+"call case catch class compare const continue custom declare default delegate dim distinct do "+"each equals else elseif end enum erase error event exit explicit finally for friend from function "+"get global goto group handles if implements imports in inherits interface into is isfalse isnot istrue iterator "+"join key let lib like loop me mid mod module mustinherit mustoverride mybase myclass "+"nameof namespace narrowing new next not notinheritable notoverridable "+"of off on operator option optional or order orelse overloads overridable overrides "+"paramarray partial preserve private property protected public "+"raiseevent readonly redim rem removehandler resume return "+"select set shadows shared skip static step stop structure strict sub synclock "+"take text then throw to try unicode until using when where while widening with withevents writeonly xor yield",built_in:"boolean byte cbool cbyte cchar cdate cdec cdbl char cint clng cobj csbyte cshort csng cstr ctype "+"date decimal directcast double gettype getxmlnamespace iif integer long object "+"sbyte short single string trycast typeof uinteger ulong ushort",literal:"true false nothing"},illegal:"//|{|}|endif|gosub|variant|wend|^\\$ ",contains:[hljs.inherit(hljs.QUOTE_STRING_MODE,{contains:[{begin:'""'}]}),hljs.COMMENT("'","$",{returnBegin:true,contains:[{className:"doctag",begin:"'''|\x3c!--|--\x3e",contains:[hljs.PHRASAL_WORDS_MODE]},{className:"doctag",begin:"</?",end:">",contains:[hljs.PHRASAL_WORDS_MODE]}]}),hljs.C_NUMBER_MODE,{className:"meta",begin:"#",end:"$",keywords:{"meta-keyword":"if else elseif end region externalsource"}}]}});hljs.registerLanguage("hy",function(hljs){var keywords={"builtin-name":"!= % %= & &= * ** **= *= *map "+"+ += , --build-class-- --import-- -= . / // //= "+"/= < << <<= <= = > >= >> >>= "+"@ @= ^ ^= abs accumulate all and any ap-compose "+"ap-dotimes ap-each ap-each-while ap-filter ap-first ap-if ap-last ap-map ap-map-when ap-pipe "+"ap-reduce ap-reject apply as-> ascii assert assoc bin break butlast "+"callable calling-module-name car case cdr chain chr coll? combinations compile "+"compress cond cons cons? continue count curry cut cycle dec "+"def default-method defclass defmacro defmacro-alias defmacro/g! defmain defmethod defmulti defn "+"defn-alias defnc defnr defreader defseq del delattr delete-route dict-comp dir "+"disassemble dispatch-reader-macro distinct divmod do doto drop drop-last drop-while empty? "+"end-sequence eval eval-and-compile eval-when-compile even? every? except exec filter first "+"flatten float? fn fnc fnr for for* format fraction genexpr "+"gensym get getattr global globals group-by hasattr hash hex id "+"identity if if* if-not if-python2 import in inc input instance? "+"integer integer-char? integer? interleave interpose is is-coll is-cons is-empty is-even "+"is-every is-float is-instance is-integer is-integer-char is-iterable is-iterator is-keyword is-neg is-none "+"is-not is-numeric is-odd is-pos is-string is-symbol is-zero isinstance islice issubclass "+"iter iterable? iterate iterator? keyword keyword? lambda last len let "+"lif lif-not list* list-comp locals loop macro-error macroexpand macroexpand-1 macroexpand-all "+"map max merge-with method-decorator min multi-decorator multicombinations name neg? next "+"none? nonlocal not not-in not? nth numeric? oct odd? open "+"or ord partition permutations pos? post-route postwalk pow prewalk print "+"product profile/calls profile/cpu put-route quasiquote quote raise range read read-str "+"recursive-replace reduce remove repeat repeatedly repr require rest round route "+"route-with-methods rwm second seq set-comp setattr setv some sorted string "+"string? sum switch symbol? take take-nth take-while tee try unless "+"unquote unquote-splicing vars walk when while with with* with-decorator with-gensyms "+"xi xor yield yield-from zero? zip zip-longest | |= ~"};var SYMBOLSTART="a-zA-Z_\\-!.?+*=<>&#'";var SYMBOL_RE="["+SYMBOLSTART+"]["+SYMBOLSTART+"0-9/;:]*";var SIMPLE_NUMBER_RE="[-+]?\\d+(\\.\\d+)?";var SHEBANG={className:"meta",begin:"^#!",end:"$"};var SYMBOL={begin:SYMBOL_RE,relevance:0};var NUMBER={className:"number",begin:SIMPLE_NUMBER_RE,relevance:0};var STRING=hljs.inherit(hljs.QUOTE_STRING_MODE,{illegal:null});var COMMENT=hljs.COMMENT(";","$",{relevance:0});var LITERAL={className:"literal",begin:/\b([Tt]rue|[Ff]alse|nil|None)\b/};var COLLECTION={begin:"[\\[\\{]",end:"[\\]\\}]"};var HINT={className:"comment",begin:"\\^"+SYMBOL_RE};var HINT_COL=hljs.COMMENT("\\^\\{","\\}");var KEY={className:"symbol",begin:"[:]{1,2}"+SYMBOL_RE};var LIST={begin:"\\(",end:"\\)"};var BODY={endsWithParent:true,relevance:0};var NAME={keywords:keywords,lexemes:SYMBOL_RE,className:"name",begin:SYMBOL_RE,starts:BODY};var DEFAULT_CONTAINS=[LIST,STRING,HINT,HINT_COL,COMMENT,KEY,COLLECTION,NUMBER,LITERAL,SYMBOL];LIST.contains=[hljs.COMMENT("comment",""),NAME,BODY];BODY.contains=DEFAULT_CONTAINS;COLLECTION.contains=DEFAULT_CONTAINS;return{aliases:["hylang"],illegal:/\S/,contains:[SHEBANG,LIST,STRING,HINT,HINT_COL,COMMENT,KEY,COLLECTION,NUMBER,LITERAL]}});hljs.registerLanguage("objectivec",function(hljs){var API_CLASS={className:"built_in",begin:"\\b(AV|CA|CF|CG|CI|CL|CM|CN|CT|MK|MP|MTK|MTL|NS|SCN|SK|UI|WK|XC)\\w+"};var OBJC_KEYWORDS={keyword:"int float while char export sizeof typedef const struct for union "+"unsigned long volatile static bool mutable if do return goto void "+"enum else break extern asm case short default double register explicit "+"signed typename this switch continue wchar_t inline readonly assign "+"readwrite self @synchronized id typeof "+"nonatomic super unichar IBOutlet IBAction strong weak copy "+"in out inout bycopy byref oneway __strong __weak __block __autoreleasing "+"@private @protected @public @try @property @end @throw @catch @finally "+"@autoreleasepool @synthesize @dynamic @selector @optional @required "+"@encode @package @import @defs @compatibility_alias "+"__bridge __bridge_transfer __bridge_retained __bridge_retain "+"__covariant __contravariant __kindof "+"_Nonnull _Nullable _Null_unspecified "+"__FUNCTION__ __PRETTY_FUNCTION__ __attribute__ "+"getter setter retain unsafe_unretained "+"nonnull nullable null_unspecified null_resettable class instancetype "+"NS_DESIGNATED_INITIALIZER NS_UNAVAILABLE NS_REQUIRES_SUPER "+"NS_RETURNS_INNER_POINTER NS_INLINE NS_AVAILABLE NS_DEPRECATED "+"NS_ENUM NS_OPTIONS NS_SWIFT_UNAVAILABLE "+"NS_ASSUME_NONNULL_BEGIN NS_ASSUME_NONNULL_END "+"NS_REFINED_FOR_SWIFT NS_SWIFT_NAME NS_SWIFT_NOTHROW "+"NS_DURING NS_HANDLER NS_ENDHANDLER NS_VALUERETURN NS_VOIDRETURN",literal:"false true FALSE TRUE nil YES NO NULL",built_in:"BOOL dispatch_once_t dispatch_queue_t dispatch_sync dispatch_async dispatch_once"};var LEXEMES=/[a-zA-Z@][a-zA-Z0-9_]*/;var CLASS_KEYWORDS="@interface @class @protocol @implementation";return{aliases:["mm","objc","obj-c"],keywords:OBJC_KEYWORDS,lexemes:LEXEMES,illegal:"</",contains:[API_CLASS,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.C_NUMBER_MODE,hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE,{className:"string",variants:[{begin:'@"',end:'"',illegal:"\\n",contains:[hljs.BACKSLASH_ESCAPE]}]},{className:"meta",begin:/#\s*[a-z]+\b/,end:/$/,keywords:{"meta-keyword":"if else elif endif define undef warning error line "+"pragma ifdef ifndef include"},contains:[{begin:/\\\n/,relevance:0},hljs.inherit(hljs.QUOTE_STRING_MODE,{className:"meta-string"}),{className:"meta-string",begin:/<.*?>/,end:/$/,illegal:"\\n"},hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE]},{className:"class",begin:"("+CLASS_KEYWORDS.split(" ").join("|")+")\\b",end:"({|$)",excludeEnd:true,keywords:CLASS_KEYWORDS,lexemes:LEXEMES,contains:[hljs.UNDERSCORE_TITLE_MODE]},{begin:"\\."+hljs.UNDERSCORE_IDENT_RE,relevance:0}]}});hljs.registerLanguage("stan",function(hljs){var BLOCKS=["functions","model","data","parameters","quantities","transformed","generated"];var STATEMENTS=["for","in","if","else","while","break","continue","return"];var SPECIAL_FUNCTIONS=["print","reject","increment_log_prob|10","integrate_ode|10","integrate_ode_rk45|10","integrate_ode_bdf|10","algebra_solver"];var VAR_TYPES=["int","real","vector","ordered","positive_ordered","simplex","unit_vector","row_vector","matrix","cholesky_factor_corr|10","cholesky_factor_cov|10","corr_matrix|10","cov_matrix|10","void"];var FUNCTIONS=["Phi","Phi_approx","abs","acos","acosh","algebra_solver","append_array","append_col","append_row","asin","asinh","atan","atan2","atanh","bernoulli_cdf","bernoulli_lccdf","bernoulli_lcdf","bernoulli_logit_lpmf","bernoulli_logit_rng","bernoulli_lpmf","bernoulli_rng","bessel_first_kind","bessel_second_kind","beta_binomial_cdf","beta_binomial_lccdf","beta_binomial_lcdf","beta_binomial_lpmf","beta_binomial_rng","beta_cdf","beta_lccdf","beta_lcdf","beta_lpdf","beta_rng","binary_log_loss","binomial_cdf","binomial_coefficient_log","binomial_lccdf","binomial_lcdf","binomial_logit_lpmf","binomial_lpmf","binomial_rng","block","categorical_logit_lpmf","categorical_logit_rng","categorical_lpmf","categorical_rng","cauchy_cdf","cauchy_lccdf","cauchy_lcdf","cauchy_lpdf","cauchy_rng","cbrt","ceil","chi_square_cdf","chi_square_lccdf","chi_square_lcdf","chi_square_lpdf","chi_square_rng","cholesky_decompose","choose","col","cols","columns_dot_product","columns_dot_self","cos","cosh","cov_exp_quad","crossprod","csr_extract_u","csr_extract_v","csr_extract_w","csr_matrix_times_vector","csr_to_dense_matrix","cumulative_sum","determinant","diag_matrix","diag_post_multiply","diag_pre_multiply","diagonal","digamma","dims","dirichlet_lpdf","dirichlet_rng","distance","dot_product","dot_self","double_exponential_cdf","double_exponential_lccdf","double_exponential_lcdf","double_exponential_lpdf","double_exponential_rng","e","eigenvalues_sym","eigenvectors_sym","erf","erfc","exp","exp2","exp_mod_normal_cdf","exp_mod_normal_lccdf","exp_mod_normal_lcdf","exp_mod_normal_lpdf","exp_mod_normal_rng","expm1","exponential_cdf","exponential_lccdf","exponential_lcdf","exponential_lpdf","exponential_rng","fabs","falling_factorial","fdim","floor","fma","fmax","fmin","fmod","frechet_cdf","frechet_lccdf","frechet_lcdf","frechet_lpdf","frechet_rng","gamma_cdf","gamma_lccdf","gamma_lcdf","gamma_lpdf","gamma_p","gamma_q","gamma_rng","gaussian_dlm_obs_lpdf","get_lp","gumbel_cdf","gumbel_lccdf","gumbel_lcdf","gumbel_lpdf","gumbel_rng","head","hypergeometric_lpmf","hypergeometric_rng","hypot","inc_beta","int_step","integrate_ode","integrate_ode_bdf","integrate_ode_rk45","inv","inv_Phi","inv_chi_square_cdf","inv_chi_square_lccdf","inv_chi_square_lcdf","inv_chi_square_lpdf","inv_chi_square_rng","inv_cloglog","inv_gamma_cdf","inv_gamma_lccdf","inv_gamma_lcdf","inv_gamma_lpdf","inv_gamma_rng","inv_logit","inv_sqrt","inv_square","inv_wishart_lpdf","inv_wishart_rng","inverse","inverse_spd","is_inf","is_nan","lbeta","lchoose","lgamma","lkj_corr_cholesky_lpdf","lkj_corr_cholesky_rng","lkj_corr_lpdf","lkj_corr_rng","lmgamma","lmultiply","log","log10","log1m","log1m_exp","log1m_inv_logit","log1p","log1p_exp","log2","log_determinant","log_diff_exp","log_falling_factorial","log_inv_logit","log_mix","log_rising_factorial","log_softmax","log_sum_exp","logistic_cdf","logistic_lccdf","logistic_lcdf","logistic_lpdf","logistic_rng","logit","lognormal_cdf","lognormal_lccdf","lognormal_lcdf","lognormal_lpdf","lognormal_rng","machine_precision","matrix_exp","max","mdivide_left_spd","mdivide_left_tri_low","mdivide_right_spd","mdivide_right_tri_low","mean","min","modified_bessel_first_kind","modified_bessel_second_kind","multi_gp_cholesky_lpdf","multi_gp_lpdf","multi_normal_cholesky_lpdf","multi_normal_cholesky_rng","multi_normal_lpdf","multi_normal_prec_lpdf","multi_normal_rng","multi_student_t_lpdf","multi_student_t_rng","multinomial_lpmf","multinomial_rng","multiply_log","multiply_lower_tri_self_transpose","neg_binomial_2_cdf","neg_binomial_2_lccdf","neg_binomial_2_lcdf","neg_binomial_2_log_lpmf","neg_binomial_2_log_rng","neg_binomial_2_lpmf","neg_binomial_2_rng","neg_binomial_cdf","neg_binomial_lccdf","neg_binomial_lcdf","neg_binomial_lpmf","neg_binomial_rng","negative_infinity","normal_cdf","normal_lccdf","normal_lcdf","normal_lpdf","normal_rng","not_a_number","num_elements","ordered_logistic_lpmf","ordered_logistic_rng","owens_t","pareto_cdf","pareto_lccdf","pareto_lcdf","pareto_lpdf","pareto_rng","pareto_type_2_cdf","pareto_type_2_lccdf","pareto_type_2_lcdf","pareto_type_2_lpdf","pareto_type_2_rng","pi","poisson_cdf","poisson_lccdf","poisson_lcdf","poisson_log_lpmf","poisson_log_rng","poisson_lpmf","poisson_rng","positive_infinity","pow","print","prod","qr_Q","qr_R","quad_form","quad_form_diag","quad_form_sym","rank","rayleigh_cdf","rayleigh_lccdf","rayleigh_lcdf","rayleigh_lpdf","rayleigh_rng","reject","rep_array","rep_matrix","rep_row_vector","rep_vector","rising_factorial","round","row","rows","rows_dot_product","rows_dot_self","scaled_inv_chi_square_cdf","scaled_inv_chi_square_lccdf","scaled_inv_chi_square_lcdf","scaled_inv_chi_square_lpdf","scaled_inv_chi_square_rng","sd","segment","sin","singular_values","sinh","size","skew_normal_cdf","skew_normal_lccdf","skew_normal_lcdf","skew_normal_lpdf","skew_normal_rng","softmax","sort_asc","sort_desc","sort_indices_asc","sort_indices_desc","sqrt","sqrt2","square","squared_distance","step","student_t_cdf","student_t_lccdf","student_t_lcdf","student_t_lpdf","student_t_rng","sub_col","sub_row","sum","tail","tan","tanh","target","tcrossprod","tgamma","to_array_1d","to_array_2d","to_matrix","to_row_vector","to_vector","trace","trace_gen_quad_form","trace_quad_form","trigamma","trunc","uniform_cdf","uniform_lccdf","uniform_lcdf","uniform_lpdf","uniform_rng","variance","von_mises_lpdf","von_mises_rng","weibull_cdf","weibull_lccdf","weibull_lcdf","weibull_lpdf","weibull_rng","wiener_lpdf","wishart_lpdf","wishart_rng"];var DISTRIBUTIONS=["bernoulli","bernoulli_logit","beta","beta_binomial","binomial","binomial_logit","categorical","categorical_logit","cauchy","chi_square","dirichlet","double_exponential","exp_mod_normal","exponential","frechet","gamma","gaussian_dlm_obs","gumbel","hypergeometric","inv_chi_square","inv_gamma","inv_wishart","lkj_corr","lkj_corr_cholesky","logistic","lognormal","multi_gp","multi_gp_cholesky","multi_normal","multi_normal_cholesky","multi_normal_prec","multi_student_t","multinomial","neg_binomial","neg_binomial_2","neg_binomial_2_log","normal","ordered_logistic","pareto","pareto_type_2","poisson","poisson_log","rayleigh","scaled_inv_chi_square","skew_normal","student_t","uniform","von_mises","weibull","wiener","wishart"];return{aliases:["stanfuncs"],keywords:{title:BLOCKS.join(" "),keyword:STATEMENTS.concat(VAR_TYPES).concat(SPECIAL_FUNCTIONS).join(" "),built_in:FUNCTIONS.join(" ")},lexemes:hljs.IDENT_RE,contains:[hljs.C_LINE_COMMENT_MODE,hljs.COMMENT(/#/,/$/,{relevance:0,keywords:{"meta-keyword":"include"}}),hljs.COMMENT(/\/\*/,/\*\//,{relevance:0,contains:[{className:"doctag",begin:/@(return|param)/}]}),{begin:/<\s*lower\s*=/,keywords:"lower"},{begin:/[<,]*upper\s*=/,keywords:"upper"},{className:"keyword",begin:/\btarget\s*\+=/,relevance:10},{begin:"~\\s*("+hljs.IDENT_RE+")\\s*\\(",keywords:DISTRIBUTIONS.join(" ")},{className:"number",variants:[{begin:/\b\d+(?:\.\d*)?(?:[eE][+-]?\d+)?/},{begin:/\.\d+(?:[eE][+-]?\d+)?\b/}],relevance:0},{className:"string",begin:'"',end:'"',relevance:0}]}});hljs.registerLanguage("lasso",function(hljs){var LASSO_IDENT_RE="[a-zA-Z_][\\w.]*";var LASSO_ANGLE_RE="<\\?(lasso(script)?|=)";var LASSO_CLOSE_RE="\\]|\\?>";var LASSO_KEYWORDS={literal:"true false none minimal full all void and or not "+"bw nbw ew new cn ncn lt lte gt gte eq neq rx nrx ft",built_in:"array date decimal duration integer map pair string tag xml null "+"boolean bytes keyword list locale queue set stack staticarray "+"local var variable global data self inherited currentcapture givenblock",keyword:"cache database_names database_schemanames database_tablenames "+"define_tag define_type email_batch encode_set html_comment handle "+"handle_error header if inline iterate ljax_target link "+"link_currentaction link_currentgroup link_currentrecord link_detail "+"link_firstgroup link_firstrecord link_lastgroup link_lastrecord "+"link_nextgroup link_nextrecord link_prevgroup link_prevrecord log "+"loop namespace_using output_none portal private protect records "+"referer referrer repeating resultset rows search_args "+"search_arguments select sort_args sort_arguments thread_atomic "+"value_list while abort case else fail_if fail_ifnot fail if_empty "+"if_false if_null if_true loop_abort loop_continue loop_count params "+"params_up return return_value run_children soap_definetag "+"soap_lastrequest soap_lastresponse tag_name ascending average by "+"define descending do equals frozen group handle_failure import in "+"into join let match max min on order parent protected provide public "+"require returnhome skip split_thread sum take thread to trait type "+"where with yield yieldhome"};var HTML_COMMENT=hljs.COMMENT("\x3c!--","--\x3e",{relevance:0});var LASSO_NOPROCESS={className:"meta",begin:"\\[noprocess\\]",starts:{end:"\\[/noprocess\\]",returnEnd:true,contains:[HTML_COMMENT]}};var LASSO_START={className:"meta",begin:"\\[/noprocess|"+LASSO_ANGLE_RE};var LASSO_DATAMEMBER={className:"symbol",begin:"'"+LASSO_IDENT_RE+"'"};var LASSO_CODE=[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.inherit(hljs.C_NUMBER_MODE,{begin:hljs.C_NUMBER_RE+"|(-?infinity|NaN)\\b"}),hljs.inherit(hljs.APOS_STRING_MODE,{illegal:null}),hljs.inherit(hljs.QUOTE_STRING_MODE,{illegal:null}),{className:"string",begin:"`",end:"`"},{variants:[{begin:"[#$]"+LASSO_IDENT_RE},{begin:"#",end:"\\d+",illegal:"\\W"}]},{className:"type",begin:"::\\s*",end:LASSO_IDENT_RE,illegal:"\\W"},{className:"params",variants:[{begin:"-(?!infinity)"+LASSO_IDENT_RE,relevance:0},{begin:"(\\.\\.\\.)"}]},{begin:/(->|\.)\s*/,relevance:0,contains:[LASSO_DATAMEMBER]},{className:"class",beginKeywords:"define",returnEnd:true,end:"\\(|=>",contains:[hljs.inherit(hljs.TITLE_MODE,{begin:LASSO_IDENT_RE+"(=(?!>))?|[-+*/%](?!>)"})]}];return{aliases:["ls","lassoscript"],case_insensitive:true,lexemes:LASSO_IDENT_RE+"|&[lg]t;",keywords:LASSO_KEYWORDS,contains:[{className:"meta",begin:LASSO_CLOSE_RE,relevance:0,starts:{end:"\\[|"+LASSO_ANGLE_RE,returnEnd:true,relevance:0,contains:[HTML_COMMENT]}},LASSO_NOPROCESS,LASSO_START,{className:"meta",begin:"\\[no_square_brackets",starts:{end:"\\[/no_square_brackets\\]",lexemes:LASSO_IDENT_RE+"|&[lg]t;",keywords:LASSO_KEYWORDS,contains:[{className:"meta",begin:LASSO_CLOSE_RE,relevance:0,starts:{end:"\\[noprocess\\]|"+LASSO_ANGLE_RE,returnEnd:true,contains:[HTML_COMMENT]}},LASSO_NOPROCESS,LASSO_START].concat(LASSO_CODE)}},{className:"meta",begin:"\\[",relevance:0},{className:"meta",begin:"^#!",end:"lasso9$",relevance:10}].concat(LASSO_CODE)}});hljs.registerLanguage("lisp",function(hljs){var LISP_IDENT_RE="[a-zA-Z_\\-\\+\\*\\/\\<\\=\\>\\&\\#][a-zA-Z0-9_\\-\\+\\*\\/\\<\\=\\>\\&\\#!]*";var MEC_RE="\\|[^]*?\\|";var LISP_SIMPLE_NUMBER_RE="(\\-|\\+)?\\d+(\\.\\d+|\\/\\d+)?((d|e|f|l|s|D|E|F|L|S)(\\+|\\-)?\\d+)?";var SHEBANG={className:"meta",begin:"^#!",end:"$"};var LITERAL={className:"literal",begin:"\\b(t{1}|nil)\\b"};var NUMBER={className:"number",variants:[{begin:LISP_SIMPLE_NUMBER_RE,relevance:0},{begin:"#(b|B)[0-1]+(/[0-1]+)?"},{begin:"#(o|O)[0-7]+(/[0-7]+)?"},{begin:"#(x|X)[0-9a-fA-F]+(/[0-9a-fA-F]+)?"},{begin:"#(c|C)\\("+LISP_SIMPLE_NUMBER_RE+" +"+LISP_SIMPLE_NUMBER_RE,end:"\\)"}]};var STRING=hljs.inherit(hljs.QUOTE_STRING_MODE,{illegal:null});var COMMENT=hljs.COMMENT(";","$",{relevance:0});var VARIABLE={begin:"\\*",end:"\\*"};var KEYWORD={className:"symbol",begin:"[:&]"+LISP_IDENT_RE};var IDENT={begin:LISP_IDENT_RE,relevance:0};var MEC={begin:MEC_RE};var QUOTED_LIST={begin:"\\(",end:"\\)",contains:["self",LITERAL,STRING,NUMBER,IDENT]};var QUOTED={contains:[NUMBER,STRING,VARIABLE,KEYWORD,QUOTED_LIST,IDENT],variants:[{begin:"['`]\\(",end:"\\)"},{begin:"\\(quote ",end:"\\)",keywords:{name:"quote"}},{begin:"'"+MEC_RE}]};var QUOTED_ATOM={variants:[{begin:"'"+LISP_IDENT_RE},{begin:"#'"+LISP_IDENT_RE+"(::"+LISP_IDENT_RE+")*"}]};var LIST={begin:"\\(\\s*",end:"\\)"};var BODY={endsWithParent:true,relevance:0};LIST.contains=[{className:"name",variants:[{begin:LISP_IDENT_RE},{begin:MEC_RE}]},BODY];BODY.contains=[QUOTED,QUOTED_ATOM,LIST,LITERAL,NUMBER,STRING,COMMENT,VARIABLE,KEYWORD,MEC,IDENT];return{illegal:/\S/,contains:[NUMBER,SHEBANG,LITERAL,STRING,COMMENT,QUOTED,QUOTED_ATOM,LIST,IDENT]}});hljs.registerLanguage("mojolicious",function(hljs){return{subLanguage:"xml",contains:[{className:"meta",begin:"^__(END|DATA)__$"},{begin:"^\\s*%{1,2}={0,2}",end:"$",subLanguage:"perl"},{begin:"<%{1,2}={0,2}",end:"={0,1}%>",subLanguage:"perl",excludeBegin:true,excludeEnd:true}]}});hljs.registerLanguage("processing",function(hljs){return{keywords:{keyword:"BufferedReader PVector PFont PImage PGraphics HashMap boolean byte char color "+"double float int long String Array FloatDict FloatList IntDict IntList JSONArray JSONObject "+"Object StringDict StringList Table TableRow XML "+"false synchronized int abstract float private char boolean static null if const "+"for true while long throw strictfp finally protected import native final return void "+"enum else break transient new catch instanceof byte super volatile case assert short "+"package default double public try this switch continue throws protected public private",literal:"P2D P3D HALF_PI PI QUARTER_PI TAU TWO_PI",title:"setup draw",built_in:"displayHeight displayWidth mouseY mouseX mousePressed pmouseX pmouseY key "+"keyCode pixels focused frameCount frameRate height width "+"size createGraphics beginDraw createShape loadShape PShape arc ellipse line point "+"quad rect triangle bezier bezierDetail bezierPoint bezierTangent curve curveDetail curvePoint "+"curveTangent curveTightness shape shapeMode beginContour beginShape bezierVertex curveVertex "+"endContour endShape quadraticVertex vertex ellipseMode noSmooth rectMode smooth strokeCap "+"strokeJoin strokeWeight mouseClicked mouseDragged mouseMoved mousePressed mouseReleased "+"mouseWheel keyPressed keyPressedkeyReleased keyTyped print println save saveFrame day hour "+"millis minute month second year background clear colorMode fill noFill noStroke stroke alpha "+"blue brightness color green hue lerpColor red saturation modelX modelY modelZ screenX screenY "+"screenZ ambient emissive shininess specular add createImage beginCamera camera endCamera frustum "+"ortho perspective printCamera printProjection cursor frameRate noCursor exit loop noLoop popStyle "+"pushStyle redraw binary boolean byte char float hex int str unbinary unhex join match matchAll nf "+"nfc nfp nfs split splitTokens trim append arrayCopy concat expand reverse shorten sort splice subset "+"box sphere sphereDetail createInput createReader loadBytes loadJSONArray loadJSONObject loadStrings "+"loadTable loadXML open parseXML saveTable selectFolder selectInput beginRaw beginRecord createOutput "+"createWriter endRaw endRecord PrintWritersaveBytes saveJSONArray saveJSONObject saveStream saveStrings "+"saveXML selectOutput popMatrix printMatrix pushMatrix resetMatrix rotate rotateX rotateY rotateZ scale "+"shearX shearY translate ambientLight directionalLight lightFalloff lights lightSpecular noLights normal "+"pointLight spotLight image imageMode loadImage noTint requestImage tint texture textureMode textureWrap "+"blend copy filter get loadPixels set updatePixels blendMode loadShader PShaderresetShader shader createFont "+"loadFont text textFont textAlign textLeading textMode textSize textWidth textAscent textDescent abs ceil "+"constrain dist exp floor lerp log mag map max min norm pow round sq sqrt acos asin atan atan2 cos degrees "+"radians sin tan noise noiseDetail noiseSeed random randomGaussian randomSeed"},contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.C_NUMBER_MODE]}});hljs.registerLanguage("clean",function(hljs){return{aliases:["clean","icl","dcl"],keywords:{keyword:"if let in with where case of class instance otherwise "+"implementation definition system module from import qualified as "+"special code inline foreign export ccall stdcall generic derive "+"infix infixl infixr",built_in:"Int Real Char Bool",literal:"True False"},contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.C_NUMBER_MODE,{begin:"->|<-[|:]?|#!?|>>=|\\{\\||\\|\\}|:==|=:|<>"}]}});hljs.registerLanguage("d",function(hljs){var D_KEYWORDS={keyword:"abstract alias align asm assert auto body break byte case cast catch class "+"const continue debug default delete deprecated do else enum export extern final "+"finally for foreach foreach_reverse|10 goto if immutable import in inout int "+"interface invariant is lazy macro mixin module new nothrow out override package "+"pragma private protected public pure ref return scope shared static struct "+"super switch synchronized template this throw try typedef typeid typeof union "+"unittest version void volatile while with __FILE__ __LINE__ __gshared|10 "+"__thread __traits __DATE__ __EOF__ __TIME__ __TIMESTAMP__ __VENDOR__ __VERSION__",built_in:"bool cdouble cent cfloat char creal dchar delegate double dstring float function "+"idouble ifloat ireal long real short string ubyte ucent uint ulong ushort wchar "+"wstring",literal:"false null true"};var decimal_integer_re="(0|[1-9][\\d_]*)",decimal_integer_nosus_re="(0|[1-9][\\d_]*|\\d[\\d_]*|[\\d_]+?\\d)",binary_integer_re="0[bB][01_]+",hexadecimal_digits_re="([\\da-fA-F][\\da-fA-F_]*|_[\\da-fA-F][\\da-fA-F_]*)",hexadecimal_integer_re="0[xX]"+hexadecimal_digits_re,decimal_exponent_re="([eE][+-]?"+decimal_integer_nosus_re+")",decimal_float_re="("+decimal_integer_nosus_re+"(\\.\\d*|"+decimal_exponent_re+")|"+"\\d+\\."+decimal_integer_nosus_re+decimal_integer_nosus_re+"|"+"\\."+decimal_integer_re+decimal_exponent_re+"?"+")",hexadecimal_float_re="(0[xX]("+hexadecimal_digits_re+"\\."+hexadecimal_digits_re+"|"+"\\.?"+hexadecimal_digits_re+")[pP][+-]?"+decimal_integer_nosus_re+")",integer_re="("+decimal_integer_re+"|"+binary_integer_re+"|"+hexadecimal_integer_re+")",float_re="("+hexadecimal_float_re+"|"+decimal_float_re+")";var escape_sequence_re="\\\\("+"['\"\\?\\\\abfnrtv]|"+"u[\\dA-Fa-f]{4}|"+"[0-7]{1,3}|"+"x[\\dA-Fa-f]{2}|"+"U[\\dA-Fa-f]{8}"+")|"+"&[a-zA-Z\\d]{2,};";var D_INTEGER_MODE={className:"number",begin:"\\b"+integer_re+"(L|u|U|Lu|LU|uL|UL)?",relevance:0};var D_FLOAT_MODE={className:"number",begin:"\\b("+float_re+"([fF]|L|i|[fF]i|Li)?|"+integer_re+"(i|[fF]i|Li)"+")",relevance:0};var D_CHARACTER_MODE={className:"string",begin:"'("+escape_sequence_re+"|.)",end:"'",illegal:"."};var D_ESCAPE_SEQUENCE={begin:escape_sequence_re,relevance:0};var D_STRING_MODE={className:"string",begin:'"',contains:[D_ESCAPE_SEQUENCE],end:'"[cwd]?'};var D_WYSIWYG_DELIMITED_STRING_MODE={className:"string",begin:'[rq]"',end:'"[cwd]?',relevance:5};var D_ALTERNATE_WYSIWYG_STRING_MODE={className:"string",begin:"`",end:"`[cwd]?"};var D_HEX_STRING_MODE={className:"string",begin:'x"[\\da-fA-F\\s\\n\\r]*"[cwd]?',relevance:10};var D_TOKEN_STRING_MODE={className:"string",begin:'q"\\{',end:'\\}"'};var D_HASHBANG_MODE={className:"meta",begin:"^#!",end:"$",relevance:5};var D_SPECIAL_TOKEN_SEQUENCE_MODE={className:"meta",begin:"#(line)",end:"$",relevance:5};var D_ATTRIBUTE_MODE={className:"keyword",begin:"@[a-zA-Z_][a-zA-Z_\\d]*"};var D_NESTING_COMMENT_MODE=hljs.COMMENT("\\/\\+","\\+\\/",{contains:["self"],relevance:10});return{lexemes:hljs.UNDERSCORE_IDENT_RE,keywords:D_KEYWORDS,contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,D_NESTING_COMMENT_MODE,D_HEX_STRING_MODE,D_STRING_MODE,D_WYSIWYG_DELIMITED_STRING_MODE,D_ALTERNATE_WYSIWYG_STRING_MODE,D_TOKEN_STRING_MODE,D_FLOAT_MODE,D_INTEGER_MODE,D_CHARACTER_MODE,D_HASHBANG_MODE,D_SPECIAL_TOKEN_SEQUENCE_MODE,D_ATTRIBUTE_MODE]}});hljs.registerLanguage("excel",function(hljs){return{aliases:["xlsx","xls"],case_insensitive:true,lexemes:/[a-zA-Z][\w\.]*/,keywords:{built_in:"ABS ACCRINT ACCRINTM ACOS ACOSH ACOT ACOTH AGGREGATE ADDRESS AMORDEGRC AMORLINC AND ARABIC AREAS ASC ASIN ASINH ATAN ATAN2 ATANH AVEDEV AVERAGE AVERAGEA AVERAGEIF AVERAGEIFS BAHTTEXT BASE BESSELI BESSELJ BESSELK BESSELY BETADIST BETA.DIST BETAINV BETA.INV BIN2DEC BIN2HEX BIN2OCT BINOMDIST BINOM.DIST BINOM.DIST.RANGE BINOM.INV BITAND BITLSHIFT BITOR BITRSHIFT BITXOR CALL CEILING CEILING.MATH CEILING.PRECISE CELL CHAR CHIDIST CHIINV CHITEST CHISQ.DIST CHISQ.DIST.RT CHISQ.INV CHISQ.INV.RT CHISQ.TEST CHOOSE CLEAN CODE COLUMN COLUMNS COMBIN COMBINA COMPLEX CONCAT CONCATENATE CONFIDENCE CONFIDENCE.NORM CONFIDENCE.T CONVERT CORREL COS COSH COT COTH COUNT COUNTA COUNTBLANK COUNTIF COUNTIFS COUPDAYBS COUPDAYS COUPDAYSNC COUPNCD COUPNUM COUPPCD COVAR COVARIANCE.P COVARIANCE.S CRITBINOM CSC CSCH CUBEKPIMEMBER CUBEMEMBER CUBEMEMBERPROPERTY CUBERANKEDMEMBER CUBESET CUBESETCOUNT CUBEVALUE CUMIPMT CUMPRINC DATE DATEDIF DATEVALUE DAVERAGE DAY DAYS DAYS360 DB DBCS DCOUNT DCOUNTA DDB DEC2BIN DEC2HEX DEC2OCT DECIMAL DEGREES DELTA DEVSQ DGET DISC DMAX DMIN DOLLAR DOLLARDE DOLLARFR DPRODUCT DSTDEV DSTDEVP DSUM DURATION DVAR DVARP EDATE EFFECT ENCODEURL EOMONTH ERF ERF.PRECISE ERFC ERFC.PRECISE ERROR.TYPE EUROCONVERT EVEN EXACT EXP EXPON.DIST EXPONDIST FACT FACTDOUBLE FALSE|0 F.DIST FDIST F.DIST.RT FILTERXML FIND FINDB F.INV F.INV.RT FINV FISHER FISHERINV FIXED FLOOR FLOOR.MATH FLOOR.PRECISE FORECAST FORECAST.ETS FORECAST.ETS.CONFINT FORECAST.ETS.SEASONALITY FORECAST.ETS.STAT FORECAST.LINEAR FORMULATEXT FREQUENCY F.TEST FTEST FV FVSCHEDULE GAMMA GAMMA.DIST GAMMADIST GAMMA.INV GAMMAINV GAMMALN GAMMALN.PRECISE GAUSS GCD GEOMEAN GESTEP GETPIVOTDATA GROWTH HARMEAN HEX2BIN HEX2DEC HEX2OCT HLOOKUP HOUR HYPERLINK HYPGEOM.DIST HYPGEOMDIST IF IFERROR IFNA IFS IMABS IMAGINARY IMARGUMENT IMCONJUGATE IMCOS IMCOSH IMCOT IMCSC IMCSCH IMDIV IMEXP IMLN IMLOG10 IMLOG2 IMPOWER IMPRODUCT IMREAL IMSEC IMSECH IMSIN IMSINH IMSQRT IMSUB IMSUM IMTAN INDEX INDIRECT INFO INT INTERCEPT INTRATE IPMT IRR ISBLANK ISERR ISERROR ISEVEN ISFORMULA ISLOGICAL ISNA ISNONTEXT ISNUMBER ISODD ISREF ISTEXT ISO.CEILING ISOWEEKNUM ISPMT JIS KURT LARGE LCM LEFT LEFTB LEN LENB LINEST LN LOG LOG10 LOGEST LOGINV LOGNORM.DIST LOGNORMDIST LOGNORM.INV LOOKUP LOWER MATCH MAX MAXA MAXIFS MDETERM MDURATION MEDIAN MID MIDBs MIN MINIFS MINA MINUTE MINVERSE MIRR MMULT MOD MODE MODE.MULT MODE.SNGL MONTH MROUND MULTINOMIAL MUNIT N NA NEGBINOM.DIST NEGBINOMDIST NETWORKDAYS NETWORKDAYS.INTL NOMINAL NORM.DIST NORMDIST NORMINV NORM.INV NORM.S.DIST NORMSDIST NORM.S.INV NORMSINV NOT NOW NPER NPV NUMBERVALUE OCT2BIN OCT2DEC OCT2HEX ODD ODDFPRICE ODDFYIELD ODDLPRICE ODDLYIELD OFFSET OR PDURATION PEARSON PERCENTILE.EXC PERCENTILE.INC PERCENTILE PERCENTRANK.EXC PERCENTRANK.INC PERCENTRANK PERMUT PERMUTATIONA PHI PHONETIC PI PMT POISSON.DIST POISSON POWER PPMT PRICE PRICEDISC PRICEMAT PROB PRODUCT PROPER PV QUARTILE QUARTILE.EXC QUARTILE.INC QUOTIENT RADIANS RAND RANDBETWEEN RANK.AVG RANK.EQ RANK RATE RECEIVED REGISTER.ID REPLACE REPLACEB REPT RIGHT RIGHTB ROMAN ROUND ROUNDDOWN ROUNDUP ROW ROWS RRI RSQ RTD SEARCH SEARCHB SEC SECH SECOND SERIESSUM SHEET SHEETS SIGN SIN SINH SKEW SKEW.P SLN SLOPE SMALL SQL.REQUEST SQRT SQRTPI STANDARDIZE STDEV STDEV.P STDEV.S STDEVA STDEVP STDEVPA STEYX SUBSTITUTE SUBTOTAL SUM SUMIF SUMIFS SUMPRODUCT SUMSQ SUMX2MY2 SUMX2PY2 SUMXMY2 SWITCH SYD T TAN TANH TBILLEQ TBILLPRICE TBILLYIELD T.DIST T.DIST.2T T.DIST.RT TDIST TEXT TEXTJOIN TIME TIMEVALUE T.INV T.INV.2T TINV TODAY TRANSPOSE TREND TRIM TRIMMEAN TRUE|0 TRUNC T.TEST TTEST TYPE UNICHAR UNICODE UPPER VALUE VAR VAR.P VAR.S VARA VARP VARPA VDB VLOOKUP WEBSERVICE WEEKDAY WEEKNUM WEIBULL WEIBULL.DIST WORKDAY WORKDAY.INTL XIRR XNPV XOR YEAR YEARFRAC YIELD YIELDDISC YIELDMAT Z.TEST ZTEST"},contains:[{begin:/^=/,end:/[^=]/,returnEnd:true,illegal:/=/,relevance:10},{className:"symbol",begin:/\b[A-Z]{1,2}\d+\b/,end:/[^\d]/,excludeEnd:true,relevance:0},{className:"symbol",begin:/[A-Z]{0,2}\d*:[A-Z]{0,2}\d*/,relevance:0},hljs.BACKSLASH_ESCAPE,hljs.QUOTE_STRING_MODE,{className:"number",begin:hljs.NUMBER_RE+"(%)?",relevance:0},hljs.COMMENT(/\bN\(/,/\)/,{excludeBegin:true,excludeEnd:true,illegal:/\n/})]}});hljs.registerLanguage("moonscript",function(hljs){var KEYWORDS={keyword:"if then not for in while do return else elseif break continue switch and or "+"unless when class extends super local import export from using",literal:"true false nil",built_in:"_G _VERSION assert collectgarbage dofile error getfenv getmetatable ipairs load "+"loadfile loadstring module next pairs pcall print rawequal rawget rawset require "+"select setfenv setmetatable tonumber tostring type unpack xpcall coroutine debug "+"io math os package string table"};var JS_IDENT_RE="[A-Za-z$_][0-9A-Za-z$_]*";var SUBST={className:"subst",begin:/#\{/,end:/}/,keywords:KEYWORDS};var EXPRESSIONS=[hljs.inherit(hljs.C_NUMBER_MODE,{starts:{end:"(\\s*/)?",relevance:0}}),{className:"string",variants:[{begin:/'/,end:/'/,contains:[hljs.BACKSLASH_ESCAPE]},{begin:/"/,end:/"/,contains:[hljs.BACKSLASH_ESCAPE,SUBST]}]},{className:"built_in",begin:"@__"+hljs.IDENT_RE},{begin:"@"+hljs.IDENT_RE},{begin:hljs.IDENT_RE+"\\\\"+hljs.IDENT_RE}];SUBST.contains=EXPRESSIONS;var TITLE=hljs.inherit(hljs.TITLE_MODE,{begin:JS_IDENT_RE});var PARAMS_RE="(\\(.*\\))?\\s*\\B[-=]>";var PARAMS={className:"params",begin:"\\([^\\(]",returnBegin:true,contains:[{begin:/\(/,end:/\)/,keywords:KEYWORDS,contains:["self"].concat(EXPRESSIONS)}]};return{aliases:["moon"],keywords:KEYWORDS,illegal:/\/\*/,contains:EXPRESSIONS.concat([hljs.COMMENT("--","$"),{className:"function",begin:"^\\s*"+JS_IDENT_RE+"\\s*=\\s*"+PARAMS_RE,end:"[-=]>",returnBegin:true,contains:[TITLE,PARAMS]},{begin:/[\(,:=]\s*/,relevance:0,contains:[{className:"function",begin:PARAMS_RE,end:"[-=]>",returnBegin:true,contains:[PARAMS]}]},{className:"class",beginKeywords:"class",end:"$",illegal:/[:="\[\]]/,contains:[{beginKeywords:"extends",endsWithParent:true,illegal:/[:="\[\]]/,contains:[TITLE]},TITLE]},{className:"name",begin:JS_IDENT_RE+":",end:":",returnBegin:true,returnEnd:true,relevance:0}])}});hljs.registerLanguage("vala",function(hljs){return{keywords:{keyword:"char uchar unichar int uint long ulong short ushort int8 int16 int32 int64 uint8 "+"uint16 uint32 uint64 float double bool struct enum string void "+"weak unowned owned "+"async signal static abstract interface override virtual delegate "+"if while do for foreach else switch case break default return try catch "+"public private protected internal "+"using new this get set const stdout stdin stderr var",built_in:"DBus GLib CCode Gee Object Gtk Posix",literal:"false true null"},contains:[{className:"class",beginKeywords:"class interface namespace",end:"{",excludeEnd:true,illegal:"[^,:\\n\\s\\.]",contains:[hljs.UNDERSCORE_TITLE_MODE]},hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,{className:"string",begin:'"""',end:'"""',relevance:5},hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.C_NUMBER_MODE,{className:"meta",begin:"^#",end:"$",relevance:2}]}});hljs.registerLanguage("ruleslanguage",function(hljs){return{keywords:{keyword:"BILL_PERIOD BILL_START BILL_STOP RS_EFFECTIVE_START RS_EFFECTIVE_STOP RS_JURIS_CODE RS_OPCO_CODE "+"INTDADDATTRIBUTE|5 INTDADDVMSG|5 INTDBLOCKOP|5 INTDBLOCKOPNA|5 INTDCLOSE|5 INTDCOUNT|5 "+"INTDCOUNTSTATUSCODE|5 INTDCREATEMASK|5 INTDCREATEDAYMASK|5 INTDCREATEFACTORMASK|5 "+"INTDCREATEHANDLE|5 INTDCREATEOVERRIDEDAYMASK|5 INTDCREATEOVERRIDEMASK|5 "+"INTDCREATESTATUSCODEMASK|5 INTDCREATETOUPERIOD|5 INTDDELETE|5 INTDDIPTEST|5 INTDEXPORT|5 "+"INTDGETERRORCODE|5 INTDGETERRORMESSAGE|5 INTDISEQUAL|5 INTDJOIN|5 INTDLOAD|5 INTDLOADACTUALCUT|5 "+"INTDLOADDATES|5 INTDLOADHIST|5 INTDLOADLIST|5 INTDLOADLISTDATES|5 INTDLOADLISTENERGY|5 "+"INTDLOADLISTHIST|5 INTDLOADRELATEDCHANNEL|5 INTDLOADSP|5 INTDLOADSTAGING|5 INTDLOADUOM|5 "+"INTDLOADUOMDATES|5 INTDLOADUOMHIST|5 INTDLOADVERSION|5 INTDOPEN|5 INTDREADFIRST|5 INTDREADNEXT|5 "+"INTDRECCOUNT|5 INTDRELEASE|5 INTDREPLACE|5 INTDROLLAVG|5 INTDROLLPEAK|5 INTDSCALAROP|5 INTDSCALE|5 "+"INTDSETATTRIBUTE|5 INTDSETDSTPARTICIPANT|5 INTDSETSTRING|5 INTDSETVALUE|5 INTDSETVALUESTATUS|5 "+"INTDSHIFTSTARTTIME|5 INTDSMOOTH|5 INTDSORT|5 INTDSPIKETEST|5 INTDSUBSET|5 INTDTOU|5 "+"INTDTOURELEASE|5 INTDTOUVALUE|5 INTDUPDATESTATS|5 INTDVALUE|5 STDEV INTDDELETEEX|5 "+"INTDLOADEXACTUAL|5 INTDLOADEXCUT|5 INTDLOADEXDATES|5 INTDLOADEX|5 INTDLOADEXRELATEDCHANNEL|5 "+"INTDSAVEEX|5 MVLOAD|5 MVLOADACCT|5 MVLOADACCTDATES|5 MVLOADACCTHIST|5 MVLOADDATES|5 MVLOADHIST|5 "+"MVLOADLIST|5 MVLOADLISTDATES|5 MVLOADLISTHIST|5 IF FOR NEXT DONE SELECT END CALL ABORT CLEAR CHANNEL FACTOR LIST NUMBER "+"OVERRIDE SET WEEK DISTRIBUTIONNODE ELSE WHEN THEN OTHERWISE IENUM CSV INCLUDE LEAVE RIDER SAVE DELETE "+"NOVALUE SECTION WARN SAVE_UPDATE DETERMINANT LABEL REPORT REVENUE EACH "+"IN FROM TOTAL CHARGE BLOCK AND OR CSV_FILE RATE_CODE AUXILIARY_DEMAND "+"UIDACCOUNT RS BILL_PERIOD_SELECT HOURS_PER_MONTH INTD_ERROR_STOP SEASON_SCHEDULE_NAME "+"ACCOUNTFACTOR ARRAYUPPERBOUND CALLSTOREDPROC GETADOCONNECTION GETCONNECT GETDATASOURCE "+"GETQUALIFIER GETUSERID HASVALUE LISTCOUNT LISTOP LISTUPDATE LISTVALUE PRORATEFACTOR RSPRORATE "+"SETBINPATH SETDBMONITOR WQ_OPEN BILLINGHOURS DATE DATEFROMFLOAT DATETIMEFROMSTRING "+"DATETIMETOSTRING DATETOFLOAT DAY DAYDIFF DAYNAME DBDATETIME HOUR MINUTE MONTH MONTHDIFF "+"MONTHHOURS MONTHNAME ROUNDDATE SAMEWEEKDAYLASTYEAR SECOND WEEKDAY WEEKDIFF YEAR YEARDAY "+"YEARSTR COMPSUM HISTCOUNT HISTMAX HISTMIN HISTMINNZ HISTVALUE MAXNRANGE MAXRANGE MINRANGE "+"COMPIKVA COMPKVA COMPKVARFROMKQKW COMPLF IDATTR FLAG LF2KW LF2KWH MAXKW POWERFACTOR "+"READING2USAGE AVGSEASON MAXSEASON MONTHLYMERGE SEASONVALUE SUMSEASON ACCTREADDATES "+"ACCTTABLELOAD CONFIGADD CONFIGGET CREATEOBJECT CREATEREPORT EMAILCLIENT EXPBLKMDMUSAGE "+"EXPMDMUSAGE EXPORT_USAGE FACTORINEFFECT GETUSERSPECIFIEDSTOP INEFFECT ISHOLIDAY RUNRATE "+"SAVE_PROFILE SETREPORTTITLE USEREXIT WATFORRUNRATE TO TABLE ACOS ASIN ATAN ATAN2 BITAND CEIL "+"COS COSECANT COSH COTANGENT DIVQUOT DIVREM EXP FABS FLOOR FMOD FREPM FREXPN LOG LOG10 MAX MAXN "+"MIN MINNZ MODF POW ROUND ROUND2VALUE ROUNDINT SECANT SIN SINH SQROOT TAN TANH FLOAT2STRING "+"FLOAT2STRINGNC INSTR LEFT LEN LTRIM MID RIGHT RTRIM STRING STRINGNC TOLOWER TOUPPER TRIM "+"NUMDAYS READ_DATE STAGING",built_in:"IDENTIFIER OPTIONS XML_ELEMENT XML_OP XML_ELEMENT_OF DOMDOCCREATE DOMDOCLOADFILE DOMDOCLOADXML "+"DOMDOCSAVEFILE DOMDOCGETROOT DOMDOCADDPI DOMNODEGETNAME DOMNODEGETTYPE DOMNODEGETVALUE DOMNODEGETCHILDCT "+"DOMNODEGETFIRSTCHILD DOMNODEGETSIBLING DOMNODECREATECHILDELEMENT DOMNODESETATTRIBUTE "+"DOMNODEGETCHILDELEMENTCT DOMNODEGETFIRSTCHILDELEMENT DOMNODEGETSIBLINGELEMENT DOMNODEGETATTRIBUTECT "+"DOMNODEGETATTRIBUTEI DOMNODEGETATTRIBUTEBYNAME DOMNODEGETBYNAME"},contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.C_NUMBER_MODE,{className:"literal",variants:[{begin:"#\\s+[a-zA-Z\\ \\.]*",relevance:0},{begin:"#[a-zA-Z\\ \\.]+"}]}]}});hljs.registerLanguage("verilog",function(hljs){var SV_KEYWORDS={keyword:"accept_on alias always always_comb always_ff always_latch and assert assign "+"assume automatic before begin bind bins binsof bit break buf|0 bufif0 bufif1 "+"byte case casex casez cell chandle checker class clocking cmos config const "+"constraint context continue cover covergroup coverpoint cross deassign default "+"defparam design disable dist do edge else end endcase endchecker endclass "+"endclocking endconfig endfunction endgenerate endgroup endinterface endmodule "+"endpackage endprimitive endprogram endproperty endspecify endsequence endtable "+"endtask enum event eventually expect export extends extern final first_match for "+"force foreach forever fork forkjoin function generate|5 genvar global highz0 highz1 "+"if iff ifnone ignore_bins illegal_bins implements implies import incdir include "+"initial inout input inside instance int integer interconnect interface intersect "+"join join_any join_none large let liblist library local localparam logic longint "+"macromodule matches medium modport module nand negedge nettype new nexttime nmos "+"nor noshowcancelled not notif0 notif1 or output package packed parameter pmos "+"posedge primitive priority program property protected pull0 pull1 pulldown pullup "+"pulsestyle_ondetect pulsestyle_onevent pure rand randc randcase randsequence rcmos "+"real realtime ref reg reject_on release repeat restrict return rnmos rpmos rtran "+"rtranif0 rtranif1 s_always s_eventually s_nexttime s_until s_until_with scalared "+"sequence shortint shortreal showcancelled signed small soft solve specify specparam "+"static string strong strong0 strong1 struct super supply0 supply1 sync_accept_on "+"sync_reject_on table tagged task this throughout time timeprecision timeunit tran "+"tranif0 tranif1 tri tri0 tri1 triand trior trireg type typedef union unique unique0 "+"unsigned until until_with untyped use uwire var vectored virtual void wait wait_order "+"wand weak weak0 weak1 while wildcard wire with within wor xnor xor",literal:"null",built_in:"$finish $stop $exit $fatal $error $warning $info $realtime $time $printtimescale "+"$bitstoreal $bitstoshortreal $itor $signed $cast $bits $stime $timeformat "+"$realtobits $shortrealtobits $rtoi $unsigned $asserton $assertkill $assertpasson "+"$assertfailon $assertnonvacuouson $assertoff $assertcontrol $assertpassoff "+"$assertfailoff $assertvacuousoff $isunbounded $sampled $fell $changed $past_gclk "+"$fell_gclk $changed_gclk $rising_gclk $steady_gclk $coverage_control "+"$coverage_get $coverage_save $set_coverage_db_name $rose $stable $past "+"$rose_gclk $stable_gclk $future_gclk $falling_gclk $changing_gclk $display "+"$coverage_get_max $coverage_merge $get_coverage $load_coverage_db $typename "+"$unpacked_dimensions $left $low $increment $clog2 $ln $log10 $exp $sqrt $pow "+"$floor $ceil $sin $cos $tan $countbits $onehot $isunknown $fatal $warning "+"$dimensions $right $high $size $asin $acos $atan $atan2 $hypot $sinh $cosh "+"$tanh $asinh $acosh $atanh $countones $onehot0 $error $info $random "+"$dist_chi_square $dist_erlang $dist_exponential $dist_normal $dist_poisson "+"$dist_t $dist_uniform $q_initialize $q_remove $q_exam $async$and$array "+"$async$nand$array $async$or$array $async$nor$array $sync$and$array "+"$sync$nand$array $sync$or$array $sync$nor$array $q_add $q_full $psprintf "+"$async$and$plane $async$nand$plane $async$or$plane $async$nor$plane "+"$sync$and$plane $sync$nand$plane $sync$or$plane $sync$nor$plane $system "+"$display $displayb $displayh $displayo $strobe $strobeb $strobeh $strobeo "+"$write $readmemb $readmemh $writememh $value$plusargs "+"$dumpvars $dumpon $dumplimit $dumpports $dumpportson $dumpportslimit "+"$writeb $writeh $writeo $monitor $monitorb $monitorh $monitoro $writememb "+"$dumpfile $dumpoff $dumpall $dumpflush $dumpportsoff $dumpportsall "+"$dumpportsflush $fclose $fdisplay $fdisplayb $fdisplayh $fdisplayo "+"$fstrobe $fstrobeb $fstrobeh $fstrobeo $swrite $swriteb $swriteh "+"$swriteo $fscanf $fread $fseek $fflush $feof $fopen $fwrite $fwriteb "+"$fwriteh $fwriteo $fmonitor $fmonitorb $fmonitorh $fmonitoro $sformat "+"$sformatf $fgetc $ungetc $fgets $sscanf $rewind $ftell $ferror"};return{aliases:["v","sv","svh"],case_insensitive:false,keywords:SV_KEYWORDS,lexemes:/[\w\$]+/,contains:[hljs.C_BLOCK_COMMENT_MODE,hljs.C_LINE_COMMENT_MODE,hljs.QUOTE_STRING_MODE,{className:"number",contains:[hljs.BACKSLASH_ESCAPE],variants:[{begin:"\\b((\\d+'(b|h|o|d|B|H|O|D))[0-9xzXZa-fA-F_]+)"},{begin:"\\B(('(b|h|o|d|B|H|O|D))[0-9xzXZa-fA-F_]+)"},{begin:"\\b([0-9_])+",relevance:0}]},{className:"variable",variants:[{begin:"#\\((?!parameter).+\\)"},{begin:"\\.\\w+",relevance:0}]},{className:"meta",begin:"`",end:"$",keywords:{"meta-keyword":"define __FILE__ "+"__LINE__ begin_keywords celldefine default_nettype define "+"else elsif end_keywords endcelldefine endif ifdef ifndef "+"include line nounconnected_drive pragma resetall timescale "+"unconnected_drive undef undefineall"},relevance:0}]}});hljs.registerLanguage("mathematica",function(hljs){return{aliases:["mma","wl"],lexemes:"(\\$|\\b)"+hljs.IDENT_RE+"\\b",keywords:"AASTriangle AbelianGroup Abort AbortKernels AbortProtect AbortScheduledTask Above Abs AbsArg AbsArgPlot Absolute AbsoluteCorrelation AbsoluteCorrelationFunction AbsoluteCurrentValue AbsoluteDashing AbsoluteFileName AbsoluteOptions AbsolutePointSize AbsoluteThickness AbsoluteTime AbsoluteTiming AcceptanceThreshold AccountingForm Accumulate Accuracy AccuracyGoal ActionDelay ActionMenu ActionMenuBox ActionMenuBoxOptions Activate Active ActiveClassification ActiveClassificationObject ActiveItem ActivePrediction ActivePredictionObject ActiveStyle AcyclicGraphQ AddOnHelpPath AddSides AddTo AddToSearchIndex AddUsers AdjacencyGraph AdjacencyList AdjacencyMatrix AdjustmentBox AdjustmentBoxOptions AdjustTimeSeriesForecast AdministrativeDivisionData AffineHalfSpace AffineSpace AffineStateSpaceModel AffineTransform After AggregatedEntityClass AggregationLayer AircraftData AirportData AirPressureData AirTemperatureData AiryAi AiryAiPrime AiryAiZero AiryBi AiryBiPrime AiryBiZero AlgebraicIntegerQ AlgebraicNumber AlgebraicNumberDenominator AlgebraicNumberNorm AlgebraicNumberPolynomial AlgebraicNumberTrace AlgebraicRules AlgebraicRulesData Algebraics AlgebraicUnitQ Alignment AlignmentMarker AlignmentPoint All AllowAdultContent AllowedCloudExtraParameters AllowedCloudParameterExtensions AllowedDimensions AllowedFrequencyRange AllowedHeads AllowGroupClose AllowIncomplete AllowInlineCells AllowKernelInitialization AllowLooseGrammar AllowReverseGroupClose AllowScriptLevelChange AllTrue Alphabet AlphabeticOrder AlphabeticSort AlphaChannel AlternateImage AlternatingFactorial AlternatingGroup AlternativeHypothesis Alternatives AltitudeMethod AmbientLight AmbiguityFunction AmbiguityList Analytic AnatomyData AnatomyForm AnatomyPlot3D AnatomySkinStyle AnatomyStyling AnchoredSearch And AndersonDarlingTest AngerJ AngleBisector AngleBracket AnglePath AnglePath3D AngleVector AngularGauge Animate AnimationCycleOffset AnimationCycleRepetitions AnimationDirection AnimationDisplayTime AnimationRate AnimationRepetitions AnimationRunning AnimationRunTime AnimationTimeIndex Animator AnimatorBox AnimatorBoxOptions AnimatorElements Annotate Annotation AnnotationDelete AnnotationNames AnnotationRules AnnotationValue Annuity AnnuityDue Annulus AnomalyDetection AnomalyDetectorFunction Anonymous Antialiasing AntihermitianMatrixQ Antisymmetric AntisymmetricMatrixQ Antonyms AnyOrder AnySubset AnyTrue Apart ApartSquareFree APIFunction Appearance AppearanceElements AppearanceRules AppellF1 Append AppendCheck AppendLayer AppendTo ApplicationIdentificationKey Apply ApplySides ArcCos ArcCosh ArcCot ArcCoth ArcCsc ArcCsch ArcCurvature ARCHProcess ArcLength ArcSec ArcSech ArcSin ArcSinDistribution ArcSinh ArcTan ArcTanh Area Arg ArgMax ArgMin ArgumentCountQ ARIMAProcess ArithmeticGeometricMean ARMAProcess Around AroundReplace ARProcess Array ArrayComponents ArrayDepth ArrayFilter ArrayFlatten ArrayMesh ArrayPad ArrayPlot ArrayQ ArrayResample ArrayReshape ArrayRules Arrays Arrow Arrow3DBox ArrowBox Arrowheads ASATriangle Ask AskAppend AskConfirm AskDisplay AskedQ AskedValue AskFunction AskState AskTemplateDisplay AspectRatio AspectRatioFixed Assert AssociateTo Association AssociationFormat AssociationMap AssociationQ AssociationThread AssumeDeterministic Assuming Assumptions AstronomicalData AsymptoticDSolveValue AsymptoticEqual AsymptoticEquivalent AsymptoticGreater AsymptoticGreaterEqual AsymptoticIntegrate AsymptoticLess AsymptoticLessEqual AsymptoticOutputTracker AsymptoticRSolveValue AsymptoticSolve AsymptoticSum Asynchronous AsynchronousTaskObject AsynchronousTasks Atom AtomCoordinates AtomCount AtomDiagramCoordinates AtomList AtomQ AttentionLayer Attributes Audio AudioAmplify AudioAnnotate AudioAnnotationLookup AudioBlockMap AudioCapture AudioChannelAssignment AudioChannelCombine AudioChannelMix AudioChannels AudioChannelSeparate AudioData AudioDelay AudioDelete AudioDevice AudioDistance AudioFade AudioFrequencyShift AudioGenerator AudioIdentify AudioInputDevice AudioInsert AudioIntervals AudioJoin AudioLabel AudioLength AudioLocalMeasurements AudioLooping AudioLoudness AudioMeasurements AudioNormalize AudioOutputDevice AudioOverlay AudioPad AudioPan AudioPartition AudioPause AudioPitchShift AudioPlay AudioPlot AudioQ AudioRecord AudioReplace AudioResample AudioReverb AudioSampleRate AudioSpectralMap AudioSpectralTransformation AudioSplit AudioStop AudioStream AudioStreams AudioTimeStretch AudioTrim AudioType AugmentedPolyhedron AugmentedSymmetricPolynomial Authenticate Authentication AuthenticationDialog AutoAction Autocomplete AutocompletionFunction AutoCopy AutocorrelationTest AutoDelete AutoEvaluateEvents AutoGeneratedPackage AutoIndent AutoIndentSpacings AutoItalicWords AutoloadPath AutoMatch Automatic AutomaticImageSize AutoMultiplicationSymbol AutoNumberFormatting AutoOpenNotebooks AutoOpenPalettes AutoQuoteCharacters AutoRefreshed AutoRemove AutorunSequencing AutoScaling AutoScroll AutoSpacing AutoStyleOptions AutoStyleWords AutoSubmitting Axes AxesEdge AxesLabel AxesOrigin AxesStyle AxiomaticTheory Axis"+"BabyMonsterGroupB Back Background BackgroundAppearance BackgroundTasksSettings Backslash Backsubstitution Backward Ball Band BandpassFilter BandstopFilter BarabasiAlbertGraphDistribution BarChart BarChart3D BarcodeImage BarcodeRecognize BaringhausHenzeTest BarLegend BarlowProschanImportance BarnesG BarOrigin BarSpacing BartlettHannWindow BartlettWindow BaseDecode BaseEncode BaseForm Baseline BaselinePosition BaseStyle BasicRecurrentLayer BatchNormalizationLayer BatchSize BatesDistribution BattleLemarieWavelet BayesianMaximization BayesianMaximizationObject BayesianMinimization BayesianMinimizationObject Because BeckmannDistribution Beep Before Begin BeginDialogPacket BeginFrontEndInteractionPacket BeginPackage BellB BellY Below BenfordDistribution BeniniDistribution BenktanderGibratDistribution BenktanderWeibullDistribution BernoulliB BernoulliDistribution BernoulliGraphDistribution BernoulliProcess BernsteinBasis BesselFilterModel BesselI BesselJ BesselJZero BesselK BesselY BesselYZero Beta BetaBinomialDistribution BetaDistribution BetaNegativeBinomialDistribution BetaPrimeDistribution BetaRegularized Between BetweennessCentrality BeveledPolyhedron BezierCurve BezierCurve3DBox BezierCurve3DBoxOptions BezierCurveBox BezierCurveBoxOptions BezierFunction BilateralFilter Binarize BinaryDeserialize BinaryDistance BinaryFormat BinaryImageQ BinaryRead BinaryReadList BinarySerialize BinaryWrite BinCounts BinLists Binomial BinomialDistribution BinomialProcess BinormalDistribution BiorthogonalSplineWavelet BipartiteGraphQ BiquadraticFilterModel BirnbaumImportance BirnbaumSaundersDistribution BitAnd BitClear BitGet BitLength BitNot BitOr BitSet BitShiftLeft BitShiftRight BitXor BiweightLocation BiweightMidvariance Black BlackmanHarrisWindow BlackmanNuttallWindow BlackmanWindow Blank BlankForm BlankNullSequence BlankSequence Blend Block BlockchainAddressData BlockchainBase BlockchainBlockData BlockchainContractValue BlockchainData BlockchainGet BlockchainKeyEncode BlockchainPut BlockchainTokenData BlockchainTransaction BlockchainTransactionData BlockchainTransactionSign BlockchainTransactionSubmit BlockMap BlockRandom BlomqvistBeta BlomqvistBetaTest Blue Blur BodePlot BohmanWindow Bold Bond BondCount BondList BondQ Bookmarks Boole BooleanConsecutiveFunction BooleanConvert BooleanCountingFunction BooleanFunction BooleanGraph BooleanMaxterms BooleanMinimize BooleanMinterms BooleanQ BooleanRegion Booleans BooleanStrings BooleanTable BooleanVariables BorderDimensions BorelTannerDistribution Bottom BottomHatTransform BoundaryDiscretizeGraphics BoundaryDiscretizeRegion BoundaryMesh BoundaryMeshRegion BoundaryMeshRegionQ BoundaryStyle BoundedRegionQ BoundingRegion Bounds Box BoxBaselineShift BoxData BoxDimensions Boxed Boxes BoxForm BoxFormFormatTypes BoxFrame BoxID BoxMargins BoxMatrix BoxObject BoxRatios BoxRotation BoxRotationPoint BoxStyle BoxWhiskerChart Bra BracketingBar BraKet BrayCurtisDistance BreadthFirstScan Break BridgeData BrightnessEqualize BroadcastStationData Brown BrownForsytheTest BrownianBridgeProcess BrowserCategory BSplineBasis BSplineCurve BSplineCurve3DBox BSplineCurve3DBoxOptions BSplineCurveBox BSplineCurveBoxOptions BSplineFunction BSplineSurface BSplineSurface3DBox BSplineSurface3DBoxOptions BubbleChart BubbleChart3D BubbleScale BubbleSizes BuildingData BulletGauge BusinessDayQ ButterflyGraph ButterworthFilterModel Button ButtonBar ButtonBox ButtonBoxOptions ButtonCell ButtonContents ButtonData ButtonEvaluator ButtonExpandable ButtonFrame ButtonFunction ButtonMargins ButtonMinHeight ButtonNote ButtonNotebook ButtonSource ButtonStyle ButtonStyleMenuListing Byte ByteArray ByteArrayFormat ByteArrayQ ByteArrayToString ByteCount ByteOrdering"+"C CachedValue CacheGraphics CachePersistence CalendarConvert CalendarData CalendarType Callout CalloutMarker CalloutStyle CallPacket CanberraDistance Cancel CancelButton CandlestickChart CanonicalGraph CanonicalizePolygon CanonicalizePolyhedron CanonicalName CanonicalWarpingCorrespondence CanonicalWarpingDistance CantorMesh CantorStaircase Cap CapForm CapitalDifferentialD Capitalize CapsuleShape CaptureRunning CardinalBSplineBasis CarlemanLinearize CarmichaelLambda CaseOrdering Cases CaseSensitive Cashflow Casoratian Catalan CatalanNumber Catch Catenate CatenateLayer CauchyDistribution CauchyWindow CayleyGraph CDF CDFDeploy CDFInformation CDFWavelet Ceiling CelestialSystem Cell CellAutoOverwrite CellBaseline CellBoundingBox CellBracketOptions CellChangeTimes CellContents CellContext CellDingbat CellDynamicExpression CellEditDuplicate CellElementsBoundingBox CellElementSpacings CellEpilog CellEvaluationDuplicate CellEvaluationFunction CellEvaluationLanguage CellEventActions CellFrame CellFrameColor CellFrameLabelMargins CellFrameLabels CellFrameMargins CellGroup CellGroupData CellGrouping CellGroupingRules CellHorizontalScrolling CellID CellLabel CellLabelAutoDelete CellLabelMargins CellLabelPositioning CellLabelStyle CellLabelTemplate CellMargins CellObject CellOpen CellPrint CellProlog Cells CellSize CellStyle CellTags CellularAutomaton CensoredDistribution Censoring Center CenterArray CenterDot CentralFeature CentralMoment CentralMomentGeneratingFunction Cepstrogram CepstrogramArray CepstrumArray CForm ChampernowneNumber ChangeOptions ChannelBase ChannelBrokerAction ChannelDatabin ChannelHistoryLength ChannelListen ChannelListener ChannelListeners ChannelListenerWait ChannelObject ChannelPreSendFunction ChannelReceiverFunction ChannelSend ChannelSubscribers ChanVeseBinarize Character CharacterCounts CharacterEncoding CharacterEncodingsPath CharacteristicFunction CharacteristicPolynomial CharacterName CharacterRange Characters ChartBaseStyle ChartElementData ChartElementDataFunction ChartElementFunction ChartElements ChartLabels ChartLayout ChartLegends ChartStyle Chebyshev1FilterModel Chebyshev2FilterModel ChebyshevDistance ChebyshevT ChebyshevU Check CheckAbort CheckAll Checkbox CheckboxBar CheckboxBox CheckboxBoxOptions ChemicalData ChessboardDistance ChiDistribution ChineseRemainder ChiSquareDistribution ChoiceButtons ChoiceDialog CholeskyDecomposition Chop ChromaticityPlot ChromaticityPlot3D ChromaticPolynomial Circle CircleBox CircleDot CircleMinus CirclePlus CirclePoints CircleThrough CircleTimes CirculantGraph CircularOrthogonalMatrixDistribution CircularQuaternionMatrixDistribution CircularRealMatrixDistribution CircularSymplecticMatrixDistribution CircularUnitaryMatrixDistribution Circumsphere CityData ClassifierFunction ClassifierInformation ClassifierMeasurements ClassifierMeasurementsObject Classify ClassPriors Clear ClearAll ClearAttributes ClearCookies ClearPermissions ClearSystemCache ClebschGordan ClickPane Clip ClipboardNotebook ClipFill ClippingStyle ClipPlanes ClipPlanesStyle ClipRange Clock ClockGauge ClockwiseContourIntegral Close Closed CloseKernels ClosenessCentrality Closing ClosingAutoSave ClosingEvent CloudAccountData CloudBase CloudConnect CloudDeploy CloudDirectory CloudDisconnect CloudEvaluate CloudExport CloudExpression CloudExpressions CloudFunction CloudGet CloudImport CloudLoggingData CloudObject CloudObjectInformation CloudObjectInformationData CloudObjectNameFormat CloudObjects CloudObjectURLType CloudPublish CloudPut CloudRenderingMethod CloudSave CloudShare CloudSubmit CloudSymbol CloudUnshare ClusterClassify ClusterDissimilarityFunction ClusteringComponents ClusteringTree CMYKColor Coarse CodeAssistOptions Coefficient CoefficientArrays CoefficientDomain CoefficientList CoefficientRules CoifletWavelet Collect Colon ColonForm ColorBalance ColorCombine ColorConvert ColorCoverage ColorData ColorDataFunction ColorDetect ColorDistance ColorFunction ColorFunctionScaling Colorize ColorNegate ColorOutput ColorProfileData ColorQ ColorQuantize ColorReplace ColorRules ColorSelectorSettings ColorSeparate ColorSetter ColorSetterBox ColorSetterBoxOptions ColorSlider ColorsNear ColorSpace ColorToneMapping Column ColumnAlignments ColumnBackgrounds ColumnForm ColumnLines ColumnsEqual ColumnSpacings ColumnWidths CombinedEntityClass CombinerFunction CometData CommonDefaultFormatTypes Commonest CommonestFilter CommonName CommonUnits CommunityBoundaryStyle CommunityGraphPlot CommunityLabels CommunityRegionStyle CompanyData CompatibleUnitQ CompilationOptions CompilationTarget Compile Compiled CompiledCodeFunction CompiledFunction CompilerOptions Complement CompleteGraph CompleteGraphQ CompleteKaryTree CompletionsListPacket Complex Complexes ComplexExpand ComplexInfinity ComplexityFunction ComplexListPlot ComplexPlot ComplexPlot3D ComponentMeasurements ComponentwiseContextMenu Compose ComposeList ComposeSeries CompositeQ Composition CompoundElement CompoundExpression CompoundPoissonDistribution CompoundPoissonProcess CompoundRenewalProcess Compress CompressedData ComputeUncertainty Condition ConditionalExpression Conditioned Cone ConeBox ConfidenceLevel ConfidenceRange ConfidenceTransform ConfigurationPath ConformAudio ConformImages Congruent ConicHullRegion ConicHullRegion3DBox ConicHullRegionBox ConicOptimization Conjugate ConjugateTranspose Conjunction Connect ConnectedComponents ConnectedGraphComponents ConnectedGraphQ ConnectedMeshComponents ConnectedMoleculeComponents ConnectedMoleculeQ ConnectionSettings ConnectLibraryCallbackFunction ConnectSystemModelComponents ConnesWindow ConoverTest ConsoleMessage ConsoleMessagePacket ConsolePrint Constant ConstantArray ConstantArrayLayer ConstantImage ConstantPlusLayer ConstantRegionQ Constants ConstantTimesLayer ConstellationData ConstrainedMax ConstrainedMin Construct Containing ContainsAll ContainsAny ContainsExactly ContainsNone ContainsOnly ContentFieldOptions ContentLocationFunction ContentObject ContentPadding ContentsBoundingBox ContentSelectable ContentSize Context ContextMenu Contexts ContextToFileName Continuation Continue ContinuedFraction ContinuedFractionK ContinuousAction ContinuousMarkovProcess ContinuousTask ContinuousTimeModelQ ContinuousWaveletData ContinuousWaveletTransform ContourDetect ContourGraphics ContourIntegral ContourLabels ContourLines ContourPlot ContourPlot3D Contours ContourShading ContourSmoothing ContourStyle ContraharmonicMean ContrastiveLossLayer Control ControlActive ControlAlignment ControlGroupContentsBox ControllabilityGramian ControllabilityMatrix ControllableDecomposition ControllableModelQ ControllerDuration ControllerInformation ControllerInformationData ControllerLinking ControllerManipulate ControllerMethod ControllerPath ControllerState ControlPlacement ControlsRendering ControlType Convergents ConversionOptions ConversionRules ConvertToBitmapPacket ConvertToPostScript ConvertToPostScriptPacket ConvexHullMesh ConvexPolygonQ ConvexPolyhedronQ ConvolutionLayer Convolve ConwayGroupCo1 ConwayGroupCo2 ConwayGroupCo3 CookieFunction Cookies CoordinateBoundingBox CoordinateBoundingBoxArray CoordinateBounds CoordinateBoundsArray CoordinateChartData CoordinatesToolOptions CoordinateTransform CoordinateTransformData CoprimeQ Coproduct CopulaDistribution Copyable CopyDatabin CopyDirectory CopyFile CopyTag CopyToClipboard CornerFilter CornerNeighbors Correlation CorrelationDistance CorrelationFunction CorrelationTest Cos Cosh CoshIntegral CosineDistance CosineWindow CosIntegral Cot Coth Count CountDistinct CountDistinctBy CounterAssignments CounterBox CounterBoxOptions CounterClockwiseContourIntegral CounterEvaluator CounterFunction CounterIncrements CounterStyle CounterStyleMenuListing CountRoots CountryData Counts CountsBy Covariance CovarianceEstimatorFunction CovarianceFunction CoxianDistribution CoxIngersollRossProcess CoxModel CoxModelFit CramerVonMisesTest CreateArchive CreateCellID CreateChannel CreateCloudExpression CreateDatabin CreateDataSystemModel CreateDialog CreateDirectory CreateDocument CreateFile CreateIntermediateDirectories CreateManagedLibraryExpression CreateNotebook CreatePalette CreatePalettePacket CreatePermissionsGroup CreateScheduledTask CreateSearchIndex CreateSystemModel CreateTemporary CreateUUID CreateWindow CriterionFunction CriticalityFailureImportance CriticalitySuccessImportance CriticalSection Cross CrossEntropyLossLayer CrossingCount CrossingDetect CrossingPolygon CrossMatrix Csc Csch CTCLossLayer Cube CubeRoot Cubics Cuboid CuboidBox Cumulant CumulantGeneratingFunction Cup CupCap Curl CurlyDoubleQuote CurlyQuote CurrencyConvert CurrentDate CurrentImage CurrentlySpeakingPacket CurrentNotebookImage CurrentScreenImage CurrentValue Curry CurvatureFlowFilter CurveClosed Cyan CycleGraph CycleIndexPolynomial Cycles CyclicGroup Cyclotomic Cylinder CylinderBox CylindricalDecomposition"+"D DagumDistribution DamData DamerauLevenshteinDistance DampingFactor Darker Dashed Dashing DatabaseConnect DatabaseDisconnect DatabaseReference Databin DatabinAdd DatabinRemove Databins DatabinUpload DataCompression DataDistribution DataRange DataReversed Dataset Date DateBounds Dated DateDelimiters DateDifference DatedUnit DateFormat DateFunction DateHistogram DateList DateListLogPlot DateListPlot DateListStepPlot DateObject DateObjectQ DateOverlapsQ DatePattern DatePlus DateRange DateReduction DateString DateTicksFormat DateValue DateWithinQ DaubechiesWavelet DavisDistribution DawsonF DayCount DayCountConvention DayHemisphere DaylightQ DayMatchQ DayName DayNightTerminator DayPlus DayRange DayRound DeBruijnGraph DeBruijnSequence Debug DebugTag Decapitalize Decimal DecimalForm DeclareKnownSymbols DeclarePackage Decompose DeconvolutionLayer Decrement Decrypt DecryptFile DedekindEta DeepSpaceProbeData Default DefaultAxesStyle DefaultBaseStyle DefaultBoxStyle DefaultButton DefaultColor DefaultControlPlacement DefaultDuplicateCellStyle DefaultDuration DefaultElement DefaultFaceGridsStyle DefaultFieldHintStyle DefaultFont DefaultFontProperties DefaultFormatType DefaultFormatTypeForStyle DefaultFrameStyle DefaultFrameTicksStyle DefaultGridLinesStyle DefaultInlineFormatType DefaultInputFormatType DefaultLabelStyle DefaultMenuStyle DefaultNaturalLanguage DefaultNewCellStyle DefaultNewInlineCellStyle DefaultNotebook DefaultOptions DefaultOutputFormatType DefaultPrintPrecision DefaultStyle DefaultStyleDefinitions DefaultTextFormatType DefaultTextInlineFormatType DefaultTicksStyle DefaultTooltipStyle DefaultValue DefaultValues Defer DefineExternal DefineInputStreamMethod DefineOutputStreamMethod DefineResourceFunction Definition Degree DegreeCentrality DegreeGraphDistribution DegreeLexicographic DegreeReverseLexicographic DEigensystem DEigenvalues Deinitialization Del DelaunayMesh Delayed Deletable Delete DeleteAnomalies DeleteBorderComponents DeleteCases DeleteChannel DeleteCloudExpression DeleteContents DeleteDirectory DeleteDuplicates DeleteDuplicatesBy DeleteFile DeleteMissing DeleteObject DeletePermissionsKey DeleteSearchIndex DeleteSmallComponents DeleteStopwords DeleteWithContents DeletionWarning DelimitedArray DelimitedSequence Delimiter DelimiterFlashTime DelimiterMatching Delimiters DeliveryFunction Dendrogram Denominator DensityGraphics DensityHistogram DensityPlot DensityPlot3D DependentVariables Deploy Deployed Depth DepthFirstScan Derivative DerivativeFilter DerivedKey DescriptorStateSpace DesignMatrix DestroyAfterEvaluation Det DeviceClose DeviceConfigure DeviceExecute DeviceExecuteAsynchronous DeviceObject DeviceOpen DeviceOpenQ DeviceRead DeviceReadBuffer DeviceReadLatest DeviceReadList DeviceReadTimeSeries Devices DeviceStreams DeviceWrite DeviceWriteBuffer DGaussianWavelet DiacriticalPositioning Diagonal DiagonalizableMatrixQ DiagonalMatrix DiagonalMatrixQ Dialog DialogIndent DialogInput DialogLevel DialogNotebook DialogProlog DialogReturn DialogSymbols Diamond DiamondMatrix DiceDissimilarity DictionaryLookup DictionaryWordQ DifferenceDelta DifferenceOrder DifferenceQuotient DifferenceRoot DifferenceRootReduce Differences DifferentialD DifferentialRoot DifferentialRootReduce DifferentiatorFilter DigitalSignature DigitBlock DigitBlockMinimum DigitCharacter DigitCount DigitQ DihedralAngle DihedralGroup Dilation DimensionalCombinations DimensionalMeshComponents DimensionReduce DimensionReducerFunction DimensionReduction Dimensions DiracComb DiracDelta DirectedEdge DirectedEdges DirectedGraph DirectedGraphQ DirectedInfinity Direction Directive Directory DirectoryName DirectoryQ DirectoryStack DirichletBeta DirichletCharacter DirichletCondition DirichletConvolve DirichletDistribution DirichletEta DirichletL DirichletLambda DirichletTransform DirichletWindow DisableConsolePrintPacket DisableFormatting DiscreteChirpZTransform DiscreteConvolve DiscreteDelta DiscreteHadamardTransform DiscreteIndicator DiscreteLimit DiscreteLQEstimatorGains DiscreteLQRegulatorGains DiscreteLyapunovSolve DiscreteMarkovProcess DiscreteMaxLimit DiscreteMinLimit DiscretePlot DiscretePlot3D DiscreteRatio DiscreteRiccatiSolve DiscreteShift DiscreteTimeModelQ DiscreteUniformDistribution DiscreteVariables DiscreteWaveletData DiscreteWaveletPacketTransform DiscreteWaveletTransform DiscretizeGraphics DiscretizeRegion Discriminant DisjointQ Disjunction Disk DiskBox DiskMatrix DiskSegment Dispatch DispatchQ DispersionEstimatorFunction Display DisplayAllSteps DisplayEndPacket DisplayFlushImagePacket DisplayForm DisplayFunction DisplayPacket DisplayRules DisplaySetSizePacket DisplayString DisplayTemporary DisplayWith DisplayWithRef DisplayWithVariable DistanceFunction DistanceMatrix DistanceTransform Distribute Distributed DistributedContexts DistributeDefinitions DistributionChart DistributionDomain DistributionFitTest DistributionParameterAssumptions DistributionParameterQ Dithering Div Divergence Divide DivideBy Dividers DivideSides Divisible Divisors DivisorSigma DivisorSum DMSList DMSString Do DockedCells DocumentGenerator DocumentGeneratorInformation DocumentGeneratorInformationData DocumentGenerators DocumentNotebook DocumentWeightingRules Dodecahedron DomainRegistrationInformation DominantColors DOSTextFormat Dot DotDashed DotEqual DotLayer DotPlusLayer Dotted DoubleBracketingBar DoubleContourIntegral DoubleDownArrow DoubleLeftArrow DoubleLeftRightArrow DoubleLeftTee DoubleLongLeftArrow DoubleLongLeftRightArrow DoubleLongRightArrow DoubleRightArrow DoubleRightTee DoubleUpArrow DoubleUpDownArrow DoubleVerticalBar DoublyInfinite Down DownArrow DownArrowBar DownArrowUpArrow DownLeftRightVector DownLeftTeeVector DownLeftVector DownLeftVectorBar DownRightTeeVector DownRightVector DownRightVectorBar Downsample DownTee DownTeeArrow DownValues DragAndDrop DrawEdges DrawFrontFaces DrawHighlighted Drop DropoutLayer DSolve DSolveValue Dt DualLinearProgramming DualPolyhedron DualSystemsModel DumpGet DumpSave DuplicateFreeQ Duration Dynamic DynamicBox DynamicBoxOptions DynamicEvaluationTimeout DynamicGeoGraphics DynamicImage DynamicLocation DynamicModule DynamicModuleBox DynamicModuleBoxOptions DynamicModuleParent DynamicModuleValues DynamicName DynamicNamespace DynamicReference DynamicSetting DynamicUpdating DynamicWrapper DynamicWrapperBox DynamicWrapperBoxOptions"+"E EarthImpactData EarthquakeData EccentricityCentrality Echo EchoFunction EclipseType EdgeAdd EdgeBetweennessCentrality EdgeCapacity EdgeCapForm EdgeColor EdgeConnectivity EdgeContract EdgeCost EdgeCount EdgeCoverQ EdgeCycleMatrix EdgeDashing EdgeDelete EdgeDetect EdgeForm EdgeIndex EdgeJoinForm EdgeLabeling EdgeLabels EdgeLabelStyle EdgeList EdgeOpacity EdgeQ EdgeRenderingFunction EdgeRules EdgeShapeFunction EdgeStyle EdgeThickness EdgeWeight EdgeWeightedGraphQ Editable EditButtonSettings EditCellTagsSettings EditDistance EffectiveInterest Eigensystem Eigenvalues EigenvectorCentrality Eigenvectors Element ElementData ElementwiseLayer ElidedForms Eliminate EliminationOrder Ellipsoid EllipticE EllipticExp EllipticExpPrime EllipticF EllipticFilterModel EllipticK EllipticLog EllipticNomeQ EllipticPi EllipticReducedHalfPeriods EllipticTheta EllipticThetaPrime EmbedCode EmbeddedHTML EmbeddedService EmbeddingLayer EmbeddingObject EmitSound EmphasizeSyntaxErrors EmpiricalDistribution Empty EmptyGraphQ EmptyRegion EnableConsolePrintPacket Enabled Encode Encrypt EncryptedObject EncryptFile End EndAdd EndDialogPacket EndFrontEndInteractionPacket EndOfBuffer EndOfFile EndOfLine EndOfString EndPackage EngineEnvironment EngineeringForm Enter EnterExpressionPacket EnterTextPacket Entity EntityClass EntityClassList EntityCopies EntityFunction EntityGroup EntityInstance EntityList EntityPrefetch EntityProperties EntityProperty EntityPropertyClass EntityRegister EntityStore EntityStores EntityTypeName EntityUnregister EntityValue Entropy EntropyFilter Environment Epilog EpilogFunction Equal EqualColumns EqualRows EqualTilde EqualTo EquatedTo Equilibrium EquirippleFilterKernel Equivalent Erf Erfc Erfi ErlangB ErlangC ErlangDistribution Erosion ErrorBox ErrorBoxOptions ErrorNorm ErrorPacket ErrorsDialogSettings EscapeRadius EstimatedBackground EstimatedDistribution EstimatedProcess EstimatorGains EstimatorRegulator EuclideanDistance EulerAngles EulerCharacteristic EulerE EulerGamma EulerianGraphQ EulerMatrix EulerPhi Evaluatable Evaluate Evaluated EvaluatePacket EvaluateScheduledTask EvaluationBox EvaluationCell EvaluationCompletionAction EvaluationData EvaluationElements EvaluationEnvironment EvaluationMode EvaluationMonitor EvaluationNotebook EvaluationObject EvaluationOrder Evaluator EvaluatorNames EvenQ EventData EventEvaluator EventHandler EventHandlerTag EventLabels EventSeries ExactBlackmanWindow ExactNumberQ ExactRootIsolation ExampleData Except ExcludedForms ExcludedLines ExcludedPhysicalQuantities ExcludePods Exclusions ExclusionsStyle Exists Exit ExitDialog ExoplanetData Exp Expand ExpandAll ExpandDenominator ExpandFileName ExpandNumerator Expectation ExpectationE ExpectedValue ExpGammaDistribution ExpIntegralE ExpIntegralEi ExpirationDate Exponent ExponentFunction ExponentialDistribution ExponentialFamily ExponentialGeneratingFunction ExponentialMovingAverage ExponentialPowerDistribution ExponentPosition ExponentStep Export ExportAutoReplacements ExportByteArray ExportForm ExportPacket ExportString Expression ExpressionCell ExpressionPacket ExpressionUUID ExpToTrig ExtendedEntityClass ExtendedGCD Extension ExtentElementFunction ExtentMarkers ExtentSize ExternalBundle ExternalCall ExternalDataCharacterEncoding ExternalEvaluate ExternalFunction ExternalFunctionName ExternalObject ExternalOptions ExternalSessionObject ExternalSessions ExternalTypeSignature ExternalValue Extract ExtractArchive ExtractLayer ExtremeValueDistribution"+"FaceForm FaceGrids FaceGridsStyle FacialFeatures Factor FactorComplete Factorial Factorial2 FactorialMoment FactorialMomentGeneratingFunction FactorialPower FactorInteger FactorList FactorSquareFree FactorSquareFreeList FactorTerms FactorTermsList Fail Failure FailureAction FailureDistribution FailureQ False FareySequence FARIMAProcess FeatureDistance FeatureExtract FeatureExtraction FeatureExtractor FeatureExtractorFunction FeatureNames FeatureNearest FeatureSpacePlot FeatureSpacePlot3D FeatureTypes FEDisableConsolePrintPacket FeedbackLinearize FeedbackSector FeedbackSectorStyle FeedbackType FEEnableConsolePrintPacket FetalGrowthData Fibonacci Fibonorial FieldCompletionFunction FieldHint FieldHintStyle FieldMasked FieldSize File FileBaseName FileByteCount FileConvert FileDate FileExistsQ FileExtension FileFormat FileHandler FileHash FileInformation FileName FileNameDepth FileNameDialogSettings FileNameDrop FileNameForms FileNameJoin FileNames FileNameSetter FileNameSplit FileNameTake FilePrint FileSize FileSystemMap FileSystemScan FileTemplate FileTemplateApply FileType FilledCurve FilledCurveBox FilledCurveBoxOptions Filling FillingStyle FillingTransform FilteredEntityClass FilterRules FinancialBond FinancialData FinancialDerivative FinancialIndicator Find FindAnomalies FindArgMax FindArgMin FindChannels FindClique FindClusters FindCookies FindCurvePath FindCycle FindDevices FindDistribution FindDistributionParameters FindDivisions FindEdgeCover FindEdgeCut FindEdgeIndependentPaths FindEquationalProof FindEulerianCycle FindExternalEvaluators FindFaces FindFile FindFit FindFormula FindFundamentalCycles FindGeneratingFunction FindGeoLocation FindGeometricConjectures FindGeometricTransform FindGraphCommunities FindGraphIsomorphism FindGraphPartition FindHamiltonianCycle FindHamiltonianPath FindHiddenMarkovStates FindIndependentEdgeSet FindIndependentVertexSet FindInstance FindIntegerNullVector FindKClan FindKClique FindKClub FindKPlex FindLibrary FindLinearRecurrence FindList FindMatchingColor FindMaximum FindMaximumFlow FindMaxValue FindMeshDefects FindMinimum FindMinimumCostFlow FindMinimumCut FindMinValue FindMoleculeSubstructure FindPath FindPeaks FindPermutation FindPostmanTour FindProcessParameters FindRepeat FindRoot FindSequenceFunction FindSettings FindShortestPath FindShortestTour FindSpanningTree FindSystemModelEquilibrium FindTextualAnswer FindThreshold FindTransientRepeat FindVertexCover FindVertexCut FindVertexIndependentPaths Fine FinishDynamic FiniteAbelianGroupCount FiniteGroupCount FiniteGroupData First FirstCase FirstPassageTimeDistribution FirstPosition FischerGroupFi22 FischerGroupFi23 FischerGroupFi24Prime FisherHypergeometricDistribution FisherRatioTest FisherZDistribution Fit FitAll FitRegularization FittedModel FixedOrder FixedPoint FixedPointList FlashSelection Flat Flatten FlattenAt FlattenLayer FlatTopWindow FlipView Floor FlowPolynomial FlushPrintOutputPacket Fold FoldList FoldPair FoldPairList FollowRedirects Font FontColor FontFamily FontForm FontName FontOpacity FontPostScriptName FontProperties FontReencoding FontSize FontSlant FontSubstitutions FontTracking FontVariations FontWeight For ForAll Format FormatRules FormatType FormatTypeAutoConvert FormatValues FormBox FormBoxOptions FormControl FormFunction FormLayoutFunction FormObject FormPage FormTheme FormulaData FormulaLookup FortranForm Forward ForwardBackward Fourier FourierCoefficient FourierCosCoefficient FourierCosSeries FourierCosTransform FourierDCT FourierDCTFilter FourierDCTMatrix FourierDST FourierDSTMatrix FourierMatrix FourierParameters FourierSequenceTransform FourierSeries FourierSinCoefficient FourierSinSeries FourierSinTransform FourierTransform FourierTrigSeries FractionalBrownianMotionProcess FractionalGaussianNoiseProcess FractionalPart FractionBox FractionBoxOptions FractionLine Frame FrameBox FrameBoxOptions Framed FrameInset FrameLabel Frameless FrameMargins FrameRate FrameStyle FrameTicks FrameTicksStyle FRatioDistribution FrechetDistribution FreeQ FrenetSerretSystem FrequencySamplingFilterKernel FresnelC FresnelF FresnelG FresnelS Friday FrobeniusNumber FrobeniusSolve FromAbsoluteTime FromCharacterCode FromCoefficientRules FromContinuedFraction FromDate FromDigits FromDMS FromEntity FromJulianDate FromLetterNumber FromPolarCoordinates FromRomanNumeral FromSphericalCoordinates FromUnixTime Front FrontEndDynamicExpression FrontEndEventActions FrontEndExecute FrontEndObject FrontEndResource FrontEndResourceString FrontEndStackSize FrontEndToken FrontEndTokenExecute FrontEndValueCache FrontEndVersion FrontFaceColor FrontFaceOpacity Full FullAxes FullDefinition FullForm FullGraphics FullInformationOutputRegulator FullOptions FullRegion FullSimplify Function FunctionCompile FunctionCompileExport FunctionCompileExportByteArray FunctionCompileExportLibrary FunctionCompileExportString FunctionDomain FunctionExpand FunctionInterpolation FunctionPeriod FunctionRange FunctionSpace FussellVeselyImportance"+"GaborFilter GaborMatrix GaborWavelet GainMargins GainPhaseMargins GalaxyData GalleryView Gamma GammaDistribution GammaRegularized GapPenalty GARCHProcess GatedRecurrentLayer Gather GatherBy GaugeFaceElementFunction GaugeFaceStyle GaugeFrameElementFunction GaugeFrameSize GaugeFrameStyle GaugeLabels GaugeMarkers GaugeStyle GaussianFilter GaussianIntegers GaussianMatrix GaussianOrthogonalMatrixDistribution GaussianSymplecticMatrixDistribution GaussianUnitaryMatrixDistribution GaussianWindow GCD GegenbauerC General GeneralizedLinearModelFit GenerateAsymmetricKeyPair GenerateConditions GeneratedCell GeneratedDocumentBinding GenerateDerivedKey GenerateDigitalSignature GenerateDocument GeneratedParameters GeneratedQuantityMagnitudes GenerateHTTPResponse GenerateSecuredAuthenticationKey GenerateSymmetricKey GeneratingFunction GeneratorDescription GeneratorHistoryLength GeneratorOutputType Generic GenericCylindricalDecomposition GenomeData GenomeLookup GeoAntipode GeoArea GeoArraySize GeoBackground GeoBoundingBox GeoBounds GeoBoundsRegion GeoBubbleChart GeoCenter GeoCircle GeodesicClosing GeodesicDilation GeodesicErosion GeodesicOpening GeoDestination GeodesyData GeoDirection GeoDisk GeoDisplacement GeoDistance GeoDistanceList GeoElevationData GeoEntities GeoGraphics GeogravityModelData GeoGridDirectionDifference GeoGridLines GeoGridLinesStyle GeoGridPosition GeoGridRange GeoGridRangePadding GeoGridUnitArea GeoGridUnitDistance GeoGridVector GeoGroup GeoHemisphere GeoHemisphereBoundary GeoHistogram GeoIdentify GeoImage GeoLabels GeoLength GeoListPlot GeoLocation GeologicalPeriodData GeomagneticModelData GeoMarker GeometricAssertion GeometricBrownianMotionProcess GeometricDistribution GeometricMean GeometricMeanFilter GeometricScene GeometricTransformation GeometricTransformation3DBox GeometricTransformation3DBoxOptions GeometricTransformationBox GeometricTransformationBoxOptions GeoModel GeoNearest GeoPath GeoPosition GeoPositionENU GeoPositionXYZ GeoProjection GeoProjectionData GeoRange GeoRangePadding GeoRegionValuePlot GeoResolution GeoScaleBar GeoServer GeoSmoothHistogram GeoStreamPlot GeoStyling GeoStylingImageFunction GeoVariant GeoVector GeoVectorENU GeoVectorPlot GeoVectorXYZ GeoVisibleRegion GeoVisibleRegionBoundary GeoWithinQ GeoZoomLevel GestureHandler GestureHandlerTag Get GetBoundingBoxSizePacket GetContext GetEnvironment GetFileName GetFrontEndOptionsDataPacket GetLinebreakInformationPacket GetMenusPacket GetPageBreakInformationPacket Glaisher GlobalClusteringCoefficient GlobalPreferences GlobalSession Glow GoldenAngle GoldenRatio GompertzMakehamDistribution GoodmanKruskalGamma GoodmanKruskalGammaTest Goto Grad Gradient GradientFilter GradientOrientationFilter GrammarApply GrammarRules GrammarToken Graph Graph3D GraphAssortativity GraphAutomorphismGroup GraphCenter GraphComplement GraphData GraphDensity GraphDiameter GraphDifference GraphDisjointUnion GraphDistance GraphDistanceMatrix GraphElementData GraphEmbedding GraphHighlight GraphHighlightStyle GraphHub Graphics Graphics3D Graphics3DBox Graphics3DBoxOptions GraphicsArray GraphicsBaseline GraphicsBox GraphicsBoxOptions GraphicsColor GraphicsColumn GraphicsComplex GraphicsComplex3DBox GraphicsComplex3DBoxOptions GraphicsComplexBox GraphicsComplexBoxOptions GraphicsContents GraphicsData GraphicsGrid GraphicsGridBox GraphicsGroup GraphicsGroup3DBox GraphicsGroup3DBoxOptions GraphicsGroupBox GraphicsGroupBoxOptions GraphicsGrouping GraphicsHighlightColor GraphicsRow GraphicsSpacing GraphicsStyle GraphIntersection GraphLayout GraphLinkEfficiency GraphPeriphery GraphPlot GraphPlot3D GraphPower GraphPropertyDistribution GraphQ GraphRadius GraphReciprocity GraphRoot GraphStyle GraphUnion Gray GrayLevel Greater GreaterEqual GreaterEqualLess GreaterEqualThan GreaterFullEqual GreaterGreater GreaterLess GreaterSlantEqual GreaterThan GreaterTilde Green GreenFunction Grid GridBaseline GridBox GridBoxAlignment GridBoxBackground GridBoxDividers GridBoxFrame GridBoxItemSize GridBoxItemStyle GridBoxOptions GridBoxSpacings GridCreationSettings GridDefaultElement GridElementStyleOptions GridFrame GridFrameMargins GridGraph GridLines GridLinesStyle GroebnerBasis GroupActionBase GroupBy GroupCentralizer GroupElementFromWord GroupElementPosition GroupElementQ GroupElements GroupElementToWord GroupGenerators Groupings GroupMultiplicationTable GroupOrbits GroupOrder GroupPageBreakWithin GroupSetwiseStabilizer GroupStabilizer GroupStabilizerChain GroupTogetherGrouping GroupTogetherNestedGrouping GrowCutComponents Gudermannian GuidedFilter GumbelDistribution"+"HaarWavelet HadamardMatrix HalfLine HalfNormalDistribution HalfPlane HalfSpace HamiltonianGraphQ HammingDistance HammingWindow HandlerFunctions HandlerFunctionsKeys HankelH1 HankelH2 HankelMatrix HankelTransform HannPoissonWindow HannWindow HaradaNortonGroupHN HararyGraph HarmonicMean HarmonicMeanFilter HarmonicNumber Hash Haversine HazardFunction Head HeadCompose HeaderLines Heads HeavisideLambda HeavisidePi HeavisideTheta HeldGroupHe HeldPart HelpBrowserLookup HelpBrowserNotebook HelpBrowserSettings Here HermiteDecomposition HermiteH HermitianMatrixQ HessenbergDecomposition Hessian HexadecimalCharacter Hexahedron HexahedronBox HexahedronBoxOptions HiddenMarkovProcess HiddenSurface Highlighted HighlightGraph HighlightImage HighlightMesh HighpassFilter HigmanSimsGroupHS HilbertCurve HilbertFilter HilbertMatrix Histogram Histogram3D HistogramDistribution HistogramList HistogramTransform HistogramTransformInterpolation HistoricalPeriodData HitMissTransform HITSCentrality HjorthDistribution HodgeDual HoeffdingD HoeffdingDTest Hold HoldAll HoldAllComplete HoldComplete HoldFirst HoldForm HoldPattern HoldRest HolidayCalendar HomeDirectory HomePage Horizontal HorizontalForm HorizontalGauge HorizontalScrollPosition HornerForm HostLookup HotellingTSquareDistribution HoytDistribution HTMLSave HTTPErrorResponse HTTPRedirect HTTPRequest HTTPRequestData HTTPResponse Hue HumanGrowthData HumpDownHump HumpEqual HurwitzLerchPhi HurwitzZeta HyperbolicDistribution HypercubeGraph HyperexponentialDistribution Hyperfactorial Hypergeometric0F1 Hypergeometric0F1Regularized Hypergeometric1F1 Hypergeometric1F1Regularized Hypergeometric2F1 Hypergeometric2F1Regularized HypergeometricDistribution HypergeometricPFQ HypergeometricPFQRegularized HypergeometricU Hyperlink HyperlinkCreationSettings Hyperplane Hyphenation HyphenationOptions HypoexponentialDistribution HypothesisTestData"+"I IconData Iconize IconizedObject IconRules Icosahedron Identity IdentityMatrix If IgnoreCase IgnoreDiacritics IgnorePunctuation IgnoreSpellCheck IgnoringInactive Im Image Image3D Image3DProjection Image3DSlices ImageAccumulate ImageAdd ImageAdjust ImageAlign ImageApply ImageApplyIndexed ImageAspectRatio ImageAssemble ImageAugmentationLayer ImageBoundingBoxes ImageCache ImageCacheValid ImageCapture ImageCaptureFunction ImageCases ImageChannels ImageClip ImageCollage ImageColorSpace ImageCompose ImageContainsQ ImageContents ImageConvolve ImageCooccurrence ImageCorners ImageCorrelate ImageCorrespondingPoints ImageCrop ImageData ImageDeconvolve ImageDemosaic ImageDifference ImageDimensions ImageDisplacements ImageDistance ImageEffect ImageExposureCombine ImageFeatureTrack ImageFileApply ImageFileFilter ImageFileScan ImageFilter ImageFocusCombine ImageForestingComponents ImageFormattingWidth ImageForwardTransformation ImageGraphics ImageHistogram ImageIdentify ImageInstanceQ ImageKeypoints ImageLevels ImageLines ImageMargins ImageMarker ImageMarkers ImageMeasurements ImageMesh ImageMultiply ImageOffset ImagePad ImagePadding ImagePartition ImagePeriodogram ImagePerspectiveTransformation ImagePosition ImagePreviewFunction ImagePyramid ImagePyramidApply ImageQ ImageRangeCache ImageRecolor ImageReflect ImageRegion ImageResize ImageResolution ImageRestyle ImageRotate ImageRotated ImageSaliencyFilter ImageScaled ImageScan ImageSize ImageSizeAction ImageSizeCache ImageSizeMultipliers ImageSizeRaw ImageSubtract ImageTake ImageTransformation ImageTrim ImageType ImageValue ImageValuePositions ImagingDevice ImplicitRegion Implies Import ImportAutoReplacements ImportByteArray ImportOptions ImportString ImprovementImportance In Inactivate Inactive IncidenceGraph IncidenceList IncidenceMatrix IncludeAromaticBonds IncludeConstantBasis IncludeDefinitions IncludeDirectories IncludeFileExtension IncludeGeneratorTasks IncludeHydrogens IncludeInflections IncludeMetaInformation IncludePods IncludeQuantities IncludeRelatedTables IncludeSingularTerm IncludeWindowTimes Increment IndefiniteMatrixQ Indent IndentingNewlineSpacings IndentMaxFraction IndependenceTest IndependentEdgeSetQ IndependentPhysicalQuantity IndependentUnit IndependentUnitDimension IndependentVertexSetQ Indeterminate IndeterminateThreshold IndexCreationOptions Indexed IndexGraph IndexTag Inequality InexactNumberQ InexactNumbers InfiniteLine InfinitePlane Infinity Infix InflationAdjust InflationMethod Information InformationData InformationDataGrid Inherited InheritScope InhomogeneousPoissonProcess InitialEvaluationHistory Initialization InitializationCell InitializationCellEvaluation InitializationCellWarning InitializationObjects InitializationValue Initialize InitialSeeding InlineCounterAssignments InlineCounterIncrements InlineRules Inner InnerPolygon InnerPolyhedron Inpaint Input InputAliases InputAssumptions InputAutoReplacements InputField InputFieldBox InputFieldBoxOptions InputForm InputGrouping InputNamePacket InputNotebook InputPacket InputSettings InputStream InputString InputStringPacket InputToBoxFormPacket Insert InsertionFunction InsertionPointObject InsertLinebreaks InsertResults Inset Inset3DBox Inset3DBoxOptions InsetBox InsetBoxOptions Insphere Install InstallService InstanceNormalizationLayer InString Integer IntegerDigits IntegerExponent IntegerLength IntegerName IntegerPart IntegerPartitions IntegerQ IntegerReverse Integers IntegerString Integral Integrate Interactive InteractiveTradingChart Interlaced Interleaving InternallyBalancedDecomposition InterpolatingFunction InterpolatingPolynomial Interpolation InterpolationOrder InterpolationPoints InterpolationPrecision Interpretation InterpretationBox InterpretationBoxOptions InterpretationFunction Interpreter InterpretTemplate InterquartileRange Interrupt InterruptSettings IntersectingQ Intersection Interval IntervalIntersection IntervalMarkers IntervalMarkersStyle IntervalMemberQ IntervalSlider IntervalUnion Into Inverse InverseBetaRegularized InverseCDF InverseChiSquareDistribution InverseContinuousWaveletTransform InverseDistanceTransform InverseEllipticNomeQ InverseErf InverseErfc InverseFourier InverseFourierCosTransform InverseFourierSequenceTransform InverseFourierSinTransform InverseFourierTransform InverseFunction InverseFunctions InverseGammaDistribution InverseGammaRegularized InverseGaussianDistribution InverseGudermannian InverseHankelTransform InverseHaversine InverseImagePyramid InverseJacobiCD InverseJacobiCN InverseJacobiCS InverseJacobiDC InverseJacobiDN InverseJacobiDS InverseJacobiNC InverseJacobiND InverseJacobiNS InverseJacobiSC InverseJacobiSD InverseJacobiSN InverseLaplaceTransform InverseMellinTransform InversePermutation InverseRadon InverseRadonTransform InverseSeries InverseShortTimeFourier InverseSpectrogram InverseSurvivalFunction InverseTransformedRegion InverseWaveletTransform InverseWeierstrassP InverseWishartMatrixDistribution InverseZTransform Invisible InvisibleApplication InvisibleTimes IPAddress IrreduciblePolynomialQ IslandData IsolatingInterval IsomorphicGraphQ IsotopeData Italic Item ItemAspectRatio ItemBox ItemBoxOptions ItemSize ItemStyle ItoProcess"+"JaccardDissimilarity JacobiAmplitude Jacobian JacobiCD JacobiCN JacobiCS JacobiDC JacobiDN JacobiDS JacobiNC JacobiND JacobiNS JacobiP JacobiSC JacobiSD JacobiSN JacobiSymbol JacobiZeta JankoGroupJ1 JankoGroupJ2 JankoGroupJ3 JankoGroupJ4 JarqueBeraALMTest JohnsonDistribution Join JoinAcross Joined JoinedCurve JoinedCurveBox JoinedCurveBoxOptions JoinForm JordanDecomposition JordanModelDecomposition JulianDate JuliaSetBoettcher JuliaSetIterationCount JuliaSetPlot JuliaSetPoints"+"K KagiChart KaiserBesselWindow KaiserWindow KalmanEstimator KalmanFilter KarhunenLoeveDecomposition KaryTree KatzCentrality KCoreComponents KDistribution KEdgeConnectedComponents KEdgeConnectedGraphQ KelvinBei KelvinBer KelvinKei KelvinKer KendallTau KendallTauTest KernelExecute KernelFunction KernelMixtureDistribution Kernels Ket Key KeyCollisionFunction KeyComplement KeyDrop KeyDropFrom KeyExistsQ KeyFreeQ KeyIntersection KeyMap KeyMemberQ KeypointStrength Keys KeySelect KeySort KeySortBy KeyTake KeyUnion KeyValueMap KeyValuePattern Khinchin KillProcess KirchhoffGraph KirchhoffMatrix KleinInvariantJ KnapsackSolve KnightTourGraph KnotData KnownUnitQ KochCurve KolmogorovSmirnovTest KroneckerDelta KroneckerModelDecomposition KroneckerProduct KroneckerSymbol KuiperTest KumaraswamyDistribution Kurtosis KuwaharaFilter KVertexConnectedComponents KVertexConnectedGraphQ"+"LABColor Label Labeled LabeledSlider LabelingFunction LabelingSize LabelStyle LabelVisibility LaguerreL LakeData LambdaComponents LambertW LaminaData LanczosWindow LandauDistribution Language LanguageCategory LanguageData LanguageIdentify LanguageOptions LaplaceDistribution LaplaceTransform Laplacian LaplacianFilter LaplacianGaussianFilter Large Larger Last Latitude LatitudeLongitude LatticeData LatticeReduce Launch LaunchKernels LayeredGraphPlot LayerSizeFunction LayoutInformation LCHColor LCM LeaderSize LeafCount LeapYearQ LearnDistribution LearnedDistribution LearningRate LearningRateMultipliers LeastSquares LeastSquaresFilterKernel Left LeftArrow LeftArrowBar LeftArrowRightArrow LeftDownTeeVector LeftDownVector LeftDownVectorBar LeftRightArrow LeftRightVector LeftTee LeftTeeArrow LeftTeeVector LeftTriangle LeftTriangleBar LeftTriangleEqual LeftUpDownVector LeftUpTeeVector LeftUpVector LeftUpVectorBar LeftVector LeftVectorBar LegendAppearance Legended LegendFunction LegendLabel LegendLayout LegendMargins LegendMarkers LegendMarkerSize LegendreP LegendreQ LegendreType Length LengthWhile LerchPhi Less LessEqual LessEqualGreater LessEqualThan LessFullEqual LessGreater LessLess LessSlantEqual LessThan LessTilde LetterCharacter LetterCounts LetterNumber LetterQ Level LeveneTest LeviCivitaTensor LevyDistribution Lexicographic LibraryDataType LibraryFunction LibraryFunctionError LibraryFunctionInformation LibraryFunctionLoad LibraryFunctionUnload LibraryLoad LibraryUnload LicenseID LiftingFilterData LiftingWaveletTransform LightBlue LightBrown LightCyan Lighter LightGray LightGreen Lighting LightingAngle LightMagenta LightOrange LightPink LightPurple LightRed LightSources LightYellow Likelihood Limit LimitsPositioning LimitsPositioningTokens LindleyDistribution Line Line3DBox Line3DBoxOptions LinearFilter LinearFractionalOptimization LinearFractionalTransform LinearGradientImage LinearizingTransformationData LinearLayer LinearModelFit LinearOffsetFunction LinearOptimization LinearProgramming LinearRecurrence LinearSolve LinearSolveFunction LineBox LineBoxOptions LineBreak LinebreakAdjustments LineBreakChart LinebreakSemicolonWeighting LineBreakWithin LineColor LineGraph LineIndent LineIndentMaxFraction LineIntegralConvolutionPlot LineIntegralConvolutionScale LineLegend LineOpacity LineSpacing LineWrapParts LinkActivate LinkClose LinkConnect LinkConnectedQ LinkCreate LinkError LinkFlush LinkFunction LinkHost LinkInterrupt LinkLaunch LinkMode LinkObject LinkOpen LinkOptions LinkPatterns LinkProtocol LinkRankCentrality LinkRead LinkReadHeld LinkReadyQ Links LinkService LinkWrite LinkWriteHeld LiouvilleLambda List Listable ListAnimate ListContourPlot ListContourPlot3D ListConvolve ListCorrelate ListCurvePathPlot ListDeconvolve ListDensityPlot ListDensityPlot3D Listen ListFormat ListFourierSequenceTransform ListInterpolation ListLineIntegralConvolutionPlot ListLinePlot ListLogLinearPlot ListLogLogPlot ListLogPlot ListPicker ListPickerBox ListPickerBoxBackground ListPickerBoxOptions ListPlay ListPlot ListPlot3D ListPointPlot3D ListPolarPlot ListQ ListSliceContourPlot3D ListSliceDensityPlot3D ListSliceVectorPlot3D ListStepPlot ListStreamDensityPlot ListStreamPlot ListSurfacePlot3D ListVectorDensityPlot ListVectorPlot ListVectorPlot3D ListZTransform Literal LiteralSearch LocalAdaptiveBinarize LocalCache LocalClusteringCoefficient LocalizeDefinitions LocalizeVariables LocalObject LocalObjects LocalResponseNormalizationLayer LocalSubmit LocalSymbol LocalTime LocalTimeZone LocationEquivalenceTest LocationTest Locator LocatorAutoCreate LocatorBox LocatorBoxOptions LocatorCentering LocatorPane LocatorPaneBox LocatorPaneBoxOptions LocatorRegion Locked Log Log10 Log2 LogBarnesG LogGamma LogGammaDistribution LogicalExpand LogIntegral LogisticDistribution LogisticSigmoid LogitModelFit LogLikelihood LogLinearPlot LogLogisticDistribution LogLogPlot LogMultinormalDistribution LogNormalDistribution LogPlot LogRankTest LogSeriesDistribution LongEqual Longest LongestCommonSequence LongestCommonSequencePositions LongestCommonSubsequence LongestCommonSubsequencePositions LongestMatch LongestOrderedSequence LongForm Longitude LongLeftArrow LongLeftRightArrow LongRightArrow LongShortTermMemoryLayer Lookup Loopback LoopFreeGraphQ LossFunction LowerCaseQ LowerLeftArrow LowerRightArrow LowerTriangularize LowerTriangularMatrixQ LowpassFilter LQEstimatorGains LQGRegulator LQOutputRegulatorGains LQRegulatorGains LUBackSubstitution LucasL LuccioSamiComponents LUDecomposition LunarEclipse LUVColor LyapunovSolve LyonsGroupLy"+"MachineID MachineName MachineNumberQ MachinePrecision MacintoshSystemPageSetup Magenta Magnification Magnify MailAddressValidation MailExecute MailFolder MailItem MailReceiverFunction MailResponseFunction MailSearch MailServerConnect MailServerConnection MailSettings MainSolve MaintainDynamicCaches Majority MakeBoxes MakeExpression MakeRules ManagedLibraryExpressionID ManagedLibraryExpressionQ MandelbrotSetBoettcher MandelbrotSetDistance MandelbrotSetIterationCount MandelbrotSetMemberQ MandelbrotSetPlot MangoldtLambda ManhattanDistance Manipulate Manipulator MannedSpaceMissionData MannWhitneyTest MantissaExponent Manual Map MapAll MapAt MapIndexed MAProcess MapThread MarchenkoPasturDistribution MarcumQ MardiaCombinedTest MardiaKurtosisTest MardiaSkewnessTest MarginalDistribution MarkovProcessProperties Masking MatchingDissimilarity MatchLocalNameQ MatchLocalNames MatchQ Material MathematicalFunctionData MathematicaNotation MathieuC MathieuCharacteristicA MathieuCharacteristicB MathieuCharacteristicExponent MathieuCPrime MathieuGroupM11 MathieuGroupM12 MathieuGroupM22 MathieuGroupM23 MathieuGroupM24 MathieuS MathieuSPrime MathMLForm MathMLText Matrices MatrixExp MatrixForm MatrixFunction MatrixLog MatrixNormalDistribution MatrixPlot MatrixPower MatrixPropertyDistribution MatrixQ MatrixRank MatrixTDistribution Max MaxBend MaxCellMeasure MaxColorDistance MaxDetect MaxDuration MaxExtraBandwidths MaxExtraConditions MaxFeatureDisplacement MaxFeatures MaxFilter MaximalBy Maximize MaxItems MaxIterations MaxLimit MaxMemoryUsed MaxMixtureKernels MaxOverlapFraction MaxPlotPoints MaxPoints MaxRecursion MaxStableDistribution MaxStepFraction MaxSteps MaxStepSize MaxTrainingRounds MaxValue MaxwellDistribution MaxWordGap McLaughlinGroupMcL Mean MeanAbsoluteLossLayer MeanAround MeanClusteringCoefficient MeanDegreeConnectivity MeanDeviation MeanFilter MeanGraphDistance MeanNeighborDegree MeanShift MeanShiftFilter MeanSquaredLossLayer Median MedianDeviation MedianFilter MedicalTestData Medium MeijerG MeijerGReduce MeixnerDistribution MellinConvolve MellinTransform MemberQ MemoryAvailable MemoryConstrained MemoryConstraint MemoryInUse MengerMesh Menu MenuAppearance MenuCommandKey MenuEvaluator MenuItem MenuList MenuPacket MenuSortingValue MenuStyle MenuView Merge MergeDifferences MergingFunction MersennePrimeExponent MersennePrimeExponentQ Mesh MeshCellCentroid MeshCellCount MeshCellHighlight MeshCellIndex MeshCellLabel MeshCellMarker MeshCellMeasure MeshCellQuality MeshCells MeshCellShapeFunction MeshCellStyle MeshCoordinates MeshFunctions MeshPrimitives MeshQualityGoal MeshRange MeshRefinementFunction MeshRegion MeshRegionQ MeshShading MeshStyle Message MessageDialog MessageList MessageName MessageObject MessageOptions MessagePacket Messages MessagesNotebook MetaCharacters MetaInformation MeteorShowerData Method MethodOptions MexicanHatWavelet MeyerWavelet Midpoint Min MinColorDistance MinDetect MineralData MinFilter MinimalBy MinimalPolynomial MinimalStateSpaceModel Minimize MinimumTimeIncrement MinIntervalSize MinkowskiQuestionMark MinLimit MinMax MinorPlanetData Minors MinRecursion MinSize MinStableDistribution Minus MinusPlus MinValue Missing MissingBehavior MissingDataMethod MissingDataRules MissingQ MissingString MissingStyle MissingValuePattern MittagLefflerE MixedFractionParts MixedGraphQ MixedMagnitude MixedRadix MixedRadixQuantity MixedUnit MixtureDistribution Mod Modal Mode Modular ModularInverse ModularLambda Module Modulus MoebiusMu Molecule MoleculeContainsQ MoleculeEquivalentQ MoleculeGraph MoleculeModify MoleculePattern MoleculePlot MoleculePlot3D MoleculeProperty MoleculeQ MoleculeValue Moment Momentary MomentConvert MomentEvaluate MomentGeneratingFunction MomentOfInertia Monday Monitor MonomialList MonomialOrder MonsterGroupM MoonPhase MoonPosition MorletWavelet MorphologicalBinarize MorphologicalBranchPoints MorphologicalComponents MorphologicalEulerNumber MorphologicalGraph MorphologicalPerimeter MorphologicalTransform MortalityData Most MountainData MouseAnnotation MouseAppearance MouseAppearanceTag MouseButtons Mouseover MousePointerNote MousePosition MovieData MovingAverage MovingMap MovingMedian MoyalDistribution Multicolumn MultiedgeStyle MultigraphQ MultilaunchWarning MultiLetterItalics MultiLetterStyle MultilineFunction Multinomial MultinomialDistribution MultinormalDistribution MultiplicativeOrder Multiplicity MultiplySides Multiselection MultivariateHypergeometricDistribution MultivariatePoissonDistribution MultivariateTDistribution"+"N NakagamiDistribution NameQ Names NamespaceBox NamespaceBoxOptions Nand NArgMax NArgMin NBernoulliB NBodySimulation NBodySimulationData NCache NDEigensystem NDEigenvalues NDSolve NDSolveValue Nearest NearestFunction NearestNeighborGraph NearestTo NebulaData NeedCurrentFrontEndPackagePacket NeedCurrentFrontEndSymbolsPacket NeedlemanWunschSimilarity Needs Negative NegativeBinomialDistribution NegativeDefiniteMatrixQ NegativeIntegers NegativeMultinomialDistribution NegativeRationals NegativeReals NegativeSemidefiniteMatrixQ NeighborhoodData NeighborhoodGraph Nest NestedGreaterGreater NestedLessLess NestedScriptRules NestGraph NestList NestWhile NestWhileList NetAppend NetBidirectionalOperator NetChain NetDecoder NetDelete NetDrop NetEncoder NetEvaluationMode NetExtract NetFlatten NetFoldOperator NetGraph NetInformation NetInitialize NetInsert NetInsertSharedArrays NetJoin NetMapOperator NetMapThreadOperator NetMeasurements NetModel NetNestOperator NetPairEmbeddingOperator NetPort NetPortGradient NetPrepend NetRename NetReplace NetReplacePart NetSharedArray NetStateObject NetTake NetTrain NetTrainResultsObject NetworkPacketCapture NetworkPacketRecording NetworkPacketRecordingDuring NetworkPacketTrace NeumannValue NevilleThetaC NevilleThetaD NevilleThetaN NevilleThetaS NewPrimitiveStyle NExpectation Next NextCell NextDate NextPrime NextScheduledTaskTime NHoldAll NHoldFirst NHoldRest NicholsGridLines NicholsPlot NightHemisphere NIntegrate NMaximize NMaxValue NMinimize NMinValue NominalVariables NonAssociative NoncentralBetaDistribution NoncentralChiSquareDistribution NoncentralFRatioDistribution NoncentralStudentTDistribution NonCommutativeMultiply NonConstants NondimensionalizationTransform None NoneTrue NonlinearModelFit NonlinearStateSpaceModel NonlocalMeansFilter NonNegative NonNegativeIntegers NonNegativeRationals NonNegativeReals NonPositive NonPositiveIntegers NonPositiveRationals NonPositiveReals Nor NorlundB Norm Normal NormalDistribution NormalGrouping NormalizationLayer Normalize Normalized NormalizedSquaredEuclideanDistance NormalMatrixQ NormalsFunction NormFunction Not NotCongruent NotCupCap NotDoubleVerticalBar Notebook NotebookApply NotebookAutoSave NotebookClose NotebookConvertSettings NotebookCreate NotebookCreateReturnObject NotebookDefault NotebookDelete NotebookDirectory NotebookDynamicExpression NotebookEvaluate NotebookEventActions NotebookFileName NotebookFind NotebookFindReturnObject NotebookGet NotebookGetLayoutInformationPacket NotebookGetMisspellingsPacket NotebookImport NotebookInformation NotebookInterfaceObject NotebookLocate NotebookObject NotebookOpen NotebookOpenReturnObject NotebookPath NotebookPrint NotebookPut NotebookPutReturnObject NotebookRead NotebookResetGeneratedCells Notebooks NotebookSave NotebookSaveAs NotebookSelection NotebookSetupLayoutInformationPacket NotebooksMenu NotebookTemplate NotebookWrite NotElement NotEqualTilde NotExists NotGreater NotGreaterEqual NotGreaterFullEqual NotGreaterGreater NotGreaterLess NotGreaterSlantEqual NotGreaterTilde Nothing NotHumpDownHump NotHumpEqual NotificationFunction NotLeftTriangle NotLeftTriangleBar NotLeftTriangleEqual NotLess NotLessEqual NotLessFullEqual NotLessGreater NotLessLess NotLessSlantEqual NotLessTilde NotNestedGreaterGreater NotNestedLessLess NotPrecedes NotPrecedesEqual NotPrecedesSlantEqual NotPrecedesTilde NotReverseElement NotRightTriangle NotRightTriangleBar NotRightTriangleEqual NotSquareSubset NotSquareSubsetEqual NotSquareSuperset NotSquareSupersetEqual NotSubset NotSubsetEqual NotSucceeds NotSucceedsEqual NotSucceedsSlantEqual NotSucceedsTilde NotSuperset NotSupersetEqual NotTilde NotTildeEqual NotTildeFullEqual NotTildeTilde NotVerticalBar Now NoWhitespace NProbability NProduct NProductFactors NRoots NSolve NSum NSumTerms NuclearExplosionData NuclearReactorData Null NullRecords NullSpace NullWords Number NumberCompose NumberDecompose NumberExpand NumberFieldClassNumber NumberFieldDiscriminant NumberFieldFundamentalUnits NumberFieldIntegralBasis NumberFieldNormRepresentatives NumberFieldRegulator NumberFieldRootsOfUnity NumberFieldSignature NumberForm NumberFormat NumberLinePlot NumberMarks NumberMultiplier NumberPadding NumberPoint NumberQ NumberSeparator NumberSigns NumberString Numerator NumeratorDenominator NumericalOrder NumericalSort NumericArray NumericArrayQ NumericArrayType NumericFunction NumericQ NuttallWindow NValues NyquistGridLines NyquistPlot"+"O ObservabilityGramian ObservabilityMatrix ObservableDecomposition ObservableModelQ OceanData Octahedron OddQ Off Offset OLEData On ONanGroupON Once OneIdentity Opacity OpacityFunction OpacityFunctionScaling Open OpenAppend Opener OpenerBox OpenerBoxOptions OpenerView OpenFunctionInspectorPacket Opening OpenRead OpenSpecialOptions OpenTemporary OpenWrite Operate OperatingSystem OptimumFlowData Optional OptionalElement OptionInspectorSettings OptionQ Options OptionsPacket OptionsPattern OptionValue OptionValueBox OptionValueBoxOptions Or Orange Order OrderDistribution OrderedQ Ordering OrderingBy OrderingLayer Orderless OrderlessPatternSequence OrnsteinUhlenbeckProcess Orthogonalize OrthogonalMatrixQ Out Outer OuterPolygon OuterPolyhedron OutputAutoOverwrite OutputControllabilityMatrix OutputControllableModelQ OutputForm OutputFormData OutputGrouping OutputMathEditExpression OutputNamePacket OutputResponse OutputSizeLimit OutputStream Over OverBar OverDot Overflow OverHat Overlaps Overlay OverlayBox OverlayBoxOptions Overscript OverscriptBox OverscriptBoxOptions OverTilde OverVector OverwriteTarget OwenT OwnValues"+"Package PackingMethod PaddedForm Padding PaddingLayer PaddingSize PadeApproximant PadLeft PadRight PageBreakAbove PageBreakBelow PageBreakWithin PageFooterLines PageFooters PageHeaderLines PageHeaders PageHeight PageRankCentrality PageTheme PageWidth Pagination PairedBarChart PairedHistogram PairedSmoothHistogram PairedTTest PairedZTest PaletteNotebook PalettePath PalindromeQ Pane PaneBox PaneBoxOptions Panel PanelBox PanelBoxOptions Paneled PaneSelector PaneSelectorBox PaneSelectorBoxOptions PaperWidth ParabolicCylinderD ParagraphIndent ParagraphSpacing ParallelArray ParallelCombine ParallelDo Parallelepiped ParallelEvaluate Parallelization Parallelize ParallelMap ParallelNeeds Parallelogram ParallelProduct ParallelSubmit ParallelSum ParallelTable ParallelTry Parameter ParameterEstimator ParameterMixtureDistribution ParameterVariables ParametricFunction ParametricNDSolve ParametricNDSolveValue ParametricPlot ParametricPlot3D ParametricRegion ParentBox ParentCell ParentConnect ParentDirectory ParentForm Parenthesize ParentList ParentNotebook ParetoDistribution ParetoPickandsDistribution ParkData Part PartBehavior PartialCorrelationFunction PartialD ParticleAcceleratorData ParticleData Partition PartitionGranularity PartitionsP PartitionsQ PartLayer PartOfSpeech PartProtection ParzenWindow PascalDistribution PassEventsDown PassEventsUp Paste PasteAutoQuoteCharacters PasteBoxFormInlineCells PasteButton Path PathGraph PathGraphQ Pattern PatternSequence PatternTest PauliMatrix PaulWavelet Pause PausedTime PDF PeakDetect PeanoCurve PearsonChiSquareTest PearsonCorrelationTest PearsonDistribution PercentForm PerfectNumber PerfectNumberQ PerformanceGoal Perimeter PeriodicBoundaryCondition PeriodicInterpolation Periodogram PeriodogramArray Permanent Permissions PermissionsGroup PermissionsGroupMemberQ PermissionsGroups PermissionsKey PermissionsKeys PermutationCycles PermutationCyclesQ PermutationGroup PermutationLength PermutationList PermutationListQ PermutationMax PermutationMin PermutationOrder PermutationPower PermutationProduct PermutationReplace Permutations PermutationSupport Permute PeronaMalikFilter Perpendicular PerpendicularBisector PersistenceLocation PersistenceTime PersistentObject PersistentObjects PersistentValue PersonData PERTDistribution PetersenGraph PhaseMargins PhaseRange PhysicalSystemData Pi Pick PIDData PIDDerivativeFilter PIDFeedforward PIDTune Piecewise PiecewiseExpand PieChart PieChart3D PillaiTrace PillaiTraceTest PingTime Pink PitchRecognize Pivoting PixelConstrained PixelValue PixelValuePositions Placed Placeholder PlaceholderReplace Plain PlanarAngle PlanarGraph PlanarGraphQ PlanckRadiationLaw PlaneCurveData PlanetaryMoonData PlanetData PlantData Play PlayRange Plot Plot3D Plot3Matrix PlotDivision PlotJoined PlotLabel PlotLabels PlotLayout PlotLegends PlotMarkers PlotPoints PlotRange PlotRangeClipping PlotRangeClipPlanesStyle PlotRangePadding PlotRegion PlotStyle PlotTheme Pluralize Plus PlusMinus Pochhammer PodStates PodWidth Point Point3DBox Point3DBoxOptions PointBox PointBoxOptions PointFigureChart PointLegend PointSize PoissonConsulDistribution PoissonDistribution PoissonProcess PoissonWindow PolarAxes PolarAxesOrigin PolarGridLines PolarPlot PolarTicks PoleZeroMarkers PolyaAeppliDistribution PolyGamma Polygon Polygon3DBox Polygon3DBoxOptions PolygonalNumber PolygonAngle PolygonBox PolygonBoxOptions PolygonCoordinates PolygonDecomposition PolygonHoleScale PolygonIntersections PolygonScale Polyhedron PolyhedronAngle PolyhedronCoordinates PolyhedronData PolyhedronDecomposition PolyhedronGenus PolyLog PolynomialExtendedGCD PolynomialForm PolynomialGCD PolynomialLCM PolynomialMod PolynomialQ PolynomialQuotient PolynomialQuotientRemainder PolynomialReduce PolynomialRemainder Polynomials PoolingLayer PopupMenu PopupMenuBox PopupMenuBoxOptions PopupView PopupWindow Position PositionIndex Positive PositiveDefiniteMatrixQ PositiveIntegers PositiveRationals PositiveReals PositiveSemidefiniteMatrixQ PossibleZeroQ Postfix PostScript Power PowerDistribution PowerExpand PowerMod PowerModList PowerRange PowerSpectralDensity PowersRepresentations PowerSymmetricPolynomial Precedence PrecedenceForm Precedes PrecedesEqual PrecedesSlantEqual PrecedesTilde Precision PrecisionGoal PreDecrement Predict PredictionRoot PredictorFunction PredictorInformation PredictorMeasurements PredictorMeasurementsObject PreemptProtect PreferencesPath Prefix PreIncrement Prepend PrependLayer PrependTo PreprocessingRules PreserveColor PreserveImageOptions Previous PreviousCell PreviousDate PriceGraphDistribution PrimaryPlaceholder Prime PrimeNu PrimeOmega PrimePi PrimePowerQ PrimeQ Primes PrimeZetaP PrimitivePolynomialQ PrimitiveRoot PrimitiveRootList PrincipalComponents PrincipalValue Print PrintableASCIIQ PrintAction PrintForm PrintingCopies PrintingOptions PrintingPageRange PrintingStartingPageNumber PrintingStyleEnvironment Printout3D Printout3DPreviewer PrintPrecision PrintTemporary Prism PrismBox PrismBoxOptions PrivateCellOptions PrivateEvaluationOptions PrivateFontOptions PrivateFrontEndOptions PrivateKey PrivateNotebookOptions PrivatePaths Probability ProbabilityDistribution ProbabilityPlot ProbabilityPr ProbabilityScalePlot ProbitModelFit ProcessConnection ProcessDirectory ProcessEnvironment Processes ProcessEstimator ProcessInformation ProcessObject ProcessParameterAssumptions ProcessParameterQ ProcessStateDomain ProcessStatus ProcessTimeDomain Product ProductDistribution ProductLog ProgressIndicator ProgressIndicatorBox ProgressIndicatorBoxOptions Projection Prolog PromptForm ProofObject Properties Property PropertyList PropertyValue Proportion Proportional Protect Protected ProteinData Pruning PseudoInverse PsychrometricPropertyData PublicKey PublisherID PulsarData PunctuationCharacter Purple Put PutAppend Pyramid PyramidBox PyramidBoxOptions"+"QBinomial QFactorial QGamma QHypergeometricPFQ QnDispersion QPochhammer QPolyGamma QRDecomposition QuadraticIrrationalQ QuadraticOptimization Quantile QuantilePlot Quantity QuantityArray QuantityDistribution QuantityForm QuantityMagnitude QuantityQ QuantityUnit QuantityVariable QuantityVariableCanonicalUnit QuantityVariableDimensions QuantityVariableIdentifier QuantityVariablePhysicalQuantity Quartics QuartileDeviation Quartiles QuartileSkewness Query QueueingNetworkProcess QueueingProcess QueueProperties Quiet Quit Quotient QuotientRemainder"+"RadialGradientImage RadialityCentrality RadicalBox RadicalBoxOptions RadioButton RadioButtonBar RadioButtonBox RadioButtonBoxOptions Radon RadonTransform RamanujanTau RamanujanTauL RamanujanTauTheta RamanujanTauZ Ramp Random RandomChoice RandomColor RandomComplex RandomEntity RandomFunction RandomGeoPosition RandomGraph RandomImage RandomInstance RandomInteger RandomPermutation RandomPoint RandomPolygon RandomPolyhedron RandomPrime RandomReal RandomSample RandomSeed RandomSeeding RandomVariate RandomWalkProcess RandomWord Range RangeFilter RangeSpecification RankedMax RankedMin RarerProbability Raster Raster3D Raster3DBox Raster3DBoxOptions RasterArray RasterBox RasterBoxOptions Rasterize RasterSize Rational RationalFunctions Rationalize Rationals Ratios RawArray RawBoxes RawData RawMedium RayleighDistribution Re Read ReadByteArray ReadLine ReadList ReadProtected ReadString Real RealAbs RealBlockDiagonalForm RealDigits RealExponent Reals RealSign Reap RecognitionPrior RecognitionThreshold Record RecordLists RecordSeparators Rectangle RectangleBox RectangleBoxOptions RectangleChart RectangleChart3D RectangularRepeatingElement RecurrenceFilter RecurrenceTable RecurringDigitsForm Red Reduce RefBox ReferenceLineStyle ReferenceMarkers ReferenceMarkerStyle Refine ReflectionMatrix ReflectionTransform Refresh RefreshRate Region RegionBinarize RegionBoundary RegionBounds RegionCentroid RegionDifference RegionDimension RegionDisjoint RegionDistance RegionDistanceFunction RegionEmbeddingDimension RegionEqual RegionFunction RegionImage RegionIntersection RegionMeasure RegionMember RegionMemberFunction RegionMoment RegionNearest RegionNearestFunction RegionPlot RegionPlot3D RegionProduct RegionQ RegionResize RegionSize RegionSymmetricDifference RegionUnion RegionWithin RegisterExternalEvaluator RegularExpression Regularization RegularlySampledQ RegularPolygon ReIm ReImLabels ReImPlot ReImStyle Reinstall RelationalDatabase RelationGraph Release ReleaseHold ReliabilityDistribution ReliefImage ReliefPlot RemoteAuthorizationCaching RemoteConnect RemoteConnectionObject RemoteFile RemoteRun RemoteRunProcess Remove RemoveAlphaChannel RemoveAsynchronousTask RemoveAudioStream RemoveBackground RemoveChannelListener RemoveChannelSubscribers Removed RemoveDiacritics RemoveInputStreamMethod RemoveOutputStreamMethod RemoveProperty RemoveScheduledTask RemoveUsers RenameDirectory RenameFile RenderAll RenderingOptions RenewalProcess RenkoChart RepairMesh Repeated RepeatedNull RepeatedString RepeatedTiming RepeatingElement Replace ReplaceAll ReplaceHeldPart ReplaceImageValue ReplaceList ReplacePart ReplacePixelValue ReplaceRepeated ReplicateLayer RequiredPhysicalQuantities Resampling ResamplingAlgorithmData ResamplingMethod Rescale RescalingTransform ResetDirectory ResetMenusPacket ResetScheduledTask ReshapeLayer Residue ResizeLayer Resolve ResourceAcquire ResourceData ResourceFunction ResourceObject ResourceRegister ResourceRemove ResourceSearch ResourceSubmissionObject ResourceSubmit ResourceSystemBase ResourceUpdate ResponseForm Rest RestartInterval Restricted Resultant ResumePacket Return ReturnEntersInput ReturnExpressionPacket ReturnInputFormPacket ReturnPacket ReturnReceiptFunction ReturnTextPacket Reverse ReverseBiorthogonalSplineWavelet ReverseElement ReverseEquilibrium ReverseGraph ReverseSort ReverseSortBy ReverseUpEquilibrium RevolutionAxis RevolutionPlot3D RGBColor RiccatiSolve RiceDistribution RidgeFilter RiemannR RiemannSiegelTheta RiemannSiegelZ RiemannXi Riffle Right RightArrow RightArrowBar RightArrowLeftArrow RightComposition RightCosetRepresentative RightDownTeeVector RightDownVector RightDownVectorBar RightTee RightTeeArrow RightTeeVector RightTriangle RightTriangleBar RightTriangleEqual RightUpDownVector RightUpTeeVector RightUpVector RightUpVectorBar RightVector RightVectorBar RiskAchievementImportance RiskReductionImportance RogersTanimotoDissimilarity RollPitchYawAngles RollPitchYawMatrix RomanNumeral Root RootApproximant RootIntervals RootLocusPlot RootMeanSquare RootOfUnityQ RootReduce Roots RootSum Rotate RotateLabel RotateLeft RotateRight RotationAction RotationBox RotationBoxOptions RotationMatrix RotationTransform Round RoundImplies RoundingRadius Row RowAlignments RowBackgrounds RowBox RowHeights RowLines RowMinHeight RowReduce RowsEqual RowSpacings RSolve RSolveValue RudinShapiro RudvalisGroupRu Rule RuleCondition RuleDelayed RuleForm RulePlot RulerUnits Run RunProcess RunScheduledTask RunThrough RuntimeAttributes RuntimeOptions RussellRaoDissimilarity"+"SameQ SameTest SampledEntityClass SampleDepth SampledSoundFunction SampledSoundList SampleRate SamplingPeriod SARIMAProcess SARMAProcess SASTriangle SatelliteData SatisfiabilityCount SatisfiabilityInstances SatisfiableQ Saturday Save Saveable SaveAutoDelete SaveConnection SaveDefinitions SavitzkyGolayMatrix SawtoothWave Scale Scaled ScaleDivisions ScaledMousePosition ScaleOrigin ScalePadding ScaleRanges ScaleRangeStyle ScalingFunctions ScalingMatrix ScalingTransform Scan ScheduledTask ScheduledTaskActiveQ ScheduledTaskInformation ScheduledTaskInformationData ScheduledTaskObject ScheduledTasks SchurDecomposition ScientificForm ScientificNotationThreshold ScorerGi ScorerGiPrime ScorerHi ScorerHiPrime ScreenRectangle ScreenStyleEnvironment ScriptBaselineShifts ScriptForm ScriptLevel ScriptMinSize ScriptRules ScriptSizeMultipliers Scrollbars ScrollingOptions ScrollPosition SearchAdjustment SearchIndexObject SearchIndices SearchQueryString SearchResultObject Sec Sech SechDistribution SecondOrderConeOptimization SectionGrouping SectorChart SectorChart3D SectorOrigin SectorSpacing SecuredAuthenticationKey SecuredAuthenticationKeys SeedRandom Select Selectable SelectComponents SelectedCells SelectedNotebook SelectFirst Selection SelectionAnimate SelectionCell SelectionCellCreateCell SelectionCellDefaultStyle SelectionCellParentStyle SelectionCreateCell SelectionDebuggerTag SelectionDuplicateCell SelectionEvaluate SelectionEvaluateCreateCell SelectionMove SelectionPlaceholder SelectionSetStyle SelectWithContents SelfLoops SelfLoopStyle SemanticImport SemanticImportString SemanticInterpretation SemialgebraicComponentInstances SemidefiniteOptimization SendMail SendMessage Sequence SequenceAlignment SequenceAttentionLayer SequenceCases SequenceCount SequenceFold SequenceFoldList SequenceForm SequenceHold SequenceLastLayer SequenceMostLayer SequencePosition SequencePredict SequencePredictorFunction SequenceReplace SequenceRestLayer SequenceReverseLayer SequenceSplit Series SeriesCoefficient SeriesData ServiceConnect ServiceDisconnect ServiceExecute ServiceObject ServiceRequest ServiceResponse ServiceSubmit SessionSubmit SessionTime Set SetAccuracy SetAlphaChannel SetAttributes Setbacks SetBoxFormNamesPacket SetCloudDirectory SetCookies SetDelayed SetDirectory SetEnvironment SetEvaluationNotebook SetFileDate SetFileLoadingContext SetNotebookStatusLine SetOptions SetOptionsPacket SetPermissions SetPrecision SetProperty SetSecuredAuthenticationKey SetSelectedNotebook SetSharedFunction SetSharedVariable SetSpeechParametersPacket SetStreamPosition SetSystemModel SetSystemOptions Setter SetterBar SetterBox SetterBoxOptions Setting SetUsers SetValue Shading Shallow ShannonWavelet ShapiroWilkTest Share SharingList Sharpen ShearingMatrix ShearingTransform ShellRegion ShenCastanMatrix ShiftedGompertzDistribution ShiftRegisterSequence Short ShortDownArrow Shortest ShortestMatch ShortestPathFunction ShortLeftArrow ShortRightArrow ShortTimeFourier ShortTimeFourierData ShortUpArrow Show ShowAutoConvert ShowAutoSpellCheck ShowAutoStyles ShowCellBracket ShowCellLabel ShowCellTags ShowClosedCellArea ShowCodeAssist ShowContents ShowControls ShowCursorTracker ShowGroupOpenCloseIcon ShowGroupOpener ShowInvisibleCharacters ShowPageBreaks ShowPredictiveInterface ShowSelection ShowShortBoxForm ShowSpecialCharacters ShowStringCharacters ShowSyntaxStyles ShrinkingDelay ShrinkWrapBoundingBox SiderealTime SiegelTheta SiegelTukeyTest SierpinskiCurve SierpinskiMesh Sign Signature SignedRankTest SignedRegionDistance SignificanceLevel SignPadding SignTest SimilarityRules SimpleGraph SimpleGraphQ SimplePolygonQ SimplePolyhedronQ Simplex Simplify Sin Sinc SinghMaddalaDistribution SingleEvaluation SingleLetterItalics SingleLetterStyle SingularValueDecomposition SingularValueList SingularValuePlot SingularValues Sinh SinhIntegral SinIntegral SixJSymbol Skeleton SkeletonTransform SkellamDistribution Skewness SkewNormalDistribution SkinStyle Skip SliceContourPlot3D SliceDensityPlot3D SliceDistribution SliceVectorPlot3D Slider Slider2D Slider2DBox Slider2DBoxOptions SliderBox SliderBoxOptions SlideView Slot SlotSequence Small SmallCircle Smaller SmithDecomposition SmithDelayCompensator SmithWatermanSimilarity SmoothDensityHistogram SmoothHistogram SmoothHistogram3D SmoothKernelDistribution SnDispersion Snippet SnubPolyhedron SocialMediaData Socket SocketConnect SocketListen SocketListener SocketObject SocketOpen SocketReadMessage SocketReadyQ Sockets SocketWaitAll SocketWaitNext SoftmaxLayer SokalSneathDissimilarity SolarEclipse SolarSystemFeatureData SolidAngle SolidData SolidRegionQ Solve SolveAlways SolveDelayed Sort SortBy SortedBy SortedEntityClass Sound SoundAndGraphics SoundNote SoundVolume SourceLink Sow Space SpaceCurveData SpaceForm Spacer Spacings Span SpanAdjustments SpanCharacterRounding SpanFromAbove SpanFromBoth SpanFromLeft SpanLineThickness SpanMaxSize SpanMinSize SpanningCharacters SpanSymmetric SparseArray SpatialGraphDistribution SpatialMedian SpatialTransformationLayer Speak SpeakTextPacket SpearmanRankTest SpearmanRho SpeciesData SpecificityGoal SpectralLineData Spectrogram SpectrogramArray Specularity SpeechRecognize SpeechSynthesize SpellingCorrection SpellingCorrectionList SpellingDictionaries SpellingDictionariesPath SpellingOptions SpellingSuggestionsPacket Sphere SphereBox SpherePoints SphericalBesselJ SphericalBesselY SphericalHankelH1 SphericalHankelH2 SphericalHarmonicY SphericalPlot3D SphericalRegion SphericalShell SpheroidalEigenvalue SpheroidalJoiningFactor SpheroidalPS SpheroidalPSPrime SpheroidalQS SpheroidalQSPrime SpheroidalRadialFactor SpheroidalS1 SpheroidalS1Prime SpheroidalS2 SpheroidalS2Prime Splice SplicedDistribution SplineClosed SplineDegree SplineKnots SplineWeights Split SplitBy SpokenString Sqrt SqrtBox SqrtBoxOptions Square SquaredEuclideanDistance SquareFreeQ SquareIntersection SquareMatrixQ SquareRepeatingElement SquaresR SquareSubset SquareSubsetEqual SquareSuperset SquareSupersetEqual SquareUnion SquareWave SSSTriangle StabilityMargins StabilityMarginsStyle StableDistribution Stack StackBegin StackComplete StackedDateListPlot StackedListPlot StackInhibit StadiumShape StandardAtmosphereData StandardDeviation StandardDeviationFilter StandardForm Standardize Standardized StandardOceanData StandbyDistribution Star StarClusterData StarData StarGraph StartAsynchronousTask StartExternalSession StartingStepSize StartOfLine StartOfString StartProcess StartScheduledTask StartupSound StartWebSession StateDimensions StateFeedbackGains StateOutputEstimator StateResponse StateSpaceModel StateSpaceRealization StateSpaceTransform StateTransformationLinearize StationaryDistribution StationaryWaveletPacketTransform StationaryWaveletTransform StatusArea StatusCentrality StepMonitor StereochemistryElements StieltjesGamma StirlingS1 StirlingS2 StopAsynchronousTask StoppingPowerData StopScheduledTask StrataVariables StratonovichProcess StreamColorFunction StreamColorFunctionScaling StreamDensityPlot StreamMarkers StreamPlot StreamPoints StreamPosition Streams StreamScale StreamStyle String StringBreak StringByteCount StringCases StringContainsQ StringCount StringDelete StringDrop StringEndsQ StringExpression StringExtract StringForm StringFormat StringFreeQ StringInsert StringJoin StringLength StringMatchQ StringPadLeft StringPadRight StringPart StringPartition StringPosition StringQ StringRepeat StringReplace StringReplaceList StringReplacePart StringReverse StringRiffle StringRotateLeft StringRotateRight StringSkeleton StringSplit StringStartsQ StringTake StringTemplate StringToByteArray StringToStream StringTrim StripBoxes StripOnInput StripWrapperBoxes StrokeForm StructuralImportance StructuredArray StructuredSelection StruveH StruveL Stub StudentTDistribution Style StyleBox StyleBoxAutoDelete StyleData StyleDefinitions StyleForm StyleHints StyleKeyMapping StyleMenuListing StyleNameDialogSettings StyleNames StylePrint StyleSheetPath Subdivide Subfactorial Subgraph SubMinus SubPlus SubresultantPolynomialRemainders SubresultantPolynomials Subresultants Subscript SubscriptBox SubscriptBoxOptions Subscripted Subsequences Subset SubsetEqual SubsetMap SubsetQ Subsets SubStar SubstitutionSystem Subsuperscript SubsuperscriptBox SubsuperscriptBoxOptions Subtract SubtractFrom SubtractSides SubValues Succeeds SucceedsEqual SucceedsSlantEqual SucceedsTilde Success SuchThat Sum SumConvergence SummationLayer Sunday SunPosition Sunrise Sunset SuperDagger SuperMinus SupernovaData SuperPlus Superscript SuperscriptBox SuperscriptBoxOptions Superset SupersetEqual SuperStar Surd SurdForm SurfaceArea SurfaceColor SurfaceData SurfaceGraphics SurvivalDistribution SurvivalFunction SurvivalModel SurvivalModelFit SuspendPacket SuzukiDistribution SuzukiGroupSuz SwatchLegend Switch Symbol SymbolName SymletWavelet Symmetric SymmetricGroup SymmetricKey SymmetricMatrixQ SymmetricPolynomial SymmetricReduction Symmetrize SymmetrizedArray SymmetrizedArrayRules SymmetrizedDependentComponents SymmetrizedIndependentComponents SymmetrizedReplacePart SynchronousInitialization SynchronousUpdating Synonyms Syntax SyntaxForm SyntaxInformation SyntaxLength SyntaxPacket SyntaxQ SynthesizeMissingValues SystemDialogInput SystemException SystemGet SystemHelpPath SystemInformation SystemInformationData SystemInstall SystemModel SystemModeler SystemModelExamples SystemModelLinearize SystemModelParametricSimulate SystemModelPlot SystemModelProgressReporting SystemModelReliability SystemModels SystemModelSimulate SystemModelSimulateSensitivity SystemModelSimulationData SystemOpen SystemOptions SystemProcessData SystemProcesses SystemsConnectionsModel SystemsModelDelay SystemsModelDelayApproximate SystemsModelDelete SystemsModelDimensions SystemsModelExtract SystemsModelFeedbackConnect SystemsModelLabels SystemsModelLinearity SystemsModelMerge SystemsModelOrder SystemsModelParallelConnect SystemsModelSeriesConnect SystemsModelStateFeedbackConnect SystemsModelVectorRelativeOrders SystemStub SystemTest"+"Tab TabFilling Table TableAlignments TableDepth TableDirections TableForm TableHeadings TableSpacing TableView TableViewBox TableViewBoxBackground TableViewBoxOptions TabSpacings TabView TabViewBox TabViewBoxOptions TagBox TagBoxNote TagBoxOptions TaggingRules TagSet TagSetDelayed TagStyle TagUnset Take TakeDrop TakeLargest TakeLargestBy TakeList TakeSmallest TakeSmallestBy TakeWhile Tally Tan Tanh TargetDevice TargetFunctions TargetSystem TargetUnits TaskAbort TaskExecute TaskObject TaskRemove TaskResume Tasks TaskSuspend TaskWait TautologyQ TelegraphProcess TemplateApply TemplateArgBox TemplateBox TemplateBoxOptions TemplateEvaluate TemplateExpression TemplateIf TemplateObject TemplateSequence TemplateSlot TemplateSlotSequence TemplateUnevaluated TemplateVerbatim TemplateWith TemporalData TemporalRegularity Temporary TemporaryVariable TensorContract TensorDimensions TensorExpand TensorProduct TensorQ TensorRank TensorReduce TensorSymmetry TensorTranspose TensorWedge TestID TestReport TestReportObject TestResultObject Tetrahedron TetrahedronBox TetrahedronBoxOptions TeXForm TeXSave Text Text3DBox Text3DBoxOptions TextAlignment TextBand TextBoundingBox TextBox TextCases TextCell TextClipboardType TextContents TextData TextElement TextForm TextGrid TextJustification TextLine TextPacket TextParagraph TextPosition TextRecognize TextSearch TextSearchReport TextSentences TextString TextStructure TextStyle TextTranslation Texture TextureCoordinateFunction TextureCoordinateScaling TextWords Therefore ThermodynamicData ThermometerGauge Thick Thickness Thin Thinning ThisLink ThompsonGroupTh Thread ThreadingLayer ThreeJSymbol Threshold Through Throw ThueMorse Thumbnail Thursday Ticks TicksStyle TideData Tilde TildeEqual TildeFullEqual TildeTilde TimeConstrained TimeConstraint TimeDirection TimeFormat TimeGoal TimelinePlot TimeObject TimeObjectQ Times TimesBy TimeSeries TimeSeriesAggregate TimeSeriesForecast TimeSeriesInsert TimeSeriesInvertibility TimeSeriesMap TimeSeriesMapThread TimeSeriesModel TimeSeriesModelFit TimeSeriesResample TimeSeriesRescale TimeSeriesShift TimeSeriesThread TimeSeriesWindow TimeUsed TimeValue TimeWarpingCorrespondence TimeWarpingDistance TimeZone TimeZoneConvert TimeZoneOffset Timing Tiny TitleGrouping TitsGroupT ToBoxes ToCharacterCode ToColor ToContinuousTimeModel ToDate Today ToDiscreteTimeModel ToEntity ToeplitzMatrix ToExpression ToFileName Together Toggle ToggleFalse Toggler TogglerBar TogglerBox TogglerBoxOptions ToHeldExpression ToInvertibleTimeSeries TokenWords Tolerance ToLowerCase Tomorrow ToNumberField TooBig Tooltip TooltipBox TooltipBoxOptions TooltipDelay TooltipStyle Top TopHatTransform ToPolarCoordinates TopologicalSort ToRadicals ToRules ToSphericalCoordinates ToString Total TotalHeight TotalLayer TotalVariationFilter TotalWidth TouchPosition TouchscreenAutoZoom TouchscreenControlPlacement ToUpperCase Tr Trace TraceAbove TraceAction TraceBackward TraceDepth TraceDialog TraceForward TraceInternal TraceLevel TraceOff TraceOn TraceOriginal TracePrint TraceScan TrackedSymbols TrackingFunction TracyWidomDistribution TradingChart TraditionalForm TraditionalFunctionNotation TraditionalNotation TraditionalOrder TrainingProgressCheckpointing TrainingProgressFunction TrainingProgressMeasurements TrainingProgressReporting TrainingStoppingCriterion TransferFunctionCancel TransferFunctionExpand TransferFunctionFactor TransferFunctionModel TransferFunctionPoles TransferFunctionTransform TransferFunctionZeros TransformationClass TransformationFunction TransformationFunctions TransformationMatrix TransformedDistribution TransformedField TransformedProcess TransformedRegion TransitionDirection TransitionDuration TransitionEffect TransitiveClosureGraph TransitiveReductionGraph Translate TranslationOptions TranslationTransform Transliterate Transparent TransparentColor Transpose TransposeLayer TrapSelection TravelDirections TravelDirectionsData TravelDistance TravelDistanceList TravelMethod TravelTime TreeForm TreeGraph TreeGraphQ TreePlot TrendStyle Triangle TriangleCenter TriangleConstruct TriangleMeasurement TriangleWave TriangularDistribution TriangulateMesh Trig TrigExpand TrigFactor TrigFactorList Trigger TrigReduce TrigToExp TrimmedMean TrimmedVariance TropicalStormData True TrueQ TruncatedDistribution TruncatedPolyhedron TsallisQExponentialDistribution TsallisQGaussianDistribution TTest Tube TubeBezierCurveBox TubeBezierCurveBoxOptions TubeBox TubeBoxOptions TubeBSplineCurveBox TubeBSplineCurveBoxOptions Tuesday TukeyLambdaDistribution TukeyWindow TunnelData Tuples TuranGraph TuringMachine TuttePolynomial TwoWayRule Typed TypeSpecifier"+"UnateQ Uncompress UnconstrainedParameters Undefined UnderBar Underflow Underlined Underoverscript UnderoverscriptBox UnderoverscriptBoxOptions Underscript UnderscriptBox UnderscriptBoxOptions UnderseaFeatureData UndirectedEdge UndirectedGraph UndirectedGraphQ UndoOptions UndoTrackedVariables Unequal UnequalTo Unevaluated UniformDistribution UniformGraphDistribution UniformPolyhedron UniformSumDistribution Uninstall Union UnionPlus Unique UnitaryMatrixQ UnitBox UnitConvert UnitDimensions Unitize UnitRootTest UnitSimplify UnitStep UnitSystem UnitTriangle UnitVector UnitVectorLayer UnityDimensions UniverseModelData UniversityData UnixTime Unprotect UnregisterExternalEvaluator UnsameQ UnsavedVariables Unset UnsetShared UntrackedVariables Up UpArrow UpArrowBar UpArrowDownArrow Update UpdateDynamicObjects UpdateDynamicObjectsSynchronous UpdateInterval UpdateSearchIndex UpDownArrow UpEquilibrium UpperCaseQ UpperLeftArrow UpperRightArrow UpperTriangularize UpperTriangularMatrixQ Upsample UpSet UpSetDelayed UpTee UpTeeArrow UpTo UpValues URL URLBuild URLDecode URLDispatcher URLDownload URLDownloadSubmit URLEncode URLExecute URLExpand URLFetch URLFetchAsynchronous URLParse URLQueryDecode URLQueryEncode URLRead URLResponseTime URLSave URLSaveAsynchronous URLShorten URLSubmit UseGraphicsRange UserDefinedWavelet Using UsingFrontEnd UtilityFunction"+"V2Get ValenceErrorHandling ValidationLength ValidationSet Value ValueBox ValueBoxOptions ValueDimensions ValueForm ValuePreprocessingFunction ValueQ Values ValuesData Variables Variance VarianceEquivalenceTest VarianceEstimatorFunction VarianceGammaDistribution VarianceTest VectorAngle VectorAround VectorColorFunction VectorColorFunctionScaling VectorDensityPlot VectorGlyphData VectorGreater VectorGreaterEqual VectorLess VectorLessEqual VectorMarkers VectorPlot VectorPlot3D VectorPoints VectorQ Vectors VectorScale VectorStyle Vee Verbatim Verbose VerboseConvertToPostScriptPacket VerificationTest VerifyConvergence VerifyDerivedKey VerifyDigitalSignature VerifyInterpretation VerifySecurityCertificates VerifySolutions VerifyTestAssumptions Version VersionNumber VertexAdd VertexCapacity VertexColors VertexComponent VertexConnectivity VertexContract VertexCoordinateRules VertexCoordinates VertexCorrelationSimilarity VertexCosineSimilarity VertexCount VertexCoverQ VertexDataCoordinates VertexDegree VertexDelete VertexDiceSimilarity VertexEccentricity VertexInComponent VertexInDegree VertexIndex VertexJaccardSimilarity VertexLabeling VertexLabels VertexLabelStyle VertexList VertexNormals VertexOutComponent VertexOutDegree VertexQ VertexRenderingFunction VertexReplace VertexShape VertexShapeFunction VertexSize VertexStyle VertexTextureCoordinates VertexWeight VertexWeightedGraphQ Vertical VerticalBar VerticalForm VerticalGauge VerticalSeparator VerticalSlider VerticalTilde ViewAngle ViewCenter ViewMatrix ViewPoint ViewPointSelectorSettings ViewPort ViewProjection ViewRange ViewVector ViewVertical VirtualGroupData Visible VisibleCell VoiceStyleData VoigtDistribution VolcanoData Volume VonMisesDistribution VoronoiMesh"+"WaitAll WaitAsynchronousTask WaitNext WaitUntil WakebyDistribution WalleniusHypergeometricDistribution WaringYuleDistribution WarpingCorrespondence WarpingDistance WatershedComponents WatsonUSquareTest WattsStrogatzGraphDistribution WaveletBestBasis WaveletFilterCoefficients WaveletImagePlot WaveletListPlot WaveletMapIndexed WaveletMatrixPlot WaveletPhi WaveletPsi WaveletScale WaveletScalogram WaveletThreshold WeaklyConnectedComponents WeaklyConnectedGraphComponents WeaklyConnectedGraphQ WeakStationarity WeatherData WeatherForecastData WebAudioSearch WebElementObject WeberE WebExecute WebImage WebImageSearch WebSearch WebSessionObject WebSessions WebWindowObject Wedge Wednesday WeibullDistribution WeierstrassE1 WeierstrassE2 WeierstrassE3 WeierstrassEta1 WeierstrassEta2 WeierstrassEta3 WeierstrassHalfPeriods WeierstrassHalfPeriodW1 WeierstrassHalfPeriodW2 WeierstrassHalfPeriodW3 WeierstrassInvariantG2 WeierstrassInvariantG3 WeierstrassInvariants WeierstrassP WeierstrassPPrime WeierstrassSigma WeierstrassZeta WeightedAdjacencyGraph WeightedAdjacencyMatrix WeightedData WeightedGraphQ Weights WelchWindow WheelGraph WhenEvent Which While White WhiteNoiseProcess WhitePoint Whitespace WhitespaceCharacter WhittakerM WhittakerW WienerFilter WienerProcess WignerD WignerSemicircleDistribution WikipediaData WikipediaSearch WilksW WilksWTest WindDirectionData WindingCount WindingPolygon WindowClickSelect WindowElements WindowFloating WindowFrame WindowFrameElements WindowMargins WindowMovable WindowOpacity WindowPersistentStyles WindowSelected WindowSize WindowStatusArea WindowTitle WindowToolbars WindowWidth WindSpeedData WindVectorData WinsorizedMean WinsorizedVariance WishartMatrixDistribution With WolframAlpha WolframAlphaDate WolframAlphaQuantity WolframAlphaResult WolframLanguageData Word WordBoundary WordCharacter WordCloud WordCount WordCounts WordData WordDefinition WordFrequency WordFrequencyData WordList WordOrientation WordSearch WordSelectionFunction WordSeparators WordSpacings WordStem WordTranslation WorkingPrecision WrapAround Write WriteLine WriteString Wronskian"+"XMLElement XMLObject XMLTemplate Xnor Xor XYZColor"+"Yellow Yesterday YuleDissimilarity"+"ZernikeR ZeroSymmetric ZeroTest ZeroWidthTimes Zeta ZetaZero ZIPCodeData ZipfDistribution ZoomCenter ZoomFactor ZTest ZTransform"+"$Aborted $ActivationGroupID $ActivationKey $ActivationUserRegistered $AddOnsDirectory $AllowExternalChannelFunctions $AssertFunction $Assumptions $AsynchronousTask $AudioInputDevices $AudioOutputDevices $BaseDirectory $BatchInput $BatchOutput $BlockchainBase $BoxForms $ByteOrdering $CacheBaseDirectory $Canceled $ChannelBase $CharacterEncoding $CharacterEncodings $CloudBase $CloudConnected $CloudCreditsAvailable $CloudEvaluation $CloudExpressionBase $CloudObjectNameFormat $CloudObjectURLType $CloudRootDirectory $CloudSymbolBase $CloudUserID $CloudUserUUID $CloudVersion $CloudVersionNumber $CloudWolframEngineVersionNumber $CommandLine $CompilationTarget $ConditionHold $ConfiguredKernels $Context $ContextPath $ControlActiveSetting $Cookies $CookieStore $CreationDate $CurrentLink $CurrentTask $CurrentWebSession $DateStringFormat $DefaultAudioInputDevice $DefaultAudioOutputDevice $DefaultFont $DefaultFrontEnd $DefaultImagingDevice $DefaultLocalBase $DefaultMailbox $DefaultNetworkInterface $DefaultPath $Display $DisplayFunction $DistributedContexts $DynamicEvaluation $Echo $EmbedCodeEnvironments $EmbeddableServices $EntityStores $Epilog $EvaluationCloudBase $EvaluationCloudObject $EvaluationEnvironment $ExportFormats $Failed $FinancialDataSource $FontFamilies $FormatType $FrontEnd $FrontEndSession $GeoEntityTypes $GeoLocation $GeoLocationCity $GeoLocationCountry $GeoLocationPrecision $GeoLocationSource $HistoryLength $HomeDirectory $HTMLExportRules $HTTPCookies $HTTPRequest $IgnoreEOF $ImageFormattingWidth $ImagingDevice $ImagingDevices $ImportFormats $IncomingMailSettings $InitialDirectory $Initialization $InitializationContexts $Input $InputFileName $InputStreamMethods $Inspector $InstallationDate $InstallationDirectory $InterfaceEnvironment $InterpreterTypes $IterationLimit $KernelCount $KernelID $Language $LaunchDirectory $LibraryPath $LicenseExpirationDate $LicenseID $LicenseProcesses $LicenseServer $LicenseSubprocesses $LicenseType $Line $Linked $LinkSupported $LoadedFiles $LocalBase $LocalSymbolBase $MachineAddresses $MachineDomain $MachineDomains $MachineEpsilon $MachineID $MachineName $MachinePrecision $MachineType $MaxExtraPrecision $MaxLicenseProcesses $MaxLicenseSubprocesses $MaxMachineNumber $MaxNumber $MaxPiecewiseCases $MaxPrecision $MaxRootDegree $MessageGroups $MessageList $MessagePrePrint $Messages $MinMachineNumber $MinNumber $MinorReleaseNumber $MinPrecision $MobilePhone $ModuleNumber $NetworkConnected $NetworkInterfaces $NetworkLicense $NewMessage $NewSymbol $Notebooks $NoValue $NumberMarks $Off $OperatingSystem $Output $OutputForms $OutputSizeLimit $OutputStreamMethods $Packages $ParentLink $ParentProcessID $PasswordFile $PatchLevelID $Path $PathnameSeparator $PerformanceGoal $Permissions $PermissionsGroupBase $PersistenceBase $PersistencePath $PipeSupported $PlotTheme $Post $Pre $PreferencesDirectory $PreInitialization $PrePrint $PreRead $PrintForms $PrintLiteral $Printout3DPreviewer $ProcessID $ProcessorCount $ProcessorType $ProductInformation $ProgramName $PublisherID $RandomState $RecursionLimit $RegisteredDeviceClasses $RegisteredUserName $ReleaseNumber $RequesterAddress $RequesterWolframID $RequesterWolframUUID $ResourceSystemBase $RootDirectory $ScheduledTask $ScriptCommandLine $ScriptInputString $SecuredAuthenticationKeyTokens $ServiceCreditsAvailable $Services $SessionID $SetParentLink $SharedFunctions $SharedVariables $SoundDisplay $SoundDisplayFunction $SourceLink $SSHAuthentication $SummaryBoxDataSizeLimit $SuppressInputFormHeads $SynchronousEvaluation $SyntaxHandler $System $SystemCharacterEncoding $SystemID $SystemMemory $SystemShell $SystemTimeZone $SystemWordLength $TemplatePath $TemporaryDirectory $TemporaryPrefix $TestFileName $TextStyle $TimedOut $TimeUnit $TimeZone $TimeZoneEntity $TopDirectory $TraceOff $TraceOn $TracePattern $TracePostAction $TracePreAction $UnitSystem $Urgent $UserAddOnsDirectory $UserAgentLanguages $UserAgentMachine $UserAgentName $UserAgentOperatingSystem $UserAgentString $UserAgentVersion $UserBaseDirectory $UserDocumentsDirectory $Username $UserName $UserURLBase $Version $VersionNumber $VoiceStyles $WolframID $WolframUUID",contains:[hljs.COMMENT("\\(\\*","\\*\\)",{contains:["self"]}),hljs.QUOTE_STRING_MODE,hljs.C_NUMBER_MODE]}});hljs.registerLanguage("nginx",function(hljs){var VAR={className:"variable",variants:[{begin:/\$\d+/},{begin:/\$\{/,end:/}/},{begin:"[\\$\\@]"+hljs.UNDERSCORE_IDENT_RE}]};var DEFAULT={endsWithParent:true,lexemes:"[a-z/_]+",keywords:{literal:"on off yes no true false none blocked debug info notice warn error crit "+"select break last permanent redirect kqueue rtsig epoll poll /dev/poll"},relevance:0,illegal:"=>",contains:[hljs.HASH_COMMENT_MODE,{className:"string",contains:[hljs.BACKSLASH_ESCAPE,VAR],variants:[{begin:/"/,end:/"/},{begin:/'/,end:/'/}]},{begin:"([a-z]+):/",end:"\\s",endsWithParent:true,excludeEnd:true,contains:[VAR]},{className:"regexp",contains:[hljs.BACKSLASH_ESCAPE,VAR],variants:[{begin:"\\s\\^",end:"\\s|{|;",returnEnd:true},{begin:"~\\*?\\s+",end:"\\s|{|;",returnEnd:true},{begin:"\\*(\\.[a-z\\-]+)+"},{begin:"([a-z\\-]+\\.)+\\*"}]},{className:"number",begin:"\\b\\d{1,3}\\.\\d{1,3}\\.\\d{1,3}\\.\\d{1,3}(:\\d{1,5})?\\b"},{className:"number",begin:"\\b\\d+[kKmMgGdshdwy]*\\b",relevance:0},VAR]};return{aliases:["nginxconf"],contains:[hljs.HASH_COMMENT_MODE,{begin:hljs.UNDERSCORE_IDENT_RE+"\\s+{",returnBegin:true,end:"{",contains:[{className:"section",begin:hljs.UNDERSCORE_IDENT_RE}],relevance:0},{begin:hljs.UNDERSCORE_IDENT_RE+"\\s",end:";|{",returnBegin:true,contains:[{className:"attribute",begin:hljs.UNDERSCORE_IDENT_RE,starts:DEFAULT}],relevance:0}],illegal:"[^\\s\\}]"}});hljs.registerLanguage("n1ql",function(hljs){return{case_insensitive:true,contains:[{beginKeywords:"build create index delete drop explain infer|10 insert merge prepare select update upsert|10",end:/;/,endsWithParent:true,keywords:{keyword:"all alter analyze and any array as asc begin between binary boolean break bucket build by call "+"case cast cluster collate collection commit connect continue correlate cover create database "+"dataset datastore declare decrement delete derived desc describe distinct do drop each element "+"else end every except exclude execute exists explain fetch first flatten for force from "+"function grant group gsi having if ignore ilike in include increment index infer inline inner "+"insert intersect into is join key keys keyspace known last left let letting like limit lsm map "+"mapping matched materialized merge minus namespace nest not number object offset on "+"option or order outer over parse partition password path pool prepare primary private privilege "+"procedure public raw realm reduce rename return returning revoke right role rollback satisfies "+"schema select self semi set show some start statistics string system then to transaction trigger "+"truncate under union unique unknown unnest unset update upsert use user using validate value "+"valued values via view when where while with within work xor",literal:"true false null missing|5",built_in:"array_agg array_append array_concat array_contains array_count array_distinct array_ifnull array_length "+"array_max array_min array_position array_prepend array_put array_range array_remove array_repeat array_replace "+"array_reverse array_sort array_sum avg count max min sum greatest least ifmissing ifmissingornull ifnull "+"missingif nullif ifinf ifnan ifnanorinf naninf neginfif posinfif clock_millis clock_str date_add_millis "+"date_add_str date_diff_millis date_diff_str date_part_millis date_part_str date_trunc_millis date_trunc_str "+"duration_to_str millis str_to_millis millis_to_str millis_to_utc millis_to_zone_name now_millis now_str "+"str_to_duration str_to_utc str_to_zone_name decode_json encode_json encoded_size poly_length base64 base64_encode "+"base64_decode meta uuid abs acos asin atan atan2 ceil cos degrees e exp ln log floor pi power radians random "+"round sign sin sqrt tan trunc object_length object_names object_pairs object_inner_pairs object_values "+"object_inner_values object_add object_put object_remove object_unwrap regexp_contains regexp_like regexp_position "+"regexp_replace contains initcap length lower ltrim position repeat replace rtrim split substr title trim upper "+"isarray isatom isboolean isnumber isobject isstring type toarray toatom toboolean tonumber toobject tostring"},contains:[{className:"string",begin:"'",end:"'",contains:[hljs.BACKSLASH_ESCAPE],relevance:0},{className:"string",begin:'"',end:'"',contains:[hljs.BACKSLASH_ESCAPE],relevance:0},{className:"symbol",begin:"`",end:"`",contains:[hljs.BACKSLASH_ESCAPE],relevance:2},hljs.C_NUMBER_MODE,hljs.C_BLOCK_COMMENT_MODE]},hljs.C_BLOCK_COMMENT_MODE]}});hljs.registerLanguage("pf",function(hljs){var MACRO={className:"variable",begin:/\$[\w\d#@][\w\d_]*/};var TABLE={className:"variable",begin:/<(?!\/)/,end:/>/};var QUOTE_STRING={className:"string",begin:/"/,end:/"/};return{aliases:["pf.conf"],lexemes:/[a-z0-9_<>-]+/,keywords:{built_in:"block match pass load anchor|5 antispoof|10 set table",keyword:"in out log quick on rdomain inet inet6 proto from port os to route"+"allow-opts divert-packet divert-reply divert-to flags group icmp-type"+"icmp6-type label once probability recieved-on rtable prio queue"+"tos tag tagged user keep fragment for os drop"+"af-to|10 binat-to|10 nat-to|10 rdr-to|10 bitmask least-stats random round-robin"+"source-hash static-port"+"dup-to reply-to route-to"+"parent bandwidth default min max qlimit"+"block-policy debug fingerprints hostid limit loginterface optimization"+"reassemble ruleset-optimization basic none profile skip state-defaults"+"state-policy timeout"+"const counters persist"+"no modulate synproxy state|5 floating if-bound no-sync pflow|10 sloppy"+"source-track global rule max-src-nodes max-src-states max-src-conn"+"max-src-conn-rate overload flush"+"scrub|5 max-mss min-ttl no-df|10 random-id",literal:"all any no-route self urpf-failed egress|5 unknown"},contains:[hljs.HASH_COMMENT_MODE,hljs.NUMBER_MODE,hljs.QUOTE_STRING_MODE,MACRO,TABLE]}});hljs.registerLanguage("llvm",function(hljs){var identifier="([-a-zA-Z$._][\\w\\-$.]*)";return{keywords:"begin end true false declare define global "+"constant private linker_private internal "+"available_externally linkonce linkonce_odr weak "+"weak_odr appending dllimport dllexport common "+"default hidden protected extern_weak external "+"thread_local zeroinitializer undef null to tail "+"target triple datalayout volatile nuw nsw nnan "+"ninf nsz arcp fast exact inbounds align "+"addrspace section alias module asm sideeffect "+"gc dbg linker_private_weak attributes blockaddress "+"initialexec localdynamic localexec prefix unnamed_addr "+"ccc fastcc coldcc x86_stdcallcc x86_fastcallcc "+"arm_apcscc arm_aapcscc arm_aapcs_vfpcc ptx_device "+"ptx_kernel intel_ocl_bicc msp430_intrcc spir_func "+"spir_kernel x86_64_sysvcc x86_64_win64cc x86_thiscallcc "+"cc c signext zeroext inreg sret nounwind "+"noreturn noalias nocapture byval nest readnone "+"readonly inlinehint noinline alwaysinline optsize ssp "+"sspreq noredzone noimplicitfloat naked builtin cold "+"nobuiltin noduplicate nonlazybind optnone returns_twice "+"sanitize_address sanitize_memory sanitize_thread sspstrong "+"uwtable returned type opaque eq ne slt sgt "+"sle sge ult ugt ule uge oeq one olt ogt "+"ole oge ord uno ueq une x acq_rel acquire "+"alignstack atomic catch cleanup filter inteldialect "+"max min monotonic nand personality release seq_cst "+"singlethread umax umin unordered xchg add fadd "+"sub fsub mul fmul udiv sdiv fdiv urem srem "+"frem shl lshr ashr and or xor icmp fcmp "+"phi call trunc zext sext fptrunc fpext uitofp "+"sitofp fptoui fptosi inttoptr ptrtoint bitcast "+"addrspacecast select va_arg ret br switch invoke "+"unwind unreachable indirectbr landingpad resume "+"malloc alloca free load store getelementptr "+"extractelement insertelement shufflevector getresult "+"extractvalue insertvalue atomicrmw cmpxchg fence "+"argmemonly double",contains:[{className:"keyword",begin:"i\\d+"},hljs.COMMENT(";","\\n",{relevance:0}),hljs.QUOTE_STRING_MODE,{className:"string",variants:[{begin:'"',end:'[^\\\\]"'}],relevance:0},{className:"title",variants:[{begin:"@"+identifier},{begin:"@\\d+"},{begin:"!"+identifier},{begin:"!\\d+"+identifier}]},{className:"symbol",variants:[{begin:"%"+identifier},{begin:"%\\d+"},{begin:"#\\d+"}]},{className:"number",variants:[{begin:"0[xX][a-fA-F0-9]+"},{begin:"-?\\d+(?:[.]\\d+)?(?:[eE][-+]?\\d+(?:[.]\\d+)?)?"}],relevance:0}]}});hljs.registerLanguage("avrasm",function(hljs){return{case_insensitive:true,lexemes:"\\.?"+hljs.IDENT_RE,keywords:{keyword:"adc add adiw and andi asr bclr bld brbc brbs brcc brcs break breq brge brhc brhs "+"brid brie brlo brlt brmi brne brpl brsh brtc brts brvc brvs bset bst call cbi cbr "+"clc clh cli cln clr cls clt clv clz com cp cpc cpi cpse dec eicall eijmp elpm eor "+"fmul fmuls fmulsu icall ijmp in inc jmp ld ldd ldi lds lpm lsl lsr mov movw mul "+"muls mulsu neg nop or ori out pop push rcall ret reti rjmp rol ror sbc sbr sbrc sbrs "+"sec seh sbi sbci sbic sbis sbiw sei sen ser ses set sev sez sleep spm st std sts sub "+"subi swap tst wdr",built_in:"r0 r1 r2 r3 r4 r5 r6 r7 r8 r9 r10 r11 r12 r13 r14 r15 r16 r17 r18 r19 r20 r21 r22 "+"r23 r24 r25 r26 r27 r28 r29 r30 r31 x|0 xh xl y|0 yh yl z|0 zh zl "+"ucsr1c udr1 ucsr1a ucsr1b ubrr1l ubrr1h ucsr0c ubrr0h tccr3c tccr3a tccr3b tcnt3h "+"tcnt3l ocr3ah ocr3al ocr3bh ocr3bl ocr3ch ocr3cl icr3h icr3l etimsk etifr tccr1c "+"ocr1ch ocr1cl twcr twdr twar twsr twbr osccal xmcra xmcrb eicra spmcsr spmcr portg "+"ddrg ping portf ddrf sreg sph spl xdiv rampz eicrb eimsk gimsk gicr eifr gifr timsk "+"tifr mcucr mcucsr tccr0 tcnt0 ocr0 assr tccr1a tccr1b tcnt1h tcnt1l ocr1ah ocr1al "+"ocr1bh ocr1bl icr1h icr1l tccr2 tcnt2 ocr2 ocdr wdtcr sfior eearh eearl eedr eecr "+"porta ddra pina portb ddrb pinb portc ddrc pinc portd ddrd pind spdr spsr spcr udr0 "+"ucsr0a ucsr0b ubrr0l acsr admux adcsr adch adcl porte ddre pine pinf",meta:".byte .cseg .db .def .device .dseg .dw .endmacro .equ .eseg .exit .include .list "+".listmac .macro .nolist .org .set"},contains:[hljs.C_BLOCK_COMMENT_MODE,hljs.COMMENT(";","$",{relevance:0}),hljs.C_NUMBER_MODE,hljs.BINARY_NUMBER_MODE,{className:"number",begin:"\\b(\\$[a-zA-Z0-9]+|0o[0-7]+)"},hljs.QUOTE_STRING_MODE,{className:"string",begin:"'",end:"[^\\\\]'",illegal:"[^\\\\][^']"},{className:"symbol",begin:"^[A-Za-z0-9_.$]+:"},{className:"meta",begin:"#",end:"$"},{className:"subst",begin:"@[0-9]+"}]}});</script>
+
+<style type="text/css">
+ code{white-space: pre-wrap;}
+ span.smallcaps{font-variant: small-caps;}
+ span.underline{text-decoration: underline;}
+ div.column{display: inline-block; vertical-align: top; width: 50%;}
+ div.hanging-indent{margin-left: 1.5em; text-indent: -1.5em;}
+ ul.task-list{list-style: none;}
+ </style>
+
+<style type="text/css">code{white-space: pre;}</style>
+<script type="text/javascript">
+if (window.hljs) {
+ hljs.configure({languages: []});
+ hljs.initHighlightingOnLoad();
+ if (document.readyState && document.readyState === "complete") {
+ window.setTimeout(function() { hljs.initHighlighting(); }, 0);
+ }
+}
+</script>
+
+
+
+
+
+
+
+
+
+<style type="text/css">
+.main-container {
+ max-width: 940px;
+ margin-left: auto;
+ margin-right: auto;
+}
+img {
+ max-width:100%;
+}
+.tabbed-pane {
+ padding-top: 12px;
+}
+.html-widget {
+ margin-bottom: 20px;
+}
+button.code-folding-btn:focus {
+ outline: none;
+}
+summary {
+ display: list-item;
+}
+details > summary > p:only-child {
+ display: inline;
+}
+pre code {
+ padding: 0;
+}
+</style>
+
+
+
+<!-- tabsets -->
+
+<style type="text/css">
+.tabset-dropdown > .nav-tabs {
+ display: inline-table;
+ max-height: 500px;
+ min-height: 44px;
+ overflow-y: auto;
+ border: 1px solid #ddd;
+ border-radius: 4px;
+}
+
+.tabset-dropdown > .nav-tabs > li.active:before, .tabset-dropdown > .nav-tabs.nav-tabs-open:before {
+ content: "\e259";
+ font-family: 'Glyphicons Halflings';
+ display: inline-block;
+ padding: 10px;
+ border-right: 1px solid #ddd;
+}
+
+.tabset-dropdown > .nav-tabs.nav-tabs-open > li.active:before {
+ content: "\e258";
+ font-family: 'Glyphicons Halflings';
+ border: none;
+}
+
+.tabset-dropdown > .nav-tabs > li.active {
+ display: block;
+}
+
+.tabset-dropdown > .nav-tabs > li > a,
+.tabset-dropdown > .nav-tabs > li > a:focus,
+.tabset-dropdown > .nav-tabs > li > a:hover {
+ border: none;
+ display: inline-block;
+ border-radius: 4px;
+ background-color: transparent;
+}
+
+.tabset-dropdown > .nav-tabs.nav-tabs-open > li {
+ display: block;
+ float: none;
+}
+
+.tabset-dropdown > .nav-tabs > li {
+ display: none;
+}
+</style>
+
+<!-- code folding -->
+
+
+
+
+</head>
+
+<body>
+
+
+<div class="container-fluid main-container">
+
+
+
+
+<div id="header">
+
+
+
+<h1 class="title toc-ignore">SMR Vignette</h1>
+<h4 class="author">Matti Rantanen</h4>
+<h4 class="date">2023-01-19</h4>
+
+</div>
+
+<div id="TOC">
+<ul>
+<li><a href="#introduction">Introduction</a></li>
+<li><a href="#splines">Splines</a>
+<ul>
+<li><a href="#knots">Knots</a></li>
+</ul></li>
+<li><a href="#smr">SMR</a>
+<ul>
+<li><a href="#mortality-external-cohort-and-popmort-data">Mortality:
+External cohort and popmort data</a></li>
+<li><a href="#splines-1">splines</a></li>
+</ul></li>
+</ul>
+</div>
+
+<pre class="r"><code>library(popEpi)
+library(Epi)</code></pre>
+<div id="introduction" class="section level1">
+<h1>Introduction</h1>
+<p>Standardized incidence ratio (SIR) or mortality ratio (SMR) is a
+ratio of observed and expected cases. Observed cases is the absolute
+number of cases in the cohort. The expected cases are derived by
+multiplying the cohort person-years with reference populations rate. The
+rate should be stratified or adjusted by confounding factors. Usually
+these are age group, gender, calendar period and possibly a cancer type
+or other confounding variable. Also a social economic status or area
+variable can be used.</p>
+<p>In reference population the expected rate in strata <span class="math inline">\(j\)</span> is <span class="math inline">\(\lambda_j = d_j\)</span> / <span class="math inline">\(n_j\)</span>, where <span class="math inline">\(d_j\)</span> is observed cases and <span class="math inline">\(n_j\)</span> is observed person years. Now the SIR
+can be written as a ratio <span class="math display">\[
+SIR = \frac{ \sum d_j }{\sum n_j \lambda_j} = \frac{D}{E}
+\]</span> where <span class="math inline">\(D\)</span> is the observed
+cases in cohort population and <span class="math inline">\(E\)</span> is
+the expected number. Univariate confidence intervals are based on exact
+values of Poisson distribution and the formula for p-value is <span class="math display">\[
+\chi^2 = \frac{ (|O - E| -0.5)^2 }{E}.
+\]</span> Modelled SIR is a Poisson regression model with log-link and
+cohorts person-years as a offset.</p>
+<p>The homogeneity of SIR’s can be tested using a likelihood ratio test
+in Poisson modelled SIRs.</p>
+<p>The same workflow applies for standardised mortality ratios.</p>
+</div>
+<div id="splines" class="section level1">
+<h1>Splines</h1>
+<p>A continuous spline function can be fitted for time variables,
+e.g. age-group. Idea of the splines is to smooth the SMR estimates and
+do inference from the curve figure. This requires pre-defined
+knots/nodes that are used to fit the spline curve. Selecting the number
+of knots and knot places is a very subjective matter and there are three
+options to pass spline knots to function.</p>
+<p>It’s good practice to try between different knot settings for
+realistic spline estimates. Overfitting might cause unintentional
+artefacts in the estimate and underfitting might smooth away interesting
+patterns.</p>
+<p>The spline variable should be as continuous as possible, say from 18
+to 100 time points. But when splitting time in too narrow intervals,
+random variation might occur in the expected or population rate values.
+Therefore it’s also possible to do two variables for age or period:
+first with wider intervals for standardisation and second with narrow
+intervals for the spline.</p>
+<div id="knots" class="section level2">
+<h2>Knots</h2>
+<p>There are three options to for assigning knots to the spline:</p>
+<ol style="list-style-type: decimal">
+<li><p>A vector of numbers of knots for each spline variable. Number of
+knots includes the boundary knots, so that the minimum number of knots
+is 2, which is a log linear association. The knots are placed
+automatically using the quantiles of observed cases.</p></li>
+<li><p>A list of vectors of predefined knot places. Number of vectors
+needs to match the length of spline variables. And each vector has to
+have at least the minimum and maximum for boundary knots.</p></li>
+<li><p>NULL will automatically finds the optimal number of knots based
+on AIC. Knots are placed according the quantiles of observed cases. This
+is usually a good place to start the fitting process.</p></li>
+</ol>
+<p>Number of knots and knot places are always found in output.</p>
+</div>
+</div>
+<div id="smr" class="section level1">
+<h1>SMR</h1>
+<div id="mortality-external-cohort-and-popmort-data" class="section level2">
+<h2>Mortality: External cohort and popmort data</h2>
+<p>Estimate SMR of a simulated cohort of Finnish female rectal cancer
+patients, <code>sire</code>. Death rates for each age, period and sex is
+available in <code>popmort</code> dataset.</p>
+<p>For more information about the dataset see <code>help(popmort)</code>
+and <code>help(sire)</code>.</p>
+<pre class="r"><code>data(sire)
+data(popmort)
+c <- lexpand( sire, status = status, birth = bi_date, exit = ex_date, entry = dg_date,
+ breaks = list(per = 1950:2013, age = 1:100, fot = c(0,10,20,Inf)),
+ aggre = list(fot, agegroup = age, year = per, sex) )</code></pre>
+<pre><code>## dropped 16 rows where entry == exit</code></pre>
+<pre class="r"><code>se <- sir( coh.data = c, coh.obs = 'from0to2', coh.pyrs = 'pyrs',
+ ref.data = popmort, ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'), print ='fot')
+se</code></pre>
+<pre><code>## SIR (adjusted by agegroup, year, sex) with 95% confidence intervals (profile)
+## Test for homogeneity: p = 0.735
+##
+## Total sir: 1.01 (0.95-1.06)
+## Total observed: 1490
+## Total expected: 1482.13
+## Total person-years: 39906
+##
+##
+## fot observed expected pyrs sir sir.lo sir.hi p_value
+## 1: 0 1226 1214.54 34445.96 1.01 0.95 1.07 0.7423
+## 2: 10 264 267.59 5459.96 0.99 0.87 1.11 0.8262</code></pre>
+<p>SMR’s for other causes is 1 for both follow-up intervals. Also the
+p-value suggest that there is no heterogeneity between SMR estimates
+(p=0.735).</p>
+<p>The total mortality can be estimated by modifying the
+<code>status</code> argument. Now we want to account all deaths,
+i.e. status is 1 or 2.</p>
+<pre class="r"><code>c <- lexpand( sire, status = status %in% 1:2, birth = bi_date, exit = ex_date, entry = dg_date,
+ breaks = list(per = 1950:2013, age = 1:100, fot = c(0,10,20,Inf)),
+ aggre = list(fot, agegroup = age, year = per, sex) )</code></pre>
+<pre><code>## dropped 16 rows where entry == exit</code></pre>
+<pre class="r"><code>se <- sir( coh.data = c, coh.obs = 'from0to1', coh.pyrs = 'pyrs',
+ ref.data = popmort, ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'), print ='fot')
+se</code></pre>
+<pre><code>## SIR (adjusted by agegroup, year, sex) with 95% confidence intervals (profile)
+## Test for homogeneity: p < 0.001
+##
+## Total sir: 3.08 (2.99-3.17)
+## Total observed: 4559
+## Total expected: 1482.13
+## Total person-years: 39906
+##
+##
+## fot observed expected pyrs sir sir.lo sir.hi p_value
+## 1: 0 4264 1214.54 34445.96 3.51 3.41 3.62 0.000
+## 2: 10 295 267.59 5459.96 1.10 0.98 1.23 0.094</code></pre>
+<p>Now the estimates for follow-up intervals seems to differ
+significantly, p = 0. Plotting SMR (S3-method for
+<code>sir</code>-object) is easily done using default plot-function.</p>
+<pre class="r"><code>plot(se, col = 2:3)
+title('SMR for follow-up categories')</code></pre>
+<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABIAAAAJACAIAAAB68oqDAAAACXBIWXMAAB2HAAAdhwGP5fFlAAAgAElEQVR4nOzdZ3wU5d7G8Xu2pZOEUEISmrTQWxJ6b9JFQUFRRBQFQQURAT12xS6KUhQpigVQkN5FQVoCoQVCr6EmBNLLljkvIGE32TSS3JvA7/vi+TzHnd3572RmmWvupqiqKgAAAAAAxU/j6AIAAAAA4H5BAAMAAAAASQhgAAAAACAJAQwAAAAAJCGAAQAAAIAkBDAAAAAAkIQABgAAAACSEMAAAAAAQBICGAAAAABIQgADAAAAAEkIYAAAAAAgCQEMAAAAACQhgAEAAACAJAQwAAAAAJCEAAYAAAAAkhDAAAAAAEASAhgAAAAASEIAAwAAAABJCGAAAAAAIAkBDAAAAAAkIYABAAAAgCQEMAAAAACQhAAGAAAAAJIQwAAAAABAEgIYAAAAAEhCAAMAAAAASQhgAAAAACAJAQwAAAAAJCGAAQAAAIAkBDAAAAAAkIQABgAAAACSEMAAAAAAQBICGAAAAABIQgADAAAAAEkIYAAAAAAgCQEMAAAAACQhgAEAAACAJAQwAAAAAJCEAAYAAAAAkhDAAAAAAEASAhgAAAAASEIAAwAAAABJCGAAAAAAIAkBDAAAAAAkIYABAAAAgCQEMAAAAACQhAAGAAAAAJIQwAAAAABAEgIYAAAAAEhCAAMAAAAASQhgAAAAACAJAQwAAAAAJCGAAQAAAIAkBDAAAAAAkIQABgAAAACSEMAAAAAAQBICGAAAAABIQgADAAAAAEkIYAAAAAAgCQEMAAAAACQhgAEAAACAJAQwAAAAAJCEAAYAAAAAkhDAAAAAAEASAhiAfDBdP7zm+w/GD+/fvkntqpXKeboYDK6e5SpVqdmwde+hY9/+ZvHOqBQ1l/ebj3/SwqDYo6v68lZjju9LWPKYp8bu+wwtPzthttoyfcNIX63dLe3QaPQuXhWq1GvT/7m3F+y6kl7Io2O8uHXm+IFt6wWUdXfS6QzO7p7lAnp8fcyc9zsdqrjLtpz7ur2T1VHX+o7ckF6gDQBk4noB7h06RxcAoGSzXA+b88b493/ani1hGa+nxF+/cuFUxM41v3z7/qvedfuM+ejzyf1ruBTo882Xd+06Y25fW2vvRePBXXuScgt2d0lVTalx0Rfioi9E7ljx41dfjpi9ZPqQ2s539Vnpx2Y93HHsmiumzDrNSca09GvxOcfKkqCUlo17nXp101efrb6Q+RhA49NhzOSHqtv9fQCAUooABiBnifumPdpn4rpLxjxDkGq6ceSv9wds+vOpGctmP1nbKf/7MB3eERqv1vZWsr9kuRgWGlXs7UhqwsEfh/VWyuyY3bu8nSLyePOlX16dZB1jSodSWjbufZbYsN++mbYn8zmAtroY8DoBDMC9hS6IAHJgPjP3iZ4T8pO+MqmJR34a0Wv08qsFuLFXU/bs2Ge/2SV5z65DUhpkVOPJuS++tSmx4G+M3bRsS3ypizGltGwAAO4FtIABsMty+fcJk1ZdNdvcpSsal4r1gprXrVLOTZMeH33++MH9Ry4nWay3UY2nFoyZMqDDnD5e+WxOslwL3XnS3LletmfcxkO79ibedUpQXHzr1PHN1q1QNacnXY86dzk+S640n/9l2uK3uj5TqUCNYOaoU2fTrT5IcW42ftniSS08jen6ciX3oX0pLRu4rxnK12rcJCHzmZTGp7JHgdvsAZQIBDAA9piPzvtqZYzlzn9QtBXaT5gxY/KAep5WLedq8rl/5783fsr8fXF3tjVf/G3ab+/0GlU5n03spsidoTfUeuWy3EtYLoWFnb/7Doi6OqOX7PlfA7txwhS7/5fXnhw1L8JqXJua+N/arXHPPOZVkJ2oKck2Q+O0NXs90bVGuZL+y1pKywbuZ5pKj/8Y+rijqwBQFOiCCMAOy+UtmyKsRwhpqz338/Kpj9ikLyGE4lq14+g5W5a/0sDJKj6pqTtXb7qea9uV4urj46pkbL53R3j22byS9+46kPGwV+PhU9ap6B726so2GTZz7st1bRKHmnw04oypcB+s6Az6UvhMupSWDQBAaUQAA2CH+cyJ09b5S1O++8MdPXO4R1c820+Z0sf6VTUt8tDxXLOM4hzUuqnh9lssMaE7j2Xd3Bixa09GB0TF0KxV8wJM7JEfhiY9OleyaR+z3Lh+w5LT5jbU6L+nTRg3bty4CdO2xFgHTfPFtZ+8Om7cuHHjJs7blz1TmmMj1sz5YMygTs0Cq1Uq6+bs4lm+cs0GLXs9/fqXv247m5zT7tI3j/KznmLfqe1Xpy1CCGGJ3b9w8qMdGlf3ca8/JSzP8Ci57KJW4DLiFg2yWcRAX3fKniwHybj15ao66wUKPB75Lc52k/RNL9gcfa3/CxtTC1C25fRXbW0mD/cbtdne5OHp65+raPNX7jj9vCWvDzFeDfv1/eHdm9cOKOvm6u1fu2mnx16dtjT8alHMTm6OObhi1tvP92/bqFaVCp4uTq5eFSrXDn5w6PhPfw/LewdqStTO3z8d92Sftg2rV/LxdDXondy9yvvXbNqh31OvfrF4Z1RKlr3dXqlCV2/KHuuBn+Yz09oZFEVRdLVe22VvRGjaxd2Lv5rwRNfmdav5ers6u3qWr1KvTd/hk2esORybn+cpauKxVdPGDWxTN6Csm7tPlfrth/zv57BrJiFE2oonrc8fQ4tPjufYIi/j0i7QNPSFPSyWhFObf3x39GPdgmoHVPByczK4eJbzq96gTZ8nX5n687azxTE5LXBfUQEgm7SNz/taP5/RlH1yeVIu25ujlox/qM8dfQd/FWq0et107OMQvfVPj6bcUx9MqJfRAqU49/jhisX2E89/08GQsbWu0aT3h9iOKdO3+PS4ybri9c9VtHmipG/y3iGTmgvj/rca2jSBaR8Y/196vg5Ptq+TnfPDvyXaHNGzaz98rKG3NseGJsXJv+0Ls3bHWLLvLm3TC5Wsv5uhzZenzGrCnk+7VtDd/jxdndd3G7O/06Flm89Oa2ew2lRT8bn1aQXaoJBlWC5/38NFsd6o03cXzDYVnPqitcHmg7TVX9lmcxKYjnwUZH3QFO/H/4zP60jb7uPLNjbfstILm+x9y7R1z1aw+St3+OacObcPSY35b2oPP132Y6JoytQb9NGG8/aPZX4YL276+LGGXjkeb8WlWs+311/I6WpJPv7Ha538Dbk1qirOVbq+vvzMnU/I8+TU1pywM8sO086sfqd/bfecHgxpvBoO+fzfK7n8Cpgub3irW+VsbeuKPqDXpztiU5YPLWP1kj7k42P2PkvapZ3f66Wwh8USu+f7Z5uXzfkLCUXrEzRixq5oc46fASB3BDAAdhjDJtv2z9N4tv8wLM7OHUT+2AlgzyxdOrx8xr2HpvzwVck270hc+nhm4tJUGPHX4ieLOoClbRrlZ/MOp64zL+XvGxYwyViub5/avZKdO+XsNzaugU/Oj0zOsjs7d2nHImf3qmh1h1QcAaywZRdRACtEGeaTn7ey3oHi/cQym3wZv+SxMlk+2NBu2hnr+8obCx9ysw5xbn3mRxfoOiimAPbszK8f9MmlE4ui8+3++Z6EglR6W9Kh2QOr55qebu/Ar//3R1Ozf4/I7/v55+fPJRR9taGLo25/xwIHsIT93/arnGfPWcVQ7eHvD6fY+57GM78NrZljx2aNT9dPPhyYVwCTemnn63op7GGxxPz9enDWiyKHb1T/+b+icv2NBZATuiACsENXJ6ipzQRblritb7Zr0PHZDxZsPHg5OX8d9XKnOAW1aZ7ZCfFG6M5I644xpsNWHRCdmrcu6g6IQqTv27jlmvUsI4Ym3TpXKIaRUMYT3w/t/8aGy/lZdEtNPrrwuX7j1uU+gE5YLv72+hvrskxRWcSKoWzpZWiqdulWx+pBgpoQtvOw1WlmPBwanrUvlfFQ6D6r3nHGA7vDU+9sohiCe3Qq6/jxcmrsH5Mnr7+ey4Womq5snDLsg10pOW9i/4PXT3h4zJ9n0vM83qrp0ooxA97YZrt4g+nYdyPHr7yYrxXmVOPZX1/535o4VQghNF7NB40eM2bMi0+0ssmhmjKNHxk9ZsyYMS8+2cY3s8uwGr3ipYdeXnkhzzUy1PSzy0b3fn7playHKmn3ewNH/HIyLacPsFzfPOXtv3JfmaLEXdqFPixq7JqJwz8Py9cSFWry4R+GPzvnTLGv1AjckxydAAGUTPEbRlXLYUJyRe9ZpVGH/k+99L/Pf1iyYffRy4l5PgW10wI2Ym3SofeaZPxHxanLzIt3GhbMF77tmPmsV9/0/UNJK4qyBcx88/CvIxu5Wn+gpsKg364UuIUvfeeEmtpcd2qK/LxNls5AiqZMnQeff3vaD/Pnzvx04hOt/bM+hdf4PbnMur9S1sfkGncP9yxPz/LVAia57CJoASt0GenbXrE5jW2blc5P72jbAVEIIXSBk8MyD2XWNjR98w+PFPCZf7G0gGUeDa1Xna5Dx0ycNOGFR9tVc9dkORaKW8evTxWkn1j8+heq2nY9U1yrdxrx5pez5/8077uPXuobWMbmzFOcgz+KsDogKX+/WMXmZ0NTJrD36He+mj1/4S8L53730SsDGnrZFKkpO+TPOOsKsnb5zNYnVFVVy/XlwwKsd6M4Ve3x2uzVOw8dO3Y4dP38twfV87ApU1Pp8SVXra/u1LD/Nc5y4ihu1doPGfPqS8N6Nqvsbq/7XdYWMOmXdl7XS+EPi/nsNx2drUtW3Gr3nTDtp6VrN2/ZvOaPuZ++0jfQ9iO01cb+k70VFEBeCGAA7LNcW/tifed8dUXRulVq0HHgqHfnbIiMtZ8C7AawtNSNz2d2ArQdZZb011DvzA6IlZ7fmJpa4ACmuPrVD8quedNGgVW8nRTbm0xDjaeXXrqLAQ15Jpm41c/4a23Lajhq6VnrWxbLzfBv+tr22VKcQqZa3ednvUu7vZFLlbaPj//gmx8WLPx57uwF/17Mf/1yyi58ACuCMpJXP2MdaxSvIX9mdstLXv5kWTvH1anrrMyuqPGLBll3x9LVeT00/zn39rcstgCm8en4zj9WY3lSz654uXmWlaH0jd89mO/EaL7wfQ+b92u8O32yN976Fj1h5xvNrMfVCV3tibsyA1L6tleqW//BdPXGb8syYC5h85gaNudes/cjbGJN3gHMfPKrdtY1aP0f+/WCzZe0xP03uZn1AxbF0PTdA5l/OcuVBf1sfk4UXZWBc45k/v4YL214vaVn1lMjSwCTf2nncb0U+rColtgFfW0GTXr2nXfZ9qmUJW7bhAbWPRy1NSfsyN/IWQBWCGAAcmS6uvXTR2pne6yeC8W9Zu9JiyOzzddhP4BZrv/UL3N8jXUbjjF0UmDmBB2ufRfEWAoewPJdsr5Sx0mrzhf0tvqWPJKM5eq8PjbPyJUynb4+ZmdX8X+PrWVzn6atMX575m1N9rs0RV998Lzsh7lklV3YAFY0Zdz43WYgj9VIIuPeN+pnnGW66rWqZ3yEpvwza26Pjknf8ap1WtAGjN5c4Mf9xRXAtAHD/so2Gs109odetqGyAAnMfPqrtgab2/OgDyOyvTfln5dsQpa+aebJY7n2Yy833R3Ojd8Kz/r3ytrsmHXqm7wDmHH/242s+pUqTm2+PJn94UPChudt2uKsfl/MZ7/uYNM0pX1g9MYsOdF86ZdHKthedDYBzBGXdu7XS6EPi6qaIqcG20w449VvfrbnUqbD3/Rv3CBTw+Dx67KObAOQJ8aAAciRtkK71/44fDr0t49G9W3m55KPIKYmnlz98eBWHSdtzs9wIMWzRevMW2DTmV27L90akWC5GhaaObJAV69ViFf+I2CBKDq/np9tO7x5au/KxbIIcdJ/G7ZZjzHSBjwx5dnadnbl0eG1cR2snz2bz/+96WiOgyu0AcO+m/10oGtR1mqluMp2SBmeHbq3tGrINZ/fffs0U6/v3XPKnPHRPZ8fkBG1LDfD95w0CyGE5fKePRfufB2NV8fuLW4PRlTjL0QeztmRs7H2pkwvOoohaMzkPlkXLxfaqk9NefoB6zts07Gdofkcm5ewe9sBq9FDij748cF1s/VDdm71xIhOje7cgQc6J127Pa5OKf/M6kTjHSn7321qu9Ze/JFf3py+w/bQFHC4k+XKf1uPWZ1jusZ9e1XLfi/j3u6hbtaTlJhOb9169tYfPmbT2t3pNuP6Xnilk4ft2zWVHn37xUY5zwpS4i7tQh8WIYTi5mbTL1u9ufK5xkGPvPLpgnX7Libd3kpbb+xf+w9lOhj6RQ+XAlcL3PeK5Z4DwD1EV775Y5ObPzZ5RnrsqQNhoWF79x04cODAgYMRJ68m2R8qbrkZ9tkTo5rsXzTYN4/gpK3eqqWfNvScWQghjPt3hCWPreIuROreXfszbgS1FVu0fEBb0Ju0fFJNl9ZN6tvj6EezvxjRNF8zfxWI6dSBCOubNE3Zrn3a2r+10vj37NNMv/m/zGV9TMcPHE4WDT3sblyh56OdyxRxsXcUV9mOKUOp0Ll7E/2GnRmvGQ/uDEt+uaq7SN8fuu/2bbjiGtR+SOvY9786FqcKIUzHQvfeVBv4KKnhuw/eCQuKa9se7TIKSF7zSrMhS3NcD8zQbtrxf16uWnzPOHX1evWqaW+QpiG4d3ffaScvZtxUq8ajEcdNokIe018KIYyR4YeSrQ941datq9j5BoaQNzYeeCNfVZriLxyNiDh8+Ejk0WPHjkVGhIcfuZJsKdzFnL5v9z7r+KTe2PbthCvZb2bU65G2tUQejDSKmk7CeGjPQes5RrR1unevnv1Q6ur271/3/f0H7S6aVfIu7UIfFiGEplL7joH6rQfvpHDVGL1v6df7ln79uuJUPrBVp65du3Xt2qVD8+qe3D0ChcIlBCCfDGVrBPeoEdxjyK3/aUm+enx/2O4d/25Y8ceK7ecSbW6rLNf+mjrr4MB3GufxG6Nv0jrYdfq5BFUIoSaG7TxofKS13hS5e0/87ftHxTmoVVODEGnF8Y2EEEI1RYfNeb7bJbFn5bN2HhgXiuXyxcvWs4zpatavY28mBSGE0PjVDfTS/Hftzn3z5airFuFhryRtQPUqxfjjXVxlO6gMTdUuXevodh66fSN96zQb2FpzImxvxrrb+oatgso3u9RA//v2dCGEmrYv9IBxWGfNkdDwhMzTWnEK6dGpuNpiC0ox1K5vN38JoatTv45OXMy837fciInN17SlamxMrPVFrKtWs2oO8/DkwXhl568zv1+4dN2OyKvJRTxXp5pw9VqK1UeqphOrv52WnzemXIq6rgo/kXjhgvX0kYq+Vt2a9i4nXe3G9V2Vg3ZnBCxxl3ahD4sihBC6Ri9+MGzhIz+eyj6NopoWHfnP4sh/Fk9/U9F71wju1POhIcOHP9S0HLeRwN2gCyKAu6NxrRjYus+wCZ/9svXE6e3THnnAZuUg1Xh009/n877vcw9p0zjj2bz5wq7dURahXgvbfTqzA2LD1iF315xifxZEc1r85cObZ48K8bb+9bNc3/Dl9+F2H3UXhpqaYjPLteLhkdPqqEIoZTxt2uDU5KTkHG5dFYNTngv9FEJxle2oMnT1u3W2mhzOHLV7d5RFjQsPPXb7L671Dwmpog9o3rxSRifEa+F7z5nV6D1hp+906tI16t7Ft6T8m6m4lXHPIRxpPDxt7u3VtKSkfJ3axribSdZXrOKeywHPUcqxX55tXrvt8Pfmb4q4YpO+FJ2Hf8NOT7z8aMO8W+NyZrl54+bdLYNhSUxItAihJifZLD2guHqWsV+QzqtsmRz+4CXu0i70Ybm9//J9Z/yz+sPBzSrkshCcarxxcsfS6RMfDarVYvTiU+k5bgggRyXlHxMApZiufMuXfv5prO0ICPOFMxfyHg2kCWjZMnNQuPHgjtBENTXcqgOiX0iLnGbDvysag4dvvc4jv/trWh+bCGY6tXN3tqWCCktxdrEZ668mJCTmGE7UxESbFxWDU06P1ItZCSm76MrQN+/eyWrci/HgzrBE44Hd+1IzOyC2aqQX+kYhTTMGi5kOh4Ynpe4LtRoSpavVtesDRXkqFoqanJiUw+mqJifaBgwnd/d8tVLo3NxsH6Kkpua4SlZOZV1fO67P8LmHEjLawxWNe40uI976btHGsBNX429GHfz757d72evXmG+KXp/3ItE5VKcKIYTimmWgU1pKqv1DqaYmp+QUlErGNWL1mYU9LJn0Ad0m/7b3/PnwlbPfHtk3yP6U/LfeaLkZPuvJfm/8l/tqaQDsIIAByEaNXvBIRW8r5RpO2pHHnAIuwd3a2Uy/pqbkePdiTd+wTUjG42E1OWzH/pTIXWFxGR0QXYNbNynM4/KcKL7de9vMtSbMUfnJiwWj8fWzmeLMdPLwsZweF1uuREZa9xRTtBUr3d20joVWQsouwjJcW3dvf6eBQk0O2xl+Imzv1YwOiI1aBbsLITyaBmfMvakm7wvbfzg0s4+iEFq/Lt0bFlVvq8I3EappxyNP2z9fTSciT1i3eGmrVKucr+Co8Spr81DCfPFcVMEuCfPhmW/Os+q+pg14ZO6+w5vmvDv60a5BNcu7aIQQalJioZpINd7lbKrU+I/ebG9SyezSd79eWyuE4la2rHV4UtPOnrb7PS2Xjp9MyCHllpBrxKqgwh6WLJwqNukz8p3ZK8LOR0ftXzdv6kuD2tb0stM4p6ZHfv/5spjiXBIeuCcRwABko3j6V9DG37zj+tG1G47k0Y0pPSEh1fqfYU3ZcnYWWcrOJbhN04xnt+ZLu3fu2RWaMTed0DdqHex+F18gb4qXt+1wHkvs9diivovQ1Wxc381qL5bYzau2p9jd1HJxzcq91hlXW61hfQ/HDDgqIWUXZRmeHbpZTYVovrT77792ZpzQ2oCQkACNEEJbI6hZxilrvhC2adWuE5n35ZqynboHWzdbuA3+MyWXu9q0rTnOwKEmJybbu603JSXm54lFxtaH16w9Yy82GPetXn/R6gVN2eBWgflrAavdoI71Lbb5xPadV+1Uatz7+UNtWmVq3f3dbbeyh+XchrURVhNB6Oo8NemJmk5ZCj959GShnnS41qxjHSjVG5eu5DgXil26Og1sDojp0OZ/rmU/8pbLG9aG5/TYqYRcI1YKfVhy4uzbqMfTk75evO3EtatH//nl45Ht/W0bSpPCQyOKvPs2cK8jgAHITt+sXSubIQ2miG8mfHvY/g2GEEII44kFs9db97NRXBs2tTcrczaaii1bZa61ZIrYMmtDeGYHxIAWLSoX269UlluulIT8jZQpCLe23dpYd3cyX/h16o92bj/VuC2ffPmPdcOAtlLnrkXW4FJQJaTsIixDqdi5m1VTqjF87qwdt9+guAW1uj3duKFxSJOMe0vj3rk/hmb2wFPc2vVoc5eTbSuuri62N6x7d0dku7FXr61ctCUp/wFMTds9/eP12Z4ZWC78+uGPx61OZMWjTeeQLBkop0LLt2pb1+qoqanbfpyXvdKU/+Z9u2rHrkx74l19b12/5ijbJjPF1d01a9BI/HfRyksFCmBq1i5yjdq3tmrsUdP2bN2dbO9913YunP71HdN/3X2roUb7QOtWftZZJXnLd7P3Z53mJ3H7F1/9nXNbXQm5Ru4o9GER5tM/j+rT844+Y347Z5O/9d61Ozz++uyNK16rb12/mpqSSgsYUFD5aqEGcJ+x3Fj6RJZlSBVt+dZjfth2ITnr2q/G2ENL3+pZxXYEgsb7kV+tVom1vxDz7ReTVw0vn7EvRafPXLVU8Rz8R8LtbQq+ELP9STgyxS/s72zz/Zx6z7ue9avlKY8VjVXLzRVP+9mUpbg1HrPifJrNNnun9a5kM9BCMTR5Z/+d1WezrtZqaPPlqexLrJa4sgu7EHMRlXGLcd//Gti96zW0/ep0xsE07n2jnr2NFOdusy4V+OTIkLzscU/bi6Nsp6mhN60+L+nksldbZW0vzmshZiE0Fbp+tD36zpmQdn71+GDb1RQ0fs+syrLEcC5MR6aG2AxtUtybT9xstQfVErd1YmOrZdWEom/2fsZizenbx1svWy0U56B39lov0mu88NdzgVmGKmkfGJfrQswan+Grsyx+Hb/2WatJVYTi1vz1f2Oz/HlSjs152M92xeGJuzJOnNQdE2rZ/J0V5wajVlzILMNyM/yb/gG6LOHRZiFmR1zaeVwvhT0slqs/9LD+6yuGpm/uyb4itOX6qmds1nLWt/jkWD6X+gaQgflDAdihePV7563Oq17aFJf5CFQ1R+/49rn2M8f51WvSOLBaRU9XrSkp9tLJiPD9J2KyDNZXnBqOmfRwtlVic+Ac3Ka5Yf66VFUIoZqMmY/v9Y1bBRfXWsN2pKcX/dK5imfPCS+FLJ68K/MRuJp04LuHGm3p89QTPZtXdTdejdz650+LdkTZHEBNhYenjM5lEdhiV0LKLsoydPW6dQn4KOJs1jYKbeUWtzogCiGELjC4mYdy5EbW5/m6pt27VLzrTmNOzVs11f/2z52+eZbYLVPa1Pq1c7dWNb2VxMvHdv+7/dj17BN/58lybdMbHQN/7dqvW9MA54TTu9as+Pd0gsWmGTroxZe7538WUW3giHH9vnhiSUzmjOmJez/r2Xjb4Gce61i3oiHp3I5FM+f+fc6qvUPj1W30sIzFmnXVaz+gV05lznyopu59r3Pwoeee7t7IzyX5wr4Nvy1YfjA267T0Wf6nYjDYDDWy3Nw4d/7exgOr642ijG9ZZyGER7dXRjdb+EbY7TrUpL2fPhh06MXXXni4bV1fp5SrJ/esWzh9+u/7rQZeaXwffmdcSEZ6cQp5blTLma/+l3Sn0ohZAxqsb9m5W+u6HjcjNi9ft/9aeu5/kBJyjVgp7GFRynV5MMRpw7aMP6+avv+jLiERI4Y/1LZhtQoeBjXlxqWT+7b8MfenTefvXEaKodmA/jVKzOw0QKnh6AQIoKQynvjxoWxPgfND493+k/Bkm8/KtQVMNR18185UG7raE3cZMzYp8oSgkmIAACAASURBVBaw5EUDbVvAbBoc8iuvpiRVVdX0o9/18Ml/R0pFX3Pk6ms2D66lt4AVTdmFbgErmjIyJK0aXiHbByllHluScGcb87mv22efoE7X8H/7jPY+Mp/MUT88mOcy34qTm5tN8si1BUxx8vBwyuMjFZegd/bmNlDNbq0Xfh3kl9/baY1np2mRVkfGfHZGl4LOXK8pN3y1TZFxiwbaHSGlrTlhZ2bTUcq+D1vlexyVYqg1Yvll2ysmZe87QS4FK9W2BUxVpV/aeV8vhTwslugVw6vmOOmh3c/QVntuTdZmNgB5YwwYgBzoaj7z28YfHq/jVqB/kF2q9/9s7fLXmhZkwIy2dusW5bL+Gikewa3sdxorElrvsl42u7RcuWhvxoHC09cZ9cuyd7v45ifLKq6BQ+esnNarvOPX+y0hZRddGa5turfLlg70jVsFWbWyaio1bx6QNX5oA7p0r1+YM1Hj/8RHr7fM9cZYU7HPl58MzP8yz0rZQR++18Ez53/CFaeaQ+cteaOZc45b5FBIwODZS97rUjHv23DFrfHYRb+/ZD2fhabqsPdfapRLrlE05TtMfqWb9eApS+y6haus58DwaN+no2dee3du8vrvC0Y2zEfaU9wbDJ+/Zka/LEu4OTeb9Mu3AyrnfFopro1eGN099x2UkGvkjkIeFqVcny9+mtLKO793hhqvVm8u/PRBb8f/WgGlDgEMQM6cA59euO/AX28/3KhcnsuDKnqfBv2nLAo/uGx8i/zfSN5iaNY6yNn2PYqhaevgu5z2ID90dWynfBOmEwvem3UwoThGkys+7d5cveOvdwbW98r5vlZx8m/3wqx/ti94KrAYv3ZBlJCyi6wMzw7dW2RpNdJWaRHib/3voL5BSNMsAUJTrnP35oXsNObS9PU/Fr/W2sfuF1Bcaz/6zeqfR9Qs0BK8hnpjf/tjcvvydj5ScarS439//f3jY9XuJjYq3q2nrPpv8es9a+T46EXR+TR/ds6OrV/1qJBlE9dW7yxb8Fwje2FT0fu2Hbtw65q3e1azedlyedGoMYujMy88xXfIJx8+mGcC1FYZMPPfzd8ODyqfY/xRnCt3Gf/zju1zhtS0s+6WU+1nftn8y9jWFbK/X9GUDXll0ZovemRvMs26Zcm4Ru4o5GFRvNu/t+G/X1/rUT3b9ClZNtSVazHqx3/WvN2moD/2AIQQgjFgAHLnUqPfO3/2m3xlz5qlq//dvTf8QOS5qzduxscnG/Vunp5e3hWr1m3crHlIu54DegdXyt90a9koni3aNNCtDLUahKV9oGWL4lwHSxPQ79G2k7duvjPxnOXKqtc+WP/c4oF3+SVy51S991tLHhwTse6PZWs2bNp+8Mzl6JibKVoPn/IVA+oEdejWo+8jD7WrKnHIW/6UkLKLpAylYufuTXUbd945yxT3oJYNbbOVe9Pgero/rc5ExaN9j9aFv2/W+j34yb9HB/8xa9bva7fuOXYxJsHk6uPrVyPowUeHPTusV2AZJX19QT/St+sHG/f1/GXWjJ+W7zx6/kqc8PSrWifowUeHPTP0wTp59nnMjXPNh6eu6T1211+Llq5Z/0/osQtXo2OTLK7e5f1qNmvTqccjw4Z2r5lDM4u++qDZu0Iemzd99qK12yPORSdpPH2rBIb0ePiJ4U/3beClEWrZTu3K/vhHzJ3mZkv85ctJqshsGzLUHf3Xnrrffzb91/W7jpyPTkjXuHj51WravVnWeYG8Q0bP3f34hLW/L1q+ZuOOiHOXr8UkWJy9yvnXaBTctku/wUP6NPfN7Wp2rvXo11s7Pb10/txflm3ef/LClQStV6Wawb2Hjn11VPdqTmnL8/U4poRcI5kKe1jc6j326boBEyO2rPhr9ZbQg4cjT168Hp+QmGzUupbx9PZ9oH6ToLYPDnz84XbVCtQ5AoA1RVWZPRQAgBLMcvqr9nXHb89c61dT6YUNZ2d2sdOwg6Kixs7v6zd8deb89IYO35z8e2zxrYsB4D5CCxgAALhvmM9tWbj5tOlOp0eXwB6D2/hnSVZq3L+bwqza5DVeNWqWJ30BKBIEMAAAcN+wXFjx7shpZ+5Mpa6t9qz33u97lrXqUafG/v3O//6Itpqx3btb37YFndIEAOzjaQ4AALhv6IMe6muzlLD57NwnHnxh5sbDl+LSjCnXT+34/b1HWvf75vCdJbwUp4ajXn4w/yuqAUCuaAEDAAD3D+f2//tu5PqHZx3LXFLaciPs+9Hdvx9tf3uNV+s3Z78eTPsXgKJCCxgAALiPKOV6frPpz4nt8rGCl+Ja86HP1qx8o4W7jMIA3CcIYAAA4P6iC+j18ZaD2+dOfizEz9nu8mx6n/q9x3y5av/+ZeNbsdYwgCLFNPQAAJRsatzeRfP+uZg5b4Ti3njgc12r8Ay1KKip0ScO7D1w7GJMXFyyUe/m6eVT6YEGzZrW8XXlAAMoFgQwAAAAAJCEpzsAAAAAIAkBDAAAAAAkIYABAAAAgCQEMAAAAACQhAAGAAAAAJIQwAAAAABAEgIYAAAAAEhCAAMAAAAASQhgAAAAACAJAQwAAAAAJCGAAQAAAIAkBDAAAAAAkIQABgAAAACSEMAAAAAAQBICGAAAAABIQgADAAAAAEkIYAAAAAAgCQEMAAAAACQhgAEAAACAJAQwAAAAAJCEAAYAAAAAkhDAAAAAAEASAhgAAAAASEIAAwAAAABJCGAAAAAAIAkBDAAAAAAkIYABAAAAgCQEMAAAAACQhAAGAAAAAJIQwAAAAABAEgIYAAAAAEhCAAMAAAAASQhgAAAAACAJAQwAAAAAJCGAAQAAAIAkBDAAAAAAkIQABgAAAACSEMAAAAAAQBICGAAAAABIQgADAAAAAEkIYAAAAAAgCQEMAAAAACQhgAEAAACAJAQwAAAAAJCEAAYAAAAAkhDAAAAAAEASAhgAAAAASEIAAwAAAABJCGAAAAAAIAkBDAAAAAAkIYABAAAAgCQEMAAAAACQhAAGAAAAAJIQwAAAAABAEp2jCwDucVFRUTNnzjSbzY4uBAAAoMRxc3N79dVXXV1dHV2IPAQwoHjNmjXro48+cnQVkK1v374eHh4rV65MSEhwdC0AAJRoderUefTRRx1dhTwEMKB4GY1GIUTPnj07dOjg6FogT0BAgF6vb968+a0TAAAAZLdo0aJ9+/alp6c7uhCpCGCADB07dpw4caKjq4A8a9asSUxMHDlypLu7u6NrAQCghIqIiNi3b5+jq5CNSTgAAAAAQBICGAAAAABIQgADAAAAAEkIYAAAAAAgCQEMAAAAACQhgAEAAACAJAQwAAAAAJCEAAYAAAAAkhDAAAAAAEASAhgAAAAASEIAAwAAAABJCGAAAAAAIAkBDAAAAAAkIYABAAAAgCQEMAAAAACQhAAGAAAAAJIQwAAAAABAEgIYAAAAAEhCAAMAAAAASQhgAAAAACAJAQwAAAAAJCGAAQAAAIAkBDAAAAAAkIQABgAAAACSEMAAAAAAQBICGAAAAABIQgADAAAAAEkIYAAAAAAgCQEMAAAAACQhgAEAAACAJAQwAAAAAJCEAAYAAAAAkhDAAAAAAEASAhgAAAAASEIAAwAAAABJCGAAUGTOJp+8mHregQVcSbt4KumYAwsAAAC5I4ABQNEwq+apJ6d8fvptB9bw7dmPp56anGROdGANAAAgFwQwACgaJtVoVNNTzSkOrCHFnGxRLemWNAfWAAAAckEAAwAAAABJCGAAAAAAIAkBDAAAAAAkIYABAAAAgCQEMAAAAACQhAAGAAAAAJIQwAAAAABAEgIYSjhTwpXz585fTTQ7uhAAAACg0AhgKNmSN7zcuHq1WoPnX7LkuW3K6Q3fTni0Xb0q5d1dPCpUbdDh8UmztpxnQVoAAACUGDpHFwDkJn7z4jUxlnycpykRP4wYNP73o4nq7f+QdP5w9PnDWxfNmvnMrKUzBtfQF2+hAAAAQD4QwFCCpR78buqSa3k3fVnO//JUz9F/RplUobhWa9evV0gV5/hT21etCr2UFnfwx6d76Tx3zOjpo0goGQAAAMgFAQwlU/q1fcunTxr/ya5kNa9N1ehlk19bGmVSFUOtofPX/jCkhtOtF5IOzni890sro9JOzHnlgyHtvmrvXtxVA3flUEJ46M3/TicfTzDGGTROvs7+jcsEtfXu4qJ1dXRpAACgiBHAUJKo8Tu/m/zthohD4eFHLiWa88xeQghhPjzrwyVXLELR131p3szM9CWEcGs0au6MsKYD5l8wnfj+/YWvrn8hgEGPKFli0q/+cH7aiaTIO//JnBBrjDmScGDllcWD/Z9p7d3JcdUBAICiRwBDiZK4f9mcX/9OL8A7zEeWLo0wqkJxaTd6bCs32xcVn57jRjRY+M4BU8r2JSsujhxdmQSGkuNCytnPTr+VaIr31Hl3K9+nUZkgL13ZNEvq6eTj/1xfH5l4cM75r6PTrvb3HezoSgEAQJEhgKFEcW82ZOKkEFPG/0w5uOS7NadMubzBcnbj+iNGIYQ+qG9vOw1cunp9etf64ECkKXXn2r9vjBrGQDCUEImmhG/Ofphoim9cJuj5qq86a1xu/Xd34eFjKB/s1ea/2M0/Rc1cfvV3X2f/Fl7tHFstAAAoKgQwlCRKmRbPvt8i83+q1+cdmJV7AEs/euiYSQih9Q8K9rfXvKWr16K5hxJ5Q00/GnHCJHyYDRElw8pri6+nR9dyq/titUk6xc5PcduyXcyqeUHUjN8vzm1SJthJ4yy/SAAAUOTokIVSzXLx6LEEixBCW7VGVa3dTfRVqgdohRCWqKPHE/M1qgwobumWtH+vb1CE8lTAKLvp65YOPt1rudWNM93YfXObzPIAAEDxIYChVLPExtywCCEUvW+lcvbPZm1FvwpaIYRqiY2JJYChRDiaeCjdklbDrY6/c5Xct2xXtqsQ4kD8Hil1AQCAYkcXRJRqalJikiqEUFxcXXJ4mqC4uLooQgihJifmPad9jv7444/Zs2ffxRsPHz4shDh27Nhd7xqli1FN//z02zHlYsze5jOXD2q1dppmY40xt/7v56ffzv3T0iypQogjiQfy3PKWBFO8EEIVPGsAAKCEIoChVFNTU1JUIYQwGAw5bZPxkpqcVIgAtnz58k2bNt3128PDw+/6vSgtbsUei2o5knBAOAkhxPXkK7lsH5seE5sek59PTjOnHkk4kP9KjJaCTCUKAAAkIoChVFOcnJ0VIYQwGo05bZOefvteNJeQlrdZs2YNHz7cYrEU9I1jx449evSon5/f3e8bpYQiFCGEXjG8XP2N0NDQlJSUkJAQFxeX7FseTti/NnpZoFvDPhUH5v6ZF1LOLLo839+58hC/Z/NTw6zzXySa4g0ap7w3BQAAjkAAQ6mmuLm7KUIINTUlNYfWLTXl9kuKm4fb3U9C7+bm1rlz57t4o6en513vFKWRRtHU82h8Nu1iYnJiHdcG7u7u2bcpayi/NnpZVNq52u71dEpuU3MeSggXQjT0aF7Po3F+9q7P9dMAAIDDMQkHSjWNT3kfjRBCTb96JYcZNszRl6+ZhRBC4+3jzQmPEsHXya+aS41EU/ymmNW5bHbDeP2f6+sVobTwZh0wAADuEdyPolTT+Nep6aYIIcwXzlww293EFHXuokUIoa1Up7YXyzCjpHik0pNCiKWXFx5JPGh3gxRz8rdnP06zpAZ5ta7qUkNudQAAoLgQwFC6GQIbBuqEEOZze8Ov2WsCM5/Ysz/eIoRiCGxYhy63KDHqezR5sPxDJtU07fR7q64uSbekWb8amXjwgxMTzySfqGDwfdL/BUcVCQAAihw3pCjdNNW6dQvU7TxkSg9btznm+SfLZ2njspzdtCHSJIRiCO7ZpRwNYChJBvkN0yjatdeWLr3yy5prS+u41/cxlE81p5xMPnYt7bIQoopL9bHVprjrPBxdKQAAKDIEMJRyuvoDBtSdGnHImLBh1vxjQ14LtDmnU0K/n7M7TRWKa8tH+lShwRcliiKUgZWebOjRbOmVhSeTjlqvtuyp8+5evl/X8r31SiHm7gQAACUPAQylna7x6Il9vh22LDZl10cjP+6w8o0Qz9sNXZarGya/MD3SJIS28tDJTz9A/kJJVMe9/uSaU28Yr59OPh5nvOmsdfF18qvuWuvWpPYAAOAeQwBDqadUHPzZZ0t2Prfiys1tb3UJ3jF8RP8gf0PciW2L5/62PSpVVfQ1n57+bvcyjq4TyIW33qe5ZytHVwEAAIodAQz3AF2N4QuWxQ4d/Oaac4kn1k6ftPbOS4p7vaHTl3zbz5fGBAAAADgenbJwT1C8Wk5YEb570dTnezav4eft4uTmU7lOywGvTFsVHvrT0/WcHV0fAAAAIAQtYCjRFJ/ha1KH53drTdnGgybNGjSpOCsCAAAACoMWMAAAAACQhAAGAAAAAJIQwAAAAABAEgIYAAAAAEhCAAMAAAAASQhgAAAAACAJAQwAAAAAJCGAAUDRUITi6BIAAEBJx0LMAFA0DBqnIM/W7joPB9bQwrv9xZRznjovB9YAAAByQQADgCIzutpExxbwaKVhji0AAADkji6IAAAAACAJAQwAAAAAJCGAAQAAAIAkBDAAAAAAkIQABgAAAACSEMAAAAAAQBICGAAAAABIQgADAAAAAEkIYAAAAAAgCQEMAAAAACQhgAEAAACAJAQwAAAAAJCEAAYAAAAAkhDAAAAAAEASAhgAAAAASEIAAwAAAABJCGAAAAAAIAkBDAAAAAAkIYABAAAAgCQEMAAAAACQhAAGAAAAAJIQwAAAAABAEgIYAAAAAEhCAAMAAAAASQhgAAAAACAJAQwAAAAAJCGAAQAAAIAkBDAAAAAAkIQABgAAAACSEMAAAAAAQBICGAAAAABIQgADAAAAAEkIYAAAAAAgCQEMAAAAACQhgAEAAACAJAQwAAAAAJCEAAYAAAAAkhDAAAAAAEASAhgAAAAASEIAAwAAAABJCGAAAAAAIAkBDAAAAAAkIYABAAAAgCQEMAAAAACQhAAGAAAAAJIQwAAAAABAEgIYAAAAAEhCAAMAAAAASQhgAAAAACAJAQwAAAAAJCGAAQAAAIAkBDAAAAAAkIQABgAAAACSEMAAAAAAQBICGAAAAABIQgADAAAAAEkIYAAAAAAgCQEMAAAAACQhgAEAACAP6WcvWlJS5ezLeOmqOT5Rzr4A+QhgAAAAyE36+UuXXvv4+qzfJOzLkpB0afxH1z6eLWFfgEMQwAAAAJAbS1yiUFVzfIKMfSWlqCaznH0BDkEAAwAAAABJCGAAAAAAIAkBDAAAAAAkIYABAAAAgCQEMAAAAACQhAAGAAAAAJIQwAAAAABAEgIYAAAAAEhCAMO9I+X0hm8nPNquXpXy7i4eFao26PD4pFlbzqc5uiwAAAAgg87RBQBFIiXihxGDxv9+NFG9/R+Szh+OPn9466JZM5+ZtXTG4Bp6h5YHAAAACEEAwz3Bcv6Xp3qO/jPKpArFtVq7fr1CqjjHn9q+alXopbS4gz8+3UvnuWNGTx/F0XUCAADgfkcAQ6mnRi+b/NrSKJOqGGoNnb/2hyE1nG69kHRwxuO9X1oZlXZizisfDGn3VXt3xxYKAMD9Ie3U+eSd4WmnLlgSEjUuznp/X9fghi7N6guFh6EAAQylnvnwrA+XXLEIRV/3pXkzM9OXEMKt0ai5M8KaDph/wXTi+/cXvrr+hQAGPQIAUIzMsTevz/49eW+E9X9MjTyVsGm7oaq/z/ODnWpXd1RtQAlBAEMpZz6ydGmEURWKS7vRY1u52b6o+PQcN6LBwncOmFK2L1lxceToyiQwAACKSfr5S1ff/858I07j6uLetbVLo0CtVxlLckra0dMJm7ann7t45e2vy415yq1NM0dXCjgSt6Mo3SxnN64/YhRC6IP69rbTwKWr16d3LZ0QaurOtX/fULN/AAAAKALmhMRrU2eZb8S5NA70/+7tsk8NcGlS11DN37leTc+Hu/t/81aZvp1Voynm25/STpx1dLGAIxHAULqlHz10zCSE0PoHBfvbO5119Vo091CEUNOPRpwwyS4PAID7xM1Fa0zRsU6BD1SY9ILWI+uwa0WnLTvs4TJ9OqlG0/Xvfxcqz0Rx/yKAoVSzXDx6LMEihNBWrVFVa3cTfZXqAVohhCXq6PFEfu4BACh6lqSUxE3bhVZTbtQTij7HES7eT/TXVfBJPxOVcuCozPKAEoUAhlLNEhtzwyKEUPS+lcrZP5u1Ff0qaIUQqiU2JpYABgBA0UvZf0Q1mV0a1Nb7V8xlM0Wvc+/cUgiRHHZIVmlAicMkHCjV1KTEJFUIobi4uuTwNEFxcXVRhBBCTU5MvvsA9vfff//www9ms7mgbzxx4oQQIjU19a53DQCAY6kmkxDCeP5S9Bc/2t3AGHVFCGG+fjOnDTKZ4xKEEMm79lniE+zvKzVdCGFJTStMwUBJRgBDqaampqSoQghhMBhy2ibjJTU5qRABbPbs2YsXL77rt9+8efOu3wsAgGOZY24KIcxxiUk79+WyWXrUlfSoK/n6wLiE3D9KTUopUIVAKUIAQ6mmODk7K0IIYTQac9omPT391v+TS0jL2zfffDNw4MC7eONPP/20atWqAQMG3P2+AQBwKJ1vOSGEvkolr0G97G6QHHYwaWuYS1BD9w4huX9U2qlz8X9tMjxQxXNAN7sbWG4mXP9xscbLo5A1AyUWAQylmuLm7qYIIdTUlNQcWrfUlNsvKW4ebspd76lixYqDBg26izfu2bNn1apVhQp/AACUAFpPD7dWTe2/5O6atDXMfO16ThtkSj10TAjhGtQgpy1NV2KEEIrW/tRawD2ASThQqml8yvtohBBq+tUrOcywYY6+fM0shBAabx9vTngAAIqeU71aWq8y6ecv5T67hinmRuK/oUJR8sxpwD2M+1GUahr/OjXdFCGE+cKZC/bnxzBFnbtoEUJoK9Wp7XX3LWAAACAnilbjNfBBIcT1Wb/easLKTk1Lj/5yrpqW7tamub5yJbkFAiUIAQylmyGwYaBOCGE+tzf8mr0mMPOJPfvjLUIohsCGdehyCwBA8fDo3taleQNzXMLlKZ8n796f5dX00+cvv/Fl2vEzugo+ZUfczZhq4J7BDSlKN021bt0CdTsPmdLD1m2Oef7J8lnauCxnN22INAmhGIJ7dilHAxgAAMVEoyk/bnjMtPnJew5d+2yO3q+iS5NArZenJTk5NfJ02vEzQlX1Ab4VJj2v9XB3dK2AIxHAUMrp6g8YUHdqxCFjwoZZ848NeS3Q5pxOCf1+zu40VSiuLR/pU4UGXwAAio/G2anC6yMTNu24uWSN8dJV46WrmS8pToYyvTt6DuiucXF2YIVASUAAQ2mnazx6Yp9vhy2LTdn10ciPO6x8I8TzdkOX5eqGyS9MjzQJoa08dPLTD5C/AAAoZori0a2NR5dWqUdPp5++YI5L0Li56P0rujQKVJyYEBgQggCGe4BScfBnny3Z+dyKKze3vdUleMfwEf2D/A1xJ7Ytnvvb9qhUVdHXfHr6u93LOLpOAADuFxqNc72azvVqOroOoCQigOEeoKsxfMGy2KGD31xzLvHE2umT1t55SXGvN3T6km/7+TL8CwAAAI5HpyzcExSvlhNWhO9eNPX5ns1r+Hm7OLn5VK7TcsAr01aFh/70dD26mwMAAKBEoAUM9wxN2caDJs0aNMnRdQAAAAA5oQUMAAAAACQhgAEAAACAJAQwAAAAAJCEAAYAAAAAkhDAAAAAAEASAhgAAAAASEIAAwAAAABJCGAAAAAAIAkLMQMAACA3ev+Kugo+zvVqSdiXtqynoYqfU+3qEvYFOAQBDAAAALnRlvUMmPGunH0pBr3fl1Pk7AtwCLogAgAAAIAkBDAAAAAAkIQABgAAAACSEMAAAAAAQBICGAAAAABIQgADAAAAAEkIYAAAAAAgCQEMAAAAACQhgAEAAACAJAQwAAAAAJCEAAYAAAAAkhDAAAAAAEASAhgAAAAASEIAAwAAAABJCGAAAAAAIAkBDAAAAAAkIYABAAAAgCQEMAAAAACQhAAGAAAAAJIQwAAAAABAEgIYAAAAAEhCAAMAAAAASQhgAAAAACAJAQwAAAAAJCGAAQAAAIAkBDAAAAAAkIQABgAAAACSEMAAAAAAQBICGAAAAABIQgADAAAAAEkIYAAAAAAgCQEMAAAAACQhgAEAAACAJAQwAAAAAJCEAAYAAAAAkhDAAAAAAEASnaMLAO4Ln3zyyezZsx1dBeR5+eWXfX1969ate/XqVUfXAgdQVdVsNms0Go2GB533KbPZLITQarWOLgSOcetHoFy5ch4eHo6upUS7du2ao0twAAIYULyqVasmhIiNjY2NjXV0LZDnvffe0+l0MTExt27CcH8ym82cAPc5i8Xi6BLgSNHR0dHR0Y6uoqRTFOXWzdL9Q1FV1dE1APe4c+fOcRN2v+ncufO5c+cWLlwYEBDg6FrgACtWrPjyyy/79es3fvx4R9cCx+jZs2dKSsratWtdXFwcXQscYN68eQsWLHj55ZdfeuklR9dS0rm4uFSqVMnRVUhFCxhQ7KpWreroEiCbwWAQQoSEhNSqVcvRtcABIiMjhRB+fn4dOnRwdC1wjFudD9u2bevu7u7oWuAAW7ZsEUJ4e3s/8MADjq4FJQ590wEAAABAEgIYAAAAAEhCAAMAAAAASQhgAAAAACAJAQwAAAAAJCGAAQAAAIAkBDAAAAAAkIQABgAAAACSEMAAAAAAQBICGAAAAABIQgADAAAAAEkIYAAAAAAgCQEMAAAAACQhgAEAAACAJAQwAAAAAJCEAAYAAAAAkugcXQAA3IM8PT01Go2Hh4ejC4FjeHp6CiHKlCnj6ELgMJ6eniaTyWAwOLoQOMaty//WTwGQhaKqqqNrAIB7zZkzZy5fvty6dWtHFwLHMJvN69ata9++PSH8L7igzAAAEvpJREFUvhUZGZmamtq0aVNHFwLHSE1N3bRpU7du3ZycnBxdC0ocAhgAAAAASMIYMAAAAACQhAAGAAAAAJIQwAAAAABAEgIYAAAAAEhCAAMAAAAASQhgAAAAACAJAQwAAAAAJCGAAQAAAIAkBDAAAAAAkIQABgAAAACSEMAAAAAAQBICGAAAAABIQgADAAAAAEkIYAAAAAAgCQEMAAAAACQhgAEAAACAJAQwAAAAAJCEAAYAAAAAkhDAAAAAAEASAhgAAAAASEIAAwAAAABJCGAAAAAAIAkBDAAAAAAkIYABQHEwJVw5f+781USzowsBAAAlCQEMAIpB8oaXG1evVmvw/EsWR5cCmZJObZ7z9rO9QupW9/VydXL1rFCtUefHXvlq1dF4ToT7gOXm4aWfjh3UsWG1il6uTs4ePn61Q3oNmzx785kk1dG1wSFS9r4b7KZRtJVe2Jju6FpQgiiqym8CABSx+JVP135owVVdx+knN4+pzKOu+4Iau+vr54e9+edxO/fait6/65s///xmp4qcDPcqy7Ut7w15/MMtV0x2/v4uNR/+5Pe5Y5qXURxQGRwmcfvrbbp8djBN1fg+v+7crG4GRxeEkkLn6AIA4J6TevC7qUuu0eJxX0mLnPFEv1fXRVuEUDRlanTs+2DwA2VSLxzZt+Pf7SdumI0XN77Tv79lw8Z3Wno4ulQUg7TD0x57+P1/blqEUJx9m3br1aFhFS/NzTN7Nq7YdCTWlHLyz1f6mMrsXDqsGhH8fqHe3DxlxFeH0mjoQHYEMAAoQunX9i2fPmn8J7uS+Uf3fmI+/t3IieujLULRVur2/qKFE9uV195+yRK7+5vhg177f3t3Hq/VnDhw/Hueu3VbbhITKkWmbCkxlUoxJEzGzmQwkvjZRsZStrJkKomxR2Iie7ZokiTbaLNWJC2iFZW6dW+3uzzn94ffzI9pMXQ71b3v9391zvM83/vq1T3P55zz/Z6X5peumtz/gkHHTrx+f6fBK5p4ydPX9H1rRTpEVfbu+tDzd3VpXPVfm9LL3u138u97j1+WXvLyNX1fOf7Bo/O25EhJSrx01OXd7/u8xJGA9XEiBmCTxfkT7r7wj7/vsF+92rsccErfVxc46FYuJZOHDJ5QGIeQ0ejcYU/2+v/6CiGktm/V4/GnLts3Owrx2o8fuG/8mi03TjaP9MLn/v7KinQImU0ve+TeH9RXCCFVu81VD13foWoUQtnil0a8XbjFRkmC0otH/Pn8v39RGjIzM912yroEGMCmW/3R8w8+/tJb0xauLpNelU/Z7PHj55WFELL2+9MFv6217vetaq0uPv/gnCiE9DdvjJtamvwI2azWTH7n/eI4hKx9Tjy1ec46m1P1Ox21X2YIIb1i5meL3Ztc8aW/Gn7BxU8tSGc0OO3yP+7qqzbrcgsiwKar3qLLlb1a/vuL9Zqpz9zzjzm+Z1cWpbNnzikNIaTqtGnbJGN9e6R+te++O6XGzStLL1m4uMzBt2JJL52/YE0cQsio37D++v79UzVq1kiFEEJcWLjGKZqKrnT2A+deOvLrOLNR98GDjhnXbuCWHhBbIccAgE0W5bU656ZW//5jvOzhjwcLsMpjzcpVcU6VKiFrt903tORlvOb7b95RTpUcdyRVMKkdT7xr/IGr4yhjxz1rrm+HkjmfzS0NIUTZDXev63pIxVb86Z3der66PM5qcsEDAzptP2Pclh4QWyUBBgCbZLvTn1tx+kb3WPv+2DeXpUOIsvZpvo8jb0VTtV6zNvU2uHXN9ME3PvpFWQipHTuf1mk7/V2RFX14y9m9384POfv2ePDm39aMSrb0gNhKOQwAwGZVPOO+a4bMKg0hqta+y3H1XAKp6OIVsyZ+9OXK/OVL5n06cdRjw8fOLoij3CZd7xt04g76qwIrmHBj15snF4Qq+18x9Pp21bf0cNiKCTAA2HxWTx/S7dieb6yMQ5TbrEffMz2Xu+IrmTzw+KOGfP3v5TZSec3Pvm3owK4tavnHr7jileOv6TZoalGo1vKaode0rPrTr6AS86sAADaLNXNH3XTc/q3Oe3pucRxl1j3mjieva5m7pQdF8tKrpj7516v7PzvTGvQVVrzslSvOueez4lCjbZ+hV+5fZUuPh62cAAOA8lbw+fPXdd636TG9X5xdGIdUXrNzHnn9qe5NPIK5Usg+/N6vCosKVy1fPPv9Vx669oS9qscFc8fc8od2x975SfGWHhybQbzkuUvOe2huabTdoX0fvHRf/8/5KQIMAMpR4aznrzlyn2Yn9h01tzAOUfVfH3vDyA8nPNClsZPilUYqMzsnJ7d6rZ0atejU9aYRE8dcfWDVKKSXjruu5/BFHgRW0aTnP3bhRU/ML0ttf0T/By5sYnYPP02AAUD5iFe8f2+XFs1P/OuYL4viKHOHA866fdyn017o/bvd3XlYiUV5B/XqffKOqRDiVeNfHLfSk8AqlHjZs1f85YUl6dSvOg8a3L3Reh8ECP9BgAFAOSid/8L5B7e/6MmZhXGUWaftxQ9Pnjn54R6H1s/Z0gNj84pXzHl/8qRJkyZPW7DBOV5VW7TcNzOEEJfMn7fQJbAKJV61cOHKdAjpb0Z2bZgR/Vj2QbfOLgshpJfcf0ROFEVRlKrddZT7UBFgALCp4pVv9vpdlwemF8ZR9q6d+42b+uadf9p/e8fYyqD0s/u7tGndunWbo/tP2tBjn6KMjNT3C9BnZLpEApWeG1UBYBMVvHldtzumF8VRduOuT7x2/wn1HV0rj8xGTRplhlllZV9/8P6X6UP3WF92l8z85PPSEEKUVbf+Trq8Qolq/ub0K3q1K1vvxvSi8UOGT/ouHVVrfuoFRzbMCCGqesAeGhyHCADYJOkFj/V7eG5pHGU1vezRu9VXJRNt3/6wFjljJqwtfW/Y0CkX9mu1zoS/+JsXBz+zoCyEKKfV4e1rehZzhRLVante37Yb2Fgy8YrnHpv0XYhqtDq7b7+Olkfk/zgNAwCbIl4yasTbBXGIstp0/58DLbdR6WQ0Ou2cw/OiEJd8ctsZ5w6bUfCjrcULX+190vlPL0mHkLHLqT1O8yRuwGk6ANgUaz+Y8MHaOIQofD70zMOe2+j1jYyGp9/7YLfGbkGqUFK7nD6gz6PvXv7Gd8WzhndtNmbQYUd22K/hDrnp/IWf/nPMmMnzC+MQopwm3QYPOGZ7178AAQYAmyC9cObnq9IhhLh48cdvLt74zpl7t11tFfKKJ3ufHiNGFp1x2g2vzF9b8u20Vx6d9soPN0dZOx965UPD+hxZR34BAgwANknZt0u+Xf8EfCqRqHa7q0Z9csLoh4cMH/n6pGmzFy1fE+fWrL1zo+Ztftu5yzlndmxUTXwB34vi2Kk4AACAJJgKCgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgAAkBABBgDblNLln4y656pux7VvutvOtWtUycquWnPHXfdueUSXHgMe++f8NRt4VdmMfr/JjqIoytqz1+TSH23KH35sbrQRqVRWbs0d6u3Z6ugzrrx79MyV6c3/MwJUXJlbegAAwH8pvXTC3Zd0v+7JT/PT8Q/+On/p/Pyl82dMGfvknb3rHdrjriE3Hrd7Tvl9ahyXFuUvW5i/bOHMyaMfu2PA4dc++vi1h+wQld8nAFQiAgwAtgnxt2MvP+L4v31UEIcQoio77Xdwh5Z7N9ixRkbJqqXzZ3747jsfzF+dLl7w+sCT2n16z+vPnrdn9s/8gCi3cceT2+yyzs0x6ZI1q5Z+9cl7781aVhLHxQvGXn/8yXnvjr1kL18iAH4+vzsBYBsQLx/V85w7PyqIQ1RtnzMGDR3YrdWvfnQQT6+aOfKWiy7sP25R6eJRl555S+t3rm328xIsyutw2ZAHjtjQi4rmvXxdlzNum7ginV7x1s03vXjmYyfWchUM4OcyBwwAtn7pRc/c+eT8shBSOxxz9+iHz/uP+gohpGo0Oe6mkaP6tKwahXjN+7fdOOLbeL1v9UtVadh5wFP9D8+LQgjpZa+OfGdD080A2AgBBgBbv7WT3phYFIeQqnX0OafU3+DRO7f5n684tlYqhPSK10dPWFveo0jVP/6k1tkhhJBe9cWcb6zGAfDzCTAA2OrFK75ZWhyHEKKqeTWyNrZn9RYHt21Qr169urVTRWvK9xJYCCGquVOd3CiEEOKioqJyf3uASsAcMADY6kU1tq+VFYW1cdniMSPeWtHhsO02NPsqtdv5I+eev7nGEa9euqwohBCi7Lr1d8rYXB8DUIG5AgYAW7+qbTu2qxaFEEpn3XfSoWf/bcys/C1wA2D8zeiRE4vjEKLqHTofmpf8AAC2fQIMALZ+qbqn9+3V+vsFMFZ89PdLj9pz5/otjj7ryoHD/jFlXn7pT76+HKydP/aGLn8ZuTwdoryDrr75j+uuVw/AT3MLIgBsC3IPuHrUq3kXd+/95PQVZXGcLlz04ehhH44eNjBEmXm7Nm/boUOHDoccevghB+5a/ReWUZz/9t/O7/7MOq+OS4tWfj136uQps5aVxFHOrkf1Gf5oz+ZVNvUHAqicojg2hRYAthXp/Fnjn3/25VfHvfHmxGmLVpf9+CgepXLrtj7lomv7XHLUbj8upLIZ/Vo3u/q9kpDZpOc/p/dv+YMzsPnDj61zxsii/+LDoypNuj3+2uDj65n9BfBLuX0AALYhqbxfH/anXrc/NvbDBcu//fzdFx/s95czjjygQV7m92sTptcseHdYr877t798zJLynyQWF80cetrBJ9w+Jd/ZW4BfSIABwLYpq9YeB/2+W69Bj4x+b97Sbz5/64n+5x7SIDcKIaRXTrn9tLOGzP15CZaq033M2ng90iWFS+dMfOr6zrvlRHHRvJFXnHzFq/mb52cCqPAEGABs+7Jq7XHwH3reP/6T9x48dbesKIT08tduuXtCSbm8eZSZW3v3Vqf0ee7lGw/KjUIo++qph8YoMIBfRIABwFYuXvLcpUd17Nix4+96jyvc+K7V9u46+NaTd0iFEMrmT5jwZVl5jiNrr7O6ts+JQogLZkyfm8jSiwAVjgADgK1dzqrZb4x77bXXxo6e/JNJFdXYu2nDjBBCiAtXF5bvXK2oVuMmdVIhhHjldytNAwP4JQQYAGzlohpNmzfKCCGUTn36qWnFP7F3wYzpX5SFEKLcRo3rl/NyhVGVKjnfTzJbsXILPAgaoAIQYACwtcvc7+RTmmZHIS7++Nbufd5avpGLT2s+uGPAC8vSIUTbdTql03ZR+Q4kLi0ri0MI8drVBeUzvwygshFgALDVy2x6ycDzGmdHIS54b8DR7brc8vJn+etcgSpdPvXpnkcffcPkgjhEVVtefu3xtcu5v0L41xvG+SstRQ/wS2T+9C4AwBYW1TzslhG3z+10yT8WlRbMeKrnMU9fV2v3Zi323nXH7fJyU8UFyxfP/fSjqXOXF8chhCirwYl3P3J5s5xyH0Yqr1bNVAhloXT2jNmlYZescv8EgIpOgAHANqHKvhc89+5uf73o4ltHzSmI4+Lv5kwZN2fKf+4VVW3U+cq77rrqqAbZm2EMGQ322rN69MF3cdmCEfe/eHW7k+q4lQbg5/F7EwC2FdkNjrr+pRlzP3j+jp5nHdOu6e51auZmZ2RkV6u5Y91fH3DYid2vvuelj+bNGNln89RXCCFUa9+pXbUohFC26IluFz69YjN9DEDFFcWxW7gBAACS4AoYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQgQYAABAQv4XLlgz88N05z0AAAAASUVORK5CYII=" width="576" /></p>
+</div>
+<div id="splines-1" class="section level2">
+<h2>splines</h2>
+<p>Lets fit splines for the follow-up time and age group using two
+different options: the splines are fitted in different model and in same
+model, <code>dependent.splines</code>.</p>
+<pre class="r"><code>c <- lexpand( sire, status = status %in% 1:2, birth = bi_date, exit = ex_date, entry = dg_date,
+ breaks = list(per = 1950:2013, age = 1:100, fot = 0:50),
+ aggre = list(fot, agegroup = age, year = per, sex) )</code></pre>
+<pre><code>## dropped 16 rows where entry == exit</code></pre>
+<pre class="r"><code>sf <- sirspline( coh.data = c, coh.obs = 'from0to1', coh.pyrs = 'pyrs',
+ ref.data = popmort, ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'),
+ spline = c('agegroup','fot'), dependent.splines=FALSE)
+
+st <- sirspline( coh.data = c, coh.obs = 'from0to1', coh.pyrs = 'pyrs',
+ ref.data = popmort, ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'),
+ spline = c('agegroup','fot'), dependent.splines = TRUE)
+
+plot(sf, col=2, log=TRUE)
+title('Splines fitted in different models')</code></pre>
+<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABIAAAAPACAIAAADCNZXvAAAACXBIWXMAAB2HAAAdhwGP5fFlAAAgAElEQVR4nOzdd2AUZf7H8WdmdrNpm0I6vUnvvYQqXaqoSBF7PcWGKHq/s95Z70Q9PRsqoCg2EKRIlyJVmvQm0gPpPVtmfn8khN2Qskk2s7vJ+/VXypRnZmdn5jPzzHckTdMEAAAAAKDqyZ5uAAAAAADUFAQwAAAAANAJAQwAAAAAdEIAAwAAAACdEMAAAAAAQCcEMAAAAADQCQEMAAAAAHRCAAMAAAAAnRDAAAAAAEAnBDAAAAAA0AkBDAAAAAB0QgADAAAAAJ0QwAAAAABAJwQwAAAAANAJAQwAAAAAdEIAAwAAAACdEMAAAAAAQCcEMAAAAADQCQEMAAAAAHRCAAMAAAAAnRDAAAAAAEAnBDAAAAAA0AkBDAAAAAB0QgADAAAAAJ0QwAAAAABAJwQwAAAAANAJAQwAAAAAdEIAAwAAAACdEMAAAAAAQCcEMAAAAADQCQEMAAAAAHRCAAMAAAAAnRDAAAAAAEAnBDAAAAAA0AkBDAAAAAB0QgADAAAAAJ0QwAAAAABAJwQwAAAAANAJAQwAAAAAdEIAAwAAAACdEMAAAAAAQCcEMAAAAADQCQEMAAAAAHRCAAMAAAAAnRDAAAAAAEAnBDAAAAAA0AkBDAAAAAB0QgADAAAAAJ0QwAAAAABAJwQwAAAAANAJAQwAAAAAdEIAAwAAAACdEMAAAAAAQCcEMAAAAADQCQEMAAAAAHRCAAMAAAAAnRDAAAAAAEAnBDAAAAAA0AkBDAAAAAB0QgADAAAAAJ0QwAAAAABAJwQwAAAAANAJAQwAAAAAdEIAAwAAAACdEMCAasGWdGDZx688ceeYvh2aNYiLDA3w8wsMjYyr37RtrxumPPL8u99uOZujVXUj1L/e6WuSrlJi71tpKdcANY313Ib/PXFTfKu6tYJNBoOff3BoZN2h7xyx5/83b/FtobLD6vIf+klClX+IVUo98e/eThtA3YfWlmMD8K3tp/SFdX1ZSt9IrtBS9sz/x9RBHRpGhfgbDUZTYEit2HYzfrVW5RLCB1XyO1jGxH3qGwp4ksHTDQBQOWrSjk+fe+LluZuvSVjWpJz0pItnTuzfsuyr/778ZHjLkQ//662ZY5oEeKahKMJy5MMb+z+y7KKt8HOzZ1nzLJfSXT1p1hJWv/3m0jOFZ+JyRL+HZ45tpFRsMHgj1zYSLWHxA/1u/eSIwy4gJ8OSl5CS69uBvTLY7AF4MQIY4Msyd8+6ZeSMFeetZZ5nabaUg4teHrf6h6kfLPzotmYmPVqHUmjnv3ryGccT6/JTk3d8/e6snYWn4kojMe7pa08xXRwM3sfFjSRrzQuPzD5S9be4fQqbPQAvRhdEwGfZ//xs8vDprqSvQlrmwbl3j3joJx/vyVYNaMmrF65L52NAKVzcSCzbFi45ay9rKACA1+AOGOCj1AvfTH/m5wS70+mZJAfEtOrSuWX9yCDZkn759NF9ew5eyFIdh9GsJ+Y8/Oy4fp+ODJN0brIQflHXte+QUXhRWo6oZ9a/EV7BfvbEKYvD5yL5d3pi4bfPdA+1WoyRBVfp5dAG7Tp0yCwcyq9JRA3fZVen7ceFZXFlIxFCS/vzZKLqMJrScNLsn/49qo6UJ4X4VVXzAQAVV8OP5oDPsh/+/O0ljqddkhLdd/oHH8wc1yrU4c62lv3Xr1+89MSzX+xOuzqs/dzXs75+YcSD9fS+BS7HTZq9fZLOM/VOWk62U5cxpemIyYOaRDrtko39Xtm46xWdG+bNqtP248qyuLKRXDuUFNJv0q3tYullDABeiy6IgE9SL6xbvd/x0RCl4b3zfnp1vFP6EkJIgQ36P/Tpup8ea2NyuLyu5W5ZujqJ/m9eRDL4GX32Zg704dpGIhmNBjYlPditFpta9mAAcA0CGOCT7H8eO+mYv+SoITf2Dy3htEsK7fvssyMd/6vlHfrjqO3q7+rJt+OdqgfXfnCNRQhhTdgx/+U7h3RuVrdWUGB4nWYdB0x4ctaPuxIqWFm4zCLFljUP1lYcBjDFv31SFULYEnZ8/dqDo7q3bBgTGuAfVCuuSaeht834YM2pnDLmmHdu27dvT588qHPLhrHhgf6BoVH1W/UedefMD5YdSLaVMa4QQqgZJ9bMfvGhCYO7NKsbHRZk8gsIjazdqE3vkbc99uq8jaeyyhtitctrZ01//PHHH58+a12i48j2c8tff/Lxxx9//PEZn+8uWCcllaG3H329u58kSYZWz+50LIZn/3NWHz9JkiTDdU9ttbo6mNtXmi1xz4//njaud5tGMeaA4Mi6zboMu+fledsSXFnfpdN/+ylThRe2lGVxcSPJ2/X5jMcff/zxJ1768bjjE2Ba5taPnno8f/y1l4vZQivw+Za0YoWavOfLmbf0a98oIrj1szuuHduN83LxQ6zwZl+s1HmjAxzaIofetjhPaBn7v5w+pkvdUH9/o8EQEF67afsBk579eM3JrKsjqsn7fnhr2rherRrGhAaYgsLjmnYZfvtzszedyytznvbk/cs+feXhmwd0atEwrlaQf0BoVL2mbXqMuOPp/8zfeCrblWa75TtY2Z1n6dy9awV8jQbAB+Wtuj/W8fqJXOu2n7JKGd5+9rsnxo68atStb2+3Ovz7xH96Oz4tIsc9sDo3cdOrQ2sXcy1dkkNa3fyvlafzrpnJqVl9nKYSc+8veeUaIG/1A3GOi+XX+z8n8s6ueK5/bLHX9KWA6yZ8tDejhFX059IXxjQLLimUymFtJ77160VbiatMTd758T2daykl30yQlIgud3+w9bK9lBVfhO3Ia92MJU5QCCGE/41fZ+YPnPvTlBDHuZuGfHxRdWUiStPpWyyuDubWlZZ1eMGjvaKL22iMcde/sPbC0bd6OW0AdR5cc81mVDJdt5+yVWphS1kWFzeSjPnj/Esfytj9jaPOn1VFP9/iVqxdy9j5xqDC5Tc0f3qbtarmVY4PsSKbfclS5o5yXMlSyJTvD39zR/OAYlsS2Gzi7APZmmZPWPvysPqm4oaRQzs+8N3JEmefd2r5Pye0DS95pyOZ6sQ/8OG2RLXkJrvjO1jRz67Mb6imaVW0awV8DAEM8EnWHTNbOj0KIof2/eeOtFIOy6W6NoDd8793hkWUcotcMsQOeWun87lrFQSwXs/PfbpTUCkdqiRDg9t+uHDNcTpjz39H1yuzu5bk1/DGjw/kFLNC1MS1T3cNcaUjlxTY+v5FZ0uOJM68OoBVdqVl//H+DXGlnFXJtfo/fEcnxyZVeQCr6PZTtsourAcCWCU+32JC0ZFDH42IcVgBzgHMnfMq34dYtQHM1LhlE/9SgoOx6QMLfv5799J2HVJAh+e2FHO1TE3a/OqQOFd6j0qBLW774lB2VWyWlfzsXAhgVbVrBXwMAQzwTek/TAovchCT/Ov1vfvlL1buPZ9V3hPKogFMMoWFBZZ9BG799BbHswD3BzA5yBwkl9UO5bonNjmdB6iXfrqzYSknIU4LYWg49ZoTcDXp57sauP7CIDl82IcnXTtPcEsAUxNWvfnoww8//LfJPaOd1lZI+/EPPfzwww9Pe3Hhn3ZXB3PTSlOTl9/fuLzPHlV1AKvY9lM2Nyys3gGscp/vNaGo55MvjI50ukDjEMDcO69yfojl2+zLUiSAubA8kiSVuecMHvy/v4o0wXL0w+GRrj8UIhmvu3950ftg7vgOVu6zK/MbWnW7VsDHEMAAH5W+8sGGJRzIJGNo/Xb9xkyd9n9vffLdym2HL2SWdQgrGsAKp6SENR805eEZz0x/4JY+DYOLngZJQf3fOXH1+Ov+AHZlPn5RrQbcOPWe++6eNKJznWu6/8hx96/MLZyGmvTT7XUd14xkajD0qY+WbvnjyJED23/54vmbW5ll59EnfZegOjXz3f5OV7mloGajps+a++PyNevWLPv+szceG9XCeRJKw0fW52rlYdkyvaljI40dXvqj6KdUUgC7wnbwX10cT9SVRo9tLObSviuDVXqlpa1+uGmRUz/JL7LdiDsenTHj0TtHtIss9op6VQewwpaUY/txgTsW1pXOWq5sJJpm/+vdfk5Tir5nRdEpVfbzvSYUBZuDi6zowgDm7nkVruHyfYgufjvKUGwAk5TQpn3HTb3nzltHdK1XbG9EISQltEmf/GE61yl6z0wKGPLxBaev8qG3ehfp8CfJIc2H3f/8rE+++Ox/b8yY3KtO0S6Ncu3bFjpFMDdslpX97MraqvXYtQK+gQAG+Cr10vK/tS6lN4zDQU4JimvT/6YHX/x05aFka3HTKjaAyRH9X1jv0M8/99TiRzsXeVeRsf2L+wqHqJIAJkfEP7PkpMONtpwjX0xo4HyeYez4cuGJqf34230cz4mUOhPmn3E6a1XTNs3s5Hh/T/Lr+OLeq+tFTZ4zynEKUuiozy84X2tW0zZOb+N4OqM0nf5buc7uvCuAVXal2U//b7BTHzHJUHf0rB3Jha21J219Y2jsNafVOgSw8m4/LrTCLQurawCr9Jei+FAkBdSPn/TEK+9+MufLeZ99NOfXc/YqmldFPsSqCmByRP+XNl4unFPW4U9vqlv0SpgcHv9/6xIKlyjzwIdj45yGURo8usGhMWlL76rj9H8psO2DP55yDB5q6q53R9VxWmTJ1O3Vg1f3vm7YLCv92ZWxVeuyawV8AwEM8GG2hA1vjG92zY2pUkjBTW945ttDRZ9AKCaAKXVvX3S56DNltlOfjKjldAh3TGBVEMCU2lN+vKYV6vlPhjmdash1HrpyDmHd83w7h4fjJFPv/xy/tr9Rxsr76zue8Dg9v2I79GpXxzM3KWz0F+eLTsN24N0x7dsUatv1iRXFPpNREq8KYJVdabb9r3R2PGeSjK2mb8wsMrqa8sv9jYqcqVZ5ACv39lM2Ny2sngGs8l+Ka0ORZGx06+fX7EiqZF4V+xCrJoBJQde/f8p5eWz7Xmzv1GNUCujz9nHnz8m66++tHZ/ZlcKmLi6MV2rC5yOdbn9JIQPeOVLMlbL0tY9c5xTBlCZPbC5YJndslpX/7MrYqnXZtQK+gTL0gA9Tovs89f2Bk9u//teDozrVDnAhiGmZx5e+dmvP/s+sKf01YJJfl4dnjowsOkGlwdRn72jsePS1HdmyvereKKbUGX/PDde0QoruFd/c8XRGy8ooqFqsXty04YhDTW5D+1EjGl67nwvuM3awY4kR28kNG05deaOPFBTk9Pyblrrk3vZdxj/2xpwVu89lFQyltHpk0Z4/Cu3b/u+hARVdSk+r7EpTzzu/lE4yD5sxvXdQkdGlsEEzn+jj0i1btyn39lM2713YErnjS1GUUvf29z+6o0WgDvOqgg+x4oydR99Q5AX2clzd2s4XpTqPG1Mk5ihx9Wo7/UVVr7Y1a9PKjY5NV+pOfvaeZkVety2EEOZ+Tz3ez/EOkv302tWH7UK4Z7Osiu2kyPxr2q4VKFkxX3EAPsUQ1XnCzM4TZn5gST6xd8f2Hb/v3rt37969+/YfT8iyF3tGoqbueHPygx32LLg1tqQzREOrESOaFveImV/XG4bEzjp+7soBV7Me3n/UJqLLKBpQQUqdBnWL2UtJIWEllNGy7N622+JwGqKlbPzv9IvXTkJLOuT0u+3QvkNW0dQkhBByXN/+LYwb9lkLp6NZL+/+8Z3dP77ztGSKatFzwKBBgwcNur5f50ah1WIXWtmVlr19k9P4pp6jh0cX8/nI9UaN6/bk+g0VfItcBZR7+ymb9y5sidzxpShCjh5+y8AQfeZVBR9ixclRMVFFM0mRohuSElf3mp5+pVTmsJ3Yu98xf8m1Bo2MvybZ5v+rzvCRnYxrNhVuVLajew9ki7Zmt2yWVfDZFZ17Tdu1AiVjEweqDb9aTboObdJ16MT8X9XshKN7dmz77deVi79fvPmvTNUxjKmXFr364b6bXmhf/D5A8mvWutj8JYSheevmBnGu8ACupiQmu3b5syLkku7qFf9nLSPhUo7Dcmq2Y0v/O8uF+Wg5588maaK2JIQQhnZ/e+X2L8fPPmG9Jr9qeZcPrf/20Ppv3/u7ZAxv0nXA8LET77xzbMdIH96XVnalxZw9djLb8QSydquWRSt0XvlP+/axyobT9uL+WSXKuf2Uze7FC1sC93wpnCl1G9UvbpOvinm5/0OsDEkus+OQrCjl6VykXjh3wXEPamjaunlxFZGEEEKu3bJFmLzp0tXrXxfOJqjCrLlhs6ySz66IGrZrBUpBF0SgupIDY1r0Gnn79De/2nDs5OZZ4xv7OXX+sB5evfZ0SclJCgoJLqHEomwOdSpTpeVlZdnc1ORKU1NTUiuWBtXMjMzCMaWoUR+sX/rPWztF+5V8UqFZU47/9uN7M27pcl33h7494QV3OiqositNS0tJczydksyh5hJWmxwZXY5S297IBxfWTV8KJ5KfqdiSelUxr+pOy83Jc96kzCW9AVkIKSTU6b6flp2Vrblns9Tls6tZu1agFN5wdABQxQxRPabNm/uI82MF9jN/ninp6ryWnZlVwhFVy850etRCMgUHe801SsloLOW4XirN+ZKsse7gmV//fvr0riUfPX/fqC71gkt8NY6mpu768LbRz23KrNiMPa7SK81gcNoASn0YxzueiqoE31tY930pvGte1YXkH+BUYV7LyMgscV1omZlO/5T8TH5CuGWz1Ouzq0G7VqAUBDDAB2mX54yPCXcQ2faZ36yljxPQdXAfpwKGWk52TknHTS3v6KGTxacz27FDxxzveCn1G9Zz/cWaVUwOjwx3el2Ry+XtLNuebnbtYphiOoy874WPFu84ffnsnhWfvzrt5vimYcVc+tcshz5+a2Gib55CVnalFR1fPXf4SFrxq8J6+mSJod83+ODCuvtL4S3zqi7k2NpOVR9txw8cKemmj3rx0CHHHt+SEhMXI7tns9T3s6sRu1agFAQwwAdJoXWilfTUq5IOL195sIyOgJaMjFzHw5hcK7JWiXsA24Fly/8s7jBt3b30l3MO/5Brde3ZwmvugInAps0d46CWcv5irlsm7B/bbugdz7zz7cZjlxIOr//qtfv61nHu0pm1a/t+r+mKWT6VXGlybKOGjgXBtdzNi38ptjJmzpala6vwgUE9+OLCVtmXwsPzqiYMTdu3dtyk1OQ1P2/OKXZQ9dyyJb87XmlTGrZtbZbctFl66LOrzrtWoGTec94EwHXGTn16Bn/0Y3rhEda2/93p/7158WOtSyrYaz0256NfHDuvSIFtOxZX6jiflrftvdd+ufOTEbWcrkmqZ+b/c/ZRh4OhZO49sJsL5a/0YmzXt1f4v48lFpxhaHk7N2zLnjT4mppi2qUtXy3YnlR4IiJH9Zg4sXukJIT95LyHp80/VZgxlSZT3393YoOrUdUY3qzfpKf73TQ4qnP3f149MdByc3I9fZlWc60rUNHBKrvS/Dt3b2f86tfCq/Za2rI3/rN93L+6O0/BdvSTV778yxvuCVWGDy5s5b8U3jmvcnLx26G/oPjBvQMXLCvsM2g/M//V2U/0f7hoGSQtbd3r/1nvWGtDiRs4qK1BCPdsllX92fnyrhVwOwIY4Iuk8BFTRkUt+qqwGpZQU9ZMHzDoxL9ef3py77oBTsdCW8r+JbNmPPbaGsdHrOWwwTdeH1rKLOx/fX7nhCYLv36615VHti1nls0cP21JouNU4sbfPTrCOx51yRfY79axtb/89GzBUd5+7suZL03q8mpfp5JguUc/e/Cm+388X3gqYGg+Y9P9k4QQQsjBeX+u/uWXwsfiJb+ET+8c83LnIqchWuaFC+mOZwVK42aNPdyFSstIz3Dhlsu1g1Vypcm1Bw1pZ9yws7CymZb3x5sTptZf/Nn97a5UDMg++vW0cc+sK6FblA/xxYWt9JfCS+dVLi5+OzxAih7/wM3/t+KL84W1DdPWPnPTYw2W/HtUvcJyiFrarncn3/bhccd3ffm1vfu+PvmXv9yyWVbxZ+fDu1bA/QhggE+Swka/8I+BP09bnVZ4TqHZL//233v7/u/x2q06tG/RMCY0ULFlJZ8/vn/XnmOJec4HXcnU9uFnbizjmqV6afVz/VvMHzR6cMe6/hknty5b/OvJDNXpJlqXvz06xOzeJass8+DHHur05XM7Cq6Zalm/vzGsyx9/e+qBG+NbxppyEo7vXPHle+99s8ehG44ce+MLj3crONWRIq8f1s20cuOVa66aZc+/ru+2/+47x8a3bRht9tNyUs4f373u+8/mrnYo5Sz5dRo3ponOZwmSn5/TQxNq6qrPvvi9/U2NjFYRElvL3/XBKrnSlOa3Tu7x8u8br16n1mx//fBQt82fjhg9sHWMlHRo45KlW8+W+MihT/HFha3sl8Jb51UaF78d3kAKHT59WrdvZ24tvLulZe19f2y7dSOnTh7euUGwNeHQhh/mLvjtrNNuXI6+8dmH2l15AaNbNsuq/ex8aNcK6MClJywBeCHrsdlj6xoqcPtJDu/7+q5sx0nZT/ynt+MxVDKZzaYypiwFdHnh9xynqZya1cdxKnLMvb/klWuAvNUPOD2P7tf7Pyfs1y65/cx/Bzg1N+y2xblX/52z+589SyrCfO1i+F13908XHGeiXl58Z4MSK3MVOw2l4b3LktXyfHiWLdOdehgZO7z0h63IMLk/TXEqOW0a8vFFp5mkLbip2OVUmk7fYinnYJVbaWry4jvrlv8kSa7zoIvP+Wuaptv2Uxa3LGyZy6K5tpFomv2vd/s5TSn6nhXXrtTKfb4urlg951Xmh+jit6N0KXNHOUU1/5u+zSkyiJr42XDHXthS0K0/FN2a1IsfD3EaJmTKT87DWA6/PzTC9afyJWPT+5ZectobuOc7WLnProytWpddK+AbKMIB+CxD07u+XvXJpOZB5TqgBTQa8+byn57qWNLDYvlD1br5ny/1Cy15ByGZmk75/LvnOnnTdeRC/h2e/mbOfW1LfplOISm4zZ1fLPtgdKzjkkqRI/8999me4a7uHuWwnn//8o1hxb/3tEqZ+47sH1r2bF0arHIrTQq/4cU3bmlQehlrKaTb7bcWXrL3XT65sJX8UnjtvErm4rfDSxibP/jVwhevj3XlipoU2GLKp0tmjYhyGtY9m2WVfna+s2sFqhwBDPBl/i3u+HL33kXP39gustj3ojqSjBFtxjy7YNe+hU90DyvziObX6pGvv5/ZN6qYy5WSqf7Q/1u0dvaEhl7bh1mpP+5/v675751doko8n5H8613/xLzfNn86sek1/Wek8L4vrdw0/6mhjQJLX1GSIbL7g7PXL3u+d9lrtApIsRNf/+ewmLIuKbs4WOVWmlxv4pe7Nn/66KCGxa4zSYno8cT8757t4sKZnffzyYWt5JfCa+dVEhc3e68hRfT5+9LfFr1wU+uwktssmer0eeDD9ZvnTG1x7SU092yWVfrZ+cquFahyXnv+BMBFAU1Gv/DD6JkXdy77cemv237ftffQXwkpqenp2VZjUGhoWHhMg5btO3Xu1mf4uBu6xpWjYKESO+iVVbuHf/XhB3N/2nL49MU0EVq7QfMuw265/a4pw5qHePtRUQrv9tBn2yZNX/7Ngp+Wrfpt/18XLiVmqP5hkXWatOsaf/3oWyeO7BxbyuoIajXhjRXjZuxft3jR0nXb9x04dPxcUnpGZrZVCQwJDY9t3LpDl/hhN026sU/Dct2BdDO/lg8t2tny4zffm//L1oOnL2dY5ICw2td1HNIpWq7AYJVcaXKtLnfNWjXl6Z1Lvv124c9rdx45dfZSjl94TL1W8aMm3vPA1L51DScOV9GK0J1PLmxlvxTeOq8SuLrZew9Toxv+8d2wh/ev+H7hspWrN+/788LlxNQcxRwRFVO3eZd+g4eOGj+2T4Nr6hJe5Z7Nsmo/O9/YtQJVTNK8tTArAP2oJ9/u2/KJzYVFjOW4B1ae+t/1VXNlGgAAoOby1stAAAAAAFDtEMAAAAAAQCcEMAAAAADQCQEMAAAAAHRCAAMAAAAAnRDAAAAAAEAnvAcMgBBSRN+HX39rnL3w9+D217F3AAAAcDveAwYAAAAAOqELIgAAAADohAAGAAAAADohgAEAAACATghgAAAAAKATAhgAAAAA6IQABgAAAAA6IYABAAAAgE4IYAAAAACgEwIYAAAAAOiEAAYAAAAAOiGAAQAAAIBOCGAAAAAAoBMCGAAAAADohAAGAAAAADohgAEAAACATghgAAAAAKATAhgAAAAA6IQABgAAAAA6IYABAAAAgE4IYAAAAACgEwIYAAAAAOiEAAYAAAAAOiGAAQAAAIBOCGAAAAAAoBMCGAAAAADohAAGAAAAADohgAEAAACATghgAAAAAKATAhgAAAAA6IQABgAAAAA6IYABAAAAgE4IYAAAAACgEwIYAAAAAOiEAAYAAAAAOiGAAQAAAIBOCGAAAAAAoBMCGAAAAADohAAGAAAAADohgAEAAACATghgAAAAAKATAhgAAAAA6IQABgAAAAA6IYABAAAAgE4IYAAAAACgEwIYAAAAAOiEAAYAAAAAOiGAAQAAAIBOCGAAAAAAoBMCGAAAAADohAAGAAAAADohgAEAAACATghgAAAAAKATAhgAAAAA6IQABgAAAAA6MXi6AXC/06dPf/TRR3a73dMNAaCfoKCgJ598MjAw0NMNASqO4xdQA9XA4xcBrBp6//3333jjDU+3AoDemjdvfsstt3i6FUDFcfwCaqaadvwigFVDVqtVCDFy5Mj4+HhPtwWAHhYsWLB7926LxeLphgCVwvELqGlq5vGLAFZtDRw48PHHH/d0KwDoYf/+/bt37/Z0KwD34PgF1Bw18/hFEQ4AAAAA0AkBDAAAAAB0QgADAAAAAJ0QwLzX3//+d1mWpfJ7++23hRCbN2/29BIAAAAAcEIA814Wi0XTtAqPnpCQ4MbGAAAAAKg8Apj3euONN7QK6dSpkxAiIiLC00sAAAAAwAkBDAAAAAB0QgADAAAAAKwfrRIAACAASURBVJ0QwAAAAABAJwQwAAAAANAJAQwAAAAAdEIAAwAAAACdEMAAAAAAQCcEMAAAAADQCQEMAAAAAHRCAAMAAAAAnRDAAAAAAEAnBDAAAAAA0AkBrObSbHbNrnq6FQAAlA/HLwA+jQBWU2nauUdfvvDMG0LTPN0UAABcpmnnHn354nP/9nQ7AKCCCGA1lSQJTbP8eTZn3xFPNwUAgHKwJ6flnTit5Vk83RAAqAgCWM0VPLCnECJz9WZPNwQAAJdJkiEyTGiaLTHF000BgIoggNVc5kG9JEXJ2r7XnpLm6bYAAOAqQ1QtIYTtUpKnGwIAFUEAq7mUsJCAzq2FXc1cv83TbQEAwFWGqAghhO1ysqcbAgAVQQCr0cyD44UQGat/oxQHAMBXKPl3wAhgAHwTAaxGC+jQ0hAdYUtIpBQHAMBXGKK5AwbAhxHAajZJohQHAMC38AwYAJ9GAKvpzAN7CkXO3r7Pnpru6bYAAFC2ggCWyB0wAD6JAFbTKbVCA7u01ez2zHVbPd0WAADKZqgVKimKPSVds1o93RYAKDcCGIR5UG8hRMaqzZTiAAD4AFlWIsOFptkSUz3dFAAoNwIYrpTiuJREKQ4AgPezJSQqYSGCx8AA+CYCGCjFAQDwHap6fvprllNnhRC2ywQwAL6HAAYhhDAP6iUpStb2vfbkNE+3BQCAksmyEELLswgq0QPwTQQwCCGEEhYS0KWNsKuZ67d5ui0AAJQm/z1gQgg7AQyADyKAoUBBKY7VlOIAAHg1Q0xBALNdIoAB8D0EMBRwKMVx2NNtAQCgRIboyPwfeBUYAF9EAMMVkmQe1EsIkbGSUhwAAO9liI7QhBCSZEtK1Wx2TzcHAMqHAIarggf2lBQle+c+SnEAALyWMSZCEkIyGoSm2ZNSPN0cACgfAhiuUsJCArq0FXY1c/1WT7cFAIDiGWIiC3/mMTAAPocABifmwb2FEBkrNwlV9XRbAAAohiEmQkiSsNoFj4EB8EEEMDgJaN/CGBtlS0zJ2XfE020BAKAYktGohIdomip4FRgAH0QAgzNJCh7YQwiRsWqTp5sCAEDxjIWFEC8lebYlAFBeBDAUdaUUxx+U4gAAeKGc3Qclf7/8n3kGDIDPIYChKCUsJLBbO2FXM9Zu8XRbAABwpqqXXvso9+Cx/N94BgyAzyGAoRjBg3oLITJXb6YUBwDAu8iyHBSgWWz5v9mSUjQ7hyoAvoQAhmIEtGteUIpj72FPtwUAACeG2Kj8HySDIuwqrwID4FsIYCiOJAVf31Pk16MHAMCbGOMKApjQhKAQIgBfQwBD8YKv7yUZDdm79tuTUz3dFgAAriq4AyYrmt0uKIQIwNcQwFA8JSQ4sEtbSnEAALyNMTZKCCGbjPm/2hIIYAB8CQEMJTIPiRdCZK7+jVIcAADvYYiLEkJoUsGvtkuJnmwNAJQTAQwl8m/TzFg72paYkrP7oKfbAgBAgYJnwCzW/F+tdEEE4FMIYCiZJAVf30sIkbFqs6ebAgBAATkoUA4O1Gz2/F95FzMA30IAQ2mCB/aQjIbsXQdsiRT5BQB4C2NhJXpJsqekaVarZ9sDAK4jgKE0ijk4sFt7oaqZlOIAAHgNw5VK9JoiC02zXeYqIQCfQQBDGQpKcayhFAcAwFsY46ILfrKrgkr0AHwKAQxl8G99nbFurC0pNXvXAU+3BQAAIYQwxEQKISSjUWiaIIAB8CkEMJTNTCkOAIA3yS+EKCkFpzFUogfgQwyeboC3s2UmJlxOSknPzrOqsinIbDaHRsZEBdes9Rbcv3vK/CU5uw7YLiUZoiM83RwAQE1niI0SQmg2W/6vvIsZgA+pWUHCRTnnti5Z8MPPqzZu273/5KUsm+b0X0nyC6nTpEXbrgOGjxk7dli3eoFSCdOpNmRzUFDPDpkbdmSu3RJ260hPNwcAUNMpIcFyUICalZP/K10QAfgQuiA6UZO2fXh/r8aNe0148q15K7YdTSiavoQQmmZJO3to2/K5r00b37NJw253vLMpwe6JxuoqeEi8ECJj7RbNTikOAIDnGWLyCyHmPwPGq8AA+AzugF1lOTH/nuF3fXks70rmkpTAWrXr1a8XF2EODAgwKaolNyc7Iznh3JnT5y5nWjUhNOvlnXMeH7hu/XvL5t/fOsCjza9a/i2a+NWvbTl9PmfnH4Hd23u6OQCAms4YF2U5eVoISciyPSNTzcmVA/w93SgAKBsB7Iqc7S+Nz09fkql2jwn33Tt5zKCebeuZleIGVnMSDu/4dcX3cz6es+JIuvX0T9NunNF0+7vXh1bn3ojBg3olf/Z9xqpNBDAAgMcZr7wKTEiSEMJ2Odmvfm1PNggAXEMXxHzq6c+ffXtfniYpdUbP2nxg85zn7xzSoYT0JYSQA2Ja9b3liXeX7t278JGOQZJmOfbJcx8drd49EYP7dZdMfjl7D1svXvZ0WwAANV1BJXpJEna7oA4HAN9BABNCCKGeWbRgU44mlHp3z543rXOYyzeyTA1Hv73g5fgAScvbtXDJn9U6gclBAUG9OglNy1yzxdNtAQDUdIb8O2DGgmul1OEA4CsIYEIIIWwH9xywakKOHnHzgJByjqs0GX9zN6MQ9mMHq/ktMCHMg3sLITLX/KZZbZ5uCwCgRjPmV6JXCx7c5lVgAHwFAUwIIYSWl2fRhJCCzcHlf4pLDgkLkYXQLHmWa0omVjOmZo38GtW1p2dm79jn6bYAAGo0JSxEDvAXtoJrn9wBA+ArCGBCCCGUug3qKkKoZ3/fdaHcVdZz9u7YbxVCjomLqQGr0zyotxAiY9UmTzcEAFDT5T8Glo9nwAD4ihqQGFxhaDdyeANFaDm/vv7Md2fK05FQy9j+5sw5p+xCjujdv52xylroNYL6dpX9Tbn7j1nPJ3i6LQCAGs0Q6xDALvMqMAC+gQCWz6/7/Y/0CZGE/fQ3U3sOnTFv+4W8Msexpx5e+taUXoNf3JKuSX6t7/3b4CAdWuppcoB/UHwXoWkZq3/zdFsAADWasTCAyZKak2vPyPRocwDAJbwHrIDS7KEP31w94KGlFyzn1rw5tcesx5p2i4/v3rFl4wZ14yJDg/z9/QyaNTc3JzPp4tkzfx7du+O3TVv3X8xWNSGEHNb7H7NndjV5eiF0Yh7WJ2P15sx1W8MnjpSMNeCuHwDAKxlirrwKTBNCCNulZMUc7MH2AIArCGCFjM3v+3aN/yMTH/18X6qqWZOPbV58bPPiMkeTza0mvj7v/Qc61YTbX/n8GtY1Namfd+J01pY9wX27ero5AIAaKv8OmKTIml0VQtguJpqa1Pd0owCgDHRBdBTQcuqnO49smfOPKX2bhBpKr4coGUIa9Z747GcbD+/+8sFOoeUvnujTgofECyEyV1KKAwDgMYb8SvRSwTHYlkAlegA+gDtgRRmiu9324rzbXrSm/rlv564/jpz461xCUkpmjsUmjAFBwcHBoVH1mzZv3qJN+zYNw2ps97vg+C4pcxflHj5hOX3er35tTzcHAFATGSLDJaNBu1KJ3ppw2bPtAQBXEMBKYgxr1HlQo86DPN0O7ySZ/IL6dMlYsSFz9eZad93s6eYAAGokSTJERRRW5bVd5A4YAB9AF8Sa69JbnyZ+8FWFRzfn90Jcv13Ls7ivUQAAlINTJXq6IALwBdwBK4MtMzHhclJKenaeVZVNQWazOTQyJirY99ebpuUdPG5Pzwzs2i6wa9sKTMCvfm1Ti8Z5h09mbfo9+Pqebm8gAABlMsZG5QihCSELyZaUqlltktH3j9EAqjV2UsXIObd1yYIffl61cdvu/ScvZdk0p/9Kkl9InSYt2nYdMHzM2LHDutUL9MkCHJIUetPw5M++S5m3KKBTK0lRKjAN8+D4vMMnM1ZtIoABADwi/w6YJIQmS0JVbZeTjLVjPN0oACgNXRCdqEnbPry/V+PGvSY8+da8FduOJhRNX0IITbOknT20bfnc16aN79mkYbc73tmUYPdEYyvLPLSPsW6s9XxC5qrNFZtCUK9OSkhw3vG/LCdPu7dtAAC4whgTKYSQZEloBZXoPd0iACgDd8CuspyYf8/wu748lnclc0lKYK3a9erXi4swBwYEmBTVkpuTnZGccO7M6XOXM62aEJr18s45jw9ct/69ZfPvbx3g0eaXm6TI4RNHXXrzk9RvlwX17SoHlrv9ktEQ1L97+uI1GSs3RzzAq1cAAHozxOVXopeFahdCWC8m+tjBGEDNQwC7Imf7S+Pz05dkqt1jwn33Th4zqGfbeuZiu+apOQmHd/y64vs5H89ZcSTdevqnaTfOaLr93et97XVggd3b+7dtlvvH0bRFq8Inja7AFEKG9ElfsjZz447w28bKQRz1AAC6MkRFCFkWqpr/q+0Sd8AAeDu6IOZTT3/+7Nv78jRJqTN61uYDm+c8f+eQDiWkLyGEHBDTqu8tT7y7dO/ehY90DJI0y7FPnvvoqC/2RAyfPEZIUvrP62yJKRUY3RAb6d+mmZZnydq4w+1tAwCgdJLRYIgIE1pB5xW6IALwftwBE0IIoZ5ZtGBTjiaU+nfPnjetc4jLI5oajn57wct72j+5MWfXwiV/Ptm8aUWKWRTv1KlTK1eurMCIiYmJQgj1yuXA0pmaNgjq3Tlr087U+Ysjp91egdmZh8Tn/nEkfcUG87C+FRgdAIDKMMRG2i4n5/9svci7mAF4OwKYEEII28E9B6yakKNH3DzA9fSVT2ky/uZuz2z81Xbs4FG7cGMAmzZt2pIlSyo8+rlz51wcMnzSqOxtezM37jTfMMDUpNyPcgV2a6eEh1rPXsw9fMK/RZPyjg4AQGUYY6Ny/zia/7MtIUlompB87IkAADUKAUwIIYSWl2fRhJCDzcHl32fLIWEhshCaJc9yTcnEypgxY0ZcXFwFRvzxxx8TExOjo6NdHN4QHRFyQ7+0RatT5iyMfenR8s5OUpTggT3Sfvgl45dNBDAAgM4MMVH5P0iyrFmt9pQ0pVaYZ5sEAKUggAkhhFDqNqiriEP2s7/vuqD2qF++J+Ny9u7YbxVCjomLcesjdfHx8fHx8RUYcefOnYmJiSaTyfVRQscNzVyzNffgseydfwR2Kfd7mc2D49MWrsresst+x41KqLm8owMAUGHG2EghhBCSpqlCCGtCEgEMgDejCIcQQghDu5HDGyhCy/n19We+O1OeWhpaxvY3Z845ZRdyRO/+7YxV1sIqJgcFhN48TAiRMneRZi93MRFDZHhgx1aazZ65flsVtA4AgBLlv4tZyJLQhBDCxmNgALwbASyfX/f7H+kTIgn76W+m9hw6Y972C3lljmNPPbz0rSm9Br+4JV2T/Frf+7fBQTq0tMqYh/YxxkVZzydkrv6tIqMPiRdCZKzcVFiKCgAAHRhio4QQVwshJlAIEYBXowtiAaXZQx++uXrAQ0svWM6teXNqj1mPNe0WH9+9Y8vGDerGRYYG+fv7GTRrbm5OZtLFs2f+PLp3x2+btu6/mK1qQgg5rPc/Zs/sWo4uf15IUpTwKWMuvflp6oKlQX26lPe9zAGdWhuiI2wJiTn7Dge0b1lFjQQAoAjZ36SEme2pGfm/WglgALwbAayQsfl9367xf2Tio5/vS1U1a/KxzYuPbV5c5miyudXE1+e9/0Ann779lS+wewf/lk1yD51IW7Q6fNKo8o0sSeZBvVLmL8lYuYkABgDQkyE2qjCA8SowAF6OLoiOAlpO/XTnkS1z/jGlb5NQQ+n1ECVDSKPeE5/9bOPh3V8+2Cm0uhS8Db/9RiFJ6UvWVuC9zMGDektGQ/bOP2xJqVXRNgAAimWMiSz8mQAGwMtxB6woQ3S3216cd9uL1tQ/9+3c9ceRE3+dS0hKycyx2IQxICg4ODg0qn7T5s1btGnfpmGYzxbdKJGpaYOgXp2yNv+e+vXPkY/cVq5xlZDgwG7tsjbvylzzW9gtI6qohQAAFGEoDGCSZM/IVLNzytuRHgB0QwAriTGsUedBjToP8nQ79Bc+eXT29r2ZG7aH3NDfr3G9co1rHtIna/OujFWbQ8cPlRT3vZQaAICSFdThEEKSJE3TbAlJfo3qerZJAFASuiCiKEN0RMjwfkLTkucuLO+4/q2vM9aLs6ek5ezcXxVtAwDgWvmvApNkSVNVIYSVSvQAvBgBDMUIHT9MMQfn7j+a/Xu5c5R5cG8hRMbKjVXQLgAAipHfBbHwLShUogfgzQhgKIYcFBB6U/57mReW973Mwf27Sya/nH1HrOcvVU3rAABwooSa5QB/oV55FdgF7oAB8F4EMBTPPKyPMS7Keq7c72WWAwOC4jsLTctYvbmK2gYAQBGG6IjCn60EMABejACG4kmKEj55jBAidcFSNSe3XOOGDO8nhMhcs0XLs1RJ4wAAcGaIvVqJ3nqRLhgAvBcBDCUK7NHBv0UTe3pm2qJV5RrRr2FdU9MGalZ21pbdVdQ2AAAcGR0r0aekl/fSIQDohjL0Qggh7NkpSRkWrewBSyP5h0WHmtzTIG8RfseNF2a+lb5krXlwvCEy3PURzUP75B3/K+OXjcH9u1dd8wAAyFdYiV7IsrDbbQmJfg2pRA/AGxHAhBBC/fODG1o9tcVauan43/xd6rc3Va8EZmraIKhXx6zNu1K/+Tny4XK8lzmod+fkOT/mHTuVd+K0qUn9qmshAADi6ruYJWG3CyGsFy4TwAB4J7ogCiGEMNWKCjNKnm6FdwqfPEYyGjJ/3W45edr1sSQ/Y/CAHoJ69AAAXRS8CkwpOJjbLvAYGAAvxR0wIYSQ693107nRf6yY+84rr87ZkWjThBBSUOMe8c1Cy5HK/DrEVsc8a4iOMA/vl754TfKchbEvPur6iCFD+6b/vC5r485at42TgwOrroUAACiRtSRFKXx1CoUQAXgtAtgVxsi2o574dMiIDqN7P7oyWRVKvVve+fnVrqwgIUTY+GGZ67bmHjiW8/v+gM5tXBzLEBsZ0K55zt7Dmeu3hYwcUKUtBADUcJIiK1HhtosFr2C2cgcMgLeqjrdsKsPU4v5X7mtO6nImBwWEjR8qhEieu1Czq66PaB7SRwiRsWKD0CpZ4QQAgDIYY6IKf+ZdzAC8FgGsKGOH4YPrKJ5uhdcxD+tX8F7mteV4L3Ng17aGqFrWi5dz9x+turYBACAcXwUmy/a0DDU7x6PNAYDiEcCuYWjTqS0FOYqSDErYpNFCiNRvyvNeZlkOHthTCJH+C6U4AABV60ohRCEpshDCdpGbYAC8EQHsGlJIhyFjBvTv161xCDHMUVDPjqYWje1pGek/rXF9LPOgXpKiZO/YZ09Orbq2AQBQ8C5mSdJsBZXoPdwgACgOAexahvaPfLNm3eo59zanJ2IRtW6/UUhS2uLVtsQUF0dRwkMDe7QXdjVjdTn6LgIAUF4FXRBlKf/BY+pwAPBOBDCUg+m6hkE9OmgWa+qCpa6PZR7aRwiRsWpzYXVgAADczhATKSRJqAVln6jDAcA7EcBQPuGTx0gGJXP9Nsupcy6O4t/qOr/6te0padnb91Vp2wAANZnsb1JCgwvr7nIHDIB3IoChfAyxkeZh/YSmJX/xg+tjmYfECyEyKMUBAKhKBodK9DwDBsA7EcBQbmE3D5PNQbn7j+bsPujiKEH9u8sB/rn7j1pOn6/StgEAajJjbGEhREXNyFIzsz3bHgC4FgEM5SYHBYaNGyKESJ7zo4vvZZb9TUF9uwkhMldtrtrGAQBqsMJK9EKRhRBWKtED8D4EMFSEeUR/Y2yU9ezFzPVbXR1laLwQInP9tnK8RgwAgPIwxBZ0QdRsNiGE9TyPgQHwOgQwVIRkUMImjhJCpH69xMVA5Ve/tn+rpmpObtaGHVXcOgBADZXfBVFS5PxaiDbqcADwPgQwVFBQr46mFo3tqRnpS9a6OIp5WF8hRPryXwtLVAEA4Eb5XRALjzHcAQPghQhgqChJqjV1nJCktEWrbEmprowR2L2DUivMevZi7qHjVd06AEANpISa5QB/ceX5ZOv5BM+2BwCuRQBDxZmaNQrs1l6zWNO+XebK8JIimwf1EkJkLN9QxU0DANRQhpiIwp+t5y/R5wKAtyGAoVJqTR0rGZSMdVtdrC9vHtxbUpSs7XvtyS7dNAMAoFwKXwUmGY1ansXFPhoAoBsCGCrFEBNpHtJHqGrKvEWuDK+EhwZ2ayfsasbq36q6bQCAGujqq8BkWQhhPUcvRADehQCGygq9eZgcFJCz+2DO3sOuDJ9fiiNj9WbNbq/ipgEAahzDlQCmWm2CAAbA+xDAUFmKOTh03FAhRMq8ha50tfdvfZ2xXpw9OS17296qbx0AoGbJ74IoKYpQ7YI6HAC8DwEMbhAycoAhJtJy6lzm+m0uDZ9/E2wFpTgAAG6W3wVRk6T8X20EMABehgAGN5AMSvitNwghUr5eouVZyhw+qF83OTAg9+Bxy1/nqr51AIAaxBAZLhkUcaWXO10QAXgbAhjcIyi+i6lpA3tyWpoL72WW/U3B/bsLboIBANxOlg2RtQq6xMuKLTlNzc3zdJsA4CoCGNxEksKnjhVCpP+02p6aUebg5uH9hCRlbtihZmZXfeMAADVIYR0O2d9PaJrt/CXPtgcAHBHA4Db+ra4L7NpWzclN/XZpmQMb46IC2rXQ8iyZ67fq0DYAqMnUrLN71v38/VdffPHVDz+v23U6o5oXoS18FZiQhKAXIgAvQwCDO4XfNlZSlIzVv1nPXChz4Px69OkrNrhSOxEAUAwt+fiObdu2bdtx4EJucf/PObnstak96kTW7zhw1M1T7rxzyk2jBnZuGBXb/sbn5u9JVvVurk4KXwWm5loEhRABeBkCGNzJWDsmeFBvoaopXy0uc+DAzq0N0RG2i4k5ew7p0DYAqIYsa5/t26NHjx697/7yTNHbWmrCyhkDu46aOW/bxVyn61xaXuK+hf+a0qPrze/vzqiOV8DyuyAWluLgDhgAr2LwdAPgMelL1kp+RvPQPu6dbNiEEVkbtmfv/CP3jyP+bZuXNqgsm4fEp3z5U/ryXwM6tnJvMwCghrPsnzVhwr+3pqpCCMkvuk3/QX07NI0JFlkJx3etX7n+YKI17+TCR0dJ5o3fTG1Uzc4GDDGRQgghy0LwKjAAXqea7XLhMk1L+eZnLc+iWawhowa6ccJKSHDo2MEpXy9JnrOw9ptPiytvYimWeXDv1O+W5+w+aD1/yVg72o3NAIAaTT0//9lXNqaqQlJi+j87+7OZNzQMuPpfLfPId89Ouf/9nannFj751LdDvpsUW9q+2ucYYyKFJAmrTQghJMl6/pLQtNKPRwCgG7og1lSSFPnAJCFJyXMXZm7Y4d5ph4wcYIgIs5w6m7VpZ+lDykGBQb07C03LWLnJvW0AgJpMPfP95ytTVSGZ2j218KeXnNKXEEIKbn7LO0s+ubWuItSkxf+ZfaiaFeWQTH5KWIimafk/axar7XKypxsFAAUIYDVXUJ8uEXffLDQt6f0vc3YfdOOUJZNf2K0jhRAp85doVmvpA4eM6CeEyFy3hfe0AIC7ZG3Z8LtFE1LoqGee6mEudhApdtxzD7Q3Cs32xy8rz1S7chzGmII6HJKfUQhhpRI9AK9BF8QazTysry0xOW3R6ktvfRr74qOmpg3cNeXg/t3Tl2+wnDydvnR96NjBpQzp17CuqUXjvMMnszbsMA+Jd1cDAKAGUxMvXLRqQvh17B8fVmLHO+W6+N5xyq7TtpPHTtpEQz+3zX7u3LnvvfeeVv4KtydPnhRCHD58uPJtMMRGisMnhBBCVYUQ1nMJAR1aVn6yAFB5BLCaLnzyGHtaZua6rZf+9b/YV55w24NYklRr6tiLL7yb9sMvwQN6KKHFX4DNFzK8/+XDJ9OXrTcP7k0ffQBwB0kIIeTQ8NBSurpIYbXCJHFaTUtJc2stxBUrVuzcWUYX9FLs3r278m0wxBa8CkzNzhXU4QDgTQhgNZ4kRT44Sc3Kzt6+L+HFd2P/+aQhMtwtE/Zv0yygY6uc3QfTfvil1l03lTJkYI/2Sq1Q69mLuQeO+bdp5pa5A0ANJsc0aRQsb0pWLydcVoW5pAymJl5KVIWQQsNC3Xrta/bs2U8++WQFRpwyZcrhw4dr165d+TYY46KEELLJT82zCCrRA/AmBDAIIctRj95x8cV3846euvTqh7EvPyYHBpQ9lgtq3X7juX2HM37ZaB7Wt5R7a5KimIfEp36zNH35rwQwAKi8gPhRg8O/WpC8a8nyM4/+rUHxCSxv5/LVl1QhBbTp2NLo1rkHBHTu3LkCIwYGBrqrDfmV6DW5IFlaz15w15QBoJIowgEhhJBMfjEzHzTWibH8de7S6x9r+aV7K81YN9bcv4dmt5f5XmbzkD6S0Zi94w/bpSS3zBoAahT7oY/vnXDnIzP/9e7n363YtPekdeCTj3QKEDm/vvL4l6eLq3GopW155bEPj9uEZOoxcmhMtev9bYyLFkIIi00IIRmN9tQMe0amh9sEAEIIAhgKyeag2OcfMUSG5x44dvk/n+U/tVx5YbfeIJn8srftyTt8spTBlJDgoF4dhapmrNzolvkCQI2iph//9Ycv/vvac4/edcvwPh2axkXHv3HAJoR6cdEDI55e7xQ9rEn7F78+qffQf+7I0oRSd9KTk+tVv7MBOShANgdpdrsQQg70F0JYz9ILEYBXqH67XFScUiss5rmH5ODA7B37kj791j3TDA8NHTNICJE850dRakWskBsGCCEyVv2m5VncMmsAqP6UlmMeuXfiqAFdW9ar5a9cvY+lqZbsHKsmhNByju85nHF192vd/HTXDmOe+eZAhiYk03W3v/vK8PBqd/9LCHHlMTAhhJBlQS9EAF6DZ8DgxFgvLvrp+xNe+m/Gyk1KrbCwm4ZVfpoho6/PWLU579iprK17gnp2LGkwv8b1TM0a5R39M3PjDvOg3pWfLwBUf4bWk9/4eHL+z2pu8tmTx4s4KGeq1QAAIABJREFUcSaxSA9ENb+HgySHdXxw9o+zxsZV12uxxtiovKOnhBD5b6S0nr3o4QYBgBCCAIZr+bdsEvXYHZf+PTt1wVJDrdDggT0rOUHZ3xR2y4ikj75OmbcosEtbyVjiVhcyot/lo3+mL11vvr4X9egBoHxk/1r1W3Wr36rbQIc/apa0i0la1NU9qhRQu9OwqRMGj500eVT7yOp8GpBfiV6SJTUrWxDAAHiN6nrZC5US2L19xL0ThKYlfvh19vZ9lZ+g+fqefvVr2y4lZazcVNp8e3ZUwkOtZy7kHjxe+ZkCAITkFxoXF+aQswxdZvz485zXHx1XvdOXKAxgJpPQhBDCcoYABsArEMBQPPPg3mE3DROqevmdL/KOnars5GQ5bPJoIUTq98vVrJyShsqvRy+ESF+6rrJzBADUbMbYSCGEJElCCMlosCen5t8KAwDPIoCVwZaZeO7PI/v37v595++7/zh8/NS5y5nuKdHu/cIm3BA8sKeWZ7n06ofWC5crObXAzm382zRTM7LSfvyllMHMQ+IL6tEnJFZyjgCAmswQFyWEUC1WIYRsDha8jhmAdyCAFSPn3NZv//PU1OE9mscGB4RE1W3com2HTl26dunUruV1jerGhASF1WvVY8TtM9/7cduZ7NLq+vk6SYp8YGJgt3b29MyEl/9rT02v5PRq3XGjkKT0petKCVdKqDmoVyehaem/UI8eAFBxijlYDgrUbDYhhOxnFEJYzlAIEYDnEcCcqEnbPry/V+PGvSY8+da8FduOJmTZrglYmmZJO3to2/K5r00b37NJw253vLMpobh3XFYPshz12J2m5o1tl5IS/vWhmptXmYn5NawbFN9Fs9lTvllaymAhIwcIITLX/FbJ2QEAarj8XohCaJpqF9ThAOAdCGBXWU7Mv6Nnv4c+3nLRkp+6JCUwol7zjr36Dxo6YtTYcWNH3zBs8IDenVs1jA425teT0qyXd855fGC3mz46UOJzTb5O8jNGP32fMS7KcvL05bc+zX+pZYWFTxkjmfyyNu3MO3G6pGH8GtX1b9FEzcrJWr+tMvMCANRw+XU4hJDUzBxBAAPgHQhgV+Rsf2n8XV8ey9OEZKrdc+oLn/2y+6+U9MTTh3dtXrdqxdLFC39c+NPPy1eu3bTzwJ8JaWkXDvy64N+PjGgeIgvNevqnaTfOWJNWbXsjKiHBMX//mxJqztlzKOl/80t/n3LpDBFhIcP7Ck1LmbeolMHMN/QX+aU4KjEvAEANl/8uZsloULNzhBBWuiAC8AIEsHzq6c+ffXtfniYpdUbP2nxg85zn7xzSoZ5ZKWFwOSCmVd9bnnh36d69Cx/pGCRplmOfPPfR0erbE1EYYiJjnntQ9jdlrt+WuqC0DoRlCh03VDYH5e4/mvP7/pKGCere3hAdYb1wOWfPocrMCwBQk12tRC+EZDDYklLVnFxPNwpATUcAE0IIoZ5ZtGBTjiaUenfPnjetc5jLrwA2NRz99oKX4wMkLW/XwiV/VuMEJoRf4/pRT9wlFDn1+xUZqzZXeDpyUEDYTcOFEMlzF2p2tYSB5IJ69MvWV3hGAIAazpgfwCRJCKGEmoWmUQgRgMcRwIQQQtgO7jlg1YQcPeLmASHlHFdpMv7mbkYh7McOVudbYEIIIQI6tY6471YhRNKnC0q5f1Um87A+xrgo67mEzHVbShxmUG/J5Jez5xBd9gEAFZN/B0y1WIQQUoBJ0AsRgBcggAkhhNDy8iyaEFKwOdjlm1+F5JCwEFkIzZJnqQHPK5mv7xV283BhVy+//bnlZImFNEonKUrYpNFCiNSvfy6pN4gcHBjcr5vQNG6CAQAqRgkzywH+Wp5FCCE0VVCHA4AXIIAJIYRQ6jaoqwihnv1914US+sSVLGfvjv1WIeSYuJiasTrDbhkRPKCHmpuX8MoH1osVfEFzUM+OphaN7WkZ6UvWljRMyMiBQpIyf92uZmRVtLEAgBrNUFCJXmjZuUIICwEMgKfVjMRQJkO7kcMbKELL+fX1Z747U56OhFrG9jdnzjllF3JE7/7tjFXWQq8iSREPTAxo39Kennnp1Q/VzOyKTabWlLFCiPTFa0p6xbOxdnRAh5ZaniVjdcUfOQMA1GT5j4EJWbKlZQq6IALwAgSwfH7d73+kT4gk7Ke/mdpz6Ix52y+U/Qpge+rhpW9N6TX4xS3pmuTX+t6/DQ7SoaXeQVKUqOl3+zWsYz2XcOmNjzWrrQITMbVoHNi9vZqbl7pgWUnDhIzoL4RIX76hku8fAwDUTIa4KCGEHBSgqapkUGyXk9Xcsg/xAFB1DJ5ugLdQmj304ZurBzy09ILl3Jo3p/aY9VjTbvHx3Tu2bNygblxkaJC/v59Bs+bm5mQmXTz7/+zdd1xcVdoH8OfeO70PHUIIkEAqCenV9J6Qarp1rWvd1V1X3dd1XcuudXWLq6uuJdXE9N57ryQhIXQIECDA9D5z7/vHIME0SQQGmN/3L33uufBA/HjyzDnnOZfzs9KPHzpw5HyZnReIiNUN/tNXr/SVBvqHaFKsXBb56lNXXv3AeSGn8l/fhf/mYWLu+ACdfsFUx4nzlp2HNBOHidtG3zhAntpZHBvlKS6zHzmjHNy7IRIHAIAgIo4MJyJWIuHJzoVovRXVnstXpEnxgc4LAIIXCrBa4o6PL98pe3be81+fNfKCpzr74Lrsg+t+9jVW3WXeuwv//WSv4Fn+qsWFaCP/+NSV//vIdvCUKDJcPz/tTr+COCZCNWawZcs+w+J1ES8/cZMRDKOZOLzqv8vMG3ejAAMAgDvlXwETeIGIOIXcS+QuKkUBBgABhC2Idck7P/DliUuHv/3TfUPba0W3X85hRJqEwfNe/d/+zNOLft1Le+fNE1sHcdvo8Bd+xXCcadVW685b9pS/Dd3siaxCbj9xznnu0k0HqIb1Y9VKV1aBKyv/lyULAABBR+wvwBxOIhIYlog8RaUBzgkAghtWwK4niuh3/xsL73/DY8w/e+LUuUu5hSXlVQarw+0lsVypUqm04XEdOnbs1K1Ht3hdkDTduD15j86hj8+t/M/iqv8u48JD5N073tHrnEalnTrasHR99XerY977w437GBmpRD1miGnVVvP6XeEvPtJwiQMAQOvH6bWsXOa/8kRwuojIjQIMAAIKBditiHUJvUcn9B4duAw+++yzjz76yHfnzSdKSkqIyGy+eWvBxqAaNdBTdtW0etvV97+IevsFSVzMHb2umTzCvHW/O7/YdvCkckifmwwYP9S8boftaLq+vFIUGdZAWQMAQFAQRUe484qIBK/BRESeAhRgABBIKMCar8OHD2dnZ9/163b7XXaHvzv6+Wne8krboVMVf/s8+p0XOZ2m/u8yUol+3uTKfy8yLFmv6J/KiK//z5IL0SoH97buPWbesi/kwRkNmjgAALRy4pgId14RK5fzDierkPksVp/RwunUgc4LAIIUCrA7wNuKzx47k1NaaSV1WExC9z494tRc4327r7766vXXX7+LF6dMmZKRkREVFdXgKd0Ow4Q9c7+30uDKyq94979RbzzPSO5gh6ZqeH/zpj3u/GLLln2atJE3DtBMGWXde8y645Bu1gRWIW+4vAEAoJUTx0QQEaOUkcMpCg1x20s9l0s53Z1tmAcAaCgowIiISKjOOZFdxROrikvpGi274bkjb9Mnf/7LJyuOlTmF2iAjDUuZ+Pgf/vTi3NSQxmhmIhKJEhMT7+JFqTQwDfEZiTjilSfKXvnQlV1Q+c/vwl/41R00pmcY/fwp5W9/avxhi2rEAFaluO65pF0bWdckZ0a2ddcRzeQRDZw6AAC0XuLoCCJiWc5HxKrkROQuLJWloAADgMBAF0QiInLvenXogAEDBgx+ZNHl649c8eXbXhrZN+2VhUfrVl9EJLgqz65+574BfWf9+7RFICAiTq2KePkJVim3HT5tWLbhjt6V9+wi79GJt9lNq7bedIBm8kgiMm/aQzzfALkCAEBwEMVEEBHv9RIRsQyhDwcABBQKsJ/hPv/xnDkfHqnmiYiRRKSMnf/0S3/6y1/+9Ien54/pGiZmSHDlrX4+7eGF+d5Ap9pMiGOjwl94hDjWtHKrde/RO3pXf/90Yhjzpj3e8sobnyr6dBNHh3srqmxH0xsoWQAAaP38WxB5s5WIeJeH0IkeAAIKBdht8aVLXn1rv5Enhosc8dr6SwVnty7+17tvvPbaG3/71+Jt5/LPLXu2j44VfCWrX/z98jKsgtWQ9+gU+uhsIqr6bKkrM6/+L0ri26iG9hW8PsOyjTd5zDCaSSOIyLx2RwNlCgAArR8rl3E6jeD1ERFfbSSGcV++QgJmbQAIDBRgt8Nf/uHrbUaeGGn3369e+5dJ8T/t/cCoOs7+ZP0Xc2M54qvWffTVxTtuGN96qccM0UwaLni85e9+7i27yXLWregXTGGkEtuBE+68ohufqkYM4NQqV07hHdV1AAAQ5PyLYCQSeatNIr1GcLm95VWBTgoAghQKsNuxHd530i0Qo017+fcDbt6uloma/scne4hJ8J7buu0yjibVEfLQTEWfFN5iK//bZ7zdUc+3uBCdZsJQEoTqb1ff+JSRSlRjBxORaf2uhswVAABaNX8fDpFGRURcWAjhGBgABA4KsNvgK6+UeQQicc/hQ3S3bOfHJQ0ZHM2R4M3LzsM5sLoYJuz5B8Vtoz3FZVc//qb+nTO008exaqUzI9tx+sKNTzUThzNisf1YuqfsaoOmCwAArZa/DwcjlxKR/y4Td1FJgHMCgGCFAuz2GCIiVqvX3uYXxehCdAyRYDKYsJ/8p1i5LPKVJzm1ynEqw7BobX3fUsp1M8cRUfW3qwTf9WUbp1Urh/QmQbBs3NOw2QIAQGtVswWxzjTtKboSqGQAIMihALsNNrJ9gool4q+WX73N6g1fWVHJEzFanbbet14FD1FEaPgfHmNEnGndTsvOQ/V8Sz1uqCgyzFNcZrtZH0VN2khiGMuuw7zV3qDJAgBA6+Tfgig4nETEOxyELYgAEDgowG5HPiRtjJ4lz6n1m299vMt1YvOOCp4YabeencVNmV2LIevUPvSJeURU/cX3zgs59XmFEYv089OIyLBso+ByX/dUEhcjT+0suNyWbfsbPFsAAGh9RFHhxLFek4WIfFcNxLGeKxWCxxPovAAgGKEA+wnfxf8+NufhZ1955x9fr9hyID3PM/LFZ3vJybH3rd8uKrpZj0PBdPit33yW4yVGOmDyuEisgN2CasQAzYRhgtd39aP/+aqN9XlFOaiXtH2cr9po3rD7xqfaKaOIyLxxD6ZPAAD4WYyIE4WHEM8zYpG32iiODCcf77mMXYgAEAAowH6CN+fsXfnNv/72x+d/NXvCPakdoiOGvJfhJeLL1jw58Q97rHXHeqrOr3t3/uBxbx+3CcTFzn9xQVv8Nm9D/9BMWUpHn9Fc8d4X9aqaGEb/4HQiMq3Z7jNarnsoS+koSWzrM1ms+443RrYAANDK+HchciFaIhKF64nIXYA+HAAQACgZiIiI6zz12cfmpY3o27ltiIy7to4l8G67wyMQkeDIOZNpuXZ613PwD31Tp768LMMiECNNevAfb03QY/3rdhiOjXjxEXFUuCunsOo/S+rziqxLkrx3N97hNK3ccuPTmkWwtTtxmSYAAPwsfx8OVqEgIlYuJxRgABAgokAn0DyIui54778L/P/MO6uL83Kuk3u58rodiLy/qzrD6nr++qtVH0+LRi37s1iVIvylx8pe/dC677gkoa0mbeTPvhJy/7SSMxcs2w6oJw4XR4fXfaQc1MuwdIOntNx+8ryiT0qjZQ0AAK2BfwWM4VgiEnieiNwFxQHOCQCCEgqwG7CykLgu/eK69KtbHQhuU1mVEH5tjYuRx/Qa/8CcMdPmL0jrEYZfY31J4mLCnr2/4oOvqhetkcS3kaV0vP14cWyUanh/687DxiXrwl985CfPWFYzYVj1NyvNa3egAAMAgNsTxUQSkeDyEBFvsxORu7CEBIEYbGABgCaFZZv6YSTa6GhdnTpL1OelVRu+fff56ai+7pSif6pu5njy8Vc/+tp7tfpnx+vnTGKkEtuRM66s/OseqUYPYpUK58VcV3ZBo+QKAACthX8Los9kJiJv2VVOp+ZtjvpMQwAADQsFGASAbs5ERe9uPou14t3Pb+wyfx0uRKeZPIIEofqbldcd92JlUvW4IURkWrOjEdMFAICWTxSqY2VSn9nKSMTeKqM4Nob8i2AAAE0LBRgEAsOEPfegODrcXVBS9d9lPztcO20Mp1O7sgrsJ85d90gzaQQjEduPpXuKyxonVwAAaBUYRhQTQUSiMD0RiUI0ROTOxzEwAGhqKMAgMFilPOKlx1mZ1Lr3mHnT3p8ZLJdpZ4wnIsPCtYLvJ3dic1q1alh/EoSbXhcGAABQS9wmiog4lZKIGImYsAIGAIGAAgwCRtw2OvTp+4hhDN+ucmXm3X6wetwQcXS4p7TcuuvQdY+000YTy1r3HvVVmxotWQAAaPEksVFERBxHRILHR+hEDwCBgAIMAkk5sKcmbaTg81V88OXtyyeG43TzpxCRcfnm646NiSLDlP17CB6vedOeRs0WAABaNHGbSCIS3B4i8hrMjFjsraji7Y5A5wUAwQUFGASYfsFUWZckn9Fc8eFXgs93m5HKAanSpHifwWRat/O6R5ppY4jIsnU/b8M8CgAANyeOjSIir9lMRN6SK+K20SQI7qLSQOcFAMEFBRgEGMOx4S88zIVoXZfyjEvW33Yoo39gOhGZ1+7wGc11n0jbx8lSknmH07L9YKNmCwAALZcoOpzhOF+lkZFKvFVGfz2GPhwA0MRQgEHgcTpNxAuPMBxnWrfTfvzsbUbKOrdX9EnhnS7jii3XPdJOHUNE5o27BY+nEXMFAIAWi+E4UWQYCYI4IoSIWLWCiDw4BgYATQsFGDQL0k6J+vumkiBU/muht6zyNiP1908jjrXsOHBd33l5amdJYpzPYLLuOdrIyQIAQEsljo0kIlajISKGYQiNEAGgyaEAg+ZCM3mEcmBP3uaoeP8L/wnpmxK3iVSPGEg+3rBsw3WPtNNGE5FpzY7rWtUDAAD4+bcdMmKOiHibkxjGXVSKWQMAmhIKMGg2GCb01/PFUeHuwpLqr1feZqBu9kRGKrEfTXdl5deNKwekiqPDveWV9iOnGzlXAABokWoaIXq9ROS5Ui4KDxHcHu+VikDnBQBBBAUYNCOsQh7+u0cZsdiy/YDt4MlbDeNCtNq0kSQIhoVrfvo+q5k6mohMq7aRIDR2tgAA0OL472L2maxE5CkslSTEEvpwAEDTQgEGzYskvk3IwzOJqOo/Szwl5bcappk2htOpnRdz7cfP1Y2rhvXnQrTuwhLHmYuNnisAALQ04tgoYhhvWSWn0/AOpygihIjc+ZcDnRcABBEUYNDsqMcOUd7Tl3e6rn741a0Og7EyqXbmeCIyLFxTd+8+IxZpJo8kItPKrU2TLQAAtCCsTCoK0QoejzgqgohYqZSIXCjAAKAJoQCD5ij08Tni6HB3UWn1t6tvNUY9dog4OtxTWm7dfbhuXDPuHk6tcmbmOi/mNn6mAADQwtT04dAqiUjw8kTkzr2MjesA0GRQgEFzxMpl4S88wohFlq377EfTbzqG4TjdvDQiMn6/SXC5r8WlEvWEoURkWnn9XWEAAAD+Y2AsxxGR92olp9fydoe3vCrQeQFAsEABBs2UJCFWf980Iqr8dJH3avVNxygH9pR2aOczmMwbdteNayYOZ+Uyx5mLrtyipsgVAABajppGiB4vEbkLSyWJbQm7EAGgCaEAg+ZLM3GYom933uao/OTbm1/SwjD6B6YTkWnNdp/RUhtmVQr12CHkb4cIAABQh38Los9oJo71lFZI27Uh9OEAgCaEAgyaMYYJfWo+F6JzZuaafth80yGyLh3kvbvxDqdp1U82HGrSRjESsf1YuruotElyBQCAlsG/BdFTWi6OjiCeZ9VKInLnoQADgCaCAgyaNU6tCn/+QWIY48qtzsybN9UIuX8acaxl6wFP2dVrL+rUqpEDSRDMa7Y3VbIAANACcDo1q1byNoc4OpyIBIbI34cDAKBJoACD5k7WNUk7fQzxfOXH3/A2+40DxLFRqqH9BJ/PuHR93bh26miG46wHT3rLKpsqWQAAaAEkbaOJiFWpiMhXbeI0Kp/F6q00BDovAAgKKMCgBdDNmSxNivdWGqo+W3rzAXMnMxKx7dDpul03ROEhymH9yMebVuMkGAAAXCNuG0NExDJE5CkskSS0JRwDA4CmggIMWgCGY8Off4iVy2yHT1v3Hb9xgChUp5k0ggTBsHBN3bhuxjjiWOueo94K9BcGAIAakrZRRCQ4XUTkLizxN0J05xcHOC0ACA4owKBlEEWFhTw0k4iqv1x+06702uljWLXSeT7LcfpC3beUg3oLPp9p3c6myxUAAJo3cVw0EXmvVrFKuc9oEUWGEvpwAEBTQQEGLYZq1EBF/1Te7qj810IShOuesgq5bsY4IjIsXFP3qW7mOGIY685Dvmpjk6YLAADNlSSuDRF5iq74D4ORSExELhRgANAkUIBBSxL65FxOr3VmZJvX77rxqXrCMFFkmLuo1LrvWG1QHBulHJAqeLymdTd5BQAAghCrUnB6Le90iSLDiYg3mVml3Fdt9BnNgU4NAFo/FGDQknBqVdgz9xHDGJaudxeWXPeUEXG62ROJyLB4veD21Ma1944nhrFsP1D3smYAAAhmkrhoImKVciJyFxRL4mMJx8AAoEmgAIMWRt6js3r0YMHjrfznQsHru+6pamhfSXysr9po3rKvNihp10bRN0Vwuc3rcRIMAACIahshCgIRufOL/X04XLmFgc0KAIIBCjBoeUIemiGOCncXFJt+2Hz9M4bR3zeViEyrtvI2R21YN2siMYx5yz6fCYtgAABQcxUYb7UxIs5TWiFp14aI3DlFP/ceAMAvhQIMWh5GKgl77gFiWePqba6c6z+tlKd2lnfvyFvtda//kiTEKnp3E1zumx4eAwCAYONvhOi+XCaOjSKeZ2RSIrpxTgEAaHAowKBFkiYnaCePIB9f+c/vBI/nuqf6B6YTw5g37vFWGmqDutkTiWHMm/f6zNamTRYAAJodcdtoYhhPSZk4PpaIeJOFVSt9RrO3Ci1zAaBxoQCDlko3L03cNtpTUm78fuN1jyTxscpBPQWPx7h807VgYlt5r66Cy23egEUwAIBgx8qkovAQweMVheiIyF1QIvVfx4xFMABoZCjAoKVixKKwp+8jjjWt2+XKyr/uqX7BVEbEWfcc9Vy+UhvUzZpARJbN+3iLrUlzBQCA5kcSF0NEjFhERO78y5L27Qh9OACg8aEAgxZM2qGddupo4vnKTxdftxFRFBGqHjOEeN6wZF3d8fJeXXmH07QO7RABAIKd/xiY4PEQw7iLSiWJcUTkzkUfDgBoXCjAoGXTzZoobhvtKS4zrri+I6L23vGsXGY/fs6ZmVsb1M+dRAxj3rQH7RABAIKcvxGi98pVUUSo4PaIVHLy9+EQhECnBgCtGQowaNkYsSjsqQXEsqa1O1w//diS06o1aSOJyPDt6trZVJIYJ+/ZBe0QAQDAfxWYu6hUkhBLRF6DiQvR8jaHp7wy0KkBQGuGAgxaPGlSvGbScPLxVZ8uvu5qZs2UUZxO48ousB8/VxusWQTbvBeLYAAAwUzcJpI41lN2VRLXhohc+cXS9nGEPhwA0MhQgEFroJ87WRwV7i4sqXv3FxGxMqnu3vFEZFi0VvDx/qAkMU7hb4e4HifBAACCFyMWiaMjyMdzajnV7cOB65gBoDGhAIPWgJFKQp+aTwxjWrXVU1xW95FqzGBxdLintNy650htUDfHfyfYPiyCAQAEM38jRIEnInLnFaMTPQA0ARRg0ErIuiSpRw4UPN7KTxfVPT/NcJxubhoRGb/fJLhrOiVKEuMUfboJLrdp7Y7ApAsAAM2AJL4NEXmvVnM6NW+zc6F6YhhX/uXaTRMAAA0OBRi0HvoHp3MhOldWgWX7wbpx5aCe0vZxvmqjedOe2qBuXhoxjGXzPl+1sakTBQCA5kHSrg0RuQuLJfGxROStqBSFhwgut6ek7OdeBQC4SyjAoPVgFfKQh2cSkWHhGm9VnbKKYfQPTici0+pttVcwS+JiFP17CB6PaQ0WwQAAgpQ4PpaI3PnFkoS2ROTOvSzt0I6wCxEAGhMKMGhVlAN7Kvp25x3O6v/9UDcu65IkT+3M2xymNdtrg/o5k4hhLNsP/KRaAwCAoCEK1XFqFW+1c2EhROTKLZR08PfhQAEGAI0FBRi0NiGPzmblMvvRM/aT5+vG9fdPI4Yxb9rrrTT4I+K20cpBvQSP17RqayAyBQCAwBPHtyEiRswRkTunSJoUT0Su7IKAJgUArRkKMGhtRKE63ZxJRFT9xfe801Ubl7RroxzSW/B4jN9vrA3q5kwijrXuOOStqApArgAAEGj+Phy8wcxpVD6LldOqGY5zF5bWnUEAABoQCjBohTQTh0kS23orDaYfNteN6+dOZkScde8xd1GpPyKOiVAN6SP4fMaVWwKRKQAABJi/AHMXFEvaxxGRp6hU3K4N8bw7D7eBAUCjQAEGrRHLhj4xj1jWtH6Xu6C4NiyKDFOPGUI8b1yyvjaonTWB4Tjr7qOe0vJA5AoAAIEkaRdLRO6CYmn7OCJy5RVJk+OJyJVVENC8AKDVQgEGrZO0fZxm3D3k46u+XF73WjDtrAmsXGY/cc6Zke2PiKPCVcP7E8+bfsAiGABA0BG3jWJEnKesUtQ2mojcuTgGBgCNCwUYtFq6+WmcXuvKzLPuOVob5DQqTdpIIjIsWltbmGlnTWDEIuv+E+7CksDkCgAAAcJwnDg2mgSBlUiIyFXbhwMrYADQOFCAQavFymUhD0wnourvVtde/0VEmimjOJ3alV1gP1FImZucAAAgAElEQVTTJlEUplePHkyCgEUwAIAg5D8G5jOYOL2Wt9kZhuHUKp/B5L1aHejUAKAVQgEGrZnynj6ylGTeYjPU6XzIyqTaGeOIyLBojeDj/UHtjLGMVGI7cgZ3vwAABJvaPhzSxLZE5Mq7LMExMABoNCjAoJULfWQ2w3GWrfvrVlbqsfeIIkI9JeW2fcf8EU6v1Yy7hwTBuGLzLb4SAAC0TrV9OPyNEN15RdKkdoRjYADQOFCAQSsnjo3STB5BglD91YraQ1+MiNPPm0xExu83Ch6PP6iZPoaVyxwnz7uy8gOWLgAANDlJQiwRuQtLJf4VsNwiaVICEWE6AIDGgAIMWj/trAlciM6VXWDdfaQ2qBzSR5IQ6600WLbs90c4tUozaQT5+3MAAEDQYFUKUahOcLlZlYr8jRA7xBHDuPMvCx5voLMDgNYGBRi0fqxMGnL/NCIyLF7H2xw1UYbRz59CRMYftvA2uz+mmTKSVSmcF3Kc57IClCwAAASAJD6WiHwGoyhUxzucPpNF3CZS8HjRHRcAGhwKMAgKynv6yLok+UyWuke85D27yFKSeZvdtG6nP8Iq5Nopo4nIsHht3dvDAACgdZMktCUid97lmmNguUXSZOxCBIBGgQIMgkXIo7OIY82b97iLSmuD+gVTiWHM63f5qo3+iGbScE6nduUU2k9lBChTAABoapL2/gKsSNq+HdUcA4sn9OEAgEaAAgyChSQuRj16MPn46q9X1galHdop+nUX3B7jyq3+CCOVaKePIyLj0g1YBAMACBKSxDgicuUW+VfAXFkFsk6JROS6hBUwAGhgKMAgiOjnTmbVSue5S/aj6deCC6YQx1p3HPJcueqPqMcOEYXp3QXFtkOnA5QpAAA0KVGojtNpeKudC9H622+IIsNYlcJbUeWtMgY6OwBoVVCAQRBh1Ur9nElEVP3d6tru8+KYSNWw/oLPZ1y2wR9hxCLtveOJyLhsfe1NzQAA0Lr5e9B7Sspr2m8UldbsQsQxMABoUCjAILioxw6RxMV4yyvNG/fUBvVzJzFSie3QKXdeUc2wkQPFMZGeK1dte48GJlEAAGha0kT/LcyXf2y/USDr1J6IXJm5Ac4MAFoXFGAQZFg25OF7ici0cqvPYPLHuBCdZtw9JAiGJetrh+lmTSAi4/JNuAQGACAYXOvD8WP7Dan/GFhmXmATA4BWBgUYBB1ZSrKibwrvcBqWbqgNaqePZRVyx5mLzvM1N4Aph/SWxMd6Kw2W7QcDlCkAADSd2j4c0qR2ROTKzpcmxTMizlVQzDtdgc4OAFoPFGAQjPQPzGBEnHX3EXfeZX+EVSu10/w3gK2raX7IMLo5k4jItGqr4HIHLlkAAGgKtX04WJmUlcu8ZZW8wymJjyUf784pDHR2ANB6oACDYCSODtdMHE6CUP3tqtqgZvJILkTnyi6wH6vpkajomyJNjvcZzeZNewKTKAAANCF/Hw5XfnFNM/qcQv8uRCd2IQJAw2nIAsznNJYVXMrMLa60enB9EjRz2lkTOJ3amZFtP3bWH2EkYt2MsURkWHyt+aF+XhoRmdZs5232QKUKAI0N8xf4XevDkRRPRO7sAmlH/21gKMAAoMH8kgKMt14+tfnb9353//h+nROi9HKpQh+d0Klzh7bhGqlUFRablDr83qff+GzVwexqT4MlDNAwWLlMd+8EIqr+blVtmw3VmMHiqHBPaXlt80NZSkdZSjJvc5jX7w5YrgDQwDB/wc1d34cjK1/W2d8IMY943EoCAA3jbgowb9XZVe89NqZzRGi73hMf+sOHi7YezywoNzp9tR8bCoLHVlWSk7535ad//vXMIR0jQ+MHzv2/bw4WOxswdYBfSD12iLhttLes0rJ1vz/CcJxu7iQiMizbKLhr/t6lXzCVGMa8YZfPaAlYrgDQEDB/we1d68ORHE9EruxCTqsWRYTyDqe7uCzAyQFAayG6k8G88cKGLz/55NPFewpsvH+2YlhZWIfUXt0So8NCQ8NCQ0P1KtZpqqqqqqqqrCq/nHnm1IUSi9drKTzy/dtHlr//cu8Zjz//m1/P7h8taZQfB+BOsGzIfVPL//qZccVm1bB+rFpJRMrBvU1rdrgLii1b92vSRhKRtEM7Re9u9hPnTGu2hzw0I9BJA8BdwPwF9eLvw+EzmgW3RxQe4r1a7Skuk3VKtFZUuTLzJHExgU4QAFqD+hZg3oojX772m9f/d6zCKxAj0ncaNX3m5BGDBwzon9oh5HaTkc9anHH8yOFD+7at+WHTySsnlr15//KP35n58ofv/nZCgrwhfoTG5bVWll+tMpjtLg/PSpVqtVobFhmuuqPCFZovee9u8u4dHWcvGVduCXloJhERw+gXTCl/+1PTqm2q0YNYuYyIdPMm20+e95dkolBdgJMGgDsRtPMX3B1JYlvHqQz/Ipj3arUru0DaMdG677grM1c9dkigswOA1qA+WxAduatfGtX9nqf+e8yo6zb5mfeXHyksvbjtq7eeu29Cv9vPXkTEqWK7j7j3iT/+Y+XxotKMzZ+9Mm9wrC9zxR8np/Z/6L+njM3ysLOj5Mjyj37/wIQBHaNUck14bGKnlNReffr26dW9c1JCbKRGqWvbZcDEB1/556qjl+3N8ieAO6B/YAYxjGXLPm9ZpT8i79lF1i3ZZ7Ga1+30RyTt2igH9xY8HtMPmwOXKQDcqaCbv+CXu64PR+11zGiECAANpR4FmGvjK/M/OOjuMuetNefy09f/83ez+sXI7uZ7ifSdxz/xzpID2dn7/vPUEHXWd88882Vu8zrSylcd/eyJQYmJg+a8+MHCLUezym3eG6ZYQXCbii8e3fzd356bObB9fL+HPjlQ7gtEstAwJPFtVMP7C16fYfHa2qD+vqnEMOb118596eZMIo617DrsKS0PUKYAcIeCaf6ChiLpEEf+uqum/2G+JC6GVcq9FVXeSkOgswOA1qAeBRgbM/Kl745nn1r6xynJKqYBvqckZsiT/957KWPD32Z2bE6bONy5Sx4aOOyp/x4uc9ccEOAUoW079hw0fPS4iWnTpk+bMmn8mBGDe3eJj1CJ/b8IwXP1xLe/Hdnv3s8zHIFMHX4Z/bw0RiqxHT7t+vEDTmmHdoo+3Xiny7Rqqz8ijg5XDe9PPt70w5bAZQoAdyJo5i9oQNLkBCJy5xZJ2rVhpBL35Su8zSHr1J6IXBdzAp0dALQG9SjAxIOefOO+nqFcA39nZfuJL7yY1qbZ3ATtOPaXmb9alO0SiJHGDHzgz//berrQYK4syjx1cPf2LRvXrV61eu2Gzdt2HTiRkV9uMl3J2Pv9h89O7KhhSfAUrX1uxks7TdiP0lJxIVpt2igiqv5uFQk1f466eWnEspZt+73lNVsTdbMmMmKRdf8Jd0FJwHIFgPoLkvkLGhSnUfnbHnrKrkoT25IguLLypZ07EJHzAgowAGgAmD/8+KKvX/37WZfAcG2mfHww4+C3rz88NrWt+lazNiuP7DJ09gv/2JievvrZnkpGcGd/8cfPs7ATseXSTB3F6dSurAL70XR/RBIXo7qnj+D1GVfUnPsShenVY4aQIBhXbApcpgAA0Lj8i2Cu7AJpp/ZE5MzMk3VFAQYADaYpCjChYuvr9/31QHO+zJK/vOb7Aw6BuLaPfLXwud66eu9UkcZP+fv3bw6RM4Lr1Or1+ajAWixWLtPNnkREhsVrBV/NH6RuziRGxFn3HfdcvuKPaGeMY6QS+7GzrpzCgOUKAE2lBcxf0Aj87TfcWTXtN1yZeZLEOFYu85SU+wymACcHAC3fnbRT543n1n69cM3ukzlXDE6RPq7HqPlPPj49NazO1xBcVfmXci6XG6wOp9NptxqvFmcd3/z9ykOVaSlfNXjyDcd74UyGRyA2YuKsEZo7fJdrP3NWv5f37/VmX8jyUYeG3uoCTUY9epB50x5PcZll2wHNhGFEJIoIVY8ZYt6817B0fcRLjxMRp1NrJg03rdpmXLoh8rWnA50yANRPK56/oBFIk9oRkSu7QP/ANGIYV04BCYI0Od6RnunMzFMO7BnoBAGgZatvASZU7vnzvXPe2VdxrSvgqSO71n7x8ch3Nqx6qZ+GEcynv/r9c28sPFjiEG5yFuqu2k41HcHlcgtErEp9F8e0WY1OwxIJbpcbp8BaNJbVz0ureP8L04rNquH9/TeAaWdNsO45aj921pWV79+Uop06xrL1gCP9ojMjW9Y1KdBJA8DPaOXzFzQCSUJbRixyX75CLCtuE+kpLnPnX5Z2bu9Iz3RdzEEBBgC/UP22IHpzPlsw4629Fdf3ZBf4qztfTXtoUYm3ZPHD45/474Him85eRIxI1KxXhrjYdrEcEV988tSVO24s7Eg/ft5DxEZGR+JIXQun6N9D1qm9z2w1r625AYzTqNQThxGRYVFNk3pWKdekjSAiw9L1gcoTAOqr1c9f0AgYsUjSrg0JgjunSNbZ3/8wV9YliXAMDAAaQr1WwCxb3v7LDgNPRIw8fuSDj80e1iVa7r6afXjNl19tvFSx7uVnnh98em0FT8RIIroNG9G/Uxu9nBO8PkGk1IdHRMd37T9scFdpI/8ov4So++QJ7d67mOvY++7LK9IWzmlb7+lWsBx7/5VvC3zERgwe3l3cmElCk9A/OP3Kqx+a1u1QjRksCtURkXbqaMu2A84LOY70THmPTkSkmTzSsnmfKzPPceaiPLVzoFMGgFtq/fMXNA5pcoIrp9B/C7Nl+0HnpTz1hGGMWOwuLOUtNlatDHSCANCC1acAs+1ctracJ2LkqS9u3vnesJAfd+nNfvjxua+PGfnWsTWfriBixIlzv9j45YOdFI2ZcCOR9H/i2Xu+/O0ec9GyBwZWnPzrO7+d3S/6Z6ZcnzFzy5dvvvzmsvNmgZF0e+zpMfj/cSsgTYpX9OthP3rG9MPm0CfmERGrkGunjjEsWmNcsk7evSMxDCuTaqeOrv5utWHJenmPTsQ0xP1CANDwgmH+gkbh78Phyi4IGTSDiFyZeYxYJE1q57yQ48zMU/RNCXB+ANCS1aMA82YeP20RiNjIeW+/fm32IiJiNP1fem32f6d+U84TGzLjb/96oMXOXlzyU5+9v2PEUxuvuEt2vv/AgI9/06HfkCH9e3ZObBcbHaZVymQSkeBxOh3WqrLiy/lZ6ccPHThyvszOC0TE6gb/6atX+uIz0lZCvyDNfuKsZddhzeSR4jaRRKSZOMy8aY8rt8h25Ix/9796/FDThl3uvCL7sXRF/9RApwwANxMc8xc0hpoCLCtfFBXG6bU+g8lz5aqsSwfnhRzXxRwUYADwS9SjAOMryip4IhL3HNL/xiUe5YB7eom/2ewicc8R9+hb8kKAuOPjy3fKnp33/Ndnjbzgqc4+uC774LqffY1Vd5n37sJ/P9kLy1+thjgmUj1qkGXbAcOS9RG/f5SIGIlYN2t81efLjEvXK/r1YDiWkYh1M8ZVfbnc+P0mRb8eWAQDaI6CZf6ChieKCuO0ap/J4r1aLe2YYD9yxpWZi+uYAaBB1KNrhGCz2gQiRhoaepMWgYw6IkLBEBGjC6n/9VnNlLzzA1+euHT42z/dN7S9VnT7n4YRaRIGz3v1f/szTy/6dS9tS//R4ad0cyaxcpn96BnXpTx/RDVykDgm0lNaYdt3rCYyZrAoItRdVGo7eDJwmQLArQXR/AUNT9KhHRG5sgpkP94GJuuUyHCcK/8y73AGOjsAaMHq1YRDEAR/I6ibTVCMWCxmiARiWscagCii3/1vLLz/DY8x/+yJU+cu5RaWlFcZrA63l8RypUql0obHdejYsVO3Ht3idWi60VpxWrVm0nDjD1sMi9ZGvflbImI4Vjd7wtWPvzEu36Qc0ocRixiO080cX/mfxcbvNyoG9mI4NMEEaHaCav6ChiVNauc4ed6VXaAc0puInJm5jFQi6dDOdSnPdSFH3rtboBMEgJbqTi5iDi5iXULv0Qm9Rwcug9dff/3tt9/2+Xx393p1dXXD5hNsNNPGWHYcdF7MtZ88r+jdjYiUg3ub1u5w5xdbth/QTBxORKoR/U1rd3hKy237jqlGDAhwxgAA0HCkyYlE5MrK198/lZFKPKUVPqNFnpLsupTnyMhGAQYAdw2f2TdfNpvtrqsvIuL5O77RDOpiZVLt9HFEZFy8jvy/TIbRz51MRKaVW3mni4iIZXWzxhORcfkmwXv3f1gAANDcSJPjiWPduUXk9ck6JZIgOC/myLomE5Hz3KVAZwcALRgKsJvxGvNO7t2ybv32w+cLq503vZqz7uiqvHPp6enp5wpNPzf0jnzwwQfCXenVqxcRhYWFNWQ2QUk97h7/KS/r3ppzX/Le3WSd2vtMFvP6Xf6Ickgfcdto79Vq667DgcsUAAAaGCuTSuJiBJ/PlVtUcwtzRra0UwIjEbsLSnwWa6ATBICWCgXYT9my1r4xKzU6skOf4ROmThk7KCUhIqb7rD99f9Zwy+UkoWL5Y31SU1NT+/1+u7spc4VGx4g43dzJRGRYukFwe/xB3X1TiMi8bqfPbCUiYhj9nElEZFq5RfB4ApYrAAA0NFnn9kTkysyVdu1ARK4LOYxYLE1OIEFwoRciANwtFGDX8OXbfj+y/4w//5Be6a5dyhJ8hvM/vDlv4D1P/lCAv1wHIdU9fSQJsb5qo2Xrfn9E1qm9PLUz73Ca1+7wRxT9e0jiY71VRsv2Q4HLFAAAGpi0Y3sicmbmSTvEM1KJ+/IVn8ki65ZERM7z2YHODgBaKhRgP/Jmf/7AvI+OGXkihtPE9x075/FnnrwvrV9bOUMk2DO+nD/i0ZVXcKwq6DCMfl4aERl/2MLb7P6Y/r5pxDDmTXu9VUb/GJ1/EWzVVsGFZVAAgFbixxWwPIZjpcnxJAiuzFx5t45E5MAxMAC4W3fQBdG4ZG7kmpuM99rNAhG51j4UpX/sVi/Lpn1T8PVU6V1k2DQE48Y3/7KjmidGHDflveVfPds/lPM/cZXs/vCRBa9vu+IpWPTMs2MHLF/QBlVrcJH36irrluw8n2Vat9NfjEni2ygHpNoOnzat3BL6+FwiUvRNkSbFu7ILLFv3a6aMCnTKAPATrXr+gkbEhWhFEaHeiir35SuyLknOc1nOjBz9gzNYucxTXOarNnEh2kDnCAAtT/1rCYF3W403Y3XzAhEJbttNH9ewNe/9e5Zti9eW88RIUl78fvFvaqsvIpK2GfHq2l0fjQ5hiS9b/cLzy7AKFoT089OIYcwbdvuMZn9EN28ycax152FP2dWayOyJRGRavR0XdAI0M617/oLGVXML88VcWdcOROTMyGY4Vtop0f/PAU4OAFomLOYQEZHn/LFTNoEY+chnn++vvOGxtNPTX34wKYwlvmLNa2/vtgQgQwgoaXKCol93weU2rtjij4hjIlXD+gs+n/H7jf6IvGcXacdEn8Vq2bIvcJkCAEBDknb68RhYUgIjFruLSnmLTdYtmYic57MCnR0AtEj1KMCkM5aYnL+UacmM5rx/g6+qqOSJuIQ+vcKYmw1g4x744P/uUTHky//q1X+dx8ehwUe/YApxrHXHwbpLXoxYZDtw0l1QUjNm7iQiMq3biUUwgGYhGOYvaGT+xS5XZi4jFkmT4kkQnJm58pRkInKgAAOAu1KfFTBWJJH+UhJR815rEwSBiMh367t0ueQn3n8+RcIIzhMf/nFxMfYhBptrS17Lapa8RGF69ZghJAi1i2CylI6yLkm8xWbZvDdwmQJArWCYv6BxSdpGsyqF92q1t9JQ0/8wI0eS0JZVKbzlld6KqkAnCAAtD6YVIiLiIqMjWSJf0clT5bcsrWR9fv/+r+I54qs2vPybpSUowYKOfu4kRiK2HTzpzrvsj2jvHc/KZfbjZ11Z+f6Ibv5kIjKt3cHbHAFLFAAAGgrDSDsmEpHrUp6si/8YWBYxjKxrMhE5zmYGOD0AaIFQgBERkahL/95qhgTHnn98dNAs3GIUox3zxntzolniy1e/8MQXWeg3HmS4EJ16/FASBMPS9TURjUo9YRgRGRat9UdkndrLuiXzNod5855A5QkAAA1I5i/AMvOkyQmMWOQuKOFtdnmPTkTkPItm9ABwx1CA+anHLJgWxZLgufjJnHvf3nXFe/NhTMSM9/8+qw1HfMWm5yY9uijL3rRpQqDppo9lFXLH6Qu1za+0U0ezSoXzQo7zxzth9HMnE5F53a7ae8MAAKDlqul5mJnLSMTSpAQSBOf5LHlqZyJypGcSjx0xAHBn6nEPmGDMO5Nr+IX/e2H17VMTdTftb9E8aCa89uex63+9pcp3Zftrozt83mfU6ME9OiYNnfvEmHiuzjg2Zvan3x6/NO2jM9achQ/0Orrs0UdH2aputWYGrQ2rVmqnjjYsXW9YvDb67ReJYVilXDt1tGHJOsPS9dEpHYlI2ilR3r2j4+wl88Y9/t70ABAYwTF/QWOTJrVjxGL/wpese7LzQrbjbJaif6ooKsxbVunKuyzt0C7QOQJAS1KPAsy94+VBs1b8wqZuslkrjMvvbc6NpLjExxauKJo262+HqnyCvfj4+m+Or2d093d95KcFGBETMur9nZs0M2a8sbfSlrXxk5c2BihjCAzN5BHmzXtdWQX24+cU/boTkWbScPOmPa6sAvuJc4o+KUSkmzPJcfaSecNuzaThrFIR6JQBglWQzF/QyBixWJoU77yQ7byQK+/eybhso3/Lg7xHZ0vZfseZiyjAAOCOYAviNUzYiLd2nd76wa/uiVdxt/2wkwm5508b93z77LBYGT4UDTqMVKK7dzwRGRatFXy8P6KdMZaIjEvWkyAQkbRjorxHJ97uMG/cE9BkAQCgAfzY/zBb0r4dq5B7Ssu9lQZ5d/8xMPThAIA7U48VMEYX3yM11fXLvo80vmXs35C0HfXCV6N++++rOefPZRaUWSN6iG8xUtn1vn/smfXq6e1rN+w4dPJsZn6JMUTWpLlCwKjGDDZv2O0pLbftO6YaMYCI1GPvMW/Y7S4qtR06pRzcm/yLYOmZWAQDCKSgmr+gMcm6+guwLIZjZV062E+cc57PUvTvwXCc61I+73CycvwVAADqqx4FmGT0e0dON34mzQkjC0/qMzKpz88OlEb1nPxEz8lPNEFO0IwwHKebM+nqJ98Ylm5QDu7NSMSMiNPNHF/5n8XGZRsUA3oyHCtNTpD36ORIz8RJMICACcL5CxqHNDmBkYjdBSW8xSZL6Wg/cc557pJqeH9Jh3auS3nOjGz//nMAgPrAFkSAu6Ec0lsSH+urNlq27q+JDO8vjon0XLlq3XPEH9HNmURE5g270Q4RAKBFY8QiaXICCYLzYq4sxX8D2CUShB+b0WMXIgDcARRgAHeFYfQLphCRadU23uEkIoZj/RWXacVmweMlIv8iGE6CAQC0AjW3MF/IlrSN5vRan8HkKSn3F2COMyjAAOAOoAADuEvynl1k3ZJ9Fqt57U5/RDmopyQ+1ltpsGw/6I/4Nx9iEQwAoKWr6cNxPosYRtatZhFMmhTPKhWe0nJvRVWgEwSAFuOuCjDB47C5fDeEHYU7Pn350XvHDujZa/DY2c++t+JkxS3uMwZoHfT3TSWGMa3f6TOaiYgYRjd3EhGZftjsXxaTdkyUd++IRTCA5gLzF9wtaXIiI5W4C0t9Fqu8e0cicp67RCxbU4ylYxEMAOrrjgowwXRu6asze8Wo5Orurxzx1H3El295cWjquKff/Wrl9qNnTh/avuJff5jTv+uQZ5Zn/8L+UwDNl7RDO0WfFMHlNq3a6o8o+qRIkxN8Zqtlyz5/pM5JMEfAEgUIdpi/4JdiRJw0OZ4EwXUhV5bSkYicGdmCj5endiYix5kLgU4QAFqM+hdgtnOfz+rZd8FfV52+Yr/+00Nf7ucPzP/4hJH/SVTwVR799L6xDy0puPHTRoBWQn//VOJYy9YD3rLKmsi8yURkWrPdv+1Q2jFR1i2ZtzvMm/cEME+AIIb5CxqGrEvNbWCiML04JoK3O9y5hfJeXYlhnOmZ/tO/AAA/q54FGF+26tdpz6zKdwlEDKdu07lrO03tvSiCaeObb+4w8ESMKHrUK4t2nz53ZP0Xb9zfO4RlBE/B8ud/s7iEv91XB2i5xDGRqqH9BJ/PuHyjPyJL6ShLSeZtDvP63f6IbtYEIjKv34VFMIAmh/kLGox/t6EzI5uIZN397TcuikJ1krgY3ulyZeYGOD8AaCHqV4BZdvz5hSWFXoERtRn/5uacssvn1j2f8uMVYoJh07dryngiRtbrtU0b31kwPLVb/8mP/um7/bvfG65nia/c+MHnZ/GxELRautkTGbHIuv+Eu7DEH9HPSyMi88bdPrOViGRdk2RdOvA2h2XrvkAmChCEMH9Bw5EmxTNSibuo1Ge21t15KO/VlYjsp7ELEQDqpT4FmFCx+t9Li3zESFNfWb3y/8bFK5i6jx0HNu+1CERcm/ve/G2q9NoDeffnPny6q4jIe3HlinTMYNBaicJD1OOGkiAYlqz3R6TJCfLe3XiH07xmuz/iXwQzrd/FO3GqBKDJYP6ChsSIOFmn9iQIznOX5CkdGbHIlVPEW2zynl2IyHEqI9AJAkDLUJ8CzLJv0z6LQKxu6su/7aO4/qnnzL5DRp6IjZw4e7j6p8/EKWkT24uIfLnHT1YKDZQyQPOjnTmWlcscJ887z2f5I/oFU4hhzJv3eauM5N+X2Kk9b7FZtuwPaKYAQQXzFzQwmf/ir/RMRiqRdmpPPO84e0nWKZFVKTzFZbWHgQEAbqMeBZg3J/28VSBGMnDCKB1z/VNf/oH9RT4iNmT05EHy65+KkrskixgSvDmZOfgIEVovTq3STBlFRIZFa0kQiEgSF6MckCp4PKbV2/xjtLPGE5F5w07B5Q5gqgBBBPMXNDR5905E5Ey/SETXdiGyrLzmSBh2IQLAz6tHAcaXlZTxRGxUcgfNDfOXUH1w7zkvEdHSRqMAACAASURBVCPtN3zADZ8uEsn1ehkRCWajGZ8gQqumSRvJ6TSunEL7ifP+iG5eGnGsdftBb3klEcl7dJZ2TPQZLZYdhwKaKUDQwPwFDU3SLobTabxVRk9peU0BdvoCCYJ/FyKOgQFAfdSjABNcTqdAxKhUyhvmL3Ic3XvMJRCJUoYODrnxMZF/NUBwOl2YwKBVY2VS7YxxRGRYso54nojEMRGqIX0Fn8+4suaWMO2MsURkWrNdcHtu86UAoGFg/oIGxzCylJqblyXt2ojC9D6j2V1YWtOM/twl7HEAgJ9VjwKMUanVDJFgs9lvmIM8Z/cdMvBEXNvBQxK4m7zsNJpcAhGjvNnsB9C6qMcNEUWFeS5fse495o/oZk9gOM6696intJyIFL27SdvH+Qwm667DAc0UIDhg/oJGULML8Wwm1WlGz2nV0sS2gtvjvJAT4PwAoNmrRwHGRcZEskT8lYuZhutmMF/mtm0FPiJWO2hYqvgm73ovZVzyEhHXJq7NzeY3gNaE4Tj9nElEZFi6wb/GJYoMU40cSD7e+P0m/5hri2BeXPAK0Mgwf0EjkPfoRETO89mCz1ezCzG9TjP6H3ehAwDcSn0KsOS+PXUsCa6DqzaU/WQG815cs+aCh4iR9Bna/yYb6Ml3adv2PC8Rq0vtlYgJDIKAckgfSUKsr9po2VJz5Zdu1gRGIrYdOuUuKCEiRb8ekrgYb6XBuvdoQDMFCAKYv6ARcCE6cWwU73C6sgvkPToRy7ou5vIOp7xPChHZj5/1b14FALiV+rShlw2ZNiGMJcG67a1X15XxP4aFitVvf5ruISJR95FDw2/cocFf+eHN/5zxELH6MZMH39BhCqA1Yhj9/ClEZFy5lbfZiYgL0arHDCZBMK7Y5B+gnTmOiEyrtwk+/rZfCwB+Icxf0Ch+7IWYySoV0g7tBK/PeT5bmthWFKrzVRvd+cWBThAAmrX6FGCkGf/Mo10kjODN/3bePVNe/Pvizbu3rfjoV2MfXV7GEzGS1OlTO1z/+aAjd+3vpj+xopQnRtThoacmahsheYDmSN6ziywlmbfZTWt3+iPameNZmdR+NN2VU0hEyoE9xTGR3rJK28GTAc0UoPXD/AWNofY2MPpx56HjVAYxjLx3NyKynzgX2PQAoJmrVwFG0n6vfPa7VCVDgiNn40cv3Ddx5LjZL36TbuaJiIue/fIjHWvnL1fuzoWfvvPcpNQe0/9+1MQTI054+O+vDJI11g8A0Azp56URw5g37vYZTETEaVTq8UOJyPj9RiIiltVOH0NEplVbsVMFoHFh/oJGIOuaxIg4V24hb3co+nQjIvvJcyQIir7dyb8LEQDg1upXgBGpBr+5efWrI2IkP9mpwbD6AS8v/mT6tf0bgnHXe489/cd/bsqyCUSMOHbyx2s+mRiKDlIQVKTJCYp+PQSX27hisz+inTqalcscpy84M3OJSDm0rygi1FNcZjtyJqCZArR+mL+gwbEyqTQ5kXy88+wlSXysKDzEV21yF5TIuiWzcpk7v9hbURXoHAGg+apvAUbERo55a8eF9I2f/d8Tc6eMHTlqwqzHXvti99k9bw2/6f0pjDi0+5y/bT266qkU7J6HIKRfMIU41rLjkKe4jIhYtVKTNpKIjEs3EBHDcdqpo4nItHILFsEAGhnmL2h48p6dich+OoOIam5hPnmOEYv8fRHtJ9ELEQBuSXRHo1ltpwlPvDnhiVuPYNT9n/jos/lRyT0HDkiJluOTQwhW4pgI9YiBlh0Hjd9vDH/xESLSTB5h3rTHmZHtPJclS0lWjRxoXLnVXVBiP5Wh6N0t0PkCtHKYv6BhyXt1NSxe5zh1gQRB3rubZdsBx8kM3b0T5H1SbIdPO06c00wYFugcAaCZqv8KWD0pus946okHZ4zojtkLgp1u9kRGKrEdOePKyiciViHXThlFRIZlG4iIEYv8/2pauSWweQIAEWH+gjsiaddGFKb3GUzuwhJ5SkdGKnHlFPqMZkXvbsSxzvPZvM0R6BwBoJlq8AIMAGpwIVrNxOEkCIal6/0RzaQRnFbtupTnOH2BiNRjBnMalSurwHkuK6CZAgDAHZOndiEix6kMRiKWd0smQXCcymBVClnH9oLP5zhzMdAJAkAzVY8CTDBWVnkb43sL1soqZ2N8YYDmQjttDKtSOM9l+WdiRirxH/0yLN1AgsBIJZpJI4jIuAqLYACNAPMXNCb/0S/HqQtEVNOA/mQGESn6/XgjMwDAzdSjAHPveKZL95mv/5BharhLYx2FOz5+ZGDnGV8X4yJaaM1YpVw7YxwRGRau8TfbUI8fyoVo3XlF9uPniEg9cRirlDvPZbky8wKcK0Drg/kLGpOsRydGLHJm5fMWm6JPCjGMM/2i4PEq+vUgIsfJ84KnUep/AGjp6lGAcYm9kq6ufXN2atKAh95debLM9Uu+n9dwccu/nxvVqfPY336doU3tqsdGe2jlNBOGisL07sIS6/4TRMRIxNrpY8l/J5ggsHKZ/4ow0+ptAU4UoPXB/AWNiZVJpZ0SiecdZy9xIVpJuza80+W8kC2KCJUktuUdTsfZzEDnCADNUT0KMFGvl3af3vTG5Ha2E9++fG/fuDbdJv76b0sPFdnu5MM/V/mZtf948d5+7WK6Tnjmn7uvaAc/v/jY0X9MwA0r0NoxYrFuziQiMi7b4P80VD1miCgi1F1YYjt8moi0k0eyMqn95Hl33uUA5wrQymD+gkYm79mViBynM4jIfyOz48R5IlIOSCUiO256BICbqV8TDnHs2NfWnTu/8a8L+kQw1RmbP3tl/uD4kLD2/SYseO6Nfy7Zcij9Un5ppdnp8w/n3dbqssLs88d2/vD5X3/38NQhnSP1Mb2mPf/RyuNXPJqOk19adCJz38fzOisb8QcDaD5Uw/tL4mO9FVWWrfuJiBFxNYtgyzYIPp5VK1WjBxORac32ACcK0Ppg/oLGpOjVlYgcpzJIEOR9uxOR7Wg6CYJiYC8ish9LF7y+AKcIAM3PHdwDJk+Y8PKiCb/524Gln/7jn1+uOXPVkHd8S97xLUv++eMIhhXLVQrWZbW5fNdfLcuwmuSxDzz93DMPje+oQe9FCC4Mo583ufyvn5lWblWNHMAq5KqRA0xrtntKK2wHT6qG9tVOGWXZus92+LSutFwcExnodAFaG8xf0EjEsVGiiFBvRZUrt0jaPk4UpvdWGlx5l6Xt4yRxMe6iUmdGlrxH50CnCQDNyx1PJbLYIQ+/s/xUYc6B5f/442NTBiTqxLW7MATeYzebrHVmL4ZVxqSOvf/F977ddqHo4pZ/PjcRsxcEJXnvbrIuST6L1bR2BxExHKe7dzwRmZZvEnw8F6JVDe9PgmBajUUwgMaC+QsaQ80uxJPniWEUfbsTkf1YOhEpsAsRAG7hDlbAfkIeN2jWs4NmPfsWeU35Jw+fuFR0paysrKys/KrZpwiNjIqKioqKju3QY0C/zuHSBs0YoIXSPzDtyisfmNfvUo+9RxSqUw3rZ1q93VNabttzVDVqoHbaGMuuw7Z9x3WzJogiQgOdLEDrhfkLGpSib4pl6z778bO6OZMU/bqbN++1H03Xz0tTDEg1Lt9kP5Ie8ugchkPxDgDX3G0BVucraBP6j0/o3wC5ALRq0g7tlANSbYdPm1ZsDn1yHrGsbvaEqx9/Y1y5RTmsnygyTDW4t3XfcdO6naGPzg50sgDBAPMXNABZt2RWLnMXlHgrqqRdkji1ylNc5iktl8TFiNtEekrKXZm5sq5JgU4TAJoRfCQD8P/s3WdAFNfaB/DnzGzvdAsqYkEU6b1ZEcHeY4mJiYm5yZveY8pNuzftJjGJuTG5KSb2LjYsgI0OImKXoGKjs73vzPthjWKNIrCwPL9vzp7BPyRy9tlz5jltRzFzHKFpTWau5WIVAIjjwni9ultr6rVZuQAgn5wMhGgzcm2NKkcnRQghdE8IhxYG+wOAvugooSlh6CAA0BeUAYAoCnchIoRuAwswhNoOt5unZGQsMEzjijQAAELkU0cDgHLtDtZs4Xp3EUUGshaLeluWg4MihBC6Z/b+h4aiIwAgirz+GJi9Gb0u7zAweGw3Qug6LMAQalOKaSmUgK8vOGI6WQEA4uhgno+3rUGlycgB+yIYgGbnQUard3BQhBBC90YUOghoynisnNEZhMH+hM8znTlna1DxfHtwu3rYGlXGY+WOzogQakea9QyY7Vzmsoyz1r8fSAhFc3h8sVTh3rVnH79+3jJuc/4+hJwHrZDJxo9QrtnesGxT149eAkIUM1JrPv1RtWGXdHgMv09PYZC/ofSEevtexfRUR4dFyOng/IVaASURCQb0MR47Yzh8XBwXJgwcoC88oi8qk46KF8eFKdel63KKBYP7OzomQqi9aFYBZi364an5a433eRehxN1Ck2YseP2NedEedHP+XoScgmz8CM2ug6aTFfqCI6LIQFH4YH6fnqY/KzW7D8rGDpdPSbYXYLJxwymhwNFhEXIuOH+h1iGKGGw8dkZfWCaOCxNFBuoLj+jzS6Wj4sXx4cp16bqcEtfHpxMO/s+DEAJo0y2ILKO7VLTpyycTBg19d2/DzQddItRpUAK+/RCwxmWbWRsDhChmjAEA1abdrMksGNhX4N+H0eo1uw46OilCCABw/kJ/z34CmOHQMdZqE0UGEQ5tOHrKptZyvbvwenZjdHpj6QlHZ0QItRfNWgHjj//lUt2359Y+NeHZzRetLBF0DU1KHRYZ0Kerq5Rv0zVWnz1WkLVtZ+ElPSv0m/bmq2O621Q1F8qP5mek7zteZ649+PHUub2K0x7vhU+goU5KkhSv3rHPcqlam5krTYoThg7i9/cxnT6nTt8vnzBSPjnZ+PH36i0ZspQhhIf7nhBqOTh/odbB8XLn9uhquXDFdKJcMNhPMNjPUHLcUFgmGREjjg8zr7isyy4WhgU4OiZCqF1o3jlgPImw4vMnX9p80cb1mfDxb98/N6Qb7+Yx1ursb59++I2N6xevjdm+/oUQMQCwmhMrXpz25C/H6tM/+nzvzO+Gix40P0IdEqEpxUNja//zs3LNdkliBOHzFDPGVH+4WL1pj3RUvDBkoH1TojYzVzo60dFhEXImOH+h1iKKGKy6cEVfeEQw2E8cHWIoOa7LK5GMiBHHhTWu3KovLGPNFvxMDSEEzd2CyPz54yufHzKAJO7jrWteuc3sBQAcr7gXV237d4KoetdrM97M0gAAEKn/7P+ueD2YR2wXtmwqND9IcoQ6NnF0ML+fj61RpdqSCQDCIH/BwL42jVazYz8AyCePAgDV5j2szebgoAg5FZy/UGsRRQYBgC6vFFhWFB1EOLTxyClGq+d4ufP79GQMRn3xUUdnRAi1C80qwGx/blyVZ2SJYsxzTwy63eT1F67//OfHuRJL+S+fr6m6umueO2jKlAAO2KqKCivxWAzUiRHi8vAEAFBv3mNTawFAMS0VAFSbdzM6gygyiNujq7W2Qbe/0ME5EXImOH+hVsPv05Pj7mJrUJrOnKPEIsGg/qzNpi88AgDi+DAA0GUXOzojQqhdaF4BVnGqwsoC3dPfT/w3Q8V+A3vRwBqK8kotVy/RPXr1oAFsdTV1+NE+6tQEA/sJwwIYg1G1bgcACAb3Fwzqx+gM6h17gRDF5FEAoFyfztrwrR5CLQTnL9R6CBFFBQGAPr8UAESxIQCgyzkEAOLYUCDEcOgYY7jfFpwIISfUrAKMNZtMLACrUWn+rhkUo1FpGADWarFeG8rYD4RnO0QjKau27tLZU0dLS4qLikvKTpafu1SrvYcTZBC6N64PTwSa0uw8aKmqBQDFQ2MBQL0lk9EZxHFh3G6e1qo6fc4hR8dEyFl0pvkLtT1RVDAA6HJLAEAcGQQ0Zd+FSLsqBAH9WLNFn1vi6IwIIcdrVgHG6T/IjwNgq9y55dDdP8oxl21LP2sD4Pj29/2r34flRNkJCwDd1btLOz0Qw3Apb82Xr85NifbrIhHKPLx9BwwODg2PCA8N9O/X29tLJlb0GBid+sib327Iv6DHaRg9CK53F0liJGuzKVduAQCBfx/BYD9GZ1BvywKKkk9MAgDl+nR8v4dQy3D2+Qs5lsC/D+0it9bUm89doqRi4aB+rM2mLyoDAEliJABo9xU4OiNCyPGaVYDRfSdPj+ATsJ74dsHr6VV32ojB1GS89eRXR61ABKHTJ/e3z1bWs8s+/aPCBhzfuFjvdtfGl6nP/2FBrK9v7IyXv/gjPf90tc56y/teljWrLp7I3/H7J89NienjE/noooPVuBcFNZ/LzLGEz9PllJhOnwUAl4fGAIB6axaj1YuHRHI83SwXq/QFpY6OiZBTcN75C7ULhIjCBwOAPv8wAIhiQuGvBTFRTAgl4BuPl1tr6h2bESHkcM2bQuh+Cz55xp9HWH3pt+OD4x//dPXB03XGv55TYY315TnrvlgwJDj1y2IdS/gDn/3i6QE0qyz+feGc2Ogn06oZIop8/JHQ5vXAbzXmP1c8GjPk6R9zq8z2qovQIrcefiGxQ0cmp46bOGni+DGjk4bFhQ308ZRwCQAAsJbaoqUvDo+cuuSYwZHRUUdGuypkKUOAZRtXbgEAvp+vMMif0RvUWzMJTcvHjwAA5VpcBEOoRTjn/IXaD1G0vRfiYQAQRQUBTRlLTzBaPSXgCyMGA8vqDhY5OiNCyMGaO4dIEj7e8MPF0U+tPWeuzvvljYd+eYNwhDKFXMSx6lVKteGvhSPC7zPr57SP4yUAtiu7vv18eZEFgHJN/Ofi/xvQvjZwGAo+mPLYsjMmFgi/W/SMJ5+YPWFkzOAe0tumZAzVJwv3pa9b+uPS9FNqS+Xm5ya/1rfgmxFy0taxkVOQTxql2ZNtLDttKDkuDBmomDXOcOSkemuWNHWoZESMcsNO87mL+kPHRHiIJ0IPzvnmL9SeCAL6UxKR5cIVy6Vqbncv4WA/w+ETurwS6cg4SWKk7kCRdm++fHKyo2MihByp+ZsoBH7zVhTsXTQ31M2+GsRaDaq6qitVdaqrsxehpH5TP8vI+3227/VjBwnfK+qJHzPSXgkWPGj0FsVU/vrWV0dMLKG7j/86+1j20vfmjQq+Q/UFAJTQa2Di9Je+2VZauvHZEDFhzWd+WrjkNO5ERM1DiYWKyckA0LhsM7Asv09PYbA/YzSpt2YSLlc+fiQAKFdvw0UwhFqEc81fqH0hNP3XLsRSABDHhwOA7mAxAAiDBtAucsvlGlP5eceGRAg51gPtYqc9Yp5dWlRZvn/5F6/PnzQ8OmRgv969+w0KiR4xZcHb324oOXts7Stx7n/9FZT3tO/2Hb9Qmffj48HtbaWIubBp9UEDC3SPx3/+47kwxT3H4/uM/2r1h/FCwpoObdxyFisw1FzS1KEcL3fz+UvaA0UAoJgxBgA02/fZ1FppcjztKjdXXDCUHHd0TISchPPMX6j9udoLMa8EAERRQYTHNR47Y2tQAkVdPRBsP7biQKhTe/Bt7ETUM37Wy/GzXv7bgdK+UTEP/Ne1Duvxw8csLFCeqdOGye7zXrrPlGmRbxzYZz1z/LQN+uLGFNQshEMrpqXUffeHcuUWcUwIv28vUViAvvioOm2Py5yJ8vEjGn7b0LhqmzBkIBB8/4dQi3CK+Qu1P8Jgf0okNFdcsFyp5Xb1EIYM1OeX6nJKZGOHSYZEqbdk6g4UuzwymdD4jgGhTgr7OAEAAGsymVkAIpFK7v+9LSVTyCgA1mwy4wYx9AAkQyJ5Pt7W2gbNzv1gXwQjRL1jv02lkSYn0K5yc0Wl4fAJR8dECCF0N4TLEUUMBgD7KY5/7UIsAgCeT3der+42jdZQdNSxIRFCDtRSBZil8VxZYXbWrh079uzPP1xea+xYpQjt3cubBmAuFh+6wvz98BsZSguPWgAor65eWM+iB0GIy6xxAKBav4vRG3i+PURhAazJrN68h3C58nEjAKBx5VZ8EgyhFtXB5y/ULoli7Q3oDwGAKDyAEgpM5ectVbUAIBkWBQDarDzHJkQIOdADVgys+sSWL59ODeyqcPcNjIwfnpyamjQkOqS/l8JzYNKCL9JOqjvGRMYJHJvSiwbWsO/TN9ZeuJ8nuVhNwedvLj1nA8otbmgg9+9vQOguhKGDBAH9bRqtOi0Dri2C7TxgU2qko+JphRQXwRBqIc4yf6F2SRjsT0lE5nOXLBerCJfbdEFMMiSKcDn6kmO2BpWjYyKEHOMBCjC2Ifc/k0JCJ7z83x1lVXqm6UzFsqa6E3t+fHViaOiUrwuUHWAS40UteDZBRsBWuWpuTPJrfxRcMf3tPTblyW1fzIlNej9XzRLeoCeeSRK3QVLk7FzmTABCVFsybUo1r7e3KHwwazKrNu8mfJ58QhLgIhhCD86p5i/UHhGaFkUEwl+tOJr2QqSkYmFYANgYLbbiQKizanYTDuORr6aOfS2rgQEAQst8IhLjw/x7esj4jK7uwslDB/bm/am0soY/N748VkdnpT07iN+CqVsB3f/pHz7fM+zpbVfMlzI+nxv99Qt9I+Pjo0L8fXt5d3WXiwUCHoe1GI0GbX3VxQtnT5cW5hzMO3p14qYUce/+/GZEO/8WUcfA79tLFDFYX3BEuTbd7Ynpihmp+qIyzc4D8gkjpaMT1FszzRWV+oJSe5cthND9c7b5C7VP4thQbVaePqdEMTVFEDSAlkrMlZfN5y7xfLpLh0Xr8w5rM3PlE0ZiXyWEOqFmFmC28iXPvbu3gQHC65Wy8LtFL43pe2P3ClZXkf71809/uO2cqXb328//PHbX073b+QNSXL8n12QInp35/K9HlAxraTiTnXYmO+1vb6OkA2d++sfip0Jx+Qu1FJc5E/TFR7V7smXjhvF8vEWRQfr8w6qNu1znTZVPTq7/aXXjqm2iiECg2vm/KYTaI2ecv1B7JAj0o6Ric+Vly8UqrncXUWyoZud+3f4Cns8kYchAjruL5XKN8VSFYEAfRydFCLW15k0q1qKfvs/WsUB5jF2cuendsX1v6R1IxL4pCzdkLB7rSQGr3vftT4esDx621Qn95/6v6FTu0nfnJPaRc+7+mRThyHrHzXzrlwMnS5b9IxQPhkEtiNvNS5IYydpsylXbAEAxIxUI0ezKtjUoJSNjOV7ulgtXtAeLHR0ToY7IWecv1O4QmhZFBgKA7uqjXxEAoD1YBAwDFCVOjAAAbSa24kCoM2rWCpjtTGbmWSsAN+SFT+f53rnxBNf30c9eXJL+VqHlzz17/vww3K8jnHjB8Yx8+P0/Hn7fojx7pOhQ2ak/z1+qrm/UGsxW4ArFEolE7tGzr5/fgICgAB9FqzbdOH/+/M6dO5txY11dHQAwzH33c0Tth2LGGN3BYl12sXziSJ6Ptzg6WJdbotq0x/WxqVePC1u1VRwbSjgd4R8VQu2HU89fqL0Rx4ZqM3J1OYcU01P5/Xtzu3laLtcYjp4RBvpJR8SqNu7WZRe7zptCCQWOTooQalPNK8Aunr9oA6B7DRv2N+cO032HD/elC0/ZLpy7YIMONYFxFb3DRvYOG+m4BM8991xa2t/vgbyTS5cutWAY1MY47i7S5AT11kzlyq2ebz6lmJ6qyzus2X1QNmGkJDFCtWm35WKVNitXmhTv6KQIdSidYv5C7YUgwI9WSC0Xq8znLvJ8vMXx4co123X7CoSBfhwvd4F/H+Pxcl3OIemIWEcnRQi1qWYVYKxBp2cBaLFU8ndbGK8ebXz1DnQ/XnnllS5dujTjxg0bNtTV1Xl6erZ4JNSW5FNGaTNy9MVHjcfLBQP7imNCdDmHVBt3uc2frpgxpvY/PyvX7JAkRhI+z9FJEeo4cP5CbYjQlCg6RJO+X3ewiOfjLUmMVK7docsrcX1iOiXgS0bEGo+Xa3dnYwGGUGfTrAKMcvVwo0Btu1heYYDBkrsNNVWUV9oAKDcPN3yG+T4lJCQkJCQ048aioqK6ujo+Hxt3dWy0VCIbO0y5dody5ZYuH76omJ6qyy3RZuTIJyaJY0LUA3xNJytUm/copqc6OilCHQfOX6htSeLDNen7dQeLXWZP4HRx5/fvbTpVYSg8Ik6IEMeGNPy6zlR+3lxxgefbw9FJEUJtp1mzCsc/JFBEgGnc/tvGy3d70Iit2rR0Wz0DRDQ4dECzO94j1FnJxg2npGLjiT8Nh09wvbuI48JYi1W1YScAuM6dBISo0zJsSrWjYyLUceD8hdoW3683x9PNWtdoPFUBABJ77439hQBAuFzJ0CgA0OzOdmxIhFAba1YBRlxHTRkuJ8DUp70894sC1e03Z7Dq4i8feXFDLQNEPnxykiv2CUToPlEi4dXDl1dsAZZVzBgDNKXNyLVW1/H79xZFBjJGk3LNdkfHRKjjwPkLtTFCxLGhAKA7UAwA4rgwwqENpSdtjSoAkCbFAyG6A4WMwejgnAihNtS8fRXEa8Z7L4YICTC1GW8MCUp6dtHGvPJ6k30iY80NFfmbv30+OSj+1V01DBBB8PPvzvDC+QuhZpClDqFd5fbDl7ldPSTxEazNply/EwBcZk8gNK3Zk2O5WOXomAh1FDh/obYmjg8HAH3OIdZmoyQiYVgAMIz2QBEAcLt7CQb4MkaTLhtPFkGoE2nuxnZeyJtrfpjak0uANZ7P+O6FyTH9PER8scJFIRYI3ftET3zum93njCwQjvek79csDMXHkRBqFsLjKiYnA0Djqm3AsooZqYRDa/fmWy5Xc7t5SkbGAsM0/rHJ0TER6jhw/kJti+fTndujq02jNR45BQD2bYfarKsngElHxQOAJv2AAxMihNpY858s5vaZu7Jg9ydTB8pp+4eDLGPRq5QqvZmxf5JIKJnfpI93Fqye17dVj8tqCTZ9Y031g6pRmRz9fSCnJBkZx/F0s1y4ossp4Xi6SYZEAcOo1u8EAMX0VEok1BcfNZQcd3RMhDoMp5q/UEcgjgsDAN3BIgAQhgbQCpnlwhXTnHOEgwAAIABJREFUn5UAIIoOoWUS87mL5opKB6dECLWVB3qymPYa8trasqdOZ27YtGt/XsmZS3WNGgtX4uLWrU9wdGLSxClJA+QdoncUc/b7MQNfzbU82FcRTFurXDMVPytFLY1waPnkUfU/rFSu3iqKDpZPHa3dl689UCSfNIrr3UUxLaVh6YaGn9d2+2oh4WKvAITuidPMX6hDkMSHK1dv0xccYU1mwueJ48PVWzN1e/P5fXoSLkc8JFK9JVOz86DbP2Y5OilCqC08+Ns1StZ/5KOvjXz0wbM4EN/VQ8EltRY86wW1T5Jh0apNuy2Xa3QHiyRDIiUj4jQ79ytXb/N4+XFp6lBNZq7lwhVN+n7ZuOGOTopQB+IU8xfqCDhd3Pl9e5nOnNMXlYnjwiTDo9VbM7UHCl3mTiJcjiw5Ub01S3ug0OXhiZRE5OiwCKFWh5+XAwBQPR7bfGl8Wfrviz7699LCOisLAETsGx3fX34fz17zgrvg56WodRCaVkxLqfv2D+Xa7eL4MMXUZO3ePF3eYVn5eX7fXq7zplZ/8K1yzXZxfBjtInd0WIQQQjcTJ0SYzpzTHSgSx4Xxenbj9fY2n72oLyoTx4RwurgLgwYYDp/Q7s2TjcXP0RByfliA/YXrPnjcS/8blRo8Pu75XQ0M0D2mL9r67wj8AaF2QpIQodqwy3KpWre3QDIiRpacoErLUK7e5rXwaWGgnygsQF98tHHlVvenZzs6KUIIoZuJ48Mal27QlxyzqTS0XCoZGt1wdp1ub744JgQApMmJhsMn1On7ZWOGAcG+mwg5uXuoL8zpz4U+u+MB+0vwU7499M1o3oN9kTbAH7Dgoye/z/zkhNXRSRC6CUUppqXUfv2bcn26eGikfNIoze5sQ8lx47EzgkH9XB6dYjhyUpuVJxkeLRjQx9FZEWofOtX8hdo3WiYRBPsbio/qc0ukoxMliRGNyzbpDx+3NapoF7koPIDj6WatqjOUnhQG+zs6LEKodd1DAcZqq/4sL3/AEwIFVdoO8nwVNzglqfvnJ847OgdCtxDHhak27DJXXtZm5UlHxsnGDVeu2d64ckvXj17idvWQTxqlXLO9fsmqbl+8QWja0WERagc62fyF2jlJQrih+Kh2f6F0dCIlFQtDB+nzS7X7CuUTRwIh0qS4xuVpmvT9WIAh5PTuoQAjsp6DAgIe9BPEnrKOsqLOCQgdzCXncQkMtT+EyKeMrv3qF9W6dMnQaNn4EZqdB0wnKwyHjglDB8knjdJlF1suXFGnZcgnjXJ0VoTagc42f6H2TRQZRImEptNnLZdruN08JcNj9Pml2swc+YQRQIhkZKxyzQ598VFrTT3H083RYRFCregeCjDeqC+Kyr5o/SjtBZEFj5owTFvn7YtzLmp3xLEhqg3dzecvabNypUnx8olJDUs3NK5IE4YMJFyO24KHqt77Rrl2hzg2lOPl7uiwCDlaZ5u/UPtGeFxRZKB2b77uYJFieqooZCDH3cVyucZ4qkIwoA8tlYhjQ7T7CjS7DrrMmeDosAihVoRt+27FCXp2VUbWnqVP+OEuLtTuECKfOhoAVOt3sharNGUIx8vdfO6Sdn8BAAgG9pMkRrBmS/3/1jg6KEIIoZuJEyIAQLe/EFgWKEqcGAEA2oxc+6vS0YkAoMnIYU1mB4ZECLU2LMAQ6mDE0cG8nt2sdY3azFzCoRXTUwGgcfkW1mwBAJe5kyiJyFByXLsv39FJEUII3UA4uD/tKrdU1ZrKzwOAdEQsEKLLOcQYjADA7+fD7+fDaHTa/YWOTooQakVYgCHU0RBiL7pUG3exFqskMYLn28PWoFSn7wcAWi51nTcVABp+XmetVzo4KkIIoaYoShIfDgDafQUAwPFyFwzsy5rMuuxi++uyMUMBQL0tC1js/YKQ08ICDKGORxQVxPPpbq1r1GbkACEus8cDgGp9OqPRAYBkSKQoKojRGxp+XOXopAghhG4gGRYNALqDRazFCgCSEbHQZBeiKCaE46awXKwylJ12YEiEUKvCAgyhDogQxdQUAFBu2MmaLcIgf2GgH6MzqDbusr/uNn86JRHpi4/iPhaEOhersqJ4X3ralt25R883GP9uDcVaX1FWWlpaWnZehcstbYXboyvPx5vR6g2HjgGAODqYEotMZ86Zz18CAELT0lEJAKDZluXgoAihVoMFGEIdkn0RzNag0mbmAoDLnIlAiHrHPmtVHQDQLnLXR6cAQMMva20NKgdnRQi1Ad3pze9PC+7q1Td8aMqE8aNiB/f27BY47d3VRxqZO93C1qx5Ijw4ODg48tXd2PShDUmGRAKAvXkS4XHF9k2JmVcXwSSj4giPqz90zHK52oEhEUKtBwswhDomQhTTUgFAuX4na7bwfHtIhkaxFmvDHxvtr0uGRgnDAhitvu673/FZAoScG1O969XhUZP/ua60znztXztrazy67sOZMQlPrTtncWQ6dDNxYgTQlKH4qE2jBQBpUhwAaPfm25sf0lKJOCEcWFaTfsDBQRFCrQMLMIQ6KlFkIM/H29ao0mTkAIDL7AmUUKDPLzWUnrQPcH96Nq2QGY6cUm/FrSwIOS/rmSVzZ35ZoGQACC3ziRg148n/e2rOuMgeQgLA6o/9b9aw+euv3HEdDLU5Wi4VBvmzVps++xAA8Hy68/v0ZHQGXX6pfYAsdSgQos3KY3QGhyZFCLUKLMAQ6rCatkM0W2iFVD5pFAA0/LaetTEAQMul7s/MAUIaV6SZz11ycFqEUKtglds+/GBPAwOE23PCl9kV5QU7Vy359r9/pOWfOZPxcXJXDmEt55b937MrL2EJ1o5c3YW4r+DqH0fGAYB2T7b9j7xe3YWBfozBqNmd7aiECKHWgwUYQh2YKDKQ37eXrUGl2XUQAGTjR3C7eFguXNFm5tgHCEMGSkfFsxZr7aLf7AeFIYSci2bX8s3VDBDe4JdXL38hyo2+9gq/+7C3Nmd+OdKVAqZq40vPr8JVsPZDFBFIiYSmM+csl6oBQJwQTgkFxuPllotV9gGycSMAQL19L2u1OTIoQqgVYAGGUMemmJYCAKoNOxmjiXBolzkTAEC5ciuj1dsHuM6dxPXuYrlwpeHntY4MihBqDZajBYd0LBDh8GefjxLf8jJ/wDP/+2KMOwVMzaZ3Ps7SOCAhuh3C44pjQgBAuzcfACgBXxwfBgD2LeUAIAz25/l0tzUodTmHHJgTIdQaOI4OgBB6IMKwAH5/H9Ppc5r0A/KJI0XRwYLB/Y1lpxuXbXZ7aiYAED7P48V5V978QpORwx/gaz+CBiHkJJj6mjoGgO4dHupObjeA6jn3i7eXZr24T3v257e+e+rgmwHcVg+VlZW1alVzziGsrKwEAJPJ1NKJ2iPx0ChNRo52X4HLzLFAUZKRcZrd2dq9+S6zxhEuFwBkY4bVLV6m3rxHkhAO5Lb/dRFCHRIWYAh1eIoZY6s//E61ebc0OZ4SCtyenHn5pY81GTmSYVF8P18A4PXq7v6PWbWLltb/uJrn483r7e3oyAihlsLau5za7rxRje6/4PPnf4n/1xFj0X8WLn9446Perb375euvv05LS2v27TU1NS0Ypt0S+PfhdvOyXK42lJ0SBvnz+/Tk+fYwV1zQ55WKE8IBQJwYoVy11Xz+kvHoacFgP0fnRQi1GCzAEOrwhEEDBP59jCf+1GzfJ5+SzO3qIRs/QrV+Z/2SVV0/f53QNACIEyIMZae1mbm1X/3a9dNXKaHA0akRQi2B9urqRYHaVll8qJqJ6H770koQ/urnj61I/eFs/dY3XliZtGb2Hca1lMWLF48bN45h7vuZs48//riysrJ79+6tkaodEieGK1dt0+7NFwb5A4A0Ka5+ySrN7oP2AozQtDQ5sXFFmiotAwswhJwJFmAIOQPFQ2Or3lukStsjTU6gJCLFlNG6g8XmysuaHftkY4fbx7jNn27+s9J8/lLdN0s9X3sSN7Qg5Aw4A6PCpOSM0rD3my+zZ36RILvtP2wiT3r/sxmbZ6y4Ur3xpQU/RWxY0J/XiqG8vb3nz5/fjBuXLFlSWVlJUZ3lAXXJkCjl6u36vFJmvoESC8UJEY2/bzIeLzdXXub17AYA0lHxyvXphsMnzOcv8Xp1lroUIafXWX7HIeTcBIP6CYP8GZ1BtWkXABAe123+dABQrt5urW2wjyE8rudrT1ASkb6wrHF583cHIYTaE2nS7IldKGAtJxbNmPpx5hXr7YcRz8mffzWtOw1MzfbnxsxfdlrftjHR7XA8XAUB/ViLRZd7COytOBIjAcDe2BYAKIlImhQHLKvatMeRQRFCLQoLMISchMvDE4EQ9bZ91rpGABCGDBTHhDAGY933y8H+jAgAx8vd8/UFhEOrNu3WZuQ6NC9CqGXIUt755yg3Cljbld3vjOzbO3L8vBff+eT73edueiiM6jb9+6UvBEsIay7/Y25oyNgXvlh9qJ51TGj0F8nQKPirFyIAyFISgRDdvgLGYLx6ZdwIwqF12cXWqjqHpUQItSgswBByEjyf7uLYENZiUa1Lt19xfXIGrZAay05pdh64Nkzg38f1sWkAUP+/1aZTFY7JihBqQbTvE3+sfTPOjSYArP5i4Zbfvv7orYV/lN2yFkZcR3yesf2fQ9wpYHWnty167aX/leLxgA4mjg6hhALTyQr7gWBc7y4CP1/GYNQdLLYP4LgpxPHhwDDqbVkOTYoQajFYgCHkPBQPjSM0rcnMtR/lSUslbgtmAkDDH5ssVbXXhklHxctShrAWa/W/fzBXXnZYXIRQCyHuwz7KLNn5xWMJPhL6rk93EteEd7ftXfrsEG8BPgXaLhA+T2Q/EGxfgf2KNDkBADQ7918bI580CgjR7MmxKdUOCYkQallYgCHkPLhdPSQjYoBhlKu32a+IIgLFcaGsyVz33R/XNiICgOu8KaKoIEarr/5osbUat7Ug1PHxeox46ef9FbVXThVmpK1d9v38oDud9yUeNOebveVni7f88MHzcycMiwzs39MV+6I6kP14Ru3efGAYABDFhNAKqfncJdPps/YB3O5eovAA1mLRpO+/2xdCCHUQWIAh5FQUU1MIn6fLO2w6eXV7oev86bRCajpZoUrLuD6OojxefEwY7G9rUFV98J2tUeWYuAihlkUEHv3Ch4+bOmtmYs+7zvD8LiFjF7zz9dJNmfmlp079MJbfVgnRLQT+fbjdvWwNSkPpSQAgHFoyLAYAmu4el09MAgB1+v5rz4YhhDouLMAQciq0q1w+YSSwbP3Pa+xLXrRU4v70HCBEuWLLtaoMAAiH9nhlPr9vL2t1XdU/v7nWLBEhhFAbkwyJBABtVp79j9KkOKAoXc4hm1prv8L38xUM7Mto9dcaJCKEOi4swBByNvKJSRwPV/PZi9faaglDB8knjGBtttqvfrFptNdGUgK+18KneT7elkvVVxZ+ablwxUGREUKoU5MMjQKK0heU2n9FczzdRGGDWItVuyf72hj5lGQAUG/JYM3YOgWhjg0LMIScDeFxXWaNA4DG5ZuvbVZRzBwv8O9jrVfWffN704fBKKm4y4cvCAb1szUor7z9lfHkn44JjRBCnRjtqhAGDWCttmvND6WjhwCAOn0/a7t6noAwyJ/v52tTajR7chwWFCHUErAAQ8gJiePDBQP62JQa1abd9iuEptxfmEfLJIaS442rtjYdTAkFXm8/I4oOZnT66ve+Ua7dwdoYR6RGCKHOSzI8BprsQhQG+nG7e9kaVIbCsmtjrj4Jtnk3a7Xd9osghDoELMAQckaEuDwyCQhRp2Vea0DPcVO4vzAPaEq1fqcm44YPUAmX4/nSY/LxI1iGUa7eVrXwP/YTaRBCCLUNUUQgLZWYKy6Yz10EACBEOjoRANTb910fEx7A8+1hrVdq9+Y5KidC6MFhAYaQc+L385EMiWQtlvolK6/tORQG+rk/ORMA6pes0heV3XADRbnMndTlvWc5Hq6m8vOXX/5X3eJlWIYhhFDbIBxanBAOANrMq8WVZGgUJRQYj58xn7/01yAin5AEAKqNu3GrAkIdFxZgCDkt10cm03Kpsez0tW4cACAZESOfnAwMU7doqbniwk23CAL6d/vyLWlSPMuy2qy8Sy98VPPZj/r8UtaCz3wjhFDruroLcX+B/VcuJRRIhkYBQNPjv8SxIdzuXtbqOt2BQkflRAg9ICzAEHJalFTs8shkAGhYusGm1Fy77jJzrDghgjEYq97/9tpBn9fvEgrcFjzk/e170uREwuHoC47UfP7ThcferPv2d+OxM00beCCEEGpBPJ/u/D49Ga1en19qvyIdnQiEaPcXMlr91UGEyCePAgDlOnxeF6GOCgswhJyZJDFCFBbAaPUNv667fpUQ92fm2LtuVL3/rf3oz5twPN3cnpju/d8PXOdO4vftxRiM2n0FVe8tuvT8R+q0DMZoarvvASGEOg3JiFgA0GTk2v/I7e4lDBrAmsyaJv3oJQkR3G5e1ipcBEOoo8ICDCEn5/r4NMLn6bKL9fmHr10kHNrzpcckw6JZk7nmkx902Yduey+tkMrGj+j6yave3/1TMT2VdlVYLlc3/L7x8iv/Np0510bfAEIIdRrihHBKwDcePX2tf5JszDAAUG/fd60fPVCUfAougiHUgWEBhpCT43i6uT48EQDqvl9uram//gJFuT89WzZmKGux1n71S91/l99lXYvTxV0xPbXHDx94vr6A19vbWlVX9fZXqvU7gcG5HyGEWgwlFIhiQoBlr/ejD/bnenexNSj1eaXXhl1fBNtf4KCkCKHmwwIMIecnHZ0oigpidIbaL3+54fQYQlznTXWbP53wuNqM3CuvfGI6WXG3L0RRoojBXf/9qr1hfePKLbVf/YpPhSGEUAuSjIgBAG1G7tXVLUJkKUMAQL0t6/ogipJPSQYA5fp0XARDqMPBAgyhTsH96TkcTzdT+XnlirSbXpKOTuz22es8H29LVe2Vt7+s/vj7u5dhhEO7zJ3k9c7/UWKhLrdEtTmjNYMjhFDnIhjQh+vdxaZUGw4ft1+RDI2ipGLT6bNN935LEsK53TxxEQyhjggLMIQ6BUos9HjhUULTqi2Z+rzDN73K9e7S9d+vKKamUEKBoeT4lbe/rHr3a+3+QtZ8x+7zwkA/j+ceAUIaV6QZSk+0cnyEEOpEpPZ+9H813iB8nnRELACot+29PoiiFNNSAEC5dscNWxsQQu0eFmAIdRb8/r1dHp4ILFu7aKnx6OmbXiVcjuKhMd7//UAxPZUSi4zHy+u+WXph/lv1P602V16+7RcUhgUopowGhqn75ndrvbL1vwOEEOoUxEMiCYfWHzpma7j6q1U6OhFoSp9b0vSXrTg+nNeru7WmXpuR46CkCKHmwAIMoU5ENnaYbNxw1mKp+fRHc0XlrQMoiUgxPdV7yYduC2by+/kweoNm54HLL/2r6t2vddmHbn3cSzEjVRjsb1Np6hYtbZPvACGEnB8tl4oig8DGXOtHz3F3EceEsjabZvve6+MIUUxPAQDlunTWZHZEUoRQc2ABhlDn4jp3kiQxgjEYqz/63nKx6rZjKAFfmhTX9d+vdP9qoSx1CCUSGo+X1371y+XXP7v54GZCPJ5/lJZLjcfP3PY8MYQQQs0gTYoDAG1GzrVms/LxwwFAs+sgozdcGyaKDOL37WVrVGl2HXRIToRQM2ABhlAnQ4jbM3OEYQE2tfbKW//RFx+9y1huj66uj03z/vEjtycf4ni4misuXFn4Zd13f9g02mtjKKlYNnYYAKjW72z18Agh1DkIAvpzu3pY6xoNJVdbcfB8ewoC+jMGo/avZTEAAEIUM8YAgGrDLsZgdEhUhND9wgIMoU6H0LTny4+LY0IYvaHmkyXKdTvu3kqeEvClo+K7f/22YloK4XC0e/Or3vpP0yPFpClDaKnEePyM8cSfrR8fIYQ6AUIkI2IBQPNXKw4AkI8bDgDqrZnXD2UGEIYMFAzoY9Nob2jRgRBqx7AAQ6gzIjyux0uPucweD4QoV22reu8b48m/qZ0In6eYMab71wt5vj0sV2qvLPzSfO6S/SVKwJemJAKAan16q0dHCKHOQTIihnA5+uJj1rpG+xVh6CCudxdrvVKfW9J0pGLWWABQb97TdHsCQqjdwgIMoc6KEPmkUV5vPkVJxcbjZ6re/qr6w8WG0hN3b2fM8XLv8v7zgsF+tkZV1btfX1vyko0dRomFhsMnTKfuepQzQgihe0NLJaKIQGAYbVbe1UuEyMYNBwBVWmbTkYKB/YQhAxmDUbV+V9vnRAjdLyzAEOrUhCEDvRf/UzE9lRIJDaUnqj9cfOHR12o++1GzO/tOneUpocDrrX+IY0MZvaH2s5/sXZIpkVCanAAAqk272/QbQAgh53VrKw5JYgStkJorKm86TcRlzgQgRJO+z1pd54CgCKH7gQUYQp0dJRIqpqd6//d9xUNjeT7dGaNJX3CkfsnKiwvevvzqJ8o1223qm/e0EC7H48V5wpCBNo22dtFS+zsD2djhhM/TFx1t+ngYQgihZhME9Od287TWNeqLj9mvEC5XljIUbvm0i9eruzg+nLXalGt3tH1OhNB9wQIMIQQAQIlFiqmju33xpveSj9yemimKDCR8nvnsReWa7Rf/8W7D7xttSs0NNxDi/uxc2lVuPHZGuX4nANAyiSgyCFhWd7DYMd8DQgg5GUKkSfEAoNl14No1aUoiJRIaDp+46ThHl5ljCZej3Vdw7QFdhFD7hAUYQugGHDeFdGSc52tP9vztU6+3nxFFBLJmizot4+Iz72l233DODC2TeLzwKFCUcs12Y9lpABDHhwGA7mCRY6IjhJDTkQyPIXye4fAJy5Va+xVKJJSMjAUA1eY9TUdyPN2kSXHAssqVWxwQFCF0z7AAQwjdHuFyhcH+nq8/2e3z10VRQazJXL9kVd3iZazFcm2MYGA/+aQkYNm6/y5nrTZhsD8lFZsrL1suXHFgcoQQchqUWCiODQWW1TbtRz92GOHQutzD16qyq9enjKaEAn3xUeOxM22eFCF0r7AAQwj9DZ6Pt+erT3g8/yjh87RZeVcWfnWtJzIAKKaP4fXsZq2p1+7JJjQtjgoGAF027kJECKGWYW9xpMnMvfb5F+2qEA+JBIZRb8loOpKWS+UTkwCg4df1dz/gESHkQFiAIYTuiTghvOu/X+F28TBXVFZ/8O21zhyEphTTUwFAuX4na7bYdyFqDxbh3I8QQi2C37cXv09PRqPT5Vw//ks+YSQQos3KszWqmg6WjRvOcXcxn7uoPYC7wRFqp7AAQwjdK17Pbl0/fY3n28NyuabmX/9ljCb7dVFUEL9vL1ujSrM7WzCoH+2qsFbVmf6svPtXQwghdI+koxIAQLPzeisObjcvUWQQa7Gqt+1tOpLwuIoZYwBAuXwzazK3bUyE0D3BAgwhdB8osdDr7We43bxM5edrPl3CWqwAAITIp6UAgGp9OmMyi2NwFyJCCLUkcXwYJRaaTp81n7147aJiSjIQoknfb9PccFiIZGgUz7entV6p3rGvzZMihP4eFmAIoftDyyReC/9Bu8iNZafrf1xlvygKC+D397GptZr0A+L4cLAXYH+dHIoQQuhBED5PMiwGAJrWVDzfHsLAAYzRpNmx/8bRxGXOBABQbdhlU914gghCqB3AAgwhdN84Xu5eC/9h78mhzztsv2jf9KLevIfXsxvHy93WoDKeOuvQmAgh5DxkoxOBEN3BIkaju3ZRMT0FANTb9zIGY9PBwkA/YVgAozcoV21r66AIob+DBRhCqDl4Pt6ucycBQN1/V1jrlQAgDPLn9+1l02j1BUfEUUEAoC884uCUCCHkLDhd3IUhA1mzRZORe+0i389XMLAvo9U3fTzMznXeFMKhNRk5eC4zQu0NFmAIoWaSjooXhgUwOn3998vsPQ8lI2IAQJuVK4wMBAB9QamDIyKEkBORpQwBAE36vqYbvOVTkgFAvSXzppYb3C4e0tGJwDANv61v45wIobvDAuw+MLqLh7O2rlv+22/L12/NOlSpsTk6EUIORYj7UzNpqcRQetL+4as4LozweYay0xxXBa2QWqvqLBerHJ0SIYSchDDYn9vN01rXqC8+ev2iffeBSqPJyLlpvGJaKi2VGI+e1hfgfgSE2hEswAAAgG0oL8zPz88vPHbFeLvXDRXbP5kb3d29Z8jwcdPmzJs3Z+q44WE+Hl2CJi9ccbgB+wygTot2kbsteAgAGpen2VQaSiQURQYCy2r3FwhDBgEAzvoIIdRiCLH3o1dvv6G9oXzKaABQbdp97aRmO0osVMxIBYDG3zdebVqLEGoHsAADAABz5luJ0dHR0XGPL7tw87IWU73rteER4978I7/KeMPBsqyp7sjGf82Jjpi2uESDR86izkoUHSwKH8wYjKr16QBg79OlzcwThQ8GfAwMIYRalGRYNCXgG4+ebrq/QBQxmN+3l61Bpdl98yKYJCme17ObpapWvSWzbZMihO4IC7C/YT769YwZ/8lrYACA8DwHj5r1zGvvfvDBu68/MytpkDuXAGuq2Pj8uHl/nMVPllCn5fLwRKApzc6Dlqpa4eD+HA9Xa009EXAJn2cqP29rUDo6IEIIOQlKLBQPiQSWven8ZfuTYKqNu1jzDYtghKZcn5gBhCjXp1trG9oyKkLoTrAAuyvm8oq3PjqgZIDQXsPe2XLq3JGdy7/79P133nn/k++W7yo7W7bq2XAFxdoubXz51TVVuAqGOiludy/JkCjWZlOu3AKESIZEAYDuQLFwsB+wrL74mKMDIoSQ85CNGQaEaPflN+1HL4oI5PftZWtUafbcvAgm8O8jjglhTebGZZvbNilC6PawALsb5sK6X3cpGSD8wFc3bv5gjI/whpeJxG/6oi0/PeRNA1Of9uXPJ7ApB+q0XB4aQ/g8XU6J6fRZybAoIESXWyIM8gfchYgQQi2K281TGOzPmi0lmv7BAAAgAElEQVSa3dlNr99pEQwAXB6ZTPg8XXax8ejptguKELoDLMDuRpe7v9jMApGPe+PVaOlth5AukxY+FcQF1lq2c9cFbMeBOivaVSFLGQIs27hyC8fLXeDflzWZgSJAUcayUzedEIoQQuhByMYMAwB1+j7Wdv2zX1H4YJ5vj9sugnHcFIopyQDQ8Ms61oZvVhByMI6jA7RnTN2VKgsLwAsZGq8gdxpF94uP60ofqrRWnKmwgg+vxf76JUuW/PTTT8248eTJkwCgVqtbLApC90A+aZRmT7ax7LSp/LwoJth4/IzhyCl+fx/TyQpj6UlRdLCjAyKEkJMQBvvzenYzV17W55aI48OvXiVEMS215tMlqo27pCNjCY/b9BbZuBHazDxz5WXN9r2yccMdEBoh9BcswO6OAABQchf5XZYKicJVQaCSUTWqWvQpsOzs7OLi4mbfrtPp/n4QQi2HEgulI2NVm/Zodux3mT2u4Zd1hsPH5ZOTTScrdPmHsQBDCKEWJE1JrF+ySr0l83oBZm+H2M/HdOacOn2/fPyIpuMJl+M6f3r1R4uVa7aLYkM5boo2j4wQugoLsLugvPr0llAHG5ja6loGpHeqwZi6mjoGgMgV8jsukzXHzz///PLLL1ut991ecc6cOSdPnuzatWtLpkHoHkiTE1VpmbqcYpe5E/n9eplOn6OlIgAwFB1lLRbC5f7tV0AIIXQvJImRjSu2mP6sNJ0+y+/f+9p1xYwx1R8tVm/cLU2Ko4SCprcIg/1F0cH6vMONv633ePnxNo+MELoKC7C7EcaPS3JZvrrh0JYdF55/ptftKzBT0Y49NQwQYUCIf4u+veRyuUFBQc24USQStWQOhO4Zx8NVFDJQX3xUm5Unigo2nT5nPFHB8/E2n7toPHJKGBbg6IAIIeQkCJ8nTYpTbdil3pLZtJoSBvsLBvYzHj+j3palmJpy011uj08zHjmlyy2RFB/F38kIOQo24biB7cSPT8yY9+yb//rm17XpB0srLMNffjZUCIZ9H724rPJ2PQ5ZVe5HL/xQbgXCjx6b7NWiK2AIdUTS0YkAoEnfL44KAgBDUZkwIhAAdHmHHZwMIYSciyx1GOFydfml1qq6ptcVs8YCgDotk9Hqb7qFdpErpo4GgPpf193aLBEh1DawALsBoy7ft/637z5Z+Pxj01MSgvt29Yz/7JgVgKna9FTq63u1Tcda6o+mfTorLvnjQh0LtPesl2f3wJ8mQsJgf243T2tdo/lCFc+nO2MwclzlAKAvKsPWWwgh1IJohVQcHwYMo96e1fS6YEAfYZA/ozeo0jJuvUs6ZhivV3drVZ1yfXpbJUUI3QBLBgAAoP0nPPvEzHHDIvx7uAro6+tYLGPWGywsALCG8sMnNdebbFiyX48InvDGqmMaFgi/3yPffJTigutfCAEQIh0VDwCa9P2iqGAAMJef53p3YTQ60/Ezjg6HEEJORTZuOBCiychteigzAChmjgVC1NuybI2qm24hNOW24CEgRL15j7nychuGRQhdhQUYAABwBs3+7McVaZkFxyvrddq688fyMzYvX/Kf91/9x8OTkmIG9/YQcW6urhiGAQAglCL06RW7l0zsij9KhOwkw6IJn2c4cpLXpycA6AuOiCJxFyJCCLU8Xs9uwmB/1mTW7DrY9Dq/by9RZCBrMivX3WaZi9+/tzQ5gbXa6n9YCWyLdnBG6C/WusYrb/2ncdlmRwdpj7AJxy0ogWvPgZE9B0Y2PSSDNauq6lmP61UYEXYLHT13RtLEWbPHBbnjjxGh6yixSBwdot2Xb664wO3mZblczfV0BwB9/mG3x6cBhR9WIIRQi5GPH2EoOa7evlc2fnjTZrMus8fri8o0e7JlqUO53b1uustl9nh9wRHT6bOanQfsz+4i1IKsdY1V735tramnXWSOztIe4Tuhe0N48q5dFU3qLE74axu2Lv30+UlYfSF0K3FsCADocw6JooIAwHzhMsfL3abUGE+fdXQ0hBByKoLBfrze3jaVRnegqOl1bjcv6dBosDHK1dtuvYsSCtwXPAQAjcvTrPXKNsqKOgdrXWPVe4usNfU8357uT892dJz2CAswhFDLEwT7UxKRufIyr1c3sO9CjAoCAH1OiaOjIYSQs7GfuazavOem/YSKGWMIn6fLLTHd7sMvYViAKCqIMRgb/remjYKiTsBa21D17tfW6jp+f58u/3yWEuPZSLeBBRhCqOURmhZFBgGA5VI1rZBZaxvsz4PpsotZ2+1OdEAIIdRcotgwjqeb5VK1vuBI0+u0q1yWkggs27hy621vdHt8OiUW6guP6A4W3XYAQvfFWlNv33nI79/b653/o0RCRydqp7AAQwi1CnFMCADocg6JwgIAwHqlltujq02lMZaedHQ0hBByKoSmZGOHA4Bq466bXpJPGkWJRcayU4aS47feSLvKXedOBoD6n9falJo2iIqcmLW2oeqf31hrG/h+vl7vPEMJBY5O1H5hAYYQahWCQD9KKrZcqub19gYAQ1GZJCEcALT7ChwdDSGEnI10RAwtk5jKzxuPnm56nRKLFFOSAaBh6YbbHsYoGR4tDBrAaHQNv65to6zIGVmr6qre+cpaU88f4Ov19tNYfd0dFmAIoVZBaFocGQQA1kY14fNMf1byBw8AQvQFRxi9wdHpEELIqRA+T5o6BABUG3ff9JI0dSi3i4flYpU2K/d2dxK3p2ZRAr4u+9BNOxgRukeWK7VV731trWsU+PfxehvXvv4eFmAIodYisvdCzC0RBg0AlrWcvSDw78taLPr8UkdHQwghZyNLGUIJBYbSE+aKyqbXCYdWzBoHAMqVWxmD8dYbOR6uLnMmAED9jyttGm3bpEVOw3K5puq9RdZ6pWBgP8+FT1MCvqMTdQBYgCGEWosgwI+WSy2Xq3m+PQFAX3hEMiQScBciQgi1AkoskibFwe0WwcSxofwBvjaVRp2Wcdt7pckJgkH9bEpNw4+rWz0ociKWS9VV7y2yNSgFAf29Fv4Dq697hAUYQqi1EJoSRQQCAGs0AUUZj54WhPgTHtd47Iy1rtHR6RBCyNnIxg4nXK4u77DlUvVNL7k+PBEIUaVl2Bpud+oXIe7PzKGEAl1uiS67uC2yoo7PcrGq6r1FtkaVYLCf15tPET7P0Yk6DCzAEEKtSBgWAADG42cE/XuzFqvp1FlRxGBgWd2BQkdHQwghZ0O7yiXDo4FlVRtubofI9/MVRwezJnPDH5tvey/H083lkUkAUP+/NbZGVatnRR2cufJy1XuLbEq1MMgfq6/7hQUYQqgVCQP9CJdrOnOeP7g/AOgLjkgSIwFAm5F704GhCCGEHpx80ijCobUHCi1Xam96yeWRyYTP0x0sMp7887b3SkfECkMGMhpd/Q8rWz8p6sDM5y5Wv/eNTaURhgz0fONJwuM6OlEHgwUYQqgVET5PMKgvsKz9NEZDUZlgcH+Op5ulqtZw+ISj0yGEkLPhuLuIEyOBYdSb99z6knzccGDZhl/W3f4jMELc/zGLkoj0xUc1uw+2RVzUAZn+rKz65zc2jVYUPtjztScJF6uv+4YFGEKodQlDAwDAXH6O59OdMRiNZaelo+IBQJO+39HREELICSkmJwNNabPyrLUNN70knzSK4+5irrig3Zt/23tpV4Xbkw8BQMNvGyyXa1o9K+poTKfPVn/wLaPVi6KCPF6ZT7gcRyfqkLAAQwi1LlF4AAAYSk4IowIBQJd3WDoilnC5+kPHrNV1jk6HEELOhtPFXRwbxtpst/Y8JHyey+zxANC4fPOdjmQUx4ZKhkSxJnPdN0tZm63V46KOw3jyz+oPFzM6gzg21OOlxwiHdnSijgoLMIRQ6+J4unG7ezF6A9fTAwD0RWVEJBTHhwHLanbhFheEEGp5iinJQIhmT86tPQ/F8eH8/r1tSo1qXfqdbnedP43j6WYqP69au6OVk6IOw1h2uvrDxYzBKE6I8HjhUUJj9dV8WIAhhFqdvRei5cJlrncXRqMzHjsjSx0KAJo9OazJ7OBwCCHkdLjeXcQxIazForylHSIQ4jZ/GhCi3rbXcrHqtrdTQoH7c3OBopQbdhmPn2n1uKjdM5Qcr/73f1mTWTIs2uPZh4HCCuKB4I8PIdTqRCGDAMBw6LgoKggA9HklvN7e/L69GJ0eD5xBCKHWoJieCoRo92Tf+iQYz7enNCmOtdnqf1x1p4a0ggF9FJNHAcPULVrKaHStnxe1X/rCIzWf/ciaLdLkBPenZ2P19eDwJ4gQanX8gX0okdBceVnQ3xcA9AWlwDDSlCEAoN6+F/vRI4RQi+N6dxHHhrJWm2rT7ltfdZk9npZJjMfLdTkld/oK8mmp/AG+1npl3ffL8Bd1p6XLPlT7xc+sxSobO9xt/nQgxNGJnAEWYAihVkdoWhg0AACstfWcLu42pcZ46qw4NpTjpjCfu6TLveP0jxBCqNkUM8YATWn35Fhr6m96iRKLFLPGAUDDr+sYg/G2txOa8nhhHiUW6QvL1Duwb21npM3Kq130G2uzyScnuz46GauvloIFGEKoLQhDBwGAvuS4OCoYAPR5JYTLkU9NAQDlqq2sjXFwPoQQcjrcbp72doiqjbc8CQYgHRHL7+djU6qVd+60wXF3cX96FgA0/rHJXHGhFbOi9keTvr/u++XAMC4zx7nMGufoOE4FCzCEUFsQhg4CQoxlp+wNOXTZxazNJh0Rw+3mZblco7vDiTQIIYQehGJaClCUNjPvNsd+EOL2xHSgKPW2LPO5i3f6CqKoYGlyAmux1Hz585061yPno9q0u/5/awDA9dEp8inJjo7jbLAAQwi1BVou5ffpyZotrMHI69XdptQYio4CRSmmpwBA4+ptrNni6IwIIeRsuN08JUMiWZtNuWb7ra/yfHvKUhLBxtT/sBKYO+5EcH10Ms+3h7Wqrm4xPgzWKTSu2NK4bDMQ4rbgIdnYYY6O44SwAEMItZGruxAPHZMMiwIAbWYuAIjjwng+3rYGJZ4JhhBCrUExPZVwOdr9heZzl27z6kNjOW4KU/n5u/wSJlyu56tPUBKRPr9UvW1vK2ZFDseyDb+tV23YCRTl/swc6cg4RwdyTliAIYTaiH3zoaH4qGRIFOFy9CXHrXWNQIhi5lgAUK3faa2/+cBQhBD6f/buPC6qsu0D+HXOmTMzZ3aYAYZFREQQBQTEfd8zl8w0s1LLNC3TStsztR6znlxaH7W0xVIzs9zNfV9QRAFxA0VF9m32fc457x/ja2aKiMAAXt//OnOW3/jpA1znvu/rRg9I4Ocr79sFeF6/duu/PyUZse/4kQCgW7Xp37s233oTzcvPAkHoftnguJhTi3GR9/AsV/bNSuOWfQRN+781Udazg7cTNVpYgCGE6ogovAnlq3SX6dw6gyQpFjjOcjAFACRtY5iEVqzJXPLf73AiIkII1TjlyIEkI7aeyHBkXfn3p5IObSTt4jibvfyHdZXcRNI+TjGkN8+yJQu/Z/XGWguLvIN3uUoXLDcfOE6KRQHvvSRJivV2osYMCzCEUF0hCKZNNADYTp2V9e4EAKY9Rz3LCfxee44O9HPm5JZ9/TMuMEAIoZpFKWTygd0BQLdy0x1P8H1hJMmIrclp1uPpldzH55nHxK1asBWG0gXf8yxbK1mRN3A2e/G8JdaUDFImCZgzTRwb6e1EjRwWYAihuiP5/1mITHy0QOPjLi6zn78EAKRU4v/2JJIRW46dNqy/w56hCCGEHoTysX6kVGI/l21Lv/DvTwUaH59nhgJA+bLfOIv1bjchKNJvxniBWmW/cFm34s9ajIvqEGsyF3/4tf1MFuWrDPzP66KIpt5O1PhhAYYQqjviNi0JAWW/eIUzW2W9OgKAefdRz0d0iFbz6jggCN3qTUUffmXPzPJqUoQQalRIKaN8vB8A6H7ZcMeJBvIB3cStIli9sWLF+kruQynlfm9MIGiBcdsB8wHcQaTBc5fpimZ+7rh0TaDVBP7ndbpJoLcTPRSwAEMI1R2SEYuimwPH2TIuyHp1BJK0HDnlyi/2fCpJilVPHk1KGfuZrKI5XxW+t0C/7i97ZhbvcHo3NkIINQKKQT0FGh/n1TzzwZQ7fEwQ6slPE0LavPeYLe18JfcRtQjznfAkAJQvXXPHRWWooXDlFRXNXOTKLxaGBQfOnS4I0Hg70cMCCzCEUJ2SJLQGAOvJTIG/Wt63M8+yFT///bZV3qdzyJKPfEYPoeQyR9ZV/ZqtRXO+yn3uLdOeo96LjBBCjQFB06qnBgOAbtWmO77YooP8VU8+CgDl363hbPZKbiXv01n+SHfe5SqZvxwb2DZQjqwrhR987i7TiaObaz98jVIpvJ3oIYIFGEKoTknatwGCsJ08wzucqqcGkxLGlpp569tWUsIonxgQsvQjvxkvKAb3EkU05d1s+dJfLcdOezE2Qgg1ArIe7YXhTdgKvfGvg3c8QTGkj6h5qLukXPdzZRMRAcD3+SfEsZGszoANbBsia2pm0YdfcyaLpF1swAevkFLG24keLliAIYTqlECrEbUI42x268kzlEKmHD4AACp++oNnuVtPI0RCaacE3+eeCPz0TZ/RQ4Dny774qfJZMQghhO6BIHzHPA4AhvU7OJPlDp9TpGbaOEJIm3YftZ0+V9mdKMp/+gsCrcaZk1v2zS/YwLYBMe89VvLZd7zDKe/T2f/NiYSQ9naihw4WYAihuibr3g4APJuAKQb3orV+rrwi895jdztfOby/YnBvnmVLFyx35uTWXVCEEGp0xLGRTJuWnMWmX/fXHU+ggwNUowYBz5ctWVVJR0QAIOXSgHcmkxLGcvSU7tfNtZMX1TD973+VLVkNLKcaMVD90tNAYi3gBfiPjhCqa5LOiQRFWdPOsXoTIaBUzwwFAN3qTZUs5vYd97isR3vO7qi8PRdCCKF78n1+BFCkcftB1/XCO56gHNJbFBXOVhgqfvij8lvRIVq/GS8QFGX4c2cl79FQfcCzXPmS1frftgJBqCeOUj01yNuJHl5YgCGE6hqlkDHx0cBy1uTTACDtGC9pH8eZLEWzv7IcOXXnawjCd8KThEhoP3fJXaar07gIIdS40CFaee/OwHK6lRvvfAZJal4ZQ4iE5gPHrclpld+NadPS98VRAFD+7Rr7mYs1nhbVCM7uKPnsO9Oeo4RI6P/mBPmAbt5O9FDDAgwh5AXS7u0A4EYrZILwmzFBPqAb73KVfvGj/retd2zPRTJiSVIs8Lzl0J0aKCOEEKoy1ejBpISx/rMH0q3oQD/fMcMAoGzJ6nu+9pL36awc1o9n2ZL5y51X82s+LnowrM5QNOsLW2omJZdpZ0+VtIvzdqKHHRZgCCEvkLSLIyWMI+uKq7AUAAiKVE8c5fv8CCAI/e9/XX/x/Yof17kKim+76kbZduCEFxIjhFAjQilkyifu3APpJvmAbpK2MZzFWr545T17bPg8M1TapS1ntRXPW+wuKa/5xKi6nLkFhe8ucOZcpwP9tJ/MEEU283YihAUYQsgbCCEtaR8HAJbDJ28eVAzqqf1giqhlOGexGbfuz391btk3v7AVf+8ww8S3olRyV14RvmFFCKEHpBj0/z2Qdh2+8xkEoZ7yLKWS2zIuGrfuv8ftCEIzdaw4NoqtMBTPXcyazDWdF1WHLf180czP3WU6UcvwwHlv0Fo/bydCAFiAIYS8RdqtHQCY9xy9dcKhODYqcO70oAXvyvt1IQSUef/xvKkf6X//i3ezAEBQpKRjAgDgLESEEHpAhIDyGfs4AOjWbLlbvUQpZOrJTwOAbtWme775IgSU/1sThWEhroLiknlLObujxjOj+2Lacah43hLOapN2SdTOnkrKpd5OhG7AAgwh5B1MXJSwWYi7TKf/Y8dtHwnDgtWTRgd/MVPSMZ53OPW/bS1fvNLzkaeFvflQCnB3njODEEKoiiTt45iEVpzZql991ybykqRYef+uvMtV+vkPd1ygeyuSEQfMfFngr3ZkXy3573e8Czdo9hKOq/hxXfmy34DjVSMG+r32PEHjZl/1CBZgCCEvIQj1pNFAEMZNu115Rf/+XBCg8X9jgvbDV0lGbD6YYtp5GABEkc3oIH+2wmA/m13niRFCqLHxfWEkQQtMu486sq/e9ZznnxCGBbvyi8uXr73nDSmVQjtrKuWrtJ+5WLroB55lazIuqgLOaiv+ZKlx636CFmimjlU9NQgIwtuh0D9gAYYQ8hpRRFN53868my3/bs3dVniLW7dQv/Q0AFT8uM6zC7O0axLc7KCIEELoAdBaP8WgXsDz5cvW3u3nMEHTfq89T4iE5n3JVWmDJNBqtB+8Qsql1pQzZd/8cs8GHqgGuQpLC99dYDt9jlLKtbOneaaNoPoGCzCEkDf5PPsYpZTbz126tRvHbaSdExUDe/Aud8n85ZzJIu3aFgCsKRk4CxEhhB6ccsQjArXKmZNr3pt8t3PoEK16/EgAqFi+1lVQcs970k0CA2ZOIRmx5dDJssWrsAarG7b084XvzHflFwvDggM/fVPUMtzbidCdYQGGEPImUirxGTMMAMq/XaNbtYnVm+54ms+44aKIpu7SCt3KjXRQgECr4cxWx+Xcug2LEEKNECkW+YwdDgC6lRsr6V4o69NJ2jWJs9lLFyy/52IwABA1D/V//yVSLDLvSy5bshprsNrF84aNu4s/XsJZrJIObbRzpwv8fL2dCd0VFmAIIS+T9Wgv7ZbE2R2G9TvzXp5Vvuw3R9aV235VEwJKM20cEIT5UApnsTFtogHgbvuHIoQQui/SLolMYmvWZNb9vKGS09STR9MhWmduQdnS1VW5rbhlc//3XiJEQvPeY+VLf8UarJbwDmfpFz/pftkAPK968lH/NyaQYpG3Q6HKYAGGEPI2gvB79bnAT9+UtI/jXW7TjkOF7y3Me3m2bvWmW7sY00H+TFwU73SZD55g4rEAQwihmuQ7fgQhpM37j9vPZN3tHFIs8n9romdioWnXkarcVtwqIuC9lwiR0LTnaNniVTh1vMa5ikoL31toOZJKMmL/tyaqnnwUW27Uf1iAIYTqBVFEU/+3Xgz+/H3l0D4CjY+7tMLw587i2V+yxr/nw8j6dgEA864j4phIQkA5sq9yZqv3IiOEUONBa/2UwwcAz5cvW8O73Hc9LShA/eJTAFDxw7oqzgMXt24R8O5kz1zE0i9/wr6INciacqbw7c+c1/Lp4IDAT96QtIvzdiJUJViAIYTqETpE6zP28ZAlH2n/87pAq3Fczi16f6G7pNzzqaR9HOWjdOYWuK4XiiLDgePsmXd9U4sQQui+KIf1o0O0roISw8ZdlZwm7ZakGNiDd7lK5y9jDXdeuHsbcUxkwAdTSAljOXKqdMHySgo8VEU8y+lWbSr57DvOYpN0jA/89E06ROvtUKiqsABDCNU/BCGObh44d4YwvImrsLTw/UWejcIIipL1aA8Apt1HcRYiQgjVLEJAqV98CgjC8MeOO27PeJPPuOGiluHuMl3pwu+rOKIligrXzpnq6U1f/PFizmavodQPI7ZCXzznS8P6nUASvmMf95/xAsmIvR0K3QcswBBC9RSlkms/fFUcG8XqDKVfreBZDgDk/boAQVgOnxRFhQOA7fRZb8dECKHGQ9wqQt67E+9yl/1vZSXrtQgB5f/GRIFaZT93qeLHP6p4c2F4qPbDVylfpT0zq+iDL1i9sYZSP1xsaecL3vjUfv4y5avSzp6mGNoHF301OFiAIYTqL5IRB7wzSeCvduZcN27cDQCCAI04pgXvdLly8ymVwl2ur/w1LUIIofvi89xwgVrlyL5q/OtgJadRKrnfmxMJmjZtP2jac7SKNxeGBgXOnU4HBTiv5hW+v8hVWFoTkR8WvJvV/bKh+OPFrNHMxEcHLXhH3CrC26FQdWABhhCq1wiRUPPyM0AQ+t+3ua4XAoC8b1cAMO8/zsRFAc5CRAihGkUyYk+bDd3qTe6iskrOFEU0VU96CgAqlv1mP5tdxfsL/NXaj18XRTR1F5cVvbfQfuHyg2d+GLiKSoveX2jYuBtIwufpoQHvv0wpZN4OhaoJCzCEUH0njomU9+nMu9yeFsaS9rGkWOTIuU5HhAGALR0LMIQQqklM2xhpl7a8w1n+3T0275L17KAc2od3syXzl7kKSqp4f0ouC5gzTdI2hjWZiz/82nwwpSZSN2amPUcL3/yv43KuwF8d+J/XlcP747TDBg0LMIRQA+AzdtiNKTHbDxE0LW7TEngenC4gCPvZbN7h9HZAhBBqVHxfGEnJZbaMi6adhys/02fMMEm7OM5sLf54MWsyV37yTaRY5P/2i4pHe/Iud9nXP+vXbMFtmu+INZhK/vtt+ZLVnM0u7ZYUtPBdUWQzb4dCDwoLMIRQA0BKGN8JTwKAYf1O3s1KkmIBwH4uW9SiKe902U6f83ZAhBBqVCiFTP3S0wBQ8fP6e6zUIgjNq+OEYSHu4rLSBd/fR4t5kvQdP0I94UkgCP267SWffstZbQ8cvFGxJqcVTJ9nTTlDSiV+rz3n9+pz2O2wccACDCHUMEjaxQnDQlidwXL4JJPYGgjCfuYikxQLAJbkNG+nQwihxkbSPk7aNYl3OMu++aWSjojgGc56dzLlq7SfzS7738r7GsuSP9I9YOYUUi61pmYWvjMf+yp5sEZz6aIfShYsZw0mpk3LoEXvSbsmeTsUqjFYgCGEGgzFoJ4AYNy0h1LIRC3CeJfbswTZlprJu1xeDocQQo2OeuIogVrluJhj2LKv8jMFalXAzCmklLEcPqlbufG+nsLERQX99y1hWIiroKTwnfm4JMxy6GTBa3MtR0+RjFg96amAmVMEapW3Q6GahAUYQqjBkHZrR/konbkFtjNZnlmIjuyrwrAQzma3Z1z0djqEEGpsSCmjnjQaCEL/6xZnbkHlJwtDg/ymv0BQlGHjbuO2A/f1IIG/OvDj6bLu7Ti7o+yrFfCsB8AAACAASURBVGWLVz2ci3vdJeXFHy8u/fIn1mj2DHzJ+3XFfhuNDxZgCKEGgxBQike6A4Bx8x4mKQYAbCczJR3iAMByPN3L4RBCqDFiElvL+3bmXa6yL36651wDpk1L9ctPA0FU/LjOcvjkfT2IEAk108ZpXnqGEAnNe48VvDPfeTXvAYI3MLybNazfmf/6x7bT50i5VDPl2YCZUwR+vt7OhWoFFmAIoYZEPqAbIRLa0s4Dzwv81azBRAcFAIA1JYNnK1uigBBCqHp8n3uCDg5w5hZUZW6hrEcHn2ceA54v+/oXW2rm/T5L1qdT4Cdv0CFa1/XCwnfmG/7cUfnys8bBlna+YPrHulWbeIdT2q1d8BczZb064sBXI4YFGEKoISFlElnPjsDzpm0HJEkxAODMLaCDAziTxXHukrfT1Qr7+cuV74WKEEK1ihAJ/V59jhBQxm0HrFWoqZTD+iof78+zbMnC7+3nqrpB803C0KCgz95WPNqDZznd6s2FMz9vxJ05XIWlJZ99Vzz3f66CEjpEq5091e/VcZRS7u1cqHZhAYYQamAUg3oCQViOnhK3iQYAW2qmpEM8NNJeiK6CkqJZX5R+tcLbQRBCDzVheBPV6CHA8+VLVrF60z3P93l6iLxfV97pKvn0O8ela/f7OEJI+44fGfDBKwKNjyPrSsGbn+rXbuPdbLWy11Oc2Vrx47qC1+ZaT2SQjNhn7ONBC98Vx0Z5OxeqC1iAIYQaGDrIXxTehLPZeRdLMmLn1Xxxy2YAYD2R3vj28bSlnweeFwRovB0EIfSwUw7tI46NYvWmsq9+uvcPW4JQvzhK2jWJs9qK//M/Z871ajyRiYsKWvievF8X3s3q124reOMT+5ms6kSvZzi7w/DHjrwps41b9/M8L+/bJfjrWcqhfQiK8nY0VEewAEMINTySjvEAYEtJZ+KjAcBdUiHwV7M6gy39grej1TD7mYsAwMThO1GEkLcRhN+rz1EqhS3jov6P7VU6f9pYaZe2nMVa9OFXzpzcajzT04ZR+9FrdHCAK6+o6MOvSuYvcxc31FnZvNNl3LIvf8oc3a+bOYuNaRMdtOAd9eTRlErh7WioTmEBhhBqeKSdEwHAmnLGMwvRevqcvH9XADBuvcdONQ0Mx9nPXgIAnJSCEKoPKJXc77XngCT1v22zVWXzD5LUTBsraRfHWWzFcxc7r+VX77ni6OZBC971eXooKRZZj6fnvza34uf1rMlcvbt5BWezGzbsznt5VsVPf7AGkyiymXbOtIAPpghDg7wdDXkBFmAIoYZHEKARhoVwVhsppIEg7Gcuyrq383RHbExrtR2XrnEWKx0UIND4eDsLQggBAIhjIlXDBwDPl339c1UWgxEU5TfjBaZtDGs0F82p5jgYABC0QDm8f/BXs2Q9OvBu1rhpT/7Lc/Rrt3FWW/VuWGfYCr1u1aa8l2bpVm5g9SZRRNOAdycHzpshjon0djTkNViAIYQaJGmnBACwnbkoimjKO12OK3mynh2A543b9ns7Wo3xvGAW4/xDhFB9onpyoLh1C1ZnKP38h6rs/0EIKP83J0o6xHMmS9Gcrx0Xc6r9aMpXqZk6Jmj+20zbGM5m16/dljd5lm7lRlZnqPY9a4/jYk7plyvyXpptWL+TM1vFrSICPngl8NM3mbYx3o6GvAwLMIRQgyTplAAA1hPp4oRWAGBLzVQM7g0EYT5wgjNZvJ2uZtxYAIbzDxFC9QpJ+r32HOWjtJ/N1q3cUJUrCAHlN/15aedEzmornrvYnvlAvTSEYSEB704O/Hg6ExfFWW2GDbvyXp5d9r+V1Wi3WBs4s9W47UDB9HmF7y+yHErhgZd2SQz85A3tR68xbVp6Ox2qFwTeDoAQQtVBB/kLQ4OcuQUChRwArCfPqCeOYhJa2U6dNe06ohze39sBHxTvcDqyrgBJilu38HYWhBD6B8pH6f/mhKJZXxg37xWGBct6dLjnJQRF+b32HEELzAdOFH+8xO+15yQd2jxIBlFUeMCsqY7LucYNuyzJaeZ9yeZ9ycJmIfK+XSSdEyi57EFuXg28w2lNzbQcSrGdPufpmE+p5LJeneQDuuE0cnQbLMAQQg2VpGO8M7fAeeW6QK1yl+ud1woUg3rZTp01bj+gGNqHEDTsfr7285d5l1sU0ZSUSbydBSGEbieKbOb73BPly9eWf/ebsFmTKjWTIEnNK2NIhcy4eW/Jwu/VE0fJ+3V50BjNQ/1mvOBTVGbafdi8N9l5Ja982W8VP6wTx0VJu7RlEltTitqtxFi9yXYq05qSYUu/wDtdAAAUySS0kvXuJGkfh53l0R1hAYYQaqiknRL0a7dZT2RIOsSZdh+1pWYqh/f3DIuZ/jqgGNLb2wEfiGf+IS4AQwjVW/JHujuyr5kPHC/573dBn75JyqX3voYgfMcNJyWM/ret5d+tYQ0m1YhHHjyJQKvxeXaYatRg64l084ET9vQLttPnbKfPAUGImocyia3FrSJELcIIkfDBnwUArN7oyL5qz8yyn8lyXi+8sSsaQYgim0m7Jkk7J1IqeY08CDVWWIAhhBoqukmgQKtxF5UJgrQAYE3NVD4xwOeZocWfLNWt3swktKJDtN7OWH22GwvAcMEAQqj+Uk8e7covcly6VrJgecCsV6o44KMaOZBSysuXr9Wv2eIuLlNPHl0jI0UELZB2aSvt0pYzWSzJp60nMuyZ2Y5L126sDaNIYdMQUbMQukkgHRpEazWUr6oqcyVYo5kt07kKip3XC115xc7L19xlur8fKhKKW0VI2sdJ2sZSvsoH/xboYYAFGEKoAWPaRJuKDnFWG0HTjuyrrN7EtI2R9+1i2n2k9MufAj95s4FORORMFueVPIKmRVHNvJ0FIYTuiqAF/m+/WPjOfPvZ7PKlv2qmPFvFC+X9uwr8fEsX/WDel+wuq/B/YyIpZWoqFSmXyvt1lffryjuc9sws25mLjgs5zit5zpzcf/TBJwhKpaAUMpIRExIx+f/jYzzLcjYHZ7FxFitbYeBdrtvvL2FEEaGiqHBxbKQoMryB/qJBXoQFGEKoAWPiWpp2HHKcy2bio60pGZbDJxWDe/mMe9x25qLzSp5h3XbVU4O8nbE6bBkXgefF0eGEkPZ2FoQQqgzlo/R768WiDz739MBQPNqzihcyCa0CZk8t+fRb+5mswvcX+r8zidb61Ww2QiRk2sZ42r7zDqcj57ort8B5Ld+VV+wuKXPrDKzOcM8W9qSUEah9BEH+dHCAsEmgsFkTOsgfCKJmo6KHChZgCKEGTBwXRVCU/WKO3ytjrCkZ5v3HFYN7kYxY88qYollf6NfvoIMDpN2SvB3zvtnSzwOAOC7a20EQQujeRM1DNVPGlH7xY8VPfwr81ZKk2KpeGNE0cN6Mkk+/deYWFL4z3+/18bXXqJ0QCcXRzcXRzf8+xHGs3sgazZzVztnsN1poABAkQTAMJWMIsVigVtXUyrGHjaugxLz/uCiqmQT3PfsXLMAQQg0YyYiFLZo6LuQALaTkMufVPOfVfGFYsDi6uXJYP8P6naVf/mTae1T9wpN0iJZ3s5zNRsmk9f/NpT3jAgAw8bgADCHUMEi7JLoKi/VrtpYu+kE7Z5oosqrTpwX+au28GWVfrbCeyCj+eLHvmGGKwb3q6Kc0SVK+KspXVRfPemjwbtZ6It2067A9Mxt4XhSJBdgdYAGGEGrYmLiWjgs5jrNZki6Jpu0HzQeO+4YNBwCfp4fQWj/dyo32M1n5M+YRAgHvcAKAwF+tHNZP1qsjQdfTH4CuvCJ3mY5SKYRNg72dBSGEqko1YiCrM5p2HCr55FvtJzOqPp+QFIv835yoX7tNv257xYo/HVlX1C8/QzLiWk2Lapy7pNy0+4h57zFWbwIAUiySdk1SPNbX27nqI9LbARBC6IEw8dEAYEs/L+vZAQAsB1N4lgUAIAhZn07BX8+SD+gGPPAOJyGgSEbsLikv/25N3pTZ5n3J3k1+N7a08wDAtGlZ/0fqEELoVr7jRzDx0azJXPLJUtZkvo8rCUI1apD/mxNJCWM5drrw7c+c1/JrLSaqSTzLWo+nFc/9X96UOYY/d7J6k7BpsHrCkyHLPlZPHk0H1vC6vsahnr4ARgihKvJsVewqKKEUMs8mYLa08zcnPJAyiXriKJ8xwwCAFIuA5y3JaYY/dziv5JUtWS2KaEo3CfRq/Du4sQCsDS4AQwg1MARF+c14oeiDL5xX80o+XhIwe+p9DWRJ2scFfvZW6YLvnVfzCt9d4DtuuHxAt9pLix6Qu6TctOeoeW+yp5EJIaSlnRPl/btWfQLqQwtHwBBCDRxJimMiAcCWfkHavT0AWPYfv/0UsYgUiwAACELaKSHos7fl/boCx1X8sqHO494D73Lbz10CgmDicAEYQqjhIRlxwKxX6KAAx6VrJf/97t893CtHa/0C582Q9+nMO13ly34r+e939zeShmrfjSGvjxfnTZlj+GMHqzPQIVrf50c0Wfax5pUxWH1VBRZgCKEGz9M1y55xQda9HZCk9eQZzmSp7AKCUD09mJQwtlNnbekX6ihl1djPX+YdTmHTYEol93YWhBCqDkohC5j5MuWrtGdmlX65Ajjuvi4nhLT6paf9ZrxASiXWlIyCGZ/YTp+rpajovriKSnWrNuVN+qBk/nLb6XOEQCDr0V77n9eDv5ipGNSTlEq8HbDBwAIMIdTgMW2iAcCWcYFSyZn4aN7lLl++tvJLKLlM+Xg/AND9sh54vi5SVo09/Tz8/8I2hBBqoAT+6oCZU0ipxJqcVva/ldX4MSvtlBC08F1xqwi2wlD88eKyJas4m702oqJ74p0u88GUotlf5k/9yLB+J6s30k0Cbwx5TR37j87+qGpwDRhCqMET+KvpIH9XQYn9Qo7v8yMKL+RYjqSKoppVvh+oYnAv045Dzqv55oMpsh7t6yrsPXgWgNXeTjgIIVQ3hKFBAe+/VPyf/5kPnAABpZn89P02FhJofLQfvmrcvFe3Zot5zzF7+gX1i08xia1rKTD6N2dOrmlPsuXwSc5iBQBCJJR2TpT37SyKCvd2tIYNR8AQQo2BpF0cAFiPp9GBfpqpY4AgdCvW289fruQSgqZVowcDgP7XzbybraOglWL1Rue1AkIkFLXEF4oIoQZPFNksYObLpFhk3nOsfOmv1ZluQBCKoX2C5r8jahHmLtMVz1tSuvB7T8sHVHtYo9m4dX/BG58UvPWZacdBzmIVRTRVT3qqyfJ5minPYvX14HAEDCHUGEg6tDFs3G1NTvN97glJuzjlkN6GTXtKP/9RObQPpZSRChnvdHFmK2eximOjbu6vJeve3rhxjzO3wJaaKenQxrtfAQBs6ReA58WtIurtHmUIIXRfRFHh/m+/WDxvqWnPUaAF6hdGVmODDTo4IPDj6cZt+/VrtlqOnbalX1A9NUg+oDtB4UBCTeLdrO30WfO+ZFvqWc+GLpRcJu3RTta7kzA0yNvpGhX8HY8QagxELcIEGh93mc5xOVcU0VT1zGOOS7n2c9kVP/1x25kETasnPinr3QkAgCBkvTpWrPjTfCilXhRgp88BAJPQyttBEEKoxohjo/zfmljy2TLT9oPAsuoXn6rOJockqRjcW9IxoeL7tdaUMxU/rDPtPOw7fiQTF1ULkR86jkvXLAdPWA6l3ug5SZGStjGyXh2ZpFhCQHk7XSOEBRhCqFEgCEn7OOO2A9bkNFFEU4Ii/d+aaNp9lNXpWaOZM5oJoZCUSTirzXo8vWzxKsfl677PP0EIKGnXthW/bLClnuUsNlLKePMrcJwt7RwA4AoHhFAjwyS0Cvjg5ZJ5S027jnB2h+aVsdUbvBJofPzfnmQ9eUa34k9XXlHxR19L2saonhmK4zPV4y4uMx86aTmY4ioo9hwRhgbJenaQdm9HqRTezda4YQGGEGokJB3iPQWYz7OPAQApkyiH9f33aeZ9yeXf/WbacdBdXBrw/suUj5KJaWHLuGhJPi3v07nOU//NfuEyZ7bSwQG01u/mQZ7lKpb9JmzR1LvZEELoAYlbtfB/d3LxvCWWQyeB4zRTx1V7aEWSFMvEtzJu2Wf4Y7s1NdN66qysR3vVqEECP9+azdxYsXqj5egpy+GTjuxrnoV5lEoh7dpW1rODMCzE2+keCliA3Ylbn5OenpVvpPyaRUZFhPqKKx0pd5fnnM8zcUCqwmKaKu9/UB0hVCPE0c0ppdxVVOrMLajkbaisV0e6SWDJvCW2tPOW5DRppwRpt3a2jIuWgyneLXJsqWcBQNI25h8HT54x7T4iyivEAgwh1NCJW7cI+GBKybylliOnOKvd/40JhEhYvVsRAko5rK+sVwfDH9tNOw+b9x+3HD4p69VR+Xh/gb+6ZmM3GqzJbE1OtxxNtZ+95NmcjRSLJO3jpN3aMW1aAokL6uoO/lv/kyVr44cj4wMDIpJ6DnxsaP/Osc38g+JGzvotQ3fXTQT5krUTk+Lj4+Pbv7nLWZdZEUL/RJI3eiEmp1V+oiiiqeqp/+9/yLKSjvGESGg/d8ldUl4XOe/CmpoJAMw/CzDz3mMAIO0Y751MCCFUo8Qtm2s/fJVSym2nzxV9+LWnuXm1UUq57/iRwV9+IOvejud4064j+VM/Klu8ypVXVFOBGwFWbzTtPFz80dfXJ7xX/u2v9jNZBEVJ2sX5vT6+yfefaKaNYxJaYfVVx/Cf+29c8c43e3cYPmddepnzZp9UntVlrvvP6E7dJq+76vJmOoTQvXkaadyzAAMAed/OdIjWVVBi3nuMZMSSpFjgecvRU7Wf8c7cpRWuvCKSEYta/t3el9UbrWnnCAEl7V5ftilDCKEHJGwWop07XeDn68i6Uvj+IndpxQPeUBCg0UwbF/zFTFmPDjzw5r3H8l//uPiTpfbMrBoJ3EC5i8oMm/YUzlx0feL75d+tsWVcJAiCaRujmTqmyffz/N9+UdolsdojkOgB4RTE/+fO/nbs6EUn9BwAQSmaJnbskBDpY7126sDulOs23np2+dO9HMTRH58IxJoVoXpLHBtFShlnbkHlsxABAEhSNWpQ6cLv9Wv/knVvL+3eznIk1bz/uHJYv7oK+w/Wk2cAgEloRVB/L4ow70sGlmM6xlMKmVdSIYRQbaAD/bRzp5d8vNiZW1D43sKAdycLw5s86D2D/DVTx6ieHGjYtNe8P9mWmmlLzaRDtPIB3WQ92pMSr/ZYqjMcZ8+6YjuZaT155uYwIEHTTHy0pGO8JCnWy72m0P/DAsyD12/9z0e7Kzgg6NChn639fmoH9Y0/ghz5+xa+8MzsnYWuqytfmdq/49pngrEEQ6ieIgSUtHOiadeR0vnLtPNmUPLK6hZpx3hjZDNH1hXjln2KYX0phcyVV+S8ln9zl7C6ZDt1Fv7V/9C8/zgAyD0d8xFCqBERqFXaua+XzF9mP5NVNOsLv+nja6QBrCBAo574pOqpR007Dpl2HnblFVV8/7tu5UZppwRZzw7i1i2q0wG/3mN1Blv6Bdvps7b0C5z5xqxOUiphEltL2sdJElvjSFd9gwWYh2nnqo3FHBDC2Bm/rXqtg/TvT0TBvd7buFc+pMtruyqK1k9/dU3vtU/jKBhC9ZbPuOGOy9edObklnyzVzp5GiISO7KuWgylunYG32lizTda1rWJoHwAAgvAZPaTow68MG3fLB3aXdIw37TxsTU6r+wKMdzjtmdlAELfuAOa4kOPKL6Z8lUx8dB3nQQihOkBKmID3p5QvWWU+cKL40299xw5TDO5dI3em5DLViIHKx/tbT2SYdh6yZ2ab9x837z8u8POVdmkr7ZwgDA+tkQd5EWezO85dsp3JsmdccOYW3DxOB/kzbWMkbWNE0RG4UXW9hQUYAAC4Mk+csvBASHpPffXW6usGUcspyxfsajthc1nJhg8+3jfkmz5yL4RECFUBKRYFvDe58L2FjqyrxfOW8A6n49K1W0+oyMklhLT8ke4AII6NFLduYT+bbTmcKunQxrTzsPVEhmrUoDrObMu4yLtcosgwSvn3zxbT3mMAIOvZAddGI4QaK0JAaV4ZIwjQ6H//q+KnP53XC9UTn6qpnX8JipJ2SpB2SnAXlZkPHDcfOOEuKTds2GXYsEsQoJG0j5MkxohaNb914nc9x5ks9gs5jguX7WezHVeuA3ujQxwpFolat5AktGISWgkCNN4NiaoCCzAAAODKS8o4AKpZUqLmjkPTZOjYBTNX7Hv9gPnK9+99M/nwuzF0rYeaM2fOV199VY0LTSYTAFRUPOiqVoQaKEqlCJj5ctH7n9vPZgMAJZfJ+nQSNg8lJYzremHFij/Lf1hH+SgkHeIBQN63i/1stnnPUe3HM0gp47yW7y4uq+NfYLZTmfDP+Yec3WE9dhoAZD061GUShBCqawShevJRuklg2Te/mPcccxeU+M2YQKlq8k23QKtRjRqkevJR+4Uc67FTlmNp7uIy4+a9xs17SUYsjosSx0QysVF0iLYGH1ojeJZ1XS90ZF91ZF11ZF915Rd7tu0CAIKihC3DmZhIcVxLUWSzmqpaUd3AAsyD9/z/zLrZu51BRU6a/+oPXedl2E8ufH/VmPXPhdT2S2mj0ajT6ap9uY+PTw2GQahhoYMC/N9/yfDHDkm7WGm3JIK+8cqEadOSdzp1qzeXfrEiYJZcHN1c0rENuVziuJzryitiEltbDp20nshQDKmZaTBVwnHWExkA4Omh72E9eoqz2cXRzenggLpLghBCXiLtlEAHqEv++539/OWCt/7r/8YLoshmNfwMghBHNxdHN/d9foT9Yo7tZKbt1FlnboH1eLr1eDoAUEq5KLKZKKqZqEWYMCzEK/0qOLPVmZvvyi10Xst35lx35hbwLvff30AkFEU0FUdHiKLDxS2b48quhgsLMAAAoAICA0gwsrmpp4q5dnfpsiFOenP++NWPLr1SvuWd137tV+vdOBYtWvThhx+63e57n/pP77///pIlS3r27FkLoRBqMEQRTf3ffvHfx5XDB7jLDaYdB0sXLA/+ZjbJiKXdkkzbD5r3HpO0b2M5dNJ6PL0uCzD72UuswUQH+d+69sy0+ygAyPri5ssIoYeFMDw08L9vly76wX4uu2jWF77Pj5AP6FYrTyIIccvm4pbNfZ59zF1aYT9z0XYmy56ZxeoM1pQMa0qG5yyBv1oYFkwHa+kgfzo4QODnS/koazAFqze5y3XuknJ3cbm7qNRVUOLKL2INptui0kEBoohQYYswUYswYbOQBjRhElUCCzAAABC06tBWTmTrbfu/WnRk9IJuijvOQySU/T78bNTGUasLi9dPn7Ss3Z+TImv51YNcXp0heLFYXONJEGpM1C+McF7Nc1zMMW7Zpxo5UN6vi2n7QfPBE8qRjxA0bb+Yw+qNlEpRN2EsyWkAIOmUcPOIK6/IkXWFlDDSjgl3vw4hhBobSiUPmD1V98sG45a95ct+s5+7pJ48mmRq8a8agZ+vrHcnWe9OAOAuKrNnXXFkXXFeuubMLXCXlLtLygEybp5M0LTAz4dSKSiVglLJSamEZMSElPH0uCelklvvzDucvNvNu9y81cbZHZzZypksrNHMmsxshYHVGW4d2rqJFIvoJoHC0CA6NEjYLETYLKRWvz7yFizAPOT9nhmmXftToev8l6NG+Kxc8U7vwDv90xD+w+d/PvLAM7/ll2ybNmiCdOvSZyNxQwWEGhyS9BnzWNHMz42b9yoe6S5sGiwMb+LMuW7PuMjERVlTM62pmfI+dTL6xPPWE+kAcGutZdp9BACk3dvh9BKE0MOGoEjf54aLWoSVL11tOZLqzMn1m/6CsFlIHTxaoNXItBpZ93YAABznKihxXitwFRS78ovdhSXu0grWaHYVlLgKSmrkcaRMItD4CPzVAn8NrdUIggLoIH+BBtePPBSwALtBMfCDOf03v7S9nC3c9UHfiG+T+vTt0iaqRfenJvULu3Wwlwx6cvGKlIvDFqWZL/0yNvH4mgkT+ljKea/lRghVi7hlcyY+2pZ23rBxt8+zj8l7dyrPuW7ec1TaJcmammk9nl43BZj9/GVWZxAEaG7+ecG7WcvBFACoowoQIYTqH2mXRGF4k9JF3zuv5BW+t9DnmaGKQT3rdAsvkqRDtLe15eAdTndpBWs0sRUG1mjmzFbOauesNt5mBwDOYr31ZEIoJGgBCCiSEZMShpQwpFxKKeWkQkopFQK1ihDWfj83VF9hAfb/qPCJv/yeO2zkp0fLWd6al7L5p5TNhGpM6xf+WYABEL595u/Zphg+/MMDZZasrV++tdVLiRFCD8Tn6SG29AvGbfsVj/aQdmtX8fN625ks1ZjHgCLtZy5yNnsdTPywJqcBgLRz4t9HjqexRrMwPLRu3vgihFD9RAf6Bc6bUfHTetOOgxU//WE7fU4z5VnKtyZXYd0vQiSkQ7Q01LtmiajBwe1l/kZoes3de3rHgvHdwmRUpS9ZCN9us7buXzG1R4i4Ee6njtBDQhgeKmnfhne69H/uJKWMpEM88Lz99AVxVDjvcttOn6v1BDxvPZ4GAJIObW4e87TfkGP7DYTQQ4+gafXEJ/3fnkQpZLb08wUzPrEcO+3tUAjVACzA/knYpM/07w/mlBZeTNmz6feViye0udv4sLT1s1/tv3QldfPSj14d+1iv9nGRob64TBKhhsVn9GAgSfPuI2yFXtq1LQBYjqZ69gez1v6veUf2VXe5XuDnK2oe6jniLim3Z2YRQlrapW1tPx0hhBoESbvYoEXvMQmtWJO5dOH3pZ//yJks3g6F0APBKYh3Qoj9WiT1bpF0zxNF2oTBkxIGT6qDTAihmkeHaKUd4y1HT5l2HlaOGEhKJc6r+cLmIUAQ1pOZtT0L0fMqV9op4ebCBtPuI8Dz0i5tvbL/DEII1U+UShHw3kumXUd0P6+3HEm1n81WTxx169wBhBoWHAFDCD3U5AN7AIBp52HgOc+vc/uZ2xU3wwAAIABJREFUbHHLcN7lsqVm1uKDOc5y5BQASDrGew7wbta85xgAyPt1qcXnIoRQQ0QQ8v5dgxa9J27dgtUbS+YvK1mwnNUZvB0LoerAAgwh9FATRzcXhjdhjWbLsTRpl0QAsBw+6ZkBaDl6qvaeazt9jq3Q00H+ohZhniPWY6dZg0kYFiyKbFZ7z0UIoYZL4K/WzpmmnjiKZMTW5LT81+aadh0BHptRowYGCzCE0MNO3r8rAJi2HxDHRFFKuSu/mG4SCCRpO32Os9pq6aGmvccAQNa789/zD3ccAgD5gO619ESEEGoMCEI+oFvQFzMlSbGcxVb+7a+F7y90Xs3zdiyE7gMWYAihh52se3tSLnVkXXVeue6ZhWjLuCBuHcG73NaUM7XxRNZgsp3MBIqU9WjnOeLKK7JfzCEZsacXCEIIoUoI1Cr/dyb5vzFBoFY5sq4WvPVZxQ+/37YTF0L1FhZgCKGHHSGk5b06AoBpx6Ebkw+PpHr25qqlWYjmAyd4lpUkxlA+N/a0Mf51EHhe1rNDHWw+hhBCjYOkY3zQlx8ohvYBAozbDuS/8pFp12HgOG/nQugesABDCCGQD+gGBGE5nEo30VK+SndRmSBQAxRpTzvPmWv+larZM/+wTyfPf3J2h+XgCQCQYfsNhBC6H6RY5Dv28aD574hjIlmTufzbNQVvfWY/k+XtXAhVBgswhBACQYCGSWzNu1yWgyelHeMBwH76AhMTxbOsNSWjZp/lyLriyiuifJRMQmvPEcuhFM5mF7eKEIYG1eyzEELoYSAMDdLOmeY34wWBv9p5Na/ow69KPlnqyi/2di6E7gwLMIQQAgDwzEI0Hzgu7XyjBaKnKaJp99GafZBpz1EAkPVoT1AkAADPG7cdAM8oHEIIoeqSdkoI/nKmzzNDSUZsTc3Mn/5x+dJf2Qq9t3MhdDsswBBCCACAaRtDyqXOK3mEWCjw83WXVgj81aRU4riY47icW1NP4UwW65FTQBCy3jfmH9rSL7iuF1K+qpsbgt2Gd7mxyTJCCFUFQdPKx/sHfzPb80rLtPtI3isf6lZuqI3J5AhVGxZgCCEEAEDQAk8HDvOBE5JOCQBgPXlG3rczAJi2Haippxi27OXsDiaxNR3k7zli3LIXABSP9iAo6t/nu4vL8l6cWbroh5oKgBBCjR6llKsnjgr+fKa0UwLvchs27M57aZZ+7bba21kEofuCBRhCCN0g69kBACyHTnoGoyxHTsn7dwWKtBw5yeqND35/zmozbT8IAKrH+3uOuK4X2tIvECKhvE/nO13AlX39C2syE2LRgz8dIYQeKnSQv9+MFwI/fZOJj+Zsdv3abXkvzzb8uYOz2b0dDT3ssABDCKEbRBFNhaFBrN7Im6201o/VGdzleklSHO9mTTsPP/j9jVv3cxYb06alqGX4jSNb9gHPy3p1JOXSf59v2LDLfuEy5avyHTf8wZ+OEEIPIVHz0ICZU7RzXxe3asGZrbrVm/NemqVf9xeOhiEvwgIMIYT+Ju2WBADm/cclnRMAwHLklOLRHgBg2nWEd7MPcmfO7vBMZVQ+8YjnCGs0mw+lAEEoBvb49/nOq3n6tduAIDQvPU3KJA/yaIQQesiJWzbXfvSqds40cesWnNmqX7M1b/Is3epNrMHk7WjoYSTwdgCEEKpHZD3a637dYk05EzDrFcOfO63HTvmOHyEMC3ZezbceOyXt1q7adzb9dYA1mUVR4eJWETeO7DjEO12SdrF0cMBtJ/MuV+mXK3g3q3i0B5PQqvrfBzV6rFVXbnI+YJcWQqzyV+I8V9ToiWMitTGR9nOXDH9st6VfMPy507h1v7x3J8WQ3gJ/tbfToYcIFmAIIfQ3ylfFxEbZ0s+78grpoABXQbH9bLZiYM+yJav0f+yQdEokBHdolXFPnNVm3LIPAFRPPuo5wjucnvVgikG9/n2+/tctruuFdHCAz7PDHuDboMaPu7J4UKs3j7ke7C7ikb/r146ouQrMbrefPXu2GhdarVYA0Ov1qampNZYGoX97tJMgoQVzJF146brxrwOGHQedUWH2jrFuLZZhda2iosLbEbwACzCEEPoHafd2tvTzlsOp0i6J+t//shxKUb/4lGHjLldekXHjbuUTA6pxz4qf/mQNJnHL5kyblp4jph2HWINJFBkmjom87WT7+cuGzXuBIjXTxhFC+kG/D2rcRL5+KpooddWrnQrGjx//66+/VvvyAwcOJCUl1WAehO4mUuE7KTJxSJMI0fkrovNXkkvzv89O31t0lcPNP1BtwgIMIYT+QdI+jhDS9nOXfJ4eol+33XL0lO/4EerJo4tmf6Vf95ekUzwddPuMwcrZ0i+Y9yUTtEA96SnPEd7lMmzZCwCqkY/edjLvcJb/byXwvOqJgaLmoTXyjVAjRjYZvzF/6JntP38595MVKWVuHgAIaXjHrpFKoup3EcZra3RJ+IABA7KysqpxYU5Ojk6n02g0TZs2rclACN3dal63PT99sELbVx7Q0S+4o19wocv2l6l4n7nUxj3Q0l9UFVeuXHkIB8GwAEMIoX8gGTGT0Np6PM1xKVcc3dx+7pLlSKq8bxdZj/bm/cfLv12jnTMNiKr+cctZbeVLVgHP+4weQjcJ9Bw07TjMVhiE4U2Y+Ojbzq/46Q9XUamwWUj1htrQw4jWxA6Zvrz/o/FDu7y6s4IDqsmTX275pJ0Xf8GPGzdu3Lhx1bhw+vTpn3/++Xvvvff666/XeCqEKsfZ7OY9x4zb9geWlI/3DZsQ3FLWq6P8kW73+9IN3ZcxY8asXLnS2ynqGnZBRAih20m7JAKA5UiqrE8nADDvOQYAPuMep+Qy+9ls88GUqt+q4od17jKdKCpcMfjGWi/e5TZs2gOe9WD/LORsp8+Zdh8laNpv2rg77suM0F2JWk6a+2IUvlZFqLpIRqwY3Cvkm9n+b04Ux0RyNrtx2/78V+cWf/S19Xgaz3LeDogaDyzAEELodpK2MaRY5Mi+KmrRjJQyjuyrzmv5lFzmM+5xAKhYvtaRdaUq9zFu2Wfef5wQ0popzwB54+etafcRtkIvDAuRtI259WTOYi1bshp4XjV68M2xMoSqjo4f2C8Y63aEHgxJSjq00c6ZFrToPXm/rqRIaMu4WDJ/ed5LH+jXbHWX6bydDzUGWIAhhNDtCJGQSYoFnreeyJB2TQIA875kAJD1aC/r3o6z2Yv/8z/7hcuV38Tw546Kn/4AglBPHHVzBgvvcBrW7wIA1ciBtw1/lS//na3QiyKbKQffoS8iQvcmiEmMpe9j6RdC6O6EoUHqSU+FfDfXd/xIOkTLVhj06/7Ke3l28bwl1uNpPIvLw1D1YQGGEEJ3cGMW4tFUeZ9OAGA5kMK73EAQmlfGeGqwkrmL7eey73a5bvVm3erNQJKal5+R9ep487hh4262Qi8MD5W0j7v1fGtKhuVQCiESaqaOvTlWhtD9IRTx/R/r1bNH+3AFlmEI1QhSwige7RH8xUztR69JuyURFGk7dbZk/vK8F2dW/Lzedb3Q2wFRg4SzxRFC6A6YhNakTOLMuU4IhcKwEOfVPGtKhrRzIpCk5pUxQJLm/ceLPvxa2jlR+Xh/YWjQjcs4zpKcZtiwy5lznaAozbRxnkLOw12uN2zcDQC+zz9x6/AXazKXf/srAPiOGUYH+tXp90SNiqDN1DV7pno7BUKNkbhVhLhVBDfeYj5wwrz3mDO3wLhpj3HTHlFEU1nPDtKuSaRM4u2MqMHAAgwhhO6AEFCSdnHmfcmW5NOyPp0qvv/dtP2QtHMiAABJaqY8Sypkpm37LYdOWg6nilqEkWIhALiKy93FZQBA+SjVk0fftspL98sG3uGUdmkrjm5+6/Hyb9ewepM4NlI+oFvdfUOEEEL3iZRLFYN7KQb3cmRfNe9LthxJdVy65rh0reKnP5jE1rIeHZjE1gSNf12je8D/RRBC6M6kXdua9yVbDqcGzpuh/22r/Vy2LeMiExcFAEAQvmMfVzza07h5j2n30Vt7ctBaP8VjfWQ9OxD0P/ZQdlzIsRxJJYS0z5hhtx63HDppTU4jGbHm5Wer3t0eIYSQF4lahIlahPk+/4T1RIb5wAlb+nnriQzriQxSykg6xsu6tRO3isD55OhusABDCKE7Y2KjKJXClVfkLi5XDuunW7lRv3oTE/vGzTJJoPHxfX6EasRAx5U8zxFCKBBHNrvDL12er/hxHfC88rG+Ao3PzcOszlD+/VoA8H3+CYGfb118K4QQQjWEoGlpl7bSLm1ZvdFy+KT54ElnTq55zzHznmOUj1LaKUHata2oRRi+XEO3wQIMIYTugiSlnRON2/ZbDqWoRg0ybtnnuHTNmnLmtv4ZpFx6Y1js7gzrdzou5wrUKuWwfrceL1v6K2e2Mm1a3tqoAyGEUMNCqRSKwb0Vg3u78osth09aDp10FZUat+03btsv0PhIOsZLOyWIIpthJYY8cGwUIYTuStotCQDMh1MJIa0cPgAAdL9uBp6/r5s4Lufqf9sGBKF++VlCJLx53Lz3mC01k5RKNFPG4G9lhBBqBOjgANWoQcHfzA767C3l0D4CjY+7TGfcsq/w/UXXJ80sX77WfiYL93RGOAKGEEJ3JYpoSmv9XEWl9sxsef+uxq37XNcLzYdOyrq3q+IdOLuj7MufeJZVPtaXadPy5nF3aUXFj38AgHrCSMpXWSvpEUIIeYkwPFQYHuozZpjj0jXLsdPW5DR3Sblp+0HT9oOkTCJpGyNpF8cktLr1rRx6eGABhhBCd0cQ0q5J+nV/WQ6fFMdGqkY8Uva/lfrVm5j4aEohq8oNKpb95iooEYY3UY0e8vdRni//9lfOZpe0i5N2q2othxBCqIEhiBvtOsY+7szJtSSnW4+nufKLzQdOmA+cIGhaHNNCkhTLtI25dXkwavSwAEMIocpIuyXp1/1lST7tO+FJWY/2pt1HHRdzSucvC5g9jRBQlV+rX7fdfOAEIRL6vfbcrScb/zpgSztPKWTqSaNrOT5CCKF64caY2NNDXAXFnpaJjuyrttPnbKfPwbLfhE2DmYRWTGJrUVQ4QeESoUYOCzCEEKoMHRwgDG/izLluO3VW0qGN/xsvFLw9337+csX3aysvn/Rrt+nXbvNs3EwHBdw87i4u06/eDADqF5+iVPJa/wIIIYTqEzooQDmsn3JYP9ZotqVmWlMz7ekXnNfyndfyDRt2kRJGHBfFxEczcS0F/mpvh0W1AgswhBC6B1m3dhU5180HT0g6tKF8lP5vv1j0weemXUfoJoGKR3ve8RL9mi36dduBIv2mjpV2Svj7A44r/XIFZ3fIerSXdIyvm/wIIYTqIUohk/XqKOvVkXezjvOXrKfP2U6ddeUVWZPTrMlpAEAH+onjopm4KHFMC1Iq8XZeVGOwAEMIoXuQdkvSrdpoTTnjLi4TBGhEzUM1Lz9T+uWKih/W2c9e8h33+K0vKR1ZV3SrN9szs4Ai/V59Tto58dZb6f/c6ci6IlCrfMePrPPvgRBCqD4iBJQ4NkocGwVjH3eX6Wxp52xp5+1nslyFpa7CUtOOg0CSovAm4phIcUykOLo5tu5o6LAAQwihe6BUCmnXJPP+48at+33HjwAAadckzmzVrdxoPZ5mO3VW1rO9592k83qhLTUTAEiZRPPSM5IObW69jzMn1/D7X0AQmlfGkFLGK98FIYRQfSbQ+Mj7dpH37QIc57ica0u/YM+46MjKcVy65rh0zbBhF0FRwoim4tYR4ugIUctwkhF7OzK6b1iAIYTQvSmG9jEfOGHac1Q1ciAplwKA/JHukvZtdKs2mg+mmHYduXkmKRYpBvdWDO1NSv5RYvEOZ+kXK3iWVQzpLY69x8bNCCGEHnYk6emgCCMe4R1O+4XL9sxse2aWIyfXcTHHcTHHADuBIkVhIaLoCHF0c1FUOK4rbiiwAEMIoXsThgYxcVG29AumPUeVw/p5DlK+Ss3UsfKBPeyZWZ4jhJCWdk26Y4f6ip/XuwqKhaFBPk8P+fenCCGE0N0QIiHTJpppEw0AnM3uOH/Zfi7bfu6S8/J1x+Vcx+Vc45a9AEAH+omiwkVR4aKoZsImgUAQ3g6O7gwLMIQQqhLF4N629AvGbQcUQ3oT1N895UURTUURTSu/1nLstGnnYYIWaKaNI2i6lpMihBBqtEhGzCS2ZhJbAwDvcDqyrtrPX3JcuOzIuupZM2bef9xzmqhFU1FkM1GLMGFkGCWv0t6VqG5gAYYQQlXCxEfTTQJd1wstR07Jut/H7smu/OLyxauA533GDBOGBddeQoQQQg8VQiQUx0aKYyMBADjOeTXffiHHkX3FcfGKu6TclnHRlnHRc6YgQON5XSiMaCpsFkKKRd7M/dDDAgwhhKqGIJRDepctXmXcsEvaJfHWQbBK8A5nyYLlnM0u7dL2bj3rEUIIoQdFksLwJsLwJgA9AIDVGRzZ1xxZVxxZV505ue7iMndxmeVI6o0zQ7TC5qHC8Cai5qHCsBBCiFMz6hQWYAghVFXSbu3067Y7cwsMv29XPTWoKpeULVntul5Ih2jVLz1d2/EQQgghD8pHKWkfJ2kfBwDAcc68Iuela47sa47L11zXCpy5Bc7cAtiXDABAkcJgrbB5qLBZE2F4iDAMx8dqHRZgCCFUVQQt0Lwypmj2l/r1O5jEVqLIZpWfr1u1yXL4JCkW+b8xAX+fIYQQ8g6SFIYGCUODZL07AQDvcjmv5jsv5zou5zqvXHdeL/xHPUYQdKCfsFmIsFkTYdNgYbMQ6v/au8/AKKq9j+P/M1vSCySEEgIh9NBEuoCAINIEBfVasGC9eu16vYhcFcH+WEFFvCr2hiAK0lSkSkdAQGoSIDQDSUjfMvO8CCWQTYQAs8ns9/OOzMzOmbPnzOE3M3smOtLP5bccAhgAnIHg5EZRg3tnT/8pY8IndV4eWc7bMDO/+CF72lxls8U+NMJRt5aZhQQAoCzK4Sie4L540vqjeWznblfKnqKdu9270t17D7r3HsxbsqZ4fVt0pLNB3eIw5qwf76gTJ5rmx/JbAAEMAM5M9LWDCtZucu3ae3jy1Ji7rvW5TtbXP2Z/O0fZbDUeGhHarqXJJQQA4DQdz2PF/zS8Xvfu/a7UPa6U3a6UPa7UdG/WkYK1mwrWbjq6vtPhrFfHmVjXmRjvSIx31o/nZdBnigAGAGemeDb5fSNfypm32HMoM/bu623Voo4v9ezPOPzx1PwV68WmxT54S2jnC/xYVAAAzoiy2ZyJ8c7EeOnZSUTEMDwHD7lS97hS012p6a60dM/BQ0Xb04q2px3bQNnjYpyJ8c768cWpzB4X48fyVwkEMAA4Y87E+BqP3Jbx9mcFazamP/xc9DUDih+Rd+1IOzLzV8Pt0YKDYu65IaxLW3+XFACAs6CUvWasvWZsaKej1xP1vAJX2rE8lpru3r2veIrF/OXrilfQQkOc9es4E+s66tcJbdey5DVKFCOAAUBFhHZoHf9q/YyJXxSs/uPw+9+cWKBUeM9O1W4YzJADALAeLSwkOLlxcHLj4n8aXt2z94ArNf14KvNmHSncvKNw8w4RyWvesNbYh/xa3sqIAAYAFWSrFlXz8X/mzl9WsGZj8V+U0xnR/+KgRvX9WzAAAMyhbJojobYjoXZY9/bFf/Fm5bjS0l2pe9y79oVc0My/xaucCGAAcFbCe3UO79XZ36UAAKBSsEVHhEQ3C2lD9CoTk0gCAAAAgEkIYAAAAABgEgIYAAAAAJiEAAYAAAAAJiGAAQAAAIBJCGAAAAAAYBICGAAAAACYhAAGAAAAACYhgAEAAACASQhgAAAAAGASAhgAAAAAmIQABgAAAAAmIYABAAAAgEkIYAAAAABgEgIYAAAAAJiEAAYAAAAAJiGAAQAAAIBJCGAAAAAAYBICGAAAAACYxO7vAuB8+e9///vcc8+Vs0JmZqau65rm5xBuGIZhGEoppRTFEBFd10WE76VSFUMq2fcSFRVlt5909s7JyfFXkYBz7tlnn50wYUI5K+zevdvr9dpsNtOKVBnouq7rus1m8/v50EyGYXi9Xk3T/H76NZnX67Xb7XXr1vV3Qc67gwcP+rsIfkAAs6DExEQRycvLy8vL+9uVvV7veS/QaTAMw99FEKk0xRC+l5NVkmJIpflesrKySv9RKVXc94Gqq7gNHzp06NChQ3+7cvFlkUDj8Xj8XQQ/8Hq9leT0ayaXy7Vz505/l8IMATh+qcrzPxucQ2lpaeWfqvLz81u1ahUSEjJr1izTSuXTqFGjli5d+uyzz3bt2tWPxfjpp5/GjRvXp0+f0aNH+7EYhmH06tVLKTV//nw/FkNExowZM3/+/KeeeqpXr15+LMbixYtHjx7drVu3cePG+bEYItK3b1+XyzVnzpygoCA/FuPFF1+cNWvWiy++eNVVV52yKCQkpHbt2n4pFXAOVaHxy2QjR45ctmzZ888/36VLF3+XxTxz5sx5/vnn+/btO2rUKH+XxTwul6tv375Op3Pz5s3+LosZAnD84g6YNdWvX7/8FYpvjmma1qNHD1NKVKaYmBgRadWqlX9Lkp6eLiJxcXH+LcbxCyJ+/17i4uJEpHnz5v4tSWZmpojExsb6vUKKn365+OKLg4OD/ViMjz76SERq1KiRlJTkx2IA508VGr9MVkmGS5OlpaWJSK1atQLqqIuKikREKcWp3qoC64FaAAAAAPAjAhgAAAAAmIQABgAAAAAmIYABAAAAgEkIYAAAAABgEgIYAAAAAJiEAAYAAAAAJiGAAQAAAIBJCGAAAAAAYBICGAAAAACYhAAGAAAAACYhgAEAAACASQhgAAAAAGASAhgAAAAAmIQABgAAAAAmIYABAAAAgEns/i4A/MPpdIaEhERFRfm7IFJcBr+XpLgAkZGR/i2GUioyMlLT/H9lpLgq+F5KlkTTNIfD4d9iVJLvBfCjyjN+maySDJcmqzyjgJnsdntYWFhYWJi/C4LzRRmG4e8ywD/Wrl0bFBSUnJzs32JkZGSsXr36sssu828xDMOYPXt2ly5doqOj/VuS9evXK6VatWrl32JkZmYuW7asX79+Sin/lmTOnDnt27ePiYnxbzE2btzodrsvuOAC/xYjOzt7yZIl/fr1qwwpHfCXSjJ+mSwjI2PNmjV9+/b1d0FMpev67Nmzu3btGmjJ8/fff3c4HC1atPB3QXBeEMAAAAAAwCRcQwUAAAAAkxDAAAAAAMAkBDAAAAAAMAkBDAAAAABMQgADAAAAAJMQwAAAAADAJAQwAAAAADAJAQwAAAAATEIAAwAAAACTEMAAAAAAwCQEMAAAAAAwCQEMAAAAAExCAAMAAAAAkxDAAAAAAMAkBDAAAAAAMAkBDAAAAABMQgADAAAAAJMQwAAAAADAJAQwAAAAADAJAQwAAAAATEIAAwAAAACTEMAAAAAAwCQEMAAAAAAwCQEMAAAA/uXJ2b8rbdeBXK+/C2KqwDxqEMCsSM/aOPWl+67u2SqxZnRoUHBETJ0mHQfc/Pi7P6fkGeVuWLBz7oRHr+meXK9GeEhEXP2WPa4fOXH+riKTin1+uJc80tCuymVv9OhSt8+NLVQhnpWPN3eUXw8naDEjZrpKfYSFauNkeub6KS/eO6xbcr0akSGh1Wo3bN3zusfemr0t72+2s2yFAJVVgHW6sxq/qp78uQ+0aZDY+NrJe/W/Xdc6LeG0jjrAWkKAMGAp3gO/PHVJLbvy9V2rkEbD3lyVrfvcMH/DpOuahZfeTotqffsX210mH8a5k/XJ4BCftXGCreEjS0ofoMUqxL1iZDP76Z4VVPVbZhSdtLnFauOEopRpD3aO9dVhVFiTqyesOuK7u1i3QoDKKgA7XYXHryop+/uba2oizp7jd3nLXdFSLeH0jjqwWkKAOO3/kqEqKNr4+j+Gjv01SxdRwbXaXjqgR6t60VpWyqp53/+06bCnYPu3Dw7yRP429ebEk2996rs+u6n/Pd/u8RiiQhO7Dx7QsV7wkR1LZsxYsbcoe/37twywRy19u3/M33T/ysiTuj3VbYhoEfVaNo1z+lzHVrfuqady61WICotv2a59ePnPOHgP71iXkqlLUGJSQokWYr3aOEpP//rWnjd8nuYxRNljki8d3LddQtDhrWuXLV60dk9+3tYpDwx2hy78ZkTDU86Tlq0QoLIKyE5XwfGraipc/9bz3xz8+1tf1moJp3nUAdUSAoe/EyDOHX3fx0OqaSKigpNv/XxLXolF3owl43rFaCIitvjbZmafvN3BKdfX1kREORvf+Pn2wuMLcte9NbiuTYkoe5MHF+SYdBjnVP53N0QpERU27Msjp72RlSukHO6tE/pEa6JC2z+9Kv/Eny1bG95d/xtY3F/sCUPeWHG4xNXHgpTpD3eM1kREqzbw/d0nX5e0bIUAlVWAdroKjV9VUNGBNV+P7lvXURwfyr0XZKGWcAZHHTAtIbAQwKzDu/utS4KUiNhbP7GqsPTilPG9QpWIaHEjZpQMZ54Nz7R1KBHlSH50ce7JG+kZ39+SYBMRFdrnnd3lPxVQGXm3/99FThGxNxu5wn26G1m5Qsrm3jq+d7QmKqLbi+tLPn5o2dooWvpoY5uIKEfLx5bkllrs3fvVtXVsImJr8MCCkt3JshUCVFYB2ukqNH5VHXr20vH3XH/5xa3iw20l79yUF0WqfkuoyFFbvSUEKibhsI6CFYtXuwwRR4th/7ggqNRiLeGy/q3tIqJnbflz34k73t5NU6f+4TZEBXe/574uYSdvpGL6P3RbS7uIUbDkm+/T//7pgErGk7o9xSOibA0aN7Cd5jaWrpCyeLdNvHv0/CwjrMvoiQ+1KvGAg2Vrw7Nu+g8pXhEVcsn9D556YCKi1R42+u42DhHvrqlfLSk8/nfLVghQWQVqp6vI+FWV5P4+7X+f/7BwQ3qut/z5wY6zQks486O2fksIUAQwy9Azdu8pMETElpCY4KvlxjlHAAAfVUlEQVSLahFREZqIiJGfX3C84+up8+ZscouIo/3lA+uWbg/25EEDG9tFjMLfZv2Sedrni8rByNyx87AuotVs1DDqNB+OtnSFlEFPm/zgU/OzjZB2j014oIWj5BKr1oaRs2ljqkdE7E0u6hzns23YmvTsUdcm4t3389z1nqN/tGyFAJVVoHa6ioxfVUr4hdc9NvKEBwac+mvbU1miJZzxUQdASwhQTMJhGVqNYePnt881lK1GsyhfK7h3/LnTIyLKmZgUf/zU5fpzwxaPiNji23eI95XH7cmd2kWozZmG688/tnkkxuFjncrKk7I9xSMitqQmSTYjd9fKBQvXbN+fa4TF1Gl4YffurWv7mFbI0hXik77vq0efmH3YcLS4f/yjbU++d2rZ2jCyM7MNEREVGh5WxoimVateTZMUr3fX5i050rGaiIUrBKisArXTVWT8qkpUZKfbx3Y6/k/j0IfrJv64w1POFlZoCWd+1NZvCYGKAGYdoXXbXFS3zKUFf0x85pMUr4hWY9D1l0Uf6656+p9bcnQRsdVvWN/3rW1HvQZ1bZLp0ff8uTXX6FytCvX0wpQd6bqICglO//qfXf/vo2X7XccviiktovHA+8a9+PjVzcNLbGLtCvHByJr95MhpB3Rb/I3PPdYp9OSF1q0NLbp6lCYi4t23e69XknwN5p69u/d5RcRwp+7Y5ZFqditXCFBJBWynq8D4ZW20BFqCpRDArMvI2rbs97TsI4f3p25aNvOzT+dtzzNUSNMR77wyLPb4WUk/nJGpi4hy1Kod6/uBVFvNOnE2EY+hH844bEgVOqN503akuA0RyZ79wqOnLjT0nK0/PHftornLv5zx8mU1jydSK1eID0VrXh318W6virz0iacHVT/1UCxcG+Ft2jWxz1jv8e6e++M6V7f2pSf2zVnw7Zzi6YGNvJyj7zC3cIUAlVOgdrqKjF/WRkugJVgKvwGzLveKl6/sfWn/If8Y8cCYd+duz1ORF9z23uLfJg0teeveyMvNM0REhYSGlNEYVEho8f1tIz83v5I+Ve2bJ3VbavGdfWWv0eWfb85Ys+twvqvwyP4/F30+9tpWUZqInrXqtRtufnf78fdjWbpCStFTP3z8jfUuw974jqdHJJY+XgvXhr3F0KtaOZWI58+3H31jXf4pi70HfvzPg5N3FbcLIy/v6KFZuEKAyilQO11Fxi9royXQEiyFABY49Jz1Xz436oVvt5T8v6ZRWFA8IYfT6fvdfiUWGfl5VeqMpu/bkZJniKigxjd9tnLBO/cNbJtQLcQRFFGzabfrRn+x9NcXLqmmieiH5j3zzIxjP9i1coWUkrfglZd+OWKoiN6PPNA52McKVq4Ne6t7xt5Y365Ez144snevO8f/uG7PkSJP0ZG9f8x779F+HYdO3Fx07HhstqNnSitXCFApBWinq9D4ZW20BFqCpRDArMvZ5+1d+YX5OYf3bV89+4PRQ5uHG3k757x0bbchb250HVtJBQUHKxERt9td1ge5XEdXL+esVxlpCXf+sC8jIyPj4PoPrqlf6te44Rc8POmpbqFKRN//3Uc/ZhWft6xcIafQ0z5+7qNUr9jq3fjvGxJ8ngosXRsqZuDrX4/rGWdThn5oxXv3D7wgISrYERwV36rvna/8tMsd0fGh+/uGKRFRoWGhxU92WLpCgMooQDtdhcYva6Ml0BIshQBmYZrdGRQUEl6tVsMLLxsxdsqyOaPahyrRM37+738+3Xv0HRkqrHgOOKOwoLCMfmsUHF2kwiLKmi+ucrKFRFWPiYmpHhlcxuPiSdfddHGwEjHyli1aXXxGt3SFnMS18u03f80xlKPFLXf2KP0eLBGxfm2Ed/jPrN+m/XdI0witZNGVPbbjnZN+nfPf9kFeQ0S0sPCw4iZk9QoBKp1A7XQVGb+sjZZAS7AUAljAUJFdRj55dQ1NxMiZP/3n4jm4RYupEaOJiOE6sP+w71Oa9699B70iIlq1mGrWajCqeqs29Wwiomfu218gIgFUIUfmvPPxVo+o4K6339KqrMl4AqA2gpIuH/Pdpn1pK2Z8MvH1F5978fWJn8xcvXvP8ndvaxtxIH2/V0SUvV7S0VfrBUCFAJULna4MPsYva6MllCHgWoJFMAuiVRhZO9ZszfAYKjS+Zau6oT7XCb2wY0v7R7+4DPfu1HRdqtlEtPimjcLUUpfh3Z2y2yu1fTQIz560dF1EbLWbNom2yiWlo1RoeKgSESVKFR9agFSIcWDae1MP6KLCet14Tf0yx6kAqQ3Rwuq2Hzi8/Sl/dW3bvMMrIraEZo2PTvAbKBUCVBp0urKUHr+sjZZQlkBrCRYRMFcILM/z57vXXdS5c+eLBrywvKxb0MpmO/qklc1+7CUazmatmtlFxJu2es1BX9eUvNtW/X5EF1HOZq2aVqHAbuSmrV26ZMmSpcu3lXGtTET0jAMZuoio6FpxRyehsGyFlKTvm/75z7mGqLCeVw2MK+eEHRC1UQb32gVLsnURLbpjl+RjhxbIFQL4RSB2uoqOX9ZGSyhDwLUEayCAWYW9YdOGdhHxHlizOk33vY57y8atHhFRjviEWke/ei3x0kub2UUM18rZP2eU7t966k9zN3tElLND/96xVenaSsHPo/t079ata9eBzy9z+V7Fs3nBov1eERXaseuFR3/bat0KOUHfM+3LhQWGqNAew8rNX1auDc/616/o3KFDh06XjfvNV/soWPrVtFSviBbd54peEcf+auEKASqngOx0FRy/rI2W4HuVwGsJ1kAAswpV/eLeFwYpEc+qj95f6espYOPg9Inf7PGKqKBOfS6OOnZysre48srmDiVGztyJk7d4TtmoYMWk/y0vMkSFdB42qF5Vai4qplff9k4l4t3xyctf7faRSY39016Y9IdbRKt26dV9q1u9Qk4wDsz+flmRIcrRru8lfzNKWbc27PXrhmxbs2rVip/efntGqbHcvWXSmMkpXhFbgxvu6hdVYjPLVghQSQVgp6vw+GVttARagpUYsApv+vsDo5SIKGfj4ZM35Z60sGjPnNHdYzQREVv8zdMP6SWW6fs/ubK6JiJadPexy7NOLPLun/NAmxAlIrZ6d87ONuk4zhl936dDYzURERXR8d9z97pLLszfMfWhjtGaiKjgtk+tKjppQ4tWyFF6xidDIpSI2Fs/tc7996tbtjZy591dzyYiotUa9MbaEkdWsO2r21uGKhHRYoZ8tMd78mbWrRCgkgrATlfh8auq0jM+6B8kIuLsOX6Xt8y1LNYSTuOoA64lBAxlGLw0wDJcG1+7rPujv2bqIspRo2Xvfj1aJ8aG6EfSNy2ZM2fF7nxDRAU1vWPKgomDap50lcSz44Nh3e74fr8uKrxxvxG3DWkf78zetujrD75YsqfQUI5Gt05Z9N7gWlXuyoq++8sbut341S6PIUqLaNBtwGWdm9QMdh9O27Bwzk/r9hcZorTYS19f8MN9ySe/MsSqFSIiInnfDa837LPDuhZ/97ydb1/y9y9LsWxt6Pu+Gd7xui/3eA1RztrtBwzollzLdnjLkhkzl+0pMEQFNb3j2wUTB9Y89cgsWyFAZRWAna7C41fVZBz6cGD8rbOKxNlz/Paf7/X9akqxWks4raMOsJYQOPydAHFO6RmLnuufEOT71KMctS95YtZul88NM397eWB9Hxuq8OQbP9xYYPaBnDOF26c80iPe6atGlBbV+tbJm/J8bmfZCjFcix9qYBMRFdz//YP6369vGFaujdy1E65I9HVgjtq9Rs1IK+t6onUrBKikArHTVXT8qopO7w6YYVirJZzuUQdSSwgYBDDr0Y/8OfONR67r3TYpLiLYbg+KiKnTpOOAW0a+PWd7brn/3/Ye+v3r5+/q365hnWohQWExCU07X/ng6zO35pa3TZWgZ2+eMeHxmy69sHHd2PCgoIjYus26XHH3uM9WHiz/ATxLVojnzxc6OkRE7MlPrP77BxBPsGRtGIZheDM3THn2jgHtk2pEBAWFxyW2uOiK+16dtv6Q5++2s2qFAJVVIHa6io5fVc3pBzDDsE5LOJOjDpSWEDB4BBEAAAAATGKReWIAAAAAoPIjgAEAAACASQhgAAAAAGASAhgAAAAAmIQABgAAAAAmIYABAAAAgEkIYAAAAABgEgIYAAAAAJiEAAYAAAAAJiGAAQAAAIBJCGAAAAAAYBICGAAAAACYhAAGAAAAACYhgAEAAACASQhgAAAAAGASAhgAAAAAmIQABgAAAAAmIYABAAAAgEkIYAAAAABgEgIYAAAAAJiEAAYAAAAAJiGAAQAAAIBJCGAAAAAAYBICGAAAAACYhAAGAAAAACYhgAEAAACASQhgAAAAAGASAhgAAAAAmIQABgAAAAAmIYABAAAAgEkIYAAAAABgEgIYAAAAAJiEAAYAAAAAJiGAAQAAAIBJCGAAAAAAYBICGAAAAACYhAAGAAAAACYhgAEAAACASQhgAAAAAGASAhgAAAAAmIQABgAAAAAmIYABAAAAgEkIYAAAAABgEgIYAAAAAJiEAAYAAAAAJiGAAQAAAIBJCGAAAAAAYBICGAAAAACYhAAGAAAAACYhgAEAAACASQhgAAAAAGASAhgAAAAAmIQABgAAAAAmIYABAADgPPDsX/D6HX1a1IkMdgZXv/DJ5W5/FwioFOz+LgAAAACsJ3fh4336vbKx0BAREfdfh/PP6uM8Gz95/K2luYaj1c0v3NM59FyUEPAPAhgAAADOMePw9Nfe3VRoiBZ94fBH7uidVLNZc9vZfKC+e8Hkd9/P0IMGdR5DAEOVRgADAADAOebdvXVHgSFib/LPie+P7sD/OIHj+A0YAAAAzjWv1ysioiKjo5S/ywJUKgQwIBAZ+el7Dht+LoSnMDe/yOvvUgAAAJiJAAacRM/eNP21R4Zf1r5xfGxksDMoLLpm0gU9ht7z3Ber/vKUvVn+9lmv3X9Fpybx1UJDq8U36Xzlg+N/SisSY9/EPsFKqeD+72f4ChruA8s+eeafgzs3q1cjMjS8RmLLTn2uvu/lqRuy9HKKeEb78m57ubNTKS38uqlFIpK3ZdqTV3dsEBMa1X7c6hKzUXn+WvnZuLuv6NK8XlxkSHB4bHzjdpfd/Pjb81IKfBTA9cs9dW1KqeDL3jvg86gWPZhoV0oFXfLWnuMH4pp9ew2bUo4Wo9d49EPL37qzV5O4yMiwYIcjtHp84w6D7hr3xZpD3nIOGwBQJehpb1wcpJSj3bObPCLiXjGyqV0pZUu4d/7JsyCe7tDjXvxQkl2poP7vZ+giUjTjlupKKeW86P+2lzdaApWXAeAo954fH+saa/f9pISyxXR9Yv5feunNCrd+fHNy+KlbKS36wn9N+e3N3kEiEtTvf6W2LNj80a2tozUfe1P2Gl0fmZ7q8lHEM96XZ+tLnRwiKuzabwtyVr3Uu8bRiy5arbvmFhWvUrTjq7svrGbzddgqpMGQV1dknVL0op/vjtdEJKjvpP0+6sNwLXygvk1EnL0m7PYe32jWbbGaiD155Pdf3tIwyOdh1+w+at4Br49PBABUGd7U17s7S5/ktbr/+uXEwHYmQ49r0YMNfEzf4ejy8jaGDFRJ/CQSOKpw1djBw15eU2CIsse06DPwkrZJcWEqPyNt45I5c1alF3oPLXnhxse6bHh/YHSJAcM48N3d/W77eKfbUFpko0uGDOzcMMp9YOOCH2Yu37Pm7euvqBXh860nnm3vXd3r7pn7vYaokISO/ft3b1k33JOxY+XcGb9syfT8teTVq3tnfLHwg6F1tLPeVzE9Y+aDj476JTO65aCrBl/cJimhbUu7iOj7vr39kuGfprkNUbaohhcP7NepcQ17Ttrvv8yct+5AUUHK9Ef7DvYumPto66BzUsv63k/vuWPvniJDBdW84NIBFyfXtOekrf151sJtWR7PgUXPX9lfm7twbJewc7IzAID5tDo3fLiqZ65784Srh/9vp9fe8oEpH49I1JQztuHR/3ae4dBjb/vvmWtucbmWPN333u8yDefFY3968/JIUWF16vEkF6omfydAoJLImXZDjCYiKrzTEwszTr6mlrfxrYFxmoio6OHf5ZdYoB/6YUSCTURUWJv7vt9VVOLjNv7vmkTHsaR2yh0w9+ZXukcoEdGqX/SfmWmFJT7Re2jF+KHFG2qxQz/dq5/lvo7dAbPXrBPniOv93JJDJQ9N3//lNTU1EREttteY+fvcJRZlr3/vuoZOJSIqtPMLf5RYdDZ3wERERAU1Gf7BH0dKlPKv3165vK5diYgKavXEikIfnwoAqErcq59ItouIo+MLWzwlF1Rs6DkxjgQNmnzYnEMAzhOuHAAiIuLZumptti6i1b7+mSe6x5zcM0KTb7tvcA1NxMjfm374xBPneuqn//flHq+o0M5PfvHq5QklHrkIT77t/Q/vbujzlSc58155bWmOIbaEGz/47vkB9UreW9Kqd7j3k2/+0yZIiX7oh5cnbTj2w7MK7usow3NgvzH4tU9HXlS9xKF5t0x+dfpBXcSWeOvHU/7bs1aJW+IqstXtH04Z3T5EiZG/8u23fj2792eWoMK7jp32wYgWESduJNpiOz/81dTHLwhWYhRtfO+NH7OYmgMArMk/Qw9QmRDAABERsTW6/dMly5YtWzZvTI+Q0ouVzVbcWXS9RP5KmfbVbwWGqMj+993erNTzvOHd77m9naP08+3587+Yttcrytn+3lGDavh4/j203X339Q5RYrg3z5mXpp/NvkocYJ1h/7yy1klreHd8P21tkSEquMv9Iy+rXnrroDb3PjakuibiTf/hu+Wucj79DGi1rx11T7Kj1N9DOjzy5FU1NBH9r5lT5jPmAoAl+WfoASoVAhggIiIqMrFtx06dOnVIrnXqj508R3b8/MYbMw6WmmspZ+XS9W4RcVzYq3u0j/BjS+rRI7FUH/NsWLwsSxexJfbokeT7rpWq3vbCBjYR8WzfvM1zFvsq8ZHOthe1Cz75b7mrlv3hERF7ywH9fG+ronsP6BqsRLwHVq1MPSdzFKqoSwb18P0Tr6hLr+wdqUSM3FXLNpYz5SQAoMryy9ADVC5MwgGcrPDAH78tWblh89btO1JS0lLTUnbu2JWR7+ttVd59KWlFhogWmdQwzucgYk9smGiXbSePHp703ft0EfFsfamz46XyC6PnZBwqEnFWdF8nqKg6tcJODm76X3v3uw0RFdS4ma/5pUREVESTpvGabPPq+9P369KkvMccT4+9UYumZc3nEdy8VSP7F6vc3r270z2cngDAevwz9ACVC//DAY4p3DH9uUdHjf9hc9ZJcUvZIxPad2vuXjpv3cmv5zKys44YIqJCw0LLmLo+LLzUEiMv+4j7tH/hZBQVFhkSoSq2r5KLQ0JPXazn5uTqxVuGlXnvTEVERWgiXv1Ids45ed2KCo8oNY3+MVpUdJQmIoY7OyvPkODyHqkEAFRB/hl6gMqFAAaIiIhn26Rh3e+ZdcBrKC20Xqd+A/tc1LZFk0ZJDRs2SqpbPdi7+KGmP63LOmkTFRIaIiJiFOTl+05URkFB4alLVGhEuE2JGI4Oj8+c9I+48kOGFpEQrSq8r5P2W/ov4RFhSkSM/Ny8Mgc4Iy833xARLSw89LSfWNb1skti5OXmlbVUzysuibKFhoWQvgDAes7f0ANUHQQwQESMzO+eHDX7gNfQoro89s2UZy6tc8okEb6e7NNq1KphU+LRj6SmZBhSp3Ri8O7auavUlvZadWpqkuI1Ch1xLdu0Ob0+WMF9lcsWW7umQ4nbKNy+JdUrzXw+45G3feser4hocbVrnu4o6Mk8nF3msOrdsWmrS5r6mOhExLVl4zaviGixtWuWnqUDAFDlnbehB6hCaNaAiLjX/rIwUxex1bv5hTGl0peIGEVFRaXuZdXo0KmRTURca35dnO3jro6etnDhzlKhyNG6S/swJeLdtmBhuu+cYhz69fWH7r/vvvsf+2i9+2z2Vb6Idp1b2EXE88fsubt9lyR7/o+L8w0RLbZDx9Lz3Hu9vvbo3rBsVZk3uUTP+mXmIt9zHObMnzY3UxdRIe27tCGAAYAVnfXQA1R9BDBARIyC/AJDRFRU9Wgf53oj89cpcw+UGifsrYYNbe5QYmT9+Nbk0tNf5C19573lrtJJJKL3sH7VNTEKF7/y5PQDPpJKwcpX73/sjfET3np/bX5121ntq1y2xpcPaeVUYhQuefOln328esu14e0Xp/6li9jqDLqiy/GpM5Rm05SIeFK27nSfuo3x1/dvfrKtnDkMvemfP/vun6W2k8K1b4z5cr8uoqL6XNk76swOBQBQNVR06AEshAAGiIi9QZMku4h4N0/9bPmRk4eD/G1THup/7aQdxaHH7S6RLRwX3D3qijhNjNxFT97wnzn7SizK3/LxXbeM3+I5+lmqxDODKmbIw3cmO5V40z4dMfihaTsKSuxNz173zg1XvfSH2xCt9tX3XRd/rI9WbF/lsyXf+vCgWE0Mz85JN/7jxSV/lQh2Ru6mD28dNmZ5viEqtP2/7u8TfnyRFl+vjiYi3tSPx03aXFjiA43sla8M/9cXe8v9zbSRs2jU0Ls+35JX4qgPrxx//ZXPrMw3RDkaj3h46N/8NA4AUFVVcOgpwcczKUCVwm/AABGxNb3mpq7Pr/k117X+5X4dN95y06AODatpeX+lrFvw/dffr9rviWzcpNbOrfu97jWTn53UeHinNp3aJoSIqNr/mPDez2uven97zqpXB7aYddnQQZ2SIj0HN/363fTFu1wNrrmu9rQvlrhEBQUHlYgUwZ1Gf/DEL72fXp6TveKNYa2+ad9vUM/W9SI9GTt//3n6nD8OewxRjqSb3nrx8hKv/Krgvsqlal/35vgZK4Z/tcdzYO6ons0+6TOkf6dGMVrOrt9/mv7j6n1FhohWrce4/z3cssS5wpY05JpOT69YnK8fmvtA147zb7qmR+sG1Y2Dm3795qOvl+11SWh4WGFeGb+utsUl1D6yZ/OHw9vOfbP/oIuT4+xH0lb/NGP+5sNuQ0SFtHxg0tPdQivwHQIAqoSKDT0iYrfbRURcv0184vWQvnVsYc0GDmwTxQU7VEEGAMMwDNeOT65v6GPic2Wr3vaOjzZm/vZYE/uxpc5ur6V4S2z5+YjkU6dWV46Ey8evTf/o8mARUWHXTS08ZX/64SUvDKjnc6Z1ZYvpeO+UnS6fpTzDfXm2vtTJISK2pIcW+/pAwzAKt312R5sozWdJQhsOfWNVtl5qm4JNE4fUdfjcxNHgxk/HXxOuRJy9Juw+Xk1Fs26L1UQkqM9bK779V9vo0vtT9tgu//5xr+dMvjUAQCXlXv1Esl1EHB1f2FL6zF6BoUffN7nkZUlxdHl5m7fUBwNVAI8gAsUcScM/XbXiq7G39muXVCMiyBkSXathuwF3jPlk2ZaVk25Kju408oPnh7WNjwxyhsc1bFS7RHJyJF33wcq13794Z7829WJCg8PjGrS7/MG3f1kx9d7W3iM5uoho1WOqn9rXVLWL/jNz04Yfx//7ht5tGtSKDnE4w6rFN79oyF3Pfr5805Lxwxr4moaiYvsqX1Cj6yet2rJ08pg7B3dqWjc2PMgZWq12Utu+N418Z96mP769v11k6QEyuPld365dOvmJ4Ze0SqgW6jg6hCpn3T6PT/3lvWHx5fxoWtkSrpzw27q5bz447KImdaqHBgVH1Uxq2++2pz9eumnRS/1r83trALC+Cgw9qtbwd78Ze03H+tFBdntQRI16CbH8QgxVkzIMHqMFzhP3ogcb93ojzevsOX77z/cmnNfrHWbu61SGK2vPtm37jDrJzePDywhQrtm3xw98P0MPunRi6py7avHICAAACEzcAQMqzv3b2N7t2rZt2/Hmj33Npevd/Muv6V4RW0K7drXOtq+Zua8zpZzRCS06dGxZZvoCAABAMQIYUHH2+rWdW9b9/vuqr9/5rNTE6nr61+Pe3eARsTccelX7s36tlZn7AgAAwHlCAAMqTtW+6oEb6tuUUbj86cuvHvftytTMQq/XlfvXtiVfPnPVJbdP2aeLVuvKMQ91OvtMZOa+AAAAcJ7wGzDgrBhZS8cOHjxm8SHdV0/Soto98OXMV/rVPCc/eTJzX+ccvwEDAAAQ7oABZ0lFX/TkvDWzX7qtZ8PI49PUi9JCarXuf8/4nzYsfvXcJSIz9wUAAIDzgTtgwLniOZK+fWf64QIVVj2ubv16MT7f8VUF93VuGJlbf9uwz21o1Zt0blWbxyQBAECAIoABAAAAgEl4BBEAAAAATEIAAwAAAACTEMAAAAAAwCQEMAAAAAAwCQEMAAAAAExCAAMAAAAAkxDAAAAAAMAkBDAAAAAAMAkBDAAAAABMQgADAAAAAJMQwAAAAADAJAQwAAAAADAJAQwAAAAATEIAAwAAAACTEMAAAAAAwCQEMAAAAAAwCQEMAAAAAExCAAMAAAAAkxDAAAAAAMAkBDAAAAAAMAkBDAAAAABMQgADAAAAAJMQwAAAAADAJAQwAAAAADAJAQwAAAAATEIAAwAAAACTEMAAAAAAwCQEMAAAAAAwCQEMAAAAAExCAAMAAAAAkxDAAAAAAMAkBDAAAAAAMAkBDAAAAABMQgADAAAAAJMQwAAAAADAJAQwAAAAADAJAQwAAAAATEIAAwAAAACTEMAAAAAAwCQEMAAAAAAwCQEMAAAAAExCAAMAAAAAk/w/eblij9nMp+MAAAAASUVORK5CYII=" width="576" /></p>
+<pre class="r"><code>plot(st, col=4, log=TRUE)
+title('Splines are dependent')</code></pre>
+<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABIAAAAPACAIAAADCNZXvAAAACXBIWXMAAB2HAAAdhwGP5fFlAAAgAElEQVR4nOzdd3xUVfrH8efeaakkpFcIRXoPhN4EVBRBZYXFwooNRUHFiu7Puqtr2bUXFAvCumJDURSlKFJDL6H3FCCEEtKn3t8fCSGZTIC0yUzyef+lztzJmeN9zb3fe855jqJpmgAAAAAA6p5a3w0AAAAAgMaCAAYAAAAAbkIAAwAAAAA3IYABAAAAgJsQwAAAAADATQhgAAAAAOAmBDAAAAAAcBMCGAAAAAC4CQEMAAAAANyEAAYAAAAAbkIAAwAAAAA3IYABAAAAgJsQwAAAAADATQhgAAAAAOAmBDAAAAAAcBMCGAAAAAC4CQEMAAAAANyEAAYAAAAAbkIAAwAAAAA3IYABAAAAgJsQwAAAAADATQhgAAAAAOAmBDAAAAAAcBMCGAAAAAC4CQEMAAAAANyEAAYAAAAAbkIAAwAAAAA3IYABAAAAgJsQwAAAAADATQhgAAAAAOAmBDAAAAAAcBMCGAAAAAC4CQEMAAAAANyEAAYAAAAAbkIAAwAAAAA3IYABAAAAgJsQwAAAAADATQhgAAAAAOAmBDAAAAAAcBMCGAAAAAC4CQEMAAAAANyEAAYAAAAAbkIAAwAAAAA3IYABAAAAgJsQwAAAAADATQhgAAAAAOAmBDAAAAAAcBMCGAAAAAC4CQEMAAAAANyEAAYAAAAAbkIAAwAAAAA3IYABAAAAgJsQwAAAAADATQhgAAAAAOAmBDAAAAAAcBMCGAAAAAC4CQEMAAAAANyEAAYAAAAAbkIAAwAAAAA3IYABAAAAgJsQwAAAAADATQhgAAAAAOAmBDAAAAAAcBMCGAAAAAC4CQEMQINmO7Xj5w//MX3SmEHd2jSPDgvyNRr9gsKim7Xu3O+aW6Y+89ZXa9ILtbpuhOPIm4NMynm6qLt/s1TpDWioHAf+3b/c//q4Kcv4X19NdCYA76Cv7wYAQN1wnFo/66npL3y+qkLCsp4qzDl1PO1Aypqf//vOCw83bT/q/hdfmzGmlW/9NBRAo6FlLnn91YVp9nP/roYOvn/GdS109dkmAO5GAAPQEOVtfmPcqMcWHbVedHRLs53Z+f0L1y/5duJ782fe2sbkjtYBaKQcp9f/7603NljP/buuhVz/OAEMaGSYggigwbEf+uTmkY9cSvoqpeXt/PyOq6f8kFnn0xEBAECjxggYgAbGcezLR574KdNeLkopqm9kh56J7ZuF+auWnKzUvdu27DyW7yj7Hs16YPb9T14/eNaoYMXNTRYxhl/WtVtu6VNxNTQ+0P2NAAAAdY8ABqBhse/+9PUfTzrO/wdFFzHokffem3F9h6AyY/5awZHlnz0//cnPNp89/157xv/e+N+zV98b7+7JAWr0TR+vu8nNfxQAANQDpiACaFAcx35fkmIrM7KlS7hrzg8vjS2XvkRE8Ws+ZMqs3394sJOpzFCTVrRm4ZJTTEMEAAB1hQAGoEGxH9p3sGz+UsOvuGFIUCXT+ZSgQU8+Oarsq5p51/a9tvP/7jj4+oByda1j7l1qERFr5vovXph0RWKbuBB/v6axbboPHf/wG99tyqxmzeuLlqG3LL03RlfmDaYBrx90iIgtc/3//nXvtb3bJ0QG+fr4h0S36nHlrY+9t/Rw4UX+ojkj+avXH7l5eGL7hKimfj5+QeHNOvS/dtKM937ecdp2kWNFRBy5B5Z+/NyU8SN6tomLCPY3GX2DwmJadOo/6tYHX5qz4nB+DUOsVpi+5stXHrp11IDOLaJDg/yMBlNAcHhs6+6DR098+N9frUl3+f0q6yVxnN4yd8a4wV1bhAZ0fHJ9xe9X0964GNvJLd/9e9r1/Tu1iAz0DQiLa9PzqjtfmJOcWaXPrnoja//srUZH1fqpW0+dWdMvYt/7cm+joij6Dk+er8AhIvZDbww0Koqi6C97dK1VADQOGgA0IObFk6PKPllSQ279If8C77enfz39ulHnXfvX19dZy7x84D/9jWU/LvqeJUUnV750ZYy+YqhT1CYdbnzxt1RzhT9y+I2B5T4l8q5fzVV6g3nJPdFlv5ax/38OmNMXPTUkykU7RBTfy8bP3JpbSRcdWvjsmDYBlYVSNbjzhNeWH7dV2mWO0xs+vDMxRFf5IjVFF9rzjvfWZtkv0PGVK9j7zaNDY40XWgOn+DQb/vgPhyzO38xFL9m13A2vDI841036to8nW8sdU8PeuKj83fMe6Bfh6nQxRA97dtmxva/1K/e/PvbepRVOoGo2snbO3hp2VG2euvXZmTX9IrY9/0oyuP6bxXStH1njfEYDaKAIYAAaFOv6Ge3LLW5Vgwb9c/1ZRzU/ruIt7J3vv3lV6AUmDyj6qCte21D+BrIOAli/Zz5/vIf/BUKKom9+67fHKkSg3C3vjI43XKzAh2JMuOHDHYUuOsRxctnjvZpcSoEQxa/j5O/Tq5pczLs+HB3r8oa2wucbEm75Kr3cF3Rxi7xn18yrI8tkxfIBrKa9cVEF29+9JvoCUVUNGXL/bT3K3pdXzAzVb2TtnL017KhaO3XruTNr+kUIYADOI4ABaFhyvr2pqdM9keITP+iOFz77bevR/KqOyTjfwiqm4GC/i9++dXx8TUHZT6n1AKb6B/qrF2uH7rLpK8vdRDpO/DAp4QJ3sOW+hD5hYoW7YMepn25vfuk7FqlNr/rgYFUimHX3fwZWNjTh6vNjJv2YXSZbV7hF7vvws6PDyuWNMgGsxr1xMY7Tv0xueUlhsux3Kp8ZatTI2jl7a9hRtXPq1n9n1vSLODIXv/rA/ffff9/NfSPKfUyTrmOn3H///fdPe27+oeqNGQPwOgQwAA1Mzm/3JlSSERRDULMug8dMnPZ/r3309W/Ju4/lXSwdON/Cln6SLrjt8Fvuf+yJR+4ZNzAhwPk+TPEf8uaB8zdTtR/Azv0dY3iHoTdMvPPuO266OjHW1/luUI2e/FtR6Wc4Tv3wt7iyPaOYml/56MyFa7bv2bNj3a+fPXNjh0C1/OE3fZ3pKNfMt4b4lP0jin+bax954/Pvfln6+9Kfv/nklQevbVf+I3QJU/8o0i5V4bL7mpX7X6c2aXfNlGdfn/nZ3P/O/eTdFx+8vnNwua5WQyZ8e7byXlIDAgOceq00gNW8Ny7m7JL7WzslBsUY1uXq2x547LEHJl3dJczlQEy5zFDDRtbK2VvTjqqNU9cTOrOWvohm2/liz7IjYboWD65g4AtobAhgABoax4lf7uvocynPuRWdf3SnIX+597lZv+06bXX1WS5vYdXQIc/+UWaRSNHhBQ8kOu3bZej63LbSd9RJAFNDBzzx48EyQxWFez4b37z8Taqh+wvbz7XCvv/1gWVvD3Wx479IKxdAHWdXzuhRdoREMXZ/buv5fnGcnn1t2U9Qgq799Fj5SOI4u+KRTmXvhXWtH1l9qbeXlhUPtih7g6zvMH1FTvm35C69v1XZtxh6vJBy/ju4vkVWfJsNuGn6P976aPbcOZ/MnL08w14rvXER9tT3R5Sbnqbo40a/sf70+XR0au0rV0ZVaG7ZzFDTRtbG2VvjjqqFU9cjOrNWvohGAAOgaQQwAA2SLfPPV8a2qfBo/wKUgNbXPPHVLud6HS5uYXVxf/s+y3kkxHb4o6tDyt2dlU1gdRDAdDG3fFehFY6jH11V7j5VjZ1y7gbUuuWZLmUWxymm/v/ZX3HCU+5vk8uNQZVbMmXb9VKvsreOSvDoz446f4Ztx1tjunYq1bnX9EUF2iVxnPj4an/9eT5dn97knHfsqW8PKdtRupbTV56/e614i6wYWvz10wr/V2ulNy7MlvKPxLJBVDF0eGRFnvM3PvPr5BZOo7VlMkONG1kLZ2/NO6rmp65ndGZtfBFNI4AB0DRNoww9gAZIFzHw0W92HFz3vxfvvbZHjO8lBDEtb//Cf/2175Anll54GzDF2PP+GaPCnD9Q13zik7e1LHvrZtuzZl3d7Simix175zUVWqFE9BvQtmwJEi0/t6QgvOP4yj/32M+/ou967dUJFa8AAQOvG1G2SIPt4J9/Hj63U7Xi719uBZGW/eNdXXuOffCV2Ys2Z+SXvEvXYer3W7aX2rbu31f6Xtp3UsJvX5hnPa9wy3Pdy9VT0XJ2/vfvb68uX6r7gl2si/vbuzNva+fn/N9rozcuyHG0/HZ0SuBVjz3S39/pXUrw8BnTB1Y2WFsHjazy2VsHbajyqeupnVn1LwIAJfQXfwsAeCV9eOL4GYnjZ7xnOX1g6/p16zdu3rp169at21L2Z+bbXd4SObLXv3rzvd22zPtrVGWRTd/h6qtbu1piZux1zRVRb+zPOHe3pll3p+y1ScQFC59Vmy62eZyL32+lSXAlFQotm5M3W8rcw2pnVrzzyPGKH6Gd2lXu3227tu2ySmuTiIgaPWhIO8Of26yln6NZszZ/9+bm7958XDGFt+s7dPjwEcOHDxuc2CKoNi4utpy03SkpO3bs3LV7z549u1I2bdp5vMBRhZtZNWLkuMubuHihNnrjggrWrSz3B0x9R4+McPF/Ro2/9vqkh//409UOXHXQyCqfvfbab0OVT11P7cyqfxEAKEEAA9DgGUNa9bqyVa8rJxT/q6Mgc++W9cmrl/+24JsFq47klbuld5z4/qUPtv3l2a6ufx0VY5uOLu9gRfRtO7bVS0bp3Z/jzMnTlzRaUi1qZaN6rv+zlpt5orDM99Rs+xa+88Yl/B2t8Gj6KU1iFBERfZf7/vG3uWM/PmCtkII0c9auP77a9cdXb/9dMTRt1WvoyOsmTJp0Xfewql9lrMfXfPH+h3O/W7R6V2aB66R8iXRxLZq5+vu10xsXYE/fd7Cg7HbgMR3aO9fmPPdK165Ruj9T7RVeqYNGVvnsrZOOquKp66mdWfUvAgDnMAURQGOj+kW26zfqb4+8+t8/9x1c9cbYluX2/NWsu5csS60sOSn+TQIqKbGoBgaVK6KmmfPzbbXU5BpzZJ/Jrl4adOTl5pUeqYRf+94fC//51x4RF9gnWbOe2b/6u7cfG9fzst5TvjrgajyiUoV7/ntnYpsBk57/bEnK8XLpS9EHxnYeevMD4zpf+piiYjS5LI5XS71ROe3smbNlk6MSGBRYSYepYRFhLq/EddDIKp+9dd5Rl8JDOxMAqo8ABqAR04f3mTbn86ltyg2T2NMOpVV8hl5MK8jLr+R2TCvIK7fWQzEFBHjMJAPFYLhAZLogrfwYlCFuxIz/bUxN3fTjzGfuvrZnfECl+yppjuxNH9w6+qmVeZf6l0798tCoSZ9szz03JqmoAa2G3fH0u/MWr9+XmZOdvm3ZnGeublbz61bt9UZl9Pryq9cutA6osmGU2m9klc/euu+oS+GZnQkA1UcAA9CAaFmzx0Y2LSOs8xNORRsq8O01YmC5EnBaYUFhZTddmnnvroOu05lt3659ZUe8dM0S4i99z+I6pjYNa1puhyyn0myVsyQ/3qbi1zBFdht197MzF6xPzUrfsujTl6bdOKB1sIvRJs2y68PX5p+8pHtY+473//5pmdmNurixn2zesWTWc1PGDe/ZOtxXFREtP6+g5jfEtd0bF/0Djozde866brc19aDruF8Hjazy2VvnHXUpPLQzAaD6CGAAGhAlKDZCl5N93qndv/y28yITAS25uUVl7+fUkLCQSn8bbTt+/uWQq3s86+aFv2aUeUEN6dW3nceMgIlf67Zl46B25ujxolr5YJ+oLlfe9sSbX63YdyJz9x///dfdg2LLT+nM37Qu5VKmYjqO/PZLSpk6Cfq2E5+42bn6gW3/7v2VjU5WQZ31Rgk1qkVC2VrkWtGqBb+6rIlZuGbhskqWCtZBI6t89tZ1R10KT+1MAKg2z7k7AICaM/QY2Ddg5nc5pbdntpS3HnnnxgUPdqysFrp13+yZv+aVXWzk17l7m0p/GzVz8tv/+nXSR1eHlBvucaR98c+P95bJGUpg/8uTLl4tz20MXQb1a/rvfSdLbk8184Y/kwtuGlGhQLt2Ys1/5607VXoXq4b3mTChd5giYj845/5pXxwuvUvXtZr47lsTmp+PqoambQbf9Pjgv4wIT+z9z/OZSysqLLqUQSt7+pH0stlA8Qvwcx5Sy1s+78ejtRDAat4bF+GT2LuL4b/LS9e/aWd/fuU/665/sXf5P2Hb+9E/5h6p5AvVQSOrfPbWeUddCg/tzNqiMckRaIQuaQgeALyE48x3N0c4bcarC+93/0cr0gqc90y1nt7+3dMjm5VfHKI2HfvF+d1VXWxlK6JGDH9xVdb5XVzNqQun9ypfelqNuf2nnNI31P5GzMb+/zlQcRtZzZ72ztCyn6ME37qgqOS1nF/ujCszBqD4Jz6+/LRTlxTumXVDTPmNaB9bW9IQR+ZHV5rK7oZr7P73DRW3OHac+un2cnvZGnq/vMdW4W0VWVZNb1X2OMWn57Mby+7hbE37/q52Tit5dC0fusBGzJX0Um30xsXYdv6zZ/kpmYq++dj3t549/zfy93xxRwdf51v7MnsH17iRtXH21rijauHU9YjOrI0vUvxlym/ErIZOWlhU8WMANGiMgAFoUJTg0c8+fflP05acLX2IrdmzVr9z16D3H4rp0K1ru4TIID+dLf/00f0pm7bsO2ku//RZMXW+/4kbLvLA23FiyVND2n0xfPSI7nE+uQfX/rxg+cFcR7lBtJ73PXBFYO1+s5oKHPHglB5zn1pfMhyl5W985aqe2+979J4bBrSPMhVm7t+waO7bb3+5pcwcLjXqhmcfSiq5m1TChl2VZPptxbnhLM2y5cVhSSl3TLpuQOeEiECjVnjm6P7Nv3/zyedLytQBV4w9rh/T6lIW0ehbtGlpUA6UVj7UijY+f3mv7XfddkWXGN+CtM2//W/2D9tOO5elr+7gQU1742J0bf96c58XNq44P/in2Y58OyVp1ayrR1/eMVI5tWvFjwvXple62LDuGlnFs7euO+pSeG5nVoNiNJYLk47sxZ98trHrX1oYrNIkKsSndv8aAA9V3wkQAGqbdd/H18XpqzFrSG066OVNZQddKowhKKbAQNNFPlnx7fnsxsJyn+IJI2CaphVu/mffyip4V/waxsvu+OFY2T/iyFowqXmlRQ9dfoYu4a6fnYcZKmM//N6wgCr+X1PDJi0839VVGAGreW9cjOP0gklxVS/fUHbQpqaNrJ2zt4YdVSunrgd0Zm2NgGln5/3FZSN0rR9ZY6n4eQAaIopwAGhw9K1v/9/ij25q61+lrODbYsyrv/zwaPfKFosVvyvkxn8+Pzio8p9OxdT6lk+/fqqHRz7I9un2+Jez7+58CSlHCeg06bOf3xsdVfabKmGj/v35k32bXuqFQw3u+/e5r1zletNcF29v/rcXpnWpMI2szN9XwwfPeHBE2ZVhjtOL5v50onrDYDXsjYse1PSa514Z1/zC1c+VJkl/+2uXC+xsVquNrObZW8cddSk8sDOrLXDQqCFB7NUMNG4EMAANkU+72+Zu3vr9Mzd0CXO5FW9ZiiG005gn523aNn967+CL3hgZO0z93zczBoW7GAlSTM2u/L/vl308PsFjZ3frml3//vKl70zqGV7pCKHiEz9s+pzVq2ZNaF1h8pXSdNDzv6384tErW1Soj+H0Rn1Y73s//uPnZ/pfvEfP8+v77PzZd3VxNT6gGKIGTJ3758/PjEwo97Lj2Lx77/8qq3oRrIa9cTFq/IS5m1bNemB4gsveUnShfaZ/8fWTPS8cCGq1kdU8e+u4oy6FB3ZmNSlRE17+51WRVRpKBtDAeOxdAgDUkG+r0c9+O3rG8Q0/f7dwefLGTVt3Hck8k52TU2A1+AcFBTeNbN6+a4/EpIEjr7+mV3QVChbqoob/Y/Hmkf/94L3Pf1izO/X4WQmKad6251Xj/nb7LVe1beLp91VK06QpnyTf9MgvX8774efFq1OOHDtxMtfhExwW26pLrwHDRv91wqjEqAt0h3+H8a8suv6xlN8XfL/w93Xbduzan3EqJzevwKrzaxLUNKplx249B1z1l5tuGJhQpRHIYoYWN85cmzT+07dnzvtlVcqRrHw1KKpZu6Qrb7h50m3XdgpWRQsZOjDk429Onl+o48g5dixfk/Dq9XtNe+Mi1JCet7+x+JbHN/z41Vfzf1q2Yc/h9BOFxqaR8R0GXDvhznsmDorTH9jt1kZW9+yt4466FJ7XmdVkbD/l+w3tP3z17S9+XbszNSvXovoGx1zW/YoeETwUBxoJRaP+KQBUxnHw9UHtp68qrYCtRt/z2+H3h9XNo3GgVnH2AoBH4mkLAAAAALgJAQwAAAAA3IQABgAAAABuQgADAAAAADchgAEAAACAmxDAAAAAAMBN2AcMACqnhA66/+XXrreX/ntA18v43YR34OwFAI/EPmAAAAAA4CZMQQQAAAAANyGAAQAAAICbEMAAAAAAwE0IYAAAAADgJgQwAAAAAHATAhgAAAAAuAkBDAAAAADchAAGAAAAAG5CAAMAAAAANyGAAQAAAICbEMAAAAAAwE0IYAAAAADgJgQwAAAAAHATAhgAAAAAuAkBDAAAAADchAAGAAAAAG5CAAMAAAAANyGAAQAAAICbEMAAAAAAwE0IYAAAAADgJgQwAAAAAHATAhgAAAAAuAkBDAAAAADchAAGAAAAAG5CAAMAAAAANyGAAQAAAICbEMAAAAAAwE0IYAAAAADgJgQwAAAAAHATAhgAAAAAuAkBDAAAAADchAAGAAAAAG5CAAMAAAAANyGAAQAAAICbEMAAAAAAwE0IYAAAAADgJgQwAAAAAHATAhgAAAAAuAkBDAAAAADchAAGAAAAAG5CAAMAAAAANyGAAQAAAICbEMAAAAAAwE0IYAAAAADgJgQwAAAAAHATAhgAAAAAuAkBDAAAAADchAAGAAAAAG5CAAMAAAAANyGAAQAAAICbEMAAAAAAwE0IYAAAAADgJgQwAAAAAHATAhgAAAAAuIm+vhuA2peamjpz5ky73V7fDQHgPv7+/g8//LCfn199NwSoPq5fQCPUCK9fBLAG6N13333llVfquxUA3K1t27bjxo2r71YA1cf1C2icGtv1iwDWAFmtVhEZNWrUgAED6rstANxh3rx5mzdvtlgs9d0QoEa4fgGNTeO8fhHAGqzLL7/8oYcequ9WAHCHlJSUzZs313crgNrB9QtoPBrn9YsiHAAAAADgJgQwAAAAAHATAhgAAAAAuAkBDAAAAADchAAGAAAAAG5CAAMAAAAANyGAAQAAAICbEMAAAAAAwE0IYAAAAADgJgQwAAAAAHATAhgAAAAAuAkBDAAAAADchAAGAAAAAG5CAAMAAAAANyGAAQAAAICbEMAAAAAAwE0IYAAAAADgJgQwAAAAAHATfX03APXG6tBUUXRkcABArdI0LTs7uxoHFhUViUhhYeGZM2cu8LZci10vOl9jNZsHwHNYLJb6bkI9IIA1Ug5NRnyZ1dRHnX9DWH23BQDQoEyZMuWDDz6o9uFPPfXUU089VenLOmOLdw4pDsfB++Kr/ScAoB4RwBopRZEcs5aWY83Mt0f66+q7OQCAhqNly5ahoaEOh6OqB+bm5tpsNr1eHxgYWOmbdAZFFFF1Ic1aabmna9RQAPUtPz+/EQ6CEcAaKUWka4ThzzTzlhPWK1sQwAAAtebRRx999NFHq3FgYmLipk2brrnmmu+///4Cb2s187ho2qdLt49u7VvdNgLwCLfeeuvcuXPruxXuxgKgxqtrhEFEtmRa67shAABUQfFTw81cvwB4JwJY49Ut0igiWzIb3bAvAMCrGXUiIgfP2Oq7IQBQHQSwxqtbpEER2Z5ltVd5lj4AAPXG36CKyLE8e303BACqgwDWeAWb1GZB+kKbtuc0szgAAF4jxFcVkdNFPD4E4JUIYI1a90iDiGw9QQADAHiNmECdiBRYtfpuCABUBwGsUSupw0EAAwB4j9ZN9SJisRPAAHglAlij1i2COhwAAC/TLcIgIpqI1UEGA+B9CGCNWocwg49eOXDGlmNmJj0AwDu0Dy3ZxTQjl4sXAO9DAGvU9Kq0DzVoItuzmIUIAPAO0QHFO4HJzpNcvAB4HwJYY9ctkmVgAABvYtIpiiIiso2nhwC8EAGssSueSb81k2sYAMBr6FURkb2nuHgB8D4EsMaua6RRRDafoA4HAMBr+OoUEUlnL2YAXogA1tjFB+pCfdXThY60HC5jAADvEOSjisipQopwAPA+BDBI9+JBMIrRAwC8RJSfTkTyrQQwAN6HAAa2YwYAeJkWTXUiYrULuzED8DoEMJSMgLEdMwDAWyQ0KdkKLKuA+fMAvAwBDNIlwqBTZMdJa5GNB4kAAC9wWUjpXswEMABehgAG8TcorZvqbQ7ZRT1fAIA3iA8sCWD7TtvqtyUAUFUEMIicr8NBAAMAeIFw/5IbmL1nCGAAvAwBDCIiXSMNIrKFAAYA8AZBJlVRFBE5kE0AA+BlCGAQEekeYRSRLWzHDADwBoqIURERyWATSwDehgAGEZHWIfomJjUj156Zz5UMAOAFAkyKiJwq5LIFwMsQwCAiooh0DjeIyDZ2AwMAeIMwX52I5Fk1CvgC8C4EMJToFsl2zAAArxHlr4qIQ5NThY76bgsAVAEBDCW6RRQXQmQZGADAC8QG6or/ga3AAHgXAhhK9Ig0KCLbT1jtPEkEAHi8hCD2YgbglQhgKBHsozYL0hfYtD2nmYUIAPB0zYJKRsAOn6USPQBvQgDDed1ZBgYA8BKRfiUB7EA2ly0A3oQAhvOKl4FtOs4yMACApwv3K7mHST3LFEQA3oQAhvN6RBlEZEsmjxIBAJ4u/NwI2NE8AhgAb0IAw3ntQgx+BuXwWduZIgpxAAA8ml4VH33xXsxcswB4EwIYztOp0jncoDEIBgDwBk2MiohYHZLNc0MA3kNf3w1ApV588cXXXnutGgfm5eWJSHJycjWO7R5pTD5q2ZxpGdrcVI3DAQBwm1Bf3YkCh4hk5NmDfeqmjhUAACAASURBVHimDMA7EMA817Fjx86cOVPtw9PS0qpxVHEhxE1sxwwA8HgR/uquUyIi6bn2jmGG+m4OAFwSApjnevvtt59//vlqHDh06NCtW7eGh4dX49jukUYR2ZpptTtEx8NEAIAHi2+iFzGLSDp7MQPwHgQwj9a0adNqHKXT6ar9F0N91fgmurQc+94z1vahPE0EAHiu5k1KrndpOQQwAF6DMQ446xFpFOpwAAA8XqR/SQA7lG2r35YAwKUjgMFZ8SxEloEBADxcxLm9mJmCCMCLEMDgrLgOx+bjjIABADxaaQDLzGcEDIDXIIDBWftQg5+e7ZgBAJ4u/NwUxEKb5Ji5ZgHwDgSwxuveX8888cfZiv9dp0ontmMGAHg8P71iPFd2KiOPWYgAvAMBrJFyaLIyzfzN7oJThS4eGfaIYhkYAMALBJtKElgGy8AAeAkCWCOlKtIt0qiJrD/mImUVLwPbeJwABgDwaGHnloERwAB4CwJY49U7xigiyUddpKzEKKMisvWE1caMegCAByutRE8AA+At2Ii58UqKMYrIOlcjYE191IQg/aGztl2nrJ3D2Y4ZABoAR86RzRu37Us7qw9t1j6pT8dwY323qDY0K92LmQAGwEsQwBqvbhEGk07Zc8qaXeQI9nEeC+0RZTh01rbpuIUABgBewXZ657IFP6/ckXqq0Bjeccj4CSPbB5eEE0fWn/+ZNu2lr7edtmsiIqLom3YY89DLrzx6TUufemxyLYjyL7l+HcmhEj0A78AUxMbLqFO6RRo0kQ2u1noV1+HYyG5gAOD5tNwtH/6tZ6vOV0169IXX3n7v3X8/N2V053ZX/mtttiainfjt4SuueezLrefSl4hotjM7vn1mTL9rX1mfo13okz1euF9JyDyay6R5AN6BEbBGrVe0MfmoZd1Ry/AE50egiZFGqSSbAQA8iWXn29cPe2jp6XIBRLNnLn1qzKSYdR8E/v32t7fkaYquabvhY0YmtQi0Ht+5/Kef1qYV2jOXPjX+ofbJs64NV+qr8TVVuhdzrsWRb9X8DV77TQA0GgSwRq13jPGdjZLsahlY6xB9sEnNzLcfy7NHB+gqvgEA4Ans+9+/98llpx2i6MMTJ0y5c1RitHZ0x6ofPv540YETCx64aq//vqN2NXTg37/++v+GRp677L+294v7Rt8xe0/R4TlPvjnlyn8keuuCsAi/81eojFx7mxBubAB4OqYgNmrdI40GVdl10ppjdp65oYh0jTQIu4EBgEezrv/w3VX5mqiR176/atXnz04ed+3o8ZNnvLVw3YJpnUxa9u6dGXYldPTrXz5zPn2JiF+bm97/4tGuRkWz7vr8s9Xe+0Mf7n/+TiadOhwAvAEBrFHz1SudIwx2TTZluljrVTwLkWVgAOC57PuWLTtsFzH0eOBfky4rM4ylhFz+9P+NaaqKiBp94303xlS44Pt0u/uuAUZF7MdXrtjrtcklyKTq1ZJph+m51OEA4AUIYI1d7+hKdwMrrsOxiWVgAOCx7KkHU+0iutgBA1s7zRZXgvsO7KIXEUPnnl1NLo5VI7v3iFdF7EdTM7w2gCkiwT4lAYytwAB4BQJYY1eyG9hRc8WXukYadKrsPGUtsHp3jSwAaLA0i9msiSi+vj4Vqk8ovn6+iogoJp+KLxa/wddXEdHMRWZv/pkvrcPBFEQAXoEA1tglRhl1qqScdJGy/PRK+1CD3SHbTjALEQA8khoWEaaK2DP2H8x3fs1+aN9Bu4jY04+ku0wmlrQjRx0iakh4qDffDkQHlCxuI4AB8Are/IuL2uBvUDqHGWwO2ehyN7DiZWDU4QAAz2To1DsxQBEtd9GHcw+Wix/amcUffbnfJiK2lAU/7ncRTc4u+27JGYcovl0T23tz7cDSvZjTzhLAAHgBAhgkKcYkIutdFaNPjDIIy8AAwHMFXnHzmEhVtNxlj4+5a9baowUOEbGe2bXg6b9M+uSIXVEURczrX33g/V1F5Y5znPhlxqNfHHOIEjh49OVNvXn3rNJK9GctjlyLN0+mBNA4EMAuwpZ3MuPQnpStmzdu2Lh5++79hzOy8hpakaXeMUYRWeuqDkev6OJCiBY7VzQA8ERK8DX/9/TwEFW0/JRP7+obFxQUER0SGNZxzD+WZdrVmL+898ndLfXayd8eHDz0njcXrNt3NOtEasrvs58a02/sB7stmqJvPenR8dHenL8k3O/8zUwGhRABeDxvnnNQZwoz1v4479ufFq9I3pxy8ES+rXz2UBRjk9hW7Tr3GjpyzHXXXZUU7+fV1y0R6RVt1Kmy7YS10Kb56st9m0h/XVygLj3Xvu+0tV2oob5aCAColL715DlfHh497rXkbIdotrys48X/XQns9sBn700ersSvXnz9rINZa2c+OGbmg+UOVfy7PfrJC4P96qHVtajsXszpuXauVgA8HCNg5ThOJX8wuV/Llv3GP/zanEXJezOd05eIaJrlbPqu5F8+/9e0sX1bJSTd9ubKTO+edO5vUDqEGqwObbOrtV7Fg2Ab2A0MADyVGjHi5eVbf31jyqge8UEmVVFNoR2umjpzydLXRoQpSug17yz+7Na2vk5PCxWf5iNf+Pm3fw4IrJ9G154I/7IjYN59RQbQGDACdp7lwBd3jrx97r7SYryKzi8kJr5ZfHRooJ+vr0nnsBQVFuSezsxIS83IyrNqIpo1a8Pshy7//Y+3f/5ickffem1+jfSJMW7PsiYftfSLdd4rJjHKOH9v4YZjlls6evkzUgBowEzNhj/w7vAH3hVx2B2qrtzzVWPLm2ZvGXDbp+/MXrxlX9pZXUh8+75X3njrTcNb+ddXc2tTePkRsHpsCQBcCgLYOYXrnh9bnL4UU0yf8XffdfOY4X07xwfqXL3ZUZi5e/3yRd/M/nD2oj051tQfpt3wWOt1bw0L8tbZiEkxpo+25q+rfBnYOlclOgAAnscpfZXwaTb03leG3uv21rhBqK+qKuLQRAhgALwBUxCLOVI/ffL1bWZN0cWOfmPVjlWzn5l0RbdK0peIqL6RHQaNm/7Wwq1b50/t7q9oln0fPTVzr/f+6veKNuoU2XLCWlRhzmWrpvoQXzUz3868DgCAB9IpEmxiL2YAXoMAJiIijrTv560s1EQXf8fHc6YlBl/yQJYpYfTr814Y4Kto5k3zfzzktT/7gUalXajBYte2ZDqv9VLO7Qbmsk49AAD1LsK/5IlpWg5VEAF4OgKYiIjYdm7ZYdVEjbj6xqFNqnisrtXYG5MMIvZ9O714COxcMfrkY+aKL/WMKilG7+42AQDqTtGZY0czMjIyMo6eLrr4uz1a6V7MuRYtx+yo38YAwIWxBkxERDSz2aKJqAGBAVVfxaU2CW6iimgWs1dv/9g7xvjJtvxkV8vAekYbRGQ9AQwAGhDzr1PbXv/fXE3E58avs7/6i3MNpur75JNP3nvvvWocuHv3bhHJzc2t6oGR/uXqcHQw8XwZgOcigImIiC6ueZxOdtnTN2465ujTrGq/24Vb16dYRdTI6Ehv/sHvFW1UFdmSaTXbNZOuXA7tHG701Sv7T9uyixzBPt78JQEAdW/ZsmUbN26s9uHVCGDl92K2dwhjKzAAnosAJiIi+i6jRjZ/ZdeBwuUvP/H1tXPGx1dWfaMCLXfdqzNmH7aLGtF/SBdv/sEPMqntQg07T1q3ZFqLpyOW0qvSJcKQfNSyMdMyrLlPfbUQAOAVPv7444ceeqgaB95yyy27d++OiYmp6oFl92JOow4HAM9GACtm7D156sBZD/2Rk/rlxL4nNr704kPjkqIvMhvDnr170awXnnjhy5QcTTF2uuu+Ed6+n0pStHHnSWvyUYtTABORntHG5KOWDcesBDAAaBiMg55btnaqXRNRQy9z/tWvEZPJlJiYWI0D/fyqueFkJHsxA/AeBLASujZTPnh1ydApC49ZMpa+OrHPGw+2ThowoHf39i2bx0WHBfn7+Bj1mrWoqDDv1PH0tEN7t65fvXJtyvEChyYianD/pz+e0av2ps/Xkz4xxs+25689ap4mAU4vFdfhWH/MLBJYH00DANQypWmrnkmt6rsVtYO9mAF4EQJYKUPbu79a6jN1wgOfbst2aNbT+1Yt2LdqwUUPUwM7THh5zrv39PD24S8R6R1j1CmyOdNaZNN89OWWgfWMMupU2ZZlLbBqfgZv3W8aANAglR0BI4AB8HAUVCjLt/3EWRv2rJn99C2DWgXpL5wyFH2TFv0nPPnJit2b597bI6hBRJImJrVtJbuB+RmUDqEGu0M2Z1ILEQDgWcJ9deq5CzFbgQHwcIyAOdNHJN363Jxbn7NmH9q2YdP2PQeOZGSeOpNXaLGJwdc/ICAgKLxZ67Zt23Xq2ikh2JuLbrjWJ8a486R17VFzn1jnBQG9Y4zbs6zJxyz947x+siUANHi2vJOZWafO5BSYrQ7V5B8YGBgUFhke0DCv+zpVmvqopwodIpJv1bLNjmAq0QPwVA3zh7g2GIJbJA5vkTi8vtvhZhfYDSwpxjhra/46Vy8BADxBYcbaH+d9+9PiFcmbUw6eyLeV351SUYxNYlu169xr6Mgx1113VVK8X4OYvVEi0l9XHMBEJCPXTgAD4LH4eUI5vWNMxcvACm3Ou0onRZt0imxx9RIAoH45TiV/MLlfy5b9xj/82pxFyXszndOXiGia5Wz6ruRfPv/XtLF9WyUk3fbmysyGs1wqosxWYGk5Ded7AWh4GAFDOYFGpX2YISXLujnT0i/W5PRS21DDzpPWbSecNwoDANQjy4Ev7hx5+9x95nOZS9H5hcTEN4uPDg308/U16RyWosKC3NOZGWmpGVl5Vk1Es2ZtmP3Q5b//8fbPX0zu6Fuvza8dkf4UQgTgHQhgNVZ05tjpAocmoviGxoQ0gE2y+sQYU7Ksa486BzC54EZhAID6Ubju+bHF6UsxxfQZf/ddN48Z3rdzfKDO1ZsdhZm71y9f9M3sD2cv2pNjTf1h2g2PtV731jDvryVVdgQsPZc6HAA8F1MQa8r869S2cXFxcXFxre75yVzfrakNvWNMIpKc4WKtV3HuSj7WIL4nADQEjtRPn3x9m1lTdLGj31i1Y9XsZyZd0a2S9CUiqm9kh0Hjpr+1cOvW+VO7+yuaZd9HT83c2wAGjCLKjIAxBRGAJyOAwVmvaKNOka0nrAUVl4HFGFVFNh+3mu0sAwMAD+BI+37eykJNdPF3fDxnWmLwJQ9kmRJGvz7vhQG+imbeNP/HQ94fWFgDBsBbEMDgLNCodAw3WB3apuPOg2DBJrV1U73Zrm3Pct4oDABQD2w7t+ywaqJGXH3j0CZVPFbXauyNSQYR+76dDWAILMKv3BowB88JAXgq1oDVlHHQc8vWTrVrImroZQ1lYVSfGNO2E9Y1GZYBFbb86h1j3HvalnzU0jOqoXxbAPBemtls0UTUgMCAqq/iUpsEN1FFNIvZ4v1xJcK/5JmyqorZrmUV2MuW5QAAz8EIWE0pTVv1TOrdu3fv3r1ah3j9GuYSfWONIrI2w8Var6Rok4iwGxgAeARdXPM4nYgjfeOmY46qHly4dX2KVUSNjI70/tuBcF+drvgq7BChECIAD+b9v7ioA72ijQZV2Z5lzTE7X897xxgVkU3HLVamdwBAvdN3GTWyuU60wuUvP/F1WlUyh5a77tUZsw/bRQ3tP6SLoc5a6C46VZr6qFKSvySVZWAAPBUBDC746pWuEQa7JusrLAML9VVbh+gLbNrWEywDA4B6Z+w9eerAJorYU7+c2PfKx+asu4RCtfbs3Qtfu6XfiOfW5GiKseNd943wd0NL614EW4EB8AasAbsIW97JzKxTZ3IKzFaHavIPDAwMCosMD2gI/fbeprxAo3prJz+Xr/aNNW44blmTYRnW3Hlvs74xpn2nbWsyWAYGAPVP12bKB68uGTpl4TFLxtJXJ/Z548HWSQMG9O7evmXzuOiwIH8fH6NesxYVFeadOp6edmjv1vWrV65NOV7g0EREDe7/9Mczejkv9/VSkf7qzpMl/5yWw1ZgADxUQwgSta4wY+2P8779afGK5M0pB0/kOxVjVxRjk9hW7Tr3GjpyzHXXXZUU7+eNK78cmry9Mc+uaWMu82licjEQ2jfW9PbGvDWudgPrG2v8PCV/TYZ5amJA3bcUAHBhhrZ3f7XUZ+qEBz7dlu3QrKf3rVqwb9WCix6mBnaY8PKcd+/p0TCGv6RCIcR6bAkAXABTEMtxnEr+YHK/li37jX/4tTmLkvdmOqcvEdE0y9n0Xcm/fP6vaWP7tkpIuu3NlZne9yuvKtI90mB3yGpXEUtEekQZ/PTKnlPWk4XOy8D6xBh1imw6bi2s2DsAgHrg237irA171sx++pZBrYL0F34uqOibtOg/4clPVuzePPfeHkHe+BCxEmW3AmMNGACPxQjYeZYDX9w58va5+8znUoWi8wuJiW8WHx0a6Ofra9I5LEWFBbmnMzPSUjOy8qyaiGbN2jD7oct//+Ptn7+Y3NG3XptfZYPjTclHLctTzVe1dJ5kKCIGVekRZVyZbk4+armmVbk3NDGp7cMMKVnWTcct/SvUqQcA1At9RNKtz8259Tlr9qFtGzZt33PgSEbmqTN5hRabGHz9AwICgsKbtW7btl2nrp0Sgr2/6IYLpWvAFEUy8+0Wu2bUNaB8CaChIICdU7ju+bHF6UsxxfQZf/ddN48Z3rdzfKDLTUQchZm71y9f9M3sD2cv2pNjTf1h2g2PtV731jCvepA4uJnpleTcP1KLNHHd7r6xxpXp5jUZZqcAVvxSSpZ17VECGAB4GkNwi8ThLRKH13c73K90BMyoKma7djTPnhDEfQ4Aj8MUxGKO1E+ffH2bWVN0saPfWLVj1exnJl3RrZL0JSKqb2SHQeOmv7Vw69b5U7v7K5pl30dPzdzrXdMd2oUaogN0Jwoce065rmfYN9YkIq6XgcUUv3TxWlsAALhH6RowTTQRSWMWIgCPRAATERFH2vfzVhZqoou/4+M50xKDL3kgy5Qw+vV5LwzwVTTzpvk/HvK2n/qBcSYRWZ7qOkd1Cjc0MamHz9oyKixl7hVt1KuyLcuaZ2EZGADAI0T6l9zVWO0iImnU4QDgkQhgIiJi27llh1UTNeLqG4c2qeKxulZjb0wyiNj37fSyITCRwc1MIrI8zXUA0ymSFG0UkeSjzoNgfgalS4TR7pD1x1zX8AAAwM3CfHXFa76KHw0yAgbAMxHAREREM5stmogSEBhQ9VVcapPgJqqIZjF73WjQgDiTXpWNxy25lTS9X6xRRFa7mmrYN9YoImuPMgsRAOARdKqE+J6/sUnPZSswAJ6IACYiIrq45nE6EUf6xk3HnIuuX1Th1vUpVhE1MjrS27ozwKh0jzTaHJWu5uoXaxKRlenmivmseBlYZVXsAQBwv/AyW4ExAgbAM3lbYqgj+i6jRjbXiVa4/OUnvk6ryg+2lrvu1RmzD9tFDe0/pIsXlvUtmYVYyTKwy0L0Uf66rALH/tPOzxF7RBlMOmX3KWt2UZUzKwAAdaF0GZgQwAB4KsqzFjP2njx14KyH/shJ/XJi3xMbX3rxoXFJ0RcpsG7P3r1o1gtPvPBlSo6mGDvddd8I/1pt0759++bPn69pVZ7XmJmZKSJ2+yVdeAbHm15Lzv0j1ayJVFaMfv7ewpXp5stCyp0tJp3SM9q4Kt28OsNydYU69QAAuF9pIUS9KtlmR65FCzR60w4xABoDAlgJXZspH7y6ZOiUhccsGUtfndjnjQdbJw0Y0Lt7+5bN46LDgvx9fIx6zVpUVJh36nh62qG9W9evXrk25XiBQxMRNbj/0x/P6FXLO2JNnz79p59+qvbhGRkZl/K29mGGSH/d8Xz73tO2tiEuzocBcab5ewtXZZgndXEOmP1jjavSzavSzQQwAIAnKB0BM+kVm0VLy7F1CPPC2SkAGjQCWClD27u/WuozdcIDn27LdmjW0/tWLdi3asFFD1MDO0x4ec679/So3eEvEXn66ac7duxYjQM/++yzzMzM6OjoS3mzIjIw3vTN7oLlqUVtQwIqvmFAvEkRSc6wWOyaUac4vfRKcu6KdOpwAAA8QuS5ETBFU0S09Fw7AQyApyGAleXbfuKsDVfd/b9335713x9XHzxru8DsP0XfJKH3NRPuuP++m/vFGOuiNb169erVq1c1Dly8eHFmZqbBcKmXnMHxpm92F/yRar67m4sAFuarXhai33vatuWEtbgqfan2oYYQXzUj137krK15EOcSAKCeRfqXBDCLQxO2AgPgkbhpdqaPSLr1uTm3PmfNPrRtw6btew4cycg8dSav0GITg69/QEBAUHiz1m3btuvUtVNCcMN4qjYw/nwxepdz5QfEmfaetq1KNzsFMFWRvjGmhQcKV6ZbCGAAgHpXPAVRVcRi10QkLYdK9AA8DjfNlTEEt0gc3iJxeH23ww0CjUr3SOP6Y5bVGeYrW7hYzdU/zvTJtvxV6eaHegU6vTQg3rjwQOGqdPPNHf3c0lgAACoV5a8TEUWU4t2Yj5xlBAyAx6EMPUQuVow+KcZo1CnbTljPmp0rzg+IM4nImqPFjxoBAKhPTX1Vo06xnysgnEolegCehwB2Eba8kxmH9qRs3bxxw8bN23fvP5yRldcA5zMMaWYSkd+PFLmMUX56pXukwa5J8lHnbZdjAnQtgvQ5Zsf2LGvdNxMAgAtRRML91NJ/Ts+18XwQgKdhCqILhRlrf5z37U+LVyRvTjl4It+pFIeiGJvEtmrXudfQkWOuu+6qpHi/BrDDSLtQQ6S/LjPfvueUtV2oi6Vt/eNMyUctq9LNV1SYo9g/znjorG1VmrlbRMNYEwcA8GKR/rqMXLuI+BnVfIvjWJ49LlBX340CgPMYASvHcSr5g8n9WrbsN/7h1+YsSt6b6Zy+RETTLGfTdyX/8vm/po3t2yoh6bY3V2Z6/QwHRWRw/IVmIRZPNVyR7jwCVvrSSorRAwA8QNS5rcB8dSIiqdThAOBhGAE7z3LgiztH3j53n/lc5lJ0fiEx8c3io0MD/Xx9TTqHpaiwIPd0ZkZaakZWnlUT0axZG2Y/dPnvf7z98xeTO/rWa/NranAz01e7C5anmSd3d1GMvnO4IcRXPXLWVrHifN9Yk16VzZnWAqvmZ2gAw4EAAC9WWoleUUREUs/a+8XWZ3sAwAkB7JzCdc+PLU5fiimmz/i777p5zPC+neNdT1twFGbuXr980TezP5y9aE+ONfWHaTc81nrdW8OCvDh+DIgz6VXZcNySY3Y0MTkPjaqK9I81/bi/cHmaeWL5ABZgVLpEGDcdt6w9arm8ucmNTQYAwFnpXsxWu4hIKluBAfAwTEEs5kj99MnXt5k1RRc7+o1VO1bNfmbSFd0qSV8iovpGdhg0bvpbC7dunT+1u7+iWfZ99NTMvV79Gx9gVBKjjHaHrHQ1z1BEBsWbRGRFmouphgPjKn0JAAB3Kt4KTBHJtTpEJPUsUxABeBYCmIiIONK+n7eyUBNd/B0fz5mWGHzJA1mmhNGvz3thgK+imTfN//GQVyew0mVgleSogfEmRWRthqViyflB54oo1nULAQC4sOIpiDpVsTtERI5QiR6AhyGAiYiIbeeWHVZN1IirbxzapIrH6lqNvTHJIGLft9O7h8BEhjb3EZHfjxQ5XBXtDfdT24cZCmza+mPOQ2Rdwg0hvmparp0dVwAA9au4CIeqlG4FxggYAM9CABMREc1stmgiSkBgQNVXcalNgpuoIprFbPHyzUbahOjjAnWnCh07Trre1GtwJbMQi1eISeVFFAEAcI/iETCrXRERX4OSZ9HOFDnqu1EAcB4BTEREdHHN43QijvSNm45V+Ve6cOv6FKuIGhkd6f3dObhkMmGlsxClkjmKF1ghBgCA2/jolSCTqokmIkFGVZiFCMDDeH9iqBX6LqNGNteJVrj85Se+TqvK77SWu+7VGbMP20UN7T+ki/dvRDykmY+I/JHqejVXzyhjoFHZe9p2LM+5k4pXiK3JMFdcIQYAgDtFlm4FZhChDgcAD0MAK2bsPXnqwCaK2FO/nNj3ysfmrDt28ZEce/buha/d0m/Ec2tyNMXY8a77Rvi7oaV1rF+s0VevbM+ynix0MRSoU6VvbPGOzM79U7pCbMNx10UUAQBwj9KtwEQUEWF9MgCPwj5gJXRtpnzw6pKhUxYes2QsfXVinzcebJ00YEDv7u1bNo+LDgvy9/Ex6jVrUVFh3qnj6WmH9m5dv3rl2pTjBQ5NRNTg/k9/PKNXQ9gCy0evJMUYl6ea/0w139DWxdbSg+JNvx0qWpFmHtfOr+JLO09a/0wz94ttCF0BAPBSpQGsyKaJyBHqcADwJASwUoa2d3+11GfqhAc+3Zbt0Kyn961asG/VgosepgZ2mPDynHfv6dEAhr+KDWlmWp5q/iO1qLIAJiIr0sw2h+hV55c+2Jz3Z6r5iT7uaSkAAC6UTkHMtWgiknqWETAAHoQpiGX5tp84a8OeNbOfvmVQqyD9heshKvomLfpPePKTFbs3z723R1DViyd6rOJi9H+mmW2u6pHEBupaN9XnWrQNFYrRJ0YZA43KHlcrxAAAcJsof52I6BXJsziESvQAPAwjYM70EUm3Pjfn1ues2Ye2bdi0fc+BIxmZp87kFVpsYvD1DwgICApv1rpt23adunZKCPb+ohsuxAfqWgXrD2TbNmVakqKNFd9weXOf/Wfyfk8t6hNb7lW9Kn1iTYsPFf2ZZh7f3nmCIgAA7hHhp4qIUafYbJpBp2QVOApsmt9FHqwCgJsQwCpjCG6ROLxF4vD6bke9uLy56UC2bdmRIpcBbGhz04db8pYdMc/o6/zSkHjT4kNFv6cSwAAA9aZ4BExVFBEtxKRmFtjTc+xtQrjnAeARmIIIF4pnIVa2G1hilDHYRz2YbTtcobDv0OYmRWRVGsXoAQD1pmQvZocmIk18kNbpbQAAIABJREFUigshMgsRgKcggMGFntHGYB91/xkXEUtEdIoMjHO9X3Okv65dqKHApq2rsEIMAAD3CPVV9aoUPwo0qYqwFzMAT0IAgws6paTaYWWDYEObm0Tk91QXr5a8VMmBAADUNVWRcD9d8UwMh1ZcCJERMACeggAG14Y1N4nIskpy1OBmJp0qyUfNxRV+yxrazCQiS48U1XULAQCoTNS5SvSFdk3YixmAJyGAwbXBzXz0qqw7Zs4xu6hGH2xSu0cYbQ5Zle6c0LpGGpv6qGk59kPZPG4EANSPCL+SvZizzZqIuJxRDwD1ggAG1wKNSmKU0eaQFemuV3NVNgvx/PRFVxMUAQBwg+I6HDpVyS506BTJyLUX1+QAgHpHSVYREbEXnDlVcTJdFSk+wRFBptppkEcYluCTfNTy+5Gia1r5VHx1aHOfV5Nzl6cWObQgVXF6yfTDvsLfj5hv7+LvprYCAFBG8RREf73kWCTCTz2W70jPsbcI5rYHQP3jl0hExHHovWs6PLrGWrNP8bnx6+yv/tKAEtiIBJ8XV+f8fsRsd4iuwlhp2xB9bKAuI9e+9YS1e2S5LakHxZt0qqw7Zs61aIFGNr4EALhbVIBORIw6VcQe6qc7lu84fJYABsAjMAVRRERMIeHBBoKCk2ZNdC2C9Nlmx+YTrmchDk/wEZElh53rbQSdWyG2OoNZiACAehAdULwGTBORAIMiLAMD4DF4FCQiosbf/kPG6O2LPn/zHy/NXn/SpomI4t+yz4A2QVVIZcZuUQ0uzw5LMM3aalt62Nwzyljx1REJPrO35y85XPRo70Cnly5vbtpw3LLsiPnKFi6mLwIAUKei/XUiYnFoIqLXEcAAeBAC2DmGsM7XTp91xdXdRvd/4LfTDtHFj3vzp5d6NfIOGpbgM2tr/pLDRY/3cY5YIpJ0br/mg9m2luXndQxL8HklOXfJ4SK7FqRjbBEA4F6R/qoikmfRRMRmFxE5fJZK9AA8QoMbsqkhU7vJ/7i7bSNPXWUkRhlDfNWD2bYDrmrK61QZUrzr12HnqYatm+oTgvTZRY4tma6nLwIAUHeMOiXUVy0ufJhvcQgjYAA8BgHMmaHbyBGxuvpuhafQKXJ5cx8RWXzI9cbKxcvAFldYBibntnJeUiGbAQDczpGfsXnZgq/mfDbnqwWL17l8qNbgRJUsA5OsAodelaN5drOdSvQA6h8BrAJ9px6dKchx3oiE4hzlOoANjjeZdMrmTEtWgfN+zcMSfERkaSUHAgBqle3ExnkvTbl+yLh3dpebamfPXPXuPYMTwuMTh40ZP3HSxPFjruh9WWRU1xuf/W5XboPOI8V1OFRVThTaYwP1Dk3ScpiFCKD+EcAqUJp0u2LM0CGDk1o2IYaJyIA4k59e2ZJpPZ7v4rrlZ1D6xhodmvye6hy0ekYbm/qoB7JtBxvFk1YAqD/m/fOm9Gnfe8KT73+/et+ZMr+5RSkfjE26fOrMP9MKtTJhS7Oc2vbNc3/pPeDebw833F/o4jocgQbFoUm0vyrMQgTgGVjtVJG+69Qvl06t71Z4DB+90j/etPhQ0e9HzBM6+FV8w4gEnz9SzUsOmce1K/eqTpEhzUzz9xYuPWxu2Y0zDQDqhuPYt3cOv+W/R4pL+CoG/blp9Fr24kfGPrAg1aKJKH7xSVdc2b9jfLAuLz1lxS+LktMKtNxtH068ISRq+Yv9XdRZ8n7FezH76ZWzZi3IpIrIIepwAPAAjIDh4kZUvtBLRIa38FEVWZFuzrc6z2UpmYV4hFmIAFBHtLMLn5z2xRGbpqhhfad+svrQnzPaFycwW8o7T8zaZ9FEDRv090V79q+d/9G///H0/z33ysxv1+zf++szQyNU0Qq2vP7Q2ykNc1yoeAqiTlVExEdPJXoAnoIAhosb1tykU2VNhqW4nq+TMF+1a4TRYtdWpjvX2yheIbbpuOV0ofMKMQBALdDO/PjxN8ccovh0n/HT4rcm9Yk5t/mibftXX24za6KLveWjb5+/Iq7cbo7G2BHPzP/ffW30ila06aOPVjfIerXFRTjK1t0ggAHwBAQwXFywj9ozymixa8vTXI9lXdnSR0QWHXR+1c+g9I4x2jX5PZVaiABQB2zbkjcVaqIEXDV9epJ/mRe07M0b99tE9K1uvm9UmIs1zUrQ/7N3n4FRVUsAgOeW7bvpnSSkN9IDCQoqTaQrXRARFQWRKk8e5VmwKypWsIBIEQFFOqg0aRJaQgohvYfUTTbZvnvL+7GhJAQIkM58/7y7Gw7Fe3fOzJnpt2jeoyIC2OJ/jlzuioGJJQNmYHgAsPQ/zFdhCSJCqP1hAIaapb7dfF7TcdRQHzEBcDjfcHOHX8sHb9VEESGE0H3hVNU1HADlHhLUsHMUV6Os4QCADgy91XRL0qVXbHcKgLtSdKUrlim4yEiSgDojBwDVBk5IEeVaVsd06c6PCKHOAAMw1CyPe4sJgKOFTYRYAOCuoEIcBFozf6q4cRnLIC8RAXCiyKjHZx5CCLU4wsrGmgDgaqqqG8ZQpI2dDQkAPGO+6YDuNTzHAwBvMt36LZ2YgCTsxKTlqVVcx3paUTxgJ3qEUPvDAAw1i4eC6uEo0Jj4E0VNJ8GG1Fch6htdd5ZREU4CPXPLDyKEELp3gtCekRICuMqDu0/pbnyBsA2L8KIBmJTzSbe4/XIlZ84UsgBUNw83qum3dHbXRoGVaVlPKxrwGBhCqAPAAAw115BbHPSyGOZr6ZRoNHON91EHe4sB4O88rEJECKGWRjgOn/yELQls/o+zF/1ZcUMWjI5+elIPIcFe2frlr0VNVBjyNYc++uqUkQfSqW+/Hl10VoglALMVkRwPDhICAPJxNCVCqL1hAIaaa4SvBAAOFzQRYgGAlzUdYEfXGbn4ksZViJbI7VYfRAghdB8Ip3Fv/SdWRvDGtFVP9hq29NeEyvoIg4587au5PcR89b4F4xbtL2pwbzaXHHxz9DM/ZDM8IQybPrO/pD2W3gZcLLOYRQQASASWWcxYgogQamdddMsLtQIPKyrYXnBZaT5VbOrnKbr5DUN8xJnVmj/zDI94NHi1uzUdYEdnVjPxJaZGLyGEELpfwvDXN/94eciLmzL1hX99OPnvz+cFPzygX++I4ACfbn3mzTy56Kv4s5+NCNnZb8zogZGeVpwq/+LhnTuP52p4AMIqbtn3i6IF7f17aC2uchIAxCQBACRBAEAeliAihNobBmDoLgzxEV9Wmv/MNTQZgA31kXx1XvNXruGdvtZUw9zqYG9xZrXm75tiM4QQQveP9p7080nXoBenf7A3R8sbK9OObk07urXBW3hNztENnx7dcMMlQuY/+p0NPy6Ik0GXZSlB5IEAABPDAZ4BQwh1AFiCiO6C5aDX33mGJosJA+xob2u6xsCdL2tchfjE1WNgWISIEEKtgXTst3T3pcuHv5k/Js5DRjYx9+s6QmAbOHD6p39eSt7+Wm+72761s7OUIJo4HgCqDZxUQFTqOEtjeoQQai+YAUN3wceG9rejs25dTDjUV7wqQbMvRx/nJrzxeoiDwMOKKqpjL5abol2EN38QIYTQfRN59H91Zf9XP9eVpp4/l5SWnV9cVqWq0xnMDE/QQoncxt7F3ScwrNfDvYMdH4w7sSUDpjZyAFBYx3pZ02lV5rxaNsIJN6ARQu0GAzB0d4b6iLOaOuhlMcxXvCpBcyDX8Fafm6oQvcRrk7V/5xkwAEMIoVZFSF3DHh0V9mh7r6MDcJFRJAE19QEY85inOK3KnKtiIpy67LE3hFDHhztA6O4M8ZEAwN95BrapCo5ge4GfLV2t505faTx2ZrCliz02o0cIIdRWaBLsJSTLgUxAqE18NwUJALnYiR4h1K4wAEN3J9CO9rejq/XcqZKmJ3tazonty24caEU7C51lVFEde6nK3OqrRAghhADgahWig5QCAIWABICcGgzAEELtCQMwdNcsA8H2ZOubftVPAgB/3dSogyRgsLcIAPbnYBIMIYQ6AENN6ZWSkpKSkivVXfi+bOnDYS0iAYAiCQDIxUaICKF2hQEYumuj/OurEA1MEz0NfW3oIHtBrZE7Vdy4F+JQHwkA7MtpOnJDCCHUlox/zQl0d3d3d3f3nbm36ZqGe1dzT1i25ackWzJgUgoAwMRyJAH5KrbJKnqEEGob2IQD3TVPKyrUUZBaaT5eZBzsLb75DcN9xelK895sfaNxYb1chU5SsqiOTasyhzjgAWiEEOqa5syZ880339zzxysrK1twMa4yCgBIEgCgTMu5yKgrGrZYzXS3xq9ACKH2gXcfdC9G+klSK817svVNBmAj/SSfn1VbUmRi+vqIGZKAwd7iTZd0B3INGIAhhFBX5erqamtrew8fVKvVDMPQdEt+OXGVkwBg5gAAitWsry19RcPmqFgMwBBC7QVLENG9GOknJgk4nG/UmJqoQvSwokIdBVozf6KocVGLpQoRj4EhhFC7Ez66/Eh8fHx8fPzxDwa06HyQpUuXVt+T8PBwALi34O1WXOQUAFieVoV1rLc1DdgIESHUrjAAQ/fCWUbFuAiNLH8ov+lQarhf0406Yt2ETlIyv5a5rMReiAgh1J4IW9+esXFxcXFxvfzsiDu/v5Nyk1MAoDRwJAElasbLmgaAPAzAEELtBwMwdI9G+kkAYO8tOmqM8hNTBBzKN6pNjXshDvISA8CBXEyCIYQQanXOMoomoUrHOkgphgNbMQEAORiAIYTaDwZg6B4N9RFTJJwoMqoMTTSTcpZRvdyERpb/+6bJy8N8JQBwAKsQEUIItT6KAGcZxfH1/ehpSyd6DMAQQu0HT6B2XG+//fZXX311Dx9Uq9UAUF1d3dIrasBOQj7iLvqn0Lg3xzClh/TmNzzpL4kvMe3K0o8NlNx4PdZVaC8hc1XMZaU52B5bcSCEUKtgNFXllcqaOp3RzJEimUKhsHZwdpQ/iM/9bnKqRM1aCQkAUJs5uZBQ6jmVgbMR4zY0QqgdPIg34s6irq6upqbmnj/eGtNUGhkdIPmn0LgzU9dkADbMR7L8ZN3pEmO5lnWWUdeuUyQM9RFvuqTbl23AAAwhhFqQviR+z9btew+eOJOYmluhbTSskSCEVt18g8J69R/65FNPDYn1kHbdk18NdFNQUApiGgCgpI71sqZTK815tUyUuEV7jyCEUPPg3k/H9fnnn9fV1d1DF6mIiAgAcHR0bO0VPu4tthKRieXmJovp5UKin6eI42HvTdWGlhYdu7P1TbRQRAghdPc45ZnvZjzs4/PwxIWfbvzzTGZ54+gLAHjeVFt8+cyBDR/NHfuQr1fstC9Plrf6Vl1H4KagAIAkCAAorGN9bWgAyKnBKkSEUPvADFiHplAo7uFTFEXd+U0tQUQRQ7zF29J1u7L0r/VqYqlP+kv+zDXsytS/GC678XovV2E3BVWiZi+Wm6OcMQmGEEL3xZSzefrQFzZlGa/GXAQltXPz8PRwtVdIJRIRxZkMep26urykqLCkUmPmAXhz5fn1CwYc/efr/Ztn9JDc9sd3et3kFAAYWR4AiuqY/t3FAJBb+0AEnwihDggDMHRfngqQbEvX7czUz++pIG+qZenfXWQjJi9VmbOqGX+76//YCIChPuI1Sdp9OXoMwBBC6L7oz74z1hJ9ESK33hNffumZJwc9FOahaHIvjtOXp5879ufv639Y/2dGnblw19wxi/zOfjXQuitXI3ZTUACgNnEAUKhmvW1wFBhCqD1hCSK6L7FuQg8rqkTNnis13fyqgCSG+IgBYPdNA8GG+0oAYF+2nsUyRIQQundc4bqlK5ONPEF1G/XFqUun1r/1/ODIW0RfAEBKnEMenfDaV/uSknbMiZIRvCnrx2XfZ3btZJAlA1ap46Q0Ua3nXGQkAORiCSJCqJ1gAIbuCwEwyl8CADszmx4I9uTVV7mGgVa4k8DLmq7QceebitwQQgg1C1e0c+tJPQ+Ux4trN86NsWl2IkvkNWrl1nf7SgjemLBjT16XjsDcFBQBUKbhPKxpACAIIAkoqGOYJqaoIIRQq8MADN2vMQESAmB/rl5/84lvgF6uQk8r6oqGPXOlcaA13FcMAHtvSo4hhBBqLibt4iUzD6TTsPH9re7ys5Tv2PGxAgA2K61rp8BEFGEvIc0c7yYjAaBUw3ZTUAwH+bWYBEMItQMMwND98rKmI50FGhP/V24Ts5UJgKcCJACwPUPX6CVLL8QDuQbcg0QIoXvEG40mHoCQK+R3f4qLtLKxIgF4k9HU1avBLcfArMUkAOSrWD9bGgCysQoRIdQeMABDLWBcoBQAfrspxLIYGyglAP7KNWjNDZ7wgXa0vx1dY+BOFRvbYpUIIdT1UO7d3SkArvhCQuldb2bpk86lmgFIZ1fnrv51wBKAWUaB5dcx/rYCAMjCAAwh1B66+h0XtYlR/hKpgDhTYipoqpzDXUH1chXqGP5ATuNqw1F+EgDYlYVViAghdE/o8BFDu1PA6499vPi3orspJOTVZ1csWZ/PAmnfp194V+9Ha+nDATwBAAW1mAFDCLUnDMBQC5AKiCE+Yh5ge0bTodSYQAkA/HFTo44n/SUEwN95Bp25q5e/IIRQqxDGzZjziBUBbOGWqQ89sWjj2dI71xSwqvR9n055+PHlp+t4QtjjpVcfl93xM52cZRazZRRYfi3jb0sDQFa1uZ2XhRB6IOEcMNQyJgRJ/8jQ/56hn9dLQd10EGG4r+SdU3Vnr5iK6lgPq+vdkbspqBgX4fky08F8g6VfIkIIobtCBcz6bsWh/rP2lZpKDq+Y2vuL+X6xffvGRQX7dHd3dbCWicVCmjcbDHqNsqy4KC8z6dy/J+NTy3QcDwCkTZ831y7pJWrv30Srs5QgVhs4KU0o9ZyLjCIAclUsywGFe9EIobaFARhqGb1chb42dI6KOVFk7OfZ+FkuFRCDvcU7M/U7MvVze8pvfOnJAMn5MtOuLD0GYAghdE8EgS9vOyyeM2neumQVx5urs07tzjq1+44fIxUhkz7e+O3M6C6f/oKrJYglatbTmk5Xmiv1rJuCKlGzBXWMjw1+F0IItSnc9kEtxlJnuO3yrVpxSADgjwxdo4Fgw3zFQoo4WWys0mMzRIQQujeS4KlrzmecXv/mlEd9renb90MkaCvvPpOW/nQiPXHTK9HWd988sTNyV9AAcEXNellTAJBfy+AxMIRQe8FdH9RixgZKV55THyowVOo4R2nj2L63m6ibgipSs/FXjA93u54isxGRj3qIDuUb9mXrnwt7EPZhEUKoVdBOsc8u3/jscrMqL/l8QkpGTkFJubJGozcxIJDI5HK5taOnX2BgUGhEqJdNV2+60ZhcSCiEhNrEu8goAMhXsQG29LFCY1Y1M9i7vReHEHrAYACGWoyjlOznKT6Ub9iZqX8psnEoRRIwLlD65Xn1tsv6GwMwABjlLzmUb9iVhQEYQgjdP4GNd8wg75hB7b2Ojqabgk5XmuVCAgDy65hYVyEAZKswA4YQamtYgoha0sRgKQBsTtNyTTU1nBAsoQj4M9dQY2hQbTjIS6QQEkkV5jx8ECKEEGodlmNgArK+E72/nQCwBBEh1B4wAEMtqZ+nyF1BFdax/5Y00QfZRUb1cReZOX53w8FfIop4wkcCADtxIBhCCKHWYWmEyPH1nej9bGgCIKeGYXEMCkKobWEAhloSScAESxLsUtOtOMYHSQFg602NOsYESABgR6a+ydQZQgghdJ8so8DqTLylEz0P4CKnjCxfVIdJMIRQm8IADLWwCUFSmoRDBYZyLXvzq497i+wlZEY1k1zRYPxlrJvQw4oqUbPnSk1ttVKEEEIPkBs70QNAYV39OGasQkQItTEMwFALc5SSg73FLAfb0puoJxSQxFP+EgDYlt4gCUYAWOaA/ZGJVYgIIYRanqUEseSGTvSWACwLAzCEUNvCAAy1vMkhMgDYkqZjm5rsZalR3JOt1zENyg3HBEgIgP05ep0ZyxARQgi1sPoATMN2t6YBIL+W9cUMGEKoPWAAhlpe725CHxu6TMseLTTc/KqfLd3TRagx8XuzGyS7ulvTUS5CnZn/O6+JTyGEEEL3w0FCSgWEysA5SUkAKLiWAavGAAwh1KYwAEMtjwCYFCIFgI2pTbfieDpECgC/pjV+dWwAViEihBBqLe4KCgCkNAEA+bWsv52AAMhRYSNEhFCbwgAMtYpxgRKpgDhZbMxsamdxuK/YTkImV5hTKxu04hjuJxHTxOkSY6mmiQYeCCGE0P3wtKIBwFIdn1/LKISEk4wyMHyJGh86CKG2gwEYahVWInJ0gAQAfrmkvflVIUWM9pcAwK8N+9ErhMTA7mKOhx2YBEMIIdTSPKwoAKgz1neiV5v4QDsaADKrzXf6KEIItRgMwFBreT5MRgBsz9CrjE304nimh5QA2J2l15gaVH6MC5IAwPYMPdaDIIQQalkeCgoAitWMpQ9HnoqxBGAZSjwGhhBqOxiAodbibUP3cRfpGX57RhPprO7WdFw3oc7M78pq8Gpfd5GrnMqvZXAgGEKoTZhr8lPOnTr694EDh46fuZhdacDtn67L3YoCgKI61seGBoAcFRNoLwCADMyAIYTaEAZgqBVNDZMCwIYUbZPnmyeHSAFgc8NWHCQBYwIkAPB7etMNPBBCqCXwdZf3fD5rWLirjYNPeGzfAU8MG/b4Y72jApxtnEIen/Hp7vQ6DMS6Hk8FDQBFdayvLQU3ZsCwESJCqA1hAIZa0YDuYm9ruljNHi1oorP8YG+xg4RMV5oTyxsku8YHSwmAAzmGRtWJCCHUMvjq05+Njop+cuHqAyllOu7GOw3PG6suH/rh9aeio8d+cVaFN6GuxcOKIgCK1ayXdX0GzM+WpkjIq2WM2AkRIdRWMABDrYgAmNxDCgDrU5pIZwlIYnxQE93qPRRUrJtQx/D7crAVB0KoxRmSV44bsWhXroEHICgr794jnn319WVvv/vOm4vnPv9UXz8bmgDg9Tk7Fo6Y+M0lY3svF7UgMU04Skkzx1uLSADIVTFCivC2plkOcnAcM0KorWAAhlrX+CCpXEj8W2JMq2qiwv6ZHlKKhP05hio91+hTAPB7U4fHEELofrDZ3899859qDghh92HLd6eX5Jzes+GbT957639vLP/wy592nMgsztj33ggvEQFc5cH/zVub10QbIdR5eVjRAEASQADkqViWA6xCRAi1MQzAUOtSCImJQVIA+Cm5iX70rnJqQHexmeO3NjwJNtRHbCUiE8pM2bgliRBqScz5H1ed0vJAOo749sjON0f4yYlG7yBkPkOX/XH42xFOJPB1x77+MQFvQ12JpxUFAOVa1kVOmTm+RMMG2gkAIEOJfTgQQm0EAzDU6l6IkNEk7MnWNzle+dkeUgD4JU3H3LDLLKaJYb5iwFYcCKGWxWYdOZLHAAii5n/8vI/glu8T+Ez7ZEGMgAAm59ChHBzS24VYRoEVqVlfSyPEGibQHjNgCKE2hQEYanUuMmqIj4ThYENqE9FUH3eRvx1drmUPN2zUMSFICgB/ZOrNHB6MRgi1ELa4oJgFoLr37+9H3fadlN+AAT4UAFuUX4QBWBficbURoqUTfW5tfSf6dMyAIYTaCgZgqC28FCEDgM1p2iYbG1r60W9MbVCjGOEkCHEQKPXcoXw8A48QaiG8XqvjAUiZQn6n5x8hV8iJa59AXUV9BqyO8bahACBXxbgrKLmQqNBx1Xo874cQagsYgKG2EOooiHMTakz87xlNJMHGBEhlAiK+pPGJr/FBEgDYehmrEBFCLYS0c7QnAdji7Nw7Nfkx5mYXsgCkvaM9Piq7EMsZsMK6+hLE3BqGAPC3pQEgC08dI4TaBD5VUBt5MUIGAOuStcxNO4xyITE6QMIDrE9pkAQbHSCV0MTJImNhHRYAIYRaAh0cFS4lgKvZ//OOK7dLd/BlO9fvU3JASMOig+g2Wx9qdU4ySkwTSj3nqqAAIEfFAABWISKE2hIGYKiN9PcU+9nSxWp2T3YT+87TwmQkATsy9SrD9a9ECiExxEfMYysOhFBLIewGjx1gTQCn3L1w6qdna5suLuTrLnz+3II/KjkgrAeMedyucaNE1IkRAO4KCgCMDC8VEEo9pzJy2IkeIdSWMABDbYQk6k+CfZeoubmthrcN3dddpGf4bQ1jradDpACwLV13c94MIYTuHuE88a0FURICuMrDix+LeHzOlzvis5VGy02JN1Xnntn19bwnIvq+/ncFB4Q4ct6bE50x/upiLMfAiutYb2saAPJU2IkeIdSmMABDbeepAKmbnMquYY40bHhoMS1MBgAbU3XsDbFWTxehvx1dqeOONvURhBC6a8KoJdu+G+cpIIA3FBz+Zv6Yh/wdpSKZja2NTCxx8O391NyvDuYbeCBo99Grti2LFrX3glFLq2+EqGZ9bWkAyFXVd6LPrGaw7S5CqA1gAIbaDk3CC+EyAFidoLn51Uc9RX629BUN+3d+g1jLMsd5C7biQAi1EIHv1F/PHvxoXIg1ZUlu8ZxZV6uq1Znqv34TpFXg6Pf/Orv1eb9bjwpDnZZ7fSPEq53oVYyNiHSWUTqGL1bjkWOEUKvDAAy1qadDpLZi8mKF+WypqdFLBMCzoTIA+Dm5USsOiYgijhcZ8bmIEGoplPNji35LKUz7e93Hrz8/elDf2MgewT0ie/Ud+ORzCz9ce+BSYdofSwa4YvONrslTYZnFzFgCsPo+HJZjYFiFiBBqffh0QW1KQhNTQ2Vfnld/l6iJdbVr9OrYQMnKs+rzZabkCnO4U/3Gs42YHOYr3pGp33pZtzBW0eZLRgh1VaRVwKBpiwZNa+91oDbmcT0DRgFAnooBgCB7wfEiY5rS/Li3uJ3XhxDq6jADhtra1DCpVEAcLzSmVjbeaJTQxLggCQCsbziU2TKpectlnYnF8nyEEEL3xdOKBoCiOra7FU0SkF/LMByEONAAkFaFjRARQq2ZkOAQAAAgAElEQVQOAzDU1mxE5DM9pDzAN02dBJsaKqNI2JutL9VcLziMdhGGOAiq9dzBfGzFgRBC6L5IBYSDhDSyfJ2Jc5NTDAdFdUywvQAA0qqwBBEh1OqwBBG1g+kR8k2pukN5hstKs+WZd003BTXEW7IvR7/xkm5R3PWCw6eDpW+eqP3lkm64r6TN14sQ6qyW9O11yAgAwr5v/7lyuAJMh5cMWHzIeDc/QjTooyMfDhS20gJR+/Cypqv0poJa1teWLlazOSpmQHexVEBc0bA1Bs5WjNvTCKFWhAEYagcOEvLpEOm6ZO2qBM3Xj9s2evWlSNm+HP0vl7SzouRyYf0AntEBkk/O1J25YsqqZvzt8N8tQqhZci6cP28AAJGLpbSMr7l6pdnE3jVY+9zleNnQ58tMeSomwJY+VmjMrGYGeUGgHZ1Ybk5XMg91w4AbIdSK8Issah8zIuW/pukO5BgyY5iAhgFVmKOgp4vwfJlpe4buuTCZ5aJUQIzyk2xO0225rHujj1V7LBkh1PnYu7u7GwBAZC8jAQAIuYuvn9/dZcBc5DiJucvxsqYAIL+W8bcTAEBWDQMAwfaCxHLzpSozBmAIoVaFARhqH45ScnyQZGOqbnWiZuVAm0avvhghO19m+ilZOyVURl396jO5h3Rzmu6PTP3COIWUxi9ECKE7W51VtPrG/xYO+So1q70WgzoOL2saAPJq2WG+EgDIqmYAIMRBAACXsRM9QqiVYZUzajczIuUCktiXrc9VNe46NchL3N2aLlazB/OulwoF2wtiXIR1Rm53pr5tV4oQQqhLuZYB87OlCYBcFcPy9QEY9uFACLU2DMBQu3GVU+ODJCwPX19o3A6RJOD5MBkArElq8NKzoVIA+DlViycyEEL3RFdVWFBQWKpqPAq+Cay6vLCgoLBMjY3Jux4va5oAKKxjRTTRTUEZWb6wlgm0oykSclSMgcGHDEKoFWEAdgeMpqokLyM1KfHC+QuJKenZ+SWVGnwWt5hZ0XIhRezN1mdUN/5THRcksRWTieXmc6XXvygN9ZE4y6isauZ8aTO+PSGEUCPG/bMCvbx8B32aesc7OV+9bVqAl5dvv/cT8K7f5UhowklGmVi+VMNaGjtl1TBimvC2plkOMm96JCGEUAvCAKwJ+pL4bZ+/PnVo70AXucTK0d0nKCwyumevntHhwf7e7s5WMhuPkN7Dnlvy9R9ninS4S3Y/XOXU08FSjodvL6gbvSShiSk9pADw48XrQ5lpEiYESQBgY6quLdeJEHrwEEKhkABgy0rK2Du/G3U61/tw2Arg6jGwHpYqRDwGhhBqTdiEowFOeeaHpQuW/xxfZrplYMXzptriy2eKL585sOHjhY4xk5et/Hh2X2eqLdfZlbwSLd+WrtufY3gluvFMsGlhsrVJ2iMFhhtbz0/uIVudqPkzT1+uVTjL8I8dIXR7XGn89oMZVzfLzOcKWAC+NnnPxvUpt9uC5AxXjn131AgAgC1/uiZvG/rMFVN+LWvpxJtpaYToINiVpb+Mx8AQQq0JA7DrTDmbpw99YVOW8WrsRVBSOzcPTw9Xe4VUIhFRnMmg16mry0uKCksqNWYegDdXnl+/YMDRf77ev3lGDxwQfC+cpOSkEOm6ZO3X5zWrnmgwE8xGTI4JlGy6pFubrP2on/W19w/2Fu/PMWy5rJvXU9HUj0QIoWuYtPXznv+ulGtwsWTP2y/sadbHCUl4TKjgzu9DnY6lEWJ+LfOUv6URohkAQuxpALhUhSWICKFWhAHYVfqz74y1RF+EyK33xJdfeubJQQ+FeSiaTLFw+vL0c8f+/H39D+v/zKgzF+6aO2aR39mvBlrjRum9mBEp35Km+zvPcKnKbCn/uGZ6pPzXNN2OTN28nnJXef1fxpQesv05hi1pulejFTRW0SKEWgtB2sX9571p3nif6Yq8rSkAyFMxvrY0SUCuimW5+hLEDKWZ44HERzpCqHVgAGbBFa5bujLZyBNUt5Gf71o/J8bmtvddUuIc8uiEkEcnvPra7tfHTP4mUZv147LvZ/dbFIglcffAUUpOCZX+eFH72Vn1T8PsbnzJQ0E94SPen2PYkKr7b+/6fFecmzDQjs6oZg7k6kf6YeIRIXQbgsg5mw88dbW0wXzig7HvH2c9n/5i9TT/29+wCUrq6BcW6mWD+a+u6WoGjJXQRDcFVVTH5tcxvja0q5wq1bD5tYyPDX5HQgi1Cry5AAAAV7Rz60k9D5Tni2s3zo2xavYHRV6jVm5992LEwhP6hB178hYG+mEEdk9mRsp/TdMdKzSeuWKKcxPe+NJLEfL9OYZf07SzouUKYX1gPDVMtuxY7foULQZgCKHbIuxD+g0OufpfRvVaEoCT+z48+IlofAI+0DytKIqAIjXDcBBgKyiqY7OqGV8bOsReUKph06rMGIAhhFoJ1lUAAACTdvGSmQfSadj4/s2Pviwo37HjYwUAbFZaJnbKulc2YvKFcBkAfHa2cTvEcCfBQ92EahP/y6Xr7RCf8pfYiMnEcnNSBR6VRgg1G+U/fM78+XOnPuzUjMefoab0SskVpY6781tR5yOkCFc5xXJQomaudaIHgBAHGgDSlHgMDCHUWjAAAwAA3mg08QCEXCG/+5Jv0srGigTgTcZbt05Ed/ZShNxeQl4oMx0rNDZ6aUakHADWJWuvDccU08TEYCkArE/RAkIINRMd8dwnK1d+9t9h7nd+/JlOLI72cO/+2IcX8at4F2WpQsyrZf1tabjahyPUUQAAqZW4u4cQai0YgAEAAOXe3Z0C4IovJJTe9VanPulcqhmAdHZ1xj/O+yAVEC9HygHgkzNqrmEo+4iHKMxRUKXntmfor118LlRKk7AvR1+uxcwjQujuccbaqoryWylO2bH1nyoe2KK8IrzHdFHXRoHd2Ik+zFEAAMkVuKeKEGotGDEAAAAdPmJodwp4/bGPF/92V49aXn12xZL1+SyQ9n36heNR7fvzbKjURUalK80Hcg2NXrLEZj9e1LBXI2RnGfW4l5jh4Nc0HMqMELoLvDL+6xf6eFpJbR2dXW7FI/zptZkMD6Sdoz0+Kruoa53ofW1pioA8FWPmeGcZ5SQl1Sa+sBZTnwihVoFPFQth3Iw5j1gRwBZumfrQE4s2ni1tXAV3M1aVvu/TKQ8/vvx0HU8Ie7z06uOyNlhplyaiiDk95QCw8qyabZiKHOIj9rami9Ts/twbkmBhMgD4JU1nZHGnEiHUPKbkFU8Omb/u3yItd8cbB0HaPvTKtFjcXOuirjVCFFGEuxXNcFBQywJAmKMQAFKwChEh1DpassMPa1BVlpWrWJmDs7O9XNC55mdQAbO+W3Go/6x9paaSwyum9v5ivl9s375xUcE+3d1dHaxlYrGQ5s0Gg16jLCsuystMOvfvyfjUMh3HAwBp0+fNtUt6idr7N9EVjA+SrkvWZtcwW9N1k0Ok166TBLwUKVt6rPa7RO0IP4nlX1cvV2GIgyCtyrwv2zAmENshIoTuiK/Y9taH/9ZyQJC2QYOG9QuUVf67c0dCBW8VPf65R11JAM5Qnrh/x8lCoyBg8pfrPnr+YXfhnX8s6pS8bSgAyFcxAOBvSxfUMhnVjJ8tHeooOFxgSK00j8BGuwihVnA/ARinKbp44sihw4eOHD+fUVhWVlVrqM9DEIRAaufk6u4X0af/oIGDBvaL9bfr8BuIgsCXtx0Wz5k0b12yiuPN1Vmndmed2n3Hj5GKkEkfb/x2ZjSmv1oERcBrsYpZf9V8fV79VIBESl8P5EcHSL48r0lXmo8WGAd0rw93nw+TvX5UtSZJMzpQ0rlifoRQO+BVB7cfquWBkMS+ffjwG1EyAFA/OT1o5E9Vst7zP5tvmbnMVRxZPOLJTy8c3Jf+7ksPt/OSUevxUNA0CSUa1sjygXb0oXzIUJqH+4rDnQQAkIwZMIRQ67iXEkRGmfzHJy89Huxk3z1m2LT/frbpr3Pp+eUqw/UqMJ43a5Ul2UnHtq96+5WxfQOd7b0eevp/P58qbnywp4ORBE9dcz7j9Po3pzzqa03f/us8QVt595m09KcT6YmbXom2xu/+LecJb3G0i7BCx61LbtDhUEgR0yNkAPDtheut6kf6i52kZEY1E19iauuFIoQ6HSbjYqqeB0I28JWZkfX7ZorHhj4iB3PiqbNXbzmk04D317/5kKhy/+JF28qxwrnLokhwV9AcD0V1bKC9AADSlQwAhF9thHjnKlWEELp7d5UB41Rpe9d8+eWqX/7Jv1o6T5BiB7/I6FAfVwd7ewd7e3tbOWmoVSqVSmWVsrwo/WJCWomaYdQF8Vvfj9+2YnHMmJfnzX9lQpxrh63ooJ1in12+8dnlZlVe8vmElIycgpJyZY1Gb2JAIJHJ5XJrR0+/wMCg0IhQL5sOn9brrBbFKZ7epfw+UfN0sNRecn2bYFKIdHWi5mKFOb7E1LubEAAEJDGlh+zzc+qfkjUPdbNrvyUjhDoDrqpCyQGQrsGBNtc2zsQBIT40fyk7I5+FMMpyTRA0fe7wD05v3/XJ96kT3rx6FXU53jZUfi2Tq2KC7WkAuKw0A4CdhHSTU1c0bF4t44vjmBFCLa25txWmIn7NG/Pf+ulsBcMDQdsGDRw9dkT/Pr17x0X62d0umGI1xZfOxZ/+9/jfO3/ff6H0/JZ3n932xQdjF3/28YKh3h25tFpg4x0zyDtmUHuv48HUy1XYz1P0T6FxdaLmfw9fn40toYlpobLPz6lXJWp6Xw23ngmVrk7UHC0w5qjwSYkQuj2WZQGAlMll17d2SPfu7hSRVJBTwFwLwICwfujRCMHvxy7tP5CzLCwAI7AuyteGPlpgzK5hBnmJpTRxRcPWGjlrERnmKLiiYZMrzPhYQQi1uOaUIOpzdiwaGP7IrB/OqmxCR8xesS2+4Mrlv9e+N3fK0NjbR18AQMndw/uPm7Hsq+3nCq9cOvDdkkl93Nn035aNiIyb9kOCCpP76BZej1OQBGxK1RXVNZgLMDVMZiUiTxUbE8vraw5tROSTARIeYAMOZUYI3R5pa29LArCVZZXX7yyE3LO7A8Fr0lLybrjdkA6O9iQAm5+dj3PAui5fWxoAclQMSYC/HQ1XqxBxHDNCqPU0IwAz7lsy+dNTppCJ7+1MyUva8/V/xse6ie/l16Jtg4fM+GDzyays46tn9VVkbpg9e03OXY89Rg+IIHvBUwESM8d/elZ943WFkLB0R/wu8Xq49WK4jCRge4ZeZcB/UQihW6MDQgMFBHAVp09mXB/yRHn7e9PApJ+9UHd9W5BX1dTyALxBb8C9wq7Lz4YGgOwaBgCC7QUAkFFthqvjmLETPUKoNTQjACPdBizacC4r4ddlowLkLdFrQujWd+a3xzIu7f1obFfoHG6oKb1SUlJSUnKluoP3GOl0/hOrkNDEvmz9tWSXxQvhMglNHM43ZFTXf4HysaH7uov0DP/rZRzKjBC6NcKx3+BoIQHm5JWzlh8prf92TbqFhTqQvPbg2l/yr27icIW7/jhjAqBcurlg/WHX5WdLA0BuDcMDBFqOgVUxABDmJCAA0qrMLG7rIYRaWjMCMMHDM5dPibJv6eePzHfYawtHduv0k6CNf80JdHd3d3d39525987Tm9FdcJZRU8NkPMAn8Q2SYPYScmKwlAdYlaC5dvHFCBkAbEjRmnAoM0Lolii/5+aPdiSBU518b5CPx8DPkhkAEPYaMtCB5LX/LB3zyvcHL6QkHF47b8KyIxoeSIe+j4XiIaCuy0pEOkhIHcOXalhLBszSh8NGRLpbUXqGz1Yxd/oZCCF0dzp9/IO6tlei5LZi8myp6UhBg+h2RpRcRBEHcvS5Vx+Nfd1FIQ6CCh23O0vfHitFCHUOhMO4L396OUhMAPCGqoJSDQ8AoBj6nzlRIoJXX/xh5uCe4TGDpn9ztoYDQhoze84g6Z1+JurULMfAsmuYIHsBAZBVw1j28SzN6FMqcMYJQqiFtUUAxlf89daUD09iHTW6ewoh8Wq0HAA+jq+7MbPlJCXHBEpYHr5LvJ4EeyFcBgBrk7WYAkMI3RrhNPzbUyd/XjJ5YLS/m5XAUlovCP/Pxq+f8hDcUGhPSAOnfL/59QgcONLF1VchqhiFkOimoAwMn197Qx+OKvz6ghBqYXdTV8GpUnat27jz6IXs0hoDbesZMXDyzJdHRzrc8DN4ozIvI7uovEajNxgMOo2qsjjz3IGt2/+tGhm2tsUX3yEIH11+JH4OywOQ9v4ddrpZZzYlVLohVZtdw/x2Wfd0yPWd6FnR8t/T9buy9HN6KjwUFACM9JN8fladWc0cLzQ+5ilqvyUjhDo40i5m6ge/TP3gxmvi4Jd+T33kwKYth5MKasDOv/eISRP7e2P2q+vzs73ehyPIXlCsZtOVZl8bOtxRCABJFRiAIYRaWHMDML7qn7fHTfzgeAVzLbmQEH9k149fDPhg7x+LYq0Ivi5x7etzl288VaLnm8g/3FPbxE6BsPXtGevb3qvoygQk8Xqc1ZyDNZ+fU4/wk8iF9RvUbnJqlL94e4b+h0TNu49aAwBNwtRQ2UfxdWuStBiAIYTuGmkVNHzW28PbexmobVkmfeXUB2D0oXy4XMUM94VwZwFFQlqV2cDwYrolmpAhhBAANLcEkcn+7pkx7x27Ifqy4LnKw0tHTttUwpT88vyQGT+cLG4y+gIgaBqbSKF7NsxXHOMiVOq5NUmaG6+/EiWnCPg9Q1+mrR/TMylEqhAS/5YY07BoBCF0E746/cSRw4cPH00uw9leqF79GTDV9U706dVmAJDShL+tgOEAHygIoZbVrAyY+s/33zlUwwEAIfEa8NxLEx4LcZWYKrNO71yzdl9Gxe7Fs+f1SdxVwQEQQqfQx/rHBXWzlVA8w/K0zNbRydWrR9xjfXpgQgLdhyUPWY3fUfVjknZisNRVXh/Oe9vQQ30le7P13ydq3+prBQByITEhSLo2WbsmSfv5QJt2XTJCqMMhyHMrhj+3xyAcsqZo/4uOmNRAAOAso+RColrP1Ri4oBs60QNApLMgXWlOrDBHu+AZA4RQi2lOAKY9vGVXOQdASCIXHjj8yWN2Vx9ZE55/+em3Hh/w3tmdq34DIAQ+T/+4b81zQV2qYp7RVJVXKmvqdEYzR4pkCoXC2sHZUY49idtalLNgiI/4QK7hq/OaD/tZX7s+J0a+P0e/9bJuZpTMWUYBwLRw2fpU7d4c/WuxCncFZl4RQjeQeXR3JKGILcovYsERb+UIAAgAHxs6ucKco2KinYVSAVGmZWsMnK2YjHQSbEmDpHITgKy9l4kQ6jqaUYLIpJ9LVPMApPOk99+6Hn0BABBWcYvemOBEAgCQdmM++mZql4i+9CXx2z5/ferQ3oEucomVo7tPUFhkdM9ePaPDg/293Z2tZDYeIb2HPbfk6z/OFOmw4V6beT1OISCJ7Rm6a/OXAcDPlh7sLTay/NokreWKm5wa6SdhObh2BSGE6gninp7gRxNs5r59l3G8E7rKcgwsu4YhCQi0owEgQ8kAQJSzEAASy7EEESHUkpqx/cdVlFVwACCI6ht38waQrPcj0YKfDxhBENX/EdvOXs7BKc/8sHTB8p/jy0y3DKx43lRbfPlM8eUzBzZ8vNAxZvKylR/P7uvc8pmWK1eunDp16h4+WFNTAwAcx7X0itpZd2v6mR7Sn1O0756q3TTS/tr12THyv3INm9N0M6Lk9hISAGZGyXdl6X9L183tKbcV47A7hNA1koff+vnN+GFvn14557Phe/8bLW/vBaGOwNII8WofDkFiufmy0ty7m9DXlrYWkVc0bLmWtRRZIITQ/WtGAMZrNVoegBDZ28tvDrAIhZOTlAAjT9jY2XTu+MuUs3n60Bc2ZRmvxl4EJbVz8/D0cLVXSCUSEcWZDHqdurq8pKiwpFJj5gF4c+X59QsGHP3n6/2bZ/SQtOx6Zs2atWvXrnv+eElJSQsupoOY21O+M1N/usR0vMj4qEf9scJge8FAL/GhfMPaZO2iOAUA+NnSj3mKjhYYN6bq5vbE71cIoesIRe//HTjq/MqkhUv7xZ1b8N9XJz4RF+QsxZ2aB9qNnegtfTjSlGYAIADCHAUni41JFebB3hiAIYRaRrMK4HmetzQybCrAIgQCAQHAA0F06vhLf/adsZboixC59Z748kvPPDnooTCPps8Qcfry9HPH/vx9/Q/r/8yoMxfumjtmkd/ZrwZat+QfwezZs6VSKcPcdZXMoUOHampqHB0dW3AxHYS1iJwZLf/odN37/9b1Ge9IXf3KNLen/HC+YWOKdnq4zE5CAsCMSPnRAuP6FO30CJlU0Kn/aSKEWo75zJfTv4g3AYB/sFP2+e3vPLf9HYISyaxtrKSCpoMw8YjvUlcPxz5SXVp9J3rVDfOXK+vLDiOdBSeLjRcrzIO9u+5EHYRQ28ITyBZc4bqlK5ONPEF1G/n5rvVzYm6fzSMlziGPTgh5dMKrr+1+fczkbxK1WT8u+352v0WBLbg/NmjQoEGDBt3DB2NiYmpqasTirvmomBYm/TVNl13D/J6hmxhcf+awh4PgMU/RP4XGn1O0r8UqAKCXqzDaRZhQZvo9Qzc1FA9PI4QAAIArOrVty2+GBtd41qipLtdU3+IjYqW+9deF2penFS2kiCtqVmfmg+xpmoScGkbH8FKaiHQSAsDFclN7rxEh1HVgAAYAAFzRzq0n9TxQni+u3Tg3xqrZHxR5jVq59d2LEQtP6BN27MlbGOiHFQqtTEASC2Plcw+qvjinHuknuZbdmh2j+KfQuD5V+2KEzFpEAsDLEbKZZaa1SdrJITIay4sQQgBA2PrG9OxpvJuPiHw7/flmdCcUCd2tqaxqJq+W6eEg8LcVXFaaM5TmKGdhlLOAAEiuMLMcUPgoQQi1BAzAAACASbt4ycwD6TRsfP/mR18WlO/Y8bGLTxxjstIyWcAArA0M85WsS9Ymlpt/TNLM66mwXIxyFjziITpRZFyXrJ3fSwEAg7zF/nZ0VjWzJ1s/OqCFT+ghhDol4cAPT577sL1XgTogf1s6q5rJqmZ6OAhCHQWXlebUSibKWWgjJrtb0/m1TEa1OcRB0N7LRAh1BbiZAwAAvNFo4gEIuaKJPiN3QlrZWJEAvMl469aJqCURAMsetiYAfrioLdWw167P6ykHgJ9TtLVGzvK2lyPkALA6QcPhXw1CCKFb87cVAEBWDQMAPRwEAJBaVX8MLMpZANiMHiHUcjAAAwAAyr27OwXAFV9IKL3r5u36pHOpZgDS2dUZ/zjbSpSz4AkfsYHhvzqvueGisI+7SG3iN6TqLFdG+UvcFVSOijmUb7jFT0IIIYQg0J4GgIxqM9zUhyPCcgysAo+BIYRaBkYMAABAh48Y2p0CXn/s48W/FbF3/sA1vPrsiiXr81kg7fv0C8fahDa0uLeVkCJ+z9ClVV3flZzfUw4Aa5M0dUYOAGgSpkfIAeDrCxrMgSGEELoVy/zldCUDACEONE1CVrVZz/BwNQN2ETNgCKEWchcBmGrz0862N3Met6GKBwDjrmkuTbxcz/X5XXd16LmtCeNmzHnEigC2cMvUh55YtPFs6Z2Xy6rS93065eHHl5+u4wlhj5defRx77bUlDytqcoiU42HFGfW1i9Euwoe6CdUmfuPVJNiEYImTlEyrMv9b3KH/CSKEEGpHnla0lCZKNWydkRNRhK8NzfKQUV0/GUxKE3kqplp/10UyCCF0s+Y34eA5k0Z1m/Q7b9Le5mWxtoNvHFEBs75bcaj/rH2lppLDK6b2/mK+X2zfvnFRwT7d3V0drGVisZDmzQaDXqMsKy7Ky0w69+/J+NQyHccDAGnT5821S3rhmJi2NidG/kem/niR8USR8ZGrc5nnxChOlyh/StY+FyaTCwkRRUwLk31yRr0qUdPHHf+OEEIINYEkwNeWTqk0Z9YwPV2EoY6CjGomtdIc6SSgSIhwFpwuMSWUmwZ5dc0RLwihtoRdEK8RBL687bB4zqR565JVHG+uzjq1O+vU7jt+jFSETPp447czozH91fZsxOSsKPlH8XUfx6v7uItIAgAgzk0Y5yY8c8W0PkX7aowcAJ7pIfvuoja+xJRQZop2EbbzohFCCHVIgfaClEpzhrI+ANueob92DKyni/B0iel8GQZgCKEW0IwSRNGYzbWG+1W7eUwnyD1IgqeuOZ9xev2bUx71taZv3w+RoK28+0xa+tOJ9MRNr0Rb45SYdjItXOppRV1WmndmXp+VapnFvCZZazkJJhcSU0OlAPBNguZWPwchhNADznIMzNKHI6xhH44YFyEAnC/FPhwIoRbQnAwYSQtFD06mjHaKfXb5xmeXm1V5yecTUjJyCkrKlTUavYkBgUQml8utHT39AgODQiNCvWyw6Ua7E5DEgl6KBYdVn55VD/UVS2gCAHq61CfBNl7SvRotB4Dnw2XrkrXHCo3JFeZwJ/x7Qwgh1Fh9AKZkACDIXkCRkFljNjC8mCZiXIQUCSmVZj3DS+6wQYsQQnfw4ARWd0tg4x0zyDtmUHuvA93RSH/JT8nalErzzynaV6LklotzYxTPXFH+lKR9LlQmFxI2IvKZHrIfLmpWJ2pWP2HbvgtGCKH2wZxfNevbc2bKdfiy98Z5Yx/kRoLtBQCQUW3mASQ04WtDZ1YzGdVMhJNAKiCC7ASXqszJFeY4NyxlRwjdF7z9ok6PAFjykBUArE7QVF1tUdW7mzDOTagycutTtZYr0yNkEpo4mGdIV3bwjjAIIdQ62Px/Nv7888/rd1yownZ+N7OTkPYSUm3iyzQs3DQNrKcrViEihFoGBmBNYVS5F479uXvPwdOpBdWGO82PYpS5KUlJSUkpBbU4aqqdxLkJB3QXac38txeun/Ka11MBAD8laTUmHgDsJeTEYCkPsDpR224LRQgh1IEF2lmSYAwAhDoIAOBSVcNjYGUYgCGE7lczShB5Ve7FnDJ7OicAACAASURBVJr73CsjbX0jfWw6ftW0NnPXp8ve+mZ3cpXJEkwRlG2P0bP/98aC8eG2TUerfMW2l3rOOmIC8fjfVNvGdYJeI13TojirY4WVm9O0z4VJvaxpuKEd4s8p2tkxcgB4OVK2OU13IEc/t6fc1wbrbxFCnR9XkXo8pZxt3pvNKRUcAPDa/HNHDtdR165TzmGPhjrhlixAoD39b4kxQ2nu5ymy9OFIrqgPwGJdhQCQUG5ieaA6/vcZhFAH1ozvoKZDix8e/5vh/n6dzhCccOV//3fUxM/Pqm4MNnm2JvX3dyft/+Pw+r3fjvPC7g0dlr8dPTZQui1d99lZ9deP15/yei1WMXGncm2ydmqo1EpEOsuo8UGSXy7pvr2g+XygTfsuGCHUcbAGVWVZuYqVOTg728sFnenbtfn4O0Pv9hnNFm159YktN1zoDM/otnG1ESIDAD0cBQKSyKw268y8VEA4SkkPK6qojs1QmkMc8OsAQuje4X7XVUzW91MnWaIvgrLy6jV44suzZ04ZGeshIQB43aU1k/tP316KRfMd2fxecglN7M8xJFwtEenpIuzdTVhn5Nan6ixXXomSCylib7Y+V8W030oRQu2L0xQlHFj/yX+eHRIb7O1iKxFJbV29g4L9PBytRCK5g7t/ZL9xry7/7o9TWdUd/syoUCTsTAFjB2cpQbQcFRZRRJA9zfKQcsM0MMAqRITQfWtGBoyw8YqIjDTe368j8urY9Ye8at+77xyq5oAQeI76ZNvaOXH29bUZxpKjn734zFt/l5rzN82eM7j3tme6YdTaQTnLqOfDZasSNJ+cUW950t5y8bVeigklyrVJmqmhUmsR6SqnxgZKfk3TrUrQfDoAk2AIPVgYZfLutV+vXrfjeIbS1OSpXZ43a5Ul2cqS7KRj21e9TdAKz57DpsyYM/PpPu4dcgKvaOTXR1cTz72+KVXNAxBC90efmdDL/hbPKTZzz9e7MxjSLm7ytEdcrr9JEBFANf2JB42/HU0SkKNizBwvIIlIZ0FKpfliucnS+bCni3BHpv5CmXlqaHsvFCHUmTUjABMO+iQ+sfVX0r7Uf/+yq5wDQhi2cOsv8+Nk118Rdeu/dNcRxcg+8w9Wl+14bd6WAdsmu2II1lG9HCn/NU13rtR0uMAwsLsYAGJchA91E54uMf2corW05ZgVLf89Xb87Sz8rWu6DJ8EQeiBwqrS9a778ctUv/+RrufojvqTYwS8yOtTH1cHe3sHe3t5WThpqlUqlUlmlLC9Kv5iQVqJmGHVB/Nb347etWBwz5uV581+ZEOfawXqQEzbRMzbEPzZ08XOzV5+rNpWcPpTWf82PSwe7N1EkZ/y9YPXuDIZ06j/34w974e3vZhKa8LCiC2qZPBUbYEdHOAk3gu5iRYNGiOewESJC6P7g7RcAAMypZxO0PBDSAXPm3Rh91RMFvbrm04Mx0/dUVex84/2jI78ZqGiHRaJmUAiJOTHyd07VrTij7ucptpyTXtBLcbpEuS5ZOy1MZi0i3eTU2CDJFkyCIfRgYCri17wx/62fzlYwPBC0bdDA0WNH9O/Tu3dcpJ/d7YIpVlN86Vz86X+P/73z9/0XSs9veffZbV98MHbxZx8vGOotabP1N4ssaNLXJx4esvz5l1b8U/Tn8mFRf776zc8fTgyUtvfCOqFAO7qglsmoNgfY0VHOAgC4WF4fcfna0rZislzLFtWxHlaYNEQI3SNM5QAAAKesqOIAKO+e0Q5NlkqSnlM//d8jcgLYvLVLv0nt8GcCHmTP9JB1t6azqpk/MurPfcW4CB/xEKlN/Nqk+gb0r0TJaRJ2Z+vza/EkGEJdWc6ORQPDH5n1w1mVTeiI2Su2xRdcufz32vfmThkae/voCwAouXt4/3Ezln21/VzhlUsHvlsyqY87m/7bshGRcdN+SFB1uLkjwu7D3z+YePDDUd4irir+q0m9Yp9dff5+exg/gILsaQDIUDIA0N2athGTFTquVMMCAAFgqUWMv3KfBzMQQg80DMAseJ4HAGCZW7bypQJmrJgXJiR4w/nPlv1SjI+0DosmYUEvOQCsPKfRM/VfkRbGKgiAdSnaaj0HAO4KalyglOXgmxvmhiGEup4lkz89ZQqZ+N7OlLykPV//Z3ys2z0d5KJtg4fM+GDzyays46tn9VVkbpg9e01OR3wOUM6P/XdnwslVU0LkoL606dW+UaPeP3wFNw3vRrD99fFfBECEkwAArlUhWgKwM1ewChEhdO/uKQDjzXqt8eZIRV9waNXi6eMG946K7jN4wpxPfrtQ0VmyC5SzqzMJwBZeSCi/5SNV3PP1FS94UcAp9y6e/2tJR3z0IosRfpJQR0G5lt2QUp/yCnMUPOYp0pn5tcn1V16NkQtIYneWPgfbISLUdQ1YtOFcVsKvy0YFyFuiE5TQre/Mb49lXNr70djADlaEeB1hEzNz49mzm2b1siNMBfveeCKy/2u/Z+nbe1mdRo+G85cjnYQAkHS1CrG3mwgA/i3BAAwhdO/uKgDja1N+XTo22k0uUYQviW+wo8aV/7nw0cgnXv147faDZy4m/nvwt2/+OzGuR9/Z27I6Q5qeDomLURDA6//56vNTdbeqKyGsH1/+yURXErjyHa/N+DETb78dFQGw9CErAPjuolZlqA+VF/RSEAAbUrRKPQcAbnJqfJCE5TEJhlBXNnP5lCj7lj6rI/Md9trCkR27I64sePK3Jy7s/G8/F4qrPLVyYs+4aT8kqHDnsBm6KShbManUc+VaFgAinRtkwPztaAcJWa5lC7CCHSF0r5r//NCmfD8+qtczH/6RWKprnP1ic76fOvmL841u7TxbdWbVlMHTNuffsq6vw1A8/sxTLiTw5stfThz3/pHSW9xWCacxK1aO70YBV7F/7vDpmzJ1bbtM1GxxbsJHPER1Rm51Yn18FeooGOgl1jH8jxfrr8yKrp8JZpm5iRBCXYrIa+SHhxIPfjDSS8zXpayf2Sd69A9pHf+B3AFY5iynVpkBINxJQACkVJoZDgCAAIh1EwLAaaxCRAjdq2YGYFzZH6+MnP1HnpEHIChFt+Ae3a2uVXPwtfveffdQDQdA0K4Dl2w6mpgSv+fH5c/G2JEEb87fNm/+Lx2/Xs9q6BtvD7YngWdLD74xyM87dtTzC974aNXBxsEj6TZh1fr5kXKCN2VvnBodNWL+p1sTlB3uLDYCgEVxCpKAjam6K5r6v8V5PeUEwKZLugodBwCucmpisITj4VtMgiGEmsJX/PXWlA9PduIzVJRLv8U7E45/MzlYDoa8vw5e6sS/l7ZTX4VYyQCAjYj0sqYNDJ9Zfe0YmAjwGBhC6D40LwBTH3r7tc0FDE/Q3Ya8eyC7rChl97ywqx3s+Zr963eWcQCEOPqN/fs+eKZfZGjciOlvbjhx9JN+tiRwVfs+/T65w2cYKJ+XNv62pI89RQDwuuJze37+4r2lyzam3LRwwm7gisP7337MgQRem7nvy0WvrUnCB1pHFOIgGO4rMbL8F+fU164M9hbrGX51Qn3E9UqUXEQRB3IxCYZQl8apUnasXPTcqIF9ekXHPDRw9MwPfrtY1fB/et6ozE0+c+zgn/t279y+bfP6H758/z9THol56t3tiWUdfg/x9kjbXrN+OXtmw8wYW7IlTsJ1fT0caLjxGFjDKsTelkaIJZ3hhAVCqENqTgDGV+z49tdCFghR5JId2//3hJe0wQ1cf/LAMTUPQHWb8u6CSNH1FyThcz97tQcNwFze/ltSx/96Szj0f+9I4l+fvvCIl5y67TOKsHvkzX3/rJ/zmLsYn2Ud2sI4hZAidmTqLyvrH5wLeilIArZc1ll6CjvLqEkhUo6HlVeDNIRQF8NX/fPWgMDosa+t2LDnyL/nExPij+z8ftnEmJAhH5+t4wGAr0tcM+MRT1tHv4je/QYPHfHk6HETn5k2Y/7/PvvlVLGhq1Q4yEOmrD6dX1pcXFxcXHBsSSSOAb0NSwli2tUALMJJCA2ngTlKyQodl4c9nBBC96Q5AZj6+P7jah5ImycXL+h501BH88Xj/6o4ANJ52IR+jeYTC8JGDvOlAdiccxeqOsVDTOgx8LW1x3MrSzPOHd7926ZV0yMEt3inrMeUr/7Jzruw57t35k19sn9seICn3T11N0atyENBPR0s5Xj44v/s3XdcVfX7APDnnHP3Yu+9lyIgAgIuXEnmHjmyzMxy5kybP9PKldsy/Wbuyr01Z5qDqSIbGQIiIJvL3eP8/rgXkeECE8Tn/V+Xe/FDLzjnPJ/PM2L1R15uxoxIF65SQ2+qPQT7xF/AZRDncuQJD/EkE6F2R525edywpZcfqhvcg2htyYUv3vlgd4G6YM/Et6ZsuXpfRjd5myIYjHYzcJcpMre2sbGxsTYXPenehgAAHA0YfCbxoEajm1xSO45Zf48gAIKs2AAQhVmICKFmeY4tMHVmQlINDQS764Deho0OfDQ5V//N0wCQxn0GhjZqystw93ZnEOlqdWZaphosX5cLPsExcwuMcAt85hvZlv4Dp/gPnPIK1oSaaUZnwcF06fl78ugHSt38ltldBKezZfvTpFP8BHYiyoxHvteBv+V2zbo48bZI49ZeL0LoZRKf+f678xVaACC4jhHvTx7Vw9uKqyy5e+PI/347mf7w2MLps8JuHX2oBSBY5h169Ar2tDHiUrRaQzP4RmbmVo4+wT3CfNjP/HdQu0IS4G3KjC1UJpequtmxvUyYPAaRXamukGuNOCQAhNiwTmbJoh4ox3g32pdGCKFneY4ATFtUUKQFIC3dXUWN4i+6/NrlRDUAwQ7qGdLEVYhrZMQBkNPVlU9s7o7Qf8mYS37oy98QX7M6RvzXEBMAcDRgDHbjHkqXbbxZs7ynAQBM8ePvTZFczlPEFCqDrFitvWSE0Etz4c+jxVoAgus39/SFFT2Ma+9ioyZ+/O63fSOWxhz5eT8AwXR+d+vJ/73v+YY9TMsrCsulWhqA4JpYYxJHPY8HYBQJvhbMqAJlfJGyjyMHasvAbhQoaAAsRUAIvajnCMBohVxOA5ACAb/xVUYWfTlGQQMwO3YPM27yIkTTAEDL5QoMwFArmewn2JMijStSXsxVRDiwAWBmZ+Gxu7LDGdJP/PhOhgxDDjmxoz5I+3OwSWuvFyH00sTeEtMApMWY77/tUe8mRYiCF3w9asvg7cVaII2HLds44U2LvgAUf8/wGLpHTANwRu6v3Dfi5R30/fbbb7/88kszPpiWlgYAYnHrF+X61C8DC7RkRRUo42oDMGdDhgWfKpZosirUrkZYT4cQejHPcdUgBEIhARJaIpE2iqFUd65cr9ACUHZh4U5NZcnLK6sUNADJbyp6Q+iV4DOJaQGCJdeqV0ZX97Q3IwmwE1EjPHl/pkjXxdWs7WMIAJM6CXYlSWMLldcLFKE2mG+EUDtR9FALAEz/8GB+o6/xQ7oFMLefVgDTv1c3I7xHvUSXLl2Kj49v9sfbRgCma4Sob7MRaMkCgLjCuqKvrjasIxmya/cVGIAhhF7Uc1w1KAtrCxKKNIWpaRV0mPnj9yhN2tmz9zQApEFoD7+mCrzU6cnpagCgbOxt2k0VM3oNjfPhbU+UZJSrj96VDXXnAsDMzoIjGbKTWbIp/nwvE6aQRXzkx18VLV4dIw4digEYQu1EjYQGINgmJoLGARYhNDfnEaCgCUPjxhXOqAW2bds2Z84cuum2Jk8zfvz4tLQ0a2vr/2JVL8TNiMlhELlVarGSFrKIzpYsioTEEpVMTXMZBACE2bCPZMiu3le837FxcI8QQk/zPAGYexd/QzKhVHHt0ImiDz+0qrtLqVOPHElRARCswO7BTeVuaNLPnstWA5CGfgHOGICh1sMkiVmBwnkXK9fGit924bAowoJPvevF254oWR9X80t/IwB4vyN/+x3JrWLV+XtyXZIJQuh1R9O0rpFhUwEWwWQyCQAaCOKNjL9Y3RdfjJqhoQFIE7eXWv3KYrECAgKa8UEer60kglIkeBgzEh6qUkpVwdYsHpPwNGYml6ruPFTp+jl1s2MTAFEFSqWGZj19dg1CCNX3PG3oOeFDBpiSQNecXfrFsbp5lPTDw9//nKACAIZvRHezxhcfbeGBJb/cVgGQRn0HhjXqkIjQKzXYjetlwrwv1vyRItW9Mi1AwGMSZ3PkuvGaPAbxaYAAAH6KEWuxZBEh1N4RRi6BQcHBwcHBXVybruJ+szWYBhZoVS8L0YxHuhkzpGr6No4wQQi9oOcJwED01vSPvFkErc7ZMabboLlr9py+dHb/6g/7fbSvSAtAsPyGDnZteL4lyzo6b+iU/Q+0QDBcP5gaafAfLB6hF0ASMDtIAACbbtZIVTQAGHPJ9zrwAWBd7RTmcT48OyGVUa4+kSlrxaUihBBqdR1MmQCQ/FgfDgCIK6orAwu3ZQPA1fuK1lgdQug19lwBGLCDFm2e58cngJZlnlw9Z3xkRP9Rc7cnVGsBgLIatXCSx6P4S5F1YdfPP8x826/T0DXRVVogmE4T1ywKxXwu1Ab0duB0tmSVybS/3ZHoXvnYjy9kEVfyFbGFSgBgksTUzgIAWBtXo9Y+7VshhBBq3zqYMQEgsUQfgHWxYgHAzWKlpjZFQh+A5WMAhhB6Mc8XgAEIwpacPvxFL2tWvSQFgjQKWbhn3dC6/EO68uKKydO+3HAqQ0IDEEzbgWuPrIs0wdQG1EYsCBECwJbbNWUyLQAYsslJnQQAsDpGfwg23IPnasTIrVIfSJO24joRQqiF1DWlBTnpSQm34uPibyWmZd4rKKlRt/aiXieeJkwOg8iqUFcptABgxiPtRVSNkk4v04dkQdYsFkUklagqFbhjhxB6Ac8bgAGQFn2Xnk9JOLn5qynvDuoX0XvAyMlfb71055+lPZvMHCeYJr6jl/0dfWhqR6z+Qm1HoCWrpz1bqqK33K7RvTLJl2/CJWMKlVfyFQBAETAzUAgAG+Jr5GosBUMIvU5kBVH7Vs+fMCDEw1LAFZnZOnt29AsI7BIY4Ovl5mRrIeIb2nmHRL6/aMOh6PzGo2VQPQwSvEyY9GOHYPoysNosRC6D6GzJ1NBwo0D5xO+CEEKNPH8ABgBAGngOmLJk8x9H/75w/tS+Ld9N6m7boF83IQyesnrz9oMXb+fm3/5zQS9rnI6B2poFISKSgF1J0sIaDQDwmMRkP33vDd3jSKQLp5M5s0ii2ZWMh2AIodeDtix685RQZ+fQ0XNX7ToTnVEsabyDRNPKqvup0ad3Lps5vKuLY9AH664Wa1pjsa8NPwsmACQ8rF8GVljXdQPLwBBCzfDS4yOe77Cpvi/7myL0EnkYM9524R7PlG2Ir/mhhwEATOjA235HklSiOpcj7+fEIQA+6yKceLL8l5s1ozy5BuwX26dACLU1lXvftTjSxP1OLa2mAUBx9ANLo8lP+jBnyPZ7vw9u29MBlVl7Pxrw4e67itqYi6B4xtZ29nZWJkIel8umtEq5TCouLy7IzysoqVHRALSqJG7H7IhL/2w4tXeKD6aqNM3PnAkACcVNn4ABQLgte2W0GMvAEEIvBA+o0JtodhfB6WzZgXTpR534zoYMNkV8GiD49t+q1bHi3o4cioDuduyuNqwbBcrf7kjmdBG29noRQi1Ba5U1lU/JEaOVkqd8mSNp613GZTHfDddFXwTbOmT0x5PHDe7TtaOdsMnxm1pZcVrs5TMHdmzZcSa9WpV3dOawBa4x63sbYLF2EzpZsADg9kP9r4ezIcOESxZLNPeq1I4GDADwNmUac8n7Yk1uldrBAJ+pEELP5Tm29unK0rL/pGyXriktk/8X3xihZ3AwYIzy5Gm0sLa2Af27Xjw7IXW3XH3srr4B/fxgEQHwe4KkRIrV1QihNkub9/sXa+4oaIKyGbT2WvK1Hd9O7Of3hOgLAEiuhXf3UXPWn0xIODzDn0/Qyrtbv/w1AzMRm2QnpEy4ZJlMe1+sAQACQDeFOeqBPiQjCQi1YQPAZTwEQwg9t+cIwJTnp3v7Dv/2QHLVy3sMleWeXzupq9ew3+/joy1qHTMChVwGcSpLrkvuZ5Awq4sQANbFiVVaGgA6mTP7OHGkavrnmzWtvFaEUHPtrZK3VNXeYW05/1Cbf+SvqzIaKLtJv+2a2dnwuQ+y2I6D1vy1JJxL0Iqbh4/nYAT2BL66LMTaQ7AQazYARD3WdaOHHRsA/snDAAwh9LyeIwCjnAPcSo4uGeXnFvLB8oPxRS26xKgrUs9smtnb06vf7N+TDfx8jDDnAbUOcx75Xgc+DXWHYIPcuK5GjPxqzV+p+kOwuV2EFAF/pEjzq/HZBKHXEoPFbikWo02XgapTbieraCDNI0f2Er3gZymX4SODmACauyl4BPYkfuYseKwMrKsNCwCuFzwqt4Oe9mySgKgCpQwb5yKEns9z3FYYAQsu3Tq1eKCDJG7HwhFd7G06RH667I/reZIXObxSFN8+un7uiCAHa58B0zdcKjQIm7UnJnr9AJwQhlrPp/58AzZ5JV+h28ukCJgTJASATfFi3X3UzZgx2J2r0tKra4M0hBBqW2iFQkkDEAKh4MVvqKTIUEQC0EqFEmOHJ+hkzgSA27WNEJ0NGRZ8qkymzarQV2cYc8mOZkyFhsZm9Aih5/R8+3pM235fH0tMOvnjuEBzojz59OZFY8McjU1dggaMm7l4w94z1xPScx6UVsv1G2haZU15Ue7dpJgLB379cd7EweFeFkbWAUNmrT4YW6gSeQxcsDsu7craMV78//AHQ+iZRGxyUic+AKyIrtY9e/R34viZMx9KtTsTJbr3fBYoZFHE8buy5NK2XoePEHoTUbYOthSA9n78zcIXTuqXJcQmqQBICyuLNn3M15o6mTNJApJKVOra/70h1iyAerO/etpzAOCfPKxrRwg9lxe44nKdBizcHXsv68q2RSP9zZigrMiOPbN3w//NHDcgzM/T2cbMgMdi8Q0MhRwWR2hi5ejeMbjPyE+++Gn7sWtpD2U0IXLvP33dieS8lOPLx/piuyXUJkz05ZtyyYSHqgv39DfO2UFCANh8W1Kl0AKAjZAa78OjAVZF4yEYQqjtYfgOHOBAAS27vHzh/vwXSSSkxTErF+24pwHSJKynL/M/W+FrTsQmHQ0YCg2dXq7fhgux0fXhqKvI6OXABoCLuVgGhhB6Li/cMpVjGz7xh/CJX+ddP3H01LnzFy5cic+pVOmOD2itSlpd9fi7CZJv5RvWu3efPm8NGhzhYYA7bKht4TGIaZ0Fi69Wr44RRzhwSALCbWsb0CdIdBmJUwME+9OkV/IVNwqUuux/hNDrIvtWfEULmz2RRi5+zs/f2+KVYwVPmdHtf7P/qc77c0LXh/E//jB7VJDVM9qGaCrTzvxvycIlfyZV0wSrw+RpfTEl5Sk6mTOzK9W3i1U+pkwA6Frbh0NLA0kAAHQwY1rwqcIaTUa52t0Ym9EjhJ6huZcJrn3oyBmhI2csBXVVTvyNuPS8wqKioqKi4pJqDc/EwtLS0tLSyta1U0iQl1lbbh+F0Fhv/rY7kvRy9fFM2WA3LgDMDRKNPFz6e6JkQke+KZc04pCTOwlWx4pXRVcfGGbadh/DEEKNLAwN3N/CvDDOyP2V+0a04TsZ5T5188rzvaaeLFQWXFg5IWTtZ65B4eHB/l7ODrZWpgZ8DofFoFVyuaymrOh+fk5GQuz1q1FJRVItDQCkYdg3vy3q0oZ/vDagkznrcIYs4aFynA8PAOxElK2Qui/WpJervEyYAEAAdLNjH0iTXsqVuxsLWnu9CKG2ruX7NAwDp+C3nIJfwloQag0MEmYFCuddrFwdI4504TBJwt+C2ceJcy5Hvim+5ttwEQBM7MTflSy5/VB1Nkfe34nT2ktGCKHHMT0+3neBM2PMrN/vVGppVfnda8fuXjv2zI+RQu8xy3dt+iQAj7+ezs9C14m+rhI4xIZ9IE16o0CpC8AAoKc9+0Ca9J88xRR/DMAQQs+AB+UIwWA37m8JktQy1b5UmW6Dc0Gw8GKufG+KZKIv315E8RjEjM7Cb/6tWhkl7u3AadtNqRFCdRw7+fm1sDCH7diG8w8f4XpN+F/cWx//sWnD//Ycv55d9bSO6ARD5Bj89phJ06eNC7XGtOpn8zZhchlEVoW6Qq414pAAEGLNOpAmjSpQfuirj1672bKZJBFfpKxUaA3ZeJNACD0NBmAIAUnArEDBJ39XbIwXD/PgchmEsyFjsBv3ULpsfZx4VYQhALzrxduZJMmsUO9Pk47x5rX2khFCz2VF1K3WXsKrwzAPem/xrvcWqypz7sTdTEzPyi0oLquokSnVwOTyBQKBgZm9q4eHZ4dOHRwNsenG86NI6GTBjCpQxhcp+zhyACDUhgUAMYUKDQ0UAQAgYBGBVswbBcqr+YqBrtzWXTBCqI3DAAwhAIA+TpxO5syEh6odiZJP/AUA8Fmg8ESm/Ohd2aROfC8TJkXCZ12E089WrI8TD3bn8hivwZY4QuiNxDR06tzHqXOf1l5HexJoyYoqUMbVBmAWfMrJgJFTpU4sUfmZ64PZXg6cGwXKi7kYgCGEnqFZAZjm3sXdF3LUz34jQZAUg8XmCw1NrexdPNxsRbjlhtomAmBesPC94+VbbkvGevNEbNJGSI3x5u1IlKyJqdkywAgABjhz/C1Yt4qVv9+RTAvALH+EEHpTBFqyACCusK4MLNSWlVOlvpqveBSA9Xfi/HC9+mKuXKWlmSRu0iGEnqhZAZg6bvMnH71wXymC5FsH9B095fOFE0PMqOb8uwj9l0Jt2GG27Gv3FVsTJHODhAAwLUCwP016IVceX6TsbMkCgPnBwrHHyrberhnrzdNVAiCEEGr3OluyKBISS5QyNc1lEADQ3Y69J1l6JV8xvbN+P85WSHkYM9LL1VEFym522FgSIfREr/AJktZKCuKOrP64m0/Pb/4pf0p5MEKtZX6wkADYfkdScheHhQAAIABJREFUItUCgAmXnOTLB4AVUfopzMHWrJ72bLGS3hhf05oLRQg1D62SSRSNpxXLcs//vPCjEf1C/APC+o2asWJ//MPnyPJAbw4ek/A0Zqq1cKe2F2JXGzaDhNvFyipF3aS5fk4cADh/r4WjDxBC7VyzAjD2oG0FpUXxvwyxZRAAQHCsOr8zad6SNb/8b8fuXdt+Xf/jwilDg215JAEEz2PUkv/t2Pbr+mVfzRzf18eURdDqkqvfj5iwLbeFozERevk6mjH7OXGkanrTTX3E9bGfwIRLxhUpL+bqO6ktCBFRBOxJluZVN36KQwi1TXRV4h9fDA+wFnCFvouiVI9/SVt8Zm53v/7Tlv928Fz07VvXz+3f+PnoYJ/w6fvutrB/ImpXAq10WYhK3X/ymUSABUtDQ9QD5aP39HXiAMC5ewrcZUYIPUXzmnCwBNzslR/POXpfw3Qc/P32n2f2aNzIVl18bcPU9xYePrhpf9dTBz/z5wMALU7dO3vkx9uSy84sXfnPmI0R2EsOtTXzgoXnc+V/pEg/9BXYiygek/jUX7D0evXK6Oqe9mYkAR7GjMHu3EPpstUx4rV9DFt7vQihZ5Ik/vr+4FmHchQ0ADTIgNdk/Tph7Nq4yvp7grSmNPrn8f3K1Jd2j3XEnHkEABBoydqRKIkrqgu3utmxYwqVV/IVj+ZD+pgy7YRUvliT8LCuOQdCCDXQvBREbdaWeStvykAQ9v2JffOaiL4AgGERNvvPkz924xWfXTB60SUxAAAh9Br3y97P/ViEJv/4kVhlEx9Dj6xbt86lWZKTkwGgqqqqtX+C15KzIWOoO0+thfVx+kOw8R14diIqo1x99K5M98q8ICGXQZzIlCWVqJ78nRBCbYG26NCn70zXRV8EJbTx8nEQPeqPQFedXLLkfIUWgGBY9V60+9KtxKjjWxe/19mYJGjVvX2zPttTgOkaCAAAulixAOBmsVJTe7zV3Y4NAP/m1zsp7e3IAYDzOZiFiBB6omYFYJqsw39GyWnC8O2Zk32eNsOR6fXRrHeMCVXmtpX7ivQXLKbP8OEdGKApiovNw9va0yQmJmY3i0KhAAC5HK/+zTSzs4BFEUfvytLL1QDAJIlZgUIAWBsrVmlpALDgU+914NMAP9yobuW1IoSeTnz+/+bszVXTBMPmrSWnM4vyE4/N6lib/EFXnNpxpEgLQHACvj518odxPf06BA/86Jud/15a0dOIBG3pyVW/3sFqMAQAYMYjHQwYNUo6vUy/9eZtyjThkgViTXZl3S9JX0cOAJzJxlswQuiJmheAZadnq2mg7L08+M94K9/D24ECWhYXlVB7VEDZOdhRAJrSh6VYQvM0W7Zsyc7OznpxPj4+AGBhYdHaP8HrykZIjfXmaWlYHaM/BBvkxvUwZtwXa/YkS3WvfOLPN2ST0Q+UV/KxSgShtuvh4U1/5GmAYPstOnzwq/6OvHrNwWVXT18W0wCUzfgls/0ea1vH9Z350zQfBoA69eD+BIzAkE6gJRMAYmvLwEgCwmwbHoJ1sWYZccicKnVWJf7iIISa1qwAjFYqFDQALa4SP6vMVCuuEmsBaLVK/eitWq0WAIDGEtWnI0nSycnJ+cWx2dj9tqWmdxbwmcT5e/KbRUoAoAiYHywCgI3xNTVKGgAM2OSnAQIAWBEl1uKvMkJt1ZVTV8Q0kIaDF84ObFR1rLp95XqlFoC0iBzVU1j/a8yO70S6MAA0WbHxpfg3jgDgUR+Ox8rAdFmIj+/EUQREOLAB4BxmISKEnqBZARjD3ceDAaDJ+/v4zadfXpSJJ8/kaAAYzu7OtSkfqtTEVBUAZWVriZXNqI0y4pAf6hrQR+sPwXo5sENsWBVy7dYEfQP69zvy7ERUapnqUW0YQqitSUiqoYFgdR3Q27DRYFxNztV/8zQApHGfgaHchl9luHu7Mwig1ZlpmXiSgQCgbhxzXQAWbssmAKIfKOsqw2qb0WMWIkLoSZoVgFGuw0Z1YROgTt0w5fMzRU9KJNQ+vPDFx2uS1EBwAkYNc9dFW+qc3ct3ZWuA4RwWaotzbFHbpWtAH1uovJxX24A+WEQAbEvQTwl7VBu2MlosU+MOOUJtUUGRFoC0dHcVNYq/6PJrlxPVAAQ7qGdIEz15uUZGHACgqyur8e8bAQCAkyHDlEs+lGofFX2Z8UgvU6ZMTccW1uuOKGARiSWq3CqM3RFCTWheCES5TVk2zYtF0NKEDYP8wict/+tqRqm8tqUGLS/LvH5g1ZQefpGr4yU0wfaesWqqJ0VXxu/8cnxoyMfHirUEL2jS+wHN64GP0CvBYxJT/AUAsCpGn2TYyVw/JWxjvP5YbLAb18eUWSzR7E6StuJSEUJPIpfTAIRAwG8Uf4Es+nKMggZgdOweZtz4y6DPlKflchzqhHQIgBAbNgDcKKgLt3rYsQHgUl5dFiKbIno7cADgFB6CIYSa0twzKEG37w9tHunIImhVcdS2he928zAXCgzNrKytzAz5QjO3sJHzt1wtVNIE22Xsb8e+DxcAaAvPbli5J/ahmiaNu/3fpumemICI2rjxPjwrAZVSqjqZpU8ynBsspEj4M1V6r0oNACQB84OFAPDzrZpKOXb1RKjNEQoJAFoikTaKoVR3rlyv0AJQdmHhTk3dj+SVVQoagOA3Fb2hN1VXaxYARD2oC7d0FV/n79WLtSJdOABwKgsDMIRQE5qfBMjxmLg35p91EwJMmAQAAK2WVZUWFRaVVumzsQhS6DFixYWoneOc62YREmyL4MlbLhyb58dp6dIR+q+xKWJWoAAAforWN6B3MWSM9OCptbCqtjasmx073JZdrdD+cqumNdeKEGqKtQUJoC1MTatoEIFp0s6evacBIA1Ce/g1NTBXnZ6crgYAysbeBvcLUa1QWzYAXC9QPmq/5GfBMuWS+dWazIq6hMPudmwhi0gpVWEvRIRQYy2qwqLMus7YEZeXeWXPqs8/GhoR4u/t5uTk5uMf0nv4lK82HLqVk7x/Xphp7T9B2o7ceDklPy9qyyQ/A9xORK+HYR48VyNGvlizL1V/CDYzUMBjEKez9Q0SAeDzECFJwM4k6X0xTlZAqG3p4m9IAq24duhEUb0ITJ165EiKCoBgBXYPbqIADDTpZ89lqwFIQ78AZwzAUC17EWUrpCrl2rTaaWAkAd3t2QBwMbfuvItFEX1wIBhC6Ala3gaD4NmHj527bOuhCzduJmdkZ2ck3bxx/sDmJdOH+JrUu2cRQtfgrp5mTxvcjFBbQxEwJ0gIAOvixBKVfgrzB/UbJHqbMge5cZUaek2suBWXihBqLHzIAFMS6JqzS784VvQoTZh+ePj7nxNUAMDwjehu1nhLUFt4YMkvt1UApFHfgWGNOiSiN5q+DOxBXRmYruLrYm69sZBvu3ABsxARQk3BPoQIPUN/J46/BatMpt2RKNG98om/vkHio9vtnC5CNkUczZAllaie/J0QQq+a6K3pH3mzCFqds2NMt0Fz1+w5fens/tUf9vtoX5EWgGD5DR3s2vB8S5Z1dN7QKfsfaIFguH4wNdKgVVaO2ixdGdiNgrpwq7sdm0URN4uUFY8VA3ezYxuyybQy1eOpiQghBC8vAFNV3EuMvXbp7OnT569E384skWPPKNSOzAsSAsDWBImu0wafSUwNEADA8qhqjRYAwEZIvdeBRwP8cKO6VVeKEKqPHbRo8zw/PgG0LPPk6jnjIyP6j5q7PaFaCwCU1aiFkzwexV+KrAu7fv5h5tt+nYauia7SAsF0mrhmUShWLKP6dGVgMQ+U6tpoi8ckgq1ZGhouP9YLkUFCHycOAJzGLESEUH0tDMDo6tTjq6dG+loZmjr7BoVH9I+M7NsjxN/dwtDcu++UVcfScHoKag9CbFjd7ep12hjnw7MTUZkV6kMZ+gb0UwMEhmwy+oHySr7iyd8JIfSqCcKWnD78RS9rVr1MQ4I0Clm4Z93QuvxDuvLiisnTvtxwKkNCAxBM24Frj6yLNMGSZdSAOY90MWRIVHRiSV0Woq4X4uNlYAAQ6cwBgBOZsle8QoRQG9eCAIwuv/HTUP+AwXN/OZ1YJNU+HmnRtKI09fyW+UMCAoavjanEIAy9/haECEkCdiVJH9RoAIBJEnO6CAFgTWyNru+nAZv8RH8sJtbi7zxCbQhp0Xfp+ZSEk5u/mvLuoH4RvQeMnPz11kt3/lnas8n5XwTTxHf0sr+jD03tiNVfqEldbVgAcP1+wzKwy/kK1WM3gDBbtjGXzKxQp5RidjpCqE6zZyHL76wZMXDBpXItABCUyLFL9/DOXvZmIrZWUpqfdvPff6KyKtW0LOvw3IES6tKxGT7sl7hqhF45LxPm2y7c45mytbHiFb0MAeAdN+62O5LEEtXvdyS6jMQJHXi7kiRpZaojGbJhHvjkhlAbQhp4DpiyZMCUJ7+DEAZPWb15rKW7f9eQjlZcPPlCT9bVhr07WXrjgWJaZ4HuFRsh5W7MyChXxxYqQ230jzwMEga6cHcmSY7elXmbNjXtACH0RmrmCZgm89eZ3/xTrgWC5RC5+FhaQdaN4zs3rlj67VdfL/5x3bbD/2bcTz+5dKAjmwBtybmvZv2WgzNq0WtvbrCQSRJHMmR3y9UAQAAs6ioCgM23akplWgBgU8TsLkIAWBUj1o/DQwi9Nni+w6ZOeX9YL1+MvtAzhNiwSAJuFqnkj13qdYdg53LqZaEPcuMCwLG7Mg3eExBCtZoXgKnjtv58TUIDaTZw08Uj3wx0FTS8WRF85wFfHrqwaaA5CXT15Q1bb2IPIPS6sxNSY7x5GhpWxejbzQdbs3rYsyUq+ueb+tqwwW7cDmbMYolmZ23LRIQQQu2MIZv0MmEqNHRcUV0WYl8nDgD8nVOvDZm/BdPZkPFQqn28ayJC6A3XrABMc/fixRw1ANP/s+UTnZ98ps50/mDF7M5MAtRZ589n4Yha9Pqb1lnAYxLn78nj66YwiygC9iRLcqvUAEASsChEBACbb+tbJiKEWlFp2X+y+0fXlJZhZ7s3W3c7NgBceaztoa8501pAFUs0CQ/rVXy948oFgCMZ2IoDIaTXvADsfu59DQDl0KtXo/kp9VGuERHOFIAm/14+BmDo9WfKJT/qxAeAZVH6QzAPY8YQd65aCz/F6A/BHrVM3Fh7LIYQai3TvX2Hf3sguerl7YbIcs+vndTVa9jv93GH5Y3Ww54NAJcfa3tLAPRz4gDAmex6sdYQdy4B8He2XKrCNESEEEAzAzBaJpHSACRfKHjW5wmBUEA8+gRCr7/JnQRmPPJmkfJcjn4DfE6QkMsgTmXJHu166lom7k6S5lfjxgNCrSnAreToklF+biEfLD8YX9SiHDB1ReqZTTN7e3r1m/17soGfjxEWir3RAixYIjaZWaEuENdd599y5gDAmax6x6P2IsrPgiVV0+fv4bEpQgigmQEYaWxmQgJo7mdmP+tAXZGdmacBIE3MTF7WzGeEWhWPSUzvLASAFdFi3RRmSz410ZdPA/xYO4XZy4Q5xJ2r0tI/1VaLIYRaxYJLt04tHuggiduxcEQXe5sOkZ8u++N6nuRFDq8UxbePrp87IsjB2mfA9A2XCg3CZu2JiV4/ACeEvdkoEkJtWADw+OzHzpYscx6ZL9Y06Ds/2I0LAEfvYhYiQgigmQEYw8vfl0eAtuLU9sMPnnYbo4uO7DhZpgWC1zHAs9kd7xFqY8Z48VwMGdmV6v1p+inMn/gLTLlkbKHy0QbnvCAhl0GcyJTdKsbxLwi1HqZtv6+PJSad/HFcoDlRnnx686KxYY7Gpi5BA8bNXLxh75nrCek5D0qr5fpDDK2yprwo925SzIUDv/44b+LgcC8LI+uAIbNWH4wtVIk8Bi7YHZd2Ze0YL37r/lSoTWichUgS0MeRAwBncuoddr3jymGSxL/3FQ+lmLmKEGpeAEYY9xseYUCAtuzY3AmrYqqaTi6kq+NXvz/7UIkWCIOIYX2bHHeJ0OuIIuGzLkIAWBcnlqppAODXHostjxKrtQAAFnxqQkc+DbAyurpVF4sQAq7TgIW7Y+9lXdm2aKS/GROUFdmxZ/Zu+L+Z4waE+Xk625gZ8FgsvoGhkMPiCE2sHN07BvcZ+ckXP20/di3toYwmRO79p687kZyXcnz5WF8DvJshnZ72HALg2n2F8rEe8/2dOQDwd3a9AMyQQ0Y4sDVaOJIhfdWrRAi1Pc3LCyQsRn87259LgLbkwsIenfrOWHc4KrNMobv+0Mry7OijG2b17xQ+/+xDLRAcv1nfjLbAOxZqTwa4cDqZMx9Ktb8n6NvNj/HmORkwsivV+x4di/nxDTlk9APlpVzsPoxQ6+PYhk/8Yd/N3Myr+9Z/OXlQiLMh89GdidaqpNVVNYq6B2mC5Fv79Xtv7oodZ1PyUs9smBnpIcJUevQ4cx7pbsyQquibRXWZDl2t2UYcMrNCnVlRrwPnCE8eAOxLlWFFPEKouXmBLP9F+zYnRXx0IE8lz72w8bMLGz8jSCZXyGeqpGKZUlt7fSEYtkN/3vdlAPtlLRihNoEA+DxENPZY2a+3a9715plwSQYJ80OEU/+uWBcrHuzG5TMJEZucFiD4/nr1iujq7vZmFG5CINQWcO1DR84IHTljKaircuJvxKXnFRYVFRUVFZdUa3gmFpaWlpaWVraunUKCvMzw3oWeroc9J7285nK+IsSGpXuFIiHCgX0wXfZ3jtzVSFD3Tju2BZ/KqVLfLFJ2tmS10noRQm1C8wuzmC4T/ohxCJw+9YfDqVUaWrd/WFVZ9waCFLkPXvjzpvkRVlj+hdqhYGtWhAP7Yq5iQ7z4/8INAKC/EyfQkhVXpPz1ds2cLkIAGO/D25koyShXH0yXjvLktfaSEUKPYxg4Bb/lFNzay0CvsR527C23ay7nyT8PET568S1n7sF02eks+bSAugCMImGoO3fzrZoDaTIMwBB6w7Uon4Ky6LFgf2Jeytnfl8+fOLRPeJCfj5ePX5fw3oPfn/vjb6eT81IOLcLoC7VjC7uKKBL2pkgfpZosChURAL8lSAprNADAooi5wUIAWBtbo6sWQwgh1G4EWrGELCK9XK275ut0t2MbcsjUMtXd8vpZiB5cAuBElkyCA8EQerO1PKGdFLn3+WDBim2Hzv0bfSspJelWzL/nj2xftfDD/p4GmC6P2jcXQ8ZID55GC2ti9e3m/cyZkS4cuZpeG6efwjzQletvwSyWaB5ViyGEEGofGCSE2LAB4HKe4vEX+ztxAOBEVr2+806GjM6WLKmKPp2F/egReqNhiIRQi8wMFPAYxN/Z8ptFSt0r80NELIo4lC5NLlUBAAEwP1gEAJtv15TKsAExQgi1KxEObAA4d69B33kuABy727DlxkhPLgAcSMcADKE3GuYHItQiFnzqw078jfE1P0aJ9w0xIQDshNR4H962O5IVUeIdA40BINia1cuBfSlXsSm+5ttwUWsvGaE3mObexd0XctTPfiNBkBSDxeYLDU2t7F083GxFzP9+deh11NuBQxFV1wuUEhXNr22sGWzNsuBTedWapBJVR7O6351IF+5316rjCpXZlWpnQ3wGQ+gN9Rx//MozMwNmnG5hG232gA0317+FRaeoPZriJ/grVXqzSPl3tvwtZw4ATOssOJguu3pfcTlPoZvU+Xmw6Epeyd4UyfsdeY4GeNNFqJWo4zZ/8tF++bPfWA9B8q0D+o6e8vnCiSFm1H+yMPTaMuGSfhas+CLllXzFAGeO7kWSgLecOTsSJScyZY8HYDwm8Y4r989U6Z8p0i9CcT8OoTfUczwI0jVFWZmZL3q7aoBTVIMVp6id4jGJmYHCr69ULYuqjnBgsyjCkE1ODRD8eKP6hxvV4bZmFAluxowRnry/UqWrosUb+xm19pIRQi+C1koK4o6sjj+xa8eifUcX9zTGoRLocX0dOfFFyvP35I8CMAB4x5W7I1FyPFP+eYiIfOw3ZpwP789U6cEM2dxgIRvnkyD0RnqOAIwQ2ft06NDSEzB7EV5kUPs12ou3M0lyt1y9N0X6QUc+ALzfkafrjrgvTTrGmwcAn3URHr8rO50tj8chMAi1FvagbQWlG+7t/2TwjKP31TTBsQroG9krqIOLlbGQrZFUFOckx1w6+XdsgZTmeoxcNP9tG03Vw/zMpOgLZy6nlCpLrn4/YoJD/LFJDlhBjer0c2Ivi4J/chUaLVC1vxr+Fkx7EZVXrYkrUgZZ1V3zvU2ZHc2YiSWq01nyIe7c1lkxQqhVPUcAxuq3Ki5x1X+/FIReXxQBC4JFk0+Xr4+rGeLONWSTTJKYFyScca5iTaz4HVeugEWY80h9tdiN6v1DTXFHAqHWwBJws1d+POfofQ3TcfD323+e2cO60XaIuvjahqnvLTx8cNP+rqcOfubPBwBanLp39siPtyWXnVm68p8xGyNwrh96xMGA4WLIyKpUxxYqH01kBoBIF+7mWzUnMmWPB2AAMMabl3i56o8UKQZgCL2ZcA8PoZcjwoEdYsOqUmg339I3oI904XS2ZJXJtFsS9K9M8ROY8chbxarzOS1M6kUINY82a8u8lTdlIAj7/sS+eU1EXwDAsAib/efJH7vxis8uGL3okhgAgBB6jftl7+d+LEKTf/xIrPIVLxu1dX2cONBEL0QOAJzKkqu09cowBrlxRWwyrkiZUf4cDWEQQu0OBmAIvTRfdBWRBOxMlOaL9RM5F3UVEgDbEiRFEg0A8JjE9M5CAFgeJVZjR3qEXj1N1uE/o+Q0Yfj2zMk+T8sEZnp9NOsdY0KVuW3lviL9wzPTZ/jwDgzQFMXF5uEfMKqnr2MTzeg9TZieJswKufaf3HqFHFwGMciVAwB/pkpf5SIRQm0EBmAIvTQ+pszBblyFhl4ZpZ/L7G/BinThytT0qmj9K+968ZwNGTlV6r/wvovQq6fJTs9W00DZe3nwn/FWvoe3AwW0LC4qQaV/ibJzsKMANKUPSzX/9UrR66WTOcuMRxaINWllqsdfH+rOBYDDGQ0Hf+lqgw+lS2Vq7FGG0BsHAzCEXqb5wUIegziVJYurncu8IETIpoijd2WJJSoAYJAwP1gIAOvjxBIV3ncRerVopUJBA9DiKvGz/vy04iqxFoBWq+qekLVaLQAAjX+6qAGSgAgHXRZivcOuIe5cioSLuYoKeb1TU08TZoAlS6ykj2fiUGaE3jgYgCH0MunmMtMAP16v1j2i2Qqp9zvytTT8eKNa955+TpxAS1apTLv1dk0rLhWhNxHD3ceDAaDJ+/v4zadXYioTT57J0QAwnN2da/tVqVITU1UAlJWtJU4DQw31d+IAwOmsegGVKZcMt2WrtPSJRvN8xnnzAGBnImZDIPTGwQAMoZdsip/AnEfefqg6VXsbnt5ZYMolox8oz9X23lgUKiIAttbWhiGEXhHKddioLmwC1Kkbpnx+puhJf3/ahxe++HhNkhoITsCoYe66aEuds3v5rmwNMJzDQm3x7okaCrNlG7LJ9HJ1ZkW91hrD3LkAcCSjYaD1tivHlEumlqkeZUwghN4QeAtB6CXjMYnZQUIAWBElVmhoAOAziRmB9Xpv+Jkz33LmyNX0hjg8BEPoVaLcpiyb5sUiaGnChkF+4ZOW/3U1o/RRchgtL8u8fmDVlB5+kavjJTTB9p6xaqonRVfG7/xyfGjIx8eKtQQvaNL7Ac8xwwW9aRgk9NUdgmXXO+zq68QRscnbD1VZlfUCMyZJjMZDMITeSBiAPYO6prQgJz0p4VZ8XPytxLTMewUlNdg0Fj3DcA+elwnzvliz7Y5E98oYL56rESOnSr0rSf/K5yEiJknsT5PexTbECL1Kgm7fH9o80pFF0KriqG0L3+3mYS4UGJpZWVuZGfKFZm5hI+dvuVqopAm2y9jfjn0fLgDQFp7dsHJP7EM1TRp3+79N0z0xARE1KdJF13e+XhYimyIGOHMA4EijVhzjvHkMEs7kyIoxGwKhNwkGYE2QFUTtWz1/woAQD0sBV2Rm6+zZ0S8gsEtggK+Xm5OthYhvaOcdEvn+og2HovOlWIqNGqMI+CpUBAA/36x5KNUCAEXCwhARAGyIr6mUawHATkSN8eZpaFgRXd26q0XoTcPxmLg35p91EwJMmAQAAK2WVZUWFRaVVuk70hGk0GPEigtRO8c5Mx99imBbBE/ecuHYPD9OK60btXmhNmxDNpnRKAvxUS9ETf2HBgs+1c+Jo9HCHyl4CIbQGwQDsHq0ZdGbp4Q6O4eOnrtq15nojGJJ4/awNK2sup8afXrnspnDu7o4Bn2w7moxblyhhkJsWH0cOVIVvTZW34C+lwO7mx27SqHdEK9PO5wZKBCyiIu5iusFiid/J4TQy0eZdZ2xIy4v88qeVZ9/NDQixN/bzcnJzcc/pPfwKV9tOHQrJ3n/vDDT2lskaTty4+WU/LyoLZP8DIhWXThq056UhRhoxbIXUYU1mmv3G17tx/vwAWBvilSpwR1dhN4UmMZeR5m196MBH+6+q6i9BBIUz9jazt7OykTI43LZlFYpl0nF5cUF+XkFJTUqGoBWlcTtmB1x6Z8Np/ZO8eG26vJRm/NlqOhKvmJ/mnSsN6+DGRMAvgoVRe4v2Z0sGe/DczJkGHHIKf6CVdHiH2+Ijw5nk/hch9ArRfDsw8fODR8795lvFLoGd30VK0Kvv0gXzv406aks2YzOgkcvEgAjPHmrY8T706Td7diPvz/YmuVpwkwrU53Jlg9ywwcJhN4IeAJWSxbz3XBd9EWwrbtO+L9tf9/KraguzUu7ee3SuTMnjx0+dPjoidNnL16NS84prqoqTL78108zIj1EJNCqvKMzhy24UIV7V6geexE13oenpWFZlD7J0NWIMdKDp9bCstpJzR/68q0FVEqp6gSOgkEIoddfqA3bkNNEFuIoTx5FwrkcRblM2+Aj73XgAcD2RMmrWyVCqFVhAKajzfv9izV3FDRB2Qxaey1fKZAsAAAgAElEQVT52o5vJ/bzsxM+qc6a5Fp4dx81Z/3JhITDM/z5BK28u/XLXzMwExE1ML2zwJBD3iioa0A/O0jIZxLn78lvFCgBgE0Rn3URAsBPMfqWiQihV0tVcS8x9tqls6dPn78SfTuzRI5/iKgFGCT0dWwiC9GMR/awY6u09OG7DbfbhrlzTblkwkPVTexHj9CbAQMwAADQ5h/566qMBspu0m+7ZnY2fO5UMLbjoDV/LQnnErTi5uHjORiBofoM2ORngUIA+P5GtS6/35RLfhogAIDvr1frAq6h7lxdy8SdSViEjdArQ1enHl89NdLXytDU2TcoPKJ/ZGTfHiH+7haG5t59p6w6llaNgRhqHl0vxMZ5DaM8eQDwV6N+GyxK34/+UeNchFD7hgEYAACoU24nq2ggzSNH9hK94Gcpl+Ejg5gAmrspeASGGhvrw/MwZuRXax6ll3zoy7cVUqllqgNpUgAgCfg8RAgAP9/UN0hECP236PIbPw31Dxg895fTiUVS7eORFk0rSlPPb5k/JCBg+NqYSgzC0IsLs2GbcsnMCnVKqerx1yMcOOY8MqtSfau44UnX+x34bIo4myPPr8YnCYTaPwzAAACAViiUNAAhEApevA8CKTIUkQC0UqHEWzVqhCLg6zADANgYr29Jz6aIBSH6tMMaJQ0A3ezY3e3Y1Qrtxps4lxmh/5r8zpoRAxcczZbTAAQlcgoZ+N60+V/+35Lvvlk4c+KQcFdDBgFAy7IOzx04emMytihFL4oiIdKFCwBH62cbUiQMcecBwL7UhodjJlwy0oWjoeHRrEiEUDuGARgAAFC2DrYUgPZ+/M3CFz6BkCXEJqkASAsrC/zfiZrS1YbV24EjUdFrYvS9N9524QZasspk2s239BHXwq4iioBdSZJ7VTiXGaH/kCbz15nf/FOuBYLlELn4WFpB1o3jOzeuWPrtV18v/nHdtsP/ZtxPP7l0oCObAG3Jua9m/ZaD59LohQ125wLAsbsNB3+N8uQSACeyZFJVwy3byX4CAuDPVKkYd3MRau8wYgAAAIbvwAEOFNCyy8sX7s9/keN/WhyzctGOexogTcJ6+jKf/QH0ZvoiVMgkiQPp0uTajJRvwkUkAb/dkeRVawDAw5gxzIOn1sKqaHGrrhSh9k0dt/XnaxIaSLOBmy4e+Waga6O8B4LvPODLQxc2DTQnga6+vGHrTdwUQS/Kz5zpZMB4KNVG1R/z6GTI6GLFkqroY41acXgYM4KsWRIVfTAd64ERaucwANNhBU+Z0U1EgCbvzwld+y/YFVP47KwTTWXayVXjQ/suvlFNEyyfydP68l/BStHrydGA8UFHnpaG767qK/t9TJmD3LhKDf0o4prdRcBjEKez5XHYCAuh/4jm7sWLOWoApv9nyyc6P3nTjOn8wYrZnZkEqLPOn8/Cqhz04t5x40CjLEQAGOPNA4DdyU1EWR/68gHg9zsSDR67ItSu4SBmPcp96uaV53tNPVmoLLiwckLI2s9cg8LDg/29nB1srUwN+BwOi0Gr5HJZTVnR/fycjITY61ejkvTF26Rh2De/LerCfua/gt5kMwKFR+/K4oqUJzJl77hyAWB+sPDvbPmpLNmEjrxAS5YFn/qwE39jfM2yG+L9Q01wLDNCL5/mfu59DQDl0KuX65MGjehQrhERzlRsuib/Xr4GPJ7+ZoQaGerO2xBX83eO/LtuNIdRd0Uf4MJZep1MLVPdeajyNa+3CdDbkeNqxMisUJ/MkuFQZoTaMQzAHmF6fLzvAmfGmFm/36nU0qryu9eO3b127JkfI4XeY5bv2vRJAB5/oafjM4m5QcLP/6n68Ya4tyOHxyAs+dRkP/76uJrFV6uPDjclCZjiJ/grVXqrWHkqS/62C6e1l4xQu0PLJFIagOILBc/KANG3ZdJ/AqEXZC+ifM2ZCQ9VF3IVj1/PmSQxzIO79bbkjxSpr7nB4x8hAD705X9xuerX25J33Li4DYdQe4UpiI/jek34X1z6jR3fjO/uYsB4+pWPYIicwsZ8se3ftFu7Pw0wwMskeg7DPHidzJnFEs2vtb03pvgJrAVUSqnqSIYMAHhM/VzmlVH6uWEIoZeJNDYzIQE09zOzG2aGNaTIzszTAJAmZiZ4q0TNMqS2FUeD18d680kCjmXKqhQNcw2HunPNeWRamepqPjbgRKjdwhOwhhjmQe8t3vXeYlVlzp24m4npWbkFxWUVNTKlGphcvkAgMDCzd/Xw8OzQqYOjITbdQC+EJODrMNHIw2X/S5CM8OTZCSkOg5gXLJxzoXJ5VHV/Zw6fSYz05O1MlKSXq3ckSSd3woNVhF4qhpe/L4/IEVec2n74wTvvWT8xtKKLjuw4WaYFQtgxwBNvlahZ3nbhfn+9+p88eZlMa8Kt+2WzF1GhNuyr9xVH78omdKh3nWdRxISO/FXR4q0Jkm52WNqAUPuEd5UnYRo6de7j1LlPa68DtTP+FqzB7twjGbIfrlf/0t8IAAa5cXclSW4Vq369XTOni5AiYGFX0cST5T/frBnhwTXi4N47Qi8PYdxveITBsaOVZcfmTljlcXB+UFMJDHR1/Or3Zx8q0QJhGDGsrzHmOKBmMeGSPew4F3LlR+/KdA02Hhnjzbt6X7EnWfpeB36D36/3fPi/3qq5dl+RVKLqYIY7vQi1Q/hsh9CrtjBEJGARZ3PkV/IVAEAAfBlqQAD8liApEGsAoHvtXOb1cTiXGaGXi7AY/e1sfy4B2pILC3t06jtj3eGozDKFLuGXVpZnRx/dMKt/p/D5Zx9qgeD4zfpmtAXGX6jZRnhyAWB/WsOeh30cOeY8MrNCHVfYsO2tgEWM9uIBwNYEHMqMUPuEARhCr5oZj/zUXwAA31+vVmsBAPwtmIPcuHI1vTyqWvce3VzmvSmS7EocQYTQS8XyX7Rv8wh7JgG0PPfCxs+GdXUz47H5hkaGfA7X1CVkyMz15+7JaSAYtkN/3vdlAGaBoRaIcOAYc8mMcvWjIZA6DBJGeT2xH/1EXz6TJE5nyXKr8BaAUDuEAViLySsKHxQUFBQUPCiXt/Za0OtiUie+syEjs0K9M0m/wfl5iJDHIE5myWMKlQDgYcwY6cVTa+HHG9WtulKE2iGmy4Q/Ys4tG+FtQOkOt2itSlpVWSVVanUnYQQp8hj6/d8xf010xQQw1CIMEga5cgHgQFrjVhw8BglnsmXFkoaT5iz51FB3roaGX2/jIRhC7RDWgLWU4u8ZHkP3iGkAzsj9lftGvLy90ry8vDNnzjTjg6WlpQCg1eIcx7aLSRLfhIk+OFm+Lk480JVrziMt+NTH/oK1seIl1/Qt6ed0EZ7MlF3MVfybr8BSbIReLsqix4L9iZ9kXDx05OyVqFt3C0orxCqmwMjE2sUvpHvfIcP7ehrgDiV6KUZ58bYnSo7dlS3qKmRRdQmtFnyqjyPnTLZ8X5psRmdBg099GiA4mCE9mC6dFiCwEeIcOoTaFQzA2q4ZM2YcO/bsQWRPUlBQ8BIXg166bnbsCAf2xVzF6hjxsp4GADC5E39/mjSlVHUoXTrCk2fCJT/1F6yIFi+9Xn1qpBmFD4MIvWSkyL3PBwv6fNDa60Dtm4cxw9uUmVKqupCrGOBcb8Djez78M9nyvcmST/0FjPoXeXsRNcCZeyJTtu2O5Osw0StdMULoP4YBWNs1d+5cS0vLZnzw0KFDpaWl5ubmL31J6OX6KlR09X7pwXTpu948P3Mmh0HMDxZ+dr5yVYx4gAuXzyQ+7MT/K02WWaHelyYd481r7fUihBBqjuEe3JRS1cF0aYMALMSG5WHMSC9Xn7snb/AlAJjRWXAqS/ZXqnRqgODxLvYIodcdBmAtxeq++GLUDA0NQJq4sV7md+7evXv37t2b8cG4uLjS0lI2G5PW2joHA8ZHnfg/36z59t+qw8NMSQIGunJ3JklvFik3xtd8HiJkksT8YOH0sxVrYsUDXblCFjZjQwih189gN+6yG+Ir+YpiicaCXy+fcKwP/9t/q3YlSRoHYK5GjAgHzvl78t/vSOYFC1/hehFC/y0MwFqKMHIJDHJp7VWg19XUAMHRu7KkEtX+NOloLx4B8H/hoiEHS3+/IxnlyXUyZAxw5nSxYsUWKjfGixd1xSwUhF7MzA5upxUt+xbsARturn/rpe6voTeNEYfs68Q+lSU/kC6bFlCv3GuYO3dldHX0A2V6udrDuOFT2acBgvP35LuTJZP9+AZsPARDqJ3AAAyh1sRlEJ+HiGaeq1gRLe7vxDHkkD6mzGEevANp0mVR4l/fMgKAb8JEQw6Wbk+UjPbiORvi3yxCL6AoKzOzhQ1qOUU19MtZDHqTjfbincqS70+VfuovIB/LZuAxiaHu3F1J0l1JkqXdDRp8ys+c2c2O/W++YtsdyewueAiGUDuBD3MItbK3XTh/pLBuFCjXxdV8Gy4CgPnBwjPZsvP35FfyFd3t2N6mzJFevD9TpIuvVu8YaNza60XodWLv06FDS0/A7EWY/ItaLMyWbS+i8qo11wsU4bb1agQ+6Mjfkyw9kiGbFyQ05DQ85poVKPg3X7E9UTLRl2+Ih2AItQsYgL0AreT+nZjbmQ9Ka0Boau3kG9jJHjvDopfh2zCDtw+U7EmWjPLiepkwTbnkp/6CldHiH29Uh9mYUSTMDxKeyZJfva/4J0/R0x6r+xB6XqviEle19hoQAgACYIQnb3WM+K9UaYMAzNGAEW7LvpKv2J8mm+zHb/BBfwuW7hBs+x3JZ3gIhlC7gFspAABAl2fGRkdHR8cmFzaZqyLLPrVsQoiNqb1/xDsjx0+cOH7EOxGdHc0sOw37cu/tcpy3hVrIzZgxoQNfQ8O3/1brcp0+9OXbi6iMcvXeFCkAGHLI6Z0FAPDdtWqlBtOhEELo9TPKk0eRcC5HUSZr+ODwfkc+AOxMkmiaeqSYFSgAgO2JkioFPnEg1B5gAAYAAMqLX3QPCQkJCZu0O7/hPHpt8dkFEV3eWbQrukhe78GXVpTeOfzD+JAuIzfdEuMjMWqZzwKF5jwyvkh5NEMGACyK+DJUBABrYsUVci0AvNeB72rEyK1Sb0+UtPJaEUIIvTgzHtnTjqPS0ocyZA2+1MOe7WLIeFCjOXeviX1gfwtWuC1brKTx+o9Q+4AB2DMok9aOHv1TVLkWAAiWecd+Y6ct+Oa77775fNrYvj6mTAJoRfbhWe9M3JWjbu2loteagEXMDxYBwI83qsVKGgD6OHK627GrFNr1cTUAwCBBN4tzQ3xNkaThPgFCCKG2b7Q3FwD2pUobbNsSAOM78ABgxxNCLN0h2O938BAMofYAA7Cn0j7Y+8XSfyu1QFAWvb4+nn7vzt97Ni5f/PXXi5dt3HM2MSfxzxmBhiStKTg8d/6+IjwFQy0y1IPb2ZJVKtNuiBPrXvkyVMQgYU+yJK1MBQDhtuxIF45URf9wvbpVV4oQQqg5etpzLPlUdqU65oGywZdGePCELCKmUJlYomr8wQBLVjc7tlhJb72Nh2AIvfYwAHsabf6B389WaoFg+84/fPS7tx259b5MCDxGrTu+9V1bCrRlx1b/loqnEqgldEPAKAJ2JEnulqsBwNWIMc6Hr6FhaW3E9WWoiMckTmbJL+e1sLMbQgihV40iYJQXFwD+SJE2+BKPSYzw5AHArqSmQ6y5QUICYEeipLRRCRlC6PWCAdjTSG5ciVfSQBi8s3B+SNOdhwjLoV9+0okJtDrx77P5eElELeNtyhzjzVNr4et/q3QnqrMCBUYc8kaB8ky2HAAs+dQM7MaBEEKvrdFePIqEM9nyJlpxdOBTBBzPlJdIm3ie6GjG7O3IkarpX27WvJKVItQiNMDvdyTX7uN+cRMwAHsKbWlhkYoGYPr3DDd84hgYyi08zIoCWp19NxvrwFCLzQkSGnPJ2ELlqSwZABiwyTlBQgBYer1apqYB4ENfgasR416VemsCJqIghNBrxpJP9bLnqLT0wfSGh2B2IqqvE0epoXclN315nxMkJAn4I0VaWIM5N6itWx8nXnq9ek2suLUX0hZhAPb/7N1nWBTnFgDgMzM7W2b70myoKBZAUBHFhsbeu0aNJdEYS7zGnmgSWxJT1Nhj7Ik1xq6x966oCCggKjYQC2V7LzP3B8RYAEGln/fJj/voLH4Xlpk933dKzggAAFKulOfwjSIUKgUBwOk0OjyQQO9MLiAnNZACwI8XDGYHBwD9/JhAD/qJ0bU62gQAPBK+C5MTAL9FGB/oMOhHCKFipr8/AwCb48zsax8bPg0SA8CmGLPZmcVHihoqXqeqIpuLW4qHYKhoO3rfuuSqkSIAh9dlCQOwHJBeVX0kJACb+iw1h+RCNi0ljQUg5Ap5tsdkCOVBn5pMHU/6qcn12zUjAJAETGsiIwCWRxofGVwAEFqO36smY3NxX5/GqB8hhIqZZt4CbymVpHe9np0VXIZf14vW2tjdr7WqzzA2REKRsD3e/BA34FBRlaBxTjyh5QAmN5S9MnYcZcAALCeipl3aKElwXPvnYPblXbarB4+lsEAIatX1owtydajEIgmY0VROErAm2nRP6wSAemX4nXxFVic351JmN46pjaRuIjL8sX3Xrawf0gghhIomkoAP/RjIqhUHAAwJkgDAmmjT6+djAOCj4PWqzjhZ+PUyHoKhokhvY0cc0pgcXNdqos9qiwt7OUUUBmAvcd1c+VnfIWOm/rj4j22HzkXfc7ScOCZYBJbTP4zfmJhVvjWnu/jDuOUJTiAEDTu388ITMPSeBHnSH9ZkHCz3/fnMiGtKQynDI/bftYY/tgOAQkB+3UgGALMv6l+v5EYIIVSUfejH0CRx7KH12WtzHdtXEXrLqAc658nELIYyA8DY+hIhjzhw15Jlw3qECpGLg3HHtQ90Tn93+sfm8sJeTtGFAdhLWH3C6R1/Lv35m7FDP+wQVse3rGfTObFOAPbp7pEdvzr10maTIz1m7y8fNWk3+4qJA6rCRxMHeON3E71HkxtKFULyTJLt6H0rAJSVUCODJQAw85zOxQIAdK8uCvMWaK3sDzgWDCGEihV3EdnWR+hi4e+br2YxUAQMriUGgDXZdFoqI6Y+DhRzAD9dxJs/KlrmhRtOJ9oUQnJZO6WIh+cS2cKQAQAAKL9uYz7r36VFfT9vlZD67/3CsXazxcEBAGdJiIo3/JcN4Dj/Vf063aZsiTVwQAiqfbz4hw5KfJ+h90khIMeGZHacz+h/OLyO2EfOu612rv93Ssz3YXKGR+y9Yzn2IOuNUoQQQkXTgICMLEST87Ukhr5+jExAhj+2X0/J+oxrZB2xQkiGP7afScIe36ioOHTPuirKyCNhWVult5Qq7OUUaRiAAQAAL2DAnJWb9564HJeYbjKmPYwNP75n04pfZ00eNahHm0aBPh7Ma1E8y7IAAASpCP5889EV3cvitxK9dwMCxP7u9GOja2WUEQBokpjeVAYAC68aUswsAHjLqIwRdVNP69SYiIgQQsVHaDl+DRUvxcwefW0HTUwTA/wZAMi4+b9OJiBH1ZUAwNxwQ5alYggVsLg0x6QTWg7g28by0HL8wl5OUYdRw2tIoaqif4OWXT8aPmH6nGXrdx65cP1eitGkub+hn8d/URghKhfcfvCXC3dcuxO+tGclXiEuGJVcFAEzmsoIgJVRpiSDCwCaeQtaVhIY7dzc8MzMk4EB4tByfLWFnY25KAghVKz09xcDwMaspn59EiQWUMTh+9bsxo0MqsWUk1BxaY69d7AVEypkags78rDG4uQ+rMkMqsUU9nKKAQzAcofgy8uWVbwQZvFCvty5b90vY3vUdsfgC+WjkDL8btVFVic3+99Cr+lN5AKK2HXLEvHUDgAkAb+0UDA0sfu25fB9TERECKFio2cNkYRPXEq231a/GmW5i8ge1UUsB6uzqQQTUMSEBlIAmHfZYM1qaBhCBcPJwv+OapINrrpe/FlhssJeTvGAARhCRd2UhjIJnzh635qR6+8to4bXEXMAM87qM7pxeEupjNnNM85iIiJCCBUbYproXk0E2fSjH1ZbTBKw45YlI+f8dd2qiQI96CdG15rrWQdpCBWA787rwh/bPRnyt7YKPoUNEXIFAzCEijoPhhwdLAGAWef0dhcHACPrSrxl1M10x7p/u3EMqiVuVJ6famanntYV5loRQgjlxaBaYgJgxy2z0f7qKZaPgtemstDu4jbGZB1fkQRMbSQDgBWRxtRsgjSE8tWWm+ZNsWYBRSxvr/ISY+ON3MIADKFiYEiQuIqC90DnXB9jBgAhj/guTA4AC68YMmbIkAT82lKhEJDHHli33MxiJxUhhFAR5Kvk1S/LNzm4vQlZlHINrysBgI2xWYRnGULL8dv4CE0ObuEVQ/4uFKHXXH1qn3lWDwCzm8tre9KFvZziBAMwhIoBmiSmNZEBwJKIzP6HzbwF7XyEJgf3fAiYl5ia3VwOALPP6+9rsy7aRgghVNQMrMUAwPoY0+sxVh1POrQcX2djN8dlm2T4TSMZnyK2xptj03AuMyo4j42u0Yc1DpYbVlvco7qosJdTzGAAhlDx0Mxb0Lqy0Gjn5lz6txtHUxlDEwfuWp/PgWlfRdijusjs5Cae0L4+WAYhhFAR1N5H5CWm7qid4cn21/82o938mmhTdp02vGXUgACG5eDni3gIhgqIxcmNPKRJs7Bh3oIvG2LjjTzDAAyhYuPbxjIBRey+bbnyxA4AZcTU2BApAEw/q7P8+2Ce0VReQUpFpzie96lHCCFUlFEk9PfPPAR7/W/DvAVBnnSahd0Wn227+f/VkyiF5IVk26F72AsX5TsO4KuTutg0R2U5b1FrBfbdeAsYgCFUbHjLqGG1xRzA9+f1GZM3hwSKA9zpJL1r8dXMYZ1SPrGkjZImiTXRpmOvDfdECCFUBH3kz/Ap4tgD6yOD6/W/HVlXAgArooyObIYuKwRkRkv6ny/qsSU9ym/Lrhn337VI+MSK9kq5AEOJt4HfNYSKk1HBkvJSKjbNsS3eDAAUCbObyykC1lw3Ps/+D/KkJ4VKOYAvT+qyfJYjhBAqUtxEZPsqQhcHW7LqR9/WR1hdxXtidO29k+22Wj8/JtCDTjK4spsbhtB7ceyBdeEVA0nAglZKXyXOwn1LGIAhVJyIeMSXoVIAmBNu0FpZAAj0oAcHil0sfHNa5/p33/PT2uKWlQQ6Gzv+OBaDIYRQMTC4FgMAW26aba5Xj7AIgBF1JACwItKYzRkYkARMayIjAH6PNCbj1hvKHwka56QTWpaDyaHSlpUEhb2cYgwDMISKmc6+otByfK2VXRyRmXY4ob60vJS6kepYdyNz45MAmNtCUU5CXXtqn30Bi8EQQqioq+vFr+VBa6zsvoQsjrm6+Iq8ZdRdrfPgvWwrweqV4XfyFVmd3C+X8LaP3j+NlR12UG2wc92qiYbXkRT2coo3DMAQKn5mNJVTJGyMNd1SOwGAoTPHgi24bEjUZ258KoTkivZKIY9YH2PKyFdECCFUlA2uJQaA51tpL6LIzEqwxVezPQQDgCkNpQyP2H/Xev6RLd+WiUojJwujj2iS9K7anvSPzeWFvZxiDwMwhIqfGirewACxi4XpZ3QZD+IPKgq6/9uA/vmz2d+d/qGZHABmnNXfSMX5MAghVKR18RW6i8jYNMfVp1n0o+9dg/GWUgka5+H72VaClZVQo+tJAGD6Wb39tVRGhN7arHO68Md2T4Zc1k4p5GHfw3eFARhCxdKE+lJPhrz61L4vITMdZUYTmZeYuvbUvjH2v93THtVFH/kzNhc3+ohGbcFqMIQQKrr4FNHPnwGAP69ncQjGI2FEXQkALLpqyOEQ7NPaYl8l74HOid040Puy7oZpc5xZQBHL26vKiKnCXk5JgAEYQsWShE9kNB2efUFvtHMAIBOQGeddcy4ZHuqcz6+c3lQWXIafbHCNPKzBDVGEECrKBgSIaZI4ct+alFUjjT41mfJS6o7amcOUEZokZjaVA8Cya0ZshIve3dkk2+yLegJgbkt5bU+6sJdTQmAAhlBx1asGU8eTTjWzv13L7MbRspKgWzWRxclNPa17vj9Kk8SytspyEiriqX3KKR1GYAghVGR5MmTHqkIXB5tisz4Ey2h+sCTCmMPNvFF5fhdfkcXJfX8eu3Ggd3JX6/zimNbFwuh6kk5VRYW9nJIDAzCEiiuSgJlhcpKAtdeNCZrMI6/pTWQeDBn+2L462vj8Sg+G/KOTSson9tyxLI0wZvP1EEIIFb6hQWIA+PumxZzVSOUPa4rKiKm4NMfR7CvBAODrxjIJnzj2wHokx8sQyoHWxn52UKO3se2rCMfVlxb2ckoUDMAQKsYCPeh+foyThW//7cahEJJzWygIgF8vG66n/Nd4w1fJW9haSRGw6Iph1+1suxgjhBAqXLU86LpefL2N3Z3VvZpPERntEBdeyakSzJMhJzWQAcCsc5lp6gjlSUbbw4c6Z4A7Pa+lAttuvF8YgCFUvE0KlbqJyCtP7P/cyXxUh3kLBtUSO1mYfFJreWED9YOKgm+byDiAKae0Jx9ih2KEECqihgQxALDuhinLyKmfv8hbSt1S5zQTDAAGBDB1veinJtevlw35s0xUks04q7uUbPdkyJUdlCJse/i+YQCGUPEmF5BfhmZ249DbMvscTmkkraHiJWicr4zjHFxLPKquxMnC/45qrjzJos0xQgihQtfeR1ROQiVonKcTs9gso0liZLAEABZcNrqy725LEvBDMzmPhI2xpqgUnESC8mDNddOWm2Yhj1iBbQ/zBwZgCBV7vWoy9crw0yzsgiuZ9V0CipjXUsGniI0x5lcKACaGSvv5MVYnN+KQJmOOM0IIoSKFImFwoBgA1mbVjx4A+tRkfOS8+zrn3oScDsFqutHDaktYDr49rXPiIBKUO8cfWn/OaHvYQhGEbQ/zBwZgCBV7BMB3YTKKhE2xpud1X/7u9FcNpRzAlye1if5Xh0kAACAASURBVHrXSxc3k7fzEeps7MB/0jEGQwihIqi/HyPlE+cf2eLSsji8ogjIGLi88IrBkUMpGMCYepKKMupmumNFFHZgQm92M90x7piW5WB8A2nHqsLCXk6JhQEYQiVBTTd6aKDYxcHUF7Y5PwkUd6giNNi5UYc11heKwSgCFrZWfFBRoLawA/am30zH1BSEECpaJHyid00GAP68kfUhWNdqoqoK3iODa0d8TodgQh7xU3MFAbA04r9+uQhl6ZnJNeyAxuzgelQXfR4sKezllGQYgCFUQoytL/WWUfHpjj9eSFn5pYWiqoIXn+74/sJLxWB8ivi9nbJlJYHGyg78R53lDitCCKFC9EmgmCJh7x1rijmL9EGKgLH1pQCwOMJozaph/XMNy/P7+TN2F/fVSa0LGyKibFid3KjDmqcmV0gZ/o/N5dh2I19hAIZQCSHiEd+FyQFg0VVD0r85h2KaWNRGIeQRW+LMf980v3g9nyKWtVO2rizUWtl+e9LPJGFfRIQQKkIqSKm2lYUOltuY1VBmAOhYVVjHk35mcq2PyfqC56Y0lJWTUFEpjuzO01Apx3Iw7rg2OsXhLaN+b6fkUxh/5S8MwBAqOZp5C7r4iixObvpZ3fM/9HOjvw+TA8CMs/rwxy91PqRJYmlbRddqIpODG3ZQvSnW/OpXRAghVHgyhjJvijVnOZSZAMgYj/t7pElry6nJhoRP/NBMDgALLhse6DAREb3qp4v6o/etCgH5R0eVSoTRQb7DbzFCJcq3TWQKAXkmybYt/r9oqmcN0bDaYgfLfX5Y8/DlRy9NEvNbKcbUk7AsTD+rm3VOb8MMFYQQKhqCy/DrevG1VnZ7fNYbZGHegsblBXobuyb6DUdbzSsKelQXWZzcpBM6vM2jF22IMa+9bqJJYlk7pY+CV9jLKRUwAEOoRHEXkdOayADghwv6x8b/mh9+2VDWopJAa2OHH9IY7C89ezP2UOe2VNAksT7G1G1HGpaEIYRQEfFZHTEArI02ZTfy68uGUgJg7XXTM5Mr6yv+NaOpvJyEinxmX4UdEdG/Tifavr+gIwB+bC4PLccv7OWUFhiAIVTSdK8ual9FaLRzX53UPY+0KAIWtVZWV/ESNM7hB9WvV2z3qC76u7tbFQXvjtrZc2f6bxFGPApDCKFC16ay0FfJSzK4Dt3PutthoAfd1kdodXJLI94QVkn5REZzhUVXjTiDBAFAbJrjf0c1LhbGhEh61hAV9nJKEQzAECqBvg+Tu4nIC8m2FxtviGlidQdVGTF1+Yl99BHN60M5a3vSe3u7D64ldrLc/CuGNltSd9+25DhgBiGEUP4iCfgkUAwAv1/LNslwYqiUIuHvePMbG82HeQv6+zN2FzfphDbnAWKoxEs2uIYdUGc0nf8iRFrYyyldMABDqARSicjpTWQA8NNFfdILU5jLS6lNXVXuIvJUou2Lo5rXj7hEPGJGU9mGLm413ehkg2viCW23HWmH71vxMY0QQoWlVw2RB0PeTHdcTLZneUFVBa+fH+NiYc4lwxu/2tRGsooyKi7NsegKJiKWXjobO/SAOsXMNirP/+kDbDpf0DAAQ6hk6uwr6lhVaLRzY4+9dNhVWc5b20kl5ROH71u/PKnNsqigUXn+P73d57RQlJVQcWmOzw9rOmxN3XXbkl0FAkIIofzDp4hBAWIAWJl97da4EKmETxx/aL2Q/IaZIgxNzGupoAhYGWW8/CTriA6VbHYXN+qwJkHjrK7iLWurpEmMvwoaBmAIlVizm8krSKnoFMevl1/aEw1wp1d3VDE0sfu2ZeThLOrBAIAkoFcN0Yn+HrPC5BWkVILGOemEtv3W1P13rXgYhhBCBWxALYbhEWeTbPHpWTdJUonI4bUlAPDTRcMbcxbqleGPDJa4OJh0QqvPsX89Knk4gK9O6cIf273E1NqOKpkAY4FCgN90hEosmYBc3EbJI2FVlPHkw5f2REPK8Dd3dVOJyBMPbQP2pmutWT+A+RQxMIA53t9zXktFZTnvntb5xVFN1+1pkc+wTSJCCBUchYDs689wACuisq0E+7S2OCNtYV9C1u06XjS2nrS2J51scM04p3+vK0VF3ZxLhr13LGKaWN1BWVZCFfZySikMwBAqyWp70mNDpBzAlFPaFPNLUVagB/1XV7eyEioqxdF3T/qd7Dti8UjoUV10pK/H7GbyMmIqLs3Rd0/a8kgjFoYhhFCBGVZbTJPE/gTLw2wmKQt5xLgQCQDMu2zIMrXhRRQJ81spGJrYe8ey586bAzZUMqy7YVoZZaRJ4vd2Sn93urCXU3phAIZQCTeyrqRJBUGahf38sPqVzvK+St7W7m4Zvel77kzbdTunZzBFQj9/5sRHHsPrSFgW5oYbhuxXp1kwdwUhhApCGTHVvbrIxcHq7Gcu96zBBHrQyQbXG+cyA0BlOS9jbuS0M7rsgjpUkhy4a/3hgp4A+KWFvEkFQWEvp1TDAAyhEo4kYHFrRUUZFfnM8c1p3St/W05C7ezp3qO6yOzkJp3QfnlSq82xHkBAEV81lP7RSeUuIs89svXbnZ6OMRhCCBWIz4MlFAHbb1mym7lMEjC9iYwA+D3S+Nj4hrnMAPBhTaZTVZHJwX1xTGvH2Y8l2qVk+8QTWpaDLxtKu1XDkV+FDAMwhEo+hZBc1UEl4RO7bltWvVY/IOIR81oqfmwuF/KIHbcsrf9K3RZvzvk5HOYt2NfHw9+dvq9zfnpAbXLgYxshhPJdRRnV1kdod3F/3jBnd01wGX77KkKLk5t/+c0t6QHgx+byijIqJtXxSy5a2KNiKi7NMeKw2u7iPg4UD68jKezlIAzAECodfJW8uS0UBMDccP3R+9bXL+jrx+zt7d6oPF9jZaec0vXZlXYlx/bEHgy5rpOqioJ3I9Ux/JAat04RQqgAjAqWAMCmWJMu+2yFbxrLRDxi921LVMqbGyZJ+MSi1kqaJNbdMB1/mMXTARV3SXrX0ANqo53r7Cv6trGssJeDADAAQ6j0aOsjHN9A6uLgi2PaM0lZDIqpquBt7OK2sLXCkyEjnzn67UkfdlB9K/vmHCoRubajypMhLyXbp5x6NbkRIYTQexfgTjfzFpgc3LrsD8HKSqghQWIO4IfzutzsjQV50pMbSjmAL0/oHhnenLiIipE0C/vxfnWqmW1aQTCvpRwnfhURGIC9gdOYlnz/Vkx0ZMTViMgb8QkPklONWKiKiqvRwZLP6ogzJjBeSs76gKuLr+hYf8+xIVIxTZx8aOu8LfWrU7rs6g28ZdTaTioxTey5Yzn2ALdOEUIo342pJwGAP26YDPZsw6tRdSVeYirymWNHfLZx2ouGBolbVxZqbez/jmgwo6HEMNi5IfvVD3XOQA96WTscuFyEYACWBUvypa3zJw/u0LBGGYlI5lGhSs3AOsEh9UOCg/yq+VTwkokV3v4NO348dcnO8KQ3lMogVNR81VDW35+xOrnhh9RXn2Ydg4lp4osQyamPPD8OFFMEsT3e3Oqv1AVXDJas+hr7udGTQqUAMPOcHovBEEIovwWX4YeW4+tt7KbYbFsdMjTxVUMpAMwJN+Rm1DIBMLeFvKKMupHq+P48TgYrCaxObvhBdVyao7Kct7qjSkxj9FWEYAD2EjY9fPmIxlWqNO47cd6GQ+G3n5le/8DJcXbdo5vhB9f//EWvRlUrN/hk0blneF6Pig0C4LsweY/qIpODG/yPOod5nSoROb2J7Eg/jw5VhFYntzTC2HlbWkRWMdvAAHFdL/4To2vBFazhRgihfPe/ehIAWBVtMme/7dWtmii0HD/dwi68aszN15QJyN/aKgUUsTnOvDvHqSSo6HOy8L+jmstP7GUl1IYuKncRfuAvWvDn8R/73c2fNGr++cqLTzPP9AmKcfOuUbfxB63bdezSvUf3rp3at2nRpJ5/ZU9J5jYC50i9um58ywa9V8TirQoVGyQBv7RQDAxgbC5u3DHtbxHGHM6tKsqopW2VW7u71VDxHuic/fak/3RR/8o8MZKAH5rJeCSsu2HKTc03Qgihd9G4vCCkDF9rZf+6mVOG4aymch4JG2NMN9NzdWf2d6dnNJUBwLdndHFpeDMvrlgOJp3QnnxoU4nIdZ1V5SRUYa8IvQoDsH9ZLn/Xa+jGOzYOCEG5RoNnrj0c+VCjT0uMv3b+5NFD+/fu2rlrz76DR06cuxp7/5lO9yT29N+/julYQ0YC50jc80XPL4/nqtIVoSKBImBWmHxaExlJwPwrhrFHNVprTjkqwWX4u3u5fx4sIQhYHW0asFetefn6mm70kEAxy8H0MzoWfxUQQiiffR4sAYBVUUZrVsnhGaqpeAMDxC4OZp3T5/LG3NeP6evHWJzcqMNveC6gookDmHZG90+CRcIn1nZUVVXwCntFKAsYgGVgE//4esF1G0dQ5bsuPB97ft2MIW3reEuz2zIgRV7+zT6csHh/dPSuMXXFBGe/s+qbFbcxExEVL58Ein9vr2RoYv9da7u/Uw9n1Z7+OT5FTGwg3d7dvbyUinxm77MrPUn/0lv+i/rSshIqNs1xFLtxIIRQPmteURDoQaea2a05ttkYV1/qLiKvPLHnshsHAHwXJg8pw39kcI05qnVhCFbc/HJJv+WmWcgjVrZXBXrQhb0clDUMwAAAgE3a/fc5CweU96drNnxRT5HrOkVB5a4L/v6+qYjgbNd2/XMfIzBU3LSqJDzwoUfD8vw0C/v5Yc3oI5p72pz6fAZ50tt7uGeMYO69Ky0m9b8cFYZHDK8jBoDlkbmqN0AIIfQuxoRIAGB5pCmHQzApn/i6sQwAfrpkUFtyFU7xSFjcRuHBkBeSbXPCsSFHcbLwimFVlIkmid/bKUPL8Qt7OShbGIABAIAzLirWwQHp2bFPi7xOqKOq9urTgAZw3YnDIzBUHHlLqY1d3GaFyRmaOHTP2n5r6tRTusfGbN/Nngy5pZtbmLcgzcIOOaBOemFoTF8/xoMhr6c4LiRnMWcMIYTQe9SqkrC2J/3M5NqSYyVYt2qiJhUEWiv7S3hu+yR5iamlbZU8ElZHm3ZhQ45i4vdI45III0XCojaKZt6Cwl4OygkGYAAAwNlsdg6AkEgleW/SScoUMhKAs9uyH8iBUJFGAAwMYI718+jnzxAAW+PNrf5K/f68Pi2b7VIxTazuoGpeUaC2sJ8dVBv/fesLKGJwLTEA/H4t2+bICCGE3pcx9aQAsDzSmOWYkOe+C5MJKGJHvPliNhMgXxdShj8rTA4AX5/WZdn/FhUpa6+b5oUbKALmtVC08xEW9nLQG2AABgAAVIVKFSgA9lHEtSd5Tne2RF+JcQCQXmW98NuJijMvMTW7mfxIX4+u1UROlvvzhqnFppRfLxvMWT3XeSQsaaOsoeLdUTvHHNU8rxMYXEssE5AXkm2Rz7CDFkII5a8WlQR1POlUM7s5LqdDsMpy3qhgCQcw85zOketGSf38mCFBYruLG3VY88iAST5F18ZY848X9CQBPzaXd60mKuzloDfDiAEAAHhBnTtUooCznP5lyrakvNxjOMPluVPXPXAB6dbkgyCsdUTFXyU5b0Erxb4+Hq0rCy1Obtk1Y4e/U08nZpFSKKaJFR1UbiLyTJLtp0uZdQISPtHfnwGAVVFYCYYQQvlubH0pAPx+zZjDTDAAGFFHXEXBS9A485ShMLWRrHlFQbqFHf5CsgMqUjbHmWee1QHArDB575pMYS8H5QoGYBn4oSPGhMkIcCVuGdyo3ZcbLj95cwWLSxu/f97Axm1mXdRzBD/gs9FtxAWwUoQKRA0Vb0V75Y6e7rU86EcG19AD6nHHtFrbqwfE3lLq93ZKPkX8ed10+UlmjsqQQLGAIo4+sObczwMhhNC7a+YtqOvF11jZjbE5RVZ8ipjTQk4SsOya8bY6tzdnioDFrZW+St4ttXP0EY0TmyIWMX/Fmaef0QHA9Kayj/wx+io2MADLRFX/fPncTmUpgrMnH587uGGlctWbdhs6cebc3/74a+c/Bw4fPXHy5PEjB/fv2bZ+xYLZU0Z92Kq2d/mALpM3x+hZIBVNpq+ZWh/rHVFJU9uT3tnT/evGMoZH/JNg6bkzPUHz6mO7Xhn+qLoSDuDrU7qMAc0eDNmjhojlYENMbrseI4QQemvj6ksAYEWUyZDjIVVdL35/f8bBclNOaV25Ps2S8InVHVXuIvLcI9vXp7V4ClZ0bLlpnnZGBwDTmsgyCrBRcYHT2Z6jawzfelw4pv/YP65rWc6hvnN+753ze9/4MlLq3/+XDb+NDMY3PiqRKAI+DRK38xGOPqKJSXX02pU2v5WiVaWXCnxHBYv337UkaJwro0xj6kkA4JNa4r/jzDtumSc0kEr5eW9tgxBCKNeaVhA0LM+/lGxfE20cV1+aw5VfhspOPLRFpzjW3TANDcrtJxdvKbW6o+qjPek7blnKS6mxITn9E6hgbIo1zzirA4Bvm8g+DsQPocUMnoC9SOQ3ePXVWxfXTR/YrKqcl/OHRoIn82nS/+u1Z+MjN44KluMnTFSiVZBSf3dz6+IrMtq5kYc062NeSnShSeKHZnICYNk1Y8YRWTUVr0E5vsnB7bqNh2AIIZTvJtSXAsCa66b0HId9SfjE92FyAFhw2ZCkz0PNe6AHvbCNgiJgyVVjzqOfUQFYd8OUEX1NayL7BKOvYghPwF7F82wwaNaGQbMc2vvXr167cevuw+Rn6Rqjxe4EWiSWSCRyj4q+NWrUrFW7VmUFNt1ApYeQRyxorajpxpsXbvjunJ5PEv1eSDevX5bfpyazNd48/axuc1c3APg4UBz+2L7uhnlggJjEHQqEEMpP9crwW1QSnHxoWxFpzJi8nJ0WlQRdq4n23rF8dUq7sYtb7u/PrSoJZ4bJp53RfXtapxSQbbDXeSFZFW36+aKeAJgVJh8QgHVfxRIGYNmhFT71WvvUa13Y60Co6CAARtaVKIXkN6d1357RAQH9/P679X/VSHrsoTX8sf1Mkq2Zt6B1ZWEFKfVA5zz3yIYTIRFCKL9NDpWdTkzdGGseEiQuK6FyuHJWU1n4Y3v4Y/uGGFOestc+8mfSzOyiq4axx7R/dFKFluO/86pR3iy+alx01UAS8EMzeV8/jL6KK0xBRAjlTV8/ZkojGQcw/YzuwF3r8z9XCMjhtSUAsPiqEQAoAjL60b+Sr4gQQig/1FDxOlYV2Vzckog3TAGRCcgfmskBYG644X4e29V+ESIZVIuxubgRh9RxaTjvseBwAD9d1C+6aqAImNNCgdFXsYYBGEIoz4bVFk9oIHVx8OVJ7c30/x7AA2oxKhEZ+cx+KdkOAH39GAFFnE60Jeal0gAhhNDbGV9fwiNh+y3z6x1rX9GykqBHdZHFyU0+qct9R8QM05vIO/uKDHZu8D71nVx3tEfvguVg2hnd6mgTTRKL2yh7VMdpy8UbBmDvzKp58jg5OTk5+bHa+uarESohRgdL+voxFic38pBGa82s+WZ4REY18NJrBgBQCsku1UQsh4dgCCFUECrLeX39GBcLc8MNb7x4ehNZGTEV+cy+Njpvt2iSgHkt5S0rCTRWdvC+9Ac6jMHyl4Plxh3T/BVnFvGIlR2U7atg9V2xhzVg78p2eEyNHpsMHICwzzbt1t7vr9Tlzz//XLp06Vu8MD4+HgCMxjdkICD0jmY2lcWlOW6kOiaf1K5or8qo5P64lnhNtOlisv3qU3tIGf6nQeId8eatN81jQ7AfPUII5buxIdI9dyzHHljDH9tzrtGSCcifPpAP3a+ef8XQ1Jvv55aHzmI0SSxtq/zsoOb8I9vAf9RburlVkOZUdYbemtnBjTqsOffIJuUTKzuoGpTFuruSAAOwouvo0aMRERFv/XK9Xv8eF4PQ6/gUsbStstuOtBMPbb9HGkcHSwBAwicG12KWRBh/izD+0UlVXcVrWJ5/Mdm+Ld6c+5kzCCGE3o6biPw0SLLoqmHOJf32nu4573s18xYMqiVeH2Mad0y7p5e78A0TeF4ioIjl7ZVD96uvPLEP2Ju+qSvGYO+f2sIOO6iOTnF4MOTajip/d2y/XUJgAFZ0rVmzZsKECW/xwoEDB8bHx5crV+69LwmhV1SQUgtaKT49oF581dCqkqCmGw0AnwSJ1143nUmyxaY5AtzpoUGSi8nqP2+YPq4lpjDrGSGE8tmw2uLNcaaoFMeR+9Z2b2oWP6WRNPyx7ZbaOTfcMK1JTv3rX8fwiNUdVJ/sV0c+s3+0N31TFzdvGcZg702i3jVkv/qBzukto9Z3dquI39sSBAOwd8VvNuvEpTEuDoB0q/Zej4WFQmG9evXe4oUMg41xUMFp5i0YGCBeH2Oaelq3vYc7RYBCQPbzY9ZcN/15wzS3haJFJYGvkpegcR55YO2AmesIIZTPGJoYU086/axu7iVDq0pCXo47XwKKmNdS0XNn+robpuYVBXmdGiLhE+s6q4bsV0c8tfffm765K8YJ78f1FMewg+p0CxvgTq/pqPJgcP+yRMEf57silFVDGoSGhoaG1vdVYYULKpUmhUrLSqjrKY5NsZmV3IMDxRQB+xKs6RaWABhcSwwAa69jKw6EECoI/fyYqgrefZ1zY+ybb7z+7vT4+hIOYPIJbZqFzeu/JaaJPzup6pflPzG6+u1Jx76I7+74Q+uAvenpFraZt2BLNzeMvkoe/IkihN6VmCYyRsrMCzc8NbkAoIKUal5RYHdxW+PNANCzhkghJK89tUel4NAYhBDKdxQJUxrJAGDxVePzRrU5+KyOpHF5QZqFnXhcy+axKz0AMDSxtpOqYXn+M5Or397063irfwdrr5tGHdKYnVzvmsyqDiqGxt39EggDMITQe/BBRUE7H6HJwc08l9n9JePUa0OM2cmCiEf082MAYEUkNudECKGC0LKSIMxboLOxi980lxkASAIWtFZ4MOS5R7aVUW9zo2Z4xNqOqtaVhVorO/Cf9PDH9rf4IqWci4VpZ3SzL+hZDibUl/78gTzn9FFUfOEPNitO7b2I04f2/nP0YsxDtfVNO0HO9Hs3oqOjo2881OV90wihEmNGU5mETxy9b738xA4ATb0FVRW8ZybXsQdWABgSJBbxiKP3rS8ObkYIIZR/vm0so0jYGGvKTVqgu4ic00JBEjD/iiHi6duETwKKWNZW2a2ayOTghuxXH7iL41HzQGtjhxxQb44zC3nEojbK0fUkePJVgmEA9jLT7T2z+tQp6+Ub8kGHbl3bNg708SwX1Gf639c12Z7fcylbPwupU6dOnQaTj+J2DyrFvMTUp0ESAFh01QAABMDAWgxA5hRmdxH5kT/DASy5iodgCCFUEHyVvA9rMi4W5oTnajJNM2/BsNoSFwvjjmk1uUhcfB1FwryWisG1xDYXN/aYBkt/c+mO2tljR9r5RzYPhtzU1a1TVWxYVcJhAPYf9tmRyS1De87cHp1mf36Uxbk0Mdu/798obOT2B7hvj1DOhgSJFQLyUrI9I/mkVw1GwifCH9vj0x0AMLyuRMQjjuAhGEIIFZTx9aUSPnHioe1Mki03109sIK3rxX9sdE14q2IwACAJmNFU9lVDKcfB7Av6jIQ6lIOj9629dqUl6l2BHvTuXu51PHHYV8mHAdi/nHdWDO4//7KWBSAoWeX6bfsO/9/IgV0aeIsIAM4cu/qjFsN2PHmb7SCESg0pn8iYtvzrZQMAiGmiZ3UGADbGmgEPwRBCqMC5icgx9aQAMPOc3u56cyTEI+H3dkoPhjyTZFsSYXjrf3d4Hcn8VgqaJNZeN408pDE5MAjLgouDueGGUYc1JgfXrZpoSze3MmJs4l8qYACWgdPu//67Y2oWCLpit/nn7yVcPrxlxZLfN+wNv3Pn+Ox2ZXkE53iw8X9j/krGEAyhnAwJEqtEZMRT+8VkOwAMCGAIgD13LAY7B3gIhhBCBW5IoLi6ivdQ51x3w5yb6z0YcmErJUXA0gjj6cRcnZtlqWs10brOKoWQPP7Q2mdX2iOD662/VImUbmE/3pe+PNJIkvB1Y9n8VgohD8u+SgsMwDIYjmza84wFgh848e9N40Ld/tt/EJRv8fWeE/Nbq0hgn+6aMHYLnoIhlAOGJoYEigFg/hUDAPgqeaHl+WYHt+v2S4dg88LffmMVIYRQ7lEkTGsiA4AlEYZnplxFQQ3L88fWl7IcTDihTXqHwCm0HH9nDzdfJe+W2tlzZxq2Rnwu/LG9y/a0i8l2T4bc2MXt0yBxYa8IFSgMwAAAwBFz+ZqJA0LUcszY0Nd/BwQ1R6+e18mdBDZl97TZJ/GDI0I5+ThQrBSS155mVoIN8BcDwKZYc0YCyoi6EpmAPJVoO3ofG2QhhFBBaFw+c1LInFxvfo2qK8noKT/ykMbsfPsEwkpy3vYe7s28BekWdtC+9FXRplKejOjiYNFVw6B/0p+ZXKHl+Ht7ezQoyy/sRaGChgEYAACw6SlpLADlExLsnuXxL1lx8LxvwyQEuO6v+XppDCZPIZQ9MU0MeqH/YTsfoZeYStA4w5PtAOAmIsfXlwDArPN6M1YFIIRQgfimsUzII/bctmRMCnkjkoD5rRTVVLz4dMfE49p3uVlL+cTqjqrPgyUsCz9f1I85ojHaS+nNP9ngGrg3ffFVIwCMqSfZ0MXNg8GP4qUR/tQzcBwHAOByZnvOTlUfMXdsIJ/grFd//WbTI8xDRCgH/f3FNEkcvW99ZHBRJPT1EwHAprjMfsQDA8S1PeknRtdv17AbB0LvFc6xRNkoL6VG1ZVwANPO6By560soponf2yplAvLIfevv73a7pgiY2EC6vL1SJiAP3rN22Z4anVLqNrN33bZ02pZ6+YndS0yt7+w2rr6Uwpqv0goDMAAAoLzKepEArsSIa8+yDa2EIZPnDq1MAZu+b8o47MaBUA48GbJ9FaGLgy1xZgDo7y/mkXD4vjWj/IAkYFaYnCJgTbQpQfPm8aAIoTfDOZboTUbUFVdV8BI0zjXRFxRDGAAAIABJREFUuR3P5aPgLWilIAlYcMXw7nnjrSsLd/d0C3CnE/WuD3enrYwylpIO9ekWdvQRzaQTWoOda19FuL+Pe8PymHZYqmEABgAAPP/QelICOMupxfPP67O7GxDyNrPm9C1LAvts14QRq27j4wqh7A2uxQDAlptmm4vzZMjWlYUuFv6+acn420APuq8f42C5Kad0uemMjBDKAc6xRLlBk8T3zeQEwJIIY5I+t601PqgomNRAynIw4bg2Nu1d30qV5LztPdyGBoldLPxyyTB4X3qJ7464+7al7d+ph+5ZpXxiXkvFb22VSiF+/C7t8B2QQdpmQPcyJHCOm4v69p594kk2e/KEZ8+5C/qUp4BNOfBFp2Ebb+eqoStCpVFwGX6gB62xsvsTrAAwuJYYADbGmmz/hluTQqVlJVTkM/tXpzD7CaF3gHMsUa6FluN3rSayOrnpZ3W5f9WIupJ+/ozZyQ07oH5ifNd4iU8R3zSWre6ocheRF5PtHbembrlpLpFPgcdG17CD6okntFor27SCYH8fjx7VRYW9KFQkYACWSdZh2sy2biRwridHp7X29WnQdcj4aT8vO/rglfsMWe7DZevG1ZEQnD1hw+Dgup3Hzfv7WnqJvG8g9K4G1RIDwB83TAAQWo5f25NOt7B77mQegskF5NqOKimf2HvHsvAKNhdF6O3gHEuUN183lskF5Jkk28F7eUgpnNlUFlqOn2Jmhx/SvJf+SR9UFBzq69GpqtDk4L45rft4n/qBruRkpDtYbnmksd2W1JMPbXIB+csH8j87q8pLccgyyoQB2L+oKp9t2Da1iRtFAHDmR1f++XPhD19/s+HGa3cDQtVq7vEDM5u7k8CZbu9f9OWE1dGY3IFQFjr7CpVCMi7NEfnMDgAfB4oBYFXUfz2Iq6t4i1orKRKWRhi33MQD5azZXBwmaaLs4RxLlDfuInJyqBQAZp3T6Wy5fU/QJLGsndJHzotLc/zvqMb5Pt5LSiG5uI1ycRulUkief2TruDVtSYSxBCSln3tk67wtbW64wezkOlUVHerr0bsmg+020IswAPsP4d7ihxORh+cNDassybkvDaEKm77/1LoxzSsI8RcKoWwJKKKvX0YlmAUAOlUVlZNQ97TOs0m259c0ryiY2VQOAN+c1g3Zr373AoMSJtXMNlqf8r8jmsJeCCqqcI4lyrt+/kyj8vxUM/vTxTy8JRQCck1HpUpEnk60fX36nRrTv6hTVeHRfh69aojsLm7hFUOHrWnHHhTXKZEJGuenB9Qf71MnaJxVFLz1nVWL2yg8S2WjeQ7gwF1r+62pP1zQF/ZaiiJeYS+giOF7t5qwptX431ITYm7EP3hq9KxNZ3OlOGDg4lN9vo48umffsQsR1+PvJ2tVwgJdK0LFQD8/ZkWk8UCCZVpjmYRPDKrF/HLJsCba1Mxb8Pyaj/wZJ8stuGI8k2Q7m2RrUkGgFJJifubuht3FuVj4KIAJKVMae0b9FWfW2ViaxL0elI3czbFcd3L8aeP9NV8vHXluaq3snmuo1CAAvg+Td96etj3e3NlX2LSC4M2vAQCASnLe6g6qgXvTd9yyeImpiQ2k72U9SiE5p4Wid01m2hldgsY54pCmYXn+N41k/u7F5s2abHD9ds24/ZbZxYJMQH5eV/JJEFNqb91RKY4fL+gjntoBoLqy2PwQCxIGYFkhhB7VQlpWC3njhYIydTuPqNt5RAGsCaFiyVtGhZbnX0q277tr6efHfOQv/u2a8dwj2810h5/bfzflwbXEXauJlkcaN8SYzz2yvf519t6xdK8u+qqhrFTNrHSw3F9xJgAYWIsp7LWgIiuXcyzXNv3xuvXqr99sGrTrkwql6LcIZcNHwftfPcm8cMM3p3UHP/Rg6NyGCrU96SVtlcMPqZddM3oy1KD3d3dqUJZ/oI/HpjjToqvGS8n2bjvSOlQRfhEi9VUW6Q+rz0yuZdeMf9+0OFiOR8LgWuIvQiSlts9hssE1N9ywL8HCAXgw5Lj60j418fmVhVL6/kAIFZgPazIAsO2mGQAkfKJXDQYAXp9CoxCQUxrKTn3kubStckErxexm8oz/5rRQjA6W8Cli121Lmy0pxx8W19SUt3DwrjXFzPq50Q3KlsbTP5QrOMcSva3htSX+7vQjg2tBHtsgfVBR8GMzOQHw3XndrtuW97gkioTBtcQn+3sMqy2mSWL/XWuHranjj2vj04tidnqCxjnllK75ptSNsWYXx3WrJjrc12NGU1npjL6Mdm5uuKHNltR/EiwCHjE6WHK8v2c/PwaHTWepNL5FEEIFqX0VoUJARqU4bqY7AGBokJhPEXvuWG5m9UD1YMgOVYRdq4n6+TMZ//WqIZrQQHqor0eLSgKDnZt6SmewF/sS7VxaH2MGgPe4wYxKIJxjid4WRcLPH8h5JPx5w3TlSd7eE71rMl83lrEcfHVK++4Dml8hE5BTG8lOfuQxuJaYRxJ771g6b0v7ZL/63CNbUbj7sxycSbJ9dlDdYWvqtngzy3GdfUUHP/SY30pRWV6kD+vyiYuFTbHmln+lLI802l1c9+qiY/08JjSQinN9rFoKYQCGEMpfAoroWk0EANvjLQBQQUoNCmBYDuZcysOea0UZtbqDqn5ZfrqF/e1aqWgkcCPVEfnMrhCS3arh3BiUA5xjid5egDs9qq6E5WDyCW1em8sPDRJ/ESJxsfDFMW2WqePvyEtMzWgqO/mRxyeBYhFNnE2yfbxP3eav1FVRpnRL4ZziPjW5VkQaW/6VMmS/+sRDG58iBgQwR/t5LGqtKOJ5kvnnxENbx22p08/q0i1sg7L8Xb3cf22pKCvBhvtvgAEYQijf9fUTAcDu25aMKcyj60kUAjKj5Uaevs70JjKSgD+vm0vSuJjsrLthAoC+foyQh5uIKCc4xxK9izH1pIEedJLBNSc8z93qxoZIhwSJ7S5uxCHNheT3H4MBQBkxNa2J7NxAz8mh0rIS6r7O+fMlfZMNKcMPanbftpjex0SyN1Jb2K3x5gH/pIdtTJkTbkjSu7yl1ORQ6dkBnt+FySuVylMvAIhLcwz8J/2zg+oEjbOynPd7O+Vf3dwCPbDlRq6U0jcNQqgg1XSjAz3oG6mOI/etXXxFcgE5sq7k50v6ny8ZmlQQ5L5NlL873b26aOcty5xLhmXtlPm55EKWbmH337VSBAzwx/xD9CZUlc82bEvs3ufnC+mujDmWV/4hFIMCPm1T+eVt6Iw5lrKePWedTjPd3r/oy/2FtGJUhGQkInbfkb4xxtzOR9SofN4qTr9pLLM6ub/izMMPalZ3UDXM48tzKeOp8VkdyZlE25ab5pOJ1uMPrccfWgUU0bgCv5m3oJm34P2m/7k4uJnmOP/IdvyhLepZ5nAyAUW0qizoXYMJ887Dk6vkeWJ0zb9i2H3bwnKgEJJj6kkGBoh5eKaTFxiAIYQKQl8/5kaq7q84cxdfEQB8EsRsijPFpzv23LH0qJ6HFLtJDaSH7loP37eGP7aHliuxrSk2xZrtLq6Nj7C8FBM50JtlzLFssXTmrCVbLzw05jDJNmOOZZWpo6euOvPIisdfCACgphs9JkQy/7Jh8kntgT7uMkEePkoTAN83k3McbLlpHnZQvaajKv/uzBQBLSoJWlQSpFvYQ/es++9arjyxn3xoO/nQBgBlJVSwF13Hix/oQVdT8RR5+X+R4anJFZfmvJnmiEqxX3lif15vLKCIpuX5naqK2vkIJfxSHHgBGO3c8kjjHzdMVifHp4jBtZjPgyXyvH+rEQZgCKGC0K2a6OdL+vDH9gSN01fJo0liXIh04gntjxf1IWX53rkOM7zE1Ii6kgVXDHMu6Xf0dM/XNRcWm4vbGGsCgKFBr8/VRSgbOMcSvYORdSQnH1ojnzm+PaNf3EaRp9dmxmAAf980f3pAvayd8sVJj/nBTUQOCGAGBDBpFvZski0jof2J0bXf6Np/N7MjiLuIrKLglZVQHgzpwVASmhDzCYrIDJ844DRWTmtltTb2scGVZHAl6Z2vdHiqKKMalhN8UEkQVkGQ+zb9JZWD5TbHmpdEGDVWlgDo7CuaFCrN/bMbvQIDMIRQQWBoorOvaEuceetN89eNZQDQtZronwTLqUTbsAPqbd3dcr/n+mlt8R83TFEpjuspjiDPEphuvvu2Jd3CBnpg93mUdzjHEr0VioQFrZSdt6fuv2tpUUmQp8QEACAJ+KGZnCBgS5x5xCHNotaKtj4FEdS7i8ge1UU9qos4gLsaZ9Qz+7Vnjrg0x12tM83Cplny1tpRISD93Hn+bnSABx1ajl9GjNEFAAAHcOCudV64PlHvAoAGZflTG8lK5MO3IGEAhhAqIAMDmC1x5m23LOMbSEU8giRgcRtl393pN9MdIw9r1nVW0bnLqRfxiD41RauiTBtiTXM987ZTW/RxAGuvmwDg09p4/IUQKjjeMmpaY9lXp3TTz+qCvei89pbIiMEYHrH2uul/RzVzPlB0z2MU9y4IAF8lz1fJ610TAIADeGxwJepdT02uFJMrzcKanZzRzrEc9/x6hZBUCEmlgPQUk95SnreMKp3zu3J2Kdn+S7j+eooDAHyVvMmh0taV8bz8PcAADCFUQPzc6CBP+nqK4/A9a8aDWUwTKzsoe+1MC39sn3hc901jqVfudhwHBYjXRpv2JVinNGTdRCXqkXk60ZagcZYRUx2qYPd5hFCB6l2TOZVoO3jPOumkbktXNyqPN1cC4JvGMjFNLIkwTjqhTbeynxZSHjUBUF5KYQ3tu7iZ7pgbbjidaAMALzH1RYikTw0mr28JlB38RiKECk5/fwYA/or7bwJROQm1soOK4RH771qabUqZeEIb/tj+zORy5TjlpbyUalZRYHdxO26VtGFGa6JNAPBJEHaUQvnPqnnyODk5OTn5sfo9T9JFxdYPzeVlJdS1p/b5V95y4uK4+tKMPPMfL+h/upjtcHBUZCXpXeOPa7tuTzudaJPyiYkNpMf7e/Tzw+jrfcITMIRQweniK/r5ouHqU/tttbO6KvP+E+hBb+vhtuya6dB9y+7blt23LQBAEuAlpgI96OAy/HpedN0yr3aeGhQgPvnQtjnWPKy2pMS0A76Z7riQbBPTRN+aePyF8p3t8JgaPTYZOABhn23arb3fX9+E1atXL1++/C1eGB8fDwAGQ6kYtl40KQTk0rbKvrvTVkQag8vQrSq9Tb7Zp0FiDxH55Und6mhTipn95QM5nyopt+kSLcXM/hZh+PumxcFyAooYGMB8HixRYGZmPsAADCFUcEQ8oms14YYY86ZY06ww+fM/r+lGL26jSDZIN8SYLj62Z6TsPzG6nhhdR+5bAaB1ZeGvLRUv9v8N8xZUlFGJetepRFvLSvnbcavArIwyAUCfmkye2kAjVNScPn06IiLirV/OcXhqUpjqeNLj6kvnhRumnNLt603nMjP8FV2ridxE5KjDmr13LI8NruXtlVhhVZRpbezKKNP6GyaLk6MI6F2TGRsiKSfBHM78ggEYQqhADQwQb4o1b79lGV1P6sm89DwuL6WmNJJl/G8XC4l6Z1SK49pT+/671mMPrD13pi1vr6yiyLxrkQQMCBD/dFG/IcZUMgKwRL1rf4KFJglsv4GKuzVr1owfP/4t4qj58+dv3ry5S5cu+bEqlHsj6kguP7afSbKNP67d0DnPxWAZmlQQbOnmNvyQ5upTe4+daas7qHyV+LGzyDE5uLXXTWuijQY7RwC08xFOaCDFn1R+w+8vQqhA+Sp57XyEB+9ZV0YZv20sy+4yigQfBc9HwetRXfRZHcnIQ+pbamfPnWnL26kals9szt67pmjhFcPZJNs9rfN5YFZ8rYg0ujjoWUOEm46oYPCbzTpxaYyLAyDdqr3XkQd8Pj84OPgtXujl5fU+14HeFknAvJaKLtvTwh/b54brn2+N5ZW/O72zp/uIQ+rrKY4+u9MXtFJ8ULEk7JeVDGYntynGvCLKqLGyABDmLZhQX4r95QsGHgcjhAra2BApScDmWPMzkys311eUUdt7uneqKjTYuUkntRZn5ra6QkB2ry7iAP64bsrP9RaEpybXjlsWioARdfD4CxUQQlk1pEFoaGhoaH1fFVbooJe5icjf2ipoklgdbXo+3fgteDLk5q5uHasK9Tb2s4PqpRFGTDAtdFYnt/a6qcWmlJ8v6TVWtn5Z/pZubn92UmH0VWAwAEMIFbRqKl5bH6HNxa2Ozm3gxPCIha2VtTzoJ0bXqqj/XvVpkJgkYOdtS8YGXvG1KsrkYLkOVUU+xf8oDyFUMtT14k9pJOUAppzS3lE73/rriHjE4jbKiQ2kBMCCK4aRhzQGO0ZhhcPq5P64bmqxOWX2BX2aha3rRf/ZSbWlm1v9su/1EBy9CQZgCKFCMC5EShKwKdeHYABAEjCzqYwAWBFlfGzMfJWPgtfMW2B1cpvjinE/eq2V3RpvJgCPvxBCRcsngeIuviKzgxt9RGN8h6iJAPg8WLK6o0ohII89sHbZnpox2xcVGLOTW3Pd9MHmlB8u6FPMbJAnvaajansP9zBvTAotBBiAIYQKwfNDsJVRecgerOvF71hVZHVy88L/61Kd0bJiY4zJwRbXLdXV0Sazg2tZSejvjukf6L1xGtOS79+KiY6MuBoReSM+4UFyqvHtDzFQqfXjB/KabvRdrXP8cc073mWbeQt293Kv5UEn6V0f7k5fe91UXO/axYrRzi27Zmy+KeXHC/pUM1vbk17dQbWrpzvW4xUiDMAQQoVjTD0JRcD6GNOxB3moLpjaSCriEXvvWK4+tWf8SePygppudIqZ3ZdQLGfJplnYdTEmAmB0PUlhrwUVe5bkS1vnTx7coWGNMhKRzKNClZqBdYJD6ocEB/lV86ngJRMrvP0bdvx46pKd4Ulm/OyLcoPhEcvbKZVC8sRD29zwdx3R5i2jtvdw+yRQ7GS52Rf0nx5Qp5iLdwJ5Uaa2sPMvG8I2pfx62aC2sMFl+H90Uu3s6d6iRLQOLtYwAEMIFY6abvTEBlKWg/HHtHFpuc1FKSuhhtYWcwAvHoINDRIDwKqoYlnb/VuE0ezg2vgIa2P1M3oHbHr48hGNq1Rp3HfivA2Hwm8/Mzlf+33gOLvu0c3wg+t//qJXo6qVG3yy6Nyz3OYAo9LMW0Ytb6+kSWJllHFr/Lvme9MkMa2JbHl7pUJInk60ddiaeuAdmnygLCUZXLPO6ZttSvntmlFvYxuV52/s4ratu1szTDgsGrDaGyFUaEbUlSQaXFvizMMOanb2dCuTu3GfI+tINsaYrzyxx6U5MnL2uvgK54aTt9TOo/etbX2E+bzq9+mRwbXlppkiYEJ9aWGvBRVj9rubh3UYuvGO7d+Yi6AYVTnvit5l3aSMSCSgWLvVYjaonyUnJSanGh0cAOdIvbpufMuTp5Yc2DwiQFSoy0fFQEgZ/oymsm/P6Gae1VdT8up6vWvPhtaVhQf60FNO6c4k2cYc1Ry5L5reRKYS4cHAu4pJdayKNh28Z3GxQAC0riwcFSypgxt8RQwGYAihwjSzqey+1hn+2N5/T/qAAHEXX6HXm8IwhiZ61RCtvW7aFGue3VwOAHyKGFNPOv2s7scL+uYVBQKq2HTUXnjFYHdxPWuIqqnwbozeluXyd70yoi9CUK5h3+GfDejWulGgtzTL3yTW8iz+yulD29etXHfolt6RuOeLnl/6Xl7cSl5sfmtQYenvz9xWO9fHmD47qNnRw62S/F3vWl5iam0n1eZY888X9f8kWM49sn3bWNa9Om4HvA2WgxMPrWuvm8If2wGAJoluNYTDa0vw4VI04U4DQqgw0SSxrJ3SV8lL1Lt+uqhvujGl7+70Wef0f8WZo1Ic2aUUDqolJgnYc8eitWUWD/TzZ/zc6CSDK/et7QvdPa1zb4KFJokv6uHxF3prbOIfXy+4buMIqnzXhedjz6+bMaRtnWyiLwAgRV7+zT6csHh/dPSuMXXFBGe/s+qbFbcxExHlxrdNZK0rCzVW9uP96nTLe6jdIgAGBDAH+nqEeQs0VnbiCe0n+9X3tNgtJg9MDm5DjLnNltQRhzThj+0SPvFZHfHpAR5zWygw+iqyMABDCBUyhYDc18d9eTtl+ypCmiSuPrWvjzF9e0bXa2da1+1p+xIsrtfisIoyqkkFgcXJ7bplyfgTioBpTWQAsPyaMfet7QvXL5cMLhb6/5+9+4yPomrbAH5P2V7Te4BAKIHQCb0KSBUEURDBivXlUR8sgDwqiiL2hiKKilgQULoU6b33nkAIIaSQbLLZXmbm/RBESgghhE2ye/0/+MPdmc2ZkzN7cs05cyZJHacv19xLgFKImYt+3+KQiIt7fNac/7QylnsgS1H7nk9+f7uTipFc+xYuTa8ZJw1UMY6hT3sam4fLMouFMStMjutvNKyQOB33Y//gD3sYjUp2c6ar37z893da7De8BAeXpBd539pa3GFO7ptbzGfN3jgdN6mDfutDEePb6W86lwSqFgIYAFQ9Gcv0qqOc3jto58MRP/QPHt9ef19DdbiaPZbveX5NUc/f8vb9s+bhZQ81VhPRnKP2y8sit42W96urtHulaTtud50uH9iU6Vpz1qmRMVj8EG6L99iBox6J2PB+w7rrb3Ffru7QYSkyIiH1GIbAoJxUPPN1n+AYHXcwz/Pi2qLrL5BV2L31VWuGhw1vpBYk6Zv91p5zL847Ya/Ez/cbgkir0p2jl5l6zb04+7DN6pbaRsun9w5a+2D4o001WjmmE9cACGAAUI3o5EyXOMWYZppp3QwbR4a/08VQy8CfKxYeWW7ae3UG61FLGavjMszebVmuyy+Ob6dX8sySVMeyNIfPy34LPKL01pZiIvpPa10objqH2yG5XG6JiNHqtLf+ZxerN+pZIsntuo1H7ELACVezs/oGGxXs3+nO1zaaK7HtBCnZd7oa/rg3tFm4LNcmTNhg7j//4voM1833DAyZFqFkWflnVxVuPe9S8czwRurlw0J/vSekT4Ky5tz+DAhgAFBdyTlmeJL67+Fh99ZX2TzSo1dnMJah4UlqIppz5N81kWN03IttdBLRf9cWLbjttZLvnFkHbelmb70g/pFkTVWXBWo4LrZWLEcknt+7L/uWb8lxHNx9xEPERkRF4M8BuBWJwfz3/YPVMmb+CXvJ5aRK1DRc9seQ0E97GuN0XKrJ+8QK030L8zdlBm4Mc3ilxamO0ctMPX7Nm77PmmsT6gXxr3fUbxsd8U5XQ8MQrHBY8+DmPACo1jiGpnU3EtHCU45Hl5tmDwhpEXGps3mgofrzPdb1Gc5sqxClvTTf/YlmGpcgfbzLMn6D2eGlUU3UJa9LRIfzPOsynBcdot0juQWprpF/srnW97M1cmzC9L1WInqjk57HX71wm/imA/rWev/4acfGaePnD5zzQFy57/yQLLs+mDD7rEBseMduTfEnHNyiZuGy6b2DnlxR+NMRW7iGfaZFZc6mZogG1lP1SVDOOWKfsd+6P9fz6HJTiwjZ0y20PWop2cAY6hEl2p3tXnTK8dcZh9UtEZGSZ/omKB9opG4TdbuPAYCqhQAGANVdSQaTiBadcry0rmjlA6EyliGiYBXbu45yWZpj3gn7863/XUjwuZZaNc+8s634zS3mL/ZaEox8hIbbk+3OuW5xjt+P28e11d3XQO3L7vydbcV2r9SvrrJDTLkeiJljE/RyVi0LjL844JbJ2z41tvN3L24oPjd3dPu8vVPfffH+lKibNC2h6MTK794e//bcI8USI28y5rleGIqFCugSp/iwh+HFtUUf7rQoOOaxppXcjmQs81hTzfAk9S9H7N8etO7P9Ty1srCukX+8mWZwfVUNeuLIrTqa71ma5liW5sy2Xuq2WkTIhjRQD6ir1Ctw3c4fIIABQA3AMTStm/HIRU9aoffHQ/YxzS918w8mqZelOeYdd/xfSx13Ra/0aFONWsZM3V5c4BALHJcmLkZruZ61lQ2CeSXPsAz9ctS+J8c9YYP592P27/oFByl90astP+3867RTzTMT25drwYRUk3fQH/ltouSzBwTf6bJBDcXVf3bGB2u6P7s825219oPR7T59oV5Kp05tWzRKqBUbFWrQKJVyXvI4nQ5rQc75zPRTB3dv27LjSE7J+jWssePrsya0Kde1AIDrDaincgk0fkPRu9uKZSxzedJBJVLzzJjmmpFN1POO278/ZDtd5J240fz+TsuwBqoRSerbfxxZNSERHb3oWXHG+ddpx7niS7krTsfdk6gaVF9V1+gnhwkl8OsEgJqBZ+mNTvpRS01f7LUMqq8KV7NElBItTzDyZ4q86885e9ZWXrn9A43UDzRS59iEM0XeLIuQFCprHHrVLKuBiarlaY73dlgO5HlGLTX9PDDYeIczWK5NeH2zmYjGt9dfnjNZBonojS1mlyAloOuFssgaPDlvrXLsiOd/OFQkSh5T6tYlqVuX3HQ3Vpc0Ytqc6U+3xPAX3I6hDVRuQfrfJvPkLWYZe+nu3Eqn5plHkjWjGmv+OuP4/pDtUJ7n24O2WYds7aIVQxqo7q6jrKHTBNyCtPOCe12G6++z/453havZPgmqgfWULSKxpqF/QqcOADVGhxjFXbWUazOcn+yyTO1mICKG6IFG6qnbi+cet18TwEpEarjIGzwOhSEaUE/VPkbx4JKC4wWeUctMcwYGG+/Y7A6JaOJGc5FT7ByneLBxuf5AWXTKsfOCO0TFvtAGS9VD2VSNRn+3p8+Tv03/4rtflm47Yy7r+UwMr6/dtv+Ix//vuZEdonEnCVSCEUlqjyhN3lI8aZPZI9KdGAcrwbE0sJ5qYD3V4YueX47al6U5tmW5tmW5XueZnnWUfROUXeIUSr4GZJYMs3drlnvjOde28y77P6drlJbrVVvZJ0HZJkoeIPe5BSwEMACoSSZ11G8+71pw0j4iSd00XEZE9zVQfbzLsvGcK8sixOhu+dFC0tP6AAAgAElEQVSTISp2zsCQBxcXHMv3PLrcNGdAyB1aluPXo/YN51xGJTutm6E8P8Dqlt7fUUxEE9rrDZj0D+XAh6eMmjxn1GRPUfqhPfsOnzydkZVbUGh1uL0kU2m0Wq0hLL5egwYNmzRrUtuIRTegco1uopEkentr8eQtZpcgPdHszg6sJofJ3utmeK2DfsUZx8KTjt3Z7iWpjiWpDjXPdIlXdI1XdI1TVLeHEZ+3CLuz3bsuuLdnuTItlwa7GKKkUFn3WopetZVNwmrmKB7cOgQwAKhJ4vXcw8nqbw/Y3t9Z/PPAECIyKtnedZRL0xzzT9hfaKO76SdcL1zN/nJP8IglpkN5nufXFM7sG1zpt3Yfy/e8t72YiN7ubCjn3wQf7irOs4utI+WD66squTTg52TGOq161mnVs6rLAYHm4WSNgmP+t9k8dXuxyyv54CnzOjlzf0P1/Q3V5y3CijPOVWccB3I9K884V55xElH9YL5dtKJNlDwlWl4lT1y0e6RjBZ6DeZ4Due59OZ4rF4IKUrIdYuSd4qpjUAQfQAADgBrmuZa6347Zt2e5T5m89YN5IhqRpF6a5ph3wjG21VVLcZRfhIab3T94yML8Dedc72wrfr1juVbIKKd8h/jUykK7V7q/obpf3VLmSV7vyEXPr0ftPEtvdynXcBkAQHUwPEmt4JlX1xd9vNticoqvddD7ZipdrI4b00wzppkmxyasz3BtzHRtPe86ZfKeMnl/OmIr2SA5TJYcJmsYIqsbxMfoKn8JRY8oZZiFtELv6ULvSZPnWL43o9grXjEZ2KhkW0fKU6Ll7aLljUJkmGQYyBDAAKCG0cmZIfXVPx2x/XLUNrmzgYhSouX1gvi0Qu+SNMe9FR0vitNzM+4OemipafZhW4KRf6h8t2ndlEuQnl5ZeMEqtIyUT+5crlwnSPTaJrMg0ZimmpKECQBQU9xbX6XimRfXFv142GZyiu93N/gyakRquBFJ6pJ70g7kenZdcO/Kdu/LdZ+3CCWjZCWbqWVMLT0fp+fidFyUlgtRsREazqBgdHJWK2dKnfUtSmRxi06vVOySCl1ikVPMsQn5dvGCVbhgFTKLhRybIF5976WMZRqG8M3CZS0i5M3CZXWDasLdaeAT6NoBoOYZ2Vg954jtz1OOl9vqtXKGIXqqufbl9UVf7LXeU09VsUEwImoVKX+3q+HldUVvbTXH67kucbe7NnfJwhv7c90xOu7ru4Pk5bvk+vMR25GLnigt95/WFZlRCQBQtfokKI2K4KdWmZakOgqd4vTeQRqf39wkY5k2UfI2UfLniASJzhR6D1/0HL7oSS30pBV6L9rF4wWe4wWeMj5ByTMljxpzCZKzrGVtLuFYitNxiUF8vSBZvSC+UQifGMxjnAtKhQBWfRUUFGzYsEEUxVvdsbCwkIiysrLmz59/B8oFUC3UkTU54zG+/vu29soLRCQSE8q1yjArX/91Q3PFxdv55O6qWusccU8tv/iE4Ug8b6nw50jELLElbHdGyRnhPnbf+mX28uxVLMo/LmpJxPdiDi9fZCrnz8rIyKhwOQEAKl27GPlv94Q89pdpc6br/kUF3/UNKs+zN+4QjqHEYD4xmB/S4NIUiSKXmFksZBYL5y3eHJuYbxcv2oUil2hxS1a3aHFLROT0XpW7GCK9glVwpFewQUrWqGRDVWyEhovUsFFaLl7PR2s5HuslQfkggFVfTz755J9//lnh3ffs2XP//fdXYnkAqhVNywERY2YuOC188tYDJElEpOswPGzUx3PS2HffGk7SLV+5+BfDhI36WNf+gS8uxF/4cLAnJ7UiH8JyYaM+0rXrKHlc57557Pmj68u5X8SYmZqWvO3gyjdnPFaRnwsAUD0khcrm3xv6xF+mEwWeIX/mf9s3uElYdVl906hgjWFscpnlcXglInILkoJjasTS9lCDIIBVX4888gjHVeRy0Zo1awoLCyMiIrp06VLppQKoLhjukMtMkYl9nhivK0ojIomho44Cikzs+dw7Qbn7buvDnTtP5zcpCm1cd/ziBns/lTsLb2lvieXSk0YVhrdgBVe9w9+2TgqlpGHl2dEckpTWbAAruNpZt8uHlWuXErt27cIgGABUN3E6bv7gkGdXF27Pco9YXPB+D2PfhHItRFQdqHjm8n8BKhcCWPU1cODAgQMHVmDHVq1aFRYWtmvXbt68eZVeKoDq4/M91s/2WBKHvfx5r6CSV+Yet7+20cx1fnzusPG3OfHe6ZUeXmbak2PM7fnW132Cm4eX98JtWqH3xbVFhfkevYL9vl90i+feKeeONo/U5/eLZBXGdw57/LmZt1TaUaNGIYABQDWkV7A/9g/53ybzvBP2sasLn2mpfbGNDjdGQYDDZFUAqKkeaKTiWVqV7jQ5Lk04HNpAFaPjUk3eT3dX/N6tEkqe+bZvUPsYeZ5dfHBxwcJTjpvuIhHNOWIf9Ef+sXxPLQP/y8DgFhHy8v/ED3daLliFpuGyR5Lv7ANMAQB8iWdpajfDG530LEtf7bOOWWEqdt3GLHGAmg8BDABqqggN1yVO4RVp2elL6UjGMpM7GTiWpu+zfrnXepufr1ews/uHjG6icQnSS+uKXlxbdCy/9CWzPKK08JRj4Pz8N7eYnV7p/obqZfeFJoXewt0O+3LcPx+18SxN7Wqo/MfTAABUtdFNNHMGhASr2A3nXPcsyD98sawVCAH8G6YgAkANNri+el2Ga+Epx+gml0aNutdSfHKX8cU1RZ/stshYeqqF9vLGNo90rtgbpGQjNeW9u5Jj6Y1O+gYh/OQtxUtSHUtSHR1iFP3qKktWvnKLdCLfc7zA8/dZV65NIKJIDfdGJ33vOrd2k4NbkCZsNIsSPdNC2zCkutykDgBQudpGyxcNCR37d+HBPM/9iwomtNdd/uoGCCgIYABQg/WsrdAr2EN5nlSTN/GfZxb3r6vyCPTy+qL3d1o+32uN1HBBSjbHJmRbhZINIjRcs3BZv7rKgfXK9dTm4Y3UnWMVPxy2zTtu35bl2pblun6bhiGyx5tqBiYqK/DUl+n7rGmF3rpG/rlW2ptvDQBQY8XouN8Hh0zdbpl92DZ5S/H2LPfUrgajEhOyILAggAFADabgmH51lXOP2ZekOcal/PvY4sH1VaJEU7YVm13iWbP3rJmISM4xtQ1cnk3MtQmr04XV6c41Z13vdDFo5TePTDE6blIH/fOtdQtP2Y/le/PsQrZV4FmmQTDfMETWPELWKrIcn1Kawxc9X++3sgy9282gwOxDAPB3MpZ5vaM+JUo+fkPR6nTnwTzP+90NnWJv98H3ADUIAhgA1Gz31lfNPWb/46TjhTa6K/PLkAaqIQ1Udo90wSqYnGKkhovRcRxDEtHZIu+W8+4PdxUvS3Mcvuj5vKexnE+n0cmZyp0wU3J3mSDSmGaa1pG3sGIHAECN1idBmRwWNm5d0e5s9yPLTA8na15qq8Oa7xAgMOYLADVbq0h5vJ7LtQm7Lrivf1ctY+oF8SlR8ng9VxLPGKI6Rn5UE/WSoaGNQ2UZZu8Diwt2ZZeyrw98tNOSVuhNDOZfvGL4DgAgEMTouF/uCRmXouNY+vGwrf/8/N1V9FUM4GMIYABQszFEg+uriGjhKfst7VjLwC+4N2RoA5XTKz21svB4ga+X5NqV7f7hsI1n6cPuRkw+BIAAxDH0bEvtwiGhDUNkGWbvg0sK3tpabPNIVV0ugDsLAQwAarx766sZopVnnHbvrXXbco55r5uxX11lsUt8bLkps1i4QyW8XpFLHLe2SJTouZa6ck6ABADwS0mhskVDQ8a20rIMzT5s6z334up0Z1UXCuAOQgADgBovXs+1jpLbPNLicjwu+RosQx/1MHaIUeTZxYeXmwqdvng8qET06nrzBavQIkL+XEusfAgAgU7GMi+00S0aGtoiQpZjE55ZVfjkisJzPrwoBuBLCGAA4A9GNVET0Y+HbRWYuSLnmBl9gpqEyTLM3v/8XSTc+ckvPxyyrTnrNCrYz3oaOXwNAwAQEVGjENm8waFvdTboFezaDGef3y9+tMtyq1MbAKo/9PwA4A/61FFFari0Qu+286U8pOumNDLmu77BERpuW5brg53FlV68Kx3K87y/w8IQvdfNEKMr7yOhAQACAcvQyMbq1Q+EDWmgcgvSV/usPX+7uOCEXUQKAz+CAAYA/oBj6cHGaiL66citLcVxWZia/aynkWfpuwO2v07fqdsPChzi2L8LPaL0SFNNrzrKO/RTAABqtDA1+0F344Ihoc3CZbk24dUN5gHzL248V5HrawDVEAIYAPiJB5PUCo5Zl+Gs8FoabaLkE9vrJaJXNxSlmryVWzwicgvSM6sKz1uElpHyV9th3XkAgLI0D5ctuDf047uMsTrupMn72F+mEYsLsFQ9+AEEMADwE0FKdkA9pSjRz0dtFf6Qh5M1g+ur7B7p6VWFxa5KXpBj4kbz3hx3tJb7qneQjMW68wAAN8EyNChR9ffwsAnt9UYluyvbPXxxwSPLTftzEcOgBkMAAwD/8XCyhojmnXDYb+MxMu90MSSFys6avf9dV1SJdx18tc+68JRDLWNm9g0KU+O7FwCgvOQc80QzzcYHw59vrdPJmc2ZrvsWFjy0tGBHFmIY1Ej4IwAA/EfjUFnrSHmxS3xpXcUXM1TyzNd3BwUp2fUZrs/2WCqlYHOP2T/eZWEZ+uQuY6MQPPULAOCWaeXMf1prN4wMH9tKq1ew27PcI5cW3Lcwf1W6E0t0QM2CAAYAfmVKF4NBwa5Kd76+yVzhHjlWx33W08gxNH2vdeWZ212QY+5x+6RNZiL6X0d9z9pYeAMAoOKMCvaFNrpNI8P/m6ILUrL7cz3PrirsOffiz0fttzP3AcCXEMAAwK8kBvPf9g1S8czc4/aPdloqPA7WMVbxanu9RPTi2qKtFVravsS8E/b/bTJLRK910I9uoqnw5wAAwGU6OfNcS+3mh8Lf7GSI13MZZu8bm80d5uS+s60Yj2+G6o+v6gIAAFSyVpHyL3oFPb3K9PV+69f7rSqe0coZSSKPSAxDbaLkT7fQNg+/+TzAx5tqLliEHw/bnl5ZOHtAcMtI+S0VQyKavtf62R6LKNHEDvpHmyJ9AQBUJhXPjGqifrCxenW6c/Zh2+5s9/eHbD8etnWKVYxIUt9VS4kn3UP1hIYJAH6oey3F+92NoSqWIXJ4pYt2Md8hml1ikVP8O9059M/8UUtN+3Jufvf2pI76+xqq7V7p8RWFR/M95S+A1S09s6rwk90WIprUQf/4baSvEwWei/ZKXo8RAMBvcAz1TVDOHRSy9L7QYQ3VCo7ZlOl6ZlVh51/yPtplyTBX/jNFAG4TRsAAwD8NSlQNSlQRkd0j2b0SEclYsnmk347Z5xyxbcty7cp2vdfNeG99VRkfwhC929Vgc4srzjjvX1Qwob1+ZGP1TdeP35/rGb+hKK3Qa1Cwn/Y0dolTVPgofj5qn7zF3CpSPndQSIU/BAAgECSFyt7rZpjQXrfwlOO3Y/a0Qu9X+6xf77OmRMuHNlD3SVBqZHj+B1QLCGAA4OfUMkb9T6drUNC4FN2TzbWf77F8f8j28rqifLs4pnlZw1McQ5/0NOo2Fc87YX9js3nTOdfUboYQVenTBzKLhQ92Fv912ikRNQjmZ/QJjtdzFS75jP3WD3ZaGKIB9cpKiQAAcJlBwT6SrHkkWbMnxz3vuH3FaefOC+6dF9xvbGZ611EOrKfqHKfgMQMMqhQCGAAEHJ2cea2DPlbHTdlW/N6O4nyHMKG9voztZSwztZuhS7xi0kbz2gxnp59d3eIV9ySq2kXLeZbRyZksi7Ap07XhnGtTpsstSCqeeayp5umWWjVf8autH+60fL3fyjL0dhfD8EbqCn8OAEBgah0pbx0pf6OTtOK0489Tjt3Z7sWpjsWpDqOS7ZugHFhP1TpKzmFIDKoCAhgABKiHkzUhKvaldebvDtqClOzTLbRlb983QdkiQvbG5uL1Gc7V6c7V6aUsT88xNKSBalyKLlJT8YEviejdbcXfH7LxLH3YwzgQw18AABWlkTH3NVTf11CdZREWpzqWpjlOmby/HbP/dsweqmLvTlD2TVClRMmxXAf4EgIYAASuAfVUco55bnXhR7sstQx834SbPKQrUsN90yco1yb8ddq5NM1x1iwIkmR1Szo50ylW0SVe0TVOEXEb0YuIJKK3txbPPmyTc8yXvY131cJzwwAAKkGMjnu2pfbZltqTJu+yNMdfp51nzd5fjtp/OWo3KtmetZW9ais6xipUtzFzAaCcEMAAIKD1rqN8pZ3+ve3F49YWRWpCWkTcfHn6CA33aFPNnVhW/nL6krHMF72QvgAAKl+DYL5Bim5ciu5YvmfFGeeqM87TRd4FJ+wLTthVPNMxVtGjlqJ7LWW4GoNicKcggAFAoBvTTHPW7J17zP7MKtOioaG3M3vwdkhEb20p/umITcExM/oE3c7aiQAAcFNJobKkUNm4FF1aoXd1unPNWeehPM+as841Z50MmZNCZd1rKbrFK5qG41YxqGQIYAAANLmTIbNY2Hre9cKaol8GhlTJzQBTtyF9AQBUgXpBfL0g7bMttXl2cd1Z57oM17Ys19F8z9F8z5d7rUYF2zFW0SlO3ilWEa2tmit04GcQwAAAiGfp07uMAxbk7852f7bH8t8UnY8L8NEuy6xDNhnLfNH7tp4bBgAAFRauZocnqYcnqV2CtPOCe8M516ZzrnSzd/lpx/LTDiJKMPIdY+UdYhRto+UGBeYoQgUhgAEAEBEFq9hP7jKOWlrw9X5rSrS8U6zvUtAnuy1f7bPyLGHVDQCA6kDBMV3iFF3iFNSRMouFTZmuLedd27NcZ4q8Z4q8c47YOYaSQmXtouVtoxVtouRaOSYpwi1AAAMAuKRttHxsa92nuy3j1hYtGxYW5pM7sKfvs36518qx9FnPoJ61kb4AAKqXOD03srF6ZGO1INLBPPe2LPe2LNf+XM/hi57DFz3fHrRxDDUMkaVEy1Oi5K0i5SEqjIzBTSCAAQD867mW2p0XXNuz3K+sL/q+f/CdvqT57UHbx7ssHEMf9zD2udki+AAAUIU4llpGyltGyv+vldbhlfbnundccO/Ich/K85TcMPbDIRsRJRj5VpHyVpGyFhHyukFY1R5KgQAGAPAvlqGPehj7z8/flOmac8Q2uknlrzV/2ezDtve2F7MMTetuHICnLQMA1BwqnukQo+gQo6A25PBKB3M9u7Ldu7PdB/LcJdMU558gIjIq2GYRsubh8uYRsqbhMiNuGwMiQgADALhGhIZ7t6vhmVWF03ZY2kcrEoPvyPfkT0dsb28tZoimdDHcWx/pCwCgplLxTLsYebsYOREJIh3N9+zNce/Pde/N8eTYhI3nXBvPuUq2rGXgm4XLmobJksNlSSEytQzDYwEKAQwA4Fq96yjvb6ied8I+dk3h4qGhisp+BMzc4/a3thQT0RudDA80UlfuhwMAQFXhWGoaLmsaLnuUNESUbRUO5HkO5Lr353qO5XsyzN4Ms3dJqoOIOIbqGPkmYbLGobLGobJGIbwe42MBAwEMAKAU/+uo35XtTjV5399h+V9HfSV+8s9H7W9uNhPRm50NDzVG+gIA8FtRWi5Ky/VNUBKRINJJk+fQRc/hPM/hi56TJk9aoTet0LvolKNk4zgd1yhU1jCEbxgiaxQii9VxLEbI/BQCGABAKdQy5pO7jPcvKvjxsK11lLxvJa2QMfOA9f0dFkL6AgAIMBxLSaGypFDZ8EZERG5BOmnyHr3oOZLvOZbvOWnyZlqETIuwOv3S9mqeqRfMNwyW1Qvm6wfxicF8pAaPgfYTCGAAAKVrGi6b2EE3eUvx+A1FDYND6xhv9wvzw52Wr/dbWYbe6mwYkYT0BQAQuOQckxwmSw6TlfyvINKZIu8Jk+d4gfdEgedkgTfHJhzK8xzK81zeRStn6hr5+sGyukY+IYira+TjdDyHeYs1EALYLRBt5w/tOpB2Id9KutDoOk1bN4vX4VIEgD8b3USzN8ezLM3x3OrCP4aEqiq6nrAg0Zubzb8es/MsfdjDOBBrHgIAwBU4lhKD+cRgfmC9S6+YXeIpkze10HvK5Ekt9J4yeU0O8WCe5+AVkUzGMvF6LiGIr23g6hj42ga+toGLwEBZtYcARkREkiltT2qBSKw2Prlx1PUzjRxn/vrszbc+m78rxyldfpFRhCb3e/LV18cNbx6Mqw8A/mpqV8OJAs9Jk/fldUWf9QyqwLVGs0t8fk3R5kyXkme+6BXUo5biDhQTAAD8ikHBtomSt4mSX36l0CmeMnlPF3lPF3pLFrvPsgini7yni7xX7qjkmVp6Lt7A19Jz8Xo+Xs/F67kYHc/jr9VqAwGMiIjc6yZ2GTbfSbK27x/d+nLiVRcOxNzV4weP+GiHSbxmJ8mVf2jhuw/9NfePjxb8+GwLHW6UBPBHahkzvXfQsEUFK844aU3hpz2DbqkPSyv0PrWy8KzZG6piv7o7qFWk/Ob7AAAAXCdIybaNlreN/rcfcXqldLP3rFlIL/KeNXvTzcJZs9fkEE+avCdNV6UyjqFILRen52J1fJyOi9GV/JsLV2OpjyqAAHYT7iOfPvDARzuKRCJi5OFNuvXs0rxehJZsuWn7NqzecCzf4zqz8PmBjG7z3NF1UJsAfqleEP9j/+BHlptWnHEKfxd+3ssoK0d/JRH9ftw+dXux1S01DpV90ycoSotpIQAAUGmUPNMoRNYoRHblixa3dK7Ye9YsnCv2ZhYLGcXezGIhxypkWYQsi0DkvnJjGctEadkYHRet5WJ1fMk/orVslJaTV/YjWOAyRIYyiRd+nThlc5FIDBfRbeKs7yf0r33FnRuS9eT8iQ89NX1PUdbCcS/P6z3/wUi0VAD/1CxcNmdA8MPLTKvTnY8uN73TxVDLUNb351mzd+JG884LbiIaWE81tZuhwvePAQAAlJ9OzpQ8W+zKF70iZVm8mRbhfLGQaRHOW0rymDfPLp4rFs4VC9d/TriaLVlGP1rLxei4KC0XpeEitVy4GnMZbxcCWFnEzAU/rC4SiVE0fXnh4rfa665+m9E2uP+zpWxBm+G/ni9Y8vGs4w+8loTr2wD+qkmYbM7A4IeXm7ZnufvMyx/TTPNMS+31sepQnue3Y/bFqQ6XIIWp2dc7GvrVrZwl7AEAACqGZ6mWgb/+0qFLkEpGxi5YhQv/jJJlW4Vsm5BnF/Ps4pVrfpSQc0ykhi0JZtFaLkrLRWouJTSdHJcaywUBrCy27Zv2uiVijAPHv9xOV+omTOS9rz3dbP6kfd7Dq1ZnTkiqjYsCAP4rKVS28v6w93da/jhhn77P+tMRW4sIefMIWbyez7MJOTZxb477aL6HiFiG7m+oHt9eZ1DgSwEAAKopBcckGPmE656zIkp00X4plV2witnWS8EsxyYUOG44aKaVM1FaLlbHRWkuDZ11iFVgxOx6CGBlEPOzczwSkbxFt07GGyZ6LrFTxyhu3znvmdQzXqqNG+wB/FqIip3WzTC8kXrKVvOBPM+mTNemTNeVGwQp2fsaqEYkqcueowgAAFBtsQxFaLgIDdci4tq3XIJ0wSJk24Qcq5hlFbKtQnZJTrMIVreUavKmXrH+R5so+dxBIT4tek2Avw/KxhARsYYgQxnZnTEGGxk6J5oLzdKNtwIAP9IiQvbHkNBcm7A/17M/151rEyM0bLSWi9fzHWPluHEZAAD8lYJj6hj5OtcNmhFRkUv8J4yJF6xCrk3oGo8nr5QCAawMbETdOlp2i0m8mHtRJN2NMpiYn5cvEjEGowF/dAEEkggN1yeB65OAW7wAAADIqGCNCvaaVRnhepiUWRZVp4G9gljy7Fu6IvPap4Bd5tqzYk2eSIyiSYtGaG8AAAAAAHBjGAG7inB85pgHjiUnJibWT6yfWD8xsce4sS2XTN6zccqLPw+cPzr+ujUOJfP2KS/MSPMSo2w34O4IjIABAAAAAMCNIYBdRSxO2/hH2sbL/8+wcpVCIhJzFj3d79X4HR92015+z1NwZMV370x85/ejNom4uAfHjYzDeCIAAAAAAJQBAYyIiLhGg8aO4U+kpaWlnU6/UOgULq2mIYluu6PkX460AycsUjftpUEuz9ZX23T9JF0gImIUiQ9/PqVvEMa/AAAAAACgLAhgRETENx75/syRJf8WnabzZ9KucToz/5qnHYiiSETEsMYWz8z689PBURj+AgAAAACAsiGAXYdVBscnpcQnpfS44kXJbc4pkML+HeNiVNEt+4x+oNfgB0cObBaKagQAAAAAgJtDcigfRm6IirryBb71K38uq6rSAAAAAABAjYR5cwAAAAAAAD6CAAYAAAAAAOAjmIJ425yF2Sa7KBExqpDoYGVVFwcAAAAAAKotBLDb5Vo1tsG9v1gkIuWw+UXz7lNU2ifPnDlz5syZFdjxxIkTRGSxWCqtKAAAAAAAUBkQwKqvLVu27N27t6pLAQAAAAAAlQYBrPqaNWvWf//7X0EQbr7p1T7++ONff/11wIABd6JUAAAAAABQYQhgt0veZfK6HWMFiYgNSZRX5ifLZLLmzZtXYMeIiIjKLAcAAAAAAFQSBLDbxQTVbZ1St6pLAQAAAAAANQCWoQcAAAAAAPARBDAAAAAAAAAfwRTEm/Ba83MvFhQW210ekVVodDqdITQiTIt6AwAAAACAW4YgUQpH1o6lv/+x7O/NO/cfOZNn80pXvcswcn1M3YbJbbr3HTR4cJ+UODVTReUEAAAAAICaBQHsKmLBzpkTX5z8444ct3SjbSTJbT5/fOf54ztX/DRtXFirB1/7ZNr/dYrgfFnO8njnnXe+/PLLMjbIzMwUBIHjqrjkoiiKoshxHMNUZZKVJEkQBJZlWbaK5+WWPHgAv5cS+L1cQxRFSZIiIyOVSuWVr+fl5VVVkQAqXU3pv3ysmnwt+8Hj32IAACAASURBVFj16QV8TBAEnudjY2OruiB3XGD2Xwhg/3Kf/vWJvo/9nOr6J3sxnDo4Oi4+LipEp1apFJzodjrsFlNuVua5rItWj0QkeS7umf1ij/Ubvvjr16caq6q0+P+qXbs2ERUUFBQUFNx0Y1EU73iBysHr9VZ1EYiIBEGowIPX7gT8Xq6E38s1Lly4cP2LDMOUnPsANVdN7L98rJp8LftY9ekFfMntdp85c6aqS+ELAdh/MZJ0w6GewOLYNal9l3cPuiRiFNHtHnhyzMhBPdsnx+lKvb4mOnJP7N64csHsmbNXniwWiZHXf+6vXZ/fZaguF6UyMjLK/qqy2+3JyckqlWrFihU+K1WpJk6cuG3btnfeeadjx45VWIw1a9ZMmTKlZ8+ekyZNqsJiSJLUvXt3hmHWr19fhcUgosmTJ69fv/6NN97o3r17FRZjy5YtkyZN6tSp05QpU6qwGETUu3dvt9u9atUqhUJRhcWYNm3aihUrpk2bdt99913zlkqlioqKqpJSAVSiGtR/+dj48eN37NgxderU9u3bV3VZfGfVqlVTp07t3bv3xIkTq7osvuN2u3v37i2Xy48fP17VZfGFAOy/MAJWQjz3w8RPDrkkhosZ+PHi2WNbGcuMUqwqIqnL/Uld7n/uv0teHvLgl/ttqd++9s3/dXulQTWZD1GrVq2yN7DZbETEsmzXrl19UqIbCgkJIaLk5OSqLUlWVhYRhYeHV20xLl8QqfLfS3h4OBE1atSoaktSWFhIRKGhoVVeISWzX7p06XLN3D8fmz17NhGFhYUlJCRUYTEA7pwa1H/5WDXpLn0sIyODiCIjIwPqqF0uFxExDIOven8VWBNqb0jMXPT7FodEXNzjs+b85ybp60qK2vd88vvbnVSM5Nq3cGl6wA2PAwAAAADALUAAIyIi77EDRz0SseH9hnXX3+K+XN2hw1JkRELqsVMIYAAAAAAAcGMIYEREJLlcbomI0eq0t34XF6s36lkiye268dKJAAAAAAAACGAluNhasRyReH7vvuxbXlTJcXD3EQ8RGxEVgeoEAAAAAIAbQ2IgIiK+6YC+tTiSHBunjZ+feSsTCSXLrg8mzD4rEBvSsVtT2R0rIQAAAAAA1HwIYCXkbZ8a21nPkHBu7uj2d78yZ1e266b7CEUnln/4UIdek7cXS4y88Zjneml8UFIAAAAAAKixsAz9JVz9Z2d8sKb7s8uz3VlrPxjd7tMX6qV06tS2RaOEWrFRoQaNUinnJY/T6bAW5JzPTD91cPe2LTuO5NhFiYhYY8fXZ01oU5VPBwIAAAAAgOoPAewyWYMn561Vjh3x/A+HikTJY0rduiR165Kb7sbqkkZMmzP96ZYY/gIAAAAAgLJhCuKVVI1Gf7fn5PbZrz/Upa6BL3s9RIbX1+k4YuL3m0/s//mZloZbXzwRAAAAAAACDUbArsWHp4yaPGfUZE9R+qE9+w6fPJ2RlVtQaHW4vSRTabRarSEsvl6DBg2bNGtS24hFNwAAAAAAoPwQwG5EZqzTqmedVj2ruhwAAAAAAOA3MAURAAAAAADARxDAAAAAAAAAfAQBDAAAAAAAwEcQwAAAAAAAAHwEAQwAAAAAAMBHsApigJLL5SqVymAwVHVBqKQMVV6SkgLo9fqqLQbDMHq9nmWr/spISVXg93JlSViWlcmq+NkT1eT3AlCFqk//5WPVpLv0serTC/gSz/MajUaj0VR1QeBOYSRJquoyQNXYv3+/QqFISkqq2mLk5+fv3bv37rvvrtpiSJK0cuXK9u3bG43Gqi3JoUOHGIZJTk6u2mIUFhbu2LGjT58+DFPFTxlftWpV69atQ0JCqrYYR48e9Xg8zZs3r9pimM3mrVu39unTpzqkdICqUk36Lx/Lz8/ft29f7969q7ogPiWK4sqVKzt27BhoyfPAgQMymaxx48ZVXRC4IxDAAAAAAAAAfATXUAEAAAAAAHwEAQwAAAAAAMBHEMAAAAAAAAB8BAEMAAAAAADARxDAAAAAAAAAfAQBDAAAAAAAwEcQwAAAAAAAAHwEAQwAAAAAAMBHEMAAAAAAAAB8BAEMAAAAAADARxDAAAAAAAAAfAQBDAAAAAAAwEcQwAAAAAAAAHwEAQwAAAAAAMBHEMAAAAAAAAB8BAEMAAAAAADARxDAAAAAAAAAfAQBDAAAAAAAwEcQwAAAAAAAAHwEAQwAAAAAAMBHEMAAAAAAAAB8BAEMAAAAAADARxDAAAAAAAAAfAQBDAAAAACqlteScy7jXK5VqOqC+FRgHjUggPkjsejon++PHdYtuXaEUa1Q6kKi66f0e3jCN2vTbVKZOzrOrP7ypfs7J8WHaVW68FpNuj44fsb6cy4fFfvO8GwdV5dnysTXe2mbp9Sd/ahCvLsnNJKVXQ//YkMeXe6+7iP8qDauJhYeWjDt/4Z2SooP06vUQVF1m3Yb8cr0lam2m+zntxUCUF0F2El3W/1XzWNf/XyzOrUTh/94Qbzptv7TEsp11AHWEgKEBH5FyF33Ro9Inintd82o6g39fI9ZLHVH++GZIxpqr9+PNTR94rc0t48Po/IUzblHVWpt/IurO27r9QfoZxXi2TW+IV/ebwUm+JFlrqt297Pa+JcrfeEL7UJLO2EYTf1hX+4pLv108d8KAaiuAvCkq3D/VSOZlzwcwRLJu31xTihzQ79qCeU76sBqCQGi3H+SQU3gOvrpA0Pe3lAkEjHKyBa9+nVNjjeyRel7/l6y5pjJ60j744UBXv32Px+uffXQp3jul9F9n/3jvFciRl278z39UuKVxae3Llu264LLfGjWI/14w7av+obc5PSvjrxn0856JCJWF9+kQbi81G242Nhrv8r9r0IYTUyTVq21Zc9xEEynD6YXiqSonRB3RQvxv9q4RMya91i3kb9meCVi+JCkXvf0bhWnMJ3av2PL5v3n7bZTC56/x6PeNP/Rutd8T/pthQBUVwF50lWw/6qZnIemT52fd/OhL/9qCeU86oBqCYGjqhMgVB4x+6dBQSwRMcqkx349abviLSF/65TuISwRERfz+HLz1fvlLXgwiiUiRp446tc05+U3rAen3xPLMUQMX/+FjRYfHUalsi8aaWCIGM3QucXl3smfK6QMnlNf9jSyxKhbv7nH/u/Lflsbwrnv+pecL3zcoM92ma64+uhIX/zfFCNLRGxQ/1mZV1+X9NsKAaiuAvSkq1D/VQO5cvfNm9Q7VlYSH8ocC/KjlnALRx0wLSGwIID5DyFzeg8FQ0R809f2OK9/O/2L7mqGiNjwR5ddGc68h99qIWOIGFnSS1usV+8k5i95JI4jIkbd8+vMsmcFVEdC2ocd5ETENxy/y1Penfy5Qm7Mc+qLu4wsMbpO0w5dOf3Qb2vDte2lRI6IGFmTV7Zar3tbuPD78GiOiLg6z2+88nTy2woBqK4C9KSrUP9Vc4jmbV88++DALskxWu7KkZuyokjNbwkVOWp/bwmBCotw+A/Hri173RKRrPHQB5orrnubjbu7b1OeiMSikyey/x3xFo79+ecRj0SMsvOzY9trrt6JCen74uNNeCLJsXX+kqybzw6oZrxn09K9RAxXJ7EOV859/LpCbkRInfHMpPVFkqb9pBkvJl8xwcFva8N7cPHSdIGIUfX4zwvXHhgRsVFDJz3TTEYknPvz963Oy6/7bYUAVFeBetJVpP+qSawHFn7369JNh7OsQtnrg13mDy3h1o/a/1tCgEIA8xtifuZ5h0REXFztuNJOUVZn0LFERJLd7rh84otn/151zENEstYD+8de3x74pAH9E3kiybl9xbrCcn9fVA9S4ekzJpGIjahX11DOydF+XSE3IGb8+MIb682SqtUrXz7fWHblO/5aG5Ll2NGzXiLi63doF15q2+Dqd+sayxEJ2WtXH/JeetFvKwSgugrUk64i/VeNom054pXx/3q+37V3217LL1rCLR91ALSEAIVFOPwGGzb0i/WtrRLDhTU0lLaB5/SJM14iYuS1E2Iuf3W5Txw+6SUiLqZ1m5jS8jif1LaVjjleKLlPHEn1UoislG2qK296WrqXiLiE+gmcZD23e+OmfWk5VkkTEl23ZefOTaNKWVbIryukVGL27y+9ttIkyRr/54uXWlw9duq3tSGZC80SERGj1mpu0KOxQcFBLKULwrnjJy2UEkTkxxUCUF0F6klXkf6rJmH0bZ94u+3l/5UKfjg446/T3jL28IeWcOtH7f8tIVAhgPkPdWyzDrE3fNdxZMZbc9IFIjZswIN3G/85XcWsEyctIhFxterWKn1oWxZfJ5ajQq94/sQpq9QuqAad6c7001kiEaNSZs17uuOHs3fkuC9fFGNYXWL/sVOmTRjWSHvFLv5dIaWQila+Pn5hrsjFjHr3lbbqq9/039pgjcEGlohIyM68IFBCaZ2590JmtkBEkufs6XNeCuL9uUIAqqmAPekq0H/5N7QEtAS/ggDmv6Si1B0HMszFppyzx3Ys/+Xnv9NsEqNq8OjXHw0NvfytJJryC0UiYmSRUaGlT0jlIqLDOSKvJJryTRLVoG80IeN0ukciIvPK91669k1JtJxa+u7wzat3zl32wd0RlxOpP1dIKVz7Pp74U6bA6Hu99uaA4GsPxY9rQ9usVX1+2SGvkLn6r4PuTq2vX9jXsvGPVSXLA0s2y6VnmPtxhQBUT4F60lWk//JvaAloCX4F94D5L8+uD+69q1ffQQ88+vzkb1an2Rh988e/3bJ95pArh+4lm9UmERGjUqtu0BgYlbpkfFuyW+3VdFZ16bxnU8+WjOwzfFj7pz9ftu+cye52Fuec2Pzr28OTDSyRWLTnk5EPf5N2+flYfl0h1xHP/jDhs0NuiU8c8+ajta8/Xj+uDb7xkPuS5QyR98RXL3120H7N20LuX6++8OO5knYh2WyXDs2PKwSgegrUk64i/Zd/Q0tAS/ArCGCBQ7QcmvvuxPf+OHnl35qS01GyIIdcXvqz/a54S7LbatQ3mph9Ot0mETGKxNG/7N749dj+LeKCVDKFLqJBpxGTftu24b0eQSyRWPD3W28t++eGXX+ukOvYNn70/rpiidHdNe75dspSNvDn2uCTn317VC2eIdG8afxd3Z/84q+D54tdXlfxhSN/f/tSn5QhM467/jkejrv0TenPFQJQLQXoSVeh/su/oSWgJfgVBDD/Je/51Tm7024xZaftXfn9pCGNtJLtzKr3h3ca9PlR9z8bMQqlkiEi8ng8N/ogt/vS5mV861VHbNyTS7Pz8/Pz8w59f3+t6+7G1Tb/78w3OqkZIjFn0ey/ikq+t/y5Qq4hZvz07uyzAnHxo14eGVfqV4Ff1wYT0v/TeVO6hXOMJBbs+vY//ZvHGZQypSEmufeTH60559GlvPif3hqGiBi1Rl0ys8OvKwSgOgrQk65C/Zd/Q0tAS/ArCGB+jOXlCoVKGxRZt+Xdj769YMeqia3VDIn5a//36s8XLj0jg9GUrAEnOR3OG5y3kuPSW4xGd6P14qonTmUIDgkJCdYrbzBdPGHE6C5Khkiy7di8t+Qb3a8r5Cru3V99vsEiMbLGjzzZ9frnYBGR/9eGts2rK7Yv/N+gBjr2yqIzfGjKkzM3rPpfa4UgERGr0WpKmpC/VwhAtROoJ11F+i//hpaAluBXEMACBqNvP/71YWEskWRZv3htyRrcxIaEhbBEJLlzc0ylf6UJF7PzBCIiNigkyL8aDBOc3CyeIyKxMDvHQUQBVCHFq77+6ZSXGGXHJx5JvtFiPAFQG4qEgZMXHcvO2LVszoxPp7077dMZc5bvzTy/85vHW+hys3IEImL4+IRLj9YLgAoBqF5w0t1AKf2Xf0NLuIGAawl+Aqsg+gup6PS+U/leiVHHNEmOVZe6jbplShN+9jq35Mk8myVSEEfExjSop2G2uSUhMz1ToKhSGoT3fEaWSERcVIP6Rn+5pHQJo9aqGSJiiGFKDi1AKkTKXfjtn7kiMZruo+6vdcN+KkBqg1hNbOv+D7W+5lV36vHTAhFxcQ0TLy3wGygVAlBt4KS7kev7L/+GlnAjgdYS/ETAXCHwe94T34zo0K5duw793tt5oyFohuMuzbTi+H8eoiFvmNyQJyIhY+++vNKuKQmpew4Ui0SMvGFygxoU2CVrxv5tW7du3bYz9QbXyohIzM/NF4mIMUaGX1qEwm8r5Epi9uJf11olYjTd7usfXsYXdkDUxg149m/cahaJWGNK+6R/Di2QKwSgSgTiSVfR/su/oSXcQMC1BP+AAOYv+LoN6vJEJOTu25shlr6N5+TRU14iYmQxcZGXfvVs7V69GvJEknv3yrX515/f4tk1q497iRh5m753hdakayuOtZN6du7UqWPH/lN3uEvfxHt84+YcgYhRp3RseeneVv+tkH+J5xfO3eSQiFF3HVpm/vLn2vAe+nRwuzZt2rS9e8r20tqHY9vvC88KRKyx5+Duun9e9eMKAaieAvKkq2D/5d/QEkrfJPBagn9AAPMXTHCXu1oqGCLvntmzdpc2C1jKWzxj/nmBiFG07dnF8M+XE9/43nsbyRiSLKtn/HjSe81Ojl0zv9vpkohRtRs6IL4mNRcmpHvv1nKGSDg954PfM0vJpFLOwvdmHvEQsUG9hvUO9vcK+ZeUu3LJDpdEjKxV7x436aX8tzb4WrGq1H179uxa89VXy67ryz0nZ07+MV0g4uqMfKqP4Yrd/LZCAKqpADzpKtx/+Te0BLQEfyKBvxCyZvU3METEyBMf+vGY9ao3XedXTeocwhIRcTEPLy4Qr3hPzJlzbzBLRKyx89s7i/59S8hZ9XwzFUNEXPyTK80+Oo5KI2b/PCSUJSJidCkvr77gufJN++k/X0wxskTEKFu8scd11Y5+WiGXiPlzBukYIuKbvnHQc/PN/bY2rH8/E88REbGRAz7bf8WROVJ/f6KJmiEiNmTQ7PPC1bv5b4UAVFMBeNJVuP+qqcT87/sqiIjk3b44J9xwKz9rCeU46oBrCQGDkSQ8NMBvuI9+cnfnlzYUikSMLKzJXX26Nq0dqhKLs45tXbVqV6ZdImIUDcYs2DhjQMRVV0m8p78f2mnMkhyRGG1in0cfH9Q6Rm5O3Tzv+9+2nndKjKzeYws2f3tPZI27siJmzh3ZadTv57wSMayuTqd+d7erH6H0mDIOb1q15mCOSyKGDe316calY5OufmSIv1YIERHZFj0UP/QXk8jGPPP3ma963PxhKX5bG2L2/IdSRsw9L0jEyKNa9+vXKSmSM53cumz5jvMOiRhFgzF/bJzRP+LaI/PbCgGorgLwpKtw/1UzSQU/9I95bIWL5N2+SFv7f6U/mpL8rSWU66gDrCUEjqpOgFCpxPzN7/aNU5T+1cPIonq8tiLTXeqOhds/6F+rlB0ZbdKoH446fH0glcaZtmBc1xh5aTXCsIamj/14zFbqfn5bIZJ7y4t1OCJilH1n5Yk3316S/Lk2rPu/HFy7tAOTRXWfuCzjRtcT/bdCAKqpQDzpKtp/1UTlGwGTJP9qCeU96kBqCQEDAcz/iMUnln82bsRdLRLCdUqeV+hCouun9Htk/Fer0qxl/r0tFByYN/Wpvq3qRgepFJqQuAbt7n3h0+WnrGXtUyOI5uPLvpwwulfLxNhQrUKhC41t2H7wM1N+2Z1X9gQ8v6wQ74n3UmRERHzSa3tvPgHxX35ZG5IkSULh4QXvjOnXOiFMp1Bow2s37jB47McLDxV4b7afv1YIQHUViCddRfuvmqb8AUyS/Kcl3MpRB0pLCBiYgggAAAAAAOAjfrJODAAAAAAAQPWHAAYAAAAAAOAjCGAAAAAAAAA+ggAGAAAAAADgIwhgAAAAAAAAPoIABgAAAAAA4CMIYAAAAAAAAD6CAAYAAAAAAOAjCGAAAAAAAAA+ggAGAAAAAADgIwhgAAAAAAAAPoIABgAAAAAA4CMIYAAAAAAAAD6CAAYAAAAAAOAjCGAAAAAAAAA+ggAGAAAAAADgIwhgAAAAAAAAPoIABgAAAAAA4CMIYAAAAAAAAD6CAAYAAAAAAOAjCGAAAAAAAAA+ggAGAAAAAADgIwhgAAAAAAAAPoIABgAAAAAA4CMIYAAAAAAAAD6CAAYAAAAAAOAjCGAAAAAAAAA+ggAGAAAAAADgIwhgAAAAAAAAPoIABgAAAAAA4CMIYAAAAAAAAD6CAAYAAAAAAOAjCGAAAAAAAAA+ggAGAAAAAADgIwhgAAAAAAAAPoIABgAAAAAA4CMIYAAAAAAAAD6CAAYAAAAAAOAjCGAAAAAAAAA+ggAGAAAAAADgIwhgAAAAAAAAPoIABgAAAAAA4CMIYAAAAAAAAD6CAAYAAAAAAOAjCGAAAAAAAAA+ggAGAAAAAADgIwhgAAAAAAAAPoIABgAAAAAA4CMIYAAAAAAAAD6CAAYAAAAAAOAjCGAAAAAAAAA+ggAGAAAAAADgIwhgAAAAAAAAPoIABgAAAAB3gDdn46djejaO1ivlyuCWr+/0VHWBAKoFvqoLAAAAAAD+x7ppQs8+Hx11SkRE5Llost/Wx3mPzpkwfZtVkiU//N6z7dSVUUKAqoEABgAAAACVTDIt/uSbY06JWGPLh8aNuSshomEj7nY+UMzc+OM3s/JFxYB2kxHAoEZDAAMAAACASiZknjrtkIj4+k/PmDWpDf7iBLgM94ABAAAAQGUTBIGIiNEbDUxVlwWgWkEAAwhEkj3rvEmq4kJ4nVa7S6jqUgAAAAD4EgIYwFVE87HFn4x76O7WiTGheqVcoTFGJDTvOuTZd3/bc9F7493saSs++c/gtvVjgtTqoJj67e594Ys1GS6Ssmf0VDIMo+w7K7+0oOHJ3THnrafvadcwPkyv1obVbtK257CxH/x5uEgso4i39LOE1A/ayRmG1Y7400VEtpMLXx+WUidEbWg9Ze8Vq1F5L+7+Zcozg9s3ig/Xq5Ta0JjEVnc/POGrv9MdpRTAve7ZWI5hGOXd3+aWelSbX6jNMwyj6DH9/OUDca98IoxjGFnjSfu8YsHO6U92rx+u12uUMpk6OCaxzYCnpvy2r0Ao47ABAKBGEDM+66JgGFmrd455iciza3wDnmEYLu7/1l+9CmJ5ux7PlhcTeIZR9J2VLxKRa9kjwQzDMPIOH6aV1VsCVF8SAFziOf/XKx1D+dJnSjBcSMfX1l8Ur9/Neeqnh5O01+7FsMaWzy3Y/vldCiJS9Pnuuj0dx2c/1tTIlvLTGD6s47jFZ92lFPGWf5b31PttZUSMZvgfDsue9+8Ku3TRhY18arWrZBPX6d+faRnElXbYjKrOoI93FV1TdNfaZ2JYIlL0nplTSn1I7k3P1+KISN79y0zh8k4rHg9lifik8UvmPlJXUephR3Se+HeuUMonAgBAjSGc/bSz/PoveTb2uXX/dmy30vW4N79Qp5TlO2TtP0hFlwE1Em6JBLjEuefte4Z+sM8hEcOHNO7Zv0eLhHANY8/POLp11ao9WU6hYOt7o15pf3hWf+MVHYaUu+iZPo//dMYjMay+Xo9B/dvVNXhyj25cunzn+X1fPTg4UlfqU0+8qd8O6/7M8hxBIkYVl9K3b+cmsVpv/undq5etO1novbj142F35f+26fsh0ext/6wSYv7yF16auK7Q2GTAffd0aZYQ16IJT0Ri9h9P9Hjo5wyPRAxnqNulf5+2iWG8JePAuuV/H8x1OdIXv9T7HmHj6peaKiqllsULPz875sJ5l8QoIpr36tclKYK3ZOxfu2JTapHXm7t56r192dWb3m6vqZQfBgAAvsdGj/xhTzer5/iXwx767ozAN3l+wU+P1mYZeWjdS3923mLXw7d4efm+R9zurW/2/r9FhZK8y9trPh+oJ0YTHY+ZXFAzVXUCBKgmLAtHhrBExGjbvrbp/9u78/ia7vyP459z7r1ZblYRkYQoiTWWTCYkaA0tnbEbYnS0akZp/aZFy8xoy4wH1U5Vf3RIdYmpKlpaamtpSy1TQUhaVUt+EQQVS23Zt3vvOfOHam9yb/Ij4RDzev6Zr3M+54hzv973u5yLFb9TKzq0oF+IKiJK4Ii1xU4N2qVPRkWYRETxiRm//lSZ0+kO/WtYU8u1pFZpBMyWMaebnyIialDXZzecLHU6o+PS3qQhVw9Ug4csO6PVsta1ETBzw/AQS0jPf+y85Hxr2rkVwxqqIiJq8P0ztp21OTXlfbdweJSHIiKKtfOsg05NtRkBExERxbPliEUH852u8sLuOQMamxURUTzbT91b6uasAIC6xPb11GiziFjiZ2XanRtq1vX83I949l982ZhbAG4RvjkARETEfiR9X54mooY9/MLUbvUrPhnW6NHjBzZQRfTiMzmXf55xrp1Y9r8rTjtEsXaetnzugAinKRe+0aPfefdPUW5feVKwec5ruwp0MUU8umjty32bOI8tqUGdxi1d+WyMpyLapU9eTT5wbeFZDWv9SLefP6cPfG3Zc12DnG7Nkbl47rofNBFT08eWrPp7j1CnIXHFv/2Yd1f9raO3Inpx2hsLttfu/ZlOFN97Z65ZNKqt388DiabgzpM+XP38L7wU0csOLZy3MZetOQDg7nR7uh7gTkIAA0RExNR8zLKdqampqZtndPd2bVZMpqsPi6Y55a/sNR/uLtFF8e8zfkxrl/m8vt2eHBNncZ3fXrxt+ZozDlE8Oo6b0r+Bm/nv1rjx43t6K6LbMr7YfFKrTS2nGwxP/J/BoRX+hOPY+jX7ynRRvLpMeO43Qa5He8aMmzwoSBVx5Hyydk95NWe/AWrY76c8GW1x+bl3pz9PG9pAFdEubFi1jT4XAO5Kt6frAe4oBDBAREQU/6ax8QkJCZ2iQysvdrLnH9syb96nP7jstVSQtus7m4hYfnl/t0A34ccU2b17U5dnzH4gJTVXEzE17d490v2olRIU+8tmJhGxH83IsteiltMpPWK7xnlV/FlheupBu4iY2/Xt7f5YJbBnjv67KAAACrJJREFU33u9FBHH+fS0Ezdlj0Il4IH+3d0v8Qp4cHBPf0VEL0xPPVTNlpMAgDrrtnQ9wJ2FTTiAikrPH9y9M+1AxpGjx7KzT544mX382KmLxe7eVuU4m32yTBdR/SOjQtx2IuamUU3NklWx97DnfH9WExH7kdmdLbOrvxit4OKlMhGPmtb6mRIQHupTMbhpF86cs+kiimeL1u72lxIRUfxatmqkSpZDO5dzTpOW1U1zvD7m5m1bVbWfh1eb9s3Ny9NtjjPf59j5eAKAu8/t6XqAOwv/wwGuKT227h9/mZL0SUZuhbilmP0jOt7XxrZr8/6Kr+fS83LzdRFRrD7WKrau9/F1adGL8vJt173CSS8rLdPFT6lZLedmb2vlZq2woFC7eqRPlWNnil+Anyri0PLzCm7K61YUXz+XbfSvUQMCA1QR0W15uUW6eFU3pRIAUAfdnq4HuLMQwAAREbFnJSd2e/Kz8w5dUa1NEnr369U1tm3L5pFRUc0jGwd5OVImtvpyf26FQxRvq7eIiF5SVOw+UeklJaWVWxSrn69JEdEtnZ7fkPxQSPUhQ/WLCFRqXKtCXdef+Pr5KCKiFxcWVdnB6UWFxbqIqD6+1uuesaxpVV+JXlRYVFWrVnT1ShST1ceb9AUAd59b1/UAdQcBDBAR/craaVM+P+/Q1YAuk1eueuHB8EqbRLib2ac2CG1gUsSu5Z/IvqhLuGticJw6fsrlSHNoeENVsh16qSWkXUzM9T2DNaxVLVNwWEOLIja99GjmCYe0djvHo+jokdMOEVFDwhpeby9ov3I5r8pu1XHs8JFyaeVmoxOR8sxDWQ4RUYPDGrru0gEAqPNuWdcD1CH8swZExLZv61dXNBFTkz/MmuGSvkRELysrcxnLatApoblJRMq/2Z6S52ZURzv51VfHXUKRpUOXjj6KiCPr31/luM8p+qXt/5w4Yfz4CZPf+85Wm1rV84vr3NYsIvaDn2/63v2V5G3bmFKsi6jBneJd97l3ONxVtB1ITa9ykEu03K0bdrjf47Bg25pNVzQRxbtjlxgCGADcjWrd9QB1HwEMEBG9pLhEFxElICjQzWe9fmX7qk3nXfoJc/vEIW0siui5Gxcsdt3+omjXmwv3lLsmEb+eib2DVNFLU+ZMW3feTVIpSZs7YfK8pNcXvLOvOMhUq1rVMrUYMKi9hyJ66c75s7e4efVW+YE3Xll9QRMxhff/bZefts5QVJOqiIg9+8hxW+Vj9Avr5y/NqmYPQ0fOBy+9/X8ux0npvnkzVpzTRJSAXoN7BtzYrQAA6oaadj3AXYQABoiIuVnLSLOIODJWv78nv2J3UJy1amKf3ycfuxp6bDanbGH5xZ+m/DZEFb1wx7RHnv3irFNTceaSsX9MyrT/eC7Fac6gUn/QpCeiPRRxnFw2auDENcdKnKppefvffGTo7IM2XdSw340f3ujaM1qzWtUzRT82qX+wKrr9ePKjD72y84JTsNMLD7/7WOKMPcW6KNaOT03o5ftTk9qoSbgqIo4TS15Mzih1OqGelzZnxFPLz1S7Zlov2DFlyNgPMouc7vpyWtLDg19IK9ZFsbQYNWnI/7M0DgBQV9Ww63HiZk4KUKewBgwQEVOrYSPvffmb7YXl373aO/7QH0f27xRVTy26kL3/3+s/Wp9+zu7fomXo8SPnHLZvFr+U3GJEQkxCbIS3iBL20OsLt+wb+s7RgvS5/dp+9psh/RMi/e0/HN6+dl3KqfJmw4aHrVm+s1wUTy9Pp0jhlfC3RVO39py+pyBv77zE9is79u7fo0MTf/vF499uWffFwct2XRRL5MgFrwxweuVXDWtVSwkbPj/p070jPjxtP79pSo/WS3sN6pPQvL5acOrbL9dt/PpsmS6i1uv+4r8mtXP6rDBFDhqWMH1vSrF2adPT98ZvGzmse4dmQfoPh7evfO+j1DPlYvX1KS2qYnW1KSQiLP90xrsjYjfN79P/V9Eh5vyTX3/56baMyzZdRPFu93Ty9PusNfgdAgDqhJp1PSJiNptFRMp3vzX1n96/Djf5tO7XLyaAL+xQB+kAdF3Xy48tfTjKzcbniiko9vH3Dl3ZPbml+Vqrx32vZTucjvxgVHTlrdUVS8SApH057w3wEhHFZ/jq0kr1tMs7Z/Vt4nandcVUP37cquPlbq/yBmvZj8xOsIiIKXJiirsT6rpemvX+4zEBqtsrsUYNmZeep7kcU3L4rUGNLW4PsTR7dFnSMF9FxOP+17//6a+p7LPRwaqIePZasPfjp2IDXesp5uAuf914xn4jvzUAwB3K9vXUaLOIWOJnZbp+steg69HOLnb+WlIsXV7NcricGKgDmIIIXGWJHLEsfe+HMx/rHRfZwM/TwzswNCqu7+MzlqZmpiWPjA5MeG7Ry4mxjfw9PXxDopqHOSUnS+TwRWn71r/yRO+YJvWtXr4hzeIGPPPG1r2rx3Vw5BdoIqIG1Q+q/Kwp9bo+u+HwgY1Jf32kZ0yz0EBvi4dPvUZtug4a+9IHew7vTEps5m4biprVqp5n84eT0zN3LZ7xxMCEVo2DfT09rPXCImN/PfK5NzcfPvjxhDh/1w7Sq83Yj/ftWjx1xAPtI+pZLT92oYpH417Pr966MLFRNYumFVPE4Nd37980/5nEri3Dg6yeXgENI2N7j56+ZNfhHbP7hLHeGgDufjXoepTQEW+vnDks/p5AT7PZ069Bk4hgVoihblJ0nWm0wC1i2/FMi/vnnXR49Eg6umVcxC39vsPIWpXp5bmns7LO6uHRbRr5VhGgyj8f06jfOxc1zwffOvHF2FCmjAAAgP9OjIABNWfbPbNnXGxsbPwflrjbS9eRsXV7jkPEFBEXF1rbZ83IWjdK8QiMaNspvl2V6QsAAABXEcCAmjPfE+aRuf/bb9M/evN9l43VtZyPXnz7gF3EHDVkaMdav9bKyFoAAAC4RQhgQM0pYUOffuQek6KX7pk+4Hcvfpx24kqpw1FeeCFr54oXhj4wZtVZTdTQwTMmJtQ+ExlZCwAAALcIa8CAWtFzd80cOHBGyiXN3ZOkBsQ9vWLDnN4Nb8qSJyNr3XSsAQMAABBGwIBaUgK7Ttv8zeezR/eI8v9pm3pRVO/QDn2eTPryQMrcm5eIjKwFAACAW4ERMOBmsefnHD2ec7lE8QkKaXxPk/pu3/FVB2vdHPqVI7sPnLXpalDLzu3DmCYJAAD+SxHAAAAAAMAgTEEEAAAAAIMQwAAAAADAIAQwAAAAADAIAQwAAAAADEIAAwAAAACDEMAAAAAAwCAEMAAAAAAwCAEMAAAAAAxCAAMAAAAAgxDAAAAAAMAgBDAAAAAAMAgBDAAAAAAMQgADAAAAAIMQwAAAAADAIAQwAAAAADAIAQwAAAAADEIAAwAAAACDEMAAAAAAwCAEMAAAAAAwCAEMAAAAAAxCAAMAAAAAgxDAAAAAAMAgBDAAAAAAMAgBDAAAAAAMQgADAAAAAIMQwAAAAADAIAQwAAAAADAIAQwAAAAADEIAAwAAAACDEMAAAAAAwCAEMAAAAAAwCAEMAAAAAAxCAAMAAAAAgxDAAAAAAMAgBDAAAAAAMAgBDAAAAAAMQgADAAAAAIMQwAAAAADAIAQwAAAAADAIAQwAAAAADEIAAwAAAACDEMAAAAAAwCD/AcLZhtgW1ytiAAAAAElFTkSuQmCC" width="576" /></p>
+<p>In dependent spline the <code>fot</code> is the ratio with zero time
+as reference point. Reference points can be altered. Here age group
+profile is assumed to be same for every follow-up time. SMR is 0.2 times
+from 0 to 10 years of follow-up.</p>
+<p>Splines can also be stratified using the <code>print</code> argument.
+For example we split the death time in two time periods and test if the
+age group splines are equal.</p>
+<pre class="r"><code>c$year.cat <- ifelse(c$year < 2002, 1, 2)
+sy <- sirspline( coh.data = c, coh.obs = 'from0to1', coh.pyrs = 'pyrs',
+ ref.data = popmort, ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'),
+ spline = c('agegroup'), print = 'year.cat')
+plot(sy, log=TRUE)
+legend('topright', c('before 2002','after 2002'), lty=1, col=c(1,2))</code></pre>
+<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABIAAAAPACAIAAADCNZXvAAAACXBIWXMAAB2HAAAdhwGP5fFlAAAgAElEQVR4nOzdd1xV5QPH8edcLnsLbjHFASpKCuLEiQNlmDML0FJRK03TnLnqZ66yzAmmZZh7Bw4oNyqEuFBTHLlBcaCy773n94dlDnBc8VzUz/uvXp7zPOcLv/q9ztfnnOdIsiwLAAAAAMDLpzJ0AAAAAAB4U1DAAAAAAEAhFDAAAAAAUAgFDAAAAAAUQgEDAAAAAIVQwAAAAABAIRQwAAAAAFAIBQwAAAAAFEIBAwAAAACFUMAAAAAAQCEUMAAAAABQCAUMAAAAABRCAQMAAAAAhVDAAAAAAEAhFDAAAAAAUAgFDAAAAAAUQgEDAAAAAIVQwAAAAABAIRQwAAAAAFAIBQwAAAAAFEIBAwAAAACFUMAAAAAAQCEUMAAAAABQCAUMAAAAABRCAQMAAAAAhVDAAAAAAEAhFDAAAAAAUAgFDAAAAAAUQgEDAAAAAIVQwAAAAABAIRQwAAAAAFAIBQwAAAAAFEIBAwAAAACFUMAAAAAAQCEUMAAAAABQCAUMAAAAABRCAQMAAAAAhVDAAAAAAEAhFDAAAAAAUAgFDAAAAAAUQgEDAAAAAIVQwAAAAABAIRQwAAAAAFAIBQwAAAAAFEIBAwAAAACFUMAAAAAAQCEUMAAAAABQCAUMAAAAABRCAQMAAAAAhVDAAAAAAEAhFDAAAAAAUAgFDAAAAAAUQgEDAAAAAIVQwAAAAABAIRQwAAAAAFAIBQwAAAAAFEIBAwAAAACFUMAAAAAAQCEUMAAAAABQCAUMAAAAABRCAQMAAAAAhVDAAAAAAEAhFDAAAAAAUAgFDAAAAAAUQgEDAAAAAIVQwAAAAABAIRQwAAAAAFAIBQwAAAAAFEIBAwAAAACFUMAAAAAAQCEUMAAAAABQCAUMAAAAABRCAQMAAAAAhVDAAAAAAEAhFDAAAAAAUAgFDAAAAAAUQgEDAAAAAIVQwAAAAABAIRQwAAAAAFAIBQwAAAAAFEIBAwAAAACFUMAAAAAAQCEUMAAAAABQCAUMAAAAABRCAQMAAAAAhVDAAAAAAEAhFDAAAAAAUAgFDAAAAAAUQgEDAAAAAIVQwAAAAABAIRQwAAAAAFAIBQwAAAAAFEIBAwAAAACFUMAAAAAAQCEUMAAAAABQCAUMAAAAABRCAQMAAAAAhVDAAAAAAEAhFDAAAAAAUAgFDAAAAAAUQgEDAAAAAIVQwAAAAABAIRQwAAAAAFAIBQwAAAAAFEIBAwAAAACFUMAAAAAAQCEUMAAAAABQCAUMAAAAABRCAQMAAAAAhVDAAAAAAEAhFDAAAAAAUAgFDAAAAAAUQgEDAAAAAIVQwAAAAABAIRQwAAAAAFAIBQwAAAAAFEIBAwAAAACFUMAAAAAAQCEUMAAAAABQCAUMAAAAABRCAQMAAAAAhVDAAAAAAEAhFDAAAAAAUAgFDAAAAAAUQgEDAAAAAIVQwAAAAABAIRQwAAAAAFAIBQwAAAAAFEIBAwAAAACFUMAAAAAAQCEUMAAAAABQCAUMAAAAABRCAQMAAAAAhVDAAAAAAEAhFDAAAAAAUAgFDAAAAAAUQgEDAAAAAIVQwAAAAABAIRQwAAAAAFAIBQwAAAAAFEIBAwAAAACFUMAAAAAAQCEUMAAAAABQCAUMAAAAABRCAQMAAAAAhVDAAAAAAEAhFDAAAAAAUAgFDAAAAAAUQgEDAAAAAIVQwAAAAABAIRQwAAAAAFAIBQwAAAAAFEIBAwAAAACFUMAAAAAAQCEUMAAAAABQiNrQAVD4zp8/HxYWptVqDR0EAAAAeBJLS8shQ4ZYWFgYOohyKGCvodmzZ0+dOtXQKQAAeAU0bdrU0BGAN9qOHTtcXFy6du1q6CDKoYC9hvLy8oQQfn5+jRs3NnQWAACKqLNnz4aFhZ07d65fv36GzgK8oZYvXy6EyM3NNXQQRVHAXlstWrQYPHiwoVMAAFBE7dq1KywszMnJafjw4YbOAryhjh49euDAAUOnUBqbcAAAAACAQihgAAAAAKAQChgAAAAAKIQCBgAAAAAKoYABAAAAgEIoYAAAAACgEAoYAAAAACiEAgYAAAAACqGAAQAAAIBCKGAAAAAAoBAKGAAAAAAohAIGAAAAAAqhgAEAAACAQihgAAAAAKAQChgAAAAAKIQCBgAAAAAKoYABAAAAgEIoYAAAAACgEAoY9JeZmWnoCAAAAMCrhAIGPQ0bNszBwWHTpk2GDgIAAAC8Mihg0FOJEiWys7O7dOkSFxdn6CwAAADAq4ECBj0NGTKkV69eGRkZ7du3P378uKHjAAAAAK8AChj0JElSWFhYx44dr1+/3rp16/Pnzxs6EQAAAFDUUcCgPyMjo8WLFzdu3PjixYvt2rW7ceOGoRMBAAAARRoFDC/E3Nw8MjKyVq1aR48ebd++fUZGhqETAQCAIiF3c+/iRpIkmfkvuqnE9TQpO77v41OjjI2ZiVmxOmPj8pS4aCHLOP3Hj+N6t/OqVrGUnYWphW2JCrVadBv0XeRft3VPGpZ1JnrW0K7e1csXtzK3LvGWW9P3Rszbdj7nKRfTa5SeCfEQGa+dwYMHCyGmT5+u2BUvXrz41ltvCSH8/Pzy8vIUuy4AAHrbuXOnEMLb29vQQV5bOZt6OaqEEKZ+P994+Ve7s2NoDTPp3xtcVbmPt+a+/IsWJt31vd91rmop5Xe/LhmXbTVha4o2v3GZR8K7u1o9PkxlW6v30lMF/RL0GaVvwicJDg4WQkRERDzvwFeaWq/WBjykbNmyGzdu9Pb2joyM/PDDDxctWiRJ+f7XCQAAUPjkG+u/CzuWLQuVXZ2gIX1aOpd0rWZk6FDPI+f4nPcDhmy+phNCUtlUaubftq6zTfaFYwf27IhNvqnNuxQzPjBQFx0zvr71g8N0538N8f1o9UWNLCSLCt4B7bzKm90+HRsZGX85J/3wgp7t1LZ75vg6PHJXptcoPRMiP4ZugCh8yq+A3RMXF2dpaSmEGDNmjMKXBgDgebEC9rIpuQKWd3BsTbUQQu06Iv4VfBRHc+LbxhaSEEIyKt36651XNf8d0l7f912Ak1oSQkimtccl5jwwTHd11XulVUIIyaRK8JJT2fcP3D00O6CckSSEpK46aMedhy+m1yg9Ez7Vm7kCxjtgKDReXl7Lli1Tq9VfffXV7NmzDR0HAAC8MbRarRBCSDZ2tq/eQzh58fPn7c2UhTCqFLpo2Qjv4g8s3qmK1Ru0ZPkQNxNJyDmHwuduy7p/SHt03sSVKTohGVcb+NPc7pVM7x+xrNV/4ZzgckZC1iSHf7X44oOvZ+k1Ss+EyB8FDIXJz88vPDxckqSBAweuXLnS0HEAAAAKjZx56eINudCn1Z7atu1vrRDCuFaPj1rYP14gLesN6O9tKgmhu7r9j8Oaf4cdW7MmKU8Wkpn3RwMaWD48RHLwHdzLTS2EnBW7csOl/7qUXqP0TIgCUMBQyD744IOvv/5ap9MFBQVFR0cbOg4AACgK8i7umDesm3f18sWtzS3sS1eq3brn6AW7Lz9pq8K81H0RX/YLqO9avriNhVXxCm71fLoMmLbmyK0HlmZ052Y0MZUkY4+JxzRCiLz4ES5qSZKMnD7Z9vDUmmt//vq//h0aVCtfwsbczMqxbBWPNj1Gzok5m996jTZ5Wn0TSVJZdV+TI4TIOLF2bBevig4Wtp7/2//gtM+S8Ok0p06c1gghVCUbNnLJ9801VQk3t1IqIYQu5dIV7T8/+d8xW47lCSGMPf3bl3v8ll5d3a99FbUQcvbeTVtv/lsb9RulX0IUhE04UPhGjBhx7dq16dOnd+7cefv27XXq1DF0IgAAYDhy2taxAe9+HXtN++8dfcqZgylnDv4eMXtmn/C1M7tWNH50SPZfv3zc7dOfj9zS/TvkzrmjaeeOxv+xet60hp/++OukgLceG1SQ3DMrBnXpF37g5v3ri+zLp65fPpUYHTHjm4CJyxcNqlvQk4vy3f3TOviO+OOaTgihKvUyEmal35FNzcyEcUVnpwLWRuSszCxZCCGZmpn+EzT3ryMnNEIIo7KedcvmN0xdvZ6HtXT8ppz7V1KyRjgY6z9Kv4QoCAUML8U333xz/fr1RYsWtW3bdvfu3VWrVjV0IgAAYBC60z+GdNu7L002K+3Zpl1j1+JG6X/v/2PTrlPpWl36ofCgVlqLfeF+jg/ctWuS53dp3j8qRSsLydzJy9fX262clSbt9J/RkVtP3NRci53epWXa0p0LO5ZRqcq8/1NCs7t5x2d1CfrxjFbt9umqXz6ooJJMHCv9c5eru7K6d4ugxefyZCEZ2VZq0r5tvSrF1XfOHdwaFXMoNSfr7PqhrQO0O6KH1jLNJ3ta1KCho7betHPz6xzQxN3Zqbab+jkTPv0XZBe05lbQE8/I2R+z47pOCMm4xts17v1cukt/nbijE0IYvVXprfw3fDQuX7Gckbip0V386+Rdub69pO8o/RKiYIbeBQSFz1C7ID4iNze3bdu2QghnZ+crV64YNgwAAI9gF8SX7d9dEIUQQjKv/uGvf93976Dm6p5p7cuqJSGEMHLqvfHWf4fyjn/rbS0JIVTFGg6POpf9wJTa6/EzO1YwloQQKseOiy/r7o/ZP7q6Wghh7DX5xAMb9MmyLmVZ15IqIYRQOTafsO3KA1sk6tIPz+9eyUQSQkgW9ScnPXBIc3JqPWMhJHXJMiWMS7T8Ovb6Qx+40ifhC8g59l1zW0kIIVm1mnf+nyR58SNc1UIIyfLd1Vn5j9NdntvSVAghTBp+e0r7AqP0S/hM3sxdEGmoeFmMjY1Xr17t4+Ozd+/e1q1b79y5087OztChAAB46S5dupSTk2PoFM/Kzs6uWLFiL/cakk3zyevC3qvywH2nUfEGQ1esudWo6dcHs7UXl81YMb5Nn3uPxN2J+fa7PXdkYeQUvHDdpHbFH3yeTVWs7icRK1MbNZ54MOf6b9PCj3QbV+uJN7PaEz9PX39VJ4RRhQ9/WTWmWbEHZpNsavb+adWVUw3H/ZmV+eec2dsHzPGxeGi0rElNkTtFLB7R8MFxhZvwae4mze8VOHx7uiwkc/dB/wv59xFAOeNuhiyEkMwtzAtYZZPMLcwlIYSQM+9myi8wSr+EKBAFrOiaOXPm999/r8fA1NRUIcTBgwcLO9Fzs7Cw2LBhQ+PGjY8cOfLOO+9s3rzZ1DSf5X0AAF4b69ev79Chg6FTPAdLS8tz5845ODi8vEsYlQ/5IrTK4zedFl6fj+0U3vnXa7qMXRt+v9m7h4MkROa2pWsva4Vk4vnJKL/i+bxNZOExYEDL6b03ZuYd3xJzbkytSk+439ee3rD2QI4sJLMGA0e0Kfb4bKbunwwLnNFt2XXtpd/WxX3v09zkkehlOvV7p9TD4wo14ZNknYn65rNBkzecypSFpC7rP2PZGC/zfw/K2VlZshBCmJiYFDTBv4fkzIx/C5heo/RLiAJRwIqugwcPnjlzRu/hJ0+eLMQwenN0dIyJiWnUqNH27dvffffdVatWGRm9Ul+mBwDgeTg7O7/99tu3b982dJBnVa1aNSsrq5d5BZVjK7+GZvkesm3V0cd6ydJ0Ofvgn4c1PZobC82R3ftu6YRQV2ja1Dn/OwapWO06FY02HtVoTh1P1ohKBTYJIe4m7EvSCCHUbu3aVsi3Bkl2Lds1Mlu+IVObmvDn39rmVR+6pmRSu6HHI9ELN2EBMk6unfzZ0Okbz2TKQgiVjXuveSt+6F71gYkkUzMzSQgh8vIK3EkyNzf33j/cr1v6jdIvIQpEASu65s+fP3r0aD0GBgQEHD16tGTJkoUeST9OTk4bN25s0qTJunXrPvnkk7lz5xo6EQAAL0vNmjUPHDhg6BRFirpKjaoFbQdoXq1mFfXShDz5esrVPCGMhebShSs6IYTm5NT6xlOfPLHuTtr1HCEKvufXXbuckicLIZlWca1YwN//StZVXcqqRLJWl3IpRSceKWC2ZUpZPrLGVagJ85GZvHbigMHTo89ly0IIyapKwOffTf+8vfMjK0uSpZWlJISQs7OyC1inkrP+OSRZWv/zU+g3Sr+EKBAFrOhSqVTOzs56DCyCj/m5ubmtXbu2bdu28+bNK1eunH7FEgAAvIIkK2urgjYmV9na2aqEELIuKytbFhYiI/123jN/6ljOyc6RhXWBu57r7t65qxP3akeBjwFK1rbWKiG0utvpdx79fJdkbmHxyOxyoSZ85Oxb++f2f//z5ScyZSEktWOdoNHTvuzf3Cm/GzuVQ3EHlRBCzk1NuSGL0vlcQnvtylWtEEKo7B3sVS8wSr+EKBAFDApp2rTpkiVLunTpMmbMmJIlS/bu3dvQiQAAgALubfyQ38tSD1QkEzs7S0kIYWFtZSQJIRvXHRkV3q3Ek5uLytrJ7klnSFb31nDkzLsZBX4aWc64t9eEytLK4rGW9vjsUqEmfIDmwrpP2r0fnpQpC0ldsmH/KTPHB9cuVmBvVJV1qWwp7cmVtRfOXtCK0vnc02sunrukE0IYlXap+k8K/UbplxAFooBBOe+8887cuXNDQ0P79etnb2/fqVMnQycCAAAvmyb52Mk8USHfRZKcE0dPaYUQRuUqOBkJIYS6VJmSKnFWK2cbl3Bzd3+xO1Ujx9IljSWRJ2efOvG3Vrjm+xRixqmTF7VCCFWJ0iWfpUwUasJ/yek7RrTvHp6ULUsm5dt/GbFgaJMST3ln3sS1pqta7M3TntufeFX2KvNYz9MmJxy8rRNCMnGt6aJ+oVH6JURBKK1QVJ8+fb788kutVhsUFHTvAywAAOC1prsWExWXne+h21vXxNzUCaGy82pQXS2EEMa1GnhaSkJok3fsvJT/qpV8ffv3gwcOGDBw2KLDBe4kcY+1R/0aaiGEJmlz9IX8Z0vftnF3piyEyrGuV6VnaRSFm/CejB1jes1IypYlk6ofLN29dvizdBtVhVatXNVCyLl/bv4j7fGHInV//x59XCOEZFLXt+X9z1zrN0q/hCgIBQxKGzNmzKBBg7Kzs/39/YvCXvkAAOCl0p775X8/ndY+9udZ+6ePX56iE8Ko9DvvNvtnCwfrlp3aFlMJOXv3t2PXp+bzslXWn9MHDpsxc9bsBQcyiz2lBRhV8Q+saSIJOTv2h6l/3Hp8ttwjc6asuaYTwqiMX4cGz/YmU6EmFEII3cVfJ/10RiNLxm5DImZ1dHrGRTV1jXfeqWYsCflO9LyfT2geDREf/mNcjiwk8/qd/MqrXmyUnglRAAoYDODbb7/t2rXr7du327dvf/bsWUPHAQAAL5Pu1u9DO36y6nTWf3+kTYv7rluHiYlZspAs6w741OffnfAlh8DPQqubSEJ7bvEHAYPXPjhI6NIPzX2/89SkPFmoSncZ0L3s0+5kjap/+Jmfo0rImjPhwd2mxF57oAbKd4/99GGnCXGZspAsPD8e6POMm/EXbkIh5JSoVbsyZCEZN+zTz/M5thJUu380zM9eJeSsfV+HTo5P/68L6lKjR/abeVwjhJFT0MiezqoXG6V3QuSPAgsDUKlUERER6enpW7ZsadWqVWxsbNHZNB8AABQmSaWSZF3m4Xlda0U1aO/X2MVRlX42ISZq+4mbGlkIVbGmX4YPrvHALalZvS8Wjt7acnzcnfT4GZ1qrvRs69esVnkbTdqZg3+s35J0QyMLydg5ZPYU/2fY30Iq3f2HmZHxQcsvalKjRzVzjfAJ9K1X2UF15/zB39dv3H8lRxZCZd/0fz9+5vbsd8WFmlDkJO5NzJGFkMTJBSEt1zxxhFGFoDk/9vp3r3yp5LvTpq3c22dDyq1dY1vW3fNBr0DPsibpybtWLFwaezFblowr95w5obXNI7+S5x6lf0LkT8Zrp06dOkKIwMBAQwd5itu3b3t4eAghPD09b9++beg4AIA3y71Xkb29vQ0d5LWVs6mXo0oIY68Ri6Z0cH50O3chhJDMKvh9E3dL9/hY3Y3Yye3Km+V3qy8ZOXh9supM7kPn5+0fXV0thDD2mnxC89hs2cm/9nG3VeU7m0WljjMS0h+JoDk5tZ6xEMLIefDu3Mem0ythgbSnvmnwzB8KU1cfvT/v4Rw3905r/5ZpPts1WlUP/uloVgHpn2fUCyZ8ouDgYCFERETEsw95DfAIIgzG2tp606ZNLi4uCQkJHTp0yMnJMXQiAABQ6IwcGg5dm3Q0Zu7woBa1Kpa0NTO1dCjr0qDjwG/XHziyYYiXbX7VzL7h8KhjRzbO/Pz9lu4VS9mZG5tY2pet1jCw78QlccdiZ3aqWNCnnfNjWvm98IQTe36eEBpQz6Wco5WpiYV9aefarUNGzI05lrR6oIfNM24V/zISaq+lXHv8/bhnz2FXf+iGxLjlk/r6elQqY29uaung5FL/nUHfRybG/9KzulkhjHrBhHiMJMvP/Ck5vCI8PDwSExMDAwPXrVtn6CxPd+bMmUaNGqWkpHTv3n3x4sUqFX8pAABQwq5du5o0aeLt7c2uvIChhISEREREREREBAUFGTqLcrjZhYE5Oztv2rTJ1tZ26dKlgwcPNnQcAAAA4CWigMHw3n777fXr15uZmf3www9ff/21oeMAAAAALwsFDEVC06ZNly9frlarv/jiix9//NHQcQAAAICXggKGoiIgIGD27NmyLPfr12/16tWGjgMAAAAUPgoYipDQ0NAJEyZotdqgoCBeiQYAAMDrhwKGomXs2LGffvppdna2v7//wYMHDR0HAAAAKEwUMBQ506dP79q16+3bt9u3b3/27FlDxwEAAAAKDQUMegoLC6tdu/b69esLfWaVShUREdGmTZvLly+3atUqNTW10C8BAAAAGAQFDHo6ceLEwYMHO3To0Llz5ytXrhTu5CYmJitXrvTw8Dh9+rSfn9+dO3cKd34AAADAIChg0NO3334bFhZmY2OzevXqatWqzZgxQ6fTFeL81tbWGzdurFKlSkJCQseOHXNycgpxcgAAAMAgKGDQkyRJoaGhx48f79ixY3p6+qBBg5o0aXL8+PFCvESJEiU2b95cunTp33//PSQkpHALHgAAAKA8ChheSJkyZVavXr1hw4ayZcvGxsa6u7uPGDGiEFernJ2dt2zZYm9vv2LFio8//riwpgUAAAAMggKGQuDv73/kyJFevXppNJopU6Z4enru27evsCavWbNmVFSUhYXFvHnzxo8fX1jTAgAAAMqjgKFw2Nvb//jjj1u3bq1SpUpSUlKjRo0GDhxYWJtnNGjQYNmyZWq1esKECTNmzCiUOQEAAADlUcBQmJo1a3b48OFRo0YZGRnNnDmzRo0av/32W6HM7O/vv3DhQkmSPvvssxUrVhTKnAAAAIDCKGAoZGZmZhMnTty/f3/9+vUvXLgQEBDg7+9/8eLFF585ODh44sSJOp0uODh4y5YtLz4hAAAoojQpO77v41OjjI2ZiVmxOmPj8gwd6AkyTv/x47je7byqVSxlZ2FqYVuiQq0W3QZ9F/nX7SduH5Z1JnrW0K7e1csXtzK3LvGWW9P3Rszbdv5p79HrNUrPhHhZZLx26tSpI4QIDAw0bAydThcWFmZtbS2EsLW1/f7777Va7YtPO2TIECGEhYXFnj17Xnw2AMAba+fOnUIIb29vQwfB4+7sGFrDTPr3blVV7uOtufeP5SX9MrR/v379Bszem2HAiPforu/9rnNVSym/m2zJuGyrCVtT8r35yTwS3t3V6vFhKttavZeeys1viJ6j9E2okODgYCFERESEATMoT61XawOe7t4+9X5+fgMGDFizZs2gQYNWrVoVHh5erVq1F5l22rRp169f//nnnwMCAnbt2uXq6lpYgQEAQFEg31j/XdixbFmo7OoEDenT0rmkazWj+0d1F3b8HLYgTWfqV3/CR/UtDJhT5Byf837AkM3XdEJIKptKzfzb1nW2yb5w7MCeHbHJN7V5l2LGBwbqomPG17d+cJju/K8hvh+tvqiRhWRRwTugnVd5s9unYyMj4y/npB9e0LOd2nbPHF+HRzqTXqP0TIiXzNANEIWviKyAPWj58uWlSpUSQpiZmX311Vc5OTkvMltubq6vr68QokKFCpcuXSqskACANworYEVW3sGxNdVCCLXriPi8x47mbOrlqBJCmPr9fMMA4f6jOfFtYwtJCCEZlW799c6rmv8Oaa/v+y7ASS0JISTT2uMSH7zv0V1d9V5plRBCMqkSvORU9v0Ddw/NDihnJAkhqasO2nHn4YvpNUrPhEp6M1fAeAcMSujateuxY8d69eqVk5MzZswYDw+PvXv36j2bsbHxypUr69ev//fff7dp0+bmzZuFGBUAABiYVqsVQgjJxs4230fnioS8+Pnz9mbKQhhVCl20bIR38f8W6YSqWL1BS5YPcTORhJxzKHzutqz7h7RH501cmaITknG1gT/N7V7J9P4Ry1r9F84JLmckZE1y+FeLLz74epZeo/RMiJeOAgaF3NunfseOHdWqVbu3T33fvn1v376t32yWlpabN292d3dPSkry9fXNyMgo3LQAAOCNJWdeunhDfvI52lPbtv2tFUIY1+rxUQv7x4uiZb0B/b1NJSF0V7f/cVjz77Bja9Yk5clCMvP+aEADy4eHSA6+g3u5qYWQs2JXbrj0X5fSa5SeCfHyUcCgKG9v70OHDk2ePNnExCQ8PNzV1XXVqlX6TWVraxsVFVWhQoW4uLhu3brl5RXl/ZEAAHhz6dKPrf9uSFAbzyplHW3MTEwt7Uo6v92040dfL0249tBtv+7cjCamkmTsMfGYRgiRFz/CRS1JkpHTJ9vyhMjbPdhZLUmmvgvSdEKInMiexSRJkkwafnPqwcWivNR9EV/2C6jvWr64jYVV8Qpu9Xy6DJi25sitfDb80yZPq28iSSqr7mtyhBAZJ9aO7eJV0cHC1vN/+59yX6E5deK0RgihKtmwkYtRfmeoSri5lVIJIXQpl65o//kJ/47ZcixPCGHs6d++3OP34erqfu2rqIWQs8uw3bkAACAASURBVPdu2nrz3w6o3yj9EkIBFDAozdjYePjw4QkJCQ0aNLhy5UqXLl38/f0vXLigx1Rly5aNiYkpWbJkVFTUBx98oNOxlyoAAEWK5tKm4U0qu7/z2fRfo/efunz9Tk5ebmb61bOHdq6dO/r9+tWafbE97SlrTc8h+69fenm6NuoxLuy3uBMX0u5kZaSdOxr/x6pZwzrXqdpk6IZzBbcq+e7+aYHenb9a9effN7Kf4YYiK/2ObGpmZmZZ0dmpgPtpOSszSxZCSKZmpv+sP+X+deSERghhVNazbtn8hqmr1/OwloSQc/9KSv63neo3Sr+EUAC7IMIw3Nzcdu/ePXfu3FGjRkVGRu7atWvSpEl9+/ZVqZ7vLwUqV64cGRnZokWLX3/91c7ObtasWS8pMAAAeF7ZCV8FdJqWmCULSe1Qw6d9i9rOJSylzLRzR2O3bEm4lK29Hjs5eFiDIwva20lCCFWZ939KaHY37/isLkE/ntGq3T5d9csHFVSSiWMltRCi9udRiT1zc2PHt/5k3U3ZpMlXv//gbyMkyzLlVUIIoUme36V5/6gUrSwkcycvX19vt3JWmrTTf0ZHbj1xU3MtdnqXlmlLdy7sWObxew1dWtSgoaO23rRz8+sc0MTd2am221Nuku2C1twKeuIZOftjdlzXCSEZ13i7xr3ZdJf+OnFHJ4QweqvSW/kuSgnj8hXLGYmbGt3Fv07elevbS/qO0i8hlMDvGgajUqk+/vjjDh06fPzxx+vXr//oo49+/fXXsLCwGjVqPNc8np6e69ata9eu3ezZs8uVKzdixIiXFBgAADyPu5u/n30wSxaSVb1RG6O+9HZ4oPlkHpvTtfmAqKvaS2uX7ZjdPtBcCCGMHSvVdBQabUkzSQghWZSuVsu96v3KYVmmWq0yIveKg5EkhCzZOLm5u9v/e1Dz1w+9hkSlaGVVsYafRyyd0K78/Y0qdDf+nNOn62dr/849HdF3QKsGq94v/chyT86OCR/d0DSduGPF8IbFCuf5sNzjc0fPT9YIIVk26d7hn+cGdTfSbuqEEJJxqdKO+V/HqGSZEkZCaGTdjbQbsrCX9B2lX0IogQIGAytbtuy6devWrFkzYMCA2NjYOnXqDB8+fNSoUWZmZs8+SYsWLZYtW9a5c+dRo0Y5Ojr27t375QUGAOAJ8q5cu/HTKqF5ZbY0MCpm59D/Pcko/5WVF6I5mXAgXSeEqvR7X45+qH0JISyq9xoQ8OWmH1N1mZcv3dCJfB+te3Z3Yr79bs8dWRg5BS9cN6ld8QcbiKpY3U8iVqY2ajzxYM7136aFH+k2rtZDt8CyJjVF7hSxeETDYoXzIN7dpPm9AodvT5eFZO4+6H8h/z4CKGfczZCFEJK5hXkBP69kbmEuCSGEnHk3U36BUfolhBIoYCgSOnbs2LJly7Fjx86ePfurr75asmTJvHnzfHx8nn2GDh06zJo1q3///v369bOzs+vcufPLSwsAQEFyz17ISjxq6BTPQVIb2Ye8Y2RjVfhTG1XuvTjWP1dWWb9VyzyfKxsZ/bMu9OIvcWduW7r2slZIJp6fjPIrnk+LsvAYMKDl9N4bM/OOb4k5N6ZWpYcLh1GZTv3eKVUY7SvrTNQ3nw2avOFUpiwkdVn/GcvGeN3/4eXsrCxZCCFMTEwKmuDfQ3Jmxr8FTK9R+iWEEihgKCpsbW1nzJjRrVu30NDQo0ePtm7dOigoaPr06Y6Ojs84Q79+/VJTU8ePHx8cHFy8ePGmTZu+1MAAADzOskFt9eTPdZnZhg7yrIxLOryU9iWEkGwq1PaqkO8hze3TO8JmRF4tpO2zNEd277ulE0JdoWlT5/zX8qRitetUNNp4VKM5dTxZIyo9VGUkk9oNPZ7j0Zv8ZZxcO/mzodM3nsmUhRAqG/de81b80L3qA1eSTM3MJCGEeMLmzbm5uff+4X7d0m+UfgmhBAoYipaGDRseOHBg+vTp48ePj4iIiI6Onjp1akhIyDMOHzdu3LVr12bPnh0YGLh9+/a33377paYFAOBRkmRa+S1DhyhislOT9sb+eeT4yVOnz5499/e5s2dOn0/L1Bbe7oeaSxeu6IQQmpNT6xtPffK5ujtp13OEeLiA2ZYpZfki61+ZyWsnDhg8PfpctiyEkKyqBHz+3fTP2zs/srIkWVpZSkIIOTsru4CfXs7655Bkaf1PJP1G6ZcQSqCAoci5t0/9O++807dv3+3bt/fo0WPZsmVz5sypUKHCswyfOXPm3bt3Fy1a1Lp16127drm4uLzkvAAAoADZp9d/PXTUzN+O33qobklqGyfPxtXy9sQcyu/zXM9Lzki/nffMdU7Oyc6RhfWDNUUyt7DQt3/Jt/bP7f/+58tPZMpCSGrHOkGjp33Zv7mTaT7nqhyKO6iEEHJuasoNWTy6F4gQQmivXbmqFUIIlb2DveoFRumXEEqggKGIqlq16tatW3/66afPP/9806ZNbm5uEyZM+PTTT9Xqp/xLK0nS/Pnzr169umnTplatWsXGxjo5OSmTGQAA/EeTHN7J+6NNqVpZUlmUr9e2vU/D2jWqVnauVKmyc7liZtrdg11+P3SrEC4kWVhbGUlCyMZ1R0aFdyvx5C6lsnaye/QMfduX5sK6T9q9H56UKQtJXbJh/ykzxwfXLngfRVVZl8qW0p5cWXvh7AWtKJ3PPY3m4rlLOiGEUWmXqv/E1G+UfgmhBAoYii5Jkj788MMOHTqMHDkyPDx86NChERER4eHhXl5eTx5obGy8atWqNm3a7N6929fXd+fOncWKFVMmMwAAEEIIId9cN3bU5lStrLJtMGzlqi9blTF++ARt4V1LXapMSZU4q5WzjUu4ubsrdH8rp+8Y0b57eFK2LJmUb/9lxIKhTUo8ZTNJE9earmqxN097bn/iVdmrzGPFT5uccPC2TgjJxLWmi/qFRumXEAqg/6KoK1asWFhY2LZt26pWrXro0KEGDRr07dv3zp07Tx5lYWERGRnp7u5+9OjRdu3a3b17V5m0AABACCFE3oGtO2/qhDAq32PyhMfalxBCzsnJKaTXwIxrNfC0lITQJu/YeSn/Zxrl69u/HzxwwICBwxYdLnAri+eSsWNMrxlJ2bJkUvWDpbvXDn+WbqOq0KqVq1oIOffPzX+kPf7T6/7+Pfq4RgjJpK5vS0fphUbplxAKoIDh1dCsWbODBw+OGzdOrVaHh4e7urquWbPmyUNsbW03btxYsWLFuLi4d955JycnR5moAABACDkrM0sWQki2xezyue+Xb25fFZ1aSLsgCuuWndoWUwk5e/e3Y9en5lPrsv6cPnDYjJmzZi84kFmsMGqI7uKvk346o5ElY7chEbM6Oj3jqpu6xjvvVDOWhHwnet7PJx79WlxWfPiPcTmykMzrd/Irr3qxUXomxMtHAcMrw9zcfPz48fv27fP09Lx8+XKnTp26deuWkpLyhCFlypSJiYkpVarU77///sEHHxTCd0YAAMAzUVes6qwWQmiPr/k17vbDnSgzedVg33fDT997CjEvT6/PVj+4gCY5BH4WWt1EEtpziz8IGLz2dNYDJ+rSD819v/PUpDxZqEp3GdD9Bb/5LIQQQk6JWrUrQxaSccM+/TyfYytBtftHw/zsVULO2vd16OT49P9+MbrU6JH9Zh7XCGHkFDSyp7PqxUbpnRAvHV34KTR301KvXb95OzMnT6cytbS2trZ1LFncit+bwdSuXXvfvn0zZ84cM2bMihUroqOjJ0+eHBoaKkn5vz9bqVKlLVu2NG3adOnSpfb29rNnz1Y4MAAAbyQjl64hjSYlbr+be3haW6+jPUP86layV2VcO3tox4YVGxJSNDZVqpY6czJFm5f488TwKkH13OvVdnqWnvDPfly5e+eN/t68dRkjS9f27d1tzep9sXD01pbj4+6kx8/oVHOlZ1u/ZrXK22jSzhz8Y/2WpBsaWUjGziGzp/g/tgOHPnIS9ybmyEJI4uSCkJZrnjilUYWgOT/2qvrPuptU8t1p01bu7bMh5dausS3r7vmgV6BnWZP05F0rFi6NvZgtS8aVe86c0Nrm4Tmef5T+CfHSyXhM5sW9y78dGty2XtWSlurH/nWVJBPbctXq+YaM+GH1vvMZOkOnfVydOnWEEIGBgS/1KlqtNjU19aVe4snOnTvn5+d373+URo0aJSUlPeHkbdu2mZmZCSEmTJigWEIAQFG2c+dOIYS3t7ehg7zGck9HvFfJ7PFbf8moWO0+i47e3Dus6v07LZPG353V3huWt390dbUQwthr8gnNY5Pqrvz8UIcybjAt+Z+Buhuxk9uVz+eCQkhGDl6frDqT+/BcmpNT6xkLIYycB+/OfexKT6A99U2DZ/58sbr66P15D/8MN/dOa/+WaT6/GavqwT8dzcr/os816gUTKiU4OFgIERERYZCrGwqPID5Edz1uXt+Gzs4Nuw35JmJz3MnUDM1jTxHLcm76xeNxm36ZPLBTg0oVvHrO2J1aiNv4vDI+/fTTMmXKTJ06VZYL7zuKz6N8+fK//fbbhg0bnJycYmNja9eu/emnn2ZkZOR7crNmzZYuXWpkZDRu3DgWwQAAUISxc9DihPjlX33Y1sO5uLWpibldqUoe7fpMiNh34s/wkOp29UYsnNSpdlkbUxOrEpUql863OT1GKhUUtvKrrl5v2Zmq1abWxcs7Of77QSvJvuHwqGNHNs78/P2W7hVL2Zkbm1jal63WMLDvxCVxx2Jndqr4+FYg+tFeS7n2Ard/kl39oRsS45ZP6uvrUamMvbmppYOTS/13Bn0fmRj/S8/qZoUw6gUT4mWSDHX3XATlnl7S2/fDxcn3nyeWjCyKlXEq71TawdrC3NzUSJebnZV550bqpQvnL127e/97f5Jx+cCZG5f0rVFUnq718PBITEwMDAxct27dy7vKggULQkNDdTpdly5dFi5caGVl9fKu9WTp6eljx46dPXu2VqutVKnS3LlzW7Vqle+ZCxcu7N27tyRJERER7733nsI5AQBFyq5du5o0aeLt7X1vKQyA8kJCQiIiIiIiIoKCggydRTmsgP0rK/7LTvfal2RapkHI+IVbDpy7eTvt/F+JsdtiNkdtWLtm7frITdFbdyccPZuann7l6I7l3w5o52KjEnLe+fUDOw77I/3NqrK9evX67bff7O3tV65c6enpefz4cUMlsbW1nTFjxs6dO93c3E6fPt2mTZuePXumpaU9fuaHH344Y8YMnU7Xs2fPqKgo5aMCAADgDUcBu0d3/qdR3x3OkSWjsgHfxx6NXTTug9ZvO1kX9C6iyrxk9SZdP/sh6tChtQNqW0pybvL80WEn37SF3nbt2sXHx7u5uZ04caJ+/fovdcHtqRo2bJiYmDhx4kQzM7NFixZVq1Zt0aJFjy/wDhgwYPjw4Xl5eV26dNm1a5dBogIAAOCNRQETQgihu7Bu+e4sWRg59VoQMdDj2XfHMa0Q8N3yrxqbS3JO4trfzr5pDUyIypUr7927t0uXLrdv3+7YseOIESMMuNW7sbHxqFGjDh8+7OPjk5aW1rNnTx8fn+Tk5EdOmzRpUmhoaFZWlr+//4EDBwwSFQAAAG8mCpgQQgjNsYNH82ShKtGuS3Obp5/+EKNKnbp4GQuhTT72xi2BCSGEsLKyWr58+eTJk1Uq1ZQpUwIDA2/dumXAPJUrV46JiVmxYkWJEiW2bt1ao0aNESNGPPgVZkmS5s6d27Vr1/T09DZt2pw4ccKAaQEAAPBGoYAJIYSQc3JyZSEkK2ur5/80hMrGzkYlhJybk/tmvQX2H0mShg8f/vvvvxcvXjwyMrJevXpHjx41bKQuXbqcOHFi4MCBWq12ypQpNWvW/OOPP+4fValUERERbdu2vXbtWqtWrS5cuGDAqAAAAHhzUMCEEEIYlXurnJEQuov7E6889wN0WYf+TMoTQlWydMk3+9fZrFmzhIQET0/PkydPNmjQYM2aNYbNY2dnN2PGjO3bt1evXj05OblVq1YhISH3N+cwMTFZvXp1o0aNLly44Ovre+PGDcOmBQAAwJvgzW4M96lr+fm+ZSTkrB1TRqy88DwPEsp34qeNXPS3VqgcGjWrVVgfl3hllS9ffteuXT169Lhz507nzp0N+0rYPd7e3omJiePGjTMxMYmIiHBzc1uyZMm9QxYWFpGRke7u7kePHvX19b17965howIAAOC1RwG7x6Re3wHeNpLQnl8W0qDNsIj4KzlPHaO99VfUN0ENW03Ye1uWTGr0+biVpQJJizwzM7Off/45LCxMrVZPmTLFz8/v5s2bho1kamo6fvz4gwcPNm3aNDU19f3332/Tps3p06eFEHZ2dlFRURUqVIiPj+/cuXNubq5howIAAOD1pjZ0gKLCqOpH86b93vyjqCu5l/6YFlL/+0GVvRo3rle7mvNb5Uo72lqamZmo5bzs7Ky711MuXjh78tCfe3bvS0rJ1MlCCJVdo7ELRtY1fepV3hyhoaGurq5du3bdtGmTl5fX2rVr3dzcDBvJ1dV127ZtERERQ4cOjY6Orlmz5rBhw0aOHFm2bNno6Ghvb+8tW7YEBwcvWbLEyKig7w8AAAAAL4QCdp+xS+iKP8wGdP/0p8O3dHLejeTYDcmxG546TGVdvfuUiNn96rD89YgmTZokJCR06tQpPj6+QYMGCxcu7NKli2EjSZIUEhLi7+8/YsSI+fPnT5gwYcmSJfPmzWvRokVMTEyzZs1WrFhhbm7+008/SdLz78YCAAAAPA2PID7IvFrIjwkn9i4aG9Skkq36yXfgktqmYqPuoxbu+uvA4v51bLldz0+5cuV27Njx4Ycf3r17t1u3biNGjNBqDb9Vv729fVhY2Pbt26tVq5acnOzj4xMSElK6dOmoqCgrK6tFixYNHjzY0BkBAADwemIF7FHqEl7BEyKCJ+TdOns4IfHIidPnLqVev3k3K1cjjM0traysbIuXr+zi4urm7lbB7o3fdOPpzMzMFixY4O7uPnTo0ClTphw8eHDJkiXFihUzdC7RpEmTxMTESZMmTZkyJSIiIjo6evr06WvXrvXz85sxY0bp0qWHDx9u6IwAAAB43VDACmJsV9HDp6KHj6FzvB4GDhz49ttvd+3adcuWLXXr1l2zZo27u7uhQwkzM7MJEyZ07969X79+O3bseP/991u1ajV9+vSBAweOHDnS3t4+NDTU0BkBAADwWuERRCjk3ithXl5eZ86cadiw4dKlSw2d6B/3Nuf46aefHB0dY2Jihg4d2qFDByFE//79ly9fbuh0AAAAeK1QwJ5Cczft0tkTSYcO7E/Yf+DIX6f+vnTtrsbQoV5V5cqV27lzZ58+fTIzM997772+ffvm5eUZOpQQQkiS1LNnz5MnT4aGhmZnZ69evdrBwUGn0wUHB2/cuNHQ6QAAAPD6oIDlI+vSvhXTPw/xre9Sysrcpng5Z9eab9fxrOtZp1a1KhXLlbSxtHOqXr9dj5Ez18RdyJQNnfbVYmpqGh4eHhYWZmJiEh4e7uPjk5qaauhQ/7i3OceOHTuqV6+elpYmhMjLy+vUqdOuXbsMHQ0AAACvCQrYQ3TX4+b1bejs3LDbkG8iNsedTM3QPFawZDk3/eLxuE2/TB7YqUGlCl49Z+xONfzOfq+W0NDQPXv2lC9ffufOnZ6envHx8YZO9B9vb+/ExMQJEyaYmZkJIbKzs319fQ8ePGjoXAAAAHgdUMD+k3t6Sc8GTT8K35uSe691SUYWDk4utRs282nTzr/DOx0C2rdt1byRR/UKJayM7207L+ddS1g0uIVX57CjWYaM/gry8PBISEho3rz5xYsXmzRpsmDBAkMn+o+pqenYsWMPHz7cokULIURGRka9evU2b95s6FwAAAB45VHA/pUV/2WnDxcn58hCMi3TIGT8wi0Hzt28nXb+r8TYbTGbozasXbN2feSm6K27E46eTU1Pv3J0x/JvB7RzsVEJOe/8+oEdh/2RztOIz6d48eKbN2/u379/Tk5O7969BwwYUEReCbunSpUqf/zxx88//2xiYpKbm9uuXbtPP/00Ozvb0LkAAADwCqOA3aM7/9Oo7w7nyJJR2YDvY4/GLhr3Qeu3nayNCjhdZV6yepOun/0QdejQ2gG1LSU5N3n+6LCTPIn4vExMTObMmbNw4UIzM7NZs2a1aNEiJSXF0KEe0qNHj3PnzpUpU0aW5R9++MHV1ZWlMAAAAOiNAiaEEEJ3Yd3y3VmyMHLqtSBioIed9KwDTSsEfLf8q8bmkpyTuPa3szQwvXzwwQd79uypUKHC7t27PTw89u7da+hEDylVqtSxY8eqVq0qhDh37pyvr6+/v//FixcNnQsAAACvHgqYEEIIzbGDR/NkoSrRrktzm+cca1SpUxcvYyG0yccKdwls5MiRkl4SExOFENevXy/MNC9Z7dq1//zzz5YtW16+fLl58+YzZswwdKKH2Nra7t6929XVVQhhZGQUGRnp5uY2Y8YMrZbODQAAgOdAARNCCCHn5OTKQkhW1lbPvPh1n8rGzkYlhJybk8tbYC/A0dFx8+bNw4cPz8nJGTRoUEhISFZWEdrapHjx4jExMRUqVNBqtY6Ojunp6YMGDWrUqBEbJAIAAODZUcCEEEIYlXurnJEQuov7E6/onndw1qE/k/KEUJUsXbJQf52TJk2S9VKnTh0hhIODQ2GmUYRarZ48efKSJUssLCwiIiIaN2587tw5Q4f6T7ly5WJiYkqVKpWWlubl5VWuXLm4uLi6desOHjz4zp07hk4HAACAV4Da0AGKBnUtP9+3ph4/nbVjyoiV/hHdnArafeMx8p34aSMX/a0VqhKNmtUyfpkh3xjdu3evXr16x44dExMT69atu2zZsnvbwRcFlStXjo6Obtq0aXx8/Pvvv1+pUqXJkyd///33y5cvnzx5ckhIiKEDAgCeT1pa2sqVKw2dAnhDFam/aleOfmssrx/Nie+b2UhCCMmkbMvPf4m7nP30ITePR057z81GJYSQTGqOjn/6EGXcWwELDAw0dJAXkpaW1qpVKyGEsbHxzJkzDR3nIbt377awsBBCfPbZZ4cOHWrQoMG9/5patGjx119/GTodAOCZ7Nmzx2C3XwAeEBERYej/P1CUJMu8t3RP3onwjs0/irqilYUQknGxyl6NG9erXc35rXKlHW0tzcxM1HJednbW3espFy+cPXnozz279yWlZOpkIYTKrvGX0ZtH17U09M9wj4eHR2JiYmBg4Lp16wyd5YVotdpRo0ZNmzZNluUePXrMmzfPzMzM0KH+sWXLloCAgNzc3AkTJowZMyYiImLIkCFpaWnm5ubDhg0bOXKkqampoTMCAJ4kNzd35MiRFy5cMHQQ4M0VHx9/7ty5iIiIoKAgQ2dRkKEbYJGSeWxRL3c71XPtw6Gyrv7+nP23dIbO/oDXYwXsvvXr19vY2Agh3n777TNnzhg6zn/Wrl2rVquFEPcqYkpKSlBQkCRJQojq1atv377d0AEBAACKtHu9601bAWMTjgeZVwv5MeHE3kVjg5pUslU/uYdJapuKjbqPWrjrrwOL+9exff7NE/GMAgIC4uPjq1WrdvDgwbp16/7++++GTvSPDh06LFy4UKVSDRs2bP78+SVLloyIiPj9999dXFyOHTvWvHnzHj16XL161dAxAQAAUISwCcej1CW8gidEBE/Iu3X2cELikROnz11KvX7zblauRhibW1pZWdkWL1/ZxcXVzd2tgh2bbijDxcVl3759PXr0WLduXdu2bSdOnDhs2LB7a02GFRwcfPv27U8++aR///7W1tbvvvtuixYtDh06NG3atK+//vqXX3757bffJk2a1KdPH5WKv+wAAACA4B2w19Br8w7YI2RZnjp16qhRo3Q63bvvvvvjjz9aWhaJ1+4mTpz4xRdfGBsbr1mzxs/P794fnjlzZsCAARs3bhRC1KlTZ+7cuV5eXgaNCQAAULQEBwcvXrz4TXsHjL+VxytDkqThw4dv2LDBzs5u2bJlDRs2PHPmjKFDCSHE6NGjhw8fnpeX17Vr1+3bt9/7Q2dn56ioqA0bNpQvXz4xMbFBgwZ9+/a9ffu2QZMCAADAwChgeMW0b99+7969rq6uhw8frlu37ubNmw2dSAghJk2a1L9//6ysLD8/v9jY2Pt/7u/vn5SU9Nlnn6lUqvDw8GrVqi1fvtyAOQEAAGBYFDC8elxdXePi4gIDA2/cuNG+ffuvv/7a4E/SSpI0e/bsDz/8MCMjw8/P78CBA/cPWVtbf/vttwkJCQ0bNrx8+fK7777bunXrkydPGjAtAAAADIUChleSjY3N2rVrJ0+eLIQYPXp0QEBAenq6YSNJkhQWFhYYGHjr1q127dolJyc/eNTd3X337t3z5893cHCIiYmpVavWmDFjsrKyDJUWAAAABkEBw6vq3ithkZGR9vb2kZGRXl5ex44dM2wktVq9fPlyHx+flJQUHx+f8+fPP3hUkqTevXsnJycPHDgwLy/vf//7X9WqVVetWmWotAAAAFAeBQyvNl9f3/j4+Jo1a548ebJ+/fqrV682bB5TU9P169c3adLk/PnzLVu2vHLlyiMn2Nvbz5gxIy4urm7duhcvXuzSpYu/v//ff/9tiLAAAABQGgVMCCGENvPm1dQXdTU9x9A/x5upcuXKcXFxISEhd+7c6dKly4gRI3Q6nQHzWFhY/Pbbb56enqdOnWrduvX169cfP8fT03PPnj3fffedjY1NZGSkm5vb5MmT8/LylE8LAAAAJVHAhBBCd3ZO+3KlXtRbfX6jgRmIubn5zz//PHXqVJVKNWXKFH9//1u3bhkwj42NzaZNm2rUqJGUlOTj43Pz5s3Hz1Gr1YMGDTp+/Pi7776bkZExcuRId3f3rVu3Kp8WAAAAiqGACSGEMC1W3M5YMnQKvAhJkj7//PPNmzc7Ojpu3Lixbt26SUlJBszj6Oi4detWV1fXgwcPGXgdzgAAIABJREFUtm/f/u7du/meVqZMmaVLl8bExLi4uBw/frxly5bvvffe5cuXFU4LAAAAZagNHaBIUDl9uP5SwJHNv8z436RFf6ZpZCGEZOlcv3FV2+doZSZvl6LPGpqPj09CQkLHjh0TExPr16+/cOHCrl27GipMiRIloqOjmzRpsnfv3g4dOkRGRpqZmeV7po+Pz5EjR+bMmfPFF18sXbp0w4YNQ4cOHTVqlImJicKZAQAA8FJJBv+AUtGS89esgEafRt/QCbXriD1HJtV9FRuqh4dHYmJiYGDgunXrDJ3FMLKzsz/++OOFCxcKIUJDQ2fNmmVsbGyoMKdOnWrSpMmVK1cCAgJWrVr15CSXLl0aOXJkRESEEMLFxWX27NktW7ZUKikAAICigoODFy9eHBERERQUZOgsymHJ5mGmrn3/F+ryKrYuPMDMzGzBggVhYWEmJibh4eE+Pj6pqamGClO5cuXo6GgHB4cNGzZ0795do9E84eSyZcv+8ssvkZGRzs7OJ06caNWqVc+ePa9evapYWgAAALxUFLBHGb/t26qskaFToBCEhoZu3bq1dOnSO3fu9PT0jI+PN1QSNze3LVu22Nrarl69um/fvk9ddm7fvn1SUtK4ceNMTU0XLVrk4uIya9YsrVarTFoAAAC8PBSwx6jd6tRkQ47XRKNGjRISEho0aHDx4sUmTZosWLDAUEk8PDyioqIsLS0XLlw4cODAp55vbm4+fvz4I0eO+Pr63vo/e3cdF1X2/gH8zAxDSXeHCFKCLgiISouIYAImYIK6Eq4xrAWou4I5YCC4BogFNiKomIgKiEh3d6c0M78/7vfL19+uAcyFYfF5/8GLxbnPee4gvvjsOfec5mYXFxds5/pRaBUAAAAAAIwcCGD/QOCZar7Q2MhQZyIPxLBxQEJC4sWLF87Ozt3d3Rs2bHBxcWHWcVszZ8588OABOzv76dOnt23bNphLJk2a9OjRowcPHsjLy3/69GnWrFkODg5MXE4JAAAAAAAYBAHsn1g0XW48exETvHEyrEQcH9jY2M6dO3f+/Hk2NrbTp0+bmJhUVVUxpRMTE5P79++zsbFRqVQvL69BXmVtbZ2RkYGtSLxy5YqysrKfnx+sSAQAAAAA+DeCAAZ+Fhs2bHj9+rWUlNSbN2+YuJzP3Nz8xo0bLCws3t7ehw8fHuRV2IrE9PR0S0vL5uZmd3d3LS2tuLi4EW0VAAAAAADgDgIY+Ino6OgkJyebmppWVlYaGhr6+voypY1FixZdv36dRCLt3r372LFjg79QQUEhMjLy7t27srKyKSkps2fPXrt2LaxIBAAAAAD4F4EABn4uQkJC0dHRFAqlr6/Pw8PD3t6+o6Nj9NuwsbG5cOECkUjctWtXYGDgkK5dtGhRZmbm3r17WVlZL1++rKys7O/v//3d7QEAAAAAwBgBAQz8dFhYWHx8fK5fvz5hwoTQ0NBZs2YVFRWNfhuOjo5BQUEIoS1btoSGhg7pWk5OzoMHD2ZkZFhZWTU3N7u5uamrqz99+nRkOgUAAAAAALiBAAaGiUqlSklJ2dranjlzJiMj44dnW401y5cvf/v2rYKCQnJy8vTp05mSXtavX3/ixAkajbZmzZobN24M9XIFBYWIiIinT58qKyvn5OSYm5tbW1uXlpaORKsAAAAAAAAXEMDAMNXX11dUVNy6dWvr1q3q6upiYmJ2dnZnz57NzMxkdmuDpaGhkZCQYGFh0dDQYGlpeezYsdGPke7u7t7e3v39/Y6OjhEREcOoYGZmlpKSQqVSubi4Hj58qKKi4uXl1d3djXurAAAAAACAcRDAwDAdOnQoPz//r7/+Wr16taSkZG1tbXh4+K+//qqmpiYmJrZ8+fJz585lZWUxu80fEBAQiIyM3LNnT39//86dO1esWNHe3j7KPezfv9/Dw6Onp8fW1jY6OnoYFVhZWd3c3NLT05csWdLR0eHt7T116tTHjx/j3ioAAAAAAGAQBDAwfAoKCuvXr79y5Up5eXlubu758+dXrVolISFRU1Nz8+bNzZs3q6qqiouLr1ixIjAwMDs7m9n9fh2RSDx06NCDBw/4+Phu3rypra09+rnx8OHDu3bt6u7uXrJkyfPnz4dXRFZW9vbt20+ePJk8eXJ2draFhcWiRYsKCwvxbRUAAAAAADACAhjAh6Ki4oYNG0JDQysqKnJycgIDA1euXCkuLl5dXX3jxo1NmzapqKhISEisXLkyKCgoJyeH2f3+nZWVVUJCgrq6ek5Ojp6e3t27d0e5AR8fny1btnR2dlpbW798+XLYdebMmZOWlkalUnl4eO7fv6+iouLm5tbW1oZfpwAAAAAAYPgggAH8KSkpOTk5Xb16tbKyMjs7+9y5c8uXLxcXF6+qqrp+/bqzs7OysrKkpOSqVavOnz+fl5fH7H7/Q1FR8d27dzY2Nq2trUuXLvXw8KDRaKM2OoFAOH36tLOzc0dHh5WVVWxs7LBLkclkNze37OxsJyenvr4+f39/FRWVkJCQf91GKQAAAAAA4w8EMDCyJk+e7OzsfP369crKyqysrICAgGXLlomJiVVWVl67ds3JyUlJSUlKSsre3v6vv/7Kz89nbrdcXFxhYWFUKpVEIvn6+lpbWzc1NY3a6AQC4ezZs6tXr/78+bO1tXViYiIj1cTFxQMDA+Pj4/X09CoqKhwdHY2NjVNTU/HqFgAAAAAADAMEMDB6lJWVN23adOPGjaqqqszMzLNnz9rZ2YmKilZUVISGhm7cuFFRUVFaWtrBweHixYvMeniJQCC4ubk9ffpURETk0aNHOjo6aWlpozY6kUi8fPnyihUrWlpazM3Nk5KSGCyora0dFxcXFBQkLCz86tUrLS0tFxeXxsZGXLoFAAAAAABDBQEMMIeKisrmzZtv3rxZXV2dkZFx+vRpGxsbYWHh8vLyK1eurF+/XkFBQVZW1tHR8fLly8XFxaPcnpGRUXx8/LRp0/Lz8/X19W/evDlqQ5NIpCtXrtjZ2TU3N1tYWKSnpzNYkEgkbty4MScnx8XFBSF0+vRpJSWlgICA/v5+PPoFAAAAAABDAAEMMJ+qquqvv/4aHh5eU1OTlpbm7++/ZMkSISGh0tLSkJCQtWvXysvLT5w4cd26ddiOi6PTlZycXFxcnL29fXt7+/Lly3fs2NHX1zc6Q2MZzNraur6+3tTUFJej1fj5+f39/dPT0+fNm9fQ0LBlyxZ1dXXYqh4AAAAAYJRBAANjCIFAUFdXd3FxuX37dm1tbUpKip+f36JFiwQEBIqKii5duuTg4CAtLY1t8nH9+vXq6uoR7YeDgyMkJCQwMJCVlfX48eOmpqYjPeIAVlbWsLAwc3Pz2tpac3NzvJ6Omzx58qNHjx48eDBx4kRsq3pra+uioiJcigMAAAAAgB+CAAbGKAKBoKGh4erqevfu3bq6uo8fP544ccLa2pqXlzcvL+/8+fPYNvfY7NmtW7fq6+tHqBMnJ6fnz5+Li4u/fv1aW1v7/fv3IzTQ37Czs9+9e9fY2LiiosLExATHh+Ksra2zsrKoVCo3N/fDhw/V1NQ8PDxgq3oAAAAAgFEAAQwMU09Pz6htWkgkEqdNm7Zt27YHDx40NDQkJCQcOXJk3rx5XFxcWVlZZ8+etbW1FRER0dTUdHd3f/DgQXNzM74NzJw5MyUlBctCRkZGfn5++Nb/Fk5OzocPHxobG5eVlRkZGeGYwVhZWd3c3LKyslatWtXV1eXr66umpnb9+nXYqh4AAAAAYERBAAPD5OLioqioaGZm9urVq9Ecl0QiTZ8+fefOnY8ePWpubv7w4YOPj4+VlRU3N3dqaqqfn9/ChQuFhIS0tbXd3NzCw8NbWlpwGVdYWPjJkycUCqW7u9vd3d3BwaGzsxOXyt+HZTBDQ8OysjJjY2N8lwtKSkqGhoa+efNGS0urrKxs5cqVs2bNYnD7ewAAAAAA8B0QwMAwmZqa8vHxPXv2zMjIaPbs2U+ePBn9HkgkkpaWFoVCiYiIqK2tffnypaenp4GBAYlESkpK8vf3t7OzExERMTAw8PLyev36dXd3NyPDsbCw+Pj4BAcHc3BwXLlyxcjIqKysDK97+Q5OTs7IyEgDA4PS0lJjY2Pc94TU19dPTEwMDg4WFxd/+/atrq6unZ1daWkpvqMAAAAAAAAEAQwMG/Y7OpVKFRMTe/Pmzdy5c6dNmxYeHs6sNWxsbGyGhoZeXl6vXr1qamp6/Pixh4eHjo5Of39/bGyst7e3oaGhgICAubm5r69vYmLisDdhd3BwiIuLk5eXT0hI0NbWfvnyJa738XUTJkyIiIjQ1dUtKSmZM2dORUUFvvUJBIKDg0NeXp6npycbG1t4eLiKioqXl1dXVxe+AwEAAAAA/OQggIHh4+bmdnNzy8/Pp1KpEhISnz59srOz09TUDAkJYe4ZU5ycnObm5ocPH46Pj29oaLh//76bm9uUKVM6OzufPn2KBTNhYeElS5acPn06KytrqPWnTZuWmJg4d+7c2traOXPmHD9+fCTu4m94eHgeP348ffr0/Px8Y2PjyspK3IeYMGGCl5dXbm6uvb19Z2ent7e3oqJiSEgIPBgGAAAAAIAXCGCAURMmTHBzc8vLy6NSqZKSkmlpaY6OjpqamteuXRsLR/3y8vIuWLCASqWmpqZWV1ffuHFj48aNCgoKTU1Nd+/edXFxUVVVlZCQsLe3Dw4OHvzMkqCgYFRUlI+PD41G27Fjx6JFi1pbW0f0RhBCvLy8T5480dbWzsvLMzY2rqqqGolRpKWlQ0JCnj9/rqmpWV5e7ujoaGhomJSUNBJjAQAAAAD8bCCAAXxwcnK6ubkVFBScPXtWVlY2IyNj1apVqqqqwcHBo3Z+8Q+JiIgsW7YsKCgoPz+/qKjowoULK1euFBMTq6qqCg0NXbNmjZSUlIqKiouLy7179364eweBQKBQKA8ePODj47t//76Ojs4wJtOGio+PLzo6WlNTMzc3d86cOXV1dSM0kJGRUVJSUmBgoIiISGxsrI6OjqOjI+5LHwEAAAAAfjYQwACe2NjYNm/enJeXFxwcPHny5Nzc3DVr1kyaNMnPz2+sPU0kJye3bt26q1evVlVVpaen+/n5LViwgIeHJzs7+/Tp04sXLxYUFJwxY8bevXtfvnzZ09PzrTrz589PSEhQV1fPycnR1dW9ffv2SHcuKCj49OlTdXX1jIwMExOTkctgJBLJycmpoKDA09OTlZU1JCRESUkJTgwDAAAAAGAEBDCAPzKZ7ODgkJmZGRYWpqKiUlJS4u7urqSk5OfnNzpbtw+Vmpqaq6vr/fv3Gxoa3r59e+DAAUNDQxKJ9P79+z/++MPY2FhAQMDS0vLkyZNpaWn/vFxRUfHdu3d2dnZtbW22trYeHh4jvfZSWFj42bNnampq6enppqamI5fBEEJcXFxfPhjm6+urrKwcFBQ0FtaXAgAAAAD860AAAyOFSCTa2tqmp6ffvHlTQ0OjrKzM3d1dQUHhxIkTnz9/ZnZ3X8fCwjJjxox9+/a9fPmysbHx0aNH27dv19DQ6OjoiIqK+u233zQ0NMTFxe3t7UNCQr58BIuLi+vGjRtHjx4lkUi+vr5WVlaNjY0j2qqIiMiLFy/U1dXT0tIMDAyqq6tHdDjswbDXr19Pnz69srLS2dlZT08vNjZ2RAcFAAAAABh/IICBkUUkEu3s7D59+nT37l0tLa2qqqrt27dPnDjR19d3jK9kmzBhwrx5844dO5aSkjLwkJikpGR1dXVoaKijo6OEhMSUKVO2b98eHR3d0dFBIBB27Njx5MkTYWHh6OhobW3tT58+jWiH2DyYurp6dna2iYnJSGcwhNCsWbPi4+NDQkKkpKQ+fPhgYGCwdOnSvLy8kR4XAAAAAGDcgAAGRgOBQFi0aNGHDx+ePn2qp6dXW1vr4eEhLy/v5eXV1NTE7O5+TFRUdNWqVZcuXSovL8/IyPDz87OysuLi4kpPTz9x4sS8efMEBQXnzJlz9OhRfn7+Dx8+6OjoFBUV6evrh4SEjGhjIiIiWAbLysoanQxGIBDs7e1zcnK8vb0nTJhw584dNTU1Nze3hoaGkR4aAAAAAGAcgAAGRpWZmdm7d+9iY2NNTU0bGhq8vb1lZWU9PDxGesEejlRVVV1dXSMiIhobG1++fLl7925tbe2enp6YmJhdu3ZNmzZNR0dHQUHB3Ny8s7PT0dHR2dn5O3t4MO7LDDZ37tz6+vqRG2sAJyfn/v37i4uLXV1daTSav7+/nJwcHNwMAAAAAPBDEMAAE8yaNSsmJubFixcmJiZtbW2+vr5ycnK///77iG4mgTsymWxoaPjHH38kJibW1tbeuHFj3bp1UlJSNTU1169ff/LkCYFAIBKJQUFBGhoahYWFI9fJQAZLTU01NTUdnQyGEBISEvLz80tLS7O1tW1vb/f29lZSUgoKCqLRaKPTAAAAAADAvw4EMMA0RkZGz549e/Pmzdy5c9va2nx8fOTl5Xfu3FlTU8Ps1oZMUFBw2bJlFy5cKCsry8zMPHny5Ny5c9nZ2bEokpOTM2nSpFmzZgUGBpaUlIxEA1gGU1NTG+UMhhBSUVEJCwt7/PgxttWKs7Ozvr4+7M8BAAAAAPBVEMB+oK+9vqIoJz0lOelDUnJadn5xRV37WDlWeHyYOXNmdHR0fHy8lZVVR0fHsWPH5OXl3d3dKysrmd3aMKmoqLi7u0dHRzc0NERHR2/evJmLi4tOp8fFxW3atElOTk5NTW3Hjh0xMTHd3d04jisiIhITE6OiopKammpmZjaaGQwhZG5u/vHjx7/++ktCQiI+Pt7AwGDRokWjcDI1AAAAAMC/CwSwr+iseB92YqfDPL3JYlwcPMJSE5WnTP1Fe7r2LxoqivJSojwT+KRV9Swdfz91J76sg87sbscHHR2diIiIT58+2dvbd3d3+/n5ycvLOzg4FBQUMLu14ePg4Jg7d+7Zs2ebm5u3bNlCIBAQQqysrJmZmcePH58zZ46goOCCBQsCAgKKi4txGVFMTOz58+fKysopKSkjekbzV5FIpPXr1+fm5np5eXFxcd2/f19DQ8PZ2fnL/foBAAAAAH52dPCF/vr3AU4zxFgJg3z3CGRhbUdqbHUfsxv/f3755ReE0MKFC5ndyDClpKTY2toSiUSEECsrq7Ozc1FREbObwsGdO3d4eHgQQvLy8s7OzlOnTsUiGUZZWfm3337DpsUYHKimpkZdXR2rWVlZiUvzQ1VXV0ehUFhZWRFCnJycFAqlubmZKZ0AAAAAYMxavXo1QujKlSvMbmRUEeh0mML5j56CaxvmrQvN6/7vO0IgcQpISMtIiwtyc3JwsJFoPV2dHW2NNRVlpRV17b0DLyPLLDz16JqzGgezOv8bLS2tjx8/Lly48N69e8zuZfgyMzMPHToUFhbW399PJpMdHBx27949ceJEZvfFkNzc3KVLl6anp3Nzc1+8eBFbfhkVFfX06dPm5mbsNdzc3Obm5paWlvPmzRMXFx/eQLW1tWZmZmlpaZMnT37+/LmEhAR+NzEEubm5e/fuvXXrFp1OFxQU3Llzp7u7OxsbG1OaAQAAAMBYY29vHxoaeuXKFSyJ/SyYnQDHjI74PZpsBIQQIrBJzHDwuvg4ubT1WzNb/R3VGa9uHnexnMxDRAghAqvS1phm2qg2/G3/9hmwL2VnZ9vb27OwsCCEWFhYHB0dc3Nzmd0UQ9ra2uzs7BBCBALB1dW1t7eXTqf39va+evWKQqFMmTJl4GeTQCBoaWnt27cvPj6+v79/qAPV1tZqaGgghJSUlMrLy0fgVgbrzZs3+vr62E0pKSmFh4fTaGPlhwUAAAAATPRzzoBBAMP0l5wx5SQgRCBJLvD70DTo3w67iu67TJtAQIjApuubPUZWIo6nAIYpKipydXXFZk6IRKKtrW1mZiazm2JIYGAgmUxGCBkaGlZXV3/5RyUlJQEBAVZWVpycnANhTFRUdP369Xfu3Glraxv8KI2Njdra2gghRUXFsrIyvG9iaG7fvj158mTsdqZPn/7s2TPm9gMAAAAApoMA9hPrL/YzYCMgRJJxim4Z4rV9uSdmcxAQIusdzRsbCWz8BTBMYWHhhg0bsMeKiETiihUr0tPTmd3U8L1+/VpMTAwhJCUl9e7du3++oKOjIyoqauvWrfLy8gNJjI2Nbe7cuadPnx7kc3FNTU06OjoIITk5ucLCQpzvYYh6enrOnTs3sK7S3Nw8KSmJuS0BAAAAgIl+zgAGuyAihBDqy/yU0UtHRBFLW2OeIV5LUlhqq0NGqD8vM7d/RLoDGHl5+fPnz+fm5m7atIlMJl+/fl1DQ2PZsmXp6enMbm04Zs+e/eHDB319/fLyciMjIz8/v7+9gIODw8LC4tSpU4WFhWlpaYcPH545c2ZfX9/jx4+xVKahobF79+74+PjvHHzMx8f3+PFjXV3d4uJiY2PjoqKiEb6t7yGTyc7Ozvn5+T4+Pnx8fE+ePNHW1razs8vLy2NiVwAAAAAAowkCGEIIIXp3dw8dIQIXN9dgN0D8HyIPHw8RIXpPdw9saDLyZGVlAwIC8vLytm7dysrKGhYWpqmpaWtrm5aWxuzWhkxSUvLFixdbtmzp7u52d3ffsGFDV1fXV1+prq7u4eHx5s2b6urqkJAQOzs7Xl5eLJXp6elJSko6OTk9fPiws7Pzn9fy8fFFR0fr6uqWlJSYmJjgteX9sGGbIubn52/fvp2NjS08PFxNTW3r1q3/xgO4AQAAAACGCgIYQgghkpSsFAkhWnnSx6pvziV8S2dKYnovQkRRcVF4O0eLtLT0qVOnSkpKKBQKGxvbrVu3NDU1ra2tk5KSmN3a0LCysp45cyY4OJiDg+PChQuzZs36fkASEhKyt7e/efNmXV1dTEyMi4uLnJxcdXX1+fPnra2thYSEFi9efOnSpb+dAIbNg82YMaO4uNjQ0DA/P39k72oQBAUFjx07lpubu3btWhqNdubMGQUFhT179gzsBgkAAAAAMD4xew3kGNEd95sCCSFEkllxo3QoT3LRWuO9Z/AQECKKOEa0j1h/QzJenwH7lpqaGgqFgm1ZQSAQrKysEhMTmd3UkH369ElBQQEhJCgoGBUVNdRrDx48qK2tPXCwGIlEMjAwOHHixJfPfbW2ts6aNQshJCEhkZWVhfcdDF9GRsbChQuxzvn5+Q8fPvz582dmNwUAAACAEfdzPgMGAew/+nKoRjwEhBCBVdJ0Z0h8ZdePL2nKenh0pToPESFEYJ2yJ+HHl4yOny2AYaqqqrZt2zYQwxYuXPiv2+ChpaVl8eLFWP8UCmUYW8+Xl5cHBATMmzfvy7O2pk6d6uXl9enTJzqd/vnzZzMzM4SQiIhISkrKCNzE8MXHx5uammI9CwsL+/j4dHZ2MrspAAAAAIygnzOAwUHMA3pzgpYYb4ms6qcjhAhkgUk6s2bpTlOZKCslLsQ7gZ2dlYXe29XV2d5QXV5WlJuS+PbN+/TqDhodIUTkm3XgSfSe6ROYfQ+Y8XEQ8/DU1NQcPXr03Llznz9/JhAI1tbWnp6eWCL9V6DT6UeOHNmzZ09/f7+lpWVoaCg/P/8w6rS1tUVFRd29ezcqKqqlpQX7ory8/KJFi6ysrE6ePPnw4UN+fv7Hjx9Pnz4d1ztg1Js3b3bv3h0bG4sQkpGR2bNnz/r160kkErP7AgAAAAD+4CBm0JEZvF6TjzikfTiI3KqrziaNmUOY6fSfdQbsS3V1dZ6enjw8/9nR0szMLCEhgdlNDcHz589FREQQQjIyMgx23t3dHRUV5ezsPLD5O0JIVFQU29qej4/vqzvgMxeNRrtz546amhrWrZqa2u3bt+HsZgAAAGD8+TlnwGDXiC9xqDj89SHnXfD+1QYKvCzfz2EEFh75mSt2X4zNTg7d/Avv0DdPBCNHSEjIy8uroKAAi2ExMTE6Ojpz5sxJTExkdmuDYmxsHB8fr6WlVVpaamRkdOXKlWGXYmVltbCwOHfuXHl5+du3b3fu3Dlx4sSamhpsP/rm5mYDA4PDhw93d3fj1z6jCATC4sWLU1JSgoOD5eXlMzIyli5dqq2tHRkZyezWAAAAAAAYBUsQv6W3uSj1w8e0nIKSipqGpvbOnj5E5pjAxcXFKywzafJkZXVNdTk+8kh2QKPRhrdj+IIFC7BdDX7CJYj/VFdXd+zYsbNnz7a3txMIhPnz53t6emprazO7rx/r6ur69ddfL168iBDasmXLyZMnsUOoGZecnHznzp3bt29nZWVhX+Hk5Fy0aJGNjY2FhQUHBwcuo+Cip6fnr7/++vPPPysqKhBCM2bMOHTokImJCbP7AgAAAAAOYAkiGFvWrVvHyHdWT0+P2XcwhtTW1lIoFC4uLoQQ9mzYhw8fmN3UoJw/f56dnR37hpaVleFbPC0t7W8PyHFzc69YseLOnTsdHR34jsWI7u7uwMBAMTExrMmZM2e+ePGC2U0BAAAAgFE/5xJEmAEbu/z9/f38/IZxYUVFRXd3t5GR0YsXL3Dv6l8Nmw07c+bMwBYdXl5e06ZNY3ZfP5CcnGxjY1NYWCgkJHT16lVzc3Mci9NotM2bNwcFBbGwsMjLy+fl5WFf5+LisrKysrW1nTdv3hiZE2tvb/f39z927FhTUxNCaN68eQcPHtTS0mJ2XwAAAAAYpp9zBgwC2BDQPpenJnzKr6xvR9xCEvIa2poy3GNxc7afeRfEwaivrz99+vTJkydbW1sRQmZmZocPHx7jixIbGxtXrVoVHR1NIpH27t27f/9+IhG3BzjpdLqbm9upU6fIZPLJkyc7Ojpu3bqFnaWGEOLi4rK2tl62bJmFhcWXu9szS0tLy4kTJ06ePNnW1kYgEBYsWODl5TV16lRm9wUAAACAIfs5AxgsQaTT6XQ6rSEv4f379+8T0iu/evBQR0HkYXtdMfb/t9UGgU1IY/Huq8kNQz6taYTBLoh49+NCAAAgAElEQVSDUVNTs3379oFzw7BdH5jd1PfQaDQfHx8sd1lZWTU1NeFb39PTEyFEIpEuXLhAp9OLioqOHj2qq6s7cLgzHx/fmjVroqKient78R16GOrq6nbt2jVhwgTs27dkyZLU1FRmNwUAAACAofk5lyBCAKPT6XR6V7gtO0IIkXWP5Pb97c/6qx/v1BP45mwDgW3iktMfW8fSFtkQwAavurr6t99+G4hhNjY2aWlpzG7qeyIjIwUEBBBCkyZNwj0x+vj4YO/DyZMnB75YXFx85MiRLx8VExIScnZ2fv78eV/f339aRlldXR2FQhn49llZWSUnJzO3JQAAAAAM3s8ZwGAb+h/oSacuW3b8fSMNIURgFZlivvLXXfsPHNhP+XXlHDUhMgHRuwvvulmvvVLUx+xWwTCIiooeP368oKBg27Zt7Ozst27d0tTUXL58eWZmJrNb+zpLS8vExMRp06bl5+fr6+tfvXoVx+IUCuXMmTMEAmHbtm0HDhzAvigrK7tz586kpKTc3NyDBw+qqanV19cHBgaamJhIS0tv27aNiZv7CwkJ+fj4FBcXUygUdnb2hw8famlp2dnZZWdnM6slAAAAAIAfYHYCHBu+NQPWX3HJmp+IECKQRI33PSz6//vC0dqyb7po8xERQkShpVerxsosGMyADQ+2UyK24QSRSLS1tc3KymJ2U1/X0dGxZs0a7Ed469at3d3dOBYPCQkhkUgIIQqF8tUXpKWl7d27V1FRceCfEUVFRU9Pz+zsbBzbGKqKioqtW7diT6mRSKTVq1cztx8AAAAA/NDPOQMGAYxOp38zgPUX+xmwERAisGl6vG396pW0qvCVUiSECGStQxlMXo/1XxDAGFFeXv7rr78O/B5vb2+fm5vL7Ka+Ljg4GIuLWlpaRUVFOFa+fv06mUxGCP3666802jf/z0J6erqnp6ecnNxAElNVVfX09CwsLMSxmSEpLS3dtGkTdmAaxDAAAABgjPs5AxgsQfyez+9eJ/XQEYHX2mOnHvdXX0IQW7xnkyYZ0fvSHj8po41ygwB/kpKSp0+fzsvL27RpE4lEunLliqqq6rp164qKipjd2t85ODjExcXJy8snJSVNnz79yZMneFVevnz5nTt32NnZz5w54+zsTKN9/W+2mpqal5dXQUHBs2fP1q1bx8fHl5mZ6e3tPWnSJFNT08uXL7e1teHV0iBJS0sHBATk5eW5urqSyeTQ0FBVVVVYlAgAAACAsQMC2HfQ6quqe+kIkacZzeIjfOtVJMVZM8VJiN5XmFcIz4GNF9jv8bm5uRs3biQQCJcuXZo8efKmTZvKysqY3dr/M23atMTERAsLi/r6ektLSy8vr2+FpaGysrK6d+8eJyfn+fPn7e3te3t7v/VKIpFoYmJy4cKF6urqO3fu2NjYsLKyPn/+fO3atWJiYqtWrYqKiurrG9WfDRkZGT8/v5ycHFdXV1ZW1vDwcDU1NYhhAAAAABgLIIB9HwEhhIi8/LzfeaMIfAJ8BIToLU0tcKba+CIrKxsUFJSXl+fk5ESn0wMDAydNmuTs7FxRUcHs1v5HUFDw0aNHPj4+dDrd29t7wYIF2DnFjJs7d25UVBQPD8+1a9eWLl3a1dX1/dezsbEtXrw4PDy8uro6ODjYzMyss7Pz2rVrlpaWoqKizs7Ob968waWxQcJiWHZ2tpOTEwsLS3h4uLq6ur29fU5Ozmi2AQAAAADwJQhg30EUVZDnIiJEq6up+86sAq2+tp6GEIGXj/eb02TgX0xWVjYwMDA3N9fJyam/vz8oKGjixInOzs5VVVXMbu0/CAQChUJ5+vSpiIhIZGTk1KlT8dqZ0MDA4Pnz58LCwhEREXPnzsWOrv4hXl5eBweHp0+fFhUVHTp0SFlZubGxMSgoaPbs2erq6kePHh3Nt+7Lbx+JRAoNDVVTU1u9enVWVtao9QAAAAAAMAAC2PdwzLKew09EvR8jor79eFf3h6iYWhoisKlPUyGPZndgVMnLywcGBqakpNja2vb29gYFBSkqKnp4eDQ0NDC7tf8wMTGJj4/X1tYuLS01NDS8dOkSLmW1tLRev34tJSX1+vVrExOTurq6wV8rKyu7Z8+erKyshIQEFxcXYWHhjIyMXbt2SUtLW1lZhYeHd3d349LkYDrBYhj2aN/Vq1fV1dVXrlw5Zs8bAAAAAMB4BQHs/+nPCtq4bK3L73/6XwqPfpNS2Guy3eUXDtT56tC20NL+r1xAb3l3yP1cfh8isOlZzRWFGbDxTk1NLSwsLDk5eeHChR0dHb6+vhMnTvTy8mppaWF2awghJCcnFxsbu3Hjxs7OznXr1m3cuPGH6wYHQ1lZ+c2bN4qKiklJSYaGhuXl5UOtMH36dH9//4qKivv37y9evJhEIkVGRtrZ2UlISGzdunXUThKTlZUNCAjIz8/Hng27fv36lClTrK2tP378ODoNAAAAAADANvR0Ov1/29D/HYHIyslBJiCECBxq21+0fXlNT33afZ/latwEhBAiSa972AjngP1cEhISLCwssL8pAgICf/75Z3t7O7Ob+o+QkBBOTk6EEHZkMy41q6urNTU1EUKysrIMbs1fV1fn5+c3bdq0gR81NTW1Y8eO1dTU4NLqYJSVlW3dupWdnR0hRCQSbWxsUlJSRm10AAAAANB/1m3oIYDR6XQ6vTc9dOfGFdbG01WkBdhJX5/HYjMNqPxfxOp5s02e9N+Yxqa47m5lPxP7//8ggI2mt2/fmpqaYn8ThISEfHx8Ojo6fnzZyEtOTp40aRJCiIeH5/bt27jUbGpq0tfXRwiJiop++vSJ8YIpKSnbtm0TERHB3kAymbxkyZLIyMi+vlE6VK+iosLV1RWLYQQCYcmSJbjcFwAAAAAG4+cMYLAEESGEEIvaqiNB1x48T8gsbfjcXl+SEf/s/tXA4947N9svnjNjirwwJ8vfU9l/dvsmEPl+2XLtaeAicXgrf04zZsyIiYmJiYmZMWNGfX29h4eHoqJiQEBAT08PcxubOnVqUlLS0qVLW1tbbWxsPDw8+vu/tox2KPj4+J48eWJubl5TU2NkZPT27VsGC2poaJw4caK8vPz+/fsLFiyg0+l37tyZP3++rKzs3r17CwsLGaz/QxISEn5+foWFhe7u7uzs7Hfu3Jk2bdqiRYtgUSIAAAAARgqzE+C/BK27ubKyqfd/X+hN9F0832EX9c6nut5vX8YcMAPGLA8fPsTefISQvLx8cHDwqM3kfAuNRqNSqWQyGSFkaGhYVVXFeM2urq7FixcjhLi4uJ48ecJ4wQGVlZU+Pj5KSkrYe0ggEExMTEJDQzs7O3Ec5Vtqa2s9PT15eHiw0c3MzOLj40dhXAAAAOCn9XPOgEEAG4cggDERjUa7deuWmpoa9ku8iopKeHg4jcbk5wOfP38uKiqKEJKSknr79i3jBXt7ex0dHRFCrKysN27cYLzgl2g02uvXrx0cHLDH2BBCAgIC7u7umZmZ+A70VTU1NTt27JgwYQI29Pz58yGGAQAAACPk5wxgsG4OADwRCISlS5empqaGhYUpKipmZWXZ2tpqaGiEh4czsStjY+OPHz/OnDmzvLzcyMjI39+fwYIsLCyXLl3atWtXT0/PihUrTp48iUufGAKBMHv27ODg4KqqqnPnzmlrazc2NlKpVFVVVQMDg9DQUFy2dvwWERGRo0ePFhUVUSgULi6uyMhIXV1dLIaN3KAAAAAA+HlAAAMAf0Qi0dbWNiMjIzg4WF5ePj093c7OTl9f//nz58xqSUJC4sWLF9u2bevt7XVzc1u+fHl7ezsjBQkEgq+vL5VKRQj99ttvHh4eOHX6Pzw8PM7OzomJiRkZGRQKhZ+fPzY21t7eXkxMzNnZOTU1FfcRBwgLC/v4+BQVFf3+++/c3NyPHj3S09OztLSEGAYAAAAABkEAA2CkkMlkBweHzMzM48ePCwsLv3v3ztTU1MLCIikpiVn9nDhx4t69e3x8fDdv3tTS0kpLS2Owppub2+XLl1lYWHx9fbds2fKfvWnwpqqq6uPjU1paGhQUpK2t3dLSEhQUpKmpaWhoeOPGjZHb70RISOjPP/8sKiry9PTk4+OLiorS09ObNWvWy5cvR2hEAAAAAIx7EMAAGFns7Oy//fZbQUHBgQMHeHl5Hz9+PH36dFtb2+zsbKb0s2DBgoSEBA0NjdzcXF1d3UuXLjFY0MHB4c6dOxwcHAEBAUuXLh259YFcXFwbN25MTExMSkpydnbm5uZ+/fr1ihUrZGRk9uzZU1JSMkLjCgoKenl5FRQUYDEsLi7O2NgYYhgAAAAAhgcCGACjgZube9++fYWFhRQKhZ2dHduow87ObhR2Wv8nRUXF+Pj49evXd3Z2rlu3ztnZmcFJJGtr6+joaF5e3nv37llaWra2tuLV6lf98ssv586dq6ysDAgI0NDQqKmp+fPPPxUUFBYsWBAdHT1Cs3ACAgJYDNu7dy8PDw8Ww+bNmweLEgEAAAAwJBDAABg9AgICPj4+JSUlFAqFTCaHh4erqKg4OztXV1ePcifs7Ox//fVXcHAwBwdHUFCQvr5+UVERIwUNDAzevHkjKSn54sULU1PTuro6vFr9Fi4urk2bNqWkpLx582blypUsLCwRERHz5s1TUlI6evRoY2PjSAwqICBw8ODBoqIiLIZFR0fr6elZWVl9+PBhJIYDAAAAwPgDAQyA0YZt8JCRkbFy5cq+vr6goCBFRcX9+/eP9MTRPzk4OMTGxsrJySUlJU2fPj06OpqRaurq6q9evVJQUPjw4cPs2bMZTHSDN3PmzKtXr5aWlh4+fFhOTq6goGDXrl3S0tIbN24coY06sBhWXl7u4+PDx8cXGRk5ffr0OXPmQAwDAAAAwA9BAAOAORQUFK5evZqcnGxtbd3e3n7w4EEFBYUTJ06M6B7r/6SlpZWUlDR//vyGhob58+fv37+/v79/2NUUFBTevHkzderUnJycmTNnJicn49jq94mIiHh4eBQUFERERFhaWnZ1df3111+amppGRka3b9/u6+vDfURubm4KhYI9G8bLyxsTE4PFMGZtsgIAAACAfwUIYAAwk4aGxoMHD+Li4gwMDOrr67dv3z558uTLly8zkoKGSkBAICIigkqlkkikgwcPmpmZMbIkUkxMLDY21sLCoqqqysDAgMFZtaEiEolWVlaRkZG5ubkUCkVAQODVq1c2NjYyMjJeXl4jsTASezYsLy9v165dEyZMwGKYjY1NRkYG7mMBAAAAYBwg0Ol0ZvcAcKalpfXx48eFCxfeu3eP2b2Ar+jo6Oju7m5paent7W1tbe3q6urs7Gxra0tOTg4NDcVW7omJic2dO1dZWZlAIPzt8ubmZuzHlkAg8PHxYV8kk8lcXFzY5xwcHOzs7NhHXl5eNjY2Li6uCRMmsLKy8vPzf6exV69erVixoqqqSlJS8ubNmzNnzhz2Pfb09Kxdu/batWusrKwXL15ctWrVsEsxor29PSQk5PTp01lZWQghdnb2lStXurm5aWhojMRwtbW1R44cCQgI6OjoIBKJK1as8PT0VFRUHImxAAAAgHHA3t4+NDT0ypUrq1evZnYvowcC2DgEAWw0dXR0NDU1NTY2NjU1DXzS2NjY2tra2tra1tbW2tra3NyMfdLW1sbg8ceM4+bm5uPj4+fnxz5++YmYmBgbG9vhw4ffv3/PwsJy6NChXbt2/TMBDhKdTvf29vb29iYQCPv37/fy8sL1PobWSUxMzKlTpyIjI7E9Ek1NTd3d3S0tLYlE/FcBVFdXHz58ODAwsLu7m4WFxdHRcd++fbKysrgPBAAAAPzbQQAD4wQEMLw0NzdXVVXV1dXV19fX1NTU19djn9fW1mKfNDY2DuORLWxuioeHh0wmYzNUnJyc2AwVQoiLi4tEImVmZn769KmjowMhpKCgYGhoKCwsjF3Oy8uLxQY6nd7c3Ix9saen5/Pnz9jn2Azb58+fe3p6mpqasD9qb2/v6ekZeP0g8fPz6+rqTpw4Uea/5OTkxMXFB59b/P39t23bRqPRXFxcqFTqSASewSssLDx16tSFCxfa2toQQkpKSm5ubo6OjhMmTMB9rPLy8qNHj2IxjEwmr127dv/+/ZKSkrgPBAAAAPx7QQAD4wQEsEHq6+urqampqKioqqoqLy+vra2trq6urq6ura2trKysra0dTLji4OAQEBDg5+fHPg58ws3NzcPDg0038fDwYJ9jXxxke+3t7SdOnDh+/HhrayuRSHRwcDhw4IC0tDRjN43a2tqampqam5v/9rGhoaGqqqq2tha7/e/M1JHJZCkpKRkZGXl5eUVFRSUlJSUlJUVFRQ4Ojq++/s6dO6tWrerq6lq8ePG1a9fY2dkZvAUGtbW1Xb9+/cSJEzk5OQghHh6eNWvWbN++XUZGBvexCgsLvby8rl271t/fz8HBsWXLFgqFMpClAQAAgJ8cBDAwTkAA+1JnZ2dJSUlFRUV5eXlpaWlFRUXlf9XU1Hz/0F4uLi5JSUkREREhISERERFhYWEhISFhYWFhYWHsi4KCgiMdJxoaGo4ePern59fV1cXKyrpmzZpDhw6Nwm/wnZ2dCQkJGzduzMvLI5PJJiYmPDw8paWlpaWl1dXV//x3g0AgyMjIYHls8uTJqqqqGhoaIiIi2J++ePFi8eLFLS0txsbGd+/e5eXlHen+f6i/v//u3btUKjUuLg4hRCaTbW1td+zYMW3aNNzHysrK8vT0vHXrFp1O5+bm3r59+2+//cbNzY37QAAAAMC/CwQwME78hAGsr6+voqKirKysuLi4tLS0rKxsIG41NDR86yoikSgqKiouLi4hISEpKSkmJob9p4iIiLi4uJiY2LemdEZfaWnpH3/8ceHChf7+fn5+fgqF4urqOgrtdXV1bd269cKFCwihtWvXnjlzhoODo7u7u6ysrLS0tLCwMDc3Nzc3Nycnp7CwsKen52+Xi4mJaWhoaGpqamhosLGxubm5VVVVqaurR0ZGjsR00/AkJiaePHny1q1bvb29CCEzM7MdO3aYm5sP++G3b0lJSdm7d+/Dhw8RQsLCwnv27Nm0aRMbGxu+owAAAAD/IhDAwDgxjgNYV1dXcXFxcXFxyX+VlpaWlJRUVlZ+a992dnZ2aWlpSUlJaWlpaWlpcXFxaWlpMTExKSkpUVFRFhaWUb4FRnz8+JFCocTExCCEpKWlDxw44ODgMApPVV25cmXz5s2fP39WUVG5deuWqqrqP1/T19dXXFycl5eXk5OTk5OTlpaWlpb2t6OlWVhYWFhYurq6+Pj4goKClixZQiKRRrr5Qaqurj537pyfnx/2mNyUKVO2bt3q4OCA+wzn+/fvf//995cvXyKEpKWl9+7du379+rHzPgAAAACjCQIYGCfGQQDr7u4uLi4uKioqKirC4hb28VvnUxGJRHFxcTk5ORkZGWlpaWy7CCkpKSkpqfH3vM2TJ088PDywM441NDSOHDkyd+7ckR40OzsbO9uKm5v7/Pnzy5YtG8xVRUVFqf+VkpJSUFDw5ZpPdnZ2PT09XV1dXV1dHR2dsbBBRVtb28WLF48fP15WVoYQEhMTc3Z2dnNz+/72/cMQExOza9cu7JuooqLi7e1tY2OD+5wbAAAAMMZBAAPjxL8ogNFotIqKisLCwqL/r7Ky8qt/M1lZWbGN+GRlZbGPsrKyMjIykpKSZDJ59PtnFhqNdv369X379mGHhpmZmR09enTq1KkjOmh7e/vGjRtv3LiBEHJycjp16hS2bePgff78OTU19e3bt6dPny4uLv7bn8rKyhoZGRkZGRkaGsrLy+PV9jD09PRcu3bt+PHj6enpCCEeHp4tW7a4u7uLioriOAr2Tdy/f39hYSFCSE9P78iRI7Nnz8ZxCAAAAGCMgwAGxomxGcBaW1sL/6uoqAj7pKSkpLu7+58vJpPJ0tLS8v+FxS15eXlxcXGYJRjQ29t76dKlvXv31tXVEQgEGxsbX1/fkY4uQUFBLi4uPT092traYWFhwxtu4IgwhJCOjg4fH19CQsKXW+TLyMgMhLGJEyfi1v0Qm4yOjj527Njz588RQuzs7GvXrt25cye+73BPT8/58+cPHTqEze4uWrTo8OHDysrKOA4BAAAAjFkQwMA4wdwANjCpVVhYWFBQMBC66urqvvp6MTGxiRMnTpw4Uf4LUlJS8FTMIDU1Nfn6+g5sk7hp0yZvb28+Pr6RGzEhIcHOzq6kpERQUDAkJMTS0nJ4dS5fvuzk5NTb22tjYxMcHJyfn//y5cuXL1/GxsbW19cPvExGRsbc3NzCwsLMzIwp2yd++vTpxIkT2FbyRCLR0tLSy8tLS0sLxyE+f/584sSJo0ePtrW1sbCwbNiwwcvLC98JNwAAAGAMggAGxolRC2BdXV0DKWvgY1FR0VcntTg4OCb+l7y8/MDnY2enwX+14uLiPXv2XL9+nU6nCwoK7tu3b/PmzUNdIjh4jY2NDg4OkZGRBALh999/P3DgwPAC87Nnz5YuXdrS0qKvr3///n0hISGEEJ1OT09Px8LY69evB8IYCwvLzJkzLSwsLCwsNDU1R3kutKCgwN/fHztYGSFkZmbm5eU1c+ZMHIeor68/duzYyZMne3p6JkyYsHXr1t27dw/+4DgAAADgX+fnDGCIDsadX375BSG0cOHCER3lzz///NZvwGJiYvr6+qtXr/b09AwODo6Nja2oqBjRZgDmw4cPxsbG2Hdh0qRJ2MFTI4RGo1GpVOzROwMDg2F/iz99+oRtv6GsrFxQUPDPUZKTkw8fPmxoaPjlY37i4uJr164NDw9vb29n+FaGoKSkxNXVlZOTE2vD0NAwJiYG3yFycnJsbW2xHy4hISEqldrb24vvEAAAAMAYgeWuK1euMLuRUQUBbBwanQB28OBBVlZWRUVFCwuLLVu2HD9+/O7du6mpqaP8CzH4p4cPH6qoqGAJYdasWfHx8SM31qtXryQkJBBCwsLCjx8/Hl6RsrIyDQ0NLG+8efPmWy9raWm5ffv2xo0bpaWlB5IYBwfHwoULL1++3NDQMNybGLLa2tq9e/cObI04Y8aMyMhIfIeIjY3V09PD6qupqQ37vQUAAADGMghgYJwYnQAGxrLe3t7AwEDsISICgWBra/vPySW81NbWmpubI4RIJJKnp2d/f/8wirS1tVlbWyOE2NjYQkJCfvj6tLS0I0eO6OvrDxyDxsLCYmZmdubMmVGbbm1ra6NSqeLi4lgDGhoawcHBw7v9r6LRaGFhYQoKClh9Kyur7OxsvIoDAAAAYwEEMDBOQAADmLa2Nk9PT+wpO1ZWVldX1+bm5pEYiEaj+fj4YFnIxMSkurp6GEX6+vooFAqWGCkUyiCTTGVlZUBAwJw5cwYWKBKJxBkzZlCp1KqqqmG0MVTt7e1UKnXgEDN1dfXg4OC+vj686vf09FCpVGz3ETKZ7OTkVFtbi1dxAAAAgLkggIFxAgIY+FJxcfHKlSuxZ4qEhYUDAgJG6Jmix48fY8deS0lJxcXFDa9IYGAgCwsLQsjW1rajo2PwFzY2NoaEhCxevHhgWxcSiWRubn758uWWlpbhNTN4nZ2dp06dGlgbqaysHBoaiuNsWH19vaurK7bTiYCAgI+PT3d3N17FAQAAAGaBAAbGCQhg4J8SEhIGDvlVV1cfoWeKysrKsI0ByWTysWPHaDTaMIo8fvwYm/DR09MbxmTa58+fw8LCFi1axMbGht0vOzu7ra3t3bt3u7q6htHP4HV3dwcFBQ0cXKaiooJtXo9X/czMzHnz5mHFJ0+eHBERgVdlAAAAgCkggIFxAgIY+JZbt24NPFM0f/78rKws3Ifo7e3duXMnNuG2YMGCxsbGYRRJS0uTlZVFCMnLy2dkZAyvk6ampr/++svY2HjgOTF+fv6NGze+fft2eAUHqbe39+LFiwMxTFVV9caNGzjGsHv37ikqKmLFra2tR+7pPgAAAGCkQQAD4wQEMPAdXz5TxMLCMkLPFEVERAgICCCEpKWlhxd4qqqqdHR0EEJ8fHxPnjxhpJny8vLjx49jPxcDoejYsWM1NTWMlP2+np6e4ODgSZMmDYyI47Nh3d3dx44dw76J7Ozs+/bt+/z5My6VAQAAgNEEAQyMExDAwA9hzxRhT1vx8/P7+PjgvjyvtLRUX18fi3k+Pj7DWI7Y0dFhY2ODVfD392e8paysrF27domJiWGhiJWVdcmSJQ8fPsRxz4y/6enpCQoKwmbzEEJTpky5ffv28FZm/lNVVZWTkxM2vycpKRkcHIxLWQAAAGDUQAAD4wQEMDBIqampZmZmA/tGPHr0CN/6vb29FAoFW464cOHCYSxH/HJ/xQ0bNuCy80Rvb+/9+/cXLFiA5U8svezZs6eoqIjx4l/V3d197tw5GRkZbDhtbe3o6Gi8iicmJurq6mKVjY2N09PT8aoMAAAAjDQIYGCcgAAGhuTBgweTJ0/GfoO3tLTE/bCp+/fvY2cWy8rKvn//fhgVwsLCODk5EUIzZ87Ecd1gZWWlj4+PkpLSwP711tbWUVFROD6v9aXu7u6zZ89i51YjhGbPnh0bG4tL5f7+/uDgYGwLSjKZ7OrqOgobPwIAAACM+zkDGBEBAH5u1tbWaWlpVCqVj4/v0aNHU6ZMcXNza2lpwav+ggULPnz4oKWlVVJSYmRkdPbs2aFWsLW1jYuLk5GRiYuLmzFjRnp6Oi6NiYuLUyiU7Ozs169fOzg4sLKyRkREzJs3b/LkycePH29sbMRllAGsrKybN28uKirCzsiOjY2dPXv2nDlzPnz4wGBlIpHo4OCQlZXl5OTU39/v7++vqqp6+/ZtXNoGAAAAAM6YnQAB/mAGDAxPQ0PDwGFTgoKCVCoVx4ejurq6tmzZgv2zY2trO4wpmsrKSmytHRcX17179/BqbEBTUxOVSpWXl8eaZGNjw4If7gPR6fS2tjYfHx8+Pj5sLMCgta4AACAASURBVDMzs0+fPuFS+csVifPnzx+5dZUAAAAA437OGTAIYOMQBDDAiI8fPxoYGGC/wU+bNu3Vq1c4Fr9z5w6WOoa3HLGrq8vBwQEhRCAQPD09cWxsQH9/PzYPNrB5va6u7vXr10fi9Or6+vpdu3ZhqytJJNLatWtLS0sZL0uj0YKDgwUFBRFCHBwcnp6ecGozAACAsQkCGBgnIIABBtFotBs3bmCbRhAIhBUrVpSXl+NVvKioCNtfno2NjUqlDqO3P/74A0tH9vb2nZ2deDX2N/n5+Tt27MA200cIycjIHDlypKmpCfeBKisrf/31V1ZWVoQQOzv7zp07h3d42t9UV1fb29tjO6AoKSk9e/aM8ZoAAAAAviCAgXECAhjAxefPn728vLD5GS4uLh8fH7wmUrq6ulxdXbFgs3jx4mGkmrt373JxcSGEpk+fXlZWhktXX9XR0REYGKiiooJ1y8XF5erqmp+fj/tAJSUlTk5O2PpPbm5uT0/Pjo4Oxsu+ePFCWVkZC9L29vZ1dXWM1wQAAADwAgEMjBMQwACOysvL7e3tsfgxadKkhw8f4lV5YDminJxcfHz8UC9PTU2dOHEiQkhISOj58+d4dfUtsbGxVlZW2IQSkUi0srJ6+vQp7qOkp6fb2tpi77akpGRgYCDjSx87Ozv37dvHxsaGEBIREbl69SourQIAAACM+zkDGOyCCAD4HklJyZCQkBcvXkyZMiU/P9/KymrOnDnZ2dmMV168eHFCQsLUqVOLi4sNDQ3PnTs3pMunTJmSmJg4Z86c+vp6c3NzX19fxlv6jlmzZkVERKSkpKxdu5ZMJj98+HDOnDl6enp3796l0Wh4jaKmphYWFvb06VMtLa2KigpnZ2dNTc379+8zUpOdnf3AgQOfPn0yMjKqra1dtWqVlZVVWVkZXj0DAAAAYEgggAEAfszIyOjjx49UKpWXlzcmJkZTU9PNza2trY3BsoqKiu/evdu0aVNXV9fmzZuXL1/e2to6+MsFBASioqIoFEpfX5+Hh4ezs3NPTw+DLX3flClTLl68WFJSsn//fmFh4fj4+CVLlqirq1++fBnHoc3MzBITE2/cuDFp0qTMzMxFixYZGRkxuFu9srLy8+fPL168yM/PHxkZqa6uHhAQQKfT8eoZAAAAAIPF7Ck4gD9YgghGTnV19Zo1a7CVeNLS0rdu3cKl7I0bN3h4eBBCkyZNSkpKGurl169fx55V09fXr6qqwqWlH+rq6goODlZUVMT+LRUTE/P09GxubsZxiJ6eHn9/fyEhIYQQgUBYvXp1SUkJgzWrq6sHVjnOnDkzKysLl1YBAACAYYAliAAA8AOioqKXLl16+/attrZ2WVmZjY2NhYVFXl4eg2WXLVuWkpKiq6ubn5+vr6/v5+c3pMuXL18eFxcnJyeHNRYfH89gP4PBxsbm4OCQnZ394MEDLS2t6upqb29vGRkZDw+PhoYGXIYgk8kuLi5FRUWenp5sbGyhoaGKiooMHpMtKioaFhb24MEDKSmpuLi4adOmeXl5jfTMIQAAAAAGQAADAAyZnp5eQkJCcHCwsLDw48eP1dTU3Nzc2tvbGakpJyf36tUrV1fX7u5ud3d3bHfEwV8+derU9+/fz549u6KiwsjIKDg4mJFmBo9IJFpbWycmJj548EBfX7+1tdXX11dWVnbnzp01NTW4DMHFxeXl5ZWbm+vk5NTX1+fv76+goODr68tIarK2tk5NTV27dm13d7e3t7eenl5ycjIu3QIAAADg+yCAAQCGg0AgYPM/rq6u/f39/v7+KioqISEhjNRkY2Pz8/O7e/cuPz//vXv3pk2b9v79+8FfLioq+uzZs82bN3d1da1Zs2bLli2jNrFDIBCsra3j4uJevXplaWnZ0dFx7NixiRMnbtu2rbKyEpchpKWlAwMD3717N2vWrIaGBg8Pj6lTpz569GjYBfn5+S9evPjkyRN5efnk5GRdXV0vL6/e3l5cugUAAADAt+AZwPq7mquLc7ILyuvbe+HJbgB+BgICAn5+fgkJCTo6OuXl5Y6OjmZmZgzukbho0aIPHz5oa2uXlJQYGhr6+/vTB71XBJlMPnv27JUrVzg5OQMCAvT19UtKShhpZqgMDAwiIyM/ffpkb2/f1dVFpVLl5eUdHBwKCgpwqa+joxMbG3vr1q1JkyZlZWXNnz/f0tKSkTfczMwsLS3N3d29v7/f29tbV1c3LS0Nl1YBAAAA8HUMPD/W31aa9Oiy7/bVc6cry4nysZMI/y1KIJAnCEpO0jRcusUr4Pab3IYevJ5ZA4MAm3CA0dfX13f69GnsXC92dnYvL6/Ozk5GCmKHNWO7fSxcuLChoWFIlycnJ8vLyyOEhISEYmJiGOlk2NLS0uzt7bGzlclksr29fV5eHl7Fu7u7jx8/jr3hZDLZzc2tsbGRkYJv375VUlLCqlEolJ4e+GcbAADAiPs5N+EYTgDrrU+57bvBTFmQlfC1SPdPBBZuWb1ley69KWPoFzIwSBDAALPU1NQ4OjpiqUlRUZHxo4oHDmuWkZF5+/btkK6tr6+fO3cuQoiFhcXHx4dGozHYzPCkp6evWLFiIIZt2LChuLgYr+INDQ2urq5YcQEBASqVysjBzR0dHRQKhUgkIoR0dHQyMzPx6hMAAAD4KghgP9TflHH/qJOJ/ATi/+a6iOzCSnpzl6xc4+SyfbfXn8f9/E/6Hty7y33z+tV2VoYaUtws/0tpBFZR7eX7rryv7B6p2wF0OgQwwGyvX79WU1PDfupXrFhRWVnJSLWSkhJ9fX0sR3l6evb39w/+WhqN5uPjgyWKhQsXtrS0MNIJI7Kzsx0cHFhYWBBCrKysmzdvLi8vx6t4ZmamhYUF9oYrKys/evSIkWqxsbEKCgrYTKaPj09fXx9efQIAAAB/AwHse3pr3gU46YpgaYrAwq88Z90evyuP4vMafhCm+trKUp6HnzvkskRbnB3LYkRuFds/HhV2MNw8+DoIYIDpent7qVQqNzc3QoiXl5dKpTLye3xvb6+npyeWo0xNTYd60ldERAQ2jTZ58mTmzurk5eUNLEpkZ2d3c3PD8dSy27dvT5w4EYthixYtKiwsHHaplpaW9evXY6VmzZpVUFCAV5MAAADAlyCAfUtH/p2dBqIsBERgFZpitfVoWHzFsJYS9jZmRp37fcVMGU4CQkSeKY6BSU3MWRM0zkEAA2NEeXn5wJm/2JaGjFR7+vSpqKgoQkhEROTx48dDujY7O1tVVRVLg7dv32akDcZlZWUNxDBOTk5XV1e8YlhXV9fhw4ex3MvBweHl5dXRMfz/1RUZGSkhIYEQ4ubmvnDhAi4dAgAAAF+CAPYNXeG27AQSv8byQ/dz2vAITN0VsQFbDCTZCOQZR/OGsJoIDBIEMDCm3Lt3T0ZGBiFEIpG2bt3KyDrAsrKy2bNnY6U8PT2HNKvW1tZmZ2eHECIQCNu3b2fkWSlcpKamLlmyBHtejouLa/fu3QzuojGgsrJy9erVWGV5efn79+8Pu1RjY+OKFSuwCL1kyZL6+npcOgQAAAAwEMC+oScuYP+Vj/V4PwbQnh95/NiDcghg+IMABsaa9vb2nTt3kslkhJCkpCQjc1C9vb179uzBliOamJgM9QGzwMBAVlZWbGVdRUXFsNvAy8ePH62srLCEw8/Pf/jw4c+fP+NSOSEhYfr06VhlU1NTRtZehoWFCQgIIIRERUUfPnyIS3sAAAAAHQIYGDcggIGxKTU1dcaMGVgkWLBgQWlp6bBLfbkcMSoqakjXJiYmysnJIYSEhYWHupRxhLx//97MzAx7Z8TFxc+cOYPLLvD9/f3BwcFCQkLYBoyurq6tra3DK1VSUmJkZITNHzo5OeGVEgEA4P/Yu/O4mvL3AeDPuUv7vkeSLK1Ki0plqeyTXfYsX2TGkhkz3IwhDWNuYhSGKTN+UpiphkSKCKVSUVqUiJRSUtr3u/z+ODONGdS5t9RNz/uvedV5Pudz7szc23M/n8/zoH6ufyZg3dmIGSGEOjBy5MiEhITAwEAlJaWIiAh9fX1vb28ulyvEUGT74GnTppWXl0+fPn3z5s2tra0UYy0tLVNTU6dMmfL69evp06fv3r2bx+MJMYduZG1tHRMTc+fOnbFjx5aWlm7YsGHYsGEBAQHCvTjtaDTa8uXLHz58+L///Y/L5R4+fNjIyOj8+fNCDKWtrR0bG+vr6ysmJhYQEGBpaZment6VuSGEEEL9Vk8kYPzyq57LfrzT1gO3QgiJNIIgyJTA1dW1sbHRw8ODTIeEGEpVVTUyMtLX15fBYBw+fJgs1kcxVkVFJSoqis1m8/l8Ly+vmTNnvnnzRog5dC87O7u4uLiYmBhTU9OioqJ169aZmJiEhoby+fyuDKumpvbbb78lJiZaWlq+ePFi3rx5zs7OBQUFgo5DEMTmzZuTkpIMDAxyc3PHjBlz4MCBXs9dEUIIoT5HkASMV5114dC2FTOd7EabW4xxmvP5vtAHFZx/XcJvqXyWmXw7JjoyIvzPkLOBAX4/fLNsrMXsPX+ml+HHNEIIAAA0NDROnz59+fLlwYMHP3jwwNbWdvPmzfX19YKOQ6YECQkJurq6qamp5ubmv//+O/VYFosVGRmprKwcGRlpYWEhXB7Y7SZOnHj//v1Tp07p6Ojk5OQsWLDA3t4+ISGhi8NaW1snJycfP35cUVExMjLSyMho37591JcN25mZmd2/f3/jxo2tra1bt26dOnVqWVlZF+eGEEII9S8UtyryXt/cNV7trabKAABA0FSd2Mk1PD6fz6tJO+FmryVJEO+9jYRLaPPH20iJ/gXPgKG+oq6u7ssvvyQLsuvq6l67dk24caqrqxcuXEi+2bi6ugp0QqmwsNDKygoAxMTE/Pz8hJvAx9DS0nL48GHyqBsAzJ49u1uamFVWVrq5uZE1EocPHy70ax4ZGammpgYA6urq0dHRXZ8YQgihfqh/ngGjloC1PTk2WfEDi2U0tTmni9uKg+aqdbCaRsgsPo8JWE/BBAz1LampqWZmZgBAEMTKlSsrKyuFG+fIkSPi4uIAYGpqmpubSz2wpaVl06ZN5JvV3Llzq6qqhJvAx1BfX89ms+Xk5ACARqO5urp2S/HG27dvGxkZkY/s4uJSVlYmxCCvXr2aOnUq+S/O3d29paWl6xNDCCHUr2AC9kG1l1ZqkNkVIanj9PkP/ucuRIT/8ZvPlzP0ZGkA9AGz17sMpgMAEGJqIyctXLNpy9ZtW7/ZsuXrbTv3+hz5LTQ2uxw/mHsOJmCoz2lra/P19ZWWliZXVAIDA4UbJy0tbcSIEQAgLS198uRJgWLDw8MVFRUBQFtbOykpSbgJfCSvX79msVhkeiklJcVisaqrq7s4ZktLy969eyUlJQFAUVHxl19+4XIF7gvC4/F8fX3JBgOWlpZPnjzp4qwQQgj1K5iAfUj9haWKBAAQkqO+uVX5ditmXs3dnVZSf206JJi6i0/lYm3i3ocJGOqjnj592l6Nffr06YWFhUIMUldX5+rqSg6yePFigfo+P3/+3MbGBgCYTCabzebxuqP1fPfJy8ubN28euXtQVVXVz8+v64tOT58+nTZtGvly2dvbC7fLMSUlZejQoQAgKysbHBzcxSkhhBDqPzAB+4C2e98aMgCApvG/yLp3flt3aaU6DQCAprwwpFK0/lrprzABQ30Xj8cLDAxUVlYGADk5OV9fXyGWZfh8fkhIiLy8PAAMHjw4ISGBemBzc7O7uzuZ5MyaNevNmzdC3P2jSkpKGjduHJkyDRs2LCwsrOtjhoaGDhgwAADExcU9PT2bmwXeMl5TU7N48eL2Y3h1de9+WiCEEEL/1T8TMApVEHnlZeU8AGCa2VtLv/NbaZux5kwAAKaZw1jF91fg6Ms49RUlBXnZGen3791Pz3qU/7zkdT2n8zCEkFDIOvVZWVnz5s2rra398ssvJ0yYkJeXJ+g4Li4uDx48sLGxKSwsHD9+PPVmX+Li4n5+fufPn1dUVLx48aKZmdndu3cFf46PyMbG5vbt2xEREQYGBvn5+fPnz7e3t09OTu7KmPPnz8/JyXF3d29ra/Py8jI2No6NjRVoBDk5ubNnz/r7+0tKSgYFBVlbW+fk5HRlSgghhNCnikICxm+ob+ADEOLKyjLvJliErJqaFAEAhIKSwieSfzWV3A35aevyaTZ6GjKScqpauvojR5lbjrY0NzEYPkRLXU5aYZChzfQV24+cT37R2KUGPQih99HU1AwLCzt//vyAAQPi4+NHjRq1f/9+Dkew7z50dHTi4uI8PT15PJ6Xl9eUKVNKS0spxs6ePTs1NdXCwqKwsHDChAmHDx/md60ZV7ebMWNGdnZ2YGCghoZGQkKCjY3NjBkznj17JvSA8vLyfn5+cXFxhoaG+fn5EydOXL58uaDt0dzc3FJTU42MjHJycqysrIKCgoSeD0IIIfTJ6nyRrDnURQIACKWVl9932qAleo0aDT6RQvPcirvH3cZoiFHNJAmmquUK3/gyTm9P/F9wCyL6ZFRVVa1evZrcEDh69OjMzEwhBrl06ZKKigoAaGpqXr9+nXpgc3Pzxo0byf/ZZ86cKXR5xo+qvr7e09OTrKUhJibm7u7exSqOra2tbDabLPihoaEhREGUxsbGNWvWkK+boF0BEEII9Su4BbG/a316duWY8esDkspaya+6CbqU8iA9M9sJE6dMnzF7zuyZn02d5GBnYaijJsMkUzR+2+t7gV85Ws33f9jUm1NH6BOloKDw66+/3rp1a9iwYeSSlIeHh6Dtg52dnR88eDBhwoTS0tLJkydv3769ra2NSqC4uPiRI0fCw8OVlJQiIiJMTU3j4+OFeo6PSFpaevfu3Y8ePVq2bBmHwzl8+PDw4cOPHj0q6IJhOyaTyWKx0tPT7e3ty8rKVqxYMXfuXIG6LUtKSp44cSIwMFBKSiooKGj06NG4HREhhBD6R+c5Wj9ZAWtM3mEqTgAAEOIDxizfffJqelHth1a2uI1lD2//cXDTdD05GgAAITZi4/VqUSlBgitg6NPT0NDAYrFoNBoAjBw5MiUlRdAROByOl5cXg8EAABsbm2fPnlGPLSoqsre3BwA6ne7p6cnhiNaid7t79+6NHz+efG83MDCIiorqymhcLvf48eNkLRMlJSUhlsJycnIMDQ0BQFZW9ty5c12ZDEIIoU9S/1wBwwSMxC382UmKACDoA2f63auinEo1F1zcZCZNABDi1t6PROSPMkzA0Kfqzp07enp6AMBgMFgsVlNTk6Aj3L17V1dXFwDk5OQEKpje1tbm6elJZoAODg7d0g35IwkPDx8+fDiZhk2dOlW4yvLtXr58OXv27PbRBO0NUFtbu2jRIjLczc1NiPqKCCGEPmH9MwHDLYgAAMB7Ef7HnSY+0Aet/i3I3YJ6NRFxnZmH/thjL0nwW9IuXCrgfsxJItTv2dnZpaWlbdmyhc/ne3t7m5ubC1r9z9raOi0tbdGiRbW1tcuWLVu+fHl9fT2VQAaDsXv37uvXr2tqat68eXPUqFFXrlwR6iE+ulmzZj18+NDf319FRSU6OtrExGTdunXl5eXCjaapqXnhwoWQkBBytJEjR/r5+VEsKQl/r30dPXpUXFw8ICDA3t6+sLBQuJkghBBCnwZMwAAAgJPz4GEbH2hq010c5ASMpQ+d52LFBOA+yXmMCRhCH5mUlNTBgwfv3LljaGiYm5trZ2fn4eHR3NxMfQR5eflz584FBgZKS0sHBQVZWlqmp6dTjHVwcEhPT580adLr16+dnZ1ZLBbF42Q9jMlkurm55eXlubu7A0BAQIC+vr63t3dLS4twA7q4uGRnZ8+fP7+9N8Djx4+ph2/YsOHOnTu6urr37t2zsLC4evWqcNNACCGEPgGYgAEAAL+lpZUPQMjIvqfSfmdocgpyNAB+a0uraNWpRuiTZWNj8+DBA09PTwDw9vYeOXKkoOUxli9ffu/ePVNT07y8vDFjxnh7e1Nc1VFXV4+Ojt63bx+dTt+/f7+dnV1+fr4wz/DxKSkp+fn5PXjwYMqUKVVVVR4eHqamppGRkcKNpq6uHhoaGhISoq6uHh8fb25ufvjwYepLYZaWlvfv33d2dq6srJw+ffqePXv4IlbZHyGEEOoZAiRg1WcXqSu+S33+6Qo+ALRcXKnxnl//RXPVRSG/eO0RdK3BWnQAXvH9tFKqf060a8pIzW4DoKlrqmM+i1BPYTKZu3fvTkhIIPsROzg4eHh4CLTCo6+vn5SUtH79+paWFg8Pj5kzZ75+/ZpKII1G2759e2JiIlmb0dzcPCAgQNjn+OiMjIyio6MjIyP19fXz8vKcnZ0/++wzIXpbk1xcXB4+fLh06dKGhobNmzc7ODhQbz6moKAQERHBZrMJgti1a5ezs7OgfcYQQgihT0Hnx8T+KsLRNaJeoqMlYctQOgDQtRf/XiRILQ1ebbLXGDkCgKa24lL9R5ufQLAIB+pXmpqaWCwWnU4HAENDw+TkZEFHuHDhgpKSEgBoampeu3aNemBNTc3SpUvJNzkXF5cuNuD62FpbWw8dOqSgoAAAYmJi33zzTU1NjdCjRUREaGhoAICMjMzx48d5PAHKwN68eVNdXR0AtLW1hShoiRBC6JPRP4twYAL2F06e7wQ5AgAIsYFOW08nv+x8upyq3Ms+S4zlaABAiI3ckSIqT4gJGOqHkpKS9PX1AYDBYGzfvl3QantkizAAIAjC3d29peV9NV8/IDAwUEZGBgAGDx6ckJAg4MR7WmVlpbu7O5mvKisr+/r6Cl1Vv6qqys3NjXyPnzRpUlFREfXYFy9e2NjYAICEhMSJEyeEmwBCCKG+rn8mYAS/8134PE5rG7eLe/UJOlOMIdob9NryAuY6rI8s5fIBgGAqDbOyt7c2M9AdrKWpIi8tISHG4Lc1NzfVV5YVvyh4nJGaeOdudlkjjw8ANAX7769F7xgt3dvPQLKwsEhLS5s1a1Z4eHhvzwWhntPc3Lxz585Dhw5xuVxjY+PAwEDyywiK+Hz+4cOHt27d2tbWZmFhcfbs2REjRlCMLSgoWLJkyd27dxkMxo4dO3bt2kUWrBdZ6enpmzdvJg/OmZub+/n5kY3OhBAWFvbFF19UVFTIycn5+Pi0p2Sdamlp2bZt2+HDhwHA1dXV399fUlJSuDkghBDqo1xdXYODg4OCgshMrL/o7QxQpDTmBK42VaAJVIeDJmu49Nh9kWnCzOfjChjq3xITE8nEiTwk1traKlB4SkrKsGHDAEBSUtLX15d6YEtLy5YtWwiCAICJEyeKcqMwEo/HO3v2rJaWFgAQBOHq6vry5Uvhhnr16tWcOXPIt8Rp06YVFxdTjz158qSEhAQAWFtbv3jxQrgJIIQQ6qP65woYJmD/1fYq+fSuZeOGyjM6zsMIhtwQu8XfnkwoEWCrUs/ABAz1c+SpMHINysTEJD09XaDwmpqa9u/h5s2b9+bNG+qxUVFR5OkmFRWVixcvCjjxXlBfX//dd9+RKZCcnNzBgwcFTVnbBQYGkgfMlJWVQ0JCqAempaUNGTIEANTV1ePi4oS7O0IIob6ofyZgVLYg9k9t1QWZ99Ky8p4WlryqrKpvauUAU1JaRkZGXlV7mJ6evrGpsY4Cs7dn+V64BREhAEhMTFyxYkV+fj6Tyfz222937txJHnyiKDAwcNOmTXV1dTo6OmfOnLG1taUY+OrVq5UrV0ZHRwPA559//tNPP4n+zrqCgoKvvvrq4sWLAGBoaHjkyBFHR0chxikuLl6zZg3Z5svV1fXIkSPy8vJUAt+8ebN48eJr164xGIy9e/eyWCwh7o4QQqjP6Z9bEDEBE10nT548duyYEIG5ubmNjY2Ojo43btzo9lkh1Ic0NjZu3779yJEjfD7fxsbm1KlTenp61MOfPHmyZMmSe/fuMRiMnTt37tixg2IKx+fzT5w48dVXXzU2Nurr6589e9bMzEzYh+g5N27ccHd3z8nJAQBnZ+ejR48OHjxY0EH4fL6/v//XX3/d2Ng4ePDg06dPjxs3jkogl8vds2fP999/z+fzlyxZcuLECSkpKYGfASGEUJ+CCdgH8KufPXhaJXB3rH+jKQ4dpasgeJPj/mzp0qVnz54VOnz06NEpKSndOB+E+qjo6Og1a9aUlJRISUl5e3tv2LCBPKlFBYfD2bt37969e7lcrrW19ZkzZ4YOHUox9uHDh0uWLMnMzCSX4ES/MgcAtLW1HTt2bOfOnXV1dVJSUlu3bt2+fbu4uLig4xQUFLi6uiYkJBAEsWnTpv3791McJCIiYvny5TU1NaNGjTp//jy5NREhhNCnChOwD2gJW6DgEtrctftIuIRWh8wX+EO8l3Cqn2VkPC6ppasOGaE3TFtJosM/1jiVz3KL63hAU9AxHizffUlmS0tLdna2EIHLli179OgRbkFEqF1VVZW7u3twcDAATJw48eTJk4MGDaIefvPmzeXLlxcXF8vJyf3888/UPySam5tZLBa5BDdx4sTAwMABAwYI8wA968WLF19//XVoaCgAjBgx4vDhw1OmTBF0EA6Hc/DgwZ07d7a1tRkbGwcHB5uamlIJzMvLmzNnTm5urrKy8rlz5yZNmiTwAyCEEOoj+mcChn3A/q0+L3z3fFMVsfY0iqArGs/f+XvGG+6HQnglxxzFROoZsQgHQu91/vx5VVVVAFBQUBD0vG91dfWiRYvItwVBey5HRESQ91VTU7t06ZKAs+41169fNzQ0JB95/vz5wpUoTE5OHj58OABISEiw2Wwu94NvpW+rqqr67LPPAIDBYBw4cECI+yKEEOoT+mcRDgr7YQgFHdNRXWWqI/r7D3mvrm11tJ67OyyjorV9WZDPrcoO27N4zNjPw5639ebsEEJdNWfOnOzs7Dlz5lRXV7u6us6fP7+iooJirLy8/Llz58iey6GhoWZmZgkJCRRjZ8yYkZGRMXnyWRZoNgAAIABJREFU5PLy8pkzZ65fv76xsVHYh+g5Tk5ODx488PHxkZGRCQsLMzAwOHDgQFubYG+EVlZWaWlpa9asaW5u9vDwmDJlysuXLzuNUlBQiIiI2LlzJ5fL/eabb5YsWdInXjGEEEKIkt7OAEVG2+Njk5XIfJSgy+mMnrzQbePny2ZYDZIkM0eCqbM87OV7vrzFFTCE+pqQkBBFRUUAUFNTCw8PFyg2NzeXrKjBZDJ/+OEHDodDMZDH4x08eJA8CmVgYJCWlib4xHtHSUmJq6sr+ZGhp6cXExMjxCDh4eHkMqCqqmpERAT1KFlZWQAYNWpUQUGBEPdFCCEkyvrnChgmYCReVbirBg0ACKb2rEN3K/75k6q5OPaHKZoMAgBoGvOCi99JwTABQ6gPKiwsdHBwIJMKQbcUtrS0fP3112Qlj3Hjxj1//px6bHZ2NnkUisFgeHp6Us/fet2NGzf09fXh767NZWVlgo5QVlY2depUcoSNGzc2NTVRicrLyzMwMAAAZWVl4XI/hBBCIqt/JmCiXpKrp9RdO3PxFQ8IsZFf/3HmS2vlf0pNiw90+PZi7E8TlWjAK7uwZfPvpV0sCIkQEgHa2trXr18/dOiQpKRkaGioubl5XFwcxVgxMbEDBw7ExMQMHDgwLi7OxMSELO9BhZGR0d27d1ksFo/H8/LymjRpUnFxsbAP0aMcHR3T09N3794tLi4eFBRkYGBw/PhxHk+AN0R1dfUrV674+vqKiYkdPXrUwsIiMzOz06gRI0YkJyfPnj27srJy6tSp3t7eXXgIhBBCqPdhAgYAAG3ZKWkNfCAkHTdttpZ+59fi+ht+PfCZCg145eE7f7hZ1wszRAh1NxqN9uWXX96/f9/S0rKgoMDBwWHbtm0tLS0Uw52cnLKzsxctWlRbW+vq6rpgwYKqqioqgWQ5iujo6AEDBty8edPY2PjMmTNdeI6eIyEh4enpmZ2dPW3atKqqqvXr19va2mZkZFAfgSCIzZs3379/39jYOCcnx9ra2s/Pj99ZMV5ZWdnz58+z2Ww+n+/h4YFHwhBCCPVpQiVg/LamhhbuOz9uKrx+zGPN/Mk2ZuZ2kxds2h96v5zT5Qn2DF5leQUPgD7E0lzlvcVCaNrLD3w3VoYAbsFv3x7NxnIcCH0qDAwMEhMTySZdPj4+VlZWVJZlSAoKCv+pzBEfH08xdtKkSenp6TNmzKipqVm2bNmqVavq6vrGlztDhw69cuXKn3/+OXDgwOTkZEtLy61btzY0NFAfwcjIKCUlxd3dvbm5+csvv5w7d25lZWXHIQRBsFis8PBwOTm5c+fO2dnZPX/+vEuPgRBCCPUWQfYr8qozz26fa6YpRafrfnWn9e1fccuitlgq/DudI+gq1hv+eCwa56I61nxxmRwBwND3SGn74EVNKTtMxAgAmvLM/3vxz1EwPAOG0CchJSVFT08PAJhMpqCns549e2ZrawsAdDqdxWK1trZ2HsPn8/l8Ho93/PhxKSkpANDV1U1ISBBq7r2joaGBxWLR6XQAGDhwYFhYmKAjhISEKCgoAICWltatW7eohGRmZpK9sNXU1G7fvi34rBFCCImQ/nkGjHoCVp/5y7wh4n8tD/0nAePkH5us+N7FNIKps+hMgcifMm+7u3U4HYCQmvTLu1U22vGqr34+hA4ANPW3qnFgAobQp6KxsZHFYtFoNAAYM2bMkydPqMe2trZ6eHiQsTY2Nvn5+dRjc3NzLSwsyPyN7Fws+Nx7TXp6upWVFfmO7+zsXFRUJFD48+fP7e3tyWf38vKi0iissrJy8uTJZKpMNrlGCCHUR2EC1gFu6Z+ugxl/1WOnyw40nuGb2f4XAq/64gpNGgAAwdB02h58Mz3r7qUTXq4WSjQCAGgqswI7yGpEQ23YIgUCgGAabomr4X3wMt6r0CWaNACgqX32S14L+TNMwBD6pFy7dm3gwIEAICsr6+/vL1DsrVu3Bg0aRMaePHmSemBbW5unpye5mjR69Oi8vDwBZ92buFyuv7+/nJwcAEhLS7PZbIHWDzkczs6dO8nc1cnJqbS0lErItm3byEKUK1asoFhQESGEkKjBBOzDaq+uG0wHAIIxcOqe6IKGf2UovMqzc+UJACAkLLzS30pBGjMOOCjSAIAxcme6qH+hW3NppSYNAAi65qQ9N15+cLrckt8XDqQDACE2zDUorwETMIQ+QZWVlQsWLCBXdWbPnl1eXk49tqqqavHixWTsvHnzKioqqMcmJSWR++skJSV9fX15vA9/HSR6ioqKZs2aRT64jY1NVlaWQOGxsbGampoAoKqqGh0dTSXk4sWLZNaHXcIQQqiPwgTsQ3ivAmfKEQCEuNnOlIZ3ft1w0VWZBgB0rTVXav/9q9a070YyAIBh+O09Uc/AOE/9pyr/tY2SkNIaPWPll9/9+PO1d7dP8iqvfz1KhgAAIKRHfLZ5/09rTJmYgCH06QkODiZPKKmrq1+6dEmg2PZez+rq6pGRkdQDa2pq3NzcyLeiqVOnvnz5UsBZ97Lw8HByDVBMTGzXrl3NzQK8LZaXl0+ZMgUACIJwd3enshXz0aNHZHcy7BKGEEJ9ESZgH1ITulCBAKApLvjjzbtfx7YmfD2UDgC0AW7XGv/7y7Zklh4DgBCf5F8q8t/k8l7H7rBTpr9VBZFQcI143x8PvMo4r/Eq/z30hgkYQp+coqIiR0dH8n9xNze3uro66rGFhYXjx48n0wk3N7eGhne/v/qg33//nczfNDQ0BMrfRMHbxTmGDRsWGxtLPZbH47HZbDJ2/PjxJSUlnYbU1NTMnj2bPEVGlqpHCCHUV/TPBIxCGXpOfkZ2PR8IsTHTnBTeqdHOLbgTX8QFoClNdLaV/O9vGSMMRzAI4HPyH+WLfEl6QsVhb2z61QP/G6sjQ39vMfr2K5XG7oq8FbhpvJZEh9chhPq4QYMGXb9+3d/fX0pKKiAgwMTEhHqheW1t7Zs3b/r6+jKZzICAgNGjRz948IBi7MKFCzMzMx0dHcvKypydndevX9+HOl9JSUmx2ey4uDhDQ8P8/HwnJ6d169bV1tZSiSXLzd+4cWPAgAG3b98eNWpUVFRUxyFycnJvdwlbvHixQDXxEUIIoR5GIQHjlZWU8QBoGiOGyb2TbvDfJNzO4gAQ4lYTbKTeDZZUVJQAAH5tdW0nnTZFg9ggpy2/xT17XZqXeiMiNPjYX7sL30PaaNnhW/kF9y/98v3m5bMcrExGaCtJ9OhcEUI9gVy/Sk1NNTc3J/s1e3h4tLa2UozdvHlzYmKivr5+Tk6OjY3NwYMHeTwelVgtLa2YmBgfHx8xMbHjx4+bm5unpqZ27VF6lK2t7YMHD9hstpiYWEBAgIGBwYULFyjGjh8/Pj09ffLkya9fv3Z2dt61axeX+27vyX+QaVtYWJisrOzvv/9ub2//7Nmz7ngIhBBC6CPofJGs+fxiaQKAYfxd2rv78RsurVChAQDTip33vqJXzRGu8gQAIb34vGhsz+sPcAsiQh9Da2tre6FCExOTzMxM6rENDQ1ffPEFWbXPwcGhsLCQemx2dvaoUaMAgMFgCNRkTERkZWVZW1uTnziLFy+mXtGEy+Xu3buXfMEnTpxIJTAnJ4ds5qaoqBgREdG1iSOEEProcAviBxAysrIEAL+hofGdRay2zLjEKh4AfZCd/RD6e4Kbq2ta+ACEtIw0btZDCPVlTCZz9+7dt27dGjJkSGZmprW19dGjR/l8Sov7UlJSx44du3Tpkrq6+s2bN01NTc+ePUvxvkZGRklJSSwWi8fjeXt7jx079smTJ114jp5mbGyckJDg6+srIyNz7tw5Y2PjsLAwKoE0Gm3Hjh1kdcTr16+bmZklJiZ2HGJgYJCcnDxr1qyqqqpZs2bt2LGj46UzhBBCqOdRSMDo6gPUaQC80txHVf/5S4P76Nq151wAmrzt+FHv26vHyXuYxwEA+kDtge/LzxBCqG+xt7fPyMhYtWpVU1PTpk2bpk2b9vLlS4qxn332WVZW1uzZs6urq5cuXbpgwYLKykoqgRISEmw2+9q1a1paWsnJyRYWFgEBAV14iJ5Gp9M3b96clZXl5ORUXl7u4uKycOHC169fU4kdN27cgwcPHB0dS0pKxo8f7+3t3XHSKy8vf+HCBV9fXwaDsW/fPicnp7Kysm56DoQQQqgbUEnARow2U6ABvyXh/OWyf33scXLDw3PaAAgxy3HW7zkABty8azHPOAA0hVHmupiAIYQ+CWST5fPnz6uqql69etXExCQ0NJRirKqq6oULFwIDA2VlZUNDQ42Nja9cuUIx1snJKTMzc8GCBXV1devWrSObjAn7EL1AR0cnJibG399fVlY2JCTE2NiY4uumpqZ29epVFovF5XI9PDzmzp1bU1PTwfXk0bvr169ramrevn3b0tKy06UzhBBCqOdQ2adYE+6qRgMgGENWhpdy//4p71XIIg0aAADTiv3oPQfAuC9/XziABgA05SV/VnfXpknUKTwDhlDPePXq1cyZM8n3UhcXlzdv3lCPLSgoGDt2LAhVpD4oKEheXh4ANDU1r1y5IvjEe9nz588nTpzY/rpRPxV28eJFsjPbiBEjqJzBe/XqFdlFgMFgYIV6hBASQf3zDBilBIzfnPytsRgBAITksM+2/BR8JfZqyMGVpnI0AABCbPSPue/kX4354V9Zy9MAgGCM+PpOU7fPHH0QJmAI9aTAwEAZGRkA0NbWFqjnFYfD2bNnD5PJBABjY+P09HTqsc+fP29vMrZ+/XqB8jdRwOPxyKUwAFBVVQ0JCaEY+PjxYxMTEwCQlpYODg7u9Pq2tjYWi0WWPyE3f3Zt4gghhLoTJmAdqbvzrdn7y2jQByz7s/yfJsvN+ddP//zDpukj/rqaYOqujawQ+SbMnxRMwBDqYc+ePbO3tyfTIXd39+ZmAaq+pqam6uvrA4CYmNiPP/7I4byvoOz78Hg8X19fcXFxANDV1b1z545Qc+9NBQUFTk5O5GfJwoULKysrqUQ1NDSsWLGCjHJ3d6dSFjIkJIRM9gwMDLKysro8cYQQQt0DE7COccuu7XAYIPavJIygKdrsuFn5VnrFKwuYLP7P75laM37ObPwI80YdwAQMoZ7X1ta2e/duBoMBACYmJhkZGdRjGxoaNm7cSK7S2NnZPX36lHpsXy9Sz+Pxjh8/TmZHAwcOvHbtGsVAf39/Mvm0t7d/+fJlp9fn5uYaGRkBgKSkpL+/f9dmjRBCqHtgAtY5bnXulV++W7do5mRHp2kua3f+evvFf77nbU/ACKayyULv2JJ3W4ehjw0TMIR6S3Jy8ogRIwBAXFx8//79XC6385i/xcTEaGlpAYCUlJSvry+PR3XrQFNTE4vFotFoAGBlZfX48WOh5t6b3t5R6ebmVl9fTyXq/v37Ojo65CZGKps/m5qa3N3dye8H586dK9CZPYQQQh8DJmDdoiHjz59/OfVnbMbLRtx32EswAUOoFzU2NranQ2PGjHny5An12Orqajc3NzJDmDJlSklJCfXY69evk/mbjIzMiRMnBJ94L+Nyue07Kg0MDO7du0cl6vXr15MmTRKozEZYWBhZyWPw4MGJiYldmzVCCKEuwQQMfSIwAUOo1127dm3gwIEAICcnJ+iGt5CQEGVlZXJh5/z589QD37x5s2jRIjJ/mzlz5qtXrwScde/LysoyNTUlEypPT08qJ+I4HE57mY0lS5ZQqUdSUFBgY2PTfheBFioRQgh1o/6ZgFHoA4YQQkhAkyZNys7OXrZsWW1t7bp166ZPn15aWkox1sXFJSMjY/Lkya9fv547d+6qVas6bnvVTlFR8dy5c2fPnlVQUIiIiDAxMbl06VIXHqIXGBsb3717l8Vi8Xg8Ly8vOzu7J0+edBxCp9PZbHZ4eLi8vPzZs2dtbW2fPn3acYiOjk5cXBzZWMzLy2v27NkUO2IjhBBCXUchAeNXV1RyPsa9+fUVlc0fY2CEEOp9CgoKQUFBISEhSkpKUVFRo0aNunjxIsXYgQMHRkdHHzlyREpK6tSpUyYmJrGxsRRjFy9enJubO23aNLJN2fLly+vr64V9iF4gISHBZrOvXbumpaWVnJxsbm4eGBjYadTMmTMTExP19PQyMjKsrKyioqI6vp7JZLLZ7AsXLigpKV26dMnMzCwuLq6bngAhhBDqCIUErPX6RkOTeZ5hD2t43XbbpsLrvqvHGMz9v+LuGxMhhESPi4vLgwcPHB0dy8vLZ8+evXbt2rq6OiqBBEFs3LgxKyvL3t6+qKho4sSJ69ata2hooBKroaERGRnp7+8vJSUVFBRkYmISHx/ftefoaU5OTpmZmYsXL66vr1+5cuXy5cs7fd0MDQ1TUlJmz5795s0bZ2fnH374gc/ndxwya9as9PR0Ozu7Fy9eODo6bt++vbW1tfseAiGEEHqfzncptt33tlOhEwRDdfQKdti9UgH627xnsDc5UUc3OWpLEkDIGG26gh3CPgI8A4aQqOHxeIcOHZKQkAAAXV3duLg46rFtbW1sNltMTIyMjY+Ppx778OFDMzMz+LtIfUtLi+Bz72Xtfa51dHSSkpI6vZ7H47HZbDqdDgDOzs5VVVWdhrS1te3atYtsIWBubp6Tk9MdE0cIIdS5/nkGjFoRjtYXV7+fMVSKAACCqWw07fMfzyYU1gtyarm5LD3cb8u80QMkyEE07DefzaFUZxgJDBMwhERTTk6OpaUlCNWvOTMz8+1+X9RTqdbWVk9PTzIhGT169KNHj4Sae2969OgR+ezi4uIUC/RHRUUpKioCwPDhw7Ozs6ncJTk5efjw4fD3HkiszIEQQj0AE7BOND678uNSS/W/WzETYoq6o6cu2bT78JmohAePnpW8rmn6q1wVt6WusvT546zk66G/7Pt65Uw7fTVJGhlG0OX1nLedyajGla+PBxMwhEQWuZzFZDIBwMjI6P79+9RjyX5fZCo1cuTIBw8eUI9NTEwcOnQoAEhKSgrUZExENDc3u7u7k6UOZ86cWVFR0WlIYWGhhYUFAMjIyISGhlK5S0NDQ3ujsEmTJgnUBgAhhJAQMAGjpOlF/MntLmaqTOLd7YwEjSklJy8jTn/v7+RGTNnoF/moBr9U/NgwAUNIxCUnJ+vp6QEAk8mkWGy9XVxcnK6uLrlQ4+PjQ32hpqampr3J2OTJk4uLi4Wae28KDw9XUlICAC0trdu3b3d6fVNT04oVK8glRxaLRfF1Pn/+vIqKCgCoqKhcuHChy7NGCCH0QZiACaKxMCHk8I61M210Fd6Xiv2TdkkPGDXZ9ev9gTGPqjHz6iGYgCEk+t7u12xtbZ2Xl0c9tra2du3ateRyEFmonXpsWFgY2WRMQUHh7Nmzgk+8lz1//tzW1pbcirl3714qS3n+/v7kkuPUqVMrKyup3OXly5dTp04lP8dWr15dU1PT5YkjhBB6j/6ZgBH8zopEdYZTU3A/6V5eUWlZWVlZ2avXtVwpZXUNDQ0NDU2tYaY2Vgaq4l27ARKUhYVFWlrarFmzwsPDe3suCKGOxMTE/O9//ysuLpaWlvbx8fn888/JtIqKq1evrlmzpri4WFJS0tPTc+vWrWQ616lXr16tWbPm8uXLAODi4uLv708el+orOByOp6cnm83m8XifffZZUFBQp/OPjY1dtGjR69evhw4d+ueff5K9njvG5/N//vnnbdu2NTU1aWtrnzhxYvLkyd30BAghhP7i6uoaHBwcFBREZmL9RW9ngKj74QoYQn1IVVXV0qVLyTfkSZMmFRUVUY+trq5u31Vob2+fn59PMZDH4/n7+0tLSwPA4MGDb926JdTce9PVq1fJjYK6urppaWmdXl9YWEhWQJGSkgoODqZ4l5ycHCsrKwAgCGLt2rW4FIYQQt2rf66AUfq6FCGE0EeioKAQHBwcFhamqqoaExNjbGwcEBBAMVZeXt7f3//y5cuampp37twxNzcPCAjgU9jXQBCEm5vbvXv3LCwsCgsLnZyc+lwLrMmTJ6enp9vY2Dx79szW1vbEiRMdX6+trX3nzp21a9c2NjYuW7Zs3bp1VJ7XwMAgKSnJ19dXXFz8xIkT+vr65MohQgghJDRMwBBCqPfNmzcvOzt7zpw5tbW169atmz59+suXLynGfvbZZxkZGfPmzWuPLSkpoRKor6+flJS0Y8cOAGCz2TY2Njk5OcI/Q4/T0tK6desWWdDfzc1t+fLlTU1NHVwvLi4eEBAQGBgoKSkZEBDg6OhYWlra6V1oNNrmzZvv379vZWVVWlo6Y8aMBQsWVFVVdd9zIIQQ6l8wAUMIIZGgpqZ2/vz5kJAQJSWlqKgoY2Pj4OBgirGqqqphYWHkaajo6GhTU9Nz585RCWQymXv37o2Lixs6dGh6erqFhYWfnx+VNTQRIS4u7ufnFxQUJCUlFRQUZGdnV1BQ0HHI8uXL79y5o6Ojk5CQYGpqevPmTSo3MjQ0TExMZLPZ4uLioaGhZmZmMTEx3fEECCGE+h2hinBwn8cG3yjgUBidoNEZYuLSsgoqmtpD9YZryTGFmCMSEBbhQKhPKysrW7t2bXuRjOPHj5N1C6koKSlZu3ZtVFQUAMydO/f48eNqampUApuamjw8PI4cOcLn852cnE6dOqWlpSX0I/Q8cg3w6dOnysrKwcHB7TUMP6SiomLJkiUxMTFkNUUWi0XxRjk5OStXrkxNTSUIYvXq1fv37+9bJUwQQkikYBEOyppDXSQEvxNBkx5oOXvLiaRyATreICFgEQ6E+joej3fs2DGySMaAAQMuXbokUDi5jAYAioqKp0+fph4YFRWlqakJAPLy8gIFioKqqqoZM2YAAI1Go1Khvq2t7ZtvviHLTrq6ujY0NFC8UVtb248//iguLg4AGhoaf/zxR5fnjhBC/VT/LMLRgwnY33kYQ9V+583Kzlu3IGFhAobQpyE/P9/e3p5861y5cmVVVRX12JcvX5LZCAC4uLi8fv2aYmB5efmsWbPaAyk2zhIRPB5v7969ZDl+FxeX+vr6TkNCQkJkZGQAwMTE5PHjx9Tv9eTJEycnJ/KFmj59+vPnz7swcYQQ6qf6ZwIm1Bkw8ZknSyrK7h+frcUgAICQ0LSYsfqbPYeO/xoYHHTS//CPHuvmWGtJ0QggpPQW7Pk18KT/YfZ37ssmGamIEXzO6zs/zF9+spAndA6HEEL9wdChQ+Pi4sh68adOnTIwMIiIiKAYq6mpGRERERgYKCsrGxoaamRkdP78eSqBqqqq4eHhAQEBMjIyoaGho0aNio2N7cJD9CiCIHbs2BEZGamgoBAaGmpra9vpkTAXF5fk5GQ9Pb3MzExLS0uKrxIADBs2LCYmJjAwUFlZ+cqVK4aGht7e3lwut8sPgRBC6FMnZOLWmLLLQpIAQkxnls+tkpb3XNFWduenuUPECLrGlENpf30JyavNCV5tJEUA0HU23KC62wMJCFfAEPrEPH36dNy4ceSbtouLy5s3b6jHFhQUODo6krFLly6lvqKVn58/ZswYAKDRaF999VVTU5NQc+8djx8/NjQ0BABlZeXr1693en1dXd3ChQvJV8nNza2l5X0fax9QVlbm6upKxpqZmaWmpnZh4ggh1L/0zxUw4RIwbr7vOEkCCBl7n+yOPqVacw6OkyUI5vBNsbXtP8vwMhMjgK696ZYAH3BIAJiAIfTp4XK5/v7+UlJSAKCpqSnQqTAej3f06FHyRJmGhkZ4eDjFQA6Hs2fPHiaTCQDGxsbp6elCzb131NbWknspGQwGm82mEuLv7y8mJgYAo0ePFnRL4aVLl7S1tQGAyWSyWCzqJ8oQQqg/wwSMMs5jHxsxAgjFhSHVnVxa8+cSZRoQ0tN+Lf371Bcne685E0BsjM8TrjB3R53BBAyhT9XDhw+trKwAgCCIdevW1dbWdh7zt/z8/PZltKVLl1ZUVFAMzMzMNDExIVMLT09PDqfPFFLi8Xienp5kmY1ly5ZRWcRLTU3V0dEBABUVlatXrwp0u7q6Ond3dzqdDgCDBw8+f/68sBNHCKH+on8mYEKdAeM+y3vG4QNd20BPupNLpfUMB9OB33TvbkbbXz+iDxo8iA7ArSivwL3yCCEkAENDw4SEhH379omJifn7+48cOfLatWsUY4cOHXrr1i1/f38ZGZkzZ84YGRn9+eefVAJHjhyZnJzMYrG4XK6Xl9fYsWPz8/O78BA9hyCI3bt3nzt3TkpKKjg42MnJqaysrOMQS0vL1NTUKVOmVFRUTJ8+fffu3Twe1RPLMjIyfn5+iYmJFhYWhYWFc+fOnT59el95rRBCCPUYoRIwfmtLCx+AX1dT11kTMV5dTR0PgM9p47Rf+tenWd/p9IkQQiKDwWBs37793r17lpaWhYWFU6dOXbNmTU1NDZVYgiDc3NyysrIcHR1fvXo1f/78BQsWVFRUdBooISHBZrOvXr2qpaWVlJRkbm4eEBDQ5UfpIQsXLoyPj9fW1k5MTBw9enRaWlrH16uoqFy5cmXXrl18Pt/Ly2vmzJlUXqJ2VlZWKSkpgYGBKioqUVFRhoaGmzdvrq+v79pDIIQQ+nQIlYAxRhjpMQC4RVcvpTV3eGVrVmR0AReAoTtCl/HXz9pys3LbAOiaWhp0Ye6OEEL9nrGxcVJSkq+vr6Sk5G+//aavr0+98bqOjs7169fJpTCyQCLFpbCJEydmZGQsWLCgrq5u3bp1c+fOFSgz6UXm5uapqan29vbFxcXjxo3r9HlpNJqXl1dkZKSysnJkZKSZmVlcXBz129FotOXLl+fl5bm7u3O53MOHDxsYGJw+fbprD4EQQuhTIdTGRc7jA7biBAAhZeoeVfqh4wDcV9e/tpAmAAgJa+/cv65qe3ZyljoNgKHvkdIm1M1RZ/AMGEL9R35+/vjx48n3c4H6ffH5/KdPnzo4OJCxixYtKi8vpxgYFBQkLy8PABoaGpcvXxZq4r2gpaVl1apVAEAQBIsJ7/35AAAgAElEQVTF6rRTM5/PLyoqIlux0el0Ly8vIc6/JSYmmpmZkS+ys7Nzfn6+UHNHCKFPU/88AyZsGfq6uC2GYgQAEEx1m/+xf4/Pe930d0kNXlPFk4RQHzd7TfIKcaOt8XV8Pq/qXuC3S0erMQgAQsrWJ7fPnOPuazABQ6hf4fF45HIWAKirq4eFhQkU+/PPP5Oxqqqqf/zxB8XAwsJCMnkjy4FQaXksInx9fck6GQsWLKBSq5DD4Xh6epIhEyZMKC4uFvSOHA7nyJEjCgoKACAuLr5t27aamhqh5o4QQp8aTMAE0/To5AIdMaJ9KY1gSMqraGhqqMhLMt76qfjQpcFPW/l8Pp+Ts8+SCQAANKVx+9P7UkeZPgYTMIT6oSdPnrQXOVy0aNGrV6+oxz579szJyYmMnTNnTmlpKZUoMvEjK+MPGTIkLi5O2Ln3tKioKHIFz8zMrKioiEpIbGzsgAEDAEBFRUW4Rb+ysrJVq1bRaDQyTw4ICOhD9SQRQugjwQRMYJzyxMPLzZWZ/+RbbyNosnrzfe68/nthjJOzz5JJiKtbr/01vbrzjR9IaJiAIdQ/cbncI0eOkMtZKioqAn2e8Xi8wMBARUVFAFBQUPD396cY+PDhQ/I9h06ns1gsgVoY96KsrKwhQ4YAwIABAyi2Ti4vL58+fTq56Ofu7i7ck96/f789TzYwMLhy5YoQgyCE0CcDEzDh8BoK488cYK2Z42hjZjh8yJDhRmY2TvPWfXfkQkbFv77c49U+uZuYW943Ppv7NEzAEOrPCgoKJk+eTP6JP23atMLCQuqxL1++JJsXA8DUqVMprg61tra2b9IbOXJkRkaGsHPvURUVFRMmTAAACQmJM2fOUAnhcrlsNpvBYACAtbX1s2fPhLt1RESErq4u+TpPnDjx4cOHwo2DEEJ9HSZg6D3a6l4XP3uU9SDtXuq9tMzcJwXF5XWiXjwEEzCEUEhIiIqKCgBISUmx2WyBdruFhIQoKysDgJycnL+/P5ViFXw+Pz4+nkwqJCUl/fz8KEb1rrfLcuzdu5finBMTEwcPHgwAsrKyv/32m3C3bmpq2rdvn6ysLACIiYl98803b968EW4ohBDquzABQ39pLE764+A3rlOtR6hLM97ZX0kQYvJaBtbTlnsc/vNuUYMI/omBCRhCiM/nl5WVubq6km9ctra2Ai2zvL0UNnHiRIpLPbW1tatXryajnJycKC6g9TofHx/yaNbixYubmigdUH7z5s2CBQvIJ509ezb1ApL/UVpaunr1avLuioqKbDabSl0QhBD6ZGAC1hWtbwoyU+7EXr1yJeb23fQn5U0imJdQwK24e9xtjIbY+0+1veecG1PVcoVvfJloHaTGBAwh1O7ChQtk9QhxcfE9e/a0trZSjz179iy5jCYtLe3r68vlcjuP4fMvXryopqZGniU7ffq0sBPvUUKU5eDz+SEhIUpKSgCgpqYWHh4u9N3T0tImTpxIfqwMHDgwICCgrU3Ut1oghFC3wARMCLyanIiDX0wbqSFFeztnIQhxFYOJbj4Xc2v6UCLWkn/Gdbj4W89B0KWUB+mZ2U6YOGX6jNlzZs/8bOokBzsLQx01mbcLjxBM7dm/ZDf29vT/gQkYQuhtVVVVa9euJQiCPKOVlJREPfbNmzdubm7km92YMWMoLqOVl5fPmTOHjJo3b55A3cl6ixBlOfh8fmlp6bRp08gndXV1raurE3oCMTExlpaW5FB6enohISF9YhsnQgh1BSZgAuJVJh6YpSvR0WIRITl0zqHkqj7xCdKYvMOUzL4I8QFjlu8+eTW9qPaDPaYbyx7e/uPgpul6cjQAAEJsxMbrIlPaERMwhNC7YmNjhw0bBgA0Gm3jxo0CtaKKjIwcNGgQADCZTOqlDkNCQsiyil1cIOoxQpTl4P+7HL+Ojk5XyvHzeLyQkJDhw4eTn6GjR4++ceOG0KMhhJDowwRMIE0ZBx2UaH+vFMkNsXF23bB1x+493+/ycF81236Ywt+Hp2iqkw9nN3fnnD8GbuHPTlIEAEEfONPvHvWUsbng4iYzaQKAELf2fiQiOxExAUMIvVdTU5Onp6eYmBgAaGpqhoaGUo+trq52d3cnTyuNHDkyJSWFSlR7v2Zygai2tlbYufeQt8tysFgs6mtQ2dnZZmZmAECn03fs2NHcLPznXmtr67FjxzQ1NcnXbdKkSX2oxxpCCAkEEzABcJ74jpcmAIAQGzzd69KTuv9+RPHqn17Z66wjTgAAIef08zNKJwd6Dfe53zhxAoCu7RYtwJfCfD6fz+c8/mmsJAHAtPF5IhoZGCZgCKEOZGZmjhkzhvzj3tnZWaBSGTdu3Bg6dCgAMBgMFovV2Nj57msul3vw4EEJCQkA0NXV7RO5hK+vL1lVf8GCBdSrYrS0tGzfvp0MNDQ0TEhI6Moc6uvr9+7dS55MA4AJEybExsZ2ZUCEEBJBmIBR13Z32wgGANBUZ5x4+uED3a1Pf52hRgMAhv72VJE+UNxyZZUyDYCm+XmM4H3KuIWHx4sB0JRXRYpGkzNMwBBCHSN3zcnJyQGAvLy8r68v9Tr1DQ0NW7ZsIdOM4cOH37p1i0pUdnY2+dZEo9G+/vprisUGe9GlS5fIGvHW1tYlJSXUA+/cuaOnp0c+6YYNG7q46FdbW8tms8lSHwBga2sbERHRlQERQkik9M8EjNbBCa4P4j6JjS3gADDNvvRepcv84HVM3ZX7v7JgEsB5ev36U64wt+oh/JaWVj4AISMrQ7UA4j9ocgpyNAB+a0sr/yPMDSGEuhtBEG5ubg8fPpw1a1ZNTc2XX345bty4rKwsKrFSUlIHDx5MTEwcOXLkkydPHBwc3NzcqqurO44yMjJKTk4muxgfPHjQ3Nw8NTW1Ox7lY3F2dk5MTBwyZEhycrKlpWVSUhLFQDs7u6ysLPJJf/75Zz09vfPnzws9DVlZWRaLVVhY6Ovrq66unpiYOHPmTDMzM3L7qNDDIoQQ6kXCJWDFhcVcAPpgB4dh9A6vpA9zdNSlA3BfPH8hygkYXWuwFh2AV3w/rZQnaHBTRmp2GwBNXVNdqJcTIYR6hZaWVnh4+J9//jlgwIDExEQLC4tt27Y1NDRQibWyskpLS2Oz2eLi4idOnDAwMAgLC+s4hNy1mJqaampqmpuba2tr6+Hh0dra2h2P8lEYGxunpqZOnDixtLTUwcHh119/pRhIliq5f/++tbV1aWnpvHnzZsyYUVJSIvRMZGRkNm/enJ+f7+3traam9uDBgwULFlhaWp49e1aUX0CEEELvJVTGwG9qaOQD0KRlZTqL/2tN6a8IkcUwcZ42mA78ptveHqECpYr8uhSf7YHPuUBTtptg8uHVQIQQEk1z5859/PgxWXDCx8dHT0+v01SKRCZUWVlZDg4OZWVlLi4uM2bMKC4u7jjKxMTk7t27LBaLz+d7e3tbWlo+ePCgO57jo1BWVo6OjiYLP65du3bdunXUEx5jY+PExER/f39ZWdnLly8bGxsHBAR0ZdlKRkZm27ZtBQUFP/30k6amZlpa2tKlS3V0dL7//vuysjKhh0UIIdTThNm32Br/1RA6AE3ZNbyzjicNl1aq0gDoul/dEaD5Zy/g5PlOkCPLigx02no6+WXnBaw4VbmXfZYYy9EAgBAbuSNFVGo94hkwhJAQ0tLSrKysyI8GZ2fn58+fUwzk8XiBgYHkOSXyRBmVls0JCQlkvXUmk+np6Un9EFqvOHPmjKSkJADY29uXlZUJFFtQUDBlyhTyhXVwcMjIyOj6fJqamk6cOGFiYkIOKyYmtmzZsuTk5K6PjBBCPal/ngETKgHjVZyeJUsA0JRnny7p6FOWV3pmvioNgJCdFVQhKl2yPqT1kb+zJv2vI2AEU2m43cxVWzz3Hz159s+IyOhrN2Jjr1+9cjk8JPCXn/ayPndxNNFs7z5NU7Dfm1Lf2w/QDhMwhJBwuFxue3EOKSkpT09Pii2/+Hz+ixcvZsyYQb4pTpgwIS8vr9OQ2tpaNzc3skO0nZ3d48ePuzb9jystLU1bWxsAtLS0KFbhf9vp06dVVVUBgE6nr1u3rry8vFtmde/ePVdXVwaDQb7yFhYW/v7+ol/jBCGESJiAUccrOz1LgQAAmqqTd/IHGhDzau4dmKxGAwBCYVZgmajnX3w+n9+YE7jaVIEmUB0Omqzh0mP3RaYJM5+PCRhCqGtKSkpcXFzItzhTU9PExETqsX/88Ye6ujoASEhI7N27t7W1880PUVFRAwcOBABJSclDhw5RWT3rLeXl5e2dmk+dOiVoeFVVFYvFEhcXBwAZGRlPT8+utAt72/Pnz1kslrKyMvlvTVlZefXq1dHR0W1tIl2BGCGEMAETREual7kkAQBASAx22uh7PulJRTOZhPBaKp/eDT/sPklH4q8LzDzvi8ruvM61vUo+vWvZuKHyjI7zMIIhN8Ru8bcnE0pEo/b8WzABQwh13ZUrV3R1dQGARqOtXr369evXFAOrqqraWzaT56A6DamurnZzcyPfXMeMGfPo0aOuzf0jamlpWbNmDTnVLVu2UMkw/+Px48ft+e3w4cNDQkK6a26NjY0nTpwYNWpU+yeVsrLymjVrrl69ipkYQkg09c8EjOALeyC47enppY5rwora/o4naExJWWlmW2NdUyuv/YcMrTkBN39fNazPladoqy7IvJeWlfe0sORVZVV9UysHmJLSMjIy8qraw/T09I1NjXUURPOpLCws0tLSZs2aFR4e3ttzQQj1YU1NTfv27fPx8WlpaVFSUtq3b9/atWvJzKpT8fHxbm5ujx49Ighi7dq1Pj4+5M7GDkRHR69du7a4uFhSUtLT0/Obb74hu42JoOPHj2/evLmtrc3W1vb3338fNGiQoCPcuHHjq6++Ikv/Ozo6Hjp0qP1AV9fl5OSEhISEhobm5OSQP1FRUZkzZ46Li4u9vT15mA0hhESBq6trcHBwUFAQmYn1F13J3jhlt7znG8rT379URNDk9Obsu/ESv3UT0t69exWFQh4GGDduXG8/AULoU/DkyZNp06aRb+zm5uZJSUkUA5uamjw9PcXExABAU1OTbF3VsbeXwmxtbUV5KSw1NXXIkCEAoKysHBkZKcQIra2tfn5+ZPESBoPh6upK5eCcQLKzsz09PQ0NDds/mplMpo2NzVdffRUWFiZQg2mEEPoY+ucKWJcSMD6fz+dza/Ji/s9766o5E+2tRhkZGI0abe80a8XXP/4WnVstuhv5+4JNmzZ1JbW2tbXt7SdACH06IiIiBg8eDAAEQbi6ulLfkZiZmWljY0O+L82bN4/KH/0RERGampoAICUl5efnJ7Knwqqrq+fNm0e+Ju7u7kJsR+Tz+RUVFRs3biTTVDqdvnTp0tzc3G6falZW1q5du0aNGvWfRcUhQ4YsXbr06NGjycnJlZWV3X5fhBDqWP9MwITfgoh6QFVVlRBRZJlj3IKIEOpeDQ0Ne/bsOXToUGtrq6qqKpvNXrlyJZUdiTwe79ixY99++21dXZ28vPwPP/zwxRdfdBxIHiQLDg4GADs7u19//VVfX7/bnqT78Pn8w4cPb926ta2tbdy4cefOnRswYIAQ4xQVFR08eDAgIKC5uZlGo02fPn3Pnj1vn+bqLnV1dXfv3k1MTExMTLx7925tbe3bv1VSUho6dOiwf1NTU+v2aSCEEKl/bkHEBOwThGfAEEIfT25u7saNG2NjYwHA2tr6yJEjo0ePphJYXFy8cePGixcvkoH+/v6mpqYdh0RERHzxxRcvX76UkJD47rvvtm3bxmSK4tnb+Pj4xYsXl5SUqKqqBgUFtXf9EtSLFy8OHDjwdhr2/fffm5mZde9s23G53IcPHyYkJCQmJmZnZ+fn59fX1797mbS0tK6u7pC/tf+ztLT0R5oYQqj/6J8JWNe3ICKRg1UQEUIf27lz57S0tACARqOtWbOGeleriIgIspsWg8Fwd3evq6vr+Prq6ur2moojR44UogFXzygvL588eTIA0Ol0T0/PrlQdfPHixYYNG8hq9TQabdasWVFRUT2zD7OsrCw+Pv7//u//vvvuu0WLFllaWioqKn7o74dBgwYtWrTo559/zsrKEtltogghEYdbED+gNdrdfFNUS9fyPPFpR9IOTxXr2iCIGlwBQwj1gMbGxv3793t7ezc3NysoKOzevXvDhg3tHYE7Dvz+++8PHDjA5XIHDhx45MiROXPmdBwSHx+/du3avLw8BoOxfv36ffv2ieDyC4/H++GHH7y8vLhcrrW19alTp7qybbKkpMTb2/vXX39tamoCgCFDhri5ua1atYpss9aTqqurCwoKnj17VvBvLS3//GWgpKRkZ2c3bty4sWPHWlhYUPnPACGEAFfAPqg51EWiy7eRcAntO63A+jpcAUMI9ZgnT544OzuT7/T6+vpXr16lGJiSktK+uW7hwoWlpaUdX9/Y2MhiscgaErq6utevX+/y3D+K2NhYcolPUlLyp59+6uLSUHl5OZvNJhuyAYCYmNiCBQtiY2N5PF53TVg4PB7v4cOHv/zyy7Jly/5ThV9aWnrFihUPHz7s3RkihPoEXAH7gNZr39h+fbWrK2BTDiYemCyyK2DcxqrKutYunoYjJBTU5MW7Z0JdgitgCKEedvny5S+//PLp06cAsGjRIh8fH3KDYsc4HM7hw4d37drV0NBAsThHamrq6tWrs7KyCIJYs2aNt7d3B3vkekttbe3WrVsDAgIAwNbW9tSpU8OHD+/KgDweLyYmxt/f/9KlSxwOBwD09PTc3NzmzZtHlqbsdYWFhXFxcfHx8Xfu3MnNzQUAGo02Y8YMDw+P9hqYCCH0LlwB67+4T3zGdP1ct8is8uEKGEKo5zU3N+/du5fcGSgtLb1nz57GxkYqgc+fP29fQxs9enRaWlrH17e2tn7//ffkESk1NbXAwMBeXw56r6ioqIEDBwKAlJSUr69vt0yyuLjYy8vr7RUnU1PT7777LiUlRXRehKdPn65fv7693fOECROio6N7e1IIIRHVP1fAMAHj8/l8btFvM1WZ7+8njQkYQghRVlRUtHDhQoIgAEBHR4dK82VSe58xGo3m5uZWU1PT8fW5ubkODg7ku+/48eNzcnK6PPfuV1VV1d5XetKkSUVFRd0yLIfDuXjxoouLi5ycXPtHkKam5tq1ayMiIhoaGrrlLl1UXl7u6enZvj5pYmISGBjYldokCKFPUv9MwLAM/d/aKrKiT/vt/TEwtYLDBwBCWtfGfoS8AFmZ2NgdYd/ai0CFZNyCiBDqXSkpKe7u7snJyQAwfvx4Pz+/TivOw99VPX788cfW1lZNTU02m718+fKOQ0JDQzdt2vTq1Ssmk/nFF1/88MMPMjIy3fMM3SckJGTDhg0VFRUKCgo+Pj7/+9//qDRPo6K1tfX27dsRERGXLl0qLCwkfygpKWlvb29paWlhYWFhYaGjo9Mt9xJObW3tL7/8cujQobKyMgDQ09M7e/Ys+S0hQggBbkFEfD6f35x7ZLISDQCAoe+R0ke/qcMVMIRQr+NyuYGBgWTJPhqN5urq+urVKyqBGRkZY8aMIT+hHB0dHz161PH1ZMtmsjjH/7N35/FQ7/sfwD/fmWHsWQuhhBZLC4qIU7KkaKdU6KhUp6KdtoM247QctJxoOWinVJaUrVSyhISUKElKIfs2w8zvj++9fq5lMMY23s8/7uPeM5/l/XXuOXnN5/v5fGRkZO7cucOO8tns+/fvCxcuxB9KQ0PjxYsXbJ/izZs3R48enTFjRpt0Jy4ubmJisn///rt37+bn57N93u5oaGi4cOGCgoICQoiXlzcgIGBAygAADELDcwUMAlhb1GTnSSQIYAAAwAbl5eU7duzAb08WERHx8vKiUqld9mpubj5//rywsDBCiI+P79ixY42Njcy7JCYmtpypuHTp0s+fP7PpCdjp5s2b+PYtDMOsrKzY9UZiG8XFxffv3z948KCpqenIkSPbfOvKz88/depUCwuL/fv3+/n5vXz5sqSkpC/KaI9Gozk5OeFl2Nvbd+f/CQAAjgcBDDAYDAaDGucwhggBDAAA2OXdu3fz5s3Df/OeOHHiw4cPu9OruLh49erVLb1iYmKYt6fRaH///begoCC+zHLo0KGamhp2lM9OtbW1FAoFf0+Sj4/Pycmpy6uoe6mgoCA4OPjAgQPz5s3r7A4xUVFRLS0tGxubY8eOBQUFvXnzpr6+vo/q8ff3x8/nmDVrVpd3DwAAOB4EMMBgMBgMepmfGQ8GAQwAANgqLCxs/Pjx+G/88+bN6+axGU+fPlVRUcF7mZmZdblq9PXr11WrVuGngMjIyFy7dm3wHA/Y4uvXr9bW1i1F9udBjhUVFa9evbpx44arq+uqVas0NTVHjBjRPpIRCAR5eXkTExNHR0c/P7/s7Gw2VpiSkoJflTZ69OjExER2DQsAGIoggAEcLd17hcHsuTa+75sGuhTWQAADAAxOVCrVx8dHXFwcIUQikezt7X/+/NmdXp6enviqET8/P4VCaWrq4l/PycnJOjo6eJbQ1NSMj49n0xOwU1xc3NSpU/Ei9fT0oqKiBqqSHz9+PHv27OLFi3v27Fm0aNGECRPwt0ZbGzFihJGR0YEDB0JCQoqLi3s548+fP/FDLMlk8qVLl9jyFACAoQgCGOAQEMAAAINZWVmZg4MDiUTCN4ZRKJQut3gx/rtqhIeBKVOmvHz5knl7Op0eGBiIr7RgGGZhYVFQUMCmJ2CbpqYmHx8fCQkJ/LmmTZt2/fr1wXBWO41Gy8nJCQkJ8fDwWL58eeubx3BjxoxZvXr13bt3u3nbW4dTtN4S1p3/DwAAOA8EMMAhIIABAAa/rKwsY2Pjli1e4eHh3en14MED/Fx1AoGwYcOG0tJS5u2rqqqcnZ3xW5sFBASOHj06CDeGVVZWHj9+XFJSEv9pyMnJnT59uqqqaqDr+h/fvn27f//+vn37DAwMWt8/JiAgYGVlFRwczFoSu3TpEv53x9TUFI7lAGAYggAGOAQEMADAUBEaGjphwgT8V3kTE5OsrKwuu9TW1u7fv5+bmxs/PeLChQvNzc3Mu3z8+HHp0qX4LFJSUv/8888g/F2/sbHR39+/ZcObkJCQg4NDYWHhQNfVgebm5qysrBMnTsyYMQPfydabJJaYmIif1mhnZ9dHBQMABi0IYIBDQAADAAwhVCr19OnTIiIi+MawzZs3d+dg9Hfv3hkaGrbs8kpKSuqyy5MnT2bMmIF3UVJSunXr1iA8n4NOp4eEhOjr6+N1ksnkFStW3L59u68PS2RZfn7+iRMnpk+f3rImJigouHXr1qKiou4PkpKSgu/xc3Nz67tSAQCDEAQwwCEggAEAhpyysjInJyd8XUtAQMDFxaWhoaHLXiEhIWPGjMF3eXXzrueoqCg1NTU8KqiqqgYGBrKjfPZLSkqysLDAL5hGCPHw8Jibm1+5cqXLty4HSn5+/l9//dWSxHh5eXfs2NHN27cZDEZ4eDiJRMIw7N9//+3LMgEAgwsEMMAhIIABAIao9+/fW1hY4L/BKyoqdicd1dbWuri44PuIREREPD09uzwjsbm5OTAwEN9LhhDS1dV9/vw5m56AzQoKCk6dOjVr1iwCgYBXSyKR5s6de/bs2cH5diKDwcjKylq+fDn+aiI/P7+Tk1M3Q6Ovry9CiIuL6/Hjx31dJABgkIAABjgEBDAAwJAWERGhrKyM5405c+akp6d32eX9+/dGRkZ4Fw0NjYSEhC671NXVUSgU/NVHDMOWLFnSnYkGSnFx8YULF0xMTFofEC8lJWVsbLx7925/f/+0tLTurBn2m8zMTAsLCzyGCQgIODk5/fr1q8te+LmIgoKCr1+/7ociAQADbngGMIzBYCDAWTQ0NNLS0hYtWnT//v2BrgUAAFjR1NTk6+vr4uJSWlpKJBLt7OyOHj2KH9XAxJ07d3bu3FlYWIhhmI2Njbu7u5SUFPMu5eXlFArl7NmzdXV1GIYtWrTIxcWl5XquQaiioiIsLOzevXtRUVHV1dWtPyKRSEpKSmpqauPGjRMVFRUREcH/EycqKiooKNjP1b569crFxSUiIgIhJCIisnv37j179rS/ZKwFg8GwtbW9evWqtLR0QkICfosAAICDWVtbX7t27erVq3gSGyYggHEgCGAAAM5QUVFx+PDhs2fP0mg0ISGhgwcPOjg44G8bdqa2ttbd3f3UqVMNDQ14F0dHR3xrGRMlJSWnTp06c+ZMXV0dQsjQ0NDd3V1TU5OdD8NuDAbj8+fPGRkZWVlZGRkZmZmZubm5TU1NTLqQSCSRTkhJSU2cOHHSpEm8vLxsL/Xly5eHDh2KjY1FCGlra9+6dQvfudchGo02f/786OhoZWXl+Ph4YWFhttcDABg8IIABDgEBDADASXJzcw8cOBAUFIQQkpOTO3LkiI2NDfMuhYWFBw4cuHr1KkJISUnp77//XrBgQZcTlZSUnDt37u+//66qqkJDJIa11tjY+Pbt26ysrKKiovLy8l+/fpX/F/7f26yYtUcgEMaOHTtp0iRlZeWJEyeqqKhMmjSp9a1fvREbG2tnZ1dQUCAiIvLvv/8uWrSos5ZVVVV6enoZGRmzZ89+9OgR88gNABjSIIABDgEBDADAeWJjY3fs2JGRkYEQmjNnzunTp7t8UTA2NtbR0TErKwshZGho6O3tPWnSpC4n+vnz519//XXhwoXa2loMw8zNzZ2dnWfOnMmWpxhYTU1N5Z0oKCjIzs7Ozc2l0Witu2AYpq6ubmZmZmZmpqGh0XLrF2sqKys3bNgQFBSEYdi2bdtOnDjR2eJkUVGRtrb2169fV65ceePGjV7OCwAYtIZnAINDODgQHMIBAOBINBrt/Pnz4uLiCCEikWhvb//z50/mXahU6qlTp0aMGIEQIpPJ+/bt6+aFWj9+/Ni9ezc/Pz/+Z+Vvv/0WERExCO8NYy8qlZqdnTYv1fQAACAASURBVH3nzp2jR49aWVlNmzaNh4en5RcGKSmp9evX37t3r6amhuUp6HS6p6cnnrs0NDTy8vI6a5mWloZvWjt27BjL0wEABrnheQgHBDAOBAEMAMDBysvLd+zYgR/kICws7OnpSaPRmHcpLi7+/fff8ZPcpaSkLl++3Nzc3J25SkpK9u/f37INaerUqTdv3uzymHtOUl9fHxER8ccff7TetUUmk01MTC5cuFBVVcXasCkpKQoKCgghISGh27dvd9YsPDycQCAQCISIiAhWnwAAMKhBAAMcAgIYAIDjvX//3tTUFM8DysrKUVFRXXZJSkrS0dHBu6irq8fFxXVzrurqak9PTxkZGbyvvLy8p6dnXV1d755g6MnIyHB3d9fV1W25HlpISMjBweHDhw8sjFZZWWlpaYmPY29v39kZ+kePHkUIiYiIMFkrAwAMXRDAAIeAAAYAGCaioqJabgwzMzP7+PFjl11CQkLk5eV71AXX0NDg4+OjqKiI95WUlHR3d+/O3Vacp6SkJCAgYPbs2fiPgkAgmJqasvCKJp1O9/Lywl9H1NfX7/DNRjqdvnz5coTQ5MmTe/PqIwBgcBqeAYzA0sYxAAAAYOAZGhqmp6d7enoKCQmFhYVNmjTJ0dGR+Vl/5ubmb9++pVAorbtUVlZ2OReZTLa3t3///v3t27enTZtWXFy8b98+OTm57du35+fns++ZhgBxcXFra+snT568f//ewcGBl5c3IiLC1NR0/PjxHh4e5eXl3RwHwzAHB4f4+HgZGZlnz56Zm5vj1wC0afPvv/8qKytnZGSsX7+e3Y8CAAADYaATIGA/WAEDAAw33759s7Gxwc/Kk5GRuXnzZpddioqKbG1t8Y1hkpKSPj4+Xe4lay0yMtLExASfkUgkWlpaJiUl9eIJhrCysjIPD4+WTWJCQkL79u2rrKzs/gi5ubmjR49GCBkaGnb4bmdOTg5+ksqpU6fYVzgAYODBChgAAAAwJElJSfn7+798+XL69Olfv361srIyMDB4+/Ytky7S0tJ+fn5JSUm6urrFxcUbN26cMmVKWFhYN2c0MjJ69OgRvgTExcUVGBiopaWlqakZEBDQ3NzMjmcaMkRFRffu3fvx48fg4OA5c+ZUVVW5u7srKiqeO3euzaH2nVFUVHzy5Im0tHR0dPTixYsbGhraNBg/fnxAQACBQNi7d29kZGQfPAQAAPQfCGAAAAA4hLa2dmJi4qVLlyQkJJ48eTJt2rRdu3bhtyp3RlNT8/nz54GBgQoKCtnZ2ebm5gYGBqmpqd2ccfz48V5eXp8+fXJ2dhYREUlNTbW1tVVWVj5//nxtbS07nmnIIBKJS5YsiY2NTUpK0tfXLykp2bp1q6qq6r1797rTXUlJKTY2VlJSMjIycsmSJY2NjW0aLFy4cP/+/c3NzatWrRpu73wCADgMBDAAAACcg0AgrFu37sOHDw4ODnQ6/fTp0xMmTAgICGAwGJ11wTDMwsLi3bt3Pj4+I0eOfPLkyfTp0y0tLT99+tTNSaWkpNzd3b98+eLl5SUvL//hw4ctW7bIyso6Ozt//fqVTU82ZMyYMSMuLi4qKkpVVfXDhw9Lly7V1tZ+8eJFlx0nTJgQGRkpLi7+6NGjlStXtl89c3NzW7BgQVlZ2dKlS9vvFgMAgKECAhgAAABOIyws7OXllZKSgr9eaGtrq6Wl9erVKyZduLi47O3tP3786OLiwsPDExQUhJ/PUVFR0c1JBQQEHBwc8vLyQkJCDA0Ny8vL8Z1R5ubmL1++ZMdjDSWGhoavX7/28fGRlJRMSkrS09MzNzf/+PEj815qamrR0dFiYmL3799fuXJlU1NT608JBMK1a9cUFRXT09M3btzYl+UDAEAfggAGAACAM02dOvX58+d+fn6jRo169eqVjo6Og4MD8wMPBQQEXF1d3717t2bNmqamJm9vbwUFhRMnTtTX13dzUgKBYG5uHhUVlZycbGVlRSQSw8LCdHV1dXV1g4KChtX2MBKJZG9vn5OTs3//fl5e3rCwMFVV1dOnT9PpdCa9pkyZEh0dLSoqGhwcvGrVqjYZTFhYODg4mJ+f/9q1a+fOnevjJwAAgD4BAQwAAADHwjDM1tY2JyfH0dERIXTmzJmJEydeu3aNyRuJCKExY8ZcvXo1OTnZwMDg169fe/fuVVJS8vX1bRMGmJs+ffqNGzfy8/OdnZ1FRUVfvnxpaWmJx7nuH9TOAYSEhI4dO5aTk2Ntbd3Y2Lhr1y4jI6PCwkImXaZOnfrw4UMhIaGgoKB169a1CWxqamqXL1/GMGz79u1wIAcAYCiCAAYAAIDDjRgxwtPTMy0tbdasWcXFxdbW1nPmzGF+RiJCSENDIyYmJioqSlNTs6ioaOPGjXgMY76A08bo0aPd3d0LCwv/+eefCRMmFBQU7N27V1ZWdsuWLTk5Ob17rKFEVlY2ICAgIiJCWlo6NjZWTU3N19eXSXstLa2IiAhBQcGAgIB9+/a1+XTFihUHDhxoamqysLDIysrqy8IBAID9IIABAAAYFtTU1J49e+bv7z9q1Ki4uLipU6d2eWszQsjQ0DA5OTkkJERNTe3z58/4afVBQUE9mpqPj2/Tpk3v3r2LiooyMzOrq6s7f/78pEmTjIyMQkNDmS/HcRITE5P09PTFixdXVlZu3LjRwsKirKyss8Y6OjoPHjzg4uL666+/rl692ubTw4cPr1mzpqqqat68ecPwpBMAwJAGAQwAAMBwgWGYjY0NfnkXg8Hw9vaeOHFiQEBAl73Mzc3T0tIuXrwoIyOTlZVlaWk5e/bs+Pj4ns5uaGgYGhqalZVlb2/Py8sbHR29cOFCVVVVHx+fYXKsn4SExL179wIDA4WFhe/cuaOqqvrw4cPOGs+ZM+fChQsIIXt7+8TExNYfYRh28eJFXV3doqKiRYsWDbdD/wEAQxoEMAAAAMMLfkZiUlLSjBkzvn37Zmtra2Jikpuby7wXiURav359bm7uyZMnxcTE4uLiZs2aZWxsnJCQ0NMClJWVfXx8vnz54u7uLiMjk52dvWnTJllZ2X379g2TxRwLC4v09HR9ff3i4mIzM7ONGzd2lqDs7Oy2bNnS0NCwZMmSNjvHeHh4Hjx4oKSklJaWtmLFimF1wAkAYEiDAAYAAGA40tDQSEhIuHDhgqioaGRkpJqa2qFDh7o87ZCHh2fXrl2fPn36888/R4wYERUVpaOjY2pqmpSU1NMCxMTEnJ2dP336dPPmTW1t7V+/flEoFHl5+ZUrV7ZZ7eFIY8aMiY2NPX78OBcXl6+vr76+/o8fPzps6eXlZWpqWlxc3H6lS0xMLCIiQlxcPDw83MnJqV8KBwCA3oIABgAAYJgiEAgbN27MyclZt24dlUo9evSoiopKSEhIlx2FhITc3NwKCwspFIqwsPCjR4+0tbWNjIySk5N7WgMXF9fKlSsTEhJSUlKsra0xDLt9+/bMmTM1NTUDAgLaX0bMSYhE4r59+xISEhQVFdPS0nR1dTu8KIxIJF6/fl1JSen169e2trZttswpKCgEBweTyeRTp07BwfQAgCEBAhgAAIBhTVxc/NKlS69evZoxY0Z+fv6iRYvMzc0/ffrUZUdBQUEnJ6e8vLz9+/cLCgpGR0draWmZm5unpqayUIaGhkZAQEB+fv6+ffvExMRSU1NtbW3l5eWPHz9eWlrKwoBDhbq6elJS0syZMz9+/Kirq9vhT09ERCQ0NFRYWPju3btHjx5t86menp6fnx+GYY6OjqGhof1SNQAAsA4CGAAAAPCfNxL9/f3FxMTwK4NdXV0bGhq67CgmJnbs2LFPnz45OTkJCAiEhYVNnz59/vz5L168YKGM0aNHHz9+vLCw0NfXV0VFpaio6MCBA7KysuvXr3/z5g0LAw4JoqKiUVFRpqamP378mD179qNHj9q3mTBhwu3bt4lEoouLy+3bt9t8unLlykOHDjU3N69evZqDf1AAAM4AAQwAAABACCECgWBjY/P27VsbG5uGhgY3Nzc1NbWIiIju9BUXF6dQKJ8+fdq7dy8/P39ERISent5vv/3WYZboEi8v74YNGzIzM/Fj66lU6uXLl6dOnTpnzpx79+5x5GkT/Pz8ISEhdnZ2NTU1ixYtunnzZvs2xsbGHh4eDAbj999/T0lJafOpq6vr6tWrq6urzczMioqK+qVqAABgBQQwAAAA4P+NGjXK398/Li5OTU0tLy9v/vz5ixYt6nBvUnsSEhIeHh5FRUUUCkVUVPTZs2empqZTpkwJCAhgITW1HFufm5vr5OQkIiLy9OnTpUuXysnJubq6MrlBa4gikUiXLl1ycnKiUqmrV68+ceJE+za7du3asGFDfX39smXL2hzagWHY5cuX9fT0vn79Onfu3OLi4v4qHAAAegYCGAAAANCWnp5eWlraqVOnhISEQkJCVFVVDx482M3LpoSEhJycnD5//nzixAkpKamMjAxbW1tVVVV/f3/WDtUYN24chUIpKCjw9vZWUlL69u2bm5vbmDFjNm3alJGRwcKAgxaGYRQKxdPTE8OwvXv3Ojo60un0Nm3OnDmjq6v75cuX5cuXt/l5ksnkBw8eTJs2LScnZ+7cuT9//uzH2gEAoLsggAEAAAAdIJFIO3fuzMnJsbe3p1Kpx44dGz9+fEBAQJtT+DojKCi4e/fuT58+nT9/Xl5e/v3792vXrlVQUDhx4kRFRQUL9QgKCm7btu39+/dhYWHGxsZ1dXU+Pj5TpkzR09O7desWlUplYczBydHR0d/fn4uLy9vb+/fff29qamr9KZlMvnv3rpyc3IsXL3bu3Nmmr4iISGxsrLq6enZ2tqGhIWefXwIAGKIggAEAAACdkpSU9PHxSUpK0tbWxm9tnjNnTvfXnXh4eDZv3vzhw4eAgAAVFZXCwsK9e/fKyclt3769OwcttkcgEBYsWPD48eOcnBwnJydRUdEXL15YWVnJyck5OzsXFBSwMOYgtGbNmtDQUAEBgYCAgC1btrT5dNSoUffv3+fl5T179qyfn1+bT/GLAVRVVTMzMw0NDTnvXU0AwFAHAQwAAADogqamZnx8vK+vr4SERFxcnIaGhoODQ3l5eTe7k0gka2vrrKys58+fm5mZ1dTUeHl5KSkpmZubR0dHs1aSkpIShUL58uULvg7248cPDw8PRUXFZcuWRUZGtn9zb8gxMTGJjIzk5eX19fVtvx9s2rRpPj4+CKHNmzenpaW1+VRCQiImJkZZWfnNmzeGhoa/fv3qp6IBAKAbIIABAAAAXSMQCBs2bMjJydm2bRtC6MyZM4qKip6enj1692/WrFmhoaHp6elr167l4uIKCwszMjKaOXNmUFAQa9vD+Pn57e3t09PT8XUwAoEQHBxsYmIyZsyY/fv35+TksDDm4DFz5syrV68SCAQnJ6f25yJaW1uvX7++oaFh6dKl7Ze5Ro4cGRsbO3HixPT0dCMjo+6nZQAA6GsQwAAAAIDuEhER8fb2TktLMzAw+PXr144dO1RUVIKDg3s0yOTJk//999/8/PwDBw6IiYklJiZaWlqOHTvW1dWV5fPTdXV1b9y48eXLl6NHjyooKHz9+tXd3X3ixIk6Ojo+Pj6s7TobDJYtW0ahUBgMhp2dXUJCQptPz549O3369IKCAisrq/bnTI4aNSoqKkpBQSEtLW3BggXV1dX9VTUAADADAQwAAADoGTU1tZiYmKioKPyo+mXLlmlra8fHx/doECkpqaNHj3758uWff/6ZNGkSfrbh2LFjly1bFh0d3c2jPtoYNWrUgQMHcnNznz17ZmdnJyQklJCQsGnTJikpqVWrVj169KjNgRZDwp49e/7444+GhoaFCxfm5eW1/gg/kENCQiIqKurIkSPt+8rIyDx58kReXj4hIcHU1LSmpqa/qgYAgE5BAAMAAABYYWhomJaW5uPjM2rUqKSkJD09PUtLy54ercHHx7dp06bs7OyUlBRra2sMw4KDg42MjCZMmODh4cHaARIYhunp6V2+fPn79+9Xr16dO3culUq9efOmqanpyJEj16xZExgYWFVVxcLIA8Xb29vMzKy0tHThwoVtXiaUlZW9desWiUQ6fPjwvXv32veVlZWNjo6WkZGJj49fuHDh0HpwAABHggAGAAAAsIhEItnb23/48MHZ2ZlMJgcFBamoqDg7O7Ow40hDQyMgIKCgoODw4cMyMjK5ubnOzs5ycnK///57XFwcawtifHx8a9asiY6Ozs/PP3LkiLKycnl5+fXr11esWCEhIWFiYnL+/PnCwkIWRu5nRCLxxo0bU6ZMeffu3eLFixsbG1t/amBgcPToUfw1xTZLZLhx48bFxsZKS0s/efJk9uzZcEczAGCAMQDHUVdXRwgtWrRooAsBAIBh5PPnz6tWrcIwDCE0YsQINze3yspK1oai0Wj4Ohg+GkJo3Lhxbm5unz9/7mWRubm5J0+e1NfXJxKJ+MgYhqmrqx86dCg2Nraurq6X4/epoqIiGRkZhNDatWvbfESn0y0sLBBCampqNTU1HXbPz8+fMGECQkheXj4nJ6fv6wUAdG3NmjUIoatXrw50If0KAhgHggAGAAADJTk52cjICM82YmJi7u7uneWB7sjNzT148KCsrCw+IIFAMDAwCAgIqK2t7WWdJSUlfn5+y5Yt4+fnb/lOlkwm6+npHTp0KDo6uvdT9IXU1FQBAQGEEL7k1Vp1dbWysjJCyMrKqrPuZWVlM2fOxP/WJCQk9HGxAICuQQADHAICGAAADKz4+HgDAwM81YiLi1MolN4sLjU3N0dGRq5evZqXlxcfU0hIyM7OLioqqqmpqZel1tfXP3z4cMeOHRoaGi3LYgghbm5uXV3dAwcOPHr0qLq6upezsFFISAiRSMQw7MaNG20+ys7OFhQURAidPn26s+41NTWmpqYIIX5+/oiIiD4uFgDQBQhggENAAAMAgMEgKipKW1sbzzOjR48+d+5cY2NjbwasqKjw8fHR0dFpiUkjR47ctGlTbGxs75MYPn5oaOiuXbumT5/eOoyRSCQtLa3du3eHhoaWl5f3fqJe8vLyQgjx8fFlZ2e3+Sg4OBjDMCKRyCRc0Wi0devW4SHz+vXrfVwsAIAZCGCAQ0AAAwCAwSMsLAz/1zIewzw8PCoqKno55vv37w8ePDh+/PiWjCQpKblly5a4uLjm5ma2lF1ZWRkWFrZnzx4tLS0SidQyEYFAmDp1qqOj44MHDwZwz9jatWsRQlOmTKmvr2/zkaurK0JIUFAwKyurs+50Ot3FxQXfAufh4dHHxQIAOgUBDHAICGAAADCo0On0u3fvTp06teUFwl27dn358qX3I79+/Xrfvn0KCgotAUlaWnrr1q2RkZG9XG1rrbq6+vHjxwcOHJg1axaZTG6Zi5+ff/ny5Tdu3GD5uBGW1dTU4CdqODo6tvmITqdbWVnhh22UlJQwGcTT05NAICCEHBwc2BVcAQA9AgEMcAgIYAAAMDg9f/7czMwMP9uQi4vLwsIiOTmZLSOnpKTs3btXXl6+JR0JCgouX77cz8/v58+fbJkCV1dX9+TJE1dX1xkzZrQc0kgmkxcsWHDlypXS0lI2zsVcamoqNzc3hmEPHjxoX+SMGTMQQvr6+syD6LVr17i5uRFCS5Ys6f3KJACgpyCAAQ4BAQwAAAaztLS0VatWtbzXZ2xsHBkZSafT2TJ4cnLygQMHWlbbEEJEIlFHR8fd3T0zM5MtU7T48uWLp6dn60PtSSTS3Llzb968yZY9aV06efIkQkhCQqKoqKjNR9++fRs9ejRCaMuWLcwHefz4sbCwMEJIQUEhLS2tz4oFAHRgeAYwjMHS3Y7DE732a0Zyet630hokKC4tP1lzipwgsetu/U5DQyMtLW3RokX3798f6FoAAAB0rKCgwNPT89KlSzU1NQghRUVFOzu7tWvXSklJsWX8L1++hIeHh4SEPH36tKGhAf+LY8aMMTU1NTU1nTt3busD6Hvp58+f9+/fDw4Ojo2NpdFoCCFFRUUnJycbGxt8famPMBgMc3Pz8PDw2bNnx8TE4O8TtkhNTdXX16+rqzt37twff/zBZJwvX75YWlomJSWRyWQPDw9HR8e+qxkA0Jq1tfW1a9euXr2KJ7HhYqAT4OBAL8tNTkxMTEzO+tZ2My+DwWAw6j6Gu1trSfJgrX90GFl88pL911+XDbbXxmEFDAAAhopfv365u7vLycnhf7KQSKSFCxeGhITQaDR2TVFTUxMcHGxnZzdq1KiWP8LIZLKRkdHp06ffv3/ProkYDMavX798fHyUlJTwWUaPHn369One3ITWpR8/fkhKSiKEOjxLIzAwEMMwEokUHR3NfJz6+vqNGzfiZVtbW/dpzQAMFcx3UbLF8FwBgwDGYDAYjIYgCx6EEOLS+utD25cmmosf79EW/Z8v1f43ho1bejatij1vjrAHBDAAABhampubo6KirK2tW276kpKScnJyys3NZeMsdDo9JSXlyJEjM2fObH3K/Lhx47Zu3fr48eOGhga2TNTc3BwSEqKpqYmPLy4u7uLiUlZWxpbB23v06BGesjq8W3n//v0IIVFR0Q8fPnQ51LVr1/CFQRUVlXfv3vVBsQAMGRcvXkQIBQQE9OksEMCGsc4DWGPmqd+E/5O+MO6Rasartuz98/DhP522rDJSEefCEEIII45e5v+Jbd9V9hoEMAAAGKJ+/vx58uTJSZMm/efPHQybNWvW6dOn8/Pz2TtRaWnpjRs31qxZIyEh0ZLE8HM7/P392fK1N51ODwsLa7m1TFBQ0NnZuY9Wlnbs2IEQUlBQaH8eI51Ot7S0RAhNmDChO5eYvX37Fv/5CwgItL/rGYBhorq6Gl8zDw0N7dOJIIANY50FsOaif81FCAghjDhqzqGw/P+98IRe/f72Nk1hAkKIIL7s+vfBsgoGAQwAAIa6Fy9erF27tvU2LXV19aNHj759+5a9EzU3NyclJR08eLDNuR2zZs3y8PBof9MxC54+fWpsbIyPrKio+PLly96P2QaVSsWPPbSxsWn/aXV19eTJkxFCxsbG3Tmdv7q6evXq1XjBGzZsKC4uZnvBAAxybm5uCKGZM2f29UQQwIaxTgJY82cvfTKGEEae4vyyqsOe9O9Bq2SICGFcGkff9seRT90AAQwAADhDdXX17du3V6xYISgo2JKOJk6cuG/fvlevXrH96qqCgoJz586ZmJi0vuxLWVn58OHD3Xl/j7nk5OQpU6bg6W7//v1svKYMl5ubi/+UOvxN7vPnzyNHjkQILVy4sJtT//PPP/jPgY+Pb9euXT9+/GBvwQAMWj9//sT/aYqLi+vruSCADWOdBLCqm8v4MYQw4eU3yzpd3mp6e1SdCyGMW+/vfHYfx/GLJfifcBDAAACAY9TX14eGhtrZ2YmJibVEIzExsWXLlp09e5Yt61StVVdX37lzZ+3ateLi4i3TaWhonDhxoqCggOVhqVSqi4sLvv1MVVX19evXbKyZwWBcvnwZISQkJJSXl9f+0zdv3uCPs2TJEiqV2p0BMzMzFy9ejF93xs/Pv3fvXvZeqgbA4OTg4IAQWrBgQT/MBQFsGOs4gDV/Oq3LjRDinnO2kEm0oj7dJkdEiDD6jxi2fp23detW1As6OjrsrAYAAMAg0NTUFBMTs2XLlrFjx7b+d76UlNSqVasuXbr08eNHNk5Ho9EiIiLWrl07YsQIfCIMw3R1dc+cOcPyi3kJCQnjx49HCPHw8FAoFPbeGLZixQqEkJaWVocRKz09HU+wS5cu7WYGYzAYGRkZFhYWLTHMwcEBXkoEHCw/P59MJhMIBLZ/RdKh4RnAOj3cDyCEEMIQQogwQmQEkx8UJiwqjCHEqCyvZOudalJSUiIswS/3bLniEwAAAMcgEokGBgZnz57Nz8//+PHjpUuXVq1aJSUl9f379xs3bqxfv15BQUFOTs7Kysrb2zslJaWpqak305FIpHnz5v37778/fvy4d+/eihUreHl54+Pjt23bJisru2LFiri4uJ6Oqa2tnZ6e7uDg0NjY6OzsrK+vn5eX15siW/Px8Rk7dmxSUhK+g6WNKVOmREdHi4qKBgcHr1q1qps/HDU1tcDAwOTkZDMzs9raWm9vbyUlpQMHDiQnJ5eXl7OrcgAGiUOHDjU2Nq5Zs6b1vlDAZgOdAAeHTl5BrH1gLUpAiFv39EcmK2CN0ZulCQgRRm9m7woYy2APGAAADDcfP3708fGxsLBo/Y4iQoiPj09XV9fBwSEwMJAtZxvW1NTcuHFj4cKFXFxc+BQqKirnzp1rf/xgl8LDw/Fbp4WEhNh43uCLFy+IRCKBQIiJiemwQVpamqioKELIwsKip/etJScnz58/v/VPWEJCQk9Pb926dR4eHvfu3Xv37l11dTU7ngOAAZCenk4gEMhkMttPXu3M8FwBgwDGYDA6DWD0ssAVYgSE8c45+7nTBNYQv0uJhBDGa+L7bXCcgwgBDAAAhq3m5uasrCxfX9+1a9dOmDChdVQgEAjTpk3bu3dvZGRkXV1d12Mx9f37dwqF0nKFtKCgoL29fXp6eo8GKS0ttbCwQAhhGNbhTcqs+fPPPxFCMjIypaWlHTZITU0VERFBCFlaWrJw53ViYqKNjY26urqAgACT77iFhYVFRESkpaXHjRunqKioqam5c+fOfvu9FgAW4N8vbN++vd9mhAA2jP03gBGEFH9btnar8zGvK4ERz9PzikuTXTV5MUSQXOJf0NFL6vSKlwen82MIYTxzzhSw+wwOFkEAAwAAgPv58+eDBw+cnJz09PRabnlGCPHw8BgaGlIolNTU1N6cpkilUoOCgubMmYNvkUII6evrP3jwgE7vwVeS3t7eBAIB/7WPLUc70mg0/P6xpUuXdtbm5cuX+Dlvtra2vZm0sLAwJibmn3/+2bFjh6mpqYKCQuvLA9ojkUiWlpaJiYkszwhAH3n69Cm+Is2W1fJu3AqoawAAIABJREFUggA2jP03gLWFEbj5eLkwhBDGq7Lryf+8U0AtzXxAWakiiCGEEFHWLuzX4Fj/ggAGAACgI/X19dHR0c7OzpqamnjgwYmLi69evTosLKz751K0l52dvXXr1pazOqZPnx4REdH97sHBwTw8PAihZcuW1dfXs1xGiy9fvuBrXBcvXuysTXx8PJ7Bfv/9d7af6c/471HGX79+/fjx44cPH548eWJtbc3NzY3/iHR0dO7cucPeM0gAYBmdTtfW1kYIHT58uD/nhQA2jNGyru3ZYGU+Z/okWVEeItbhd1bkuf+0esWQ+mKHPPG/MY2sZHfv2yBZ/mJAAAMAANCV0tLSwMDADRs2yMvLt/xBJyEhsWXLlpcvX/Zo/aq16upqLy8vfGcXnjE624jV3pMnT/D8ZmBgwMKOsvYCAwMRQvz8/O/eveusTVxcHL5gZWpq+u3bt95P2qXi4mIXF5eWrXry8vIUCqW8vLwfpgaAibt37yKERo4cWVXV8dW3fQQCGGAwGAxGc31ZwdukmAfXfU657dlsvcRoppq8BB8JaxPAnjmOISKEMIKw+pa7n3v8/nhfggAGAACg+3Jzc48fP66iotKSxMaNG3fo0CEmuYW5hoYGHx8fSUlJfDRdXd3Y2NjudMzMzJSRkUEIqampFRUVsTZ7a9bW1gghdXV1JpcvP3nyBD+TQ0xMLDAwsPeTdkdNTc3Zs2cVFRVbFiH758hvADpEo9EmTpyIEDp37lw/Tw0BDHSO3ljx7Vt5q5hFe+WxZIHNXs/g9JJBFb4YDAhgAAAAWJKenr5nzx48AuE0NDR8fHxYO7Gjurr62LFjeLZBCJmYmCQlJXXZKz8/Hz87RF5ePicnh4V529SA3zm2Z88eJs2Ki4vNzc3xOi0sLMrKyno5bzc1Nzffu3cPf+9r7NixcMszGCgXL15ECCkqKvbmPWTWQAADHAICGAAAAJY1Nzc/efJk3bp1wsLCLa8mHjp06Pv37yyMVlFR4eLiIiQkhBDCMGzDhg1dvm5XVlaGH6EhJiaWkJDA0kP8v1evXnFxcREIhMjISOYt/f398VMNJSUlw8PDezlv91GpVD09PYTQrFmzmKzUAdBH6uvrZWVlEUK3bt3q/9mHZwCDi5gBAAAA8P8IBMLs2bMvXbpUXFx848aN6dOnl5SUHDlyZOzYsb///ntGRkaPRhsxYoSrq2t+fr6TkxM3N/fFixeVlZXx3SadERUVffz48bx588rKyoyNjWNjY3vzOJqami4uLnQ63dra+sePH0xa2tjYZGRk6OnpFRcXm5mZbdy4sba2tjdTdxMXF1dgYKCMjMyLFy927tzZDzMC0JqXl1dhYeGUKVPwOyFAP4AABgAAAIAOkMlkKyur5OTklJQUa2vr5uZmPz+/KVOmzJo1KygoqLm5uftDiYqKUiiUrKysOXPmfP/+ffny5ebm5oWFhZ21FxAQCAkJsba2rq6uXrBgQWhoaG8exNnZ+bfffvvx48f69evpdDqTlvLy8rGxsUeOHCGRSL6+vtOnT09MTOzN1N0kKSl59+5dHh6ec+fOXbp0qR9mBAD369cvDw8PhNBff/3V+nBU0KfgBw0AAAAAZjQ0NAICAnJychwdHQUFBePj4y0tLSdPnnzr1i3meaYNRUXFmJgYf39/UVHRsLAwVVVVLy+vzkbg4uLy9/ffvn17Q0PD0qVLAwICWK6fSCRevXpVXFw8LCxs+/btzBuTSKSDBw8mJCQoKyu/e/du5syZysrKLi4umZmZLBfQHTNmzLhw4QJCaMuWLfHx8X06FwAtjhw5Ul5ebmRkZGxsPNC1DCcD/Q4kYD/YAwYAAKCPVFRUnDhxQk5ODv8tQlVV9c6dOz09tv7bt2/Lly/HR9DR0Xn79i2Txi4uLgghIpHI5Eav7nj27Bl+1ZiHh0d32tfV1e3bt09cXLzlV6aJEycePHgwPT29N2Uwt2PHDoTQqFGjvnz50nezAIDLy8vj5uYmEokZGRkDVcPw3AMGAYwDQQADAADQp6hUqr+/f8sp6qqqqoGBgT2NYXfu3MFvDCOTyRQKhUl3CoWCEMIw7NSpU70p+8GDB0QiEcMwf3//bnah0WhRUVH29vYSEhItSWz8+PH79+8PDw/Pz8/vTT3tNTU1mZqaIoSmTZtWW1vL3sEBaGPx4sUIIXt7+wGsAQIY4BAQwAAAAPQDPIaNGzcOjyVqamo9jWHl5eUbNmzAMAz/Y6uioqKzlufPn8c3qDg5OfWm5vPnzyOEuLi4Hj9+3KOOTU1N0dHRmzZtGjVqVOs3iQQFBbW0tNatW3f69OnIyMivX7/2pjwGg/Hr1y882a5evbqXQwHAxNOnTxFCAgIC/XMFeWcggAEOAQEMAABAv2loaDhz5oy0tDQeSGbMmBEVFdWjEcLDw0VERBBCSkpKTF6FunbtGolEQght27atp6ttre3evRsPTmlpaSx0b2pqio2N3blzp6GhYctl061JSEgsW7bM29s7MzOTtTrfvXuHH9x/4sQJFroD0KXm5mZNTU2E0NGjRwe2EghggENAAAMAANDP6uvrPT09WwLJvHnzerSrpKCgYPr06QghHh6eK1eudNbswYMHZDIZIbRx48bm5mbWSqXT6TY2NgghKSmp3r9DWFZW9vTp0/Pnz//xxx+zZ88WExNrHcbExcWXLl3q7e2dkZHRozAWHByMYRiRSOzpSh0A3eHv748QkpWVZe2adTaCAAY4BAQwAAAAA6K2ttbDwwO/wZlAIPz++++FhYXd7FtfX79+/Xo8t9jb23d2JXF4eDgvLy9CyMrKqr6+nrU6qVSqkZERQmjSpEllZWWsDdKZjx8/XrlyxcbGpuWokpYwtnPnzi7voW7h6uqKEBo5cmRJSQl7KwTDXG1trYyMzCCJPRDAAIeAAAYAAGAAlZWVOTk54UcO8vLyOjk5Mdnc1Ya/vz+erzQ1NT9//txhm6dPnwoKCiKEtLW1v3//zlqRlZWVU6dORQhpaWn13XEX7cOYuLj4uXPnaDRal33pdPrcuXMRQitXruyj8sDwdPjwYfwfsd68yssuEMAAh4AABgAAYMAVFBTY29vjJ2eIiYlRKJSGhobudExNTR07diy+maqz7WSZmZny8vIIIWlp6eTkZNYqLCoqGjNmDELI3Ny8qamJtUG6LyUlZfbs2XgMU1FRefToUZddPn/+jEfNu3fv9nV5YJgoLi7G/0/17Nmzga6FwRiuAQwuYgYAAAAA+8nJyfn4+CQkJOjr65eVlTk7O6upqYWGhnbZUV1dPTk5ee7cuSUlJaampr6+vu3bqKqqvnr1as6cOd++fdPX179+/ToLFUpLSz98+FBERCQ0NNTIyCgnJ4eFQbpPQ0PjyZMnISEhCgoKb9++nTdvnpGRUVZWFpMuY8aMwY/g37RpU0lJSZ+WB4aJ/fv3V1dXL1u2TE9Pb6BrGb4ggAEAAACgr8yYMSMuLu7BgweTJk3Kzc1duHDh/PnzP3z4wLyXhITE48ePnZycmpqaNm7cuG/fPgaD0aaNmJhYZGTkli1bGhoarK2tnZ2d6XR6T8tTVlYODQ0dOXLkkydPpkyZ4urq2tDQ0NNBesTc3Pzdu3eenp4jRoyIjo6eNm3axo0bmYSrzZs3GxkZlZSU7Ny5s08LA8PBmzdv/P39ubm53d3dB7qWYQ0CGAAAAAD61sKFCzMyMnx8fMTFxSMiIlRVVR0dHauqqph0IRKJFArFz8+Pi4uLQqFYWFjU19e3aUMikc6ePevj40MikTw8PFasWFFbW9vT2nR1dXNychwcHGg0mpubm6qqamRkZE8H6REuLi5HR8cPHz5s3LiRwWD4+vpOmjQpJSWlw8YYhvn6+goICFy7du3evXt9WhjgeHv27Glubt66dauSktJA1zKsQQADAAAAQJ8jkUj29vZ41KHT6d7e3hMnTvT19WW+bGVraxsRETFixIi7d+/iLyW2b2Nvbx8WFiYsLHznzh1dXd2CgoKe1iYsLOzl5fXs2TNVVdWPHz+amJhYWlr+/Pmzp+P0yMiRIy9cuJCWljZ79uyysjJTU9Ps7OwOW44dO/bYsWMIoS1btpSXl/dpVYCDhYWFRUVFiYiI7N+/f6BrGe4ggAEAAACgn4iKinp5eSUnJ+vq6n7//n3jxo1aWlqJiYlMusydOzc+Pl5OTi4hIWHmzJkdvr5obGycmJg4fvz4N2/eaGtrR0dHs1Cbrq7u69evPT09BQQEgoKCJkyY4OXlxcJrjT0yefLk6OjopUuXlpaWGhsb5+fnd9hs69at+vr6379/hxcRAWuampqcnZ0RQq6urm1uqwP9DwIYAAAAAPqVurr68+fP/fz8JCUlU1JSdHV1t2zZUl1d3Vl7FRWVxMREDQ2Njx8/6ujovHjxon2bCRMmJCYmGhoaFhcXGxsbb926ta6urqeFkUgkR0fHjIyM+fPnV1RUbN++XUVFZdWqVUeOHAkKCsrIyGhsbOzpmF0iEonXrl2bPXt2UVGRkZHR9+/f27chEAiXLl3i4+Pz8/N7+PAh22sAHO/ChQtv374dP3785s2bB7oWgOAYeg4Ex9ADAAAYEiorK3fv3s3FxYUQGjNmTGRkJJPG1dXVZmZmCCEymXzr1q0O29BotKNHj3JzcyOElJSU4uPjWa4tMDBQWlq6zW9NRCJRQUFhwYIFu3fv9vf3f/PmDZVKZXmK1iorKzU1NRFCampqnd0Nffr0aYSQjIxM9+9VA4DBYBQXF+PXo9+/f3+ga2lreB5DDwGMA0EAAwAAMIRkZWXNmDEDTzgWFhadxQ8Gg0Gj0ezt7RFCBALh77//7qxZZmYm/kchgUBwcHDo5v1j7dXX1ycmJl65csXJyWnRokXjx48nkUhtIhk3N7e6urqdnZ23t/ezZ88qKytZm4vBYJSUlCgrKyOEtLS0qqur2zdobm7Gjw5ft24dy7OAYcja2hohZGJiMtCFdAACGOAQEMAAAAAMLTQazdPTk4+PDyEkKSl57949Jo3d3d0xDEMIbd++vbm5ucM2VCqVQqHga2sqKiopKSlsqZNKpWZnZ9+9e/fYsWMWFhaKiop4JS0wDJs8efLly5cbGxtZGP/r16/4JdSGhoYd5sacnBxeXl6EUERERK+fBgwLz58/xzCMTCbn5OQMdC0dgAAGOAQEMAAAAENRXl7eb7/91rIUVlpa2lnL69ev4+8Z4sfTd9YsMTFx4sSJCCESieTk5MRaKGKuqqrq+fPnZ86cWbdunYaGBplMxuuXkZE5depUhwtZzOXm5kpKSiKEFi9eTKPR2jf466+/EEJycnK9WW0DwwSVSlVVVUUIubm5DXQtHYMABjgEBDAAAABDVFNT06lTp/BFHikpKSZLYbGxsfi2Fm1t7ZKSks6a1dbWOjg44OtU6urqL1++7JvC/4NKpV67dk1NTQ2PYaKion/++SeT8jqUkZEhIiKCELK1taXT6W0+bWpq0tLSwt8oY9cONMCpTpw4gRBSVFRk8j3FwBqeAQxOQQQAAADAYEEkEnfu3PnmzRs9Pb3v378vWbJk27ZtNBqtfcs5c+a8ePFCTk4uMTFx5syZeXl5HQ7Ix8fn5eUVExMzduzYtLQ0XV1dW1vbDk8aZAsuLq7Vq1dnZGQ8f/587ty5v379Onz48NixYx0dHb98+dLNQdTU1EJCQvj4+Pz9/Q8ePNjmUyKReOvWrVGjRj1+/HjTpk3sfgLAOb5+/erm5oYQOnv2LA8Pz0CXA/4fBDAAAAAADC5KSkpPnz718vIik8lnz541MDAoLi5u30xFRSUhIWHq1Kl5eXl6enppaWmdDThnzpy3b9+6uLiQyeSAgAAlJSVXV9e+OFO+xaxZs6Kjo589ezZ//vy6ujpvb29FRcWdO3fW19d3s/udO3e4uLjc3d0fPXrU5tOxY8eGh4cLCAhcuXLl8OHDfVA+4AQ7duyoqalZvny5iYnJQNcC/gcEMAAAAAAMOvgBhi9fvhwzZsyLFy80NDQSEhLaN5OWln7+/Pm8efOKi4t/++03Jndk8fHxubq6fvjwwdraura21s3NTU1Nra/v1NLT0wsPD09PT1+1ahWDwfj77781NDRSU1O709fU1BTft2Nra9s+f2poaNy+fZtEIrm6uvr5+bG/dDDERUVF3blzh4+P7+TJkwNdC2gLAhgAAAAABil1dfWUlJS5c+d++/ZNX1/fw8OjfRsBAYEHDx6sXr26pqZm0aJFvr6+TAaUlZUNCAiIiYlRUVHJzc1dsGCBubn5p0+f+uwJEEJo8uTJ169fT01NnTx58rt377S1tZ2dnTt8r7INJyenuXPn/vz5c+3atQwGo82n8+fPP3/+PIPBsLe3j4yM7JvawZDU2Ni4bds2hJCbm9uYMWMGuhzQFgQwAAAAAAxe4uLijx49cnJyampqcnZ2trGxaf8WHzc399WrV/E2mzZtOnToUPu40pqBgUFaWtqJEycEBQXDwsJUVFT27NlTWlral8+BJk+enJSU5OTkRKfTPTw8Zs2alZOTw7wLgUDw9/cXExN7/Pixl5dX+wYbNmxwcnKi0WjLly9PT0/vm8LB0OPh4ZGTk6OiouLo6MjyIE1NTc+fP+/ONwWgxwb0CBDQJ+AURAAAAJznxo0b+EVh6urq+fn5HbY5d+4cflfy4sWLu3ME/Ldv36ytrfEzEoWEhFxcXPrhbPfo6GhZWVmEEC8vr6enZ/tzDtu4f/8+QohMJr9+/br9p3Q6Hb9mV1pauqCgoG9KBkPJ58+f+fj4MAyLjY3tzTi2trYIIW9vb3YV1iE4BREAAAAAYJCysrKKj4+Xl5dPS0vT0tJ69uxZ+zZ//PFHTEyMhITE/fv3dXR08vPzmY8pJSUVEBCQkZFhYWFRVVXl5uYmLy/v4eFRV1fXNw+BEEJz587NzMy0t7evr6/fvn27iYlJUVERk/aLFi3avHlzY2OjlZVV+8IwDLt06RL+lub8+fMrKir6rnIwJGzdurWurs7a2nrOnDksD3Ly5El/f38BAQEDAwM21gb+Y6ATIGA/WAEDAADAqUpLS42NjRFCZDK5s1vC8vLyVFRUEEJiYmIxMTHdHDkhIaHld00JCQkKhdLXVycFBgaKiYnhdT5//pxJy/r6+smTJyOENmzY0GGDyspKvMHs2bMbGhr6pl4wBAQHByOEhISEvn37xvIgjx49IhKJGIbdvn2bjbV1CFbAAAAAAAAGNTExsYcPH27btq2xsdHCwuLq1avt2ygoKCQkJCxevLisrMzExKTDozva09bWjomJefz48fTp00tKSpydnSdNmnT58uW+Ww2zsLDIzMw0MTEpKyszNjYODQ3trCUPD8+NGzd4eXkvXrx469at9g2EhIRCQkKkpKSePn26Zs2a6urqPqoZDGY1NTU7duxACB0/flxKSoq1Qd6/f79y5crm5uYjR45YWlqytUDwXwOdAAH7wQoYAAAAjkehUBBCGIb9/fffHTag0+kuLi74/i57e/vGxsZujkyn04ODg1VVVfHflISFhbds2ZKens6+2v8HfnAIQohIJF68eJFJyzNnzuD1fP78ucMGaWlpgoKCCCEFBYWXL1/2Tb1g8LK3t0cIaWpqNjU1sTZCWVmZoqIiQmj58uVd7k5ki+G5AgYBjANBAAMAADAcnDlzBs9XTk5OnbW5desWfnSHrq5ucXFx9wdvbm6+efOmtrZ2y3fWWlpaly5dqqmpYUftbbXkSQqF0lkbOp2+aNEihJCenl5nv2G/e/dOQ0MDIUQikQ4dOkSj0fqi2s7U1NSkpqZ25/gTwHbh4eEYhvHw8GRlZbE2ApVKxd/CVVdXr62tZW95nYEABjgEBDAAAADDREBAAH7soYODQ2df2L969Wr06NEIIVlZ2cjIyJ5OkZGRsW3bNmFhYTyGCQkJbdq0KTU1tde1t3X27FkCgcD8WUpKSqSlpRFChw8f7mwcKpW6b98+IpGIEJoxY8aHDx/YXmprhYWFt27dcnBw0NTUxP9eiIqKHjhwoEdxF/RSaWkp/s7hyZMnWR5k8+bNCCEpKanCwkI21sYcBDDAISCAAQAAGD7u3btHJpMRQhs3bmxubu6wzbdv33R1dfElpk2bNrGwRFNXV+fv748PghMREdHT09u0adPZs2djY2N//vzZ60dhXL9+nYuLCyFkbW1NpVI7bBMdHU0gEEgk0osXL5gM9ezZs7FjxyKE+Pn5fXx8el9ba3l5ed7e3lZWVvh5+i1IJJK8vDz+33l4eOzt7XNyctg7NejQihUrEEL6+vqd/SPQpXPnziGEeHl5k5KS2FsbcxDAAIeAAAYAAGBYefjwIS8vL0Jo5cqVneWW5uZmT09PPKqNHTuW5SuS3r59u3379lGjRrXfVy8hIWFgYLBu3botW7Y4OTkdPHiQQqGcOnXKx8fnypUrQUFB79+/73L86OhofB+Xubl5XV1dh22cnJzwBb3S0lImQ1VUVOBXhCGEFi5c+OPHD9YeubWkpKTly5fjK3Ute+RMTU2PHDkSGxuLv58ZHx+/ePFivA2BQFiyZAlsSOtTN2/eRAgJCgp++vSJtRGio6NJJBKGYdevX2dvbV2CAAY4BAQwAAAAw01cXJyQkBBCyMzMrLPcwmAwsrKy8C1SGIbZ29v3ZkPX9+/fo6OjPT09N2zYoKOjM2LEiI4OO2trzJgx9vb2d+/eraio6Gzk5ORkCQkJhJC2tnaHEYtGo+FrcfPnz+/ypITbt2+LiIgghEaNGuXi4pKdnc3Cw9Lp9LCwsN9++w1/CjKZbGVl5ePjk5mZ2dmSy/v37zds2IAnXoTQrFmzwsPDWZgaMFdUVCQqKooQYn6CCxOfPn0SFxdHCB04cIC9tXXH8AxgGIPB6M6/L8AQoqGhkZaWtmjRovv37w90LQAAAEA/SU1NnTdvXmlpqYGBQUhICD8/f4fNmpqaTp069eeff1KpVAUFhX///VdPT48tBRQWFmZnZxcUFFCp1Nra2jb/WV5e/vLly5KSErwxiUTS0tIyMTExMTHR0NDAt2y1yM7OnjdvXmFhoZaWVlxcXEuMaVFQUDBt2rTy8vLTp0/jJ48z8fXr17Vr18bExOD/c/LkyStWrFixYoWCgkKXD0WlUm/evHny5MmsrCyEkLCw8MaNGx0dHbt5yvmPHz+8vb3/+eef8vJyhNDx48f37dvXnY6gOxgMxoIFCyIiIhYsWBAWFsbCCBUVFTo6Ou/evVu8ePHdu3dbr232D2tr62vXrl29ehVPYsPFQCdAwH6wAgYAAGB4evv2LX5GhY6ODpMlJgaDkZKSgl/WTCKR9u3bx2TRjI2am5tTUlKOHTv222+/4Xu9cNLS0tHR0W0aFxQU4Ju41q9f3+Fo9+7dwzCMm5s7OTm5y6npdHp0dPS6devw1RLc9OnTT548+eXLF7xNQ0PDjx8/cnNzU1JSoqKi7t69S6FQZGRk8MYyMjInT56srKxk4cGrq6vd3d3xkPnnn3+yMALo0IULFxBCYmJirF27TKPRjIyMEEKTJ08eqLMrh+cKGAQwDgQBDAAAwLCVn58/btw4hJC6unpJSQmTlvX19Xv27MFTwciRIw8fPsx8SxV7VVVV3b9/f/PmzXi1JBLp7Nmzbdqkp6fjZ+hfuHChw0EcHBwQQnJycmVlZd2ct7GxMSwszNraGn9jEyGEYZi4uDgPD09nX9arqqr6+fl1/yK1zly/fh0/JpHJtQGg+/Ly8gQEBBBCgYGBrI3wxx9/IIRGjRrV2c1y/QACGOAQEMAAAAAMZwUFBUpKSgihSZMmFRUVMW8cHx8/Y8YMPGnw8/Nv27aN5ZMMWNP6wugNGza0yTnXr19HCHFxcT179qx9XyqVqqWlhRBavnx5T+etr68PDg5esWIFnvHwWcTFxceNG6ehoWFgYLB48WI7O7vw8HA2Xsh7584dfOnP0dGxf+755VRNTU34PsBVq1axNsLff/+NEOLh4RnYI1IggAEOAQEMAADAMFdcXKympoYQkpeX706gev78uZmZGZ6CCASCmZlZYmJiP9TZouXC6FmzZrU5rtDR0REhJCkp2WGYzMvLw8//OH/+PGtTNzQ0/Pz5s98u3g0JCcG3tG3atAkyGMs8PDwQQqNHj/716xcL3SMiIgbq2MM2IIABDgEBDAAAAPj16xe+tCUnJ5ebm9udLhkZGTY2Ni27s+bOnRscHMyWC766Iy0tTU5ODiEkKyublpbW8tdpNNrs2bMRQjNnzuzwPcDAwECEEJlMbt1rMHv06BF+bYCdnV1TU9NAlzP0ZGRkkMlkDMMePXrEQve3b9/iod3NzY3ttfXU8Axg/X3UCQAAAABAPxAREYmMjNTR0fny5Yuenh5+iB9zampq/v7+nz592rVrl6CgYExMzNKlS0eOHDl+/Hhra+tz586lpaU1NTX1UcHTpk1LSEiYMWNGYWGhvr5+y1HGJBLp9u3bMjIyCQkJu3btat/RwsLC3t6+sbHR0tKyqqqqj8pjIxMTk7CwMH5+/itXrtja2vbdj5QjVVZWWlpaNjY2btq0ycTEpKfdS0tLzc3NKysrLSwsDh061BcVgq4NdAIE7AcrYAAAAACupqbG0NAQITRy5MjXr193v2N5eflff/01e/bsNsfZ8/Hx6evr79mz59KlS48ePXr79m1VVRUbC25oaLCxsUEIYRjm4uLS8pJeWloavmp0+fLl9r3q6+unTp2KEFqxYgUbi+lTz58/xw8CsbCw6Oz6bNBGU1OTqakpQmjKlCksHN1ZX18/c+ZMhJCmpma/vXTK3PBcAYMAxoEggAEAAAAt6urq8N9ZhYSE7ty509PuNBrt9evX58+ft7GxmTBhQodfZ48YMUJFRWX+/Pn29vbHjh27e/duTk4OjUZjrWA6nX78+HH8RiY7O7uWDObv748Q4uHhefXqVfte2dnZeFbsMKENTomJicLCwngG6+xCZ9CvVzoRAAAgAElEQVTanj17EEISEhL5+fk97Uun01euXIkQGjt2bJt9hgMIAhjgEBDAAAAAgNYaGxutrKzwZaUdO3b0Zr2ltLQ0PDzczc1t7dq1hoaGkyZNajlFsA1ubm41NTVLS0tXV9fAwMDMzMweZYwHDx7gh4w7Ojq2/EV7e3uEkJycXIc70/z8/PB5g4KCWH7AfpaamopnsD179gx0LYPd1atXEUJcXFxxcXEsdHdxccG/hsjMzGR7bSyDAAY4BAQwAAAAoD0fHx9ubm6E0PTp09l78VFZWdmbN29CQ0PPnz+/e/f/sXfncTVn/x/Az723fY+U0iZaLCkiRVGSylJkDSWyxIzdTEwzlsFMGCRrdkpGZEihEkppEaJolGiRpUj7crvd+/vj8/ver68Wt9vtlno9//CYuZ3P+bw/n5rm83LO55x1Dg4O2tra1JqKX1JXV9+wYUNGRgaP3d6+fZvanou7WAKTybSwsCCEjBkzptERtg0bNhBCGAzG2bNnBXZ5bezu3bvUuogHDx5s71o6rocPH1JR//Dhw3wcHhgYSKPRGAzG9evXBV5ba3TNAEbjcDjffE8Mvi8mJiaPHj1ycnLivr8LAAAAhJCUlJTp06fn5OQoKSmdO3du3LhxbXeuysrKjIyMjIyM58+fZ2RkPHr0KD8/n/qSmZmZm5vbrFmzFBUVm+/k6tWr06ZNY7FYe/bsWb16NSGkoKBg6NCh79+//+OPP6i49ZUtW7Zs3ryZTqcfOnRoyZIlAr8uQkh6enpycnJNTU15eXllZWVNTU1paWlVVVVtbW15efn48eMXLlxIvbHGo9OnT8+fP5/BYFy5cmXixIltUfN37f3798OGDXvz5s2yZcsOHjzY0sPv3r1rb29fW1vr5+e3fPnytqiQb66uroGBgQEBAVQS6yraOwGC4GEEDAAAoCkfP360t7cnhNBoNC8vL2G+epSSkrJixYru3btTz2Di4uITJ04MDg5ufkrk2bNnaTQajUY7efIk9UlUVBSNRpOQkHjx4kWjh+zatYs6ZM+ePYK9hOjoaHt7+4aDe19RUVHZsWNHi5Yn8fb2JoTIysqmpqYKtubvXXV1tZmZGSHEwsKi0X0Impeenk5N8lyzZk1blNdKXXMEDAGsE0IAAwAAaAabzfbx8WEwGISQ8ePHf/r0SZhnr6qqOnfunJ2dHVUAIaRXr17Xrl1r5hA/Pz9CiKioaFhYGPXJ/PnzCSGjRo1qai/jQ4cOUct4bN26tfU1s1is4ODgoUOHUgXLyMjMnTvX09PTy8try5YtPj4+/v7+Z86cCQ4ODgwMHDZsGNWsW7dumzdv5nGnYDabTT2L9+rVKz8/v/U1dxoeHh6EEC0tLT62pCsoKKA2l+uwy5wggEEngQAGAADwTTdv3lRSUqIebQMDA6urq4VcwJs3b3x8fPr160cNx3l6ejazMjg121BSUpJagKGkpERNTY0Q4u/v39Qh586dExERIYT8/PPPfBdZU1Nz5swZ7vKPysrKmzZt+mZkvXfvHncmoYyMzIoVKwoKCr55rtraWmtra0LIkCFDysvL+a65M9m1axd1D588edLSY8vKyqjNCSwtLYX/480jBDDoJBDAAAAAeJGXl0dN7qKGa1atWvXs2TMh18Bms/39/an1FQwMDFJSUppquWLFCkKInJzcw4cPORxOcHAw9a/NjBdduHBBVFSUELJixYqmxsqaUlBQ8PvvvysrK1P3R1dX98iRIy16jo+JieG+ZSclJbVmzZpvHv7x40c9PT1qZJLFYrWo4M4nMjKSwWDQaLQLFy609Fgmk0ndfH19/Y8fP7ZFeQKBAAadBAIYAAAAj5hM5tGjR7mT6wghI0eOPHPmDB+73LZGeno6NVghIiKyadOmRrNHfX09tY9Tjx49qKUUp0yZQgiZMGFCMz2HhoZSawx6eHiUlpZ+s5Lq6urz58/b29tzZ0iamppeunSJ7wlsycnJTk5O1Gtj5ubm39yBKjMzk3pNbsWKFfydsXPgLtC/efPmlh7LZrPd3d0JIT179nz16lVblCcoCGDQSSCAAQAAtNTDhw89PT3l5OSo1KGgoLB8+fKIiIiUlJRnz55lZ2cXFxc3M0Ww9aqrq728vKgXt8zNzV++fNmwTW1trZ2dHTVtMicn5+3bt9QzenBwcDM9R0ZGUiNsDAZj8ODBK1asuHjx4rt3775qFh8fv3jxYqpDao2QadOm3b17VyBXl5KSoq2tTQjR1tZOT09vvnFsbCwVGv38/ARy9u9OQkIC9Y2YMWNGS4cuOf/Z8ktGRqaZAdUOomsGMCxD3wlhGXoAAAD+VFZW/v3338eOHUtKSmqqjZycnISEhKysrIKCgry8vJycnKysrJycnJycnLy8vLq6uq2tLXfmXkvdunXL3d29oKBATk5u165d1M7LX1Voa2ubkJCgpqZ248aNhIQET0/Pnj17Pnv2rFu3bk11Gx8fv379+uTkZCaTyf1QV1fXwsJi1KhRBQUFZ8+ezczMpD43NTV1c3NzcXFppkM+FBYWTp48OSEhQU5O7sKFC9RalE0JCgqaO3cunU4PCgqaMWOGAMvo+GJjYydOnFheXj59+vRz585Rk0h5d/LkSQ8PDxERkStXrkyYMKGNihQULEMPnQRGwAAAAFrpyZMny5cvt7a2NjExMTAw6N27t6KiIo97W9HpdFNT099///3hw4d8DF8UFRVRcwsJIR4eHg2nI5aWlo4ZM4YQIi8vf/v2bRsbG0LI/Pnzv9lzVVVVTEzM1q1b7ezsZGVlvyq7V69eXl5ez58/b2nBvKuurnZxcSGEiIiIHDhwoPnG27dvJ4SIiopeuXKl7UrqaKKioqjhyrlz5/LxFtyNGzeolVeaWZ2lQ8EIGHQSGAEDAABoOyUlJdQexGVlZZ8/fy4rK6P+mfqHp0+f3rlzp6amhmqspqY2fvz4CRMmjB07VkZGhvezHD9+fNWqVZWVlc7OzufPnxcTE/vyq0wm093dnfp8x44dv/zyS3V1dWRkpK2tLY/919fXp6amxsXFxcXFSUhIzJkzx9bWlvveV9vhcDhbtmz5/fffORzO8uXL9+7d28xJvb29//jjDzExsZCQkK6wQfONGzecnZ1ramoWLlzo7+9PzUflXXJyso2NTUVFhbe397Zt29qoSMHCCBh0EhgBAwAAaEeVlZWhoaFLlixRV1fnPnGJi4u7uLi0aJfhBw8eUMtRWFtbN1yWnc1m//zzz4QQGo3m4OBACNHW1v5eVm8/d+6chIQEIcTBwaH5pUG8vLwIIWJiYtevXxdaee2Cu1yKp6cnH0uePH36lJoyOm/ePD7GXdtL1xwBQwDrhBDAAAAAOojHjx9v3759xIgR1DgPjUazt7e/c+cOj4enp6dT+31ZWFiUlJQ0bODr60uNk1Bvna1du1aQ1bel+Ph4qmZDQ8OcnJymmrHZ7B9++IEQIiUlxft9++78/fff1Lte69at4+PwrKwsVVVVQsjkyZPr6uoEXl7bQQCDTgIBDAAAoKPJz89fvXo1dxaimZnZP//8w8tAx7///quhoUEIGTJkSGFhYcMGAQEB1LM7nU6n0+n3799vg/LbxKtXrwYMGEAI0dTUzM3NbaoZm81esmQJIURaWjo2NlaYFQpHYGAg9eKWl5cXH4fn5+dTK0yOHTu2pqZG4OW1qa4ZwFo2tRQAAAAA+KCurr5nz56CggJfX19VVdXExMQpU6bo6ent27eP+8JYo/T19ePi4nR1dR89ejR69OiCgoKvGsydO/fGjRtycnJsNpvNZnt4eFRUVLTlpQhM79694+PjR44cmZeXZ2Nj8+7du0ab0Wi0Q4cOubq6VlZWTpo0KSUlRch1th0Oh7Nnzx43NzcWi/XHH3/4+Pi0tIeioqJx48bl5ORQkZ6axAgdHAIYAAAAgJDIycmtXLny5cuX+/fv19bWzs7OXrVqlZ6e3rlz5zhNr4umqal57969QYMGZWRkWFhYZGdnf9XAxsYmOjq6R48ehJCMjIzJkyez2ey2u4oHDx4EBQUlJSV9+vSplV3Jy8tfv3592LBhL1++tLa2/vDhQ6PN6HT6qVOnZsyYUVpaamdn9+TJk1aetyMoLCycNGkSNWt0z549GzZsaGkPZWVlDg4OGRkZhoaG4eHhLVrlBdoRAhgAAACAUElJSf34449ZWVkBAQGGhob5+flz584dNWrU48ePmzpERUXl7t27ZmZmOTk5lpaW6enpXzUYOnRoQkJC7969CSHR0dF2dnYCz2AcDufatWuWlpampqZz5swxMzNTUlLq3r378OHD58yZs3nz5nPnziUlJbFYrBZ1KycnFxkZOXjw4BcvXtjZ2RUXFzfajMFgBAYGTp48ubi42NbW9vnz54K4pnYTGRlpZGQUHh7evXv3kJCQ1atXt7SH6urqSZMmPXz4sG/fvhEREYLdtA3aVvvOgIS2gHfAAAAAvhdsNvvMmTM9e/YkhNDpdFdX1w8fPjTVuKysbPTo0YSQHj16NLqgYlVVFXcPMX19/ZcvXwqkyNra2lOnTlHvaxFCunXrNmXKFBMTE3l5+YbPln369Dl9+nRLl4L48OFDv379CCHDhw8vKytrppLx48cTQuTl5S9cuNDqK2sHNTU1a9eupdFohBBra+v8/Hw+OmEymdR9UFdXf/36taBrFJ6u+Q4YAlgnhAAGAADwfamoqNi0aRP1Ao+ioqKvr29TAaaqqop68lZSUmpqUftly5ZRWUhaWrqVG/KWlZX99ddf3PX0tbS0fH19v1zs/sOHD/Hx8adPn/71119nzpzZp08fqqWenl5AQECLthLOz8+nRvBGjhxZUVHRVLPq6uqpU6dSZ1m0aFFlZWVrLlDIMjIyBg8eTAgRFRX9888/+VhunsPhsFismTNnUjm8TTfOFgIEMOgkEMAAAAC+Ry9evKDCFSHEwMAgIiKi0Wa1tbWTJ0+motqDBw8abTNv3jzukNTUqVOLiopaWkxJScmGDRsUFBSoTgYNGhQQEMBkMps/isViBQQE6Orqcq8iKCiI95iRnZ3dq1cvQoiDg0NtbW0zLc+cOSMlJUWdokW7q7WjM2fOUK9paWtrx8fH89cJi8Vyc3MjhCgoKDx+/FiwFQofAhh0EghgAAAA36/Lly9TA0GEEA8Pj+rq6oZtuBlMQUGh0QzGZDKpyYrU+uYqKiqhoaG81xAdHa2pqUnVYGVldf369Rbt7VtXV3f69GnuaFj//v0vXLjAYwzLyMig9gebMmVK8/MYnz592r9/f0KIpKTkoUOHeC9P+HJycpydnam74ebm1swcy+YxmUxq7EtGRobvCNehIIBBJ4EABgAA8F2rqqr6/fffqREeU1PTgoKChm2+mcGKioqoIKeiokIIodFobm5uzbxgxj31ypUrqTeUhg8fnpSUxPdV1NXVnThxghsmjYyMeByqSk1NpZaUmDNnTvOxrbKycuHChVT/zs7OxcXFfFfbRnJycpYsWSImJka9txYUFMR3V7W1tdQLfvLy8kJIX7m5uRs2bOBj7LRFEMCgk0AAAwAA6ASePn2qo6NDvepz9+7dhg2YTCY3gyUnJzdskJaWJisrSwiZMGGCpKQkNWvxyJEjTaWa5ORkAwMD6g2lrVu3tnQhjUYxmcyjR49qaWkRQiQkJPbt28fLYFpSUpKcnBwhxNPT85uNL1y4QC0HoqWlFRcX1/qaBSI3N9fT05OKXgwGw9XVNScnh+/eqqurqemp3bp1a2reqaCUlJSsX7+eGjt1dnZu03MhgEEngQAGAADQOXz69Gns2LGEEHFx8ePHjzdswGQyqVGRpjLY1atX6XQ6nU4/evSog4MDNVhkZmb21etDTCZz48aN1DP3gAEDHj58KNgLqaqqWrp0KXX2CRMmFBYWfvOQmJgYKjR6e3t/s/GrV6+GDx9ORZ3p06e3bwzLy8tbunQpN3rNnTv333//bU2HlZWV1I9BU6tfCgqTydy/fz+1oRwhhE6nR0VFtd3pOAhg0GkggAEAAHQaLBbLy8uLeiBevHhxw2UwvpnB/vzzT0KIrKzskiVL3N3dlZSUqGfrxYsXl5aWcjicZ8+emZiYUB+uW7eu0bfOBOKff/7p3r07IURVVZWXJ/tr166JiooSQnbt2vXNxkwmc8OGDVTsIYSYmJicOXOmpqZGEIXz6uXLl19Grzlz5rQyenE4nIqKijFjxlBTSdPS0gRSZ6NCQkL09PSou0ej0Wg02tmzZ9vudBQEMOgkEMAAAAA6mcDAQGo4yNLSsuF7XNwM1q1bt4aDV2w2e86cOaQxoqKiJiYmEhIShJDevXvHxMS09YXk5+dbWVlRYe/nn3/+5rKKgYGBdDqdRqM1OgDYUEFBgbe3N3cMR0VFZdOmTe/evRNE7U169OjRxo0bjYyMuANHs2fPzsjIaH3PJSUl5ubmhBANDY3MzMzWd9iohIQECwsLqngdHR1paWlCyG+//dZGp/sSAhh0EghgAAAAnc/Dhw81NDSoZ/GUlJSvvsrNYPLy8pGRkV99ta6uLiIiYv/+/atXr3ZycjI0NKTiHNekSZP4Xpqvperr67dt20ZNdxw2bFhWVlbz7Q8ePEgNKF28eJHHU1RXV588edLY2Ji6OjExsblz50ZERHz+/LnV5f8/Fot1586dlStXamtrc2+jvLy8u7u7oPbmKi4uNjU1pd5tE9Se2l/Jzc2dOXMmteaKsrLyzp07qcuZOXNmi9a95BsCGHQSCGAAAACd0ps3b6gnchkZmTt37nz1VSaTOWvWLGpc69ixY9/s7e3btz/99BO1MxUhxNraOjo6uk3qbkxCQgK1QKKsrGxwcHDzjTdu3EgIkZCQuH37dovOcvfu3alTpzIYDO7MOj09vdmzZ+/duzcuLq5FmzhXV1enpaX9888/u3btcnNzo2ZyUtTU1Dw9PSMiIprfu6xF3rx5Y2hoSAjR1dXNy8sTVLdcX660KSUl5e3tXVRUNHLkSELI8OHDq6qqBH7GRnXNAEbjcDiNDknD98vExOTRo0dOTk5Xrlxp71oAAABAkGpqahYtWhQYGCgnJ3f37t3Bgwd/+VUOh7Nly5YtW7YQQlasWLF37146nd58h58/f/b19d2/f//nz58JIebm5r/++it3P+g2VVpaunTp0vPnz9Pp9AMHDnBX6WjU8uXLDxw4ICsre/v27aFDh7boRLm5uf7+/nfu3ElNTa2pqeF+LiIi0r9/f2NjY3l5eSqKyMjIUG+dKSoqUhW+/I/8/PyvHpv19fWnTJkyefJkU1NTahBJUB49euTo6FhQUNC/f/9bt26pqqoKsHNCyD///LN27drXr18TQmbOnLlr1y51dXVXV9dz585paWklJSVRWxcIgaura2BgYEBAAJXEuop2DoDQBjACBgAA0Imx2Ww3NzdCSI8ePRpd4+HkyZNUipg6dSqPQxnl5eW+vr7cB/1BgwadOXOGxWIJuvZG7Nq1i0ov27Zta6YZm82eP38+IURJSYnvOX5MJvPRo0f+/v4LFy40NjampkHySExMTF9ff8KECatWrTp48KBAXvFq1PXr16nNA0aOHMnLcpEt8vz5c1tbW+53mbu9ARXaZWVlnzx5ItgzNg8jYNBJYAQMAACgc6urq3N0dLx586aOjk5cXFzDEZLo6Ohp06aVlJSYmZldvXpVWVmZl24rKyv9/f3/+uuvd+/eEUIGDBgwderUESNGmJubU7tytZGAgIAFCxawWKzly5f7+vo2NWpXV1c3ZcqU8PDwXr16xcXFffnyFX+qq6tTU1OfP39eVVVVVVVFCCkvL6diZ0lJCSFEWlq6739oaWlxpzK2nX379q1Zs4bNZi9YsODw4cPcRR1br6Ki4q+//vrzzz+ZTKaiouKmTZt++OEHKoJeuHDBxcWFTqeHhoYKZ/CTCyNg0ElgBAwAAKDTq6ysHDFiBCHE0NCwuLi4YYP09HQqoujo6LRouKa6uvrgwYPU1skUOp1uaGi4dOnSs2fPZmdnC+4i/uvSpUvi4uKEkPnz5zcz8lZVVWVpaUkI6du3b2v2Ne6AmEymh4cHdbd37NghwJ7ZbPbZs2epWYUMBsPT0/Pjx4/cryYkJFDLYO7bt0+AJ+VR1xwBQwBrTN3n7JS7N66GRt5Py/lU/a0lYOo+Zj9NTU1NfZpTIozVYr4NAQwAAKArKCoq6tevHyFk9OjRjW7e9e7du2HDhhFCFBUVGy7a0Twmk3nlypW1a9eam5t/NQ6jqqo6Y8aMkydPCnZ598jISGpFEGdn52b27yopKaHeAdPQ0Hjx4oUAC2hHnz59sra2JoRIS0tfvnxZgD1nZmba2NhQ3zgLC4uvNuDOzs6mgtmyZcsEeFLeIYABh1Px4srmaUZKYtz3KGkMxYHTfvv7SXF9U4ewCw6NESOEEInpF4W611+TEMAAAAC6iPz8fE1NTUKIo6NjXV1dwwaVlZWTJ08mhIiLi2/atKm8vJyPs1RXV9+7d2/Hjh2Ojo7cLbYIITQabciQId7e3vHx8QJ5YSwhIaFbt26EEBsbm2ZKLS8vp/YmVlZWTk1Nbf1529fLly8NDAyoZPvgwQNBdVtbW7t161ZqdKtHjx5nzpz5amX5oqIiaudle3v7Rn94hAABrKurfx+xzlSh0UnHNKkBiy6+bnynQAQwAAAAaD/p6elUaHFzc2t076b6+vo1a9ZQjzQ9e/Y8cuRIK5+2//3334MHD06cOJFaOZDSrVu3WbNmnT17tqKiojWdP3v2TF1dnRAydOjQoqKipppVVlba2dlR501KSmrNGdtXVFQU9e0bMmTImzdvBNXtvXv3BgwYQH1rpk+f3nAxj6qqKmoK6+DBg4W2BVxDCGBdW13moXHd6P8/6iWnPWzczMU/es6dZKohSY2G0US13S69bWQcDAEMAAAA2lViYqK0tDQhxNvbu6k2SUlJo0aNop7I9fX1v7n1Fi+qq6tv3ry5cuVKXV1dbhLT1NQMCwtrTbfZ2dl9+vQhhAwYMODDhw9NNaupqaH2npaVlW3pBMuOoKamZt26ddSKI5MnT25lcOUqLi5euHAhtbCkvr5+o3eGxWJRt05bW/vt27cCOS9/EMC6MvbnK6496YQQmqim097Ej/8dRK95c3u7naoIjRBC7zk18E2DCIYABgAAAO0tLCyMWtGu+aUUoqKiuAMjZmZm9+7dE1QBWVlZfn5+1EMIIWTmzJmteUPs7du31DbEQ4cObSaZ1NXVUU/wkpKS4eHhfJ9O+NLS0gYNGkQIERER2bJlS319ky+7tEhQUBD1Thc147SpV+l+/PFHavCQ7wX9BQUBrCsrvTBdjkYITWzQ+oSG/5HXZPjZdqMTQujKU899PQqGAAYAAAAdwJkzZ2g0Go1GO3bsWDPNmEzm/v37qVe5aDTarFmzBPgUXl9f7+/vT21jpaCg4Ovry3e0+PDhAzUONn78+GbmTLLZ7JUrVxJCxMTEBDKs19bYbLa/vz81e7N3796CysDv37+nXvYjhIwePbqZdS937NhBCJGQkBBg/OYbAlgXxoxf24dBCE3K/ti7RlcyrM89OUmJTghh6Pxw63+nySKAAQAAQMewb98+QgidTj979mzzLUtLSzds2MB9iUtHR8fT0zMkJOTz58+tL6OgoMDZ2Znq2cLCgu+Al5mZSQVFDw+P5ltu3LiREMJgME6cOMHfuYTj3bt33I22XF1d+VsTpaHz5893796dCr0nTpxo9FVAyt9//02n0+l0+sWLFwVy6lbqmgGsBft/d2bsT4Uf2YQweg8dokRrrAFd0+2vX8/cWR1T8frELwc84zYMFG3zooKDg48dO8bHgVlZWYSQyspKQVcEAAAAHdqKFSvYbPbq1avnz58vIiLi4uLSVEs5Obk//vhj2bJl27Ztu3Tp0qtXr44cOXLkyBEGg2Fqajpu3Lhx48aZmppS0xpbSk1NLSQk5Nq1a0uXLo2LizMyMlqzZs2WLVuonb54p6urGx4ebm1tfeLECQ0NjU2bNjXVcsuWLSIiIhs3bly4cOGzZ8+2bdsmKSnJR+VtKjg4eOnSpcXFxcrKyseOHXN0dGx9n0VFRcuWLbt06RIhxM7O7tixYxoaGk01jomJmTdvHpvN3rt377Rp01p/duBTeyfAjqHm6lw5GiEiBuuTm14VqDrZe5AYjRB6d8dT+f8dTW+zEbDp06e35js7dOhQQVYDAAAA34ktW7YQQhgMxoULF3hpX19f/+DBg+3bt48ePfrLLb/k5eUnTJjwxx9/xMbGNrrP2Dd9uSDEwIED+dvEmft628GDB5tv6efnJyoqSggxMDBISEjg41xt5P37966urtRdnTBhwvv37wXS7bVr11RVVQkhcnJy/v7+zQx8cTictLQ0BQUFQsjq1asFcnaB6JojYDQOh9Oap/xOgpX0c/+Ru7LYUraHM28u6dXoUvSEcEojlw0ef+R1PV1l6tmHwXOodpy3h8f2XnabSSSmXywJntayv9lpTnl5eVJSEh8HLlu2LCsry8nJ6cqVKwKrBgAAAL4fv/766/bt28XExC5dujRp0iTeD6yoqLh7925kZGRkZOSLFy+4n4uJiQ0dOtTCwsLCwmLEiBHUhDcexcTELFmy5MWLFyoqKtevX+cu1MG7Y8eOLV68mMFghISEODk5NdPy4cOH7u7u6enpDAbjp59+2rx5c0uH3QSrrKzsr7/+2rt3b0VFhZSU1O7du5csWUIl0tYoKSnx8vI6evQoIcTW1vb48ePUdnBNKSgoMDc3z8/Pnz59OjULsZUFCIqrq2tgYGBAQACVxLqK9k6AHUTZpVkKNEJoov3XxJY2/bcH7A8XZ6tSq3FMOPKilvoM74ABAABAh+Pl5UUIERMTu379On89vHnz5vz58z/++KOxsTGDweA+PVL7L/v7+1dWVvLYVVlZma2tLSFEVlY2MjKSj2J++eUXQoiMjMw3tyquqV0XktgAACAASURBVKlZv349VfDAgQNTUlL4OF3r1dTU7NmzR0lJibppTk5OmZmZAuk5NDSUWupQRkbm8OHDzQ98cTicwsLC/v37E0IsLS35G8lsO11zBAwB7P+VXnNXpRNCaAxV263Rb5uciFhf8PfMXgxCCE2sr2vAi0oEMAAAAOiI2Gz2Dz/8QAiRkpJq/TZZpaWlN27c+O2336ysrLhLdygqKq5du5bHiYW1tbVz5syhMiEfD9xsNtvNzY0QoqKiwssZExMTDQwMCCEiIiJeXl61tbUtPSPf6uvrg4ODdXR0qLtkbm4eExMjkJ4rKyuXLl1KdWttbf3q1atvHvL58+fBgwcTQgYNGvTp0yeBlCFACGBdGyvb3777/w/H0qTUh01yX/XrnwcjX7O+bsj+dGutsQyNEEJo0noTVu7cs9BIFAEMAAAAOho2m+3p6UkIkZaWFlQG4HA4tbW1586dMzc3p56b6HT6xIkTb968+c2hGDabTS2kQaPRNm3a1NLzMplMahhNT0+vqKjom+2rqqrWrFlDTbczNjZOTk5u6Rn5cOXKFe5Oa0ZGRgLcnezx48f9+vUjhIiLi+/du/ebd5vD4VRWVlpaWhJC+vbt274bLjcFAayrYxfd9h7ZnfHFpFyagmtoY5mK/Sl2y2ilryfPIoABAABAB1NfX08NHMnLy586dYrJZAqw85SUFHd3dwkJCepRSE9Pz8/Pr5l9kyl+fn5UKFq+fHlLdwkrKyujxnNGjBjB42y6e/fuUfuJEUKGDBly4MCB4uLiFp2UF1lZWdu2bRs4cCB1Ih0dncDAQEFtr8xms//66y/qZbYBAwY8efKEl6Nqa2vt7e0JIRoaGq9fvxZIJQKHAAYcTm3erd0LLLVlqBjWVADjcDicivSA5aPVJWgIYAAAANCRsVismTNnUk8r2trahw8frqkR5CNLUVHRH3/8wV0Eonfv3lFRUc0fcvnyZSq2TZkypaVvJb19+1ZLS4sQMnPmTF5GgTgcTkVFxfr167t16/b/j2wSEi4uLlFRUa0PSDk5OTt37jQxMeE+D6qqqh44cECAMx4LCgrGjh1LDRv++OOPVVVVvBzFZDKpxVeUlZX//fdfQRUjcAhg8B/s6sLMB9GhF88FxeQ2+x9mzbtH1478vtLNydp0kJ7ekmsIYAAAANDx1NfXBwYGUisxEEJ69eq1d+9e3pfQ4AWLxQoJCaGGp2g02qJFi0pKSpppf+fOHXl5eUKIlZVV8y0bevbsGbWi+i+//ML7UTU1NX///fe4ceO4awBqa2tv3rw5JyenRWfncDh5eXl79+41MzPjrmcoLy8/b96869evC3aM8Z9//qGW8ejRo0doaCiPR7FYLGoLOCUlpfT0dAHWI3BdM4BhGfpOyMTE5NGjR1iGHgAAAL7EZrPDw8O3bt364MEDQoiSktIPP/ywatUqKswIBIvF2r179+bNm2tqalRVVQ8dOjR58uSmGj958mT8+PFv374dMmRIZGRki5a2j4qKmjBhQl1d3YkTJxYsWNCiIvPy8k6fPn369OnXr19TnygqKmpqampqampra2v+h5aWFo1Gy/1fOTk5ubm55eXl1IEyMjKOjo4zZ860s7MT7Hr3VVVVq1evphaad3BwOHXqFLXy4TdxOJyFCxeePHlSXl4+Ojr6y9G5DqhrLkOPANYJIYABAABAUzgcTnh4+Pbt2xMTEwkhioqKkydP7tGjh7y8vLy8vIKCAvdPRUVFdXV1Pk7x8uXLhQsXxsTEEEKmT59+6NAh7mrsX8nNzR03blxmZqaRkVFUVFSPHj14P8vx48cXLVokKip648YNGxublhbJZrPv3r178uTJq1evVlRUtOhYBQUFW1vbmTNnjh8/XlJSsqWn/qanT5/OmjUrIyNDQkJix44dy5cv533rsJUrV/r5+UlLS0dERIwcOVLgtQkWAhh0EghgAAAA8E23bt3atm0bFZOa0rNnTwsLC0tLS0tLy0GDBn25G1jz2Gz28ePH165dW1FRoaKicuDAgWnTpjXa8t27dzY2NhkZGQMGDIiOjuZxnIeyfv36HTt2KCgoxMfHcydY8qGoqCjvP3Jycqh/yM/P53A4GhoaWlpaWlpa2traWv+hqKjI97max+FwDh48+NNPP9XU1AwYMOD8+fOGhoa8H+7t7f3HH3+Ii4uHhYVRb451cAhg0EkggAEAAACPkpKSUlNTS/6jtLSU+2dRUVFRURG3pZyc3IgRIywsLEaNGjVs2DDu4ofNePnypYeHR2xsLCFkxowZx44dk5OTa9jsw4cPY8eOTU9PNzAwiI6OVlNT47F4Doczd+7coKAgbW3txMTEFoW3DqikpGTx4sUXL14khLi6uh4+fFhaWprHYzkczk8//bR7925RUdFLly45Ojq2ZaUC0zUDGBbh6ISwCAcAAAAIxIsXL06cOOHu7t63b98vHyC7d+++b98+XhacYLPZBw4ckJGRIYQYGBg0tSJfUVGRsbExIURXVzcvL4/3Cqurq6kdyYYOHfrNFfA7sjt37lATPuXl5c+fP9+iY1ksloeHByFETEzs4sWLrS+mvr5+9+7dmpqa31zQspW65iIcX+9lBQAAAABA0dPTW7BgwalTp7Kyst6+fXvhwoXly5cbGhp++vRp5cqVAwcOvHr1avM90Gi0H3744cmTJ4MGDfr333+HDx8eFhbWsJmSktKdO3dMTU2zsrIsLS1fvXrFY4USEhKhoaF9+/ZNSUmZN28em81u8UW2NxaLtXnz5rFjx75582b48OGPHj2aNWsW74czmczZs2efOHFCSkrq6tWrTU315F1OTs6YMWPWrl2bl5dXXFzcyt6gIQQwAAAAAPg2VVXVGTNm+Pn5PX36NCoqytDQMDMzc/Lkyebm5gkJCc0fq6Ojk5SU5OrqWlpa6ujouH79+oZJSUFBITIy0szMLDc319ra+uXLlzwWpqSkFBoaqqCgEBISsn79en6urf3k5uZaWVlt2bKFEPLbb7/FxcXp6OjwfnhVVZWTk1NwcDB196idl1vj4sWLgwcPjomJUVFRuXr16owZM1rZITSEAAYAAAAALTN27NhHjx75+/urqKgkJiaOHDlyxowZubm5zRwiISFx5swZHx8fOp2+Y8cOJyen0tLSr9rIy8vfunXLysoqLy/P0tLy+fPnPNbTr1+/kJAQUVHRXbt2bd++nc+rErrTp08PGjQoPj5eXV09Ojr6999/FxER4f3wkpKScePG3bx5U0VF5c6dO61c87CwsHDy5MkzZswoKSmZNm1aenr69/Ii2XcHAQwAAAAAWkxERGTx4sUvXrz46aefqFeP+vfvv2nTpsrKyqYOodFoXl5eYWFhioqKYWFhw4cP//fff79qIy0tfe3atdGjR79//37s2LFPnz7lsZ4xY8acOHGCwWD8+uuvq1at6uBzET98+ODk5DR//vyysrKpU6empqaOHj26pT1YWVnFx8draWndu3ePeoOObyEhIQMGDLh69aq8vLy/v//Fixeb2jkAWg8BDAAAAAD4JC8vv3PnzoyMjBkzZlRXV//+++9GRkZxcXHNHGJvb5+cnDxw4MAXL14MHz48NDT0qwYyMjLXr1+3sbF59+6dpaVlREQEj8W4urqGhIRISEjs27fP1dW1rq6Oz6tqYyEhIYaGhqGhoVTauXTpUos2oSaE5ObmWlpaPnnyxMDAIC4uTldXl+9iSktLlyxZMm3atI8fP9ra2qanpy9evJjv3oAXCGAAAAAA0Cq9e/e+cOFCXFycsbFxdnb26NGj161bV1NT01T7vn373r9/f/LkyWVlZc7Ozrt37/6qgZSUVHh4+OzZs8vKyiZOnHj8+HEeK3Fycrpx44acnFxQUJCDg0N5eTn/V9UGuGmnqKho7NixaWlpfKSd58+fW1hYZGVlmZiYxMbG8rdZNuXGjRsDBgw4evSotLT0oUOHIiIiWtMb8AgBDAAAAAAEYMSIEQ8ePPDx8WEwGLt37x4yZMiDBw+aaiwrK3v58uUtW7ZwOJx169YtW7asvr7+ywbi4uKBgYHe3t4sFmvRokW//PILh7fda62srG7fvq2srBwdHT127NiPHz+29sIEhFq55OjRo5KSkj4+PhERERoaGi3t5NKlS2ZmZm/evBk1atTt27d79OjBXzGlpaUeHh7jx48vKCgYMWJEamrq0qVLaTQaf71By7T3OvggeNgHDAAAANpRamqqkZERIURERMTLy6u2traZxiEhIVJSUoSQcePGlZaWNmxw/PhxUVFRQoiLi0tNTQ2PNbx48UJLS4sQMmDAgDdv3vBzGYLz+fNnbrwZMWJEVlYWH53U1dWtXbuW6sTFxaWqqorverjZT0JCwsfHh8Vi8d1VK2EfMAAAAACA1jIyMkpMTPTy8uJwODt27Bg6dOjjx4+bauzs7EwNWEVGRlpYWOTn53/VwMPD48aNG9T2xNbW1kVFRbzUoKenFx8fP2DAgGfPno0cOTIzM7NVl8QvFot16NAhXV3dw4cPi4mJ+fj4xMbGfrWrNS+Kiors7e13797NYDB8fHyCgoIkJSX5qKesrGzJkiX29vb5+flmZmaPHz/28vJiMBh8dAV8QwADAAAAAAGjhlbu3Lmjo6OTlpZmbm7u4+Pz1SRDruHDhyckJBgYGKSlpVGp4KsGNjY2cXFxmpqaCQkJ5ubmPKapXr16xcbGmpub5+bmWlhYNDMfso1cv3590KBBP/zww8ePH62srB48eMBf2omPjzc2No6OjlZTU4uJifHy8uKvHu4cSHFxcR8fn7i4OAMDA/66gtZAAAMAAACANkGt1Ofp6clkMjds2GBjY5OXl9doSx0dnbi4OEtLy7dv31pZWUVGRn7VYODAgQkJCYMHD87OzrawsIiPj+elgG7dut26dcvBwaGoqGjkyJHLly8Xzith6enpdnZ2EyZMyMjI0NXVvXz58p07dwwNDfnoys/Pz9ramrotjx49GjFiBB+dlJeXe3p62tnZ5eXlmZqaPnr0CANf7QgBDAAAAADaioyMzOHDh2/evKmqqhoTE2NsbBwcHNxoy+7du0dFRbm4uFArH544ceKrBmpqarGxsePHjy8qKho9evSaNWua2XOMS0pK6urVq8uXL+dwOAcOHNDV1d29ezeTyRTAtTWmsLDQ09PT2Ng4MjJSUVFxz5496enpU6ZM4aOrysrK2bNnr1y5ksVirVu3LioqSkVFhY9+rl27NmDAAH9/fzExsT///DM+Pr5fv3589AMC094voYHgYREOAAAA6GiKioqcnJyo58/p06d//vy50WZsNnvDhg1Us19++YXNZn/VoK6ubv369SIiIoSQ3r17R0ZG8lgANSpF9dynT59Lly616noayMzM9Pb2lpOTI4SIiopSo2189xYXF9e/f39CiJycHN+lvn//fsaMGdQlm5qapqen811PG+mai3AggHVCCGAAAADQMZ05c0ZaWpoQoq2tHRcX11SzY8eOUSsfTp8+vdHl/h49ejR48GBCCI1Gc3d3//TpE48FUDtfUZnE0tIyOTmZzyv5j0+fPh06dMjc3Jw7vDFp0qR///2X7w7fvXvn5uZGrXbYv39//rpis9knTpxQVFQkhMjIyPj6+rbjUofNQACDTgIBDAAAADqsjIwM6llFRERk06ZNTQWDiIgIeXl5QsiwYcPevn3bsEFdXZ2Pjw+1GKCKikpwcDCPBdTV1R0+fFhZWZnKb3Pnzg0NDX3//n2LrqK2tvbKlSvOzs7i4uJU7pKTk5s/f358fHyL+vmqsL1791JXLSEhsXHjRv7Wms/KyhozZgxVlYODQ05ODt8ltTUEMOgkEMAAAACgI6utrV23bh01yDNq1Kjc3NxGm2VmZurp6RFC1NTUUlJSGm2TnZ1tY2NDhY0JEybk5eXxWENpaamXl5eEhAR35EpLS2vGjBm7d+++d+9eZWXll42rqqpevnx579698+fP7927d/Hixd27d6eOYjAYDg4O586da83GXBwOJyYmhrtKx8SJE7Ozs/nopK6uztfXlxpj7Natm7+/f2tKEgIEMOgkEMAAAACg44uKilJTUyOEdO/ePSwsrNE2RUVFFhYW1Dy6K1euNNqGzWb7+/tTA0fy8vI///wz72M+r1+/9vb2HjNmDPXuFpeIiIixsbGtre2AAQOoiXwNGRkZ7d69u9HRuRZ58+aNi4sL1Wffvn2buhXfFBcXZ2xsTPXj5ubWmjfQhAYBDDoJBDAAAAD4LhQVFU2aNImaCujl5VVXV9ewTU1NjZubGyGETqfv3Lmzqa4KCgomT57MHZVydna+c+cO75XU19c/e/bs1KlTnp6egwcPphb54BIXF9fS0hoxYsTUqVNXrFixY8eOJ0+e8HG9X8nNzfX29paRkSGESElJbd26taamho9+3r596+rqSo0o6ujo8L4wSbtDAINOAgEMAAAAvhdsNtvX11dMTIxaqe/169eNNvP19aXT6YSQBQsW1NbWNtVbcnLy3Llzue9lDRo06OjRo3xMDqyqqoqLiwsPD3/69GlhYWFLD29efX19WFjYxIkTuTtxTZ06tal5mM1jMpm+vr7U8J2kpKSXl1d5eblgq21TCGDQSSCAAQAAwPclOTlZW1ubEKKkpHT9+vVG24SEhEhJSRFCRo4c2Xwoev/+/ZYtW1RVVal4061bt59//vnFixdtU3sLvHv3btu2bVpaWtyBtTlz5iQkJPDX2+3btwcOHMh9bezVq1eCrVYIumYAw0bMAAAAANDOhg0blpKSMn78+I8fP06YMGHlypV1dXVftXF2do6Nje3Vq1d8fLypqWliYmJTvamoqGzcuDEnJycoKMjMzKy4uHjnzp36+vq9e/devHjxxYsXi4uL2/iC/kdNTU1kZOSMGTM0NTV//fXX3Nzcvn377tq1682bN4GBgWZmZi3tMDc3d+rUqWPGjElPT9fX14+IiLh27Vrv3r3bongQOAQwAAAAAGh/1FIcvr6+IiIifn5+tra2b9++/aqNiYlJUlKSqalpTk6OpaWlj48Pm81uqkMxMTEXF5eEhITk5OR58+b16NEjJyfn2LFjM2bMUFZWNjU19fb2vnv3LpPJbIvLKSkpCQ8P37Bhg4WFhYKCgp2d3cWLFwkhU6dOjYyMzMzMXLdunZKSUku7LS0t/fXXX/v163f58mVZWdmdO3c+ffp03LhxbXAF0FZoHA6nvWsAATMxMXn06JGTk9OVK1fauxYAAACAlomJiZk9e/bbt2979ux58eJFahXELzGZTG9v7927d3M4nLFjxwYEBPTs2fOb3bLZ7NTU1KioqKioqLi4uNraWupzKSkpfX19XV1dXV1dPT09PT09XV1d7irzPOJwOIWFhYWFhWlpafHx8ffu3Xv27Bk3HNLpdENDw6lTp3p4eFALP/Khurp6//79O3bsKC4uptFos2fP3rlzJ9+9dRCurq6BgYEBAQHUXMQuAgGsE0IAAwAAgO9aYWHhnDlzbt26JSYmduDAgUWLFjVsc/PmzXnz5hUWFiorK589e9bOzo73/quqqmJjY6kwlp6e3vB5uFu3brq6uhoaGjQaTV5enk6nS0tLi4mJSUhIUFs/l5aWvnv3rrCw8O3btx8+fCgqKmKxWF/2ICEhMWzYMEtLy5EjR44cOZJaJZ8/dXV1J06c2Lp1KzUkaG1t/eeffw4fPpzvDjuOrhnARL7dBAAAAABAiJSVlW/evOnt7b1jx47FixenpKQcOHBAVFT0yzb29vZpaWnz5s27efOmg4PD8uXLd+3aRa2m+E1SUlL29vb29vaEkJKSkszMzKysLOpPSnFxcVJSUlJSEu819+jRQ1lZWUdHZ8SIEZaWlkOHDuUuxsg3Dodz6dIlb2/vrKwsQoihoeFvv/02ffr0VnYL7QsBDAAAAAA6HAaD4ePjY2Rk5OHhcfTo0YyMjEuXLikrK3/ZRllZOTw8fMeOHRs3bvTz80tMTDx//ryOjk6LTqSgoGBqampqavrlh4WFhZmZme/evSOElJSUcDicioqKurq66urqmpoaQoiMjIyampqysnLPnj1VVVWVlZW/yoetxOFwwsPDf/311ydPnhBCDAwMtm3b5uzsTG32Bd81BDAAAAAA6KBcXFz09fUnT5587949c3Pzq1evchdep9Dp9A0bNlhZWc2ePTs5OXnw4MGbNm364YcfWjn6pKys/FXYE5ra2trAwMC9e/c+e/aMEKKpqbl582Y3NzfupmHwvcMqiAAAAADQcQ0ZMiQxMXH48OGvXr0yNzf/559/GrYxNzd//Pjx9OnTy8rK1q5da2BgcP78+e9upYOPHz9u3bpVS0tr4cKFz549U1dX37dvX2Zm5vz585G+OhMEMAAAAADo0NTU1GJiYtzd3SsqKqZOnbp+/fqGq88rKCgEBwdHRUUZGxvn5OTMnj172LBht2/fbpeCWyo7O3vlypVaWlobN2788OGDkZGRv79/VlbWihUrWv8iGXQ0CGAAAAAA0NGJi4ufOnVq586ddDp9x44dLi4uVVVVDZuNHTv24cOHp06dUldXf/jwoY2NzcSJE6m5fB1QfX19RESEk5OTnp6en59fdXX1hAkToqOjU1NTFy9eLCEh0S5VFRcX37p166+//vrxxx9fv37dLjV0bngHDAAAAAC+Dz/99NPAgQNdXFyCg4OzsrKuXLmiqan5VRs6ne7u7j5z5kxfX98dO3aEh4ffvHlz/vz5Gzdu1NDQaJeyG0pOTg4KCrpw4cL79+8JIRISEq6urqtXr+7Xr5/wi8nPz3/8H6mpqbm5udwv9e3bd9WqVcIvqXNDAAMAAACA74aDg0NiYqKTk9Pjx4+HDRsWEhLScKdmQoikpOSGDRsWLVr0+++/Hzly5Pjx46dOnbK2tp47d+6UKVPk5OSEXzkh5MWLF+fPnw8KCqKWlSeEGBgYzJ07d9GiRcJc8+PDhw8PvvDx48cvvyojI2NkZDR48GATE5OZM2cKraquAwEMAAAAAL4nBgYGSUlJs2bNioiIsLGxOXjw4MKFCxttqaSk5Ofnt2LFii1btly6dOnWrVu3bt1aunSpo6PjnDlz7O3tBbt2fKPYbPbTp0+jo6P//vvvlJQU6kM1NbVZs2bNmTNnyJAhbV0AIaS8vPzLxJWXl/flV3v06DH4P4yNjXV1del0vKbUhhDAAAAAAOA7o6CgEB4e/vPPP+/Zs2fRokVPnz7ds2ePiEjjT7Z9+/YNCAjYv39/SEhIYGBgbGzshQsXLly4oKSkNHPmTBcXF1NTU8Emsbq6uocPH8bGxt67dy8uLq6kpIRbtrOz85w5c6ysrNo65GRnZ9+/fz8xMTE+Pj49Pb2+vp77JTk5uSFDhgwbNszU1HTYsGFaWlptWgl8BQEMAAAAAL4/DAZj9+7dhoaGnp6e+/fvf/78eXBwcLdu3Zpqr6Cg4OHh4eHhkZ+fHxQUdO7cubS0tIMHDx48eFBMTKx///6DBg0yMjIyMjIyNjbu3r17i4opLi7Oz8/Py8t7/PjxvXv3EhISKisruV/t3bv3qFGjHB0dx48f33ZLa9TV1SUnJ9+/fz8+Pj4xMfHDhw/cL4mKipqYmFBxa+jQoQYGBhjjakcIYAAAAADwvXJ3d9fX1586dWp0dPTw4cOvXr3av3//5g/R0NDw8vLy8vJ6+vRpYGBgaGhoVlZWampqamoqt02vXr2MjIzU1dXl5eXpdLqoqKiMjAwhRFpaWkxMjBDy4cOH/Px8KnTl5uZ+Gbco/fr1GzVqlKWl5ejRo9XV1QV93f+PyWQmJyffvXs3Jibm/v37X64MqaysbG5uPmLECHNz86FDh0pKSrZRDdBSCGAAAAAA8B0zNzdPTk6eMmVKSkqKubm5n5/fvHnzeDlw0KBBO3fu3LlzZ2VlZVpa2pMnT1JTU58+fZqWllZQUFBQUMB7DfLy8hoaGlpaWrq6uhYWFpaWlm23qAaTyUxKSrp79+7du3cTExO5oYtGow0cONDS0tLc3Nzc3Lxv375tVAC0EgIYAAAAAHzf1NXVY2NjFy5cGBQU5O7ufunSJX9/fzU1NR4Pl5aWNjMzMzMzo/6Vw+G8evUqNTX106dPJSUlHA6HyWRSY1wVFRV1dXWEECUlJQ0NDSp0aWpqCmFZxaysrIiIiIiIiDt37nAH3Gg0mqGhoZWV1ejRo0eNGtWjR4+2LgNaDwEMAAAAAL57kpKS586ds7e3X7lyZVhY2MCBA319fd3c3Pjoikaj9enTp0+fPgIvsqXKyspu375N5a4v90Q2NDS0tra2srIaNWpUS19Xg3aHAAYAAAAAnYSrq6uNjc2SJUvCwsLmzZtHDYWpqqq2d10t8+LFi9DQ0PDw8Pj4eBaLRX2opKQ0duxYOzs7Ozu77+6K4EsIYAAAAADQeaipqV27du3s2bOrVq26du1aXFycn5/f3Llz27uub2CxWHFxcWFhYdSiINSHIiIilpaW48aNs7OzMzExwdKFnQMCGAAAAAB0Nm5ubmPHjl28eHF4eLirq+vFixePHDnSAQeOSktLb968ee3atRs3bhQXF1MfKikpjR8/ftKkSePGjRPC22UgZAhgAAAAANAJqamphYWFnT59evXq1aGhoVFRUa6urqtXrzYwMGjv0kh2dva1a9fCwsJiY2OpVT0IIQYGBo6OjpMmTTI3N2cwGO1bIbQdBDAAAAAA6LTc3d1tbW1XrVp1+fLlo0ePHjt2zMHBYc2aNTY2NkKupL6+PiEhISws7Nq1a8+fP6c+FBERsba2njhxoqOjIxaO7yIQwAAAAACgM+vVq9fFixdfvHjh6+t79uzZ69evX79+3cjIaPXq1bNmzRIXF2/Ts+fk5Ny9e/f27ds3btz4+PEj9aGioqK9vf2kSZPs7e0VFRXbtADoaBDAAAAAAKDz09fXP3z48LZt2/z9/Q8cOPDkyRN3d/cNGzYsXbp0b9tSVgAAIABJREFU4sSJhoaGIiICezB+/fp1TEwMtVdybm4u93NdXd1JkyZNnDjR0tJSgKeD7wu+8QAAAADQVXTv3v2XX35Zt27d+fPn9+7d++TJk40bN27cuFFaWnro0KHm5ubm5uZmZmbKysq898lkMnNycl6+fPny5cuHDx/GxMR8Gbq6d+8+atQoKysrOzs7fX39Nrgm+M4ggAEAAABA1yImJjZv3rx58+ZFR0cHBATcv38/KysrJiYmJiaGatCnTx9zc/P+/ftTK79zZwkqKCjQaDQ2m/3mzRsqcWVnZ+fl5dXX13/ZPzd0WVlZDRw4EMvHw5cQwAAAAACgi7KxsaFW4/j48WNiYmJiYuL9+/cfPHiQnZ2dnZ3NYycMBqN37959+/bt06dP//79qdBFo9HasnD4jiGAAQAAAEBXp6SkNHHixIkTJxJC6uvr09PTExIScnJyCCEcDqekpIRqVlJSwuFwCCE9e/bs+x/a2tpiYmLtVzt8ZxDAAAAAAAD+i8FgGBkZGRkZtXch0DlhQioAAAAAAICQIIABAAAAAAAICQIYAAAAAACAkCCAAQAAAAAACAkCGAAAAAAAgJAggAEAAAAAAAgJlqEnhBBSX/X5UzmT07pOaBIKyvLigikIAAAAAAA6IQQwQghhvz40of9PCXWt60Vi+sWS4GlIYAAAAAAA0AQEMEIIIeLdeiiI0orqWjkGJlj79u3z8/Pj48CCggJCSGRkZJ8+fQRdFAAAAACAYBQWFrZ3Ce0AAYwQQugaC64WOKbdPLtv259nHnxkcQghNGkdMws9eRrvvYgZ9xToK3VpaWmvXr3i+/Dq6urWHA4AAAAAAAJH43A61KhPe6v994DjyJWRxWwiYrD+ftqfw9oxobLZ7JycHD4O3L59+8mTJ729vRcsWCDoogAAAAAABGPt2rVXrlwJCAiYO3due9ciPBgB+1/iBku2LT502yeD1d6VEEKn03V0dPg4UF5enhDSvXt3/g4HAAAAABACGRmZ9i6hHWAZ+q+JGjvY9mK0dxUAAAAAANAJIYA1IDJwiKFoC179AgAAAAAA4A2mIDZAkzMe52Rd8VFdRw4xDAAAAAAABAgBrCERo+V/Ry9v7yoAAAAAAKDTwRREAAAAAAAAIUEAAwAAAAAAEBIEMAAAAAAAACHBO2Cd1vbt2w8cONB2/X/8+LG8vJzBYNBoWKxEGOrr6wkhDAb2SBAGDodTX19Pp9PpdPwtlTCw2Ww2m43fJ8JB/XjTaDT8PhEO6objx1to6uvrORwObrhwUD/eUlJSKioq/PVQWFgo2JK+CwhgnZC2tjYh5NOnT58+fWrrc7FYHWDL6q6EzWa3dwldSH19PZV7QTjw+0SYOBwOfp8IE368hQw3XJgqKytfvXrF9+E0Go16du06aBwOp71rAMHLzc1t6wfHBQsWxMTE+Pj4mJmZtemJgBBSVlbm6OgoJycXGhra3rV0CSEhIfv373d2dl6xYkV719IlLF26NCMj4/Dhw/369WvvWjq//Px8V1dXDQ2NgICA9q6lSzh58uTZs2fnz58/b9689q6lS3BxcXn37l1QUJCamlp719L5paen//jjj4MHD7506RLfnUhKSqqqqgqwqo4PI2Cdk5aWVlufQlpamhBiaGg4evTotj4XFBcXE0JERERwt4XjyZMnhBB1dXXccOGQlZUlhAwZMsTU1LS9a+n8MjMzCSGSkpL48RaO27dvE0K0tbVxw4VDUlKSEDJ8+HAdHZ32rqXzExUVJYRISkribrcIXm8AAAAAAAAQEgQwAAAAAAAAIUEAAwAAAAAAEBIEMAAAAAAAACFBAAMAAAAAABASBDAAAAAAAAAhQQADAAAAAAAQEgQwAAAAAAAAIUEAAwAAAAAAEBIEMAAAAAAAACFBAAMAAAAAABASBDAAAAAAAAAhQQADAAAAAAAQEgQwAAAAAAAAIUEAAwAAAAAAEBIEMAAAAAAAACFBAAM+ycvLc/+EtiYpKSkmJoa7LTTUrZaTk2vvQroK/D4RJllZWTqdjrstNNRvEtxwoZGXl2cwGDIyMu1dSJeA3978oXE4nPauAb5LRUVFjx8/HjduXHsX0lU8fPhQRkZGX1+/vQvpElgs1s2bN62traWlpdu7li6hoKDg5cuXo0ePbu9Cuor79++rqqr27t27vQvpEmpqam7dumVraysuLt7etXQJr169+vDhg7m5eXsX0lXcuXNHX19fTU2tvQv5niCAAQAAAAAACAmmIAIAAAAAAAgJAhgAAAAAAICQIIABAAAAAAAICQIYAAAAAACAkCCAAQAAAAAACAkCGAAAAAAAgJAggAEAAAAAAAgJAhgAAAAAAICQIIABAAAAAAAICQIYAAAAAACAkCCAAQAAAAAACAkCGAAAAAAAgJAggAEAAAAAAAgJAhgAAAAAAICQIIABAAAAAAAICQIYAAAAAACAkCCAAQAAAAAACAkCGAAAAAAAgJAggAEAAAAAAAgJAhgAAAAAAICQIIABAAAAAAAICQIYAAAAAACAkCCAAQAAAAAACAkCGAAAAAAAsMrf5+Xmfaiob+9COjsEMPgau+TZ5Z3Lp1sZaqsoSIlLyHZX0zMdP2+Df/TrSk6zB1a/ijywboZlf80eMpKyyloDR89ef+ROXq2Qyu5Mqh9uGSZNpzFUPaOYzTXDDW+xuvi1fURozRLpu+5+XaMH44bzqf7T0yt7VkwZObC3iqyklIKq/ogpy/feyK5s9iDc7ZZgPdjQT7T5H+z/onefH97wNwtuOD845ZnX962ZNcZIW1leUlxKoafOEDvX9Udu51Q1fxzuNp/Yn59e2vHjVIv+mj3kJKUUVfsMsnL5+eDNrOZ/m+CG864qcqVRb23dWaffsr/Zlr+7iu/F/+MA/Ff9h9ubxvQUoTX2o0KT7DvVL6WU3eiBVWlHXQxkGh5Hlx+08PxLppAv4/tWHvfzIHEaIYTec0lkbRONcMP5UxLgKNnoj/d/MfqsjW94A3HD+cTMDf/FWlW04Z2jSfdzPfNvTaMH4W63VF3yegOR5n+wv7j13dzD/vc3C244P+oL726z1xBr7BcKTbLvVL8HJfjfpUDVvv5nlZlSYw8oNGm96QdSyhq/37jhLVEaOk+FToiY1f68+mYb8ndX8b34L55/Y0MXUPvMd6bz1rslbEJoEj0H244fbaipQC95nRIVeut5Mav6ZciqiSy5hMvztP935JSdd87NYVnIGxaH0KS0LR3Hm2pKlGXHh4Ulv60tfXrCfbyI/P1DDt2/8dwLhBDCKYn+xWNvWm2zg4244fxi5bzMqeMQQpfVHKivLNZoG4a6+tf/e8AN5xOn8Prycc5HX9RyCE2y13CH8eZ95WoK0mNv3HpeXF+ZEbhokoxK0kE7xf+5c7jbfKBJ9xpoMlSm+UlD9cXZT15/ZhNxbR2NL36H44bzpfqhj5PjxoQyNiE0SY3hDvbmej3Eqt+mx9yIevKBWf0yZNWEKvG40MW6//uYhbvNJ3ZB8AKrOUG5LA6hiXTvb+s4zkRDvDjzcWLcvcdvqiozL610rJOKvTi/z1ePtbjhLVHz9OCfFwu/PfTF313F9+J/tXcChA6D/e6skyKdEEKT6P9/7d13YBP1/8fx9+eSdO/SMkoZLXvvjchQpmwHggNBFBUEZQmK4hZFRcSBggpORBAFFBDZG0T2HgVKKZRRupvk7vdHC5Q2rSXQ0++P5+M/crlc8jp6l9eNTx75dn9KjknOhLWvtg7VREQsEQMWJl4735k595fURER5VHzg20NXj2gnb5/atbRFiShrpWErk0z6GP/T9LO/Dih/5fhePmfACNx9qT/3DVQiyrfX95cKPROBu8l54suuoZqIKL/ag+ccvhqcPX7Viy2DNBFRtmrPbbzmPzlpFxX7gQ/bBWmifBq8tCX16sME7hbHwfdv81UioryrD5pzJMeZXD1p57TeZa1KRLRivb45fc1ZGdJ2k/P4552zvp9YI7tN3nQ+x8mZtKPzn2kUpImIFtx5+olrT9sQeKFlxP81+/k7S2dfrVDgGTD3UmVd5EIBQzbnialtPJWIWGuN25L3uiDn0SmtfZSIaOH9F+QsZ46dL9e1KRFlqzZiTfK1M+kJvzwcaRER5dPu4xMFn86G4Tw1u09pi4iyWq35X4JI4O5zHnqnmYeIWKuM2WQv7EwE7qakZU9GWUREC2n/8aHccTuPf9YpSImIFvH40rSrj5N2EbEfmNI2SBPl3+KtHTm3KgTuFsfeNxraRESsVUauS8s9Vb8w/8Gsb5q+nWbE52hgpO2mjHUjKlpERNlqjFqbnGey89QP95WyiIil/NMrc359IfB/oieum/LE/XfdVjPCz5LzzFNBBcy9VFkXuVHAkC35pz6BSkRstSfscLiY7jgwsYlNRMSj2TuHrv59OHZMqGMTEeXd5sOYvH829u0v1bZmTZ76DxcU3+qcMV91L66JspTtO+ahrC+urgoYgd+AjD8eL6mJKM+O08/mc7dAHgTuHv38d70ClYhYq47e6OpWxqTfnmlcs0aNGnV6f3zgyhaHtIuG48CUtoGaKN9mb+265jYLAndP+s/9ArOOHzyxzNX/7uTZd/spEbFEP7vuauCk7Sb7ptGVrSKifNpPO+Vy0+3Y9Uo9m4hYIp9YdrUQE/g/0mM/auPqYvwCCph7qbIu8mAURGTRE06cTDNExBJZLtLi4gmaf6C/JiJipKamXblDST+2dPEeu4jYGtzVuXTe/07Wal06V7SKGOnrf/vzQsGjKN7SHIemDRr+S7xhjRr4yaS7wvL9wyTwG2BcOHzkvC6iFa8QHVjIy8wJ3E2Xlv385yVDxFr17vvqudrB+3WYtGHHzp07t/34eMXLWxzSLhJ6zJfDXlyeaHjXH/Xh09VtOacQuHsMQ9dFRJTN5mKAGRGrl1fWrUhO59X78kjbTUbSnt3HHCJirdSsSbjLTbel0u2tSltEnHHLluxwZD9I4IXgV6/PqDFXPd0p9010ubmXKusiLwbhQBYtrNeU5Q2SDWUJqxLo6gn2w/uOOEREeZSLirjy15O5b+d+h4hYIho0jHDVGqzVGtf3V3svGJn7dh10SKjNxXOQueeDAaOXnDdslZ+Y9lb7kL3L8n8mgbvPcfTQUYeIWKIqRVmM5OObV67669DpZMM3tFR0vZYta5V0MUAigbvHvnPtpkuGiFa8Zatqhd7PkHYR0ON+GDHu9/OGrfrQKSPqel4zjcDdZC0bXdYiuxx67Lo1h5wtq+Y6aJnx16qNyYaIspaLLnNlGmm7yUi8kGiIiCgfP998Dp1pwSHBmhx1Oo/v3Z8kjYJFCLwwVEDjga80vvJP49wX2z9ZdNhRwBzupcq6yIsChmw+pWs3K53v1LRdn7w866hTRAvrcn/7oMubQD123/4kXUQsZaPLujpvJmIrU760RS449JP7DiQbTYILeeLhVpK+beIj41dfEs8awz5/rU2gcv0jVCJC4Dcm/ejhWF1EeXvFzn68+TtfbTideeVAm9L8K3Ye8upbz91d1S/HLATuHuPSoQNxuohYK1bNGgUuPe6vFSv/PhJ3PsMrtHSlBq1a1Az3zD0Xad98xsXfx4+ZF69bIh54fVRjn2snEri7rLX6Pdpi8rAVl+xbJw2ZdMfckQ0CriSjn13+4tOfHHSIaGFdBva6crSftN2lBYUEaiIizrgTp5wS5er7u+PUiTiniBj2Y4ePOyTYSuBFw71UWRcuUMCQD+PiwQ1/xyReOn/62J4NC7/5eumhFEN5V+7/8aRexa7uac4nXNBFRNlKlCzm+rI5S/FS4RYRh6GfTzhvyC3wR3WdUta/3P+1TSniVXfk9Jda+BX8ZAK/Ac6Yw0fthogk/v7miNwTDT3pwK+v37d6ycbvF7zdvviVQwwE7hbniSPHHYaIspUoFZKw9v3hgyf8sOui82rftYbWvnf0O28NbxuRYydE2jddxl/vjp15wqkC7hj3UpeQ3GkRuNsslZ78etb+zv0+3n5u2Zjbaiy4u+9dTSuF2VLjdq+c++3PW+PtooU0H/vDp1nDvokIad8Av9r1K1kX7HA4TyxZtD2zRYO81zQnrfxpcdbo6UZKUkrWhobAi4J7qbIuXKCAIR/2TW/36PhZ/JXfg9AC6jzy7vS3+9cLzvHHY6Qkpxgiorx9vPO5bUl5+2Rd2GWkJqfeGhf2Xgcjcfm4AZN2pItvo3HTxzXy+cfnE7j7HMcOHsu6skJZw5oMfGHcoO7NqpTwcZw/tv3PH6e+8c7snYn6xS3v9X2owoaFj1fIOkhH4O65mlvKymFtpk3fnX5tMobj3N/fjO64avUHv/34eHXPPHOR9k2hH/viuck7Mg1rpUdf6l8ub6QEfgMsEV0/XL26at+Ow36NO7F65purZ16dpjyrPjJrwYd3R3nlmIG03Wat3rN3zTd2bst07PtoxOR7F42sfc2+0hm/aPSwL49n3W1npKRkR0fgRcG9VFkXLjAIBwpJT9rx/etj3/xpf2qOB430tKwBOTw8XP+obY5JRmrKrfFHVXjGud9HDpy6L1P8m784fVRdr0LMQeBu0+MOH00xRJRnxQe/2bzy4yGd60YGe9s8/YtXbtHn+e/WrXizTbAmop9b+vLLCy7fBEzg7rk8VI+e8OsHn+/O8IrqOHr6H7tiE9MzUs8d3fTTW31rBWpi2E8sGHbP86tTrsxF2jdVyspJE/+8ZCj/ts8+3cTV5oXAb0TmsQWvDX9j8WkXv35tZOz7ftzIKauv+UVb0nafteYTrzxQ1qpET1w1pm3rQVMWbT95KcORcenUrqWfjejQqOcnezMu52WxZH+xJfCi4F6qrAsXKGDIh0e7j46npqcmnY87tPX3Gc/3rOpnpBxZPPG+Ft0+2J15+UnK08tLiYjY7fneuJSZmf30Av7wbknG6blPPzbjiEMFtX718+E1ChUOgbtPixz0a1xCQkLCmR0z7imb5w5fvzrPTHuxhY8S0U///NWii1k7AAJ3k35l8DflU2f4gk0L33ykbfVSAZ4e3iHlGvYcNWv172Mb+ioxMvZ+PH76keyvqaR9M+kxM1//6phTLGUeGNk30uW+nsDdlnlg+r0te05cfsqugus+8Mb3q/fFXUrPTLtwYucfM8beVdFHUg7OHX3nbY/Nj7vSwUj7BqjQzu/PfvX2cIsy9HObPhvauU5koJfNKzCi5p2DJv1x3O7faPjQO7N+GdvH1yfr6jUCLwrupcq6cIEChvxoVg9PT2+/4BLR9dr3f2XOhsVjG/go0ROWvTD661OXvzD5Zo1JZKSnpedzxMJIy56kfP3zG7/oVqSf+ObJp7474dRC7nxz2pOVC3kxMIHfAIt3YEhoaGhIgFc+l6BH9XnwNi8lYqRsWL01ay9B4O5R3j7ZX4KsFQdPfbVNaK5gVECTsRMfKWcRMVLX/Tg/JmuDQto3Uebmjz5YkWQoW/WHB7Xydf0cAneTY+/kh4fOP+kwtPCOU9aumznm3haVS/h72ryCStdo2/+1+Zv/eKFJgDLS988YMHhWLLvLm8Kv4ejf1s97oVtlfy1nNMparNGgaSsWv9DA02mIiObr55u1hSfwouBeqqwLFyhgKBwV0HTM+LvDNBEjafn8ZVljwooWGhaqiYiRGX/6vOu/KufZuDNOEREtODSY/2/ZjHM/jXzm59O6Ft5l0iePRrseFMgFAi9KKqRm7TIWEdEvxJ1OExECd5fy9csqYJZyXXs19Hb1FO+mndsW00QM+46tO7KOfJL2zXNp8cczDzhEeTUf+HDN/I7vELh77Os//WhTqiHKq/lzUx6vmufqThXYdNyHQ6pbRfTzi6bOOpB1Npi0b5hn1F0Tft4TF7NpwaxP3n/r9bfe/2TWwq0nTm78dEBd//jY004RUdYyUdk/ZUrgRcG9VFkXLtwSHxL/zLh4eOumjRs3btp5MjW/5/jUa1TDKiKG/cSx7GN6WkTlCr5KRJwnjp5wcSW8iDhOxsTqImIpWblS0C1xVKMwjKTY2ERdRD/zS/9yFnUtj6bvHHKKiH760zs9lVJKaaH9F2aKEHgRUz5ZtUGJUlnREbh7LJHls37+yBJRpnQ+xxesEWVKWkTEyLhwPmvYMtK+WYz4eZ/NjddF+bR+4J6y+e7nCdwteuzWraecImKt3qF9Pul61Op0ZxmLiOHYtWlb1k6VtG8Ozbd0g879Hnt61HOjnn6sX6e6JTxFRDIP7j3sFBFLZJWK2YMJE3hRcC9V1oULFDCIiIhj36d9mjVp0qRZpzc35neFrrJYss/8W6yXv1J5VKlZxSoizpitf51xdVjDeXDL35d0EeVRpWZhr7ND/gjcTUZyzLZ1a9euXbfxYD7H30RET4hP0EVEBZUIzz6qTeBuUcGVq5SwiIiReOFiflecpCSl6CKiPIKCs684Ie2bQ4+b/+2yZEOU7+29O4cX8F2GwN1h2O2OrGul/AP980tX8wvwVyJiGA579hdO0i469m0r1ybqIlpQo6ZXfvmdwIuCe6myLvKigEFERKzRlaOtIuKM/2trjO76Ofb9uw84RETZIiJLZP/P0crdcUcVq4iRufn3ZQl5/6r0Y38s2esQUR4NO7Ytdksc1CgUFdiw38gx+Rj1YONgTUSUb537sp80rHP2sOgE7q60Zc+3a9miRfPmnd/YkOn6KY69K1efdooon0bN62WP0kHg7rHVa9c6VBNx7FuxMtblFkU/sX59jC4i1so1qpD2zaSfnPf9qjRDlE+rXgX2LwJ3i6V4ZISnEhHnoT0H8jtgmXJgb4xTRLTQyNLZY6aTttscO97v3qRhw4aN27+63tXmO23dD/OOOUW0oHbdW/tffpTAi4J7qbIuXDAAwzAMx4G3m3oqEWWrMWZDqosn6PGz7yuhiYjyaj0lxnnlcfu28TVtSkR5N5u4155rptT1o6pZRUT5tJp82GmgUDLXj6hgERGtxGNLMvJMJXD3OI+839JTiYhWvMfM4y6y0eNm9yllEREtpMes0/qVxwncPcm/DYzQRMQS/fji83ruqfr5xY9HW0RE2epM2OG48jhp3zj91Kd3eisR5XHb5GP/FBOBu0E/Na29jxIRLbTrF642Jkbmvvda+SkR0cIenJ905WHSdtfFH+8L0UREK9nvp7O5NyeZ+95vHaBExBI9ZHlyzikEfp30hBkdPUVEPG6f4vJ/tmG4myrrIjcKGLI5Y6d3DlQiojwq9vtyzzUbMSPj5OLnW4ZqIiKWiIfmn8u5/dNPz+qRtWUMavnKxotXJzlPL366trcSEUuZQb8nmvQ5/h8ouIARuJv0uK97FtNERJR/o5FLTl2zB0g9PHd4o6CsAwx1X9xyTewE7h7n4altA7K+g97+4h+xmVen2E+veKVdcUtWHb5v9hm2JzeTnjCrm78SEWutF7fn/p7j4ukE7obEpYPLW7I2JnUG/7A/Jec058W/p/er4qVERHnVm7At59aEtN2VvHRw1m2lWokuk7flSC7t4A8Da2TX4W5fncz15Z3Ar0+hCpibqbIucqGA4YqMXe/enj32jLKF1ezwwFOjXnjpxXHPDOzROPLK72pUHvTr6dyHn+yHpnfNuiZR+VXsOOTNT76aNeOD8f1blM7aBdkqDJgfl+cIOPL1DwWMwN3lPP7dfWWsSkREaf5Rt907eNQLL40fM/ShznVKeGY/XOzOD3bnCZ3A3ZOx96MOYVm5aX5lGrTv88TIUU/17dS4XPY40sqj4qAF8WxPbq7keX2zvuVEDF7mcvuRG4G7QT+/fGTdy0Nse4TX6vjQ0DHjX3x+5OD7WlcKsmQPPBDa5p2/U3LNSNpucp6a3ae0JXvDUbJh9wHDx44b8XjvpqW91eUvJwvyfDkxCPz6FK6AuZsq6+IaFDDkoCesfr1jpKfry2+VrWSbcb+dyHQ544X1b3cu62JG5VftgS92p5n9Qf63/WMBI3C3pR+a82yrCA9X/8WVFljrkS/35P6+lIXA3aOfX/tW53JeLvJW1vCWoxeddHmGhrRvQOaa4eUtIqK8Ok4/U8gvMwTuDueZ1W91K+/tcn+ptICaD32+/ZKrFUDa7kre9mH3cq6Cs5VsPXZBTH6HGwi88ApbwNxNlXWRAwUMueiX9i2c/GyftnWjwv29rFZP/9BSlRp1enjMR4sPJRe4N3ee+3v2G491rB9dKtjb0zc0snKTHsPeX3gguaB54EohCphhELjb9MS9Cz587sE76lUsXczP09O/WOkqTbsPfvWbzWcKvl6LwN2jX9w5952h3ZtWKRPm5+npHxZZrUXvIW/P3XWxwN07abvHse/NRjYREWu1cVv/+QLEqwjcLWknVk0fP7Brk8oRof6eNq+AsDLVb+v95Bvfbz1bYPik7SbnhZ1zXnu0U4OoMH9PT7/wctWbdR/y7rwd5xz/NB+BF0rhC5hhuJsq6yKbMox8h2QGAAAAANxEDEMPAAAAACahgAEAAACASShgAAAAAGASChgAAAAAmIQCBgAAAAAmoYABAAAAgEkoYAAAAABgEgoYAAAAAJiEAgYAAAAAJqGAAQAAAIBJKGAAAAAAYBIKGAAAAACYhAIGAAAAACahgAEAAACASShgAAAAAGASChgAAAAAmIQCBgAAAAAmoYABAAAAgEkoYAAAAABgEgoYAAAAAJiEAgYAAAAAJqGAAQAAAIBJKGAAAAAAYBIKGAAAAACYhAIGAAAAACahgAEAAACASShgAAAAAGASChgAAAAAmIQCBgAAAAAmoYABAAAAgEkoYAAAAABgEgoYAAAAAJiEAgYAAAAAJqGAAQAAAIBJKGAAAAAAYBIKGAAAAACYhAIGAAAAACahgAEAAACASShgAAAAAGASChgAAAAAmIQCBgAAAAAmoYABAAAAgEkoYAAAAABgEgoYAAAAAJiEAgYAAAAAJqGAAQAAAIBJKGAAAAAAYBIKGAAAAACYhAIGAAAAACYNqhrDAAAQIElEQVShgAEAAACASShgAAAAAGASChgAAAAAmIQCBgAAAAAmoYABAAAAgEkoYAAAAABgEgoYAAAAAJiEAgYAAAAAJqGAAQAAAIBJKGAAANxMRmrsyfPGv/wmHOnJqRnOf/tdAADyooABAEyiJ+6Z/96z/do3qBhRLMDLw9M3qHhUnVY9n3j9uy1nHfnPlnrot/eGdm9cKSLYxyc4olKTHsOm/BGTIUbcJ+28lFJeHacnuCoa9vgNs15+vGuTKmXCAnz8wsrVaNzu7iFvz915US/gLV7XspwH327ioZTm12duhoik7J83/u5G5UN9Ahu8utV+9TUdZzd/8+rg7k2rlgkP8PbyKxZRsX77h577aOnRNBdvIPPPJ0pblFJe7T+Ld/mpVg8rZ1VKebaZevLKB8n8fWCYRSlb9ef/cujnNk4d1LpSeECAr5fN5hMSUbFhl8de/e6vc84CPjYAwEQGAABFzn5y0ajmxazK5a5IWUKbj1t+Vs87W/qBmQ9V88s9l9KC6j05Z/0HbT1FxLPD53nmTNv71SO1gjQXS1PWsObPzj+W6eItXveyHAcmNraJKN/7fkpL2jKxbVj2QU2txGNLMrKeknH4h8H1gi2uPrbyLt/t3U0Xc731jGWDIzQR8bxz2mkXeRiZq54uaxERj9YfnnBemem3AcU0EWu1Mb98/3C0p8uPXbzl2KXxThevCAAwl7WgcgYAwM2QvuWVrr3e/ivNEGUNrd6uc5u6UeG+KjUhZvfaxYu3xKY7z61984FRTXdO7xyUoz0Y8T8P7jBg5hG7obSACm26dW4SHWiP373y14UbT/710f3dS/jbXS3McfCzu1sPXnjaaYjyjmzUsWPLGqX9HAmHNy9Z8Of+C46za9+9u23Cd6tm9Cyl3fCysugJC4eNGPvnhaAaXXp3va12VGTdGlYR0eN+Gtim39cxdkOUJTD6ts4dGlcMsybF/P3nwqXb4zPSjs4fcWdX58olI2p53pSU9VNfP/HoqZMZhvIsXueOTrdVK25Nitm27LdVBy86HPGr3+jRUVuy6pWmvjdlYQAAd/3bDRAA8P9e0ry+oZqIKL/G41YlXHsaJmX31M7hmoiooH4/p+aYoJ/7tX+kRUSUb+0hvxzPyPFyuz+/p5ztclPLdQbMvndSS38lIlpIs9ELY9JzvKLz3KYpPbNm1Ir1/PqUfoPLunwGzFq8VLgtvO3ra8/l/Gj66e/vKa6JiGjFWk9YHmfPMSlxx2d9oj2UiCifJm/uyjHpRs6AiYiI8qzUb8auSzne5dn1k+4qbVUiojxrjtuU7uJVAQDm4R4wAEARcxzYsi1RF9FK3v/yuJah1+55fKoNGNI1TBMxUk/Fnr96f5Z+7Ot3vj/pFOXTZPx3794V6XF1Fr9qA6Z/MTja4mpZSUsnvbcuyRBL5AMzfn6jU5mc55a0kIZPzfpxdG1PJfq5X9+etvPyjWduLiub4Yg/bXR97+sxzUJyfDTn/i/fnX9GF7GUe2TmnBduL5HjkhMVUHPgF3Oeb+CtxEjd/NHUFakFvPx1UX7NX5k3o391/6snEi3Fmjzzw9zn6ngpMTJ2fzZ50UWG5gCAfxMFDABQxCwVBn69dsOGDRuWTmjlnXeysliydka6nqN/HZ33w/o0Q1RAxyEDq+S5Xt6v5RMD69vy3uyUuvy7eaecojwaPDW2S5iLm6F86g8Z0tZbiWHfu3hpjH4jy8rxAUv1erxHiWue4Tz8y7xtGYYor6ZDx7QPyTu3Z+2nRnUL0UScsb/+vDGzgFe/DlrJ+8Y+Uc2W53Hvhs+O7x2miehnF85ZftPqHgDADRQwAEARUwHl6jZq3Lhxw2olct/s5Lh0eNnkyQvO5BmZMGnzuh12EbHVa90yyEX5sUS1alUuzz7MsXPNhou6iKVcq1ZRrs9aqZC69cpbRMRxaO9Bxw0sK8dLetRtVt/r2seSt2zY5RARa41OHVzPq4LadmrupUSc8Vs2H7spYxSqwDZdWrm+xSvwjh5tA5SIkbxlw+4ChpwEABQ1BuEAAJglPX7X+rWbd+49cOjw0aMxx2KOHjl8PCHV1a9VOeOOxmQYIlpAVHS4y/5iLRddzioHry0ujtgTcbqIOA5MbGKbWPCb0ZMSzmWIeLi7rKtUYKkSvtcWN/3sqdN2Q0R5VqxSPp/rF5V/pcoRmhx06qdjT+tSqaDLHAvHWqF65fzG8/CqWrOC9bstduepE7EOdv8A8O9hCwwAKHrph+e/PmLslF/3XrymbilrQGSDFlXt65Zuv/bnuYzEi5cMEVE+vj75DF3v65dnipGSeMle6DucjIz0DEP8lXvLyjnZ2yf3ZD05KVnPmtM333Nnyj/QXxNx6pcSkwr6cbJCU37+eYbRv0wLDArURMSwJ15MMcSroEsqAQBFiAIGAChijoPTerV84rd4p6E0nzKNO3Ru16xu9UoVoqKjK0SVDvFyrhle+Y/tF6+ZRXn7eIuIGGkpqa4blZGWlp57ivLx97MoEcPW8LmF0+4NL7hkaP6RQcrtZV2z3LyP+Pn7KhExUpNT8u1WRkpyqiEimq+fT6HvCND1/N+JkZKckt9UPSXrnSiLj6837QsA/j0UMABAkTIu/Dx+7O/xTkMLbDrqxzkv31Eq1yARrq7s08JKhFmUOPRLx44mGFIqb2NwHj9yPM+c1hKlimty1Gmk28Jr1K5duH2cm8sqkKVYyeI2JXYj/dD+Y06p4vLywpRDB046RUQLL1m8sAXMceF8Yr6Nznl4z4FMqexioBORzP27DzpFRCtWsnjeUToAAKZhEA4AQJGyb/tz1QVdxFLmoTcn5GlfImJkZGTkOZcV1rBxBYuIZP61Yk2ii7M6esyqVUfylCJbraYNfJWI8+DKVbGue4pxbsX7w4cOGTJ01Fc77DeyrIL5129S3Soijl2/Lznh+p0kLl+0JtUQ0Yo1bJR3nHun09US7Ts3bMn3JJfoF/9cuNr1GIdJy+ctuaCLKO8GTWtTwADgX0QBAwAUKSMtNc0QERUYEuTiRJBxYcWcJfF5Koq1Zq+eVW1KjIuLpn6Zd/iLlHUff7YxM28T8W/bq0OIJkb6mknj58e7aCppm98dOmrylA+nTt+WGmK5oWUVyFLxrm41PZQY6Ws/mLjMxU9vZe786K25Z3URS6ku3ZteGTpDaRZNiYjj6IEj9tzzGGd/+WDWwQLGMHTGfvvap/vyzCfp2yZP+P60LqIC2/VoG3h9HwUAcFNRwAAARcpavlKUVUSce+d+s/HStU0k9eCc4R3vm3Y4q/TY7Tm6ha3O4LHdwzUxkleP7zt6cVyOSan7Zz728JT9juzXUjmuGVSh3Z4ZVM1DiTPm6/5dh887nJZjaXri9o/79p64y26IVvLuIX0iLu8D3VtWwSzVHnmmSzFNDMeRaQ/c+9baszmKnZG854tHek3YmGqI8mnw5NB2flcmaRFlSmki4jw289Vpe9NzvKCRuHlSvye/O1XgcB1G0uqxPR/7dn9Kjk99fvOU+3u8vDnVEGWr2P+Znv9waxwAoGgpw7jOg3oAAFwP56EP2tUdtiLZEOVfudPDD3ZpGB2spZw9un3lL7N/2XLaEVCxgveRA6edyrvWI+++1q9x7cZ1I7NGxTjz66DmvacfyjSUJbhq+55dGkcFOM7sWfHz/DXHM8vf07vkvO/WZopX92/OzLvf/+ryUje/3KbtSxuTDBHlXapBhy631yoT4Eg48vey+Yt3nXcYomxRD81eN6N78RxNxJ1lOQ++3bz6qI12S9TwlfvebZ7nwj499oe+Tfr9cNJhiLKGVG3XrWPjCqFa0vG//5i/aGtchiGiBd/+zqrFw2t45EjrwLu31x2xJtUQpQXX6P7gPa1qlQ8xzuxZ8eNXszecyhQfP5/0lBTd1vrDw388WTqrQmb+PjCi8/QE3RIeWfLSyZPp4h3RqGOX26qFWy/FbP1jwfK95+2GiPKu+exvaya2CqCAAcC/ygAAoGhlHp51f7SLgc+VJaTuo1/tvrB+VCXr5akeLd476swx57f9q+UeWl3ZIu+asi32q7u8RET59pmbnmt5+vm1b3Yq43KkdWUJbfTUnCOZLt/ldS7LcWBiY5uIWKKGr3H1goZhpB/85tHagZrLd+IT3XPylkQ9zzxpez7pVtrmchZb+Qe+nnKPnxLxaP3hiSsxZfw2oJgmIp7tpm766cm6QXmXp6zFmo5cdMpxPWsNAFAkuAQRAFDUbFH9vt6y6YdXHulQPyrM39PDO6hEdP1Oj06YtWH/5mkPVgtqPGbGG73qRgR4eviFR1comaM52aL6zNi87Ze3BnWoXSbUx8svvHz9u4Z99OemuU/Vcl5K0kVECwkNyb0vU8HNRi/cs3PRlJF929YuXyLI2+bhGxxRtVm3x177duOetVN6lXc1DIV7yyqYZ4X7p23Zv+7LCYO6Nq5cupifp4dPcMmounc+OObjpXt2/TS0vovTUV5VH/tp27ovx/VrUzMy2MeW3aaUR+l2z83987NeEQX8YLOyRPb4cP32JR8M69WsUqkQH0+vwOJRdTsMeGnmuj2rJ3YseeO/9QwAuFFcgggA+F9kXz2sYuvJMU6P26ccWvZUZJEeTzRzWbkZmRdPHjwYZ5SqVjXCL58CdfkSRM87Pjm2+LESXGIIAP9lnAEDAPwX2de/0rZ+3bp1Gz0009Uw7s69f66IdYpYIuvXL3Gj+zIzl3W9lEdQZPWGjWrk274AAP9bKGAAgP8ia9mSHvu3//33ltkff5NnYHU9dvarn+50iFije/ZucMM/a2XmsgAAtzgKGADgv0iV7P1037IWZaRvfOmuu1/9afOxC+lOZ2by2YNrv3+5d5uBc+J00Ur0mDC88Y13IjOXBQC4xXEPGADgP8q4uO6Vrl0nrDmnu9pTaYH1n/5+4aQOxW/KLU9mLuum4x4wAPgfwhkwAMB/lApqNn7pX79PHHB7dMCVYepFad4lanV8YsofO9e8e/MakZnLAgDcyjgDBgD473Ncij10JPZ8mvINCS9dtkyoy9/4+h9c1s1hXDiwfmec3dBCKjWpWZLLJAHgP40CBgAAAAAm4RJEAAAAADAJBQwAAAAATEIBAwAAAACTUMAAAAAAwCQUMAAAAAAwCQUMAAAAAExCAQMAAAAAk1DAAAAAAMAkFDAAAAAAMAkFDAAAAABMQgEDAAAAAJNQwAAAAADAJBQwAAAAADAJBQwAAAAATEIBAwAAAACTUMAAAAAAwCQUMAAAAAAwCQUMAAAAAExCAQMAAAAAk1DAAAAAAMAkFDAAAAAAMAkFDAAAAABMQgEDAAAAAJNQwAAAAADAJBQwAAAAADAJBQwAAAAATEIBAwAAAACTUMAAAAAAwCQUMAAAAAAwCQUMAAAAAExCAQMAAAAAk1DAAAAAAMAkFDAAAAAAMAkFDAAAAABMQgEDAAAAAJNQwAAAAADAJBQwAAAAADAJBQwAAAAATEIBAwAAAACTUMAAAAAAwCQUMAAAAAAwCQUMAAAAAEzyfxlJ6h0VCl1GAAAAAElFTkSuQmCC" width="576" /></p>
+<p>For category before 2002 the SMR seems to be higher after the age of
+50. Also the p-value (<0.0001) indicates that there is a difference
+in age group trends before and after year 2002. P-value is a likelihood
+ratio test that compares models where splines are fitted together and
+separately.</p>
+<pre class="r"><code>print(sy)</code></pre>
+<pre><code>## agegroup: p < 0.001
+## NA: p = NA
+## NA: p = NA
+##
+## levels colour
+## 1 1 black
+## 2 2 #DF536B</code></pre>
+</div>
+</div>
+
+
+
+
+</div>
+
+<script>
+
+// add bootstrap table styles to pandoc tables
+function bootstrapStylePandocTables() {
+ $('tr.odd').parent('tbody').parent('table').addClass('table table-condensed');
+}
+$(document).ready(function () {
+ bootstrapStylePandocTables();
+});
+
+
+</script>
+
+<!-- tabsets -->
+
+<script>
+$(document).ready(function () {
+ window.buildTabsets("TOC");
+});
+
+$(document).ready(function () {
+ $('.tabset-dropdown > .nav-tabs > li').click(function () {
+ $(this).parent().toggleClass('nav-tabs-open');
+ });
+});
+</script>
+
+<!-- code folding -->
+
+
+<!-- dynamically load mathjax for compatibility with self-contained -->
+<script>
+ (function () {
+ var script = document.createElement("script");
+ script.type = "text/javascript";
+ script.src = "https://mathjax.rstudio.com/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML";
+ document.getElementsByTagName("head")[0].appendChild(script);
+ })();
+</script>
+
+</body>
+</html>
diff --git a/inst/doc/survtab_examples.R b/inst/doc/survtab_examples.R
index 454584b..a1753d4 100644
--- a/inst/doc/survtab_examples.R
+++ b/inst/doc/survtab_examples.R
@@ -1,169 +1,169 @@
-## ----pkgs, eval = TRUE, echo = TRUE, message = FALSE--------------------------
-library(popEpi)
-library(Epi)
-
-## -----------------------------------------------------------------------------
-data(sire)
-
-## NOTE: recommended to use factor status variable
-x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
- exit = list(CAL = get.yrs(ex_date)),
- data = sire[sire$dg_date < sire$ex_date, ],
- exit.status = factor(status, levels = 0:2,
- labels = c("alive", "canD", "othD")),
- merge = TRUE)
-
-## pretend some are male
-set.seed(1L)
-x$sex <- rbinom(nrow(x), 1, 0.5)
-
-## observed survival - explicit method
-st <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex, data = x,
- surv.type = "surv.obs",
- breaks = list(FUT = seq(0, 5, 1/12)))
-
-## observed survival - easy method (assumes lex.Xst in x is the status variable)
-st <- survtab(FUT ~ sex, data = x,
- surv.type = "surv.obs",
- breaks = list(FUT = seq(0, 5, 1/12)))
-
-## printing gives the used settings and
-## estimates at the middle and end of the estimated
-## curves; more information available using summary()
-st
-
-
-## -----------------------------------------------------------------------------
-plot(st, col = c("blue", "red"))
-
-## ----popmort------------------------------------------------------------------
-data(popmort)
-pm <- data.frame(popmort)
-names(pm) <- c("sex", "CAL", "AGE", "haz")
-head(pm)
-
-## ----survtab_e2---------------------------------------------------------------
-st.e2 <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex, data = x,
- surv.type = "surv.rel", relsurv.method = "e2",
- breaks = list(FUT = seq(0, 5, 1/12)),
- pophaz = pm)
-
-## -----------------------------------------------------------------------------
-plot(st.e2, y = "r.e2", col = c("blue", "red"))
-
-## ----survtab_pp---------------------------------------------------------------
-st.pp <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex, data = x,
- surv.type = "surv.rel", relsurv.method = "pp",
- breaks = list(FUT = seq(0, 5, 1/12)),
- pophaz = pm)
-
-## -----------------------------------------------------------------------------
-plot(st.e2, y = "r.e2", col = c("blue", "red"), lty = 1)
-lines(st.pp, y = "r.pp", col = c("blue", "red"), lty = 2)
-
-## ----survtab_adjust-----------------------------------------------------------
-## an age group variable
-x$agegr <- cut(x$dg_age, c(0, 60, 70, 80, Inf), right = FALSE)
-
-## using "internal weights" - see ?ICSS for international weights standards
-w <- table(x$agegr)
-w
-
-w <- list(agegr = as.numeric(w))
-
-## ----survtab_adjust_2---------------------------------------------------------
-st.as <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex + adjust(agegr),
- data = x, weights = w,
- surv.type = "surv.rel", relsurv.method = "e2",
- breaks = list(FUT = seq(0, 5, 1/12)),
- pophaz = pm)
-
-## -----------------------------------------------------------------------------
-plot(st.as, y = "r.e2.as", col = c("blue", "red"))
-
-## ----weights_examples, eval = TRUE--------------------------------------------
-list(sex = c(0.4, 0.6), agegr = c(0.2, 0.2, 0.4, 0.2))
-
-wdf <- merge(0:1, 1:4)
-names(wdf) <- c("sex", "agegr")
-wdf$weights <- c(0.1, 0.1, 0.1, 0.1, 0.2, 0.2, 0.1, 0.1)
-wdf
-
-## ----survtab_adjust_3---------------------------------------------------------
-st.as <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex,
- adjust = "agegr",
- data = x, weights = w,
- surv.type = "surv.rel", relsurv.method = "e2",
- breaks = list(FUT = seq(0, 5, 1/12)),
- pophaz = pm)
-
-## ----survtab_cause------------------------------------------------------------
-st.ca <- survtab(Surv(time = FUT, event = lex.Xst) ~ 1,
- data = x,
- surv.type = "surv.cause",
- breaks = list(FUT = seq(0, 5, 1/12)))
-
-st.pp <- survtab(Surv(time = FUT, event = lex.Xst) ~ 1, data = x,
- surv.type = "surv.rel", relsurv.method = "pp",
- breaks = list(FUT = seq(0, 5, 1/12)),
- pophaz = pm)
-
-plot(st.ca, y = "surv.obs.canD", col = "blue")
-lines(st.pp, y = "r.pp", col = "red")
-
-## ----survtab_cif--------------------------------------------------------------
-st.cif <- survtab(Surv(time = FUT, event = lex.Xst) ~ 1,
- data = x,
- surv.type = "cif.obs",
- breaks = list(FUT = seq(0, 5, 1/12)))
-
-plot(st.cif, y = "CIF_canD", conf.int = FALSE)
-lines(st.cif, y = "CIF_othD", conf.int = FALSE, col = "red")
-
-## ----survtab_relcif-----------------------------------------------------------
-st.cir <- survtab(Surv(time = FUT, event = lex.Xst) ~ 1,
- data = x,
- surv.type = "cif.rel",
- breaks = list(FUT = seq(0, 5, 1/12)),
- pophaz = pm)
-plot(st.cif, y = "CIF_canD", conf.int = FALSE, col = "blue")
-lines(st.cir, y = "CIF.rel", conf.int = FALSE, col = "red")
-
-## -----------------------------------------------------------------------------
-sire$sex <- rbinom(nrow(sire), size = 1, prob = 0.5)
-ag <- lexpand(sire, birth = "bi_date", entry = "dg_date", exit = "ex_date",
- status = "status", breaks = list(fot = seq(0, 5, 1/12)),
- aggre = list(sex, fot))
-head(ag)
-
-## ----survtab_ag_example1------------------------------------------------------
-st <- survtab_ag(fot ~ sex, data = ag, surv.type = "surv.obs",
- surv.method = "hazard",
- d = c("from0to1", "from0to2"), pyrs = "pyrs")
-
-## ----survtab_ag_example2------------------------------------------------------
-st <- survtab_ag(fot ~ sex, data = ag, surv.type = "surv.obs",
- surv.method = "lifetable",
- d = c("from0to1", "from0to2"), n = "at.risk",
- n.cens = "from0to0")
-
-## ----survtab_ag_cause---------------------------------------------------------
-st.ca <- survtab_ag(fot ~ sex, data = ag, surv.type = "surv.cause",
- surv.method = "hazard",
- d = list(canD = from0to1, othD = from0to2), pyrs = "pyrs")
-plot(st.ca, y = "surv.obs.canD", col = c("blue", "red"))
-
-## -----------------------------------------------------------------------------
-ag <- lexpand(sire, birth = "bi_date", entry = "dg_date", exit = "ex_date",
- status = "status", breaks = list(fot = seq(0, 5, 1/12)),
- pophaz = popmort, pp = TRUE,
- aggre = list(sex, fot))
-
-st.pp <- survtab_ag(fot ~ sex, data = ag, surv.type = "surv.rel",
- surv.method = "hazard", relsurv.method = "pp",
- d = list(from0to1 + from0to2), pyrs = "pyrs",
- d.pp = list(from0to1.pp + from0to2.pp),
- d.pp.2 = list(from0to1.pp.2 + from0to2.pp.2),
- pyrs.pp = "ptime.pp", d.exp.pp = "d.exp.pp")
-plot(st.pp, y = "r.pp", col = c("blue", "red"))
-
+## ----pkgs, eval = TRUE, echo = TRUE, message = FALSE--------------------------
+library(popEpi)
+library(Epi)
+
+## -----------------------------------------------------------------------------
+data(sire)
+
+## NOTE: recommended to use factor status variable
+x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
+ exit = list(CAL = get.yrs(ex_date)),
+ data = sire[sire$dg_date < sire$ex_date, ],
+ exit.status = factor(status, levels = 0:2,
+ labels = c("alive", "canD", "othD")),
+ merge = TRUE)
+
+## pretend some are male
+set.seed(1L)
+x$sex <- rbinom(nrow(x), 1, 0.5)
+
+## observed survival - explicit method
+st <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex, data = x,
+ surv.type = "surv.obs",
+ breaks = list(FUT = seq(0, 5, 1/12)))
+
+## observed survival - easy method (assumes lex.Xst in x is the status variable)
+st <- survtab(FUT ~ sex, data = x,
+ surv.type = "surv.obs",
+ breaks = list(FUT = seq(0, 5, 1/12)))
+
+## printing gives the used settings and
+## estimates at the middle and end of the estimated
+## curves; more information available using summary()
+st
+
+
+## -----------------------------------------------------------------------------
+plot(st, col = c("blue", "red"))
+
+## ----popmort------------------------------------------------------------------
+data(popmort)
+pm <- data.frame(popmort)
+names(pm) <- c("sex", "CAL", "AGE", "haz")
+head(pm)
+
+## ----survtab_e2---------------------------------------------------------------
+st.e2 <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex, data = x,
+ surv.type = "surv.rel", relsurv.method = "e2",
+ breaks = list(FUT = seq(0, 5, 1/12)),
+ pophaz = pm)
+
+## -----------------------------------------------------------------------------
+plot(st.e2, y = "r.e2", col = c("blue", "red"))
+
+## ----survtab_pp---------------------------------------------------------------
+st.pp <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex, data = x,
+ surv.type = "surv.rel", relsurv.method = "pp",
+ breaks = list(FUT = seq(0, 5, 1/12)),
+ pophaz = pm)
+
+## -----------------------------------------------------------------------------
+plot(st.e2, y = "r.e2", col = c("blue", "red"), lty = 1)
+lines(st.pp, y = "r.pp", col = c("blue", "red"), lty = 2)
+
+## ----survtab_adjust-----------------------------------------------------------
+## an age group variable
+x$agegr <- cut(x$dg_age, c(0, 60, 70, 80, Inf), right = FALSE)
+
+## using "internal weights" - see ?ICSS for international weights standards
+w <- table(x$agegr)
+w
+
+w <- list(agegr = as.numeric(w))
+
+## ----survtab_adjust_2---------------------------------------------------------
+st.as <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex + adjust(agegr),
+ data = x, weights = w,
+ surv.type = "surv.rel", relsurv.method = "e2",
+ breaks = list(FUT = seq(0, 5, 1/12)),
+ pophaz = pm)
+
+## -----------------------------------------------------------------------------
+plot(st.as, y = "r.e2.as", col = c("blue", "red"))
+
+## ----weights_examples, eval = TRUE--------------------------------------------
+list(sex = c(0.4, 0.6), agegr = c(0.2, 0.2, 0.4, 0.2))
+
+wdf <- merge(0:1, 1:4)
+names(wdf) <- c("sex", "agegr")
+wdf$weights <- c(0.1, 0.1, 0.1, 0.1, 0.2, 0.2, 0.1, 0.1)
+wdf
+
+## ----survtab_adjust_3---------------------------------------------------------
+st.as <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex,
+ adjust = "agegr",
+ data = x, weights = w,
+ surv.type = "surv.rel", relsurv.method = "e2",
+ breaks = list(FUT = seq(0, 5, 1/12)),
+ pophaz = pm)
+
+## ----survtab_cause------------------------------------------------------------
+st.ca <- survtab(Surv(time = FUT, event = lex.Xst) ~ 1,
+ data = x,
+ surv.type = "surv.cause",
+ breaks = list(FUT = seq(0, 5, 1/12)))
+
+st.pp <- survtab(Surv(time = FUT, event = lex.Xst) ~ 1, data = x,
+ surv.type = "surv.rel", relsurv.method = "pp",
+ breaks = list(FUT = seq(0, 5, 1/12)),
+ pophaz = pm)
+
+plot(st.ca, y = "surv.obs.canD", col = "blue")
+lines(st.pp, y = "r.pp", col = "red")
+
+## ----survtab_cif--------------------------------------------------------------
+st.cif <- survtab(Surv(time = FUT, event = lex.Xst) ~ 1,
+ data = x,
+ surv.type = "cif.obs",
+ breaks = list(FUT = seq(0, 5, 1/12)))
+
+plot(st.cif, y = "CIF_canD", conf.int = FALSE)
+lines(st.cif, y = "CIF_othD", conf.int = FALSE, col = "red")
+
+## ----survtab_relcif-----------------------------------------------------------
+st.cir <- survtab(Surv(time = FUT, event = lex.Xst) ~ 1,
+ data = x,
+ surv.type = "cif.rel",
+ breaks = list(FUT = seq(0, 5, 1/12)),
+ pophaz = pm)
+plot(st.cif, y = "CIF_canD", conf.int = FALSE, col = "blue")
+lines(st.cir, y = "CIF.rel", conf.int = FALSE, col = "red")
+
+## -----------------------------------------------------------------------------
+sire$sex <- rbinom(nrow(sire), size = 1, prob = 0.5)
+ag <- lexpand(sire, birth = "bi_date", entry = "dg_date", exit = "ex_date",
+ status = "status", breaks = list(fot = seq(0, 5, 1/12)),
+ aggre = list(sex, fot))
+head(ag)
+
+## ----survtab_ag_example1------------------------------------------------------
+st <- survtab_ag(fot ~ sex, data = ag, surv.type = "surv.obs",
+ surv.method = "hazard",
+ d = c("from0to1", "from0to2"), pyrs = "pyrs")
+
+## ----survtab_ag_example2------------------------------------------------------
+st <- survtab_ag(fot ~ sex, data = ag, surv.type = "surv.obs",
+ surv.method = "lifetable",
+ d = c("from0to1", "from0to2"), n = "at.risk",
+ n.cens = "from0to0")
+
+## ----survtab_ag_cause---------------------------------------------------------
+st.ca <- survtab_ag(fot ~ sex, data = ag, surv.type = "surv.cause",
+ surv.method = "hazard",
+ d = list(canD = from0to1, othD = from0to2), pyrs = "pyrs")
+plot(st.ca, y = "surv.obs.canD", col = c("blue", "red"))
+
+## -----------------------------------------------------------------------------
+ag <- lexpand(sire, birth = "bi_date", entry = "dg_date", exit = "ex_date",
+ status = "status", breaks = list(fot = seq(0, 5, 1/12)),
+ pophaz = popmort, pp = TRUE,
+ aggre = list(sex, fot))
+
+st.pp <- survtab_ag(fot ~ sex, data = ag, surv.type = "surv.rel",
+ surv.method = "hazard", relsurv.method = "pp",
+ d = list(from0to1 + from0to2), pyrs = "pyrs",
+ d.pp = list(from0to1.pp + from0to2.pp),
+ d.pp.2 = list(from0to1.pp.2 + from0to2.pp.2),
+ pyrs.pp = "ptime.pp", d.exp.pp = "d.exp.pp")
+plot(st.pp, y = "r.pp", col = c("blue", "red"))
+
diff --git a/inst/doc/survtab_examples.Rmd b/inst/doc/survtab_examples.Rmd
index 341f23c..ece43b6 100644
--- a/inst/doc/survtab_examples.Rmd
+++ b/inst/doc/survtab_examples.Rmd
@@ -1,295 +1,295 @@
----
-title: "Examples of using survtab"
-author: "Joonas Miettinen"
-date: "`r Sys.Date()`"
-output:
- html_document:
- toc: true
- toc_depth: 2
- fig_width: 6
- fig_height: 6
-vignette: >
- %\VignetteEngine{knitr::rmarkdown}
- %\VignetteIndexEntry{survtab examples}
- %\usepackage[utf8]{inputenc}
----
-
-# Overview
-
-This vignette aims to clarify the usage of the `survtab_ag` and `survtab` functions included in this package. `survtab_ag` estimates various survival functions and cumulative incidence functions (CIFs) non-parametrically using aggregated data, and `survtab` is a wrapper for `survtab_ag`, to which `Lexis` data is supplied.
-
-Two methods (`surv.method`) are currently supported: The `"lifetable"` (actuarial) method only makes use of counts when estimating any of the supported survival time functions. The default method (`"hazard"`}) estimates appropriate hazards and transforms them into survival function or CIF estimates.
-
-For relative survival estimation we need also to enumerate the expected hazard levels for the subjects in the data. This is done by merging expected hazards to individuals' subintervals (which divide their survival time lines to a number of small intervals). For Pohar-Perme-weighted analyses one must additionally compute various weighted figures at the level of split subject data.
-
-If one has subject-level data, the simplest way of computing survival function estimates with `popEpi` is by defining a `Lexis` object and using `survtab`, which will do the rest. For pre-aggregated data one may use the `survtab_ag` function instead. One can also use the `lexpand` function to split, merge population hazards, and aggregate in a single function call and then use `survtab_ag` if that is convenient.
-
-# Using `survtab`
-
-It is straightforward to estimate various survival time functions with `survtab` once a `Lexis` object has been defined (see `?Lexis` in package `Epi` for details):
-
-```{r pkgs, eval = TRUE, echo = TRUE, message = FALSE}
-library(popEpi)
-library(Epi)
-```
-
-```{r}
-data(sire)
-
-## NOTE: recommended to use factor status variable
-x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
- exit = list(CAL = get.yrs(ex_date)),
- data = sire[sire$dg_date < sire$ex_date, ],
- exit.status = factor(status, levels = 0:2,
- labels = c("alive", "canD", "othD")),
- merge = TRUE)
-
-## pretend some are male
-set.seed(1L)
-x$sex <- rbinom(nrow(x), 1, 0.5)
-
-## observed survival - explicit method
-st <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex, data = x,
- surv.type = "surv.obs",
- breaks = list(FUT = seq(0, 5, 1/12)))
-
-## observed survival - easy method (assumes lex.Xst in x is the status variable)
-st <- survtab(FUT ~ sex, data = x,
- surv.type = "surv.obs",
- breaks = list(FUT = seq(0, 5, 1/12)))
-
-## printing gives the used settings and
-## estimates at the middle and end of the estimated
-## curves; more information available using summary()
-st
-
-```
-
-Plotting by strata (men = blue, women = red):
-
-```{r}
-plot(st, col = c("blue", "red"))
-```
-
-Note that the correct usage of the `formula` argument in `survtab` specifies the time scale in the `Lexis` object over which survival is computed (here `"FUT"` for follow-up time). This is used to identify the appropriate time scale in the data. When only supplying the survival time scale as the right-hand-side of the formula, the column `lex.Xst` in the supplied `Lexis` object is assumed to be the (correctly formatted!) status variable. When using `Surv()` to be explicit, we effectively (and exceptionally) pass the starting times to the `time` argument in `Surv()`, and `time2` is ignored entirely. The function will fail if `time` does not match exactly with a time scale in data.
-
-When using `Surv()`, one must also pass the status variable, which can be something other than the `lex.Xst` variable created by `Lexis()`, though usually ``lex.Xst` is what you want to use (especially if the data has already been split using e.g. `splitLexis` or `splitMulti`, which is allowed). It is recommended to use a factor status variable to pass to `Surv()`, though a numeric variable will work in simple cases (0 = alive, 1 = dead; also `FALSE` = alive, `TRUE` = dead). Using `Surv()` also allows easy passing of transformations of `lex.Xst`, e.g. `Surv(FUT, lex.Xst %in% 1:2)`.
-
-The argument `breaks` must be a named list of breaks by which to split the `Lexis` data (see `?splitMulti`). It is mandatory to assign breaks at least to the survival time scale (`"FUT"` in our example) so that `survtab` knows what intervals to use to estimate the requested survival time function(s). The breaks also determine the window used: It is therefore easy to compute so called period estimates by defining the roof and floor along the calendar time scale, e.g.
-
-`breaks = list(FUT = seq(0, 5, 1/12), CAL = c(2000, 2005))`
-
-would cause `survtab` to compute period estimates for 2000-2004 (breaks given here as fractional years, so 2005 is effectively 2004.99999...).
-
-## Relative/net survival
-
-Relative/net survival estimation requires knowledge of the expected hazard levels for the individuals in the data. In `survtab` this is accomplished by passing a long-format `data.frame` of population hazards via the `pophaz` argument. E.g. the `popmort` dataset included in `popEpi` (Finnish overall mortality rates for men and women).
-
-```{r popmort}
-data(popmort)
-pm <- data.frame(popmort)
-names(pm) <- c("sex", "CAL", "AGE", "haz")
-head(pm)
-```
-
-The `data.frame` should contain a variable named `"haz"` indicating the population hazard at the level of one subject-year. Any other variables are considered to be variables, by which to merge population hazards to the (split) subject-level data within `survtab`. These merging variables may correspond to the time scales in the used `Lexis` object. This allows for e.g. merging in different population hazards for the same subject as they get older.
-
-The following causes `survtab` to estimate EdererII relative survival:
-
-```{r survtab_e2}
-st.e2 <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex, data = x,
- surv.type = "surv.rel", relsurv.method = "e2",
- breaks = list(FUT = seq(0, 5, 1/12)),
- pophaz = pm)
-```
-
-```{r}
-plot(st.e2, y = "r.e2", col = c("blue", "red"))
-```
-
-Note that the curves diverge due to merging in the "wrong" population hazards for some individuals which we randomized earlier to be male though all the individuals in data are actually female. Pohar-Perme-weighted estimates can be computed by
-
-```{r survtab_pp}
-st.pp <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex, data = x,
- surv.type = "surv.rel", relsurv.method = "pp",
- breaks = list(FUT = seq(0, 5, 1/12)),
- pophaz = pm)
-```
-
-Compare with EdererII estimates:
-
-```{r}
-plot(st.e2, y = "r.e2", col = c("blue", "red"), lty = 1)
-lines(st.pp, y = "r.pp", col = c("blue", "red"), lty = 2)
-```
-
-## Adjusting estimates
-
-`survtab` also allows for adjusting the survival curves by categorical variables --- typically by age groups. The following demonstrates how:
-
-```{r survtab_adjust}
-## an age group variable
-x$agegr <- cut(x$dg_age, c(0, 60, 70, 80, Inf), right = FALSE)
-
-## using "internal weights" - see ?ICSS for international weights standards
-w <- table(x$agegr)
-w
-
-w <- list(agegr = as.numeric(w))
-```
-
-```{r survtab_adjust_2}
-st.as <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex + adjust(agegr),
- data = x, weights = w,
- surv.type = "surv.rel", relsurv.method = "e2",
- breaks = list(FUT = seq(0, 5, 1/12)),
- pophaz = pm)
-```
-
-```{r}
-plot(st.as, y = "r.e2.as", col = c("blue", "red"))
-```
-
-We now have age-adjusted EdererII relative/net survival estimates. The `weights` argument allows for either a list of weights (with one or multiple variables to adjust by) or a `data.frame` of weights. Examples:
-
-```{r weights_examples, eval = TRUE}
-list(sex = c(0.4, 0.6), agegr = c(0.2, 0.2, 0.4, 0.2))
-
-wdf <- merge(0:1, 1:4)
-names(wdf) <- c("sex", "agegr")
-wdf$weights <- c(0.1, 0.1, 0.1, 0.1, 0.2, 0.2, 0.1, 0.1)
-wdf
-```
-
-The weights do not have to sum to one when supplied as they are internally forced to do so within each stratum. In the `data.frame` of weights, the column of actual weights to use must be named "weights". When there are more than one variable to adjust by, and a list of weights has been supplied, the variable-specific weights are first multiplied together (cumulatively) and then scaled to sum to one.
-
-This adjusting can be done to any survival time function that `survtab` (and `survtab_ag`) estimates. One can also supply adjusting variables via the `adjust` argument if convenient:
-
-```{r survtab_adjust_3}
-st.as <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex,
- adjust = "agegr",
- data = x, weights = w,
- surv.type = "surv.rel", relsurv.method = "e2",
- breaks = list(FUT = seq(0, 5, 1/12)),
- pophaz = pm)
-```
-
-Where `adjust` could also be `adjust = agegr`, `adjust = list(agegr)` or
-
-`adjust = list(agegr = cut(dg_age, c(0, 60, 70, 80, Inf), right = FALSE))`
-
-for exactly the same results. When adjusting by multiple variables, one must supply a vector of variable names in data or a list of multiple elements (as in the base function `aggregate`).
-
-## Other survival time functions
-
-One can also estimate cause-specific survival functions, cumulative incidence functions (CIFs, a.k.a. crude risk a.k.a. absolute risk functions), and CIFs based on the excess numbers of events. Cause-specific survival is close to net survival as they are philosophically highly similar concepts:
-
-```{r survtab_cause}
-st.ca <- survtab(Surv(time = FUT, event = lex.Xst) ~ 1,
- data = x,
- surv.type = "surv.cause",
- breaks = list(FUT = seq(0, 5, 1/12)))
-
-st.pp <- survtab(Surv(time = FUT, event = lex.Xst) ~ 1, data = x,
- surv.type = "surv.rel", relsurv.method = "pp",
- breaks = list(FUT = seq(0, 5, 1/12)),
- pophaz = pm)
-
-plot(st.ca, y = "surv.obs.canD", col = "blue")
-lines(st.pp, y = "r.pp", col = "red")
-```
-
-Absolute risk:
-
-```{r survtab_cif}
-st.cif <- survtab(Surv(time = FUT, event = lex.Xst) ~ 1,
- data = x,
- surv.type = "cif.obs",
- breaks = list(FUT = seq(0, 5, 1/12)))
-
-plot(st.cif, y = "CIF_canD", conf.int = FALSE)
-lines(st.cif, y = "CIF_othD", conf.int = FALSE, col = "red")
-```
-
-The "relative CIF" attempts to be close to the true CIF without using knowledge about the types of events, e.g. causes of death:
-
-```{r survtab_relcif}
-st.cir <- survtab(Surv(time = FUT, event = lex.Xst) ~ 1,
- data = x,
- surv.type = "cif.rel",
- breaks = list(FUT = seq(0, 5, 1/12)),
- pophaz = pm)
-plot(st.cif, y = "CIF_canD", conf.int = FALSE, col = "blue")
-lines(st.cir, y = "CIF.rel", conf.int = FALSE, col = "red")
-```
-
-
-# Using `survtab_ag`
-
-Arguments concerning the types and methods of estimating of survival time functions work the same in `survtab_ag` as in `survtab` (the latter uses the former). However, with aggregated data one must explicitly supply the various count and person-time variables. Also, usage of the `formula` argument is different.
-
-For demonstration purposes we form an aggregated data set using `lexpand`; see `?lexpand` for more information on that function.
-
-```{r}
-sire$sex <- rbinom(nrow(sire), size = 1, prob = 0.5)
-ag <- lexpand(sire, birth = "bi_date", entry = "dg_date", exit = "ex_date",
- status = "status", breaks = list(fot = seq(0, 5, 1/12)),
- aggre = list(sex, fot))
-head(ag)
-```
-
-Now simply do:
-
-```{r survtab_ag_example1}
-st <- survtab_ag(fot ~ sex, data = ag, surv.type = "surv.obs",
- surv.method = "hazard",
- d = c("from0to1", "from0to2"), pyrs = "pyrs")
-```
-
-Or:
-
-```{r survtab_ag_example2}
-st <- survtab_ag(fot ~ sex, data = ag, surv.type = "surv.obs",
- surv.method = "lifetable",
- d = c("from0to1", "from0to2"), n = "at.risk",
- n.cens = "from0to0")
-```
-
-Note that e.g. argument `d` could also have been supplied as
-
-`list(from0to1, from0to2)`
-
-or
-
-`list(canD = from0to1, othD = from0to2)`
-
-for identical results. The last is convenient for e.g. `surv.cause` computations:
-
-```{r survtab_ag_cause}
-st.ca <- survtab_ag(fot ~ sex, data = ag, surv.type = "surv.cause",
- surv.method = "hazard",
- d = list(canD = from0to1, othD = from0to2), pyrs = "pyrs")
-plot(st.ca, y = "surv.obs.canD", col = c("blue", "red"))
-```
-
-One has to supply the most variables when computing Pohar-Perme estimates (though it is probably rare to have third-source aggregated data with Pohar-Perme weighted figures, it is implemented here to be used as a workhorse for `survtab`). For this we must aggregate again to get the Pohar-Perme weighted counts and subject-times:
-
-```{r}
-ag <- lexpand(sire, birth = "bi_date", entry = "dg_date", exit = "ex_date",
- status = "status", breaks = list(fot = seq(0, 5, 1/12)),
- pophaz = popmort, pp = TRUE,
- aggre = list(sex, fot))
-
-st.pp <- survtab_ag(fot ~ sex, data = ag, surv.type = "surv.rel",
- surv.method = "hazard", relsurv.method = "pp",
- d = list(from0to1 + from0to2), pyrs = "pyrs",
- d.pp = list(from0to1.pp + from0to2.pp),
- d.pp.2 = list(from0to1.pp.2 + from0to2.pp.2),
- pyrs.pp = "ptime.pp", d.exp.pp = "d.exp.pp")
-plot(st.pp, y = "r.pp", col = c("blue", "red"))
-```
-
-Here it is best to supply only one column to each argument since Pohar-Perme estimates will not be computed for several types of events at the same time.
-
-
-
+---
+title: "Examples of using survtab"
+author: "Joonas Miettinen"
+date: "`r Sys.Date()`"
+output:
+ html_document:
+ toc: true
+ toc_depth: 2
+ fig_width: 6
+ fig_height: 6
+vignette: >
+ %\VignetteEngine{knitr::rmarkdown}
+ %\VignetteIndexEntry{survtab examples}
+ %\usepackage[utf8]{inputenc}
+---
+
+# Overview
+
+This vignette aims to clarify the usage of the `survtab_ag` and `survtab` functions included in this package. `survtab_ag` estimates various survival functions and cumulative incidence functions (CIFs) non-parametrically using aggregated data, and `survtab` is a wrapper for `survtab_ag`, to which `Lexis` data is supplied.
+
+Two methods (`surv.method`) are currently supported: The `"lifetable"` (actuarial) method only makes use of counts when estimating any of the supported survival time functions. The default method (`"hazard"`}) estimates appropriate hazards and transforms them into survival function or CIF estimates.
+
+For relative survival estimation we need also to enumerate the expected hazard levels for the subjects in the data. This is done by merging expected hazards to individuals' subintervals (which divide their survival time lines to a number of small intervals). For Pohar-Perme-weighted analyses one must additionally compute various weighted figures at the level of split subject data.
+
+If one has subject-level data, the simplest way of computing survival function estimates with `popEpi` is by defining a `Lexis` object and using `survtab`, which will do the rest. For pre-aggregated data one may use the `survtab_ag` function instead. One can also use the `lexpand` function to split, merge population hazards, and aggregate in a single function call and then use `survtab_ag` if that is convenient.
+
+# Using `survtab`
+
+It is straightforward to estimate various survival time functions with `survtab` once a `Lexis` object has been defined (see `?Lexis` in package `Epi` for details):
+
+```{r pkgs, eval = TRUE, echo = TRUE, message = FALSE}
+library(popEpi)
+library(Epi)
+```
+
+```{r}
+data(sire)
+
+## NOTE: recommended to use factor status variable
+x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
+ exit = list(CAL = get.yrs(ex_date)),
+ data = sire[sire$dg_date < sire$ex_date, ],
+ exit.status = factor(status, levels = 0:2,
+ labels = c("alive", "canD", "othD")),
+ merge = TRUE)
+
+## pretend some are male
+set.seed(1L)
+x$sex <- rbinom(nrow(x), 1, 0.5)
+
+## observed survival - explicit method
+st <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex, data = x,
+ surv.type = "surv.obs",
+ breaks = list(FUT = seq(0, 5, 1/12)))
+
+## observed survival - easy method (assumes lex.Xst in x is the status variable)
+st <- survtab(FUT ~ sex, data = x,
+ surv.type = "surv.obs",
+ breaks = list(FUT = seq(0, 5, 1/12)))
+
+## printing gives the used settings and
+## estimates at the middle and end of the estimated
+## curves; more information available using summary()
+st
+
+```
+
+Plotting by strata (men = blue, women = red):
+
+```{r}
+plot(st, col = c("blue", "red"))
+```
+
+Note that the correct usage of the `formula` argument in `survtab` specifies the time scale in the `Lexis` object over which survival is computed (here `"FUT"` for follow-up time). This is used to identify the appropriate time scale in the data. When only supplying the survival time scale as the right-hand-side of the formula, the column `lex.Xst` in the supplied `Lexis` object is assumed to be the (correctly formatted!) status variable. When using `Surv()` to be explicit, we effectively (and exceptionally) pass the starting times to the `time` argument in `Surv()`, and `time2` is ignored entirely. The function will fail if `time` does not match exactly with a time scale in data.
+
+When using `Surv()`, one must also pass the status variable, which can be something other than the `lex.Xst` variable created by `Lexis()`, though usually ``lex.Xst` is what you want to use (especially if the data has already been split using e.g. `splitLexis` or `splitMulti`, which is allowed). It is recommended to use a factor status variable to pass to `Surv()`, though a numeric variable will work in simple cases (0 = alive, 1 = dead; also `FALSE` = alive, `TRUE` = dead). Using `Surv()` also allows easy passing of transformations of `lex.Xst`, e.g. `Surv(FUT, lex.Xst %in% 1:2)`.
+
+The argument `breaks` must be a named list of breaks by which to split the `Lexis` data (see `?splitMulti`). It is mandatory to assign breaks at least to the survival time scale (`"FUT"` in our example) so that `survtab` knows what intervals to use to estimate the requested survival time function(s). The breaks also determine the window used: It is therefore easy to compute so called period estimates by defining the roof and floor along the calendar time scale, e.g.
+
+`breaks = list(FUT = seq(0, 5, 1/12), CAL = c(2000, 2005))`
+
+would cause `survtab` to compute period estimates for 2000-2004 (breaks given here as fractional years, so 2005 is effectively 2004.99999...).
+
+## Relative/net survival
+
+Relative/net survival estimation requires knowledge of the expected hazard levels for the individuals in the data. In `survtab` this is accomplished by passing a long-format `data.frame` of population hazards via the `pophaz` argument. E.g. the `popmort` dataset included in `popEpi` (Finnish overall mortality rates for men and women).
+
+```{r popmort}
+data(popmort)
+pm <- data.frame(popmort)
+names(pm) <- c("sex", "CAL", "AGE", "haz")
+head(pm)
+```
+
+The `data.frame` should contain a variable named `"haz"` indicating the population hazard at the level of one subject-year. Any other variables are considered to be variables, by which to merge population hazards to the (split) subject-level data within `survtab`. These merging variables may correspond to the time scales in the used `Lexis` object. This allows for e.g. merging in different population hazards for the same subject as they get older.
+
+The following causes `survtab` to estimate EdererII relative survival:
+
+```{r survtab_e2}
+st.e2 <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex, data = x,
+ surv.type = "surv.rel", relsurv.method = "e2",
+ breaks = list(FUT = seq(0, 5, 1/12)),
+ pophaz = pm)
+```
+
+```{r}
+plot(st.e2, y = "r.e2", col = c("blue", "red"))
+```
+
+Note that the curves diverge due to merging in the "wrong" population hazards for some individuals which we randomized earlier to be male though all the individuals in data are actually female. Pohar-Perme-weighted estimates can be computed by
+
+```{r survtab_pp}
+st.pp <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex, data = x,
+ surv.type = "surv.rel", relsurv.method = "pp",
+ breaks = list(FUT = seq(0, 5, 1/12)),
+ pophaz = pm)
+```
+
+Compare with EdererII estimates:
+
+```{r}
+plot(st.e2, y = "r.e2", col = c("blue", "red"), lty = 1)
+lines(st.pp, y = "r.pp", col = c("blue", "red"), lty = 2)
+```
+
+## Adjusting estimates
+
+`survtab` also allows for adjusting the survival curves by categorical variables --- typically by age groups. The following demonstrates how:
+
+```{r survtab_adjust}
+## an age group variable
+x$agegr <- cut(x$dg_age, c(0, 60, 70, 80, Inf), right = FALSE)
+
+## using "internal weights" - see ?ICSS for international weights standards
+w <- table(x$agegr)
+w
+
+w <- list(agegr = as.numeric(w))
+```
+
+```{r survtab_adjust_2}
+st.as <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex + adjust(agegr),
+ data = x, weights = w,
+ surv.type = "surv.rel", relsurv.method = "e2",
+ breaks = list(FUT = seq(0, 5, 1/12)),
+ pophaz = pm)
+```
+
+```{r}
+plot(st.as, y = "r.e2.as", col = c("blue", "red"))
+```
+
+We now have age-adjusted EdererII relative/net survival estimates. The `weights` argument allows for either a list of weights (with one or multiple variables to adjust by) or a `data.frame` of weights. Examples:
+
+```{r weights_examples, eval = TRUE}
+list(sex = c(0.4, 0.6), agegr = c(0.2, 0.2, 0.4, 0.2))
+
+wdf <- merge(0:1, 1:4)
+names(wdf) <- c("sex", "agegr")
+wdf$weights <- c(0.1, 0.1, 0.1, 0.1, 0.2, 0.2, 0.1, 0.1)
+wdf
+```
+
+The weights do not have to sum to one when supplied as they are internally forced to do so within each stratum. In the `data.frame` of weights, the column of actual weights to use must be named "weights". When there are more than one variable to adjust by, and a list of weights has been supplied, the variable-specific weights are first multiplied together (cumulatively) and then scaled to sum to one.
+
+This adjusting can be done to any survival time function that `survtab` (and `survtab_ag`) estimates. One can also supply adjusting variables via the `adjust` argument if convenient:
+
+```{r survtab_adjust_3}
+st.as <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex,
+ adjust = "agegr",
+ data = x, weights = w,
+ surv.type = "surv.rel", relsurv.method = "e2",
+ breaks = list(FUT = seq(0, 5, 1/12)),
+ pophaz = pm)
+```
+
+Where `adjust` could also be `adjust = agegr`, `adjust = list(agegr)` or
+
+`adjust = list(agegr = cut(dg_age, c(0, 60, 70, 80, Inf), right = FALSE))`
+
+for exactly the same results. When adjusting by multiple variables, one must supply a vector of variable names in data or a list of multiple elements (as in the base function `aggregate`).
+
+## Other survival time functions
+
+One can also estimate cause-specific survival functions, cumulative incidence functions (CIFs, a.k.a. crude risk a.k.a. absolute risk functions), and CIFs based on the excess numbers of events. Cause-specific survival is close to net survival as they are philosophically highly similar concepts:
+
+```{r survtab_cause}
+st.ca <- survtab(Surv(time = FUT, event = lex.Xst) ~ 1,
+ data = x,
+ surv.type = "surv.cause",
+ breaks = list(FUT = seq(0, 5, 1/12)))
+
+st.pp <- survtab(Surv(time = FUT, event = lex.Xst) ~ 1, data = x,
+ surv.type = "surv.rel", relsurv.method = "pp",
+ breaks = list(FUT = seq(0, 5, 1/12)),
+ pophaz = pm)
+
+plot(st.ca, y = "surv.obs.canD", col = "blue")
+lines(st.pp, y = "r.pp", col = "red")
+```
+
+Absolute risk:
+
+```{r survtab_cif}
+st.cif <- survtab(Surv(time = FUT, event = lex.Xst) ~ 1,
+ data = x,
+ surv.type = "cif.obs",
+ breaks = list(FUT = seq(0, 5, 1/12)))
+
+plot(st.cif, y = "CIF_canD", conf.int = FALSE)
+lines(st.cif, y = "CIF_othD", conf.int = FALSE, col = "red")
+```
+
+The "relative CIF" attempts to be close to the true CIF without using knowledge about the types of events, e.g. causes of death:
+
+```{r survtab_relcif}
+st.cir <- survtab(Surv(time = FUT, event = lex.Xst) ~ 1,
+ data = x,
+ surv.type = "cif.rel",
+ breaks = list(FUT = seq(0, 5, 1/12)),
+ pophaz = pm)
+plot(st.cif, y = "CIF_canD", conf.int = FALSE, col = "blue")
+lines(st.cir, y = "CIF.rel", conf.int = FALSE, col = "red")
+```
+
+
+# Using `survtab_ag`
+
+Arguments concerning the types and methods of estimating of survival time functions work the same in `survtab_ag` as in `survtab` (the latter uses the former). However, with aggregated data one must explicitly supply the various count and person-time variables. Also, usage of the `formula` argument is different.
+
+For demonstration purposes we form an aggregated data set using `lexpand`; see `?lexpand` for more information on that function.
+
+```{r}
+sire$sex <- rbinom(nrow(sire), size = 1, prob = 0.5)
+ag <- lexpand(sire, birth = "bi_date", entry = "dg_date", exit = "ex_date",
+ status = "status", breaks = list(fot = seq(0, 5, 1/12)),
+ aggre = list(sex, fot))
+head(ag)
+```
+
+Now simply do:
+
+```{r survtab_ag_example1}
+st <- survtab_ag(fot ~ sex, data = ag, surv.type = "surv.obs",
+ surv.method = "hazard",
+ d = c("from0to1", "from0to2"), pyrs = "pyrs")
+```
+
+Or:
+
+```{r survtab_ag_example2}
+st <- survtab_ag(fot ~ sex, data = ag, surv.type = "surv.obs",
+ surv.method = "lifetable",
+ d = c("from0to1", "from0to2"), n = "at.risk",
+ n.cens = "from0to0")
+```
+
+Note that e.g. argument `d` could also have been supplied as
+
+`list(from0to1, from0to2)`
+
+or
+
+`list(canD = from0to1, othD = from0to2)`
+
+for identical results. The last is convenient for e.g. `surv.cause` computations:
+
+```{r survtab_ag_cause}
+st.ca <- survtab_ag(fot ~ sex, data = ag, surv.type = "surv.cause",
+ surv.method = "hazard",
+ d = list(canD = from0to1, othD = from0to2), pyrs = "pyrs")
+plot(st.ca, y = "surv.obs.canD", col = c("blue", "red"))
+```
+
+One has to supply the most variables when computing Pohar-Perme estimates (though it is probably rare to have third-source aggregated data with Pohar-Perme weighted figures, it is implemented here to be used as a workhorse for `survtab`). For this we must aggregate again to get the Pohar-Perme weighted counts and subject-times:
+
+```{r}
+ag <- lexpand(sire, birth = "bi_date", entry = "dg_date", exit = "ex_date",
+ status = "status", breaks = list(fot = seq(0, 5, 1/12)),
+ pophaz = popmort, pp = TRUE,
+ aggre = list(sex, fot))
+
+st.pp <- survtab_ag(fot ~ sex, data = ag, surv.type = "surv.rel",
+ surv.method = "hazard", relsurv.method = "pp",
+ d = list(from0to1 + from0to2), pyrs = "pyrs",
+ d.pp = list(from0to1.pp + from0to2.pp),
+ d.pp.2 = list(from0to1.pp.2 + from0to2.pp.2),
+ pyrs.pp = "ptime.pp", d.exp.pp = "d.exp.pp")
+plot(st.pp, y = "r.pp", col = c("blue", "red"))
+```
+
+Here it is best to supply only one column to each argument since Pohar-Perme estimates will not be computed for several types of events at the same time.
+
+
+
diff --git a/inst/doc/survtab_examples.html b/inst/doc/survtab_examples.html
new file mode 100644
index 0000000..c58cff1
--- /dev/null
+++ b/inst/doc/survtab_examples.html
@@ -0,0 +1,815 @@
+<!DOCTYPE html>
+
+<html>
+
+<head>
+
+<meta charset="utf-8" />
+<meta name="generator" content="pandoc" />
+<meta http-equiv="X-UA-Compatible" content="IE=EDGE" />
+
+
+<meta name="author" content="Joonas Miettinen" />
+
+<meta name="date" content="2023-01-19" />
+
+<title>Examples of using survtab</title>
+
+<script>// Pandoc 2.9 adds attributes on both header and div. We remove the former (to
+// be compatible with the behavior of Pandoc < 2.8).
+document.addEventListener('DOMContentLoaded', function(e) {
+ var hs = document.querySelectorAll("div.section[class*='level'] > :first-child");
+ var i, h, a;
+ for (i = 0; i < hs.length; i++) {
+ h = hs[i];
+ if (!/^h[1-6]$/i.test(h.tagName)) continue; // it should be a header h1-h6
+ a = h.attributes;
+ while (a.length > 0) h.removeAttribute(a[0].name);
+ }
+});
+</script>
+<script>/*! jQuery v3.6.1 | (c) OpenJS Foundation and other contributors | jquery.org/license */
+!function(e,t){"use strict";"object"==typeof module&&"object"==typeof module.exports?module.exports=e.document?t(e,!0):function(e){if(e.document)return t(e);throw new Error("jQuery requires a window with a document")}:t(e)}("undefined"!=typeof window?window:this,function(w,R){"use strict";function v(e){return"function"==typeof e&&"number"!=typeof e.nodeType&&"function"!=typeof e.item}function g(e){return null!=e&&e===e.window}var t=[],M=Object.getPrototypeOf,s=t.slice,I=t.flat?function(e){return t.flat.call(e)}:function(e){return t.concat.apply([],e)},W=t.push,F=t.indexOf,$={},B=$.toString,_=$.hasOwnProperty,z=_.toString,U=z.call(Object),y={},T=w.document,X={type:!0,src:!0,nonce:!0,noModule:!0};function V(e,t,n){var r,i,o=(n=n||T).createElement("script");if(o.text=e,t)for(r in X)(i=t[r]||t.getAttribute&&t.getAttribute(r))&&o.setAttribute(r,i);n.head.appendChild(o).parentNode.removeChild(o)}function h(e){return null==e?e+"":"object"==typeof e||"function"==typeof e?$[B.call(e)]||"object":typeof e}var e="3.6.1",C=function(e,t){return new C.fn.init(e,t)};function G(e){var t=!!e&&"length"in e&&e.length,n=h(e);return!v(e)&&!g(e)&&("array"===n||0===t||"number"==typeof t&&0<t&&t-1 in e)}C.fn=C.prototype={jquery:e,constructor:C,length:0,toArray:function(){return s.call(this)},get:function(e){return null==e?s.call(this):e<0?this[e+this.length]:this[e]},pushStack:function(e){e=C.merge(this.constructor(),e);return e.prevObject=this,e},each:function(e){return C.each(this,e)},map:function(n){return this.pushStack(C.map(this,function(e,t){return n.call(e,t,e)}))},slice:function(){return this.pushStack(s.apply(this,arguments))},first:function(){return this.eq(0)},last:function(){return this.eq(-1)},even:function(){return this.pushStack(C.grep(this,function(e,t){return(t+1)%2}))},odd:function(){return this.pushStack(C.grep(this,function(e,t){return t%2}))},eq:function(e){var t=this.length,e=+e+(e<0?t:0);return this.pushStack(0<=e&&e<t?[this[e]]:[])},end:function(){return this.prevObject||this.constructor()},push:W,sort:t.sort,splice:t.splice},C.extend=C.fn.extend=function(){var e,t,n,r,i,o=arguments[0]||{},a=1,s=arguments.length,u=!1;for("boolean"==typeof o&&(u=o,o=arguments[a]||{},a++),"object"==typeof o||v(o)||(o={}),a===s&&(o=this,a--);a<s;a++)if(null!=(e=arguments[a]))for(t in e)n=e[t],"__proto__"!==t&&o!==n&&(u&&n&&(C.isPlainObject(n)||(r=Array.isArray(n)))?(i=o[t],i=r&&!Array.isArray(i)?[]:r||C.isPlainObject(i)?i:{},r=!1,o[t]=C.extend(u,i,n)):void 0!==n&&(o[t]=n));return o},C.extend({expando:"jQuery"+(e+Math.random()).replace(/\D/g,""),isReady:!0,error:function(e){throw new Error(e)},noop:function(){},isPlainObject:function(e){return!(!e||"[object Object]"!==B.call(e))&&(!(e=M(e))||"function"==typeof(e=_.call(e,"constructor")&&e.constructor)&&z.call(e)===U)},isEmptyObject:function(e){for(var t in e)return!1;return!0},globalEval:function(e,t,n){V(e,{nonce:t&&t.nonce},n)},each:function(e,t){var n,r=0;if(G(e)){for(n=e.length;r<n;r++)if(!1===t.call(e[r],r,e[r]))break}else for(r in e)if(!1===t.call(e[r],r,e[r]))break;return e},makeArray:function(e,t){t=t||[];return null!=e&&(G(Object(e))?C.merge(t,"string"==typeof e?[e]:e):W.call(t,e)),t},inArray:function(e,t,n){return null==t?-1:F.call(t,e,n)},merge:function(e,t){for(var n=+t.length,r=0,i=e.length;r<n;r++)e[i++]=t[r];return e.length=i,e},grep:function(e,t,n){for(var r=[],i=0,o=e.length,a=!n;i<o;i++)!t(e[i],i)!=a&&r.push(e[i]);return r},map:function(e,t,n){var r,i,o=0,a=[];if(G(e))for(r=e.length;o<r;o++)null!=(i=t(e[o],o,n))&&a.push(i);else for(o in e)null!=(i=t(e[o],o,n))&&a.push(i);return I(a)},guid:1,support:y}),"function"==typeof Symbol&&(C.fn[Symbol.iterator]=t[Symbol.iterator]),C.each("Boolean Number String Function Array Date RegExp Object Error Symbol".split(" "),function(e,t){$["[object "+t+"]"]=t.toLowerCase()});function r(e,t,n){var r=[],i=void 0!==n;while((e=e[t])&&9!==e.nodeType)if(1===e.nodeType){if(i&&C(e).is(n))break;r.push(e)}return r}function Y(e,t){for(var n=[];e;e=e.nextSibling)1===e.nodeType&&e!==t&&n.push(e);return n}var e=function(R){function c(e,t){return e="0x"+e.slice(1)-65536,t||(e<0?String.fromCharCode(65536+e):String.fromCharCode(e>>10|55296,1023&e|56320))}function M(e,t){return t?"\0"===e?"\ufffd":e.slice(0,-1)+"\\"+e.charCodeAt(e.length-1).toString(16)+" ":"\\"+e}function I(){T()}var e,p,b,o,W,d,F,$,w,u,l,T,C,n,E,h,r,i,g,S="sizzle"+ +new Date,f=R.document,k=0,B=0,_=q(),z=q(),U=q(),y=q(),X=function(e,t){return e===t&&(l=!0),0},V={}.hasOwnProperty,t=[],G=t.pop,Y=t.push,A=t.push,Q=t.slice,v=function(e,t){for(var n=0,r=e.length;n<r;n++)if(e[n]===t)return n;return-1},J="checked|selected|async|autofocus|autoplay|controls|defer|disabled|hidden|ismap|loop|multiple|open|readonly|required|scoped",a="[\\x20\\t\\r\\n\\f]",s="(?:\\\\[\\da-fA-F]{1,6}"+a+"?|\\\\[^\\r\\n\\f]|[\\w-]|[^\0-\\x7f])+",K="\\["+a+"*("+s+")(?:"+a+"*([*^$|!~]?=)"+a+"*(?:'((?:\\\\.|[^\\\\'])*)'|\"((?:\\\\.|[^\\\\\"])*)\"|("+s+"))|)"+a+"*\\]",Z=":("+s+")(?:\\((('((?:\\\\.|[^\\\\'])*)'|\"((?:\\\\.|[^\\\\\"])*)\")|((?:\\\\.|[^\\\\()[\\]]|"+K+")*)|.*)\\)|)",ee=new RegExp(a+"+","g"),m=new RegExp("^"+a+"+|((?:^|[^\\\\])(?:\\\\.)*)"+a+"+$","g"),te=new RegExp("^"+a+"*,"+a+"*"),ne=new RegExp("^"+a+"*([>+~]|"+a+")"+a+"*"),re=new RegExp(a+"|>"),ie=new RegExp(Z),oe=new RegExp("^"+s+"$"),x={ID:new RegExp("^#("+s+")"),CLASS:new RegExp("^\\.("+s+")"),TAG:new RegExp("^("+s+"|[*])"),ATTR:new RegExp("^"+K),PSEUDO:new RegExp("^"+Z),CHILD:new RegExp("^:(only|first|last|nth|nth-last)-(child|of-type)(?:\\("+a+"*(even|odd|(([+-]|)(\\d*)n|)"+a+"*(?:([+-]|)"+a+"*(\\d+)|))"+a+"*\\)|)","i"),bool:new RegExp("^(?:"+J+")$","i"),needsContext:new RegExp("^"+a+"*[>+~]|:(even|odd|eq|gt|lt|nth|first|last)(?:\\("+a+"*((?:-\\d)?\\d*)"+a+"*\\)|)(?=[^-]|$)","i")},ae=/HTML$/i,se=/^(?:input|select|textarea|button)$/i,ue=/^h\d$/i,N=/^[^{]+\{\s*\[native \w/,le=/^(?:#([\w-]+)|(\w+)|\.([\w-]+))$/,ce=/[+~]/,j=new RegExp("\\\\[\\da-fA-F]{1,6}"+a+"?|\\\\([^\\r\\n\\f])","g"),fe=/([\0-\x1f\x7f]|^-?\d)|^-$|[^\0-\x1f\x7f-\uFFFF\w-]/g,pe=ve(function(e){return!0===e.disabled&&"fieldset"===e.nodeName.toLowerCase()},{dir:"parentNode",next:"legend"});try{A.apply(t=Q.call(f.childNodes),f.childNodes),t[f.childNodes.length].nodeType}catch(e){A={apply:t.length?function(e,t){Y.apply(e,Q.call(t))}:function(e,t){var n=e.length,r=0;while(e[n++]=t[r++]);e.length=n-1}}}function D(t,e,n,r){var i,o,a,s,u,l,c=e&&e.ownerDocument,f=e?e.nodeType:9;if(n=n||[],"string"!=typeof t||!t||1!==f&&9!==f&&11!==f)return n;if(!r&&(T(e),e=e||C,E)){if(11!==f&&(s=le.exec(t)))if(i=s[1]){if(9===f){if(!(l=e.getElementById(i)))return n;if(l.id===i)return n.push(l),n}else if(c&&(l=c.getElementById(i))&&g(e,l)&&l.id===i)return n.push(l),n}else{if(s[2])return A.apply(n,e.getElementsByTagName(t)),n;if((i=s[3])&&p.getElementsByClassName&&e.getElementsByClassName)return A.apply(n,e.getElementsByClassName(i)),n}if(p.qsa&&!y[t+" "]&&(!h||!h.test(t))&&(1!==f||"object"!==e.nodeName.toLowerCase())){if(l=t,c=e,1===f&&(re.test(t)||ne.test(t))){(c=ce.test(t)&&ye(e.parentNode)||e)===e&&p.scope||((a=e.getAttribute("id"))?a=a.replace(fe,M):e.setAttribute("id",a=S)),o=(u=d(t)).length;while(o--)u[o]=(a?"#"+a:":scope")+" "+P(u[o]);l=u.join(",")}try{return A.apply(n,c.querySelectorAll(l)),n}catch(e){y(t,!0)}finally{a===S&&e.removeAttribute("id")}}}return $(t.replace(m,"$1"),e,n,r)}function q(){var n=[];function r(e,t){return n.push(e+" ")>b.cacheLength&&delete r[n.shift()],r[e+" "]=t}return r}function L(e){return e[S]=!0,e}function H(e){var t=C.createElement("fieldset");try{return!!e(t)}catch(e){return!1}finally{t.parentNode&&t.parentNode.removeChild(t)}}function de(e,t){var n=e.split("|"),r=n.length;while(r--)b.attrHandle[n[r]]=t}function he(e,t){var n=t&&e,r=n&&1===e.nodeType&&1===t.nodeType&&e.sourceIndex-t.sourceIndex;if(r)return r;if(n)while(n=n.nextSibling)if(n===t)return-1;return e?1:-1}function ge(t){return function(e){return"form"in e?e.parentNode&&!1===e.disabled?"label"in e?"label"in e.parentNode?e.parentNode.disabled===t:e.disabled===t:e.isDisabled===t||e.isDisabled!==!t&&pe(e)===t:e.disabled===t:"label"in e&&e.disabled===t}}function O(a){return L(function(o){return o=+o,L(function(e,t){var n,r=a([],e.length,o),i=r.length;while(i--)e[n=r[i]]&&(e[n]=!(t[n]=e[n]))})})}function ye(e){return e&&"undefined"!=typeof e.getElementsByTagName&&e}for(e in p=D.support={},W=D.isXML=function(e){var t=e&&e.namespaceURI,e=e&&(e.ownerDocument||e).documentElement;return!ae.test(t||e&&e.nodeName||"HTML")},T=D.setDocument=function(e){var e=e?e.ownerDocument||e:f;return e!=C&&9===e.nodeType&&e.documentElement&&(n=(C=e).documentElement,E=!W(C),f!=C&&(e=C.defaultView)&&e.top!==e&&(e.addEventListener?e.addEventListener("unload",I,!1):e.attachEvent&&e.attachEvent("onunload",I)),p.scope=H(function(e){return n.appendChild(e).appendChild(C.createElement("div")),"undefined"!=typeof e.querySelectorAll&&!e.querySelectorAll(":scope fieldset div").length}),p.attributes=H(function(e){return e.className="i",!e.getAttribute("className")}),p.getElementsByTagName=H(function(e){return e.appendChild(C.createComment("")),!e.getElementsByTagName("*").length}),p.getElementsByClassName=N.test(C.getElementsByClassName),p.getById=H(function(e){return n.appendChild(e).id=S,!C.getElementsByName||!C.getElementsByName(S).length}),p.getById?(b.filter.ID=function(e){var t=e.replace(j,c);return function(e){return e.getAttribute("id")===t}},b.find.ID=function(e,t){if("undefined"!=typeof t.getElementById&&E)return(t=t.getElementById(e))?[t]:[]}):(b.filter.ID=function(e){var t=e.replace(j,c);return function(e){e="undefined"!=typeof e.getAttributeNode&&e.getAttributeNode("id");return e&&e.value===t}},b.find.ID=function(e,t){if("undefined"!=typeof t.getElementById&&E){var n,r,i,o=t.getElementById(e);if(o){if((n=o.getAttributeNode("id"))&&n.value===e)return[o];i=t.getElementsByName(e),r=0;while(o=i[r++])if((n=o.getAttributeNode("id"))&&n.value===e)return[o]}return[]}}),b.find.TAG=p.getElementsByTagName?function(e,t){return"undefined"!=typeof t.getElementsByTagName?t.getElementsByTagName(e):p.qsa?t.querySelectorAll(e):void 0}:function(e,t){var n,r=[],i=0,o=t.getElementsByTagName(e);if("*"!==e)return o;while(n=o[i++])1===n.nodeType&&r.push(n);return r},b.find.CLASS=p.getElementsByClassName&&function(e,t){if("undefined"!=typeof t.getElementsByClassName&&E)return t.getElementsByClassName(e)},r=[],h=[],(p.qsa=N.test(C.querySelectorAll))&&(H(function(e){var t;n.appendChild(e).innerHTML="<a id='"+S+"'></a><select id='"+S+"-\r\\' msallowcapture=''><option selected=''></option></select>",e.querySelectorAll("[msallowcapture^='']").length&&h.push("[*^$]="+a+"*(?:''|\"\")"),e.querySelectorAll("[selected]").length||h.push("\\["+a+"*(?:value|"+J+")"),e.querySelectorAll("[id~="+S+"-]").length||h.push("~="),(t=C.createElement("input")).setAttribute("name",""),e.appendChild(t),e.querySelectorAll("[name='']").length||h.push("\\["+a+"*name"+a+"*="+a+"*(?:''|\"\")"),e.querySelectorAll(":checked").length||h.push(":checked"),e.querySelectorAll("a#"+S+"+*").length||h.push(".#.+[+~]"),e.querySelectorAll("\\\f"),h.push("[\\r\\n\\f]")}),H(function(e){e.innerHTML="<a href='' disabled='disabled'></a><select disabled='disabled'><option/></select>";var t=C.createElement("input");t.setAttribute("type","hidden"),e.appendChild(t).setAttribute("name","D"),e.querySelectorAll("[name=d]").length&&h.push("name"+a+"*[*^$|!~]?="),2!==e.querySelectorAll(":enabled").length&&h.push(":enabled",":disabled"),n.appendChild(e).disabled=!0,2!==e.querySelectorAll(":disabled").length&&h.push(":enabled",":disabled"),e.querySelectorAll("*,:x"),h.push(",.*:")})),(p.matchesSelector=N.test(i=n.matches||n.webkitMatchesSelector||n.mozMatchesSelector||n.oMatchesSelector||n.msMatchesSelector))&&H(function(e){p.disconnectedMatch=i.call(e,"*"),i.call(e,"[s!='']:x"),r.push("!=",Z)}),h=h.length&&new RegExp(h.join("|")),r=r.length&&new RegExp(r.join("|")),e=N.test(n.compareDocumentPosition),g=e||N.test(n.contains)?function(e,t){var n=9===e.nodeType?e.documentElement:e,t=t&&t.parentNode;return e===t||!(!t||1!==t.nodeType||!(n.contains?n.contains(t):e.compareDocumentPosition&&16&e.compareDocumentPosition(t)))}:function(e,t){if(t)while(t=t.parentNode)if(t===e)return!0;return!1},X=e?function(e,t){var n;return e===t?(l=!0,0):(n=!e.compareDocumentPosition-!t.compareDocumentPosition)||(1&(n=(e.ownerDocument||e)==(t.ownerDocument||t)?e.compareDocumentPosition(t):1)||!p.sortDetached&&t.compareDocumentPosition(e)===n?e==C||e.ownerDocument==f&&g(f,e)?-1:t==C||t.ownerDocument==f&&g(f,t)?1:u?v(u,e)-v(u,t):0:4&n?-1:1)}:function(e,t){if(e===t)return l=!0,0;var n,r=0,i=e.parentNode,o=t.parentNode,a=[e],s=[t];if(!i||!o)return e==C?-1:t==C?1:i?-1:o?1:u?v(u,e)-v(u,t):0;if(i===o)return he(e,t);n=e;while(n=n.parentNode)a.unshift(n);n=t;while(n=n.parentNode)s.unshift(n);while(a[r]===s[r])r++;return r?he(a[r],s[r]):a[r]==f?-1:s[r]==f?1:0}),C},D.matches=function(e,t){return D(e,null,null,t)},D.matchesSelector=function(e,t){if(T(e),p.matchesSelector&&E&&!y[t+" "]&&(!r||!r.test(t))&&(!h||!h.test(t)))try{var n=i.call(e,t);if(n||p.disconnectedMatch||e.document&&11!==e.document.nodeType)return n}catch(e){y(t,!0)}return 0<D(t,C,null,[e]).length},D.contains=function(e,t){return(e.ownerDocument||e)!=C&&T(e),g(e,t)},D.attr=function(e,t){(e.ownerDocument||e)!=C&&T(e);var n=b.attrHandle[t.toLowerCase()],n=n&&V.call(b.attrHandle,t.toLowerCase())?n(e,t,!E):void 0;return void 0!==n?n:p.attributes||!E?e.getAttribute(t):(n=e.getAttributeNode(t))&&n.specified?n.value:null},D.escape=function(e){return(e+"").replace(fe,M)},D.error=function(e){throw new Error("Syntax error, unrecognized expression: "+e)},D.uniqueSort=function(e){var t,n=[],r=0,i=0;if(l=!p.detectDuplicates,u=!p.sortStable&&e.slice(0),e.sort(X),l){while(t=e[i++])t===e[i]&&(r=n.push(i));while(r--)e.splice(n[r],1)}return u=null,e},o=D.getText=function(e){var t,n="",r=0,i=e.nodeType;if(i){if(1===i||9===i||11===i){if("string"==typeof e.textContent)return e.textContent;for(e=e.firstChild;e;e=e.nextSibling)n+=o(e)}else if(3===i||4===i)return e.nodeValue}else while(t=e[r++])n+=o(t);return n},(b=D.selectors={cacheLength:50,createPseudo:L,match:x,attrHandle:{},find:{},relative:{">":{dir:"parentNode",first:!0}," ":{dir:"parentNode"},"+":{dir:"previousSibling",first:!0},"~":{dir:"previousSibling"}},preFilter:{ATTR:function(e){return e[1]=e[1].replace(j,c),e[3]=(e[3]||e[4]||e[5]||"").replace(j,c),"~="===e[2]&&(e[3]=" "+e[3]+" "),e.slice(0,4)},CHILD:function(e){return e[1]=e[1].toLowerCase(),"nth"===e[1].slice(0,3)?(e[3]||D.error(e[0]),e[4]=+(e[4]?e[5]+(e[6]||1):2*("even"===e[3]||"odd"===e[3])),e[5]=+(e[7]+e[8]||"odd"===e[3])):e[3]&&D.error(e[0]),e},PSEUDO:function(e){var t,n=!e[6]&&e[2];return x.CHILD.test(e[0])?null:(e[3]?e[2]=e[4]||e[5]||"":n&&ie.test(n)&&(t=d(n,!0))&&(t=n.indexOf(")",n.length-t)-n.length)&&(e[0]=e[0].slice(0,t),e[2]=n.slice(0,t)),e.slice(0,3))}},filter:{TAG:function(e){var t=e.replace(j,c).toLowerCase();return"*"===e?function(){return!0}:function(e){return e.nodeName&&e.nodeName.toLowerCase()===t}},CLASS:function(e){var t=_[e+" "];return t||(t=new RegExp("(^|"+a+")"+e+"("+a+"|$)"))&&_(e,function(e){return t.test("string"==typeof e.className&&e.className||"undefined"!=typeof e.getAttribute&&e.getAttribute("class")||"")})},ATTR:function(t,n,r){return function(e){e=D.attr(e,t);return null==e?"!="===n:!n||(e+="","="===n?e===r:"!="===n?e!==r:"^="===n?r&&0===e.indexOf(r):"*="===n?r&&-1<e.indexOf(r):"$="===n?r&&e.slice(-r.length)===r:"~="===n?-1<(" "+e.replace(ee," ")+" ").indexOf(r):"|="===n&&(e===r||e.slice(0,r.length+1)===r+"-"))}},CHILD:function(h,e,t,g,y){var m="nth"!==h.slice(0,3),v="last"!==h.slice(-4),x="of-type"===e;return 1===g&&0===y?function(e){return!!e.parentNode}:function(e,t,n){var r,i,o,a,s,u,l=m!=v?"nextSibling":"previousSibling",c=e.parentNode,f=x&&e.nodeName.toLowerCase(),p=!n&&!x,d=!1;if(c){if(m){while(l){a=e;while(a=a[l])if(x?a.nodeName.toLowerCase()===f:1===a.nodeType)return!1;u=l="only"===h&&!u&&"nextSibling"}return!0}if(u=[v?c.firstChild:c.lastChild],v&&p){d=(s=(r=(i=(o=(a=c)[S]||(a[S]={}))[a.uniqueID]||(o[a.uniqueID]={}))[h]||[])[0]===k&&r[1])&&r[2],a=s&&c.childNodes[s];while(a=++s&&a&&a[l]||(d=s=0)||u.pop())if(1===a.nodeType&&++d&&a===e){i[h]=[k,s,d];break}}else if(!1===(d=p?s=(r=(i=(o=(a=e)[S]||(a[S]={}))[a.uniqueID]||(o[a.uniqueID]={}))[h]||[])[0]===k&&r[1]:d))while(a=++s&&a&&a[l]||(d=s=0)||u.pop())if((x?a.nodeName.toLowerCase()===f:1===a.nodeType)&&++d&&(p&&((i=(o=a[S]||(a[S]={}))[a.uniqueID]||(o[a.uniqueID]={}))[h]=[k,d]),a===e))break;return(d-=y)===g||d%g==0&&0<=d/g}}},PSEUDO:function(e,o){var t,a=b.pseudos[e]||b.setFilters[e.toLowerCase()]||D.error("unsupported pseudo: "+e);return a[S]?a(o):1<a.length?(t=[e,e,"",o],b.setFilters.hasOwnProperty(e.toLowerCase())?L(function(e,t){var n,r=a(e,o),i=r.length;while(i--)e[n=v(e,r[i])]=!(t[n]=r[i])}):function(e){return a(e,0,t)}):a}},pseudos:{not:L(function(e){var r=[],i=[],s=F(e.replace(m,"$1"));return s[S]?L(function(e,t,n,r){var i,o=s(e,null,r,[]),a=e.length;while(a--)(i=o[a])&&(e[a]=!(t[a]=i))}):function(e,t,n){return r[0]=e,s(r,null,n,i),r[0]=null,!i.pop()}}),has:L(function(t){return function(e){return 0<D(t,e).length}}),contains:L(function(t){return t=t.replace(j,c),function(e){return-1<(e.textContent||o(e)).indexOf(t)}}),lang:L(function(n){return oe.test(n||"")||D.error("unsupported lang: "+n),n=n.replace(j,c).toLowerCase(),function(e){var t;do{if(t=E?e.lang:e.getAttribute("xml:lang")||e.getAttribute("lang"))return(t=t.toLowerCase())===n||0===t.indexOf(n+"-")}while((e=e.parentNode)&&1===e.nodeType);return!1}}),target:function(e){var t=R.location&&R.location.hash;return t&&t.slice(1)===e.id},root:function(e){return e===n},focus:function(e){return e===C.activeElement&&(!C.hasFocus||C.hasFocus())&&!!(e.type||e.href||~e.tabIndex)},enabled:ge(!1),disabled:ge(!0),checked:function(e){var t=e.nodeName.toLowerCase();return"input"===t&&!!e.checked||"option"===t&&!!e.selected},selected:function(e){return e.parentNode&&e.parentNode.selectedIndex,!0===e.selected},empty:function(e){for(e=e.firstChild;e;e=e.nextSibling)if(e.nodeType<6)return!1;return!0},parent:function(e){return!b.pseudos.empty(e)},header:function(e){return ue.test(e.nodeName)},input:function(e){return se.test(e.nodeName)},button:function(e){var t=e.nodeName.toLowerCase();return"input"===t&&"button"===e.type||"button"===t},text:function(e){return"input"===e.nodeName.toLowerCase()&&"text"===e.type&&(null==(e=e.getAttribute("type"))||"text"===e.toLowerCase())},first:O(function(){return[0]}),last:O(function(e,t){return[t-1]}),eq:O(function(e,t,n){return[n<0?n+t:n]}),even:O(function(e,t){for(var n=0;n<t;n+=2)e.push(n);return e}),odd:O(function(e,t){for(var n=1;n<t;n+=2)e.push(n);return e}),lt:O(function(e,t,n){for(var r=n<0?n+t:t<n?t:n;0<=--r;)e.push(r);return e}),gt:O(function(e,t,n){for(var r=n<0?n+t:n;++r<t;)e.push(r);return e})}}).pseudos.nth=b.pseudos.eq,{radio:!0,checkbox:!0,file:!0,password:!0,image:!0})b.pseudos[e]=function(t){return function(e){return"input"===e.nodeName.toLowerCase()&&e.type===t}}(e);for(e in{submit:!0,reset:!0})b.pseudos[e]=function(n){return function(e){var t=e.nodeName.toLowerCase();return("input"===t||"button"===t)&&e.type===n}}(e);function me(){}function P(e){for(var t=0,n=e.length,r="";t<n;t++)r+=e[t].value;return r}function ve(a,e,t){var s=e.dir,u=e.next,l=u||s,c=t&&"parentNode"===l,f=B++;return e.first?function(e,t,n){while(e=e[s])if(1===e.nodeType||c)return a(e,t,n);return!1}:function(e,t,n){var r,i,o=[k,f];if(n){while(e=e[s])if((1===e.nodeType||c)&&a(e,t,n))return!0}else while(e=e[s])if(1===e.nodeType||c)if(i=(i=e[S]||(e[S]={}))[e.uniqueID]||(i[e.uniqueID]={}),u&&u===e.nodeName.toLowerCase())e=e[s]||e;else{if((r=i[l])&&r[0]===k&&r[1]===f)return o[2]=r[2];if((i[l]=o)[2]=a(e,t,n))return!0}return!1}}function xe(i){return 1<i.length?function(e,t,n){var r=i.length;while(r--)if(!i[r](e,t,n))return!1;return!0}:i[0]}function be(e,t,n,r,i){for(var o,a=[],s=0,u=e.length,l=null!=t;s<u;s++)!(o=e[s])||n&&!n(o,r,i)||(a.push(o),l&&t.push(s));return a}function we(d,h,g,y,m,e){return y&&!y[S]&&(y=we(y)),m&&!m[S]&&(m=we(m,e)),L(function(e,t,n,r){var i,o,a,s=[],u=[],l=t.length,c=e||function(e,t,n){for(var r=0,i=t.length;r<i;r++)D(e,t[r],n);return n}(h||"*",n.nodeType?[n]:n,[]),f=!d||!e&&h?c:be(c,s,d,n,r),p=g?m||(e?d:l||y)?[]:t:f;if(g&&g(f,p,n,r),y){i=be(p,u),y(i,[],n,r),o=i.length;while(o--)(a=i[o])&&(p[u[o]]=!(f[u[o]]=a))}if(e){if(m||d){if(m){i=[],o=p.length;while(o--)(a=p[o])&&i.push(f[o]=a);m(null,p=[],i,r)}o=p.length;while(o--)(a=p[o])&&-1<(i=m?v(e,a):s[o])&&(e[i]=!(t[i]=a))}}else p=be(p===t?p.splice(l,p.length):p),m?m(null,t,p,r):A.apply(t,p)})}function Te(y,m){function e(e,t,n,r,i){var o,a,s,u=0,l="0",c=e&&[],f=[],p=w,d=e||x&&b.find.TAG("*",i),h=k+=null==p?1:Math.random()||.1,g=d.length;for(i&&(w=t==C||t||i);l!==g&&null!=(o=d[l]);l++){if(x&&o){a=0,t||o.ownerDocument==C||(T(o),n=!E);while(s=y[a++])if(s(o,t||C,n)){r.push(o);break}i&&(k=h)}v&&((o=!s&&o)&&u--,e&&c.push(o))}if(u+=l,v&&l!==u){a=0;while(s=m[a++])s(c,f,t,n);if(e){if(0<u)while(l--)c[l]||f[l]||(f[l]=G.call(r));f=be(f)}A.apply(r,f),i&&!e&&0<f.length&&1<u+m.length&&D.uniqueSort(r)}return i&&(k=h,w=p),c}var v=0<m.length,x=0<y.length;return v?L(e):e}return me.prototype=b.filters=b.pseudos,b.setFilters=new me,d=D.tokenize=function(e,t){var n,r,i,o,a,s,u,l=z[e+" "];if(l)return t?0:l.slice(0);a=e,s=[],u=b.preFilter;while(a){for(o in n&&!(r=te.exec(a))||(r&&(a=a.slice(r[0].length)||a),s.push(i=[])),n=!1,(r=ne.exec(a))&&(n=r.shift(),i.push({value:n,type:r[0].replace(m," ")}),a=a.slice(n.length)),b.filter)!(r=x[o].exec(a))||u[o]&&!(r=u[o](r))||(n=r.shift(),i.push({value:n,type:o,matches:r}),a=a.slice(n.length));if(!n)break}return t?a.length:a?D.error(e):z(e,s).slice(0)},F=D.compile=function(e,t){var n,r=[],i=[],o=U[e+" "];if(!o){n=(t=t||d(e)).length;while(n--)((o=function e(t){for(var r,n,i,o=t.length,a=b.relative[t[0].type],s=a||b.relative[" "],u=a?1:0,l=ve(function(e){return e===r},s,!0),c=ve(function(e){return-1<v(r,e)},s,!0),f=[function(e,t,n){return e=!a&&(n||t!==w)||((r=t).nodeType?l:c)(e,t,n),r=null,e}];u<o;u++)if(n=b.relative[t[u].type])f=[ve(xe(f),n)];else{if((n=b.filter[t[u].type].apply(null,t[u].matches))[S]){for(i=++u;i<o;i++)if(b.relative[t[i].type])break;return we(1<u&&xe(f),1<u&&P(t.slice(0,u-1).concat({value:" "===t[u-2].type?"*":""})).replace(m,"$1"),n,u<i&&e(t.slice(u,i)),i<o&&e(t=t.slice(i)),i<o&&P(t))}f.push(n)}return xe(f)}(t[n]))[S]?r:i).push(o);(o=U(e,Te(i,r))).selector=e}return o},$=D.select=function(e,t,n,r){var i,o,a,s,u="function"==typeof e&&e,l=!r&&d(e=u.selector||e);if(n=n||[],1===l.length){if(2<(o=l[0]=l[0].slice(0)).length&&"ID"===(a=o[0]).type&&9===t.nodeType&&E&&b.relative[o[1].type]){if(!(t=(b.find.ID(a.matches[0].replace(j,c),t)||[])[0]))return n;u&&(t=t.parentNode),e=e.slice(o.shift().value.length)}i=x.needsContext.test(e)?0:o.length;while(i--){if(a=o[i],b.relative[s=a.type])break;if((s=b.find[s])&&(r=s(a.matches[0].replace(j,c),ce.test(o[0].type)&&ye(t.parentNode)||t))){if(o.splice(i,1),e=r.length&&P(o))break;return A.apply(n,r),n}}}return(u||F(e,l))(r,t,!E,n,!t||ce.test(e)&&ye(t.parentNode)||t),n},p.sortStable=S.split("").sort(X).join("")===S,p.detectDuplicates=!!l,T(),p.sortDetached=H(function(e){return 1&e.compareDocumentPosition(C.createElement("fieldset"))}),H(function(e){return e.innerHTML="<a href='#'></a>","#"===e.firstChild.getAttribute("href")})||de("type|href|height|width",function(e,t,n){if(!n)return e.getAttribute(t,"type"===t.toLowerCase()?1:2)}),p.attributes&&H(function(e){return e.innerHTML="<input/>",e.firstChild.setAttribute("value",""),""===e.firstChild.getAttribute("value")})||de("value",function(e,t,n){if(!n&&"input"===e.nodeName.toLowerCase())return e.defaultValue}),H(function(e){return null==e.getAttribute("disabled")})||de(J,function(e,t,n){if(!n)return!0===e[t]?t.toLowerCase():(n=e.getAttributeNode(t))&&n.specified?n.value:null}),D}(w),Q=(C.find=e,C.expr=e.selectors,C.expr[":"]=C.expr.pseudos,C.uniqueSort=C.unique=e.uniqueSort,C.text=e.getText,C.isXMLDoc=e.isXML,C.contains=e.contains,C.escapeSelector=e.escape,C.expr.match.needsContext);function u(e,t){return e.nodeName&&e.nodeName.toLowerCase()===t.toLowerCase()}var J=/^<([a-z][^\/\0>:\x20\t\r\n\f]*)[\x20\t\r\n\f]*\/?>(?:<\/\1>|)$/i;function K(e,n,r){return v(n)?C.grep(e,function(e,t){return!!n.call(e,t,e)!==r}):n.nodeType?C.grep(e,function(e){return e===n!==r}):"string"!=typeof n?C.grep(e,function(e){return-1<F.call(n,e)!==r}):C.filter(n,e,r)}C.filter=function(e,t,n){var r=t[0];return n&&(e=":not("+e+")"),1===t.length&&1===r.nodeType?C.find.matchesSelector(r,e)?[r]:[]:C.find.matches(e,C.grep(t,function(e){return 1===e.nodeType}))},C.fn.extend({find:function(e){var t,n,r=this.length,i=this;if("string"!=typeof e)return this.pushStack(C(e).filter(function(){for(t=0;t<r;t++)if(C.contains(i[t],this))return!0}));for(n=this.pushStack([]),t=0;t<r;t++)C.find(e,i[t],n);return 1<r?C.uniqueSort(n):n},filter:function(e){return this.pushStack(K(this,e||[],!1))},not:function(e){return this.pushStack(K(this,e||[],!0))},is:function(e){return!!K(this,"string"==typeof e&&Q.test(e)?C(e):e||[],!1).length}});var Z,ee=/^(?:\s*(<[\w\W]+>)[^>]*|#([\w-]+))$/,te=((C.fn.init=function(e,t,n){if(e){if(n=n||Z,"string"!=typeof e)return e.nodeType?(this[0]=e,this.length=1,this):v(e)?void 0!==n.ready?n.ready(e):e(C):C.makeArray(e,this);if(!(r="<"===e[0]&&">"===e[e.length-1]&&3<=e.length?[null,e,null]:ee.exec(e))||!r[1]&&t)return(!t||t.jquery?t||n:this.constructor(t)).find(e);if(r[1]){if(t=t instanceof C?t[0]:t,C.merge(this,C.parseHTML(r[1],t&&t.nodeType?t.ownerDocument||t:T,!0)),J.test(r[1])&&C.isPlainObject(t))for(var r in t)v(this[r])?this[r](t[r]):this.attr(r,t[r])}else(n=T.getElementById(r[2]))&&(this[0]=n,this.length=1)}return this}).prototype=C.fn,Z=C(T),/^(?:parents|prev(?:Until|All))/),ne={children:!0,contents:!0,next:!0,prev:!0};function re(e,t){while((e=e[t])&&1!==e.nodeType);return e}C.fn.extend({has:function(e){var t=C(e,this),n=t.length;return this.filter(function(){for(var e=0;e<n;e++)if(C.contains(this,t[e]))return!0})},closest:function(e,t){var n,r=0,i=this.length,o=[],a="string"!=typeof e&&C(e);if(!Q.test(e))for(;r<i;r++)for(n=this[r];n&&n!==t;n=n.parentNode)if(n.nodeType<11&&(a?-1<a.index(n):1===n.nodeType&&C.find.matchesSelector(n,e))){o.push(n);break}return this.pushStack(1<o.length?C.uniqueSort(o):o)},index:function(e){return e?"string"==typeof e?F.call(C(e),this[0]):F.call(this,e.jquery?e[0]:e):this[0]&&this[0].parentNode?this.first().prevAll().length:-1},add:function(e,t){return this.pushStack(C.uniqueSort(C.merge(this.get(),C(e,t))))},addBack:function(e){return this.add(null==e?this.prevObject:this.prevObject.filter(e))}}),C.each({parent:function(e){e=e.parentNode;return e&&11!==e.nodeType?e:null},parents:function(e){return r(e,"parentNode")},parentsUntil:function(e,t,n){return r(e,"parentNode",n)},next:function(e){return re(e,"nextSibling")},prev:function(e){return re(e,"previousSibling")},nextAll:function(e){return r(e,"nextSibling")},prevAll:function(e){return r(e,"previousSibling")},nextUntil:function(e,t,n){return r(e,"nextSibling",n)},prevUntil:function(e,t,n){return r(e,"previousSibling",n)},siblings:function(e){return Y((e.parentNode||{}).firstChild,e)},children:function(e){return Y(e.firstChild)},contents:function(e){return null!=e.contentDocument&&M(e.contentDocument)?e.contentDocument:(u(e,"template")&&(e=e.content||e),C.merge([],e.childNodes))}},function(r,i){C.fn[r]=function(e,t){var n=C.map(this,i,e);return(t="Until"!==r.slice(-5)?e:t)&&"string"==typeof t&&(n=C.filter(t,n)),1<this.length&&(ne[r]||C.uniqueSort(n),te.test(r)&&n.reverse()),this.pushStack(n)}});var E=/[^\x20\t\r\n\f]+/g;function c(e){return e}function ie(e){throw e}function oe(e,t,n,r){var i;try{e&&v(i=e.promise)?i.call(e).done(t).fail(n):e&&v(i=e.then)?i.call(e,t,n):t.apply(void 0,[e].slice(r))}catch(e){n.apply(void 0,[e])}}C.Callbacks=function(r){var e,n;r="string"==typeof r?(e=r,n={},C.each(e.match(E)||[],function(e,t){n[t]=!0}),n):C.extend({},r);function i(){for(s=s||r.once,a=o=!0;l.length;c=-1){t=l.shift();while(++c<u.length)!1===u[c].apply(t[0],t[1])&&r.stopOnFalse&&(c=u.length,t=!1)}r.memory||(t=!1),o=!1,s&&(u=t?[]:"")}var o,t,a,s,u=[],l=[],c=-1,f={add:function(){return u&&(t&&!o&&(c=u.length-1,l.push(t)),function n(e){C.each(e,function(e,t){v(t)?r.unique&&f.has(t)||u.push(t):t&&t.length&&"string"!==h(t)&&n(t)})}(arguments),t&&!o&&i()),this},remove:function(){return C.each(arguments,function(e,t){var n;while(-1<(n=C.inArray(t,u,n)))u.splice(n,1),n<=c&&c--}),this},has:function(e){return e?-1<C.inArray(e,u):0<u.length},empty:function(){return u=u&&[],this},disable:function(){return s=l=[],u=t="",this},disabled:function(){return!u},lock:function(){return s=l=[],t||o||(u=t=""),this},locked:function(){return!!s},fireWith:function(e,t){return s||(t=[e,(t=t||[]).slice?t.slice():t],l.push(t),o||i()),this},fire:function(){return f.fireWith(this,arguments),this},fired:function(){return!!a}};return f},C.extend({Deferred:function(e){var o=[["notify","progress",C.Callbacks("memory"),C.Callbacks("memory"),2],["resolve","done",C.Callbacks("once memory"),C.Callbacks("once memory"),0,"resolved"],["reject","fail",C.Callbacks("once memory"),C.Callbacks("once memory"),1,"rejected"]],i="pending",a={state:function(){return i},always:function(){return s.done(arguments).fail(arguments),this},catch:function(e){return a.then(null,e)},pipe:function(){var i=arguments;return C.Deferred(function(r){C.each(o,function(e,t){var n=v(i[t[4]])&&i[t[4]];s[t[1]](function(){var e=n&&n.apply(this,arguments);e&&v(e.promise)?e.promise().progress(r.notify).done(r.resolve).fail(r.reject):r[t[0]+"With"](this,n?[e]:arguments)})}),i=null}).promise()},then:function(t,n,r){var u=0;function l(i,o,a,s){return function(){function e(){var e,t;if(!(i<u)){if((e=a.apply(n,r))===o.promise())throw new TypeError("Thenable self-resolution");t=e&&("object"==typeof e||"function"==typeof e)&&e.then,v(t)?s?t.call(e,l(u,o,c,s),l(u,o,ie,s)):(u++,t.call(e,l(u,o,c,s),l(u,o,ie,s),l(u,o,c,o.notifyWith))):(a!==c&&(n=void 0,r=[e]),(s||o.resolveWith)(n,r))}}var n=this,r=arguments,t=s?e:function(){try{e()}catch(e){C.Deferred.exceptionHook&&C.Deferred.exceptionHook(e,t.stackTrace),u<=i+1&&(a!==ie&&(n=void 0,r=[e]),o.rejectWith(n,r))}};i?t():(C.Deferred.getStackHook&&(t.stackTrace=C.Deferred.getStackHook()),w.setTimeout(t))}}return C.Deferred(function(e){o[0][3].add(l(0,e,v(r)?r:c,e.notifyWith)),o[1][3].add(l(0,e,v(t)?t:c)),o[2][3].add(l(0,e,v(n)?n:ie))}).promise()},promise:function(e){return null!=e?C.extend(e,a):a}},s={};return C.each(o,function(e,t){var n=t[2],r=t[5];a[t[1]]=n.add,r&&n.add(function(){i=r},o[3-e][2].disable,o[3-e][3].disable,o[0][2].lock,o[0][3].lock),n.add(t[3].fire),s[t[0]]=function(){return s[t[0]+"With"](this===s?void 0:this,arguments),this},s[t[0]+"With"]=n.fireWith}),a.promise(s),e&&e.call(s,s),s},when:function(e){function t(t){return function(e){i[t]=this,o[t]=1<arguments.length?s.call(arguments):e,--n||a.resolveWith(i,o)}}var n=arguments.length,r=n,i=Array(r),o=s.call(arguments),a=C.Deferred();if(n<=1&&(oe(e,a.done(t(r)).resolve,a.reject,!n),"pending"===a.state()||v(o[r]&&o[r].then)))return a.then();while(r--)oe(o[r],t(r),a.reject);return a.promise()}});var ae=/^(Eval|Internal|Range|Reference|Syntax|Type|URI)Error$/,se=(C.Deferred.exceptionHook=function(e,t){w.console&&w.console.warn&&e&&ae.test(e.name)&&w.console.warn("jQuery.Deferred exception: "+e.message,e.stack,t)},C.readyException=function(e){w.setTimeout(function(){throw e})},C.Deferred());function ue(){T.removeEventListener("DOMContentLoaded",ue),w.removeEventListener("load",ue),C.ready()}C.fn.ready=function(e){return se.then(e).catch(function(e){C.readyException(e)}),this},C.extend({isReady:!1,readyWait:1,ready:function(e){(!0===e?--C.readyWait:C.isReady)||(C.isReady=!0)!==e&&0<--C.readyWait||se.resolveWith(T,[C])}}),C.ready.then=se.then,"complete"===T.readyState||"loading"!==T.readyState&&!T.documentElement.doScroll?w.setTimeout(C.ready):(T.addEventListener("DOMContentLoaded",ue),w.addEventListener("load",ue));function f(e,t,n,r,i,o,a){var s=0,u=e.length,l=null==n;if("object"===h(n))for(s in i=!0,n)f(e,t,s,n[s],!0,o,a);else if(void 0!==r&&(i=!0,v(r)||(a=!0),t=l?a?(t.call(e,r),null):(l=t,function(e,t,n){return l.call(C(e),n)}):t))for(;s<u;s++)t(e[s],n,a?r:r.call(e[s],s,t(e[s],n)));return i?e:l?t.call(e):u?t(e[0],n):o}var le=/^-ms-/,ce=/-([a-z])/g;function fe(e,t){return t.toUpperCase()}function x(e){return e.replace(le,"ms-").replace(ce,fe)}function m(e){return 1===e.nodeType||9===e.nodeType||!+e.nodeType}function pe(){this.expando=C.expando+pe.uid++}pe.uid=1,pe.prototype={cache:function(e){var t=e[this.expando];return t||(t={},m(e)&&(e.nodeType?e[this.expando]=t:Object.defineProperty(e,this.expando,{value:t,configurable:!0}))),t},set:function(e,t,n){var r,i=this.cache(e);if("string"==typeof t)i[x(t)]=n;else for(r in t)i[x(r)]=t[r];return i},get:function(e,t){return void 0===t?this.cache(e):e[this.expando]&&e[this.expando][x(t)]},access:function(e,t,n){return void 0===t||t&&"string"==typeof t&&void 0===n?this.get(e,t):(this.set(e,t,n),void 0!==n?n:t)},remove:function(e,t){var n,r=e[this.expando];if(void 0!==r){if(void 0!==t){n=(t=Array.isArray(t)?t.map(x):(t=x(t))in r?[t]:t.match(E)||[]).length;while(n--)delete r[t[n]]}void 0!==t&&!C.isEmptyObject(r)||(e.nodeType?e[this.expando]=void 0:delete e[this.expando])}},hasData:function(e){e=e[this.expando];return void 0!==e&&!C.isEmptyObject(e)}};var b=new pe,l=new pe,de=/^(?:\{[\w\W]*\}|\[[\w\W]*\])$/,he=/[A-Z]/g;function ge(e,t,n){var r,i;if(void 0===n&&1===e.nodeType)if(r="data-"+t.replace(he,"-$&").toLowerCase(),"string"==typeof(n=e.getAttribute(r))){try{n="true"===(i=n)||"false"!==i&&("null"===i?null:i===+i+""?+i:de.test(i)?JSON.parse(i):i)}catch(e){}l.set(e,t,n)}else n=void 0;return n}C.extend({hasData:function(e){return l.hasData(e)||b.hasData(e)},data:function(e,t,n){return l.access(e,t,n)},removeData:function(e,t){l.remove(e,t)},_data:function(e,t,n){return b.access(e,t,n)},_removeData:function(e,t){b.remove(e,t)}}),C.fn.extend({data:function(n,e){var t,r,i,o=this[0],a=o&&o.attributes;if(void 0!==n)return"object"==typeof n?this.each(function(){l.set(this,n)}):f(this,function(e){var t;if(o&&void 0===e)return void 0!==(t=l.get(o,n))||void 0!==(t=ge(o,n))?t:void 0;this.each(function(){l.set(this,n,e)})},null,e,1<arguments.length,null,!0);if(this.length&&(i=l.get(o),1===o.nodeType&&!b.get(o,"hasDataAttrs"))){t=a.length;while(t--)a[t]&&0===(r=a[t].name).indexOf("data-")&&(r=x(r.slice(5)),ge(o,r,i[r]));b.set(o,"hasDataAttrs",!0)}return i},removeData:function(e){return this.each(function(){l.remove(this,e)})}}),C.extend({queue:function(e,t,n){var r;if(e)return r=b.get(e,t=(t||"fx")+"queue"),n&&(!r||Array.isArray(n)?r=b.access(e,t,C.makeArray(n)):r.push(n)),r||[]},dequeue:function(e,t){t=t||"fx";var n=C.queue(e,t),r=n.length,i=n.shift(),o=C._queueHooks(e,t);"inprogress"===i&&(i=n.shift(),r--),i&&("fx"===t&&n.unshift("inprogress"),delete o.stop,i.call(e,function(){C.dequeue(e,t)},o)),!r&&o&&o.empty.fire()},_queueHooks:function(e,t){var n=t+"queueHooks";return b.get(e,n)||b.access(e,n,{empty:C.Callbacks("once memory").add(function(){b.remove(e,[t+"queue",n])})})}}),C.fn.extend({queue:function(t,n){var e=2;return"string"!=typeof t&&(n=t,t="fx",e--),arguments.length<e?C.queue(this[0],t):void 0===n?this:this.each(function(){var e=C.queue(this,t,n);C._queueHooks(this,t),"fx"===t&&"inprogress"!==e[0]&&C.dequeue(this,t)})},dequeue:function(e){return this.each(function(){C.dequeue(this,e)})},clearQueue:function(e){return this.queue(e||"fx",[])},promise:function(e,t){function n(){--i||o.resolveWith(a,[a])}var r,i=1,o=C.Deferred(),a=this,s=this.length;"string"!=typeof e&&(t=e,e=void 0),e=e||"fx";while(s--)(r=b.get(a[s],e+"queueHooks"))&&r.empty&&(i++,r.empty.add(n));return n(),o.promise(t)}});function ye(e,t){return"none"===(e=t||e).style.display||""===e.style.display&&k(e)&&"none"===C.css(e,"display")}var e=/[+-]?(?:\d*\.|)\d+(?:[eE][+-]?\d+|)/.source,me=new RegExp("^(?:([+-])=|)("+e+")([a-z%]*)$","i"),p=["Top","Right","Bottom","Left"],S=T.documentElement,k=function(e){return C.contains(e.ownerDocument,e)},ve={composed:!0};S.getRootNode&&(k=function(e){return C.contains(e.ownerDocument,e)||e.getRootNode(ve)===e.ownerDocument});function xe(e,t,n,r){var i,o,a=20,s=r?function(){return r.cur()}:function(){return C.css(e,t,"")},u=s(),l=n&&n[3]||(C.cssNumber[t]?"":"px"),c=e.nodeType&&(C.cssNumber[t]||"px"!==l&&+u)&&me.exec(C.css(e,t));if(c&&c[3]!==l){l=l||c[3],c=+(u/=2)||1;while(a--)C.style(e,t,c+l),(1-o)*(1-(o=s()/u||.5))<=0&&(a=0),c/=o;C.style(e,t,(c*=2)+l),n=n||[]}return n&&(c=+c||+u||0,i=n[1]?c+(n[1]+1)*n[2]:+n[2],r&&(r.unit=l,r.start=c,r.end=i)),i}var be={};function A(e,t){for(var n,r,i,o,a,s=[],u=0,l=e.length;u<l;u++)(r=e[u]).style&&(n=r.style.display,t?("none"===n&&(s[u]=b.get(r,"display")||null,s[u]||(r.style.display="")),""===r.style.display&&ye(r)&&(s[u]=(a=o=void 0,o=(i=r).ownerDocument,i=i.nodeName,(a=be[i])||(o=o.body.appendChild(o.createElement(i)),a=C.css(o,"display"),o.parentNode.removeChild(o),be[i]=a="none"===a?"block":a),a))):"none"!==n&&(s[u]="none",b.set(r,"display",n)));for(u=0;u<l;u++)null!=s[u]&&(e[u].style.display=s[u]);return e}C.fn.extend({show:function(){return A(this,!0)},hide:function(){return A(this)},toggle:function(e){return"boolean"==typeof e?e?this.show():this.hide():this.each(function(){ye(this)?C(this).show():C(this).hide()})}});var we=/^(?:checkbox|radio)$/i,Te=/<([a-z][^\/\0>\x20\t\r\n\f]*)/i,Ce=/^$|^module$|\/(?:java|ecma)script/i,N=(L=T.createDocumentFragment().appendChild(T.createElement("div")),(o=T.createElement("input")).setAttribute("type","radio"),o.setAttribute("checked","checked"),o.setAttribute("name","t"),L.appendChild(o),y.checkClone=L.cloneNode(!0).cloneNode(!0).lastChild.checked,L.innerHTML="<textarea>x</textarea>",y.noCloneChecked=!!L.cloneNode(!0).lastChild.defaultValue,L.innerHTML="<option></option>",y.option=!!L.lastChild,{thead:[1,"<table>","</table>"],col:[2,"<table><colgroup>","</colgroup></table>"],tr:[2,"<table><tbody>","</tbody></table>"],td:[3,"<table><tbody><tr>","</tr></tbody></table>"],_default:[0,"",""]});function j(e,t){var n="undefined"!=typeof e.getElementsByTagName?e.getElementsByTagName(t||"*"):"undefined"!=typeof e.querySelectorAll?e.querySelectorAll(t||"*"):[];return void 0===t||t&&u(e,t)?C.merge([e],n):n}function Ee(e,t){for(var n=0,r=e.length;n<r;n++)b.set(e[n],"globalEval",!t||b.get(t[n],"globalEval"))}N.tbody=N.tfoot=N.colgroup=N.caption=N.thead,N.th=N.td,y.option||(N.optgroup=N.option=[1,"<select multiple='multiple'>","</select>"]);var Se=/<|&#?\w+;/;function ke(e,t,n,r,i){for(var o,a,s,u,l,c=t.createDocumentFragment(),f=[],p=0,d=e.length;p<d;p++)if((o=e[p])||0===o)if("object"===h(o))C.merge(f,o.nodeType?[o]:o);else if(Se.test(o)){a=a||c.appendChild(t.createElement("div")),s=(Te.exec(o)||["",""])[1].toLowerCase(),s=N[s]||N._default,a.innerHTML=s[1]+C.htmlPrefilter(o)+s[2],l=s[0];while(l--)a=a.lastChild;C.merge(f,a.childNodes),(a=c.firstChild).textContent=""}else f.push(t.createTextNode(o));c.textContent="",p=0;while(o=f[p++])if(r&&-1<C.inArray(o,r))i&&i.push(o);else if(u=k(o),a=j(c.appendChild(o),"script"),u&&Ee(a),n){l=0;while(o=a[l++])Ce.test(o.type||"")&&n.push(o)}return c}var Ae=/^([^.]*)(?:\.(.+)|)/;function n(){return!0}function d(){return!1}function Ne(e,t){return e===function(){try{return T.activeElement}catch(e){}}()==("focus"===t)}function je(e,t,n,r,i,o){var a,s;if("object"==typeof t){for(s in"string"!=typeof n&&(r=r||n,n=void 0),t)je(e,s,n,r,t[s],o);return e}if(null==r&&null==i?(i=n,r=n=void 0):null==i&&("string"==typeof n?(i=r,r=void 0):(i=r,r=n,n=void 0)),!1===i)i=d;else if(!i)return e;return 1===o&&(a=i,(i=function(e){return C().off(e),a.apply(this,arguments)}).guid=a.guid||(a.guid=C.guid++)),e.each(function(){C.event.add(this,t,i,r,n)})}function De(e,i,o){o?(b.set(e,i,!1),C.event.add(e,i,{namespace:!1,handler:function(e){var t,n,r=b.get(this,i);if(1&e.isTrigger&&this[i]){if(r.length)(C.event.special[i]||{}).delegateType&&e.stopPropagation();else if(r=s.call(arguments),b.set(this,i,r),t=o(this,i),this[i](),r!==(n=b.get(this,i))||t?b.set(this,i,!1):n={},r!==n)return e.stopImmediatePropagation(),e.preventDefault(),n&&n.value}else r.length&&(b.set(this,i,{value:C.event.trigger(C.extend(r[0],C.Event.prototype),r.slice(1),this)}),e.stopImmediatePropagation())}})):void 0===b.get(e,i)&&C.event.add(e,i,n)}C.event={global:{},add:function(t,e,n,r,i){var o,a,s,u,l,c,f,p,d,h=b.get(t);if(m(t)){n.handler&&(n=(o=n).handler,i=o.selector),i&&C.find.matchesSelector(S,i),n.guid||(n.guid=C.guid++),(s=h.events)||(s=h.events=Object.create(null)),(a=h.handle)||(a=h.handle=function(e){return"undefined"!=typeof C&&C.event.triggered!==e.type?C.event.dispatch.apply(t,arguments):void 0}),u=(e=(e||"").match(E)||[""]).length;while(u--)f=d=(p=Ae.exec(e[u])||[])[1],p=(p[2]||"").split(".").sort(),f&&(l=C.event.special[f]||{},f=(i?l.delegateType:l.bindType)||f,l=C.event.special[f]||{},d=C.extend({type:f,origType:d,data:r,handler:n,guid:n.guid,selector:i,needsContext:i&&C.expr.match.needsContext.test(i),namespace:p.join(".")},o),(c=s[f])||((c=s[f]=[]).delegateCount=0,l.setup&&!1!==l.setup.call(t,r,p,a)||t.addEventListener&&t.addEventListener(f,a)),l.add&&(l.add.call(t,d),d.handler.guid||(d.handler.guid=n.guid)),i?c.splice(c.delegateCount++,0,d):c.push(d),C.event.global[f]=!0)}},remove:function(e,t,n,r,i){var o,a,s,u,l,c,f,p,d,h,g,y=b.hasData(e)&&b.get(e);if(y&&(u=y.events)){l=(t=(t||"").match(E)||[""]).length;while(l--)if(d=g=(s=Ae.exec(t[l])||[])[1],h=(s[2]||"").split(".").sort(),d){f=C.event.special[d]||{},p=u[d=(r?f.delegateType:f.bindType)||d]||[],s=s[2]&&new RegExp("(^|\\.)"+h.join("\\.(?:.*\\.|)")+"(\\.|$)"),a=o=p.length;while(o--)c=p[o],!i&&g!==c.origType||n&&n.guid!==c.guid||s&&!s.test(c.namespace)||r&&r!==c.selector&&("**"!==r||!c.selector)||(p.splice(o,1),c.selector&&p.delegateCount--,f.remove&&f.remove.call(e,c));a&&!p.length&&(f.teardown&&!1!==f.teardown.call(e,h,y.handle)||C.removeEvent(e,d,y.handle),delete u[d])}else for(d in u)C.event.remove(e,d+t[l],n,r,!0);C.isEmptyObject(u)&&b.remove(e,"handle events")}},dispatch:function(e){var t,n,r,i,o,a=new Array(arguments.length),s=C.event.fix(e),e=(b.get(this,"events")||Object.create(null))[s.type]||[],u=C.event.special[s.type]||{};for(a[0]=s,t=1;t<arguments.length;t++)a[t]=arguments[t];if(s.delegateTarget=this,!u.preDispatch||!1!==u.preDispatch.call(this,s)){o=C.event.handlers.call(this,s,e),t=0;while((r=o[t++])&&!s.isPropagationStopped()){s.currentTarget=r.elem,n=0;while((i=r.handlers[n++])&&!s.isImmediatePropagationStopped())s.rnamespace&&!1!==i.namespace&&!s.rnamespace.test(i.namespace)||(s.handleObj=i,s.data=i.data,void 0!==(i=((C.event.special[i.origType]||{}).handle||i.handler).apply(r.elem,a))&&!1===(s.result=i)&&(s.preventDefault(),s.stopPropagation()))}return u.postDispatch&&u.postDispatch.call(this,s),s.result}},handlers:function(e,t){var n,r,i,o,a,s=[],u=t.delegateCount,l=e.target;if(u&&l.nodeType&&!("click"===e.type&&1<=e.button))for(;l!==this;l=l.parentNode||this)if(1===l.nodeType&&("click"!==e.type||!0!==l.disabled)){for(o=[],a={},n=0;n<u;n++)void 0===a[i=(r=t[n]).selector+" "]&&(a[i]=r.needsContext?-1<C(i,this).index(l):C.find(i,this,null,[l]).length),a[i]&&o.push(r);o.length&&s.push({elem:l,handlers:o})}return l=this,u<t.length&&s.push({elem:l,handlers:t.slice(u)}),s},addProp:function(t,e){Object.defineProperty(C.Event.prototype,t,{enumerable:!0,configurable:!0,get:v(e)?function(){if(this.originalEvent)return e(this.originalEvent)}:function(){if(this.originalEvent)return this.originalEvent[t]},set:function(e){Object.defineProperty(this,t,{enumerable:!0,configurable:!0,writable:!0,value:e})}})},fix:function(e){return e[C.expando]?e:new C.Event(e)},special:{load:{noBubble:!0},click:{setup:function(e){e=this||e;return we.test(e.type)&&e.click&&u(e,"input")&&De(e,"click",n),!1},trigger:function(e){e=this||e;return we.test(e.type)&&e.click&&u(e,"input")&&De(e,"click"),!0},_default:function(e){e=e.target;return we.test(e.type)&&e.click&&u(e,"input")&&b.get(e,"click")||u(e,"a")}},beforeunload:{postDispatch:function(e){void 0!==e.result&&e.originalEvent&&(e.originalEvent.returnValue=e.result)}}}},C.removeEvent=function(e,t,n){e.removeEventListener&&e.removeEventListener(t,n)},C.Event=function(e,t){if(!(this instanceof C.Event))return new C.Event(e,t);e&&e.type?(this.originalEvent=e,this.type=e.type,this.isDefaultPrevented=e.defaultPrevented||void 0===e.defaultPrevented&&!1===e.returnValue?n:d,this.target=e.target&&3===e.target.nodeType?e.target.parentNode:e.target,this.currentTarget=e.currentTarget,this.relatedTarget=e.relatedTarget):this.type=e,t&&C.extend(this,t),this.timeStamp=e&&e.timeStamp||Date.now(),this[C.expando]=!0},C.Event.prototype={constructor:C.Event,isDefaultPrevented:d,isPropagationStopped:d,isImmediatePropagationStopped:d,isSimulated:!1,preventDefault:function(){var e=this.originalEvent;this.isDefaultPrevented=n,e&&!this.isSimulated&&e.preventDefault()},stopPropagation:function(){var e=this.originalEvent;this.isPropagationStopped=n,e&&!this.isSimulated&&e.stopPropagation()},stopImmediatePropagation:function(){var e=this.originalEvent;this.isImmediatePropagationStopped=n,e&&!this.isSimulated&&e.stopImmediatePropagation(),this.stopPropagation()}},C.each({altKey:!0,bubbles:!0,cancelable:!0,changedTouches:!0,ctrlKey:!0,detail:!0,eventPhase:!0,metaKey:!0,pageX:!0,pageY:!0,shiftKey:!0,view:!0,char:!0,code:!0,charCode:!0,key:!0,keyCode:!0,button:!0,buttons:!0,clientX:!0,clientY:!0,offsetX:!0,offsetY:!0,pointerId:!0,pointerType:!0,screenX:!0,screenY:!0,targetTouches:!0,toElement:!0,touches:!0,which:!0},C.event.addProp),C.each({focus:"focusin",blur:"focusout"},function(t,e){C.event.special[t]={setup:function(){return De(this,t,Ne),!1},trigger:function(){return De(this,t),!0},_default:function(e){return b.get(e.target,t)},delegateType:e}}),C.each({mouseenter:"mouseover",mouseleave:"mouseout",pointerenter:"pointerover",pointerleave:"pointerout"},function(e,i){C.event.special[e]={delegateType:i,bindType:i,handle:function(e){var t,n=e.relatedTarget,r=e.handleObj;return n&&(n===this||C.contains(this,n))||(e.type=r.origType,t=r.handler.apply(this,arguments),e.type=i),t}}}),C.fn.extend({on:function(e,t,n,r){return je(this,e,t,n,r)},one:function(e,t,n,r){return je(this,e,t,n,r,1)},off:function(e,t,n){var r,i;if(e&&e.preventDefault&&e.handleObj)r=e.handleObj,C(e.delegateTarget).off(r.namespace?r.origType+"."+r.namespace:r.origType,r.selector,r.handler);else{if("object"!=typeof e)return!1!==t&&"function"!=typeof t||(n=t,t=void 0),!1===n&&(n=d),this.each(function(){C.event.remove(this,e,n,t)});for(i in e)this.off(i,t,e[i])}return this}});var qe=/<script|<style|<link/i,Le=/checked\s*(?:[^=]|=\s*.checked.)/i,He=/^\s*<!\[CDATA\[|\]\]>\s*$/g;function Oe(e,t){return u(e,"table")&&u(11!==t.nodeType?t:t.firstChild,"tr")&&C(e).children("tbody")[0]||e}function Pe(e){return e.type=(null!==e.getAttribute("type"))+"/"+e.type,e}function Re(e){return"true/"===(e.type||"").slice(0,5)?e.type=e.type.slice(5):e.removeAttribute("type"),e}function Me(e,t){var n,r,i,o;if(1===t.nodeType){if(b.hasData(e)&&(o=b.get(e).events))for(i in b.remove(t,"handle events"),o)for(n=0,r=o[i].length;n<r;n++)C.event.add(t,i,o[i][n]);l.hasData(e)&&(e=l.access(e),e=C.extend({},e),l.set(t,e))}}function D(n,r,i,o){r=I(r);var e,t,a,s,u,l,c=0,f=n.length,p=f-1,d=r[0],h=v(d);if(h||1<f&&"string"==typeof d&&!y.checkClone&&Le.test(d))return n.each(function(e){var t=n.eq(e);h&&(r[0]=d.call(this,e,t.html())),D(t,r,i,o)});if(f&&(t=(e=ke(r,n[0].ownerDocument,!1,n,o)).firstChild,1===e.childNodes.length&&(e=t),t||o)){for(s=(a=C.map(j(e,"script"),Pe)).length;c<f;c++)u=e,c!==p&&(u=C.clone(u,!0,!0),s&&C.merge(a,j(u,"script"))),i.call(n[c],u,c);if(s)for(l=a[a.length-1].ownerDocument,C.map(a,Re),c=0;c<s;c++)u=a[c],Ce.test(u.type||"")&&!b.access(u,"globalEval")&&C.contains(l,u)&&(u.src&&"module"!==(u.type||"").toLowerCase()?C._evalUrl&&!u.noModule&&C._evalUrl(u.src,{nonce:u.nonce||u.getAttribute("nonce")},l):V(u.textContent.replace(He,""),u,l))}return n}function Ie(e,t,n){for(var r,i=t?C.filter(t,e):e,o=0;null!=(r=i[o]);o++)n||1!==r.nodeType||C.cleanData(j(r)),r.parentNode&&(n&&k(r)&&Ee(j(r,"script")),r.parentNode.removeChild(r));return e}C.extend({htmlPrefilter:function(e){return e},clone:function(e,t,n){var r,i,o,a,s,u,l,c=e.cloneNode(!0),f=k(e);if(!(y.noCloneChecked||1!==e.nodeType&&11!==e.nodeType||C.isXMLDoc(e)))for(a=j(c),r=0,i=(o=j(e)).length;r<i;r++)s=o[r],u=a[r],l=void 0,"input"===(l=u.nodeName.toLowerCase())&&we.test(s.type)?u.checked=s.checked:"input"!==l&&"textarea"!==l||(u.defaultValue=s.defaultValue);if(t)if(n)for(o=o||j(e),a=a||j(c),r=0,i=o.length;r<i;r++)Me(o[r],a[r]);else Me(e,c);return 0<(a=j(c,"script")).length&&Ee(a,!f&&j(e,"script")),c},cleanData:function(e){for(var t,n,r,i=C.event.special,o=0;void 0!==(n=e[o]);o++)if(m(n)){if(t=n[b.expando]){if(t.events)for(r in t.events)i[r]?C.event.remove(n,r):C.removeEvent(n,r,t.handle);n[b.expando]=void 0}n[l.expando]&&(n[l.expando]=void 0)}}}),C.fn.extend({detach:function(e){return Ie(this,e,!0)},remove:function(e){return Ie(this,e)},text:function(e){return f(this,function(e){return void 0===e?C.text(this):this.empty().each(function(){1!==this.nodeType&&11!==this.nodeType&&9!==this.nodeType||(this.textContent=e)})},null,e,arguments.length)},append:function(){return D(this,arguments,function(e){1!==this.nodeType&&11!==this.nodeType&&9!==this.nodeType||Oe(this,e).appendChild(e)})},prepend:function(){return D(this,arguments,function(e){var t;1!==this.nodeType&&11!==this.nodeType&&9!==this.nodeType||(t=Oe(this,e)).insertBefore(e,t.firstChild)})},before:function(){return D(this,arguments,function(e){this.parentNode&&this.parentNode.insertBefore(e,this)})},after:function(){return D(this,arguments,function(e){this.parentNode&&this.parentNode.insertBefore(e,this.nextSibling)})},empty:function(){for(var e,t=0;null!=(e=this[t]);t++)1===e.nodeType&&(C.cleanData(j(e,!1)),e.textContent="");return this},clone:function(e,t){return e=null!=e&&e,t=null==t?e:t,this.map(function(){return C.clone(this,e,t)})},html:function(e){return f(this,function(e){var t=this[0]||{},n=0,r=this.length;if(void 0===e&&1===t.nodeType)return t.innerHTML;if("string"==typeof e&&!qe.test(e)&&!N[(Te.exec(e)||["",""])[1].toLowerCase()]){e=C.htmlPrefilter(e);try{for(;n<r;n++)1===(t=this[n]||{}).nodeType&&(C.cleanData(j(t,!1)),t.innerHTML=e);t=0}catch(e){}}t&&this.empty().append(e)},null,e,arguments.length)},replaceWith:function(){var n=[];return D(this,arguments,function(e){var t=this.parentNode;C.inArray(this,n)<0&&(C.cleanData(j(this)),t&&t.replaceChild(e,this))},n)}}),C.each({appendTo:"append",prependTo:"prepend",insertBefore:"before",insertAfter:"after",replaceAll:"replaceWith"},function(e,a){C.fn[e]=function(e){for(var t,n=[],r=C(e),i=r.length-1,o=0;o<=i;o++)t=o===i?this:this.clone(!0),C(r[o])[a](t),W.apply(n,t.get());return this.pushStack(n)}});function We(e){var t=e.ownerDocument.defaultView;return(t=t&&t.opener?t:w).getComputedStyle(e)}function Fe(e,t,n){var r,i={};for(r in t)i[r]=e.style[r],e.style[r]=t[r];for(r in n=n.call(e),t)e.style[r]=i[r];return n}var $e,Be,_e,ze,Ue,Xe,Ve,i,Ge=new RegExp("^("+e+")(?!px)[a-z%]+$","i"),Ye=/^--/,Qe=new RegExp(p.join("|"),"i"),o="[\\x20\\t\\r\\n\\f]",Je=new RegExp("^"+o+"+|((?:^|[^\\\\])(?:\\\\.)*)"+o+"+$","g");function Ke(){var e;i&&(Ve.style.cssText="position:absolute;left:-11111px;width:60px;margin-top:1px;padding:0;border:0",i.style.cssText="position:relative;display:block;box-sizing:border-box;overflow:scroll;margin:auto;border:1px;padding:1px;width:60%;top:1%",S.appendChild(Ve).appendChild(i),e=w.getComputedStyle(i),$e="1%"!==e.top,Xe=12===Ze(e.marginLeft),i.style.right="60%",ze=36===Ze(e.right),Be=36===Ze(e.width),i.style.position="absolute",_e=12===Ze(i.offsetWidth/3),S.removeChild(Ve),i=null)}function Ze(e){return Math.round(parseFloat(e))}function et(e,t,n){var r,i=Ye.test(t),o=e.style;return(n=n||We(e))&&(r=n.getPropertyValue(t)||n[t],""!==(r=i?r.replace(Je,"$1"):r)||k(e)||(r=C.style(e,t)),!y.pixelBoxStyles()&&Ge.test(r)&&Qe.test(t)&&(i=o.width,e=o.minWidth,t=o.maxWidth,o.minWidth=o.maxWidth=o.width=r,r=n.width,o.width=i,o.minWidth=e,o.maxWidth=t)),void 0!==r?r+"":r}function tt(e,t){return{get:function(){if(!e())return(this.get=t).apply(this,arguments);delete this.get}}}Ve=T.createElement("div"),(i=T.createElement("div")).style&&(i.style.backgroundClip="content-box",i.cloneNode(!0).style.backgroundClip="",y.clearCloneStyle="content-box"===i.style.backgroundClip,C.extend(y,{boxSizingReliable:function(){return Ke(),Be},pixelBoxStyles:function(){return Ke(),ze},pixelPosition:function(){return Ke(),$e},reliableMarginLeft:function(){return Ke(),Xe},scrollboxSize:function(){return Ke(),_e},reliableTrDimensions:function(){var e,t,n;return null==Ue&&(e=T.createElement("table"),t=T.createElement("tr"),n=T.createElement("div"),e.style.cssText="position:absolute;left:-11111px;border-collapse:separate",t.style.cssText="border:1px solid",t.style.height="1px",n.style.height="9px",n.style.display="block",S.appendChild(e).appendChild(t).appendChild(n),n=w.getComputedStyle(t),Ue=parseInt(n.height,10)+parseInt(n.borderTopWidth,10)+parseInt(n.borderBottomWidth,10)===t.offsetHeight,S.removeChild(e)),Ue}}));var nt=["Webkit","Moz","ms"],rt=T.createElement("div").style,it={};function ot(e){var t=C.cssProps[e]||it[e];return t||(e in rt?e:it[e]=function(e){var t=e[0].toUpperCase()+e.slice(1),n=nt.length;while(n--)if((e=nt[n]+t)in rt)return e}(e)||e)}var at=/^(none|table(?!-c[ea]).+)/,st={position:"absolute",visibility:"hidden",display:"block"},ut={letterSpacing:"0",fontWeight:"400"};function lt(e,t,n){var r=me.exec(t);return r?Math.max(0,r[2]-(n||0))+(r[3]||"px"):t}function ct(e,t,n,r,i,o){var a="width"===t?1:0,s=0,u=0;if(n===(r?"border":"content"))return 0;for(;a<4;a+=2)"margin"===n&&(u+=C.css(e,n+p[a],!0,i)),r?("content"===n&&(u-=C.css(e,"padding"+p[a],!0,i)),"margin"!==n&&(u-=C.css(e,"border"+p[a]+"Width",!0,i))):(u+=C.css(e,"padding"+p[a],!0,i),"padding"!==n?u+=C.css(e,"border"+p[a]+"Width",!0,i):s+=C.css(e,"border"+p[a]+"Width",!0,i));return!r&&0<=o&&(u+=Math.max(0,Math.ceil(e["offset"+t[0].toUpperCase()+t.slice(1)]-o-u-s-.5))||0),u}function ft(e,t,n){var r=We(e),i=(!y.boxSizingReliable()||n)&&"border-box"===C.css(e,"boxSizing",!1,r),o=i,a=et(e,t,r),s="offset"+t[0].toUpperCase()+t.slice(1);if(Ge.test(a)){if(!n)return a;a="auto"}return(!y.boxSizingReliable()&&i||!y.reliableTrDimensions()&&u(e,"tr")||"auto"===a||!parseFloat(a)&&"inline"===C.css(e,"display",!1,r))&&e.getClientRects().length&&(i="border-box"===C.css(e,"boxSizing",!1,r),(o=s in e)&&(a=e[s])),(a=parseFloat(a)||0)+ct(e,t,n||(i?"border":"content"),o,r,a)+"px"}function a(e,t,n,r,i){return new a.prototype.init(e,t,n,r,i)}C.extend({cssHooks:{opacity:{get:function(e,t){if(t)return""===(t=et(e,"opacity"))?"1":t}}},cssNumber:{animationIterationCount:!0,columnCount:!0,fillOpacity:!0,flexGrow:!0,flexShrink:!0,fontWeight:!0,gridArea:!0,gridColumn:!0,gridColumnEnd:!0,gridColumnStart:!0,gridRow:!0,gridRowEnd:!0,gridRowStart:!0,lineHeight:!0,opacity:!0,order:!0,orphans:!0,widows:!0,zIndex:!0,zoom:!0},cssProps:{},style:function(e,t,n,r){if(e&&3!==e.nodeType&&8!==e.nodeType&&e.style){var i,o,a,s=x(t),u=Ye.test(t),l=e.style;if(u||(t=ot(s)),a=C.cssHooks[t]||C.cssHooks[s],void 0===n)return a&&"get"in a&&void 0!==(i=a.get(e,!1,r))?i:l[t];"string"===(o=typeof n)&&(i=me.exec(n))&&i[1]&&(n=xe(e,t,i),o="number"),null!=n&&n==n&&("number"!==o||u||(n+=i&&i[3]||(C.cssNumber[s]?"":"px")),y.clearCloneStyle||""!==n||0!==t.indexOf("background")||(l[t]="inherit"),a&&"set"in a&&void 0===(n=a.set(e,n,r))||(u?l.setProperty(t,n):l[t]=n))}},css:function(e,t,n,r){var i,o=x(t);return Ye.test(t)||(t=ot(o)),"normal"===(i=void 0===(i=(o=C.cssHooks[t]||C.cssHooks[o])&&"get"in o?o.get(e,!0,n):i)?et(e,t,r):i)&&t in ut&&(i=ut[t]),(""===n||n)&&(o=parseFloat(i),!0===n||isFinite(o))?o||0:i}}),C.each(["height","width"],function(e,a){C.cssHooks[a]={get:function(e,t,n){if(t)return!at.test(C.css(e,"display"))||e.getClientRects().length&&e.getBoundingClientRect().width?ft(e,a,n):Fe(e,st,function(){return ft(e,a,n)})},set:function(e,t,n){var r=We(e),i=!y.scrollboxSize()&&"absolute"===r.position,o=(i||n)&&"border-box"===C.css(e,"boxSizing",!1,r),n=n?ct(e,a,n,o,r):0;return o&&i&&(n-=Math.ceil(e["offset"+a[0].toUpperCase()+a.slice(1)]-parseFloat(r[a])-ct(e,a,"border",!1,r)-.5)),n&&(o=me.exec(t))&&"px"!==(o[3]||"px")&&(e.style[a]=t,t=C.css(e,a)),lt(0,t,n)}}}),C.cssHooks.marginLeft=tt(y.reliableMarginLeft,function(e,t){if(t)return(parseFloat(et(e,"marginLeft"))||e.getBoundingClientRect().left-Fe(e,{marginLeft:0},function(){return e.getBoundingClientRect().left}))+"px"}),C.each({margin:"",padding:"",border:"Width"},function(i,o){C.cssHooks[i+o]={expand:function(e){for(var t=0,n={},r="string"==typeof e?e.split(" "):[e];t<4;t++)n[i+p[t]+o]=r[t]||r[t-2]||r[0];return n}},"margin"!==i&&(C.cssHooks[i+o].set=lt)}),C.fn.extend({css:function(e,t){return f(this,function(e,t,n){var r,i,o={},a=0;if(Array.isArray(t)){for(r=We(e),i=t.length;a<i;a++)o[t[a]]=C.css(e,t[a],!1,r);return o}return void 0!==n?C.style(e,t,n):C.css(e,t)},e,t,1<arguments.length)}}),((C.Tween=a).prototype={constructor:a,init:function(e,t,n,r,i,o){this.elem=e,this.prop=n,this.easing=i||C.easing._default,this.options=t,this.start=this.now=this.cur(),this.end=r,this.unit=o||(C.cssNumber[n]?"":"px")},cur:function(){var e=a.propHooks[this.prop];return(e&&e.get?e:a.propHooks._default).get(this)},run:function(e){var t,n=a.propHooks[this.prop];return this.options.duration?this.pos=t=C.easing[this.easing](e,this.options.duration*e,0,1,this.options.duration):this.pos=t=e,this.now=(this.end-this.start)*t+this.start,this.options.step&&this.options.step.call(this.elem,this.now,this),(n&&n.set?n:a.propHooks._default).set(this),this}}).init.prototype=a.prototype,(a.propHooks={_default:{get:function(e){return 1!==e.elem.nodeType||null!=e.elem[e.prop]&&null==e.elem.style[e.prop]?e.elem[e.prop]:(e=C.css(e.elem,e.prop,""))&&"auto"!==e?e:0},set:function(e){C.fx.step[e.prop]?C.fx.step[e.prop](e):1!==e.elem.nodeType||!C.cssHooks[e.prop]&&null==e.elem.style[ot(e.prop)]?e.elem[e.prop]=e.now:C.style(e.elem,e.prop,e.now+e.unit)}}}).scrollTop=a.propHooks.scrollLeft={set:function(e){e.elem.nodeType&&e.elem.parentNode&&(e.elem[e.prop]=e.now)}},C.easing={linear:function(e){return e},swing:function(e){return.5-Math.cos(e*Math.PI)/2},_default:"swing"},C.fx=a.prototype.init,C.fx.step={};var q,pt,L,dt=/^(?:toggle|show|hide)$/,ht=/queueHooks$/;function gt(){pt&&(!1===T.hidden&&w.requestAnimationFrame?w.requestAnimationFrame(gt):w.setTimeout(gt,C.fx.interval),C.fx.tick())}function yt(){return w.setTimeout(function(){q=void 0}),q=Date.now()}function mt(e,t){var n,r=0,i={height:e};for(t=t?1:0;r<4;r+=2-t)i["margin"+(n=p[r])]=i["padding"+n]=e;return t&&(i.opacity=i.width=e),i}function vt(e,t,n){for(var r,i=(H.tweeners[t]||[]).concat(H.tweeners["*"]),o=0,a=i.length;o<a;o++)if(r=i[o].call(n,t,e))return r}function H(i,e,t){var n,o,r,a,s,u,l,c=0,f=H.prefilters.length,p=C.Deferred().always(function(){delete d.elem}),d=function(){if(!o){for(var e=q||yt(),e=Math.max(0,h.startTime+h.duration-e),t=1-(e/h.duration||0),n=0,r=h.tweens.length;n<r;n++)h.tweens[n].run(t);if(p.notifyWith(i,[h,t,e]),t<1&&r)return e;r||p.notifyWith(i,[h,1,0]),p.resolveWith(i,[h])}return!1},h=p.promise({elem:i,props:C.extend({},e),opts:C.extend(!0,{specialEasing:{},easing:C.easing._default},t),originalProperties:e,originalOptions:t,startTime:q||yt(),duration:t.duration,tweens:[],createTween:function(e,t){t=C.Tween(i,h.opts,e,t,h.opts.specialEasing[e]||h.opts.easing);return h.tweens.push(t),t},stop:function(e){var t=0,n=e?h.tweens.length:0;if(!o){for(o=!0;t<n;t++)h.tweens[t].run(1);e?(p.notifyWith(i,[h,1,0]),p.resolveWith(i,[h,e])):p.rejectWith(i,[h,e])}return this}}),g=h.props,y=g,m=h.opts.specialEasing;for(r in y)if(s=m[a=x(r)],u=y[r],Array.isArray(u)&&(s=u[1],u=y[r]=u[0]),r!==a&&(y[a]=u,delete y[r]),(l=C.cssHooks[a])&&"expand"in l)for(r in u=l.expand(u),delete y[a],u)r in y||(y[r]=u[r],m[r]=s);else m[a]=s;for(;c<f;c++)if(n=H.prefilters[c].call(h,i,g,h.opts))return v(n.stop)&&(C._queueHooks(h.elem,h.opts.queue).stop=n.stop.bind(n)),n;return C.map(g,vt,h),v(h.opts.start)&&h.opts.start.call(i,h),h.progress(h.opts.progress).done(h.opts.done,h.opts.complete).fail(h.opts.fail).always(h.opts.always),C.fx.timer(C.extend(d,{elem:i,anim:h,queue:h.opts.queue})),h}C.Animation=C.extend(H,{tweeners:{"*":[function(e,t){var n=this.createTween(e,t);return xe(n.elem,e,me.exec(t),n),n}]},tweener:function(e,t){for(var n,r=0,i=(e=v(e)?(t=e,["*"]):e.match(E)).length;r<i;r++)n=e[r],H.tweeners[n]=H.tweeners[n]||[],H.tweeners[n].unshift(t)},prefilters:[function(e,t,n){var r,i,o,a,s,u,l,c="width"in t||"height"in t,f=this,p={},d=e.style,h=e.nodeType&&ye(e),g=b.get(e,"fxshow");for(r in n.queue||(null==(a=C._queueHooks(e,"fx")).unqueued&&(a.unqueued=0,s=a.empty.fire,a.empty.fire=function(){a.unqueued||s()}),a.unqueued++,f.always(function(){f.always(function(){a.unqueued--,C.queue(e,"fx").length||a.empty.fire()})})),t)if(i=t[r],dt.test(i)){if(delete t[r],o=o||"toggle"===i,i===(h?"hide":"show")){if("show"!==i||!g||void 0===g[r])continue;h=!0}p[r]=g&&g[r]||C.style(e,r)}if((u=!C.isEmptyObject(t))||!C.isEmptyObject(p))for(r in c&&1===e.nodeType&&(n.overflow=[d.overflow,d.overflowX,d.overflowY],null==(l=g&&g.display)&&(l=b.get(e,"display")),"none"===(c=C.css(e,"display"))&&(l?c=l:(A([e],!0),l=e.style.display||l,c=C.css(e,"display"),A([e]))),("inline"===c||"inline-block"===c&&null!=l)&&"none"===C.css(e,"float")&&(u||(f.done(function(){d.display=l}),null==l&&(c=d.display,l="none"===c?"":c)),d.display="inline-block")),n.overflow&&(d.overflow="hidden",f.always(function(){d.overflow=n.overflow[0],d.overflowX=n.overflow[1],d.overflowY=n.overflow[2]})),u=!1,p)u||(g?"hidden"in g&&(h=g.hidden):g=b.access(e,"fxshow",{display:l}),o&&(g.hidden=!h),h&&A([e],!0),f.done(function(){for(r in h||A([e]),b.remove(e,"fxshow"),p)C.style(e,r,p[r])})),u=vt(h?g[r]:0,r,f),r in g||(g[r]=u.start,h&&(u.end=u.start,u.start=0))}],prefilter:function(e,t){t?H.prefilters.unshift(e):H.prefilters.push(e)}}),C.speed=function(e,t,n){var r=e&&"object"==typeof e?C.extend({},e):{complete:n||!n&&t||v(e)&&e,duration:e,easing:n&&t||t&&!v(t)&&t};return C.fx.off?r.duration=0:"number"!=typeof r.duration&&(r.duration in C.fx.speeds?r.duration=C.fx.speeds[r.duration]:r.duration=C.fx.speeds._default),null!=r.queue&&!0!==r.queue||(r.queue="fx"),r.old=r.complete,r.complete=function(){v(r.old)&&r.old.call(this),r.queue&&C.dequeue(this,r.queue)},r},C.fn.extend({fadeTo:function(e,t,n,r){return this.filter(ye).css("opacity",0).show().end().animate({opacity:t},e,n,r)},animate:function(t,e,n,r){function i(){var e=H(this,C.extend({},t),a);(o||b.get(this,"finish"))&&e.stop(!0)}var o=C.isEmptyObject(t),a=C.speed(e,n,r);return i.finish=i,o||!1===a.queue?this.each(i):this.queue(a.queue,i)},stop:function(i,e,o){function a(e){var t=e.stop;delete e.stop,t(o)}return"string"!=typeof i&&(o=e,e=i,i=void 0),e&&this.queue(i||"fx",[]),this.each(function(){var e=!0,t=null!=i&&i+"queueHooks",n=C.timers,r=b.get(this);if(t)r[t]&&r[t].stop&&a(r[t]);else for(t in r)r[t]&&r[t].stop&&ht.test(t)&&a(r[t]);for(t=n.length;t--;)n[t].elem!==this||null!=i&&n[t].queue!==i||(n[t].anim.stop(o),e=!1,n.splice(t,1));!e&&o||C.dequeue(this,i)})},finish:function(a){return!1!==a&&(a=a||"fx"),this.each(function(){var e,t=b.get(this),n=t[a+"queue"],r=t[a+"queueHooks"],i=C.timers,o=n?n.length:0;for(t.finish=!0,C.queue(this,a,[]),r&&r.stop&&r.stop.call(this,!0),e=i.length;e--;)i[e].elem===this&&i[e].queue===a&&(i[e].anim.stop(!0),i.splice(e,1));for(e=0;e<o;e++)n[e]&&n[e].finish&&n[e].finish.call(this);delete t.finish})}}),C.each(["toggle","show","hide"],function(e,r){var i=C.fn[r];C.fn[r]=function(e,t,n){return null==e||"boolean"==typeof e?i.apply(this,arguments):this.animate(mt(r,!0),e,t,n)}}),C.each({slideDown:mt("show"),slideUp:mt("hide"),slideToggle:mt("toggle"),fadeIn:{opacity:"show"},fadeOut:{opacity:"hide"},fadeToggle:{opacity:"toggle"}},function(e,r){C.fn[e]=function(e,t,n){return this.animate(r,e,t,n)}}),C.timers=[],C.fx.tick=function(){var e,t=0,n=C.timers;for(q=Date.now();t<n.length;t++)(e=n[t])()||n[t]!==e||n.splice(t--,1);n.length||C.fx.stop(),q=void 0},C.fx.timer=function(e){C.timers.push(e),C.fx.start()},C.fx.interval=13,C.fx.start=function(){pt||(pt=!0,gt())},C.fx.stop=function(){pt=null},C.fx.speeds={slow:600,fast:200,_default:400},C.fn.delay=function(r,e){return r=C.fx&&C.fx.speeds[r]||r,this.queue(e=e||"fx",function(e,t){var n=w.setTimeout(e,r);t.stop=function(){w.clearTimeout(n)}})},L=T.createElement("input"),e=T.createElement("select").appendChild(T.createElement("option")),L.type="checkbox",y.checkOn=""!==L.value,y.optSelected=e.selected,(L=T.createElement("input")).value="t",L.type="radio",y.radioValue="t"===L.value;var xt,bt=C.expr.attrHandle,wt=(C.fn.extend({attr:function(e,t){return f(this,C.attr,e,t,1<arguments.length)},removeAttr:function(e){return this.each(function(){C.removeAttr(this,e)})}}),C.extend({attr:function(e,t,n){var r,i,o=e.nodeType;if(3!==o&&8!==o&&2!==o)return"undefined"==typeof e.getAttribute?C.prop(e,t,n):(1===o&&C.isXMLDoc(e)||(i=C.attrHooks[t.toLowerCase()]||(C.expr.match.bool.test(t)?xt:void 0)),void 0!==n?null===n?void C.removeAttr(e,t):i&&"set"in i&&void 0!==(r=i.set(e,n,t))?r:(e.setAttribute(t,n+""),n):!(i&&"get"in i&&null!==(r=i.get(e,t)))&&null==(r=C.find.attr(e,t))?void 0:r)},attrHooks:{type:{set:function(e,t){var n;if(!y.radioValue&&"radio"===t&&u(e,"input"))return n=e.value,e.setAttribute("type",t),n&&(e.value=n),t}}},removeAttr:function(e,t){var n,r=0,i=t&&t.match(E);if(i&&1===e.nodeType)while(n=i[r++])e.removeAttribute(n)}}),xt={set:function(e,t,n){return!1===t?C.removeAttr(e,n):e.setAttribute(n,n),n}},C.each(C.expr.match.bool.source.match(/\w+/g),function(e,t){var a=bt[t]||C.find.attr;bt[t]=function(e,t,n){var r,i,o=t.toLowerCase();return n||(i=bt[o],bt[o]=r,r=null!=a(e,t,n)?o:null,bt[o]=i),r}}),/^(?:input|select|textarea|button)$/i),Tt=/^(?:a|area)$/i;function O(e){return(e.match(E)||[]).join(" ")}function P(e){return e.getAttribute&&e.getAttribute("class")||""}function Ct(e){return Array.isArray(e)?e:"string"==typeof e&&e.match(E)||[]}C.fn.extend({prop:function(e,t){return f(this,C.prop,e,t,1<arguments.length)},removeProp:function(e){return this.each(function(){delete this[C.propFix[e]||e]})}}),C.extend({prop:function(e,t,n){var r,i,o=e.nodeType;if(3!==o&&8!==o&&2!==o)return 1===o&&C.isXMLDoc(e)||(t=C.propFix[t]||t,i=C.propHooks[t]),void 0!==n?i&&"set"in i&&void 0!==(r=i.set(e,n,t))?r:e[t]=n:i&&"get"in i&&null!==(r=i.get(e,t))?r:e[t]},propHooks:{tabIndex:{get:function(e){var t=C.find.attr(e,"tabindex");return t?parseInt(t,10):wt.test(e.nodeName)||Tt.test(e.nodeName)&&e.href?0:-1}}},propFix:{for:"htmlFor",class:"className"}}),y.optSelected||(C.propHooks.selected={get:function(e){e=e.parentNode;return e&&e.parentNode&&e.parentNode.selectedIndex,null},set:function(e){e=e.parentNode;e&&(e.selectedIndex,e.parentNode&&e.parentNode.selectedIndex)}}),C.each(["tabIndex","readOnly","maxLength","cellSpacing","cellPadding","rowSpan","colSpan","useMap","frameBorder","contentEditable"],function(){C.propFix[this.toLowerCase()]=this}),C.fn.extend({addClass:function(t){var e,n,r,i,o,a;return v(t)?this.each(function(e){C(this).addClass(t.call(this,e,P(this)))}):(e=Ct(t)).length?this.each(function(){if(r=P(this),n=1===this.nodeType&&" "+O(r)+" "){for(o=0;o<e.length;o++)i=e[o],n.indexOf(" "+i+" ")<0&&(n+=i+" ");a=O(n),r!==a&&this.setAttribute("class",a)}}):this},removeClass:function(t){var e,n,r,i,o,a;return v(t)?this.each(function(e){C(this).removeClass(t.call(this,e,P(this)))}):arguments.length?(e=Ct(t)).length?this.each(function(){if(r=P(this),n=1===this.nodeType&&" "+O(r)+" "){for(o=0;o<e.length;o++){i=e[o];while(-1<n.indexOf(" "+i+" "))n=n.replace(" "+i+" "," ")}a=O(n),r!==a&&this.setAttribute("class",a)}}):this:this.attr("class","")},toggleClass:function(t,n){var e,r,i,o,a=typeof t,s="string"==a||Array.isArray(t);return v(t)?this.each(function(e){C(this).toggleClass(t.call(this,e,P(this),n),n)}):"boolean"==typeof n&&s?n?this.addClass(t):this.removeClass(t):(e=Ct(t),this.each(function(){if(s)for(o=C(this),i=0;i<e.length;i++)r=e[i],o.hasClass(r)?o.removeClass(r):o.addClass(r);else void 0!==t&&"boolean"!=a||((r=P(this))&&b.set(this,"__className__",r),this.setAttribute&&this.setAttribute("class",!r&&!1!==t&&b.get(this,"__className__")||""))}))},hasClass:function(e){var t,n=0,r=" "+e+" ";while(t=this[n++])if(1===t.nodeType&&-1<(" "+O(P(t))+" ").indexOf(r))return!0;return!1}});function Et(e){e.stopPropagation()}var St=/\r/g,kt=(C.fn.extend({val:function(t){var n,e,r,i=this[0];return arguments.length?(r=v(t),this.each(function(e){1===this.nodeType&&(null==(e=r?t.call(this,e,C(this).val()):t)?e="":"number"==typeof e?e+="":Array.isArray(e)&&(e=C.map(e,function(e){return null==e?"":e+""})),(n=C.valHooks[this.type]||C.valHooks[this.nodeName.toLowerCase()])&&"set"in n&&void 0!==n.set(this,e,"value")||(this.value=e))})):i?(n=C.valHooks[i.type]||C.valHooks[i.nodeName.toLowerCase()])&&"get"in n&&void 0!==(e=n.get(i,"value"))?e:"string"==typeof(e=i.value)?e.replace(St,""):null==e?"":e:void 0}}),C.extend({valHooks:{option:{get:function(e){var t=C.find.attr(e,"value");return null!=t?t:O(C.text(e))}},select:{get:function(e){for(var t,n=e.options,r=e.selectedIndex,i="select-one"===e.type,o=i?null:[],a=i?r+1:n.length,s=r<0?a:i?r:0;s<a;s++)if(((t=n[s]).selected||s===r)&&!t.disabled&&(!t.parentNode.disabled||!u(t.parentNode,"optgroup"))){if(t=C(t).val(),i)return t;o.push(t)}return o},set:function(e,t){var n,r,i=e.options,o=C.makeArray(t),a=i.length;while(a--)((r=i[a]).selected=-1<C.inArray(C.valHooks.option.get(r),o))&&(n=!0);return n||(e.selectedIndex=-1),o}}}}),C.each(["radio","checkbox"],function(){C.valHooks[this]={set:function(e,t){if(Array.isArray(t))return e.checked=-1<C.inArray(C(e).val(),t)}},y.checkOn||(C.valHooks[this].get=function(e){return null===e.getAttribute("value")?"on":e.value})}),y.focusin="onfocusin"in w,/^(?:focusinfocus|focusoutblur)$/),At=(C.extend(C.event,{trigger:function(e,t,n,r){var i,o,a,s,u,l,c,f=[n||T],p=_.call(e,"type")?e.type:e,d=_.call(e,"namespace")?e.namespace.split("."):[],h=c=o=n=n||T;if(3!==n.nodeType&&8!==n.nodeType&&!kt.test(p+C.event.triggered)&&(-1<p.indexOf(".")&&(p=(d=p.split(".")).shift(),d.sort()),s=p.indexOf(":")<0&&"on"+p,(e=e[C.expando]?e:new C.Event(p,"object"==typeof e&&e)).isTrigger=r?2:3,e.namespace=d.join("."),e.rnamespace=e.namespace?new RegExp("(^|\\.)"+d.join("\\.(?:.*\\.|)")+"(\\.|$)"):null,e.result=void 0,e.target||(e.target=n),t=null==t?[e]:C.makeArray(t,[e]),l=C.event.special[p]||{},r||!l.trigger||!1!==l.trigger.apply(n,t))){if(!r&&!l.noBubble&&!g(n)){for(a=l.delegateType||p,kt.test(a+p)||(h=h.parentNode);h;h=h.parentNode)f.push(h),o=h;o===(n.ownerDocument||T)&&f.push(o.defaultView||o.parentWindow||w)}i=0;while((h=f[i++])&&!e.isPropagationStopped())c=h,e.type=1<i?a:l.bindType||p,(u=(b.get(h,"events")||Object.create(null))[e.type]&&b.get(h,"handle"))&&u.apply(h,t),(u=s&&h[s])&&u.apply&&m(h)&&(e.result=u.apply(h,t),!1===e.result&&e.preventDefault());return e.type=p,r||e.isDefaultPrevented()||l._default&&!1!==l._default.apply(f.pop(),t)||!m(n)||s&&v(n[p])&&!g(n)&&((o=n[s])&&(n[s]=null),C.event.triggered=p,e.isPropagationStopped()&&c.addEventListener(p,Et),n[p](),e.isPropagationStopped()&&c.removeEventListener(p,Et),C.event.triggered=void 0,o&&(n[s]=o)),e.result}},simulate:function(e,t,n){n=C.extend(new C.Event,n,{type:e,isSimulated:!0});C.event.trigger(n,null,t)}}),C.fn.extend({trigger:function(e,t){return this.each(function(){C.event.trigger(e,t,this)})},triggerHandler:function(e,t){var n=this[0];if(n)return C.event.trigger(e,t,n,!0)}}),y.focusin||C.each({focus:"focusin",blur:"focusout"},function(n,r){function i(e){C.event.simulate(r,e.target,C.event.fix(e))}C.event.special[r]={setup:function(){var e=this.ownerDocument||this.document||this,t=b.access(e,r);t||e.addEventListener(n,i,!0),b.access(e,r,(t||0)+1)},teardown:function(){var e=this.ownerDocument||this.document||this,t=b.access(e,r)-1;t?b.access(e,r,t):(e.removeEventListener(n,i,!0),b.remove(e,r))}}}),w.location),Nt={guid:Date.now()},jt=/\?/,Dt=(C.parseXML=function(e){var t,n;if(!e||"string"!=typeof e)return null;try{t=(new w.DOMParser).parseFromString(e,"text/xml")}catch(e){}return n=t&&t.getElementsByTagName("parsererror")[0],t&&!n||C.error("Invalid XML: "+(n?C.map(n.childNodes,function(e){return e.textContent}).join("\n"):e)),t},/\[\]$/),qt=/\r?\n/g,Lt=/^(?:submit|button|image|reset|file)$/i,Ht=/^(?:input|select|textarea|keygen)/i;C.param=function(e,t){function n(e,t){t=v(t)?t():t,i[i.length]=encodeURIComponent(e)+"="+encodeURIComponent(null==t?"":t)}var r,i=[];if(null==e)return"";if(Array.isArray(e)||e.jquery&&!C.isPlainObject(e))C.each(e,function(){n(this.name,this.value)});else for(r in e)!function n(r,e,i,o){if(Array.isArray(e))C.each(e,function(e,t){i||Dt.test(r)?o(r,t):n(r+"["+("object"==typeof t&&null!=t?e:"")+"]",t,i,o)});else if(i||"object"!==h(e))o(r,e);else for(var t in e)n(r+"["+t+"]",e[t],i,o)}(r,e[r],t,n);return i.join("&")},C.fn.extend({serialize:function(){return C.param(this.serializeArray())},serializeArray:function(){return this.map(function(){var e=C.prop(this,"elements");return e?C.makeArray(e):this}).filter(function(){var e=this.type;return this.name&&!C(this).is(":disabled")&&Ht.test(this.nodeName)&&!Lt.test(e)&&(this.checked||!we.test(e))}).map(function(e,t){var n=C(this).val();return null==n?null:Array.isArray(n)?C.map(n,function(e){return{name:t.name,value:e.replace(qt,"\r\n")}}):{name:t.name,value:n.replace(qt,"\r\n")}}).get()}});var Ot=/%20/g,Pt=/#.*$/,Rt=/([?&])_=[^&]*/,Mt=/^(.*?):[ \t]*([^\r\n]*)$/gm,It=/^(?:GET|HEAD)$/,Wt=/^\/\//,Ft={},$t={},Bt="*/".concat("*"),_t=T.createElement("a");function zt(o){return function(e,t){"string"!=typeof e&&(t=e,e="*");var n,r=0,i=e.toLowerCase().match(E)||[];if(v(t))while(n=i[r++])"+"===n[0]?(n=n.slice(1)||"*",(o[n]=o[n]||[]).unshift(t)):(o[n]=o[n]||[]).push(t)}}function Ut(t,r,i,o){var a={},s=t===$t;function u(e){var n;return a[e]=!0,C.each(t[e]||[],function(e,t){t=t(r,i,o);return"string"!=typeof t||s||a[t]?s?!(n=t):void 0:(r.dataTypes.unshift(t),u(t),!1)}),n}return u(r.dataTypes[0])||!a["*"]&&u("*")}function Xt(e,t){var n,r,i=C.ajaxSettings.flatOptions||{};for(n in t)void 0!==t[n]&&((i[n]?e:r=r||{})[n]=t[n]);return r&&C.extend(!0,e,r),e}_t.href=At.href,C.extend({active:0,lastModified:{},etag:{},ajaxSettings:{url:At.href,type:"GET",isLocal:/^(?:about|app|app-storage|.+-extension|file|res|widget):$/.test(At.protocol),global:!0,processData:!0,async:!0,contentType:"application/x-www-form-urlencoded; charset=UTF-8",accepts:{"*":Bt,text:"text/plain",html:"text/html",xml:"application/xml, text/xml",json:"application/json, text/javascript"},contents:{xml:/\bxml\b/,html:/\bhtml/,json:/\bjson\b/},responseFields:{xml:"responseXML",text:"responseText",json:"responseJSON"},converters:{"* text":String,"text html":!0,"text json":JSON.parse,"text xml":C.parseXML},flatOptions:{url:!0,context:!0}},ajaxSetup:function(e,t){return t?Xt(Xt(e,C.ajaxSettings),t):Xt(C.ajaxSettings,e)},ajaxPrefilter:zt(Ft),ajaxTransport:zt($t),ajax:function(e,t){"object"==typeof e&&(t=e,e=void 0);var u,l,c,n,f,p,d,r,h=C.ajaxSetup({},t=t||{}),g=h.context||h,y=h.context&&(g.nodeType||g.jquery)?C(g):C.event,m=C.Deferred(),v=C.Callbacks("once memory"),x=h.statusCode||{},i={},o={},a="canceled",b={readyState:0,getResponseHeader:function(e){var t;if(p){if(!n){n={};while(t=Mt.exec(c))n[t[1].toLowerCase()+" "]=(n[t[1].toLowerCase()+" "]||[]).concat(t[2])}t=n[e.toLowerCase()+" "]}return null==t?null:t.join(", ")},getAllResponseHeaders:function(){return p?c:null},setRequestHeader:function(e,t){return null==p&&(e=o[e.toLowerCase()]=o[e.toLowerCase()]||e,i[e]=t),this},overrideMimeType:function(e){return null==p&&(h.mimeType=e),this},statusCode:function(e){if(e)if(p)b.always(e[b.status]);else for(var t in e)x[t]=[x[t],e[t]];return this},abort:function(e){e=e||a;return u&&u.abort(e),s(0,e),this}};if(m.promise(b),h.url=((e||h.url||At.href)+"").replace(Wt,At.protocol+"//"),h.type=t.method||t.type||h.method||h.type,h.dataTypes=(h.dataType||"*").toLowerCase().match(E)||[""],null==h.crossDomain){e=T.createElement("a");try{e.href=h.url,e.href=e.href,h.crossDomain=_t.protocol+"//"+_t.host!=e.protocol+"//"+e.host}catch(e){h.crossDomain=!0}}if(h.data&&h.processData&&"string"!=typeof h.data&&(h.data=C.param(h.data,h.traditional)),Ut(Ft,h,t,b),!p){for(r in(d=C.event&&h.global)&&0==C.active++&&C.event.trigger("ajaxStart"),h.type=h.type.toUpperCase(),h.hasContent=!It.test(h.type),l=h.url.replace(Pt,""),h.hasContent?h.data&&h.processData&&0===(h.contentType||"").indexOf("application/x-www-form-urlencoded")&&(h.data=h.data.replace(Ot,"+")):(e=h.url.slice(l.length),h.data&&(h.processData||"string"==typeof h.data)&&(l+=(jt.test(l)?"&":"?")+h.data,delete h.data),!1===h.cache&&(l=l.replace(Rt,"$1"),e=(jt.test(l)?"&":"?")+"_="+Nt.guid+++e),h.url=l+e),h.ifModified&&(C.lastModified[l]&&b.setRequestHeader("If-Modified-Since",C.lastModified[l]),C.etag[l]&&b.setRequestHeader("If-None-Match",C.etag[l])),(h.data&&h.hasContent&&!1!==h.contentType||t.contentType)&&b.setRequestHeader("Content-Type",h.contentType),b.setRequestHeader("Accept",h.dataTypes[0]&&h.accepts[h.dataTypes[0]]?h.accepts[h.dataTypes[0]]+("*"!==h.dataTypes[0]?", "+Bt+"; q=0.01":""):h.accepts["*"]),h.headers)b.setRequestHeader(r,h.headers[r]);if(h.beforeSend&&(!1===h.beforeSend.call(g,b,h)||p))return b.abort();if(a="abort",v.add(h.complete),b.done(h.success),b.fail(h.error),u=Ut($t,h,t,b)){if(b.readyState=1,d&&y.trigger("ajaxSend",[b,h]),p)return b;h.async&&0<h.timeout&&(f=w.setTimeout(function(){b.abort("timeout")},h.timeout));try{p=!1,u.send(i,s)}catch(e){if(p)throw e;s(-1,e)}}else s(-1,"No Transport")}return b;function s(e,t,n,r){var i,o,a,s=t;p||(p=!0,f&&w.clearTimeout(f),u=void 0,c=r||"",b.readyState=0<e?4:0,r=200<=e&&e<300||304===e,n&&(a=function(e,t,n){var r,i,o,a,s=e.contents,u=e.dataTypes;while("*"===u[0])u.shift(),void 0===r&&(r=e.mimeType||t.getResponseHeader("Content-Type"));if(r)for(i in s)if(s[i]&&s[i].test(r)){u.unshift(i);break}if(u[0]in n)o=u[0];else{for(i in n){if(!u[0]||e.converters[i+" "+u[0]]){o=i;break}a=a||i}o=o||a}if(o)return o!==u[0]&&u.unshift(o),n[o]}(h,b,n)),!r&&-1<C.inArray("script",h.dataTypes)&&C.inArray("json",h.dataTypes)<0&&(h.converters["text script"]=function(){}),a=function(e,t,n,r){var i,o,a,s,u,l={},c=e.dataTypes.slice();if(c[1])for(a in e.converters)l[a.toLowerCase()]=e.converters[a];o=c.shift();while(o)if(e.responseFields[o]&&(n[e.responseFields[o]]=t),!u&&r&&e.dataFilter&&(t=e.dataFilter(t,e.dataType)),u=o,o=c.shift())if("*"===o)o=u;else if("*"!==u&&u!==o){if(!(a=l[u+" "+o]||l["* "+o]))for(i in l)if((s=i.split(" "))[1]===o&&(a=l[u+" "+s[0]]||l["* "+s[0]])){!0===a?a=l[i]:!0!==l[i]&&(o=s[0],c.unshift(s[1]));break}if(!0!==a)if(a&&e.throws)t=a(t);else try{t=a(t)}catch(e){return{state:"parsererror",error:a?e:"No conversion from "+u+" to "+o}}}return{state:"success",data:t}}(h,a,b,r),r?(h.ifModified&&((n=b.getResponseHeader("Last-Modified"))&&(C.lastModified[l]=n),(n=b.getResponseHeader("etag"))&&(C.etag[l]=n)),204===e||"HEAD"===h.type?s="nocontent":304===e?s="notmodified":(s=a.state,i=a.data,r=!(o=a.error))):(o=s,!e&&s||(s="error",e<0&&(e=0))),b.status=e,b.statusText=(t||s)+"",r?m.resolveWith(g,[i,s,b]):m.rejectWith(g,[b,s,o]),b.statusCode(x),x=void 0,d&&y.trigger(r?"ajaxSuccess":"ajaxError",[b,h,r?i:o]),v.fireWith(g,[b,s]),d&&(y.trigger("ajaxComplete",[b,h]),--C.active||C.event.trigger("ajaxStop")))}},getJSON:function(e,t,n){return C.get(e,t,n,"json")},getScript:function(e,t){return C.get(e,void 0,t,"script")}}),C.each(["get","post"],function(e,i){C[i]=function(e,t,n,r){return v(t)&&(r=r||n,n=t,t=void 0),C.ajax(C.extend({url:e,type:i,dataType:r,data:t,success:n},C.isPlainObject(e)&&e))}}),C.ajaxPrefilter(function(e){for(var t in e.headers)"content-type"===t.toLowerCase()&&(e.contentType=e.headers[t]||"")}),C._evalUrl=function(e,t,n){return C.ajax({url:e,type:"GET",dataType:"script",cache:!0,async:!1,global:!1,converters:{"text script":function(){}},dataFilter:function(e){C.globalEval(e,t,n)}})},C.fn.extend({wrapAll:function(e){return this[0]&&(v(e)&&(e=e.call(this[0])),e=C(e,this[0].ownerDocument).eq(0).clone(!0),this[0].parentNode&&e.insertBefore(this[0]),e.map(function(){var e=this;while(e.firstElementChild)e=e.firstElementChild;return e}).append(this)),this},wrapInner:function(n){return v(n)?this.each(function(e){C(this).wrapInner(n.call(this,e))}):this.each(function(){var e=C(this),t=e.contents();t.length?t.wrapAll(n):e.append(n)})},wrap:function(t){var n=v(t);return this.each(function(e){C(this).wrapAll(n?t.call(this,e):t)})},unwrap:function(e){return this.parent(e).not("body").each(function(){C(this).replaceWith(this.childNodes)}),this}}),C.expr.pseudos.hidden=function(e){return!C.expr.pseudos.visible(e)},C.expr.pseudos.visible=function(e){return!!(e.offsetWidth||e.offsetHeight||e.getClientRects().length)},C.ajaxSettings.xhr=function(){try{return new w.XMLHttpRequest}catch(e){}};var Vt={0:200,1223:204},Gt=C.ajaxSettings.xhr(),Yt=(y.cors=!!Gt&&"withCredentials"in Gt,y.ajax=Gt=!!Gt,C.ajaxTransport(function(i){var o,a;if(y.cors||Gt&&!i.crossDomain)return{send:function(e,t){var n,r=i.xhr();if(r.open(i.type,i.url,i.async,i.username,i.password),i.xhrFields)for(n in i.xhrFields)r[n]=i.xhrFields[n];for(n in i.mimeType&&r.overrideMimeType&&r.overrideMimeType(i.mimeType),i.crossDomain||e["X-Requested-With"]||(e["X-Requested-With"]="XMLHttpRequest"),e)r.setRequestHeader(n,e[n]);o=function(e){return function(){o&&(o=a=r.onload=r.onerror=r.onabort=r.ontimeout=r.onreadystatechange=null,"abort"===e?r.abort():"error"===e?"number"!=typeof r.status?t(0,"error"):t(r.status,r.statusText):t(Vt[r.status]||r.status,r.statusText,"text"!==(r.responseType||"text")||"string"!=typeof r.responseText?{binary:r.response}:{text:r.responseText},r.getAllResponseHeaders()))}},r.onload=o(),a=r.onerror=r.ontimeout=o("error"),void 0!==r.onabort?r.onabort=a:r.onreadystatechange=function(){4===r.readyState&&w.setTimeout(function(){o&&a()})},o=o("abort");try{r.send(i.hasContent&&i.data||null)}catch(e){if(o)throw e}},abort:function(){o&&o()}}}),C.ajaxPrefilter(function(e){e.crossDomain&&(e.contents.script=!1)}),C.ajaxSetup({accepts:{script:"text/javascript, application/javascript, application/ecmascript, application/x-ecmascript"},contents:{script:/\b(?:java|ecma)script\b/},converters:{"text script":function(e){return C.globalEval(e),e}}}),C.ajaxPrefilter("script",function(e){void 0===e.cache&&(e.cache=!1),e.crossDomain&&(e.type="GET")}),C.ajaxTransport("script",function(n){var r,i;if(n.crossDomain||n.scriptAttrs)return{send:function(e,t){r=C("<script>").attr(n.scriptAttrs||{}).prop({charset:n.scriptCharset,src:n.url}).on("load error",i=function(e){r.remove(),i=null,e&&t("error"===e.type?404:200,e.type)}),T.head.appendChild(r[0])},abort:function(){i&&i()}}}),[]),Qt=/(=)\?(?=&|$)|\?\?/,Jt=(C.ajaxSetup({jsonp:"callback",jsonpCallback:function(){var e=Yt.pop()||C.expando+"_"+Nt.guid++;return this[e]=!0,e}}),C.ajaxPrefilter("json jsonp",function(e,t,n){var r,i,o,a=!1!==e.jsonp&&(Qt.test(e.url)?"url":"string"==typeof e.data&&0===(e.contentType||"").indexOf("application/x-www-form-urlencoded")&&Qt.test(e.data)&&"data");if(a||"jsonp"===e.dataTypes[0])return r=e.jsonpCallback=v(e.jsonpCallback)?e.jsonpCallback():e.jsonpCallback,a?e[a]=e[a].replace(Qt,"$1"+r):!1!==e.jsonp&&(e.url+=(jt.test(e.url)?"&":"?")+e.jsonp+"="+r),e.converters["script json"]=function(){return o||C.error(r+" was not called"),o[0]},e.dataTypes[0]="json",i=w[r],w[r]=function(){o=arguments},n.always(function(){void 0===i?C(w).removeProp(r):w[r]=i,e[r]&&(e.jsonpCallback=t.jsonpCallback,Yt.push(r)),o&&v(i)&&i(o[0]),o=i=void 0}),"script"}),y.createHTMLDocument=((o=T.implementation.createHTMLDocument("").body).innerHTML="<form></form><form></form>",2===o.childNodes.length),C.parseHTML=function(e,t,n){var r;return"string"!=typeof e?[]:("boolean"==typeof t&&(n=t,t=!1),t||(y.createHTMLDocument?((r=(t=T.implementation.createHTMLDocument("")).createElement("base")).href=T.location.href,t.head.appendChild(r)):t=T),r=!n&&[],(n=J.exec(e))?[t.createElement(n[1])]:(n=ke([e],t,r),r&&r.length&&C(r).remove(),C.merge([],n.childNodes)))},C.fn.load=function(e,t,n){var r,i,o,a=this,s=e.indexOf(" ");return-1<s&&(r=O(e.slice(s)),e=e.slice(0,s)),v(t)?(n=t,t=void 0):t&&"object"==typeof t&&(i="POST"),0<a.length&&C.ajax({url:e,type:i||"GET",dataType:"html",data:t}).done(function(e){o=arguments,a.html(r?C("<div>").append(C.parseHTML(e)).find(r):e)}).always(n&&function(e,t){a.each(function(){n.apply(this,o||[e.responseText,t,e])})}),this},C.expr.pseudos.animated=function(t){return C.grep(C.timers,function(e){return t===e.elem}).length},C.offset={setOffset:function(e,t,n){var r,i,o,a,s=C.css(e,"position"),u=C(e),l={};"static"===s&&(e.style.position="relative"),o=u.offset(),r=C.css(e,"top"),a=C.css(e,"left"),s=("absolute"===s||"fixed"===s)&&-1<(r+a).indexOf("auto")?(i=(s=u.position()).top,s.left):(i=parseFloat(r)||0,parseFloat(a)||0),null!=(t=v(t)?t.call(e,n,C.extend({},o)):t).top&&(l.top=t.top-o.top+i),null!=t.left&&(l.left=t.left-o.left+s),"using"in t?t.using.call(e,l):u.css(l)}},C.fn.extend({offset:function(t){var e,n;return arguments.length?void 0===t?this:this.each(function(e){C.offset.setOffset(this,t,e)}):(n=this[0])?n.getClientRects().length?(e=n.getBoundingClientRect(),n=n.ownerDocument.defaultView,{top:e.top+n.pageYOffset,left:e.left+n.pageXOffset}):{top:0,left:0}:void 0},position:function(){if(this[0]){var e,t,n,r=this[0],i={top:0,left:0};if("fixed"===C.css(r,"position"))t=r.getBoundingClientRect();else{t=this.offset(),n=r.ownerDocument,e=r.offsetParent||n.documentElement;while(e&&(e===n.body||e===n.documentElement)&&"static"===C.css(e,"position"))e=e.parentNode;e&&e!==r&&1===e.nodeType&&((i=C(e).offset()).top+=C.css(e,"borderTopWidth",!0),i.left+=C.css(e,"borderLeftWidth",!0))}return{top:t.top-i.top-C.css(r,"marginTop",!0),left:t.left-i.left-C.css(r,"marginLeft",!0)}}},offsetParent:function(){return this.map(function(){var e=this.offsetParent;while(e&&"static"===C.css(e,"position"))e=e.offsetParent;return e||S})}}),C.each({scrollLeft:"pageXOffset",scrollTop:"pageYOffset"},function(t,i){var o="pageYOffset"===i;C.fn[t]=function(e){return f(this,function(e,t,n){var r;if(g(e)?r=e:9===e.nodeType&&(r=e.defaultView),void 0===n)return r?r[i]:e[t];r?r.scrollTo(o?r.pageXOffset:n,o?n:r.pageYOffset):e[t]=n},t,e,arguments.length)}}),C.each(["top","left"],function(e,n){C.cssHooks[n]=tt(y.pixelPosition,function(e,t){if(t)return t=et(e,n),Ge.test(t)?C(e).position()[n]+"px":t})}),C.each({Height:"height",Width:"width"},function(a,s){C.each({padding:"inner"+a,content:s,"":"outer"+a},function(r,o){C.fn[o]=function(e,t){var n=arguments.length&&(r||"boolean"!=typeof e),i=r||(!0===e||!0===t?"margin":"border");return f(this,function(e,t,n){var r;return g(e)?0===o.indexOf("outer")?e["inner"+a]:e.document.documentElement["client"+a]:9===e.nodeType?(r=e.documentElement,Math.max(e.body["scroll"+a],r["scroll"+a],e.body["offset"+a],r["offset"+a],r["client"+a])):void 0===n?C.css(e,t,i):C.style(e,t,n,i)},s,n?e:void 0,n)}})}),C.each(["ajaxStart","ajaxStop","ajaxComplete","ajaxError","ajaxSuccess","ajaxSend"],function(e,t){C.fn[t]=function(e){return this.on(t,e)}}),C.fn.extend({bind:function(e,t,n){return this.on(e,null,t,n)},unbind:function(e,t){return this.off(e,null,t)},delegate:function(e,t,n,r){return this.on(t,e,n,r)},undelegate:function(e,t,n){return 1===arguments.length?this.off(e,"**"):this.off(t,e||"**",n)},hover:function(e,t){return this.mouseenter(e).mouseleave(t||e)}}),C.each("blur focus focusin focusout resize scroll click dblclick mousedown mouseup mousemove mouseover mouseout mouseenter mouseleave change select submit keydown keypress keyup contextmenu".split(" "),function(e,n){C.fn[n]=function(e,t){return 0<arguments.length?this.on(n,null,e,t):this.trigger(n)}}),/^[\s\uFEFF\xA0]+|([^\s\uFEFF\xA0])[\s\uFEFF\xA0]+$/g),Kt=(C.proxy=function(e,t){var n,r;if("string"==typeof t&&(r=e[t],t=e,e=r),v(e))return n=s.call(arguments,2),(r=function(){return e.apply(t||this,n.concat(s.call(arguments)))}).guid=e.guid=e.guid||C.guid++,r},C.holdReady=function(e){e?C.readyWait++:C.ready(!0)},C.isArray=Array.isArray,C.parseJSON=JSON.parse,C.nodeName=u,C.isFunction=v,C.isWindow=g,C.camelCase=x,C.type=h,C.now=Date.now,C.isNumeric=function(e){var t=C.type(e);return("number"===t||"string"===t)&&!isNaN(e-parseFloat(e))},C.trim=function(e){return null==e?"":(e+"").replace(Jt,"$1")},"function"==typeof define&&define.amd&&define("jquery",[],function(){return C}),w.jQuery),Zt=w.$;return C.noConflict=function(e){return w.$===C&&(w.$=Zt),e&&w.jQuery===C&&(w.jQuery=Kt),C},"undefined"==typeof R&&(w.jQuery=w.$=C),C});
+</script>
+<meta name="viewport" content="width=device-width, initial-scale=1" />
+<style type="text/css"> html{font-family:sans-serif;-ms-text-size-adjust:100%;-webkit-text-size-adjust:100%}body{margin:0}article,aside,details,figcaption,figure,footer,header,hgroup,main,menu,nav,section,summary{display:block}audio,canvas,progress,video{display:inline-block;vertical-align:baseline}audio:not([controls]){display:none;height:0}[hidden],template{display:none}a{background-color:transparent}a:active,a:hover{outline:0}abbr[title]{border-bottom:none;text-decoration:underline;text-decoration:underline dotted}b,strong{font-weight:bold}dfn{font-style:italic}h1{font-size:2em;margin:.67em 0}mark{background:#ff0;color:#000}small{font-size:80%}sub,sup{font-size:75%;line-height:0;position:relative;vertical-align:baseline}sup{top:-0.5em}sub{bottom:-0.25em}img{border:0}svg:not(:root){overflow:hidden}figure{margin:1em 40px}hr{box-sizing:content-box;height:0}pre{overflow:auto}code,kbd,pre,samp{font-family:monospace,monospace;font-size:1em}button,input,optgroup,select,textarea{color:inherit;font:inherit;margin:0}button{overflow:visible}button,select{text-transform:none}button,html input[type="button"],input[type="reset"],input[type="submit"]{-webkit-appearance:button;cursor:pointer}button[disabled],html input[disabled]{cursor:default}button::-moz-focus-inner,input::-moz-focus-inner{border:0;padding:0}input{line-height:normal}input[type="checkbox"],input[type="radio"]{box-sizing:border-box;padding:0}input[type="number"]::-webkit-inner-spin-button,input[type="number"]::-webkit-outer-spin-button{height:auto}input[type="search"]{-webkit-appearance:textfield;box-sizing:content-box}input[type="search"]::-webkit-search-cancel-button,input[type="search"]::-webkit-search-decoration{-webkit-appearance:none}fieldset{border:1px solid #c0c0c0;margin:0 2px;padding:.35em .625em .75em}legend{border:0;padding:0}textarea{overflow:auto}optgroup{font-weight:bold}table{border-collapse:collapse;border-spacing:0}td,th{padding:0} @media print{*,*:before,*:after{color:#000!important;text-shadow:none!important;background:transparent!important;box-shadow:none!important}a,a:visited{text-decoration:underline}a[href]:after{content:"(" attr(href) ")"}abbr[title]:after{content:"(" attr(title) ")"}a[href^="#"]:after,a[href^="javascript:"]:after{content:""}pre,blockquote{border:1px solid #999;page-break-inside:avoid}thead{display:table-header-group}tr,img{page-break-inside:avoid}img{max-width:100%!important}p,h2,h3{orphans:3;widows:3}h2,h3{page-break-after:avoid}.navbar{display:none}.btn>.caret,.dropup>.btn>.caret{border-top-color:#000!important}.label{border:1px solid #000}.table{border-collapse:collapse!important}.table td,.table th{background-color:#fff!important}.table-bordered th,.table-bordered td{border:1px solid #ddd!important}}@font-face{font-family:"Glyphicons Halflings";src:url(data:application/vnd.ms-fontobject;base64,n04AAEFNAAACAAIABAAAAAAABQAAAAAAAAABAJABAAAEAExQAAAAAAAAAAIAAAAAAAAAAAEAAAAAAAAAJxJ/LAAAAAAAAAAAAAAAAAAAAAAAACgARwBMAFkAUABIAEkAQwBPAE4AUwAgAEgAYQBsAGYAbABpAG4AZwBzAAAADgBSAGUAZwB1AGwAYQByAAAAeABWAGUAcgBzAGkAbwBuACAAMQAuADAAMAA5ADsAUABTACAAMAAwADEALgAwADAAOQA7AGgAbwB0AGMAbwBuAHYAIAAxAC4AMAAuADcAMAA7AG0AYQBrAGUAbwB0AGYALgBsAGkAYgAyAC4ANQAuADUAOAAzADIAOQAAADgARwBMAFkAUABIAEkAQwBPAE4AUwAgAEgAYQBsAGYAbABpAG4AZwBzACAAUgBlAGcAdQBsAGEAcgAAAAAAQlNHUAAAAAAAAAAAAAAAAAAAAAADAKncAE0TAE0ZAEbuFM3pjM/SEdmjKHUbyow8ATBE40IvWA3vTu8LiABDQ+pexwUMcm1SMnNryctQSiI1K5ZnbOlXKmnVV5YvRe6RnNMFNCOs1KNVpn6yZhCJkRtVRNzEufeIq7HgSrcx4S8h/v4vnrrKc6oCNxmSk2uKlZQHBii6iKFoH0746ThvkO1kJHlxjrkxs+LWORaDQBEtiYJIR5IB9Bi1UyL4Rmr0BNigNkMzlKQmnofBHviqVzUxwdMb3NdCn69hy+pRYVKGVS/1tnsqv4LL7wCCPZZAZPT4aCShHjHJVNuXbmMrY5LeQaGnvAkXlVrJgKRAUdFjrWEah9XebPeQMj7KS7DIBAFt8ycgC5PLGUOHSE3ErGZCiViNLL5ZARfywnCoZaKQCu6NuFX42AEeKtKUGnr/Cm2Cy8tpFhBPMW5Fxi4Qm4TkDWh4IWFDClhU2hRWosUWqcKLlgyXB+lSHaWaHiWlBAR8SeSgSPCQxdVQgzUixWKSTrIQEbU94viDctkvX+VSjJuUmV8L4CXShI11esnp0pjWNZIyxKHS4wVQ2ime1P4RnhvGw0aDN1OLAXGERsB7buFpFGGBAre4QEQR0HOIO5oYH305G+KspT/FupEGGafCCwxSe6ZUa+073rXHnNdVXE6eWvibUS27XtRzkH838mYLMBmYysZTM0EM3A1fbpCBYFccN1B/EnCYu/TgCGmr7bMh8GfYL+BfcLvB0gRagC09w9elfldaIy/hNCBLRgBgtCC7jAF63wLSMAfbfAlEggYU0bUA7ACCJmTDpEmJtI78w4/BO7dN7JR7J7ZvbYaUbaILSQsRBiF3HGk5fEg6p9unwLvn98r+vnsV+372uf1xBLq4qU/45fTuqaAP+pssmCCCTF0mhEow8ZXZOS8D7Q85JsxZ+Azok7B7O/f6J8AzYBySZQB/QHYUSA+EeQhEWiS6AIQzgcsDiER4MjgMBAWDV4AgQ3g1eBgIdweCQmCjJEMkJ+PKRWyFHHmg1Wi/6xzUgA0LREoKJChwnQa9B+5RQZRB3IlBlkAnxyQNaANwHMowzlYSMCBgnbpzvqpl0iTJNCQidDI9ZrSYNIRBhHtUa5YHMHxyGEik9hDE0AKj72AbTCaxtHPUaKZdAZSnQTyjGqGLsmBStCejApUhg4uBMU6mATujEl+KdDPbI6Ag4vLr+hjY6lbjBeoLKnZl0UZgRX8gTySOeynZVz1wOq7e1hFGYIq+MhrGxDLak0PrwYzSXtcuyhXEhwOYofiW+EcI/jw8P6IY6ed+etAbuqKp5QIapT77LnAe505lMuqL79a0ut4rWexzFttsOsLDy7zvtQzcq3U1qabe7tB0wHWVXji+zDbo8x8HyIRUbXnwUcklFv51fvTymiV+MXLSmGH9d9+aXpD5X6lao41anWGig7IwIdnoBY2ht/pO9mClLo4NdXHAsefqWUKlXJkbqPOFhMoR4aiA1BXqhRNbB2Xwi+7u/jpAoOpKJ0UX24EsrzMfHXViakCNcKjBxuQX8BO0ZqjJ3xXzf+61t2VXOSgJ8xu65QKgtN6FibPmPYsXbJRHHqbgATcSZxBqGiDiU4NNNsYBsKD0MIP/OfKnlk/Lkaid/O2NbKeuQrwOB2Gq3YHyr6ALgzym5wIBnsdC1ZkoBFZSQXChZvlesPqvK2c5oHHT3Q65jYpNxnQcGF0EHbvYqoFw60WNlXIHQF2HQB7zD6lWjZ9rVqUKBXUT6hrkZOle0RFYII0V5ZYGl1JAP0Ud1fZZMvSomBzJ710j4Me8mjQDwEre5Uv2wQfk1ifDwb5ksuJQQ3xt423lbuQjvoIQByQrNDh1JxGFkOdlJvu/gFtuW0wR4cgd+ZKesSV7QkNE2kw6AV4hoIuC02LGmTomyf8PiO6CZzOTLTPQ+HW06H+tx+bQ8LmDYg1pTFrp2oJXgkZTyeRJZM0C8aE2LpFrNVDuhARsN543/FV6klQ6Tv1OoZGXLv0igKrl/CmJxRmX7JJbJ998VSIPQRyDBICzl4JJlYHbdql30NvYcOuZ7a10uWRrgoieOdgIm4rlq6vNOQBuqESLbXG5lzdJGHw2m0sDYmODXbYGTfSTGRKpssTO95fothJCjUGQgEL4yKoGAF/0SrpUDNn8CBgBcSDQByAeNkCXp4S4Ro2Xh4OeaGRgR66PVOsU8bc6TR5/xTcn4IVMLOkXSWiXxkZQCbvKfmoAvQaKjO3EDKwkwqHChCDEM5loQRPd5ACBki1TjF772oaQhQbQ5C0lcWXPFOzrfsDGUXGrpxasbG4iab6eByaQkQfm0VFlP0ZsDkvvqCL6QXMUwCjdMx1ZOyKhTJ7a1GWAdOUcJ8RSejxNVyGs31OKMyRyBVoZFjqIkmKlLQ5eHMeEL4MkUf23cQ/1SgRCJ1dk4UdBT7OoyuNgLs0oCd8RnrEIb6QdMxT2QjD4zMrJkfgx5aDMcA4orsTtKCqWb/Veyceqa5OGSmB28YwH4rFbkQaLoUN8OQQYnD3w2eXpI4ScQfbCUZiJ4yMOIKLyyTc7BQ4uXUw6Ee6/xM+4Y67ngNBknxIPwuppgIhFcwJyr6EIj+LzNj/mfR2vhhRlx0BILZoAYruF0caWQ7YxO66UmeguDREAFHYuC7HJviRgVO6ruJH59h/C/PkgSle8xNzZJULLWq9JMDTE2fjGE146a1Us6PZDGYle6ldWRqn/pdpgHKNGrGIdkRK+KPETT9nKT6kLyDI8xd9A1FgWmXWRAIHwZ37WyZHOVyCadJEmMVz0MadMjDrPho+EIochkVC2xgGiwwsQ6DMv2P7UXqT4x7CdcYGId2BJQQa85EQKmCmwcRejQ9Bm4oATENFPkxPXILHpMPUyWTI5rjNOsIlmEeMbcOCEqInpXACYQ9DDxmFo9vcmsDblcMtg4tqBerNngkIKaFJmrQAPnq1dEzsMXcwjcHdfdCibcAxxA+q/j9m3LM/O7WJka4tSidVCjsvo2lQ/2ewyoYyXwAYyr2PlRoR5MpgVmSUIrM3PQxXPbgjBOaDQFIyFMJvx3Pc5RSYj12ySVF9fwFPQu2e2KWVoL9q3Ayv3IzpGHUdvdPdrNUdicjsTQ2ISy7QU3DrEytIjvbzJnAkmANXjAFERA0MUoPF3/5KFmW14bBNOhwircYgMqoDpUMcDtCmBE82QM2YtdjVLB4kBuKho/bcwQdeboqfQartuU3CsCf+cXkgYAqp/0Ee3RorAZt0AvvOCSI4JICIlGlsV0bsSid/NIEALAAzb6HAgyWHBps6xAOwkJIGcB82CxRQq4sJf3FzA70A+TRqcqjEMETCoez3mkPcpnoALs0ugJY8kQwrC+JE5ik3w9rzrvDRjAQnqgEVvdGrNwlanR0SOKWzxOJOvLJhcd8Cl4AshACUkv9czdMkJCVQSQhp6kp7StAlpVRpK0t0SW6LHeBJnE2QchB5Ccu8kxRghZXGIgZIiSj7gEKMJDClcnX6hgoqJMwiQDigIXg3ioFLCgDgjPtYHYpsF5EiA4kcnN18MZtOrY866dEQAb0FB34OGKHGZQjwW/WDHA60cYFaI/PjpzquUqdaYGcIq+mLez3WLFFCtNBN2QJcrlcoELgiPku5R5dSlJFaCEqEZle1AQzAKC+1SotMcBNyQUFuRHRF6OlimSBgjZeTBCwLyc6A+P/oFRchXTz5ADknYJHxzrJ5pGuIKRQISU6WyKTBBjD8WozmVYWIsto1AS5rxzKlvJu4E/vwOiKxRtCWsDM+eTHUrmwrCK5BIfMzGkD+0Fk5LzBs0jMYXktNDblB06LMNJ09U8pzSLmo14MS0OMjcdrZ31pyQqxJJpRImlSvfYAK8inkYU52QY2FPEVsjoWewpwhRp5yAuNpkqhdb7ku9Seefl2D0B8SMTFD90xi4CSOwwZy9IKkpMtI3FmFUg3/kFutpQGNc3pCR7gvC4sgwbupDu3DyEN+W6YGLNM21jpB49irxy9BSlHrVDlnihGKHwPrbVFtc+h1rVQKZduxIyojccZIIcOCmhEnC7UkY68WXKQgLi2JCDQkQWJRQuk60hZp0D3rtCTINSeY9Ej2kIKYfGxwOs4j9qMM7fYZiipzgcf7TamnehqdhsiMiCawXnz4xAbyCkLAx5EGbo3Ax1u3dUIKnTxIaxwQTHehPl3V491H0+bC5zgpGz7Io+mjdhKlPJ01EeMpM7UsRJMi1nGjmJg35i6bQBAAxjO/ENJubU2mg3ONySEoWklCwdABETcs7ck3jgiuU9pcKKpbgn+3YlzV1FzIkB6pmEDOSSyDfPPlQskznctFji0kpgZjW5RZe6x9kYT4KJcXg0bNiCyif+pZACCyRMmYsfiKmN9tSO65F0R2OO6ytlEhY5Sj6uRKfFxw0ijJaAx/k3QgnAFSq27/2i4GEBA+UvTJKK/9eISNvG46Em5RZfjTYLdeD8kdXHyrwId/DQZUaMCY4gGbke2C8vfjgV/Y9kkRQOJIn/xM9INZSpiBnqX0Q9GlQPpPKAyO5y+W5NMPSRdBCUlmuxl40ZfMCnf2Cp044uI9WLFtCi4YVxKjuRCOBWIb4XbIsGdbo4qtMQnNOQz4XDSui7W/N6l54qOynCqD3DpWQ+mpD7C40D8BZEWGJX3tlAaZBMj1yjvDYKwCJBa201u6nBKE5UE+7QSEhCwrXfbRZylAaAkplhBWX50dumrElePyNMRYUrC99UmcSSNgImhFhDI4BXjMtiqkgizUGCrZ8iwFxU6fQ8GEHCFdLewwxYWxgScAYMdMLmcZR6b7rZl95eQVDGVoUKcRMM1ixXQtXNkBETZkVVPg8LoSrdetHzkuM7DjZRHP02tCxA1fmkXKF3VzfN1pc1cv/8lbTIkkYpqKM9VOhp65ktYk+Q46myFWBapDfyWUCnsnI00QTBQmuFjMZTcd0V2NQ768Fhpby04k2IzNR1wKabuGJqYWwSly6ocMFGTeeI+ejsWDYgEvr66QgqdcIbFYDNgsm0x9UHY6SCd5+7tpsLpKdvhahIDyYmEJQCqMqtCF6UlrE5GXRmbu+vtm3BFSxI6ND6UxIE7GsGMgWqghXxSnaRJuGFveTcK5ZVSPJyjUxe1dKgI6kNF7EZhIZs8y8FVqwEfbM0Xk2ltORVDKZZM40SD3qQoQe0orJEKwPfZwm3YPqwixhUMOndis6MhbmfvLBKjC8sKKIZKbJk8L11oNkCQzCgvjhyyEiQSuJcgCQSG4Mocfgc0Hkwcjal1UNgP0CBPikYqBIk9tONv4kLtBswH07vUCjEaHiFGlLf8MgXKzSgjp2HolRRccAOh0ILHz9qlGgIFkwAnzHJRjWFhlA7ROwINyB5HFj59PRZHFor6voq7l23EPNRwdWhgawqbivLSjRA4htEYUFkjESu67icTg5S0aW1sOkCiIysfJ9UnIWevOOLGpepcBxy1wEhd2WI3AZg7sr9WBmHWyasxMcvY/iOmsLtHSWNUWEGk9hScMPShasUA1AcHOtRZlqMeQ0OzYS9vQvYUjOLrzP07BUAFikcJNMi7gIxEw4pL1G54TcmmmoAQ5s7TGWErJZ2Io4yQ0ljRYhL8H5e62oDtLF8aDpnIvZ5R3GWJyAugdiiJW9hQAVTsnCBHhwu7rkBlBX6r3b7ejEY0k5GGeyKv66v+6dg7mcJTrWHbtMywbedYqCQ0FPwoytmSWsL8WTtChZCKKzEF7vP6De4x2BJkkniMgSdWhbeBSLtJZR9CTHetK1xb34AYIJ37OegYIoPVbXgJ/qDQK+bfCtxQRVKQu77WzOoM6SGL7MaZwCGJVk46aImai9fmam+WpHG+0BtQPWUgZ7RIAlPq6lkECUhZQ2gqWkMYKcYMYaIc4gYCDFHYa2d1nzp3+J1eCBay8IYZ0wQRKGAqvCuZ/UgbQPyllosq+XtfKIZOzmeJqRazpmmoP/76YfkjzV2NlXTDSBYB04SVlNQsFTbGPk1t/I4Jktu0XSgifO2ozFOiwd/0SssJDn0dn4xqk4GDTTKX73/wQyBLdqgJ+Wx6AQaba3BA9CKEzjtQYIfAsiYamapq80LAamYjinlKXUkxdpIDk0puXUEYzSalfRibAeDAKpNiqQ0FTwoxuGYzRnisyTotdVTclis1LHRQCy/qqL8oUaQzWRxilq5Mi0IJGtMY02cGLD69vGjkj3p6pGePKI8bkBv5evq8SjjyU04vJR2cQXQwSJyoinDsUJHCQ50jrFTT7yRdbdYQMB3MYCb6uBzJ9ewhXYPAIZSXfeEQBZZ3GPN3Nbhh/wkvAJLXnQMdi5NYYZ5GHE400GS5rXkOZSQsdZgIbzRnF9ueLnsfQ47wHAsirITnTlkCcuWWIUhJSbpM3wWhXNHvt2xUsKKMpdBSbJnBMcihkoDqAd1Zml/R4yrzow1Q2A5G+kzo/RhRxQS2lCSDRV8LlYLBOOoo1bF4jwJAwKMK1tWLHlu9i0j4Ig8qVm6wE1DxXwAwQwsaBWUg2pOOol2dHxyt6npwJEdLDDVYyRc2D0HbcbLUJQj8gPevQBUBOUHXPrsAPBERICpnYESeu2OHotpXQxRGlCCtLdIsu23MhZVEoJg8Qumj/UMMc34IBqTKLDTp76WzL/dMjCxK7MjhiGjeYAC/kj/jY/Rde7hpSM1xChrog6yZ7OWTuD56xBJnGFE+pT2ElSyCnJcwVzCjkqeNLfMEJqKW0G7OFIp0G+9mh50I9o8k1tpCY0xYqFNIALgIfc2me4n1bmJnRZ89oepgLPT0NTMLNZsvSCZAc3TXaNB07vail36/dBySis4m9/DR8izaLJW6bWCkVgm5T+ius3ZXq4xI+GnbveLbdRwF2mNtsrE0JjYc1AXknCOrLSu7Te/r4dPYMCl5qtiHNTn+TPbh1jCBHH+dMJNhwNgs3nT+OhQoQ0vYif56BMG6WowAcHR3DjQolxLzyVekHj00PBAaW7IIAF1EF+uRIWyXjQMAs2chdpaKPNaB+kSezYt0+CA04sOg5vx8Fr7Ofa9sUv87h7SLAUFSzbetCCZ9pmyLt6l6/TzoA1/ZBG9bIUVHLAbi/kdBFgYGyGwRQGBpkqCEg2ah9UD6EedEcEL3j4y0BQQCiExEnocA3SZboh+epgd3YsOkHskZwPuQ5OoyA0fTA5AXrHcUOQF+zkJHIA7PwCDk1gGVmGUZSSoPhNf+Tklauz98QofOlCIQ/tCD4dosHYPqtPCXB3agggQQIqQJsSkB+qn0rkQ1toJjON/OtCIB9RYv3PqRA4C4U68ZMlZn6BdgEvi2ziU+TQ6NIw3ej+AtDwMGEZk7e2IjxUWKdAxyaw9OCwSmeADTPPleyk6UhGDNXQb++W6Uk4q6F7/rg6WVTo82IoCxSIsFDrav4EPHphD3u4hR53WKVvYZUwNCCeM4PMBWzK+EfIthZOkuAwPo5C5jgoZgn6dUdvx5rIDmd58cXXdKNfw3l+wM2UjgrDJeQHhbD7HW2QDoZMCujgIUkk5Fg8VCsdyjOtnGRx8wgKRPZN5dR0zPUyfGZFVihbFRniXZFOZGKPnEQzU3AnD1KfR6weHW2XS6KbPJxUkOTZsAB9vTVp3Le1F8q5l+DMcLiIq78jxAImD2pGFw0VHfRatScGlK6SMu8leTmhUSMy8Uhdd6xBiH3Gdman4tjQGLboJfqz6fL2WKHTmrfsKZRYX6BTDjDldKMosaSTLdQS7oDisJNqAUhw1PfTlnacCO8vl8706Km1FROgLDmudzxg+EWTiArtHgLsRrAXYWdB0NmToNCJdKm0KWycZQqb+Mw76Qy29iQ5up/X7oyw8QZ75kP5F6iJAJz6KCmqxz8fEa/xnsMYcIO/vEkGRuMckhr4rIeLrKaXnmIzlNLxbFspOphkcnJdnz/Chp/Vlpj2P7jJQmQRwGnltkTV5dbF9fE3/fxoSqTROgq9wFUlbuYzYcasE0ouzBo+dDCDzxKAfhbAZYxQiHrLzV2iVexnDX/QnT1fsT/xuhu1ui5qIytgbGmRoQkeQooO8eJNNZsf0iALur8QxZFH0nCMnjerYQqG1pIfjyVZWxhVRznmmfLG00BcBWJE6hzQWRyFknuJnXuk8A5FRDCulwrWASSNoBtR+CtGdkPwYN2o7DOw/VGlCZPusRBFXODQdUM5zeHDIVuAJBLqbO/f9Qua+pDqEPk230Sob9lEZ8BHiCorjVghuI0lI4JDgHGRDD/prQ84B1pVGkIpVUAHCG+iz3Bn3qm2AVrYcYWhock4jso5+J7HfHVj4WMIQdGctq3psBCVVzupQOEioBGA2Bk+UILT7+VoX5mdxxA5fS42gISQVi/HTzrgMxu0fY6hE1ocUwwbsbWcezrY2n6S8/6cxXkOH4prpmPuFoikTzY7T85C4T2XYlbxLglSv2uLCgFv8Quk/wdesUdWPeHYIH0R729JIisN9Apdd4eB10aqwXrPt+Su9mA8k8n1sjMwnfsfF2j3jMUzXepSHmZ/BfqXvzgUNQQWOXO8YEuFBh4QTYCkOAPxywpYu1VxiDyJmKVcmJPGWk/gc3Pov02StyYDahwmzw3E1gYC9wkupyWfDqDSUMpCTH5e5N8B//lHiMuIkTNw4USHrJU67bjXGqNav6PBuQSoqTxc8avHoGmvqNtXzIaoyMIQIiiUHIM64cXieouplhNYln7qgc4wBVAYR104kO+CvKqsg4yIUlFNThVUAKZxZt1XA34h3TCUUiXVkZ0w8Hh2R0Z5L0b4LZvPd/p1gi/07h8qfwHrByuSxglc9cI4QIg2oqvC/qm0i7tjPLTgDhoWTAKDO2ONW5oe+/eKB9vZB8K6C25yCZ9RFVMnb6NRdRjyVK57CHHSkJBfnM2/j4ODUwRkqrtBBCrDsDpt8jhZdXoy/1BCqw3sSGhgGGy0a5Jw6BP/TExoCmNFYjZl248A0osgPyGEmRA+fAsqPVaNAfytu0vuQJ7rk3J4kTDTR2AlCHJ5cls26opZM4w3jMULh2YXKpcqGBtuleAlOZnaZGbD6DHzMd6i2oFeJ8z9XYmalg1Szd/ocZDc1C7Y6vcALJz2lYnTXiWEr2wawtoR4g3jvWUU2Ngjd1cewtFzEvM1NiHZPeLlIXFbBPawxNgMwwAlyNSuGF3zizVeOoC9bag1qRAQKQE/EZBWC2J8mnXAN2aTBboZ7HewnObE8CwROudZHmUM5oZ/Ugd/JZQK8lvAm43uDRAbyW8gZ+ZGq0EVerVGUKUSm/Idn8AQHdR4m7bue88WBwft9mSCeMOt1ncBwziOmJYI2ZR7ewNMPiCugmSsE4EyQ+QATJG6qORMGd4snEzc6B4shPIo4G1T7PgSm8PY5eUkPdF8JZ0VBtadbHXoJgnEhZQaODPj2gpODKJY5Yp4DOsLBFxWbvXN755KWylJm+oOd4zEL9Hpubuy2gyyfxh8oEfFutnYWdfB8PdESLWYvSqbElP9qo3u6KTmkhoacDauMNNjj0oy40DFV7Ql0aZj77xfGl7TJNHnIwgqOkenruYYNo6h724+zUQ7+vkCpZB+pGA562hYQiDxHVWOq0oDQl/QsoiY+cuI7iWq/ZIBtHcXJ7kks+h2fCNUPA82BzjnqktNts+RLdk1VSu+tqEn7QZCCsvEqk6FkfiOYkrsw092J8jsfIuEKypNjLxrKA9kiA19mxBD2suxQKCzwXGws7kEJvlhUiV9tArLIdZW0IORcxEzdzKmjtFhsjKy/44XYXdI5noQoRcvjZ1RMPACRqYg2V1+OwOepcOknRLLFdYgTkT5UApt/JhLM3jeFYprZV+Zow2g8fP+U68hkKFWJj2yBbKqsrp25xkZX1DAjUw52IMYWaOhab8Kp05VrdNftqwRrymWF4OQSjbdfzmRZirK8FMJELEgER2PHjEAN9pGfLhCUiTJFbd5LBkOBMaxLr/A1SY9dXFz4RjzoU9ExfJCmx/I9FKEGT3n2cmzl2X42L3Jh+AbQq6sA+Ss1kitoa4TAYgKHaoybHUDJ51oETdeI/9ThSmjWGkyLi5QAGWhL0BG1UsTyRGRJOldKBrYJeB8ljLJHfATWTEQBXBDnQexOHTB+Un44zExFE4vLytcu5NwpWrUxO/0ZICUGM7hGABXym0V6ZvDST0E370St9MIWQOTWngeoQHUTdCJUP04spMBMS8LSker9cReVQkULFDIZDFPrhTzBl6sed9wcZQTbL+BDqMyaN3RJPh/anbx+Iv+qgQdAa3M9Z5JmvYlh4qop+Ho1F1W5gbOE9YKLgAnWytXElU4G8GtW47lhgFE6gaSs+gs37sFvi0PPVvA5dnCBgILTwoKd/+DoL9F6inlM7H4rOTzD79KJgKlZO/Zgt22UsKhrAaXU5ZcLrAglTVKJEmNJvORGN1vqrcfSMizfpsgbIe9zno+gBoKVXgIL/VI8dB1O5o/R3Suez/gD7M781ShjKpIIORM/nxG+jjhhgPwsn2IoXsPGPqYHXA63zJ07M2GPEykQwJBYLK808qYxuIew4frk52nhCsnCYmXiR6CuapvE1IwRB4/QftDbEn+AucIr1oxrLabRj9q4ae0+fXkHnteAJwXRbVkR0mctVSwEbqhJiMSZUp9DNbEDMmjX22m3ABpkrPQQTP3S1sib5pD2VRKRd+eNAjLYyT0hGrdjWJZy24OYXRoWQAIhGBZRxuBFMjjZQhpgrWo8SiFYbojcHO8V5DyscJpLTHyx9Fimassyo5U6WNtquUMYgccaHY5amgR3PQzq3ToNM5ABnoB9kuxsebqmYZm0R9qxJbFXCQ1UPyFIbxoUraTJFDpCk0Wk9GaYJKz/6oHwEP0Q14lMtlddQsOAU9zlYdMVHiT7RQP3XCmWYDcHCGbVRHGnHuwzScA0BaSBOGkz3lM8CArjrBsyEoV6Ys4qgDK3ykQQPZ3hCRGNXQTNNXbEb6tDiTDLKOyMzRhCFT+mAUmiYbV3YQVqFVp9dorv+TsLeCykS2b5yyu8AV7IS9cxcL8z4Kfwp+xJyYLv1OsxQCZwTB4a8BZ/5EdxTBJthApqyfd9u3ifr/WILTqq5VqgwMT9SOxbSGWLQJUUWCVi4k9tho9nEsbUh7U6NUsLmkYFXOhZ0kmamaJLRNJzSj/qn4Mso6zb6iLLBXoaZ6AqeWCjHQm2lztnejYYM2eubnpBdKVLORZhudH3JF1waBJKA9+W8EhMj3Kzf0L4vi4k6RoHh3Z5YgmSZmk6ns4fjScjAoL8GoOECgqgYEBYUGFVO4FUv4/YtowhEmTs0vrvlD/CrisnoBNDAcUi/teY7OctFlmARQzjOItrrlKuPO6E2Ox93L4O/4DcgV/dZ7qR3VBwVQxP1GCieA4RIpweYJ5FoYrHxqRBdJjnqbsikA2Ictbb8vE1GYIo9dacK0REgDX4smy6GAkxlH1yCGGsk+tgiDhNKuKu3yNrMdxafmKTF632F8Vx4BNK57GvlFisrkjN9WDAtjsWA0ENT2e2nETUb/n7qwhvGnrHuf5bX6Vh/n3xffU3PeHdR+FA92i6ufT3AlyAREoNDh6chiMWTvjKjHDeRhOa9YkOQRq1vQXEMppAQVwHCuIcV2g5rBn6GmZZpTR7vnSD6ZmhdSl176gqKTXu5E+YbfL0adwNtHP7dT7t7b46DVZIkzaRJOM+S6KcrzYVg+T3wSRFRQashjfU18NutrKa/7PXbtuJvpIjbgPeqd+pjmRw6YKpnANFSQcpzTZgpSNJ6J7uiagAbir/8tNXJ/OsOnRh6iuIexxrmkIneAgz8QoLmiaJ8sLQrELVK2yn3wOHp57BAZJhDZjTBzyoRAuuZ4eoxHruY1pSb7qq79cIeAdOwin4GdgMeIMHeG+FZWYaiUQQyC5b50zKjYw97dFjAeY2I4Bnl105Iku1y0lMA1ZHolLx19uZnRdILcXKlZGQx/GdEqSsMRU1BIrFqRcV1qQOOHyxOLXEGcbRtAEsuAC2V4K3p5mFJ22IDWaEkk9ttf5Izb2LkD1MnrSwztXmmD/Qi/EmVEFBfiKGmftsPwVaIoZanlKndMZsIBOskFYpDOq3QUs9aSbAAtL5Dbokus2G4/asthNMK5UQKCOhU97oaOYNGsTah+jfCKsZnTRn5TbhFX8ghg8CBYt/BjeYYYUrtUZ5jVij/op7V5SsbA4mYTOwZ46hqdpbB6Qvq3AS2HHNkC15pTDIcDNGsMPXaBidXYPHc6PJAkRh29Vx8KcgX46LoUQBhRM+3SW6Opll/wgxxsPgKJKzr5QCmwkUxNbeg6Wj34SUnEzOemSuvS2OetRCO8Tyy+QbSKVJcqkia+GvDefFwMOmgnD7h81TUtMn+mRpyJJ349HhAnoWFTejhpYTL9G8N2nVg1qkXBeoS9Nw2fB27t7trm7d/QK7Cr4uoCeOQ7/8JfKT77KiDzLImESHw/0wf73QeHu74hxv7uihi4fTX+XEwAyQG3264dwv17aJ5N335Vt9sdrAXhPOAv8JFvzqyYXwfx8WYJaef1gMl98JRFyl5Mv5Uo/oVH5ww5OzLFsiTPDns7fS6EURSSWd/92BxMYQ8sBaH+j+wthQPdVgDGpTfi+JQIWMD8xKqULliRH01rTeyF8x8q/GBEEEBrAJMPf25UQwi0b8tmqRXY7kIvNkzrkvRWLnxoGYEJsz8u4oOyMp8cHyaybb1HdMCaLApUE+/7xLIZGP6H9xuSEXp1zLIdjk5nBaMuV/yTDRRP8Y2ww5RO6d2D94o+6ucWIqUAvgHIHXhZsmDhjVLczmZ3ca0Cb3PpKwt2UtHVQ0BgFJsqqTsnzZPlKahRUkEu4qmkJt+kqdae76ViWe3STan69yaF9+fESD2lcQshLHWVu4ovItXxO69bqC5p1nZLvI8NdQB9s9UNaJGlQ5mG947ipdDA0eTIw/A1zEdjWquIsQXXGIVEH0thC5M+W9pZe7IhAVnPJkYCCXN5a32HjN6nsvokEqRS44tGIs7s2LVTvcrHAF+RVmI8L4HUYk4x+67AxSMJKqCg8zrGOgvK9kNMdDrNiUtSWuHFpC8/p5qIQrEo/H+1l/0cAwQ2nKmpWxKcMIuHY44Y6DlkpO48tRuUGBWT0FyHwSKO72Ud+tJUfdaZ4CWNijzZtlRa8+CkmO/EwHYfPZFU/hzjFWH7vnzHRMo+aF9u8qHSAiEkA2HjoNQPEwHsDKOt6hOoK3Ce/+/9boMWDa44I6FrQhdgS7OnNaSzwxWKZMcyHi6LN4WC6sSj0qm2PSOGBTvDs/GWJS6SwEN/ULwpb4LQo9fYjUfSXRwZkynUazlSpvX9e+G2zor8l+YaMxSEomDdLHGcD6YVQPegTaA74H8+V4WvJkFUrjMLGLlvSZQWvi8/QA7yzQ8GPno//5SJHRP/OqKObPCo81s/+6WgLqykYpGAgQZhVDEBPXWgU/WzFZjKUhSFInufPRiMAUULC6T11yL45ZrRoB4DzOyJShKXaAJIBS9wzLYIoCEcJKQW8GVCx4fihqJ6mshBUXSw3wWVj3grrHQlGNGhIDNNzsxQ3M+GWn6ASobIWC+LbYOC6UpahVO13Zs2zOzZC8z7FmA05JhUGyBsF4tsG0drcggIFzgg/kpf3+CnAXKiMgIE8Jk/Mhpkc8DUJEUzDSnWlQFme3d0sHZDrg7LavtsEX3cHwjCYA17pMTfx8Ajw9hHscN67hyo+RJQ4458RmPywXykkVcW688oVUrQhahpPRvTWPnuI0B+SkQu7dCyvLRyFYlC1LG1gRCIvn3rwQeINzZQC2KXq31FaR9UmVV2QeGVqBHjmE+VMd3b1fhCynD0pQNhCG6/WCDbKPyE7NRQzL3BzQAJ0g09aUzcQA6mUp9iZFK6Sbp/YbHjo++7/Wj8S4YNa+ZdqAw1hDrKWFXv9+zaXpf8ZTDSbiqsxnwN/CzK5tPkOr4tRh2kY3Bn9JtalbIOI4b3F7F1vPQMfoDcdxMS8CW9m/NCW/HILTUVWQIPiD0j1A6bo8vsv6P1hCESl2abrSJWDrq5sSzUpwoxaCU9FtJyYH4QFMxDBpkkBR6kn0LMPO+5EJ7Z6bCiRoPedRZ/P0SSdii7ZnPAtVwwHUidcdyspwncz5uq6vvm4IEDbJVLUFCn/LvIHfooUBTkFO130FC7CmmcrKdgDJcid9mvVzsDSibOoXtIf9k6ABle3PmIxejodc4aob0QKS432srrCMndbfD454q52V01G4q913mC5HOsTzWF4h2No1av1VbcUgWAqyoZl+11PoFYnNv2HwAODeNRkHj+8SF1fcvVBu6MrehHAZK1Gm69ICcTKizykHgGFx7QdowTVAsYEF2tVc0Z6wLryz2FI1sc5By2znJAAmINndoJiB4sfPdPrTC8RnkW7KRCwxC6YvXg5ahMlQuMpoCSXjOlBy0Kij+bsCYPbGp8BdCBiLmLSAkEQRaieWo1SYvZIKJGj9Ur/eWHjiB7SOVdqMAVmpBvfRiebsFjger7DC+8kRFGtNrTrnnGD2GAJb8rQCWkUPYHhwXsjNBSkE6lGWUj5QNhK0DMNM2l+kXRZ0KLZaGsFSIdQz/HXDxf3/TE30+DgBKWGWdxElyLccJfEpjsnszECNoDGZpdwdRgCixeg9L4EPhH+RptvRMVRaahu4cySjS3P5wxAUCPkmn+rhyASpmiTaiDeggaIxYBmtLZDDhiWIJaBgzfCsAGUF1Q1SFZYyXDt9skCaxJsxK2Ms65dmdp5WAZyxik/zbrTQk5KmgxCg/f45L0jywebOWUYFJQAJia7XzCV0x89rpp/f3AVWhSPyTanqmik2SkD8A3Ml4NhIGLAjBXtPShwKYfi2eXtrDuKLk4QlSyTw1ftXgwqA2jUuopDl+5tfUWZNwBpEPXghzbBggYCw/dhy0ntds2yeHCDKkF/YxQjNIL/F/37jLPHCKBO9ibwYCmuxImIo0ijV2Wbg3kSN2psoe8IsABv3RNFaF9uMyCtCYtqcD+qNOhwMlfARQUdJ2tUX+MNJqOwIciWalZsmEjt07tfa8ma4cji9sqz+Q9hWfmMoKEbIHPOQORbhQRHIsrTYlnVTNvcq1imqmmPDdVDkJgRcTgB8Sb6epCQVmFZe+jGDiNJQLWnfx+drTKYjm0G8yH0ZAGMWzEJhUEQ4Maimgf/bkvo8PLVBsZl152y5S8+HRDfZIMCbYZ1WDp4yrdchOJw8k6R+/2pHmydK4NIK2PHdFPHtoLmHxRDwLFb7eB+M4zNZcB9NrAgjVyzLM7xyYSY13ykWfIEEd2n5/iYp3ZdrCf7fL+en+sIJu2W7E30MrAgZBD1rAAbZHPgeAMtKCg3NpSpYQUDWJu9bT3V7tOKv+NRiJc8JAKqqgCA/PNRBR7ChpiEulyQApMK1AyqcWnpSOmYh6yLiWkGJ2mklCSPIqN7UypWj3dGi5MvsHQ87MrB4VFgypJaFriaHivwcHIpmyi5LhNqtem4q0n8awM19Qk8BOS0EsqGscuuydYsIGsbT5GHnERUiMpKJl4ON7qjB4fEqlGN/hCky89232UQCiaeWpDYCJINXjT6xl4Gc7DxRCtgV0i1ma4RgWLsNtnEBRQFqZggCLiuyEydmFd7WlogpkCw5G1x4ft2psm3KAREwVwr1Gzl6RT7FDAqpVal34ewVm3VH4qn5mjGj+bYL1NgfLNeXDwtmYSpwzbruDKpTjOdgiIHDVQSb5/zBgSMbHLkxWWgghIh9QTFSDILixVwg0Eg1puooBiHAt7DzwJ7m8i8/i+jHvKf0QDnnHVkVTIqMvIQImOrzCJwhSR7qYB5gSwL6aWL9hERHCZc4G2+JrpgHNB8eCCmcIWIQ6rSdyPCyftXkDlErUkHafHRlkOIjxGbAktz75bnh50dU7YHk+Mz7wwstg6RFZb+TZuSOx1qqP5C66c0mptQmzIC2dlpte7vZrauAMm/7RfBYkGtXWGiaWTtwvAQiq2oD4YixPLXE2khB2FRaNRDTk+9sZ6K74Ia9VntCpN4BhJGJMT4Z5c5FhSepRCRWmBXqx+whVZC4me4saDs2iNqXMuCl6iAZflH8fscC1sTsy4PHeC+XYuqMBMUun5YezKbRKmEPwuK+CLzijPEQgfhahQswBBLfg/GBgBiI4QwAqzJkkyYAWtjzSg2ILgMAgqxYfwERRo3zruBL9WOryUArSD8sQOcD7fvIODJxKFS615KFPsb68USBEPPj1orNzFY2xoTtNBVTyzBhPbhFH0PI5AtlJBl2aSgNPYzxYLw7XTDBDinmVoENwiGzmngrMo8OmnRP0Z0i0Zrln9DDFcnmOoBZjABaQIbPOJYZGqX+RCMlDDbElcjaROLDoualmUIQ88Kekk3iM4OQrADcxi3rJguS4MOIBIgKgXrjd1WkbCdqxJk/4efRIFsavZA7KvvJQqp3Iid5Z0NFc5aiMRzGN3vrpBzaMy4JYde3wr96PjN90AYOIbyp6T4zj8LoE66OGcX1Ef4Z3KoWLAUF4BTg7ug/AbkG5UNQXAMkQezujSHeir2uTThgd3gpyzDrbnEdDRH2W7U6PeRvBX1ZFMP5RM+Zu6UUZZD8hDPHldVWntTCNk7To8IeOW9yn2wx0gmurwqC60AOde4r3ETi5pVMSDK8wxhoGAoEX9NLWHIR33VbrbMveii2jAJlrxwytTHbWNu8Y4N8vCCyZjAX/pcsfwXbLze2+D+u33OGBoJyAAL3jn3RuEcdp5If8O+a4NKWvxOTyDltG0IWoHhwVGe7dKkCWFT++tm+haBCikRUUMrMhYKZJKYoVuv/bsJzO8DwfVIInQq3g3BYypiz8baogH3r3GwqCwFtZnz4xMjAVOYnyOi5HWbFA8n0qz1OjSpHWFzpQOpvkNETZBGpxN8ybhtqV/DMUxd9uFZmBfKXMCn/SqkWJyKPnT6lq+4zBZni6fYRByJn6OK+OgPBGRAJluwGSk4wxjOOzyce/PKODwRlsgrVkdcsEiYrqYdXo0Er2GXi2GQZd0tNJT6c9pK1EEJG1zgDJBoTVuCXGAU8BKTvCO/cEQ1Wjk3Zzuy90JX4m3O5IlxVFhYkSUwuQB2up7jhvkm+bddRQu5F9s0XftGEJ9JSuSk+ZachCbdU45fEqbugzTIUokwoAKvpUQF/CvLbWW5BNQFqFkJg2f30E/48StNe5QwBg8zz3YAJ82FZoXBxXSv4QDooDo79NixyglO9AembuBcx5Re3CwOKTHebOPhkmFC7wNaWtoBhFuV4AkEuJ0J+1pT0tLkvFVZaNzfhs/Kd3+A9YsImlO4XK4vpCo/elHQi/9gkFg07xxnuXLt21unCIpDV+bbRxb7FC6nWYTsMFF8+1LUg4JFjVt3vqbuhHmDKbgQ4e+RGizRiO8ky05LQGMdL2IKLSNar0kNG7lHJMaXr5mLdG3nykgj6vB/KVijd1ARWkFEf3yiUw1v/WaQivVUpIDdSNrrKbjO5NPnxz6qTTGgYg03HgPhDrCFyYZTi3XQw3HXCva39mpLNFtz8AiEhxAJHpWX13gCTAwgm9YTvMeiqetdNQv6IU0hH0G+ZManTqDLPjyrOse7WiiwOJCG+J0pZYULhN8NILulmYYvmVcV2MjAfA39sGKqGdjpiPo86fecg65UPyXDIAOyOkCx5NQsLeD4gGVjTVDwOHWkbbBW0GeNjDkcSOn2Nq4cEssP54t9D749A7M1AIOBl0Fi0sSO5v3P7LCBrM6ZwFY6kp2FX6AcbGUdybnfChHPyu6WlRZ2Fwv9YM0RMI7kISRgR8HpQSJJOyTfXj/6gQKuihPtiUtlCQVPohUgzfezTg8o1b3n9pNZeco1QucaoXe40Fa5JYhqdTspFmxGtW9h5ezLFZs3j/N46f+S2rjYNC2JySXrnSAFhvAkz9a5L3pza8eYKHNoPrvBRESpxYPJdKVUxBE39nJ1chrAFpy4MMkf0qKgYALctGg1DQI1kIymyeS2AJNT4X240d3IFQb/0jQbaHJ2YRK8A+ls6WMhWmpCXYG5jqapGs5/eOJErxi2/2KWVHiPellTgh/fNl/2KYPKb7DUcAg+mCOPQFCiU9Mq/WLcU1xxC8aLePFZZlE+PCLzf7ey46INWRw2kcXySR9FDgByXzfxiNKwDFbUSMMhALPFSedyjEVM5442GZ4hTrsAEvZxIieSHGSgkwFh/nFNdrrFD4tBH4Il7fW6ur4J8Xaz7RW9jgtuPEXQsYk7gcMs2neu3zJwTyUerHKSh1iTBkj2YJh1SSOZL5pLuQbFFAvyO4k1Hxg2h99MTC6cTUkbONQIAnEfGsGkNFWRbuRyyaEZInM5pij73EA9rPIUfU4XoqQpHT9THZkW+oKFLvpyvTBMM69tN1Ydwv1LIEhHsC+ueVG+w+kyCPsvV3erRikcscHjZCkccx6VrBkBRusTDDd8847GA7p2Ucy0y0HdSRN6YIBciYa4vuXcAZbQAuSEmzw+H/AuOx+aH+tBL88H57D0MsqyiZxhOEQkF/8DR1d2hSPMj/sNOa5rxcUnBgH8ictv2J+cb4BA4v3MCShdZ2vtK30vAwkobnEWh7rsSyhmos3WC93Gn9C4nnAd/PjMMtQfyDNZsOPd6XcAsnBE/mRHtHEyJMzJfZFLE9OvQa0i9kUmToJ0ZxknTgdl/XPV8xoh0K7wNHHsnBdvFH3sv52lU7UFteseLG/VanIvcwycVA7+BE1Ulyb20BvwUWZcMTKhaCcmY3ROpvonVMV4N7yBXTL7IDtHzQ4CCcqF66LjF3xUqgErKzolLyCG6Kb7irP/MVTCCwGRxfrPGpMMGvPLgJ881PHMNMIO09T5ig7AzZTX/5PLlwnJLDAPfuHynSGhV4tPqR3gJ4kg4c06c/F1AcjGytKm2Yb5jwMotF7vro4YDLWlnMIpmPg36NgAZsGA0W1spfLSue4xxat0Gdwd0lqDBOgIaMANykwwDKejt5YaNtJYIkrSgu0KjIg0pznY0SCd1qlC6R19g97UrWDoYJGlrvCE05J/5wkjpkre727p5PTRX5FGrSBIfJqhJE/IS876PaHFkx9pGTH3oaY3jJRvLX9Iy3Edoar7cFvJqyUlOhAEiOSAyYgVEGkzHdug+oRHIEOXAExMiTSKU9A6nmRC8mp8iYhwWdP2U/5EkFAdPrZw03YA3gSyNUtMZeh7dDCu8pF5x0VORCTgKp07ehy7NZqKTpIC4UJJ89lnboyAfy5OyXzXtuDRbtAFjZRSyGFTpFrXwkpjSLIQIG3N0Vj4BtzK3wdlkBJrO18MNsgseR4BysJilI0wI6ZahLhBFA0XBmV8d4LUzEcNVb0xbLjLTETYN8OEVqNxkt10W614dd1FlFFVTIgB7/BQQp1sWlNolpIu4ekxUTBV7NmxOFKEBmmN+nA7pvF78/RII5ZHA09OAiE/66MF6HQ+qVEJCHxwymukkNvzqHEh52dULPbVasfQMgTDyBZzx4007YiKdBuUauQOt27Gmy8ISclPmEUCIcuLbkb1mzQSqIa3iE0PJh7UMYQbkpe+hXjTJKdldyt2mVPwywoODGJtBV1lJTgMsuSQBlDMwhEKIfrvsxGQjHPCEfNfMAY2oxvyKcKPUbQySkKG6tj9AQyEW3Q5rpaDJ5Sns9ScLKeizPRbvWYAw4bXkrZdmB7CQopCH8NAmqbuciZChHN8lVGaDbCnmddnqO1PQ4ieMYfcSiBE5zzMz+JV/4eyzrzTEShvqSGzgWimkNxLvUj86iAwcZuIkqdB0VaIB7wncLRmzHkiUQpPBIXbDDLHBlq7vp9xwuC9AiNkIptAYlG7Biyuk8ILdynuUM1cHWJgeB+K3wBP/ineogxkvBNNQ4AkW0hvpBOQGFfeptF2YTR75MexYDUy7Q/9uocGsx41O4IZhViw/2FvAEuGO5g2kyXBUijAggWM08bRhXg5ijgMwDJy40QeY/cQpUDZiIzmvskQpO5G1zyGZA8WByjIQU4jRoFJt56behxtHUUE/om7Rj2psYXGmq3llVOCgGYKNMo4pzwntITtapDqjvQtqpjaJwjHmDzSVGLxMt12gEXAdLi/caHSM3FPRGRf7dB7YC+cD2ho6oL2zGDCkjlf/DFoQVl8GS/56wur3rdV6ggtzZW60MRB3g+U1W8o8cvqIpMkctiGVMzXUFI7FacFLrgtdz4mTEr4aRAaQ2AFQaNeG7GX0yOJgMRYFziXdJf24kg/gBQIZMG/YcPEllRTVNoDYR6oSJ8wQNLuihfw81UpiKPm714bZX1KYjcXJdfclCUOOpvTxr9AAJevTY4HK/G7F3mUc3GOAKqh60zM0v34v+ELyhJZqhkaMA8UMMOU90f8RKEJFj7EqepBVwsRiLbwMo1J2zrE2UYJnsgIAscDmjPjnzI8a719Wxp757wqmSJBjXowhc46QN4RwKIxqEE6E5218OeK7RfcpGjWG1jD7qND+/GTk6M56Ig4yMsU6LUW1EWE+fIYycVV1thldSlbP6ltdC01y3KUfkobkt2q01YYMmxpKRvh1Z48uNKzP/IoRIZ/F6buOymSnW8gICitpJjKWBscSb9JJKaWkvEkqinAJ2kowKoqkqZftRqfRQlLtKoqvTRDi2vg/RrPD/d3a09J8JhGZlEkOM6znTsoMCsuvTmywxTCDhw5dd0GJOHCMPbsj3QLkTE3MInsZsimDQ3HkvthT7U9VA4s6G07sID0FW4SHJmRGwCl+Mu4xf0ezqeXD2PtPDnwMPo86sbwDV+9PWcgFcARUVYm3hrFQrHcgMElFGbSM2A1zUYA3baWfheJp2AINmTJLuoyYD/OwA4a6V0ChBN97E8YtDBerUECv0u0TlxR5yhJCXvJxgyM73Bb6pyq0jTFJDZ4p1Am1SA6sh8nADd1hAcGBMfq4d/UfwnmBqe0Jun1n1LzrgKuZMAnxA3NtCN7Klf4BH+14B7ibBmgt0TGUafVzI4uKlpF7v8NmgNjg90D6QE3tbx8AjSAC+OA1YJvclyPKgT27QpIEgVYpbPYGBsnyCNrGz9XUsCHkW1QAHgL2STZk12QGqmvAB0NFteERkvBIH7INDsNW9KKaAYyDMdBEMzJiWaJHZALqDxQDWRntumSDPcplyFiI1oDpT8wbwe01AHhW6+vAUUBoGhY3CT2tgwehdPqU/4Q7ZLYvhRl/ogOvR9O2+wkkPKW5vCTjD2fHRYXONCoIl4Jh1bZY0ZE1O94mMGn/dFSWBWzQ/VYk+Gezi46RgiDv3EshoTmMSlioUK6MQEN8qeyK6FRninyX8ZPeUWjjbMJChn0n/yJvrq5bh5UcCAcBYSafTFg7p0jDgrXo2QWLb3WpSOET/Hh4oSadBTvyDo10IufLzxiMLAnbZ1vcUmj3w7BQuIXjEZXifwukVxrGa9j+DXfpi12m1RbzYLg9J2wFergEwOxFyD0/JstNK06ZN2XdZSGWxcJODpQHOq4iKqjqkJUmPu1VczL5xTGUfCgLEYyNBCCbMBFT/cUP6pE/mujnHsSDeWxMbhrNilS5MyYR0nJyzanWXBeVcEQrRIhQeJA6Xt4f2eQESNeLwmC10WJVHqwx8SSyrtAAjpGjidcj1E2FYN0LObUcFQhafUKTiGmHWRHGsFCB+HEXgrzJEB5bp0QiF8ZHh11nFX8AboTD0PS4O1LqF8XBks2MpjsQnwKHF6HgaKCVLJtcr0XjqFMRGfKv8tmmykhLRzu+vqQ02+KpJBjaLt9ye1Ab+BbEBhy4EVdIJDrL2naV0o4wU8YZ2Lq04FG1mWCKC+UwkXOoAjneU/xHplMQo2cXUlrVNqJYczgYlaOEczVCs/OCgkyvLmTmdaBJc1iBLuKwmr6qtRnhowngsDxhzKFAi02tf8bmET8BO27ovJKF1plJwm3b0JpMh38+xsrXXg7U74QUM8ZCIMOpXujHntKdaRtsgyEZl5MClMVMMMZkZLNxH9+b8fH6+b8Lev30A9TuEVj9CqAdmwAAHBPbfOBFEATAPZ2CS0OH1Pj/0Q7PFUcC8hDrxESWdfgFRm+7vvWbkEppHB4T/1ApWnlTIqQwjcPl0VgS1yHSmD0OdsCVST8CQVwuiew1Y+g3QGFjNMzwRB2DSsAk26cmA8lp2wIU4p93AUBiUHFGOxOajAqD7Gm6NezNDjYzwLOaSXRBYcWipTSONHjUDXCY4mMI8XoVCR/Rrs/JLKXgEx+qkmeDlFOD1/yTQNDClRuiUyKYCllfMiQiyFkmuTz2vLsBNyRW+xz+5FElFxWB28VjYIGZ0Yd+5wIjkcoMaggxswbT0pCmckRAErbRlIlcOGdBo4djTNO8FAgQ+lT6vPS60BwTRSUAM3ddkEAZiwtEyArrkiDRnS7LJ+2hwbzd2YDQagSgACpsovmjil5wfPuXq3GuH0CyE7FK3M4FgRaFoIkaodORrPx1+JpI9psyNYIFuJogZa0/1AhOWdlHQxdAgbwacsHqPZo8u/ngAH2GmaTdhYnBfSDbBfh8CHq6Bx5bttP2+RdM+MAaYaZ0Y/ADkbNCZuAyAVQa2OcXOeICmDn9Q/eFkDeFQg5MgHEDXq/tVjj+jtd26nhaaolWxs1ixSUgOBwrDhRIGOLyOVk2/Bc0UxvseQCO2pQ2i+Krfhu/WeBovNb5dJxQtJRUDv2mCwYVpNl2efQM9xQHnK0JwLYt/U0Wf+phiA4uw8G91slC832pmOTCAoZXohg1fewCZqLBhkOUBofBWpMPsqg7XEXgPfAlDo2U5WXjtFdS87PIqClCK5nW6adCeXPkUiTGx0emOIDQqw1yFYGHEVx20xKjJVYe0O8iLmnQr3FA9nSIQilUKtJ4ZAdcTm7+ExseJauyqo30hs+1qSW211A1SFAOUgDlCGq7eTIcMAeyZkV1SQJ4j/e1Smbq4HcjqgFbLAGLyKxlMDMgZavK5NAYH19Olz3la/QCTiVelFnU6O/GCvykqS/wZJDhKN9gBtSOp/1SP5VRgJcoVj+kmf2wBgv4gjrgARBWiURYx8xENV3bEVUAAWWD3dYDKAIWk5opaCFCMR5ZjJExiCAw7gYiSZ2rkyTce4eNMY3lfGn+8p6+vBckGlKEXnA6Eota69OxDO9oOsJoy28BXOR0UoXNRaJD5ceKdlWMJlOFzDdZNpc05tkMGQtqeNF2lttZqNco1VtwXgRstLSQ6tSPChgqtGV5h2DcDReIQadaNRR6AsAYKL5gSFsCJMgfsaZ7DpKh8mg8Wz8V7H+gDnLuMxaWEIUPevIbClgap4dqmVWSrPgVYCzAoZHIa5z2Ocx1D/GvDOEqMOKLrMefWIbSWHZ6jbgA8qVBhYNHpx0P+jAgN5TB3haSifDcApp6yymEi6Ij/GsEpDYUgcHATJUYDUAmC1SCkJ4cuZXSAP2DEpQsGUjQmKJfJOvlC2x/pChkOyLW7KEoMYc5FDC4v2FGqSoRWiLsbPCiyg1U5yiHZVm1XLkHMMZL11/yxyw0UnGig3MFdZklN5FI/qiT65T+jOXOdO7XbgWurOAZR6Cv9uu1cm5LjkXX4xi6mWn5r5NjBS0gTliHhMZI2WNqSiSphEtiCAwnafS11JhseDGHYQ5+bqWiAYiAv6Jsf79/VUs4cIl+n6+WOjcgB/2l5TreoAV2717JzZbQIR0W1cl/dEqCy5kJ3ZSIHuU0vBoHooEpiHeQWVkkkOqRX27eD1FWw4BfO9CJDdKoSogQi3hAAwsPRFrN5RbX7bqLdBJ9JYMohWrgJKHSjVl1sy2xAG0E3sNyO0oCbSGOxCNBRRXTXenYKuwAoDLfnDcQaCwehUOIDiHAu5m5hMpKeKM4sIo3vxACakIxKoH2YWF2QM84e6F5C5hJU4g8uxuFOlAYnqtwxmHyNEawLW/PhoawJDrGAP0JYWHgAVUByo/bGdiv2T2EMg8gsS14/rAdzlOYazFE7w4OzxeKiWdm3nSOnQRRKXSlVo8HEAbBfyJMKqoq+SCcTSx5NDtbFwNlh8VhjGGDu7JG5/TAGAvniQSSUog0pNzTim8Owc6QTuSKSTXlQqwV3eiEnklS3LeSXYPXGK2VgeZBqNcHG6tZHvA3vTINhV0ELuQdp3t1y9+ogD8Kk/W7QoRN1UWPqM4+xdygkFDPLoTaumKReKiLWoPHOfY54m3qPx4c+4pgY3MRKKbljG8w4wvz8pxk3AqKsy4GMAkAtmRjRMsCxbb4Q2Ds0Ia9ci8cMT6DmsJG00XaHCIS+o3F8YVVeikw13w+OEDaCYYhC0ZE54kA4jpjruBr5STWeqQG6M74HHL6TZ3lXrd99ZX++7LhNatQaZosuxEf5yRA15S9gPeHskBIq3Gcw81AGb9/O53DYi/5CsQ51EmEh8Rkg4vOciClpy4d04eYsfr6fyQkBmtD+P8sNh6e+XYHJXT/lkXxT4KXU5F2sGxYyzfniMMQkb9OjDN2C8tRRgTyL7GwozH14PrEUZc6oz05Emne3Ts5EG7WolDmU8OB1LDG3VrpQxp+pT0KYV5dGtknU64JhabdqcVQbGZiAxQAnvN1u70y1AnmvOSPgLI6uB4AuDGhmAu3ATkJSw7OtS/2ToPjqkaq62/7WFG8advGlRRqxB9diP07JrXowKR9tpRa+jGJ91zxNTT1h8I2PcSfoUPtd7NejVoH03EUcqSBuFZPkMZhegHyo2ZAITovmm3zAIdGFWxoNNORiMRShgwdYwFzkPw5PA4a5MIIQpmq+nsp3YMuXt/GkXxLx/P6+ZJS0lFyz4MunC3eWSGE8xlCQrKvhKUPXr0hjpAN9ZK4PfEDrPMfMbGNWcHDzjA7ngMxTPnT7GMHar+gMQQ3NwHCv4zH4BIMYvzsdiERi6gebRmerTsVwZJTRsL8dkZgxgRxmpbgRcud+YlCIRpPwHShlUSwuipZnx9QCsEWziVazdDeKSYU5CF7UVPAhLer3CgJOQXl/zh575R5rsrmRnKAzq4POFdgbYBuEviM4+LVC15ssLNFghbTtHWerS1hDt5s4qkLUha/qpZXhWh1C6lTQAqCNQnaDjS7UGFBC6wTu8yFnKJnExCnAs3Ok9yj5KpfZESQ4lTy5pTGTnkAUpxI+yjEldJfSo4y0QhG4i4IwkRFGcjWY8+EzgYYJUK7BXQksLxAww/YYWBMhJILB9e8ePEJ4OP7z+4/wOQDl64iOYDp26DaONPxpKtBxq/aTzRGarm3VkPYTLJKx6Z/Mw2YbBGseJhPMwhhNswrIkyvV2BYzrvZbxLpKwcWJhYmFtVZ+lPEq91FzVp1HlQY1bZVLqeNR9SAUn6n0E28k/UuGkNpP1DBI5ch/EehZfjUQ9aE41NhETExoPT2gGQz0IhWJbEOvTQ4wgcXCHHFBhewYUiFHuhRSAUVmEHeCRQHQkXGFwkAgyzREJCVN7TRnTon36Zw3tPhx4EALwNdwDv+J41YSP4B2CQqz0EFgARZ4ESgBHQgROwAVn9GTI+HYexTUevLUeta4/DqKrbMVS+Yqb8hUwYCrlgKtmAq1YCrFgKrd4qpXiqZcKn1oqdWipjYKpWwVPVYqW6xUpVipKqFR3QKjagVEtAqHpxUMTitsnFaJOKx2cVhswq35RVpyiq9lFVNIKnOQVMkgqtYxVNxiqQjFS7GKlSIVIsQqPIhUWwioigFQ++KkN8VHr49HDw9Ebo9EDo9DTo9Crg9BDg9/Wx7gWx7YWwlobYrOGxWPNisAaAHEyALpkAVDIAeWAArsABVXACYuAD5cAF6wAKFQAQqgAbVAAsoAAlQAUaYAfkwAvogBWQACOgAD9AAHSAAKT4GUdMiOvFngBTwCn2AZ7Dv6B6k/90B8+yRnkV144AIBoAMTQATGgAjNAA4YABgwABZgB/mQCwyAVlwCguASlwCEuAQFwB4uAMlwBYuAJlQAUVAAhUD2KgdpUDaJgaRMDFJgX5MC1JgWJEAokQCWRAHxEAWkQBMRADpEAMkQAYROAEecC484DRpwBDTnwNOdw05tjTmiNOYwtswhYFwLA7BYG4LA2BYGOLAwRYFuLAsxYFQJAohIEyJAMwkAwiQC0JAJgkAeiQBkJAFokAPCQA0JABwcD4Dgc4cDdDgaYcDIDgYgUC6CgWgUClCgUYUAVBQBOFAEYMALgwAgDA9QYAdIn8AZzeBB2L5EcWrenUT1KXienEsuJJ7x5U8XlTjc1NVzUyXFTGb1LlpUtWlTDIjqwE4LsagowoCi2gJLKAkpoBgJQNpAIhNqaEoneI6kiiqQ6Go/n6j0cS+a2gEU8gIHJ+BwfgZX4GL+Bd/gW34FZ+BS/gUH4FN6BTegTvoEv6BJegRnYEF2A79gOvYDl2BdEjCkqkGtwXp0LNToIskOTXzh/F062yJ7AAAAEDAWAAABWhJ+KPEIJgBFxMVP7w2QJBGHASQnOBKXKFIdUK4igKA9IEaYJg);src:url(data:application/vnd.ms-fontobject;base64,n04AAEFNAAACAAIABAAAAAAABQAAAAAAAAABAJABAAAEAExQAAAAAAAAAAIAAAAAAAAAAAEAAAAAAAAAJxJ/LAAAAAAAAAAAAAAAAAAAAAAAACgARwBMAFkAUABIAEkAQwBPAE4AUwAgAEgAYQBsAGYAbABpAG4AZwBzAAAADgBSAGUAZwB1AGwAYQByAAAAeABWAGUAcgBzAGkAbwBuACAAMQAuADAAMAA5ADsAUABTACAAMAAwADEALgAwADAAOQA7AGgAbwB0AGMAbwBuAHYAIAAxAC4AMAAuADcAMAA7AG0AYQBrAGUAbwB0AGYALgBsAGkAYgAyAC4ANQAuADUAOAAzADIAOQAAADgARwBMAFkAUABIAEkAQwBPAE4AUwAgAEgAYQBsAGYAbABpAG4AZwBzACAAUgBlAGcAdQBsAGEAcgAAAAAAQlNHUAAAAAAAAAAAAAAAAAAAAAADAKncAE0TAE0ZAEbuFM3pjM/SEdmjKHUbyow8ATBE40IvWA3vTu8LiABDQ+pexwUMcm1SMnNryctQSiI1K5ZnbOlXKmnVV5YvRe6RnNMFNCOs1KNVpn6yZhCJkRtVRNzEufeIq7HgSrcx4S8h/v4vnrrKc6oCNxmSk2uKlZQHBii6iKFoH0746ThvkO1kJHlxjrkxs+LWORaDQBEtiYJIR5IB9Bi1UyL4Rmr0BNigNkMzlKQmnofBHviqVzUxwdMb3NdCn69hy+pRYVKGVS/1tnsqv4LL7wCCPZZAZPT4aCShHjHJVNuXbmMrY5LeQaGnvAkXlVrJgKRAUdFjrWEah9XebPeQMj7KS7DIBAFt8ycgC5PLGUOHSE3ErGZCiViNLL5ZARfywnCoZaKQCu6NuFX42AEeKtKUGnr/Cm2Cy8tpFhBPMW5Fxi4Qm4TkDWh4IWFDClhU2hRWosUWqcKLlgyXB+lSHaWaHiWlBAR8SeSgSPCQxdVQgzUixWKSTrIQEbU94viDctkvX+VSjJuUmV8L4CXShI11esnp0pjWNZIyxKHS4wVQ2ime1P4RnhvGw0aDN1OLAXGERsB7buFpFGGBAre4QEQR0HOIO5oYH305G+KspT/FupEGGafCCwxSe6ZUa+073rXHnNdVXE6eWvibUS27XtRzkH838mYLMBmYysZTM0EM3A1fbpCBYFccN1B/EnCYu/TgCGmr7bMh8GfYL+BfcLvB0gRagC09w9elfldaIy/hNCBLRgBgtCC7jAF63wLSMAfbfAlEggYU0bUA7ACCJmTDpEmJtI78w4/BO7dN7JR7J7ZvbYaUbaILSQsRBiF3HGk5fEg6p9unwLvn98r+vnsV+372uf1xBLq4qU/45fTuqaAP+pssmCCCTF0mhEow8ZXZOS8D7Q85JsxZ+Azok7B7O/f6J8AzYBySZQB/QHYUSA+EeQhEWiS6AIQzgcsDiER4MjgMBAWDV4AgQ3g1eBgIdweCQmCjJEMkJ+PKRWyFHHmg1Wi/6xzUgA0LREoKJChwnQa9B+5RQZRB3IlBlkAnxyQNaANwHMowzlYSMCBgnbpzvqpl0iTJNCQidDI9ZrSYNIRBhHtUa5YHMHxyGEik9hDE0AKj72AbTCaxtHPUaKZdAZSnQTyjGqGLsmBStCejApUhg4uBMU6mATujEl+KdDPbI6Ag4vLr+hjY6lbjBeoLKnZl0UZgRX8gTySOeynZVz1wOq7e1hFGYIq+MhrGxDLak0PrwYzSXtcuyhXEhwOYofiW+EcI/jw8P6IY6ed+etAbuqKp5QIapT77LnAe505lMuqL79a0ut4rWexzFttsOsLDy7zvtQzcq3U1qabe7tB0wHWVXji+zDbo8x8HyIRUbXnwUcklFv51fvTymiV+MXLSmGH9d9+aXpD5X6lao41anWGig7IwIdnoBY2ht/pO9mClLo4NdXHAsefqWUKlXJkbqPOFhMoR4aiA1BXqhRNbB2Xwi+7u/jpAoOpKJ0UX24EsrzMfHXViakCNcKjBxuQX8BO0ZqjJ3xXzf+61t2VXOSgJ8xu65QKgtN6FibPmPYsXbJRHHqbgATcSZxBqGiDiU4NNNsYBsKD0MIP/OfKnlk/Lkaid/O2NbKeuQrwOB2Gq3YHyr6ALgzym5wIBnsdC1ZkoBFZSQXChZvlesPqvK2c5oHHT3Q65jYpNxnQcGF0EHbvYqoFw60WNlXIHQF2HQB7zD6lWjZ9rVqUKBXUT6hrkZOle0RFYII0V5ZYGl1JAP0Ud1fZZMvSomBzJ710j4Me8mjQDwEre5Uv2wQfk1ifDwb5ksuJQQ3xt423lbuQjvoIQByQrNDh1JxGFkOdlJvu/gFtuW0wR4cgd+ZKesSV7QkNE2kw6AV4hoIuC02LGmTomyf8PiO6CZzOTLTPQ+HW06H+tx+bQ8LmDYg1pTFrp2oJXgkZTyeRJZM0C8aE2LpFrNVDuhARsN543/FV6klQ6Tv1OoZGXLv0igKrl/CmJxRmX7JJbJ998VSIPQRyDBICzl4JJlYHbdql30NvYcOuZ7a10uWRrgoieOdgIm4rlq6vNOQBuqESLbXG5lzdJGHw2m0sDYmODXbYGTfSTGRKpssTO95fothJCjUGQgEL4yKoGAF/0SrpUDNn8CBgBcSDQByAeNkCXp4S4Ro2Xh4OeaGRgR66PVOsU8bc6TR5/xTcn4IVMLOkXSWiXxkZQCbvKfmoAvQaKjO3EDKwkwqHChCDEM5loQRPd5ACBki1TjF772oaQhQbQ5C0lcWXPFOzrfsDGUXGrpxasbG4iab6eByaQkQfm0VFlP0ZsDkvvqCL6QXMUwCjdMx1ZOyKhTJ7a1GWAdOUcJ8RSejxNVyGs31OKMyRyBVoZFjqIkmKlLQ5eHMeEL4MkUf23cQ/1SgRCJ1dk4UdBT7OoyuNgLs0oCd8RnrEIb6QdMxT2QjD4zMrJkfgx5aDMcA4orsTtKCqWb/Veyceqa5OGSmB28YwH4rFbkQaLoUN8OQQYnD3w2eXpI4ScQfbCUZiJ4yMOIKLyyTc7BQ4uXUw6Ee6/xM+4Y67ngNBknxIPwuppgIhFcwJyr6EIj+LzNj/mfR2vhhRlx0BILZoAYruF0caWQ7YxO66UmeguDREAFHYuC7HJviRgVO6ruJH59h/C/PkgSle8xNzZJULLWq9JMDTE2fjGE146a1Us6PZDGYle6ldWRqn/pdpgHKNGrGIdkRK+KPETT9nKT6kLyDI8xd9A1FgWmXWRAIHwZ37WyZHOVyCadJEmMVz0MadMjDrPho+EIochkVC2xgGiwwsQ6DMv2P7UXqT4x7CdcYGId2BJQQa85EQKmCmwcRejQ9Bm4oATENFPkxPXILHpMPUyWTI5rjNOsIlmEeMbcOCEqInpXACYQ9DDxmFo9vcmsDblcMtg4tqBerNngkIKaFJmrQAPnq1dEzsMXcwjcHdfdCibcAxxA+q/j9m3LM/O7WJka4tSidVCjsvo2lQ/2ewyoYyXwAYyr2PlRoR5MpgVmSUIrM3PQxXPbgjBOaDQFIyFMJvx3Pc5RSYj12ySVF9fwFPQu2e2KWVoL9q3Ayv3IzpGHUdvdPdrNUdicjsTQ2ISy7QU3DrEytIjvbzJnAkmANXjAFERA0MUoPF3/5KFmW14bBNOhwircYgMqoDpUMcDtCmBE82QM2YtdjVLB4kBuKho/bcwQdeboqfQartuU3CsCf+cXkgYAqp/0Ee3RorAZt0AvvOCSI4JICIlGlsV0bsSid/NIEALAAzb6HAgyWHBps6xAOwkJIGcB82CxRQq4sJf3FzA70A+TRqcqjEMETCoez3mkPcpnoALs0ugJY8kQwrC+JE5ik3w9rzrvDRjAQnqgEVvdGrNwlanR0SOKWzxOJOvLJhcd8Cl4AshACUkv9czdMkJCVQSQhp6kp7StAlpVRpK0t0SW6LHeBJnE2QchB5Ccu8kxRghZXGIgZIiSj7gEKMJDClcnX6hgoqJMwiQDigIXg3ioFLCgDgjPtYHYpsF5EiA4kcnN18MZtOrY866dEQAb0FB34OGKHGZQjwW/WDHA60cYFaI/PjpzquUqdaYGcIq+mLez3WLFFCtNBN2QJcrlcoELgiPku5R5dSlJFaCEqEZle1AQzAKC+1SotMcBNyQUFuRHRF6OlimSBgjZeTBCwLyc6A+P/oFRchXTz5ADknYJHxzrJ5pGuIKRQISU6WyKTBBjD8WozmVYWIsto1AS5rxzKlvJu4E/vwOiKxRtCWsDM+eTHUrmwrCK5BIfMzGkD+0Fk5LzBs0jMYXktNDblB06LMNJ09U8pzSLmo14MS0OMjcdrZ31pyQqxJJpRImlSvfYAK8inkYU52QY2FPEVsjoWewpwhRp5yAuNpkqhdb7ku9Seefl2D0B8SMTFD90xi4CSOwwZy9IKkpMtI3FmFUg3/kFutpQGNc3pCR7gvC4sgwbupDu3DyEN+W6YGLNM21jpB49irxy9BSlHrVDlnihGKHwPrbVFtc+h1rVQKZduxIyojccZIIcOCmhEnC7UkY68WXKQgLi2JCDQkQWJRQuk60hZp0D3rtCTINSeY9Ej2kIKYfGxwOs4j9qMM7fYZiipzgcf7TamnehqdhsiMiCawXnz4xAbyCkLAx5EGbo3Ax1u3dUIKnTxIaxwQTHehPl3V491H0+bC5zgpGz7Io+mjdhKlPJ01EeMpM7UsRJMi1nGjmJg35i6bQBAAxjO/ENJubU2mg3ONySEoWklCwdABETcs7ck3jgiuU9pcKKpbgn+3YlzV1FzIkB6pmEDOSSyDfPPlQskznctFji0kpgZjW5RZe6x9kYT4KJcXg0bNiCyif+pZACCyRMmYsfiKmN9tSO65F0R2OO6ytlEhY5Sj6uRKfFxw0ijJaAx/k3QgnAFSq27/2i4GEBA+UvTJKK/9eISNvG46Em5RZfjTYLdeD8kdXHyrwId/DQZUaMCY4gGbke2C8vfjgV/Y9kkRQOJIn/xM9INZSpiBnqX0Q9GlQPpPKAyO5y+W5NMPSRdBCUlmuxl40ZfMCnf2Cp044uI9WLFtCi4YVxKjuRCOBWIb4XbIsGdbo4qtMQnNOQz4XDSui7W/N6l54qOynCqD3DpWQ+mpD7C40D8BZEWGJX3tlAaZBMj1yjvDYKwCJBa201u6nBKE5UE+7QSEhCwrXfbRZylAaAkplhBWX50dumrElePyNMRYUrC99UmcSSNgImhFhDI4BXjMtiqkgizUGCrZ8iwFxU6fQ8GEHCFdLewwxYWxgScAYMdMLmcZR6b7rZl95eQVDGVoUKcRMM1ixXQtXNkBETZkVVPg8LoSrdetHzkuM7DjZRHP02tCxA1fmkXKF3VzfN1pc1cv/8lbTIkkYpqKM9VOhp65ktYk+Q46myFWBapDfyWUCnsnI00QTBQmuFjMZTcd0V2NQ768Fhpby04k2IzNR1wKabuGJqYWwSly6ocMFGTeeI+ejsWDYgEvr66QgqdcIbFYDNgsm0x9UHY6SCd5+7tpsLpKdvhahIDyYmEJQCqMqtCF6UlrE5GXRmbu+vtm3BFSxI6ND6UxIE7GsGMgWqghXxSnaRJuGFveTcK5ZVSPJyjUxe1dKgI6kNF7EZhIZs8y8FVqwEfbM0Xk2ltORVDKZZM40SD3qQoQe0orJEKwPfZwm3YPqwixhUMOndis6MhbmfvLBKjC8sKKIZKbJk8L11oNkCQzCgvjhyyEiQSuJcgCQSG4Mocfgc0Hkwcjal1UNgP0CBPikYqBIk9tONv4kLtBswH07vUCjEaHiFGlLf8MgXKzSgjp2HolRRccAOh0ILHz9qlGgIFkwAnzHJRjWFhlA7ROwINyB5HFj59PRZHFor6voq7l23EPNRwdWhgawqbivLSjRA4htEYUFkjESu67icTg5S0aW1sOkCiIysfJ9UnIWevOOLGpepcBxy1wEhd2WI3AZg7sr9WBmHWyasxMcvY/iOmsLtHSWNUWEGk9hScMPShasUA1AcHOtRZlqMeQ0OzYS9vQvYUjOLrzP07BUAFikcJNMi7gIxEw4pL1G54TcmmmoAQ5s7TGWErJZ2Io4yQ0ljRYhL8H5e62oDtLF8aDpnIvZ5R3GWJyAugdiiJW9hQAVTsnCBHhwu7rkBlBX6r3b7ejEY0k5GGeyKv66v+6dg7mcJTrWHbtMywbedYqCQ0FPwoytmSWsL8WTtChZCKKzEF7vP6De4x2BJkkniMgSdWhbeBSLtJZR9CTHetK1xb34AYIJ37OegYIoPVbXgJ/qDQK+bfCtxQRVKQu77WzOoM6SGL7MaZwCGJVk46aImai9fmam+WpHG+0BtQPWUgZ7RIAlPq6lkECUhZQ2gqWkMYKcYMYaIc4gYCDFHYa2d1nzp3+J1eCBay8IYZ0wQRKGAqvCuZ/UgbQPyllosq+XtfKIZOzmeJqRazpmmoP/76YfkjzV2NlXTDSBYB04SVlNQsFTbGPk1t/I4Jktu0XSgifO2ozFOiwd/0SssJDn0dn4xqk4GDTTKX73/wQyBLdqgJ+Wx6AQaba3BA9CKEzjtQYIfAsiYamapq80LAamYjinlKXUkxdpIDk0puXUEYzSalfRibAeDAKpNiqQ0FTwoxuGYzRnisyTotdVTclis1LHRQCy/qqL8oUaQzWRxilq5Mi0IJGtMY02cGLD69vGjkj3p6pGePKI8bkBv5evq8SjjyU04vJR2cQXQwSJyoinDsUJHCQ50jrFTT7yRdbdYQMB3MYCb6uBzJ9ewhXYPAIZSXfeEQBZZ3GPN3Nbhh/wkvAJLXnQMdi5NYYZ5GHE400GS5rXkOZSQsdZgIbzRnF9ueLnsfQ47wHAsirITnTlkCcuWWIUhJSbpM3wWhXNHvt2xUsKKMpdBSbJnBMcihkoDqAd1Zml/R4yrzow1Q2A5G+kzo/RhRxQS2lCSDRV8LlYLBOOoo1bF4jwJAwKMK1tWLHlu9i0j4Ig8qVm6wE1DxXwAwQwsaBWUg2pOOol2dHxyt6npwJEdLDDVYyRc2D0HbcbLUJQj8gPevQBUBOUHXPrsAPBERICpnYESeu2OHotpXQxRGlCCtLdIsu23MhZVEoJg8Qumj/UMMc34IBqTKLDTp76WzL/dMjCxK7MjhiGjeYAC/kj/jY/Rde7hpSM1xChrog6yZ7OWTuD56xBJnGFE+pT2ElSyCnJcwVzCjkqeNLfMEJqKW0G7OFIp0G+9mh50I9o8k1tpCY0xYqFNIALgIfc2me4n1bmJnRZ89oepgLPT0NTMLNZsvSCZAc3TXaNB07vail36/dBySis4m9/DR8izaLJW6bWCkVgm5T+ius3ZXq4xI+GnbveLbdRwF2mNtsrE0JjYc1AXknCOrLSu7Te/r4dPYMCl5qtiHNTn+TPbh1jCBHH+dMJNhwNgs3nT+OhQoQ0vYif56BMG6WowAcHR3DjQolxLzyVekHj00PBAaW7IIAF1EF+uRIWyXjQMAs2chdpaKPNaB+kSezYt0+CA04sOg5vx8Fr7Ofa9sUv87h7SLAUFSzbetCCZ9pmyLt6l6/TzoA1/ZBG9bIUVHLAbi/kdBFgYGyGwRQGBpkqCEg2ah9UD6EedEcEL3j4y0BQQCiExEnocA3SZboh+epgd3YsOkHskZwPuQ5OoyA0fTA5AXrHcUOQF+zkJHIA7PwCDk1gGVmGUZSSoPhNf+Tklauz98QofOlCIQ/tCD4dosHYPqtPCXB3agggQQIqQJsSkB+qn0rkQ1toJjON/OtCIB9RYv3PqRA4C4U68ZMlZn6BdgEvi2ziU+TQ6NIw3ej+AtDwMGEZk7e2IjxUWKdAxyaw9OCwSmeADTPPleyk6UhGDNXQb++W6Uk4q6F7/rg6WVTo82IoCxSIsFDrav4EPHphD3u4hR53WKVvYZUwNCCeM4PMBWzK+EfIthZOkuAwPo5C5jgoZgn6dUdvx5rIDmd58cXXdKNfw3l+wM2UjgrDJeQHhbD7HW2QDoZMCujgIUkk5Fg8VCsdyjOtnGRx8wgKRPZN5dR0zPUyfGZFVihbFRniXZFOZGKPnEQzU3AnD1KfR6weHW2XS6KbPJxUkOTZsAB9vTVp3Le1F8q5l+DMcLiIq78jxAImD2pGFw0VHfRatScGlK6SMu8leTmhUSMy8Uhdd6xBiH3Gdman4tjQGLboJfqz6fL2WKHTmrfsKZRYX6BTDjDldKMosaSTLdQS7oDisJNqAUhw1PfTlnacCO8vl8706Km1FROgLDmudzxg+EWTiArtHgLsRrAXYWdB0NmToNCJdKm0KWycZQqb+Mw76Qy29iQ5up/X7oyw8QZ75kP5F6iJAJz6KCmqxz8fEa/xnsMYcIO/vEkGRuMckhr4rIeLrKaXnmIzlNLxbFspOphkcnJdnz/Chp/Vlpj2P7jJQmQRwGnltkTV5dbF9fE3/fxoSqTROgq9wFUlbuYzYcasE0ouzBo+dDCDzxKAfhbAZYxQiHrLzV2iVexnDX/QnT1fsT/xuhu1ui5qIytgbGmRoQkeQooO8eJNNZsf0iALur8QxZFH0nCMnjerYQqG1pIfjyVZWxhVRznmmfLG00BcBWJE6hzQWRyFknuJnXuk8A5FRDCulwrWASSNoBtR+CtGdkPwYN2o7DOw/VGlCZPusRBFXODQdUM5zeHDIVuAJBLqbO/f9Qua+pDqEPk230Sob9lEZ8BHiCorjVghuI0lI4JDgHGRDD/prQ84B1pVGkIpVUAHCG+iz3Bn3qm2AVrYcYWhock4jso5+J7HfHVj4WMIQdGctq3psBCVVzupQOEioBGA2Bk+UILT7+VoX5mdxxA5fS42gISQVi/HTzrgMxu0fY6hE1ocUwwbsbWcezrY2n6S8/6cxXkOH4prpmPuFoikTzY7T85C4T2XYlbxLglSv2uLCgFv8Quk/wdesUdWPeHYIH0R729JIisN9Apdd4eB10aqwXrPt+Su9mA8k8n1sjMwnfsfF2j3jMUzXepSHmZ/BfqXvzgUNQQWOXO8YEuFBh4QTYCkOAPxywpYu1VxiDyJmKVcmJPGWk/gc3Pov02StyYDahwmzw3E1gYC9wkupyWfDqDSUMpCTH5e5N8B//lHiMuIkTNw4USHrJU67bjXGqNav6PBuQSoqTxc8avHoGmvqNtXzIaoyMIQIiiUHIM64cXieouplhNYln7qgc4wBVAYR104kO+CvKqsg4yIUlFNThVUAKZxZt1XA34h3TCUUiXVkZ0w8Hh2R0Z5L0b4LZvPd/p1gi/07h8qfwHrByuSxglc9cI4QIg2oqvC/qm0i7tjPLTgDhoWTAKDO2ONW5oe+/eKB9vZB8K6C25yCZ9RFVMnb6NRdRjyVK57CHHSkJBfnM2/j4ODUwRkqrtBBCrDsDpt8jhZdXoy/1BCqw3sSGhgGGy0a5Jw6BP/TExoCmNFYjZl248A0osgPyGEmRA+fAsqPVaNAfytu0vuQJ7rk3J4kTDTR2AlCHJ5cls26opZM4w3jMULh2YXKpcqGBtuleAlOZnaZGbD6DHzMd6i2oFeJ8z9XYmalg1Szd/ocZDc1C7Y6vcALJz2lYnTXiWEr2wawtoR4g3jvWUU2Ngjd1cewtFzEvM1NiHZPeLlIXFbBPawxNgMwwAlyNSuGF3zizVeOoC9bag1qRAQKQE/EZBWC2J8mnXAN2aTBboZ7HewnObE8CwROudZHmUM5oZ/Ugd/JZQK8lvAm43uDRAbyW8gZ+ZGq0EVerVGUKUSm/Idn8AQHdR4m7bue88WBwft9mSCeMOt1ncBwziOmJYI2ZR7ewNMPiCugmSsE4EyQ+QATJG6qORMGd4snEzc6B4shPIo4G1T7PgSm8PY5eUkPdF8JZ0VBtadbHXoJgnEhZQaODPj2gpODKJY5Yp4DOsLBFxWbvXN755KWylJm+oOd4zEL9Hpubuy2gyyfxh8oEfFutnYWdfB8PdESLWYvSqbElP9qo3u6KTmkhoacDauMNNjj0oy40DFV7Ql0aZj77xfGl7TJNHnIwgqOkenruYYNo6h724+zUQ7+vkCpZB+pGA562hYQiDxHVWOq0oDQl/QsoiY+cuI7iWq/ZIBtHcXJ7kks+h2fCNUPA82BzjnqktNts+RLdk1VSu+tqEn7QZCCsvEqk6FkfiOYkrsw092J8jsfIuEKypNjLxrKA9kiA19mxBD2suxQKCzwXGws7kEJvlhUiV9tArLIdZW0IORcxEzdzKmjtFhsjKy/44XYXdI5noQoRcvjZ1RMPACRqYg2V1+OwOepcOknRLLFdYgTkT5UApt/JhLM3jeFYprZV+Zow2g8fP+U68hkKFWJj2yBbKqsrp25xkZX1DAjUw52IMYWaOhab8Kp05VrdNftqwRrymWF4OQSjbdfzmRZirK8FMJELEgER2PHjEAN9pGfLhCUiTJFbd5LBkOBMaxLr/A1SY9dXFz4RjzoU9ExfJCmx/I9FKEGT3n2cmzl2X42L3Jh+AbQq6sA+Ss1kitoa4TAYgKHaoybHUDJ51oETdeI/9ThSmjWGkyLi5QAGWhL0BG1UsTyRGRJOldKBrYJeB8ljLJHfATWTEQBXBDnQexOHTB+Un44zExFE4vLytcu5NwpWrUxO/0ZICUGM7hGABXym0V6ZvDST0E370St9MIWQOTWngeoQHUTdCJUP04spMBMS8LSker9cReVQkULFDIZDFPrhTzBl6sed9wcZQTbL+BDqMyaN3RJPh/anbx+Iv+qgQdAa3M9Z5JmvYlh4qop+Ho1F1W5gbOE9YKLgAnWytXElU4G8GtW47lhgFE6gaSs+gs37sFvi0PPVvA5dnCBgILTwoKd/+DoL9F6inlM7H4rOTzD79KJgKlZO/Zgt22UsKhrAaXU5ZcLrAglTVKJEmNJvORGN1vqrcfSMizfpsgbIe9zno+gBoKVXgIL/VI8dB1O5o/R3Suez/gD7M781ShjKpIIORM/nxG+jjhhgPwsn2IoXsPGPqYHXA63zJ07M2GPEykQwJBYLK808qYxuIew4frk52nhCsnCYmXiR6CuapvE1IwRB4/QftDbEn+AucIr1oxrLabRj9q4ae0+fXkHnteAJwXRbVkR0mctVSwEbqhJiMSZUp9DNbEDMmjX22m3ABpkrPQQTP3S1sib5pD2VRKRd+eNAjLYyT0hGrdjWJZy24OYXRoWQAIhGBZRxuBFMjjZQhpgrWo8SiFYbojcHO8V5DyscJpLTHyx9Fimassyo5U6WNtquUMYgccaHY5amgR3PQzq3ToNM5ABnoB9kuxsebqmYZm0R9qxJbFXCQ1UPyFIbxoUraTJFDpCk0Wk9GaYJKz/6oHwEP0Q14lMtlddQsOAU9zlYdMVHiT7RQP3XCmWYDcHCGbVRHGnHuwzScA0BaSBOGkz3lM8CArjrBsyEoV6Ys4qgDK3ykQQPZ3hCRGNXQTNNXbEb6tDiTDLKOyMzRhCFT+mAUmiYbV3YQVqFVp9dorv+TsLeCykS2b5yyu8AV7IS9cxcL8z4Kfwp+xJyYLv1OsxQCZwTB4a8BZ/5EdxTBJthApqyfd9u3ifr/WILTqq5VqgwMT9SOxbSGWLQJUUWCVi4k9tho9nEsbUh7U6NUsLmkYFXOhZ0kmamaJLRNJzSj/qn4Mso6zb6iLLBXoaZ6AqeWCjHQm2lztnejYYM2eubnpBdKVLORZhudH3JF1waBJKA9+W8EhMj3Kzf0L4vi4k6RoHh3Z5YgmSZmk6ns4fjScjAoL8GoOECgqgYEBYUGFVO4FUv4/YtowhEmTs0vrvlD/CrisnoBNDAcUi/teY7OctFlmARQzjOItrrlKuPO6E2Ox93L4O/4DcgV/dZ7qR3VBwVQxP1GCieA4RIpweYJ5FoYrHxqRBdJjnqbsikA2Ictbb8vE1GYIo9dacK0REgDX4smy6GAkxlH1yCGGsk+tgiDhNKuKu3yNrMdxafmKTF632F8Vx4BNK57GvlFisrkjN9WDAtjsWA0ENT2e2nETUb/n7qwhvGnrHuf5bX6Vh/n3xffU3PeHdR+FA92i6ufT3AlyAREoNDh6chiMWTvjKjHDeRhOa9YkOQRq1vQXEMppAQVwHCuIcV2g5rBn6GmZZpTR7vnSD6ZmhdSl176gqKTXu5E+YbfL0adwNtHP7dT7t7b46DVZIkzaRJOM+S6KcrzYVg+T3wSRFRQashjfU18NutrKa/7PXbtuJvpIjbgPeqd+pjmRw6YKpnANFSQcpzTZgpSNJ6J7uiagAbir/8tNXJ/OsOnRh6iuIexxrmkIneAgz8QoLmiaJ8sLQrELVK2yn3wOHp57BAZJhDZjTBzyoRAuuZ4eoxHruY1pSb7qq79cIeAdOwin4GdgMeIMHeG+FZWYaiUQQyC5b50zKjYw97dFjAeY2I4Bnl105Iku1y0lMA1ZHolLx19uZnRdILcXKlZGQx/GdEqSsMRU1BIrFqRcV1qQOOHyxOLXEGcbRtAEsuAC2V4K3p5mFJ22IDWaEkk9ttf5Izb2LkD1MnrSwztXmmD/Qi/EmVEFBfiKGmftsPwVaIoZanlKndMZsIBOskFYpDOq3QUs9aSbAAtL5Dbokus2G4/asthNMK5UQKCOhU97oaOYNGsTah+jfCKsZnTRn5TbhFX8ghg8CBYt/BjeYYYUrtUZ5jVij/op7V5SsbA4mYTOwZ46hqdpbB6Qvq3AS2HHNkC15pTDIcDNGsMPXaBidXYPHc6PJAkRh29Vx8KcgX46LoUQBhRM+3SW6Opll/wgxxsPgKJKzr5QCmwkUxNbeg6Wj34SUnEzOemSuvS2OetRCO8Tyy+QbSKVJcqkia+GvDefFwMOmgnD7h81TUtMn+mRpyJJ349HhAnoWFTejhpYTL9G8N2nVg1qkXBeoS9Nw2fB27t7trm7d/QK7Cr4uoCeOQ7/8JfKT77KiDzLImESHw/0wf73QeHu74hxv7uihi4fTX+XEwAyQG3264dwv17aJ5N335Vt9sdrAXhPOAv8JFvzqyYXwfx8WYJaef1gMl98JRFyl5Mv5Uo/oVH5ww5OzLFsiTPDns7fS6EURSSWd/92BxMYQ8sBaH+j+wthQPdVgDGpTfi+JQIWMD8xKqULliRH01rTeyF8x8q/GBEEEBrAJMPf25UQwi0b8tmqRXY7kIvNkzrkvRWLnxoGYEJsz8u4oOyMp8cHyaybb1HdMCaLApUE+/7xLIZGP6H9xuSEXp1zLIdjk5nBaMuV/yTDRRP8Y2ww5RO6d2D94o+6ucWIqUAvgHIHXhZsmDhjVLczmZ3ca0Cb3PpKwt2UtHVQ0BgFJsqqTsnzZPlKahRUkEu4qmkJt+kqdae76ViWe3STan69yaF9+fESD2lcQshLHWVu4ovItXxO69bqC5p1nZLvI8NdQB9s9UNaJGlQ5mG947ipdDA0eTIw/A1zEdjWquIsQXXGIVEH0thC5M+W9pZe7IhAVnPJkYCCXN5a32HjN6nsvokEqRS44tGIs7s2LVTvcrHAF+RVmI8L4HUYk4x+67AxSMJKqCg8zrGOgvK9kNMdDrNiUtSWuHFpC8/p5qIQrEo/H+1l/0cAwQ2nKmpWxKcMIuHY44Y6DlkpO48tRuUGBWT0FyHwSKO72Ud+tJUfdaZ4CWNijzZtlRa8+CkmO/EwHYfPZFU/hzjFWH7vnzHRMo+aF9u8qHSAiEkA2HjoNQPEwHsDKOt6hOoK3Ce/+/9boMWDa44I6FrQhdgS7OnNaSzwxWKZMcyHi6LN4WC6sSj0qm2PSOGBTvDs/GWJS6SwEN/ULwpb4LQo9fYjUfSXRwZkynUazlSpvX9e+G2zor8l+YaMxSEomDdLHGcD6YVQPegTaA74H8+V4WvJkFUrjMLGLlvSZQWvi8/QA7yzQ8GPno//5SJHRP/OqKObPCo81s/+6WgLqykYpGAgQZhVDEBPXWgU/WzFZjKUhSFInufPRiMAUULC6T11yL45ZrRoB4DzOyJShKXaAJIBS9wzLYIoCEcJKQW8GVCx4fihqJ6mshBUXSw3wWVj3grrHQlGNGhIDNNzsxQ3M+GWn6ASobIWC+LbYOC6UpahVO13Zs2zOzZC8z7FmA05JhUGyBsF4tsG0drcggIFzgg/kpf3+CnAXKiMgIE8Jk/Mhpkc8DUJEUzDSnWlQFme3d0sHZDrg7LavtsEX3cHwjCYA17pMTfx8Ajw9hHscN67hyo+RJQ4458RmPywXykkVcW688oVUrQhahpPRvTWPnuI0B+SkQu7dCyvLRyFYlC1LG1gRCIvn3rwQeINzZQC2KXq31FaR9UmVV2QeGVqBHjmE+VMd3b1fhCynD0pQNhCG6/WCDbKPyE7NRQzL3BzQAJ0g09aUzcQA6mUp9iZFK6Sbp/YbHjo++7/Wj8S4YNa+ZdqAw1hDrKWFXv9+zaXpf8ZTDSbiqsxnwN/CzK5tPkOr4tRh2kY3Bn9JtalbIOI4b3F7F1vPQMfoDcdxMS8CW9m/NCW/HILTUVWQIPiD0j1A6bo8vsv6P1hCESl2abrSJWDrq5sSzUpwoxaCU9FtJyYH4QFMxDBpkkBR6kn0LMPO+5EJ7Z6bCiRoPedRZ/P0SSdii7ZnPAtVwwHUidcdyspwncz5uq6vvm4IEDbJVLUFCn/LvIHfooUBTkFO130FC7CmmcrKdgDJcid9mvVzsDSibOoXtIf9k6ABle3PmIxejodc4aob0QKS432srrCMndbfD454q52V01G4q913mC5HOsTzWF4h2No1av1VbcUgWAqyoZl+11PoFYnNv2HwAODeNRkHj+8SF1fcvVBu6MrehHAZK1Gm69ICcTKizykHgGFx7QdowTVAsYEF2tVc0Z6wLryz2FI1sc5By2znJAAmINndoJiB4sfPdPrTC8RnkW7KRCwxC6YvXg5ahMlQuMpoCSXjOlBy0Kij+bsCYPbGp8BdCBiLmLSAkEQRaieWo1SYvZIKJGj9Ur/eWHjiB7SOVdqMAVmpBvfRiebsFjger7DC+8kRFGtNrTrnnGD2GAJb8rQCWkUPYHhwXsjNBSkE6lGWUj5QNhK0DMNM2l+kXRZ0KLZaGsFSIdQz/HXDxf3/TE30+DgBKWGWdxElyLccJfEpjsnszECNoDGZpdwdRgCixeg9L4EPhH+RptvRMVRaahu4cySjS3P5wxAUCPkmn+rhyASpmiTaiDeggaIxYBmtLZDDhiWIJaBgzfCsAGUF1Q1SFZYyXDt9skCaxJsxK2Ms65dmdp5WAZyxik/zbrTQk5KmgxCg/f45L0jywebOWUYFJQAJia7XzCV0x89rpp/f3AVWhSPyTanqmik2SkD8A3Ml4NhIGLAjBXtPShwKYfi2eXtrDuKLk4QlSyTw1ftXgwqA2jUuopDl+5tfUWZNwBpEPXghzbBggYCw/dhy0ntds2yeHCDKkF/YxQjNIL/F/37jLPHCKBO9ibwYCmuxImIo0ijV2Wbg3kSN2psoe8IsABv3RNFaF9uMyCtCYtqcD+qNOhwMlfARQUdJ2tUX+MNJqOwIciWalZsmEjt07tfa8ma4cji9sqz+Q9hWfmMoKEbIHPOQORbhQRHIsrTYlnVTNvcq1imqmmPDdVDkJgRcTgB8Sb6epCQVmFZe+jGDiNJQLWnfx+drTKYjm0G8yH0ZAGMWzEJhUEQ4Maimgf/bkvo8PLVBsZl152y5S8+HRDfZIMCbYZ1WDp4yrdchOJw8k6R+/2pHmydK4NIK2PHdFPHtoLmHxRDwLFb7eB+M4zNZcB9NrAgjVyzLM7xyYSY13ykWfIEEd2n5/iYp3ZdrCf7fL+en+sIJu2W7E30MrAgZBD1rAAbZHPgeAMtKCg3NpSpYQUDWJu9bT3V7tOKv+NRiJc8JAKqqgCA/PNRBR7ChpiEulyQApMK1AyqcWnpSOmYh6yLiWkGJ2mklCSPIqN7UypWj3dGi5MvsHQ87MrB4VFgypJaFriaHivwcHIpmyi5LhNqtem4q0n8awM19Qk8BOS0EsqGscuuydYsIGsbT5GHnERUiMpKJl4ON7qjB4fEqlGN/hCky89232UQCiaeWpDYCJINXjT6xl4Gc7DxRCtgV0i1ma4RgWLsNtnEBRQFqZggCLiuyEydmFd7WlogpkCw5G1x4ft2psm3KAREwVwr1Gzl6RT7FDAqpVal34ewVm3VH4qn5mjGj+bYL1NgfLNeXDwtmYSpwzbruDKpTjOdgiIHDVQSb5/zBgSMbHLkxWWgghIh9QTFSDILixVwg0Eg1puooBiHAt7DzwJ7m8i8/i+jHvKf0QDnnHVkVTIqMvIQImOrzCJwhSR7qYB5gSwL6aWL9hERHCZc4G2+JrpgHNB8eCCmcIWIQ6rSdyPCyftXkDlErUkHafHRlkOIjxGbAktz75bnh50dU7YHk+Mz7wwstg6RFZb+TZuSOx1qqP5C66c0mptQmzIC2dlpte7vZrauAMm/7RfBYkGtXWGiaWTtwvAQiq2oD4YixPLXE2khB2FRaNRDTk+9sZ6K74Ia9VntCpN4BhJGJMT4Z5c5FhSepRCRWmBXqx+whVZC4me4saDs2iNqXMuCl6iAZflH8fscC1sTsy4PHeC+XYuqMBMUun5YezKbRKmEPwuK+CLzijPEQgfhahQswBBLfg/GBgBiI4QwAqzJkkyYAWtjzSg2ILgMAgqxYfwERRo3zruBL9WOryUArSD8sQOcD7fvIODJxKFS615KFPsb68USBEPPj1orNzFY2xoTtNBVTyzBhPbhFH0PI5AtlJBl2aSgNPYzxYLw7XTDBDinmVoENwiGzmngrMo8OmnRP0Z0i0Zrln9DDFcnmOoBZjABaQIbPOJYZGqX+RCMlDDbElcjaROLDoualmUIQ88Kekk3iM4OQrADcxi3rJguS4MOIBIgKgXrjd1WkbCdqxJk/4efRIFsavZA7KvvJQqp3Iid5Z0NFc5aiMRzGN3vrpBzaMy4JYde3wr96PjN90AYOIbyp6T4zj8LoE66OGcX1Ef4Z3KoWLAUF4BTg7ug/AbkG5UNQXAMkQezujSHeir2uTThgd3gpyzDrbnEdDRH2W7U6PeRvBX1ZFMP5RM+Zu6UUZZD8hDPHldVWntTCNk7To8IeOW9yn2wx0gmurwqC60AOde4r3ETi5pVMSDK8wxhoGAoEX9NLWHIR33VbrbMveii2jAJlrxwytTHbWNu8Y4N8vCCyZjAX/pcsfwXbLze2+D+u33OGBoJyAAL3jn3RuEcdp5If8O+a4NKWvxOTyDltG0IWoHhwVGe7dKkCWFT++tm+haBCikRUUMrMhYKZJKYoVuv/bsJzO8DwfVIInQq3g3BYypiz8baogH3r3GwqCwFtZnz4xMjAVOYnyOi5HWbFA8n0qz1OjSpHWFzpQOpvkNETZBGpxN8ybhtqV/DMUxd9uFZmBfKXMCn/SqkWJyKPnT6lq+4zBZni6fYRByJn6OK+OgPBGRAJluwGSk4wxjOOzyce/PKODwRlsgrVkdcsEiYrqYdXo0Er2GXi2GQZd0tNJT6c9pK1EEJG1zgDJBoTVuCXGAU8BKTvCO/cEQ1Wjk3Zzuy90JX4m3O5IlxVFhYkSUwuQB2up7jhvkm+bddRQu5F9s0XftGEJ9JSuSk+ZachCbdU45fEqbugzTIUokwoAKvpUQF/CvLbWW5BNQFqFkJg2f30E/48StNe5QwBg8zz3YAJ82FZoXBxXSv4QDooDo79NixyglO9AembuBcx5Re3CwOKTHebOPhkmFC7wNaWtoBhFuV4AkEuJ0J+1pT0tLkvFVZaNzfhs/Kd3+A9YsImlO4XK4vpCo/elHQi/9gkFg07xxnuXLt21unCIpDV+bbRxb7FC6nWYTsMFF8+1LUg4JFjVt3vqbuhHmDKbgQ4e+RGizRiO8ky05LQGMdL2IKLSNar0kNG7lHJMaXr5mLdG3nykgj6vB/KVijd1ARWkFEf3yiUw1v/WaQivVUpIDdSNrrKbjO5NPnxz6qTTGgYg03HgPhDrCFyYZTi3XQw3HXCva39mpLNFtz8AiEhxAJHpWX13gCTAwgm9YTvMeiqetdNQv6IU0hH0G+ZManTqDLPjyrOse7WiiwOJCG+J0pZYULhN8NILulmYYvmVcV2MjAfA39sGKqGdjpiPo86fecg65UPyXDIAOyOkCx5NQsLeD4gGVjTVDwOHWkbbBW0GeNjDkcSOn2Nq4cEssP54t9D749A7M1AIOBl0Fi0sSO5v3P7LCBrM6ZwFY6kp2FX6AcbGUdybnfChHPyu6WlRZ2Fwv9YM0RMI7kISRgR8HpQSJJOyTfXj/6gQKuihPtiUtlCQVPohUgzfezTg8o1b3n9pNZeco1QucaoXe40Fa5JYhqdTspFmxGtW9h5ezLFZs3j/N46f+S2rjYNC2JySXrnSAFhvAkz9a5L3pza8eYKHNoPrvBRESpxYPJdKVUxBE39nJ1chrAFpy4MMkf0qKgYALctGg1DQI1kIymyeS2AJNT4X240d3IFQb/0jQbaHJ2YRK8A+ls6WMhWmpCXYG5jqapGs5/eOJErxi2/2KWVHiPellTgh/fNl/2KYPKb7DUcAg+mCOPQFCiU9Mq/WLcU1xxC8aLePFZZlE+PCLzf7ey46INWRw2kcXySR9FDgByXzfxiNKwDFbUSMMhALPFSedyjEVM5442GZ4hTrsAEvZxIieSHGSgkwFh/nFNdrrFD4tBH4Il7fW6ur4J8Xaz7RW9jgtuPEXQsYk7gcMs2neu3zJwTyUerHKSh1iTBkj2YJh1SSOZL5pLuQbFFAvyO4k1Hxg2h99MTC6cTUkbONQIAnEfGsGkNFWRbuRyyaEZInM5pij73EA9rPIUfU4XoqQpHT9THZkW+oKFLvpyvTBMM69tN1Ydwv1LIEhHsC+ueVG+w+kyCPsvV3erRikcscHjZCkccx6VrBkBRusTDDd8847GA7p2Ucy0y0HdSRN6YIBciYa4vuXcAZbQAuSEmzw+H/AuOx+aH+tBL88H57D0MsqyiZxhOEQkF/8DR1d2hSPMj/sNOa5rxcUnBgH8ictv2J+cb4BA4v3MCShdZ2vtK30vAwkobnEWh7rsSyhmos3WC93Gn9C4nnAd/PjMMtQfyDNZsOPd6XcAsnBE/mRHtHEyJMzJfZFLE9OvQa0i9kUmToJ0ZxknTgdl/XPV8xoh0K7wNHHsnBdvFH3sv52lU7UFteseLG/VanIvcwycVA7+BE1Ulyb20BvwUWZcMTKhaCcmY3ROpvonVMV4N7yBXTL7IDtHzQ4CCcqF66LjF3xUqgErKzolLyCG6Kb7irP/MVTCCwGRxfrPGpMMGvPLgJ881PHMNMIO09T5ig7AzZTX/5PLlwnJLDAPfuHynSGhV4tPqR3gJ4kg4c06c/F1AcjGytKm2Yb5jwMotF7vro4YDLWlnMIpmPg36NgAZsGA0W1spfLSue4xxat0Gdwd0lqDBOgIaMANykwwDKejt5YaNtJYIkrSgu0KjIg0pznY0SCd1qlC6R19g97UrWDoYJGlrvCE05J/5wkjpkre727p5PTRX5FGrSBIfJqhJE/IS876PaHFkx9pGTH3oaY3jJRvLX9Iy3Edoar7cFvJqyUlOhAEiOSAyYgVEGkzHdug+oRHIEOXAExMiTSKU9A6nmRC8mp8iYhwWdP2U/5EkFAdPrZw03YA3gSyNUtMZeh7dDCu8pF5x0VORCTgKp07ehy7NZqKTpIC4UJJ89lnboyAfy5OyXzXtuDRbtAFjZRSyGFTpFrXwkpjSLIQIG3N0Vj4BtzK3wdlkBJrO18MNsgseR4BysJilI0wI6ZahLhBFA0XBmV8d4LUzEcNVb0xbLjLTETYN8OEVqNxkt10W614dd1FlFFVTIgB7/BQQp1sWlNolpIu4ekxUTBV7NmxOFKEBmmN+nA7pvF78/RII5ZHA09OAiE/66MF6HQ+qVEJCHxwymukkNvzqHEh52dULPbVasfQMgTDyBZzx4007YiKdBuUauQOt27Gmy8ISclPmEUCIcuLbkb1mzQSqIa3iE0PJh7UMYQbkpe+hXjTJKdldyt2mVPwywoODGJtBV1lJTgMsuSQBlDMwhEKIfrvsxGQjHPCEfNfMAY2oxvyKcKPUbQySkKG6tj9AQyEW3Q5rpaDJ5Sns9ScLKeizPRbvWYAw4bXkrZdmB7CQopCH8NAmqbuciZChHN8lVGaDbCnmddnqO1PQ4ieMYfcSiBE5zzMz+JV/4eyzrzTEShvqSGzgWimkNxLvUj86iAwcZuIkqdB0VaIB7wncLRmzHkiUQpPBIXbDDLHBlq7vp9xwuC9AiNkIptAYlG7Biyuk8ILdynuUM1cHWJgeB+K3wBP/ineogxkvBNNQ4AkW0hvpBOQGFfeptF2YTR75MexYDUy7Q/9uocGsx41O4IZhViw/2FvAEuGO5g2kyXBUijAggWM08bRhXg5ijgMwDJy40QeY/cQpUDZiIzmvskQpO5G1zyGZA8WByjIQU4jRoFJt56behxtHUUE/om7Rj2psYXGmq3llVOCgGYKNMo4pzwntITtapDqjvQtqpjaJwjHmDzSVGLxMt12gEXAdLi/caHSM3FPRGRf7dB7YC+cD2ho6oL2zGDCkjlf/DFoQVl8GS/56wur3rdV6ggtzZW60MRB3g+U1W8o8cvqIpMkctiGVMzXUFI7FacFLrgtdz4mTEr4aRAaQ2AFQaNeG7GX0yOJgMRYFziXdJf24kg/gBQIZMG/YcPEllRTVNoDYR6oSJ8wQNLuihfw81UpiKPm714bZX1KYjcXJdfclCUOOpvTxr9AAJevTY4HK/G7F3mUc3GOAKqh60zM0v34v+ELyhJZqhkaMA8UMMOU90f8RKEJFj7EqepBVwsRiLbwMo1J2zrE2UYJnsgIAscDmjPjnzI8a719Wxp757wqmSJBjXowhc46QN4RwKIxqEE6E5218OeK7RfcpGjWG1jD7qND+/GTk6M56Ig4yMsU6LUW1EWE+fIYycVV1thldSlbP6ltdC01y3KUfkobkt2q01YYMmxpKRvh1Z48uNKzP/IoRIZ/F6buOymSnW8gICitpJjKWBscSb9JJKaWkvEkqinAJ2kowKoqkqZftRqfRQlLtKoqvTRDi2vg/RrPD/d3a09J8JhGZlEkOM6znTsoMCsuvTmywxTCDhw5dd0GJOHCMPbsj3QLkTE3MInsZsimDQ3HkvthT7U9VA4s6G07sID0FW4SHJmRGwCl+Mu4xf0ezqeXD2PtPDnwMPo86sbwDV+9PWcgFcARUVYm3hrFQrHcgMElFGbSM2A1zUYA3baWfheJp2AINmTJLuoyYD/OwA4a6V0ChBN97E8YtDBerUECv0u0TlxR5yhJCXvJxgyM73Bb6pyq0jTFJDZ4p1Am1SA6sh8nADd1hAcGBMfq4d/UfwnmBqe0Jun1n1LzrgKuZMAnxA3NtCN7Klf4BH+14B7ibBmgt0TGUafVzI4uKlpF7v8NmgNjg90D6QE3tbx8AjSAC+OA1YJvclyPKgT27QpIEgVYpbPYGBsnyCNrGz9XUsCHkW1QAHgL2STZk12QGqmvAB0NFteERkvBIH7INDsNW9KKaAYyDMdBEMzJiWaJHZALqDxQDWRntumSDPcplyFiI1oDpT8wbwe01AHhW6+vAUUBoGhY3CT2tgwehdPqU/4Q7ZLYvhRl/ogOvR9O2+wkkPKW5vCTjD2fHRYXONCoIl4Jh1bZY0ZE1O94mMGn/dFSWBWzQ/VYk+Gezi46RgiDv3EshoTmMSlioUK6MQEN8qeyK6FRninyX8ZPeUWjjbMJChn0n/yJvrq5bh5UcCAcBYSafTFg7p0jDgrXo2QWLb3WpSOET/Hh4oSadBTvyDo10IufLzxiMLAnbZ1vcUmj3w7BQuIXjEZXifwukVxrGa9j+DXfpi12m1RbzYLg9J2wFergEwOxFyD0/JstNK06ZN2XdZSGWxcJODpQHOq4iKqjqkJUmPu1VczL5xTGUfCgLEYyNBCCbMBFT/cUP6pE/mujnHsSDeWxMbhrNilS5MyYR0nJyzanWXBeVcEQrRIhQeJA6Xt4f2eQESNeLwmC10WJVHqwx8SSyrtAAjpGjidcj1E2FYN0LObUcFQhafUKTiGmHWRHGsFCB+HEXgrzJEB5bp0QiF8ZHh11nFX8AboTD0PS4O1LqF8XBks2MpjsQnwKHF6HgaKCVLJtcr0XjqFMRGfKv8tmmykhLRzu+vqQ02+KpJBjaLt9ye1Ab+BbEBhy4EVdIJDrL2naV0o4wU8YZ2Lq04FG1mWCKC+UwkXOoAjneU/xHplMQo2cXUlrVNqJYczgYlaOEczVCs/OCgkyvLmTmdaBJc1iBLuKwmr6qtRnhowngsDxhzKFAi02tf8bmET8BO27ovJKF1plJwm3b0JpMh38+xsrXXg7U74QUM8ZCIMOpXujHntKdaRtsgyEZl5MClMVMMMZkZLNxH9+b8fH6+b8Lev30A9TuEVj9CqAdmwAAHBPbfOBFEATAPZ2CS0OH1Pj/0Q7PFUcC8hDrxESWdfgFRm+7vvWbkEppHB4T/1ApWnlTIqQwjcPl0VgS1yHSmD0OdsCVST8CQVwuiew1Y+g3QGFjNMzwRB2DSsAk26cmA8lp2wIU4p93AUBiUHFGOxOajAqD7Gm6NezNDjYzwLOaSXRBYcWipTSONHjUDXCY4mMI8XoVCR/Rrs/JLKXgEx+qkmeDlFOD1/yTQNDClRuiUyKYCllfMiQiyFkmuTz2vLsBNyRW+xz+5FElFxWB28VjYIGZ0Yd+5wIjkcoMaggxswbT0pCmckRAErbRlIlcOGdBo4djTNO8FAgQ+lT6vPS60BwTRSUAM3ddkEAZiwtEyArrkiDRnS7LJ+2hwbzd2YDQagSgACpsovmjil5wfPuXq3GuH0CyE7FK3M4FgRaFoIkaodORrPx1+JpI9psyNYIFuJogZa0/1AhOWdlHQxdAgbwacsHqPZo8u/ngAH2GmaTdhYnBfSDbBfh8CHq6Bx5bttP2+RdM+MAaYaZ0Y/ADkbNCZuAyAVQa2OcXOeICmDn9Q/eFkDeFQg5MgHEDXq/tVjj+jtd26nhaaolWxs1ixSUgOBwrDhRIGOLyOVk2/Bc0UxvseQCO2pQ2i+Krfhu/WeBovNb5dJxQtJRUDv2mCwYVpNl2efQM9xQHnK0JwLYt/U0Wf+phiA4uw8G91slC832pmOTCAoZXohg1fewCZqLBhkOUBofBWpMPsqg7XEXgPfAlDo2U5WXjtFdS87PIqClCK5nW6adCeXPkUiTGx0emOIDQqw1yFYGHEVx20xKjJVYe0O8iLmnQr3FA9nSIQilUKtJ4ZAdcTm7+ExseJauyqo30hs+1qSW211A1SFAOUgDlCGq7eTIcMAeyZkV1SQJ4j/e1Smbq4HcjqgFbLAGLyKxlMDMgZavK5NAYH19Olz3la/QCTiVelFnU6O/GCvykqS/wZJDhKN9gBtSOp/1SP5VRgJcoVj+kmf2wBgv4gjrgARBWiURYx8xENV3bEVUAAWWD3dYDKAIWk5opaCFCMR5ZjJExiCAw7gYiSZ2rkyTce4eNMY3lfGn+8p6+vBckGlKEXnA6Eota69OxDO9oOsJoy28BXOR0UoXNRaJD5ceKdlWMJlOFzDdZNpc05tkMGQtqeNF2lttZqNco1VtwXgRstLSQ6tSPChgqtGV5h2DcDReIQadaNRR6AsAYKL5gSFsCJMgfsaZ7DpKh8mg8Wz8V7H+gDnLuMxaWEIUPevIbClgap4dqmVWSrPgVYCzAoZHIa5z2Ocx1D/GvDOEqMOKLrMefWIbSWHZ6jbgA8qVBhYNHpx0P+jAgN5TB3haSifDcApp6yymEi6Ij/GsEpDYUgcHATJUYDUAmC1SCkJ4cuZXSAP2DEpQsGUjQmKJfJOvlC2x/pChkOyLW7KEoMYc5FDC4v2FGqSoRWiLsbPCiyg1U5yiHZVm1XLkHMMZL11/yxyw0UnGig3MFdZklN5FI/qiT65T+jOXOdO7XbgWurOAZR6Cv9uu1cm5LjkXX4xi6mWn5r5NjBS0gTliHhMZI2WNqSiSphEtiCAwnafS11JhseDGHYQ5+bqWiAYiAv6Jsf79/VUs4cIl+n6+WOjcgB/2l5TreoAV2717JzZbQIR0W1cl/dEqCy5kJ3ZSIHuU0vBoHooEpiHeQWVkkkOqRX27eD1FWw4BfO9CJDdKoSogQi3hAAwsPRFrN5RbX7bqLdBJ9JYMohWrgJKHSjVl1sy2xAG0E3sNyO0oCbSGOxCNBRRXTXenYKuwAoDLfnDcQaCwehUOIDiHAu5m5hMpKeKM4sIo3vxACakIxKoH2YWF2QM84e6F5C5hJU4g8uxuFOlAYnqtwxmHyNEawLW/PhoawJDrGAP0JYWHgAVUByo/bGdiv2T2EMg8gsS14/rAdzlOYazFE7w4OzxeKiWdm3nSOnQRRKXSlVo8HEAbBfyJMKqoq+SCcTSx5NDtbFwNlh8VhjGGDu7JG5/TAGAvniQSSUog0pNzTim8Owc6QTuSKSTXlQqwV3eiEnklS3LeSXYPXGK2VgeZBqNcHG6tZHvA3vTINhV0ELuQdp3t1y9+ogD8Kk/W7QoRN1UWPqM4+xdygkFDPLoTaumKReKiLWoPHOfY54m3qPx4c+4pgY3MRKKbljG8w4wvz8pxk3AqKsy4GMAkAtmRjRMsCxbb4Q2Ds0Ia9ci8cMT6DmsJG00XaHCIS+o3F8YVVeikw13w+OEDaCYYhC0ZE54kA4jpjruBr5STWeqQG6M74HHL6TZ3lXrd99ZX++7LhNatQaZosuxEf5yRA15S9gPeHskBIq3Gcw81AGb9/O53DYi/5CsQ51EmEh8Rkg4vOciClpy4d04eYsfr6fyQkBmtD+P8sNh6e+XYHJXT/lkXxT4KXU5F2sGxYyzfniMMQkb9OjDN2C8tRRgTyL7GwozH14PrEUZc6oz05Emne3Ts5EG7WolDmU8OB1LDG3VrpQxp+pT0KYV5dGtknU64JhabdqcVQbGZiAxQAnvN1u70y1AnmvOSPgLI6uB4AuDGhmAu3ATkJSw7OtS/2ToPjqkaq62/7WFG8advGlRRqxB9diP07JrXowKR9tpRa+jGJ91zxNTT1h8I2PcSfoUPtd7NejVoH03EUcqSBuFZPkMZhegHyo2ZAITovmm3zAIdGFWxoNNORiMRShgwdYwFzkPw5PA4a5MIIQpmq+nsp3YMuXt/GkXxLx/P6+ZJS0lFyz4MunC3eWSGE8xlCQrKvhKUPXr0hjpAN9ZK4PfEDrPMfMbGNWcHDzjA7ngMxTPnT7GMHar+gMQQ3NwHCv4zH4BIMYvzsdiERi6gebRmerTsVwZJTRsL8dkZgxgRxmpbgRcud+YlCIRpPwHShlUSwuipZnx9QCsEWziVazdDeKSYU5CF7UVPAhLer3CgJOQXl/zh575R5rsrmRnKAzq4POFdgbYBuEviM4+LVC15ssLNFghbTtHWerS1hDt5s4qkLUha/qpZXhWh1C6lTQAqCNQnaDjS7UGFBC6wTu8yFnKJnExCnAs3Ok9yj5KpfZESQ4lTy5pTGTnkAUpxI+yjEldJfSo4y0QhG4i4IwkRFGcjWY8+EzgYYJUK7BXQksLxAww/YYWBMhJILB9e8ePEJ4OP7z+4/wOQDl64iOYDp26DaONPxpKtBxq/aTzRGarm3VkPYTLJKx6Z/Mw2YbBGseJhPMwhhNswrIkyvV2BYzrvZbxLpKwcWJhYmFtVZ+lPEq91FzVp1HlQY1bZVLqeNR9SAUn6n0E28k/UuGkNpP1DBI5ch/EehZfjUQ9aE41NhETExoPT2gGQz0IhWJbEOvTQ4wgcXCHHFBhewYUiFHuhRSAUVmEHeCRQHQkXGFwkAgyzREJCVN7TRnTon36Zw3tPhx4EALwNdwDv+J41YSP4B2CQqz0EFgARZ4ESgBHQgROwAVn9GTI+HYexTUevLUeta4/DqKrbMVS+Yqb8hUwYCrlgKtmAq1YCrFgKrd4qpXiqZcKn1oqdWipjYKpWwVPVYqW6xUpVipKqFR3QKjagVEtAqHpxUMTitsnFaJOKx2cVhswq35RVpyiq9lFVNIKnOQVMkgqtYxVNxiqQjFS7GKlSIVIsQqPIhUWwioigFQ++KkN8VHr49HDw9Ebo9EDo9DTo9Crg9BDg9/Wx7gWx7YWwlobYrOGxWPNisAaAHEyALpkAVDIAeWAArsABVXACYuAD5cAF6wAKFQAQqgAbVAAsoAAlQAUaYAfkwAvogBWQACOgAD9AAHSAAKT4GUdMiOvFngBTwCn2AZ7Dv6B6k/90B8+yRnkV144AIBoAMTQATGgAjNAA4YABgwABZgB/mQCwyAVlwCguASlwCEuAQFwB4uAMlwBYuAJlQAUVAAhUD2KgdpUDaJgaRMDFJgX5MC1JgWJEAokQCWRAHxEAWkQBMRADpEAMkQAYROAEecC484DRpwBDTnwNOdw05tjTmiNOYwtswhYFwLA7BYG4LA2BYGOLAwRYFuLAsxYFQJAohIEyJAMwkAwiQC0JAJgkAeiQBkJAFokAPCQA0JABwcD4Dgc4cDdDgaYcDIDgYgUC6CgWgUClCgUYUAVBQBOFAEYMALgwAgDA9QYAdIn8AZzeBB2L5EcWrenUT1KXienEsuJJ7x5U8XlTjc1NVzUyXFTGb1LlpUtWlTDIjqwE4LsagowoCi2gJLKAkpoBgJQNpAIhNqaEoneI6kiiqQ6Go/n6j0cS+a2gEU8gIHJ+BwfgZX4GL+Bd/gW34FZ+BS/gUH4FN6BTegTvoEv6BJegRnYEF2A79gOvYDl2BdEjCkqkGtwXp0LNToIskOTXzh/F062yJ7AAAAEDAWAAABWhJ+KPEIJgBFxMVP7w2QJBGHASQnOBKXKFIdUK4igKA9IEaYJg) format("embedded-opentype"),url(data:font/woff2;base64,d09GMgABAAAAAEZsAA8AAAAAsVwAAEYJAAECTQAAAAAAAAAAAAAAAAAAAAAAAAAAP0ZGVE0cGiAGYACMcggEEQgKgqkkgeVlATYCJAOGdAuEMAAEIAWHIgeVUT93ZWJmBhtljDXsmI+A80Cgwj/+vggK2vaIIBusdPb/n5SghozBk8fY3CwzKw8ycQ3LRhauWU8b7AQmPrHpsWLSbaQ1gVqO5kgksapZihmcvXvsSAlqZIYL1YkM/LIl97nZp395IqcEA/f21yuNQLmMXb2rZZ/7e/rS+3aQoE5jiykOu275k8k/fj/okKRo8gD/nl/nJmkfxsrIHdGdBcGkiz+6PvzlXksg+3a0LRtj240x7fSAEokyS6Dhebf1LCdu5KvgAAco8DNFd2ngQgUXgqAmqf8L6c5UtGxo2DBNGtLY2tKGZOVZ2HLx77Kss250ad5d3Xl1cpW0vK77me4TVlhzag6hop7lZ01uGarTmUiBV5Wpw9QIIHIy9D5pVGBWN7jNUiixqMnPGuD/K6BvNvMnY8XIQrCP5gbrNOe31s653X+Hg4vjv5quVAldYVtRZDwzd3E4LI6F7nJUSRahOOESHI4wPkW4P/kqRajnl6aVI8/6NyeN7N39hlMJDAtvY/vKt+1fizcmIyrRKym9s6DQKzRhAbBBNrZjjOd5sdmjhmYoYhlG6ebk/+m0JDt7IFlBwzF2UC10R/j/jOHAsRXNIvuwldsBQ8JmLSBXgveuAprUmc51S9awSwjjI63tDuSs1ipLhjzb/AQgKNHf69T31/9a/mDZqwzltVuXJepZBVSKrHslr8mKJIitEKBze2/v7RmcF/KIgxjVu+92dCJw4Jw0YMjq36mKz6R9bwxg47PdFPonbhRl3D4K5EceNXMAevNfTvMKklBL06Z2bVXeC8m+e3q93PLu8/+fGfh/+IyHIjNgbA2SHAOWVyPUkL1eGEArjSwHY7nJa2+pjUFPG3AVbnW1p9R685Z6Sin13M6lHveY2zHHfeHh/0893n+ttoB4vlLGxGDBSolgp3GDFaWCVXMvvyv4a9J2xzF4bBrd3+dqEmwFlkVs7FxuRIzIw8a2r1aGseb/0Gpnm3taZOWJCHo3jwsUNf/fIQR4bcI1b8JbBxy9v3Xv+ya3rzHagkgQQmtB4uwIcXLqzlKQxA2jt7AWjyhcZ2j0EBTIN4ns0op5jz2GSLVa81VQaOnQJDgQUmfTBcQYgHrCZ82tyU46i+AAMXWsJNyFr6Shnj5S/V3l+hSXDqasIp/0Zje8lwv1S69efyeYquu9M5MrRS+8xF6JWVU1XahOQhcu3sqLpdI438Urzs2POI/5LHyJe018jEGKEeV1YXzQYYiSf+yO1d7LhdWdJQAKf2xLR6JQ7SwXTnUU5tzUa/5j7zhtWEDa02T/F8yYP3/x/NrzoudZ0ybP/nvq9pT4s8fPDj/bUNworhRHil22v8/G5K/kT+SP5Lfk1+SX5AZyLbmSXExGyQg5lywmp5N55DhyrPu0+zP3H9yfuD9wv+8+6n7b/br7FXPo5P8Fi54S0BCi00THCKR68zH6oT8SXFU1FnE9rdl00XrUkg6GJlqQbmqiJeltTbQifbyJ1nRr3kQbundooi09/22iHb1CE+3p9Tc28fSugyY60rvJcXQiC9YxOpMVrOvQlaypdTv0IktfoS9KZNZjMJZssvUcMB2yxSdeAxZCtvk4VkO21XpnsAayvawPBlsgO8r6ZOwK2VnWF2J/yIN1HQ6HvKl1O5xAnip9AQZ5iXwMLqmsJ0M+E1xnPRvyOeBW68WQrwG3W2+GfGfwoPVekB8MnrY+ivxkvAo5rc/H++QX7tjF+JQKKkV8QaUOj+MbKk2tW+NbKm1P3A7fUel6HD9Q6W7dGz9SKVmPwW9UJlvPAVUqi5U1EMBT2QxNQgv+7AShpfBbsxMKrYTfb1lEaK0Y1Xvs0Sx9MTxmjSYCNmikGIYnj4F/B8qlVSNWqAjeEa28H6GlRftEfyJUwaXeqdAGokFEOYP/ZUK5OqkHBhXEJQ8CT5zBINLQBBPxgofYRhJ1im4gFjc/JVIDRzQihLhmqWfHwUbquoEgDmE9gpEts9VRl+G9eStCvSzE+NAyw8sT1oU1opWH8JmEjHhuoQUVzqoEZiohobPm62zifEdYUfgg3oNVcJTkCsVFdSDCQJ4Bj6blLfCABB9Eby42WVr2gi0mYT5mEj+bAKuTTo9OnKIJXdRPL147XNoOwkrKDc9CBsdFc0pyGQSqkBkBoMSa9cYPFCfyhWcSL+Pj0UIXJZ+hHm8gH0P16rpulTeL3DoFfPV5g0t0sib3JKfYc698ufV3UIj5xFxpXb4kWhJAKwHNDLa21YA5MHhdu3K4rSW+yNUr9gdSVaxFbYcrFtywqqM7d6B1rMA5L0m8BdQ3yDfVprlR/mx1XKZ50A5XixBOKes4idywdlnuKnW0bQKUobG/6eKp4gS6bSgJZgbKRb3y/0c4sgyiaiNJrL1SjswX+XoMI3G437ffAQYJhClZoNckiwvh0JuGY18lv20teyEwLWALO+HlhazxFGh5VvXkwV1IdiEJzx90HGG9XEvvxRAeBqVbzDF7GgMi52ogNkDsljNUMCWlE78P6c6YIsfUmcZaSYZH5AabU5P3jYIusxHEzqNwB4HG06xTxjFl6fvZk8TYm535DFnBHv92uzgaCGSxXLFCoRdsoVP7/lIpBtIT04bn+a+WroALewJJitOG9NIlnZSvPvsw0I7aprNc8CeUY2e9MiU0oFGORKEKMM2SM0KyIslNjtWOJoDbimhJFcfC2qfSUmcQt01FpKGpobaaDUm9zigHqd7VNVWWRF0MffIdmQdi7Tgkl4fsOKg+8+FYIAGyB2iVImwetc6A4mocnS4liNuAGEhIxy0LSZqm3bgjMZIdQwE09d5Z3gE3hO3urhLtWd2WoVYMbwgaPlDKXaE2v7cHmPaZTzT/N2YaDb1+ABgeQUpkWUbVwoDKLpbeb/XD/nkpCcY4bMYLtjIyjmWKnB+m0jFIG6FbAXSJsEAhyIUMMlyAQLgINQbE2ZPKJVrX7vzba96SCAZh9Z2u3ED6LmBuqDPKT0aMohBSKPOFpbb3/71aAWtMawVGIO1IV2pZHw1JpOo11+cqE/E22s5ltVNiay6kvDVGLBfsLpUCTjDf1JmSuYB8lIZWpoB8fH4FTvSHKAkgNLed7NpdLOwaSnB8fvl4ZdPJQajUHKGvNYiIL7vau1Ok/QTk9JTQdvLX3Hk/m/myJ192fHLqhMtY3Ab47kjpUcoFsLUVBcSTQkA9C91YrN/6rEITGDnLNLOYq8NUqdhCiUKpY6CtwRirSJFQo84rgvKJgV+Tk9VZSNkjrCSqy8pgoOxG+KPxQjvjtcIr2xGUhUJQUrA0zLwgdAStOnQI9SJaE0W6Sl4hWMLHk+CscTRfZFRXKDXk3IAEp+X/5B+42kmxlFXFh9JBzXr+QFU2/24uV0dY/cDBBehI7FJLwBbbGiYIJ3N3TbFqisqOmIuxPJ+UsZgzpimAlp1gI0ZAEgwYDEYg1KLgCP7Ydo1vzWIkeAwH7yuy4Lx1+ya0fYl8ylgYJlvZqpA4RostuUUmLz6KLxfRR8UuYep6XoreL4PU/n0pnBGyE5LzJ5N4qZEkTz08AcfCepmkb+Sn4UE5TR/YnSYd8n7uoZm5MxlytQUzZ5+cpie/ONKjXLAttk1EesjoEZj4a7rNNYb5sbRBCt3C/apHOankfDEt2CEgxzg3+xBbnH/0pCxtUu51fKY1N64KHD1Y/pGkLJhhSqfZGxabuF50tE6bNNPYXGYQ0IRdQXobSF4CN7eqRpXoHP6VmYQmayIbTFU+few+53JC5Vgo24Kq64ICVJolv6sLSqoIv4StZGhLxB+U87ZQk7JLwR5URmFBhzNISIZDW3I7YZvAtmQCt5kXhxqVNTTIzAyJl2xMhGsDakcPGnuh7DifaH7kjwcNZlJAA9Ds/B45d+BCqKTg0DDrC3pT9fSw4v8nl6AUAmE3A4JA3UBOm7GK3ca5bJFiGGozD2hOBBPuslj2i0Yvye1lonOj2Sf6ikRzUavxPP5rXtPtHfLXvLL9iFpBU0+oaRdkulNK43gcTjREvbPAS9MhtLnU+Qkh2at2iaxoQWDbRZa3WBCQlQACvMotDaJQDe3EOp+C29GkG39D6jrCwlfNelO9c8RkTww6CBC2X7+r1Mtgijp0wWHOt9CRCx6lhrLN2LP6ohaBrg28SVnwBDTHDCMgEJD4KtIczSs8A+pxAG6wb9QAuHUKVQgEzGN3d4/zeCRktbPwG8a/Dp19z4H71sE5NMz9mu38AzlwrCpUOvolRxVR5oVeYZ+LFYcQ5APdyyeo52WDHvRi9qgEFBSKbC3V3CpY3UznJSrFuggZuC6F2orIXIpAcFIkVOUqS9YYzQW9CLhocIfAiMjowYLf46Zt+sEbkeItL5NvU9ozjt/CRY3gz850b3+4B55959C2Vodv9QdlSgtgPJkk9tl07dgSvd/8HwmqXWcq31qbD4S1NnGwwPlskgT4fhv3Ra+rCoZT+rgvipL5aaPEVMZ0zWuCx67gslfdw74M3D0/arkAR6LSzNRVVQVBSsb1Dv2bAhxghtJi1MuRl4NHwoj1Uc1Bz6upgfHDls4VxtrsY4P76r1Xy++pFegDV1NtCN3ArWezutpGy/GqkSapXhb1+tiY1KGINjtDMTo924hQieS6FNVgytqckFZW/5Md1EWdxjUitGhPq1jgfhQbq97YTjNfNdOBXbp6Lf6t5JJDV9PddNSljYLTiLTQGMtl3F2wXLaUqb8dVq8ZE5aL/2PUIx1tW8Zrdd6XrV/KsSKpyfZzjUizf/Q8fXjvsQKFbTBi5XgBSNNxYh+RYTN0ZudNVNvRzypdSbsYHAoV3n3XKBz6vpwsTZSEjZY9igndQIxKQdvG0GSJkKCsyz/CpzZQVrH2Ww1kVuN29OY0ap7S35uRbEhc4vfUFozF6HuY2PICTfTlvciYXLqdjeUBWf7cgYAcHYFgOU3DYEQTYoc8wQUSO2EjevKGkTyKeCIG8yyoZIJnQ2m/YJFjkpsWOsEBBcjiSbTiPmp3t8x9SgXIyXqnjV46Vi4d/TrX/tqLE3u/zbwGKMiyQvfmyxzJpgOSyfN4jjwYHkRiIyJTo6F79JJQ+Uh1vU6BLxPre3I2BTt3VbYT5tDyEnPWUBfQnpM8pOdYwOBZ4nPUxPfeTXh1sIcUXJpiAJHac7gkEY6YEXiOyiiiiS9efANeKhgwan5t4Kw7I7clSoTeTTSdx3CYUU3XrPA6OhpiXEMyZ2YBsLBdvXrSUDhUmSBVqpNRYtbodLqDHUMcvVSfPgpwoDgrNmdfMpZszqE2p0jyEQgg2s4Ax4YPSJ069w1kmzzmQ83pNrOv2KTqL6u/Nn/jRTrCS4uUIstga0qpPJvPxqLkPQj5dp43hKXiTjW3tWCw8pu2SnSLEtlcark2zYUlAw7Lnjf0KqUnD6UQlVWV2TSxOuIbWCsN5FwCYgD8kkUKEeTs9N5hZq6KeIwfk33BiTErcJmLQqXLMO428hfilOX9njNy9UEkG04Umn62EvQjs2SqfQjH16SfUDdo90g3YqNGqp7Cp4WCrDjwEQ0es1A++EJ0GR5HTtAUFY6i8G3kAYJ49ECPagmFkbh8e8BzORIZ4Ls9D/53UtkvratvREpzNRZ6PpM7iid43fFFBtBxFV4GculePUcaP72FOUHqoQZ/5pbHQeRfl6MG7UsltUTJrjp1aWtqa+5JGGXJ5r0arEf61Z0jKqGGKbVqbQaR4Xy9dKO5fWABSuapWtiI6db3FwcDSA89NO6de2ffgaK+KaFxWIhNQSwXmkj4jDcY+zGJ61YipdkUD28s51kjaBL9/PfdqFMX8l/qO4vNYV/Ul1peY240oq0QjaCCSLhFq64/iauwEX3RCsidobut3O682aQ9fUKeV3beqlVl8OVomheD2gBHHYqTRpCFiZHmO51AMlOl2AGcgEDLZiAF/sLL/G7N4jLQI42O5h658RNm3Vk6Xb9KeeUISF0arZUtt5hH14x3Z3YnoQcE4nyIxDBl8QrDXzeI8NKQq24rZh7f2bji4Fk8q+cozQqqP/bskhCpkXny+aEld22sK2oOgyYmIeiiY5NeoXUnnWL8JvFon202EATCpJrO+7kqMgw/HLRBx0kcq7bGsjVGBle+2Jlb4sacBqhC9VV670nORZSTIZJtOovS+5x4aNRll93Hrm68enxdJQyNkG0R2XLBVbhGjdqvkAWU+RF/rjHGCx2JfTshD24gRr4moGfy2vH/UImG3QGvrxsbOybX9qmc+O8YJCS4GulGqykaLnSbQu1RqDOmjr0VKJ5DPfq30+SmWMDO2GVz1Dvdafurtq3ZikC80Qh+/E7tyRsbzqFFAX/rCdRTUosUBBShiGidXOnoo/rBQmXxbxi6hr2coLS5zgFiVNEWhAZuzpIRanUCub7AGwkHZ0Dk9ycEcVHrlI5ueC51NmJWVSbUDJtduTvb76oVIUNfDIQWBgsIno01xireerkdybr7bYBSUXWRqnGCkuAWprFQ/NpaMIO2fW3xvKHMBsr1br2mXm7VT3LJVKbiwZG1zjqfVeMn12jA5qcwbg9aoXBeGVLpfERGql9iXPJAltZtgYLoREXrOIEAxntv6B5HTYnhoJwBcbjdzwZ93O5TZCAWFK4PQywb+wRpwNyaReodEorpL7Dew4tbGGQ4XY7XLE1DSZrO0PNfdZcsXVaZgWPxIpfkpHAYsAZnHUDsYCJ5KYssO0KzXmWtnmwQ2ggEoaoyJ4AuKJ3N0MSY4nk+4C0afM5orRjcE9PEd5r6/uo7qWrlpegdku3VjRjR0mnUvbHkr+pfGQhvfCFA9inJot0eqsQ9f9nMjFNQep2X6R0fiCohen0pvHzGp1R9vWoYkYZFo3RDrFrloW6MjRe9f8O9nCrVnvXJNNuG171buamxC745GrvQrgWojuiIF5EGkt2T9Yx6YFcIbRRl9G+Ci3xqOGqt7zXhGJA5vPa1QC76mkW/GFbML8xaVwVAF3yXgWZf5xBcIiQde+EFnJF2EKHg8oPznMDIL7gG8rY7YdcWHDpTZaZpM1TkR8sQKuvO/YNduMahL8xoFMAyHUMzMiS/0wEO9L/8MX2/jESkzU5Yyfj+dOw/Rs+d7X5uLFBqOQ8u7pY+16P8qM17Cjn9f8lFTi12fDNohhTykUPF0LhFlJWHIFhU4OLLO1CWJMM9jUrWLQ/d1Wfdlf35aWd6fnGXKEHpPDpoEzGxObMz4U7szL31UYmL48d9Q0zYf5BX+d+nwteO3H6DEhvhDRLaYpmlIoaBh818xzR1fe7wrdcB2WOZeYAE4IvINrChMv9bIKXY1lxkuCy10o7Vs2KBEWv5pMxE5eS+JTBU3Hitrns9O/bUt4uGASiEaQiHC43YTFO3+BPfMb2Y+P2p0TP/Ts9oL6Q2P+YnRV72fv/G1FCuf3tzWuwbmVrTS5TEnhNCe5JEzHT4Jom91HqS0/cptRdVb2H5NVGmM4+RyJeIcn6/jpG+CqYB9Nn5Rl0RoCS6POgE+nRtKJp9DPvDz01CQIeeW5xHeOwIzkbTBWgQOACbI32I9CyjI8CYdQv9TGF6KN5RaLE0JdN4AW0EYFUT4JXVuS5FEajjdjFhkp40Dl8nL1uoZLF7RnioSco1OZ6MDINE9RE86uwmkDhWiEXzRmfJyNkL6IqYI/VJkeSfjTJTss3u/18GD+OpXVFxQROabojRX/BRGecHEj5i3pg0Z6EZqK0TsS2uATAmB0UjY6bcaTi/CXZSL9U0/xhynorrCJpQN5WjSwNzT1cFtU4z1Y8edkVcYnGGf/tR3zUYEo1audq9Vnk1B12NE73W9uBoLwlpKcX7naaOLS+0sOOha7VOrNGOvsjEHBMjZewpIlAX7fH8CAl7/UtTUZB4ibK4naY+YeMmte22jjxhLOumjBdIRUjP8vOJDQIcXZQlLGVEnrNVfle7bP0XjwPam6s7Y77hmJP3B2D+nT8gob5wkU0Nsgts6+ouglCyVzf1BqHZo8guGi/0V5wjO1f1ZCqWOno7RTKGqJ/u9uP6aqEH+DkTecncQcdTkFM46HXAjLbgrDtmWTi7bSBL0a/o7NSE1LaJzaE+LIQXoA4NX+hnpbTxLW3hYzzXGG5d0KctFK41kTJjqLmhrvF6Daw3ZCBQnHrzE+UBtRng8vCyVoT2k/ulTx1Qdma8Uv4MUqTTxuCwkzmGWg0tn8Ee3mQShveumoi/Q5ua8fPHYCz2YXTBPRMUh2s/dqLtNCNQDeikQswWCKGa2KW4L1sX9QZzLjxhFTBlxnuPtCaOonb+EPKhYX4BHWUBCNDzOIvoKWbksRwX224UeQaS6gJm5EJQHEz5dfGzSXmySBg9U/gy9tEdlNIiW8PIKNnCvE9A7XoqSbi6QMX2MJfkqiOY49zgLBrQAAKt9MVJJFGhz3kNDWP00Z5GDethj9+eA3Yisu8OfFLH3JgJJ1ecE0agDHg/Ef4rYU6DTfauj0vOYMZEBd4DL+i3bmY6WLhJODpICbFJUm1dm0v0ujZpDiD8QFUSz0gqTu3QbwhGrOD9O5axqZvhh48iAledcaO+ZFyT74qIiZHQjSpDPSPjMs82eJQ37DxUz9UbCjd5iNRyVT4tYkgpERHJunrvICd9tte23e53nCEEF3LBWM4RWoq1CbQuOpJWbtcTO+4t7j6KOuEKHQI2AeBy/72HDh1VwWNz1TRrrBFWV6x7kvqJ8COtD5g135EwwULd4+zHYNyd/zB1mtEiLlHKxh+sm2RCtJgwo5Qd9ZhDntBy9R5d7e/gI+26UTkIbHGc4AJOXvTWs42v6fRofqBOVVy0ILwxNpoKfunoFZMc4ZRTkW6HVPIEbKKRXP5USNKy2pst2cl+qkd+KSSFb1E3Hi3rr0PvEbDMAcjsfXESJS8cYZmms3ZPsKp8W3E0loKKkrN+QmMtJE7cGzc8VhiFSEWAH2ktmZwX6FLIRpMMR05N4HvQIjOVkAz7NDmHWxWEajygkOG4HaxX060LyuNo1fiYAr9skW7bBsMg/MjYUdKo2olHB2NxqO9Ad68vZSBx/6PMFeYBZ84crsg8iKPNxhAPOiCg6uFh6ZK3opF1rxDqzfGUlV9Qi2AM3flie0XrHOGmSSgWz9lPV0fdHOarZkV5wNzpQUJhX57fO08IXo5EUaPiJ+i1c/Pl5wzu0OzzYETuI9Gaaa86GNG02yvfFlkBe6l70nDlJrbFXN8aUmGemsDBl2cQ/s+eMP/BH2f671T5TM5pPCefN/YPpj/ABdII51gxucDPQ+/WCmGlv+nubjBvuXIx0QyZHhcvVa2liZ0F9QvOb48vDz/pleKZr2H501+scBXqj0jWsQ1H9ey0oKbCOJ/doz8zRokw8AeYgNlgJcP3z5HE0zyNCkeaXdS9nBk4YmzNjyUtLMIpfSWeA0qUOha5WQKt0mrQGxBUzTvQq8i2NcWSPp42HL2fkHfSew+cVumkgy4mE6P2KIYOb7mpKvVuPKfYbjkGoQbBSpYKImGHB6kL0JQIzd0roYYLYcovu/26uvA7N3pE2FrOtxF713SPTQlNcJejCWnYmmu8TlB3iNiRzbrwSGBUDfYkMjMbloZmHtP2wNDaMJp6H8bIO62hpp7nIvBdjPKqgiqOWbKk6RAs5FGhV4HYG+AO9LhsU+m1xsVPjnJXJDUGXUuhVtm7QuIWhdyahUm4GIoYa9p83z2yJsFb1Ojq3tHexTU4RdNSpDDei0drq3MbU+7xwW7j8m4RbnXj+vFFeEuN0H9y9KKsjH2Hfm0f8dlgEI5HNAJ1e9DR8T1dNmakAPfiCNeoCkJv1h4mPA2Zw7FjOzKgrhBQJMPHg3ttV19jG571wqonQjbQij8kvV56W49DA5cdWbndrZnppWrQTvN+C/6m264wBb67m/p0oq8G+rDb4oQ2LyktiTF/OnAkROqlhciXCq4QGg4KLCezhvx54PWx+MF2mMQghW6ci0azVNfRgZlbBCdhpk1izkpduyWQJsOuEKxsYzYCJsLoSXBG5ZDEDajcb/CMaYMGqsTJ/uMVNbGg+CdyqOTL5XKRKHG87+iQ+q7r7r56NsGw9p7uySg189DhRQ704Mmi1Z9sE1wdhUzxnWu6N6uwMcVZNF4pAmLZl8KmOPm8efjGj6rk2wpOntg9g5s5elSWXltUJIdka8IZnA1R4mlLJeGINo61kPxxtenn9czuZk98A+Da4GPQOCSVamledhsEcv4CLlFRUiLiWeFyxIrj4vW4DajDa/iSpd5yn7q8Sw6IorU8UUmJIhG3QLTv6lIQFDkN9sAPL72rGFwmN1l9bYln0oo3u5wceja4LU35dT2CwOks9f5OM09cujaMw2FEQY673q7wTGRecuvJLy6uPvug5ugKTrdl7c8IUmkT+zSmvtUhM1L5oroVkCKNNKaIyPH6mm6ZYuFtyS15W1impv/P8S4ixvQZIZT43FFLr+VFXAdOj+u1NGfVoNed+AWnv6aD77FhTqZwgg0+ayk5wcEwiEKNWurMQnMK9qV5ihlyjpplcqspdq+irkTz63TocnaBXPt2+Vut/D7zcrVKbZyBApYKYZzyq7XMvJt+dd0X6urVj7o+tXJNWpywmGPtQjz44w9gKVx513R8243v/3InPIYYGgb0mOA++dfW/uNb5sOOl++t6Gg36/qt/lrFEASMOH9jYUmBIbkNtHDiop/NzK4ALLYPR8PtC7trB6A1QMjZ9PcIG/9g9Mlpdw2I0m7Qnh04cJ92vyDnyRPpKo+dssInTwoL3R3U/IqyFKDdQVvILqGkco8WaPNUDXBSPys7y//zXBEqSItzTHHe5utVmrlmluI6cWwtxIekDPEqNiGFaOcry6wEAHtot4n2LSBqZ7FryU1NyddQI+O25Dq8fZGxuHsv3evuVsvfxbZDXeyYmeq3JluzVyTaqwEDXt8j4Pu4tjRmHVdhXA2LBcE17PDourpNWzaevRwpVKczl5UbFZt+/Nodzg6tyRLUwArjOi4gWpSmvAKoYHPeaSjNUvSpUYW8ssx8L/pg+QppbM9esEwjoKf3HfJmpC3x1zstQzsTX9ze+Sr5e0BFTUNvb8OCX6ScxsP1Nxe+VPbjcnF63Ea1JRfXr3yZmlU8WqTcb8ETW1RBPY6EBNAnRFBKXbQ7LFU5Ga+1ylGbsdNwip5rBvE0foAd6uEGweIGXwWNQ6pemXFFosWukJxiDYFTR3Pa+N/tf1mFnTJOlkEOrtJ17a4fJfDwU0SEgiDXaGoJCv95Ozkk37RJQajVaOQERU+PzBGE4bLLfQqoFmeJs6yFFJcvKyD51YOT7zWdSlnKIEDkB0f6+I2N/L6C6q5mMhSQorQEl1mgxOcvuMLfvJl/ZYTft7mxfHbeLxYfuCLe/9Vw5YDYfuWIi/FU4/Q4Hk9L83Iq0g+e3SoNhoMdwBM0aGngQFGbmTNnIh/RBmqynxw69CT7lTsdOpT9pGbgzfyW94wsZL2urnrNyMia2cbUjOq6swOwqxp1Jeegy6N9T/Ums76CaRkyD1XoLAtAAs1r6moPJXU/2xrjNKdOnEtt9t750GQ/NcndkzvKMJlZ753a/GV9c1r0gBuHqj5FxqtVc14U3Zx2e6B/6wSkpmZRPMSQoYlWUPzvw8pUDmbNpu4/pZD1bdhw2VAqAMgmAab30FGHR4n5e2OcA0rv8UVQGGUyKY54UL0wBUEG0d/NAftNyapaSLZqlSIR17si2UEFrNBDK3pxiW0EVhF64ZaeBfNVJdhDtQA6FkAxDubj8Fe5igzuWxF5Kc5KQPdvsWIlDPdqlBVBPilOD9LHgNRpf+e8JJJB84jA7HRgPsw/ZjBnAP9IMzZw6DbhzER8+wRNm+QM4fYQNE6NobAKnJIgNEq9StqDHq8KtWoHpJ6YxocBtPNcDe1woDPTGfgcjqM4jcCmqtHjltCv75QTu602cK4R+VY/OqwkgnNE+cBO+hK1Dsa5kTLvkm6SLLaESN1PXIJbuPjVuJv2S9ktKZ2rV365aeltmT8Y/66DVNA6sMzw3rpV1mVZjNPjii0jZEplKa+x2s9aqtU1lD/4JLvmDqFcZKlXGTy3ubksyYZ/hpo7r9i3uMM1zc3yU7jVuK+8GpdUq1SW8ZrOCMyEZiiBUFkOsHY9UQ1+RFh/Kge83w/dOPjovqlzLQnCCAXLqK7OgAU1NQIMrQ1YolKlbCBRQ88IGOEZpM4M4ZP4A9HAbHzy/TXOe/vTplRcdOq8lSvp76Nlu27F27iLksJQc9PoH2z7MxWZnflVT6lb/Nvux1q7yVMz5cCd7p+dKujsLJiqht86w5taH/6+xtRMiZushtUFU52d9BUnzLXm4yoH9fKMKkCo+BmdH8Sxfnhnbm8ysbkZ4RaI4i0KhYwgs1ezFIqrvVYcADvkcFrlBDmNPxN+hBirJKs2nzyUtVFygmJROCbzFHNlG5XJRWKv2lEULLf+XnxCsrXv56KY71ZkrFYttijcXeMgLu/oy444HxIvcWhWoRtuUq7zrlHIRIkq+VUoKjFo5zEUw2DYnVFMEnsHhYFVagsLYBfg0iKabx4zANy75plWqAJsBYW1OhwJ0e3qwtjADWphBEZh4BCeRa22zJ5aiItnMbG3evywzDLWoNU6BM1BddlaSWY2loMBMtV0dysIiomJF2YZgadEj4se78noEaqpEUNMLX0UZ7u1WhizMD7ShPN4SqL9/8U+XO6QwetRibhB2l9DtmmCaN/SYg9sXQ0FGoc23tXeHdw0HioOmkHLrxbJsPxxWImkBDeEG7sUWfJYLoAtvora1biVYcmHw1biaBeslmlLZ5XUz3FOs1LEhk4ochEnwV284CXZmISPha30jYhAM9TNgM7CgWqnFlqs90qGLh87/ONubd36r9XOLFP7+9gEMHivs8MfAfX42M27o09GBzMzrdKntoWrPCQn2w67uEeXRSu02n2lpc7z+vOnhScx8GYzm8b90nnQNd0vJqRanFwaUkL0N2Rt7fRd5rw4p6fCXM39AYQz34KEyKqYQPfsb7/7VOm/M2V1XhIdt1dAiqoV/JSWjqZlN2yWHgchQuMswHOC5OYx3M3fJJrkG/Kv21qn4ybZFJLnPwOv4mRD6eEgnShZ0KZTbT6CSiImcHTe3IiqUOOHhANCGwFGrBT4tJ3aBLHg2fg0jEfhNZwJdF4dxIYkr97yai1h46CNZxpewQ7KkEOkEpaFg0ECc9ZUPWuhVFMsfA6AcuDlD5o5SbcPvULPmAfQrIb2JwHC7HZHAEG2zhFAkM10BBDAzGhR1U5qhiYYgAXlVD3OA3h0OzJdrxJQoXxULQcJTMOeg5LJ57/xZTEU4929BFfDWsWaKk1ySDU/hPGCPeAA/dFvsAOsIuvGOdFLNc74Pasna8ktKgeVhOhBphIPFkV8Cf4g3iBx0pQTkV8/XKM3JR72jnxNNrBmqiuTkyuSUyp951cAX9xdM6qo+rZmbdyu2NLLs9LcbSB3IZaX7vflLttSI4nprKo7xu0f+qaxcaBx8zcxigHW5CTCld2Z1a9fGcDzaUvgJuxKqc6sTa6KrPbeGsdlbRLlVsQ1UH/PMD4Uvr4gUZ0V57U1qoZXlalIrUlo1xrl+Sb5NNKNSWzTRTd94nPI6cRtW2PIvuwBooR8jWReCaLs9yVVdukBMQ+mRAeTsj6TLuhUrNIbNyrpPXSDWrhfp+OfvjHQpTo9MHBa+5oGNtKLik4EhHQXFAAo5Rd17Q4exp2tOyDHQtJds5EkgGuh2oyAwi7ze6pGxCoDEi9VHVqSH8ZOCPwS56CmfG9xisoVS5dHO17W5L6eOU6n+2Uf/+14S4sMkqGoXId3aP748X6h8vJaAnBI1GKREovN5Im4Hgy7iNtba7Y44snNzGv34i5iWA8uUb5YcAK4eA5ZYV61GALQIpjRI+ufGJnjQrMQd25ipL8R8+WQddPwoOltNZ5Gsg+9fj7H0DgfBYCtwWL9+o7kTjrdcBs0C7UBW2d2XgpCvdNG0FV6+yk/nLw2MI/QRsnJBziYggDCLwQyoIxDCDiojK4+GJ1OOEfuj80lEGzzJegf3TW6RkiYezSENmgcBKeO77g0jiXGASMNN7jomx3xjs36y3gM82+63E4gdKpclSffyKgPDagg+uZFo42O5r0wI4MS72q4TsOjVu/TuWTgP1dsY1eQgdfwiwvE7QrFvr3WtbV1+y2TBrt9DzKEMqi2pUVOkL99I4fktbUySF5hM/D1uxmlcrvBcXOnpLCIhC2PUzMmyAQU7/SEZrTth6MOzOvOZndsLpo9V/g45YQs9eDSY0gD4a5qnmNU6rFXrg6R16AFc4E5DvIwnu6UWuBEzk0Rk/q+QzKSWk2Sjd37kGRqtYx0nxYiOMA6Z+17LsaxsNAxRmI2gzHHOCIGedSmPpj1vwySrVfAOaPrINNWmhqKivYLr2DXEmq//a4Wmo+/VPKUlJGRgDxJEaO9TdSxVyclrWYbJrhceeRa62RrAc206PlSBHnRaneY5gUVffmI0IDP31s4whfUjQKGu6PHYkLtIKknZCdt/G/7Eic8nRH4fEXUys016vU6FbO52otvvJqpyT6ytXIsboOpacCtwQ0NPFSquFO5uZ8+pRZks4Ug//TpcU6nqt0MLmcEKyDvUwfCGuu8DVH6+beBvusPCQ2B4UsCYUIIAb6M2+A/X+2L21GNRSCHk7VyuIb/aqTugmg+9JVFppDTmzsTj0Od1603f4WLHLdeca8KxmBVr2X6Iy2fmBi3O29KmMSL49LmjtSdPikLx/2CO0pn7aPPf9etOVI7T2ftoh/F/WlJN/p9l+I4S6GSnB/bgQRxpmqPudFl2JOjK9mXJ27xz7drM4vBrbsH/GVGz4ED+wWe7A6FMLGa8q/fViOp7cZwpU1BemJeUI73Vs91pNt+3jF1upfSk5V3Hm7ICV6bLklJl6GKXxzGzNp2ZFeuyPaP885bUSzN3ugrTA8EvmKCFu2+yQKl5YTGxIdxvP4NOatWHH3vCZTOj1bRdzRxVeQzJmrbxLFIWWK8IPy5iAsVv3QVdI1UnPWIN8+B8pKr2WEWckJ3UDk/Kdt1lemLVC/ZYaOVjkExOZYRsWuqTQpc0+RQ3d9zmzzYVGGejdDjQII8P03iCygQf+oIvC6hLCclPyzHJYFhHH5lzgXrEo7AnY5V4ZYwtc0velHV9ijRuP2T96RhmayqcDouNqtqwv9kRkBcVq40psl/e9NSaez+GQuIzTjpr8mqBm51/a5G75hNX4anPaa99Vo44aQDSOPuimyHc3k1ayX1zHwXKPBpOQILItk25Lp91It+V0uE258EkWhZqWuKyvYXpBOXXOD712yTUm0Pjru0JtINuh3mpvHY8jC+78Fi+11nyhOUtb4iwufegERe/bLmvt6MqGr/sRVKKimemjYDqLUYiy1ZYtlo1uD38ukKWv2v6d89BN6RpkEsjsoojp1LI9AJDZayT2bISgIbOu47vkmGvschNgFZaSb7ZNng1iVtrjg2I6r2mVGBtdLUzFdfkRUb9kGbdn0/K+hH4ZrK+gljYw4qEP9t+/SSZ2DSPoUO9XGx2Csc+6M92Vs1xM2Ut7bW1z+yOaNXwMkrXv1vr15F4OM4c4Ep5Y9m5wuXMmH05gEWrVGfBXgBGn+kF7dph+kmCU5FPiJeTmHkYZ87ZorZzDldTkUmCXQYXrDAQ0waeifiZYU4WlLxB3MmNt4CsjdfAB/8w6NjeUqekTEaDcT+QFRasD9TAEQy+woah3zUUPXUy0/TjOlcZKoaUu/e8Ps3ekjV+IPusTlpyAMAi1Ejtb+2gnpys/NjLvI09oZH/VKdEzTOyHF4pvC+PDJ+WJJotfduCOEZ4xngqbOoBsUyiGF1Qq1OQ9EAK5uia5dY8zAO0Q0YE2FqNW4DPt6JqPWyEmUz9gcRdt6nF9P06TylPoGwX7KfkKAH2wx1SDqgBJBYUp3/JX454QQhNPb8b9EP0bym6BwCADOFuuKUOD+2giDOHzEBZBoj79TR/ByWmkEmi4SEe0EhaTYLi4zt3C9YYZ2foxrhBeOHpD0SVxaJO3zvBPDkGimBINBnFr5+ow0/Kr7mgr3DIH2/49qniEsRdMw+NXytRY610O7R3NUup/30QQf7mgtR8Tb8+g0CB7KAvig2GgoKNtGUxjcAltr3PDn5+V/wlUPBDGYxDxn+69CO6Wk4FQa+robluywNVrs0JMCfdXTJ+Jz4o8ZpwSwuYHY2cgnio/KOUA2vGr1nRkKQyY7HCnQb8sPn2g1DATO9O5gMHwQYLLxvw4KT5uOceHwJCi9L801wqTFTX76RWC5m91aNqoYjvFU+yJLI9YgjQvbxXbUNQRUdj5FJVm/AzNCGz7XAkRQVv/xHVFYxbnIro85PWMJTlSULi5sEwrO2mWanT1pb21/9OZz7EZFQrd+w9yAPe0dsEW6RBSXfI9rbaMBkd79IoPk9hn8guHmpZS/tqle8GbO0tj5/0izT9qywSVAsKk1WlfCEfsK6SybjZRWixIu7+00G7L2jPfIpFotxRr+gU7bfCBsFtCLJR9HrVJpGmY0quUxYLGiKW5e0upOnd453tO1l8VdRRdl42uu6DD/h6JN7EF7ahkWOeO9ou51p/bsFoteCjxKESpSzw8BIjwelfPNe2c2TioXJZSpeidCvLuN12nhFmejry2Ij7jubkvTUnTxdel1c7YPXAoGof3faTrtob7xjaHG4RZijPR665+ITNFExH7g3Dv3d51f8vcyTbMOVNo/hp78UrRJIRV/Mo6D5cXn/iR7hC1kGUo6k26saPHg91GNT31gVeSE9MPs4x5fzeNYMmJ30/j8fsXt9ov/A7t9GX4T84cegmXr4r4lrdKnJsfCIN7PK2oJ8dPunK2Gubbg8eAdlJILpZZaP48mNqtc8Wxy5VPem/49YWxz+4ZobC55/+AOj2fYAG79zux1Ww8yLq96nVZ7JKhGz4Yxol1OpSz1GZctzdyB1Welvzd/Zr25RqxezPU4bRTpb0ih/F3Rd5Q1r13znQJHZv3VaXDl7aIGxj3YQfxiAFNrcldOGLtqh+nNhg4kkdSufcbkZdzoj4x/mP+Vl+lSJMz3QFKwH0LvQIbVw7FBMYM06hZPd0FIDOwzYZwjKrgudBkZoYZ3OkDuvFAcTzBOGNUlloCsYltvY9bsODJ3XYnQwNkFXNDBUzWhKY2M8JgPAbUpjY+AKuBAMjQfzoU8cG0Nuq1c//PlOB8Jp/u6+b10oWNCE+59790x67Jj02Tu/8NjxZ7nvfMeP5z4Y5Dl+bDRz5lZ5+a2ZYIrXVd+bLPmf/vHXxSNfynW0+StEZerq7Zng6U3Z/KJ+A2izcarrsoeStyNZ+srm8Xr8JDvbDDXNrzkktcsgerIdPv8Kvipq9U+fjfiM8dsknNAkTy+vwA8Vw3hS7b2DwnT9Zi19Kp5v78mm+NnMfDOGTTsVeN6or1WUlbVsLy4U8X5Yx46vWeG8NJl4Mybm69d4riI7pCSNS0n2kjXbZNqtDL3K4fz6i353W8rUTRkfOU/Y4yU00uFRqBx96RlTXp7sdJad6EDRy+YOd1ubWTst3fb/jcC6czuiYr7Nd0gtKgUM75aWw2ltvbZJyggtth9/MWUvlX74qFROTq4u8nCy3/ApSCT766tX799+j87wA5C1ycam7bxPCiig6TnohizZDV1nTTZyHeorhCO7ByWD4C9z/HevQRicJBH1jHHGNMsRB08+CmQ5ffedEyvw0SSMc/Sas/0/AzCjmRRhLD6deYu52ohzPPD+PYYs8ItjXypc4oNE7bzcfcgyGU3tsM3MVDgXLxLtNOZn5ifapp6d4jgn+30ii0PiAyqEXDm9I1mPHz56JI7m9tQ3Y1tzk3wiJH27CXltzBbv1cCrelF4IDW3JeWgb/nlkyRqhmvQznASKfF4vcT7LTq6htCYfD+dmG/j+Ganh2dGcsCe3zIVGopTkcda94wCEXF9cYiKtQmFb4AdHyx3ecVPoWfKE5BDRjHWbJjnnycG7Uw1VDP18jP70fB5qqZNiTnaMiJzlJjyNRR1G0SVizbA1C1K7IlVCIZiBXO6zxgKq08pg8wWd7hSDS0y5i81Ztw8qkJRzDQWa4yY6pCtnUe5CRMfKSXfvA7jPGQexuDEqsSe7bwBM8gyC2COHBphAhLYw12pqlN7o0sl9FxdpjMIJoGKcBKEk66uG9q42huIlEPVuKIM/Zyp64a2kyz3wA3a+V7pVNDZ2ze/aLw1mXX7bETAo3jat7Yfl/EDTCdEtgbwhBhywzYd+nYMGdW3ZmNc/qP9p7VnQeoFkcKds6CGskAAP7a9nsLYf8GRCZyVR0bmwVYRQbdsLLa1xDqnvqCVaSN+TlX75pNEVn43vo9rt0tgGiGIUByW7E1Ys/xSzcYkI+5UaWloqJ6ub23VmMU8LjhVbcc8ks4z79PpGEVT5DQM3Kud+p9WHjmy8ie9mWJ20nu/ofg/7lZW3v2jM53XO5RVJ9askQLAtTFS2Vbpe0LH9MbuaZ8H67ofNEMLUmjc6YpyNn6YH9OWkEqUpR9Q4M2O1fdNH4cMCwQ3R4zQAC0sEE5Mb7z0PJ+yttGjeuf3lZUySCYSfBYks7KSvDx7DQam2pyTS+RfnObW/21tU4wpPn9yks+bZkAHHz2a4kJGmYvvQ0IAsamJiYOHJieHRn0ZQKkm08j/GQSEedd1YuLQwcnJQz8nqx7q5fHnGFMB5jQ5K5fDk+SxQ/ius+1Jw67wpNkfjCvX55jrZgUvUqsGVeoNzBLuQwuwAUZ1OhRDESqjfQyGVDofurZ9e8Lc3b0B4rK31HWqztcX+JWsZVshrpY++j8Li8QP5f3auLgix00KOGd6g/QwXEhrg9QGWrM6xGjlAq0bfpkDQBOqKx30I6tOneoM1mZqvucYebXu5Ytpb8AhhEL3Cf7x9LeTsVInqTU+2hMDYNryWyEawsRUGIhgbR9DAZqdC0mF0Z3DfbhuCo8+V98Q9AEhTX0YVcthdvW2ATSQgDMpIRAEpwEOaxtjyIIasvNt/j+Sjgnd5WTvGHeV43YXqyHXlDtYz6HbqH29HTjtdnSV69Ai07wjDGvCdhdYikoXmbFbk2ydtlta3ZlNw4Cn8cMWWEMHM2zqllsNw1RhvFZqi6GF2sq7peUYAYzRrCLFkxfR8gt0OhWCKJ7q4KbIwTy+CAZjWvN2ZZf9UZvH7lSFn6BxSOGRaXug0umKgFHln5MnwZPDlruTaaD2UNj277+t6PzIA6/h7W1LykHnSYr1pBmPkEJGgwqjFQU9iYm1B+LWB1Thhb224CjiD5wmVFMQnz8v79iBQTrWtx6su9CeVqco+PdAd+8PRgdhXuOmXYWMteRvXSrT8Tk5FhasUr9pDuHxX9TymMCZ/s7LMnZNk4DYYFCnk/RmA6a0BntRBlnPFqvtSH8jVjd2xTfM0rCgcT5A4POrGH51yZjXhkF4sMMvgwKreNkIsEL+4DOjxKDZ9ImddIPKwXkdhmIwjJ4WbkdgBMEMGPIERdoEROzZjRrkQZLUOgzGUNgQBXdJH9M3z+wQblfT9zJFRDxoGESQJlqYiMMJzqA3zTPhJvrNHOspTETLNDvcN+jm0bQ/JK3uy2tA2QMi9r8iTCZ+p/n2MR3KumarMTSKyrF87trZN09zjx7NffrGTDE76d0/wnsxJJAXgwOvdymZgDEYfdDgMOh+N4TaIwgLRRA1iqpgHdJxJm8Nx2933s0Ly9Nfk4XptIqq1DhRMdsaj0fzu7vz6/nTyYr56vkwGTjl1wJouORXv2WgmCu6slzq5RPUiYZSi9TKF5PDVT93ruBl2fTvT9kZj91TeBKBFkFV1syefzOYfAk9V0G1zd3FUp0OClDxsHRPJVEiMVnXlB0ZIXNvJSWtXp0Uev9faG4sBP17P9TcBR/4IkwcrBc1sV9ENqnu7AQr6u/Ky1MYYsY8geCnzGdmSsv0pTDkYuxf56HReNQtG+0Loxg7iUir4uPi4leROkeYTfBpxEVlzEl1qq52Sl1+bcjZ39hRSExLa+y7ymhinkE+fS4oaJXcIoLz41VdojlJ7Whf7lavQIebR1oQMEMK3HAVE2IN8xs645lMDDONoXROKqpODL0yv9MhvDOMjQ1DYRizl3luLpXK3cmLf1fiYMyz3H0YsVFCG8xDj6rDaSDBoTgqCALD73s1N4m57AVPI2FUossdQr2fgr1V7W/+aacw5w3zX8vw0fleCkNoclV9fnLITBkgMfJ6/z4uLvY9HCUWR8Gam0eMowvr/G8gmZCHDBiMRel1kVCzBVBz2JjeuOjzOK3wA/wF/lCon3UmO+bKKozr+XxpJqT/UGLbyJuwspho0ju0W5eAfBh5KmODVppohtK80ij/lH7OFl9BlXFVMre9//RHSVHHM2CuXsp2/j3uQKwP3EsnpLXQh+jLWiMINHNKAj0PuqQ6c1kFqegJFHPapWLCeWoMr+u3G1MfX0XcgyKOqouKQJ5+gp/nuQg+rTg2uvEjznmx2uTlW+/oY/JT74Sl2cWslpCU8vIjrVNKlEda+655GXZ2Et3fU/nRjxrmiZ1wuHdhVJqez/XFLxMsHxQKOSdKa3YlJS6Gfm/yW8zznyDooaf8HJwTwlKxQmqin1PoyIAqJCf46IWBCKlww6dTpXUAC+Ar5wc5GFys7V9mK+Xy/Pk49RB1XCy2yhSP03Tm5fBwntGN0B5r2K4TSjBo8yhdGE4RhFHIdvOzVx+sgcfMN/MMlTirgzY63Nbdo8/iC7fxV2OTr1lfaT76rIzdIpHfUqEQ5/WS4oEo02UYXd42+LmqBFJBJVWXNia0Rl2UvTdAzLNrM1gNaIE/jMFL7+ATrgTeAB5RpDKZQghrvls8b6UtWw0RAHN+nxzuMK+NXVScsMMywc3kr2jK8d1KxnHuS7l2p6ufKDMySha6/hrtLy9XCIUavCzjrBnDztt67wsRj2QkMtFjQbRrUJQPuQGXCaeUS/8rgO6tRWOlC9vCAdwH4FtRnvng8/T5+2n6lxZFZBpWHMP1eFI4GZrkQtA12swWxGEXPTqigUtRmLadA+fTHFygsEDGVrteO0tyzAmXTRh7/PcT8cZ7fyP+80OPd30Te14s7RunJDBSY/9cb76rUb3RvMHXpVD8yiTpAYYbWcp2cOCuPj8PLv8fgMMuS6HIS0Fijsx/Nv3exBQfNb9/t2vykmWOK12yRhY8SMtlIqo7e3dOiXl4L8bX5QcmZuaqhC9YWhhbn6Q3u5q2YyXfxYA1vWSVWV+feSLQq9+eozJcMzfXCpYLGmtcxOudsnxGAk8gipIPtDY4iqjx8IWRnJzD7/y9F4SN/25L8Bd6UiKPDhmD/Yeglp8/LzfQMzKaOtCw4T6OsGX2V0gEqVXyq/sHME/d16e+NYW0+P8NpPru5GUzSIeuY2/HPmwWXTC2MrGIY/25h91Iyjmae1oNe3NP9QSWIaVBLP43hj/FtzMAd+S/jkEcCuBGatr/uDi4QhbtJjhVJAYRR4WhwgC12d/pJBu1WTWYghiGDw5G4hFMhTVux+yy2PIxlpQ+Agxx87oyo6MuqzaTA2WX6QruDey82vWXnCuYlkAvrKLwmbVr7WJ74Pcoj8U3B9BpPRulyXtszY2s3YKt4s7mv6bvGaA4qwOFMWedKAO7/BPoJc4C02gv60Vmtk250o3ddJ8ANQ8fFL2fGsy8dme9bwPaIOp+AeCpm1dLaeeItlUHq9/Yo92WrXesUlOCRexG7d9UH6yyJaoNYD3tFxiL+HwqPTGC8iqO+RYfu/23U6dY9qyAHrfYXury03cpbB+Ww9ZmUZ1I4/qMKBRZU/70hFPLjEuPt+Yx3tji7VddtWaZn7ewN9eas14mD/1w9EBUJy7swCUzjbOVhMMNmp2vtN/e8rsR+TXPemFUZjbR66lBNdwZTJXzWMyh5rfBfPEITLh/LZ/lls63B+rEGlQDFtdne0Epqu6trkbRFZUuIhRo/BiT+WqioEE7EC7w4n7C/qCFb94lsOgM/UcjGtF9Jl0CGt7XvmPcYA9Du2hIOXhuToa3WSDOEhds8LJj3hQDpFwrdlxFn6WrxqcxpkQ5S7dY4SkyYgEuv/Otk070B9oX/Veip47cUdepJKUvBaOUEHw2dMOwmcMzMhTUm6O0N6GhF6YAljK40dvQuHl1/DBl1/GAKZJO2HVoJ2SctsPuhPWBH354WYnJCx4AkJG0PsTaIwxiiCJrM9MO8MIMA7yDrsw6E6A5v7qidhMPiPoGJNCfQ906FMopSLnLPgnVppp6x9scO2WTZFxqF20aZp/kGE/PYSXyOZqRiARjS5t409AP26XFIWupJUiB3kRukxB//HtZ3CKTF3tuX9Z9Ct8pOYM9DV8v+x6HWs4o6fk+Fmz6tq33WZ4Gn9ZW94sbBmdRI6ffrTpRxAGVF8hidweDx/fVJL4benex8NmuiyO/u+N/VRSYP3zF8O9HCNTOBYRowR5/evx7+W+6JHfx18+cnbS6BBwpfFZoido/u4wNFFpWjze+JZ/8R/tvL6PXhof06UXPIrlL07KFoOwVtQhsBqVwNzbOAB8teg0hwWyANBduPpS8JFzh13pWP3N6+3FlauxR5+vpXW2LmwTmXuY9XrUN5KftraUhoLK6bIX0SEI0c0wLaTl93h0yol7X/UvQNQTFT0L6KejtTw2t53ZefqoS6rX9792AeKaTcm1cHkvaJkde0Ac1j0Pn0BBMG7x9Jka68pTAy+KoQl1LhhShbjOGhnzNc0dqeRrwFmv+T6+1Ftpi5XPcveZhVz9SNvASobeyvkqQwsdmaOPaMgkMxMpsQlMcp1w9omrV1VaXHsoqlB/0WaaTFF6iosGZBITLul4aRSkH1egqlANcvZ8EoAoDwhSCctRyKGGiHUD4BRYIhDZu1IwUoz+lfdpkTLCpFx6mgRaaZ6IOSR12cdhOY9DHYY2Rxq5rjM33bUyM9n9jwUEhpLFoZLijsVbr8LW5zvJ3YwM9oqbmhpbh5haW1XNf0jqK/9KXlaJzTB/L7aNnPpGclzHcKjQtJfATJsv1MBEIVWIWgylF3KyNhioZYrjU1gY1MZfE74TnCeQr6Cs7mI48hauGkmAhcbBmzRrOTfkqxixbL0dLKxMHexcEwxKXro0sPkPiTBOBjBsB851SJSVjjLPCxsN+kZInRUePhkGJrke6wj2HaMIS5J+UjrA4HDpJROxOAinFV8y74UFGKXVjdydxaM1YH8OoskxAYYS+fow2zFBjMkzjIqVBCIUyYuzIVQmZwCaME4CL/wyvOfZBI9NRTE8HBKw6gUUUgDlrp6mSkcYaZt5LRpViOTN0ukwkY4nLrHD/THr/oL811GQS2nAIov7w+duwPiRgnC7376sdfljzBz22FwCh4z+EoBhOkBTNsBwvEIrEEqlMrlCq1BqtTm8wmswWq83ucLrcHq/PDyCCYjhBUjTDcrwgSrKiar99+J/QDdOyHdfzgzCKkzTLi7Kqm7brh3Gal3Xbj/O6n/f7QQhGUAwnSIpmWI4XRElWVE03TMt2XM8PwihO0iwvyqpu2q4fxmle1m0/zut+3u/3hxEUwwmSohmW4wVRkhVV0w3Tsh3X84MwipM0y4uyqpu264dxmpd124/zup/39/8AYiScq3RWJmeuz5btf8FyPr882Xnz5T+PkhmTmI37Zv57nee0t52jAIm1EZueJe6178fMft9a+/5hxXpXvr+899z13TKfHbVzdpDvwMzyHZCZ2WVXHasAibWR4AIAAAAAQEREREQkIiIiImJmZmZm1n0DkFgbCQ7TTwGEMMYYY0RERERErLXWWps2V/IwOELW5xBJG6UPAAAAAAAAAACQEwAAAIMuAUisjQRXCAAAAAAAAAqi34gTx9A5oACJdYQqpZRSKkpefYAeFMQ6TZS0JEmSJEnSDkaCi5mZmZl50Z+e+97zwF9Xzcb9PEc8/gMAAA==) format("woff2"),url(data:application/font-woff;base64,d09GRgABAAAAAFuAAA8AAAAAsVwAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAABGRlRNAAABWAAAABwAAAAcbSqX3EdERUYAAAF0AAAAHwAAACABRAAET1MvMgAAAZQAAABFAAAAYGe5a4ljbWFwAAAB3AAAAsAAAAZy2q3jgWN2dCAAAAScAAAABAAAAAQAKAL4Z2FzcAAABKAAAAAIAAAACP//AANnbHlmAAAEqAAATRcAAJSkfV3Cb2hlYWQAAFHAAAAANAAAADYFTS/YaGhlYQAAUfQAAAAcAAAAJApEBBFobXR4AABSEAAAAU8AAAN00scgYGxvY2EAAFNgAAACJwAAAjBv+5XObWF4cAAAVYgAAAAgAAAAIAFqANhuYW1lAABVqAAAAZ4AAAOisyygm3Bvc3QAAFdIAAAELQAACtG6o+U1d2ViZgAAW3gAAAAGAAAABsMYVFAAAAABAAAAAMw9os8AAAAA0HaBdQAAAADQdnOXeNpjYGRgYOADYgkGEGBiYGRgZBQDkixgHgMABUgASgB42mNgZulmnMDAysDCzMN0gYGBIQpCMy5hMGLaAeQDpRCACYkd6h3ux+DAoPD/P/OB/wJAdSIM1UBhRiQlCgyMADGWCwwAAAB42u2UP2hTQRzHf5ekaVPExv6JjW3fvTQ0sa3QLA5xylBLgyBx0gzSWEUaXbIoBBQyCQGHLqXUqYNdtIIgIg5FHJxEtwqtpbnfaV1E1KFaSvX5vVwGEbW6OPngk8/vvXfv7pt3v4SImojIDw6BViKxRgIVBaZwVdSv+xvXA+Iuzqcog2cOkkvDNE8Lbqs74k64i+5Sf3u8Z2AnIRLbyVCyTflVSEXVoEqrrMqrgiqqsqqqWQ5xlAc5zWOc5TwXucxVnuE5HdQhHdFRHdNJndZZndeFLc/zsKJLQ/WV6BcrCdWkwspVKZVROaw0qUqqoqZZcJhdTnGGxznHBS5xhad5VhNWCuturBTXKZ3RObuS98pb9c57k6ql9rp2v1as5deb1r6s9q1GV2IrHSt73T631424YXzjgPwqt+Rn+VG+lRvyirwsS/KCPCfPytPypDwhj8mjctRZd9acF86y89x55jxxHjkPnXstXfbt/pNjj/nwXW+cHa6/SYvZ7yEwbDYazDcIgoUGzY3h2HtqgUcs1AFPWKgTXrRQF7xkoQhRf7uF9hPFeyzUTTSwY6EoUUJY6AC8bSGMS4Ys1Au3WaiPSGGsMtkdGH2rzJgYHAaYjxIwQqtB1CnYkEZ9BM6ALOpROAfyqI/DBQudgidBETXuqRIooz4DV0AV9UV4GsyivkTEyMMmw1UYGdhkuAYjA5sMGMvIwCbDDRgZeAz1TXgcmDy3YeRhk+cOjCxsMjyAkYFNhscwMrDJ8BQ2886gXoaRhedQvyTSkDZ7uA6HLLQBI5vGntAbGHugTc53cMxC7+E4SKL+ACOzNpk3YWTWJid+iRo5NXIKM3fBItAPW55FdJLY3FeHBDr90606JCIU9Jk+Ms3/Y/8L8jUq3y79bJ/0/+ROoP4v9v/4/mj+i7HBXUd0/elU6IHfHt8Aj9EPGAAoAvgAAAAB//8AAnjaxb0JfBvVtTA+dxaN1hltI1m2ZVuSJVneLVlSHCdy9oTEWchqtrBEJRAgCYEsQNhC2EsbWmpI2dqkQBoSYgKlpaQthVL0yusrpW77aEubfq/ly+ujvJampSTW5Dvnzmi1E+jr//3+Xmbu3Llz77nnbuece865DMu0MAy5jGtiOEZkOp8lTNeUwyLP/DH+rEH41ZTDHAtB5lkOowWMPiwayNiUwwTjE46AI5xwhFrINPXYn/7ENY0dbWHfZAiTZbL8ID/InAd5xz2NpIH4STpDGonHIJNE3OP1KG4ISaSNeBuITAyRLgIxoiEUhFAnmUpEiXSRSGqAQEw0kuyFUIb0k2gnGSApyBFi0il2SI5YLGb5MdFjXCey4mNHzQ7WwLGEdZiPPgYR64we8THZHAt+wnT84D/x8YTpGPgheKH4CMEDVF9xBOIeP3EbQgGH29BGgpGkIxCMTCW9qUTA0Zsir+QUP1mt+P2KusevwIO6Bx/Iaj8/OD5O0VNrZW2EsqZBWbO1skRiEKE0DdlKKaSVO5VAuRpqk8VQJAqY7ydxaK44YJvrO2EWjOoDBoFYzQbDNkON+UbiKoRkywMWWf1j4bEY2iIY1AeMgvmEz/kVo9v4FSc/aMZMrFbjl4zWLL0+Y5FlyzNlEVYDudJohg8gPUP7kcB/mn+G6cd+5PV4Q72dXCgocWJADBgUuDTwiXiGSyZo14HOEQ2lE6k0XDIEusexDzZOMXwt1Dutz+tqmxTvlskNWXXUQIbhaurum9GrePqm9Yaeabjkiqf+bUvzDOvb2Y1E+EX2DnemcTP/zLcuu7xjQXdAtjR0Lo5n4/Hs/GtntMlysHt+29NXbH6se//WbFcyu+r28H0MwzI30DYeYTLMXIA2EG8QlHpAsyS0EfEToR0a3utIxFPJ3kiIHCCrZ66b0e2xEmL1dM9YN/MwS5p01N5jMX/BLKt/1R83l0LyC29M6+iYxo/UNg/EF7c2WyyW5tYl8WnhWg2/hyySbD5UhnDyS7OcU0dnrFw+DfGdI7v4QfYIIzOMq9hFtY55gmvC7jZ2FK7sEdrn6IXBuucYhjsGdQ8z0yEbWkkczjjsE5hNAIZrPx2zOLZDmKNXcXtg7EMqidAEEWg+SJCBBNwxvxJfc/bZa+KKf+xoKZybnq5vaqpPTye7CiF+ZFjxZ8/7Qij0hfOG/cowPA1rT1l4ymWnrKmxxqfErTVrpgwPlz1kC+Oy8NMDz6c+IO38K/x0xkPnLW8Kx6qGAoQdL+TD9V9rb+/ctn//trxz8dUrZrD/zk/ferF0cNt1BzctmX2FZPXt/jnFCQNz4Ah/iKllGiCMs1w5Lkg0kiEwj6VTXCDKsX9rMpnvIj9pcDecXAIXMnqn2dTUbN6w0XQ9ue6FV/nnXCH7S3lPWGltVcLsH75ub3ab7A8M28caNrIeOr3o5Q0yFsYL80xaa0EY/UEczV7icUMY5pnelAkmUAXmHYjvFWFGxuqlSaow3OM+/iYY7/l/hVELF4EjRqNR/bvRbOY+DUGzGR/Oh3EqmE/ugIQQguGt/eMYz/+L0cimjeZfQDI3phXMbMQsqH+CjwVz/hf4idHovgVmB8gLvjbicDcC/NypP536E/9N/puMibExdohBmNwyiaZdJGoigos7GpF222xrfnZhML/7Z+ylaqP63Hr+m7bdUkQ6/2cXqdfmvwixY+s2ksXFeXcE+iX0Z+Iow76DBNgjJ7TOdUK18iPsPflfQD+DPsZG2Aj9VmKMMJ4fYRrhIaxhTDR0Elh2vA6h/AE6xUb29mj3sjmL72petXjejPy+oel60M99tFduCI59N3221xe7apOvxs6aHs7vab1IqY2tv7q2xsHeHGml/cV06u/8S/xTjJ+JYc0bWEX0ukW6YmIbGkJRMdjJ9mYIH5QIdJF4hvRGyK7cC7ctImQRcUET99fGXOoft35GYLMQu+g2smnkgZUrH8AL/9Si217IssJ916nv14ZrJrvdxLkQvrvtBcjgPC0NXOicO8Qf4mcxPqh3hgUw3DDfdvLJXngg7N3dN2zbPJSaed3OfZnMU7dvmznp3C3bruO+Nmue0LFsy7S+6265+fCKFYdvvuW6vmlblnUI8xCXp37CrOZv4B9gauDBlYp7adcUXB5DNCwYImlXOJJKkAdvExXxVvKEYnCo+3eIskP9qrrfIYs71CccBjfXRC52udTHHdaP1A1ui/VvH1otbrLrpNXBsGX5B89QghDyimlvNB2KfkxZ5C9/em3+d1+d//IfFp2+2Oxn/s+9n/79p39S3s8idN6g0yZObwJOgKUpNB3GyU0Ls0PbRzIRq4lcarLKOJBkLRzJQD4j2090XrbA7DW8K3jNF5hlGS5e4V2D17zgss4T20egOJte5iD0bReM9yjTxnQxCRj3c5kFzGJmGbNKmwGw39IJDJcXJZGMkaAB4jyJAKw0jt5IAuIE+A+U3cVAZZrq9zhDyBrU8oosuxcGNTzCKJfla7JjNVmuSb/+tuzN2H+X4vlB+PpdfMXXmuVsNiub1T34SFbjYw5itEvVi0K0Nt9pNJUMI7SLGRhf2xipfCYf8z5OdlGKayOucFeVPeS/dbo3lBrbSMmwUiQN5/ed7g0Ds1s17IuZC5kNzM3MZ6EWCa0DtekdJfAxz+R/OX28sND7yRMTBcf++s8mQCQWHya4qBv/ufeMoWyslPA9DtMxUknxkH/yfTnm2CMYzs+Cq3r7PxY/MXomrvTEsRpfEGHa+WN8E1AHjElb7d06ddA7oK/+5Mdsv9EtPms0jv0Z5kf1FqPxWdFtfFr0kHfgDX0Y+5PRSG7RUj0tQr7rmfX8DH4G5W28kKeJLtmQsQkuwMP1pk16EV4sl7vrMJATfyUWo/GwEco4rh4XFQgaiUX9qxZHrMQqKnz/c2d8b9TysYrAuXpP/Rf/Gr8b1qwwc5a+euLa6S6sneNXToG2XrEJi4R5SGs8Sq2S3d97bsfCRaTdaLwKClRHt37mkudvXbjwVrLhuYeGhh56bvfQkHpk2CwvwClqgWwuBfndC3c8dwmstj81KkagcUgbfPY8Zje0W/82VPWJHmSq6pP8hPWpotc/EexDOK3qU+wngPhOCiO9MJRm8TJefjelrzoKnG2Bn+1NCUmPE4gHFmBN9jrTigRIpsACrc9Gstg58ULkp9467+Gf/eFnD5/31lNrt2967dhrm7bzI+VT5m+fzKhvf2MzpICEm79Bopkn07lt1762adNr127LwVqQLdJ5+lpQDcvHPQtVY5knhYrK6q8/JsiP6EuhGZdFdaNszjvpqvc+PI0CdjN0AXsFOC3ZfALDJwr4q2Xq+GF+GNbsxUg5NLLIEXi8otcDQcUts0D8eQ1iVDRAMBTsYiNdRIxE09EIBJO9A2xqgERTaW86BUFn0OD2xFO97FAgFhF6OoQ7prYt4XwSeUgQHiJyDbeke9IdQntciLQ1FlJMaYcUNvZBg+FB1ubjlnRNvl3o6IEU2w7fdNPhm/hh+FLysUu6++DLHkOkrSHYEjH0tEPe7WdD3uyDgvAgK/m4szFFR7ch0toUgBTdWHr7EpaWru6+6dmbbnqWEbV2EtxAsXiZAPTtGPSbHsotI2leoM8TePEqgSQprs7AGFf8kuOkPdZPXGb55POAW1d/jLST9v5YflasP6v/CO7+GNAPC2BMZWmsOjp2NNbfHwMCJD+LPVL+D/OYlWEEI/9jpPddOFkB5d1GSuKZYggmCCd7JUxD7EXAzxyirYnNDLdDZoFdx14kivkvGc3579Jm36reTTvDgBnaO6vzyQ6chQmlsMoIkIQ2+bBDWBud1Va4pcCn8CPqxlh/fgtG8IPaPH8C5wk6/nZDv69jurV5QhtwE0x2iqOsj9Mx8B9/0EaUdiPfOYYDCi/q9jhWRuupMDEU0+CtX0sDFxv07T/K5niBPqN9+tQjgEc31NGCXFeMcCEuQBIc/BK4CO78u7EPYvl3yaEfK3vcb6qP1R2tI7vUjVDDUdKubsSrNjYKY1qBEa2P50SJoaXiksIoLiCwnxS6EBuBde87botNfdEWwYvF/R0/u5yCqhGeEOR2ynSeyXjt6ka7neyye8kryBSWE52y+RBgogrXPZ8E1yIHoHIFUM+AbJhE7lbMtt8ApL+xmZW7PwbjAO0fAVoXQOuiSP/ksIVdFZ0aulsamKUzwPZ/NYDMJRBPCxsBqLzqHyneXF6Ej9HlIFo7+pg+jUb3unRmGpstGkm6etOuDBGA5wCMefp1gTHcdZlvPBXlOslvYTp1cd8UjYLVd/J5awNrIOKLnIt9MD9qdrKrWCvA6ALm3QV9VrsPm60Q7+RHJHP+2hqfugo/MvI2H/mqr4b9tFnKSRY1Y5Ek80Nm/WIhr1ikKnxGz9TWXrokf9xwujfvcOTtNTWnxd0F37Y2W79tteBqZ4G5qLCuomw+nSr28QESCRVLTyYKILGJOPfcnaIFOsewhRdvv+rWa/Wih0vlbX6Zb75T5C0qNKVFvH1QL/vazSWgC2s6oWXXIuUxQelKiJbowuJDQViatLmLijg9CQBMg8WiPgiw3LEeYRmm5f+XdnvkDnxLLjMLxtvX74C3OlwPQqx4xwIdpPx38LrlDphiyWUWHWKAzzxurS/xTo+P5wGFak62ap1PVFFN4v/y+xuR39WnIO7lsWfwgVsK17wxrs9K8ltIKuhkw7f/6dhK6gQokFKhWX3urrjk/rnI0pgfpGMeuQIUaEM7+GF5q2iMkCaMQwxxOzcvU0eXbsnS9XknXvP7Gtw5dwPXlFu2ecvSHEZgNDsU6x/GdXBYXyOQjzZReSedeEPY6nEv9gJR4oBQJtFO6Kd0fwC6BO4LNHDeBujB6dSNcUQC9zIv2LnAzGk99bUDrdFY+9yGFQtEo0GQPNv6vS2drj4+1jHbv3aJSMUWP+QTZrmbNTjU8wyG/iXNNpskybLcJ3CiTF5Ir+JYzmJwE0mSVhlxbtbmvweB3ulB6Til5UuUZydpgiFVeobhU0WaBqpJ198d+/XeNRTZ9/1OPfG7+2hwzd5W3D+hmyjsRcUg/+Cavb++Vh2ls3L7zT/etOnHNxeerv313vzLVqPai4nJv+K1FC6040/4udw7sAb3laSg0XCkAAs0npBO6VJabS4Elk/U+D4gTXW+j0wnrMlqNamq4tMIYB87tE10i0FR3LZNhJsb7/R561btmes8YBCRkhYNByRtKd55mqTas9FYhJnbRGHuOh3M4QTdgQSqmgRxuzGdSvZGcbMxNQGk5C3ebLjoXIOFM4l+WKHmLTJwRv9E8GWJ6dYvf/FmEyEGr+gyrr1p5zrgkz0Cw2j94Hv8Jdx7dIVegBSNtgsqGsRQEYiIBoXwD0LNvQ5d7s5Z00QzwNhqZA0b+tMG1tQq5nd84uq8R0zPvX35G8uRaze4jcOHzz0w1+Q2BIRvf6J6Kgatnrbiem+CFvAxfkrndzD9MFPP1GWTUHclpASUkCNAQkpCCcCgDSUDAhDZ+CuEkgn8J7i9nMA7pA4lISappxILKfAeSAbIcSDuN2bJcfZILqeO5rLs0MnngSHYRdrHjmaz7JEsEPw51ZqDJDmUIOZIe34WaQeegNsJn1qz8AIpT3yCjyEih/xELkuJ0lEMYTLVCiWpo5oYMleMH6USyYJcD+uOe+kWKpn1Qns34iyYDjkSLvgnZXcgVQNeqINXr48m3iS7cjm8tedyY0f1QvTnHHdsrKby/+SSbPY8/NH6vpl/Esq3Ae4ZU1HC44KFiI9o7CEgab/RqHbj7s5KAg06s39ZP/zxI/mVuF/TbTSy+3Fb8If9/cv7+wt91yy8RfP1QXtW5RzQn7qIiZyuFM5QfJ5E9uVnqT85TanFx0lkP3ukBAMprvsRyi/C8NAJL1xbIIirSvnSj4O5netb4JxmNANHPssHAcHMHsFRgEug816gDBeMbdfiuRcghqYcm0+Xxx/5IAEtN3fqFF3LzAXqwoT0PN0OVTNqxo8sxMkd5Ig6k79Zk7VxxX6gMLOZFQgvpW2RrMW1D0BDihaXQ9wVRoBxPLfpknmkeMtoB/qM9cRc9IqmMD2XUmdZ7GSRKPUZvChf8BoykriM2MnKYbOHX8R7cLdNCxSFFVQqoYswnlWtlFS2mNkhswVpZiQW1J/UKFfipHGlUkM6UKBhMz1istELIHJLMSctu3ugzfaVSOjKvUgc/THK4Sdg2Wscz69leKIkkrwuuWiOe9yGYKQXRumkC3qbRcMwrvhjNXgdZk3RxAUEhuSPvn3nnd++U/3vlVOmrJzCD8JLxV1OHRjrZifbcFDOuRNTGqdgQm1tSNJ2OcQ04YiEXuxtII1ECSQRoQGYioEsgCfchB4ghAtw7FfJre4WZ9hkVi9MtjuWqtdNDlpMrfEG9fOT6q21okg+e4As38MfGquNt7oUws6Ysarj1/efE+yst86YUVNvDdts3Pv5c8m/aP0C+f8/Qb+IMnGq09BgwN01oIOAnAdagI8mBSrqk1gxTDUBOtk2ousEtBH2z4Ir2d3f6k8PXXVlt2qN9RODxRuoJT/v27wm09jRYVc/e++iyx2tyzJb/n3J0htXP87eSsQaf2Ly0s6Zmxela88REy1cf4273mI3iXNJ7KxrZibOm9xm6rl4fqy/t27smU8tOfdW2ucBzg2UfmOIVyLIl3kpYlwphDISTXJXsctmiDtN7fNV6zelgxwnWxsVr83Aj/S5ki1jL/a0GC6+2L6Um+aoddlNFuj+bJ8mH/iaLh8I0/U51NspIEfq0dohwyFXKgm4NggwQ4rRhCOUFtxxo8XnitT4cnGfT93IS8FaT85XE3H5LMY4zIEPL1hw443wz+1UmhTJyJGxZzw+wsKkKZgUiVtKOKMEb2AKHTv61FNc01PQFwKnvsZ/9pPA4RKTASWahmh+8MxwzHxKy74IRn5LGRjsPUUwTu64UYNY38caqd7HKucZ/tHnODtENw/2UfHRMaq1UUPDJQ0OKkWCeet5fYOhII1VRz8+/Elg5j4Gxur3J8o2PJ4rg+2d08T/fwEzSVbyZ9XPro95T477lRKqUSRXQnauHNsISAl27oWi6Fv9z48JMv8r/aMMj8onCP/DuDZOuN+GPPr/+p7bx+7JlbYdppcNhzKU/1Px5aiaGDn/s1iGMaBcleKUo/v9rcxkZj7DBEKOfrayytXNLYiUdBY+pleQXdnscKlQcpzuWluxsieeyuXIK6SdxozitWyGOV3vOHHjguyCQ6fpIYy2JwvrQEF/Qa9Pdf/QqOSqCiE/EE1/XIVKTc2tzWbHnimrEd+Vyz311Ml3P0GVTj7PD5aDnsvCvH36alEaPMePcMegXs7x8igTu4B9v7G9vTHvhCu/kzIdx+BxC0ay9zRSvoS0F2lIxI+X7klU63I40gLQ3w5ep5na+SFnba3z5D64zv+QtM4n4ffG3tq4aNHGRfxgrXPMim+5487abL7xhdseIRn1KDl+7aINixdv0OD+JSPwKf5+xoP6aiTeQIDVlIhMcL1H5R9PYXvprs3fv2bO7MOplCmweuiq2JRZ1zz+9a/v2PH1Hfz9236w+ZrPXvWfAxlj4NLLHpq3c/PQ3uvmvbrjG7fe+o2y/cLdtE6VUlXi0ASb1VLUBVSUWSU4HdvAraTyS8xzM8NxvxFkXV6pUVRiJwcgC5zEeht4rwcp7ki0k41G0qlQhG1Vzlq8alEmnFi58caB5Q9vn988MLhqyVlHvLEWjtQFeupdiocF/tkkOGPW2ibWaBTkeZ/dvPWazXfOnnvL6jkRXpi85sFzZt+55ZptW3bl1cCCHZPD06MhySha7UFzjcjbp8fOecFCirzAG/yVjBX6OFIaadSjQq1nNhyIe8tVbaaSdHlXIWKacMeuZA1uxS95zILhyrxAdsXTL6m7kNQlx2P9uZf2qhufePFFbpI6/OU0WcP99RrCsrwseVot5mtytpf6Y0gm9sdeyKnPQ7onyK4nXlR/rg7H95M1upzu89DH6pgUcikoiihJ6NJKmRxV1x+MJiOA3YwhDRQrWU0u/0rvq0VYXnyCwsLeTJYBq3dAtJDavuzyoVpzZ99Z0+a0uoiFH/xcqgDR7rUFeOrUn6Cywb8ZeNMbhLV5ugP9l0zv9UN5b5mFkjzxUcpPJCn3V402pRxtJd2GrnLdhtVk9ZSZh9W91fCSH5B7ofxPiWL+j3D/uwhBRdyAyozeZwvQzs79soi+BKSnafLviZCcfrpBpLyimfLfTyJtbyruIQKD01tUwJyKEo/ybaxkSNFUMdMkhQoJyRBQFhnUkDQSXhTM+3NmY0EDM7ffLIjqWEGt8lCO6mLia3PukFnghosJD5p5SIho/VDkzQfLE+IrYoJXkD19pdP7OwG/voIUtagiWiZ4PAFTHHlTVhRZ7dYmPar+NJ+8JhmR6DFK5DV1foHoLNO/pHrvZfmWZ15RQlwvoVDKhCWNK3CCch9lfFBuAqUgpFSShmNaPj+i5++WZfKeViJfW5HnUakVL4UCNVkA4+ETfIqx4B5xSaP2L1yn0zn2ltPn4+OqZGmwwEVCaCSqG53ldtL1oLGAhdMLd09MpCCF6tD6ZnAZBY9hDaYsP0jzZ0j5ZjKsF4i1UmLuhbJMCnYJPt5VwFNvmZawXjEvLJqIH8STonZjq7BZ8gKgR20C9MDFqJAX1H64QW2NEup6qgzLP8cvppL/NNTOBTCJABOHeWoXzLhw4Wuy7gaBtjKr9kgKq8ZlRYBS32Lpxc8vIhpNDTfyNXWybMJbn2RyQ5EmWc2QF9wmSZ0KYCE+cPuYO6b15Uotj2Kd4MItLS7gtFbkTdrFND6pvEZqv5Yv7jXAus7Pg7avo7KDot50NX3CPkP+Kps8J9/3mGQIteY/LGPC+L7872SPR2br5fy8MtKBMHedGuM28/MZmPJMrGgi3Gb1S+Si1/L/zrZwO9XH1ce/z7ZQ1WSoY/+pMb5FT4ua0Wm+Jf/298nFmChEQ+Ti71est4mq9VYI6RsymoRJKYidElT2FGnDTZvqtfhGAFTbeqEw68GqtfmbVa/1IFO1/jdWr/8BDRRtQh9XNjubEm4aWVpVonpTGR7PVGc+KJNoBIWF7kYi4gUV3r1U6723i6TxUl3n3/tM27aZfKb7THiHW9VzFSwHJ05VfK6Ar7kaB0XgPPE0BSkSFKsBUpaLihEWoA9wBt8qirh2VSOkZwXEwyrxZ5jyt2rJmSo9gX7cg6jsEUGJU9z9xJPOEM3uQQxKgkh35DNATnVyrmJ3mbCNyIB/yox4wH1bg2DwN7q9kov4pFqny8oSm3RQbGgJ1QQTs6ZMLilOVYJ9v6Wha3HcJ9jddsXp9YhGUXLXt/qMDnvLpPNTXfNa60z5/yjXQOMq+lNmwh5egpYrdfZQZV9rI47xlRkuyTjpzsmCBSWNkAXVoK8sgYWqQJWbo1RLo6QH0YW6pxqfCnRgkd+RiFjUQUQ7poIaYoakgXxwFd9BuuI38H1xBxXSFb/pBDIKQFn7YB3dB36l7sG1FLaKiBdp1KxLvfswap/30lnVESgNnvjbUoT6w9N+Xoio0qcYOIM+heg940YimsucQVvli9NEcft2UZwGQwLuilj1fFr1i3NP94X+PE7Hpvtj6lBJfJ4R6NvWiaL6MgzWHxiN66DExa+dAdAbMYX6HVF8A+7rjEZIXAVbDe7PVI9rmN69JOLV1DOSvRPxWNPZBZf/Nf+Ny65BhYxxxV+77XJ2wfQ389/IQPgajXbwMsuAz/0IaQcXJavKbRqR2IqyZruXjVC2+hdee/5vdnYOedpmVtR3NGXldxSzDSIiBVpkGb9by89UpEPKrSLZmyFDzMab/wXl2CNe7s/qCtTvWgG5kpBmCBlSzDS/r8N4uwBwohRW63JTS1y32f0TQsPfXVGEHQrV8/NCfiOUVirYcBbIeA2+iF68rQIo3B/S628vYESr79ehzS7Q9LEL9UXmik9XVHb1yBO3Ngvt5935+k1efkV51mzzrM0LL3/20avnwMeKuWyOUZg2TasSqZ+KcZQiOn1Iu2Vh497ALUVZiCKt/gh6IvTIj1ZLRjWAkpHKOKovNwp00eqPROiAbiNEKieXwMLcXhVJ1/uzmLP4tfxaHR59cBdJVG1kTAgl9ze9QKUEQ946Hkb+okJ5JRDyf54Axur1D+WS49cLr0tTPEu7UmXrxcSr3XNvumv4yXzInXKH4F7Tc7p17Zt+t/qW2+93k063X7VW6lALxTY7i1nBXMxcxmzQbabxz+tJo+wijYaIGMNS8AoSMgAPt84DdHOoMPfjXhF+kuH1tZvuFQrRCN07xGcXRX9MYxYchDe5BcHj+Z4i+42WyPc8Xofi7bbZJN5nJLJ5qr6IqRtzqNlM17SpFsnkEyTWoABEjz4JXOQvzWYuwdnV5LNGOwTM5v9r4RpQ8ZXsYodks3o31JBlzbYtNotisnm22MxiwGFXam5oN1n0TA/hRvshvTSDwHff4nNzRo9Dum6PaJbMXzDz+x+Fkj4L4bFNBb1asqsgH7Dyh4DvbkPtf5yMDKzEwyoaESMSNS9P9gJVA3/RTlwoMwZvxECFWxIPNw9gi01nOHjP32esZTtmXHnxvZd8ZtakqQ7ekajbXetpNa6ocTVxJtY+uSe69OLz77zh5bDR3xjZMzUz6fxrz1nqrZGcHQHfPVefN+fiK86LeXj+Sc5lPKy+k/vCUI/DaLFYCWHr6nbXuILTIsb5imNKY/rCm28fSMxPhkN1XbNMNZGuqwOBhtTSxWuTk6bw0ZaG86b1hKddePOKuBvmiguYBn4T/yOqOyGRBt7bKUI1GjioBC8aUKwF7Q319UgcmtFGIzCJGBqwQij0ynDsfdFGc3TS3BlNfJ25xmzniMkpXXTPvCaD3ZaZvyzjmZdudBostmhb0ORZNN2sJBeed1HXkrUsywueQH+L0eCPxmsa5ZpgRJSDZ11yDv+jmbd86vxZfc1WcZJ3UkMq1BOOOVtvu/+pB+en186d3GTwWAw2jheaJs09/+LNfZft37DALyrNj1wABMuUKbODyTVnT/KYbJ3Tpq8IrNh92dkxOj5P/YpZx4/ycyiVcDYdn4JbEoKdQi9054iBKsygLW46FRGxAb0NPNCm8BSNCPjoKcj6EAus4SuP3rB+cV99/eTF6294dA8+TK6v74MHVpYNRt/I30e8QGTOOdfGWzzxcy+87a7bLjw37rHw1nPzp0KyyRSeZO+QQhInt3dYgvycjrPOv+T8s1rptaP84VeywdWX2T4ysr0/7TLIs6+x9zib56ye1dM9e/XsZmePY3NDs9zlnNVt4+WgHJbbz3Livg4P9WWgviOMm4kCRT6I8vw0NbUUEnFvOuFKoxQW1gTsvFirsF5pb7qTUCx4i7VmtToveaDxvK9uOaedVvPRpVOnNz0Q6bry7uiSdQ8t7Vy4JQKVS+XPplV2ts4bvCwZu+KzgITtxepaPRzWdpv74muvv6RO0SorX6cu/dqKn/XWnrtp/Zragz13DUCl5myiFW2Ycvb0PtsXnU+tx8pvLFbUspLX68mdegwmOif/NPDONajTGoUh6tU56HBJCTBASVvNUB5VIiKpc9kd7kludodSFz7xQbiOmMk5dOYk56gzL6uaf7N8a6MQOHm0ae6snZpFDfuT3/jdYzjzwkXXIVHoXNuCfQslQZqBZjTsoHMqrkE4jaYdgkGz2ATOgB3cPkSukD01DnV3ttb1wx+6arPqbkcNAHoFPzKUUQ+qL0k97pjbZv1I/egC9zTFbrrlFpNdmea+gIgfWW3wqkcis8ky5FAcRd1If5nNZrl2FFpungc8wpoCl1BpQV/ScS+zjlASyUTVv/AJ46gkJI4bHX4lTnloctxPZE1ckS3+jG2fKIjkQFyzuo8jvYQG1OrGvJPSTu/nSp9PHNTl4z5hK/8gtXVKF6gEKiglgcKiRlCESsQCV5QIlKWKpr34lt/wkSx/JCmP5/cBKQfl/5gd+rOS/+p91/+YCg5CXK2W4M9fu+/6xxX+vnelVuldIDCG0VQTpU9Dw4pRfei+6zWx0MLie0gPbyrkmRU7OwT16JGeyXLHqOLqAfVN1GPlBzWtFNzj0TRTCjogtP1NjIvu5habN5Aoa1k66wGpqriVetJgiGdwDZtKhnN0y4n9sXYnsqGmZfDSR15+5NLBlhoDaedEm7sxmpqRija6ZEEg2EAnTiAC8IrmFbGz1q08P9PSkjl/5bqzYqT9hMmptEXDgTqP3Wiye+sD4Wir4jCeoHbbp5hRfpB7BakUIppIlPCD30dR1GtslDz8OsqbXmejFC/v8wu5X2myq7SJ8Avzv9DFUJySf5uNvq4+Ti7W9D/OZrLChdwxmPNiBRqVjnpK/aGxRCDspVYKAW9AN1JANoo8wP4BJUlGqdgw6m1qPQ2QW3+OfU5/ieLS/NuKpDU3uf8bcAXyBal5jMR2NEAbPAZt0K3hvxHBEDlUxfIGcD+N2gNSNx36nfqlAYow0puatNpRz0e4W2oahKzQHsjf2c16ad/3t2KTtPobnX6D8C8pd0MDP+Kx7wnXqGGlLQcvikMErm6TmfsuxJXbSAxqNjOogJLQBLiKEHAE+JGTS3JoEhTrz8/CB+5YlupJ58aOat8Kv4JvregxwcU5Cp8GFAFm1FyOfto6GS2m1NGTS6CPNKkbsTdCBlnN9onMho55BX8IJZtEQ35lk+htwN5A0V3RCPoD/yXAcv6pAtbZczRUA64JmcUf4q7Q89ZHLeJVZ5D1Ps/t+0iCT3AHVtZC7JDCXfR7OSb/Xja5H3zQbZL1B+ULX1BMTEk3AseSpmnKEK4T9ekMIidUCRQFfcbj7z8gNLvzF7mbhQN8h6ZbRset+nQWdS/ZX3k7WpS8P9sfo0iGS64wV516pOhjI6TZ2dApgI5+LhxywYoWxKUrykKJsIoDsR4mSrCTg0egMPnLW/3Q5Nn8BZEuzqEI7HK3n0+zFmuO3TtWQ5WJoG9YqCD6Gc32SxnbnVPfsxvrFXK2dILl7bLthDp6glhcsfp4bYvbSmj/mQ94uBTw0E73x2jbNRCvC6VL6GCFDwU7eWQDcC5FY5s0slieRDwtAbRsbLXbaXAuu14e2OJw1dc6jQ3ZdY8v7rv2/BWZLqvFWVvvcmwZkK9f5jS4muO9yR5res4kfkRxhV03L1RfPOiPtYi8pd7jNEsOpyTwxpaY/yCZu/Amd5Or9uS3DYaeqVOhH7gZN/8I/wi1fEuLXvyNivibjuKvN+1Nc01HF/3h+ef/sOhox8MPd5SFucPjorQwXT+ytA8EmA5mamHNFDVhBI5pjZbQpugBNkO8MvRub8KVDKST1Wag7D3xlin1ZF7LFP/79nbvCXFOY+PUjrT7/otsPXXZ4exdPzuhZuL5LUXVAn7k7PbhG89uz3b41X01gbjP1xwlu5rrvvf9+pbs6E/Vu7Nk642/PYRaAiUBdrmO6CDTBLPQFA1ur0uXoBR1INDMkypKpoTqnSMx5GiEdTEaSHLs0Alvu/19/5QW9Rv1U1ridT22i+53pzumbs+XFFXYC++CGsTj5JUT/GCgRt3n78i2n71FHG4/u6X++9+raya7os3ZbDmgWfXun44e+u2NZKuGZ0HiF8M4TlMPR+EU6rPKRJ8wOU2RFUFLex3egEsz3YqEAq0cqhAAW19dBZIlVzR61tuIdTnpXH7l+uXrbjPUyep+8cl6aXKWhPHpDcXl9KiTWDNr4mBQc8Tq+NzK/OKSbsfl79o9G20R+brBXYvUg0rLHhtrc4TN81TTOWSZ0gL1ZVlOYH2ery/7XVUjFMbzYpg7UswcqJPQwBd0LKLabJ8IaCr2otcjSkIrGwootKECaUd4XH1+SdazRrfddkBU98t1htvWrbjqSqjaCguxrffM/5zDCpBALUycmajhd+R6ww4SWafuZ5eU+tPid4lgd3gt+b/Y9rQoZNmiXYPXyRHbRs8zX/f4WIFjWZJtUdSD55AP3xtXH+ZipC0EqdBGDA4CoYEU6gRLGPU11QhkLTBiEYPiqOeQgwTCl9aok1Qr5pFf71qEeNxjy/8F0GoqYPv75Yh9j3x4DuJ+uEzHRpAq2lMqb+qfTdiq6kGtzfOWsv0c7lSeMXDHBDe1MT+LUgx0Pg/p87u2UicdIvqQi8DkxhcUwUXCedMpb4NQjwY3npTmgsURJavLwCRyEcN2HfWsDVGfv/u9ZUWUx+PYFueUKwaNvbtu+Xps3eVWbN1GcgVrdMnWJ7WmJz9SD66EBidag0NF1Ukep0t5A7sFCWdhzvYwHv6L/BehXuHqfaBwBEU7hfVLcXvS4VQv+T/vaSIl7cbeMc7ekv9i8S3e1L5xxpvMGcu1EYPbKyCiijjGXcDKckm43PqU2qNWlXusZMiqF82cuVzolUHN9NNR0HZPxFPV9V0wLtvq+k4DqOwVWDlzuQLVdqFiP08cRX7aRlBVfR8cb55bWe5LExnlcsDp1vAP8Q9BucPMk1Ulh4GnN0SAdxcNHv3q9ohx1Ati4S/tkWjIDe3hQdkUGrGRaFBiUdiTSkI41UkMuuQHP+EaSQYlPQTFWJF03BNPpTu5KFAdkWgDukzsZKMG0Q1TAQQglScOaP/dsZ8+fP75D/9Uu5Gs3FY/2SxPld0DHOciXI9gqjcEidXjE+3BLosy0OcX3T7O5g65ROGyzQ2BZs7WbZVnO5ydLe32hMwTQ4wnnKXW6XW5LAa7oaXOIHoUl0FgLQLH2by8wSTWeAx2Y5PDazK3BqZbeJZwXGPaYhX87ZNszoDdaRxotXO1nNlpdvAPFWHDm8PqEE0sZxDEqGzxisFNnuCWetPcGrObN0p23tTZwMuRVodSV8+LTrOV3eRvzjQZiSjaLYS1WEJe0kNsJlZu9LFun7++wW4gRDRbaxw2nrOGm+xOj9cmtbp9ZqeTM1m8UXfQQCSTVSQox6pvtjot/FpHvIUjJovFEoYvHYV9C5Y/xN9OfcalvII37UEhTbTg/AQIaPb4Vz6j5u8/aViycMod/fkDcpu8QZbZoeBi/vbzP3XPsZvOubMtaPHkD9jt6+U2O7vqU/9C9SMvgrXpQNG/E0oJxun+CiElUa0IKQSUwERxOntKSV7ekcuh9VBZBBo3VUcB58ofKBHCwLyf9qFosz9Ibf8dGqwaBMjRig4SGOZ2UkWI7UiO9OfUPdxOYFApUZyfpY7mgEc5rtNGGk2H1lPhAk1Hp/VAMqQEHEUfEYkkUQq1JMdzsX7kklRrTrUi1wMcDjmu1YYfATj7Y+pGpPEBXuoQIj8rR9mgCl4C9yqmF7xnVWxGVniNqtpVmXBvQ6iwni5YQ8a1jYrXtc2J13HvgkvqWxuva1sbr+P2S5ceKGyBwDv2DbrToe1u6BkAJV7xnVLUaq0sJB8pFqcUIPi3yuwxi4JuLr+P30f3OkPQ72aO0xYo3/EsmO3QO5qEF8S0qQH0UsKXv0brnl9+8M7jF174+DsfvPOl1au/RL5/9DsbNnwHL2pHR1NTRxMZhJtHktOOxLxErPF6YlLvpC9YP73x+4ofw+3xVdrHcDE0dQQCmCRgvt9b35xINDf1CDcRSfJ+pYl+Sf8YcurfmXP5F/kj6J82jNsrkWiEuhVlgFfyNkB3S5MUzLhoNiwSCYcxQ7Ui4J0Xh7fmqRbaPa1tzujxkBRlsEHy0/OM4pYLPb7g9O6BQJN6l9zQ0OGyCaZz0vMTbHOzXfQ7a2tsterTcqxeInODoemdktw+1SbVhKwtW9ffe8VKadK0OVuC3bWzyKm5LeddsWTeorWyY9IMtUFutdu5g+Rn533qkocdvLs2HmhU75br/MmWtD8zA3OP2t1ea636jEzqYxJZGAwFiDEd61oTsrRuW3/3pYNi3bS+Rd+GjOfVpAPNd6y64Gsz1GaZleWIPoYL/v9mTeQBENVEguiF1aC4YeXxFETw6QyPfn0m9g8IrMFAvKM1EI11DARnbqibHk/Iojy5rSdgCyZi06y8sS024PeuO4MfwQ5Y9yKRZCqyYaF30vzeHlmUprR21tR0t0yz8KZY66zWuGvxVQB/36kP+K38t2Hu6NQ9SFJfw0AdpqPEK2qTMpf2VCqJwqPoJezTL824b8akoL+x03nhh+oNo5e77psxg9Q5LzebIKD+fsY34f2MtB9fk9v5b8PT6tYrgv4kRPwd0q9z3gdJSJ0653KjCYPwCaR5aUY63eW48O/kdo33yxX9wCiMv2QTrk8eGSI6Ag6moG9t2P/F7GRNlDjl0gw7pJ5aOXXqyqn8SENnXBmbSwUYLyqJjv3UmY1nKr4t80no0faXsaIEiF/BRaIBnItSce4OUif7W6Vm9T9H1X9Vj71BEm+RdmIJQST/ZfVdudUvh9S/qqNvqT98g9SQ3lHibZY0mRVHooyDN/FHmTgzjdozKw28NwQ0hwN6BCoPKaEk3YtKwNhwRLXuk076CGoZNXDQcRwZvreTZY9EZi+d0s4+ztv8iei04JQl6ZbDD2eHV7X4uHuFVfPrOmcs6m6Kr7hssr+1VZFcEZ/PdJkn1hOs8SXS/NFFgqt94PIZzZ3tdaL6Q5vo6piSzdy737pwsX1VyxUrF15iJ4uNkq+rbyg1Z+O8VsNC1UmcvORPRfxtPrfRwL2p/oA1eZp6Z/aGffoewaXcA/xBlKlQLfhQL/oPgBGP3qsA7IQS8qDVNswHKRSheDUvA3Q7MZoRcJMxlEygujn1QdyzfPfq3dEp/bXh5e5YXW2Ngfvza0ZF6UgFL/E0fTq4LBlvTE2qb/KuuzYSXVnjTfM1osvqMHVbm9950quIZlbqaL6YP7jk3kUtA0GnX2nvq53f3WoSsvEdDRnULgo2fN7lNZJgI8/VWi33c3bBZnGY05+dm+3qc7fNmj4YGKLj2nfqFP+g7jdDlxEV5XsJQZP6hYrS1l0VQr4c69Xueixp90gnZPmE5OF22j+SYEWHlZ0K/Hgsh/Ztsbh6h2DNRlvv6jJh9XaJaHCZDiUDKNTMkvb8vsqCyf3ZNdSmO0fa0Y4baJTtpbKzuVzeeSI7fCKr2Z0WypapnXJ4gnoWy3PoUIlIQ1TXdqhQJIXp9Wx5fYdpeWh2TY5D+YVyKd0jw3iumwi/BC3cEy4o83QlZnW79MrCgCjbhWXBlRZVVZZv4rIKpXC01HFlHdHLoeWVl6UVc/J5uGm6CViW5mulYMk+HqNYr0AyUPivLg2oMs2MPqtuhHyRyiwvNJej1Br+fcLyoAyu8D9B7bgmzUqfFobF5nKnK4+t8MPJkI/xHUNWk117jugWF+xazTAALQn6+UE9lhoI5ApGA/iuJOsrlNP28SVVuBVajXmircLel46w2bJS1Q0Ft0KDuikDFL/3pYrid1Q4FvofwRIo4R9h2ftSwc6jHAMqLcCql8YPHtlzGoByNXYN6v8hXnRaOhUvx0sVLCexwupGDR4NOYC7PePa5keIPACnuAdD7dEadRuTIiS6Lb7uskb381My5yjzF8lGCjBRqdwrWJCagfB3yCy7XT1i92hbcZ5Ci1FJkgYMDf6n+jspIsHFjJrTOdzSMuOa9DbDcj/nH9N9bIoGVgzHPWIQuFuYtaMRaq8eCKI0gEF6lPOZjBz3EEvaaxwSUT9U/8JbJZPJJLBLolH1La/RbF9AbC8JJjv/mMnssKjLRBJyqj9QXxNko0Ux/X79epfiXkm6fmKwF/en1HLc6LxloXWKvGa5rVCVL83VuiPcDEX/K5pTXOxHfx6HHB0t2FI0qI2rCZFTrvPWU67zVuS/kTsLnc7IKhFg30e4FOkqNSfH5PtkmUy6Cpiv/36k2sbqCeCFNa+URpoY0sZoYmCgCr3qgZz6s8I0gP1bYiR+D79H56NOz0EVWCTy2/fffvSCCx59W7uRV9995eqrX8GLesOXNm360iZ+T/El3uZqL+FyzSZ8XxpTiI/G0nkT4zznFZ0t4ipMz5v4q9ssqbdKUZt6u82knPCrt6PZwsnn0XySVnyPR1ZXAn72yx48bWJsu7apnI3Hy8bygUK5Js32qcytapqgmn95uexccj205vGgJ+euOeG2SORmKZr/qKzcx9SFctMJdwMUFZDJITs7dnOp1EKZCxg304Cevyfya+vlKqv6aXK1qIj3imL+L6hL+yvUlFfE0VKZ7E8gBY3M/8VoJCFgizH1W6VyC76nH6b7jiibYVxUmVIEspry/LgZIlCeP11Z4zs/AwvVwtGFEut5S1JY4lfyT0N/evOLo+rUEgjcqc9IkGpQbv3iW7Co5b+KgjvpzYdH85PLcc4X21ouwEGl/S4qnUAvoSlXUUhR1eKr2VWFTB+GMl6FsiQsVD1R3urlAAIoSn7JQkmiVVCHSpCwDH/qPepXQ0Db77CJOAImohB+RPWr31ev5g/kE+zTa4lbvZo8xdWPffQu9yJTPCNB66s+zXoJt/0L6hSoCuBIoK8fnBGG87OoRckJpLqyWe4YbpGi50g0+3I3UD85Oa0fzubfoXxPLbW3FDWzigmyJeM0tQkax7PqTy80+UxfUHPlBZIRVNQ+v0xRm8REKPoLmNr0+Uo48v9GFbXPKylqQ2IKm00QddgyWGMROCTxdLB9nCY8P7j2DjlsV/+mfr0C0r/NkeXbbpPlOTBBwT0mVz1zx9S/wJecBF9Wgv3p032iP2v4VSgfgW2G+HUEdEXU6iq4CtpLJfIN9XQG8dwa1VoO8XC2SrPDDyCOQptXgbcPvlAgBfxBoGwftQKeKFrNTASPt3pGGqDt/QRasn2kri+H6L80MJRsmVYJrAKyDItpJUy3/15WYIJqcJ9Q5N/LFJ4c3dc1URpWl9hW6mu50MUIelg4ucTPf15zs5DFo1c0VSp1tKB9jkwIyuM45kb+IP8gHed+6jO3v0KbIknzLy636E8KPTdCuUpB0wLo9JKnAO6pv0vS31EtBha/fJemkgLVVnd8KCk4qBTpQ5m7FbifBKrPJcq0pZAFVG/XbOFz+Tcq2MLrcmV28Nmi/OHskh82bau0k8eWCaPijQPWQ5lUvslwVCfHkXBMIehqUgtDNLeauH1huvZTbYmw+luPjyWoNGEuxRLR7LK5fSyXFUyK7PURQv2v8D3XOt2NJ6liBbmPGOsakw1kbeOs+31Wm5qpH+iJWSzqdPr2O7zc2TmtnrzCig6bBd/vgQmzOlz0STWIlmZEQfupogOZFHUZ7EkUnMn0RrpIMqAgHRJAOjIJ3yGw1I/MAp9q9S3Q/clADNm1wEeO+xbwg5OIYHZLY3ehG5lJk2xhco+6JWybpEVz2wrR6hZyD0QXZbeDVB+onmlimpkWprdAs4WEZDSQppsDlcdCBJJESIYFuAtUnC4GIF2C3Uu2Kv7L1bdz6FxtqxpG4TqQOqOUNAJ2HLvPWA2GgDy4O4vaDrtyl6P+1fAll+SyFcQ28GHqh7fvvf37udylf0fNwhzgz87Y+cf5x9GnF6ygHu18sAbipWeF0YPBgp2GaKeQduxxdEr3SgbH1kvH7tvqSLhedomOvZyts2dw8acu3dY/f+ucuMtCuP/e4zC4XnH3OLZ8ZuxTWxy8dJfU5dhDeKPSlJy5pn/+7u3XrJhmr9C5CuleGflGQocKnlAUaRKp0BAHV0ZwUt9VCqk6zYOgRIuMfePJzdmBdpPJ7/6B23+f+sp9NMDZevovvfYHG5dGPISQq1DojqNckchVrCcCYz/Q0hI0m3NKDRfkgsrnamo+p0CAq1FyvC3a3Nak/s5VX282x9Ufy3E39VAx6o7LpCvO2wK+ch9jNqpJCutcIOooKnYWtDK8gTRVYygRQfwgzKM5+jP2jOZdx3r32Py7rQUPOzAnoRs95NvRAR0qLGU11Taqu1bUYSzMcWjMEir067JQQHfIrLBHsrgv00/Wavd8HRLMEEYFSW3HCSNQehnrHztKqHcDyo4VfZ6gPKCR+gufwA8GegxUEo4A+gd0BASHiH6jYMLIsUdQJTs/C641KN4oCHWolCMLlMfIdtWKScjx7SM5LD9HnfmhrGI0S139UWfUnxgOXdJFW+AMcGjKr6eHAttHF5sUoeArYKDcxMSYcKA/xUDhPiEOEAPafSIUFArN0r24ynI91EPARDXvIDYyvqZaWeroBOUABQA/E+DXC7PWafDLQY2oiwpUEyj4RQtVlUp1GrM7In2p2A7VuiOW6otMiGOo5Mrp05ejVuTy6dNX/k/7mybZQ0nUmfrbx3U4KueDnlHm5wdh8FFeKnoaKKh/TK18StOPhwG9Xo5mqXAxvw/79YQwwDR+nAKQQ4izVXioB84qcppWB7IqjU45z4CE17OvF1Dw+oTFqxtz8dxwtogBnF9MjIl/in+K8s3hM9laIn0TiCbTAXL0T798bPXqx36p3chrv0O+GC9Xaj48Ecv8U8UEeBvUEsDlTepiU5OvlpeNGvpnKF0RvUooWhIjnx6GeBapXCQYTw9DNg6/OC3gZjp76oNTj9Kz6Jqobxb9NDqc08vcKReOpcsQV2K8InXFaXW3aI6Ofr1k48rp7CX7rx+v1UKPsfvzQU0Kc83i2VdILmd2/yX55zT9luN2+Cu4nKfwPcK/CvDVU+pHh8+LaldIf1fA5h3ndT6Fln9/W/9Ce1vndfvJtnPVO2xhm3qbafHVCN1X363UXHq9xuVD8OSD29Z8pZ5cZrern9cAdGW/uib/ud+VK0L9a42r6C90kL8KzxwLQw9NkIQJL0ASU8M+VG0KsUdgdvpgP/6NqqP0/gHZFUfGEijZLHpiIgvV5/Bltrj8Qd7XQd5p4P+7tJo30NMO6VGBwahSPMYiaaBYoLY6uEnciyhhh1Z/vvacG/rjpsvnpzs0B1Id6fmX8119l88XnOxe/uGrzzHcdu7UtY3+2vmXN5zUyj3ZcPl8p1sZSs6/nGXtwrV7Ka0XZdz83fwjjINpZWYw85lL8BRK4nGyIir2RiOsEyipuEcIakpGjWgBjLiHWOgj0Yi34gW1kKPxHt2Na5q+lwg1RdRSpFDNzosb44YJXnAfoEOpZW//6u1lhYA6leevezbI26zNHO811M2dc5HFxpk4i1jPC0s21/BWW5DnPQbn2X1WK43/aM2n18DfSoybbNHijFpamzXI31eRibGUOxSu/lT96YZlq1Yt20DaSBuG6knw2eusHs5EPBfNmVvHKdaQzcDfz9ZsXmLDWGXy2U5OsYSsIn8CS12jQIyD12KKqZrLPy7mSPdICmd6WGHG8NDZkkHuE4h9TU8FpmUO/VjC/EinToFyoNDz2p9XD6g78WgQdPG7Z3R0T/Z5dTM9lsL8Ktek7szl2L+gQwGgwkZHc2g5Su7NvVqwGy2Ua4KSXUwt1X4PaM5paaEu6jQ5zVFyNabxvUksVt2T/4VeamYPlLtffdQsk+2sUTY/zDXl/05W53/Bz9UK3p7LjapZ2ZxOm+UlZXrL3HHGqO8+wVroDaCTTnTxitMxmiAAYQzVJQH+nj3oIHnPaN6Zq6sNSLjBl8tKgVr2mj/9CWi9dnKca8rBQBsd5R1tzVlgrl5pbnPw6kZclCr2CHxMnHohLz+3KRQokzALyeIKFU1TNCiayJdoHvDYe7K6mZLm8S3uJ9dojuaJ62/qN/tjQxnSnhnKPw+LNrLi8ZKyJ3x1YhiI1aNAtP6NzCGzYv3DmaGh/LvQZnt0evgIhTFV0kE/PYxAnOHhCQUZdCWY5JWJwMzlAGl1mpNbDU7yyGnhRMILsYhH3VRAijrPcBU8/Cj1Y9NY6cnGVW0CjTLaz7E3epvaT/LtTV72Rs+0WVVmd0dz/MGTI5F0OsIviaqDlbbO5X6xT3PeXbXHRtf/z+fdka+eKPr8KF7IF4vBsT9MFPuPJMBTBMq9hQxXelQ+bewnf18ap4Ib+mSMrtDU5zqlD8QANa5MBGh/OwOvSDfcV2d66mfEWsbGWmIz6nsyZDWQSmqmxDneYyvjHPmRXHZxeueyRGLZzvRioKnGto9nIPkibAJA16adcOZRQr1iAP3bUyBR7T4RgAWTKxhkCYFwshq+7iV9r0whk50cmRcTg4fy5x4OmmNkHndIA2+YuMbmE9dwGYB4KFTsvnDE6Ah47r/fE3AYI+oXADpkdlENcZ8OZEEf8FFGZNxMs6ZLpG3SUFLL7Q2kcFU/A/Jsw+vWDa/7emewLaoeibaF1B9qUNnuqWK3+UfXYVL1v/omD15xxeDkPnXTOKSVcCbDGtOu0YQNpGAP7U1HU58UrqGu8xIbHtkQ3LVhb7Dx46ET3Ffcm1q0YcOizNmf3bC3VjWfAcpSv3MyTlgJ23FHQgmgvk+gk8pL0mcCDOn08MDAQlf+/SlTZ1z12fnqntOhbOTL9/ZdevbAPN+yby1f/uUtC/ixm8ZBo59LTXEW060hGrTDplNprWd58fwB/b/E27BdS/s7U+rGVCeQ46nzaw9QccnmZerGZZs3Yw9aVHt+Kh6HN4ti6lxIhT/wahnZtWwzlY9QHQ2c79C+dxzvVDKy8GqKWQERO9YAKbpsDUTLdWV5dE8PVPjvj9pqw7ah/PFVtkit7aj6G5xY9mfJrCz1j1e0BcnPol4UjtrCdbahIVtd2HaURujnFJR8CuOuUUfhrGhgKKgjCYNSvCc1WKlEp8wHUaAYynFNyzZn+2MnYv36dbMDBTonl/T/ma5IKAyEGz+4eRnVtaX6tss2o34u8mWorFtuFgm4A6qK/yp/gLEBVat5WnPDdKA574ubuFJ/IUfZ/Y2Nt6mN+ZNNTSTaeI56gKwkXerTe9DDHUw8/H35FY3nNN7GGuBKWhrV9ep+0k1WjNWVaHkW1yA+QHWNu8rtBw2a5YXuE40rs7/GA+j09V3hA98yRnFPOGr8ltGlsFdD/7tRce3LH6Trcneuiy7K7J3khKu+3qUaXPWaX7T6/Kfj9BX2eZq2XAcZT79u1ClJzUtHUqfqSMWBcZS43Ena0cUGLgpkKxB1QM+0Fxz10wgg6r5rltnFpH05pepUq3Y2HfYqeKRntmUFNz+XmcOs1H31U6cC6RTVLfCg7RNBF1UF2/wBgu0fFQtPEU1sSg3VcNsR7dWq3af87tUFn1l3ltXpaJxpNvtcZkH2WmMst3JqRpxUH+WC0E1qOGtP66s1MYv+VLu8/XFXvV/ZbunYYBeVN64ls0ur6NzpV9xzlmQwB5qC4Tq70WC0tk8dWJXeHvkD0h9zJOM0vD86/1NJMaIAolctvlByferCsqOKDKceOfUu1PsmoFCamV5mCrMUOCi6V6FJosMF22AcrKJgQDVhfYh6tepp/lYgvnCEAbJQ1L0rOpajEmRcasMiPfxhgGoVo4rwreQpV6fUJHH2e8fa1s2c13Apl1b89a58ozdoap2sjgLN9uISl7P1DrulyeIkt0zr6JjWocoPOZsaXPb6jtqBblsgsaRre2xHi4nELm0MhG1+x1SXwLpFi53b+aHRYo/IrbZtuWAKu5cSEXfybnnmUCaXGTpQr0xK2O2WWY76f+nAjNVf7nCZHU5XqIkTnpt6VtvsFlPXg1031g/VRdpkkyVpD7jnmax88QwDvg/66NnMRdRXTcGTmQc3cuINwN5IQqi0yzb+YFVHuVqI5s4ADfg5oE4ybDLd28mFSFmYvRoomsWXEdLU2Wl3GJy93ZNb/d5gqmNaqJZSO1l6PVRy0nZIj/45EetjLguh1rLqR+SK0hO6NrsqcNX8zoUdjQYDJ7tb4os6+i+Y0qpY2AWlnLRDWdGFTfGY1gV0zNAtJ7pdo24se0D88AwLY/gZmE9iuP4V5v7CSR/RThaHLh+UeBkXwU6BC7lGOevK65udTv+tS/PfW7qj3ljTcj3b9OkbV85t8xsMj7Ddj7DGpthZKwKPvso/c/1K9aLE12fMWLV1y1D9ua8lyJdWXr/bG+noCFutf/mLILe39ITUV4igr3876fpX5g2zeB52sWnIL4fXHlgeUzOx5QfIvJQyrKQE9wHUqVq+PEaOrz0wVvNbJZVSfsuMzxN4l9PkedFzw9V5Dj+nzpgoT4ZxCxJfC5RWLc74YVHxKlExCYt0JAOMatREhHBSCAtSfod6x6Ls8HCWECLwXZ9nd5Dz1T24JUdWs6fU3++fcnT49Qe+kBs+wdsMZgPXMp3U5S958snPP/EE7bvkOPCuTUDTUQ/UzirLhML9yPahoe1D5Fj5jWsaoveyP00PehdUAHk/seDVWsvDWXXXsyn/4wfpXc2V3/Qxli3jl/5hj/83avSCfpTNxOEKLmTjxOEKuxgNlsQn0xgct724mhynupNW1Ph6o3RYS3/+2TJrzLlkFz+ip3qCHKf6eqW02QJLjBYuuj4sobhCWqa/YHGEHpcnumuWSOhxeaL7sOakNR6vvmo+YcfFA8UFXEPZf9UjyudIOyNwx/i90DdsujS/FX2UAwvWSVK4NxaMhAGw3oowp/uc8CTi7D2rBgZWwb/60faR7SPsEbjkXy4G0XaqhXPwe2cePjxjxuHD6ssQuR1fq6PF0E+o2t1nePTn8TUmxz/A3crMoCc7egESuoTHYc7mYdg6etORoOhR7BBGD+qJopELrl4S6cJNRtEAsLP/OdvnJq0Wo0GolY2Et9VFB2Kf+4bZvVyxfOMz3WdFfSIryj6DwWghre7aQbdiDrkTL3A3vNDuDpk93HqXwam+bWmUJZfNn5ozKV5Pmmq8PF/jVY+2Tlk2M2RzSXKjmbQ4RZcQavEYrN/9rlXwtIQqzxQNMzPPfHYLvuPoO9TbT8bpGw5CQPGd+SyX/Cyf0Vxjd2R9NmsunnXYa8xGHzn+sSfM5J0y0DZEXWWxkXjcR75KBLNLHi7XvX2G8VOrf4Ykg0AMdBESIpo7MgAfyakA6rkqpI6UjNs0px7cMV+D5BF49Tez1VGnYmq0WIijp985m4Sn2gJR9b07riPPFo97OYbUZbxJCpot7H/lpZBicglCPN7WOfJkcHqc3ElWqvvz/1E6bIQrG+tz6WkM1SM9FBTR7FSs8KyBBytSmNEoquJNFN5EQyTiCrnKDx1h58yxCepPHU5nxGoxEQeeOZi2m80DxNxncVhr6BmEfUarxejw+WSiHhWk19bSY7aKR5MsteblJpfTLtjimBouXsm3d3djjYM+wEW0El9dM/ueVRWIsXwe43R7SgbVZqrnqoJ1X/kuF7pcgf8duv4q6vayV5U9zMV91GxO59UUjW8rHV6u799WzKMT7umRCXbYUKM+foaCcwgaoqZUtmodV3p+X7akb4dnU9B9La38RPFUG2SCC90tVA4XwEFhyOpZZrUCsgWYHsczLFBBVGNtstoN1bw0Z+O4fYIbvZVt4EUcJEKOhHeincWqONw+q6w5Go+WGOSR7LhKV+KBqbBPpfUvOf9QqkpDyVhBeyyZQGMsdA5FBUqvFMtUyGq9vjnsAJU4UcrxldP1CCaofyDkSAifoP5QwWx+SyUGxp75BzGAvtG7uQ38LehlyEQMeh0TeE6Bm7tYdXqdkt0uOb3kfYlNwmOdDyacOq/qlFo1v+PTmTi3E/glC9W11b34A22zmLzvb231Q0L2Bgg60OTW4YdstO+YOJnO38TtpH7zy9ymokWyA79qlVSn38HtpFlImFnhu3b4boNWXklOXV0Iwo7lQ1hrZyPFcwtjwFP7iEKSHSSJw509kh8kj6pr+H1jR7km9vcvqN9657vffefkv+fKxge1X+7RdjYUPIESN7gTvRkB/RMYtEkaVkdHApmdBPpnKmz0n1xSWFOyVIuLrinZwpoCRe6kyiVZoHX088F+UX4+WKS4iBTP0IWxGtZgOdMaV4KTayqHQF/VihBwTbgDXTCmKoOBJeNhwJMzEVjtjIFLuU38fPR7hqNG1JS7g/qRCuy3vmQ3W9Vu8qbVbP+SzazGRJH83MzP90Ck2m31mMjP8TiLn5uwD2Ugr2PFvPQjB5BnSJvQxGQZZEB+LopqzGzDbMmbkAPkZVJjeO5FzOSBKCgJze2ZS4Gemc9twrwY6u9H61iUQTcRvtdT9RW3tRxAWwFs2tcuJRnI6xjmBdWjbgFNRHMHiF1uHYBfUR/ut5Ug2jXAaT96+9RH/FToRwIzGbKmVJ1AZQnoabSB1yyIg7ByAridHApPMjyw0OiV6RjSbCuzwLAvFizBliWJua1tsuAgvNPbmljYbpt8lkWam7b3XZiOiKJskMOtmfScnsbPW208knwjuXrXK4Q1iKIgNyYXXDVT9C2Ye/78GQ5BEEXfFdde2RwauOysdJNL5AzCy84ard/nGAVN8alecnFdgu5Gbd5DJTL+hHZK0vApVy3OfU8XTSJg1TlssivsPYUlIqvn66PzrVTymCc4wgF6SDNR0pDf+9Gp+VnsUH5WtpHYsuhOaey8zdwLN47V8MTbm78g687+P3cx6tcAeNpjYGRgYGBk8s0/zBIfz2/zlUGeZQNQhOFCWfF0GP0/8P8c1jusIkAuBwMTSBQAYwQM6HjaY2BkYGAV+d8KJgP/XWG9wwAUQQGLAYqPBl942n1TvUoDQRCe1VM8kWARjNrZGIurBAsRBIuA2vkAFsJiKTYW4guIjT5ARMgTxCLoA1hcb5OgDyGHrY7f7M65e8fpLF++2W/nZ2eTmGfaIJi5I0qGDlZZcD51QzTTJirZPAI9JIwVA+wT8L5nOdMaV0AuMJ+icRHq8of6LSD18fzq8ds7xjpwBnQiSI9V5QVl6NwPvgM15NXn/AtWZyj3W0HjEXitOc/dIdbetPdFTZ+P6t+X7xU0/k6GJtOe1/B3arN0/pmz1J4UZc+D6ExwjD7vioeGd5HvhvU+R+DZcGZ6YBPNfAi0G97iBPwFXqph2cW8+D7kjMfwtinHb6kLb6Wygk3cZytSEoptGrlScdHtLPeri1JKueACMZfU1ViJG1Sq5E43dIt7SZZFl1zuRhb/GOs44xFVDbrJzB5tYs35OmaXTrEmkv0DajnMWQB42mNgYNCCwk0MLxheMPrhgUuY2JiUmOqY2pjWMD1hdmPOY+5hPsLCwWLEksSyiOUOawzrLrYiti/sCuxJ7Kc45DiSOPZxmnG2cG7jvMelweXDNYXrEbcBdxf3KR4OngheLd443g18fHwZfFv4NfiX8T8TEBIIEZggsEpQS7BMcJsQl5CFUI3QAWEp4RLhCyJaIldEbURXiJ4RYxEzE0sQ2yD2TzxIfJkEk4SeRJbENIkNEg8k/klqSGZITpE8InlL8p2UmVSG1A6pb9Jx0ltkjGSmyDySlZF1kc2RnSK7R/aZnJ5cmdwB+ST5SwpuCvsUjRTLFHcoOShNU9qhzKespGyhXKV8SPmBCpOKgUqcyjSVR6omqgmqe9RE1OrUnqkHqO9R/6FholGgsUZzgeYZLTUtL60WbS7tKh0OnQydXTpvdGV0O3S/6Gnopekt0ruhz6fvpl+nv0n/h4GdQYvBJUMhwwTDdYYvjFSM4oxmGd0zVjK2M84w3mYiYZJgssLkkqmO6TzTF2Z2ZjVmd8ylzP3MJ5lfsRCwcLJoszhhyWXpZdlhecZKxirHapbVPesF1ndsJGwCbBbZ/LA1sn1jZ2XXY3fFXsM+z36V/S8HD4cGh2OOTI51ThJOK5zeOUs4OzmXOS9wPuUi4JLgss7lm2uU6zY3NrcSty1u39zN3Mvct7l/8xDzMPLw88jyaPM44ynkaeEZ59niucqLyUvPKwgAn3OqOQAAAQAAARcApwARAAAAAAACAAAAAQABAAAAQAAuAAAAAHjarZK9TgJBEMf/d6CRaAyRhMLqCgsbL4ciglTGRPEjSiSKlnLycXJ86CEniU/hM9jYWPgIFkYfwd6nsDD+d1mBIIUx3mZnfzs3MzszuwDCeIYG8UUwQxmAFgxxPeeuyxrmcaNYxzTuFAewi0fFQSTxqXgM11pC8TgS2oPiCUS1d8Uh8ofiSczpYcVT5LjiCPlY8Qui+ncOr7D02y6/BTCrP/m+b5bdTrPi2I26Z9qNGtbRQBMdXMJBGRW0YOCecxEWYoiTCvxrYBunqHPdoX2bLOyrMKlZg8thDETw5K7Itci1TXlGy0124QRZZLDFU/exhxztMozlosTpMH6ZPge0L+OKGnFKjJ4WRwppHPL0PP3SI2P9jLQwFOu3GRhDfkeyDo//G7IHgzllZQxLdquvrdCyBVvat3seJlYo06gxapUxhU2JWnFygR03sSxnEkvcpf5Y5eibGq315TDp7fKWm8zbUVl71Aqq/ZtNnlkWmLnQtno9ycvXYbA6W2pF3aKfCayyC0Ja7Fr/PW70/HO4YM0OKxFvzf0C1MyPjwAAeNpt1VWUU2cYRuHsgxenQt1d8/3JOUnqAyR1d/cCLQVKO22pu7tQd3d3d3d3d3cXmGzumrWy3pWLs/NdPDMpZaWu1783l1Lpf14MnfzO6FbqVupfGkD30iR60JNe9KYP09CXfvRnAAMZxGCGMG3pW6ZjemZgKDMyEzMzC7MyG7MzB3MyF3MzD/MyH/OzAAuyEAuzCIuyGIuzBGWCRIUqOQU16jRYkqVYmmVYluVYng6GMZwRNGmxAiuyEiuzCquyGquzBmuyFmuzDuuyHuuzARuyERuzCZuyGZuzBVuyFVuzDduyHdszklGMZgd2ZAw7MZZxjGdnJrALu9LJbuzOHkxkT/Zib/ZhX/Zjfw7gQA7iYA7hUA7jcI7gSI7iaI7hWI7jeE7gRE7iZE5hEqdyGqdzBmdyFmdzDudyHudzARdyERdzCZdyGZdzBVdyFVdzDddyHddzAzdyEzdzC7dyG7dzB3dyF3dzD/dyH/fzAA/yEA/zCI/yGI/zBE/yFE/zDM/yHM/zAi/yEi/zCq/yGq/zBm/yFm/zDu/yHu/zAR/yER/zCZ/yGZ/zBV/yFV/zDd/yHd/zAz/yEz/zC7/yG7/zB3/yF3/zD/9mpYwsy7pl3bMeWc+sV9Y765NNk/XN+mX9swHZwGxQNjgb0nPkmInjR0V7Uq/OsaPL5Y7ylE3l8tQNN7kVt+rmbuHW3LrbcDvam1rtzVvdm50TxrU/DBvRtZUY1rV5a3jXFn550Wo/XDNWK3dFmh7X9LimxzU9qulRTY9qelTTo5rlKLt2wk7YiaprL+yFvbAX9pK9ZC/ZS/aSvWQv2Uv2kr1kr2KvYq9ir2KvYq9ir2KvYq9ir2Kvaq9qr2qvaq9qr2qvaq9qr2qvai+3l9vL7eX2cnu5vdxebi+3l9sr7BV2CjuFncJOYaewU9gp7NTs1LyrZq9mr2avZq9mr2avZq9mr26vbq9ur26vbq9ur26vbq9ur26vYa9hr2GvYa9hr2GvYa/R7oXuQ/eh+2j/UU7e3C3cqc/V3fYdof/Qf+g/9B/6D/2H/kP/of/Qf+g/9B/6D/2H/kP/of/Qf+g/9B/6D/2H/kP/of/Qf+g/9B/6D/2H/kP/of/Qf+g/9B/6D92H7kP3ofvQfeg+dB+6D92H7kP3ofvQfRT29B/6D/2H/kP/of/Qf+g/9B/6D/2H/kP/of/Qf+g/9B/6D/2H/kP/of/Qf+g/9B/6D/2H/kP/of/Qf+g/9B/6j6nuG3Ya7U5q/0hN3nCTW3Grbu4Wrs/rP+k/6T/pP+k/6T/pP+k+6T7pPek86TzpPOk86TzpOuk66TrpOuk66TrpOlWmPu/36zrpOuk66TrpOuk66TrpOvl/Pek76TvpO+k76TvpO+k76TvpO+k76TvpO7V9t+qtVs/OaOURU6bo6PgPt6rZbwAAAAABVFDDFwAA) format("woff"),url(data:application/font-sfnt;base64,AAEAAAAPAIAAAwBwRkZUTW0ql9wAAAD8AAAAHEdERUYBRAAEAAABGAAAACBPUy8yZ7lriQAAATgAAABgY21hcNqt44EAAAGYAAAGcmN2dCAAKAL4AAAIDAAAAARnYXNw//8AAwAACBAAAAAIZ2x5Zn1dwm8AAAgYAACUpGhlYWQFTS/YAACcvAAAADZoaGVhCkQEEQAAnPQAAAAkaG10eNLHIGAAAJ0YAAADdGxvY2Fv+5XOAACgjAAAAjBtYXhwAWoA2AAAorwAAAAgbmFtZbMsoJsAAKLcAAADonBvc3S6o+U1AACmgAAACtF3ZWJmwxhUUAAAsVQAAAAGAAAAAQAAAADMPaLPAAAAANB2gXUAAAAA0HZzlwABAAAADgAAABgAAAAAAAIAAQABARYAAQAEAAAAAgAAAAMEiwGQAAUABAMMAtAAAABaAwwC0AAAAaQAMgK4AAAAAAUAAAAAAAAAAAAAAAIAAAAAAAAAAAAAAFVLV04AQAAg//8DwP8QAAAFFAB7AAAAAQAAAAAAAAAAAAAAIAABAAAABQAAAAMAAAAsAAAACgAAAdwAAQAAAAAEaAADAAEAAAAsAAMACgAAAdwABAGwAAAAaABAAAUAKAAgACsAoAClIAogLyBfIKwgvSISIxsl/CYBJvonCScP4APgCeAZ4CngOeBJ4FngYOBp4HngieCX4QnhGeEp4TnhRuFJ4VnhaeF54YnhleGZ4gbiCeIW4hniIeIn4jniSeJZ4mD4////AAAAIAAqAKAApSAAIC8gXyCsIL0iEiMbJfwmASb6JwknD+AB4AXgEOAg4DDgQOBQ4GDgYuBw4IDgkOEB4RDhIOEw4UDhSOFQ4WDhcOGA4ZDhl+IA4gniEOIY4iHiI+Iw4kDiUOJg+P/////j/9r/Zv9i4Ajf5N+132nfWd4F3P3aHdoZ2SHZE9kOIB0gHCAWIBAgCiAEH/4f+B/3H/Ef6x/lH3wfdh9wH2ofZB9jH10fVx9RH0sfRR9EHt4e3B7WHtUezh7NHsUevx65HrMIFQABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAAAACjAAAAAAAAAA1AAAAIAAAACAAAAADAAAAKgAAACsAAAAEAAAAoAAAAKAAAAAGAAAApQAAAKUAAAAHAAAgAAAAIAoAAAAIAAAgLwAAIC8AAAATAAAgXwAAIF8AAAAUAAAgrAAAIKwAAAAVAAAgvQAAIL0AAAAWAAAiEgAAIhIAAAAXAAAjGwAAIxsAAAAYAAAl/AAAJfwAAAAZAAAmAQAAJgEAAAAaAAAm+gAAJvoAAAAbAAAnCQAAJwkAAAAcAAAnDwAAJw8AAAAdAADgAQAA4AMAAAAeAADgBQAA4AkAAAAhAADgEAAA4BkAAAAmAADgIAAA4CkAAAAwAADgMAAA4DkAAAA6AADgQAAA4EkAAABEAADgUAAA4FkAAABOAADgYAAA4GAAAABYAADgYgAA4GkAAABZAADgcAAA4HkAAABhAADggAAA4IkAAABrAADgkAAA4JcAAAB1AADhAQAA4QkAAAB9AADhEAAA4RkAAACGAADhIAAA4SkAAACQAADhMAAA4TkAAACaAADhQAAA4UYAAACkAADhSAAA4UkAAACrAADhUAAA4VkAAACtAADhYAAA4WkAAAC3AADhcAAA4XkAAADBAADhgAAA4YkAAADLAADhkAAA4ZUAAADVAADhlwAA4ZkAAADbAADiAAAA4gYAAADeAADiCQAA4gkAAADlAADiEAAA4hYAAADmAADiGAAA4hkAAADtAADiIQAA4iEAAADvAADiIwAA4icAAADwAADiMAAA4jkAAAD1AADiQAAA4kkAAAD/AADiUAAA4lkAAAEJAADiYAAA4mAAAAETAAD4/wAA+P8AAAEUAAH1EQAB9REAAAEVAAH2qgAB9qoAAAEWAAYCCgAAAAABAAABAAAAAAAAAAAAAAAAAAAAAQACAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAEAAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAVAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKAL4AAAAAf//AAIAAgAoAAABaAMgAAMABwAusQEALzyyBwQA7TKxBgXcPLIDAgDtMgCxAwAvPLIFBADtMrIHBgH8PLIBAgDtMjMRIRElMxEjKAFA/ujw8AMg/OAoAtAAAQBkAGQETARMAFsAAAEyFh8BHgEdATc+AR8BFgYPATMyFhcWFRQGDwEOASsBFx4BDwEGJi8BFRQGBwYjIiYvAS4BPQEHDgEvASY2PwEjIiYnJjU0Nj8BPgE7AScuAT8BNhYfATU0Njc2AlgPJgsLCg+eBxYIagcCB57gChECBgMCAQIRCuCeBwIHaggWB54PCikiDyYLCwoPngcWCGoHAgee4AoRAgYDAgECEQrgngcCB2oIFgeeDwopBEwDAgECEQrgngcCB2oIFgeeDwopIg8mCwsKD54HFghqBwIHnuAKEQIGAwIBAhEK4J4HAgdqCBYHng8KKSIPJgsLCg+eBxYIagcCB57gChECBgAAAAABAAAAAARMBEwAIwAAATMyFhURITIWHQEUBiMhERQGKwEiJjURISImPQE0NjMhETQ2AcLIFR0BXhUdHRX+oh0VyBUd/qIVHR0VAV4dBEwdFf6iHRXIFR3+ohUdHRUBXh0VyBUdAV4VHQAAAAABAHAAAARABEwARQAAATMyFgcBBgchMhYPAQ4BKwEVITIWDwEOASsBFRQGKwEiJj0BISImPwE+ATsBNSEiJj8BPgE7ASYnASY2OwEyHwEWMj8BNgM5+goFCP6UBgUBDAoGBngGGAp9ARMKBgZ4BhgKfQ8LlAsP/u0KBgZ4BhgKff7tCgYGeAYYCnYFBv6UCAUK+hkSpAgUCKQSBEwKCP6UBgwMCKAIDGQMCKAIDK4LDw8LrgwIoAgMZAwIoAgMDAYBbAgKEqQICKQSAAABAGQABQSMBK4AOwAAATIXFhcjNC4DIyIOAwchByEGFSEHIR4EMzI+AzUzBgcGIyInLgEnIzczNjcjNzM+ATc2AujycDwGtSM0QDkXEys4MjAPAXtk/tQGAZZk/tQJMDlCNBUWOUA0I64eYmunznYkQgzZZHABBdpkhhQ+H3UErr1oaS1LMCEPCx4uTzJkMjJkSnRCKw8PIjBKK6trdZ4wqndkLzVkV4UljQAAAgB7AAAETASwAD4ARwAAASEyHgUVHAEVFA4FKwEHITIWDwEOASsBFRQGKwEiJj0BISImPwE+ATsBNSEiJj8BPgE7ARE0NhcRMzI2NTQmIwGsAV5DakIwFgwBAQwWMEJqQ7ICASAKBgZ4BhgKigsKlQoP/vUKBgZ4BhgKdf71CgYGeAYYCnUPtstALS1ABLAaJD8yTyokCwsLJCpQMkAlGmQMCKAIDK8LDg8KrwwIoAgMZAwIoAgMAdsKD8j+1EJWVEAAAAEAyAGQBEwCvAAPAAATITIWHQEUBiMhIiY9ATQ2+gMgFR0dFfzgFR0dArwdFcgVHR0VyBUdAAAAAgDIAAAD6ASwACUAQQAAARUUBisBFRQGBx4BHQEzMhYdASE1NDY7ATU0NjcuAT0BIyImPQEXFRQWFx4BFAYHDgEdASE1NCYnLgE0Njc+AT0BA+gdFTJjUVFjMhUd/OAdFTJjUVFjMhUdyEE3HCAgHDdBAZBBNxwgIBw3QQSwlhUdZFuVIyOVW5YdFZaWFR2WW5UjI5VbZB0VlshkPGMYDDI8MgwYYzyWljxjGAwyPDIMGGM8ZAAAAAEAAAAAAAAAAAAAAAAxAAAB//IBLATCBEEAFgAAATIWFzYzMhYVFAYjISImNTQ2NyY1NDYB9261LCwueKqqeP0ST3FVQgLYBEF3YQ6teHmtclBFaw4MGZnXAAAAAgAAAGQEsASvABoAHgAAAB4BDwEBMzIWHQEhNTQ2OwEBJyY+ARYfATc2AyEnAwL2IAkKiAHTHhQe+1AeFB4B1IcKCSAkCm9wCXoBebbDBLMTIxC7/RYlFSoqFSUC6rcQJBQJEJSWEPwecAIWAAAAAAQAAABkBLAETAALABcAIwA3AAATITIWBwEGIicBJjYXARYUBwEGJjURNDYJATYWFREUBicBJjQHARYGIyEiJjcBNjIfARYyPwE2MhkEfgoFCP3MCBQI/cwIBQMBCAgI/vgICgoDjAEICAoKCP74CFwBbAgFCvuCCgUIAWwIFAikCBQIpAgUBEwKCP3JCAgCNwgK2v74CBQI/vgIBQoCJgoF/vABCAgFCv3aCgUIAQgIFID+lAgKCggBbAgIpAgIpAgAAAAD//D/8AS6BLoACQANABAAAAAyHwEWFA8BJzcTAScJAQUTA+AmDpkNDWPWXyL9mdYCZv4f/rNuBLoNmQ4mDlzWYP50/ZrWAmb8anABTwAAAAEAAAAABLAEsAAPAAABETMyFh0BITU0NjsBEQEhArz6FR384B0V+v4MBLACiv3aHRUyMhUdAiYCJgAAAAEADgAIBEwEnAAfAAABJTYWFREUBgcGLgE2NzYXEQURFAYHBi4BNjc2FxE0NgFwAoUnMFNGT4gkV09IQv2oWEFPiCRXT0hCHQP5ow8eIvzBN1EXGSltchkYEAIJm/2iKmAVGilucRoYEQJ/JioAAAACAAn/+AS7BKcAHQApAAAAMh4CFQcXFAcBFgYPAQYiJwEGIycHIi4CND4BBCIOARQeATI+ATQmAZDItoNOAQFOARMXARY7GikT/u13jgUCZLaDTk6DAXKwlFZWlLCUVlYEp06DtmQCBY15/u4aJRg6FBQBEk0BAU6Dtsi2g1tWlLCUVlaUsJQAAQBkAFgErwREABkAAAE+Ah4CFRQOAwcuBDU0PgIeAQKJMHt4dVg2Q3mEqD4+p4V4Qzhadnh5A7VESAUtU3ZAOXmAf7JVVbJ/gHk5QHZTLQVIAAAAAf/TAF4EewSUABgAAAETNjIXEyEyFgcFExYGJyUFBiY3EyUmNjMBl4MHFQeBAaUVBhH+qoIHDxH+qf6qEQ8Hgv6lEQYUAyABYRMT/p8RDPn+bxQLDPb3DAsUAZD7DBEAAv/TAF4EewSUABgAIgAAARM2MhcTITIWBwUTFgYnJQUGJjcTJSY2MwUjFwc3Fyc3IycBl4MHFQeBAaUVBhH+qoIHDxH+qf6qEQ8Hgv6lEQYUAfPwxUrBw0rA6k4DIAFhExP+nxEM+f5vFAsM9vcMCxQBkPsMEWSO4ouM5YzTAAABAAAAAASwBLAAJgAAATIWHQEUBiMVFBYXBR4BHQEUBiMhIiY9ATQ2NyU+AT0BIiY9ATQ2Alh8sD4mDAkBZgkMDwr7ggoPDAkBZgkMJj6wBLCwfPouaEsKFwbmBRcKXQoPDwpdChcF5gYXCktoLvp8sAAAAA0AAAAABLAETAAPABMAIwAnACsALwAzADcARwBLAE8AUwBXAAATITIWFREUBiMhIiY1ETQ2FxUzNSkBIgYVERQWMyEyNjURNCYzFTM1BRUzNSEVMzUFFTM1IRUzNQchIgYVERQWMyEyNjURNCYFFTM1IRUzNQUVMzUhFTM1GQR+Cg8PCvuCCg8PVWQCo/3aCg8PCgImCg8Pc2T8GGQDIGT8GGQDIGTh/doKDw8KAiYKDw/872QDIGT8GGQDIGQETA8K++YKDw8KBBoKD2RkZA8K/qIKDw8KAV4KD2RkyGRkZGTIZGRkZGQPCv6iCg8PCgFeCg9kZGRkZMhkZGRkAAAEAAAAAARMBEwADwAfAC8APwAAEyEyFhURFAYjISImNRE0NikBMhYVERQGIyEiJjURNDYBITIWFREUBiMhIiY1ETQ2KQEyFhURFAYjISImNRE0NjIBkBUdHRX+cBUdHQJtAZAVHR0V/nAVHR39vQGQFR0dFf5wFR0dAm0BkBUdHRX+cBUdHQRMHRX+cBUdHRUBkBUdHRX+cBUdHRUBkBUd/agdFf5wFR0dFQGQFR0dFf5wFR0dFQGQFR0AAAkAAAAABEwETAAPAB8ALwA/AE8AXwBvAH8AjwAAEzMyFh0BFAYrASImPQE0NiEzMhYdARQGKwEiJj0BNDYhMzIWHQEUBisBIiY9ATQ2ATMyFh0BFAYrASImPQE0NiEzMhYdARQGKwEiJj0BNDYhMzIWHQEUBisBIiY9ATQ2ATMyFh0BFAYrASImPQE0NiEzMhYdARQGKwEiJj0BNDYhMzIWHQEUBisBIiY9ATQ2MsgVHR0VyBUdHQGlyBUdHRXIFR0dAaXIFR0dFcgVHR389cgVHR0VyBUdHQGlyBUdHRXIFR0dAaXIFR0dFcgVHR389cgVHR0VyBUdHQGlyBUdHRXIFR0dAaXIFR0dFcgVHR0ETB0VyBUdHRXIFR0dFcgVHR0VyBUdHRXIFR0dFcgVHf5wHRXIFR0dFcgVHR0VyBUdHRXIFR0dFcgVHR0VyBUd/nAdFcgVHR0VyBUdHRXIFR0dFcgVHR0VyBUdHRXIFR0ABgAAAAAEsARMAA8AHwAvAD8ATwBfAAATMzIWHQEUBisBIiY9ATQ2KQEyFh0BFAYjISImPQE0NgEzMhYdARQGKwEiJj0BNDYpATIWHQEUBiMhIiY9ATQ2ATMyFh0BFAYrASImPQE0NikBMhYdARQGIyEiJj0BNDYyyBUdHRXIFR0dAaUCvBUdHRX9RBUdHf6FyBUdHRXIFR0dAaUCvBUdHRX9RBUdHf6FyBUdHRXIFR0dAaUCvBUdHRX9RBUdHQRMHRXIFR0dFcgVHR0VyBUdHRXIFR3+cB0VyBUdHRXIFR0dFcgVHR0VyBUd/nAdFcgVHR0VyBUdHRXIFR0dFcgVHQAAAAABACYALAToBCAAFwAACQE2Mh8BFhQHAQYiJwEmND8BNjIfARYyAdECOwgUB7EICPzxBxUH/oAICLEHFAirBxYB3QI7CAixBxQI/PAICAGACBQHsQgIqwcAAQBuAG4EQgRCACMAAAEXFhQHCQEWFA8BBiInCQEGIi8BJjQ3CQEmND8BNjIXCQE2MgOIsggI/vUBCwgIsggVB/70/vQHFQiyCAgBC/71CAiyCBUHAQwBDAcVBDuzCBUH/vT+9AcVCLIICAEL/vUICLIIFQcBDAEMBxUIsggI/vUBDAcAAwAX/+sExQSZABkAJQBJAAAAMh4CFRQHARYUDwEGIicBBiMiLgI0PgEEIg4BFB4BMj4BNCYFMzIWHQEzMhYdARQGKwEVFAYrASImPQEjIiY9ATQ2OwE1NDYBmcSzgk1OASwICG0HFQj+1HeOYrSBTU2BAW+zmFhYmLOZWFj+vJYKD0sKDw8KSw8KlgoPSwoPDwpLDwSZTYKzYo15/tUIFQhsCAgBK01NgbTEs4JNWJmzmFhYmLOZIw8KSw8KlgoPSwoPDwpLDwqWCg9LCg8AAAMAF//rBMUEmQAZACUANQAAADIeAhUUBwEWFA8BBiInAQYjIi4CND4BBCIOARQeATI+ATQmBSEyFh0BFAYjISImPQE0NgGZxLOCTU4BLAgIbQcVCP7Ud45itIFNTYEBb7OYWFiYs5lYWP5YAV4KDw8K/qIKDw8EmU2Cs2KNef7VCBUIbAgIAStNTYG0xLOCTViZs5hYWJizmYcPCpYKDw8KlgoPAAAAAAIAFwAXBJkEsAAPAC0AAAEzMhYVERQGKwEiJjURNDYFNRYSFRQOAiIuAjU0EjcVDgEVFB4BMj4BNTQmAiZkFR0dFWQVHR0BD6fSW5vW6tabW9KnZ3xyxejFcnwEsB0V/nAVHR0VAZAVHeGmPv7ZuHXWm1tbm9Z1uAEnPqY3yHh0xXJyxXR4yAAEAGQAAASwBLAADwAfAC8APwAAATMyFhURFAYrASImNRE0NgEzMhYVERQGKwEiJjURNDYBMzIWFREUBisBIiY1ETQ2BTMyFh0BFAYrASImPQE0NgQBlgoPDwqWCg8P/t6WCg8PCpYKDw/+3pYKDw8KlgoPD/7elgoPDwqWCg8PBLAPCvuCCg8PCgR+Cg/+cA8K/RIKDw8KAu4KD/7UDwr+PgoPDwoBwgoPyA8K+goPDwr6Cg8AAAAAAgAaABsElgSWAEcATwAAATIfAhYfATcWFwcXFh8CFhUUDwIGDwEXBgcnBwYPAgYjIi8CJi8BByYnNycmLwImNTQ/AjY/ASc2Nxc3Nj8CNhIiBhQWMjY0AlghKSYFMS0Fhj0rUAMZDgGYBQWYAQ8YA1AwOIYFLDIFJisfISkmBTEtBYY8LFADGQ0ClwYGlwINGQNQLzqFBS0xBSYreLJ+frJ+BJYFmAEOGQJQMDmGBSwxBiYrHiIoJgYxLAWGPSxRAxkOApcFBZcCDhkDUTA5hgUtMAYmKiAhKCYGMC0Fhj0sUAIZDgGYBf6ZfrF+frEABwBkAAAEsAUUABMAFwAhACUAKQAtADEAAAEhMhYdASEyFh0BITU0NjMhNTQ2FxUhNQERFAYjISImNREXETMRMxEzETMRMxEzETMRAfQBLCk7ARMKD/u0DwoBEzspASwBLDsp/UQpO2RkZGRkZGRkBRQ7KWQPCktLCg9kKTtkZGT+1PzgKTs7KQMgZP1EArz9RAK8/UQCvP1EArwAAQAMAAAFCATRAB8AABMBNjIXARYGKwERFAYrASImNREhERQGKwEiJjURIyImEgJsCBUHAmAIBQqvDwr6Cg/+1A8K+goPrwoFAmoCYAcH/aAICv3BCg8PCgF3/okKDw8KAj8KAAIAZAAAA+gEsAARABcAAAERFBYzIREUBiMhIiY1ETQ2MwEjIiY9AQJYOykBLB0V/OAVHR0VA1L6FR0EsP5wKTv9dhUdHRUETBUd/nAdFfoAAwAXABcEmQSZAA8AGwAwAAAAMh4CFA4CIi4CND4BBCIOARQeATI+ATQmBTMyFhURMzIWHQEUBisBIiY1ETQ2AePq1ptbW5vW6tabW1ubAb/oxXJyxejFcnL+fDIKD68KDw8K+goPDwSZW5vW6tabW1ub1urWmztyxejFcnLF6MUNDwr+7Q8KMgoPDwoBXgoPAAAAAAL/nAAABRQEsAALAA8AACkBAyMDIQEzAzMDMwEDMwMFFP3mKfIp/eYBr9EVohTQ/p4b4BsBkP5wBLD+1AEs/nD+1AEsAAAAAAIAZAAABLAEsAAVAC8AAAEzMhYVETMyFgcBBiInASY2OwERNDYBMzIWFREUBiMhIiY1ETQ2OwEyFh0BITU0NgImyBUdvxQLDf65DSYN/rkNCxS/HQJUMgoPDwr75goPDwoyCg8DhA8EsB0V/j4XEP5wEBABkBAXAcIVHfzgDwr+ogoPDwoBXgoPDwqvrwoPAAMAFwAXBJkEmQAPABsAMQAAADIeAhQOAiIuAjQ+AQQiDgEUHgEyPgE0JgUzMhYVETMyFgcDBiInAyY2OwERNDYB4+rWm1tbm9bq1ptbW5sBv+jFcnLF6MVycv58lgoPiRUKDd8NJg3fDQoViQ8EmVub1urWm1tbm9bq1ps7csXoxXJyxejFDQ8K/u0XEP7tEBABExAXARMKDwAAAAMAFwAXBJkEmQAPABsAMQAAADIeAhQOAiIuAjQ+AQQiDgEUHgEyPgE0JiUTFgYrAREUBisBIiY1ESMiJjcTNjIB4+rWm1tbm9bq1ptbW5sBv+jFcnLF6MVycv7n3w0KFYkPCpYKD4kVCg3fDSYEmVub1urWm1tbm9bq1ps7csXoxXJyxejFAf7tEBf+7QoPDwoBExcQARMQAAAAAAIAAAAABLAEsAAZADkAABMhMhYXExYVERQGBwYjISImJyY1EzQ3Ez4BBSEiBgcDBhY7ATIWHwEeATsBMjY/AT4BOwEyNicDLgHhAu4KEwO6BwgFDBn7tAweAgYBB7kDEwKX/dQKEgJXAgwKlgoTAiYCEwr6ChMCJgITCpYKDAJXAhIEsA4K/XQYGf5XDB4CBggEDRkBqRkYAowKDsgOC/4+Cw4OCpgKDg4KmAoODgsBwgsOAAMAFwAXBJkEmQAPABsAJwAAADIeAhQOAiIuAjQ+AQQiDgEUHgEyPgE0JgUXFhQPAQYmNRE0NgHj6tabW1ub1urWm1tbmwG/6MVycsXoxXJy/ov9ERH9EBgYBJlbm9bq1ptbW5vW6tabO3LF6MVycsXoxV2+DCQMvgwLFQGQFQsAAQAXABcEmQSwACgAAAE3NhYVERQGIyEiJj8BJiMiDgEUHgEyPgE1MxQOAiIuAjQ+AjMyA7OHBwsPCv6WCwQHhW2BdMVycsXoxXKWW5vW6tabW1ub1nXABCSHBwQL/pYKDwsHhUxyxejFcnLFdHXWm1tbm9bq1ptbAAAAAAIAFwABBJkEsAAaADUAAAE3NhYVERQGIyEiJj8BJiMiDgEVIzQ+AjMyEzMUDgIjIicHBiY1ETQ2MyEyFg8BFjMyPgEDs4cHCw8L/pcLBAeGboF0xXKWW5vWdcDrllub1nXAnIYHCw8LAWgKBQiFboJ0xXIEJIcHBAv+lwsPCweGS3LFdHXWm1v9v3XWm1t2hggFCgFoCw8LB4VMcsUAAAAKAGQAAASwBLAADwAfAC8APwBPAF8AbwB/AI8AnwAAEyEyFhURFAYjISImNRE0NgUhIgYVERQWMyEyNjURNCYFMzIWHQEUBisBIiY9ATQ2MyEyFh0BFAYjISImPQE0NgczMhYdARQGKwEiJj0BNDYzITIWHQEUBiMhIiY9ATQ2BzMyFh0BFAYrASImPQE0NjMhMhYdARQGIyEiJj0BNDYHMzIWHQEUBisBIiY9ATQ2MyEyFh0BFAYjISImPQE0Nn0EGgoPDwr75goPDwPA/K4KDw8KA1IKDw/9CDIKDw8KMgoPD9IBwgoPDwr+PgoPD74yCg8PCjIKDw/SAcIKDw8K/j4KDw++MgoPDwoyCg8P0gHCCg8PCv4+Cg8PvjIKDw8KMgoPD9IBwgoPDwr+PgoPDwSwDwr7ggoPDwoEfgoPyA8K/K4KDw8KA1IKD2QPCjIKDw8KMgoPDwoyCg8PCjIKD8gPCjIKDw8KMgoPDwoyCg8PCjIKD8gPCjIKDw8KMgoPDwoyCg8PCjIKD8gPCjIKDw8KMgoPDwoyCg8PCjIKDwAAAAACAAAAAARMBLAAGQAjAAABNTQmIyEiBh0BIyIGFREUFjMhMjY1ETQmIyE1NDY7ATIWHQEDhHVT/tRSdmQpOzspA4QpOzsp/ageFMgUHgMgyFN1dlLIOyn9qCk7OykCWCk7lhUdHRWWAAIAZAAABEwETAAJADcAABMzMhYVESMRNDYFMhcWFREUBw4DIyIuAScuAiMiBwYjIicmNRE+ATc2HgMXHgIzMjc2fTIKD2QPA8AEBRADIUNAMRwaPyonKSxHHlVLBwgGBQ4WeDsXKC4TOQQpLUUdZ1AHBEwPCvvNBDMKDzACBhH+WwYGO1AkDQ0ODg8PDzkFAwcPAbY3VwMCAwsGFAEODg5XCAAAAwAAAAAEsASXACEAMQBBAAAAMh4CFREUBisBIiY1ETQuASAOARURFAYrASImNRE0PgEDMzIWFREUBisBIiY1ETQ2ITMyFhURFAYrASImNRE0NgHk6N6jYw8KMgoPjeT++uSNDwoyCg9joyqgCAwMCKAIDAwCYKAIDAwIoAgMDASXY6PedP7UCg8PCgEsf9FyctF//tQKDw8KASx03qP9wAwI/jQIDAwIAcwIDAwI/jQIDAwIAcwIDAAAAAACAAAA0wRHA90AFQA5AAABJTYWFREUBiclJisBIiY1ETQ2OwEyBTc2Mh8BFhQPARcWFA8BBiIvAQcGIi8BJjQ/AScmND8BNjIXAUEBAgkMDAn+/hUZ+goPDwr6GQJYeAcUByIHB3h4BwciBxQHeHgHFAciBwd3dwcHIgcUBwMurAYHCv0SCgcGrA4PCgFeCg+EeAcHIgcUB3h4BxQHIgcHd3cHByIHFAd4eAcUByIICAAAAAACAAAA0wNyA90AFQAvAAABJTYWFREUBiclJisBIiY1ETQ2OwEyJTMWFxYVFAcGDwEiLwEuATc2NTQnJjY/ATYBQQECCQwMCf7+FRn6Cg8PCvoZAdIECgZgWgYLAwkHHQcDBkhOBgMIHQcDLqwGBwr9EgoHBqwODwoBXgoPZAEJgaGafwkBAQYXBxMIZ36EaggUBxYFAAAAAAMAAADEBGID7AAbADEASwAAATMWFxYVFAYHBgcjIi8BLgE3NjU0JicmNj8BNgUlNhYVERQGJyUmKwEiJjURNDY7ATIlMxYXFhUUBwYPASIvAS4BNzY1NCcmNj8BNgPHAwsGh0RABwoDCQcqCAIGbzs3BgIJKgf9ggECCQwMCf7+FRn6Cg8PCvoZAdIECgZgWgYLAwkHHQcDBkhOBgMIHQcD7AEJs9lpy1QJAQYiBhQIlrJarEcJFAYhBb6sBgcK/RIKBwasDg8KAV4KD2QBCYGhmn8JAQEGFwcTCGd+hGoIFQYWBQAAAAANAAAAAASwBLAACQAVABkAHQAhACUALQA7AD8AQwBHAEsATwAAATMVIxUhFSMRIQEjFTMVIREjESM1IQURIREhESERBSM1MwUjNTMBMxEhETM1MwEzFSMVIzUjNTM1IzUhBREhEQcjNTMFIzUzASM1MwUhNSEB9GRk/nBkAfQCvMjI/tTIZAJY+7QBLAGQASz84GRkArxkZP1EyP4MyGQB9MhkyGRkyAEs/UQBLGRkZAOEZGT+DGRkAfT+1AEsA4RkZGQCWP4MZMgBLAEsyGT+1AEs/tQBLMhkZGT+DP4MAfRk/tRkZGRkyGTI/tQBLMhkZGT+1GRkZAAAAAAJAAAAAASwBLAAAwAHAAsADwATABcAGwAfACMAADcjETMTIxEzASMRMxMjETMBIxEzASE1IRcjNTMXIzUzBSM1M2RkZMhkZAGQyMjIZGQBLMjI/OD+1AEsyGRkyGRkASzIyMgD6PwYA+j8GAPo/BgD6PwYA+j7UGRkW1tbW1sAAAIAAAAKBKYEsAANABUAAAkBFhQHAQYiJwETNDYzBCYiBhQWMjYB9AKqCAj+MAgUCP1WAQ8KAUM7Uzs7UzsEsP1WCBQI/jAICAKqAdsKD807O1Q7OwAAAAADAAAACgXSBLAADQAZACEAAAkBFhQHAQYiJwETNDYzIQEWFAcBBiIvAQkBBCYiBhQWMjYB9AKqCAj+MAgUCP1WAQ8KAwYCqggI/jAIFAg4Aaj9RP7TO1M7O1M7BLD9VggUCP4wCAgCqgHbCg/9VggUCP4wCAg4AaoCvM07O1Q7OwAAAAABAGQAAASwBLAAJgAAASEyFREUDwEGJjURNCYjISIPAQYWMyEyFhURFAYjISImNRE0PwE2ASwDOUsSQAgKDwr9RBkSQAgFCgK8Cg8PCvyuCg8SixIEsEv8fBkSQAgFCgO2Cg8SQAgKDwr8SgoPDwoDzxkSixIAAAABAMj//wRMBLAACgAAEyEyFhURCQERNDb6AyAVHf4+/j4dBLAdFfuCAbz+QwR/FR0AAAAAAwAAAAAEsASwABUARQBVAAABISIGBwMGHwEeATMhMjY/ATYnAy4BASMiBg8BDgEjISImLwEuASsBIgYVERQWOwEyNj0BNDYzITIWHQEUFjsBMjY1ETQmASEiBg8BBhYzITI2LwEuAQM2/kQLEAFOBw45BhcKAcIKFwY+DgdTARABVpYKFgROBBYK/doKFgROBBYKlgoPDwqWCg8PCgLuCg8PCpYKDw/+sf4MChMCJgILCgJYCgsCJgITBLAPCv7TGBVsCQwMCWwVGAEtCg/+cA0JnAkNDQmcCQ0PCv12Cg8PCpYKDw8KlgoPDwoCigoP/agOCpgKDg4KmAoOAAAAAAQAAABkBLAETAAdACEAKQAxAAABMzIeAh8BMzIWFREUBiMhIiY1ETQ2OwE+BAEVMzUEIgYUFjI2NCQyFhQGIiY0AfTIOF00JAcGlik7Oyn8GCk7OymWAgknM10ByGT+z76Hh76H/u9WPDxWPARMKTs7FRQ7Kf2oKTs7KQJYKTsIG0U1K/7UZGRGh76Hh74IPFY8PFYAAAAAAgA1AAAEsASvACAAIwAACQEWFx4BHwEVITUyNi8BIQYHBh4CMxUhNTY3PgE/AQEDIQMCqQGBFCgSJQkK/l81LBFS/nk6IgsJKjIe/pM4HAwaBwcBj6wBVKIEr/waMioTFQECQkJXLd6RWSIuHAxCQhgcDCUNDQPu/VoByQAAAAADAGQAAAPwBLAAJwAyADsAAAEeBhUUDgMjITU+ATURNC4EJzUFMh4CFRQOAgclMzI2NTQuAisBETMyNjU0JisBAvEFEzUwOyodN1htbDD+DCk7AQYLFyEaAdc5dWM+Hy0tEP6Pi05pESpTPnbYUFJ9Xp8CgQEHGB0zOlIuQ3VONxpZBzMoAzsYFBwLEAkHRwEpSXNDM1s6KwkxYUopOzQb/K5lUFqBAAABAMgAAANvBLAAGQAAARcOAQcDBhYXFSE1NjcTNjQuBCcmJzUDbQJTQgeECSxK/gy6Dq0DAw8MHxUXDQYEsDkTNSj8uTEoBmFhEFIDQBEaExAJCwYHAwI5AAAAAAL/tQAABRQEsAAlAC8AAAEjNC4FKwERFBYfARUhNTI+AzURIyIOBRUjESEFIxEzByczESM3BRQyCAsZEyYYGcgyGRn+cAQOIhoWyBkYJhMZCwgyA+j7m0tLfX1LS30DhBUgFQ4IAwH8rhYZAQJkZAEFCRUOA1IBAwgOFSAVASzI/OCnpwMgpwACACH/tQSPBLAAJQAvAAABIzQuBSsBERQWHwEVITUyPgM1ESMiDgUVIxEhEwc1IRUnNxUhNQRMMggLGRMmGBnIMhkZ/nAEDiIaFsgZGCYTGQsIMgPoQ6f84KenAyADhBUgFQ4IAwH9dhYZAQJkZAEFCRUOAooBAwgOFSAVASz7gn1LS319S0sABAAAAAAEsARMAA8AHwAvAD8AABMhMhYdARQGIyEiJj0BNDYTITIWHQEUBiMhIiY9ATQ2EyEyFh0BFAYjISImPQE0NhMhMhYdARQGIyEiJj0BNDYyAlgVHR0V/agVHR0VA+gVHR0V/BgVHR0VAyAVHR0V/OAVHR0VBEwVHR0V+7QVHR0ETB0VZBUdHRVkFR3+1B0VZBUdHRVkFR3+1B0VZBUdHRVkFR3+1B0VZBUdHRVkFR0ABAAAAAAEsARMAA8AHwAvAD8AABMhMhYdARQGIyEiJj0BNDYDITIWHQEUBiMhIiY9ATQ2EyEyFh0BFAYjISImPQE0NgMhMhYdARQGIyEiJj0BNDb6ArwVHR0V/UQVHR2zBEwVHR0V+7QVHR3dArwVHR0V/UQVHR2zBEwVHR0V+7QVHR0ETB0VZBUdHRVkFR3+1B0VZBUdHRVkFR3+1B0VZBUdHRVkFR3+1B0VZBUdHRVkFR0ABAAAAAAEsARMAA8AHwAvAD8AAAE1NDYzITIWHQEUBiMhIiYBNTQ2MyEyFh0BFAYjISImEzU0NjMhMhYdARQGIyEiJgE1NDYzITIWHQEUBiMhIiYB9B0VAlgVHR0V/agVHf5wHRUD6BUdHRX8GBUdyB0VAyAVHR0V/OAVHf7UHRUETBUdHRX7tBUdA7ZkFR0dFWQVHR3+6WQVHR0VZBUdHf7pZBUdHRVkFR0d/ulkFR0dFWQVHR0AAAQAAAAABLAETAAPAB8ALwA/AAATITIWHQEUBiMhIiY9ATQ2EyEyFh0BFAYjISImPQE0NhMhMhYdARQGIyEiJj0BNDYTITIWHQEUBiMhIiY9ATQ2MgRMFR0dFfu0FR0dFQRMFR0dFfu0FR0dFQRMFR0dFfu0FR0dFQRMFR0dFfu0FR0dBEwdFWQVHR0VZBUd/tQdFWQVHR0VZBUd/tQdFWQVHR0VZBUd/tQdFWQVHR0VZBUdAAgAAAAABLAETAAPAB8ALwA/AE8AXwBvAH8AABMzMhYdARQGKwEiJj0BNDYpATIWHQEUBiMhIiY9ATQ2ATMyFh0BFAYrASImPQE0NikBMhYdARQGIyEiJj0BNDYBMzIWHQEUBisBIiY9ATQ2KQEyFh0BFAYjISImPQE0NgEzMhYdARQGKwEiJj0BNDYpATIWHQEUBiMhIiY9ATQ2MmQVHR0VZBUdHQFBAyAVHR0V/OAVHR3+6WQVHR0VZBUdHQFBAyAVHR0V/OAVHR3+6WQVHR0VZBUdHQFBAyAVHR0V/OAVHR3+6WQVHR0VZBUdHQFBAyAVHR0V/OAVHR0ETB0VZBUdHRVkFR0dFWQVHR0VZBUd/tQdFWQVHR0VZBUdHRVkFR0dFWQVHf7UHRVkFR0dFWQVHR0VZBUdHRVkFR3+1B0VZBUdHRVkFR0dFWQVHR0VZBUdAAAG/5wAAASwBEwAAwATACMAKgA6AEoAACEjETsCMhYdARQGKwEiJj0BNDYTITIWHQEUBiMhIiY9ATQ2BQc1IzUzNQUhMhYdARQGIyEiJj0BNDYTITIWHQEUBiMhIiY9ATQ2AZBkZJZkFR0dFWQVHR0VAfQVHR0V/gwVHR3++qfIyAHCASwVHR0V/tQVHR0VAlgVHR0V/agVHR0ETB0VZBUdHRVkFR3+1B0VZBUdHRVkFR36fUtkS68dFWQVHR0VZBUd/tQdFWQVHR0VZBUdAAAABgAAAAAFFARMAA8AEwAjACoAOgBKAAATMzIWHQEUBisBIiY9ATQ2ASMRMwEhMhYdARQGIyEiJj0BNDYFMxUjFSc3BSEyFh0BFAYjISImPQE0NhMhMhYdARQGIyEiJj0BNDYyZBUdHRVkFR0dA2dkZPyuAfQVHR0V/gwVHR0EL8jIp6f75gEsFR0dFf7UFR0dFQJYFR0dFf2oFR0dBEwdFWQVHR0VZBUd+7QETP7UHRVkFR0dFWQVHchkS319rx0VZBUdHRVkFR3+1B0VZBUdHRVkFR0AAAAAAgAAAMgEsAPoAA8AEgAAEyEyFhURFAYjISImNRE0NgkCSwLuHywsH/0SHywsBIT+1AEsA+gsH/12HywsHwKKHyz9RAEsASwAAwAAAAAEsARMAA8AFwAfAAATITIWFREUBiMhIiY1ETQ2FxE3BScBExEEMhYUBiImNCwEWBIaGhL7qBIaGkr3ASpKASXs/NJwTk5wTgRMGhL8DBIaGhID9BIaZP0ftoOcAT7+4AH0dE5vT09vAAAAAAIA2wAFBDYEkQAWAB4AAAEyHgEVFAcOAQ8BLgQnJjU0PgIWIgYUFjI2NAKIdcZzRkWyNjYJIV5YbSk8RHOft7eCgreCBJF4ynVzj23pPz4IIWZomEiEdVijeUjDgriBgbgAAAACABcAFwSZBJkADwAXAAAAMh4CFA4CIi4CND4BAREiDgEUHgEB4+rWm1tbm9bq1ptbW5sBS3TFcnLFBJlbm9bq1ptbW5vW6tab/G8DVnLF6MVyAAACAHUAAwPfBQ8AGgA1AAABHgYVFA4DBy4DNTQ+BQMOAhceBBcWNj8BNiYnLgInJjc2IyYCKhVJT1dOPiUzVnB9P1SbfEokP0xXUEm8FykoAwEbITEcExUWAgYCCQkFEikMGiACCAgFD0iPdXdzdYdFR4BeRiYEBTpjl1lFh3ZzeHaQ/f4hS4I6JUEnIw4IBwwQIgoYBwQQQSlZtgsBAAAAAwAAAAAEywRsAAwAKgAvAAABNz4CHgEXHgEPAiUhMhcHISIGFREUFjMhMjY9ATcRFAYjISImNRE0NgkBBzcBA+hsAgYUFR0OFgoFBmz9BQGQMje7/pApOzspAfQpO8i7o/5wpbm5Azj+lqE3AWMD9XMBAgIEDw4WKgsKc8gNuzsp/gwpOzsptsj+tKW5uaUBkKW5/tf+ljKqAWMAAgAAAAAEkwRMABsANgAAASEGByMiBhURFBYzITI2NTcVFAYjISImNRE0NgUBFhQHAQYmJzUmDgMHPgY3NT4BAV4BaaQ0wyk7OykB9Ck7yLml/nClubkCfwFTCAj+rAcLARo5ZFRYGgouOUlARioTAQsETJI2Oyn+DCk7OymZZ6W5uaUBkKW5G/7TBxUH/s4GBAnLAQINFjAhO2JBNB0UBwHSCgUAAAAAAgAAAAAEnQRMAB0ANQAAASEyFwchIgYVERQWMyEyNj0BNxUUBiMhIiY1ETQ2CQE2Mh8BFhQHAQYiLwEmND8BNjIfARYyAV4BXjxDsv6jKTs7KQH0KTvIuaX+cKW5uQHKAYsHFQdlBwf97QcVB/gHB2UHFQdvCBQETBexOyn+DCk7OylFyNulubmlAZCluf4zAYsHB2UHFQf97AcH+AcVB2UHB28HAAAAAQAKAAoEpgSmADsAAAkBNjIXARYGKwEVMzU0NhcBFhQHAQYmPQEjFTMyFgcBBiInASY2OwE1IxUUBicBJjQ3ATYWHQEzNSMiJgE+AQgIFAgBBAcFCqrICggBCAgI/vgICsiqCgUH/vwIFAj++AgFCq/ICgj++AgIAQgICsivCgUDlgEICAj++AgKyK0KBAf+/AcVB/73BwQKrcgKCP74CAgBCAgKyK0KBAcBCQcVBwEEBwQKrcgKAAEAyAAAA4QETAAZAAATMzIWFREBNhYVERQGJwERFAYrASImNRE0NvpkFR0B0A8VFQ/+MB0VZBUdHQRMHRX+SgHFDggV/BgVCA4Bxf5KFR0dFQPoFR0AAAABAAAAAASwBEwAIwAAEzMyFhURATYWFREBNhYVERQGJwERFAYnAREUBisBIiY1ETQ2MmQVHQHQDxUB0A8VFQ/+MBUP/jAdFWQVHR0ETB0V/koBxQ4IFf5KAcUOCBX8GBUIDgHF/koVCA4Bxf5KFR0dFQPoFR0AAAABAJ0AGQSwBDMAFQAAAREUBicBERQGJwEmNDcBNhYVEQE2FgSwFQ/+MBUP/hQPDwHsDxUB0A8VBBr8GBUIDgHF/koVCA4B4A4qDgHgDggV/koBxQ4IAAAAAQDIABYEMwQ2AAsAABMBFhQHAQYmNRE0NvMDLhIS/NISGRkEMv4OCx4L/g4LDhUD6BUOAAIAyABkA4QD6AAPAB8AABMzMhYVERQGKwEiJjURNDYhMzIWFREUBisBIiY1ETQ2+sgVHR0VyBUdHQGlyBUdHRXIFR0dA+gdFfzgFR0dFQMgFR0dFfzgFR0dFQMgFR0AAAEAyABkBEwD6AAPAAABERQGIyEiJjURNDYzITIWBEwdFfzgFR0dFQMgFR0DtvzgFR0dFQMgFR0dAAAAAAEAAAAZBBMEMwAVAAABETQ2FwEWFAcBBiY1EQEGJjURNDYXAfQVDwHsDw/+FA8V/jAPFRUPAmQBthUIDv4gDioO/iAOCBUBtv47DggVA+gVCA4AAAH//gACBLMETwAjAAABNzIWFRMUBiMHIiY1AwEGJjUDAQYmNQM0NhcBAzQ2FwEDNDYEGGQUHgUdFWQVHQL+MQ4VAv4yDxUFFQ8B0gIVDwHSAh0ETgEdFfwYFR0BHRUBtf46DwkVAbX+OQ4JFAPoFQkP/j4BthQJDv49AbYVHQAAAQEsAAAD6ARMABkAAAEzMhYVERQGKwEiJjURAQYmNRE0NhcBETQ2A1JkFR0dFWQVHf4wDxUVDwHQHQRMHRX8GBUdHRUBtv47DggVA+gVCA7+OwG2FR0AAAIAZADIBLAESAALABsAAAkBFgYjISImNwE2MgEhMhYdARQGIyEiJj0BNDYCrgH1DwkW++4WCQ8B9Q8q/fcD6BUdHRX8GBUdHQQ5/eQPFhYPAhwP/UgdFWQVHR0VZBUdAAEAiP/8A3UESgAFAAAJAgcJAQN1/qABYMX92AIoA4T+n/6fxgIoAiYAAAAAAQE7//wEKARKAAUAAAkBJwkBNwQo/dnGAWH+n8YCI/3ZxgFhAWHGAAIAFwAXBJkEmQAPADMAAAAyHgIUDgIiLgI0PgEFIyIGHQEjIgYdARQWOwEVFBY7ATI2PQEzMjY9ATQmKwE1NCYB4+rWm1tbm9bq1ptbW5sBfWQVHZYVHR0Vlh0VZBUdlhUdHRWWHQSZW5vW6tabW1ub1urWm7odFZYdFWQVHZYVHR0Vlh0VZBUdlhUdAAAAAAIAFwAXBJkEmQAPAB8AAAAyHgIUDgIiLgI0PgEBISIGHQEUFjMhMjY9ATQmAePq1ptbW5vW6tabW1ubAkX+DBUdHRUB9BUdHQSZW5vW6tabW1ub1urWm/5+HRVkFR0dFWQVHQACABcAFwSZBJkADwAzAAAAMh4CFA4CIi4CND4BBCIPAScmIg8BBhQfAQcGFB8BFjI/ARcWMj8BNjQvATc2NC8BAePq1ptbW5vW6tabW1ubAeUZCXh4CRkJjQkJeHgJCY0JGQl4eAkZCY0JCXh4CQmNBJlbm9bq1ptbW5vW6tabrQl4eAkJjQkZCXh4CRkJjQkJeHgJCY0JGQl4eAkZCY0AAgAXABcEmQSZAA8AJAAAADIeAhQOAiIuAjQ+AQEnJiIPAQYUHwEWMjcBNjQvASYiBwHj6tabW1ub1urWm1tbmwEVVAcVCIsHB/IHFQcBdwcHiwcVBwSZW5vW6tabW1ub1urWm/4xVQcHiwgUCPEICAF3BxUIiwcHAAAAAAMAFwAXBJkEmQAPADsASwAAADIeAhQOAiIuAjQ+AQUiDgMVFDsBFjc+ATMyFhUUBgciDgUHBhY7ATI+AzU0LgMTIyIGHQEUFjsBMjY9ATQmAePq1ptbW5vW6tabW1ubAT8dPEIyIRSDHgUGHR8UFw4TARkOGhITDAIBDQ6tBx4oIxgiM0Q8OpYKDw8KlgoPDwSZW5vW6tabW1ub1urWm5ELHi9PMhkFEBQQFRIXFgcIBw4UHCoZCBEQKDhcNi9IKhsJ/eMPCpYKDw8KlgoPAAADABcAFwSZBJkADwAfAD4AAAAyHgIUDgIiLgI0PgEFIyIGHQEUFjsBMjY9ATQmAyMiBh0BFBY7ARUjIgYdARQWMyEyNj0BNCYrARE0JgHj6tabW1ub1urWm1tbmwGWlgoPDwqWCg8PCvoKDw8KS0sKDw8KAV4KDw8KSw8EmVub1urWm1tbm9bq1ptWDwqWCg8PCpYKD/7UDwoyCg/IDwoyCg8PCjIKDwETCg8AAgAAAAAEsASwAC8AXwAAATMyFh0BHgEXMzIWHQEUBisBDgEHFRQGKwEiJj0BLgEnIyImPQE0NjsBPgE3NTQ2ExUUBisBIiY9AQ4BBzMyFh0BFAYrAR4BFzU0NjsBMhYdAT4BNyMiJj0BNDY7AS4BAg2WCg9nlxvCCg8PCsIbl2cPCpYKD2eXG8IKDw8KwhuXZw+5DwqWCg9EZheoCg8PCqgXZkQPCpYKD0RmF6gKDw8KqBdmBLAPCsIbl2cPCpYKD2eXG8IKDw8KwhuXZw8KlgoPZ5cbwgoP/s2oCg8PCqgXZkQPCpYKD0RmF6gKDw8KqBdmRA8KlgoPRGYAAwAXABcEmQSZAA8AGwA/AAAAMh4CFA4CIi4CND4BBCIOARQeATI+ATQmBxcWFA8BFxYUDwEGIi8BBwYiLwEmND8BJyY0PwE2Mh8BNzYyAePq1ptbW5vW6tabW1ubAb/oxXJyxejFcnKaQAcHfHwHB0AHFQd8fAcVB0AHB3x8BwdABxUHfHwHFQSZW5vW6tabW1ub1urWmztyxejFcnLF6MVaQAcVB3x8BxUHQAcHfHwHB0AHFQd8fAcVB0AHB3x8BwAAAAMAFwAXBJkEmQAPABsAMAAAADIeAhQOAiIuAjQ+AQQiDgEUHgEyPgE0JgcXFhQHAQYiLwEmND8BNjIfATc2MgHj6tabW1ub1urWm1tbmwG/6MVycsXoxXJyg2oHB/7ACBQIyggIagcVB0/FBxUEmVub1urWm1tbm9bq1ps7csXoxXJyxejFfWoHFQf+vwcHywcVB2oICE/FBwAAAAMAFwAXBJkEmQAPABgAIQAAADIeAhQOAiIuAjQ+AQUiDgEVFBcBJhcBFjMyPgE1NAHj6tabW1ub1urWm1tbmwFLdMVyQQJLafX9uGhzdMVyBJlbm9bq1ptbW5vW6tabO3LFdHhpAktB0P24PnLFdHMAAAAAAQAXAFMEsAP5ABUAABMBNhYVESEyFh0BFAYjIREUBicBJjQnAgoQFwImFR0dFf3aFxD99hACRgGrDQoV/t0dFcgVHf7dFQoNAasNJgAAAAABAAAAUwSZA/kAFQAACQEWFAcBBiY1ESEiJj0BNDYzIRE0NgJ/AgoQEP32EBf92hUdHRUCJhcD8f5VDSYN/lUNChUBIx0VyBUdASMVCgAAAAEAtwAABF0EmQAVAAAJARYGIyERFAYrASImNREhIiY3ATYyAqoBqw0KFf7dHRXIFR3+3RUKDQGrDSYEif32EBf92hUdHRUCJhcQAgoQAAAAAQC3ABcEXQSwABUAAAEzMhYVESEyFgcBBiInASY2MyERNDYCJsgVHQEjFQoN/lUNJg3+VQ0KFQEjHQSwHRX92hcQ/fYQEAIKEBcCJhUdAAABAAAAtwSZBF0AFwAACQEWFAcBBiY1EQ4DBz4ENxE0NgJ/AgoQEP32EBdesKWBJAUsW4fHfhcEVf5VDSYN/lUNChUBIwIkRHVNabGdcUYHAQYVCgACAAAAAASwBLAAFQArAAABITIWFREUBi8BBwYiLwEmND8BJyY2ASEiJjURNDYfATc2Mh8BFhQPARcWBgNSASwVHRUOXvkIFAhqBwf5Xg4I/iH+1BUdFQ5e+QgUCGoHB/leDggEsB0V/tQVCA5e+QcHaggUCPleDhX7UB0VASwVCA5e+QcHaggUCPleDhUAAAACAEkASQRnBGcAFQArAAABFxYUDwEXFgYjISImNRE0Nh8BNzYyASEyFhURFAYvAQcGIi8BJjQ/AScmNgP2agcH+V4OCBX+1BUdFQ5e+QgU/QwBLBUdFQ5e+QgUCGoHB/leDggEYGoIFAj5Xg4VHRUBLBUIDl75B/3xHRX+1BUIDl75BwdqCBQI+V4OFQAAAAADABcAFwSZBJkADwAfAC8AAAAyHgIUDgIiLgI0PgEFIyIGFxMeATsBMjY3EzYmAyMiBh0BFBY7ATI2PQE0JgHj6tabW1ub1urWm1tbmwGz0BQYBDoEIxQ2FCMEOgQYMZYKDw8KlgoPDwSZW5vW6tabW1ub1urWm7odFP7SFB0dFAEuFB3+DA8KlgoPDwqWCg8AAAAABQAAAAAEsASwAEkAVQBhAGgAbwAAATIWHwEWHwEWFxY3Nj8BNjc2MzIWHwEWHwIeATsBMhYdARQGKwEiBh0BIREjESE1NCYrASImPQE0NjsBMjY1ND8BNjc+BAUHBhY7ATI2LwEuAQUnJgYPAQYWOwEyNhMhIiY1ESkBERQGIyERAQQJFAUFFhbEFQ8dCAsmxBYXERUXMA0NDgQZCAEPCj0KDw8KMgoP/nDI/nAPCjIKDw8KPQsOCRkFDgIGFRYfAp2mBwQK2woKAzMDEP41sQgQAzMDCgrnCwMe/okKDwGQAlgPCv6JBLAEAgIKDXYNCxUJDRZ2DQoHIREQFRh7LAkLDwoyCg8PCq8BLP7UrwoPDwoyCg8GBQQwgBkUAwgWEQ55ogcKDgqVCgSqnQcECo8KDgr8cg8KAXf+iQoPAZAAAAAAAgAAAAwErwSmACsASQAAATYWFQYCDgQuAScmByYOAQ8BBiY1NDc+ATc+AScuAT4BNz4GFyYGBw4BDwEOBAcOARY2Nz4CNz4DNz4BBI0IGgItQmxhi2KORDg9EQQRMxuZGhYqCFUYEyADCQIQOjEnUmFch3vAJQgdHyaiPT44XHRZUhcYDhItIRmKcVtGYWtbKRYEBKYDEwiy/t3IlVgxEQgLCwwBAQIbG5kYEyJAJghKFRE8Hzdff4U/M0o1JSMbL0QJGCYvcSEhHjZST2c1ODwEJygeW0AxJUBff1UyFAABAF0AHgRyBM8ATwAAAQ4BHgQXLgc+ATceAwYHDgQHBicmNzY3PgQuAScWDgMmJy4BJyY+BDcGHgM3PgEuAicmPgMCjScfCic4R0IgBBsKGAoQAwEJEg5gikggBhANPkpTPhZINx8SBgsNJysiCRZOQQoVNU1bYC9QZwICBAUWITsoCAYdJzIYHw8YIiYHDyJJYlkEz0OAZVxEOSQMBzgXOB42IzElKRIqg5Gnl0o3Z0c6IAYWCwYNAwQFIDhHXGF1OWiqb0sdBxUknF0XNTQ8PEUiNWNROBYJDS5AQVUhVZloUSkAAAAAA//cAGoE1ARGABsAPwBRAAAAMh4FFA4FIi4FND4EBSYGFxYVFAYiJjU0NzYmBwYHDgEXHgQyPgM3NiYnJgUHDgEXFhcWNj8BNiYnJicuAQIGpJ17bk85HBw6T257naKde25POhwcOU9uewIPDwYIGbD4sBcIBw5GWg0ECxYyWl+DiINfWjIWCwQMWv3/Iw8JCSU4EC0OIw4DDywtCyIERi1JXGJcSSpJXGJcSS0tSVxiXEkqSVxiXEncDwYTOT58sLB8OzcTBg9FcxAxEiRGXkQxMEVeRSQSMRF1HiQPLxJEMA0EDyIPJQ8sSRIEAAAABP/cAAAE1ASwABQAJwA7AEwAACEjNy4ENTQ+BTMyFzczEzceARUUDgMHNz4BNzYmJyYlBgcOARceBBc3LgE1NDc2JhcHDgEXFhcWNj8CJyYnLgECUJQfW6l2WSwcOU9ue51SPUEglCYvbIknUGqYUi5NdiYLBAw2/VFGWg0ECxIqSExoNSlrjxcIB3wjDwkJJTgQLQ4MFgMsLQsieBRhdHpiGxVJXGJcSS0Pef5StVXWNBpacm5jGq0xiD8SMRFGckVzEDESHjxRQTkNmhKnbjs3EwZwJA8vEkQwDQQPC1YELEkSBAAAAAP/ngAABRIEqwALABgAKAAAJwE2FhcBFgYjISImJSE1NDY7ATIWHQEhAQczMhYPAQ4BKwEiJi8BJjZaAoIUOBQCghUbJfryJRsBCgFZDwqWCg8BWf5DaNAUGAQ6BCMUNhQjBDoEGGQEKh8FIfvgIEdEhEsKDw8KSwLT3x0U/BQdHRT8FB0AAAABAGQAFQSwBLAAKAAAADIWFREBHgEdARQGJyURFh0BFAYvAQcGJj0BNDcRBQYmPQE0NjcBETQCTHxYAWsPFhgR/plkGhPNzRMaZP6ZERgWDwFrBLBYPv6t/rsOMRQpFA0M+f75XRRAFRAJgIAJEBVAFF0BB/kMDRQpFDEOAUUBUz4AAAARAAAAAARMBLAAHQAnACsALwAzADcAOwA/AEMARwBLAE8AUwBXAFsAXwBjAAABMzIWHQEzMhYdASE1NDY7ATU0NjsBMhYdASE1NDYBERQGIyEiJjURFxUzNTMVMzUzFTM1MxUzNTMVMzUFFTM1MxUzNTMVMzUzFTM1MxUzNQUVMzUzFTM1MxUzNTMVMzUzFTM1A1JkFR0yFR37tB0VMh0VZBUdAfQdAQ8dFfwYFR1kZGRkZGRkZGRk/HxkZGRkZGRkZGT8fGRkZGRkZGRkZASwHRUyHRWWlhUdMhUdHRUyMhUd/nD9EhUdHRUC7shkZGRkZGRkZGRkyGRkZGRkZGRkZGTIZGRkZGRkZGRkZAAAAAMAAAAZBXcElwAZACUANwAAARcWFA8BBiY9ASMBISImPQE0NjsBATM1NDYBBycjIiY9ATQ2MyEBFxYUDwEGJj0BIyc3FzM1NDYEb/kPD/kOFZ/9qP7dFR0dFdECWPEV/amNetEVHR0VASMDGvkPD/kOFfG1jXqfFQSN5g4qDuYOCBWW/agdFWQVHQJYlhUI/piNeh0VZBUd/k3mDioO5g4IFZa1jXqWFQgAAAABAAAAAASwBEwAEgAAEyEyFhURFAYjIQERIyImNRE0NmQD6Ck7Oyn9rP7QZCk7OwRMOyn9qCk7/tQBLDspAlgpOwAAAAMAZAAABEwEsAAJABMAPwAAEzMyFh0BITU0NiEzMhYdASE1NDYBERQOBSIuBTURIRUUFRwBHgYyPgYmNTQ9AZbIFR3+1B0C0cgVHf7UHQEPBhgoTGacwJxmTCgYBgEsAwcNFB8nNkI2Jx8TDwUFAQSwHRX6+hUdHRX6+hUd/nD+1ClJalZcPigoPlxWakkpASz6CRIVKyclIRsWEAgJEBccISUnKhURCPoAAAAB//8A1ARMA8IABQAAAQcJAScBBEzG/p/+n8UCJwGbxwFh/p/HAicAAQAAAO4ETQPcAAUAAAkCNwkBBE392v3ZxgFhAWEDFf3ZAifH/p8BYQAAAAAC/1EAZAVfA+gAFAApAAABITIWFREzMhYPAQYiLwEmNjsBESElFxYGKwERIRchIiY1ESMiJj8BNjIBlALqFR2WFQgO5g4qDuYOCBWW/oP+HOYOCBWWAYHX/RIVHZYVCA7mDioD6B0V/dkVDvkPD/kOFQGRuPkOFf5wyB0VAiYVDvkPAAABAAYAAASeBLAAMAAAEzMyFh8BITIWBwMOASMhFyEyFhQGKwEVFAYiJj0BIRUUBiImPQEjIiYvAQMjIiY0NjheERwEJgOAGB4FZAUsIf2HMAIXFR0dFTIdKh3+1B0qHR8SHQYFyTYUHh4EsBYQoiUY/iUVK8gdKh0yFR0dFTIyFR0dFTIUCQoDwR0qHQAAAAACAAAAAASwBEwACwAPAAABFSE1MzQ2MyEyFhUFIREhBLD7UMg7KQEsKTv9RASw+1AD6GRkKTs7Kcj84AACAAAAAAXcBEwADAAQAAATAxEzNDYzITIWFSEVBQEhAcjIyDspASwqOgH0ASz+1PtQASwDIP5wAlgpOzspyGT9RAK8AAEBRQAAA2sErwAbAAABFxYGKwERMzIWDwEGIi8BJjY7AREjIiY/ATYyAnvmDggVlpYVCA7mDioO5g4IFZaWFQgO5g4qBKD5DhX9pxUO+Q8P+Q4VAlkVDvkPAAAAAQABAUQErwNrABsAAAEXFhQPAQYmPQEhFRQGLwEmND8BNhYdASE1NDYDqPkODvkPFf2oFQ/5Dg75DxUCWBUDYOUPKQ/lDwkUl5cUCQ/lDykP5Q8JFZWVFQkAAAAEAAAAAASwBLAACQAZAB0AIQAAAQMuASMhIgYHAwUhIgYdARQWMyEyNj0BNCYFNTMVMzUzFQSRrAUkFP1gFCQFrAQt/BgpOzspA+gpOzv+q2RkZAGQAtwXLSgV/R1kOylkKTs7KWQpO8hkZGRkAAAAA/+cAGQEsARMAAsAIwAxAAAAMhYVERQGIiY1ETQDJSMTFgYjIisBIiYnAj0BNDU0PgE7ASUBFSIuAz0BND4CNwRpKh0dKh1k/V0mLwMRFQUCVBQdBDcCCwzIAqP8GAQOIhoWFR0dCwRMHRX8rhUdHRUDUhX8mcj+7BAIHBUBUQ76AgQQDw36/tT6AQsTKRwyGigUDAEAAAACAEoAAARmBLAALAA1AAABMzIWDwEeARcTFzMyFhQGBw4EIyIuBC8BLgE0NjsBNxM+ATcnJjYDFjMyNw4BIiYCKV4UEgYSU3oPP3YRExwaEggeZGqfTzl0XFU+LwwLEhocExF2Pw96UxIGEyQyNDUxDDdGOASwFRMlE39N/rmtHSkoBwQLHBYSCg4REg4FBAgoKR2tAUdNfhQgExr7vgYGMT09AAEAFAAUBJwEnAAXAAABNwcXBxcHFycHJwcnBzcnNyc3Jxc3FzcDIOBO6rS06k7gLZubLeBO6rS06k7gLZubA7JO4C2bmy3gTuq0tOpO4C2bmy3gTuq0tAADAAAAZASwBLAAIQAtAD0AAAEzMhYdAQchMhYdARQHAw4BKwEiJi8BIyImNRE0PwI+ARcPAREzFzMTNSE3NQEzMhYVERQGKwEiJjURNDYCijIoPBwBSCg8He4QLBf6B0YfHz0tNxSRYA0xG2SWZIjW+v4+Mv12ZBUdHRVkFR0dBLBRLJZ9USxkLR3+qBghMhkZJCcBkCQbxMYcKGTU1f6JZAF3feGv/tQdFf4MFR0dFQH0FR0AAAAAAwAAAAAEsARMACAAMAA8AAABMzIWFxMWHQEUBiMhFh0BFAYrASImLwImNRE0NjsBNgUzMhYVERQGKwEiJjURNDYhByMRHwEzNSchNQMCWPoXLBDuHTwo/rgcPCgyGzENYJEUNy09fP3pZBUdHRVkFR0dAl+IZJZkMjIBwvoETCEY/qgdLWQsUXYHlixRKBzGxBskAZAnJGRkHRX+DBUdHRUB9BUdZP6J1dSv4X0BdwADAAAAZAUOBE8AGwA3AEcAAAElNh8BHgEPASEyFhQGKwEDDgEjISImNRE0NjcXERchEz4BOwEyNiYjISoDLgQnJj8BJwUzMhYVERQGKwEiJjURNDYBZAFrHxZuDQEMVAEuVGxuVGqDBhsP/qoHphwOOmQBJYMGGw/LFRMSFv44AgoCCQMHAwUDAQwRklb9T2QVHR0VZBUdHQNp5hAWcA0mD3lMkE7+rRUoog0CDRElCkj+CVkBUxUoMjIBAgIDBQIZFrdT5B0V/gwVHR0VAfQVHQAAAAP/nABkBLAETwAdADYARgAAAQUeBBURFAYjISImJwMjIiY0NjMhJyY2PwE2BxcWBw4FKgIjIRUzMhYXEyE3ESUFMzIWFREUBisBIiY1ETQ2AdsBbgIIFBANrAf+qg8bBoNqVW1sVAEuVQsBDW4WSpIRDAIDBQMHAwkDCgH+Jd0PHAaCASZq/qoCUGQVHR0VZBUdHQRP5gEFEBEXC/3zDaIoFQFTTpBMeQ8mDXAWrrcWGQIFAwICAWQoFf6tWQH37OQdFf4MFR0dFQH0FR0AAAADAGEAAARMBQ4AGwA3AEcAAAAyFh0BBR4BFREUBiMhIiYvAQMmPwE+AR8BETQXNTQmBhURHAMOBAcGLwEHEyE3ESUuAQMhMhYdARQGIyEiJj0BNDYB3pBOAVMVKKIN/fMRJQoJ5hAWcA0mD3nGMjIBAgIDBQIZFrdT7AH3Wf6tFSiWAfQVHR0V/gwVHR0FDm5UaoMGGw/+qgemHA4OAWsfFm4NAQxUAS5U1ssVExIW/jgCCgIJAwcDBQMBDBGSVv6tZAElgwYb/QsdFWQVHR0VZBUdAAP//QAGA+gFFAAPAC0ASQAAASEyNj0BNCYjISIGHQEUFgEVFAYiJjURBwYmLwEmNxM+BDMhMhYVERQGBwEDFzc2Fx4FHAIVERQWNj0BNDY3JREnAV4B9BUdHRX+DBUdHQEPTpBMeQ8mDXAWEOYBBRARFwsCDQ2iKBX9iexTtxYZAgUDAgIBMjIoFQFTWQRMHRVkFR0dFWQVHfzmalRubFQBLlQMAQ1uFh8BawIIEw8Mpgf+qg8bBgHP/q1WkhEMAQMFAwcDCQIKAv44FhITFcsPGwaDASVkAAIAFgAWBJoEmgAPACUAAAAyHgIUDgIiLgI0PgEBJSYGHQEhIgYdARQWMyEVFBY3JTY0AeLs1ptbW5vW7NabW1ubAob+7RAX/u0KDw8KARMXEAETEASaW5vW7NabW1ub1uzWm/453w0KFYkPCpYKD4kVCg3fDSYAAAIAFgAWBJoEmgAPACUAAAAyHgIUDgIiLgI0PgENAQYUFwUWNj0BITI2PQE0JiMhNTQmAeLs1ptbW5vW7NabW1ubASX+7RAQARMQFwETCg8PCv7tFwSaW5vW7NabW1ub1uzWm+jfDSYN3w0KFYkPCpYKD4kVCgAAAAIAFgAWBJoEmgAPACUAAAAyHgIUDgIiLgI0PgEBAyYiBwMGFjsBERQWOwEyNjURMzI2AeLs1ptbW5vW7NabW1ubAkvfDSYN3w0KFYkPCpYKD4kVCgSaW5vW7NabW1ub1uzWm/5AARMQEP7tEBf+7QoPDwoBExcAAAIAFgAWBJoEmgAPACUAAAAyHgIUDgIiLgI0PgEFIyIGFREjIgYXExYyNxM2JisBETQmAeLs1ptbW5vW7NabW1ubAZeWCg+JFQoN3w0mDd8NChWJDwSaW5vW7NabW1ub1uzWm7sPCv7tFxD+7RAQARMQFwETCg8AAAMAGAAYBJgEmAAPAJYApgAAADIeAhQOAiIuAjQ+ASUOAwcGJgcOAQcGFgcOAQcGFgcUFgcyHgEXHgIXHgI3Fg4BFx4CFxQGFBcWNz4CNy4BJy4BJyIOAgcGJyY2NS4BJzYuAQYHBicmNzY3HgIXHgMfAT4CJyY+ATc+AzcmNzIWMjY3LgMnND4CJiceAT8BNi4CJwYHFB4BFS4CJz4BNxYyPgEB5OjVm1xcm9Xo1ZtcXJsBZA8rHDoKDz0PFD8DAxMBAzEFCRwGIgEMFhkHECIvCxU/OR0HFBkDDRQjEwcFaHUeISQDDTAMD0UREi4oLBAzDwQBBikEAQMLGhIXExMLBhAGKBsGBxYVEwYFAgsFAwMNFwQGCQcYFgYQCCARFwkKKiFBCwQCAQMDHzcLDAUdLDgNEiEQEgg/KhADGgMKEgoRBJhcm9Xo1ZtcXJvV6NWbEQwRBwkCAwYFBycPCxcHInIWInYcCUcYChQECA4QBAkuHgQPJioRFRscBAcSCgwCch0kPiAIAQcHEAsBAgsLIxcBMQENCQIPHxkCFBkdHB4QBgEBBwoMGBENBAMMJSAQEhYXDQ4qFBkKEhIDCQsXJxQiBgEOCQwHAQ0DBAUcJAwSCwRnETIoAwEJCwsLJQcKDBEAAAAAAQAAAAIErwSFABYAAAE2FwUXNxYGBw4BJwEGIi8BJjQ3ASY2AvSkjv79kfsGUE08hjv9rA8rD28PDwJYIk8EhVxliuh+WYcrIgsW/awQEG4PKxACV2XJAAYAAABgBLAErAAPABMAIwAnADcAOwAAEyEyFh0BFAYjISImPQE0NgUjFTMFITIWHQEUBiMhIiY9ATQ2BSEVIQUhMhYdARQGIyEiJj0BNDYFIRUhZAPoKTs7KfwYKTs7BBHIyPwYA+gpOzsp/BgpOzsEEf4MAfT8GAPoKTs7KfwYKTs7BBH+1AEsBKw7KWQpOzspZCk7ZGTIOylkKTs7KWQpO2RkyDspZCk7OylkKTtkZAAAAAIAZAAABEwEsAALABEAABMhMhYUBiMhIiY0NgERBxEBIZYDhBUdHRX8fBUdHQI7yP6iA4QEsB0qHR0qHf1E/tTIAfQB9AAAAAMAAABkBLAEsAAXABsAJQAAATMyFh0BITIWFREhNSMVIRE0NjMhNTQ2FxUzNQEVFAYjISImPQEB9MgpOwEsKTv+DMj+DDspASw7KcgB9Dsp/BgpOwSwOylkOyn+cGRkAZApO2QpO2RkZP1EyCk7OynIAAAABAAAAAAEsASwABUAKwBBAFcAABMhMhYPARcWFA8BBiIvAQcGJjURNDYpATIWFREUBi8BBwYiLwEmND8BJyY2ARcWFA8BFxYGIyEiJjURNDYfATc2MgU3NhYVERQGIyEiJj8BJyY0PwE2MhcyASwVCA5exwcHaggUCMdeDhUdAzUBLBUdFQ5exwgUCGoHB8deDgj+L2oHB8deDggV/tQVHRUOXscIFALLXg4VHRX+1BUIDl7HBwdqCBQIBLAVDl7HCBQIagcHx14OCBUBLBUdHRX+1BUIDl7HBwdqCBQIx14OFf0maggUCMdeDhUdFQEsFQgOXscHzl4OCBX+1BUdFQ5exwgUCGoHBwAAAAYAAAAABKgEqAAPABsAIwA7AEMASwAAADIeAhQOAiIuAjQ+AQQiDgEUHgEyPgE0JiQyFhQGIiY0JDIWFAYjIicHFhUUBiImNTQ2PwImNTQEMhYUBiImNCQyFhQGIiY0Advy3Z9fX5/d8t2gXl6gAcbgv29vv+C/b2/+LS0gIC0gAUwtICAWDg83ETNIMykfegEJ/octICAtIAIdLSAgLSAEqF+f3fLdoF5eoN3y3Z9Xb7/gv29vv+C/BiAtISEtICAtIQqRFxwkMzMkIDEFfgEODhekIC0gIC0gIC0gIC0AAf/YAFoEuQS8AFsAACUBNjc2JicmIyIOAwcABw4EFx4BMzI3ATYnLgEjIgcGBwEOASY0NwA3PgEzMhceARcWBgcOBgcGIyImJyY2NwE2NzYzMhceARcWBgcBDgEnLgECIgHVWwgHdl8WGSJBMD8hIP6IDx4eLRMNBQlZN0ozAiQkEAcdEhoYDRr+qw8pHA4BRyIjQS4ODyw9DQ4YIwwod26La1YOOEBGdiIwGkQB/0coW2tQSE5nDxE4Qv4eDyoQEAOtAdZbZWKbEQQUGjIhH/6JDxsdNSg3HT5CMwIkJCcQFBcMGv6uDwEcKQ4BTSIjIQEINykvYyMLKnhuiWZMBxtAOU6+RAH/SBg3ISSGV121Qv4kDwIPDyYAAAACAGQAWASvBEQAGQBEAAABPgIeAhUUDgMHLgQ1ND4CHgEFIg4DIi4DIyIGFRQeAhcWFx4EMj4DNzY3PgQ1NCYCiTB7eHVYNkN5hKg+PqeFeEM4WnZ4eQEjIT8yLSohJyktPyJDbxtBMjMPBw86KzEhDSIzKUAMBAgrKT8dF2oDtURIBS1TdkA5eYB/slVVsn+AeTlAdlMtBUgtJjY1JiY1NiZvTRc4SjQxDwcOPCouGBgwKEALBAkpKkQqMhNPbQACADn/8gR3BL4AFwAuAAAAMh8BFhUUBg8BJi8BNycBFwcvASY0NwEDNxYfARYUBwEGIi8BJjQ/ARYfAQcXAQKru0KNQjgiHR8uEl/3/nvUaRONQkIBGxJpCgmNQkL+5UK6Qo1CQjcdLhJf9wGFBL5CjUJeKmsiHTUuEl/4/nvUahKNQrpCARv+RmkICY1CukL+5UJCjUK7Qjc3LxFf+AGFAAAAAAMAyAAAA+gEsAARABUAHQAAADIeAhURFAYjISImNRE0PgEHESERACIGFBYyNjQCBqqaZDo7Kf2oKTs8Zj4CWP7/Vj09Vj0EsB4uMhX8Ryk7OykDuRUzLar9RAK8/RY9Vj09VgABAAAAAASwBLAAFgAACQEWFAYiLwEBEScBBRMBJyEBJyY0NjIDhgEbDx0qDiT+6dT+zP7oywEz0gEsAQsjDx0qBKH+5g8qHQ8j/vX+1NL+zcsBGAE01AEXJA4qHQAAAAADAScAEQQJBOAAMgBAAEsAAAEVHgQXIy4DJxEXHgQVFAYHFSM1JicuASczHgEXEScuBDU0PgI3NRkBDgMVFB4DFxYXET4ENC4CArwmRVI8LAKfBA0dMydAIjxQNyiym2SWVygZA4sFV0obLkJOMCAyVWg6HSoqFQ4TJhkZCWgWKTEiGBkzNwTgTgUTLD9pQiQuLBsH/s0NBxMtPGQ+i6oMTU8QVyhrVk1iEAFPCA4ZLzlYNkZwSCoGTf4SARIEDh02Jh0rGRQIBgPQ/soCCRYgNEM0JRkAAAABAGQAZgOUBK0ASgAAATIeARUjNC4CIyIGBwYVFB4BFxYXMxUjFgYHBgc+ATM2FjMyNxcOAyMiLgEHDgEPASc+BTc+AScjNTMmJy4CPgE3NgIxVJlemSc8OxolVBQpGxoYBgPxxQgVFS02ImIWIIwiUzUyHzY4HCAXanQmJ1YYFzcEGAcTDBEJMAwk3aYXFQcKAg4tJGEErVCLTig/IhIdFSw5GkowKgkFZDKCHj4yCg8BIh6TExcIASIfBAMaDAuRAxAFDQsRCjePR2QvORQrREFMIVgAAAACABn//wSXBLAADwAfAAABMzIWDwEGIi8BJjY7AREzBRcWBisBESMRIyImPwE2MgGQlhUIDuYOKg7mDggVlsgCF+YOCBWWyJYVCA7mDioBLBYO+g8P+g4WA4QQ+Q4V/HwDhBUO+Q8AAAQAGf//A+gEsAAHABcAGwAlAAABIzUjFSMRIQEzMhYPAQYiLwEmNjsBETMFFTM1EwczFSE1NyM1IQPoZGRkASz9qJYVCA7mDioO5g4IFZbIAZFkY8jI/tTIyAEsArxkZAH0/HwWDvoPD/oOFgOEZMjI/RL6ZJb6ZAAAAAAEABn//wPoBLAADwAZACEAJQAAATMyFg8BBiIvASY2OwERMwUHMxUhNTcjNSERIzUjFSMRIQcVMzUBkJYVCA7mDioO5g4IFZbIAljIyP7UyMgBLGRkZAEsx2QBLBYO+g8P+g4WA4SW+mSW+mT7UGRkAfRkyMgAAAAEABn//wRMBLAADwAVABsAHwAAATMyFg8BBiIvASY2OwERMwEjESM1MxMjNSMRIQcVMzUBkJYVCA7mDioO5g4IFZbIAlhkZMhkZMgBLMdkASwWDvoPD/oOFgOE/gwBkGT7UGQBkGTIyAAAAAAEABn//wRMBLAADwAVABkAHwAAATMyFg8BBiIvASY2OwERMwEjNSMRIQcVMzUDIxEjNTMBkJYVCA7mDioO5g4IFZbIArxkyAEsx2QBZGTIASwWDvoPD/oOFgOE/gxkAZBkyMj7tAGQZAAAAAAFABn//wSwBLAADwATABcAGwAfAAABMzIWDwEGIi8BJjY7AREzBSM1MxMhNSETITUhEyE1IQGQlhUIDuYOKg7mDggVlsgB9MjIZP7UASxk/nABkGT+DAH0ASwWDvoPD/oOFgOEyMj+DMj+DMj+DMgABQAZ//8EsASwAA8AEwAXABsAHwAAATMyFg8BBiIvASY2OwERMwUhNSEDITUhAyE1IQMjNTMBkJYVCA7mDioO5g4IFZbIAyD+DAH0ZP5wAZBk/tQBLGTIyAEsFg76Dw/6DhYDhMjI/gzI/gzI/gzIAAIAAAAABEwETAAPAB8AAAEhMhYVERQGIyEiJjURNDYFISIGFREUFjMhMjY1ETQmAV4BkKK8u6P+cKW5uQJn/gwpOzspAfQpOzsETLuj/nClubmlAZClucg7Kf4MKTs7KQH0KTsAAAAAAwAAAAAETARMAA8AHwArAAABITIWFREUBiMhIiY1ETQ2BSEiBhURFBYzITI2NRE0JgUXFhQPAQYmNRE0NgFeAZClubml/nCju7wCZP4MKTs7KQH0KTs7/m/9ERH9EBgYBEy5pf5wpbm5pQGQo7vIOyn+DCk7OykB9Ck7gr4MJAy+DAsVAZAVCwAAAAADAAAAAARMBEwADwAfACsAAAEhMhYVERQGIyEiJjURNDYFISIGFREUFjMhMjY1ETQmBSEyFg8BBiIvASY2AV4BkKO7uaX+cKW5uQJn/gwpOzspAfQpOzv+FQGQFQsMvgwkDL4MCwRMvKL+cKW5uaUBkKO7yDsp/gwpOzspAfQpO8gYEP0REf0QGAAAAAMAAAAABEwETAAPAB8AKwAAASEyFhURFAYjISImNRE0NgUhIgYVERQWMyEyNjURNCYFFxYGIyEiJj8BNjIBXgGQpbm5pf5wo7u5Amf+DCk7OykB9Ck7O/77vgwLFf5wFQsMvgwkBEy5pf5wo7u8ogGQpbnIOyn+DCk7OykB9Ck7z/0QGBgQ/REAAAAAAgAAAAAFFARMAB8ANQAAASEyFhURFAYjISImPQE0NjMhMjY1ETQmIyEiJj0BNDYHARYUBwEGJj0BIyImPQE0NjsBNTQ2AiYBkKW5uaX+cBUdHRUBwik7Oyn+PhUdHb8BRBAQ/rwQFvoVHR0V+hYETLml/nCluR0VZBUdOykB9Ck7HRVkFR3p/uQOJg7+5A4KFZYdFcgVHZYVCgAAAQDZAAID1wSeACMAAAEXFgcGAgclMhYHIggBBwYrAScmNz4BPwEhIicmNzYANjc2MwMZCQgDA5gCASwYEQ4B/vf+8wQMDgkJCQUCUCcn/tIXCAoQSwENuwUJEASeCQoRC/5TBwEjEv7K/sUFDwgLFQnlbm4TFRRWAS/TBhAAAAACAAAAAAT+BEwAHwA1AAABITIWHQEUBiMhIgYVERQWMyEyFh0BFAYjISImNRE0NgUBFhQHAQYmPQEjIiY9ATQ2OwE1NDYBXgGQFR0dFf4+KTs7KQHCFR0dFf5wpbm5AvEBRBAQ/rwQFvoVHR0V+hYETB0VZBUdOyn+DCk7HRVkFR25pQGQpbnp/uQOJg7+5A4KFZYdFcgVHZYVCgACAAAAAASwBLAAFQAxAAABITIWFREUBi8BAQYiLwEmNDcBJyY2ASMiBhURFBYzITI2PQE3ERQGIyEiJjURNDYzIQLuAZAVHRUObf7IDykPjQ8PAThtDgj+75wpOzspAfQpO8i7o/5wpbm5pQEsBLAdFf5wFQgObf7IDw+NDykPAThtDhX+1Dsp/gwpOzsplMj+1qW5uaUBkKW5AAADAA4ADgSiBKIADwAbACMAAAAyHgIUDgIiLgI0PgEEIg4BFB4BMj4BNCYEMhYUBiImNAHh7tmdXV2d2e7ZnV1dnQHD5sJxccLmwnFx/nugcnKgcgSiXZ3Z7tmdXV2d2e7ZnUdxwubCcXHC5sJzcqBycqAAAAMAAAAABEwEsAAVAB8AIwAAATMyFhURMzIWBwEGIicBJjY7ARE0NgEhMhYdASE1NDYFFTM1AcLIFR31FAoO/oEOJw3+hQ0JFfod/oUD6BUd+7QdA2dkBLAdFf6iFg/+Vg8PAaoPFgFeFR38fB0V+voVHWQyMgAAAAMAAAAABEwErAAVAB8AIwAACQEWBisBFRQGKwEiJj0BIyImNwE+AQEhMhYdASE1NDYFFTM1AkcBeg4KFfQiFsgUGPoUCw4Bfw4n/fkD6BUd+7QdA2dkBJ7+TQ8g+hQeHRX6IQ8BrxAC/H8dFfr6FR1kMjIAAwAAAAAETARLABQAHgAiAAAJATYyHwEWFAcBBiInASY0PwE2MhcDITIWHQEhNTQ2BRUzNQGMAXEHFQeLBwf98wcVB/7cBweLCBUH1APoFR37tB0DZ2QC0wFxBweLCBUH/fMICAEjCBQIiwcH/dIdFfr6FR1kMjIABAAAAAAETASbAAkAGQAjACcAABM3NjIfAQcnJjQFNzYWFQMOASMFIiY/ASc3ASEyFh0BITU0NgUVMzWHjg4qDk3UTQ4CFtIOFQIBHRX9qxUIDtCa1P49A+gVHfu0HQNnZAP/jg4OTdRMDyqa0g4IFf2pFB4BFQ7Qm9T9Oh0V+voVHWQyMgAAAAQAAAAABEwEsAAPABkAIwAnAAABBR4BFRMUBi8BByc3JyY2EwcGIi8BJjQ/AQEhMhYdASE1NDYFFTM1AV4CVxQeARUO0JvUm9IOCMNMDyoOjg4OTf76A+gVHfu0HQNnZASwAgEdFf2rFQgO0JrUmtIOFf1QTQ4Ojg4qDk3+WB0V+voVHWQyMgACAAT/7ASwBK8ABQAIAAAlCQERIQkBFQEEsP4d/sb+cQSs/TMCq2cBFP5xAacDHPz55gO5AAAAAAIAAABkBEwEsAAVABkAAAERFAYrAREhESMiJjURNDY7AREhETMHIzUzBEwdFZb9RJYVHR0V+gH0ZMhkZAPo/K4VHQGQ/nAdFQPoFB7+1AEsyMgAAAMAAABFBN0EsAAWABoALwAAAQcBJyYiDwEhESMiJjURNDY7AREhETMHIzUzARcWFAcBBiIvASY0PwE2Mh8BATYyBEwC/tVfCRkJlf7IlhUdHRX6AfRkyGRkAbBqBwf+XAgUCMoICGoHFQdPASkHFQPolf7VXwkJk/5wHRUD6BQe/tQBLMjI/c5qBxUH/lsHB8sHFQdqCAhPASkHAAMAAAANBQcEsAAWABoAPgAAAREHJy4BBwEhESMiJjURNDY7AREhETMHIzUzARcWFA8BFxYUDwEGIi8BBwYiLwEmND8BJyY0PwE2Mh8BNzYyBExnhg8lEP72/reWFR0dFfoB9GTIZGQB9kYPD4ODDw9GDykPg4MPKQ9GDw+Dgw8PRg8pD4ODDykD6P7zZ4YPAw7+9v5wHRUD6BQe/tQBLMjI/YxGDykPg4MPKQ9GDw+Dgw8PRg8pD4ODDykPRg8Pg4MPAAADAAAAFQSXBLAAFQAZAC8AAAERISIGHQEhESMiJjURNDY7AREhETMHIzUzEzMyFh0BMzIWDwEGIi8BJjY7ATU0NgRM/qIVHf4MlhUdHRX6AfRkyGRklmQVHZYVCA7mDioO5g4IFZYdA+j+1B0Vlv5wHRUD6BQe/tQBLMjI/agdFfoVDuYODuYOFfoVHQAAAAADAAAAAASXBLAAFQAZAC8AAAERJyYiBwEhESMiJjURNDY7AREhETMHIzUzExcWBisBFRQGKwEiJj0BIyImPwE2MgRMpQ4qDv75/m6WFR0dFfoB9GTIZGTr5g4IFZYdFWQVHZYVCA7mDioD6P5wpQ8P/vf+cB0VA+gUHv7UASzIyP2F5Q8V+hQeHhT6FQ/lDwADAAAAyASwBEwACQATABcAABMhMhYdASE1NDYBERQGIyEiJjURExUhNTIETBUd+1AdBJMdFfu0FR1kAZAETB0VlpYVHf7U/doVHR0VAib+1MjIAAAGAAMAfQStBJcADwAZAB0ALQAxADsAAAEXFhQPAQYmPQEhNSE1NDYBIyImPQE0NjsBFyM1MwE3NhYdASEVIRUUBi8BJjQFIzU7AjIWHQEUBisBA6f4Dg74DhX+cAGQFf0vMhUdHRUyyGRk/oL3DhUBkP5wFQ73DwOBZGRkMxQdHRQzBI3mDioO5g4IFZbIlhUI/oUdFWQVHcjI/cvmDggVlsiWFQgO5g4qecgdFWQVHQAAAAACAGQAAASwBLAAFgBRAAABJTYWFREUBisBIiY1ES4ENRE0NiUyFh8BERQOAg8BERQGKwEiJjURLgQ1ETQ+AzMyFh8BETMRPAE+AjMyFh8BETMRND4DA14BFBklHRXIFR0EDiIaFiX+4RYZAgEVHR0LCh0VyBUdBA4iGhYBBwoTDRQZAgNkBQkVDxcZAQFkAQUJFQQxdBIUH/uuFR0dFQGNAQgbHzUeAWcfRJEZDA3+Phw/MSkLC/5BFR0dFQG/BA8uLkAcAcICBxENCxkMDf6iAV4CBxENCxkMDf6iAV4CBxENCwABAGQAAASwBEwAMwAAARUiDgMVERQWHwEVITUyNjURIREUFjMVITUyPgM1ETQmLwE1IRUiBhURIRE0JiM1BLAEDiIaFjIZGf5wSxn+DBlL/nAEDiIaFjIZGQGQSxkB9BlLBEw4AQUKFA78iBYZAQI4OA0lAYr+diUNODgBBQoUDgN4FhkBAjg4DSX+dgGKJQ04AAAABgAAAAAETARMAAwAHAAgACQAKAA0AAABITIWHQEjBTUnITchBSEyFhURFAYjISImNRE0NhcVITUBBTUlBRUhNQUVFAYjIQchJyE3MwKjAXcVHWn+2cj+cGQBd/4lASwpOzsp/tQpOzspASwCvP5wAZD8GAEsArwdFf6JZP6JZAGQyGkD6B0VlmJiyGTIOyn+DCk7OykB9Ck7ZMjI/veFo4XGyMhm+BUdZGTIAAEAEAAQBJ8EnwAmAAATNzYWHwEWBg8BHgEXNz4BHwEeAQ8BBiIuBicuBTcRohEuDosOBhF3ZvyNdxEzE8ATBxGjAw0uMUxPZWZ4O0p3RjITCwED76IRBhPCFDERdo78ZXYRBA6IDi8RogEECBUgNUNjO0qZfHNVQBAAAAACAAAAAASwBEwAIwBBAAAAMh4EHwEVFAYvAS4BPQEmIAcVFAYPAQYmPQE+BRIyHgIfARUBHgEdARQGIyEiJj0BNDY3ATU0PgIB/LimdWQ/LAkJHRTKFB2N/sKNHRTKFB0DDTE7ZnTKcFImFgEBAW0OFR0V+7QVHRUOAW0CFiYETBUhKCgiCgrIFRgDIgMiFZIYGJIVIgMiAxgVyAQNJyQrIP7kExwcCgoy/tEPMhTUFR0dFdQUMg8BLzIEDSEZAAADAAAAAASwBLAADQAdACcAAAEHIScRMxUzNTMVMzUzASEyFhQGKwEXITcjIiY0NgMhMhYdASE1NDYETMj9qMjIyMjIyPyuArwVHR0VDIn8SokMFR0dswRMFR37UB0CvMjIAfTIyMjI/OAdKh1kZB0qHf7UHRUyMhUdAAAAAwBkAAAEsARMAAkAEwAdAAABIyIGFREhETQmASMiBhURIRE0JgEhETQ2OwEyFhUCvGQpOwEsOwFnZCk7ASw7/Rv+1DspZCk7BEw7KfwYA+gpO/7UOyn9RAK8KTv84AGQKTs7KQAAAAAF/5wAAASwBEwADwATAB8AJQApAAATITIWFREUBiMhIiY1ETQ2FxEhEQUjFTMRITUzNSMRIQURByMRMwcRMxHIArx8sLB8/UR8sLAYA4T+DMjI/tTIyAEsAZBkyMhkZARMsHz+DHywsHwB9HywyP1EArzIZP7UZGQBLGT+1GQB9GT+1AEsAAAABf+cAAAEsARMAA8AEwAfACUAKQAAEyEyFhURFAYjISImNRE0NhcRIREBIzUjFSMRMxUzNTMFEQcjETMHETMRyAK8fLCwfP1EfLCwGAOE/gxkZGRkZGQBkGTIyGRkBEywfP4MfLCwfAH0fLDI/UQCvP2oyMgB9MjIZP7UZAH0ZP7UASwABP+cAAAEsARMAA8AEwAbACMAABMhMhYVERQGIyEiJjURNDYXESERBSMRMxUhESEFIxEzFSERIcgCvHywsHz9RHywsBgDhP4MyMj+1AEsAZDIyP7UASwETLB8/gx8sLB8AfR8sMj9RAK8yP7UZAH0ZP7UZAH0AAAABP+cAAAEsARMAA8AEwAWABkAABMhMhYVERQGIyEiJjURNDYXESERAS0BDQERyAK8fLCwfP1EfLCwGAOE/gz+1AEsAZD+1ARMsHz+DHywsHwB9HywyP1EArz+DJaWlpYBLAAAAAX/nAAABLAETAAPABMAFwAgACkAABMhMhYVERQGIyEiJjURNDYXESERAyERIQcjIgYVFBY7AQERMzI2NTQmI8gCvHywsHz9RHywsBgDhGT9RAK8ZIImOTYpgv4Mgik2OSYETLB8/gx8sLB8AfR8sMj9RAK8/agB9GRWQUFUASz+1FRBQVYAAAAF/5wAAASwBEwADwATAB8AJQApAAATITIWFREUBiMhIiY1ETQ2FxEhEQUjFTMRITUzNSMRIQEjESM1MwMjNTPIArx8sLB8/UR8sLAYA4T+DMjI/tTIyAEsAZBkZMjIZGQETLB8/gx8sLB8AfR8sMj9RAK8yGT+1GRkASz+DAGQZP4MZAAG/5wAAASwBEwADwATABkAHwAjACcAABMhMhYVERQGIyEiJjURNDYXESERBTMRIREzASMRIzUzBRUzNQEjNTPIArx8sLB8/UR8sLAYA4T9RMj+1GQCWGRkyP2oZAEsZGQETLB8/gx8sLB8AfR8sMj9RAK8yP5wAfT+DAGQZMjIyP7UZAAF/5wAAASwBEwADwATABwAIgAmAAATITIWFREUBiMhIiY1ETQ2FxEhEQEHIzU3NSM1IQEjESM1MwMjNTPIArx8sLB8/UR8sLAYA4T+DMdkx8gBLAGQZGTIx2RkBEywfP4MfLCwfAH0fLDI/UQCvP5wyDLIlmT+DAGQZP4MZAAAAAMACQAJBKcEpwAPABsAJQAAADIeAhQOAiIuAjQ+AQQiDgEUHgEyPgE0JgchFSEVISc1NyEB4PDbnl5entvw255eXp4BxeTCcXHC5MJxcWz+1AEs/tRkZAEsBKdentvw255eXp7b8NueTHHC5MJxccLkwtDIZGTIZAAAAAAEAAkACQSnBKcADwAbACcAKwAAADIeAhQOAiIuAjQ+AQQiDgEUHgEyPgE0JgcVBxcVIycjFSMRIQcVMzUB4PDbnl5entvw255eXp4BxeTCcXHC5MJxcWwyZGRklmQBLMjIBKdentvw255eXp7b8NueTHHC5MJxccLkwtBkMmQyZGQBkGRkZAAAAv/y/50EwgRBACAANgAAATIWFzYzMhYUBisBNTQmIyEiBh0BIyImNTQ2NyY1ND4BEzMyFhURMzIWDwEGIi8BJjY7ARE0NgH3brUsLC54qqp4gB0V/tQVHd5QcFZBAmKqepYKD4kVCg3fDSYN3w0KFYkPBEF3YQ6t8a36FR0dFfpzT0VrDhMSZKpi/bMPCv7tFxD0EBD0EBcBEwoPAAAAAAL/8v+cBMMEQQAcADMAAAEyFhc2MzIWFxQGBwEmIgcBIyImNTQ2NyY1ND4BExcWBisBERQGKwEiJjURIyImNzY3NjIB9m62LCsueaoBeFr+hg0lDf6DCU9xVkECYqnm3w0KFYkPCpYKD4kVCg3HGBMZBEF3YQ+teGOkHAFoEBD+k3NPRWsOExNkqWP9kuQQF/7tCg8PCgETFxDMGBMAAAABAGQAAARMBG0AGAAAJTUhATMBMwkBMwEzASEVIyIGHQEhNTQmIwK8AZD+8qr+8qr+1P7Uqv7yqv7yAZAyFR0BkB0VZGQBLAEsAU3+s/7U/tRkHRUyMhUdAAAAAAEAeQAABDcEmwAvAAABMhYXHgEVFAYHFhUUBiMiJxUyFh0BITU0NjM1BiMiJjU0Ny4BNTQ2MzIXNCY1NDYCWF6TGll7OzIJaUo3LRUd/tQdFS03SmkELzlpSgUSAqMEm3FZBoNaPWcfHRpKaR77HRUyMhUd+x5pShIUFVg1SmkCAhAFdKMAAAAGACcAFASJBJwAEQAqAEIASgBiAHsAAAEWEgIHDgEiJicmAhI3PgEyFgUiBw4BBwYWHwEWMzI3Njc2Nz4BLwEmJyYXIgcOAQcGFh8BFjMyNz4BNz4BLwEmJyYWJiIGFBYyNjciBw4BBw4BHwEWFxYzMjc+ATc2Ji8BJhciBwYHBgcOAR8BFhcWMzI3PgE3NiYvASYD8m9PT29T2dzZU29PT29T2dzZ/j0EBHmxIgQNDCQDBBcGG0dGYAsNAwkDCwccBAVQdRgEDA0iBAQWBhJROQwMAwkDCwf5Y4xjY4xjVhYGElE6CwwDCQMLBwgEBVB1GAQNDCIEjRcGG0dGYAsNAwkDCwcIBAR5sSIEDQwkAwPyb/7V/tVvU1dXU28BKwErb1NXVxwBIrF5DBYDCQEWYEZHGwMVDCMNBgSRAhh1UA0WAwkBFTpREgMVCyMMBwT6Y2OMY2MVFTpREQQVCyMMBwQCGHVQDRYDCQEkFmBGRxsDFQwjDQYEASKxeQwWAwkBAAAABQBkAAAD6ASwAAwADwAWABwAIgAAASERIzUhFSERNDYzIQEjNQMzByczNTMDISImNREFFRQGKwECvAEstP6s/oQPCgI/ASzIZKLU1KJktP51Cg8DhA8KwwMg/oTIyALzCg/+1Mj84NTUyP4MDwoBi8jDCg8AAAAABQBkAAAD6ASwAAkADAATABoAIQAAASERCQERNDYzIQEjNRMjFSM1IzcDISImPQEpARUUBisBNQK8ASz+ov3aDwoCPwEsyD6iZKLUqv6dCg8BfAIIDwqbAyD9+AFe/doERwoP/tTI/HzIyNT+ZA8KNzcKD1AAAAAAAwAAAAAEsAP0AAgAGQAfAAABIxUzFyERIzcFMzIeAhUhFSEDETM0PgIBMwMhASEEiqJkZP7UotT9EsgbGiEOASz9qMhkDiEaAnPw8PzgASwB9AMgyGQBLNTUBBErJGT+ogHCJCsRBP5w/nAB9AAAAAMAAAAABEwETAAZADIAOQAAATMyFh0BMzIWHQEUBiMhIiY9ATQ2OwE1NDYFNTIWFREUBiMhIic3ARE0NjMVFBYzITI2AQc1IzUzNQKKZBUdMhUdHRX+1BUdHRUyHQFzKTs7Kf2oARP2/ro7KVg+ASw+WP201MjIBEwdFTIdFWQVHR0VZBUdMhUd+pY7KfzgKTsE9gFGAUQpO5Y+WFj95tSiZKIAAwBkAAAEvARMABkANgA9AAABMzIWHQEzMhYdARQGIyEiJj0BNDY7ATU0NgU1MhYVESMRMxQOAiMhIiY1ETQ2MxUUFjMhMjYBBzUjNTM1AcJkFR0yFR0dFf7UFR0dFTIdAXMpO8jIDiEaG/2oKTs7KVg+ASw+WAGc1MjIBEwdFTIdFWQVHR0VZBUdMhUd+pY7Kf4M/tQkKxEEOykDICk7lj5YWP3m1KJkogAAAAP/ogAABRYE1AALABsAHwAACQEWBiMhIiY3ATYyEyMiBhcTHgE7ATI2NxM2JgMVMzUCkgJ9FyAs+wQsIBcCfRZARNAUGAQ6BCMUNhQjBDoEGODIBK37sCY3NyYEUCf+TB0U/tIUHR0UAS4UHf4MZGQAAAAACQAAAAAETARMAA8AHwAvAD8ATwBfAG8AfwCPAAABMzIWHQEUBisBIiY9ATQ2EzMyFh0BFAYrASImPQE0NiEzMhYdARQGKwEiJj0BNDYBMzIWHQEUBisBIiY9ATQ2ITMyFh0BFAYrASImPQE0NiEzMhYdARQGKwEiJj0BNDYBMzIWHQEUBisBIiY9ATQ2ITMyFh0BFAYrASImPQE0NiEzMhYdARQGKwEiJj0BNDYBqfoKDw8K+goPDwr6Cg8PCvoKDw8BmvoKDw8K+goPD/zq+goPDwr6Cg8PAZr6Cg8PCvoKDw8BmvoKDw8K+goPD/zq+goPDwr6Cg8PAZr6Cg8PCvoKDw8BmvoKDw8K+goPDwRMDwqWCg8PCpYKD/7UDwqWCg8PCpYKDw8KlgoPDwqWCg/+1A8KlgoPDwqWCg8PCpYKDw8KlgoPDwqWCg8PCpYKD/7UDwqWCg8PCpYKDw8KlgoPDwqWCg8PCpYKDw8KlgoPAAAAAwAAAAAEsAUUABkAKQAzAAABMxUjFSEyFg8BBgchJi8BJjYzITUjNTM1MwEhMhYUBisBFyE3IyImNDYDITIWHQEhNTQ2ArxkZAFePjEcQiko/PwoKUIcMT4BXmRkyP4+ArwVHR0VDIn8SooNFR0dswRMFR37UB0EsMhkTzeEUzMzU4Q3T2TIZPx8HSodZGQdKh3+1B0VMjIVHQAABAAAAAAEsAUUAAUAGQArADUAAAAyFhUjNAchFhUUByEyFg8BIScmNjMhJjU0AyEyFhQGKwEVBSElNSMiJjQ2AyEyFh0BITU0NgIwUDnCPAE6EgMBSCkHIq/9WrIiCikBSAOvArwVHR0VlgET/EoBE5YVHR2zBEwVHftQHQUUOykpjSUmCBEhFpGRFiERCCb+lR0qHcjIyMgdKh39qB0VMjIVHQAEAAAAAASwBJ0ABwAUACQALgAAADIWFAYiJjQTMzIWFRQXITY1NDYzASEyFhQGKwEXITcjIiY0NgMhMhYdASE1NDYCDZZqapZqty4iKyf+vCcrI/7NArwVHR0VDYr8SokMFR0dswRMFR37UB0EnWqWamqW/us5Okxra0w6Of5yHSodZGQdKh3+1B0VMjIVHQAEAAAAAASwBRQADwAcACwANgAAATIeARUUBiImNTQ3FzcnNhMzMhYVFBchNjU0NjMBITIWFAYrARchNyMiJjQ2AyEyFh0BITU0NgJYL1szb5xvIpBvoyIfLiIrJ/68Jysj/s0CvBUdHRUNivxKiQwVHR2zBEwVHftQHQUUa4s2Tm9vTj5Rj2+jGv4KOTpMa2tMOjn+ch0qHWRkHSod/tQdFTIyFR0AAAADAAAAAASwBRIAEgAiACwAAAEFFSEUHgMXIS4BNTQ+AjcBITIWFAYrARchNyMiJjQ2AyEyFh0BITU0NgJYASz+1CU/P00T/e48PUJtj0r+ogK8FR0dFQ2K/EqJDBUdHbMETBUd+1AdBLChizlmUT9IGVO9VFShdksE/H4dKh1kZB0qHf7UHRUyMhUdAAIAyAAAA+gFFAAPACkAAAAyFh0BHgEdASE1NDY3NTQDITIWFyMVMxUjFTMVIxUzFAYjISImNRE0NgIvUjsuNv5wNi5kAZA2XBqsyMjIyMh1U/5wU3V1BRQ7KU4aXDYyMjZcGk4p/kc2LmRkZGRkU3V1UwGQU3UAAAMAZP//BEwETAAPAC8AMwAAEyEyFhURFAYjISImNRE0NgMhMhYdARQGIyEXFhQGIi8BIQcGIiY0PwEhIiY9ATQ2BQchJ5YDhBUdHRX8fBUdHQQDtgoPDwr+5eANGiUNWP30Vw0mGg3g/t8KDw8BqmQBRGQETB0V/gwVHR0VAfQVHf1EDwoyCg/gDSUbDVhYDRslDeAPCjIKD2RkZAAAAAAEAAAAAASwBEwAGQAjAC0ANwAAEyEyFh0BIzQmKwEiBhUjNCYrASIGFSM1NDYDITIWFREhETQ2ExUUBisBIiY9ASEVFAYrASImPQHIAyBTdWQ7KfopO2Q7KfopO2R1EQPoKTv7UDvxHRVkFR0D6B0VZBUdBEx1U8gpOzspKTs7KchTdf4MOyn+1AEsKTv+DDIVHR0VMjIVHR0VMgADAAEAAASpBKwADQARABsAAAkBFhQPASEBJjQ3ATYyCQMDITIWHQEhNTQ2AeACqh8fg/4f/fsgIAEnH1n+rAFWAS/+q6IDIBUd/HwdBI39VR9ZH4MCBh9ZHwEoH/5u/qoBMAFV/BsdFTIyFR0AAAAAAgCPAAAEIQSwABcALwAAAQMuASMhIgYHAwYWMyEVFBYyNj0BMzI2AyE1NDY7ATU0NjsBETMRMzIWHQEzMhYVBCG9CCcV/nAVJwi9CBMVAnEdKh19FROo/a0dFTIdFTDILxUdMhUdAocB+hMcHBP+BhMclhUdHRWWHP2MMhUdMhUdASz+1B0VMh0VAAAEAAAAAASwBLAADQAQAB8AIgAAASERFAYjIREBNTQ2MyEBIzUBIREUBiMhIiY1ETQ2MyEBIzUDhAEsDwr+if7UDwoBdwEsyP2oASwPCv12Cg8PCgF3ASzIAyD9wQoPAk8BLFQKD/7UyP4M/cEKDw8KA7YKD/7UyAAC/5wAZAUUBEcARgBWAAABMzIeAhcWFxY2NzYnJjc+ARYXFgcOASsBDgEPAQ4BKwEiJj8BBisBIicHDgErASImPwEmLwEuAT0BNDY7ATY3JyY2OwE2BSMiBh0BFBY7ATI2PQE0JgHkw0uOakkMEhEfQwoKGRMKBQ8XDCkCA1Y9Pgc4HCcDIhVkFRgDDDEqwxgpCwMiFWQVGAMaVCyfExwdFXwLLW8QBxXLdAFF+goPDwr6Cg8PBEdBa4pJDgYKISAiJRsQCAYIDCw9P1c3fCbqFB0dFEYOCEAUHR0UnUplNQcmFTIVHVdPXw4TZV8PCjIKDw8KMgoPAAb/nP/mBRQEfgAJACQANAA8AFIAYgAAASU2Fh8BFgYPASUzMhYfASEyFh0BFAYHBQYmJyYjISImPQE0NhcjIgYdARQ7ATI2NTQmJyYEIgYUFjI2NAE3PgEeARceAT8BFxYGDwEGJi8BJjYlBwYfAR4BPwE2Jy4BJy4BAoEBpxMuDiAOAxCL/CtqQ0geZgM3FR0cE/0fFyIJKjr+1D5YWLlQExIqhhALIAsSAYBALS1ALf4PmBIgHhMQHC0aPzANITNQL3wpgigJASlmHyElDR0RPRMFAhQHCxADhPcICxAmDyoNeMgiNtQdFTIVJgeEBBQPQ1g+yD5YrBwVODMQEAtEERzJLUAtLUD+24ITChESEyMgAwWzPUkrRSgJL5cvfRxYGyYrDwkLNRAhFEgJDAQAAAAAAwBkAAAEOQSwAFEAYABvAAABMzIWHQEeARcWDgIPATIeBRUUDgUjFRQGKwEiJj0BIxUUBisBIiY9ASMiJj0BNDY7AREjIiY9ATQ2OwE1NDY7ATIWHQEzNTQ2AxUhMj4CNTc0LgMjARUhMj4CNTc0LgMjAnGWCg9PaAEBIC4uEBEGEjQwOiodFyI2LUAjGg8KlgoPZA8KlgoPrwoPDwpLSwoPDwqvDwqWCg9kD9cBBxwpEwsBAQsTKRz++QFrHCkTCwEBCxMpHASwDwptIW1KLk0tHwYGAw8UKDJOLTtdPCoVCwJLCg8PCktLCg8PCksPCpYKDwJYDwqWCg9LCg8PCktLCg/+1MgVHR0LCgQOIhoW/nDIFR0dCwoEDiIaFgAAAwAEAAIEsASuABcAKQAsAAATITIWFREUBg8BDgEjISImJy4CNRE0NgQiDgQPARchNy4FAyMT1AMMVnokEhIdgVL9xFKCHAgYKHoCIIx9VkcrHQYGnAIwnAIIIClJVSGdwwSuelb+YDO3QkJXd3ZYHFrFMwGgVnqZFyYtLSUMDPPzBQ8sKDEj/sIBBQACAMgAAAOEBRQADwAZAAABMzIWFREUBiMhIiY1ETQ2ARUUBisBIiY9AQHblmesVCn+PilUrAFINhWWFTYFFKxn/gwpVFQpAfRnrPwY4RU2NhXhAAACAMgAAAOEBRQADwAZAAABMxQWMxEUBiMhIiY1ETQ2ARUUBisBIiY9AQHbYLOWVCn+PilUrAFINhWWFTYFFJaz/kIpVFQpAfRnrPwY4RU2NhXhAAACAAAAFAUOBBoAFAAaAAAJASUHFRcVJwc1NzU0Jj4CPwEnCQEFJTUFJQUO/YL+hk5klpZkAQEBBQQvkwKCAVz+ov6iAV4BXgL//uWqPOCWx5SVyJb6BA0GCgYDKEEBG/1ipqaTpaUAAAMAZAH0BLADIAAHAA8AFwAAEjIWFAYiJjQkMhYUBiImNCQyFhQGIiY0vHxYWHxYAeh8WFh8WAHofFhYfFgDIFh8WFh8WFh8WFh8WFh8WFh8AAAAAAMBkAAAArwETAAHAA8AFwAAADIWFAYiJjQSMhYUBiImNBIyFhQGIiY0Aeh8WFh8WFh8WFh8WFh8WFh8WARMWHxYWHz+yFh8WFh8/shYfFhYfAAAAAMAZABkBEwETAAPAB8ALwAAEyEyFh0BFAYjISImPQE0NhMhMhYdARQGIyEiJj0BNDYTITIWHQEUBiMhIiY9ATQ2fQO2Cg8PCvxKCg8PCgO2Cg8PCvxKCg8PCgO2Cg8PCvxKCg8PBEwPCpYKDw8KlgoP/nAPCpYKDw8KlgoP/nAPCpYKDw8KlgoPAAAABAAAAAAEsASwAA8AHwAvADMAAAEhMhYVERQGIyEiJjURNDYFISIGFREUFjMhMjY1ETQmBSEyFhURFAYjISImNRE0NhcVITUBXgH0ory7o/4Mpbm5Asv9qCk7OykCWCk7O/2xAfQVHR0V/gwVHR1HAZAEsLuj/gylubmlAfSlucg7Kf2oKTs7KQJYKTtkHRX+1BUdHRUBLBUdZMjIAAAAAAEAZABkBLAETAA7AAATITIWFAYrARUzMhYUBisBFTMyFhQGKwEVMzIWFAYjISImNDY7ATUjIiY0NjsBNSMiJjQ2OwE1IyImNDaWA+gVHR0VMjIVHR0VMjIVHR0VMjIVHR0V/BgVHR0VMjIVHR0VMjIVHR0VMjIVHR0ETB0qHcgdKh3IHSodyB0qHR0qHcgdKh3IHSodyB0qHQAAAAYBLAAFA+gEowAHAA0AEwAZAB8AKgAAAR4BBgcuATYBMhYVIiYlFAYjNDYBMhYVIiYlFAYjNDYDFRQGIiY9ARYzMgKKVz8/V1c/P/75fLB8sAK8sHyw/cB8sHywArywfLCwHSodKAMRBKNDsrJCQrKy/sCwfLB8fLB8sP7UsHywfHywfLD+05AVHR0VjgQAAAH/tQDIBJQDgQBCAAABNzYXAR4BBw4BKwEyFRQOBCsBIhE0NyYiBxYVECsBIi4DNTQzIyImJyY2NwE2HwEeAQ4BLwEHIScHBi4BNgLpRRkUASoLCAYFGg8IAQQNGyc/KZK4ChRUFQu4jjBJJxkHAgcPGQYGCAsBKhQaTBQVCiMUM7YDe7YsFCMKFgNuEwYS/tkLHw8OEw0dNkY4MhwBIBgXBAQYF/7gKjxTQyMNEw4PHwoBKBIHEwUjKBYGDMHBDAUWKCMAAAAAAgAAAAAEsASwACUAQwAAASM0LgUrAREUFh8BFSE1Mj4DNREjIg4FFSMRIQEjNC4DKwERFBYXMxUjNTI1ESMiDgMVIzUhBLAyCAsZEyYYGcgyGRn+cAQOIhoWyBkYJhMZCwgyA+j9RBkIChgQEWQZDQzIMmQREBgKCBkB9AOEFSAVDggDAfyuFhkBAmRkAQUJFQ4DUgEDCA4VIBUBLP0SDxMKBQH+VwsNATIyGQGpAQUKEw+WAAAAAAMAAAAABEwErgAdACAAMAAAATUiJy4BLwEBIwEGBw4BDwEVITUiJj8BIRcWBiMVARsBARUUBiMhIiY9ATQ2MyEyFgPoGR4OFgUE/t9F/tQSFQkfCwsBETE7EkUBJT0NISf+7IZ5AbEdFfwYFR0dFQPoFR0BLDIgDiIKCwLr/Q4jFQkTBQUyMisusKYiQTIBhwFW/qr942QVHR0VZBUdHQADAAAAAASwBLAADwBHAEoAABMhMhYVERQGIyEiJjURNDYFIyIHAQYHBgcGHQEUFjMhMjY9ATQmIyInJj8BIRcWBwYjIgYdARQWMyEyNj0BNCYnIicmJyMBJhMjEzIETBUdHRX7tBUdHQJGRg0F/tUREhImDAsJAREIDAwINxAKCj8BCjkLEQwYCAwMCAE5CAwLCBEZGQ8B/uAFDsVnBLAdFfu0FR0dFQRMFR1SDP0PIBMSEAUNMggMDAgyCAwXDhmjmR8YEQwIMggMDAgyBwwBGRskAuwM/gUBCAAABAAAAAAEsASwAAMAEwAjACcAAAEhNSEFITIWFREUBiMhIiY1ETQ2KQEyFhURFAYjISImNRE0NhcRIREEsPtQBLD7ggGQFR0dFf5wFR0dAm0BkBUdHRX+cBUdHUcBLARMZMgdFfx8FR0dFQOEFR0dFf5wFR0dFQGQFR1k/tQBLAAEAAAAAASwBLAADwAfACMAJwAAEyEyFhURFAYjISImNRE0NgEhMhYVERQGIyEiJjURNDYXESEREyE1ITIBkBUdHRX+cBUdHQJtAZAVHR0V/nAVHR1HASzI+1AEsASwHRX8fBUdHRUDhBUd/gwdFf5wFR0dFQGQFR1k/tQBLP2oZAAAAAACAAAAZASwA+gAJwArAAATITIWFREzNTQ2MyEyFh0BMxUjFRQGIyEiJj0BIxEUBiMhIiY1ETQ2AREhETIBkBUdZB0VAZAVHWRkHRX+cBUdZB0V/nAVHR0CnwEsA+gdFf6ilhUdHRWWZJYVHR0Vlv6iFR0dFQMgFR3+1P7UASwAAAQAAAAABLAEsAADABMAFwAnAAAzIxEzFyEyFhURFAYjISImNRE0NhcRIREBITIWFREUBiMhIiY1ETQ2ZGRklgGQFR0dFf5wFR0dRwEs/qIDhBUdHRX8fBUdHQSwZB0V/nAVHR0VAZAVHWT+1AEs/gwdFf5wFR0dFQGQFR0AAAAAAgBkAAAETASwACcAKwAAATMyFhURFAYrARUhMhYVERQGIyEiJjURNDYzITUjIiY1ETQ2OwE1MwcRIRECWJYVHR0VlgHCFR0dFfx8FR0dFQFelhUdHRWWZMgBLARMHRX+cBUdZB0V/nAVHR0VAZAVHWQdFQGQFR1kyP7UASwAAAAEAAAAAASwBLAAAwATABcAJwAAISMRMwUhMhYVERQGIyEiJjURNDYXESERASEyFhURFAYjISImNRE0NgSwZGT9dgGQFR0dFf5wFR0dRwEs/K4DhBUdHRX8fBUdHQSwZB0V/nAVHR0VAZAVHWT+1AEs/gwdFf5wFR0dFQGQFR0AAAEBLAAwA28EgAAPAAAJAQYjIiY1ETQ2MzIXARYUA2H+EhcSDhAQDhIXAe4OAjX+EhcbGQPoGRsX/hIOKgAAAAABAUEAMgOEBH4ACwAACQE2FhURFAYnASY0AU8B7h0qKh3+Eg4CewHuHREp/BgpER0B7g4qAAAAAAEAMgFBBH4DhAALAAATITIWBwEGIicBJjZkA+gpER3+Eg4qDv4SHREDhCod/hIODgHuHSoAAAAAAQAyASwEfgNvAAsAAAkBFgYjISImNwE2MgJ7Ae4dESn8GCkRHQHuDioDYf4SHSoqHQHuDgAAAAACAAgAAASwBCgABgAKAAABFQE1LQE1ASE1IQK8/UwBnf5jBKj84AMgAuW2/r3dwcHd+9jIAAAAAAIAAABkBLAEsAALADEAAAEjFTMVIREzNSM1IQEzND4FOwERFAYPARUhNSIuAzURMzIeBRUzESEEsMjI/tTIyAEs+1AyCAsZEyYYGWQyGRkBkAQOIhoWZBkYJhMZCwgy/OADhGRkASxkZP4MFSAVDggDAf3aFhkBAmRkAQUJFQ4CJgEDCA4VIBUBLAAAAgAAAAAETAPoACUAMQAAASM0LgUrAREUFh8BFSE1Mj4DNREjIg4FFSMRIQEjFTMVIREzNSM1IQMgMggLGRMmGBlkMhkZ/nAEDiIaFmQZGCYTGQsIMgMgASzIyP7UyMgBLAK8FSAVDggDAf3aFhkCAWRkAQUJFQ4CJgEDCA4VIBUBLPzgZGQBLGRkAAABAMgAZgNyBEoAEgAAATMyFgcJARYGKwEiJwEmNDcBNgK9oBAKDP4wAdAMChCgDQr+KQcHAdcKBEoWDP4w/jAMFgkB1wgUCAHXCQAAAQE+AGYD6ARKABIAAAEzMhcBFhQHAQYrASImNwkBJjYBU6ANCgHXBwf+KQoNoBAKDAHQ/jAMCgRKCf4pCBQI/ikJFgwB0AHQDBYAAAEAZgDIBEoDcgASAAAAFh0BFAcBBiInASY9ATQ2FwkBBDQWCf4pCBQI/ikJFgwB0AHQA3cKEKANCv4pBwcB1woNoBAKDP4wAdAAAAABAGYBPgRKA+gAEgAACQEWHQEUBicJAQYmPQE0NwE2MgJqAdcJFgz+MP4wDBYJAdcIFAPh/ikKDaAQCgwB0P4wDAoQoA0KAdcHAAAAAgDZ//kEPQSwAAUAOgAAARQGIzQ2BTMyFh8BNjc+Ah4EBgcOBgcGIiYjIgYiJy4DLwEuAT4EHgEXJyY2A+iwfLD+VmQVJgdPBQsiKFAzRyorDwURAQQSFyozTSwNOkkLDkc3EDlfNyYHBw8GDyUqPjdGMR+TDA0EsHywfLDIHBPCAQIGBwcFDx81S21DBxlLR1xKQhEFBQcHGWt0bCQjP2hJNyATBwMGBcASGAAAAAACAMgAFQOEBLAAFgAaAAATITIWFREUBisBEQcGJjURIyImNRE0NhcVITX6AlgVHR0Vlv8TGpYVHR2rASwEsB0V/nAVHf4MsgkQFQKKHRUBkBUdZGRkAAAAAgDIABkETASwAA4AEgAAEyEyFhURBRElIREjETQ2ARU3NfoC7ic9/UQCWP1EZB8BDWQEsFEs/Ft1A7Z9/BgEARc0/V1kFGQAAQAAAAECTW/DBF9fDzz1AB8EsAAAAADQdnOXAAAAANB2c5f/Uf+cBdwFFAAAAAgAAgAAAAAAAAABAAAFFP+FAAAFFP9R/tQF3AABAAAAAAAAAAAAAAAAAAAAowG4ACgAAAAAAZAAAASwAAAEsABkBLAAAASwAAAEsABwAooAAAUUAAACigAABRQAAAGxAAABRQAAANgAAADYAAAAogAAAQQAAABIAAABBAAAAUUAAASwAGQEsAB7BLAAyASwAMgB9AAABLD/8gSwAAAEsAAABLD/8ASwAAAEsAAOBLAACQSwAGQEsP/TBLD/0wSwAAAEsAAABLAAAASwAAAEsAAABLAAJgSwAG4EsAAXBLAAFwSwABcEsABkBLAAGgSwAGQEsAAMBLAAZASwABcEsP+cBLAAZASwABcEsAAXBLAAAASwABcEsAAXBLAAFwSwAGQEsAAABLAAZASwAAAEsAAABLAAAASwAAAEsAAABLAAAASwAAAEsAAABLAAZASwAMgEsAAABLAAAASwADUEsABkBLAAyASw/7UEsAAhBLAAAASwAAAEsAAABLAAAASwAAAEsP+cBLAAAASwAAAEsAAABLAA2wSwABcEsAB1BLAAAASwAAAEsAAABLAACgSwAMgEsAAABLAAnQSwAMgEsADIBLAAyASwAAAEsP/+BLABLASwAGQEsACIBLABOwSwABcEsAAXBLAAFwSwABcEsAAXBLAAFwSwAAAEsAAXBLAAFwSwABcEsAAXBLAAAASwALcEsAC3BLAAAASwAAAEsABJBLAAFwSwAAAEsAAABLAAXQSw/9wEsP/cBLD/nwSwAGQEsAAABLAAAASwAAAEsABkBLD//wSwAAAEsP9RBLAABgSwAAAEsAAABLABRQSwAAEEsAAABLD/nASwAEoEsAAUBLAAAASwAAAEsAAABLD/nASwAGEEsP/9BLAAFgSwABYEsAAWBLAAFgSwABgEsAAABMQAAASwAGQAAAAAAAD/2ABkADkAyAAAAScAZAAZABkAGQAZABkAGQAZAAAAAAAAAAAAAADZAAAAAAAOAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAMAZABkAAAAEAAAAAAAZP+c/5z/nP+c/5z/nP+c/5wACQAJ//L/8gBkAHkAJwBkAGQAAAAAAGT/ogAAAAAAAAAAAAAAAADIAGQAAAABAI8AAP+c/5wAZAAEAMgAyAAAAGQBkABkAAAAZAEs/7UAAAAAAAAAAAAAAAAAAABkAAABLAFBADIAMgAIAAAAAADIAT4AZgBmANkAyADIAAAAKgAqACoAKgCyAOgA6AFOAU4BTgFOAU4BTgFOAU4BTgFOAU4BTgFOAU4BpAIGAiICfgKGAqwC5ANGA24DjAPEBAgEMgRiBKIE3AVcBboGcgb0ByAHYgfKCB4IYgi+CTYJhAm2Cd4KKApMCpQK4gswC4oLygwIDFgNKg1eDbAODg5oDrQPKA+mD+YQEhBUEJAQqhEqEXYRthIKEjgSfBLAExoTdBPQFCoU1BU8FagVzBYEFjYWYBawFv4XUhemGAIYLhhqGJYYsBjgGP4ZKBloGZQZxBnaGe4aNhpoGrga9hteG7QcMhyUHOIdHB1EHWwdlB28HeYeLh52HsAfYh/SIEYgviEyIXYhuCJAIpYiuCMOIyIjOCN6I8Ij4CQCJDAkXiSWJOIlNCVgJbwmFCZ+JuYnUCe8J/goNChwKKwpoCnMKiYqSiqEKworeiwILGgsuizsLRwtiC30LiguZi6iLtgvDi9GL34vsi/4MD4whDDSMRIxYDGuMegyJDJeMpoy3jMiMz4zaDO2NBg0YDSoNNI1LDWeNeg2PjZ8Ntw3GjdON5I31DgQOEI4hjjIOQo5SjmIOcw6HDpsOpo63jugO9w8GDxQPKI8+D0yPew+Oj6MPtQ/KD9uP6o/+kBIQIBAxkECQX5CGEKoQu5DGENCQ3ZDoEPKRBBEYESuRPZFWkW2RgZGdEa0RvZHNkd2R7ZH9kgWSDJITkhqSIZIzEkSSThJXkmESapKAkouSlIAAQAAARcApwARAAAAAAACAAAAAQABAAAAQAAuAAAAAAAAABAAxgABAAAAAAATABIAAAADAAEECQAAAGoAEgADAAEECQABACgAfAADAAEECQACAA4ApAADAAEECQADAEwAsgADAAEECQAEADgA/gADAAEECQAFAHgBNgADAAEECQAGADYBrgADAAEECQAIABYB5AADAAEECQAJABYB+gADAAEECQALACQCEAADAAEECQAMACQCNAADAAEECQATACQCWAADAAEECQDIABYCfAADAAEECQDJADACkgADAAEECdkDABoCwnd3dy5nbHlwaGljb25zLmNvbQBDAG8AcAB5AHIAaQBnAGgAdAAgAKkAIAAyADAAMQA0ACAAYgB5ACAASgBhAG4AIABLAG8AdgBhAHIAaQBrAC4AIABBAGwAbAAgAHIAaQBnAGgAdABzACAAcgBlAHMAZQByAHYAZQBkAC4ARwBMAFkAUABIAEkAQwBPAE4AUwAgAEgAYQBsAGYAbABpAG4AZwBzAFIAZQBnAHUAbABhAHIAMQAuADAAMAA5ADsAVQBLAFcATgA7AEcATABZAFAASABJAEMATwBOAFMASABhAGwAZgBsAGkAbgBnAHMALQBSAGUAZwB1AGwAYQByAEcATABZAFAASABJAEMATwBOAFMAIABIAGEAbABmAGwAaQBuAGcAcwAgAFIAZQBnAHUAbABhAHIAVgBlAHIAcwBpAG8AbgAgADEALgAwADAAOQA7AFAAUwAgADAAMAAxAC4AMAAwADkAOwBoAG8AdABjAG8AbgB2ACAAMQAuADAALgA3ADAAOwBtAGEAawBlAG8AdABmAC4AbABpAGIAMgAuADUALgA1ADgAMwAyADkARwBMAFkAUABIAEkAQwBPAE4AUwBIAGEAbABmAGwAaQBuAGcAcwAtAFIAZQBnAHUAbABhAHIASgBhAG4AIABLAG8AdgBhAHIAaQBrAEoAYQBuACAASwBvAHYAYQByAGkAawB3AHcAdwAuAGcAbAB5AHAAaABpAGMAbwBuAHMALgBjAG8AbQB3AHcAdwAuAGcAbAB5AHAAaABpAGMAbwBuAHMALgBjAG8AbQB3AHcAdwAuAGcAbAB5AHAAaABpAGMAbwBuAHMALgBjAG8AbQBXAGUAYgBmAG8AbgB0ACAAMQAuADAAVwBlAGQAIABPAGMAdAAgADIAOQAgADAANgA6ADMANgA6ADAANwAgADIAMAAxADQARgBvAG4AdAAgAFMAcQB1AGkAcgByAGUAbAAAAAIAAAAAAAD/tQAyAAAAAAAAAAAAAAAAAAAAAAAAAAABFwAAAQIBAwADAA0ADgEEAJYBBQEGAQcBCAEJAQoBCwEMAQ0BDgEPARABEQESARMA7wEUARUBFgEXARgBGQEaARsBHAEdAR4BHwEgASEBIgEjASQBJQEmAScBKAEpASoBKwEsAS0BLgEvATABMQEyATMBNAE1ATYBNwE4ATkBOgE7ATwBPQE+AT8BQAFBAUIBQwFEAUUBRgFHAUgBSQFKAUsBTAFNAU4BTwFQAVEBUgFTAVQBVQFWAVcBWAFZAVoBWwFcAV0BXgFfAWABYQFiAWMBZAFlAWYBZwFoAWkBagFrAWwBbQFuAW8BcAFxAXIBcwF0AXUBdgF3AXgBeQF6AXsBfAF9AX4BfwGAAYEBggGDAYQBhQGGAYcBiAGJAYoBiwGMAY0BjgGPAZABkQGSAZMBlAGVAZYBlwGYAZkBmgGbAZwBnQGeAZ8BoAGhAaIBowGkAaUBpgGnAagBqQGqAasBrAGtAa4BrwGwAbEBsgGzAbQBtQG2AbcBuAG5AboBuwG8Ab0BvgG/AcABwQHCAcMBxAHFAcYBxwHIAckBygHLAcwBzQHOAc8B0AHRAdIB0wHUAdUB1gHXAdgB2QHaAdsB3AHdAd4B3wHgAeEB4gHjAeQB5QHmAecB6AHpAeoB6wHsAe0B7gHvAfAB8QHyAfMB9AH1AfYB9wH4AfkB+gH7AfwB/QH+Af8CAAIBAgICAwIEAgUCBgIHAggCCQIKAgsCDAINAg4CDwIQAhECEgZnbHlwaDEGZ2x5cGgyB3VuaTAwQTAHdW5pMjAwMAd1bmkyMDAxB3VuaTIwMDIHdW5pMjAwMwd1bmkyMDA0B3VuaTIwMDUHdW5pMjAwNgd1bmkyMDA3B3VuaTIwMDgHdW5pMjAwOQd1bmkyMDBBB3VuaTIwMkYHdW5pMjA1RgRFdXJvB3VuaTIwQkQHdW5pMjMxQgd1bmkyNUZDB3VuaTI2MDEHdW5pMjZGQQd1bmkyNzA5B3VuaTI3MEYHdW5pRTAwMQd1bmlFMDAyB3VuaUUwMDMHdW5pRTAwNQd1bmlFMDA2B3VuaUUwMDcHdW5pRTAwOAd1bmlFMDA5B3VuaUUwMTAHdW5pRTAxMQd1bmlFMDEyB3VuaUUwMTMHdW5pRTAxNAd1bmlFMDE1B3VuaUUwMTYHdW5pRTAxNwd1bmlFMDE4B3VuaUUwMTkHdW5pRTAyMAd1bmlFMDIxB3VuaUUwMjIHdW5pRTAyMwd1bmlFMDI0B3VuaUUwMjUHdW5pRTAyNgd1bmlFMDI3B3VuaUUwMjgHdW5pRTAyOQd1bmlFMDMwB3VuaUUwMzEHdW5pRTAzMgd1bmlFMDMzB3VuaUUwMzQHdW5pRTAzNQd1bmlFMDM2B3VuaUUwMzcHdW5pRTAzOAd1bmlFMDM5B3VuaUUwNDAHdW5pRTA0MQd1bmlFMDQyB3VuaUUwNDMHdW5pRTA0NAd1bmlFMDQ1B3VuaUUwNDYHdW5pRTA0Nwd1bmlFMDQ4B3VuaUUwNDkHdW5pRTA1MAd1bmlFMDUxB3VuaUUwNTIHdW5pRTA1Mwd1bmlFMDU0B3VuaUUwNTUHdW5pRTA1Ngd1bmlFMDU3B3VuaUUwNTgHdW5pRTA1OQd1bmlFMDYwB3VuaUUwNjIHdW5pRTA2Mwd1bmlFMDY0B3VuaUUwNjUHdW5pRTA2Ngd1bmlFMDY3B3VuaUUwNjgHdW5pRTA2OQd1bmlFMDcwB3VuaUUwNzEHdW5pRTA3Mgd1bmlFMDczB3VuaUUwNzQHdW5pRTA3NQd1bmlFMDc2B3VuaUUwNzcHdW5pRTA3OAd1bmlFMDc5B3VuaUUwODAHdW5pRTA4MQd1bmlFMDgyB3VuaUUwODMHdW5pRTA4NAd1bmlFMDg1B3VuaUUwODYHdW5pRTA4Nwd1bmlFMDg4B3VuaUUwODkHdW5pRTA5MAd1bmlFMDkxB3VuaUUwOTIHdW5pRTA5Mwd1bmlFMDk0B3VuaUUwOTUHdW5pRTA5Ngd1bmlFMDk3B3VuaUUxMDEHdW5pRTEwMgd1bmlFMTAzB3VuaUUxMDQHdW5pRTEwNQd1bmlFMTA2B3VuaUUxMDcHdW5pRTEwOAd1bmlFMTA5B3VuaUUxMTAHdW5pRTExMQd1bmlFMTEyB3VuaUUxMTMHdW5pRTExNAd1bmlFMTE1B3VuaUUxMTYHdW5pRTExNwd1bmlFMTE4B3VuaUUxMTkHdW5pRTEyMAd1bmlFMTIxB3VuaUUxMjIHdW5pRTEyMwd1bmlFMTI0B3VuaUUxMjUHdW5pRTEyNgd1bmlFMTI3B3VuaUUxMjgHdW5pRTEyOQd1bmlFMTMwB3VuaUUxMzEHdW5pRTEzMgd1bmlFMTMzB3VuaUUxMzQHdW5pRTEzNQd1bmlFMTM2B3VuaUUxMzcHdW5pRTEzOAd1bmlFMTM5B3VuaUUxNDAHdW5pRTE0MQd1bmlFMTQyB3VuaUUxNDMHdW5pRTE0NAd1bmlFMTQ1B3VuaUUxNDYHdW5pRTE0OAd1bmlFMTQ5B3VuaUUxNTAHdW5pRTE1MQd1bmlFMTUyB3VuaUUxNTMHdW5pRTE1NAd1bmlFMTU1B3VuaUUxNTYHdW5pRTE1Nwd1bmlFMTU4B3VuaUUxNTkHdW5pRTE2MAd1bmlFMTYxB3VuaUUxNjIHdW5pRTE2Mwd1bmlFMTY0B3VuaUUxNjUHdW5pRTE2Ngd1bmlFMTY3B3VuaUUxNjgHdW5pRTE2OQd1bmlFMTcwB3VuaUUxNzEHdW5pRTE3Mgd1bmlFMTczB3VuaUUxNzQHdW5pRTE3NQd1bmlFMTc2B3VuaUUxNzcHdW5pRTE3OAd1bmlFMTc5B3VuaUUxODAHdW5pRTE4MQd1bmlFMTgyB3VuaUUxODMHdW5pRTE4NAd1bmlFMTg1B3VuaUUxODYHdW5pRTE4Nwd1bmlFMTg4B3VuaUUxODkHdW5pRTE5MAd1bmlFMTkxB3VuaUUxOTIHdW5pRTE5Mwd1bmlFMTk0B3VuaUUxOTUHdW5pRTE5Nwd1bmlFMTk4B3VuaUUxOTkHdW5pRTIwMAd1bmlFMjAxB3VuaUUyMDIHdW5pRTIwMwd1bmlFMjA0B3VuaUUyMDUHdW5pRTIwNgd1bmlFMjA5B3VuaUUyMTAHdW5pRTIxMQd1bmlFMjEyB3VuaUUyMTMHdW5pRTIxNAd1bmlFMjE1B3VuaUUyMTYHdW5pRTIxOAd1bmlFMjE5B3VuaUUyMjEHdW5pRTIyMwd1bmlFMjI0B3VuaUUyMjUHdW5pRTIyNgd1bmlFMjI3B3VuaUUyMzAHdW5pRTIzMQd1bmlFMjMyB3VuaUUyMzMHdW5pRTIzNAd1bmlFMjM1B3VuaUUyMzYHdW5pRTIzNwd1bmlFMjM4B3VuaUUyMzkHdW5pRTI0MAd1bmlFMjQxB3VuaUUyNDIHdW5pRTI0Mwd1bmlFMjQ0B3VuaUUyNDUHdW5pRTI0Ngd1bmlFMjQ3B3VuaUUyNDgHdW5pRTI0OQd1bmlFMjUwB3VuaUUyNTEHdW5pRTI1Mgd1bmlFMjUzB3VuaUUyNTQHdW5pRTI1NQd1bmlFMjU2B3VuaUUyNTcHdW5pRTI1OAd1bmlFMjU5B3VuaUUyNjAHdW5pRjhGRgZ1MUY1MTEGdTFGNkFBAAAAAAFUUMMXAAA=) format("truetype"),url(data:image/svg+xml;base64,PD94bWwgdmVyc2lvbj0iMS4wIiBzdGFuZGFsb25lPSJubyI/Pgo8IURPQ1RZUEUgc3ZnIFBVQkxJQyAiLS8vVzNDLy9EVEQgU1ZHIDEuMS8vRU4iICJodHRwOi8vd3d3LnczLm9yZy9HcmFwaGljcy9TVkcvMS4xL0RURC9zdmcxMS5kdGQiID4KPHN2ZyB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciPgo8bWV0YWRhdGE+PC9tZXRhZGF0YT4KPGRlZnM+Cjxmb250IGlkPSJnbHlwaGljb25zX2hhbGZsaW5nc3JlZ3VsYXIiIGhvcml6LWFkdi14PSIxMjAwIiA+Cjxmb250LWZhY2UgdW5pdHMtcGVyLWVtPSIxMjAwIiBhc2NlbnQ9Ijk2MCIgZGVzY2VudD0iLTI0MCIgLz4KPG1pc3NpbmctZ2x5cGggaG9yaXotYWR2LXg9IjUwMCIgLz4KPGdseXBoIGhvcml6LWFkdi14PSIwIiAvPgo8Z2x5cGggaG9yaXotYWR2LXg9IjQwMCIgLz4KPGdseXBoIHVuaWNvZGU9IiAiIC8+CjxnbHlwaCB1bmljb2RlPSIqIiBkPSJNNjAwIDExMDBxMTUgMCAzNCAtMS41dDMwIC0zLjVsMTEgLTFxMTAgLTIgMTcuNSAtMTAuNXQ3LjUgLTE4LjV2LTIyNGwxNTggMTU4cTcgNyAxOCA4dDE5IC02bDEwNiAtMTA2cTcgLTggNiAtMTl0LTggLTE4bC0xNTggLTE1OGgyMjRxMTAgMCAxOC41IC03LjV0MTAuNSAtMTcuNXE2IC00MSA2IC03NXEwIC0xNSAtMS41IC0zNHQtMy41IC0zMGwtMSAtMTFxLTIgLTEwIC0xMC41IC0xNy41dC0xOC41IC03LjVoLTIyNGwxNTggLTE1OCBxNyAtNyA4IC0xOHQtNiAtMTlsLTEwNiAtMTA2cS04IC03IC0xOSAtNnQtMTggOGwtMTU4IDE1OHYtMjI0cTAgLTEwIC03LjUgLTE4LjV0LTE3LjUgLTEwLjVxLTQxIC02IC03NSAtNnEtMTUgMCAtMzQgMS41dC0zMCAzLjVsLTExIDFxLTEwIDIgLTE3LjUgMTAuNXQtNy41IDE4LjV2MjI0bC0xNTggLTE1OHEtNyAtNyAtMTggLTh0LTE5IDZsLTEwNiAxMDZxLTcgOCAtNiAxOXQ4IDE4bDE1OCAxNThoLTIyNHEtMTAgMCAtMTguNSA3LjUgdC0xMC41IDE3LjVxLTYgNDEgLTYgNzVxMCAxNSAxLjUgMzR0My41IDMwbDEgMTFxMiAxMCAxMC41IDE3LjV0MTguNSA3LjVoMjI0bC0xNTggMTU4cS03IDcgLTggMTh0NiAxOWwxMDYgMTA2cTggNyAxOSA2dDE4IC04bDE1OCAtMTU4djIyNHEwIDEwIDcuNSAxOC41dDE3LjUgMTAuNXE0MSA2IDc1IDZ6IiAvPgo8Z2x5cGggdW5pY29kZT0iKyIgZD0iTTQ1MCAxMTAwaDIwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMzUwaDM1MHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMjAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0zNTB2LTM1MHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMjAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYzNTBoLTM1MHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MjAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNSBoMzUwdjM1MHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4YTA7IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4YTU7IiBkPSJNODI1IDExMDBoMjUwcTEwIDAgMTIuNSAtNXQtNS41IC0xM2wtMzY0IC0zNjRxLTYgLTYgLTExIC0xOGgyNjhxMTAgMCAxMyAtNnQtMyAtMTRsLTEyMCAtMTYwcS02IC04IC0xOCAtMTR0LTIyIC02aC0xMjV2LTEwMGgyNzVxMTAgMCAxMyAtNnQtMyAtMTRsLTEyMCAtMTYwcS02IC04IC0xOCAtMTR0LTIyIC02aC0xMjV2LTE3NHEwIC0xMSAtNy41IC0xOC41dC0xOC41IC03LjVoLTE0OHEtMTEgMCAtMTguNSA3LjV0LTcuNSAxOC41djE3NCBoLTI3NXEtMTAgMCAtMTMgNnQzIDE0bDEyMCAxNjBxNiA4IDE4IDE0dDIyIDZoMTI1djEwMGgtMjc1cS0xMCAwIC0xMyA2dDMgMTRsMTIwIDE2MHE2IDggMTggMTR0MjIgNmgxMThxLTUgMTIgLTExIDE4bC0zNjQgMzY0cS04IDggLTUuNSAxM3QxMi41IDVoMjUwcTI1IDAgNDMgLTE4bDE2NCAtMTY0cTggLTggMTggLTh0MTggOGwxNjQgMTY0cTE4IDE4IDQzIDE4eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeDIwMDA7IiBob3Jpei1hZHYteD0iNjUwIiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4MjAwMTsiIGhvcml6LWFkdi14PSIxMzAwIiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4MjAwMjsiIGhvcml6LWFkdi14PSI2NTAiIC8+CjxnbHlwaCB1bmljb2RlPSImI3gyMDAzOyIgaG9yaXotYWR2LXg9IjEzMDAiIC8+CjxnbHlwaCB1bmljb2RlPSImI3gyMDA0OyIgaG9yaXotYWR2LXg9IjQzMyIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeDIwMDU7IiBob3Jpei1hZHYteD0iMzI1IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4MjAwNjsiIGhvcml6LWFkdi14PSIyMTYiIC8+CjxnbHlwaCB1bmljb2RlPSImI3gyMDA3OyIgaG9yaXotYWR2LXg9IjIxNiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeDIwMDg7IiBob3Jpei1hZHYteD0iMTYyIiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4MjAwOTsiIGhvcml6LWFkdi14PSIyNjAiIC8+CjxnbHlwaCB1bmljb2RlPSImI3gyMDBhOyIgaG9yaXotYWR2LXg9IjcyIiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4MjAyZjsiIGhvcml6LWFkdi14PSIyNjAiIC8+CjxnbHlwaCB1bmljb2RlPSImI3gyMDVmOyIgaG9yaXotYWR2LXg9IjMyNSIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeDIwYWM7IiBkPSJNNzQ0IDExOThxMjQyIDAgMzU0IC0xODlxNjAgLTEwNCA2NiAtMjA5aC0xODFxMCA0NSAtMTcuNSA4Mi41dC00My41IDYxLjV0LTU4IDQwLjV0LTYwLjUgMjR0LTUxLjUgNy41cS0xOSAwIC00MC41IC01LjV0LTQ5LjUgLTIwLjV0LTUzIC0zOHQtNDkgLTYyLjV0LTM5IC04OS41aDM3OWwtMTAwIC0xMDBoLTMwMHEtNiAtNTAgLTYgLTEwMGg0MDZsLTEwMCAtMTAwaC0zMDBxOSAtNzQgMzMgLTEzMnQ1Mi41IC05MXQ2MS41IC01NC41dDU5IC0yOSB0NDcgLTcuNXEyMiAwIDUwLjUgNy41dDYwLjUgMjQuNXQ1OCA0MXQ0My41IDYxdDE3LjUgODBoMTc0cS0zMCAtMTcxIC0xMjggLTI3OHEtMTA3IC0xMTcgLTI3NCAtMTE3cS0yMDYgMCAtMzI0IDE1OHEtMzYgNDggLTY5IDEzM3QtNDUgMjA0aC0yMTdsMTAwIDEwMGgxMTJxMSA0NyA2IDEwMGgtMjE4bDEwMCAxMDBoMTM0cTIwIDg3IDUxIDE1My41dDYyIDEwMy41cTExNyAxNDEgMjk3IDE0MXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3gyMGJkOyIgZD0iTTQyOCAxMjAwaDM1MHE2NyAwIDEyMCAtMTN0ODYgLTMxdDU3IC00OS41dDM1IC01Ni41dDE3IC02NC41dDYuNSAtNjAuNXQwLjUgLTU3di0xNi41di0xNi41cTAgLTM2IC0wLjUgLTU3dC02LjUgLTYxdC0xNyAtNjV0LTM1IC01N3QtNTcgLTUwLjV0LTg2IC0zMS41dC0xMjAgLTEzaC0xNzhsLTIgLTEwMGgyODhxMTAgMCAxMyAtNnQtMyAtMTRsLTEyMCAtMTYwcS02IC04IC0xOCAtMTR0LTIyIC02aC0xMzh2LTE3NXEwIC0xMSAtNS41IC0xOCB0LTE1LjUgLTdoLTE0OXEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djE3NWgtMjY3cS0xMCAwIC0xMyA2dDMgMTRsMTIwIDE2MHE2IDggMTggMTR0MjIgNmgxMTd2MTAwaC0yNjdxLTEwIDAgLTEzIDZ0MyAxNGwxMjAgMTYwcTYgOCAxOCAxNHQyMiA2aDExN3Y0NzVxMCAxMCA3LjUgMTcuNXQxNy41IDcuNXpNNjAwIDEwMDB2LTMwMGgyMDNxNjQgMCA4Ni41IDMzdDIyLjUgMTE5cTAgODQgLTIyLjUgMTE2dC04Ni41IDMyaC0yMDN6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4MjIxMjsiIGQ9Ik0yNTAgNzAwaDgwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMjAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC04MDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djIwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4MjMxYjsiIGQ9Ik0xMDAwIDEyMDB2LTE1MHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNTB2LTEwMHEwIC05MSAtNDkuNSAtMTY1LjV0LTEzMC41IC0xMDkuNXE4MSAtMzUgMTMwLjUgLTEwOS41dDQ5LjUgLTE2NS41di0xNTBoNTBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTE1MGgtODAwdjE1MHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjVoNTB2MTUwcTAgOTEgNDkuNSAxNjUuNXQxMzAuNSAxMDkuNXEtODEgMzUgLTEzMC41IDEwOS41IHQtNDkuNSAxNjUuNXYxMDBoLTUwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYxNTBoODAwek00MDAgMTAwMHYtMTAwcTAgLTYwIDMyLjUgLTEwOS41dDg3LjUgLTczLjVxMjggLTEyIDQ0IC0zN3QxNiAtNTV0LTE2IC01NXQtNDQgLTM3cS01NSAtMjQgLTg3LjUgLTczLjV0LTMyLjUgLTEwOS41di0xNTBoNDAwdjE1MHEwIDYwIC0zMi41IDEwOS41dC04Ny41IDczLjVxLTI4IDEyIC00NCAzN3QtMTYgNTV0MTYgNTV0NDQgMzcgcTU1IDI0IDg3LjUgNzMuNXQzMi41IDEwOS41djEwMGgtNDAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeDI1ZmM7IiBob3Jpei1hZHYteD0iNTAwIiBkPSJNMCAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeDI2MDE7IiBkPSJNNTAzIDEwODlxMTEwIDAgMjAwLjUgLTU5LjV0MTM0LjUgLTE1Ni41cTQ0IDE0IDkwIDE0cTEyMCAwIDIwNSAtODYuNXQ4NSAtMjA2LjVxMCAtMTIxIC04NSAtMjA3LjV0LTIwNSAtODYuNWgtNzUwcS03OSAwIC0xMzUuNSA1N3QtNTYuNSAxMzdxMCA2OSA0Mi41IDEyMi41dDEwOC41IDY3LjVxLTIgMTIgLTIgMzdxMCAxNTMgMTA4IDI2MC41dDI2MCAxMDcuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3gyNmZhOyIgZD0iTTc3NCAxMTkzLjVxMTYgLTkuNSAyMC41IC0yN3QtNS41IC0zMy41bC0xMzYgLTE4N2w0NjcgLTc0NmgzMHEyMCAwIDM1IC0xOC41dDE1IC0zOS41di00MmgtMTIwMHY0MnEwIDIxIDE1IDM5LjV0MzUgMTguNWgzMGw0NjggNzQ2bC0xMzUgMTgzcS0xMCAxNiAtNS41IDM0dDIwLjUgMjh0MzQgNS41dDI4IC0yMC41bDExMSAtMTQ4bDExMiAxNTBxOSAxNiAyNyAyMC41dDM0IC01ek02MDAgMjAwaDM3N2wtMTgyIDExMmwtMTk1IDUzNHYtNjQ2eiAiIC8+CjxnbHlwaCB1bmljb2RlPSImI3gyNzA5OyIgZD0iTTI1IDExMDBoMTE1MHExMCAwIDEyLjUgLTV0LTUuNSAtMTNsLTU2NCAtNTY3cS04IC04IC0xOCAtOHQtMTggOGwtNTY0IDU2N3EtOCA4IC01LjUgMTN0MTIuNSA1ek0xOCA4ODJsMjY0IC0yNjRxOCAtOCA4IC0xOHQtOCAtMThsLTI2NCAtMjY0cS04IC04IC0xMyAtNS41dC01IDEyLjV2NTUwcTAgMTAgNSAxMi41dDEzIC01LjV6TTkxOCA2MThsMjY0IDI2NHE4IDggMTMgNS41dDUgLTEyLjV2LTU1MHEwIC0xMCAtNSAtMTIuNXQtMTMgNS41IGwtMjY0IDI2NHEtOCA4IC04IDE4dDggMTh6TTgxOCA0ODJsMzY0IC0zNjRxOCAtOCA1LjUgLTEzdC0xMi41IC01aC0xMTUwcS0xMCAwIC0xMi41IDV0NS41IDEzbDM2NCAzNjRxOCA4IDE4IDh0MTggLThsMTY0IC0xNjRxOCAtOCAxOCAtOHQxOCA4bDE2NCAxNjRxOCA4IDE4IDh0MTggLTh6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4MjcwZjsiIGQ9Ik0xMDExIDEyMTBxMTkgMCAzMyAtMTNsMTUzIC0xNTNxMTMgLTE0IDEzIC0zM3QtMTMgLTMzbC05OSAtOTJsLTIxNCAyMTRsOTUgOTZxMTMgMTQgMzIgMTR6TTEwMTMgODAwbC02MTUgLTYxNGwtMjE0IDIxNGw2MTQgNjE0ek0zMTcgOTZsLTMzMyAtMTEybDExMCAzMzV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTAwMTsiIGQ9Ik03MDAgNjUwdi01NTBoMjUwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di01MGgtODAwdjUwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNWgyNTB2NTUwbC01MDAgNTUwaDEyMDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTAwMjsiIGQ9Ik0zNjggMTAxN2w2NDUgMTYzcTM5IDE1IDYzIDB0MjQgLTQ5di04MzFxMCAtNTUgLTQxLjUgLTk1LjV0LTExMS41IC02My41cS03OSAtMjUgLTE0NyAtNC41dC04NiA3NXQyNS41IDExMS41dDEyMi41IDgycTcyIDI0IDEzOCA4djUyMWwtNjAwIC0xNTV2LTYwNnEwIC00MiAtNDQgLTkwdC0xMDkgLTY5cS03OSAtMjYgLTE0NyAtNS41dC04NiA3NS41dDI1LjUgMTExLjV0MTIyLjUgODIuNXE3MiAyNCAxMzggN3Y2MzlxMCAzOCAxNC41IDU5IHQ1My41IDM0eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwMDM7IiBkPSJNNTAwIDExOTFxMTAwIDAgMTkxIC0zOXQxNTYuNSAtMTA0LjV0MTA0LjUgLTE1Ni41dDM5IC0xOTFsLTEgLTJsMSAtNXEwIC0xNDEgLTc4IC0yNjJsMjc1IC0yNzRxMjMgLTI2IDIyLjUgLTQ0LjV0LTIyLjUgLTQyLjVsLTU5IC01OHEtMjYgLTIwIC00Ni41IC0yMHQtMzkuNSAyMGwtMjc1IDI3NHEtMTE5IC03NyAtMjYxIC03N2wtNSAxbC0yIC0xcS0xMDAgMCAtMTkxIDM5dC0xNTYuNSAxMDQuNXQtMTA0LjUgMTU2LjV0LTM5IDE5MSB0MzkgMTkxdDEwNC41IDE1Ni41dDE1Ni41IDEwNC41dDE5MSAzOXpNNTAwIDEwMjJxLTg4IDAgLTE2MiAtNDN0LTExNyAtMTE3dC00MyAtMTYydDQzIC0xNjJ0MTE3IC0xMTd0MTYyIC00M3QxNjIgNDN0MTE3IDExN3Q0MyAxNjJ0LTQzIDE2MnQtMTE3IDExN3QtMTYyIDQzeiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwMDU7IiBkPSJNNjQ5IDk0OXE0OCA2OCAxMDkuNSAxMDR0MTIxLjUgMzguNXQxMTguNSAtMjB0MTAyLjUgLTY0dDcxIC0xMDAuNXQyNyAtMTIzcTAgLTU3IC0zMy41IC0xMTcuNXQtOTQgLTEyNC41dC0xMjYuNSAtMTI3LjV0LTE1MCAtMTUyLjV0LTE0NiAtMTc0cS02MiA4NSAtMTQ1LjUgMTc0dC0xNTAgMTUyLjV0LTEyNi41IDEyNy41dC05My41IDEyNC41dC0zMy41IDExNy41cTAgNjQgMjggMTIzdDczIDEwMC41dDEwNCA2NHQxMTkgMjAgdDEyMC41IC0zOC41dDEwNC41IC0xMDR6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTAwNjsiIGQ9Ik00MDcgODAwbDEzMSAzNTNxNyAxOSAxNy41IDE5dDE3LjUgLTE5bDEyOSAtMzUzaDQyMXEyMSAwIDI0IC04LjV0LTE0IC0yMC41bC0zNDIgLTI0OWwxMzAgLTQwMXE3IC0yMCAtMC41IC0yNS41dC0yNC41IDYuNWwtMzQzIDI0NmwtMzQyIC0yNDdxLTE3IC0xMiAtMjQuNSAtNi41dC0wLjUgMjUuNWwxMzAgNDAwbC0zNDcgMjUxcS0xNyAxMiAtMTQgMjAuNXQyMyA4LjVoNDI5eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwMDc7IiBkPSJNNDA3IDgwMGwxMzEgMzUzcTcgMTkgMTcuNSAxOXQxNy41IC0xOWwxMjkgLTM1M2g0MjFxMjEgMCAyNCAtOC41dC0xNCAtMjAuNWwtMzQyIC0yNDlsMTMwIC00MDFxNyAtMjAgLTAuNSAtMjUuNXQtMjQuNSA2LjVsLTM0MyAyNDZsLTM0MiAtMjQ3cS0xNyAtMTIgLTI0LjUgLTYuNXQtMC41IDI1LjVsMTMwIDQwMGwtMzQ3IDI1MXEtMTcgMTIgLTE0IDIwLjV0MjMgOC41aDQyOXpNNDc3IDcwMGgtMjQwbDE5NyAtMTQybC03NCAtMjI2IGwxOTMgMTM5bDE5NSAtMTQwbC03NCAyMjlsMTkyIDE0MGgtMjM0bC03OCAyMTF6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTAwODsiIGQ9Ik02MDAgMTIwMHExMjQgMCAyMTIgLTg4dDg4IC0yMTJ2LTI1MHEwIC00NiAtMzEgLTk4dC02OSAtNTJ2LTc1cTAgLTEwIDYgLTIxLjV0MTUgLTE3LjVsMzU4IC0yMzBxOSAtNSAxNSAtMTYuNXQ2IC0yMS41di05M3EwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTExNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXY5M3EwIDEwIDYgMjEuNXQxNSAxNi41bDM1OCAyMzBxOSA2IDE1IDE3LjV0NiAyMS41djc1cS0zOCAwIC02OSA1MiB0LTMxIDk4djI1MHEwIDEyNCA4OCAyMTJ0MjEyIDg4eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwMDk7IiBkPSJNMjUgMTEwMGgxMTUwcTEwIDAgMTcuNSAtNy41dDcuNSAtMTcuNXYtMTA1MHEwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTExNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXYxMDUwcTAgMTAgNy41IDE3LjV0MTcuNSA3LjV6TTEwMCAxMDAwdi0xMDBoMTAwdjEwMGgtMTAwek04NzUgMTAwMGgtNTUwcS0xMCAwIC0xNy41IC03LjV0LTcuNSAtMTcuNXYtMzUwcTAgLTEwIDcuNSAtMTcuNXQxNy41IC03LjVoNTUwIHExMCAwIDE3LjUgNy41dDcuNSAxNy41djM1MHEwIDEwIC03LjUgMTcuNXQtMTcuNSA3LjV6TTEwMDAgMTAwMHYtMTAwaDEwMHYxMDBoLTEwMHpNMTAwIDgwMHYtMTAwaDEwMHYxMDBoLTEwMHpNMTAwMCA4MDB2LTEwMGgxMDB2MTAwaC0xMDB6TTEwMCA2MDB2LTEwMGgxMDB2MTAwaC0xMDB6TTEwMDAgNjAwdi0xMDBoMTAwdjEwMGgtMTAwek04NzUgNTAwaC01NTBxLTEwIDAgLTE3LjUgLTcuNXQtNy41IC0xNy41di0zNTBxMCAtMTAgNy41IC0xNy41IHQxNy41IC03LjVoNTUwcTEwIDAgMTcuNSA3LjV0Ny41IDE3LjV2MzUwcTAgMTAgLTcuNSAxNy41dC0xNy41IDcuNXpNMTAwIDQwMHYtMTAwaDEwMHYxMDBoLTEwMHpNMTAwMCA0MDB2LTEwMGgxMDB2MTAwaC0xMDB6TTEwMCAyMDB2LTEwMGgxMDB2MTAwaC0xMDB6TTEwMDAgMjAwdi0xMDBoMTAwdjEwMGgtMTAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwMTA7IiBkPSJNNTAgMTEwMGg0MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTQwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNDAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXY0MDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek02NTAgMTEwMGg0MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTQwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNDAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXY0MDAgcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNNTAgNTAwaDQwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtNDAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC00MDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djQwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTY1MCA1MDBoNDAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di00MDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTQwMCBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djQwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTAxMTsiIGQ9Ik01MCAxMTAwaDIwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMjAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0yMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djIwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTQ1MCAxMTAwaDIwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMjAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0yMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djIwMCBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek04NTAgMTEwMGgyMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTIwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMjAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYyMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek01MCA3MDBoMjAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0yMDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTIwMCBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djIwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTQ1MCA3MDBoMjAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0yMDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTIwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MjAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNODUwIDcwMGgyMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTIwMCBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTIwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MjAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNNTAgMzAwaDIwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMjAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0yMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djIwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTQ1MCAzMDBoMjAwIHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMjAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0yMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djIwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTg1MCAzMDBoMjAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0yMDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTIwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MjAwcTAgMjEgMTQuNSAzNS41IHQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTAxMjsiIGQ9Ik01MCAxMTAwaDIwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMjAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0yMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djIwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTQ1MCAxMTAwaDcwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMjAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC03MDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djIwMCBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek01MCA3MDBoMjAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0yMDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTIwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MjAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNNDUwIDcwMGg3MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTIwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNzAwIHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MjAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNNTAgMzAwaDIwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMjAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0yMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djIwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTQ1MCAzMDBoNzAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0yMDAgcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC03MDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djIwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTAxMzsiIGQ9Ik00NjUgNDc3bDU3MSA1NzFxOCA4IDE4IDh0MTcgLThsMTc3IC0xNzdxOCAtNyA4IC0xN3QtOCAtMThsLTc4MyAtNzg0cS03IC04IC0xNy41IC04dC0xNy41IDhsLTM4NCAzODRxLTggOCAtOCAxOHQ4IDE3bDE3NyAxNzdxNyA4IDE3IDh0MTggLThsMTcxIC0xNzFxNyAtNyAxOCAtN3QxOCA3eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwMTQ7IiBkPSJNOTA0IDEwODNsMTc4IC0xNzlxOCAtOCA4IC0xOC41dC04IC0xNy41bC0yNjcgLTI2OGwyNjcgLTI2OHE4IC03IDggLTE3LjV0LTggLTE4LjVsLTE3OCAtMTc4cS04IC04IC0xOC41IC04dC0xNy41IDhsLTI2OCAyNjdsLTI2OCAtMjY3cS03IC04IC0xNy41IC04dC0xOC41IDhsLTE3OCAxNzhxLTggOCAtOCAxOC41dDggMTcuNWwyNjcgMjY4bC0yNjcgMjY4cS04IDcgLTggMTcuNXQ4IDE4LjVsMTc4IDE3OHE4IDggMTguNSA4dDE3LjUgLTggbDI2OCAtMjY3bDI2OCAyNjhxNyA3IDE3LjUgN3QxOC41IC03eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwMTU7IiBkPSJNNTA3IDExNzdxOTggMCAxODcuNSAtMzguNXQxNTQuNSAtMTAzLjV0MTAzLjUgLTE1NC41dDM4LjUgLTE4Ny41cTAgLTE0MSAtNzggLTI2MmwzMDAgLTI5OXE4IC04IDggLTE4LjV0LTggLTE4LjVsLTEwOSAtMTA4cS03IC04IC0xNy41IC04dC0xOC41IDhsLTMwMCAyOTlxLTExOSAtNzcgLTI2MSAtNzdxLTk4IDAgLTE4OCAzOC41dC0xNTQuNSAxMDN0LTEwMyAxNTQuNXQtMzguNSAxODh0MzguNSAxODcuNXQxMDMgMTU0LjUgdDE1NC41IDEwMy41dDE4OCAzOC41ek01MDYuNSAxMDIzcS04OS41IDAgLTE2NS41IC00NHQtMTIwIC0xMjAuNXQtNDQgLTE2NnQ0NCAtMTY1LjV0MTIwIC0xMjB0MTY1LjUgLTQ0dDE2NiA0NHQxMjAuNSAxMjB0NDQgMTY1LjV0LTQ0IDE2NnQtMTIwLjUgMTIwLjV0LTE2NiA0NHpNNDI1IDkwMGgxNTBxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di03NWg3NXExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTE1MHEwIC0xMCAtNy41IC0xNy41IHQtMTcuNSAtNy41aC03NXYtNzVxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC0xNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXY3NWgtNzVxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXYxNTBxMCAxMCA3LjUgMTcuNXQxNy41IDcuNWg3NXY3NXEwIDEwIDcuNSAxNy41dDE3LjUgNy41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwMTY7IiBkPSJNNTA3IDExNzdxOTggMCAxODcuNSAtMzguNXQxNTQuNSAtMTAzLjV0MTAzLjUgLTE1NC41dDM4LjUgLTE4Ny41cTAgLTE0MSAtNzggLTI2MmwzMDAgLTI5OXE4IC04IDggLTE4LjV0LTggLTE4LjVsLTEwOSAtMTA4cS03IC04IC0xNy41IC04dC0xOC41IDhsLTMwMCAyOTlxLTExOSAtNzcgLTI2MSAtNzdxLTk4IDAgLTE4OCAzOC41dC0xNTQuNSAxMDN0LTEwMyAxNTQuNXQtMzguNSAxODh0MzguNSAxODcuNXQxMDMgMTU0LjUgdDE1NC41IDEwMy41dDE4OCAzOC41ek01MDYuNSAxMDIzcS04OS41IDAgLTE2NS41IC00NHQtMTIwIC0xMjAuNXQtNDQgLTE2NnQ0NCAtMTY1LjV0MTIwIC0xMjB0MTY1LjUgLTQ0dDE2NiA0NHQxMjAuNSAxMjB0NDQgMTY1LjV0LTQ0IDE2NnQtMTIwLjUgMTIwLjV0LTE2NiA0NHpNMzI1IDgwMGgzNTBxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di0xNTBxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC0zNTBxLTEwIDAgLTE3LjUgNy41IHQtNy41IDE3LjV2MTUwcTAgMTAgNy41IDE3LjV0MTcuNSA3LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTAxNzsiIGQ9Ik01NTAgMTIwMGgxMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTQwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMTAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXY0MDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek04MDAgOTc1djE2NnExNjcgLTYyIDI3MiAtMjA5LjV0MTA1IC0zMzEuNXEwIC0xMTcgLTQ1LjUgLTIyNHQtMTIzIC0xODQuNXQtMTg0LjUgLTEyM3QtMjI0IC00NS41dC0yMjQgNDUuNSB0LTE4NC41IDEyM3QtMTIzIDE4NC41dC00NS41IDIyNHEwIDE4NCAxMDUgMzMxLjV0MjcyIDIwOS41di0xNjZxLTEwMyAtNTUgLTE2NSAtMTU1dC02MiAtMjIwcTAgLTExNiA1NyAtMjE0LjV0MTU1LjUgLTE1NS41dDIxNC41IC01N3QyMTQuNSA1N3QxNTUuNSAxNTUuNXQ1NyAyMTQuNXEwIDEyMCAtNjIgMjIwdC0xNjUgMTU1eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwMTg7IiBkPSJNMTAyNSAxMjAwaDE1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTExNTBxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC0xNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXYxMTUwcTAgMTAgNy41IDE3LjV0MTcuNSA3LjV6TTcyNSA4MDBoMTUwcTEwIDAgMTcuNSAtNy41dDcuNSAtMTcuNXYtNzUwcTAgLTEwIC03LjUgLTE3LjV0LTE3LjUgLTcuNWgtMTUwcS0xMCAwIC0xNy41IDcuNXQtNy41IDE3LjV2NzUwIHEwIDEwIDcuNSAxNy41dDE3LjUgNy41ek00MjUgNTAwaDE1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTQ1MHEwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTE1MHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djQ1MHEwIDEwIDcuNSAxNy41dDE3LjUgNy41ek0xMjUgMzAwaDE1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTI1MHEwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTE1MHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41IHYyNTBxMCAxMCA3LjUgMTcuNXQxNy41IDcuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDE5OyIgZD0iTTYwMCAxMTc0cTMzIDAgNzQgLTVsMzggLTE1Mmw1IC0xcTQ5IC0xNCA5NCAtMzlsNSAtMmwxMzQgODBxNjEgLTQ4IDEwNCAtMTA1bC04MCAtMTM0bDMgLTVxMjUgLTQ0IDM5IC05M2wxIC02bDE1MiAtMzhxNSAtNDMgNSAtNzNxMCAtMzQgLTUgLTc0bC0xNTIgLTM4bC0xIC02cS0xNSAtNDkgLTM5IC05M2wtMyAtNWw4MCAtMTM0cS00OCAtNjEgLTEwNCAtMTA1bC0xMzQgODFsLTUgLTNxLTQ0IC0yNSAtOTQgLTM5bC01IC0ybC0zOCAtMTUxIHEtNDMgLTUgLTc0IC01cS0zMyAwIC03NCA1bC0zOCAxNTFsLTUgMnEtNDkgMTQgLTk0IDM5bC01IDNsLTEzNCAtODFxLTYwIDQ4IC0xMDQgMTA1bDgwIDEzNGwtMyA1cS0yNSA0NSAtMzggOTNsLTIgNmwtMTUxIDM4cS02IDQyIC02IDc0cTAgMzMgNiA3M2wxNTEgMzhsMiA2cTEzIDQ4IDM4IDkzbDMgNWwtODAgMTM0cTQ3IDYxIDEwNSAxMDVsMTMzIC04MGw1IDJxNDUgMjUgOTQgMzlsNSAxbDM4IDE1MnE0MyA1IDc0IDV6TTYwMCA4MTUgcS04OSAwIC0xNTIgLTYzdC02MyAtMTUxLjV0NjMgLTE1MS41dDE1MiAtNjN0MTUyIDYzdDYzIDE1MS41dC02MyAxNTEuNXQtMTUyIDYzeiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwMjA7IiBkPSJNNTAwIDEzMDBoMzAwcTQxIDAgNzAuNSAtMjkuNXQyOS41IC03MC41di0xMDBoMjc1cTEwIDAgMTcuNSAtNy41dDcuNSAtMTcuNXYtNzVoLTExMDB2NzVxMCAxMCA3LjUgMTcuNXQxNy41IDcuNWgyNzV2MTAwcTAgNDEgMjkuNSA3MC41dDcwLjUgMjkuNXpNNTAwIDEyMDB2LTEwMGgzMDB2MTAwaC0zMDB6TTExMDAgOTAwdi04MDBxMCAtNDEgLTI5LjUgLTcwLjV0LTcwLjUgLTI5LjVoLTcwMHEtNDEgMCAtNzAuNSAyOS41dC0yOS41IDcwLjUgdjgwMGg5MDB6TTMwMCA4MDB2LTcwMGgxMDB2NzAwaC0xMDB6TTUwMCA4MDB2LTcwMGgxMDB2NzAwaC0xMDB6TTcwMCA4MDB2LTcwMGgxMDB2NzAwaC0xMDB6TTkwMCA4MDB2LTcwMGgxMDB2NzAwaC0xMDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTAyMTsiIGQ9Ik0xOCA2MThsNjIwIDYwOHE4IDcgMTguNSA3dDE3LjUgLTdsNjA4IC02MDhxOCAtOCA1LjUgLTEzdC0xMi41IC01aC0xNzV2LTU3NXEwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTI1MHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djM3NWgtMzAwdi0zNzVxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC0yNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXY1NzVoLTE3NXEtMTAgMCAtMTIuNSA1dDUuNSAxM3oiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDIyOyIgZD0iTTYwMCAxMjAwdi00MDBxMCAtNDEgMjkuNSAtNzAuNXQ3MC41IC0yOS41aDMwMHYtNjUwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC04MDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djExMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41aDQ1MHpNMTAwMCA4MDBoLTI1MHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MjUweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwMjM7IiBkPSJNNjAwIDExNzdxMTE3IDAgMjI0IC00NS41dDE4NC41IC0xMjN0MTIzIC0xODQuNXQ0NS41IC0yMjR0LTQ1LjUgLTIyNHQtMTIzIC0xODQuNXQtMTg0LjUgLTEyM3QtMjI0IC00NS41dC0yMjQgNDUuNXQtMTg0LjUgMTIzdC0xMjMgMTg0LjV0LTQ1LjUgMjI0dDQ1LjUgMjI0dDEyMyAxODQuNXQxODQuNSAxMjN0MjI0IDQ1LjV6TTYwMCAxMDI3cS0xMTYgMCAtMjE0LjUgLTU3dC0xNTUuNSAtMTU1LjV0LTU3IC0yMTQuNXQ1NyAtMjE0LjUgdDE1NS41IC0xNTUuNXQyMTQuNSAtNTd0MjE0LjUgNTd0MTU1LjUgMTU1LjV0NTcgMjE0LjV0LTU3IDIxNC41dC0xNTUuNSAxNTUuNXQtMjE0LjUgNTd6TTUyNSA5MDBoNTBxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di0yNzVoMTc1cTEwIDAgMTcuNSAtNy41dDcuNSAtMTcuNXYtNTBxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC0yNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXYzNTBxMCAxMCA3LjUgMTcuNXQxNy41IDcuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDI0OyIgZD0iTTEzMDAgMGgtNTM4bC00MSA0MDBoLTI0MmwtNDEgLTQwMGgtNTM4bDQzMSAxMjAwaDIwOWwtMjEgLTMwMGgxNjJsLTIwIDMwMGgyMDh6TTUxNSA4MDBsLTI3IC0zMDBoMjI0bC0yNyAzMDBoLTE3MHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDI1OyIgZD0iTTU1MCAxMjAwaDIwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtNDUwaDE5MXEyMCAwIDI1LjUgLTExLjV0LTcuNSAtMjcuNWwtMzI3IC00MDBxLTEzIC0xNiAtMzIgLTE2dC0zMiAxNmwtMzI3IDQwMHEtMTMgMTYgLTcuNSAyNy41dDI1LjUgMTEuNWgxOTF2NDUwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNMTEyNSA0MDBoNTBxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di0zNTBxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41IGgtMTA1MHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djM1MHEwIDEwIDcuNSAxNy41dDE3LjUgNy41aDUwcTEwIDAgMTcuNSAtNy41dDcuNSAtMTcuNXYtMTc1aDkwMHYxNzVxMCAxMCA3LjUgMTcuNXQxNy41IDcuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDI2OyIgZD0iTTYwMCAxMTc3cTExNyAwIDIyNCAtNDUuNXQxODQuNSAtMTIzdDEyMyAtMTg0LjV0NDUuNSAtMjI0dC00NS41IC0yMjR0LTEyMyAtMTg0LjV0LTE4NC41IC0xMjN0LTIyNCAtNDUuNXQtMjI0IDQ1LjV0LTE4NC41IDEyM3QtMTIzIDE4NC41dC00NS41IDIyNHQ0NS41IDIyNHQxMjMgMTg0LjV0MTg0LjUgMTIzdDIyNCA0NS41ek02MDAgMTAyN3EtMTE2IDAgLTIxNC41IC01N3QtMTU1LjUgLTE1NS41dC01NyAtMjE0LjV0NTcgLTIxNC41IHQxNTUuNSAtMTU1LjV0MjE0LjUgLTU3dDIxNC41IDU3dDE1NS41IDE1NS41dDU3IDIxNC41dC01NyAyMTQuNXQtMTU1LjUgMTU1LjV0LTIxNC41IDU3ek01MjUgOTAwaDE1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTI3NWgxMzdxMjEgMCAyNiAtMTEuNXQtOCAtMjcuNWwtMjIzIC0yNzVxLTEzIC0xNiAtMzIgLTE2dC0zMiAxNmwtMjIzIDI3NXEtMTMgMTYgLTggMjcuNXQyNiAxMS41aDEzN3YyNzVxMCAxMCA3LjUgMTcuNXQxNy41IDcuNXogIiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTAyNzsiIGQ9Ik02MDAgMTE3N3ExMTcgMCAyMjQgLTQ1LjV0MTg0LjUgLTEyM3QxMjMgLTE4NC41dDQ1LjUgLTIyNHQtNDUuNSAtMjI0dC0xMjMgLTE4NC41dC0xODQuNSAtMTIzdC0yMjQgLTQ1LjV0LTIyNCA0NS41dC0xODQuNSAxMjN0LTEyMyAxODQuNXQtNDUuNSAyMjR0NDUuNSAyMjR0MTIzIDE4NC41dDE4NC41IDEyM3QyMjQgNDUuNXpNNjAwIDEwMjdxLTExNiAwIC0yMTQuNSAtNTd0LTE1NS41IC0xNTUuNXQtNTcgLTIxNC41dDU3IC0yMTQuNSB0MTU1LjUgLTE1NS41dDIxNC41IC01N3QyMTQuNSA1N3QxNTUuNSAxNTUuNXQ1NyAyMTQuNXQtNTcgMjE0LjV0LTE1NS41IDE1NS41dC0yMTQuNSA1N3pNNjMyIDkxNGwyMjMgLTI3NXExMyAtMTYgOCAtMjcuNXQtMjYgLTExLjVoLTEzN3YtMjc1cTAgLTEwIC03LjUgLTE3LjV0LTE3LjUgLTcuNWgtMTUwcS0xMCAwIC0xNy41IDcuNXQtNy41IDE3LjV2Mjc1aC0xMzdxLTIxIDAgLTI2IDExLjV0OCAyNy41bDIyMyAyNzVxMTMgMTYgMzIgMTYgdDMyIC0xNnoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDI4OyIgZD0iTTIyNSAxMjAwaDc1MHExMCAwIDE5LjUgLTd0MTIuNSAtMTdsMTg2IC02NTJxNyAtMjQgNyAtNDl2LTQyNXEwIC0xMiAtNCAtMjd0LTkgLTE3cS0xMiAtNiAtMzcgLTZoLTExMDBxLTEyIDAgLTI3IDR0LTE3IDhxLTYgMTMgLTYgMzhsMSA0MjVxMCAyNSA3IDQ5bDE4NSA2NTJxMyAxMCAxMi41IDE3dDE5LjUgN3pNODc4IDEwMDBoLTU1NnEtMTAgMCAtMTkgLTd0LTExIC0xOGwtODcgLTQ1MHEtMiAtMTEgNCAtMTh0MTYgLTdoMTUwIHExMCAwIDE5LjUgLTd0MTEuNSAtMTdsMzggLTE1MnEyIC0xMCAxMS41IC0xN3QxOS41IC03aDI1MHExMCAwIDE5LjUgN3QxMS41IDE3bDM4IDE1MnEyIDEwIDExLjUgMTd0MTkuNSA3aDE1MHExMCAwIDE2IDd0NCAxOGwtODcgNDUwcS0yIDExIC0xMSAxOHQtMTkgN3oiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDI5OyIgZD0iTTYwMCAxMTc3cTExNyAwIDIyNCAtNDUuNXQxODQuNSAtMTIzdDEyMyAtMTg0LjV0NDUuNSAtMjI0dC00NS41IC0yMjR0LTEyMyAtMTg0LjV0LTE4NC41IC0xMjN0LTIyNCAtNDUuNXQtMjI0IDQ1LjV0LTE4NC41IDEyM3QtMTIzIDE4NC41dC00NS41IDIyNHQ0NS41IDIyNHQxMjMgMTg0LjV0MTg0LjUgMTIzdDIyNCA0NS41ek02MDAgMTAyN3EtMTE2IDAgLTIxNC41IC01N3QtMTU1LjUgLTE1NS41dC01NyAtMjE0LjV0NTcgLTIxNC41IHQxNTUuNSAtMTU1LjV0MjE0LjUgLTU3dDIxNC41IDU3dDE1NS41IDE1NS41dDU3IDIxNC41dC01NyAyMTQuNXQtMTU1LjUgMTU1LjV0LTIxNC41IDU3ek01NDAgODIwbDI1MyAtMTkwcTE3IC0xMiAxNyAtMzB0LTE3IC0zMGwtMjUzIC0xOTBxLTE2IC0xMiAtMjggLTYuNXQtMTIgMjYuNXY0MDBxMCAyMSAxMiAyNi41dDI4IC02LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTAzMDsiIGQ9Ik05NDcgMTA2MGwxMzUgMTM1cTcgNyAxMi41IDV0NS41IC0xM3YtMzYycTAgLTEwIC03LjUgLTE3LjV0LTE3LjUgLTcuNWgtMzYycS0xMSAwIC0xMyA1LjV0NSAxMi41bDEzMyAxMzNxLTEwOSA3NiAtMjM4IDc2cS0xMTYgMCAtMjE0LjUgLTU3dC0xNTUuNSAtMTU1LjV0LTU3IC0yMTQuNXQ1NyAtMjE0LjV0MTU1LjUgLTE1NS41dDIxNC41IC01N3QyMTQuNSA1N3QxNTUuNSAxNTUuNXQ1NyAyMTQuNWgxNTBxMCAtMTE3IC00NS41IC0yMjQgdC0xMjMgLTE4NC41dC0xODQuNSAtMTIzdC0yMjQgLTQ1LjV0LTIyNCA0NS41dC0xODQuNSAxMjN0LTEyMyAxODQuNXQtNDUuNSAyMjR0NDUuNSAyMjR0MTIzIDE4NC41dDE4NC41IDEyM3QyMjQgNDUuNXExOTIgMCAzNDcgLTExN3oiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDMxOyIgZD0iTTk0NyAxMDYwbDEzNSAxMzVxNyA3IDEyLjUgNXQ1LjUgLTEzdi0zNjFxMCAtMTEgLTcuNSAtMTguNXQtMTguNSAtNy41aC0zNjFxLTExIDAgLTEzIDUuNXQ1IDEyLjVsMTM0IDEzNHEtMTEwIDc1IC0yMzkgNzVxLTExNiAwIC0yMTQuNSAtNTd0LTE1NS41IC0xNTUuNXQtNTcgLTIxNC41aC0xNTBxMCAxMTcgNDUuNSAyMjR0MTIzIDE4NC41dDE4NC41IDEyM3QyMjQgNDUuNXExOTIgMCAzNDcgLTExN3pNMTAyNyA2MDBoMTUwIHEwIC0xMTcgLTQ1LjUgLTIyNHQtMTIzIC0xODQuNXQtMTg0LjUgLTEyM3QtMjI0IC00NS41cS0xOTIgMCAtMzQ4IDExOGwtMTM0IC0xMzRxLTcgLTggLTEyLjUgLTUuNXQtNS41IDEyLjV2MzYwcTAgMTEgNy41IDE4LjV0MTguNSA3LjVoMzYwcTEwIDAgMTIuNSAtNS41dC01LjUgLTEyLjVsLTEzMyAtMTMzcTExMCAtNzYgMjQwIC03NnExMTYgMCAyMTQuNSA1N3QxNTUuNSAxNTUuNXQ1NyAyMTQuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDMyOyIgZD0iTTEyNSAxMjAwaDEwNTBxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di0xMTUwcTAgLTEwIC03LjUgLTE3LjV0LTE3LjUgLTcuNWgtMTA1MHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djExNTBxMCAxMCA3LjUgMTcuNXQxNy41IDcuNXpNMTA3NSAxMDAwaC04NTBxLTEwIDAgLTE3LjUgLTcuNXQtNy41IC0xNy41di04NTBxMCAtMTAgNy41IC0xNy41dDE3LjUgLTcuNWg4NTBxMTAgMCAxNy41IDcuNXQ3LjUgMTcuNXY4NTAgcTAgMTAgLTcuNSAxNy41dC0xNy41IDcuNXpNMzI1IDkwMGg1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTUwcTAgLTEwIC03LjUgLTE3LjV0LTE3LjUgLTcuNWgtNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXY1MHEwIDEwIDcuNSAxNy41dDE3LjUgNy41ek01MjUgOTAwaDQ1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTUwcTAgLTEwIC03LjUgLTE3LjV0LTE3LjUgLTcuNWgtNDUwcS0xMCAwIC0xNy41IDcuNXQtNy41IDE3LjV2NTAgcTAgMTAgNy41IDE3LjV0MTcuNSA3LjV6TTMyNSA3MDBoNTBxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di01MHEwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTUwcS0xMCAwIC0xNy41IDcuNXQtNy41IDE3LjV2NTBxMCAxMCA3LjUgMTcuNXQxNy41IDcuNXpNNTI1IDcwMGg0NTBxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di01MHEwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTQ1MHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djUwIHEwIDEwIDcuNSAxNy41dDE3LjUgNy41ek0zMjUgNTAwaDUwcTEwIDAgMTcuNSAtNy41dDcuNSAtMTcuNXYtNTBxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC01MHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djUwcTAgMTAgNy41IDE3LjV0MTcuNSA3LjV6TTUyNSA1MDBoNDUwcTEwIDAgMTcuNSAtNy41dDcuNSAtMTcuNXYtNTBxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC00NTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXY1MCBxMCAxMCA3LjUgMTcuNXQxNy41IDcuNXpNMzI1IDMwMGg1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTUwcTAgLTEwIC03LjUgLTE3LjV0LTE3LjUgLTcuNWgtNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXY1MHEwIDEwIDcuNSAxNy41dDE3LjUgNy41ek01MjUgMzAwaDQ1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTUwcTAgLTEwIC03LjUgLTE3LjV0LTE3LjUgLTcuNWgtNDUwcS0xMCAwIC0xNy41IDcuNXQtNy41IDE3LjV2NTAgcTAgMTAgNy41IDE3LjV0MTcuNSA3LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTAzMzsiIGQ9Ik05MDAgODAwdjIwMHEwIDgzIC01OC41IDE0MS41dC0xNDEuNSA1OC41aC0zMDBxLTgyIDAgLTE0MSAtNTl0LTU5IC0xNDF2LTIwMGgtMTAwcS00MSAwIC03MC41IC0yOS41dC0yOS41IC03MC41di02MDBxMCAtNDEgMjkuNSAtNzAuNXQ3MC41IC0yOS41aDkwMHE0MSAwIDcwLjUgMjkuNXQyOS41IDcwLjV2NjAwcTAgNDEgLTI5LjUgNzAuNXQtNzAuNSAyOS41aC0xMDB6TTQwMCA4MDB2MTUwcTAgMjEgMTUgMzUuNXQzNSAxNC41aDIwMCBxMjAgMCAzNSAtMTQuNXQxNSAtMzUuNXYtMTUwaC0zMDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTAzNDsiIGQ9Ik0xMjUgMTEwMGg1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTEwNzVoLTEwMHYxMDc1cTAgMTAgNy41IDE3LjV0MTcuNSA3LjV6TTEwNzUgMTA1MnE0IDAgOSAtMnExNiAtNiAxNiAtMjN2LTQyMXEwIC02IC0zIC0xMnEtMzMgLTU5IC02Ni41IC05OXQtNjUuNSAtNTh0LTU2LjUgLTI0LjV0LTUyLjUgLTYuNXEtMjYgMCAtNTcuNSA2LjV0LTUyLjUgMTMuNXQtNjAgMjFxLTQxIDE1IC02MyAyMi41dC01Ny41IDE1dC02NS41IDcuNSBxLTg1IDAgLTE2MCAtNTdxLTcgLTUgLTE1IC01cS02IDAgLTExIDNxLTE0IDcgLTE0IDIydjQzOHEyMiA1NSA4MiA5OC41dDExOSA0Ni41cTIzIDIgNDMgMC41dDQzIC03dDMyLjUgLTguNXQzOCAtMTN0MzIuNSAtMTFxNDEgLTE0IDYzLjUgLTIxdDU3IC0xNHQ2My41IC03cTEwMyAwIDE4MyA4N3E3IDggMTggOHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDM1OyIgZD0iTTYwMCAxMTc1cTExNiAwIDIyNyAtNDkuNXQxOTIuNSAtMTMxdDEzMSAtMTkyLjV0NDkuNSAtMjI3di0zMDBxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC01MHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djMwMHEwIDEyNyAtNzAuNSAyMzEuNXQtMTg0LjUgMTYxLjV0LTI0NSA1N3QtMjQ1IC01N3QtMTg0LjUgLTE2MS41dC03MC41IC0yMzEuNXYtMzAwcTAgLTEwIC03LjUgLTE3LjV0LTE3LjUgLTcuNWgtNTAgcS0xMCAwIC0xNy41IDcuNXQtNy41IDE3LjV2MzAwcTAgMTE2IDQ5LjUgMjI3dDEzMSAxOTIuNXQxOTIuNSAxMzF0MjI3IDQ5LjV6TTIyMCA1MDBoMTYwcTggMCAxNCAtNnQ2IC0xNHYtNDYwcTAgLTggLTYgLTE0dC0xNCAtNmgtMTYwcS04IDAgLTE0IDZ0LTYgMTR2NDYwcTAgOCA2IDE0dDE0IDZ6TTgyMCA1MDBoMTYwcTggMCAxNCAtNnQ2IC0xNHYtNDYwcTAgLTggLTYgLTE0dC0xNCAtNmgtMTYwcS04IDAgLTE0IDZ0LTYgMTR2NDYwIHEwIDggNiAxNHQxNCA2eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwMzY7IiBkPSJNMzIxIDgxNGwyNTggMTcycTkgNiAxNSAyLjV0NiAtMTMuNXYtNzUwcTAgLTEwIC02IC0xMy41dC0xNSAyLjVsLTI1OCAxNzJxLTIxIDE0IC00NiAxNGgtMjUwcS0xMCAwIC0xNy41IDcuNXQtNy41IDE3LjV2MzUwcTAgMTAgNy41IDE3LjV0MTcuNSA3LjVoMjUwcTI1IDAgNDYgMTR6TTkwMCA2NjhsMTIwIDEyMHE3IDcgMTcgN3QxNyAtN2wzNCAtMzRxNyAtNyA3IC0xN3QtNyAtMTdsLTEyMCAtMTIwbDEyMCAtMTIwcTcgLTcgNyAtMTcgdC03IC0xN2wtMzQgLTM0cS03IC03IC0xNyAtN3QtMTcgN2wtMTIwIDExOWwtMTIwIC0xMTlxLTcgLTcgLTE3IC03dC0xNyA3bC0zNCAzNHEtNyA3IC03IDE3dDcgMTdsMTE5IDEyMGwtMTE5IDEyMHEtNyA3IC03IDE3dDcgMTdsMzQgMzRxNyA4IDE3IDh0MTcgLTh6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTAzNzsiIGQ9Ik0zMjEgODE0bDI1OCAxNzJxOSA2IDE1IDIuNXQ2IC0xMy41di03NTBxMCAtMTAgLTYgLTEzLjV0LTE1IDIuNWwtMjU4IDE3MnEtMjEgMTQgLTQ2IDE0aC0yNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXYzNTBxMCAxMCA3LjUgMTcuNXQxNy41IDcuNWgyNTBxMjUgMCA0NiAxNHpNNzY2IDkwMGg0cTEwIC0xIDE2IC0xMHE5NiAtMTI5IDk2IC0yOTBxMCAtMTU0IC05MCAtMjgxcS02IC05IC0xNyAtMTBsLTMgLTFxLTkgMCAtMTYgNiBsLTI5IDIzcS03IDcgLTguNSAxNi41dDQuNSAxNy41cTcyIDEwMyA3MiAyMjlxMCAxMzIgLTc4IDIzOHEtNiA4IC00LjUgMTh0OS41IDE3bDI5IDIycTcgNSAxNSA1eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwMzg7IiBkPSJNOTY3IDEwMDRoM3ExMSAtMSAxNyAtMTBxMTM1IC0xNzkgMTM1IC0zOTZxMCAtMTA1IC0zNCAtMjA2LjV0LTk4IC0xODUuNXEtNyAtOSAtMTcgLTEwaC0zcS05IDAgLTE2IDZsLTQyIDM0cS04IDYgLTkgMTZ0NSAxOHExMTEgMTUwIDExMSAzMjhxMCA5MCAtMjkuNSAxNzZ0LTg0LjUgMTU3cS02IDkgLTUgMTl0MTAgMTZsNDIgMzNxNyA1IDE1IDV6TTMyMSA4MTRsMjU4IDE3MnE5IDYgMTUgMi41dDYgLTEzLjV2LTc1MHEwIC0xMCAtNiAtMTMuNSB0LTE1IDIuNWwtMjU4IDE3MnEtMjEgMTQgLTQ2IDE0aC0yNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXYzNTBxMCAxMCA3LjUgMTcuNXQxNy41IDcuNWgyNTBxMjUgMCA0NiAxNHpNNzY2IDkwMGg0cTEwIC0xIDE2IC0xMHE5NiAtMTI5IDk2IC0yOTBxMCAtMTU0IC05MCAtMjgxcS02IC05IC0xNyAtMTBsLTMgLTFxLTkgMCAtMTYgNmwtMjkgMjNxLTcgNyAtOC41IDE2LjV0NC41IDE3LjVxNzIgMTAzIDcyIDIyOXEwIDEzMiAtNzggMjM4IHEtNiA4IC00LjUgMTguNXQ5LjUgMTYuNWwyOSAyMnE3IDUgMTUgNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDM5OyIgZD0iTTUwMCA5MDBoMTAwdi0xMDBoLTEwMHYtMTAwaC00MDB2LTEwMGgtMTAwdjYwMGg1MDB2LTMwMHpNMTIwMCA3MDBoLTIwMHYtMTAwaDIwMHYtMjAwaC0zMDB2MzAwaC0yMDB2MzAwaC0xMDB2MjAwaDYwMHYtNTAwek0xMDAgMTEwMHYtMzAwaDMwMHYzMDBoLTMwMHpNODAwIDExMDB2LTMwMGgzMDB2MzAwaC0zMDB6TTMwMCA5MDBoLTEwMHYxMDBoMTAwdi0xMDB6TTEwMDAgOTAwaC0xMDB2MTAwaDEwMHYtMTAwek0zMDAgNTAwaDIwMHYtNTAwIGgtNTAwdjUwMGgyMDB2MTAwaDEwMHYtMTAwek04MDAgMzAwaDIwMHYtMTAwaC0xMDB2LTEwMGgtMjAwdjEwMGgtMTAwdjEwMGgxMDB2MjAwaC0yMDB2MTAwaDMwMHYtMzAwek0xMDAgNDAwdi0zMDBoMzAwdjMwMGgtMzAwek0zMDAgMjAwaC0xMDB2MTAwaDEwMHYtMTAwek0xMjAwIDIwMGgtMTAwdjEwMGgxMDB2LTEwMHpNNzAwIDBoLTEwMHYxMDBoMTAwdi0xMDB6TTEyMDAgMGgtMzAwdjEwMGgzMDB2LTEwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDQwOyIgZD0iTTEwMCAyMDBoLTEwMHYxMDAwaDEwMHYtMTAwMHpNMzAwIDIwMGgtMTAwdjEwMDBoMTAwdi0xMDAwek03MDAgMjAwaC0yMDB2MTAwMGgyMDB2LTEwMDB6TTkwMCAyMDBoLTEwMHYxMDAwaDEwMHYtMTAwMHpNMTIwMCAyMDBoLTIwMHYxMDAwaDIwMHYtMTAwMHpNNDAwIDBoLTMwMHYxMDBoMzAwdi0xMDB6TTYwMCAwaC0xMDB2OTFoMTAwdi05MXpNODAwIDBoLTEwMHY5MWgxMDB2LTkxek0xMTAwIDBoLTIwMHY5MWgyMDB2LTkxeiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwNDE7IiBkPSJNNTAwIDEyMDBsNjgyIC02ODJxOCAtOCA4IC0xOHQtOCAtMThsLTQ2NCAtNDY0cS04IC04IC0xOCAtOHQtMTggOGwtNjgyIDY4MmwxIDQ3NXEwIDEwIDcuNSAxNy41dDE3LjUgNy41aDQ3NHpNMzE5LjUgMTAyNC41cS0yOS41IDI5LjUgLTcxIDI5LjV0LTcxIC0yOS41dC0yOS41IC03MS41dDI5LjUgLTcxLjV0NzEgLTI5LjV0NzEgMjkuNXQyOS41IDcxLjV0LTI5LjUgNzEuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDQyOyIgZD0iTTUwMCAxMjAwbDY4MiAtNjgycTggLTggOCAtMTh0LTggLTE4bC00NjQgLTQ2NHEtOCAtOCAtMTggLTh0LTE4IDhsLTY4MiA2ODJsMSA0NzVxMCAxMCA3LjUgMTcuNXQxNy41IDcuNWg0NzR6TTgwMCAxMjAwbDY4MiAtNjgycTggLTggOCAtMTh0LTggLTE4bC00NjQgLTQ2NHEtOCAtOCAtMTggLTh0LTE4IDhsLTU2IDU2bDQyNCA0MjZsLTcwMCA3MDBoMTUwek0zMTkuNSAxMDI0LjVxLTI5LjUgMjkuNSAtNzEgMjkuNXQtNzEgLTI5LjUgdC0yOS41IC03MS41dDI5LjUgLTcxLjV0NzEgLTI5LjV0NzEgMjkuNXQyOS41IDcxLjV0LTI5LjUgNzEuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDQzOyIgZD0iTTMwMCAxMjAwaDgyNXE3NSAwIDc1IC03NXYtOTAwcTAgLTI1IC0xOCAtNDNsLTY0IC02NHEtOCAtOCAtMTMgLTUuNXQtNSAxMi41djk1MHEwIDEwIC03LjUgMTcuNXQtMTcuNSA3LjVoLTcwMHEtMjUgMCAtNDMgLTE4bC02NCAtNjRxLTggLTggLTUuNSAtMTN0MTIuNSAtNWg3MDBxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di05NTBxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC04NTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXY5NzUgcTAgMjUgMTggNDNsMTM5IDEzOXExOCAxOCA0MyAxOHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDQ0OyIgZD0iTTI1MCAxMjAwaDgwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMTE1MGwtNDUwIDQ0NGwtNDUwIC00NDV2MTE1MXEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA0NTsiIGQ9Ik04MjIgMTIwMGgtNDQ0cS0xMSAwIC0xOSAtNy41dC05IC0xNy41bC03OCAtMzAxcS03IC0yNCA3IC00NWw1NyAtMTA4cTYgLTkgMTcuNSAtMTV0MjEuNSAtNmg0NTBxMTAgMCAyMS41IDZ0MTcuNSAxNWw2MiAxMDhxMTQgMjEgNyA0NWwtODMgMzAxcS0xIDEwIC05IDE3LjV0LTE5IDcuNXpNMTE3NSA4MDBoLTE1MHEtMTAgMCAtMjEgLTYuNXQtMTUgLTE1LjVsLTc4IC0xNTZxLTQgLTkgLTE1IC0xNS41dC0yMSAtNi41aC01NTAgcS0xMCAwIC0yMSA2LjV0LTE1IDE1LjVsLTc4IDE1NnEtNCA5IC0xNSAxNS41dC0yMSA2LjVoLTE1MHEtMTAgMCAtMTcuNSAtNy41dC03LjUgLTE3LjV2LTY1MHEwIC0xMCA3LjUgLTE3LjV0MTcuNSAtNy41aDE1MHExMCAwIDE3LjUgNy41dDcuNSAxNy41djE1MHEwIDEwIDcuNSAxNy41dDE3LjUgNy41aDc1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTE1MHEwIC0xMCA3LjUgLTE3LjV0MTcuNSAtNy41aDE1MHExMCAwIDE3LjUgNy41IHQ3LjUgMTcuNXY2NTBxMCAxMCAtNy41IDE3LjV0LTE3LjUgNy41ek04NTAgMjAwaC01MDBxLTEwIDAgLTE5LjUgLTd0LTExLjUgLTE3bC0zOCAtMTUycS0yIC0xMCAzLjUgLTE3dDE1LjUgLTdoNjAwcTEwIDAgMTUuNSA3dDMuNSAxN2wtMzggMTUycS0yIDEwIC0xMS41IDE3dC0xOS41IDd6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA0NjsiIGQ9Ik01MDAgMTEwMGgyMDBxNTYgMCAxMDIuNSAtMjAuNXQ3Mi41IC01MHQ0NCAtNTl0MjUgLTUwLjVsNiAtMjBoMTUwcTQxIDAgNzAuNSAtMjkuNXQyOS41IC03MC41di02MDBxMCAtNDEgLTI5LjUgLTcwLjV0LTcwLjUgLTI5LjVoLTEwMDBxLTQxIDAgLTcwLjUgMjkuNXQtMjkuNSA3MC41djYwMHEwIDQxIDI5LjUgNzAuNXQ3MC41IDI5LjVoMTUwcTIgOCA2LjUgMjEuNXQyNCA0OHQ0NSA2MXQ3MiA0OHQxMDIuNSAyMS41ek05MDAgODAwdi0xMDAgaDEwMHYxMDBoLTEwMHpNNjAwIDczMHEtOTUgMCAtMTYyLjUgLTY3LjV0LTY3LjUgLTE2Mi41dDY3LjUgLTE2Mi41dDE2Mi41IC02Ny41dDE2Mi41IDY3LjV0NjcuNSAxNjIuNXQtNjcuNSAxNjIuNXQtMTYyLjUgNjcuNXpNNjAwIDYwM3E0MyAwIDczIC0zMHQzMCAtNzN0LTMwIC03M3QtNzMgLTMwdC03MyAzMHQtMzAgNzN0MzAgNzN0NzMgMzB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA0NzsiIGQ9Ik02ODEgMTE5OWwzODUgLTk5OHEyMCAtNTAgNjAgLTkycTE4IC0xOSAzNi41IC0yOS41dDI3LjUgLTExLjVsMTAgLTJ2LTY2aC00MTd2NjZxNTMgMCA3NSA0My41dDUgODguNWwtODIgMjIyaC0zOTFxLTU4IC0xNDUgLTkyIC0yMzRxLTExIC0zNCAtNi41IC01N3QyNS41IC0zN3Q0NiAtMjB0NTUgLTZ2LTY2aC0zNjV2NjZxNTYgMjQgODQgNTJxMTIgMTIgMjUgMzAuNXQyMCAzMS41bDcgMTNsMzk5IDEwMDZoOTN6TTQxNiA1MjFoMzQwIGwtMTYyIDQ1N3oiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDQ4OyIgZD0iTTc1MyA2NDFxNSAtMSAxNC41IC00LjV0MzYgLTE1LjV0NTAuNSAtMjYuNXQ1My41IC00MHQ1MC41IC01NC41dDM1LjUgLTcwdDE0LjUgLTg3cTAgLTY3IC0yNy41IC0xMjUuNXQtNzEuNSAtOTcuNXQtOTguNSAtNjYuNXQtMTA4LjUgLTQwLjV0LTEwMiAtMTNoLTUwMHY4OXE0MSA3IDcwLjUgMzIuNXQyOS41IDY1LjV2ODI3cTAgMjQgLTAuNSAzNHQtMy41IDI0dC04LjUgMTkuNXQtMTcgMTMuNXQtMjggMTIuNXQtNDIuNSAxMS41djcxIGw0NzEgLTFxNTcgMCAxMTUuNSAtMjAuNXQxMDggLTU3dDgwLjUgLTk0dDMxIC0xMjQuNXEwIC01MSAtMTUuNSAtOTYuNXQtMzggLTc0LjV0LTQ1IC01MC41dC0zOC41IC0zMC41ek00MDAgNzAwaDEzOXE3OCAwIDEzMC41IDQ4LjV0NTIuNSAxMjIuNXEwIDQxIC04LjUgNzAuNXQtMjkuNSA1NS41dC02Mi41IDM5LjV0LTEwMy41IDEzLjVoLTExOHYtMzUwek00MDAgMjAwaDIxNnE4MCAwIDEyMSA1MC41dDQxIDEzMC41cTAgOTAgLTYyLjUgMTU0LjUgdC0xNTYuNSA2NC41aC0xNTl2LTQwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDQ5OyIgZD0iTTg3NyAxMjAwbDIgLTU3cS04MyAtMTkgLTExNiAtNDUuNXQtNDAgLTY2LjVsLTEzMiAtODM5cS05IC00OSAxMyAtNjl0OTYgLTI2di05N2gtNTAwdjk3cTE4NiAxNiAyMDAgOThsMTczIDgzMnEzIDE3IDMgMzB0LTEuNSAyMi41dC05IDE3LjV0LTEzLjUgMTIuNXQtMjEuNSAxMHQtMjYgOC41dC0zMy41IDEwcS0xMyAzIC0xOSA1djU3aDQyNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDUwOyIgZD0iTTEzMDAgOTAwaC01MHEwIDIxIC00IDM3dC05LjUgMjYuNXQtMTggMTcuNXQtMjIgMTF0LTI4LjUgNS41dC0zMSAydC0zNyAwLjVoLTIwMHYtODUwcTAgLTIyIDI1IC0zNC41dDUwIC0xMy41bDI1IC0ydi0xMDBoLTQwMHYxMDBxNCAwIDExIDAuNXQyNCAzdDMwIDd0MjQgMTV0MTEgMjQuNXY4NTBoLTIwMHEtMjUgMCAtMzcgLTAuNXQtMzEgLTJ0LTI4LjUgLTUuNXQtMjIgLTExdC0xOCAtMTcuNXQtOS41IC0yNi41dC00IC0zN2gtNTB2MzAwIGgxMDAwdi0zMDB6TTE3NSAxMDAwaC03NXYtODAwaDc1bC0xMjUgLTE2N2wtMTI1IDE2N2g3NXY4MDBoLTc1bDEyNSAxNjd6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA1MTsiIGQ9Ik0xMTAwIDkwMGgtNTBxMCAyMSAtNCAzN3QtOS41IDI2LjV0LTE4IDE3LjV0LTIyIDExdC0yOC41IDUuNXQtMzEgMnQtMzcgMC41aC0yMDB2LTY1MHEwIC0yMiAyNSAtMzQuNXQ1MCAtMTMuNWwyNSAtMnYtMTAwaC00MDB2MTAwcTQgMCAxMSAwLjV0MjQgM3QzMCA3dDI0IDE1dDExIDI0LjV2NjUwaC0yMDBxLTI1IDAgLTM3IC0wLjV0LTMxIC0ydC0yOC41IC01LjV0LTIyIC0xMXQtMTggLTE3LjV0LTkuNSAtMjYuNXQtNCAtMzdoLTUwdjMwMCBoMTAwMHYtMzAwek0xMTY3IDUwbC0xNjcgLTEyNXY3NWgtODAwdi03NWwtMTY3IDEyNWwxNjcgMTI1di03NWg4MDB2NzV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA1MjsiIGQ9Ik01MCAxMTAwaDYwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC02MDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTUwIDgwMGgxMDAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0xMDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTEwMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMCBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek01MCA1MDBoODAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0xMDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTgwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MTAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNNTAgMjAwaDExMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMTEwMCBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA1MzsiIGQ9Ik0yNTAgMTEwMGg3MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNzAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYxMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek01MCA4MDBoMTEwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xMTAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYxMDAgcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNMjUwIDUwMGg3MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNzAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYxMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek01MCAyMDBoMTEwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xMTAwIHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MTAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDU0OyIgZD0iTTUwMCA5NTB2MTAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNWg2MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNjAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXpNMTAwIDY1MHYxMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41aDEwMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMTAwMCBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41ek0zMDAgMzUwdjEwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjVoODAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0xMDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTgwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV6TTAgNTB2MTAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNWgxMTAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0xMDAgcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xMTAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDU1OyIgZD0iTTUwIDExMDBoMTEwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xMTAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYxMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek01MCA4MDBoMTEwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xMTAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYxMDAgcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNNTAgNTAwaDExMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMTEwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MTAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNNTAgMjAwaDExMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMTEwMCBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA1NjsiIGQ9Ik01MCAxMTAwaDEwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTM1MCAxMTAwaDgwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC04MDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMCBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek01MCA4MDBoMTAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0xMDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTEwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MTAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNMzUwIDgwMGg4MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtODAwIHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MTAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNNTAgNTAwaDEwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTM1MCA1MDBoODAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0xMDAgcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC04MDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTUwIDIwMGgxMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMTAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYxMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek0zNTAgMjAwaDgwMCBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtODAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYxMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwNTc7IiBkPSJNNDAwIDBoLTEwMHYxMTAwaDEwMHYtMTEwMHpNNTUwIDExMDBoMTAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0xMDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTEwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MTAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNNTUwIDgwMGg1MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNTAwIHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MTAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNMjY3IDU1MGwtMTY3IC0xMjV2NzVoLTIwMHYxMDBoMjAwdjc1ek01NTAgNTAwaDMwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0zMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTU1MCAyMDBoNjAwIHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC02MDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA1ODsiIGQ9Ik01MCAxMTAwaDEwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTkwMCAwaC0xMDB2MTEwMGgxMDB2LTExMDB6TTUwIDgwMGg1MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNTAwIHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MTAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNMTEwMCA2MDBoMjAwdi0xMDBoLTIwMHYtNzVsLTE2NyAxMjVsMTY3IDEyNXYtNzV6TTUwIDUwMGgzMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMzAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYxMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek01MCAyMDBoNjAwIHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC02MDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA1OTsiIGQ9Ik03NSAxMDAwaDc1MHEzMSAwIDUzIC0yMnQyMiAtNTN2LTY1MHEwIC0zMSAtMjIgLTUzdC01MyAtMjJoLTc1MHEtMzEgMCAtNTMgMjJ0LTIyIDUzdjY1MHEwIDMxIDIyIDUzdDUzIDIyek0xMjAwIDMwMGwtMzAwIDMwMGwzMDAgMzAwdi02MDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA2MDsiIGQ9Ik00NCAxMTAwaDExMTJxMTggMCAzMSAtMTN0MTMgLTMxdi0xMDEycTAgLTE4IC0xMyAtMzF0LTMxIC0xM2gtMTExMnEtMTggMCAtMzEgMTN0LTEzIDMxdjEwMTJxMCAxOCAxMyAzMXQzMSAxM3pNMTAwIDEwMDB2LTczN2wyNDcgMTgybDI5OCAtMTMxbC03NCAxNTZsMjkzIDMxOGwyMzYgLTI4OHY1MDBoLTEwMDB6TTM0MiA4ODRxNTYgMCA5NSAtMzl0MzkgLTk0LjV0LTM5IC05NXQtOTUgLTM5LjV0LTk1IDM5LjV0LTM5IDk1dDM5IDk0LjUgdDk1IDM5eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwNjI7IiBkPSJNNjQ4IDExNjlxMTE3IDAgMjE2IC02MHQxNTYuNSAtMTYxdDU3LjUgLTIxOHEwIC0xMTUgLTcwIC0yNThxLTY5IC0xMDkgLTE1OCAtMjI1LjV0LTE0MyAtMTc5LjVsLTU0IC02MnEtOSA4IC0yNS41IDI0LjV0LTYzLjUgNjcuNXQtOTEgMTAzdC05OC41IDEyOHQtOTUuNSAxNDhxLTYwIDEzMiAtNjAgMjQ5cTAgODggMzQgMTY5LjV0OTEuNSAxNDJ0MTM3IDk2LjV0MTY2LjUgMzZ6TTY1Mi41IDk3NHEtOTEuNSAwIC0xNTYuNSAtNjUgdC02NSAtMTU3dDY1IC0xNTYuNXQxNTYuNSAtNjQuNXQxNTYuNSA2NC41dDY1IDE1Ni41dC02NSAxNTd0LTE1Ni41IDY1eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwNjM7IiBkPSJNNjAwIDExNzdxMTE3IDAgMjI0IC00NS41dDE4NC41IC0xMjN0MTIzIC0xODQuNXQ0NS41IC0yMjR0LTQ1LjUgLTIyNHQtMTIzIC0xODQuNXQtMTg0LjUgLTEyM3QtMjI0IC00NS41dC0yMjQgNDUuNXQtMTg0LjUgMTIzdC0xMjMgMTg0LjV0LTQ1LjUgMjI0dDQ1LjUgMjI0dDEyMyAxODQuNXQxODQuNSAxMjN0MjI0IDQ1LjV6TTYwMCAxNzN2ODU0cS0xMTYgMCAtMjE0LjUgLTU3dC0xNTUuNSAtMTU1LjV0LTU3IC0yMTQuNXQ1NyAtMjE0LjUgdDE1NS41IC0xNTUuNXQyMTQuNSAtNTd6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA2NDsiIGQ9Ik01NTQgMTI5NXEyMSAtNzIgNTcuNSAtMTQzLjV0NzYgLTEzMHQ4MyAtMTE4dDgyLjUgLTExN3Q3MCAtMTE2dDQ5LjUgLTEyNnQxOC41IC0xMzYuNXEwIC03MSAtMjUuNSAtMTM1dC02OC41IC0xMTF0LTk5IC04MnQtMTE4LjUgLTU0dC0xMjUuNSAtMjNxLTg0IDUgLTE2MS41IDM0dC0xMzkuNSA3OC41dC05OSAxMjV0LTM3IDE2NC41cTAgNjkgMTggMTM2LjV0NDkuNSAxMjYuNXQ2OS41IDExNi41dDgxLjUgMTE3LjV0ODMuNSAxMTkgdDc2LjUgMTMxdDU4LjUgMTQzek0zNDQgNzEwcS0yMyAtMzMgLTQzLjUgLTcwLjV0LTQwLjUgLTEwMi41dC0xNyAtMTIzcTEgLTM3IDE0LjUgLTY5LjV0MzAgLTUydDQxIC0zN3QzOC41IC0yNC41dDMzIC0xNXEyMSAtNyAzMiAtMXQxMyAyMmw2IDM0cTIgMTAgLTIuNSAyMnQtMTMuNSAxOXEtNSA0IC0xNCAxMnQtMjkuNSA0MC41dC0zMi41IDczLjVxLTI2IDg5IDYgMjcxcTIgMTEgLTYgMTFxLTggMSAtMTUgLTEweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwNjU7IiBkPSJNMTAwMCAxMDEzbDEwOCAxMTVxMiAxIDUgMnQxMyAydDIwLjUgLTF0MjUgLTkuNXQyOC41IC0yMS41cTIyIC0yMiAyNyAtNDN0MCAtMzJsLTYgLTEwbC0xMDggLTExNXpNMzUwIDExMDBoNDAwcTUwIDAgMTA1IC0xM2wtMTg3IC0xODdoLTM2OHEtNDEgMCAtNzAuNSAtMjkuNXQtMjkuNSAtNzAuNXYtNTAwcTAgLTQxIDI5LjUgLTcwLjV0NzAuNSAtMjkuNWg1MDBxNDEgMCA3MC41IDI5LjV0MjkuNSA3MC41djE4MmwyMDAgMjAwdi0zMzIgcTAgLTE2NSAtOTMuNSAtMjU3LjV0LTI1Ni41IC05Mi41aC00MDBxLTE2NSAwIC0yNTcuNSA5Mi41dC05Mi41IDI1Ny41djQwMHEwIDE2NSA5Mi41IDI1Ny41dDI1Ny41IDkyLjV6TTEwMDkgODAzbC0zNjIgLTM2MmwtMTYxIC01MGw1NSAxNzBsMzU1IDM1NXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDY2OyIgZD0iTTM1MCAxMTAwaDM2MXEtMTY0IC0xNDYgLTIxNiAtMjAwaC0xOTVxLTQxIDAgLTcwLjUgLTI5LjV0LTI5LjUgLTcwLjV2LTUwMHEwIC00MSAyOS41IC03MC41dDcwLjUgLTI5LjVoNTAwcTQxIDAgNzAuNSAyOS41dDI5LjUgNzAuNWwyMDAgMTUzdi0xMDNxMCAtMTY1IC05Mi41IC0yNTcuNXQtMjU3LjUgLTkyLjVoLTQwMHEtMTY1IDAgLTI1Ny41IDkyLjV0LTkyLjUgMjU3LjV2NDAwcTAgMTY1IDkyLjUgMjU3LjV0MjU3LjUgOTIuNXogTTgyNCAxMDczbDMzOSAtMzAxcTggLTcgOCAtMTcuNXQtOCAtMTcuNWwtMzQwIC0zMDZxLTcgLTYgLTEyLjUgLTR0LTYuNSAxMXYyMDNxLTI2IDEgLTU0LjUgMHQtNzguNSAtNy41dC05MiAtMTcuNXQtODYgLTM1dC03MCAtNTdxMTAgNTkgMzMgMTA4dDUxLjUgODEuNXQ2NSA1OC41dDY4LjUgNDAuNXQ2NyAyNC41dDU2IDEzLjV0NDAgNC41djIxMHExIDEwIDYuNSAxMi41dDEzLjUgLTQuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDY3OyIgZD0iTTM1MCAxMTAwaDM1MHE2MCAwIDEyNyAtMjNsLTE3OCAtMTc3aC0zNDlxLTQxIDAgLTcwLjUgLTI5LjV0LTI5LjUgLTcwLjV2LTUwMHEwIC00MSAyOS41IC03MC41dDcwLjUgLTI5LjVoNTAwcTQxIDAgNzAuNSAyOS41dDI5LjUgNzAuNXY2OWwyMDAgMjAwdi0yMTlxMCAtMTY1IC05Mi41IC0yNTcuNXQtMjU3LjUgLTkyLjVoLTQwMHEtMTY1IDAgLTI1Ny41IDkyLjV0LTkyLjUgMjU3LjV2NDAwcTAgMTY1IDkyLjUgMjU3LjV0MjU3LjUgOTIuNXogTTY0MyA2MzlsMzk1IDM5NXE3IDcgMTcuNSA3dDE3LjUgLTdsMTAxIC0xMDFxNyAtNyA3IC0xNy41dC03IC0xNy41bC01MzEgLTUzMnEtNyAtNyAtMTcuNSAtN3QtMTcuNSA3bC0yNDggMjQ4cS03IDcgLTcgMTcuNXQ3IDE3LjVsMTAxIDEwMXE3IDcgMTcuNSA3dDE3LjUgLTdsMTExIC0xMTFxOCAtNyAxOCAtN3QxOCA3eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwNjg7IiBkPSJNMzE4IDkxOGwyNjQgMjY0cTggOCAxOCA4dDE4IC04bDI2MCAtMjY0cTcgLTggNC41IC0xM3QtMTIuNSAtNWgtMTcwdi0yMDBoMjAwdjE3M3EwIDEwIDUgMTJ0MTMgLTVsMjY0IC0yNjBxOCAtNyA4IC0xNy41dC04IC0xNy41bC0yNjQgLTI2NXEtOCAtNyAtMTMgLTV0LTUgMTJ2MTczaC0yMDB2LTIwMGgxNzBxMTAgMCAxMi41IC01dC00LjUgLTEzbC0yNjAgLTI2NHEtOCAtOCAtMTggLTh0LTE4IDhsLTI2NCAyNjRxLTggOCAtNS41IDEzIHQxMi41IDVoMTc1djIwMGgtMjAwdi0xNzNxMCAtMTAgLTUgLTEydC0xMyA1bC0yNjQgMjY1cS04IDcgLTggMTcuNXQ4IDE3LjVsMjY0IDI2MHE4IDcgMTMgNXQ1IC0xMnYtMTczaDIwMHYyMDBoLTE3NXEtMTAgMCAtMTIuNSA1dDUuNSAxM3oiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDY5OyIgZD0iTTI1MCAxMTAwaDEwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtNDM4bDQ2NCA0NTNxMTUgMTQgMjUuNSAxMHQxMC41IC0yNXYtMTAwMHEwIC0yMSAtMTAuNSAtMjV0LTI1LjUgMTBsLTQ2NCA0NTN2LTQzOHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMTAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYxMDAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDcwOyIgZD0iTTUwIDExMDBoMTAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di00MzhsNDY0IDQ1M3ExNSAxNCAyNS41IDEwdDEwLjUgLTI1di00MzhsNDY0IDQ1M3ExNSAxNCAyNS41IDEwdDEwLjUgLTI1di0xMDAwcTAgLTIxIC0xMC41IC0yNXQtMjUuNSAxMGwtNDY0IDQ1M3YtNDM4cTAgLTIxIC0xMC41IC0yNXQtMjUuNSAxMGwtNDY0IDQ1M3YtNDM4cTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xMDBxLTIxIDAgLTM1LjUgMTQuNSB0LTE0LjUgMzUuNXYxMDAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDcxOyIgZD0iTTEyMDAgMTA1MHYtMTAwMHEwIC0yMSAtMTAuNSAtMjV0LTI1LjUgMTBsLTQ2NCA0NTN2LTQzOHEwIC0yMSAtMTAuNSAtMjV0LTI1LjUgMTBsLTQ5MiA0ODBxLTE1IDE0IC0xNSAzNXQxNSAzNWw0OTIgNDgwcTE1IDE0IDI1LjUgMTB0MTAuNSAtMjV2LTQzOGw0NjQgNDUzcTE1IDE0IDI1LjUgMTB0MTAuNSAtMjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA3MjsiIGQ9Ik0yNDMgMTA3NGw4MTQgLTQ5OHExOCAtMTEgMTggLTI2dC0xOCAtMjZsLTgxNCAtNDk4cS0xOCAtMTEgLTMwLjUgLTR0LTEyLjUgMjh2MTAwMHEwIDIxIDEyLjUgMjh0MzAuNSAtNHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDczOyIgZD0iTTI1MCAxMDAwaDIwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtODAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0yMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djgwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTY1MCAxMDAwaDIwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtODAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0yMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djgwMCBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwNzQ7IiBkPSJNMTEwMCA5NTB2LTgwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtODAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXY4MDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41aDgwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDc1OyIgZD0iTTUwMCA2MTJ2NDM4cTAgMjEgMTAuNSAyNXQyNS41IC0xMGw0OTIgLTQ4MHExNSAtMTQgMTUgLTM1dC0xNSAtMzVsLTQ5MiAtNDgwcS0xNSAtMTQgLTI1LjUgLTEwdC0xMC41IDI1djQzOGwtNDY0IC00NTNxLTE1IC0xNCAtMjUuNSAtMTB0LTEwLjUgMjV2MTAwMHEwIDIxIDEwLjUgMjV0MjUuNSAtMTB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA3NjsiIGQ9Ik0xMDQ4IDExMDJsMTAwIDFxMjAgMCAzNSAtMTQuNXQxNSAtMzUuNWw1IC0xMDAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41bC0xMDAgLTFxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41bC0yIDQzN2wtNDYzIC00NTRxLTE0IC0xNSAtMjQuNSAtMTAuNXQtMTAuNSAyNS41bC0yIDQzN2wtNDYyIC00NTVxLTE1IC0xNCAtMjUuNSAtOS41dC0xMC41IDI0LjVsLTUgMTAwMHEwIDIxIDEwLjUgMjUuNXQyNS41IC0xMC41bDQ2NiAtNDUwIGwtMiA0MzhxMCAyMCAxMC41IDI0LjV0MjUuNSAtOS41bDQ2NiAtNDUxbC0yIDQzOHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA3NzsiIGQ9Ik04NTAgMTEwMGgxMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTEwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2NDM4bC00NjQgLTQ1M3EtMTUgLTE0IC0yNS41IC0xMHQtMTAuNSAyNXYxMDAwcTAgMjEgMTAuNSAyNXQyNS41IC0xMGw0NjQgLTQ1M3Y0MzhxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwNzg7IiBkPSJNNjg2IDEwODFsNTAxIC01NDBxMTUgLTE1IDEwLjUgLTI2dC0yNi41IC0xMWgtMTA0MnEtMjIgMCAtMjYuNSAxMXQxMC41IDI2bDUwMSA1NDBxMTUgMTUgMzYgMTV0MzYgLTE1ek0xNTAgNDAwaDEwMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMTAwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MTAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDc5OyIgZD0iTTg4NSA5MDBsLTM1MiAtMzUzbDM1MiAtMzUzbC0xOTcgLTE5OGwtNTUyIDU1Mmw1NTIgNTUweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwODA7IiBkPSJNMTA2NCA1NDdsLTU1MSAtNTUxbC0xOTggMTk4bDM1MyAzNTNsLTM1MyAzNTNsMTk4IDE5OHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDgxOyIgZD0iTTYwMCAxMTc3cTExNyAwIDIyNCAtNDUuNXQxODQuNSAtMTIzdDEyMyAtMTg0LjV0NDUuNSAtMjI0dC00NS41IC0yMjR0LTEyMyAtMTg0LjV0LTE4NC41IC0xMjN0LTIyNCAtNDUuNXQtMjI0IDQ1LjV0LTE4NC41IDEyM3QtMTIzIDE4NC41dC00NS41IDIyNHQ0NS41IDIyNHQxMjMgMTg0LjV0MTg0LjUgMTIzdDIyNCA0NS41ek02NTAgOTAwaC0xMDBxLTIxIDAgLTM1LjUgLTE0LjV0LTE0LjUgLTM1LjV2LTE1MGgtMTUwIHEtMjEgMCAtMzUuNSAtMTQuNXQtMTQuNSAtMzUuNXYtMTAwcTAgLTIxIDE0LjUgLTM1LjV0MzUuNSAtMTQuNWgxNTB2LTE1MHEwIC0yMSAxNC41IC0zNS41dDM1LjUgLTE0LjVoMTAwcTIxIDAgMzUuNSAxNC41dDE0LjUgMzUuNXYxNTBoMTUwcTIxIDAgMzUuNSAxNC41dDE0LjUgMzUuNXYxMDBxMCAyMSAtMTQuNSAzNS41dC0zNS41IDE0LjVoLTE1MHYxNTBxMCAyMSAtMTQuNSAzNS41dC0zNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA4MjsiIGQ9Ik02MDAgMTE3N3ExMTcgMCAyMjQgLTQ1LjV0MTg0LjUgLTEyM3QxMjMgLTE4NC41dDQ1LjUgLTIyNHQtNDUuNSAtMjI0dC0xMjMgLTE4NC41dC0xODQuNSAtMTIzdC0yMjQgLTQ1LjV0LTIyNCA0NS41dC0xODQuNSAxMjN0LTEyMyAxODQuNXQtNDUuNSAyMjR0NDUuNSAyMjR0MTIzIDE4NC41dDE4NC41IDEyM3QyMjQgNDUuNXpNODUwIDcwMGgtNTAwcS0yMSAwIC0zNS41IC0xNC41dC0xNC41IC0zNS41di0xMDBxMCAtMjEgMTQuNSAtMzUuNSB0MzUuNSAtMTQuNWg1MDBxMjEgMCAzNS41IDE0LjV0MTQuNSAzNS41djEwMHEwIDIxIC0xNC41IDM1LjV0LTM1LjUgMTQuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDgzOyIgZD0iTTYwMCAxMTc3cTExNyAwIDIyNCAtNDUuNXQxODQuNSAtMTIzdDEyMyAtMTg0LjV0NDUuNSAtMjI0dC00NS41IC0yMjR0LTEyMyAtMTg0LjV0LTE4NC41IC0xMjN0LTIyNCAtNDUuNXQtMjI0IDQ1LjV0LTE4NC41IDEyM3QtMTIzIDE4NC41dC00NS41IDIyNHQ0NS41IDIyNHQxMjMgMTg0LjV0MTg0LjUgMTIzdDIyNCA0NS41ek03NDEuNSA5MTNxLTEyLjUgMCAtMjEuNSAtOWwtMTIwIC0xMjBsLTEyMCAxMjBxLTkgOSAtMjEuNSA5IHQtMjEuNSAtOWwtMTQxIC0xNDFxLTkgLTkgLTkgLTIxLjV0OSAtMjEuNWwxMjAgLTEyMGwtMTIwIC0xMjBxLTkgLTkgLTkgLTIxLjV0OSAtMjEuNWwxNDEgLTE0MXE5IC05IDIxLjUgLTl0MjEuNSA5bDEyMCAxMjBsMTIwIC0xMjBxOSAtOSAyMS41IC05dDIxLjUgOWwxNDEgMTQxcTkgOSA5IDIxLjV0LTkgMjEuNWwtMTIwIDEyMGwxMjAgMTIwcTkgOSA5IDIxLjV0LTkgMjEuNWwtMTQxIDE0MXEtOSA5IC0yMS41IDl6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA4NDsiIGQ9Ik02MDAgMTE3N3ExMTcgMCAyMjQgLTQ1LjV0MTg0LjUgLTEyM3QxMjMgLTE4NC41dDQ1LjUgLTIyNHQtNDUuNSAtMjI0dC0xMjMgLTE4NC41dC0xODQuNSAtMTIzdC0yMjQgLTQ1LjV0LTIyNCA0NS41dC0xODQuNSAxMjN0LTEyMyAxODQuNXQtNDUuNSAyMjR0NDUuNSAyMjR0MTIzIDE4NC41dDE4NC41IDEyM3QyMjQgNDUuNXpNNTQ2IDYyM2wtODQgODVxLTcgNyAtMTcuNSA3dC0xOC41IC03bC0xMzkgLTEzOXEtNyAtOCAtNyAtMTh0NyAtMTggbDI0MiAtMjQxcTcgLTggMTcuNSAtOHQxNy41IDhsMzc1IDM3NXE3IDcgNyAxNy41dC03IDE4LjVsLTEzOSAxMzlxLTcgNyAtMTcuNSA3dC0xNy41IC03eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwODU7IiBkPSJNNjAwIDExNzdxMTE3IDAgMjI0IC00NS41dDE4NC41IC0xMjN0MTIzIC0xODQuNXQ0NS41IC0yMjR0LTQ1LjUgLTIyNHQtMTIzIC0xODQuNXQtMTg0LjUgLTEyM3QtMjI0IC00NS41dC0yMjQgNDUuNXQtMTg0LjUgMTIzdC0xMjMgMTg0LjV0LTQ1LjUgMjI0dDQ1LjUgMjI0dDEyMyAxODQuNXQxODQuNSAxMjN0MjI0IDQ1LjV6TTU4OCA5NDFxLTI5IDAgLTU5IC01LjV0LTYzIC0yMC41dC01OCAtMzguNXQtNDEuNSAtNjN0LTE2LjUgLTg5LjUgcTAgLTI1IDIwIC0yNWgxMzFxMzAgLTUgMzUgMTFxNiAyMCAyMC41IDI4dDQ1LjUgOHEyMCAwIDMxLjUgLTEwLjV0MTEuNSAtMjguNXEwIC0yMyAtNyAtMzR0LTI2IC0xOHEtMSAwIC0xMy41IC00dC0xOS41IC03LjV0LTIwIC0xMC41dC0yMiAtMTd0LTE4LjUgLTI0dC0xNS41IC0zNXQtOCAtNDZxLTEgLTggNS41IC0xNi41dDIwLjUgLTguNWgxNzNxNyAwIDIyIDh0MzUgMjh0MzcuNSA0OHQyOS41IDc0dDEyIDEwMHEwIDQ3IC0xNyA4MyB0LTQyLjUgNTd0LTU5LjUgMzQuNXQtNjQgMTh0LTU5IDQuNXpNNjc1IDQwMGgtMTUwcS0xMCAwIC0xNy41IC03LjV0LTcuNSAtMTcuNXYtMTUwcTAgLTEwIDcuNSAtMTcuNXQxNy41IC03LjVoMTUwcTEwIDAgMTcuNSA3LjV0Ny41IDE3LjV2MTUwcTAgMTAgLTcuNSAxNy41dC0xNy41IDcuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDg2OyIgZD0iTTYwMCAxMTc3cTExNyAwIDIyNCAtNDUuNXQxODQuNSAtMTIzdDEyMyAtMTg0LjV0NDUuNSAtMjI0dC00NS41IC0yMjR0LTEyMyAtMTg0LjV0LTE4NC41IC0xMjN0LTIyNCAtNDUuNXQtMjI0IDQ1LjV0LTE4NC41IDEyM3QtMTIzIDE4NC41dC00NS41IDIyNHQ0NS41IDIyNHQxMjMgMTg0LjV0MTg0LjUgMTIzdDIyNCA0NS41ek02NzUgMTAwMGgtMTUwcS0xMCAwIC0xNy41IC03LjV0LTcuNSAtMTcuNXYtMTUwcTAgLTEwIDcuNSAtMTcuNSB0MTcuNSAtNy41aDE1MHExMCAwIDE3LjUgNy41dDcuNSAxNy41djE1MHEwIDEwIC03LjUgMTcuNXQtMTcuNSA3LjV6TTY3NSA3MDBoLTI1MHEtMTAgMCAtMTcuNSAtNy41dC03LjUgLTE3LjV2LTUwcTAgLTEwIDcuNSAtMTcuNXQxNy41IC03LjVoNzV2LTIwMGgtNzVxLTEwIDAgLTE3LjUgLTcuNXQtNy41IC0xNy41di01MHEwIC0xMCA3LjUgLTE3LjV0MTcuNSAtNy41aDM1MHExMCAwIDE3LjUgNy41dDcuNSAxNy41djUwcTAgMTAgLTcuNSAxNy41IHQtMTcuNSA3LjVoLTc1djI3NXEwIDEwIC03LjUgMTcuNXQtMTcuNSA3LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA4NzsiIGQ9Ik01MjUgMTIwMGgxNTBxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di0xOTRxMTAzIC0yNyAxNzguNSAtMTAyLjV0MTAyLjUgLTE3OC41aDE5NHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTE1MHEwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTE5NHEtMjcgLTEwMyAtMTAyLjUgLTE3OC41dC0xNzguNSAtMTAyLjV2LTE5NHEwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTE1MHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djE5NCBxLTEwMyAyNyAtMTc4LjUgMTAyLjV0LTEwMi41IDE3OC41aC0xOTRxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXYxNTBxMCAxMCA3LjUgMTcuNXQxNy41IDcuNWgxOTRxMjcgMTAzIDEwMi41IDE3OC41dDE3OC41IDEwMi41djE5NHEwIDEwIDcuNSAxNy41dDE3LjUgNy41ek03MDAgODkzdi0xNjhxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC0xNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXYxNjhxLTY4IC0yMyAtMTE5IC03NCB0LTc0IC0xMTloMTY4cTEwIDAgMTcuNSAtNy41dDcuNSAtMTcuNXYtMTUwcTAgLTEwIC03LjUgLTE3LjV0LTE3LjUgLTcuNWgtMTY4cTIzIC02OCA3NCAtMTE5dDExOSAtNzR2MTY4cTAgMTAgNy41IDE3LjV0MTcuNSA3LjVoMTUwcTEwIDAgMTcuNSAtNy41dDcuNSAtMTcuNXYtMTY4cTY4IDIzIDExOSA3NHQ3NCAxMTloLTE2OHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djE1MHEwIDEwIDcuNSAxNy41dDE3LjUgNy41aDE2OCBxLTIzIDY4IC03NCAxMTl0LTExOSA3NHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDg4OyIgZD0iTTYwMCAxMTc3cTExNyAwIDIyNCAtNDUuNXQxODQuNSAtMTIzdDEyMyAtMTg0LjV0NDUuNSAtMjI0dC00NS41IC0yMjR0LTEyMyAtMTg0LjV0LTE4NC41IC0xMjN0LTIyNCAtNDUuNXQtMjI0IDQ1LjV0LTE4NC41IDEyM3QtMTIzIDE4NC41dC00NS41IDIyNHQ0NS41IDIyNHQxMjMgMTg0LjV0MTg0LjUgMTIzdDIyNCA0NS41ek02MDAgMTAyN3EtMTE2IDAgLTIxNC41IC01N3QtMTU1LjUgLTE1NS41dC01NyAtMjE0LjV0NTcgLTIxNC41IHQxNTUuNSAtMTU1LjV0MjE0LjUgLTU3dDIxNC41IDU3dDE1NS41IDE1NS41dDU3IDIxNC41dC01NyAyMTQuNXQtMTU1LjUgMTU1LjV0LTIxNC41IDU3ek03NTkgODIzbDY0IC02NHE3IC03IDcgLTE3LjV0LTcgLTE3LjVsLTEyNCAtMTI0bDEyNCAtMTI0cTcgLTcgNyAtMTcuNXQtNyAtMTcuNWwtNjQgLTY0cS03IC03IC0xNy41IC03dC0xNy41IDdsLTEyNCAxMjRsLTEyNCAtMTI0cS03IC03IC0xNy41IC03dC0xNy41IDdsLTY0IDY0IHEtNyA3IC03IDE3LjV0NyAxNy41bDEyNCAxMjRsLTEyNCAxMjRxLTcgNyAtNyAxNy41dDcgMTcuNWw2NCA2NHE3IDcgMTcuNSA3dDE3LjUgLTdsMTI0IC0xMjRsMTI0IDEyNHE3IDcgMTcuNSA3dDE3LjUgLTd6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA4OTsiIGQ9Ik02MDAgMTE3N3ExMTcgMCAyMjQgLTQ1LjV0MTg0LjUgLTEyM3QxMjMgLTE4NC41dDQ1LjUgLTIyNHQtNDUuNSAtMjI0dC0xMjMgLTE4NC41dC0xODQuNSAtMTIzdC0yMjQgLTQ1LjV0LTIyNCA0NS41dC0xODQuNSAxMjN0LTEyMyAxODQuNXQtNDUuNSAyMjR0NDUuNSAyMjR0MTIzIDE4NC41dDE4NC41IDEyM3QyMjQgNDUuNXpNNjAwIDEwMjdxLTExNiAwIC0yMTQuNSAtNTd0LTE1NS41IC0xNTUuNXQtNTcgLTIxNC41dDU3IC0yMTQuNSB0MTU1LjUgLTE1NS41dDIxNC41IC01N3QyMTQuNSA1N3QxNTUuNSAxNTUuNXQ1NyAyMTQuNXQtNTcgMjE0LjV0LTE1NS41IDE1NS41dC0yMTQuNSA1N3pNNzgyIDc4OGwxMDYgLTEwNnE3IC03IDcgLTE3LjV0LTcgLTE3LjVsLTMyMCAtMzIxcS04IC03IC0xOCAtN3QtMTggN2wtMjAyIDIwM3EtOCA3IC04IDE3LjV0OCAxNy41bDEwNiAxMDZxNyA4IDE3LjUgOHQxNy41IC04bDc5IC03OWwxOTcgMTk3cTcgNyAxNy41IDd0MTcuNSAtN3oiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDkwOyIgZD0iTTYwMCAxMTc3cTExNyAwIDIyNCAtNDUuNXQxODQuNSAtMTIzdDEyMyAtMTg0LjV0NDUuNSAtMjI0dC00NS41IC0yMjR0LTEyMyAtMTg0LjV0LTE4NC41IC0xMjN0LTIyNCAtNDUuNXQtMjI0IDQ1LjV0LTE4NC41IDEyM3QtMTIzIDE4NC41dC00NS41IDIyNHQ0NS41IDIyNHQxMjMgMTg0LjV0MTg0LjUgMTIzdDIyNCA0NS41ek02MDAgMTAyN3EtMTE2IDAgLTIxNC41IC01N3QtMTU1LjUgLTE1NS41dC01NyAtMjE0LjVxMCAtMTIwIDY1IC0yMjUgbDU4NyA1ODdxLTEwNSA2NSAtMjI1IDY1ek05NjUgODE5bC01ODQgLTU4NHExMDQgLTYyIDIxOSAtNjJxMTE2IDAgMjE0LjUgNTd0MTU1LjUgMTU1LjV0NTcgMjE0LjVxMCAxMTUgLTYyIDIxOXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDkxOyIgZD0iTTM5IDU4Mmw1MjIgNDI3cTE2IDEzIDI3LjUgOHQxMS41IC0yNnYtMjkxaDU1MHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMjAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC01NTB2LTI5MXEwIC0yMSAtMTEuNSAtMjZ0LTI3LjUgOGwtNTIyIDQyN3EtMTYgMTMgLTE2IDMydDE2IDMyeiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUwOTI7IiBkPSJNNjM5IDEwMDlsNTIyIC00MjdxMTYgLTEzIDE2IC0zMnQtMTYgLTMybC01MjIgLTQyN3EtMTYgLTEzIC0yNy41IC04dC0xMS41IDI2djI5MWgtNTUwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYyMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41aDU1MHYyOTFxMCAyMSAxMS41IDI2dDI3LjUgLTh6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA5MzsiIGQ9Ik02ODIgMTE2MWw0MjcgLTUyMnExMyAtMTYgOCAtMjcuNXQtMjYgLTExLjVoLTI5MXYtNTUwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0yMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djU1MGgtMjkxcS0yMSAwIC0yNiAxMS41dDggMjcuNWw0MjcgNTIycTEzIDE2IDMyIDE2dDMyIC0xNnoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDk0OyIgZD0iTTU1MCAxMjAwaDIwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtNTUwaDI5MXEyMSAwIDI2IC0xMS41dC04IC0yNy41bC00MjcgLTUyMnEtMTMgLTE2IC0zMiAtMTZ0LTMyIDE2bC00MjcgNTIycS0xMyAxNiAtOCAyNy41dDI2IDExLjVoMjkxdjU1MHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTA5NTsiIGQ9Ik02MzkgMTEwOWw1MjIgLTQyN3ExNiAtMTMgMTYgLTMydC0xNiAtMzJsLTUyMiAtNDI3cS0xNiAtMTMgLTI3LjUgLTh0LTExLjUgMjZ2MjkxcS05NCAtMiAtMTgyIC0yMHQtMTcwLjUgLTUydC0xNDcgLTkyLjV0LTEwMC41IC0xMzUuNXE1IDEwNSAyNyAxOTMuNXQ2Ny41IDE2N3QxMTMgMTM1dDE2NyA5MS41dDIyNS41IDQydjI2MnEwIDIxIDExLjUgMjZ0MjcuNSAtOHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDk2OyIgZD0iTTg1MCAxMjAwaDMwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMzAwcTAgLTIxIC0xMC41IC0yNXQtMjQuNSAxMGwtOTQgOTRsLTI0OSAtMjQ5cS04IC03IC0xOCAtN3QtMTggN2wtMTA2IDEwNnEtNyA4IC03IDE4dDcgMThsMjQ5IDI0OWwtOTQgOTRxLTE0IDE0IC0xMCAyNC41dDI1IDEwLjV6TTM1MCAwaC0zMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djMwMHEwIDIxIDEwLjUgMjV0MjQuNSAtMTBsOTQgLTk0bDI0OSAyNDkgcTggNyAxOCA3dDE4IC03bDEwNiAtMTA2cTcgLTggNyAtMTh0LTcgLTE4bC0yNDkgLTI0OWw5NCAtOTRxMTQgLTE0IDEwIC0yNC41dC0yNSAtMTAuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMDk3OyIgZD0iTTEwMTQgMTEyMGwxMDYgLTEwNnE3IC04IDcgLTE4dC03IC0xOGwtMjQ5IC0yNDlsOTQgLTk0cTE0IC0xNCAxMCAtMjQuNXQtMjUgLTEwLjVoLTMwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MzAwcTAgMjEgMTAuNSAyNXQyNC41IC0xMGw5NCAtOTRsMjQ5IDI0OXE4IDcgMTggN3QxOCAtN3pNMjUwIDYwMGgzMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTMwMHEwIC0yMSAtMTAuNSAtMjV0LTI0LjUgMTBsLTk0IDk0IGwtMjQ5IC0yNDlxLTggLTcgLTE4IC03dC0xOCA3bC0xMDYgMTA2cS03IDggLTcgMTh0NyAxOGwyNDkgMjQ5bC05NCA5NHEtMTQgMTQgLTEwIDI0LjV0MjUgMTAuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTAxOyIgZD0iTTYwMCAxMTc3cTExNyAwIDIyNCAtNDUuNXQxODQuNSAtMTIzdDEyMyAtMTg0LjV0NDUuNSAtMjI0dC00NS41IC0yMjR0LTEyMyAtMTg0LjV0LTE4NC41IC0xMjN0LTIyNCAtNDUuNXQtMjI0IDQ1LjV0LTE4NC41IDEyM3QtMTIzIDE4NC41dC00NS41IDIyNHQ0NS41IDIyNHQxMjMgMTg0LjV0MTg0LjUgMTIzdDIyNCA0NS41ek03MDQgOTAwaC0yMDhxLTIwIDAgLTMyIC0xNC41dC04IC0zNC41bDU4IC0zMDJxNCAtMjAgMjEuNSAtMzQuNSB0MzcuNSAtMTQuNWg1NHEyMCAwIDM3LjUgMTQuNXQyMS41IDM0LjVsNTggMzAycTQgMjAgLTggMzQuNXQtMzIgMTQuNXpNNjc1IDQwMGgtMTUwcS0xMCAwIC0xNy41IC03LjV0LTcuNSAtMTcuNXYtMTUwcTAgLTEwIDcuNSAtMTcuNXQxNy41IC03LjVoMTUwcTEwIDAgMTcuNSA3LjV0Ny41IDE3LjV2MTUwcTAgMTAgLTcuNSAxNy41dC0xNy41IDcuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTAyOyIgZD0iTTI2MCAxMjAwcTkgMCAxOSAtMnQxNSAtNGw1IC0ycTIyIC0xMCA0NCAtMjNsMTk2IC0xMThxMjEgLTEzIDM2IC0yNHEyOSAtMjEgMzcgLTEycTExIDEzIDQ5IDM1bDE5NiAxMThxMjIgMTMgNDUgMjNxMTcgNyAzOCA3cTIzIDAgNDcgLTE2LjV0MzcgLTMzLjVsMTMgLTE2cTE0IC0yMSAxOCAtNDVsMjUgLTEyM2w4IC00NHExIC05IDguNSAtMTQuNXQxNy41IC01LjVoNjFxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di01MCBxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC01MHEtMTAgMCAtMTcuNSAtNy41dC03LjUgLTE3LjV2LTE3NWgtNDAwdjMwMGgtMjAwdi0zMDBoLTQwMHYxNzVxMCAxMCAtNy41IDE3LjV0LTE3LjUgNy41aC01MHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djUwcTAgMTAgNy41IDE3LjV0MTcuNSA3LjVoNjFxMTEgMCAxOCAzdDcgOHEwIDQgOSA1MmwyNSAxMjhxNSAyNSAxOSA0NXEyIDMgNSA3dDEzLjUgMTV0MjEuNSAxOS41dDI2LjUgMTUuNSB0MjkuNSA3ek05MTUgMTA3OWwtMTY2IC0xNjJxLTcgLTcgLTUgLTEydDEyIC01aDIxOXExMCAwIDE1IDd0MiAxN2wtNTEgMTQ5cS0zIDEwIC0xMSAxMnQtMTUgLTZ6TTQ2MyA5MTdsLTE3NyAxNTdxLTggNyAtMTYgNXQtMTEgLTEybC01MSAtMTQzcS0zIC0xMCAyIC0xN3QxNSAtN2gyMzFxMTEgMCAxMi41IDV0LTUuNSAxMnpNNTAwIDBoLTM3NXEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djM3NWg0MDB2LTQwMHpNMTEwMCA0MDB2LTM3NSBxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC0zNzV2NDAwaDQwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTAzOyIgZD0iTTExNjUgMTE5MHE4IDMgMjEgLTYuNXQxMyAtMTcuNXEtMiAtMTc4IC0yNC41IC0zMjMuNXQtNTUuNSAtMjQ1LjV0LTg3IC0xNzQuNXQtMTAyLjUgLTExOC41dC0xMTggLTY4LjV0LTExOC41IC0zM3QtMTIwIC00LjV0LTEwNSA5LjV0LTkwIDE2LjVxLTYxIDEyIC03OCAxMXEtNCAxIC0xMi41IDB0LTM0IC0xNC41dC01Mi41IC00MC41bC0xNTMgLTE1M3EtMjYgLTI0IC0zNyAtMTQuNXQtMTEgNDMuNXEwIDY0IDQyIDEwMnE4IDggNTAuNSA0NSB0NjYuNSA1OHExOSAxNyAzNSA0N3QxMyA2MXEtOSA1NSAtMTAgMTAyLjV0NyAxMTF0MzcgMTMwdDc4IDEyOS41cTM5IDUxIDgwIDg4dDg5LjUgNjMuNXQ5NC41IDQ1dDExMy41IDM2dDEyOSAzMXQxNTcuNSAzN3QxODIgNDcuNXpNMTExNiAxMDk4cS04IDkgLTIyLjUgLTN0LTQ1LjUgLTUwcS0zOCAtNDcgLTExOSAtMTAzLjV0LTE0MiAtODkuNWwtNjIgLTMzcS01NiAtMzAgLTEwMiAtNTd0LTEwNCAtNjh0LTEwMi41IC04MC41dC04NS41IC05MSB0LTY0IC0xMDQuNXEtMjQgLTU2IC0zMSAtODZ0MiAtMzJ0MzEuNSAxNy41dDU1LjUgNTkuNXEyNSAzMCA5NCA3NS41dDEyNS41IDc3LjV0MTQ3LjUgODFxNzAgMzcgMTE4LjUgNjl0MTAyIDc5LjV0OTkgMTExdDg2LjUgMTQ4LjVxMjIgNTAgMjQgNjB0LTYgMTl6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTEwNDsiIGQ9Ik02NTMgMTIzMXEtMzkgLTY3IC01NC41IC0xMzF0LTEwLjUgLTExNC41dDI0LjUgLTk2LjV0NDcuNSAtODB0NjMuNSAtNjIuNXQ2OC41IC00Ni41dDY1IC0zMHEtNCA3IC0xNy41IDM1dC0xOC41IDM5LjV0LTE3IDM5LjV0LTE3IDQzdC0xMyA0MnQtOS41IDQ0LjV0LTIgNDJ0NCA0M3QxMy41IDM5dDIzIDM4LjVxOTYgLTQyIDE2NSAtMTA3LjV0MTA1IC0xMzh0NTIgLTE1NnQxMyAtMTU5dC0xOSAtMTQ5LjVxLTEzIC01NSAtNDQgLTEwNi41IHQtNjggLTg3dC03OC41IC02NC41dC03Mi41IC00NXQtNTMgLTIycS03MiAtMjIgLTEyNyAtMTFxLTMxIDYgLTEzIDE5cTYgMyAxNyA3cTEzIDUgMzIuNSAyMXQ0MSA0NHQzOC41IDYzLjV0MjEuNSA4MS41dC02LjUgOTQuNXQtNTAgMTA3dC0xMDQgMTE1LjVxMTAgLTEwNCAtMC41IC0xODl0LTM3IC0xNDAuNXQtNjUgLTkzdC04NCAtNTJ0LTkzLjUgLTExdC05NSAyNC41cS04MCAzNiAtMTMxLjUgMTE0dC01My41IDE3MXEtMiAyMyAwIDQ5LjUgdDQuNSA1Mi41dDEzLjUgNTZ0MjcuNSA2MHQ0NiA2NC41dDY5LjUgNjguNXEtOCAtNTMgLTUgLTEwMi41dDE3LjUgLTkwdDM0IC02OC41dDQ0LjUgLTM5dDQ5IC0ycTMxIDEzIDM4LjUgMzZ0LTQuNSA1NXQtMjkgNjQuNXQtMzYgNzV0LTI2IDc1LjVxLTE1IDg1IDIgMTYxLjV0NTMuNSAxMjguNXQ4NS41IDkyLjV0OTMuNSA2MXQ4MS41IDI1LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTEwNTsiIGQ9Ik02MDAgMTA5NHE4MiAwIDE2MC41IC0yMi41dDE0MCAtNTl0MTE2LjUgLTgyLjV0OTQuNSAtOTV0NjggLTk1dDQyLjUgLTgyLjV0MTQgLTU3LjV0LTE0IC01Ny41dC00MyAtODIuNXQtNjguNSAtOTV0LTk0LjUgLTk1dC0xMTYuNSAtODIuNXQtMTQwIC01OXQtMTU5LjUgLTIyLjV0LTE1OS41IDIyLjV0LTE0MCA1OXQtMTE2LjUgODIuNXQtOTQuNSA5NXQtNjguNSA5NXQtNDMgODIuNXQtMTQgNTcuNXQxNCA1Ny41dDQyLjUgODIuNXQ2OCA5NSB0OTQuNSA5NXQxMTYuNSA4Mi41dDE0MCA1OXQxNjAuNSAyMi41ek04ODggODI5cS0xNSAxNSAtMTggMTJ0NSAtMjJxMjUgLTU3IDI1IC0xMTlxMCAtMTI0IC04OCAtMjEydC0yMTIgLTg4dC0yMTIgODh0LTg4IDIxMnEwIDU5IDIzIDExNHE4IDE5IDQuNSAyMnQtMTcuNSAtMTJxLTcwIC02OSAtMTYwIC0xODRxLTEzIC0xNiAtMTUgLTQwLjV0OSAtNDIuNXEyMiAtMzYgNDcgLTcxdDcwIC04MnQ5Mi41IC04MXQxMTMgLTU4LjV0MTMzLjUgLTI0LjUgdDEzMy41IDI0dDExMyA1OC41dDkyLjUgODEuNXQ3MCA4MS41dDQ3IDcwLjVxMTEgMTggOSA0Mi41dC0xNCA0MS41cS05MCAxMTcgLTE2MyAxODl6TTQ0OCA3MjdsLTM1IC0zNnEtMTUgLTE1IC0xOS41IC0zOC41dDQuNSAtNDEuNXEzNyAtNjggOTMgLTExNnExNiAtMTMgMzguNSAtMTF0MzYuNSAxN2wzNSAzNHExNCAxNSAxMi41IDMzLjV0LTE2LjUgMzMuNXEtNDQgNDQgLTg5IDExN3EtMTEgMTggLTI4IDIwdC0zMiAtMTJ6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTEwNjsiIGQ9Ik01OTIgMGgtMTQ4bDMxIDEyMHEtOTEgMjAgLTE3NS41IDY4LjV0LTE0My41IDEwNi41dC0xMDMuNSAxMTl0LTY2LjUgMTEwdC0yMiA3NnEwIDIxIDE0IDU3LjV0NDIuNSA4Mi41dDY4IDk1dDk0LjUgOTV0MTE2LjUgODIuNXQxNDAgNTl0MTYwLjUgMjIuNXE2MSAwIDEyNiAtMTVsMzIgMTIxaDE0OHpNOTQ0IDc3MGw0NyAxODFxMTA4IC04NSAxNzYuNSAtMTkydDY4LjUgLTE1OXEwIC0yNiAtMTkuNSAtNzF0LTU5LjUgLTEwMnQtOTMgLTExMiB0LTEyOSAtMTA0LjV0LTE1OCAtNzUuNWw0NiAxNzNxNzcgNDkgMTM2IDExN3Q5NyAxMzFxMTEgMTggOSA0Mi41dC0xNCA0MS41cS01NCA3MCAtMTA3IDEzMHpNMzEwIDgyNHEtNzAgLTY5IC0xNjAgLTE4NHEtMTMgLTE2IC0xNSAtNDAuNXQ5IC00Mi41cTE4IC0zMCAzOSAtNjB0NTcgLTcwLjV0NzQgLTczdDkwIC02MXQxMDUgLTQxLjVsNDEgMTU0cS0xMDcgMTggLTE3OC41IDEwMS41dC03MS41IDE5My41cTAgNTkgMjMgMTE0cTggMTkgNC41IDIyIHQtMTcuNSAtMTJ6TTQ0OCA3MjdsLTM1IC0zNnEtMTUgLTE1IC0xOS41IC0zOC41dDQuNSAtNDEuNXEzNyAtNjggOTMgLTExNnExNiAtMTMgMzguNSAtMTF0MzYuNSAxN2wxMiAxMWwyMiA4NmwtMyA0cS00NCA0NCAtODkgMTE3cS0xMSAxOCAtMjggMjB0LTMyIC0xMnoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTA3OyIgZD0iTS05MCAxMDBsNjQyIDEwNjZxMjAgMzEgNDggMjguNXQ0OCAtMzUuNWw2NDIgLTEwNTZxMjEgLTMyIDcuNSAtNjcuNXQtNTAuNSAtMzUuNWgtMTI5NHEtMzcgMCAtNTAuNSAzNHQ3LjUgNjZ6TTE1NSAyMDBoMzQ1djc1cTAgMTAgNy41IDE3LjV0MTcuNSA3LjVoMTUwcTEwIDAgMTcuNSAtNy41dDcuNSAtMTcuNXYtNzVoMzQ1bC00NDUgNzIzek00OTYgNzAwaDIwOHEyMCAwIDMyIC0xNC41dDggLTM0LjVsLTU4IC0yNTIgcS00IC0yMCAtMjEuNSAtMzQuNXQtMzcuNSAtMTQuNWgtNTRxLTIwIDAgLTM3LjUgMTQuNXQtMjEuNSAzNC41bC01OCAyNTJxLTQgMjAgOCAzNC41dDMyIDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTEwODsiIGQ9Ik02NTAgMTIwMHE2MiAwIDEwNiAtNDR0NDQgLTEwNnYtMzM5bDM2MyAtMzI1cTE1IC0xNCAyNiAtMzguNXQxMSAtNDQuNXYtNDFxMCAtMjAgLTEyIC0yNi41dC0yOSA1LjVsLTM1OSAyNDl2LTI2M3ExMDAgLTkzIDEwMCAtMTEzdi02NHEwIC0yMSAtMTMgLTI5dC0zMiAxbC0yMDUgMTI4bC0yMDUgLTEyOHEtMTkgLTkgLTMyIC0xdC0xMyAyOXY2NHEwIDIwIDEwMCAxMTN2MjYzbC0zNTkgLTI0OXEtMTcgLTEyIC0yOSAtNS41dC0xMiAyNi41djQxIHEwIDIwIDExIDQ0LjV0MjYgMzguNWwzNjMgMzI1djMzOXEwIDYyIDQ0IDEwNnQxMDYgNDR6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTEwOTsiIGQ9Ik04NTAgMTIwMGgxMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTUwaDUwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0xNTBoLTExMDB2MTUwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNWg1MHY1MHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjVoMTAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di01MGg1MDB2NTBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek0xMTAwIDgwMHYtNzUwcTAgLTIxIC0xNC41IC0zNS41IHQtMzUuNSAtMTQuNWgtMTAwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2NzUwaDExMDB6TTEwMCA2MDB2LTEwMGgxMDB2MTAwaC0xMDB6TTMwMCA2MDB2LTEwMGgxMDB2MTAwaC0xMDB6TTUwMCA2MDB2LTEwMGgxMDB2MTAwaC0xMDB6TTcwMCA2MDB2LTEwMGgxMDB2MTAwaC0xMDB6TTkwMCA2MDB2LTEwMGgxMDB2MTAwaC0xMDB6TTEwMCA0MDB2LTEwMGgxMDB2MTAwaC0xMDB6TTMwMCA0MDB2LTEwMGgxMDB2MTAwaC0xMDB6TTUwMCA0MDAgdi0xMDBoMTAwdjEwMGgtMTAwek03MDAgNDAwdi0xMDBoMTAwdjEwMGgtMTAwek05MDAgNDAwdi0xMDBoMTAwdjEwMGgtMTAwek0xMDAgMjAwdi0xMDBoMTAwdjEwMGgtMTAwek0zMDAgMjAwdi0xMDBoMTAwdjEwMGgtMTAwek01MDAgMjAwdi0xMDBoMTAwdjEwMGgtMTAwek03MDAgMjAwdi0xMDBoMTAwdjEwMGgtMTAwek05MDAgMjAwdi0xMDBoMTAwdjEwMGgtMTAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxMTA7IiBkPSJNMTEzNSAxMTY1bDI0OSAtMjMwcTE1IC0xNCAxNSAtMzV0LTE1IC0zNWwtMjQ5IC0yMzBxLTE0IC0xNCAtMjQuNSAtMTB0LTEwLjUgMjV2MTUwaC0xNTlsLTYwMCAtNjAwaC0yOTFxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjVoMjA5bDYwMCA2MDBoMjQxdjE1MHEwIDIxIDEwLjUgMjV0MjQuNSAtMTB6TTUyMiA4MTlsLTE0MSAtMTQxbC0xMjIgMTIyaC0yMDlxLTIxIDAgLTM1LjUgMTQuNSB0LTE0LjUgMzUuNXYxMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41aDI5MXpNMTEzNSA1NjVsMjQ5IC0yMzBxMTUgLTE0IDE1IC0zNXQtMTUgLTM1bC0yNDkgLTIzMHEtMTQgLTE0IC0yNC41IC0xMHQtMTAuNSAyNXYxNTBoLTI0MWwtMTgxIDE4MWwxNDEgMTQxbDEyMiAtMTIyaDE1OXYxNTBxMCAyMSAxMC41IDI1dDI0LjUgLTEweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxMTE7IiBkPSJNMTAwIDExMDBoMTAwMHE0MSAwIDcwLjUgLTI5LjV0MjkuNSAtNzAuNXYtNjAwcTAgLTQxIC0yOS41IC03MC41dC03MC41IC0yOS41aC01OTZsLTMwNCAtMzAwdjMwMGgtMTAwcS00MSAwIC03MC41IDI5LjV0LTI5LjUgNzAuNXY2MDBxMCA0MSAyOS41IDcwLjV0NzAuNSAyOS41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxMTI7IiBkPSJNMTUwIDEyMDBoMjAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0yNTBoLTMwMHYyNTBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek04NTAgMTIwMGgyMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTI1MGgtMzAwdjI1MHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTExMDAgODAwdi0zMDBxMCAtNDEgLTMgLTc3LjV0LTE1IC04OS41dC0zMiAtOTZ0LTU4IC04OXQtODkgLTc3dC0xMjkgLTUxdC0xNzQgLTIwdC0xNzQgMjAgdC0xMjkgNTF0LTg5IDc3dC01OCA4OXQtMzIgOTZ0LTE1IDg5LjV0LTMgNzcuNXYzMDBoMzAwdi0yNTB2LTI3di00Mi41dDEuNSAtNDF0NSAtMzh0MTAgLTM1dDE2LjUgLTMwdDI1LjUgLTI0LjV0MzUgLTE5dDQ2LjUgLTEydDYwIC00dDYwIDQuNXQ0Ni41IDEyLjV0MzUgMTkuNXQyNSAyNS41dDE3IDMwLjV0MTAgMzV0NSAzOHQyIDQwLjV0LTAuNSA0MnYyNXYyNTBoMzAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxMTM7IiBkPSJNMTEwMCA0MTFsLTE5OCAtMTk5bC0zNTMgMzUzbC0zNTMgLTM1M2wtMTk3IDE5OWw1NTEgNTUxeiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxMTQ7IiBkPSJNMTEwMSA3ODlsLTU1MCAtNTUxbC01NTEgNTUxbDE5OCAxOTlsMzUzIC0zNTNsMzUzIDM1M3oiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTE1OyIgZD0iTTQwNCAxMDAwaDc0NnEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtNTUxaDE1MHEyMSAwIDI1IC0xMC41dC0xMCAtMjQuNWwtMjMwIC0yNDlxLTE0IC0xNSAtMzUgLTE1dC0zNSAxNWwtMjMwIDI0OXEtMTQgMTQgLTEwIDI0LjV0MjUgMTAuNWgxNTB2NDAxaC0zODF6TTEzNSA5ODRsMjMwIC0yNDlxMTQgLTE0IDEwIC0yNC41dC0yNSAtMTAuNWgtMTUwdi00MDBoMzg1bDIxNSAtMjAwaC03NTBxLTIxIDAgLTM1LjUgMTQuNSB0LTE0LjUgMzUuNXY1NTBoLTE1MHEtMjEgMCAtMjUgMTAuNXQxMCAyNC41bDIzMCAyNDlxMTQgMTUgMzUgMTV0MzUgLTE1eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxMTY7IiBkPSJNNTYgMTIwMGg5NHExNyAwIDMxIC0xMXQxOCAtMjdsMzggLTE2Mmg4OTZxMjQgMCAzOSAtMTguNXQxMCAtNDIuNWwtMTAwIC00NzVxLTUgLTIxIC0yNyAtNDIuNXQtNTUgLTIxLjVoLTYzM2w0OCAtMjAwaDUzNXEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXQtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNTB2LTUwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41dC0zNS41IDE0LjV0LTE0LjUgMzUuNXY1MGgtMzAwdi01MCBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjV0LTM1LjUgMTQuNXQtMTQuNSAzNS41djUwaC0zMXEtMTggMCAtMzIuNSAxMHQtMjAuNSAxOWwtNSAxMGwtMjAxIDk2MWgtNTRxLTIwIDAgLTM1IDE0LjV0LTE1IDM1LjV0MTUgMzUuNXQzNSAxNC41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxMTc7IiBkPSJNMTIwMCAxMDAwdi0xMDBoLTEyMDB2MTAwaDIwMHEwIDQxIDI5LjUgNzAuNXQ3MC41IDI5LjVoMzAwcTQxIDAgNzAuNSAtMjkuNXQyOS41IC03MC41aDUwMHpNMCA4MDBoMTIwMHYtODAwaC0xMjAwdjgwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTE4OyIgZD0iTTIwMCA4MDBsLTIwMCAtNDAwdjYwMGgyMDBxMCA0MSAyOS41IDcwLjV0NzAuNSAyOS41aDMwMHE0MiAwIDcxIC0yOS41dDI5IC03MC41aDUwMHYtMjAwaC0xMDAwek0xNTAwIDcwMGwtMzAwIC03MDBoLTEyMDBsMzAwIDcwMGgxMjAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxMTk7IiBkPSJNNjM1IDExODRsMjMwIC0yNDlxMTQgLTE0IDEwIC0yNC41dC0yNSAtMTAuNWgtMTUwdi02MDFoMTUwcTIxIDAgMjUgLTEwLjV0LTEwIC0yNC41bC0yMzAgLTI0OXEtMTQgLTE1IC0zNSAtMTV0LTM1IDE1bC0yMzAgMjQ5cS0xNCAxNCAtMTAgMjQuNXQyNSAxMC41aDE1MHY2MDFoLTE1MHEtMjEgMCAtMjUgMTAuNXQxMCAyNC41bDIzMCAyNDlxMTQgMTUgMzUgMTV0MzUgLTE1eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxMjA7IiBkPSJNOTM2IDg2NGwyNDkgLTIyOXExNCAtMTUgMTQgLTM1LjV0LTE0IC0zNS41bC0yNDkgLTIyOXEtMTUgLTE1IC0yNS41IC0xMC41dC0xMC41IDI0LjV2MTUxaC02MDB2LTE1MXEwIC0yMCAtMTAuNSAtMjQuNXQtMjUuNSAxMC41bC0yNDkgMjI5cS0xNCAxNSAtMTQgMzUuNXQxNCAzNS41bDI0OSAyMjlxMTUgMTUgMjUuNSAxMC41dDEwLjUgLTI1LjV2LTE0OWg2MDB2MTQ5cTAgMjEgMTAuNSAyNS41dDI1LjUgLTEwLjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTEyMTsiIGQ9Ik0xMTY5IDQwMGwtMTcyIDczMnEtNSAyMyAtMjMgNDUuNXQtMzggMjIuNWgtNjcycS0yMCAwIC0zOCAtMjB0LTIzIC00MWwtMTcyIC03MzloMTEzOHpNMTEwMCAzMDBoLTEwMDBxLTQxIDAgLTcwLjUgLTI5LjV0LTI5LjUgLTcwLjV2LTEwMHEwIC00MSAyOS41IC03MC41dDcwLjUgLTI5LjVoMTAwMHE0MSAwIDcwLjUgMjkuNXQyOS41IDcwLjV2MTAwcTAgNDEgLTI5LjUgNzAuNXQtNzAuNSAyOS41ek04MDAgMTAwdjEwMGgxMDB2LTEwMGgtMTAwIHpNMTAwMCAxMDB2MTAwaDEwMHYtMTAwaC0xMDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTEyMjsiIGQ9Ik0xMTUwIDExMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTg1MHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNXQtMzUuNSAxNC41dC0xNC41IDM1LjV2ODUwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNMTAwMCAyMDBsLTY3NSAyMDBoLTM4bDQ3IC0yNzZxMyAtMTYgLTUuNSAtMjB0LTI5LjUgLTRoLTdoLTg0cS0yMCAwIC0zNC41IDE0dC0xOC41IDM1cS01NSAzMzcgLTU1IDM1MXYyNTB2NnEwIDE2IDEgMjMuNXQ2LjUgMTQgdDE3LjUgNi41aDIwMGw2NzUgMjUwdi04NTB6TTAgNzUwdi0yNTBxLTQgMCAtMTEgMC41dC0yNCA2dC0zMCAxNXQtMjQgMzB0LTExIDQ4LjV2NTBxMCAyNiAxMC41IDQ2dDI1IDMwdDI5IDE2dDI1LjUgN3oiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTIzOyIgZD0iTTU1MyAxMjAwaDk0cTIwIDAgMjkgLTEwLjV0MyAtMjkuNWwtMTggLTM3cTgzIC0xOSAxNDQgLTgyLjV0NzYgLTE0MC41bDYzIC0zMjdsMTE4IC0xNzNoMTdxMTkgMCAzMyAtMTQuNXQxNCAtMzV0LTEzIC00MC41dC0zMSAtMjdxLTggLTQgLTIzIC05LjV0LTY1IC0xOS41dC0xMDMgLTI1dC0xMzIuNSAtMjB0LTE1OC41IC05cS01NyAwIC0xMTUgNXQtMTA0IDEydC04OC41IDE1LjV0LTczLjUgMTcuNXQtNTQuNSAxNnQtMzUuNSAxMmwtMTEgNCBxLTE4IDggLTMxIDI4dC0xMyA0MC41dDE0IDM1dDMzIDE0LjVoMTdsMTE4IDE3M2w2MyAzMjdxMTUgNzcgNzYgMTQwdDE0NCA4M2wtMTggMzJxLTYgMTkgMy41IDMydDI4LjUgMTN6TTQ5OCAxMTBxNTAgLTYgMTAyIC02cTUzIDAgMTAyIDZxLTEyIC00OSAtMzkuNSAtNzkuNXQtNjIuNSAtMzAuNXQtNjMgMzAuNXQtMzkgNzkuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTI0OyIgZD0iTTgwMCA5NDZsMjI0IDc4bC03OCAtMjI0bDIzNCAtNDVsLTE4MCAtMTU1bDE4MCAtMTU1bC0yMzQgLTQ1bDc4IC0yMjRsLTIyNCA3OGwtNDUgLTIzNGwtMTU1IDE4MGwtMTU1IC0xODBsLTQ1IDIzNGwtMjI0IC03OGw3OCAyMjRsLTIzNCA0NWwxODAgMTU1bC0xODAgMTU1bDIzNCA0NWwtNzggMjI0bDIyNCAtNzhsNDUgMjM0bDE1NSAtMTgwbDE1NSAxODB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTEyNTsiIGQ9Ik02NTAgMTIwMGg1MHE0MCAwIDcwIC00MC41dDMwIC04NC41di0xNTBsLTI4IC0xMjVoMzI4cTQwIDAgNzAgLTQwLjV0MzAgLTg0LjV2LTEwMHEwIC00NSAtMjkgLTc0bC0yMzggLTM0NHEtMTYgLTI0IC0zOCAtNDAuNXQtNDUgLTE2LjVoLTI1MHEtNyAwIC00MiAyNXQtNjYgNTBsLTMxIDI1aC02MXEtNDUgMCAtNzIuNSAxOHQtMjcuNSA1N3Y0MDBxMCAzNiAyMCA2M2wxNDUgMTk2bDk2IDE5OHExMyAyOCAzNy41IDQ4dDUxLjUgMjB6IE02NTAgMTEwMGwtMTAwIC0yMTJsLTE1MCAtMjEzdi0zNzVoMTAwbDEzNiAtMTAwaDIxNGwyNTAgMzc1djEyNWgtNDUwbDUwIDIyNXYxNzVoLTUwek01MCA4MDBoMTAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di01MDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTEwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2NTAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTI2OyIgZD0iTTYwMCAxMTAwaDI1MHEyMyAwIDQ1IC0xNi41dDM4IC00MC41bDIzOCAtMzQ0cTI5IC0yOSAyOSAtNzR2LTEwMHEwIC00NCAtMzAgLTg0LjV0LTcwIC00MC41aC0zMjhxMjggLTExOCAyOCAtMTI1di0xNTBxMCAtNDQgLTMwIC04NC41dC03MCAtNDAuNWgtNTBxLTI3IDAgLTUxLjUgMjB0LTM3LjUgNDhsLTk2IDE5OGwtMTQ1IDE5NnEtMjAgMjcgLTIwIDYzdjQwMHEwIDM5IDI3LjUgNTd0NzIuNSAxOGg2MXExMjQgMTAwIDEzOSAxMDB6IE01MCAxMDAwaDEwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtNTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djUwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTYzNiAxMDAwbC0xMzYgLTEwMGgtMTAwdi0zNzVsMTUwIC0yMTNsMTAwIC0yMTJoNTB2MTc1bC01MCAyMjVoNDUwdjEyNWwtMjUwIDM3NWgtMjE0eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxMjc7IiBkPSJNMzU2IDg3M2wzNjMgMjMwcTMxIDE2IDUzIC02bDExMCAtMTEycTEzIC0xMyAxMy41IC0zMnQtMTEuNSAtMzRsLTg0IC0xMjFoMzAycTg0IDAgMTM4IC0zOHQ1NCAtMTEwdC01NSAtMTExdC0xMzkgLTM5aC0xMDZsLTEzMSAtMzM5cS02IC0yMSAtMTkuNSAtNDF0LTI4LjUgLTIwaC0zNDJxLTcgMCAtOTAgODF0LTgzIDk0djUyNXEwIDE3IDE0IDM1LjV0MjggMjguNXpNNDAwIDc5MnYtNTAzbDEwMCAtODloMjkzbDEzMSAzMzkgcTYgMjEgMTkuNSA0MXQyOC41IDIwaDIwM3EyMSAwIDMwLjUgMjV0MC41IDUwdC0zMSAyNWgtNDU2aC03aC02aC01LjV0LTYgMC41dC01IDEuNXQtNSAydC00IDIuNXQtNCA0dC0yLjUgNC41cS0xMiAyNSA1IDQ3bDE0NiAxODNsLTg2IDgzek01MCA4MDBoMTAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di01MDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTEwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2NTAwIHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTEyODsiIGQ9Ik00NzUgMTEwM2wzNjYgLTIzMHEyIC0xIDYgLTMuNXQxNCAtMTAuNXQxOCAtMTYuNXQxNC41IC0yMHQ2LjUgLTIyLjV2LTUyNXEwIC0xMyAtODYgLTk0dC05MyAtODFoLTM0MnEtMTUgMCAtMjguNSAyMHQtMTkuNSA0MWwtMTMxIDMzOWgtMTA2cS04NSAwIC0xMzkuNSAzOXQtNTQuNSAxMTF0NTQgMTEwdDEzOCAzOGgzMDJsLTg1IDEyMXEtMTEgMTUgLTEwLjUgMzR0MTMuNSAzMmwxMTAgMTEycTIyIDIyIDUzIDZ6TTM3MCA5NDVsMTQ2IC0xODMgcTE3IC0yMiA1IC00N3EtMiAtMiAtMy41IC00LjV0LTQgLTR0LTQgLTIuNXQtNSAtMnQtNSAtMS41dC02IC0wLjVoLTZoLTYuNWgtNmgtNDc1di0xMDBoMjIxcTE1IDAgMjkgLTIwdDIwIC00MWwxMzAgLTMzOWgyOTRsMTA2IDg5djUwM2wtMzQyIDIzNnpNMTA1MCA4MDBoMTAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di01MDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTEwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjUgdjUwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTEyOTsiIGQ9Ik01NTAgMTI5NHE3MiAwIDExMSAtNTV0MzkgLTEzOXYtMTA2bDMzOSAtMTMxcTIxIC02IDQxIC0xOS41dDIwIC0yOC41di0zNDJxMCAtNyAtODEgLTkwdC05NCAtODNoLTUyNXEtMTcgMCAtMzUuNSAxNHQtMjguNSAyOGwtOSAxNGwtMjMwIDM2M3EtMTYgMzEgNiA1M2wxMTIgMTEwcTEzIDEzIDMyIDEzLjV0MzQgLTExLjVsMTIxIC04NHYzMDJxMCA4NCAzOCAxMzh0MTEwIDU0ek02MDAgOTcydjIwM3EwIDIxIC0yNSAzMC41dC01MCAwLjUgdC0yNSAtMzF2LTQ1NnYtN3YtNnYtNS41dC0wLjUgLTZ0LTEuNSAtNXQtMiAtNXQtMi41IC00dC00IC00dC00LjUgLTIuNXEtMjUgLTEyIC00NyA1bC0xODMgMTQ2bC04MyAtODZsMjM2IC0zMzloNTAzbDg5IDEwMHYyOTNsLTMzOSAxMzFxLTIxIDYgLTQxIDE5LjV0LTIwIDI4LjV6TTQ1MCAyMDBoNTAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0xMDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTUwMCBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTEzMDsiIGQ9Ik0zNTAgMTEwMGg1MDBxMjEgMCAzNS41IDE0LjV0MTQuNSAzNS41djEwMHEwIDIxIC0xNC41IDM1LjV0LTM1LjUgMTQuNWgtNTAwcS0yMSAwIC0zNS41IC0xNC41dC0xNC41IC0zNS41di0xMDBxMCAtMjEgMTQuNSAtMzUuNXQzNS41IC0xNC41ek02MDAgMzA2di0xMDZxMCAtODQgLTM5IC0xMzl0LTExMSAtNTV0LTExMCA1NHQtMzggMTM4djMwMmwtMTIxIC04NHEtMTUgLTEyIC0zNCAtMTEuNXQtMzIgMTMuNWwtMTEyIDExMCBxLTIyIDIyIC02IDUzbDIzMCAzNjNxMSAyIDMuNSA2dDEwLjUgMTMuNXQxNi41IDE3dDIwIDEzLjV0MjIuNSA2aDUyNXExMyAwIDk0IC04M3Q4MSAtOTB2LTM0MnEwIC0xNSAtMjAgLTI4LjV0LTQxIC0xOS41ek0zMDggOTAwbC0yMzYgLTMzOWw4MyAtODZsMTgzIDE0NnEyMiAxNyA0NyA1cTIgLTEgNC41IC0yLjV0NCAtNHQyLjUgLTR0MiAtNXQxLjUgLTV0MC41IC02di01LjV2LTZ2LTd2LTQ1NnEwIC0yMiAyNSAtMzF0NTAgMC41dDI1IDMwLjUgdjIwM3EwIDE1IDIwIDI4LjV0NDEgMTkuNWwzMzkgMTMxdjI5M2wtODkgMTAwaC01MDN6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTEzMTsiIGQ9Ik02MDAgMTE3OHExMTggMCAyMjUgLTQ1LjV0MTg0LjUgLTEyM3QxMjMgLTE4NC41dDQ1LjUgLTIyNXQtNDUuNSAtMjI1dC0xMjMgLTE4NC41dC0xODQuNSAtMTIzdC0yMjUgLTQ1LjV0LTIyNSA0NS41dC0xODQuNSAxMjN0LTEyMyAxODQuNXQtNDUuNSAyMjV0NDUuNSAyMjV0MTIzIDE4NC41dDE4NC41IDEyM3QyMjUgNDUuNXpNOTE0IDYzMmwtMjc1IDIyM3EtMTYgMTMgLTI3LjUgOHQtMTEuNSAtMjZ2LTEzN2gtMjc1IHEtMTAgMCAtMTcuNSAtNy41dC03LjUgLTE3LjV2LTE1MHEwIC0xMCA3LjUgLTE3LjV0MTcuNSAtNy41aDI3NXYtMTM3cTAgLTIxIDExLjUgLTI2dDI3LjUgOGwyNzUgMjIzcTE2IDEzIDE2IDMydC0xNiAzMnoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTMyOyIgZD0iTTYwMCAxMTc4cTExOCAwIDIyNSAtNDUuNXQxODQuNSAtMTIzdDEyMyAtMTg0LjV0NDUuNSAtMjI1dC00NS41IC0yMjV0LTEyMyAtMTg0LjV0LTE4NC41IC0xMjN0LTIyNSAtNDUuNXQtMjI1IDQ1LjV0LTE4NC41IDEyM3QtMTIzIDE4NC41dC00NS41IDIyNXQ0NS41IDIyNXQxMjMgMTg0LjV0MTg0LjUgMTIzdDIyNSA0NS41ek01NjEgODU1bC0yNzUgLTIyM3EtMTYgLTEzIC0xNiAtMzJ0MTYgLTMybDI3NSAtMjIzcTE2IC0xMyAyNy41IC04IHQxMS41IDI2djEzN2gyNzVxMTAgMCAxNy41IDcuNXQ3LjUgMTcuNXYxNTBxMCAxMCAtNy41IDE3LjV0LTE3LjUgNy41aC0yNzV2MTM3cTAgMjEgLTExLjUgMjZ0LTI3LjUgLTh6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTEzMzsiIGQ9Ik02MDAgMTE3OHExMTggMCAyMjUgLTQ1LjV0MTg0LjUgLTEyM3QxMjMgLTE4NC41dDQ1LjUgLTIyNXQtNDUuNSAtMjI1dC0xMjMgLTE4NC41dC0xODQuNSAtMTIzdC0yMjUgLTQ1LjV0LTIyNSA0NS41dC0xODQuNSAxMjN0LTEyMyAxODQuNXQtNDUuNSAyMjV0NDUuNSAyMjV0MTIzIDE4NC41dDE4NC41IDEyM3QyMjUgNDUuNXpNODU1IDYzOWwtMjIzIDI3NXEtMTMgMTYgLTMyIDE2dC0zMiAtMTZsLTIyMyAtMjc1cS0xMyAtMTYgLTggLTI3LjUgdDI2IC0xMS41aDEzN3YtMjc1cTAgLTEwIDcuNSAtMTcuNXQxNy41IC03LjVoMTUwcTEwIDAgMTcuNSA3LjV0Ny41IDE3LjV2Mjc1aDEzN3EyMSAwIDI2IDExLjV0LTggMjcuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTM0OyIgZD0iTTYwMCAxMTc4cTExOCAwIDIyNSAtNDUuNXQxODQuNSAtMTIzdDEyMyAtMTg0LjV0NDUuNSAtMjI1dC00NS41IC0yMjV0LTEyMyAtMTg0LjV0LTE4NC41IC0xMjN0LTIyNSAtNDUuNXQtMjI1IDQ1LjV0LTE4NC41IDEyM3QtMTIzIDE4NC41dC00NS41IDIyNXQ0NS41IDIyNXQxMjMgMTg0LjV0MTg0LjUgMTIzdDIyNSA0NS41ek02NzUgOTAwaC0xNTBxLTEwIDAgLTE3LjUgLTcuNXQtNy41IC0xNy41di0yNzVoLTEzN3EtMjEgMCAtMjYgLTExLjUgdDggLTI3LjVsMjIzIC0yNzVxMTMgLTE2IDMyIC0xNnQzMiAxNmwyMjMgMjc1cTEzIDE2IDggMjcuNXQtMjYgMTEuNWgtMTM3djI3NXEwIDEwIC03LjUgMTcuNXQtMTcuNSA3LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTEzNTsiIGQ9Ik02MDAgMTE3NnExMTYgMCAyMjIuNSAtNDZ0MTg0IC0xMjMuNXQxMjMuNSAtMTg0dDQ2IC0yMjIuNXQtNDYgLTIyMi41dC0xMjMuNSAtMTg0dC0xODQgLTEyMy41dC0yMjIuNSAtNDZ0LTIyMi41IDQ2dC0xODQgMTIzLjV0LTEyMy41IDE4NHQtNDYgMjIyLjV0NDYgMjIyLjV0MTIzLjUgMTg0dDE4NCAxMjMuNXQyMjIuNSA0NnpNNjI3IDExMDFxLTE1IC0xMiAtMzYuNSAtMjAuNXQtMzUuNSAtMTJ0LTQzIC04dC0zOSAtNi41IHEtMTUgLTMgLTQ1LjUgMHQtNDUuNSAtMnEtMjAgLTcgLTUxLjUgLTI2LjV0LTM0LjUgLTM0LjVxLTMgLTExIDYuNSAtMjIuNXQ4LjUgLTE4LjVxLTMgLTM0IC0yNy41IC05MXQtMjkuNSAtNzlxLTkgLTM0IDUgLTkzdDggLTg3cTAgLTkgMTcgLTQ0LjV0MTYgLTU5LjVxMTIgMCAyMyAtNXQyMy41IC0xNXQxOS41IC0xNHExNiAtOCAzMyAtMTV0NDAuNSAtMTV0MzQuNSAtMTJxMjEgLTkgNTIuNSAtMzJ0NjAgLTM4dDU3LjUgLTExIHE3IC0xNSAtMyAtMzR0LTIyLjUgLTQwdC05LjUgLTM4cTEzIC0yMSAyMyAtMzQuNXQyNy41IC0yNy41dDM2LjUgLTE4cTAgLTcgLTMuNSAtMTZ0LTMuNSAtMTR0NSAtMTdxMTA0IC0yIDIyMSAxMTJxMzAgMjkgNDYuNSA0N3QzNC41IDQ5dDIxIDYzcS0xMyA4IC0zNyA4LjV0LTM2IDcuNXEtMTUgNyAtNDkuNSAxNXQtNTEuNSAxOXEtMTggMCAtNDEgLTAuNXQtNDMgLTEuNXQtNDIgLTYuNXQtMzggLTE2LjVxLTUxIC0zNSAtNjYgLTEyIHEtNCAxIC0zLjUgMjUuNXQwLjUgMjUuNXEtNiAxMyAtMjYuNSAxNy41dC0yNC41IDYuNXExIDE1IC0wLjUgMzAuNXQtNyAyOHQtMTguNSAxMS41dC0zMSAtMjFxLTIzIC0yNSAtNDIgNHEtMTkgMjggLTggNThxNiAxNiAyMiAyMnE2IC0xIDI2IC0xLjV0MzMuNSAtNHQxOS41IC0xMy41cTcgLTEyIDE4IC0yNHQyMS41IC0yMC41dDIwIC0xNXQxNS41IC0xMC41bDUgLTNxMiAxMiA3LjUgMzAuNXQ4IDM0LjV0LTAuNSAzMnEtMyAxOCAzLjUgMjkgdDE4IDIyLjV0MTUuNSAyNC41cTYgMTQgMTAuNSAzNXQ4IDMxdDE1LjUgMjIuNXQzNCAyMi41cS02IDE4IDEwIDM2cTggMCAyNCAtMS41dDI0LjUgLTEuNXQyMCA0LjV0MjAuNSAxNS41cS0xMCAyMyAtMzEgNDIuNXQtMzcuNSAyOS41dC00OSAyN3QtNDMuNSAyM3EwIDEgMiA4dDMgMTEuNXQxLjUgMTAuNXQtMSA5LjV0LTQuNSA0LjVxMzEgLTEzIDU4LjUgLTE0LjV0MzguNSAyLjVsMTIgNXE1IDI4IC05LjUgNDZ0LTM2LjUgMjR0LTUwIDE1IHQtNDEgMjBxLTE4IC00IC0zNyAwek02MTMgOTk0cTAgLTE3IDggLTQydDE3IC00NXQ5IC0yM3EtOCAxIC0zOS41IDUuNXQtNTIuNSAxMHQtMzcgMTYuNXEzIDExIDE2IDI5LjV0MTYgMjUuNXExMCAtMTAgMTkgLTEwdDE0IDZ0MTMuNSAxNC41dDE2LjUgMTIuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTM2OyIgZD0iTTc1NiAxMTU3cTE2NCA5MiAzMDYgLTlsLTI1OSAtMTM4bDE0NSAtMjMybDI1MSAxMjZxNiAtODkgLTM0IC0xNTYuNXQtMTE3IC0xMTAuNXEtNjAgLTM0IC0xMjcgLTM5LjV0LTEyNiAxNi41bC01OTYgLTU5NnEtMTUgLTE2IC0zNi41IC0xNnQtMzYuNSAxNmwtMTExIDExMHEtMTUgMTUgLTE1IDM2LjV0MTUgMzcuNWw2MDAgNTk5cS0zNCAxMDEgNS41IDIwMS41dDEzNS41IDE1NC41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxMzc7IiBob3Jpei1hZHYteD0iMTIyMCIgZD0iTTEwMCAxMTk2aDEwMDBxNDEgMCA3MC41IC0yOS41dDI5LjUgLTcwLjV2LTEwMHEwIC00MSAtMjkuNSAtNzAuNXQtNzAuNSAtMjkuNWgtMTAwMHEtNDEgMCAtNzAuNSAyOS41dC0yOS41IDcwLjV2MTAwcTAgNDEgMjkuNSA3MC41dDcwLjUgMjkuNXpNMTEwMCAxMDk2aC0yMDB2LTEwMGgyMDB2MTAwek0xMDAgNzk2aDEwMDBxNDEgMCA3MC41IC0yOS41dDI5LjUgLTcwLjV2LTEwMHEwIC00MSAtMjkuNSAtNzAuNXQtNzAuNSAtMjkuNWgtMTAwMCBxLTQxIDAgLTcwLjUgMjkuNXQtMjkuNSA3MC41djEwMHEwIDQxIDI5LjUgNzAuNXQ3MC41IDI5LjV6TTExMDAgNjk2aC01MDB2LTEwMGg1MDB2MTAwek0xMDAgMzk2aDEwMDBxNDEgMCA3MC41IC0yOS41dDI5LjUgLTcwLjV2LTEwMHEwIC00MSAtMjkuNSAtNzAuNXQtNzAuNSAtMjkuNWgtMTAwMHEtNDEgMCAtNzAuNSAyOS41dC0yOS41IDcwLjV2MTAwcTAgNDEgMjkuNSA3MC41dDcwLjUgMjkuNXpNMTEwMCAyOTZoLTMwMHYtMTAwaDMwMHYxMDB6ICIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxMzg7IiBkPSJNMTUwIDEyMDBoOTAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41dC0xNC41IC0zNS41dC0zNS41IC0xNC41aC05MDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41dDE0LjUgMzUuNXQzNS41IDE0LjV6TTcwMCA1MDB2LTMwMGwtMjAwIC0yMDB2NTAwbC0zNTAgNTAwaDkwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTM5OyIgZD0iTTUwMCAxMjAwaDIwMHE0MSAwIDcwLjUgLTI5LjV0MjkuNSAtNzAuNXYtMTAwaDMwMHE0MSAwIDcwLjUgLTI5LjV0MjkuNSAtNzAuNXYtNDAwaC01MDB2MTAwaC0yMDB2LTEwMGgtNTAwdjQwMHEwIDQxIDI5LjUgNzAuNXQ3MC41IDI5LjVoMzAwdjEwMHEwIDQxIDI5LjUgNzAuNXQ3MC41IDI5LjV6TTUwMCAxMTAwdi0xMDBoMjAwdjEwMGgtMjAwek0xMjAwIDQwMHYtMjAwcTAgLTQxIC0yOS41IC03MC41dC03MC41IC0yOS41aC0xMDAwIHEtNDEgMCAtNzAuNSAyOS41dC0yOS41IDcwLjV2MjAwaDEyMDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE0MDsiIGQ9Ik01MCAxMjAwaDMwMHEyMSAwIDI1IC0xMC41dC0xMCAtMjQuNWwtOTQgLTk0bDE5OSAtMTk5cTcgLTggNyAtMTh0LTcgLTE4bC0xMDYgLTEwNnEtOCAtNyAtMTggLTd0LTE4IDdsLTE5OSAxOTlsLTk0IC05NHEtMTQgLTE0IC0yNC41IC0xMHQtMTAuNSAyNXYzMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek04NTAgMTIwMGgzMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTMwMHEwIC0yMSAtMTAuNSAtMjV0LTI0LjUgMTBsLTk0IDk0IGwtMTk5IC0xOTlxLTggLTcgLTE4IC03dC0xOCA3bC0xMDYgMTA2cS03IDggLTcgMTh0NyAxOGwxOTkgMTk5bC05NCA5NHEtMTQgMTQgLTEwIDI0LjV0MjUgMTAuNXpNMzY0IDQ3MGwxMDYgLTEwNnE3IC04IDcgLTE4dC03IC0xOGwtMTk5IC0xOTlsOTQgLTk0cTE0IC0xNCAxMCAtMjQuNXQtMjUgLTEwLjVoLTMwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MzAwcTAgMjEgMTAuNSAyNXQyNC41IC0xMGw5NCAtOTRsMTk5IDE5OSBxOCA3IDE4IDd0MTggLTd6TTEwNzEgMjcxbDk0IDk0cTE0IDE0IDI0LjUgMTB0MTAuNSAtMjV2LTMwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMzAwcS0yMSAwIC0yNSAxMC41dDEwIDI0LjVsOTQgOTRsLTE5OSAxOTlxLTcgOCAtNyAxOHQ3IDE4bDEwNiAxMDZxOCA3IDE4IDd0MTggLTd6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE0MTsiIGQ9Ik01OTYgMTE5MnExMjEgMCAyMzEuNSAtNDcuNXQxOTAgLTEyN3QxMjcgLTE5MHQ0Ny41IC0yMzEuNXQtNDcuNSAtMjMxLjV0LTEyNyAtMTkwLjV0LTE5MCAtMTI3dC0yMzEuNSAtNDd0LTIzMS41IDQ3dC0xOTAuNSAxMjd0LTEyNyAxOTAuNXQtNDcgMjMxLjV0NDcgMjMxLjV0MTI3IDE5MHQxOTAuNSAxMjd0MjMxLjUgNDcuNXpNNTk2IDEwMTBxLTExMiAwIC0yMDcuNSAtNTUuNXQtMTUxIC0xNTF0LTU1LjUgLTIwNy41dDU1LjUgLTIwNy41IHQxNTEgLTE1MXQyMDcuNSAtNTUuNXQyMDcuNSA1NS41dDE1MSAxNTF0NTUuNSAyMDcuNXQtNTUuNSAyMDcuNXQtMTUxIDE1MXQtMjA3LjUgNTUuNXpNNDU0LjUgOTA1cTIyLjUgMCAzOC41IC0xNnQxNiAtMzguNXQtMTYgLTM5dC0zOC41IC0xNi41dC0zOC41IDE2LjV0LTE2IDM5dDE2IDM4LjV0MzguNSAxNnpNNzU0LjUgOTA1cTIyLjUgMCAzOC41IC0xNnQxNiAtMzguNXQtMTYgLTM5dC0zOCAtMTYuNXEtMTQgMCAtMjkgMTBsLTU1IC0xNDUgcTE3IC0yMyAxNyAtNTFxMCAtMzYgLTI1LjUgLTYxLjV0LTYxLjUgLTI1LjV0LTYxLjUgMjUuNXQtMjUuNSA2MS41cTAgMzIgMjAuNSA1Ni41dDUxLjUgMjkuNWwxMjIgMTI2bDEgMXEtOSAxNCAtOSAyOHEwIDIzIDE2IDM5dDM4LjUgMTZ6TTM0NS41IDcwOXEyMi41IDAgMzguNSAtMTZ0MTYgLTM4LjV0LTE2IC0zOC41dC0zOC41IC0xNnQtMzguNSAxNnQtMTYgMzguNXQxNiAzOC41dDM4LjUgMTZ6TTg1NC41IDcwOXEyMi41IDAgMzguNSAtMTYgdDE2IC0zOC41dC0xNiAtMzguNXQtMzguNSAtMTZ0LTM4LjUgMTZ0LTE2IDM4LjV0MTYgMzguNXQzOC41IDE2eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNDI7IiBkPSJNNTQ2IDE3M2w0NjkgNDcwcTkxIDkxIDk5IDE5MnE3IDk4IC01MiAxNzUuNXQtMTU0IDk0LjVxLTIyIDQgLTQ3IDRxLTM0IDAgLTY2LjUgLTEwdC01Ni41IC0yM3QtNTUuNSAtMzh0LTQ4IC00MS41dC00OC41IC00Ny41cS0zNzYgLTM3NSAtMzkxIC0zOTBxLTMwIC0yNyAtNDUgLTQxLjV0LTM3LjUgLTQxdC0zMiAtNDYuNXQtMTYgLTQ3LjV0LTEuNSAtNTYuNXE5IC02MiA1My41IC05NXQ5OS41IC0zM3E3NCAwIDEyNSA1MWw1NDggNTQ4IHEzNiAzNiAyMCA3NXEtNyAxNiAtMjEuNSAyNnQtMzIuNSAxMHEtMjYgMCAtNTAgLTIzcS0xMyAtMTIgLTM5IC0zOGwtMzQxIC0zMzhxLTE1IC0xNSAtMzUuNSAtMTUuNXQtMzQuNSAxMy41dC0xNCAzNC41dDE0IDM0LjVxMzI3IDMzMyAzNjEgMzY3cTM1IDM1IDY3LjUgNTEuNXQ3OC41IDE2LjVxMTQgMCAyOSAtMXE0NCAtOCA3NC41IC0zNS41dDQzLjUgLTY4LjVxMTQgLTQ3IDIgLTk2LjV0LTQ3IC04NC41cS0xMiAtMTEgLTMyIC0zMiB0LTc5LjUgLTgxdC0xMTQuNSAtMTE1dC0xMjQuNSAtMTIzLjV0LTEyMyAtMTE5LjV0LTk2LjUgLTg5dC01NyAtNDVxLTU2IC0yNyAtMTIwIC0yN3EtNzAgMCAtMTI5IDMydC05MyA4OXEtNDggNzggLTM1IDE3M3Q4MSAxNjNsNTExIDUxMXE3MSA3MiAxMTEgOTZxOTEgNTUgMTk4IDU1cTgwIDAgMTUyIC0zM3E3OCAtMzYgMTI5LjUgLTEwM3Q2Ni41IC0xNTRxMTcgLTkzIC0xMSAtMTgzLjV0LTk0IC0xNTYuNWwtNDgyIC00NzYgcS0xNSAtMTUgLTM2IC0xNnQtMzcgMTR0LTE3LjUgMzR0MTQuNSAzNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTQzOyIgZD0iTTY0OSA5NDlxNDggNjggMTA5LjUgMTA0dDEyMS41IDM4LjV0MTE4LjUgLTIwdDEwMi41IC02NHQ3MSAtMTAwLjV0MjcgLTEyM3EwIC01NyAtMzMuNSAtMTE3LjV0LTk0IC0xMjQuNXQtMTI2LjUgLTEyNy41dC0xNTAgLTE1Mi41dC0xNDYgLTE3NHEtNjIgODUgLTE0NS41IDE3NHQtMTUwIDE1Mi41dC0xMjYuNSAxMjcuNXQtOTMuNSAxMjQuNXQtMzMuNSAxMTcuNXEwIDY0IDI4IDEyM3Q3MyAxMDAuNXQxMDQgNjR0MTE5IDIwIHQxMjAuNSAtMzguNXQxMDQuNSAtMTA0ek04OTYgOTcycS0zMyAwIC02NC41IC0xOXQtNTYuNSAtNDZ0LTQ3LjUgLTUzLjV0LTQzLjUgLTQ1LjV0LTM3LjUgLTE5dC0zNiAxOXQtNDAgNDUuNXQtNDMgNTMuNXQtNTQgNDZ0LTY1LjUgMTlxLTY3IDAgLTEyMi41IC01NS41dC01NS41IC0xMzIuNXEwIC0yMyAxMy41IC01MXQ0NiAtNjV0NTcuNSAtNjN0NzYgLTc1bDIyIC0yMnExNSAtMTQgNDQgLTQ0dDUwLjUgLTUxdDQ2IC00NHQ0MSAtMzV0MjMgLTEyIHQyMy41IDEydDQyLjUgMzZ0NDYgNDR0NTIuNSA1MnQ0NCA0M3E0IDQgMTIgMTNxNDMgNDEgNjMuNSA2MnQ1MiA1NXQ0NiA1NXQyNiA0NnQxMS41IDQ0cTAgNzkgLTUzIDEzMy41dC0xMjAgNTQuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTQ0OyIgZD0iTTc3Ni41IDEyMTRxOTMuNSAwIDE1OS41IC02NmwxNDEgLTE0MXE2NiAtNjYgNjYgLTE2MHEwIC00MiAtMjggLTk1LjV0LTYyIC04Ny41bC0yOSAtMjlxLTMxIDUzIC03NyA5OWwtMTggMThsOTUgOTVsLTI0NyAyNDhsLTM4OSAtMzg5bDIxMiAtMjEybC0xMDUgLTEwNmwtMTkgMThsLTE0MSAxNDFxLTY2IDY2IC02NiAxNTl0NjYgMTU5bDI4MyAyODNxNjUgNjYgMTU4LjUgNjZ6TTYwMCA3MDZsMTA1IDEwNXExMCAtOCAxOSAtMTdsMTQxIC0xNDEgcTY2IC02NiA2NiAtMTU5dC02NiAtMTU5bC0yODMgLTI4M3EtNjYgLTY2IC0xNTkgLTY2dC0xNTkgNjZsLTE0MSAxNDFxLTY2IDY2IC02NiAxNTkuNXQ2NiAxNTkuNWw1NSA1NXEyOSAtNTUgNzUgLTEwMmwxOCAtMTdsLTk1IC05NWwyNDcgLTI0OGwzODkgMzg5eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNDU7IiBkPSJNNjAzIDEyMDBxODUgMCAxNjIgLTE1dDEyNyAtMzh0NzkgLTQ4dDI5IC00NnYtOTUzcTAgLTQxIC0yOS41IC03MC41dC03MC41IC0yOS41aC02MDBxLTQxIDAgLTcwLjUgMjkuNXQtMjkuNSA3MC41djk1M3EwIDIxIDMwIDQ2LjV0ODEgNDh0MTI5IDM3LjV0MTYzIDE1ek0zMDAgMTAwMHYtNzAwaDYwMHY3MDBoLTYwMHpNNjAwIDI1NHEtNDMgMCAtNzMuNSAtMzAuNXQtMzAuNSAtNzMuNXQzMC41IC03My41dDczLjUgLTMwLjV0NzMuNSAzMC41IHQzMC41IDczLjV0LTMwLjUgNzMuNXQtNzMuNSAzMC41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNDY7IiBkPSJNOTAyIDExODVsMjgzIC0yODJxMTUgLTE1IDE1IC0zNnQtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNXQtMzUgMTVsLTM2IDM1bC0yNzkgLTI2N3YtMzAwbC0yMTIgMjEwbC0zMDggLTMwN2wtMjgwIC0yMDNsMjAzIDI4MGwzMDcgMzA4bC0yMTAgMjEyaDMwMGwyNjcgMjc5bC0zNSAzNnEtMTUgMTQgLTE1IDM1dDE0LjUgMzUuNXQzNS41IDE0LjV0MzUgLTE1eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNDg7IiBkPSJNNzAwIDEyNDh2LTc4cTM4IC01IDcyLjUgLTE0LjV0NzUuNSAtMzEuNXQ3MSAtNTMuNXQ1MiAtODR0MjQgLTExOC41aC0xNTlxLTQgMzYgLTEwLjUgNTl0LTIxIDQ1dC00MCAzNS41dC02NC41IDIwLjV2LTMwN2w2NCAtMTNxMzQgLTcgNjQgLTE2LjV0NzAgLTMydDY3LjUgLTUyLjV0NDcuNSAtODB0MjAgLTExMnEwIC0xMzkgLTg5IC0yMjR0LTI0NCAtOTd2LTc3aC0xMDB2NzlxLTE1MCAxNiAtMjM3IDEwM3EtNDAgNDAgLTUyLjUgOTMuNSB0LTE1LjUgMTM5LjVoMTM5cTUgLTc3IDQ4LjUgLTEyNnQxMTcuNSAtNjV2MzM1bC0yNyA4cS00NiAxNCAtNzkgMjYuNXQtNzIgMzZ0LTYzIDUydC00MCA3Mi41dC0xNiA5OHEwIDcwIDI1IDEyNnQ2Ny41IDkydDk0LjUgNTd0MTEwIDI3djc3aDEwMHpNNjAwIDc1NHYyNzRxLTI5IC00IC01MCAtMTF0LTQyIC0yMS41dC0zMS41IC00MS41dC0xMC41IC02NXEwIC0yOSA3IC01MC41dDE2LjUgLTM0dDI4LjUgLTIyLjV0MzEuNSAtMTR0MzcuNSAtMTAgcTkgLTMgMTMgLTR6TTcwMCA1NDd2LTMxMHEyMiAyIDQyLjUgNi41dDQ1IDE1LjV0NDEuNSAyN3QyOSA0MnQxMiA1OS41dC0xMi41IDU5LjV0LTM4IDQ0LjV0LTUzIDMxdC02Ni41IDI0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE0OTsiIGQ9Ik01NjEgMTE5N3E4NCAwIDE2MC41IC00MHQxMjMuNSAtMTA5LjV0NDcgLTE0Ny41aC0xNTNxMCA0MCAtMTkuNSA3MS41dC00OS41IDQ4LjV0LTU5LjUgMjZ0LTU1LjUgOXEtMzcgMCAtNzkgLTE0LjV0LTYyIC0zNS41cS00MSAtNDQgLTQxIC0xMDFxMCAtMjYgMTMuNSAtNjN0MjYuNSAtNjF0MzcgLTY2cTYgLTkgOSAtMTRoMjQxdi0xMDBoLTE5N3E4IC01MCAtMi41IC0xMTV0LTMxLjUgLTk1cS00NSAtNjIgLTk5IC0xMTIgcTM0IDEwIDgzIDE3LjV0NzEgNy41cTMyIDEgMTAyIC0xNnQxMDQgLTE3cTgzIDAgMTM2IDMwbDUwIC0xNDdxLTMxIC0xOSAtNTggLTMwLjV0LTU1IC0xNS41dC00MiAtNC41dC00NiAtMC41cS0yMyAwIC03NiAxN3QtMTExIDMyLjV0LTk2IDExLjVxLTM5IC0zIC04MiAtMTZ0LTY3IC0yNWwtMjMgLTExbC01NSAxNDVxNCAzIDE2IDExdDE1LjUgMTAuNXQxMyA5dDE1LjUgMTJ0MTQuNSAxNHQxNy41IDE4LjVxNDggNTUgNTQgMTI2LjUgdC0zMCAxNDIuNWgtMjIxdjEwMGgxNjZxLTIzIDQ3IC00NCAxMDRxLTcgMjAgLTEyIDQxLjV0LTYgNTUuNXQ2IDY2LjV0MjkuNSA3MC41dDU4LjUgNzFxOTcgODggMjYzIDg4eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNTA7IiBkPSJNNDAwIDMwMGgxNTBxMjEgMCAyNSAtMTF0LTEwIC0yNWwtMjMwIC0yNTBxLTE0IC0xNSAtMzUgLTE1dC0zNSAxNWwtMjMwIDI1MHEtMTQgMTQgLTEwIDI1dDI1IDExaDE1MHY5MDBoMjAwdi05MDB6TTkzNSAxMTg0bDIzMCAtMjQ5cTE0IC0xNCAxMCAtMjQuNXQtMjUgLTEwLjVoLTE1MHYtOTAwaC0yMDB2OTAwaC0xNTBxLTIxIDAgLTI1IDEwLjV0MTAgMjQuNWwyMzAgMjQ5cTE0IDE1IDM1IDE1dDM1IC0xNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTUxOyIgZD0iTTEwMDAgNzAwaC0xMDB2MTAwaC0xMDB2LTEwMGgtMTAwdjUwMGgzMDB2LTUwMHpNNDAwIDMwMGgxNTBxMjEgMCAyNSAtMTF0LTEwIC0yNWwtMjMwIC0yNTBxLTE0IC0xNSAtMzUgLTE1dC0zNSAxNWwtMjMwIDI1MHEtMTQgMTQgLTEwIDI1dDI1IDExaDE1MHY5MDBoMjAwdi05MDB6TTgwMSAxMTAwdi0yMDBoMTAwdjIwMGgtMTAwek0xMDAwIDM1MGwtMjAwIC0yNTBoMjAwdi0xMDBoLTMwMHYxNTBsMjAwIDI1MGgtMjAwdjEwMGgzMDB2LTE1MHogIiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE1MjsiIGQ9Ik00MDAgMzAwaDE1MHEyMSAwIDI1IC0xMXQtMTAgLTI1bC0yMzAgLTI1MHEtMTQgLTE1IC0zNSAtMTV0LTM1IDE1bC0yMzAgMjUwcS0xNCAxNCAtMTAgMjV0MjUgMTFoMTUwdjkwMGgyMDB2LTkwMHpNMTAwMCAxMDUwbC0yMDAgLTI1MGgyMDB2LTEwMGgtMzAwdjE1MGwyMDAgMjUwaC0yMDB2MTAwaDMwMHYtMTUwek0xMDAwIDBoLTEwMHYxMDBoLTEwMHYtMTAwaC0xMDB2NTAwaDMwMHYtNTAwek04MDEgNDAwdi0yMDBoMTAwdjIwMGgtMTAweiAiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTUzOyIgZD0iTTQwMCAzMDBoMTUwcTIxIDAgMjUgLTExdC0xMCAtMjVsLTIzMCAtMjUwcS0xNCAtMTUgLTM1IC0xNXQtMzUgMTVsLTIzMCAyNTBxLTE0IDE0IC0xMCAyNXQyNSAxMWgxNTB2OTAwaDIwMHYtOTAwek0xMDAwIDcwMGgtMTAwdjQwMGgtMTAwdjEwMGgyMDB2LTUwMHpNMTEwMCAwaC0xMDB2MTAwaC0yMDB2NDAwaDMwMHYtNTAwek05MDEgNDAwdi0yMDBoMTAwdjIwMGgtMTAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNTQ7IiBkPSJNNDAwIDMwMGgxNTBxMjEgMCAyNSAtMTF0LTEwIC0yNWwtMjMwIC0yNTBxLTE0IC0xNSAtMzUgLTE1dC0zNSAxNWwtMjMwIDI1MHEtMTQgMTQgLTEwIDI1dDI1IDExaDE1MHY5MDBoMjAwdi05MDB6TTExMDAgNzAwaC0xMDB2MTAwaC0yMDB2NDAwaDMwMHYtNTAwek05MDEgMTEwMHYtMjAwaDEwMHYyMDBoLTEwMHpNMTAwMCAwaC0xMDB2NDAwaC0xMDB2MTAwaDIwMHYtNTAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNTU7IiBkPSJNNDAwIDMwMGgxNTBxMjEgMCAyNSAtMTF0LTEwIC0yNWwtMjMwIC0yNTBxLTE0IC0xNSAtMzUgLTE1dC0zNSAxNWwtMjMwIDI1MHEtMTQgMTQgLTEwIDI1dDI1IDExaDE1MHY5MDBoMjAwdi05MDB6TTkwMCAxMDAwaC0yMDB2MjAwaDIwMHYtMjAwek0xMDAwIDcwMGgtMzAwdjIwMGgzMDB2LTIwMHpNMTEwMCA0MDBoLTQwMHYyMDBoNDAwdi0yMDB6TTEyMDAgMTAwaC01MDB2MjAwaDUwMHYtMjAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNTY7IiBkPSJNNDAwIDMwMGgxNTBxMjEgMCAyNSAtMTF0LTEwIC0yNWwtMjMwIC0yNTBxLTE0IC0xNSAtMzUgLTE1dC0zNSAxNWwtMjMwIDI1MHEtMTQgMTQgLTEwIDI1dDI1IDExaDE1MHY5MDBoMjAwdi05MDB6TTEyMDAgMTAwMGgtNTAwdjIwMGg1MDB2LTIwMHpNMTEwMCA3MDBoLTQwMHYyMDBoNDAwdi0yMDB6TTEwMDAgNDAwaC0zMDB2MjAwaDMwMHYtMjAwek05MDAgMTAwaC0yMDB2MjAwaDIwMHYtMjAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNTc7IiBkPSJNMzUwIDExMDBoNDAwcTE2MiAwIDI1NiAtOTMuNXQ5NCAtMjU2LjV2LTQwMHEwIC0xNjUgLTkzLjUgLTI1Ny41dC0yNTYuNSAtOTIuNWgtNDAwcS0xNjUgMCAtMjU3LjUgOTIuNXQtOTIuNSAyNTcuNXY0MDBxMCAxNjUgOTIuNSAyNTcuNXQyNTcuNSA5Mi41ek04MDAgOTAwaC01MDBxLTQxIDAgLTcwLjUgLTI5LjV0LTI5LjUgLTcwLjV2LTUwMHEwIC00MSAyOS41IC03MC41dDcwLjUgLTI5LjVoNTAwcTQxIDAgNzAuNSAyOS41dDI5LjUgNzAuNSB2NTAwcTAgNDEgLTI5LjUgNzAuNXQtNzAuNSAyOS41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNTg7IiBkPSJNMzUwIDExMDBoNDAwcTE2NSAwIDI1Ny41IC05Mi41dDkyLjUgLTI1Ny41di00MDBxMCAtMTY1IC05Mi41IC0yNTcuNXQtMjU3LjUgLTkyLjVoLTQwMHEtMTYzIDAgLTI1Ni41IDkyLjV0LTkzLjUgMjU3LjV2NDAwcTAgMTYzIDk0IDI1Ni41dDI1NiA5My41ek04MDAgOTAwaC01MDBxLTQxIDAgLTcwLjUgLTI5LjV0LTI5LjUgLTcwLjV2LTUwMHEwIC00MSAyOS41IC03MC41dDcwLjUgLTI5LjVoNTAwcTQxIDAgNzAuNSAyOS41dDI5LjUgNzAuNSB2NTAwcTAgNDEgLTI5LjUgNzAuNXQtNzAuNSAyOS41ek00NDAgNzcwbDI1MyAtMTkwcTE3IC0xMiAxNyAtMzB0LTE3IC0zMGwtMjUzIC0xOTBxLTE2IC0xMiAtMjggLTYuNXQtMTIgMjYuNXY0MDBxMCAyMSAxMiAyNi41dDI4IC02LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE1OTsiIGQ9Ik0zNTAgMTEwMGg0MDBxMTYzIDAgMjU2LjUgLTk0dDkzLjUgLTI1NnYtNDAwcTAgLTE2NSAtOTIuNSAtMjU3LjV0LTI1Ny41IC05Mi41aC00MDBxLTE2NSAwIC0yNTcuNSA5Mi41dC05Mi41IDI1Ny41djQwMHEwIDE2MyA5Mi41IDI1Ni41dDI1Ny41IDkzLjV6TTgwMCA5MDBoLTUwMHEtNDEgMCAtNzAuNSAtMjkuNXQtMjkuNSAtNzAuNXYtNTAwcTAgLTQxIDI5LjUgLTcwLjV0NzAuNSAtMjkuNWg1MDBxNDEgMCA3MC41IDI5LjV0MjkuNSA3MC41IHY1MDBxMCA0MSAtMjkuNSA3MC41dC03MC41IDI5LjV6TTM1MCA3MDBoNDAwcTIxIDAgMjYuNSAtMTJ0LTYuNSAtMjhsLTE5MCAtMjUzcS0xMiAtMTcgLTMwIC0xN3QtMzAgMTdsLTE5MCAyNTNxLTEyIDE2IC02LjUgMjh0MjYuNSAxMnoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTYwOyIgZD0iTTM1MCAxMTAwaDQwMHExNjUgMCAyNTcuNSAtOTIuNXQ5Mi41IC0yNTcuNXYtNDAwcTAgLTE2MyAtOTIuNSAtMjU2LjV0LTI1Ny41IC05My41aC00MDBxLTE2MyAwIC0yNTYuNSA5NHQtOTMuNSAyNTZ2NDAwcTAgMTY1IDkyLjUgMjU3LjV0MjU3LjUgOTIuNXpNODAwIDkwMGgtNTAwcS00MSAwIC03MC41IC0yOS41dC0yOS41IC03MC41di01MDBxMCAtNDEgMjkuNSAtNzAuNXQ3MC41IC0yOS41aDUwMHE0MSAwIDcwLjUgMjkuNXQyOS41IDcwLjUgdjUwMHEwIDQxIC0yOS41IDcwLjV0LTcwLjUgMjkuNXpNNTgwIDY5M2wxOTAgLTI1M3ExMiAtMTYgNi41IC0yOHQtMjYuNSAtMTJoLTQwMHEtMjEgMCAtMjYuNSAxMnQ2LjUgMjhsMTkwIDI1M3ExMiAxNyAzMCAxN3QzMCAtMTd6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE2MTsiIGQ9Ik01NTAgMTEwMGg0MDBxMTY1IDAgMjU3LjUgLTkyLjV0OTIuNSAtMjU3LjV2LTQwMHEwIC0xNjUgLTkyLjUgLTI1Ny41dC0yNTcuNSAtOTIuNWgtNDAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYxMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41aDQ1MHE0MSAwIDcwLjUgMjkuNXQyOS41IDcwLjV2NTAwcTAgNDEgLTI5LjUgNzAuNXQtNzAuNSAyOS41aC00NTBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMCBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek0zMzggODY3bDMyNCAtMjg0cTE2IC0xNCAxNiAtMzN0LTE2IC0zM2wtMzI0IC0yODRxLTE2IC0xNCAtMjcgLTl0LTExIDI2djE1MGgtMjUwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYyMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41aDI1MHYxNTBxMCAyMSAxMSAyNnQyNyAtOXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTYyOyIgZD0iTTc5MyAxMTgybDkgLTlxOCAtMTAgNSAtMjdxLTMgLTExIC03OSAtMjI1LjV0LTc4IC0yMjEuNWwzMDAgMXEyNCAwIDMyLjUgLTE3LjV0LTUuNSAtMzUuNXEtMSAwIC0xMzMuNSAtMTU1dC0yNjcgLTMxMi41dC0xMzguNSAtMTYyLjVxLTEyIC0xNSAtMjYgLTE1aC05bC05IDhxLTkgMTEgLTQgMzJxMiA5IDQyIDEyMy41dDc5IDIyNC41bDM5IDExMGgtMzAycS0yMyAwIC0zMSAxOXEtMTAgMjEgNiA0MXE3NSA4NiAyMDkuNSAyMzcuNSB0MjI4IDI1N3Q5OC41IDExMS41cTkgMTYgMjUgMTZoOXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTYzOyIgZD0iTTM1MCAxMTAwaDQwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC00NTBxLTQxIDAgLTcwLjUgLTI5LjV0LTI5LjUgLTcwLjV2LTUwMHEwIC00MSAyOS41IC03MC41dDcwLjUgLTI5LjVoNDUwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0xMDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTQwMHEtMTY1IDAgLTI1Ny41IDkyLjV0LTkyLjUgMjU3LjV2NDAwIHEwIDE2NSA5Mi41IDI1Ny41dDI1Ny41IDkyLjV6TTkzOCA4NjdsMzI0IC0yODRxMTYgLTE0IDE2IC0zM3QtMTYgLTMzbC0zMjQgLTI4NHEtMTYgLTE0IC0yNyAtOXQtMTEgMjZ2MTUwaC0yNTBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djIwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjVoMjUwdjE1MHEwIDIxIDExIDI2dDI3IC05eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNjQ7IiBkPSJNNzUwIDEyMDBoNDAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di00MDBxMCAtMjEgLTEwLjUgLTI1dC0yNC41IDEwbC0xMDkgMTA5bC0zMTIgLTMxMnEtMTUgLTE1IC0zNS41IC0xNXQtMzUuNSAxNWwtMTQxIDE0MXEtMTUgMTUgLTE1IDM1LjV0MTUgMzUuNWwzMTIgMzEybC0xMDkgMTA5cS0xNCAxNCAtMTAgMjQuNXQyNSAxMC41ek00NTYgOTAwaC0xNTZxLTQxIDAgLTcwLjUgLTI5LjV0LTI5LjUgLTcwLjV2LTUwMCBxMCAtNDEgMjkuNSAtNzAuNXQ3MC41IC0yOS41aDUwMHE0MSAwIDcwLjUgMjkuNXQyOS41IDcwLjV2MTQ4bDIwMCAyMDB2LTI5OHEwIC0xNjUgLTkzLjUgLTI1Ny41dC0yNTYuNSAtOTIuNWgtNDAwcS0xNjUgMCAtMjU3LjUgOTIuNXQtOTIuNSAyNTcuNXY0MDBxMCAxNjUgOTIuNSAyNTcuNXQyNTcuNSA5Mi41aDMwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTY1OyIgZD0iTTYwMCAxMTg2cTExOSAwIDIyNy41IC00Ni41dDE4NyAtMTI1dDEyNSAtMTg3dDQ2LjUgLTIyNy41dC00Ni41IC0yMjcuNXQtMTI1IC0xODd0LTE4NyAtMTI1dC0yMjcuNSAtNDYuNXQtMjI3LjUgNDYuNXQtMTg3IDEyNXQtMTI1IDE4N3QtNDYuNSAyMjcuNXQ0Ni41IDIyNy41dDEyNSAxODd0MTg3IDEyNXQyMjcuNSA0Ni41ek02MDAgMTAyMnEtMTE1IDAgLTIxMiAtNTYuNXQtMTUzLjUgLTE1My41dC01Ni41IC0yMTJ0NTYuNSAtMjEyIHQxNTMuNSAtMTUzLjV0MjEyIC01Ni41dDIxMiA1Ni41dDE1My41IDE1My41dDU2LjUgMjEydC01Ni41IDIxMnQtMTUzLjUgMTUzLjV0LTIxMiA1Ni41ek02MDAgNzk0cTgwIDAgMTM3IC01N3Q1NyAtMTM3dC01NyAtMTM3dC0xMzcgLTU3dC0xMzcgNTd0LTU3IDEzN3Q1NyAxMzd0MTM3IDU3eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNjY7IiBkPSJNNDUwIDEyMDBoMjAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0zNTBoMjQ1cTIwIDAgMjUgLTExdC05IC0yNmwtMzgzIC00MjZxLTE0IC0xNSAtMzMuNSAtMTV0LTMyLjUgMTVsLTM3OSA0MjZxLTEzIDE1IC04LjUgMjZ0MjUuNSAxMWgyNTB2MzUwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNNTAgMzAwaDEwMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTI1MGgtMTEwMHYyNTBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41eiBNOTAwIDIwMHYtNTBoMTAwdjUwaC0xMDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE2NzsiIGQ9Ik01ODMgMTE4MmwzNzggLTQzNXExNCAtMTUgOSAtMzF0LTI2IC0xNmgtMjQ0di0yNTBxMCAtMjAgLTE3IC0zNXQtMzkgLTE1aC0yMDBxLTIwIDAgLTMyIDE0LjV0LTEyIDM1LjV2MjUwaC0yNTBxLTIwIDAgLTI1LjUgMTYuNXQ4LjUgMzEuNWwzODMgNDMxcTE0IDE2IDMzLjUgMTd0MzMuNSAtMTR6TTUwIDMwMGgxMDAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0yNTBoLTExMDB2MjUwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXogTTkwMCAyMDB2LTUwaDEwMHY1MGgtMTAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNjg7IiBkPSJNMzk2IDcyM2wzNjkgMzY5cTcgNyAxNy41IDd0MTcuNSAtN2wxMzkgLTEzOXE3IC04IDcgLTE4LjV0LTcgLTE3LjVsLTUyNSAtNTI1cS03IC04IC0xNy41IC04dC0xNy41IDhsLTI5MiAyOTFxLTcgOCAtNyAxOHQ3IDE4bDEzOSAxMzlxOCA3IDE4LjUgN3QxNy41IC03ek01MCAzMDBoMTAwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMjUwaC0xMTAwdjI1MHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTkwMCAyMDB2LTUwaDEwMHY1MCBoLTEwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTY5OyIgZD0iTTEzNSAxMDIzbDE0MiAxNDJxMTQgMTQgMzUgMTR0MzUgLTE0bDc3IC03N2wtMjEyIC0yMTJsLTc3IDc2cS0xNCAxNSAtMTQgMzZ0MTQgMzV6TTY1NSA4NTVsMjEwIDIxMHExNCAxNCAyNC41IDEwdDEwLjUgLTI1bC0yIC01OTlxLTEgLTIwIC0xNS41IC0zNXQtMzUuNSAtMTVsLTU5NyAtMXEtMjEgMCAtMjUgMTAuNXQxMCAyNC41bDIwOCAyMDhsLTE1NCAxNTVsMjEyIDIxMnpNNTAgMzAwaDEwMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjUgdi0yNTBoLTExMDB2MjUwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNOTAwIDIwMHYtNTBoMTAwdjUwaC0xMDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE3MDsiIGQ9Ik0zNTAgMTIwMGw1OTkgLTJxMjAgLTEgMzUgLTE1LjV0MTUgLTM1LjVsMSAtNTk3cTAgLTIxIC0xMC41IC0yNXQtMjQuNSAxMGwtMjA4IDIwOGwtMTU1IC0xNTRsLTIxMiAyMTJsMTU1IDE1NGwtMjEwIDIxMHEtMTQgMTQgLTEwIDI0LjV0MjUgMTAuNXpNNTI0IDUxMmwtNzYgLTc3cS0xNSAtMTQgLTM2IC0xNHQtMzUgMTRsLTE0MiAxNDJxLTE0IDE0IC0xNCAzNXQxNCAzNWw3NyA3N3pNNTAgMzAwaDEwMDBxMjEgMCAzNS41IC0xNC41IHQxNC41IC0zNS41di0yNTBoLTExMDB2MjUwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNOTAwIDIwMHYtNTBoMTAwdjUwaC0xMDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE3MTsiIGQ9Ik0xMjAwIDEwM2wtNDgzIDI3NmwtMzE0IC0zOTl2NDIzaC0zOTlsMTE5NiA3OTZ2LTEwOTZ6TTQ4MyA0MjR2LTIzMGw2ODMgOTUzeiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNzI7IiBkPSJNMTEwMCAxMDAwdi04NTBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTE1MHY0MDBoLTcwMHYtNDAwaC0xNTBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMDBxMCAyMCAxNC41IDM1dDM1LjUgMTVoMjUwdi0zMDBoNTAwdjMwMGgxMDB6TTcwMCAxMDAwaC0xMDB2MjAwaDEwMHYtMjAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNzM7IiBkPSJNMTEwMCAxMDAwbC0yIC0xNDlsLTI5OSAtMjk5bC05NSA5NXEtOSA5IC0yMS41IDl0LTIxLjUgLTlsLTE0OSAtMTQ3aC0zMTJ2LTQwMGgtMTUwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYxMDAwcTAgMjAgMTQuNSAzNXQzNS41IDE1aDI1MHYtMzAwaDUwMHYzMDBoMTAwek03MDAgMTAwMGgtMTAwdjIwMGgxMDB2LTIwMHpNMTEzMiA2MzhsMTA2IC0xMDZxNyAtNyA3IC0xNy41dC03IC0xNy41bC00MjAgLTQyMXEtOCAtNyAtMTggLTcgdC0xOCA3bC0yMDIgMjAzcS04IDcgLTggMTcuNXQ4IDE3LjVsMTA2IDEwNnE3IDggMTcuNSA4dDE3LjUgLThsNzkgLTc5bDI5NyAyOTdxNyA3IDE3LjUgN3QxNy41IC03eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNzQ7IiBkPSJNMTEwMCAxMDAwdi0yNjlsLTEwMyAtMTAzbC0xMzQgMTM0cS0xNSAxNSAtMzMuNSAxNi41dC0zNC41IC0xMi41bC0yNjYgLTI2NmgtMzI5di00MDBoLTE1MHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MTAwMHEwIDIwIDE0LjUgMzV0MzUuNSAxNWgyNTB2LTMwMGg1MDB2MzAwaDEwMHpNNzAwIDEwMDBoLTEwMHYyMDBoMTAwdi0yMDB6TTEyMDIgNTcybDcwIC03MHExNSAtMTUgMTUgLTM1LjV0LTE1IC0zNS41bC0xMzEgLTEzMSBsMTMxIC0xMzFxMTUgLTE1IDE1IC0zNS41dC0xNSAtMzUuNWwtNzAgLTcwcS0xNSAtMTUgLTM1LjUgLTE1dC0zNS41IDE1bC0xMzEgMTMxbC0xMzEgLTEzMXEtMTUgLTE1IC0zNS41IC0xNXQtMzUuNSAxNWwtNzAgNzBxLTE1IDE1IC0xNSAzNS41dDE1IDM1LjVsMTMxIDEzMWwtMTMxIDEzMXEtMTUgMTUgLTE1IDM1LjV0MTUgMzUuNWw3MCA3MHExNSAxNSAzNS41IDE1dDM1LjUgLTE1bDEzMSAtMTMxbDEzMSAxMzFxMTUgMTUgMzUuNSAxNSB0MzUuNSAtMTV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE3NTsiIGQ9Ik0xMTAwIDEwMDB2LTMwMGgtMzUwcS0yMSAwIC0zNS41IC0xNC41dC0xNC41IC0zNS41di0xNTBoLTUwMHYtNDAwaC0xNTBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMDBxMCAyMCAxNC41IDM1dDM1LjUgMTVoMjUwdi0zMDBoNTAwdjMwMGgxMDB6TTcwMCAxMDAwaC0xMDB2MjAwaDEwMHYtMjAwek04NTAgNjAwaDEwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMjUwaDE1MHEyMSAwIDI1IC0xMC41dC0xMCAtMjQuNSBsLTIzMCAtMjMwcS0xNCAtMTQgLTM1IC0xNHQtMzUgMTRsLTIzMCAyMzBxLTE0IDE0IC0xMCAyNC41dDI1IDEwLjVoMTUwdjI1MHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE3NjsiIGQ9Ik0xMTAwIDEwMDB2LTQwMGwtMTY1IDE2NXEtMTQgMTUgLTM1IDE1dC0zNSAtMTVsLTI2MyAtMjY1aC00MDJ2LTQwMGgtMTUwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYxMDAwcTAgMjAgMTQuNSAzNXQzNS41IDE1aDI1MHYtMzAwaDUwMHYzMDBoMTAwek03MDAgMTAwMGgtMTAwdjIwMGgxMDB2LTIwMHpNOTM1IDU2NWwyMzAgLTIyOXExNCAtMTUgMTAgLTI1LjV0LTI1IC0xMC41aC0xNTB2LTI1MHEwIC0yMCAtMTQuNSAtMzUgdC0zNS41IC0xNWgtMTAwcS0yMSAwIC0zNS41IDE1dC0xNC41IDM1djI1MGgtMTUwcS0yMSAwIC0yNSAxMC41dDEwIDI1LjVsMjMwIDIyOXExNCAxNSAzNSAxNXQzNSAtMTV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE3NzsiIGQ9Ik01MCAxMTAwaDExMDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTE1MGgtMTIwMHYxNTBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek0xMjAwIDgwMHYtNTUwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xMTAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXY1NTBoMTIwMHpNMTAwIDUwMHYtMjAwaDQwMHYyMDBoLTQwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTc4OyIgZD0iTTkzNSAxMTY1bDI0OCAtMjMwcTE0IC0xNCAxNCAtMzV0LTE0IC0zNWwtMjQ4IC0yMzBxLTE0IC0xNCAtMjQuNSAtMTB0LTEwLjUgMjV2MTUwaC00MDB2MjAwaDQwMHYxNTBxMCAyMSAxMC41IDI1dDI0LjUgLTEwek0yMDAgODAwaC01MHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MTAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNWg1MHYtMjAwek00MDAgODAwaC0xMDB2MjAwaDEwMHYtMjAwek0xOCA0MzVsMjQ3IDIzMCBxMTQgMTQgMjQuNSAxMHQxMC41IC0yNXYtMTUwaDQwMHYtMjAwaC00MDB2LTE1MHEwIC0yMSAtMTAuNSAtMjV0LTI0LjUgMTBsLTI0NyAyMzBxLTE1IDE0IC0xNSAzNXQxNSAzNXpNOTAwIDMwMGgtMTAwdjIwMGgxMDB2LTIwMHpNMTAwMCA1MDBoNTFxMjAgMCAzNC41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzQuNSAtMTQuNWgtNTF2MjAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxNzk7IiBkPSJNODYyIDEwNzNsMjc2IDExNnEyNSAxOCA0My41IDh0MTguNSAtNDF2LTExMDZxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTIwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2Mzk3cS00IDEgLTExIDV0LTI0IDE3LjV0LTMwIDI5dC0yNCA0MnQtMTEgNTYuNXYzNTlxMCAzMSAxOC41IDY1dDQzLjUgNTJ6TTU1MCAxMjAwcTIyIDAgMzQuNSAtMTIuNXQxNC41IC0yNC41bDEgLTEzdi00NTBxMCAtMjggLTEwLjUgLTU5LjUgdC0yNSAtNTZ0LTI5IC00NXQtMjUuNSAtMzEuNWwtMTAgLTExdi00NDdxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTIwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2NDQ3cS00IDQgLTExIDExLjV0LTI0IDMwLjV0LTMwIDQ2dC0yNCA1NXQtMTEgNjB2NDUwcTAgMiAwLjUgNS41dDQgMTJ0OC41IDE1dDE0LjUgMTJ0MjIuNSA1LjVxMjAgMCAzMi41IC0xMi41dDE0LjUgLTI0LjVsMyAtMTN2LTM1MGgxMDB2MzUwdjUuNXQyLjUgMTIgdDcgMTV0MTUgMTJ0MjUuNSA1LjVxMjMgMCAzNS41IC0xMi41dDEzLjUgLTI0LjVsMSAtMTN2LTM1MGgxMDB2MzUwcTAgMiAwLjUgNS41dDMgMTJ0NyAxNXQxNSAxMnQyNC41IDUuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTgwOyIgZD0iTTEyMDAgMTEwMHYtNTZxLTQgMCAtMTEgLTAuNXQtMjQgLTN0LTMwIC03LjV0LTI0IC0xNXQtMTEgLTI0di04ODhxMCAtMjIgMjUgLTM0LjV0NTAgLTEzLjVsMjUgLTJ2LTU2aC00MDB2NTZxNzUgMCA4Ny41IDYuNXQxMi41IDQzLjV2Mzk0aC01MDB2LTM5NHEwIC0zNyAxMi41IC00My41dDg3LjUgLTYuNXYtNTZoLTQwMHY1NnE0IDAgMTEgMC41dDI0IDN0MzAgNy41dDI0IDE1dDExIDI0djg4OHEwIDIyIC0yNSAzNC41dC01MCAxMy41IGwtMjUgMnY1Nmg0MDB2LTU2cS03NSAwIC04Ny41IC02LjV0LTEyLjUgLTQzLjV2LTM5NGg1MDB2Mzk0cTAgMzcgLTEyLjUgNDMuNXQtODcuNSA2LjV2NTZoNDAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxODE7IiBkPSJNNjc1IDEwMDBoMzc1cTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0xNTBoLTEwNWwtMjk1IC05OHY5OGwtMjAwIDIwMGgtNDAwbDEwMCAxMDBoMzc1ek0xMDAgOTAwaDMwMHE0MSAwIDcwLjUgLTI5LjV0MjkuNSAtNzAuNXYtNTAwcTAgLTQxIC0yOS41IC03MC41dC03MC41IC0yOS41aC0zMDBxLTQxIDAgLTcwLjUgMjkuNXQtMjkuNSA3MC41djUwMHEwIDQxIDI5LjUgNzAuNXQ3MC41IDI5LjV6TTEwMCA4MDB2LTIwMGgzMDB2MjAwIGgtMzAwek0xMTAwIDUzNWwtNDAwIC0xMzN2MTYzbDQwMCAxMzN2LTE2M3pNMTAwIDUwMHYtMjAwaDMwMHYyMDBoLTMwMHpNMTEwMCAzOTh2LTI0OHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMzc1bC0xMDAgLTEwMGgtMzc1bC0xMDAgMTAwaDQwMGwyMDAgMjAwaDEwNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTgyOyIgZD0iTTE3IDEwMDdsMTYyIDE2MnExNyAxNyA0MCAxNHQzNyAtMjJsMTM5IC0xOTRxMTQgLTIwIDExIC00NC41dC0yMCAtNDEuNWwtMTE5IC0xMThxMTAyIC0xNDIgMjI4IC0yNjh0MjY3IC0yMjdsMTE5IDExOHExNyAxNyA0Mi41IDE5dDQ0LjUgLTEybDE5MiAtMTM2cTE5IC0xNCAyMi41IC0zNy41dC0xMy41IC00MC41bC0xNjMgLTE2MnEtMyAtMSAtOS41IC0xdC0yOS41IDJ0LTQ3LjUgNnQtNjIuNSAxNC41dC03Ny41IDI2LjV0LTkwIDQyLjUgdC0xMDEuNSA2MHQtMTExIDgzdC0xMTkgMTA4LjVxLTc0IDc0IC0xMzMuNSAxNTAuNXQtOTQuNSAxMzguNXQtNjAgMTE5LjV0LTM0LjUgMTAwdC0xNSA3NC41dC00LjUgNDh6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE4MzsiIGQ9Ik02MDAgMTEwMHE5MiAwIDE3NSAtMTAuNXQxNDEuNSAtMjd0MTA4LjUgLTM2LjV0ODEuNSAtNDB0NTMuNSAtMzd0MzEgLTI3bDkgLTEwdi0yMDBxMCAtMjEgLTE0LjUgLTMzdC0zNC41IC05bC0yMDIgMzRxLTIwIDMgLTM0LjUgMjB0LTE0LjUgMzh2MTQ2cS0xNDEgMjQgLTMwMCAyNHQtMzAwIC0yNHYtMTQ2cTAgLTIxIC0xNC41IC0zOHQtMzQuNSAtMjBsLTIwMiAtMzRxLTIwIC0zIC0zNC41IDl0LTE0LjUgMzN2MjAwcTMgNCA5LjUgMTAuNSB0MzEgMjZ0NTQgMzcuNXQ4MC41IDM5LjV0MTA5IDM3LjV0MTQxIDI2LjV0MTc1IDEwLjV6TTYwMCA3OTVxNTYgMCA5NyAtOS41dDYwIC0yMy41dDMwIC0yOHQxMiAtMjRsMSAtMTB2LTUwbDM2NSAtMzAzcTE0IC0xNSAyNC41IC00MHQxMC41IC00NXYtMjEycTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xMTAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYyMTJxMCAyMCAxMC41IDQ1dDI0LjUgNDBsMzY1IDMwM3Y1MCBxMCA0IDEgMTAuNXQxMiAyM3QzMCAyOXQ2MCAyMi41dDk3IDEweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxODQ7IiBkPSJNMTEwMCA3MDBsLTIwMCAtMjAwaC02MDBsLTIwMCAyMDB2NTAwaDIwMHYtMjAwaDIwMHYyMDBoMjAwdi0yMDBoMjAwdjIwMGgyMDB2LTUwMHpNMjUwIDQwMGg3MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV0LTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTEybDEzNyAtMTAwaC05NTBsMTM3IDEwMGgtMTJxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41dDE0LjUgMzUuNXQzNS41IDE0LjV6TTUwIDEwMGgxMTAwcTIxIDAgMzUuNSAtMTQuNSB0MTQuNSAtMzUuNXYtNTBoLTEyMDB2NTBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxODU7IiBkPSJNNzAwIDExMDBoLTEwMHEtNDEgMCAtNzAuNSAtMjkuNXQtMjkuNSAtNzAuNXYtMTAwMGgzMDB2MTAwMHEwIDQxIC0yOS41IDcwLjV0LTcwLjUgMjkuNXpNMTEwMCA4MDBoLTEwMHEtNDEgMCAtNzAuNSAtMjkuNXQtMjkuNSAtNzAuNXYtNzAwaDMwMHY3MDBxMCA0MSAtMjkuNSA3MC41dC03MC41IDI5LjV6TTQwMCAwaC0zMDB2NDAwcTAgNDEgMjkuNSA3MC41dDcwLjUgMjkuNWgxMDBxNDEgMCA3MC41IC0yOS41dDI5LjUgLTcwLjV2LTQwMHogIiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE4NjsiIGQ9Ik0yMDAgMTEwMGg3MDBxMTI0IDAgMjEyIC04OHQ4OCAtMjEydi01MDBxMCAtMTI0IC04OCAtMjEydC0yMTIgLTg4aC03MDBxLTEyNCAwIC0yMTIgODh0LTg4IDIxMnY1MDBxMCAxMjQgODggMjEydDIxMiA4OHpNMTAwIDkwMHYtNzAwaDkwMHY3MDBoLTkwMHpNNTAwIDcwMGgtMjAwdi0xMDBoMjAwdi0zMDBoLTMwMHYxMDBoMjAwdjEwMGgtMjAwdjMwMGgzMDB2LTEwMHpNOTAwIDcwMHYtMzAwbC0xMDAgLTEwMGgtMjAwdjUwMGgyMDB6IE03MDAgNzAwdi0zMDBoMTAwdjMwMGgtMTAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxODc7IiBkPSJNMjAwIDExMDBoNzAwcTEyNCAwIDIxMiAtODh0ODggLTIxMnYtNTAwcTAgLTEyNCAtODggLTIxMnQtMjEyIC04OGgtNzAwcS0xMjQgMCAtMjEyIDg4dC04OCAyMTJ2NTAwcTAgMTI0IDg4IDIxMnQyMTIgODh6TTEwMCA5MDB2LTcwMGg5MDB2NzAwaC05MDB6TTUwMCAzMDBoLTEwMHYyMDBoLTEwMHYtMjAwaC0xMDB2NTAwaDEwMHYtMjAwaDEwMHYyMDBoMTAwdi01MDB6TTkwMCA3MDB2LTMwMGwtMTAwIC0xMDBoLTIwMHY1MDBoMjAweiBNNzAwIDcwMHYtMzAwaDEwMHYzMDBoLTEwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTg4OyIgZD0iTTIwMCAxMTAwaDcwMHExMjQgMCAyMTIgLTg4dDg4IC0yMTJ2LTUwMHEwIC0xMjQgLTg4IC0yMTJ0LTIxMiAtODhoLTcwMHEtMTI0IDAgLTIxMiA4OHQtODggMjEydjUwMHEwIDEyNCA4OCAyMTJ0MjEyIDg4ek0xMDAgOTAwdi03MDBoOTAwdjcwMGgtOTAwek01MDAgNzAwaC0yMDB2LTMwMGgyMDB2LTEwMGgtMzAwdjUwMGgzMDB2LTEwMHpNOTAwIDcwMGgtMjAwdi0zMDBoMjAwdi0xMDBoLTMwMHY1MDBoMzAwdi0xMDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE4OTsiIGQ9Ik0yMDAgMTEwMGg3MDBxMTI0IDAgMjEyIC04OHQ4OCAtMjEydi01MDBxMCAtMTI0IC04OCAtMjEydC0yMTIgLTg4aC03MDBxLTEyNCAwIC0yMTIgODh0LTg4IDIxMnY1MDBxMCAxMjQgODggMjEydDIxMiA4OHpNMTAwIDkwMHYtNzAwaDkwMHY3MDBoLTkwMHpNNTAwIDQwMGwtMzAwIDE1MGwzMDAgMTUwdi0zMDB6TTkwMCA1NTBsLTMwMCAtMTUwdjMwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTkwOyIgZD0iTTIwMCAxMTAwaDcwMHExMjQgMCAyMTIgLTg4dDg4IC0yMTJ2LTUwMHEwIC0xMjQgLTg4IC0yMTJ0LTIxMiAtODhoLTcwMHEtMTI0IDAgLTIxMiA4OHQtODggMjEydjUwMHEwIDEyNCA4OCAyMTJ0MjEyIDg4ek0xMDAgOTAwdi03MDBoOTAwdjcwMGgtOTAwek05MDAgMzAwaC03MDB2NTAwaDcwMHYtNTAwek04MDAgNzAwaC0xMzBxLTM4IDAgLTY2LjUgLTQzdC0yOC41IC0xMDh0MjcgLTEwN3Q2OCAtNDJoMTMwdjMwMHpNMzAwIDcwMHYtMzAwIGgxMzBxNDEgMCA2OCA0MnQyNyAxMDd0LTI4LjUgMTA4dC02Ni41IDQzaC0xMzB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE5MTsiIGQ9Ik0yMDAgMTEwMGg3MDBxMTI0IDAgMjEyIC04OHQ4OCAtMjEydi01MDBxMCAtMTI0IC04OCAtMjEydC0yMTIgLTg4aC03MDBxLTEyNCAwIC0yMTIgODh0LTg4IDIxMnY1MDBxMCAxMjQgODggMjEydDIxMiA4OHpNMTAwIDkwMHYtNzAwaDkwMHY3MDBoLTkwMHpNNTAwIDcwMGgtMjAwdi0xMDBoMjAwdi0zMDBoLTMwMHYxMDBoMjAwdjEwMGgtMjAwdjMwMGgzMDB2LTEwMHpNOTAwIDMwMGgtMTAwdjQwMGgtMTAwdjEwMGgyMDB2LTUwMHogTTcwMCAzMDBoLTEwMHYxMDBoMTAwdi0xMDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE5MjsiIGQ9Ik0yMDAgMTEwMGg3MDBxMTI0IDAgMjEyIC04OHQ4OCAtMjEydi01MDBxMCAtMTI0IC04OCAtMjEydC0yMTIgLTg4aC03MDBxLTEyNCAwIC0yMTIgODh0LTg4IDIxMnY1MDBxMCAxMjQgODggMjEydDIxMiA4OHpNMTAwIDkwMHYtNzAwaDkwMHY3MDBoLTkwMHpNMzAwIDcwMGgyMDB2LTQwMGgtMzAwdjUwMGgxMDB2LTEwMHpNOTAwIDMwMGgtMTAwdjQwMGgtMTAwdjEwMGgyMDB2LTUwMHpNMzAwIDYwMHYtMjAwaDEwMHYyMDBoLTEwMHogTTcwMCAzMDBoLTEwMHYxMDBoMTAwdi0xMDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE5MzsiIGQ9Ik0yMDAgMTEwMGg3MDBxMTI0IDAgMjEyIC04OHQ4OCAtMjEydi01MDBxMCAtMTI0IC04OCAtMjEydC0yMTIgLTg4aC03MDBxLTEyNCAwIC0yMTIgODh0LTg4IDIxMnY1MDBxMCAxMjQgODggMjEydDIxMiA4OHpNMTAwIDkwMHYtNzAwaDkwMHY3MDBoLTkwMHpNNTAwIDUwMGwtMTk5IC0yMDBoLTEwMHY1MGwxOTkgMjAwdjE1MGgtMjAwdjEwMGgzMDB2LTMwMHpNOTAwIDMwMGgtMTAwdjQwMGgtMTAwdjEwMGgyMDB2LTUwMHpNNzAxIDMwMGgtMTAwIHYxMDBoMTAwdi0xMDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTE5NDsiIGQ9Ik02MDAgMTE5MXExMjAgMCAyMjkuNSAtNDd0MTg4LjUgLTEyNnQxMjYgLTE4OC41dDQ3IC0yMjkuNXQtNDcgLTIyOS41dC0xMjYgLTE4OC41dC0xODguNSAtMTI2dC0yMjkuNSAtNDd0LTIyOS41IDQ3dC0xODguNSAxMjZ0LTEyNiAxODguNXQtNDcgMjI5LjV0NDcgMjI5LjV0MTI2IDE4OC41dDE4OC41IDEyNnQyMjkuNSA0N3pNNjAwIDEwMjFxLTExNCAwIC0yMTEgLTU2LjV0LTE1My41IC0xNTMuNXQtNTYuNSAtMjExdDU2LjUgLTIxMSB0MTUzLjUgLTE1My41dDIxMSAtNTYuNXQyMTEgNTYuNXQxNTMuNSAxNTMuNXQ1Ni41IDIxMXQtNTYuNSAyMTF0LTE1My41IDE1My41dC0yMTEgNTYuNXpNODAwIDcwMGgtMzAwdi0yMDBoMzAwdi0xMDBoLTMwMGwtMTAwIDEwMHYyMDBsMTAwIDEwMGgzMDB2LTEwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTk1OyIgZD0iTTYwMCAxMTkxcTEyMCAwIDIyOS41IC00N3QxODguNSAtMTI2dDEyNiAtMTg4LjV0NDcgLTIyOS41dC00NyAtMjI5LjV0LTEyNiAtMTg4LjV0LTE4OC41IC0xMjZ0LTIyOS41IC00N3QtMjI5LjUgNDd0LTE4OC41IDEyNnQtMTI2IDE4OC41dC00NyAyMjkuNXQ0NyAyMjkuNXQxMjYgMTg4LjV0MTg4LjUgMTI2dDIyOS41IDQ3ek02MDAgMTAyMXEtMTE0IDAgLTIxMSAtNTYuNXQtMTUzLjUgLTE1My41dC01Ni41IC0yMTF0NTYuNSAtMjExIHQxNTMuNSAtMTUzLjV0MjExIC01Ni41dDIxMSA1Ni41dDE1My41IDE1My41dDU2LjUgMjExdC01Ni41IDIxMXQtMTUzLjUgMTUzLjV0LTIxMSA1Ni41ek04MDAgNzAwdi0xMDBsLTUwIC01MGwxMDAgLTEwMHYtNTBoLTEwMGwtMTAwIDEwMGgtMTUwdi0xMDBoLTEwMHY0MDBoMzAwek01MDAgNzAwdi0xMDBoMjAwdjEwMGgtMjAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxOTc7IiBkPSJNNTAzIDEwODlxMTEwIDAgMjAwLjUgLTU5LjV0MTM0LjUgLTE1Ni41cTQ0IDE0IDkwIDE0cTEyMCAwIDIwNSAtODYuNXQ4NSAtMjA3dC04NSAtMjA3dC0yMDUgLTg2LjVoLTEyOHYyNTBxMCAyMSAtMTQuNSAzNS41dC0zNS41IDE0LjVoLTMwMHEtMjEgMCAtMzUuNSAtMTQuNXQtMTQuNSAtMzUuNXYtMjUwaC0yMjJxLTgwIDAgLTEzNiA1Ny41dC01NiAxMzYuNXEwIDY5IDQzIDEyMi41dDEwOCA2Ny41cS0yIDE5IC0yIDM3cTAgMTAwIDQ5IDE4NSB0MTM0IDEzNHQxODUgNDl6TTUyNSA1MDBoMTUwcTEwIDAgMTcuNSAtNy41dDcuNSAtMTcuNXYtMjc1aDEzN3EyMSAwIDI2IC0xMS41dC04IC0yNy41bC0yMjMgLTI0NHEtMTMgLTE2IC0zMiAtMTZ0LTMyIDE2bC0yMjMgMjQ0cS0xMyAxNiAtOCAyNy41dDI2IDExLjVoMTM3djI3NXEwIDEwIDcuNSAxNy41dDE3LjUgNy41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUxOTg7IiBkPSJNNTAyIDEwODlxMTEwIDAgMjAxIC01OS41dDEzNSAtMTU2LjVxNDMgMTUgODkgMTVxMTIxIDAgMjA2IC04Ni41dDg2IC0yMDYuNXEwIC05OSAtNjAgLTE4MXQtMTUwIC0xMTBsLTM3OCAzNjBxLTEzIDE2IC0zMS41IDE2dC0zMS41IC0xNmwtMzgxIC0zNjVoLTlxLTc5IDAgLTEzNS41IDU3LjV0LTU2LjUgMTM2LjVxMCA2OSA0MyAxMjIuNXQxMDggNjcuNXEtMiAxOSAtMiAzOHEwIDEwMCA0OSAxODQuNXQxMzMuNSAxMzR0MTg0LjUgNDkuNXogTTYzMiA0NjdsMjIzIC0yMjhxMTMgLTE2IDggLTI3LjV0LTI2IC0xMS41aC0xMzd2LTI3NXEwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTE1MHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djI3NWgtMTM3cS0yMSAwIC0yNiAxMS41dDggMjcuNXExOTkgMjA0IDIyMyAyMjhxMTkgMTkgMzEuNSAxOXQzMi41IC0xOXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMTk5OyIgZD0iTTcwMCAxMDB2MTAwaDQwMGwtMjcwIDMwMGgxNzBsLTI3MCAzMDBoMTcwbC0zMDAgMzMzbC0zMDAgLTMzM2gxNzBsLTI3MCAtMzAwaDE3MGwtMjcwIC0zMDBoNDAwdi0xMDBoLTUwcS0yMSAwIC0zNS41IC0xNC41dC0xNC41IC0zNS41di01MGg0MDB2NTBxMCAyMSAtMTQuNSAzNS41dC0zNS41IDE0LjVoLTUweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyMDA7IiBkPSJNNjAwIDExNzlxOTQgMCAxNjcuNSAtNTYuNXQ5OS41IC0xNDUuNXE4OSAtNiAxNTAuNSAtNzEuNXQ2MS41IC0xNTUuNXEwIC02MSAtMjkuNSAtMTEyLjV0LTc5LjUgLTgyLjVxOSAtMjkgOSAtNTVxMCAtNzQgLTUyLjUgLTEyNi41dC0xMjYuNSAtNTIuNXEtNTUgMCAtMTAwIDMwdi0yNTFxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTUwaC0zMDB2NTBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41djI1MXEtNDUgLTMwIC0xMDAgLTMwIHEtNzQgMCAtMTI2LjUgNTIuNXQtNTIuNSAxMjYuNXEwIDE4IDQgMzhxLTQ3IDIxIC03NS41IDY1dC0yOC41IDk3cTAgNzQgNTIuNSAxMjYuNXQxMjYuNSA1Mi41cTUgMCAyMyAtMnEwIDIgLTEgMTB0LTEgMTNxMCAxMTYgODEuNSAxOTcuNXQxOTcuNSA4MS41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyMDE7IiBkPSJNMTAxMCAxMDEwcTExMSAtMTExIDE1MC41IC0yNjAuNXQwIC0yOTl0LTE1MC41IC0yNjAuNXEtODMgLTgzIC0xOTEuNSAtMTI2LjV0LTIxOC41IC00My41dC0yMTguNSA0My41dC0xOTEuNSAxMjYuNXEtMTExIDExMSAtMTUwLjUgMjYwLjV0MCAyOTl0MTUwLjUgMjYwLjVxODMgODMgMTkxLjUgMTI2LjV0MjE4LjUgNDMuNXQyMTguNSAtNDMuNXQxOTEuNSAtMTI2LjV6TTQ3NiAxMDY1cS00IDAgLTggLTFxLTEyMSAtMzQgLTIwOS41IC0xMjIuNSB0LTEyMi41IC0yMDkuNXEtNCAtMTIgMi41IC0yM3QxOC41IC0xNGwzNiAtOXEzIC0xIDcgLTFxMjMgMCAyOSAyMnEyNyA5NiA5OCAxNjZxNzAgNzEgMTY2IDk4cTExIDMgMTcuNSAxMy41dDMuNSAyMi41bC05IDM1cS0zIDEzIC0xNCAxOXEtNyA0IC0xNSA0ek01MTIgOTIwcS00IDAgLTkgLTJxLTgwIC0yNCAtMTM4LjUgLTgyLjV0LTgyLjUgLTEzOC41cS00IC0xMyAyIC0yNHQxOSAtMTRsMzQgLTlxNCAtMSA4IC0xcTIyIDAgMjggMjEgcTE4IDU4IDU4LjUgOTguNXQ5Ny41IDU4LjVxMTIgMyAxOCAxMy41dDMgMjEuNWwtOSAzNXEtMyAxMiAtMTQgMTlxLTcgNCAtMTUgNHpNNzE5LjUgNzE5LjVxLTQ5LjUgNDkuNSAtMTE5LjUgNDkuNXQtMTE5LjUgLTQ5LjV0LTQ5LjUgLTExOS41dDQ5LjUgLTExOS41dDExOS41IC00OS41dDExOS41IDQ5LjV0NDkuNSAxMTkuNXQtNDkuNSAxMTkuNXpNODU1IDU1MXEtMjIgMCAtMjggLTIxcS0xOCAtNTggLTU4LjUgLTk4LjV0LTk4LjUgLTU3LjUgcS0xMSAtNCAtMTcgLTE0LjV0LTMgLTIxLjVsOSAtMzVxMyAtMTIgMTQgLTE5cTcgLTQgMTUgLTRxNCAwIDkgMnE4MCAyNCAxMzguNSA4Mi41dDgyLjUgMTM4LjVxNCAxMyAtMi41IDI0dC0xOC41IDE0bC0zNCA5cS00IDEgLTggMXpNMTAwMCA1MTVxLTIzIDAgLTI5IC0yMnEtMjcgLTk2IC05OCAtMTY2cS03MCAtNzEgLTE2NiAtOThxLTExIC0zIC0xNy41IC0xMy41dC0zLjUgLTIyLjVsOSAtMzVxMyAtMTMgMTQgLTE5cTcgLTQgMTUgLTQgcTQgMCA4IDFxMTIxIDM0IDIwOS41IDEyMi41dDEyMi41IDIwOS41cTQgMTIgLTIuNSAyM3QtMTguNSAxNGwtMzYgOXEtMyAxIC03IDF6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTIwMjsiIGQ9Ik03MDAgODAwaDMwMHYtMzgwaC0xODB2MjAwaC0zNDB2LTIwMGgtMzgwdjc1NXEwIDEwIDcuNSAxNy41dDE3LjUgNy41aDU3NXYtNDAwek0xMDAwIDkwMGgtMjAwdjIwMHpNNzAwIDMwMGgxNjJsLTIxMiAtMjEybC0yMTIgMjEyaDE2MnYyMDBoMTAwdi0yMDB6TTUyMCAwaC0zOTVxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXYzOTV6TTEwMDAgMjIwdi0xOTVxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC0xOTV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTIwMzsiIGQ9Ik03MDAgODAwaDMwMHYtNTIwbC0zNTAgMzUwbC01NTAgLTU1MHYxMDk1cTAgMTAgNy41IDE3LjV0MTcuNSA3LjVoNTc1di00MDB6TTEwMDAgOTAwaC0yMDB2MjAwek04NjIgMjAwaC0xNjJ2LTIwMGgtMTAwdjIwMGgtMTYybDIxMiAyMTJ6TTQ4MCAwaC0zNTVxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXY1NWgzODB2LTgwek0xMDAwIDgwdi01NXEwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTE1NXY4MGgxODB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTIwNDsiIGQ9Ik0xMTYyIDgwMGgtMTYydi0yMDBoMTAwbDEwMCAtMTAwaC0zMDB2MzAwaC0xNjJsMjEyIDIxMnpNMjAwIDgwMGgyMDBxMjcgMCA0MCAtMnQyOS41IC0xMC41dDIzLjUgLTMwdDcgLTU3LjVoMzAwdi0xMDBoLTYwMGwtMjAwIC0zNTB2NDUwaDEwMHEwIDM2IDcgNTcuNXQyMy41IDMwdDI5LjUgMTAuNXQ0MCAyek04MDAgNDAwaDI0MGwtMjQwIC00MDBoLTgwMGwzMDAgNTAwaDUwMHYtMTAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyMDU7IiBkPSJNNjUwIDExMDBoMTAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di01MGg1MHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtMTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0zMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djEwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjVoNTB2NTBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek0xMDAwIDg1MHYxNTBxNDEgMCA3MC41IC0yOS41dDI5LjUgLTcwLjV2LTgwMCBxMCAtNDEgLTI5LjUgLTcwLjV0LTcwLjUgLTI5LjVoLTYwMHEtMSAwIC0yMCA0bDI0NiAyNDZsLTMyNiAzMjZ2MzI0cTAgNDEgMjkuNSA3MC41dDcwLjUgMjkuNXYtMTUwcTAgLTYyIDQ0IC0xMDZ0MTA2IC00NGgzMDBxNjIgMCAxMDYgNDR0NDQgMTA2ek00MTIgMjUwbC0yMTIgLTIxMnYxNjJoLTIwMHYxMDBoMjAwdjE2MnoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjA2OyIgZD0iTTQ1MCAxMTAwaDEwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtNTBoNTBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMzAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYxMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41aDUwdjUwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNODAwIDg1MHYxNTBxNDEgMCA3MC41IC0yOS41dDI5LjUgLTcwLjV2LTUwMCBoLTIwMHYtMzAwaDIwMHEwIC0zNiAtNyAtNTcuNXQtMjMuNSAtMzB0LTI5LjUgLTEwLjV0LTQwIC0yaC02MDBxLTQxIDAgLTcwLjUgMjkuNXQtMjkuNSA3MC41djgwMHEwIDQxIDI5LjUgNzAuNXQ3MC41IDI5LjV2LTE1MHEwIC02MiA0NCAtMTA2dDEwNiAtNDRoMzAwcTYyIDAgMTA2IDQ0dDQ0IDEwNnpNMTIxMiAyNTBsLTIxMiAtMjEydjE2MmgtMjAwdjEwMGgyMDB2MTYyeiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyMDk7IiBkPSJNNjU4IDExOTdsNjM3IC0xMTA0cTIzIC0zOCA3IC02NS41dC02MCAtMjcuNWgtMTI3NnEtNDQgMCAtNjAgMjcuNXQ3IDY1LjVsNjM3IDExMDRxMjIgMzkgNTQgMzl0NTQgLTM5ek03MDQgODAwaC0yMDhxLTIwIDAgLTMyIC0xNC41dC04IC0zNC41bDU4IC0zMDJxNCAtMjAgMjEuNSAtMzQuNXQzNy41IC0xNC41aDU0cTIwIDAgMzcuNSAxNC41dDIxLjUgMzQuNWw1OCAzMDJxNCAyMCAtOCAzNC41dC0zMiAxNC41ek01MDAgMzAwdi0xMDBoMjAwIHYxMDBoLTIwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjEwOyIgZD0iTTQyNSAxMTAwaDI1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTE1MHEwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTI1MHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djE1MHEwIDEwIDcuNSAxNy41dDE3LjUgNy41ek00MjUgODAwaDI1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTE1MHEwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTI1MHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djE1MHEwIDEwIDcuNSAxNy41IHQxNy41IDcuNXpNODI1IDgwMGgyNTBxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di0xNTBxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC0yNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXYxNTBxMCAxMCA3LjUgMTcuNXQxNy41IDcuNXpNMjUgNTAwaDI1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTE1MHEwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTI1MHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djE1MCBxMCAxMCA3LjUgMTcuNXQxNy41IDcuNXpNNDI1IDUwMGgyNTBxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di0xNTBxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC0yNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXYxNTBxMCAxMCA3LjUgMTcuNXQxNy41IDcuNXpNODI1IDUwMGgyNTBxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di0xNTBxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC0yNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNSB2MTUwcTAgMTAgNy41IDE3LjV0MTcuNSA3LjV6TTI1IDIwMGgyNTBxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di0xNTBxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC0yNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXYxNTBxMCAxMCA3LjUgMTcuNXQxNy41IDcuNXpNNDI1IDIwMGgyNTBxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di0xNTBxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC0yNTBxLTEwIDAgLTE3LjUgNy41IHQtNy41IDE3LjV2MTUwcTAgMTAgNy41IDE3LjV0MTcuNSA3LjV6TTgyNSAyMDBoMjUwcTEwIDAgMTcuNSAtNy41dDcuNSAtMTcuNXYtMTUwcTAgLTEwIC03LjUgLTE3LjV0LTE3LjUgLTcuNWgtMjUwcS0xMCAwIC0xNy41IDcuNXQtNy41IDE3LjV2MTUwcTAgMTAgNy41IDE3LjV0MTcuNSA3LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTIxMTsiIGQ9Ik03MDAgMTIwMGgxMDB2LTIwMGgtMTAwdi0xMDBoMzUwcTYyIDAgODYuNSAtMzkuNXQtMy41IC05NC41bC02NiAtMTMycS00MSAtODMgLTgxIC0xMzRoLTc3MnEtNDAgNTEgLTgxIDEzNGwtNjYgMTMycS0yOCA1NSAtMy41IDk0LjV0ODYuNSAzOS41aDM1MHYxMDBoLTEwMHYyMDBoMTAwdjEwMGgyMDB2LTEwMHpNMjUwIDQwMGg3MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV0LTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTEybDEzNyAtMTAwIGgtOTUwbDEzOCAxMDBoLTEzcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXQxNC41IDM1LjV0MzUuNSAxNC41ek01MCAxMDBoMTEwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtNTBoLTEyMDB2NTBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyMTI7IiBkPSJNNjAwIDEzMDBxNDAgMCA2OC41IC0yOS41dDI4LjUgLTcwLjVoLTE5NHEwIDQxIDI4LjUgNzAuNXQ2OC41IDI5LjV6TTQ0MyAxMTAwaDMxNHExOCAtMzcgMTggLTc1cTAgLTggLTMgLTI1aDMyOHE0MSAwIDQ0LjUgLTE2LjV0LTMwLjUgLTM4LjVsLTE3NSAtMTQ1aC02NzhsLTE3OCAxNDVxLTM0IDIyIC0yOSAzOC41dDQ2IDE2LjVoMzI4cS0zIDE3IC0zIDI1cTAgMzggMTggNzV6TTI1MCA3MDBoNzAwcTIxIDAgMzUuNSAtMTQuNSB0MTQuNSAtMzUuNXQtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMTUwdi0yMDBsMjc1IC0yMDBoLTk1MGwyNzUgMjAwdjIwMGgtMTUwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXQxNC41IDM1LjV0MzUuNSAxNC41ek01MCAxMDBoMTEwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtNTBoLTEyMDB2NTBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyMTM7IiBkPSJNNjAwIDExODFxNzUgMCAxMjggLTUzdDUzIC0xMjh0LTUzIC0xMjh0LTEyOCAtNTN0LTEyOCA1M3QtNTMgMTI4dDUzIDEyOHQxMjggNTN6TTYwMiA3OThoNDZxMzQgMCA1NS41IC0yOC41dDIxLjUgLTg2LjVxMCAtNzYgMzkgLTE4M2gtMzI0cTM5IDEwNyAzOSAxODNxMCA1OCAyMS41IDg2LjV0NTYuNSAyOC41aDQ1ek0yNTAgNDAwaDcwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXQtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMTMgbDEzOCAtMTAwaC05NTBsMTM3IDEwMGgtMTJxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41dDE0LjUgMzUuNXQzNS41IDE0LjV6TTUwIDEwMGgxMTAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di01MGgtMTIwMHY1MHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTIxNDsiIGQ9Ik02MDAgMTMwMHE0NyAwIDkyLjUgLTUzLjV0NzEgLTEyM3QyNS41IC0xMjMuNXEwIC03OCAtNTUuNSAtMTMzLjV0LTEzMy41IC01NS41dC0xMzMuNSA1NS41dC01NS41IDEzMy41cTAgNjIgMzQgMTQzbDE0NCAtMTQzbDExMSAxMTFsLTE2MyAxNjNxMzQgMjYgNjMgMjZ6TTYwMiA3OThoNDZxMzQgMCA1NS41IC0yOC41dDIxLjUgLTg2LjVxMCAtNzYgMzkgLTE4M2gtMzI0cTM5IDEwNyAzOSAxODNxMCA1OCAyMS41IDg2LjV0NTYuNSAyOC41aDQ1IHpNMjUwIDQwMGg3MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV0LTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTEzbDEzOCAtMTAwaC05NTBsMTM3IDEwMGgtMTJxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41dDE0LjUgMzUuNXQzNS41IDE0LjV6TTUwIDEwMGgxMTAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di01MGgtMTIwMHY1MHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTIxNTsiIGQ9Ik02MDAgMTIwMGwzMDAgLTE2MXYtMTM5aC0zMDBxMCAtNTcgMTguNSAtMTA4dDUwIC05MS41dDYzIC03MnQ3MCAtNjcuNXQ1Ny41IC02MWgtNTMwcS02MCA4MyAtOTAuNSAxNzcuNXQtMzAuNSAxNzguNXQzMyAxNjQuNXQ4Ny41IDEzOS41dDEyNiA5Ni41dDE0NS41IDQxLjV2LTk4ek0yNTAgNDAwaDcwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXQtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMTNsMTM4IC0xMDBoLTk1MGwxMzcgMTAwIGgtMTJxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41dDE0LjUgMzUuNXQzNS41IDE0LjV6TTUwIDEwMGgxMTAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di01MGgtMTIwMHY1MHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTIxNjsiIGQ9Ik02MDAgMTMwMHE0MSAwIDcwLjUgLTI5LjV0MjkuNSAtNzAuNXYtNzhxNDYgLTI2IDczIC03MnQyNyAtMTAwdi01MGgtNDAwdjUwcTAgNTQgMjcgMTAwdDczIDcydjc4cTAgNDEgMjkuNSA3MC41dDcwLjUgMjkuNXpNNDAwIDgwMGg0MDBxNTQgMCAxMDAgLTI3dDcyIC03M2gtMTcydi0xMDBoMjAwdi0xMDBoLTIwMHYtMTAwaDIwMHYtMTAwaC0yMDB2LTEwMGgyMDBxMCAtODMgLTU4LjUgLTE0MS41dC0xNDEuNSAtNTguNWgtNDAwIHEtODMgMCAtMTQxLjUgNTguNXQtNTguNSAxNDEuNXY0MDBxMCA4MyA1OC41IDE0MS41dDE0MS41IDU4LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTIxODsiIGQ9Ik0xNTAgMTEwMGg5MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTUwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtOTAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXY1MDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek0xMjUgNDAwaDk1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTUwcTAgLTEwIC03LjUgLTE3LjV0LTE3LjUgLTcuNWgtMjgzbDIyNCAtMjI0cTEzIC0xMyAxMyAtMzEuNXQtMTMgLTMyIHQtMzEuNSAtMTMuNXQtMzEuNSAxM2wtODggODhoLTUyNGwtODcgLTg4cS0xMyAtMTMgLTMyIC0xM3QtMzIgMTMuNXQtMTMgMzJ0MTMgMzEuNWwyMjQgMjI0aC0yODlxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXY1MHEwIDEwIDcuNSAxNy41dDE3LjUgNy41ek01NDEgMzAwbC0xMDAgLTEwMGgzMjRsLTEwMCAxMDBoLTEyNHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjE5OyIgZD0iTTIwMCAxMTAwaDgwMHE4MyAwIDE0MS41IC01OC41dDU4LjUgLTE0MS41di0yMDBoLTEwMHEwIDQxIC0yOS41IDcwLjV0LTcwLjUgMjkuNWgtMjUwcS00MSAwIC03MC41IC0yOS41dC0yOS41IC03MC41aC0xMDBxMCA0MSAtMjkuNSA3MC41dC03MC41IDI5LjVoLTI1MHEtNDEgMCAtNzAuNSAtMjkuNXQtMjkuNSAtNzAuNWgtMTAwdjIwMHEwIDgzIDU4LjUgMTQxLjV0MTQxLjUgNTguNXpNMTAwIDYwMGgxMDAwcTQxIDAgNzAuNSAtMjkuNSB0MjkuNSAtNzAuNXYtMzAwaC0xMjAwdjMwMHEwIDQxIDI5LjUgNzAuNXQ3MC41IDI5LjV6TTMwMCAxMDB2LTUwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djUwaDIwMHpNMTEwMCAxMDB2LTUwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djUwaDIwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjIxOyIgZD0iTTQ4MCAxMTY1bDY4MiAtNjgzcTMxIC0zMSAzMSAtNzUuNXQtMzEgLTc1LjVsLTEzMSAtMTMxaC00ODFsLTUxNyA1MThxLTMyIDMxIC0zMiA3NS41dDMyIDc1LjVsMjk1IDI5NnEzMSAzMSA3NS41IDMxdDc2LjUgLTMxek0xMDggNzk0bDM0MiAtMzQybDMwMyAzMDRsLTM0MSAzNDF6TTI1MCAxMDBoODAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di01MGgtOTAwdjUwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjIzOyIgZD0iTTEwNTcgNjQ3bC0xODkgNTA2cS04IDE5IC0yNy41IDMzdC00MC41IDE0aC00MDBxLTIxIDAgLTQwLjUgLTE0dC0yNy41IC0zM2wtMTg5IC01MDZxLTggLTE5IDEuNSAtMzN0MzAuNSAtMTRoNjI1di0xNTBxMCAtMjEgMTQuNSAtMzUuNXQzNS41IC0xNC41dDM1LjUgMTQuNXQxNC41IDM1LjV2MTUwaDEyNXEyMSAwIDMwLjUgMTR0MS41IDMzek04OTcgMGgtNTk1djUwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNWg1MHY1MCBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41aDQ4djMwMGgyMDB2LTMwMGg0N3EyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtNTBoNTBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTUweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyMjQ7IiBkPSJNOTAwIDgwMGgzMDB2LTU3NXEwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTM3NXY1OTFsLTMwMCAzMDB2ODRxMCAxMCA3LjUgMTcuNXQxNy41IDcuNWgzNzV2LTQwMHpNMTIwMCA5MDBoLTIwMHYyMDB6TTQwMCA2MDBoMzAwdi01NzVxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC02NTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXY5NTBxMCAxMCA3LjUgMTcuNXQxNy41IDcuNWgzNzV2LTQwMHpNNzAwIDcwMGgtMjAwdjIwMHogIiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTIyNTsiIGQ9Ik00ODQgMTA5NWgxOTVxNzUgMCAxNDYgLTMyLjV0MTI0IC04NnQ4OS41IC0xMjIuNXQ0OC41IC0xNDJxMTggLTE0IDM1IC0yMHEzMSAtMTAgNjQuNSA2LjV0NDMuNSA0OC41cTEwIDM0IC0xNSA3MXEtMTkgMjcgLTkgNDNxNSA4IDEyLjUgMTF0MTkgLTF0MjMuNSAtMTZxNDEgLTQ0IDM5IC0xMDVxLTMgLTYzIC00NiAtMTA2LjV0LTEwNCAtNDMuNWgtNjJxLTcgLTU1IC0zNSAtMTE3dC01NiAtMTAwbC0zOSAtMjM0cS0zIC0yMCAtMjAgLTM0LjUgdC0zOCAtMTQuNWgtMTAwcS0yMSAwIC0zMyAxNC41dC05IDM0LjVsMTIgNzBxLTQ5IC0xNCAtOTEgLTE0aC0xOTVxLTI0IDAgLTY1IDhsLTExIC02NHEtMyAtMjAgLTIwIC0zNC41dC0zOCAtMTQuNWgtMTAwcS0yMSAwIC0zMyAxNC41dC05IDM0LjVsMjYgMTU3cS04NCA3NCAtMTI4IDE3NWwtMTU5IDUzcS0xOSA3IC0zMyAyNnQtMTQgNDB2NTBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41aDEyNHExMSA4NyA1NiAxNjZsLTExMSA5NSBxLTE2IDE0IC0xMi41IDIzLjV0MjQuNSA5LjVoMjAzcTExNiAxMDEgMjUwIDEwMXpNNjc1IDEwMDBoLTI1MHEtMTAgMCAtMTcuNSAtNy41dC03LjUgLTE3LjV2LTUwcTAgLTEwIDcuNSAtMTcuNXQxNy41IC03LjVoMjUwcTEwIDAgMTcuNSA3LjV0Ny41IDE3LjV2NTBxMCAxMCAtNy41IDE3LjV0LTE3LjUgNy41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyMjY7IiBkPSJNNjQxIDkwMGw0MjMgMjQ3cTE5IDggNDIgMi41dDM3IC0yMS41bDMyIC0zOHExNCAtMTUgMTIuNSAtMzZ0LTE3LjUgLTM0bC0xMzkgLTEyMGgtMzkwek01MCAxMTAwaDEwNnE2NyAwIDEwMyAtMTd0NjYgLTcxbDEwMiAtMjEyaDgyM3EyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtNTBxMCAtMjEgLTE0IC00MHQtMzMgLTI2bC03MzcgLTEzMnEtMjMgLTQgLTQwIDZ0LTI2IDI1cS00MiA2NyAtMTAwIDY3aC0zMDBxLTYyIDAgLTEwNiA0NCB0LTQ0IDEwNnYyMDBxMCA2MiA0NCAxMDZ0MTA2IDQ0ek0xNzMgOTI4aC04MHEtMTkgMCAtMjggLTE0dC05IC0zNXYtNTZxMCAtNTEgNDIgLTUxaDEzNHExNiAwIDIxLjUgOHQ1LjUgMjRxMCAxMSAtMTYgNDV0LTI3IDUxcS0xOCAyOCAtNDMgMjh6TTU1MCA3MjdxLTMyIDAgLTU0LjUgLTIyLjV0LTIyLjUgLTU0LjV0MjIuNSAtNTQuNXQ1NC41IC0yMi41dDU0LjUgMjIuNXQyMi41IDU0LjV0LTIyLjUgNTQuNXQtNTQuNSAyMi41ek0xMzAgMzg5IGwxNTIgMTMwcTE4IDE5IDM0IDI0dDMxIC0zLjV0MjQuNSAtMTcuNXQyNS41IC0yOHEyOCAtMzUgNTAuNSAtNTF0NDguNSAtMTNsNjMgNWw0OCAtMTc5cTEzIC02MSAtMy41IC05Ny41dC02Ny41IC03OS41bC04MCAtNjlxLTQ3IC00MCAtMTA5IC0zNS41dC0xMDMgNTEuNWwtMTMwIDE1MXEtNDAgNDcgLTM1LjUgMTA5LjV0NTEuNSAxMDIuNXpNMzgwIDM3N2wtMTAyIC04OHEtMzEgLTI3IDIgLTY1bDM3IC00M3ExMyAtMTUgMjcuNSAtMTkuNSB0MzEuNSA2LjVsNjEgNTNxMTkgMTYgMTQgNDlxLTIgMjAgLTEyIDU2dC0xNyA0NXEtMTEgMTIgLTE5IDE0dC0yMyAtOHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjI3OyIgZD0iTTYyNSAxMjAwaDE1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTEwOXE3OSAtMzMgMTMxIC04Ny41dDUzIC0xMjguNXExIC00NiAtMTUgLTg0LjV0LTM5IC02MXQtNDYgLTM4dC0zOSAtMjEuNWwtMTcgLTZxNiAwIDE1IC0xLjV0MzUgLTl0NTAgLTE3LjV0NTMgLTMwdDUwIC00NXQzNS41IC02NHQxNC41IC04NHEwIC01OSAtMTEuNSAtMTA1LjV0LTI4LjUgLTc2LjV0LTQ0IC01MXQtNDkuNSAtMzEuNXQtNTQuNSAtMTZ0LTQ5LjUgLTYuNSB0LTQzLjUgLTF2LTc1cTAgLTEwIC03LjUgLTE3LjV0LTE3LjUgLTcuNWgtMTUwcS0xMCAwIC0xNy41IDcuNXQtNy41IDE3LjV2NzVoLTEwMHYtNzVxMCAtMTAgLTcuNSAtMTcuNXQtMTcuNSAtNy41aC0xNTBxLTEwIDAgLTE3LjUgNy41dC03LjUgMTcuNXY3NWgtMTc1cS0xMCAwIC0xNy41IDcuNXQtNy41IDE3LjV2MTUwcTAgMTAgNy41IDE3LjV0MTcuNSA3LjVoNzV2NjAwaC03NXEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djE1MCBxMCAxMCA3LjUgMTcuNXQxNy41IDcuNWgxNzV2NzVxMCAxMCA3LjUgMTcuNXQxNy41IDcuNWgxNTBxMTAgMCAxNy41IC03LjV0Ny41IC0xNy41di03NWgxMDB2NzVxMCAxMCA3LjUgMTcuNXQxNy41IDcuNXpNNDAwIDkwMHYtMjAwaDI2M3EyOCAwIDQ4LjUgMTAuNXQzMCAyNXQxNSAyOXQ1LjUgMjUuNWwxIDEwcTAgNCAtMC41IDExdC02IDI0dC0xNSAzMHQtMzAgMjR0LTQ4LjUgMTFoLTI2M3pNNDAwIDUwMHYtMjAwaDM2M3EyOCAwIDQ4LjUgMTAuNSB0MzAgMjV0MTUgMjl0NS41IDI1LjVsMSAxMHEwIDQgLTAuNSAxMXQtNiAyNHQtMTUgMzB0LTMwIDI0dC00OC41IDExaC0zNjN6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTIzMDsiIGQ9Ik0yMTIgMTE5OGg3ODBxODYgMCAxNDcgLTYxdDYxIC0xNDd2LTQxNnEwIC01MSAtMTggLTE0Mi41dC0zNiAtMTU3LjVsLTE4IC02NnEtMjkgLTg3IC05My41IC0xNDYuNXQtMTQ2LjUgLTU5LjVoLTU3MnEtODIgMCAtMTQ3IDU5dC05MyAxNDdxLTggMjggLTIwIDczdC0zMiAxNDMuNXQtMjAgMTQ5LjV2NDE2cTAgODYgNjEgMTQ3dDE0NyA2MXpNNjAwIDEwNDVxLTcwIDAgLTEzMi41IC0xMS41dC0xMDUuNSAtMzAuNXQtNzguNSAtNDEuNSB0LTU3IC00NXQtMzYgLTQxdC0yMC41IC0zMC41bC02IC0xMmwxNTYgLTI0M2g1NjBsMTU2IDI0M3EtMiA1IC02IDEyLjV0LTIwIDI5LjV0LTM2LjUgNDJ0LTU3IDQ0LjV0LTc5IDQydC0xMDUgMjkuNXQtMTMyLjUgMTJ6TTc2MiA3MDNoLTE1N2wxOTUgMjYxeiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyMzE7IiBkPSJNNDc1IDEzMDBoMTUwcTEwMyAwIDE4OSAtODZ0ODYgLTE4OXYtNTAwcTAgLTQxIC00MiAtODN0LTgzIC00MmgtNDUwcS00MSAwIC04MyA0MnQtNDIgODN2NTAwcTAgMTAzIDg2IDE4OXQxODkgODZ6TTcwMCAzMDB2LTIyNXEwIC0yMSAtMjcgLTQ4dC00OCAtMjdoLTE1MHEtMjEgMCAtNDggMjd0LTI3IDQ4djIyNWgzMDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTIzMjsiIGQ9Ik00NzUgMTMwMGg5NnEwIC0xNTAgODkuNSAtMjM5LjV0MjM5LjUgLTg5LjV2LTQ0NnEwIC00MSAtNDIgLTgzdC04MyAtNDJoLTQ1MHEtNDEgMCAtODMgNDJ0LTQyIDgzdjUwMHEwIDEwMyA4NiAxODl0MTg5IDg2ek03MDAgMzAwdi0yMjVxMCAtMjEgLTI3IC00OHQtNDggLTI3aC0xNTBxLTIxIDAgLTQ4IDI3dC0yNyA0OHYyMjVoMzAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyMzM7IiBkPSJNMTI5NCA3NjdsLTYzOCAtMjgzbC0zNzggMTcwbC03OCAtNjB2LTIyNGwxMDAgLTE1MHYtMTk5bC0xNTAgMTQ4bC0xNTAgLTE0OXYyMDBsMTAwIDE1MHYyNTBxMCA0IC0wLjUgMTAuNXQwIDkuNXQxIDh0MyA4dDYuNSA2bDQ3IDQwbC0xNDcgNjVsNjQyIDI4M3pNMTAwMCAzODBsLTM1MCAtMTY2bC0zNTAgMTY2djE0N2wzNTAgLTE2NWwzNTAgMTY1di0xNDd6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTIzNDsiIGQ9Ik0yNTAgODAwcTYyIDAgMTA2IC00NHQ0NCAtMTA2dC00NCAtMTA2dC0xMDYgLTQ0dC0xMDYgNDR0LTQ0IDEwNnQ0NCAxMDZ0MTA2IDQ0ek02NTAgODAwcTYyIDAgMTA2IC00NHQ0NCAtMTA2dC00NCAtMTA2dC0xMDYgLTQ0dC0xMDYgNDR0LTQ0IDEwNnQ0NCAxMDZ0MTA2IDQ0ek0xMDUwIDgwMHE2MiAwIDEwNiAtNDR0NDQgLTEwNnQtNDQgLTEwNnQtMTA2IC00NHQtMTA2IDQ0dC00NCAxMDZ0NDQgMTA2dDEwNiA0NHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjM1OyIgZD0iTTU1MCAxMTAwcTYyIDAgMTA2IC00NHQ0NCAtMTA2dC00NCAtMTA2dC0xMDYgLTQ0dC0xMDYgNDR0LTQ0IDEwNnQ0NCAxMDZ0MTA2IDQ0ek01NTAgNzAwcTYyIDAgMTA2IC00NHQ0NCAtMTA2dC00NCAtMTA2dC0xMDYgLTQ0dC0xMDYgNDR0LTQ0IDEwNnQ0NCAxMDZ0MTA2IDQ0ek01NTAgMzAwcTYyIDAgMTA2IC00NHQ0NCAtMTA2dC00NCAtMTA2dC0xMDYgLTQ0dC0xMDYgNDR0LTQ0IDEwNnQ0NCAxMDZ0MTA2IDQ0eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyMzY7IiBkPSJNMTI1IDExMDBoOTUwcTEwIDAgMTcuNSAtNy41dDcuNSAtMTcuNXYtMTUwcTAgLTEwIC03LjUgLTE3LjV0LTE3LjUgLTcuNWgtOTUwcS0xMCAwIC0xNy41IDcuNXQtNy41IDE3LjV2MTUwcTAgMTAgNy41IDE3LjV0MTcuNSA3LjV6TTEyNSA3MDBoOTUwcTEwIDAgMTcuNSAtNy41dDcuNSAtMTcuNXYtMTUwcTAgLTEwIC03LjUgLTE3LjV0LTE3LjUgLTcuNWgtOTUwcS0xMCAwIC0xNy41IDcuNXQtNy41IDE3LjV2MTUwcTAgMTAgNy41IDE3LjUgdDE3LjUgNy41ek0xMjUgMzAwaDk1MHExMCAwIDE3LjUgLTcuNXQ3LjUgLTE3LjV2LTE1MHEwIC0xMCAtNy41IC0xNy41dC0xNy41IC03LjVoLTk1MHEtMTAgMCAtMTcuNSA3LjV0LTcuNSAxNy41djE1MHEwIDEwIDcuNSAxNy41dDE3LjUgNy41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyMzc7IiBkPSJNMzUwIDEyMDBoNTAwcTE2MiAwIDI1NiAtOTMuNXQ5NCAtMjU2LjV2LTUwMHEwIC0xNjUgLTkzLjUgLTI1Ny41dC0yNTYuNSAtOTIuNWgtNTAwcS0xNjUgMCAtMjU3LjUgOTIuNXQtOTIuNSAyNTcuNXY1MDBxMCAxNjUgOTIuNSAyNTcuNXQyNTcuNSA5Mi41ek05MDAgMTAwMGgtNjAwcS00MSAwIC03MC41IC0yOS41dC0yOS41IC03MC41di02MDBxMCAtNDEgMjkuNSAtNzAuNXQ3MC41IC0yOS41aDYwMHE0MSAwIDcwLjUgMjkuNSB0MjkuNSA3MC41djYwMHEwIDQxIC0yOS41IDcwLjV0LTcwLjUgMjkuNXpNMzUwIDkwMGg1MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTMwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNTAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYzMDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek00MDAgODAwdi0yMDBoNDAwdjIwMGgtNDAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyMzg7IiBkPSJNMTUwIDExMDBoMTAwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXQtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNTB2LTIwMGg1MHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXQtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNTB2LTIwMGg1MHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXQtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNTB2LTIwMGg1MHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXQtMTQuNSAtMzUuNSB0LTM1LjUgLTE0LjVoLTEwMDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41dDE0LjUgMzUuNXQzNS41IDE0LjVoNTB2MjAwaC01MHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV0MTQuNSAzNS41dDM1LjUgMTQuNWg1MHYyMDBoLTUwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXQxNC41IDM1LjV0MzUuNSAxNC41aDUwdjIwMGgtNTBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41dDE0LjUgMzUuNXQzNS41IDE0LjV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTIzOTsiIGQ9Ik02NTAgMTE4N3E4NyAtNjcgMTE4LjUgLTE1NnQwIC0xNzh0LTExOC41IC0xNTVxLTg3IDY2IC0xMTguNSAxNTV0MCAxNzh0MTE4LjUgMTU2ek0zMDAgODAwcTEyNCAwIDIxMiAtODh0ODggLTIxMnEtMTI0IDAgLTIxMiA4OHQtODggMjEyek0xMDAwIDgwMHEwIC0xMjQgLTg4IC0yMTJ0LTIxMiAtODhxMCAxMjQgODggMjEydDIxMiA4OHpNMzAwIDUwMHExMjQgMCAyMTIgLTg4dDg4IC0yMTJxLTEyNCAwIC0yMTIgODh0LTg4IDIxMnogTTEwMDAgNTAwcTAgLTEyNCAtODggLTIxMnQtMjEyIC04OHEwIDEyNCA4OCAyMTJ0MjEyIDg4ek03MDAgMTk5di0xNDRxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjV0LTM1LjUgMTQuNXQtMTQuNSAzNS41djE0MnE0MCAtNCA0MyAtNHExNyAwIDU3IDZ6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTI0MDsiIGQ9Ik03NDUgODc4bDY5IDE5cTI1IDYgNDUgLTEybDI5OCAtMjk1cTExIC0xMSAxNSAtMjYuNXQtMiAtMzAuNXEtNSAtMTQgLTE4IC0yMy41dC0yOCAtOS41aC04cTEgMCAxIC0xM3EwIC0yOSAtMiAtNTZ0LTguNSAtNjJ0LTIwIC02M3QtMzMgLTUzdC01MSAtMzl0LTcyLjUgLTE0aC0xNDZxLTE4NCAwIC0xODQgMjg4cTAgMjQgMTAgNDdxLTIwIDQgLTYyIDR0LTYzIC00cTExIC0yNCAxMSAtNDdxMCAtMjg4IC0xODQgLTI4OGgtMTQyIHEtNDggMCAtODQuNSAyMXQtNTYgNTF0LTMyIDcxLjV0LTE2IDc1dC0zLjUgNjguNXEwIDEzIDIgMTNoLTdxLTE1IDAgLTI3LjUgOS41dC0xOC41IDIzLjVxLTYgMTUgLTIgMzAuNXQxNSAyNS41bDI5OCAyOTZxMjAgMTggNDYgMTFsNzYgLTE5cTIwIC01IDMwLjUgLTIyLjV0NS41IC0zNy41dC0yMi41IC0zMXQtMzcuNSAtNWwtNTEgMTJsLTE4MiAtMTkzaDg5MWwtMTgyIDE5M2wtNDQgLTEycS0yMCAtNSAtMzcuNSA2dC0yMi41IDMxdDYgMzcuNSB0MzEgMjIuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjQxOyIgZD0iTTEyMDAgOTAwaC01MHEwIDIxIC00IDM3dC05LjUgMjYuNXQtMTggMTcuNXQtMjIgMTF0LTI4LjUgNS41dC0zMSAydC0zNyAwLjVoLTIwMHYtODUwcTAgLTIyIDI1IC0zNC41dDUwIC0xMy41bDI1IC0ydi0xMDBoLTQwMHYxMDBxNCAwIDExIDAuNXQyNCAzdDMwIDd0MjQgMTV0MTEgMjQuNXY4NTBoLTIwMHEtMjUgMCAtMzcgLTAuNXQtMzEgLTJ0LTI4LjUgLTUuNXQtMjIgLTExdC0xOCAtMTcuNXQtOS41IC0yNi41dC00IC0zN2gtNTB2MzAwIGgxMDAwdi0zMDB6TTUwMCA0NTBoLTI1cTAgMTUgLTQgMjQuNXQtOSAxNC41dC0xNyA3LjV0LTIwIDN0LTI1IDAuNWgtMTAwdi00MjVxMCAtMTEgMTIuNSAtMTcuNXQyNS41IC03LjVoMTJ2LTUwaC0yMDB2NTBxNTAgMCA1MCAyNXY0MjVoLTEwMHEtMTcgMCAtMjUgLTAuNXQtMjAgLTN0LTE3IC03LjV0LTkgLTE0LjV0LTQgLTI0LjVoLTI1djE1MGg1MDB2LTE1MHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjQyOyIgZD0iTTEwMDAgMzAwdjUwcS0yNSAwIC01NSAzMnEtMTQgMTQgLTI1IDMxdC0xNiAyN2wtNCAxMWwtMjg5IDc0N2gtNjlsLTMwMCAtNzU0cS0xOCAtMzUgLTM5IC01NnEtOSAtOSAtMjQuNSAtMTguNXQtMjYuNSAtMTQuNWwtMTEgLTV2LTUwaDI3M3Y1MHEtNDkgMCAtNzguNSAyMS41dC0xMS41IDY3LjVsNjkgMTc2aDI5M2w2MSAtMTY2cTEzIC0zNCAtMy41IC02Ni41dC01NS41IC0zMi41di01MGgzMTJ6TTQxMiA2OTFsMTM0IDM0MmwxMjEgLTM0MiBoLTI1NXpNMTEwMCAxNTB2LTEwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtMTAwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2MTAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNWgxMDAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyNDM7IiBkPSJNNTAgMTIwMGgxMTAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0xMTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xMTAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXYxMTAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNNjExIDExMThoLTcwcS0xMyAwIC0xOCAtMTJsLTI5OSAtNzUzcS0xNyAtMzIgLTM1IC01MXEtMTggLTE4IC01NiAtMzRxLTEyIC01IC0xMiAtMTh2LTUwcTAgLTggNS41IC0xNHQxNC41IC02IGgyNzNxOCAwIDE0IDZ0NiAxNHY1MHEwIDggLTYgMTR0LTE0IDZxLTU1IDAgLTcxIDIzcS0xMCAxNCAwIDM5bDYzIDE2M2gyNjZsNTcgLTE1M3ExMSAtMzEgLTYgLTU1cS0xMiAtMTcgLTM2IC0xN3EtOCAwIC0xNCAtNnQtNiAtMTR2LTUwcTAgLTggNiAtMTR0MTQgLTZoMzEzcTggMCAxNCA2dDYgMTR2NTBxMCA3IC01LjUgMTN0LTEzLjUgN3EtMTcgMCAtNDIgMjVxLTI1IDI3IC00MCA2M2gtMWwtMjg4IDc0OHEtNSAxMiAtMTkgMTJ6TTYzOSA2MTEgaC0xOTdsMTAzIDI2NHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjQ0OyIgZD0iTTEyMDAgMTEwMGgtMTIwMHYxMDBoMTIwMHYtMTAwek01MCAxMDAwaDQwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtOTAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC00MDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djkwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTY1MCAxMDAwaDQwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtNDAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC00MDAgcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXY0MDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek03MDAgOTAwdi0zMDBoMzAwdjMwMGgtMzAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyNDU7IiBkPSJNNTAgMTIwMGg0MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTkwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNDAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXY5MDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek02NTAgNzAwaDQwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtNDAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC00MDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djQwMCBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek03MDAgNjAwdi0zMDBoMzAwdjMwMGgtMzAwek0xMjAwIDBoLTEyMDB2MTAwaDEyMDB2LTEwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjQ2OyIgZD0iTTUwIDEwMDBoNDAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0zNTBoMTAwdjE1MHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjVoNDAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di0xNTBoMTAwdi0xMDBoLTEwMHYtMTUwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC00MDBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djE1MGgtMTAwdi0zNTBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTQwMCBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djgwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTcwMCA3MDB2LTMwMGgzMDB2MzAwaC0zMDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTI0NzsiIGQ9Ik0xMDAgMGgtMTAwdjEyMDBoMTAwdi0xMjAwek0yNTAgMTEwMGg0MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTQwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtNDAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXY0MDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41ek0zMDAgMTAwMHYtMzAwaDMwMHYzMDBoLTMwMHpNMjUwIDUwMGg5MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTQwMCBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTkwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2NDAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjQ4OyIgZD0iTTYwMCAxMTAwaDE1MHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtNDAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xNTB2LTEwMGg0NTBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTQwMHEwIC0yMSAtMTQuNSAtMzUuNXQtMzUuNSAtMTQuNWgtOTAwcS0yMSAwIC0zNS41IDE0LjV0LTE0LjUgMzUuNXY0MDBxMCAyMSAxNC41IDM1LjV0MzUuNSAxNC41aDM1MHYxMDBoLTE1MHEtMjEgMCAtMzUuNSAxNC41IHQtMTQuNSAzNS41djQwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjVoMTUwdjEwMGgxMDB2LTEwMHpNNDAwIDEwMDB2LTMwMGgzMDB2MzAwaC0zMDB6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTI0OTsiIGQ9Ik0xMjAwIDBoLTEwMHYxMjAwaDEwMHYtMTIwMHpNNTUwIDExMDBoNDAwcTIxIDAgMzUuNSAtMTQuNXQxNC41IC0zNS41di00MDBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTQwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2NDAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXpNNjAwIDEwMDB2LTMwMGgzMDB2MzAwaC0zMDB6TTUwIDUwMGg5MDBxMjEgMCAzNS41IC0xNC41dDE0LjUgLTM1LjV2LTQwMCBxMCAtMjEgLTE0LjUgLTM1LjV0LTM1LjUgLTE0LjVoLTkwMHEtMjEgMCAtMzUuNSAxNC41dC0xNC41IDM1LjV2NDAwcTAgMjEgMTQuNSAzNS41dDM1LjUgMTQuNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjUwOyIgZD0iTTg2NSA1NjVsLTQ5NCAtNDk0cS0yMyAtMjMgLTQxIC0yM3EtMTQgMCAtMjIgMTMuNXQtOCAzOC41djEwMDBxMCAyNSA4IDM4LjV0MjIgMTMuNXExOCAwIDQxIC0yM2w0OTQgLTQ5NHExNCAtMTQgMTQgLTM1dC0xNCAtMzV6IiAvPgo8Z2x5cGggdW5pY29kZT0iJiN4ZTI1MTsiIGQ9Ik0zMzUgNjM1bDQ5NCA0OTRxMjkgMjkgNTAgMjAuNXQyMSAtNDkuNXYtMTAwMHEwIC00MSAtMjEgLTQ5LjV0LTUwIDIwLjVsLTQ5NCA0OTRxLTE0IDE0IC0xNCAzNXQxNCAzNXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjUyOyIgZD0iTTEwMCA5MDBoMTAwMHE0MSAwIDQ5LjUgLTIxdC0yMC41IC01MGwtNDk0IC00OTRxLTE0IC0xNCAtMzUgLTE0dC0zNSAxNGwtNDk0IDQ5NHEtMjkgMjkgLTIwLjUgNTB0NDkuNSAyMXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjUzOyIgZD0iTTYzNSA4NjVsNDk0IC00OTRxMjkgLTI5IDIwLjUgLTUwdC00OS41IC0yMWgtMTAwMHEtNDEgMCAtNDkuNSAyMXQyMC41IDUwbDQ5NCA0OTRxMTQgMTQgMzUgMTR0MzUgLTE0eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyNTQ7IiBkPSJNNzAwIDc0MXYtMTgybC02OTIgLTMyM3YyMjFsNDEzIDE5M2wtNDEzIDE5M3YyMjF6TTEyMDAgMGgtODAwdjIwMGg4MDB2LTIwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjU1OyIgZD0iTTEyMDAgOTAwaC0yMDB2LTEwMGgyMDB2LTEwMGgtMzAwdjMwMGgyMDB2MTAwaC0yMDB2MTAwaDMwMHYtMzAwek0wIDcwMGg1MHEwIDIxIDQgMzd0OS41IDI2LjV0MTggMTcuNXQyMiAxMXQyOC41IDUuNXQzMSAydDM3IDAuNWgxMDB2LTU1MHEwIC0yMiAtMjUgLTM0LjV0LTUwIC0xMy41bC0yNSAtMnYtMTAwaDQwMHYxMDBxLTQgMCAtMTEgMC41dC0yNCAzdC0zMCA3dC0yNCAxNXQtMTEgMjQuNXY1NTBoMTAwcTI1IDAgMzcgLTAuNXQzMSAtMiB0MjguNSAtNS41dDIyIC0xMXQxOCAtMTcuNXQ5LjUgLTI2LjV0NCAtMzdoNTB2MzAwaC04MDB2LTMwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjU2OyIgZD0iTTgwMCA3MDBoLTUwcTAgMjEgLTQgMzd0LTkuNSAyNi41dC0xOCAxNy41dC0yMiAxMXQtMjguNSA1LjV0LTMxIDJ0LTM3IDAuNWgtMTAwdi01NTBxMCAtMjIgMjUgLTM0LjV0NTAgLTE0LjVsMjUgLTF2LTEwMGgtNDAwdjEwMHE0IDAgMTEgMC41dDI0IDN0MzAgN3QyNCAxNXQxMSAyNC41djU1MGgtMTAwcS0yNSAwIC0zNyAtMC41dC0zMSAtMnQtMjguNSAtNS41dC0yMiAtMTF0LTE4IC0xNy41dC05LjUgLTI2LjV0LTQgLTM3aC01MHYzMDAgaDgwMHYtMzAwek0xMTAwIDIwMGgtMjAwdi0xMDBoMjAwdi0xMDBoLTMwMHYzMDBoMjAwdjEwMGgtMjAwdjEwMGgzMDB2LTMwMHoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjU3OyIgZD0iTTcwMSAxMDk4aDE2MHExNiAwIDIxIC0xMXQtNyAtMjNsLTQ2NCAtNDY0bDQ2NCAtNDY0cTEyIC0xMiA3IC0yM3QtMjEgLTExaC0xNjBxLTEzIDAgLTIzIDlsLTQ3MSA0NzFxLTcgOCAtNyAxOHQ3IDE4bDQ3MSA0NzFxMTAgOSAyMyA5eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGUyNTg7IiBkPSJNMzM5IDEwOThoMTYwcTEzIDAgMjMgLTlsNDcxIC00NzFxNyAtOCA3IC0xOHQtNyAtMThsLTQ3MSAtNDcxcS0xMCAtOSAtMjMgLTloLTE2MHEtMTYgMCAtMjEgMTF0NyAyM2w0NjQgNDY0bC00NjQgNDY0cS0xMiAxMiAtNyAyM3QyMSAxMXoiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjU5OyIgZD0iTTEwODcgODgycTExIC01IDExIC0yMXYtMTYwcTAgLTEzIC05IC0yM2wtNDcxIC00NzFxLTggLTcgLTE4IC03dC0xOCA3bC00NzEgNDcxcS05IDEwIC05IDIzdjE2MHEwIDE2IDExIDIxdDIzIC03bDQ2NCAtNDY0bDQ2NCA0NjRxMTIgMTIgMjMgN3oiIC8+CjxnbHlwaCB1bmljb2RlPSImI3hlMjYwOyIgZD0iTTYxOCA5OTNsNDcxIC00NzFxOSAtMTAgOSAtMjN2LTE2MHEwIC0xNiAtMTEgLTIxdC0yMyA3bC00NjQgNDY0bC00NjQgLTQ2NHEtMTIgLTEyIC0yMyAtN3QtMTEgMjF2MTYwcTAgMTMgOSAyM2w0NzEgNDcxcTggNyAxOCA3dDE4IC03eiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeGY4ZmY7IiBkPSJNMTAwMCAxMjAwcTAgLTEyNCAtODggLTIxMnQtMjEyIC04OHEwIDEyNCA4OCAyMTJ0MjEyIDg4ek00NTAgMTAwMGgxMDBxMjEgMCA0MCAtMTR0MjYgLTMzbDc5IC0xOTRxNSAxIDE2IDNxMzQgNiA1NCA5LjV0NjAgN3Q2NS41IDF0NjEgLTEwdDU2LjUgLTIzdDQyLjUgLTQydDI5IC02NHQ1IC05MnQtMTkuNSAtMTIxLjVxLTEgLTcgLTMgLTE5LjV0LTExIC01MHQtMjAuNSAtNzN0LTMyLjUgLTgxLjV0LTQ2LjUgLTgzdC02NCAtNzAgdC04Mi41IC01MHEtMTMgLTUgLTQyIC01dC02NS41IDIuNXQtNDcuNSAyLjVxLTE0IDAgLTQ5LjUgLTMuNXQtNjMgLTMuNXQtNDMuNSA3cS01NyAyNSAtMTA0LjUgNzguNXQtNzUgMTExLjV0LTQ2LjUgMTEydC0yNiA5MGwtNyAzNXEtMTUgNjMgLTE4IDExNXQ0LjUgODguNXQyNiA2NHQzOS41IDQzLjV0NTIgMjUuNXQ1OC41IDEzdDYyLjUgMnQ1OS41IC00LjV0NTUuNSAtOGwtMTQ3IDE5MnEtMTIgMTggLTUuNSAzMHQyNy41IDEyeiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeDFmNTExOyIgZD0iTTI1MCAxMjAwaDYwMHEyMSAwIDM1LjUgLTE0LjV0MTQuNSAtMzUuNXYtNDAwcTAgLTIxIC0xNC41IC0zNS41dC0zNS41IC0xNC41aC0xNTB2LTUwMGwtMjU1IC0xNzhxLTE5IC05IC0zMiAtMXQtMTMgMjl2NjUwaC0xNTBxLTIxIDAgLTM1LjUgMTQuNXQtMTQuNSAzNS41djQwMHEwIDIxIDE0LjUgMzUuNXQzNS41IDE0LjV6TTQwMCAxMTAwdi0xMDBoMzAwdjEwMGgtMzAweiIgLz4KPGdseXBoIHVuaWNvZGU9IiYjeDFmNmFhOyIgZD0iTTI1MCAxMjAwaDc1MHEzOSAwIDY5LjUgLTQwLjV0MzAuNSAtODQuNXYtOTMzbC03MDAgLTExN3Y5NTBsNjAwIDEyNWgtNzAwdi0xMDAwaC0xMDB2MTAyNXEwIDIzIDE1LjUgNDl0MzQuNSAyNnpNNTAwIDUyNXYtMTAwbDEwMCAyMHYxMDB6IiAvPgo8L2ZvbnQ+CjwvZGVmcz48L3N2Zz4g) format("svg")}.glyphicon{position:relative;top:1px;display:inline-block;font-family:"Glyphicons Halflings";font-style:normal;font-weight:400;line-height:1;-webkit-font-smoothing:antialiased;-moz-osx-font-smoothing:grayscale}.glyphicon-asterisk:before{content:"\002a"}.glyphicon-plus:before{content:"\002b"}.glyphicon-euro:before,.glyphicon-eur:before{content:"\20ac"}.glyphicon-minus:before{content:"\2212"}.glyphicon-cloud:before{content:"\2601"}.glyphicon-envelope:before{content:"\2709"}.glyphicon-pencil:before{content:"\270f"}.glyphicon-glass:before{content:"\e001"}.glyphicon-music:before{content:"\e002"}.glyphicon-search:before{content:"\e003"}.glyphicon-heart:before{content:"\e005"}.glyphicon-star:before{content:"\e006"}.glyphicon-star-empty:before{content:"\e007"}.glyphicon-user:before{content:"\e008"}.glyphicon-film:before{content:"\e009"}.glyphicon-th-large:before{content:"\e010"}.glyphicon-th:before{content:"\e011"}.glyphicon-th-list:before{content:"\e012"}.glyphicon-ok:before{content:"\e013"}.glyphicon-remove:before{content:"\e014"}.glyphicon-zoom-in:before{content:"\e015"}.glyphicon-zoom-out:before{content:"\e016"}.glyphicon-off:before{content:"\e017"}.glyphicon-signal:before{content:"\e018"}.glyphicon-cog:before{content:"\e019"}.glyphicon-trash:before{content:"\e020"}.glyphicon-home:before{content:"\e021"}.glyphicon-file:before{content:"\e022"}.glyphicon-time:before{content:"\e023"}.glyphicon-road:before{content:"\e024"}.glyphicon-download-alt:before{content:"\e025"}.glyphicon-download:before{content:"\e026"}.glyphicon-upload:before{content:"\e027"}.glyphicon-inbox:before{content:"\e028"}.glyphicon-play-circle:before{content:"\e029"}.glyphicon-repeat:before{content:"\e030"}.glyphicon-refresh:before{content:"\e031"}.glyphicon-list-alt:before{content:"\e032"}.glyphicon-lock:before{content:"\e033"}.glyphicon-flag:before{content:"\e034"}.glyphicon-headphones:before{content:"\e035"}.glyphicon-volume-off:before{content:"\e036"}.glyphicon-volume-down:before{content:"\e037"}.glyphicon-volume-up:before{content:"\e038"}.glyphicon-qrcode:before{content:"\e039"}.glyphicon-barcode:before{content:"\e040"}.glyphicon-tag:before{content:"\e041"}.glyphicon-tags:before{content:"\e042"}.glyphicon-book:before{content:"\e043"}.glyphicon-bookmark:before{content:"\e044"}.glyphicon-print:before{content:"\e045"}.glyphicon-camera:before{content:"\e046"}.glyphicon-font:before{content:"\e047"}.glyphicon-bold:before{content:"\e048"}.glyphicon-italic:before{content:"\e049"}.glyphicon-text-height:before{content:"\e050"}.glyphicon-text-width:before{content:"\e051"}.glyphicon-align-left:before{content:"\e052"}.glyphicon-align-center:before{content:"\e053"}.glyphicon-align-right:before{content:"\e054"}.glyphicon-align-justify:before{content:"\e055"}.glyphicon-list:before{content:"\e056"}.glyphicon-indent-left:before{content:"\e057"}.glyphicon-indent-right:before{content:"\e058"}.glyphicon-facetime-video:before{content:"\e059"}.glyphicon-picture:before{content:"\e060"}.glyphicon-map-marker:before{content:"\e062"}.glyphicon-adjust:before{content:"\e063"}.glyphicon-tint:before{content:"\e064"}.glyphicon-edit:before{content:"\e065"}.glyphicon-share:before{content:"\e066"}.glyphicon-check:before{content:"\e067"}.glyphicon-move:before{content:"\e068"}.glyphicon-step-backward:before{content:"\e069"}.glyphicon-fast-backward:before{content:"\e070"}.glyphicon-backward:before{content:"\e071"}.glyphicon-play:before{content:"\e072"}.glyphicon-pause:before{content:"\e073"}.glyphicon-stop:before{content:"\e074"}.glyphicon-forward:before{content:"\e075"}.glyphicon-fast-forward:before{content:"\e076"}.glyphicon-step-forward:before{content:"\e077"}.glyphicon-eject:before{content:"\e078"}.glyphicon-chevron-left:before{content:"\e079"}.glyphicon-chevron-right:before{content:"\e080"}.glyphicon-plus-sign:before{content:"\e081"}.glyphicon-minus-sign:before{content:"\e082"}.glyphicon-remove-sign:before{content:"\e083"}.glyphicon-ok-sign:before{content:"\e084"}.glyphicon-question-sign:before{content:"\e085"}.glyphicon-info-sign:before{content:"\e086"}.glyphicon-screenshot:before{content:"\e087"}.glyphicon-remove-circle:before{content:"\e088"}.glyphicon-ok-circle:before{content:"\e089"}.glyphicon-ban-circle:before{content:"\e090"}.glyphicon-arrow-left:before{content:"\e091"}.glyphicon-arrow-right:before{content:"\e092"}.glyphicon-arrow-up:before{content:"\e093"}.glyphicon-arrow-down:before{content:"\e094"}.glyphicon-share-alt:before{content:"\e095"}.glyphicon-resize-full:before{content:"\e096"}.glyphicon-resize-small:before{content:"\e097"}.glyphicon-exclamation-sign:before{content:"\e101"}.glyphicon-gift:before{content:"\e102"}.glyphicon-leaf:before{content:"\e103"}.glyphicon-fire:before{content:"\e104"}.glyphicon-eye-open:before{content:"\e105"}.glyphicon-eye-close:before{content:"\e106"}.glyphicon-warning-sign:before{content:"\e107"}.glyphicon-plane:before{content:"\e108"}.glyphicon-calendar:before{content:"\e109"}.glyphicon-random:before{content:"\e110"}.glyphicon-comment:before{content:"\e111"}.glyphicon-magnet:before{content:"\e112"}.glyphicon-chevron-up:before{content:"\e113"}.glyphicon-chevron-down:before{content:"\e114"}.glyphicon-retweet:before{content:"\e115"}.glyphicon-shopping-cart:before{content:"\e116"}.glyphicon-folder-close:before{content:"\e117"}.glyphicon-folder-open:before{content:"\e118"}.glyphicon-resize-vertical:before{content:"\e119"}.glyphicon-resize-horizontal:before{content:"\e120"}.glyphicon-hdd:before{content:"\e121"}.glyphicon-bullhorn:before{content:"\e122"}.glyphicon-bell:before{content:"\e123"}.glyphicon-certificate:before{content:"\e124"}.glyphicon-thumbs-up:before{content:"\e125"}.glyphicon-thumbs-down:before{content:"\e126"}.glyphicon-hand-right:before{content:"\e127"}.glyphicon-hand-left:before{content:"\e128"}.glyphicon-hand-up:before{content:"\e129"}.glyphicon-hand-down:before{content:"\e130"}.glyphicon-circle-arrow-right:before{content:"\e131"}.glyphicon-circle-arrow-left:before{content:"\e132"}.glyphicon-circle-arrow-up:before{content:"\e133"}.glyphicon-circle-arrow-down:before{content:"\e134"}.glyphicon-globe:before{content:"\e135"}.glyphicon-wrench:before{content:"\e136"}.glyphicon-tasks:before{content:"\e137"}.glyphicon-filter:before{content:"\e138"}.glyphicon-briefcase:before{content:"\e139"}.glyphicon-fullscreen:before{content:"\e140"}.glyphicon-dashboard:before{content:"\e141"}.glyphicon-paperclip:before{content:"\e142"}.glyphicon-heart-empty:before{content:"\e143"}.glyphicon-link:before{content:"\e144"}.glyphicon-phone:before{content:"\e145"}.glyphicon-pushpin:before{content:"\e146"}.glyphicon-usd:before{content:"\e148"}.glyphicon-gbp:before{content:"\e149"}.glyphicon-sort:before{content:"\e150"}.glyphicon-sort-by-alphabet:before{content:"\e151"}.glyphicon-sort-by-alphabet-alt:before{content:"\e152"}.glyphicon-sort-by-order:before{content:"\e153"}.glyphicon-sort-by-order-alt:before{content:"\e154"}.glyphicon-sort-by-attributes:before{content:"\e155"}.glyphicon-sort-by-attributes-alt:before{content:"\e156"}.glyphicon-unchecked:before{content:"\e157"}.glyphicon-expand:before{content:"\e158"}.glyphicon-collapse-down:before{content:"\e159"}.glyphicon-collapse-up:before{content:"\e160"}.glyphicon-log-in:before{content:"\e161"}.glyphicon-flash:before{content:"\e162"}.glyphicon-log-out:before{content:"\e163"}.glyphicon-new-window:before{content:"\e164"}.glyphicon-record:before{content:"\e165"}.glyphicon-save:before{content:"\e166"}.glyphicon-open:before{content:"\e167"}.glyphicon-saved:before{content:"\e168"}.glyphicon-import:before{content:"\e169"}.glyphicon-export:before{content:"\e170"}.glyphicon-send:before{content:"\e171"}.glyphicon-floppy-disk:before{content:"\e172"}.glyphicon-floppy-saved:before{content:"\e173"}.glyphicon-floppy-remove:before{content:"\e174"}.glyphicon-floppy-save:before{content:"\e175"}.glyphicon-floppy-open:before{content:"\e176"}.glyphicon-credit-card:before{content:"\e177"}.glyphicon-transfer:before{content:"\e178"}.glyphicon-cutlery:before{content:"\e179"}.glyphicon-header:before{content:"\e180"}.glyphicon-compressed:before{content:"\e181"}.glyphicon-earphone:before{content:"\e182"}.glyphicon-phone-alt:before{content:"\e183"}.glyphicon-tower:before{content:"\e184"}.glyphicon-stats:before{content:"\e185"}.glyphicon-sd-video:before{content:"\e186"}.glyphicon-hd-video:before{content:"\e187"}.glyphicon-subtitles:before{content:"\e188"}.glyphicon-sound-stereo:before{content:"\e189"}.glyphicon-sound-dolby:before{content:"\e190"}.glyphicon-sound-5-1:before{content:"\e191"}.glyphicon-sound-6-1:before{content:"\e192"}.glyphicon-sound-7-1:before{content:"\e193"}.glyphicon-copyright-mark:before{content:"\e194"}.glyphicon-registration-mark:before{content:"\e195"}.glyphicon-cloud-download:before{content:"\e197"}.glyphicon-cloud-upload:before{content:"\e198"}.glyphicon-tree-conifer:before{content:"\e199"}.glyphicon-tree-deciduous:before{content:"\e200"}.glyphicon-cd:before{content:"\e201"}.glyphicon-save-file:before{content:"\e202"}.glyphicon-open-file:before{content:"\e203"}.glyphicon-level-up:before{content:"\e204"}.glyphicon-copy:before{content:"\e205"}.glyphicon-paste:before{content:"\e206"}.glyphicon-alert:before{content:"\e209"}.glyphicon-equalizer:before{content:"\e210"}.glyphicon-king:before{content:"\e211"}.glyphicon-queen:before{content:"\e212"}.glyphicon-pawn:before{content:"\e213"}.glyphicon-bishop:before{content:"\e214"}.glyphicon-knight:before{content:"\e215"}.glyphicon-baby-formula:before{content:"\e216"}.glyphicon-tent:before{content:"\26fa"}.glyphicon-blackboard:before{content:"\e218"}.glyphicon-bed:before{content:"\e219"}.glyphicon-apple:before{content:"\f8ff"}.glyphicon-erase:before{content:"\e221"}.glyphicon-hourglass:before{content:"\231b"}.glyphicon-lamp:before{content:"\e223"}.glyphicon-duplicate:before{content:"\e224"}.glyphicon-piggy-bank:before{content:"\e225"}.glyphicon-scissors:before{content:"\e226"}.glyphicon-bitcoin:before{content:"\e227"}.glyphicon-btc:before{content:"\e227"}.glyphicon-xbt:before{content:"\e227"}.glyphicon-yen:before{content:"\00a5"}.glyphicon-jpy:before{content:"\00a5"}.glyphicon-ruble:before{content:"\20bd"}.glyphicon-rub:before{content:"\20bd"}.glyphicon-scale:before{content:"\e230"}.glyphicon-ice-lolly:before{content:"\e231"}.glyphicon-ice-lolly-tasted:before{content:"\e232"}.glyphicon-education:before{content:"\e233"}.glyphicon-option-horizontal:before{content:"\e234"}.glyphicon-option-vertical:before{content:"\e235"}.glyphicon-menu-hamburger:before{content:"\e236"}.glyphicon-modal-window:before{content:"\e237"}.glyphicon-oil:before{content:"\e238"}.glyphicon-grain:before{content:"\e239"}.glyphicon-sunglasses:before{content:"\e240"}.glyphicon-text-size:before{content:"\e241"}.glyphicon-text-color:before{content:"\e242"}.glyphicon-text-background:before{content:"\e243"}.glyphicon-object-align-top:before{content:"\e244"}.glyphicon-object-align-bottom:before{content:"\e245"}.glyphicon-object-align-horizontal:before{content:"\e246"}.glyphicon-object-align-left:before{content:"\e247"}.glyphicon-object-align-vertical:before{content:"\e248"}.glyphicon-object-align-right:before{content:"\e249"}.glyphicon-triangle-right:before{content:"\e250"}.glyphicon-triangle-left:before{content:"\e251"}.glyphicon-triangle-bottom:before{content:"\e252"}.glyphicon-triangle-top:before{content:"\e253"}.glyphicon-console:before{content:"\e254"}.glyphicon-superscript:before{content:"\e255"}.glyphicon-subscript:before{content:"\e256"}.glyphicon-menu-left:before{content:"\e257"}.glyphicon-menu-right:before{content:"\e258"}.glyphicon-menu-down:before{content:"\e259"}.glyphicon-menu-up:before{content:"\e260"}*{-webkit-box-sizing:border-box;-moz-box-sizing:border-box;box-sizing:border-box}*:before,*:after{-webkit-box-sizing:border-box;-moz-box-sizing:border-box;box-sizing:border-box}html{font-size:10px;-webkit-tap-highlight-color:rgba(0,0,0,0)}body{font-family:"Helvetica Neue",Helvetica,Arial,sans-serif;font-size:14px;line-height:1.42857143;color:#333;background-color:#fff}input,button,select,textarea{font-family:inherit;font-size:inherit;line-height:inherit}a{color:#337ab7;text-decoration:none}a:hover,a:focus{color:#23527c;text-decoration:underline}a:focus{outline:5px auto -webkit-focus-ring-color;outline-offset:-2px}figure{margin:0}img{vertical-align:middle}.img-responsive,.thumbnail>img,.thumbnail a>img,.carousel-inner>.item>img,.carousel-inner>.item>a>img{display:block;max-width:100%;height:auto}.img-rounded{border-radius:6px}.img-thumbnail{padding:4px;line-height:1.42857143;background-color:#fff;border:1px solid #ddd;border-radius:4px;-webkit-transition:all .2s ease-in-out;-o-transition:all .2s ease-in-out;transition:all .2s ease-in-out;display:inline-block;max-width:100%;height:auto}.img-circle{border-radius:50%}hr{margin-top:20px;margin-bottom:20px;border:0;border-top:1px solid #eee}.sr-only{position:absolute;width:1px;height:1px;padding:0;margin:-1px;overflow:hidden;clip:rect(0,0,0,0);border:0}.sr-only-focusable:active,.sr-only-focusable:focus{position:static;width:auto;height:auto;margin:0;overflow:visible;clip:auto}[role="button"]{cursor:pointer}h1,h2,h3,h4,h5,h6,.h1,.h2,.h3,.h4,.h5,.h6{font-family:inherit;font-weight:500;line-height:1.1;color:inherit}h1 small,h2 small,h3 small,h4 small,h5 small,h6 small,.h1 small,.h2 small,.h3 small,.h4 small,.h5 small,.h6 small,h1 .small,h2 .small,h3 .small,h4 .small,h5 .small,h6 .small,.h1 .small,.h2 .small,.h3 .small,.h4 .small,.h5 .small,.h6 .small{font-weight:400;line-height:1;color:#777}h1,.h1,h2,.h2,h3,.h3{margin-top:20px;margin-bottom:10px}h1 small,.h1 small,h2 small,.h2 small,h3 small,.h3 small,h1 .small,.h1 .small,h2 .small,.h2 .small,h3 .small,.h3 .small{font-size:65%}h4,.h4,h5,.h5,h6,.h6{margin-top:10px;margin-bottom:10px}h4 small,.h4 small,h5 small,.h5 small,h6 small,.h6 small,h4 .small,.h4 .small,h5 .small,.h5 .small,h6 .small,.h6 .small{font-size:75%}h1,.h1{font-size:36px}h2,.h2{font-size:30px}h3,.h3{font-size:24px}h4,.h4{font-size:18px}h5,.h5{font-size:14px}h6,.h6{font-size:12px}p{margin:0 0 10px}.lead{margin-bottom:20px;font-size:16px;font-weight:300;line-height:1.4}@media(min-width:768px){.lead{font-size:21px}}small,.small{font-size:85%}mark,.mark{padding:.2em;background-color:#fcf8e3}.text-left{text-align:left}.text-right{text-align:right}.text-center{text-align:center}.text-justify{text-align:justify}.text-nowrap{white-space:nowrap}.text-lowercase{text-transform:lowercase}.text-uppercase{text-transform:uppercase}.text-capitalize{text-transform:capitalize}.text-muted{color:#777}.text-primary{color:#337ab7}a.text-primary:hover,a.text-primary:focus{color:#286090}.text-success{color:#3c763d}a.text-success:hover,a.text-success:focus{color:#2b542c}.text-info{color:#31708f}a.text-info:hover,a.text-info:focus{color:#245269}.text-warning{color:#8a6d3b}a.text-warning:hover,a.text-warning:focus{color:#66512c}.text-danger{color:#a94442}a.text-danger:hover,a.text-danger:focus{color:#843534}.bg-primary{color:#fff;background-color:#337ab7}a.bg-primary:hover,a.bg-primary:focus{background-color:#286090}.bg-success{background-color:#dff0d8}a.bg-success:hover,a.bg-success:focus{background-color:#c1e2b3}.bg-info{background-color:#d9edf7}a.bg-info:hover,a.bg-info:focus{background-color:#afd9ee}.bg-warning{background-color:#fcf8e3}a.bg-warning:hover,a.bg-warning:focus{background-color:#f7ecb5}.bg-danger{background-color:#f2dede}a.bg-danger:hover,a.bg-danger:focus{background-color:#e4b9b9}.page-header{padding-bottom:9px;margin:40px 0 20px;border-bottom:1px solid #eee}ul,ol{margin-top:0;margin-bottom:10px}ul ul,ol ul,ul ol,ol ol{margin-bottom:0}.list-unstyled{padding-left:0;list-style:none}.list-inline{padding-left:0;list-style:none;margin-left:-5px}.list-inline>li{display:inline-block;padding-right:5px;padding-left:5px}dl{margin-top:0;margin-bottom:20px}dt,dd{line-height:1.42857143}dt{font-weight:700}dd{margin-left:0}@media(min-width:768px){.dl-horizontal dt{float:left;width:160px;clear:left;text-align:right;overflow:hidden;text-overflow:ellipsis;white-space:nowrap}.dl-horizontal dd{margin-left:180px}}abbr[title],abbr[data-original-title]{cursor:help}.initialism{font-size:90%;text-transform:uppercase}blockquote{padding:10px 20px;margin:0 0 20px;font-size:17.5px;border-left:5px solid #eee}blockquote p:last-child,blockquote ul:last-child,blockquote ol:last-child{margin-bottom:0}blockquote footer,blockquote small,blockquote .small{display:block;font-size:80%;line-height:1.42857143;color:#777}blockquote footer:before,blockquote small:before,blockquote .small:before{content:"\2014 \00A0"}.blockquote-reverse,blockquote.pull-right{padding-right:15px;padding-left:0;text-align:right;border-right:5px solid #eee;border-left:0}.blockquote-reverse footer:before,blockquote.pull-right footer:before,.blockquote-reverse small:before,blockquote.pull-right small:before,.blockquote-reverse .small:before,blockquote.pull-right .small:before{content:""}.blockquote-reverse footer:after,blockquote.pull-right footer:after,.blockquote-reverse small:after,blockquote.pull-right small:after,.blockquote-reverse .small:after,blockquote.pull-right .small:after{content:"\00A0 \2014"}address{margin-bottom:20px;font-style:normal;line-height:1.42857143}code,kbd,pre,samp{font-family:Menlo,Monaco,Consolas,"Courier New",monospace}code{padding:2px 4px;font-size:90%;color:#c7254e;background-color:#f9f2f4;border-radius:4px}kbd{padding:2px 4px;font-size:90%;color:#fff;background-color:#333;border-radius:3px;box-shadow:inset 0 -1px 0 rgba(0,0,0,0.25)}kbd kbd{padding:0;font-size:100%;font-weight:700;box-shadow:none}pre{display:block;padding:9.5px;margin:0 0 10px;font-size:13px;line-height:1.42857143;color:#333;word-break:break-all;word-wrap:break-word;background-color:#f5f5f5;border:1px solid #ccc;border-radius:4px}pre code{padding:0;font-size:inherit;color:inherit;white-space:pre-wrap;background-color:transparent;border-radius:0}.pre-scrollable{max-height:340px;overflow-y:scroll}.container{padding-right:15px;padding-left:15px;margin-right:auto;margin-left:auto}@media(min-width:768px){.container{width:750px}}@media(min-width:992px){.container{width:970px}}@media(min-width:1200px){.container{width:1170px}}.container-fluid{padding-right:15px;padding-left:15px;margin-right:auto;margin-left:auto}.row{margin-right:-15px;margin-left:-15px}.row-no-gutters{margin-right:0;margin-left:0}.row-no-gutters [class*="col-"]{padding-right:0;padding-left:0}.col-xs-1,.col-sm-1,.col-md-1,.col-lg-1,.col-xs-2,.col-sm-2,.col-md-2,.col-lg-2,.col-xs-3,.col-sm-3,.col-md-3,.col-lg-3,.col-xs-4,.col-sm-4,.col-md-4,.col-lg-4,.col-xs-5,.col-sm-5,.col-md-5,.col-lg-5,.col-xs-6,.col-sm-6,.col-md-6,.col-lg-6,.col-xs-7,.col-sm-7,.col-md-7,.col-lg-7,.col-xs-8,.col-sm-8,.col-md-8,.col-lg-8,.col-xs-9,.col-sm-9,.col-md-9,.col-lg-9,.col-xs-10,.col-sm-10,.col-md-10,.col-lg-10,.col-xs-11,.col-sm-11,.col-md-11,.col-lg-11,.col-xs-12,.col-sm-12,.col-md-12,.col-lg-12{position:relative;min-height:1px;padding-right:15px;padding-left:15px}.col-xs-1,.col-xs-2,.col-xs-3,.col-xs-4,.col-xs-5,.col-xs-6,.col-xs-7,.col-xs-8,.col-xs-9,.col-xs-10,.col-xs-11,.col-xs-12{float:left}.col-xs-12{width:100%}.col-xs-11{width:91.66666667%}.col-xs-10{width:83.33333333%}.col-xs-9{width:75%}.col-xs-8{width:66.66666667%}.col-xs-7{width:58.33333333%}.col-xs-6{width:50%}.col-xs-5{width:41.66666667%}.col-xs-4{width:33.33333333%}.col-xs-3{width:25%}.col-xs-2{width:16.66666667%}.col-xs-1{width:8.33333333%}.col-xs-pull-12{right:100%}.col-xs-pull-11{right:91.66666667%}.col-xs-pull-10{right:83.33333333%}.col-xs-pull-9{right:75%}.col-xs-pull-8{right:66.66666667%}.col-xs-pull-7{right:58.33333333%}.col-xs-pull-6{right:50%}.col-xs-pull-5{right:41.66666667%}.col-xs-pull-4{right:33.33333333%}.col-xs-pull-3{right:25%}.col-xs-pull-2{right:16.66666667%}.col-xs-pull-1{right:8.33333333%}.col-xs-pull-0{right:auto}.col-xs-push-12{left:100%}.col-xs-push-11{left:91.66666667%}.col-xs-push-10{left:83.33333333%}.col-xs-push-9{left:75%}.col-xs-push-8{left:66.66666667%}.col-xs-push-7{left:58.33333333%}.col-xs-push-6{left:50%}.col-xs-push-5{left:41.66666667%}.col-xs-push-4{left:33.33333333%}.col-xs-push-3{left:25%}.col-xs-push-2{left:16.66666667%}.col-xs-push-1{left:8.33333333%}.col-xs-push-0{left:auto}.col-xs-offset-12{margin-left:100%}.col-xs-offset-11{margin-left:91.66666667%}.col-xs-offset-10{margin-left:83.33333333%}.col-xs-offset-9{margin-left:75%}.col-xs-offset-8{margin-left:66.66666667%}.col-xs-offset-7{margin-left:58.33333333%}.col-xs-offset-6{margin-left:50%}.col-xs-offset-5{margin-left:41.66666667%}.col-xs-offset-4{margin-left:33.33333333%}.col-xs-offset-3{margin-left:25%}.col-xs-offset-2{margin-left:16.66666667%}.col-xs-offset-1{margin-left:8.33333333%}.col-xs-offset-0{margin-left:0}@media(min-width:768px){.col-sm-1,.col-sm-2,.col-sm-3,.col-sm-4,.col-sm-5,.col-sm-6,.col-sm-7,.col-sm-8,.col-sm-9,.col-sm-10,.col-sm-11,.col-sm-12{float:left}.col-sm-12{width:100%}.col-sm-11{width:91.66666667%}.col-sm-10{width:83.33333333%}.col-sm-9{width:75%}.col-sm-8{width:66.66666667%}.col-sm-7{width:58.33333333%}.col-sm-6{width:50%}.col-sm-5{width:41.66666667%}.col-sm-4{width:33.33333333%}.col-sm-3{width:25%}.col-sm-2{width:16.66666667%}.col-sm-1{width:8.33333333%}.col-sm-pull-12{right:100%}.col-sm-pull-11{right:91.66666667%}.col-sm-pull-10{right:83.33333333%}.col-sm-pull-9{right:75%}.col-sm-pull-8{right:66.66666667%}.col-sm-pull-7{right:58.33333333%}.col-sm-pull-6{right:50%}.col-sm-pull-5{right:41.66666667%}.col-sm-pull-4{right:33.33333333%}.col-sm-pull-3{right:25%}.col-sm-pull-2{right:16.66666667%}.col-sm-pull-1{right:8.33333333%}.col-sm-pull-0{right:auto}.col-sm-push-12{left:100%}.col-sm-push-11{left:91.66666667%}.col-sm-push-10{left:83.33333333%}.col-sm-push-9{left:75%}.col-sm-push-8{left:66.66666667%}.col-sm-push-7{left:58.33333333%}.col-sm-push-6{left:50%}.col-sm-push-5{left:41.66666667%}.col-sm-push-4{left:33.33333333%}.col-sm-push-3{left:25%}.col-sm-push-2{left:16.66666667%}.col-sm-push-1{left:8.33333333%}.col-sm-push-0{left:auto}.col-sm-offset-12{margin-left:100%}.col-sm-offset-11{margin-left:91.66666667%}.col-sm-offset-10{margin-left:83.33333333%}.col-sm-offset-9{margin-left:75%}.col-sm-offset-8{margin-left:66.66666667%}.col-sm-offset-7{margin-left:58.33333333%}.col-sm-offset-6{margin-left:50%}.col-sm-offset-5{margin-left:41.66666667%}.col-sm-offset-4{margin-left:33.33333333%}.col-sm-offset-3{margin-left:25%}.col-sm-offset-2{margin-left:16.66666667%}.col-sm-offset-1{margin-left:8.33333333%}.col-sm-offset-0{margin-left:0}}@media(min-width:992px){.col-md-1,.col-md-2,.col-md-3,.col-md-4,.col-md-5,.col-md-6,.col-md-7,.col-md-8,.col-md-9,.col-md-10,.col-md-11,.col-md-12{float:left}.col-md-12{width:100%}.col-md-11{width:91.66666667%}.col-md-10{width:83.33333333%}.col-md-9{width:75%}.col-md-8{width:66.66666667%}.col-md-7{width:58.33333333%}.col-md-6{width:50%}.col-md-5{width:41.66666667%}.col-md-4{width:33.33333333%}.col-md-3{width:25%}.col-md-2{width:16.66666667%}.col-md-1{width:8.33333333%}.col-md-pull-12{right:100%}.col-md-pull-11{right:91.66666667%}.col-md-pull-10{right:83.33333333%}.col-md-pull-9{right:75%}.col-md-pull-8{right:66.66666667%}.col-md-pull-7{right:58.33333333%}.col-md-pull-6{right:50%}.col-md-pull-5{right:41.66666667%}.col-md-pull-4{right:33.33333333%}.col-md-pull-3{right:25%}.col-md-pull-2{right:16.66666667%}.col-md-pull-1{right:8.33333333%}.col-md-pull-0{right:auto}.col-md-push-12{left:100%}.col-md-push-11{left:91.66666667%}.col-md-push-10{left:83.33333333%}.col-md-push-9{left:75%}.col-md-push-8{left:66.66666667%}.col-md-push-7{left:58.33333333%}.col-md-push-6{left:50%}.col-md-push-5{left:41.66666667%}.col-md-push-4{left:33.33333333%}.col-md-push-3{left:25%}.col-md-push-2{left:16.66666667%}.col-md-push-1{left:8.33333333%}.col-md-push-0{left:auto}.col-md-offset-12{margin-left:100%}.col-md-offset-11{margin-left:91.66666667%}.col-md-offset-10{margin-left:83.33333333%}.col-md-offset-9{margin-left:75%}.col-md-offset-8{margin-left:66.66666667%}.col-md-offset-7{margin-left:58.33333333%}.col-md-offset-6{margin-left:50%}.col-md-offset-5{margin-left:41.66666667%}.col-md-offset-4{margin-left:33.33333333%}.col-md-offset-3{margin-left:25%}.col-md-offset-2{margin-left:16.66666667%}.col-md-offset-1{margin-left:8.33333333%}.col-md-offset-0{margin-left:0}}@media(min-width:1200px){.col-lg-1,.col-lg-2,.col-lg-3,.col-lg-4,.col-lg-5,.col-lg-6,.col-lg-7,.col-lg-8,.col-lg-9,.col-lg-10,.col-lg-11,.col-lg-12{float:left}.col-lg-12{width:100%}.col-lg-11{width:91.66666667%}.col-lg-10{width:83.33333333%}.col-lg-9{width:75%}.col-lg-8{width:66.66666667%}.col-lg-7{width:58.33333333%}.col-lg-6{width:50%}.col-lg-5{width:41.66666667%}.col-lg-4{width:33.33333333%}.col-lg-3{width:25%}.col-lg-2{width:16.66666667%}.col-lg-1{width:8.33333333%}.col-lg-pull-12{right:100%}.col-lg-pull-11{right:91.66666667%}.col-lg-pull-10{right:83.33333333%}.col-lg-pull-9{right:75%}.col-lg-pull-8{right:66.66666667%}.col-lg-pull-7{right:58.33333333%}.col-lg-pull-6{right:50%}.col-lg-pull-5{right:41.66666667%}.col-lg-pull-4{right:33.33333333%}.col-lg-pull-3{right:25%}.col-lg-pull-2{right:16.66666667%}.col-lg-pull-1{right:8.33333333%}.col-lg-pull-0{right:auto}.col-lg-push-12{left:100%}.col-lg-push-11{left:91.66666667%}.col-lg-push-10{left:83.33333333%}.col-lg-push-9{left:75%}.col-lg-push-8{left:66.66666667%}.col-lg-push-7{left:58.33333333%}.col-lg-push-6{left:50%}.col-lg-push-5{left:41.66666667%}.col-lg-push-4{left:33.33333333%}.col-lg-push-3{left:25%}.col-lg-push-2{left:16.66666667%}.col-lg-push-1{left:8.33333333%}.col-lg-push-0{left:auto}.col-lg-offset-12{margin-left:100%}.col-lg-offset-11{margin-left:91.66666667%}.col-lg-offset-10{margin-left:83.33333333%}.col-lg-offset-9{margin-left:75%}.col-lg-offset-8{margin-left:66.66666667%}.col-lg-offset-7{margin-left:58.33333333%}.col-lg-offset-6{margin-left:50%}.col-lg-offset-5{margin-left:41.66666667%}.col-lg-offset-4{margin-left:33.33333333%}.col-lg-offset-3{margin-left:25%}.col-lg-offset-2{margin-left:16.66666667%}.col-lg-offset-1{margin-left:8.33333333%}.col-lg-offset-0{margin-left:0}}table{background-color:transparent}table col[class*="col-"]{position:static;display:table-column;float:none}table td[class*="col-"],table th[class*="col-"]{position:static;display:table-cell;float:none}caption{padding-top:8px;padding-bottom:8px;color:#777;text-align:left}th{text-align:left}.table{width:100%;max-width:100%;margin-bottom:20px}.table>thead>tr>th,.table>tbody>tr>th,.table>tfoot>tr>th,.table>thead>tr>td,.table>tbody>tr>td,.table>tfoot>tr>td{padding:8px;line-height:1.42857143;vertical-align:top;border-top:1px solid #ddd}.table>thead>tr>th{vertical-align:bottom;border-bottom:2px solid #ddd}.table>caption+thead>tr:first-child>th,.table>colgroup+thead>tr:first-child>th,.table>thead:first-child>tr:first-child>th,.table>caption+thead>tr:first-child>td,.table>colgroup+thead>tr:first-child>td,.table>thead:first-child>tr:first-child>td{border-top:0}.table>tbody+tbody{border-top:2px solid #ddd}.table .table{background-color:#fff}.table-condensed>thead>tr>th,.table-condensed>tbody>tr>th,.table-condensed>tfoot>tr>th,.table-condensed>thead>tr>td,.table-condensed>tbody>tr>td,.table-condensed>tfoot>tr>td{padding:5px}.table-bordered{border:1px solid #ddd}.table-bordered>thead>tr>th,.table-bordered>tbody>tr>th,.table-bordered>tfoot>tr>th,.table-bordered>thead>tr>td,.table-bordered>tbody>tr>td,.table-bordered>tfoot>tr>td{border:1px solid #ddd}.table-bordered>thead>tr>th,.table-bordered>thead>tr>td{border-bottom-width:2px}.table-striped>tbody>tr:nth-of-type(odd){background-color:#f9f9f9}.table-hover>tbody>tr:hover{background-color:#f5f5f5}.table>thead>tr>td.active,.table>tbody>tr>td.active,.table>tfoot>tr>td.active,.table>thead>tr>th.active,.table>tbody>tr>th.active,.table>tfoot>tr>th.active,.table>thead>tr.active>td,.table>tbody>tr.active>td,.table>tfoot>tr.active>td,.table>thead>tr.active>th,.table>tbody>tr.active>th,.table>tfoot>tr.active>th{background-color:#f5f5f5}.table-hover>tbody>tr>td.active:hover,.table-hover>tbody>tr>th.active:hover,.table-hover>tbody>tr.active:hover>td,.table-hover>tbody>tr:hover>.active,.table-hover>tbody>tr.active:hover>th{background-color:#e8e8e8}.table>thead>tr>td.success,.table>tbody>tr>td.success,.table>tfoot>tr>td.success,.table>thead>tr>th.success,.table>tbody>tr>th.success,.table>tfoot>tr>th.success,.table>thead>tr.success>td,.table>tbody>tr.success>td,.table>tfoot>tr.success>td,.table>thead>tr.success>th,.table>tbody>tr.success>th,.table>tfoot>tr.success>th{background-color:#dff0d8}.table-hover>tbody>tr>td.success:hover,.table-hover>tbody>tr>th.success:hover,.table-hover>tbody>tr.success:hover>td,.table-hover>tbody>tr:hover>.success,.table-hover>tbody>tr.success:hover>th{background-color:#d0e9c6}.table>thead>tr>td.info,.table>tbody>tr>td.info,.table>tfoot>tr>td.info,.table>thead>tr>th.info,.table>tbody>tr>th.info,.table>tfoot>tr>th.info,.table>thead>tr.info>td,.table>tbody>tr.info>td,.table>tfoot>tr.info>td,.table>thead>tr.info>th,.table>tbody>tr.info>th,.table>tfoot>tr.info>th{background-color:#d9edf7}.table-hover>tbody>tr>td.info:hover,.table-hover>tbody>tr>th.info:hover,.table-hover>tbody>tr.info:hover>td,.table-hover>tbody>tr:hover>.info,.table-hover>tbody>tr.info:hover>th{background-color:#c4e3f3}.table>thead>tr>td.warning,.table>tbody>tr>td.warning,.table>tfoot>tr>td.warning,.table>thead>tr>th.warning,.table>tbody>tr>th.warning,.table>tfoot>tr>th.warning,.table>thead>tr.warning>td,.table>tbody>tr.warning>td,.table>tfoot>tr.warning>td,.table>thead>tr.warning>th,.table>tbody>tr.warning>th,.table>tfoot>tr.warning>th{background-color:#fcf8e3}.table-hover>tbody>tr>td.warning:hover,.table-hover>tbody>tr>th.warning:hover,.table-hover>tbody>tr.warning:hover>td,.table-hover>tbody>tr:hover>.warning,.table-hover>tbody>tr.warning:hover>th{background-color:#faf2cc}.table>thead>tr>td.danger,.table>tbody>tr>td.danger,.table>tfoot>tr>td.danger,.table>thead>tr>th.danger,.table>tbody>tr>th.danger,.table>tfoot>tr>th.danger,.table>thead>tr.danger>td,.table>tbody>tr.danger>td,.table>tfoot>tr.danger>td,.table>thead>tr.danger>th,.table>tbody>tr.danger>th,.table>tfoot>tr.danger>th{background-color:#f2dede}.table-hover>tbody>tr>td.danger:hover,.table-hover>tbody>tr>th.danger:hover,.table-hover>tbody>tr.danger:hover>td,.table-hover>tbody>tr:hover>.danger,.table-hover>tbody>tr.danger:hover>th{background-color:#ebcccc}.table-responsive{min-height:.01%;overflow-x:auto}@media screen and (max-width:767px){.table-responsive{width:100%;margin-bottom:15px;overflow-y:hidden;-ms-overflow-style:-ms-autohiding-scrollbar;border:1px solid #ddd}.table-responsive>.table{margin-bottom:0}.table-responsive>.table>thead>tr>th,.table-responsive>.table>tbody>tr>th,.table-responsive>.table>tfoot>tr>th,.table-responsive>.table>thead>tr>td,.table-responsive>.table>tbody>tr>td,.table-responsive>.table>tfoot>tr>td{white-space:nowrap}.table-responsive>.table-bordered{border:0}.table-responsive>.table-bordered>thead>tr>th:first-child,.table-responsive>.table-bordered>tbody>tr>th:first-child,.table-responsive>.table-bordered>tfoot>tr>th:first-child,.table-responsive>.table-bordered>thead>tr>td:first-child,.table-responsive>.table-bordered>tbody>tr>td:first-child,.table-responsive>.table-bordered>tfoot>tr>td:first-child{border-left:0}.table-responsive>.table-bordered>thead>tr>th:last-child,.table-responsive>.table-bordered>tbody>tr>th:last-child,.table-responsive>.table-bordered>tfoot>tr>th:last-child,.table-responsive>.table-bordered>thead>tr>td:last-child,.table-responsive>.table-bordered>tbody>tr>td:last-child,.table-responsive>.table-bordered>tfoot>tr>td:last-child{border-right:0}.table-responsive>.table-bordered>tbody>tr:last-child>th,.table-responsive>.table-bordered>tfoot>tr:last-child>th,.table-responsive>.table-bordered>tbody>tr:last-child>td,.table-responsive>.table-bordered>tfoot>tr:last-child>td{border-bottom:0}}fieldset{min-width:0;padding:0;margin:0;border:0}legend{display:block;width:100%;padding:0;margin-bottom:20px;font-size:21px;line-height:inherit;color:#333;border:0;border-bottom:1px solid #e5e5e5}label{display:inline-block;max-width:100%;margin-bottom:5px;font-weight:700}input[type="search"]{-webkit-box-sizing:border-box;-moz-box-sizing:border-box;box-sizing:border-box;-webkit-appearance:none;appearance:none}input[type="radio"],input[type="checkbox"]{margin:4px 0 0;margin-top:1px \9;line-height:normal}input[type="radio"][disabled],input[type="checkbox"][disabled],input[type="radio"].disabled,input[type="checkbox"].disabled,fieldset[disabled] input[type="radio"],fieldset[disabled] input[type="checkbox"]{cursor:not-allowed}input[type="file"]{display:block}input[type="range"]{display:block;width:100%}select[multiple],select[size]{height:auto}input[type="file"]:focus,input[type="radio"]:focus,input[type="checkbox"]:focus{outline:5px auto -webkit-focus-ring-color;outline-offset:-2px}output{display:block;padding-top:7px;font-size:14px;line-height:1.42857143;color:#555}.form-control{display:block;width:100%;height:34px;padding:6px 12px;font-size:14px;line-height:1.42857143;color:#555;background-color:#fff;background-image:none;border:1px solid #ccc;border-radius:4px;-webkit-box-shadow:inset 0 1px 1px rgba(0,0,0,0.075);box-shadow:inset 0 1px 1px rgba(0,0,0,0.075);-webkit-transition:border-color ease-in-out .15s,box-shadow ease-in-out .15s;-o-transition:border-color ease-in-out .15s,box-shadow ease-in-out .15s;transition:border-color ease-in-out .15s,box-shadow ease-in-out .15s}.form-control:focus{border-color:#66afe9;outline:0;-webkit-box-shadow:inset 0 1px 1px rgba(0,0,0,.075),0 0 8px rgba(102,175,233,0.6);box-shadow:inset 0 1px 1px rgba(0,0,0,.075),0 0 8px rgba(102,175,233,0.6)}.form-control::-moz-placeholder{color:#999;opacity:1}.form-control:-ms-input-placeholder{color:#999}.form-control::-webkit-input-placeholder{color:#999}.form-control::-ms-expand{background-color:transparent;border:0}.form-control[disabled],.form-control[readonly],fieldset[disabled] .form-control{background-color:#eee;opacity:1}.form-control[disabled],fieldset[disabled] .form-control{cursor:not-allowed}textarea.form-control{height:auto}@media screen and (-webkit-min-device-pixel-ratio:0){input[type="date"].form-control,input[type="time"].form-control,input[type="datetime-local"].form-control,input[type="month"].form-control{line-height:34px}input[type="date"].input-sm,input[type="time"].input-sm,input[type="datetime-local"].input-sm,input[type="month"].input-sm,.input-group-sm input[type="date"],.input-group-sm input[type="time"],.input-group-sm input[type="datetime-local"],.input-group-sm input[type="month"]{line-height:30px}input[type="date"].input-lg,input[type="time"].input-lg,input[type="datetime-local"].input-lg,input[type="month"].input-lg,.input-group-lg input[type="date"],.input-group-lg input[type="time"],.input-group-lg input[type="datetime-local"],.input-group-lg input[type="month"]{line-height:46px}}.form-group{margin-bottom:15px}.radio,.checkbox{position:relative;display:block;margin-top:10px;margin-bottom:10px}.radio.disabled label,.checkbox.disabled label,fieldset[disabled] .radio label,fieldset[disabled] .checkbox label{cursor:not-allowed}.radio label,.checkbox label{min-height:20px;padding-left:20px;margin-bottom:0;font-weight:400;cursor:pointer}.radio input[type="radio"],.radio-inline input[type="radio"],.checkbox input[type="checkbox"],.checkbox-inline input[type="checkbox"]{position:absolute;margin-top:4px \9;margin-left:-20px}.radio+.radio,.checkbox+.checkbox{margin-top:-5px}.radio-inline,.checkbox-inline{position:relative;display:inline-block;padding-left:20px;margin-bottom:0;font-weight:400;vertical-align:middle;cursor:pointer}.radio-inline.disabled,.checkbox-inline.disabled,fieldset[disabled] .radio-inline,fieldset[disabled] .checkbox-inline{cursor:not-allowed}.radio-inline+.radio-inline,.checkbox-inline+.checkbox-inline{margin-top:0;margin-left:10px}.form-control-static{min-height:34px;padding-top:7px;padding-bottom:7px;margin-bottom:0}.form-control-static.input-lg,.form-control-static.input-sm{padding-right:0;padding-left:0}.input-sm{height:30px;padding:5px 10px;font-size:12px;line-height:1.5;border-radius:3px}select.input-sm{height:30px;line-height:30px}textarea.input-sm,select[multiple].input-sm{height:auto}.form-group-sm .form-control{height:30px;padding:5px 10px;font-size:12px;line-height:1.5;border-radius:3px}.form-group-sm select.form-control{height:30px;line-height:30px}.form-group-sm textarea.form-control,.form-group-sm select[multiple].form-control{height:auto}.form-group-sm .form-control-static{height:30px;min-height:32px;padding:6px 10px;font-size:12px;line-height:1.5}.input-lg{height:46px;padding:10px 16px;font-size:18px;line-height:1.3333333;border-radius:6px}select.input-lg{height:46px;line-height:46px}textarea.input-lg,select[multiple].input-lg{height:auto}.form-group-lg .form-control{height:46px;padding:10px 16px;font-size:18px;line-height:1.3333333;border-radius:6px}.form-group-lg select.form-control{height:46px;line-height:46px}.form-group-lg textarea.form-control,.form-group-lg select[multiple].form-control{height:auto}.form-group-lg .form-control-static{height:46px;min-height:38px;padding:11px 16px;font-size:18px;line-height:1.3333333}.has-feedback{position:relative}.has-feedback .form-control{padding-right:42.5px}.form-control-feedback{position:absolute;top:0;right:0;z-index:2;display:block;width:34px;height:34px;line-height:34px;text-align:center;pointer-events:none}.input-lg+.form-control-feedback,.input-group-lg+.form-control-feedback,.form-group-lg .form-control+.form-control-feedback{width:46px;height:46px;line-height:46px}.input-sm+.form-control-feedback,.input-group-sm+.form-control-feedback,.form-group-sm .form-control+.form-control-feedback{width:30px;height:30px;line-height:30px}.has-success .help-block,.has-success .control-label,.has-success .radio,.has-success .checkbox,.has-success .radio-inline,.has-success .checkbox-inline,.has-success.radio label,.has-success.checkbox label,.has-success.radio-inline label,.has-success.checkbox-inline label{color:#3c763d}.has-success .form-control{border-color:#3c763d;-webkit-box-shadow:inset 0 1px 1px rgba(0,0,0,0.075);box-shadow:inset 0 1px 1px rgba(0,0,0,0.075)}.has-success .form-control:focus{border-color:#2b542c;-webkit-box-shadow:inset 0 1px 1px rgba(0,0,0,0.075),0 0 6px #67b168;box-shadow:inset 0 1px 1px rgba(0,0,0,0.075),0 0 6px #67b168}.has-success .input-group-addon{color:#3c763d;background-color:#dff0d8;border-color:#3c763d}.has-success .form-control-feedback{color:#3c763d}.has-warning .help-block,.has-warning .control-label,.has-warning .radio,.has-warning .checkbox,.has-warning .radio-inline,.has-warning .checkbox-inline,.has-warning.radio label,.has-warning.checkbox label,.has-warning.radio-inline label,.has-warning.checkbox-inline label{color:#8a6d3b}.has-warning .form-control{border-color:#8a6d3b;-webkit-box-shadow:inset 0 1px 1px rgba(0,0,0,0.075);box-shadow:inset 0 1px 1px rgba(0,0,0,0.075)}.has-warning .form-control:focus{border-color:#66512c;-webkit-box-shadow:inset 0 1px 1px rgba(0,0,0,0.075),0 0 6px #c0a16b;box-shadow:inset 0 1px 1px rgba(0,0,0,0.075),0 0 6px #c0a16b}.has-warning .input-group-addon{color:#8a6d3b;background-color:#fcf8e3;border-color:#8a6d3b}.has-warning .form-control-feedback{color:#8a6d3b}.has-error .help-block,.has-error .control-label,.has-error .radio,.has-error .checkbox,.has-error .radio-inline,.has-error .checkbox-inline,.has-error.radio label,.has-error.checkbox label,.has-error.radio-inline label,.has-error.checkbox-inline label{color:#a94442}.has-error .form-control{border-color:#a94442;-webkit-box-shadow:inset 0 1px 1px rgba(0,0,0,0.075);box-shadow:inset 0 1px 1px rgba(0,0,0,0.075)}.has-error .form-control:focus{border-color:#843534;-webkit-box-shadow:inset 0 1px 1px rgba(0,0,0,0.075),0 0 6px #ce8483;box-shadow:inset 0 1px 1px rgba(0,0,0,0.075),0 0 6px #ce8483}.has-error .input-group-addon{color:#a94442;background-color:#f2dede;border-color:#a94442}.has-error .form-control-feedback{color:#a94442}.has-feedback label ~ .form-control-feedback{top:25px}.has-feedback label.sr-only ~ .form-control-feedback{top:0}.help-block{display:block;margin-top:5px;margin-bottom:10px;color:#737373}@media(min-width:768px){.form-inline .form-group{display:inline-block;margin-bottom:0;vertical-align:middle}.form-inline .form-control{display:inline-block;width:auto;vertical-align:middle}.form-inline .form-control-static{display:inline-block}.form-inline .input-group{display:inline-table;vertical-align:middle}.form-inline .input-group .input-group-addon,.form-inline .input-group .input-group-btn,.form-inline .input-group .form-control{width:auto}.form-inline .input-group>.form-control{width:100%}.form-inline .control-label{margin-bottom:0;vertical-align:middle}.form-inline .radio,.form-inline .checkbox{display:inline-block;margin-top:0;margin-bottom:0;vertical-align:middle}.form-inline .radio label,.form-inline .checkbox label{padding-left:0}.form-inline .radio input[type="radio"],.form-inline .checkbox input[type="checkbox"]{position:relative;margin-left:0}.form-inline .has-feedback .form-control-feedback{top:0}}.form-horizontal .radio,.form-horizontal .checkbox,.form-horizontal .radio-inline,.form-horizontal .checkbox-inline{padding-top:7px;margin-top:0;margin-bottom:0}.form-horizontal .radio,.form-horizontal .checkbox{min-height:27px}.form-horizontal .form-group{margin-right:-15px;margin-left:-15px}@media(min-width:768px){.form-horizontal .control-label{padding-top:7px;margin-bottom:0;text-align:right}}.form-horizontal .has-feedback .form-control-feedback{right:15px}@media(min-width:768px){.form-horizontal .form-group-lg .control-label{padding-top:11px;font-size:18px}}@media(min-width:768px){.form-horizontal .form-group-sm .control-label{padding-top:6px;font-size:12px}}.btn{display:inline-block;margin-bottom:0;font-weight:normal;text-align:center;white-space:nowrap;vertical-align:middle;touch-action:manipulation;cursor:pointer;background-image:none;border:1px solid transparent;padding:6px 12px;font-size:14px;line-height:1.42857143;border-radius:4px;-webkit-user-select:none;-moz-user-select:none;-ms-user-select:none;user-select:none}.btn:focus,.btn:active:focus,.btn.active:focus,.btn.focus,.btn:active.focus,.btn.active.focus{outline:5px auto -webkit-focus-ring-color;outline-offset:-2px}.btn:hover,.btn:focus,.btn.focus{color:#333;text-decoration:none}.btn:active,.btn.active{background-image:none;outline:0;-webkit-box-shadow:inset 0 3px 5px rgba(0,0,0,0.125);box-shadow:inset 0 3px 5px rgba(0,0,0,0.125)}.btn.disabled,.btn[disabled],fieldset[disabled] .btn{cursor:not-allowed;filter:alpha(opacity=65);opacity:.65;-webkit-box-shadow:none;box-shadow:none}a.btn.disabled,fieldset[disabled] a.btn{pointer-events:none}.btn-default{color:#333;background-color:#fff;border-color:#ccc}.btn-default:focus,.btn-default.focus{color:#333;background-color:#e6e6e6;border-color:#8c8c8c}.btn-default:hover{color:#333;background-color:#e6e6e6;border-color:#adadad}.btn-default:active,.btn-default.active,.open>.dropdown-toggle.btn-default{color:#333;background-color:#e6e6e6;background-image:none;border-color:#adadad}.btn-default:active:hover,.btn-default.active:hover,.open>.dropdown-toggle.btn-default:hover,.btn-default:active:focus,.btn-default.active:focus,.open>.dropdown-toggle.btn-default:focus,.btn-default:active.focus,.btn-default.active.focus,.open>.dropdown-toggle.btn-default.focus{color:#333;background-color:#d4d4d4;border-color:#8c8c8c}.btn-default.disabled:hover,.btn-default[disabled]:hover,fieldset[disabled] .btn-default:hover,.btn-default.disabled:focus,.btn-default[disabled]:focus,fieldset[disabled] .btn-default:focus,.btn-default.disabled.focus,.btn-default[disabled].focus,fieldset[disabled] .btn-default.focus{background-color:#fff;border-color:#ccc}.btn-default .badge{color:#fff;background-color:#333}.btn-primary{color:#fff;background-color:#337ab7;border-color:#2e6da4}.btn-primary:focus,.btn-primary.focus{color:#fff;background-color:#286090;border-color:#122b40}.btn-primary:hover{color:#fff;background-color:#286090;border-color:#204d74}.btn-primary:active,.btn-primary.active,.open>.dropdown-toggle.btn-primary{color:#fff;background-color:#286090;background-image:none;border-color:#204d74}.btn-primary:active:hover,.btn-primary.active:hover,.open>.dropdown-toggle.btn-primary:hover,.btn-primary:active:focus,.btn-primary.active:focus,.open>.dropdown-toggle.btn-primary:focus,.btn-primary:active.focus,.btn-primary.active.focus,.open>.dropdown-toggle.btn-primary.focus{color:#fff;background-color:#204d74;border-color:#122b40}.btn-primary.disabled:hover,.btn-primary[disabled]:hover,fieldset[disabled] .btn-primary:hover,.btn-primary.disabled:focus,.btn-primary[disabled]:focus,fieldset[disabled] .btn-primary:focus,.btn-primary.disabled.focus,.btn-primary[disabled].focus,fieldset[disabled] .btn-primary.focus{background-color:#337ab7;border-color:#2e6da4}.btn-primary .badge{color:#337ab7;background-color:#fff}.btn-success{color:#fff;background-color:#5cb85c;border-color:#4cae4c}.btn-success:focus,.btn-success.focus{color:#fff;background-color:#449d44;border-color:#255625}.btn-success:hover{color:#fff;background-color:#449d44;border-color:#398439}.btn-success:active,.btn-success.active,.open>.dropdown-toggle.btn-success{color:#fff;background-color:#449d44;background-image:none;border-color:#398439}.btn-success:active:hover,.btn-success.active:hover,.open>.dropdown-toggle.btn-success:hover,.btn-success:active:focus,.btn-success.active:focus,.open>.dropdown-toggle.btn-success:focus,.btn-success:active.focus,.btn-success.active.focus,.open>.dropdown-toggle.btn-success.focus{color:#fff;background-color:#398439;border-color:#255625}.btn-success.disabled:hover,.btn-success[disabled]:hover,fieldset[disabled] .btn-success:hover,.btn-success.disabled:focus,.btn-success[disabled]:focus,fieldset[disabled] .btn-success:focus,.btn-success.disabled.focus,.btn-success[disabled].focus,fieldset[disabled] .btn-success.focus{background-color:#5cb85c;border-color:#4cae4c}.btn-success .badge{color:#5cb85c;background-color:#fff}.btn-info{color:#fff;background-color:#5bc0de;border-color:#46b8da}.btn-info:focus,.btn-info.focus{color:#fff;background-color:#31b0d5;border-color:#1b6d85}.btn-info:hover{color:#fff;background-color:#31b0d5;border-color:#269abc}.btn-info:active,.btn-info.active,.open>.dropdown-toggle.btn-info{color:#fff;background-color:#31b0d5;background-image:none;border-color:#269abc}.btn-info:active:hover,.btn-info.active:hover,.open>.dropdown-toggle.btn-info:hover,.btn-info:active:focus,.btn-info.active:focus,.open>.dropdown-toggle.btn-info:focus,.btn-info:active.focus,.btn-info.active.focus,.open>.dropdown-toggle.btn-info.focus{color:#fff;background-color:#269abc;border-color:#1b6d85}.btn-info.disabled:hover,.btn-info[disabled]:hover,fieldset[disabled] .btn-info:hover,.btn-info.disabled:focus,.btn-info[disabled]:focus,fieldset[disabled] .btn-info:focus,.btn-info.disabled.focus,.btn-info[disabled].focus,fieldset[disabled] .btn-info.focus{background-color:#5bc0de;border-color:#46b8da}.btn-info .badge{color:#5bc0de;background-color:#fff}.btn-warning{color:#fff;background-color:#f0ad4e;border-color:#eea236}.btn-warning:focus,.btn-warning.focus{color:#fff;background-color:#ec971f;border-color:#985f0d}.btn-warning:hover{color:#fff;background-color:#ec971f;border-color:#d58512}.btn-warning:active,.btn-warning.active,.open>.dropdown-toggle.btn-warning{color:#fff;background-color:#ec971f;background-image:none;border-color:#d58512}.btn-warning:active:hover,.btn-warning.active:hover,.open>.dropdown-toggle.btn-warning:hover,.btn-warning:active:focus,.btn-warning.active:focus,.open>.dropdown-toggle.btn-warning:focus,.btn-warning:active.focus,.btn-warning.active.focus,.open>.dropdown-toggle.btn-warning.focus{color:#fff;background-color:#d58512;border-color:#985f0d}.btn-warning.disabled:hover,.btn-warning[disabled]:hover,fieldset[disabled] .btn-warning:hover,.btn-warning.disabled:focus,.btn-warning[disabled]:focus,fieldset[disabled] .btn-warning:focus,.btn-warning.disabled.focus,.btn-warning[disabled].focus,fieldset[disabled] .btn-warning.focus{background-color:#f0ad4e;border-color:#eea236}.btn-warning .badge{color:#f0ad4e;background-color:#fff}.btn-danger{color:#fff;background-color:#d9534f;border-color:#d43f3a}.btn-danger:focus,.btn-danger.focus{color:#fff;background-color:#c9302c;border-color:#761c19}.btn-danger:hover{color:#fff;background-color:#c9302c;border-color:#ac2925}.btn-danger:active,.btn-danger.active,.open>.dropdown-toggle.btn-danger{color:#fff;background-color:#c9302c;background-image:none;border-color:#ac2925}.btn-danger:active:hover,.btn-danger.active:hover,.open>.dropdown-toggle.btn-danger:hover,.btn-danger:active:focus,.btn-danger.active:focus,.open>.dropdown-toggle.btn-danger:focus,.btn-danger:active.focus,.btn-danger.active.focus,.open>.dropdown-toggle.btn-danger.focus{color:#fff;background-color:#ac2925;border-color:#761c19}.btn-danger.disabled:hover,.btn-danger[disabled]:hover,fieldset[disabled] .btn-danger:hover,.btn-danger.disabled:focus,.btn-danger[disabled]:focus,fieldset[disabled] .btn-danger:focus,.btn-danger.disabled.focus,.btn-danger[disabled].focus,fieldset[disabled] .btn-danger.focus{background-color:#d9534f;border-color:#d43f3a}.btn-danger .badge{color:#d9534f;background-color:#fff}.btn-link{font-weight:400;color:#337ab7;border-radius:0}.btn-link,.btn-link:active,.btn-link.active,.btn-link[disabled],fieldset[disabled] .btn-link{background-color:transparent;-webkit-box-shadow:none;box-shadow:none}.btn-link,.btn-link:hover,.btn-link:focus,.btn-link:active{border-color:transparent}.btn-link:hover,.btn-link:focus{color:#23527c;text-decoration:underline;background-color:transparent}.btn-link[disabled]:hover,fieldset[disabled] .btn-link:hover,.btn-link[disabled]:focus,fieldset[disabled] .btn-link:focus{color:#777;text-decoration:none}.btn-lg,.btn-group-lg>.btn{padding:10px 16px;font-size:18px;line-height:1.3333333;border-radius:6px}.btn-sm,.btn-group-sm>.btn{padding:5px 10px;font-size:12px;line-height:1.5;border-radius:3px}.btn-xs,.btn-group-xs>.btn{padding:1px 5px;font-size:12px;line-height:1.5;border-radius:3px}.btn-block{display:block;width:100%}.btn-block+.btn-block{margin-top:5px}input[type="submit"].btn-block,input[type="reset"].btn-block,input[type="button"].btn-block{width:100%}.fade{opacity:0;-webkit-transition:opacity .15s linear;-o-transition:opacity .15s linear;transition:opacity .15s linear}.fade.in{opacity:1}.collapse{display:none}.collapse.in{display:block}tr.collapse.in{display:table-row}tbody.collapse.in{display:table-row-group}.collapsing{position:relative;height:0;overflow:hidden;-webkit-transition-property:height,visibility;transition-property:height,visibility;-webkit-transition-duration:.35s;transition-duration:.35s;-webkit-transition-timing-function:ease;transition-timing-function:ease}.caret{display:inline-block;width:0;height:0;margin-left:2px;vertical-align:middle;border-top:4px dashed;border-top:4px solid \9;border-right:4px solid transparent;border-left:4px solid transparent}.dropup,.dropdown{position:relative}.dropdown-toggle:focus{outline:0}.dropdown-menu{position:absolute;top:100%;left:0;z-index:1000;display:none;float:left;min-width:160px;padding:5px 0;margin:2px 0 0;font-size:14px;text-align:left;list-style:none;background-color:#fff;background-clip:padding-box;border:1px solid #ccc;border:1px solid rgba(0,0,0,0.15);border-radius:4px;-webkit-box-shadow:0 6px 12px rgba(0,0,0,0.175);box-shadow:0 6px 12px rgba(0,0,0,0.175)}.dropdown-menu.pull-right{right:0;left:auto}.dropdown-menu .divider{height:1px;margin:9px 0;overflow:hidden;background-color:#e5e5e5}.dropdown-menu>li>a{display:block;padding:3px 20px;clear:both;font-weight:400;line-height:1.42857143;color:#333;white-space:nowrap}.dropdown-menu>li>a:hover,.dropdown-menu>li>a:focus{color:#262626;text-decoration:none;background-color:#f5f5f5}.dropdown-menu>.active>a,.dropdown-menu>.active>a:hover,.dropdown-menu>.active>a:focus{color:#fff;text-decoration:none;background-color:#337ab7;outline:0}.dropdown-menu>.disabled>a,.dropdown-menu>.disabled>a:hover,.dropdown-menu>.disabled>a:focus{color:#777}.dropdown-menu>.disabled>a:hover,.dropdown-menu>.disabled>a:focus{text-decoration:none;cursor:not-allowed;background-color:transparent;background-image:none;filter:progid:DXImageTransform.Microsoft.gradient(enabled = false)}.open>.dropdown-menu{display:block}.open>a{outline:0}.dropdown-menu-right{right:0;left:auto}.dropdown-menu-left{right:auto;left:0}.dropdown-header{display:block;padding:3px 20px;font-size:12px;line-height:1.42857143;color:#777;white-space:nowrap}.dropdown-backdrop{position:fixed;top:0;right:0;bottom:0;left:0;z-index:990}.pull-right>.dropdown-menu{right:0;left:auto}.dropup .caret,.navbar-fixed-bottom .dropdown .caret{content:"";border-top:0;border-bottom:4px dashed;border-bottom:4px solid \9}.dropup .dropdown-menu,.navbar-fixed-bottom .dropdown .dropdown-menu{top:auto;bottom:100%;margin-bottom:2px}@media(min-width:768px){.navbar-right .dropdown-menu{right:0;left:auto}.navbar-right .dropdown-menu-left{right:auto;left:0}}.btn-group,.btn-group-vertical{position:relative;display:inline-block;vertical-align:middle}.btn-group>.btn,.btn-group-vertical>.btn{position:relative;float:left}.btn-group>.btn:hover,.btn-group-vertical>.btn:hover,.btn-group>.btn:focus,.btn-group-vertical>.btn:focus,.btn-group>.btn:active,.btn-group-vertical>.btn:active,.btn-group>.btn.active,.btn-group-vertical>.btn.active{z-index:2}.btn-group .btn+.btn,.btn-group .btn+.btn-group,.btn-group .btn-group+.btn,.btn-group .btn-group+.btn-group{margin-left:-1px}.btn-toolbar{margin-left:-5px}.btn-toolbar .btn,.btn-toolbar .btn-group,.btn-toolbar .input-group{float:left}.btn-toolbar>.btn,.btn-toolbar>.btn-group,.btn-toolbar>.input-group{margin-left:5px}.btn-group>.btn:not(:first-child):not(:last-child):not(.dropdown-toggle){border-radius:0}.btn-group>.btn:first-child{margin-left:0}.btn-group>.btn:first-child:not(:last-child):not(.dropdown-toggle){border-top-right-radius:0;border-bottom-right-radius:0}.btn-group>.btn:last-child:not(:first-child),.btn-group>.dropdown-toggle:not(:first-child){border-top-left-radius:0;border-bottom-left-radius:0}.btn-group>.btn-group{float:left}.btn-group>.btn-group:not(:first-child):not(:last-child)>.btn{border-radius:0}.btn-group>.btn-group:first-child:not(:last-child)>.btn:last-child,.btn-group>.btn-group:first-child:not(:last-child)>.dropdown-toggle{border-top-right-radius:0;border-bottom-right-radius:0}.btn-group>.btn-group:last-child:not(:first-child)>.btn:first-child{border-top-left-radius:0;border-bottom-left-radius:0}.btn-group .dropdown-toggle:active,.btn-group.open .dropdown-toggle{outline:0}.btn-group>.btn+.dropdown-toggle{padding-right:8px;padding-left:8px}.btn-group>.btn-lg+.dropdown-toggle{padding-right:12px;padding-left:12px}.btn-group.open .dropdown-toggle{-webkit-box-shadow:inset 0 3px 5px rgba(0,0,0,0.125);box-shadow:inset 0 3px 5px rgba(0,0,0,0.125)}.btn-group.open .dropdown-toggle.btn-link{-webkit-box-shadow:none;box-shadow:none}.btn .caret{margin-left:0}.btn-lg .caret{border-width:5px 5px 0;border-bottom-width:0}.dropup .btn-lg .caret{border-width:0 5px 5px}.btn-group-vertical>.btn,.btn-group-vertical>.btn-group,.btn-group-vertical>.btn-group>.btn{display:block;float:none;width:100%;max-width:100%}.btn-group-vertical>.btn-group>.btn{float:none}.btn-group-vertical>.btn+.btn,.btn-group-vertical>.btn+.btn-group,.btn-group-vertical>.btn-group+.btn,.btn-group-vertical>.btn-group+.btn-group{margin-top:-1px;margin-left:0}.btn-group-vertical>.btn:not(:first-child):not(:last-child){border-radius:0}.btn-group-vertical>.btn:first-child:not(:last-child){border-top-left-radius:4px;border-top-right-radius:4px;border-bottom-right-radius:0;border-bottom-left-radius:0}.btn-group-vertical>.btn:last-child:not(:first-child){border-top-left-radius:0;border-top-right-radius:0;border-bottom-right-radius:4px;border-bottom-left-radius:4px}.btn-group-vertical>.btn-group:not(:first-child):not(:last-child)>.btn{border-radius:0}.btn-group-vertical>.btn-group:first-child:not(:last-child)>.btn:last-child,.btn-group-vertical>.btn-group:first-child:not(:last-child)>.dropdown-toggle{border-bottom-right-radius:0;border-bottom-left-radius:0}.btn-group-vertical>.btn-group:last-child:not(:first-child)>.btn:first-child{border-top-left-radius:0;border-top-right-radius:0}.btn-group-justified{display:table;width:100%;table-layout:fixed;border-collapse:separate}.btn-group-justified>.btn,.btn-group-justified>.btn-group{display:table-cell;float:none;width:1%}.btn-group-justified>.btn-group .btn{width:100%}.btn-group-justified>.btn-group .dropdown-menu{left:auto}[data-toggle="buttons"]>.btn input[type="radio"],[data-toggle="buttons"]>.btn-group>.btn input[type="radio"],[data-toggle="buttons"]>.btn input[type="checkbox"],[data-toggle="buttons"]>.btn-group>.btn input[type="checkbox"]{position:absolute;clip:rect(0,0,0,0);pointer-events:none}.input-group{position:relative;display:table;border-collapse:separate}.input-group[class*="col-"]{float:none;padding-right:0;padding-left:0}.input-group .form-control{position:relative;z-index:2;float:left;width:100%;margin-bottom:0}.input-group .form-control:focus{z-index:3}.input-group-lg>.form-control,.input-group-lg>.input-group-addon,.input-group-lg>.input-group-btn>.btn{height:46px;padding:10px 16px;font-size:18px;line-height:1.3333333;border-radius:6px}select.input-group-lg>.form-control,select.input-group-lg>.input-group-addon,select.input-group-lg>.input-group-btn>.btn{height:46px;line-height:46px}textarea.input-group-lg>.form-control,textarea.input-group-lg>.input-group-addon,textarea.input-group-lg>.input-group-btn>.btn,select[multiple].input-group-lg>.form-control,select[multiple].input-group-lg>.input-group-addon,select[multiple].input-group-lg>.input-group-btn>.btn{height:auto}.input-group-sm>.form-control,.input-group-sm>.input-group-addon,.input-group-sm>.input-group-btn>.btn{height:30px;padding:5px 10px;font-size:12px;line-height:1.5;border-radius:3px}select.input-group-sm>.form-control,select.input-group-sm>.input-group-addon,select.input-group-sm>.input-group-btn>.btn{height:30px;line-height:30px}textarea.input-group-sm>.form-control,textarea.input-group-sm>.input-group-addon,textarea.input-group-sm>.input-group-btn>.btn,select[multiple].input-group-sm>.form-control,select[multiple].input-group-sm>.input-group-addon,select[multiple].input-group-sm>.input-group-btn>.btn{height:auto}.input-group-addon,.input-group-btn,.input-group .form-control{display:table-cell}.input-group-addon:not(:first-child):not(:last-child),.input-group-btn:not(:first-child):not(:last-child),.input-group .form-control:not(:first-child):not(:last-child){border-radius:0}.input-group-addon,.input-group-btn{width:1%;white-space:nowrap;vertical-align:middle}.input-group-addon{padding:6px 12px;font-size:14px;font-weight:400;line-height:1;color:#555;text-align:center;background-color:#eee;border:1px solid #ccc;border-radius:4px}.input-group-addon.input-sm{padding:5px 10px;font-size:12px;border-radius:3px}.input-group-addon.input-lg{padding:10px 16px;font-size:18px;border-radius:6px}.input-group-addon input[type="radio"],.input-group-addon input[type="checkbox"]{margin-top:0}.input-group .form-control:first-child,.input-group-addon:first-child,.input-group-btn:first-child>.btn,.input-group-btn:first-child>.btn-group>.btn,.input-group-btn:first-child>.dropdown-toggle,.input-group-btn:last-child>.btn:not(:last-child):not(.dropdown-toggle),.input-group-btn:last-child>.btn-group:not(:last-child)>.btn{border-top-right-radius:0;border-bottom-right-radius:0}.input-group-addon:first-child{border-right:0}.input-group .form-control:last-child,.input-group-addon:last-child,.input-group-btn:last-child>.btn,.input-group-btn:last-child>.btn-group>.btn,.input-group-btn:last-child>.dropdown-toggle,.input-group-btn:first-child>.btn:not(:first-child),.input-group-btn:first-child>.btn-group:not(:first-child)>.btn{border-top-left-radius:0;border-bottom-left-radius:0}.input-group-addon:last-child{border-left:0}.input-group-btn{position:relative;font-size:0;white-space:nowrap}.input-group-btn>.btn{position:relative}.input-group-btn>.btn+.btn{margin-left:-1px}.input-group-btn>.btn:hover,.input-group-btn>.btn:focus,.input-group-btn>.btn:active{z-index:2}.input-group-btn:first-child>.btn,.input-group-btn:first-child>.btn-group{margin-right:-1px}.input-group-btn:last-child>.btn,.input-group-btn:last-child>.btn-group{z-index:2;margin-left:-1px}.nav{padding-left:0;margin-bottom:0;list-style:none}.nav>li{position:relative;display:block}.nav>li>a{position:relative;display:block;padding:10px 15px}.nav>li>a:hover,.nav>li>a:focus{text-decoration:none;background-color:#eee}.nav>li.disabled>a{color:#777}.nav>li.disabled>a:hover,.nav>li.disabled>a:focus{color:#777;text-decoration:none;cursor:not-allowed;background-color:transparent}.nav .open>a,.nav .open>a:hover,.nav .open>a:focus{background-color:#eee;border-color:#337ab7}.nav .nav-divider{height:1px;margin:9px 0;overflow:hidden;background-color:#e5e5e5}.nav>li>a>img{max-width:none}.nav-tabs{border-bottom:1px solid #ddd}.nav-tabs>li{float:left;margin-bottom:-1px}.nav-tabs>li>a{margin-right:2px;line-height:1.42857143;border:1px solid transparent;border-radius:4px 4px 0 0}.nav-tabs>li>a:hover{border-color:#eee #eee #ddd}.nav-tabs>li.active>a,.nav-tabs>li.active>a:hover,.nav-tabs>li.active>a:focus{color:#555;cursor:default;background-color:#fff;border:1px solid #ddd;border-bottom-color:transparent}.nav-tabs.nav-justified{width:100%;border-bottom:0}.nav-tabs.nav-justified>li{float:none}.nav-tabs.nav-justified>li>a{margin-bottom:5px;text-align:center}.nav-tabs.nav-justified>.dropdown .dropdown-menu{top:auto;left:auto}@media(min-width:768px){.nav-tabs.nav-justified>li{display:table-cell;width:1%}.nav-tabs.nav-justified>li>a{margin-bottom:0}}.nav-tabs.nav-justified>li>a{margin-right:0;border-radius:4px}.nav-tabs.nav-justified>.active>a,.nav-tabs.nav-justified>.active>a:hover,.nav-tabs.nav-justified>.active>a:focus{border:1px solid #ddd}@media(min-width:768px){.nav-tabs.nav-justified>li>a{border-bottom:1px solid #ddd;border-radius:4px 4px 0 0}.nav-tabs.nav-justified>.active>a,.nav-tabs.nav-justified>.active>a:hover,.nav-tabs.nav-justified>.active>a:focus{border-bottom-color:#fff}}.nav-pills>li{float:left}.nav-pills>li>a{border-radius:4px}.nav-pills>li+li{margin-left:2px}.nav-pills>li.active>a,.nav-pills>li.active>a:hover,.nav-pills>li.active>a:focus{color:#fff;background-color:#337ab7}.nav-stacked>li{float:none}.nav-stacked>li+li{margin-top:2px;margin-left:0}.nav-justified{width:100%}.nav-justified>li{float:none}.nav-justified>li>a{margin-bottom:5px;text-align:center}.nav-justified>.dropdown .dropdown-menu{top:auto;left:auto}@media(min-width:768px){.nav-justified>li{display:table-cell;width:1%}.nav-justified>li>a{margin-bottom:0}}.nav-tabs-justified{border-bottom:0}.nav-tabs-justified>li>a{margin-right:0;border-radius:4px}.nav-tabs-justified>.active>a,.nav-tabs-justified>.active>a:hover,.nav-tabs-justified>.active>a:focus{border:1px solid #ddd}@media(min-width:768px){.nav-tabs-justified>li>a{border-bottom:1px solid #ddd;border-radius:4px 4px 0 0}.nav-tabs-justified>.active>a,.nav-tabs-justified>.active>a:hover,.nav-tabs-justified>.active>a:focus{border-bottom-color:#fff}}.tab-content>.tab-pane{display:none}.tab-content>.active{display:block}.nav-tabs .dropdown-menu{margin-top:-1px;border-top-left-radius:0;border-top-right-radius:0}.navbar{position:relative;min-height:50px;margin-bottom:20px;border:1px solid transparent}@media(min-width:768px){.navbar{border-radius:4px}}@media(min-width:768px){.navbar-header{float:left}}.navbar-collapse{padding-right:15px;padding-left:15px;overflow-x:visible;border-top:1px solid transparent;box-shadow:inset 0 1px 0 rgba(255,255,255,0.1);-webkit-overflow-scrolling:touch}.navbar-collapse.in{overflow-y:auto}@media(min-width:768px){.navbar-collapse{width:auto;border-top:0;box-shadow:none}.navbar-collapse.collapse{display:block!important;height:auto!important;padding-bottom:0;overflow:visible!important}.navbar-collapse.in{overflow-y:visible}.navbar-fixed-top .navbar-collapse,.navbar-static-top .navbar-collapse,.navbar-fixed-bottom .navbar-collapse{padding-right:0;padding-left:0}}.navbar-fixed-top,.navbar-fixed-bottom{position:fixed;right:0;left:0;z-index:1030}.navbar-fixed-top .navbar-collapse,.navbar-fixed-bottom .navbar-collapse{max-height:340px}@media(max-device-width:480px) and (orientation:landscape){.navbar-fixed-top .navbar-collapse,.navbar-fixed-bottom .navbar-collapse{max-height:200px}}@media(min-width:768px){.navbar-fixed-top,.navbar-fixed-bottom{border-radius:0}}.navbar-fixed-top{top:0;border-width:0 0 1px}.navbar-fixed-bottom{bottom:0;margin-bottom:0;border-width:1px 0 0}.container>.navbar-header,.container-fluid>.navbar-header,.container>.navbar-collapse,.container-fluid>.navbar-collapse{margin-right:-15px;margin-left:-15px}@media(min-width:768px){.container>.navbar-header,.container-fluid>.navbar-header,.container>.navbar-collapse,.container-fluid>.navbar-collapse{margin-right:0;margin-left:0}}.navbar-static-top{z-index:1000;border-width:0 0 1px}@media(min-width:768px){.navbar-static-top{border-radius:0}}.navbar-brand{float:left;height:50px;padding:15px 15px;font-size:18px;line-height:20px}.navbar-brand:hover,.navbar-brand:focus{text-decoration:none}.navbar-brand>img{display:block}@media(min-width:768px){.navbar>.container .navbar-brand,.navbar>.container-fluid .navbar-brand{margin-left:-15px}}.navbar-toggle{position:relative;float:right;padding:9px 10px;margin-right:15px;margin-top:8px;margin-bottom:8px;background-color:transparent;background-image:none;border:1px solid transparent;border-radius:4px}.navbar-toggle:focus{outline:0}.navbar-toggle .icon-bar{display:block;width:22px;height:2px;border-radius:1px}.navbar-toggle .icon-bar+.icon-bar{margin-top:4px}@media(min-width:768px){.navbar-toggle{display:none}}.navbar-nav{margin:7.5px -15px}.navbar-nav>li>a{padding-top:10px;padding-bottom:10px;line-height:20px}@media(max-width:767px){.navbar-nav .open .dropdown-menu{position:static;float:none;width:auto;margin-top:0;background-color:transparent;border:0;box-shadow:none}.navbar-nav .open .dropdown-menu>li>a,.navbar-nav .open .dropdown-menu .dropdown-header{padding:5px 15px 5px 25px}.navbar-nav .open .dropdown-menu>li>a{line-height:20px}.navbar-nav .open .dropdown-menu>li>a:hover,.navbar-nav .open .dropdown-menu>li>a:focus{background-image:none}}@media(min-width:768px){.navbar-nav{float:left;margin:0}.navbar-nav>li{float:left}.navbar-nav>li>a{padding-top:15px;padding-bottom:15px}}.navbar-form{padding:10px 15px;margin-right:-15px;margin-left:-15px;border-top:1px solid transparent;border-bottom:1px solid transparent;-webkit-box-shadow:inset 0 1px 0 rgba(255,255,255,0.1),0 1px 0 rgba(255,255,255,0.1);box-shadow:inset 0 1px 0 rgba(255,255,255,0.1),0 1px 0 rgba(255,255,255,0.1);margin-top:8px;margin-bottom:8px}@media(min-width:768px){.navbar-form .form-group{display:inline-block;margin-bottom:0;vertical-align:middle}.navbar-form .form-control{display:inline-block;width:auto;vertical-align:middle}.navbar-form .form-control-static{display:inline-block}.navbar-form .input-group{display:inline-table;vertical-align:middle}.navbar-form .input-group .input-group-addon,.navbar-form .input-group .input-group-btn,.navbar-form .input-group .form-control{width:auto}.navbar-form .input-group>.form-control{width:100%}.navbar-form .control-label{margin-bottom:0;vertical-align:middle}.navbar-form .radio,.navbar-form .checkbox{display:inline-block;margin-top:0;margin-bottom:0;vertical-align:middle}.navbar-form .radio label,.navbar-form .checkbox label{padding-left:0}.navbar-form .radio input[type="radio"],.navbar-form .checkbox input[type="checkbox"]{position:relative;margin-left:0}.navbar-form .has-feedback .form-control-feedback{top:0}}@media(max-width:767px){.navbar-form .form-group{margin-bottom:5px}.navbar-form .form-group:last-child{margin-bottom:0}}@media(min-width:768px){.navbar-form{width:auto;padding-top:0;padding-bottom:0;margin-right:0;margin-left:0;border:0;-webkit-box-shadow:none;box-shadow:none}}.navbar-nav>li>.dropdown-menu{margin-top:0;border-top-left-radius:0;border-top-right-radius:0}.navbar-fixed-bottom .navbar-nav>li>.dropdown-menu{margin-bottom:0;border-top-left-radius:4px;border-top-right-radius:4px;border-bottom-right-radius:0;border-bottom-left-radius:0}.navbar-btn{margin-top:8px;margin-bottom:8px}.navbar-btn.btn-sm{margin-top:10px;margin-bottom:10px}.navbar-btn.btn-xs{margin-top:14px;margin-bottom:14px}.navbar-text{margin-top:15px;margin-bottom:15px}@media(min-width:768px){.navbar-text{float:left;margin-right:15px;margin-left:15px}}@media(min-width:768px){.navbar-left{float:left!important}.navbar-right{float:right!important;margin-right:-15px}.navbar-right ~ .navbar-right{margin-right:0}}.navbar-default{background-color:#f8f8f8;border-color:#e7e7e7}.navbar-default .navbar-brand{color:#777}.navbar-default .navbar-brand:hover,.navbar-default .navbar-brand:focus{color:#5e5e5e;background-color:transparent}.navbar-default .navbar-text{color:#777}.navbar-default .navbar-nav>li>a{color:#777}.navbar-default .navbar-nav>li>a:hover,.navbar-default .navbar-nav>li>a:focus{color:#333;background-color:transparent}.navbar-default .navbar-nav>.active>a,.navbar-default .navbar-nav>.active>a:hover,.navbar-default .navbar-nav>.active>a:focus{color:#555;background-color:#e7e7e7}.navbar-default .navbar-nav>.disabled>a,.navbar-default .navbar-nav>.disabled>a:hover,.navbar-default .navbar-nav>.disabled>a:focus{color:#ccc;background-color:transparent}.navbar-default .navbar-nav>.open>a,.navbar-default .navbar-nav>.open>a:hover,.navbar-default .navbar-nav>.open>a:focus{color:#555;background-color:#e7e7e7}@media(max-width:767px){.navbar-default .navbar-nav .open .dropdown-menu>li>a{color:#777}.navbar-default .navbar-nav .open .dropdown-menu>li>a:hover,.navbar-default .navbar-nav .open .dropdown-menu>li>a:focus{color:#333;background-color:transparent}.navbar-default .navbar-nav .open .dropdown-menu>.active>a,.navbar-default .navbar-nav .open .dropdown-menu>.active>a:hover,.navbar-default .navbar-nav .open .dropdown-menu>.active>a:focus{color:#555;background-color:#e7e7e7}.navbar-default .navbar-nav .open .dropdown-menu>.disabled>a,.navbar-default .navbar-nav .open .dropdown-menu>.disabled>a:hover,.navbar-default .navbar-nav .open .dropdown-menu>.disabled>a:focus{color:#ccc;background-color:transparent}}.navbar-default .navbar-toggle{border-color:#ddd}.navbar-default .navbar-toggle:hover,.navbar-default .navbar-toggle:focus{background-color:#ddd}.navbar-default .navbar-toggle .icon-bar{background-color:#888}.navbar-default .navbar-collapse,.navbar-default .navbar-form{border-color:#e7e7e7}.navbar-default .navbar-link{color:#777}.navbar-default .navbar-link:hover{color:#333}.navbar-default .btn-link{color:#777}.navbar-default .btn-link:hover,.navbar-default .btn-link:focus{color:#333}.navbar-default .btn-link[disabled]:hover,fieldset[disabled] .navbar-default .btn-link:hover,.navbar-default .btn-link[disabled]:focus,fieldset[disabled] .navbar-default .btn-link:focus{color:#ccc}.navbar-inverse{background-color:#222;border-color:#080808}.navbar-inverse .navbar-brand{color:#9d9d9d}.navbar-inverse .navbar-brand:hover,.navbar-inverse .navbar-brand:focus{color:#fff;background-color:transparent}.navbar-inverse .navbar-text{color:#9d9d9d}.navbar-inverse .navbar-nav>li>a{color:#9d9d9d}.navbar-inverse .navbar-nav>li>a:hover,.navbar-inverse .navbar-nav>li>a:focus{color:#fff;background-color:transparent}.navbar-inverse .navbar-nav>.active>a,.navbar-inverse .navbar-nav>.active>a:hover,.navbar-inverse .navbar-nav>.active>a:focus{color:#fff;background-color:#080808}.navbar-inverse .navbar-nav>.disabled>a,.navbar-inverse .navbar-nav>.disabled>a:hover,.navbar-inverse .navbar-nav>.disabled>a:focus{color:#444;background-color:transparent}.navbar-inverse .navbar-nav>.open>a,.navbar-inverse .navbar-nav>.open>a:hover,.navbar-inverse .navbar-nav>.open>a:focus{color:#fff;background-color:#080808}@media(max-width:767px){.navbar-inverse .navbar-nav .open .dropdown-menu>.dropdown-header{border-color:#080808}.navbar-inverse .navbar-nav .open .dropdown-menu .divider{background-color:#080808}.navbar-inverse .navbar-nav .open .dropdown-menu>li>a{color:#9d9d9d}.navbar-inverse .navbar-nav .open .dropdown-menu>li>a:hover,.navbar-inverse .navbar-nav .open .dropdown-menu>li>a:focus{color:#fff;background-color:transparent}.navbar-inverse .navbar-nav .open .dropdown-menu>.active>a,.navbar-inverse .navbar-nav .open .dropdown-menu>.active>a:hover,.navbar-inverse .navbar-nav .open .dropdown-menu>.active>a:focus{color:#fff;background-color:#080808}.navbar-inverse .navbar-nav .open .dropdown-menu>.disabled>a,.navbar-inverse .navbar-nav .open .dropdown-menu>.disabled>a:hover,.navbar-inverse .navbar-nav .open .dropdown-menu>.disabled>a:focus{color:#444;background-color:transparent}}.navbar-inverse .navbar-toggle{border-color:#333}.navbar-inverse .navbar-toggle:hover,.navbar-inverse .navbar-toggle:focus{background-color:#333}.navbar-inverse .navbar-toggle .icon-bar{background-color:#fff}.navbar-inverse .navbar-collapse,.navbar-inverse .navbar-form{border-color:#101010}.navbar-inverse .navbar-link{color:#9d9d9d}.navbar-inverse .navbar-link:hover{color:#fff}.navbar-inverse .btn-link{color:#9d9d9d}.navbar-inverse .btn-link:hover,.navbar-inverse .btn-link:focus{color:#fff}.navbar-inverse .btn-link[disabled]:hover,fieldset[disabled] .navbar-inverse .btn-link:hover,.navbar-inverse .btn-link[disabled]:focus,fieldset[disabled] .navbar-inverse .btn-link:focus{color:#444}.breadcrumb{padding:8px 15px;margin-bottom:20px;list-style:none;background-color:#f5f5f5;border-radius:4px}.breadcrumb>li{display:inline-block}.breadcrumb>li+li:before{padding:0 5px;color:#ccc;content:"/\00a0"}.breadcrumb>.active{color:#777}.pagination{display:inline-block;padding-left:0;margin:20px 0;border-radius:4px}.pagination>li{display:inline}.pagination>li>a,.pagination>li>span{position:relative;float:left;padding:6px 12px;margin-left:-1px;line-height:1.42857143;color:#337ab7;text-decoration:none;background-color:#fff;border:1px solid #ddd}.pagination>li>a:hover,.pagination>li>span:hover,.pagination>li>a:focus,.pagination>li>span:focus{z-index:2;color:#23527c;background-color:#eee;border-color:#ddd}.pagination>li:first-child>a,.pagination>li:first-child>span{margin-left:0;border-top-left-radius:4px;border-bottom-left-radius:4px}.pagination>li:last-child>a,.pagination>li:last-child>span{border-top-right-radius:4px;border-bottom-right-radius:4px}.pagination>.active>a,.pagination>.active>span,.pagination>.active>a:hover,.pagination>.active>span:hover,.pagination>.active>a:focus,.pagination>.active>span:focus{z-index:3;color:#fff;cursor:default;background-color:#337ab7;border-color:#337ab7}.pagination>.disabled>span,.pagination>.disabled>span:hover,.pagination>.disabled>span:focus,.pagination>.disabled>a,.pagination>.disabled>a:hover,.pagination>.disabled>a:focus{color:#777;cursor:not-allowed;background-color:#fff;border-color:#ddd}.pagination-lg>li>a,.pagination-lg>li>span{padding:10px 16px;font-size:18px;line-height:1.3333333}.pagination-lg>li:first-child>a,.pagination-lg>li:first-child>span{border-top-left-radius:6px;border-bottom-left-radius:6px}.pagination-lg>li:last-child>a,.pagination-lg>li:last-child>span{border-top-right-radius:6px;border-bottom-right-radius:6px}.pagination-sm>li>a,.pagination-sm>li>span{padding:5px 10px;font-size:12px;line-height:1.5}.pagination-sm>li:first-child>a,.pagination-sm>li:first-child>span{border-top-left-radius:3px;border-bottom-left-radius:3px}.pagination-sm>li:last-child>a,.pagination-sm>li:last-child>span{border-top-right-radius:3px;border-bottom-right-radius:3px}.pager{padding-left:0;margin:20px 0;text-align:center;list-style:none}.pager li{display:inline}.pager li>a,.pager li>span{display:inline-block;padding:5px 14px;background-color:#fff;border:1px solid #ddd;border-radius:15px}.pager li>a:hover,.pager li>a:focus{text-decoration:none;background-color:#eee}.pager .next>a,.pager .next>span{float:right}.pager .previous>a,.pager .previous>span{float:left}.pager .disabled>a,.pager .disabled>a:hover,.pager .disabled>a:focus,.pager .disabled>span{color:#777;cursor:not-allowed;background-color:#fff}.label{display:inline;padding:.2em .6em .3em;font-size:75%;font-weight:700;line-height:1;color:#fff;text-align:center;white-space:nowrap;vertical-align:baseline;border-radius:.25em}a.label:hover,a.label:focus{color:#fff;text-decoration:none;cursor:pointer}.label:empty{display:none}.btn .label{position:relative;top:-1px}.label-default{background-color:#777}.label-default[href]:hover,.label-default[href]:focus{background-color:#5e5e5e}.label-primary{background-color:#337ab7}.label-primary[href]:hover,.label-primary[href]:focus{background-color:#286090}.label-success{background-color:#5cb85c}.label-success[href]:hover,.label-success[href]:focus{background-color:#449d44}.label-info{background-color:#5bc0de}.label-info[href]:hover,.label-info[href]:focus{background-color:#31b0d5}.label-warning{background-color:#f0ad4e}.label-warning[href]:hover,.label-warning[href]:focus{background-color:#ec971f}.label-danger{background-color:#d9534f}.label-danger[href]:hover,.label-danger[href]:focus{background-color:#c9302c}.badge{display:inline-block;min-width:10px;padding:3px 7px;font-size:12px;font-weight:bold;line-height:1;color:#fff;text-align:center;white-space:nowrap;vertical-align:middle;background-color:#777;border-radius:10px}.badge:empty{display:none}.btn .badge{position:relative;top:-1px}.btn-xs .badge,.btn-group-xs>.btn .badge{top:0;padding:1px 5px}a.badge:hover,a.badge:focus{color:#fff;text-decoration:none;cursor:pointer}.list-group-item.active>.badge,.nav-pills>.active>a>.badge{color:#337ab7;background-color:#fff}.list-group-item>.badge{float:right}.list-group-item>.badge+.badge{margin-right:5px}.nav-pills>li>a>.badge{margin-left:3px}.jumbotron{padding-top:30px;padding-bottom:30px;margin-bottom:30px;color:inherit;background-color:#eee}.jumbotron h1,.jumbotron .h1{color:inherit}.jumbotron p{margin-bottom:15px;font-size:21px;font-weight:200}.jumbotron>hr{border-top-color:#d5d5d5}.container .jumbotron,.container-fluid .jumbotron{padding-right:15px;padding-left:15px;border-radius:6px}.jumbotron .container{max-width:100%}@media screen and (min-width:768px){.jumbotron{padding-top:48px;padding-bottom:48px}.container .jumbotron,.container-fluid .jumbotron{padding-right:60px;padding-left:60px}.jumbotron h1,.jumbotron .h1{font-size:63px}}.thumbnail{display:block;padding:4px;margin-bottom:20px;line-height:1.42857143;background-color:#fff;border:1px solid #ddd;border-radius:4px;-webkit-transition:border .2s ease-in-out;-o-transition:border .2s ease-in-out;transition:border .2s ease-in-out}.thumbnail>img,.thumbnail a>img{margin-right:auto;margin-left:auto}a.thumbnail:hover,a.thumbnail:focus,a.thumbnail.active{border-color:#337ab7}.thumbnail .caption{padding:9px;color:#333}.alert{padding:15px;margin-bottom:20px;border:1px solid transparent;border-radius:4px}.alert h4{margin-top:0;color:inherit}.alert .alert-link{font-weight:bold}.alert>p,.alert>ul{margin-bottom:0}.alert>p+p{margin-top:5px}.alert-dismissable,.alert-dismissible{padding-right:35px}.alert-dismissable .close,.alert-dismissible .close{position:relative;top:-2px;right:-21px;color:inherit}.alert-success{color:#3c763d;background-color:#dff0d8;border-color:#d6e9c6}.alert-success hr{border-top-color:#c9e2b3}.alert-success .alert-link{color:#2b542c}.alert-info{color:#31708f;background-color:#d9edf7;border-color:#bce8f1}.alert-info hr{border-top-color:#a6e1ec}.alert-info .alert-link{color:#245269}.alert-warning{color:#8a6d3b;background-color:#fcf8e3;border-color:#faebcc}.alert-warning hr{border-top-color:#f7e1b5}.alert-warning .alert-link{color:#66512c}.alert-danger{color:#a94442;background-color:#f2dede;border-color:#ebccd1}.alert-danger hr{border-top-color:#e4b9c0}.alert-danger .alert-link{color:#843534}@-webkit-keyframes progress-bar-stripes{from{background-position:40px 0}to{background-position:0 0}}@keyframes progress-bar-stripes{from{background-position:40px 0}to{background-position:0 0}}.progress{height:20px;margin-bottom:20px;overflow:hidden;background-color:#f5f5f5;border-radius:4px;-webkit-box-shadow:inset 0 1px 2px rgba(0,0,0,0.1);box-shadow:inset 0 1px 2px rgba(0,0,0,0.1)}.progress-bar{float:left;width:0;height:100%;font-size:12px;line-height:20px;color:#fff;text-align:center;background-color:#337ab7;-webkit-box-shadow:inset 0 -1px 0 rgba(0,0,0,0.15);box-shadow:inset 0 -1px 0 rgba(0,0,0,0.15);-webkit-transition:width .6s ease;-o-transition:width .6s ease;transition:width .6s ease}.progress-striped .progress-bar,.progress-bar-striped{background-image:-webkit-linear-gradient(45deg,rgba(255,255,255,0.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,0.15) 50%,rgba(255,255,255,0.15) 75%,transparent 75%,transparent);background-image:-o-linear-gradient(45deg,rgba(255,255,255,0.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,0.15) 50%,rgba(255,255,255,0.15) 75%,transparent 75%,transparent);background-image:linear-gradient(45deg,rgba(255,255,255,0.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,0.15) 50%,rgba(255,255,255,0.15) 75%,transparent 75%,transparent);background-size:40px 40px}.progress.active .progress-bar,.progress-bar.active{-webkit-animation:progress-bar-stripes 2s linear infinite;-o-animation:progress-bar-stripes 2s linear infinite;animation:progress-bar-stripes 2s linear infinite}.progress-bar-success{background-color:#5cb85c}.progress-striped .progress-bar-success{background-image:-webkit-linear-gradient(45deg,rgba(255,255,255,0.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,0.15) 50%,rgba(255,255,255,0.15) 75%,transparent 75%,transparent);background-image:-o-linear-gradient(45deg,rgba(255,255,255,0.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,0.15) 50%,rgba(255,255,255,0.15) 75%,transparent 75%,transparent);background-image:linear-gradient(45deg,rgba(255,255,255,0.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,0.15) 50%,rgba(255,255,255,0.15) 75%,transparent 75%,transparent)}.progress-bar-info{background-color:#5bc0de}.progress-striped .progress-bar-info{background-image:-webkit-linear-gradient(45deg,rgba(255,255,255,0.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,0.15) 50%,rgba(255,255,255,0.15) 75%,transparent 75%,transparent);background-image:-o-linear-gradient(45deg,rgba(255,255,255,0.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,0.15) 50%,rgba(255,255,255,0.15) 75%,transparent 75%,transparent);background-image:linear-gradient(45deg,rgba(255,255,255,0.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,0.15) 50%,rgba(255,255,255,0.15) 75%,transparent 75%,transparent)}.progress-bar-warning{background-color:#f0ad4e}.progress-striped .progress-bar-warning{background-image:-webkit-linear-gradient(45deg,rgba(255,255,255,0.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,0.15) 50%,rgba(255,255,255,0.15) 75%,transparent 75%,transparent);background-image:-o-linear-gradient(45deg,rgba(255,255,255,0.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,0.15) 50%,rgba(255,255,255,0.15) 75%,transparent 75%,transparent);background-image:linear-gradient(45deg,rgba(255,255,255,0.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,0.15) 50%,rgba(255,255,255,0.15) 75%,transparent 75%,transparent)}.progress-bar-danger{background-color:#d9534f}.progress-striped .progress-bar-danger{background-image:-webkit-linear-gradient(45deg,rgba(255,255,255,0.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,0.15) 50%,rgba(255,255,255,0.15) 75%,transparent 75%,transparent);background-image:-o-linear-gradient(45deg,rgba(255,255,255,0.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,0.15) 50%,rgba(255,255,255,0.15) 75%,transparent 75%,transparent);background-image:linear-gradient(45deg,rgba(255,255,255,0.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,0.15) 50%,rgba(255,255,255,0.15) 75%,transparent 75%,transparent)}.media{margin-top:15px}.media:first-child{margin-top:0}.media,.media-body{overflow:hidden;zoom:1}.media-body{width:10000px}.media-object{display:block}.media-object.img-thumbnail{max-width:none}.media-right,.media>.pull-right{padding-left:10px}.media-left,.media>.pull-left{padding-right:10px}.media-left,.media-right,.media-body{display:table-cell;vertical-align:top}.media-middle{vertical-align:middle}.media-bottom{vertical-align:bottom}.media-heading{margin-top:0;margin-bottom:5px}.media-list{padding-left:0;list-style:none}.list-group{padding-left:0;margin-bottom:20px}.list-group-item{position:relative;display:block;padding:10px 15px;margin-bottom:-1px;background-color:#fff;border:1px solid #ddd}.list-group-item:first-child{border-top-left-radius:4px;border-top-right-radius:4px}.list-group-item:last-child{margin-bottom:0;border-bottom-right-radius:4px;border-bottom-left-radius:4px}.list-group-item.disabled,.list-group-item.disabled:hover,.list-group-item.disabled:focus{color:#777;cursor:not-allowed;background-color:#eee}.list-group-item.disabled .list-group-item-heading,.list-group-item.disabled:hover .list-group-item-heading,.list-group-item.disabled:focus .list-group-item-heading{color:inherit}.list-group-item.disabled .list-group-item-text,.list-group-item.disabled:hover .list-group-item-text,.list-group-item.disabled:focus .list-group-item-text{color:#777}.list-group-item.active,.list-group-item.active:hover,.list-group-item.active:focus{z-index:2;color:#fff;background-color:#337ab7;border-color:#337ab7}.list-group-item.active .list-group-item-heading,.list-group-item.active:hover .list-group-item-heading,.list-group-item.active:focus .list-group-item-heading,.list-group-item.active .list-group-item-heading>small,.list-group-item.active:hover .list-group-item-heading>small,.list-group-item.active:focus .list-group-item-heading>small,.list-group-item.active .list-group-item-heading>.small,.list-group-item.active:hover .list-group-item-heading>.small,.list-group-item.active:focus .list-group-item-heading>.small{color:inherit}.list-group-item.active .list-group-item-text,.list-group-item.active:hover .list-group-item-text,.list-group-item.active:focus .list-group-item-text{color:#c7ddef}a.list-group-item,button.list-group-item{color:#555}a.list-group-item .list-group-item-heading,button.list-group-item .list-group-item-heading{color:#333}a.list-group-item:hover,button.list-group-item:hover,a.list-group-item:focus,button.list-group-item:focus{color:#555;text-decoration:none;background-color:#f5f5f5}button.list-group-item{width:100%;text-align:left}.list-group-item-success{color:#3c763d;background-color:#dff0d8}a.list-group-item-success,button.list-group-item-success{color:#3c763d}a.list-group-item-success .list-group-item-heading,button.list-group-item-success .list-group-item-heading{color:inherit}a.list-group-item-success:hover,button.list-group-item-success:hover,a.list-group-item-success:focus,button.list-group-item-success:focus{color:#3c763d;background-color:#d0e9c6}a.list-group-item-success.active,button.list-group-item-success.active,a.list-group-item-success.active:hover,button.list-group-item-success.active:hover,a.list-group-item-success.active:focus,button.list-group-item-success.active:focus{color:#fff;background-color:#3c763d;border-color:#3c763d}.list-group-item-info{color:#31708f;background-color:#d9edf7}a.list-group-item-info,button.list-group-item-info{color:#31708f}a.list-group-item-info .list-group-item-heading,button.list-group-item-info .list-group-item-heading{color:inherit}a.list-group-item-info:hover,button.list-group-item-info:hover,a.list-group-item-info:focus,button.list-group-item-info:focus{color:#31708f;background-color:#c4e3f3}a.list-group-item-info.active,button.list-group-item-info.active,a.list-group-item-info.active:hover,button.list-group-item-info.active:hover,a.list-group-item-info.active:focus,button.list-group-item-info.active:focus{color:#fff;background-color:#31708f;border-color:#31708f}.list-group-item-warning{color:#8a6d3b;background-color:#fcf8e3}a.list-group-item-warning,button.list-group-item-warning{color:#8a6d3b}a.list-group-item-warning .list-group-item-heading,button.list-group-item-warning .list-group-item-heading{color:inherit}a.list-group-item-warning:hover,button.list-group-item-warning:hover,a.list-group-item-warning:focus,button.list-group-item-warning:focus{color:#8a6d3b;background-color:#faf2cc}a.list-group-item-warning.active,button.list-group-item-warning.active,a.list-group-item-warning.active:hover,button.list-group-item-warning.active:hover,a.list-group-item-warning.active:focus,button.list-group-item-warning.active:focus{color:#fff;background-color:#8a6d3b;border-color:#8a6d3b}.list-group-item-danger{color:#a94442;background-color:#f2dede}a.list-group-item-danger,button.list-group-item-danger{color:#a94442}a.list-group-item-danger .list-group-item-heading,button.list-group-item-danger .list-group-item-heading{color:inherit}a.list-group-item-danger:hover,button.list-group-item-danger:hover,a.list-group-item-danger:focus,button.list-group-item-danger:focus{color:#a94442;background-color:#ebcccc}a.list-group-item-danger.active,button.list-group-item-danger.active,a.list-group-item-danger.active:hover,button.list-group-item-danger.active:hover,a.list-group-item-danger.active:focus,button.list-group-item-danger.active:focus{color:#fff;background-color:#a94442;border-color:#a94442}.list-group-item-heading{margin-top:0;margin-bottom:5px}.list-group-item-text{margin-bottom:0;line-height:1.3}.panel{margin-bottom:20px;background-color:#fff;border:1px solid transparent;border-radius:4px;-webkit-box-shadow:0 1px 1px rgba(0,0,0,0.05);box-shadow:0 1px 1px rgba(0,0,0,0.05)}.panel-body{padding:15px}.panel-heading{padding:10px 15px;border-bottom:1px solid transparent;border-top-left-radius:3px;border-top-right-radius:3px}.panel-heading>.dropdown .dropdown-toggle{color:inherit}.panel-title{margin-top:0;margin-bottom:0;font-size:16px;color:inherit}.panel-title>a,.panel-title>small,.panel-title>.small,.panel-title>small>a,.panel-title>.small>a{color:inherit}.panel-footer{padding:10px 15px;background-color:#f5f5f5;border-top:1px solid #ddd;border-bottom-right-radius:3px;border-bottom-left-radius:3px}.panel>.list-group,.panel>.panel-collapse>.list-group{margin-bottom:0}.panel>.list-group .list-group-item,.panel>.panel-collapse>.list-group .list-group-item{border-width:1px 0;border-radius:0}.panel>.list-group:first-child .list-group-item:first-child,.panel>.panel-collapse>.list-group:first-child .list-group-item:first-child{border-top:0;border-top-left-radius:3px;border-top-right-radius:3px}.panel>.list-group:last-child .list-group-item:last-child,.panel>.panel-collapse>.list-group:last-child .list-group-item:last-child{border-bottom:0;border-bottom-right-radius:3px;border-bottom-left-radius:3px}.panel>.panel-heading+.panel-collapse>.list-group .list-group-item:first-child{border-top-left-radius:0;border-top-right-radius:0}.panel-heading+.list-group .list-group-item:first-child{border-top-width:0}.list-group+.panel-footer{border-top-width:0}.panel>.table,.panel>.table-responsive>.table,.panel>.panel-collapse>.table{margin-bottom:0}.panel>.table caption,.panel>.table-responsive>.table caption,.panel>.panel-collapse>.table caption{padding-right:15px;padding-left:15px}.panel>.table:first-child,.panel>.table-responsive:first-child>.table:first-child{border-top-left-radius:3px;border-top-right-radius:3px}.panel>.table:first-child>thead:first-child>tr:first-child,.panel>.table-responsive:first-child>.table:first-child>thead:first-child>tr:first-child,.panel>.table:first-child>tbody:first-child>tr:first-child,.panel>.table-responsive:first-child>.table:first-child>tbody:first-child>tr:first-child{border-top-left-radius:3px;border-top-right-radius:3px}.panel>.table:first-child>thead:first-child>tr:first-child td:first-child,.panel>.table-responsive:first-child>.table:first-child>thead:first-child>tr:first-child td:first-child,.panel>.table:first-child>tbody:first-child>tr:first-child td:first-child,.panel>.table-responsive:first-child>.table:first-child>tbody:first-child>tr:first-child td:first-child,.panel>.table:first-child>thead:first-child>tr:first-child th:first-child,.panel>.table-responsive:first-child>.table:first-child>thead:first-child>tr:first-child th:first-child,.panel>.table:first-child>tbody:first-child>tr:first-child th:first-child,.panel>.table-responsive:first-child>.table:first-child>tbody:first-child>tr:first-child th:first-child{border-top-left-radius:3px}.panel>.table:first-child>thead:first-child>tr:first-child td:last-child,.panel>.table-responsive:first-child>.table:first-child>thead:first-child>tr:first-child td:last-child,.panel>.table:first-child>tbody:first-child>tr:first-child td:last-child,.panel>.table-responsive:first-child>.table:first-child>tbody:first-child>tr:first-child td:last-child,.panel>.table:first-child>thead:first-child>tr:first-child th:last-child,.panel>.table-responsive:first-child>.table:first-child>thead:first-child>tr:first-child th:last-child,.panel>.table:first-child>tbody:first-child>tr:first-child th:last-child,.panel>.table-responsive:first-child>.table:first-child>tbody:first-child>tr:first-child th:last-child{border-top-right-radius:3px}.panel>.table:last-child,.panel>.table-responsive:last-child>.table:last-child{border-bottom-right-radius:3px;border-bottom-left-radius:3px}.panel>.table:last-child>tbody:last-child>tr:last-child,.panel>.table-responsive:last-child>.table:last-child>tbody:last-child>tr:last-child,.panel>.table:last-child>tfoot:last-child>tr:last-child,.panel>.table-responsive:last-child>.table:last-child>tfoot:last-child>tr:last-child{border-bottom-right-radius:3px;border-bottom-left-radius:3px}.panel>.table:last-child>tbody:last-child>tr:last-child td:first-child,.panel>.table-responsive:last-child>.table:last-child>tbody:last-child>tr:last-child td:first-child,.panel>.table:last-child>tfoot:last-child>tr:last-child td:first-child,.panel>.table-responsive:last-child>.table:last-child>tfoot:last-child>tr:last-child td:first-child,.panel>.table:last-child>tbody:last-child>tr:last-child th:first-child,.panel>.table-responsive:last-child>.table:last-child>tbody:last-child>tr:last-child th:first-child,.panel>.table:last-child>tfoot:last-child>tr:last-child th:first-child,.panel>.table-responsive:last-child>.table:last-child>tfoot:last-child>tr:last-child th:first-child{border-bottom-left-radius:3px}.panel>.table:last-child>tbody:last-child>tr:last-child td:last-child,.panel>.table-responsive:last-child>.table:last-child>tbody:last-child>tr:last-child td:last-child,.panel>.table:last-child>tfoot:last-child>tr:last-child td:last-child,.panel>.table-responsive:last-child>.table:last-child>tfoot:last-child>tr:last-child td:last-child,.panel>.table:last-child>tbody:last-child>tr:last-child th:last-child,.panel>.table-responsive:last-child>.table:last-child>tbody:last-child>tr:last-child th:last-child,.panel>.table:last-child>tfoot:last-child>tr:last-child th:last-child,.panel>.table-responsive:last-child>.table:last-child>tfoot:last-child>tr:last-child th:last-child{border-bottom-right-radius:3px}.panel>.panel-body+.table,.panel>.panel-body+.table-responsive,.panel>.table+.panel-body,.panel>.table-responsive+.panel-body{border-top:1px solid #ddd}.panel>.table>tbody:first-child>tr:first-child th,.panel>.table>tbody:first-child>tr:first-child td{border-top:0}.panel>.table-bordered,.panel>.table-responsive>.table-bordered{border:0}.panel>.table-bordered>thead>tr>th:first-child,.panel>.table-responsive>.table-bordered>thead>tr>th:first-child,.panel>.table-bordered>tbody>tr>th:first-child,.panel>.table-responsive>.table-bordered>tbody>tr>th:first-child,.panel>.table-bordered>tfoot>tr>th:first-child,.panel>.table-responsive>.table-bordered>tfoot>tr>th:first-child,.panel>.table-bordered>thead>tr>td:first-child,.panel>.table-responsive>.table-bordered>thead>tr>td:first-child,.panel>.table-bordered>tbody>tr>td:first-child,.panel>.table-responsive>.table-bordered>tbody>tr>td:first-child,.panel>.table-bordered>tfoot>tr>td:first-child,.panel>.table-responsive>.table-bordered>tfoot>tr>td:first-child{border-left:0}.panel>.table-bordered>thead>tr>th:last-child,.panel>.table-responsive>.table-bordered>thead>tr>th:last-child,.panel>.table-bordered>tbody>tr>th:last-child,.panel>.table-responsive>.table-bordered>tbody>tr>th:last-child,.panel>.table-bordered>tfoot>tr>th:last-child,.panel>.table-responsive>.table-bordered>tfoot>tr>th:last-child,.panel>.table-bordered>thead>tr>td:last-child,.panel>.table-responsive>.table-bordered>thead>tr>td:last-child,.panel>.table-bordered>tbody>tr>td:last-child,.panel>.table-responsive>.table-bordered>tbody>tr>td:last-child,.panel>.table-bordered>tfoot>tr>td:last-child,.panel>.table-responsive>.table-bordered>tfoot>tr>td:last-child{border-right:0}.panel>.table-bordered>thead>tr:first-child>td,.panel>.table-responsive>.table-bordered>thead>tr:first-child>td,.panel>.table-bordered>tbody>tr:first-child>td,.panel>.table-responsive>.table-bordered>tbody>tr:first-child>td,.panel>.table-bordered>thead>tr:first-child>th,.panel>.table-responsive>.table-bordered>thead>tr:first-child>th,.panel>.table-bordered>tbody>tr:first-child>th,.panel>.table-responsive>.table-bordered>tbody>tr:first-child>th{border-bottom:0}.panel>.table-bordered>tbody>tr:last-child>td,.panel>.table-responsive>.table-bordered>tbody>tr:last-child>td,.panel>.table-bordered>tfoot>tr:last-child>td,.panel>.table-responsive>.table-bordered>tfoot>tr:last-child>td,.panel>.table-bordered>tbody>tr:last-child>th,.panel>.table-responsive>.table-bordered>tbody>tr:last-child>th,.panel>.table-bordered>tfoot>tr:last-child>th,.panel>.table-responsive>.table-bordered>tfoot>tr:last-child>th{border-bottom:0}.panel>.table-responsive{margin-bottom:0;border:0}.panel-group{margin-bottom:20px}.panel-group .panel{margin-bottom:0;border-radius:4px}.panel-group .panel+.panel{margin-top:5px}.panel-group .panel-heading{border-bottom:0}.panel-group .panel-heading+.panel-collapse>.panel-body,.panel-group .panel-heading+.panel-collapse>.list-group{border-top:1px solid #ddd}.panel-group .panel-footer{border-top:0}.panel-group .panel-footer+.panel-collapse .panel-body{border-bottom:1px solid #ddd}.panel-default{border-color:#ddd}.panel-default>.panel-heading{color:#333;background-color:#f5f5f5;border-color:#ddd}.panel-default>.panel-heading+.panel-collapse>.panel-body{border-top-color:#ddd}.panel-default>.panel-heading .badge{color:#f5f5f5;background-color:#333}.panel-default>.panel-footer+.panel-collapse>.panel-body{border-bottom-color:#ddd}.panel-primary{border-color:#337ab7}.panel-primary>.panel-heading{color:#fff;background-color:#337ab7;border-color:#337ab7}.panel-primary>.panel-heading+.panel-collapse>.panel-body{border-top-color:#337ab7}.panel-primary>.panel-heading .badge{color:#337ab7;background-color:#fff}.panel-primary>.panel-footer+.panel-collapse>.panel-body{border-bottom-color:#337ab7}.panel-success{border-color:#d6e9c6}.panel-success>.panel-heading{color:#3c763d;background-color:#dff0d8;border-color:#d6e9c6}.panel-success>.panel-heading+.panel-collapse>.panel-body{border-top-color:#d6e9c6}.panel-success>.panel-heading .badge{color:#dff0d8;background-color:#3c763d}.panel-success>.panel-footer+.panel-collapse>.panel-body{border-bottom-color:#d6e9c6}.panel-info{border-color:#bce8f1}.panel-info>.panel-heading{color:#31708f;background-color:#d9edf7;border-color:#bce8f1}.panel-info>.panel-heading+.panel-collapse>.panel-body{border-top-color:#bce8f1}.panel-info>.panel-heading .badge{color:#d9edf7;background-color:#31708f}.panel-info>.panel-footer+.panel-collapse>.panel-body{border-bottom-color:#bce8f1}.panel-warning{border-color:#faebcc}.panel-warning>.panel-heading{color:#8a6d3b;background-color:#fcf8e3;border-color:#faebcc}.panel-warning>.panel-heading+.panel-collapse>.panel-body{border-top-color:#faebcc}.panel-warning>.panel-heading .badge{color:#fcf8e3;background-color:#8a6d3b}.panel-warning>.panel-footer+.panel-collapse>.panel-body{border-bottom-color:#faebcc}.panel-danger{border-color:#ebccd1}.panel-danger>.panel-heading{color:#a94442;background-color:#f2dede;border-color:#ebccd1}.panel-danger>.panel-heading+.panel-collapse>.panel-body{border-top-color:#ebccd1}.panel-danger>.panel-heading .badge{color:#f2dede;background-color:#a94442}.panel-danger>.panel-footer+.panel-collapse>.panel-body{border-bottom-color:#ebccd1}.embed-responsive{position:relative;display:block;height:0;padding:0;overflow:hidden}.embed-responsive .embed-responsive-item,.embed-responsive iframe,.embed-responsive embed,.embed-responsive object,.embed-responsive video{position:absolute;top:0;bottom:0;left:0;width:100%;height:100%;border:0}.embed-responsive-16by9{padding-bottom:56.25%}.embed-responsive-4by3{padding-bottom:75%}.well{min-height:20px;padding:19px;margin-bottom:20px;background-color:#f5f5f5;border:1px solid #e3e3e3;border-radius:4px;-webkit-box-shadow:inset 0 1px 1px rgba(0,0,0,0.05);box-shadow:inset 0 1px 1px rgba(0,0,0,0.05)}.well blockquote{border-color:#ddd;border-color:rgba(0,0,0,0.15)}.well-lg{padding:24px;border-radius:6px}.well-sm{padding:9px;border-radius:3px}.close{float:right;font-size:21px;font-weight:bold;line-height:1;color:#000;text-shadow:0 1px 0 #fff;filter:alpha(opacity=20);opacity:.2}.close:hover,.close:focus{color:#000;text-decoration:none;cursor:pointer;filter:alpha(opacity=50);opacity:.5}button.close{padding:0;cursor:pointer;background:transparent;border:0;-webkit-appearance:none;appearance:none}.modal-open{overflow:hidden}.modal{position:fixed;top:0;right:0;bottom:0;left:0;z-index:1050;display:none;overflow:hidden;-webkit-overflow-scrolling:touch;outline:0}.modal.fade .modal-dialog{-webkit-transform:translate(0,-25%);-ms-transform:translate(0,-25%);-o-transform:translate(0,-25%);transform:translate(0,-25%);-webkit-transition:-webkit-transform .3s ease-out;-moz-transition:-moz-transform .3s ease-out;-o-transition:-o-transform .3s ease-out;transition:transform .3s ease-out}.modal.in .modal-dialog{-webkit-transform:translate(0,0);-ms-transform:translate(0,0);-o-transform:translate(0,0);transform:translate(0,0)}.modal-open .modal{overflow-x:hidden;overflow-y:auto}.modal-dialog{position:relative;width:auto;margin:10px}.modal-content{position:relative;background-color:#fff;background-clip:padding-box;border:1px solid #999;border:1px solid rgba(0,0,0,0.2);border-radius:6px;-webkit-box-shadow:0 3px 9px rgba(0,0,0,0.5);box-shadow:0 3px 9px rgba(0,0,0,0.5);outline:0}.modal-backdrop{position:fixed;top:0;right:0;bottom:0;left:0;z-index:1040;background-color:#000}.modal-backdrop.fade{filter:alpha(opacity=0);opacity:0}.modal-backdrop.in{filter:alpha(opacity=50);opacity:.5}.modal-header{padding:15px;border-bottom:1px solid #e5e5e5}.modal-header .close{margin-top:-2px}.modal-title{margin:0;line-height:1.42857143}.modal-body{position:relative;padding:15px}.modal-footer{padding:15px;text-align:right;border-top:1px solid #e5e5e5}.modal-footer .btn+.btn{margin-bottom:0;margin-left:5px}.modal-footer .btn-group .btn+.btn{margin-left:-1px}.modal-footer .btn-block+.btn-block{margin-left:0}.modal-scrollbar-measure{position:absolute;top:-9999px;width:50px;height:50px;overflow:scroll}@media(min-width:768px){.modal-dialog{width:600px;margin:30px auto}.modal-content{-webkit-box-shadow:0 5px 15px rgba(0,0,0,0.5);box-shadow:0 5px 15px rgba(0,0,0,0.5)}.modal-sm{width:300px}}@media(min-width:992px){.modal-lg{width:900px}}.tooltip{position:absolute;z-index:1070;display:block;font-family:"Helvetica Neue",Helvetica,Arial,sans-serif;font-style:normal;font-weight:400;line-height:1.42857143;line-break:auto;text-align:left;text-align:start;text-decoration:none;text-shadow:none;text-transform:none;letter-spacing:normal;word-break:normal;word-spacing:normal;word-wrap:normal;white-space:normal;font-size:12px;filter:alpha(opacity=0);opacity:0}.tooltip.in{filter:alpha(opacity=90);opacity:.9}.tooltip.top{padding:5px 0;margin-top:-3px}.tooltip.right{padding:0 5px;margin-left:3px}.tooltip.bottom{padding:5px 0;margin-top:3px}.tooltip.left{padding:0 5px;margin-left:-3px}.tooltip.top .tooltip-arrow{bottom:0;left:50%;margin-left:-5px;border-width:5px 5px 0;border-top-color:#000}.tooltip.top-left .tooltip-arrow{right:5px;bottom:0;margin-bottom:-5px;border-width:5px 5px 0;border-top-color:#000}.tooltip.top-right .tooltip-arrow{bottom:0;left:5px;margin-bottom:-5px;border-width:5px 5px 0;border-top-color:#000}.tooltip.right .tooltip-arrow{top:50%;left:0;margin-top:-5px;border-width:5px 5px 5px 0;border-right-color:#000}.tooltip.left .tooltip-arrow{top:50%;right:0;margin-top:-5px;border-width:5px 0 5px 5px;border-left-color:#000}.tooltip.bottom .tooltip-arrow{top:0;left:50%;margin-left:-5px;border-width:0 5px 5px;border-bottom-color:#000}.tooltip.bottom-left .tooltip-arrow{top:0;right:5px;margin-top:-5px;border-width:0 5px 5px;border-bottom-color:#000}.tooltip.bottom-right .tooltip-arrow{top:0;left:5px;margin-top:-5px;border-width:0 5px 5px;border-bottom-color:#000}.tooltip-inner{max-width:200px;padding:3px 8px;color:#fff;text-align:center;background-color:#000;border-radius:4px}.tooltip-arrow{position:absolute;width:0;height:0;border-color:transparent;border-style:solid}.popover{position:absolute;top:0;left:0;z-index:1060;display:none;max-width:276px;padding:1px;font-family:"Helvetica Neue",Helvetica,Arial,sans-serif;font-style:normal;font-weight:400;line-height:1.42857143;line-break:auto;text-align:left;text-align:start;text-decoration:none;text-shadow:none;text-transform:none;letter-spacing:normal;word-break:normal;word-spacing:normal;word-wrap:normal;white-space:normal;font-size:14px;background-color:#fff;background-clip:padding-box;border:1px solid #ccc;border:1px solid rgba(0,0,0,0.2);border-radius:6px;-webkit-box-shadow:0 5px 10px rgba(0,0,0,0.2);box-shadow:0 5px 10px rgba(0,0,0,0.2)}.popover.top{margin-top:-10px}.popover.right{margin-left:10px}.popover.bottom{margin-top:10px}.popover.left{margin-left:-10px}.popover>.arrow{border-width:11px}.popover>.arrow,.popover>.arrow:after{position:absolute;display:block;width:0;height:0;border-color:transparent;border-style:solid}.popover>.arrow:after{content:"";border-width:10px}.popover.top>.arrow{bottom:-11px;left:50%;margin-left:-11px;border-top-color:#999;border-top-color:rgba(0,0,0,0.25);border-bottom-width:0}.popover.top>.arrow:after{bottom:1px;margin-left:-10px;content:" ";border-top-color:#fff;border-bottom-width:0}.popover.right>.arrow{top:50%;left:-11px;margin-top:-11px;border-right-color:#999;border-right-color:rgba(0,0,0,0.25);border-left-width:0}.popover.right>.arrow:after{bottom:-10px;left:1px;content:" ";border-right-color:#fff;border-left-width:0}.popover.bottom>.arrow{top:-11px;left:50%;margin-left:-11px;border-top-width:0;border-bottom-color:#999;border-bottom-color:rgba(0,0,0,0.25)}.popover.bottom>.arrow:after{top:1px;margin-left:-10px;content:" ";border-top-width:0;border-bottom-color:#fff}.popover.left>.arrow{top:50%;right:-11px;margin-top:-11px;border-right-width:0;border-left-color:#999;border-left-color:rgba(0,0,0,0.25)}.popover.left>.arrow:after{right:1px;bottom:-10px;content:" ";border-right-width:0;border-left-color:#fff}.popover-title{padding:8px 14px;margin:0;font-size:14px;background-color:#f7f7f7;border-bottom:1px solid #ebebeb;border-radius:5px 5px 0 0}.popover-content{padding:9px 14px}.carousel{position:relative}.carousel-inner{position:relative;width:100%;overflow:hidden}.carousel-inner>.item{position:relative;display:none;-webkit-transition:.6s ease-in-out left;-o-transition:.6s ease-in-out left;transition:.6s ease-in-out left}.carousel-inner>.item>img,.carousel-inner>.item>a>img{line-height:1}@media all and (transform-3d),(-webkit-transform-3d){.carousel-inner>.item{-webkit-transition:-webkit-transform .6s ease-in-out;-moz-transition:-moz-transform .6s ease-in-out;-o-transition:-o-transform .6s ease-in-out;transition:transform .6s ease-in-out;-webkit-backface-visibility:hidden;-moz-backface-visibility:hidden;backface-visibility:hidden;-webkit-perspective:1000px;-moz-perspective:1000px;perspective:1000px}.carousel-inner>.item.next,.carousel-inner>.item.active.right{-webkit-transform:translate3d(100%,0,0);transform:translate3d(100%,0,0);left:0}.carousel-inner>.item.prev,.carousel-inner>.item.active.left{-webkit-transform:translate3d(-100%,0,0);transform:translate3d(-100%,0,0);left:0}.carousel-inner>.item.next.left,.carousel-inner>.item.prev.right,.carousel-inner>.item.active{-webkit-transform:translate3d(0,0,0);transform:translate3d(0,0,0);left:0}}.carousel-inner>.active,.carousel-inner>.next,.carousel-inner>.prev{display:block}.carousel-inner>.active{left:0}.carousel-inner>.next,.carousel-inner>.prev{position:absolute;top:0;width:100%}.carousel-inner>.next{left:100%}.carousel-inner>.prev{left:-100%}.carousel-inner>.next.left,.carousel-inner>.prev.right{left:0}.carousel-inner>.active.left{left:-100%}.carousel-inner>.active.right{left:100%}.carousel-control{position:absolute;top:0;bottom:0;left:0;width:15%;font-size:20px;color:#fff;text-align:center;text-shadow:0 1px 2px rgba(0,0,0,0.6);background-color:rgba(0,0,0,0);filter:alpha(opacity=50);opacity:.5}.carousel-control.left{background-image:-webkit-linear-gradient(left,rgba(0,0,0,0.5) 0,rgba(0,0,0,0.0001) 100%);background-image:-o-linear-gradient(left,rgba(0,0,0,0.5) 0,rgba(0,0,0,0.0001) 100%);background-image:linear-gradient(to right,rgba(0,0,0,0.5) 0,rgba(0,0,0,0.0001) 100%);filter:progid:DXImageTransform.Microsoft.gradient(startColorstr='#80000000',endColorstr='#00000000',GradientType=1);background-repeat:repeat-x}.carousel-control.right{right:0;left:auto;background-image:-webkit-linear-gradient(left,rgba(0,0,0,0.0001) 0,rgba(0,0,0,0.5) 100%);background-image:-o-linear-gradient(left,rgba(0,0,0,0.0001) 0,rgba(0,0,0,0.5) 100%);background-image:linear-gradient(to right,rgba(0,0,0,0.0001) 0,rgba(0,0,0,0.5) 100%);filter:progid:DXImageTransform.Microsoft.gradient(startColorstr='#00000000',endColorstr='#80000000',GradientType=1);background-repeat:repeat-x}.carousel-control:hover,.carousel-control:focus{color:#fff;text-decoration:none;outline:0;filter:alpha(opacity=90);opacity:.9}.carousel-control .icon-prev,.carousel-control .icon-next,.carousel-control .glyphicon-chevron-left,.carousel-control .glyphicon-chevron-right{position:absolute;top:50%;z-index:5;display:inline-block;margin-top:-10px}.carousel-control .icon-prev,.carousel-control .glyphicon-chevron-left{left:50%;margin-left:-10px}.carousel-control .icon-next,.carousel-control .glyphicon-chevron-right{right:50%;margin-right:-10px}.carousel-control .icon-prev,.carousel-control .icon-next{width:20px;height:20px;font-family:serif;line-height:1}.carousel-control .icon-prev:before{content:"\2039"}.carousel-control .icon-next:before{content:"\203a"}.carousel-indicators{position:absolute;bottom:10px;left:50%;z-index:15;width:60%;padding-left:0;margin-left:-30%;text-align:center;list-style:none}.carousel-indicators li{display:inline-block;width:10px;height:10px;margin:1px;text-indent:-999px;cursor:pointer;background-color:#000 \9;background-color:rgba(0,0,0,0);border:1px solid #fff;border-radius:10px}.carousel-indicators .active{width:12px;height:12px;margin:0;background-color:#fff}.carousel-caption{position:absolute;right:15%;bottom:20px;left:15%;z-index:10;padding-top:20px;padding-bottom:20px;color:#fff;text-align:center;text-shadow:0 1px 2px rgba(0,0,0,0.6)}.carousel-caption .btn{text-shadow:none}@media screen and (min-width:768px){.carousel-control .glyphicon-chevron-left,.carousel-control .glyphicon-chevron-right,.carousel-control .icon-prev,.carousel-control .icon-next{width:30px;height:30px;margin-top:-10px;font-size:30px}.carousel-control .glyphicon-chevron-left,.carousel-control .icon-prev{margin-left:-10px}.carousel-control .glyphicon-chevron-right,.carousel-control .icon-next{margin-right:-10px}.carousel-caption{right:20%;left:20%;padding-bottom:30px}.carousel-indicators{bottom:20px}}.clearfix:before,.clearfix:after,.dl-horizontal dd:before,.dl-horizontal dd:after,.container:before,.container:after,.container-fluid:before,.container-fluid:after,.row:before,.row:after,.form-horizontal .form-group:before,.form-horizontal .form-group:after,.btn-toolbar:before,.btn-toolbar:after,.btn-group-vertical>.btn-group:before,.btn-group-vertical>.btn-group:after,.nav:before,.nav:after,.navbar:before,.navbar:after,.navbar-header:before,.navbar-header:after,.navbar-collapse:before,.navbar-collapse:after,.pager:before,.pager:after,.panel-body:before,.panel-body:after,.modal-header:before,.modal-header:after,.modal-footer:before,.modal-footer:after{display:table;content:" "}.clearfix:after,.dl-horizontal dd:after,.container:after,.container-fluid:after,.row:after,.form-horizontal .form-group:after,.btn-toolbar:after,.btn-group-vertical>.btn-group:after,.nav:after,.navbar:after,.navbar-header:after,.navbar-collapse:after,.pager:after,.panel-body:after,.modal-header:after,.modal-footer:after{clear:both}.center-block{display:block;margin-right:auto;margin-left:auto}.pull-right{float:right!important}.pull-left{float:left!important}.hide{display:none!important}.show{display:block!important}.invisible{visibility:hidden}.text-hide{font:0/0 a;color:transparent;text-shadow:none;background-color:transparent;border:0}.hidden{display:none!important}.affix{position:fixed}@-ms-viewport{width:device-width}.visible-xs,.visible-sm,.visible-md,.visible-lg{display:none!important}.visible-xs-block,.visible-xs-inline,.visible-xs-inline-block,.visible-sm-block,.visible-sm-inline,.visible-sm-inline-block,.visible-md-block,.visible-md-inline,.visible-md-inline-block,.visible-lg-block,.visible-lg-inline,.visible-lg-inline-block{display:none!important}@media(max-width:767px){.visible-xs{display:block!important}table.visible-xs{display:table!important}tr.visible-xs{display:table-row!important}th.visible-xs,td.visible-xs{display:table-cell!important}}@media(max-width:767px){.visible-xs-block{display:block!important}}@media(max-width:767px){.visible-xs-inline{display:inline!important}}@media(max-width:767px){.visible-xs-inline-block{display:inline-block!important}}@media(min-width:768px) and (max-width:991px){.visible-sm{display:block!important}table.visible-sm{display:table!important}tr.visible-sm{display:table-row!important}th.visible-sm,td.visible-sm{display:table-cell!important}}@media(min-width:768px) and (max-width:991px){.visible-sm-block{display:block!important}}@media(min-width:768px) and (max-width:991px){.visible-sm-inline{display:inline!important}}@media(min-width:768px) and (max-width:991px){.visible-sm-inline-block{display:inline-block!important}}@media(min-width:992px) and (max-width:1199px){.visible-md{display:block!important}table.visible-md{display:table!important}tr.visible-md{display:table-row!important}th.visible-md,td.visible-md{display:table-cell!important}}@media(min-width:992px) and (max-width:1199px){.visible-md-block{display:block!important}}@media(min-width:992px) and (max-width:1199px){.visible-md-inline{display:inline!important}}@media(min-width:992px) and (max-width:1199px){.visible-md-inline-block{display:inline-block!important}}@media(min-width:1200px){.visible-lg{display:block!important}table.visible-lg{display:table!important}tr.visible-lg{display:table-row!important}th.visible-lg,td.visible-lg{display:table-cell!important}}@media(min-width:1200px){.visible-lg-block{display:block!important}}@media(min-width:1200px){.visible-lg-inline{display:inline!important}}@media(min-width:1200px){.visible-lg-inline-block{display:inline-block!important}}@media(max-width:767px){.hidden-xs{display:none!important}}@media(min-width:768px) and (max-width:991px){.hidden-sm{display:none!important}}@media(min-width:992px) and (max-width:1199px){.hidden-md{display:none!important}}@media(min-width:1200px){.hidden-lg{display:none!important}}.visible-print{display:none!important}@media print{.visible-print{display:block!important}table.visible-print{display:table!important}tr.visible-print{display:table-row!important}th.visible-print,td.visible-print{display:table-cell!important}}.visible-print-block{display:none!important}@media print{.visible-print-block{display:block!important}}.visible-print-inline{display:none!important}@media print{.visible-print-inline{display:inline!important}}.visible-print-inline-block{display:none!important}@media print{.visible-print-inline-block{display:inline-block!important}}@media print{.hidden-print{display:none!important}}</style>
+<script>if(typeof jQuery==="undefined"){throw new Error("Bootstrap's JavaScript requires jQuery")}+function($){"use strict";var version=$.fn.jquery.split(" ")[0].split(".");if(version[0]<2&&version[1]<9||version[0]==1&&version[1]==9&&version[2]<1||version[0]>3){throw new Error("Bootstrap's JavaScript requires jQuery version 1.9.1 or higher, but lower than version 4")}}(jQuery);+function($){"use strict";function transitionEnd(){var el=document.createElement("bootstrap");var transEndEventNames={WebkitTransition:"webkitTransitionEnd",MozTransition:"transitionend",OTransition:"oTransitionEnd otransitionend",transition:"transitionend"};for(var name in transEndEventNames){if(el.style[name]!==undefined){return{end:transEndEventNames[name]}}}return false}$.fn.emulateTransitionEnd=function(duration){var called=false;var $el=this;$(this).one("bsTransitionEnd",function(){called=true});var callback=function(){if(!called)$($el).trigger($.support.transition.end)};setTimeout(callback,duration);return this};$(function(){$.support.transition=transitionEnd();if(!$.support.transition)return;$.event.special.bsTransitionEnd={bindType:$.support.transition.end,delegateType:$.support.transition.end,handle:function(e){if($(e.target).is(this))return e.handleObj.handler.apply(this,arguments)}}})}(jQuery);+function($){"use strict";var dismiss='[data-dismiss="alert"]';var Alert=function(el){$(el).on("click",dismiss,this.close)};Alert.VERSION="3.4.1";Alert.TRANSITION_DURATION=150;Alert.prototype.close=function(e){var $this=$(this);var selector=$this.attr("data-target");if(!selector){selector=$this.attr("href");selector=selector&&selector.replace(/.*(?=#[^\s]*$)/,"")}selector=selector==="#"?[]:selector;var $parent=$(document).find(selector);if(e)e.preventDefault();if(!$parent.length){$parent=$this.closest(".alert")}$parent.trigger(e=$.Event("close.bs.alert"));if(e.isDefaultPrevented())return;$parent.removeClass("in");function removeElement(){$parent.detach().trigger("closed.bs.alert").remove()}$.support.transition&&$parent.hasClass("fade")?$parent.one("bsTransitionEnd",removeElement).emulateTransitionEnd(Alert.TRANSITION_DURATION):removeElement()};function Plugin(option){return this.each(function(){var $this=$(this);var data=$this.data("bs.alert");if(!data)$this.data("bs.alert",data=new Alert(this));if(typeof option=="string")data[option].call($this)})}var old=$.fn.alert;$.fn.alert=Plugin;$.fn.alert.Constructor=Alert;$.fn.alert.noConflict=function(){$.fn.alert=old;return this};$(document).on("click.bs.alert.data-api",dismiss,Alert.prototype.close)}(jQuery);+function($){"use strict";var Button=function(element,options){this.$element=$(element);this.options=$.extend({},Button.DEFAULTS,options);this.isLoading=false};Button.VERSION="3.4.1";Button.DEFAULTS={loadingText:"loading..."};Button.prototype.setState=function(state){var d="disabled";var $el=this.$element;var val=$el.is("input")?"val":"html";var data=$el.data();state+="Text";if(data.resetText==null)$el.data("resetText",$el[val]());setTimeout($.proxy(function(){$el[val](data[state]==null?this.options[state]:data[state]);if(state=="loadingText"){this.isLoading=true;$el.addClass(d).attr(d,d).prop(d,true)}else if(this.isLoading){this.isLoading=false;$el.removeClass(d).removeAttr(d).prop(d,false)}},this),0)};Button.prototype.toggle=function(){var changed=true;var $parent=this.$element.closest('[data-toggle="buttons"]');if($parent.length){var $input=this.$element.find("input");if($input.prop("type")=="radio"){if($input.prop("checked"))changed=false;$parent.find(".active").removeClass("active");this.$element.addClass("active")}else if($input.prop("type")=="checkbox"){if($input.prop("checked")!==this.$element.hasClass("active"))changed=false;this.$element.toggleClass("active")}$input.prop("checked",this.$element.hasClass("active"));if(changed)$input.trigger("change")}else{this.$element.attr("aria-pressed",!this.$element.hasClass("active"));this.$element.toggleClass("active")}};function Plugin(option){return this.each(function(){var $this=$(this);var data=$this.data("bs.button");var options=typeof option=="object"&&option;if(!data)$this.data("bs.button",data=new Button(this,options));if(option=="toggle")data.toggle();else if(option)data.setState(option)})}var old=$.fn.button;$.fn.button=Plugin;$.fn.button.Constructor=Button;$.fn.button.noConflict=function(){$.fn.button=old;return this};$(document).on("click.bs.button.data-api",'[data-toggle^="button"]',function(e){var $btn=$(e.target).closest(".btn");Plugin.call($btn,"toggle");if(!$(e.target).is('input[type="radio"], input[type="checkbox"]')){e.preventDefault();if($btn.is("input,button"))$btn.trigger("focus");else $btn.find("input:visible,button:visible").first().trigger("focus")}}).on("focus.bs.button.data-api blur.bs.button.data-api",'[data-toggle^="button"]',function(e){$(e.target).closest(".btn").toggleClass("focus",/^focus(in)?$/.test(e.type))})}(jQuery);+function($){"use strict";var Carousel=function(element,options){this.$element=$(element);this.$indicators=this.$element.find(".carousel-indicators");this.options=options;this.paused=null;this.sliding=null;this.interval=null;this.$active=null;this.$items=null;this.options.keyboard&&this.$element.on("keydown.bs.carousel",$.proxy(this.keydown,this));this.options.pause=="hover"&&!("ontouchstart"in document.documentElement)&&this.$element.on("mouseenter.bs.carousel",$.proxy(this.pause,this)).on("mouseleave.bs.carousel",$.proxy(this.cycle,this))};Carousel.VERSION="3.4.1";Carousel.TRANSITION_DURATION=600;Carousel.DEFAULTS={interval:5e3,pause:"hover",wrap:true,keyboard:true};Carousel.prototype.keydown=function(e){if(/input|textarea/i.test(e.target.tagName))return;switch(e.which){case 37:this.prev();break;case 39:this.next();break;default:return}e.preventDefault()};Carousel.prototype.cycle=function(e){e||(this.paused=false);this.interval&&clearInterval(this.interval);this.options.interval&&!this.paused&&(this.interval=setInterval($.proxy(this.next,this),this.options.interval));return this};Carousel.prototype.getItemIndex=function(item){this.$items=item.parent().children(".item");return this.$items.index(item||this.$active)};Carousel.prototype.getItemForDirection=function(direction,active){var activeIndex=this.getItemIndex(active);var willWrap=direction=="prev"&&activeIndex===0||direction=="next"&&activeIndex==this.$items.length-1;if(willWrap&&!this.options.wrap)return active;var delta=direction=="prev"?-1:1;var itemIndex=(activeIndex+delta)%this.$items.length;return this.$items.eq(itemIndex)};Carousel.prototype.to=function(pos){var that=this;var activeIndex=this.getItemIndex(this.$active=this.$element.find(".item.active"));if(pos>this.$items.length-1||pos<0)return;if(this.sliding)return this.$element.one("slid.bs.carousel",function(){that.to(pos)});if(activeIndex==pos)return this.pause().cycle();return this.slide(pos>activeIndex?"next":"prev",this.$items.eq(pos))};Carousel.prototype.pause=function(e){e||(this.paused=true);if(this.$element.find(".next, .prev").length&&$.support.transition){this.$element.trigger($.support.transition.end);this.cycle(true)}this.interval=clearInterval(this.interval);return this};Carousel.prototype.next=function(){if(this.sliding)return;return this.slide("next")};Carousel.prototype.prev=function(){if(this.sliding)return;return this.slide("prev")};Carousel.prototype.slide=function(type,next){var $active=this.$element.find(".item.active");var $next=next||this.getItemForDirection(type,$active);var isCycling=this.interval;var direction=type=="next"?"left":"right";var that=this;if($next.hasClass("active"))return this.sliding=false;var relatedTarget=$next[0];var slideEvent=$.Event("slide.bs.carousel",{relatedTarget:relatedTarget,direction:direction});this.$element.trigger(slideEvent);if(slideEvent.isDefaultPrevented())return;this.sliding=true;isCycling&&this.pause();if(this.$indicators.length){this.$indicators.find(".active").removeClass("active");var $nextIndicator=$(this.$indicators.children()[this.getItemIndex($next)]);$nextIndicator&&$nextIndicator.addClass("active")}var slidEvent=$.Event("slid.bs.carousel",{relatedTarget:relatedTarget,direction:direction});if($.support.transition&&this.$element.hasClass("slide")){$next.addClass(type);if(typeof $next==="object"&&$next.length){$next[0].offsetWidth}$active.addClass(direction);$next.addClass(direction);$active.one("bsTransitionEnd",function(){$next.removeClass([type,direction].join(" ")).addClass("active");$active.removeClass(["active",direction].join(" "));that.sliding=false;setTimeout(function(){that.$element.trigger(slidEvent)},0)}).emulateTransitionEnd(Carousel.TRANSITION_DURATION)}else{$active.removeClass("active");$next.addClass("active");this.sliding=false;this.$element.trigger(slidEvent)}isCycling&&this.cycle();return this};function Plugin(option){return this.each(function(){var $this=$(this);var data=$this.data("bs.carousel");var options=$.extend({},Carousel.DEFAULTS,$this.data(),typeof option=="object"&&option);var action=typeof option=="string"?option:options.slide;if(!data)$this.data("bs.carousel",data=new Carousel(this,options));if(typeof option=="number")data.to(option);else if(action)data[action]();else if(options.interval)data.pause().cycle()})}var old=$.fn.carousel;$.fn.carousel=Plugin;$.fn.carousel.Constructor=Carousel;$.fn.carousel.noConflict=function(){$.fn.carousel=old;return this};var clickHandler=function(e){var $this=$(this);var href=$this.attr("href");if(href){href=href.replace(/.*(?=#[^\s]+$)/,"")}var target=$this.attr("data-target")||href;var $target=$(document).find(target);if(!$target.hasClass("carousel"))return;var options=$.extend({},$target.data(),$this.data());var slideIndex=$this.attr("data-slide-to");if(slideIndex)options.interval=false;Plugin.call($target,options);if(slideIndex){$target.data("bs.carousel").to(slideIndex)}e.preventDefault()};$(document).on("click.bs.carousel.data-api","[data-slide]",clickHandler).on("click.bs.carousel.data-api","[data-slide-to]",clickHandler);$(window).on("load",function(){$('[data-ride="carousel"]').each(function(){var $carousel=$(this);Plugin.call($carousel,$carousel.data())})})}(jQuery);+function($){"use strict";var Collapse=function(element,options){this.$element=$(element);this.options=$.extend({},Collapse.DEFAULTS,options);this.$trigger=$('[data-toggle="collapse"][href="#'+element.id+'"],'+'[data-toggle="collapse"][data-target="#'+element.id+'"]');this.transitioning=null;if(this.options.parent){this.$parent=this.getParent()}else{this.addAriaAndCollapsedClass(this.$element,this.$trigger)}if(this.options.toggle)this.toggle()};Collapse.VERSION="3.4.1";Collapse.TRANSITION_DURATION=350;Collapse.DEFAULTS={toggle:true};Collapse.prototype.dimension=function(){var hasWidth=this.$element.hasClass("width");return hasWidth?"width":"height"};Collapse.prototype.show=function(){if(this.transitioning||this.$element.hasClass("in"))return;var activesData;var actives=this.$parent&&this.$parent.children(".panel").children(".in, .collapsing");if(actives&&actives.length){activesData=actives.data("bs.collapse");if(activesData&&activesData.transitioning)return}var startEvent=$.Event("show.bs.collapse");this.$element.trigger(startEvent);if(startEvent.isDefaultPrevented())return;if(actives&&actives.length){Plugin.call(actives,"hide");activesData||actives.data("bs.collapse",null)}var dimension=this.dimension();this.$element.removeClass("collapse").addClass("collapsing")[dimension](0).attr("aria-expanded",true);this.$trigger.removeClass("collapsed").attr("aria-expanded",true);this.transitioning=1;var complete=function(){this.$element.removeClass("collapsing").addClass("collapse in")[dimension]("");this.transitioning=0;this.$element.trigger("shown.bs.collapse")};if(!$.support.transition)return complete.call(this);var scrollSize=$.camelCase(["scroll",dimension].join("-"));this.$element.one("bsTransitionEnd",$.proxy(complete,this)).emulateTransitionEnd(Collapse.TRANSITION_DURATION)[dimension](this.$element[0][scrollSize])};Collapse.prototype.hide=function(){if(this.transitioning||!this.$element.hasClass("in"))return;var startEvent=$.Event("hide.bs.collapse");this.$element.trigger(startEvent);if(startEvent.isDefaultPrevented())return;var dimension=this.dimension();this.$element[dimension](this.$element[dimension]())[0].offsetHeight;this.$element.addClass("collapsing").removeClass("collapse in").attr("aria-expanded",false);this.$trigger.addClass("collapsed").attr("aria-expanded",false);this.transitioning=1;var complete=function(){this.transitioning=0;this.$element.removeClass("collapsing").addClass("collapse").trigger("hidden.bs.collapse")};if(!$.support.transition)return complete.call(this);this.$element[dimension](0).one("bsTransitionEnd",$.proxy(complete,this)).emulateTransitionEnd(Collapse.TRANSITION_DURATION)};Collapse.prototype.toggle=function(){this[this.$element.hasClass("in")?"hide":"show"]()};Collapse.prototype.getParent=function(){return $(document).find(this.options.parent).find('[data-toggle="collapse"][data-parent="'+this.options.parent+'"]').each($.proxy(function(i,element){var $element=$(element);this.addAriaAndCollapsedClass(getTargetFromTrigger($element),$element)},this)).end()};Collapse.prototype.addAriaAndCollapsedClass=function($element,$trigger){var isOpen=$element.hasClass("in");$element.attr("aria-expanded",isOpen);$trigger.toggleClass("collapsed",!isOpen).attr("aria-expanded",isOpen)};function getTargetFromTrigger($trigger){var href;var target=$trigger.attr("data-target")||(href=$trigger.attr("href"))&&href.replace(/.*(?=#[^\s]+$)/,"");return $(document).find(target)}function Plugin(option){return this.each(function(){var $this=$(this);var data=$this.data("bs.collapse");var options=$.extend({},Collapse.DEFAULTS,$this.data(),typeof option=="object"&&option);if(!data&&options.toggle&&/show|hide/.test(option))options.toggle=false;if(!data)$this.data("bs.collapse",data=new Collapse(this,options));if(typeof option=="string")data[option]()})}var old=$.fn.collapse;$.fn.collapse=Plugin;$.fn.collapse.Constructor=Collapse;$.fn.collapse.noConflict=function(){$.fn.collapse=old;return this};$(document).on("click.bs.collapse.data-api",'[data-toggle="collapse"]',function(e){var $this=$(this);if(!$this.attr("data-target"))e.preventDefault();var $target=getTargetFromTrigger($this);var data=$target.data("bs.collapse");var option=data?"toggle":$this.data();Plugin.call($target,option)})}(jQuery);+function($){"use strict";var backdrop=".dropdown-backdrop";var toggle='[data-toggle="dropdown"]';var Dropdown=function(element){$(element).on("click.bs.dropdown",this.toggle)};Dropdown.VERSION="3.4.1";function getParent($this){var selector=$this.attr("data-target");if(!selector){selector=$this.attr("href");selector=selector&&/#[A-Za-z]/.test(selector)&&selector.replace(/.*(?=#[^\s]*$)/,"")}var $parent=selector!=="#"?$(document).find(selector):null;return $parent&&$parent.length?$parent:$this.parent()}function clearMenus(e){if(e&&e.which===3)return;$(backdrop).remove();$(toggle).each(function(){var $this=$(this);var $parent=getParent($this);var relatedTarget={relatedTarget:this};if(!$parent.hasClass("open"))return;if(e&&e.type=="click"&&/input|textarea/i.test(e.target.tagName)&&$.contains($parent[0],e.target))return;$parent.trigger(e=$.Event("hide.bs.dropdown",relatedTarget));if(e.isDefaultPrevented())return;$this.attr("aria-expanded","false");$parent.removeClass("open").trigger($.Event("hidden.bs.dropdown",relatedTarget))})}Dropdown.prototype.toggle=function(e){var $this=$(this);if($this.is(".disabled, :disabled"))return;var $parent=getParent($this);var isActive=$parent.hasClass("open");clearMenus();if(!isActive){if("ontouchstart"in document.documentElement&&!$parent.closest(".navbar-nav").length){$(document.createElement("div")).addClass("dropdown-backdrop").insertAfter($(this)).on("click",clearMenus)}var relatedTarget={relatedTarget:this};$parent.trigger(e=$.Event("show.bs.dropdown",relatedTarget));if(e.isDefaultPrevented())return;$this.trigger("focus").attr("aria-expanded","true");$parent.toggleClass("open").trigger($.Event("shown.bs.dropdown",relatedTarget))}return false};Dropdown.prototype.keydown=function(e){if(!/(38|40|27|32)/.test(e.which)||/input|textarea/i.test(e.target.tagName))return;var $this=$(this);e.preventDefault();e.stopPropagation();if($this.is(".disabled, :disabled"))return;var $parent=getParent($this);var isActive=$parent.hasClass("open");if(!isActive&&e.which!=27||isActive&&e.which==27){if(e.which==27)$parent.find(toggle).trigger("focus");return $this.trigger("click")}var desc=" li:not(.disabled):visible a";var $items=$parent.find(".dropdown-menu"+desc);if(!$items.length)return;var index=$items.index(e.target);if(e.which==38&&index>0)index--;if(e.which==40&&index<$items.length-1)index++;if(!~index)index=0;$items.eq(index).trigger("focus")};function Plugin(option){return this.each(function(){var $this=$(this);var data=$this.data("bs.dropdown");if(!data)$this.data("bs.dropdown",data=new Dropdown(this));if(typeof option=="string")data[option].call($this)})}var old=$.fn.dropdown;$.fn.dropdown=Plugin;$.fn.dropdown.Constructor=Dropdown;$.fn.dropdown.noConflict=function(){$.fn.dropdown=old;return this};$(document).on("click.bs.dropdown.data-api",clearMenus).on("click.bs.dropdown.data-api",".dropdown form",function(e){e.stopPropagation()}).on("click.bs.dropdown.data-api",toggle,Dropdown.prototype.toggle).on("keydown.bs.dropdown.data-api",toggle,Dropdown.prototype.keydown).on("keydown.bs.dropdown.data-api",".dropdown-menu",Dropdown.prototype.keydown)}(jQuery);+function($){"use strict";var Modal=function(element,options){this.options=options;this.$body=$(document.body);this.$element=$(element);this.$dialog=this.$element.find(".modal-dialog");this.$backdrop=null;this.isShown=null;this.originalBodyPad=null;this.scrollbarWidth=0;this.ignoreBackdropClick=false;this.fixedContent=".navbar-fixed-top, .navbar-fixed-bottom";if(this.options.remote){this.$element.find(".modal-content").load(this.options.remote,$.proxy(function(){this.$element.trigger("loaded.bs.modal")},this))}};Modal.VERSION="3.4.1";Modal.TRANSITION_DURATION=300;Modal.BACKDROP_TRANSITION_DURATION=150;Modal.DEFAULTS={backdrop:true,keyboard:true,show:true};Modal.prototype.toggle=function(_relatedTarget){return this.isShown?this.hide():this.show(_relatedTarget)};Modal.prototype.show=function(_relatedTarget){var that=this;var e=$.Event("show.bs.modal",{relatedTarget:_relatedTarget});this.$element.trigger(e);if(this.isShown||e.isDefaultPrevented())return;this.isShown=true;this.checkScrollbar();this.setScrollbar();this.$body.addClass("modal-open");this.escape();this.resize();this.$element.on("click.dismiss.bs.modal",'[data-dismiss="modal"]',$.proxy(this.hide,this));this.$dialog.on("mousedown.dismiss.bs.modal",function(){that.$element.one("mouseup.dismiss.bs.modal",function(e){if($(e.target).is(that.$element))that.ignoreBackdropClick=true})});this.backdrop(function(){var transition=$.support.transition&&that.$element.hasClass("fade");if(!that.$element.parent().length){that.$element.appendTo(that.$body)}that.$element.show().scrollTop(0);that.adjustDialog();if(transition){that.$element[0].offsetWidth}that.$element.addClass("in");that.enforceFocus();var e=$.Event("shown.bs.modal",{relatedTarget:_relatedTarget});transition?that.$dialog.one("bsTransitionEnd",function(){that.$element.trigger("focus").trigger(e)}).emulateTransitionEnd(Modal.TRANSITION_DURATION):that.$element.trigger("focus").trigger(e)})};Modal.prototype.hide=function(e){if(e)e.preventDefault();e=$.Event("hide.bs.modal");this.$element.trigger(e);if(!this.isShown||e.isDefaultPrevented())return;this.isShown=false;this.escape();this.resize();$(document).off("focusin.bs.modal");this.$element.removeClass("in").off("click.dismiss.bs.modal").off("mouseup.dismiss.bs.modal");this.$dialog.off("mousedown.dismiss.bs.modal");$.support.transition&&this.$element.hasClass("fade")?this.$element.one("bsTransitionEnd",$.proxy(this.hideModal,this)).emulateTransitionEnd(Modal.TRANSITION_DURATION):this.hideModal()};Modal.prototype.enforceFocus=function(){$(document).off("focusin.bs.modal").on("focusin.bs.modal",$.proxy(function(e){if(document!==e.target&&this.$element[0]!==e.target&&!this.$element.has(e.target).length){this.$element.trigger("focus")}},this))};Modal.prototype.escape=function(){if(this.isShown&&this.options.keyboard){this.$element.on("keydown.dismiss.bs.modal",$.proxy(function(e){e.which==27&&this.hide()},this))}else if(!this.isShown){this.$element.off("keydown.dismiss.bs.modal")}};Modal.prototype.resize=function(){if(this.isShown){$(window).on("resize.bs.modal",$.proxy(this.handleUpdate,this))}else{$(window).off("resize.bs.modal")}};Modal.prototype.hideModal=function(){var that=this;this.$element.hide();this.backdrop(function(){that.$body.removeClass("modal-open");that.resetAdjustments();that.resetScrollbar();that.$element.trigger("hidden.bs.modal")})};Modal.prototype.removeBackdrop=function(){this.$backdrop&&this.$backdrop.remove();this.$backdrop=null};Modal.prototype.backdrop=function(callback){var that=this;var animate=this.$element.hasClass("fade")?"fade":"";if(this.isShown&&this.options.backdrop){var doAnimate=$.support.transition&&animate;this.$backdrop=$(document.createElement("div")).addClass("modal-backdrop "+animate).appendTo(this.$body);this.$element.on("click.dismiss.bs.modal",$.proxy(function(e){if(this.ignoreBackdropClick){this.ignoreBackdropClick=false;return}if(e.target!==e.currentTarget)return;this.options.backdrop=="static"?this.$element[0].focus():this.hide()},this));if(doAnimate)this.$backdrop[0].offsetWidth;this.$backdrop.addClass("in");if(!callback)return;doAnimate?this.$backdrop.one("bsTransitionEnd",callback).emulateTransitionEnd(Modal.BACKDROP_TRANSITION_DURATION):callback()}else if(!this.isShown&&this.$backdrop){this.$backdrop.removeClass("in");var callbackRemove=function(){that.removeBackdrop();callback&&callback()};$.support.transition&&this.$element.hasClass("fade")?this.$backdrop.one("bsTransitionEnd",callbackRemove).emulateTransitionEnd(Modal.BACKDROP_TRANSITION_DURATION):callbackRemove()}else if(callback){callback()}};Modal.prototype.handleUpdate=function(){this.adjustDialog()};Modal.prototype.adjustDialog=function(){var modalIsOverflowing=this.$element[0].scrollHeight>document.documentElement.clientHeight;this.$element.css({paddingLeft:!this.bodyIsOverflowing&&modalIsOverflowing?this.scrollbarWidth:"",paddingRight:this.bodyIsOverflowing&&!modalIsOverflowing?this.scrollbarWidth:""})};Modal.prototype.resetAdjustments=function(){this.$element.css({paddingLeft:"",paddingRight:""})};Modal.prototype.checkScrollbar=function(){var fullWindowWidth=window.innerWidth;if(!fullWindowWidth){var documentElementRect=document.documentElement.getBoundingClientRect();fullWindowWidth=documentElementRect.right-Math.abs(documentElementRect.left)}this.bodyIsOverflowing=document.body.clientWidth<fullWindowWidth;this.scrollbarWidth=this.measureScrollbar()};Modal.prototype.setScrollbar=function(){var bodyPad=parseInt(this.$body.css("padding-right")||0,10);this.originalBodyPad=document.body.style.paddingRight||"";var scrollbarWidth=this.scrollbarWidth;if(this.bodyIsOverflowing){this.$body.css("padding-right",bodyPad+scrollbarWidth);$(this.fixedContent).each(function(index,element){var actualPadding=element.style.paddingRight;var calculatedPadding=$(element).css("padding-right");$(element).data("padding-right",actualPadding).css("padding-right",parseFloat(calculatedPadding)+scrollbarWidth+"px")})}};Modal.prototype.resetScrollbar=function(){this.$body.css("padding-right",this.originalBodyPad);$(this.fixedContent).each(function(index,element){var padding=$(element).data("padding-right");$(element).removeData("padding-right");element.style.paddingRight=padding?padding:""})};Modal.prototype.measureScrollbar=function(){var scrollDiv=document.createElement("div");scrollDiv.className="modal-scrollbar-measure";this.$body.append(scrollDiv);var scrollbarWidth=scrollDiv.offsetWidth-scrollDiv.clientWidth;this.$body[0].removeChild(scrollDiv);return scrollbarWidth};function Plugin(option,_relatedTarget){return this.each(function(){var $this=$(this);var data=$this.data("bs.modal");var options=$.extend({},Modal.DEFAULTS,$this.data(),typeof option=="object"&&option);if(!data)$this.data("bs.modal",data=new Modal(this,options));if(typeof option=="string")data[option](_relatedTarget);else if(options.show)data.show(_relatedTarget)})}var old=$.fn.modal;$.fn.modal=Plugin;$.fn.modal.Constructor=Modal;$.fn.modal.noConflict=function(){$.fn.modal=old;return this};$(document).on("click.bs.modal.data-api",'[data-toggle="modal"]',function(e){var $this=$(this);var href=$this.attr("href");var target=$this.attr("data-target")||href&&href.replace(/.*(?=#[^\s]+$)/,"");var $target=$(document).find(target);var option=$target.data("bs.modal")?"toggle":$.extend({remote:!/#/.test(href)&&href},$target.data(),$this.data());if($this.is("a"))e.preventDefault();$target.one("show.bs.modal",function(showEvent){if(showEvent.isDefaultPrevented())return;$target.one("hidden.bs.modal",function(){$this.is(":visible")&&$this.trigger("focus")})});Plugin.call($target,option,this)})}(jQuery);+function($){"use strict";var DISALLOWED_ATTRIBUTES=["sanitize","whiteList","sanitizeFn"];var uriAttrs=["background","cite","href","itemtype","longdesc","poster","src","xlink:href"];var ARIA_ATTRIBUTE_PATTERN=/^aria-[\w-]*$/i;var DefaultWhitelist={"*":["class","dir","id","lang","role",ARIA_ATTRIBUTE_PATTERN],a:["target","href","title","rel"],area:[],b:[],br:[],col:[],code:[],div:[],em:[],hr:[],h1:[],h2:[],h3:[],h4:[],h5:[],h6:[],i:[],img:["src","alt","title","width","height"],li:[],ol:[],p:[],pre:[],s:[],small:[],span:[],sub:[],sup:[],strong:[],u:[],ul:[]};var SAFE_URL_PATTERN=/^(?:(?:https?|mailto|ftp|tel|file):|[^&:/?#]*(?:[/?#]|$))/gi;var DATA_URL_PATTERN=/^data:(?:image\/(?:bmp|gif|jpeg|jpg|png|tiff|webp)|video\/(?:mpeg|mp4|ogg|webm)|audio\/(?:mp3|oga|ogg|opus));base64,[a-z0-9+/]+=*$/i;function allowedAttribute(attr,allowedAttributeList){var attrName=attr.nodeName.toLowerCase();if($.inArray(attrName,allowedAttributeList)!==-1){if($.inArray(attrName,uriAttrs)!==-1){return Boolean(attr.nodeValue.match(SAFE_URL_PATTERN)||attr.nodeValue.match(DATA_URL_PATTERN))}return true}var regExp=$(allowedAttributeList).filter(function(index,value){return value instanceof RegExp});for(var i=0,l=regExp.length;i<l;i++){if(attrName.match(regExp[i])){return true}}return false}function sanitizeHtml(unsafeHtml,whiteList,sanitizeFn){if(unsafeHtml.length===0){return unsafeHtml}if(sanitizeFn&&typeof sanitizeFn==="function"){return sanitizeFn(unsafeHtml)}if(!document.implementation||!document.implementation.createHTMLDocument){return unsafeHtml}var createdDocument=document.implementation.createHTMLDocument("sanitization");createdDocument.body.innerHTML=unsafeHtml;var whitelistKeys=$.map(whiteList,function(el,i){return i});var elements=$(createdDocument.body).find("*");for(var i=0,len=elements.length;i<len;i++){var el=elements[i];var elName=el.nodeName.toLowerCase();if($.inArray(elName,whitelistKeys)===-1){el.parentNode.removeChild(el);continue}var attributeList=$.map(el.attributes,function(el){return el});var whitelistedAttributes=[].concat(whiteList["*"]||[],whiteList[elName]||[]);for(var j=0,len2=attributeList.length;j<len2;j++){if(!allowedAttribute(attributeList[j],whitelistedAttributes)){el.removeAttribute(attributeList[j].nodeName)}}}return createdDocument.body.innerHTML}var Tooltip=function(element,options){this.type=null;this.options=null;this.enabled=null;this.timeout=null;this.hoverState=null;this.$element=null;this.inState=null;this.init("tooltip",element,options)};Tooltip.VERSION="3.4.1";Tooltip.TRANSITION_DURATION=150;Tooltip.DEFAULTS={animation:true,placement:"top",selector:false,template:'<div class="tooltip" role="tooltip"><div class="tooltip-arrow"></div><div class="tooltip-inner"></div></div>',trigger:"hover focus",title:"",delay:0,html:false,container:false,viewport:{selector:"body",padding:0},sanitize:true,sanitizeFn:null,whiteList:DefaultWhitelist};Tooltip.prototype.init=function(type,element,options){this.enabled=true;this.type=type;this.$element=$(element);this.options=this.getOptions(options);this.$viewport=this.options.viewport&&$(document).find($.isFunction(this.options.viewport)?this.options.viewport.call(this,this.$element):this.options.viewport.selector||this.options.viewport);this.inState={click:false,hover:false,focus:false};if(this.$element[0]instanceof document.constructor&&!this.options.selector){throw new Error("`selector` option must be specified when initializing "+this.type+" on the window.document object!")}var triggers=this.options.trigger.split(" ");for(var i=triggers.length;i--;){var trigger=triggers[i];if(trigger=="click"){this.$element.on("click."+this.type,this.options.selector,$.proxy(this.toggle,this))}else if(trigger!="manual"){var eventIn=trigger=="hover"?"mouseenter":"focusin";var eventOut=trigger=="hover"?"mouseleave":"focusout";this.$element.on(eventIn+"."+this.type,this.options.selector,$.proxy(this.enter,this));this.$element.on(eventOut+"."+this.type,this.options.selector,$.proxy(this.leave,this))}}this.options.selector?this._options=$.extend({},this.options,{trigger:"manual",selector:""}):this.fixTitle()};Tooltip.prototype.getDefaults=function(){return Tooltip.DEFAULTS};Tooltip.prototype.getOptions=function(options){var dataAttributes=this.$element.data();for(var dataAttr in dataAttributes){if(dataAttributes.hasOwnProperty(dataAttr)&&$.inArray(dataAttr,DISALLOWED_ATTRIBUTES)!==-1){delete dataAttributes[dataAttr]}}options=$.extend({},this.getDefaults(),dataAttributes,options);if(options.delay&&typeof options.delay=="number"){options.delay={show:options.delay,hide:options.delay}}if(options.sanitize){options.template=sanitizeHtml(options.template,options.whiteList,options.sanitizeFn)}return options};Tooltip.prototype.getDelegateOptions=function(){var options={};var defaults=this.getDefaults();this._options&&$.each(this._options,function(key,value){if(defaults[key]!=value)options[key]=value});return options};Tooltip.prototype.enter=function(obj){var self=obj instanceof this.constructor?obj:$(obj.currentTarget).data("bs."+this.type);if(!self){self=new this.constructor(obj.currentTarget,this.getDelegateOptions());$(obj.currentTarget).data("bs."+this.type,self)}if(obj instanceof $.Event){self.inState[obj.type=="focusin"?"focus":"hover"]=true}if(self.tip().hasClass("in")||self.hoverState=="in"){self.hoverState="in";return}clearTimeout(self.timeout);self.hoverState="in";if(!self.options.delay||!self.options.delay.show)return self.show();self.timeout=setTimeout(function(){if(self.hoverState=="in")self.show()},self.options.delay.show)};Tooltip.prototype.isInStateTrue=function(){for(var key in this.inState){if(this.inState[key])return true}return false};Tooltip.prototype.leave=function(obj){var self=obj instanceof this.constructor?obj:$(obj.currentTarget).data("bs."+this.type);if(!self){self=new this.constructor(obj.currentTarget,this.getDelegateOptions());$(obj.currentTarget).data("bs."+this.type,self)}if(obj instanceof $.Event){self.inState[obj.type=="focusout"?"focus":"hover"]=false}if(self.isInStateTrue())return;clearTimeout(self.timeout);self.hoverState="out";if(!self.options.delay||!self.options.delay.hide)return self.hide();self.timeout=setTimeout(function(){if(self.hoverState=="out")self.hide()},self.options.delay.hide)};Tooltip.prototype.show=function(){var e=$.Event("show.bs."+this.type);if(this.hasContent()&&this.enabled){this.$element.trigger(e);var inDom=$.contains(this.$element[0].ownerDocument.documentElement,this.$element[0]);if(e.isDefaultPrevented()||!inDom)return;var that=this;var $tip=this.tip();var tipId=this.getUID(this.type);this.setContent();$tip.attr("id",tipId);this.$element.attr("aria-describedby",tipId);if(this.options.animation)$tip.addClass("fade");var placement=typeof this.options.placement=="function"?this.options.placement.call(this,$tip[0],this.$element[0]):this.options.placement;var autoToken=/\s?auto?\s?/i;var autoPlace=autoToken.test(placement);if(autoPlace)placement=placement.replace(autoToken,"")||"top";$tip.detach().css({top:0,left:0,display:"block"}).addClass(placement).data("bs."+this.type,this);this.options.container?$tip.appendTo($(document).find(this.options.container)):$tip.insertAfter(this.$element);this.$element.trigger("inserted.bs."+this.type);var pos=this.getPosition();var actualWidth=$tip[0].offsetWidth;var actualHeight=$tip[0].offsetHeight;if(autoPlace){var orgPlacement=placement;var viewportDim=this.getPosition(this.$viewport);placement=placement=="bottom"&&pos.bottom+actualHeight>viewportDim.bottom?"top":placement=="top"&&pos.top-actualHeight<viewportDim.top?"bottom":placement=="right"&&pos.right+actualWidth>viewportDim.width?"left":placement=="left"&&pos.left-actualWidth<viewportDim.left?"right":placement;$tip.removeClass(orgPlacement).addClass(placement)}var calculatedOffset=this.getCalculatedOffset(placement,pos,actualWidth,actualHeight);this.applyPlacement(calculatedOffset,placement);var complete=function(){var prevHoverState=that.hoverState;that.$element.trigger("shown.bs."+that.type);that.hoverState=null;if(prevHoverState=="out")that.leave(that)};$.support.transition&&this.$tip.hasClass("fade")?$tip.one("bsTransitionEnd",complete).emulateTransitionEnd(Tooltip.TRANSITION_DURATION):complete()}};Tooltip.prototype.applyPlacement=function(offset,placement){var $tip=this.tip();var width=$tip[0].offsetWidth;var height=$tip[0].offsetHeight;var marginTop=parseInt($tip.css("margin-top"),10);var marginLeft=parseInt($tip.css("margin-left"),10);if(isNaN(marginTop))marginTop=0;if(isNaN(marginLeft))marginLeft=0;offset.top+=marginTop;offset.left+=marginLeft;$.offset.setOffset($tip[0],$.extend({using:function(props){$tip.css({top:Math.round(props.top),left:Math.round(props.left)})}},offset),0);$tip.addClass("in");var actualWidth=$tip[0].offsetWidth;var actualHeight=$tip[0].offsetHeight;if(placement=="top"&&actualHeight!=height){offset.top=offset.top+height-actualHeight}var delta=this.getViewportAdjustedDelta(placement,offset,actualWidth,actualHeight);if(delta.left)offset.left+=delta.left;else offset.top+=delta.top;var isVertical=/top|bottom/.test(placement);var arrowDelta=isVertical?delta.left*2-width+actualWidth:delta.top*2-height+actualHeight;var arrowOffsetPosition=isVertical?"offsetWidth":"offsetHeight";$tip.offset(offset);this.replaceArrow(arrowDelta,$tip[0][arrowOffsetPosition],isVertical)};Tooltip.prototype.replaceArrow=function(delta,dimension,isVertical){this.arrow().css(isVertical?"left":"top",50*(1-delta/dimension)+"%").css(isVertical?"top":"left","")};Tooltip.prototype.setContent=function(){var $tip=this.tip();var title=this.getTitle();if(this.options.html){if(this.options.sanitize){title=sanitizeHtml(title,this.options.whiteList,this.options.sanitizeFn)}$tip.find(".tooltip-inner").html(title)}else{$tip.find(".tooltip-inner").text(title)}$tip.removeClass("fade in top bottom left right")};Tooltip.prototype.hide=function(callback){var that=this;var $tip=$(this.$tip);var e=$.Event("hide.bs."+this.type);function complete(){if(that.hoverState!="in")$tip.detach();if(that.$element){that.$element.removeAttr("aria-describedby").trigger("hidden.bs."+that.type)}callback&&callback()}this.$element.trigger(e);if(e.isDefaultPrevented())return;$tip.removeClass("in");$.support.transition&&$tip.hasClass("fade")?$tip.one("bsTransitionEnd",complete).emulateTransitionEnd(Tooltip.TRANSITION_DURATION):complete();this.hoverState=null;return this};Tooltip.prototype.fixTitle=function(){var $e=this.$element;if($e.attr("title")||typeof $e.attr("data-original-title")!="string"){$e.attr("data-original-title",$e.attr("title")||"").attr("title","")}};Tooltip.prototype.hasContent=function(){return this.getTitle()};Tooltip.prototype.getPosition=function($element){$element=$element||this.$element;var el=$element[0];var isBody=el.tagName=="BODY";var elRect=el.getBoundingClientRect();if(elRect.width==null){elRect=$.extend({},elRect,{width:elRect.right-elRect.left,height:elRect.bottom-elRect.top})}var isSvg=window.SVGElement&&el instanceof window.SVGElement;var elOffset=isBody?{top:0,left:0}:isSvg?null:$element.offset();var scroll={scroll:isBody?document.documentElement.scrollTop||document.body.scrollTop:$element.scrollTop()};var outerDims=isBody?{width:$(window).width(),height:$(window).height()}:null;return $.extend({},elRect,scroll,outerDims,elOffset)};Tooltip.prototype.getCalculatedOffset=function(placement,pos,actualWidth,actualHeight){return placement=="bottom"?{top:pos.top+pos.height,left:pos.left+pos.width/2-actualWidth/2}:placement=="top"?{top:pos.top-actualHeight,left:pos.left+pos.width/2-actualWidth/2}:placement=="left"?{top:pos.top+pos.height/2-actualHeight/2,left:pos.left-actualWidth}:{top:pos.top+pos.height/2-actualHeight/2,left:pos.left+pos.width}};Tooltip.prototype.getViewportAdjustedDelta=function(placement,pos,actualWidth,actualHeight){var delta={top:0,left:0};if(!this.$viewport)return delta;var viewportPadding=this.options.viewport&&this.options.viewport.padding||0;var viewportDimensions=this.getPosition(this.$viewport);if(/right|left/.test(placement)){var topEdgeOffset=pos.top-viewportPadding-viewportDimensions.scroll;var bottomEdgeOffset=pos.top+viewportPadding-viewportDimensions.scroll+actualHeight;if(topEdgeOffset<viewportDimensions.top){delta.top=viewportDimensions.top-topEdgeOffset}else if(bottomEdgeOffset>viewportDimensions.top+viewportDimensions.height){delta.top=viewportDimensions.top+viewportDimensions.height-bottomEdgeOffset}}else{var leftEdgeOffset=pos.left-viewportPadding;var rightEdgeOffset=pos.left+viewportPadding+actualWidth;if(leftEdgeOffset<viewportDimensions.left){delta.left=viewportDimensions.left-leftEdgeOffset}else if(rightEdgeOffset>viewportDimensions.right){delta.left=viewportDimensions.left+viewportDimensions.width-rightEdgeOffset}}return delta};Tooltip.prototype.getTitle=function(){var title;var $e=this.$element;var o=this.options;title=$e.attr("data-original-title")||(typeof o.title=="function"?o.title.call($e[0]):o.title);return title};Tooltip.prototype.getUID=function(prefix){do{prefix+=~~(Math.random()*1e6)}while(document.getElementById(prefix));return prefix};Tooltip.prototype.tip=function(){if(!this.$tip){this.$tip=$(this.options.template);if(this.$tip.length!=1){throw new Error(this.type+" `template` option must consist of exactly 1 top-level element!")}}return this.$tip};Tooltip.prototype.arrow=function(){return this.$arrow=this.$arrow||this.tip().find(".tooltip-arrow")};Tooltip.prototype.enable=function(){this.enabled=true};Tooltip.prototype.disable=function(){this.enabled=false};Tooltip.prototype.toggleEnabled=function(){this.enabled=!this.enabled};Tooltip.prototype.toggle=function(e){var self=this;if(e){self=$(e.currentTarget).data("bs."+this.type);if(!self){self=new this.constructor(e.currentTarget,this.getDelegateOptions());$(e.currentTarget).data("bs."+this.type,self)}}if(e){self.inState.click=!self.inState.click;if(self.isInStateTrue())self.enter(self);else self.leave(self)}else{self.tip().hasClass("in")?self.leave(self):self.enter(self)}};Tooltip.prototype.destroy=function(){var that=this;clearTimeout(this.timeout);this.hide(function(){that.$element.off("."+that.type).removeData("bs."+that.type);if(that.$tip){that.$tip.detach()}that.$tip=null;that.$arrow=null;that.$viewport=null;that.$element=null})};Tooltip.prototype.sanitizeHtml=function(unsafeHtml){return sanitizeHtml(unsafeHtml,this.options.whiteList,this.options.sanitizeFn)};function Plugin(option){return this.each(function(){var $this=$(this);var data=$this.data("bs.tooltip");var options=typeof option=="object"&&option;if(!data&&/destroy|hide/.test(option))return;if(!data)$this.data("bs.tooltip",data=new Tooltip(this,options));if(typeof option=="string")data[option]()})}var old=$.fn.tooltip;$.fn.tooltip=Plugin;$.fn.tooltip.Constructor=Tooltip;$.fn.tooltip.noConflict=function(){$.fn.tooltip=old;return this}}(jQuery);+function($){"use strict";var Popover=function(element,options){this.init("popover",element,options)};if(!$.fn.tooltip)throw new Error("Popover requires tooltip.js");Popover.VERSION="3.4.1";Popover.DEFAULTS=$.extend({},$.fn.tooltip.Constructor.DEFAULTS,{placement:"right",trigger:"click",content:"",template:'<div class="popover" role="tooltip"><div class="arrow"></div><h3 class="popover-title"></h3><div class="popover-content"></div></div>'});Popover.prototype=$.extend({},$.fn.tooltip.Constructor.prototype);Popover.prototype.constructor=Popover;Popover.prototype.getDefaults=function(){return Popover.DEFAULTS};Popover.prototype.setContent=function(){var $tip=this.tip();var title=this.getTitle();var content=this.getContent();if(this.options.html){var typeContent=typeof content;if(this.options.sanitize){title=this.sanitizeHtml(title);if(typeContent==="string"){content=this.sanitizeHtml(content)}}$tip.find(".popover-title").html(title);$tip.find(".popover-content").children().detach().end()[typeContent==="string"?"html":"append"](content)}else{$tip.find(".popover-title").text(title);$tip.find(".popover-content").children().detach().end().text(content)}$tip.removeClass("fade top bottom left right in");if(!$tip.find(".popover-title").html())$tip.find(".popover-title").hide()};Popover.prototype.hasContent=function(){return this.getTitle()||this.getContent()};Popover.prototype.getContent=function(){var $e=this.$element;var o=this.options;return $e.attr("data-content")||(typeof o.content=="function"?o.content.call($e[0]):o.content)};Popover.prototype.arrow=function(){return this.$arrow=this.$arrow||this.tip().find(".arrow")};function Plugin(option){return this.each(function(){var $this=$(this);var data=$this.data("bs.popover");var options=typeof option=="object"&&option;if(!data&&/destroy|hide/.test(option))return;if(!data)$this.data("bs.popover",data=new Popover(this,options));if(typeof option=="string")data[option]()})}var old=$.fn.popover;$.fn.popover=Plugin;$.fn.popover.Constructor=Popover;$.fn.popover.noConflict=function(){$.fn.popover=old;return this}}(jQuery);+function($){"use strict";function ScrollSpy(element,options){this.$body=$(document.body);this.$scrollElement=$(element).is(document.body)?$(window):$(element);this.options=$.extend({},ScrollSpy.DEFAULTS,options);this.selector=(this.options.target||"")+" .nav li > a";this.offsets=[];this.targets=[];this.activeTarget=null;this.scrollHeight=0;this.$scrollElement.on("scroll.bs.scrollspy",$.proxy(this.process,this));this.refresh();this.process()}ScrollSpy.VERSION="3.4.1";ScrollSpy.DEFAULTS={offset:10};ScrollSpy.prototype.getScrollHeight=function(){return this.$scrollElement[0].scrollHeight||Math.max(this.$body[0].scrollHeight,document.documentElement.scrollHeight)};ScrollSpy.prototype.refresh=function(){var that=this;var offsetMethod="offset";var offsetBase=0;this.offsets=[];this.targets=[];this.scrollHeight=this.getScrollHeight();if(!$.isWindow(this.$scrollElement[0])){offsetMethod="position";offsetBase=this.$scrollElement.scrollTop()}this.$body.find(this.selector).map(function(){var $el=$(this);var href=$el.data("target")||$el.attr("href");var $href=/^#./.test(href)&&$(href);return $href&&$href.length&&$href.is(":visible")&&[[$href[offsetMethod]().top+offsetBase,href]]||null}).sort(function(a,b){return a[0]-b[0]}).each(function(){that.offsets.push(this[0]);that.targets.push(this[1])})};ScrollSpy.prototype.process=function(){var scrollTop=this.$scrollElement.scrollTop()+this.options.offset;var scrollHeight=this.getScrollHeight();var maxScroll=this.options.offset+scrollHeight-this.$scrollElement.height();var offsets=this.offsets;var targets=this.targets;var activeTarget=this.activeTarget;var i;if(this.scrollHeight!=scrollHeight){this.refresh()}if(scrollTop>=maxScroll){return activeTarget!=(i=targets[targets.length-1])&&this.activate(i)}if(activeTarget&&scrollTop<offsets[0]){this.activeTarget=null;return this.clear()}for(i=offsets.length;i--;){activeTarget!=targets[i]&&scrollTop>=offsets[i]&&(offsets[i+1]===undefined||scrollTop<offsets[i+1])&&this.activate(targets[i])}};ScrollSpy.prototype.activate=function(target){this.activeTarget=target;this.clear();var selector=this.selector+'[data-target="'+target+'"],'+this.selector+'[href="'+target+'"]';var active=$(selector).parents("li").addClass("active");if(active.parent(".dropdown-menu").length){active=active.closest("li.dropdown").addClass("active")}active.trigger("activate.bs.scrollspy")};ScrollSpy.prototype.clear=function(){$(this.selector).parentsUntil(this.options.target,".active").removeClass("active")};function Plugin(option){return this.each(function(){var $this=$(this);var data=$this.data("bs.scrollspy");var options=typeof option=="object"&&option;if(!data)$this.data("bs.scrollspy",data=new ScrollSpy(this,options));if(typeof option=="string")data[option]()})}var old=$.fn.scrollspy;$.fn.scrollspy=Plugin;$.fn.scrollspy.Constructor=ScrollSpy;$.fn.scrollspy.noConflict=function(){$.fn.scrollspy=old;return this};$(window).on("load.bs.scrollspy.data-api",function(){$('[data-spy="scroll"]').each(function(){var $spy=$(this);Plugin.call($spy,$spy.data())})})}(jQuery);+function($){"use strict";var Tab=function(element){this.element=$(element)};Tab.VERSION="3.4.1";Tab.TRANSITION_DURATION=150;Tab.prototype.show=function(){var $this=this.element;var $ul=$this.closest("ul:not(.dropdown-menu)");var selector=$this.data("target");if(!selector){selector=$this.attr("href");selector=selector&&selector.replace(/.*(?=#[^\s]*$)/,"")}if($this.parent("li").hasClass("active"))return;var $previous=$ul.find(".active:last a");var hideEvent=$.Event("hide.bs.tab",{relatedTarget:$this[0]});var showEvent=$.Event("show.bs.tab",{relatedTarget:$previous[0]});$previous.trigger(hideEvent);$this.trigger(showEvent);if(showEvent.isDefaultPrevented()||hideEvent.isDefaultPrevented())return;var $target=$(document).find(selector);this.activate($this.closest("li"),$ul);this.activate($target,$target.parent(),function(){$previous.trigger({type:"hidden.bs.tab",relatedTarget:$this[0]});$this.trigger({type:"shown.bs.tab",relatedTarget:$previous[0]})})};Tab.prototype.activate=function(element,container,callback){var $active=container.find("> .active");var transition=callback&&$.support.transition&&($active.length&&$active.hasClass("fade")||!!container.find("> .fade").length);function next(){$active.removeClass("active").find("> .dropdown-menu > .active").removeClass("active").end().find('[data-toggle="tab"]').attr("aria-expanded",false);element.addClass("active").find('[data-toggle="tab"]').attr("aria-expanded",true);if(transition){element[0].offsetWidth;element.addClass("in")}else{element.removeClass("fade")}if(element.parent(".dropdown-menu").length){element.closest("li.dropdown").addClass("active").end().find('[data-toggle="tab"]').attr("aria-expanded",true)}callback&&callback()}$active.length&&transition?$active.one("bsTransitionEnd",next).emulateTransitionEnd(Tab.TRANSITION_DURATION):next();$active.removeClass("in")};function Plugin(option){return this.each(function(){var $this=$(this);var data=$this.data("bs.tab");if(!data)$this.data("bs.tab",data=new Tab(this));if(typeof option=="string")data[option]()})}var old=$.fn.tab;$.fn.tab=Plugin;$.fn.tab.Constructor=Tab;$.fn.tab.noConflict=function(){$.fn.tab=old;return this};var clickHandler=function(e){e.preventDefault();Plugin.call($(this),"show")};$(document).on("click.bs.tab.data-api",'[data-toggle="tab"]',clickHandler).on("click.bs.tab.data-api",'[data-toggle="pill"]',clickHandler)}(jQuery);+function($){"use strict";var Affix=function(element,options){this.options=$.extend({},Affix.DEFAULTS,options);var target=this.options.target===Affix.DEFAULTS.target?$(this.options.target):$(document).find(this.options.target);this.$target=target.on("scroll.bs.affix.data-api",$.proxy(this.checkPosition,this)).on("click.bs.affix.data-api",$.proxy(this.checkPositionWithEventLoop,this));this.$element=$(element);this.affixed=null;this.unpin=null;this.pinnedOffset=null;this.checkPosition()};Affix.VERSION="3.4.1";Affix.RESET="affix affix-top affix-bottom";Affix.DEFAULTS={offset:0,target:window};Affix.prototype.getState=function(scrollHeight,height,offsetTop,offsetBottom){var scrollTop=this.$target.scrollTop();var position=this.$element.offset();var targetHeight=this.$target.height();if(offsetTop!=null&&this.affixed=="top")return scrollTop<offsetTop?"top":false;if(this.affixed=="bottom"){if(offsetTop!=null)return scrollTop+this.unpin<=position.top?false:"bottom";return scrollTop+targetHeight<=scrollHeight-offsetBottom?false:"bottom"}var initializing=this.affixed==null;var colliderTop=initializing?scrollTop:position.top;var colliderHeight=initializing?targetHeight:height;if(offsetTop!=null&&scrollTop<=offsetTop)return"top";if(offsetBottom!=null&&colliderTop+colliderHeight>=scrollHeight-offsetBottom)return"bottom";return false};Affix.prototype.getPinnedOffset=function(){if(this.pinnedOffset)return this.pinnedOffset;this.$element.removeClass(Affix.RESET).addClass("affix");var scrollTop=this.$target.scrollTop();var position=this.$element.offset();return this.pinnedOffset=position.top-scrollTop};Affix.prototype.checkPositionWithEventLoop=function(){setTimeout($.proxy(this.checkPosition,this),1)};Affix.prototype.checkPosition=function(){if(!this.$element.is(":visible"))return;var height=this.$element.height();var offset=this.options.offset;var offsetTop=offset.top;var offsetBottom=offset.bottom;var scrollHeight=Math.max($(document).height(),$(document.body).height());if(typeof offset!="object")offsetBottom=offsetTop=offset;if(typeof offsetTop=="function")offsetTop=offset.top(this.$element);if(typeof offsetBottom=="function")offsetBottom=offset.bottom(this.$element);var affix=this.getState(scrollHeight,height,offsetTop,offsetBottom);if(this.affixed!=affix){if(this.unpin!=null)this.$element.css("top","");var affixType="affix"+(affix?"-"+affix:"");var e=$.Event(affixType+".bs.affix");this.$element.trigger(e);if(e.isDefaultPrevented())return;this.affixed=affix;this.unpin=affix=="bottom"?this.getPinnedOffset():null;this.$element.removeClass(Affix.RESET).addClass(affixType).trigger(affixType.replace("affix","affixed")+".bs.affix")}if(affix=="bottom"){this.$element.offset({top:scrollHeight-height-offsetBottom})}};function Plugin(option){return this.each(function(){var $this=$(this);var data=$this.data("bs.affix");var options=typeof option=="object"&&option;if(!data)$this.data("bs.affix",data=new Affix(this,options));if(typeof option=="string")data[option]()})}var old=$.fn.affix;$.fn.affix=Plugin;$.fn.affix.Constructor=Affix;$.fn.affix.noConflict=function(){$.fn.affix=old;return this};$(window).on("load",function(){$('[data-spy="affix"]').each(function(){var $spy=$(this);var data=$spy.data();data.offset=data.offset||{};if(data.offsetBottom!=null)data.offset.bottom=data.offsetBottom;if(data.offsetTop!=null)data.offset.top=data.offsetTop;Plugin.call($spy,data)})})}(jQuery);</script>
+<script>!function(e, i) {
+ var l, m, t, n = e.html5 || {}, r = /^<|^(?:button|map|select|textarea|object|iframe|option|optgroup)$/i, a = /^(?:a|b|code|div|fieldset|h1|h2|h3|h4|h5|h6|i|label|li|ol|p|q|span|strong|style|table|tbody|td|th|tr|ul)$/i, o = "_html5shiv", c = 0, s = {};
+ try {
+ var d = i.createElement("a");
+ d.innerHTML = "<xyz></xyz>", l = "hidden" in d, m = 1 == d.childNodes.length || (i.createElement("a"),
+ void 0 === (t = i.createDocumentFragment()).cloneNode || void 0 === t.createDocumentFragment || void 0 === t.createElement);
+ } catch (e) {
+ m = l = !0;
+ }
+ function u() {
+ var e = p.elements;
+ return "string" == typeof e ? e.split(" ") : e;
+ }
+ function h(e) {
+ var t = s[e[o]];
+ return t || (t = {}, c++, e[o] = c, s[c] = t), t;
+ }
+ function f(e, t, n) {
+ return t = t || i, m ? t.createElement(e) : !(t = (n = n || h(t)).cache[e] ? n.cache[e].cloneNode() : a.test(e) ? (n.cache[e] = n.createElem(e)).cloneNode() : n.createElem(e)).canHaveChildren || r.test(e) || t.tagUrn ? t : n.frag.appendChild(t);
+ }
+ function g(e) {
+ var t, n, r, a, o, c = h(e = e || i);
+ return !p.shivCSS || l || c.hasCSS || (c.hasCSS = (n = "article,aside,dialog,figcaption,figure,footer,header,hgroup,main,nav,section{display:block}mark{background:#FF0;color:#000}template{display:none}",
+ r = (t = e).createElement("p"), t = t.getElementsByTagName("head")[0] || t.documentElement,
+ r.innerHTML = "x<style>" + n + "</style>", !!t.insertBefore(r.lastChild, t.firstChild))),
+ m || (a = e, (o = c).cache || (o.cache = {}, o.createElem = a.createElement,
+ o.createFrag = a.createDocumentFragment, o.frag = o.createFrag()), a.createElement = function(e) {
+ return p.shivMethods ? f(e, a, o) : o.createElem(e);
+ }, a.createDocumentFragment = Function("h,f", "return function(){var n=f.cloneNode(),c=n.createElement;h.shivMethods&&(" + u().join().replace(/[\w\-:]+/g, function(e) {
+ return o.createElem(e), o.frag.createElement(e), 'c("' + e + '")';
+ }) + ");return n}")(p, o.frag)), e;
+ }
+ var p = {
+ elements: n.elements || "abbr article aside audio bdi canvas data datalist details dialog figcaption figure footer header hgroup main mark meter nav output picture progress section summary template time video",
+ version: "3.7.3",
+ shivCSS: !1 !== n.shivCSS,
+ supportsUnknownElements: m,
+ shivMethods: !1 !== n.shivMethods,
+ type: "default",
+ shivDocument: g,
+ createElement: f,
+ createDocumentFragment: function(e, t) {
+ if (e = e || i, m) return e.createDocumentFragment();
+ for (var n = (t = t || h(e)).frag.cloneNode(), r = 0, a = u(), o = a.length; r < o; r++) n.createElement(a[r]);
+ return n;
+ },
+ addElements: function(e, t) {
+ var n = p.elements;
+ "string" != typeof n && (n = n.join(" ")), "string" != typeof e && (e = e.join(" ")),
+ p.elements = n + " " + e, g(t);
+ }
+ };
+ e.html5 = p, g(i), "object" == typeof module && module.exports && (module.exports = p);
+}("undefined" != typeof window ? window : this, document);</script>
+<script>(function(c){c.matchMedia=c.matchMedia||function(c,e){var h,r=c.documentElement,t=r.firstElementChild||r.firstChild,m=c.createElement("body"),f=c.createElement("div");f.id="mq-test-1";f.style.cssText="position:absolute;top:-100em";m.style.background="none";m.appendChild(f);return function(c){f.innerHTML='­<style media="'+c+'"> #mq-test-1 { width: 42px; }</style>';r.insertBefore(m,t);h=42===f.offsetWidth;r.removeChild(m);return{matches:h,media:c}}}(c.document)})(this);
+(function(c){function D(){y(!0)}var e={};c.respond=e;e.update=function(){};var h=[],r=function(){var d=!1;try{d=new c.XMLHttpRequest}catch(b){d=new c.ActiveXObject("Microsoft.XMLHTTP")}return function(){return d}}(),t=function(d,b){var a=r();a&&(a.open("GET",d,!0),a.onreadystatechange=function(){4!==a.readyState||200!==a.status&&304!==a.status||b(a.responseText)},4!==a.readyState&&a.send(null))},m=function(d){return d.replace(e.regex.minmaxwh,"").match(e.regex.other)};e.ajax=t;e.queue=h;e.unsupportedmq=
+m;e.regex={media:/@media[^\{]+\{([^\{\}]*\{[^\}\{]*\})+/gi,keyframes:/@(?:\-(?:o|moz|webkit)\-)?keyframes[^\{]+\{(?:[^\{\}]*\{[^\}\{]*\})+[^\}]*\}/gi,comments:/\/\*[^*]*\*+([^/][^*]*\*+)*\//gi,urls:/(url\()['"]?([^\/\)'"][^:\)'"]+)['"]?(\))/g,findStyles:/@media *([^\{]+)\{([\S\s]+?)$/,only:/(only\s+)?([a-zA-Z]+)\s?/,minw:/\(\s*min\-width\s*:\s*(\s*[0-9\.]+)(px|em)\s*\)/,maxw:/\(\s*max\-width\s*:\s*(\s*[0-9\.]+)(px|em)\s*\)/,minmaxwh:/\(\s*m(in|ax)\-(height|width)\s*:\s*(\s*[0-9\.]+)(px|em)\s*\)/gi,
+other:/\([^\)]*\)/g};e.mediaQueriesSupported=c.matchMedia&&null!==c.matchMedia("only all")&&c.matchMedia("only all").matches;if(!e.mediaQueriesSupported){var f=c.document,k=f.documentElement,u=[],v=[],n=[],z={},w=f.getElementsByTagName("head")[0]||k,I=f.getElementsByTagName("base")[0],x=w.getElementsByTagName("link"),A,E,B,C=function(){var d,b=f.createElement("div"),a=f.body,c=k.style.fontSize,e=a&&a.style.fontSize,g=!1;b.style.cssText="position:absolute;font-size:1em;width:1em";a||(a=g=f.createElement("body"),
+a.style.background="none");k.style.fontSize="100%";a.style.fontSize="100%";a.appendChild(b);g&&k.insertBefore(a,k.firstChild);d=b.offsetWidth;g?k.removeChild(a):a.removeChild(b);k.style.fontSize=c;e&&(a.style.fontSize=e);return d=B=parseFloat(d)},y=function(d){var b=k.clientWidth,a="CSS1Compat"===f.compatMode&&b||f.body.clientWidth||b,b={},e=x[x.length-1],q=(new Date).getTime();if(d&&A&&30>q-A)c.clearTimeout(E),E=c.setTimeout(y,30);else{A=q;for(var g in u)if(u.hasOwnProperty(g)){d=u[g];var q=d.minw,
+s=d.maxw,l=null===q,h=null===s;q&&(q=parseFloat(q)*(-1<q.indexOf("em")?B||C():1));s&&(s=parseFloat(s)*(-1<s.indexOf("em")?B||C():1));if(!d.hasquery||(!l||!h)&&(l||a>=q)&&(h||a<=s))b[d.media]||(b[d.media]=[]),b[d.media].push(v[d.rules])}for(var p in n)n.hasOwnProperty(p)&&n[p]&&n[p].parentNode===w&&w.removeChild(n[p]);n.length=0;for(var m in b)b.hasOwnProperty(m)&&(g=f.createElement("style"),p=b[m].join("\n"),g.type="text/css",g.media=m,w.insertBefore(g,e.nextSibling),g.styleSheet?g.styleSheet.cssText=
+p:g.appendChild(f.createTextNode(p)),n.push(g))}},F=function(d,b,a){var c=d.replace(e.regex.comments,"").replace(e.regex.keyframes,"").match(e.regex.media),f=c&&c.length||0;b=b.substring(0,b.lastIndexOf("/"));var g=!f&&a;b.length&&(b+="/");g&&(f=1);for(var h=0;h<f;h++){var l,k,p;g?(l=a,v.push(d.replace(e.regex.urls,"$1"+b+"$2$3"))):(l=c[h].match(e.regex.findStyles)&&RegExp.$1,v.push(RegExp.$2&&RegExp.$2.replace(e.regex.urls,"$1"+b+"$2$3")));k=l.split(",");p=k.length;for(var n=0;n<p;n++)l=k[n],m(l)||
+u.push({media:l.split("(")[0].match(e.regex.only)&&RegExp.$2||"all",rules:v.length-1,hasquery:-1<l.indexOf("("),minw:l.match(e.regex.minw)&&parseFloat(RegExp.$1)+(RegExp.$2||""),maxw:l.match(e.regex.maxw)&&parseFloat(RegExp.$1)+(RegExp.$2||"")})}y()},G=function(){if(h.length){var d=h.shift();t(d.href,function(b){F(b,d.href,d.media);z[d.href]=!0;c.setTimeout(function(){G()},0)})}},H=function(){for(var d=0;d<x.length;d++){var b=x[d],a=b.href,e=b.media,f=b.rel&&"stylesheet"===b.rel.toLowerCase();if(a&&
+f&&!z[a])if(b.styleSheet&&b.styleSheet.rawCssText)F(b.styleSheet.rawCssText,a,e),z[a]=!0;else if(!/^([a-zA-Z:]*\/\/)/.test(a)&&!I||a.replace(RegExp.$1,"").split("/")[0]===c.location.host)"//"===a.substring(0,2)&&(a=c.location.protocol+a),h.push({href:a,media:e})}G()};H();e.update=H;e.getEmValue=C;c.addEventListener?c.addEventListener("resize",D,!1):c.attachEvent&&c.attachEvent("onresize",D)}})(this);
+</script>
+<style>h1 {font-size: 34px;}
+ h1.title {font-size: 38px;}
+ h2 {font-size: 30px;}
+ h3 {font-size: 24px;}
+ h4 {font-size: 18px;}
+ h5 {font-size: 16px;}
+ h6 {font-size: 12px;}
+ code {color: inherit; background-color: rgba(0, 0, 0, 0.04);}
+ pre:not([class]) { background-color: white }</style>
+<script>
+
+/**
+ * jQuery Plugin: Sticky Tabs
+ *
+ * @author Aidan Lister <aidan@php.net>
+ * adapted by Ruben Arslan to activate parent tabs too
+ * http://www.aidanlister.com/2014/03/persisting-the-tab-state-in-bootstrap/
+ */
+(function($) {
+ "use strict";
+ $.fn.rmarkdownStickyTabs = function() {
+ var context = this;
+ // Show the tab corresponding with the hash in the URL, or the first tab
+ var showStuffFromHash = function() {
+ var hash = window.location.hash;
+ var selector = hash ? 'a[href="' + hash + '"]' : 'li.active > a';
+ var $selector = $(selector, context);
+ if($selector.data('toggle') === "tab") {
+ $selector.tab('show');
+ // walk up the ancestors of this element, show any hidden tabs
+ $selector.parents('.section.tabset').each(function(i, elm) {
+ var link = $('a[href="#' + $(elm).attr('id') + '"]');
+ if(link.data('toggle') === "tab") {
+ link.tab("show");
+ }
+ });
+ }
+ };
+
+
+ // Set the correct tab when the page loads
+ showStuffFromHash(context);
+
+ // Set the correct tab when a user uses their back/forward button
+ $(window).on('hashchange', function() {
+ showStuffFromHash(context);
+ });
+
+ // Change the URL when tabs are clicked
+ $('a', context).on('click', function(e) {
+ history.pushState(null, null, this.href);
+ showStuffFromHash(context);
+ });
+
+ return this;
+ };
+}(jQuery));
+
+window.buildTabsets = function(tocID) {
+
+ // build a tabset from a section div with the .tabset class
+ function buildTabset(tabset) {
+
+ // check for fade and pills options
+ var fade = tabset.hasClass("tabset-fade");
+ var pills = tabset.hasClass("tabset-pills");
+ var navClass = pills ? "nav-pills" : "nav-tabs";
+
+ // determine the heading level of the tabset and tabs
+ var match = tabset.attr('class').match(/level(\d) /);
+ if (match === null)
+ return;
+ var tabsetLevel = Number(match[1]);
+ var tabLevel = tabsetLevel + 1;
+
+ // find all subheadings immediately below
+ var tabs = tabset.find("div.section.level" + tabLevel);
+ if (!tabs.length)
+ return;
+
+ // create tablist and tab-content elements
+ var tabList = $('<ul class="nav ' + navClass + '" role="tablist"></ul>');
+ $(tabs[0]).before(tabList);
+ var tabContent = $('<div class="tab-content"></div>');
+ $(tabs[0]).before(tabContent);
+
+ // build the tabset
+ var activeTab = 0;
+ tabs.each(function(i) {
+
+ // get the tab div
+ var tab = $(tabs[i]);
+
+ // get the id then sanitize it for use with bootstrap tabs
+ var id = tab.attr('id');
+
+ // see if this is marked as the active tab
+ if (tab.hasClass('active'))
+ activeTab = i;
+
+ // remove any table of contents entries associated with
+ // this ID (since we'll be removing the heading element)
+ $("div#" + tocID + " li a[href='#" + id + "']").parent().remove();
+
+ // sanitize the id for use with bootstrap tabs
+ id = id.replace(/[.\/?&!#<>]/g, '').replace(/\s/g, '_');
+ tab.attr('id', id);
+
+ // get the heading element within it, grab it's text, then remove it
+ var heading = tab.find('h' + tabLevel + ':first');
+ var headingText = heading.html();
+ heading.remove();
+
+ // build and append the tab list item
+ var a = $('<a role="tab" data-toggle="tab">' + headingText + '</a>');
+ a.attr('href', '#' + id);
+ a.attr('aria-controls', id);
+ var li = $('<li role="presentation"></li>');
+ li.append(a);
+ tabList.append(li);
+
+ // set it's attributes
+ tab.attr('role', 'tabpanel');
+ tab.addClass('tab-pane');
+ tab.addClass('tabbed-pane');
+ if (fade)
+ tab.addClass('fade');
+
+ // move it into the tab content div
+ tab.detach().appendTo(tabContent);
+ });
+
+ // set active tab
+ $(tabList.children('li')[activeTab]).addClass('active');
+ var active = $(tabContent.children('div.section')[activeTab]);
+ active.addClass('active');
+ if (fade)
+ active.addClass('in');
+
+ if (tabset.hasClass("tabset-sticky"))
+ tabset.rmarkdownStickyTabs();
+ }
+
+ // convert section divs with the .tabset class to tabsets
+ var tabsets = $("div.section.tabset");
+ tabsets.each(function(i) {
+ buildTabset($(tabsets[i]));
+ });
+};
+
+</script>
+<style type="text/css">.hljs-literal {
+color: #990073;
+}
+.hljs-number {
+color: #099;
+}
+.hljs-comment {
+color: #998;
+font-style: italic;
+}
+.hljs-keyword {
+color: #900;
+font-weight: bold;
+}
+.hljs-string {
+color: #d14;
+}
+</style>
+<script>var hljs=function(factory){var globalObject=typeof window==="object"&&window||typeof self==="object"&&self;if(typeof exports!=="undefined"&&!exports.nodeType){return factory(exports)}else if(globalObject){globalObject.hljs=factory({});if(typeof define==="function"&&define.amd){define([],function(){return globalObject.hljs})}return globalObject.hljs}}(function(hljs){var showedUpgradeWarning=false;var ArrayProto=[],objectKeys=Object.keys;var languages=Object.create(null),aliases=Object.create(null);var SAFE_MODE=true;var noHighlightRe=/^(no-?highlight|plain|text)$/i,languagePrefixRe=/\blang(?:uage)?-([\w-]+)\b/i,fixMarkupRe=/((^(<[^>]+>|\t|)+|(?:\n)))/gm;var API_REPLACES;var spanEndTag="</span>";var LANGUAGE_NOT_FOUND="Could not find the language '{}', did you forget to load/include a language module?";var options={hideUpgradeWarningAcceptNoSupportOrSecurityUpdates:false,classPrefix:"hljs-",tabReplace:null,useBR:false,languages:undefined};var COMMON_KEYWORDS="of and for in not or if then".split(" ");function escape(value){return value.replace(/&/g,"&").replace(/</g,"<").replace(/>/g,">")}function tag(node){return node.nodeName.toLowerCase()}function testRe(re,lexeme){var match=re&&re.exec(lexeme);return match&&match.index===0}function isNotHighlighted(language){return noHighlightRe.test(language)}function blockLanguage(block){var i,match,length,_class;var classes=block.className+" ";classes+=block.parentNode?block.parentNode.className:"";match=languagePrefixRe.exec(classes);if(match){var language=getLanguage(match[1]);if(!language){console.warn(LANGUAGE_NOT_FOUND.replace("{}",match[1]));console.warn("Falling back to no-highlight mode for this block.",block)}return language?match[1]:"no-highlight"}classes=classes.split(/\s+/);for(i=0,length=classes.length;i<length;i++){_class=classes[i];if(isNotHighlighted(_class)||getLanguage(_class)){return _class}}}function inherit(parent){var key;var result={};var objects=Array.prototype.slice.call(arguments,1);for(key in parent)result[key]=parent[key];objects.forEach(function(obj){for(key in obj)result[key]=obj[key]});return result}function nodeStream(node){var result=[];(function _nodeStream(node,offset){for(var child=node.firstChild;child;child=child.nextSibling){if(child.nodeType===3)offset+=child.nodeValue.length;else if(child.nodeType===1){result.push({event:"start",offset:offset,node:child});offset=_nodeStream(child,offset);if(!tag(child).match(/br|hr|img|input/)){result.push({event:"stop",offset:offset,node:child})}}}return offset})(node,0);return result}function mergeStreams(original,highlighted,value){var processed=0;var result="";var nodeStack=[];function selectStream(){if(!original.length||!highlighted.length){return original.length?original:highlighted}if(original[0].offset!==highlighted[0].offset){return original[0].offset<highlighted[0].offset?original:highlighted}return highlighted[0].event==="start"?original:highlighted}function open(node){function attr_str(a){return" "+a.nodeName+'="'+escape(a.value).replace(/"/g,""")+'"'}result+="<"+tag(node)+ArrayProto.map.call(node.attributes,attr_str).join("")+">"}function close(node){result+="</"+tag(node)+">"}function render(event){(event.event==="start"?open:close)(event.node)}while(original.length||highlighted.length){var stream=selectStream();result+=escape(value.substring(processed,stream[0].offset));processed=stream[0].offset;if(stream===original){nodeStack.reverse().forEach(close);do{render(stream.splice(0,1)[0]);stream=selectStream()}while(stream===original&&stream.length&&stream[0].offset===processed);nodeStack.reverse().forEach(open)}else{if(stream[0].event==="start"){nodeStack.push(stream[0].node)}else{nodeStack.pop()}render(stream.splice(0,1)[0])}}return result+escape(value.substr(processed))}function dependencyOnParent(mode){if(!mode)return false;return mode.endsWithParent||dependencyOnParent(mode.starts)}function expand_or_clone_mode(mode){if(mode.variants&&!mode.cached_variants){mode.cached_variants=mode.variants.map(function(variant){return inherit(mode,{variants:null},variant)})}if(mode.cached_variants)return mode.cached_variants;if(dependencyOnParent(mode))return[inherit(mode,{starts:mode.starts?inherit(mode.starts):null})];if(Object.isFrozen(mode))return[inherit(mode)];return[mode]}function restoreLanguageApi(obj){if(API_REPLACES&&!obj.langApiRestored){obj.langApiRestored=true;for(var key in API_REPLACES){if(obj[key]){obj[API_REPLACES[key]]=obj[key]}}(obj.contains||[]).concat(obj.variants||[]).forEach(restoreLanguageApi)}}function compileKeywords(rawKeywords,case_insensitive){var compiled_keywords={};if(typeof rawKeywords==="string"){splitAndCompile("keyword",rawKeywords)}else{objectKeys(rawKeywords).forEach(function(className){splitAndCompile(className,rawKeywords[className])})}return compiled_keywords;function splitAndCompile(className,str){if(case_insensitive){str=str.toLowerCase()}str.split(" ").forEach(function(keyword){var pair=keyword.split("|");compiled_keywords[pair[0]]=[className,scoreForKeyword(pair[0],pair[1])]})}}function scoreForKeyword(keyword,providedScore){if(providedScore)return Number(providedScore);return commonKeyword(keyword)?0:1}function commonKeyword(word){return COMMON_KEYWORDS.indexOf(word.toLowerCase())!=-1}function compileLanguage(language){function reStr(re){return re&&re.source||re}function langRe(value,global){return new RegExp(reStr(value),"m"+(language.case_insensitive?"i":"")+(global?"g":""))}function reCountMatchGroups(re){return new RegExp(re.toString()+"|").exec("").length-1}function joinRe(regexps,separator){var backreferenceRe=/\[(?:[^\\\]]|\\.)*\]|\(\??|\\([1-9][0-9]*)|\\./;var numCaptures=0;var ret="";for(var i=0;i<regexps.length;i++){numCaptures+=1;var offset=numCaptures;var re=reStr(regexps[i]);if(i>0){ret+=separator}ret+="(";while(re.length>0){var match=backreferenceRe.exec(re);if(match==null){ret+=re;break}ret+=re.substring(0,match.index);re=re.substring(match.index+match[0].length);if(match[0][0]=="\\"&&match[1]){ret+="\\"+String(Number(match[1])+offset)}else{ret+=match[0];if(match[0]=="("){numCaptures++}}}ret+=")"}return ret}function buildModeRegex(mode){var matchIndexes={};var matcherRe;var regexes=[];var matcher={};var matchAt=1;function addRule(rule,regex){matchIndexes[matchAt]=rule;regexes.push([rule,regex]);matchAt+=reCountMatchGroups(regex)+1}var term;for(var i=0;i<mode.contains.length;i++){var re;term=mode.contains[i];if(term.beginKeywords){re="\\.?(?:"+term.begin+")\\.?"}else{re=term.begin}addRule(term,re)}if(mode.terminator_end)addRule("end",mode.terminator_end);if(mode.illegal)addRule("illegal",mode.illegal);var terminators=regexes.map(function(el){return el[1]});matcherRe=langRe(joinRe(terminators,"|"),true);matcher.lastIndex=0;matcher.exec=function(s){var rule;if(regexes.length===0)return null;matcherRe.lastIndex=matcher.lastIndex;var match=matcherRe.exec(s);if(!match){return null}for(var i=0;i<match.length;i++){if(match[i]!=undefined&&matchIndexes[""+i]!=undefined){rule=matchIndexes[""+i];break}}if(typeof rule==="string"){match.type=rule;match.extra=[mode.illegal,mode.terminator_end]}else{match.type="begin";match.rule=rule}return match};return matcher}function compileMode(mode,parent){if(mode.compiled)return;mode.compiled=true;mode.keywords=mode.keywords||mode.beginKeywords;if(mode.keywords)mode.keywords=compileKeywords(mode.keywords,language.case_insensitive);mode.lexemesRe=langRe(mode.lexemes||/\w+/,true);if(parent){if(mode.beginKeywords){mode.begin="\\b("+mode.beginKeywords.split(" ").join("|")+")\\b"}if(!mode.begin)mode.begin=/\B|\b/;mode.beginRe=langRe(mode.begin);if(mode.endSameAsBegin)mode.end=mode.begin;if(!mode.end&&!mode.endsWithParent)mode.end=/\B|\b/;if(mode.end)mode.endRe=langRe(mode.end);mode.terminator_end=reStr(mode.end)||"";if(mode.endsWithParent&&parent.terminator_end)mode.terminator_end+=(mode.end?"|":"")+parent.terminator_end}if(mode.illegal)mode.illegalRe=langRe(mode.illegal);if(mode.relevance==null)mode.relevance=1;if(!mode.contains){mode.contains=[]}mode.contains=Array.prototype.concat.apply([],mode.contains.map(function(c){return expand_or_clone_mode(c==="self"?mode:c)}));mode.contains.forEach(function(c){compileMode(c,mode)});if(mode.starts){compileMode(mode.starts,parent)}mode.terminators=buildModeRegex(mode)}if(language.contains&&language.contains.indexOf("self")!=-1){if(!SAFE_MODE){throw new Error("ERR: contains `self` is not supported at the top-level of a language. See documentation.")}else{language.contains=language.contains.filter(function(mode){return mode!="self"})}}compileMode(language)}function hideUpgradeWarning(){if(options.hideUpgradeWarningAcceptNoSupportOrSecurityUpdates)return true;if(typeof process==="object"&&typeof process.env==="object"&&process.env["HLJS_HIDE_UPGRADE_WARNING"])return true}function highlight(languageName,code,ignore_illegals,continuation){if(!hideUpgradeWarning()){if(!showedUpgradeWarning){showedUpgradeWarning=true;console.log("Version 9 of Highlight.js has reached EOL and is no longer supported.\n"+"Please upgrade or ask whatever dependency you are using to upgrade.\n"+"https://github.com/highlightjs/highlight.js/issues/2877")}}var codeToHighlight=code;function escapeRe(value){return new RegExp(value.replace(/[-\/\\^$*+?.()|[\]{}]/g,"\\$&"),"m")}function endOfMode(mode,lexeme){if(testRe(mode.endRe,lexeme)){while(mode.endsParent&&mode.parent){mode=mode.parent}return mode}if(mode.endsWithParent){return endOfMode(mode.parent,lexeme)}}function keywordMatch(mode,match){var match_str=language.case_insensitive?match[0].toLowerCase():match[0];return mode.keywords.hasOwnProperty(match_str)&&mode.keywords[match_str]}function buildSpan(className,insideSpan,leaveOpen,noPrefix){if(!leaveOpen&&insideSpan==="")return"";if(!className)return insideSpan;var classPrefix=noPrefix?"":options.classPrefix,openSpan='<span class="'+classPrefix,closeSpan=leaveOpen?"":spanEndTag;openSpan+=className+'">';return openSpan+insideSpan+closeSpan}function processKeywords(){var keyword_match,last_index,match,result;if(!top.keywords)return escape(mode_buffer);result="";last_index=0;top.lexemesRe.lastIndex=0;match=top.lexemesRe.exec(mode_buffer);while(match){result+=escape(mode_buffer.substring(last_index,match.index));keyword_match=keywordMatch(top,match);if(keyword_match){relevance+=keyword_match[1];result+=buildSpan(keyword_match[0],escape(match[0]))}else{result+=escape(match[0])}last_index=top.lexemesRe.lastIndex;match=top.lexemesRe.exec(mode_buffer)}return result+escape(mode_buffer.substr(last_index))}function processSubLanguage(){var explicit=typeof top.subLanguage==="string";if(explicit&&!languages[top.subLanguage]){return escape(mode_buffer)}var result=explicit?highlight(top.subLanguage,mode_buffer,true,continuations[top.subLanguage]):highlightAuto(mode_buffer,top.subLanguage.length?top.subLanguage:undefined);if(top.relevance>0){relevance+=result.relevance}if(explicit){continuations[top.subLanguage]=result.top}return buildSpan(result.language,result.value,false,true)}function processBuffer(){result+=top.subLanguage!=null?processSubLanguage():processKeywords();mode_buffer=""}function startNewMode(mode){result+=mode.className?buildSpan(mode.className,"",true):"";top=Object.create(mode,{parent:{value:top}})}function doBeginMatch(match){var lexeme=match[0];var new_mode=match.rule;if(new_mode&&new_mode.endSameAsBegin){new_mode.endRe=escapeRe(lexeme)}if(new_mode.skip){mode_buffer+=lexeme}else{if(new_mode.excludeBegin){mode_buffer+=lexeme}processBuffer();if(!new_mode.returnBegin&&!new_mode.excludeBegin){mode_buffer=lexeme}}startNewMode(new_mode);return new_mode.returnBegin?0:lexeme.length}function doEndMatch(match){var lexeme=match[0];var matchPlusRemainder=codeToHighlight.substr(match.index);var end_mode=endOfMode(top,matchPlusRemainder);if(!end_mode){return}var origin=top;if(origin.skip){mode_buffer+=lexeme}else{if(!(origin.returnEnd||origin.excludeEnd)){mode_buffer+=lexeme}processBuffer();if(origin.excludeEnd){mode_buffer=lexeme}}do{if(top.className){result+=spanEndTag}if(!top.skip&&!top.subLanguage){relevance+=top.relevance}top=top.parent}while(top!==end_mode.parent);if(end_mode.starts){if(end_mode.endSameAsBegin){end_mode.starts.endRe=end_mode.endRe}startNewMode(end_mode.starts)}return origin.returnEnd?0:lexeme.length}var lastMatch={};function processLexeme(text_before_match,match){var lexeme=match&&match[0];mode_buffer+=text_before_match;if(lexeme==null){processBuffer();return 0}if(lastMatch.type=="begin"&&match.type=="end"&&lastMatch.index==match.index&&lexeme===""){mode_buffer+=codeToHighlight.slice(match.index,match.index+1);return 1}if(lastMatch.type==="illegal"&&lexeme===""){mode_buffer+=codeToHighlight.slice(match.index,match.index+1);return 1}lastMatch=match;if(match.type==="begin"){return doBeginMatch(match)}else if(match.type==="illegal"&&!ignore_illegals){throw new Error('Illegal lexeme "'+lexeme+'" for mode "'+(top.className||"<unnamed>")+'"')}else if(match.type==="end"){var processed=doEndMatch(match);if(processed!=undefined)return processed}mode_buffer+=lexeme;return lexeme.length}var language=getLanguage(languageName);if(!language){console.error(LANGUAGE_NOT_FOUND.replace("{}",languageName));throw new Error('Unknown language: "'+languageName+'"')}compileLanguage(language);var top=continuation||language;var continuations={};var result="",current;for(current=top;current!==language;current=current.parent){if(current.className){result=buildSpan(current.className,"",true)+result}}var mode_buffer="";var relevance=0;try{var match,count,index=0;while(true){top.terminators.lastIndex=index;match=top.terminators.exec(codeToHighlight);if(!match)break;count=processLexeme(codeToHighlight.substring(index,match.index),match);index=match.index+count}processLexeme(codeToHighlight.substr(index));for(current=top;current.parent;current=current.parent){if(current.className){result+=spanEndTag}}return{relevance:relevance,value:result,illegal:false,language:languageName,top:top}}catch(err){if(err.message&&err.message.indexOf("Illegal")!==-1){return{illegal:true,relevance:0,value:escape(codeToHighlight)}}else if(SAFE_MODE){return{relevance:0,value:escape(codeToHighlight),language:languageName,top:top,errorRaised:err}}else{throw err}}}function highlightAuto(code,languageSubset){languageSubset=languageSubset||options.languages||objectKeys(languages);var result={relevance:0,value:escape(code)};var second_best=result;languageSubset.filter(getLanguage).filter(autoDetection).forEach(function(name){var current=highlight(name,code,false);current.language=name;if(current.relevance>second_best.relevance){second_best=current}if(current.relevance>result.relevance){second_best=result;result=current}});if(second_best.language){result.second_best=second_best}return result}function fixMarkup(value){if(!(options.tabReplace||options.useBR)){return value}return value.replace(fixMarkupRe,function(match,p1){if(options.useBR&&match==="\n"){return"<br>"}else if(options.tabReplace){return p1.replace(/\t/g,options.tabReplace)}return""})}function buildClassName(prevClassName,currentLang,resultLang){var language=currentLang?aliases[currentLang]:resultLang,result=[prevClassName.trim()];if(!prevClassName.match(/\bhljs\b/)){result.push("hljs")}if(prevClassName.indexOf(language)===-1){result.push(language)}return result.join(" ").trim()}function highlightBlock(block){var node,originalStream,result,resultNode,text;var language=blockLanguage(block);if(isNotHighlighted(language))return;if(options.useBR){node=document.createElement("div");node.innerHTML=block.innerHTML.replace(/\n/g,"").replace(/<br[ \/]*>/g,"\n")}else{node=block}text=node.textContent;result=language?highlight(language,text,true):highlightAuto(text);originalStream=nodeStream(node);if(originalStream.length){resultNode=document.createElement("div");resultNode.innerHTML=result.value;result.value=mergeStreams(originalStream,nodeStream(resultNode),text)}result.value=fixMarkup(result.value);block.innerHTML=result.value;block.className=buildClassName(block.className,language,result.language);block.result={language:result.language,re:result.relevance};if(result.second_best){block.second_best={language:result.second_best.language,re:result.second_best.relevance}}}function configure(user_options){options=inherit(options,user_options)}function initHighlighting(){if(initHighlighting.called)return;initHighlighting.called=true;var blocks=document.querySelectorAll("pre code");ArrayProto.forEach.call(blocks,highlightBlock)}function initHighlightingOnLoad(){window.addEventListener("DOMContentLoaded",initHighlighting,false);window.addEventListener("load",initHighlighting,false)}var PLAINTEXT_LANGUAGE={disableAutodetect:true};function registerLanguage(name,language){var lang;try{lang=language(hljs)}catch(error){console.error("Language definition for '{}' could not be registered.".replace("{}",name));if(!SAFE_MODE){throw error}else{console.error(error)}lang=PLAINTEXT_LANGUAGE}languages[name]=lang;restoreLanguageApi(lang);lang.rawDefinition=language.bind(null,hljs);if(lang.aliases){lang.aliases.forEach(function(alias){aliases[alias]=name})}}function listLanguages(){return objectKeys(languages)}function requireLanguage(name){var lang=getLanguage(name);if(lang){return lang}var err=new Error("The '{}' language is required, but not loaded.".replace("{}",name));throw err}function getLanguage(name){name=(name||"").toLowerCase();return languages[name]||languages[aliases[name]]}function autoDetection(name){var lang=getLanguage(name);return lang&&!lang.disableAutodetect}hljs.highlight=highlight;hljs.highlightAuto=highlightAuto;hljs.fixMarkup=fixMarkup;hljs.highlightBlock=highlightBlock;hljs.configure=configure;hljs.initHighlighting=initHighlighting;hljs.initHighlightingOnLoad=initHighlightingOnLoad;hljs.registerLanguage=registerLanguage;hljs.listLanguages=listLanguages;hljs.getLanguage=getLanguage;hljs.requireLanguage=requireLanguage;hljs.autoDetection=autoDetection;hljs.inherit=inherit;hljs.debugMode=function(){SAFE_MODE=false};hljs.IDENT_RE="[a-zA-Z]\\w*";hljs.UNDERSCORE_IDENT_RE="[a-zA-Z_]\\w*";hljs.NUMBER_RE="\\b\\d+(\\.\\d+)?";hljs.C_NUMBER_RE="(-?)(\\b0[xX][a-fA-F0-9]+|(\\b\\d+(\\.\\d*)?|\\.\\d+)([eE][-+]?\\d+)?)";hljs.BINARY_NUMBER_RE="\\b(0b[01]+)";hljs.RE_STARTERS_RE="!|!=|!==|%|%=|&|&&|&=|\\*|\\*=|\\+|\\+=|,|-|-=|/=|/|:|;|<<|<<=|<=|<|===|==|=|>>>=|>>=|>=|>>>|>>|>|\\?|\\[|\\{|\\(|\\^|\\^=|\\||\\|=|\\|\\||~";hljs.BACKSLASH_ESCAPE={begin:"\\\\[\\s\\S]",relevance:0};hljs.APOS_STRING_MODE={className:"string",begin:"'",end:"'",illegal:"\\n",contains:[hljs.BACKSLASH_ESCAPE]};hljs.QUOTE_STRING_MODE={className:"string",begin:'"',end:'"',illegal:"\\n",contains:[hljs.BACKSLASH_ESCAPE]};hljs.PHRASAL_WORDS_MODE={begin:/\b(a|an|the|are|I'm|isn't|don't|doesn't|won't|but|just|should|pretty|simply|enough|gonna|going|wtf|so|such|will|you|your|they|like|more)\b/};hljs.COMMENT=function(begin,end,inherits){var mode=hljs.inherit({className:"comment",begin:begin,end:end,contains:[]},inherits||{});mode.contains.push(hljs.PHRASAL_WORDS_MODE);mode.contains.push({className:"doctag",begin:"(?:TODO|FIXME|NOTE|BUG|XXX):",relevance:0});return mode};hljs.C_LINE_COMMENT_MODE=hljs.COMMENT("//","$");hljs.C_BLOCK_COMMENT_MODE=hljs.COMMENT("/\\*","\\*/");hljs.HASH_COMMENT_MODE=hljs.COMMENT("#","$");hljs.NUMBER_MODE={className:"number",begin:hljs.NUMBER_RE,relevance:0};hljs.C_NUMBER_MODE={className:"number",begin:hljs.C_NUMBER_RE,relevance:0};hljs.BINARY_NUMBER_MODE={className:"number",begin:hljs.BINARY_NUMBER_RE,relevance:0};hljs.CSS_NUMBER_MODE={className:"number",begin:hljs.NUMBER_RE+"("+"%|em|ex|ch|rem"+"|vw|vh|vmin|vmax"+"|cm|mm|in|pt|pc|px"+"|deg|grad|rad|turn"+"|s|ms"+"|Hz|kHz"+"|dpi|dpcm|dppx"+")?",relevance:0};hljs.REGEXP_MODE={className:"regexp",begin:/\//,end:/\/[gimuy]*/,illegal:/\n/,contains:[hljs.BACKSLASH_ESCAPE,{begin:/\[/,end:/\]/,relevance:0,contains:[hljs.BACKSLASH_ESCAPE]}]};hljs.TITLE_MODE={className:"title",begin:hljs.IDENT_RE,relevance:0};hljs.UNDERSCORE_TITLE_MODE={className:"title",begin:hljs.UNDERSCORE_IDENT_RE,relevance:0};hljs.METHOD_GUARD={begin:"\\.\\s*"+hljs.UNDERSCORE_IDENT_RE,relevance:0};var constants=[hljs.BACKSLASH_ESCAPE,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.PHRASAL_WORDS_MODE,hljs.COMMENT,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.HASH_COMMENT_MODE,hljs.NUMBER_MODE,hljs.C_NUMBER_MODE,hljs.BINARY_NUMBER_MODE,hljs.CSS_NUMBER_MODE,hljs.REGEXP_MODE,hljs.TITLE_MODE,hljs.UNDERSCORE_TITLE_MODE,hljs.METHOD_GUARD];constants.forEach(function(obj){deepFreeze(obj)});function deepFreeze(o){Object.freeze(o);var objIsFunction=typeof o==="function";Object.getOwnPropertyNames(o).forEach(function(prop){if(o.hasOwnProperty(prop)&&o[prop]!==null&&(typeof o[prop]==="object"||typeof o[prop]==="function")&&(objIsFunction?prop!=="caller"&&prop!=="callee"&&prop!=="arguments":true)&&!Object.isFrozen(o[prop])){deepFreeze(o[prop])}});return o}return hljs});hljs.registerLanguage("hsp",function(hljs){return{case_insensitive:true,lexemes:/[\w\._]+/,keywords:"goto gosub return break repeat loop continue wait await dim sdim foreach dimtype dup dupptr end stop newmod delmod mref run exgoto on mcall assert logmes newlab resume yield onexit onerror onkey onclick oncmd exist delete mkdir chdir dirlist bload bsave bcopy memfile if else poke wpoke lpoke getstr chdpm memexpand memcpy memset notesel noteadd notedel noteload notesave randomize noteunsel noteget split strrep setease button chgdisp exec dialog mmload mmplay mmstop mci pset pget syscolor mes print title pos circle cls font sysfont objsize picload color palcolor palette redraw width gsel gcopy gzoom gmode bmpsave hsvcolor getkey listbox chkbox combox input mesbox buffer screen bgscr mouse objsel groll line clrobj boxf objprm objmode stick grect grotate gsquare gradf objimage objskip objenable celload celdiv celput newcom querycom delcom cnvstow comres axobj winobj sendmsg comevent comevarg sarrayconv callfunc cnvwtos comevdisp libptr system hspstat hspver stat cnt err strsize looplev sublev iparam wparam lparam refstr refdval int rnd strlen length length2 length3 length4 vartype gettime peek wpeek lpeek varptr varuse noteinfo instr abs limit getease str strmid strf getpath strtrim sin cos tan atan sqrt double absf expf logf limitf powf geteasef mousex mousey mousew hwnd hinstance hdc ginfo objinfo dirinfo sysinfo thismod __hspver__ __hsp30__ __date__ __time__ __line__ __file__ _debug __hspdef__ and or xor not screen_normal screen_palette screen_hide screen_fixedsize screen_tool screen_frame gmode_gdi gmode_mem gmode_rgb0 gmode_alpha gmode_rgb0alpha gmode_add gmode_sub gmode_pixela ginfo_mx ginfo_my ginfo_act ginfo_sel ginfo_wx1 ginfo_wy1 ginfo_wx2 ginfo_wy2 ginfo_vx ginfo_vy ginfo_sizex ginfo_sizey ginfo_winx ginfo_winy ginfo_mesx ginfo_mesy ginfo_r ginfo_g ginfo_b ginfo_paluse ginfo_dispx ginfo_dispy ginfo_cx ginfo_cy ginfo_intid ginfo_newid ginfo_sx ginfo_sy objinfo_mode objinfo_bmscr objinfo_hwnd notemax notesize dir_cur dir_exe dir_win dir_sys dir_cmdline dir_desktop dir_mydoc dir_tv font_normal font_bold font_italic font_underline font_strikeout font_antialias objmode_normal objmode_guifont objmode_usefont gsquare_grad msgothic msmincho do until while wend for next _break _continue switch case default swbreak swend ddim ldim alloc m_pi rad2deg deg2rad ease_linear ease_quad_in ease_quad_out ease_quad_inout ease_cubic_in ease_cubic_out ease_cubic_inout ease_quartic_in ease_quartic_out ease_quartic_inout ease_bounce_in ease_bounce_out ease_bounce_inout ease_shake_in ease_shake_out ease_shake_inout ease_loop",contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE,{className:"string",begin:'{"',end:'"}',contains:[hljs.BACKSLASH_ESCAPE]},hljs.COMMENT(";","$",{relevance:0}),{className:"meta",begin:"#",end:"$",keywords:{"meta-keyword":"addion cfunc cmd cmpopt comfunc const defcfunc deffunc define else endif enum epack func global if ifdef ifndef include modcfunc modfunc modinit modterm module pack packopt regcmd runtime undef usecom uselib"},contains:[hljs.inherit(hljs.QUOTE_STRING_MODE,{className:"meta-string"}),hljs.NUMBER_MODE,hljs.C_NUMBER_MODE,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE]},{className:"symbol",begin:"^\\*(\\w+|@)"},hljs.NUMBER_MODE,hljs.C_NUMBER_MODE]}});hljs.registerLanguage("applescript",function(hljs){var STRING=hljs.inherit(hljs.QUOTE_STRING_MODE,{illegal:""});var PARAMS={className:"params",begin:"\\(",end:"\\)",contains:["self",hljs.C_NUMBER_MODE,STRING]};var COMMENT_MODE_1=hljs.COMMENT("--","$");var COMMENT_MODE_2=hljs.COMMENT("\\(\\*","\\*\\)",{contains:["self",COMMENT_MODE_1]});var COMMENTS=[COMMENT_MODE_1,COMMENT_MODE_2,hljs.HASH_COMMENT_MODE];return{aliases:["osascript"],keywords:{keyword:"about above after against and around as at back before beginning "+"behind below beneath beside between but by considering "+"contain contains continue copy div does eighth else end equal "+"equals error every exit fifth first for fourth from front "+"get given global if ignoring in into is it its last local me "+"middle mod my ninth not of on onto or over prop property put ref "+"reference repeat returning script second set seventh since "+"sixth some tell tenth that the|0 then third through thru "+"timeout times to transaction try until where while whose with "+"without",literal:"AppleScript false linefeed return pi quote result space tab true",built_in:"alias application boolean class constant date file integer list "+"number real record string text "+"activate beep count delay launch log offset read round "+"run say summarize write "+"character characters contents day frontmost id item length "+"month name paragraph paragraphs rest reverse running time version "+"weekday word words year"},contains:[STRING,hljs.C_NUMBER_MODE,{className:"built_in",begin:"\\b(clipboard info|the clipboard|info for|list (disks|folder)|"+"mount volume|path to|(close|open for) access|(get|set) eof|"+"current date|do shell script|get volume settings|random number|"+"set volume|system attribute|system info|time to GMT|"+"(load|run|store) script|scripting components|"+"ASCII (character|number)|localized string|"+"choose (application|color|file|file name|"+"folder|from list|remote application|URL)|"+"display (alert|dialog))\\b|^\\s*return\\b"},{className:"literal",begin:"\\b(text item delimiters|current application|missing value)\\b"},{className:"keyword",begin:"\\b(apart from|aside from|instead of|out of|greater than|"+"isn't|(doesn't|does not) (equal|come before|come after|contain)|"+"(greater|less) than( or equal)?|(starts?|ends|begins?) with|"+"contained by|comes (before|after)|a (ref|reference)|POSIX file|"+"POSIX path|(date|time) string|quoted form)\\b"},{beginKeywords:"on",illegal:"[${=;\\n]",contains:[hljs.UNDERSCORE_TITLE_MODE,PARAMS]}].concat(COMMENTS),illegal:"//|->|=>|\\[\\["}});hljs.registerLanguage("matlab",function(hljs){var TRANSPOSE_RE="('|\\.')+";var TRANSPOSE={relevance:0,contains:[{begin:TRANSPOSE_RE}]};return{keywords:{keyword:"break case catch classdef continue else elseif end enumerated events for function "+"global if methods otherwise parfor persistent properties return spmd switch try while",built_in:"sin sind sinh asin asind asinh cos cosd cosh acos acosd acosh tan tand tanh atan "+"atand atan2 atanh sec secd sech asec asecd asech csc cscd csch acsc acscd acsch cot "+"cotd coth acot acotd acoth hypot exp expm1 log log1p log10 log2 pow2 realpow reallog "+"realsqrt sqrt nthroot nextpow2 abs angle complex conj imag real unwrap isreal "+"cplxpair fix floor ceil round mod rem sign airy besselj bessely besselh besseli "+"besselk beta betainc betaln ellipj ellipke erf erfc erfcx erfinv expint gamma "+"gammainc gammaln psi legendre cross dot factor isprime primes gcd lcm rat rats perms "+"nchoosek factorial cart2sph cart2pol pol2cart sph2cart hsv2rgb rgb2hsv zeros ones "+"eye repmat rand randn linspace logspace freqspace meshgrid accumarray size length "+"ndims numel disp isempty isequal isequalwithequalnans cat reshape diag blkdiag tril "+"triu fliplr flipud flipdim rot90 find sub2ind ind2sub bsxfun ndgrid permute ipermute "+"shiftdim circshift squeeze isscalar isvector ans eps realmax realmin pi i inf nan "+"isnan isinf isfinite j why compan gallery hadamard hankel hilb invhilb magic pascal "+"rosser toeplitz vander wilkinson max min nanmax nanmin mean nanmean type table "+"readtable writetable sortrows sort figure plot plot3 scatter scatter3 cellfun "+"legend intersect ismember procrustes hold num2cell "},illegal:'(//|"|#|/\\*|\\s+/\\w+)',contains:[{className:"function",beginKeywords:"function",end:"$",contains:[hljs.UNDERSCORE_TITLE_MODE,{className:"params",variants:[{begin:"\\(",end:"\\)"},{begin:"\\[",end:"\\]"}]}]},{className:"built_in",begin:/true|false/,relevance:0,starts:TRANSPOSE},{begin:"[a-zA-Z][a-zA-Z_0-9]*"+TRANSPOSE_RE,relevance:0},{className:"number",begin:hljs.C_NUMBER_RE,relevance:0,starts:TRANSPOSE},{className:"string",begin:"'",end:"'",contains:[hljs.BACKSLASH_ESCAPE,{begin:"''"}]},{begin:/\]|}|\)/,relevance:0,starts:TRANSPOSE},{className:"string",begin:'"',end:'"',contains:[hljs.BACKSLASH_ESCAPE,{begin:'""'}],starts:TRANSPOSE},hljs.COMMENT("^\\s*\\%\\{\\s*$","^\\s*\\%\\}\\s*$"),hljs.COMMENT("\\%","$")]}});hljs.registerLanguage("gml",function(hljs){var GML_KEYWORDS={keyword:"begin end if then else while do for break continue with until "+"repeat exit and or xor not return mod div switch case default var "+"globalvar enum #macro #region #endregion",built_in:"is_real is_string is_array is_undefined is_int32 is_int64 "+"is_ptr is_vec3 is_vec4 is_matrix is_bool typeof "+"variable_global_exists variable_global_get variable_global_set "+"variable_instance_exists variable_instance_get variable_instance_set "+"variable_instance_get_names array_length_1d array_length_2d "+"array_height_2d array_equals array_create array_copy random "+"random_range irandom irandom_range random_set_seed random_get_seed "+"randomize randomise choose abs round floor ceil sign frac sqrt sqr "+"exp ln log2 log10 sin cos tan arcsin arccos arctan arctan2 dsin dcos "+"dtan darcsin darccos darctan darctan2 degtorad radtodeg power logn "+"min max mean median clamp lerp dot_product dot_product_3d "+"dot_product_normalised dot_product_3d_normalised "+"dot_product_normalized dot_product_3d_normalized math_set_epsilon "+"math_get_epsilon angle_difference point_distance_3d point_distance "+"point_direction lengthdir_x lengthdir_y real string int64 ptr "+"string_format chr ansi_char ord string_length string_byte_length "+"string_pos string_copy string_char_at string_ord_at string_byte_at "+"string_set_byte_at string_delete string_insert string_lower "+"string_upper string_repeat string_letters string_digits "+"string_lettersdigits string_replace string_replace_all string_count "+"string_hash_to_newline clipboard_has_text clipboard_set_text "+"clipboard_get_text date_current_datetime date_create_datetime "+"date_valid_datetime date_inc_year date_inc_month date_inc_week "+"date_inc_day date_inc_hour date_inc_minute date_inc_second "+"date_get_year date_get_month date_get_week date_get_day "+"date_get_hour date_get_minute date_get_second date_get_weekday "+"date_get_day_of_year date_get_hour_of_year date_get_minute_of_year "+"date_get_second_of_year date_year_span date_month_span "+"date_week_span date_day_span date_hour_span date_minute_span "+"date_second_span date_compare_datetime date_compare_date "+"date_compare_time date_date_of date_time_of date_datetime_string "+"date_date_string date_time_string date_days_in_month "+"date_days_in_year date_leap_year date_is_today date_set_timezone "+"date_get_timezone game_set_speed game_get_speed motion_set "+"motion_add place_free place_empty place_meeting place_snapped "+"move_random move_snap move_towards_point move_contact_solid "+"move_contact_all move_outside_solid move_outside_all "+"move_bounce_solid move_bounce_all move_wrap distance_to_point "+"distance_to_object position_empty position_meeting path_start "+"path_end mp_linear_step mp_potential_step mp_linear_step_object "+"mp_potential_step_object mp_potential_settings mp_linear_path "+"mp_potential_path mp_linear_path_object mp_potential_path_object "+"mp_grid_create mp_grid_destroy mp_grid_clear_all mp_grid_clear_cell "+"mp_grid_clear_rectangle mp_grid_add_cell mp_grid_get_cell "+"mp_grid_add_rectangle mp_grid_add_instances mp_grid_path "+"mp_grid_draw mp_grid_to_ds_grid collision_point collision_rectangle "+"collision_circle collision_ellipse collision_line "+"collision_point_list collision_rectangle_list collision_circle_list "+"collision_ellipse_list collision_line_list instance_position_list "+"instance_place_list point_in_rectangle "+"point_in_triangle point_in_circle rectangle_in_rectangle "+"rectangle_in_triangle rectangle_in_circle instance_find "+"instance_exists instance_number instance_position instance_nearest "+"instance_furthest instance_place instance_create_depth "+"instance_create_layer instance_copy instance_change instance_destroy "+"position_destroy position_change instance_id_get "+"instance_deactivate_all instance_deactivate_object "+"instance_deactivate_region instance_activate_all "+"instance_activate_object instance_activate_region room_goto "+"room_goto_previous room_goto_next room_previous room_next "+"room_restart game_end game_restart game_load game_save "+"game_save_buffer game_load_buffer event_perform event_user "+"event_perform_object event_inherited show_debug_message "+"show_debug_overlay debug_event debug_get_callstack alarm_get "+"alarm_set font_texture_page_size keyboard_set_map keyboard_get_map "+"keyboard_unset_map keyboard_check keyboard_check_pressed "+"keyboard_check_released keyboard_check_direct keyboard_get_numlock "+"keyboard_set_numlock keyboard_key_press keyboard_key_release "+"keyboard_clear io_clear mouse_check_button "+"mouse_check_button_pressed mouse_check_button_released "+"mouse_wheel_up mouse_wheel_down mouse_clear draw_self draw_sprite "+"draw_sprite_pos draw_sprite_ext draw_sprite_stretched "+"draw_sprite_stretched_ext draw_sprite_tiled draw_sprite_tiled_ext "+"draw_sprite_part draw_sprite_part_ext draw_sprite_general draw_clear "+"draw_clear_alpha draw_point draw_line draw_line_width draw_rectangle "+"draw_roundrect draw_roundrect_ext draw_triangle draw_circle "+"draw_ellipse draw_set_circle_precision draw_arrow draw_button "+"draw_path draw_healthbar draw_getpixel draw_getpixel_ext "+"draw_set_colour draw_set_color draw_set_alpha draw_get_colour "+"draw_get_color draw_get_alpha merge_colour make_colour_rgb "+"make_colour_hsv colour_get_red colour_get_green colour_get_blue "+"colour_get_hue colour_get_saturation colour_get_value merge_color "+"make_color_rgb make_color_hsv color_get_red color_get_green "+"color_get_blue color_get_hue color_get_saturation color_get_value "+"merge_color screen_save screen_save_part draw_set_font "+"draw_set_halign draw_set_valign draw_text draw_text_ext string_width "+"string_height string_width_ext string_height_ext "+"draw_text_transformed draw_text_ext_transformed draw_text_colour "+"draw_text_ext_colour draw_text_transformed_colour "+"draw_text_ext_transformed_colour draw_text_color draw_text_ext_color "+"draw_text_transformed_color draw_text_ext_transformed_color "+"draw_point_colour draw_line_colour draw_line_width_colour "+"draw_rectangle_colour draw_roundrect_colour "+"draw_roundrect_colour_ext draw_triangle_colour draw_circle_colour "+"draw_ellipse_colour draw_point_color draw_line_color "+"draw_line_width_color draw_rectangle_color draw_roundrect_color "+"draw_roundrect_color_ext draw_triangle_color draw_circle_color "+"draw_ellipse_color draw_primitive_begin draw_vertex "+"draw_vertex_colour draw_vertex_color draw_primitive_end "+"sprite_get_uvs font_get_uvs sprite_get_texture font_get_texture "+"texture_get_width texture_get_height texture_get_uvs "+"draw_primitive_begin_texture draw_vertex_texture "+"draw_vertex_texture_colour draw_vertex_texture_color "+"texture_global_scale surface_create surface_create_ext "+"surface_resize surface_free surface_exists surface_get_width "+"surface_get_height surface_get_texture surface_set_target "+"surface_set_target_ext surface_reset_target surface_depth_disable "+"surface_get_depth_disable draw_surface draw_surface_stretched "+"draw_surface_tiled draw_surface_part draw_surface_ext "+"draw_surface_stretched_ext draw_surface_tiled_ext "+"draw_surface_part_ext draw_surface_general surface_getpixel "+"surface_getpixel_ext surface_save surface_save_part surface_copy "+"surface_copy_part application_surface_draw_enable "+"application_get_position application_surface_enable "+"application_surface_is_enabled display_get_width display_get_height "+"display_get_orientation display_get_gui_width display_get_gui_height "+"display_reset display_mouse_get_x display_mouse_get_y "+"display_mouse_set display_set_ui_visibility "+"window_set_fullscreen window_get_fullscreen "+"window_set_caption window_set_min_width window_set_max_width "+"window_set_min_height window_set_max_height window_get_visible_rects "+"window_get_caption window_set_cursor window_get_cursor "+"window_set_colour window_get_colour window_set_color "+"window_get_color window_set_position window_set_size "+"window_set_rectangle window_center window_get_x window_get_y "+"window_get_width window_get_height window_mouse_get_x "+"window_mouse_get_y window_mouse_set window_view_mouse_get_x "+"window_view_mouse_get_y window_views_mouse_get_x "+"window_views_mouse_get_y audio_listener_position "+"audio_listener_velocity audio_listener_orientation "+"audio_emitter_position audio_emitter_create audio_emitter_free "+"audio_emitter_exists audio_emitter_pitch audio_emitter_velocity "+"audio_emitter_falloff audio_emitter_gain audio_play_sound "+"audio_play_sound_on audio_play_sound_at audio_stop_sound "+"audio_resume_music audio_music_is_playing audio_resume_sound "+"audio_pause_sound audio_pause_music audio_channel_num "+"audio_sound_length audio_get_type audio_falloff_set_model "+"audio_play_music audio_stop_music audio_master_gain audio_music_gain "+"audio_sound_gain audio_sound_pitch audio_stop_all audio_resume_all "+"audio_pause_all audio_is_playing audio_is_paused audio_exists "+"audio_sound_set_track_position audio_sound_get_track_position "+"audio_emitter_get_gain audio_emitter_get_pitch audio_emitter_get_x "+"audio_emitter_get_y audio_emitter_get_z audio_emitter_get_vx "+"audio_emitter_get_vy audio_emitter_get_vz "+"audio_listener_set_position audio_listener_set_velocity "+"audio_listener_set_orientation audio_listener_get_data "+"audio_set_master_gain audio_get_master_gain audio_sound_get_gain "+"audio_sound_get_pitch audio_get_name audio_sound_set_track_position "+"audio_sound_get_track_position audio_create_stream "+"audio_destroy_stream audio_create_sync_group "+"audio_destroy_sync_group audio_play_in_sync_group "+"audio_start_sync_group audio_stop_sync_group audio_pause_sync_group "+"audio_resume_sync_group audio_sync_group_get_track_pos "+"audio_sync_group_debug audio_sync_group_is_playing audio_debug "+"audio_group_load audio_group_unload audio_group_is_loaded "+"audio_group_load_progress audio_group_name audio_group_stop_all "+"audio_group_set_gain audio_create_buffer_sound "+"audio_free_buffer_sound audio_create_play_queue "+"audio_free_play_queue audio_queue_sound audio_get_recorder_count "+"audio_get_recorder_info audio_start_recording audio_stop_recording "+"audio_sound_get_listener_mask audio_emitter_get_listener_mask "+"audio_get_listener_mask audio_sound_set_listener_mask "+"audio_emitter_set_listener_mask audio_set_listener_mask "+"audio_get_listener_count audio_get_listener_info audio_system "+"show_message show_message_async clickable_add clickable_add_ext "+"clickable_change clickable_change_ext clickable_delete "+"clickable_exists clickable_set_style show_question "+"show_question_async get_integer get_string get_integer_async "+"get_string_async get_login_async get_open_filename get_save_filename "+"get_open_filename_ext get_save_filename_ext show_error "+"highscore_clear highscore_add highscore_value highscore_name "+"draw_highscore sprite_exists sprite_get_name sprite_get_number "+"sprite_get_width sprite_get_height sprite_get_xoffset "+"sprite_get_yoffset sprite_get_bbox_left sprite_get_bbox_right "+"sprite_get_bbox_top sprite_get_bbox_bottom sprite_save "+"sprite_save_strip sprite_set_cache_size sprite_set_cache_size_ext "+"sprite_get_tpe sprite_prefetch sprite_prefetch_multi sprite_flush "+"sprite_flush_multi sprite_set_speed sprite_get_speed_type "+"sprite_get_speed font_exists font_get_name font_get_fontname "+"font_get_bold font_get_italic font_get_first font_get_last "+"font_get_size font_set_cache_size path_exists path_get_name "+"path_get_length path_get_time path_get_kind path_get_closed "+"path_get_precision path_get_number path_get_point_x path_get_point_y "+"path_get_point_speed path_get_x path_get_y path_get_speed "+"script_exists script_get_name timeline_add timeline_delete "+"timeline_clear timeline_exists timeline_get_name "+"timeline_moment_clear timeline_moment_add_script timeline_size "+"timeline_max_moment object_exists object_get_name object_get_sprite "+"object_get_solid object_get_visible object_get_persistent "+"object_get_mask object_get_parent object_get_physics "+"object_is_ancestor room_exists room_get_name sprite_set_offset "+"sprite_duplicate sprite_assign sprite_merge sprite_add "+"sprite_replace sprite_create_from_surface sprite_add_from_surface "+"sprite_delete sprite_set_alpha_from_sprite sprite_collision_mask "+"font_add_enable_aa font_add_get_enable_aa font_add font_add_sprite "+"font_add_sprite_ext font_replace font_replace_sprite "+"font_replace_sprite_ext font_delete path_set_kind path_set_closed "+"path_set_precision path_add path_assign path_duplicate path_append "+"path_delete path_add_point path_insert_point path_change_point "+"path_delete_point path_clear_points path_reverse path_mirror "+"path_flip path_rotate path_rescale path_shift script_execute "+"object_set_sprite object_set_solid object_set_visible "+"object_set_persistent object_set_mask room_set_width room_set_height "+"room_set_persistent room_set_background_colour "+"room_set_background_color room_set_view room_set_viewport "+"room_get_viewport room_set_view_enabled room_add room_duplicate "+"room_assign room_instance_add room_instance_clear room_get_camera "+"room_set_camera asset_get_index asset_get_type "+"file_text_open_from_string file_text_open_read file_text_open_write "+"file_text_open_append file_text_close file_text_write_string "+"file_text_write_real file_text_writeln file_text_read_string "+"file_text_read_real file_text_readln file_text_eof file_text_eoln "+"file_exists file_delete file_rename file_copy directory_exists "+"directory_create directory_destroy file_find_first file_find_next "+"file_find_close file_attributes filename_name filename_path "+"filename_dir filename_drive filename_ext filename_change_ext "+"file_bin_open file_bin_rewrite file_bin_close file_bin_position "+"file_bin_size file_bin_seek file_bin_write_byte file_bin_read_byte "+"parameter_count parameter_string environment_get_variable "+"ini_open_from_string ini_open ini_close ini_read_string "+"ini_read_real ini_write_string ini_write_real ini_key_exists "+"ini_section_exists ini_key_delete ini_section_delete "+"ds_set_precision ds_exists ds_stack_create ds_stack_destroy "+"ds_stack_clear ds_stack_copy ds_stack_size ds_stack_empty "+"ds_stack_push ds_stack_pop ds_stack_top ds_stack_write ds_stack_read "+"ds_queue_create ds_queue_destroy ds_queue_clear ds_queue_copy "+"ds_queue_size ds_queue_empty ds_queue_enqueue ds_queue_dequeue "+"ds_queue_head ds_queue_tail ds_queue_write ds_queue_read "+"ds_list_create ds_list_destroy ds_list_clear ds_list_copy "+"ds_list_size ds_list_empty ds_list_add ds_list_insert "+"ds_list_replace ds_list_delete ds_list_find_index ds_list_find_value "+"ds_list_mark_as_list ds_list_mark_as_map ds_list_sort "+"ds_list_shuffle ds_list_write ds_list_read ds_list_set ds_map_create "+"ds_map_destroy ds_map_clear ds_map_copy ds_map_size ds_map_empty "+"ds_map_add ds_map_add_list ds_map_add_map ds_map_replace "+"ds_map_replace_map ds_map_replace_list ds_map_delete ds_map_exists "+"ds_map_find_value ds_map_find_previous ds_map_find_next "+"ds_map_find_first ds_map_find_last ds_map_write ds_map_read "+"ds_map_secure_save ds_map_secure_load ds_map_secure_load_buffer "+"ds_map_secure_save_buffer ds_map_set ds_priority_create "+"ds_priority_destroy ds_priority_clear ds_priority_copy "+"ds_priority_size ds_priority_empty ds_priority_add "+"ds_priority_change_priority ds_priority_find_priority "+"ds_priority_delete_value ds_priority_delete_min ds_priority_find_min "+"ds_priority_delete_max ds_priority_find_max ds_priority_write "+"ds_priority_read ds_grid_create ds_grid_destroy ds_grid_copy "+"ds_grid_resize ds_grid_width ds_grid_height ds_grid_clear "+"ds_grid_set ds_grid_add ds_grid_multiply ds_grid_set_region "+"ds_grid_add_region ds_grid_multiply_region ds_grid_set_disk "+"ds_grid_add_disk ds_grid_multiply_disk ds_grid_set_grid_region "+"ds_grid_add_grid_region ds_grid_multiply_grid_region ds_grid_get "+"ds_grid_get_sum ds_grid_get_max ds_grid_get_min ds_grid_get_mean "+"ds_grid_get_disk_sum ds_grid_get_disk_min ds_grid_get_disk_max "+"ds_grid_get_disk_mean ds_grid_value_exists ds_grid_value_x "+"ds_grid_value_y ds_grid_value_disk_exists ds_grid_value_disk_x "+"ds_grid_value_disk_y ds_grid_shuffle ds_grid_write ds_grid_read "+"ds_grid_sort ds_grid_set ds_grid_get effect_create_below "+"effect_create_above effect_clear part_type_create part_type_destroy "+"part_type_exists part_type_clear part_type_shape part_type_sprite "+"part_type_size part_type_scale part_type_orientation part_type_life "+"part_type_step part_type_death part_type_speed part_type_direction "+"part_type_gravity part_type_colour1 part_type_colour2 "+"part_type_colour3 part_type_colour_mix part_type_colour_rgb "+"part_type_colour_hsv part_type_color1 part_type_color2 "+"part_type_color3 part_type_color_mix part_type_color_rgb "+"part_type_color_hsv part_type_alpha1 part_type_alpha2 "+"part_type_alpha3 part_type_blend part_system_create "+"part_system_create_layer part_system_destroy part_system_exists "+"part_system_clear part_system_draw_order part_system_depth "+"part_system_position part_system_automatic_update "+"part_system_automatic_draw part_system_update part_system_drawit "+"part_system_get_layer part_system_layer part_particles_create "+"part_particles_create_colour part_particles_create_color "+"part_particles_clear part_particles_count part_emitter_create "+"part_emitter_destroy part_emitter_destroy_all part_emitter_exists "+"part_emitter_clear part_emitter_region part_emitter_burst "+"part_emitter_stream external_call external_define external_free "+"window_handle window_device matrix_get matrix_set "+"matrix_build_identity matrix_build matrix_build_lookat "+"matrix_build_projection_ortho matrix_build_projection_perspective "+"matrix_build_projection_perspective_fov matrix_multiply "+"matrix_transform_vertex matrix_stack_push matrix_stack_pop "+"matrix_stack_multiply matrix_stack_set matrix_stack_clear "+"matrix_stack_top matrix_stack_is_empty browser_input_capture "+"os_get_config os_get_info os_get_language os_get_region "+"os_lock_orientation display_get_dpi_x display_get_dpi_y "+"display_set_gui_size display_set_gui_maximise "+"display_set_gui_maximize device_mouse_dbclick_enable "+"display_set_timing_method display_get_timing_method "+"display_set_sleep_margin display_get_sleep_margin virtual_key_add "+"virtual_key_hide virtual_key_delete virtual_key_show "+"draw_enable_drawevent draw_enable_swf_aa draw_set_swf_aa_level "+"draw_get_swf_aa_level draw_texture_flush draw_flush "+"gpu_set_blendenable gpu_set_ztestenable gpu_set_zfunc "+"gpu_set_zwriteenable gpu_set_lightingenable gpu_set_fog "+"gpu_set_cullmode gpu_set_blendmode gpu_set_blendmode_ext "+"gpu_set_blendmode_ext_sepalpha gpu_set_colorwriteenable "+"gpu_set_colourwriteenable gpu_set_alphatestenable "+"gpu_set_alphatestref gpu_set_alphatestfunc gpu_set_texfilter "+"gpu_set_texfilter_ext gpu_set_texrepeat gpu_set_texrepeat_ext "+"gpu_set_tex_filter gpu_set_tex_filter_ext gpu_set_tex_repeat "+"gpu_set_tex_repeat_ext gpu_set_tex_mip_filter "+"gpu_set_tex_mip_filter_ext gpu_set_tex_mip_bias "+"gpu_set_tex_mip_bias_ext gpu_set_tex_min_mip gpu_set_tex_min_mip_ext "+"gpu_set_tex_max_mip gpu_set_tex_max_mip_ext gpu_set_tex_max_aniso "+"gpu_set_tex_max_aniso_ext gpu_set_tex_mip_enable "+"gpu_set_tex_mip_enable_ext gpu_get_blendenable gpu_get_ztestenable "+"gpu_get_zfunc gpu_get_zwriteenable gpu_get_lightingenable "+"gpu_get_fog gpu_get_cullmode gpu_get_blendmode gpu_get_blendmode_ext "+"gpu_get_blendmode_ext_sepalpha gpu_get_blendmode_src "+"gpu_get_blendmode_dest gpu_get_blendmode_srcalpha "+"gpu_get_blendmode_destalpha gpu_get_colorwriteenable "+"gpu_get_colourwriteenable gpu_get_alphatestenable "+"gpu_get_alphatestref gpu_get_alphatestfunc gpu_get_texfilter "+"gpu_get_texfilter_ext gpu_get_texrepeat gpu_get_texrepeat_ext "+"gpu_get_tex_filter gpu_get_tex_filter_ext gpu_get_tex_repeat "+"gpu_get_tex_repeat_ext gpu_get_tex_mip_filter "+"gpu_get_tex_mip_filter_ext gpu_get_tex_mip_bias "+"gpu_get_tex_mip_bias_ext gpu_get_tex_min_mip gpu_get_tex_min_mip_ext "+"gpu_get_tex_max_mip gpu_get_tex_max_mip_ext gpu_get_tex_max_aniso "+"gpu_get_tex_max_aniso_ext gpu_get_tex_mip_enable "+"gpu_get_tex_mip_enable_ext gpu_push_state gpu_pop_state "+"gpu_get_state gpu_set_state draw_light_define_ambient "+"draw_light_define_direction draw_light_define_point "+"draw_light_enable draw_set_lighting draw_light_get_ambient "+"draw_light_get draw_get_lighting shop_leave_rating url_get_domain "+"url_open url_open_ext url_open_full get_timer achievement_login "+"achievement_logout achievement_post achievement_increment "+"achievement_post_score achievement_available "+"achievement_show_achievements achievement_show_leaderboards "+"achievement_load_friends achievement_load_leaderboard "+"achievement_send_challenge achievement_load_progress "+"achievement_reset achievement_login_status achievement_get_pic "+"achievement_show_challenge_notifications achievement_get_challenges "+"achievement_event achievement_show achievement_get_info "+"cloud_file_save cloud_string_save cloud_synchronise ads_enable "+"ads_disable ads_setup ads_engagement_launch ads_engagement_available "+"ads_engagement_active ads_event ads_event_preload "+"ads_set_reward_callback ads_get_display_height ads_get_display_width "+"ads_move ads_interstitial_available ads_interstitial_display "+"device_get_tilt_x device_get_tilt_y device_get_tilt_z "+"device_is_keypad_open device_mouse_check_button "+"device_mouse_check_button_pressed device_mouse_check_button_released "+"device_mouse_x device_mouse_y device_mouse_raw_x device_mouse_raw_y "+"device_mouse_x_to_gui device_mouse_y_to_gui iap_activate iap_status "+"iap_enumerate_products iap_restore_all iap_acquire iap_consume "+"iap_product_details iap_purchase_details facebook_init "+"facebook_login facebook_status facebook_graph_request "+"facebook_dialog facebook_logout facebook_launch_offerwall "+"facebook_post_message facebook_send_invite facebook_user_id "+"facebook_accesstoken facebook_check_permission "+"facebook_request_read_permissions "+"facebook_request_publish_permissions gamepad_is_supported "+"gamepad_get_device_count gamepad_is_connected "+"gamepad_get_description gamepad_get_button_threshold "+"gamepad_set_button_threshold gamepad_get_axis_deadzone "+"gamepad_set_axis_deadzone gamepad_button_count gamepad_button_check "+"gamepad_button_check_pressed gamepad_button_check_released "+"gamepad_button_value gamepad_axis_count gamepad_axis_value "+"gamepad_set_vibration gamepad_set_colour gamepad_set_color "+"os_is_paused window_has_focus code_is_compiled http_get "+"http_get_file http_post_string http_request json_encode json_decode "+"zip_unzip load_csv base64_encode base64_decode md5_string_unicode "+"md5_string_utf8 md5_file os_is_network_connected sha1_string_unicode "+"sha1_string_utf8 sha1_file os_powersave_enable analytics_event "+"analytics_event_ext win8_livetile_tile_notification "+"win8_livetile_tile_clear win8_livetile_badge_notification "+"win8_livetile_badge_clear win8_livetile_queue_enable "+"win8_secondarytile_pin win8_secondarytile_badge_notification "+"win8_secondarytile_delete win8_livetile_notification_begin "+"win8_livetile_notification_secondary_begin "+"win8_livetile_notification_expiry win8_livetile_notification_tag "+"win8_livetile_notification_text_add "+"win8_livetile_notification_image_add win8_livetile_notification_end "+"win8_appbar_enable win8_appbar_add_element "+"win8_appbar_remove_element win8_settingscharm_add_entry "+"win8_settingscharm_add_html_entry win8_settingscharm_add_xaml_entry "+"win8_settingscharm_set_xaml_property "+"win8_settingscharm_get_xaml_property win8_settingscharm_remove_entry "+"win8_share_image win8_share_screenshot win8_share_file "+"win8_share_url win8_share_text win8_search_enable "+"win8_search_disable win8_search_add_suggestions "+"win8_device_touchscreen_available win8_license_initialize_sandbox "+"win8_license_trial_version winphone_license_trial_version "+"winphone_tile_title winphone_tile_count winphone_tile_back_title "+"winphone_tile_back_content winphone_tile_back_content_wide "+"winphone_tile_front_image winphone_tile_front_image_small "+"winphone_tile_front_image_wide winphone_tile_back_image "+"winphone_tile_back_image_wide winphone_tile_background_colour "+"winphone_tile_background_color winphone_tile_icon_image "+"winphone_tile_small_icon_image winphone_tile_wide_content "+"winphone_tile_cycle_images winphone_tile_small_background_image "+"physics_world_create physics_world_gravity "+"physics_world_update_speed physics_world_update_iterations "+"physics_world_draw_debug physics_pause_enable physics_fixture_create "+"physics_fixture_set_kinematic physics_fixture_set_density "+"physics_fixture_set_awake physics_fixture_set_restitution "+"physics_fixture_set_friction physics_fixture_set_collision_group "+"physics_fixture_set_sensor physics_fixture_set_linear_damping "+"physics_fixture_set_angular_damping physics_fixture_set_circle_shape "+"physics_fixture_set_box_shape physics_fixture_set_edge_shape "+"physics_fixture_set_polygon_shape physics_fixture_set_chain_shape "+"physics_fixture_add_point physics_fixture_bind "+"physics_fixture_bind_ext physics_fixture_delete physics_apply_force "+"physics_apply_impulse physics_apply_angular_impulse "+"physics_apply_local_force physics_apply_local_impulse "+"physics_apply_torque physics_mass_properties physics_draw_debug "+"physics_test_overlap physics_remove_fixture physics_set_friction "+"physics_set_density physics_set_restitution physics_get_friction "+"physics_get_density physics_get_restitution "+"physics_joint_distance_create physics_joint_rope_create "+"physics_joint_revolute_create physics_joint_prismatic_create "+"physics_joint_pulley_create physics_joint_wheel_create "+"physics_joint_weld_create physics_joint_friction_create "+"physics_joint_gear_create physics_joint_enable_motor "+"physics_joint_get_value physics_joint_set_value physics_joint_delete "+"physics_particle_create physics_particle_delete "+"physics_particle_delete_region_circle "+"physics_particle_delete_region_box "+"physics_particle_delete_region_poly physics_particle_set_flags "+"physics_particle_set_category_flags physics_particle_draw "+"physics_particle_draw_ext physics_particle_count "+"physics_particle_get_data physics_particle_get_data_particle "+"physics_particle_group_begin physics_particle_group_circle "+"physics_particle_group_box physics_particle_group_polygon "+"physics_particle_group_add_point physics_particle_group_end "+"physics_particle_group_join physics_particle_group_delete "+"physics_particle_group_count physics_particle_group_get_data "+"physics_particle_group_get_mass physics_particle_group_get_inertia "+"physics_particle_group_get_centre_x "+"physics_particle_group_get_centre_y physics_particle_group_get_vel_x "+"physics_particle_group_get_vel_y physics_particle_group_get_ang_vel "+"physics_particle_group_get_x physics_particle_group_get_y "+"physics_particle_group_get_angle physics_particle_set_group_flags "+"physics_particle_get_group_flags physics_particle_get_max_count "+"physics_particle_get_radius physics_particle_get_density "+"physics_particle_get_damping physics_particle_get_gravity_scale "+"physics_particle_set_max_count physics_particle_set_radius "+"physics_particle_set_density physics_particle_set_damping "+"physics_particle_set_gravity_scale network_create_socket "+"network_create_socket_ext network_create_server "+"network_create_server_raw network_connect network_connect_raw "+"network_send_packet network_send_raw network_send_broadcast "+"network_send_udp network_send_udp_raw network_set_timeout "+"network_set_config network_resolve network_destroy buffer_create "+"buffer_write buffer_read buffer_seek buffer_get_surface "+"buffer_set_surface buffer_delete buffer_exists buffer_get_type "+"buffer_get_alignment buffer_poke buffer_peek buffer_save "+"buffer_save_ext buffer_load buffer_load_ext buffer_load_partial "+"buffer_copy buffer_fill buffer_get_size buffer_tell buffer_resize "+"buffer_md5 buffer_sha1 buffer_base64_encode buffer_base64_decode "+"buffer_base64_decode_ext buffer_sizeof buffer_get_address "+"buffer_create_from_vertex_buffer "+"buffer_create_from_vertex_buffer_ext buffer_copy_from_vertex_buffer "+"buffer_async_group_begin buffer_async_group_option "+"buffer_async_group_end buffer_load_async buffer_save_async "+"gml_release_mode gml_pragma steam_activate_overlay "+"steam_is_overlay_enabled steam_is_overlay_activated "+"steam_get_persona_name steam_initialised "+"steam_is_cloud_enabled_for_app steam_is_cloud_enabled_for_account "+"steam_file_persisted steam_get_quota_total steam_get_quota_free "+"steam_file_write steam_file_write_file steam_file_read "+"steam_file_delete steam_file_exists steam_file_size steam_file_share "+"steam_is_screenshot_requested steam_send_screenshot "+"steam_is_user_logged_on steam_get_user_steam_id steam_user_owns_dlc "+"steam_user_installed_dlc steam_set_achievement steam_get_achievement "+"steam_clear_achievement steam_set_stat_int steam_set_stat_float "+"steam_set_stat_avg_rate steam_get_stat_int steam_get_stat_float "+"steam_get_stat_avg_rate steam_reset_all_stats "+"steam_reset_all_stats_achievements steam_stats_ready "+"steam_create_leaderboard steam_upload_score steam_upload_score_ext "+"steam_download_scores_around_user steam_download_scores "+"steam_download_friends_scores steam_upload_score_buffer "+"steam_upload_score_buffer_ext steam_current_game_language "+"steam_available_languages steam_activate_overlay_browser "+"steam_activate_overlay_user steam_activate_overlay_store "+"steam_get_user_persona_name steam_get_app_id "+"steam_get_user_account_id steam_ugc_download steam_ugc_create_item "+"steam_ugc_start_item_update steam_ugc_set_item_title "+"steam_ugc_set_item_description steam_ugc_set_item_visibility "+"steam_ugc_set_item_tags steam_ugc_set_item_content "+"steam_ugc_set_item_preview steam_ugc_submit_item_update "+"steam_ugc_get_item_update_progress steam_ugc_subscribe_item "+"steam_ugc_unsubscribe_item steam_ugc_num_subscribed_items "+"steam_ugc_get_subscribed_items steam_ugc_get_item_install_info "+"steam_ugc_get_item_update_info steam_ugc_request_item_details "+"steam_ugc_create_query_user steam_ugc_create_query_user_ex "+"steam_ugc_create_query_all steam_ugc_create_query_all_ex "+"steam_ugc_query_set_cloud_filename_filter "+"steam_ugc_query_set_match_any_tag steam_ugc_query_set_search_text "+"steam_ugc_query_set_ranked_by_trend_days "+"steam_ugc_query_add_required_tag steam_ugc_query_add_excluded_tag "+"steam_ugc_query_set_return_long_description "+"steam_ugc_query_set_return_total_only "+"steam_ugc_query_set_allow_cached_response steam_ugc_send_query "+"shader_set shader_get_name shader_reset shader_current "+"shader_is_compiled shader_get_sampler_index shader_get_uniform "+"shader_set_uniform_i shader_set_uniform_i_array shader_set_uniform_f "+"shader_set_uniform_f_array shader_set_uniform_matrix "+"shader_set_uniform_matrix_array shader_enable_corner_id "+"texture_set_stage texture_get_texel_width texture_get_texel_height "+"shaders_are_supported vertex_format_begin vertex_format_end "+"vertex_format_delete vertex_format_add_position "+"vertex_format_add_position_3d vertex_format_add_colour "+"vertex_format_add_color vertex_format_add_normal "+"vertex_format_add_texcoord vertex_format_add_textcoord "+"vertex_format_add_custom vertex_create_buffer "+"vertex_create_buffer_ext vertex_delete_buffer vertex_begin "+"vertex_end vertex_position vertex_position_3d vertex_colour "+"vertex_color vertex_argb vertex_texcoord vertex_normal vertex_float1 "+"vertex_float2 vertex_float3 vertex_float4 vertex_ubyte4 "+"vertex_submit vertex_freeze vertex_get_number vertex_get_buffer_size "+"vertex_create_buffer_from_buffer "+"vertex_create_buffer_from_buffer_ext push_local_notification "+"push_get_first_local_notification push_get_next_local_notification "+"push_cancel_local_notification skeleton_animation_set "+"skeleton_animation_get skeleton_animation_mix "+"skeleton_animation_set_ext skeleton_animation_get_ext "+"skeleton_animation_get_duration skeleton_animation_get_frames "+"skeleton_animation_clear skeleton_skin_set skeleton_skin_get "+"skeleton_attachment_set skeleton_attachment_get "+"skeleton_attachment_create skeleton_collision_draw_set "+"skeleton_bone_data_get skeleton_bone_data_set "+"skeleton_bone_state_get skeleton_bone_state_set skeleton_get_minmax "+"skeleton_get_num_bounds skeleton_get_bounds "+"skeleton_animation_get_frame skeleton_animation_set_frame "+"draw_skeleton draw_skeleton_time draw_skeleton_instance "+"draw_skeleton_collision skeleton_animation_list skeleton_skin_list "+"skeleton_slot_data layer_get_id layer_get_id_at_depth "+"layer_get_depth layer_create layer_destroy layer_destroy_instances "+"layer_add_instance layer_has_instance layer_set_visible "+"layer_get_visible layer_exists layer_x layer_y layer_get_x "+"layer_get_y layer_hspeed layer_vspeed layer_get_hspeed "+"layer_get_vspeed layer_script_begin layer_script_end layer_shader "+"layer_get_script_begin layer_get_script_end layer_get_shader "+"layer_set_target_room layer_get_target_room layer_reset_target_room "+"layer_get_all layer_get_all_elements layer_get_name layer_depth "+"layer_get_element_layer layer_get_element_type layer_element_move "+"layer_force_draw_depth layer_is_draw_depth_forced "+"layer_get_forced_depth layer_background_get_id "+"layer_background_exists layer_background_create "+"layer_background_destroy layer_background_visible "+"layer_background_change layer_background_sprite "+"layer_background_htiled layer_background_vtiled "+"layer_background_stretch layer_background_yscale "+"layer_background_xscale layer_background_blend "+"layer_background_alpha layer_background_index layer_background_speed "+"layer_background_get_visible layer_background_get_sprite "+"layer_background_get_htiled layer_background_get_vtiled "+"layer_background_get_stretch layer_background_get_yscale "+"layer_background_get_xscale layer_background_get_blend "+"layer_background_get_alpha layer_background_get_index "+"layer_background_get_speed layer_sprite_get_id layer_sprite_exists "+"layer_sprite_create layer_sprite_destroy layer_sprite_change "+"layer_sprite_index layer_sprite_speed layer_sprite_xscale "+"layer_sprite_yscale layer_sprite_angle layer_sprite_blend "+"layer_sprite_alpha layer_sprite_x layer_sprite_y "+"layer_sprite_get_sprite layer_sprite_get_index "+"layer_sprite_get_speed layer_sprite_get_xscale "+"layer_sprite_get_yscale layer_sprite_get_angle "+"layer_sprite_get_blend layer_sprite_get_alpha layer_sprite_get_x "+"layer_sprite_get_y layer_tilemap_get_id layer_tilemap_exists "+"layer_tilemap_create layer_tilemap_destroy tilemap_tileset tilemap_x "+"tilemap_y tilemap_set tilemap_set_at_pixel tilemap_get_tileset "+"tilemap_get_tile_width tilemap_get_tile_height tilemap_get_width "+"tilemap_get_height tilemap_get_x tilemap_get_y tilemap_get "+"tilemap_get_at_pixel tilemap_get_cell_x_at_pixel "+"tilemap_get_cell_y_at_pixel tilemap_clear draw_tilemap draw_tile "+"tilemap_set_global_mask tilemap_get_global_mask tilemap_set_mask "+"tilemap_get_mask tilemap_get_frame tile_set_empty tile_set_index "+"tile_set_flip tile_set_mirror tile_set_rotate tile_get_empty "+"tile_get_index tile_get_flip tile_get_mirror tile_get_rotate "+"layer_tile_exists layer_tile_create layer_tile_destroy "+"layer_tile_change layer_tile_xscale layer_tile_yscale "+"layer_tile_blend layer_tile_alpha layer_tile_x layer_tile_y "+"layer_tile_region layer_tile_visible layer_tile_get_sprite "+"layer_tile_get_xscale layer_tile_get_yscale layer_tile_get_blend "+"layer_tile_get_alpha layer_tile_get_x layer_tile_get_y "+"layer_tile_get_region layer_tile_get_visible "+"layer_instance_get_instance instance_activate_layer "+"instance_deactivate_layer camera_create camera_create_view "+"camera_destroy camera_apply camera_get_active camera_get_default "+"camera_set_default camera_set_view_mat camera_set_proj_mat "+"camera_set_update_script camera_set_begin_script "+"camera_set_end_script camera_set_view_pos camera_set_view_size "+"camera_set_view_speed camera_set_view_border camera_set_view_angle "+"camera_set_view_target camera_get_view_mat camera_get_proj_mat "+"camera_get_update_script camera_get_begin_script "+"camera_get_end_script camera_get_view_x camera_get_view_y "+"camera_get_view_width camera_get_view_height camera_get_view_speed_x "+"camera_get_view_speed_y camera_get_view_border_x "+"camera_get_view_border_y camera_get_view_angle "+"camera_get_view_target view_get_camera view_get_visible "+"view_get_xport view_get_yport view_get_wport view_get_hport "+"view_get_surface_id view_set_camera view_set_visible view_set_xport "+"view_set_yport view_set_wport view_set_hport view_set_surface_id "+"gesture_drag_time gesture_drag_distance gesture_flick_speed "+"gesture_double_tap_time gesture_double_tap_distance "+"gesture_pinch_distance gesture_pinch_angle_towards "+"gesture_pinch_angle_away gesture_rotate_time gesture_rotate_angle "+"gesture_tap_count gesture_get_drag_time gesture_get_drag_distance "+"gesture_get_flick_speed gesture_get_double_tap_time "+"gesture_get_double_tap_distance gesture_get_pinch_distance "+"gesture_get_pinch_angle_towards gesture_get_pinch_angle_away "+"gesture_get_rotate_time gesture_get_rotate_angle "+"gesture_get_tap_count keyboard_virtual_show keyboard_virtual_hide "+"keyboard_virtual_status keyboard_virtual_height",literal:"self other all noone global local undefined pointer_invalid "+"pointer_null path_action_stop path_action_restart "+"path_action_continue path_action_reverse true false pi GM_build_date "+"GM_version GM_runtime_version timezone_local timezone_utc "+"gamespeed_fps gamespeed_microseconds ev_create ev_destroy ev_step "+"ev_alarm ev_keyboard ev_mouse ev_collision ev_other ev_draw "+"ev_draw_begin ev_draw_end ev_draw_pre ev_draw_post ev_keypress "+"ev_keyrelease ev_trigger ev_left_button ev_right_button "+"ev_middle_button ev_no_button ev_left_press ev_right_press "+"ev_middle_press ev_left_release ev_right_release ev_middle_release "+"ev_mouse_enter ev_mouse_leave ev_mouse_wheel_up ev_mouse_wheel_down "+"ev_global_left_button ev_global_right_button ev_global_middle_button "+"ev_global_left_press ev_global_right_press ev_global_middle_press "+"ev_global_left_release ev_global_right_release "+"ev_global_middle_release ev_joystick1_left ev_joystick1_right "+"ev_joystick1_up ev_joystick1_down ev_joystick1_button1 "+"ev_joystick1_button2 ev_joystick1_button3 ev_joystick1_button4 "+"ev_joystick1_button5 ev_joystick1_button6 ev_joystick1_button7 "+"ev_joystick1_button8 ev_joystick2_left ev_joystick2_right "+"ev_joystick2_up ev_joystick2_down ev_joystick2_button1 "+"ev_joystick2_button2 ev_joystick2_button3 ev_joystick2_button4 "+"ev_joystick2_button5 ev_joystick2_button6 ev_joystick2_button7 "+"ev_joystick2_button8 ev_outside ev_boundary ev_game_start "+"ev_game_end ev_room_start ev_room_end ev_no_more_lives "+"ev_animation_end ev_end_of_path ev_no_more_health ev_close_button "+"ev_user0 ev_user1 ev_user2 ev_user3 ev_user4 ev_user5 ev_user6 "+"ev_user7 ev_user8 ev_user9 ev_user10 ev_user11 ev_user12 ev_user13 "+"ev_user14 ev_user15 ev_step_normal ev_step_begin ev_step_end ev_gui "+"ev_gui_begin ev_gui_end ev_cleanup ev_gesture ev_gesture_tap "+"ev_gesture_double_tap ev_gesture_drag_start ev_gesture_dragging "+"ev_gesture_drag_end ev_gesture_flick ev_gesture_pinch_start "+"ev_gesture_pinch_in ev_gesture_pinch_out ev_gesture_pinch_end "+"ev_gesture_rotate_start ev_gesture_rotating ev_gesture_rotate_end "+"ev_global_gesture_tap ev_global_gesture_double_tap "+"ev_global_gesture_drag_start ev_global_gesture_dragging "+"ev_global_gesture_drag_end ev_global_gesture_flick "+"ev_global_gesture_pinch_start ev_global_gesture_pinch_in "+"ev_global_gesture_pinch_out ev_global_gesture_pinch_end "+"ev_global_gesture_rotate_start ev_global_gesture_rotating "+"ev_global_gesture_rotate_end vk_nokey vk_anykey vk_enter vk_return "+"vk_shift vk_control vk_alt vk_escape vk_space vk_backspace vk_tab "+"vk_pause vk_printscreen vk_left vk_right vk_up vk_down vk_home "+"vk_end vk_delete vk_insert vk_pageup vk_pagedown vk_f1 vk_f2 vk_f3 "+"vk_f4 vk_f5 vk_f6 vk_f7 vk_f8 vk_f9 vk_f10 vk_f11 vk_f12 vk_numpad0 "+"vk_numpad1 vk_numpad2 vk_numpad3 vk_numpad4 vk_numpad5 vk_numpad6 "+"vk_numpad7 vk_numpad8 vk_numpad9 vk_divide vk_multiply vk_subtract "+"vk_add vk_decimal vk_lshift vk_lcontrol vk_lalt vk_rshift "+"vk_rcontrol vk_ralt mb_any mb_none mb_left mb_right mb_middle "+"c_aqua c_black c_blue c_dkgray c_fuchsia c_gray c_green c_lime "+"c_ltgray c_maroon c_navy c_olive c_purple c_red c_silver c_teal "+"c_white c_yellow c_orange fa_left fa_center fa_right fa_top "+"fa_middle fa_bottom pr_pointlist pr_linelist pr_linestrip "+"pr_trianglelist pr_trianglestrip pr_trianglefan bm_complex bm_normal "+"bm_add bm_max bm_subtract bm_zero bm_one bm_src_colour "+"bm_inv_src_colour bm_src_color bm_inv_src_color bm_src_alpha "+"bm_inv_src_alpha bm_dest_alpha bm_inv_dest_alpha bm_dest_colour "+"bm_inv_dest_colour bm_dest_color bm_inv_dest_color bm_src_alpha_sat "+"tf_point tf_linear tf_anisotropic mip_off mip_on mip_markedonly "+"audio_falloff_none audio_falloff_inverse_distance "+"audio_falloff_inverse_distance_clamped audio_falloff_linear_distance "+"audio_falloff_linear_distance_clamped "+"audio_falloff_exponent_distance "+"audio_falloff_exponent_distance_clamped audio_old_system "+"audio_new_system audio_mono audio_stereo audio_3d cr_default cr_none "+"cr_arrow cr_cross cr_beam cr_size_nesw cr_size_ns cr_size_nwse "+"cr_size_we cr_uparrow cr_hourglass cr_drag cr_appstart cr_handpoint "+"cr_size_all spritespeed_framespersecond "+"spritespeed_framespergameframe asset_object asset_unknown "+"asset_sprite asset_sound asset_room asset_path asset_script "+"asset_font asset_timeline asset_tiles asset_shader fa_readonly "+"fa_hidden fa_sysfile fa_volumeid fa_directory fa_archive "+"ds_type_map ds_type_list ds_type_stack ds_type_queue ds_type_grid "+"ds_type_priority ef_explosion ef_ring ef_ellipse ef_firework "+"ef_smoke ef_smokeup ef_star ef_spark ef_flare ef_cloud ef_rain "+"ef_snow pt_shape_pixel pt_shape_disk pt_shape_square pt_shape_line "+"pt_shape_star pt_shape_circle pt_shape_ring pt_shape_sphere "+"pt_shape_flare pt_shape_spark pt_shape_explosion pt_shape_cloud "+"pt_shape_smoke pt_shape_snow ps_distr_linear ps_distr_gaussian "+"ps_distr_invgaussian ps_shape_rectangle ps_shape_ellipse "+"ps_shape_diamond ps_shape_line ty_real ty_string dll_cdecl "+"dll_stdcall matrix_view matrix_projection matrix_world os_win32 "+"os_windows os_macosx os_ios os_android os_symbian os_linux "+"os_unknown os_winphone os_tizen os_win8native "+"os_wiiu os_3ds os_psvita os_bb10 os_ps4 os_xboxone "+"os_ps3 os_xbox360 os_uwp os_tvos os_switch "+"browser_not_a_browser browser_unknown browser_ie browser_firefox "+"browser_chrome browser_safari browser_safari_mobile browser_opera "+"browser_tizen browser_edge browser_windows_store browser_ie_mobile "+"device_ios_unknown device_ios_iphone device_ios_iphone_retina "+"device_ios_ipad device_ios_ipad_retina device_ios_iphone5 "+"device_ios_iphone6 device_ios_iphone6plus device_emulator "+"device_tablet display_landscape display_landscape_flipped "+"display_portrait display_portrait_flipped tm_sleep tm_countvsyncs "+"of_challenge_win of_challen ge_lose of_challenge_tie "+"leaderboard_type_number leaderboard_type_time_mins_secs "+"cmpfunc_never cmpfunc_less cmpfunc_equal cmpfunc_lessequal "+"cmpfunc_greater cmpfunc_notequal cmpfunc_greaterequal cmpfunc_always "+"cull_noculling cull_clockwise cull_counterclockwise lighttype_dir "+"lighttype_point iap_ev_storeload iap_ev_product iap_ev_purchase "+"iap_ev_consume iap_ev_restore iap_storeload_ok iap_storeload_failed "+"iap_status_uninitialised iap_status_unavailable iap_status_loading "+"iap_status_available iap_status_processing iap_status_restoring "+"iap_failed iap_unavailable iap_available iap_purchased iap_canceled "+"iap_refunded fb_login_default fb_login_fallback_to_webview "+"fb_login_no_fallback_to_webview fb_login_forcing_webview "+"fb_login_use_system_account fb_login_forcing_safari "+"phy_joint_anchor_1_x phy_joint_anchor_1_y phy_joint_anchor_2_x "+"phy_joint_anchor_2_y phy_joint_reaction_force_x "+"phy_joint_reaction_force_y phy_joint_reaction_torque "+"phy_joint_motor_speed phy_joint_angle phy_joint_motor_torque "+"phy_joint_max_motor_torque phy_joint_translation phy_joint_speed "+"phy_joint_motor_force phy_joint_max_motor_force phy_joint_length_1 "+"phy_joint_length_2 phy_joint_damping_ratio phy_joint_frequency "+"phy_joint_lower_angle_limit phy_joint_upper_angle_limit "+"phy_joint_angle_limits phy_joint_max_length phy_joint_max_torque "+"phy_joint_max_force phy_debug_render_aabb "+"phy_debug_render_collision_pairs phy_debug_render_coms "+"phy_debug_render_core_shapes phy_debug_render_joints "+"phy_debug_render_obb phy_debug_render_shapes "+"phy_particle_flag_water phy_particle_flag_zombie "+"phy_particle_flag_wall phy_particle_flag_spring "+"phy_particle_flag_elastic phy_particle_flag_viscous "+"phy_particle_flag_powder phy_particle_flag_tensile "+"phy_particle_flag_colourmixing phy_particle_flag_colormixing "+"phy_particle_group_flag_solid phy_particle_group_flag_rigid "+"phy_particle_data_flag_typeflags phy_particle_data_flag_position "+"phy_particle_data_flag_velocity phy_particle_data_flag_colour "+"phy_particle_data_flag_color phy_particle_data_flag_category "+"achievement_our_info achievement_friends_info "+"achievement_leaderboard_info achievement_achievement_info "+"achievement_filter_all_players achievement_filter_friends_only "+"achievement_filter_favorites_only "+"achievement_type_achievement_challenge "+"achievement_type_score_challenge achievement_pic_loaded "+"achievement_show_ui achievement_show_profile "+"achievement_show_leaderboard achievement_show_achievement "+"achievement_show_bank achievement_show_friend_picker "+"achievement_show_purchase_prompt network_socket_tcp "+"network_socket_udp network_socket_bluetooth network_type_connect "+"network_type_disconnect network_type_data "+"network_type_non_blocking_connect network_config_connect_timeout "+"network_config_use_non_blocking_socket "+"network_config_enable_reliable_udp "+"network_config_disable_reliable_udp buffer_fixed buffer_grow "+"buffer_wrap buffer_fast buffer_vbuffer buffer_network buffer_u8 "+"buffer_s8 buffer_u16 buffer_s16 buffer_u32 buffer_s32 buffer_u64 "+"buffer_f16 buffer_f32 buffer_f64 buffer_bool buffer_text "+"buffer_string buffer_surface_copy buffer_seek_start "+"buffer_seek_relative buffer_seek_end "+"buffer_generalerror buffer_outofspace buffer_outofbounds "+"buffer_invalidtype text_type button_type input_type ANSI_CHARSET "+"DEFAULT_CHARSET EASTEUROPE_CHARSET RUSSIAN_CHARSET SYMBOL_CHARSET "+"SHIFTJIS_CHARSET HANGEUL_CHARSET GB2312_CHARSET CHINESEBIG5_CHARSET "+"JOHAB_CHARSET HEBREW_CHARSET ARABIC_CHARSET GREEK_CHARSET "+"TURKISH_CHARSET VIETNAMESE_CHARSET THAI_CHARSET MAC_CHARSET "+"BALTIC_CHARSET OEM_CHARSET gp_face1 gp_face2 gp_face3 gp_face4 "+"gp_shoulderl gp_shoulderr gp_shoulderlb gp_shoulderrb gp_select "+"gp_start gp_stickl gp_stickr gp_padu gp_padd gp_padl gp_padr "+"gp_axislh gp_axislv gp_axisrh gp_axisrv ov_friends ov_community "+"ov_players ov_settings ov_gamegroup ov_achievements lb_sort_none "+"lb_sort_ascending lb_sort_descending lb_disp_none lb_disp_numeric "+"lb_disp_time_sec lb_disp_time_ms ugc_result_success "+"ugc_filetype_community ugc_filetype_microtrans ugc_visibility_public "+"ugc_visibility_friends_only ugc_visibility_private "+"ugc_query_RankedByVote ugc_query_RankedByPublicationDate "+"ugc_query_AcceptedForGameRankedByAcceptanceDate "+"ugc_query_RankedByTrend "+"ugc_query_FavoritedByFriendsRankedByPublicationDate "+"ugc_query_CreatedByFriendsRankedByPublicationDate "+"ugc_query_RankedByNumTimesReported "+"ugc_query_CreatedByFollowedUsersRankedByPublicationDate "+"ugc_query_NotYetRated ugc_query_RankedByTotalVotesAsc "+"ugc_query_RankedByVotesUp ugc_query_RankedByTextSearch "+"ugc_sortorder_CreationOrderDesc ugc_sortorder_CreationOrderAsc "+"ugc_sortorder_TitleAsc ugc_sortorder_LastUpdatedDesc "+"ugc_sortorder_SubscriptionDateDesc ugc_sortorder_VoteScoreDesc "+"ugc_sortorder_ForModeration ugc_list_Published ugc_list_VotedOn "+"ugc_list_VotedUp ugc_list_VotedDown ugc_list_WillVoteLater "+"ugc_list_Favorited ugc_list_Subscribed ugc_list_UsedOrPlayed "+"ugc_list_Followed ugc_match_Items ugc_match_Items_Mtx "+"ugc_match_Items_ReadyToUse ugc_match_Collections ugc_match_Artwork "+"ugc_match_Videos ugc_match_Screenshots ugc_match_AllGuides "+"ugc_match_WebGuides ugc_match_IntegratedGuides "+"ugc_match_UsableInGame ugc_match_ControllerBindings "+"vertex_usage_position vertex_usage_colour vertex_usage_color "+"vertex_usage_normal vertex_usage_texcoord vertex_usage_textcoord "+"vertex_usage_blendweight vertex_usage_blendindices "+"vertex_usage_psize vertex_usage_tangent vertex_usage_binormal "+"vertex_usage_fog vertex_usage_depth vertex_usage_sample "+"vertex_type_float1 vertex_type_float2 vertex_type_float3 "+"vertex_type_float4 vertex_type_colour vertex_type_color "+"vertex_type_ubyte4 layerelementtype_undefined "+"layerelementtype_background layerelementtype_instance "+"layerelementtype_oldtilemap layerelementtype_sprite "+"layerelementtype_tilemap layerelementtype_particlesystem "+"layerelementtype_tile tile_rotate tile_flip tile_mirror "+"tile_index_mask kbv_type_default kbv_type_ascii kbv_type_url "+"kbv_type_email kbv_type_numbers kbv_type_phone kbv_type_phone_name "+"kbv_returnkey_default kbv_returnkey_go kbv_returnkey_google "+"kbv_returnkey_join kbv_returnkey_next kbv_returnkey_route "+"kbv_returnkey_search kbv_returnkey_send kbv_returnkey_yahoo "+"kbv_returnkey_done kbv_returnkey_continue kbv_returnkey_emergency "+"kbv_autocapitalize_none kbv_autocapitalize_words "+"kbv_autocapitalize_sentences kbv_autocapitalize_characters",symbol:"argument_relative argument argument0 argument1 argument2 "+"argument3 argument4 argument5 argument6 argument7 argument8 "+"argument9 argument10 argument11 argument12 argument13 argument14 "+"argument15 argument_count x y xprevious yprevious xstart ystart "+"hspeed vspeed direction speed friction gravity gravity_direction "+"path_index path_position path_positionprevious path_speed "+"path_scale path_orientation path_endaction object_index id solid "+"persistent mask_index instance_count instance_id room_speed fps "+"fps_real current_time current_year current_month current_day "+"current_weekday current_hour current_minute current_second alarm "+"timeline_index timeline_position timeline_speed timeline_running "+"timeline_loop room room_first room_last room_width room_height "+"room_caption room_persistent score lives health show_score "+"show_lives show_health caption_score caption_lives caption_health "+"event_type event_number event_object event_action "+"application_surface gamemaker_pro gamemaker_registered "+"gamemaker_version error_occurred error_last debug_mode "+"keyboard_key keyboard_lastkey keyboard_lastchar keyboard_string "+"mouse_x mouse_y mouse_button mouse_lastbutton cursor_sprite "+"visible sprite_index sprite_width sprite_height sprite_xoffset "+"sprite_yoffset image_number image_index image_speed depth "+"image_xscale image_yscale image_angle image_alpha image_blend "+"bbox_left bbox_right bbox_top bbox_bottom layer background_colour "+"background_showcolour background_color background_showcolor "+"view_enabled view_current view_visible view_xview view_yview "+"view_wview view_hview view_xport view_yport view_wport view_hport "+"view_angle view_hborder view_vborder view_hspeed view_vspeed "+"view_object view_surface_id view_camera game_id game_display_name "+"game_project_name game_save_id working_directory temp_directory "+"program_directory browser_width browser_height os_type os_device "+"os_browser os_version display_aa async_load delta_time "+"webgl_enabled event_data iap_data phy_rotation phy_position_x "+"phy_position_y phy_angular_velocity phy_linear_velocity_x "+"phy_linear_velocity_y phy_speed_x phy_speed_y phy_speed "+"phy_angular_damping phy_linear_damping phy_bullet "+"phy_fixed_rotation phy_active phy_mass phy_inertia phy_com_x "+"phy_com_y phy_dynamic phy_kinematic phy_sleeping "+"phy_collision_points phy_collision_x phy_collision_y "+"phy_col_normal_x phy_col_normal_y phy_position_xprevious "+"phy_position_yprevious"};return{aliases:["gml","GML"],case_insensitive:false,keywords:GML_KEYWORDS,contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.C_NUMBER_MODE]}});hljs.registerLanguage("smali",function(hljs){var smali_instr_low_prio=["add","and","cmp","cmpg","cmpl","const","div","double","float","goto","if","int","long","move","mul","neg","new","nop","not","or","rem","return","shl","shr","sput","sub","throw","ushr","xor"];var smali_instr_high_prio=["aget","aput","array","check","execute","fill","filled","goto/16","goto/32","iget","instance","invoke","iput","monitor","packed","sget","sparse"];var smali_keywords=["transient","constructor","abstract","final","synthetic","public","private","protected","static","bridge","system"];return{aliases:["smali"],contains:[{className:"string",begin:'"',end:'"',relevance:0},hljs.COMMENT("#","$",{relevance:0}),{className:"keyword",variants:[{begin:"\\s*\\.end\\s[a-zA-Z0-9]*"},{begin:"^[ ]*\\.[a-zA-Z]*",relevance:0},{begin:"\\s:[a-zA-Z_0-9]*",relevance:0},{begin:"\\s("+smali_keywords.join("|")+")"}]},{className:"built_in",variants:[{begin:"\\s("+smali_instr_low_prio.join("|")+")\\s"},{begin:"\\s("+smali_instr_low_prio.join("|")+")((\\-|/)[a-zA-Z0-9]+)+\\s",relevance:10},{begin:"\\s("+smali_instr_high_prio.join("|")+")((\\-|/)[a-zA-Z0-9]+)*\\s",relevance:10}]},{className:"class",begin:"L[^(;:\n]*;",relevance:0},{begin:"[vp][0-9]+"}]}});hljs.registerLanguage("lsl",function(hljs){var LSL_STRING_ESCAPE_CHARS={className:"subst",begin:/\\[tn"\\]/};var LSL_STRINGS={className:"string",begin:'"',end:'"',contains:[LSL_STRING_ESCAPE_CHARS]};var LSL_NUMBERS={className:"number",begin:hljs.C_NUMBER_RE};var LSL_CONSTANTS={className:"literal",variants:[{begin:"\\b(?:PI|TWO_PI|PI_BY_TWO|DEG_TO_RAD|RAD_TO_DEG|SQRT2)\\b"},{begin:"\\b(?:XP_ERROR_(?:EXPERIENCES_DISABLED|EXPERIENCE_(?:DISABLED|SUSPENDED)|INVALID_(?:EXPERIENCE|PARAMETERS)|KEY_NOT_FOUND|MATURITY_EXCEEDED|NONE|NOT_(?:FOUND|PERMITTED(?:_LAND)?)|NO_EXPERIENCE|QUOTA_EXCEEDED|RETRY_UPDATE|STORAGE_EXCEPTION|STORE_DISABLED|THROTTLED|UNKNOWN_ERROR)|JSON_APPEND|STATUS_(?:PHYSICS|ROTATE_[XYZ]|PHANTOM|SANDBOX|BLOCK_GRAB(?:_OBJECT)?|(?:DIE|RETURN)_AT_EDGE|CAST_SHADOWS|OK|MALFORMED_PARAMS|TYPE_MISMATCH|BOUNDS_ERROR|NOT_(?:FOUND|SUPPORTED)|INTERNAL_ERROR|WHITELIST_FAILED)|AGENT(?:_(?:BY_(?:LEGACY_|USER)NAME|FLYING|ATTACHMENTS|SCRIPTED|MOUSELOOK|SITTING|ON_OBJECT|AWAY|WALKING|IN_AIR|TYPING|CROUCHING|BUSY|ALWAYS_RUN|AUTOPILOT|LIST_(?:PARCEL(?:_OWNER)?|REGION)))?|CAMERA_(?:PITCH|DISTANCE|BEHINDNESS_(?:ANGLE|LAG)|(?:FOCUS|POSITION)(?:_(?:THRESHOLD|LOCKED|LAG))?|FOCUS_OFFSET|ACTIVE)|ANIM_ON|LOOP|REVERSE|PING_PONG|SMOOTH|ROTATE|SCALE|ALL_SIDES|LINK_(?:ROOT|SET|ALL_(?:OTHERS|CHILDREN)|THIS)|ACTIVE|PASS(?:IVE|_(?:ALWAYS|IF_NOT_HANDLED|NEVER))|SCRIPTED|CONTROL_(?:FWD|BACK|(?:ROT_)?(?:LEFT|RIGHT)|UP|DOWN|(?:ML_)?LBUTTON)|PERMISSION_(?:RETURN_OBJECTS|DEBIT|OVERRIDE_ANIMATIONS|SILENT_ESTATE_MANAGEMENT|TAKE_CONTROLS|TRIGGER_ANIMATION|ATTACH|CHANGE_LINKS|(?:CONTROL|TRACK)_CAMERA|TELEPORT)|INVENTORY_(?:TEXTURE|SOUND|OBJECT|SCRIPT|LANDMARK|CLOTHING|NOTECARD|BODYPART|ANIMATION|GESTURE|ALL|NONE)|CHANGED_(?:INVENTORY|COLOR|SHAPE|SCALE|TEXTURE|LINK|ALLOWED_DROP|OWNER|REGION(?:_START)?|TELEPORT|MEDIA)|OBJECT_(?:CLICK_ACTION|HOVER_HEIGHT|LAST_OWNER_ID|(?:PHYSICS|SERVER|STREAMING)_COST|UNKNOWN_DETAIL|CHARACTER_TIME|PHANTOM|PHYSICS|TEMP_(?:ATTACHED|ON_REZ)|NAME|DESC|POS|PRIM_(?:COUNT|EQUIVALENCE)|RETURN_(?:PARCEL(?:_OWNER)?|REGION)|REZZER_KEY|ROO?T|VELOCITY|OMEGA|OWNER|GROUP(?:_TAG)?|CREATOR|ATTACHED_(?:POINT|SLOTS_AVAILABLE)|RENDER_WEIGHT|(?:BODY_SHAPE|PATHFINDING)_TYPE|(?:RUNNING|TOTAL)_SCRIPT_COUNT|TOTAL_INVENTORY_COUNT|SCRIPT_(?:MEMORY|TIME))|TYPE_(?:INTEGER|FLOAT|STRING|KEY|VECTOR|ROTATION|INVALID)|(?:DEBUG|PUBLIC)_CHANNEL|ATTACH_(?:AVATAR_CENTER|CHEST|HEAD|BACK|PELVIS|MOUTH|CHIN|NECK|NOSE|BELLY|[LR](?:SHOULDER|HAND|FOOT|EAR|EYE|[UL](?:ARM|LEG)|HIP)|(?:LEFT|RIGHT)_PEC|HUD_(?:CENTER_[12]|TOP_(?:RIGHT|CENTER|LEFT)|BOTTOM(?:_(?:RIGHT|LEFT))?)|[LR]HAND_RING1|TAIL_(?:BASE|TIP)|[LR]WING|FACE_(?:JAW|[LR]EAR|[LR]EYE|TOUNGE)|GROIN|HIND_[LR]FOOT)|LAND_(?:LEVEL|RAISE|LOWER|SMOOTH|NOISE|REVERT)|DATA_(?:ONLINE|NAME|BORN|SIM_(?:POS|STATUS|RATING)|PAYINFO)|PAYMENT_INFO_(?:ON_FILE|USED)|REMOTE_DATA_(?:CHANNEL|REQUEST|REPLY)|PSYS_(?:PART_(?:BF_(?:ZERO|ONE(?:_MINUS_(?:DEST_COLOR|SOURCE_(ALPHA|COLOR)))?|DEST_COLOR|SOURCE_(ALPHA|COLOR))|BLEND_FUNC_(DEST|SOURCE)|FLAGS|(?:START|END)_(?:COLOR|ALPHA|SCALE|GLOW)|MAX_AGE|(?:RIBBON|WIND|INTERP_(?:COLOR|SCALE)|BOUNCE|FOLLOW_(?:SRC|VELOCITY)|TARGET_(?:POS|LINEAR)|EMISSIVE)_MASK)|SRC_(?:MAX_AGE|PATTERN|ANGLE_(?:BEGIN|END)|BURST_(?:RATE|PART_COUNT|RADIUS|SPEED_(?:MIN|MAX))|ACCEL|TEXTURE|TARGET_KEY|OMEGA|PATTERN_(?:DROP|EXPLODE|ANGLE(?:_CONE(?:_EMPTY)?)?)))|VEHICLE_(?:REFERENCE_FRAME|TYPE_(?:NONE|SLED|CAR|BOAT|AIRPLANE|BALLOON)|(?:LINEAR|ANGULAR)_(?:FRICTION_TIMESCALE|MOTOR_DIRECTION)|LINEAR_MOTOR_OFFSET|HOVER_(?:HEIGHT|EFFICIENCY|TIMESCALE)|BUOYANCY|(?:LINEAR|ANGULAR)_(?:DEFLECTION_(?:EFFICIENCY|TIMESCALE)|MOTOR_(?:DECAY_)?TIMESCALE)|VERTICAL_ATTRACTION_(?:EFFICIENCY|TIMESCALE)|BANKING_(?:EFFICIENCY|MIX|TIMESCALE)|FLAG_(?:NO_DEFLECTION_UP|LIMIT_(?:ROLL_ONLY|MOTOR_UP)|HOVER_(?:(?:WATER|TERRAIN|UP)_ONLY|GLOBAL_HEIGHT)|MOUSELOOK_(?:STEER|BANK)|CAMERA_DECOUPLED))|PRIM_(?:ALLOW_UNSIT|ALPHA_MODE(?:_(?:BLEND|EMISSIVE|MASK|NONE))?|NORMAL|SPECULAR|TYPE(?:_(?:BOX|CYLINDER|PRISM|SPHERE|TORUS|TUBE|RING|SCULPT))?|HOLE_(?:DEFAULT|CIRCLE|SQUARE|TRIANGLE)|MATERIAL(?:_(?:STONE|METAL|GLASS|WOOD|FLESH|PLASTIC|RUBBER))?|SHINY_(?:NONE|LOW|MEDIUM|HIGH)|BUMP_(?:NONE|BRIGHT|DARK|WOOD|BARK|BRICKS|CHECKER|CONCRETE|TILE|STONE|DISKS|GRAVEL|BLOBS|SIDING|LARGETILE|STUCCO|SUCTION|WEAVE)|TEXGEN_(?:DEFAULT|PLANAR)|SCRIPTED_SIT_ONLY|SCULPT_(?:TYPE_(?:SPHERE|TORUS|PLANE|CYLINDER|MASK)|FLAG_(?:MIRROR|INVERT))|PHYSICS(?:_(?:SHAPE_(?:CONVEX|NONE|PRIM|TYPE)))?|(?:POS|ROT)_LOCAL|SLICE|TEXT|FLEXIBLE|POINT_LIGHT|TEMP_ON_REZ|PHANTOM|POSITION|SIT_TARGET|SIZE|ROTATION|TEXTURE|NAME|OMEGA|DESC|LINK_TARGET|COLOR|BUMP_SHINY|FULLBRIGHT|TEXGEN|GLOW|MEDIA_(?:ALT_IMAGE_ENABLE|CONTROLS|(?:CURRENT|HOME)_URL|AUTO_(?:LOOP|PLAY|SCALE|ZOOM)|FIRST_CLICK_INTERACT|(?:WIDTH|HEIGHT)_PIXELS|WHITELIST(?:_ENABLE)?|PERMS_(?:INTERACT|CONTROL)|PARAM_MAX|CONTROLS_(?:STANDARD|MINI)|PERM_(?:NONE|OWNER|GROUP|ANYONE)|MAX_(?:URL_LENGTH|WHITELIST_(?:SIZE|COUNT)|(?:WIDTH|HEIGHT)_PIXELS)))|MASK_(?:BASE|OWNER|GROUP|EVERYONE|NEXT)|PERM_(?:TRANSFER|MODIFY|COPY|MOVE|ALL)|PARCEL_(?:MEDIA_COMMAND_(?:STOP|PAUSE|PLAY|LOOP|TEXTURE|URL|TIME|AGENT|UNLOAD|AUTO_ALIGN|TYPE|SIZE|DESC|LOOP_SET)|FLAG_(?:ALLOW_(?:FLY|(?:GROUP_)?SCRIPTS|LANDMARK|TERRAFORM|DAMAGE|CREATE_(?:GROUP_)?OBJECTS)|USE_(?:ACCESS_(?:GROUP|LIST)|BAN_LIST|LAND_PASS_LIST)|LOCAL_SOUND_ONLY|RESTRICT_PUSHOBJECT|ALLOW_(?:GROUP|ALL)_OBJECT_ENTRY)|COUNT_(?:TOTAL|OWNER|GROUP|OTHER|SELECTED|TEMP)|DETAILS_(?:NAME|DESC|OWNER|GROUP|AREA|ID|SEE_AVATARS))|LIST_STAT_(?:MAX|MIN|MEAN|MEDIAN|STD_DEV|SUM(?:_SQUARES)?|NUM_COUNT|GEOMETRIC_MEAN|RANGE)|PAY_(?:HIDE|DEFAULT)|REGION_FLAG_(?:ALLOW_DAMAGE|FIXED_SUN|BLOCK_TERRAFORM|SANDBOX|DISABLE_(?:COLLISIONS|PHYSICS)|BLOCK_FLY|ALLOW_DIRECT_TELEPORT|RESTRICT_PUSHOBJECT)|HTTP_(?:METHOD|MIMETYPE|BODY_(?:MAXLENGTH|TRUNCATED)|CUSTOM_HEADER|PRAGMA_NO_CACHE|VERBOSE_THROTTLE|VERIFY_CERT)|SIT_(?:INVALID_(?:AGENT|LINK_OBJECT)|NO(?:T_EXPERIENCE|_(?:ACCESS|EXPERIENCE_PERMISSION|SIT_TARGET)))|STRING_(?:TRIM(?:_(?:HEAD|TAIL))?)|CLICK_ACTION_(?:NONE|TOUCH|SIT|BUY|PAY|OPEN(?:_MEDIA)?|PLAY|ZOOM)|TOUCH_INVALID_FACE|PROFILE_(?:NONE|SCRIPT_MEMORY)|RC_(?:DATA_FLAGS|DETECT_PHANTOM|GET_(?:LINK_NUM|NORMAL|ROOT_KEY)|MAX_HITS|REJECT_(?:TYPES|AGENTS|(?:NON)?PHYSICAL|LAND))|RCERR_(?:CAST_TIME_EXCEEDED|SIM_PERF_LOW|UNKNOWN)|ESTATE_ACCESS_(?:ALLOWED_(?:AGENT|GROUP)_(?:ADD|REMOVE)|BANNED_AGENT_(?:ADD|REMOVE))|DENSITY|FRICTION|RESTITUTION|GRAVITY_MULTIPLIER|KFM_(?:COMMAND|CMD_(?:PLAY|STOP|PAUSE)|MODE|FORWARD|LOOP|PING_PONG|REVERSE|DATA|ROTATION|TRANSLATION)|ERR_(?:GENERIC|PARCEL_PERMISSIONS|MALFORMED_PARAMS|RUNTIME_PERMISSIONS|THROTTLED)|CHARACTER_(?:CMD_(?:(?:SMOOTH_)?STOP|JUMP)|DESIRED_(?:TURN_)?SPEED|RADIUS|STAY_WITHIN_PARCEL|LENGTH|ORIENTATION|ACCOUNT_FOR_SKIPPED_FRAMES|AVOIDANCE_MODE|TYPE(?:_(?:[ABCD]|NONE))?|MAX_(?:DECEL|TURN_RADIUS|(?:ACCEL|SPEED)))|PURSUIT_(?:OFFSET|FUZZ_FACTOR|GOAL_TOLERANCE|INTERCEPT)|REQUIRE_LINE_OF_SIGHT|FORCE_DIRECT_PATH|VERTICAL|HORIZONTAL|AVOID_(?:CHARACTERS|DYNAMIC_OBSTACLES|NONE)|PU_(?:EVADE_(?:HIDDEN|SPOTTED)|FAILURE_(?:DYNAMIC_PATHFINDING_DISABLED|INVALID_(?:GOAL|START)|NO_(?:NAVMESH|VALID_DESTINATION)|OTHER|TARGET_GONE|(?:PARCEL_)?UNREACHABLE)|(?:GOAL|SLOWDOWN_DISTANCE)_REACHED)|TRAVERSAL_TYPE(?:_(?:FAST|NONE|SLOW))?|CONTENT_TYPE_(?:ATOM|FORM|HTML|JSON|LLSD|RSS|TEXT|XHTML|XML)|GCNP_(?:RADIUS|STATIC)|(?:PATROL|WANDER)_PAUSE_AT_WAYPOINTS|OPT_(?:AVATAR|CHARACTER|EXCLUSION_VOLUME|LEGACY_LINKSET|MATERIAL_VOLUME|OTHER|STATIC_OBSTACLE|WALKABLE)|SIM_STAT_PCT_CHARS_STEPPED)\\b"},{begin:"\\b(?:FALSE|TRUE)\\b"},{begin:"\\b(?:ZERO_ROTATION)\\b"},{begin:"\\b(?:EOF|JSON_(?:ARRAY|DELETE|FALSE|INVALID|NULL|NUMBER|OBJECT|STRING|TRUE)|NULL_KEY|TEXTURE_(?:BLANK|DEFAULT|MEDIA|PLYWOOD|TRANSPARENT)|URL_REQUEST_(?:GRANTED|DENIED))\\b"},{begin:"\\b(?:ZERO_VECTOR|TOUCH_INVALID_(?:TEXCOORD|VECTOR))\\b"}]};var LSL_FUNCTIONS={className:"built_in",begin:"\\b(?:ll(?:AgentInExperience|(?:Create|DataSize|Delete|KeyCount|Keys|Read|Update)KeyValue|GetExperience(?:Details|ErrorMessage)|ReturnObjectsBy(?:ID|Owner)|Json(?:2List|[GS]etValue|ValueType)|Sin|Cos|Tan|Atan2|Sqrt|Pow|Abs|Fabs|Frand|Floor|Ceil|Round|Vec(?:Mag|Norm|Dist)|Rot(?:Between|2(?:Euler|Fwd|Left|Up))|(?:Euler|Axes)2Rot|Whisper|(?:Region|Owner)?Say|Shout|Listen(?:Control|Remove)?|Sensor(?:Repeat|Remove)?|Detected(?:Name|Key|Owner|Type|Pos|Vel|Grab|Rot|Group|LinkNumber)|Die|Ground|Wind|(?:[GS]et)(?:AnimationOverride|MemoryLimit|PrimMediaParams|ParcelMusicURL|Object(?:Desc|Name)|PhysicsMaterial|Status|Scale|Color|Alpha|Texture|Pos|Rot|Force|Torque)|ResetAnimationOverride|(?:Scale|Offset|Rotate)Texture|(?:Rot)?Target(?:Remove)?|(?:Stop)?MoveToTarget|Apply(?:Rotational)?Impulse|Set(?:KeyframedMotion|ContentType|RegionPos|(?:Angular)?Velocity|Buoyancy|HoverHeight|ForceAndTorque|TimerEvent|ScriptState|Damage|TextureAnim|Sound(?:Queueing|Radius)|Vehicle(?:Type|(?:Float|Vector|Rotation)Param)|(?:Touch|Sit)?Text|Camera(?:Eye|At)Offset|PrimitiveParams|ClickAction|Link(?:Alpha|Color|PrimitiveParams(?:Fast)?|Texture(?:Anim)?|Camera|Media)|RemoteScriptAccessPin|PayPrice|LocalRot)|ScaleByFactor|Get(?:(?:Max|Min)ScaleFactor|ClosestNavPoint|StaticPath|SimStats|Env|PrimitiveParams|Link(?:PrimitiveParams|Number(?:OfSides)?|Key|Name|Media)|HTTPHeader|FreeURLs|Object(?:Details|PermMask|PrimCount)|Parcel(?:MaxPrims|Details|Prim(?:Count|Owners))|Attached(?:List)?|(?:SPMax|Free|Used)Memory|Region(?:Name|TimeDilation|FPS|Corner|AgentCount)|Root(?:Position|Rotation)|UnixTime|(?:Parcel|Region)Flags|(?:Wall|GMT)clock|SimulatorHostname|BoundingBox|GeometricCenter|Creator|NumberOf(?:Prims|NotecardLines|Sides)|Animation(?:List)?|(?:Camera|Local)(?:Pos|Rot)|Vel|Accel|Omega|Time(?:stamp|OfDay)|(?:Object|CenterOf)?Mass|MassMKS|Energy|Owner|(?:Owner)?Key|SunDirection|Texture(?:Offset|Scale|Rot)|Inventory(?:Number|Name|Key|Type|Creator|PermMask)|Permissions(?:Key)?|StartParameter|List(?:Length|EntryType)|Date|Agent(?:Size|Info|Language|List)|LandOwnerAt|NotecardLine|Script(?:Name|State))|(?:Get|Reset|GetAndReset)Time|PlaySound(?:Slave)?|LoopSound(?:Master|Slave)?|(?:Trigger|Stop|Preload)Sound|(?:(?:Get|Delete)Sub|Insert)String|To(?:Upper|Lower)|Give(?:InventoryList|Money)|RezObject|(?:Stop)?LookAt|Sleep|CollisionFilter|(?:Take|Release)Controls|DetachFromAvatar|AttachToAvatar(?:Temp)?|InstantMessage|(?:GetNext)?Email|StopHover|MinEventDelay|RotLookAt|String(?:Length|Trim)|(?:Start|Stop)Animation|TargetOmega|Request(?:Experience)?Permissions|(?:Create|Break)Link|BreakAllLinks|(?:Give|Remove)Inventory|Water|PassTouches|Request(?:Agent|Inventory)Data|TeleportAgent(?:Home|GlobalCoords)?|ModifyLand|CollisionSound|ResetScript|MessageLinked|PushObject|PassCollisions|AxisAngle2Rot|Rot2(?:Axis|Angle)|A(?:cos|sin)|AngleBetween|AllowInventoryDrop|SubStringIndex|List2(?:CSV|Integer|Json|Float|String|Key|Vector|Rot|List(?:Strided)?)|DeleteSubList|List(?:Statistics|Sort|Randomize|(?:Insert|Find|Replace)List)|EdgeOfWorld|AdjustSoundVolume|Key2Name|TriggerSoundLimited|EjectFromLand|(?:CSV|ParseString)2List|OverMyLand|SameGroup|UnSit|Ground(?:Slope|Normal|Contour)|GroundRepel|(?:Set|Remove)VehicleFlags|SitOnLink|(?:AvatarOn)?(?:Link)?SitTarget|Script(?:Danger|Profiler)|Dialog|VolumeDetect|ResetOtherScript|RemoteLoadScriptPin|(?:Open|Close)RemoteDataChannel|SendRemoteData|RemoteDataReply|(?:Integer|String)ToBase64|XorBase64|Log(?:10)?|Base64To(?:String|Integer)|ParseStringKeepNulls|RezAtRoot|RequestSimulatorData|ForceMouselook|(?:Load|Release|(?:E|Une)scape)URL|ParcelMedia(?:CommandList|Query)|ModPow|MapDestination|(?:RemoveFrom|AddTo|Reset)Land(?:Pass|Ban)List|(?:Set|Clear)CameraParams|HTTP(?:Request|Response)|TextBox|DetectedTouch(?:UV|Face|Pos|(?:N|Bin)ormal|ST)|(?:MD5|SHA1|DumpList2)String|Request(?:Secure)?URL|Clear(?:Prim|Link)Media|(?:Link)?ParticleSystem|(?:Get|Request)(?:Username|DisplayName)|RegionSayTo|CastRay|GenerateKey|TransferLindenDollars|ManageEstateAccess|(?:Create|Delete)Character|ExecCharacterCmd|Evade|FleeFrom|NavigateTo|PatrolPoints|Pursue|UpdateCharacter|WanderWithin))\\b"};return{illegal:":",contains:[LSL_STRINGS,{className:"comment",variants:[hljs.COMMENT("//","$"),hljs.COMMENT("/\\*","\\*/")],relevance:0},LSL_NUMBERS,{className:"section",variants:[{begin:"\\b(?:state|default)\\b"},{begin:"\\b(?:state_(?:entry|exit)|touch(?:_(?:start|end))?|(?:land_)?collision(?:_(?:start|end))?|timer|listen|(?:no_)?sensor|control|(?:not_)?at_(?:rot_)?target|money|email|experience_permissions(?:_denied)?|run_time_permissions|changed|attach|dataserver|moving_(?:start|end)|link_message|(?:on|object)_rez|remote_data|http_re(?:sponse|quest)|path_update|transaction_result)\\b"}]},LSL_FUNCTIONS,LSL_CONSTANTS,{className:"type",begin:"\\b(?:integer|float|string|key|vector|quaternion|rotation|list)\\b"}]}});hljs.registerLanguage("markdown",function(hljs){return{aliases:["md","mkdown","mkd"],contains:[{className:"section",variants:[{begin:"^#{1,6}",end:"$"},{begin:"^.+?\\n[=-]{2,}$"}]},{begin:"<",end:">",subLanguage:"xml",relevance:0},{className:"bullet",begin:"^\\s*([*+-]|(\\d+\\.))\\s+"},{className:"strong",begin:"[*_]{2}.+?[*_]{2}"},{className:"emphasis",variants:[{begin:"\\*.+?\\*"},{begin:"_.+?_",relevance:0}]},{className:"quote",begin:"^>\\s+",end:"$"},{className:"code",variants:[{begin:"^```\\w*\\s*$",end:"^```[ ]*$"},{begin:"`.+?`"},{begin:"^( {4}|\\t)",end:"$",relevance:0}]},{begin:"^[-\\*]{3,}",end:"$"},{begin:"\\[.+?\\][\\(\\[].*?[\\)\\]]",returnBegin:true,contains:[{className:"string",begin:"\\[",end:"\\]",excludeBegin:true,returnEnd:true,relevance:0},{className:"link",begin:"\\]\\(",end:"\\)",excludeBegin:true,excludeEnd:true},{className:"symbol",begin:"\\]\\[",end:"\\]",excludeBegin:true,excludeEnd:true}],relevance:10},{begin:/^\[[^\n]+\]:/,returnBegin:true,contains:[{className:"symbol",begin:/\[/,end:/\]/,excludeBegin:true,excludeEnd:true},{className:"link",begin:/:\s*/,end:/$/,excludeBegin:true}]}]}});hljs.registerLanguage("dart",function(hljs){var SUBST={className:"subst",variants:[{begin:"\\$[A-Za-z0-9_]+"}]};var BRACED_SUBST={className:"subst",variants:[{begin:"\\${",end:"}"}],keywords:"true false null this is new super"};var STRING={className:"string",variants:[{begin:"r'''",end:"'''"},{begin:'r"""',end:'"""'},{begin:"r'",end:"'",illegal:"\\n"},{begin:'r"',end:'"',illegal:"\\n"},{begin:"'''",end:"'''",contains:[hljs.BACKSLASH_ESCAPE,SUBST,BRACED_SUBST]},{begin:'"""',end:'"""',contains:[hljs.BACKSLASH_ESCAPE,SUBST,BRACED_SUBST]},{begin:"'",end:"'",illegal:"\\n",contains:[hljs.BACKSLASH_ESCAPE,SUBST,BRACED_SUBST]},{begin:'"',end:'"',illegal:"\\n",contains:[hljs.BACKSLASH_ESCAPE,SUBST,BRACED_SUBST]}]};BRACED_SUBST.contains=[hljs.C_NUMBER_MODE,STRING];var KEYWORDS={keyword:"abstract as assert async await break case catch class const continue covariant default deferred do "+"dynamic else enum export extends extension external factory false final finally for Function get hide if "+"implements import in inferface is library mixin new null on operator part rethrow return set show static "+"super switch sync this throw true try typedef var void while with yield",built_in:"Comparable DateTime Duration Function Iterable Iterator List Map Match Null Object Pattern RegExp Set "+"Stopwatch String StringBuffer StringSink Symbol Type Uri bool double dynamic int num print "+"Element ElementList document querySelector querySelectorAll window"};return{keywords:KEYWORDS,contains:[STRING,hljs.COMMENT("/\\*\\*","\\*/",{subLanguage:"markdown"}),hljs.COMMENT("///+\\s*","$",{contains:[{subLanguage:"markdown",begin:".",end:"$"}]}),hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,{className:"class",beginKeywords:"class interface",end:"{",excludeEnd:true,contains:[{beginKeywords:"extends implements"},hljs.UNDERSCORE_TITLE_MODE]},hljs.C_NUMBER_MODE,{className:"meta",begin:"@[A-Za-z]+"},{begin:"=>"}]}});hljs.registerLanguage("xml",function(hljs){var XML_IDENT_RE="[A-Za-z0-9\\._:-]+";var XML_ENTITIES={className:"symbol",begin:"&[a-z]+;|&#[0-9]+;|&#x[a-f0-9]+;"};var XML_META_KEYWORDS={begin:"\\s",contains:[{className:"meta-keyword",begin:"#?[a-z_][a-z1-9_-]+",illegal:"\\n"}]};var XML_META_PAR_KEYWORDS=hljs.inherit(XML_META_KEYWORDS,{begin:"\\(",end:"\\)"});var APOS_META_STRING_MODE=hljs.inherit(hljs.APOS_STRING_MODE,{className:"meta-string"});var QUOTE_META_STRING_MODE=hljs.inherit(hljs.QUOTE_STRING_MODE,{className:"meta-string"});var TAG_INTERNALS={endsWithParent:true,illegal:/</,relevance:0,contains:[{className:"attr",begin:XML_IDENT_RE,relevance:0},{begin:/=\s*/,relevance:0,contains:[{className:"string",endsParent:true,variants:[{begin:/"/,end:/"/,contains:[XML_ENTITIES]},{begin:/'/,end:/'/,contains:[XML_ENTITIES]},{begin:/[^\s"'=<>`]+/}]}]}]};return{aliases:["html","xhtml","rss","atom","xjb","xsd","xsl","plist","wsf","svg"],case_insensitive:true,contains:[{className:"meta",begin:"<![a-z]",end:">",relevance:10,contains:[XML_META_KEYWORDS,QUOTE_META_STRING_MODE,APOS_META_STRING_MODE,XML_META_PAR_KEYWORDS,{begin:"\\[",end:"\\]",contains:[{className:"meta",begin:"<![a-z]",end:">",contains:[XML_META_KEYWORDS,XML_META_PAR_KEYWORDS,QUOTE_META_STRING_MODE,APOS_META_STRING_MODE]}]}]},hljs.COMMENT("\x3c!--","--\x3e",{relevance:10}),{begin:"<\\!\\[CDATA\\[",end:"\\]\\]>",relevance:10},XML_ENTITIES,{className:"meta",begin:/<\?xml/,end:/\?>/,relevance:10},{begin:/<\?(php)?/,end:/\?>/,subLanguage:"php",contains:[{begin:"/\\*",end:"\\*/",skip:true},{begin:'b"',end:'"',skip:true},{begin:"b'",end:"'",skip:true},hljs.inherit(hljs.APOS_STRING_MODE,{illegal:null,className:null,contains:null,skip:true}),hljs.inherit(hljs.QUOTE_STRING_MODE,{illegal:null,className:null,contains:null,skip:true})]},{className:"tag",begin:"<style(?=\\s|>)",end:">",keywords:{name:"style"},contains:[TAG_INTERNALS],starts:{end:"</style>",returnEnd:true,subLanguage:["css","xml"]}},{className:"tag",begin:"<script(?=\\s|>)",end:">",keywords:{name:"script"},contains:[TAG_INTERNALS],starts:{end:"<\/script>",returnEnd:true,subLanguage:["actionscript","javascript","handlebars","xml"]}},{className:"tag",begin:"</?",end:"/?>",contains:[{className:"name",begin:/[^\/><\s]+/,relevance:0},TAG_INTERNALS]}]}});hljs.registerLanguage("parser3",function(hljs){var CURLY_SUBCOMMENT=hljs.COMMENT("{","}",{contains:["self"]});return{subLanguage:"xml",relevance:0,contains:[hljs.COMMENT("^#","$"),hljs.COMMENT("\\^rem{","}",{relevance:10,contains:[CURLY_SUBCOMMENT]}),{className:"meta",begin:"^@(?:BASE|USE|CLASS|OPTIONS)$",relevance:10},{className:"title",begin:"@[\\w\\-]+\\[[\\w^;\\-]*\\](?:\\[[\\w^;\\-]*\\])?(?:.*)$"},{className:"variable",begin:"\\$\\{?[\\w\\-\\.\\:]+\\}?"},{className:"keyword",begin:"\\^[\\w\\-\\.\\:]+"},{className:"number",begin:"\\^#[0-9a-fA-F]+"},hljs.C_NUMBER_MODE]}});hljs.registerLanguage("sql",function(hljs){var COMMENT_MODE=hljs.COMMENT("--","$");return{case_insensitive:true,illegal:/[<>{}*]/,contains:[{beginKeywords:"begin end start commit rollback savepoint lock alter create drop rename call "+"delete do handler insert load replace select truncate update set show pragma grant "+"merge describe use explain help declare prepare execute deallocate release "+"unlock purge reset change stop analyze cache flush optimize repair kill "+"install uninstall checksum restore check backup revoke comment values with",end:/;/,endsWithParent:true,lexemes:/[\w\.]+/,keywords:{keyword:"as abort abs absolute acc acce accep accept access accessed accessible account acos action activate add "+"addtime admin administer advanced advise aes_decrypt aes_encrypt after agent aggregate ali alia alias "+"all allocate allow alter always analyze ancillary and anti any anydata anydataset anyschema anytype apply "+"archive archived archivelog are as asc ascii asin assembly assertion associate asynchronous at atan "+"atn2 attr attri attrib attribu attribut attribute attributes audit authenticated authentication authid "+"authors auto autoallocate autodblink autoextend automatic availability avg backup badfile basicfile "+"before begin beginning benchmark between bfile bfile_base big bigfile bin binary_double binary_float "+"binlog bit_and bit_count bit_length bit_or bit_xor bitmap blob_base block blocksize body both bound "+"bucket buffer_cache buffer_pool build bulk by byte byteordermark bytes cache caching call calling cancel "+"capacity cascade cascaded case cast catalog category ceil ceiling chain change changed char_base "+"char_length character_length characters characterset charindex charset charsetform charsetid check "+"checksum checksum_agg child choose chr chunk class cleanup clear client clob clob_base clone close "+"cluster_id cluster_probability cluster_set clustering coalesce coercibility col collate collation "+"collect colu colum column column_value columns columns_updated comment commit compact compatibility "+"compiled complete composite_limit compound compress compute concat concat_ws concurrent confirm conn "+"connec connect connect_by_iscycle connect_by_isleaf connect_by_root connect_time connection "+"consider consistent constant constraint constraints constructor container content contents context "+"contributors controlfile conv convert convert_tz corr corr_k corr_s corresponding corruption cos cost "+"count count_big counted covar_pop covar_samp cpu_per_call cpu_per_session crc32 create creation "+"critical cross cube cume_dist curdate current current_date current_time current_timestamp current_user "+"cursor curtime customdatum cycle data database databases datafile datafiles datalength date_add "+"date_cache date_format date_sub dateadd datediff datefromparts datename datepart datetime2fromparts "+"day day_to_second dayname dayofmonth dayofweek dayofyear days db_role_change dbtimezone ddl deallocate "+"declare decode decompose decrement decrypt deduplicate def defa defau defaul default defaults "+"deferred defi defin define degrees delayed delegate delete delete_all delimited demand dense_rank "+"depth dequeue des_decrypt des_encrypt des_key_file desc descr descri describ describe descriptor "+"deterministic diagnostics difference dimension direct_load directory disable disable_all "+"disallow disassociate discardfile disconnect diskgroup distinct distinctrow distribute distributed div "+"do document domain dotnet double downgrade drop dumpfile duplicate duration each edition editionable "+"editions element ellipsis else elsif elt empty enable enable_all enclosed encode encoding encrypt "+"end end-exec endian enforced engine engines enqueue enterprise entityescaping eomonth error errors "+"escaped evalname evaluate event eventdata events except exception exceptions exchange exclude excluding "+"execu execut execute exempt exists exit exp expire explain explode export export_set extended extent external "+"external_1 external_2 externally extract failed failed_login_attempts failover failure far fast "+"feature_set feature_value fetch field fields file file_name_convert filesystem_like_logging final "+"finish first first_value fixed flash_cache flashback floor flush following follows for forall force foreign "+"form forma format found found_rows freelist freelists freepools fresh from from_base64 from_days "+"ftp full function general generated get get_format get_lock getdate getutcdate global global_name "+"globally go goto grant grants greatest group group_concat group_id grouping grouping_id groups "+"gtid_subtract guarantee guard handler hash hashkeys having hea head headi headin heading heap help hex "+"hierarchy high high_priority hosts hour hours http id ident_current ident_incr ident_seed identified "+"identity idle_time if ifnull ignore iif ilike ilm immediate import in include including increment "+"index indexes indexing indextype indicator indices inet6_aton inet6_ntoa inet_aton inet_ntoa infile "+"initial initialized initially initrans inmemory inner innodb input insert install instance instantiable "+"instr interface interleaved intersect into invalidate invisible is is_free_lock is_ipv4 is_ipv4_compat "+"is_not is_not_null is_used_lock isdate isnull isolation iterate java join json json_exists "+"keep keep_duplicates key keys kill language large last last_day last_insert_id last_value lateral lax lcase "+"lead leading least leaves left len lenght length less level levels library like like2 like4 likec limit "+"lines link list listagg little ln load load_file lob lobs local localtime localtimestamp locate "+"locator lock locked log log10 log2 logfile logfiles logging logical logical_reads_per_call "+"logoff logon logs long loop low low_priority lower lpad lrtrim ltrim main make_set makedate maketime "+"managed management manual map mapping mask master master_pos_wait match matched materialized max "+"maxextents maximize maxinstances maxlen maxlogfiles maxloghistory maxlogmembers maxsize maxtrans "+"md5 measures median medium member memcompress memory merge microsecond mid migration min minextents "+"minimum mining minus minute minutes minvalue missing mod mode model modification modify module monitoring month "+"months mount move movement multiset mutex name name_const names nan national native natural nav nchar "+"nclob nested never new newline next nextval no no_write_to_binlog noarchivelog noaudit nobadfile "+"nocheck nocompress nocopy nocycle nodelay nodiscardfile noentityescaping noguarantee nokeep nologfile "+"nomapping nomaxvalue nominimize nominvalue nomonitoring none noneditionable nonschema noorder "+"nopr nopro noprom nopromp noprompt norely noresetlogs noreverse normal norowdependencies noschemacheck "+"noswitch not nothing notice notnull notrim novalidate now nowait nth_value nullif nulls num numb numbe "+"nvarchar nvarchar2 object ocicoll ocidate ocidatetime ociduration ociinterval ociloblocator ocinumber "+"ociref ocirefcursor ocirowid ocistring ocitype oct octet_length of off offline offset oid oidindex old "+"on online only opaque open operations operator optimal optimize option optionally or oracle oracle_date "+"oradata ord ordaudio orddicom orddoc order ordimage ordinality ordvideo organization orlany orlvary "+"out outer outfile outline output over overflow overriding package pad parallel parallel_enable "+"parameters parent parse partial partition partitions pascal passing password password_grace_time "+"password_lock_time password_reuse_max password_reuse_time password_verify_function patch path patindex "+"pctincrease pctthreshold pctused pctversion percent percent_rank percentile_cont percentile_disc "+"performance period period_add period_diff permanent physical pi pipe pipelined pivot pluggable plugin "+"policy position post_transaction pow power pragma prebuilt precedes preceding precision prediction "+"prediction_cost prediction_details prediction_probability prediction_set prepare present preserve "+"prior priority private private_sga privileges procedural procedure procedure_analyze processlist "+"profiles project prompt protection public publishingservername purge quarter query quick quiesce quota "+"quotename radians raise rand range rank raw read reads readsize rebuild record records "+"recover recovery recursive recycle redo reduced ref reference referenced references referencing refresh "+"regexp_like register regr_avgx regr_avgy regr_count regr_intercept regr_r2 regr_slope regr_sxx regr_sxy "+"reject rekey relational relative relaylog release release_lock relies_on relocate rely rem remainder rename "+"repair repeat replace replicate replication required reset resetlogs resize resource respect restore "+"restricted result result_cache resumable resume retention return returning returns reuse reverse revoke "+"right rlike role roles rollback rolling rollup round row row_count rowdependencies rowid rownum rows "+"rtrim rules safe salt sample save savepoint sb1 sb2 sb4 scan schema schemacheck scn scope scroll "+"sdo_georaster sdo_topo_geometry search sec_to_time second seconds section securefile security seed segment select "+"self semi sequence sequential serializable server servererror session session_user sessions_per_user set "+"sets settings sha sha1 sha2 share shared shared_pool short show shrink shutdown si_averagecolor "+"si_colorhistogram si_featurelist si_positionalcolor si_stillimage si_texture siblings sid sign sin "+"size size_t sizes skip slave sleep smalldatetimefromparts smallfile snapshot some soname sort soundex "+"source space sparse spfile split sql sql_big_result sql_buffer_result sql_cache sql_calc_found_rows "+"sql_small_result sql_variant_property sqlcode sqldata sqlerror sqlname sqlstate sqrt square standalone "+"standby start starting startup statement static statistics stats_binomial_test stats_crosstab "+"stats_ks_test stats_mode stats_mw_test stats_one_way_anova stats_t_test_ stats_t_test_indep "+"stats_t_test_one stats_t_test_paired stats_wsr_test status std stddev stddev_pop stddev_samp stdev "+"stop storage store stored str str_to_date straight_join strcmp strict string struct stuff style subdate "+"subpartition subpartitions substitutable substr substring subtime subtring_index subtype success sum "+"suspend switch switchoffset switchover sync synchronous synonym sys sys_xmlagg sysasm sysaux sysdate "+"sysdatetimeoffset sysdba sysoper system system_user sysutcdatetime table tables tablespace tablesample tan tdo "+"template temporary terminated tertiary_weights test than then thread through tier ties time time_format "+"time_zone timediff timefromparts timeout timestamp timestampadd timestampdiff timezone_abbr "+"timezone_minute timezone_region to to_base64 to_date to_days to_seconds todatetimeoffset trace tracking "+"transaction transactional translate translation treat trigger trigger_nestlevel triggers trim truncate "+"try_cast try_convert try_parse type ub1 ub2 ub4 ucase unarchived unbounded uncompress "+"under undo unhex unicode uniform uninstall union unique unix_timestamp unknown unlimited unlock unnest unpivot "+"unrecoverable unsafe unsigned until untrusted unusable unused update updated upgrade upped upper upsert "+"url urowid usable usage use use_stored_outlines user user_data user_resources users using utc_date "+"utc_timestamp uuid uuid_short validate validate_password_strength validation valist value values var "+"var_samp varcharc vari varia variab variabl variable variables variance varp varraw varrawc varray "+"verify version versions view virtual visible void wait wallet warning warnings week weekday weekofyear "+"wellformed when whene whenev wheneve whenever where while whitespace window with within without work wrapped "+"xdb xml xmlagg xmlattributes xmlcast xmlcolattval xmlelement xmlexists xmlforest xmlindex xmlnamespaces "+"xmlpi xmlquery xmlroot xmlschema xmlserialize xmltable xmltype xor year year_to_month years yearweek",literal:"true false null unknown",built_in:"array bigint binary bit blob bool boolean char character date dec decimal float int int8 integer interval number "+"numeric real record serial serial8 smallint text time timestamp tinyint varchar varchar2 varying void"},contains:[{className:"string",begin:"'",end:"'",contains:[{begin:"''"}]},{className:"string",begin:'"',end:'"',contains:[{begin:'""'}]},{className:"string",begin:"`",end:"`"},hljs.C_NUMBER_MODE,hljs.C_BLOCK_COMMENT_MODE,COMMENT_MODE,hljs.HASH_COMMENT_MODE]},hljs.C_BLOCK_COMMENT_MODE,COMMENT_MODE,hljs.HASH_COMMENT_MODE]}});hljs.registerLanguage("perl",function(hljs){var PERL_KEYWORDS="getpwent getservent quotemeta msgrcv scalar kill dbmclose undef lc "+"ma syswrite tr send umask sysopen shmwrite vec qx utime local oct semctl localtime "+"readpipe do return format read sprintf dbmopen pop getpgrp not getpwnam rewinddir qq"+"fileno qw endprotoent wait sethostent bless s|0 opendir continue each sleep endgrent "+"shutdown dump chomp connect getsockname die socketpair close flock exists index shmget"+"sub for endpwent redo lstat msgctl setpgrp abs exit select print ref gethostbyaddr "+"unshift fcntl syscall goto getnetbyaddr join gmtime symlink semget splice x|0 "+"getpeername recv log setsockopt cos last reverse gethostbyname getgrnam study formline "+"endhostent times chop length gethostent getnetent pack getprotoent getservbyname rand "+"mkdir pos chmod y|0 substr endnetent printf next open msgsnd readdir use unlink "+"getsockopt getpriority rindex wantarray hex system getservbyport endservent int chr "+"untie rmdir prototype tell listen fork shmread ucfirst setprotoent else sysseek link "+"getgrgid shmctl waitpid unpack getnetbyname reset chdir grep split require caller "+"lcfirst until warn while values shift telldir getpwuid my getprotobynumber delete and "+"sort uc defined srand accept package seekdir getprotobyname semop our rename seek if q|0 "+"chroot sysread setpwent no crypt getc chown sqrt write setnetent setpriority foreach "+"tie sin msgget map stat getlogin unless elsif truncate exec keys glob tied closedir"+"ioctl socket readlink eval xor readline binmode setservent eof ord bind alarm pipe "+"atan2 getgrent exp time push setgrent gt lt or ne m|0 break given say state when";var SUBST={className:"subst",begin:"[$@]\\{",end:"\\}",keywords:PERL_KEYWORDS};var METHOD={begin:"->{",end:"}"};var VAR={variants:[{begin:/\$\d/},{begin:/[\$%@](\^\w\b|#\w+(::\w+)*|{\w+}|\w+(::\w*)*)/},{begin:/[\$%@][^\s\w{]/,relevance:0}]};var STRING_CONTAINS=[hljs.BACKSLASH_ESCAPE,SUBST,VAR];var PERL_DEFAULT_CONTAINS=[VAR,hljs.HASH_COMMENT_MODE,hljs.COMMENT("^\\=\\w","\\=cut",{endsWithParent:true}),METHOD,{className:"string",contains:STRING_CONTAINS,variants:[{begin:"q[qwxr]?\\s*\\(",end:"\\)",relevance:5},{begin:"q[qwxr]?\\s*\\[",end:"\\]",relevance:5},{begin:"q[qwxr]?\\s*\\{",end:"\\}",relevance:5},{begin:"q[qwxr]?\\s*\\|",end:"\\|",relevance:5},{begin:"q[qwxr]?\\s*\\<",end:"\\>",relevance:5},{begin:"qw\\s+q",end:"q",relevance:5},{begin:"'",end:"'",contains:[hljs.BACKSLASH_ESCAPE]},{begin:'"',end:'"'},{begin:"`",end:"`",contains:[hljs.BACKSLASH_ESCAPE]},{begin:"{\\w+}",contains:[],relevance:0},{begin:"-?\\w+\\s*\\=\\>",contains:[],relevance:0}]},{className:"number",begin:"(\\b0[0-7_]+)|(\\b0x[0-9a-fA-F_]+)|(\\b[1-9][0-9_]*(\\.[0-9_]+)?)|[0_]\\b",relevance:0},{begin:"(\\/\\/|"+hljs.RE_STARTERS_RE+"|\\b(split|return|print|reverse|grep)\\b)\\s*",keywords:"split return print reverse grep",relevance:0,contains:[hljs.HASH_COMMENT_MODE,{className:"regexp",begin:"(s|tr|y)/(\\\\.|[^/])*/(\\\\.|[^/])*/[a-z]*",relevance:10},{className:"regexp",begin:"(m|qr)?/",end:"/[a-z]*",contains:[hljs.BACKSLASH_ESCAPE],relevance:0}]},{className:"function",beginKeywords:"sub",end:"(\\s*\\(.*?\\))?[;{]",excludeEnd:true,relevance:5,contains:[hljs.TITLE_MODE]},{begin:"-\\w\\b",relevance:0},{begin:"^__DATA__$",end:"^__END__$",subLanguage:"mojolicious",contains:[{begin:"^@@.*",end:"$",className:"comment"}]}];SUBST.contains=PERL_DEFAULT_CONTAINS;METHOD.contains=PERL_DEFAULT_CONTAINS;return{aliases:["pl","pm"],lexemes:/[\w\.]+/,keywords:PERL_KEYWORDS,contains:PERL_DEFAULT_CONTAINS}});hljs.registerLanguage("gauss",function(hljs){var KEYWORDS={keyword:"bool break call callexe checkinterrupt clear clearg closeall cls comlog compile "+"continue create debug declare delete disable dlibrary dllcall do dos ed edit else "+"elseif enable end endfor endif endp endo errorlog errorlogat expr external fn "+"for format goto gosub graph if keyword let lib library line load loadarray loadexe "+"loadf loadk loadm loadp loads loadx local locate loopnextindex lprint lpwidth lshow "+"matrix msym ndpclex new open output outwidth plot plotsym pop prcsn print "+"printdos proc push retp return rndcon rndmod rndmult rndseed run save saveall screen "+"scroll setarray show sparse stop string struct system trace trap threadfor "+"threadendfor threadbegin threadjoin threadstat threadend until use while winprint "+"ne ge le gt lt and xor or not eq eqv",built_in:"abs acf aconcat aeye amax amean AmericanBinomCall AmericanBinomCall_Greeks AmericanBinomCall_ImpVol "+"AmericanBinomPut AmericanBinomPut_Greeks AmericanBinomPut_ImpVol AmericanBSCall AmericanBSCall_Greeks "+"AmericanBSCall_ImpVol AmericanBSPut AmericanBSPut_Greeks AmericanBSPut_ImpVol amin amult annotationGetDefaults "+"annotationSetBkd annotationSetFont annotationSetLineColor annotationSetLineStyle annotationSetLineThickness "+"annualTradingDays arccos arcsin areshape arrayalloc arrayindex arrayinit arraytomat asciiload asclabel astd "+"astds asum atan atan2 atranspose axmargin balance band bandchol bandcholsol bandltsol bandrv bandsolpd bar "+"base10 begwind besselj bessely beta box boxcox cdfBeta cdfBetaInv cdfBinomial cdfBinomialInv cdfBvn cdfBvn2 "+"cdfBvn2e cdfCauchy cdfCauchyInv cdfChic cdfChii cdfChinc cdfChincInv cdfExp cdfExpInv cdfFc cdfFnc cdfFncInv "+"cdfGam cdfGenPareto cdfHyperGeo cdfLaplace cdfLaplaceInv cdfLogistic cdfLogisticInv cdfmControlCreate cdfMvn "+"cdfMvn2e cdfMvnce cdfMvne cdfMvt2e cdfMvtce cdfMvte cdfN cdfN2 cdfNc cdfNegBinomial cdfNegBinomialInv cdfNi "+"cdfPoisson cdfPoissonInv cdfRayleigh cdfRayleighInv cdfTc cdfTci cdfTnc cdfTvn cdfWeibull cdfWeibullInv cdir "+"ceil ChangeDir chdir chiBarSquare chol choldn cholsol cholup chrs close code cols colsf combinate combinated "+"complex con cond conj cons ConScore contour conv convertsatostr convertstrtosa corrm corrms corrvc corrx corrxs "+"cos cosh counts countwts crossprd crout croutp csrcol csrlin csvReadM csvReadSA cumprodc cumsumc curve cvtos "+"datacreate datacreatecomplex datalist dataload dataloop dataopen datasave date datestr datestring datestrymd "+"dayinyr dayofweek dbAddDatabase dbClose dbCommit dbCreateQuery dbExecQuery dbGetConnectOptions dbGetDatabaseName "+"dbGetDriverName dbGetDrivers dbGetHostName dbGetLastErrorNum dbGetLastErrorText dbGetNumericalPrecPolicy "+"dbGetPassword dbGetPort dbGetTableHeaders dbGetTables dbGetUserName dbHasFeature dbIsDriverAvailable dbIsOpen "+"dbIsOpenError dbOpen dbQueryBindValue dbQueryClear dbQueryCols dbQueryExecPrepared dbQueryFetchAllM dbQueryFetchAllSA "+"dbQueryFetchOneM dbQueryFetchOneSA dbQueryFinish dbQueryGetBoundValue dbQueryGetBoundValues dbQueryGetField "+"dbQueryGetLastErrorNum dbQueryGetLastErrorText dbQueryGetLastInsertID dbQueryGetLastQuery dbQueryGetPosition "+"dbQueryIsActive dbQueryIsForwardOnly dbQueryIsNull dbQueryIsSelect dbQueryIsValid dbQueryPrepare dbQueryRows "+"dbQuerySeek dbQuerySeekFirst dbQuerySeekLast dbQuerySeekNext dbQuerySeekPrevious dbQuerySetForwardOnly "+"dbRemoveDatabase dbRollback dbSetConnectOptions dbSetDatabaseName dbSetHostName dbSetNumericalPrecPolicy "+"dbSetPort dbSetUserName dbTransaction DeleteFile delif delrows denseToSp denseToSpRE denToZero design det detl "+"dfft dffti diag diagrv digamma doswin DOSWinCloseall DOSWinOpen dotfeq dotfeqmt dotfge dotfgemt dotfgt dotfgtmt "+"dotfle dotflemt dotflt dotfltmt dotfne dotfnemt draw drop dsCreate dstat dstatmt dstatmtControlCreate dtdate dtday "+"dttime dttodtv dttostr dttoutc dtvnormal dtvtodt dtvtoutc dummy dummybr dummydn eig eigh eighv eigv elapsedTradingDays "+"endwind envget eof eqSolve eqSolvemt eqSolvemtControlCreate eqSolvemtOutCreate eqSolveset erf erfc erfccplx erfcplx error "+"etdays ethsec etstr EuropeanBinomCall EuropeanBinomCall_Greeks EuropeanBinomCall_ImpVol EuropeanBinomPut "+"EuropeanBinomPut_Greeks EuropeanBinomPut_ImpVol EuropeanBSCall EuropeanBSCall_Greeks EuropeanBSCall_ImpVol "+"EuropeanBSPut EuropeanBSPut_Greeks EuropeanBSPut_ImpVol exctsmpl exec execbg exp extern eye fcheckerr fclearerr feq "+"feqmt fflush fft ffti fftm fftmi fftn fge fgemt fgets fgetsa fgetsat fgetst fgt fgtmt fileinfo filesa fle flemt "+"floor flt fltmt fmod fne fnemt fonts fopen formatcv formatnv fputs fputst fseek fstrerror ftell ftocv ftos ftostrC "+"gamma gammacplx gammaii gausset gdaAppend gdaCreate gdaDStat gdaDStatMat gdaGetIndex gdaGetName gdaGetNames gdaGetOrders "+"gdaGetType gdaGetTypes gdaGetVarInfo gdaIsCplx gdaLoad gdaPack gdaRead gdaReadByIndex gdaReadSome gdaReadSparse "+"gdaReadStruct gdaReportVarInfo gdaSave gdaUpdate gdaUpdateAndPack gdaVars gdaWrite gdaWrite32 gdaWriteSome getarray "+"getdims getf getGAUSShome getmatrix getmatrix4D getname getnamef getNextTradingDay getNextWeekDay getnr getorders "+"getpath getPreviousTradingDay getPreviousWeekDay getRow getscalar3D getscalar4D getTrRow getwind glm gradcplx gradMT "+"gradMTm gradMTT gradMTTm gradp graphprt graphset hasimag header headermt hess hessMT hessMTg hessMTgw hessMTm "+"hessMTmw hessMTT hessMTTg hessMTTgw hessMTTm hessMTw hessp hist histf histp hsec imag indcv indexcat indices indices2 "+"indicesf indicesfn indnv indsav integrate1d integrateControlCreate intgrat2 intgrat3 inthp1 inthp2 inthp3 inthp4 "+"inthpControlCreate intquad1 intquad2 intquad3 intrleav intrleavsa intrsect intsimp inv invpd invswp iscplx iscplxf "+"isden isinfnanmiss ismiss key keyav keyw lag lag1 lagn lapEighb lapEighi lapEighvb lapEighvi lapgEig lapgEigh lapgEighv "+"lapgEigv lapgSchur lapgSvdcst lapgSvds lapgSvdst lapSvdcusv lapSvds lapSvdusv ldlp ldlsol linSolve listwise ln lncdfbvn "+"lncdfbvn2 lncdfmvn lncdfn lncdfn2 lncdfnc lnfact lngammacplx lnpdfmvn lnpdfmvt lnpdfn lnpdft loadd loadstruct loadwind "+"loess loessmt loessmtControlCreate log loglog logx logy lower lowmat lowmat1 ltrisol lu lusol machEpsilon make makevars "+"makewind margin matalloc matinit mattoarray maxbytes maxc maxindc maxv maxvec mbesselei mbesselei0 mbesselei1 mbesseli "+"mbesseli0 mbesseli1 meanc median mergeby mergevar minc minindc minv miss missex missrv moment momentd movingave "+"movingaveExpwgt movingaveWgt nextindex nextn nextnevn nextwind ntos null null1 numCombinations ols olsmt olsmtControlCreate "+"olsqr olsqr2 olsqrmt ones optn optnevn orth outtyp pacf packedToSp packr parse pause pdfCauchy pdfChi pdfExp pdfGenPareto "+"pdfHyperGeo pdfLaplace pdfLogistic pdfn pdfPoisson pdfRayleigh pdfWeibull pi pinv pinvmt plotAddArrow plotAddBar plotAddBox "+"plotAddHist plotAddHistF plotAddHistP plotAddPolar plotAddScatter plotAddShape plotAddTextbox plotAddTS plotAddXY plotArea "+"plotBar plotBox plotClearLayout plotContour plotCustomLayout plotGetDefaults plotHist plotHistF plotHistP plotLayout "+"plotLogLog plotLogX plotLogY plotOpenWindow plotPolar plotSave plotScatter plotSetAxesPen plotSetBar plotSetBarFill "+"plotSetBarStacked plotSetBkdColor plotSetFill plotSetGrid plotSetLegend plotSetLineColor plotSetLineStyle plotSetLineSymbol "+"plotSetLineThickness plotSetNewWindow plotSetTitle plotSetWhichYAxis plotSetXAxisShow plotSetXLabel plotSetXRange "+"plotSetXTicInterval plotSetXTicLabel plotSetYAxisShow plotSetYLabel plotSetYRange plotSetZAxisShow plotSetZLabel "+"plotSurface plotTS plotXY polar polychar polyeval polygamma polyint polymake polymat polymroot polymult polyroot "+"pqgwin previousindex princomp printfm printfmt prodc psi putarray putf putvals pvCreate pvGetIndex pvGetParNames "+"pvGetParVector pvLength pvList pvPack pvPacki pvPackm pvPackmi pvPacks pvPacksi pvPacksm pvPacksmi pvPutParVector "+"pvTest pvUnpack QNewton QNewtonmt QNewtonmtControlCreate QNewtonmtOutCreate QNewtonSet QProg QProgmt QProgmtInCreate "+"qqr qqre qqrep qr qre qrep qrsol qrtsol qtyr qtyre qtyrep quantile quantiled qyr qyre qyrep qz rank rankindx readr "+"real reclassify reclassifyCuts recode recserar recsercp recserrc rerun rescale reshape rets rev rfft rffti rfftip rfftn "+"rfftnp rfftp rndBernoulli rndBeta rndBinomial rndCauchy rndChiSquare rndCon rndCreateState rndExp rndGamma rndGeo rndGumbel "+"rndHyperGeo rndi rndKMbeta rndKMgam rndKMi rndKMn rndKMnb rndKMp rndKMu rndKMvm rndLaplace rndLCbeta rndLCgam rndLCi rndLCn "+"rndLCnb rndLCp rndLCu rndLCvm rndLogNorm rndMTu rndMVn rndMVt rndn rndnb rndNegBinomial rndp rndPoisson rndRayleigh "+"rndStateSkip rndu rndvm rndWeibull rndWishart rotater round rows rowsf rref sampleData satostrC saved saveStruct savewind "+"scale scale3d scalerr scalinfnanmiss scalmiss schtoc schur searchsourcepath seekr select selif seqa seqm setdif setdifsa "+"setvars setvwrmode setwind shell shiftr sin singleindex sinh sleep solpd sortc sortcc sortd sorthc sorthcc sortind "+"sortindc sortmc sortr sortrc spBiconjGradSol spChol spConjGradSol spCreate spDenseSubmat spDiagRvMat spEigv spEye spLDL "+"spline spLU spNumNZE spOnes spreadSheetReadM spreadSheetReadSA spreadSheetWrite spScale spSubmat spToDense spTrTDense "+"spTScalar spZeros sqpSolve sqpSolveMT sqpSolveMTControlCreate sqpSolveMTlagrangeCreate sqpSolveMToutCreate sqpSolveSet "+"sqrt statements stdc stdsc stocv stof strcombine strindx strlen strput strrindx strsect strsplit strsplitPad strtodt "+"strtof strtofcplx strtriml strtrimr strtrunc strtruncl strtruncpad strtruncr submat subscat substute subvec sumc sumr "+"surface svd svd1 svd2 svdcusv svds svdusv sysstate tab tan tanh tempname "+"time timedt timestr timeutc title tkf2eps tkf2ps tocart todaydt toeplitz token topolar trapchk "+"trigamma trimr trunc type typecv typef union unionsa uniqindx uniqindxsa unique uniquesa upmat upmat1 upper utctodt "+"utctodtv utrisol vals varCovMS varCovXS varget vargetl varmall varmares varput varputl vartypef vcm vcms vcx vcxs "+"vec vech vecr vector vget view viewxyz vlist vnamecv volume vput vread vtypecv wait waitc walkindex where window "+"writer xlabel xlsGetSheetCount xlsGetSheetSize xlsGetSheetTypes xlsMakeRange xlsReadM xlsReadSA xlsWrite xlsWriteM "+"xlsWriteSA xpnd xtics xy xyz ylabel ytics zeros zeta zlabel ztics cdfEmpirical dot h5create h5open h5read h5readAttribute "+"h5write h5writeAttribute ldl plotAddErrorBar plotAddSurface plotCDFEmpirical plotSetColormap plotSetContourLabels "+"plotSetLegendFont plotSetTextInterpreter plotSetXTicCount plotSetYTicCount plotSetZLevels powerm strjoin sylvester "+"strtrim",literal:"DB_AFTER_LAST_ROW DB_ALL_TABLES DB_BATCH_OPERATIONS DB_BEFORE_FIRST_ROW DB_BLOB DB_EVENT_NOTIFICATIONS "+"DB_FINISH_QUERY DB_HIGH_PRECISION DB_LAST_INSERT_ID DB_LOW_PRECISION_DOUBLE DB_LOW_PRECISION_INT32 "+"DB_LOW_PRECISION_INT64 DB_LOW_PRECISION_NUMBERS DB_MULTIPLE_RESULT_SETS DB_NAMED_PLACEHOLDERS "+"DB_POSITIONAL_PLACEHOLDERS DB_PREPARED_QUERIES DB_QUERY_SIZE DB_SIMPLE_LOCKING DB_SYSTEM_TABLES DB_TABLES "+"DB_TRANSACTIONS DB_UNICODE DB_VIEWS __STDIN __STDOUT __STDERR __FILE_DIR"};var AT_COMMENT_MODE=hljs.COMMENT("@","@");var PREPROCESSOR={className:"meta",begin:"#",end:"$",keywords:{"meta-keyword":"define definecs|10 undef ifdef ifndef iflight ifdllcall ifmac ifos2win ifunix else endif lineson linesoff srcfile srcline"},contains:[{begin:/\\\n/,relevance:0},{beginKeywords:"include",end:"$",keywords:{"meta-keyword":"include"},contains:[{className:"meta-string",begin:'"',end:'"',illegal:"\\n"}]},hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,AT_COMMENT_MODE]};var STRUCT_TYPE={begin:/\bstruct\s+/,end:/\s/,keywords:"struct",contains:[{className:"type",begin:hljs.UNDERSCORE_IDENT_RE,relevance:0}]};var PARSE_PARAMS=[{className:"params",begin:/\(/,end:/\)/,excludeBegin:true,excludeEnd:true,endsWithParent:true,relevance:0,contains:[{className:"literal",begin:/\.\.\./},hljs.C_NUMBER_MODE,hljs.C_BLOCK_COMMENT_MODE,AT_COMMENT_MODE,STRUCT_TYPE]}];var FUNCTION_DEF={className:"title",begin:hljs.UNDERSCORE_IDENT_RE,relevance:0};var DEFINITION=function(beginKeywords,end,inherits){var mode=hljs.inherit({className:"function",beginKeywords:beginKeywords,end:end,excludeEnd:true,contains:[].concat(PARSE_PARAMS)},inherits||{});mode.contains.push(FUNCTION_DEF);mode.contains.push(hljs.C_NUMBER_MODE);mode.contains.push(hljs.C_BLOCK_COMMENT_MODE);mode.contains.push(AT_COMMENT_MODE);return mode};var BUILT_IN_REF={className:"built_in",begin:"\\b("+KEYWORDS.built_in.split(" ").join("|")+")\\b"};var STRING_REF={className:"string",begin:'"',end:'"',contains:[hljs.BACKSLASH_ESCAPE],relevance:0};var FUNCTION_REF={begin:hljs.UNDERSCORE_IDENT_RE+"\\s*\\(",returnBegin:true,keywords:KEYWORDS,relevance:0,contains:[{beginKeywords:KEYWORDS.keyword},BUILT_IN_REF,{className:"built_in",begin:hljs.UNDERSCORE_IDENT_RE,relevance:0}]};var FUNCTION_REF_PARAMS={begin:/\(/,end:/\)/,relevance:0,keywords:{built_in:KEYWORDS.built_in,literal:KEYWORDS.literal},contains:[hljs.C_NUMBER_MODE,hljs.C_BLOCK_COMMENT_MODE,AT_COMMENT_MODE,BUILT_IN_REF,FUNCTION_REF,STRING_REF,"self"]};FUNCTION_REF.contains.push(FUNCTION_REF_PARAMS);return{aliases:["gss"],case_insensitive:true,keywords:KEYWORDS,illegal:/(\{[%#]|[%#]\}| <- )/,contains:[hljs.C_NUMBER_MODE,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,AT_COMMENT_MODE,STRING_REF,PREPROCESSOR,{className:"keyword",begin:/\bexternal (matrix|string|array|sparse matrix|struct|proc|keyword|fn)/},DEFINITION("proc keyword",";"),DEFINITION("fn","="),{beginKeywords:"for threadfor",end:/;/,relevance:0,contains:[hljs.C_BLOCK_COMMENT_MODE,AT_COMMENT_MODE,FUNCTION_REF_PARAMS]},{variants:[{begin:hljs.UNDERSCORE_IDENT_RE+"\\."+hljs.UNDERSCORE_IDENT_RE},{begin:hljs.UNDERSCORE_IDENT_RE+"\\s*="}],relevance:0},FUNCTION_REF,STRUCT_TYPE]}});hljs.registerLanguage("awk",function(hljs){var VARIABLE={className:"variable",variants:[{begin:/\$[\w\d#@][\w\d_]*/},{begin:/\$\{(.*?)}/}]};var KEYWORDS="BEGIN END if else while do for in break continue delete next nextfile function func exit|10";var STRING={className:"string",contains:[hljs.BACKSLASH_ESCAPE],variants:[{begin:/(u|b)?r?'''/,end:/'''/,relevance:10},{begin:/(u|b)?r?"""/,end:/"""/,relevance:10},{begin:/(u|r|ur)'/,end:/'/,relevance:10},{begin:/(u|r|ur)"/,end:/"/,relevance:10},{begin:/(b|br)'/,end:/'/},{begin:/(b|br)"/,end:/"/},hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE]};return{keywords:{keyword:KEYWORDS},contains:[VARIABLE,STRING,hljs.REGEXP_MODE,hljs.HASH_COMMENT_MODE,hljs.NUMBER_MODE]}});hljs.registerLanguage("yaml",function(hljs){var LITERALS="true false yes no null";var KEY={className:"attr",variants:[{begin:"\\w[\\w :\\/.-]*:(?=[ \t]|$)"},{begin:'"\\w[\\w :\\/.-]*":(?=[ \t]|$)'},{begin:"'\\w[\\w :\\/.-]*':(?=[ \t]|$)"}]};var TEMPLATE_VARIABLES={className:"template-variable",variants:[{begin:"{{",end:"}}"},{begin:"%{",end:"}"}]};var STRING={className:"string",relevance:0,variants:[{begin:/'/,end:/'/},{begin:/"/,end:/"/},{begin:/\S+/}],contains:[hljs.BACKSLASH_ESCAPE,TEMPLATE_VARIABLES]};return{case_insensitive:true,aliases:["yml","YAML","yaml"],contains:[KEY,{className:"meta",begin:"^---s*$",relevance:10},{className:"string",begin:"[\\|>]([0-9]?[+-])?[ ]*\\n( *)[\\S ]+\\n(\\2[\\S ]+\\n?)*"},{begin:"<%[%=-]?",end:"[%-]?%>",subLanguage:"ruby",excludeBegin:true,excludeEnd:true,relevance:0},{className:"type",begin:"!"+hljs.UNDERSCORE_IDENT_RE},{className:"type",begin:"!!"+hljs.UNDERSCORE_IDENT_RE},{className:"meta",begin:"&"+hljs.UNDERSCORE_IDENT_RE+"$"},{className:"meta",begin:"\\*"+hljs.UNDERSCORE_IDENT_RE+"$"},{className:"bullet",begin:"\\-(?=[ ]|$)",relevance:0},hljs.HASH_COMMENT_MODE,{beginKeywords:LITERALS,keywords:{literal:LITERALS}},{className:"number",begin:hljs.C_NUMBER_RE+"\\b"},STRING]}});hljs.registerLanguage("tap",function(hljs){return{case_insensitive:true,contains:[hljs.HASH_COMMENT_MODE,{className:"meta",variants:[{begin:"^TAP version (\\d+)$"},{begin:"^1\\.\\.(\\d+)$"}]},{begin:"(s+)?---$",end:"\\.\\.\\.$",subLanguage:"yaml",relevance:0},{className:"number",begin:" (\\d+) "},{className:"symbol",variants:[{begin:"^ok"},{begin:"^not ok"}]}]}});hljs.registerLanguage("rib",function(hljs){return{keywords:"ArchiveRecord AreaLightSource Atmosphere Attribute AttributeBegin AttributeEnd Basis "+"Begin Blobby Bound Clipping ClippingPlane Color ColorSamples ConcatTransform Cone "+"CoordinateSystem CoordSysTransform CropWindow Curves Cylinder DepthOfField Detail "+"DetailRange Disk Displacement Display End ErrorHandler Exposure Exterior Format "+"FrameAspectRatio FrameBegin FrameEnd GeneralPolygon GeometricApproximation Geometry "+"Hider Hyperboloid Identity Illuminate Imager Interior LightSource "+"MakeCubeFaceEnvironment MakeLatLongEnvironment MakeShadow MakeTexture Matte "+"MotionBegin MotionEnd NuPatch ObjectBegin ObjectEnd ObjectInstance Opacity Option "+"Orientation Paraboloid Patch PatchMesh Perspective PixelFilter PixelSamples "+"PixelVariance Points PointsGeneralPolygons PointsPolygons Polygon Procedural Projection "+"Quantize ReadArchive RelativeDetail ReverseOrientation Rotate Scale ScreenWindow "+"ShadingInterpolation ShadingRate Shutter Sides Skew SolidBegin SolidEnd Sphere "+"SubdivisionMesh Surface TextureCoordinates Torus Transform TransformBegin TransformEnd "+"TransformPoints Translate TrimCurve WorldBegin WorldEnd",illegal:"</",contains:[hljs.HASH_COMMENT_MODE,hljs.C_NUMBER_MODE,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE]}});hljs.registerLanguage("prolog",function(hljs){var ATOM={begin:/[a-z][A-Za-z0-9_]*/,relevance:0};var VAR={className:"symbol",variants:[{begin:/[A-Z][a-zA-Z0-9_]*/},{begin:/_[A-Za-z0-9_]*/}],relevance:0};var PARENTED={begin:/\(/,end:/\)/,relevance:0};var LIST={begin:/\[/,end:/\]/};var LINE_COMMENT={className:"comment",begin:/%/,end:/$/,contains:[hljs.PHRASAL_WORDS_MODE]};var BACKTICK_STRING={className:"string",begin:/`/,end:/`/,contains:[hljs.BACKSLASH_ESCAPE]};var CHAR_CODE={className:"string",begin:/0\'(\\\'|.)/};var SPACE_CODE={className:"string",begin:/0\'\\s/};var PRED_OP={begin:/:-/};var inner=[ATOM,VAR,PARENTED,PRED_OP,LIST,LINE_COMMENT,hljs.C_BLOCK_COMMENT_MODE,hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE,BACKTICK_STRING,CHAR_CODE,SPACE_CODE,hljs.C_NUMBER_MODE];PARENTED.contains=inner;LIST.contains=inner;return{contains:inner.concat([{begin:/\.$/}])}});hljs.registerLanguage("actionscript",function(hljs){var IDENT_RE="[a-zA-Z_$][a-zA-Z0-9_$]*";var IDENT_FUNC_RETURN_TYPE_RE="([*]|[a-zA-Z_$][a-zA-Z0-9_$]*)";var AS3_REST_ARG_MODE={className:"rest_arg",begin:"[.]{3}",end:IDENT_RE,relevance:10};return{aliases:["as"],keywords:{keyword:"as break case catch class const continue default delete do dynamic each "+"else extends final finally for function get if implements import in include "+"instanceof interface internal is namespace native new override package private "+"protected public return set static super switch this throw try typeof use var void "+"while with",literal:"true false null undefined"},contains:[hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.C_NUMBER_MODE,{className:"class",beginKeywords:"package",end:"{",contains:[hljs.TITLE_MODE]},{className:"class",beginKeywords:"class interface",end:"{",excludeEnd:true,contains:[{beginKeywords:"extends implements"},hljs.TITLE_MODE]},{className:"meta",beginKeywords:"import include",end:";",keywords:{"meta-keyword":"import include"}},{className:"function",beginKeywords:"function",end:"[{;]",excludeEnd:true,illegal:"\\S",contains:[hljs.TITLE_MODE,{className:"params",begin:"\\(",end:"\\)",contains:[hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,AS3_REST_ARG_MODE]},{begin:":\\s*"+IDENT_FUNC_RETURN_TYPE_RE}]},hljs.METHOD_GUARD],illegal:/#/}});hljs.registerLanguage("ebnf",function(hljs){var commentMode=hljs.COMMENT(/\(\*/,/\*\)/);var nonTerminalMode={className:"attribute",begin:/^[ ]*[a-zA-Z][a-zA-Z-_]*([\s-_]+[a-zA-Z][a-zA-Z]*)*/};var specialSequenceMode={className:"meta",begin:/\?.*\?/};var ruleBodyMode={begin:/=/,end:/[.;]/,contains:[commentMode,specialSequenceMode,{className:"string",variants:[hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,{begin:"`",end:"`"}]}]};return{illegal:/\S/,contains:[commentMode,nonTerminalMode,ruleBodyMode]}});hljs.registerLanguage("fix",function(hljs){return{contains:[{begin:/[^\u2401\u0001]+/,end:/[\u2401\u0001]/,excludeEnd:true,returnBegin:true,returnEnd:false,contains:[{begin:/([^\u2401\u0001=]+)/,end:/=([^\u2401\u0001=]+)/,returnEnd:true,returnBegin:false,className:"attr"},{begin:/=/,end:/([\u2401\u0001])/,excludeEnd:true,excludeBegin:true,className:"string"}]}],case_insensitive:true}});hljs.registerLanguage("bnf",function(hljs){return{contains:[{className:"attribute",begin:/</,end:/>/},{begin:/::=/,starts:{end:/$/,contains:[{begin:/</,end:/>/},hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE]}}]}});hljs.registerLanguage("isbl",function(hljs){var UNDERSCORE_IDENT_RE="[A-Za-zА-Яа-яёЁ_!][A-Za-zА-Яа-яёЁ_0-9]*";var FUNCTION_NAME_IDENT_RE="[A-Za-zА-Яа-яёЁ_][A-Za-zА-Яа-яёЁ_0-9]*";var KEYWORD="and и else иначе endexcept endfinally endforeach конецвсе endif конецесли endwhile конецпока "+"except exitfor finally foreach все if если in в not не or или try while пока ";var sysres_constants="SYSRES_CONST_ACCES_RIGHT_TYPE_EDIT "+"SYSRES_CONST_ACCES_RIGHT_TYPE_FULL "+"SYSRES_CONST_ACCES_RIGHT_TYPE_VIEW "+"SYSRES_CONST_ACCESS_MODE_REQUISITE_CODE "+"SYSRES_CONST_ACCESS_NO_ACCESS_VIEW "+"SYSRES_CONST_ACCESS_NO_ACCESS_VIEW_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_ADD_REQUISITE_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_ADD_REQUISITE_YES_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_CHANGE_REQUISITE_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_CHANGE_REQUISITE_YES_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_DELETE_REQUISITE_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_DELETE_REQUISITE_YES_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_EXECUTE_REQUISITE_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_EXECUTE_REQUISITE_YES_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_NO_ACCESS_REQUISITE_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_NO_ACCESS_REQUISITE_YES_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_RATIFY_REQUISITE_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_RATIFY_REQUISITE_YES_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_REQUISITE_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_VIEW "+"SYSRES_CONST_ACCESS_RIGHTS_VIEW_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_VIEW_REQUISITE_CODE "+"SYSRES_CONST_ACCESS_RIGHTS_VIEW_REQUISITE_YES_CODE "+"SYSRES_CONST_ACCESS_TYPE_CHANGE "+"SYSRES_CONST_ACCESS_TYPE_CHANGE_CODE "+"SYSRES_CONST_ACCESS_TYPE_EXISTS "+"SYSRES_CONST_ACCESS_TYPE_EXISTS_CODE "+"SYSRES_CONST_ACCESS_TYPE_FULL "+"SYSRES_CONST_ACCESS_TYPE_FULL_CODE "+"SYSRES_CONST_ACCESS_TYPE_VIEW "+"SYSRES_CONST_ACCESS_TYPE_VIEW_CODE "+"SYSRES_CONST_ACTION_TYPE_ABORT "+"SYSRES_CONST_ACTION_TYPE_ACCEPT "+"SYSRES_CONST_ACTION_TYPE_ACCESS_RIGHTS "+"SYSRES_CONST_ACTION_TYPE_ADD_ATTACHMENT "+"SYSRES_CONST_ACTION_TYPE_CHANGE_CARD "+"SYSRES_CONST_ACTION_TYPE_CHANGE_KIND "+"SYSRES_CONST_ACTION_TYPE_CHANGE_STORAGE "+"SYSRES_CONST_ACTION_TYPE_CONTINUE "+"SYSRES_CONST_ACTION_TYPE_COPY "+"SYSRES_CONST_ACTION_TYPE_CREATE "+"SYSRES_CONST_ACTION_TYPE_CREATE_VERSION "+"SYSRES_CONST_ACTION_TYPE_DELETE "+"SYSRES_CONST_ACTION_TYPE_DELETE_ATTACHMENT "+"SYSRES_CONST_ACTION_TYPE_DELETE_VERSION "+"SYSRES_CONST_ACTION_TYPE_DISABLE_DELEGATE_ACCESS_RIGHTS "+"SYSRES_CONST_ACTION_TYPE_ENABLE_DELEGATE_ACCESS_RIGHTS "+"SYSRES_CONST_ACTION_TYPE_ENCRYPTION_BY_CERTIFICATE "+"SYSRES_CONST_ACTION_TYPE_ENCRYPTION_BY_CERTIFICATE_AND_PASSWORD "+"SYSRES_CONST_ACTION_TYPE_ENCRYPTION_BY_PASSWORD "+"SYSRES_CONST_ACTION_TYPE_EXPORT_WITH_LOCK "+"SYSRES_CONST_ACTION_TYPE_EXPORT_WITHOUT_LOCK "+"SYSRES_CONST_ACTION_TYPE_IMPORT_WITH_UNLOCK "+"SYSRES_CONST_ACTION_TYPE_IMPORT_WITHOUT_UNLOCK "+"SYSRES_CONST_ACTION_TYPE_LIFE_CYCLE_STAGE "+"SYSRES_CONST_ACTION_TYPE_LOCK "+"SYSRES_CONST_ACTION_TYPE_LOCK_FOR_SERVER "+"SYSRES_CONST_ACTION_TYPE_LOCK_MODIFY "+"SYSRES_CONST_ACTION_TYPE_MARK_AS_READED "+"SYSRES_CONST_ACTION_TYPE_MARK_AS_UNREADED "+"SYSRES_CONST_ACTION_TYPE_MODIFY "+"SYSRES_CONST_ACTION_TYPE_MODIFY_CARD "+"SYSRES_CONST_ACTION_TYPE_MOVE_TO_ARCHIVE "+"SYSRES_CONST_ACTION_TYPE_OFF_ENCRYPTION "+"SYSRES_CONST_ACTION_TYPE_PASSWORD_CHANGE "+"SYSRES_CONST_ACTION_TYPE_PERFORM "+"SYSRES_CONST_ACTION_TYPE_RECOVER_FROM_LOCAL_COPY "+"SYSRES_CONST_ACTION_TYPE_RESTART "+"SYSRES_CONST_ACTION_TYPE_RESTORE_FROM_ARCHIVE "+"SYSRES_CONST_ACTION_TYPE_REVISION "+"SYSRES_CONST_ACTION_TYPE_SEND_BY_MAIL "+"SYSRES_CONST_ACTION_TYPE_SIGN "+"SYSRES_CONST_ACTION_TYPE_START "+"SYSRES_CONST_ACTION_TYPE_UNLOCK "+"SYSRES_CONST_ACTION_TYPE_UNLOCK_FROM_SERVER "+"SYSRES_CONST_ACTION_TYPE_VERSION_STATE "+"SYSRES_CONST_ACTION_TYPE_VERSION_VISIBILITY "+"SYSRES_CONST_ACTION_TYPE_VIEW "+"SYSRES_CONST_ACTION_TYPE_VIEW_SHADOW_COPY "+"SYSRES_CONST_ACTION_TYPE_WORKFLOW_DESCRIPTION_MODIFY "+"SYSRES_CONST_ACTION_TYPE_WRITE_HISTORY "+"SYSRES_CONST_ACTIVE_VERSION_STATE_PICK_VALUE "+"SYSRES_CONST_ADD_REFERENCE_MODE_NAME "+"SYSRES_CONST_ADDITION_REQUISITE_CODE "+"SYSRES_CONST_ADDITIONAL_PARAMS_REQUISITE_CODE "+"SYSRES_CONST_ADITIONAL_JOB_END_DATE_REQUISITE_NAME "+"SYSRES_CONST_ADITIONAL_JOB_READ_REQUISITE_NAME "+"SYSRES_CONST_ADITIONAL_JOB_START_DATE_REQUISITE_NAME "+"SYSRES_CONST_ADITIONAL_JOB_STATE_REQUISITE_NAME "+"SYSRES_CONST_ADMINISTRATION_HISTORY_ADDING_USER_TO_GROUP_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_ADDING_USER_TO_GROUP_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_CREATION_COMP_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_CREATION_COMP_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_CREATION_GROUP_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_CREATION_GROUP_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_CREATION_USER_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_CREATION_USER_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_DATABASE_USER_CREATION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_DATABASE_USER_CREATION_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_DATABASE_USER_DELETION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_DATABASE_USER_DELETION_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_DELETION_COMP_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_DELETION_COMP_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_DELETION_GROUP_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_DELETION_GROUP_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_DELETION_USER_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_DELETION_USER_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_DELETION_USER_FROM_GROUP_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_DELETION_USER_FROM_GROUP_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_GRANTING_FILTERER_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_GRANTING_FILTERER_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_GRANTING_FILTERER_RESTRICTION_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_GRANTING_FILTERER_RESTRICTION_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_GRANTING_PRIVILEGE_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_GRANTING_PRIVILEGE_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_GRANTING_RIGHTS_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_GRANTING_RIGHTS_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_IS_MAIN_SERVER_CHANGED_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_IS_MAIN_SERVER_CHANGED_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_IS_PUBLIC_CHANGED_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_IS_PUBLIC_CHANGED_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_REMOVING_FILTERER_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_REMOVING_FILTERER_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_REMOVING_FILTERER_RESTRICTION_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_REMOVING_FILTERER_RESTRICTION_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_REMOVING_PRIVILEGE_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_REMOVING_PRIVILEGE_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_REMOVING_RIGHTS_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_REMOVING_RIGHTS_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_SERVER_LOGIN_CREATION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_SERVER_LOGIN_CREATION_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_SERVER_LOGIN_DELETION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_SERVER_LOGIN_DELETION_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_CATEGORY_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_CATEGORY_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_COMP_TITLE_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_COMP_TITLE_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_FULL_NAME_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_FULL_NAME_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_GROUP_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_GROUP_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_PARENT_GROUP_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_PARENT_GROUP_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_USER_AUTH_TYPE_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_USER_AUTH_TYPE_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_USER_LOGIN_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_USER_LOGIN_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_USER_STATUS_ACTION "+"SYSRES_CONST_ADMINISTRATION_HISTORY_UPDATING_USER_STATUS_ACTION_CODE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_USER_PASSWORD_CHANGE "+"SYSRES_CONST_ADMINISTRATION_HISTORY_USER_PASSWORD_CHANGE_ACTION "+"SYSRES_CONST_ALL_ACCEPT_CONDITION_RUS "+"SYSRES_CONST_ALL_USERS_GROUP "+"SYSRES_CONST_ALL_USERS_GROUP_NAME "+"SYSRES_CONST_ALL_USERS_SERVER_GROUP_NAME "+"SYSRES_CONST_ALLOWED_ACCESS_TYPE_CODE "+"SYSRES_CONST_ALLOWED_ACCESS_TYPE_NAME "+"SYSRES_CONST_APP_VIEWER_TYPE_REQUISITE_CODE "+"SYSRES_CONST_APPROVING_SIGNATURE_NAME "+"SYSRES_CONST_APPROVING_SIGNATURE_REQUISITE_CODE "+"SYSRES_CONST_ASSISTANT_SUBSTITUE_TYPE "+"SYSRES_CONST_ASSISTANT_SUBSTITUE_TYPE_CODE "+"SYSRES_CONST_ATTACH_TYPE_COMPONENT_TOKEN "+"SYSRES_CONST_ATTACH_TYPE_DOC "+"SYSRES_CONST_ATTACH_TYPE_EDOC "+"SYSRES_CONST_ATTACH_TYPE_FOLDER "+"SYSRES_CONST_ATTACH_TYPE_JOB "+"SYSRES_CONST_ATTACH_TYPE_REFERENCE "+"SYSRES_CONST_ATTACH_TYPE_TASK "+"SYSRES_CONST_AUTH_ENCODED_PASSWORD "+"SYSRES_CONST_AUTH_ENCODED_PASSWORD_CODE "+"SYSRES_CONST_AUTH_NOVELL "+"SYSRES_CONST_AUTH_PASSWORD "+"SYSRES_CONST_AUTH_PASSWORD_CODE "+"SYSRES_CONST_AUTH_WINDOWS "+"SYSRES_CONST_AUTHENTICATING_SIGNATURE_NAME "+"SYSRES_CONST_AUTHENTICATING_SIGNATURE_REQUISITE_CODE "+"SYSRES_CONST_AUTO_ENUM_METHOD_FLAG "+"SYSRES_CONST_AUTO_NUMERATION_CODE "+"SYSRES_CONST_AUTO_STRONG_ENUM_METHOD_FLAG "+"SYSRES_CONST_AUTOTEXT_NAME_REQUISITE_CODE "+"SYSRES_CONST_AUTOTEXT_TEXT_REQUISITE_CODE "+"SYSRES_CONST_AUTOTEXT_USAGE_ALL "+"SYSRES_CONST_AUTOTEXT_USAGE_ALL_CODE "+"SYSRES_CONST_AUTOTEXT_USAGE_SIGN "+"SYSRES_CONST_AUTOTEXT_USAGE_SIGN_CODE "+"SYSRES_CONST_AUTOTEXT_USAGE_WORK "+"SYSRES_CONST_AUTOTEXT_USAGE_WORK_CODE "+"SYSRES_CONST_AUTOTEXT_USE_ANYWHERE_CODE "+"SYSRES_CONST_AUTOTEXT_USE_ON_SIGNING_CODE "+"SYSRES_CONST_AUTOTEXT_USE_ON_WORK_CODE "+"SYSRES_CONST_BEGIN_DATE_REQUISITE_CODE "+"SYSRES_CONST_BLACK_LIFE_CYCLE_STAGE_FONT_COLOR "+"SYSRES_CONST_BLUE_LIFE_CYCLE_STAGE_FONT_COLOR "+"SYSRES_CONST_BTN_PART "+"SYSRES_CONST_CALCULATED_ROLE_TYPE_CODE "+"SYSRES_CONST_CALL_TYPE_VARIABLE_BUTTON_VALUE "+"SYSRES_CONST_CALL_TYPE_VARIABLE_PROGRAM_VALUE "+"SYSRES_CONST_CANCEL_MESSAGE_FUNCTION_RESULT "+"SYSRES_CONST_CARD_PART "+"SYSRES_CONST_CARD_REFERENCE_MODE_NAME "+"SYSRES_CONST_CERTIFICATE_TYPE_REQUISITE_ENCRYPT_VALUE "+"SYSRES_CONST_CERTIFICATE_TYPE_REQUISITE_SIGN_AND_ENCRYPT_VALUE "+"SYSRES_CONST_CERTIFICATE_TYPE_REQUISITE_SIGN_VALUE "+"SYSRES_CONST_CHECK_PARAM_VALUE_DATE_PARAM_TYPE "+"SYSRES_CONST_CHECK_PARAM_VALUE_FLOAT_PARAM_TYPE "+"SYSRES_CONST_CHECK_PARAM_VALUE_INTEGER_PARAM_TYPE "+"SYSRES_CONST_CHECK_PARAM_VALUE_PICK_PARAM_TYPE "+"SYSRES_CONST_CHECK_PARAM_VALUE_REEFRENCE_PARAM_TYPE "+"SYSRES_CONST_CLOSED_RECORD_FLAG_VALUE_FEMININE "+"SYSRES_CONST_CLOSED_RECORD_FLAG_VALUE_MASCULINE "+"SYSRES_CONST_CODE_COMPONENT_TYPE_ADMIN "+"SYSRES_CONST_CODE_COMPONENT_TYPE_DEVELOPER "+"SYSRES_CONST_CODE_COMPONENT_TYPE_DOCS "+"SYSRES_CONST_CODE_COMPONENT_TYPE_EDOC_CARDS "+"SYSRES_CONST_CODE_COMPONENT_TYPE_EXTERNAL_EXECUTABLE "+"SYSRES_CONST_CODE_COMPONENT_TYPE_OTHER "+"SYSRES_CONST_CODE_COMPONENT_TYPE_REFERENCE "+"SYSRES_CONST_CODE_COMPONENT_TYPE_REPORT "+"SYSRES_CONST_CODE_COMPONENT_TYPE_SCRIPT "+"SYSRES_CONST_CODE_COMPONENT_TYPE_URL "+"SYSRES_CONST_CODE_REQUISITE_ACCESS "+"SYSRES_CONST_CODE_REQUISITE_CODE "+"SYSRES_CONST_CODE_REQUISITE_COMPONENT "+"SYSRES_CONST_CODE_REQUISITE_DESCRIPTION "+"SYSRES_CONST_CODE_REQUISITE_EXCLUDE_COMPONENT "+"SYSRES_CONST_CODE_REQUISITE_RECORD "+"SYSRES_CONST_COMMENT_REQ_CODE "+"SYSRES_CONST_COMMON_SETTINGS_REQUISITE_CODE "+"SYSRES_CONST_COMP_CODE_GRD "+"SYSRES_CONST_COMPONENT_GROUP_TYPE_REQUISITE_CODE "+"SYSRES_CONST_COMPONENT_TYPE_ADMIN_COMPONENTS "+"SYSRES_CONST_COMPONENT_TYPE_DEVELOPER_COMPONENTS "+"SYSRES_CONST_COMPONENT_TYPE_DOCS "+"SYSRES_CONST_COMPONENT_TYPE_EDOC_CARDS "+"SYSRES_CONST_COMPONENT_TYPE_EDOCS "+"SYSRES_CONST_COMPONENT_TYPE_EXTERNAL_EXECUTABLE "+"SYSRES_CONST_COMPONENT_TYPE_OTHER "+"SYSRES_CONST_COMPONENT_TYPE_REFERENCE_TYPES "+"SYSRES_CONST_COMPONENT_TYPE_REFERENCES "+"SYSRES_CONST_COMPONENT_TYPE_REPORTS "+"SYSRES_CONST_COMPONENT_TYPE_SCRIPTS "+"SYSRES_CONST_COMPONENT_TYPE_URL "+"SYSRES_CONST_COMPONENTS_REMOTE_SERVERS_VIEW_CODE "+"SYSRES_CONST_CONDITION_BLOCK_DESCRIPTION "+"SYSRES_CONST_CONST_FIRM_STATUS_COMMON "+"SYSRES_CONST_CONST_FIRM_STATUS_INDIVIDUAL "+"SYSRES_CONST_CONST_NEGATIVE_VALUE "+"SYSRES_CONST_CONST_POSITIVE_VALUE "+"SYSRES_CONST_CONST_SERVER_STATUS_DONT_REPLICATE "+"SYSRES_CONST_CONST_SERVER_STATUS_REPLICATE "+"SYSRES_CONST_CONTENTS_REQUISITE_CODE "+"SYSRES_CONST_DATA_TYPE_BOOLEAN "+"SYSRES_CONST_DATA_TYPE_DATE "+"SYSRES_CONST_DATA_TYPE_FLOAT "+"SYSRES_CONST_DATA_TYPE_INTEGER "+"SYSRES_CONST_DATA_TYPE_PICK "+"SYSRES_CONST_DATA_TYPE_REFERENCE "+"SYSRES_CONST_DATA_TYPE_STRING "+"SYSRES_CONST_DATA_TYPE_TEXT "+"SYSRES_CONST_DATA_TYPE_VARIANT "+"SYSRES_CONST_DATE_CLOSE_REQ_CODE "+"SYSRES_CONST_DATE_FORMAT_DATE_ONLY_CHAR "+"SYSRES_CONST_DATE_OPEN_REQ_CODE "+"SYSRES_CONST_DATE_REQUISITE "+"SYSRES_CONST_DATE_REQUISITE_CODE "+"SYSRES_CONST_DATE_REQUISITE_NAME "+"SYSRES_CONST_DATE_REQUISITE_TYPE "+"SYSRES_CONST_DATE_TYPE_CHAR "+"SYSRES_CONST_DATETIME_FORMAT_VALUE "+"SYSRES_CONST_DEA_ACCESS_RIGHTS_ACTION_CODE "+"SYSRES_CONST_DESCRIPTION_LOCALIZE_ID_REQUISITE_CODE "+"SYSRES_CONST_DESCRIPTION_REQUISITE_CODE "+"SYSRES_CONST_DET1_PART "+"SYSRES_CONST_DET2_PART "+"SYSRES_CONST_DET3_PART "+"SYSRES_CONST_DET4_PART "+"SYSRES_CONST_DET5_PART "+"SYSRES_CONST_DET6_PART "+"SYSRES_CONST_DETAIL_DATASET_KEY_REQUISITE_CODE "+"SYSRES_CONST_DETAIL_PICK_REQUISITE_CODE "+"SYSRES_CONST_DETAIL_REQ_CODE "+"SYSRES_CONST_DO_NOT_USE_ACCESS_TYPE_CODE "+"SYSRES_CONST_DO_NOT_USE_ACCESS_TYPE_NAME "+"SYSRES_CONST_DO_NOT_USE_ON_VIEW_ACCESS_TYPE_CODE "+"SYSRES_CONST_DO_NOT_USE_ON_VIEW_ACCESS_TYPE_NAME "+"SYSRES_CONST_DOCUMENT_STORAGES_CODE "+"SYSRES_CONST_DOCUMENT_TEMPLATES_TYPE_NAME "+"SYSRES_CONST_DOUBLE_REQUISITE_CODE "+"SYSRES_CONST_EDITOR_CLOSE_FILE_OBSERV_TYPE_CODE "+"SYSRES_CONST_EDITOR_CLOSE_PROCESS_OBSERV_TYPE_CODE "+"SYSRES_CONST_EDITOR_TYPE_REQUISITE_CODE "+"SYSRES_CONST_EDITORS_APPLICATION_NAME_REQUISITE_CODE "+"SYSRES_CONST_EDITORS_CREATE_SEVERAL_PROCESSES_REQUISITE_CODE "+"SYSRES_CONST_EDITORS_EXTENSION_REQUISITE_CODE "+"SYSRES_CONST_EDITORS_OBSERVER_BY_PROCESS_TYPE "+"SYSRES_CONST_EDITORS_REFERENCE_CODE "+"SYSRES_CONST_EDITORS_REPLACE_SPEC_CHARS_REQUISITE_CODE "+"SYSRES_CONST_EDITORS_USE_PLUGINS_REQUISITE_CODE "+"SYSRES_CONST_EDITORS_VIEW_DOCUMENT_OPENED_TO_EDIT_CODE "+"SYSRES_CONST_EDOC_CARD_TYPE_REQUISITE_CODE "+"SYSRES_CONST_EDOC_CARD_TYPES_LINK_REQUISITE_CODE "+"SYSRES_CONST_EDOC_CERTIFICATE_AND_PASSWORD_ENCODE_CODE "+"SYSRES_CONST_EDOC_CERTIFICATE_ENCODE_CODE "+"SYSRES_CONST_EDOC_DATE_REQUISITE_CODE "+"SYSRES_CONST_EDOC_KIND_REFERENCE_CODE "+"SYSRES_CONST_EDOC_KINDS_BY_TEMPLATE_ACTION_CODE "+"SYSRES_CONST_EDOC_MANAGE_ACCESS_CODE "+"SYSRES_CONST_EDOC_NONE_ENCODE_CODE "+"SYSRES_CONST_EDOC_NUMBER_REQUISITE_CODE "+"SYSRES_CONST_EDOC_PASSWORD_ENCODE_CODE "+"SYSRES_CONST_EDOC_READONLY_ACCESS_CODE "+"SYSRES_CONST_EDOC_SHELL_LIFE_TYPE_VIEW_VALUE "+"SYSRES_CONST_EDOC_SIZE_RESTRICTION_PRIORITY_REQUISITE_CODE "+"SYSRES_CONST_EDOC_STORAGE_CHECK_ACCESS_RIGHTS_REQUISITE_CODE "+"SYSRES_CONST_EDOC_STORAGE_COMPUTER_NAME_REQUISITE_CODE "+"SYSRES_CONST_EDOC_STORAGE_DATABASE_NAME_REQUISITE_CODE "+"SYSRES_CONST_EDOC_STORAGE_EDIT_IN_STORAGE_REQUISITE_CODE "+"SYSRES_CONST_EDOC_STORAGE_LOCAL_PATH_REQUISITE_CODE "+"SYSRES_CONST_EDOC_STORAGE_SHARED_SOURCE_NAME_REQUISITE_CODE "+"SYSRES_CONST_EDOC_TEMPLATE_REQUISITE_CODE "+"SYSRES_CONST_EDOC_TYPES_REFERENCE_CODE "+"SYSRES_CONST_EDOC_VERSION_ACTIVE_STAGE_CODE "+"SYSRES_CONST_EDOC_VERSION_DESIGN_STAGE_CODE "+"SYSRES_CONST_EDOC_VERSION_OBSOLETE_STAGE_CODE "+"SYSRES_CONST_EDOC_WRITE_ACCES_CODE "+"SYSRES_CONST_EDOCUMENT_CARD_REQUISITES_REFERENCE_CODE_SELECTED_REQUISITE "+"SYSRES_CONST_ENCODE_CERTIFICATE_TYPE_CODE "+"SYSRES_CONST_END_DATE_REQUISITE_CODE "+"SYSRES_CONST_ENUMERATION_TYPE_REQUISITE_CODE "+"SYSRES_CONST_EXECUTE_ACCESS_RIGHTS_TYPE_CODE "+"SYSRES_CONST_EXECUTIVE_FILE_STORAGE_TYPE "+"SYSRES_CONST_EXIST_CONST "+"SYSRES_CONST_EXIST_VALUE "+"SYSRES_CONST_EXPORT_LOCK_TYPE_ASK "+"SYSRES_CONST_EXPORT_LOCK_TYPE_WITH_LOCK "+"SYSRES_CONST_EXPORT_LOCK_TYPE_WITHOUT_LOCK "+"SYSRES_CONST_EXPORT_VERSION_TYPE_ASK "+"SYSRES_CONST_EXPORT_VERSION_TYPE_LAST "+"SYSRES_CONST_EXPORT_VERSION_TYPE_LAST_ACTIVE "+"SYSRES_CONST_EXTENSION_REQUISITE_CODE "+"SYSRES_CONST_FILTER_NAME_REQUISITE_CODE "+"SYSRES_CONST_FILTER_REQUISITE_CODE "+"SYSRES_CONST_FILTER_TYPE_COMMON_CODE "+"SYSRES_CONST_FILTER_TYPE_COMMON_NAME "+"SYSRES_CONST_FILTER_TYPE_USER_CODE "+"SYSRES_CONST_FILTER_TYPE_USER_NAME "+"SYSRES_CONST_FILTER_VALUE_REQUISITE_NAME "+"SYSRES_CONST_FLOAT_NUMBER_FORMAT_CHAR "+"SYSRES_CONST_FLOAT_REQUISITE_TYPE "+"SYSRES_CONST_FOLDER_AUTHOR_VALUE "+"SYSRES_CONST_FOLDER_KIND_ANY_OBJECTS "+"SYSRES_CONST_FOLDER_KIND_COMPONENTS "+"SYSRES_CONST_FOLDER_KIND_EDOCS "+"SYSRES_CONST_FOLDER_KIND_JOBS "+"SYSRES_CONST_FOLDER_KIND_TASKS "+"SYSRES_CONST_FOLDER_TYPE_COMMON "+"SYSRES_CONST_FOLDER_TYPE_COMPONENT "+"SYSRES_CONST_FOLDER_TYPE_FAVORITES "+"SYSRES_CONST_FOLDER_TYPE_INBOX "+"SYSRES_CONST_FOLDER_TYPE_OUTBOX "+"SYSRES_CONST_FOLDER_TYPE_QUICK_LAUNCH "+"SYSRES_CONST_FOLDER_TYPE_SEARCH "+"SYSRES_CONST_FOLDER_TYPE_SHORTCUTS "+"SYSRES_CONST_FOLDER_TYPE_USER "+"SYSRES_CONST_FROM_DICTIONARY_ENUM_METHOD_FLAG "+"SYSRES_CONST_FULL_SUBSTITUTE_TYPE "+"SYSRES_CONST_FULL_SUBSTITUTE_TYPE_CODE "+"SYSRES_CONST_FUNCTION_CANCEL_RESULT "+"SYSRES_CONST_FUNCTION_CATEGORY_SYSTEM "+"SYSRES_CONST_FUNCTION_CATEGORY_USER "+"SYSRES_CONST_FUNCTION_FAILURE_RESULT "+"SYSRES_CONST_FUNCTION_SAVE_RESULT "+"SYSRES_CONST_GENERATED_REQUISITE "+"SYSRES_CONST_GREEN_LIFE_CYCLE_STAGE_FONT_COLOR "+"SYSRES_CONST_GROUP_ACCOUNT_TYPE_VALUE_CODE "+"SYSRES_CONST_GROUP_CATEGORY_NORMAL_CODE "+"SYSRES_CONST_GROUP_CATEGORY_NORMAL_NAME "+"SYSRES_CONST_GROUP_CATEGORY_SERVICE_CODE "+"SYSRES_CONST_GROUP_CATEGORY_SERVICE_NAME "+"SYSRES_CONST_GROUP_COMMON_CATEGORY_FIELD_VALUE "+"SYSRES_CONST_GROUP_FULL_NAME_REQUISITE_CODE "+"SYSRES_CONST_GROUP_NAME_REQUISITE_CODE "+"SYSRES_CONST_GROUP_RIGHTS_T_REQUISITE_CODE "+"SYSRES_CONST_GROUP_SERVER_CODES_REQUISITE_CODE "+"SYSRES_CONST_GROUP_SERVER_NAME_REQUISITE_CODE "+"SYSRES_CONST_GROUP_SERVICE_CATEGORY_FIELD_VALUE "+"SYSRES_CONST_GROUP_USER_REQUISITE_CODE "+"SYSRES_CONST_GROUPS_REFERENCE_CODE "+"SYSRES_CONST_GROUPS_REQUISITE_CODE "+"SYSRES_CONST_HIDDEN_MODE_NAME "+"SYSRES_CONST_HIGH_LVL_REQUISITE_CODE "+"SYSRES_CONST_HISTORY_ACTION_CREATE_CODE "+"SYSRES_CONST_HISTORY_ACTION_DELETE_CODE "+"SYSRES_CONST_HISTORY_ACTION_EDIT_CODE "+"SYSRES_CONST_HOUR_CHAR "+"SYSRES_CONST_ID_REQUISITE_CODE "+"SYSRES_CONST_IDSPS_REQUISITE_CODE "+"SYSRES_CONST_IMAGE_MODE_COLOR "+"SYSRES_CONST_IMAGE_MODE_GREYSCALE "+"SYSRES_CONST_IMAGE_MODE_MONOCHROME "+"SYSRES_CONST_IMPORTANCE_HIGH "+"SYSRES_CONST_IMPORTANCE_LOW "+"SYSRES_CONST_IMPORTANCE_NORMAL "+"SYSRES_CONST_IN_DESIGN_VERSION_STATE_PICK_VALUE "+"SYSRES_CONST_INCOMING_WORK_RULE_TYPE_CODE "+"SYSRES_CONST_INT_REQUISITE "+"SYSRES_CONST_INT_REQUISITE_TYPE "+"SYSRES_CONST_INTEGER_NUMBER_FORMAT_CHAR "+"SYSRES_CONST_INTEGER_TYPE_CHAR "+"SYSRES_CONST_IS_GENERATED_REQUISITE_NEGATIVE_VALUE "+"SYSRES_CONST_IS_PUBLIC_ROLE_REQUISITE_CODE "+"SYSRES_CONST_IS_REMOTE_USER_NEGATIVE_VALUE "+"SYSRES_CONST_IS_REMOTE_USER_POSITIVE_VALUE "+"SYSRES_CONST_IS_STORED_REQUISITE_NEGATIVE_VALUE "+"SYSRES_CONST_IS_STORED_REQUISITE_STORED_VALUE "+"SYSRES_CONST_ITALIC_LIFE_CYCLE_STAGE_DRAW_STYLE "+"SYSRES_CONST_JOB_BLOCK_DESCRIPTION "+"SYSRES_CONST_JOB_KIND_CONTROL_JOB "+"SYSRES_CONST_JOB_KIND_JOB "+"SYSRES_CONST_JOB_KIND_NOTICE "+"SYSRES_CONST_JOB_STATE_ABORTED "+"SYSRES_CONST_JOB_STATE_COMPLETE "+"SYSRES_CONST_JOB_STATE_WORKING "+"SYSRES_CONST_KIND_REQUISITE_CODE "+"SYSRES_CONST_KIND_REQUISITE_NAME "+"SYSRES_CONST_KINDS_CREATE_SHADOW_COPIES_REQUISITE_CODE "+"SYSRES_CONST_KINDS_DEFAULT_EDOC_LIFE_STAGE_REQUISITE_CODE "+"SYSRES_CONST_KINDS_EDOC_ALL_TEPLATES_ALLOWED_REQUISITE_CODE "+"SYSRES_CONST_KINDS_EDOC_ALLOW_LIFE_CYCLE_STAGE_CHANGING_REQUISITE_CODE "+"SYSRES_CONST_KINDS_EDOC_ALLOW_MULTIPLE_ACTIVE_VERSIONS_REQUISITE_CODE "+"SYSRES_CONST_KINDS_EDOC_SHARE_ACCES_RIGHTS_BY_DEFAULT_CODE "+"SYSRES_CONST_KINDS_EDOC_TEMPLATE_REQUISITE_CODE "+"SYSRES_CONST_KINDS_EDOC_TYPE_REQUISITE_CODE "+"SYSRES_CONST_KINDS_SIGNERS_REQUISITES_CODE "+"SYSRES_CONST_KOD_INPUT_TYPE "+"SYSRES_CONST_LAST_UPDATE_DATE_REQUISITE_CODE "+"SYSRES_CONST_LIFE_CYCLE_START_STAGE_REQUISITE_CODE "+"SYSRES_CONST_LILAC_LIFE_CYCLE_STAGE_FONT_COLOR "+"SYSRES_CONST_LINK_OBJECT_KIND_COMPONENT "+"SYSRES_CONST_LINK_OBJECT_KIND_DOCUMENT "+"SYSRES_CONST_LINK_OBJECT_KIND_EDOC "+"SYSRES_CONST_LINK_OBJECT_KIND_FOLDER "+"SYSRES_CONST_LINK_OBJECT_KIND_JOB "+"SYSRES_CONST_LINK_OBJECT_KIND_REFERENCE "+"SYSRES_CONST_LINK_OBJECT_KIND_TASK "+"SYSRES_CONST_LINK_REF_TYPE_REQUISITE_CODE "+"SYSRES_CONST_LIST_REFERENCE_MODE_NAME "+"SYSRES_CONST_LOCALIZATION_DICTIONARY_MAIN_VIEW_CODE "+"SYSRES_CONST_MAIN_VIEW_CODE "+"SYSRES_CONST_MANUAL_ENUM_METHOD_FLAG "+"SYSRES_CONST_MASTER_COMP_TYPE_REQUISITE_CODE "+"SYSRES_CONST_MASTER_TABLE_REC_ID_REQUISITE_CODE "+"SYSRES_CONST_MAXIMIZED_MODE_NAME "+"SYSRES_CONST_ME_VALUE "+"SYSRES_CONST_MESSAGE_ATTENTION_CAPTION "+"SYSRES_CONST_MESSAGE_CONFIRMATION_CAPTION "+"SYSRES_CONST_MESSAGE_ERROR_CAPTION "+"SYSRES_CONST_MESSAGE_INFORMATION_CAPTION "+"SYSRES_CONST_MINIMIZED_MODE_NAME "+"SYSRES_CONST_MINUTE_CHAR "+"SYSRES_CONST_MODULE_REQUISITE_CODE "+"SYSRES_CONST_MONITORING_BLOCK_DESCRIPTION "+"SYSRES_CONST_MONTH_FORMAT_VALUE "+"SYSRES_CONST_NAME_LOCALIZE_ID_REQUISITE_CODE "+"SYSRES_CONST_NAME_REQUISITE_CODE "+"SYSRES_CONST_NAME_SINGULAR_REQUISITE_CODE "+"SYSRES_CONST_NAMEAN_INPUT_TYPE "+"SYSRES_CONST_NEGATIVE_PICK_VALUE "+"SYSRES_CONST_NEGATIVE_VALUE "+"SYSRES_CONST_NO "+"SYSRES_CONST_NO_PICK_VALUE "+"SYSRES_CONST_NO_SIGNATURE_REQUISITE_CODE "+"SYSRES_CONST_NO_VALUE "+"SYSRES_CONST_NONE_ACCESS_RIGHTS_TYPE_CODE "+"SYSRES_CONST_NONOPERATING_RECORD_FLAG_VALUE "+"SYSRES_CONST_NONOPERATING_RECORD_FLAG_VALUE_MASCULINE "+"SYSRES_CONST_NORMAL_ACCESS_RIGHTS_TYPE_CODE "+"SYSRES_CONST_NORMAL_LIFE_CYCLE_STAGE_DRAW_STYLE "+"SYSRES_CONST_NORMAL_MODE_NAME "+"SYSRES_CONST_NOT_ALLOWED_ACCESS_TYPE_CODE "+"SYSRES_CONST_NOT_ALLOWED_ACCESS_TYPE_NAME "+"SYSRES_CONST_NOTE_REQUISITE_CODE "+"SYSRES_CONST_NOTICE_BLOCK_DESCRIPTION "+"SYSRES_CONST_NUM_REQUISITE "+"SYSRES_CONST_NUM_STR_REQUISITE_CODE "+"SYSRES_CONST_NUMERATION_AUTO_NOT_STRONG "+"SYSRES_CONST_NUMERATION_AUTO_STRONG "+"SYSRES_CONST_NUMERATION_FROM_DICTONARY "+"SYSRES_CONST_NUMERATION_MANUAL "+"SYSRES_CONST_NUMERIC_TYPE_CHAR "+"SYSRES_CONST_NUMREQ_REQUISITE_CODE "+"SYSRES_CONST_OBSOLETE_VERSION_STATE_PICK_VALUE "+"SYSRES_CONST_OPERATING_RECORD_FLAG_VALUE "+"SYSRES_CONST_OPERATING_RECORD_FLAG_VALUE_CODE "+"SYSRES_CONST_OPERATING_RECORD_FLAG_VALUE_FEMININE "+"SYSRES_CONST_OPERATING_RECORD_FLAG_VALUE_MASCULINE "+"SYSRES_CONST_OPTIONAL_FORM_COMP_REQCODE_PREFIX "+"SYSRES_CONST_ORANGE_LIFE_CYCLE_STAGE_FONT_COLOR "+"SYSRES_CONST_ORIGINALREF_REQUISITE_CODE "+"SYSRES_CONST_OURFIRM_REF_CODE "+"SYSRES_CONST_OURFIRM_REQUISITE_CODE "+"SYSRES_CONST_OURFIRM_VAR "+"SYSRES_CONST_OUTGOING_WORK_RULE_TYPE_CODE "+"SYSRES_CONST_PICK_NEGATIVE_RESULT "+"SYSRES_CONST_PICK_POSITIVE_RESULT "+"SYSRES_CONST_PICK_REQUISITE "+"SYSRES_CONST_PICK_REQUISITE_TYPE "+"SYSRES_CONST_PICK_TYPE_CHAR "+"SYSRES_CONST_PLAN_STATUS_REQUISITE_CODE "+"SYSRES_CONST_PLATFORM_VERSION_COMMENT "+"SYSRES_CONST_PLUGINS_SETTINGS_DESCRIPTION_REQUISITE_CODE "+"SYSRES_CONST_POSITIVE_PICK_VALUE "+"SYSRES_CONST_POWER_TO_CREATE_ACTION_CODE "+"SYSRES_CONST_POWER_TO_SIGN_ACTION_CODE "+"SYSRES_CONST_PRIORITY_REQUISITE_CODE "+"SYSRES_CONST_QUALIFIED_TASK_TYPE "+"SYSRES_CONST_QUALIFIED_TASK_TYPE_CODE "+"SYSRES_CONST_RECSTAT_REQUISITE_CODE "+"SYSRES_CONST_RED_LIFE_CYCLE_STAGE_FONT_COLOR "+"SYSRES_CONST_REF_ID_T_REF_TYPE_REQUISITE_CODE "+"SYSRES_CONST_REF_REQUISITE "+"SYSRES_CONST_REF_REQUISITE_TYPE "+"SYSRES_CONST_REF_REQUISITES_REFERENCE_CODE_SELECTED_REQUISITE "+"SYSRES_CONST_REFERENCE_RECORD_HISTORY_CREATE_ACTION_CODE "+"SYSRES_CONST_REFERENCE_RECORD_HISTORY_DELETE_ACTION_CODE "+"SYSRES_CONST_REFERENCE_RECORD_HISTORY_MODIFY_ACTION_CODE "+"SYSRES_CONST_REFERENCE_TYPE_CHAR "+"SYSRES_CONST_REFERENCE_TYPE_REQUISITE_NAME "+"SYSRES_CONST_REFERENCES_ADD_PARAMS_REQUISITE_CODE "+"SYSRES_CONST_REFERENCES_DISPLAY_REQUISITE_REQUISITE_CODE "+"SYSRES_CONST_REMOTE_SERVER_STATUS_WORKING "+"SYSRES_CONST_REMOTE_SERVER_TYPE_MAIN "+"SYSRES_CONST_REMOTE_SERVER_TYPE_SECONDARY "+"SYSRES_CONST_REMOTE_USER_FLAG_VALUE_CODE "+"SYSRES_CONST_REPORT_APP_EDITOR_INTERNAL "+"SYSRES_CONST_REPORT_BASE_REPORT_ID_REQUISITE_CODE "+"SYSRES_CONST_REPORT_BASE_REPORT_REQUISITE_CODE "+"SYSRES_CONST_REPORT_SCRIPT_REQUISITE_CODE "+"SYSRES_CONST_REPORT_TEMPLATE_REQUISITE_CODE "+"SYSRES_CONST_REPORT_VIEWER_CODE_REQUISITE_CODE "+"SYSRES_CONST_REQ_ALLOW_COMPONENT_DEFAULT_VALUE "+"SYSRES_CONST_REQ_ALLOW_RECORD_DEFAULT_VALUE "+"SYSRES_CONST_REQ_ALLOW_SERVER_COMPONENT_DEFAULT_VALUE "+"SYSRES_CONST_REQ_MODE_AVAILABLE_CODE "+"SYSRES_CONST_REQ_MODE_EDIT_CODE "+"SYSRES_CONST_REQ_MODE_HIDDEN_CODE "+"SYSRES_CONST_REQ_MODE_NOT_AVAILABLE_CODE "+"SYSRES_CONST_REQ_MODE_VIEW_CODE "+"SYSRES_CONST_REQ_NUMBER_REQUISITE_CODE "+"SYSRES_CONST_REQ_SECTION_VALUE "+"SYSRES_CONST_REQ_TYPE_VALUE "+"SYSRES_CONST_REQUISITE_FORMAT_BY_UNIT "+"SYSRES_CONST_REQUISITE_FORMAT_DATE_FULL "+"SYSRES_CONST_REQUISITE_FORMAT_DATE_TIME "+"SYSRES_CONST_REQUISITE_FORMAT_LEFT "+"SYSRES_CONST_REQUISITE_FORMAT_RIGHT "+"SYSRES_CONST_REQUISITE_FORMAT_WITHOUT_UNIT "+"SYSRES_CONST_REQUISITE_NUMBER_REQUISITE_CODE "+"SYSRES_CONST_REQUISITE_SECTION_ACTIONS "+"SYSRES_CONST_REQUISITE_SECTION_BUTTON "+"SYSRES_CONST_REQUISITE_SECTION_BUTTONS "+"SYSRES_CONST_REQUISITE_SECTION_CARD "+"SYSRES_CONST_REQUISITE_SECTION_TABLE "+"SYSRES_CONST_REQUISITE_SECTION_TABLE10 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE11 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE12 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE13 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE14 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE15 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE16 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE17 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE18 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE19 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE2 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE20 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE21 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE22 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE23 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE24 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE3 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE4 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE5 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE6 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE7 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE8 "+"SYSRES_CONST_REQUISITE_SECTION_TABLE9 "+"SYSRES_CONST_REQUISITES_PSEUDOREFERENCE_REQUISITE_NUMBER_REQUISITE_CODE "+"SYSRES_CONST_RIGHT_ALIGNMENT_CODE "+"SYSRES_CONST_ROLES_REFERENCE_CODE "+"SYSRES_CONST_ROUTE_STEP_AFTER_RUS "+"SYSRES_CONST_ROUTE_STEP_AND_CONDITION_RUS "+"SYSRES_CONST_ROUTE_STEP_OR_CONDITION_RUS "+"SYSRES_CONST_ROUTE_TYPE_COMPLEX "+"SYSRES_CONST_ROUTE_TYPE_PARALLEL "+"SYSRES_CONST_ROUTE_TYPE_SERIAL "+"SYSRES_CONST_SBDATASETDESC_NEGATIVE_VALUE "+"SYSRES_CONST_SBDATASETDESC_POSITIVE_VALUE "+"SYSRES_CONST_SBVIEWSDESC_POSITIVE_VALUE "+"SYSRES_CONST_SCRIPT_BLOCK_DESCRIPTION "+"SYSRES_CONST_SEARCH_BY_TEXT_REQUISITE_CODE "+"SYSRES_CONST_SEARCHES_COMPONENT_CONTENT "+"SYSRES_CONST_SEARCHES_CRITERIA_ACTION_NAME "+"SYSRES_CONST_SEARCHES_EDOC_CONTENT "+"SYSRES_CONST_SEARCHES_FOLDER_CONTENT "+"SYSRES_CONST_SEARCHES_JOB_CONTENT "+"SYSRES_CONST_SEARCHES_REFERENCE_CODE "+"SYSRES_CONST_SEARCHES_TASK_CONTENT "+"SYSRES_CONST_SECOND_CHAR "+"SYSRES_CONST_SECTION_REQUISITE_ACTIONS_VALUE "+"SYSRES_CONST_SECTION_REQUISITE_CARD_VALUE "+"SYSRES_CONST_SECTION_REQUISITE_CODE "+"SYSRES_CONST_SECTION_REQUISITE_DETAIL_1_VALUE "+"SYSRES_CONST_SECTION_REQUISITE_DETAIL_2_VALUE "+"SYSRES_CONST_SECTION_REQUISITE_DETAIL_3_VALUE "+"SYSRES_CONST_SECTION_REQUISITE_DETAIL_4_VALUE "+"SYSRES_CONST_SECTION_REQUISITE_DETAIL_5_VALUE "+"SYSRES_CONST_SECTION_REQUISITE_DETAIL_6_VALUE "+"SYSRES_CONST_SELECT_REFERENCE_MODE_NAME "+"SYSRES_CONST_SELECT_TYPE_SELECTABLE "+"SYSRES_CONST_SELECT_TYPE_SELECTABLE_ONLY_CHILD "+"SYSRES_CONST_SELECT_TYPE_SELECTABLE_WITH_CHILD "+"SYSRES_CONST_SELECT_TYPE_UNSLECTABLE "+"SYSRES_CONST_SERVER_TYPE_MAIN "+"SYSRES_CONST_SERVICE_USER_CATEGORY_FIELD_VALUE "+"SYSRES_CONST_SETTINGS_USER_REQUISITE_CODE "+"SYSRES_CONST_SIGNATURE_AND_ENCODE_CERTIFICATE_TYPE_CODE "+"SYSRES_CONST_SIGNATURE_CERTIFICATE_TYPE_CODE "+"SYSRES_CONST_SINGULAR_TITLE_REQUISITE_CODE "+"SYSRES_CONST_SQL_SERVER_AUTHENTIFICATION_FLAG_VALUE_CODE "+"SYSRES_CONST_SQL_SERVER_ENCODE_AUTHENTIFICATION_FLAG_VALUE_CODE "+"SYSRES_CONST_STANDART_ROUTE_REFERENCE_CODE "+"SYSRES_CONST_STANDART_ROUTE_REFERENCE_COMMENT_REQUISITE_CODE "+"SYSRES_CONST_STANDART_ROUTES_GROUPS_REFERENCE_CODE "+"SYSRES_CONST_STATE_REQ_NAME "+"SYSRES_CONST_STATE_REQUISITE_ACTIVE_VALUE "+"SYSRES_CONST_STATE_REQUISITE_CLOSED_VALUE "+"SYSRES_CONST_STATE_REQUISITE_CODE "+"SYSRES_CONST_STATIC_ROLE_TYPE_CODE "+"SYSRES_CONST_STATUS_PLAN_DEFAULT_VALUE "+"SYSRES_CONST_STATUS_VALUE_AUTOCLEANING "+"SYSRES_CONST_STATUS_VALUE_BLUE_SQUARE "+"SYSRES_CONST_STATUS_VALUE_COMPLETE "+"SYSRES_CONST_STATUS_VALUE_GREEN_SQUARE "+"SYSRES_CONST_STATUS_VALUE_ORANGE_SQUARE "+"SYSRES_CONST_STATUS_VALUE_PURPLE_SQUARE "+"SYSRES_CONST_STATUS_VALUE_RED_SQUARE "+"SYSRES_CONST_STATUS_VALUE_SUSPEND "+"SYSRES_CONST_STATUS_VALUE_YELLOW_SQUARE "+"SYSRES_CONST_STDROUTE_SHOW_TO_USERS_REQUISITE_CODE "+"SYSRES_CONST_STORAGE_TYPE_FILE "+"SYSRES_CONST_STORAGE_TYPE_SQL_SERVER "+"SYSRES_CONST_STR_REQUISITE "+"SYSRES_CONST_STRIKEOUT_LIFE_CYCLE_STAGE_DRAW_STYLE "+"SYSRES_CONST_STRING_FORMAT_LEFT_ALIGN_CHAR "+"SYSRES_CONST_STRING_FORMAT_RIGHT_ALIGN_CHAR "+"SYSRES_CONST_STRING_REQUISITE_CODE "+"SYSRES_CONST_STRING_REQUISITE_TYPE "+"SYSRES_CONST_STRING_TYPE_CHAR "+"SYSRES_CONST_SUBSTITUTES_PSEUDOREFERENCE_CODE "+"SYSRES_CONST_SUBTASK_BLOCK_DESCRIPTION "+"SYSRES_CONST_SYSTEM_SETTING_CURRENT_USER_PARAM_VALUE "+"SYSRES_CONST_SYSTEM_SETTING_EMPTY_VALUE_PARAM_VALUE "+"SYSRES_CONST_SYSTEM_VERSION_COMMENT "+"SYSRES_CONST_TASK_ACCESS_TYPE_ALL "+"SYSRES_CONST_TASK_ACCESS_TYPE_ALL_MEMBERS "+"SYSRES_CONST_TASK_ACCESS_TYPE_MANUAL "+"SYSRES_CONST_TASK_ENCODE_TYPE_CERTIFICATION "+"SYSRES_CONST_TASK_ENCODE_TYPE_CERTIFICATION_AND_PASSWORD "+"SYSRES_CONST_TASK_ENCODE_TYPE_NONE "+"SYSRES_CONST_TASK_ENCODE_TYPE_PASSWORD "+"SYSRES_CONST_TASK_ROUTE_ALL_CONDITION "+"SYSRES_CONST_TASK_ROUTE_AND_CONDITION "+"SYSRES_CONST_TASK_ROUTE_OR_CONDITION "+"SYSRES_CONST_TASK_STATE_ABORTED "+"SYSRES_CONST_TASK_STATE_COMPLETE "+"SYSRES_CONST_TASK_STATE_CONTINUED "+"SYSRES_CONST_TASK_STATE_CONTROL "+"SYSRES_CONST_TASK_STATE_INIT "+"SYSRES_CONST_TASK_STATE_WORKING "+"SYSRES_CONST_TASK_TITLE "+"SYSRES_CONST_TASK_TYPES_GROUPS_REFERENCE_CODE "+"SYSRES_CONST_TASK_TYPES_REFERENCE_CODE "+"SYSRES_CONST_TEMPLATES_REFERENCE_CODE "+"SYSRES_CONST_TEST_DATE_REQUISITE_NAME "+"SYSRES_CONST_TEST_DEV_DATABASE_NAME "+"SYSRES_CONST_TEST_DEV_SYSTEM_CODE "+"SYSRES_CONST_TEST_EDMS_DATABASE_NAME "+"SYSRES_CONST_TEST_EDMS_MAIN_CODE "+"SYSRES_CONST_TEST_EDMS_MAIN_DB_NAME "+"SYSRES_CONST_TEST_EDMS_SECOND_CODE "+"SYSRES_CONST_TEST_EDMS_SECOND_DB_NAME "+"SYSRES_CONST_TEST_EDMS_SYSTEM_CODE "+"SYSRES_CONST_TEST_NUMERIC_REQUISITE_NAME "+"SYSRES_CONST_TEXT_REQUISITE "+"SYSRES_CONST_TEXT_REQUISITE_CODE "+"SYSRES_CONST_TEXT_REQUISITE_TYPE "+"SYSRES_CONST_TEXT_TYPE_CHAR "+"SYSRES_CONST_TYPE_CODE_REQUISITE_CODE "+"SYSRES_CONST_TYPE_REQUISITE_CODE "+"SYSRES_CONST_UNDEFINED_LIFE_CYCLE_STAGE_FONT_COLOR "+"SYSRES_CONST_UNITS_SECTION_ID_REQUISITE_CODE "+"SYSRES_CONST_UNITS_SECTION_REQUISITE_CODE "+"SYSRES_CONST_UNOPERATING_RECORD_FLAG_VALUE_CODE "+"SYSRES_CONST_UNSTORED_DATA_REQUISITE_CODE "+"SYSRES_CONST_UNSTORED_DATA_REQUISITE_NAME "+"SYSRES_CONST_USE_ACCESS_TYPE_CODE "+"SYSRES_CONST_USE_ACCESS_TYPE_NAME "+"SYSRES_CONST_USER_ACCOUNT_TYPE_VALUE_CODE "+"SYSRES_CONST_USER_ADDITIONAL_INFORMATION_REQUISITE_CODE "+"SYSRES_CONST_USER_AND_GROUP_ID_FROM_PSEUDOREFERENCE_REQUISITE_CODE "+"SYSRES_CONST_USER_CATEGORY_NORMAL "+"SYSRES_CONST_USER_CERTIFICATE_REQUISITE_CODE "+"SYSRES_CONST_USER_CERTIFICATE_STATE_REQUISITE_CODE "+"SYSRES_CONST_USER_CERTIFICATE_SUBJECT_NAME_REQUISITE_CODE "+"SYSRES_CONST_USER_CERTIFICATE_THUMBPRINT_REQUISITE_CODE "+"SYSRES_CONST_USER_COMMON_CATEGORY "+"SYSRES_CONST_USER_COMMON_CATEGORY_CODE "+"SYSRES_CONST_USER_FULL_NAME_REQUISITE_CODE "+"SYSRES_CONST_USER_GROUP_TYPE_REQUISITE_CODE "+"SYSRES_CONST_USER_LOGIN_REQUISITE_CODE "+"SYSRES_CONST_USER_REMOTE_CONTROLLER_REQUISITE_CODE "+"SYSRES_CONST_USER_REMOTE_SYSTEM_REQUISITE_CODE "+"SYSRES_CONST_USER_RIGHTS_T_REQUISITE_CODE "+"SYSRES_CONST_USER_SERVER_NAME_REQUISITE_CODE "+"SYSRES_CONST_USER_SERVICE_CATEGORY "+"SYSRES_CONST_USER_SERVICE_CATEGORY_CODE "+"SYSRES_CONST_USER_STATUS_ADMINISTRATOR_CODE "+"SYSRES_CONST_USER_STATUS_ADMINISTRATOR_NAME "+"SYSRES_CONST_USER_STATUS_DEVELOPER_CODE "+"SYSRES_CONST_USER_STATUS_DEVELOPER_NAME "+"SYSRES_CONST_USER_STATUS_DISABLED_CODE "+"SYSRES_CONST_USER_STATUS_DISABLED_NAME "+"SYSRES_CONST_USER_STATUS_SYSTEM_DEVELOPER_CODE "+"SYSRES_CONST_USER_STATUS_USER_CODE "+"SYSRES_CONST_USER_STATUS_USER_NAME "+"SYSRES_CONST_USER_STATUS_USER_NAME_DEPRECATED "+"SYSRES_CONST_USER_TYPE_FIELD_VALUE_USER "+"SYSRES_CONST_USER_TYPE_REQUISITE_CODE "+"SYSRES_CONST_USERS_CONTROLLER_REQUISITE_CODE "+"SYSRES_CONST_USERS_IS_MAIN_SERVER_REQUISITE_CODE "+"SYSRES_CONST_USERS_REFERENCE_CODE "+"SYSRES_CONST_USERS_REGISTRATION_CERTIFICATES_ACTION_NAME "+"SYSRES_CONST_USERS_REQUISITE_CODE "+"SYSRES_CONST_USERS_SYSTEM_REQUISITE_CODE "+"SYSRES_CONST_USERS_USER_ACCESS_RIGHTS_TYPR_REQUISITE_CODE "+"SYSRES_CONST_USERS_USER_AUTHENTICATION_REQUISITE_CODE "+"SYSRES_CONST_USERS_USER_COMPONENT_REQUISITE_CODE "+"SYSRES_CONST_USERS_USER_GROUP_REQUISITE_CODE "+"SYSRES_CONST_USERS_VIEW_CERTIFICATES_ACTION_NAME "+"SYSRES_CONST_VIEW_DEFAULT_CODE "+"SYSRES_CONST_VIEW_DEFAULT_NAME "+"SYSRES_CONST_VIEWER_REQUISITE_CODE "+"SYSRES_CONST_WAITING_BLOCK_DESCRIPTION "+"SYSRES_CONST_WIZARD_FORM_LABEL_TEST_STRING "+"SYSRES_CONST_WIZARD_QUERY_PARAM_HEIGHT_ETALON_STRING "+"SYSRES_CONST_WIZARD_REFERENCE_COMMENT_REQUISITE_CODE "+"SYSRES_CONST_WORK_RULES_DESCRIPTION_REQUISITE_CODE "+"SYSRES_CONST_WORK_TIME_CALENDAR_REFERENCE_CODE "+"SYSRES_CONST_WORK_WORKFLOW_HARD_ROUTE_TYPE_VALUE "+"SYSRES_CONST_WORK_WORKFLOW_HARD_ROUTE_TYPE_VALUE_CODE "+"SYSRES_CONST_WORK_WORKFLOW_HARD_ROUTE_TYPE_VALUE_CODE_RUS "+"SYSRES_CONST_WORK_WORKFLOW_SOFT_ROUTE_TYPE_VALUE_CODE_RUS "+"SYSRES_CONST_WORKFLOW_ROUTE_TYPR_HARD "+"SYSRES_CONST_WORKFLOW_ROUTE_TYPR_SOFT "+"SYSRES_CONST_XML_ENCODING "+"SYSRES_CONST_XREC_STAT_REQUISITE_CODE "+"SYSRES_CONST_XRECID_FIELD_NAME "+"SYSRES_CONST_YES "+"SYSRES_CONST_YES_NO_2_REQUISITE_CODE "+"SYSRES_CONST_YES_NO_REQUISITE_CODE "+"SYSRES_CONST_YES_NO_T_REF_TYPE_REQUISITE_CODE "+"SYSRES_CONST_YES_PICK_VALUE "+"SYSRES_CONST_YES_VALUE ";var base_constants="CR FALSE nil NO_VALUE NULL TAB TRUE YES_VALUE ";var base_group_name_constants="ADMINISTRATORS_GROUP_NAME CUSTOMIZERS_GROUP_NAME DEVELOPERS_GROUP_NAME SERVICE_USERS_GROUP_NAME ";var decision_block_properties_constants="DECISION_BLOCK_FIRST_OPERAND_PROPERTY DECISION_BLOCK_NAME_PROPERTY DECISION_BLOCK_OPERATION_PROPERTY "+"DECISION_BLOCK_RESULT_TYPE_PROPERTY DECISION_BLOCK_SECOND_OPERAND_PROPERTY ";var file_extension_constants="ANY_FILE_EXTENTION COMPRESSED_DOCUMENT_EXTENSION EXTENDED_DOCUMENT_EXTENSION "+"SHORT_COMPRESSED_DOCUMENT_EXTENSION SHORT_EXTENDED_DOCUMENT_EXTENSION ";var job_block_properties_constants="JOB_BLOCK_ABORT_DEADLINE_PROPERTY "+"JOB_BLOCK_AFTER_FINISH_EVENT "+"JOB_BLOCK_AFTER_QUERY_PARAMETERS_EVENT "+"JOB_BLOCK_ATTACHMENT_PROPERTY "+"JOB_BLOCK_ATTACHMENTS_RIGHTS_GROUP_PROPERTY "+"JOB_BLOCK_ATTACHMENTS_RIGHTS_TYPE_PROPERTY "+"JOB_BLOCK_BEFORE_QUERY_PARAMETERS_EVENT "+"JOB_BLOCK_BEFORE_START_EVENT "+"JOB_BLOCK_CREATED_JOBS_PROPERTY "+"JOB_BLOCK_DEADLINE_PROPERTY "+"JOB_BLOCK_EXECUTION_RESULTS_PROPERTY "+"JOB_BLOCK_IS_PARALLEL_PROPERTY "+"JOB_BLOCK_IS_RELATIVE_ABORT_DEADLINE_PROPERTY "+"JOB_BLOCK_IS_RELATIVE_DEADLINE_PROPERTY "+"JOB_BLOCK_JOB_TEXT_PROPERTY "+"JOB_BLOCK_NAME_PROPERTY "+"JOB_BLOCK_NEED_SIGN_ON_PERFORM_PROPERTY "+"JOB_BLOCK_PERFORMER_PROPERTY "+"JOB_BLOCK_RELATIVE_ABORT_DEADLINE_TYPE_PROPERTY "+"JOB_BLOCK_RELATIVE_DEADLINE_TYPE_PROPERTY "+"JOB_BLOCK_SUBJECT_PROPERTY ";var language_code_constants="ENGLISH_LANGUAGE_CODE RUSSIAN_LANGUAGE_CODE ";var launching_external_applications_constants="smHidden smMaximized smMinimized smNormal wmNo wmYes ";var link_kind_constants="COMPONENT_TOKEN_LINK_KIND "+"DOCUMENT_LINK_KIND "+"EDOCUMENT_LINK_KIND "+"FOLDER_LINK_KIND "+"JOB_LINK_KIND "+"REFERENCE_LINK_KIND "+"TASK_LINK_KIND ";var lock_type_constants="COMPONENT_TOKEN_LOCK_TYPE EDOCUMENT_VERSION_LOCK_TYPE ";var monitor_block_properties_constants="MONITOR_BLOCK_AFTER_FINISH_EVENT "+"MONITOR_BLOCK_BEFORE_START_EVENT "+"MONITOR_BLOCK_DEADLINE_PROPERTY "+"MONITOR_BLOCK_INTERVAL_PROPERTY "+"MONITOR_BLOCK_INTERVAL_TYPE_PROPERTY "+"MONITOR_BLOCK_IS_RELATIVE_DEADLINE_PROPERTY "+"MONITOR_BLOCK_NAME_PROPERTY "+"MONITOR_BLOCK_RELATIVE_DEADLINE_TYPE_PROPERTY "+"MONITOR_BLOCK_SEARCH_SCRIPT_PROPERTY ";var notice_block_properties_constants="NOTICE_BLOCK_AFTER_FINISH_EVENT "+"NOTICE_BLOCK_ATTACHMENT_PROPERTY "+"NOTICE_BLOCK_ATTACHMENTS_RIGHTS_GROUP_PROPERTY "+"NOTICE_BLOCK_ATTACHMENTS_RIGHTS_TYPE_PROPERTY "+"NOTICE_BLOCK_BEFORE_START_EVENT "+"NOTICE_BLOCK_CREATED_NOTICES_PROPERTY "+"NOTICE_BLOCK_DEADLINE_PROPERTY "+"NOTICE_BLOCK_IS_RELATIVE_DEADLINE_PROPERTY "+"NOTICE_BLOCK_NAME_PROPERTY "+"NOTICE_BLOCK_NOTICE_TEXT_PROPERTY "+"NOTICE_BLOCK_PERFORMER_PROPERTY "+"NOTICE_BLOCK_RELATIVE_DEADLINE_TYPE_PROPERTY "+"NOTICE_BLOCK_SUBJECT_PROPERTY ";var object_events_constants="dseAfterCancel "+"dseAfterClose "+"dseAfterDelete "+"dseAfterDeleteOutOfTransaction "+"dseAfterInsert "+"dseAfterOpen "+"dseAfterScroll "+"dseAfterUpdate "+"dseAfterUpdateOutOfTransaction "+"dseBeforeCancel "+"dseBeforeClose "+"dseBeforeDelete "+"dseBeforeDetailUpdate "+"dseBeforeInsert "+"dseBeforeOpen "+"dseBeforeUpdate "+"dseOnAnyRequisiteChange "+"dseOnCloseRecord "+"dseOnDeleteError "+"dseOnOpenRecord "+"dseOnPrepareUpdate "+"dseOnUpdateError "+"dseOnUpdateRatifiedRecord "+"dseOnValidDelete "+"dseOnValidUpdate "+"reOnChange "+"reOnChangeValues "+"SELECTION_BEGIN_ROUTE_EVENT "+"SELECTION_END_ROUTE_EVENT ";var object_params_constants="CURRENT_PERIOD_IS_REQUIRED "+"PREVIOUS_CARD_TYPE_NAME "+"SHOW_RECORD_PROPERTIES_FORM ";var other_constants="ACCESS_RIGHTS_SETTING_DIALOG_CODE "+"ADMINISTRATOR_USER_CODE "+"ANALYTIC_REPORT_TYPE "+"asrtHideLocal "+"asrtHideRemote "+"CALCULATED_ROLE_TYPE_CODE "+"COMPONENTS_REFERENCE_DEVELOPER_VIEW_CODE "+"DCTS_TEST_PROTOCOLS_FOLDER_PATH "+"E_EDOC_VERSION_ALREADY_APPROVINGLY_SIGNED "+"E_EDOC_VERSION_ALREADY_APPROVINGLY_SIGNED_BY_USER "+"E_EDOC_VERSION_ALREDY_SIGNED "+"E_EDOC_VERSION_ALREDY_SIGNED_BY_USER "+"EDOC_TYPES_CODE_REQUISITE_FIELD_NAME "+"EDOCUMENTS_ALIAS_NAME "+"FILES_FOLDER_PATH "+"FILTER_OPERANDS_DELIMITER "+"FILTER_OPERATIONS_DELIMITER "+"FORMCARD_NAME "+"FORMLIST_NAME "+"GET_EXTENDED_DOCUMENT_EXTENSION_CREATION_MODE "+"GET_EXTENDED_DOCUMENT_EXTENSION_IMPORT_MODE "+"INTEGRATED_REPORT_TYPE "+"IS_BUILDER_APPLICATION_ROLE "+"IS_BUILDER_APPLICATION_ROLE2 "+"IS_BUILDER_USERS "+"ISBSYSDEV "+"LOG_FOLDER_PATH "+"mbCancel "+"mbNo "+"mbNoToAll "+"mbOK "+"mbYes "+"mbYesToAll "+"MEMORY_DATASET_DESRIPTIONS_FILENAME "+"mrNo "+"mrNoToAll "+"mrYes "+"mrYesToAll "+"MULTIPLE_SELECT_DIALOG_CODE "+"NONOPERATING_RECORD_FLAG_FEMININE "+"NONOPERATING_RECORD_FLAG_MASCULINE "+"OPERATING_RECORD_FLAG_FEMININE "+"OPERATING_RECORD_FLAG_MASCULINE "+"PROFILING_SETTINGS_COMMON_SETTINGS_CODE_VALUE "+"PROGRAM_INITIATED_LOOKUP_ACTION "+"ratDelete "+"ratEdit "+"ratInsert "+"REPORT_TYPE "+"REQUIRED_PICK_VALUES_VARIABLE "+"rmCard "+"rmList "+"SBRTE_PROGID_DEV "+"SBRTE_PROGID_RELEASE "+"STATIC_ROLE_TYPE_CODE "+"SUPPRESS_EMPTY_TEMPLATE_CREATION "+"SYSTEM_USER_CODE "+"UPDATE_DIALOG_DATASET "+"USED_IN_OBJECT_HINT_PARAM "+"USER_INITIATED_LOOKUP_ACTION "+"USER_NAME_FORMAT "+"USER_SELECTION_RESTRICTIONS "+"WORKFLOW_TEST_PROTOCOLS_FOLDER_PATH "+"ELS_SUBTYPE_CONTROL_NAME "+"ELS_FOLDER_KIND_CONTROL_NAME "+"REPEAT_PROCESS_CURRENT_OBJECT_EXCEPTION_NAME ";var privileges_constants="PRIVILEGE_COMPONENT_FULL_ACCESS "+"PRIVILEGE_DEVELOPMENT_EXPORT "+"PRIVILEGE_DEVELOPMENT_IMPORT "+"PRIVILEGE_DOCUMENT_DELETE "+"PRIVILEGE_ESD "+"PRIVILEGE_FOLDER_DELETE "+"PRIVILEGE_MANAGE_ACCESS_RIGHTS "+"PRIVILEGE_MANAGE_REPLICATION "+"PRIVILEGE_MANAGE_SESSION_SERVER "+"PRIVILEGE_OBJECT_FULL_ACCESS "+"PRIVILEGE_OBJECT_VIEW "+"PRIVILEGE_RESERVE_LICENSE "+"PRIVILEGE_SYSTEM_CUSTOMIZE "+"PRIVILEGE_SYSTEM_DEVELOP "+"PRIVILEGE_SYSTEM_INSTALL "+"PRIVILEGE_TASK_DELETE "+"PRIVILEGE_USER_PLUGIN_SETTINGS_CUSTOMIZE "+"PRIVILEGES_PSEUDOREFERENCE_CODE ";var pseudoreference_code_constants="ACCESS_TYPES_PSEUDOREFERENCE_CODE "+"ALL_AVAILABLE_COMPONENTS_PSEUDOREFERENCE_CODE "+"ALL_AVAILABLE_PRIVILEGES_PSEUDOREFERENCE_CODE "+"ALL_REPLICATE_COMPONENTS_PSEUDOREFERENCE_CODE "+"AVAILABLE_DEVELOPERS_COMPONENTS_PSEUDOREFERENCE_CODE "+"COMPONENTS_PSEUDOREFERENCE_CODE "+"FILTRATER_SETTINGS_CONFLICTS_PSEUDOREFERENCE_CODE "+"GROUPS_PSEUDOREFERENCE_CODE "+"RECEIVE_PROTOCOL_PSEUDOREFERENCE_CODE "+"REFERENCE_REQUISITE_PSEUDOREFERENCE_CODE "+"REFERENCE_REQUISITES_PSEUDOREFERENCE_CODE "+"REFTYPES_PSEUDOREFERENCE_CODE "+"REPLICATION_SEANCES_DIARY_PSEUDOREFERENCE_CODE "+"SEND_PROTOCOL_PSEUDOREFERENCE_CODE "+"SUBSTITUTES_PSEUDOREFERENCE_CODE "+"SYSTEM_SETTINGS_PSEUDOREFERENCE_CODE "+"UNITS_PSEUDOREFERENCE_CODE "+"USERS_PSEUDOREFERENCE_CODE "+"VIEWERS_PSEUDOREFERENCE_CODE ";var requisite_ISBCertificateType_values_constants="CERTIFICATE_TYPE_ENCRYPT "+"CERTIFICATE_TYPE_SIGN "+"CERTIFICATE_TYPE_SIGN_AND_ENCRYPT ";var requisite_ISBEDocStorageType_values_constants="STORAGE_TYPE_FILE "+"STORAGE_TYPE_NAS_CIFS "+"STORAGE_TYPE_SAPERION "+"STORAGE_TYPE_SQL_SERVER ";var requisite_compType2_values_constants="COMPTYPE2_REQUISITE_DOCUMENTS_VALUE "+"COMPTYPE2_REQUISITE_TASKS_VALUE "+"COMPTYPE2_REQUISITE_FOLDERS_VALUE "+"COMPTYPE2_REQUISITE_REFERENCES_VALUE ";var requisite_name_constants="SYSREQ_CODE "+"SYSREQ_COMPTYPE2 "+"SYSREQ_CONST_AVAILABLE_FOR_WEB "+"SYSREQ_CONST_COMMON_CODE "+"SYSREQ_CONST_COMMON_VALUE "+"SYSREQ_CONST_FIRM_CODE "+"SYSREQ_CONST_FIRM_STATUS "+"SYSREQ_CONST_FIRM_VALUE "+"SYSREQ_CONST_SERVER_STATUS "+"SYSREQ_CONTENTS "+"SYSREQ_DATE_OPEN "+"SYSREQ_DATE_CLOSE "+"SYSREQ_DESCRIPTION "+"SYSREQ_DESCRIPTION_LOCALIZE_ID "+"SYSREQ_DOUBLE "+"SYSREQ_EDOC_ACCESS_TYPE "+"SYSREQ_EDOC_AUTHOR "+"SYSREQ_EDOC_CREATED "+"SYSREQ_EDOC_DELEGATE_RIGHTS_REQUISITE_CODE "+"SYSREQ_EDOC_EDITOR "+"SYSREQ_EDOC_ENCODE_TYPE "+"SYSREQ_EDOC_ENCRYPTION_PLUGIN_NAME "+"SYSREQ_EDOC_ENCRYPTION_PLUGIN_VERSION "+"SYSREQ_EDOC_EXPORT_DATE "+"SYSREQ_EDOC_EXPORTER "+"SYSREQ_EDOC_KIND "+"SYSREQ_EDOC_LIFE_STAGE_NAME "+"SYSREQ_EDOC_LOCKED_FOR_SERVER_CODE "+"SYSREQ_EDOC_MODIFIED "+"SYSREQ_EDOC_NAME "+"SYSREQ_EDOC_NOTE "+"SYSREQ_EDOC_QUALIFIED_ID "+"SYSREQ_EDOC_SESSION_KEY "+"SYSREQ_EDOC_SESSION_KEY_ENCRYPTION_PLUGIN_NAME "+"SYSREQ_EDOC_SESSION_KEY_ENCRYPTION_PLUGIN_VERSION "+"SYSREQ_EDOC_SIGNATURE_TYPE "+"SYSREQ_EDOC_SIGNED "+"SYSREQ_EDOC_STORAGE "+"SYSREQ_EDOC_STORAGES_ARCHIVE_STORAGE "+"SYSREQ_EDOC_STORAGES_CHECK_RIGHTS "+"SYSREQ_EDOC_STORAGES_COMPUTER_NAME "+"SYSREQ_EDOC_STORAGES_EDIT_IN_STORAGE "+"SYSREQ_EDOC_STORAGES_EXECUTIVE_STORAGE "+"SYSREQ_EDOC_STORAGES_FUNCTION "+"SYSREQ_EDOC_STORAGES_INITIALIZED "+"SYSREQ_EDOC_STORAGES_LOCAL_PATH "+"SYSREQ_EDOC_STORAGES_SAPERION_DATABASE_NAME "+"SYSREQ_EDOC_STORAGES_SEARCH_BY_TEXT "+"SYSREQ_EDOC_STORAGES_SERVER_NAME "+"SYSREQ_EDOC_STORAGES_SHARED_SOURCE_NAME "+"SYSREQ_EDOC_STORAGES_TYPE "+"SYSREQ_EDOC_TEXT_MODIFIED "+"SYSREQ_EDOC_TYPE_ACT_CODE "+"SYSREQ_EDOC_TYPE_ACT_DESCRIPTION "+"SYSREQ_EDOC_TYPE_ACT_DESCRIPTION_LOCALIZE_ID "+"SYSREQ_EDOC_TYPE_ACT_ON_EXECUTE "+"SYSREQ_EDOC_TYPE_ACT_ON_EXECUTE_EXISTS "+"SYSREQ_EDOC_TYPE_ACT_SECTION "+"SYSREQ_EDOC_TYPE_ADD_PARAMS "+"SYSREQ_EDOC_TYPE_COMMENT "+"SYSREQ_EDOC_TYPE_EVENT_TEXT "+"SYSREQ_EDOC_TYPE_NAME_IN_SINGULAR "+"SYSREQ_EDOC_TYPE_NAME_IN_SINGULAR_LOCALIZE_ID "+"SYSREQ_EDOC_TYPE_NAME_LOCALIZE_ID "+"SYSREQ_EDOC_TYPE_NUMERATION_METHOD "+"SYSREQ_EDOC_TYPE_PSEUDO_REQUISITE_CODE "+"SYSREQ_EDOC_TYPE_REQ_CODE "+"SYSREQ_EDOC_TYPE_REQ_DESCRIPTION "+"SYSREQ_EDOC_TYPE_REQ_DESCRIPTION_LOCALIZE_ID "+"SYSREQ_EDOC_TYPE_REQ_IS_LEADING "+"SYSREQ_EDOC_TYPE_REQ_IS_REQUIRED "+"SYSREQ_EDOC_TYPE_REQ_NUMBER "+"SYSREQ_EDOC_TYPE_REQ_ON_CHANGE "+"SYSREQ_EDOC_TYPE_REQ_ON_CHANGE_EXISTS "+"SYSREQ_EDOC_TYPE_REQ_ON_SELECT "+"SYSREQ_EDOC_TYPE_REQ_ON_SELECT_KIND "+"SYSREQ_EDOC_TYPE_REQ_SECTION "+"SYSREQ_EDOC_TYPE_VIEW_CARD "+"SYSREQ_EDOC_TYPE_VIEW_CODE "+"SYSREQ_EDOC_TYPE_VIEW_COMMENT "+"SYSREQ_EDOC_TYPE_VIEW_IS_MAIN "+"SYSREQ_EDOC_TYPE_VIEW_NAME "+"SYSREQ_EDOC_TYPE_VIEW_NAME_LOCALIZE_ID "+"SYSREQ_EDOC_VERSION_AUTHOR "+"SYSREQ_EDOC_VERSION_CRC "+"SYSREQ_EDOC_VERSION_DATA "+"SYSREQ_EDOC_VERSION_EDITOR "+"SYSREQ_EDOC_VERSION_EXPORT_DATE "+"SYSREQ_EDOC_VERSION_EXPORTER "+"SYSREQ_EDOC_VERSION_HIDDEN "+"SYSREQ_EDOC_VERSION_LIFE_STAGE "+"SYSREQ_EDOC_VERSION_MODIFIED "+"SYSREQ_EDOC_VERSION_NOTE "+"SYSREQ_EDOC_VERSION_SIGNATURE_TYPE "+"SYSREQ_EDOC_VERSION_SIGNED "+"SYSREQ_EDOC_VERSION_SIZE "+"SYSREQ_EDOC_VERSION_SOURCE "+"SYSREQ_EDOC_VERSION_TEXT_MODIFIED "+"SYSREQ_EDOCKIND_DEFAULT_VERSION_STATE_CODE "+"SYSREQ_FOLDER_KIND "+"SYSREQ_FUNC_CATEGORY "+"SYSREQ_FUNC_COMMENT "+"SYSREQ_FUNC_GROUP "+"SYSREQ_FUNC_GROUP_COMMENT "+"SYSREQ_FUNC_GROUP_NUMBER "+"SYSREQ_FUNC_HELP "+"SYSREQ_FUNC_PARAM_DEF_VALUE "+"SYSREQ_FUNC_PARAM_IDENT "+"SYSREQ_FUNC_PARAM_NUMBER "+"SYSREQ_FUNC_PARAM_TYPE "+"SYSREQ_FUNC_TEXT "+"SYSREQ_GROUP_CATEGORY "+"SYSREQ_ID "+"SYSREQ_LAST_UPDATE "+"SYSREQ_LEADER_REFERENCE "+"SYSREQ_LINE_NUMBER "+"SYSREQ_MAIN_RECORD_ID "+"SYSREQ_NAME "+"SYSREQ_NAME_LOCALIZE_ID "+"SYSREQ_NOTE "+"SYSREQ_ORIGINAL_RECORD "+"SYSREQ_OUR_FIRM "+"SYSREQ_PROFILING_SETTINGS_BATCH_LOGING "+"SYSREQ_PROFILING_SETTINGS_BATCH_SIZE "+"SYSREQ_PROFILING_SETTINGS_PROFILING_ENABLED "+"SYSREQ_PROFILING_SETTINGS_SQL_PROFILING_ENABLED "+"SYSREQ_PROFILING_SETTINGS_START_LOGGED "+"SYSREQ_RECORD_STATUS "+"SYSREQ_REF_REQ_FIELD_NAME "+"SYSREQ_REF_REQ_FORMAT "+"SYSREQ_REF_REQ_GENERATED "+"SYSREQ_REF_REQ_LENGTH "+"SYSREQ_REF_REQ_PRECISION "+"SYSREQ_REF_REQ_REFERENCE "+"SYSREQ_REF_REQ_SECTION "+"SYSREQ_REF_REQ_STORED "+"SYSREQ_REF_REQ_TOKENS "+"SYSREQ_REF_REQ_TYPE "+"SYSREQ_REF_REQ_VIEW "+"SYSREQ_REF_TYPE_ACT_CODE "+"SYSREQ_REF_TYPE_ACT_DESCRIPTION "+"SYSREQ_REF_TYPE_ACT_DESCRIPTION_LOCALIZE_ID "+"SYSREQ_REF_TYPE_ACT_ON_EXECUTE "+"SYSREQ_REF_TYPE_ACT_ON_EXECUTE_EXISTS "+"SYSREQ_REF_TYPE_ACT_SECTION "+"SYSREQ_REF_TYPE_ADD_PARAMS "+"SYSREQ_REF_TYPE_COMMENT "+"SYSREQ_REF_TYPE_COMMON_SETTINGS "+"SYSREQ_REF_TYPE_DISPLAY_REQUISITE_NAME "+"SYSREQ_REF_TYPE_EVENT_TEXT "+"SYSREQ_REF_TYPE_MAIN_LEADING_REF "+"SYSREQ_REF_TYPE_NAME_IN_SINGULAR "+"SYSREQ_REF_TYPE_NAME_IN_SINGULAR_LOCALIZE_ID "+"SYSREQ_REF_TYPE_NAME_LOCALIZE_ID "+"SYSREQ_REF_TYPE_NUMERATION_METHOD "+"SYSREQ_REF_TYPE_REQ_CODE "+"SYSREQ_REF_TYPE_REQ_DESCRIPTION "+"SYSREQ_REF_TYPE_REQ_DESCRIPTION_LOCALIZE_ID "+"SYSREQ_REF_TYPE_REQ_IS_CONTROL "+"SYSREQ_REF_TYPE_REQ_IS_FILTER "+"SYSREQ_REF_TYPE_REQ_IS_LEADING "+"SYSREQ_REF_TYPE_REQ_IS_REQUIRED "+"SYSREQ_REF_TYPE_REQ_NUMBER "+"SYSREQ_REF_TYPE_REQ_ON_CHANGE "+"SYSREQ_REF_TYPE_REQ_ON_CHANGE_EXISTS "+"SYSREQ_REF_TYPE_REQ_ON_SELECT "+"SYSREQ_REF_TYPE_REQ_ON_SELECT_KIND "+"SYSREQ_REF_TYPE_REQ_SECTION "+"SYSREQ_REF_TYPE_VIEW_CARD "+"SYSREQ_REF_TYPE_VIEW_CODE "+"SYSREQ_REF_TYPE_VIEW_COMMENT "+"SYSREQ_REF_TYPE_VIEW_IS_MAIN "+"SYSREQ_REF_TYPE_VIEW_NAME "+"SYSREQ_REF_TYPE_VIEW_NAME_LOCALIZE_ID "+"SYSREQ_REFERENCE_TYPE_ID "+"SYSREQ_STATE "+"SYSREQ_STATЕ "+"SYSREQ_SYSTEM_SETTINGS_VALUE "+"SYSREQ_TYPE "+"SYSREQ_UNIT "+"SYSREQ_UNIT_ID "+"SYSREQ_USER_GROUPS_GROUP_FULL_NAME "+"SYSREQ_USER_GROUPS_GROUP_NAME "+"SYSREQ_USER_GROUPS_GROUP_SERVER_NAME "+"SYSREQ_USERS_ACCESS_RIGHTS "+"SYSREQ_USERS_AUTHENTICATION "+"SYSREQ_USERS_CATEGORY "+"SYSREQ_USERS_COMPONENT "+"SYSREQ_USERS_COMPONENT_USER_IS_PUBLIC "+"SYSREQ_USERS_DOMAIN "+"SYSREQ_USERS_FULL_USER_NAME "+"SYSREQ_USERS_GROUP "+"SYSREQ_USERS_IS_MAIN_SERVER "+"SYSREQ_USERS_LOGIN "+"SYSREQ_USERS_REFERENCE_USER_IS_PUBLIC "+"SYSREQ_USERS_STATUS "+"SYSREQ_USERS_USER_CERTIFICATE "+"SYSREQ_USERS_USER_CERTIFICATE_INFO "+"SYSREQ_USERS_USER_CERTIFICATE_PLUGIN_NAME "+"SYSREQ_USERS_USER_CERTIFICATE_PLUGIN_VERSION "+"SYSREQ_USERS_USER_CERTIFICATE_STATE "+"SYSREQ_USERS_USER_CERTIFICATE_SUBJECT_NAME "+"SYSREQ_USERS_USER_CERTIFICATE_THUMBPRINT "+"SYSREQ_USERS_USER_DEFAULT_CERTIFICATE "+"SYSREQ_USERS_USER_DESCRIPTION "+"SYSREQ_USERS_USER_GLOBAL_NAME "+"SYSREQ_USERS_USER_LOGIN "+"SYSREQ_USERS_USER_MAIN_SERVER "+"SYSREQ_USERS_USER_TYPE "+"SYSREQ_WORK_RULES_FOLDER_ID ";var result_constants="RESULT_VAR_NAME RESULT_VAR_NAME_ENG ";var rule_identification_constants="AUTO_NUMERATION_RULE_ID "+"CANT_CHANGE_ID_REQUISITE_RULE_ID "+"CANT_CHANGE_OURFIRM_REQUISITE_RULE_ID "+"CHECK_CHANGING_REFERENCE_RECORD_USE_RULE_ID "+"CHECK_CODE_REQUISITE_RULE_ID "+"CHECK_DELETING_REFERENCE_RECORD_USE_RULE_ID "+"CHECK_FILTRATER_CHANGES_RULE_ID "+"CHECK_RECORD_INTERVAL_RULE_ID "+"CHECK_REFERENCE_INTERVAL_RULE_ID "+"CHECK_REQUIRED_DATA_FULLNESS_RULE_ID "+"CHECK_REQUIRED_REQUISITES_FULLNESS_RULE_ID "+"MAKE_RECORD_UNRATIFIED_RULE_ID "+"RESTORE_AUTO_NUMERATION_RULE_ID "+"SET_FIRM_CONTEXT_FROM_RECORD_RULE_ID "+"SET_FIRST_RECORD_IN_LIST_FORM_RULE_ID "+"SET_IDSPS_VALUE_RULE_ID "+"SET_NEXT_CODE_VALUE_RULE_ID "+"SET_OURFIRM_BOUNDS_RULE_ID "+"SET_OURFIRM_REQUISITE_RULE_ID ";var script_block_properties_constants="SCRIPT_BLOCK_AFTER_FINISH_EVENT "+"SCRIPT_BLOCK_BEFORE_START_EVENT "+"SCRIPT_BLOCK_EXECUTION_RESULTS_PROPERTY "+"SCRIPT_BLOCK_NAME_PROPERTY "+"SCRIPT_BLOCK_SCRIPT_PROPERTY ";var subtask_block_properties_constants="SUBTASK_BLOCK_ABORT_DEADLINE_PROPERTY "+"SUBTASK_BLOCK_AFTER_FINISH_EVENT "+"SUBTASK_BLOCK_ASSIGN_PARAMS_EVENT "+"SUBTASK_BLOCK_ATTACHMENTS_PROPERTY "+"SUBTASK_BLOCK_ATTACHMENTS_RIGHTS_GROUP_PROPERTY "+"SUBTASK_BLOCK_ATTACHMENTS_RIGHTS_TYPE_PROPERTY "+"SUBTASK_BLOCK_BEFORE_START_EVENT "+"SUBTASK_BLOCK_CREATED_TASK_PROPERTY "+"SUBTASK_BLOCK_CREATION_EVENT "+"SUBTASK_BLOCK_DEADLINE_PROPERTY "+"SUBTASK_BLOCK_IMPORTANCE_PROPERTY "+"SUBTASK_BLOCK_INITIATOR_PROPERTY "+"SUBTASK_BLOCK_IS_RELATIVE_ABORT_DEADLINE_PROPERTY "+"SUBTASK_BLOCK_IS_RELATIVE_DEADLINE_PROPERTY "+"SUBTASK_BLOCK_JOBS_TYPE_PROPERTY "+"SUBTASK_BLOCK_NAME_PROPERTY "+"SUBTASK_BLOCK_PARALLEL_ROUTE_PROPERTY "+"SUBTASK_BLOCK_PERFORMERS_PROPERTY "+"SUBTASK_BLOCK_RELATIVE_ABORT_DEADLINE_TYPE_PROPERTY "+"SUBTASK_BLOCK_RELATIVE_DEADLINE_TYPE_PROPERTY "+"SUBTASK_BLOCK_REQUIRE_SIGN_PROPERTY "+"SUBTASK_BLOCK_STANDARD_ROUTE_PROPERTY "+"SUBTASK_BLOCK_START_EVENT "+"SUBTASK_BLOCK_STEP_CONTROL_PROPERTY "+"SUBTASK_BLOCK_SUBJECT_PROPERTY "+"SUBTASK_BLOCK_TASK_CONTROL_PROPERTY "+"SUBTASK_BLOCK_TEXT_PROPERTY "+"SUBTASK_BLOCK_UNLOCK_ATTACHMENTS_ON_STOP_PROPERTY "+"SUBTASK_BLOCK_USE_STANDARD_ROUTE_PROPERTY "+"SUBTASK_BLOCK_WAIT_FOR_TASK_COMPLETE_PROPERTY ";var system_component_constants="SYSCOMP_CONTROL_JOBS "+"SYSCOMP_FOLDERS "+"SYSCOMP_JOBS "+"SYSCOMP_NOTICES "+"SYSCOMP_TASKS ";var system_dialogs_constants="SYSDLG_CREATE_EDOCUMENT "+"SYSDLG_CREATE_EDOCUMENT_VERSION "+"SYSDLG_CURRENT_PERIOD "+"SYSDLG_EDIT_FUNCTION_HELP "+"SYSDLG_EDOCUMENT_KINDS_FOR_TEMPLATE "+"SYSDLG_EXPORT_MULTIPLE_EDOCUMENTS "+"SYSDLG_EXPORT_SINGLE_EDOCUMENT "+"SYSDLG_IMPORT_EDOCUMENT "+"SYSDLG_MULTIPLE_SELECT "+"SYSDLG_SETUP_ACCESS_RIGHTS "+"SYSDLG_SETUP_DEFAULT_RIGHTS "+"SYSDLG_SETUP_FILTER_CONDITION "+"SYSDLG_SETUP_SIGN_RIGHTS "+"SYSDLG_SETUP_TASK_OBSERVERS "+"SYSDLG_SETUP_TASK_ROUTE "+"SYSDLG_SETUP_USERS_LIST "+"SYSDLG_SIGN_EDOCUMENT "+"SYSDLG_SIGN_MULTIPLE_EDOCUMENTS ";var system_reference_names_constants="SYSREF_ACCESS_RIGHTS_TYPES "+"SYSREF_ADMINISTRATION_HISTORY "+"SYSREF_ALL_AVAILABLE_COMPONENTS "+"SYSREF_ALL_AVAILABLE_PRIVILEGES "+"SYSREF_ALL_REPLICATING_COMPONENTS "+"SYSREF_AVAILABLE_DEVELOPERS_COMPONENTS "+"SYSREF_CALENDAR_EVENTS "+"SYSREF_COMPONENT_TOKEN_HISTORY "+"SYSREF_COMPONENT_TOKENS "+"SYSREF_COMPONENTS "+"SYSREF_CONSTANTS "+"SYSREF_DATA_RECEIVE_PROTOCOL "+"SYSREF_DATA_SEND_PROTOCOL "+"SYSREF_DIALOGS "+"SYSREF_DIALOGS_REQUISITES "+"SYSREF_EDITORS "+"SYSREF_EDOC_CARDS "+"SYSREF_EDOC_TYPES "+"SYSREF_EDOCUMENT_CARD_REQUISITES "+"SYSREF_EDOCUMENT_CARD_TYPES "+"SYSREF_EDOCUMENT_CARD_TYPES_REFERENCE "+"SYSREF_EDOCUMENT_CARDS "+"SYSREF_EDOCUMENT_HISTORY "+"SYSREF_EDOCUMENT_KINDS "+"SYSREF_EDOCUMENT_REQUISITES "+"SYSREF_EDOCUMENT_SIGNATURES "+"SYSREF_EDOCUMENT_TEMPLATES "+"SYSREF_EDOCUMENT_TEXT_STORAGES "+"SYSREF_EDOCUMENT_VIEWS "+"SYSREF_FILTERER_SETUP_CONFLICTS "+"SYSREF_FILTRATER_SETTING_CONFLICTS "+"SYSREF_FOLDER_HISTORY "+"SYSREF_FOLDERS "+"SYSREF_FUNCTION_GROUPS "+"SYSREF_FUNCTION_PARAMS "+"SYSREF_FUNCTIONS "+"SYSREF_JOB_HISTORY "+"SYSREF_LINKS "+"SYSREF_LOCALIZATION_DICTIONARY "+"SYSREF_LOCALIZATION_LANGUAGES "+"SYSREF_MODULES "+"SYSREF_PRIVILEGES "+"SYSREF_RECORD_HISTORY "+"SYSREF_REFERENCE_REQUISITES "+"SYSREF_REFERENCE_TYPE_VIEWS "+"SYSREF_REFERENCE_TYPES "+"SYSREF_REFERENCES "+"SYSREF_REFERENCES_REQUISITES "+"SYSREF_REMOTE_SERVERS "+"SYSREF_REPLICATION_SESSIONS_LOG "+"SYSREF_REPLICATION_SESSIONS_PROTOCOL "+"SYSREF_REPORTS "+"SYSREF_ROLES "+"SYSREF_ROUTE_BLOCK_GROUPS "+"SYSREF_ROUTE_BLOCKS "+"SYSREF_SCRIPTS "+"SYSREF_SEARCHES "+"SYSREF_SERVER_EVENTS "+"SYSREF_SERVER_EVENTS_HISTORY "+"SYSREF_STANDARD_ROUTE_GROUPS "+"SYSREF_STANDARD_ROUTES "+"SYSREF_STATUSES "+"SYSREF_SYSTEM_SETTINGS "+"SYSREF_TASK_HISTORY "+"SYSREF_TASK_KIND_GROUPS "+"SYSREF_TASK_KINDS "+"SYSREF_TASK_RIGHTS "+"SYSREF_TASK_SIGNATURES "+"SYSREF_TASKS "+"SYSREF_UNITS "+"SYSREF_USER_GROUPS "+"SYSREF_USER_GROUPS_REFERENCE "+"SYSREF_USER_SUBSTITUTION "+"SYSREF_USERS "+"SYSREF_USERS_REFERENCE "+"SYSREF_VIEWERS "+"SYSREF_WORKING_TIME_CALENDARS ";var table_name_constants="ACCESS_RIGHTS_TABLE_NAME "+"EDMS_ACCESS_TABLE_NAME "+"EDOC_TYPES_TABLE_NAME ";var test_constants="TEST_DEV_DB_NAME "+"TEST_DEV_SYSTEM_CODE "+"TEST_EDMS_DB_NAME "+"TEST_EDMS_MAIN_CODE "+"TEST_EDMS_MAIN_DB_NAME "+"TEST_EDMS_SECOND_CODE "+"TEST_EDMS_SECOND_DB_NAME "+"TEST_EDMS_SYSTEM_CODE "+"TEST_ISB5_MAIN_CODE "+"TEST_ISB5_SECOND_CODE "+"TEST_SQL_SERVER_2005_NAME "+"TEST_SQL_SERVER_NAME ";var using_the_dialog_windows_constants="ATTENTION_CAPTION "+"cbsCommandLinks "+"cbsDefault "+"CONFIRMATION_CAPTION "+"ERROR_CAPTION "+"INFORMATION_CAPTION "+"mrCancel "+"mrOk ";var using_the_document_constants="EDOC_VERSION_ACTIVE_STAGE_CODE "+"EDOC_VERSION_DESIGN_STAGE_CODE "+"EDOC_VERSION_OBSOLETE_STAGE_CODE ";var using_the_EA_and_encryption_constants="cpDataEnciphermentEnabled "+"cpDigitalSignatureEnabled "+"cpID "+"cpIssuer "+"cpPluginVersion "+"cpSerial "+"cpSubjectName "+"cpSubjSimpleName "+"cpValidFromDate "+"cpValidToDate ";var using_the_ISBL_editor_constants="ISBL_SYNTAX "+"NO_SYNTAX "+"XML_SYNTAX ";var wait_block_properties_constants="WAIT_BLOCK_AFTER_FINISH_EVENT "+"WAIT_BLOCK_BEFORE_START_EVENT "+"WAIT_BLOCK_DEADLINE_PROPERTY "+"WAIT_BLOCK_IS_RELATIVE_DEADLINE_PROPERTY "+"WAIT_BLOCK_NAME_PROPERTY "+"WAIT_BLOCK_RELATIVE_DEADLINE_TYPE_PROPERTY ";var sysres_common_constants="SYSRES_COMMON "+"SYSRES_CONST "+"SYSRES_MBFUNC "+"SYSRES_SBDATA "+"SYSRES_SBGUI "+"SYSRES_SBINTF "+"SYSRES_SBREFDSC "+"SYSRES_SQLERRORS "+"SYSRES_SYSCOMP ";var CONSTANTS=sysres_constants+base_constants+base_group_name_constants+decision_block_properties_constants+file_extension_constants+job_block_properties_constants+language_code_constants+launching_external_applications_constants+link_kind_constants+lock_type_constants+monitor_block_properties_constants+notice_block_properties_constants+object_events_constants+object_params_constants+other_constants+privileges_constants+pseudoreference_code_constants+requisite_ISBCertificateType_values_constants+requisite_ISBEDocStorageType_values_constants+requisite_compType2_values_constants+requisite_name_constants+result_constants+rule_identification_constants+script_block_properties_constants+subtask_block_properties_constants+system_component_constants+system_dialogs_constants+system_reference_names_constants+table_name_constants+test_constants+using_the_dialog_windows_constants+using_the_document_constants+using_the_EA_and_encryption_constants+using_the_ISBL_editor_constants+wait_block_properties_constants+sysres_common_constants;var TAccountType="atUser atGroup atRole ";var TActionEnabledMode="aemEnabledAlways "+"aemDisabledAlways "+"aemEnabledOnBrowse "+"aemEnabledOnEdit "+"aemDisabledOnBrowseEmpty ";var TAddPosition="apBegin apEnd ";var TAlignment="alLeft alRight ";var TAreaShowMode="asmNever "+"asmNoButCustomize "+"asmAsLastTime "+"asmYesButCustomize "+"asmAlways ";var TCertificateInvalidationReason="cirCommon cirRevoked ";var TCertificateType="ctSignature ctEncode ctSignatureEncode ";var TCheckListBoxItemState="clbUnchecked clbChecked clbGrayed ";var TCloseOnEsc="ceISB ceAlways ceNever ";var TCompType="ctDocument "+"ctReference "+"ctScript "+"ctUnknown "+"ctReport "+"ctDialog "+"ctFunction "+"ctFolder "+"ctEDocument "+"ctTask "+"ctJob "+"ctNotice "+"ctControlJob ";var TConditionFormat="cfInternal cfDisplay ";var TConnectionIntent="ciUnspecified ciWrite ciRead ";var TContentKind="ckFolder "+"ckEDocument "+"ckTask "+"ckJob "+"ckComponentToken "+"ckAny "+"ckReference "+"ckScript "+"ckReport "+"ckDialog ";var TControlType="ctISBLEditor "+"ctBevel "+"ctButton "+"ctCheckListBox "+"ctComboBox "+"ctComboEdit "+"ctGrid "+"ctDBCheckBox "+"ctDBComboBox "+"ctDBEdit "+"ctDBEllipsis "+"ctDBMemo "+"ctDBNavigator "+"ctDBRadioGroup "+"ctDBStatusLabel "+"ctEdit "+"ctGroupBox "+"ctInplaceHint "+"ctMemo "+"ctPanel "+"ctListBox "+"ctRadioButton "+"ctRichEdit "+"ctTabSheet "+"ctWebBrowser "+"ctImage "+"ctHyperLink "+"ctLabel "+"ctDBMultiEllipsis "+"ctRibbon "+"ctRichView "+"ctInnerPanel "+"ctPanelGroup "+"ctBitButton ";var TCriterionContentType="cctDate "+"cctInteger "+"cctNumeric "+"cctPick "+"cctReference "+"cctString "+"cctText ";var TCultureType="cltInternal cltPrimary cltGUI ";var TDataSetEventType="dseBeforeOpen "+"dseAfterOpen "+"dseBeforeClose "+"dseAfterClose "+"dseOnValidDelete "+"dseBeforeDelete "+"dseAfterDelete "+"dseAfterDeleteOutOfTransaction "+"dseOnDeleteError "+"dseBeforeInsert "+"dseAfterInsert "+"dseOnValidUpdate "+"dseBeforeUpdate "+"dseOnUpdateRatifiedRecord "+"dseAfterUpdate "+"dseAfterUpdateOutOfTransaction "+"dseOnUpdateError "+"dseAfterScroll "+"dseOnOpenRecord "+"dseOnCloseRecord "+"dseBeforeCancel "+"dseAfterCancel "+"dseOnUpdateDeadlockError "+"dseBeforeDetailUpdate "+"dseOnPrepareUpdate "+"dseOnAnyRequisiteChange ";var TDataSetState="dssEdit dssInsert dssBrowse dssInActive ";var TDateFormatType="dftDate dftShortDate dftDateTime dftTimeStamp ";var TDateOffsetType="dotDays dotHours dotMinutes dotSeconds ";var TDateTimeKind="dtkndLocal dtkndUTC ";var TDeaAccessRights="arNone arView arEdit arFull ";var TDocumentDefaultAction="ddaView ddaEdit ";var TEditMode="emLock "+"emEdit "+"emSign "+"emExportWithLock "+"emImportWithUnlock "+"emChangeVersionNote "+"emOpenForModify "+"emChangeLifeStage "+"emDelete "+"emCreateVersion "+"emImport "+"emUnlockExportedWithLock "+"emStart "+"emAbort "+"emReInit "+"emMarkAsReaded "+"emMarkAsUnreaded "+"emPerform "+"emAccept "+"emResume "+"emChangeRights "+"emEditRoute "+"emEditObserver "+"emRecoveryFromLocalCopy "+"emChangeWorkAccessType "+"emChangeEncodeTypeToCertificate "+"emChangeEncodeTypeToPassword "+"emChangeEncodeTypeToNone "+"emChangeEncodeTypeToCertificatePassword "+"emChangeStandardRoute "+"emGetText "+"emOpenForView "+"emMoveToStorage "+"emCreateObject "+"emChangeVersionHidden "+"emDeleteVersion "+"emChangeLifeCycleStage "+"emApprovingSign "+"emExport "+"emContinue "+"emLockFromEdit "+"emUnLockForEdit "+"emLockForServer "+"emUnlockFromServer "+"emDelegateAccessRights "+"emReEncode ";var TEditorCloseObservType="ecotFile ecotProcess ";var TEdmsApplicationAction="eaGet eaCopy eaCreate eaCreateStandardRoute ";var TEDocumentLockType="edltAll edltNothing edltQuery ";var TEDocumentStepShowMode="essmText essmCard ";var TEDocumentStepVersionType="esvtLast esvtLastActive esvtSpecified ";var TEDocumentStorageFunction="edsfExecutive edsfArchive ";var TEDocumentStorageType="edstSQLServer edstFile ";var TEDocumentVersionSourceType="edvstNone edvstEDocumentVersionCopy edvstFile edvstTemplate edvstScannedFile ";var TEDocumentVersionState="vsDefault vsDesign vsActive vsObsolete ";var TEncodeType="etNone etCertificate etPassword etCertificatePassword ";var TExceptionCategory="ecException ecWarning ecInformation ";var TExportedSignaturesType="estAll estApprovingOnly ";var TExportedVersionType="evtLast evtLastActive evtQuery ";var TFieldDataType="fdtString "+"fdtNumeric "+"fdtInteger "+"fdtDate "+"fdtText "+"fdtUnknown "+"fdtWideString "+"fdtLargeInteger ";var TFolderType="ftInbox "+"ftOutbox "+"ftFavorites "+"ftCommonFolder "+"ftUserFolder "+"ftComponents "+"ftQuickLaunch "+"ftShortcuts "+"ftSearch ";var TGridRowHeight="grhAuto "+"grhX1 "+"grhX2 "+"grhX3 ";var THyperlinkType="hltText "+"hltRTF "+"hltHTML ";var TImageFileFormat="iffBMP "+"iffJPEG "+"iffMultiPageTIFF "+"iffSinglePageTIFF "+"iffTIFF "+"iffPNG ";var TImageMode="im8bGrayscale "+"im24bRGB "+"im1bMonochrome ";var TImageType="itBMP "+"itJPEG "+"itWMF "+"itPNG ";var TInplaceHintKind="ikhInformation "+"ikhWarning "+"ikhError "+"ikhNoIcon ";var TISBLContext="icUnknown "+"icScript "+"icFunction "+"icIntegratedReport "+"icAnalyticReport "+"icDataSetEventHandler "+"icActionHandler "+"icFormEventHandler "+"icLookUpEventHandler "+"icRequisiteChangeEventHandler "+"icBeforeSearchEventHandler "+"icRoleCalculation "+"icSelectRouteEventHandler "+"icBlockPropertyCalculation "+"icBlockQueryParamsEventHandler "+"icChangeSearchResultEventHandler "+"icBlockEventHandler "+"icSubTaskInitEventHandler "+"icEDocDataSetEventHandler "+"icEDocLookUpEventHandler "+"icEDocActionHandler "+"icEDocFormEventHandler "+"icEDocRequisiteChangeEventHandler "+"icStructuredConversionRule "+"icStructuredConversionEventBefore "+"icStructuredConversionEventAfter "+"icWizardEventHandler "+"icWizardFinishEventHandler "+"icWizardStepEventHandler "+"icWizardStepFinishEventHandler "+"icWizardActionEnableEventHandler "+"icWizardActionExecuteEventHandler "+"icCreateJobsHandler "+"icCreateNoticesHandler "+"icBeforeLookUpEventHandler "+"icAfterLookUpEventHandler "+"icTaskAbortEventHandler "+"icWorkflowBlockActionHandler "+"icDialogDataSetEventHandler "+"icDialogActionHandler "+"icDialogLookUpEventHandler "+"icDialogRequisiteChangeEventHandler "+"icDialogFormEventHandler "+"icDialogValidCloseEventHandler "+"icBlockFormEventHandler "+"icTaskFormEventHandler "+"icReferenceMethod "+"icEDocMethod "+"icDialogMethod "+"icProcessMessageHandler ";var TItemShow="isShow "+"isHide "+"isByUserSettings ";var TJobKind="jkJob "+"jkNotice "+"jkControlJob ";var TJoinType="jtInner "+"jtLeft "+"jtRight "+"jtFull "+"jtCross ";var TLabelPos="lbpAbove "+"lbpBelow "+"lbpLeft "+"lbpRight ";var TLicensingType="eltPerConnection "+"eltPerUser ";var TLifeCycleStageFontColor="sfcUndefined "+"sfcBlack "+"sfcGreen "+"sfcRed "+"sfcBlue "+"sfcOrange "+"sfcLilac ";var TLifeCycleStageFontStyle="sfsItalic "+"sfsStrikeout "+"sfsNormal ";var TLockableDevelopmentComponentType="ldctStandardRoute "+"ldctWizard "+"ldctScript "+"ldctFunction "+"ldctRouteBlock "+"ldctIntegratedReport "+"ldctAnalyticReport "+"ldctReferenceType "+"ldctEDocumentType "+"ldctDialog "+"ldctServerEvents ";var TMaxRecordCountRestrictionType="mrcrtNone "+"mrcrtUser "+"mrcrtMaximal "+"mrcrtCustom ";var TRangeValueType="vtEqual "+"vtGreaterOrEqual "+"vtLessOrEqual "+"vtRange ";var TRelativeDate="rdYesterday "+"rdToday "+"rdTomorrow "+"rdThisWeek "+"rdThisMonth "+"rdThisYear "+"rdNextMonth "+"rdNextWeek "+"rdLastWeek "+"rdLastMonth ";var TReportDestination="rdWindow "+"rdFile "+"rdPrinter ";var TReqDataType="rdtString "+"rdtNumeric "+"rdtInteger "+"rdtDate "+"rdtReference "+"rdtAccount "+"rdtText "+"rdtPick "+"rdtUnknown "+"rdtLargeInteger "+"rdtDocument ";var TRequisiteEventType="reOnChange "+"reOnChangeValues ";var TSBTimeType="ttGlobal "+"ttLocal "+"ttUser "+"ttSystem ";var TSearchShowMode="ssmBrowse "+"ssmSelect "+"ssmMultiSelect "+"ssmBrowseModal ";var TSelectMode="smSelect "+"smLike "+"smCard ";var TSignatureType="stNone "+"stAuthenticating "+"stApproving ";var TSignerContentType="sctString "+"sctStream ";var TStringsSortType="sstAnsiSort "+"sstNaturalSort ";var TStringValueType="svtEqual "+"svtContain ";var TStructuredObjectAttributeType="soatString "+"soatNumeric "+"soatInteger "+"soatDatetime "+"soatReferenceRecord "+"soatText "+"soatPick "+"soatBoolean "+"soatEDocument "+"soatAccount "+"soatIntegerCollection "+"soatNumericCollection "+"soatStringCollection "+"soatPickCollection "+"soatDatetimeCollection "+"soatBooleanCollection "+"soatReferenceRecordCollection "+"soatEDocumentCollection "+"soatAccountCollection "+"soatContents "+"soatUnknown ";var TTaskAbortReason="tarAbortByUser "+"tarAbortByWorkflowException ";var TTextValueType="tvtAllWords "+"tvtExactPhrase "+"tvtAnyWord ";var TUserObjectStatus="usNone "+"usCompleted "+"usRedSquare "+"usBlueSquare "+"usYellowSquare "+"usGreenSquare "+"usOrangeSquare "+"usPurpleSquare "+"usFollowUp ";var TUserType="utUnknown "+"utUser "+"utDeveloper "+"utAdministrator "+"utSystemDeveloper "+"utDisconnected ";var TValuesBuildType="btAnd "+"btDetailAnd "+"btOr "+"btNotOr "+"btOnly ";var TViewMode="vmView "+"vmSelect "+"vmNavigation ";var TViewSelectionMode="vsmSingle "+"vsmMultiple "+"vsmMultipleCheck "+"vsmNoSelection ";var TWizardActionType="wfatPrevious "+"wfatNext "+"wfatCancel "+"wfatFinish ";var TWizardFormElementProperty="wfepUndefined "+"wfepText3 "+"wfepText6 "+"wfepText9 "+"wfepSpinEdit "+"wfepDropDown "+"wfepRadioGroup "+"wfepFlag "+"wfepText12 "+"wfepText15 "+"wfepText18 "+"wfepText21 "+"wfepText24 "+"wfepText27 "+"wfepText30 "+"wfepRadioGroupColumn1 "+"wfepRadioGroupColumn2 "+"wfepRadioGroupColumn3 ";var TWizardFormElementType="wfetQueryParameter "+"wfetText "+"wfetDelimiter "+"wfetLabel ";var TWizardParamType="wptString "+"wptInteger "+"wptNumeric "+"wptBoolean "+"wptDateTime "+"wptPick "+"wptText "+"wptUser "+"wptUserList "+"wptEDocumentInfo "+"wptEDocumentInfoList "+"wptReferenceRecordInfo "+"wptReferenceRecordInfoList "+"wptFolderInfo "+"wptTaskInfo "+"wptContents "+"wptFileName "+"wptDate ";var TWizardStepResult="wsrComplete "+"wsrGoNext "+"wsrGoPrevious "+"wsrCustom "+"wsrCancel "+"wsrGoFinal ";var TWizardStepType="wstForm "+"wstEDocument "+"wstTaskCard "+"wstReferenceRecordCard "+"wstFinal ";var TWorkAccessType="waAll "+"waPerformers "+"waManual ";var TWorkflowBlockType="wsbStart "+"wsbFinish "+"wsbNotice "+"wsbStep "+"wsbDecision "+"wsbWait "+"wsbMonitor "+"wsbScript "+"wsbConnector "+"wsbSubTask "+"wsbLifeCycleStage "+"wsbPause ";var TWorkflowDataType="wdtInteger "+"wdtFloat "+"wdtString "+"wdtPick "+"wdtDateTime "+"wdtBoolean "+"wdtTask "+"wdtJob "+"wdtFolder "+"wdtEDocument "+"wdtReferenceRecord "+"wdtUser "+"wdtGroup "+"wdtRole "+"wdtIntegerCollection "+"wdtFloatCollection "+"wdtStringCollection "+"wdtPickCollection "+"wdtDateTimeCollection "+"wdtBooleanCollection "+"wdtTaskCollection "+"wdtJobCollection "+"wdtFolderCollection "+"wdtEDocumentCollection "+"wdtReferenceRecordCollection "+"wdtUserCollection "+"wdtGroupCollection "+"wdtRoleCollection "+"wdtContents "+"wdtUserList "+"wdtSearchDescription "+"wdtDeadLine "+"wdtPickSet "+"wdtAccountCollection ";var TWorkImportance="wiLow "+"wiNormal "+"wiHigh ";var TWorkRouteType="wrtSoft "+"wrtHard ";var TWorkState="wsInit "+"wsRunning "+"wsDone "+"wsControlled "+"wsAborted "+"wsContinued ";var TWorkTextBuildingMode="wtmFull "+"wtmFromCurrent "+"wtmOnlyCurrent ";var ENUMS=TAccountType+TActionEnabledMode+TAddPosition+TAlignment+TAreaShowMode+TCertificateInvalidationReason+TCertificateType+TCheckListBoxItemState+TCloseOnEsc+TCompType+TConditionFormat+TConnectionIntent+TContentKind+TControlType+TCriterionContentType+TCultureType+TDataSetEventType+TDataSetState+TDateFormatType+TDateOffsetType+TDateTimeKind+TDeaAccessRights+TDocumentDefaultAction+TEditMode+TEditorCloseObservType+TEdmsApplicationAction+TEDocumentLockType+TEDocumentStepShowMode+TEDocumentStepVersionType+TEDocumentStorageFunction+TEDocumentStorageType+TEDocumentVersionSourceType+TEDocumentVersionState+TEncodeType+TExceptionCategory+TExportedSignaturesType+TExportedVersionType+TFieldDataType+TFolderType+TGridRowHeight+THyperlinkType+TImageFileFormat+TImageMode+TImageType+TInplaceHintKind+TISBLContext+TItemShow+TJobKind+TJoinType+TLabelPos+TLicensingType+TLifeCycleStageFontColor+TLifeCycleStageFontStyle+TLockableDevelopmentComponentType+TMaxRecordCountRestrictionType+TRangeValueType+TRelativeDate+TReportDestination+TReqDataType+TRequisiteEventType+TSBTimeType+TSearchShowMode+TSelectMode+TSignatureType+TSignerContentType+TStringsSortType+TStringValueType+TStructuredObjectAttributeType+TTaskAbortReason+TTextValueType+TUserObjectStatus+TUserType+TValuesBuildType+TViewMode+TViewSelectionMode+TWizardActionType+TWizardFormElementProperty+TWizardFormElementType+TWizardParamType+TWizardStepResult+TWizardStepType+TWorkAccessType+TWorkflowBlockType+TWorkflowDataType+TWorkImportance+TWorkRouteType+TWorkState+TWorkTextBuildingMode;var system_functions="AddSubString "+"AdjustLineBreaks "+"AmountInWords "+"Analysis "+"ArrayDimCount "+"ArrayHighBound "+"ArrayLowBound "+"ArrayOf "+"ArrayReDim "+"Assert "+"Assigned "+"BeginOfMonth "+"BeginOfPeriod "+"BuildProfilingOperationAnalysis "+"CallProcedure "+"CanReadFile "+"CArrayElement "+"CDataSetRequisite "+"ChangeDate "+"ChangeReferenceDataset "+"Char "+"CharPos "+"CheckParam "+"CheckParamValue "+"CompareStrings "+"ConstantExists "+"ControlState "+"ConvertDateStr "+"Copy "+"CopyFile "+"CreateArray "+"CreateCachedReference "+"CreateConnection "+"CreateDialog "+"CreateDualListDialog "+"CreateEditor "+"CreateException "+"CreateFile "+"CreateFolderDialog "+"CreateInputDialog "+"CreateLinkFile "+"CreateList "+"CreateLock "+"CreateMemoryDataSet "+"CreateObject "+"CreateOpenDialog "+"CreateProgress "+"CreateQuery "+"CreateReference "+"CreateReport "+"CreateSaveDialog "+"CreateScript "+"CreateSQLPivotFunction "+"CreateStringList "+"CreateTreeListSelectDialog "+"CSelectSQL "+"CSQL "+"CSubString "+"CurrentUserID "+"CurrentUserName "+"CurrentVersion "+"DataSetLocateEx "+"DateDiff "+"DateTimeDiff "+"DateToStr "+"DayOfWeek "+"DeleteFile "+"DirectoryExists "+"DisableCheckAccessRights "+"DisableCheckFullShowingRestriction "+"DisableMassTaskSendingRestrictions "+"DropTable "+"DupeString "+"EditText "+"EnableCheckAccessRights "+"EnableCheckFullShowingRestriction "+"EnableMassTaskSendingRestrictions "+"EndOfMonth "+"EndOfPeriod "+"ExceptionExists "+"ExceptionsOff "+"ExceptionsOn "+"Execute "+"ExecuteProcess "+"Exit "+"ExpandEnvironmentVariables "+"ExtractFileDrive "+"ExtractFileExt "+"ExtractFileName "+"ExtractFilePath "+"ExtractParams "+"FileExists "+"FileSize "+"FindFile "+"FindSubString "+"FirmContext "+"ForceDirectories "+"Format "+"FormatDate "+"FormatNumeric "+"FormatSQLDate "+"FormatString "+"FreeException "+"GetComponent "+"GetComponentLaunchParam "+"GetConstant "+"GetLastException "+"GetReferenceRecord "+"GetRefTypeByRefID "+"GetTableID "+"GetTempFolder "+"IfThen "+"In "+"IndexOf "+"InputDialog "+"InputDialogEx "+"InteractiveMode "+"IsFileLocked "+"IsGraphicFile "+"IsNumeric "+"Length "+"LoadString "+"LoadStringFmt "+"LocalTimeToUTC "+"LowerCase "+"Max "+"MessageBox "+"MessageBoxEx "+"MimeDecodeBinary "+"MimeDecodeString "+"MimeEncodeBinary "+"MimeEncodeString "+"Min "+"MoneyInWords "+"MoveFile "+"NewID "+"Now "+"OpenFile "+"Ord "+"Precision "+"Raise "+"ReadCertificateFromFile "+"ReadFile "+"ReferenceCodeByID "+"ReferenceNumber "+"ReferenceRequisiteMode "+"ReferenceRequisiteValue "+"RegionDateSettings "+"RegionNumberSettings "+"RegionTimeSettings "+"RegRead "+"RegWrite "+"RenameFile "+"Replace "+"Round "+"SelectServerCode "+"SelectSQL "+"ServerDateTime "+"SetConstant "+"SetManagedFolderFieldsState "+"ShowConstantsInputDialog "+"ShowMessage "+"Sleep "+"Split "+"SQL "+"SQL2XLSTAB "+"SQLProfilingSendReport "+"StrToDate "+"SubString "+"SubStringCount "+"SystemSetting "+"Time "+"TimeDiff "+"Today "+"Transliterate "+"Trim "+"UpperCase "+"UserStatus "+"UTCToLocalTime "+"ValidateXML "+"VarIsClear "+"VarIsEmpty "+"VarIsNull "+"WorkTimeDiff "+"WriteFile "+"WriteFileEx "+"WriteObjectHistory "+"Анализ "+"БазаДанных "+"БлокЕсть "+"БлокЕстьРасш "+"БлокИнфо "+"БлокСнять "+"БлокСнятьРасш "+"БлокУстановить "+"Ввод "+"ВводМеню "+"ВедС "+"ВедСпр "+"ВерхняяГраницаМассива "+"ВнешПрогр "+"Восст "+"ВременнаяПапка "+"Время "+"ВыборSQL "+"ВыбратьЗапись "+"ВыделитьСтр "+"Вызвать "+"Выполнить "+"ВыпПрогр "+"ГрафическийФайл "+"ГруппаДополнительно "+"ДатаВремяСерв "+"ДеньНедели "+"ДиалогДаНет "+"ДлинаСтр "+"ДобПодстр "+"ЕПусто "+"ЕслиТо "+"ЕЧисло "+"ЗамПодстр "+"ЗаписьСправочника "+"ЗначПоляСпр "+"ИДТипСпр "+"ИзвлечьДиск "+"ИзвлечьИмяФайла "+"ИзвлечьПуть "+"ИзвлечьРасширение "+"ИзмДат "+"ИзменитьРазмерМассива "+"ИзмеренийМассива "+"ИмяОрг "+"ИмяПоляСпр "+"Индекс "+"ИндикаторЗакрыть "+"ИндикаторОткрыть "+"ИндикаторШаг "+"ИнтерактивныйРежим "+"ИтогТблСпр "+"КодВидВедСпр "+"КодВидСпрПоИД "+"КодПоAnalit "+"КодСимвола "+"КодСпр "+"КолПодстр "+"КолПроп "+"КонМес "+"Конст "+"КонстЕсть "+"КонстЗнач "+"КонТран "+"КопироватьФайл "+"КопияСтр "+"КПериод "+"КСтрТблСпр "+"Макс "+"МаксСтрТблСпр "+"Массив "+"Меню "+"МенюРасш "+"Мин "+"НаборДанныхНайтиРасш "+"НаимВидСпр "+"НаимПоAnalit "+"НаимСпр "+"НастроитьПереводыСтрок "+"НачМес "+"НачТран "+"НижняяГраницаМассива "+"НомерСпр "+"НПериод "+"Окно "+"Окр "+"Окружение "+"ОтлИнфДобавить "+"ОтлИнфУдалить "+"Отчет "+"ОтчетАнал "+"ОтчетИнт "+"ПапкаСуществует "+"Пауза "+"ПВыборSQL "+"ПереименоватьФайл "+"Переменные "+"ПереместитьФайл "+"Подстр "+"ПоискПодстр "+"ПоискСтр "+"ПолучитьИДТаблицы "+"ПользовательДополнительно "+"ПользовательИД "+"ПользовательИмя "+"ПользовательСтатус "+"Прервать "+"ПроверитьПараметр "+"ПроверитьПараметрЗнач "+"ПроверитьУсловие "+"РазбСтр "+"РазнВремя "+"РазнДат "+"РазнДатаВремя "+"РазнРабВремя "+"РегУстВрем "+"РегУстДат "+"РегУстЧсл "+"РедТекст "+"РеестрЗапись "+"РеестрСписокИменПарам "+"РеестрЧтение "+"РеквСпр "+"РеквСпрПр "+"Сегодня "+"Сейчас "+"Сервер "+"СерверПроцессИД "+"СертификатФайлСчитать "+"СжПроб "+"Символ "+"СистемаДиректумКод "+"СистемаИнформация "+"СистемаКод "+"Содержит "+"СоединениеЗакрыть "+"СоединениеОткрыть "+"СоздатьДиалог "+"СоздатьДиалогВыбораИзДвухСписков "+"СоздатьДиалогВыбораПапки "+"СоздатьДиалогОткрытияФайла "+"СоздатьДиалогСохраненияФайла "+"СоздатьЗапрос "+"СоздатьИндикатор "+"СоздатьИсключение "+"СоздатьКэшированныйСправочник "+"СоздатьМассив "+"СоздатьНаборДанных "+"СоздатьОбъект "+"СоздатьОтчет "+"СоздатьПапку "+"СоздатьРедактор "+"СоздатьСоединение "+"СоздатьСписок "+"СоздатьСписокСтрок "+"СоздатьСправочник "+"СоздатьСценарий "+"СоздСпр "+"СостСпр "+"Сохр "+"СохрСпр "+"СписокСистем "+"Спр "+"Справочник "+"СпрБлокЕсть "+"СпрБлокСнять "+"СпрБлокСнятьРасш "+"СпрБлокУстановить "+"СпрИзмНабДан "+"СпрКод "+"СпрНомер "+"СпрОбновить "+"СпрОткрыть "+"СпрОтменить "+"СпрПарам "+"СпрПолеЗнач "+"СпрПолеИмя "+"СпрРекв "+"СпрРеквВведЗн "+"СпрРеквНовые "+"СпрРеквПр "+"СпрРеквПредЗн "+"СпрРеквРежим "+"СпрРеквТипТекст "+"СпрСоздать "+"СпрСост "+"СпрСохранить "+"СпрТблИтог "+"СпрТблСтр "+"СпрТблСтрКол "+"СпрТблСтрМакс "+"СпрТблСтрМин "+"СпрТблСтрПред "+"СпрТблСтрСлед "+"СпрТблСтрСозд "+"СпрТблСтрУд "+"СпрТекПредст "+"СпрУдалить "+"СравнитьСтр "+"СтрВерхРегистр "+"СтрНижнРегистр "+"СтрТблСпр "+"СумПроп "+"Сценарий "+"СценарийПарам "+"ТекВерсия "+"ТекОрг "+"Точн "+"Тран "+"Транслитерация "+"УдалитьТаблицу "+"УдалитьФайл "+"УдСпр "+"УдСтрТблСпр "+"Уст "+"УстановкиКонстант "+"ФайлАтрибутСчитать "+"ФайлАтрибутУстановить "+"ФайлВремя "+"ФайлВремяУстановить "+"ФайлВыбрать "+"ФайлЗанят "+"ФайлЗаписать "+"ФайлИскать "+"ФайлКопировать "+"ФайлМожноЧитать "+"ФайлОткрыть "+"ФайлПереименовать "+"ФайлПерекодировать "+"ФайлПереместить "+"ФайлПросмотреть "+"ФайлРазмер "+"ФайлСоздать "+"ФайлСсылкаСоздать "+"ФайлСуществует "+"ФайлСчитать "+"ФайлУдалить "+"ФмтSQLДат "+"ФмтДат "+"ФмтСтр "+"ФмтЧсл "+"Формат "+"ЦМассивЭлемент "+"ЦНаборДанныхРеквизит "+"ЦПодстр ";var predefined_variables="AltState "+"Application "+"CallType "+"ComponentTokens "+"CreatedJobs "+"CreatedNotices "+"ControlState "+"DialogResult "+"Dialogs "+"EDocuments "+"EDocumentVersionSource "+"Folders "+"GlobalIDs "+"Job "+"Jobs "+"InputValue "+"LookUpReference "+"LookUpRequisiteNames "+"LookUpSearch "+"Object "+"ParentComponent "+"Processes "+"References "+"Requisite "+"ReportName "+"Reports "+"Result "+"Scripts "+"Searches "+"SelectedAttachments "+"SelectedItems "+"SelectMode "+"Sender "+"ServerEvents "+"ServiceFactory "+"ShiftState "+"SubTask "+"SystemDialogs "+"Tasks "+"Wizard "+"Wizards "+"Work "+"ВызовСпособ "+"ИмяОтчета "+"РеквЗнач ";var interfaces="IApplication "+"IAccessRights "+"IAccountRepository "+"IAccountSelectionRestrictions "+"IAction "+"IActionList "+"IAdministrationHistoryDescription "+"IAnchors "+"IApplication "+"IArchiveInfo "+"IAttachment "+"IAttachmentList "+"ICheckListBox "+"ICheckPointedList "+"IColumn "+"IComponent "+"IComponentDescription "+"IComponentToken "+"IComponentTokenFactory "+"IComponentTokenInfo "+"ICompRecordInfo "+"IConnection "+"IContents "+"IControl "+"IControlJob "+"IControlJobInfo "+"IControlList "+"ICrypto "+"ICrypto2 "+"ICustomJob "+"ICustomJobInfo "+"ICustomListBox "+"ICustomObjectWizardStep "+"ICustomWork "+"ICustomWorkInfo "+"IDataSet "+"IDataSetAccessInfo "+"IDataSigner "+"IDateCriterion "+"IDateRequisite "+"IDateRequisiteDescription "+"IDateValue "+"IDeaAccessRights "+"IDeaObjectInfo "+"IDevelopmentComponentLock "+"IDialog "+"IDialogFactory "+"IDialogPickRequisiteItems "+"IDialogsFactory "+"IDICSFactory "+"IDocRequisite "+"IDocumentInfo "+"IDualListDialog "+"IECertificate "+"IECertificateInfo "+"IECertificates "+"IEditControl "+"IEditorForm "+"IEdmsExplorer "+"IEdmsObject "+"IEdmsObjectDescription "+"IEdmsObjectFactory "+"IEdmsObjectInfo "+"IEDocument "+"IEDocumentAccessRights "+"IEDocumentDescription "+"IEDocumentEditor "+"IEDocumentFactory "+"IEDocumentInfo "+"IEDocumentStorage "+"IEDocumentVersion "+"IEDocumentVersionListDialog "+"IEDocumentVersionSource "+"IEDocumentWizardStep "+"IEDocVerSignature "+"IEDocVersionState "+"IEnabledMode "+"IEncodeProvider "+"IEncrypter "+"IEvent "+"IEventList "+"IException "+"IExternalEvents "+"IExternalHandler "+"IFactory "+"IField "+"IFileDialog "+"IFolder "+"IFolderDescription "+"IFolderDialog "+"IFolderFactory "+"IFolderInfo "+"IForEach "+"IForm "+"IFormTitle "+"IFormWizardStep "+"IGlobalIDFactory "+"IGlobalIDInfo "+"IGrid "+"IHasher "+"IHistoryDescription "+"IHyperLinkControl "+"IImageButton "+"IImageControl "+"IInnerPanel "+"IInplaceHint "+"IIntegerCriterion "+"IIntegerList "+"IIntegerRequisite "+"IIntegerValue "+"IISBLEditorForm "+"IJob "+"IJobDescription "+"IJobFactory "+"IJobForm "+"IJobInfo "+"ILabelControl "+"ILargeIntegerCriterion "+"ILargeIntegerRequisite "+"ILargeIntegerValue "+"ILicenseInfo "+"ILifeCycleStage "+"IList "+"IListBox "+"ILocalIDInfo "+"ILocalization "+"ILock "+"IMemoryDataSet "+"IMessagingFactory "+"IMetadataRepository "+"INotice "+"INoticeInfo "+"INumericCriterion "+"INumericRequisite "+"INumericValue "+"IObject "+"IObjectDescription "+"IObjectImporter "+"IObjectInfo "+"IObserver "+"IPanelGroup "+"IPickCriterion "+"IPickProperty "+"IPickRequisite "+"IPickRequisiteDescription "+"IPickRequisiteItem "+"IPickRequisiteItems "+"IPickValue "+"IPrivilege "+"IPrivilegeList "+"IProcess "+"IProcessFactory "+"IProcessMessage "+"IProgress "+"IProperty "+"IPropertyChangeEvent "+"IQuery "+"IReference "+"IReferenceCriterion "+"IReferenceEnabledMode "+"IReferenceFactory "+"IReferenceHistoryDescription "+"IReferenceInfo "+"IReferenceRecordCardWizardStep "+"IReferenceRequisiteDescription "+"IReferencesFactory "+"IReferenceValue "+"IRefRequisite "+"IReport "+"IReportFactory "+"IRequisite "+"IRequisiteDescription "+"IRequisiteDescriptionList "+"IRequisiteFactory "+"IRichEdit "+"IRouteStep "+"IRule "+"IRuleList "+"ISchemeBlock "+"IScript "+"IScriptFactory "+"ISearchCriteria "+"ISearchCriterion "+"ISearchDescription "+"ISearchFactory "+"ISearchFolderInfo "+"ISearchForObjectDescription "+"ISearchResultRestrictions "+"ISecuredContext "+"ISelectDialog "+"IServerEvent "+"IServerEventFactory "+"IServiceDialog "+"IServiceFactory "+"ISignature "+"ISignProvider "+"ISignProvider2 "+"ISignProvider3 "+"ISimpleCriterion "+"IStringCriterion "+"IStringList "+"IStringRequisite "+"IStringRequisiteDescription "+"IStringValue "+"ISystemDialogsFactory "+"ISystemInfo "+"ITabSheet "+"ITask "+"ITaskAbortReasonInfo "+"ITaskCardWizardStep "+"ITaskDescription "+"ITaskFactory "+"ITaskInfo "+"ITaskRoute "+"ITextCriterion "+"ITextRequisite "+"ITextValue "+"ITreeListSelectDialog "+"IUser "+"IUserList "+"IValue "+"IView "+"IWebBrowserControl "+"IWizard "+"IWizardAction "+"IWizardFactory "+"IWizardFormElement "+"IWizardParam "+"IWizardPickParam "+"IWizardReferenceParam "+"IWizardStep "+"IWorkAccessRights "+"IWorkDescription "+"IWorkflowAskableParam "+"IWorkflowAskableParams "+"IWorkflowBlock "+"IWorkflowBlockResult "+"IWorkflowEnabledMode "+"IWorkflowParam "+"IWorkflowPickParam "+"IWorkflowReferenceParam "+"IWorkState "+"IWorkTreeCustomNode "+"IWorkTreeJobNode "+"IWorkTreeTaskNode "+"IXMLEditorForm "+"SBCrypto ";var BUILTIN=CONSTANTS+ENUMS;var CLASS=predefined_variables;var LITERAL="null true false nil ";var NUMBERS={className:"number",begin:hljs.NUMBER_RE,relevance:0};var STRINGS={className:"string",variants:[{begin:'"',end:'"'},{begin:"'",end:"'"}]};var DOCTAGS={className:"doctag",begin:"\\b(?:TODO|DONE|BEGIN|END|STUB|CHG|FIXME|NOTE|BUG|XXX)\\b",relevance:0};var ISBL_LINE_COMMENT_MODE={className:"comment",begin:"//",end:"$",relevance:0,contains:[hljs.PHRASAL_WORDS_MODE,DOCTAGS]};var ISBL_BLOCK_COMMENT_MODE={className:"comment",begin:"/\\*",end:"\\*/",relevance:0,contains:[hljs.PHRASAL_WORDS_MODE,DOCTAGS]};var COMMENTS={variants:[ISBL_LINE_COMMENT_MODE,ISBL_BLOCK_COMMENT_MODE]};var KEYWORDS={keyword:KEYWORD,built_in:BUILTIN,class:CLASS,literal:LITERAL};var METHODS={begin:"\\.\\s*"+hljs.UNDERSCORE_IDENT_RE,keywords:KEYWORDS,relevance:0};var TYPES={className:"type",begin:":[ \\t]*("+interfaces.trim().replace(/\s/g,"|")+")",end:"[ \\t]*=",excludeEnd:true};var VARIABLES={className:"variable",lexemes:UNDERSCORE_IDENT_RE,keywords:KEYWORDS,begin:UNDERSCORE_IDENT_RE,relevance:0,contains:[TYPES,METHODS]};var FUNCTION_TITLE=FUNCTION_NAME_IDENT_RE+"\\(";var TITLE_MODE={className:"title",lexemes:UNDERSCORE_IDENT_RE,keywords:{built_in:system_functions},begin:FUNCTION_TITLE,end:"\\(",returnBegin:true,excludeEnd:true};var FUNCTIONS={className:"function",begin:FUNCTION_TITLE,end:"\\)$",returnBegin:true,lexemes:UNDERSCORE_IDENT_RE,keywords:KEYWORDS,illegal:"[\\[\\]\\|\\$\\?%,~#@]",contains:[TITLE_MODE,METHODS,VARIABLES,STRINGS,NUMBERS,COMMENTS]};return{aliases:["isbl"],case_insensitive:true,lexemes:UNDERSCORE_IDENT_RE,keywords:KEYWORDS,illegal:"\\$|\\?|%|,|;$|~|#|@|</",contains:[FUNCTIONS,TYPES,METHODS,VARIABLES,STRINGS,NUMBERS,COMMENTS]}});hljs.registerLanguage("reasonml",function(hljs){function orReValues(ops){return ops.map(function(op){return op.split("").map(function(char){return"\\"+char}).join("")}).join("|")}var RE_IDENT="~?[a-z$_][0-9a-zA-Z$_]*";var RE_MODULE_IDENT="`?[A-Z$_][0-9a-zA-Z$_]*";var RE_PARAM_TYPEPARAM="'?[a-z$_][0-9a-z$_]*";var RE_PARAM_TYPE="s*:s*[a-z$_][0-9a-z$_]*((s*("+RE_PARAM_TYPEPARAM+"s*(,"+RE_PARAM_TYPEPARAM+")*)?s*))?";var RE_PARAM=RE_IDENT+"("+RE_PARAM_TYPE+")?("+RE_PARAM_TYPE+")?";var RE_OPERATOR="("+orReValues(["||","&&","++","**","+.","*","/","*.","/.","...","|>"])+"|==|===)";var RE_OPERATOR_SPACED="\\s+"+RE_OPERATOR+"\\s+";var KEYWORDS={keyword:"and as asr assert begin class constraint do done downto else end exception external"+"for fun function functor if in include inherit initializer"+"land lazy let lor lsl lsr lxor match method mod module mutable new nonrec"+"object of open or private rec sig struct then to try type val virtual when while with",built_in:"array bool bytes char exn|5 float int int32 int64 list lazy_t|5 nativeint|5 ref string unit ",literal:"true false"};var RE_NUMBER="\\b(0[xX][a-fA-F0-9_]+[Lln]?|"+"0[oO][0-7_]+[Lln]?|"+"0[bB][01_]+[Lln]?|"+"[0-9][0-9_]*([Lln]|(\\.[0-9_]*)?([eE][-+]?[0-9_]+)?)?)";var NUMBER_MODE={className:"number",relevance:0,variants:[{begin:RE_NUMBER},{begin:"\\(\\-"+RE_NUMBER+"\\)"}]};var OPERATOR_MODE={className:"operator",relevance:0,begin:RE_OPERATOR};var LIST_CONTENTS_MODES=[{className:"identifier",relevance:0,begin:RE_IDENT},OPERATOR_MODE,NUMBER_MODE];var MODULE_ACCESS_CONTENTS=[hljs.QUOTE_STRING_MODE,OPERATOR_MODE,{className:"module",begin:"\\b"+RE_MODULE_IDENT,returnBegin:true,end:".",contains:[{className:"identifier",begin:RE_MODULE_IDENT,relevance:0}]}];var PARAMS_CONTENTS=[{className:"module",begin:"\\b"+RE_MODULE_IDENT,returnBegin:true,end:".",relevance:0,contains:[{className:"identifier",begin:RE_MODULE_IDENT,relevance:0}]}];var PARAMS_MODE={begin:RE_IDENT,end:"(,|\\n|\\))",relevance:0,contains:[OPERATOR_MODE,{className:"typing",begin:":",end:"(,|\\n)",returnBegin:true,relevance:0,contains:PARAMS_CONTENTS}]};var FUNCTION_BLOCK_MODE={className:"function",relevance:0,keywords:KEYWORDS,variants:[{begin:"\\s(\\(\\.?.*?\\)|"+RE_IDENT+")\\s*=>",end:"\\s*=>",returnBegin:true,relevance:0,contains:[{className:"params",variants:[{begin:RE_IDENT},{begin:RE_PARAM},{begin:/\(\s*\)/}]}]},{begin:"\\s\\(\\.?[^;\\|]*\\)\\s*=>",end:"\\s=>",returnBegin:true,relevance:0,contains:[{className:"params",relevance:0,variants:[PARAMS_MODE]}]},{begin:"\\(\\.\\s"+RE_IDENT+"\\)\\s*=>"}]};MODULE_ACCESS_CONTENTS.push(FUNCTION_BLOCK_MODE);var CONSTRUCTOR_MODE={className:"constructor",begin:RE_MODULE_IDENT+"\\(",end:"\\)",illegal:"\\n",keywords:KEYWORDS,contains:[hljs.QUOTE_STRING_MODE,OPERATOR_MODE,{className:"params",begin:"\\b"+RE_IDENT}]};var PATTERN_MATCH_BLOCK_MODE={className:"pattern-match",begin:"\\|",returnBegin:true,keywords:KEYWORDS,end:"=>",relevance:0,contains:[CONSTRUCTOR_MODE,OPERATOR_MODE,{relevance:0,className:"constructor",begin:RE_MODULE_IDENT}]};var MODULE_ACCESS_MODE={className:"module-access",keywords:KEYWORDS,returnBegin:true,variants:[{begin:"\\b("+RE_MODULE_IDENT+"\\.)+"+RE_IDENT},{begin:"\\b("+RE_MODULE_IDENT+"\\.)+\\(",end:"\\)",returnBegin:true,contains:[FUNCTION_BLOCK_MODE,{begin:"\\(",end:"\\)",skip:true}].concat(MODULE_ACCESS_CONTENTS)},{begin:"\\b("+RE_MODULE_IDENT+"\\.)+{",end:"}"}],contains:MODULE_ACCESS_CONTENTS};PARAMS_CONTENTS.push(MODULE_ACCESS_MODE);return{aliases:["re"],keywords:KEYWORDS,illegal:"(:\\-|:=|\\${|\\+=)",contains:[hljs.COMMENT("/\\*","\\*/",{illegal:"^(\\#,\\/\\/)"}),{className:"character",begin:"'(\\\\[^']+|[^'])'",illegal:"\\n",relevance:0},hljs.QUOTE_STRING_MODE,{className:"literal",begin:"\\(\\)",relevance:0},{className:"literal",begin:"\\[\\|",end:"\\|\\]",relevance:0,contains:LIST_CONTENTS_MODES},{className:"literal",begin:"\\[",end:"\\]",relevance:0,contains:LIST_CONTENTS_MODES},CONSTRUCTOR_MODE,{className:"operator",begin:RE_OPERATOR_SPACED,illegal:"\\-\\->",relevance:0},NUMBER_MODE,hljs.C_LINE_COMMENT_MODE,PATTERN_MATCH_BLOCK_MODE,FUNCTION_BLOCK_MODE,{className:"module-def",begin:"\\bmodule\\s+"+RE_IDENT+"\\s+"+RE_MODULE_IDENT+"\\s+=\\s+{",end:"}",returnBegin:true,keywords:KEYWORDS,relevance:0,contains:[{className:"module",relevance:0,begin:RE_MODULE_IDENT},{begin:"{",end:"}",skip:true}].concat(MODULE_ACCESS_CONTENTS)},MODULE_ACCESS_MODE]}});hljs.registerLanguage("maxima",function(hljs){var KEYWORDS="if then else elseif for thru do while unless step in and or not";var LITERALS="true false unknown inf minf ind und %e %i %pi %phi %gamma";var BUILTIN_FUNCTIONS=" abasep abs absint absolute_real_time acos acosh acot acoth acsc acsch activate"+" addcol add_edge add_edges addmatrices addrow add_vertex add_vertices adjacency_matrix"+" adjoin adjoint af agd airy airy_ai airy_bi airy_dai airy_dbi algsys alg_type"+" alias allroots alphacharp alphanumericp amortization %and annuity_fv"+" annuity_pv antid antidiff AntiDifference append appendfile apply apply1 apply2"+" applyb1 apropos args arit_amortization arithmetic arithsum array arrayapply"+" arrayinfo arraymake arraysetapply ascii asec asech asin asinh askinteger"+" asksign assoc assoc_legendre_p assoc_legendre_q assume assume_external_byte_order"+" asympa at atan atan2 atanh atensimp atom atvalue augcoefmatrix augmented_lagrangian_method"+" av average_degree backtrace bars barsplot barsplot_description base64 base64_decode"+" bashindices batch batchload bc2 bdvac belln benefit_cost bern bernpoly bernstein_approx"+" bernstein_expand bernstein_poly bessel bessel_i bessel_j bessel_k bessel_simplify"+" bessel_y beta beta_incomplete beta_incomplete_generalized beta_incomplete_regularized"+" bezout bfallroots bffac bf_find_root bf_fmin_cobyla bfhzeta bfloat bfloatp"+" bfpsi bfpsi0 bfzeta biconnected_components bimetric binomial bipartition"+" block blockmatrixp bode_gain bode_phase bothcoef box boxplot boxplot_description"+" break bug_report build_info|10 buildq build_sample burn cabs canform canten"+" cardinality carg cartan cartesian_product catch cauchy_matrix cbffac cdf_bernoulli"+" cdf_beta cdf_binomial cdf_cauchy cdf_chi2 cdf_continuous_uniform cdf_discrete_uniform"+" cdf_exp cdf_f cdf_gamma cdf_general_finite_discrete cdf_geometric cdf_gumbel"+" cdf_hypergeometric cdf_laplace cdf_logistic cdf_lognormal cdf_negative_binomial"+" cdf_noncentral_chi2 cdf_noncentral_student_t cdf_normal cdf_pareto cdf_poisson"+" cdf_rank_sum cdf_rayleigh cdf_signed_rank cdf_student_t cdf_weibull cdisplay"+" ceiling central_moment cequal cequalignore cf cfdisrep cfexpand cgeodesic"+" cgreaterp cgreaterpignore changename changevar chaosgame charat charfun charfun2"+" charlist charp charpoly chdir chebyshev_t chebyshev_u checkdiv check_overlaps"+" chinese cholesky christof chromatic_index chromatic_number cint circulant_graph"+" clear_edge_weight clear_rules clear_vertex_label clebsch_gordan clebsch_graph"+" clessp clesspignore close closefile cmetric coeff coefmatrix cograd col collapse"+" collectterms columnop columnspace columnswap columnvector combination combine"+" comp2pui compare compfile compile compile_file complement_graph complete_bipartite_graph"+" complete_graph complex_number_p components compose_functions concan concat"+" conjugate conmetderiv connected_components connect_vertices cons constant"+" constantp constituent constvalue cont2part content continuous_freq contortion"+" contour_plot contract contract_edge contragrad contrib_ode convert coord"+" copy copy_file copy_graph copylist copymatrix cor cos cosh cot coth cov cov1"+" covdiff covect covers crc24sum create_graph create_list csc csch csetup cspline"+" ctaylor ct_coordsys ctransform ctranspose cube_graph cuboctahedron_graph"+" cunlisp cv cycle_digraph cycle_graph cylindrical days360 dblint deactivate"+" declare declare_constvalue declare_dimensions declare_fundamental_dimensions"+" declare_fundamental_units declare_qty declare_translated declare_unit_conversion"+" declare_units declare_weights decsym defcon define define_alt_display define_variable"+" defint defmatch defrule defstruct deftaylor degree_sequence del delete deleten"+" delta demo demoivre denom depends derivdegree derivlist describe desolve"+" determinant dfloat dgauss_a dgauss_b dgeev dgemm dgeqrf dgesv dgesvd diag"+" diagmatrix diag_matrix diagmatrixp diameter diff digitcharp dimacs_export"+" dimacs_import dimension dimensionless dimensions dimensions_as_list direct"+" directory discrete_freq disjoin disjointp disolate disp dispcon dispform"+" dispfun dispJordan display disprule dispterms distrib divide divisors divsum"+" dkummer_m dkummer_u dlange dodecahedron_graph dotproduct dotsimp dpart"+" draw draw2d draw3d drawdf draw_file draw_graph dscalar echelon edge_coloring"+" edge_connectivity edges eigens_by_jacobi eigenvalues eigenvectors eighth"+" einstein eivals eivects elapsed_real_time elapsed_run_time ele2comp ele2polynome"+" ele2pui elem elementp elevation_grid elim elim_allbut eliminate eliminate_using"+" ellipse elliptic_e elliptic_ec elliptic_eu elliptic_f elliptic_kc elliptic_pi"+" ematrix empty_graph emptyp endcons entermatrix entertensor entier equal equalp"+" equiv_classes erf erfc erf_generalized erfi errcatch error errormsg errors"+" euler ev eval_string evenp every evolution evolution2d evundiff example exp"+" expand expandwrt expandwrt_factored expint expintegral_chi expintegral_ci"+" expintegral_e expintegral_e1 expintegral_ei expintegral_e_simplify expintegral_li"+" expintegral_shi expintegral_si explicit explose exponentialize express expt"+" exsec extdiff extract_linear_equations extremal_subset ezgcd %f f90 facsum"+" factcomb factor factorfacsum factorial factorout factorsum facts fast_central_elements"+" fast_linsolve fasttimes featurep fernfale fft fib fibtophi fifth filename_merge"+" file_search file_type fillarray findde find_root find_root_abs find_root_error"+" find_root_rel first fix flatten flength float floatnump floor flower_snark"+" flush flush1deriv flushd flushnd flush_output fmin_cobyla forget fortran"+" fourcos fourexpand fourier fourier_elim fourint fourintcos fourintsin foursimp"+" foursin fourth fposition frame_bracket freeof freshline fresnel_c fresnel_s"+" from_adjacency_matrix frucht_graph full_listify fullmap fullmapl fullratsimp"+" fullratsubst fullsetify funcsolve fundamental_dimensions fundamental_units"+" fundef funmake funp fv g0 g1 gamma gamma_greek gamma_incomplete gamma_incomplete_generalized"+" gamma_incomplete_regularized gauss gauss_a gauss_b gaussprob gcd gcdex gcdivide"+" gcfac gcfactor gd generalized_lambert_w genfact gen_laguerre genmatrix gensym"+" geo_amortization geo_annuity_fv geo_annuity_pv geomap geometric geometric_mean"+" geosum get getcurrentdirectory get_edge_weight getenv get_lu_factors get_output_stream_string"+" get_pixel get_plot_option get_tex_environment get_tex_environment_default"+" get_vertex_label gfactor gfactorsum ggf girth global_variances gn gnuplot_close"+" gnuplot_replot gnuplot_reset gnuplot_restart gnuplot_start go Gosper GosperSum"+" gr2d gr3d gradef gramschmidt graph6_decode graph6_encode graph6_export graph6_import"+" graph_center graph_charpoly graph_eigenvalues graph_flow graph_order graph_periphery"+" graph_product graph_size graph_union great_rhombicosidodecahedron_graph great_rhombicuboctahedron_graph"+" grid_graph grind grobner_basis grotzch_graph hamilton_cycle hamilton_path"+" hankel hankel_1 hankel_2 harmonic harmonic_mean hav heawood_graph hermite"+" hessian hgfred hilbertmap hilbert_matrix hipow histogram histogram_description"+" hodge horner hypergeometric i0 i1 %ibes ic1 ic2 ic_convert ichr1 ichr2 icosahedron_graph"+" icosidodecahedron_graph icurvature ident identfor identity idiff idim idummy"+" ieqn %if ifactors iframes ifs igcdex igeodesic_coords ilt image imagpart"+" imetric implicit implicit_derivative implicit_plot indexed_tensor indices"+" induced_subgraph inferencep inference_result infix info_display init_atensor"+" init_ctensor in_neighbors innerproduct inpart inprod inrt integerp integer_partitions"+" integrate intersect intersection intervalp intopois intosum invariant1 invariant2"+" inverse_fft inverse_jacobi_cd inverse_jacobi_cn inverse_jacobi_cs inverse_jacobi_dc"+" inverse_jacobi_dn inverse_jacobi_ds inverse_jacobi_nc inverse_jacobi_nd inverse_jacobi_ns"+" inverse_jacobi_sc inverse_jacobi_sd inverse_jacobi_sn invert invert_by_adjoint"+" invert_by_lu inv_mod irr is is_biconnected is_bipartite is_connected is_digraph"+" is_edge_in_graph is_graph is_graph_or_digraph ishow is_isomorphic isolate"+" isomorphism is_planar isqrt isreal_p is_sconnected is_tree is_vertex_in_graph"+" items_inference %j j0 j1 jacobi jacobian jacobi_cd jacobi_cn jacobi_cs jacobi_dc"+" jacobi_dn jacobi_ds jacobi_nc jacobi_nd jacobi_ns jacobi_p jacobi_sc jacobi_sd"+" jacobi_sn JF jn join jordan julia julia_set julia_sin %k kdels kdelta kill"+" killcontext kostka kron_delta kronecker_product kummer_m kummer_u kurtosis"+" kurtosis_bernoulli kurtosis_beta kurtosis_binomial kurtosis_chi2 kurtosis_continuous_uniform"+" kurtosis_discrete_uniform kurtosis_exp kurtosis_f kurtosis_gamma kurtosis_general_finite_discrete"+" kurtosis_geometric kurtosis_gumbel kurtosis_hypergeometric kurtosis_laplace"+" kurtosis_logistic kurtosis_lognormal kurtosis_negative_binomial kurtosis_noncentral_chi2"+" kurtosis_noncentral_student_t kurtosis_normal kurtosis_pareto kurtosis_poisson"+" kurtosis_rayleigh kurtosis_student_t kurtosis_weibull label labels lagrange"+" laguerre lambda lambert_w laplace laplacian_matrix last lbfgs lc2kdt lcharp"+" lc_l lcm lc_u ldefint ldisp ldisplay legendre_p legendre_q leinstein length"+" let letrules letsimp levi_civita lfreeof lgtreillis lhs li liediff limit"+" Lindstedt linear linearinterpol linear_program linear_regression line_graph"+" linsolve listarray list_correlations listify list_matrix_entries list_nc_monomials"+" listoftens listofvars listp lmax lmin load loadfile local locate_matrix_entry"+" log logcontract log_gamma lopow lorentz_gauge lowercasep lpart lratsubst"+" lreduce lriemann lsquares_estimates lsquares_estimates_approximate lsquares_estimates_exact"+" lsquares_mse lsquares_residual_mse lsquares_residuals lsum ltreillis lu_backsub"+" lucas lu_factor %m macroexpand macroexpand1 make_array makebox makefact makegamma"+" make_graph make_level_picture makelist makeOrders make_poly_continent make_poly_country"+" make_polygon make_random_state make_rgb_picture makeset make_string_input_stream"+" make_string_output_stream make_transform mandelbrot mandelbrot_set map mapatom"+" maplist matchdeclare matchfix mat_cond mat_fullunblocker mat_function mathml_display"+" mat_norm matrix matrixmap matrixp matrix_size mattrace mat_trace mat_unblocker"+" max max_clique max_degree max_flow maximize_lp max_independent_set max_matching"+" maybe md5sum mean mean_bernoulli mean_beta mean_binomial mean_chi2 mean_continuous_uniform"+" mean_deviation mean_discrete_uniform mean_exp mean_f mean_gamma mean_general_finite_discrete"+" mean_geometric mean_gumbel mean_hypergeometric mean_laplace mean_logistic"+" mean_lognormal mean_negative_binomial mean_noncentral_chi2 mean_noncentral_student_t"+" mean_normal mean_pareto mean_poisson mean_rayleigh mean_student_t mean_weibull"+" median median_deviation member mesh metricexpandall mgf1_sha1 min min_degree"+" min_edge_cut minfactorial minimalPoly minimize_lp minimum_spanning_tree minor"+" minpack_lsquares minpack_solve min_vertex_cover min_vertex_cut mkdir mnewton"+" mod mode_declare mode_identity ModeMatrix moebius mon2schur mono monomial_dimensions"+" multibernstein_poly multi_display_for_texinfo multi_elem multinomial multinomial_coeff"+" multi_orbit multiplot_mode multi_pui multsym multthru mycielski_graph nary"+" natural_unit nc_degree ncexpt ncharpoly negative_picture neighbors new newcontext"+" newdet new_graph newline newton new_variable next_prime nicedummies niceindices"+" ninth nofix nonarray noncentral_moment nonmetricity nonnegintegerp nonscalarp"+" nonzeroandfreeof notequal nounify nptetrad npv nroots nterms ntermst"+" nthroot nullity nullspace num numbered_boundaries numberp number_to_octets"+" num_distinct_partitions numerval numfactor num_partitions nusum nzeta nzetai"+" nzetar octets_to_number octets_to_oid odd_girth oddp ode2 ode_check odelin"+" oid_to_octets op opena opena_binary openr openr_binary openw openw_binary"+" operatorp opsubst optimize %or orbit orbits ordergreat ordergreatp orderless"+" orderlessp orthogonal_complement orthopoly_recur orthopoly_weight outermap"+" out_neighbors outofpois pade parabolic_cylinder_d parametric parametric_surface"+" parg parGosper parse_string parse_timedate part part2cont partfrac partition"+" partition_set partpol path_digraph path_graph pathname_directory pathname_name"+" pathname_type pdf_bernoulli pdf_beta pdf_binomial pdf_cauchy pdf_chi2 pdf_continuous_uniform"+" pdf_discrete_uniform pdf_exp pdf_f pdf_gamma pdf_general_finite_discrete"+" pdf_geometric pdf_gumbel pdf_hypergeometric pdf_laplace pdf_logistic pdf_lognormal"+" pdf_negative_binomial pdf_noncentral_chi2 pdf_noncentral_student_t pdf_normal"+" pdf_pareto pdf_poisson pdf_rank_sum pdf_rayleigh pdf_signed_rank pdf_student_t"+" pdf_weibull pearson_skewness permanent permut permutation permutations petersen_graph"+" petrov pickapart picture_equalp picturep piechart piechart_description planar_embedding"+" playback plog plot2d plot3d plotdf ploteq plsquares pochhammer points poisdiff"+" poisexpt poisint poismap poisplus poissimp poissubst poistimes poistrim polar"+" polarform polartorect polar_to_xy poly_add poly_buchberger poly_buchberger_criterion"+" poly_colon_ideal poly_content polydecomp poly_depends_p poly_elimination_ideal"+" poly_exact_divide poly_expand poly_expt poly_gcd polygon poly_grobner poly_grobner_equal"+" poly_grobner_member poly_grobner_subsetp poly_ideal_intersection poly_ideal_polysaturation"+" poly_ideal_polysaturation1 poly_ideal_saturation poly_ideal_saturation1 poly_lcm"+" poly_minimization polymod poly_multiply polynome2ele polynomialp poly_normal_form"+" poly_normalize poly_normalize_list poly_polysaturation_extension poly_primitive_part"+" poly_pseudo_divide poly_reduced_grobner poly_reduction poly_saturation_extension"+" poly_s_polynomial poly_subtract polytocompanion pop postfix potential power_mod"+" powerseries powerset prefix prev_prime primep primes principal_components"+" print printf printfile print_graph printpois printprops prodrac product properties"+" propvars psi psubst ptriangularize pui pui2comp pui2ele pui2polynome pui_direct"+" puireduc push put pv qput qrange qty quad_control quad_qag quad_qagi quad_qagp"+" quad_qags quad_qawc quad_qawf quad_qawo quad_qaws quadrilateral quantile"+" quantile_bernoulli quantile_beta quantile_binomial quantile_cauchy quantile_chi2"+" quantile_continuous_uniform quantile_discrete_uniform quantile_exp quantile_f"+" quantile_gamma quantile_general_finite_discrete quantile_geometric quantile_gumbel"+" quantile_hypergeometric quantile_laplace quantile_logistic quantile_lognormal"+" quantile_negative_binomial quantile_noncentral_chi2 quantile_noncentral_student_t"+" quantile_normal quantile_pareto quantile_poisson quantile_rayleigh quantile_student_t"+" quantile_weibull quartile_skewness quit qunit quotient racah_v racah_w radcan"+" radius random random_bernoulli random_beta random_binomial random_bipartite_graph"+" random_cauchy random_chi2 random_continuous_uniform random_digraph random_discrete_uniform"+" random_exp random_f random_gamma random_general_finite_discrete random_geometric"+" random_graph random_graph1 random_gumbel random_hypergeometric random_laplace"+" random_logistic random_lognormal random_negative_binomial random_network"+" random_noncentral_chi2 random_noncentral_student_t random_normal random_pareto"+" random_permutation random_poisson random_rayleigh random_regular_graph random_student_t"+" random_tournament random_tree random_weibull range rank rat ratcoef ratdenom"+" ratdiff ratdisrep ratexpand ratinterpol rational rationalize ratnumer ratnump"+" ratp ratsimp ratsubst ratvars ratweight read read_array read_binary_array"+" read_binary_list read_binary_matrix readbyte readchar read_hashed_array readline"+" read_list read_matrix read_nested_list readonly read_xpm real_imagpart_to_conjugate"+" realpart realroots rearray rectangle rectform rectform_log_if_constant recttopolar"+" rediff reduce_consts reduce_order region region_boundaries region_boundaries_plus"+" rem remainder remarray rembox remcomps remcon remcoord remfun remfunction"+" remlet remove remove_constvalue remove_dimensions remove_edge remove_fundamental_dimensions"+" remove_fundamental_units remove_plot_option remove_vertex rempart remrule"+" remsym remvalue rename rename_file reset reset_displays residue resolvante"+" resolvante_alternee1 resolvante_bipartite resolvante_diedrale resolvante_klein"+" resolvante_klein3 resolvante_produit_sym resolvante_unitaire resolvante_vierer"+" rest resultant return reveal reverse revert revert2 rgb2level rhs ricci riemann"+" rinvariant risch rk rmdir rncombine romberg room rootscontract round row"+" rowop rowswap rreduce run_testsuite %s save saving scalarp scaled_bessel_i"+" scaled_bessel_i0 scaled_bessel_i1 scalefactors scanmap scatterplot scatterplot_description"+" scene schur2comp sconcat scopy scsimp scurvature sdowncase sec sech second"+" sequal sequalignore set_alt_display setdifference set_draw_defaults set_edge_weight"+" setelmx setequalp setify setp set_partitions set_plot_option set_prompt set_random_state"+" set_tex_environment set_tex_environment_default setunits setup_autoload set_up_dot_simplifications"+" set_vertex_label seventh sexplode sf sha1sum sha256sum shortest_path shortest_weighted_path"+" show showcomps showratvars sierpinskiale sierpinskimap sign signum similaritytransform"+" simp_inequality simplify_sum simplode simpmetderiv simtran sin sinh sinsert"+" sinvertcase sixth skewness skewness_bernoulli skewness_beta skewness_binomial"+" skewness_chi2 skewness_continuous_uniform skewness_discrete_uniform skewness_exp"+" skewness_f skewness_gamma skewness_general_finite_discrete skewness_geometric"+" skewness_gumbel skewness_hypergeometric skewness_laplace skewness_logistic"+" skewness_lognormal skewness_negative_binomial skewness_noncentral_chi2 skewness_noncentral_student_t"+" skewness_normal skewness_pareto skewness_poisson skewness_rayleigh skewness_student_t"+" skewness_weibull slength smake small_rhombicosidodecahedron_graph small_rhombicuboctahedron_graph"+" smax smin smismatch snowmap snub_cube_graph snub_dodecahedron_graph solve"+" solve_rec solve_rec_rat some somrac sort sparse6_decode sparse6_encode sparse6_export"+" sparse6_import specint spherical spherical_bessel_j spherical_bessel_y spherical_hankel1"+" spherical_hankel2 spherical_harmonic spherical_to_xyz splice split sposition"+" sprint sqfr sqrt sqrtdenest sremove sremovefirst sreverse ssearch ssort sstatus"+" ssubst ssubstfirst staircase standardize standardize_inverse_trig starplot"+" starplot_description status std std1 std_bernoulli std_beta std_binomial"+" std_chi2 std_continuous_uniform std_discrete_uniform std_exp std_f std_gamma"+" std_general_finite_discrete std_geometric std_gumbel std_hypergeometric std_laplace"+" std_logistic std_lognormal std_negative_binomial std_noncentral_chi2 std_noncentral_student_t"+" std_normal std_pareto std_poisson std_rayleigh std_student_t std_weibull"+" stemplot stirling stirling1 stirling2 strim striml strimr string stringout"+" stringp strong_components struve_h struve_l sublis sublist sublist_indices"+" submatrix subsample subset subsetp subst substinpart subst_parallel substpart"+" substring subvar subvarp sum sumcontract summand_to_rec supcase supcontext"+" symbolp symmdifference symmetricp system take_channel take_inference tan"+" tanh taylor taylorinfo taylorp taylor_simplifier taytorat tcl_output tcontract"+" tellrat tellsimp tellsimpafter tentex tenth test_mean test_means_difference"+" test_normality test_proportion test_proportions_difference test_rank_sum"+" test_sign test_signed_rank test_variance test_variance_ratio tex tex1 tex_display"+" texput %th third throw time timedate timer timer_info tldefint tlimit todd_coxeter"+" toeplitz tokens to_lisp topological_sort to_poly to_poly_solve totaldisrep"+" totalfourier totient tpartpol trace tracematrix trace_options transform_sample"+" translate translate_file transpose treefale tree_reduce treillis treinat"+" triangle triangularize trigexpand trigrat trigreduce trigsimp trunc truncate"+" truncated_cube_graph truncated_dodecahedron_graph truncated_icosahedron_graph"+" truncated_tetrahedron_graph tr_warnings_get tube tutte_graph ueivects uforget"+" ultraspherical underlying_graph undiff union unique uniteigenvectors unitp"+" units unit_step unitvector unorder unsum untellrat untimer"+" untrace uppercasep uricci uriemann uvect vandermonde_matrix var var1 var_bernoulli"+" var_beta var_binomial var_chi2 var_continuous_uniform var_discrete_uniform"+" var_exp var_f var_gamma var_general_finite_discrete var_geometric var_gumbel"+" var_hypergeometric var_laplace var_logistic var_lognormal var_negative_binomial"+" var_noncentral_chi2 var_noncentral_student_t var_normal var_pareto var_poisson"+" var_rayleigh var_student_t var_weibull vector vectorpotential vectorsimp"+" verbify vers vertex_coloring vertex_connectivity vertex_degree vertex_distance"+" vertex_eccentricity vertex_in_degree vertex_out_degree vertices vertices_to_cycle"+" vertices_to_path %w weyl wheel_graph wiener_index wigner_3j wigner_6j"+" wigner_9j with_stdout write_binary_data writebyte write_data writefile wronskian"+" xreduce xthru %y Zeilberger zeroequiv zerofor zeromatrix zeromatrixp zeta"+" zgeev zheev zlange zn_add_table zn_carmichael_lambda zn_characteristic_factors"+" zn_determinant zn_factor_generators zn_invert_by_lu zn_log zn_mult_table"+" absboxchar activecontexts adapt_depth additive adim aform algebraic"+" algepsilon algexact aliases allbut all_dotsimp_denoms allocation allsym alphabetic"+" animation antisymmetric arrays askexp assume_pos assume_pos_pred assumescalar"+" asymbol atomgrad atrig1 axes axis_3d axis_bottom axis_left axis_right axis_top"+" azimuth background background_color backsubst berlefact bernstein_explicit"+" besselexpand beta_args_sum_to_integer beta_expand bftorat bftrunc bindtest"+" border boundaries_array box boxchar breakup %c capping cauchysum cbrange"+" cbtics center cflength cframe_flag cnonmet_flag color color_bar color_bar_tics"+" colorbox columns commutative complex cone context contexts contour contour_levels"+" cosnpiflag ctaypov ctaypt ctayswitch ctayvar ct_coords ctorsion_flag ctrgsimp"+" cube current_let_rule_package cylinder data_file_name debugmode decreasing"+" default_let_rule_package delay dependencies derivabbrev derivsubst detout"+" diagmetric diff dim dimensions dispflag display2d|10 display_format_internal"+" distribute_over doallmxops domain domxexpt domxmxops domxnctimes dontfactor"+" doscmxops doscmxplus dot0nscsimp dot0simp dot1simp dotassoc dotconstrules"+" dotdistrib dotexptsimp dotident dotscrules draw_graph_program draw_realpart"+" edge_color edge_coloring edge_partition edge_type edge_width %edispflag"+" elevation %emode endphi endtheta engineering_format_floats enhanced3d %enumer"+" epsilon_lp erfflag erf_representation errormsg error_size error_syms error_type"+" %e_to_numlog eval even evenfun evflag evfun ev_point expandwrt_denom expintexpand"+" expintrep expon expop exptdispflag exptisolate exptsubst facexpand facsum_combine"+" factlim factorflag factorial_expand factors_only fb feature features"+" file_name file_output_append file_search_demo file_search_lisp file_search_maxima|10"+" file_search_tests file_search_usage file_type_lisp file_type_maxima|10 fill_color"+" fill_density filled_func fixed_vertices flipflag float2bf font font_size"+" fortindent fortspaces fpprec fpprintprec functions gamma_expand gammalim"+" gdet genindex gensumnum GGFCFMAX GGFINFINITY globalsolve gnuplot_command"+" gnuplot_curve_styles gnuplot_curve_titles gnuplot_default_term_command gnuplot_dumb_term_command"+" gnuplot_file_args gnuplot_file_name gnuplot_out_file gnuplot_pdf_term_command"+" gnuplot_pm3d gnuplot_png_term_command gnuplot_postamble gnuplot_preamble"+" gnuplot_ps_term_command gnuplot_svg_term_command gnuplot_term gnuplot_view_args"+" Gosper_in_Zeilberger gradefs grid grid2d grind halfangles head_angle head_both"+" head_length head_type height hypergeometric_representation %iargs ibase"+" icc1 icc2 icounter idummyx ieqnprint ifb ifc1 ifc2 ifg ifgi ifr iframe_bracket_form"+" ifri igeowedge_flag ikt1 ikt2 imaginary inchar increasing infeval"+" infinity inflag infolists inm inmc1 inmc2 intanalysis integer integervalued"+" integrate_use_rootsof integration_constant integration_constant_counter interpolate_color"+" intfaclim ip_grid ip_grid_in irrational isolate_wrt_times iterations itr"+" julia_parameter %k1 %k2 keepfloat key key_pos kinvariant kt label label_alignment"+" label_orientation labels lassociative lbfgs_ncorrections lbfgs_nfeval_max"+" leftjust legend letrat let_rule_packages lfg lg lhospitallim limsubst linear"+" linear_solver linechar linel|10 linenum line_type linewidth line_width linsolve_params"+" linsolvewarn lispdisp listarith listconstvars listdummyvars lmxchar load_pathname"+" loadprint logabs logarc logcb logconcoeffp logexpand lognegint logsimp logx"+" logx_secondary logy logy_secondary logz lriem m1pbranch macroexpansion macros"+" mainvar manual_demo maperror mapprint matrix_element_add matrix_element_mult"+" matrix_element_transpose maxapplydepth maxapplyheight maxima_tempdir|10 maxima_userdir|10"+" maxnegex MAX_ORD maxposex maxpsifracdenom maxpsifracnum maxpsinegint maxpsiposint"+" maxtayorder mesh_lines_color method mod_big_prime mode_check_errorp"+" mode_checkp mode_check_warnp mod_test mod_threshold modular_linear_solver"+" modulus multiplicative multiplicities myoptions nary negdistrib negsumdispflag"+" newline newtonepsilon newtonmaxiter nextlayerfactor niceindicespref nm nmc"+" noeval nolabels nonegative_lp noninteger nonscalar noun noundisp nouns np"+" npi nticks ntrig numer numer_pbranch obase odd oddfun opacity opproperties"+" opsubst optimprefix optionset orientation origin orthopoly_returns_intervals"+" outative outchar packagefile palette partswitch pdf_file pfeformat phiresolution"+" %piargs piece pivot_count_sx pivot_max_sx plot_format plot_options plot_realpart"+" png_file pochhammer_max_index points pointsize point_size points_joined point_type"+" poislim poisson poly_coefficient_ring poly_elimination_order polyfactor poly_grobner_algorithm"+" poly_grobner_debug poly_monomial_order poly_primary_elimination_order poly_return_term_list"+" poly_secondary_elimination_order poly_top_reduction_only posfun position"+" powerdisp pred prederror primep_number_of_tests product_use_gamma program"+" programmode promote_float_to_bigfloat prompt proportional_axes props psexpand"+" ps_file radexpand radius radsubstflag rassociative ratalgdenom ratchristof"+" ratdenomdivide rateinstein ratepsilon ratfac rational ratmx ratprint ratriemann"+" ratsimpexpons ratvarswitch ratweights ratweyl ratwtlvl real realonly redraw"+" refcheck resolution restart resultant ric riem rmxchar %rnum_list rombergabs"+" rombergit rombergmin rombergtol rootsconmode rootsepsilon run_viewer same_xy"+" same_xyz savedef savefactors scalar scalarmatrixp scale scale_lp setcheck"+" setcheckbreak setval show_edge_color show_edges show_edge_type show_edge_width"+" show_id show_label showtime show_vertex_color show_vertex_size show_vertex_type"+" show_vertices show_weight simp simplified_output simplify_products simpproduct"+" simpsum sinnpiflag solvedecomposes solveexplicit solvefactors solvenullwarn"+" solveradcan solvetrigwarn space sparse sphere spring_embedding_depth sqrtdispflag"+" stardisp startphi starttheta stats_numer stringdisp structures style sublis_apply_lambda"+" subnumsimp sumexpand sumsplitfact surface surface_hide svg_file symmetric"+" tab taylordepth taylor_logexpand taylor_order_coefficients taylor_truncate_polynomials"+" tensorkill terminal testsuite_files thetaresolution timer_devalue title tlimswitch"+" tr track transcompile transform transform_xy translate_fast_arrays transparent"+" transrun tr_array_as_ref tr_bound_function_applyp tr_file_tty_messagesp tr_float_can_branch_complex"+" tr_function_call_default trigexpandplus trigexpandtimes triginverses trigsign"+" trivial_solutions tr_numer tr_optimize_max_loop tr_semicompile tr_state_vars"+" tr_warn_bad_function_calls tr_warn_fexpr tr_warn_meval tr_warn_mode"+" tr_warn_undeclared tr_warn_undefined_variable tstep ttyoff tube_extremes"+" ufg ug %unitexpand unit_vectors uric uriem use_fast_arrays user_preamble"+" usersetunits values vect_cross verbose vertex_color vertex_coloring vertex_partition"+" vertex_size vertex_type view warnings weyl width windowname windowtitle wired_surface"+" wireframe xaxis xaxis_color xaxis_secondary xaxis_type xaxis_width xlabel"+" xlabel_secondary xlength xrange xrange_secondary xtics xtics_axis xtics_rotate"+" xtics_rotate_secondary xtics_secondary xtics_secondary_axis xu_grid x_voxel"+" xy_file xyplane xy_scale yaxis yaxis_color yaxis_secondary yaxis_type yaxis_width"+" ylabel ylabel_secondary ylength yrange yrange_secondary ytics ytics_axis"+" ytics_rotate ytics_rotate_secondary ytics_secondary ytics_secondary_axis"+" yv_grid y_voxel yx_ratio zaxis zaxis_color zaxis_type zaxis_width zeroa zerob"+" zerobern zeta%pi zlabel zlabel_rotate zlength zmin zn_primroot_limit zn_primroot_pretest";var SYMBOLS="_ __ %|0 %%|0";return{lexemes:"[A-Za-z_%][0-9A-Za-z_%]*",keywords:{keyword:KEYWORDS,literal:LITERALS,built_in:BUILTIN_FUNCTIONS,symbol:SYMBOLS},contains:[{className:"comment",begin:"/\\*",end:"\\*/",contains:["self"]},hljs.QUOTE_STRING_MODE,{className:"number",relevance:0,variants:[{begin:"\\b(\\d+|\\d+\\.|\\.\\d+|\\d+\\.\\d+)[Ee][-+]?\\d+\\b"},{begin:"\\b(\\d+|\\d+\\.|\\.\\d+|\\d+\\.\\d+)[Bb][-+]?\\d+\\b",relevance:10},{begin:"\\b(\\.\\d+|\\d+\\.\\d+)\\b"},{begin:"\\b(\\d+|0[0-9A-Za-z]+)\\.?\\b"}]}],illegal:/@/}});hljs.registerLanguage("1c",function(hljs){var UNDERSCORE_IDENT_RE="[A-Za-zА-Яа-яёЁ_][A-Za-zА-Яа-яёЁ_0-9]+";var v7_keywords="далее ";var v8_keywords="возврат вызватьисключение выполнить для если и из или иначе иначеесли исключение каждого конецесли "+"конецпопытки конеццикла не новый перейти перем по пока попытка прервать продолжить тогда цикл экспорт ";var KEYWORD=v7_keywords+v8_keywords;var v7_meta_keywords="загрузитьизфайла ";var v8_meta_keywords="вебклиент вместо внешнеесоединение клиент конецобласти мобильноеприложениеклиент мобильноеприложениесервер "+"наклиенте наклиентенасервере наклиентенасерверебезконтекста насервере насерверебезконтекста область перед "+"после сервер толстыйклиентобычноеприложение толстыйклиентуправляемоеприложение тонкийклиент ";var METAKEYWORD=v7_meta_keywords+v8_meta_keywords;var v7_system_constants="разделительстраниц разделительстрок символтабуляции ";var v7_global_context_methods="ansitooem oemtoansi ввестивидсубконто ввестиперечисление ввестипериод ввестиплансчетов выбранныйплансчетов "+"датагод датамесяц датачисло заголовоксистемы значениевстроку значениеизстроки каталогиб каталогпользователя "+"кодсимв конгода конецпериодаби конецрассчитанногопериодаби конецстандартногоинтервала конквартала конмесяца "+"коннедели лог лог10 максимальноеколичествосубконто названиеинтерфейса названиенабораправ назначитьвид "+"назначитьсчет найтиссылки началопериодаби началостандартногоинтервала начгода начквартала начмесяца "+"начнедели номерднягода номерднянедели номернеделигода обработкаожидания основнойжурналрасчетов "+"основнойплансчетов основнойязык очиститьокносообщений периодстр получитьвремята получитьдатута "+"получитьдокументта получитьзначенияотбора получитьпозициюта получитьпустоезначение получитьта "+"префиксавтонумерации пропись пустоезначение разм разобратьпозициюдокумента рассчитатьрегистрына "+"рассчитатьрегистрыпо симв создатьобъект статусвозврата стрколичествострок сформироватьпозициюдокумента "+"счетпокоду текущеевремя типзначения типзначениястр установитьтана установитьтапо фиксшаблон шаблон ";var v8_global_context_methods="acos asin atan base64значение base64строка cos exp log log10 pow sin sqrt tan xmlзначение xmlстрока "+"xmlтип xmlтипзнч активноеокно безопасныйрежим безопасныйрежимразделенияданных булево ввестидату ввестизначение "+"ввестистроку ввестичисло возможностьчтенияxml вопрос восстановитьзначение врег выгрузитьжурналрегистрации "+"выполнитьобработкуоповещения выполнитьпроверкуправдоступа вычислить год данныеформывзначение дата день деньгода "+"деньнедели добавитьмесяц заблокироватьданныедляредактирования заблокироватьработупользователя завершитьработусистемы "+"загрузитьвнешнююкомпоненту закрытьсправку записатьjson записатьxml записатьдатуjson записьжурналарегистрации "+"заполнитьзначениясвойств запроситьразрешениепользователя запуститьприложение запуститьсистему зафиксироватьтранзакцию "+"значениевданныеформы значениевстрокувнутр значениевфайл значениезаполнено значениеизстрокивнутр значениеизфайла "+"изxmlтипа импортмоделиxdto имякомпьютера имяпользователя инициализироватьпредопределенныеданные информацияобошибке "+"каталогбиблиотекимобильногоустройства каталогвременныхфайлов каталогдокументов каталогпрограммы кодироватьстроку "+"кодлокализацииинформационнойбазы кодсимвола командасистемы конецгода конецдня конецквартала конецмесяца конецминуты "+"конецнедели конецчаса конфигурациябазыданныхизмененадинамически конфигурацияизменена копироватьданныеформы "+"копироватьфайл краткоепредставлениеошибки лев макс местноевремя месяц мин минута монопольныйрежим найти "+"найтинедопустимыесимволыxml найтиокнопонавигационнойссылке найтипомеченныенаудаление найтипоссылкам найтифайлы "+"началогода началодня началоквартала началомесяца началоминуты началонедели началочаса начатьзапросразрешенияпользователя "+"начатьзапускприложения начатькопированиефайла начатьперемещениефайла начатьподключениевнешнейкомпоненты "+"начатьподключениерасширенияработыскриптографией начатьподключениерасширенияработысфайлами начатьпоискфайлов "+"начатьполучениекаталогавременныхфайлов начатьполучениекаталогадокументов начатьполучениерабочегокаталогаданныхпользователя "+"начатьполучениефайлов начатьпомещениефайла начатьпомещениефайлов начатьсозданиедвоичныхданныхизфайла начатьсозданиекаталога "+"начатьтранзакцию начатьудалениефайлов начатьустановкувнешнейкомпоненты начатьустановкурасширенияработыскриптографией "+"начатьустановкурасширенияработысфайлами неделягода необходимостьзавершениясоединения номерсеансаинформационнойбазы "+"номерсоединенияинформационнойбазы нрег нстр обновитьинтерфейс обновитьнумерациюобъектов обновитьповторноиспользуемыезначения "+"обработкапрерыванияпользователя объединитьфайлы окр описаниеошибки оповестить оповеститьобизменении "+"отключитьобработчикзапросанастроекклиенталицензирования отключитьобработчикожидания отключитьобработчикоповещения "+"открытьзначение открытьиндекссправки открытьсодержаниесправки открытьсправку открытьформу открытьформумодально "+"отменитьтранзакцию очиститьжурналрегистрации очиститьнастройкипользователя очиститьсообщения параметрыдоступа "+"перейтипонавигационнойссылке переместитьфайл подключитьвнешнююкомпоненту "+"подключитьобработчикзапросанастроекклиенталицензирования подключитьобработчикожидания подключитьобработчикоповещения "+"подключитьрасширениеработыскриптографией подключитьрасширениеработысфайлами подробноепредставлениеошибки "+"показатьвводдаты показатьвводзначения показатьвводстроки показатьвводчисла показатьвопрос показатьзначение "+"показатьинформациюобошибке показатьнакарте показатьоповещениепользователя показатьпредупреждение полноеимяпользователя "+"получитьcomобъект получитьxmlтип получитьадреспоместоположению получитьблокировкусеансов получитьвремязавершенияспящегосеанса "+"получитьвремязасыпанияпассивногосеанса получитьвремяожиданияблокировкиданных получитьданныевыбора "+"получитьдополнительныйпараметрклиенталицензирования получитьдопустимыекодылокализации получитьдопустимыечасовыепояса "+"получитьзаголовокклиентскогоприложения получитьзаголовоксистемы получитьзначенияотборажурналарегистрации "+"получитьидентификаторконфигурации получитьизвременногохранилища получитьимявременногофайла "+"получитьимяклиенталицензирования получитьинформациюэкрановклиента получитьиспользованиежурналарегистрации "+"получитьиспользованиесобытияжурналарегистрации получитькраткийзаголовокприложения получитьмакетоформления "+"получитьмаскувсефайлы получитьмаскувсефайлыклиента получитьмаскувсефайлысервера получитьместоположениепоадресу "+"получитьминимальнуюдлинупаролейпользователей получитьнавигационнуюссылку получитьнавигационнуюссылкуинформационнойбазы "+"получитьобновлениеконфигурациибазыданных получитьобновлениепредопределенныхданныхинформационнойбазы получитьобщиймакет "+"получитьобщуюформу получитьокна получитьоперативнуюотметкувремени получитьотключениебезопасногорежима "+"получитьпараметрыфункциональныхопцийинтерфейса получитьполноеимяпредопределенногозначения "+"получитьпредставлениянавигационныхссылок получитьпроверкусложностипаролейпользователей получитьразделительпути "+"получитьразделительпутиклиента получитьразделительпутисервера получитьсеансыинформационнойбазы "+"получитьскоростьклиентскогосоединения получитьсоединенияинформационнойбазы получитьсообщенияпользователю "+"получитьсоответствиеобъектаиформы получитьсоставстандартногоинтерфейсаodata получитьструктурухранениябазыданных "+"получитьтекущийсеансинформационнойбазы получитьфайл получитьфайлы получитьформу получитьфункциональнуюопцию "+"получитьфункциональнуюопциюинтерфейса получитьчасовойпоясинформационнойбазы пользователиос поместитьвовременноехранилище "+"поместитьфайл поместитьфайлы прав праводоступа предопределенноезначение представлениекодалокализации представлениепериода "+"представлениеправа представлениеприложения представлениесобытияжурналарегистрации представлениечасовогопояса предупреждение "+"прекратитьработусистемы привилегированныйрежим продолжитьвызов прочитатьjson прочитатьxml прочитатьдатуjson пустаястрока "+"рабочийкаталогданныхпользователя разблокироватьданныедляредактирования разделитьфайл разорватьсоединениесвнешнимисточникомданных "+"раскодироватьстроку рольдоступна секунда сигнал символ скопироватьжурналрегистрации смещениелетнеговремени "+"смещениестандартноговремени соединитьбуферыдвоичныхданных создатькаталог создатьфабрикуxdto сокрл сокрлп сокрп сообщить "+"состояние сохранитьзначение сохранитьнастройкипользователя сред стрдлина стрзаканчиваетсяна стрзаменить стрнайти стрначинаетсяс "+"строка строкасоединенияинформационнойбазы стрполучитьстроку стрразделить стрсоединить стрсравнить стрчисловхождений "+"стрчислострок стршаблон текущаядата текущаядатасеанса текущаяуниверсальнаядата текущаяуниверсальнаядатавмиллисекундах "+"текущийвариантинтерфейсаклиентскогоприложения текущийвариантосновногошрифтаклиентскогоприложения текущийкодлокализации "+"текущийрежимзапуска текущийязык текущийязыксистемы тип типзнч транзакцияактивна трег удалитьданныеинформационнойбазы "+"удалитьизвременногохранилища удалитьобъекты удалитьфайлы универсальноевремя установитьбезопасныйрежим "+"установитьбезопасныйрежимразделенияданных установитьблокировкусеансов установитьвнешнююкомпоненту "+"установитьвремязавершенияспящегосеанса установитьвремязасыпанияпассивногосеанса установитьвремяожиданияблокировкиданных "+"установитьзаголовокклиентскогоприложения установитьзаголовоксистемы установитьиспользованиежурналарегистрации "+"установитьиспользованиесобытияжурналарегистрации установитькраткийзаголовокприложения "+"установитьминимальнуюдлинупаролейпользователей установитьмонопольныйрежим установитьнастройкиклиенталицензирования "+"установитьобновлениепредопределенныхданныхинформационнойбазы установитьотключениебезопасногорежима "+"установитьпараметрыфункциональныхопцийинтерфейса установитьпривилегированныйрежим "+"установитьпроверкусложностипаролейпользователей установитьрасширениеработыскриптографией "+"установитьрасширениеработысфайлами установитьсоединениесвнешнимисточникомданных установитьсоответствиеобъектаиформы "+"установитьсоставстандартногоинтерфейсаodata установитьчасовойпоясинформационнойбазы установитьчасовойпояссеанса "+"формат цел час часовойпояс часовойпояссеанса число числопрописью этоадресвременногохранилища ";var v8_global_context_property="wsссылки библиотекакартинок библиотекамакетовоформлениякомпоновкиданных библиотекастилей бизнеспроцессы "+"внешниеисточникиданных внешниеобработки внешниеотчеты встроенныепокупки главныйинтерфейс главныйстиль "+"документы доставляемыеуведомления журналыдокументов задачи информацияобинтернетсоединении использованиерабочейдаты "+"историяработыпользователя константы критерииотбора метаданные обработки отображениерекламы отправкадоставляемыхуведомлений "+"отчеты панельзадачос параметрзапуска параметрысеанса перечисления планывидоврасчета планывидовхарактеристик "+"планыобмена планысчетов полнотекстовыйпоиск пользователиинформационнойбазы последовательности проверкавстроенныхпокупок "+"рабочаядата расширенияконфигурации регистрыбухгалтерии регистрынакопления регистрырасчета регистрысведений "+"регламентныезадания сериализаторxdto справочники средствагеопозиционирования средствакриптографии средствамультимедиа "+"средстваотображениярекламы средствапочты средствателефонии фабрикаxdto файловыепотоки фоновыезадания хранилищанастроек "+"хранилищевариантовотчетов хранилищенастроекданныхформ хранилищеобщихнастроек хранилищепользовательскихнастроекдинамическихсписков "+"хранилищепользовательскихнастроекотчетов хранилищесистемныхнастроек ";var BUILTIN=v7_system_constants+v7_global_context_methods+v8_global_context_methods+v8_global_context_property;var v8_system_sets_of_values="webцвета windowsцвета windowsшрифты библиотекакартинок рамкистиля символы цветастиля шрифтыстиля ";var v8_system_enums_interface="автоматическоесохранениеданныхформывнастройках автонумерациявформе автораздвижениесерий "+"анимациядиаграммы вариантвыравниванияэлементовизаголовков вариантуправлениявысотойтаблицы "+"вертикальнаяпрокруткаформы вертикальноеположение вертикальноеположениеэлемента видгруппыформы "+"виддекорацииформы виддополненияэлементаформы видизмененияданных видкнопкиформы видпереключателя "+"видподписейкдиаграмме видполяформы видфлажка влияниеразмеранапузырекдиаграммы горизонтальноеположение "+"горизонтальноеположениеэлемента группировкаколонок группировкаподчиненныхэлементовформы "+"группыиэлементы действиеперетаскивания дополнительныйрежимотображения допустимыедействияперетаскивания "+"интервалмеждуэлементамиформы использованиевывода использованиеполосыпрокрутки "+"используемоезначениеточкибиржевойдиаграммы историявыборапривводе источникзначенийоситочекдиаграммы "+"источникзначенияразмерапузырькадиаграммы категориягруппыкоманд максимумсерий начальноеотображениедерева "+"начальноеотображениесписка обновлениетекстаредактирования ориентациядендрограммы ориентациядиаграммы "+"ориентацияметокдиаграммы ориентацияметоксводнойдиаграммы ориентацияэлементаформы отображениевдиаграмме "+"отображениевлегендедиаграммы отображениегруппыкнопок отображениезаголовкашкалыдиаграммы "+"отображениезначенийсводнойдиаграммы отображениезначенияизмерительнойдиаграммы "+"отображениеинтерваладиаграммыганта отображениекнопки отображениекнопкивыбора отображениеобсужденийформы "+"отображениеобычнойгруппы отображениеотрицательныхзначенийпузырьковойдиаграммы отображениепанелипоиска "+"отображениеподсказки отображениепредупрежденияприредактировании отображениеразметкиполосырегулирования "+"отображениестраницформы отображениетаблицы отображениетекстазначениядиаграммыганта "+"отображениеуправленияобычнойгруппы отображениефигурыкнопки палитрацветовдиаграммы поведениеобычнойгруппы "+"поддержкамасштабадендрограммы поддержкамасштабадиаграммыганта поддержкамасштабасводнойдиаграммы "+"поисквтаблицепривводе положениезаголовкаэлементаформы положениекартинкикнопкиформы "+"положениекартинкиэлементаграфическойсхемы положениекоманднойпанелиформы положениекоманднойпанелиэлементаформы "+"положениеопорнойточкиотрисовки положениеподписейкдиаграмме положениеподписейшкалызначенийизмерительнойдиаграммы "+"положениесостоянияпросмотра положениестрокипоиска положениетекстасоединительнойлинии положениеуправленияпоиском "+"положениешкалывремени порядокотображенияточекгоризонтальнойгистограммы порядоксерийвлегендедиаграммы "+"размеркартинки расположениезаголовкашкалыдиаграммы растягиваниеповертикалидиаграммыганта "+"режимавтоотображениясостояния режимвводастроктаблицы режимвыборанезаполненного режимвыделениядаты "+"режимвыделениястрокитаблицы режимвыделениятаблицы режимизмененияразмера режимизменениясвязанногозначения "+"режимиспользованиядиалогапечати режимиспользованияпараметракоманды режиммасштабированияпросмотра "+"режимосновногоокнаклиентскогоприложения режимоткрытияокнаформы режимотображениявыделения "+"режимотображениягеографическойсхемы режимотображениязначенийсерии режимотрисовкисеткиграфическойсхемы "+"режимполупрозрачностидиаграммы режимпробеловдиаграммы режимразмещениянастранице режимредактированияколонки "+"режимсглаживаниядиаграммы режимсглаживанияиндикатора режимсписказадач сквозноевыравнивание "+"сохранениеданныхформывнастройках способзаполнениятекстазаголовкашкалыдиаграммы "+"способопределенияограничивающегозначениядиаграммы стандартнаягруппакоманд стандартноеоформление "+"статусоповещенияпользователя стильстрелки типаппроксимациилиниитрендадиаграммы типдиаграммы "+"типединицышкалывремени типимпортасерийслоягеографическойсхемы типлиниигеографическойсхемы типлиниидиаграммы "+"типмаркерагеографическойсхемы типмаркерадиаграммы типобластиоформления "+"типорганизацииисточникаданныхгеографическойсхемы типотображениясериислоягеографическойсхемы "+"типотображенияточечногообъектагеографическойсхемы типотображенияшкалыэлементалегендыгеографическойсхемы "+"типпоискаобъектовгеографическойсхемы типпроекциигеографическойсхемы типразмещенияизмерений "+"типразмещенияреквизитовизмерений типрамкиэлементауправления типсводнойдиаграммы "+"типсвязидиаграммыганта типсоединениязначенийпосериямдиаграммы типсоединенияточекдиаграммы "+"типсоединительнойлинии типстороныэлементаграфическойсхемы типформыотчета типшкалырадарнойдиаграммы "+"факторлиниитрендадиаграммы фигуракнопки фигурыграфическойсхемы фиксациявтаблице форматдняшкалывремени "+"форматкартинки ширинаподчиненныхэлементовформы ";var v8_system_enums_objects_properties="виддвижениябухгалтерии виддвижениянакопления видпериодарегистрарасчета видсчета видточкимаршрутабизнеспроцесса "+"использованиеагрегатарегистранакопления использованиегруппиэлементов использованиережимапроведения "+"использованиесреза периодичностьагрегатарегистранакопления режимавтовремя режимзаписидокумента режимпроведениядокумента ";var v8_system_enums_exchange_plans="авторегистрацияизменений допустимыйномерсообщения отправкаэлементаданных получениеэлементаданных ";var v8_system_enums_tabular_document="использованиерасшифровкитабличногодокумента ориентациястраницы положениеитоговколоноксводнойтаблицы "+"положениеитоговстроксводнойтаблицы положениетекстаотносительнокартинки расположениезаголовкагруппировкитабличногодокумента "+"способчтениязначенийтабличногодокумента типдвустороннейпечати типзаполненияобластитабличногодокумента "+"типкурсоровтабличногодокумента типлиниирисункатабличногодокумента типлинииячейкитабличногодокумента "+"типнаправленияпереходатабличногодокумента типотображениявыделениятабличногодокумента типотображениялинийсводнойтаблицы "+"типразмещениятекстатабличногодокумента типрисункатабличногодокумента типсмещениятабличногодокумента "+"типузоратабличногодокумента типфайлатабличногодокумента точностьпечати чередованиерасположениястраниц ";var v8_system_enums_sheduler="отображениевремениэлементовпланировщика ";var v8_system_enums_formatted_document="типфайлаформатированногодокумента ";var v8_system_enums_query="обходрезультатазапроса типзаписизапроса ";var v8_system_enums_report_builder="видзаполнениярасшифровкипостроителяотчета типдобавленияпредставлений типизмеренияпостроителяотчета типразмещенияитогов ";var v8_system_enums_files="доступкфайлу режимдиалогавыборафайла режимоткрытияфайла ";var v8_system_enums_query_builder="типизмеренияпостроителязапроса ";var v8_system_enums_data_analysis="видданныханализа методкластеризации типединицыинтервалавременианализаданных типзаполнениятаблицырезультатаанализаданных "+"типиспользованиячисловыхзначенийанализаданных типисточникаданныхпоискаассоциаций типколонкианализаданныхдереворешений "+"типколонкианализаданныхкластеризация типколонкианализаданныхобщаястатистика типколонкианализаданныхпоискассоциаций "+"типколонкианализаданныхпоискпоследовательностей типколонкимоделипрогноза типмерырасстоянияанализаданных "+"типотсеченияправилассоциации типполяанализаданных типстандартизациианализаданных типупорядочиванияправилассоциациианализаданных "+"типупорядочиванияшаблоновпоследовательностейанализаданных типупрощениядереварешений ";var v8_system_enums_xml_json_xs_dom_xdto_ws="wsнаправлениепараметра вариантxpathxs вариантзаписидатыjson вариантпростоготипаxs видгруппымоделиxs видфасетаxdto "+"действиепостроителяdom завершенностьпростоготипаxs завершенностьсоставноготипаxs завершенностьсхемыxs запрещенныеподстановкиxs "+"исключениягруппподстановкиxs категорияиспользованияатрибутаxs категорияограниченияидентичностиxs категорияограниченияпространствименxs "+"методнаследованияxs модельсодержимогоxs назначениетипаxml недопустимыеподстановкиxs обработкапробельныхсимволовxs обработкасодержимогоxs "+"ограничениезначенияxs параметрыотбораузловdom переносстрокjson позициявдокументеdom пробельныесимволыxml типатрибутаxml типзначенияjson "+"типканоническогоxml типкомпонентыxs типпроверкиxml типрезультатаdomxpath типузлаdom типузлаxml формаxml формапредставленияxs "+"форматдатыjson экранированиесимволовjson ";var v8_system_enums_data_composition_system="видсравнениякомпоновкиданных действиеобработкирасшифровкикомпоновкиданных направлениесортировкикомпоновкиданных "+"расположениевложенныхэлементоврезультатакомпоновкиданных расположениеитоговкомпоновкиданных расположениегруппировкикомпоновкиданных "+"расположениеполейгруппировкикомпоновкиданных расположениеполякомпоновкиданных расположениереквизитовкомпоновкиданных "+"расположениересурсовкомпоновкиданных типбухгалтерскогоостаткакомпоновкиданных типвыводатекстакомпоновкиданных "+"типгруппировкикомпоновкиданных типгруппыэлементовотборакомпоновкиданных типдополненияпериодакомпоновкиданных "+"типзаголовкаполейкомпоновкиданных типмакетагруппировкикомпоновкиданных типмакетаобластикомпоновкиданных типостаткакомпоновкиданных "+"типпериодакомпоновкиданных типразмещениятекстакомпоновкиданных типсвязинаборовданныхкомпоновкиданных типэлементарезультатакомпоновкиданных "+"расположениелегендыдиаграммыкомпоновкиданных типпримененияотборакомпоновкиданных режимотображенияэлементанастройкикомпоновкиданных "+"режимотображениянастроеккомпоновкиданных состояниеэлементанастройкикомпоновкиданных способвосстановлениянастроеккомпоновкиданных "+"режимкомпоновкирезультата использованиепараметракомпоновкиданных автопозицияресурсовкомпоновкиданных "+"вариантиспользованиягруппировкикомпоновкиданных расположениересурсоввдиаграммекомпоновкиданных фиксациякомпоновкиданных "+"использованиеусловногооформлениякомпоновкиданных ";var v8_system_enums_email="важностьинтернетпочтовогосообщения обработкатекстаинтернетпочтовогосообщения способкодированияинтернетпочтовоговложения "+"способкодированиянеasciiсимволовинтернетпочтовогосообщения типтекстапочтовогосообщения протоколинтернетпочты "+"статусразборапочтовогосообщения ";var v8_system_enums_logbook="режимтранзакциизаписижурналарегистрации статустранзакциизаписижурналарегистрации уровеньжурналарегистрации ";var v8_system_enums_cryptography="расположениехранилищасертификатовкриптографии режимвключениясертификатовкриптографии режимпроверкисертификатакриптографии "+"типхранилищасертификатовкриптографии ";var v8_system_enums_zip="кодировкаименфайловвzipфайле методсжатияzip методшифрованияzip режимвосстановленияпутейфайловzip режимобработкиподкаталоговzip "+"режимсохраненияпутейzip уровеньсжатияzip ";var v8_system_enums_other="звуковоеоповещение направлениепереходакстроке позициявпотоке порядокбайтов режимблокировкиданных режимуправленияблокировкойданных "+"сервисвстроенныхпокупок состояниефоновогозадания типподписчикадоставляемыхуведомлений уровеньиспользованиязащищенногосоединенияftp ";var v8_system_enums_request_schema="направлениепорядкасхемызапроса типдополненияпериодамисхемызапроса типконтрольнойточкисхемызапроса типобъединениясхемызапроса "+"типпараметрадоступнойтаблицысхемызапроса типсоединениясхемызапроса ";var v8_system_enums_properties_of_metadata_objects="httpметод автоиспользованиеобщегореквизита автопрефиксномеразадачи вариантвстроенногоязыка видиерархии видрегистранакопления "+"видтаблицывнешнегоисточникаданных записьдвиженийприпроведении заполнениепоследовательностей индексирование "+"использованиебазыпланавидоврасчета использованиебыстроговыбора использованиеобщегореквизита использованиеподчинения "+"использованиеполнотекстовогопоиска использованиеразделяемыхданныхобщегореквизита использованиереквизита "+"назначениеиспользованияприложения назначениерасширенияконфигурации направлениепередачи обновлениепредопределенныхданных "+"оперативноепроведение основноепредставлениевидарасчета основноепредставлениевидахарактеристики основноепредставлениезадачи "+"основноепредставлениепланаобмена основноепредставлениесправочника основноепредставлениесчета перемещениеграницыприпроведении "+"периодичностьномерабизнеспроцесса периодичностьномерадокумента периодичностьрегистрарасчета периодичностьрегистрасведений "+"повторноеиспользованиевозвращаемыхзначений полнотекстовыйпоискпривводепостроке принадлежностьобъекта проведение "+"разделениеаутентификацииобщегореквизита разделениеданныхобщегореквизита разделениерасширенийконфигурацииобщегореквизита "+"режимавтонумерацииобъектов режимзаписирегистра режимиспользованиямодальности "+"режимиспользованиясинхронныхвызововрасширенийплатформыивнешнихкомпонент режимповторногоиспользованиясеансов "+"режимполученияданныхвыборапривводепостроке режимсовместимости режимсовместимостиинтерфейса "+"режимуправленияблокировкойданныхпоумолчанию сериикодовпланавидовхарактеристик сериикодовпланасчетов "+"сериикодовсправочника созданиепривводе способвыбора способпоискастрокипривводепостроке способредактирования "+"типданныхтаблицывнешнегоисточникаданных типкодапланавидоврасчета типкодасправочника типмакета типномерабизнеспроцесса "+"типномерадокумента типномеразадачи типформы удалениедвижений ";var v8_system_enums_differents="важностьпроблемыприменениярасширенияконфигурации вариантинтерфейсаклиентскогоприложения вариантмасштабаформклиентскогоприложения "+"вариантосновногошрифтаклиентскогоприложения вариантстандартногопериода вариантстандартнойдатыначала видграницы видкартинки "+"видотображенияполнотекстовогопоиска видрамки видсравнения видцвета видчисловогозначения видшрифта допустимаядлина допустимыйзнак "+"использованиеbyteordermark использованиеметаданныхполнотекстовогопоиска источникрасширенийконфигурации клавиша кодвозвратадиалога "+"кодировкаxbase кодировкатекста направлениепоиска направлениесортировки обновлениепредопределенныхданных обновлениеприизмененииданных "+"отображениепанелиразделов проверказаполнения режимдиалогавопрос режимзапускаклиентскогоприложения режимокругления режимоткрытияформприложения "+"режимполнотекстовогопоиска скоростьклиентскогосоединения состояниевнешнегоисточникаданных состояниеобновленияконфигурациибазыданных "+"способвыборасертификатаwindows способкодированиястроки статуссообщения типвнешнейкомпоненты типплатформы типповеденияклавишиenter "+"типэлементаинформацииовыполненииобновленияконфигурациибазыданных уровеньизоляциитранзакций хешфункция частидаты";var CLASS=v8_system_sets_of_values+v8_system_enums_interface+v8_system_enums_objects_properties+v8_system_enums_exchange_plans+v8_system_enums_tabular_document+v8_system_enums_sheduler+v8_system_enums_formatted_document+v8_system_enums_query+v8_system_enums_report_builder+v8_system_enums_files+v8_system_enums_query_builder+v8_system_enums_data_analysis+v8_system_enums_xml_json_xs_dom_xdto_ws+v8_system_enums_data_composition_system+v8_system_enums_email+v8_system_enums_logbook+v8_system_enums_cryptography+v8_system_enums_zip+v8_system_enums_other+v8_system_enums_request_schema+v8_system_enums_properties_of_metadata_objects+v8_system_enums_differents;var v8_shared_object="comобъект ftpсоединение httpзапрос httpсервисответ httpсоединение wsопределения wsпрокси xbase анализданных аннотацияxs "+"блокировкаданных буфердвоичныхданных включениеxs выражениекомпоновкиданных генераторслучайныхчисел географическаясхема "+"географическиекоординаты графическаясхема группамоделиxs данныерасшифровкикомпоновкиданных двоичныеданные дендрограмма "+"диаграмма диаграммаганта диалогвыборафайла диалогвыборацвета диалогвыборашрифта диалограсписаниярегламентногозадания "+"диалогредактированиястандартногопериода диапазон документdom документhtml документацияxs доставляемоеуведомление "+"записьdom записьfastinfoset записьhtml записьjson записьxml записьzipфайла записьданных записьтекста записьузловdom "+"запрос защищенноесоединениеopenssl значенияполейрасшифровкикомпоновкиданных извлечениетекста импортxs интернетпочта "+"интернетпочтовоесообщение интернетпочтовыйпрофиль интернетпрокси интернетсоединение информациядляприложенияxs "+"использованиеатрибутаxs использованиесобытияжурналарегистрации источникдоступныхнастроеккомпоновкиданных "+"итераторузловdom картинка квалификаторыдаты квалификаторыдвоичныхданных квалификаторыстроки квалификаторычисла "+"компоновщикмакетакомпоновкиданных компоновщикнастроеккомпоновкиданных конструктормакетаоформлениякомпоновкиданных "+"конструкторнастроеккомпоновкиданных конструкторформатнойстроки линия макеткомпоновкиданных макетобластикомпоновкиданных "+"макетоформлениякомпоновкиданных маскаxs менеджеркриптографии наборсхемxml настройкикомпоновкиданных настройкисериализацииjson "+"обработкакартинок обработкарасшифровкикомпоновкиданных обходдереваdom объявлениеатрибутаxs объявлениенотацииxs "+"объявлениеэлементаxs описаниеиспользованиясобытиядоступжурналарегистрации "+"описаниеиспользованиясобытияотказвдоступежурналарегистрации описаниеобработкирасшифровкикомпоновкиданных "+"описаниепередаваемогофайла описаниетипов определениегруппыатрибутовxs определениегруппымоделиxs "+"определениеограниченияидентичностиxs определениепростоготипаxs определениесоставноготипаxs определениетипадокументаdom "+"определенияxpathxs отборкомпоновкиданных пакетотображаемыхдокументов параметрвыбора параметркомпоновкиданных "+"параметрызаписиjson параметрызаписиxml параметрычтенияxml переопределениеxs планировщик полеанализаданных "+"полекомпоновкиданных построительdom построительзапроса построительотчета построительотчетаанализаданных "+"построительсхемxml поток потоквпамяти почта почтовоесообщение преобразованиеxsl преобразованиекканоническомуxml "+"процессорвыводарезультатакомпоновкиданныхвколлекциюзначений процессорвыводарезультатакомпоновкиданныхвтабличныйдокумент "+"процессоркомпоновкиданных разыменовательпространствименdom рамка расписаниерегламентногозадания расширенноеимяxml "+"результатчтенияданных своднаядиаграмма связьпараметравыбора связьпотипу связьпотипукомпоновкиданных сериализаторxdto "+"сертификатклиентаwindows сертификатклиентафайл сертификаткриптографии сертификатыудостоверяющихцентровwindows "+"сертификатыудостоверяющихцентровфайл сжатиеданных системнаяинформация сообщениепользователю сочетаниеклавиш "+"сравнениезначений стандартнаядатаначала стандартныйпериод схемаxml схемакомпоновкиданных табличныйдокумент "+"текстовыйдокумент тестируемоеприложение типданныхxml уникальныйидентификатор фабрикаxdto файл файловыйпоток "+"фасетдлиныxs фасетколичестваразрядовдробнойчастиxs фасетмаксимальноговключающегозначенияxs "+"фасетмаксимальногоисключающегозначенияxs фасетмаксимальнойдлиныxs фасетминимальноговключающегозначенияxs "+"фасетминимальногоисключающегозначенияxs фасетминимальнойдлиныxs фасетобразцаxs фасетобщегоколичестваразрядовxs "+"фасетперечисленияxs фасетпробельныхсимволовxs фильтрузловdom форматированнаястрока форматированныйдокумент "+"фрагментxs хешированиеданных хранилищезначения цвет чтениеfastinfoset чтениеhtml чтениеjson чтениеxml чтениеzipфайла "+"чтениеданных чтениетекста чтениеузловdom шрифт элементрезультатакомпоновкиданных ";var v8_universal_collection="comsafearray деревозначений массив соответствие списокзначений структура таблицазначений фиксированнаяструктура "+"фиксированноесоответствие фиксированныймассив ";var TYPE=v8_shared_object+v8_universal_collection;var LITERAL="null истина ложь неопределено";var NUMBERS=hljs.inherit(hljs.NUMBER_MODE);var STRINGS={className:"string",begin:'"|\\|',end:'"|$',contains:[{begin:'""'}]};var DATE={begin:"'",end:"'",excludeBegin:true,excludeEnd:true,contains:[{className:"number",begin:"\\d{4}([\\.\\\\/:-]?\\d{2}){0,5}"}]};var COMMENTS=hljs.inherit(hljs.C_LINE_COMMENT_MODE);var META={className:"meta",lexemes:UNDERSCORE_IDENT_RE,begin:"#|&",end:"$",keywords:{"meta-keyword":KEYWORD+METAKEYWORD},contains:[COMMENTS]};var SYMBOL={className:"symbol",begin:"~",end:";|:",excludeEnd:true};var FUNCTION={className:"function",lexemes:UNDERSCORE_IDENT_RE,variants:[{begin:"процедура|функция",end:"\\)",keywords:"процедура функция"},{begin:"конецпроцедуры|конецфункции",keywords:"конецпроцедуры конецфункции"}],contains:[{begin:"\\(",end:"\\)",endsParent:true,contains:[{className:"params",lexemes:UNDERSCORE_IDENT_RE,begin:UNDERSCORE_IDENT_RE,end:",",excludeEnd:true,endsWithParent:true,keywords:{keyword:"знач",literal:LITERAL},contains:[NUMBERS,STRINGS,DATE]},COMMENTS]},hljs.inherit(hljs.TITLE_MODE,{begin:UNDERSCORE_IDENT_RE})]};return{case_insensitive:true,lexemes:UNDERSCORE_IDENT_RE,keywords:{keyword:KEYWORD,built_in:BUILTIN,class:CLASS,type:TYPE,literal:LITERAL},contains:[META,FUNCTION,COMMENTS,SYMBOL,NUMBERS,STRINGS,DATE]}});hljs.registerLanguage("asciidoc",function(hljs){return{aliases:["adoc"],contains:[hljs.COMMENT("^/{4,}\\n","\\n/{4,}$",{relevance:10}),hljs.COMMENT("^//","$",{relevance:0}),{className:"title",begin:"^\\.\\w.*$"},{begin:"^[=\\*]{4,}\\n",end:"\\n^[=\\*]{4,}$",relevance:10},{className:"section",relevance:10,variants:[{begin:"^(={1,5}) .+?( \\1)?$"},{begin:"^[^\\[\\]\\n]+?\\n[=\\-~\\^\\+]{2,}$"}]},{className:"meta",begin:"^:.+?:",end:"\\s",excludeEnd:true,relevance:10},{className:"meta",begin:"^\\[.+?\\]$",relevance:0},{className:"quote",begin:"^_{4,}\\n",end:"\\n_{4,}$",relevance:10},{className:"code",begin:"^[\\-\\.]{4,}\\n",end:"\\n[\\-\\.]{4,}$",relevance:10},{begin:"^\\+{4,}\\n",end:"\\n\\+{4,}$",contains:[{begin:"<",end:">",subLanguage:"xml",relevance:0}],relevance:10},{className:"bullet",begin:"^(\\*+|\\-+|\\.+|[^\\n]+?::)\\s+"},{className:"symbol",begin:"^(NOTE|TIP|IMPORTANT|WARNING|CAUTION):\\s+",relevance:10},{className:"strong",begin:"\\B\\*(?![\\*\\s])",end:"(\\n{2}|\\*)",contains:[{begin:"\\\\*\\w",relevance:0}]},{className:"emphasis",begin:"\\B'(?!['\\s])",end:"(\\n{2}|')",contains:[{begin:"\\\\'\\w",relevance:0}],relevance:0},{className:"emphasis",begin:"_(?![_\\s])",end:"(\\n{2}|_)",relevance:0},{className:"string",variants:[{begin:"``.+?''"},{begin:"`.+?'"}]},{className:"code",begin:"(`.+?`|\\+.+?\\+)",relevance:0},{className:"code",begin:"^[ \\t]",end:"$",relevance:0},{begin:"^'{3,}[ \\t]*$",relevance:10},{begin:"(link:)?(http|https|ftp|file|irc|image:?):\\S+\\[.*?\\]",returnBegin:true,contains:[{begin:"(link|image:?):",relevance:0},{className:"link",begin:"\\w",end:"[^\\[]+",relevance:0},{className:"string",begin:"\\[",end:"\\]",excludeBegin:true,excludeEnd:true,relevance:0}],relevance:10}]}});hljs.registerLanguage("flix",function(hljs){var CHAR={className:"string",begin:/'(.|\\[xXuU][a-zA-Z0-9]+)'/};var STRING={className:"string",variants:[{begin:'"',end:'"'}]};var NAME={className:"title",begin:/[^0-9\n\t "'(),.`{}\[\]:;][^\n\t "'(),.`{}\[\]:;]+|[^0-9\n\t "'(),.`{}\[\]:;=]/};var METHOD={className:"function",beginKeywords:"def",end:/[:={\[(\n;]/,excludeEnd:true,contains:[NAME]};return{keywords:{literal:"true false",keyword:"case class def else enum if impl import in lat rel index let match namespace switch type yield with"},contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,CHAR,STRING,METHOD,hljs.C_NUMBER_MODE]}});hljs.registerLanguage("python",function(hljs){var KEYWORDS={keyword:"and elif is global as in if from raise for except finally print import pass return "+"exec else break not with class assert yield try while continue del or def lambda "+"async await nonlocal|10",built_in:"Ellipsis NotImplemented",literal:"False None True"};var PROMPT={className:"meta",begin:/^(>>>|\.\.\.) /};var SUBST={className:"subst",begin:/\{/,end:/\}/,keywords:KEYWORDS,illegal:/#/};var LITERAL_BRACKET={begin:/\{\{/,relevance:0};var STRING={className:"string",contains:[hljs.BACKSLASH_ESCAPE],variants:[{begin:/(u|b)?r?'''/,end:/'''/,contains:[hljs.BACKSLASH_ESCAPE,PROMPT],relevance:10},{begin:/(u|b)?r?"""/,end:/"""/,contains:[hljs.BACKSLASH_ESCAPE,PROMPT],relevance:10},{begin:/(fr|rf|f)'''/,end:/'''/,contains:[hljs.BACKSLASH_ESCAPE,PROMPT,LITERAL_BRACKET,SUBST]},{begin:/(fr|rf|f)"""/,end:/"""/,contains:[hljs.BACKSLASH_ESCAPE,PROMPT,LITERAL_BRACKET,SUBST]},{begin:/(u|r|ur)'/,end:/'/,relevance:10},{begin:/(u|r|ur)"/,end:/"/,relevance:10},{begin:/(b|br)'/,end:/'/},{begin:/(b|br)"/,end:/"/},{begin:/(fr|rf|f)'/,end:/'/,contains:[hljs.BACKSLASH_ESCAPE,LITERAL_BRACKET,SUBST]},{begin:/(fr|rf|f)"/,end:/"/,contains:[hljs.BACKSLASH_ESCAPE,LITERAL_BRACKET,SUBST]},hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE]};var NUMBER={className:"number",relevance:0,variants:[{begin:hljs.BINARY_NUMBER_RE+"[lLjJ]?"},{begin:"\\b(0o[0-7]+)[lLjJ]?"},{begin:hljs.C_NUMBER_RE+"[lLjJ]?"}]};var PARAMS={className:"params",begin:/\(/,end:/\)/,contains:["self",PROMPT,NUMBER,STRING,hljs.HASH_COMMENT_MODE]};SUBST.contains=[STRING,NUMBER,PROMPT];return{aliases:["py","gyp","ipython"],keywords:KEYWORDS,illegal:/(<\/|->|\?)|=>/,contains:[PROMPT,NUMBER,{beginKeywords:"if",relevance:0},STRING,hljs.HASH_COMMENT_MODE,{variants:[{className:"function",beginKeywords:"def"},{className:"class",beginKeywords:"class"}],end:/:/,illegal:/[${=;\n,]/,contains:[hljs.UNDERSCORE_TITLE_MODE,PARAMS,{begin:/->/,endsWithParent:true,keywords:"None"}]},{className:"meta",begin:/^[\t ]*@/,end:/$/},{begin:/\b(print|exec)\(/}]}});hljs.registerLanguage("leaf",function(hljs){return{contains:[{className:"function",begin:"#+"+"[A-Za-z_0-9]*"+"\\(",end:" {",returnBegin:true,excludeEnd:true,contains:[{className:"keyword",begin:"#+"},{className:"title",begin:"[A-Za-z_][A-Za-z_0-9]*"},{className:"params",begin:"\\(",end:"\\)",endsParent:true,contains:[{className:"string",begin:'"',end:'"'},{className:"variable",begin:"[A-Za-z_][A-Za-z_0-9]*"}]}]}]}});hljs.registerLanguage("groovy",function(hljs){return{keywords:{literal:"true false null",keyword:"byte short char int long boolean float double void "+"def as in assert trait "+"super this abstract static volatile transient public private protected synchronized final "+"class interface enum if else for while switch case break default continue "+"throw throws try catch finally implements extends new import package return instanceof"},contains:[hljs.COMMENT("/\\*\\*","\\*/",{relevance:0,contains:[{begin:/\w+@/,relevance:0},{className:"doctag",begin:"@[A-Za-z]+"}]}),hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,{className:"string",begin:'"""',end:'"""'},{className:"string",begin:"'''",end:"'''"},{className:"string",begin:"\\$/",end:"/\\$",relevance:10},hljs.APOS_STRING_MODE,{className:"regexp",begin:/~?\/[^\/\n]+\//,contains:[hljs.BACKSLASH_ESCAPE]},hljs.QUOTE_STRING_MODE,{className:"meta",begin:"^#!/usr/bin/env",end:"$",illegal:"\n"},hljs.BINARY_NUMBER_MODE,{className:"class",beginKeywords:"class interface trait enum",end:"{",illegal:":",contains:[{beginKeywords:"extends implements"},hljs.UNDERSCORE_TITLE_MODE]},hljs.C_NUMBER_MODE,{className:"meta",begin:"@[A-Za-z]+"},{className:"string",begin:/[^\?]{0}[A-Za-z0-9_$]+ *:/},{begin:/\?/,end:/\:/},{className:"symbol",begin:"^\\s*[A-Za-z0-9_$]+:",relevance:0}],illegal:/#|<\//}});hljs.registerLanguage("armasm",function(hljs){return{case_insensitive:true,aliases:["arm"],lexemes:"\\.?"+hljs.IDENT_RE,keywords:{meta:".2byte .4byte .align .ascii .asciz .balign .byte .code .data .else .end .endif .endm .endr .equ .err .exitm .extern .global .hword .if .ifdef .ifndef .include .irp .long .macro .rept .req .section .set .skip .space .text .word .arm .thumb .code16 .code32 .force_thumb .thumb_func .ltorg "+"ALIAS ALIGN ARM AREA ASSERT ATTR CN CODE CODE16 CODE32 COMMON CP DATA DCB DCD DCDU DCDO DCFD DCFDU DCI DCQ DCQU DCW DCWU DN ELIF ELSE END ENDFUNC ENDIF ENDP ENTRY EQU EXPORT EXPORTAS EXTERN FIELD FILL FUNCTION GBLA GBLL GBLS GET GLOBAL IF IMPORT INCBIN INCLUDE INFO KEEP LCLA LCLL LCLS LTORG MACRO MAP MEND MEXIT NOFP OPT PRESERVE8 PROC QN READONLY RELOC REQUIRE REQUIRE8 RLIST FN ROUT SETA SETL SETS SN SPACE SUBT THUMB THUMBX TTL WHILE WEND ",built_in:"r0 r1 r2 r3 r4 r5 r6 r7 r8 r9 r10 r11 r12 r13 r14 r15 "+"pc lr sp ip sl sb fp "+"a1 a2 a3 a4 v1 v2 v3 v4 v5 v6 v7 v8 f0 f1 f2 f3 f4 f5 f6 f7 "+"p0 p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 "+"c0 c1 c2 c3 c4 c5 c6 c7 c8 c9 c10 c11 c12 c13 c14 c15 "+"q0 q1 q2 q3 q4 q5 q6 q7 q8 q9 q10 q11 q12 q13 q14 q15 "+"cpsr_c cpsr_x cpsr_s cpsr_f cpsr_cx cpsr_cxs cpsr_xs cpsr_xsf cpsr_sf cpsr_cxsf "+"spsr_c spsr_x spsr_s spsr_f spsr_cx spsr_cxs spsr_xs spsr_xsf spsr_sf spsr_cxsf "+"s0 s1 s2 s3 s4 s5 s6 s7 s8 s9 s10 s11 s12 s13 s14 s15 "+"s16 s17 s18 s19 s20 s21 s22 s23 s24 s25 s26 s27 s28 s29 s30 s31 "+"d0 d1 d2 d3 d4 d5 d6 d7 d8 d9 d10 d11 d12 d13 d14 d15 "+"d16 d17 d18 d19 d20 d21 d22 d23 d24 d25 d26 d27 d28 d29 d30 d31 "+"{PC} {VAR} {TRUE} {FALSE} {OPT} {CONFIG} {ENDIAN} {CODESIZE} {CPU} {FPU} {ARCHITECTURE} {PCSTOREOFFSET} {ARMASM_VERSION} {INTER} {ROPI} {RWPI} {SWST} {NOSWST} . @"},contains:[{className:"keyword",begin:"\\b("+"adc|"+"(qd?|sh?|u[qh]?)?add(8|16)?|usada?8|(q|sh?|u[qh]?)?(as|sa)x|"+"and|adrl?|sbc|rs[bc]|asr|b[lx]?|blx|bxj|cbn?z|tb[bh]|bic|"+"bfc|bfi|[su]bfx|bkpt|cdp2?|clz|clrex|cmp|cmn|cpsi[ed]|cps|"+"setend|dbg|dmb|dsb|eor|isb|it[te]{0,3}|lsl|lsr|ror|rrx|"+"ldm(([id][ab])|f[ds])?|ldr((s|ex)?[bhd])?|movt?|mvn|mra|mar|"+"mul|[us]mull|smul[bwt][bt]|smu[as]d|smmul|smmla|"+"mla|umlaal|smlal?([wbt][bt]|d)|mls|smlsl?[ds]|smc|svc|sev|"+"mia([bt]{2}|ph)?|mrr?c2?|mcrr2?|mrs|msr|orr|orn|pkh(tb|bt)|rbit|"+"rev(16|sh)?|sel|[su]sat(16)?|nop|pop|push|rfe([id][ab])?|"+"stm([id][ab])?|str(ex)?[bhd]?|(qd?)?sub|(sh?|q|u[qh]?)?sub(8|16)|"+"[su]xt(a?h|a?b(16)?)|srs([id][ab])?|swpb?|swi|smi|tst|teq|"+"wfe|wfi|yield"+")"+"(eq|ne|cs|cc|mi|pl|vs|vc|hi|ls|ge|lt|gt|le|al|hs|lo)?"+"[sptrx]?",end:"\\s"},hljs.COMMENT("[;@]","$",{relevance:0}),hljs.C_BLOCK_COMMENT_MODE,hljs.QUOTE_STRING_MODE,{className:"string",begin:"'",end:"[^\\\\]'",relevance:0},{className:"title",begin:"\\|",end:"\\|",illegal:"\\n",relevance:0},{className:"number",variants:[{begin:"[#$=]?0x[0-9a-f]+"},{begin:"[#$=]?0b[01]+"},{begin:"[#$=]\\d+"},{begin:"\\b\\d+"}],relevance:0},{className:"symbol",variants:[{begin:"^[a-z_\\.\\$][a-z0-9_\\.\\$]+"},{begin:"^\\s*[a-z_\\.\\$][a-z0-9_\\.\\$]+:"},{begin:"[=#]\\w+"}],relevance:0}]}});hljs.registerLanguage("glsl",function(hljs){return{keywords:{keyword:"break continue discard do else for if return while switch case default "+"attribute binding buffer ccw centroid centroid varying coherent column_major const cw "+"depth_any depth_greater depth_less depth_unchanged early_fragment_tests equal_spacing "+"flat fractional_even_spacing fractional_odd_spacing highp in index inout invariant "+"invocations isolines layout line_strip lines lines_adjacency local_size_x local_size_y "+"local_size_z location lowp max_vertices mediump noperspective offset origin_upper_left "+"out packed patch pixel_center_integer point_mode points precise precision quads r11f_g11f_b10f "+"r16 r16_snorm r16f r16i r16ui r32f r32i r32ui r8 r8_snorm r8i r8ui readonly restrict "+"rg16 rg16_snorm rg16f rg16i rg16ui rg32f rg32i rg32ui rg8 rg8_snorm rg8i rg8ui rgb10_a2 "+"rgb10_a2ui rgba16 rgba16_snorm rgba16f rgba16i rgba16ui rgba32f rgba32i rgba32ui rgba8 "+"rgba8_snorm rgba8i rgba8ui row_major sample shared smooth std140 std430 stream triangle_strip "+"triangles triangles_adjacency uniform varying vertices volatile writeonly",type:"atomic_uint bool bvec2 bvec3 bvec4 dmat2 dmat2x2 dmat2x3 dmat2x4 dmat3 dmat3x2 dmat3x3 "+"dmat3x4 dmat4 dmat4x2 dmat4x3 dmat4x4 double dvec2 dvec3 dvec4 float iimage1D iimage1DArray "+"iimage2D iimage2DArray iimage2DMS iimage2DMSArray iimage2DRect iimage3D iimageBuffer"+"iimageCube iimageCubeArray image1D image1DArray image2D image2DArray image2DMS image2DMSArray "+"image2DRect image3D imageBuffer imageCube imageCubeArray int isampler1D isampler1DArray "+"isampler2D isampler2DArray isampler2DMS isampler2DMSArray isampler2DRect isampler3D "+"isamplerBuffer isamplerCube isamplerCubeArray ivec2 ivec3 ivec4 mat2 mat2x2 mat2x3 "+"mat2x4 mat3 mat3x2 mat3x3 mat3x4 mat4 mat4x2 mat4x3 mat4x4 sampler1D sampler1DArray "+"sampler1DArrayShadow sampler1DShadow sampler2D sampler2DArray sampler2DArrayShadow "+"sampler2DMS sampler2DMSArray sampler2DRect sampler2DRectShadow sampler2DShadow sampler3D "+"samplerBuffer samplerCube samplerCubeArray samplerCubeArrayShadow samplerCubeShadow "+"image1D uimage1DArray uimage2D uimage2DArray uimage2DMS uimage2DMSArray uimage2DRect "+"uimage3D uimageBuffer uimageCube uimageCubeArray uint usampler1D usampler1DArray "+"usampler2D usampler2DArray usampler2DMS usampler2DMSArray usampler2DRect usampler3D "+"samplerBuffer usamplerCube usamplerCubeArray uvec2 uvec3 uvec4 vec2 vec3 vec4 void",built_in:"gl_MaxAtomicCounterBindings gl_MaxAtomicCounterBufferSize gl_MaxClipDistances gl_MaxClipPlanes "+"gl_MaxCombinedAtomicCounterBuffers gl_MaxCombinedAtomicCounters gl_MaxCombinedImageUniforms "+"gl_MaxCombinedImageUnitsAndFragmentOutputs gl_MaxCombinedTextureImageUnits gl_MaxComputeAtomicCounterBuffers "+"gl_MaxComputeAtomicCounters gl_MaxComputeImageUniforms gl_MaxComputeTextureImageUnits "+"gl_MaxComputeUniformComponents gl_MaxComputeWorkGroupCount gl_MaxComputeWorkGroupSize "+"gl_MaxDrawBuffers gl_MaxFragmentAtomicCounterBuffers gl_MaxFragmentAtomicCounters "+"gl_MaxFragmentImageUniforms gl_MaxFragmentInputComponents gl_MaxFragmentInputVectors "+"gl_MaxFragmentUniformComponents gl_MaxFragmentUniformVectors gl_MaxGeometryAtomicCounterBuffers "+"gl_MaxGeometryAtomicCounters gl_MaxGeometryImageUniforms gl_MaxGeometryInputComponents "+"gl_MaxGeometryOutputComponents gl_MaxGeometryOutputVertices gl_MaxGeometryTextureImageUnits "+"gl_MaxGeometryTotalOutputComponents gl_MaxGeometryUniformComponents gl_MaxGeometryVaryingComponents "+"gl_MaxImageSamples gl_MaxImageUnits gl_MaxLights gl_MaxPatchVertices gl_MaxProgramTexelOffset "+"gl_MaxTessControlAtomicCounterBuffers gl_MaxTessControlAtomicCounters gl_MaxTessControlImageUniforms "+"gl_MaxTessControlInputComponents gl_MaxTessControlOutputComponents gl_MaxTessControlTextureImageUnits "+"gl_MaxTessControlTotalOutputComponents gl_MaxTessControlUniformComponents "+"gl_MaxTessEvaluationAtomicCounterBuffers gl_MaxTessEvaluationAtomicCounters "+"gl_MaxTessEvaluationImageUniforms gl_MaxTessEvaluationInputComponents gl_MaxTessEvaluationOutputComponents "+"gl_MaxTessEvaluationTextureImageUnits gl_MaxTessEvaluationUniformComponents "+"gl_MaxTessGenLevel gl_MaxTessPatchComponents gl_MaxTextureCoords gl_MaxTextureImageUnits "+"gl_MaxTextureUnits gl_MaxVaryingComponents gl_MaxVaryingFloats gl_MaxVaryingVectors "+"gl_MaxVertexAtomicCounterBuffers gl_MaxVertexAtomicCounters gl_MaxVertexAttribs gl_MaxVertexImageUniforms "+"gl_MaxVertexOutputComponents gl_MaxVertexOutputVectors gl_MaxVertexTextureImageUnits "+"gl_MaxVertexUniformComponents gl_MaxVertexUniformVectors gl_MaxViewports gl_MinProgramTexelOffset "+"gl_BackColor gl_BackLightModelProduct gl_BackLightProduct gl_BackMaterial "+"gl_BackSecondaryColor gl_ClipDistance gl_ClipPlane gl_ClipVertex gl_Color "+"gl_DepthRange gl_EyePlaneQ gl_EyePlaneR gl_EyePlaneS gl_EyePlaneT gl_Fog gl_FogCoord "+"gl_FogFragCoord gl_FragColor gl_FragCoord gl_FragData gl_FragDepth gl_FrontColor "+"gl_FrontFacing gl_FrontLightModelProduct gl_FrontLightProduct gl_FrontMaterial "+"gl_FrontSecondaryColor gl_GlobalInvocationID gl_InstanceID gl_InvocationID gl_Layer gl_LightModel "+"gl_LightSource gl_LocalInvocationID gl_LocalInvocationIndex gl_ModelViewMatrix "+"gl_ModelViewMatrixInverse gl_ModelViewMatrixInverseTranspose gl_ModelViewMatrixTranspose "+"gl_ModelViewProjectionMatrix gl_ModelViewProjectionMatrixInverse gl_ModelViewProjectionMatrixInverseTranspose "+"gl_ModelViewProjectionMatrixTranspose gl_MultiTexCoord0 gl_MultiTexCoord1 gl_MultiTexCoord2 "+"gl_MultiTexCoord3 gl_MultiTexCoord4 gl_MultiTexCoord5 gl_MultiTexCoord6 gl_MultiTexCoord7 "+"gl_Normal gl_NormalMatrix gl_NormalScale gl_NumSamples gl_NumWorkGroups gl_ObjectPlaneQ "+"gl_ObjectPlaneR gl_ObjectPlaneS gl_ObjectPlaneT gl_PatchVerticesIn gl_Point gl_PointCoord "+"gl_PointSize gl_Position gl_PrimitiveID gl_PrimitiveIDIn gl_ProjectionMatrix gl_ProjectionMatrixInverse "+"gl_ProjectionMatrixInverseTranspose gl_ProjectionMatrixTranspose gl_SampleID gl_SampleMask "+"gl_SampleMaskIn gl_SamplePosition gl_SecondaryColor gl_TessCoord gl_TessLevelInner gl_TessLevelOuter "+"gl_TexCoord gl_TextureEnvColor gl_TextureMatrix gl_TextureMatrixInverse gl_TextureMatrixInverseTranspose "+"gl_TextureMatrixTranspose gl_Vertex gl_VertexID gl_ViewportIndex gl_WorkGroupID gl_WorkGroupSize gl_in gl_out "+"EmitStreamVertex EmitVertex EndPrimitive EndStreamPrimitive abs acos acosh all any asin "+"asinh atan atanh atomicAdd atomicAnd atomicCompSwap atomicCounter atomicCounterDecrement "+"atomicCounterIncrement atomicExchange atomicMax atomicMin atomicOr atomicXor barrier "+"bitCount bitfieldExtract bitfieldInsert bitfieldReverse ceil clamp cos cosh cross "+"dFdx dFdy degrees determinant distance dot equal exp exp2 faceforward findLSB findMSB "+"floatBitsToInt floatBitsToUint floor fma fract frexp ftransform fwidth greaterThan "+"greaterThanEqual groupMemoryBarrier imageAtomicAdd imageAtomicAnd imageAtomicCompSwap "+"imageAtomicExchange imageAtomicMax imageAtomicMin imageAtomicOr imageAtomicXor imageLoad "+"imageSize imageStore imulExtended intBitsToFloat interpolateAtCentroid interpolateAtOffset "+"interpolateAtSample inverse inversesqrt isinf isnan ldexp length lessThan lessThanEqual log "+"log2 matrixCompMult max memoryBarrier memoryBarrierAtomicCounter memoryBarrierBuffer "+"memoryBarrierImage memoryBarrierShared min mix mod modf noise1 noise2 noise3 noise4 "+"normalize not notEqual outerProduct packDouble2x32 packHalf2x16 packSnorm2x16 packSnorm4x8 "+"packUnorm2x16 packUnorm4x8 pow radians reflect refract round roundEven shadow1D shadow1DLod "+"shadow1DProj shadow1DProjLod shadow2D shadow2DLod shadow2DProj shadow2DProjLod sign sin sinh "+"smoothstep sqrt step tan tanh texelFetch texelFetchOffset texture texture1D texture1DLod "+"texture1DProj texture1DProjLod texture2D texture2DLod texture2DProj texture2DProjLod "+"texture3D texture3DLod texture3DProj texture3DProjLod textureCube textureCubeLod "+"textureGather textureGatherOffset textureGatherOffsets textureGrad textureGradOffset "+"textureLod textureLodOffset textureOffset textureProj textureProjGrad textureProjGradOffset "+"textureProjLod textureProjLodOffset textureProjOffset textureQueryLevels textureQueryLod "+"textureSize transpose trunc uaddCarry uintBitsToFloat umulExtended unpackDouble2x32 "+"unpackHalf2x16 unpackSnorm2x16 unpackSnorm4x8 unpackUnorm2x16 unpackUnorm4x8 usubBorrow",literal:"true false"},illegal:'"',contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.C_NUMBER_MODE,{className:"meta",begin:"#",end:"$"}]}});hljs.registerLanguage("q",function(hljs){var Q_KEYWORDS={keyword:"do while select delete by update from",literal:"0b 1b",built_in:"neg not null string reciprocal floor ceiling signum mod xbar xlog and or each scan over prior mmu lsq inv md5 ltime gtime count first var dev med cov cor all any rand sums prds mins maxs fills deltas ratios avgs differ prev next rank reverse iasc idesc asc desc msum mcount mavg mdev xrank mmin mmax xprev rotate distinct group where flip type key til get value attr cut set upsert raze union inter except cross sv vs sublist enlist read0 read1 hopen hclose hdel hsym hcount peach system ltrim rtrim trim lower upper ssr view tables views cols xcols keys xkey xcol xasc xdesc fkeys meta lj aj aj0 ij pj asof uj ww wj wj1 fby xgroup ungroup ej save load rsave rload show csv parse eval min max avg wavg wsum sin cos tan sum",type:"`float `double int `timestamp `timespan `datetime `time `boolean `symbol `char `byte `short `long `real `month `date `minute `second `guid"};return{aliases:["k","kdb"],keywords:Q_KEYWORDS,lexemes:/(`?)[A-Za-z0-9_]+\b/,contains:[hljs.C_LINE_COMMENT_MODE,hljs.QUOTE_STRING_MODE,hljs.C_NUMBER_MODE]}});hljs.registerLanguage("css",function(hljs){var FUNCTION_LIKE={begin:/[\w-]+\(/,returnBegin:true,contains:[{className:"built_in",begin:/[\w-]+/},{begin:/\(/,end:/\)/,contains:[hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.CSS_NUMBER_MODE]}]};var ATTRIBUTE={className:"attribute",begin:/\S/,end:":",excludeEnd:true,starts:{endsWithParent:true,excludeEnd:true,contains:[FUNCTION_LIKE,hljs.CSS_NUMBER_MODE,hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE,hljs.C_BLOCK_COMMENT_MODE,{className:"number",begin:"#[0-9A-Fa-f]+"},{className:"meta",begin:"!important"}]}};var AT_IDENTIFIER="@[a-z-]+";var AT_MODIFIERS="and or not only";var MEDIA_TYPES="all print screen speech";var AT_PROPERTY_RE=/@\-?\w[\w]*(\-\w+)*/;var IDENT_RE="[a-zA-Z-][a-zA-Z0-9_-]*";var RULE={begin:/(?:[A-Z\_\.\-]+|--[a-zA-Z0-9_-]+)\s*:/,returnBegin:true,end:";",endsWithParent:true,contains:[ATTRIBUTE]};return{case_insensitive:true,illegal:/[=\/|'\$]/,contains:[hljs.C_BLOCK_COMMENT_MODE,{className:"selector-id",begin:/#[A-Za-z0-9_-]+/},{className:"selector-class",begin:/\.[A-Za-z0-9_-]+/},{className:"selector-attr",begin:/\[/,end:/\]/,illegal:"$",contains:[hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE]},{className:"selector-pseudo",begin:/:(:)?[a-zA-Z0-9\_\-\+\(\)"'.]+/},{begin:"@(page|font-face)",lexemes:AT_IDENTIFIER,keywords:"@page @font-face"},{begin:"@",end:"[{;]",illegal:/:/,returnBegin:true,contains:[{className:"keyword",begin:AT_PROPERTY_RE},{begin:/\s/,endsWithParent:true,excludeEnd:true,relevance:0,keywords:AT_MODIFIERS,contains:[{begin:/[a-z-]+:/,className:"attribute"},hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.CSS_NUMBER_MODE]}]},{className:"selector-tag",begin:IDENT_RE,relevance:0},{begin:"{",end:"}",illegal:/\S/,contains:[hljs.C_BLOCK_COMMENT_MODE,RULE]}]}});hljs.registerLanguage("ini",function(hljs){var NUMBERS={className:"number",relevance:0,variants:[{begin:/([\+\-]+)?[\d]+_[\d_]+/},{begin:hljs.NUMBER_RE}]};var COMMENTS=hljs.COMMENT();COMMENTS.variants=[{begin:/;/,end:/$/},{begin:/#/,end:/$/}];var VARIABLES={className:"variable",variants:[{begin:/\$[\w\d"][\w\d_]*/},{begin:/\$\{(.*?)}/}]};var LITERALS={className:"literal",begin:/\bon|off|true|false|yes|no\b/};var STRINGS={className:"string",contains:[hljs.BACKSLASH_ESCAPE],variants:[{begin:"'''",end:"'''",relevance:10},{begin:'"""',end:'"""',relevance:10},{begin:'"',end:'"'},{begin:"'",end:"'"}]};var ARRAY={begin:/\[/,end:/\]/,contains:[COMMENTS,LITERALS,VARIABLES,STRINGS,NUMBERS,"self"],relevance:0};return{aliases:["toml"],case_insensitive:true,illegal:/\S/,contains:[COMMENTS,{className:"section",begin:/\[+/,end:/\]+/},{begin:/^[a-z0-9\[\]_\.-]+(?=\s*=\s*)/,className:"attr",starts:{end:/$/,contains:[COMMENTS,ARRAY,LITERALS,VARIABLES,STRINGS,NUMBERS]}}]}});hljs.registerLanguage("elm",function(hljs){var COMMENT={variants:[hljs.COMMENT("--","$"),hljs.COMMENT("{-","-}",{contains:["self"]})]};var CONSTRUCTOR={className:"type",begin:"\\b[A-Z][\\w']*",relevance:0};var LIST={begin:"\\(",end:"\\)",illegal:'"',contains:[{className:"type",begin:"\\b[A-Z][\\w]*(\\((\\.\\.|,|\\w+)\\))?"},COMMENT]};var RECORD={begin:"{",end:"}",contains:LIST.contains};var CHARACTER={className:"string",begin:"'\\\\?.",end:"'",illegal:"."};return{keywords:"let in if then else case of where module import exposing "+"type alias as infix infixl infixr port effect command subscription",contains:[{beginKeywords:"port effect module",end:"exposing",keywords:"port effect module where command subscription exposing",contains:[LIST,COMMENT],illegal:"\\W\\.|;"},{begin:"import",end:"$",keywords:"import as exposing",contains:[LIST,COMMENT],illegal:"\\W\\.|;"},{begin:"type",end:"$",keywords:"type alias",contains:[CONSTRUCTOR,LIST,RECORD,COMMENT]},{beginKeywords:"infix infixl infixr",end:"$",contains:[hljs.C_NUMBER_MODE,COMMENT]},{begin:"port",end:"$",keywords:"port",contains:[COMMENT]},CHARACTER,hljs.QUOTE_STRING_MODE,hljs.C_NUMBER_MODE,CONSTRUCTOR,hljs.inherit(hljs.TITLE_MODE,{begin:"^[_a-z][\\w']*"}),COMMENT,{begin:"->|<-"}],illegal:/;/}});hljs.registerLanguage("ldif",function(hljs){return{contains:[{className:"attribute",begin:"^dn",end:": ",excludeEnd:true,starts:{end:"$",relevance:0},relevance:10},{className:"attribute",begin:"^\\w",end:": ",excludeEnd:true,starts:{end:"$",relevance:0}},{className:"literal",begin:"^-",end:"$"},hljs.HASH_COMMENT_MODE]}});hljs.registerLanguage("makefile",function(hljs){var VARIABLE={className:"variable",variants:[{begin:"\\$\\("+hljs.UNDERSCORE_IDENT_RE+"\\)",contains:[hljs.BACKSLASH_ESCAPE]},{begin:/\$[@%<?\^\+\*]/}]};var QUOTE_STRING={className:"string",begin:/"/,end:/"/,contains:[hljs.BACKSLASH_ESCAPE,VARIABLE]};var FUNC={className:"variable",begin:/\$\([\w-]+\s/,end:/\)/,keywords:{built_in:"subst patsubst strip findstring filter filter-out sort "+"word wordlist firstword lastword dir notdir suffix basename "+"addsuffix addprefix join wildcard realpath abspath error warning "+"shell origin flavor foreach if or and call eval file value"},contains:[VARIABLE]};var ASSIGNMENT={begin:"^"+hljs.UNDERSCORE_IDENT_RE+"\\s*(?=[:+?]?=)"};var META={className:"meta",begin:/^\.PHONY:/,end:/$/,keywords:{"meta-keyword":".PHONY"},lexemes:/[\.\w]+/};var TARGET={className:"section",begin:/^[^\s]+:/,end:/$/,contains:[VARIABLE]};return{aliases:["mk","mak"],keywords:"define endef undefine ifdef ifndef ifeq ifneq else endif "+"include -include sinclude override export unexport private vpath",lexemes:/[\w-]+/,contains:[hljs.HASH_COMMENT_MODE,VARIABLE,QUOTE_STRING,FUNC,ASSIGNMENT,META,TARGET]}});hljs.registerLanguage("coffeescript",function(hljs){var KEYWORDS={keyword:"in if for while finally new do return else break catch instanceof throw try this "+"switch continue typeof delete debugger super yield import export from as default await "+"then unless until loop of by when and or is isnt not",literal:"true false null undefined "+"yes no on off",built_in:"npm require console print module global window document"};var JS_IDENT_RE="[A-Za-z$_][0-9A-Za-z$_]*";var SUBST={className:"subst",begin:/#\{/,end:/}/,keywords:KEYWORDS};var EXPRESSIONS=[hljs.BINARY_NUMBER_MODE,hljs.inherit(hljs.C_NUMBER_MODE,{starts:{end:"(\\s*/)?",relevance:0}}),{className:"string",variants:[{begin:/'''/,end:/'''/,contains:[hljs.BACKSLASH_ESCAPE]},{begin:/'/,end:/'/,contains:[hljs.BACKSLASH_ESCAPE]},{begin:/"""/,end:/"""/,contains:[hljs.BACKSLASH_ESCAPE,SUBST]},{begin:/"/,end:/"/,contains:[hljs.BACKSLASH_ESCAPE,SUBST]}]},{className:"regexp",variants:[{begin:"///",end:"///",contains:[SUBST,hljs.HASH_COMMENT_MODE]},{begin:"//[gim]{0,3}(?=\\W)",relevance:0},{begin:/\/(?![ *]).*?(?![\\]).\/[gim]{0,3}(?=\W)/}]},{begin:"@"+JS_IDENT_RE},{subLanguage:"javascript",excludeBegin:true,excludeEnd:true,variants:[{begin:"```",end:"```"},{begin:"`",end:"`"}]}];SUBST.contains=EXPRESSIONS;var TITLE=hljs.inherit(hljs.TITLE_MODE,{begin:JS_IDENT_RE});var PARAMS_RE="(\\(.*\\))?\\s*\\B[-=]>";var PARAMS={className:"params",begin:"\\([^\\(]",returnBegin:true,contains:[{begin:/\(/,end:/\)/,keywords:KEYWORDS,contains:["self"].concat(EXPRESSIONS)}]};return{aliases:["coffee","cson","iced"],keywords:KEYWORDS,illegal:/\/\*/,contains:EXPRESSIONS.concat([hljs.COMMENT("###","###"),hljs.HASH_COMMENT_MODE,{className:"function",begin:"^\\s*"+JS_IDENT_RE+"\\s*=\\s*"+PARAMS_RE,end:"[-=]>",returnBegin:true,contains:[TITLE,PARAMS]},{begin:/[:\(,=]\s*/,relevance:0,contains:[{className:"function",begin:PARAMS_RE,end:"[-=]>",returnBegin:true,contains:[PARAMS]}]},{className:"class",beginKeywords:"class",end:"$",illegal:/[:="\[\]]/,contains:[{beginKeywords:"extends",endsWithParent:true,illegal:/[:="\[\]]/,contains:[TITLE]},TITLE]},{begin:JS_IDENT_RE+":",end:":",returnBegin:true,returnEnd:true,relevance:0}])}});hljs.registerLanguage("abnf",function(hljs){var regexes={ruleDeclaration:"^[a-zA-Z][a-zA-Z0-9-]*",unexpectedChars:"[!@#$^&',?+~`|:]"};var keywords=["ALPHA","BIT","CHAR","CR","CRLF","CTL","DIGIT","DQUOTE","HEXDIG","HTAB","LF","LWSP","OCTET","SP","VCHAR","WSP"];var commentMode=hljs.COMMENT(";","$");var terminalBinaryMode={className:"symbol",begin:/%b[0-1]+(-[0-1]+|(\.[0-1]+)+){0,1}/};var terminalDecimalMode={className:"symbol",begin:/%d[0-9]+(-[0-9]+|(\.[0-9]+)+){0,1}/};var terminalHexadecimalMode={className:"symbol",begin:/%x[0-9A-F]+(-[0-9A-F]+|(\.[0-9A-F]+)+){0,1}/};var caseSensitivityIndicatorMode={className:"symbol",begin:/%[si]/};var ruleDeclarationMode={className:"attribute",begin:regexes.ruleDeclaration+"(?=\\s*=)"};return{illegal:regexes.unexpectedChars,keywords:keywords.join(" "),contains:[ruleDeclarationMode,commentMode,terminalBinaryMode,terminalDecimalMode,terminalHexadecimalMode,caseSensitivityIndicatorMode,hljs.QUOTE_STRING_MODE,hljs.NUMBER_MODE]}});hljs.registerLanguage("kotlin",function(hljs){var KEYWORDS={keyword:"abstract as val var vararg get set class object open private protected public noinline "+"crossinline dynamic final enum if else do while for when throw try catch finally "+"import package is in fun override companion reified inline lateinit init "+"interface annotation data sealed internal infix operator out by constructor super "+"tailrec where const inner suspend typealias external expect actual "+"trait volatile transient native default",built_in:"Byte Short Char Int Long Boolean Float Double Void Unit Nothing",literal:"true false null"};var KEYWORDS_WITH_LABEL={className:"keyword",begin:/\b(break|continue|return|this)\b/,starts:{contains:[{className:"symbol",begin:/@\w+/}]}};var LABEL={className:"symbol",begin:hljs.UNDERSCORE_IDENT_RE+"@"};var SUBST={className:"subst",begin:"\\${",end:"}",contains:[hljs.C_NUMBER_MODE]};var VARIABLE={className:"variable",begin:"\\$"+hljs.UNDERSCORE_IDENT_RE};var STRING={className:"string",variants:[{begin:'"""',end:'"""(?=[^"])',contains:[VARIABLE,SUBST]},{begin:"'",end:"'",illegal:/\n/,contains:[hljs.BACKSLASH_ESCAPE]},{begin:'"',end:'"',illegal:/\n/,contains:[hljs.BACKSLASH_ESCAPE,VARIABLE,SUBST]}]};SUBST.contains.push(STRING);var ANNOTATION_USE_SITE={className:"meta",begin:"@(?:file|property|field|get|set|receiver|param|setparam|delegate)\\s*:(?:\\s*"+hljs.UNDERSCORE_IDENT_RE+")?"};var ANNOTATION={className:"meta",begin:"@"+hljs.UNDERSCORE_IDENT_RE,contains:[{begin:/\(/,end:/\)/,contains:[hljs.inherit(STRING,{className:"meta-string"})]}]};var KOTLIN_NUMBER_RE="\\b"+"("+"0[bB]([01]+[01_]+[01]+|[01]+)"+"|"+"0[xX]([a-fA-F0-9]+[a-fA-F0-9_]+[a-fA-F0-9]+|[a-fA-F0-9]+)"+"|"+"("+"([\\d]+[\\d_]+[\\d]+|[\\d]+)(\\.([\\d]+[\\d_]+[\\d]+|[\\d]+))?"+"|"+"\\.([\\d]+[\\d_]+[\\d]+|[\\d]+)"+")"+"([eE][-+]?\\d+)?"+")"+"[lLfF]?";var KOTLIN_NUMBER_MODE={className:"number",begin:KOTLIN_NUMBER_RE,relevance:0};var KOTLIN_NESTED_COMMENT=hljs.COMMENT("/\\*","\\*/",{contains:[hljs.C_BLOCK_COMMENT_MODE]});var KOTLIN_PAREN_TYPE={variants:[{className:"type",begin:hljs.UNDERSCORE_IDENT_RE},{begin:/\(/,end:/\)/,contains:[]}]};var KOTLIN_PAREN_TYPE2=KOTLIN_PAREN_TYPE;KOTLIN_PAREN_TYPE2.variants[1].contains=[KOTLIN_PAREN_TYPE];KOTLIN_PAREN_TYPE.variants[1].contains=[KOTLIN_PAREN_TYPE2];return{aliases:["kt"],keywords:KEYWORDS,contains:[hljs.COMMENT("/\\*\\*","\\*/",{relevance:0,contains:[{className:"doctag",begin:"@[A-Za-z]+"}]}),hljs.C_LINE_COMMENT_MODE,KOTLIN_NESTED_COMMENT,KEYWORDS_WITH_LABEL,LABEL,ANNOTATION_USE_SITE,ANNOTATION,{className:"function",beginKeywords:"fun",end:"[(]|$",returnBegin:true,excludeEnd:true,keywords:KEYWORDS,illegal:/fun\s+(<.*>)?[^\s\(]+(\s+[^\s\(]+)\s*=/,relevance:5,contains:[{begin:hljs.UNDERSCORE_IDENT_RE+"\\s*\\(",returnBegin:true,relevance:0,contains:[hljs.UNDERSCORE_TITLE_MODE]},{className:"type",begin:/</,end:/>/,keywords:"reified",relevance:0},{className:"params",begin:/\(/,end:/\)/,endsParent:true,keywords:KEYWORDS,relevance:0,contains:[{begin:/:/,end:/[=,\/]/,endsWithParent:true,contains:[KOTLIN_PAREN_TYPE,hljs.C_LINE_COMMENT_MODE,KOTLIN_NESTED_COMMENT],relevance:0},hljs.C_LINE_COMMENT_MODE,KOTLIN_NESTED_COMMENT,ANNOTATION_USE_SITE,ANNOTATION,STRING,hljs.C_NUMBER_MODE]},KOTLIN_NESTED_COMMENT]},{className:"class",beginKeywords:"class interface trait",end:/[:\{(]|$/,excludeEnd:true,illegal:"extends implements",contains:[{beginKeywords:"public protected internal private constructor"},hljs.UNDERSCORE_TITLE_MODE,{className:"type",begin:/</,end:/>/,excludeBegin:true,excludeEnd:true,relevance:0},{className:"type",begin:/[,:]\s*/,end:/[<\(,]|$/,excludeBegin:true,returnEnd:true},ANNOTATION_USE_SITE,ANNOTATION]},STRING,{className:"meta",begin:"^#!/usr/bin/env",end:"$",illegal:"\n"},KOTLIN_NUMBER_MODE]}});hljs.registerLanguage("dsconfig",function(hljs){var QUOTED_PROPERTY={className:"string",begin:/"/,end:/"/};var APOS_PROPERTY={className:"string",begin:/'/,end:/'/};var UNQUOTED_PROPERTY={className:"string",begin:"[\\w-?]+:\\w+",end:"\\W",relevance:0};var VALUELESS_PROPERTY={className:"string",begin:"\\w+-?\\w+",end:"\\W",relevance:0};return{keywords:"dsconfig",contains:[{className:"keyword",begin:"^dsconfig",end:"\\s",excludeEnd:true,relevance:10},{className:"built_in",begin:"(list|create|get|set|delete)-(\\w+)",end:"\\s",excludeEnd:true,illegal:"!@#$%^&*()",relevance:10},{className:"built_in",begin:"--(\\w+)",end:"\\s",excludeEnd:true},QUOTED_PROPERTY,APOS_PROPERTY,UNQUOTED_PROPERTY,VALUELESS_PROPERTY,hljs.HASH_COMMENT_MODE]}});hljs.registerLanguage("http",function(hljs){var VERSION="HTTP/[0-9\\.]+";return{aliases:["https"],illegal:"\\S",contains:[{begin:"^"+VERSION,end:"$",contains:[{className:"number",begin:"\\b\\d{3}\\b"}]},{begin:"^[A-Z]+ (.*?) "+VERSION+"$",returnBegin:true,end:"$",contains:[{className:"string",begin:" ",end:" ",excludeBegin:true,excludeEnd:true},{begin:VERSION},{className:"keyword",begin:"[A-Z]+"}]},{className:"attribute",begin:"^\\w",end:": ",excludeEnd:true,illegal:"\\n|\\s|=",starts:{end:"$",relevance:0}},{begin:"\\n\\n",starts:{subLanguage:[],endsWithParent:true}}]}});hljs.registerLanguage("pony",function(hljs){var KEYWORDS={keyword:"actor addressof and as be break class compile_error compile_intrinsic "+"consume continue delegate digestof do else elseif embed end error "+"for fun if ifdef in interface is isnt lambda let match new not object "+"or primitive recover repeat return struct then trait try type until "+"use var where while with xor",meta:"iso val tag trn box ref",literal:"this false true"};var TRIPLE_QUOTE_STRING_MODE={className:"string",begin:'"""',end:'"""',relevance:10};var QUOTE_STRING_MODE={className:"string",begin:'"',end:'"',contains:[hljs.BACKSLASH_ESCAPE]};var SINGLE_QUOTE_CHAR_MODE={className:"string",begin:"'",end:"'",contains:[hljs.BACKSLASH_ESCAPE],relevance:0};var TYPE_NAME={className:"type",begin:"\\b_?[A-Z][\\w]*",relevance:0};var PRIMED_NAME={begin:hljs.IDENT_RE+"'",relevance:0};var NUMBER_MODE={className:"number",begin:"(-?)(\\b0[xX][a-fA-F0-9]+|\\b0[bB][01]+|(\\b\\d+(_\\d+)?(\\.\\d*)?|\\.\\d+)([eE][-+]?\\d+)?)",relevance:0};return{keywords:KEYWORDS,contains:[TYPE_NAME,TRIPLE_QUOTE_STRING_MODE,QUOTE_STRING_MODE,SINGLE_QUOTE_CHAR_MODE,PRIMED_NAME,NUMBER_MODE,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE]}});hljs.registerLanguage("cpp",function(hljs){function optional(s){return"(?:"+s+")?"}var DECLTYPE_AUTO_RE="decltype\\(auto\\)";var NAMESPACE_RE="[a-zA-Z_]\\w*::";var TEMPLATE_ARGUMENT_RE="<.*?>";var FUNCTION_TYPE_RE="("+DECLTYPE_AUTO_RE+"|"+optional(NAMESPACE_RE)+"[a-zA-Z_]\\w*"+optional(TEMPLATE_ARGUMENT_RE)+")";var CPP_PRIMITIVE_TYPES={className:"keyword",begin:"\\b[a-z\\d_]*_t\\b"};var CHARACTER_ESCAPES="\\\\(x[0-9A-Fa-f]{2}|u[0-9A-Fa-f]{4,8}|[0-7]{3}|\\S)";var STRINGS={className:"string",variants:[{begin:'(u8?|U|L)?"',end:'"',illegal:"\\n",contains:[hljs.BACKSLASH_ESCAPE]},{begin:"(u8?|U|L)?'("+CHARACTER_ESCAPES+"|.)",end:"'",illegal:"."},{begin:/(?:u8?|U|L)?R"([^()\\ ]{0,16})\((?:.|\n)*?\)\1"/}]};var NUMBERS={className:"number",variants:[{begin:"\\b(0b[01']+)"},{begin:"(-?)\\b([\\d']+(\\.[\\d']*)?|\\.[\\d']+)(u|U|l|L|ul|UL|f|F|b|B)"},{begin:"(-?)(\\b0[xX][a-fA-F0-9']+|(\\b[\\d']+(\\.[\\d']*)?|\\.[\\d']+)([eE][-+]?[\\d']+)?)"}],relevance:0};var PREPROCESSOR={className:"meta",begin:/#\s*[a-z]+\b/,end:/$/,keywords:{"meta-keyword":"if else elif endif define undef warning error line "+"pragma _Pragma ifdef ifndef include"},contains:[{begin:/\\\n/,relevance:0},hljs.inherit(STRINGS,{className:"meta-string"}),{className:"meta-string",begin:/<.*?>/,end:/$/,illegal:"\\n"},hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE]};var TITLE_MODE={className:"title",begin:optional(NAMESPACE_RE)+hljs.IDENT_RE,relevance:0};var FUNCTION_TITLE=optional(NAMESPACE_RE)+hljs.IDENT_RE+"\\s*\\(";var CPP_KEYWORDS={keyword:"int float while private char char8_t char16_t char32_t catch import module export virtual operator sizeof "+"dynamic_cast|10 typedef const_cast|10 const for static_cast|10 union namespace "+"unsigned long volatile static protected bool template mutable if public friend "+"do goto auto void enum else break extern using asm case typeid wchar_t"+"short reinterpret_cast|10 default double register explicit signed typename try this "+"switch continue inline delete alignas alignof constexpr consteval constinit decltype "+"concept co_await co_return co_yield requires "+"noexcept static_assert thread_local restrict final override "+"atomic_bool atomic_char atomic_schar "+"atomic_uchar atomic_short atomic_ushort atomic_int atomic_uint atomic_long atomic_ulong atomic_llong "+"atomic_ullong new throw return "+"and and_eq bitand bitor compl not not_eq or or_eq xor xor_eq",built_in:"std string wstring cin cout cerr clog stdin stdout stderr stringstream istringstream ostringstream "+"auto_ptr deque list queue stack vector map set bitset multiset multimap unordered_set "+"unordered_map unordered_multiset unordered_multimap array shared_ptr abort terminate abs acos "+"asin atan2 atan calloc ceil cosh cos exit exp fabs floor fmod fprintf fputs free frexp "+"fscanf future isalnum isalpha iscntrl isdigit isgraph islower isprint ispunct isspace isupper "+"isxdigit tolower toupper labs ldexp log10 log malloc realloc memchr memcmp memcpy memset modf pow "+"printf putchar puts scanf sinh sin snprintf sprintf sqrt sscanf strcat strchr strcmp "+"strcpy strcspn strlen strncat strncmp strncpy strpbrk strrchr strspn strstr tanh tan "+"vfprintf vprintf vsprintf endl initializer_list unique_ptr _Bool complex _Complex imaginary _Imaginary",literal:"true false nullptr NULL"};var EXPRESSION_CONTAINS=[CPP_PRIMITIVE_TYPES,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,NUMBERS,STRINGS];var EXPRESSION_CONTEXT={variants:[{begin:/=/,end:/;/},{begin:/\(/,end:/\)/},{beginKeywords:"new throw return else",end:/;/}],keywords:CPP_KEYWORDS,contains:EXPRESSION_CONTAINS.concat([{begin:/\(/,end:/\)/,keywords:CPP_KEYWORDS,contains:EXPRESSION_CONTAINS.concat(["self"]),relevance:0}]),relevance:0};var FUNCTION_DECLARATION={className:"function",begin:"("+FUNCTION_TYPE_RE+"[\\*&\\s]+)+"+FUNCTION_TITLE,returnBegin:true,end:/[{;=]/,excludeEnd:true,keywords:CPP_KEYWORDS,illegal:/[^\w\s\*&:<>]/,contains:[{begin:DECLTYPE_AUTO_RE,keywords:CPP_KEYWORDS,relevance:0},{begin:FUNCTION_TITLE,returnBegin:true,contains:[TITLE_MODE],relevance:0},{className:"params",begin:/\(/,end:/\)/,keywords:CPP_KEYWORDS,relevance:0,contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,STRINGS,NUMBERS,CPP_PRIMITIVE_TYPES,{begin:/\(/,end:/\)/,keywords:CPP_KEYWORDS,relevance:0,contains:["self",hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,STRINGS,NUMBERS,CPP_PRIMITIVE_TYPES]}]},CPP_PRIMITIVE_TYPES,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,PREPROCESSOR]};return{aliases:["c","cc","h","c++","h++","hpp","hh","hxx","cxx"],keywords:CPP_KEYWORDS,illegal:"</",contains:[].concat(EXPRESSION_CONTEXT,FUNCTION_DECLARATION,EXPRESSION_CONTAINS,[PREPROCESSOR,{begin:"\\b(deque|list|queue|stack|vector|map|set|bitset|multiset|multimap|unordered_map|unordered_set|unordered_multiset|unordered_multimap|array)\\s*<",end:">",keywords:CPP_KEYWORDS,contains:["self",CPP_PRIMITIVE_TYPES]},{begin:hljs.IDENT_RE+"::",keywords:CPP_KEYWORDS},{className:"class",beginKeywords:"class struct",end:/[{;:]/,contains:[{begin:/</,end:/>/,contains:["self"]},hljs.TITLE_MODE]}]),exports:{preprocessor:PREPROCESSOR,strings:STRINGS,keywords:CPP_KEYWORDS}}});hljs.registerLanguage("arduino",function(hljs){var ARDUINO_KW={keyword:"boolean byte word String",built_in:"setup loop"+"KeyboardController MouseController SoftwareSerial "+"EthernetServer EthernetClient LiquidCrystal "+"RobotControl GSMVoiceCall EthernetUDP EsploraTFT "+"HttpClient RobotMotor WiFiClient GSMScanner "+"FileSystem Scheduler GSMServer YunClient YunServer "+"IPAddress GSMClient GSMModem Keyboard Ethernet "+"Console GSMBand Esplora Stepper Process "+"WiFiUDP GSM_SMS Mailbox USBHost Firmata PImage "+"Client Server GSMPIN FileIO Bridge Serial "+"EEPROM Stream Mouse Audio Servo File Task "+"GPRS WiFi Wire TFT GSM SPI SD "+"runShellCommandAsynchronously analogWriteResolution "+"retrieveCallingNumber printFirmwareVersion "+"analogReadResolution sendDigitalPortPair "+"noListenOnLocalhost readJoystickButton setFirmwareVersion "+"readJoystickSwitch scrollDisplayRight getVoiceCallStatus "+"scrollDisplayLeft writeMicroseconds delayMicroseconds "+"beginTransmission getSignalStrength runAsynchronously "+"getAsynchronously listenOnLocalhost getCurrentCarrier "+"readAccelerometer messageAvailable sendDigitalPorts "+"lineFollowConfig countryNameWrite runShellCommand "+"readStringUntil rewindDirectory readTemperature "+"setClockDivider readLightSensor endTransmission "+"analogReference detachInterrupt countryNameRead "+"attachInterrupt encryptionType readBytesUntil "+"robotNameWrite readMicrophone robotNameRead cityNameWrite "+"userNameWrite readJoystickY readJoystickX mouseReleased "+"openNextFile scanNetworks noInterrupts digitalWrite "+"beginSpeaker mousePressed isActionDone mouseDragged "+"displayLogos noAutoscroll addParameter remoteNumber "+"getModifiers keyboardRead userNameRead waitContinue "+"processInput parseCommand printVersion readNetworks "+"writeMessage blinkVersion cityNameRead readMessage "+"setDataMode parsePacket isListening setBitOrder "+"beginPacket isDirectory motorsWrite drawCompass "+"digitalRead clearScreen serialEvent rightToLeft "+"setTextSize leftToRight requestFrom keyReleased "+"compassRead analogWrite interrupts WiFiServer "+"disconnect playMelody parseFloat autoscroll "+"getPINUsed setPINUsed setTimeout sendAnalog "+"readSlider analogRead beginWrite createChar "+"motorsStop keyPressed tempoWrite readButton "+"subnetMask debugPrint macAddress writeGreen "+"randomSeed attachGPRS readString sendString "+"remotePort releaseAll mouseMoved background "+"getXChange getYChange answerCall getResult "+"voiceCall endPacket constrain getSocket writeJSON "+"getButton available connected findUntil readBytes "+"exitValue readGreen writeBlue startLoop IPAddress "+"isPressed sendSysex pauseMode gatewayIP setCursor "+"getOemKey tuneWrite noDisplay loadImage switchPIN "+"onRequest onReceive changePIN playFile noBuffer "+"parseInt overflow checkPIN knobRead beginTFT "+"bitClear updateIR bitWrite position writeRGB "+"highByte writeRed setSpeed readBlue noStroke "+"remoteIP transfer shutdown hangCall beginSMS "+"endWrite attached maintain noCursor checkReg "+"checkPUK shiftOut isValid shiftIn pulseIn "+"connect println localIP pinMode getIMEI "+"display noBlink process getBand running beginSD "+"drawBMP lowByte setBand release bitRead prepare "+"pointTo readRed setMode noFill remove listen "+"stroke detach attach noTone exists buffer "+"height bitSet circle config cursor random "+"IRread setDNS endSMS getKey micros "+"millis begin print write ready flush width "+"isPIN blink clear press mkdir rmdir close "+"point yield image BSSID click delay "+"read text move peek beep rect line open "+"seek fill size turn stop home find "+"step tone sqrt RSSI SSID "+"end bit tan cos sin pow map abs max "+"min get run put",literal:"DIGITAL_MESSAGE FIRMATA_STRING ANALOG_MESSAGE "+"REPORT_DIGITAL REPORT_ANALOG INPUT_PULLUP "+"SET_PIN_MODE INTERNAL2V56 SYSTEM_RESET LED_BUILTIN "+"INTERNAL1V1 SYSEX_START INTERNAL EXTERNAL "+"DEFAULT OUTPUT INPUT HIGH LOW"};var ARDUINO=hljs.requireLanguage("cpp").rawDefinition();var kws=ARDUINO.keywords;kws.keyword+=" "+ARDUINO_KW.keyword;kws.literal+=" "+ARDUINO_KW.literal;kws.built_in+=" "+ARDUINO_KW.built_in;return ARDUINO});hljs.registerLanguage("ocaml",function(hljs){return{aliases:["ml"],keywords:{keyword:"and as assert asr begin class constraint do done downto else end "+"exception external for fun function functor if in include "+"inherit! inherit initializer land lazy let lor lsl lsr lxor match method!|10 method "+"mod module mutable new object of open! open or private rec sig struct "+"then to try type val! val virtual when while with "+"parser value",built_in:"array bool bytes char exn|5 float int int32 int64 list lazy_t|5 nativeint|5 string unit "+"in_channel out_channel ref",literal:"true false"},illegal:/\/\/|>>/,lexemes:"[a-z_]\\w*!?",contains:[{className:"literal",begin:"\\[(\\|\\|)?\\]|\\(\\)",relevance:0},hljs.COMMENT("\\(\\*","\\*\\)",{contains:["self"]}),{className:"symbol",begin:"'[A-Za-z_](?!')[\\w']*"},{className:"type",begin:"`[A-Z][\\w']*"},{className:"type",begin:"\\b[A-Z][\\w']*",relevance:0},{begin:"[a-z_]\\w*'[\\w']*",relevance:0},hljs.inherit(hljs.APOS_STRING_MODE,{className:"string",relevance:0}),hljs.inherit(hljs.QUOTE_STRING_MODE,{illegal:null}),{className:"number",begin:"\\b(0[xX][a-fA-F0-9_]+[Lln]?|"+"0[oO][0-7_]+[Lln]?|"+"0[bB][01_]+[Lln]?|"+"[0-9][0-9_]*([Lln]|(\\.[0-9_]*)?([eE][-+]?[0-9_]+)?)?)",relevance:0},{begin:/[-=]>/}]}});hljs.registerLanguage("oxygene",function(hljs){var OXYGENE_KEYWORDS="abstract add and array as asc aspect assembly async begin break block by case class concat const copy constructor continue "+"create default delegate desc distinct div do downto dynamic each else empty end ensure enum equals event except exit extension external false "+"final finalize finalizer finally flags for forward from function future global group has if implementation implements implies in index inherited "+"inline interface into invariants is iterator join locked locking loop matching method mod module namespace nested new nil not notify nullable of "+"old on operator or order out override parallel params partial pinned private procedure property protected public queryable raise read readonly "+"record reintroduce remove repeat require result reverse sealed select self sequence set shl shr skip static step soft take then to true try tuple "+"type union unit unsafe until uses using var virtual raises volatile where while with write xor yield await mapped deprecated stdcall cdecl pascal "+"register safecall overload library platform reference packed strict published autoreleasepool selector strong weak unretained";var CURLY_COMMENT=hljs.COMMENT("{","}",{relevance:0});var PAREN_COMMENT=hljs.COMMENT("\\(\\*","\\*\\)",{relevance:10});var STRING={className:"string",begin:"'",end:"'",contains:[{begin:"''"}]};var CHAR_STRING={className:"string",begin:"(#\\d+)+"};var FUNCTION={className:"function",beginKeywords:"function constructor destructor procedure method",end:"[:;]",keywords:"function constructor|10 destructor|10 procedure|10 method|10",contains:[hljs.TITLE_MODE,{className:"params",begin:"\\(",end:"\\)",keywords:OXYGENE_KEYWORDS,contains:[STRING,CHAR_STRING]},CURLY_COMMENT,PAREN_COMMENT]};return{case_insensitive:true,lexemes:/\.?\w+/,keywords:OXYGENE_KEYWORDS,illegal:'("|\\$[G-Zg-z]|\\/\\*|</|=>|->)',contains:[CURLY_COMMENT,PAREN_COMMENT,hljs.C_LINE_COMMENT_MODE,STRING,CHAR_STRING,hljs.NUMBER_MODE,FUNCTION,{className:"class",begin:"=\\bclass\\b",end:"end;",keywords:OXYGENE_KEYWORDS,contains:[STRING,CHAR_STRING,CURLY_COMMENT,PAREN_COMMENT,hljs.C_LINE_COMMENT_MODE,FUNCTION]}]}});hljs.registerLanguage("scilab",function(hljs){var COMMON_CONTAINS=[hljs.C_NUMBER_MODE,{className:"string",begin:"'|\"",end:"'|\"",contains:[hljs.BACKSLASH_ESCAPE,{begin:"''"}]}];return{aliases:["sci"],lexemes:/%?\w+/,keywords:{keyword:"abort break case clear catch continue do elseif else endfunction end for function "+"global if pause return resume select try then while",literal:"%f %F %t %T %pi %eps %inf %nan %e %i %z %s",built_in:"abs and acos asin atan ceil cd chdir clearglobal cosh cos cumprod deff disp error "+"exec execstr exists exp eye gettext floor fprintf fread fsolve imag isdef isempty "+"isinfisnan isvector lasterror length load linspace list listfiles log10 log2 log "+"max min msprintf mclose mopen ones or pathconvert poly printf prod pwd rand real "+"round sinh sin size gsort sprintf sqrt strcat strcmps tring sum system tanh tan "+"type typename warning zeros matrix"},illegal:'("|#|/\\*|\\s+/\\w+)',contains:[{className:"function",beginKeywords:"function",end:"$",contains:[hljs.UNDERSCORE_TITLE_MODE,{className:"params",begin:"\\(",end:"\\)"}]},{begin:"[a-zA-Z_][a-zA-Z_0-9]*('+[\\.']*|[\\.']+)",end:"",relevance:0},{begin:"\\[",end:"\\]'*[\\.']*",relevance:0,contains:COMMON_CONTAINS},hljs.COMMENT("//","$")].concat(COMMON_CONTAINS)}});hljs.registerLanguage("jboss-cli",function(hljs){var PARAM={begin:/[\w-]+ *=/,returnBegin:true,relevance:0,contains:[{className:"attr",begin:/[\w-]+/}]};var PARAMSBLOCK={className:"params",begin:/\(/,end:/\)/,contains:[PARAM],relevance:0};var OPERATION={className:"function",begin:/:[\w\-.]+/,relevance:0};var PATH={className:"string",begin:/\B(([\/.])[\w\-.\/=]+)+/};var COMMAND_PARAMS={className:"params",begin:/--[\w\-=\/]+/};return{aliases:["wildfly-cli"],lexemes:"[a-z-]+",keywords:{keyword:"alias batch cd clear command connect connection-factory connection-info data-source deploy "+"deployment-info deployment-overlay echo echo-dmr help history if jdbc-driver-info jms-queue|20 jms-topic|20 ls "+"patch pwd quit read-attribute read-operation reload rollout-plan run-batch set shutdown try unalias "+"undeploy unset version xa-data-source",literal:"true false"},contains:[hljs.HASH_COMMENT_MODE,hljs.QUOTE_STRING_MODE,COMMAND_PARAMS,OPERATION,PATH,PARAMSBLOCK]}});hljs.registerLanguage("angelscript",function(hljs){var builtInTypeMode={className:"built_in",begin:"\\b(void|bool|int|int8|int16|int32|int64|uint|uint8|uint16|uint32|uint64|string|ref|array|double|float|auto|dictionary)"};var objectHandleMode={className:"symbol",begin:"[a-zA-Z0-9_]+@"};var genericMode={className:"keyword",begin:"<",end:">",contains:[builtInTypeMode,objectHandleMode]};builtInTypeMode.contains=[genericMode];objectHandleMode.contains=[genericMode];return{aliases:["asc"],keywords:"for in|0 break continue while do|0 return if else case switch namespace is cast "+"or and xor not get|0 in inout|10 out override set|0 private public const default|0 "+"final shared external mixin|10 enum typedef funcdef this super import from interface "+"abstract|0 try catch protected explicit property",illegal:"(^using\\s+[A-Za-z0-9_\\.]+;$|\\bfunctions*[^\\(])",contains:[{className:"string",begin:"'",end:"'",illegal:"\\n",contains:[hljs.BACKSLASH_ESCAPE],relevance:0},{className:"string",begin:'"',end:'"',illegal:"\\n",contains:[hljs.BACKSLASH_ESCAPE],relevance:0},{className:"string",begin:'"""',end:'"""'},hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,{beginKeywords:"interface namespace",end:"{",illegal:"[;.\\-]",contains:[{className:"symbol",begin:"[a-zA-Z0-9_]+"}]},{beginKeywords:"class",end:"{",illegal:"[;.\\-]",contains:[{className:"symbol",begin:"[a-zA-Z0-9_]+",contains:[{begin:"[:,]\\s*",contains:[{className:"symbol",begin:"[a-zA-Z0-9_]+"}]}]}]},builtInTypeMode,objectHandleMode,{className:"literal",begin:"\\b(null|true|false)"},{className:"number",begin:"(-?)(\\b0[xX][a-fA-F0-9]+|(\\b\\d+(\\.\\d*)?f?|\\.\\d+f?)([eE][-+]?\\d+f?)?)"}]}});hljs.registerLanguage("r",function(hljs){var IDENT_RE="([a-zA-Z]|\\.[a-zA-Z.])[a-zA-Z0-9._]*";return{contains:[hljs.HASH_COMMENT_MODE,{begin:IDENT_RE,lexemes:IDENT_RE,keywords:{keyword:"function if in break next repeat else for return switch while try tryCatch "+"stop warning require library attach detach source setMethod setGeneric "+"setGroupGeneric setClass ...",literal:"NULL NA TRUE FALSE T F Inf NaN NA_integer_|10 NA_real_|10 NA_character_|10 "+"NA_complex_|10"},relevance:0},{className:"number",begin:"0[xX][0-9a-fA-F]+[Li]?\\b",relevance:0},{className:"number",begin:"\\d+(?:[eE][+\\-]?\\d*)?L\\b",relevance:0},{className:"number",begin:"\\d+\\.(?!\\d)(?:i\\b)?",relevance:0},{className:"number",begin:"\\d+(?:\\.\\d*)?(?:[eE][+\\-]?\\d*)?i?\\b",relevance:0},{className:"number",begin:"\\.\\d+(?:[eE][+\\-]?\\d*)?i?\\b",relevance:0},{begin:"`",end:"`",relevance:0},{className:"string",contains:[hljs.BACKSLASH_ESCAPE],variants:[{begin:'"',end:'"'},{begin:"'",end:"'"}]}]}});hljs.registerLanguage("json",function(hljs){var LITERALS={literal:"true false null"};var ALLOWED_COMMENTS=[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE];var TYPES=[hljs.QUOTE_STRING_MODE,hljs.C_NUMBER_MODE];var VALUE_CONTAINER={end:",",endsWithParent:true,excludeEnd:true,contains:TYPES,keywords:LITERALS};var OBJECT={begin:"{",end:"}",contains:[{className:"attr",begin:/"/,end:/"/,contains:[hljs.BACKSLASH_ESCAPE],illegal:"\\n"},hljs.inherit(VALUE_CONTAINER,{begin:/:/})].concat(ALLOWED_COMMENTS),illegal:"\\S"};var ARRAY={begin:"\\[",end:"\\]",contains:[hljs.inherit(VALUE_CONTAINER)],illegal:"\\S"};TYPES.push(OBJECT,ARRAY);ALLOWED_COMMENTS.forEach(function(rule){TYPES.push(rule)});return{contains:TYPES,keywords:LITERALS,illegal:"\\S"}});hljs.registerLanguage("haskell",function(hljs){var COMMENT={variants:[hljs.COMMENT("--","$"),hljs.COMMENT("{-","-}",{contains:["self"]})]};var PRAGMA={className:"meta",begin:"{-#",end:"#-}"};var PREPROCESSOR={className:"meta",begin:"^#",end:"$"};var CONSTRUCTOR={className:"type",begin:"\\b[A-Z][\\w']*",relevance:0};var LIST={begin:"\\(",end:"\\)",illegal:'"',contains:[PRAGMA,PREPROCESSOR,{className:"type",begin:"\\b[A-Z][\\w]*(\\((\\.\\.|,|\\w+)\\))?"},hljs.inherit(hljs.TITLE_MODE,{begin:"[_a-z][\\w']*"}),COMMENT]};var RECORD={begin:"{",end:"}",contains:LIST.contains};return{aliases:["hs"],keywords:"let in if then else case of where do module import hiding "+"qualified type data newtype deriving class instance as default "+"infix infixl infixr foreign export ccall stdcall cplusplus "+"jvm dotnet safe unsafe family forall mdo proc rec",contains:[{beginKeywords:"module",end:"where",keywords:"module where",contains:[LIST,COMMENT],illegal:"\\W\\.|;"},{begin:"\\bimport\\b",end:"$",keywords:"import qualified as hiding",contains:[LIST,COMMENT],illegal:"\\W\\.|;"},{className:"class",begin:"^(\\s*)?(class|instance)\\b",end:"where",keywords:"class family instance where",contains:[CONSTRUCTOR,LIST,COMMENT]},{className:"class",begin:"\\b(data|(new)?type)\\b",end:"$",keywords:"data family type newtype deriving",contains:[PRAGMA,CONSTRUCTOR,LIST,RECORD,COMMENT]},{beginKeywords:"default",end:"$",contains:[CONSTRUCTOR,LIST,COMMENT]},{beginKeywords:"infix infixl infixr",end:"$",contains:[hljs.C_NUMBER_MODE,COMMENT]},{begin:"\\bforeign\\b",end:"$",keywords:"foreign import export ccall stdcall cplusplus jvm "+"dotnet safe unsafe",contains:[CONSTRUCTOR,hljs.QUOTE_STRING_MODE,COMMENT]},{className:"meta",begin:"#!\\/usr\\/bin\\/env runhaskell",end:"$"},PRAGMA,PREPROCESSOR,hljs.QUOTE_STRING_MODE,hljs.C_NUMBER_MODE,CONSTRUCTOR,hljs.inherit(hljs.TITLE_MODE,{begin:"^[_a-z][\\w']*"}),COMMENT,{begin:"->|<-"}]}});hljs.registerLanguage("taggerscript",function(hljs){var COMMENT={className:"comment",begin:/\$noop\(/,end:/\)/,contains:[{begin:/\(/,end:/\)/,contains:["self",{begin:/\\./}]}],relevance:10};var FUNCTION={className:"keyword",begin:/\$(?!noop)[a-zA-Z][_a-zA-Z0-9]*/,end:/\(/,excludeEnd:true};var VARIABLE={className:"variable",begin:/%[_a-zA-Z0-9:]*/,end:"%"};var ESCAPE_SEQUENCE={className:"symbol",begin:/\\./};return{contains:[COMMENT,FUNCTION,VARIABLE,ESCAPE_SEQUENCE]}});hljs.registerLanguage("xl",function(hljs){var BUILTIN_MODULES="ObjectLoader Animate MovieCredits Slides Filters Shading Materials LensFlare Mapping VLCAudioVideo "+"StereoDecoder PointCloud NetworkAccess RemoteControl RegExp ChromaKey Snowfall NodeJS Speech Charts";var XL_KEYWORDS={keyword:"if then else do while until for loop import with is as where when by data constant "+"integer real text name boolean symbol infix prefix postfix block tree",literal:"true false nil",built_in:"in mod rem and or xor not abs sign floor ceil sqrt sin cos tan asin "+"acos atan exp expm1 log log2 log10 log1p pi at text_length text_range "+"text_find text_replace contains page slide basic_slide title_slide "+"title subtitle fade_in fade_out fade_at clear_color color line_color "+"line_width texture_wrap texture_transform texture scale_?x scale_?y "+"scale_?z? translate_?x translate_?y translate_?z? rotate_?x rotate_?y "+"rotate_?z? rectangle circle ellipse sphere path line_to move_to "+"quad_to curve_to theme background contents locally time mouse_?x "+"mouse_?y mouse_buttons "+BUILTIN_MODULES};var DOUBLE_QUOTE_TEXT={className:"string",begin:'"',end:'"',illegal:"\\n"};var SINGLE_QUOTE_TEXT={className:"string",begin:"'",end:"'",illegal:"\\n"};var LONG_TEXT={className:"string",begin:"<<",end:">>"};var BASED_NUMBER={className:"number",begin:"[0-9]+#[0-9A-Z_]+(\\.[0-9-A-Z_]+)?#?([Ee][+-]?[0-9]+)?"};var IMPORT={beginKeywords:"import",end:"$",keywords:XL_KEYWORDS,contains:[DOUBLE_QUOTE_TEXT]};var FUNCTION_DEFINITION={className:"function",begin:/[a-z][^\n]*->/,returnBegin:true,end:/->/,contains:[hljs.inherit(hljs.TITLE_MODE,{starts:{endsWithParent:true,keywords:XL_KEYWORDS}})]};return{aliases:["tao"],lexemes:/[a-zA-Z][a-zA-Z0-9_?]*/,keywords:XL_KEYWORDS,contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,DOUBLE_QUOTE_TEXT,SINGLE_QUOTE_TEXT,LONG_TEXT,FUNCTION_DEFINITION,IMPORT,BASED_NUMBER,hljs.NUMBER_MODE]}});hljs.registerLanguage("axapta",function(hljs){return{keywords:"false int abstract private char boolean static null if for true "+"while long throw finally protected final return void enum else "+"break new catch byte super case short default double public try this switch "+"continue reverse firstfast firstonly forupdate nofetch sum avg minof maxof count "+"order group by asc desc index hint like dispaly edit client server ttsbegin "+"ttscommit str real date container anytype common div mod",contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.C_NUMBER_MODE,{className:"meta",begin:"#",end:"$"},{className:"class",beginKeywords:"class interface",end:"{",excludeEnd:true,illegal:":",contains:[{beginKeywords:"extends implements"},hljs.UNDERSCORE_TITLE_MODE]}]}});hljs.registerLanguage("purebasic",function(hljs){var STRINGS={className:"string",begin:'(~)?"',end:'"',illegal:"\\n"};var CONSTANTS={className:"symbol",begin:"#[a-zA-Z_]\\w*\\$?"};return{aliases:["pb","pbi"],keywords:"Align And Array As Break CallDebugger Case CompilerCase CompilerDefault "+"CompilerElse CompilerElseIf CompilerEndIf CompilerEndSelect CompilerError "+"CompilerIf CompilerSelect CompilerWarning Continue Data DataSection Debug "+"DebugLevel Declare DeclareC DeclareCDLL DeclareDLL DeclareModule Default "+"Define Dim DisableASM DisableDebugger DisableExplicit Else ElseIf EnableASM "+"EnableDebugger EnableExplicit End EndDataSection EndDeclareModule EndEnumeration "+"EndIf EndImport EndInterface EndMacro EndModule EndProcedure EndSelect "+"EndStructure EndStructureUnion EndWith Enumeration EnumerationBinary Extends "+"FakeReturn For ForEach ForEver Global Gosub Goto If Import ImportC "+"IncludeBinary IncludeFile IncludePath Interface List Macro MacroExpandedCount "+"Map Module NewList NewMap Next Not Or Procedure ProcedureC "+"ProcedureCDLL ProcedureDLL ProcedureReturn Protected Prototype PrototypeC ReDim "+"Read Repeat Restore Return Runtime Select Shared Static Step Structure "+"StructureUnion Swap Threaded To UndefineMacro Until Until UnuseModule "+"UseModule Wend While With XIncludeFile XOr",contains:[hljs.COMMENT(";","$",{relevance:0}),{className:"function",begin:"\\b(Procedure|Declare)(C|CDLL|DLL)?\\b",end:"\\(",excludeEnd:true,returnBegin:true,contains:[{className:"keyword",begin:"(Procedure|Declare)(C|CDLL|DLL)?",excludeEnd:true},{className:"type",begin:"\\.\\w*"},hljs.UNDERSCORE_TITLE_MODE]},STRINGS,CONSTANTS]}});hljs.registerLanguage("zephir",function(hljs){var STRING={className:"string",contains:[hljs.BACKSLASH_ESCAPE],variants:[{begin:'b"',end:'"'},{begin:"b'",end:"'"},hljs.inherit(hljs.APOS_STRING_MODE,{illegal:null}),hljs.inherit(hljs.QUOTE_STRING_MODE,{illegal:null})]};var NUMBER={variants:[hljs.BINARY_NUMBER_MODE,hljs.C_NUMBER_MODE]};return{aliases:["zep"],case_insensitive:true,keywords:"and include_once list abstract global private echo interface as static endswitch "+"array null if endwhile or const for endforeach self var let while isset public "+"protected exit foreach throw elseif include __FILE__ empty require_once do xor "+"return parent clone use __CLASS__ __LINE__ else break print eval new "+"catch __METHOD__ case exception default die require __FUNCTION__ "+"enddeclare final try switch continue endfor endif declare unset true false "+"trait goto instanceof insteadof __DIR__ __NAMESPACE__ "+"yield finally int uint long ulong char uchar double float bool boolean string"+"likely unlikely",contains:[hljs.C_LINE_COMMENT_MODE,hljs.HASH_COMMENT_MODE,hljs.COMMENT("/\\*","\\*/",{contains:[{className:"doctag",begin:"@[A-Za-z]+"}]}),hljs.COMMENT("__halt_compiler.+?;",false,{endsWithParent:true,keywords:"__halt_compiler",lexemes:hljs.UNDERSCORE_IDENT_RE}),{className:"string",begin:"<<<['\"]?\\w+['\"]?$",end:"^\\w+;",contains:[hljs.BACKSLASH_ESCAPE]},{begin:/(::|->)+[a-zA-Z_\x7f-\xff][a-zA-Z0-9_\x7f-\xff]*/},{className:"function",beginKeywords:"function",end:/[;{]/,excludeEnd:true,illegal:"\\$|\\[|%",contains:[hljs.UNDERSCORE_TITLE_MODE,{className:"params",begin:"\\(",end:"\\)",contains:["self",hljs.C_BLOCK_COMMENT_MODE,STRING,NUMBER]}]},{className:"class",beginKeywords:"class interface",end:"{",excludeEnd:true,illegal:/[:\(\$"]/,contains:[{beginKeywords:"extends implements"},hljs.UNDERSCORE_TITLE_MODE]},{beginKeywords:"namespace",end:";",illegal:/[\.']/,contains:[hljs.UNDERSCORE_TITLE_MODE]},{beginKeywords:"use",end:";",contains:[hljs.UNDERSCORE_TITLE_MODE]},{begin:"=>"},STRING,NUMBER]}});hljs.registerLanguage("coq",function(hljs){return{keywords:{keyword:"_|0 as at cofix else end exists exists2 fix for forall fun if IF in let "+"match mod Prop return Set then Type using where with "+"Abort About Add Admit Admitted All Arguments Assumptions Axiom Back BackTo "+"Backtrack Bind Blacklist Canonical Cd Check Class Classes Close Coercion "+"Coercions CoFixpoint CoInductive Collection Combined Compute Conjecture "+"Conjectures Constant constr Constraint Constructors Context Corollary "+"CreateHintDb Cut Declare Defined Definition Delimit Dependencies Dependent"+"Derive Drop eauto End Equality Eval Example Existential Existentials "+"Existing Export exporting Extern Extract Extraction Fact Field Fields File "+"Fixpoint Focus for From Function Functional Generalizable Global Goal Grab "+"Grammar Graph Guarded Heap Hint HintDb Hints Hypotheses Hypothesis ident "+"Identity If Immediate Implicit Import Include Inductive Infix Info Initial "+"Inline Inspect Instance Instances Intro Intros Inversion Inversion_clear "+"Language Left Lemma Let Libraries Library Load LoadPath Local Locate Ltac ML "+"Mode Module Modules Monomorphic Morphism Next NoInline Notation Obligation "+"Obligations Opaque Open Optimize Options Parameter Parameters Parametric "+"Path Paths pattern Polymorphic Preterm Print Printing Program Projections "+"Proof Proposition Pwd Qed Quit Rec Record Recursive Redirect Relation Remark "+"Remove Require Reserved Reset Resolve Restart Rewrite Right Ring Rings Save "+"Scheme Scope Scopes Script Search SearchAbout SearchHead SearchPattern "+"SearchRewrite Section Separate Set Setoid Show Solve Sorted Step Strategies "+"Strategy Structure SubClass Table Tables Tactic Term Test Theorem Time "+"Timeout Transparent Type Typeclasses Types Undelimit Undo Unfocus Unfocused "+"Unfold Universe Universes Unset Unshelve using Variable Variables Variant "+"Verbose Visibility where with",built_in:"abstract absurd admit after apply as assert assumption at auto autorewrite "+"autounfold before bottom btauto by case case_eq cbn cbv change "+"classical_left classical_right clear clearbody cofix compare compute "+"congruence constr_eq constructor contradict contradiction cut cutrewrite "+"cycle decide decompose dependent destruct destruction dintuition "+"discriminate discrR do double dtauto eapply eassumption eauto ecase "+"econstructor edestruct ediscriminate eelim eexact eexists einduction "+"einjection eleft elim elimtype enough equality erewrite eright "+"esimplify_eq esplit evar exact exactly_once exfalso exists f_equal fail "+"field field_simplify field_simplify_eq first firstorder fix fold fourier "+"functional generalize generalizing gfail give_up has_evar hnf idtac in "+"induction injection instantiate intro intro_pattern intros intuition "+"inversion inversion_clear is_evar is_var lapply lazy left lia lra move "+"native_compute nia nsatz omega once pattern pose progress proof psatz quote "+"record red refine reflexivity remember rename repeat replace revert "+"revgoals rewrite rewrite_strat right ring ring_simplify rtauto set "+"setoid_reflexivity setoid_replace setoid_rewrite setoid_symmetry "+"setoid_transitivity shelve shelve_unifiable simpl simple simplify_eq solve "+"specialize split split_Rabs split_Rmult stepl stepr subst sum swap "+"symmetry tactic tauto time timeout top transitivity trivial try tryif "+"unfold unify until using vm_compute with"},contains:[hljs.QUOTE_STRING_MODE,hljs.COMMENT("\\(\\*","\\*\\)"),hljs.C_NUMBER_MODE,{className:"type",excludeBegin:true,begin:"\\|\\s*",end:"\\w+"},{begin:/[-=]>/}]}});hljs.registerLanguage("clojure",function(hljs){var keywords={"builtin-name":"def defonce cond apply if-not if-let if not not= = < > <= >= == + / * - rem "+"quot neg? pos? delay? symbol? keyword? true? false? integer? empty? coll? list? "+"set? ifn? fn? associative? sequential? sorted? counted? reversible? number? decimal? "+"class? distinct? isa? float? rational? reduced? ratio? odd? even? char? seq? vector? "+"string? map? nil? contains? zero? instance? not-every? not-any? libspec? -> ->> .. . "+"inc compare do dotimes mapcat take remove take-while drop letfn drop-last take-last "+"drop-while while intern condp case reduced cycle split-at split-with repeat replicate "+"iterate range merge zipmap declare line-seq sort comparator sort-by dorun doall nthnext "+"nthrest partition eval doseq await await-for let agent atom send send-off release-pending-sends "+"add-watch mapv filterv remove-watch agent-error restart-agent set-error-handler error-handler "+"set-error-mode! error-mode shutdown-agents quote var fn loop recur throw try monitor-enter "+"monitor-exit defmacro defn defn- macroexpand macroexpand-1 for dosync and or "+"when when-not when-let comp juxt partial sequence memoize constantly complement identity assert "+"peek pop doto proxy defstruct first rest cons defprotocol cast coll deftype defrecord last butlast "+"sigs reify second ffirst fnext nfirst nnext defmulti defmethod meta with-meta ns in-ns create-ns import "+"refer keys select-keys vals key val rseq name namespace promise into transient persistent! conj! "+"assoc! dissoc! pop! disj! use class type num float double short byte boolean bigint biginteger "+"bigdec print-method print-dup throw-if printf format load compile get-in update-in pr pr-on newline "+"flush read slurp read-line subvec with-open memfn time re-find re-groups rand-int rand mod locking "+"assert-valid-fdecl alias resolve ref deref refset swap! reset! set-validator! compare-and-set! alter-meta! "+"reset-meta! commute get-validator alter ref-set ref-history-count ref-min-history ref-max-history ensure sync io! "+"new next conj set! to-array future future-call into-array aset gen-class reduce map filter find empty "+"hash-map hash-set sorted-map sorted-map-by sorted-set sorted-set-by vec vector seq flatten reverse assoc dissoc list "+"disj get union difference intersection extend extend-type extend-protocol int nth delay count concat chunk chunk-buffer "+"chunk-append chunk-first chunk-rest max min dec unchecked-inc-int unchecked-inc unchecked-dec-inc unchecked-dec unchecked-negate "+"unchecked-add-int unchecked-add unchecked-subtract-int unchecked-subtract chunk-next chunk-cons chunked-seq? prn vary-meta "+"lazy-seq spread list* str find-keyword keyword symbol gensym force rationalize"};var SYMBOLSTART="a-zA-Z_\\-!.?+*=<>&#'";var SYMBOL_RE="["+SYMBOLSTART+"]["+SYMBOLSTART+"0-9/;:]*";var SIMPLE_NUMBER_RE="[-+]?\\d+(\\.\\d+)?";var SYMBOL={begin:SYMBOL_RE,relevance:0};var NUMBER={className:"number",begin:SIMPLE_NUMBER_RE,relevance:0};var STRING=hljs.inherit(hljs.QUOTE_STRING_MODE,{illegal:null});var COMMENT=hljs.COMMENT(";","$",{relevance:0});var LITERAL={className:"literal",begin:/\b(true|false|nil)\b/};var COLLECTION={begin:"[\\[\\{]",end:"[\\]\\}]"};var HINT={className:"comment",begin:"\\^"+SYMBOL_RE};var HINT_COL=hljs.COMMENT("\\^\\{","\\}");var KEY={className:"symbol",begin:"[:]{1,2}"+SYMBOL_RE};var LIST={begin:"\\(",end:"\\)"};var BODY={endsWithParent:true,relevance:0};var NAME={keywords:keywords,lexemes:SYMBOL_RE,className:"name",begin:SYMBOL_RE,starts:BODY};var DEFAULT_CONTAINS=[LIST,STRING,HINT,HINT_COL,COMMENT,KEY,COLLECTION,NUMBER,LITERAL,SYMBOL];LIST.contains=[hljs.COMMENT("comment",""),NAME,BODY];BODY.contains=DEFAULT_CONTAINS;COLLECTION.contains=DEFAULT_CONTAINS;HINT_COL.contains=[COLLECTION];return{aliases:["clj"],illegal:/\S/,contains:[LIST,STRING,HINT,HINT_COL,COMMENT,KEY,COLLECTION,NUMBER,LITERAL]}});hljs.registerLanguage("clojure-repl",function(hljs){return{contains:[{className:"meta",begin:/^([\w.-]+|\s*#_)?=>/,starts:{end:/$/,subLanguage:"clojure"}}]}});hljs.registerLanguage("java",function(hljs){var JAVA_IDENT_RE="[À-ʸa-zA-Z_$][À-ʸa-zA-Z_$0-9]*";var GENERIC_IDENT_RE=JAVA_IDENT_RE+"(<"+JAVA_IDENT_RE+"(\\s*,\\s*"+JAVA_IDENT_RE+")*>)?";var KEYWORDS="false synchronized int abstract float private char boolean var static null if const "+"for true while long strictfp finally protected import native final void "+"enum else break transient catch instanceof byte super volatile case assert short "+"package default double public try this switch continue throws protected public private "+"module requires exports do";var JAVA_NUMBER_RE="\\b"+"("+"0[bB]([01]+[01_]+[01]+|[01]+)"+"|"+"0[xX]([a-fA-F0-9]+[a-fA-F0-9_]+[a-fA-F0-9]+|[a-fA-F0-9]+)"+"|"+"("+"([\\d]+[\\d_]+[\\d]+|[\\d]+)(\\.([\\d]+[\\d_]+[\\d]+|[\\d]+))?"+"|"+"\\.([\\d]+[\\d_]+[\\d]+|[\\d]+)"+")"+"([eE][-+]?\\d+)?"+")"+"[lLfF]?";var JAVA_NUMBER_MODE={className:"number",begin:JAVA_NUMBER_RE,relevance:0};return{aliases:["jsp"],keywords:KEYWORDS,illegal:/<\/|#/,contains:[hljs.COMMENT("/\\*\\*","\\*/",{relevance:0,contains:[{begin:/\w+@/,relevance:0},{className:"doctag",begin:"@[A-Za-z]+"}]}),hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,{className:"class",beginKeywords:"class interface",end:/[{;=]/,excludeEnd:true,keywords:"class interface",illegal:/[:"\[\]]/,contains:[{beginKeywords:"extends implements"},hljs.UNDERSCORE_TITLE_MODE]},{beginKeywords:"new throw return else",relevance:0},{className:"function",begin:"("+GENERIC_IDENT_RE+"\\s+)+"+hljs.UNDERSCORE_IDENT_RE+"\\s*\\(",returnBegin:true,end:/[{;=]/,excludeEnd:true,keywords:KEYWORDS,contains:[{begin:hljs.UNDERSCORE_IDENT_RE+"\\s*\\(",returnBegin:true,relevance:0,contains:[hljs.UNDERSCORE_TITLE_MODE]},{className:"params",begin:/\(/,end:/\)/,keywords:KEYWORDS,relevance:0,contains:[hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.C_NUMBER_MODE,hljs.C_BLOCK_COMMENT_MODE]},hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE]},JAVA_NUMBER_MODE,{className:"meta",begin:"@[A-Za-z]+"}]}});hljs.registerLanguage("csp",function(hljs){return{case_insensitive:false,lexemes:"[a-zA-Z][a-zA-Z0-9_-]*",keywords:{keyword:"base-uri child-src connect-src default-src font-src form-action"+" frame-ancestors frame-src img-src media-src object-src plugin-types"+" report-uri sandbox script-src style-src"},contains:[{className:"string",begin:"'",end:"'"},{className:"attribute",begin:"^Content",end:":",excludeEnd:true}]}});hljs.registerLanguage("ruby",function(hljs){var RUBY_METHOD_RE="[a-zA-Z_]\\w*[!?=]?|[-+~]\\@|<<|>>|=~|===?|<=>|[<>]=?|\\*\\*|[-/+%^&*~`|]|\\[\\]=?";var RUBY_KEYWORDS={keyword:"and then defined module in return redo if BEGIN retry end for self when "+"next until do begin unless END rescue else break undef not super class case "+"require yield alias while ensure elsif or include attr_reader attr_writer attr_accessor",literal:"true false nil"};var YARDOCTAG={className:"doctag",begin:"@[A-Za-z]+"};var IRB_OBJECT={begin:"#<",end:">"};var COMMENT_MODES=[hljs.COMMENT("#","$",{contains:[YARDOCTAG]}),hljs.COMMENT("^\\=begin","^\\=end",{contains:[YARDOCTAG],relevance:10}),hljs.COMMENT("^__END__","\\n$")];var SUBST={className:"subst",begin:"#\\{",end:"}",keywords:RUBY_KEYWORDS};var STRING={className:"string",contains:[hljs.BACKSLASH_ESCAPE,SUBST],variants:[{begin:/'/,end:/'/},{begin:/"/,end:/"/},{begin:/`/,end:/`/},{begin:"%[qQwWx]?\\(",end:"\\)"},{begin:"%[qQwWx]?\\[",end:"\\]"},{begin:"%[qQwWx]?{",end:"}"},{begin:"%[qQwWx]?<",end:">"},{begin:"%[qQwWx]?/",end:"/"},{begin:"%[qQwWx]?%",end:"%"},{begin:"%[qQwWx]?-",end:"-"},{begin:"%[qQwWx]?\\|",end:"\\|"},{begin:/\B\?(\\\d{1,3}|\\x[A-Fa-f0-9]{1,2}|\\u[A-Fa-f0-9]{4}|\\?\S)\b/},{begin:/<<[-~]?'?(\w+)(?:.|\n)*?\n\s*\1\b/,returnBegin:true,contains:[{begin:/<<[-~]?'?/},{begin:/\w+/,endSameAsBegin:true,contains:[hljs.BACKSLASH_ESCAPE,SUBST]}]}]};var PARAMS={className:"params",begin:"\\(",end:"\\)",endsParent:true,keywords:RUBY_KEYWORDS};var RUBY_DEFAULT_CONTAINS=[STRING,IRB_OBJECT,{className:"class",beginKeywords:"class module",end:"$|;",illegal:/=/,contains:[hljs.inherit(hljs.TITLE_MODE,{begin:"[A-Za-z_]\\w*(::\\w+)*(\\?|\\!)?"}),{begin:"<\\s*",contains:[{begin:"("+hljs.IDENT_RE+"::)?"+hljs.IDENT_RE}]}].concat(COMMENT_MODES)},{className:"function",beginKeywords:"def",end:"$|;",contains:[hljs.inherit(hljs.TITLE_MODE,{begin:RUBY_METHOD_RE}),PARAMS].concat(COMMENT_MODES)},{begin:hljs.IDENT_RE+"::"},{className:"symbol",begin:hljs.UNDERSCORE_IDENT_RE+"(\\!|\\?)?:",relevance:0},{className:"symbol",begin:":(?!\\s)",contains:[STRING,{begin:RUBY_METHOD_RE}],relevance:0},{className:"number",begin:"(\\b0[0-7_]+)|(\\b0x[0-9a-fA-F_]+)|(\\b[1-9][0-9_]*(\\.[0-9_]+)?)|[0_]\\b",relevance:0},{begin:"(\\$\\W)|((\\$|\\@\\@?)(\\w+))"},{className:"params",begin:/\|/,end:/\|/,keywords:RUBY_KEYWORDS},{begin:"("+hljs.RE_STARTERS_RE+"|unless)\\s*",keywords:"unless",contains:[IRB_OBJECT,{className:"regexp",contains:[hljs.BACKSLASH_ESCAPE,SUBST],illegal:/\n/,variants:[{begin:"/",end:"/[a-z]*"},{begin:"%r{",end:"}[a-z]*"},{begin:"%r\\(",end:"\\)[a-z]*"},{begin:"%r!",end:"![a-z]*"},{begin:"%r\\[",end:"\\][a-z]*"}]}].concat(COMMENT_MODES),relevance:0}].concat(COMMENT_MODES);SUBST.contains=RUBY_DEFAULT_CONTAINS;PARAMS.contains=RUBY_DEFAULT_CONTAINS;var SIMPLE_PROMPT="[>?]>";var DEFAULT_PROMPT="[\\w#]+\\(\\w+\\):\\d+:\\d+>";var RVM_PROMPT="(\\w+-)?\\d+\\.\\d+\\.\\d(p\\d+)?[^>]+>";var IRB_DEFAULT=[{begin:/^\s*=>/,starts:{end:"$",contains:RUBY_DEFAULT_CONTAINS}},{className:"meta",begin:"^("+SIMPLE_PROMPT+"|"+DEFAULT_PROMPT+"|"+RVM_PROMPT+")",starts:{end:"$",contains:RUBY_DEFAULT_CONTAINS}}];return{aliases:["rb","gemspec","podspec","thor","irb"],keywords:RUBY_KEYWORDS,illegal:/\/\*/,contains:COMMENT_MODES.concat(IRB_DEFAULT).concat(RUBY_DEFAULT_CONTAINS)}});hljs.registerLanguage("cs",function(hljs){var KEYWORDS={keyword:"abstract as base bool break byte case catch char checked const continue decimal "+"default delegate do double enum event explicit extern finally fixed float "+"for foreach goto if implicit in int interface internal is lock long "+"object operator out override params private protected public readonly ref sbyte "+"sealed short sizeof stackalloc static string struct switch this try typeof "+"uint ulong unchecked unsafe ushort using virtual void volatile while "+"add alias ascending async await by descending dynamic equals from get global group into join "+"let nameof on orderby partial remove select set value var when where yield",literal:"null false true"};var NUMBERS={className:"number",variants:[{begin:"\\b(0b[01']+)"},{begin:"(-?)\\b([\\d']+(\\.[\\d']*)?|\\.[\\d']+)(u|U|l|L|ul|UL|f|F|b|B)"},{begin:"(-?)(\\b0[xX][a-fA-F0-9']+|(\\b[\\d']+(\\.[\\d']*)?|\\.[\\d']+)([eE][-+]?[\\d']+)?)"}],relevance:0};var VERBATIM_STRING={className:"string",begin:'@"',end:'"',contains:[{begin:'""'}]};var VERBATIM_STRING_NO_LF=hljs.inherit(VERBATIM_STRING,{illegal:/\n/});var SUBST={className:"subst",begin:"{",end:"}",keywords:KEYWORDS};var SUBST_NO_LF=hljs.inherit(SUBST,{illegal:/\n/});var INTERPOLATED_STRING={className:"string",begin:/\$"/,end:'"',illegal:/\n/,contains:[{begin:"{{"},{begin:"}}"},hljs.BACKSLASH_ESCAPE,SUBST_NO_LF]};var INTERPOLATED_VERBATIM_STRING={className:"string",begin:/\$@"/,end:'"',contains:[{begin:"{{"},{begin:"}}"},{begin:'""'},SUBST]};var INTERPOLATED_VERBATIM_STRING_NO_LF=hljs.inherit(INTERPOLATED_VERBATIM_STRING,{illegal:/\n/,contains:[{begin:"{{"},{begin:"}}"},{begin:'""'},SUBST_NO_LF]});SUBST.contains=[INTERPOLATED_VERBATIM_STRING,INTERPOLATED_STRING,VERBATIM_STRING,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,NUMBERS,hljs.C_BLOCK_COMMENT_MODE];SUBST_NO_LF.contains=[INTERPOLATED_VERBATIM_STRING_NO_LF,INTERPOLATED_STRING,VERBATIM_STRING_NO_LF,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,NUMBERS,hljs.inherit(hljs.C_BLOCK_COMMENT_MODE,{illegal:/\n/})];var STRING={variants:[INTERPOLATED_VERBATIM_STRING,INTERPOLATED_STRING,VERBATIM_STRING,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE]};var TYPE_IDENT_RE=hljs.IDENT_RE+"(<"+hljs.IDENT_RE+"(\\s*,\\s*"+hljs.IDENT_RE+")*>)?(\\[\\])?";return{aliases:["csharp","c#"],keywords:KEYWORDS,illegal:/::/,contains:[hljs.COMMENT("///","$",{returnBegin:true,contains:[{className:"doctag",variants:[{begin:"///",relevance:0},{begin:"\x3c!--|--\x3e"},{begin:"</?",end:">"}]}]}),hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,{className:"meta",begin:"#",end:"$",keywords:{"meta-keyword":"if else elif endif define undef warning error line region endregion pragma checksum"}},STRING,NUMBERS,{beginKeywords:"class interface",end:/[{;=]/,illegal:/[^\s:,]/,contains:[hljs.TITLE_MODE,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE]},{beginKeywords:"namespace",end:/[{;=]/,illegal:/[^\s:]/,contains:[hljs.inherit(hljs.TITLE_MODE,{begin:"[a-zA-Z](\\.?\\w)*"}),hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE]},{className:"meta",begin:"^\\s*\\[",excludeBegin:true,end:"\\]",excludeEnd:true,contains:[{className:"meta-string",begin:/"/,end:/"/}]},{beginKeywords:"new return throw await else",relevance:0},{className:"function",begin:"("+TYPE_IDENT_RE+"\\s+)+"+hljs.IDENT_RE+"\\s*\\(",returnBegin:true,end:/\s*[{;=]/,excludeEnd:true,keywords:KEYWORDS,contains:[{begin:hljs.IDENT_RE+"\\s*\\(",returnBegin:true,contains:[hljs.TITLE_MODE],relevance:0},{className:"params",begin:/\(/,end:/\)/,excludeBegin:true,excludeEnd:true,keywords:KEYWORDS,relevance:0,contains:[STRING,NUMBERS,hljs.C_BLOCK_COMMENT_MODE]},hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE]}]}});hljs.registerLanguage("x86asm",function(hljs){return{case_insensitive:true,lexemes:"[.%]?"+hljs.IDENT_RE,keywords:{keyword:"lock rep repe repz repne repnz xaquire xrelease bnd nobnd "+"aaa aad aam aas adc add and arpl bb0_reset bb1_reset bound bsf bsr bswap bt btc btr bts call cbw cdq cdqe clc cld cli clts cmc cmp cmpsb cmpsd cmpsq cmpsw cmpxchg cmpxchg486 cmpxchg8b cmpxchg16b cpuid cpu_read cpu_write cqo cwd cwde daa das dec div dmint emms enter equ f2xm1 fabs fadd faddp fbld fbstp fchs fclex fcmovb fcmovbe fcmove fcmovnb fcmovnbe fcmovne fcmovnu fcmovu fcom fcomi fcomip fcomp fcompp fcos fdecstp fdisi fdiv fdivp fdivr fdivrp femms feni ffree ffreep fiadd ficom ficomp fidiv fidivr fild fimul fincstp finit fist fistp fisttp fisub fisubr fld fld1 fldcw fldenv fldl2e fldl2t fldlg2 fldln2 fldpi fldz fmul fmulp fnclex fndisi fneni fninit fnop fnsave fnstcw fnstenv fnstsw fpatan fprem fprem1 fptan frndint frstor fsave fscale fsetpm fsin fsincos fsqrt fst fstcw fstenv fstp fstsw fsub fsubp fsubr fsubrp ftst fucom fucomi fucomip fucomp fucompp fxam fxch fxtract fyl2x fyl2xp1 hlt ibts icebp idiv imul in inc incbin insb insd insw int int01 int1 int03 int3 into invd invpcid invlpg invlpga iret iretd iretq iretw jcxz jecxz jrcxz jmp jmpe lahf lar lds lea leave les lfence lfs lgdt lgs lidt lldt lmsw loadall loadall286 lodsb lodsd lodsq lodsw loop loope loopne loopnz loopz lsl lss ltr mfence monitor mov movd movq movsb movsd movsq movsw movsx movsxd movzx mul mwait neg nop not or out outsb outsd outsw packssdw packsswb packuswb paddb paddd paddsb paddsiw paddsw paddusb paddusw paddw pand pandn pause paveb pavgusb pcmpeqb pcmpeqd pcmpeqw pcmpgtb pcmpgtd pcmpgtw pdistib pf2id pfacc pfadd pfcmpeq pfcmpge pfcmpgt pfmax pfmin pfmul pfrcp pfrcpit1 pfrcpit2 pfrsqit1 pfrsqrt pfsub pfsubr pi2fd pmachriw pmaddwd pmagw pmulhriw pmulhrwa pmulhrwc pmulhw pmullw pmvgezb pmvlzb pmvnzb pmvzb pop popa popad popaw popf popfd popfq popfw por prefetch prefetchw pslld psllq psllw psrad psraw psrld psrlq psrlw psubb psubd psubsb psubsiw psubsw psubusb psubusw psubw punpckhbw punpckhdq punpckhwd punpcklbw punpckldq punpcklwd push pusha pushad pushaw pushf pushfd pushfq pushfw pxor rcl rcr rdshr rdmsr rdpmc rdtsc rdtscp ret retf retn rol ror rdm rsdc rsldt rsm rsts sahf sal salc sar sbb scasb scasd scasq scasw sfence sgdt shl shld shr shrd sidt sldt skinit smi smint smintold smsw stc std sti stosb stosd stosq stosw str sub svdc svldt svts swapgs syscall sysenter sysexit sysret test ud0 ud1 ud2b ud2 ud2a umov verr verw fwait wbinvd wrshr wrmsr xadd xbts xchg xlatb xlat xor cmove cmovz cmovne cmovnz cmova cmovnbe cmovae cmovnb cmovb cmovnae cmovbe cmovna cmovg cmovnle cmovge cmovnl cmovl cmovnge cmovle cmovng cmovc cmovnc cmovo cmovno cmovs cmovns cmovp cmovpe cmovnp cmovpo je jz jne jnz ja jnbe jae jnb jb jnae jbe jna jg jnle jge jnl jl jnge jle jng jc jnc jo jno js jns jpo jnp jpe jp sete setz setne setnz seta setnbe setae setnb setnc setb setnae setcset setbe setna setg setnle setge setnl setl setnge setle setng sets setns seto setno setpe setp setpo setnp addps addss andnps andps cmpeqps cmpeqss cmpleps cmpless cmpltps cmpltss cmpneqps cmpneqss cmpnleps cmpnless cmpnltps cmpnltss cmpordps cmpordss cmpunordps cmpunordss cmpps cmpss comiss cvtpi2ps cvtps2pi cvtsi2ss cvtss2si cvttps2pi cvttss2si divps divss ldmxcsr maxps maxss minps minss movaps movhps movlhps movlps movhlps movmskps movntps movss movups mulps mulss orps rcpps rcpss rsqrtps rsqrtss shufps sqrtps sqrtss stmxcsr subps subss ucomiss unpckhps unpcklps xorps fxrstor fxrstor64 fxsave fxsave64 xgetbv xsetbv xsave xsave64 xsaveopt xsaveopt64 xrstor xrstor64 prefetchnta prefetcht0 prefetcht1 prefetcht2 maskmovq movntq pavgb pavgw pextrw pinsrw pmaxsw pmaxub pminsw pminub pmovmskb pmulhuw psadbw pshufw pf2iw pfnacc pfpnacc pi2fw pswapd maskmovdqu clflush movntdq movnti movntpd movdqa movdqu movdq2q movq2dq paddq pmuludq pshufd pshufhw pshuflw pslldq psrldq psubq punpckhqdq punpcklqdq addpd addsd andnpd andpd cmpeqpd cmpeqsd cmplepd cmplesd cmpltpd cmpltsd cmpneqpd cmpneqsd cmpnlepd cmpnlesd cmpnltpd cmpnltsd cmpordpd cmpordsd cmpunordpd cmpunordsd cmppd comisd cvtdq2pd cvtdq2ps cvtpd2dq cvtpd2pi cvtpd2ps cvtpi2pd cvtps2dq cvtps2pd cvtsd2si cvtsd2ss cvtsi2sd cvtss2sd cvttpd2pi cvttpd2dq cvttps2dq cvttsd2si divpd divsd maxpd maxsd minpd minsd movapd movhpd movlpd movmskpd movupd mulpd mulsd orpd shufpd sqrtpd sqrtsd subpd subsd ucomisd unpckhpd unpcklpd xorpd addsubpd addsubps haddpd haddps hsubpd hsubps lddqu movddup movshdup movsldup clgi stgi vmcall vmclear vmfunc vmlaunch vmload vmmcall vmptrld vmptrst vmread vmresume vmrun vmsave vmwrite vmxoff vmxon invept invvpid pabsb pabsw pabsd palignr phaddw phaddd phaddsw phsubw phsubd phsubsw pmaddubsw pmulhrsw pshufb psignb psignw psignd extrq insertq movntsd movntss lzcnt blendpd blendps blendvpd blendvps dppd dpps extractps insertps movntdqa mpsadbw packusdw pblendvb pblendw pcmpeqq pextrb pextrd pextrq phminposuw pinsrb pinsrd pinsrq pmaxsb pmaxsd pmaxud pmaxuw pminsb pminsd pminud pminuw pmovsxbw pmovsxbd pmovsxbq pmovsxwd pmovsxwq pmovsxdq pmovzxbw pmovzxbd pmovzxbq pmovzxwd pmovzxwq pmovzxdq pmuldq pmulld ptest roundpd roundps roundsd roundss crc32 pcmpestri pcmpestrm pcmpistri pcmpistrm pcmpgtq popcnt getsec pfrcpv pfrsqrtv movbe aesenc aesenclast aesdec aesdeclast aesimc aeskeygenassist vaesenc vaesenclast vaesdec vaesdeclast vaesimc vaeskeygenassist vaddpd vaddps vaddsd vaddss vaddsubpd vaddsubps vandpd vandps vandnpd vandnps vblendpd vblendps vblendvpd vblendvps vbroadcastss vbroadcastsd vbroadcastf128 vcmpeq_ospd vcmpeqpd vcmplt_ospd vcmpltpd vcmple_ospd vcmplepd vcmpunord_qpd vcmpunordpd vcmpneq_uqpd vcmpneqpd vcmpnlt_uspd vcmpnltpd vcmpnle_uspd vcmpnlepd vcmpord_qpd vcmpordpd vcmpeq_uqpd vcmpnge_uspd vcmpngepd vcmpngt_uspd vcmpngtpd vcmpfalse_oqpd vcmpfalsepd vcmpneq_oqpd vcmpge_ospd vcmpgepd vcmpgt_ospd vcmpgtpd vcmptrue_uqpd vcmptruepd vcmplt_oqpd vcmple_oqpd vcmpunord_spd vcmpneq_uspd vcmpnlt_uqpd vcmpnle_uqpd vcmpord_spd vcmpeq_uspd vcmpnge_uqpd vcmpngt_uqpd vcmpfalse_ospd vcmpneq_ospd vcmpge_oqpd vcmpgt_oqpd vcmptrue_uspd vcmppd vcmpeq_osps vcmpeqps vcmplt_osps vcmpltps vcmple_osps vcmpleps vcmpunord_qps vcmpunordps vcmpneq_uqps vcmpneqps vcmpnlt_usps vcmpnltps vcmpnle_usps vcmpnleps vcmpord_qps vcmpordps vcmpeq_uqps vcmpnge_usps vcmpngeps vcmpngt_usps vcmpngtps vcmpfalse_oqps vcmpfalseps vcmpneq_oqps vcmpge_osps vcmpgeps vcmpgt_osps vcmpgtps vcmptrue_uqps vcmptrueps vcmplt_oqps vcmple_oqps vcmpunord_sps vcmpneq_usps vcmpnlt_uqps vcmpnle_uqps vcmpord_sps vcmpeq_usps vcmpnge_uqps vcmpngt_uqps vcmpfalse_osps vcmpneq_osps vcmpge_oqps vcmpgt_oqps vcmptrue_usps vcmpps vcmpeq_ossd vcmpeqsd vcmplt_ossd vcmpltsd vcmple_ossd vcmplesd vcmpunord_qsd vcmpunordsd vcmpneq_uqsd vcmpneqsd vcmpnlt_ussd vcmpnltsd vcmpnle_ussd vcmpnlesd vcmpord_qsd vcmpordsd vcmpeq_uqsd vcmpnge_ussd vcmpngesd vcmpngt_ussd vcmpngtsd vcmpfalse_oqsd vcmpfalsesd vcmpneq_oqsd vcmpge_ossd vcmpgesd vcmpgt_ossd vcmpgtsd vcmptrue_uqsd vcmptruesd vcmplt_oqsd vcmple_oqsd vcmpunord_ssd vcmpneq_ussd vcmpnlt_uqsd vcmpnle_uqsd vcmpord_ssd vcmpeq_ussd vcmpnge_uqsd vcmpngt_uqsd vcmpfalse_ossd vcmpneq_ossd vcmpge_oqsd vcmpgt_oqsd vcmptrue_ussd vcmpsd vcmpeq_osss vcmpeqss vcmplt_osss vcmpltss vcmple_osss vcmpless vcmpunord_qss vcmpunordss vcmpneq_uqss vcmpneqss vcmpnlt_usss vcmpnltss vcmpnle_usss vcmpnless vcmpord_qss vcmpordss vcmpeq_uqss vcmpnge_usss vcmpngess vcmpngt_usss vcmpngtss vcmpfalse_oqss vcmpfalsess vcmpneq_oqss vcmpge_osss vcmpgess vcmpgt_osss vcmpgtss vcmptrue_uqss vcmptruess vcmplt_oqss vcmple_oqss vcmpunord_sss vcmpneq_usss vcmpnlt_uqss vcmpnle_uqss vcmpord_sss vcmpeq_usss vcmpnge_uqss vcmpngt_uqss vcmpfalse_osss vcmpneq_osss vcmpge_oqss vcmpgt_oqss vcmptrue_usss vcmpss vcomisd vcomiss vcvtdq2pd vcvtdq2ps vcvtpd2dq vcvtpd2ps vcvtps2dq vcvtps2pd vcvtsd2si vcvtsd2ss vcvtsi2sd vcvtsi2ss vcvtss2sd vcvtss2si vcvttpd2dq vcvttps2dq vcvttsd2si vcvttss2si vdivpd vdivps vdivsd vdivss vdppd vdpps vextractf128 vextractps vhaddpd vhaddps vhsubpd vhsubps vinsertf128 vinsertps vlddqu vldqqu vldmxcsr vmaskmovdqu vmaskmovps vmaskmovpd vmaxpd vmaxps vmaxsd vmaxss vminpd vminps vminsd vminss vmovapd vmovaps vmovd vmovq vmovddup vmovdqa vmovqqa vmovdqu vmovqqu vmovhlps vmovhpd vmovhps vmovlhps vmovlpd vmovlps vmovmskpd vmovmskps vmovntdq vmovntqq vmovntdqa vmovntpd vmovntps vmovsd vmovshdup vmovsldup vmovss vmovupd vmovups vmpsadbw vmulpd vmulps vmulsd vmulss vorpd vorps vpabsb vpabsw vpabsd vpacksswb vpackssdw vpackuswb vpackusdw vpaddb vpaddw vpaddd vpaddq vpaddsb vpaddsw vpaddusb vpaddusw vpalignr vpand vpandn vpavgb vpavgw vpblendvb vpblendw vpcmpestri vpcmpestrm vpcmpistri vpcmpistrm vpcmpeqb vpcmpeqw vpcmpeqd vpcmpeqq vpcmpgtb vpcmpgtw vpcmpgtd vpcmpgtq vpermilpd vpermilps vperm2f128 vpextrb vpextrw vpextrd vpextrq vphaddw vphaddd vphaddsw vphminposuw vphsubw vphsubd vphsubsw vpinsrb vpinsrw vpinsrd vpinsrq vpmaddwd vpmaddubsw vpmaxsb vpmaxsw vpmaxsd vpmaxub vpmaxuw vpmaxud vpminsb vpminsw vpminsd vpminub vpminuw vpminud vpmovmskb vpmovsxbw vpmovsxbd vpmovsxbq vpmovsxwd vpmovsxwq vpmovsxdq vpmovzxbw vpmovzxbd vpmovzxbq vpmovzxwd vpmovzxwq vpmovzxdq vpmulhuw vpmulhrsw vpmulhw vpmullw vpmulld vpmuludq vpmuldq vpor vpsadbw vpshufb vpshufd vpshufhw vpshuflw vpsignb vpsignw vpsignd vpslldq vpsrldq vpsllw vpslld vpsllq vpsraw vpsrad vpsrlw vpsrld vpsrlq vptest vpsubb vpsubw vpsubd vpsubq vpsubsb vpsubsw vpsubusb vpsubusw vpunpckhbw vpunpckhwd vpunpckhdq vpunpckhqdq vpunpcklbw vpunpcklwd vpunpckldq vpunpcklqdq vpxor vrcpps vrcpss vrsqrtps vrsqrtss vroundpd vroundps vroundsd vroundss vshufpd vshufps vsqrtpd vsqrtps vsqrtsd vsqrtss vstmxcsr vsubpd vsubps vsubsd vsubss vtestps vtestpd vucomisd vucomiss vunpckhpd vunpckhps vunpcklpd vunpcklps vxorpd vxorps vzeroall vzeroupper pclmullqlqdq pclmulhqlqdq pclmullqhqdq pclmulhqhqdq pclmulqdq vpclmullqlqdq vpclmulhqlqdq vpclmullqhqdq vpclmulhqhqdq vpclmulqdq vfmadd132ps vfmadd132pd vfmadd312ps vfmadd312pd vfmadd213ps vfmadd213pd vfmadd123ps vfmadd123pd vfmadd231ps vfmadd231pd vfmadd321ps vfmadd321pd vfmaddsub132ps vfmaddsub132pd vfmaddsub312ps vfmaddsub312pd vfmaddsub213ps vfmaddsub213pd vfmaddsub123ps vfmaddsub123pd vfmaddsub231ps vfmaddsub231pd vfmaddsub321ps vfmaddsub321pd vfmsub132ps vfmsub132pd vfmsub312ps vfmsub312pd vfmsub213ps vfmsub213pd vfmsub123ps vfmsub123pd vfmsub231ps vfmsub231pd vfmsub321ps vfmsub321pd vfmsubadd132ps vfmsubadd132pd vfmsubadd312ps vfmsubadd312pd vfmsubadd213ps vfmsubadd213pd vfmsubadd123ps vfmsubadd123pd vfmsubadd231ps vfmsubadd231pd vfmsubadd321ps vfmsubadd321pd vfnmadd132ps vfnmadd132pd vfnmadd312ps vfnmadd312pd vfnmadd213ps vfnmadd213pd vfnmadd123ps vfnmadd123pd vfnmadd231ps vfnmadd231pd vfnmadd321ps vfnmadd321pd vfnmsub132ps vfnmsub132pd vfnmsub312ps vfnmsub312pd vfnmsub213ps vfnmsub213pd vfnmsub123ps vfnmsub123pd vfnmsub231ps vfnmsub231pd vfnmsub321ps vfnmsub321pd vfmadd132ss vfmadd132sd vfmadd312ss vfmadd312sd vfmadd213ss vfmadd213sd vfmadd123ss vfmadd123sd vfmadd231ss vfmadd231sd vfmadd321ss vfmadd321sd vfmsub132ss vfmsub132sd vfmsub312ss vfmsub312sd vfmsub213ss vfmsub213sd vfmsub123ss vfmsub123sd vfmsub231ss vfmsub231sd vfmsub321ss vfmsub321sd vfnmadd132ss vfnmadd132sd vfnmadd312ss vfnmadd312sd vfnmadd213ss vfnmadd213sd vfnmadd123ss vfnmadd123sd vfnmadd231ss vfnmadd231sd vfnmadd321ss vfnmadd321sd vfnmsub132ss vfnmsub132sd vfnmsub312ss vfnmsub312sd vfnmsub213ss vfnmsub213sd vfnmsub123ss vfnmsub123sd vfnmsub231ss vfnmsub231sd vfnmsub321ss vfnmsub321sd rdfsbase rdgsbase rdrand wrfsbase wrgsbase vcvtph2ps vcvtps2ph adcx adox rdseed clac stac xstore xcryptecb xcryptcbc xcryptctr xcryptcfb xcryptofb montmul xsha1 xsha256 llwpcb slwpcb lwpval lwpins vfmaddpd vfmaddps vfmaddsd vfmaddss vfmaddsubpd vfmaddsubps vfmsubaddpd vfmsubaddps vfmsubpd vfmsubps vfmsubsd vfmsubss vfnmaddpd vfnmaddps vfnmaddsd vfnmaddss vfnmsubpd vfnmsubps vfnmsubsd vfnmsubss vfrczpd vfrczps vfrczsd vfrczss vpcmov vpcomb vpcomd vpcomq vpcomub vpcomud vpcomuq vpcomuw vpcomw vphaddbd vphaddbq vphaddbw vphadddq vphaddubd vphaddubq vphaddubw vphaddudq vphadduwd vphadduwq vphaddwd vphaddwq vphsubbw vphsubdq vphsubwd vpmacsdd vpmacsdqh vpmacsdql vpmacssdd vpmacssdqh vpmacssdql vpmacsswd vpmacssww vpmacswd vpmacsww vpmadcsswd vpmadcswd vpperm vprotb vprotd vprotq vprotw vpshab vpshad vpshaq vpshaw vpshlb vpshld vpshlq vpshlw vbroadcasti128 vpblendd vpbroadcastb vpbroadcastw vpbroadcastd vpbroadcastq vpermd vpermpd vpermps vpermq vperm2i128 vextracti128 vinserti128 vpmaskmovd vpmaskmovq vpsllvd vpsllvq vpsravd vpsrlvd vpsrlvq vgatherdpd vgatherqpd vgatherdps vgatherqps vpgatherdd vpgatherqd vpgatherdq vpgatherqq xabort xbegin xend xtest andn bextr blci blcic blsi blsic blcfill blsfill blcmsk blsmsk blsr blcs bzhi mulx pdep pext rorx sarx shlx shrx tzcnt tzmsk t1mskc valignd valignq vblendmpd vblendmps vbroadcastf32x4 vbroadcastf64x4 vbroadcasti32x4 vbroadcasti64x4 vcompresspd vcompressps vcvtpd2udq vcvtps2udq vcvtsd2usi vcvtss2usi vcvttpd2udq vcvttps2udq vcvttsd2usi vcvttss2usi vcvtudq2pd vcvtudq2ps vcvtusi2sd vcvtusi2ss vexpandpd vexpandps vextractf32x4 vextractf64x4 vextracti32x4 vextracti64x4 vfixupimmpd vfixupimmps vfixupimmsd vfixupimmss vgetexppd vgetexpps vgetexpsd vgetexpss vgetmantpd vgetmantps vgetmantsd vgetmantss vinsertf32x4 vinsertf64x4 vinserti32x4 vinserti64x4 vmovdqa32 vmovdqa64 vmovdqu32 vmovdqu64 vpabsq vpandd vpandnd vpandnq vpandq vpblendmd vpblendmq vpcmpltd vpcmpled vpcmpneqd vpcmpnltd vpcmpnled vpcmpd vpcmpltq vpcmpleq vpcmpneqq vpcmpnltq vpcmpnleq vpcmpq vpcmpequd vpcmpltud vpcmpleud vpcmpnequd vpcmpnltud vpcmpnleud vpcmpud vpcmpequq vpcmpltuq vpcmpleuq vpcmpnequq vpcmpnltuq vpcmpnleuq vpcmpuq vpcompressd vpcompressq vpermi2d vpermi2pd vpermi2ps vpermi2q vpermt2d vpermt2pd vpermt2ps vpermt2q vpexpandd vpexpandq vpmaxsq vpmaxuq vpminsq vpminuq vpmovdb vpmovdw vpmovqb vpmovqd vpmovqw vpmovsdb vpmovsdw vpmovsqb vpmovsqd vpmovsqw vpmovusdb vpmovusdw vpmovusqb vpmovusqd vpmovusqw vpord vporq vprold vprolq vprolvd vprolvq vprord vprorq vprorvd vprorvq vpscatterdd vpscatterdq vpscatterqd vpscatterqq vpsraq vpsravq vpternlogd vpternlogq vptestmd vptestmq vptestnmd vptestnmq vpxord vpxorq vrcp14pd vrcp14ps vrcp14sd vrcp14ss vrndscalepd vrndscaleps vrndscalesd vrndscaless vrsqrt14pd vrsqrt14ps vrsqrt14sd vrsqrt14ss vscalefpd vscalefps vscalefsd vscalefss vscatterdpd vscatterdps vscatterqpd vscatterqps vshuff32x4 vshuff64x2 vshufi32x4 vshufi64x2 kandnw kandw kmovw knotw kortestw korw kshiftlw kshiftrw kunpckbw kxnorw kxorw vpbroadcastmb2q vpbroadcastmw2d vpconflictd vpconflictq vplzcntd vplzcntq vexp2pd vexp2ps vrcp28pd vrcp28ps vrcp28sd vrcp28ss vrsqrt28pd vrsqrt28ps vrsqrt28sd vrsqrt28ss vgatherpf0dpd vgatherpf0dps vgatherpf0qpd vgatherpf0qps vgatherpf1dpd vgatherpf1dps vgatherpf1qpd vgatherpf1qps vscatterpf0dpd vscatterpf0dps vscatterpf0qpd vscatterpf0qps vscatterpf1dpd vscatterpf1dps vscatterpf1qpd vscatterpf1qps prefetchwt1 bndmk bndcl bndcu bndcn bndmov bndldx bndstx sha1rnds4 sha1nexte sha1msg1 sha1msg2 sha256rnds2 sha256msg1 sha256msg2 hint_nop0 hint_nop1 hint_nop2 hint_nop3 hint_nop4 hint_nop5 hint_nop6 hint_nop7 hint_nop8 hint_nop9 hint_nop10 hint_nop11 hint_nop12 hint_nop13 hint_nop14 hint_nop15 hint_nop16 hint_nop17 hint_nop18 hint_nop19 hint_nop20 hint_nop21 hint_nop22 hint_nop23 hint_nop24 hint_nop25 hint_nop26 hint_nop27 hint_nop28 hint_nop29 hint_nop30 hint_nop31 hint_nop32 hint_nop33 hint_nop34 hint_nop35 hint_nop36 hint_nop37 hint_nop38 hint_nop39 hint_nop40 hint_nop41 hint_nop42 hint_nop43 hint_nop44 hint_nop45 hint_nop46 hint_nop47 hint_nop48 hint_nop49 hint_nop50 hint_nop51 hint_nop52 hint_nop53 hint_nop54 hint_nop55 hint_nop56 hint_nop57 hint_nop58 hint_nop59 hint_nop60 hint_nop61 hint_nop62 hint_nop63",built_in:"ip eip rip "+"al ah bl bh cl ch dl dh sil dil bpl spl r8b r9b r10b r11b r12b r13b r14b r15b "+"ax bx cx dx si di bp sp r8w r9w r10w r11w r12w r13w r14w r15w "+"eax ebx ecx edx esi edi ebp esp eip r8d r9d r10d r11d r12d r13d r14d r15d "+"rax rbx rcx rdx rsi rdi rbp rsp r8 r9 r10 r11 r12 r13 r14 r15 "+"cs ds es fs gs ss "+"st st0 st1 st2 st3 st4 st5 st6 st7 "+"mm0 mm1 mm2 mm3 mm4 mm5 mm6 mm7 "+"xmm0 xmm1 xmm2 xmm3 xmm4 xmm5 xmm6 xmm7 xmm8 xmm9 xmm10 xmm11 xmm12 xmm13 xmm14 xmm15 "+"xmm16 xmm17 xmm18 xmm19 xmm20 xmm21 xmm22 xmm23 xmm24 xmm25 xmm26 xmm27 xmm28 xmm29 xmm30 xmm31 "+"ymm0 ymm1 ymm2 ymm3 ymm4 ymm5 ymm6 ymm7 ymm8 ymm9 ymm10 ymm11 ymm12 ymm13 ymm14 ymm15 "+"ymm16 ymm17 ymm18 ymm19 ymm20 ymm21 ymm22 ymm23 ymm24 ymm25 ymm26 ymm27 ymm28 ymm29 ymm30 ymm31 "+"zmm0 zmm1 zmm2 zmm3 zmm4 zmm5 zmm6 zmm7 zmm8 zmm9 zmm10 zmm11 zmm12 zmm13 zmm14 zmm15 "+"zmm16 zmm17 zmm18 zmm19 zmm20 zmm21 zmm22 zmm23 zmm24 zmm25 zmm26 zmm27 zmm28 zmm29 zmm30 zmm31 "+"k0 k1 k2 k3 k4 k5 k6 k7 "+"bnd0 bnd1 bnd2 bnd3 "+"cr0 cr1 cr2 cr3 cr4 cr8 dr0 dr1 dr2 dr3 dr8 tr3 tr4 tr5 tr6 tr7 "+"r0 r1 r2 r3 r4 r5 r6 r7 r0b r1b r2b r3b r4b r5b r6b r7b "+"r0w r1w r2w r3w r4w r5w r6w r7w r0d r1d r2d r3d r4d r5d r6d r7d "+"r0h r1h r2h r3h "+"r0l r1l r2l r3l r4l r5l r6l r7l r8l r9l r10l r11l r12l r13l r14l r15l "+"db dw dd dq dt ddq do dy dz "+"resb resw resd resq rest resdq reso resy resz "+"incbin equ times "+"byte word dword qword nosplit rel abs seg wrt strict near far a32 ptr",meta:"%define %xdefine %+ %undef %defstr %deftok %assign %strcat %strlen %substr %rotate %elif %else %endif "+"%if %ifmacro %ifctx %ifidn %ifidni %ifid %ifnum %ifstr %iftoken %ifempty %ifenv %error %warning %fatal %rep "+"%endrep %include %push %pop %repl %pathsearch %depend %use %arg %stacksize %local %line %comment %endcomment "+".nolist "+"__FILE__ __LINE__ __SECT__ __BITS__ __OUTPUT_FORMAT__ __DATE__ __TIME__ __DATE_NUM__ __TIME_NUM__ "+"__UTC_DATE__ __UTC_TIME__ __UTC_DATE_NUM__ __UTC_TIME_NUM__ __PASS__ struc endstruc istruc at iend "+"align alignb sectalign daz nodaz up down zero default option assume public "+"bits use16 use32 use64 default section segment absolute extern global common cpu float "+"__utf16__ __utf16le__ __utf16be__ __utf32__ __utf32le__ __utf32be__ "+"__float8__ __float16__ __float32__ __float64__ __float80m__ __float80e__ __float128l__ __float128h__ "+"__Infinity__ __QNaN__ __SNaN__ Inf NaN QNaN SNaN float8 float16 float32 float64 float80m float80e "+"float128l float128h __FLOAT_DAZ__ __FLOAT_ROUND__ __FLOAT__"},contains:[hljs.COMMENT(";","$",{relevance:0}),{className:"number",variants:[{begin:"\\b(?:([0-9][0-9_]*)?\\.[0-9_]*(?:[eE][+-]?[0-9_]+)?|"+"(0[Xx])?[0-9][0-9_]*\\.?[0-9_]*(?:[pP](?:[+-]?[0-9_]+)?)?)\\b",relevance:0},{begin:"\\$[0-9][0-9A-Fa-f]*",relevance:0},{begin:"\\b(?:[0-9A-Fa-f][0-9A-Fa-f_]*[Hh]|[0-9][0-9_]*[DdTt]?|[0-7][0-7_]*[QqOo]|[0-1][0-1_]*[BbYy])\\b"},{begin:"\\b(?:0[Xx][0-9A-Fa-f_]+|0[DdTt][0-9_]+|0[QqOo][0-7_]+|0[BbYy][0-1_]+)\\b"}]},hljs.QUOTE_STRING_MODE,{className:"string",variants:[{begin:"'",end:"[^\\\\]'"},{begin:"`",end:"[^\\\\]`"}],relevance:0},{className:"symbol",variants:[{begin:"^\\s*[A-Za-z._?][A-Za-z0-9_$#@~.?]*(:|\\s+label)"},{begin:"^\\s*%%[A-Za-z0-9_$#@~.?]*:"}],relevance:0},{className:"subst",begin:"%[0-9]+",relevance:0},{className:"subst",begin:"%!S+",relevance:0},{className:"meta",begin:/^\s*\.[\w_-]+/}]}});hljs.registerLanguage("mipsasm",function(hljs){return{case_insensitive:true,aliases:["mips"],lexemes:"\\.?"+hljs.IDENT_RE,keywords:{meta:".2byte .4byte .align .ascii .asciz .balign .byte .code .data .else .end .endif .endm .endr .equ .err .exitm .extern .global .hword .if .ifdef .ifndef .include .irp .long .macro .rept .req .section .set .skip .space .text .word .ltorg ",built_in:"$0 $1 $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 $12 $13 $14 $15 "+"$16 $17 $18 $19 $20 $21 $22 $23 $24 $25 $26 $27 $28 $29 $30 $31 "+"zero at v0 v1 a0 a1 a2 a3 a4 a5 a6 a7 "+"t0 t1 t2 t3 t4 t5 t6 t7 t8 t9 s0 s1 s2 s3 s4 s5 s6 s7 s8 "+"k0 k1 gp sp fp ra "+"$f0 $f1 $f2 $f2 $f4 $f5 $f6 $f7 $f8 $f9 $f10 $f11 $f12 $f13 $f14 $f15 "+"$f16 $f17 $f18 $f19 $f20 $f21 $f22 $f23 $f24 $f25 $f26 $f27 $f28 $f29 $f30 $f31 "+"Context Random EntryLo0 EntryLo1 Context PageMask Wired EntryHi "+"HWREna BadVAddr Count Compare SR IntCtl SRSCtl SRSMap Cause EPC PRId "+"EBase Config Config1 Config2 Config3 LLAddr Debug DEPC DESAVE CacheErr "+"ECC ErrorEPC TagLo DataLo TagHi DataHi WatchLo WatchHi PerfCtl PerfCnt "},contains:[{className:"keyword",begin:"\\b("+"addi?u?|andi?|b(al)?|beql?|bgez(al)?l?|bgtzl?|blezl?|bltz(al)?l?|"+"bnel?|cl[oz]|divu?|ext|ins|j(al)?|jalr(.hb)?|jr(.hb)?|lbu?|lhu?|"+"ll|lui|lw[lr]?|maddu?|mfhi|mflo|movn|movz|move|msubu?|mthi|mtlo|mul|"+"multu?|nop|nor|ori?|rotrv?|sb|sc|se[bh]|sh|sllv?|slti?u?|srav?|"+"srlv?|subu?|sw[lr]?|xori?|wsbh|"+"abs.[sd]|add.[sd]|alnv.ps|bc1[ft]l?|"+"c.(s?f|un|u?eq|[ou]lt|[ou]le|ngle?|seq|l[et]|ng[et]).[sd]|"+"(ceil|floor|round|trunc).[lw].[sd]|cfc1|cvt.d.[lsw]|"+"cvt.l.[dsw]|cvt.ps.s|cvt.s.[dlw]|cvt.s.p[lu]|cvt.w.[dls]|"+"div.[ds]|ldx?c1|luxc1|lwx?c1|madd.[sd]|mfc1|mov[fntz]?.[ds]|"+"msub.[sd]|mth?c1|mul.[ds]|neg.[ds]|nmadd.[ds]|nmsub.[ds]|"+"p[lu][lu].ps|recip.fmt|r?sqrt.[ds]|sdx?c1|sub.[ds]|suxc1|"+"swx?c1|"+"break|cache|d?eret|[de]i|ehb|mfc0|mtc0|pause|prefx?|rdhwr|"+"rdpgpr|sdbbp|ssnop|synci?|syscall|teqi?|tgei?u?|tlb(p|r|w[ir])|"+"tlti?u?|tnei?|wait|wrpgpr"+")",end:"\\s"},hljs.COMMENT("[;#](?!s*$)","$"),hljs.C_BLOCK_COMMENT_MODE,hljs.QUOTE_STRING_MODE,{className:"string",begin:"'",end:"[^\\\\]'",relevance:0},{className:"title",begin:"\\|",end:"\\|",illegal:"\\n",relevance:0},{className:"number",variants:[{begin:"0x[0-9a-f]+"},{begin:"\\b-?\\d+"}],relevance:0},{className:"symbol",variants:[{begin:"^\\s*[a-z_\\.\\$][a-z0-9_\\.\\$]+:"},{begin:"^\\s*[0-9]+:"},{begin:"[0-9]+[bf]"}],relevance:0}],illegal:"/"}});hljs.registerLanguage("gams",function(hljs){var KEYWORDS={keyword:"abort acronym acronyms alias all and assign binary card diag display "+"else eq file files for free ge gt if integer le loop lt maximizing "+"minimizing model models ne negative no not option options or ord "+"positive prod put putpage puttl repeat sameas semicont semiint smax "+"smin solve sos1 sos2 sum system table then until using while xor yes",literal:"eps inf na","built-in":"abs arccos arcsin arctan arctan2 Beta betaReg binomial ceil centropy "+"cos cosh cvPower div div0 eDist entropy errorf execSeed exp fact "+"floor frac gamma gammaReg log logBeta logGamma log10 log2 mapVal max "+"min mod ncpCM ncpF ncpVUpow ncpVUsin normal pi poly power "+"randBinomial randLinear randTriangle round rPower sigmoid sign "+"signPower sin sinh slexp sllog10 slrec sqexp sqlog10 sqr sqrec sqrt "+"tan tanh trunc uniform uniformInt vcPower bool_and bool_eqv bool_imp "+"bool_not bool_or bool_xor ifThen rel_eq rel_ge rel_gt rel_le rel_lt "+"rel_ne gday gdow ghour gleap gmillisec gminute gmonth gsecond gyear "+"jdate jnow jstart jtime errorLevel execError gamsRelease gamsVersion "+"handleCollect handleDelete handleStatus handleSubmit heapFree "+"heapLimit heapSize jobHandle jobKill jobStatus jobTerminate "+"licenseLevel licenseStatus maxExecError sleep timeClose timeComp "+"timeElapsed timeExec timeStart"};var PARAMS={className:"params",begin:/\(/,end:/\)/,excludeBegin:true,excludeEnd:true};var SYMBOLS={className:"symbol",variants:[{begin:/\=[lgenxc]=/},{begin:/\$/}]};var QSTR={className:"comment",variants:[{begin:"'",end:"'"},{begin:'"',end:'"'}],illegal:"\\n",contains:[hljs.BACKSLASH_ESCAPE]};var ASSIGNMENT={begin:"/",end:"/",keywords:KEYWORDS,contains:[QSTR,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE,hljs.C_NUMBER_MODE]};var DESCTEXT={begin:/[a-z][a-z0-9_]*(\([a-z0-9_, ]*\))?[ \t]+/,excludeBegin:true,end:"$",endsWithParent:true,contains:[QSTR,ASSIGNMENT,{className:"comment",begin:/([ ]*[a-z0-9&#*=?@>\\<:\-,()$\[\]_.{}!+%^]+)+/,relevance:0}]};return{aliases:["gms"],case_insensitive:true,keywords:KEYWORDS,contains:[hljs.COMMENT(/^\$ontext/,/^\$offtext/),{className:"meta",begin:"^\\$[a-z0-9]+",end:"$",returnBegin:true,contains:[{className:"meta-keyword",begin:"^\\$[a-z0-9]+"}]},hljs.COMMENT("^\\*","$"),hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE,{beginKeywords:"set sets parameter parameters variable variables "+"scalar scalars equation equations",end:";",contains:[hljs.COMMENT("^\\*","$"),hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE,ASSIGNMENT,DESCTEXT]},{beginKeywords:"table",end:";",returnBegin:true,contains:[{beginKeywords:"table",end:"$",contains:[DESCTEXT]},hljs.COMMENT("^\\*","$"),hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE,hljs.C_NUMBER_MODE]},{className:"function",begin:/^[a-z][a-z0-9_,\-+' ()$]+\.{2}/,returnBegin:true,contains:[{className:"title",begin:/^[a-z0-9_]+/},PARAMS,SYMBOLS]},hljs.C_NUMBER_MODE,SYMBOLS]}});hljs.registerLanguage("nimrod",function(hljs){return{aliases:["nim"],keywords:{keyword:"addr and as asm bind block break case cast const continue converter "+"discard distinct div do elif else end enum except export finally "+"for from generic if import in include interface is isnot iterator "+"let macro method mixin mod nil not notin object of or out proc ptr "+"raise ref return shl shr static template try tuple type using var "+"when while with without xor yield",literal:"shared guarded stdin stdout stderr result true false",built_in:"int int8 int16 int32 int64 uint uint8 uint16 uint32 uint64 float "+"float32 float64 bool char string cstring pointer expr stmt void "+"auto any range array openarray varargs seq set clong culong cchar "+"cschar cshort cint csize clonglong cfloat cdouble clongdouble "+"cuchar cushort cuint culonglong cstringarray semistatic"},contains:[{className:"meta",begin:/{\./,end:/\.}/,relevance:10},{className:"string",begin:/[a-zA-Z]\w*"/,end:/"/,contains:[{begin:/""/}]},{className:"string",begin:/([a-zA-Z]\w*)?"""/,end:/"""/},hljs.QUOTE_STRING_MODE,{className:"type",begin:/\b[A-Z]\w+\b/,relevance:0},{className:"number",relevance:0,variants:[{begin:/\b(0[xX][0-9a-fA-F][_0-9a-fA-F]*)('?[iIuU](8|16|32|64))?/},{begin:/\b(0o[0-7][_0-7]*)('?[iIuUfF](8|16|32|64))?/},{begin:/\b(0(b|B)[01][_01]*)('?[iIuUfF](8|16|32|64))?/},{begin:/\b(\d[_\d]*)('?[iIuUfF](8|16|32|64))?/}]},hljs.HASH_COMMENT_MODE]}});hljs.registerLanguage("dts",function(hljs){var STRINGS={className:"string",variants:[hljs.inherit(hljs.QUOTE_STRING_MODE,{begin:'((u8?|U)|L)?"'}),{begin:'(u8?|U)?R"',end:'"',contains:[hljs.BACKSLASH_ESCAPE]},{begin:"'\\\\?.",end:"'",illegal:"."}]};var NUMBERS={className:"number",variants:[{begin:"\\b(\\d+(\\.\\d*)?|\\.\\d+)(u|U|l|L|ul|UL|f|F)"},{begin:hljs.C_NUMBER_RE}],relevance:0};var PREPROCESSOR={className:"meta",begin:"#",end:"$",keywords:{"meta-keyword":"if else elif endif define undef ifdef ifndef"},contains:[{begin:/\\\n/,relevance:0},{beginKeywords:"include",end:"$",keywords:{"meta-keyword":"include"},contains:[hljs.inherit(STRINGS,{className:"meta-string"}),{className:"meta-string",begin:"<",end:">",illegal:"\\n"}]},STRINGS,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE]};var DTS_REFERENCE={className:"variable",begin:"\\&[a-z\\d_]*\\b"};var DTS_KEYWORD={className:"meta-keyword",begin:"/[a-z][a-z\\d-]*/"};var DTS_LABEL={className:"symbol",begin:"^\\s*[a-zA-Z_][a-zA-Z\\d_]*:"};var DTS_CELL_PROPERTY={className:"params",begin:"<",end:">",contains:[NUMBERS,DTS_REFERENCE]};var DTS_NODE={className:"class",begin:/[a-zA-Z_][a-zA-Z\d_@]*\s{/,end:/[{;=]/,returnBegin:true,excludeEnd:true};var DTS_ROOT_NODE={className:"class",begin:"/\\s*{",end:"};",relevance:10,contains:[DTS_REFERENCE,DTS_KEYWORD,DTS_LABEL,DTS_NODE,DTS_CELL_PROPERTY,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,NUMBERS,STRINGS]};return{keywords:"",contains:[DTS_ROOT_NODE,DTS_REFERENCE,DTS_KEYWORD,DTS_LABEL,DTS_NODE,DTS_CELL_PROPERTY,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,NUMBERS,STRINGS,PREPROCESSOR,{begin:hljs.IDENT_RE+"::",keywords:""}]}});hljs.registerLanguage("step21",function(hljs){var STEP21_IDENT_RE="[A-Z_][A-Z0-9_.]*";var STEP21_KEYWORDS={keyword:"HEADER ENDSEC DATA"};var STEP21_START={className:"meta",begin:"ISO-10303-21;",relevance:10};var STEP21_CLOSE={className:"meta",begin:"END-ISO-10303-21;",relevance:10};return{aliases:["p21","step","stp"],case_insensitive:true,lexemes:STEP21_IDENT_RE,keywords:STEP21_KEYWORDS,contains:[STEP21_START,STEP21_CLOSE,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.COMMENT("/\\*\\*!","\\*/"),hljs.C_NUMBER_MODE,hljs.inherit(hljs.APOS_STRING_MODE,{illegal:null}),hljs.inherit(hljs.QUOTE_STRING_MODE,{illegal:null}),{className:"string",begin:"'",end:"'"},{className:"symbol",variants:[{begin:"#",end:"\\d+",illegal:"\\W"}]}]}});hljs.registerLanguage("sml",function(hljs){return{aliases:["ml"],keywords:{keyword:"abstype and andalso as case datatype do else end eqtype "+"exception fn fun functor handle if in include infix infixr "+"let local nonfix of op open orelse raise rec sharing sig "+"signature struct structure then type val with withtype where while",built_in:"array bool char exn int list option order real ref string substring vector unit word",literal:"true false NONE SOME LESS EQUAL GREATER nil"},illegal:/\/\/|>>/,lexemes:"[a-z_]\\w*!?",contains:[{className:"literal",begin:/\[(\|\|)?\]|\(\)/,relevance:0},hljs.COMMENT("\\(\\*","\\*\\)",{contains:["self"]}),{className:"symbol",begin:"'[A-Za-z_](?!')[\\w']*"},{className:"type",begin:"`[A-Z][\\w']*"},{className:"type",begin:"\\b[A-Z][\\w']*",relevance:0},{begin:"[a-z_]\\w*'[\\w']*"},hljs.inherit(hljs.APOS_STRING_MODE,{className:"string",relevance:0}),hljs.inherit(hljs.QUOTE_STRING_MODE,{illegal:null}),{className:"number",begin:"\\b(0[xX][a-fA-F0-9_]+[Lln]?|"+"0[oO][0-7_]+[Lln]?|"+"0[bB][01_]+[Lln]?|"+"[0-9][0-9_]*([Lln]|(\\.[0-9_]*)?([eE][-+]?[0-9_]+)?)?)",relevance:0},{begin:/[-=]>/}]}});hljs.registerLanguage("fsharp",function(hljs){var TYPEPARAM={begin:"<",end:">",contains:[hljs.inherit(hljs.TITLE_MODE,{begin:/'[a-zA-Z0-9_]+/})]};return{aliases:["fs"],keywords:"abstract and as assert base begin class default delegate do done "+"downcast downto elif else end exception extern false finally for "+"fun function global if in inherit inline interface internal lazy let "+"match member module mutable namespace new null of open or "+"override private public rec return sig static struct then to "+"true try type upcast use val void when while with yield",illegal:/\/\*/,contains:[{className:"keyword",begin:/\b(yield|return|let|do)!/},{className:"string",begin:'@"',end:'"',contains:[{begin:'""'}]},{className:"string",begin:'"""',end:'"""'},hljs.COMMENT("\\(\\*","\\*\\)"),{className:"class",beginKeywords:"type",end:"\\(|=|$",excludeEnd:true,contains:[hljs.UNDERSCORE_TITLE_MODE,TYPEPARAM]},{className:"meta",begin:"\\[<",end:">\\]",relevance:10},{className:"symbol",begin:"\\B('[A-Za-z])\\b",contains:[hljs.BACKSLASH_ESCAPE]},hljs.C_LINE_COMMENT_MODE,hljs.inherit(hljs.QUOTE_STRING_MODE,{illegal:null}),hljs.C_NUMBER_MODE]}});hljs.registerLanguage("julia",function(hljs){var KEYWORDS={keyword:"in isa where "+"baremodule begin break catch ccall const continue do else elseif end export false finally for function "+"global if import importall let local macro module quote return true try using while "+"type immutable abstract bitstype typealias ",literal:"true false "+"ARGS C_NULL DevNull ENDIAN_BOM ENV I Inf Inf16 Inf32 Inf64 InsertionSort JULIA_HOME LOAD_PATH MergeSort "+"NaN NaN16 NaN32 NaN64 PROGRAM_FILE QuickSort RoundDown RoundFromZero RoundNearest RoundNearestTiesAway "+"RoundNearestTiesUp RoundToZero RoundUp STDERR STDIN STDOUT VERSION catalan e|0 eu|0 eulergamma golden im "+"nothing pi γ π φ ",built_in:"ANY AbstractArray AbstractChannel AbstractFloat AbstractMatrix AbstractRNG AbstractSerializer AbstractSet "+"AbstractSparseArray AbstractSparseMatrix AbstractSparseVector AbstractString AbstractUnitRange AbstractVecOrMat "+"AbstractVector Any ArgumentError Array AssertionError Associative Base64DecodePipe Base64EncodePipe Bidiagonal "+"BigFloat BigInt BitArray BitMatrix BitVector Bool BoundsError BufferStream CachingPool CapturedException "+"CartesianIndex CartesianRange Cchar Cdouble Cfloat Channel Char Cint Cintmax_t Clong Clonglong ClusterManager "+"Cmd CodeInfo Colon Complex Complex128 Complex32 Complex64 CompositeException Condition ConjArray ConjMatrix "+"ConjVector Cptrdiff_t Cshort Csize_t Cssize_t Cstring Cuchar Cuint Cuintmax_t Culong Culonglong Cushort Cwchar_t "+"Cwstring DataType Date DateFormat DateTime DenseArray DenseMatrix DenseVecOrMat DenseVector Diagonal Dict "+"DimensionMismatch Dims DirectIndexString Display DivideError DomainError EOFError EachLine Enum Enumerate "+"ErrorException Exception ExponentialBackOff Expr Factorization FileMonitor Float16 Float32 Float64 Function "+"Future GlobalRef GotoNode HTML Hermitian IO IOBuffer IOContext IOStream IPAddr IPv4 IPv6 IndexCartesian IndexLinear "+"IndexStyle InexactError InitError Int Int128 Int16 Int32 Int64 Int8 IntSet Integer InterruptException "+"InvalidStateException Irrational KeyError LabelNode LinSpace LineNumberNode LoadError LowerTriangular MIME Matrix "+"MersenneTwister Method MethodError MethodTable Module NTuple NewvarNode NullException Nullable Number ObjectIdDict "+"OrdinalRange OutOfMemoryError OverflowError Pair ParseError PartialQuickSort PermutedDimsArray Pipe "+"PollingFileWatcher ProcessExitedException Ptr QuoteNode RandomDevice Range RangeIndex Rational RawFD "+"ReadOnlyMemoryError Real ReentrantLock Ref Regex RegexMatch RemoteChannel RemoteException RevString RoundingMode "+"RowVector SSAValue SegmentationFault SerializationState Set SharedArray SharedMatrix SharedVector Signed "+"SimpleVector Slot SlotNumber SparseMatrixCSC SparseVector StackFrame StackOverflowError StackTrace StepRange "+"StepRangeLen StridedArray StridedMatrix StridedVecOrMat StridedVector String SubArray SubString SymTridiagonal "+"Symbol Symmetric SystemError TCPSocket Task Text TextDisplay Timer Tridiagonal Tuple Type TypeError TypeMapEntry "+"TypeMapLevel TypeName TypeVar TypedSlot UDPSocket UInt UInt128 UInt16 UInt32 UInt64 UInt8 UndefRefError UndefVarError "+"UnicodeError UniformScaling Union UnionAll UnitRange Unsigned UpperTriangular Val Vararg VecElement VecOrMat Vector "+"VersionNumber Void WeakKeyDict WeakRef WorkerConfig WorkerPool "};var VARIABLE_NAME_RE="[A-Za-z_\\u00A1-\\uFFFF][A-Za-z_0-9\\u00A1-\\uFFFF]*";var DEFAULT={lexemes:VARIABLE_NAME_RE,keywords:KEYWORDS,illegal:/<\//};var NUMBER={className:"number",begin:/(\b0x[\d_]*(\.[\d_]*)?|0x\.\d[\d_]*)p[-+]?\d+|\b0[box][a-fA-F0-9][a-fA-F0-9_]*|(\b\d[\d_]*(\.[\d_]*)?|\.\d[\d_]*)([eEfF][-+]?\d+)?/,relevance:0};var CHAR={className:"string",begin:/'(.|\\[xXuU][a-zA-Z0-9]+)'/};var INTERPOLATION={className:"subst",begin:/\$\(/,end:/\)/,keywords:KEYWORDS};var INTERPOLATED_VARIABLE={className:"variable",begin:"\\$"+VARIABLE_NAME_RE};var STRING={className:"string",contains:[hljs.BACKSLASH_ESCAPE,INTERPOLATION,INTERPOLATED_VARIABLE],variants:[{begin:/\w*"""/,end:/"""\w*/,relevance:10},{begin:/\w*"/,end:/"\w*/}]};var COMMAND={className:"string",contains:[hljs.BACKSLASH_ESCAPE,INTERPOLATION,INTERPOLATED_VARIABLE],begin:"`",end:"`"};var MACROCALL={className:"meta",begin:"@"+VARIABLE_NAME_RE};var COMMENT={className:"comment",variants:[{begin:"#=",end:"=#",relevance:10},{begin:"#",end:"$"}]};DEFAULT.contains=[NUMBER,CHAR,STRING,COMMAND,MACROCALL,COMMENT,hljs.HASH_COMMENT_MODE,{className:"keyword",begin:"\\b(((abstract|primitive)\\s+)type|(mutable\\s+)?struct)\\b"},{begin:/<:/}];INTERPOLATION.contains=DEFAULT.contains;return DEFAULT});hljs.registerLanguage("julia-repl",function(hljs){return{contains:[{className:"meta",begin:/^julia>/,relevance:10,starts:{end:/^(?![ ]{6})/,subLanguage:"julia"},aliases:["jldoctest"]}]}});hljs.registerLanguage("fortran",function(hljs){var PARAMS={className:"params",begin:"\\(",end:"\\)"};var F_KEYWORDS={literal:".False. .True.",keyword:"kind do while private call intrinsic where elsewhere "+"type endtype endmodule endselect endinterface end enddo endif if forall endforall only contains default return stop then block endblock "+"public subroutine|10 function program .and. .or. .not. .le. .eq. .ge. .gt. .lt. "+"goto save else use module select case "+"access blank direct exist file fmt form formatted iostat name named nextrec number opened rec recl sequential status unformatted unit "+"continue format pause cycle exit "+"c_null_char c_alert c_backspace c_form_feed flush wait decimal round iomsg "+"synchronous nopass non_overridable pass protected volatile abstract extends import "+"non_intrinsic value deferred generic final enumerator class associate bind enum "+"c_int c_short c_long c_long_long c_signed_char c_size_t c_int8_t c_int16_t c_int32_t c_int64_t c_int_least8_t c_int_least16_t "+"c_int_least32_t c_int_least64_t c_int_fast8_t c_int_fast16_t c_int_fast32_t c_int_fast64_t c_intmax_t C_intptr_t c_float c_double "+"c_long_double c_float_complex c_double_complex c_long_double_complex c_bool c_char c_null_ptr c_null_funptr "+"c_new_line c_carriage_return c_horizontal_tab c_vertical_tab iso_c_binding c_loc c_funloc c_associated c_f_pointer "+"c_ptr c_funptr iso_fortran_env character_storage_size error_unit file_storage_size input_unit iostat_end iostat_eor "+"numeric_storage_size output_unit c_f_procpointer ieee_arithmetic ieee_support_underflow_control "+"ieee_get_underflow_mode ieee_set_underflow_mode newunit contiguous recursive "+"pad position action delim readwrite eor advance nml interface procedure namelist include sequence elemental pure "+"integer real character complex logical dimension allocatable|10 parameter "+"external implicit|10 none double precision assign intent optional pointer "+"target in out common equivalence data",built_in:"alog alog10 amax0 amax1 amin0 amin1 amod cabs ccos cexp clog csin csqrt dabs dacos dasin datan datan2 dcos dcosh ddim dexp dint "+"dlog dlog10 dmax1 dmin1 dmod dnint dsign dsin dsinh dsqrt dtan dtanh float iabs idim idint idnint ifix isign max0 max1 min0 min1 sngl "+"algama cdabs cdcos cdexp cdlog cdsin cdsqrt cqabs cqcos cqexp cqlog cqsin cqsqrt dcmplx dconjg derf derfc dfloat dgamma dimag dlgama "+"iqint qabs qacos qasin qatan qatan2 qcmplx qconjg qcos qcosh qdim qerf qerfc qexp qgamma qimag qlgama qlog qlog10 qmax1 qmin1 qmod "+"qnint qsign qsin qsinh qsqrt qtan qtanh abs acos aimag aint anint asin atan atan2 char cmplx conjg cos cosh exp ichar index int log "+"log10 max min nint sign sin sinh sqrt tan tanh print write dim lge lgt lle llt mod nullify allocate deallocate "+"adjustl adjustr all allocated any associated bit_size btest ceiling count cshift date_and_time digits dot_product "+"eoshift epsilon exponent floor fraction huge iand ibclr ibits ibset ieor ior ishft ishftc lbound len_trim matmul "+"maxexponent maxloc maxval merge minexponent minloc minval modulo mvbits nearest pack present product "+"radix random_number random_seed range repeat reshape rrspacing scale scan selected_int_kind selected_real_kind "+"set_exponent shape size spacing spread sum system_clock tiny transpose trim ubound unpack verify achar iachar transfer "+"dble entry dprod cpu_time command_argument_count get_command get_command_argument get_environment_variable is_iostat_end "+"ieee_arithmetic ieee_support_underflow_control ieee_get_underflow_mode ieee_set_underflow_mode "+"is_iostat_eor move_alloc new_line selected_char_kind same_type_as extends_type_of"+"acosh asinh atanh bessel_j0 bessel_j1 bessel_jn bessel_y0 bessel_y1 bessel_yn erf erfc erfc_scaled gamma log_gamma hypot norm2 "+"atomic_define atomic_ref execute_command_line leadz trailz storage_size merge_bits "+"bge bgt ble blt dshiftl dshiftr findloc iall iany iparity image_index lcobound ucobound maskl maskr "+"num_images parity popcnt poppar shifta shiftl shiftr this_image"};return{case_insensitive:true,aliases:["f90","f95"],keywords:F_KEYWORDS,illegal:/\/\*/,contains:[hljs.inherit(hljs.APOS_STRING_MODE,{className:"string",relevance:0}),hljs.inherit(hljs.QUOTE_STRING_MODE,{className:"string",relevance:0}),{className:"function",beginKeywords:"subroutine function program",illegal:"[${=\\n]",contains:[hljs.UNDERSCORE_TITLE_MODE,PARAMS]},hljs.COMMENT("!","$",{relevance:0}),{className:"number",begin:"(?=\\b|\\+|\\-|\\.)(?=\\.\\d|\\d)(?:\\d+)?(?:\\.?\\d*)(?:[de][+-]?\\d+)?\\b\\.?",relevance:0}]}});hljs.registerLanguage("basic",function(hljs){return{case_insensitive:true,illegal:"^.",lexemes:"[a-zA-Z][a-zA-Z0-9_$%!#]*",keywords:{keyword:"ABS ASC AND ATN AUTO|0 BEEP BLOAD|10 BSAVE|10 CALL CALLS CDBL CHAIN CHDIR CHR$|10 CINT CIRCLE "+"CLEAR CLOSE CLS COLOR COM COMMON CONT COS CSNG CSRLIN CVD CVI CVS DATA DATE$ "+"DEFDBL DEFINT DEFSNG DEFSTR DEF|0 SEG USR DELETE DIM DRAW EDIT END ENVIRON ENVIRON$ "+"EOF EQV ERASE ERDEV ERDEV$ ERL ERR ERROR EXP FIELD FILES FIX FOR|0 FRE GET GOSUB|10 GOTO "+"HEX$ IF THEN ELSE|0 INKEY$ INP INPUT INPUT# INPUT$ INSTR IMP INT IOCTL IOCTL$ KEY ON "+"OFF LIST KILL LEFT$ LEN LET LINE LLIST LOAD LOC LOCATE LOF LOG LPRINT USING LSET "+"MERGE MID$ MKDIR MKD$ MKI$ MKS$ MOD NAME NEW NEXT NOISE NOT OCT$ ON OR PEN PLAY STRIG OPEN OPTION "+"BASE OUT PAINT PALETTE PCOPY PEEK PMAP POINT POKE POS PRINT PRINT] PSET PRESET "+"PUT RANDOMIZE READ REM RENUM RESET|0 RESTORE RESUME RETURN|0 RIGHT$ RMDIR RND RSET "+"RUN SAVE SCREEN SGN SHELL SIN SOUND SPACE$ SPC SQR STEP STICK STOP STR$ STRING$ SWAP "+"SYSTEM TAB TAN TIME$ TIMER TROFF TRON TO USR VAL VARPTR VARPTR$ VIEW WAIT WHILE "+"WEND WIDTH WINDOW WRITE XOR"},contains:[hljs.QUOTE_STRING_MODE,hljs.COMMENT("REM","$",{relevance:10}),hljs.COMMENT("'","$",{relevance:0}),{className:"symbol",begin:"^[0-9]+ ",relevance:10},{className:"number",begin:"\\b([0-9]+[0-9edED.]*[#!]?)",relevance:0},{className:"number",begin:"(&[hH][0-9a-fA-F]{1,4})"},{className:"number",begin:"(&[oO][0-7]{1,6})"}]}});hljs.registerLanguage("ada",function(hljs){var INTEGER_RE="\\d(_|\\d)*";var EXPONENT_RE="[eE][-+]?"+INTEGER_RE;var DECIMAL_LITERAL_RE=INTEGER_RE+"(\\."+INTEGER_RE+")?"+"("+EXPONENT_RE+")?";var BASED_INTEGER_RE="\\w+";var BASED_LITERAL_RE=INTEGER_RE+"#"+BASED_INTEGER_RE+"(\\."+BASED_INTEGER_RE+")?"+"#"+"("+EXPONENT_RE+")?";var NUMBER_RE="\\b("+BASED_LITERAL_RE+"|"+DECIMAL_LITERAL_RE+")";var ID_REGEX="[A-Za-z](_?[A-Za-z0-9.])*";var BAD_CHARS="[]{}%#'\"";var COMMENTS=hljs.COMMENT("--","$");var VAR_DECLS={begin:"\\s+:\\s+",end:"\\s*(:=|;|\\)|=>|$)",illegal:BAD_CHARS,contains:[{beginKeywords:"loop for declare others",endsParent:true},{className:"keyword",beginKeywords:"not null constant access function procedure in out aliased exception"},{className:"type",begin:ID_REGEX,endsParent:true,relevance:0}]};return{case_insensitive:true,keywords:{keyword:"abort else new return abs elsif not reverse abstract end "+"accept entry select access exception of separate aliased exit or some "+"all others subtype and for out synchronized array function overriding "+"at tagged generic package task begin goto pragma terminate "+"body private then if procedure type case in protected constant interface "+"is raise use declare range delay limited record when delta loop rem while "+"digits renames with do mod requeue xor",literal:"True False"},contains:[COMMENTS,{className:"string",begin:/"/,end:/"/,contains:[{begin:/""/,relevance:0}]},{className:"string",begin:/'.'/},{className:"number",begin:NUMBER_RE,relevance:0},{className:"symbol",begin:"'"+ID_REGEX},{className:"title",begin:"(\\bwith\\s+)?(\\bprivate\\s+)?\\bpackage\\s+(\\bbody\\s+)?",end:"(is|$)",keywords:"package body",excludeBegin:true,excludeEnd:true,illegal:BAD_CHARS},{begin:"(\\b(with|overriding)\\s+)?\\b(function|procedure)\\s+",end:"(\\bis|\\bwith|\\brenames|\\)\\s*;)",keywords:"overriding function procedure with is renames return",returnBegin:true,contains:[COMMENTS,{className:"title",begin:"(\\bwith\\s+)?\\b(function|procedure)\\s+",end:"(\\(|\\s+|$)",excludeBegin:true,excludeEnd:true,illegal:BAD_CHARS},VAR_DECLS,{className:"type",begin:"\\breturn\\s+",end:"(\\s+|;|$)",keywords:"return",excludeBegin:true,excludeEnd:true,endsParent:true,illegal:BAD_CHARS}]},{className:"type",begin:"\\b(sub)?type\\s+",end:"\\s+",keywords:"type",excludeBegin:true,illegal:BAD_CHARS},VAR_DECLS]}});hljs.registerLanguage("puppet",function(hljs){var PUPPET_KEYWORDS={keyword:"and case default else elsif false if in import enherits node or true undef unless main settings $string ",literal:"alias audit before loglevel noop require subscribe tag "+"owner ensure group mode name|0 changes context force incl lens load_path onlyif provider returns root show_diff type_check "+"en_address ip_address realname command environment hour monute month monthday special target weekday "+"creates cwd ogoutput refresh refreshonly tries try_sleep umask backup checksum content ctime force ignore "+"links mtime purge recurse recurselimit replace selinux_ignore_defaults selrange selrole seltype seluser source "+"souirce_permissions sourceselect validate_cmd validate_replacement allowdupe attribute_membership auth_membership forcelocal gid "+"ia_load_module members system host_aliases ip allowed_trunk_vlans description device_url duplex encapsulation etherchannel "+"native_vlan speed principals allow_root auth_class auth_type authenticate_user k_of_n mechanisms rule session_owner shared options "+"device fstype enable hasrestart directory present absent link atboot blockdevice device dump pass remounts poller_tag use "+"message withpath adminfile allow_virtual allowcdrom category configfiles flavor install_options instance package_settings platform "+"responsefile status uninstall_options vendor unless_system_user unless_uid binary control flags hasstatus manifest pattern restart running "+"start stop allowdupe auths expiry gid groups home iterations key_membership keys managehome membership password password_max_age "+"password_min_age profile_membership profiles project purge_ssh_keys role_membership roles salt shell uid baseurl cost descr enabled "+"enablegroups exclude failovermethod gpgcheck gpgkey http_caching include includepkgs keepalive metadata_expire metalink mirrorlist "+"priority protect proxy proxy_password proxy_username repo_gpgcheck s3_enabled skip_if_unavailable sslcacert sslclientcert sslclientkey "+"sslverify mounted",built_in:"architecture augeasversion blockdevices boardmanufacturer boardproductname boardserialnumber cfkey dhcp_servers "+"domain ec2_ ec2_userdata facterversion filesystems ldom fqdn gid hardwareisa hardwaremodel hostname id|0 interfaces "+"ipaddress ipaddress_ ipaddress6 ipaddress6_ iphostnumber is_virtual kernel kernelmajversion kernelrelease kernelversion "+"kernelrelease kernelversion lsbdistcodename lsbdistdescription lsbdistid lsbdistrelease lsbmajdistrelease lsbminordistrelease "+"lsbrelease macaddress macaddress_ macosx_buildversion macosx_productname macosx_productversion macosx_productverson_major "+"macosx_productversion_minor manufacturer memoryfree memorysize netmask metmask_ network_ operatingsystem operatingsystemmajrelease "+"operatingsystemrelease osfamily partitions path physicalprocessorcount processor processorcount productname ps puppetversion "+"rubysitedir rubyversion selinux selinux_config_mode selinux_config_policy selinux_current_mode selinux_current_mode selinux_enforced "+"selinux_policyversion serialnumber sp_ sshdsakey sshecdsakey sshrsakey swapencrypted swapfree swapsize timezone type uniqueid uptime "+"uptime_days uptime_hours uptime_seconds uuid virtual vlans xendomains zfs_version zonenae zones zpool_version"};var COMMENT=hljs.COMMENT("#","$");var IDENT_RE="([A-Za-z_]|::)(\\w|::)*";var TITLE=hljs.inherit(hljs.TITLE_MODE,{begin:IDENT_RE});var VARIABLE={className:"variable",begin:"\\$"+IDENT_RE};var STRING={className:"string",contains:[hljs.BACKSLASH_ESCAPE,VARIABLE],variants:[{begin:/'/,end:/'/},{begin:/"/,end:/"/}]};return{aliases:["pp"],contains:[COMMENT,VARIABLE,STRING,{beginKeywords:"class",end:"\\{|;",illegal:/=/,contains:[TITLE,COMMENT]},{beginKeywords:"define",end:/\{/,contains:[{className:"section",begin:hljs.IDENT_RE,endsParent:true}]},{begin:hljs.IDENT_RE+"\\s+\\{",returnBegin:true,end:/\S/,contains:[{className:"keyword",begin:hljs.IDENT_RE},{begin:/\{/,end:/\}/,keywords:PUPPET_KEYWORDS,relevance:0,contains:[STRING,COMMENT,{begin:"[a-zA-Z_]+\\s*=>",returnBegin:true,end:"=>",contains:[{className:"attr",begin:hljs.IDENT_RE}]},{className:"number",begin:"(\\b0[0-7_]+)|(\\b0x[0-9a-fA-F_]+)|(\\b[1-9][0-9_]*(\\.[0-9_]+)?)|[0_]\\b",relevance:0},VARIABLE]}],relevance:0}]}});hljs.registerLanguage("vim",function(hljs){return{lexemes:/[!#@\w]+/,keywords:{keyword:"N|0 P|0 X|0 a|0 ab abc abo al am an|0 ar arga argd arge argdo argg argl argu as au aug aun b|0 bN ba bad bd be bel bf bl bm bn bo bp br brea breaka breakd breakl bro bufdo buffers bun bw c|0 cN cNf ca cabc caddb cad caddf cal cat cb cc ccl cd ce cex cf cfir cgetb cgete cg changes chd che checkt cl cla clo cm cmapc cme cn cnew cnf cno cnorea cnoreme co col colo com comc comp con conf cope "+"cp cpf cq cr cs cst cu cuna cunme cw delm deb debugg delc delf dif diffg diffo diffp diffpu diffs diffthis dig di dl dell dj dli do doautoa dp dr ds dsp e|0 ea ec echoe echoh echom echon el elsei em en endfo endf endt endw ene ex exe exi exu f|0 files filet fin fina fini fir fix fo foldc foldd folddoc foldo for fu go gr grepa gu gv ha helpf helpg helpt hi hid his ia iabc if ij il im imapc "+"ime ino inorea inoreme int is isp iu iuna iunme j|0 ju k|0 keepa kee keepj lN lNf l|0 lad laddb laddf la lan lat lb lc lch lcl lcs le lefta let lex lf lfir lgetb lgete lg lgr lgrepa lh ll lla lli lmak lm lmapc lne lnew lnf ln loadk lo loc lockv lol lope lp lpf lr ls lt lu lua luad luaf lv lvimgrepa lw m|0 ma mak map mapc marks mat me menut mes mk mks mksp mkv mkvie mod mz mzf nbc nb nbs new nm nmapc nme nn nnoreme noa no noh norea noreme norm nu nun nunme ol o|0 om omapc ome on ono onoreme opt ou ounme ow p|0 "+"profd prof pro promptr pc ped pe perld po popu pp pre prev ps pt ptN ptf ptj ptl ptn ptp ptr pts pu pw py3 python3 py3d py3f py pyd pyf quita qa rec red redi redr redraws reg res ret retu rew ri rightb rub rubyd rubyf rund ru rv sN san sa sal sav sb sbN sba sbf sbl sbm sbn sbp sbr scrip scripte scs se setf setg setl sf sfir sh sim sig sil sl sla sm smap smapc sme sn sni sno snor snoreme sor "+"so spelld spe spelli spellr spellu spellw sp spr sre st sta startg startr star stopi stj sts sun sunm sunme sus sv sw sy synti sync tN tabN tabc tabdo tabe tabf tabfir tabl tabm tabnew "+"tabn tabo tabp tabr tabs tab ta tags tc tcld tclf te tf th tj tl tm tn to tp tr try ts tu u|0 undoj undol una unh unl unlo unm unme uns up ve verb vert vim vimgrepa vi viu vie vm vmapc vme vne vn vnoreme vs vu vunme windo w|0 wN wa wh wi winc winp wn wp wq wqa ws wu wv x|0 xa xmapc xm xme xn xnoreme xu xunme y|0 z|0 ~ "+"Next Print append abbreviate abclear aboveleft all amenu anoremenu args argadd argdelete argedit argglobal arglocal argument ascii autocmd augroup aunmenu buffer bNext ball badd bdelete behave belowright bfirst blast bmodified bnext botright bprevious brewind break breakadd breakdel breaklist browse bunload "+"bwipeout change cNext cNfile cabbrev cabclear caddbuffer caddexpr caddfile call catch cbuffer cclose center cexpr cfile cfirst cgetbuffer cgetexpr cgetfile chdir checkpath checktime clist clast close cmap cmapclear cmenu cnext cnewer cnfile cnoremap cnoreabbrev cnoremenu copy colder colorscheme command comclear compiler continue confirm copen cprevious cpfile cquit crewind cscope cstag cunmap "+"cunabbrev cunmenu cwindow delete delmarks debug debuggreedy delcommand delfunction diffupdate diffget diffoff diffpatch diffput diffsplit digraphs display deletel djump dlist doautocmd doautoall deletep drop dsearch dsplit edit earlier echo echoerr echohl echomsg else elseif emenu endif endfor "+"endfunction endtry endwhile enew execute exit exusage file filetype find finally finish first fixdel fold foldclose folddoopen folddoclosed foldopen function global goto grep grepadd gui gvim hardcopy help helpfind helpgrep helptags highlight hide history insert iabbrev iabclear ijump ilist imap "+"imapclear imenu inoremap inoreabbrev inoremenu intro isearch isplit iunmap iunabbrev iunmenu join jumps keepalt keepmarks keepjumps lNext lNfile list laddexpr laddbuffer laddfile last language later lbuffer lcd lchdir lclose lcscope left leftabove lexpr lfile lfirst lgetbuffer lgetexpr lgetfile lgrep lgrepadd lhelpgrep llast llist lmake lmap lmapclear lnext lnewer lnfile lnoremap loadkeymap loadview "+"lockmarks lockvar lolder lopen lprevious lpfile lrewind ltag lunmap luado luafile lvimgrep lvimgrepadd lwindow move mark make mapclear match menu menutranslate messages mkexrc mksession mkspell mkvimrc mkview mode mzscheme mzfile nbclose nbkey nbsart next nmap nmapclear nmenu nnoremap "+"nnoremenu noautocmd noremap nohlsearch noreabbrev noremenu normal number nunmap nunmenu oldfiles open omap omapclear omenu only onoremap onoremenu options ounmap ounmenu ownsyntax print profdel profile promptfind promptrepl pclose pedit perl perldo pop popup ppop preserve previous psearch ptag ptNext "+"ptfirst ptjump ptlast ptnext ptprevious ptrewind ptselect put pwd py3do py3file python pydo pyfile quit quitall qall read recover redo redir redraw redrawstatus registers resize retab return rewind right rightbelow ruby rubydo rubyfile rundo runtime rviminfo substitute sNext sandbox sargument sall saveas sbuffer sbNext sball sbfirst sblast sbmodified sbnext sbprevious sbrewind scriptnames scriptencoding "+"scscope set setfiletype setglobal setlocal sfind sfirst shell simalt sign silent sleep slast smagic smapclear smenu snext sniff snomagic snoremap snoremenu sort source spelldump spellgood spellinfo spellrepall spellundo spellwrong split sprevious srewind stop stag startgreplace startreplace "+"startinsert stopinsert stjump stselect sunhide sunmap sunmenu suspend sview swapname syntax syntime syncbind tNext tabNext tabclose tabedit tabfind tabfirst tablast tabmove tabnext tabonly tabprevious tabrewind tag tcl tcldo tclfile tearoff tfirst throw tjump tlast tmenu tnext topleft tprevious "+"trewind tselect tunmenu undo undojoin undolist unabbreviate unhide unlet unlockvar unmap unmenu unsilent update vglobal version verbose vertical vimgrep vimgrepadd visual viusage view vmap vmapclear vmenu vnew "+"vnoremap vnoremenu vsplit vunmap vunmenu write wNext wall while winsize wincmd winpos wnext wprevious wqall wsverb wundo wviminfo xit xall xmapclear xmap xmenu xnoremap xnoremenu xunmap xunmenu yank",built_in:"synIDtrans atan2 range matcharg did_filetype asin feedkeys xor argv "+"complete_check add getwinposx getqflist getwinposy screencol "+"clearmatches empty extend getcmdpos mzeval garbagecollect setreg "+"ceil sqrt diff_hlID inputsecret get getfperm getpid filewritable "+"shiftwidth max sinh isdirectory synID system inputrestore winline "+"atan visualmode inputlist tabpagewinnr round getregtype mapcheck "+"hasmapto histdel argidx findfile sha256 exists toupper getcmdline "+"taglist string getmatches bufnr strftime winwidth bufexists "+"strtrans tabpagebuflist setcmdpos remote_read printf setloclist "+"getpos getline bufwinnr float2nr len getcmdtype diff_filler luaeval "+"resolve libcallnr foldclosedend reverse filter has_key bufname "+"str2float strlen setline getcharmod setbufvar index searchpos "+"shellescape undofile foldclosed setqflist buflisted strchars str2nr "+"virtcol floor remove undotree remote_expr winheight gettabwinvar "+"reltime cursor tabpagenr finddir localtime acos getloclist search "+"tanh matchend rename gettabvar strdisplaywidth type abs py3eval "+"setwinvar tolower wildmenumode log10 spellsuggest bufloaded "+"synconcealed nextnonblank server2client complete settabwinvar "+"executable input wincol setmatches getftype hlID inputsave "+"searchpair or screenrow line settabvar histadd deepcopy strpart "+"remote_peek and eval getftime submatch screenchar winsaveview "+"matchadd mkdir screenattr getfontname libcall reltimestr getfsize "+"winnr invert pow getbufline byte2line soundfold repeat fnameescape "+"tagfiles sin strwidth spellbadword trunc maparg log lispindent "+"hostname setpos globpath remote_foreground getchar synIDattr "+"fnamemodify cscope_connection stridx winbufnr indent min "+"complete_add nr2char searchpairpos inputdialog values matchlist "+"items hlexists strridx browsedir expand fmod pathshorten line2byte "+"argc count getwinvar glob foldtextresult getreg foreground cosh "+"matchdelete has char2nr simplify histget searchdecl iconv "+"winrestcmd pumvisible writefile foldlevel haslocaldir keys cos "+"matchstr foldtext histnr tan tempname getcwd byteidx getbufvar "+"islocked escape eventhandler remote_send serverlist winrestview "+"synstack pyeval prevnonblank readfile cindent filereadable changenr "+"exp"},illegal:/;/,contains:[hljs.NUMBER_MODE,{className:"string",begin:"'",end:"'",illegal:"\\n"},{className:"string",begin:/"(\\"|\n\\|[^"\n])*"/},hljs.COMMENT('"',"$"),{className:"variable",begin:/[bwtglsav]:[\w\d_]*/},{className:"function",beginKeywords:"function function!",end:"$",relevance:0,contains:[hljs.TITLE_MODE,{className:"params",begin:"\\(",end:"\\)"}]},{className:"symbol",begin:/<[\w-]+>/}]}});hljs.registerLanguage("dos",function(hljs){var COMMENT=hljs.COMMENT(/^\s*@?rem\b/,/$/,{relevance:10});var LABEL={className:"symbol",begin:"^\\s*[A-Za-z._?][A-Za-z0-9_$#@~.?]*(:|\\s+label)",relevance:0};return{aliases:["bat","cmd"],case_insensitive:true,illegal:/\/\*/,keywords:{keyword:"if else goto for in do call exit not exist errorlevel defined "+"equ neq lss leq gtr geq",built_in:"prn nul lpt3 lpt2 lpt1 con com4 com3 com2 com1 aux "+"shift cd dir echo setlocal endlocal set pause copy "+"append assoc at attrib break cacls cd chcp chdir chkdsk chkntfs cls cmd color "+"comp compact convert date dir diskcomp diskcopy doskey erase fs "+"find findstr format ftype graftabl help keyb label md mkdir mode more move path "+"pause print popd pushd promt rd recover rem rename replace restore rmdir shift"+"sort start subst time title tree type ver verify vol "+"ping net ipconfig taskkill xcopy ren del"},contains:[{className:"variable",begin:/%%[^ ]|%[^ ]+?%|![^ ]+?!/},{className:"function",begin:LABEL.begin,end:"goto:eof",contains:[hljs.inherit(hljs.TITLE_MODE,{begin:"([_a-zA-Z]\\w*\\.)*([_a-zA-Z]\\w*:)?[_a-zA-Z]\\w*"}),COMMENT]},{className:"number",begin:"\\b\\d+",relevance:0},COMMENT]}});hljs.registerLanguage("ceylon",function(hljs){var KEYWORDS="assembly module package import alias class interface object given value "+"assign void function new of extends satisfies abstracts in out return "+"break continue throw assert dynamic if else switch case for while try "+"catch finally then let this outer super is exists nonempty";var DECLARATION_MODIFIERS="shared abstract formal default actual variable late native deprecated"+"final sealed annotation suppressWarnings small";var DOCUMENTATION="doc by license see throws tagged";var SUBST={className:"subst",excludeBegin:true,excludeEnd:true,begin:/``/,end:/``/,keywords:KEYWORDS,relevance:10};var EXPRESSIONS=[{className:"string",begin:'"""',end:'"""',relevance:10},{className:"string",begin:'"',end:'"',contains:[SUBST]},{className:"string",begin:"'",end:"'"},{className:"number",begin:"#[0-9a-fA-F_]+|\\$[01_]+|[0-9_]+(?:\\.[0-9_](?:[eE][+-]?\\d+)?)?[kMGTPmunpf]?",relevance:0}];SUBST.contains=EXPRESSIONS;return{keywords:{keyword:KEYWORDS+" "+DECLARATION_MODIFIERS,meta:DOCUMENTATION},illegal:"\\$[^01]|#[^0-9a-fA-F]",contains:[hljs.C_LINE_COMMENT_MODE,hljs.COMMENT("/\\*","\\*/",{contains:["self"]}),{className:"meta",begin:'@[a-z]\\w*(?:\\:"[^"]*")?'}].concat(EXPRESSIONS)}});hljs.registerLanguage("nsis",function(hljs){var CONSTANTS={className:"variable",begin:/\$(ADMINTOOLS|APPDATA|CDBURN_AREA|CMDLINE|COMMONFILES32|COMMONFILES64|COMMONFILES|COOKIES|DESKTOP|DOCUMENTS|EXEDIR|EXEFILE|EXEPATH|FAVORITES|FONTS|HISTORY|HWNDPARENT|INSTDIR|INTERNET_CACHE|LANGUAGE|LOCALAPPDATA|MUSIC|NETHOOD|OUTDIR|PICTURES|PLUGINSDIR|PRINTHOOD|PROFILE|PROGRAMFILES32|PROGRAMFILES64|PROGRAMFILES|QUICKLAUNCH|RECENT|RESOURCES_LOCALIZED|RESOURCES|SENDTO|SMPROGRAMS|SMSTARTUP|STARTMENU|SYSDIR|TEMP|TEMPLATES|VIDEOS|WINDIR)/};var DEFINES={className:"variable",begin:/\$+{[\w\.:-]+}/};var VARIABLES={className:"variable",begin:/\$+\w+/,illegal:/\(\){}/};var LANGUAGES={className:"variable",begin:/\$+\([\w\^\.:-]+\)/};var PARAMETERS={className:"params",begin:"(ARCHIVE|FILE_ATTRIBUTE_ARCHIVE|FILE_ATTRIBUTE_NORMAL|FILE_ATTRIBUTE_OFFLINE|FILE_ATTRIBUTE_READONLY|FILE_ATTRIBUTE_SYSTEM|FILE_ATTRIBUTE_TEMPORARY|HKCR|HKCU|HKDD|HKEY_CLASSES_ROOT|HKEY_CURRENT_CONFIG|HKEY_CURRENT_USER|HKEY_DYN_DATA|HKEY_LOCAL_MACHINE|HKEY_PERFORMANCE_DATA|HKEY_USERS|HKLM|HKPD|HKU|IDABORT|IDCANCEL|IDIGNORE|IDNO|IDOK|IDRETRY|IDYES|MB_ABORTRETRYIGNORE|MB_DEFBUTTON1|MB_DEFBUTTON2|MB_DEFBUTTON3|MB_DEFBUTTON4|MB_ICONEXCLAMATION|MB_ICONINFORMATION|MB_ICONQUESTION|MB_ICONSTOP|MB_OK|MB_OKCANCEL|MB_RETRYCANCEL|MB_RIGHT|MB_RTLREADING|MB_SETFOREGROUND|MB_TOPMOST|MB_USERICON|MB_YESNO|NORMAL|OFFLINE|READONLY|SHCTX|SHELL_CONTEXT|SYSTEM|TEMPORARY)"};var COMPILER={className:"keyword",begin:/\!(addincludedir|addplugindir|appendfile|cd|define|delfile|echo|else|endif|error|execute|finalize|getdllversion|gettlbversion|if|ifdef|ifmacrodef|ifmacrondef|ifndef|include|insertmacro|macro|macroend|makensis|packhdr|searchparse|searchreplace|system|tempfile|undef|verbose|warning)/};var METACHARS={className:"meta",begin:/\$(\\[nrt]|\$)/};var PLUGINS={className:"class",begin:/\w+\:\:\w+/};var STRING={className:"string",variants:[{begin:'"',end:'"'},{begin:"'",end:"'"},{begin:"`",end:"`"}],illegal:/\n/,contains:[METACHARS,CONSTANTS,DEFINES,VARIABLES,LANGUAGES]};return{case_insensitive:false,keywords:{keyword:"Abort AddBrandingImage AddSize AllowRootDirInstall AllowSkipFiles AutoCloseWindow BGFont BGGradient BrandingText BringToFront Call CallInstDLL Caption ChangeUI CheckBitmap ClearErrors CompletedText ComponentText CopyFiles CRCCheck CreateDirectory CreateFont CreateShortCut Delete DeleteINISec DeleteINIStr DeleteRegKey DeleteRegValue DetailPrint DetailsButtonText DirText DirVar DirVerify EnableWindow EnumRegKey EnumRegValue Exch Exec ExecShell ExecShellWait ExecWait ExpandEnvStrings File FileBufSize FileClose FileErrorText FileOpen FileRead FileReadByte FileReadUTF16LE FileReadWord FileSeek FileWrite FileWriteByte FileWriteUTF16LE FileWriteWord FindClose FindFirst FindNext FindWindow FlushINI FunctionEnd GetCurInstType GetCurrentAddress GetDlgItem GetDLLVersion GetDLLVersionLocal GetErrorLevel GetFileTime GetFileTimeLocal GetFullPathName GetFunctionAddress GetInstDirError GetLabelAddress GetTempFileName Goto HideWindow Icon IfAbort IfErrors IfFileExists IfRebootFlag IfSilent InitPluginsDir InstallButtonText InstallColors InstallDir InstallDirRegKey InstProgressFlags InstType InstTypeGetText InstTypeSetText Int64Cmp Int64CmpU Int64Fmt IntCmp IntCmpU IntFmt IntOp IntPtrCmp IntPtrCmpU IntPtrOp IsWindow LangString LicenseBkColor LicenseData LicenseForceSelection LicenseLangString LicenseText LoadLanguageFile LockWindow LogSet LogText ManifestDPIAware ManifestSupportedOS MessageBox MiscButtonText Name Nop OutFile Page PageCallbacks PageExEnd Pop Push Quit ReadEnvStr ReadINIStr ReadRegDWORD ReadRegStr Reboot RegDLL Rename RequestExecutionLevel ReserveFile Return RMDir SearchPath SectionEnd SectionGetFlags SectionGetInstTypes SectionGetSize SectionGetText SectionGroupEnd SectionIn SectionSetFlags SectionSetInstTypes SectionSetSize SectionSetText SendMessage SetAutoClose SetBrandingImage SetCompress SetCompressor SetCompressorDictSize SetCtlColors SetCurInstType SetDatablockOptimize SetDateSave SetDetailsPrint SetDetailsView SetErrorLevel SetErrors SetFileAttributes SetFont SetOutPath SetOverwrite SetRebootFlag SetRegView SetShellVarContext SetSilent ShowInstDetails ShowUninstDetails ShowWindow SilentInstall SilentUnInstall Sleep SpaceTexts StrCmp StrCmpS StrCpy StrLen SubCaption Unicode UninstallButtonText UninstallCaption UninstallIcon UninstallSubCaption UninstallText UninstPage UnRegDLL Var VIAddVersionKey VIFileVersion VIProductVersion WindowIcon WriteINIStr WriteRegBin WriteRegDWORD WriteRegExpandStr WriteRegMultiStr WriteRegNone WriteRegStr WriteUninstaller XPStyle",literal:"admin all auto both bottom bzip2 colored components current custom directory false force hide highest ifdiff ifnewer instfiles lastused leave left license listonly lzma nevershow none normal notset off on open print right show silent silentlog smooth textonly top true try un.components un.custom un.directory un.instfiles un.license uninstConfirm user Win10 Win7 Win8 WinVista zlib"},contains:[hljs.HASH_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.COMMENT(";","$",{relevance:0}),{className:"function",beginKeywords:"Function PageEx Section SectionGroup",end:"$"},STRING,COMPILER,DEFINES,VARIABLES,LANGUAGES,PARAMETERS,PLUGINS,hljs.NUMBER_MODE]}});hljs.registerLanguage("go",function(hljs){var GO_KEYWORDS={keyword:"break default func interface select case map struct chan else goto package switch "+"const fallthrough if range type continue for import return var go defer "+"bool byte complex64 complex128 float32 float64 int8 int16 int32 int64 string uint8 "+"uint16 uint32 uint64 int uint uintptr rune",literal:"true false iota nil",built_in:"append cap close complex copy imag len make new panic print println real recover delete"};return{aliases:["golang"],keywords:GO_KEYWORDS,illegal:"</",contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,{className:"string",variants:[hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE,{begin:"`",end:"`"}]},{className:"number",variants:[{begin:hljs.C_NUMBER_RE+"[i]",relevance:1},hljs.C_NUMBER_MODE]},{begin:/:=/},{className:"function",beginKeywords:"func",end:"\\s*(\\{|$)",excludeEnd:true,contains:[hljs.TITLE_MODE,{className:"params",begin:/\(/,end:/\)/,keywords:GO_KEYWORDS,illegal:/["']/}]}]}});hljs.registerLanguage("nix",function(hljs){var NIX_KEYWORDS={keyword:"rec with let in inherit assert if else then",literal:"true false or and null",built_in:"import abort baseNameOf dirOf isNull builtins map removeAttrs throw "+"toString derivation"};var ANTIQUOTE={className:"subst",begin:/\$\{/,end:/}/,keywords:NIX_KEYWORDS};var ATTRS={begin:/[a-zA-Z0-9-_]+(\s*=)/,returnBegin:true,relevance:0,contains:[{className:"attr",begin:/\S+/}]};var STRING={className:"string",contains:[ANTIQUOTE],variants:[{begin:"''",end:"''"},{begin:'"',end:'"'}]};var EXPRESSIONS=[hljs.NUMBER_MODE,hljs.HASH_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,STRING,ATTRS];ANTIQUOTE.contains=EXPRESSIONS;return{aliases:["nixos"],keywords:NIX_KEYWORDS,contains:EXPRESSIONS}});hljs.registerLanguage("mel",function(hljs){return{keywords:"int float string vector matrix if else switch case default while do for in break "+"continue global proc return about abs addAttr addAttributeEditorNodeHelp addDynamic "+"addNewShelfTab addPP addPanelCategory addPrefixToName advanceToNextDrivenKey "+"affectedNet affects aimConstraint air alias aliasAttr align alignCtx alignCurve "+"alignSurface allViewFit ambientLight angle angleBetween animCone animCurveEditor "+"animDisplay animView annotate appendStringArray applicationName applyAttrPreset "+"applyTake arcLenDimContext arcLengthDimension arclen arrayMapper art3dPaintCtx "+"artAttrCtx artAttrPaintVertexCtx artAttrSkinPaintCtx artAttrTool artBuildPaintMenu "+"artFluidAttrCtx artPuttyCtx artSelectCtx artSetPaintCtx artUserPaintCtx assignCommand "+"assignInputDevice assignViewportFactories attachCurve attachDeviceAttr attachSurface "+"attrColorSliderGrp attrCompatibility attrControlGrp attrEnumOptionMenu "+"attrEnumOptionMenuGrp attrFieldGrp attrFieldSliderGrp attrNavigationControlGrp "+"attrPresetEditWin attributeExists attributeInfo attributeMenu attributeQuery "+"autoKeyframe autoPlace bakeClip bakeFluidShading bakePartialHistory bakeResults "+"bakeSimulation basename basenameEx batchRender bessel bevel bevelPlus binMembership "+"bindSkin blend2 blendShape blendShapeEditor blendShapePanel blendTwoAttr blindDataType "+"boneLattice boundary boxDollyCtx boxZoomCtx bufferCurve buildBookmarkMenu "+"buildKeyframeMenu button buttonManip CBG cacheFile cacheFileCombine cacheFileMerge "+"cacheFileTrack camera cameraView canCreateManip canvas capitalizeString catch "+"catchQuiet ceil changeSubdivComponentDisplayLevel changeSubdivRegion channelBox "+"character characterMap characterOutlineEditor characterize chdir checkBox checkBoxGrp "+"checkDefaultRenderGlobals choice circle circularFillet clamp clear clearCache clip "+"clipEditor clipEditorCurrentTimeCtx clipSchedule clipSchedulerOutliner clipTrimBefore "+"closeCurve closeSurface cluster cmdFileOutput cmdScrollFieldExecuter "+"cmdScrollFieldReporter cmdShell coarsenSubdivSelectionList collision color "+"colorAtPoint colorEditor colorIndex colorIndexSliderGrp colorSliderButtonGrp "+"colorSliderGrp columnLayout commandEcho commandLine commandPort compactHairSystem "+"componentEditor compositingInterop computePolysetVolume condition cone confirmDialog "+"connectAttr connectControl connectDynamic connectJoint connectionInfo constrain "+"constrainValue constructionHistory container containsMultibyte contextInfo control "+"convertFromOldLayers convertIffToPsd convertLightmap convertSolidTx convertTessellation "+"convertUnit copyArray copyFlexor copyKey copySkinWeights cos cpButton cpCache "+"cpClothSet cpCollision cpConstraint cpConvClothToMesh cpForces cpGetSolverAttr cpPanel "+"cpProperty cpRigidCollisionFilter cpSeam cpSetEdit cpSetSolverAttr cpSolver "+"cpSolverTypes cpTool cpUpdateClothUVs createDisplayLayer createDrawCtx createEditor "+"createLayeredPsdFile createMotionField createNewShelf createNode createRenderLayer "+"createSubdivRegion cross crossProduct ctxAbort ctxCompletion ctxEditMode ctxTraverse "+"currentCtx currentTime currentTimeCtx currentUnit curve curveAddPtCtx "+"curveCVCtx curveEPCtx curveEditorCtx curveIntersect curveMoveEPCtx curveOnSurface "+"curveSketchCtx cutKey cycleCheck cylinder dagPose date defaultLightListCheckBox "+"defaultNavigation defineDataServer defineVirtualDevice deformer deg_to_rad delete "+"deleteAttr deleteShadingGroupsAndMaterials deleteShelfTab deleteUI deleteUnusedBrushes "+"delrandstr detachCurve detachDeviceAttr detachSurface deviceEditor devicePanel dgInfo "+"dgdirty dgeval dgtimer dimWhen directKeyCtx directionalLight dirmap dirname disable "+"disconnectAttr disconnectJoint diskCache displacementToPoly displayAffected "+"displayColor displayCull displayLevelOfDetail displayPref displayRGBColor "+"displaySmoothness displayStats displayString displaySurface distanceDimContext "+"distanceDimension doBlur dolly dollyCtx dopeSheetEditor dot dotProduct "+"doubleProfileBirailSurface drag dragAttrContext draggerContext dropoffLocator "+"duplicate duplicateCurve duplicateSurface dynCache dynControl dynExport dynExpression "+"dynGlobals dynPaintEditor dynParticleCtx dynPref dynRelEdPanel dynRelEditor "+"dynamicLoad editAttrLimits editDisplayLayerGlobals editDisplayLayerMembers "+"editRenderLayerAdjustment editRenderLayerGlobals editRenderLayerMembers editor "+"editorTemplate effector emit emitter enableDevice encodeString endString endsWith env "+"equivalent equivalentTol erf error eval evalDeferred evalEcho event "+"exactWorldBoundingBox exclusiveLightCheckBox exec executeForEachObject exists exp "+"expression expressionEditorListen extendCurve extendSurface extrude fcheck fclose feof "+"fflush fgetline fgetword file fileBrowserDialog fileDialog fileExtension fileInfo "+"filetest filletCurve filter filterCurve filterExpand filterStudioImport "+"findAllIntersections findAnimCurves findKeyframe findMenuItem findRelatedSkinCluster "+"finder firstParentOf fitBspline flexor floatEq floatField floatFieldGrp floatScrollBar "+"floatSlider floatSlider2 floatSliderButtonGrp floatSliderGrp floor flow fluidCacheInfo "+"fluidEmitter fluidVoxelInfo flushUndo fmod fontDialog fopen formLayout format fprint "+"frameLayout fread freeFormFillet frewind fromNativePath fwrite gamma gauss "+"geometryConstraint getApplicationVersionAsFloat getAttr getClassification "+"getDefaultBrush getFileList getFluidAttr getInputDeviceRange getMayaPanelTypes "+"getModifiers getPanel getParticleAttr getPluginResource getenv getpid glRender "+"glRenderEditor globalStitch gmatch goal gotoBindPose grabColor gradientControl "+"gradientControlNoAttr graphDollyCtx graphSelectContext graphTrackCtx gravity grid "+"gridLayout group groupObjectsByName HfAddAttractorToAS HfAssignAS HfBuildEqualMap "+"HfBuildFurFiles HfBuildFurImages HfCancelAFR HfConnectASToHF HfCreateAttractor "+"HfDeleteAS HfEditAS HfPerformCreateAS HfRemoveAttractorFromAS HfSelectAttached "+"HfSelectAttractors HfUnAssignAS hardenPointCurve hardware hardwareRenderPanel "+"headsUpDisplay headsUpMessage help helpLine hermite hide hilite hitTest hotBox hotkey "+"hotkeyCheck hsv_to_rgb hudButton hudSlider hudSliderButton hwReflectionMap hwRender "+"hwRenderLoad hyperGraph hyperPanel hyperShade hypot iconTextButton iconTextCheckBox "+"iconTextRadioButton iconTextRadioCollection iconTextScrollList iconTextStaticLabel "+"ikHandle ikHandleCtx ikHandleDisplayScale ikSolver ikSplineHandleCtx ikSystem "+"ikSystemInfo ikfkDisplayMethod illustratorCurves image imfPlugins inheritTransform "+"insertJoint insertJointCtx insertKeyCtx insertKnotCurve insertKnotSurface instance "+"instanceable instancer intField intFieldGrp intScrollBar intSlider intSliderGrp "+"interToUI internalVar intersect iprEngine isAnimCurve isConnected isDirty isParentOf "+"isSameObject isTrue isValidObjectName isValidString isValidUiName isolateSelect "+"itemFilter itemFilterAttr itemFilterRender itemFilterType joint jointCluster jointCtx "+"jointDisplayScale jointLattice keyTangent keyframe keyframeOutliner "+"keyframeRegionCurrentTimeCtx keyframeRegionDirectKeyCtx keyframeRegionDollyCtx "+"keyframeRegionInsertKeyCtx keyframeRegionMoveKeyCtx keyframeRegionScaleKeyCtx "+"keyframeRegionSelectKeyCtx keyframeRegionSetKeyCtx keyframeRegionTrackCtx "+"keyframeStats lassoContext lattice latticeDeformKeyCtx launch launchImageEditor "+"layerButton layeredShaderPort layeredTexturePort layout layoutDialog lightList "+"lightListEditor lightListPanel lightlink lineIntersection linearPrecision linstep "+"listAnimatable listAttr listCameras listConnections listDeviceAttachments listHistory "+"listInputDeviceAxes listInputDeviceButtons listInputDevices listMenuAnnotation "+"listNodeTypes listPanelCategories listRelatives listSets listTransforms "+"listUnselected listerEditor loadFluid loadNewShelf loadPlugin "+"loadPluginLanguageResources loadPrefObjects localizedPanelLabel lockNode loft log "+"longNameOf lookThru ls lsThroughFilter lsType lsUI Mayatomr mag makeIdentity makeLive "+"makePaintable makeRoll makeSingleSurface makeTubeOn makebot manipMoveContext "+"manipMoveLimitsCtx manipOptions manipRotateContext manipRotateLimitsCtx "+"manipScaleContext manipScaleLimitsCtx marker match max memory menu menuBarLayout "+"menuEditor menuItem menuItemToShelf menuSet menuSetPref messageLine min minimizeApp "+"mirrorJoint modelCurrentTimeCtx modelEditor modelPanel mouse movIn movOut move "+"moveIKtoFK moveKeyCtx moveVertexAlongDirection multiProfileBirailSurface mute "+"nParticle nameCommand nameField namespace namespaceInfo newPanelItems newton nodeCast "+"nodeIconButton nodeOutliner nodePreset nodeType noise nonLinear normalConstraint "+"normalize nurbsBoolean nurbsCopyUVSet nurbsCube nurbsEditUV nurbsPlane nurbsSelect "+"nurbsSquare nurbsToPoly nurbsToPolygonsPref nurbsToSubdiv nurbsToSubdivPref "+"nurbsUVSet nurbsViewDirectionVector objExists objectCenter objectLayer objectType "+"objectTypeUI obsoleteProc oceanNurbsPreviewPlane offsetCurve offsetCurveOnSurface "+"offsetSurface openGLExtension openMayaPref optionMenu optionMenuGrp optionVar orbit "+"orbitCtx orientConstraint outlinerEditor outlinerPanel overrideModifier "+"paintEffectsDisplay pairBlend palettePort paneLayout panel panelConfiguration "+"panelHistory paramDimContext paramDimension paramLocator parent parentConstraint "+"particle particleExists particleInstancer particleRenderInfo partition pasteKey "+"pathAnimation pause pclose percent performanceOptions pfxstrokes pickWalk picture "+"pixelMove planarSrf plane play playbackOptions playblast plugAttr plugNode pluginInfo "+"pluginResourceUtil pointConstraint pointCurveConstraint pointLight pointMatrixMult "+"pointOnCurve pointOnSurface pointPosition poleVectorConstraint polyAppend "+"polyAppendFacetCtx polyAppendVertex polyAutoProjection polyAverageNormal "+"polyAverageVertex polyBevel polyBlendColor polyBlindData polyBoolOp polyBridgeEdge "+"polyCacheMonitor polyCheck polyChipOff polyClipboard polyCloseBorder polyCollapseEdge "+"polyCollapseFacet polyColorBlindData polyColorDel polyColorPerVertex polyColorSet "+"polyCompare polyCone polyCopyUV polyCrease polyCreaseCtx polyCreateFacet "+"polyCreateFacetCtx polyCube polyCut polyCutCtx polyCylinder polyCylindricalProjection "+"polyDelEdge polyDelFacet polyDelVertex polyDuplicateAndConnect polyDuplicateEdge "+"polyEditUV polyEditUVShell polyEvaluate polyExtrudeEdge polyExtrudeFacet "+"polyExtrudeVertex polyFlipEdge polyFlipUV polyForceUV polyGeoSampler polyHelix "+"polyInfo polyInstallAction polyLayoutUV polyListComponentConversion polyMapCut "+"polyMapDel polyMapSew polyMapSewMove polyMergeEdge polyMergeEdgeCtx polyMergeFacet "+"polyMergeFacetCtx polyMergeUV polyMergeVertex polyMirrorFace polyMoveEdge "+"polyMoveFacet polyMoveFacetUV polyMoveUV polyMoveVertex polyNormal polyNormalPerVertex "+"polyNormalizeUV polyOptUvs polyOptions polyOutput polyPipe polyPlanarProjection "+"polyPlane polyPlatonicSolid polyPoke polyPrimitive polyPrism polyProjection "+"polyPyramid polyQuad polyQueryBlindData polyReduce polySelect polySelectConstraint "+"polySelectConstraintMonitor polySelectCtx polySelectEditCtx polySeparate "+"polySetToFaceNormal polySewEdge polyShortestPathCtx polySmooth polySoftEdge "+"polySphere polySphericalProjection polySplit polySplitCtx polySplitEdge polySplitRing "+"polySplitVertex polyStraightenUVBorder polySubdivideEdge polySubdivideFacet "+"polyToSubdiv polyTorus polyTransfer polyTriangulate polyUVSet polyUnite polyWedgeFace "+"popen popupMenu pose pow preloadRefEd print progressBar progressWindow projFileViewer "+"projectCurve projectTangent projectionContext projectionManip promptDialog propModCtx "+"propMove psdChannelOutliner psdEditTextureFile psdExport psdTextureFile putenv pwd "+"python querySubdiv quit rad_to_deg radial radioButton radioButtonGrp radioCollection "+"radioMenuItemCollection rampColorPort rand randomizeFollicles randstate rangeControl "+"readTake rebuildCurve rebuildSurface recordAttr recordDevice redo reference "+"referenceEdit referenceQuery refineSubdivSelectionList refresh refreshAE "+"registerPluginResource rehash reloadImage removeJoint removeMultiInstance "+"removePanelCategory rename renameAttr renameSelectionList renameUI render "+"renderGlobalsNode renderInfo renderLayerButton renderLayerParent "+"renderLayerPostProcess renderLayerUnparent renderManip renderPartition "+"renderQualityNode renderSettings renderThumbnailUpdate renderWindowEditor "+"renderWindowSelectContext renderer reorder reorderDeformers requires reroot "+"resampleFluid resetAE resetPfxToPolyCamera resetTool resolutionNode retarget "+"reverseCurve reverseSurface revolve rgb_to_hsv rigidBody rigidSolver roll rollCtx "+"rootOf rot rotate rotationInterpolation roundConstantRadius rowColumnLayout rowLayout "+"runTimeCommand runup sampleImage saveAllShelves saveAttrPreset saveFluid saveImage "+"saveInitialState saveMenu savePrefObjects savePrefs saveShelf saveToolSettings scale "+"scaleBrushBrightness scaleComponents scaleConstraint scaleKey scaleKeyCtx sceneEditor "+"sceneUIReplacement scmh scriptCtx scriptEditorInfo scriptJob scriptNode scriptTable "+"scriptToShelf scriptedPanel scriptedPanelType scrollField scrollLayout sculpt "+"searchPathArray seed selLoadSettings select selectContext selectCurveCV selectKey "+"selectKeyCtx selectKeyframeRegionCtx selectMode selectPref selectPriority selectType "+"selectedNodes selectionConnection separator setAttr setAttrEnumResource "+"setAttrMapping setAttrNiceNameResource setConstraintRestPosition "+"setDefaultShadingGroup setDrivenKeyframe setDynamic setEditCtx setEditor setFluidAttr "+"setFocus setInfinity setInputDeviceMapping setKeyCtx setKeyPath setKeyframe "+"setKeyframeBlendshapeTargetWts setMenuMode setNodeNiceNameResource setNodeTypeFlag "+"setParent setParticleAttr setPfxToPolyCamera setPluginResource setProject "+"setStampDensity setStartupMessage setState setToolTo setUITemplate setXformManip sets "+"shadingConnection shadingGeometryRelCtx shadingLightRelCtx shadingNetworkCompare "+"shadingNode shapeCompare shelfButton shelfLayout shelfTabLayout shellField "+"shortNameOf showHelp showHidden showManipCtx showSelectionInTitle "+"showShadingGroupAttrEditor showWindow sign simplify sin singleProfileBirailSurface "+"size sizeBytes skinCluster skinPercent smoothCurve smoothTangentSurface smoothstep "+"snap2to2 snapKey snapMode snapTogetherCtx snapshot soft softMod softModCtx sort sound "+"soundControl source spaceLocator sphere sphrand spotLight spotLightPreviewPort "+"spreadSheetEditor spring sqrt squareSurface srtContext stackTrace startString "+"startsWith stitchAndExplodeShell stitchSurface stitchSurfacePoints strcmp "+"stringArrayCatenate stringArrayContains stringArrayCount stringArrayInsertAtIndex "+"stringArrayIntersector stringArrayRemove stringArrayRemoveAtIndex "+"stringArrayRemoveDuplicates stringArrayRemoveExact stringArrayToString "+"stringToStringArray strip stripPrefixFromName stroke subdAutoProjection "+"subdCleanTopology subdCollapse subdDuplicateAndConnect subdEditUV "+"subdListComponentConversion subdMapCut subdMapSewMove subdMatchTopology subdMirror "+"subdToBlind subdToPoly subdTransferUVsToCache subdiv subdivCrease "+"subdivDisplaySmoothness substitute substituteAllString substituteGeometry substring "+"surface surfaceSampler surfaceShaderList swatchDisplayPort switchTable symbolButton "+"symbolCheckBox sysFile system tabLayout tan tangentConstraint texLatticeDeformContext "+"texManipContext texMoveContext texMoveUVShellContext texRotateContext texScaleContext "+"texSelectContext texSelectShortestPathCtx texSmudgeUVContext texWinToolCtx text "+"textCurves textField textFieldButtonGrp textFieldGrp textManip textScrollList "+"textToShelf textureDisplacePlane textureHairColor texturePlacementContext "+"textureWindow threadCount threePointArcCtx timeControl timePort timerX toNativePath "+"toggle toggleAxis toggleWindowVisibility tokenize tokenizeList tolerance tolower "+"toolButton toolCollection toolDropped toolHasOptions toolPropertyWindow torus toupper "+"trace track trackCtx transferAttributes transformCompare transformLimits translator "+"trim trunc truncateFluidCache truncateHairCache tumble tumbleCtx turbulence "+"twoPointArcCtx uiRes uiTemplate unassignInputDevice undo undoInfo ungroup uniform unit "+"unloadPlugin untangleUV untitledFileName untrim upAxis updateAE userCtx uvLink "+"uvSnapshot validateShelfName vectorize view2dToolCtx viewCamera viewClipPlane "+"viewFit viewHeadOn viewLookAt viewManip viewPlace viewSet visor volumeAxis vortex "+"waitCursor warning webBrowser webBrowserPrefs whatIs window windowPref wire "+"wireContext workspace wrinkle wrinkleContext writeTake xbmLangPathList xform",illegal:"</",contains:[hljs.C_NUMBER_MODE,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,{className:"string",begin:"`",end:"`",contains:[hljs.BACKSLASH_ESCAPE]},{begin:"[\\$\\%\\@](\\^\\w\\b|#\\w+|[^\\s\\w{]|{\\w+}|\\w+)"},hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE]}});hljs.registerLanguage("autoit",function(hljs){var KEYWORDS="ByRef Case Const ContinueCase ContinueLoop "+"Default Dim Do Else ElseIf EndFunc EndIf EndSelect "+"EndSwitch EndWith Enum Exit ExitLoop For Func "+"Global If In Local Next ReDim Return Select Static "+"Step Switch Then To Until Volatile WEnd While With",LITERAL="True False And Null Not Or",BUILT_IN="Abs ACos AdlibRegister AdlibUnRegister Asc AscW ASin Assign ATan AutoItSetOption AutoItWinGetTitle AutoItWinSetTitle Beep Binary BinaryLen BinaryMid BinaryToString BitAND BitNOT BitOR BitRotate BitShift BitXOR BlockInput Break Call CDTray Ceiling Chr ChrW ClipGet ClipPut ConsoleRead ConsoleWrite ConsoleWriteError ControlClick ControlCommand ControlDisable ControlEnable ControlFocus ControlGetFocus ControlGetHandle ControlGetPos ControlGetText ControlHide ControlListView ControlMove ControlSend ControlSetText ControlShow ControlTreeView Cos Dec DirCopy DirCreate DirGetSize DirMove DirRemove DllCall DllCallAddress DllCallbackFree DllCallbackGetPtr DllCallbackRegister DllClose DllOpen DllStructCreate DllStructGetData DllStructGetPtr DllStructGetSize DllStructSetData DriveGetDrive DriveGetFileSystem DriveGetLabel DriveGetSerial DriveGetType DriveMapAdd DriveMapDel DriveMapGet DriveSetLabel DriveSpaceFree DriveSpaceTotal DriveStatus EnvGet EnvSet EnvUpdate Eval Execute Exp FileChangeDir FileClose FileCopy FileCreateNTFSLink FileCreateShortcut FileDelete FileExists FileFindFirstFile FileFindNextFile FileFlush FileGetAttrib FileGetEncoding FileGetLongName FileGetPos FileGetShortcut FileGetShortName FileGetSize FileGetTime FileGetVersion FileInstall FileMove FileOpen FileOpenDialog FileRead FileReadLine FileReadToArray FileRecycle FileRecycleEmpty FileSaveDialog FileSelectFolder FileSetAttrib FileSetEnd FileSetPos FileSetTime FileWrite FileWriteLine Floor FtpSetProxy FuncName GUICreate GUICtrlCreateAvi GUICtrlCreateButton GUICtrlCreateCheckbox GUICtrlCreateCombo GUICtrlCreateContextMenu GUICtrlCreateDate GUICtrlCreateDummy GUICtrlCreateEdit GUICtrlCreateGraphic GUICtrlCreateGroup GUICtrlCreateIcon GUICtrlCreateInput GUICtrlCreateLabel GUICtrlCreateList GUICtrlCreateListView GUICtrlCreateListViewItem GUICtrlCreateMenu GUICtrlCreateMenuItem GUICtrlCreateMonthCal GUICtrlCreateObj GUICtrlCreatePic GUICtrlCreateProgress GUICtrlCreateRadio GUICtrlCreateSlider GUICtrlCreateTab GUICtrlCreateTabItem GUICtrlCreateTreeView GUICtrlCreateTreeViewItem GUICtrlCreateUpdown GUICtrlDelete GUICtrlGetHandle GUICtrlGetState GUICtrlRead GUICtrlRecvMsg GUICtrlRegisterListViewSort GUICtrlSendMsg GUICtrlSendToDummy GUICtrlSetBkColor GUICtrlSetColor GUICtrlSetCursor GUICtrlSetData GUICtrlSetDefBkColor GUICtrlSetDefColor GUICtrlSetFont GUICtrlSetGraphic GUICtrlSetImage GUICtrlSetLimit GUICtrlSetOnEvent GUICtrlSetPos GUICtrlSetResizing GUICtrlSetState GUICtrlSetStyle GUICtrlSetTip GUIDelete GUIGetCursorInfo GUIGetMsg GUIGetStyle GUIRegisterMsg GUISetAccelerators GUISetBkColor GUISetCoord GUISetCursor GUISetFont GUISetHelp GUISetIcon GUISetOnEvent GUISetState GUISetStyle GUIStartGroup GUISwitch Hex HotKeySet HttpSetProxy HttpSetUserAgent HWnd InetClose InetGet InetGetInfo InetGetSize InetRead IniDelete IniRead IniReadSection IniReadSectionNames IniRenameSection IniWrite IniWriteSection InputBox Int IsAdmin IsArray IsBinary IsBool IsDeclared IsDllStruct IsFloat IsFunc IsHWnd IsInt IsKeyword IsNumber IsObj IsPtr IsString Log MemGetStats Mod MouseClick MouseClickDrag MouseDown MouseGetCursor MouseGetPos MouseMove MouseUp MouseWheel MsgBox Number ObjCreate ObjCreateInterface ObjEvent ObjGet ObjName OnAutoItExitRegister OnAutoItExitUnRegister Ping PixelChecksum PixelGetColor PixelSearch ProcessClose ProcessExists ProcessGetStats ProcessList ProcessSetPriority ProcessWait ProcessWaitClose ProgressOff ProgressOn ProgressSet Ptr Random RegDelete RegEnumKey RegEnumVal RegRead RegWrite Round Run RunAs RunAsWait RunWait Send SendKeepActive SetError SetExtended ShellExecute ShellExecuteWait Shutdown Sin Sleep SoundPlay SoundSetWaveVolume SplashImageOn SplashOff SplashTextOn Sqrt SRandom StatusbarGetText StderrRead StdinWrite StdioClose StdoutRead String StringAddCR StringCompare StringFormat StringFromASCIIArray StringInStr StringIsAlNum StringIsAlpha StringIsASCII StringIsDigit StringIsFloat StringIsInt StringIsLower StringIsSpace StringIsUpper StringIsXDigit StringLeft StringLen StringLower StringMid StringRegExp StringRegExpReplace StringReplace StringReverse StringRight StringSplit StringStripCR StringStripWS StringToASCIIArray StringToBinary StringTrimLeft StringTrimRight StringUpper Tan TCPAccept TCPCloseSocket TCPConnect TCPListen TCPNameToIP TCPRecv TCPSend TCPShutdown, UDPShutdown TCPStartup, UDPStartup TimerDiff TimerInit ToolTip TrayCreateItem TrayCreateMenu TrayGetMsg TrayItemDelete TrayItemGetHandle TrayItemGetState TrayItemGetText TrayItemSetOnEvent TrayItemSetState TrayItemSetText TraySetClick TraySetIcon TraySetOnEvent TraySetPauseIcon TraySetState TraySetToolTip TrayTip UBound UDPBind UDPCloseSocket UDPOpen UDPRecv UDPSend VarGetType WinActivate WinActive WinClose WinExists WinFlash WinGetCaretPos WinGetClassList WinGetClientSize WinGetHandle WinGetPos WinGetProcess WinGetState WinGetText WinGetTitle WinKill WinList WinMenuSelectItem WinMinimizeAll WinMinimizeAllUndo WinMove WinSetOnTop WinSetState WinSetTitle WinSetTrans WinWait",COMMENT={variants:[hljs.COMMENT(";","$",{relevance:0}),hljs.COMMENT("#cs","#ce"),hljs.COMMENT("#comments-start","#comments-end")]},VARIABLE={begin:"\\$[A-z0-9_]+"},STRING={className:"string",variants:[{begin:/"/,end:/"/,contains:[{begin:/""/,relevance:0}]},{begin:/'/,end:/'/,contains:[{begin:/''/,relevance:0}]}]},NUMBER={variants:[hljs.BINARY_NUMBER_MODE,hljs.C_NUMBER_MODE]},PREPROCESSOR={className:"meta",begin:"#",end:"$",keywords:{"meta-keyword":"comments include include-once NoTrayIcon OnAutoItStartRegister pragma compile RequireAdmin"},contains:[{begin:/\\\n/,relevance:0},{beginKeywords:"include",keywords:{"meta-keyword":"include"},end:"$",contains:[STRING,{className:"meta-string",variants:[{begin:"<",end:">"},{begin:/"/,end:/"/,contains:[{begin:/""/,relevance:0}]},{begin:/'/,end:/'/,contains:[{begin:/''/,relevance:0}]}]}]},STRING,COMMENT]},CONSTANT={className:"symbol",begin:"@[A-z0-9_]+"},FUNCTION={className:"function",beginKeywords:"Func",end:"$",illegal:"\\$|\\[|%",contains:[hljs.UNDERSCORE_TITLE_MODE,{className:"params",begin:"\\(",end:"\\)",contains:[VARIABLE,STRING,NUMBER]}]};return{case_insensitive:true,illegal:/\/\*/,keywords:{keyword:KEYWORDS,built_in:BUILT_IN,literal:LITERAL},contains:[COMMENT,VARIABLE,STRING,NUMBER,PREPROCESSOR,CONSTANT,FUNCTION]}});hljs.registerLanguage("less",function(hljs){var IDENT_RE="[\\w-]+";var INTERP_IDENT_RE="("+IDENT_RE+"|@{"+IDENT_RE+"})";var RULES=[],VALUE=[];var STRING_MODE=function(c){return{className:"string",begin:"~?"+c+".*?"+c}};var IDENT_MODE=function(name,begin,relevance){return{className:name,begin:begin,relevance:relevance}};var PARENS_MODE={begin:"\\(",end:"\\)",contains:VALUE,relevance:0};VALUE.push(hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,STRING_MODE("'"),STRING_MODE('"'),hljs.CSS_NUMBER_MODE,{begin:"(url|data-uri)\\(",starts:{className:"string",end:"[\\)\\n]",excludeEnd:true}},IDENT_MODE("number","#[0-9A-Fa-f]+\\b"),PARENS_MODE,IDENT_MODE("variable","@@?"+IDENT_RE,10),IDENT_MODE("variable","@{"+IDENT_RE+"}"),IDENT_MODE("built_in","~?`[^`]*?`"),{className:"attribute",begin:IDENT_RE+"\\s*:",end:":",returnBegin:true,excludeEnd:true},{className:"meta",begin:"!important"});var VALUE_WITH_RULESETS=VALUE.concat({begin:"{",end:"}",contains:RULES});var MIXIN_GUARD_MODE={beginKeywords:"when",endsWithParent:true,contains:[{beginKeywords:"and not"}].concat(VALUE)};var RULE_MODE={begin:INTERP_IDENT_RE+"\\s*:",returnBegin:true,end:"[;}]",relevance:0,contains:[{className:"attribute",begin:INTERP_IDENT_RE,end:":",excludeEnd:true,starts:{endsWithParent:true,illegal:"[<=$]",relevance:0,contains:VALUE}}]};var AT_RULE_MODE={className:"keyword",begin:"@(import|media|charset|font-face|(-[a-z]+-)?keyframes|supports|document|namespace|page|viewport|host)\\b",starts:{end:"[;{}]",returnEnd:true,contains:VALUE,relevance:0}};var VAR_RULE_MODE={className:"variable",variants:[{begin:"@"+IDENT_RE+"\\s*:",relevance:15},{begin:"@"+IDENT_RE}],starts:{end:"[;}]",returnEnd:true,contains:VALUE_WITH_RULESETS}};var SELECTOR_MODE={variants:[{begin:"[\\.#:&\\[>]",end:"[;{}]"},{begin:INTERP_IDENT_RE,end:"{"}],returnBegin:true,returnEnd:true,illegal:"[<='$\"]",relevance:0,contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,MIXIN_GUARD_MODE,IDENT_MODE("keyword","all\\b"),IDENT_MODE("variable","@{"+IDENT_RE+"}"),IDENT_MODE("selector-tag",INTERP_IDENT_RE+"%?",0),IDENT_MODE("selector-id","#"+INTERP_IDENT_RE),IDENT_MODE("selector-class","\\."+INTERP_IDENT_RE,0),IDENT_MODE("selector-tag","&",0),{className:"selector-attr",begin:"\\[",end:"\\]"},{className:"selector-pseudo",begin:/:(:)?[a-zA-Z0-9\_\-\+\(\)"'.]+/},{begin:"\\(",end:"\\)",contains:VALUE_WITH_RULESETS},{begin:"!important"}]};RULES.push(hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,AT_RULE_MODE,VAR_RULE_MODE,RULE_MODE,SELECTOR_MODE);return{case_insensitive:true,illegal:"[=>'/<($\"]",contains:RULES}});hljs.registerLanguage("tp",function(hljs){var TPID={className:"number",begin:"[1-9][0-9]*",relevance:0};var TPLABEL={className:"symbol",begin:":[^\\]]+"};var TPDATA={className:"built_in",begin:"(AR|P|PAYLOAD|PR|R|SR|RSR|LBL|VR|UALM|MESSAGE|UTOOL|UFRAME|TIMER|"+"TIMER_OVERFLOW|JOINT_MAX_SPEED|RESUME_PROG|DIAG_REC)\\[",end:"\\]",contains:["self",TPID,TPLABEL]};var TPIO={className:"built_in",begin:"(AI|AO|DI|DO|F|RI|RO|UI|UO|GI|GO|SI|SO)\\[",end:"\\]",contains:["self",TPID,hljs.QUOTE_STRING_MODE,TPLABEL]};return{keywords:{keyword:"ABORT ACC ADJUST AND AP_LD BREAK CALL CNT COL CONDITION CONFIG DA DB "+"DIV DETECT ELSE END ENDFOR ERR_NUM ERROR_PROG FINE FOR GP GUARD INC "+"IF JMP LINEAR_MAX_SPEED LOCK MOD MONITOR OFFSET Offset OR OVERRIDE "+"PAUSE PREG PTH RT_LD RUN SELECT SKIP Skip TA TB TO TOOL_OFFSET "+"Tool_Offset UF UT UFRAME_NUM UTOOL_NUM UNLOCK WAIT X Y Z W P R STRLEN "+"SUBSTR FINDSTR VOFFSET PROG ATTR MN POS",literal:"ON OFF max_speed LPOS JPOS ENABLE DISABLE START STOP RESET"},contains:[TPDATA,TPIO,{className:"keyword",begin:"/(PROG|ATTR|MN|POS|END)\\b"},{className:"keyword",begin:"(CALL|RUN|POINT_LOGIC|LBL)\\b"},{className:"keyword",begin:"\\b(ACC|CNT|Skip|Offset|PSPD|RT_LD|AP_LD|Tool_Offset)"},{className:"number",begin:"\\d+(sec|msec|mm/sec|cm/min|inch/min|deg/sec|mm|in|cm)?\\b",relevance:0},hljs.COMMENT("//","[;$]"),hljs.COMMENT("!","[;$]"),hljs.COMMENT("--eg:","$"),hljs.QUOTE_STRING_MODE,{className:"string",begin:"'",end:"'"},hljs.C_NUMBER_MODE,{className:"variable",begin:"\\$[A-Za-z0-9_]+"}]}});hljs.registerLanguage("cos",function cos(hljs){var STRINGS={className:"string",variants:[{begin:'"',end:'"',contains:[{begin:'""',relevance:0}]}]};var NUMBERS={className:"number",begin:"\\b(\\d+(\\.\\d*)?|\\.\\d+)",relevance:0};var COS_KEYWORDS="property parameter class classmethod clientmethod extends as break "+"catch close continue do d|0 else elseif for goto halt hang h|0 if job "+"j|0 kill k|0 lock l|0 merge new open quit q|0 read r|0 return set s|0 "+"tcommit throw trollback try tstart use view while write w|0 xecute x|0 "+"zkill znspace zn ztrap zwrite zw zzdump zzwrite print zbreak zinsert "+"zload zprint zremove zsave zzprint mv mvcall mvcrt mvdim mvprint zquit "+"zsync ascii";return{case_insensitive:true,aliases:["cos","cls"],keywords:COS_KEYWORDS,contains:[NUMBERS,STRINGS,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,{className:"comment",begin:/;/,end:"$",relevance:0},{className:"built_in",begin:/(?:\$\$?|\.\.)\^?[a-zA-Z]+/},{className:"built_in",begin:/\$\$\$[a-zA-Z]+/},{className:"built_in",begin:/%[a-z]+(?:\.[a-z]+)*/},{className:"symbol",begin:/\^%?[a-zA-Z][\w]*/},{className:"keyword",begin:/##class|##super|#define|#dim/},{begin:/&sql\(/,end:/\)/,excludeBegin:true,excludeEnd:true,subLanguage:"sql"},{begin:/&(js|jscript|javascript)</,end:/>/,excludeBegin:true,excludeEnd:true,subLanguage:"javascript"},{begin:/&html<\s*</,end:/>\s*>/,subLanguage:"xml"}]}});hljs.registerLanguage("erlang-repl",function(hljs){return{keywords:{built_in:"spawn spawn_link self",keyword:"after and andalso|10 band begin bnot bor bsl bsr bxor case catch cond div end fun if "+"let not of or orelse|10 query receive rem try when xor"},contains:[{className:"meta",begin:"^[0-9]+> ",relevance:10},hljs.COMMENT("%","$"),{className:"number",begin:"\\b(\\d+#[a-fA-F0-9]+|\\d+(\\.\\d+)?([eE][-+]?\\d+)?)",relevance:0},hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,{begin:"\\?(::)?([A-Z]\\w*(::)?)+"},{begin:"->"},{begin:"ok"},{begin:"!"},{begin:"(\\b[a-z'][a-zA-Z0-9_']*:[a-z'][a-zA-Z0-9_']*)|(\\b[a-z'][a-zA-Z0-9_']*)",relevance:0},{begin:"[A-Z][a-zA-Z0-9_']*",relevance:0}]}});hljs.registerLanguage("vbscript",function(hljs){return{aliases:["vbs"],case_insensitive:true,keywords:{keyword:"call class const dim do loop erase execute executeglobal exit for each next function "+"if then else on error option explicit new private property let get public randomize "+"redim rem select case set stop sub while wend with end to elseif is or xor and not "+"class_initialize class_terminate default preserve in me byval byref step resume goto",built_in:"lcase month vartype instrrev ubound setlocale getobject rgb getref string "+"weekdayname rnd dateadd monthname now day minute isarray cbool round formatcurrency "+"conversions csng timevalue second year space abs clng timeserial fixs len asc "+"isempty maths dateserial atn timer isobject filter weekday datevalue ccur isdate "+"instr datediff formatdatetime replace isnull right sgn array snumeric log cdbl hex "+"chr lbound msgbox ucase getlocale cos cdate cbyte rtrim join hour oct typename trim "+"strcomp int createobject loadpicture tan formatnumber mid scriptenginebuildversion "+"scriptengine split scriptengineminorversion cint sin datepart ltrim sqr "+"scriptenginemajorversion time derived eval date formatpercent exp inputbox left ascw "+"chrw regexp server response request cstr err",literal:"true false null nothing empty"},illegal:"//",contains:[hljs.inherit(hljs.QUOTE_STRING_MODE,{contains:[{begin:'""'}]}),hljs.COMMENT(/'/,/$/,{relevance:0}),hljs.C_NUMBER_MODE]}});hljs.registerLanguage("vbscript-html",function(hljs){return{subLanguage:"xml",contains:[{begin:"<%",end:"%>",subLanguage:"vbscript"}]}});hljs.registerLanguage("twig",function(hljs){var PARAMS={className:"params",begin:"\\(",end:"\\)"};var FUNCTION_NAMES="attribute block constant cycle date dump include "+"max min parent random range source template_from_string";var FUNCTIONS={beginKeywords:FUNCTION_NAMES,keywords:{name:FUNCTION_NAMES},relevance:0,contains:[PARAMS]};var FILTER={begin:/\|[A-Za-z_]+:?/,keywords:"abs batch capitalize column convert_encoding date date_modify default "+"escape filter first format inky_to_html inline_css join json_encode keys last "+"length lower map markdown merge nl2br number_format raw reduce replace "+"reverse round slice sort spaceless split striptags title trim upper url_encode",contains:[FUNCTIONS]};var TAGS="apply autoescape block deprecated do embed extends filter flush for from "+"if import include macro sandbox set use verbatim with";TAGS=TAGS+" "+TAGS.split(" ").map(function(t){return"end"+t}).join(" ");return{aliases:["craftcms"],case_insensitive:true,subLanguage:"xml",contains:[hljs.COMMENT(/\{#/,/#}/),{className:"template-tag",begin:/\{%/,end:/%}/,contains:[{className:"name",begin:/\w+/,keywords:TAGS,starts:{endsWithParent:true,contains:[FILTER,FUNCTIONS],relevance:0}}]},{className:"template-variable",begin:/\{\{/,end:/}}/,contains:["self",FILTER,FUNCTIONS]}]}});hljs.registerLanguage("cmake",function(hljs){return{aliases:["cmake.in"],case_insensitive:true,keywords:{keyword:"break cmake_host_system_information cmake_minimum_required cmake_parse_arguments "+"cmake_policy configure_file continue elseif else endforeach endfunction endif endmacro "+"endwhile execute_process file find_file find_library find_package find_path "+"find_program foreach function get_cmake_property get_directory_property "+"get_filename_component get_property if include include_guard list macro "+"mark_as_advanced math message option return separate_arguments "+"set_directory_properties set_property set site_name string unset variable_watch while "+"add_compile_definitions add_compile_options add_custom_command add_custom_target "+"add_definitions add_dependencies add_executable add_library add_link_options "+"add_subdirectory add_test aux_source_directory build_command create_test_sourcelist "+"define_property enable_language enable_testing export fltk_wrap_ui "+"get_source_file_property get_target_property get_test_property include_directories "+"include_external_msproject include_regular_expression install link_directories "+"link_libraries load_cache project qt_wrap_cpp qt_wrap_ui remove_definitions "+"set_source_files_properties set_target_properties set_tests_properties source_group "+"target_compile_definitions target_compile_features target_compile_options "+"target_include_directories target_link_directories target_link_libraries "+"target_link_options target_sources try_compile try_run "+"ctest_build ctest_configure ctest_coverage ctest_empty_binary_directory ctest_memcheck "+"ctest_read_custom_files ctest_run_script ctest_sleep ctest_start ctest_submit "+"ctest_test ctest_update ctest_upload "+"build_name exec_program export_library_dependencies install_files install_programs "+"install_targets load_command make_directory output_required_files remove "+"subdir_depends subdirs use_mangled_mesa utility_source variable_requires write_file "+"qt5_use_modules qt5_use_package qt5_wrap_cpp "+"on off true false and or not command policy target test exists is_newer_than "+"is_directory is_symlink is_absolute matches less greater equal less_equal "+"greater_equal strless strgreater strequal strless_equal strgreater_equal version_less "+"version_greater version_equal version_less_equal version_greater_equal in_list defined"},contains:[{className:"variable",begin:"\\${",end:"}"},hljs.HASH_COMMENT_MODE,hljs.QUOTE_STRING_MODE,hljs.NUMBER_MODE]}});hljs.registerLanguage("handlebars",function(hljs){var BUILT_INS={"builtin-name":"each in with if else unless bindattr action collection debugger log outlet template unbound view yield lookup"};var IDENTIFIER_PLAIN_OR_QUOTED={begin:/".*?"|'.*?'|\[.*?\]|\w+/};var EXPRESSION_OR_HELPER_CALL=hljs.inherit(IDENTIFIER_PLAIN_OR_QUOTED,{keywords:BUILT_INS,starts:{endsWithParent:true,relevance:0,contains:[hljs.inherit(IDENTIFIER_PLAIN_OR_QUOTED,{relevance:0})]}});var BLOCK_MUSTACHE_CONTENTS=hljs.inherit(EXPRESSION_OR_HELPER_CALL,{className:"name"});var BASIC_MUSTACHE_CONTENTS=hljs.inherit(EXPRESSION_OR_HELPER_CALL,{relevance:0});var ESCAPE_MUSTACHE_WITH_PRECEEDING_BACKSLASH={begin:/\\\{\{/,skip:true};var PREVENT_ESCAPE_WITH_ANOTHER_PRECEEDING_BACKSLASH={begin:/\\\\(?=\{\{)/,skip:true};return{aliases:["hbs","html.hbs","html.handlebars"],case_insensitive:true,subLanguage:"xml",contains:[ESCAPE_MUSTACHE_WITH_PRECEEDING_BACKSLASH,PREVENT_ESCAPE_WITH_ANOTHER_PRECEEDING_BACKSLASH,hljs.COMMENT(/\{\{!--/,/--\}\}/),hljs.COMMENT(/\{\{!/,/\}\}/),{className:"template-tag",begin:/\{\{\{\{(?!\/)/,end:/\}\}\}\}/,contains:[BLOCK_MUSTACHE_CONTENTS],starts:{end:/\{\{\{\{\//,returnEnd:true,subLanguage:"xml"}},{className:"template-tag",begin:/\{\{\{\{\//,end:/\}\}\}\}/,contains:[BLOCK_MUSTACHE_CONTENTS]},{className:"template-tag",begin:/\{\{[#\/]/,end:/\}\}/,contains:[BLOCK_MUSTACHE_CONTENTS]},{className:"template-variable",begin:/\{\{\{/,end:/\}\}\}/,keywords:BUILT_INS,contains:[BASIC_MUSTACHE_CONTENTS]},{className:"template-variable",begin:/\{\{/,end:/\}\}/,keywords:BUILT_INS,contains:[BASIC_MUSTACHE_CONTENTS]}]}});hljs.registerLanguage("delphi",function(hljs){var KEYWORDS="exports register file shl array record property for mod while set ally label uses raise not "+"stored class safecall var interface or private static exit index inherited to else stdcall "+"override shr asm far resourcestring finalization packed virtual out and protected library do "+"xorwrite goto near function end div overload object unit begin string on inline repeat until "+"destructor write message program with read initialization except default nil if case cdecl in "+"downto threadvar of try pascal const external constructor type public then implementation "+"finally published procedure absolute reintroduce operator as is abstract alias assembler "+"bitpacked break continue cppdecl cvar enumerator experimental platform deprecated "+"unimplemented dynamic export far16 forward generic helper implements interrupt iochecks "+"local name nodefault noreturn nostackframe oldfpccall otherwise saveregisters softfloat "+"specialize strict unaligned varargs ";var COMMENT_MODES=[hljs.C_LINE_COMMENT_MODE,hljs.COMMENT(/\{/,/\}/,{relevance:0}),hljs.COMMENT(/\(\*/,/\*\)/,{relevance:10})];var DIRECTIVE={className:"meta",variants:[{begin:/\{\$/,end:/\}/},{begin:/\(\*\$/,end:/\*\)/}]};var STRING={className:"string",begin:/'/,end:/'/,contains:[{begin:/''/}]};var CHAR_STRING={className:"string",begin:/(#\d+)+/};var CLASS={begin:hljs.IDENT_RE+"\\s*=\\s*class\\s*\\(",returnBegin:true,contains:[hljs.TITLE_MODE]};var FUNCTION={className:"function",beginKeywords:"function constructor destructor procedure",end:/[:;]/,keywords:"function constructor|10 destructor|10 procedure|10",contains:[hljs.TITLE_MODE,{className:"params",begin:/\(/,end:/\)/,keywords:KEYWORDS,contains:[STRING,CHAR_STRING,DIRECTIVE].concat(COMMENT_MODES)},DIRECTIVE].concat(COMMENT_MODES)};return{aliases:["dpr","dfm","pas","pascal","freepascal","lazarus","lpr","lfm"],case_insensitive:true,keywords:KEYWORDS,illegal:/"|\$[G-Zg-z]|\/\*|<\/|\|/,contains:[STRING,CHAR_STRING,hljs.NUMBER_MODE,CLASS,FUNCTION,DIRECTIVE].concat(COMMENT_MODES)}});hljs.registerLanguage("javascript",function(hljs){var FRAGMENT={begin:"<>",end:"</>"};var XML_TAG={begin:/<[A-Za-z0-9\\._:-]+/,end:/\/[A-Za-z0-9\\._:-]+>|\/>/};var IDENT_RE="[A-Za-z$_][0-9A-Za-z$_]*";var KEYWORDS={keyword:"in of if for while finally var new function do return void else break catch "+"instanceof with throw case default try this switch continue typeof delete "+"let yield const export super debugger as async await static "+"import from as",literal:"true false null undefined NaN Infinity",built_in:"eval isFinite isNaN parseFloat parseInt decodeURI decodeURIComponent "+"encodeURI encodeURIComponent escape unescape Object Function Boolean Error "+"EvalError InternalError RangeError ReferenceError StopIteration SyntaxError "+"TypeError URIError Number Math Date String RegExp Array Float32Array "+"Float64Array Int16Array Int32Array Int8Array Uint16Array Uint32Array "+"Uint8Array Uint8ClampedArray ArrayBuffer DataView JSON Intl arguments require "+"module console window document Symbol Set Map WeakSet WeakMap Proxy Reflect "+"Promise"};var NUMBER={className:"number",variants:[{begin:"\\b(0[bB][01]+)n?"},{begin:"\\b(0[oO][0-7]+)n?"},{begin:hljs.C_NUMBER_RE+"n?"}],relevance:0};var SUBST={className:"subst",begin:"\\$\\{",end:"\\}",keywords:KEYWORDS,contains:[]};var HTML_TEMPLATE={begin:"html`",end:"",starts:{end:"`",returnEnd:false,contains:[hljs.BACKSLASH_ESCAPE,SUBST],subLanguage:"xml"}};var CSS_TEMPLATE={begin:"css`",end:"",starts:{end:"`",returnEnd:false,contains:[hljs.BACKSLASH_ESCAPE,SUBST],subLanguage:"css"}};var TEMPLATE_STRING={className:"string",begin:"`",end:"`",contains:[hljs.BACKSLASH_ESCAPE,SUBST]};SUBST.contains=[hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,HTML_TEMPLATE,CSS_TEMPLATE,TEMPLATE_STRING,NUMBER,hljs.REGEXP_MODE];var PARAMS_CONTAINS=SUBST.contains.concat([hljs.C_BLOCK_COMMENT_MODE,hljs.C_LINE_COMMENT_MODE]);return{aliases:["js","jsx","mjs","cjs"],keywords:KEYWORDS,contains:[{className:"meta",relevance:10,begin:/^\s*['"]use (strict|asm)['"]/},{className:"meta",begin:/^#!/,end:/$/},hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,HTML_TEMPLATE,CSS_TEMPLATE,TEMPLATE_STRING,hljs.C_LINE_COMMENT_MODE,hljs.COMMENT("/\\*\\*","\\*/",{relevance:0,contains:[{className:"doctag",begin:"@[A-Za-z]+",contains:[{className:"type",begin:"\\{",end:"\\}",relevance:0},{className:"variable",begin:IDENT_RE+"(?=\\s*(-)|$)",endsParent:true,relevance:0},{begin:/(?=[^\n])\s/,relevance:0}]}]}),hljs.C_BLOCK_COMMENT_MODE,NUMBER,{begin:/[{,\n]\s*/,relevance:0,contains:[{begin:IDENT_RE+"\\s*:",returnBegin:true,relevance:0,contains:[{className:"attr",begin:IDENT_RE,relevance:0}]}]},{begin:"("+hljs.RE_STARTERS_RE+"|\\b(case|return|throw)\\b)\\s*",keywords:"return throw case",contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.REGEXP_MODE,{className:"function",begin:"(\\(.*?\\)|"+IDENT_RE+")\\s*=>",returnBegin:true,end:"\\s*=>",contains:[{className:"params",variants:[{begin:IDENT_RE},{begin:/\(\s*\)/},{begin:/\(/,end:/\)/,excludeBegin:true,excludeEnd:true,keywords:KEYWORDS,contains:PARAMS_CONTAINS}]}]},{className:"",begin:/\s/,end:/\s*/,skip:true},{variants:[{begin:FRAGMENT.begin,end:FRAGMENT.end},{begin:XML_TAG.begin,end:XML_TAG.end}],subLanguage:"xml",contains:[{begin:XML_TAG.begin,end:XML_TAG.end,skip:true,contains:["self"]}]}],relevance:0},{className:"function",beginKeywords:"function",end:/\{/,excludeEnd:true,contains:[hljs.inherit(hljs.TITLE_MODE,{begin:IDENT_RE}),{className:"params",begin:/\(/,end:/\)/,excludeBegin:true,excludeEnd:true,contains:PARAMS_CONTAINS}],illegal:/\[|%/},{begin:/\$[(.]/},hljs.METHOD_GUARD,{className:"class",beginKeywords:"class",end:/[{;=]/,excludeEnd:true,illegal:/[:"\[\]]/,contains:[{beginKeywords:"extends"},hljs.UNDERSCORE_TITLE_MODE]},{beginKeywords:"constructor get set",end:/\{/,excludeEnd:true}],illegal:/#(?!!)/}});hljs.registerLanguage("rust",function(hljs){var NUM_SUFFIX="([ui](8|16|32|64|128|size)|f(32|64))?";var KEYWORDS="abstract as async await become box break const continue crate do dyn "+"else enum extern false final fn for if impl in let loop macro match mod "+"move mut override priv pub ref return self Self static struct super "+"trait true try type typeof unsafe unsized use virtual where while yield";var BUILTINS="drop "+"i8 i16 i32 i64 i128 isize "+"u8 u16 u32 u64 u128 usize "+"f32 f64 "+"str char bool "+"Box Option Result String Vec "+"Copy Send Sized Sync Drop Fn FnMut FnOnce ToOwned Clone Debug "+"PartialEq PartialOrd Eq Ord AsRef AsMut Into From Default Iterator "+"Extend IntoIterator DoubleEndedIterator ExactSizeIterator "+"SliceConcatExt ToString "+"assert! assert_eq! bitflags! bytes! cfg! col! concat! concat_idents! "+"debug_assert! debug_assert_eq! env! panic! file! format! format_args! "+"include_bin! include_str! line! local_data_key! module_path! "+"option_env! print! println! select! stringify! try! unimplemented! "+"unreachable! vec! write! writeln! macro_rules! assert_ne! debug_assert_ne!";return{aliases:["rs"],keywords:{keyword:KEYWORDS,literal:"true false Some None Ok Err",built_in:BUILTINS},lexemes:hljs.IDENT_RE+"!?",illegal:"</",contains:[hljs.C_LINE_COMMENT_MODE,hljs.COMMENT("/\\*","\\*/",{contains:["self"]}),hljs.inherit(hljs.QUOTE_STRING_MODE,{begin:/b?"/,illegal:null}),{className:"string",variants:[{begin:/r(#*)"(.|\n)*?"\1(?!#)/},{begin:/b?'\\?(x\w{2}|u\w{4}|U\w{8}|.)'/}]},{className:"symbol",begin:/'[a-zA-Z_][a-zA-Z0-9_]*/},{className:"number",variants:[{begin:"\\b0b([01_]+)"+NUM_SUFFIX},{begin:"\\b0o([0-7_]+)"+NUM_SUFFIX},{begin:"\\b0x([A-Fa-f0-9_]+)"+NUM_SUFFIX},{begin:"\\b(\\d[\\d_]*(\\.[0-9_]+)?([eE][+-]?[0-9_]+)?)"+NUM_SUFFIX}],relevance:0},{className:"function",beginKeywords:"fn",end:"(\\(|<)",excludeEnd:true,contains:[hljs.UNDERSCORE_TITLE_MODE]},{className:"meta",begin:"#\\!?\\[",end:"\\]",contains:[{className:"meta-string",begin:/"/,end:/"/}]},{className:"class",beginKeywords:"type",end:";",contains:[hljs.inherit(hljs.UNDERSCORE_TITLE_MODE,{endsParent:true})],illegal:"\\S"},{className:"class",beginKeywords:"trait enum struct union",end:"{",contains:[hljs.inherit(hljs.UNDERSCORE_TITLE_MODE,{endsParent:true})],illegal:"[\\w\\d]"},{begin:hljs.IDENT_RE+"::",keywords:{built_in:BUILTINS}},{begin:"->"}]}});hljs.registerLanguage("diff",function(hljs){return{aliases:["patch"],contains:[{className:"meta",relevance:10,variants:[{begin:/^@@ +\-\d+,\d+ +\+\d+,\d+ +@@$/},{begin:/^\*\*\* +\d+,\d+ +\*\*\*\*$/},{begin:/^\-\-\- +\d+,\d+ +\-\-\-\-$/}]},{className:"comment",variants:[{begin:/Index: /,end:/$/},{begin:/={3,}/,end:/$/},{begin:/^\-{3}/,end:/$/},{begin:/^\*{3} /,end:/$/},{begin:/^\+{3}/,end:/$/},{begin:/^\*{15}$/}]},{className:"addition",begin:"^\\+",end:"$"},{className:"deletion",begin:"^\\-",end:"$"},{className:"addition",begin:"^\\!",end:"$"}]}});hljs.registerLanguage("thrift",function(hljs){var BUILT_IN_TYPES="bool byte i16 i32 i64 double string binary";return{keywords:{keyword:"namespace const typedef struct enum service exception void oneway set list map required optional",built_in:BUILT_IN_TYPES,literal:"true false"},contains:[hljs.QUOTE_STRING_MODE,hljs.NUMBER_MODE,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,{className:"class",beginKeywords:"struct enum service exception",end:/\{/,illegal:/\n/,contains:[hljs.inherit(hljs.TITLE_MODE,{starts:{endsWithParent:true,excludeEnd:true}})]},{begin:"\\b(set|list|map)\\s*<",end:">",keywords:BUILT_IN_TYPES,contains:["self"]}]}});hljs.registerLanguage("accesslog",function(hljs){var HTTP_VERBS=["GET","POST","HEAD","PUT","DELETE","CONNECT","OPTIONS","PATCH","TRACE"];return{contains:[{className:"number",begin:"^\\d{1,3}\\.\\d{1,3}\\.\\d{1,3}\\.\\d{1,3}(:\\d{1,5})?\\b",relevance:5},{className:"number",begin:"\\b\\d+\\b",relevance:0},{className:"string",begin:'"('+HTTP_VERBS.join("|")+")",end:'"',keywords:HTTP_VERBS.join(" "),illegal:"\\n",relevance:5,contains:[{begin:"HTTP/[12]\\.\\d",relevance:5}]},{className:"string",begin:/\[\d[^\]\n]{8,}\]/,illegal:"\\n",relevance:1},{className:"string",begin:/\[/,end:/\]/,illegal:"\\n",relevance:0},{className:"string",begin:'"Mozilla/\\d\\.\\d \\(',end:'"',illegal:"\\n",relevance:3},{className:"string",begin:'"',end:'"',illegal:"\\n",relevance:0}]}});hljs.registerLanguage("tex",function(hljs){var COMMAND={className:"tag",begin:/\\/,relevance:0,contains:[{className:"name",variants:[{begin:/[a-zA-Z\u0430-\u044f\u0410-\u042f]+[*]?/},{begin:/[^a-zA-Z\u0430-\u044f\u0410-\u042f0-9]/}],starts:{endsWithParent:true,relevance:0,contains:[{className:"string",variants:[{begin:/\[/,end:/\]/},{begin:/\{/,end:/\}/}]},{begin:/\s*=\s*/,endsWithParent:true,relevance:0,contains:[{className:"number",begin:/-?\d*\.?\d+(pt|pc|mm|cm|in|dd|cc|ex|em)?/}]}]}}]};return{contains:[COMMAND,{className:"formula",contains:[COMMAND],relevance:0,variants:[{begin:/\$\$/,end:/\$\$/},{begin:/\$/,end:/\$/}]},hljs.COMMENT("%","$",{relevance:0})]}});hljs.registerLanguage("livescript",function(hljs){var KEYWORDS={keyword:"in if for while finally new do return else break catch instanceof throw try this "+"switch continue typeof delete debugger case default function var with "+"then unless until loop of by when and or is isnt not it that otherwise from to til fallthrough super "+"case default function var void const let enum export import native list map "+"__hasProp __extends __slice __bind __indexOf",literal:"true false null undefined "+"yes no on off it that void",built_in:"npm require console print module global window document"};var JS_IDENT_RE="[A-Za-z$_](?:-[0-9A-Za-z$_]|[0-9A-Za-z$_])*";var TITLE=hljs.inherit(hljs.TITLE_MODE,{begin:JS_IDENT_RE});var SUBST={className:"subst",begin:/#\{/,end:/}/,keywords:KEYWORDS};var SUBST_SIMPLE={className:"subst",begin:/#[A-Za-z$_]/,end:/(?:\-[0-9A-Za-z$_]|[0-9A-Za-z$_])*/,keywords:KEYWORDS};var EXPRESSIONS=[hljs.BINARY_NUMBER_MODE,{className:"number",begin:"(\\b0[xX][a-fA-F0-9_]+)|(\\b\\d(\\d|_\\d)*(\\.(\\d(\\d|_\\d)*)?)?(_*[eE]([-+]\\d(_\\d|\\d)*)?)?[_a-z]*)",relevance:0,starts:{end:"(\\s*/)?",relevance:0}},{className:"string",variants:[{begin:/'''/,end:/'''/,contains:[hljs.BACKSLASH_ESCAPE]},{begin:/'/,end:/'/,contains:[hljs.BACKSLASH_ESCAPE]},{begin:/"""/,end:/"""/,contains:[hljs.BACKSLASH_ESCAPE,SUBST,SUBST_SIMPLE]},{begin:/"/,end:/"/,contains:[hljs.BACKSLASH_ESCAPE,SUBST,SUBST_SIMPLE]},{begin:/\\/,end:/(\s|$)/,excludeEnd:true}]},{className:"regexp",variants:[{begin:"//",end:"//[gim]*",contains:[SUBST,hljs.HASH_COMMENT_MODE]},{begin:/\/(?![ *])(\\.|[^\\\n])*?\/[gim]*(?=\W)/}]},{begin:"@"+JS_IDENT_RE},{begin:"``",end:"``",excludeBegin:true,excludeEnd:true,subLanguage:"javascript"}];SUBST.contains=EXPRESSIONS;var PARAMS={className:"params",begin:"\\(",returnBegin:true,contains:[{begin:/\(/,end:/\)/,keywords:KEYWORDS,contains:["self"].concat(EXPRESSIONS)}]};var SYMBOLS={begin:"(#=>|=>|\\|>>|-?->|\\!->)"};return{aliases:["ls"],keywords:KEYWORDS,illegal:/\/\*/,contains:EXPRESSIONS.concat([hljs.COMMENT("\\/\\*","\\*\\/"),hljs.HASH_COMMENT_MODE,SYMBOLS,{className:"function",contains:[TITLE,PARAMS],returnBegin:true,variants:[{begin:"("+JS_IDENT_RE+"\\s*(?:=|:=)\\s*)?(\\(.*\\))?\\s*\\B\\->\\*?",end:"\\->\\*?"},{begin:"("+JS_IDENT_RE+"\\s*(?:=|:=)\\s*)?!?(\\(.*\\))?\\s*\\B[-~]{1,2}>\\*?",end:"[-~]{1,2}>\\*?"},{begin:"("+JS_IDENT_RE+"\\s*(?:=|:=)\\s*)?(\\(.*\\))?\\s*\\B!?[-~]{1,2}>\\*?",end:"!?[-~]{1,2}>\\*?"}]},{className:"class",beginKeywords:"class",end:"$",illegal:/[:="\[\]]/,contains:[{beginKeywords:"extends",endsWithParent:true,illegal:/[:="\[\]]/,contains:[TITLE]},TITLE]},{begin:JS_IDENT_RE+":",end:":",returnBegin:true,returnEnd:true,relevance:0}])}});hljs.registerLanguage("apache",function(hljs){var NUMBER={className:"number",begin:"[\\$%]\\d+"};return{aliases:["apacheconf"],case_insensitive:true,contains:[hljs.HASH_COMMENT_MODE,{className:"section",begin:"</?",end:">"},{className:"attribute",begin:/\w+/,relevance:0,keywords:{nomarkup:"order deny allow setenv rewriterule rewriteengine rewritecond documentroot "+"sethandler errordocument loadmodule options header listen serverroot "+"servername"},starts:{end:/$/,relevance:0,keywords:{literal:"on off all"},contains:[{className:"meta",begin:"\\s\\[",end:"\\]$"},{className:"variable",begin:"[\\$%]\\{",end:"\\}",contains:["self",NUMBER]},NUMBER,hljs.QUOTE_STRING_MODE]}}],illegal:/\S/}});hljs.registerLanguage("typescript",function(hljs){var JS_IDENT_RE="[A-Za-z$_][0-9A-Za-z$_]*";var KEYWORDS={keyword:"in if for while finally var new function do return void else break catch "+"instanceof with throw case default try this switch continue typeof delete "+"let yield const class public private protected get set super "+"static implements enum export import declare type namespace abstract "+"as from extends async await",literal:"true false null undefined NaN Infinity",built_in:"eval isFinite isNaN parseFloat parseInt decodeURI decodeURIComponent "+"encodeURI encodeURIComponent escape unescape Object Function Boolean Error "+"EvalError InternalError RangeError ReferenceError StopIteration SyntaxError "+"TypeError URIError Number Math Date String RegExp Array Float32Array "+"Float64Array Int16Array Int32Array Int8Array Uint16Array Uint32Array "+"Uint8Array Uint8ClampedArray ArrayBuffer DataView JSON Intl arguments require "+"module console window document any number boolean string void Promise"};var DECORATOR={className:"meta",begin:"@"+JS_IDENT_RE};var ARGS={begin:"\\(",end:/\)/,keywords:KEYWORDS,contains:["self",hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE,hljs.NUMBER_MODE]};var PARAMS={className:"params",begin:/\(/,end:/\)/,excludeBegin:true,excludeEnd:true,keywords:KEYWORDS,contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,DECORATOR,ARGS]};var NUMBER={className:"number",variants:[{begin:"\\b(0[bB][01]+)n?"},{begin:"\\b(0[oO][0-7]+)n?"},{begin:hljs.C_NUMBER_RE+"n?"}],relevance:0};var SUBST={className:"subst",begin:"\\$\\{",end:"\\}",keywords:KEYWORDS,contains:[]};var HTML_TEMPLATE={begin:"html`",end:"",starts:{end:"`",returnEnd:false,contains:[hljs.BACKSLASH_ESCAPE,SUBST],subLanguage:"xml"}};var CSS_TEMPLATE={begin:"css`",end:"",starts:{end:"`",returnEnd:false,contains:[hljs.BACKSLASH_ESCAPE,SUBST],subLanguage:"css"}};var TEMPLATE_STRING={className:"string",begin:"`",end:"`",contains:[hljs.BACKSLASH_ESCAPE,SUBST]};SUBST.contains=[hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,HTML_TEMPLATE,CSS_TEMPLATE,TEMPLATE_STRING,NUMBER,hljs.REGEXP_MODE];return{aliases:["ts"],keywords:KEYWORDS,contains:[{className:"meta",begin:/^\s*['"]use strict['"]/},hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,HTML_TEMPLATE,CSS_TEMPLATE,TEMPLATE_STRING,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,NUMBER,{begin:"("+hljs.RE_STARTERS_RE+"|\\b(case|return|throw)\\b)\\s*",keywords:"return throw case",contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.REGEXP_MODE,{className:"function",begin:"(\\(.*?\\)|"+hljs.IDENT_RE+")\\s*=>",returnBegin:true,end:"\\s*=>",contains:[{className:"params",variants:[{begin:hljs.IDENT_RE},{begin:/\(\s*\)/},{begin:/\(/,end:/\)/,excludeBegin:true,excludeEnd:true,keywords:KEYWORDS,contains:["self",hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE]}]}]}],relevance:0},{className:"function",beginKeywords:"function",end:/[\{;]/,excludeEnd:true,keywords:KEYWORDS,contains:["self",hljs.inherit(hljs.TITLE_MODE,{begin:JS_IDENT_RE}),PARAMS],illegal:/%/,relevance:0},{beginKeywords:"constructor",end:/[\{;]/,excludeEnd:true,contains:["self",PARAMS]},{begin:/module\./,keywords:{built_in:"module"},relevance:0},{beginKeywords:"module",end:/\{/,excludeEnd:true},{beginKeywords:"interface",end:/\{/,excludeEnd:true,keywords:"interface extends"},{begin:/\$[(.]/},{begin:"\\."+hljs.IDENT_RE,relevance:0},DECORATOR,ARGS]}});hljs.registerLanguage("roboconf",function(hljs){var IDENTIFIER="[a-zA-Z-_][^\\n{]+\\{";var PROPERTY={className:"attribute",begin:/[a-zA-Z-_]+/,end:/\s*:/,excludeEnd:true,starts:{end:";",relevance:0,contains:[{className:"variable",begin:/\.[a-zA-Z-_]+/},{className:"keyword",begin:/\(optional\)/}]}};return{aliases:["graph","instances"],case_insensitive:true,keywords:"import",contains:[{begin:"^facet "+IDENTIFIER,end:"}",keywords:"facet",contains:[PROPERTY,hljs.HASH_COMMENT_MODE]},{begin:"^\\s*instance of "+IDENTIFIER,end:"}",keywords:"name count channels instance-data instance-state instance of",illegal:/\S/,contains:["self",PROPERTY,hljs.HASH_COMMENT_MODE]},{begin:"^"+IDENTIFIER,end:"}",contains:[PROPERTY,hljs.HASH_COMMENT_MODE]},hljs.HASH_COMMENT_MODE]}});hljs.registerLanguage("htmlbars",function(hljs){var BUILT_INS="action collection component concat debugger each each-in else get hash if input link-to loc log mut outlet partial query-params render textarea unbound unless with yield view";var ATTR_ASSIGNMENT={illegal:/\}\}/,begin:/[a-zA-Z0-9_]+=/,returnBegin:true,relevance:0,contains:[{className:"attr",begin:/[a-zA-Z0-9_]+/}]};var SUB_EXPR={illegal:/\}\}/,begin:/\)/,end:/\)/,contains:[{begin:/[a-zA-Z\.\-]+/,keywords:{built_in:BUILT_INS},starts:{endsWithParent:true,relevance:0,contains:[hljs.QUOTE_STRING_MODE]}}]};var TAG_INNARDS={endsWithParent:true,relevance:0,keywords:{keyword:"as",built_in:BUILT_INS},contains:[hljs.QUOTE_STRING_MODE,ATTR_ASSIGNMENT,hljs.NUMBER_MODE]};return{case_insensitive:true,subLanguage:"xml",contains:[hljs.COMMENT("{{!(--)?","(--)?}}"),{className:"template-tag",begin:/\{\{[#\/]/,end:/\}\}/,contains:[{className:"name",begin:/[a-zA-Z\.\-]+/,keywords:{"builtin-name":BUILT_INS},starts:TAG_INNARDS}]},{className:"template-variable",begin:/\{\{[a-zA-Z][a-zA-Z\-]+/,end:/\}\}/,keywords:{keyword:"as",built_in:BUILT_INS},contains:[hljs.QUOTE_STRING_MODE]}]}});hljs.registerLanguage("routeros",function(hljs){var STATEMENTS="foreach do while for if from to step else on-error and or not in";var GLOBAL_COMMANDS="global local beep delay put len typeof pick log time set find environment terminal error execute parse resolve toarray tobool toid toip toip6 tonum tostr totime";var COMMON_COMMANDS="add remove enable disable set get print export edit find run debug error info warning";var LITERALS="true false yes no nothing nil null";var OBJECTS="traffic-flow traffic-generator firewall scheduler aaa accounting address-list address align area bandwidth-server bfd bgp bridge client clock community config connection console customer default dhcp-client dhcp-server discovery dns e-mail ethernet filter firewall firmware gps graphing group hardware health hotspot identity igmp-proxy incoming instance interface ip ipsec ipv6 irq l2tp-server lcd ldp logging mac-server mac-winbox mangle manual mirror mme mpls nat nd neighbor network note ntp ospf ospf-v3 ovpn-server page peer pim ping policy pool port ppp pppoe-client pptp-server prefix profile proposal proxy queue radius resource rip ripng route routing screen script security-profiles server service service-port settings shares smb sms sniffer snmp snooper socks sstp-server system tool tracking type upgrade upnp user-manager users user vlan secret vrrp watchdog web-access wireless pptp pppoe lan wan layer7-protocol lease simple raw";var VAR_PREFIX="global local set for foreach";var VAR={className:"variable",variants:[{begin:/\$[\w\d#@][\w\d_]*/},{begin:/\$\{(.*?)}/}]};var QUOTE_STRING={className:"string",begin:/"/,end:/"/,contains:[hljs.BACKSLASH_ESCAPE,VAR,{className:"variable",begin:/\$\(/,end:/\)/,contains:[hljs.BACKSLASH_ESCAPE]}]};var APOS_STRING={className:"string",begin:/'/,end:/'/};var IPADDR="((25[0-5]|(2[0-4]|1{0,1}[0-9]){0,1}[0-9]).){3}(25[0-5]|(2[0-4]|1{0,1}[0-9]){0,1}[0-9])\\b";var IPADDR_wBITMASK=IPADDR+"/(3[0-2]|[1-2][0-9]|\\d)";return{aliases:["routeros","mikrotik"],case_insensitive:true,lexemes:/:?[\w-]+/,keywords:{literal:LITERALS,keyword:STATEMENTS+" :"+STATEMENTS.split(" ").join(" :")+" :"+GLOBAL_COMMANDS.split(" ").join(" :")},contains:[{variants:[{begin:/^@/,end:/$/},{begin:/\/\*/,end:/\*\//},{begin:/%%/,end:/$/},{begin:/^'/,end:/$/},{begin:/^\s*\/[\w-]+=/,end:/$/},{begin:/\/\//,end:/$/},{begin:/^\[\</,end:/\>\]$/},{begin:/<\//,end:/>/},{begin:/^facet /,end:/\}/},{begin:"^1\\.\\.(\\d+)$",end:/$/}],illegal:/./},hljs.COMMENT("^#","$"),QUOTE_STRING,APOS_STRING,VAR,{begin:/[\w-]+\=([^\s\{\}\[\]\(\)]+)/,relevance:0,returnBegin:true,contains:[{className:"attribute",begin:/[^=]+/},{begin:/=/,endsWithParent:true,relevance:0,contains:[QUOTE_STRING,APOS_STRING,VAR,{className:"literal",begin:"\\b("+LITERALS.split(" ").join("|")+")\\b"},{begin:/("[^"]*"|[^\s\{\}\[\]]+)/}]}]},{className:"number",begin:/\*[0-9a-fA-F]+/},{begin:"\\b("+COMMON_COMMANDS.split(" ").join("|")+")([\\s[(]|])",returnBegin:true,contains:[{className:"builtin-name",begin:/\w+/}]},{className:"built_in",variants:[{begin:"(\\.\\./|/|\\s)(("+OBJECTS.split(" ").join("|")+");?\\s)+",relevance:10},{begin:/\.\./}]}]}});hljs.registerLanguage("mercury",function(hljs){var KEYWORDS={keyword:"module use_module import_module include_module end_module initialise "+"mutable initialize finalize finalise interface implementation pred "+"mode func type inst solver any_pred any_func is semidet det nondet "+"multi erroneous failure cc_nondet cc_multi typeclass instance where "+"pragma promise external trace atomic or_else require_complete_switch "+"require_det require_semidet require_multi require_nondet "+"require_cc_multi require_cc_nondet require_erroneous require_failure",meta:"inline no_inline type_spec source_file fact_table obsolete memo "+"loop_check minimal_model terminates does_not_terminate "+"check_termination promise_equivalent_clauses "+"foreign_proc foreign_decl foreign_code foreign_type "+"foreign_import_module foreign_export_enum foreign_export "+"foreign_enum may_call_mercury will_not_call_mercury thread_safe "+"not_thread_safe maybe_thread_safe promise_pure promise_semipure "+"tabled_for_io local untrailed trailed attach_to_io_state "+"can_pass_as_mercury_type stable will_not_throw_exception "+"may_modify_trail will_not_modify_trail may_duplicate "+"may_not_duplicate affects_liveness does_not_affect_liveness "+"doesnt_affect_liveness no_sharing unknown_sharing sharing",built_in:"some all not if then else true fail false try catch catch_any "+"semidet_true semidet_false semidet_fail impure_true impure semipure"};var COMMENT=hljs.COMMENT("%","$");var NUMCODE={className:"number",begin:"0'.\\|0[box][0-9a-fA-F]*"};var ATOM=hljs.inherit(hljs.APOS_STRING_MODE,{relevance:0});var STRING=hljs.inherit(hljs.QUOTE_STRING_MODE,{relevance:0});var STRING_FMT={className:"subst",begin:"\\\\[abfnrtv]\\|\\\\x[0-9a-fA-F]*\\\\\\|%[-+# *.0-9]*[dioxXucsfeEgGp]",relevance:0};STRING.contains=STRING.contains.slice();STRING.contains.push(STRING_FMT);var IMPLICATION={className:"built_in",variants:[{begin:"<=>"},{begin:"<=",relevance:0},{begin:"=>",relevance:0},{begin:"/\\\\"},{begin:"\\\\/"}]};var HEAD_BODY_CONJUNCTION={className:"built_in",variants:[{begin:":-\\|--\x3e"},{begin:"=",relevance:0}]};return{aliases:["m","moo"],keywords:KEYWORDS,contains:[IMPLICATION,HEAD_BODY_CONJUNCTION,COMMENT,hljs.C_BLOCK_COMMENT_MODE,NUMCODE,hljs.NUMBER_MODE,ATOM,STRING,{begin:/:-/},{begin:/\.$/}]}});hljs.registerLanguage("inform7",function(hljs){var START_BRACKET="\\[";var END_BRACKET="\\]";return{aliases:["i7"],case_insensitive:true,keywords:{keyword:"thing room person man woman animal container "+"supporter backdrop door "+"scenery open closed locked inside gender "+"is are say understand "+"kind of rule"},contains:[{className:"string",begin:'"',end:'"',relevance:0,contains:[{className:"subst",begin:START_BRACKET,end:END_BRACKET}]},{className:"section",begin:/^(Volume|Book|Part|Chapter|Section|Table)\b/,end:"$"},{begin:/^(Check|Carry out|Report|Instead of|To|Rule|When|Before|After)\b/,end:":",contains:[{begin:"\\(This",end:"\\)"}]},{className:"comment",begin:START_BRACKET,end:END_BRACKET,contains:["self"]}]}});hljs.registerLanguage("lua",function(hljs){var OPENING_LONG_BRACKET="\\[=*\\[";var CLOSING_LONG_BRACKET="\\]=*\\]";var LONG_BRACKETS={begin:OPENING_LONG_BRACKET,end:CLOSING_LONG_BRACKET,contains:["self"]};var COMMENTS=[hljs.COMMENT("--(?!"+OPENING_LONG_BRACKET+")","$"),hljs.COMMENT("--"+OPENING_LONG_BRACKET,CLOSING_LONG_BRACKET,{contains:[LONG_BRACKETS],relevance:10})];return{lexemes:hljs.UNDERSCORE_IDENT_RE,keywords:{literal:"true false nil",keyword:"and break do else elseif end for goto if in local not or repeat return then until while",built_in:"_G _ENV _VERSION __index __newindex __mode __call __metatable __tostring __len "+"__gc __add __sub __mul __div __mod __pow __concat __unm __eq __lt __le assert "+"collectgarbage dofile error getfenv getmetatable ipairs load loadfile loadstring"+"module next pairs pcall print rawequal rawget rawset require select setfenv"+"setmetatable tonumber tostring type unpack xpcall arg self"+"coroutine resume yield status wrap create running debug getupvalue "+"debug sethook getmetatable gethook setmetatable setlocal traceback setfenv getinfo setupvalue getlocal getregistry getfenv "+"io lines write close flush open output type read stderr stdin input stdout popen tmpfile "+"math log max acos huge ldexp pi cos tanh pow deg tan cosh sinh random randomseed frexp ceil floor rad abs sqrt modf asin min mod fmod log10 atan2 exp sin atan "+"os exit setlocale date getenv difftime remove time clock tmpname rename execute package preload loadlib loaded loaders cpath config path seeall "+"string sub upper len gfind rep find match char dump gmatch reverse byte format gsub lower "+"table setn insert getn foreachi maxn foreach concat sort remove"},contains:COMMENTS.concat([{className:"function",beginKeywords:"function",end:"\\)",contains:[hljs.inherit(hljs.TITLE_MODE,{begin:"([_a-zA-Z]\\w*\\.)*([_a-zA-Z]\\w*:)?[_a-zA-Z]\\w*"}),{className:"params",begin:"\\(",endsWithParent:true,contains:COMMENTS}].concat(COMMENTS)},hljs.C_NUMBER_MODE,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,{className:"string",begin:OPENING_LONG_BRACKET,end:CLOSING_LONG_BRACKET,contains:[LONG_BRACKETS],relevance:5}])}});hljs.registerLanguage("crmsh",function(hljs){var RESOURCES="primitive rsc_template";var COMMANDS="group clone ms master location colocation order fencing_topology "+"rsc_ticket acl_target acl_group user role "+"tag xml";var PROPERTY_SETS="property rsc_defaults op_defaults";var KEYWORDS="params meta operations op rule attributes utilization";var OPERATORS="read write deny defined not_defined in_range date spec in "+"ref reference attribute type xpath version and or lt gt tag "+"lte gte eq ne \\";var TYPES="number string";var LITERALS="Master Started Slave Stopped start promote demote stop monitor true false";return{aliases:["crm","pcmk"],case_insensitive:true,keywords:{keyword:KEYWORDS+" "+OPERATORS+" "+TYPES,literal:LITERALS},contains:[hljs.HASH_COMMENT_MODE,{beginKeywords:"node",starts:{end:"\\s*([\\w_-]+:)?",starts:{className:"title",end:"\\s*[\\$\\w_][\\w_-]*"}}},{beginKeywords:RESOURCES,starts:{className:"title",end:"\\s*[\\$\\w_][\\w_-]*",starts:{end:"\\s*@?[\\w_][\\w_\\.:-]*"}}},{begin:"\\b("+COMMANDS.split(" ").join("|")+")\\s+",keywords:COMMANDS,starts:{className:"title",end:"[\\$\\w_][\\w_-]*"}},{beginKeywords:PROPERTY_SETS,starts:{className:"title",end:"\\s*([\\w_-]+:)?"}},hljs.QUOTE_STRING_MODE,{className:"meta",begin:"(ocf|systemd|service|lsb):[\\w_:-]+",relevance:0},{className:"number",begin:"\\b\\d+(\\.\\d+)?(ms|s|h|m)?",relevance:0},{className:"literal",begin:"[-]?(infinity|inf)",relevance:0},{className:"attr",begin:/([A-Za-z\$_\#][\w_-]+)=/,relevance:0},{className:"tag",begin:"</?",end:"/?>",relevance:0}]}});hljs.registerLanguage("scheme",function(hljs){var SCHEME_IDENT_RE="[^\\(\\)\\[\\]\\{\\}\",'`;#|\\\\\\s]+";var SCHEME_SIMPLE_NUMBER_RE="(\\-|\\+)?\\d+([./]\\d+)?";var SCHEME_COMPLEX_NUMBER_RE=SCHEME_SIMPLE_NUMBER_RE+"[+\\-]"+SCHEME_SIMPLE_NUMBER_RE+"i";var BUILTINS={"builtin-name":"case-lambda call/cc class define-class exit-handler field import "+"inherit init-field interface let*-values let-values let/ec mixin "+"opt-lambda override protect provide public rename require "+"require-for-syntax syntax syntax-case syntax-error unit/sig unless "+"when with-syntax and begin call-with-current-continuation "+"call-with-input-file call-with-output-file case cond define "+"define-syntax delay do dynamic-wind else for-each if lambda let let* "+"let-syntax letrec letrec-syntax map or syntax-rules ' * + , ,@ - ... / "+"; < <= = => > >= ` abs acos angle append apply asin assoc assq assv atan "+"boolean? caar cadr call-with-input-file call-with-output-file "+"call-with-values car cdddar cddddr cdr ceiling char->integer "+"char-alphabetic? char-ci<=? char-ci<? char-ci=? char-ci>=? char-ci>? "+"char-downcase char-lower-case? char-numeric? char-ready? char-upcase "+"char-upper-case? char-whitespace? char<=? char<? char=? char>=? char>? "+"char? close-input-port close-output-port complex? cons cos "+"current-input-port current-output-port denominator display eof-object? "+"eq? equal? eqv? eval even? exact->inexact exact? exp expt floor "+"force gcd imag-part inexact->exact inexact? input-port? integer->char "+"integer? interaction-environment lcm length list list->string "+"list->vector list-ref list-tail list? load log magnitude make-polar "+"make-rectangular make-string make-vector max member memq memv min "+"modulo negative? newline not null-environment null? number->string "+"number? numerator odd? open-input-file open-output-file output-port? "+"pair? peek-char port? positive? procedure? quasiquote quote quotient "+"rational? rationalize read read-char real-part real? remainder reverse "+"round scheme-report-environment set! set-car! set-cdr! sin sqrt string "+"string->list string->number string->symbol string-append string-ci<=? "+"string-ci<? string-ci=? string-ci>=? string-ci>? string-copy "+"string-fill! string-length string-ref string-set! string<=? string<? "+"string=? string>=? string>? string? substring symbol->string symbol? "+"tan transcript-off transcript-on truncate values vector "+"vector->list vector-fill! vector-length vector-ref vector-set! "+"with-input-from-file with-output-to-file write write-char zero?"};var SHEBANG={className:"meta",begin:"^#!",end:"$"};var LITERAL={className:"literal",begin:"(#t|#f|#\\\\"+SCHEME_IDENT_RE+"|#\\\\.)"};var NUMBER={className:"number",variants:[{begin:SCHEME_SIMPLE_NUMBER_RE,relevance:0},{begin:SCHEME_COMPLEX_NUMBER_RE,relevance:0},{begin:"#b[0-1]+(/[0-1]+)?"},{begin:"#o[0-7]+(/[0-7]+)?"},{begin:"#x[0-9a-f]+(/[0-9a-f]+)?"}]};var STRING=hljs.QUOTE_STRING_MODE;var REGULAR_EXPRESSION={className:"regexp",begin:'#[pr]x"',end:'[^\\\\]"'};var COMMENT_MODES=[hljs.COMMENT(";","$",{relevance:0}),hljs.COMMENT("#\\|","\\|#")];var IDENT={begin:SCHEME_IDENT_RE,relevance:0};var QUOTED_IDENT={className:"symbol",begin:"'"+SCHEME_IDENT_RE};var BODY={endsWithParent:true,relevance:0};var QUOTED_LIST={variants:[{begin:/'/},{begin:"`"}],contains:[{begin:"\\(",end:"\\)",contains:["self",LITERAL,STRING,NUMBER,IDENT,QUOTED_IDENT]}]};var NAME={className:"name",begin:SCHEME_IDENT_RE,lexemes:SCHEME_IDENT_RE,keywords:BUILTINS};var LAMBDA={begin:/lambda/,endsWithParent:true,returnBegin:true,contains:[NAME,{begin:/\(/,end:/\)/,endsParent:true,contains:[IDENT]}]};var LIST={variants:[{begin:"\\(",end:"\\)"},{begin:"\\[",end:"\\]"}],contains:[LAMBDA,NAME,BODY]};BODY.contains=[LITERAL,NUMBER,STRING,IDENT,QUOTED_IDENT,QUOTED_LIST,LIST].concat(COMMENT_MODES);return{illegal:/\S/,contains:[SHEBANG,NUMBER,STRING,QUOTED_IDENT,QUOTED_LIST,LIST].concat(COMMENT_MODES)}});hljs.registerLanguage("bash",function(hljs){var VAR={className:"variable",variants:[{begin:/\$[\w\d#@][\w\d_]*/},{begin:/\$\{(.*?)}/}]};var QUOTE_STRING={className:"string",begin:/"/,end:/"/,contains:[hljs.BACKSLASH_ESCAPE,VAR,{className:"variable",begin:/\$\(/,end:/\)/,contains:[hljs.BACKSLASH_ESCAPE]}]};var ESCAPED_QUOTE={className:"",begin:/\\"/};var APOS_STRING={className:"string",begin:/'/,end:/'/};return{aliases:["sh","zsh"],lexemes:/\b-?[a-z\._]+\b/,keywords:{keyword:"if then else elif fi for while in do done case esac function",literal:"true false",built_in:"break cd continue eval exec exit export getopts hash pwd readonly return shift test times "+"trap umask unset "+"alias bind builtin caller command declare echo enable help let local logout mapfile printf "+"read readarray source type typeset ulimit unalias "+"set shopt "+"autoload bg bindkey bye cap chdir clone comparguments compcall compctl compdescribe compfiles "+"compgroups compquote comptags comptry compvalues dirs disable disown echotc echoti emulate "+"fc fg float functions getcap getln history integer jobs kill limit log noglob popd print "+"pushd pushln rehash sched setcap setopt stat suspend ttyctl unfunction unhash unlimit "+"unsetopt vared wait whence where which zcompile zformat zftp zle zmodload zparseopts zprof "+"zpty zregexparse zsocket zstyle ztcp",_:"-ne -eq -lt -gt -f -d -e -s -l -a"},contains:[{className:"meta",begin:/^#![^\n]+sh\s*$/,relevance:10},{className:"function",begin:/\w[\w\d_]*\s*\(\s*\)\s*\{/,returnBegin:true,contains:[hljs.inherit(hljs.TITLE_MODE,{begin:/\w[\w\d_]*/})],relevance:0},hljs.HASH_COMMENT_MODE,QUOTE_STRING,ESCAPED_QUOTE,APOS_STRING,VAR]}});hljs.registerLanguage("dockerfile",function(hljs){return{aliases:["docker"],case_insensitive:true,keywords:"from maintainer expose env arg user onbuild stopsignal",contains:[hljs.HASH_COMMENT_MODE,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.NUMBER_MODE,{beginKeywords:"run cmd entrypoint volume add copy workdir label healthcheck shell",starts:{end:/[^\\]$/,subLanguage:"bash"}}],illegal:"</"}});hljs.registerLanguage("properties",function(hljs){var WS0="[ \\t\\f]*";var WS1="[ \\t\\f]+";var DELIM="("+WS0+"[:=]"+WS0+"|"+WS1+")";var KEY_ALPHANUM="([^\\\\\\W:= \\t\\f\\n]|\\\\.)+";var KEY_OTHER="([^\\\\:= \\t\\f\\n]|\\\\.)+";var DELIM_AND_VALUE={end:DELIM,relevance:0,starts:{className:"string",end:/$/,relevance:0,contains:[{begin:"\\\\\\n"}]}};return{case_insensitive:true,illegal:/\S/,contains:[hljs.COMMENT("^\\s*[!#]","$"),{begin:KEY_ALPHANUM+DELIM,returnBegin:true,contains:[{className:"attr",begin:KEY_ALPHANUM,endsParent:true,relevance:0}],starts:DELIM_AND_VALUE},{begin:KEY_OTHER+DELIM,returnBegin:true,relevance:0,contains:[{className:"meta",begin:KEY_OTHER,endsParent:true,relevance:0}],starts:DELIM_AND_VALUE},{className:"attr",relevance:0,begin:KEY_OTHER+WS0+"$"}]}});hljs.registerLanguage("dns",function(hljs){return{aliases:["bind","zone"],keywords:{keyword:"IN A AAAA AFSDB APL CAA CDNSKEY CDS CERT CNAME DHCID DLV DNAME DNSKEY DS HIP IPSECKEY KEY KX "+"LOC MX NAPTR NS NSEC NSEC3 NSEC3PARAM PTR RRSIG RP SIG SOA SRV SSHFP TA TKEY TLSA TSIG TXT"},contains:[hljs.COMMENT(";","$",{relevance:0}),{className:"meta",begin:/^\$(TTL|GENERATE|INCLUDE|ORIGIN)\b/},{className:"number",begin:"((([0-9A-Fa-f]{1,4}:){7}([0-9A-Fa-f]{1,4}|:))|(([0-9A-Fa-f]{1,4}:){6}(:[0-9A-Fa-f]{1,4}|((25[0-5]|2[0-4]\\d|1\\d\\d|[1-9]?\\d)(\\.(25[0-5]|2[0-4]\\d|1\\d\\d|[1-9]?\\d)){3})|:))|(([0-9A-Fa-f]{1,4}:){5}(((:[0-9A-Fa-f]{1,4}){1,2})|:((25[0-5]|2[0-4]\\d|1\\d\\d|[1-9]?\\d)(\\.(25[0-5]|2[0-4]\\d|1\\d\\d|[1-9]?\\d)){3})|:))|(([0-9A-Fa-f]{1,4}:){4}(((:[0-9A-Fa-f]{1,4}){1,3})|((:[0-9A-Fa-f]{1,4})?:((25[0-5]|2[0-4]\\d|1\\d\\d|[1-9]?\\d)(\\.(25[0-5]|2[0-4]\\d|1\\d\\d|[1-9]?\\d)){3}))|:))|(([0-9A-Fa-f]{1,4}:){3}(((:[0-9A-Fa-f]{1,4}){1,4})|((:[0-9A-Fa-f]{1,4}){0,2}:((25[0-5]|2[0-4]\\d|1\\d\\d|[1-9]?\\d)(\\.(25[0-5]|2[0-4]\\d|1\\d\\d|[1-9]?\\d)){3}))|:))|(([0-9A-Fa-f]{1,4}:){2}(((:[0-9A-Fa-f]{1,4}){1,5})|((:[0-9A-Fa-f]{1,4}){0,3}:((25[0-5]|2[0-4]\\d|1\\d\\d|[1-9]?\\d)(\\.(25[0-5]|2[0-4]\\d|1\\d\\d|[1-9]?\\d)){3}))|:))|(([0-9A-Fa-f]{1,4}:){1}(((:[0-9A-Fa-f]{1,4}){1,6})|((:[0-9A-Fa-f]{1,4}){0,4}:((25[0-5]|2[0-4]\\d|1\\d\\d|[1-9]?\\d)(\\.(25[0-5]|2[0-4]\\d|1\\d\\d|[1-9]?\\d)){3}))|:))|(:(((:[0-9A-Fa-f]{1,4}){1,7})|((:[0-9A-Fa-f]{1,4}){0,5}:((25[0-5]|2[0-4]\\d|1\\d\\d|[1-9]?\\d)(\\.(25[0-5]|2[0-4]\\d|1\\d\\d|[1-9]?\\d)){3}))|:)))\\b"},{className:"number",begin:"((25[0-5]|(2[0-4]|1{0,1}[0-9]){0,1}[0-9]).){3,3}(25[0-5]|(2[0-4]|1{0,1}[0-9]){0,1}[0-9])\\b"},hljs.inherit(hljs.NUMBER_MODE,{begin:/\b\d+[dhwm]?/})]}});hljs.registerLanguage("monkey",function(hljs){var NUMBER={className:"number",relevance:0,variants:[{begin:"[$][a-fA-F0-9]+"},hljs.NUMBER_MODE]};return{case_insensitive:true,keywords:{keyword:"public private property continue exit extern new try catch "+"eachin not abstract final select case default const local global field "+"end if then else elseif endif while wend repeat until forever for "+"to step next return module inline throw import",built_in:"DebugLog DebugStop Error Print ACos ACosr ASin ASinr ATan ATan2 ATan2r ATanr Abs Abs Ceil "+"Clamp Clamp Cos Cosr Exp Floor Log Max Max Min Min Pow Sgn Sgn Sin Sinr Sqrt Tan Tanr Seed PI HALFPI TWOPI",literal:"true false null and or shl shr mod"},illegal:/\/\*/,contains:[hljs.COMMENT("#rem","#end"),hljs.COMMENT("'","$",{relevance:0}),{className:"function",beginKeywords:"function method",end:"[(=:]|$",illegal:/\n/,contains:[hljs.UNDERSCORE_TITLE_MODE]},{className:"class",beginKeywords:"class interface",end:"$",contains:[{beginKeywords:"extends implements"},hljs.UNDERSCORE_TITLE_MODE]},{className:"built_in",begin:"\\b(self|super)\\b"},{className:"meta",begin:"\\s*#",end:"$",keywords:{"meta-keyword":"if else elseif endif end then"}},{className:"meta",begin:"^\\s*strict\\b"},{beginKeywords:"alias",end:"=",contains:[hljs.UNDERSCORE_TITLE_MODE]},hljs.QUOTE_STRING_MODE,NUMBER]}});hljs.registerLanguage("golo",function(hljs){return{keywords:{keyword:"println readln print import module function local return let var "+"while for foreach times in case when match with break continue "+"augment augmentation each find filter reduce "+"if then else otherwise try catch finally raise throw orIfNull "+"DynamicObject|10 DynamicVariable struct Observable map set vector list array",literal:"true false null"},contains:[hljs.HASH_COMMENT_MODE,hljs.QUOTE_STRING_MODE,hljs.C_NUMBER_MODE,{className:"meta",begin:"@[A-Za-z]+"}]}});hljs.registerLanguage("livecodeserver",function(hljs){var VARIABLE={className:"variable",variants:[{begin:"\\b([gtps][A-Z]{1}[a-zA-Z0-9]*)(\\[.+\\])?(?:\\s*?)"},{begin:"\\$_[A-Z]+"}],relevance:0};var COMMENT_MODES=[hljs.C_BLOCK_COMMENT_MODE,hljs.HASH_COMMENT_MODE,hljs.COMMENT("--","$"),hljs.COMMENT("[^:]//","$")];var TITLE1=hljs.inherit(hljs.TITLE_MODE,{variants:[{begin:"\\b_*rig[A-Z]+[A-Za-z0-9_\\-]*"},{begin:"\\b_[a-z0-9\\-]+"}]});var TITLE2=hljs.inherit(hljs.TITLE_MODE,{begin:"\\b([A-Za-z0-9_\\-]+)\\b"});return{case_insensitive:false,keywords:{keyword:"$_COOKIE $_FILES $_GET $_GET_BINARY $_GET_RAW $_POST $_POST_BINARY $_POST_RAW $_SESSION $_SERVER "+"codepoint codepoints segment segments codeunit codeunits sentence sentences trueWord trueWords paragraph "+"after byte bytes english the until http forever descending using line real8 with seventh "+"for stdout finally element word words fourth before black ninth sixth characters chars stderr "+"uInt1 uInt1s uInt2 uInt2s stdin string lines relative rel any fifth items from middle mid "+"at else of catch then third it file milliseconds seconds second secs sec int1 int1s int4 "+"int4s internet int2 int2s normal text item last long detailed effective uInt4 uInt4s repeat "+"end repeat URL in try into switch to words https token binfile each tenth as ticks tick "+"system real4 by dateItems without char character ascending eighth whole dateTime numeric short "+"first ftp integer abbreviated abbr abbrev private case while if "+"div mod wrap and or bitAnd bitNot bitOr bitXor among not in a an within "+"contains ends with begins the keys of keys",literal:"SIX TEN FORMFEED NINE ZERO NONE SPACE FOUR FALSE COLON CRLF PI COMMA ENDOFFILE EOF EIGHT FIVE "+"QUOTE EMPTY ONE TRUE RETURN CR LINEFEED RIGHT BACKSLASH NULL SEVEN TAB THREE TWO "+"six ten formfeed nine zero none space four false colon crlf pi comma endoffile eof eight five "+"quote empty one true return cr linefeed right backslash null seven tab three two "+"RIVERSION RISTATE FILE_READ_MODE FILE_WRITE_MODE FILE_WRITE_MODE DIR_WRITE_MODE FILE_READ_UMASK "+"FILE_WRITE_UMASK DIR_READ_UMASK DIR_WRITE_UMASK",built_in:"put abs acos aliasReference annuity arrayDecode arrayEncode asin atan atan2 average avg avgDev base64Decode "+"base64Encode baseConvert binaryDecode binaryEncode byteOffset byteToNum cachedURL cachedURLs charToNum "+"cipherNames codepointOffset codepointProperty codepointToNum codeunitOffset commandNames compound compress "+"constantNames cos date dateFormat decompress difference directories "+"diskSpace DNSServers exp exp1 exp2 exp10 extents files flushEvents folders format functionNames geometricMean global "+"globals hasMemory harmonicMean hostAddress hostAddressToName hostName hostNameToAddress isNumber ISOToMac itemOffset "+"keys len length libURLErrorData libUrlFormData libURLftpCommand libURLLastHTTPHeaders libURLLastRHHeaders "+"libUrlMultipartFormAddPart libUrlMultipartFormData libURLVersion lineOffset ln ln1 localNames log log2 log10 "+"longFilePath lower macToISO matchChunk matchText matrixMultiply max md5Digest median merge messageAuthenticationCode messageDigest millisec "+"millisecs millisecond milliseconds min monthNames nativeCharToNum normalizeText num number numToByte numToChar "+"numToCodepoint numToNativeChar offset open openfiles openProcesses openProcessIDs openSockets "+"paragraphOffset paramCount param params peerAddress pendingMessages platform popStdDev populationStandardDeviation "+"populationVariance popVariance processID random randomBytes replaceText result revCreateXMLTree revCreateXMLTreeFromFile "+"revCurrentRecord revCurrentRecordIsFirst revCurrentRecordIsLast revDatabaseColumnCount revDatabaseColumnIsNull "+"revDatabaseColumnLengths revDatabaseColumnNames revDatabaseColumnNamed revDatabaseColumnNumbered "+"revDatabaseColumnTypes revDatabaseConnectResult revDatabaseCursors revDatabaseID revDatabaseTableNames "+"revDatabaseType revDataFromQuery revdb_closeCursor revdb_columnbynumber revdb_columncount revdb_columnisnull "+"revdb_columnlengths revdb_columnnames revdb_columntypes revdb_commit revdb_connect revdb_connections "+"revdb_connectionerr revdb_currentrecord revdb_cursorconnection revdb_cursorerr revdb_cursors revdb_dbtype "+"revdb_disconnect revdb_execute revdb_iseof revdb_isbof revdb_movefirst revdb_movelast revdb_movenext "+"revdb_moveprev revdb_query revdb_querylist revdb_recordcount revdb_rollback revdb_tablenames "+"revGetDatabaseDriverPath revNumberOfRecords revOpenDatabase revOpenDatabases revQueryDatabase "+"revQueryDatabaseBlob revQueryResult revQueryIsAtStart revQueryIsAtEnd revUnixFromMacPath revXMLAttribute "+"revXMLAttributes revXMLAttributeValues revXMLChildContents revXMLChildNames revXMLCreateTreeFromFileWithNamespaces "+"revXMLCreateTreeWithNamespaces revXMLDataFromXPathQuery revXMLEvaluateXPath revXMLFirstChild revXMLMatchingNode "+"revXMLNextSibling revXMLNodeContents revXMLNumberOfChildren revXMLParent revXMLPreviousSibling "+"revXMLRootNode revXMLRPC_CreateRequest revXMLRPC_Documents revXMLRPC_Error "+"revXMLRPC_GetHost revXMLRPC_GetMethod revXMLRPC_GetParam revXMLText revXMLRPC_Execute "+"revXMLRPC_GetParamCount revXMLRPC_GetParamNode revXMLRPC_GetParamType revXMLRPC_GetPath revXMLRPC_GetPort "+"revXMLRPC_GetProtocol revXMLRPC_GetRequest revXMLRPC_GetResponse revXMLRPC_GetSocket revXMLTree "+"revXMLTrees revXMLValidateDTD revZipDescribeItem revZipEnumerateItems revZipOpenArchives round sampVariance "+"sec secs seconds sentenceOffset sha1Digest shell shortFilePath sin specialFolderPath sqrt standardDeviation statRound "+"stdDev sum sysError systemVersion tan tempName textDecode textEncode tick ticks time to tokenOffset toLower toUpper "+"transpose truewordOffset trunc uniDecode uniEncode upper URLDecode URLEncode URLStatus uuid value variableNames "+"variance version waitDepth weekdayNames wordOffset xsltApplyStylesheet xsltApplyStylesheetFromFile xsltLoadStylesheet "+"xsltLoadStylesheetFromFile add breakpoint cancel clear local variable file word line folder directory URL close socket process "+"combine constant convert create new alias folder directory decrypt delete variable word line folder "+"directory URL dispatch divide do encrypt filter get include intersect kill libURLDownloadToFile "+"libURLFollowHttpRedirects libURLftpUpload libURLftpUploadFile libURLresetAll libUrlSetAuthCallback libURLSetDriver "+"libURLSetCustomHTTPHeaders libUrlSetExpect100 libURLSetFTPListCommand libURLSetFTPMode libURLSetFTPStopTime "+"libURLSetStatusCallback load extension loadedExtensions multiply socket prepare process post seek rel relative read from process rename "+"replace require resetAll resolve revAddXMLNode revAppendXML revCloseCursor revCloseDatabase revCommitDatabase "+"revCopyFile revCopyFolder revCopyXMLNode revDeleteFolder revDeleteXMLNode revDeleteAllXMLTrees "+"revDeleteXMLTree revExecuteSQL revGoURL revInsertXMLNode revMoveFolder revMoveToFirstRecord revMoveToLastRecord "+"revMoveToNextRecord revMoveToPreviousRecord revMoveToRecord revMoveXMLNode revPutIntoXMLNode revRollBackDatabase "+"revSetDatabaseDriverPath revSetXMLAttribute revXMLRPC_AddParam revXMLRPC_DeleteAllDocuments revXMLAddDTD "+"revXMLRPC_Free revXMLRPC_FreeAll revXMLRPC_DeleteDocument revXMLRPC_DeleteParam revXMLRPC_SetHost "+"revXMLRPC_SetMethod revXMLRPC_SetPort revXMLRPC_SetProtocol revXMLRPC_SetSocket revZipAddItemWithData "+"revZipAddItemWithFile revZipAddUncompressedItemWithData revZipAddUncompressedItemWithFile revZipCancel "+"revZipCloseArchive revZipDeleteItem revZipExtractItemToFile revZipExtractItemToVariable revZipSetProgressCallback "+"revZipRenameItem revZipReplaceItemWithData revZipReplaceItemWithFile revZipOpenArchive send set sort split start stop "+"subtract symmetric union unload vectorDotProduct wait write"},contains:[VARIABLE,{className:"keyword",begin:"\\bend\\sif\\b"},{className:"function",beginKeywords:"function",end:"$",contains:[VARIABLE,TITLE2,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.BINARY_NUMBER_MODE,hljs.C_NUMBER_MODE,TITLE1]},{className:"function",begin:"\\bend\\s+",end:"$",keywords:"end",contains:[TITLE2,TITLE1],relevance:0},{beginKeywords:"command on",end:"$",contains:[VARIABLE,TITLE2,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.BINARY_NUMBER_MODE,hljs.C_NUMBER_MODE,TITLE1]},{className:"meta",variants:[{begin:"<\\?(rev|lc|livecode)",relevance:10},{begin:"<\\?"},{begin:"\\?>"}]},hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.BINARY_NUMBER_MODE,hljs.C_NUMBER_MODE,TITLE1].concat(COMMENT_MODES),illegal:";$|^\\[|^=|&|{"}});hljs.registerLanguage("haml",function(hljs){return{case_insensitive:true,contains:[{className:"meta",begin:"^!!!( (5|1\\.1|Strict|Frameset|Basic|Mobile|RDFa|XML\\b.*))?$",relevance:10},hljs.COMMENT("^\\s*(!=#|=#|-#|/).*$",false,{relevance:0}),{begin:"^\\s*(-|=|!=)(?!#)",starts:{end:"\\n",subLanguage:"ruby"}},{className:"tag",begin:"^\\s*%",contains:[{className:"selector-tag",begin:"\\w+"},{className:"selector-id",begin:"#[\\w-]+"},{className:"selector-class",begin:"\\.[\\w-]+"},{begin:"{\\s*",end:"\\s*}",contains:[{begin:":\\w+\\s*=>",end:",\\s+",returnBegin:true,endsWithParent:true,contains:[{className:"attr",begin:":\\w+"},hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,{begin:"\\w+",relevance:0}]}]},{begin:"\\(\\s*",end:"\\s*\\)",excludeEnd:true,contains:[{begin:"\\w+\\s*=",end:"\\s+",returnBegin:true,endsWithParent:true,contains:[{className:"attr",begin:"\\w+",relevance:0},hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,{begin:"\\w+",relevance:0}]}]}]},{begin:"^\\s*[=~]\\s*"},{begin:"#{",starts:{end:"}",subLanguage:"ruby"}}]}});hljs.registerLanguage("gcode",function(hljs){var GCODE_IDENT_RE="[A-Z_][A-Z0-9_.]*";var GCODE_CLOSE_RE="\\%";var GCODE_KEYWORDS="IF DO WHILE ENDWHILE CALL ENDIF SUB ENDSUB GOTO REPEAT ENDREPEAT "+"EQ LT GT NE GE LE OR XOR";var GCODE_START={className:"meta",begin:"([O])([0-9]+)"};var GCODE_CODE=[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.COMMENT(/\(/,/\)/),hljs.inherit(hljs.C_NUMBER_MODE,{begin:"([-+]?([0-9]*\\.?[0-9]+\\.?))|"+hljs.C_NUMBER_RE}),hljs.inherit(hljs.APOS_STRING_MODE,{illegal:null}),hljs.inherit(hljs.QUOTE_STRING_MODE,{illegal:null}),{className:"name",begin:"([G])([0-9]+\\.?[0-9]?)"},{className:"name",begin:"([M])([0-9]+\\.?[0-9]?)"},{className:"attr",begin:"(VC|VS|#)",end:"(\\d+)"},{className:"attr",begin:"(VZOFX|VZOFY|VZOFZ)"},{className:"built_in",begin:"(ATAN|ABS|ACOS|ASIN|SIN|COS|EXP|FIX|FUP|ROUND|LN|TAN)(\\[)",end:"([-+]?([0-9]*\\.?[0-9]+\\.?))(\\])"},{className:"symbol",variants:[{begin:"N",end:"\\d+",illegal:"\\W"}]}];return{aliases:["nc"],case_insensitive:true,lexemes:GCODE_IDENT_RE,keywords:GCODE_KEYWORDS,contains:[{className:"meta",begin:GCODE_CLOSE_RE},GCODE_START].concat(GCODE_CODE)}});hljs.registerLanguage("erlang",function(hljs){var BASIC_ATOM_RE="[a-z'][a-zA-Z0-9_']*";var FUNCTION_NAME_RE="("+BASIC_ATOM_RE+":"+BASIC_ATOM_RE+"|"+BASIC_ATOM_RE+")";var ERLANG_RESERVED={keyword:"after and andalso|10 band begin bnot bor bsl bzr bxor case catch cond div end fun if "+"let not of orelse|10 query receive rem try when xor",literal:"false true"};var COMMENT=hljs.COMMENT("%","$");var NUMBER={className:"number",begin:"\\b(\\d+#[a-fA-F0-9]+|\\d+(\\.\\d+)?([eE][-+]?\\d+)?)",relevance:0};var NAMED_FUN={begin:"fun\\s+"+BASIC_ATOM_RE+"/\\d+"};var FUNCTION_CALL={begin:FUNCTION_NAME_RE+"\\(",end:"\\)",returnBegin:true,relevance:0,contains:[{begin:FUNCTION_NAME_RE,relevance:0},{begin:"\\(",end:"\\)",endsWithParent:true,returnEnd:true,relevance:0}]};var TUPLE={begin:"{",end:"}",relevance:0};var VAR1={begin:"\\b_([A-Z][A-Za-z0-9_]*)?",relevance:0};var VAR2={begin:"[A-Z][a-zA-Z0-9_]*",relevance:0};var RECORD_ACCESS={begin:"#"+hljs.UNDERSCORE_IDENT_RE,relevance:0,returnBegin:true,contains:[{begin:"#"+hljs.UNDERSCORE_IDENT_RE,relevance:0},{begin:"{",end:"}",relevance:0}]};var BLOCK_STATEMENTS={beginKeywords:"fun receive if try case",end:"end",keywords:ERLANG_RESERVED};BLOCK_STATEMENTS.contains=[COMMENT,NAMED_FUN,hljs.inherit(hljs.APOS_STRING_MODE,{className:""}),BLOCK_STATEMENTS,FUNCTION_CALL,hljs.QUOTE_STRING_MODE,NUMBER,TUPLE,VAR1,VAR2,RECORD_ACCESS];var BASIC_MODES=[COMMENT,NAMED_FUN,BLOCK_STATEMENTS,FUNCTION_CALL,hljs.QUOTE_STRING_MODE,NUMBER,TUPLE,VAR1,VAR2,RECORD_ACCESS];FUNCTION_CALL.contains[1].contains=BASIC_MODES;TUPLE.contains=BASIC_MODES;RECORD_ACCESS.contains[1].contains=BASIC_MODES;var PARAMS={className:"params",begin:"\\(",end:"\\)",contains:BASIC_MODES};return{aliases:["erl"],keywords:ERLANG_RESERVED,illegal:"(</|\\*=|\\+=|-=|/\\*|\\*/|\\(\\*|\\*\\))",contains:[{className:"function",begin:"^"+BASIC_ATOM_RE+"\\s*\\(",end:"->",returnBegin:true,illegal:"\\(|#|//|/\\*|\\\\|:|;",contains:[PARAMS,hljs.inherit(hljs.TITLE_MODE,{begin:BASIC_ATOM_RE})],starts:{end:";|\\.",keywords:ERLANG_RESERVED,contains:BASIC_MODES}},COMMENT,{begin:"^-",end:"\\.",relevance:0,excludeEnd:true,returnBegin:true,lexemes:"-"+hljs.IDENT_RE,keywords:"-module -record -undef -export -ifdef -ifndef -author -copyright -doc -vsn "+"-import -include -include_lib -compile -define -else -endif -file -behaviour "+"-behavior -spec",contains:[PARAMS]},NUMBER,hljs.QUOTE_STRING_MODE,RECORD_ACCESS,VAR1,VAR2,TUPLE,{begin:/\.$/}]}});hljs.registerLanguage("dust",function(hljs){var EXPRESSION_KEYWORDS="if eq ne lt lte gt gte select default math sep";return{aliases:["dst"],case_insensitive:true,subLanguage:"xml",contains:[{className:"template-tag",begin:/\{[#\/]/,end:/\}/,illegal:/;/,contains:[{className:"name",begin:/[a-zA-Z\.-]+/,starts:{endsWithParent:true,relevance:0,contains:[hljs.QUOTE_STRING_MODE]}}]},{className:"template-variable",begin:/\{/,end:/\}/,illegal:/;/,keywords:EXPRESSION_KEYWORDS}]}});hljs.registerLanguage("mizar",function(hljs){return{keywords:"environ vocabularies notations constructors definitions "+"registrations theorems schemes requirements begin end definition "+"registration cluster existence pred func defpred deffunc theorem "+"proof let take assume then thus hence ex for st holds consider "+"reconsider such that and in provided of as from be being by means "+"equals implies iff redefine define now not or attr is mode "+"suppose per cases set thesis contradiction scheme reserve struct "+"correctness compatibility coherence symmetry assymetry "+"reflexivity irreflexivity connectedness uniqueness commutativity "+"idempotence involutiveness projectivity",contains:[hljs.COMMENT("::","$")]}});hljs.registerLanguage("arcade",function(hljs){var IDENT_RE="[A-Za-z_][0-9A-Za-z_]*";var KEYWORDS={keyword:"if for while var new function do return void else break",literal:"BackSlash DoubleQuote false ForwardSlash Infinity NaN NewLine null PI SingleQuote Tab TextFormatting true undefined",built_in:"Abs Acos Angle Attachments Area AreaGeodetic Asin Atan Atan2 Average Bearing Boolean Buffer BufferGeodetic "+"Ceil Centroid Clip Console Constrain Contains Cos Count Crosses Cut Date DateAdd "+"DateDiff Day Decode DefaultValue Dictionary Difference Disjoint Distance DistanceGeodetic Distinct "+"DomainCode DomainName Equals Exp Extent Feature FeatureSet FeatureSetByAssociation FeatureSetById FeatureSetByPortalItem "+"FeatureSetByRelationshipName FeatureSetByTitle FeatureSetByUrl Filter First Floor Geometry GroupBy Guid HasKey Hour IIf IndexOf "+"Intersection Intersects IsEmpty IsNan IsSelfIntersecting Length LengthGeodetic Log Max Mean Millisecond Min Minute Month "+"MultiPartToSinglePart Multipoint NextSequenceValue Now Number OrderBy Overlaps Point Polygon "+"Polyline Portal Pow Random Relate Reverse RingIsClockWise Round Second SetGeometry Sin Sort Sqrt Stdev Sum "+"SymmetricDifference Tan Text Timestamp Today ToLocal Top Touches ToUTC TrackCurrentTime "+"TrackGeometryWindow TrackIndex TrackStartTime TrackWindow TypeOf Union UrlEncode Variance "+"Weekday When Within Year "};var EXPRESSIONS;var SYMBOL={className:"symbol",begin:"\\$[datastore|feature|layer|map|measure|sourcefeature|sourcelayer|targetfeature|targetlayer|value|view]+"};var NUMBER={className:"number",variants:[{begin:"\\b(0[bB][01]+)"},{begin:"\\b(0[oO][0-7]+)"},{begin:hljs.C_NUMBER_RE}],relevance:0};var SUBST={className:"subst",begin:"\\$\\{",end:"\\}",keywords:KEYWORDS,contains:[]};var TEMPLATE_STRING={className:"string",begin:"`",end:"`",contains:[hljs.BACKSLASH_ESCAPE,SUBST]};SUBST.contains=[hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,TEMPLATE_STRING,NUMBER,hljs.REGEXP_MODE];var PARAMS_CONTAINS=SUBST.contains.concat([hljs.C_BLOCK_COMMENT_MODE,hljs.C_LINE_COMMENT_MODE]);return{aliases:["arcade"],keywords:KEYWORDS,contains:[hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,TEMPLATE_STRING,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,SYMBOL,NUMBER,{begin:/[{,]\s*/,relevance:0,contains:[{begin:IDENT_RE+"\\s*:",returnBegin:true,relevance:0,contains:[{className:"attr",begin:IDENT_RE,relevance:0}]}]},{begin:"("+hljs.RE_STARTERS_RE+"|\\b(return)\\b)\\s*",keywords:"return",contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.REGEXP_MODE,{className:"function",begin:"(\\(.*?\\)|"+IDENT_RE+")\\s*=>",returnBegin:true,end:"\\s*=>",contains:[{className:"params",variants:[{begin:IDENT_RE},{begin:/\(\s*\)/},{begin:/\(/,end:/\)/,excludeBegin:true,excludeEnd:true,keywords:KEYWORDS,contains:PARAMS_CONTAINS}]}]}],relevance:0},{className:"function",beginKeywords:"function",end:/\{/,excludeEnd:true,contains:[hljs.inherit(hljs.TITLE_MODE,{begin:IDENT_RE}),{className:"params",begin:/\(/,end:/\)/,excludeBegin:true,excludeEnd:true,contains:PARAMS_CONTAINS}],illegal:/\[|%/},{begin:/\$[(.]/}],illegal:/#(?!!)/}});hljs.registerLanguage("php",function(hljs){var VARIABLE={begin:"\\$+[a-zA-Z_-ÿ][a-zA-Z0-9_-ÿ]*"};var PREPROCESSOR={className:"meta",begin:/<\?(php)?|\?>/};var STRING={className:"string",contains:[hljs.BACKSLASH_ESCAPE,PREPROCESSOR],variants:[{begin:'b"',end:'"'},{begin:"b'",end:"'"},hljs.inherit(hljs.APOS_STRING_MODE,{illegal:null}),hljs.inherit(hljs.QUOTE_STRING_MODE,{illegal:null})]};var NUMBER={variants:[hljs.BINARY_NUMBER_MODE,hljs.C_NUMBER_MODE]};return{aliases:["php","php3","php4","php5","php6","php7"],case_insensitive:true,keywords:"and include_once list abstract global private echo interface as static endswitch "+"array null if endwhile or const for endforeach self var while isset public "+"protected exit foreach throw elseif include __FILE__ empty require_once do xor "+"return parent clone use __CLASS__ __LINE__ else break print eval new "+"catch __METHOD__ case exception default die require __FUNCTION__ "+"enddeclare final try switch continue endfor endif declare unset true false "+"trait goto instanceof insteadof __DIR__ __NAMESPACE__ "+"yield finally",contains:[hljs.HASH_COMMENT_MODE,hljs.COMMENT("//","$",{contains:[PREPROCESSOR]}),hljs.COMMENT("/\\*","\\*/",{contains:[{className:"doctag",begin:"@[A-Za-z]+"}]}),hljs.COMMENT("__halt_compiler.+?;",false,{endsWithParent:true,keywords:"__halt_compiler",lexemes:hljs.UNDERSCORE_IDENT_RE}),{className:"string",begin:/<<<['"]?\w+['"]?$/,end:/^\w+;?$/,contains:[hljs.BACKSLASH_ESCAPE,{className:"subst",variants:[{begin:/\$\w+/},{begin:/\{\$/,end:/\}/}]}]},PREPROCESSOR,{className:"keyword",begin:/\$this\b/},VARIABLE,{begin:/(::|->)+[a-zA-Z_\x7f-\xff][a-zA-Z0-9_\x7f-\xff]*/},{className:"function",beginKeywords:"function",end:/[;{]/,excludeEnd:true,illegal:"\\$|\\[|%",contains:[hljs.UNDERSCORE_TITLE_MODE,{className:"params",begin:"\\(",end:"\\)",contains:["self",VARIABLE,hljs.C_BLOCK_COMMENT_MODE,STRING,NUMBER]}]},{className:"class",beginKeywords:"class interface",end:"{",excludeEnd:true,illegal:/[:\(\$"]/,contains:[{beginKeywords:"extends implements"},hljs.UNDERSCORE_TITLE_MODE]},{beginKeywords:"namespace",end:";",illegal:/[\.']/,contains:[hljs.UNDERSCORE_TITLE_MODE]},{beginKeywords:"use",end:";",contains:[hljs.UNDERSCORE_TITLE_MODE]},{begin:"=>"},STRING,NUMBER]}});hljs.registerLanguage("haxe",function(hljs){var IDENT_RE="[a-zA-Z_$][a-zA-Z0-9_$]*";var IDENT_FUNC_RETURN_TYPE_RE="([*]|[a-zA-Z_$][a-zA-Z0-9_$]*)";var HAXE_BASIC_TYPES="Int Float String Bool Dynamic Void Array ";return{aliases:["hx"],keywords:{keyword:"break case cast catch continue default do dynamic else enum extern "+"for function here if import in inline never new override package private get set "+"public return static super switch this throw trace try typedef untyped using var while "+HAXE_BASIC_TYPES,built_in:"trace this",literal:"true false null _"},contains:[{className:"string",begin:"'",end:"'",contains:[hljs.BACKSLASH_ESCAPE,{className:"subst",begin:"\\$\\{",end:"\\}"},{className:"subst",begin:"\\$",end:"\\W}"}]},hljs.QUOTE_STRING_MODE,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.C_NUMBER_MODE,{className:"meta",begin:"@:",end:"$"},{className:"meta",begin:"#",end:"$",keywords:{"meta-keyword":"if else elseif end error"}},{className:"type",begin:":[ \t]*",end:"[^A-Za-z0-9_ \t\\->]",excludeBegin:true,excludeEnd:true,relevance:0},{className:"type",begin:":[ \t]*",end:"\\W",excludeBegin:true,excludeEnd:true},{className:"type",begin:"new *",end:"\\W",excludeBegin:true,excludeEnd:true},{className:"class",beginKeywords:"enum",end:"\\{",contains:[hljs.TITLE_MODE]},{className:"class",beginKeywords:"abstract",end:"[\\{$]",contains:[{className:"type",begin:"\\(",end:"\\)",excludeBegin:true,excludeEnd:true},{className:"type",begin:"from +",end:"\\W",excludeBegin:true,excludeEnd:true},{className:"type",begin:"to +",end:"\\W",excludeBegin:true,excludeEnd:true},hljs.TITLE_MODE],keywords:{keyword:"abstract from to"}},{className:"class",begin:"\\b(class|interface) +",end:"[\\{$]",excludeEnd:true,keywords:"class interface",contains:[{className:"keyword",begin:"\\b(extends|implements) +",keywords:"extends implements",contains:[{className:"type",begin:hljs.IDENT_RE,relevance:0}]},hljs.TITLE_MODE]},{className:"function",beginKeywords:"function",end:"\\(",excludeEnd:true,illegal:"\\S",contains:[hljs.TITLE_MODE]}],illegal:/<\//}});hljs.registerLanguage("autohotkey",function(hljs){var BACKTICK_ESCAPE={begin:"`[\\s\\S]"};return{case_insensitive:true,aliases:["ahk"],keywords:{keyword:"Break Continue Critical Exit ExitApp Gosub Goto New OnExit Pause return SetBatchLines SetTimer Suspend Thread Throw Until ahk_id ahk_class ahk_pid ahk_exe ahk_group",literal:"true false NOT AND OR",built_in:"ComSpec Clipboard ClipboardAll ErrorLevel"},contains:[BACKTICK_ESCAPE,hljs.inherit(hljs.QUOTE_STRING_MODE,{contains:[BACKTICK_ESCAPE]}),hljs.COMMENT(";","$",{relevance:0}),hljs.C_BLOCK_COMMENT_MODE,{className:"number",begin:hljs.NUMBER_RE,relevance:0},{className:"variable",begin:"%[a-zA-Z0-9#_$@]+%"},{className:"built_in",begin:"^\\s*\\w+\\s*(,|%)"},{className:"title",variants:[{begin:'^[^\\n";]+::(?!=)'},{begin:'^[^\\n";]+:(?!=)',relevance:0}]},{className:"meta",begin:"^\\s*#\\w+",end:"$",relevance:0},{className:"built_in",begin:"A_[a-zA-Z0-9]+"},{begin:",\\s*,"}]}});hljs.registerLanguage("protobuf",function(hljs){return{keywords:{keyword:"package import option optional required repeated group oneof",built_in:"double float int32 int64 uint32 uint64 sint32 sint64 "+"fixed32 fixed64 sfixed32 sfixed64 bool string bytes",literal:"true false"},contains:[hljs.QUOTE_STRING_MODE,hljs.NUMBER_MODE,hljs.C_LINE_COMMENT_MODE,{className:"class",beginKeywords:"message enum service",end:/\{/,illegal:/\n/,contains:[hljs.inherit(hljs.TITLE_MODE,{starts:{endsWithParent:true,excludeEnd:true}})]},{className:"function",beginKeywords:"rpc",end:/;/,excludeEnd:true,keywords:"rpc returns"},{begin:/^\s*[A-Z_]+/,end:/\s*=/,excludeEnd:true}]}});hljs.registerLanguage("capnproto",function(hljs){return{aliases:["capnp"],keywords:{keyword:"struct enum interface union group import using const annotation extends in of on as with from fixed",built_in:"Void Bool Int8 Int16 Int32 Int64 UInt8 UInt16 UInt32 UInt64 Float32 Float64 "+"Text Data AnyPointer AnyStruct Capability List",literal:"true false"},contains:[hljs.QUOTE_STRING_MODE,hljs.NUMBER_MODE,hljs.HASH_COMMENT_MODE,{className:"meta",begin:/@0x[\w\d]{16};/,illegal:/\n/},{className:"symbol",begin:/@\d+\b/},{className:"class",beginKeywords:"struct enum",end:/\{/,illegal:/\n/,contains:[hljs.inherit(hljs.TITLE_MODE,{starts:{endsWithParent:true,excludeEnd:true}})]},{className:"class",beginKeywords:"interface",end:/\{/,illegal:/\n/,contains:[hljs.inherit(hljs.TITLE_MODE,{starts:{endsWithParent:true,excludeEnd:true}})]}]}});hljs.registerLanguage("scala",function(hljs){var ANNOTATION={className:"meta",begin:"@[A-Za-z]+"};var SUBST={className:"subst",variants:[{begin:"\\$[A-Za-z0-9_]+"},{begin:"\\${",end:"}"}]};var STRING={className:"string",variants:[{begin:'"',end:'"',illegal:"\\n",contains:[hljs.BACKSLASH_ESCAPE]},{begin:'"""',end:'"""',relevance:10},{begin:'[a-z]+"',end:'"',illegal:"\\n",contains:[hljs.BACKSLASH_ESCAPE,SUBST]},{className:"string",begin:'[a-z]+"""',end:'"""',contains:[SUBST],relevance:10}]};var SYMBOL={className:"symbol",begin:"'\\w[\\w\\d_]*(?!')"};var TYPE={className:"type",begin:"\\b[A-Z][A-Za-z0-9_]*",relevance:0};var NAME={className:"title",begin:/[^0-9\n\t "'(),.`{}\[\]:;][^\n\t "'(),.`{}\[\]:;]+|[^0-9\n\t "'(),.`{}\[\]:;=]/,relevance:0};var CLASS={className:"class",beginKeywords:"class object trait type",end:/[:={\[\n;]/,excludeEnd:true,contains:[{beginKeywords:"extends with",relevance:10},{begin:/\[/,end:/\]/,excludeBegin:true,excludeEnd:true,relevance:0,contains:[TYPE]},{className:"params",begin:/\(/,end:/\)/,excludeBegin:true,excludeEnd:true,relevance:0,contains:[TYPE]},NAME]};var METHOD={className:"function",beginKeywords:"def",end:/[:={\[(\n;]/,excludeEnd:true,contains:[NAME]};return{keywords:{literal:"true false null",keyword:"type yield lazy override def with val var sealed abstract private trait object if forSome for while throw finally protected extends import final return else break new catch super class case package default try this match continue throws implicit"},contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,STRING,SYMBOL,TYPE,METHOD,CLASS,hljs.C_NUMBER_MODE,ANNOTATION]}});hljs.registerLanguage("django",function(hljs){var FILTER={begin:/\|[A-Za-z]+:?/,keywords:{name:"truncatewords removetags linebreaksbr yesno get_digit timesince random striptags "+"filesizeformat escape linebreaks length_is ljust rjust cut urlize fix_ampersands "+"title floatformat capfirst pprint divisibleby add make_list unordered_list urlencode "+"timeuntil urlizetrunc wordcount stringformat linenumbers slice date dictsort "+"dictsortreversed default_if_none pluralize lower join center default "+"truncatewords_html upper length phone2numeric wordwrap time addslashes slugify first "+"escapejs force_escape iriencode last safe safeseq truncatechars localize unlocalize "+"localtime utc timezone"},contains:[hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE]};return{aliases:["jinja"],case_insensitive:true,subLanguage:"xml",contains:[hljs.COMMENT(/\{%\s*comment\s*%}/,/\{%\s*endcomment\s*%}/),hljs.COMMENT(/\{#/,/#}/),{className:"template-tag",begin:/\{%/,end:/%}/,contains:[{className:"name",begin:/\w+/,keywords:{name:"comment endcomment load templatetag ifchanged endifchanged if endif firstof for "+"endfor ifnotequal endifnotequal widthratio extends include spaceless "+"endspaceless regroup ifequal endifequal ssi now with cycle url filter "+"endfilter debug block endblock else autoescape endautoescape csrf_token empty elif "+"endwith static trans blocktrans endblocktrans get_static_prefix get_media_prefix "+"plural get_current_language language get_available_languages "+"get_current_language_bidi get_language_info get_language_info_list localize "+"endlocalize localtime endlocaltime timezone endtimezone get_current_timezone "+"verbatim"},starts:{endsWithParent:true,keywords:"in by as",contains:[FILTER],relevance:0}}]},{className:"template-variable",begin:/\{\{/,end:/}}/,contains:[FILTER]}]}});hljs.registerLanguage("shell",function(hljs){return{aliases:["console"],contains:[{className:"meta",begin:"^\\s{0,3}[/\\w\\d\\[\\]()@-]*[>%$#]",starts:{end:"$",subLanguage:"bash"}}]}});hljs.registerLanguage("powershell",function(hljs){var TYPES=["string","char","byte","int","long","bool","decimal","single","double","DateTime","xml","array","hashtable","void"];var VALID_VERBS="Add|Clear|Close|Copy|Enter|Exit|Find|Format|Get|Hide|Join|Lock|"+"Move|New|Open|Optimize|Pop|Push|Redo|Remove|Rename|Reset|Resize|"+"Search|Select|Set|Show|Skip|Split|Step|Switch|Undo|Unlock|"+"Watch|Backup|Checkpoint|Compare|Compress|Convert|ConvertFrom|"+"ConvertTo|Dismount|Edit|Expand|Export|Group|Import|Initialize|"+"Limit|Merge|New|Out|Publish|Restore|Save|Sync|Unpublish|Update|"+"Approve|Assert|Complete|Confirm|Deny|Disable|Enable|Install|Invoke|Register|"+"Request|Restart|Resume|Start|Stop|Submit|Suspend|Uninstall|"+"Unregister|Wait|Debug|Measure|Ping|Repair|Resolve|Test|Trace|Connect|"+"Disconnect|Read|Receive|Send|Write|Block|Grant|Protect|Revoke|Unblock|"+"Unprotect|Use|ForEach|Sort|Tee|Where";var COMPARISON_OPERATORS="-and|-as|-band|-bnot|-bor|-bxor|-casesensitive|-ccontains|-ceq|-cge|-cgt|"+"-cle|-clike|-clt|-cmatch|-cne|-cnotcontains|-cnotlike|-cnotmatch|-contains|"+"-creplace|-csplit|-eq|-exact|-f|-file|-ge|-gt|-icontains|-ieq|-ige|-igt|"+"-ile|-ilike|-ilt|-imatch|-in|-ine|-inotcontains|-inotlike|-inotmatch|"+"-ireplace|-is|-isnot|-isplit|-join|-le|-like|-lt|-match|-ne|-not|"+"-notcontains|-notin|-notlike|-notmatch|-or|-regex|-replace|-shl|-shr|"+"-split|-wildcard|-xor";var KEYWORDS={keyword:"if else foreach return do while until elseif begin for trap data dynamicparam "+"end break throw param continue finally in switch exit filter try process catch "+"hidden static parameter"};var TITLE_NAME_RE=/\w[\w\d]*((-)[\w\d]+)*/;var BACKTICK_ESCAPE={begin:"`[\\s\\S]",relevance:0};var VAR={className:"variable",variants:[{begin:/\$\B/},{className:"keyword",begin:/\$this/},{begin:/\$[\w\d][\w\d_:]*/}]};var LITERAL={className:"literal",begin:/\$(null|true|false)\b/};var QUOTE_STRING={className:"string",variants:[{begin:/"/,end:/"/},{begin:/@"/,end:/^"@/}],contains:[BACKTICK_ESCAPE,VAR,{className:"variable",begin:/\$[A-z]/,end:/[^A-z]/}]};var APOS_STRING={className:"string",variants:[{begin:/'/,end:/'/},{begin:/@'/,end:/^'@/}]};var PS_HELPTAGS={className:"doctag",variants:[{begin:/\.(synopsis|description|example|inputs|outputs|notes|link|component|role|functionality)/},{begin:/\.(parameter|forwardhelptargetname|forwardhelpcategory|remotehelprunspace|externalhelp)\s+\S+/}]};var PS_COMMENT=hljs.inherit(hljs.COMMENT(null,null),{variants:[{begin:/#/,end:/$/},{begin:/<#/,end:/#>/}],contains:[PS_HELPTAGS]});var CMDLETS={className:"built_in",variants:[{begin:"(".concat(VALID_VERBS,")+(-)[\\w\\d]+")}]};var PS_CLASS={className:"class",beginKeywords:"class enum",end:/\s*[{]/,excludeEnd:true,relevance:0,contains:[hljs.TITLE_MODE]};var PS_FUNCTION={className:"function",begin:/function\s+/,end:/\s*\{|$/,excludeEnd:true,returnBegin:true,relevance:0,contains:[{begin:"function",relevance:0,className:"keyword"},{className:"title",begin:TITLE_NAME_RE,relevance:0},{begin:/\(/,end:/\)/,className:"params",relevance:0,contains:[VAR]}]};var PS_USING={begin:/using\s/,end:/$/,returnBegin:true,contains:[QUOTE_STRING,APOS_STRING,{className:"keyword",begin:/(using|assembly|command|module|namespace|type)/}]};var PS_ARGUMENTS={variants:[{className:"operator",begin:"(".concat(COMPARISON_OPERATORS,")\\b")},{className:"literal",begin:/(-)[\w\d]+/,relevance:0}]};var STATIC_MEMBER={className:"selector-tag",begin:/::\w+\b/,end:/$/,returnBegin:true,contains:[{className:"attribute",begin:/\w+/,endsParent:true}]};var HASH_SIGNS={className:"selector-tag",begin:/\@\B/,relevance:0};var PS_NEW_OBJECT_TYPE={className:"built_in",begin:/New-Object\s+\w/,end:/$/,returnBegin:true,contains:[{begin:/New-Object\s+/,relevance:0},{className:"meta",begin:/([\w\.])+/,endsParent:true}]};var PS_METHODS={className:"function",begin:/\[.*\]\s*[\w]+[ ]??\(/,end:/$/,returnBegin:true,relevance:0,contains:[{className:"keyword",begin:"(".concat(KEYWORDS.keyword.toString().replace(/\s/g,"|"),")\\b"),endsParent:true,relevance:0},hljs.inherit(hljs.TITLE_MODE,{endsParent:true})]};var GENTLEMANS_SET=[PS_METHODS,PS_COMMENT,BACKTICK_ESCAPE,hljs.NUMBER_MODE,QUOTE_STRING,APOS_STRING,CMDLETS,VAR,LITERAL,HASH_SIGNS];var PS_TYPE={begin:/\[/,end:/\]/,excludeBegin:true,excludeEnd:true,relevance:0,contains:[].concat("self",GENTLEMANS_SET,{begin:"("+TYPES.join("|")+")",className:"built_in",relevance:0},{className:"type",begin:/[\.\w\d]+/,relevance:0})};PS_METHODS.contains.unshift(PS_TYPE);return{aliases:["ps","ps1"],lexemes:/-?[A-z\.\-]+/,case_insensitive:true,keywords:KEYWORDS,contains:GENTLEMANS_SET.concat(PS_CLASS,PS_FUNCTION,PS_USING,PS_ARGUMENTS,PS_TYPE)}});hljs.registerLanguage("swift",function(hljs){var SWIFT_KEYWORDS={keyword:"#available #colorLiteral #column #else #elseif #endif #file "+"#fileLiteral #function #if #imageLiteral #line #selector #sourceLocation "+"_ __COLUMN__ __FILE__ __FUNCTION__ __LINE__ Any as as! as? associatedtype "+"associativity break case catch class continue convenience default defer deinit didSet do "+"dynamic dynamicType else enum extension fallthrough false fileprivate final for func "+"get guard if import in indirect infix init inout internal is lazy left let "+"mutating nil none nonmutating open operator optional override postfix precedence "+"prefix private protocol Protocol public repeat required rethrows return "+"right self Self set static struct subscript super switch throw throws true "+"try try! try? Type typealias unowned var weak where while willSet",literal:"true false nil",built_in:"abs advance alignof alignofValue anyGenerator assert assertionFailure "+"bridgeFromObjectiveC bridgeFromObjectiveCUnconditional bridgeToObjectiveC "+"bridgeToObjectiveCUnconditional c contains count countElements countLeadingZeros "+"debugPrint debugPrintln distance dropFirst dropLast dump encodeBitsAsWords "+"enumerate equal fatalError filter find getBridgedObjectiveCType getVaList "+"indices insertionSort isBridgedToObjectiveC isBridgedVerbatimToObjectiveC "+"isUniquelyReferenced isUniquelyReferencedNonObjC join lazy lexicographicalCompare "+"map max maxElement min minElement numericCast overlaps partition posix "+"precondition preconditionFailure print println quickSort readLine reduce reflect "+"reinterpretCast reverse roundUpToAlignment sizeof sizeofValue sort split "+"startsWith stride strideof strideofValue swap toString transcode "+"underestimateCount unsafeAddressOf unsafeBitCast unsafeDowncast unsafeUnwrap "+"unsafeReflect withExtendedLifetime withObjectAtPlusZero withUnsafePointer "+"withUnsafePointerToObject withUnsafeMutablePointer withUnsafeMutablePointers "+"withUnsafePointer withUnsafePointers withVaList zip"};var TYPE={className:"type",begin:"\\b[A-Z][\\wÀ-ʸ']*",relevance:0};var OPTIONAL_USING_TYPE={className:"type",begin:"\\b[A-Z][\\wÀ-ʸ']*[!?]"};var BLOCK_COMMENT=hljs.COMMENT("/\\*","\\*/",{contains:["self"]});var SUBST={className:"subst",begin:/\\\(/,end:"\\)",keywords:SWIFT_KEYWORDS,contains:[]};var STRING={className:"string",contains:[hljs.BACKSLASH_ESCAPE,SUBST],variants:[{begin:/"""/,end:/"""/},{begin:/"/,end:/"/}]};var NUMBERS={className:"number",begin:"\\b([\\d_]+(\\.[\\deE_]+)?|0x[a-fA-F0-9_]+(\\.[a-fA-F0-9p_]+)?|0b[01_]+|0o[0-7_]+)\\b",relevance:0};SUBST.contains=[NUMBERS];return{keywords:SWIFT_KEYWORDS,contains:[STRING,hljs.C_LINE_COMMENT_MODE,BLOCK_COMMENT,OPTIONAL_USING_TYPE,TYPE,NUMBERS,{className:"function",beginKeywords:"func",end:"{",excludeEnd:true,contains:[hljs.inherit(hljs.TITLE_MODE,{begin:/[A-Za-z$_][0-9A-Za-z$_]*/}),{begin:/</,end:/>/},{className:"params",begin:/\(/,end:/\)/,endsParent:true,keywords:SWIFT_KEYWORDS,contains:["self",NUMBERS,STRING,hljs.C_BLOCK_COMMENT_MODE,{begin:":"}],illegal:/["']/}],illegal:/\[|%/},{className:"class",beginKeywords:"struct protocol class extension enum",keywords:SWIFT_KEYWORDS,end:"\\{",excludeEnd:true,contains:[hljs.inherit(hljs.TITLE_MODE,{begin:/[A-Za-z$_][\u00C0-\u02B80-9A-Za-z$_]*/})]},{className:"meta",begin:"(@discardableResult|@warn_unused_result|@exported|@lazy|@noescape|"+"@NSCopying|@NSManaged|@objc|@objcMembers|@convention|@required|"+"@noreturn|@IBAction|@IBDesignable|@IBInspectable|@IBOutlet|"+"@infix|@prefix|@postfix|@autoclosure|@testable|@available|"+"@nonobjc|@NSApplicationMain|@UIApplicationMain|@dynamicMemberLookup|"+"@propertyWrapper)"},{beginKeywords:"import",end:/$/,contains:[hljs.C_LINE_COMMENT_MODE,BLOCK_COMMENT]}]}});hljs.registerLanguage("sas",function(hljs){var SAS_KEYWORDS=""+"do if then else end until while "+""+"abort array attrib by call cards cards4 catname continue "+"datalines datalines4 delete delim delimiter display dm drop "+"endsas error file filename footnote format goto in infile "+"informat input keep label leave length libname link list "+"lostcard merge missing modify options output out page put "+"redirect remove rename replace retain return select set skip "+"startsas stop title update waitsas where window x systask "+""+"add and alter as cascade check create delete describe "+"distinct drop foreign from group having index insert into in "+"key like message modify msgtype not null on or order primary "+"references reset restrict select set table unique update "+"validate view where";var SAS_FUN=""+"abs|addr|airy|arcos|arsin|atan|attrc|attrn|band|"+"betainv|blshift|bnot|bor|brshift|bxor|byte|cdf|ceil|"+"cexist|cinv|close|cnonct|collate|compbl|compound|"+"compress|cos|cosh|css|curobs|cv|daccdb|daccdbsl|"+"daccsl|daccsyd|dacctab|dairy|date|datejul|datepart|"+"datetime|day|dclose|depdb|depdbsl|depdbsl|depsl|"+"depsl|depsyd|depsyd|deptab|deptab|dequote|dhms|dif|"+"digamma|dim|dinfo|dnum|dopen|doptname|doptnum|dread|"+"dropnote|dsname|erf|erfc|exist|exp|fappend|fclose|"+"fcol|fdelete|fetch|fetchobs|fexist|fget|fileexist|"+"filename|fileref|finfo|finv|fipname|fipnamel|"+"fipstate|floor|fnonct|fnote|fopen|foptname|foptnum|"+"fpoint|fpos|fput|fread|frewind|frlen|fsep|fuzz|"+"fwrite|gaminv|gamma|getoption|getvarc|getvarn|hbound|"+"hms|hosthelp|hour|ibessel|index|indexc|indexw|input|"+"inputc|inputn|int|intck|intnx|intrr|irr|jbessel|"+"juldate|kurtosis|lag|lbound|left|length|lgamma|"+"libname|libref|log|log10|log2|logpdf|logpmf|logsdf|"+"lowcase|max|mdy|mean|min|minute|mod|month|mopen|"+"mort|n|netpv|nmiss|normal|note|npv|open|ordinal|"+"pathname|pdf|peek|peekc|pmf|point|poisson|poke|"+"probbeta|probbnml|probchi|probf|probgam|probhypr|"+"probit|probnegb|probnorm|probt|put|putc|putn|qtr|"+"quote|ranbin|rancau|ranexp|rangam|range|rank|rannor|"+"ranpoi|rantbl|rantri|ranuni|repeat|resolve|reverse|"+"rewind|right|round|saving|scan|sdf|second|sign|"+"sin|sinh|skewness|soundex|spedis|sqrt|std|stderr|"+"stfips|stname|stnamel|substr|sum|symget|sysget|"+"sysmsg|sysprod|sysrc|system|tan|tanh|time|timepart|"+"tinv|tnonct|today|translate|tranwrd|trigamma|"+"trim|trimn|trunc|uniform|upcase|uss|var|varfmt|"+"varinfmt|varlabel|varlen|varname|varnum|varray|"+"varrayx|vartype|verify|vformat|vformatd|vformatdx|"+"vformatn|vformatnx|vformatw|vformatwx|vformatx|"+"vinarray|vinarrayx|vinformat|vinformatd|vinformatdx|"+"vinformatn|vinformatnx|vinformatw|vinformatwx|"+"vinformatx|vlabel|vlabelx|vlength|vlengthx|vname|"+"vnamex|vtype|vtypex|weekday|year|yyq|zipfips|zipname|"+"zipnamel|zipstate";var SAS_MACRO_FUN="bquote|nrbquote|cmpres|qcmpres|compstor|"+"datatyp|display|do|else|end|eval|global|goto|"+"if|index|input|keydef|label|left|length|let|"+"local|lowcase|macro|mend|nrbquote|nrquote|"+"nrstr|put|qcmpres|qleft|qlowcase|qscan|"+"qsubstr|qsysfunc|qtrim|quote|qupcase|scan|str|"+"substr|superq|syscall|sysevalf|sysexec|sysfunc|"+"sysget|syslput|sysprod|sysrc|sysrput|then|to|"+"trim|unquote|until|upcase|verify|while|window";return{aliases:["sas","SAS"],case_insensitive:true,keywords:{literal:"null missing _all_ _automatic_ _character_ _infile_ "+"_n_ _name_ _null_ _numeric_ _user_ _webout_",meta:SAS_KEYWORDS},contains:[{className:"keyword",begin:/^\s*(proc [\w\d_]+|data|run|quit)[\s\;]/},{className:"variable",begin:/\&[a-zA-Z_\&][a-zA-Z0-9_]*\.?/},{className:"emphasis",begin:/^\s*datalines|cards.*;/,end:/^\s*;\s*$/},{className:"built_in",begin:"%("+SAS_MACRO_FUN+")"},{className:"name",begin:/%[a-zA-Z_][a-zA-Z_0-9]*/},{className:"meta",begin:"[^%]("+SAS_FUN+")[(]"},{className:"string",variants:[hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE]},hljs.COMMENT("\\*",";"),hljs.C_BLOCK_COMMENT_MODE]}});hljs.registerLanguage("gradle",function(hljs){return{case_insensitive:true,keywords:{keyword:"task project allprojects subprojects artifacts buildscript configurations "+"dependencies repositories sourceSets description delete from into include "+"exclude source classpath destinationDir includes options sourceCompatibility "+"targetCompatibility group flatDir doLast doFirst flatten todir fromdir ant "+"def abstract break case catch continue default do else extends final finally "+"for if implements instanceof native new private protected public return static "+"switch synchronized throw throws transient try volatile while strictfp package "+"import false null super this true antlrtask checkstyle codenarc copy boolean "+"byte char class double float int interface long short void compile runTime "+"file fileTree abs any append asList asWritable call collect compareTo count "+"div dump each eachByte eachFile eachLine every find findAll flatten getAt "+"getErr getIn getOut getText grep immutable inject inspect intersect invokeMethods "+"isCase join leftShift minus multiply newInputStream newOutputStream newPrintWriter "+"newReader newWriter next plus pop power previous print println push putAt read "+"readBytes readLines reverse reverseEach round size sort splitEachLine step subMap "+"times toInteger toList tokenize upto waitForOrKill withPrintWriter withReader "+"withStream withWriter withWriterAppend write writeLine"},contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.NUMBER_MODE,hljs.REGEXP_MODE]}});hljs.registerLanguage("stylus",function(hljs){var VARIABLE={className:"variable",begin:"\\$"+hljs.IDENT_RE};var HEX_COLOR={className:"number",begin:"#([a-fA-F0-9]{6}|[a-fA-F0-9]{3})"};var AT_KEYWORDS=["charset","css","debug","extend","font-face","for","import","include","media","mixin","page","warn","while"];var PSEUDO_SELECTORS=["after","before","first-letter","first-line","active","first-child","focus","hover","lang","link","visited"];var TAGS=["a","abbr","address","article","aside","audio","b","blockquote","body","button","canvas","caption","cite","code","dd","del","details","dfn","div","dl","dt","em","fieldset","figcaption","figure","footer","form","h1","h2","h3","h4","h5","h6","header","hgroup","html","i","iframe","img","input","ins","kbd","label","legend","li","mark","menu","nav","object","ol","p","q","quote","samp","section","span","strong","summary","sup","table","tbody","td","textarea","tfoot","th","thead","time","tr","ul","var","video"];var LOOKAHEAD_TAG_END="(?=[\\.\\s\\n\\[\\:,])";var ATTRIBUTES=["align-content","align-items","align-self","animation","animation-delay","animation-direction","animation-duration","animation-fill-mode","animation-iteration-count","animation-name","animation-play-state","animation-timing-function","auto","backface-visibility","background","background-attachment","background-clip","background-color","background-image","background-origin","background-position","background-repeat","background-size","border","border-bottom","border-bottom-color","border-bottom-left-radius","border-bottom-right-radius","border-bottom-style","border-bottom-width","border-collapse","border-color","border-image","border-image-outset","border-image-repeat","border-image-slice","border-image-source","border-image-width","border-left","border-left-color","border-left-style","border-left-width","border-radius","border-right","border-right-color","border-right-style","border-right-width","border-spacing","border-style","border-top","border-top-color","border-top-left-radius","border-top-right-radius","border-top-style","border-top-width","border-width","bottom","box-decoration-break","box-shadow","box-sizing","break-after","break-before","break-inside","caption-side","clear","clip","clip-path","color","column-count","column-fill","column-gap","column-rule","column-rule-color","column-rule-style","column-rule-width","column-span","column-width","columns","content","counter-increment","counter-reset","cursor","direction","display","empty-cells","filter","flex","flex-basis","flex-direction","flex-flow","flex-grow","flex-shrink","flex-wrap","float","font","font-family","font-feature-settings","font-kerning","font-language-override","font-size","font-size-adjust","font-stretch","font-style","font-variant","font-variant-ligatures","font-weight","height","hyphens","icon","image-orientation","image-rendering","image-resolution","ime-mode","inherit","initial","justify-content","left","letter-spacing","line-height","list-style","list-style-image","list-style-position","list-style-type","margin","margin-bottom","margin-left","margin-right","margin-top","marks","mask","max-height","max-width","min-height","min-width","nav-down","nav-index","nav-left","nav-right","nav-up","none","normal","object-fit","object-position","opacity","order","orphans","outline","outline-color","outline-offset","outline-style","outline-width","overflow","overflow-wrap","overflow-x","overflow-y","padding","padding-bottom","padding-left","padding-right","padding-top","page-break-after","page-break-before","page-break-inside","perspective","perspective-origin","pointer-events","position","quotes","resize","right","tab-size","table-layout","text-align","text-align-last","text-decoration","text-decoration-color","text-decoration-line","text-decoration-style","text-indent","text-overflow","text-rendering","text-shadow","text-transform","text-underline-position","top","transform","transform-origin","transform-style","transition","transition-delay","transition-duration","transition-property","transition-timing-function","unicode-bidi","vertical-align","visibility","white-space","widows","width","word-break","word-spacing","word-wrap","z-index"];var ILLEGAL=["\\?","(\\bReturn\\b)","(\\bEnd\\b)","(\\bend\\b)","(\\bdef\\b)",";","#\\s","\\*\\s","===\\s","\\|","%"];return{aliases:["styl"],case_insensitive:false,keywords:"if else for in",illegal:"("+ILLEGAL.join("|")+")",contains:[hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,HEX_COLOR,{begin:"\\.[a-zA-Z][a-zA-Z0-9_-]*"+LOOKAHEAD_TAG_END,className:"selector-class"},{begin:"\\#[a-zA-Z][a-zA-Z0-9_-]*"+LOOKAHEAD_TAG_END,className:"selector-id"},{begin:"\\b("+TAGS.join("|")+")"+LOOKAHEAD_TAG_END,className:"selector-tag"},{begin:"&?:?:\\b("+PSEUDO_SELECTORS.join("|")+")"+LOOKAHEAD_TAG_END},{begin:"@("+AT_KEYWORDS.join("|")+")\\b"},VARIABLE,hljs.CSS_NUMBER_MODE,hljs.NUMBER_MODE,{className:"function",begin:"^[a-zA-Z][a-zA-Z0-9_-]*\\(.*\\)",illegal:"[\\n]",returnBegin:true,contains:[{className:"title",begin:"\\b[a-zA-Z][a-zA-Z0-9_-]*"},{className:"params",begin:/\(/,end:/\)/,contains:[HEX_COLOR,VARIABLE,hljs.APOS_STRING_MODE,hljs.CSS_NUMBER_MODE,hljs.NUMBER_MODE,hljs.QUOTE_STRING_MODE]}]},{className:"attribute",begin:"\\b("+ATTRIBUTES.reverse().join("|")+")\\b",starts:{end:/;|$/,contains:[HEX_COLOR,VARIABLE,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.CSS_NUMBER_MODE,hljs.NUMBER_MODE,hljs.C_BLOCK_COMMENT_MODE],illegal:/\./,relevance:0}}]}});hljs.registerLanguage("profile",function(hljs){return{contains:[hljs.C_NUMBER_MODE,{begin:"[a-zA-Z_][\\da-zA-Z_]+\\.[\\da-zA-Z_]{1,3}",end:":",excludeEnd:true},{begin:"(ncalls|tottime|cumtime)",end:"$",keywords:"ncalls tottime|10 cumtime|10 filename",relevance:10},{begin:"function calls",end:"$",contains:[hljs.C_NUMBER_MODE],relevance:10},hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,{className:"string",begin:"\\(",end:"\\)$",excludeBegin:true,excludeEnd:true,relevance:0}]}});hljs.registerLanguage("sqf",function(hljs){var VARIABLE={className:"variable",begin:/\b_+[a-zA-Z_]\w*/};var FUNCTION={className:"title",begin:/[a-zA-Z][a-zA-Z0-9]+_fnc_\w*/};var STRINGS={className:"string",variants:[{begin:'"',end:'"',contains:[{begin:'""',relevance:0}]},{begin:"'",end:"'",contains:[{begin:"''",relevance:0}]}]};var PREPROCESSOR={className:"meta",begin:/#\s*[a-z]+\b/,end:/$/,keywords:{"meta-keyword":"define undef ifdef ifndef else endif include"},contains:[{begin:/\\\n/,relevance:0},hljs.inherit(STRINGS,{className:"meta-string"}),{className:"meta-string",begin:/<[^\n>]*>/,end:/$/,illegal:"\\n"},hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE]};return{aliases:["sqf"],case_insensitive:true,keywords:{keyword:"case catch default do else exit exitWith for forEach from if "+"private switch then throw to try waitUntil while with",built_in:"abs accTime acos action actionIDs actionKeys actionKeysImages actionKeysNames "+"actionKeysNamesArray actionName actionParams activateAddons activatedAddons activateKey "+"add3DENConnection add3DENEventHandler add3DENLayer addAction addBackpack addBackpackCargo "+"addBackpackCargoGlobal addBackpackGlobal addCamShake addCuratorAddons addCuratorCameraArea "+"addCuratorEditableObjects addCuratorEditingArea addCuratorPoints addEditorObject addEventHandler "+"addForce addGoggles addGroupIcon addHandgunItem addHeadgear addItem addItemCargo "+"addItemCargoGlobal addItemPool addItemToBackpack addItemToUniform addItemToVest addLiveStats "+"addMagazine addMagazineAmmoCargo addMagazineCargo addMagazineCargoGlobal addMagazineGlobal "+"addMagazinePool addMagazines addMagazineTurret addMenu addMenuItem addMissionEventHandler "+"addMPEventHandler addMusicEventHandler addOwnedMine addPlayerScores addPrimaryWeaponItem "+"addPublicVariableEventHandler addRating addResources addScore addScoreSide addSecondaryWeaponItem "+"addSwitchableUnit addTeamMember addToRemainsCollector addTorque addUniform addVehicle addVest "+"addWaypoint addWeapon addWeaponCargo addWeaponCargoGlobal addWeaponGlobal addWeaponItem "+"addWeaponPool addWeaponTurret admin agent agents AGLToASL aimedAtTarget aimPos airDensityRTD "+"airplaneThrottle airportSide AISFinishHeal alive all3DENEntities allAirports allControls "+"allCurators allCutLayers allDead allDeadMen allDisplays allGroups allMapMarkers allMines "+"allMissionObjects allow3DMode allowCrewInImmobile allowCuratorLogicIgnoreAreas allowDamage "+"allowDammage allowFileOperations allowFleeing allowGetIn allowSprint allPlayers allSimpleObjects "+"allSites allTurrets allUnits allUnitsUAV allVariables ammo ammoOnPylon and animate animateBay "+"animateDoor animatePylon animateSource animationNames animationPhase animationSourcePhase "+"animationState append apply armoryPoints arrayIntersect asin ASLToAGL ASLToATL assert "+"assignAsCargo assignAsCargoIndex assignAsCommander assignAsDriver assignAsGunner assignAsTurret "+"assignCurator assignedCargo assignedCommander assignedDriver assignedGunner assignedItems "+"assignedTarget assignedTeam assignedVehicle assignedVehicleRole assignItem assignTeam "+"assignToAirport atan atan2 atg ATLToASL attachedObject attachedObjects attachedTo attachObject "+"attachTo attackEnabled backpack backpackCargo backpackContainer backpackItems backpackMagazines "+"backpackSpaceFor behaviour benchmark binocular boundingBox boundingBoxReal boundingCenter "+"breakOut breakTo briefingName buildingExit buildingPos buttonAction buttonSetAction cadetMode "+"call callExtension camCommand camCommit camCommitPrepared camCommitted camConstuctionSetParams "+"camCreate camDestroy cameraEffect cameraEffectEnableHUD cameraInterest cameraOn cameraView "+"campaignConfigFile camPreload camPreloaded camPrepareBank camPrepareDir camPrepareDive "+"camPrepareFocus camPrepareFov camPrepareFovRange camPreparePos camPrepareRelPos camPrepareTarget "+"camSetBank camSetDir camSetDive camSetFocus camSetFov camSetFovRange camSetPos camSetRelPos "+"camSetTarget camTarget camUseNVG canAdd canAddItemToBackpack canAddItemToUniform canAddItemToVest "+"cancelSimpleTaskDestination canFire canMove canSlingLoad canStand canSuspend "+"canTriggerDynamicSimulation canUnloadInCombat canVehicleCargo captive captiveNum cbChecked "+"cbSetChecked ceil channelEnabled cheatsEnabled checkAIFeature checkVisibility className "+"clearAllItemsFromBackpack clearBackpackCargo clearBackpackCargoGlobal clearGroupIcons "+"clearItemCargo clearItemCargoGlobal clearItemPool clearMagazineCargo clearMagazineCargoGlobal "+"clearMagazinePool clearOverlay clearRadio clearWeaponCargo clearWeaponCargoGlobal clearWeaponPool "+"clientOwner closeDialog closeDisplay closeOverlay collapseObjectTree collect3DENHistory "+"collectiveRTD combatMode commandArtilleryFire commandChat commander commandFire commandFollow "+"commandFSM commandGetOut commandingMenu commandMove commandRadio commandStop "+"commandSuppressiveFire commandTarget commandWatch comment commitOverlay compile compileFinal "+"completedFSM composeText configClasses configFile configHierarchy configName configProperties "+"configSourceAddonList configSourceMod configSourceModList confirmSensorTarget "+"connectTerminalToUAV controlsGroupCtrl copyFromClipboard copyToClipboard copyWaypoints cos count "+"countEnemy countFriendly countSide countType countUnknown create3DENComposition create3DENEntity "+"createAgent createCenter createDialog createDiaryLink createDiaryRecord createDiarySubject "+"createDisplay createGearDialog createGroup createGuardedPoint createLocation createMarker "+"createMarkerLocal createMenu createMine createMissionDisplay createMPCampaignDisplay "+"createSimpleObject createSimpleTask createSite createSoundSource createTask createTeam "+"createTrigger createUnit createVehicle createVehicleCrew createVehicleLocal crew ctAddHeader "+"ctAddRow ctClear ctCurSel ctData ctFindHeaderRows ctFindRowHeader ctHeaderControls ctHeaderCount "+"ctRemoveHeaders ctRemoveRows ctrlActivate ctrlAddEventHandler ctrlAngle ctrlAutoScrollDelay "+"ctrlAutoScrollRewind ctrlAutoScrollSpeed ctrlChecked ctrlClassName ctrlCommit ctrlCommitted "+"ctrlCreate ctrlDelete ctrlEnable ctrlEnabled ctrlFade ctrlHTMLLoaded ctrlIDC ctrlIDD "+"ctrlMapAnimAdd ctrlMapAnimClear ctrlMapAnimCommit ctrlMapAnimDone ctrlMapCursor ctrlMapMouseOver "+"ctrlMapScale ctrlMapScreenToWorld ctrlMapWorldToScreen ctrlModel ctrlModelDirAndUp ctrlModelScale "+"ctrlParent ctrlParentControlsGroup ctrlPosition ctrlRemoveAllEventHandlers ctrlRemoveEventHandler "+"ctrlScale ctrlSetActiveColor ctrlSetAngle ctrlSetAutoScrollDelay ctrlSetAutoScrollRewind "+"ctrlSetAutoScrollSpeed ctrlSetBackgroundColor ctrlSetChecked ctrlSetEventHandler ctrlSetFade "+"ctrlSetFocus ctrlSetFont ctrlSetFontH1 ctrlSetFontH1B ctrlSetFontH2 ctrlSetFontH2B ctrlSetFontH3 "+"ctrlSetFontH3B ctrlSetFontH4 ctrlSetFontH4B ctrlSetFontH5 ctrlSetFontH5B ctrlSetFontH6 "+"ctrlSetFontH6B ctrlSetFontHeight ctrlSetFontHeightH1 ctrlSetFontHeightH2 ctrlSetFontHeightH3 "+"ctrlSetFontHeightH4 ctrlSetFontHeightH5 ctrlSetFontHeightH6 ctrlSetFontHeightSecondary "+"ctrlSetFontP ctrlSetFontPB ctrlSetFontSecondary ctrlSetForegroundColor ctrlSetModel "+"ctrlSetModelDirAndUp ctrlSetModelScale ctrlSetPixelPrecision ctrlSetPosition ctrlSetScale "+"ctrlSetStructuredText ctrlSetText ctrlSetTextColor ctrlSetTooltip ctrlSetTooltipColorBox "+"ctrlSetTooltipColorShade ctrlSetTooltipColorText ctrlShow ctrlShown ctrlText ctrlTextHeight "+"ctrlTextWidth ctrlType ctrlVisible ctRowControls ctRowCount ctSetCurSel ctSetData "+"ctSetHeaderTemplate ctSetRowTemplate ctSetValue ctValue curatorAddons curatorCamera "+"curatorCameraArea curatorCameraAreaCeiling curatorCoef curatorEditableObjects curatorEditingArea "+"curatorEditingAreaType curatorMouseOver curatorPoints curatorRegisteredObjects curatorSelected "+"curatorWaypointCost current3DENOperation currentChannel currentCommand currentMagazine "+"currentMagazineDetail currentMagazineDetailTurret currentMagazineTurret currentMuzzle "+"currentNamespace currentTask currentTasks currentThrowable currentVisionMode currentWaypoint "+"currentWeapon currentWeaponMode currentWeaponTurret currentZeroing cursorObject cursorTarget "+"customChat customRadio cutFadeOut cutObj cutRsc cutText damage date dateToNumber daytime "+"deActivateKey debriefingText debugFSM debugLog deg delete3DENEntities deleteAt deleteCenter "+"deleteCollection deleteEditorObject deleteGroup deleteGroupWhenEmpty deleteIdentity "+"deleteLocation deleteMarker deleteMarkerLocal deleteRange deleteResources deleteSite deleteStatus "+"deleteTeam deleteVehicle deleteVehicleCrew deleteWaypoint detach detectedMines "+"diag_activeMissionFSMs diag_activeScripts diag_activeSQFScripts diag_activeSQSScripts "+"diag_captureFrame diag_captureFrameToFile diag_captureSlowFrame diag_codePerformance "+"diag_drawMode diag_enable diag_enabled diag_fps diag_fpsMin diag_frameNo diag_lightNewLoad "+"diag_list diag_log diag_logSlowFrame diag_mergeConfigFile diag_recordTurretLimits "+"diag_setLightNew diag_tickTime diag_toggle dialog diarySubjectExists didJIP didJIPOwner "+"difficulty difficultyEnabled difficultyEnabledRTD difficultyOption direction directSay disableAI "+"disableCollisionWith disableConversation disableDebriefingStats disableMapIndicators "+"disableNVGEquipment disableRemoteSensors disableSerialization disableTIEquipment "+"disableUAVConnectability disableUserInput displayAddEventHandler displayCtrl displayParent "+"displayRemoveAllEventHandlers displayRemoveEventHandler displaySetEventHandler dissolveTeam "+"distance distance2D distanceSqr distributionRegion do3DENAction doArtilleryFire doFire doFollow "+"doFSM doGetOut doMove doorPhase doStop doSuppressiveFire doTarget doWatch drawArrow drawEllipse "+"drawIcon drawIcon3D drawLine drawLine3D drawLink drawLocation drawPolygon drawRectangle "+"drawTriangle driver drop dynamicSimulationDistance dynamicSimulationDistanceCoef "+"dynamicSimulationEnabled dynamicSimulationSystemEnabled echo edit3DENMissionAttributes editObject "+"editorSetEventHandler effectiveCommander emptyPositions enableAI enableAIFeature "+"enableAimPrecision enableAttack enableAudioFeature enableAutoStartUpRTD enableAutoTrimRTD "+"enableCamShake enableCaustics enableChannel enableCollisionWith enableCopilot "+"enableDebriefingStats enableDiagLegend enableDynamicSimulation enableDynamicSimulationSystem "+"enableEndDialog enableEngineArtillery enableEnvironment enableFatigue enableGunLights "+"enableInfoPanelComponent enableIRLasers enableMimics enablePersonTurret enableRadio enableReload "+"enableRopeAttach enableSatNormalOnDetail enableSaving enableSentences enableSimulation "+"enableSimulationGlobal enableStamina enableTeamSwitch enableTraffic enableUAVConnectability "+"enableUAVWaypoints enableVehicleCargo enableVehicleSensor enableWeaponDisassembly "+"endLoadingScreen endMission engineOn enginesIsOnRTD enginesRpmRTD enginesTorqueRTD entities "+"environmentEnabled estimatedEndServerTime estimatedTimeLeft evalObjectArgument everyBackpack "+"everyContainer exec execEditorScript execFSM execVM exp expectedDestination exportJIPMessages "+"eyeDirection eyePos face faction fadeMusic fadeRadio fadeSound fadeSpeech failMission "+"fillWeaponsFromPool find findCover findDisplay findEditorObject findEmptyPosition "+"findEmptyPositionReady findIf findNearestEnemy finishMissionInit finite fire fireAtTarget "+"firstBackpack flag flagAnimationPhase flagOwner flagSide flagTexture fleeing floor flyInHeight "+"flyInHeightASL fog fogForecast fogParams forceAddUniform forcedMap forceEnd forceFlagTexture "+"forceFollowRoad forceMap forceRespawn forceSpeed forceWalk forceWeaponFire forceWeatherChange "+"forEachMember forEachMemberAgent forEachMemberTeam forgetTarget format formation "+"formationDirection formationLeader formationMembers formationPosition formationTask formatText "+"formLeader freeLook fromEditor fuel fullCrew gearIDCAmmoCount gearSlotAmmoCount gearSlotData "+"get3DENActionState get3DENAttribute get3DENCamera get3DENConnections get3DENEntity "+"get3DENEntityID get3DENGrid get3DENIconsVisible get3DENLayerEntities get3DENLinesVisible "+"get3DENMissionAttribute get3DENMouseOver get3DENSelected getAimingCoef getAllEnvSoundControllers "+"getAllHitPointsDamage getAllOwnedMines getAllSoundControllers getAmmoCargo getAnimAimPrecision "+"getAnimSpeedCoef getArray getArtilleryAmmo getArtilleryComputerSettings getArtilleryETA "+"getAssignedCuratorLogic getAssignedCuratorUnit getBackpackCargo getBleedingRemaining "+"getBurningValue getCameraViewDirection getCargoIndex getCenterOfMass getClientState "+"getClientStateNumber getCompatiblePylonMagazines getConnectedUAV getContainerMaxLoad "+"getCursorObjectParams getCustomAimCoef getDammage getDescription getDir getDirVisual "+"getDLCAssetsUsage getDLCAssetsUsageByName getDLCs getEditorCamera getEditorMode "+"getEditorObjectScope getElevationOffset getEnvSoundController getFatigue getForcedFlagTexture "+"getFriend getFSMVariable getFuelCargo getGroupIcon getGroupIconParams getGroupIcons getHideFrom "+"getHit getHitIndex getHitPointDamage getItemCargo getMagazineCargo getMarkerColor getMarkerPos "+"getMarkerSize getMarkerType getMass getMissionConfig getMissionConfigValue getMissionDLCs "+"getMissionLayerEntities getModelInfo getMousePosition getMusicPlayedTime getNumber "+"getObjectArgument getObjectChildren getObjectDLC getObjectMaterials getObjectProxy "+"getObjectTextures getObjectType getObjectViewDistance getOxygenRemaining getPersonUsedDLCs "+"getPilotCameraDirection getPilotCameraPosition getPilotCameraRotation getPilotCameraTarget "+"getPlateNumber getPlayerChannel getPlayerScores getPlayerUID getPos getPosASL getPosASLVisual "+"getPosASLW getPosATL getPosATLVisual getPosVisual getPosWorld getPylonMagazines getRelDir "+"getRelPos getRemoteSensorsDisabled getRepairCargo getResolution getShadowDistance getShotParents "+"getSlingLoad getSoundController getSoundControllerResult getSpeed getStamina getStatValue "+"getSuppression getTerrainGrid getTerrainHeightASL getText getTotalDLCUsageTime getUnitLoadout "+"getUnitTrait getUserMFDText getUserMFDvalue getVariable getVehicleCargo getWeaponCargo "+"getWeaponSway getWingsOrientationRTD getWingsPositionRTD getWPPos glanceAt globalChat globalRadio "+"goggles goto group groupChat groupFromNetId groupIconSelectable groupIconsVisible groupId "+"groupOwner groupRadio groupSelectedUnits groupSelectUnit gunner gusts halt handgunItems "+"handgunMagazine handgunWeapon handsHit hasInterface hasPilotCamera hasWeapon hcAllGroups "+"hcGroupParams hcLeader hcRemoveAllGroups hcRemoveGroup hcSelected hcSelectGroup hcSetGroup "+"hcShowBar hcShownBar headgear hideBody hideObject hideObjectGlobal hideSelection hint hintC "+"hintCadet hintSilent hmd hostMission htmlLoad HUDMovementLevels humidity image importAllGroups "+"importance in inArea inAreaArray incapacitatedState inflame inflamed infoPanel "+"infoPanelComponentEnabled infoPanelComponents infoPanels inGameUISetEventHandler inheritsFrom "+"initAmbientLife inPolygon inputAction inRangeOfArtillery insertEditorObject intersect is3DEN "+"is3DENMultiplayer isAbleToBreathe isAgent isArray isAutoHoverOn isAutonomous isAutotest "+"isBleeding isBurning isClass isCollisionLightOn isCopilotEnabled isDamageAllowed isDedicated "+"isDLCAvailable isEngineOn isEqualTo isEqualType isEqualTypeAll isEqualTypeAny isEqualTypeArray "+"isEqualTypeParams isFilePatchingEnabled isFlashlightOn isFlatEmpty isForcedWalk isFormationLeader "+"isGroupDeletedWhenEmpty isHidden isInRemainsCollector isInstructorFigureEnabled isIRLaserOn "+"isKeyActive isKindOf isLaserOn isLightOn isLocalized isManualFire isMarkedForCollection "+"isMultiplayer isMultiplayerSolo isNil isNull isNumber isObjectHidden isObjectRTD isOnRoad "+"isPipEnabled isPlayer isRealTime isRemoteExecuted isRemoteExecutedJIP isServer isShowing3DIcons "+"isSimpleObject isSprintAllowed isStaminaEnabled isSteamMission isStreamFriendlyUIEnabled isText "+"isTouchingGround isTurnedOut isTutHintsEnabled isUAVConnectable isUAVConnected isUIContext "+"isUniformAllowed isVehicleCargo isVehicleRadarOn isVehicleSensorEnabled isWalking "+"isWeaponDeployed isWeaponRested itemCargo items itemsWithMagazines join joinAs joinAsSilent "+"joinSilent joinString kbAddDatabase kbAddDatabaseTargets kbAddTopic kbHasTopic kbReact "+"kbRemoveTopic kbTell kbWasSaid keyImage keyName knowsAbout land landAt landResult language "+"laserTarget lbAdd lbClear lbColor lbColorRight lbCurSel lbData lbDelete lbIsSelected lbPicture "+"lbPictureRight lbSelection lbSetColor lbSetColorRight lbSetCurSel lbSetData lbSetPicture "+"lbSetPictureColor lbSetPictureColorDisabled lbSetPictureColorSelected lbSetPictureRight "+"lbSetPictureRightColor lbSetPictureRightColorDisabled lbSetPictureRightColorSelected "+"lbSetSelectColor lbSetSelectColorRight lbSetSelected lbSetText lbSetTextRight lbSetTooltip "+"lbSetValue lbSize lbSort lbSortByValue lbText lbTextRight lbValue leader leaderboardDeInit "+"leaderboardGetRows leaderboardInit leaderboardRequestRowsFriends leaderboardsRequestUploadScore "+"leaderboardsRequestUploadScoreKeepBest leaderboardState leaveVehicle libraryCredits "+"libraryDisclaimers lifeState lightAttachObject lightDetachObject lightIsOn lightnings limitSpeed "+"linearConversion lineIntersects lineIntersectsObjs lineIntersectsSurfaces lineIntersectsWith "+"linkItem list listObjects listRemoteTargets listVehicleSensors ln lnbAddArray lnbAddColumn "+"lnbAddRow lnbClear lnbColor lnbCurSelRow lnbData lnbDeleteColumn lnbDeleteRow "+"lnbGetColumnsPosition lnbPicture lnbSetColor lnbSetColumnsPos lnbSetCurSelRow lnbSetData "+"lnbSetPicture lnbSetText lnbSetValue lnbSize lnbSort lnbSortByValue lnbText lnbValue load loadAbs "+"loadBackpack loadFile loadGame loadIdentity loadMagazine loadOverlay loadStatus loadUniform "+"loadVest local localize locationPosition lock lockCameraTo lockCargo lockDriver locked "+"lockedCargo lockedDriver lockedTurret lockIdentity lockTurret lockWP log logEntities logNetwork "+"logNetworkTerminate lookAt lookAtPos magazineCargo magazines magazinesAllTurrets magazinesAmmo "+"magazinesAmmoCargo magazinesAmmoFull magazinesDetail magazinesDetailBackpack "+"magazinesDetailUniform magazinesDetailVest magazinesTurret magazineTurretAmmo mapAnimAdd "+"mapAnimClear mapAnimCommit mapAnimDone mapCenterOnCamera mapGridPosition markAsFinishedOnSteam "+"markerAlpha markerBrush markerColor markerDir markerPos markerShape markerSize markerText "+"markerType max members menuAction menuAdd menuChecked menuClear menuCollapse menuData menuDelete "+"menuEnable menuEnabled menuExpand menuHover menuPicture menuSetAction menuSetCheck menuSetData "+"menuSetPicture menuSetValue menuShortcut menuShortcutText menuSize menuSort menuText menuURL "+"menuValue min mineActive mineDetectedBy missionConfigFile missionDifficulty missionName "+"missionNamespace missionStart missionVersion mod modelToWorld modelToWorldVisual "+"modelToWorldVisualWorld modelToWorldWorld modParams moonIntensity moonPhase morale move "+"move3DENCamera moveInAny moveInCargo moveInCommander moveInDriver moveInGunner moveInTurret "+"moveObjectToEnd moveOut moveTime moveTo moveToCompleted moveToFailed musicVolume name nameSound "+"nearEntities nearestBuilding nearestLocation nearestLocations nearestLocationWithDubbing "+"nearestObject nearestObjects nearestTerrainObjects nearObjects nearObjectsReady nearRoads "+"nearSupplies nearTargets needReload netId netObjNull newOverlay nextMenuItemIndex "+"nextWeatherChange nMenuItems not numberOfEnginesRTD numberToDate objectCurators objectFromNetId "+"objectParent objStatus onBriefingGroup onBriefingNotes onBriefingPlan onBriefingTeamSwitch "+"onCommandModeChanged onDoubleClick onEachFrame onGroupIconClick onGroupIconOverEnter "+"onGroupIconOverLeave onHCGroupSelectionChanged onMapSingleClick onPlayerConnected "+"onPlayerDisconnected onPreloadFinished onPreloadStarted onShowNewObject onTeamSwitch "+"openCuratorInterface openDLCPage openMap openSteamApp openYoutubeVideo or orderGetIn overcast "+"overcastForecast owner param params parseNumber parseSimpleArray parseText parsingNamespace "+"particlesQuality pickWeaponPool pitch pixelGrid pixelGridBase pixelGridNoUIScale pixelH pixelW "+"playableSlotsNumber playableUnits playAction playActionNow player playerRespawnTime playerSide "+"playersNumber playGesture playMission playMove playMoveNow playMusic playScriptedMission "+"playSound playSound3D position positionCameraToWorld posScreenToWorld posWorldToScreen "+"ppEffectAdjust ppEffectCommit ppEffectCommitted ppEffectCreate ppEffectDestroy ppEffectEnable "+"ppEffectEnabled ppEffectForceInNVG precision preloadCamera preloadObject preloadSound "+"preloadTitleObj preloadTitleRsc preprocessFile preprocessFileLineNumbers primaryWeapon "+"primaryWeaponItems primaryWeaponMagazine priority processDiaryLink productVersion profileName "+"profileNamespace profileNameSteam progressLoadingScreen progressPosition progressSetPosition "+"publicVariable publicVariableClient publicVariableServer pushBack pushBackUnique putWeaponPool "+"queryItemsPool queryMagazinePool queryWeaponPool rad radioChannelAdd radioChannelCreate "+"radioChannelRemove radioChannelSetCallSign radioChannelSetLabel radioVolume rain rainbow random "+"rank rankId rating rectangular registeredTasks registerTask reload reloadEnabled remoteControl "+"remoteExec remoteExecCall remoteExecutedOwner remove3DENConnection remove3DENEventHandler "+"remove3DENLayer removeAction removeAll3DENEventHandlers removeAllActions removeAllAssignedItems "+"removeAllContainers removeAllCuratorAddons removeAllCuratorCameraAreas "+"removeAllCuratorEditingAreas removeAllEventHandlers removeAllHandgunItems removeAllItems "+"removeAllItemsWithMagazines removeAllMissionEventHandlers removeAllMPEventHandlers "+"removeAllMusicEventHandlers removeAllOwnedMines removeAllPrimaryWeaponItems removeAllWeapons "+"removeBackpack removeBackpackGlobal removeCuratorAddons removeCuratorCameraArea "+"removeCuratorEditableObjects removeCuratorEditingArea removeDrawIcon removeDrawLinks "+"removeEventHandler removeFromRemainsCollector removeGoggles removeGroupIcon removeHandgunItem "+"removeHeadgear removeItem removeItemFromBackpack removeItemFromUniform removeItemFromVest "+"removeItems removeMagazine removeMagazineGlobal removeMagazines removeMagazinesTurret "+"removeMagazineTurret removeMenuItem removeMissionEventHandler removeMPEventHandler "+"removeMusicEventHandler removeOwnedMine removePrimaryWeaponItem removeSecondaryWeaponItem "+"removeSimpleTask removeSwitchableUnit removeTeamMember removeUniform removeVest removeWeapon "+"removeWeaponAttachmentCargo removeWeaponCargo removeWeaponGlobal removeWeaponTurret "+"reportRemoteTarget requiredVersion resetCamShake resetSubgroupDirection resize resources "+"respawnVehicle restartEditorCamera reveal revealMine reverse reversedMouseY roadAt "+"roadsConnectedTo roleDescription ropeAttachedObjects ropeAttachedTo ropeAttachEnabled "+"ropeAttachTo ropeCreate ropeCut ropeDestroy ropeDetach ropeEndPosition ropeLength ropes "+"ropeUnwind ropeUnwound rotorsForcesRTD rotorsRpmRTD round runInitScript safeZoneH safeZoneW "+"safeZoneWAbs safeZoneX safeZoneXAbs safeZoneY save3DENInventory saveGame saveIdentity "+"saveJoysticks saveOverlay saveProfileNamespace saveStatus saveVar savingEnabled say say2D say3D "+"scopeName score scoreSide screenshot screenToWorld scriptDone scriptName scudState "+"secondaryWeapon secondaryWeaponItems secondaryWeaponMagazine select selectBestPlaces "+"selectDiarySubject selectedEditorObjects selectEditorObject selectionNames selectionPosition "+"selectLeader selectMax selectMin selectNoPlayer selectPlayer selectRandom selectRandomWeighted "+"selectWeapon selectWeaponTurret sendAUMessage sendSimpleCommand sendTask sendTaskResult "+"sendUDPMessage serverCommand serverCommandAvailable serverCommandExecutable serverName serverTime "+"set set3DENAttribute set3DENAttributes set3DENGrid set3DENIconsVisible set3DENLayer "+"set3DENLinesVisible set3DENLogicType set3DENMissionAttribute set3DENMissionAttributes "+"set3DENModelsVisible set3DENObjectType set3DENSelected setAccTime setActualCollectiveRTD "+"setAirplaneThrottle setAirportSide setAmmo setAmmoCargo setAmmoOnPylon setAnimSpeedCoef "+"setAperture setApertureNew setArmoryPoints setAttributes setAutonomous setBehaviour "+"setBleedingRemaining setBrakesRTD setCameraInterest setCamShakeDefParams setCamShakeParams "+"setCamUseTI setCaptive setCenterOfMass setCollisionLight setCombatMode setCompassOscillation "+"setConvoySeparation setCuratorCameraAreaCeiling setCuratorCoef setCuratorEditingAreaType "+"setCuratorWaypointCost setCurrentChannel setCurrentTask setCurrentWaypoint setCustomAimCoef "+"setCustomWeightRTD setDamage setDammage setDate setDebriefingText setDefaultCamera setDestination "+"setDetailMapBlendPars setDir setDirection setDrawIcon setDriveOnPath setDropInterval "+"setDynamicSimulationDistance setDynamicSimulationDistanceCoef setEditorMode setEditorObjectScope "+"setEffectCondition setEngineRPMRTD setFace setFaceAnimation setFatigue setFeatureType "+"setFlagAnimationPhase setFlagOwner setFlagSide setFlagTexture setFog setFormation "+"setFormationTask setFormDir setFriend setFromEditor setFSMVariable setFuel setFuelCargo "+"setGroupIcon setGroupIconParams setGroupIconsSelectable setGroupIconsVisible setGroupId "+"setGroupIdGlobal setGroupOwner setGusts setHideBehind setHit setHitIndex setHitPointDamage "+"setHorizonParallaxCoef setHUDMovementLevels setIdentity setImportance setInfoPanel setLeader "+"setLightAmbient setLightAttenuation setLightBrightness setLightColor setLightDayLight "+"setLightFlareMaxDistance setLightFlareSize setLightIntensity setLightnings setLightUseFlare "+"setLocalWindParams setMagazineTurretAmmo setMarkerAlpha setMarkerAlphaLocal setMarkerBrush "+"setMarkerBrushLocal setMarkerColor setMarkerColorLocal setMarkerDir setMarkerDirLocal "+"setMarkerPos setMarkerPosLocal setMarkerShape setMarkerShapeLocal setMarkerSize "+"setMarkerSizeLocal setMarkerText setMarkerTextLocal setMarkerType setMarkerTypeLocal setMass "+"setMimic setMousePosition setMusicEffect setMusicEventHandler setName setNameSound "+"setObjectArguments setObjectMaterial setObjectMaterialGlobal setObjectProxy setObjectTexture "+"setObjectTextureGlobal setObjectViewDistance setOvercast setOwner setOxygenRemaining "+"setParticleCircle setParticleClass setParticleFire setParticleParams setParticleRandom "+"setPilotCameraDirection setPilotCameraRotation setPilotCameraTarget setPilotLight setPiPEffect "+"setPitch setPlateNumber setPlayable setPlayerRespawnTime setPos setPosASL setPosASL2 setPosASLW "+"setPosATL setPosition setPosWorld setPylonLoadOut setPylonsPriority setRadioMsg setRain "+"setRainbow setRandomLip setRank setRectangular setRepairCargo setRotorBrakeRTD setShadowDistance "+"setShotParents setSide setSimpleTaskAlwaysVisible setSimpleTaskCustomData "+"setSimpleTaskDescription setSimpleTaskDestination setSimpleTaskTarget setSimpleTaskType "+"setSimulWeatherLayers setSize setSkill setSlingLoad setSoundEffect setSpeaker setSpeech "+"setSpeedMode setStamina setStaminaScheme setStatValue setSuppression setSystemOfUnits "+"setTargetAge setTaskMarkerOffset setTaskResult setTaskState setTerrainGrid setText "+"setTimeMultiplier setTitleEffect setTrafficDensity setTrafficDistance setTrafficGap "+"setTrafficSpeed setTriggerActivation setTriggerArea setTriggerStatements setTriggerText "+"setTriggerTimeout setTriggerType setType setUnconscious setUnitAbility setUnitLoadout setUnitPos "+"setUnitPosWeak setUnitRank setUnitRecoilCoefficient setUnitTrait setUnloadInCombat "+"setUserActionText setUserMFDText setUserMFDvalue setVariable setVectorDir setVectorDirAndUp "+"setVectorUp setVehicleAmmo setVehicleAmmoDef setVehicleArmor setVehicleCargo setVehicleId "+"setVehicleLock setVehiclePosition setVehicleRadar setVehicleReceiveRemoteTargets "+"setVehicleReportOwnPosition setVehicleReportRemoteTargets setVehicleTIPars setVehicleVarName "+"setVelocity setVelocityModelSpace setVelocityTransformation setViewDistance "+"setVisibleIfTreeCollapsed setWantedRPMRTD setWaves setWaypointBehaviour setWaypointCombatMode "+"setWaypointCompletionRadius setWaypointDescription setWaypointForceBehaviour setWaypointFormation "+"setWaypointHousePosition setWaypointLoiterRadius setWaypointLoiterType setWaypointName "+"setWaypointPosition setWaypointScript setWaypointSpeed setWaypointStatements setWaypointTimeout "+"setWaypointType setWaypointVisible setWeaponReloadingTime setWind setWindDir setWindForce "+"setWindStr setWingForceScaleRTD setWPPos show3DIcons showChat showCinemaBorder showCommandingMenu "+"showCompass showCuratorCompass showGPS showHUD showLegend showMap shownArtilleryComputer "+"shownChat shownCompass shownCuratorCompass showNewEditorObject shownGPS shownHUD shownMap "+"shownPad shownRadio shownScoretable shownUAVFeed shownWarrant shownWatch showPad showRadio "+"showScoretable showSubtitles showUAVFeed showWarrant showWatch showWaypoint showWaypoints side "+"sideChat sideEnemy sideFriendly sideRadio simpleTasks simulationEnabled simulCloudDensity "+"simulCloudOcclusion simulInClouds simulWeatherSync sin size sizeOf skill skillFinal skipTime "+"sleep sliderPosition sliderRange sliderSetPosition sliderSetRange sliderSetSpeed sliderSpeed "+"slingLoadAssistantShown soldierMagazines someAmmo sort soundVolume spawn speaker speed speedMode "+"splitString sqrt squadParams stance startLoadingScreen step stop stopEngineRTD stopped str "+"sunOrMoon supportInfo suppressFor surfaceIsWater surfaceNormal surfaceType swimInDepth "+"switchableUnits switchAction switchCamera switchGesture switchLight switchMove "+"synchronizedObjects synchronizedTriggers synchronizedWaypoints synchronizeObjectsAdd "+"synchronizeObjectsRemove synchronizeTrigger synchronizeWaypoint systemChat systemOfUnits tan "+"targetKnowledge targets targetsAggregate targetsQuery taskAlwaysVisible taskChildren "+"taskCompleted taskCustomData taskDescription taskDestination taskHint taskMarkerOffset taskParent "+"taskResult taskState taskType teamMember teamName teams teamSwitch teamSwitchEnabled teamType "+"terminate terrainIntersect terrainIntersectASL terrainIntersectAtASL text textLog textLogFormat "+"tg time timeMultiplier titleCut titleFadeOut titleObj titleRsc titleText toArray toFixed toLower "+"toString toUpper triggerActivated triggerActivation triggerArea triggerAttachedVehicle "+"triggerAttachObject triggerAttachVehicle triggerDynamicSimulation triggerStatements triggerText "+"triggerTimeout triggerTimeoutCurrent triggerType turretLocal turretOwner turretUnit tvAdd tvClear "+"tvCollapse tvCollapseAll tvCount tvCurSel tvData tvDelete tvExpand tvExpandAll tvPicture "+"tvSetColor tvSetCurSel tvSetData tvSetPicture tvSetPictureColor tvSetPictureColorDisabled "+"tvSetPictureColorSelected tvSetPictureRight tvSetPictureRightColor tvSetPictureRightColorDisabled "+"tvSetPictureRightColorSelected tvSetText tvSetTooltip tvSetValue tvSort tvSortByValue tvText "+"tvTooltip tvValue type typeName typeOf UAVControl uiNamespace uiSleep unassignCurator "+"unassignItem unassignTeam unassignVehicle underwater uniform uniformContainer uniformItems "+"uniformMagazines unitAddons unitAimPosition unitAimPositionVisual unitBackpack unitIsUAV unitPos "+"unitReady unitRecoilCoefficient units unitsBelowHeight unlinkItem unlockAchievement "+"unregisterTask updateDrawIcon updateMenuItem updateObjectTree useAISteeringComponent "+"useAudioTimeForMoves userInputDisabled vectorAdd vectorCos vectorCrossProduct vectorDiff "+"vectorDir vectorDirVisual vectorDistance vectorDistanceSqr vectorDotProduct vectorFromTo "+"vectorMagnitude vectorMagnitudeSqr vectorModelToWorld vectorModelToWorldVisual vectorMultiply "+"vectorNormalized vectorUp vectorUpVisual vectorWorldToModel vectorWorldToModelVisual vehicle "+"vehicleCargoEnabled vehicleChat vehicleRadio vehicleReceiveRemoteTargets vehicleReportOwnPosition "+"vehicleReportRemoteTargets vehicles vehicleVarName velocity velocityModelSpace verifySignature "+"vest vestContainer vestItems vestMagazines viewDistance visibleCompass visibleGPS visibleMap "+"visiblePosition visiblePositionASL visibleScoretable visibleWatch waves waypointAttachedObject "+"waypointAttachedVehicle waypointAttachObject waypointAttachVehicle waypointBehaviour "+"waypointCombatMode waypointCompletionRadius waypointDescription waypointForceBehaviour "+"waypointFormation waypointHousePosition waypointLoiterRadius waypointLoiterType waypointName "+"waypointPosition waypoints waypointScript waypointsEnabledUAV waypointShow waypointSpeed "+"waypointStatements waypointTimeout waypointTimeoutCurrent waypointType waypointVisible "+"weaponAccessories weaponAccessoriesCargo weaponCargo weaponDirection weaponInertia weaponLowered "+"weapons weaponsItems weaponsItemsCargo weaponState weaponsTurret weightRTD WFSideText wind ",literal:"blufor civilian configNull controlNull displayNull east endl false grpNull independent lineBreak "+"locationNull nil objNull opfor pi resistance scriptNull sideAmbientLife sideEmpty sideLogic "+"sideUnknown taskNull teamMemberNull true west"},contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.NUMBER_MODE,VARIABLE,FUNCTION,STRINGS,PREPROCESSOR],illegal:/#|^\$ /}});hljs.registerLanguage("qml",function(hljs){var KEYWORDS={keyword:"in of on if for while finally var new function do return void else break catch "+"instanceof with throw case default try this switch continue typeof delete "+"let yield const export super debugger as async await import",literal:"true false null undefined NaN Infinity",built_in:"eval isFinite isNaN parseFloat parseInt decodeURI decodeURIComponent "+"encodeURI encodeURIComponent escape unescape Object Function Boolean Error "+"EvalError InternalError RangeError ReferenceError StopIteration SyntaxError "+"TypeError URIError Number Math Date String RegExp Array Float32Array "+"Float64Array Int16Array Int32Array Int8Array Uint16Array Uint32Array "+"Uint8Array Uint8ClampedArray ArrayBuffer DataView JSON Intl arguments require "+"module console window document Symbol Set Map WeakSet WeakMap Proxy Reflect "+"Behavior bool color coordinate date double enumeration font geocircle georectangle "+"geoshape int list matrix4x4 parent point quaternion real rect "+"size string url variant vector2d vector3d vector4d"+"Promise"};var QML_IDENT_RE="[a-zA-Z_][a-zA-Z0-9\\._]*";var PROPERTY={className:"keyword",begin:"\\bproperty\\b",starts:{className:"string",end:"(:|=|;|,|//|/\\*|$)",returnEnd:true}};var SIGNAL={className:"keyword",begin:"\\bsignal\\b",starts:{className:"string",end:"(\\(|:|=|;|,|//|/\\*|$)",returnEnd:true}};var ID_ID={className:"attribute",begin:"\\bid\\s*:",starts:{className:"string",end:QML_IDENT_RE,returnEnd:false}};var QML_ATTRIBUTE={begin:QML_IDENT_RE+"\\s*:",returnBegin:true,contains:[{className:"attribute",begin:QML_IDENT_RE,end:"\\s*:",excludeEnd:true,relevance:0}],relevance:0};var QML_OBJECT={begin:QML_IDENT_RE+"\\s*{",end:"{",returnBegin:true,relevance:0,contains:[hljs.inherit(hljs.TITLE_MODE,{begin:QML_IDENT_RE})]};return{aliases:["qt"],case_insensitive:false,keywords:KEYWORDS,contains:[{className:"meta",begin:/^\s*['"]use (strict|asm)['"]/},hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,{className:"string",begin:"`",end:"`",contains:[hljs.BACKSLASH_ESCAPE,{className:"subst",begin:"\\$\\{",end:"\\}"}]},hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,{className:"number",variants:[{begin:"\\b(0[bB][01]+)"},{begin:"\\b(0[oO][0-7]+)"},{begin:hljs.C_NUMBER_RE}],relevance:0},{begin:"("+hljs.RE_STARTERS_RE+"|\\b(case|return|throw)\\b)\\s*",keywords:"return throw case",contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.REGEXP_MODE,{begin:/</,end:/>\s*[);\]]/,relevance:0,subLanguage:"xml"}],relevance:0},SIGNAL,PROPERTY,{className:"function",beginKeywords:"function",end:/\{/,excludeEnd:true,contains:[hljs.inherit(hljs.TITLE_MODE,{begin:/[A-Za-z$_][0-9A-Za-z$_]*/}),{className:"params",begin:/\(/,end:/\)/,excludeBegin:true,excludeEnd:true,contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE]}],illegal:/\[|%/},{begin:"\\."+hljs.IDENT_RE,relevance:0},ID_ID,QML_ATTRIBUTE,QML_OBJECT],illegal:/#/}});hljs.registerLanguage("erb",function(hljs){return{subLanguage:"xml",contains:[hljs.COMMENT("<%#","%>"),{begin:"<%[%=-]?",end:"[%-]?%>",subLanguage:"ruby",excludeBegin:true,excludeEnd:true}]}});hljs.registerLanguage("openscad",function(hljs){var SPECIAL_VARS={className:"keyword",begin:"\\$(f[asn]|t|vp[rtd]|children)"},LITERALS={className:"literal",begin:"false|true|PI|undef"},NUMBERS={className:"number",begin:"\\b\\d+(\\.\\d+)?(e-?\\d+)?",relevance:0},STRING=hljs.inherit(hljs.QUOTE_STRING_MODE,{illegal:null}),PREPRO={className:"meta",keywords:{"meta-keyword":"include use"},begin:"include|use <",end:">"},PARAMS={className:"params",begin:"\\(",end:"\\)",contains:["self",NUMBERS,STRING,SPECIAL_VARS,LITERALS]},MODIFIERS={begin:"[*!#%]",relevance:0},FUNCTIONS={className:"function",beginKeywords:"module function",end:"\\=|\\{",contains:[PARAMS,hljs.UNDERSCORE_TITLE_MODE]};return{aliases:["scad"],keywords:{keyword:"function module include use for intersection_for if else \\%",literal:"false true PI undef",built_in:"circle square polygon text sphere cube cylinder polyhedron translate rotate scale resize mirror multmatrix color offset hull minkowski union difference intersection abs sign sin cos tan acos asin atan atan2 floor round ceil ln log pow sqrt exp rands min max concat lookup str chr search version version_num norm cross parent_module echo import import_dxf dxf_linear_extrude linear_extrude rotate_extrude surface projection render children dxf_cross dxf_dim let assign"},contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,NUMBERS,PREPRO,STRING,SPECIAL_VARS,MODIFIERS,FUNCTIONS]}});hljs.registerLanguage("elixir",function(hljs){var ELIXIR_IDENT_RE="[a-zA-Z_][a-zA-Z0-9_.]*(\\!|\\?)?";var ELIXIR_METHOD_RE="[a-zA-Z_]\\w*[!?=]?|[-+~]\\@|<<|>>|=~|===?|<=>|[<>]=?|\\*\\*|[-/+%^&*~`|]|\\[\\]=?";var ELIXIR_KEYWORDS="and false then defined module in return redo retry end for true self when "+"next until do begin unless nil break not case cond alias while ensure or "+"include use alias fn quote require import with|0";var SUBST={className:"subst",begin:"#\\{",end:"}",lexemes:ELIXIR_IDENT_RE,keywords:ELIXIR_KEYWORDS};var SIGIL_DELIMITERS="[/|([{<\"']";var LOWERCASE_SIGIL={className:"string",begin:"~[a-z]"+"(?="+SIGIL_DELIMITERS+")",contains:[{endsParent:true,contains:[{contains:[hljs.BACKSLASH_ESCAPE,SUBST],variants:[{begin:/"/,end:/"/},{begin:/'/,end:/'/},{begin:/\//,end:/\//},{begin:/\|/,end:/\|/},{begin:/\(/,end:/\)/},{begin:/\[/,end:/\]/},{begin:/\{/,end:/\}/},{begin:/</,end:/>/}]}]}]};var UPCASE_SIGIL={className:"string",begin:"~[A-Z]"+"(?="+SIGIL_DELIMITERS+")",contains:[{begin:/"/,end:/"/},{begin:/'/,end:/'/},{begin:/\//,end:/\//},{begin:/\|/,end:/\|/},{begin:/\(/,end:/\)/},{begin:/\[/,end:/\]/},{begin:/\{/,end:/\}/},{begin:/\</,end:/\>/}]};var STRING={className:"string",contains:[hljs.BACKSLASH_ESCAPE,SUBST],variants:[{begin:/"""/,end:/"""/},{begin:/'''/,end:/'''/},{begin:/~S"""/,end:/"""/,contains:[]},{begin:/~S"/,end:/"/,contains:[]},{begin:/~S'''/,end:/'''/,contains:[]},{begin:/~S'/,end:/'/,contains:[]},{begin:/'/,end:/'/},{begin:/"/,end:/"/}]};var FUNCTION={className:"function",beginKeywords:"def defp defmacro",end:/\B\b/,contains:[hljs.inherit(hljs.TITLE_MODE,{begin:ELIXIR_IDENT_RE,endsParent:true})]};var CLASS=hljs.inherit(FUNCTION,{className:"class",beginKeywords:"defimpl defmodule defprotocol defrecord",end:/\bdo\b|$|;/});var ELIXIR_DEFAULT_CONTAINS=[STRING,UPCASE_SIGIL,LOWERCASE_SIGIL,hljs.HASH_COMMENT_MODE,CLASS,FUNCTION,{begin:"::"},{className:"symbol",begin:":(?![\\s:])",contains:[STRING,{begin:ELIXIR_METHOD_RE}],relevance:0},{className:"symbol",begin:ELIXIR_IDENT_RE+":(?!:)",relevance:0},{className:"number",begin:"(\\b0o[0-7_]+)|(\\b0b[01_]+)|(\\b0x[0-9a-fA-F_]+)|(-?\\b[1-9][0-9_]*(.[0-9_]+([eE][-+]?[0-9]+)?)?)",relevance:0},{className:"variable",begin:"(\\$\\W)|((\\$|\\@\\@?)(\\w+))"},{begin:"->"},{begin:"("+hljs.RE_STARTERS_RE+")\\s*",contains:[hljs.HASH_COMMENT_MODE,{className:"regexp",illegal:"\\n",contains:[hljs.BACKSLASH_ESCAPE,SUBST],variants:[{begin:"/",end:"/[a-z]*"},{begin:"%r\\[",end:"\\][a-z]*"}]}],relevance:0}];SUBST.contains=ELIXIR_DEFAULT_CONTAINS;return{lexemes:ELIXIR_IDENT_RE,keywords:ELIXIR_KEYWORDS,contains:ELIXIR_DEFAULT_CONTAINS}});hljs.registerLanguage("vhdl",function(hljs){var INTEGER_RE="\\d(_|\\d)*";var EXPONENT_RE="[eE][-+]?"+INTEGER_RE;var DECIMAL_LITERAL_RE=INTEGER_RE+"(\\."+INTEGER_RE+")?"+"("+EXPONENT_RE+")?";var BASED_INTEGER_RE="\\w+";var BASED_LITERAL_RE=INTEGER_RE+"#"+BASED_INTEGER_RE+"(\\."+BASED_INTEGER_RE+")?"+"#"+"("+EXPONENT_RE+")?";var NUMBER_RE="\\b("+BASED_LITERAL_RE+"|"+DECIMAL_LITERAL_RE+")";return{case_insensitive:true,keywords:{keyword:"abs access after alias all and architecture array assert assume assume_guarantee attribute "+"begin block body buffer bus case component configuration constant context cover disconnect "+"downto default else elsif end entity exit fairness file for force function generate "+"generic group guarded if impure in inertial inout is label library linkage literal "+"loop map mod nand new next nor not null of on open or others out package parameter port "+"postponed procedure process property protected pure range record register reject "+"release rem report restrict restrict_guarantee return rol ror select sequence "+"severity shared signal sla sll sra srl strong subtype then to transport type "+"unaffected units until use variable view vmode vprop vunit wait when while with xnor xor",built_in:"boolean bit character "+"integer time delay_length natural positive "+"string bit_vector file_open_kind file_open_status "+"std_logic std_logic_vector unsigned signed boolean_vector integer_vector "+"std_ulogic std_ulogic_vector unresolved_unsigned u_unsigned unresolved_signed u_signed "+"real_vector time_vector",literal:"false true note warning error failure "+"line text side width"},illegal:"{",contains:[hljs.C_BLOCK_COMMENT_MODE,hljs.COMMENT("--","$"),hljs.QUOTE_STRING_MODE,{className:"number",begin:NUMBER_RE,relevance:0},{className:"string",begin:"'(U|X|0|1|Z|W|L|H|-)'",contains:[hljs.BACKSLASH_ESCAPE]},{className:"symbol",begin:"'[A-Za-z](_?[A-Za-z0-9])*",contains:[hljs.BACKSLASH_ESCAPE]}]}});hljs.registerLanguage("aspectj",function(hljs){var KEYWORDS="false synchronized int abstract float private char boolean static null if const "+"for true while long throw strictfp finally protected import native final return void "+"enum else extends implements break transient new catch instanceof byte super volatile case "+"assert short package default double public try this switch continue throws privileged "+"aspectOf adviceexecution proceed cflowbelow cflow initialization preinitialization "+"staticinitialization withincode target within execution getWithinTypeName handler "+"thisJoinPoint thisJoinPointStaticPart thisEnclosingJoinPointStaticPart declare parents "+"warning error soft precedence thisAspectInstance";var SHORTKEYS="get set args call";return{keywords:KEYWORDS,illegal:/<\/|#/,contains:[hljs.COMMENT("/\\*\\*","\\*/",{relevance:0,contains:[{begin:/\w+@/,relevance:0},{className:"doctag",begin:"@[A-Za-z]+"}]}),hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,{className:"class",beginKeywords:"aspect",end:/[{;=]/,excludeEnd:true,illegal:/[:;"\[\]]/,contains:[{beginKeywords:"extends implements pertypewithin perthis pertarget percflowbelow percflow issingleton"},hljs.UNDERSCORE_TITLE_MODE,{begin:/\([^\)]*/,end:/[)]+/,keywords:KEYWORDS+" "+SHORTKEYS,excludeEnd:false}]},{className:"class",beginKeywords:"class interface",end:/[{;=]/,excludeEnd:true,relevance:0,keywords:"class interface",illegal:/[:"\[\]]/,contains:[{beginKeywords:"extends implements"},hljs.UNDERSCORE_TITLE_MODE]},{beginKeywords:"pointcut after before around throwing returning",end:/[)]/,excludeEnd:false,illegal:/["\[\]]/,contains:[{begin:hljs.UNDERSCORE_IDENT_RE+"\\s*\\(",returnBegin:true,contains:[hljs.UNDERSCORE_TITLE_MODE]}]},{begin:/[:]/,returnBegin:true,end:/[{;]/,relevance:0,excludeEnd:false,keywords:KEYWORDS,illegal:/["\[\]]/,contains:[{begin:hljs.UNDERSCORE_IDENT_RE+"\\s*\\(",keywords:KEYWORDS+" "+SHORTKEYS,relevance:0},hljs.QUOTE_STRING_MODE]},{beginKeywords:"new throw",relevance:0},{className:"function",begin:/\w+ +\w+(\.)?\w+\s*\([^\)]*\)\s*((throws)[\w\s,]+)?[\{;]/,returnBegin:true,end:/[{;=]/,keywords:KEYWORDS,excludeEnd:true,contains:[{begin:hljs.UNDERSCORE_IDENT_RE+"\\s*\\(",returnBegin:true,relevance:0,contains:[hljs.UNDERSCORE_TITLE_MODE]},{className:"params",begin:/\(/,end:/\)/,relevance:0,keywords:KEYWORDS,contains:[hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.C_NUMBER_MODE,hljs.C_BLOCK_COMMENT_MODE]},hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE]},hljs.C_NUMBER_MODE,{className:"meta",begin:"@[A-Za-z]+"}]}});hljs.registerLanguage("plaintext",function(hljs){return{disableAutodetect:true}});hljs.registerLanguage("xquery",function(hljs){var KEYWORDS="module schema namespace boundary-space preserve no-preserve strip default collation base-uri ordering context decimal-format decimal-separator copy-namespaces empty-sequence except exponent-separator external grouping-separator inherit no-inherit lax minus-sign per-mille percent schema-attribute schema-element strict unordered zero-digit "+"declare import option function validate variable "+"for at in let where order group by return if then else "+"tumbling sliding window start when only end previous next stable "+"ascending descending allowing empty greatest least some every satisfies switch case typeswitch try catch "+"and or to union intersect instance of treat as castable cast map array "+"delete insert into replace value rename copy modify update";var TYPE="item document-node node attribute document element comment namespace namespace-node processing-instruction text construction "+"xs:anyAtomicType xs:untypedAtomic xs:duration xs:time xs:decimal xs:float xs:double xs:gYearMonth xs:gYear xs:gMonthDay xs:gMonth xs:gDay xs:boolean xs:base64Binary xs:hexBinary xs:anyURI xs:QName xs:NOTATION xs:dateTime xs:dateTimeStamp xs:date xs:string xs:normalizedString xs:token xs:language xs:NMTOKEN xs:Name xs:NCName xs:ID xs:IDREF xs:ENTITY xs:integer xs:nonPositiveInteger xs:negativeInteger xs:long xs:int xs:short xs:byte xs:nonNegativeInteger xs:unisignedLong xs:unsignedInt xs:unsignedShort xs:unsignedByte xs:positiveInteger xs:yearMonthDuration xs:dayTimeDuration";var LITERAL="eq ne lt le gt ge is "+"self:: child:: descendant:: descendant-or-self:: attribute:: following:: following-sibling:: parent:: ancestor:: ancestor-or-self:: preceding:: preceding-sibling:: "+"NaN";var BUILT_IN={className:"built_in",variants:[{begin:/\barray\:/,end:/(?:append|filter|flatten|fold\-(?:left|right)|for-each(?:\-pair)?|get|head|insert\-before|join|put|remove|reverse|size|sort|subarray|tail)\b/},{begin:/\bmap\:/,end:/(?:contains|entry|find|for\-each|get|keys|merge|put|remove|size)\b/},{begin:/\bmath\:/,end:/(?:a(?:cos|sin|tan[2]?)|cos|exp(?:10)?|log(?:10)?|pi|pow|sin|sqrt|tan)\b/},{begin:/\bop\:/,end:/\(/,excludeEnd:true},{begin:/\bfn\:/,end:/\(/,excludeEnd:true},{begin:/[^<\/\$\:'"-]\b(?:abs|accumulator\-(?:after|before)|adjust\-(?:date(?:Time)?|time)\-to\-timezone|analyze\-string|apply|available\-(?:environment\-variables|system\-properties)|avg|base\-uri|boolean|ceiling|codepoints?\-(?:equal|to\-string)|collation\-key|collection|compare|concat|contains(?:\-token)?|copy\-of|count|current(?:\-)?(?:date(?:Time)?|time|group(?:ing\-key)?|output\-uri|merge\-(?:group|key))?data|dateTime|days?\-from\-(?:date(?:Time)?|duration)|deep\-equal|default\-(?:collation|language)|distinct\-values|document(?:\-uri)?|doc(?:\-available)?|element\-(?:available|with\-id)|empty|encode\-for\-uri|ends\-with|environment\-variable|error|escape\-html\-uri|exactly\-one|exists|false|filter|floor|fold\-(?:left|right)|for\-each(?:\-pair)?|format\-(?:date(?:Time)?|time|integer|number)|function\-(?:arity|available|lookup|name)|generate\-id|has\-children|head|hours\-from\-(?:dateTime|duration|time)|id(?:ref)?|implicit\-timezone|in\-scope\-prefixes|index\-of|innermost|insert\-before|iri\-to\-uri|json\-(?:doc|to\-xml)|key|lang|last|load\-xquery\-module|local\-name(?:\-from\-QName)?|(?:lower|upper)\-case|matches|max|minutes\-from\-(?:dateTime|duration|time)|min|months?\-from\-(?:date(?:Time)?|duration)|name(?:space\-uri\-?(?:for\-prefix|from\-QName)?)?|nilled|node\-name|normalize\-(?:space|unicode)|not|number|one\-or\-more|outermost|parse\-(?:ietf\-date|json)|path|position|(?:prefix\-from\-)?QName|random\-number\-generator|regex\-group|remove|replace|resolve\-(?:QName|uri)|reverse|root|round(?:\-half\-to\-even)?|seconds\-from\-(?:dateTime|duration|time)|snapshot|sort|starts\-with|static\-base\-uri|stream\-available|string\-?(?:join|length|to\-codepoints)?|subsequence|substring\-?(?:after|before)?|sum|system\-property|tail|timezone\-from\-(?:date(?:Time)?|time)|tokenize|trace|trans(?:form|late)|true|type\-available|unordered|unparsed\-(?:entity|text)?\-?(?:public\-id|uri|available|lines)?|uri\-collection|xml\-to\-json|years?\-from\-(?:date(?:Time)?|duration)|zero\-or\-one)\b/},{begin:/\blocal\:/,end:/\(/,excludeEnd:true},{begin:/\bzip\:/,end:/(?:zip\-file|(?:xml|html|text|binary)\-entry| (?:update\-)?entries)\b/},{begin:/\b(?:util|db|functx|app|xdmp|xmldb)\:/,end:/\(/,excludeEnd:true}]};var TITLE={className:"title",begin:/\bxquery version "[13]\.[01]"\s?(?:encoding ".+")?/,end:/;/};var VAR={className:"variable",begin:/[\$][\w-:]+/};var NUMBER={className:"number",begin:"(\\b0[0-7_]+)|(\\b0x[0-9a-fA-F_]+)|(\\b[1-9][0-9_]*(\\.[0-9_]+)?)|[0_]\\b",relevance:0};var STRING={className:"string",variants:[{begin:/"/,end:/"/,contains:[{begin:/""/,relevance:0}]},{begin:/'/,end:/'/,contains:[{begin:/''/,relevance:0}]}]};var ANNOTATION={className:"meta",begin:/%[\w-:]+/};var COMMENT={className:"comment",begin:"\\(:",end:":\\)",relevance:10,contains:[{className:"doctag",begin:"@\\w+"}]};var COMPUTED={beginKeywords:"element attribute comment document processing-instruction",end:"{",excludeEnd:true};var DIRECT={begin:/<([\w\._:\-]+)((\s*.*)=('|").*('|"))?>/,end:/(\/[\w\._:\-]+>)/,subLanguage:"xml",contains:[{begin:"{",end:"}",subLanguage:"xquery"},"self"]};var CONTAINS=[VAR,BUILT_IN,STRING,NUMBER,COMMENT,ANNOTATION,TITLE,COMPUTED,DIRECT];var METHOD={begin:"{",end:"}",contains:CONTAINS};return{aliases:["xpath","xq"],case_insensitive:false,lexemes:/[a-zA-Z\$][a-zA-Z0-9_:\-]*/,illegal:/(proc)|(abstract)|(extends)|(until)|(#)/,keywords:{keyword:KEYWORDS,type:TYPE,literal:LITERAL},contains:CONTAINS}});hljs.registerLanguage("irpf90",function(hljs){var PARAMS={className:"params",begin:"\\(",end:"\\)"};var F_KEYWORDS={literal:".False. .True.",keyword:"kind do while private call intrinsic where elsewhere "+"type endtype endmodule endselect endinterface end enddo endif if forall endforall only contains default return stop then "+"public subroutine|10 function program .and. .or. .not. .le. .eq. .ge. .gt. .lt. "+"goto save else use module select case "+"access blank direct exist file fmt form formatted iostat name named nextrec number opened rec recl sequential status unformatted unit "+"continue format pause cycle exit "+"c_null_char c_alert c_backspace c_form_feed flush wait decimal round iomsg "+"synchronous nopass non_overridable pass protected volatile abstract extends import "+"non_intrinsic value deferred generic final enumerator class associate bind enum "+"c_int c_short c_long c_long_long c_signed_char c_size_t c_int8_t c_int16_t c_int32_t c_int64_t c_int_least8_t c_int_least16_t "+"c_int_least32_t c_int_least64_t c_int_fast8_t c_int_fast16_t c_int_fast32_t c_int_fast64_t c_intmax_t C_intptr_t c_float c_double "+"c_long_double c_float_complex c_double_complex c_long_double_complex c_bool c_char c_null_ptr c_null_funptr "+"c_new_line c_carriage_return c_horizontal_tab c_vertical_tab iso_c_binding c_loc c_funloc c_associated c_f_pointer "+"c_ptr c_funptr iso_fortran_env character_storage_size error_unit file_storage_size input_unit iostat_end iostat_eor "+"numeric_storage_size output_unit c_f_procpointer ieee_arithmetic ieee_support_underflow_control "+"ieee_get_underflow_mode ieee_set_underflow_mode newunit contiguous recursive "+"pad position action delim readwrite eor advance nml interface procedure namelist include sequence elemental pure "+"integer real character complex logical dimension allocatable|10 parameter "+"external implicit|10 none double precision assign intent optional pointer "+"target in out common equivalence data "+"begin_provider &begin_provider end_provider begin_shell end_shell begin_template end_template subst assert touch "+"soft_touch provide no_dep free irp_if irp_else irp_endif irp_write irp_read",built_in:"alog alog10 amax0 amax1 amin0 amin1 amod cabs ccos cexp clog csin csqrt dabs dacos dasin datan datan2 dcos dcosh ddim dexp dint "+"dlog dlog10 dmax1 dmin1 dmod dnint dsign dsin dsinh dsqrt dtan dtanh float iabs idim idint idnint ifix isign max0 max1 min0 min1 sngl "+"algama cdabs cdcos cdexp cdlog cdsin cdsqrt cqabs cqcos cqexp cqlog cqsin cqsqrt dcmplx dconjg derf derfc dfloat dgamma dimag dlgama "+"iqint qabs qacos qasin qatan qatan2 qcmplx qconjg qcos qcosh qdim qerf qerfc qexp qgamma qimag qlgama qlog qlog10 qmax1 qmin1 qmod "+"qnint qsign qsin qsinh qsqrt qtan qtanh abs acos aimag aint anint asin atan atan2 char cmplx conjg cos cosh exp ichar index int log "+"log10 max min nint sign sin sinh sqrt tan tanh print write dim lge lgt lle llt mod nullify allocate deallocate "+"adjustl adjustr all allocated any associated bit_size btest ceiling count cshift date_and_time digits dot_product "+"eoshift epsilon exponent floor fraction huge iand ibclr ibits ibset ieor ior ishft ishftc lbound len_trim matmul "+"maxexponent maxloc maxval merge minexponent minloc minval modulo mvbits nearest pack present product "+"radix random_number random_seed range repeat reshape rrspacing scale scan selected_int_kind selected_real_kind "+"set_exponent shape size spacing spread sum system_clock tiny transpose trim ubound unpack verify achar iachar transfer "+"dble entry dprod cpu_time command_argument_count get_command get_command_argument get_environment_variable is_iostat_end "+"ieee_arithmetic ieee_support_underflow_control ieee_get_underflow_mode ieee_set_underflow_mode "+"is_iostat_eor move_alloc new_line selected_char_kind same_type_as extends_type_of"+"acosh asinh atanh bessel_j0 bessel_j1 bessel_jn bessel_y0 bessel_y1 bessel_yn erf erfc erfc_scaled gamma log_gamma hypot norm2 "+"atomic_define atomic_ref execute_command_line leadz trailz storage_size merge_bits "+"bge bgt ble blt dshiftl dshiftr findloc iall iany iparity image_index lcobound ucobound maskl maskr "+"num_images parity popcnt poppar shifta shiftl shiftr this_image "+"IRP_ALIGN irp_here"};return{case_insensitive:true,keywords:F_KEYWORDS,illegal:/\/\*/,contains:[hljs.inherit(hljs.APOS_STRING_MODE,{className:"string",relevance:0}),hljs.inherit(hljs.QUOTE_STRING_MODE,{className:"string",relevance:0}),{className:"function",beginKeywords:"subroutine function program",illegal:"[${=\\n]",contains:[hljs.UNDERSCORE_TITLE_MODE,PARAMS]},hljs.COMMENT("!","$",{relevance:0}),hljs.COMMENT("begin_doc","end_doc",{relevance:10}),{className:"number",begin:"(?=\\b|\\+|\\-|\\.)(?=\\.\\d|\\d)(?:\\d+)?(?:\\.?\\d*)(?:[de][+-]?\\d+)?\\b\\.?",relevance:0}]}});hljs.registerLanguage("cal",function(hljs){var KEYWORDS="div mod in and or not xor asserterror begin case do downto else end exit for if of repeat then to "+"until while with var";var LITERALS="false true";var COMMENT_MODES=[hljs.C_LINE_COMMENT_MODE,hljs.COMMENT(/\{/,/\}/,{relevance:0}),hljs.COMMENT(/\(\*/,/\*\)/,{relevance:10})];var STRING={className:"string",begin:/'/,end:/'/,contains:[{begin:/''/}]};var CHAR_STRING={className:"string",begin:/(#\d+)+/};var DATE={className:"number",begin:"\\b\\d+(\\.\\d+)?(DT|D|T)",relevance:0};var DBL_QUOTED_VARIABLE={className:"string",begin:'"',end:'"'};var PROCEDURE={className:"function",beginKeywords:"procedure",end:/[:;]/,keywords:"procedure|10",contains:[hljs.TITLE_MODE,{className:"params",begin:/\(/,end:/\)/,keywords:KEYWORDS,contains:[STRING,CHAR_STRING]}].concat(COMMENT_MODES)};var OBJECT={className:"class",begin:"OBJECT (Table|Form|Report|Dataport|Codeunit|XMLport|MenuSuite|Page|Query) (\\d+) ([^\\r\\n]+)",returnBegin:true,contains:[hljs.TITLE_MODE,PROCEDURE]};return{case_insensitive:true,keywords:{keyword:KEYWORDS,literal:LITERALS},illegal:/\/\*/,contains:[STRING,CHAR_STRING,DATE,DBL_QUOTED_VARIABLE,hljs.NUMBER_MODE,OBJECT,PROCEDURE]}});hljs.registerLanguage("gherkin",function(hljs){return{aliases:["feature"],keywords:"Feature Background Ability Business Need Scenario Scenarios Scenario Outline Scenario Template Examples Given And Then But When",contains:[{className:"symbol",begin:"\\*",relevance:0},{className:"meta",begin:"@[^@\\s]+"},{begin:"\\|",end:"\\|\\w*$",contains:[{className:"string",begin:"[^|]+"}]},{className:"variable",begin:"<",end:">"},hljs.HASH_COMMENT_MODE,{className:"string",begin:'"""',end:'"""'},hljs.QUOTE_STRING_MODE]}});hljs.registerLanguage("subunit",function(hljs){var DETAILS={className:"string",begin:"\\[\n(multipart)?",end:"\\]\n"};var TIME={className:"string",begin:"\\d{4}-\\d{2}-\\d{2}(\\s+)\\d{2}:\\d{2}:\\d{2}.\\d+Z"};var PROGRESSVALUE={className:"string",begin:"(\\+|-)\\d+"};var KEYWORDS={className:"keyword",relevance:10,variants:[{begin:"^(test|testing|success|successful|failure|error|skip|xfail|uxsuccess)(:?)\\s+(test)?"},{begin:"^progress(:?)(\\s+)?(pop|push)?"},{begin:"^tags:"},{begin:"^time:"}]};return{case_insensitive:true,contains:[DETAILS,TIME,PROGRESSVALUE,KEYWORDS]}});hljs.registerLanguage("stata",function(hljs){return{aliases:["do","ado"],case_insensitive:true,keywords:"if else in foreach for forv forva forval forvalu forvalue forvalues by bys bysort xi quietly qui capture about ac ac_7 acprplot acprplot_7 adjust ado adopath adoupdate alpha ameans an ano anov anova anova_estat anova_terms anovadef aorder ap app appe appen append arch arch_dr arch_estat arch_p archlm areg areg_p args arima arima_dr arima_estat arima_p as asmprobit asmprobit_estat asmprobit_lf asmprobit_mfx__dlg asmprobit_p ass asse asser assert avplot avplot_7 avplots avplots_7 bcskew0 bgodfrey bias binreg bip0_lf biplot bipp_lf bipr_lf bipr_p biprobit bitest bitesti bitowt blogit bmemsize boot bootsamp bootstrap bootstrap_8 boxco_l boxco_p boxcox boxcox_6 boxcox_p bprobit br break brier bro brow brows browse brr brrstat bs bs_7 bsampl_w bsample bsample_7 bsqreg bstat bstat_7 bstat_8 bstrap bstrap_7 bubble bubbleplot ca ca_estat ca_p cabiplot camat canon canon_8 canon_8_p canon_estat canon_p cap caprojection capt captu captur capture cat cc cchart cchart_7 cci cd censobs_table centile cf char chdir checkdlgfiles checkestimationsample checkhlpfiles checksum chelp ci cii cl class classutil clear cli clis clist clo clog clog_lf clog_p clogi clogi_sw clogit clogit_lf clogit_p clogitp clogl_sw cloglog clonevar clslistarray cluster cluster_measures cluster_stop cluster_tree cluster_tree_8 clustermat cmdlog cnr cnre cnreg cnreg_p cnreg_sw cnsreg codebook collaps4 collapse colormult_nb colormult_nw compare compress conf confi confir confirm conren cons const constr constra constrai constrain constraint continue contract copy copyright copysource cor corc corr corr2data corr_anti corr_kmo corr_smc corre correl correla correlat correlate corrgram cou coun count cox cox_p cox_sw coxbase coxhaz coxvar cprplot cprplot_7 crc cret cretu cretur creturn cross cs cscript cscript_log csi ct ct_is ctset ctst_5 ctst_st cttost cumsp cumsp_7 cumul cusum cusum_7 cutil d|0 datasig datasign datasigna datasignat datasignatu datasignatur datasignature datetof db dbeta de dec deco decod decode deff des desc descr descri describ describe destring dfbeta dfgls dfuller di di_g dir dirstats dis discard disp disp_res disp_s displ displa display distinct do doe doed doedi doedit dotplot dotplot_7 dprobit drawnorm drop ds ds_util dstdize duplicates durbina dwstat dydx e|0 ed edi edit egen eivreg emdef en enc enco encod encode eq erase ereg ereg_lf ereg_p ereg_sw ereghet ereghet_glf ereghet_glf_sh ereghet_gp ereghet_ilf ereghet_ilf_sh ereghet_ip eret eretu eretur ereturn err erro error esize est est_cfexist est_cfname est_clickable est_expand est_hold est_table est_unhold est_unholdok estat estat_default estat_summ estat_vce_only esti estimates etodow etof etomdy ex exi exit expand expandcl fac fact facto factor factor_estat factor_p factor_pca_rotated factor_rotate factormat fcast fcast_compute fcast_graph fdades fdadesc fdadescr fdadescri fdadescrib fdadescribe fdasav fdasave fdause fh_st file open file read file close file filefilter fillin find_hlp_file findfile findit findit_7 fit fl fli flis flist for5_0 forest forestplot form forma format fpredict frac_154 frac_adj frac_chk frac_cox frac_ddp frac_dis frac_dv frac_in frac_mun frac_pp frac_pq frac_pv frac_wgt frac_xo fracgen fracplot fracplot_7 fracpoly fracpred fron_ex fron_hn fron_p fron_tn fron_tn2 frontier ftodate ftoe ftomdy ftowdate funnel funnelplot g|0 gamhet_glf gamhet_gp gamhet_ilf gamhet_ip gamma gamma_d2 gamma_p gamma_sw gammahet gdi_hexagon gdi_spokes ge gen gene gener genera generat generate genrank genstd genvmean gettoken gl gladder gladder_7 glim_l01 glim_l02 glim_l03 glim_l04 glim_l05 glim_l06 glim_l07 glim_l08 glim_l09 glim_l10 glim_l11 glim_l12 glim_lf glim_mu glim_nw1 glim_nw2 glim_nw3 glim_p glim_v1 glim_v2 glim_v3 glim_v4 glim_v5 glim_v6 glim_v7 glm glm_6 glm_p glm_sw glmpred glo glob globa global glogit glogit_8 glogit_p gmeans gnbre_lf gnbreg gnbreg_5 gnbreg_p gomp_lf gompe_sw gomper_p gompertz gompertzhet gomphet_glf gomphet_glf_sh gomphet_gp gomphet_ilf gomphet_ilf_sh gomphet_ip gphdot gphpen gphprint gprefs gprobi_p gprobit gprobit_8 gr gr7 gr_copy gr_current gr_db gr_describe gr_dir gr_draw gr_draw_replay gr_drop gr_edit gr_editviewopts gr_example gr_example2 gr_export gr_print gr_qscheme gr_query gr_read gr_rename gr_replay gr_save gr_set gr_setscheme gr_table gr_undo gr_use graph graph7 grebar greigen greigen_7 greigen_8 grmeanby grmeanby_7 gs_fileinfo gs_filetype gs_graphinfo gs_stat gsort gwood h|0 hadimvo hareg hausman haver he heck_d2 heckma_p heckman heckp_lf heckpr_p heckprob hel help hereg hetpr_lf hetpr_p hetprob hettest hexdump hilite hist hist_7 histogram hlogit hlu hmeans hotel hotelling hprobit hreg hsearch icd9 icd9_ff icd9p iis impute imtest inbase include inf infi infil infile infix inp inpu input ins insheet insp inspe inspec inspect integ inten intreg intreg_7 intreg_p intrg2_ll intrg_ll intrg_ll2 ipolate iqreg ir irf irf_create irfm iri is_svy is_svysum isid istdize ivprob_1_lf ivprob_lf ivprobit ivprobit_p ivreg ivreg_footnote ivtob_1_lf ivtob_lf ivtobit ivtobit_p jackknife jacknife jknife jknife_6 jknife_8 jkstat joinby kalarma1 kap kap_3 kapmeier kappa kapwgt kdensity kdensity_7 keep ksm ksmirnov ktau kwallis l|0 la lab labbe labbeplot labe label labelbook ladder levels levelsof leverage lfit lfit_p li lincom line linktest lis list lloghet_glf lloghet_glf_sh lloghet_gp lloghet_ilf lloghet_ilf_sh lloghet_ip llogi_sw llogis_p llogist llogistic llogistichet lnorm_lf lnorm_sw lnorma_p lnormal lnormalhet lnormhet_glf lnormhet_glf_sh lnormhet_gp lnormhet_ilf lnormhet_ilf_sh lnormhet_ip lnskew0 loadingplot loc loca local log logi logis_lf logistic logistic_p logit logit_estat logit_p loglogs logrank loneway lookfor lookup lowess lowess_7 lpredict lrecomp lroc lroc_7 lrtest ls lsens lsens_7 lsens_x lstat ltable ltable_7 ltriang lv lvr2plot lvr2plot_7 m|0 ma mac macr macro makecns man manova manova_estat manova_p manovatest mantel mark markin markout marksample mat mat_capp mat_order mat_put_rr mat_rapp mata mata_clear mata_describe mata_drop mata_matdescribe mata_matsave mata_matuse mata_memory mata_mlib mata_mosave mata_rename mata_which matalabel matcproc matlist matname matr matri matrix matrix_input__dlg matstrik mcc mcci md0_ md1_ md1debug_ md2_ md2debug_ mds mds_estat mds_p mdsconfig mdslong mdsmat mdsshepard mdytoe mdytof me_derd mean means median memory memsize menl meqparse mer merg merge meta mfp mfx mhelp mhodds minbound mixed_ll mixed_ll_reparm mkassert mkdir mkmat mkspline ml ml_5 ml_adjs ml_bhhhs ml_c_d ml_check ml_clear ml_cnt ml_debug ml_defd ml_e0 ml_e0_bfgs ml_e0_cycle ml_e0_dfp ml_e0i ml_e1 ml_e1_bfgs ml_e1_bhhh ml_e1_cycle ml_e1_dfp ml_e2 ml_e2_cycle ml_ebfg0 ml_ebfr0 ml_ebfr1 ml_ebh0q ml_ebhh0 ml_ebhr0 ml_ebr0i ml_ecr0i ml_edfp0 ml_edfr0 ml_edfr1 ml_edr0i ml_eds ml_eer0i ml_egr0i ml_elf ml_elf_bfgs ml_elf_bhhh ml_elf_cycle ml_elf_dfp ml_elfi ml_elfs ml_enr0i ml_enrr0 ml_erdu0 ml_erdu0_bfgs ml_erdu0_bhhh ml_erdu0_bhhhq ml_erdu0_cycle ml_erdu0_dfp ml_erdu0_nrbfgs ml_exde ml_footnote ml_geqnr ml_grad0 ml_graph ml_hbhhh ml_hd0 ml_hold ml_init ml_inv ml_log ml_max ml_mlout ml_mlout_8 ml_model ml_nb0 ml_opt ml_p ml_plot ml_query ml_rdgrd ml_repor ml_s_e ml_score ml_searc ml_technique ml_unhold mleval mlf_ mlmatbysum mlmatsum mlog mlogi mlogit mlogit_footnote mlogit_p mlopts mlsum mlvecsum mnl0_ mor more mov move mprobit mprobit_lf mprobit_p mrdu0_ mrdu1_ mvdecode mvencode mvreg mvreg_estat n|0 nbreg nbreg_al nbreg_lf nbreg_p nbreg_sw nestreg net newey newey_7 newey_p news nl nl_7 nl_9 nl_9_p nl_p nl_p_7 nlcom nlcom_p nlexp2 nlexp2_7 nlexp2a nlexp2a_7 nlexp3 nlexp3_7 nlgom3 nlgom3_7 nlgom4 nlgom4_7 nlinit nllog3 nllog3_7 nllog4 nllog4_7 nlog_rd nlogit nlogit_p nlogitgen nlogittree nlpred no nobreak noi nois noisi noisil noisily note notes notes_dlg nptrend numlabel numlist odbc old_ver olo olog ologi ologi_sw ologit ologit_p ologitp on one onew onewa oneway op_colnm op_comp op_diff op_inv op_str opr opro oprob oprob_sw oprobi oprobi_p oprobit oprobitp opts_exclusive order orthog orthpoly ou out outf outfi outfil outfile outs outsh outshe outshee outsheet ovtest pac pac_7 palette parse parse_dissim pause pca pca_8 pca_display pca_estat pca_p pca_rotate pcamat pchart pchart_7 pchi pchi_7 pcorr pctile pentium pergram pergram_7 permute permute_8 personal peto_st pkcollapse pkcross pkequiv pkexamine pkexamine_7 pkshape pksumm pksumm_7 pl plo plot plugin pnorm pnorm_7 poisgof poiss_lf poiss_sw poisso_p poisson poisson_estat post postclose postfile postutil pperron pr prais prais_e prais_e2 prais_p predict predictnl preserve print pro prob probi probit probit_estat probit_p proc_time procoverlay procrustes procrustes_estat procrustes_p profiler prog progr progra program prop proportion prtest prtesti pwcorr pwd q\\s qby qbys qchi qchi_7 qladder qladder_7 qnorm qnorm_7 qqplot qqplot_7 qreg qreg_c qreg_p qreg_sw qu quadchk quantile quantile_7 que quer query range ranksum ratio rchart rchart_7 rcof recast reclink recode reg reg3 reg3_p regdw regr regre regre_p2 regres regres_p regress regress_estat regriv_p remap ren rena renam rename renpfix repeat replace report reshape restore ret retu retur return rm rmdir robvar roccomp roccomp_7 roccomp_8 rocf_lf rocfit rocfit_8 rocgold rocplot rocplot_7 roctab roctab_7 rolling rologit rologit_p rot rota rotat rotate rotatemat rreg rreg_p ru run runtest rvfplot rvfplot_7 rvpplot rvpplot_7 sa safesum sample sampsi sav save savedresults saveold sc sca scal scala scalar scatter scm_mine sco scob_lf scob_p scobi_sw scobit scor score scoreplot scoreplot_help scree screeplot screeplot_help sdtest sdtesti se search separate seperate serrbar serrbar_7 serset set set_defaults sfrancia sh she shel shell shewhart shewhart_7 signestimationsample signrank signtest simul simul_7 simulate simulate_8 sktest sleep slogit slogit_d2 slogit_p smooth snapspan so sor sort spearman spikeplot spikeplot_7 spikeplt spline_x split sqreg sqreg_p sret sretu sretur sreturn ssc st st_ct st_hc st_hcd st_hcd_sh st_is st_issys st_note st_promo st_set st_show st_smpl st_subid stack statsby statsby_8 stbase stci stci_7 stcox stcox_estat stcox_fr stcox_fr_ll stcox_p stcox_sw stcoxkm stcoxkm_7 stcstat stcurv stcurve stcurve_7 stdes stem stepwise stereg stfill stgen stir stjoin stmc stmh stphplot stphplot_7 stphtest stphtest_7 stptime strate strate_7 streg streg_sw streset sts sts_7 stset stsplit stsum sttocc sttoct stvary stweib su suest suest_8 sum summ summa summar summari summariz summarize sunflower sureg survcurv survsum svar svar_p svmat svy svy_disp svy_dreg svy_est svy_est_7 svy_estat svy_get svy_gnbreg_p svy_head svy_header svy_heckman_p svy_heckprob_p svy_intreg_p svy_ivreg_p svy_logistic_p svy_logit_p svy_mlogit_p svy_nbreg_p svy_ologit_p svy_oprobit_p svy_poisson_p svy_probit_p svy_regress_p svy_sub svy_sub_7 svy_x svy_x_7 svy_x_p svydes svydes_8 svygen svygnbreg svyheckman svyheckprob svyintreg svyintreg_7 svyintrg svyivreg svylc svylog_p svylogit svymarkout svymarkout_8 svymean svymlog svymlogit svynbreg svyolog svyologit svyoprob svyoprobit svyopts svypois svypois_7 svypoisson svyprobit svyprobt svyprop svyprop_7 svyratio svyreg svyreg_p svyregress svyset svyset_7 svyset_8 svytab svytab_7 svytest svytotal sw sw_8 swcnreg swcox swereg swilk swlogis swlogit swologit swoprbt swpois swprobit swqreg swtobit swweib symmetry symmi symplot symplot_7 syntax sysdescribe sysdir sysuse szroeter ta tab tab1 tab2 tab_or tabd tabdi tabdis tabdisp tabi table tabodds tabodds_7 tabstat tabu tabul tabula tabulat tabulate te tempfile tempname tempvar tes test testnl testparm teststd tetrachoric time_it timer tis tob tobi tobit tobit_p tobit_sw token tokeni tokeniz tokenize tostring total translate translator transmap treat_ll treatr_p treatreg trim trimfill trnb_cons trnb_mean trpoiss_d2 trunc_ll truncr_p truncreg tsappend tset tsfill tsline tsline_ex tsreport tsrevar tsrline tsset tssmooth tsunab ttest ttesti tut_chk tut_wait tutorial tw tware_st two twoway twoway__fpfit_serset twoway__function_gen twoway__histogram_gen twoway__ipoint_serset twoway__ipoints_serset twoway__kdensity_gen twoway__lfit_serset twoway__normgen_gen twoway__pci_serset twoway__qfit_serset twoway__scatteri_serset twoway__sunflower_gen twoway_ksm_serset ty typ type typeof u|0 unab unabbrev unabcmd update us use uselabel var var_mkcompanion var_p varbasic varfcast vargranger varirf varirf_add varirf_cgraph varirf_create varirf_ctable varirf_describe varirf_dir varirf_drop varirf_erase varirf_graph varirf_ograph varirf_rename varirf_set varirf_table varlist varlmar varnorm varsoc varstable varstable_w varstable_w2 varwle vce vec vec_fevd vec_mkphi vec_p vec_p_w vecirf_create veclmar veclmar_w vecnorm vecnorm_w vecrank vecstable verinst vers versi versio version view viewsource vif vwls wdatetof webdescribe webseek webuse weib1_lf weib2_lf weib_lf weib_lf0 weibhet_glf weibhet_glf_sh weibhet_glfa weibhet_glfa_sh weibhet_gp weibhet_ilf weibhet_ilf_sh weibhet_ilfa weibhet_ilfa_sh weibhet_ip weibu_sw weibul_p weibull weibull_c weibull_s weibullhet wh whelp whi which whil while wilc_st wilcoxon win wind windo window winexec wntestb wntestb_7 wntestq xchart xchart_7 xcorr xcorr_7 xi xi_6 xmlsav xmlsave xmluse xpose xsh xshe xshel xshell xt_iis xt_tis xtab_p xtabond xtbin_p xtclog xtcloglog xtcloglog_8 xtcloglog_d2 xtcloglog_pa_p xtcloglog_re_p xtcnt_p xtcorr xtdata xtdes xtfront_p xtfrontier xtgee xtgee_elink xtgee_estat xtgee_makeivar xtgee_p xtgee_plink xtgls xtgls_p xthaus xthausman xtht_p xthtaylor xtile xtint_p xtintreg xtintreg_8 xtintreg_d2 xtintreg_p xtivp_1 xtivp_2 xtivreg xtline xtline_ex xtlogit xtlogit_8 xtlogit_d2 xtlogit_fe_p xtlogit_pa_p xtlogit_re_p xtmixed xtmixed_estat xtmixed_p xtnb_fe xtnb_lf xtnbreg xtnbreg_pa_p xtnbreg_refe_p xtpcse xtpcse_p xtpois xtpoisson xtpoisson_d2 xtpoisson_pa_p xtpoisson_refe_p xtpred xtprobit xtprobit_8 xtprobit_d2 xtprobit_re_p xtps_fe xtps_lf xtps_ren xtps_ren_8 xtrar_p xtrc xtrc_p xtrchh xtrefe_p xtreg xtreg_be xtreg_fe xtreg_ml xtreg_pa_p xtreg_re xtregar xtrere_p xtset xtsf_ll xtsf_llti xtsum xttab xttest0 xttobit xttobit_8 xttobit_p xttrans yx yxview__barlike_draw yxview_area_draw yxview_bar_draw yxview_dot_draw yxview_dropline_draw yxview_function_draw yxview_iarrow_draw yxview_ilabels_draw yxview_normal_draw yxview_pcarrow_draw yxview_pcbarrow_draw yxview_pccapsym_draw yxview_pcscatter_draw yxview_pcspike_draw yxview_rarea_draw yxview_rbar_draw yxview_rbarm_draw yxview_rcap_draw yxview_rcapsym_draw yxview_rconnected_draw yxview_rline_draw yxview_rscatter_draw yxview_rspike_draw yxview_spike_draw yxview_sunflower_draw zap_s zinb zinb_llf zinb_plf zip zip_llf zip_p zip_plf zt_ct_5 zt_hc_5 zt_hcd_5 zt_is_5 zt_iss_5 zt_sho_5 zt_smp_5 ztbase_5 ztcox_5 ztdes_5 ztereg_5 ztfill_5 ztgen_5 ztir_5 ztjoin_5 ztnb ztnb_p ztp ztp_p zts_5 ztset_5 ztspli_5 ztsum_5 zttoct_5 ztvary_5 ztweib_5",contains:[{className:"symbol",begin:/`[a-zA-Z0-9_]+'/},{className:"variable",begin:/\$\{?[a-zA-Z0-9_]+\}?/},{className:"string",variants:[{begin:'`"[^\r\n]*?"\''},{begin:'"[^\r\n"]*"'}]},{className:"built_in",variants:[{begin:"\\b(abs|acos|asin|atan|atan2|atanh|ceil|cloglog|comb|cos|digamma|exp|floor|invcloglog|invlogit|ln|lnfact|lnfactorial|lngamma|log|log10|max|min|mod|reldif|round|sign|sin|sqrt|sum|tan|tanh|trigamma|trunc|betaden|Binomial|binorm|binormal|chi2|chi2tail|dgammapda|dgammapdada|dgammapdadx|dgammapdx|dgammapdxdx|F|Fden|Ftail|gammaden|gammap|ibeta|invbinomial|invchi2|invchi2tail|invF|invFtail|invgammap|invibeta|invnchi2|invnFtail|invnibeta|invnorm|invnormal|invttail|nbetaden|nchi2|nFden|nFtail|nibeta|norm|normal|normalden|normd|npnchi2|tden|ttail|uniform|abbrev|char|index|indexnot|length|lower|ltrim|match|plural|proper|real|regexm|regexr|regexs|reverse|rtrim|string|strlen|strlower|strltrim|strmatch|strofreal|strpos|strproper|strreverse|strrtrim|strtrim|strupper|subinstr|subinword|substr|trim|upper|word|wordcount|_caller|autocode|byteorder|chop|clip|cond|e|epsdouble|epsfloat|group|inlist|inrange|irecode|matrix|maxbyte|maxdouble|maxfloat|maxint|maxlong|mi|minbyte|mindouble|minfloat|minint|minlong|missing|r|recode|replay|return|s|scalar|d|date|day|dow|doy|halfyear|mdy|month|quarter|week|year|d|daily|dofd|dofh|dofm|dofq|dofw|dofy|h|halfyearly|hofd|m|mofd|monthly|q|qofd|quarterly|tin|twithin|w|weekly|wofd|y|yearly|yh|ym|yofd|yq|yw|cholesky|colnumb|colsof|corr|det|diag|diag0cnt|el|get|hadamard|I|inv|invsym|issym|issymmetric|J|matmissing|matuniform|mreldif|nullmat|rownumb|rowsof|sweep|syminv|trace|vec|vecdiag)(?=\\()"}]},hljs.COMMENT("^[ \t]*\\*.*$",false),hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE]}});hljs.registerLanguage("scss",function(hljs){var AT_IDENTIFIER="@[a-z-]+";var AT_MODIFIERS="and or not only";var IDENT_RE="[a-zA-Z-][a-zA-Z0-9_-]*";var VARIABLE={className:"variable",begin:"(\\$"+IDENT_RE+")\\b"};var HEXCOLOR={className:"number",begin:"#[0-9A-Fa-f]+"};var DEF_INTERNALS={className:"attribute",begin:"[A-Z\\_\\.\\-]+",end:":",excludeEnd:true,illegal:"[^\\s]",starts:{endsWithParent:true,excludeEnd:true,contains:[HEXCOLOR,hljs.CSS_NUMBER_MODE,hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE,hljs.C_BLOCK_COMMENT_MODE,{className:"meta",begin:"!important"}]}};return{case_insensitive:true,illegal:"[=/|']",contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,{className:"selector-id",begin:"\\#[A-Za-z0-9_-]+",relevance:0},{className:"selector-class",begin:"\\.[A-Za-z0-9_-]+",relevance:0},{className:"selector-attr",begin:"\\[",end:"\\]",illegal:"$"},{className:"selector-tag",begin:"\\b(a|abbr|acronym|address|area|article|aside|audio|b|base|big|blockquote|body|br|button|canvas|caption|cite|code|col|colgroup|command|datalist|dd|del|details|dfn|div|dl|dt|em|embed|fieldset|figcaption|figure|footer|form|frame|frameset|(h[1-6])|head|header|hgroup|hr|html|i|iframe|img|input|ins|kbd|keygen|label|legend|li|link|map|mark|meta|meter|nav|noframes|noscript|object|ol|optgroup|option|output|p|param|pre|progress|q|rp|rt|ruby|samp|script|section|select|small|span|strike|strong|style|sub|sup|table|tbody|td|textarea|tfoot|th|thead|time|title|tr|tt|ul|var|video)\\b",relevance:0},{className:"selector-pseudo",begin:":(visited|valid|root|right|required|read-write|read-only|out-range|optional|only-of-type|only-child|nth-of-type|nth-last-of-type|nth-last-child|nth-child|not|link|left|last-of-type|last-child|lang|invalid|indeterminate|in-range|hover|focus|first-of-type|first-line|first-letter|first-child|first|enabled|empty|disabled|default|checked|before|after|active)"},{className:"selector-pseudo",begin:"::(after|before|choices|first-letter|first-line|repeat-index|repeat-item|selection|value)"},VARIABLE,{className:"attribute",begin:"\\b(src|z-index|word-wrap|word-spacing|word-break|width|widows|white-space|visibility|vertical-align|unicode-bidi|transition-timing-function|transition-property|transition-duration|transition-delay|transition|transform-style|transform-origin|transform|top|text-underline-position|text-transform|text-shadow|text-rendering|text-overflow|text-indent|text-decoration-style|text-decoration-line|text-decoration-color|text-decoration|text-align-last|text-align|tab-size|table-layout|right|resize|quotes|position|pointer-events|perspective-origin|perspective|page-break-inside|page-break-before|page-break-after|padding-top|padding-right|padding-left|padding-bottom|padding|overflow-y|overflow-x|overflow-wrap|overflow|outline-width|outline-style|outline-offset|outline-color|outline|orphans|order|opacity|object-position|object-fit|normal|none|nav-up|nav-right|nav-left|nav-index|nav-down|min-width|min-height|max-width|max-height|mask|marks|margin-top|margin-right|margin-left|margin-bottom|margin|list-style-type|list-style-position|list-style-image|list-style|line-height|letter-spacing|left|justify-content|initial|inherit|ime-mode|image-orientation|image-resolution|image-rendering|icon|hyphens|height|font-weight|font-variant-ligatures|font-variant|font-style|font-stretch|font-size-adjust|font-size|font-language-override|font-kerning|font-feature-settings|font-family|font|float|flex-wrap|flex-shrink|flex-grow|flex-flow|flex-direction|flex-basis|flex|filter|empty-cells|display|direction|cursor|counter-reset|counter-increment|content|column-width|column-span|column-rule-width|column-rule-style|column-rule-color|column-rule|column-gap|column-fill|column-count|columns|color|clip-path|clip|clear|caption-side|break-inside|break-before|break-after|box-sizing|box-shadow|box-decoration-break|bottom|border-width|border-top-width|border-top-style|border-top-right-radius|border-top-left-radius|border-top-color|border-top|border-style|border-spacing|border-right-width|border-right-style|border-right-color|border-right|border-radius|border-left-width|border-left-style|border-left-color|border-left|border-image-width|border-image-source|border-image-slice|border-image-repeat|border-image-outset|border-image|border-color|border-collapse|border-bottom-width|border-bottom-style|border-bottom-right-radius|border-bottom-left-radius|border-bottom-color|border-bottom|border|background-size|background-repeat|background-position|background-origin|background-image|background-color|background-clip|background-attachment|background-blend-mode|background|backface-visibility|auto|animation-timing-function|animation-play-state|animation-name|animation-iteration-count|animation-fill-mode|animation-duration|animation-direction|animation-delay|animation|align-self|align-items|align-content)\\b",illegal:"[^\\s]"},{begin:"\\b(whitespace|wait|w-resize|visible|vertical-text|vertical-ideographic|uppercase|upper-roman|upper-alpha|underline|transparent|top|thin|thick|text|text-top|text-bottom|tb-rl|table-header-group|table-footer-group|sw-resize|super|strict|static|square|solid|small-caps|separate|se-resize|scroll|s-resize|rtl|row-resize|ridge|right|repeat|repeat-y|repeat-x|relative|progress|pointer|overline|outside|outset|oblique|nowrap|not-allowed|normal|none|nw-resize|no-repeat|no-drop|newspaper|ne-resize|n-resize|move|middle|medium|ltr|lr-tb|lowercase|lower-roman|lower-alpha|loose|list-item|line|line-through|line-edge|lighter|left|keep-all|justify|italic|inter-word|inter-ideograph|inside|inset|inline|inline-block|inherit|inactive|ideograph-space|ideograph-parenthesis|ideograph-numeric|ideograph-alpha|horizontal|hidden|help|hand|groove|fixed|ellipsis|e-resize|double|dotted|distribute|distribute-space|distribute-letter|distribute-all-lines|disc|disabled|default|decimal|dashed|crosshair|collapse|col-resize|circle|char|center|capitalize|break-word|break-all|bottom|both|bolder|bold|block|bidi-override|below|baseline|auto|always|all-scroll|absolute|table|table-cell)\\b"},{begin:":",end:";",contains:[VARIABLE,HEXCOLOR,hljs.CSS_NUMBER_MODE,hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE,{className:"meta",begin:"!important"}]},{begin:"@(page|font-face)",lexemes:AT_IDENTIFIER,keywords:"@page @font-face"},{begin:"@",end:"[{;]",returnBegin:true,keywords:AT_MODIFIERS,contains:[{begin:AT_IDENTIFIER,className:"keyword"},VARIABLE,hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE,HEXCOLOR,hljs.CSS_NUMBER_MODE]}]}});hljs.registerLanguage("tcl",function(hljs){return{aliases:["tk"],keywords:"after append apply array auto_execok auto_import auto_load auto_mkindex "+"auto_mkindex_old auto_qualify auto_reset bgerror binary break catch cd chan clock "+"close concat continue dde dict encoding eof error eval exec exit expr fblocked "+"fconfigure fcopy file fileevent filename flush for foreach format gets glob global "+"history http if incr info interp join lappend|10 lassign|10 lindex|10 linsert|10 list "+"llength|10 load lrange|10 lrepeat|10 lreplace|10 lreverse|10 lsearch|10 lset|10 lsort|10 "+"mathfunc mathop memory msgcat namespace open package parray pid pkg::create pkg_mkIndex "+"platform platform::shell proc puts pwd read refchan regexp registry regsub|10 rename "+"return safe scan seek set socket source split string subst switch tcl_endOfWord "+"tcl_findLibrary tcl_startOfNextWord tcl_startOfPreviousWord tcl_wordBreakAfter "+"tcl_wordBreakBefore tcltest tclvars tell time tm trace unknown unload unset update "+"uplevel upvar variable vwait while",contains:[hljs.COMMENT(";[ \\t]*#","$"),hljs.COMMENT("^[ \\t]*#","$"),{beginKeywords:"proc",end:"[\\{]",excludeEnd:true,contains:[{className:"title",begin:"[ \\t\\n\\r]+(::)?[a-zA-Z_]((::)?[a-zA-Z0-9_])*",end:"[ \\t\\n\\r]",endsWithParent:true,excludeEnd:true}]},{excludeEnd:true,variants:[{begin:"\\$(\\{)?(::)?[a-zA-Z_]((::)?[a-zA-Z0-9_])*\\(([a-zA-Z0-9_])*\\)",end:"[^a-zA-Z0-9_\\}\\$]"},{begin:"\\$(\\{)?(::)?[a-zA-Z_]((::)?[a-zA-Z0-9_])*",end:"(\\))?[^a-zA-Z0-9_\\}\\$]"}]},{className:"string",contains:[hljs.BACKSLASH_ESCAPE],variants:[hljs.inherit(hljs.QUOTE_STRING_MODE,{illegal:null})]},{className:"number",variants:[hljs.BINARY_NUMBER_MODE,hljs.C_NUMBER_MODE]}]}});hljs.registerLanguage("pgsql",function(hljs){var COMMENT_MODE=hljs.COMMENT("--","$");var UNQUOTED_IDENT="[a-zA-Z_][a-zA-Z_0-9$]*";var DOLLAR_STRING="\\$([a-zA-Z_]?|[a-zA-Z_][a-zA-Z_0-9]*)\\$";var LABEL="<<\\s*"+UNQUOTED_IDENT+"\\s*>>";var SQL_KW="ABORT ALTER ANALYZE BEGIN CALL CHECKPOINT|10 CLOSE CLUSTER COMMENT COMMIT COPY CREATE DEALLOCATE DECLARE "+"DELETE DISCARD DO DROP END EXECUTE EXPLAIN FETCH GRANT IMPORT INSERT LISTEN LOAD LOCK MOVE NOTIFY "+"PREPARE REASSIGN|10 REFRESH REINDEX RELEASE RESET REVOKE ROLLBACK SAVEPOINT SECURITY SELECT SET SHOW "+"START TRUNCATE UNLISTEN|10 UPDATE VACUUM|10 VALUES "+"AGGREGATE COLLATION CONVERSION|10 DATABASE DEFAULT PRIVILEGES DOMAIN TRIGGER EXTENSION FOREIGN "+"WRAPPER|10 TABLE FUNCTION GROUP LANGUAGE LARGE OBJECT MATERIALIZED VIEW OPERATOR CLASS "+"FAMILY POLICY PUBLICATION|10 ROLE RULE SCHEMA SEQUENCE SERVER STATISTICS SUBSCRIPTION SYSTEM "+"TABLESPACE CONFIGURATION DICTIONARY PARSER TEMPLATE TYPE USER MAPPING PREPARED ACCESS "+"METHOD CAST AS TRANSFORM TRANSACTION OWNED TO INTO SESSION AUTHORIZATION "+"INDEX PROCEDURE ASSERTION "+"ALL ANALYSE AND ANY ARRAY ASC ASYMMETRIC|10 BOTH CASE CHECK "+"COLLATE COLUMN CONCURRENTLY|10 CONSTRAINT CROSS "+"DEFERRABLE RANGE "+"DESC DISTINCT ELSE EXCEPT FOR FREEZE|10 FROM FULL HAVING "+"ILIKE IN INITIALLY INNER INTERSECT IS ISNULL JOIN LATERAL LEADING LIKE LIMIT "+"NATURAL NOT NOTNULL NULL OFFSET ON ONLY OR ORDER OUTER OVERLAPS PLACING PRIMARY "+"REFERENCES RETURNING SIMILAR SOME SYMMETRIC TABLESAMPLE THEN "+"TRAILING UNION UNIQUE USING VARIADIC|10 VERBOSE WHEN WHERE WINDOW WITH "+"BY RETURNS INOUT OUT SETOF|10 IF STRICT CURRENT CONTINUE OWNER LOCATION OVER PARTITION WITHIN "+"BETWEEN ESCAPE EXTERNAL INVOKER DEFINER WORK RENAME VERSION CONNECTION CONNECT "+"TABLES TEMP TEMPORARY FUNCTIONS SEQUENCES TYPES SCHEMAS OPTION CASCADE RESTRICT ADD ADMIN "+"EXISTS VALID VALIDATE ENABLE DISABLE REPLICA|10 ALWAYS PASSING COLUMNS PATH "+"REF VALUE OVERRIDING IMMUTABLE STABLE VOLATILE BEFORE AFTER EACH ROW PROCEDURAL "+"ROUTINE NO HANDLER VALIDATOR OPTIONS STORAGE OIDS|10 WITHOUT INHERIT DEPENDS CALLED "+"INPUT LEAKPROOF|10 COST ROWS NOWAIT SEARCH UNTIL ENCRYPTED|10 PASSWORD CONFLICT|10 "+"INSTEAD INHERITS CHARACTERISTICS WRITE CURSOR ALSO STATEMENT SHARE EXCLUSIVE INLINE "+"ISOLATION REPEATABLE READ COMMITTED SERIALIZABLE UNCOMMITTED LOCAL GLOBAL SQL PROCEDURES "+"RECURSIVE SNAPSHOT ROLLUP CUBE TRUSTED|10 INCLUDE FOLLOWING PRECEDING UNBOUNDED RANGE GROUPS "+"UNENCRYPTED|10 SYSID FORMAT DELIMITER HEADER QUOTE ENCODING FILTER OFF "+"FORCE_QUOTE FORCE_NOT_NULL FORCE_NULL COSTS BUFFERS TIMING SUMMARY DISABLE_PAGE_SKIPPING "+"RESTART CYCLE GENERATED IDENTITY DEFERRED IMMEDIATE LEVEL LOGGED UNLOGGED "+"OF NOTHING NONE EXCLUDE ATTRIBUTE "+"USAGE ROUTINES "+"TRUE FALSE NAN INFINITY ";var ROLE_ATTRS="SUPERUSER NOSUPERUSER CREATEDB NOCREATEDB CREATEROLE NOCREATEROLE INHERIT NOINHERIT "+"LOGIN NOLOGIN REPLICATION NOREPLICATION BYPASSRLS NOBYPASSRLS ";var PLPGSQL_KW="ALIAS BEGIN CONSTANT DECLARE END EXCEPTION RETURN PERFORM|10 RAISE GET DIAGNOSTICS "+"STACKED|10 FOREACH LOOP ELSIF EXIT WHILE REVERSE SLICE DEBUG LOG INFO NOTICE WARNING ASSERT "+"OPEN ";var TYPES="BIGINT INT8 BIGSERIAL SERIAL8 BIT VARYING VARBIT BOOLEAN BOOL BOX BYTEA CHARACTER CHAR VARCHAR "+"CIDR CIRCLE DATE DOUBLE PRECISION FLOAT8 FLOAT INET INTEGER INT INT4 INTERVAL JSON JSONB LINE LSEG|10 "+"MACADDR MACADDR8 MONEY NUMERIC DEC DECIMAL PATH POINT POLYGON REAL FLOAT4 SMALLINT INT2 "+"SMALLSERIAL|10 SERIAL2|10 SERIAL|10 SERIAL4|10 TEXT TIME ZONE TIMETZ|10 TIMESTAMP TIMESTAMPTZ|10 TSQUERY|10 TSVECTOR|10 "+"TXID_SNAPSHOT|10 UUID XML NATIONAL NCHAR "+"INT4RANGE|10 INT8RANGE|10 NUMRANGE|10 TSRANGE|10 TSTZRANGE|10 DATERANGE|10 "+"ANYELEMENT ANYARRAY ANYNONARRAY ANYENUM ANYRANGE CSTRING INTERNAL "+"RECORD PG_DDL_COMMAND VOID UNKNOWN OPAQUE REFCURSOR "+"NAME "+"OID REGPROC|10 REGPROCEDURE|10 REGOPER|10 REGOPERATOR|10 REGCLASS|10 REGTYPE|10 REGROLE|10 "+"REGNAMESPACE|10 REGCONFIG|10 REGDICTIONARY|10 ";"HSTORE|10 LO LTREE|10 ";var TYPES_RE=TYPES.trim().split(" ").map(function(val){return val.split("|")[0]}).join("|");var SQL_BI="CURRENT_TIME CURRENT_TIMESTAMP CURRENT_USER CURRENT_CATALOG|10 CURRENT_DATE LOCALTIME LOCALTIMESTAMP "+"CURRENT_ROLE|10 CURRENT_SCHEMA|10 SESSION_USER PUBLIC ";var PLPGSQL_BI="FOUND NEW OLD TG_NAME|10 TG_WHEN|10 TG_LEVEL|10 TG_OP|10 TG_RELID|10 TG_RELNAME|10 "+"TG_TABLE_NAME|10 TG_TABLE_SCHEMA|10 TG_NARGS|10 TG_ARGV|10 TG_EVENT|10 TG_TAG|10 "+"ROW_COUNT RESULT_OID|10 PG_CONTEXT|10 RETURNED_SQLSTATE COLUMN_NAME CONSTRAINT_NAME "+"PG_DATATYPE_NAME|10 MESSAGE_TEXT TABLE_NAME SCHEMA_NAME PG_EXCEPTION_DETAIL|10 "+"PG_EXCEPTION_HINT|10 PG_EXCEPTION_CONTEXT|10 ";var PLPGSQL_EXCEPTIONS="SQLSTATE SQLERRM|10 "+"SUCCESSFUL_COMPLETION WARNING DYNAMIC_RESULT_SETS_RETURNED IMPLICIT_ZERO_BIT_PADDING "+"NULL_VALUE_ELIMINATED_IN_SET_FUNCTION PRIVILEGE_NOT_GRANTED PRIVILEGE_NOT_REVOKED "+"STRING_DATA_RIGHT_TRUNCATION DEPRECATED_FEATURE NO_DATA NO_ADDITIONAL_DYNAMIC_RESULT_SETS_RETURNED "+"SQL_STATEMENT_NOT_YET_COMPLETE CONNECTION_EXCEPTION CONNECTION_DOES_NOT_EXIST CONNECTION_FAILURE "+"SQLCLIENT_UNABLE_TO_ESTABLISH_SQLCONNECTION SQLSERVER_REJECTED_ESTABLISHMENT_OF_SQLCONNECTION "+"TRANSACTION_RESOLUTION_UNKNOWN PROTOCOL_VIOLATION TRIGGERED_ACTION_EXCEPTION FEATURE_NOT_SUPPORTED "+"INVALID_TRANSACTION_INITIATION LOCATOR_EXCEPTION INVALID_LOCATOR_SPECIFICATION INVALID_GRANTOR "+"INVALID_GRANT_OPERATION INVALID_ROLE_SPECIFICATION DIAGNOSTICS_EXCEPTION "+"STACKED_DIAGNOSTICS_ACCESSED_WITHOUT_ACTIVE_HANDLER CASE_NOT_FOUND CARDINALITY_VIOLATION "+"DATA_EXCEPTION ARRAY_SUBSCRIPT_ERROR CHARACTER_NOT_IN_REPERTOIRE DATETIME_FIELD_OVERFLOW "+"DIVISION_BY_ZERO ERROR_IN_ASSIGNMENT ESCAPE_CHARACTER_CONFLICT INDICATOR_OVERFLOW "+"INTERVAL_FIELD_OVERFLOW INVALID_ARGUMENT_FOR_LOGARITHM INVALID_ARGUMENT_FOR_NTILE_FUNCTION "+"INVALID_ARGUMENT_FOR_NTH_VALUE_FUNCTION INVALID_ARGUMENT_FOR_POWER_FUNCTION "+"INVALID_ARGUMENT_FOR_WIDTH_BUCKET_FUNCTION INVALID_CHARACTER_VALUE_FOR_CAST "+"INVALID_DATETIME_FORMAT INVALID_ESCAPE_CHARACTER INVALID_ESCAPE_OCTET INVALID_ESCAPE_SEQUENCE "+"NONSTANDARD_USE_OF_ESCAPE_CHARACTER INVALID_INDICATOR_PARAMETER_VALUE INVALID_PARAMETER_VALUE "+"INVALID_REGULAR_EXPRESSION INVALID_ROW_COUNT_IN_LIMIT_CLAUSE "+"INVALID_ROW_COUNT_IN_RESULT_OFFSET_CLAUSE INVALID_TABLESAMPLE_ARGUMENT INVALID_TABLESAMPLE_REPEAT "+"INVALID_TIME_ZONE_DISPLACEMENT_VALUE INVALID_USE_OF_ESCAPE_CHARACTER MOST_SPECIFIC_TYPE_MISMATCH "+"NULL_VALUE_NOT_ALLOWED NULL_VALUE_NO_INDICATOR_PARAMETER NUMERIC_VALUE_OUT_OF_RANGE "+"SEQUENCE_GENERATOR_LIMIT_EXCEEDED STRING_DATA_LENGTH_MISMATCH STRING_DATA_RIGHT_TRUNCATION "+"SUBSTRING_ERROR TRIM_ERROR UNTERMINATED_C_STRING ZERO_LENGTH_CHARACTER_STRING "+"FLOATING_POINT_EXCEPTION INVALID_TEXT_REPRESENTATION INVALID_BINARY_REPRESENTATION "+"BAD_COPY_FILE_FORMAT UNTRANSLATABLE_CHARACTER NOT_AN_XML_DOCUMENT INVALID_XML_DOCUMENT "+"INVALID_XML_CONTENT INVALID_XML_COMMENT INVALID_XML_PROCESSING_INSTRUCTION "+"INTEGRITY_CONSTRAINT_VIOLATION RESTRICT_VIOLATION NOT_NULL_VIOLATION FOREIGN_KEY_VIOLATION "+"UNIQUE_VIOLATION CHECK_VIOLATION EXCLUSION_VIOLATION INVALID_CURSOR_STATE "+"INVALID_TRANSACTION_STATE ACTIVE_SQL_TRANSACTION BRANCH_TRANSACTION_ALREADY_ACTIVE "+"HELD_CURSOR_REQUIRES_SAME_ISOLATION_LEVEL INAPPROPRIATE_ACCESS_MODE_FOR_BRANCH_TRANSACTION "+"INAPPROPRIATE_ISOLATION_LEVEL_FOR_BRANCH_TRANSACTION "+"NO_ACTIVE_SQL_TRANSACTION_FOR_BRANCH_TRANSACTION READ_ONLY_SQL_TRANSACTION "+"SCHEMA_AND_DATA_STATEMENT_MIXING_NOT_SUPPORTED NO_ACTIVE_SQL_TRANSACTION "+"IN_FAILED_SQL_TRANSACTION IDLE_IN_TRANSACTION_SESSION_TIMEOUT INVALID_SQL_STATEMENT_NAME "+"TRIGGERED_DATA_CHANGE_VIOLATION INVALID_AUTHORIZATION_SPECIFICATION INVALID_PASSWORD "+"DEPENDENT_PRIVILEGE_DESCRIPTORS_STILL_EXIST DEPENDENT_OBJECTS_STILL_EXIST "+"INVALID_TRANSACTION_TERMINATION SQL_ROUTINE_EXCEPTION FUNCTION_EXECUTED_NO_RETURN_STATEMENT "+"MODIFYING_SQL_DATA_NOT_PERMITTED PROHIBITED_SQL_STATEMENT_ATTEMPTED "+"READING_SQL_DATA_NOT_PERMITTED INVALID_CURSOR_NAME EXTERNAL_ROUTINE_EXCEPTION "+"CONTAINING_SQL_NOT_PERMITTED MODIFYING_SQL_DATA_NOT_PERMITTED "+"PROHIBITED_SQL_STATEMENT_ATTEMPTED READING_SQL_DATA_NOT_PERMITTED "+"EXTERNAL_ROUTINE_INVOCATION_EXCEPTION INVALID_SQLSTATE_RETURNED NULL_VALUE_NOT_ALLOWED "+"TRIGGER_PROTOCOL_VIOLATED SRF_PROTOCOL_VIOLATED EVENT_TRIGGER_PROTOCOL_VIOLATED "+"SAVEPOINT_EXCEPTION INVALID_SAVEPOINT_SPECIFICATION INVALID_CATALOG_NAME "+"INVALID_SCHEMA_NAME TRANSACTION_ROLLBACK TRANSACTION_INTEGRITY_CONSTRAINT_VIOLATION "+"SERIALIZATION_FAILURE STATEMENT_COMPLETION_UNKNOWN DEADLOCK_DETECTED "+"SYNTAX_ERROR_OR_ACCESS_RULE_VIOLATION SYNTAX_ERROR INSUFFICIENT_PRIVILEGE CANNOT_COERCE "+"GROUPING_ERROR WINDOWING_ERROR INVALID_RECURSION INVALID_FOREIGN_KEY INVALID_NAME "+"NAME_TOO_LONG RESERVED_NAME DATATYPE_MISMATCH INDETERMINATE_DATATYPE COLLATION_MISMATCH "+"INDETERMINATE_COLLATION WRONG_OBJECT_TYPE GENERATED_ALWAYS UNDEFINED_COLUMN "+"UNDEFINED_FUNCTION UNDEFINED_TABLE UNDEFINED_PARAMETER UNDEFINED_OBJECT "+"DUPLICATE_COLUMN DUPLICATE_CURSOR DUPLICATE_DATABASE DUPLICATE_FUNCTION "+"DUPLICATE_PREPARED_STATEMENT DUPLICATE_SCHEMA DUPLICATE_TABLE DUPLICATE_ALIAS "+"DUPLICATE_OBJECT AMBIGUOUS_COLUMN AMBIGUOUS_FUNCTION AMBIGUOUS_PARAMETER AMBIGUOUS_ALIAS "+"INVALID_COLUMN_REFERENCE INVALID_COLUMN_DEFINITION INVALID_CURSOR_DEFINITION "+"INVALID_DATABASE_DEFINITION INVALID_FUNCTION_DEFINITION "+"INVALID_PREPARED_STATEMENT_DEFINITION INVALID_SCHEMA_DEFINITION INVALID_TABLE_DEFINITION "+"INVALID_OBJECT_DEFINITION WITH_CHECK_OPTION_VIOLATION INSUFFICIENT_RESOURCES DISK_FULL "+"OUT_OF_MEMORY TOO_MANY_CONNECTIONS CONFIGURATION_LIMIT_EXCEEDED PROGRAM_LIMIT_EXCEEDED "+"STATEMENT_TOO_COMPLEX TOO_MANY_COLUMNS TOO_MANY_ARGUMENTS OBJECT_NOT_IN_PREREQUISITE_STATE "+"OBJECT_IN_USE CANT_CHANGE_RUNTIME_PARAM LOCK_NOT_AVAILABLE OPERATOR_INTERVENTION "+"QUERY_CANCELED ADMIN_SHUTDOWN CRASH_SHUTDOWN CANNOT_CONNECT_NOW DATABASE_DROPPED "+"SYSTEM_ERROR IO_ERROR UNDEFINED_FILE DUPLICATE_FILE SNAPSHOT_TOO_OLD CONFIG_FILE_ERROR "+"LOCK_FILE_EXISTS FDW_ERROR FDW_COLUMN_NAME_NOT_FOUND FDW_DYNAMIC_PARAMETER_VALUE_NEEDED "+"FDW_FUNCTION_SEQUENCE_ERROR FDW_INCONSISTENT_DESCRIPTOR_INFORMATION "+"FDW_INVALID_ATTRIBUTE_VALUE FDW_INVALID_COLUMN_NAME FDW_INVALID_COLUMN_NUMBER "+"FDW_INVALID_DATA_TYPE FDW_INVALID_DATA_TYPE_DESCRIPTORS "+"FDW_INVALID_DESCRIPTOR_FIELD_IDENTIFIER FDW_INVALID_HANDLE FDW_INVALID_OPTION_INDEX "+"FDW_INVALID_OPTION_NAME FDW_INVALID_STRING_LENGTH_OR_BUFFER_LENGTH "+"FDW_INVALID_STRING_FORMAT FDW_INVALID_USE_OF_NULL_POINTER FDW_TOO_MANY_HANDLES "+"FDW_OUT_OF_MEMORY FDW_NO_SCHEMAS FDW_OPTION_NAME_NOT_FOUND FDW_REPLY_HANDLE "+"FDW_SCHEMA_NOT_FOUND FDW_TABLE_NOT_FOUND FDW_UNABLE_TO_CREATE_EXECUTION "+"FDW_UNABLE_TO_CREATE_REPLY FDW_UNABLE_TO_ESTABLISH_CONNECTION PLPGSQL_ERROR "+"RAISE_EXCEPTION NO_DATA_FOUND TOO_MANY_ROWS ASSERT_FAILURE INTERNAL_ERROR DATA_CORRUPTED "+"INDEX_CORRUPTED ";var FUNCTIONS="ARRAY_AGG AVG BIT_AND BIT_OR BOOL_AND BOOL_OR COUNT EVERY JSON_AGG JSONB_AGG JSON_OBJECT_AGG "+"JSONB_OBJECT_AGG MAX MIN MODE STRING_AGG SUM XMLAGG "+"CORR COVAR_POP COVAR_SAMP REGR_AVGX REGR_AVGY REGR_COUNT REGR_INTERCEPT REGR_R2 REGR_SLOPE "+"REGR_SXX REGR_SXY REGR_SYY STDDEV STDDEV_POP STDDEV_SAMP VARIANCE VAR_POP VAR_SAMP "+"PERCENTILE_CONT PERCENTILE_DISC "+"ROW_NUMBER RANK DENSE_RANK PERCENT_RANK CUME_DIST NTILE LAG LEAD FIRST_VALUE LAST_VALUE NTH_VALUE "+"NUM_NONNULLS NUM_NULLS "+"ABS CBRT CEIL CEILING DEGREES DIV EXP FLOOR LN LOG MOD PI POWER RADIANS ROUND SCALE SIGN SQRT "+"TRUNC WIDTH_BUCKET "+"RANDOM SETSEED "+"ACOS ACOSD ASIN ASIND ATAN ATAND ATAN2 ATAN2D COS COSD COT COTD SIN SIND TAN TAND "+"BIT_LENGTH CHAR_LENGTH CHARACTER_LENGTH LOWER OCTET_LENGTH OVERLAY POSITION SUBSTRING TREAT TRIM UPPER "+"ASCII BTRIM CHR CONCAT CONCAT_WS CONVERT CONVERT_FROM CONVERT_TO DECODE ENCODE INITCAP"+"LEFT LENGTH LPAD LTRIM MD5 PARSE_IDENT PG_CLIENT_ENCODING QUOTE_IDENT|10 QUOTE_LITERAL|10 "+"QUOTE_NULLABLE|10 REGEXP_MATCH REGEXP_MATCHES REGEXP_REPLACE REGEXP_SPLIT_TO_ARRAY "+"REGEXP_SPLIT_TO_TABLE REPEAT REPLACE REVERSE RIGHT RPAD RTRIM SPLIT_PART STRPOS SUBSTR "+"TO_ASCII TO_HEX TRANSLATE "+"OCTET_LENGTH GET_BIT GET_BYTE SET_BIT SET_BYTE "+"TO_CHAR TO_DATE TO_NUMBER TO_TIMESTAMP "+"AGE CLOCK_TIMESTAMP|10 DATE_PART DATE_TRUNC ISFINITE JUSTIFY_DAYS JUSTIFY_HOURS JUSTIFY_INTERVAL "+"MAKE_DATE MAKE_INTERVAL|10 MAKE_TIME MAKE_TIMESTAMP|10 MAKE_TIMESTAMPTZ|10 NOW STATEMENT_TIMESTAMP|10 "+"TIMEOFDAY TRANSACTION_TIMESTAMP|10 "+"ENUM_FIRST ENUM_LAST ENUM_RANGE "+"AREA CENTER DIAMETER HEIGHT ISCLOSED ISOPEN NPOINTS PCLOSE POPEN RADIUS WIDTH "+"BOX BOUND_BOX CIRCLE LINE LSEG PATH POLYGON "+"ABBREV BROADCAST HOST HOSTMASK MASKLEN NETMASK NETWORK SET_MASKLEN TEXT INET_SAME_FAMILY"+"INET_MERGE MACADDR8_SET7BIT "+"ARRAY_TO_TSVECTOR GET_CURRENT_TS_CONFIG NUMNODE PLAINTO_TSQUERY PHRASETO_TSQUERY WEBSEARCH_TO_TSQUERY "+"QUERYTREE SETWEIGHT STRIP TO_TSQUERY TO_TSVECTOR JSON_TO_TSVECTOR JSONB_TO_TSVECTOR TS_DELETE "+"TS_FILTER TS_HEADLINE TS_RANK TS_RANK_CD TS_REWRITE TSQUERY_PHRASE TSVECTOR_TO_ARRAY "+"TSVECTOR_UPDATE_TRIGGER TSVECTOR_UPDATE_TRIGGER_COLUMN "+"XMLCOMMENT XMLCONCAT XMLELEMENT XMLFOREST XMLPI XMLROOT "+"XMLEXISTS XML_IS_WELL_FORMED XML_IS_WELL_FORMED_DOCUMENT XML_IS_WELL_FORMED_CONTENT "+"XPATH XPATH_EXISTS XMLTABLE XMLNAMESPACES "+"TABLE_TO_XML TABLE_TO_XMLSCHEMA TABLE_TO_XML_AND_XMLSCHEMA "+"QUERY_TO_XML QUERY_TO_XMLSCHEMA QUERY_TO_XML_AND_XMLSCHEMA "+"CURSOR_TO_XML CURSOR_TO_XMLSCHEMA "+"SCHEMA_TO_XML SCHEMA_TO_XMLSCHEMA SCHEMA_TO_XML_AND_XMLSCHEMA "+"DATABASE_TO_XML DATABASE_TO_XMLSCHEMA DATABASE_TO_XML_AND_XMLSCHEMA "+"XMLATTRIBUTES "+"TO_JSON TO_JSONB ARRAY_TO_JSON ROW_TO_JSON JSON_BUILD_ARRAY JSONB_BUILD_ARRAY JSON_BUILD_OBJECT "+"JSONB_BUILD_OBJECT JSON_OBJECT JSONB_OBJECT JSON_ARRAY_LENGTH JSONB_ARRAY_LENGTH JSON_EACH "+"JSONB_EACH JSON_EACH_TEXT JSONB_EACH_TEXT JSON_EXTRACT_PATH JSONB_EXTRACT_PATH "+"JSON_OBJECT_KEYS JSONB_OBJECT_KEYS JSON_POPULATE_RECORD JSONB_POPULATE_RECORD JSON_POPULATE_RECORDSET "+"JSONB_POPULATE_RECORDSET JSON_ARRAY_ELEMENTS JSONB_ARRAY_ELEMENTS JSON_ARRAY_ELEMENTS_TEXT "+"JSONB_ARRAY_ELEMENTS_TEXT JSON_TYPEOF JSONB_TYPEOF JSON_TO_RECORD JSONB_TO_RECORD JSON_TO_RECORDSET "+"JSONB_TO_RECORDSET JSON_STRIP_NULLS JSONB_STRIP_NULLS JSONB_SET JSONB_INSERT JSONB_PRETTY "+"CURRVAL LASTVAL NEXTVAL SETVAL "+"COALESCE NULLIF GREATEST LEAST "+"ARRAY_APPEND ARRAY_CAT ARRAY_NDIMS ARRAY_DIMS ARRAY_FILL ARRAY_LENGTH ARRAY_LOWER ARRAY_POSITION "+"ARRAY_POSITIONS ARRAY_PREPEND ARRAY_REMOVE ARRAY_REPLACE ARRAY_TO_STRING ARRAY_UPPER CARDINALITY "+"STRING_TO_ARRAY UNNEST "+"ISEMPTY LOWER_INC UPPER_INC LOWER_INF UPPER_INF RANGE_MERGE "+"GENERATE_SERIES GENERATE_SUBSCRIPTS "+"CURRENT_DATABASE CURRENT_QUERY CURRENT_SCHEMA|10 CURRENT_SCHEMAS|10 INET_CLIENT_ADDR INET_CLIENT_PORT "+"INET_SERVER_ADDR INET_SERVER_PORT ROW_SECURITY_ACTIVE FORMAT_TYPE "+"TO_REGCLASS TO_REGPROC TO_REGPROCEDURE TO_REGOPER TO_REGOPERATOR TO_REGTYPE TO_REGNAMESPACE TO_REGROLE "+"COL_DESCRIPTION OBJ_DESCRIPTION SHOBJ_DESCRIPTION "+"TXID_CURRENT TXID_CURRENT_IF_ASSIGNED TXID_CURRENT_SNAPSHOT TXID_SNAPSHOT_XIP TXID_SNAPSHOT_XMAX "+"TXID_SNAPSHOT_XMIN TXID_VISIBLE_IN_SNAPSHOT TXID_STATUS "+"CURRENT_SETTING SET_CONFIG BRIN_SUMMARIZE_NEW_VALUES BRIN_SUMMARIZE_RANGE BRIN_DESUMMARIZE_RANGE "+"GIN_CLEAN_PENDING_LIST "+"SUPPRESS_REDUNDANT_UPDATES_TRIGGER "+"LO_FROM_BYTEA LO_PUT LO_GET LO_CREAT LO_CREATE LO_UNLINK LO_IMPORT LO_EXPORT LOREAD LOWRITE "+"GROUPING CAST ";var FUNCTIONS_RE=FUNCTIONS.trim().split(" ").map(function(val){return val.split("|")[0]}).join("|");return{aliases:["postgres","postgresql"],case_insensitive:true,keywords:{keyword:SQL_KW+PLPGSQL_KW+ROLE_ATTRS,built_in:SQL_BI+PLPGSQL_BI+PLPGSQL_EXCEPTIONS},illegal:/:==|\W\s*\(\*|(^|\s)\$[a-z]|{{|[a-z]:\s*$|\.\.\.|TO:|DO:/,contains:[{className:"keyword",variants:[{begin:/\bTEXT\s*SEARCH\b/},{begin:/\b(PRIMARY|FOREIGN|FOR(\s+NO)?)\s+KEY\b/},{begin:/\bPARALLEL\s+(UNSAFE|RESTRICTED|SAFE)\b/},{begin:/\bSTORAGE\s+(PLAIN|EXTERNAL|EXTENDED|MAIN)\b/},{begin:/\bMATCH\s+(FULL|PARTIAL|SIMPLE)\b/},{begin:/\bNULLS\s+(FIRST|LAST)\b/},{begin:/\bEVENT\s+TRIGGER\b/},{begin:/\b(MAPPING|OR)\s+REPLACE\b/},{begin:/\b(FROM|TO)\s+(PROGRAM|STDIN|STDOUT)\b/},{begin:/\b(SHARE|EXCLUSIVE)\s+MODE\b/},{begin:/\b(LEFT|RIGHT)\s+(OUTER\s+)?JOIN\b/},{begin:/\b(FETCH|MOVE)\s+(NEXT|PRIOR|FIRST|LAST|ABSOLUTE|RELATIVE|FORWARD|BACKWARD)\b/},{begin:/\bPRESERVE\s+ROWS\b/},{begin:/\bDISCARD\s+PLANS\b/},{begin:/\bREFERENCING\s+(OLD|NEW)\b/},{begin:/\bSKIP\s+LOCKED\b/},{begin:/\bGROUPING\s+SETS\b/},{begin:/\b(BINARY|INSENSITIVE|SCROLL|NO\s+SCROLL)\s+(CURSOR|FOR)\b/},{begin:/\b(WITH|WITHOUT)\s+HOLD\b/},{begin:/\bWITH\s+(CASCADED|LOCAL)\s+CHECK\s+OPTION\b/},{begin:/\bEXCLUDE\s+(TIES|NO\s+OTHERS)\b/},{begin:/\bFORMAT\s+(TEXT|XML|JSON|YAML)\b/},{begin:/\bSET\s+((SESSION|LOCAL)\s+)?NAMES\b/},{begin:/\bIS\s+(NOT\s+)?UNKNOWN\b/},{begin:/\bSECURITY\s+LABEL\b/},{begin:/\bSTANDALONE\s+(YES|NO|NO\s+VALUE)\b/},{begin:/\bWITH\s+(NO\s+)?DATA\b/},{begin:/\b(FOREIGN|SET)\s+DATA\b/},{begin:/\bSET\s+(CATALOG|CONSTRAINTS)\b/},{begin:/\b(WITH|FOR)\s+ORDINALITY\b/},{begin:/\bIS\s+(NOT\s+)?DOCUMENT\b/},{begin:/\bXML\s+OPTION\s+(DOCUMENT|CONTENT)\b/},{begin:/\b(STRIP|PRESERVE)\s+WHITESPACE\b/},{begin:/\bNO\s+(ACTION|MAXVALUE|MINVALUE)\b/},{begin:/\bPARTITION\s+BY\s+(RANGE|LIST|HASH)\b/},{begin:/\bAT\s+TIME\s+ZONE\b/},{begin:/\bGRANTED\s+BY\b/},{begin:/\bRETURN\s+(QUERY|NEXT)\b/},{begin:/\b(ATTACH|DETACH)\s+PARTITION\b/},{begin:/\bFORCE\s+ROW\s+LEVEL\s+SECURITY\b/},{begin:/\b(INCLUDING|EXCLUDING)\s+(COMMENTS|CONSTRAINTS|DEFAULTS|IDENTITY|INDEXES|STATISTICS|STORAGE|ALL)\b/},{begin:/\bAS\s+(ASSIGNMENT|IMPLICIT|PERMISSIVE|RESTRICTIVE|ENUM|RANGE)\b/}]},{begin:/\b(FORMAT|FAMILY|VERSION)\s*\(/},{begin:/\bINCLUDE\s*\(/,keywords:"INCLUDE"},{begin:/\bRANGE(?!\s*(BETWEEN|UNBOUNDED|CURRENT|[-0-9]+))/},{begin:/\b(VERSION|OWNER|TEMPLATE|TABLESPACE|CONNECTION\s+LIMIT|PROCEDURE|RESTRICT|JOIN|PARSER|COPY|START|END|COLLATION|INPUT|ANALYZE|STORAGE|LIKE|DEFAULT|DELIMITER|ENCODING|COLUMN|CONSTRAINT|TABLE|SCHEMA)\s*=/},{begin:/\b(PG_\w+?|HAS_[A-Z_]+_PRIVILEGE)\b/,relevance:10},{begin:/\bEXTRACT\s*\(/,end:/\bFROM\b/,returnEnd:true,keywords:{type:"CENTURY DAY DECADE DOW DOY EPOCH HOUR ISODOW ISOYEAR MICROSECONDS "+"MILLENNIUM MILLISECONDS MINUTE MONTH QUARTER SECOND TIMEZONE TIMEZONE_HOUR "+"TIMEZONE_MINUTE WEEK YEAR"}},{begin:/\b(XMLELEMENT|XMLPI)\s*\(\s*NAME/,keywords:{keyword:"NAME"}},{begin:/\b(XMLPARSE|XMLSERIALIZE)\s*\(\s*(DOCUMENT|CONTENT)/,keywords:{keyword:"DOCUMENT CONTENT"}},{beginKeywords:"CACHE INCREMENT MAXVALUE MINVALUE",end:hljs.C_NUMBER_RE,returnEnd:true,keywords:"BY CACHE INCREMENT MAXVALUE MINVALUE"},{className:"type",begin:/\b(WITH|WITHOUT)\s+TIME\s+ZONE\b/},{className:"type",begin:/\bINTERVAL\s+(YEAR|MONTH|DAY|HOUR|MINUTE|SECOND)(\s+TO\s+(MONTH|HOUR|MINUTE|SECOND))?\b/},{begin:/\bRETURNS\s+(LANGUAGE_HANDLER|TRIGGER|EVENT_TRIGGER|FDW_HANDLER|INDEX_AM_HANDLER|TSM_HANDLER)\b/,keywords:{keyword:"RETURNS",type:"LANGUAGE_HANDLER TRIGGER EVENT_TRIGGER FDW_HANDLER INDEX_AM_HANDLER TSM_HANDLER"}},{begin:"\\b("+FUNCTIONS_RE+")\\s*\\("},{begin:"\\.("+TYPES_RE+")\\b"},{begin:"\\b("+TYPES_RE+")\\s+PATH\\b",keywords:{keyword:"PATH",type:TYPES.replace("PATH ","")}},{className:"type",begin:"\\b("+TYPES_RE+")\\b"},{className:"string",begin:"'",end:"'",contains:[{begin:"''"}]},{className:"string",begin:"(e|E|u&|U&)'",end:"'",contains:[{begin:"\\\\."}],relevance:10},{begin:DOLLAR_STRING,endSameAsBegin:true,contains:[{subLanguage:["pgsql","perl","python","tcl","r","lua","java","php","ruby","bash","scheme","xml","json"],endsWithParent:true}]},{begin:'"',end:'"',contains:[{begin:'""'}]},hljs.C_NUMBER_MODE,hljs.C_BLOCK_COMMENT_MODE,COMMENT_MODE,{className:"meta",variants:[{begin:"%(ROW)?TYPE",relevance:10},{begin:"\\$\\d+"},{begin:"^#\\w",end:"$"}]},{className:"symbol",begin:LABEL,relevance:10}]}});hljs.registerLanguage("brainfuck",function(hljs){var LITERAL={className:"literal",begin:"[\\+\\-]",relevance:0};return{aliases:["bf"],contains:[hljs.COMMENT("[^\\[\\]\\.,\\+\\-<> \r\n]","[\\[\\]\\.,\\+\\-<> \r\n]",{returnEnd:true,relevance:0}),{className:"title",begin:"[\\[\\]]",relevance:0},{className:"string",begin:"[\\.,]",relevance:0},{begin:/(?:\+\+|\-\-)/,contains:[LITERAL]},LITERAL]}});hljs.registerLanguage("rsl",function(hljs){return{keywords:{keyword:"float color point normal vector matrix while for if do return else break extern continue",built_in:"abs acos ambient area asin atan atmosphere attribute calculatenormal ceil cellnoise "+"clamp comp concat cos degrees depth Deriv diffuse distance Du Dv environment exp "+"faceforward filterstep floor format fresnel incident length lightsource log match "+"max min mod noise normalize ntransform opposite option phong pnoise pow printf "+"ptlined radians random reflect refract renderinfo round setcomp setxcomp setycomp "+"setzcomp shadow sign sin smoothstep specular specularbrdf spline sqrt step tan "+"texture textureinfo trace transform vtransform xcomp ycomp zcomp"},illegal:"</",contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE,hljs.C_NUMBER_MODE,{className:"meta",begin:"#",end:"$"},{className:"class",beginKeywords:"surface displacement light volume imager",end:"\\("},{beginKeywords:"illuminate illuminance gather",end:"\\("}]}});hljs.registerLanguage("crystal",function(hljs){var INT_SUFFIX="(_*[ui](8|16|32|64|128))?";var FLOAT_SUFFIX="(_*f(32|64))?";var CRYSTAL_IDENT_RE="[a-zA-Z_]\\w*[!?=]?";var CRYSTAL_METHOD_RE="[a-zA-Z_]\\w*[!?=]?|[-+~]\\@|<<|>>|[=!]~|===?|<=>|[<>]=?|\\*\\*|[-/+%^&*~|]|//|//=|&[-+*]=?|&\\*\\*|\\[\\][=?]?";var CRYSTAL_PATH_RE="[A-Za-z_]\\w*(::\\w+)*(\\?|\\!)?";var CRYSTAL_KEYWORDS={keyword:"abstract alias annotation as as? asm begin break case class def do else elsif end ensure enum extend for fun if "+"include instance_sizeof is_a? lib macro module next nil? of out pointerof private protected rescue responds_to? "+"return require select self sizeof struct super then type typeof union uninitialized unless until verbatim when while with yield "+"__DIR__ __END_LINE__ __FILE__ __LINE__",literal:"false nil true"};var SUBST={className:"subst",begin:"#{",end:"}",keywords:CRYSTAL_KEYWORDS};var EXPANSION={className:"template-variable",variants:[{begin:"\\{\\{",end:"\\}\\}"},{begin:"\\{%",end:"%\\}"}],keywords:CRYSTAL_KEYWORDS};function recursiveParen(begin,end){var contains=[{begin:begin,end:end}];contains[0].contains=contains;return contains}var STRING={className:"string",contains:[hljs.BACKSLASH_ESCAPE,SUBST],variants:[{begin:/'/,end:/'/},{begin:/"/,end:/"/},{begin:/`/,end:/`/},{begin:"%[Qwi]?\\(",end:"\\)",contains:recursiveParen("\\(","\\)")},{begin:"%[Qwi]?\\[",end:"\\]",contains:recursiveParen("\\[","\\]")},{begin:"%[Qwi]?{",end:"}",contains:recursiveParen("{","}")},{begin:"%[Qwi]?<",end:">",contains:recursiveParen("<",">")},{begin:"%[Qwi]?\\|",end:"\\|"},{begin:/<<-\w+$/,end:/^\s*\w+$/}],relevance:0};var Q_STRING={className:"string",variants:[{begin:"%q\\(",end:"\\)",contains:recursiveParen("\\(","\\)")},{begin:"%q\\[",end:"\\]",contains:recursiveParen("\\[","\\]")},{begin:"%q{",end:"}",contains:recursiveParen("{","}")},{begin:"%q<",end:">",contains:recursiveParen("<",">")},{begin:"%q\\|",end:"\\|"},{begin:/<<-'\w+'$/,end:/^\s*\w+$/}],relevance:0};var REGEXP={begin:"(?!%})("+hljs.RE_STARTERS_RE+"|\\n|\\b(case|if|select|unless|until|when|while)\\b)\\s*",keywords:"case if select unless until when while",contains:[{className:"regexp",contains:[hljs.BACKSLASH_ESCAPE,SUBST],variants:[{begin:"//[a-z]*",relevance:0},{begin:"/(?!\\/)",end:"/[a-z]*"}]}],relevance:0};var REGEXP2={className:"regexp",contains:[hljs.BACKSLASH_ESCAPE,SUBST],variants:[{begin:"%r\\(",end:"\\)",contains:recursiveParen("\\(","\\)")},{begin:"%r\\[",end:"\\]",contains:recursiveParen("\\[","\\]")},{begin:"%r{",end:"}",contains:recursiveParen("{","}")},{begin:"%r<",end:">",contains:recursiveParen("<",">")},{begin:"%r\\|",end:"\\|"}],relevance:0};var ATTRIBUTE={className:"meta",begin:"@\\[",end:"\\]",contains:[hljs.inherit(hljs.QUOTE_STRING_MODE,{className:"meta-string"})]};var CRYSTAL_DEFAULT_CONTAINS=[EXPANSION,STRING,Q_STRING,REGEXP2,REGEXP,ATTRIBUTE,hljs.HASH_COMMENT_MODE,{className:"class",beginKeywords:"class module struct",end:"$|;",illegal:/=/,contains:[hljs.HASH_COMMENT_MODE,hljs.inherit(hljs.TITLE_MODE,{begin:CRYSTAL_PATH_RE}),{begin:"<"}]},{className:"class",beginKeywords:"lib enum union",end:"$|;",illegal:/=/,contains:[hljs.HASH_COMMENT_MODE,hljs.inherit(hljs.TITLE_MODE,{begin:CRYSTAL_PATH_RE})],relevance:10},{beginKeywords:"annotation",end:"$|;",illegal:/=/,contains:[hljs.HASH_COMMENT_MODE,hljs.inherit(hljs.TITLE_MODE,{begin:CRYSTAL_PATH_RE})],relevance:10},{className:"function",beginKeywords:"def",end:/\B\b/,contains:[hljs.inherit(hljs.TITLE_MODE,{begin:CRYSTAL_METHOD_RE,endsParent:true})]},{className:"function",beginKeywords:"fun macro",end:/\B\b/,contains:[hljs.inherit(hljs.TITLE_MODE,{begin:CRYSTAL_METHOD_RE,endsParent:true})],relevance:5},{className:"symbol",begin:hljs.UNDERSCORE_IDENT_RE+"(\\!|\\?)?:",relevance:0},{className:"symbol",begin:":",contains:[STRING,{begin:CRYSTAL_METHOD_RE}],relevance:0},{className:"number",variants:[{begin:"\\b0b([01_]+)"+INT_SUFFIX},{begin:"\\b0o([0-7_]+)"+INT_SUFFIX},{begin:"\\b0x([A-Fa-f0-9_]+)"+INT_SUFFIX},{begin:"\\b([1-9][0-9_]*[0-9]|[0-9])(\\.[0-9][0-9_]*)?([eE]_*[-+]?[0-9_]*)?"+FLOAT_SUFFIX+"(?!_)"},{begin:"\\b([1-9][0-9_]*|0)"+INT_SUFFIX}],relevance:0}];SUBST.contains=CRYSTAL_DEFAULT_CONTAINS;EXPANSION.contains=CRYSTAL_DEFAULT_CONTAINS.slice(1);return{aliases:["cr"],lexemes:CRYSTAL_IDENT_RE,keywords:CRYSTAL_KEYWORDS,contains:CRYSTAL_DEFAULT_CONTAINS}});hljs.registerLanguage("smalltalk",function(hljs){var VAR_IDENT_RE="[a-z][a-zA-Z0-9_]*";var CHAR={className:"string",begin:"\\$.{1}"};var SYMBOL={className:"symbol",begin:"#"+hljs.UNDERSCORE_IDENT_RE};return{aliases:["st"],keywords:"self super nil true false thisContext",contains:[hljs.COMMENT('"','"'),hljs.APOS_STRING_MODE,{className:"type",begin:"\\b[A-Z][A-Za-z0-9_]*",relevance:0},{begin:VAR_IDENT_RE+":",relevance:0},hljs.C_NUMBER_MODE,SYMBOL,CHAR,{begin:"\\|[ ]*"+VAR_IDENT_RE+"([ ]+"+VAR_IDENT_RE+")*[ ]*\\|",returnBegin:true,end:/\|/,illegal:/\S/,contains:[{begin:"(\\|[ ]*)?"+VAR_IDENT_RE}]},{begin:"\\#\\(",end:"\\)",contains:[hljs.APOS_STRING_MODE,CHAR,hljs.C_NUMBER_MODE,SYMBOL]}]}});hljs.registerLanguage("vbnet",function(hljs){return{aliases:["vb"],case_insensitive:true,keywords:{keyword:"addhandler addressof alias and andalso aggregate ansi as async assembly auto await binary by byref byval "+"call case catch class compare const continue custom declare default delegate dim distinct do "+"each equals else elseif end enum erase error event exit explicit finally for friend from function "+"get global goto group handles if implements imports in inherits interface into is isfalse isnot istrue iterator "+"join key let lib like loop me mid mod module mustinherit mustoverride mybase myclass "+"nameof namespace narrowing new next not notinheritable notoverridable "+"of off on operator option optional or order orelse overloads overridable overrides "+"paramarray partial preserve private property protected public "+"raiseevent readonly redim rem removehandler resume return "+"select set shadows shared skip static step stop structure strict sub synclock "+"take text then throw to try unicode until using when where while widening with withevents writeonly xor yield",built_in:"boolean byte cbool cbyte cchar cdate cdec cdbl char cint clng cobj csbyte cshort csng cstr ctype "+"date decimal directcast double gettype getxmlnamespace iif integer long object "+"sbyte short single string trycast typeof uinteger ulong ushort",literal:"true false nothing"},illegal:"//|{|}|endif|gosub|variant|wend|^\\$ ",contains:[hljs.inherit(hljs.QUOTE_STRING_MODE,{contains:[{begin:'""'}]}),hljs.COMMENT("'","$",{returnBegin:true,contains:[{className:"doctag",begin:"'''|\x3c!--|--\x3e",contains:[hljs.PHRASAL_WORDS_MODE]},{className:"doctag",begin:"</?",end:">",contains:[hljs.PHRASAL_WORDS_MODE]}]}),hljs.C_NUMBER_MODE,{className:"meta",begin:"#",end:"$",keywords:{"meta-keyword":"if else elseif end region externalsource"}}]}});hljs.registerLanguage("hy",function(hljs){var keywords={"builtin-name":"!= % %= & &= * ** **= *= *map "+"+ += , --build-class-- --import-- -= . / // //= "+"/= < << <<= <= = > >= >> >>= "+"@ @= ^ ^= abs accumulate all and any ap-compose "+"ap-dotimes ap-each ap-each-while ap-filter ap-first ap-if ap-last ap-map ap-map-when ap-pipe "+"ap-reduce ap-reject apply as-> ascii assert assoc bin break butlast "+"callable calling-module-name car case cdr chain chr coll? combinations compile "+"compress cond cons cons? continue count curry cut cycle dec "+"def default-method defclass defmacro defmacro-alias defmacro/g! defmain defmethod defmulti defn "+"defn-alias defnc defnr defreader defseq del delattr delete-route dict-comp dir "+"disassemble dispatch-reader-macro distinct divmod do doto drop drop-last drop-while empty? "+"end-sequence eval eval-and-compile eval-when-compile even? every? except exec filter first "+"flatten float? fn fnc fnr for for* format fraction genexpr "+"gensym get getattr global globals group-by hasattr hash hex id "+"identity if if* if-not if-python2 import in inc input instance? "+"integer integer-char? integer? interleave interpose is is-coll is-cons is-empty is-even "+"is-every is-float is-instance is-integer is-integer-char is-iterable is-iterator is-keyword is-neg is-none "+"is-not is-numeric is-odd is-pos is-string is-symbol is-zero isinstance islice issubclass "+"iter iterable? iterate iterator? keyword keyword? lambda last len let "+"lif lif-not list* list-comp locals loop macro-error macroexpand macroexpand-1 macroexpand-all "+"map max merge-with method-decorator min multi-decorator multicombinations name neg? next "+"none? nonlocal not not-in not? nth numeric? oct odd? open "+"or ord partition permutations pos? post-route postwalk pow prewalk print "+"product profile/calls profile/cpu put-route quasiquote quote raise range read read-str "+"recursive-replace reduce remove repeat repeatedly repr require rest round route "+"route-with-methods rwm second seq set-comp setattr setv some sorted string "+"string? sum switch symbol? take take-nth take-while tee try unless "+"unquote unquote-splicing vars walk when while with with* with-decorator with-gensyms "+"xi xor yield yield-from zero? zip zip-longest | |= ~"};var SYMBOLSTART="a-zA-Z_\\-!.?+*=<>&#'";var SYMBOL_RE="["+SYMBOLSTART+"]["+SYMBOLSTART+"0-9/;:]*";var SIMPLE_NUMBER_RE="[-+]?\\d+(\\.\\d+)?";var SHEBANG={className:"meta",begin:"^#!",end:"$"};var SYMBOL={begin:SYMBOL_RE,relevance:0};var NUMBER={className:"number",begin:SIMPLE_NUMBER_RE,relevance:0};var STRING=hljs.inherit(hljs.QUOTE_STRING_MODE,{illegal:null});var COMMENT=hljs.COMMENT(";","$",{relevance:0});var LITERAL={className:"literal",begin:/\b([Tt]rue|[Ff]alse|nil|None)\b/};var COLLECTION={begin:"[\\[\\{]",end:"[\\]\\}]"};var HINT={className:"comment",begin:"\\^"+SYMBOL_RE};var HINT_COL=hljs.COMMENT("\\^\\{","\\}");var KEY={className:"symbol",begin:"[:]{1,2}"+SYMBOL_RE};var LIST={begin:"\\(",end:"\\)"};var BODY={endsWithParent:true,relevance:0};var NAME={keywords:keywords,lexemes:SYMBOL_RE,className:"name",begin:SYMBOL_RE,starts:BODY};var DEFAULT_CONTAINS=[LIST,STRING,HINT,HINT_COL,COMMENT,KEY,COLLECTION,NUMBER,LITERAL,SYMBOL];LIST.contains=[hljs.COMMENT("comment",""),NAME,BODY];BODY.contains=DEFAULT_CONTAINS;COLLECTION.contains=DEFAULT_CONTAINS;return{aliases:["hylang"],illegal:/\S/,contains:[SHEBANG,LIST,STRING,HINT,HINT_COL,COMMENT,KEY,COLLECTION,NUMBER,LITERAL]}});hljs.registerLanguage("objectivec",function(hljs){var API_CLASS={className:"built_in",begin:"\\b(AV|CA|CF|CG|CI|CL|CM|CN|CT|MK|MP|MTK|MTL|NS|SCN|SK|UI|WK|XC)\\w+"};var OBJC_KEYWORDS={keyword:"int float while char export sizeof typedef const struct for union "+"unsigned long volatile static bool mutable if do return goto void "+"enum else break extern asm case short default double register explicit "+"signed typename this switch continue wchar_t inline readonly assign "+"readwrite self @synchronized id typeof "+"nonatomic super unichar IBOutlet IBAction strong weak copy "+"in out inout bycopy byref oneway __strong __weak __block __autoreleasing "+"@private @protected @public @try @property @end @throw @catch @finally "+"@autoreleasepool @synthesize @dynamic @selector @optional @required "+"@encode @package @import @defs @compatibility_alias "+"__bridge __bridge_transfer __bridge_retained __bridge_retain "+"__covariant __contravariant __kindof "+"_Nonnull _Nullable _Null_unspecified "+"__FUNCTION__ __PRETTY_FUNCTION__ __attribute__ "+"getter setter retain unsafe_unretained "+"nonnull nullable null_unspecified null_resettable class instancetype "+"NS_DESIGNATED_INITIALIZER NS_UNAVAILABLE NS_REQUIRES_SUPER "+"NS_RETURNS_INNER_POINTER NS_INLINE NS_AVAILABLE NS_DEPRECATED "+"NS_ENUM NS_OPTIONS NS_SWIFT_UNAVAILABLE "+"NS_ASSUME_NONNULL_BEGIN NS_ASSUME_NONNULL_END "+"NS_REFINED_FOR_SWIFT NS_SWIFT_NAME NS_SWIFT_NOTHROW "+"NS_DURING NS_HANDLER NS_ENDHANDLER NS_VALUERETURN NS_VOIDRETURN",literal:"false true FALSE TRUE nil YES NO NULL",built_in:"BOOL dispatch_once_t dispatch_queue_t dispatch_sync dispatch_async dispatch_once"};var LEXEMES=/[a-zA-Z@][a-zA-Z0-9_]*/;var CLASS_KEYWORDS="@interface @class @protocol @implementation";return{aliases:["mm","objc","obj-c"],keywords:OBJC_KEYWORDS,lexemes:LEXEMES,illegal:"</",contains:[API_CLASS,hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.C_NUMBER_MODE,hljs.QUOTE_STRING_MODE,hljs.APOS_STRING_MODE,{className:"string",variants:[{begin:'@"',end:'"',illegal:"\\n",contains:[hljs.BACKSLASH_ESCAPE]}]},{className:"meta",begin:/#\s*[a-z]+\b/,end:/$/,keywords:{"meta-keyword":"if else elif endif define undef warning error line "+"pragma ifdef ifndef include"},contains:[{begin:/\\\n/,relevance:0},hljs.inherit(hljs.QUOTE_STRING_MODE,{className:"meta-string"}),{className:"meta-string",begin:/<.*?>/,end:/$/,illegal:"\\n"},hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE]},{className:"class",begin:"("+CLASS_KEYWORDS.split(" ").join("|")+")\\b",end:"({|$)",excludeEnd:true,keywords:CLASS_KEYWORDS,lexemes:LEXEMES,contains:[hljs.UNDERSCORE_TITLE_MODE]},{begin:"\\."+hljs.UNDERSCORE_IDENT_RE,relevance:0}]}});hljs.registerLanguage("stan",function(hljs){var BLOCKS=["functions","model","data","parameters","quantities","transformed","generated"];var STATEMENTS=["for","in","if","else","while","break","continue","return"];var SPECIAL_FUNCTIONS=["print","reject","increment_log_prob|10","integrate_ode|10","integrate_ode_rk45|10","integrate_ode_bdf|10","algebra_solver"];var VAR_TYPES=["int","real","vector","ordered","positive_ordered","simplex","unit_vector","row_vector","matrix","cholesky_factor_corr|10","cholesky_factor_cov|10","corr_matrix|10","cov_matrix|10","void"];var FUNCTIONS=["Phi","Phi_approx","abs","acos","acosh","algebra_solver","append_array","append_col","append_row","asin","asinh","atan","atan2","atanh","bernoulli_cdf","bernoulli_lccdf","bernoulli_lcdf","bernoulli_logit_lpmf","bernoulli_logit_rng","bernoulli_lpmf","bernoulli_rng","bessel_first_kind","bessel_second_kind","beta_binomial_cdf","beta_binomial_lccdf","beta_binomial_lcdf","beta_binomial_lpmf","beta_binomial_rng","beta_cdf","beta_lccdf","beta_lcdf","beta_lpdf","beta_rng","binary_log_loss","binomial_cdf","binomial_coefficient_log","binomial_lccdf","binomial_lcdf","binomial_logit_lpmf","binomial_lpmf","binomial_rng","block","categorical_logit_lpmf","categorical_logit_rng","categorical_lpmf","categorical_rng","cauchy_cdf","cauchy_lccdf","cauchy_lcdf","cauchy_lpdf","cauchy_rng","cbrt","ceil","chi_square_cdf","chi_square_lccdf","chi_square_lcdf","chi_square_lpdf","chi_square_rng","cholesky_decompose","choose","col","cols","columns_dot_product","columns_dot_self","cos","cosh","cov_exp_quad","crossprod","csr_extract_u","csr_extract_v","csr_extract_w","csr_matrix_times_vector","csr_to_dense_matrix","cumulative_sum","determinant","diag_matrix","diag_post_multiply","diag_pre_multiply","diagonal","digamma","dims","dirichlet_lpdf","dirichlet_rng","distance","dot_product","dot_self","double_exponential_cdf","double_exponential_lccdf","double_exponential_lcdf","double_exponential_lpdf","double_exponential_rng","e","eigenvalues_sym","eigenvectors_sym","erf","erfc","exp","exp2","exp_mod_normal_cdf","exp_mod_normal_lccdf","exp_mod_normal_lcdf","exp_mod_normal_lpdf","exp_mod_normal_rng","expm1","exponential_cdf","exponential_lccdf","exponential_lcdf","exponential_lpdf","exponential_rng","fabs","falling_factorial","fdim","floor","fma","fmax","fmin","fmod","frechet_cdf","frechet_lccdf","frechet_lcdf","frechet_lpdf","frechet_rng","gamma_cdf","gamma_lccdf","gamma_lcdf","gamma_lpdf","gamma_p","gamma_q","gamma_rng","gaussian_dlm_obs_lpdf","get_lp","gumbel_cdf","gumbel_lccdf","gumbel_lcdf","gumbel_lpdf","gumbel_rng","head","hypergeometric_lpmf","hypergeometric_rng","hypot","inc_beta","int_step","integrate_ode","integrate_ode_bdf","integrate_ode_rk45","inv","inv_Phi","inv_chi_square_cdf","inv_chi_square_lccdf","inv_chi_square_lcdf","inv_chi_square_lpdf","inv_chi_square_rng","inv_cloglog","inv_gamma_cdf","inv_gamma_lccdf","inv_gamma_lcdf","inv_gamma_lpdf","inv_gamma_rng","inv_logit","inv_sqrt","inv_square","inv_wishart_lpdf","inv_wishart_rng","inverse","inverse_spd","is_inf","is_nan","lbeta","lchoose","lgamma","lkj_corr_cholesky_lpdf","lkj_corr_cholesky_rng","lkj_corr_lpdf","lkj_corr_rng","lmgamma","lmultiply","log","log10","log1m","log1m_exp","log1m_inv_logit","log1p","log1p_exp","log2","log_determinant","log_diff_exp","log_falling_factorial","log_inv_logit","log_mix","log_rising_factorial","log_softmax","log_sum_exp","logistic_cdf","logistic_lccdf","logistic_lcdf","logistic_lpdf","logistic_rng","logit","lognormal_cdf","lognormal_lccdf","lognormal_lcdf","lognormal_lpdf","lognormal_rng","machine_precision","matrix_exp","max","mdivide_left_spd","mdivide_left_tri_low","mdivide_right_spd","mdivide_right_tri_low","mean","min","modified_bessel_first_kind","modified_bessel_second_kind","multi_gp_cholesky_lpdf","multi_gp_lpdf","multi_normal_cholesky_lpdf","multi_normal_cholesky_rng","multi_normal_lpdf","multi_normal_prec_lpdf","multi_normal_rng","multi_student_t_lpdf","multi_student_t_rng","multinomial_lpmf","multinomial_rng","multiply_log","multiply_lower_tri_self_transpose","neg_binomial_2_cdf","neg_binomial_2_lccdf","neg_binomial_2_lcdf","neg_binomial_2_log_lpmf","neg_binomial_2_log_rng","neg_binomial_2_lpmf","neg_binomial_2_rng","neg_binomial_cdf","neg_binomial_lccdf","neg_binomial_lcdf","neg_binomial_lpmf","neg_binomial_rng","negative_infinity","normal_cdf","normal_lccdf","normal_lcdf","normal_lpdf","normal_rng","not_a_number","num_elements","ordered_logistic_lpmf","ordered_logistic_rng","owens_t","pareto_cdf","pareto_lccdf","pareto_lcdf","pareto_lpdf","pareto_rng","pareto_type_2_cdf","pareto_type_2_lccdf","pareto_type_2_lcdf","pareto_type_2_lpdf","pareto_type_2_rng","pi","poisson_cdf","poisson_lccdf","poisson_lcdf","poisson_log_lpmf","poisson_log_rng","poisson_lpmf","poisson_rng","positive_infinity","pow","print","prod","qr_Q","qr_R","quad_form","quad_form_diag","quad_form_sym","rank","rayleigh_cdf","rayleigh_lccdf","rayleigh_lcdf","rayleigh_lpdf","rayleigh_rng","reject","rep_array","rep_matrix","rep_row_vector","rep_vector","rising_factorial","round","row","rows","rows_dot_product","rows_dot_self","scaled_inv_chi_square_cdf","scaled_inv_chi_square_lccdf","scaled_inv_chi_square_lcdf","scaled_inv_chi_square_lpdf","scaled_inv_chi_square_rng","sd","segment","sin","singular_values","sinh","size","skew_normal_cdf","skew_normal_lccdf","skew_normal_lcdf","skew_normal_lpdf","skew_normal_rng","softmax","sort_asc","sort_desc","sort_indices_asc","sort_indices_desc","sqrt","sqrt2","square","squared_distance","step","student_t_cdf","student_t_lccdf","student_t_lcdf","student_t_lpdf","student_t_rng","sub_col","sub_row","sum","tail","tan","tanh","target","tcrossprod","tgamma","to_array_1d","to_array_2d","to_matrix","to_row_vector","to_vector","trace","trace_gen_quad_form","trace_quad_form","trigamma","trunc","uniform_cdf","uniform_lccdf","uniform_lcdf","uniform_lpdf","uniform_rng","variance","von_mises_lpdf","von_mises_rng","weibull_cdf","weibull_lccdf","weibull_lcdf","weibull_lpdf","weibull_rng","wiener_lpdf","wishart_lpdf","wishart_rng"];var DISTRIBUTIONS=["bernoulli","bernoulli_logit","beta","beta_binomial","binomial","binomial_logit","categorical","categorical_logit","cauchy","chi_square","dirichlet","double_exponential","exp_mod_normal","exponential","frechet","gamma","gaussian_dlm_obs","gumbel","hypergeometric","inv_chi_square","inv_gamma","inv_wishart","lkj_corr","lkj_corr_cholesky","logistic","lognormal","multi_gp","multi_gp_cholesky","multi_normal","multi_normal_cholesky","multi_normal_prec","multi_student_t","multinomial","neg_binomial","neg_binomial_2","neg_binomial_2_log","normal","ordered_logistic","pareto","pareto_type_2","poisson","poisson_log","rayleigh","scaled_inv_chi_square","skew_normal","student_t","uniform","von_mises","weibull","wiener","wishart"];return{aliases:["stanfuncs"],keywords:{title:BLOCKS.join(" "),keyword:STATEMENTS.concat(VAR_TYPES).concat(SPECIAL_FUNCTIONS).join(" "),built_in:FUNCTIONS.join(" ")},lexemes:hljs.IDENT_RE,contains:[hljs.C_LINE_COMMENT_MODE,hljs.COMMENT(/#/,/$/,{relevance:0,keywords:{"meta-keyword":"include"}}),hljs.COMMENT(/\/\*/,/\*\//,{relevance:0,contains:[{className:"doctag",begin:/@(return|param)/}]}),{begin:/<\s*lower\s*=/,keywords:"lower"},{begin:/[<,]*upper\s*=/,keywords:"upper"},{className:"keyword",begin:/\btarget\s*\+=/,relevance:10},{begin:"~\\s*("+hljs.IDENT_RE+")\\s*\\(",keywords:DISTRIBUTIONS.join(" ")},{className:"number",variants:[{begin:/\b\d+(?:\.\d*)?(?:[eE][+-]?\d+)?/},{begin:/\.\d+(?:[eE][+-]?\d+)?\b/}],relevance:0},{className:"string",begin:'"',end:'"',relevance:0}]}});hljs.registerLanguage("lasso",function(hljs){var LASSO_IDENT_RE="[a-zA-Z_][\\w.]*";var LASSO_ANGLE_RE="<\\?(lasso(script)?|=)";var LASSO_CLOSE_RE="\\]|\\?>";var LASSO_KEYWORDS={literal:"true false none minimal full all void and or not "+"bw nbw ew new cn ncn lt lte gt gte eq neq rx nrx ft",built_in:"array date decimal duration integer map pair string tag xml null "+"boolean bytes keyword list locale queue set stack staticarray "+"local var variable global data self inherited currentcapture givenblock",keyword:"cache database_names database_schemanames database_tablenames "+"define_tag define_type email_batch encode_set html_comment handle "+"handle_error header if inline iterate ljax_target link "+"link_currentaction link_currentgroup link_currentrecord link_detail "+"link_firstgroup link_firstrecord link_lastgroup link_lastrecord "+"link_nextgroup link_nextrecord link_prevgroup link_prevrecord log "+"loop namespace_using output_none portal private protect records "+"referer referrer repeating resultset rows search_args "+"search_arguments select sort_args sort_arguments thread_atomic "+"value_list while abort case else fail_if fail_ifnot fail if_empty "+"if_false if_null if_true loop_abort loop_continue loop_count params "+"params_up return return_value run_children soap_definetag "+"soap_lastrequest soap_lastresponse tag_name ascending average by "+"define descending do equals frozen group handle_failure import in "+"into join let match max min on order parent protected provide public "+"require returnhome skip split_thread sum take thread to trait type "+"where with yield yieldhome"};var HTML_COMMENT=hljs.COMMENT("\x3c!--","--\x3e",{relevance:0});var LASSO_NOPROCESS={className:"meta",begin:"\\[noprocess\\]",starts:{end:"\\[/noprocess\\]",returnEnd:true,contains:[HTML_COMMENT]}};var LASSO_START={className:"meta",begin:"\\[/noprocess|"+LASSO_ANGLE_RE};var LASSO_DATAMEMBER={className:"symbol",begin:"'"+LASSO_IDENT_RE+"'"};var LASSO_CODE=[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.inherit(hljs.C_NUMBER_MODE,{begin:hljs.C_NUMBER_RE+"|(-?infinity|NaN)\\b"}),hljs.inherit(hljs.APOS_STRING_MODE,{illegal:null}),hljs.inherit(hljs.QUOTE_STRING_MODE,{illegal:null}),{className:"string",begin:"`",end:"`"},{variants:[{begin:"[#$]"+LASSO_IDENT_RE},{begin:"#",end:"\\d+",illegal:"\\W"}]},{className:"type",begin:"::\\s*",end:LASSO_IDENT_RE,illegal:"\\W"},{className:"params",variants:[{begin:"-(?!infinity)"+LASSO_IDENT_RE,relevance:0},{begin:"(\\.\\.\\.)"}]},{begin:/(->|\.)\s*/,relevance:0,contains:[LASSO_DATAMEMBER]},{className:"class",beginKeywords:"define",returnEnd:true,end:"\\(|=>",contains:[hljs.inherit(hljs.TITLE_MODE,{begin:LASSO_IDENT_RE+"(=(?!>))?|[-+*/%](?!>)"})]}];return{aliases:["ls","lassoscript"],case_insensitive:true,lexemes:LASSO_IDENT_RE+"|&[lg]t;",keywords:LASSO_KEYWORDS,contains:[{className:"meta",begin:LASSO_CLOSE_RE,relevance:0,starts:{end:"\\[|"+LASSO_ANGLE_RE,returnEnd:true,relevance:0,contains:[HTML_COMMENT]}},LASSO_NOPROCESS,LASSO_START,{className:"meta",begin:"\\[no_square_brackets",starts:{end:"\\[/no_square_brackets\\]",lexemes:LASSO_IDENT_RE+"|&[lg]t;",keywords:LASSO_KEYWORDS,contains:[{className:"meta",begin:LASSO_CLOSE_RE,relevance:0,starts:{end:"\\[noprocess\\]|"+LASSO_ANGLE_RE,returnEnd:true,contains:[HTML_COMMENT]}},LASSO_NOPROCESS,LASSO_START].concat(LASSO_CODE)}},{className:"meta",begin:"\\[",relevance:0},{className:"meta",begin:"^#!",end:"lasso9$",relevance:10}].concat(LASSO_CODE)}});hljs.registerLanguage("lisp",function(hljs){var LISP_IDENT_RE="[a-zA-Z_\\-\\+\\*\\/\\<\\=\\>\\&\\#][a-zA-Z0-9_\\-\\+\\*\\/\\<\\=\\>\\&\\#!]*";var MEC_RE="\\|[^]*?\\|";var LISP_SIMPLE_NUMBER_RE="(\\-|\\+)?\\d+(\\.\\d+|\\/\\d+)?((d|e|f|l|s|D|E|F|L|S)(\\+|\\-)?\\d+)?";var SHEBANG={className:"meta",begin:"^#!",end:"$"};var LITERAL={className:"literal",begin:"\\b(t{1}|nil)\\b"};var NUMBER={className:"number",variants:[{begin:LISP_SIMPLE_NUMBER_RE,relevance:0},{begin:"#(b|B)[0-1]+(/[0-1]+)?"},{begin:"#(o|O)[0-7]+(/[0-7]+)?"},{begin:"#(x|X)[0-9a-fA-F]+(/[0-9a-fA-F]+)?"},{begin:"#(c|C)\\("+LISP_SIMPLE_NUMBER_RE+" +"+LISP_SIMPLE_NUMBER_RE,end:"\\)"}]};var STRING=hljs.inherit(hljs.QUOTE_STRING_MODE,{illegal:null});var COMMENT=hljs.COMMENT(";","$",{relevance:0});var VARIABLE={begin:"\\*",end:"\\*"};var KEYWORD={className:"symbol",begin:"[:&]"+LISP_IDENT_RE};var IDENT={begin:LISP_IDENT_RE,relevance:0};var MEC={begin:MEC_RE};var QUOTED_LIST={begin:"\\(",end:"\\)",contains:["self",LITERAL,STRING,NUMBER,IDENT]};var QUOTED={contains:[NUMBER,STRING,VARIABLE,KEYWORD,QUOTED_LIST,IDENT],variants:[{begin:"['`]\\(",end:"\\)"},{begin:"\\(quote ",end:"\\)",keywords:{name:"quote"}},{begin:"'"+MEC_RE}]};var QUOTED_ATOM={variants:[{begin:"'"+LISP_IDENT_RE},{begin:"#'"+LISP_IDENT_RE+"(::"+LISP_IDENT_RE+")*"}]};var LIST={begin:"\\(\\s*",end:"\\)"};var BODY={endsWithParent:true,relevance:0};LIST.contains=[{className:"name",variants:[{begin:LISP_IDENT_RE},{begin:MEC_RE}]},BODY];BODY.contains=[QUOTED,QUOTED_ATOM,LIST,LITERAL,NUMBER,STRING,COMMENT,VARIABLE,KEYWORD,MEC,IDENT];return{illegal:/\S/,contains:[NUMBER,SHEBANG,LITERAL,STRING,COMMENT,QUOTED,QUOTED_ATOM,LIST,IDENT]}});hljs.registerLanguage("mojolicious",function(hljs){return{subLanguage:"xml",contains:[{className:"meta",begin:"^__(END|DATA)__$"},{begin:"^\\s*%{1,2}={0,2}",end:"$",subLanguage:"perl"},{begin:"<%{1,2}={0,2}",end:"={0,1}%>",subLanguage:"perl",excludeBegin:true,excludeEnd:true}]}});hljs.registerLanguage("processing",function(hljs){return{keywords:{keyword:"BufferedReader PVector PFont PImage PGraphics HashMap boolean byte char color "+"double float int long String Array FloatDict FloatList IntDict IntList JSONArray JSONObject "+"Object StringDict StringList Table TableRow XML "+"false synchronized int abstract float private char boolean static null if const "+"for true while long throw strictfp finally protected import native final return void "+"enum else break transient new catch instanceof byte super volatile case assert short "+"package default double public try this switch continue throws protected public private",literal:"P2D P3D HALF_PI PI QUARTER_PI TAU TWO_PI",title:"setup draw",built_in:"displayHeight displayWidth mouseY mouseX mousePressed pmouseX pmouseY key "+"keyCode pixels focused frameCount frameRate height width "+"size createGraphics beginDraw createShape loadShape PShape arc ellipse line point "+"quad rect triangle bezier bezierDetail bezierPoint bezierTangent curve curveDetail curvePoint "+"curveTangent curveTightness shape shapeMode beginContour beginShape bezierVertex curveVertex "+"endContour endShape quadraticVertex vertex ellipseMode noSmooth rectMode smooth strokeCap "+"strokeJoin strokeWeight mouseClicked mouseDragged mouseMoved mousePressed mouseReleased "+"mouseWheel keyPressed keyPressedkeyReleased keyTyped print println save saveFrame day hour "+"millis minute month second year background clear colorMode fill noFill noStroke stroke alpha "+"blue brightness color green hue lerpColor red saturation modelX modelY modelZ screenX screenY "+"screenZ ambient emissive shininess specular add createImage beginCamera camera endCamera frustum "+"ortho perspective printCamera printProjection cursor frameRate noCursor exit loop noLoop popStyle "+"pushStyle redraw binary boolean byte char float hex int str unbinary unhex join match matchAll nf "+"nfc nfp nfs split splitTokens trim append arrayCopy concat expand reverse shorten sort splice subset "+"box sphere sphereDetail createInput createReader loadBytes loadJSONArray loadJSONObject loadStrings "+"loadTable loadXML open parseXML saveTable selectFolder selectInput beginRaw beginRecord createOutput "+"createWriter endRaw endRecord PrintWritersaveBytes saveJSONArray saveJSONObject saveStream saveStrings "+"saveXML selectOutput popMatrix printMatrix pushMatrix resetMatrix rotate rotateX rotateY rotateZ scale "+"shearX shearY translate ambientLight directionalLight lightFalloff lights lightSpecular noLights normal "+"pointLight spotLight image imageMode loadImage noTint requestImage tint texture textureMode textureWrap "+"blend copy filter get loadPixels set updatePixels blendMode loadShader PShaderresetShader shader createFont "+"loadFont text textFont textAlign textLeading textMode textSize textWidth textAscent textDescent abs ceil "+"constrain dist exp floor lerp log mag map max min norm pow round sq sqrt acos asin atan atan2 cos degrees "+"radians sin tan noise noiseDetail noiseSeed random randomGaussian randomSeed"},contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.C_NUMBER_MODE]}});hljs.registerLanguage("clean",function(hljs){return{aliases:["clean","icl","dcl"],keywords:{keyword:"if let in with where case of class instance otherwise "+"implementation definition system module from import qualified as "+"special code inline foreign export ccall stdcall generic derive "+"infix infixl infixr",built_in:"Int Real Char Bool",literal:"True False"},contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.C_NUMBER_MODE,{begin:"->|<-[|:]?|#!?|>>=|\\{\\||\\|\\}|:==|=:|<>"}]}});hljs.registerLanguage("d",function(hljs){var D_KEYWORDS={keyword:"abstract alias align asm assert auto body break byte case cast catch class "+"const continue debug default delete deprecated do else enum export extern final "+"finally for foreach foreach_reverse|10 goto if immutable import in inout int "+"interface invariant is lazy macro mixin module new nothrow out override package "+"pragma private protected public pure ref return scope shared static struct "+"super switch synchronized template this throw try typedef typeid typeof union "+"unittest version void volatile while with __FILE__ __LINE__ __gshared|10 "+"__thread __traits __DATE__ __EOF__ __TIME__ __TIMESTAMP__ __VENDOR__ __VERSION__",built_in:"bool cdouble cent cfloat char creal dchar delegate double dstring float function "+"idouble ifloat ireal long real short string ubyte ucent uint ulong ushort wchar "+"wstring",literal:"false null true"};var decimal_integer_re="(0|[1-9][\\d_]*)",decimal_integer_nosus_re="(0|[1-9][\\d_]*|\\d[\\d_]*|[\\d_]+?\\d)",binary_integer_re="0[bB][01_]+",hexadecimal_digits_re="([\\da-fA-F][\\da-fA-F_]*|_[\\da-fA-F][\\da-fA-F_]*)",hexadecimal_integer_re="0[xX]"+hexadecimal_digits_re,decimal_exponent_re="([eE][+-]?"+decimal_integer_nosus_re+")",decimal_float_re="("+decimal_integer_nosus_re+"(\\.\\d*|"+decimal_exponent_re+")|"+"\\d+\\."+decimal_integer_nosus_re+decimal_integer_nosus_re+"|"+"\\."+decimal_integer_re+decimal_exponent_re+"?"+")",hexadecimal_float_re="(0[xX]("+hexadecimal_digits_re+"\\."+hexadecimal_digits_re+"|"+"\\.?"+hexadecimal_digits_re+")[pP][+-]?"+decimal_integer_nosus_re+")",integer_re="("+decimal_integer_re+"|"+binary_integer_re+"|"+hexadecimal_integer_re+")",float_re="("+hexadecimal_float_re+"|"+decimal_float_re+")";var escape_sequence_re="\\\\("+"['\"\\?\\\\abfnrtv]|"+"u[\\dA-Fa-f]{4}|"+"[0-7]{1,3}|"+"x[\\dA-Fa-f]{2}|"+"U[\\dA-Fa-f]{8}"+")|"+"&[a-zA-Z\\d]{2,};";var D_INTEGER_MODE={className:"number",begin:"\\b"+integer_re+"(L|u|U|Lu|LU|uL|UL)?",relevance:0};var D_FLOAT_MODE={className:"number",begin:"\\b("+float_re+"([fF]|L|i|[fF]i|Li)?|"+integer_re+"(i|[fF]i|Li)"+")",relevance:0};var D_CHARACTER_MODE={className:"string",begin:"'("+escape_sequence_re+"|.)",end:"'",illegal:"."};var D_ESCAPE_SEQUENCE={begin:escape_sequence_re,relevance:0};var D_STRING_MODE={className:"string",begin:'"',contains:[D_ESCAPE_SEQUENCE],end:'"[cwd]?'};var D_WYSIWYG_DELIMITED_STRING_MODE={className:"string",begin:'[rq]"',end:'"[cwd]?',relevance:5};var D_ALTERNATE_WYSIWYG_STRING_MODE={className:"string",begin:"`",end:"`[cwd]?"};var D_HEX_STRING_MODE={className:"string",begin:'x"[\\da-fA-F\\s\\n\\r]*"[cwd]?',relevance:10};var D_TOKEN_STRING_MODE={className:"string",begin:'q"\\{',end:'\\}"'};var D_HASHBANG_MODE={className:"meta",begin:"^#!",end:"$",relevance:5};var D_SPECIAL_TOKEN_SEQUENCE_MODE={className:"meta",begin:"#(line)",end:"$",relevance:5};var D_ATTRIBUTE_MODE={className:"keyword",begin:"@[a-zA-Z_][a-zA-Z_\\d]*"};var D_NESTING_COMMENT_MODE=hljs.COMMENT("\\/\\+","\\+\\/",{contains:["self"],relevance:10});return{lexemes:hljs.UNDERSCORE_IDENT_RE,keywords:D_KEYWORDS,contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,D_NESTING_COMMENT_MODE,D_HEX_STRING_MODE,D_STRING_MODE,D_WYSIWYG_DELIMITED_STRING_MODE,D_ALTERNATE_WYSIWYG_STRING_MODE,D_TOKEN_STRING_MODE,D_FLOAT_MODE,D_INTEGER_MODE,D_CHARACTER_MODE,D_HASHBANG_MODE,D_SPECIAL_TOKEN_SEQUENCE_MODE,D_ATTRIBUTE_MODE]}});hljs.registerLanguage("excel",function(hljs){return{aliases:["xlsx","xls"],case_insensitive:true,lexemes:/[a-zA-Z][\w\.]*/,keywords:{built_in:"ABS ACCRINT ACCRINTM ACOS ACOSH ACOT ACOTH AGGREGATE ADDRESS AMORDEGRC AMORLINC AND ARABIC AREAS ASC ASIN ASINH ATAN ATAN2 ATANH AVEDEV AVERAGE AVERAGEA AVERAGEIF AVERAGEIFS BAHTTEXT BASE BESSELI BESSELJ BESSELK BESSELY BETADIST BETA.DIST BETAINV BETA.INV BIN2DEC BIN2HEX BIN2OCT BINOMDIST BINOM.DIST BINOM.DIST.RANGE BINOM.INV BITAND BITLSHIFT BITOR BITRSHIFT BITXOR CALL CEILING CEILING.MATH CEILING.PRECISE CELL CHAR CHIDIST CHIINV CHITEST CHISQ.DIST CHISQ.DIST.RT CHISQ.INV CHISQ.INV.RT CHISQ.TEST CHOOSE CLEAN CODE COLUMN COLUMNS COMBIN COMBINA COMPLEX CONCAT CONCATENATE CONFIDENCE CONFIDENCE.NORM CONFIDENCE.T CONVERT CORREL COS COSH COT COTH COUNT COUNTA COUNTBLANK COUNTIF COUNTIFS COUPDAYBS COUPDAYS COUPDAYSNC COUPNCD COUPNUM COUPPCD COVAR COVARIANCE.P COVARIANCE.S CRITBINOM CSC CSCH CUBEKPIMEMBER CUBEMEMBER CUBEMEMBERPROPERTY CUBERANKEDMEMBER CUBESET CUBESETCOUNT CUBEVALUE CUMIPMT CUMPRINC DATE DATEDIF DATEVALUE DAVERAGE DAY DAYS DAYS360 DB DBCS DCOUNT DCOUNTA DDB DEC2BIN DEC2HEX DEC2OCT DECIMAL DEGREES DELTA DEVSQ DGET DISC DMAX DMIN DOLLAR DOLLARDE DOLLARFR DPRODUCT DSTDEV DSTDEVP DSUM DURATION DVAR DVARP EDATE EFFECT ENCODEURL EOMONTH ERF ERF.PRECISE ERFC ERFC.PRECISE ERROR.TYPE EUROCONVERT EVEN EXACT EXP EXPON.DIST EXPONDIST FACT FACTDOUBLE FALSE|0 F.DIST FDIST F.DIST.RT FILTERXML FIND FINDB F.INV F.INV.RT FINV FISHER FISHERINV FIXED FLOOR FLOOR.MATH FLOOR.PRECISE FORECAST FORECAST.ETS FORECAST.ETS.CONFINT FORECAST.ETS.SEASONALITY FORECAST.ETS.STAT FORECAST.LINEAR FORMULATEXT FREQUENCY F.TEST FTEST FV FVSCHEDULE GAMMA GAMMA.DIST GAMMADIST GAMMA.INV GAMMAINV GAMMALN GAMMALN.PRECISE GAUSS GCD GEOMEAN GESTEP GETPIVOTDATA GROWTH HARMEAN HEX2BIN HEX2DEC HEX2OCT HLOOKUP HOUR HYPERLINK HYPGEOM.DIST HYPGEOMDIST IF IFERROR IFNA IFS IMABS IMAGINARY IMARGUMENT IMCONJUGATE IMCOS IMCOSH IMCOT IMCSC IMCSCH IMDIV IMEXP IMLN IMLOG10 IMLOG2 IMPOWER IMPRODUCT IMREAL IMSEC IMSECH IMSIN IMSINH IMSQRT IMSUB IMSUM IMTAN INDEX INDIRECT INFO INT INTERCEPT INTRATE IPMT IRR ISBLANK ISERR ISERROR ISEVEN ISFORMULA ISLOGICAL ISNA ISNONTEXT ISNUMBER ISODD ISREF ISTEXT ISO.CEILING ISOWEEKNUM ISPMT JIS KURT LARGE LCM LEFT LEFTB LEN LENB LINEST LN LOG LOG10 LOGEST LOGINV LOGNORM.DIST LOGNORMDIST LOGNORM.INV LOOKUP LOWER MATCH MAX MAXA MAXIFS MDETERM MDURATION MEDIAN MID MIDBs MIN MINIFS MINA MINUTE MINVERSE MIRR MMULT MOD MODE MODE.MULT MODE.SNGL MONTH MROUND MULTINOMIAL MUNIT N NA NEGBINOM.DIST NEGBINOMDIST NETWORKDAYS NETWORKDAYS.INTL NOMINAL NORM.DIST NORMDIST NORMINV NORM.INV NORM.S.DIST NORMSDIST NORM.S.INV NORMSINV NOT NOW NPER NPV NUMBERVALUE OCT2BIN OCT2DEC OCT2HEX ODD ODDFPRICE ODDFYIELD ODDLPRICE ODDLYIELD OFFSET OR PDURATION PEARSON PERCENTILE.EXC PERCENTILE.INC PERCENTILE PERCENTRANK.EXC PERCENTRANK.INC PERCENTRANK PERMUT PERMUTATIONA PHI PHONETIC PI PMT POISSON.DIST POISSON POWER PPMT PRICE PRICEDISC PRICEMAT PROB PRODUCT PROPER PV QUARTILE QUARTILE.EXC QUARTILE.INC QUOTIENT RADIANS RAND RANDBETWEEN RANK.AVG RANK.EQ RANK RATE RECEIVED REGISTER.ID REPLACE REPLACEB REPT RIGHT RIGHTB ROMAN ROUND ROUNDDOWN ROUNDUP ROW ROWS RRI RSQ RTD SEARCH SEARCHB SEC SECH SECOND SERIESSUM SHEET SHEETS SIGN SIN SINH SKEW SKEW.P SLN SLOPE SMALL SQL.REQUEST SQRT SQRTPI STANDARDIZE STDEV STDEV.P STDEV.S STDEVA STDEVP STDEVPA STEYX SUBSTITUTE SUBTOTAL SUM SUMIF SUMIFS SUMPRODUCT SUMSQ SUMX2MY2 SUMX2PY2 SUMXMY2 SWITCH SYD T TAN TANH TBILLEQ TBILLPRICE TBILLYIELD T.DIST T.DIST.2T T.DIST.RT TDIST TEXT TEXTJOIN TIME TIMEVALUE T.INV T.INV.2T TINV TODAY TRANSPOSE TREND TRIM TRIMMEAN TRUE|0 TRUNC T.TEST TTEST TYPE UNICHAR UNICODE UPPER VALUE VAR VAR.P VAR.S VARA VARP VARPA VDB VLOOKUP WEBSERVICE WEEKDAY WEEKNUM WEIBULL WEIBULL.DIST WORKDAY WORKDAY.INTL XIRR XNPV XOR YEAR YEARFRAC YIELD YIELDDISC YIELDMAT Z.TEST ZTEST"},contains:[{begin:/^=/,end:/[^=]/,returnEnd:true,illegal:/=/,relevance:10},{className:"symbol",begin:/\b[A-Z]{1,2}\d+\b/,end:/[^\d]/,excludeEnd:true,relevance:0},{className:"symbol",begin:/[A-Z]{0,2}\d*:[A-Z]{0,2}\d*/,relevance:0},hljs.BACKSLASH_ESCAPE,hljs.QUOTE_STRING_MODE,{className:"number",begin:hljs.NUMBER_RE+"(%)?",relevance:0},hljs.COMMENT(/\bN\(/,/\)/,{excludeBegin:true,excludeEnd:true,illegal:/\n/})]}});hljs.registerLanguage("moonscript",function(hljs){var KEYWORDS={keyword:"if then not for in while do return else elseif break continue switch and or "+"unless when class extends super local import export from using",literal:"true false nil",built_in:"_G _VERSION assert collectgarbage dofile error getfenv getmetatable ipairs load "+"loadfile loadstring module next pairs pcall print rawequal rawget rawset require "+"select setfenv setmetatable tonumber tostring type unpack xpcall coroutine debug "+"io math os package string table"};var JS_IDENT_RE="[A-Za-z$_][0-9A-Za-z$_]*";var SUBST={className:"subst",begin:/#\{/,end:/}/,keywords:KEYWORDS};var EXPRESSIONS=[hljs.inherit(hljs.C_NUMBER_MODE,{starts:{end:"(\\s*/)?",relevance:0}}),{className:"string",variants:[{begin:/'/,end:/'/,contains:[hljs.BACKSLASH_ESCAPE]},{begin:/"/,end:/"/,contains:[hljs.BACKSLASH_ESCAPE,SUBST]}]},{className:"built_in",begin:"@__"+hljs.IDENT_RE},{begin:"@"+hljs.IDENT_RE},{begin:hljs.IDENT_RE+"\\\\"+hljs.IDENT_RE}];SUBST.contains=EXPRESSIONS;var TITLE=hljs.inherit(hljs.TITLE_MODE,{begin:JS_IDENT_RE});var PARAMS_RE="(\\(.*\\))?\\s*\\B[-=]>";var PARAMS={className:"params",begin:"\\([^\\(]",returnBegin:true,contains:[{begin:/\(/,end:/\)/,keywords:KEYWORDS,contains:["self"].concat(EXPRESSIONS)}]};return{aliases:["moon"],keywords:KEYWORDS,illegal:/\/\*/,contains:EXPRESSIONS.concat([hljs.COMMENT("--","$"),{className:"function",begin:"^\\s*"+JS_IDENT_RE+"\\s*=\\s*"+PARAMS_RE,end:"[-=]>",returnBegin:true,contains:[TITLE,PARAMS]},{begin:/[\(,:=]\s*/,relevance:0,contains:[{className:"function",begin:PARAMS_RE,end:"[-=]>",returnBegin:true,contains:[PARAMS]}]},{className:"class",beginKeywords:"class",end:"$",illegal:/[:="\[\]]/,contains:[{beginKeywords:"extends",endsWithParent:true,illegal:/[:="\[\]]/,contains:[TITLE]},TITLE]},{className:"name",begin:JS_IDENT_RE+":",end:":",returnBegin:true,returnEnd:true,relevance:0}])}});hljs.registerLanguage("vala",function(hljs){return{keywords:{keyword:"char uchar unichar int uint long ulong short ushort int8 int16 int32 int64 uint8 "+"uint16 uint32 uint64 float double bool struct enum string void "+"weak unowned owned "+"async signal static abstract interface override virtual delegate "+"if while do for foreach else switch case break default return try catch "+"public private protected internal "+"using new this get set const stdout stdin stderr var",built_in:"DBus GLib CCode Gee Object Gtk Posix",literal:"false true null"},contains:[{className:"class",beginKeywords:"class interface namespace",end:"{",excludeEnd:true,illegal:"[^,:\\n\\s\\.]",contains:[hljs.UNDERSCORE_TITLE_MODE]},hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,{className:"string",begin:'"""',end:'"""',relevance:5},hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.C_NUMBER_MODE,{className:"meta",begin:"^#",end:"$",relevance:2}]}});hljs.registerLanguage("ruleslanguage",function(hljs){return{keywords:{keyword:"BILL_PERIOD BILL_START BILL_STOP RS_EFFECTIVE_START RS_EFFECTIVE_STOP RS_JURIS_CODE RS_OPCO_CODE "+"INTDADDATTRIBUTE|5 INTDADDVMSG|5 INTDBLOCKOP|5 INTDBLOCKOPNA|5 INTDCLOSE|5 INTDCOUNT|5 "+"INTDCOUNTSTATUSCODE|5 INTDCREATEMASK|5 INTDCREATEDAYMASK|5 INTDCREATEFACTORMASK|5 "+"INTDCREATEHANDLE|5 INTDCREATEOVERRIDEDAYMASK|5 INTDCREATEOVERRIDEMASK|5 "+"INTDCREATESTATUSCODEMASK|5 INTDCREATETOUPERIOD|5 INTDDELETE|5 INTDDIPTEST|5 INTDEXPORT|5 "+"INTDGETERRORCODE|5 INTDGETERRORMESSAGE|5 INTDISEQUAL|5 INTDJOIN|5 INTDLOAD|5 INTDLOADACTUALCUT|5 "+"INTDLOADDATES|5 INTDLOADHIST|5 INTDLOADLIST|5 INTDLOADLISTDATES|5 INTDLOADLISTENERGY|5 "+"INTDLOADLISTHIST|5 INTDLOADRELATEDCHANNEL|5 INTDLOADSP|5 INTDLOADSTAGING|5 INTDLOADUOM|5 "+"INTDLOADUOMDATES|5 INTDLOADUOMHIST|5 INTDLOADVERSION|5 INTDOPEN|5 INTDREADFIRST|5 INTDREADNEXT|5 "+"INTDRECCOUNT|5 INTDRELEASE|5 INTDREPLACE|5 INTDROLLAVG|5 INTDROLLPEAK|5 INTDSCALAROP|5 INTDSCALE|5 "+"INTDSETATTRIBUTE|5 INTDSETDSTPARTICIPANT|5 INTDSETSTRING|5 INTDSETVALUE|5 INTDSETVALUESTATUS|5 "+"INTDSHIFTSTARTTIME|5 INTDSMOOTH|5 INTDSORT|5 INTDSPIKETEST|5 INTDSUBSET|5 INTDTOU|5 "+"INTDTOURELEASE|5 INTDTOUVALUE|5 INTDUPDATESTATS|5 INTDVALUE|5 STDEV INTDDELETEEX|5 "+"INTDLOADEXACTUAL|5 INTDLOADEXCUT|5 INTDLOADEXDATES|5 INTDLOADEX|5 INTDLOADEXRELATEDCHANNEL|5 "+"INTDSAVEEX|5 MVLOAD|5 MVLOADACCT|5 MVLOADACCTDATES|5 MVLOADACCTHIST|5 MVLOADDATES|5 MVLOADHIST|5 "+"MVLOADLIST|5 MVLOADLISTDATES|5 MVLOADLISTHIST|5 IF FOR NEXT DONE SELECT END CALL ABORT CLEAR CHANNEL FACTOR LIST NUMBER "+"OVERRIDE SET WEEK DISTRIBUTIONNODE ELSE WHEN THEN OTHERWISE IENUM CSV INCLUDE LEAVE RIDER SAVE DELETE "+"NOVALUE SECTION WARN SAVE_UPDATE DETERMINANT LABEL REPORT REVENUE EACH "+"IN FROM TOTAL CHARGE BLOCK AND OR CSV_FILE RATE_CODE AUXILIARY_DEMAND "+"UIDACCOUNT RS BILL_PERIOD_SELECT HOURS_PER_MONTH INTD_ERROR_STOP SEASON_SCHEDULE_NAME "+"ACCOUNTFACTOR ARRAYUPPERBOUND CALLSTOREDPROC GETADOCONNECTION GETCONNECT GETDATASOURCE "+"GETQUALIFIER GETUSERID HASVALUE LISTCOUNT LISTOP LISTUPDATE LISTVALUE PRORATEFACTOR RSPRORATE "+"SETBINPATH SETDBMONITOR WQ_OPEN BILLINGHOURS DATE DATEFROMFLOAT DATETIMEFROMSTRING "+"DATETIMETOSTRING DATETOFLOAT DAY DAYDIFF DAYNAME DBDATETIME HOUR MINUTE MONTH MONTHDIFF "+"MONTHHOURS MONTHNAME ROUNDDATE SAMEWEEKDAYLASTYEAR SECOND WEEKDAY WEEKDIFF YEAR YEARDAY "+"YEARSTR COMPSUM HISTCOUNT HISTMAX HISTMIN HISTMINNZ HISTVALUE MAXNRANGE MAXRANGE MINRANGE "+"COMPIKVA COMPKVA COMPKVARFROMKQKW COMPLF IDATTR FLAG LF2KW LF2KWH MAXKW POWERFACTOR "+"READING2USAGE AVGSEASON MAXSEASON MONTHLYMERGE SEASONVALUE SUMSEASON ACCTREADDATES "+"ACCTTABLELOAD CONFIGADD CONFIGGET CREATEOBJECT CREATEREPORT EMAILCLIENT EXPBLKMDMUSAGE "+"EXPMDMUSAGE EXPORT_USAGE FACTORINEFFECT GETUSERSPECIFIEDSTOP INEFFECT ISHOLIDAY RUNRATE "+"SAVE_PROFILE SETREPORTTITLE USEREXIT WATFORRUNRATE TO TABLE ACOS ASIN ATAN ATAN2 BITAND CEIL "+"COS COSECANT COSH COTANGENT DIVQUOT DIVREM EXP FABS FLOOR FMOD FREPM FREXPN LOG LOG10 MAX MAXN "+"MIN MINNZ MODF POW ROUND ROUND2VALUE ROUNDINT SECANT SIN SINH SQROOT TAN TANH FLOAT2STRING "+"FLOAT2STRINGNC INSTR LEFT LEN LTRIM MID RIGHT RTRIM STRING STRINGNC TOLOWER TOUPPER TRIM "+"NUMDAYS READ_DATE STAGING",built_in:"IDENTIFIER OPTIONS XML_ELEMENT XML_OP XML_ELEMENT_OF DOMDOCCREATE DOMDOCLOADFILE DOMDOCLOADXML "+"DOMDOCSAVEFILE DOMDOCGETROOT DOMDOCADDPI DOMNODEGETNAME DOMNODEGETTYPE DOMNODEGETVALUE DOMNODEGETCHILDCT "+"DOMNODEGETFIRSTCHILD DOMNODEGETSIBLING DOMNODECREATECHILDELEMENT DOMNODESETATTRIBUTE "+"DOMNODEGETCHILDELEMENTCT DOMNODEGETFIRSTCHILDELEMENT DOMNODEGETSIBLINGELEMENT DOMNODEGETATTRIBUTECT "+"DOMNODEGETATTRIBUTEI DOMNODEGETATTRIBUTEBYNAME DOMNODEGETBYNAME"},contains:[hljs.C_LINE_COMMENT_MODE,hljs.C_BLOCK_COMMENT_MODE,hljs.APOS_STRING_MODE,hljs.QUOTE_STRING_MODE,hljs.C_NUMBER_MODE,{className:"literal",variants:[{begin:"#\\s+[a-zA-Z\\ \\.]*",relevance:0},{begin:"#[a-zA-Z\\ \\.]+"}]}]}});hljs.registerLanguage("verilog",function(hljs){var SV_KEYWORDS={keyword:"accept_on alias always always_comb always_ff always_latch and assert assign "+"assume automatic before begin bind bins binsof bit break buf|0 bufif0 bufif1 "+"byte case casex casez cell chandle checker class clocking cmos config const "+"constraint context continue cover covergroup coverpoint cross deassign default "+"defparam design disable dist do edge else end endcase endchecker endclass "+"endclocking endconfig endfunction endgenerate endgroup endinterface endmodule "+"endpackage endprimitive endprogram endproperty endspecify endsequence endtable "+"endtask enum event eventually expect export extends extern final first_match for "+"force foreach forever fork forkjoin function generate|5 genvar global highz0 highz1 "+"if iff ifnone ignore_bins illegal_bins implements implies import incdir include "+"initial inout input inside instance int integer interconnect interface intersect "+"join join_any join_none large let liblist library local localparam logic longint "+"macromodule matches medium modport module nand negedge nettype new nexttime nmos "+"nor noshowcancelled not notif0 notif1 or output package packed parameter pmos "+"posedge primitive priority program property protected pull0 pull1 pulldown pullup "+"pulsestyle_ondetect pulsestyle_onevent pure rand randc randcase randsequence rcmos "+"real realtime ref reg reject_on release repeat restrict return rnmos rpmos rtran "+"rtranif0 rtranif1 s_always s_eventually s_nexttime s_until s_until_with scalared "+"sequence shortint shortreal showcancelled signed small soft solve specify specparam "+"static string strong strong0 strong1 struct super supply0 supply1 sync_accept_on "+"sync_reject_on table tagged task this throughout time timeprecision timeunit tran "+"tranif0 tranif1 tri tri0 tri1 triand trior trireg type typedef union unique unique0 "+"unsigned until until_with untyped use uwire var vectored virtual void wait wait_order "+"wand weak weak0 weak1 while wildcard wire with within wor xnor xor",literal:"null",built_in:"$finish $stop $exit $fatal $error $warning $info $realtime $time $printtimescale "+"$bitstoreal $bitstoshortreal $itor $signed $cast $bits $stime $timeformat "+"$realtobits $shortrealtobits $rtoi $unsigned $asserton $assertkill $assertpasson "+"$assertfailon $assertnonvacuouson $assertoff $assertcontrol $assertpassoff "+"$assertfailoff $assertvacuousoff $isunbounded $sampled $fell $changed $past_gclk "+"$fell_gclk $changed_gclk $rising_gclk $steady_gclk $coverage_control "+"$coverage_get $coverage_save $set_coverage_db_name $rose $stable $past "+"$rose_gclk $stable_gclk $future_gclk $falling_gclk $changing_gclk $display "+"$coverage_get_max $coverage_merge $get_coverage $load_coverage_db $typename "+"$unpacked_dimensions $left $low $increment $clog2 $ln $log10 $exp $sqrt $pow "+"$floor $ceil $sin $cos $tan $countbits $onehot $isunknown $fatal $warning "+"$dimensions $right $high $size $asin $acos $atan $atan2 $hypot $sinh $cosh "+"$tanh $asinh $acosh $atanh $countones $onehot0 $error $info $random "+"$dist_chi_square $dist_erlang $dist_exponential $dist_normal $dist_poisson "+"$dist_t $dist_uniform $q_initialize $q_remove $q_exam $async$and$array "+"$async$nand$array $async$or$array $async$nor$array $sync$and$array "+"$sync$nand$array $sync$or$array $sync$nor$array $q_add $q_full $psprintf "+"$async$and$plane $async$nand$plane $async$or$plane $async$nor$plane "+"$sync$and$plane $sync$nand$plane $sync$or$plane $sync$nor$plane $system "+"$display $displayb $displayh $displayo $strobe $strobeb $strobeh $strobeo "+"$write $readmemb $readmemh $writememh $value$plusargs "+"$dumpvars $dumpon $dumplimit $dumpports $dumpportson $dumpportslimit "+"$writeb $writeh $writeo $monitor $monitorb $monitorh $monitoro $writememb "+"$dumpfile $dumpoff $dumpall $dumpflush $dumpportsoff $dumpportsall "+"$dumpportsflush $fclose $fdisplay $fdisplayb $fdisplayh $fdisplayo "+"$fstrobe $fstrobeb $fstrobeh $fstrobeo $swrite $swriteb $swriteh "+"$swriteo $fscanf $fread $fseek $fflush $feof $fopen $fwrite $fwriteb "+"$fwriteh $fwriteo $fmonitor $fmonitorb $fmonitorh $fmonitoro $sformat "+"$sformatf $fgetc $ungetc $fgets $sscanf $rewind $ftell $ferror"};return{aliases:["v","sv","svh"],case_insensitive:false,keywords:SV_KEYWORDS,lexemes:/[\w\$]+/,contains:[hljs.C_BLOCK_COMMENT_MODE,hljs.C_LINE_COMMENT_MODE,hljs.QUOTE_STRING_MODE,{className:"number",contains:[hljs.BACKSLASH_ESCAPE],variants:[{begin:"\\b((\\d+'(b|h|o|d|B|H|O|D))[0-9xzXZa-fA-F_]+)"},{begin:"\\B(('(b|h|o|d|B|H|O|D))[0-9xzXZa-fA-F_]+)"},{begin:"\\b([0-9_])+",relevance:0}]},{className:"variable",variants:[{begin:"#\\((?!parameter).+\\)"},{begin:"\\.\\w+",relevance:0}]},{className:"meta",begin:"`",end:"$",keywords:{"meta-keyword":"define __FILE__ "+"__LINE__ begin_keywords celldefine default_nettype define "+"else elsif end_keywords endcelldefine endif ifdef ifndef "+"include line nounconnected_drive pragma resetall timescale "+"unconnected_drive undef undefineall"},relevance:0}]}});hljs.registerLanguage("mathematica",function(hljs){return{aliases:["mma","wl"],lexemes:"(\\$|\\b)"+hljs.IDENT_RE+"\\b",keywords:"AASTriangle AbelianGroup Abort AbortKernels AbortProtect AbortScheduledTask Above Abs AbsArg AbsArgPlot Absolute AbsoluteCorrelation AbsoluteCorrelationFunction AbsoluteCurrentValue AbsoluteDashing AbsoluteFileName AbsoluteOptions AbsolutePointSize AbsoluteThickness AbsoluteTime AbsoluteTiming AcceptanceThreshold AccountingForm Accumulate Accuracy AccuracyGoal ActionDelay ActionMenu ActionMenuBox ActionMenuBoxOptions Activate Active ActiveClassification ActiveClassificationObject ActiveItem ActivePrediction ActivePredictionObject ActiveStyle AcyclicGraphQ AddOnHelpPath AddSides AddTo AddToSearchIndex AddUsers AdjacencyGraph AdjacencyList AdjacencyMatrix AdjustmentBox AdjustmentBoxOptions AdjustTimeSeriesForecast AdministrativeDivisionData AffineHalfSpace AffineSpace AffineStateSpaceModel AffineTransform After AggregatedEntityClass AggregationLayer AircraftData AirportData AirPressureData AirTemperatureData AiryAi AiryAiPrime AiryAiZero AiryBi AiryBiPrime AiryBiZero AlgebraicIntegerQ AlgebraicNumber AlgebraicNumberDenominator AlgebraicNumberNorm AlgebraicNumberPolynomial AlgebraicNumberTrace AlgebraicRules AlgebraicRulesData Algebraics AlgebraicUnitQ Alignment AlignmentMarker AlignmentPoint All AllowAdultContent AllowedCloudExtraParameters AllowedCloudParameterExtensions AllowedDimensions AllowedFrequencyRange AllowedHeads AllowGroupClose AllowIncomplete AllowInlineCells AllowKernelInitialization AllowLooseGrammar AllowReverseGroupClose AllowScriptLevelChange AllTrue Alphabet AlphabeticOrder AlphabeticSort AlphaChannel AlternateImage AlternatingFactorial AlternatingGroup AlternativeHypothesis Alternatives AltitudeMethod AmbientLight AmbiguityFunction AmbiguityList Analytic AnatomyData AnatomyForm AnatomyPlot3D AnatomySkinStyle AnatomyStyling AnchoredSearch And AndersonDarlingTest AngerJ AngleBisector AngleBracket AnglePath AnglePath3D AngleVector AngularGauge Animate AnimationCycleOffset AnimationCycleRepetitions AnimationDirection AnimationDisplayTime AnimationRate AnimationRepetitions AnimationRunning AnimationRunTime AnimationTimeIndex Animator AnimatorBox AnimatorBoxOptions AnimatorElements Annotate Annotation AnnotationDelete AnnotationNames AnnotationRules AnnotationValue Annuity AnnuityDue Annulus AnomalyDetection AnomalyDetectorFunction Anonymous Antialiasing AntihermitianMatrixQ Antisymmetric AntisymmetricMatrixQ Antonyms AnyOrder AnySubset AnyTrue Apart ApartSquareFree APIFunction Appearance AppearanceElements AppearanceRules AppellF1 Append AppendCheck AppendLayer AppendTo ApplicationIdentificationKey Apply ApplySides ArcCos ArcCosh ArcCot ArcCoth ArcCsc ArcCsch ArcCurvature ARCHProcess ArcLength ArcSec ArcSech ArcSin ArcSinDistribution ArcSinh ArcTan ArcTanh Area Arg ArgMax ArgMin ArgumentCountQ ARIMAProcess ArithmeticGeometricMean ARMAProcess Around AroundReplace ARProcess Array ArrayComponents ArrayDepth ArrayFilter ArrayFlatten ArrayMesh ArrayPad ArrayPlot ArrayQ ArrayResample ArrayReshape ArrayRules Arrays Arrow Arrow3DBox ArrowBox Arrowheads ASATriangle Ask AskAppend AskConfirm AskDisplay AskedQ AskedValue AskFunction AskState AskTemplateDisplay AspectRatio AspectRatioFixed Assert AssociateTo Association AssociationFormat AssociationMap AssociationQ AssociationThread AssumeDeterministic Assuming Assumptions AstronomicalData AsymptoticDSolveValue AsymptoticEqual AsymptoticEquivalent AsymptoticGreater AsymptoticGreaterEqual AsymptoticIntegrate AsymptoticLess AsymptoticLessEqual AsymptoticOutputTracker AsymptoticRSolveValue AsymptoticSolve AsymptoticSum Asynchronous AsynchronousTaskObject AsynchronousTasks Atom AtomCoordinates AtomCount AtomDiagramCoordinates AtomList AtomQ AttentionLayer Attributes Audio AudioAmplify AudioAnnotate AudioAnnotationLookup AudioBlockMap AudioCapture AudioChannelAssignment AudioChannelCombine AudioChannelMix AudioChannels AudioChannelSeparate AudioData AudioDelay AudioDelete AudioDevice AudioDistance AudioFade AudioFrequencyShift AudioGenerator AudioIdentify AudioInputDevice AudioInsert AudioIntervals AudioJoin AudioLabel AudioLength AudioLocalMeasurements AudioLooping AudioLoudness AudioMeasurements AudioNormalize AudioOutputDevice AudioOverlay AudioPad AudioPan AudioPartition AudioPause AudioPitchShift AudioPlay AudioPlot AudioQ AudioRecord AudioReplace AudioResample AudioReverb AudioSampleRate AudioSpectralMap AudioSpectralTransformation AudioSplit AudioStop AudioStream AudioStreams AudioTimeStretch AudioTrim AudioType AugmentedPolyhedron AugmentedSymmetricPolynomial Authenticate Authentication AuthenticationDialog AutoAction Autocomplete AutocompletionFunction AutoCopy AutocorrelationTest AutoDelete AutoEvaluateEvents AutoGeneratedPackage AutoIndent AutoIndentSpacings AutoItalicWords AutoloadPath AutoMatch Automatic AutomaticImageSize AutoMultiplicationSymbol AutoNumberFormatting AutoOpenNotebooks AutoOpenPalettes AutoQuoteCharacters AutoRefreshed AutoRemove AutorunSequencing AutoScaling AutoScroll AutoSpacing AutoStyleOptions AutoStyleWords AutoSubmitting Axes AxesEdge AxesLabel AxesOrigin AxesStyle AxiomaticTheory Axis"+"BabyMonsterGroupB Back Background BackgroundAppearance BackgroundTasksSettings Backslash Backsubstitution Backward Ball Band BandpassFilter BandstopFilter BarabasiAlbertGraphDistribution BarChart BarChart3D BarcodeImage BarcodeRecognize BaringhausHenzeTest BarLegend BarlowProschanImportance BarnesG BarOrigin BarSpacing BartlettHannWindow BartlettWindow BaseDecode BaseEncode BaseForm Baseline BaselinePosition BaseStyle BasicRecurrentLayer BatchNormalizationLayer BatchSize BatesDistribution BattleLemarieWavelet BayesianMaximization BayesianMaximizationObject BayesianMinimization BayesianMinimizationObject Because BeckmannDistribution Beep Before Begin BeginDialogPacket BeginFrontEndInteractionPacket BeginPackage BellB BellY Below BenfordDistribution BeniniDistribution BenktanderGibratDistribution BenktanderWeibullDistribution BernoulliB BernoulliDistribution BernoulliGraphDistribution BernoulliProcess BernsteinBasis BesselFilterModel BesselI BesselJ BesselJZero BesselK BesselY BesselYZero Beta BetaBinomialDistribution BetaDistribution BetaNegativeBinomialDistribution BetaPrimeDistribution BetaRegularized Between BetweennessCentrality BeveledPolyhedron BezierCurve BezierCurve3DBox BezierCurve3DBoxOptions BezierCurveBox BezierCurveBoxOptions BezierFunction BilateralFilter Binarize BinaryDeserialize BinaryDistance BinaryFormat BinaryImageQ BinaryRead BinaryReadList BinarySerialize BinaryWrite BinCounts BinLists Binomial BinomialDistribution BinomialProcess BinormalDistribution BiorthogonalSplineWavelet BipartiteGraphQ BiquadraticFilterModel BirnbaumImportance BirnbaumSaundersDistribution BitAnd BitClear BitGet BitLength BitNot BitOr BitSet BitShiftLeft BitShiftRight BitXor BiweightLocation BiweightMidvariance Black BlackmanHarrisWindow BlackmanNuttallWindow BlackmanWindow Blank BlankForm BlankNullSequence BlankSequence Blend Block BlockchainAddressData BlockchainBase BlockchainBlockData BlockchainContractValue BlockchainData BlockchainGet BlockchainKeyEncode BlockchainPut BlockchainTokenData BlockchainTransaction BlockchainTransactionData BlockchainTransactionSign BlockchainTransactionSubmit BlockMap BlockRandom BlomqvistBeta BlomqvistBetaTest Blue Blur BodePlot BohmanWindow Bold Bond BondCount BondList BondQ Bookmarks Boole BooleanConsecutiveFunction BooleanConvert BooleanCountingFunction BooleanFunction BooleanGraph BooleanMaxterms BooleanMinimize BooleanMinterms BooleanQ BooleanRegion Booleans BooleanStrings BooleanTable BooleanVariables BorderDimensions BorelTannerDistribution Bottom BottomHatTransform BoundaryDiscretizeGraphics BoundaryDiscretizeRegion BoundaryMesh BoundaryMeshRegion BoundaryMeshRegionQ BoundaryStyle BoundedRegionQ BoundingRegion Bounds Box BoxBaselineShift BoxData BoxDimensions Boxed Boxes BoxForm BoxFormFormatTypes BoxFrame BoxID BoxMargins BoxMatrix BoxObject BoxRatios BoxRotation BoxRotationPoint BoxStyle BoxWhiskerChart Bra BracketingBar BraKet BrayCurtisDistance BreadthFirstScan Break BridgeData BrightnessEqualize BroadcastStationData Brown BrownForsytheTest BrownianBridgeProcess BrowserCategory BSplineBasis BSplineCurve BSplineCurve3DBox BSplineCurve3DBoxOptions BSplineCurveBox BSplineCurveBoxOptions BSplineFunction BSplineSurface BSplineSurface3DBox BSplineSurface3DBoxOptions BubbleChart BubbleChart3D BubbleScale BubbleSizes BuildingData BulletGauge BusinessDayQ ButterflyGraph ButterworthFilterModel Button ButtonBar ButtonBox ButtonBoxOptions ButtonCell ButtonContents ButtonData ButtonEvaluator ButtonExpandable ButtonFrame ButtonFunction ButtonMargins ButtonMinHeight ButtonNote ButtonNotebook ButtonSource ButtonStyle ButtonStyleMenuListing Byte ByteArray ByteArrayFormat ByteArrayQ ByteArrayToString ByteCount ByteOrdering"+"C CachedValue CacheGraphics CachePersistence CalendarConvert CalendarData CalendarType Callout CalloutMarker CalloutStyle CallPacket CanberraDistance Cancel CancelButton CandlestickChart CanonicalGraph CanonicalizePolygon CanonicalizePolyhedron CanonicalName CanonicalWarpingCorrespondence CanonicalWarpingDistance CantorMesh CantorStaircase Cap CapForm CapitalDifferentialD Capitalize CapsuleShape CaptureRunning CardinalBSplineBasis CarlemanLinearize CarmichaelLambda CaseOrdering Cases CaseSensitive Cashflow Casoratian Catalan CatalanNumber Catch Catenate CatenateLayer CauchyDistribution CauchyWindow CayleyGraph CDF CDFDeploy CDFInformation CDFWavelet Ceiling CelestialSystem Cell CellAutoOverwrite CellBaseline CellBoundingBox CellBracketOptions CellChangeTimes CellContents CellContext CellDingbat CellDynamicExpression CellEditDuplicate CellElementsBoundingBox CellElementSpacings CellEpilog CellEvaluationDuplicate CellEvaluationFunction CellEvaluationLanguage CellEventActions CellFrame CellFrameColor CellFrameLabelMargins CellFrameLabels CellFrameMargins CellGroup CellGroupData CellGrouping CellGroupingRules CellHorizontalScrolling CellID CellLabel CellLabelAutoDelete CellLabelMargins CellLabelPositioning CellLabelStyle CellLabelTemplate CellMargins CellObject CellOpen CellPrint CellProlog Cells CellSize CellStyle CellTags CellularAutomaton CensoredDistribution Censoring Center CenterArray CenterDot CentralFeature CentralMoment CentralMomentGeneratingFunction Cepstrogram CepstrogramArray CepstrumArray CForm ChampernowneNumber ChangeOptions ChannelBase ChannelBrokerAction ChannelDatabin ChannelHistoryLength ChannelListen ChannelListener ChannelListeners ChannelListenerWait ChannelObject ChannelPreSendFunction ChannelReceiverFunction ChannelSend ChannelSubscribers ChanVeseBinarize Character CharacterCounts CharacterEncoding CharacterEncodingsPath CharacteristicFunction CharacteristicPolynomial CharacterName CharacterRange Characters ChartBaseStyle ChartElementData ChartElementDataFunction ChartElementFunction ChartElements ChartLabels ChartLayout ChartLegends ChartStyle Chebyshev1FilterModel Chebyshev2FilterModel ChebyshevDistance ChebyshevT ChebyshevU Check CheckAbort CheckAll Checkbox CheckboxBar CheckboxBox CheckboxBoxOptions ChemicalData ChessboardDistance ChiDistribution ChineseRemainder ChiSquareDistribution ChoiceButtons ChoiceDialog CholeskyDecomposition Chop ChromaticityPlot ChromaticityPlot3D ChromaticPolynomial Circle CircleBox CircleDot CircleMinus CirclePlus CirclePoints CircleThrough CircleTimes CirculantGraph CircularOrthogonalMatrixDistribution CircularQuaternionMatrixDistribution CircularRealMatrixDistribution CircularSymplecticMatrixDistribution CircularUnitaryMatrixDistribution Circumsphere CityData ClassifierFunction ClassifierInformation ClassifierMeasurements ClassifierMeasurementsObject Classify ClassPriors Clear ClearAll ClearAttributes ClearCookies ClearPermissions ClearSystemCache ClebschGordan ClickPane Clip ClipboardNotebook ClipFill ClippingStyle ClipPlanes ClipPlanesStyle ClipRange Clock ClockGauge ClockwiseContourIntegral Close Closed CloseKernels ClosenessCentrality Closing ClosingAutoSave ClosingEvent CloudAccountData CloudBase CloudConnect CloudDeploy CloudDirectory CloudDisconnect CloudEvaluate CloudExport CloudExpression CloudExpressions CloudFunction CloudGet CloudImport CloudLoggingData CloudObject CloudObjectInformation CloudObjectInformationData CloudObjectNameFormat CloudObjects CloudObjectURLType CloudPublish CloudPut CloudRenderingMethod CloudSave CloudShare CloudSubmit CloudSymbol CloudUnshare ClusterClassify ClusterDissimilarityFunction ClusteringComponents ClusteringTree CMYKColor Coarse CodeAssistOptions Coefficient CoefficientArrays CoefficientDomain CoefficientList CoefficientRules CoifletWavelet Collect Colon ColonForm ColorBalance ColorCombine ColorConvert ColorCoverage ColorData ColorDataFunction ColorDetect ColorDistance ColorFunction ColorFunctionScaling Colorize ColorNegate ColorOutput ColorProfileData ColorQ ColorQuantize ColorReplace ColorRules ColorSelectorSettings ColorSeparate ColorSetter ColorSetterBox ColorSetterBoxOptions ColorSlider ColorsNear ColorSpace ColorToneMapping Column ColumnAlignments ColumnBackgrounds ColumnForm ColumnLines ColumnsEqual ColumnSpacings ColumnWidths CombinedEntityClass CombinerFunction CometData CommonDefaultFormatTypes Commonest CommonestFilter CommonName CommonUnits CommunityBoundaryStyle CommunityGraphPlot CommunityLabels CommunityRegionStyle CompanyData CompatibleUnitQ CompilationOptions CompilationTarget Compile Compiled CompiledCodeFunction CompiledFunction CompilerOptions Complement CompleteGraph CompleteGraphQ CompleteKaryTree CompletionsListPacket Complex Complexes ComplexExpand ComplexInfinity ComplexityFunction ComplexListPlot ComplexPlot ComplexPlot3D ComponentMeasurements ComponentwiseContextMenu Compose ComposeList ComposeSeries CompositeQ Composition CompoundElement CompoundExpression CompoundPoissonDistribution CompoundPoissonProcess CompoundRenewalProcess Compress CompressedData ComputeUncertainty Condition ConditionalExpression Conditioned Cone ConeBox ConfidenceLevel ConfidenceRange ConfidenceTransform ConfigurationPath ConformAudio ConformImages Congruent ConicHullRegion ConicHullRegion3DBox ConicHullRegionBox ConicOptimization Conjugate ConjugateTranspose Conjunction Connect ConnectedComponents ConnectedGraphComponents ConnectedGraphQ ConnectedMeshComponents ConnectedMoleculeComponents ConnectedMoleculeQ ConnectionSettings ConnectLibraryCallbackFunction ConnectSystemModelComponents ConnesWindow ConoverTest ConsoleMessage ConsoleMessagePacket ConsolePrint Constant ConstantArray ConstantArrayLayer ConstantImage ConstantPlusLayer ConstantRegionQ Constants ConstantTimesLayer ConstellationData ConstrainedMax ConstrainedMin Construct Containing ContainsAll ContainsAny ContainsExactly ContainsNone ContainsOnly ContentFieldOptions ContentLocationFunction ContentObject ContentPadding ContentsBoundingBox ContentSelectable ContentSize Context ContextMenu Contexts ContextToFileName Continuation Continue ContinuedFraction ContinuedFractionK ContinuousAction ContinuousMarkovProcess ContinuousTask ContinuousTimeModelQ ContinuousWaveletData ContinuousWaveletTransform ContourDetect ContourGraphics ContourIntegral ContourLabels ContourLines ContourPlot ContourPlot3D Contours ContourShading ContourSmoothing ContourStyle ContraharmonicMean ContrastiveLossLayer Control ControlActive ControlAlignment ControlGroupContentsBox ControllabilityGramian ControllabilityMatrix ControllableDecomposition ControllableModelQ ControllerDuration ControllerInformation ControllerInformationData ControllerLinking ControllerManipulate ControllerMethod ControllerPath ControllerState ControlPlacement ControlsRendering ControlType Convergents ConversionOptions ConversionRules ConvertToBitmapPacket ConvertToPostScript ConvertToPostScriptPacket ConvexHullMesh ConvexPolygonQ ConvexPolyhedronQ ConvolutionLayer Convolve ConwayGroupCo1 ConwayGroupCo2 ConwayGroupCo3 CookieFunction Cookies CoordinateBoundingBox CoordinateBoundingBoxArray CoordinateBounds CoordinateBoundsArray CoordinateChartData CoordinatesToolOptions CoordinateTransform CoordinateTransformData CoprimeQ Coproduct CopulaDistribution Copyable CopyDatabin CopyDirectory CopyFile CopyTag CopyToClipboard CornerFilter CornerNeighbors Correlation CorrelationDistance CorrelationFunction CorrelationTest Cos Cosh CoshIntegral CosineDistance CosineWindow CosIntegral Cot Coth Count CountDistinct CountDistinctBy CounterAssignments CounterBox CounterBoxOptions CounterClockwiseContourIntegral CounterEvaluator CounterFunction CounterIncrements CounterStyle CounterStyleMenuListing CountRoots CountryData Counts CountsBy Covariance CovarianceEstimatorFunction CovarianceFunction CoxianDistribution CoxIngersollRossProcess CoxModel CoxModelFit CramerVonMisesTest CreateArchive CreateCellID CreateChannel CreateCloudExpression CreateDatabin CreateDataSystemModel CreateDialog CreateDirectory CreateDocument CreateFile CreateIntermediateDirectories CreateManagedLibraryExpression CreateNotebook CreatePalette CreatePalettePacket CreatePermissionsGroup CreateScheduledTask CreateSearchIndex CreateSystemModel CreateTemporary CreateUUID CreateWindow CriterionFunction CriticalityFailureImportance CriticalitySuccessImportance CriticalSection Cross CrossEntropyLossLayer CrossingCount CrossingDetect CrossingPolygon CrossMatrix Csc Csch CTCLossLayer Cube CubeRoot Cubics Cuboid CuboidBox Cumulant CumulantGeneratingFunction Cup CupCap Curl CurlyDoubleQuote CurlyQuote CurrencyConvert CurrentDate CurrentImage CurrentlySpeakingPacket CurrentNotebookImage CurrentScreenImage CurrentValue Curry CurvatureFlowFilter CurveClosed Cyan CycleGraph CycleIndexPolynomial Cycles CyclicGroup Cyclotomic Cylinder CylinderBox CylindricalDecomposition"+"D DagumDistribution DamData DamerauLevenshteinDistance DampingFactor Darker Dashed Dashing DatabaseConnect DatabaseDisconnect DatabaseReference Databin DatabinAdd DatabinRemove Databins DatabinUpload DataCompression DataDistribution DataRange DataReversed Dataset Date DateBounds Dated DateDelimiters DateDifference DatedUnit DateFormat DateFunction DateHistogram DateList DateListLogPlot DateListPlot DateListStepPlot DateObject DateObjectQ DateOverlapsQ DatePattern DatePlus DateRange DateReduction DateString DateTicksFormat DateValue DateWithinQ DaubechiesWavelet DavisDistribution DawsonF DayCount DayCountConvention DayHemisphere DaylightQ DayMatchQ DayName DayNightTerminator DayPlus DayRange DayRound DeBruijnGraph DeBruijnSequence Debug DebugTag Decapitalize Decimal DecimalForm DeclareKnownSymbols DeclarePackage Decompose DeconvolutionLayer Decrement Decrypt DecryptFile DedekindEta DeepSpaceProbeData Default DefaultAxesStyle DefaultBaseStyle DefaultBoxStyle DefaultButton DefaultColor DefaultControlPlacement DefaultDuplicateCellStyle DefaultDuration DefaultElement DefaultFaceGridsStyle DefaultFieldHintStyle DefaultFont DefaultFontProperties DefaultFormatType DefaultFormatTypeForStyle DefaultFrameStyle DefaultFrameTicksStyle DefaultGridLinesStyle DefaultInlineFormatType DefaultInputFormatType DefaultLabelStyle DefaultMenuStyle DefaultNaturalLanguage DefaultNewCellStyle DefaultNewInlineCellStyle DefaultNotebook DefaultOptions DefaultOutputFormatType DefaultPrintPrecision DefaultStyle DefaultStyleDefinitions DefaultTextFormatType DefaultTextInlineFormatType DefaultTicksStyle DefaultTooltipStyle DefaultValue DefaultValues Defer DefineExternal DefineInputStreamMethod DefineOutputStreamMethod DefineResourceFunction Definition Degree DegreeCentrality DegreeGraphDistribution DegreeLexicographic DegreeReverseLexicographic DEigensystem DEigenvalues Deinitialization Del DelaunayMesh Delayed Deletable Delete DeleteAnomalies DeleteBorderComponents DeleteCases DeleteChannel DeleteCloudExpression DeleteContents DeleteDirectory DeleteDuplicates DeleteDuplicatesBy DeleteFile DeleteMissing DeleteObject DeletePermissionsKey DeleteSearchIndex DeleteSmallComponents DeleteStopwords DeleteWithContents DeletionWarning DelimitedArray DelimitedSequence Delimiter DelimiterFlashTime DelimiterMatching Delimiters DeliveryFunction Dendrogram Denominator DensityGraphics DensityHistogram DensityPlot DensityPlot3D DependentVariables Deploy Deployed Depth DepthFirstScan Derivative DerivativeFilter DerivedKey DescriptorStateSpace DesignMatrix DestroyAfterEvaluation Det DeviceClose DeviceConfigure DeviceExecute DeviceExecuteAsynchronous DeviceObject DeviceOpen DeviceOpenQ DeviceRead DeviceReadBuffer DeviceReadLatest DeviceReadList DeviceReadTimeSeries Devices DeviceStreams DeviceWrite DeviceWriteBuffer DGaussianWavelet DiacriticalPositioning Diagonal DiagonalizableMatrixQ DiagonalMatrix DiagonalMatrixQ Dialog DialogIndent DialogInput DialogLevel DialogNotebook DialogProlog DialogReturn DialogSymbols Diamond DiamondMatrix DiceDissimilarity DictionaryLookup DictionaryWordQ DifferenceDelta DifferenceOrder DifferenceQuotient DifferenceRoot DifferenceRootReduce Differences DifferentialD DifferentialRoot DifferentialRootReduce DifferentiatorFilter DigitalSignature DigitBlock DigitBlockMinimum DigitCharacter DigitCount DigitQ DihedralAngle DihedralGroup Dilation DimensionalCombinations DimensionalMeshComponents DimensionReduce DimensionReducerFunction DimensionReduction Dimensions DiracComb DiracDelta DirectedEdge DirectedEdges DirectedGraph DirectedGraphQ DirectedInfinity Direction Directive Directory DirectoryName DirectoryQ DirectoryStack DirichletBeta DirichletCharacter DirichletCondition DirichletConvolve DirichletDistribution DirichletEta DirichletL DirichletLambda DirichletTransform DirichletWindow DisableConsolePrintPacket DisableFormatting DiscreteChirpZTransform DiscreteConvolve DiscreteDelta DiscreteHadamardTransform DiscreteIndicator DiscreteLimit DiscreteLQEstimatorGains DiscreteLQRegulatorGains DiscreteLyapunovSolve DiscreteMarkovProcess DiscreteMaxLimit DiscreteMinLimit DiscretePlot DiscretePlot3D DiscreteRatio DiscreteRiccatiSolve DiscreteShift DiscreteTimeModelQ DiscreteUniformDistribution DiscreteVariables DiscreteWaveletData DiscreteWaveletPacketTransform DiscreteWaveletTransform DiscretizeGraphics DiscretizeRegion Discriminant DisjointQ Disjunction Disk DiskBox DiskMatrix DiskSegment Dispatch DispatchQ DispersionEstimatorFunction Display DisplayAllSteps DisplayEndPacket DisplayFlushImagePacket DisplayForm DisplayFunction DisplayPacket DisplayRules DisplaySetSizePacket DisplayString DisplayTemporary DisplayWith DisplayWithRef DisplayWithVariable DistanceFunction DistanceMatrix DistanceTransform Distribute Distributed DistributedContexts DistributeDefinitions DistributionChart DistributionDomain DistributionFitTest DistributionParameterAssumptions DistributionParameterQ Dithering Div Divergence Divide DivideBy Dividers DivideSides Divisible Divisors DivisorSigma DivisorSum DMSList DMSString Do DockedCells DocumentGenerator DocumentGeneratorInformation DocumentGeneratorInformationData DocumentGenerators DocumentNotebook DocumentWeightingRules Dodecahedron DomainRegistrationInformation DominantColors DOSTextFormat Dot DotDashed DotEqual DotLayer DotPlusLayer Dotted DoubleBracketingBar DoubleContourIntegral DoubleDownArrow DoubleLeftArrow DoubleLeftRightArrow DoubleLeftTee DoubleLongLeftArrow DoubleLongLeftRightArrow DoubleLongRightArrow DoubleRightArrow DoubleRightTee DoubleUpArrow DoubleUpDownArrow DoubleVerticalBar DoublyInfinite Down DownArrow DownArrowBar DownArrowUpArrow DownLeftRightVector DownLeftTeeVector DownLeftVector DownLeftVectorBar DownRightTeeVector DownRightVector DownRightVectorBar Downsample DownTee DownTeeArrow DownValues DragAndDrop DrawEdges DrawFrontFaces DrawHighlighted Drop DropoutLayer DSolve DSolveValue Dt DualLinearProgramming DualPolyhedron DualSystemsModel DumpGet DumpSave DuplicateFreeQ Duration Dynamic DynamicBox DynamicBoxOptions DynamicEvaluationTimeout DynamicGeoGraphics DynamicImage DynamicLocation DynamicModule DynamicModuleBox DynamicModuleBoxOptions DynamicModuleParent DynamicModuleValues DynamicName DynamicNamespace DynamicReference DynamicSetting DynamicUpdating DynamicWrapper DynamicWrapperBox DynamicWrapperBoxOptions"+"E EarthImpactData EarthquakeData EccentricityCentrality Echo EchoFunction EclipseType EdgeAdd EdgeBetweennessCentrality EdgeCapacity EdgeCapForm EdgeColor EdgeConnectivity EdgeContract EdgeCost EdgeCount EdgeCoverQ EdgeCycleMatrix EdgeDashing EdgeDelete EdgeDetect EdgeForm EdgeIndex EdgeJoinForm EdgeLabeling EdgeLabels EdgeLabelStyle EdgeList EdgeOpacity EdgeQ EdgeRenderingFunction EdgeRules EdgeShapeFunction EdgeStyle EdgeThickness EdgeWeight EdgeWeightedGraphQ Editable EditButtonSettings EditCellTagsSettings EditDistance EffectiveInterest Eigensystem Eigenvalues EigenvectorCentrality Eigenvectors Element ElementData ElementwiseLayer ElidedForms Eliminate EliminationOrder Ellipsoid EllipticE EllipticExp EllipticExpPrime EllipticF EllipticFilterModel EllipticK EllipticLog EllipticNomeQ EllipticPi EllipticReducedHalfPeriods EllipticTheta EllipticThetaPrime EmbedCode EmbeddedHTML EmbeddedService EmbeddingLayer EmbeddingObject EmitSound EmphasizeSyntaxErrors EmpiricalDistribution Empty EmptyGraphQ EmptyRegion EnableConsolePrintPacket Enabled Encode Encrypt EncryptedObject EncryptFile End EndAdd EndDialogPacket EndFrontEndInteractionPacket EndOfBuffer EndOfFile EndOfLine EndOfString EndPackage EngineEnvironment EngineeringForm Enter EnterExpressionPacket EnterTextPacket Entity EntityClass EntityClassList EntityCopies EntityFunction EntityGroup EntityInstance EntityList EntityPrefetch EntityProperties EntityProperty EntityPropertyClass EntityRegister EntityStore EntityStores EntityTypeName EntityUnregister EntityValue Entropy EntropyFilter Environment Epilog EpilogFunction Equal EqualColumns EqualRows EqualTilde EqualTo EquatedTo Equilibrium EquirippleFilterKernel Equivalent Erf Erfc Erfi ErlangB ErlangC ErlangDistribution Erosion ErrorBox ErrorBoxOptions ErrorNorm ErrorPacket ErrorsDialogSettings EscapeRadius EstimatedBackground EstimatedDistribution EstimatedProcess EstimatorGains EstimatorRegulator EuclideanDistance EulerAngles EulerCharacteristic EulerE EulerGamma EulerianGraphQ EulerMatrix EulerPhi Evaluatable Evaluate Evaluated EvaluatePacket EvaluateScheduledTask EvaluationBox EvaluationCell EvaluationCompletionAction EvaluationData EvaluationElements EvaluationEnvironment EvaluationMode EvaluationMonitor EvaluationNotebook EvaluationObject EvaluationOrder Evaluator EvaluatorNames EvenQ EventData EventEvaluator EventHandler EventHandlerTag EventLabels EventSeries ExactBlackmanWindow ExactNumberQ ExactRootIsolation ExampleData Except ExcludedForms ExcludedLines ExcludedPhysicalQuantities ExcludePods Exclusions ExclusionsStyle Exists Exit ExitDialog ExoplanetData Exp Expand ExpandAll ExpandDenominator ExpandFileName ExpandNumerator Expectation ExpectationE ExpectedValue ExpGammaDistribution ExpIntegralE ExpIntegralEi ExpirationDate Exponent ExponentFunction ExponentialDistribution ExponentialFamily ExponentialGeneratingFunction ExponentialMovingAverage ExponentialPowerDistribution ExponentPosition ExponentStep Export ExportAutoReplacements ExportByteArray ExportForm ExportPacket ExportString Expression ExpressionCell ExpressionPacket ExpressionUUID ExpToTrig ExtendedEntityClass ExtendedGCD Extension ExtentElementFunction ExtentMarkers ExtentSize ExternalBundle ExternalCall ExternalDataCharacterEncoding ExternalEvaluate ExternalFunction ExternalFunctionName ExternalObject ExternalOptions ExternalSessionObject ExternalSessions ExternalTypeSignature ExternalValue Extract ExtractArchive ExtractLayer ExtremeValueDistribution"+"FaceForm FaceGrids FaceGridsStyle FacialFeatures Factor FactorComplete Factorial Factorial2 FactorialMoment FactorialMomentGeneratingFunction FactorialPower FactorInteger FactorList FactorSquareFree FactorSquareFreeList FactorTerms FactorTermsList Fail Failure FailureAction FailureDistribution FailureQ False FareySequence FARIMAProcess FeatureDistance FeatureExtract FeatureExtraction FeatureExtractor FeatureExtractorFunction FeatureNames FeatureNearest FeatureSpacePlot FeatureSpacePlot3D FeatureTypes FEDisableConsolePrintPacket FeedbackLinearize FeedbackSector FeedbackSectorStyle FeedbackType FEEnableConsolePrintPacket FetalGrowthData Fibonacci Fibonorial FieldCompletionFunction FieldHint FieldHintStyle FieldMasked FieldSize File FileBaseName FileByteCount FileConvert FileDate FileExistsQ FileExtension FileFormat FileHandler FileHash FileInformation FileName FileNameDepth FileNameDialogSettings FileNameDrop FileNameForms FileNameJoin FileNames FileNameSetter FileNameSplit FileNameTake FilePrint FileSize FileSystemMap FileSystemScan FileTemplate FileTemplateApply FileType FilledCurve FilledCurveBox FilledCurveBoxOptions Filling FillingStyle FillingTransform FilteredEntityClass FilterRules FinancialBond FinancialData FinancialDerivative FinancialIndicator Find FindAnomalies FindArgMax FindArgMin FindChannels FindClique FindClusters FindCookies FindCurvePath FindCycle FindDevices FindDistribution FindDistributionParameters FindDivisions FindEdgeCover FindEdgeCut FindEdgeIndependentPaths FindEquationalProof FindEulerianCycle FindExternalEvaluators FindFaces FindFile FindFit FindFormula FindFundamentalCycles FindGeneratingFunction FindGeoLocation FindGeometricConjectures FindGeometricTransform FindGraphCommunities FindGraphIsomorphism FindGraphPartition FindHamiltonianCycle FindHamiltonianPath FindHiddenMarkovStates FindIndependentEdgeSet FindIndependentVertexSet FindInstance FindIntegerNullVector FindKClan FindKClique FindKClub FindKPlex FindLibrary FindLinearRecurrence FindList FindMatchingColor FindMaximum FindMaximumFlow FindMaxValue FindMeshDefects FindMinimum FindMinimumCostFlow FindMinimumCut FindMinValue FindMoleculeSubstructure FindPath FindPeaks FindPermutation FindPostmanTour FindProcessParameters FindRepeat FindRoot FindSequenceFunction FindSettings FindShortestPath FindShortestTour FindSpanningTree FindSystemModelEquilibrium FindTextualAnswer FindThreshold FindTransientRepeat FindVertexCover FindVertexCut FindVertexIndependentPaths Fine FinishDynamic FiniteAbelianGroupCount FiniteGroupCount FiniteGroupData First FirstCase FirstPassageTimeDistribution FirstPosition FischerGroupFi22 FischerGroupFi23 FischerGroupFi24Prime FisherHypergeometricDistribution FisherRatioTest FisherZDistribution Fit FitAll FitRegularization FittedModel FixedOrder FixedPoint FixedPointList FlashSelection Flat Flatten FlattenAt FlattenLayer FlatTopWindow FlipView Floor FlowPolynomial FlushPrintOutputPacket Fold FoldList FoldPair FoldPairList FollowRedirects Font FontColor FontFamily FontForm FontName FontOpacity FontPostScriptName FontProperties FontReencoding FontSize FontSlant FontSubstitutions FontTracking FontVariations FontWeight For ForAll Format FormatRules FormatType FormatTypeAutoConvert FormatValues FormBox FormBoxOptions FormControl FormFunction FormLayoutFunction FormObject FormPage FormTheme FormulaData FormulaLookup FortranForm Forward ForwardBackward Fourier FourierCoefficient FourierCosCoefficient FourierCosSeries FourierCosTransform FourierDCT FourierDCTFilter FourierDCTMatrix FourierDST FourierDSTMatrix FourierMatrix FourierParameters FourierSequenceTransform FourierSeries FourierSinCoefficient FourierSinSeries FourierSinTransform FourierTransform FourierTrigSeries FractionalBrownianMotionProcess FractionalGaussianNoiseProcess FractionalPart FractionBox FractionBoxOptions FractionLine Frame FrameBox FrameBoxOptions Framed FrameInset FrameLabel Frameless FrameMargins FrameRate FrameStyle FrameTicks FrameTicksStyle FRatioDistribution FrechetDistribution FreeQ FrenetSerretSystem FrequencySamplingFilterKernel FresnelC FresnelF FresnelG FresnelS Friday FrobeniusNumber FrobeniusSolve FromAbsoluteTime FromCharacterCode FromCoefficientRules FromContinuedFraction FromDate FromDigits FromDMS FromEntity FromJulianDate FromLetterNumber FromPolarCoordinates FromRomanNumeral FromSphericalCoordinates FromUnixTime Front FrontEndDynamicExpression FrontEndEventActions FrontEndExecute FrontEndObject FrontEndResource FrontEndResourceString FrontEndStackSize FrontEndToken FrontEndTokenExecute FrontEndValueCache FrontEndVersion FrontFaceColor FrontFaceOpacity Full FullAxes FullDefinition FullForm FullGraphics FullInformationOutputRegulator FullOptions FullRegion FullSimplify Function FunctionCompile FunctionCompileExport FunctionCompileExportByteArray FunctionCompileExportLibrary FunctionCompileExportString FunctionDomain FunctionExpand FunctionInterpolation FunctionPeriod FunctionRange FunctionSpace FussellVeselyImportance"+"GaborFilter GaborMatrix GaborWavelet GainMargins GainPhaseMargins GalaxyData GalleryView Gamma GammaDistribution GammaRegularized GapPenalty GARCHProcess GatedRecurrentLayer Gather GatherBy GaugeFaceElementFunction GaugeFaceStyle GaugeFrameElementFunction GaugeFrameSize GaugeFrameStyle GaugeLabels GaugeMarkers GaugeStyle GaussianFilter GaussianIntegers GaussianMatrix GaussianOrthogonalMatrixDistribution GaussianSymplecticMatrixDistribution GaussianUnitaryMatrixDistribution GaussianWindow GCD GegenbauerC General GeneralizedLinearModelFit GenerateAsymmetricKeyPair GenerateConditions GeneratedCell GeneratedDocumentBinding GenerateDerivedKey GenerateDigitalSignature GenerateDocument GeneratedParameters GeneratedQuantityMagnitudes GenerateHTTPResponse GenerateSecuredAuthenticationKey GenerateSymmetricKey GeneratingFunction GeneratorDescription GeneratorHistoryLength GeneratorOutputType Generic GenericCylindricalDecomposition GenomeData GenomeLookup GeoAntipode GeoArea GeoArraySize GeoBackground GeoBoundingBox GeoBounds GeoBoundsRegion GeoBubbleChart GeoCenter GeoCircle GeodesicClosing GeodesicDilation GeodesicErosion GeodesicOpening GeoDestination GeodesyData GeoDirection GeoDisk GeoDisplacement GeoDistance GeoDistanceList GeoElevationData GeoEntities GeoGraphics GeogravityModelData GeoGridDirectionDifference GeoGridLines GeoGridLinesStyle GeoGridPosition GeoGridRange GeoGridRangePadding GeoGridUnitArea GeoGridUnitDistance GeoGridVector GeoGroup GeoHemisphere GeoHemisphereBoundary GeoHistogram GeoIdentify GeoImage GeoLabels GeoLength GeoListPlot GeoLocation GeologicalPeriodData GeomagneticModelData GeoMarker GeometricAssertion GeometricBrownianMotionProcess GeometricDistribution GeometricMean GeometricMeanFilter GeometricScene GeometricTransformation GeometricTransformation3DBox GeometricTransformation3DBoxOptions GeometricTransformationBox GeometricTransformationBoxOptions GeoModel GeoNearest GeoPath GeoPosition GeoPositionENU GeoPositionXYZ GeoProjection GeoProjectionData GeoRange GeoRangePadding GeoRegionValuePlot GeoResolution GeoScaleBar GeoServer GeoSmoothHistogram GeoStreamPlot GeoStyling GeoStylingImageFunction GeoVariant GeoVector GeoVectorENU GeoVectorPlot GeoVectorXYZ GeoVisibleRegion GeoVisibleRegionBoundary GeoWithinQ GeoZoomLevel GestureHandler GestureHandlerTag Get GetBoundingBoxSizePacket GetContext GetEnvironment GetFileName GetFrontEndOptionsDataPacket GetLinebreakInformationPacket GetMenusPacket GetPageBreakInformationPacket Glaisher GlobalClusteringCoefficient GlobalPreferences GlobalSession Glow GoldenAngle GoldenRatio GompertzMakehamDistribution GoodmanKruskalGamma GoodmanKruskalGammaTest Goto Grad Gradient GradientFilter GradientOrientationFilter GrammarApply GrammarRules GrammarToken Graph Graph3D GraphAssortativity GraphAutomorphismGroup GraphCenter GraphComplement GraphData GraphDensity GraphDiameter GraphDifference GraphDisjointUnion GraphDistance GraphDistanceMatrix GraphElementData GraphEmbedding GraphHighlight GraphHighlightStyle GraphHub Graphics Graphics3D Graphics3DBox Graphics3DBoxOptions GraphicsArray GraphicsBaseline GraphicsBox GraphicsBoxOptions GraphicsColor GraphicsColumn GraphicsComplex GraphicsComplex3DBox GraphicsComplex3DBoxOptions GraphicsComplexBox GraphicsComplexBoxOptions GraphicsContents GraphicsData GraphicsGrid GraphicsGridBox GraphicsGroup GraphicsGroup3DBox GraphicsGroup3DBoxOptions GraphicsGroupBox GraphicsGroupBoxOptions GraphicsGrouping GraphicsHighlightColor GraphicsRow GraphicsSpacing GraphicsStyle GraphIntersection GraphLayout GraphLinkEfficiency GraphPeriphery GraphPlot GraphPlot3D GraphPower GraphPropertyDistribution GraphQ GraphRadius GraphReciprocity GraphRoot GraphStyle GraphUnion Gray GrayLevel Greater GreaterEqual GreaterEqualLess GreaterEqualThan GreaterFullEqual GreaterGreater GreaterLess GreaterSlantEqual GreaterThan GreaterTilde Green GreenFunction Grid GridBaseline GridBox GridBoxAlignment GridBoxBackground GridBoxDividers GridBoxFrame GridBoxItemSize GridBoxItemStyle GridBoxOptions GridBoxSpacings GridCreationSettings GridDefaultElement GridElementStyleOptions GridFrame GridFrameMargins GridGraph GridLines GridLinesStyle GroebnerBasis GroupActionBase GroupBy GroupCentralizer GroupElementFromWord GroupElementPosition GroupElementQ GroupElements GroupElementToWord GroupGenerators Groupings GroupMultiplicationTable GroupOrbits GroupOrder GroupPageBreakWithin GroupSetwiseStabilizer GroupStabilizer GroupStabilizerChain GroupTogetherGrouping GroupTogetherNestedGrouping GrowCutComponents Gudermannian GuidedFilter GumbelDistribution"+"HaarWavelet HadamardMatrix HalfLine HalfNormalDistribution HalfPlane HalfSpace HamiltonianGraphQ HammingDistance HammingWindow HandlerFunctions HandlerFunctionsKeys HankelH1 HankelH2 HankelMatrix HankelTransform HannPoissonWindow HannWindow HaradaNortonGroupHN HararyGraph HarmonicMean HarmonicMeanFilter HarmonicNumber Hash Haversine HazardFunction Head HeadCompose HeaderLines Heads HeavisideLambda HeavisidePi HeavisideTheta HeldGroupHe HeldPart HelpBrowserLookup HelpBrowserNotebook HelpBrowserSettings Here HermiteDecomposition HermiteH HermitianMatrixQ HessenbergDecomposition Hessian HexadecimalCharacter Hexahedron HexahedronBox HexahedronBoxOptions HiddenMarkovProcess HiddenSurface Highlighted HighlightGraph HighlightImage HighlightMesh HighpassFilter HigmanSimsGroupHS HilbertCurve HilbertFilter HilbertMatrix Histogram Histogram3D HistogramDistribution HistogramList HistogramTransform HistogramTransformInterpolation HistoricalPeriodData HitMissTransform HITSCentrality HjorthDistribution HodgeDual HoeffdingD HoeffdingDTest Hold HoldAll HoldAllComplete HoldComplete HoldFirst HoldForm HoldPattern HoldRest HolidayCalendar HomeDirectory HomePage Horizontal HorizontalForm HorizontalGauge HorizontalScrollPosition HornerForm HostLookup HotellingTSquareDistribution HoytDistribution HTMLSave HTTPErrorResponse HTTPRedirect HTTPRequest HTTPRequestData HTTPResponse Hue HumanGrowthData HumpDownHump HumpEqual HurwitzLerchPhi HurwitzZeta HyperbolicDistribution HypercubeGraph HyperexponentialDistribution Hyperfactorial Hypergeometric0F1 Hypergeometric0F1Regularized Hypergeometric1F1 Hypergeometric1F1Regularized Hypergeometric2F1 Hypergeometric2F1Regularized HypergeometricDistribution HypergeometricPFQ HypergeometricPFQRegularized HypergeometricU Hyperlink HyperlinkCreationSettings Hyperplane Hyphenation HyphenationOptions HypoexponentialDistribution HypothesisTestData"+"I IconData Iconize IconizedObject IconRules Icosahedron Identity IdentityMatrix If IgnoreCase IgnoreDiacritics IgnorePunctuation IgnoreSpellCheck IgnoringInactive Im Image Image3D Image3DProjection Image3DSlices ImageAccumulate ImageAdd ImageAdjust ImageAlign ImageApply ImageApplyIndexed ImageAspectRatio ImageAssemble ImageAugmentationLayer ImageBoundingBoxes ImageCache ImageCacheValid ImageCapture ImageCaptureFunction ImageCases ImageChannels ImageClip ImageCollage ImageColorSpace ImageCompose ImageContainsQ ImageContents ImageConvolve ImageCooccurrence ImageCorners ImageCorrelate ImageCorrespondingPoints ImageCrop ImageData ImageDeconvolve ImageDemosaic ImageDifference ImageDimensions ImageDisplacements ImageDistance ImageEffect ImageExposureCombine ImageFeatureTrack ImageFileApply ImageFileFilter ImageFileScan ImageFilter ImageFocusCombine ImageForestingComponents ImageFormattingWidth ImageForwardTransformation ImageGraphics ImageHistogram ImageIdentify ImageInstanceQ ImageKeypoints ImageLevels ImageLines ImageMargins ImageMarker ImageMarkers ImageMeasurements ImageMesh ImageMultiply ImageOffset ImagePad ImagePadding ImagePartition ImagePeriodogram ImagePerspectiveTransformation ImagePosition ImagePreviewFunction ImagePyramid ImagePyramidApply ImageQ ImageRangeCache ImageRecolor ImageReflect ImageRegion ImageResize ImageResolution ImageRestyle ImageRotate ImageRotated ImageSaliencyFilter ImageScaled ImageScan ImageSize ImageSizeAction ImageSizeCache ImageSizeMultipliers ImageSizeRaw ImageSubtract ImageTake ImageTransformation ImageTrim ImageType ImageValue ImageValuePositions ImagingDevice ImplicitRegion Implies Import ImportAutoReplacements ImportByteArray ImportOptions ImportString ImprovementImportance In Inactivate Inactive IncidenceGraph IncidenceList IncidenceMatrix IncludeAromaticBonds IncludeConstantBasis IncludeDefinitions IncludeDirectories IncludeFileExtension IncludeGeneratorTasks IncludeHydrogens IncludeInflections IncludeMetaInformation IncludePods IncludeQuantities IncludeRelatedTables IncludeSingularTerm IncludeWindowTimes Increment IndefiniteMatrixQ Indent IndentingNewlineSpacings IndentMaxFraction IndependenceTest IndependentEdgeSetQ IndependentPhysicalQuantity IndependentUnit IndependentUnitDimension IndependentVertexSetQ Indeterminate IndeterminateThreshold IndexCreationOptions Indexed IndexGraph IndexTag Inequality InexactNumberQ InexactNumbers InfiniteLine InfinitePlane Infinity Infix InflationAdjust InflationMethod Information InformationData InformationDataGrid Inherited InheritScope InhomogeneousPoissonProcess InitialEvaluationHistory Initialization InitializationCell InitializationCellEvaluation InitializationCellWarning InitializationObjects InitializationValue Initialize InitialSeeding InlineCounterAssignments InlineCounterIncrements InlineRules Inner InnerPolygon InnerPolyhedron Inpaint Input InputAliases InputAssumptions InputAutoReplacements InputField InputFieldBox InputFieldBoxOptions InputForm InputGrouping InputNamePacket InputNotebook InputPacket InputSettings InputStream InputString InputStringPacket InputToBoxFormPacket Insert InsertionFunction InsertionPointObject InsertLinebreaks InsertResults Inset Inset3DBox Inset3DBoxOptions InsetBox InsetBoxOptions Insphere Install InstallService InstanceNormalizationLayer InString Integer IntegerDigits IntegerExponent IntegerLength IntegerName IntegerPart IntegerPartitions IntegerQ IntegerReverse Integers IntegerString Integral Integrate Interactive InteractiveTradingChart Interlaced Interleaving InternallyBalancedDecomposition InterpolatingFunction InterpolatingPolynomial Interpolation InterpolationOrder InterpolationPoints InterpolationPrecision Interpretation InterpretationBox InterpretationBoxOptions InterpretationFunction Interpreter InterpretTemplate InterquartileRange Interrupt InterruptSettings IntersectingQ Intersection Interval IntervalIntersection IntervalMarkers IntervalMarkersStyle IntervalMemberQ IntervalSlider IntervalUnion Into Inverse InverseBetaRegularized InverseCDF InverseChiSquareDistribution InverseContinuousWaveletTransform InverseDistanceTransform InverseEllipticNomeQ InverseErf InverseErfc InverseFourier InverseFourierCosTransform InverseFourierSequenceTransform InverseFourierSinTransform InverseFourierTransform InverseFunction InverseFunctions InverseGammaDistribution InverseGammaRegularized InverseGaussianDistribution InverseGudermannian InverseHankelTransform InverseHaversine InverseImagePyramid InverseJacobiCD InverseJacobiCN InverseJacobiCS InverseJacobiDC InverseJacobiDN InverseJacobiDS InverseJacobiNC InverseJacobiND InverseJacobiNS InverseJacobiSC InverseJacobiSD InverseJacobiSN InverseLaplaceTransform InverseMellinTransform InversePermutation InverseRadon InverseRadonTransform InverseSeries InverseShortTimeFourier InverseSpectrogram InverseSurvivalFunction InverseTransformedRegion InverseWaveletTransform InverseWeierstrassP InverseWishartMatrixDistribution InverseZTransform Invisible InvisibleApplication InvisibleTimes IPAddress IrreduciblePolynomialQ IslandData IsolatingInterval IsomorphicGraphQ IsotopeData Italic Item ItemAspectRatio ItemBox ItemBoxOptions ItemSize ItemStyle ItoProcess"+"JaccardDissimilarity JacobiAmplitude Jacobian JacobiCD JacobiCN JacobiCS JacobiDC JacobiDN JacobiDS JacobiNC JacobiND JacobiNS JacobiP JacobiSC JacobiSD JacobiSN JacobiSymbol JacobiZeta JankoGroupJ1 JankoGroupJ2 JankoGroupJ3 JankoGroupJ4 JarqueBeraALMTest JohnsonDistribution Join JoinAcross Joined JoinedCurve JoinedCurveBox JoinedCurveBoxOptions JoinForm JordanDecomposition JordanModelDecomposition JulianDate JuliaSetBoettcher JuliaSetIterationCount JuliaSetPlot JuliaSetPoints"+"K KagiChart KaiserBesselWindow KaiserWindow KalmanEstimator KalmanFilter KarhunenLoeveDecomposition KaryTree KatzCentrality KCoreComponents KDistribution KEdgeConnectedComponents KEdgeConnectedGraphQ KelvinBei KelvinBer KelvinKei KelvinKer KendallTau KendallTauTest KernelExecute KernelFunction KernelMixtureDistribution Kernels Ket Key KeyCollisionFunction KeyComplement KeyDrop KeyDropFrom KeyExistsQ KeyFreeQ KeyIntersection KeyMap KeyMemberQ KeypointStrength Keys KeySelect KeySort KeySortBy KeyTake KeyUnion KeyValueMap KeyValuePattern Khinchin KillProcess KirchhoffGraph KirchhoffMatrix KleinInvariantJ KnapsackSolve KnightTourGraph KnotData KnownUnitQ KochCurve KolmogorovSmirnovTest KroneckerDelta KroneckerModelDecomposition KroneckerProduct KroneckerSymbol KuiperTest KumaraswamyDistribution Kurtosis KuwaharaFilter KVertexConnectedComponents KVertexConnectedGraphQ"+"LABColor Label Labeled LabeledSlider LabelingFunction LabelingSize LabelStyle LabelVisibility LaguerreL LakeData LambdaComponents LambertW LaminaData LanczosWindow LandauDistribution Language LanguageCategory LanguageData LanguageIdentify LanguageOptions LaplaceDistribution LaplaceTransform Laplacian LaplacianFilter LaplacianGaussianFilter Large Larger Last Latitude LatitudeLongitude LatticeData LatticeReduce Launch LaunchKernels LayeredGraphPlot LayerSizeFunction LayoutInformation LCHColor LCM LeaderSize LeafCount LeapYearQ LearnDistribution LearnedDistribution LearningRate LearningRateMultipliers LeastSquares LeastSquaresFilterKernel Left LeftArrow LeftArrowBar LeftArrowRightArrow LeftDownTeeVector LeftDownVector LeftDownVectorBar LeftRightArrow LeftRightVector LeftTee LeftTeeArrow LeftTeeVector LeftTriangle LeftTriangleBar LeftTriangleEqual LeftUpDownVector LeftUpTeeVector LeftUpVector LeftUpVectorBar LeftVector LeftVectorBar LegendAppearance Legended LegendFunction LegendLabel LegendLayout LegendMargins LegendMarkers LegendMarkerSize LegendreP LegendreQ LegendreType Length LengthWhile LerchPhi Less LessEqual LessEqualGreater LessEqualThan LessFullEqual LessGreater LessLess LessSlantEqual LessThan LessTilde LetterCharacter LetterCounts LetterNumber LetterQ Level LeveneTest LeviCivitaTensor LevyDistribution Lexicographic LibraryDataType LibraryFunction LibraryFunctionError LibraryFunctionInformation LibraryFunctionLoad LibraryFunctionUnload LibraryLoad LibraryUnload LicenseID LiftingFilterData LiftingWaveletTransform LightBlue LightBrown LightCyan Lighter LightGray LightGreen Lighting LightingAngle LightMagenta LightOrange LightPink LightPurple LightRed LightSources LightYellow Likelihood Limit LimitsPositioning LimitsPositioningTokens LindleyDistribution Line Line3DBox Line3DBoxOptions LinearFilter LinearFractionalOptimization LinearFractionalTransform LinearGradientImage LinearizingTransformationData LinearLayer LinearModelFit LinearOffsetFunction LinearOptimization LinearProgramming LinearRecurrence LinearSolve LinearSolveFunction LineBox LineBoxOptions LineBreak LinebreakAdjustments LineBreakChart LinebreakSemicolonWeighting LineBreakWithin LineColor LineGraph LineIndent LineIndentMaxFraction LineIntegralConvolutionPlot LineIntegralConvolutionScale LineLegend LineOpacity LineSpacing LineWrapParts LinkActivate LinkClose LinkConnect LinkConnectedQ LinkCreate LinkError LinkFlush LinkFunction LinkHost LinkInterrupt LinkLaunch LinkMode LinkObject LinkOpen LinkOptions LinkPatterns LinkProtocol LinkRankCentrality LinkRead LinkReadHeld LinkReadyQ Links LinkService LinkWrite LinkWriteHeld LiouvilleLambda List Listable ListAnimate ListContourPlot ListContourPlot3D ListConvolve ListCorrelate ListCurvePathPlot ListDeconvolve ListDensityPlot ListDensityPlot3D Listen ListFormat ListFourierSequenceTransform ListInterpolation ListLineIntegralConvolutionPlot ListLinePlot ListLogLinearPlot ListLogLogPlot ListLogPlot ListPicker ListPickerBox ListPickerBoxBackground ListPickerBoxOptions ListPlay ListPlot ListPlot3D ListPointPlot3D ListPolarPlot ListQ ListSliceContourPlot3D ListSliceDensityPlot3D ListSliceVectorPlot3D ListStepPlot ListStreamDensityPlot ListStreamPlot ListSurfacePlot3D ListVectorDensityPlot ListVectorPlot ListVectorPlot3D ListZTransform Literal LiteralSearch LocalAdaptiveBinarize LocalCache LocalClusteringCoefficient LocalizeDefinitions LocalizeVariables LocalObject LocalObjects LocalResponseNormalizationLayer LocalSubmit LocalSymbol LocalTime LocalTimeZone LocationEquivalenceTest LocationTest Locator LocatorAutoCreate LocatorBox LocatorBoxOptions LocatorCentering LocatorPane LocatorPaneBox LocatorPaneBoxOptions LocatorRegion Locked Log Log10 Log2 LogBarnesG LogGamma LogGammaDistribution LogicalExpand LogIntegral LogisticDistribution LogisticSigmoid LogitModelFit LogLikelihood LogLinearPlot LogLogisticDistribution LogLogPlot LogMultinormalDistribution LogNormalDistribution LogPlot LogRankTest LogSeriesDistribution LongEqual Longest LongestCommonSequence LongestCommonSequencePositions LongestCommonSubsequence LongestCommonSubsequencePositions LongestMatch LongestOrderedSequence LongForm Longitude LongLeftArrow LongLeftRightArrow LongRightArrow LongShortTermMemoryLayer Lookup Loopback LoopFreeGraphQ LossFunction LowerCaseQ LowerLeftArrow LowerRightArrow LowerTriangularize LowerTriangularMatrixQ LowpassFilter LQEstimatorGains LQGRegulator LQOutputRegulatorGains LQRegulatorGains LUBackSubstitution LucasL LuccioSamiComponents LUDecomposition LunarEclipse LUVColor LyapunovSolve LyonsGroupLy"+"MachineID MachineName MachineNumberQ MachinePrecision MacintoshSystemPageSetup Magenta Magnification Magnify MailAddressValidation MailExecute MailFolder MailItem MailReceiverFunction MailResponseFunction MailSearch MailServerConnect MailServerConnection MailSettings MainSolve MaintainDynamicCaches Majority MakeBoxes MakeExpression MakeRules ManagedLibraryExpressionID ManagedLibraryExpressionQ MandelbrotSetBoettcher MandelbrotSetDistance MandelbrotSetIterationCount MandelbrotSetMemberQ MandelbrotSetPlot MangoldtLambda ManhattanDistance Manipulate Manipulator MannedSpaceMissionData MannWhitneyTest MantissaExponent Manual Map MapAll MapAt MapIndexed MAProcess MapThread MarchenkoPasturDistribution MarcumQ MardiaCombinedTest MardiaKurtosisTest MardiaSkewnessTest MarginalDistribution MarkovProcessProperties Masking MatchingDissimilarity MatchLocalNameQ MatchLocalNames MatchQ Material MathematicalFunctionData MathematicaNotation MathieuC MathieuCharacteristicA MathieuCharacteristicB MathieuCharacteristicExponent MathieuCPrime MathieuGroupM11 MathieuGroupM12 MathieuGroupM22 MathieuGroupM23 MathieuGroupM24 MathieuS MathieuSPrime MathMLForm MathMLText Matrices MatrixExp MatrixForm MatrixFunction MatrixLog MatrixNormalDistribution MatrixPlot MatrixPower MatrixPropertyDistribution MatrixQ MatrixRank MatrixTDistribution Max MaxBend MaxCellMeasure MaxColorDistance MaxDetect MaxDuration MaxExtraBandwidths MaxExtraConditions MaxFeatureDisplacement MaxFeatures MaxFilter MaximalBy Maximize MaxItems MaxIterations MaxLimit MaxMemoryUsed MaxMixtureKernels MaxOverlapFraction MaxPlotPoints MaxPoints MaxRecursion MaxStableDistribution MaxStepFraction MaxSteps MaxStepSize MaxTrainingRounds MaxValue MaxwellDistribution MaxWordGap McLaughlinGroupMcL Mean MeanAbsoluteLossLayer MeanAround MeanClusteringCoefficient MeanDegreeConnectivity MeanDeviation MeanFilter MeanGraphDistance MeanNeighborDegree MeanShift MeanShiftFilter MeanSquaredLossLayer Median MedianDeviation MedianFilter MedicalTestData Medium MeijerG MeijerGReduce MeixnerDistribution MellinConvolve MellinTransform MemberQ MemoryAvailable MemoryConstrained MemoryConstraint MemoryInUse MengerMesh Menu MenuAppearance MenuCommandKey MenuEvaluator MenuItem MenuList MenuPacket MenuSortingValue MenuStyle MenuView Merge MergeDifferences MergingFunction MersennePrimeExponent MersennePrimeExponentQ Mesh MeshCellCentroid MeshCellCount MeshCellHighlight MeshCellIndex MeshCellLabel MeshCellMarker MeshCellMeasure MeshCellQuality MeshCells MeshCellShapeFunction MeshCellStyle MeshCoordinates MeshFunctions MeshPrimitives MeshQualityGoal MeshRange MeshRefinementFunction MeshRegion MeshRegionQ MeshShading MeshStyle Message MessageDialog MessageList MessageName MessageObject MessageOptions MessagePacket Messages MessagesNotebook MetaCharacters MetaInformation MeteorShowerData Method MethodOptions MexicanHatWavelet MeyerWavelet Midpoint Min MinColorDistance MinDetect MineralData MinFilter MinimalBy MinimalPolynomial MinimalStateSpaceModel Minimize MinimumTimeIncrement MinIntervalSize MinkowskiQuestionMark MinLimit MinMax MinorPlanetData Minors MinRecursion MinSize MinStableDistribution Minus MinusPlus MinValue Missing MissingBehavior MissingDataMethod MissingDataRules MissingQ MissingString MissingStyle MissingValuePattern MittagLefflerE MixedFractionParts MixedGraphQ MixedMagnitude MixedRadix MixedRadixQuantity MixedUnit MixtureDistribution Mod Modal Mode Modular ModularInverse ModularLambda Module Modulus MoebiusMu Molecule MoleculeContainsQ MoleculeEquivalentQ MoleculeGraph MoleculeModify MoleculePattern MoleculePlot MoleculePlot3D MoleculeProperty MoleculeQ MoleculeValue Moment Momentary MomentConvert MomentEvaluate MomentGeneratingFunction MomentOfInertia Monday Monitor MonomialList MonomialOrder MonsterGroupM MoonPhase MoonPosition MorletWavelet MorphologicalBinarize MorphologicalBranchPoints MorphologicalComponents MorphologicalEulerNumber MorphologicalGraph MorphologicalPerimeter MorphologicalTransform MortalityData Most MountainData MouseAnnotation MouseAppearance MouseAppearanceTag MouseButtons Mouseover MousePointerNote MousePosition MovieData MovingAverage MovingMap MovingMedian MoyalDistribution Multicolumn MultiedgeStyle MultigraphQ MultilaunchWarning MultiLetterItalics MultiLetterStyle MultilineFunction Multinomial MultinomialDistribution MultinormalDistribution MultiplicativeOrder Multiplicity MultiplySides Multiselection MultivariateHypergeometricDistribution MultivariatePoissonDistribution MultivariateTDistribution"+"N NakagamiDistribution NameQ Names NamespaceBox NamespaceBoxOptions Nand NArgMax NArgMin NBernoulliB NBodySimulation NBodySimulationData NCache NDEigensystem NDEigenvalues NDSolve NDSolveValue Nearest NearestFunction NearestNeighborGraph NearestTo NebulaData NeedCurrentFrontEndPackagePacket NeedCurrentFrontEndSymbolsPacket NeedlemanWunschSimilarity Needs Negative NegativeBinomialDistribution NegativeDefiniteMatrixQ NegativeIntegers NegativeMultinomialDistribution NegativeRationals NegativeReals NegativeSemidefiniteMatrixQ NeighborhoodData NeighborhoodGraph Nest NestedGreaterGreater NestedLessLess NestedScriptRules NestGraph NestList NestWhile NestWhileList NetAppend NetBidirectionalOperator NetChain NetDecoder NetDelete NetDrop NetEncoder NetEvaluationMode NetExtract NetFlatten NetFoldOperator NetGraph NetInformation NetInitialize NetInsert NetInsertSharedArrays NetJoin NetMapOperator NetMapThreadOperator NetMeasurements NetModel NetNestOperator NetPairEmbeddingOperator NetPort NetPortGradient NetPrepend NetRename NetReplace NetReplacePart NetSharedArray NetStateObject NetTake NetTrain NetTrainResultsObject NetworkPacketCapture NetworkPacketRecording NetworkPacketRecordingDuring NetworkPacketTrace NeumannValue NevilleThetaC NevilleThetaD NevilleThetaN NevilleThetaS NewPrimitiveStyle NExpectation Next NextCell NextDate NextPrime NextScheduledTaskTime NHoldAll NHoldFirst NHoldRest NicholsGridLines NicholsPlot NightHemisphere NIntegrate NMaximize NMaxValue NMinimize NMinValue NominalVariables NonAssociative NoncentralBetaDistribution NoncentralChiSquareDistribution NoncentralFRatioDistribution NoncentralStudentTDistribution NonCommutativeMultiply NonConstants NondimensionalizationTransform None NoneTrue NonlinearModelFit NonlinearStateSpaceModel NonlocalMeansFilter NonNegative NonNegativeIntegers NonNegativeRationals NonNegativeReals NonPositive NonPositiveIntegers NonPositiveRationals NonPositiveReals Nor NorlundB Norm Normal NormalDistribution NormalGrouping NormalizationLayer Normalize Normalized NormalizedSquaredEuclideanDistance NormalMatrixQ NormalsFunction NormFunction Not NotCongruent NotCupCap NotDoubleVerticalBar Notebook NotebookApply NotebookAutoSave NotebookClose NotebookConvertSettings NotebookCreate NotebookCreateReturnObject NotebookDefault NotebookDelete NotebookDirectory NotebookDynamicExpression NotebookEvaluate NotebookEventActions NotebookFileName NotebookFind NotebookFindReturnObject NotebookGet NotebookGetLayoutInformationPacket NotebookGetMisspellingsPacket NotebookImport NotebookInformation NotebookInterfaceObject NotebookLocate NotebookObject NotebookOpen NotebookOpenReturnObject NotebookPath NotebookPrint NotebookPut NotebookPutReturnObject NotebookRead NotebookResetGeneratedCells Notebooks NotebookSave NotebookSaveAs NotebookSelection NotebookSetupLayoutInformationPacket NotebooksMenu NotebookTemplate NotebookWrite NotElement NotEqualTilde NotExists NotGreater NotGreaterEqual NotGreaterFullEqual NotGreaterGreater NotGreaterLess NotGreaterSlantEqual NotGreaterTilde Nothing NotHumpDownHump NotHumpEqual NotificationFunction NotLeftTriangle NotLeftTriangleBar NotLeftTriangleEqual NotLess NotLessEqual NotLessFullEqual NotLessGreater NotLessLess NotLessSlantEqual NotLessTilde NotNestedGreaterGreater NotNestedLessLess NotPrecedes NotPrecedesEqual NotPrecedesSlantEqual NotPrecedesTilde NotReverseElement NotRightTriangle NotRightTriangleBar NotRightTriangleEqual NotSquareSubset NotSquareSubsetEqual NotSquareSuperset NotSquareSupersetEqual NotSubset NotSubsetEqual NotSucceeds NotSucceedsEqual NotSucceedsSlantEqual NotSucceedsTilde NotSuperset NotSupersetEqual NotTilde NotTildeEqual NotTildeFullEqual NotTildeTilde NotVerticalBar Now NoWhitespace NProbability NProduct NProductFactors NRoots NSolve NSum NSumTerms NuclearExplosionData NuclearReactorData Null NullRecords NullSpace NullWords Number NumberCompose NumberDecompose NumberExpand NumberFieldClassNumber NumberFieldDiscriminant NumberFieldFundamentalUnits NumberFieldIntegralBasis NumberFieldNormRepresentatives NumberFieldRegulator NumberFieldRootsOfUnity NumberFieldSignature NumberForm NumberFormat NumberLinePlot NumberMarks NumberMultiplier NumberPadding NumberPoint NumberQ NumberSeparator NumberSigns NumberString Numerator NumeratorDenominator NumericalOrder NumericalSort NumericArray NumericArrayQ NumericArrayType NumericFunction NumericQ NuttallWindow NValues NyquistGridLines NyquistPlot"+"O ObservabilityGramian ObservabilityMatrix ObservableDecomposition ObservableModelQ OceanData Octahedron OddQ Off Offset OLEData On ONanGroupON Once OneIdentity Opacity OpacityFunction OpacityFunctionScaling Open OpenAppend Opener OpenerBox OpenerBoxOptions OpenerView OpenFunctionInspectorPacket Opening OpenRead OpenSpecialOptions OpenTemporary OpenWrite Operate OperatingSystem OptimumFlowData Optional OptionalElement OptionInspectorSettings OptionQ Options OptionsPacket OptionsPattern OptionValue OptionValueBox OptionValueBoxOptions Or Orange Order OrderDistribution OrderedQ Ordering OrderingBy OrderingLayer Orderless OrderlessPatternSequence OrnsteinUhlenbeckProcess Orthogonalize OrthogonalMatrixQ Out Outer OuterPolygon OuterPolyhedron OutputAutoOverwrite OutputControllabilityMatrix OutputControllableModelQ OutputForm OutputFormData OutputGrouping OutputMathEditExpression OutputNamePacket OutputResponse OutputSizeLimit OutputStream Over OverBar OverDot Overflow OverHat Overlaps Overlay OverlayBox OverlayBoxOptions Overscript OverscriptBox OverscriptBoxOptions OverTilde OverVector OverwriteTarget OwenT OwnValues"+"Package PackingMethod PaddedForm Padding PaddingLayer PaddingSize PadeApproximant PadLeft PadRight PageBreakAbove PageBreakBelow PageBreakWithin PageFooterLines PageFooters PageHeaderLines PageHeaders PageHeight PageRankCentrality PageTheme PageWidth Pagination PairedBarChart PairedHistogram PairedSmoothHistogram PairedTTest PairedZTest PaletteNotebook PalettePath PalindromeQ Pane PaneBox PaneBoxOptions Panel PanelBox PanelBoxOptions Paneled PaneSelector PaneSelectorBox PaneSelectorBoxOptions PaperWidth ParabolicCylinderD ParagraphIndent ParagraphSpacing ParallelArray ParallelCombine ParallelDo Parallelepiped ParallelEvaluate Parallelization Parallelize ParallelMap ParallelNeeds Parallelogram ParallelProduct ParallelSubmit ParallelSum ParallelTable ParallelTry Parameter ParameterEstimator ParameterMixtureDistribution ParameterVariables ParametricFunction ParametricNDSolve ParametricNDSolveValue ParametricPlot ParametricPlot3D ParametricRegion ParentBox ParentCell ParentConnect ParentDirectory ParentForm Parenthesize ParentList ParentNotebook ParetoDistribution ParetoPickandsDistribution ParkData Part PartBehavior PartialCorrelationFunction PartialD ParticleAcceleratorData ParticleData Partition PartitionGranularity PartitionsP PartitionsQ PartLayer PartOfSpeech PartProtection ParzenWindow PascalDistribution PassEventsDown PassEventsUp Paste PasteAutoQuoteCharacters PasteBoxFormInlineCells PasteButton Path PathGraph PathGraphQ Pattern PatternSequence PatternTest PauliMatrix PaulWavelet Pause PausedTime PDF PeakDetect PeanoCurve PearsonChiSquareTest PearsonCorrelationTest PearsonDistribution PercentForm PerfectNumber PerfectNumberQ PerformanceGoal Perimeter PeriodicBoundaryCondition PeriodicInterpolation Periodogram PeriodogramArray Permanent Permissions PermissionsGroup PermissionsGroupMemberQ PermissionsGroups PermissionsKey PermissionsKeys PermutationCycles PermutationCyclesQ PermutationGroup PermutationLength PermutationList PermutationListQ PermutationMax PermutationMin PermutationOrder PermutationPower PermutationProduct PermutationReplace Permutations PermutationSupport Permute PeronaMalikFilter Perpendicular PerpendicularBisector PersistenceLocation PersistenceTime PersistentObject PersistentObjects PersistentValue PersonData PERTDistribution PetersenGraph PhaseMargins PhaseRange PhysicalSystemData Pi Pick PIDData PIDDerivativeFilter PIDFeedforward PIDTune Piecewise PiecewiseExpand PieChart PieChart3D PillaiTrace PillaiTraceTest PingTime Pink PitchRecognize Pivoting PixelConstrained PixelValue PixelValuePositions Placed Placeholder PlaceholderReplace Plain PlanarAngle PlanarGraph PlanarGraphQ PlanckRadiationLaw PlaneCurveData PlanetaryMoonData PlanetData PlantData Play PlayRange Plot Plot3D Plot3Matrix PlotDivision PlotJoined PlotLabel PlotLabels PlotLayout PlotLegends PlotMarkers PlotPoints PlotRange PlotRangeClipping PlotRangeClipPlanesStyle PlotRangePadding PlotRegion PlotStyle PlotTheme Pluralize Plus PlusMinus Pochhammer PodStates PodWidth Point Point3DBox Point3DBoxOptions PointBox PointBoxOptions PointFigureChart PointLegend PointSize PoissonConsulDistribution PoissonDistribution PoissonProcess PoissonWindow PolarAxes PolarAxesOrigin PolarGridLines PolarPlot PolarTicks PoleZeroMarkers PolyaAeppliDistribution PolyGamma Polygon Polygon3DBox Polygon3DBoxOptions PolygonalNumber PolygonAngle PolygonBox PolygonBoxOptions PolygonCoordinates PolygonDecomposition PolygonHoleScale PolygonIntersections PolygonScale Polyhedron PolyhedronAngle PolyhedronCoordinates PolyhedronData PolyhedronDecomposition PolyhedronGenus PolyLog PolynomialExtendedGCD PolynomialForm PolynomialGCD PolynomialLCM PolynomialMod PolynomialQ PolynomialQuotient PolynomialQuotientRemainder PolynomialReduce PolynomialRemainder Polynomials PoolingLayer PopupMenu PopupMenuBox PopupMenuBoxOptions PopupView PopupWindow Position PositionIndex Positive PositiveDefiniteMatrixQ PositiveIntegers PositiveRationals PositiveReals PositiveSemidefiniteMatrixQ PossibleZeroQ Postfix PostScript Power PowerDistribution PowerExpand PowerMod PowerModList PowerRange PowerSpectralDensity PowersRepresentations PowerSymmetricPolynomial Precedence PrecedenceForm Precedes PrecedesEqual PrecedesSlantEqual PrecedesTilde Precision PrecisionGoal PreDecrement Predict PredictionRoot PredictorFunction PredictorInformation PredictorMeasurements PredictorMeasurementsObject PreemptProtect PreferencesPath Prefix PreIncrement Prepend PrependLayer PrependTo PreprocessingRules PreserveColor PreserveImageOptions Previous PreviousCell PreviousDate PriceGraphDistribution PrimaryPlaceholder Prime PrimeNu PrimeOmega PrimePi PrimePowerQ PrimeQ Primes PrimeZetaP PrimitivePolynomialQ PrimitiveRoot PrimitiveRootList PrincipalComponents PrincipalValue Print PrintableASCIIQ PrintAction PrintForm PrintingCopies PrintingOptions PrintingPageRange PrintingStartingPageNumber PrintingStyleEnvironment Printout3D Printout3DPreviewer PrintPrecision PrintTemporary Prism PrismBox PrismBoxOptions PrivateCellOptions PrivateEvaluationOptions PrivateFontOptions PrivateFrontEndOptions PrivateKey PrivateNotebookOptions PrivatePaths Probability ProbabilityDistribution ProbabilityPlot ProbabilityPr ProbabilityScalePlot ProbitModelFit ProcessConnection ProcessDirectory ProcessEnvironment Processes ProcessEstimator ProcessInformation ProcessObject ProcessParameterAssumptions ProcessParameterQ ProcessStateDomain ProcessStatus ProcessTimeDomain Product ProductDistribution ProductLog ProgressIndicator ProgressIndicatorBox ProgressIndicatorBoxOptions Projection Prolog PromptForm ProofObject Properties Property PropertyList PropertyValue Proportion Proportional Protect Protected ProteinData Pruning PseudoInverse PsychrometricPropertyData PublicKey PublisherID PulsarData PunctuationCharacter Purple Put PutAppend Pyramid PyramidBox PyramidBoxOptions"+"QBinomial QFactorial QGamma QHypergeometricPFQ QnDispersion QPochhammer QPolyGamma QRDecomposition QuadraticIrrationalQ QuadraticOptimization Quantile QuantilePlot Quantity QuantityArray QuantityDistribution QuantityForm QuantityMagnitude QuantityQ QuantityUnit QuantityVariable QuantityVariableCanonicalUnit QuantityVariableDimensions QuantityVariableIdentifier QuantityVariablePhysicalQuantity Quartics QuartileDeviation Quartiles QuartileSkewness Query QueueingNetworkProcess QueueingProcess QueueProperties Quiet Quit Quotient QuotientRemainder"+"RadialGradientImage RadialityCentrality RadicalBox RadicalBoxOptions RadioButton RadioButtonBar RadioButtonBox RadioButtonBoxOptions Radon RadonTransform RamanujanTau RamanujanTauL RamanujanTauTheta RamanujanTauZ Ramp Random RandomChoice RandomColor RandomComplex RandomEntity RandomFunction RandomGeoPosition RandomGraph RandomImage RandomInstance RandomInteger RandomPermutation RandomPoint RandomPolygon RandomPolyhedron RandomPrime RandomReal RandomSample RandomSeed RandomSeeding RandomVariate RandomWalkProcess RandomWord Range RangeFilter RangeSpecification RankedMax RankedMin RarerProbability Raster Raster3D Raster3DBox Raster3DBoxOptions RasterArray RasterBox RasterBoxOptions Rasterize RasterSize Rational RationalFunctions Rationalize Rationals Ratios RawArray RawBoxes RawData RawMedium RayleighDistribution Re Read ReadByteArray ReadLine ReadList ReadProtected ReadString Real RealAbs RealBlockDiagonalForm RealDigits RealExponent Reals RealSign Reap RecognitionPrior RecognitionThreshold Record RecordLists RecordSeparators Rectangle RectangleBox RectangleBoxOptions RectangleChart RectangleChart3D RectangularRepeatingElement RecurrenceFilter RecurrenceTable RecurringDigitsForm Red Reduce RefBox ReferenceLineStyle ReferenceMarkers ReferenceMarkerStyle Refine ReflectionMatrix ReflectionTransform Refresh RefreshRate Region RegionBinarize RegionBoundary RegionBounds RegionCentroid RegionDifference RegionDimension RegionDisjoint RegionDistance RegionDistanceFunction RegionEmbeddingDimension RegionEqual RegionFunction RegionImage RegionIntersection RegionMeasure RegionMember RegionMemberFunction RegionMoment RegionNearest RegionNearestFunction RegionPlot RegionPlot3D RegionProduct RegionQ RegionResize RegionSize RegionSymmetricDifference RegionUnion RegionWithin RegisterExternalEvaluator RegularExpression Regularization RegularlySampledQ RegularPolygon ReIm ReImLabels ReImPlot ReImStyle Reinstall RelationalDatabase RelationGraph Release ReleaseHold ReliabilityDistribution ReliefImage ReliefPlot RemoteAuthorizationCaching RemoteConnect RemoteConnectionObject RemoteFile RemoteRun RemoteRunProcess Remove RemoveAlphaChannel RemoveAsynchronousTask RemoveAudioStream RemoveBackground RemoveChannelListener RemoveChannelSubscribers Removed RemoveDiacritics RemoveInputStreamMethod RemoveOutputStreamMethod RemoveProperty RemoveScheduledTask RemoveUsers RenameDirectory RenameFile RenderAll RenderingOptions RenewalProcess RenkoChart RepairMesh Repeated RepeatedNull RepeatedString RepeatedTiming RepeatingElement Replace ReplaceAll ReplaceHeldPart ReplaceImageValue ReplaceList ReplacePart ReplacePixelValue ReplaceRepeated ReplicateLayer RequiredPhysicalQuantities Resampling ResamplingAlgorithmData ResamplingMethod Rescale RescalingTransform ResetDirectory ResetMenusPacket ResetScheduledTask ReshapeLayer Residue ResizeLayer Resolve ResourceAcquire ResourceData ResourceFunction ResourceObject ResourceRegister ResourceRemove ResourceSearch ResourceSubmissionObject ResourceSubmit ResourceSystemBase ResourceUpdate ResponseForm Rest RestartInterval Restricted Resultant ResumePacket Return ReturnEntersInput ReturnExpressionPacket ReturnInputFormPacket ReturnPacket ReturnReceiptFunction ReturnTextPacket Reverse ReverseBiorthogonalSplineWavelet ReverseElement ReverseEquilibrium ReverseGraph ReverseSort ReverseSortBy ReverseUpEquilibrium RevolutionAxis RevolutionPlot3D RGBColor RiccatiSolve RiceDistribution RidgeFilter RiemannR RiemannSiegelTheta RiemannSiegelZ RiemannXi Riffle Right RightArrow RightArrowBar RightArrowLeftArrow RightComposition RightCosetRepresentative RightDownTeeVector RightDownVector RightDownVectorBar RightTee RightTeeArrow RightTeeVector RightTriangle RightTriangleBar RightTriangleEqual RightUpDownVector RightUpTeeVector RightUpVector RightUpVectorBar RightVector RightVectorBar RiskAchievementImportance RiskReductionImportance RogersTanimotoDissimilarity RollPitchYawAngles RollPitchYawMatrix RomanNumeral Root RootApproximant RootIntervals RootLocusPlot RootMeanSquare RootOfUnityQ RootReduce Roots RootSum Rotate RotateLabel RotateLeft RotateRight RotationAction RotationBox RotationBoxOptions RotationMatrix RotationTransform Round RoundImplies RoundingRadius Row RowAlignments RowBackgrounds RowBox RowHeights RowLines RowMinHeight RowReduce RowsEqual RowSpacings RSolve RSolveValue RudinShapiro RudvalisGroupRu Rule RuleCondition RuleDelayed RuleForm RulePlot RulerUnits Run RunProcess RunScheduledTask RunThrough RuntimeAttributes RuntimeOptions RussellRaoDissimilarity"+"SameQ SameTest SampledEntityClass SampleDepth SampledSoundFunction SampledSoundList SampleRate SamplingPeriod SARIMAProcess SARMAProcess SASTriangle SatelliteData SatisfiabilityCount SatisfiabilityInstances SatisfiableQ Saturday Save Saveable SaveAutoDelete SaveConnection SaveDefinitions SavitzkyGolayMatrix SawtoothWave Scale Scaled ScaleDivisions ScaledMousePosition ScaleOrigin ScalePadding ScaleRanges ScaleRangeStyle ScalingFunctions ScalingMatrix ScalingTransform Scan ScheduledTask ScheduledTaskActiveQ ScheduledTaskInformation ScheduledTaskInformationData ScheduledTaskObject ScheduledTasks SchurDecomposition ScientificForm ScientificNotationThreshold ScorerGi ScorerGiPrime ScorerHi ScorerHiPrime ScreenRectangle ScreenStyleEnvironment ScriptBaselineShifts ScriptForm ScriptLevel ScriptMinSize ScriptRules ScriptSizeMultipliers Scrollbars ScrollingOptions ScrollPosition SearchAdjustment SearchIndexObject SearchIndices SearchQueryString SearchResultObject Sec Sech SechDistribution SecondOrderConeOptimization SectionGrouping SectorChart SectorChart3D SectorOrigin SectorSpacing SecuredAuthenticationKey SecuredAuthenticationKeys SeedRandom Select Selectable SelectComponents SelectedCells SelectedNotebook SelectFirst Selection SelectionAnimate SelectionCell SelectionCellCreateCell SelectionCellDefaultStyle SelectionCellParentStyle SelectionCreateCell SelectionDebuggerTag SelectionDuplicateCell SelectionEvaluate SelectionEvaluateCreateCell SelectionMove SelectionPlaceholder SelectionSetStyle SelectWithContents SelfLoops SelfLoopStyle SemanticImport SemanticImportString SemanticInterpretation SemialgebraicComponentInstances SemidefiniteOptimization SendMail SendMessage Sequence SequenceAlignment SequenceAttentionLayer SequenceCases SequenceCount SequenceFold SequenceFoldList SequenceForm SequenceHold SequenceLastLayer SequenceMostLayer SequencePosition SequencePredict SequencePredictorFunction SequenceReplace SequenceRestLayer SequenceReverseLayer SequenceSplit Series SeriesCoefficient SeriesData ServiceConnect ServiceDisconnect ServiceExecute ServiceObject ServiceRequest ServiceResponse ServiceSubmit SessionSubmit SessionTime Set SetAccuracy SetAlphaChannel SetAttributes Setbacks SetBoxFormNamesPacket SetCloudDirectory SetCookies SetDelayed SetDirectory SetEnvironment SetEvaluationNotebook SetFileDate SetFileLoadingContext SetNotebookStatusLine SetOptions SetOptionsPacket SetPermissions SetPrecision SetProperty SetSecuredAuthenticationKey SetSelectedNotebook SetSharedFunction SetSharedVariable SetSpeechParametersPacket SetStreamPosition SetSystemModel SetSystemOptions Setter SetterBar SetterBox SetterBoxOptions Setting SetUsers SetValue Shading Shallow ShannonWavelet ShapiroWilkTest Share SharingList Sharpen ShearingMatrix ShearingTransform ShellRegion ShenCastanMatrix ShiftedGompertzDistribution ShiftRegisterSequence Short ShortDownArrow Shortest ShortestMatch ShortestPathFunction ShortLeftArrow ShortRightArrow ShortTimeFourier ShortTimeFourierData ShortUpArrow Show ShowAutoConvert ShowAutoSpellCheck ShowAutoStyles ShowCellBracket ShowCellLabel ShowCellTags ShowClosedCellArea ShowCodeAssist ShowContents ShowControls ShowCursorTracker ShowGroupOpenCloseIcon ShowGroupOpener ShowInvisibleCharacters ShowPageBreaks ShowPredictiveInterface ShowSelection ShowShortBoxForm ShowSpecialCharacters ShowStringCharacters ShowSyntaxStyles ShrinkingDelay ShrinkWrapBoundingBox SiderealTime SiegelTheta SiegelTukeyTest SierpinskiCurve SierpinskiMesh Sign Signature SignedRankTest SignedRegionDistance SignificanceLevel SignPadding SignTest SimilarityRules SimpleGraph SimpleGraphQ SimplePolygonQ SimplePolyhedronQ Simplex Simplify Sin Sinc SinghMaddalaDistribution SingleEvaluation SingleLetterItalics SingleLetterStyle SingularValueDecomposition SingularValueList SingularValuePlot SingularValues Sinh SinhIntegral SinIntegral SixJSymbol Skeleton SkeletonTransform SkellamDistribution Skewness SkewNormalDistribution SkinStyle Skip SliceContourPlot3D SliceDensityPlot3D SliceDistribution SliceVectorPlot3D Slider Slider2D Slider2DBox Slider2DBoxOptions SliderBox SliderBoxOptions SlideView Slot SlotSequence Small SmallCircle Smaller SmithDecomposition SmithDelayCompensator SmithWatermanSimilarity SmoothDensityHistogram SmoothHistogram SmoothHistogram3D SmoothKernelDistribution SnDispersion Snippet SnubPolyhedron SocialMediaData Socket SocketConnect SocketListen SocketListener SocketObject SocketOpen SocketReadMessage SocketReadyQ Sockets SocketWaitAll SocketWaitNext SoftmaxLayer SokalSneathDissimilarity SolarEclipse SolarSystemFeatureData SolidAngle SolidData SolidRegionQ Solve SolveAlways SolveDelayed Sort SortBy SortedBy SortedEntityClass Sound SoundAndGraphics SoundNote SoundVolume SourceLink Sow Space SpaceCurveData SpaceForm Spacer Spacings Span SpanAdjustments SpanCharacterRounding SpanFromAbove SpanFromBoth SpanFromLeft SpanLineThickness SpanMaxSize SpanMinSize SpanningCharacters SpanSymmetric SparseArray SpatialGraphDistribution SpatialMedian SpatialTransformationLayer Speak SpeakTextPacket SpearmanRankTest SpearmanRho SpeciesData SpecificityGoal SpectralLineData Spectrogram SpectrogramArray Specularity SpeechRecognize SpeechSynthesize SpellingCorrection SpellingCorrectionList SpellingDictionaries SpellingDictionariesPath SpellingOptions SpellingSuggestionsPacket Sphere SphereBox SpherePoints SphericalBesselJ SphericalBesselY SphericalHankelH1 SphericalHankelH2 SphericalHarmonicY SphericalPlot3D SphericalRegion SphericalShell SpheroidalEigenvalue SpheroidalJoiningFactor SpheroidalPS SpheroidalPSPrime SpheroidalQS SpheroidalQSPrime SpheroidalRadialFactor SpheroidalS1 SpheroidalS1Prime SpheroidalS2 SpheroidalS2Prime Splice SplicedDistribution SplineClosed SplineDegree SplineKnots SplineWeights Split SplitBy SpokenString Sqrt SqrtBox SqrtBoxOptions Square SquaredEuclideanDistance SquareFreeQ SquareIntersection SquareMatrixQ SquareRepeatingElement SquaresR SquareSubset SquareSubsetEqual SquareSuperset SquareSupersetEqual SquareUnion SquareWave SSSTriangle StabilityMargins StabilityMarginsStyle StableDistribution Stack StackBegin StackComplete StackedDateListPlot StackedListPlot StackInhibit StadiumShape StandardAtmosphereData StandardDeviation StandardDeviationFilter StandardForm Standardize Standardized StandardOceanData StandbyDistribution Star StarClusterData StarData StarGraph StartAsynchronousTask StartExternalSession StartingStepSize StartOfLine StartOfString StartProcess StartScheduledTask StartupSound StartWebSession StateDimensions StateFeedbackGains StateOutputEstimator StateResponse StateSpaceModel StateSpaceRealization StateSpaceTransform StateTransformationLinearize StationaryDistribution StationaryWaveletPacketTransform StationaryWaveletTransform StatusArea StatusCentrality StepMonitor StereochemistryElements StieltjesGamma StirlingS1 StirlingS2 StopAsynchronousTask StoppingPowerData StopScheduledTask StrataVariables StratonovichProcess StreamColorFunction StreamColorFunctionScaling StreamDensityPlot StreamMarkers StreamPlot StreamPoints StreamPosition Streams StreamScale StreamStyle String StringBreak StringByteCount StringCases StringContainsQ StringCount StringDelete StringDrop StringEndsQ StringExpression StringExtract StringForm StringFormat StringFreeQ StringInsert StringJoin StringLength StringMatchQ StringPadLeft StringPadRight StringPart StringPartition StringPosition StringQ StringRepeat StringReplace StringReplaceList StringReplacePart StringReverse StringRiffle StringRotateLeft StringRotateRight StringSkeleton StringSplit StringStartsQ StringTake StringTemplate StringToByteArray StringToStream StringTrim StripBoxes StripOnInput StripWrapperBoxes StrokeForm StructuralImportance StructuredArray StructuredSelection StruveH StruveL Stub StudentTDistribution Style StyleBox StyleBoxAutoDelete StyleData StyleDefinitions StyleForm StyleHints StyleKeyMapping StyleMenuListing StyleNameDialogSettings StyleNames StylePrint StyleSheetPath Subdivide Subfactorial Subgraph SubMinus SubPlus SubresultantPolynomialRemainders SubresultantPolynomials Subresultants Subscript SubscriptBox SubscriptBoxOptions Subscripted Subsequences Subset SubsetEqual SubsetMap SubsetQ Subsets SubStar SubstitutionSystem Subsuperscript SubsuperscriptBox SubsuperscriptBoxOptions Subtract SubtractFrom SubtractSides SubValues Succeeds SucceedsEqual SucceedsSlantEqual SucceedsTilde Success SuchThat Sum SumConvergence SummationLayer Sunday SunPosition Sunrise Sunset SuperDagger SuperMinus SupernovaData SuperPlus Superscript SuperscriptBox SuperscriptBoxOptions Superset SupersetEqual SuperStar Surd SurdForm SurfaceArea SurfaceColor SurfaceData SurfaceGraphics SurvivalDistribution SurvivalFunction SurvivalModel SurvivalModelFit SuspendPacket SuzukiDistribution SuzukiGroupSuz SwatchLegend Switch Symbol SymbolName SymletWavelet Symmetric SymmetricGroup SymmetricKey SymmetricMatrixQ SymmetricPolynomial SymmetricReduction Symmetrize SymmetrizedArray SymmetrizedArrayRules SymmetrizedDependentComponents SymmetrizedIndependentComponents SymmetrizedReplacePart SynchronousInitialization SynchronousUpdating Synonyms Syntax SyntaxForm SyntaxInformation SyntaxLength SyntaxPacket SyntaxQ SynthesizeMissingValues SystemDialogInput SystemException SystemGet SystemHelpPath SystemInformation SystemInformationData SystemInstall SystemModel SystemModeler SystemModelExamples SystemModelLinearize SystemModelParametricSimulate SystemModelPlot SystemModelProgressReporting SystemModelReliability SystemModels SystemModelSimulate SystemModelSimulateSensitivity SystemModelSimulationData SystemOpen SystemOptions SystemProcessData SystemProcesses SystemsConnectionsModel SystemsModelDelay SystemsModelDelayApproximate SystemsModelDelete SystemsModelDimensions SystemsModelExtract SystemsModelFeedbackConnect SystemsModelLabels SystemsModelLinearity SystemsModelMerge SystemsModelOrder SystemsModelParallelConnect SystemsModelSeriesConnect SystemsModelStateFeedbackConnect SystemsModelVectorRelativeOrders SystemStub SystemTest"+"Tab TabFilling Table TableAlignments TableDepth TableDirections TableForm TableHeadings TableSpacing TableView TableViewBox TableViewBoxBackground TableViewBoxOptions TabSpacings TabView TabViewBox TabViewBoxOptions TagBox TagBoxNote TagBoxOptions TaggingRules TagSet TagSetDelayed TagStyle TagUnset Take TakeDrop TakeLargest TakeLargestBy TakeList TakeSmallest TakeSmallestBy TakeWhile Tally Tan Tanh TargetDevice TargetFunctions TargetSystem TargetUnits TaskAbort TaskExecute TaskObject TaskRemove TaskResume Tasks TaskSuspend TaskWait TautologyQ TelegraphProcess TemplateApply TemplateArgBox TemplateBox TemplateBoxOptions TemplateEvaluate TemplateExpression TemplateIf TemplateObject TemplateSequence TemplateSlot TemplateSlotSequence TemplateUnevaluated TemplateVerbatim TemplateWith TemporalData TemporalRegularity Temporary TemporaryVariable TensorContract TensorDimensions TensorExpand TensorProduct TensorQ TensorRank TensorReduce TensorSymmetry TensorTranspose TensorWedge TestID TestReport TestReportObject TestResultObject Tetrahedron TetrahedronBox TetrahedronBoxOptions TeXForm TeXSave Text Text3DBox Text3DBoxOptions TextAlignment TextBand TextBoundingBox TextBox TextCases TextCell TextClipboardType TextContents TextData TextElement TextForm TextGrid TextJustification TextLine TextPacket TextParagraph TextPosition TextRecognize TextSearch TextSearchReport TextSentences TextString TextStructure TextStyle TextTranslation Texture TextureCoordinateFunction TextureCoordinateScaling TextWords Therefore ThermodynamicData ThermometerGauge Thick Thickness Thin Thinning ThisLink ThompsonGroupTh Thread ThreadingLayer ThreeJSymbol Threshold Through Throw ThueMorse Thumbnail Thursday Ticks TicksStyle TideData Tilde TildeEqual TildeFullEqual TildeTilde TimeConstrained TimeConstraint TimeDirection TimeFormat TimeGoal TimelinePlot TimeObject TimeObjectQ Times TimesBy TimeSeries TimeSeriesAggregate TimeSeriesForecast TimeSeriesInsert TimeSeriesInvertibility TimeSeriesMap TimeSeriesMapThread TimeSeriesModel TimeSeriesModelFit TimeSeriesResample TimeSeriesRescale TimeSeriesShift TimeSeriesThread TimeSeriesWindow TimeUsed TimeValue TimeWarpingCorrespondence TimeWarpingDistance TimeZone TimeZoneConvert TimeZoneOffset Timing Tiny TitleGrouping TitsGroupT ToBoxes ToCharacterCode ToColor ToContinuousTimeModel ToDate Today ToDiscreteTimeModel ToEntity ToeplitzMatrix ToExpression ToFileName Together Toggle ToggleFalse Toggler TogglerBar TogglerBox TogglerBoxOptions ToHeldExpression ToInvertibleTimeSeries TokenWords Tolerance ToLowerCase Tomorrow ToNumberField TooBig Tooltip TooltipBox TooltipBoxOptions TooltipDelay TooltipStyle Top TopHatTransform ToPolarCoordinates TopologicalSort ToRadicals ToRules ToSphericalCoordinates ToString Total TotalHeight TotalLayer TotalVariationFilter TotalWidth TouchPosition TouchscreenAutoZoom TouchscreenControlPlacement ToUpperCase Tr Trace TraceAbove TraceAction TraceBackward TraceDepth TraceDialog TraceForward TraceInternal TraceLevel TraceOff TraceOn TraceOriginal TracePrint TraceScan TrackedSymbols TrackingFunction TracyWidomDistribution TradingChart TraditionalForm TraditionalFunctionNotation TraditionalNotation TraditionalOrder TrainingProgressCheckpointing TrainingProgressFunction TrainingProgressMeasurements TrainingProgressReporting TrainingStoppingCriterion TransferFunctionCancel TransferFunctionExpand TransferFunctionFactor TransferFunctionModel TransferFunctionPoles TransferFunctionTransform TransferFunctionZeros TransformationClass TransformationFunction TransformationFunctions TransformationMatrix TransformedDistribution TransformedField TransformedProcess TransformedRegion TransitionDirection TransitionDuration TransitionEffect TransitiveClosureGraph TransitiveReductionGraph Translate TranslationOptions TranslationTransform Transliterate Transparent TransparentColor Transpose TransposeLayer TrapSelection TravelDirections TravelDirectionsData TravelDistance TravelDistanceList TravelMethod TravelTime TreeForm TreeGraph TreeGraphQ TreePlot TrendStyle Triangle TriangleCenter TriangleConstruct TriangleMeasurement TriangleWave TriangularDistribution TriangulateMesh Trig TrigExpand TrigFactor TrigFactorList Trigger TrigReduce TrigToExp TrimmedMean TrimmedVariance TropicalStormData True TrueQ TruncatedDistribution TruncatedPolyhedron TsallisQExponentialDistribution TsallisQGaussianDistribution TTest Tube TubeBezierCurveBox TubeBezierCurveBoxOptions TubeBox TubeBoxOptions TubeBSplineCurveBox TubeBSplineCurveBoxOptions Tuesday TukeyLambdaDistribution TukeyWindow TunnelData Tuples TuranGraph TuringMachine TuttePolynomial TwoWayRule Typed TypeSpecifier"+"UnateQ Uncompress UnconstrainedParameters Undefined UnderBar Underflow Underlined Underoverscript UnderoverscriptBox UnderoverscriptBoxOptions Underscript UnderscriptBox UnderscriptBoxOptions UnderseaFeatureData UndirectedEdge UndirectedGraph UndirectedGraphQ UndoOptions UndoTrackedVariables Unequal UnequalTo Unevaluated UniformDistribution UniformGraphDistribution UniformPolyhedron UniformSumDistribution Uninstall Union UnionPlus Unique UnitaryMatrixQ UnitBox UnitConvert UnitDimensions Unitize UnitRootTest UnitSimplify UnitStep UnitSystem UnitTriangle UnitVector UnitVectorLayer UnityDimensions UniverseModelData UniversityData UnixTime Unprotect UnregisterExternalEvaluator UnsameQ UnsavedVariables Unset UnsetShared UntrackedVariables Up UpArrow UpArrowBar UpArrowDownArrow Update UpdateDynamicObjects UpdateDynamicObjectsSynchronous UpdateInterval UpdateSearchIndex UpDownArrow UpEquilibrium UpperCaseQ UpperLeftArrow UpperRightArrow UpperTriangularize UpperTriangularMatrixQ Upsample UpSet UpSetDelayed UpTee UpTeeArrow UpTo UpValues URL URLBuild URLDecode URLDispatcher URLDownload URLDownloadSubmit URLEncode URLExecute URLExpand URLFetch URLFetchAsynchronous URLParse URLQueryDecode URLQueryEncode URLRead URLResponseTime URLSave URLSaveAsynchronous URLShorten URLSubmit UseGraphicsRange UserDefinedWavelet Using UsingFrontEnd UtilityFunction"+"V2Get ValenceErrorHandling ValidationLength ValidationSet Value ValueBox ValueBoxOptions ValueDimensions ValueForm ValuePreprocessingFunction ValueQ Values ValuesData Variables Variance VarianceEquivalenceTest VarianceEstimatorFunction VarianceGammaDistribution VarianceTest VectorAngle VectorAround VectorColorFunction VectorColorFunctionScaling VectorDensityPlot VectorGlyphData VectorGreater VectorGreaterEqual VectorLess VectorLessEqual VectorMarkers VectorPlot VectorPlot3D VectorPoints VectorQ Vectors VectorScale VectorStyle Vee Verbatim Verbose VerboseConvertToPostScriptPacket VerificationTest VerifyConvergence VerifyDerivedKey VerifyDigitalSignature VerifyInterpretation VerifySecurityCertificates VerifySolutions VerifyTestAssumptions Version VersionNumber VertexAdd VertexCapacity VertexColors VertexComponent VertexConnectivity VertexContract VertexCoordinateRules VertexCoordinates VertexCorrelationSimilarity VertexCosineSimilarity VertexCount VertexCoverQ VertexDataCoordinates VertexDegree VertexDelete VertexDiceSimilarity VertexEccentricity VertexInComponent VertexInDegree VertexIndex VertexJaccardSimilarity VertexLabeling VertexLabels VertexLabelStyle VertexList VertexNormals VertexOutComponent VertexOutDegree VertexQ VertexRenderingFunction VertexReplace VertexShape VertexShapeFunction VertexSize VertexStyle VertexTextureCoordinates VertexWeight VertexWeightedGraphQ Vertical VerticalBar VerticalForm VerticalGauge VerticalSeparator VerticalSlider VerticalTilde ViewAngle ViewCenter ViewMatrix ViewPoint ViewPointSelectorSettings ViewPort ViewProjection ViewRange ViewVector ViewVertical VirtualGroupData Visible VisibleCell VoiceStyleData VoigtDistribution VolcanoData Volume VonMisesDistribution VoronoiMesh"+"WaitAll WaitAsynchronousTask WaitNext WaitUntil WakebyDistribution WalleniusHypergeometricDistribution WaringYuleDistribution WarpingCorrespondence WarpingDistance WatershedComponents WatsonUSquareTest WattsStrogatzGraphDistribution WaveletBestBasis WaveletFilterCoefficients WaveletImagePlot WaveletListPlot WaveletMapIndexed WaveletMatrixPlot WaveletPhi WaveletPsi WaveletScale WaveletScalogram WaveletThreshold WeaklyConnectedComponents WeaklyConnectedGraphComponents WeaklyConnectedGraphQ WeakStationarity WeatherData WeatherForecastData WebAudioSearch WebElementObject WeberE WebExecute WebImage WebImageSearch WebSearch WebSessionObject WebSessions WebWindowObject Wedge Wednesday WeibullDistribution WeierstrassE1 WeierstrassE2 WeierstrassE3 WeierstrassEta1 WeierstrassEta2 WeierstrassEta3 WeierstrassHalfPeriods WeierstrassHalfPeriodW1 WeierstrassHalfPeriodW2 WeierstrassHalfPeriodW3 WeierstrassInvariantG2 WeierstrassInvariantG3 WeierstrassInvariants WeierstrassP WeierstrassPPrime WeierstrassSigma WeierstrassZeta WeightedAdjacencyGraph WeightedAdjacencyMatrix WeightedData WeightedGraphQ Weights WelchWindow WheelGraph WhenEvent Which While White WhiteNoiseProcess WhitePoint Whitespace WhitespaceCharacter WhittakerM WhittakerW WienerFilter WienerProcess WignerD WignerSemicircleDistribution WikipediaData WikipediaSearch WilksW WilksWTest WindDirectionData WindingCount WindingPolygon WindowClickSelect WindowElements WindowFloating WindowFrame WindowFrameElements WindowMargins WindowMovable WindowOpacity WindowPersistentStyles WindowSelected WindowSize WindowStatusArea WindowTitle WindowToolbars WindowWidth WindSpeedData WindVectorData WinsorizedMean WinsorizedVariance WishartMatrixDistribution With WolframAlpha WolframAlphaDate WolframAlphaQuantity WolframAlphaResult WolframLanguageData Word WordBoundary WordCharacter WordCloud WordCount WordCounts WordData WordDefinition WordFrequency WordFrequencyData WordList WordOrientation WordSearch WordSelectionFunction WordSeparators WordSpacings WordStem WordTranslation WorkingPrecision WrapAround Write WriteLine WriteString Wronskian"+"XMLElement XMLObject XMLTemplate Xnor Xor XYZColor"+"Yellow Yesterday YuleDissimilarity"+"ZernikeR ZeroSymmetric ZeroTest ZeroWidthTimes Zeta ZetaZero ZIPCodeData ZipfDistribution ZoomCenter ZoomFactor ZTest ZTransform"+"$Aborted $ActivationGroupID $ActivationKey $ActivationUserRegistered $AddOnsDirectory $AllowExternalChannelFunctions $AssertFunction $Assumptions $AsynchronousTask $AudioInputDevices $AudioOutputDevices $BaseDirectory $BatchInput $BatchOutput $BlockchainBase $BoxForms $ByteOrdering $CacheBaseDirectory $Canceled $ChannelBase $CharacterEncoding $CharacterEncodings $CloudBase $CloudConnected $CloudCreditsAvailable $CloudEvaluation $CloudExpressionBase $CloudObjectNameFormat $CloudObjectURLType $CloudRootDirectory $CloudSymbolBase $CloudUserID $CloudUserUUID $CloudVersion $CloudVersionNumber $CloudWolframEngineVersionNumber $CommandLine $CompilationTarget $ConditionHold $ConfiguredKernels $Context $ContextPath $ControlActiveSetting $Cookies $CookieStore $CreationDate $CurrentLink $CurrentTask $CurrentWebSession $DateStringFormat $DefaultAudioInputDevice $DefaultAudioOutputDevice $DefaultFont $DefaultFrontEnd $DefaultImagingDevice $DefaultLocalBase $DefaultMailbox $DefaultNetworkInterface $DefaultPath $Display $DisplayFunction $DistributedContexts $DynamicEvaluation $Echo $EmbedCodeEnvironments $EmbeddableServices $EntityStores $Epilog $EvaluationCloudBase $EvaluationCloudObject $EvaluationEnvironment $ExportFormats $Failed $FinancialDataSource $FontFamilies $FormatType $FrontEnd $FrontEndSession $GeoEntityTypes $GeoLocation $GeoLocationCity $GeoLocationCountry $GeoLocationPrecision $GeoLocationSource $HistoryLength $HomeDirectory $HTMLExportRules $HTTPCookies $HTTPRequest $IgnoreEOF $ImageFormattingWidth $ImagingDevice $ImagingDevices $ImportFormats $IncomingMailSettings $InitialDirectory $Initialization $InitializationContexts $Input $InputFileName $InputStreamMethods $Inspector $InstallationDate $InstallationDirectory $InterfaceEnvironment $InterpreterTypes $IterationLimit $KernelCount $KernelID $Language $LaunchDirectory $LibraryPath $LicenseExpirationDate $LicenseID $LicenseProcesses $LicenseServer $LicenseSubprocesses $LicenseType $Line $Linked $LinkSupported $LoadedFiles $LocalBase $LocalSymbolBase $MachineAddresses $MachineDomain $MachineDomains $MachineEpsilon $MachineID $MachineName $MachinePrecision $MachineType $MaxExtraPrecision $MaxLicenseProcesses $MaxLicenseSubprocesses $MaxMachineNumber $MaxNumber $MaxPiecewiseCases $MaxPrecision $MaxRootDegree $MessageGroups $MessageList $MessagePrePrint $Messages $MinMachineNumber $MinNumber $MinorReleaseNumber $MinPrecision $MobilePhone $ModuleNumber $NetworkConnected $NetworkInterfaces $NetworkLicense $NewMessage $NewSymbol $Notebooks $NoValue $NumberMarks $Off $OperatingSystem $Output $OutputForms $OutputSizeLimit $OutputStreamMethods $Packages $ParentLink $ParentProcessID $PasswordFile $PatchLevelID $Path $PathnameSeparator $PerformanceGoal $Permissions $PermissionsGroupBase $PersistenceBase $PersistencePath $PipeSupported $PlotTheme $Post $Pre $PreferencesDirectory $PreInitialization $PrePrint $PreRead $PrintForms $PrintLiteral $Printout3DPreviewer $ProcessID $ProcessorCount $ProcessorType $ProductInformation $ProgramName $PublisherID $RandomState $RecursionLimit $RegisteredDeviceClasses $RegisteredUserName $ReleaseNumber $RequesterAddress $RequesterWolframID $RequesterWolframUUID $ResourceSystemBase $RootDirectory $ScheduledTask $ScriptCommandLine $ScriptInputString $SecuredAuthenticationKeyTokens $ServiceCreditsAvailable $Services $SessionID $SetParentLink $SharedFunctions $SharedVariables $SoundDisplay $SoundDisplayFunction $SourceLink $SSHAuthentication $SummaryBoxDataSizeLimit $SuppressInputFormHeads $SynchronousEvaluation $SyntaxHandler $System $SystemCharacterEncoding $SystemID $SystemMemory $SystemShell $SystemTimeZone $SystemWordLength $TemplatePath $TemporaryDirectory $TemporaryPrefix $TestFileName $TextStyle $TimedOut $TimeUnit $TimeZone $TimeZoneEntity $TopDirectory $TraceOff $TraceOn $TracePattern $TracePostAction $TracePreAction $UnitSystem $Urgent $UserAddOnsDirectory $UserAgentLanguages $UserAgentMachine $UserAgentName $UserAgentOperatingSystem $UserAgentString $UserAgentVersion $UserBaseDirectory $UserDocumentsDirectory $Username $UserName $UserURLBase $Version $VersionNumber $VoiceStyles $WolframID $WolframUUID",contains:[hljs.COMMENT("\\(\\*","\\*\\)",{contains:["self"]}),hljs.QUOTE_STRING_MODE,hljs.C_NUMBER_MODE]}});hljs.registerLanguage("nginx",function(hljs){var VAR={className:"variable",variants:[{begin:/\$\d+/},{begin:/\$\{/,end:/}/},{begin:"[\\$\\@]"+hljs.UNDERSCORE_IDENT_RE}]};var DEFAULT={endsWithParent:true,lexemes:"[a-z/_]+",keywords:{literal:"on off yes no true false none blocked debug info notice warn error crit "+"select break last permanent redirect kqueue rtsig epoll poll /dev/poll"},relevance:0,illegal:"=>",contains:[hljs.HASH_COMMENT_MODE,{className:"string",contains:[hljs.BACKSLASH_ESCAPE,VAR],variants:[{begin:/"/,end:/"/},{begin:/'/,end:/'/}]},{begin:"([a-z]+):/",end:"\\s",endsWithParent:true,excludeEnd:true,contains:[VAR]},{className:"regexp",contains:[hljs.BACKSLASH_ESCAPE,VAR],variants:[{begin:"\\s\\^",end:"\\s|{|;",returnEnd:true},{begin:"~\\*?\\s+",end:"\\s|{|;",returnEnd:true},{begin:"\\*(\\.[a-z\\-]+)+"},{begin:"([a-z\\-]+\\.)+\\*"}]},{className:"number",begin:"\\b\\d{1,3}\\.\\d{1,3}\\.\\d{1,3}\\.\\d{1,3}(:\\d{1,5})?\\b"},{className:"number",begin:"\\b\\d+[kKmMgGdshdwy]*\\b",relevance:0},VAR]};return{aliases:["nginxconf"],contains:[hljs.HASH_COMMENT_MODE,{begin:hljs.UNDERSCORE_IDENT_RE+"\\s+{",returnBegin:true,end:"{",contains:[{className:"section",begin:hljs.UNDERSCORE_IDENT_RE}],relevance:0},{begin:hljs.UNDERSCORE_IDENT_RE+"\\s",end:";|{",returnBegin:true,contains:[{className:"attribute",begin:hljs.UNDERSCORE_IDENT_RE,starts:DEFAULT}],relevance:0}],illegal:"[^\\s\\}]"}});hljs.registerLanguage("n1ql",function(hljs){return{case_insensitive:true,contains:[{beginKeywords:"build create index delete drop explain infer|10 insert merge prepare select update upsert|10",end:/;/,endsWithParent:true,keywords:{keyword:"all alter analyze and any array as asc begin between binary boolean break bucket build by call "+"case cast cluster collate collection commit connect continue correlate cover create database "+"dataset datastore declare decrement delete derived desc describe distinct do drop each element "+"else end every except exclude execute exists explain fetch first flatten for force from "+"function grant group gsi having if ignore ilike in include increment index infer inline inner "+"insert intersect into is join key keys keyspace known last left let letting like limit lsm map "+"mapping matched materialized merge minus namespace nest not number object offset on "+"option or order outer over parse partition password path pool prepare primary private privilege "+"procedure public raw realm reduce rename return returning revoke right role rollback satisfies "+"schema select self semi set show some start statistics string system then to transaction trigger "+"truncate under union unique unknown unnest unset update upsert use user using validate value "+"valued values via view when where while with within work xor",literal:"true false null missing|5",built_in:"array_agg array_append array_concat array_contains array_count array_distinct array_ifnull array_length "+"array_max array_min array_position array_prepend array_put array_range array_remove array_repeat array_replace "+"array_reverse array_sort array_sum avg count max min sum greatest least ifmissing ifmissingornull ifnull "+"missingif nullif ifinf ifnan ifnanorinf naninf neginfif posinfif clock_millis clock_str date_add_millis "+"date_add_str date_diff_millis date_diff_str date_part_millis date_part_str date_trunc_millis date_trunc_str "+"duration_to_str millis str_to_millis millis_to_str millis_to_utc millis_to_zone_name now_millis now_str "+"str_to_duration str_to_utc str_to_zone_name decode_json encode_json encoded_size poly_length base64 base64_encode "+"base64_decode meta uuid abs acos asin atan atan2 ceil cos degrees e exp ln log floor pi power radians random "+"round sign sin sqrt tan trunc object_length object_names object_pairs object_inner_pairs object_values "+"object_inner_values object_add object_put object_remove object_unwrap regexp_contains regexp_like regexp_position "+"regexp_replace contains initcap length lower ltrim position repeat replace rtrim split substr title trim upper "+"isarray isatom isboolean isnumber isobject isstring type toarray toatom toboolean tonumber toobject tostring"},contains:[{className:"string",begin:"'",end:"'",contains:[hljs.BACKSLASH_ESCAPE],relevance:0},{className:"string",begin:'"',end:'"',contains:[hljs.BACKSLASH_ESCAPE],relevance:0},{className:"symbol",begin:"`",end:"`",contains:[hljs.BACKSLASH_ESCAPE],relevance:2},hljs.C_NUMBER_MODE,hljs.C_BLOCK_COMMENT_MODE]},hljs.C_BLOCK_COMMENT_MODE]}});hljs.registerLanguage("pf",function(hljs){var MACRO={className:"variable",begin:/\$[\w\d#@][\w\d_]*/};var TABLE={className:"variable",begin:/<(?!\/)/,end:/>/};var QUOTE_STRING={className:"string",begin:/"/,end:/"/};return{aliases:["pf.conf"],lexemes:/[a-z0-9_<>-]+/,keywords:{built_in:"block match pass load anchor|5 antispoof|10 set table",keyword:"in out log quick on rdomain inet inet6 proto from port os to route"+"allow-opts divert-packet divert-reply divert-to flags group icmp-type"+"icmp6-type label once probability recieved-on rtable prio queue"+"tos tag tagged user keep fragment for os drop"+"af-to|10 binat-to|10 nat-to|10 rdr-to|10 bitmask least-stats random round-robin"+"source-hash static-port"+"dup-to reply-to route-to"+"parent bandwidth default min max qlimit"+"block-policy debug fingerprints hostid limit loginterface optimization"+"reassemble ruleset-optimization basic none profile skip state-defaults"+"state-policy timeout"+"const counters persist"+"no modulate synproxy state|5 floating if-bound no-sync pflow|10 sloppy"+"source-track global rule max-src-nodes max-src-states max-src-conn"+"max-src-conn-rate overload flush"+"scrub|5 max-mss min-ttl no-df|10 random-id",literal:"all any no-route self urpf-failed egress|5 unknown"},contains:[hljs.HASH_COMMENT_MODE,hljs.NUMBER_MODE,hljs.QUOTE_STRING_MODE,MACRO,TABLE]}});hljs.registerLanguage("llvm",function(hljs){var identifier="([-a-zA-Z$._][\\w\\-$.]*)";return{keywords:"begin end true false declare define global "+"constant private linker_private internal "+"available_externally linkonce linkonce_odr weak "+"weak_odr appending dllimport dllexport common "+"default hidden protected extern_weak external "+"thread_local zeroinitializer undef null to tail "+"target triple datalayout volatile nuw nsw nnan "+"ninf nsz arcp fast exact inbounds align "+"addrspace section alias module asm sideeffect "+"gc dbg linker_private_weak attributes blockaddress "+"initialexec localdynamic localexec prefix unnamed_addr "+"ccc fastcc coldcc x86_stdcallcc x86_fastcallcc "+"arm_apcscc arm_aapcscc arm_aapcs_vfpcc ptx_device "+"ptx_kernel intel_ocl_bicc msp430_intrcc spir_func "+"spir_kernel x86_64_sysvcc x86_64_win64cc x86_thiscallcc "+"cc c signext zeroext inreg sret nounwind "+"noreturn noalias nocapture byval nest readnone "+"readonly inlinehint noinline alwaysinline optsize ssp "+"sspreq noredzone noimplicitfloat naked builtin cold "+"nobuiltin noduplicate nonlazybind optnone returns_twice "+"sanitize_address sanitize_memory sanitize_thread sspstrong "+"uwtable returned type opaque eq ne slt sgt "+"sle sge ult ugt ule uge oeq one olt ogt "+"ole oge ord uno ueq une x acq_rel acquire "+"alignstack atomic catch cleanup filter inteldialect "+"max min monotonic nand personality release seq_cst "+"singlethread umax umin unordered xchg add fadd "+"sub fsub mul fmul udiv sdiv fdiv urem srem "+"frem shl lshr ashr and or xor icmp fcmp "+"phi call trunc zext sext fptrunc fpext uitofp "+"sitofp fptoui fptosi inttoptr ptrtoint bitcast "+"addrspacecast select va_arg ret br switch invoke "+"unwind unreachable indirectbr landingpad resume "+"malloc alloca free load store getelementptr "+"extractelement insertelement shufflevector getresult "+"extractvalue insertvalue atomicrmw cmpxchg fence "+"argmemonly double",contains:[{className:"keyword",begin:"i\\d+"},hljs.COMMENT(";","\\n",{relevance:0}),hljs.QUOTE_STRING_MODE,{className:"string",variants:[{begin:'"',end:'[^\\\\]"'}],relevance:0},{className:"title",variants:[{begin:"@"+identifier},{begin:"@\\d+"},{begin:"!"+identifier},{begin:"!\\d+"+identifier}]},{className:"symbol",variants:[{begin:"%"+identifier},{begin:"%\\d+"},{begin:"#\\d+"}]},{className:"number",variants:[{begin:"0[xX][a-fA-F0-9]+"},{begin:"-?\\d+(?:[.]\\d+)?(?:[eE][-+]?\\d+(?:[.]\\d+)?)?"}],relevance:0}]}});hljs.registerLanguage("avrasm",function(hljs){return{case_insensitive:true,lexemes:"\\.?"+hljs.IDENT_RE,keywords:{keyword:"adc add adiw and andi asr bclr bld brbc brbs brcc brcs break breq brge brhc brhs "+"brid brie brlo brlt brmi brne brpl brsh brtc brts brvc brvs bset bst call cbi cbr "+"clc clh cli cln clr cls clt clv clz com cp cpc cpi cpse dec eicall eijmp elpm eor "+"fmul fmuls fmulsu icall ijmp in inc jmp ld ldd ldi lds lpm lsl lsr mov movw mul "+"muls mulsu neg nop or ori out pop push rcall ret reti rjmp rol ror sbc sbr sbrc sbrs "+"sec seh sbi sbci sbic sbis sbiw sei sen ser ses set sev sez sleep spm st std sts sub "+"subi swap tst wdr",built_in:"r0 r1 r2 r3 r4 r5 r6 r7 r8 r9 r10 r11 r12 r13 r14 r15 r16 r17 r18 r19 r20 r21 r22 "+"r23 r24 r25 r26 r27 r28 r29 r30 r31 x|0 xh xl y|0 yh yl z|0 zh zl "+"ucsr1c udr1 ucsr1a ucsr1b ubrr1l ubrr1h ucsr0c ubrr0h tccr3c tccr3a tccr3b tcnt3h "+"tcnt3l ocr3ah ocr3al ocr3bh ocr3bl ocr3ch ocr3cl icr3h icr3l etimsk etifr tccr1c "+"ocr1ch ocr1cl twcr twdr twar twsr twbr osccal xmcra xmcrb eicra spmcsr spmcr portg "+"ddrg ping portf ddrf sreg sph spl xdiv rampz eicrb eimsk gimsk gicr eifr gifr timsk "+"tifr mcucr mcucsr tccr0 tcnt0 ocr0 assr tccr1a tccr1b tcnt1h tcnt1l ocr1ah ocr1al "+"ocr1bh ocr1bl icr1h icr1l tccr2 tcnt2 ocr2 ocdr wdtcr sfior eearh eearl eedr eecr "+"porta ddra pina portb ddrb pinb portc ddrc pinc portd ddrd pind spdr spsr spcr udr0 "+"ucsr0a ucsr0b ubrr0l acsr admux adcsr adch adcl porte ddre pine pinf",meta:".byte .cseg .db .def .device .dseg .dw .endmacro .equ .eseg .exit .include .list "+".listmac .macro .nolist .org .set"},contains:[hljs.C_BLOCK_COMMENT_MODE,hljs.COMMENT(";","$",{relevance:0}),hljs.C_NUMBER_MODE,hljs.BINARY_NUMBER_MODE,{className:"number",begin:"\\b(\\$[a-zA-Z0-9]+|0o[0-7]+)"},hljs.QUOTE_STRING_MODE,{className:"string",begin:"'",end:"[^\\\\]'",illegal:"[^\\\\][^']"},{className:"symbol",begin:"^[A-Za-z0-9_.$]+:"},{className:"meta",begin:"#",end:"$"},{className:"subst",begin:"@[0-9]+"}]}});</script>
+
+<style type="text/css">
+ code{white-space: pre-wrap;}
+ span.smallcaps{font-variant: small-caps;}
+ span.underline{text-decoration: underline;}
+ div.column{display: inline-block; vertical-align: top; width: 50%;}
+ div.hanging-indent{margin-left: 1.5em; text-indent: -1.5em;}
+ ul.task-list{list-style: none;}
+ </style>
+
+<style type="text/css">code{white-space: pre;}</style>
+<script type="text/javascript">
+if (window.hljs) {
+ hljs.configure({languages: []});
+ hljs.initHighlightingOnLoad();
+ if (document.readyState && document.readyState === "complete") {
+ window.setTimeout(function() { hljs.initHighlighting(); }, 0);
+ }
+}
+</script>
+
+
+
+
+
+
+
+
+
+<style type="text/css">
+.main-container {
+ max-width: 940px;
+ margin-left: auto;
+ margin-right: auto;
+}
+img {
+ max-width:100%;
+}
+.tabbed-pane {
+ padding-top: 12px;
+}
+.html-widget {
+ margin-bottom: 20px;
+}
+button.code-folding-btn:focus {
+ outline: none;
+}
+summary {
+ display: list-item;
+}
+details > summary > p:only-child {
+ display: inline;
+}
+pre code {
+ padding: 0;
+}
+</style>
+
+
+
+<!-- tabsets -->
+
+<style type="text/css">
+.tabset-dropdown > .nav-tabs {
+ display: inline-table;
+ max-height: 500px;
+ min-height: 44px;
+ overflow-y: auto;
+ border: 1px solid #ddd;
+ border-radius: 4px;
+}
+
+.tabset-dropdown > .nav-tabs > li.active:before, .tabset-dropdown > .nav-tabs.nav-tabs-open:before {
+ content: "\e259";
+ font-family: 'Glyphicons Halflings';
+ display: inline-block;
+ padding: 10px;
+ border-right: 1px solid #ddd;
+}
+
+.tabset-dropdown > .nav-tabs.nav-tabs-open > li.active:before {
+ content: "\e258";
+ font-family: 'Glyphicons Halflings';
+ border: none;
+}
+
+.tabset-dropdown > .nav-tabs > li.active {
+ display: block;
+}
+
+.tabset-dropdown > .nav-tabs > li > a,
+.tabset-dropdown > .nav-tabs > li > a:focus,
+.tabset-dropdown > .nav-tabs > li > a:hover {
+ border: none;
+ display: inline-block;
+ border-radius: 4px;
+ background-color: transparent;
+}
+
+.tabset-dropdown > .nav-tabs.nav-tabs-open > li {
+ display: block;
+ float: none;
+}
+
+.tabset-dropdown > .nav-tabs > li {
+ display: none;
+}
+</style>
+
+<!-- code folding -->
+
+
+
+
+</head>
+
+<body>
+
+
+<div class="container-fluid main-container">
+
+
+
+
+<div id="header">
+
+
+
+<h1 class="title toc-ignore">Examples of using survtab</h1>
+<h4 class="author">Joonas Miettinen</h4>
+<h4 class="date">2023-01-19</h4>
+
+</div>
+
+<div id="TOC">
+<ul>
+<li><a href="#overview">Overview</a></li>
+<li><a href="#using-survtab">Using <code>survtab</code></a>
+<ul>
+<li><a href="#relativenet-survival">Relative/net survival</a></li>
+<li><a href="#adjusting-estimates">Adjusting estimates</a></li>
+<li><a href="#other-survival-time-functions">Other survival time
+functions</a></li>
+</ul></li>
+<li><a href="#using-survtab_ag">Using <code>survtab_ag</code></a></li>
+</ul>
+</div>
+
+<div id="overview" class="section level1">
+<h1>Overview</h1>
+<p>This vignette aims to clarify the usage of the
+<code>survtab_ag</code> and <code>survtab</code> functions included in
+this package. <code>survtab_ag</code> estimates various survival
+functions and cumulative incidence functions (CIFs) non-parametrically
+using aggregated data, and <code>survtab</code> is a wrapper for
+<code>survtab_ag</code>, to which <code>Lexis</code> data is
+supplied.</p>
+<p>Two methods (<code>surv.method</code>) are currently supported: The
+<code>"lifetable"</code> (actuarial) method only makes use of counts
+when estimating any of the supported survival time functions. The
+default method (<code>"hazard"</code>}) estimates appropriate hazards
+and transforms them into survival function or CIF estimates.</p>
+<p>For relative survival estimation we need also to enumerate the
+expected hazard levels for the subjects in the data. This is done by
+merging expected hazards to individuals’ subintervals (which divide
+their survival time lines to a number of small intervals). For
+Pohar-Perme-weighted analyses one must additionally compute various
+weighted figures at the level of split subject data.</p>
+<p>If one has subject-level data, the simplest way of computing survival
+function estimates with <code>popEpi</code> is by defining a
+<code>Lexis</code> object and using <code>survtab</code>, which will do
+the rest. For pre-aggregated data one may use the
+<code>survtab_ag</code> function instead. One can also use the
+<code>lexpand</code> function to split, merge population hazards, and
+aggregate in a single function call and then use <code>survtab_ag</code>
+if that is convenient.</p>
+</div>
+<div id="using-survtab" class="section level1">
+<h1>Using <code>survtab</code></h1>
+<p>It is straightforward to estimate various survival time functions
+with <code>survtab</code> once a <code>Lexis</code> object has been
+defined (see <code>?Lexis</code> in package <code>Epi</code> for
+details):</p>
+<pre class="r"><code>library(popEpi)
+library(Epi)</code></pre>
+<pre class="r"><code>data(sire)
+
+## NOTE: recommended to use factor status variable
+x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
+ exit = list(CAL = get.yrs(ex_date)),
+ data = sire[sire$dg_date < sire$ex_date, ],
+ exit.status = factor(status, levels = 0:2,
+ labels = c("alive", "canD", "othD")),
+ merge = TRUE)</code></pre>
+<pre><code>## NOTE: entry.status has been set to "alive" for all.</code></pre>
+<pre class="r"><code>## pretend some are male
+set.seed(1L)
+x$sex <- rbinom(nrow(x), 1, 0.5)
+
+## observed survival - explicit method
+st <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex, data = x,
+ surv.type = "surv.obs",
+ breaks = list(FUT = seq(0, 5, 1/12)))
+
+## observed survival - easy method (assumes lex.Xst in x is the status variable)
+st <- survtab(FUT ~ sex, data = x,
+ surv.type = "surv.obs",
+ breaks = list(FUT = seq(0, 5, 1/12)))
+
+## printing gives the used settings and
+## estimates at the middle and end of the estimated
+## curves; more information available using summary()
+st</code></pre>
+<pre><code>##
+## Call:
+## survtab(formula = FUT ~ sex, data = x, breaks = list(FUT = seq(0, 5, 1/12)), surv.type = "surv.obs")
+##
+## Type arguments:
+## surv.type: surv.obs --- surv.method: hazard
+##
+## Confidence interval arguments:
+## level: 95 % --- transformation: log-log
+##
+## Totals:
+## person-time:23993 --- events: 3636
+##
+## Stratified by: 'sex'
+## sex Tstop surv.obs.lo surv.obs surv.obs.hi SE.surv.obs
+## 1: 0 2.5 0.6174 0.6328 0.6478 0.007751
+## 2: 0 5.0 0.4962 0.5126 0.5288 0.008321
+## 3: 1 2.5 0.6235 0.6389 0.6539 0.007748
+## 4: 1 5.0 0.5006 0.5171 0.5334 0.008370</code></pre>
+<p>Plotting by strata (men = blue, women = red):</p>
+<pre class="r"><code>plot(st, col = c("blue", "red"))</code></pre>
+<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABIAAAASACAIAAAAIyqENAAAACXBIWXMAAB2HAAAdhwGP5fFlAAAgAElEQVR4nOzdZ2BOdx+H8e89skQiduwtaJVSe5RatdVWm5bWqL21qCo1imoVFUWsGK1atdqqWftRe5UighgVIzv38yLRiNJWJedEcn3eSP7nnPjJ86bXc879PxaHwyEAAAAAQOKzmj0AAAAAAKQUBBgAAAAAGIQAAwAAAACDEGAAAAAAYBACDAAAAAAMQoABAAAAgEEIMAAAAAAwCAEGAAAAAAYhwAAAAADAIAQYAAAAABiEAAMAAAAAgxBgAAAAAGAQAgwAAAAADEKAAQAAAIBBCDAAAAAAMAgBBgAAAAAGIcAAAAAAwCAEGAAAAAAYhAADAAAAAIMQYAAAAABgEAIMAAAAAAxCgAEAAACAQQgwAAAAADAIAQYAAAAABiHAAAAAAMAgBBgAAAAAGIQAAwAAAACDEGAAAAAAYBACDAAAAAAMQoABAAAAgEEIMAAAAAAwCAEGAAAAAAYhwAAAAADAIAQYAAAAABiEAAMAAAAAgxBgAAAAAGAQAgwAAAAADEKAAQAAAIBBCDAAAAAAMAgBBgAAAAAGIcAAAAAAwCAEGAAAAAAYhAADAAAAAIMQYAAAAABgEAIMAAAAAAxCgAEAAACAQQgwAAAAADAIAQYAAAAABiHAAAAAAMAgBBgAAAAAGIQAAwAAAACDEGAAAAAAYBACDAAAAAAMQoABAAAAgEEIMAAAAAAwCAEGAAAAAAYhwAAAAADAIAQYAAAAABiEAAMAAAAAgxBgAAAAAGAQAgwAAAAADEKAAQAAAIBBCDAAAAAAMAgBBgAAAAAGIcAAAAAAwCAEGAAAAAAYhAADAAAAAIMQYAAAAABgEAIMAAAAAAxCgAEAAACAQQgwAAAAADAIAQYAAAAABiHAAAAAAMAgBBgAAAAAGIQAAwAAAACDEGAAAAAAYBACDAAAAAAMQoABAAAAgEEIMAAAAAAwCAEGAAAAAAYhwAAAAADAIAQYAAAAABiEAAMAAAAAgxBgAAAAAGAQAgwAAAAADEKAAQAAAIBBCDAAAAAAMAgBBgAAAAAGIcAAAAAAwCAEGAAAAAAYhAADAAAAAIMQYAAAAABgEAIMAAAAAAxCgAEAAACAQQgwAAAAADAIAQYAAAAABiHAAAAAAMAgBBgAAAAAGIQAAwAAAACDEGAAAAAAYBACDAAAAAAMQoABAAAAgEEIMAAAAAAwCAEGAAAAAAYhwAAAAADAIAQYAAAAABiEAAMAAAAAgxBgAAAAAGAQAgwAAAAADEKAAQAAAIBBCDAAAAAAMAgBBgAAAAAGIcAAAAAAwCAEGAAAAAAYhAADAAAAAIMQYAAAAABgEAIMAAAAAAxCgAEAAACAQQgwAAAAADAIAQYAAAAABiHAAAAAAMAgBBgAAAAAGIQAAwAAAACDEGAAAAAAYBACDAAAAAAMQoABAAAAgEEIMAAAAAAwCAEGAAAAAAYhwAAAAADAIAQYAAAAABiEAAMAAAAAgxBgAAAAAGAQAgwAAAAADEKAAQAAAIBBCDAAAAAAMAgBBgAAAAAGIcAAAAAAwCAEGAAAAAAYhAADAAAAAIMQYAAAAABgEAIMAAAAAAxCgAEAAACAQQgwAAAAADAIAQYAAAAABiHAAAAAAMAgBBgAAAAAGIQAAwAAAACDEGAAAAAAYBACDAAAAAAMQoABAAAAgEEIMAAAAAAwCAEGAAAAAAYhwAAAAADAIAQYAAAAABiEAAMAAAAAg9jNHgAJ78KFCzNnzoyKijJ7EAAAAODvuLu79+vXL1WqVGYPYhwCLBn64osvxo8fb/YUAAAAwD/z8fFp3ry52VMYhwBLhiIiIiTVq1evYsWKZs8CAAAAPJ6/v//BgwfDw8PNHsRQBFiy9dprr/Xp08fsKQAAAIDHO3LkyMGDB82ewmhswgEAAAAABiHAAAAAAMAgBBgAAAAAGIQAAwAAAACDEGAAAAAAYBACDAAAAAAMwjb0/yDy7vWrQTduBd8Pi4i2urh7eHikyZA5Y2p+bwAAAACeGiHxGCEBv6z2X7Fm07bdB4/8du1epCPeUYvF2TNbvkJFS1Wt3bBRo9dL50hlMWlOAAAAAM8XAiye6Bu7Zw3tM2ruL1fCHU86x+EIv33p+O5Lx3d/P/+TfhlLvjls8ic9Kma2GTknAAAAgOcRARYn/Oyit2p3WnA67EF7WWyp0mXNkTNHlvQeqdzcXGzR4aEh9+/cvBpw8UJA0N0Ih+SICNo3r89rP22Ztm5R1xfcTB0fAAAAQFJHgD0QsufDJjH1ZXHJWrZFl7dbN6xermgOj8fe2YoOuXpi78/rl8+bNW/9yeCIC9+913hg/j2fVUvD04gAAAAAnohdEGNEX/h66ORfwxwWW7YGU3Yc3TFvRMeaxZ9QX5KsbpmLVG7e97O1hw592/Nld4sj/PRXw2aeijJ0ZgAAAADPGQJMkhR9caX/9hCHbDk6+/q9V9LrX9/IcsndYLL/6IpuFkfYgW9Xn6PAAAAAADwZASZJijz2v6MRDlkz1WlW1fMpr7Xla9KstJMUdfoYt8AAAAAA/A0CTJLkCAsLd0iW1B6pn/5TXFZPL0+r5AgPe/LWiQAAAABAgMWwZc+V3SZFX9p/IDD6aS8OObT3SIRkzZwlM79OAAAAAE9GMUiS7C/Vq53LJkfIz58MXnbxaR4kdNzZM2HIvPNRsqavUOUlp0SbEAAAAMDzjwCL4Vyma89KnhZFXVjSrlytgX57AsP+8ZqoP06sndimfI1Ru4IdFucX3u5ew92ASQEAAAA8t3gPWCxbwW4zJmyu2m1tYHjADxPalZ3SO3/pihXLvFw4b67sWTKkcXd1dbY7IkJDQ+7euHLp4rlTh/bu3P7LkSv3ox2SrF4VPvAdUsrF7H8EAAAAgCSNAPuTk0+XpT+49mzV6+tf/4h2RNw8vWPV6R2r/vEyq0eRVp/4ffFOCW5/AQAAAPh7PIL4MLfC7WbvO7lr3gdtKudLY//7/RAtds88FVoNnbPtxMEF75ZI8/SbJwIAAABIabgD9ih7ptJtR/m1HRXxx7lf9x04fPLs7wFXb9y6GxIeKSc399SpU6fJmDO/j0+hF4u9mNuLTTcAAAAA/HsE2JM4eeUpWT1PyepmzwEAAAAg2eARRAAAAAAwCAEGAAAAAAbhEcRnFnor8Ob9aIdkcUufNZ2r2eMAAAAASLK4A/aswjb09MmePXv27NnzvbPmn9/e/BQ++OADm81meXqTJ0+WtHPnzoSc5i9+cyksi+WXAcsS9W8BAAAAkhMCLOkKCQmJjo7+z5cHBgYm4DB/lTEiUJLXZx8l6t8CAAAAJCcEWNI1YcIEx39SokQJSRkyZEjU8QLSvSgpd/gphyNR/x4AAAAg+eAzYM/KufKoH3/pGeWQrOkLOJs9jYE8+76lYTtcFbp55Z3qb3iYPQ4AAADwHOAO2LOypM33SukyZcqUKVMqfzqL2dMYKGvfljFfHOs729xJAAAAgOcFAYb/ytU1zOomqfLvflFRZg8DAAAAPA8IMPx3wd4FJRV2HPvxR7NHAQAAAJ4HBBj+O+cWjSS5KGz52NNmzwIAAAA8Bwgw/Hdp2r8R84X3zm/MnQQAAAB4LhBgeAZFi95LlVGS3ZXtNAEAAIB/RoDhGVitbiMGSvK+ffLsWbOHAQAAAJI8AgzPxFqlsqTK2rpundmjAAAAAEkeT45JkqLu37pxJ9zxbD/E4uqVKY1Lwgz0/ChRIsLVwyf05KhvAnv2zGL2NAAAAECSRoBJUvS56XWLDNgV8Ww/xbXZsj+WNk1pBWa3q2xZbdmkHTvu3Gnq4WH2PAAAAEASxiOIkiSXdBm9nCxmT/GccnqtkqSyEdt4GxgAAADw97gDJknWHJ2+C2hweP38qR+Nnbf3eqRDksU9b9mKBdM8RZU5F/dOmT1bsaKk5lpav0NP92X5q1c3ex4AAAAgqSLAHnDKULR+39k16xRvUKHXxpvRsuVoPnXN2FL8gv7Z+fOSvHVl+B/9x45dSYABAAAAT5Iyb9k8mUuhrh918aG6nkq6dDF/1tCmHVsiAgLMnQYAAABIugiwRzkVr10jm83sKZ4rpUvH/JlK90tF7162zNxpAAAAgKSLAPsL+4slirIhx9PIkiU6bfqYL2tpw+LF5k4DAAAAJF0E2F9YPIvXbFi1yqul83qSYf+StUK5mC/qaN2ePTp92txxAAAAgCSKAPsre7GeS374afO8t314EvHfKhcbYC/rYCZd8/c3dxoAAAAgiSLAkBBKlYr50yJHTW1cuNDcaQAAAIAkigBDQihVSpbYBzZracOJEzFb0wMAAACIhwBDQvDyUt68MV9a5HjjDWXPbu5AAAAAQFJEgCGB+PlFZcoiaYbeyZ1bdt6lBgAAAPwFAYYEUq6crUkjSRW1fdUqs4cBAAAAkiQCDAmnUiVJ1Zy3nT2rU6fMHgYAAABIeggwJJwqVSRVcGy3KWrtWrOHAQAAAJIeAgwJJ0sW5cvnFhH8kn4lwAAAAIC/IsCQoCpVkvS6deP+rfdatZKvr9nzAAAAAEkJAYaEExmpoCBJI6NHbI0ot2SJ+vVTaKjZUwEAAABJBgGGhHPunNaulWRXRFEdLu917PZtff+92VMBAAAASQYBhoSTO7fc3CRZFS3p1ZD1khYvNnkoAAAAIOkgwJBwnJxUrNif31UJ22C1avVq3b5t4kwAAABAEkKAIUGVKhXzp0OWytpaINv90FDxXmYAAAAgBgGGBPUgwCLk5KrQsqFbxFOIAAAAwAMEGBJUqVKSHBars8IllQja4OSkTZt07ZrZgwEAAABJAAGGBOXjIy8viyM65rvXtb5QIUVGat06c8cCAAAAkgQCDAnKYlGJEjFfhsq1oE5l8wiuWlWlS5s7FgAAAJAkEGBIaNWrx/x5P1WGTpavtx3yXLdORYqYOxMAAACQJBBgSGiDB+vcOXl4pLt/6dILte7d05YtZo8EAAAAJA0EGBKaxaLcuVWunKTOPtslrV1r9kgAAABA0kCAIXFUqiTpVes2SatXmz0MAAAAkDQQYEgclStL8j61NXNm/f67jh0zex4AAAAgCSDAkDjKlJGrqw4fbvraTUlr1ujHH9WokS5fNnswAAAAwDwEGBKHi4tKl1Z0dNvA8cvU7MdVd9et03ffacIEswcDAAAAzEOAIXE0aeI4c1ZS+m0rm2p59l3L6teXpLlzde+eyaMBAAAAZiHAkDgOHbJcDpBkiwqXVCN6w8WLqlBBf/yhxYvNng0AAAAwCQGGxFGypCSHxZpTFyTV1Mb5X0d16yZJn39u7mQAAACAaQgwJI5SpSSFeWSwKeq6a/a0unXvpz0lSihzZh06pF27zB4PAAAAMAMBhsRRqpQkJ2eLpN8js0lq4li+aJE6d5akL74wdTYAAADAJAQYEkfJkrLZbLeuS1JkpKTWWuj3deTbb8tu17JlunrV5AEBAAAA4xFgSBypU6tQIUVFOSzWIjp2w/uFzLpa+NKm48dVr57Cw7V2rdkTAgAAAIYjwJBoSpWSFJrG200h+1wrSWohf19fTZigXr1Up47Z4wEAAACGI8CQaGI+BpbRS9Kl0PThFapus1VZvVqenpoyRd7eZo8HAAAAGI4AQ6Jp2FCVKtlfryaplc8B5+0/XqvTITxcfn5mDwYAAACYhABDosmWTVu3asgQSakO7lBUVMwWiF99JYfD5NEAAAAAUxBgSGRZsihfPgUH69ChunWVJYtOnuQ9YAAAAEihCDAkvipVJGn9ertd7dpJkq+vqfMAAAAAJiHAkPjeeEOS/P0ldeoki0X+/rpzR5s2KXNmrVxp8nQAAACAYQgwJL6aNZU+vX79NezA0YK2s8uyvJf23qWlS3Xzpq5d0+jRZo8HAAAAGIUAQyK7fVv796txY0kTSy/9bcKKJpenDdMYX1+98YYyZ9aBA/rlF7OHBAAAAAxBgCGRDRigcuVUsKCkllELp52rJ6mlxf/ArrDTp9WpkyRNn27uiAAAAIBBCDAkMk9PSbp7Nypz1nw6+8uW0KjiJb0ct+ppzZw5eucd2WxaulTXrpk9JwAAAJD4CDAkslKlJGnfPlvzJpIahy/Z49NWUjvNnzdPmTOrbl2FhWnOHHOnBAAAAIxAgCGRxQTYnj1q2VJSSy0Z93srOTnVtayz37i6erW6dZOkL79UVJSpcwIAAACJjwBDIsubVxkzKihIWbM6cuXOoYs3d5++X/l1myOyhfx9fVWzpgoW1IULWrfO7FEBAACAREaAIfGVLClJe/daWjSX1Nzh/32GtpLaW/02btSFC3r3XUnaudPMGQEAAAADEGBIfFWrStKaNWrRQlIL+X+4r47Spi0RvS9v9Jl589S9uxYv1qBBJo8JAAAAJDYCDImvcWNJWrVKL76owoUz6VrGs7/cGzjq9gvlryvD11/LZlPLlvLyMntOAAAAIJERYEh8+fOreHH98YfOnVOzZpLm1FziPrin5+Ed6fN5nT+vH380e0IAAADAEAQYDLFkiZYvl4+PWrWSlHPvCoWHWyxq106SfH1Nng4AAAAwBgEGQ/j4qEkTSSpUSMWK6dYtbdwoqVMn2Wz65htdv27ygAAAAIABCDAYrkULSfL3l5Q9u2rUUHi4Fi2KPXj6tCIizJsNAAAASEwEGAzXsqUsFn33nUJCJHXuLEmzZ0vSzp0qWFA9epg6HgAAAJBoCDAYLk8elS6tO3e0dq2kRldm9PbwPXxYe/fK21tWq/z8dOuW2UMCAAAAiYAAgxlatJD0ffslLVrIPmTApLtdsynA11d586paNYWEaMECsycEAAAAEgEBBgOdO6e8eTV9ulq2lM1W9f7ajctu33u1jtUR1UYLFi/W/fvq0kWSvvzS7FEBAACARECAwUBBQTp3ThMmyNtblSq5KrS+Y9XadG0ldXWbHxysZcvUqJGyZtXx49q50+xpAQAAgIRGgMFApUopRw6dP68DB2KeQmwh/xG7Xpe3d56QYyW139dXdrvat5ekmTNNHhYAAABIcAQYDGSxqFEjSVqxQk2bysmppjYGnbl9tWpLSZ2d/bZt04kTevttWa1atkw3b5o8LwAAAJCwCDAYK+Z1zMuXK0MGVavmpIjG+ma+o62kNtZFToqYO1d58qhGDbbiAAAAQDJEgMFYlSrJ21unT+vIkT+fQpzwQwnHi0U9QoNe1/q5cxURoZ49JSkw0ORhAQAAgIRFgMFYVqsaNJCkFSvUuLFcXavqJ6egy8dfaSupa5olV69q7VrVratTpzR6tMnDAgAAAAmLAIPhYp5CXLFCnp56/XWroptq+VL3jipdOtVrZSV9/bUkFSggu93UOQEAAICERoDBcFWrKl06HT6sK1fUsqWkwXn8uwzNoN27X5jR08lJ69bpyhWzhwQAAAASAQEGwzk5acYMDRyoTJlUv75Sp85yflfW8POSMmVS3bqKjNTChWYPCQAAACQCAgxmaNZMn3wiq1WpUql+fTkcWro05kjHjtKDpxABAACAZIYAg9latJAkf/+Y7+rUkbe3jh7V3r2SFBWltWsVHGzeeAAAAEDCIcBgttq1lS6dDhzQ8eOS7Ha1bi09uAm2apXq1VOvXqZOCAAAACQQAgxmc3ZWw4aStGyZJAUFDbnS6wUdXbRIISEqWVI2m5Ys0c2b5k4JAAAAJAACDElAy5aSbk1fnD69AuZtTr/wM980fW/f1nffKWdOVa+u0FD5+Zk9JAAAAPDMCDCYJzBQzZpp505Vq6bMmdNePZHj5qGpp2orVaoywZvy60zMU4hdu0rSjBlyOMwdFwAAAHhWBBjMs3u3li/X8OGy2WLeztxC/nNXekU3bS6H4x0n382bdeGC6tdX1qw6cULbt5s9MAAAAPBsCDCYp1o1ubpq61ZduxazF2I75yXXgxw7i3aV9LbV1yk6bP582e2xe9PPmmXuuAAAAMCzIsBgHg8PVaumqCitWqVKlZQzZ7bwc6W1Z9resnr5Zc+woIb6bs4cORzq0kU2m5YtU1CQ2TMDAAAAz4AAg6maNJGkFStksahpU0mtLEtWrVJI67ck9XKdee6ctm1TzpyqWVNhYVq82NxxAQAAgGdCgMFUjRrJ2Vk//KCbN2P2Qmzj5B8RGrXcra08PMqF/lRQp2K24ujXT87OcnExeV4AAADgWRBgMFXatHr1VUVEaM0alSqlAgXShwdW0ravl3uoZUuLHG9q0bJlunNH1arp9u3YHREBAACA5xQBBrP9+RSipObNJXWwL9i6VVH9B6lu3ZvFX7t3L/YVza6uJk4JAAAAJAACDGZr1Eg2mzZuVGio2rWTxdLGyX/xrDu2gvm0Zk2J3pUlxTyFCAAAADzvCDCYLXNm9eihKlXk5KSCBVWhgi3kbjPL8piDTZvKw0Pbt+vECXOnBAAAABIAAYYkYMoUff+9bDZJ6tRJirvn5e6uZs0kyc/PrOEAAACABEOAIYlp3lweHtq27c97XjFvYZ43T1FRknTnjqZO1ZUr5k0IAAAA/FcEGJIYd/eYrTg0b17MQsWKKlRIAQHatEmSli1T797q39+8CQEAAID/igBD0hPzFOLcuYqMlKRTp9aHv/aqfo55LLFGDdlsWr5cQUFmzggAAAD8BwQYkp7y5VW4sK5ceSf3+lGjpEOHcv320zjLkJUrdf26cuRQzZoKC9OCBWbPCQAAADwlAgxJRnCwpkyJ/XRXhw6SagXMmThR96rWU9q0ZR27ioT/z99fkrp0kaSZM+VwmDctAAAA8PQIMCQZy5erTx8NHy5J7dvLyamBZXXqu1e+2+imNm0kvaXZMU8h1qunbNl08qS2bjV1YAAAAOApEWBIMipWlKSVKxUZqcyZVbu2zRHZWgsXLJDefVcWS3vL/FP77xw6JLs99mNikyaZOzEAAADwdAgwJBkFC6pIEd24oZ9/lmK34njbMnvTJl1JW1gVKqR23GmupTGbI/boIQ8PrV6t7dtNnRkAAAB4GgQYkpImTSRpyRJJqltXWbL4OE68EvnLkiVS166Sumrm/PkKC1OmTOrXT5LGjzdxXAAAAODpEGBIStq2laSlSxUSIrs95qNfHfX1ggVSs2bKmLGU9ua6cWDdOknq318NGqhuXVMHBgAAAJ4GAYakpEABlS6t4GCtWiVJnTvLYmltWXRy/92jZ1xi8qyRVsZsxeHuru++i7kxBgAAADwfCDAkMTE3wfz8JMnHR+XKuTvuNtY3mzdLgweHvttnqXOb779XYKC5UwIAAAD/BQGGJKZlSzk7a8MGBQVJUseOkkblmtOihZQxo+v0TwvULRgZqYULTR4TAAAA+A8IMCQxGTKoQwelTRv7bcuW8vDIfWGr990zMQsdO0rS7NkmjQcAAAA8AwIMSc/Mmbp2TRkzSlLq1GraVA6HYj74JdWurSxZdPKkdu+Od1FgoBwOw0cFAAAAngYBhiQv5p7XvHmKipL+3BzxzyKTpI0blTWrhgwxZT4AAADg3yLAkORVqqRChRQQoA0bYhY6d5akJUt0/37sKVmzymrVlCn6/XeThgQAAAD+BQIMz4P27aW4e14+t34Jcs5W6/bSb7+NPf7ii3rzTYWF6YMPTJoQAAAA+BcIMDwPOnSQ3R717ararwT98Yd07VqG8Msf6MNJk+I+9zV6tFxctGCBDh40dVQAAADgyQgwJGE//qhduyTJ21uvv26LCi+8f8GiRVKdOo4sWV/Q0VQHd6xYEXtu7tx6911FR2v4cBMnBgAAAP4OAYakKjpadeqoVi3dvStJnTpJ6qQ5CxdKdrulU0dJPfT5iBExe3NI0rBhSpNG69bphx9MmxoAAAD4GwQYkiqrVWXK6M4dxdzkql/fkdn7RR2J2Ln39Gnp3Xfl7NxMy8KOnV28OPaKDBk0YIAkDRnClvQAAABIigiwv+EIDw48e/TA7u0//7h50+YftmzduffQ8XNX70Tw3/YGadtWkvz8JMlut7RpLamT5ixeLGXLptatbYrqrSmjRikiIvaKPn2UNav27tXGjWYNDQAAADwRAfZXoRd3LBjbvWHpPGlTe2XN/2LJspWqVKtRs0b1qq9WKF28SF7vNO5eOYu91qrPRP/dl0PNHjZ5a95cqVLpp5908aIkvfWWpFZavHz+fYdDGjhQVutb1jm3zwTNmxd7RapUmjZNxYopZ07zxgYAAACegACLJ+y3VcPrvlioUtuh01ftPX/78be6HBHBF3/9acmUAS3LFShSq/+CQ7e5I5ZIPD3VoIGio7VwoSQVKqQyZdLodrGz3+zZIxUqpLp1XaPvd9cXo0crLCz2osaN9b//qXBhE+cGAAAAHo8A+5Pjzr5JDSs2+Xjd2fsOyeKUJlvBF4sWzp3e1WKRJFnTvFCzSaO6NSoWz5fZ3W6RJMf9cxsntatY+d3l58JNnT0Zi3kKcf782G8fbMWxYIEkafBgWSw1PH65cEFffWXShAAAAMC/RoDFctxa37/54I2BkQ6Le+Hmn6w5du36pZOHfz127lrQmfUTm/ukskQH/349Xy+/DdsOnrly+8bZnSsm96iR190ix91fZ7WpN+gn7oMlipo15e2t48e1b58ktWwZ7ZqqirYcXXVWksqX15Ytd6f6Svr4Y92/b+qoAAAAwD8hwGJEnZ794bzzkQ6LW7G+a3YsGVi3kJc95og1dd6a/RZvWdA2l/XugUnt+q256ZBsnnnKNe49beOR/Qs6veBmcYQdn95rwgHugiUCu12tWklSzD0vT09r86YWOaaWePCpr8qVa3bMVrasAgM1fbppYwIAAAD/BgEmSYq+sHbVgTCHbHnemvJhlbSWR49bvRuOGVLN3RJ1aclU/4DoP9fdfN6csWJM5dQWR/jRr2dtCTF06BSjSxe5u8vNLfbbTp0kFd33ddz7v6RRoyRp3DgFB8e71OFQKBulAAAAIMkgwCRJkSePnoyUbFlqv1E+1WPPsGatWftlJzlCd234Od5/4zv5dHz3dU+Loq9t3Xs/DyQAACAASURBVHI00pBpU5pChXT9usaOjf22cmXlz69Ll7R585+n1KypKlV044amTo13aceO8vbWb78ZOC0AAADwZASYJMkRFhrqkKwZMme0PeEUa8ZMGaySI+JKwLWoeEdSF/DJbpOiLl8IiHrCxXhGrq5xX1ss6tBBkubMefiU0aMladIk3bwZt+jiotu3NXy4ASMCAAAA/4wAkyRZ02fMYJWiAs9ffNIHuaKvXQmKlmRxcXWJ/4iiI/h2sEOyOD96AImlQwfZbFq5Utev/7lW0ftMv1Jbb9/Wp5/GnfjBB0qVSkuWaP9+E8YEAAAAHkGASZLsRV4pnsqi6KB1C9Zdf+xuhtHn16w6ECFZPfPmyxTvt3bn56VrL0dJtnw++Z50+wwJK1s21aql8PDY94PFaNt24r4qr1j2T5mia9fiTuzRQw6HBg0yZVAAAAAgHgJMkmRJW7N5rXRWRV/179Xlq+N/2c383qHP3v1oW4hDVq/qdSu4/bnuCD40o+NbX52PksWlWMO6eQkww7z1lqSLg7+o83q0IyaZK1eWwzE5y/h79zR+fNyJgwcrXTr98IO+/96cSQEAAIA/EWAxLBmbvN+vlLvFERXw7bvlSjcdPnvdnuPnL106d3TXmllDG5eq1G9jULQsLkV7DGjgJUly3PhhTJMS+Ut1W/F7pMNiz9Puw66F6a/EFRwsP7/Yt301aKB8+XKEnnbasGbVKklS375yda1wZUVB65kvvtClS7EXpU2roUMlqV8/RbJLCgAAAExFgD3g9NKAxdOb5nSyKPr20RVj3q5bpkieHDnyvli+ftex3x6/Ey1Z01X92G9ICeeY86NvHli9+n9BEQ5Z7FlrT1z+ae10fAIskU2frnbtNGGCJNls6tFDUh9NHjVKDoeUObNat7ZER03L82loqMaNi7uuZ0/ly6fjxzV/vkmTAwAAAJIIsIfZ87RbtHPV8Np5Uv2lpCz29CXemrN1Vd+irvHWranzvvbOtC0Hvuv1cmrD5ky5ypSRpLlzFfPQYefOSpOmirbYD+5du1aSNGCArNYal77Obr8ya5bOnYu9ztlZH34oSbGpBgAAAJiEAIvHnu31D9cdP7Vr6ZRBnZvWrVaxfKXq9Vq8M2LGmkNn9n7V/gX3h061ZWvheyjg2pkfvuxeIbPdtIlTlCpVlDu3zp/X9u2S5OGhzp0l9dS0ESPkcEg+PmrQwBIW+sUL0yMiNGZM3KUtW6p+ffn4yMJ9SgAAAJiHAPsrl2xlmvUaN3vZms3bdmzdtHrJlyO71ini9ZffVKqcLxT2duM/5w1ksejNNyXJzy925b33ZLe3siy5duDS+vWSpCFDJNX7/Yt0znfnztWJE7EnWq1atUobNxo/NAAAABCHAMNzpX17SfL3V0iIJOXKpTfesDsi3tWXo0ZJkkqXVqVK1j9uflZ2UVRU7NuZAQAAgCSCAMNzpWBBlS6t4GCtXh270qePpG7WGUd239u0SZI0dqxeeqlW78JublqyRIcOmTYsAAAA8AgC7JmF3gq8HBAQEBBw+Wao2bOkCG3bSg89hViunMqW9Yq+2VZ+Fy9KkipU0KFDGd6o1KWLoqNjt98AAAAAkgJ2j3hWYRt6+ryx8I5Dcm227I+lTV0S7ieHhR05cuQ/XHj//l/eJJ2ctGypfv20fr2CgpQxoyT16aMWLablnWzv0OXh/09h2DD5+urbb7Vnj0qXNm1eAAAA4E8EWNLVqVOnRYsW/efLL1++nIDDJCEZMqh1a61YoYiI2JUmTZQnj/23U/r+e9Wt++eJGTOqe3d98olGjVLsPvWSpPv35eOjokW1bp2xkwMAACDFI8CSrmrVqp08efI/XHj8+PH79+97eHgk+EhJha+vpk+X64OXstls6t5d/ftr8uSHA0zSoEGaOVPr1mnrVlWuHHd6WJi+/14rV6pRI2MnBwAAQMpmcfBi2mfjuHV2/+nrUQ7Jmr7AK/nTJYF96UuWLHngwIGGDRuuXLnS7FmMEhysnDl1+7YOHlTx4g8fGTlSo0bp1Ve1ZUvc4uefq2dP+fjo8GE5ORk8KwAAACSpbdu2CxYs8PPza9OmjdmzGIdNOJ6VJW2+V0qXKVOmTJlSSaK+UihPT3XoIElTp8YtRkSoVq0hd4amT6+ff9aGDXFHunZVgQI6eVK+vgYPCgAAgBSNAENy0bu3bDYtXuw/JXDyZElSSIi2bnWZOn5c59OShg3Tn7d7nZz08ceSNGKEgoNNGhgAAAApDwGG5CJ3bjVsqLCwqyO/7NtX27dLnp5q105RUR1vTsqeXfv3a8WKuNObNlWFCrp2TZ9+at7MAAAASGEIsH8Qefd6wLmTRw4d3L9v/8HDJ86cDwi6G2n2UHjgwAE9vFFknz6SOkfMcFNI7Ou/Bg6UzWbzmzumR6CkYcMU+dD/ehMnymLRxIkKDDR0agAAAKRYBNhjhAT8svTTAe1ql/XxTu3mmTF73kJFi5d4pdQrJV4qXCBP9sye7l45ipSt037ItG92X7zPHiZm6tlTrVtr27bYbytWVJky7veDuqRasGmTtm+X8uWLuS3W5ta0/Pl16pTmz4+7umxZNWqke/c0frwp0wMAACDFIcDiib6xe0bX8nnzlm/Rb6Lf+t2nrt6L/EtgORzhty8d3/39/HHvNSmXL3fpDlO3X40yY1hINWtK0mefxa306iVpuNskq6I/+kiSNHCgJOv0z8cNuCFp1CiFhcWd/sknypVLWbMaNzIAAABSMgIsTvjZRR3Kvdpt1q4r4THVZbGlSp/D5+XyVarXqlO/0RuNGtR9vUbVCiWL5M6U2ilmv0NHRNC+eX1eK9105tEQM0dPsd59Vy4uWrlSFy/GrjRrppw5M9w4+Yb7xg0btGOHVKaMXn9dd+40PjepeHFduKAZM+J+QIECOn9eAwaYMj0AAABSHALsgZA9HzbptOB0mEMWl6zl2o2cs+Hg77eCr184cWDHT5vWr1317Tfffrfm+40/bt939NzV27cDj/7sP6lnHR9PqxwRF757r/HAH27zNKLhMmVSkyaKjIyLKrtd3btLGpd5shS71aFGjZJk+XzauP7XJX30ke7cMWdeAAAApHAEWIzoC18PnfxrmMNiy9Zgyo6jO+aN6FizeA4P2xNOt7plLlK5ed/P1h469G3Pl90tjvDTXw2beYonEU3Qs6ckzZql0NDYlS5dlDp1/t82lnP/dd067dkjlS6tevV0926tLL+WL6/r1zVliokTAwAAIOUiwCRJ0RdX+m8PcciWo7Ov33slvf71C5VdcjeY7D+6opvFEXbg29XnKDDjlS2rUqV0/bqWLIld8fKKeSnzZ/k/k7R8uSTJz08bNqhq1XHjJGnSJN24Ycq4AAAASNEIMElS5LH/HY1wyJqpTrOqnk95rS1fk2alnaSo08e4BWaOHj2k+Ftx9O0rm+2VEwumDrnSvbskyctLNWvKYqlUSbVq6fZtffKJKbMCAAAgRSPAJEmOsLBwh2RJ7ZH6X9/8+pPV08vTKjnCw8L5FJgpWrRQpkw6eFAHDsSu5MmjevUUFvaey8xcuR49fcwYWSyaNk2XLsVb//lnpU4tX18jRgYAAEDKRIBJkmzZc2W3SdGX9h8IjH7ai0MO7T0SIVkzZ8nMr9MULi76+GOVKCFv77jFPn0kafr0uM+GPVCypJo0UWioYvepfyAiQvfuqX9/Xb6c2BMDAAAghaIYJEn2l+rVzmWTI+TnTwYvu/g0DxI67uyZMGTe+ShZ01eo8pJTok2Iv9e5s/bvj/c+r1dfValSunZNixb99fQxY2S3a84cnTkTt1i9uho10h9/qGvXxB8YAAAAKRIBFsO5TNeelTwtirqwpF25WgP99gSG/eM1UX+cWDuxTfkao3YFOyzOL7zdvYa7AZPi33vvPUmaPFmO+M+GrlhR8PdN7dopIkIjRsQ7Mn260qbVmjVautS4MQEAAJByWBwOPrcUI+LkrMZVu60NjHJIsjily1+6YsUyLxfOmyt7lgxp3F1dne2OiNDQkLs3rly6eO7Uob07t/9y5Mr9aIckq1fFDzeuH1YqiQRYyZIlDxw40LBhw5UrV5o9i6kiIpQ3ry5d0saNV4rWuHJFxYtLkZFyc5PdfmXH2bwVs4aFaf9+FS8ed9GsWeraVRky6NgxZcxo3vAAAADJXdu2bRcsWODn59emTRuzZzGO3ewBkg4nny5Lf3Dt2arX17/+Ee2IuHl6x6rTO1b942VWjyKtPvH74p0SSaS+EMfJSd26aehQTZ7cOqzGli3avVuvvGJXo0Zavtx77riuXT+bMkXvv6/Vq+MuevttLVumzZvVv7/mzTNveAAAACRHPIL4MLfC7WbvO7lr3gdtKudLY//7/RAtds88FVoNnbPtxMEF75ZI8/SbJ8II77wjd3etX18v77Ho6AcPHI4cKatVs2a93/GSh4fWrNHWrXFXWCyaNUvu7po/P16YAQAAAM+OO2CPsmcq3XaUX9tREX+c+3XfgcMnz/4ecPXGrbsh4ZFycnNPnTp1mow58/v4FHqx2Iu5vdh0I8nZs0cffaRJk1SggCSlTat27fTll93CJo/0/GrdOv3yi8qWfUHNmsnfP93Msb17fzF6tIYPj9dgefJo5EgNGKCPPlL9+mb9SwAAAJAMEWBP4uSVp2T1PCWrmz0Hns7mzVq9WmnSyM8vdqVPH82a5eI/f1jXEYOmZR85UuvXSyNGaNkyzZ496MCAmTNzb9umDRtUq1bcj+nTRwEBKlzYlH8DAAAAki0eQUTy0qaN7HYtXaorV2JXChRQ8+YKD+8VPsHLSxs2aOtWqXBhtWih8HD3zz/p31+SBg1S9EOvgLPZNHmyunQx4V8AAACAZIwAQ/KSM6caNFB4uL76Km5x+HBZrS7zZg3vdFnShx9KkkaNkt0uX9/36p/Lnl2HDmnFCnNGBgAAQMpBgCHZ6dlTkr78UhERsStFiqhRI4WG9oiYnC6dfvhBW7ZIBQqoZUtFRLisWDR8uCQNH67ISLOGBgAAQIpAgCHZqVJFL72kwEB9803c4vvvy2JxmfPlsC5BkiZPliSNH69evdSiRefO8vHRqVOaP9+ckQEAAJBCEGBIjrp3l6Rp0+JWihdXnTq6d69H1NS6dVWjhiQpSxZNmaL8+e322B3qP/hAISGP+Xk7d2r8eO6PAQAA4FkRYEiO2rRRunTasUP79sUtvv++JOeZ09b43erR49ErWrRQsWIKCNCMGY/5eWPHatAgTZqUeBMDAAAgRSDAkBylSqWOHSVp5cq4xTJlVL26goP1+ed/vcJq1UcfSdJHH+nq1UeP9u0ri0UjRuj48cQaGQAAACkBAYZkauhQ9e+v9u3jLcbstjFliu7c+esV9eqpXj3dvKl+/R49VLWqOnRQWJg6d463Wz0AAADwVAgwJFPp0mnCBBUoEG/x1VdVubJu3tSXXz56/u3bunDh88/l7q6FC7Vp06PHJ09WtmzatUszZybi1AAAAEjeCDCkMDE3wSZM0N278dYbN1bBgrnCTr3/viR16/bobhxp0sRW2+DBunjRmFkBAACQ3BBgSGFq1FD58rp+XbNnz54tV1dt3ChJKlhQYWH68MN+/VS8uM6c0Zgxj15av76aNFFwsLp2NXxsAAAAJAsEGFKeIUMkafx4hYSEhWnwYDkc0pAhcnHRkiX208dnzpTVqgkTdPToo5d+/rnSptX332v5cuPnBgAAwHOPAEPKU6+eSpZUYGAHzc2eXQcPauVKKWdOdeqkqCgNG1a6tLp2VXi43nlHDke8S729NXWqLBaeQgQAAMB/QYAhufvtN6VJowED4i0OGSLJPnHcsAHhkj74QNHR0tCh8vDQt9/qq6/GjVO2bNq+XbNnP/rz2rZVYKD69DFofAAAACQnBBiSO6tV9+5p2jQFBMQtNm6sF1/UhQtvuS7InVtHjuibb6Ts2WN76733PH/7X8xrlwcNesxrwTJnNmp4AAAAJC8EGJK73LnVpInCwjR5ctyixRJ7E2z8x0MHRkoaOVLR0VLz5nr7bYWGqlWrFvXu1aunW7ce81owAAAA4L8hwJACDB0qi0UzZujGjbjFFi3k46OzZzu5++fJo6NHtXSpJGnqVBUtqhMntH7937wWDAAAAPgPCDCkAMWKqUYN3bun6dPjFm02DRokyTZuzPCh0ZJGj5YkublpzRpNmaLatXPl0pNeCwYAAAD8BwQYUobBgyVp6tR4719u00Z58uj48fYe3xQtqvDwB3se5sypXr2UKpWkv3ktmKT//U85c2rePAP+AQAAAEgOCDCkDFWrqlw53bihOXPiFp2cNHCgJNvYjw7sdxw7Jovl0evsdv3Na8H++EMXL6pfP926lajTAwAAIJkgwJBiDBwoSZMmKSoqbrFTJ+XMqUOH7OvXODk9/rq/eS1YlSqqXl03bujjjxNtbAAAACQjBBhSjAYNVKyYbt7U/ftxi87O6ttXkkaOfLSu/uRwjBsZ+qTXgk2cKKtVn32ms2cTZ2wAAAAkIwQYUgyrVdu26dQpeXjEW+/aVVmy6MCBJ+512L69Z6GsX/U5pse9FqxYMbVurfDw2O06AAAAgL9BgCEl8fBQliyPLrq6qndvSRo58vFXeXnp1q3ac1s0qX3/sa8FGztWqVJpyRLt2pXA8wIAACCZIcAAqXt3ZcyoXbv0889RUapWTR06PHR07FgVKaIjR+Z6vvfY14Jly6ZeveRwqF+/Jz7GCAAAAIgAAyTJ3V3vvSdJo0dHR+vXXzVv3oP3MsccXbpUqVKl9vf1rztfj3st2ODBsQW3fr2xkwMAAOC5QoABkqT33pOXl374wWnPjpgtDXv3VnDwg6MvvKDPPpNUd223Nwod/+trwTw99ckncnKKt8MiAAAA8AgCDCnStWsaOVIBAXErnp7q0UOS3n+/cydHuXIKDNTo0Q9d0rmz2rXTvXsLI5qntt7/62vBOnZUeLjq1TNifAAAADynCDCkSMuXa9SoR/fT6NNHmTLpp5+skyd9/rlsNk2Zol9/feiEL75QoUJuZ4+sLdw/PFzduhk7MwAAAJ5/BBhSpIYN5eys5ct1+nTcYrp0mjdPFouGDi0RsfuddxQZqe7dH9pXI3VqLV0qN7eKt1ZnyqStW7VqlRnDAwAA4LlFgCFFypZNbdsqKkoTJ8Zbf/119eypiAi1aTN26J0sWbR9uxYufOiEokW1d6/1x83Dh0vSoEGKjDRybgAAADzfCDCkVEOGyGbTvHm6fDne+vjxKl5cZ854DO81bpwkDRqk6OiHTnjhBfn4vPOO8uXTiRNasMDIoQEAAPB8I8CQUuXLpzfeUFiYpkyJt+7iokWLlCqVvv66rW1Ry5YqWlQWy6NXOzlp1ChJGj780S3pJfn6KnduHT6caMMDAADg+USAIQUbNkwWi2bM0K1b8dYLF9bkyZIs3bst/vjc+vWPCTBJrVrp5ZcVEKDp0x89dPGifv9dvXsn0twAAAB4XhFgSMGKF1e1arpz5zEJ1aWLWrTQ7dtq2VIREY+92mrVmDFyU8iYMY8WXO/eSp9eP/6otWsTZ3IAAAA8nwgwpGxDhkjS3LmPOTRjhnLl0p498V8HFk/te8vvWDwb3/J9ZC8PLy/F7NLRvz+7dAAAACAOAYaU7bXXNHKk+vd/zCEvL/n5yWbTmDH68cfHX+7ubnNEfqq+Sz+9dOlSvCPdu6tAAZ04IV/fhJ8aAAAAzykCDCneiBHq2vXxhypV0tChio5W+/a6cePOHZ0/H/+E2rXVuLGngqeGdh0zJt4RJyfFrHzwgYKDE2NuAAAAPH8IMOBvffCBKlTQpUt6++0331SBAtq3L/4JX3wR5Zm2jtYFf+V/4kS8I82aqUIFXbumSZMMHBgAAABJGAEG/C27XYsXK106fftt56hZkZHq1i3+a8G8vW2TxkuaGtVj0uCgR64eP14WiyZOfPRlYwAAAEiZCDDgn+TIoZkzJTX6qVetrIf37tVXX8U/oXPnsErVM+h6pe/6794d70j58urWTc7OT9pJEQAAACkLAQY85P79x683baqOHRUautT+pptChg5V0MP3uiwWl3mzwp3c22n+ii4bHrn0889165Zy5UqskQEAAPAcIcCAB0aNUtq0+uWXxx+dNk2FCnleOLIk9+CbN2O3r4+TJ0/U8BGS6vw6bvPmRJ8UAAAAzykCDHjAZlN4uIYMkcPxmKPu7lq4UM7ODX6f1tR51Zw52rUr3nG3oX12vjZ8qnr17x//Q2IAAADAAwQY8EC3bsqYUVu26LPPHn9CiRL6+GM5HHPtb2VxXO7RI35o2e0l1o7en6PRoUNatsyQgQEAAPC8IcCAB9Kli91eY9AgHT78+HP69lXduu73g5a7tP7fgei9e+MddHXV++9L0pAhCg9//A9YvVpbtybg0AAAAHieEGDAQxo2VOfOCgvTm28qNPQxJ1gsmj1bmTKVC9uy6tVJL7306PFOnVS4sM6dk6/vY66OjFSTJqpV64l9BwAAgOSNAAPimzpVBQvqyBGNHPn4E7y9NXeuLJa6v7zvduHkIwdtNo0eLUkjR+rOnUcvtdv1f/buMq6KrQsD+DOHc0hB0gLba3cntgKK2IAdmJgXRey4NjaKCaIYKKKYmGBgotjdhYHYSp4z7weu91XawyF9/p+us9fes7bvqz+WM7N2v36IikK3boiMVHXmRERERJTtsQAj+lV8sw2ZDK6uCApKOsbSEv36IToagwYl7tjRqRPq1UOdt3svt5+euB3HokUoVw43bsDZOSOyJyIiIqJsjQUYUSI1a8LFBQpFst04AMyfj3z5cOIENm5MPDh3LsbC1Txw2tc5bgmGtLWxfTs0NbFiBfbsUW3eRERERJTdsQAjSsqUKZg3Dy4uyQYYGmLBAgBwcvr1VGYAMDfHkRouANSnTcCjRwlGK1bErFkQRfTvj7Aw1eZNRERERNkaCzCipEilcHZGnTopxfTsiRYtEBHx1XHcy5cJBzt7Wm0T7NTjvkf2GJD4NcXRo9GmDd69Q58+PDSMiIiI6A/CAowoHVauhKamjq/XqMqBCVpuVK6MoI5u4TDROhsIb+8E8340U8SRI/D0zLx8iYiIiChrsQAjSodSpTBhggBx1vshyxckbFvvssDYRboAgHzEaDx/nmA0vpmitjYEIZOSJSIiIqIsxwKMKH3GjfterHxp3BPmz3v//peRYsWgPbjXPrRV+/Qe3bsjLi7BVEtLfPuG/v0zL1kiIiIiyloswIjSYMsWVK2KmzeTGFJX1964SoQwOmrOxvG3EwxOmoTheda/hClOnYJbwo6IRERERPSnYQFGlAZ37uDqVXTvjujoJEYbNYqw6aeB6JoeQ968/qXfRv78cFlgbI+tn4W8H75rZFK2RERERJRdsQAjSoNx41C6NK5exeTJSY4be87/pJGvofzEsd4JjwUbNAh52zbKK360PTE0UTdEIiIiIvqzsAAjSgMdHWzeDJkMCxciKCiJAEPDL1MXALA44vTySsJjwTw9kT8/jhzB8uUp3eTePaxbx670RERERLkZCzCitKlZExMmQKFAr1748CHxuNn4njcKtDAUI8J6jkswZGKC1asBwNkZN24ke4fJkzFgAGbOVGXWRERERJStsAAjSrNJk1C3Ll68wPDhSY4b+KyMkWjWuumFwMAEQzY26NcPUVHo3RsxMUkvP3AgJBLMmIGTJ1WbNxERERFlFyzAiNJMKsWmTdDVxebN8PFJPG7auJT6tAkQRQwZgqiEx4ItW4ZSpRAaihWjH2DGDHz6lCCgeXOMHw+5HN264d27jNoEEREREWUhFmBEv6NkSbi6AsCUKUkHjBuH8uVx7x7mzUswoqMDLy+oqUG+cg2mTk3y/K/p09GsGV6+RK9eYMcOIiIiotyHBRjRbxo0CNOmwckp6VF1daxaBUHAnDm4nfBYsAYN4OwMN3HYJ4kB/PywcmWCADU1bNgAY2MEBGDRoozInoiIiIiyEgswot83dSoGDUp2tFEj9OuH6GgMGZL4Mdb06chfq4iDYg0AjB6Ny5cTBJiZYcMGCALGj8fZsypOnIiIiIiyFgswogwwfz7y5cOJE9iY8FgwmQwbNmC/Vuc1GIjoaNja4suXBDFWVhg1CrGx6Ns3sxImIiIiokzBAowoAxga7muyAEDcSCeEJzwWrFw5zJ6NkVh6U1oF9+9jxIjEC8ydi9atYWaWGckSERERUaZhAUaUIW5U63kULaSfIuDiknh05Eg0sdDsGLc9UqoLLy94eycIUFfHwYM4ejRTciUiIiKizMICjCh9Tp7EsmWJv/UaNgyTjdyjoIn16xMfCyYIWLcO7wxLD4tbAgCOjvj2LXPyJSIiIqIsxAKMKH0mT8bIkVi/PsHlPHnQyeWv2ZgAUcTQoYiMTBBgago3N3ii3wrZqO8Va0Mmy6yMiYiIiCjLsAAjSp/4dojOzonPTh42DN6Fxt1EBdy9m2Tb+m7dYGeHYbGLWwpH5WrqmZAsEREREWUtFmBE6dOtG5o1Q0QEJk1KMKKpibET1W2xLVqihZUrsXt34tkrV6JIEZw5k/jc5l/ExWHKFBw5osK8iYiIiCgLsAAjSreVK6GhgbVrce5cghEHB0SVrOCimP3vL8LCEgTo68PTE4KAqVMREpLsHZ48wT//oGNH3L2r4tyJiIiIKDOxACNKt9KlMXo0FAo4OkIu/3lEXR2ennCTjNwvtMW7d+jWDQpFgtnNm2PECMTFoXfvxF+K/atUKfTsia9f0blzsjFERERElP1JUw+JOTii+vCA6PTdR8PSLXSZBT9yodxq8mT4+CA0FKtWwdHx5xFzc0ybLizx9bB8XUVy4gQWLcKYMQlmz5uHwEBcv46JLvJFeaejVi1YWyeIcXdHSAhu3MCYMVixImN3Q0REREQZJA0FmPj19cMHD6LSdx/N118TtukmykW0tbF4MTp0wKRJ8V8ZrQAAIABJREFU6NoVJiY/D06ahEmT8uHgelhZYcIEmJujdu2fAzQ04OWFevWww+3VIvEfaGkhNBRly/4ckycPtm9HnTpwd0fDhrC3z4xtEREREZFqpaEAE/SKVKhYMb1PwIroCelbgSiba98ebdti3z7cuZOgAPuXhQWGDYObG7p3R2godHV/HqxeHdOnY/x4s61a/ewjPdG9O86dS9CbvlIlzJ+P4cMxdCjq1kXx4hm6HyIiIiJSvTQUYOqtFly8viDjUyHK8Xx8cPNmgqdbv3B1xcmTuHoVTk5YsybBoLMzjh7FgGPLGmufLBQaipkzMX16gphhwxAYiF27YG+PU6d4eBgRERFRDsMmHESqo6OTUvUFQEMDW7ZASwtr12LbtgSDEgk2bICmkU7X716iRA2zZyduqwjAwwNFi+L8+cQVHBERERFldxlfgEV9eBX2Mizie8LWb0R/JLFc+XMd5wPA4MF49izBqKkp1q3DaTRYJDghLg49euDr1wQxBgbw84O5OapWzZyUiYiIiEhlMrwAiznlUr2wWdHGc67EZfStiHKAy5dRf7PjUe12+PgRPXsmaFsPoH17DBqEifIZdzWr4OFDODsnXqRGDZw4gQYNMiVjIiIiIlKddBdgiuhP796+Sc6L67u2HX8nQv788fOEP2cS/YkqV0b1GkK37+s+aRfEyZNwdU0cs2QJSlfS6BLlHaemgVWrUjqhmYiIiIhyFOULMDHinFu/BkX0tA1M8hdITuHKdh734kRIDE2M+LkZ/VFOnkTlyjh5MsFlqRTe3viiaWIb6QVBwOTJOH8+QYymJrZswX3NSiPki78bF4GOTmYlTUREREQZS9mqKOaaq43FqPVnnn9TpHq+lyAxqDekT222a6M/yoMHuH4dDg6ITniGQ7lymDYNh8RWa3VGIS4O3bvjy5cEMRUrYvZsrMSQouKTMP3ymZU0EREREWUs5Qow8e32qXPOfFJAkBiUa9V9yPCBnWvkUxMgyVvddsSoUaNGjRox2L5REU0Bgnrp7u6nrh11rqKu4syJsrdevVC5Mu7fx/z5iQfHjkXDhhj+dc4zo2p4+BAjRyaOGTUKbdvi3Tt06wZFik1sAgNRuTKOH1dR5kRERESUYZQqwMSPR/yOfhIhaNWedizk0Cb3Zat9g9b3KSgRI3Xqjlq4ePHixUtXbjkesn9MLZ3YB0f234lNw3FjRLmLVIoVKyAImDMHjx4lGJRIsG4dJFoaFhGb5RraWL8eW7cmiBEEeHigQAGcOIGFC1O61ZMnuH4dtrZ48UK1eyAiIiIiFVOqAIu7e+VGpAhBp/mQwVX//TpFt7FlozyIvXz6wrcfS+drNmvDlHoa4QdcnLe/SfVFRaJcp2FD9OiByEiMGJF4sEwZzJ6N2yg3UXMhAAwdiqdPE8TkywcvLwgCJk5M/KXY//XpA0tLvH2LTp0Sv/BIRERERNmIUgWY4t3bCAUgKViujL7w46Jm6fIlpGL0g7tP/t/uUFbWYUSbvOK73fNX32ATRPoTubpCXx/798PLK/HgiBFo2hRLogZ/b9MFHz+iR4/EXelbt8aIEYiNRY8eiPTZjRMnEq8jkWDzZpQogQsX8PffGbENIiIiIlIN5b4Bk8vlACQ6eXT+P19iVtRMTYh7+vDpTwd+CXnrmVeRibE3DwQ8ZAVGf6D8+eHmBgDDh+PBgwSDEgkOHcKLF9D2Xo3ChREcjDlzEq8xbx6qVsXTB7Ea3TvD0hK3byeOMTDAzp3Q0oK7O9avz4CNEBEREZEqKFWASQyMDCSAPPx1+P+rKiFPkaLGgvj11vXHP5VaEmMTIwkgf/LgCQsw+jP16IGuXfH1K8aPTzwok8HYGDAwwPr1kEgwfTouXkwQo6GBzZsh05Z5KvogMhI9eyI2NvFSVapg9WoAGDoUoaEZsBEiIiIiSjelCjBp6YplZAIUb88G3/3/4y614n8VlyLuzoVLn///wZf48cMnERCjIqP4FRj9sVauRKtWqFs3pZjmzTF6NOLi0KdP4g+5ypeHqytGYclDyV+4dAkzZiS5Rs+ecHBAVBS6dsXnz6rKnoiIiIhURqkCTDBp0qq6uoDYa4uHTg989e+/xUsKVapoLBG/HfHY/ORHz2zFs907z8cAagVMC6ipKGWiHMfQEIcOwckplbBZs1ChAm7exJQpiQeHDkULG51eCi+FoIbZs3HqVJJruLmhRg08fIigoPTnTUREREQqptw3YGqleo/qYCKB4mPwzBYlCjdfeC0OgHoti+bGEvHb8Qkdh6w+cul66DGPkV0nBn4VITFu2LgiW9ETpUxD4/msjZDJsGABgoMTj69fj+eF67uKY6BQoH9/fP2aOEZTEwcOwNsbVlYZnzARERER/SblCjAIxp2Xeg4sqykAYtS7p6++igCgazlmeDUNQfxyZc3gVjUr12jhsPzCBwUE7RrDhrfQVmXaRLnQtWso2qG6j9kYKBRwcEBkZIIAAwN4e2O62oyrQlXcvw9HxyTXyZcPPXpAJsv4jImIiIjoNylZgAFCvjYrTgd7je/WvPpfhfRk8d3oZZXHeLu1LywTforTLtNj9ZaxVfjDIFEqihSBiQl6P572rmAl3L2LiRMTxzRujOFO6vbilu+CDjZuhL9/5udJREREREpTugADIDGs0Wv25qOXbp+cUuvH+4Wa5QbsuHFt74qpowf26TPw71mex26EbuxRSl0VuRLlErdvY+pUfPyY4LK+PjZsQKyg3iZioyiVYenSJE/9+ucf6NQsN1hcGSdRF799z5SMiYiIiEg1lPowS3738M6Icm3rFdYSkhiV6JVtM3Ram3QmRpR7eXhg4ULcu4etWxOMWFjAwQFr11ZdaTJhaPh09O2La9eQJ8/PMerq2LED1av3lL3vuTgco1K727dvuHMHNWqodAtEREREpBSlnoDFXV/Xq2GJQuUtBs/ddv4l+8sT/R5HR+jpwccHW7YkHly8GKVLY2T4pBcFauLxY7i4JI4pWhReXhAEODvj9OlU7ubigpo1sXChSlInIiIionRR+hVEMe7jnUOrx9vVK2ZasY2jq2/Iq4QnFxFR0ooXx+LFADB0KJ49SzCoo4PNmyHIpJZvNyjUNeHujkOHEq9hbY1RoxAbC3t7vHuX0t1atIAgYNw4BASobAdEREREpBylCjC1Mq1sG5fUUxMAiHHvbx1wd+5ap6hpJevhC3eGvolRcYpEuVC/fujcGZ8+oUcPKBQJBmvWxIQJuKEov0h7EkQRgwYleazyvHlo0ADPn6NXr8Rr/J+NDaZOhVwOW1vcvKnabRARERHR71GqAJNWcvA6fv/103M7Fo/uXMdMWyIAYmzEjX3Lx3SqWcSsqs2oJf5X3rIQI0rJypUoUACnTmHJksSDkyahdm2M/zjua/naePoUY8YkjpHJ4OMDY2MEBGCd020sX46YpP/YTZkCOzt8+QJr61QelxERERFRhlK+C6KgZVq706hFvueevn5wYtOcodZV82sIgBgTfnXP0tEdqhcpXL3j38v2XnsXq8J0iXIPY+N/P+SaMAHXriUYlEpx8CAOHZPm8dsALS2sXZvkG4RmZti4ERIJNJfOw/DhGDcuyVsJAjw9UasWHj+GvT3i4lS/GyIiIiJKi/S0of+xhG7xRt1dVuy5/OLVrcMe0/q1LGsoEyBGv728a/HIdlULF6nVeeyKA3c+sVcHUQKtW2PgQERHY8iQxIMGBmjWDChbFtOnA4CDAz58SBxmaQkXFywXHWMFdSxdir17k7yVlhb8/VGoEI4ehZOTSndBRERERGmmggLsP1KDsi37TfU4fPvVi9C9K1y6m5fQUxPEqNcX/RYM6zTlSC55JVHx+emloL0+Gzft2H/yZngu2RRlnYULUacOTExSinFyQqNGCAvD6NFJjv/zD/K2qDVenA1RRO/eePo0ybBCheDrCw0NLFuWZF8PIiIiIspwSp0Dlhr1fFUt7LW08uhII5duuvhOnqOefcW9vxW450DwzWcRkeomFZrY2luW01eLH1KEn1w0YsQc32vv/92SIDUobzN63vyxbUpoZmHKlJPp6ODcuVRiJBJ4eaFKFWzYABsbdOiQeHzTJlSv9nejV6dsPuyGrS1OnYJMlnil+vWxYQNmzUKhQqraABERERH9BlU+AQMQ8/Z6wNppDhaVChUo16L35A0h8dWXINXLq5PUoc3Zi/jlypreNUtWsug79p8Fbu4rFk4f2q5S2dZzz30UAfHtYadWbZx9rr7/f0Epxn246TfVpr71/JDPOarKpBynRInYqTMBwNERERGJx/Pnx+YtgoPa+qcoivPn/31rMSm2trh2DZUqZVyuRERERJQslTwBEyPDLh3e5efnt3Pfqfsf4v4rRQSJjlmdNrZ29nZdLGoUVFfFrTJQzC23Ds1HH3v/SztvUf7m2ESbvoUurNKd1M/tyldRUDMo28LGsnZx3djXt07s23fueaT8zbGJtqPLnV9nbZL9i0zKmb5/R4n5w/fr+td4dRwjRmDz5sQxTZpgxFSDnlO8A9FMOmcOzM3RqlXmp0pEREREKUhPAab4+uTcgV1+fn47A849/fLTi4aCRr7KLTvZ2dvbWjcorqvih2wZRP5g5ZAJge8VEKQmNeyHOrStUVAMu3l6t4fHwYdv94y0uKdzP0wuMWo0ydd3ctP8P37bFtzb4tiu/4a7UU+8Jywd2npmjexeZVIOpakJPX1J5/vr76hX1tiyBR06oHPnxGETJ+LMmUbTD079RzFZ7NtPePYUamqZny0RERERJUepAkzx9NAC11W+/odDw74rfqq7pPqlzG3s7OztOjUvb5ghX5dlmNiQNStOfxMhyW+98pSvw1/xhVQ724GDbEY3brPsxp1bHyExar/YZ2rT/D9VlNqlu63ccudKvZlXYm5v9DozpUYTVmCULp8/Y/dudOwIHZ2fL0sk2LIF9esX+zt23goMxZAhaNQI+fMnmC2RYPNm1Kw+odzT2zU03peR5Ix//iAiIiL6cyj181lsiMfUFf4XX8ZXX4JEp3DdLk5Ldl549ureMa8ZA1rntOoLkN8PDHwiB2TVR87t+9dPRZRg2GzKZBsDCQBJwS6OXQol+g3TrDpwQEN1AfLXwafuyTMxZ8qVVq9Gr14YNizxSM2aGD8eK8XBJzRb4907DBqU5AKGhti6TdJXfXO5JwG7/FN/KTYwEMWKwd8/vYkTERERUVqk4x/IBXWTym2GzN50/P6rJ2e3LxjZoWbBHNsKUP7s0TM5oGbasFGpBG9sCfr1GlWWApBVqllFI4m5kvzVqheWAPKwZy9ZgFE62dhASwteXjh4MPHg5MmoXUfoFbUmUqaH3buxYUOSa9Spg1mzIIro1w+PH6dyw/BwPH2K7t0RGpr+7ImIiIgoFUoVYJJiVhPWBFwPe3l1n/v47uYlcshnXikQY6KjRUDQ0tJM9MhA0NLWEgAIGpqJB+MDtLQEQIyOimYrREqn0qUxbRoAODjg48cEg1IpNm/G+zxFhsYuBYDhw/HgQZLLODmhQwd8/AhbW0RHp3RDW1sMGIDv32FtjbAwFeyAiIiIiFKgVOkkq9ln8gCLCkZJHDOUQ0mM8xlLAPnLB4++JRyTP77/SA5A/uLpiySfcMU8fxqmACSGJkY5vhKlbGDMGNSvj5cvMX584sGSJeHqCi/02aHeDV++wM4OMUkcBy4I8PREiRIICcGYMYBCgdevk7vhihVo3BhhYejcOZVqjYiIiIjSiRUDAEBWsU6NPALELwfXbHr0S5Ulfjiy1udBHIC4G3v2PkiiAvsUuPPoBwUErSo1yuW0b98oO5JI4OEBTU2sXo0jRxKPDxqEtm3hEOP+2ag4Ll3ClClJLqOvj23boKGB5ctxy2Y8ChWCszPi4hJHymTYtg1FiuDsWUyerOLdEBEREdHP0lAxxBwb38zlaDQA9YbTDi5uo/vTlTTTaDE3cE7z7NsiULdVd5v8fhtffwkcZzNAY+3MbrULaUtiP9wOWDRsoOdTuSAIQHSI68iV1v7Dyv30qZvibcD4sVteKSDoNW7XzIDngJFKlC2LCRMwZQoGDsT168iT5+dBQcCmTdi9O6+sqA9aNoSrK1q0QIsWiZepWRNLl2LwYMw9UmODmlRwdcXZs/Dxgalpgsj8+eHri/r1sXgxunZFzZoZuDkiIiKiP5qYqijfLv9WHBptvd7/eiXNNLv4RqV+q6wUe9+9leGPB4KCNI9JAQMNSXxBpVaoy8r1g0pKBQhqJnUHLdl9/t7Lt2+eXg/0mtC2ZPz3YdK/Rh7/ltVb+KF69eoAbGxssjoRSoeYGLFqVREQnZxSCpsxQwTE/PnF16+TCxkwQARE6wIX4goXEwHR2FgMCEgycuxYERArVxZjYtKZPREREVHqevToAcDb2zurE8lUaXlnTsvIzMwsCoCGkY4EAIQ8BUqWKvV7T8AK5MnmT4ekpQZ5+zxp13XB+Y8KiHFfw//9YkbQrTrSy31QC6HwmSMd1j0KP7d6lM3qUb9MFXSqjvX8p7F2FmRNuZZMBk9P1K2Lc+dSCps4EUFBCApC377Yvx9CEn/MVqzAnTvYe6pW50YXd1boKRwMgJUVnJ0xa1aCY5qnT4e/P65dQ2go6tRR7X6IiIiICAAEUWTnvp9EPzu6at7SjXtP3Xz5OVZmWLZpt1HTpznUNhQAxDzaMsDKwftu5M+/Y4JmUYtJGzdOMDfOPgVmjRo1QkNDbWxs/Hm6U0539y4MDWFiklLMixeoWhUREXBzS/IAMQCvX6NmTbx8idEjFYvyzcWUKZDL0bQptm5NcJrzgwc4cQJ9+4JnOBMREVFG69mz56ZNm7y9veMfhf0hWIAlRyFXSNQS/Qwa9Sxo/fINR67cf/5JzbBwuXqtu/Ts1qKkTlYkmDwWYH8axY6dki6doKGB8+dRpUqSMWfPomlTREfD0xN9ix9Ht2549Qo9e2LjxkzOloiIiCjen1mAKdW2T3738M6Icm3rFdbKPk99VC6J6guAZpGmQ+Y3HZLp2RClYEBAxwZqA/pFr0W3bggJgXYSr8PWq4fVq9GnD4YORcWTTWpdvozp09GlS+ZnS0RERPQnU+o1o7jr63o1LFGovMXgudvOv4ziIzSiLFW8OBzly+7IKuHWLTg5JRfWuzcGDUJUFDp1wlshP9zd0bRpZuZJREREREp/5yHGfbxzaPV4u3rFTCu2cXT1DXnFA1yJsoaLC2o00OwSuyVGTQurVmH79uQi3dxgbo7nz9GxY5IHOBMRERFRxlKqAFMr08q2cUk9NQGAGPf+1gF35651ippWsh6+cGfomz/tp7qoD6/CXr58+fJl2PuorM6FcrOxY6Gnh6tXE49Ipdi6Fa+MKjrL5wDA4MF49izJNWQybN8OMzOcPo0xYxINX7qE27f/+9Xz52jcGNu2qSh/IiIiIlLyGzBpJQev4/1Xvgw54Ovj4+N7IOTld4UYG3Fj3/Ix+1ZMMKls0a1P3z7drKrmy74HL6tO9KHhZTps/iICml18P27vrKGylZ88eXL48GElJr579w6AQqFQWSqUHchk+PIFffviwgVIE/7JLVwYXl6waTeipXCszYe96NkTgYEJuszHiz9zuUkTuLmhShX07/9jQKGAuTkAnDqF6tUBPH+Okydx5Qrq10fhwhm5NSIiIqI/R/qPEpN/fnRy05yh1lXza/zUk0PQyFetw+ile66G5/IjXaP8u+vG71vVh01bW1un53/Z6tWrqzIbynLfvoklS4qAOHNmciHDh4smePtGraAIiLNmpbDYhg0iIGpqiufP/3Q1/szmwoXFV6/iL3TuLAKipaVqdkBERET0sz/zIGZVtqGP+3AnaNc2Hx8f/+N338f+u6ygWaBGmx59+vXvYVk2b25smhi9u4dJxjwBO336dPz/HX934s6dO9+9e2dpaXngwAGVZUPZQVAQmjeHTIZLl1CxYuLx6GjUrw/j0MMHBUtBTYKTJ1GvXnKLOTrC3R0FC+LiRRQqBACIjUWrVjh+HDVq4NQpaGmFh6NCBYSHY+NG9OyZYfsiIiKiP9Kf2YY+Q84Bi3l75fCObT7btu89/fizXARUX5xkH+KHh5fuv5OLgMTor5qlDLNBkclzwHKzwYOxejVq18aZM0m+YfjgAWrUwNy4MUO+L0Tx4rh8GXnzJrlSbCxatsSJE6hfH0FBUI9/YzgiAnXq4OFDdO0KHx8IwsaN6N0bhoa4dSvBoc1ERERE6fJnFmBKd0FMiXq+qhb2ffr279uhupFaNihIMpRgULJm7Tp16tSpUytbVF+Uy82fjyJFcOECFi9OcrxUKVy+DIvLc1CnDh4/xoABya0kk2HbNpiZ4cwZjB7946qREfbsQd682L4d8+YB6NUL7drh/XsMH6763RARERH9aVRcgMW8vR6wdpqDRaVCBcq16D15Q8g7uQhAkOrl1WFxQpR+enpYtQoApkzBnTtJhpQogeKlZdi0Cbq68PXFxo3JLZY/P/bsgZYW3N2xdu2Pq+XLY+tWqKlh4kTs3g3A3R36+vD1xc6dqt4OERER0R9GJQWYGBl2cfeK8b2alSlgWsVq4HSPQzfCY0RAkOgUrtd1zNJdIc+errX8E1oiEmUCS0v07YvISCxalFJYqVJYuhQAhg3DmTPJRVWrhtWrAcDREcHBP91i1iwoFOjVC7GxpqaYNQvATw/KiIiIiEgpSrWh/5fi65NzB3b5+fntDDj39Iv8/9+SCRr5KrfsZGdvb2vdoLhuhrzlmGnivr57Ex7x4fP36FiFRENHV1c3r3F+kzzp+X0jSrelS2FsjC5dUgnr2xfHjmHzZjRpggULMGJEklE9eyIkBG5usLPDxYsoUAAAMG4cvn1DeDhkMgCDB+PMGcjlqt0GERER0R9HqUJC8fTQAtdVvv6HQ8O+K36qu6T6pcxt7Ozs7To1L2+Yg0uUyJfn9m7z23fk1PnLNx69/Rb3a5sSQVDXMy1ZtlKtppY27dtb1C6szZcrKbPp6mL+/DRFenm9VTfL5zUfI0fi+HGsX59kT46FC3HtGk6cgKMj/Px+XJ0x478AiQSbNqU/byIiIqI/nVJlUmyIx9QV/lH//kqQ6JjVtupqZ2/X1bJmQU0VJpf5FBHn10wYPd3r3OuYZJtDimLMpxe3z7+4fT5g4zwnkxrdJi6eN6xh/iT60RFluUfPpH9tmDvErL7b597Crl24dQt+fqhQIUGYTIYtW1ChAnbuxK5d6NAhS5IlIiIiyv3S8ZxKUDep1LKznb2dbbuGJXL4i4YAgJiHWxws+226H/2j9hLUtA0LFS5SuKCRrraWloaaIiYq8vuX929ePn/2MvxrrAiIseEXN4xuFnTc7cCWQRW0sjR9oiSYmaFcOay42U5qdWHJ8064fh1168LDA127JogsVAgzZ2LYMDg6omlT6OtnSb5EREREuZxSBZikmNWENf06dmxewUim6oSyTOSFGZ3iqy9Bo1Bd24EDutu0qFepsG6ST7YUkW/uhJw4uGPDmg0H736OfbZ7REfnUheWNc+VR01TTqaujl27UKsWlh74q/ic8yPvOWL9etja4tgxLF8e/33Xf4YMwdatOH0aEybA3T2rUiYiIiLKzZR6cCWr2WfyAIvcVH1B8Wz9hMXXokVBzbTdktM3T2+Y2rdV1WSqLwASrfzlzbv+vWz/1au7hlfTEcSY+2snrr7HDgWUNTZsQJMmeP48ycG//sLGjRAEOE3SOmLvidWroa6ONWvQrBnCwn6OlEiwbh00NLB69U8dEf/TqxdMTeN733/6hNGjcf58huyGiIiIKBdTpgAT3985FXjs2LGga69zS8WheO6/LThShFrh/h7eI2rop/lBlkaxdou3/dNQSxCjQ3ftfZxbfj8ohwkJwYkT6NULCkWS4+3awcUFcjl69MALq4E4fRrFiiE4GFWr4tixnyPLloWzMxQKODggOvrXVdTVERaGdu3w4cOZM1iyBC1a4OTJDNsUERERUW6kTAEmSEJc27Rs0cJy3P73ybaqyFnibl25GStCks+qS1O935yrVrJTl9oyQH7/Fh+BUdaYNg0FC+L4cSxYkFzIzJmwsMDbt+jcGdGVaiIkBK1aITwcFhaYNw/i//8oT5yI8uVx9y7mzft1CTc31KqF+/fRtWvr5nF9+uDrV1hZ4cSJDNsXERERUa6j1CuIOoWLmkgA+fMnz3NJxSFGR8eIgJBHN8/vf8Ul0dPXkwBiTHTyrROJMpKxMby8IAiYNAkhIUmGSCTw9kaRIjh/HrNnA8bGOHAAU6dCoYCLC9q3x8eP8ZEaGli1CoKAWbNw69ZPS2hpwd8fpqY4elQy5m9PTwwejG/fYGWFwMCM3yMRERFRrqDcN2B17LqWkgrye/v3345TdUZZQs2sqJkaoHhxKfRV0u9wpSDyasiNWECSv2D+XNALknKoVq3g6IjYWPTuje/fkwwxNoafHwwMII1vvqOmhmnTsHs3DAywZw9q18b16/GRjRphwADExKB//1/faixUCDt2QFMTbm6C63x3dwwZgu/fYW2d4E1GIiIiIkqachWDVv2pXlPq68uvLh6+MPSrilPKCtLKbS2LqkGMPDHPxfe3HuuJXy64jt/wRA6JUYMmlXNRWxLKeVxdUakSbt/GuHHJhdSsiffvMXnyT5fatkVICKpUwf37qFcPQUH/LWZqinPnsHbtr0vUrYt16yCRYNw4YbzLiuVifA3Wrh1rMCIiIqLUKfnIRtCtOykgaKV9gUsTmtTpPHVj0K0333/7yVF2ol5n0PBGegLkz3x61Wvt7H3hVXSqc+Qf7+xf0KN+y+lnP4uCeoUBji11MiFTouRoamLLFmhqYsUK7Nv3GxNLlsTZs+jZE9++oUsXPH4MQE8PS5cCgLMzXr78Nb57d3h7QybDvHmCx7rly+Hg8G8Ndv++6rZDRERElBspdQ5Y7PmlDkvOxQD4q1wcZP2OAAAgAElEQVS+Bxf9ZvT2myGoaejk1dfTliVd0mm2XXVjZRuN9KSasdRKD13lerTp0P2vYl4ec+1Vd8moUrUbNqxTrVyJomYFjfPqaGqqS8XYqKjIrxGvXzx/fO9qyJngczdef1eIACT6DaZ4jK+VjbdHf4iKFTFjBpydMWkS2rb9jYlaWvDywseP2LsX7dvjzBno6HTqhPbt4e+PESPg5/drfLduMDDAxIkoXVoiwerV0NTE5s0q3QsRERFRbqRUAaZ4fnq7j2/UL9dEefTX92++vk9mimZEpDJ3ykyyMgO3H9Mcbj9y/bWPCjH2/f3Te+6f3pPqNIlueft53isGV+fjL8oWnJwQEYGSJX97okSCzZtRrx6uXUPPnvDzgyC4u+P4cezciV270KHDr/GWlrC0/G+qmxvc3FSQPhEREVHuplQBJhiUrFGzZurv6P1Eo6TB77cXzHRa5Xqtu2gxcOsKt3Wb95559Ckuha6GglSvWJ029v2HOXavX0g983IkSplEgrlz0xgbEYGxY9G7Nxo3BgDo6mLnTtSpg127MHs2Jk4sWBCzZsHREY6OaNoU+voZlzcRERHRH0GpAky9+ZzgkDmqTiWbkOar3XO6d8/psR8fX7sYev3uw6cv30R8+BoZEweZlk6ePHnymhQpVaZM2YpVKhbTZ9MNytGuXsX69fD3R0jIj2dmpUtj2zZYWWHKFFSuDGvrwYOxdSuCgzFhAtzdszhhIiIiopxOqQLsjyDTL16jRfEaLbI6D6KM07QpOnfGjh3o0AHnzkFbGwDQqhX++QcTJqB7d5w9K6lQYd06VKmC1avRrRsaNkx+uQsXsHw5Jk1C6dIArl+HVIpy5TJnK0REREQ5Aw+uIvpzCQI8PVGuHK5fx4ABPw24uMDODl++oGNHfPxYpgzGjYNCAQcHREUluxoOHIC3Nxo2xKVLABo1QvXqOHgwozdBRERElJOwACPK1e7cQcOGWL8+uXFdXezaBT09bNmC5ct/XI2vzGrUwL17sLWFXD5xIsqXx927mDcv+Xs5O8PKCuHhaNIER4707YuoKHTogEOHVLslIiIiohxMqVcQ5Q8PrTv4IO637lPKwqF1STVl7kZEynv0CKdP4/RpXLiApUuhnkTDmDJlsGYN7Ozg5ITatVG7NgBASwt+fqhVC4cPY/Jk9dmz161Dw4aYPRtduqB8+aTupa2N3bsxcCDWr4e19SLvTXJ5Zzc3dOiAgIAffT6IiIiI/mxKFWBxlz1GDfNN4U2kxDS7+PZhAUaU6ayssGkTBg7EqlUICcHOnShSJHGUrS3OncOSJRgwAJcuQRr/F0PRoti5E82bY+5cVK5cz87OwQFr1qB/f5w+DUmSj8+lUnh4wMAAixYJ9nZL3VfGDh6wahXatMGhQ2jQIEO3SkRERJQDZPgriIJETSqVSqVqOaALPVGu1L07goNRvDguXULNmggMTDJq9myUKoVr1+Dv/9PVhg2xYAFEEf364dIlV1eYmuLcOaxZk/ztBAELF2LuXMjlwuBB7sXm9+uHb9/Qti0uX1btxoiIiIhyHuXa0Df9JzB4pCKZUUXM14jnt84c2LxhZ+jbWGiX7blq58rupTXSkSURpUu1aggJgb09jhxB69aYORPjxiUI0dLCpk1Yvhx16vw6MHw4rl3DunXo1EkvJGTZMpNOneDiAmtrmJomf8dx46Cjg5EjBZdxa841e/++pr8/LC1x+rQyZ0QTERER5RrKHcRsVKZegzIphrRu32vkuLOu9u0nHLnp1adltPoZ7y6m7PhBlGWMjHDgAMaPx8KFcHFBRATmz08QUqdOouornrs77t7FqVPo2LHjsWPt26v7+6NtWxw7BkPD5O84bBgKFcL+/Wrly/j4oF07HD6M7dsxfrwKd0VERESUw2RgTSQxqufss65XYTUx7tm2v/85+j3jbkVEaSCVwtUVW7ciTx7cuvUbE2UybN8OU1MEB2Ps2DVrUKYMrlxBq1b4+DHFiR07wsMDuroaGti9G1u2YNiw9G2BiIiIKIfL2IdSgqHl0O6lpID81bEj12Iz9F5ElCa2tnj+HDt3/t6sAgWwYwc0NLBsmcnudSdOoFw5XLqE5s3x4UOaFtDUhL09dHWVyJiIiIgo98jotwKlZSqUVeo1RyLKMPr6SfajT0Xduv8233B0zH/v1OHDKFkSoaFo0wZfvqg8RSIiIqLcKaMLMDEqKkoEBPXyVcrKMvheRKQyMTFYsQJPn/56tVcvDBuGmBjY2ZlJwoKCUKIEzp6FhUWaa7ANG3D1qurTJSIiIsohMrgAEyOOHQqJBQT9ggW0M/ZWRKQ8Jyc0boz79/+7cPQohg1Dp06Qy3+NXLQITZogLAxNmhQWnwUFoVgxnDkDKyt8/ZraXe7fR58+aNQIFy4AGD8eDg6Ijlb1XoiIiIiysYwswBQfLi3v77zrgwKCeoVq5fkAjCjbunkTJ0+idm2cOxd/oUkTFCuGS5ewfPmvkTIZduxA9eq4fx+NGhWJunf8OIoWRXAwrKzw7VuKdylVCj164MsXWFri+vVdu+DhATs7xMVl0K6IiIiIsh2lvs+KPTmz/T8nYlIKEWM+PLt96+G7SIUICPqterQryJOYibItX1/07o1du9CpEy5dQoEC2tpYuRKWlpg8GZ06wczsp2AjIwQGom1bBAfD3LzooUNHjlRp0gSnTqFDB+zZA03NZO4iCPDyQnQ0fH3RosWedSfr9y3j7w97e/j4QE0tMzZKRERElLWUKsAUb68FHj0albZgQWpqs3Bhd9ZfRNmYri62b0fLljh+HB074vhxqKtbWKBzZ+zYgREjEjVNzJsXhw6hUyccPIgmTf7avz8oqH6TJjhyBDY22L07+RpMTQ2bNuHLFxw8WNqx5UnvUw26Fd2xAwMGwMMDAv+aICIiotxOuVcQ1fWMU2eSv3DpWlaDFx08t61fKXZCJMrmpFJs2wYzM5w9Cyen+GtubtDXx65d2L07Uby2NnbvRufO+PgRrVqVfnokKAgFCuDwYXTokOKXXerq8PNDo0Z4/rz8yJaHN77W0cH69Rg1KoM2RkRERJSNKFWAabRb9zw8VW9fP7t7Yf/KUc3Nfr/fNRFlgXz5sGcPtLSwfDk8PQEUKIAZMwBg+PCkemyoq8PHB/364ds3WFuXubXr8GEYG+PgQdjZITaFk/+0tbFnD6pWxf37taZY7tr0TV0dy5Zh0qSM2hkRERFRNpHRbeiJKEepVg3LlgHAsGF49AjA0KGoXRvPn2P69KTi1dSwbh1GjUJ0NLp0qRS64ehRGBnB3z+17hr6+jh0CGXK4MqVlqa3tm6FVIpZs7ByZYZsi4iIiCibYAFGRL9ycMCQIYiNxbt3ANTUsGoVZDKcPJlMvCBg8WLMnQu5HH37VjnpdvQoDA2xcyfs7VOswfLlw9mzOHYMtWp17Ijt22FqCj29jNgSERERUXaRAd9mxYadXL9y25nHXzULVjDv3LNznYJ8BZEoZ3F3h6srdHTif1WtGi5fhoFBilPGjQOA8eMxcmTV+dFHjoxp0QI7dkAiwZYtyXc4NDBAs2bx/9mhAzp0UNUGiIiIiLKpdDwBEz9d3zLRrmGZgsUHH/yvJX3kRdfW1ZsPnum+YfPG1QvG9ahfseGYg28UqkiViDLRj+orXoUKKFQotSnjxsHdHYKAsWOrb3fZv//f3oqDBkEUMy5RIiIiopxE2QJMfB/o3LR+j9nbTt97+yXmxw9XMdcWOU49/ibuvx+2RMX7kEV23dwfyNOfKhFle4MHw9sbMhnmzau3ediBfQodHXh4wNk5zSvExiImxUMGiYiIiHIyJQuw7yenD1xy5asICBINQwPt+NN7ok6tWnUpUhSkRTssOnz1WvDWcY2NJBA/HZ81++AXFSZNRNlXt27w84OmJlasaLi2956dcRoaWLAAs2enbXqNGihRAufPA3j2DG5uSXVfJCIiIsqxlCvAvh712PI4ToRakY6rrry9u7CxDABiQvYGvJJDot9u9upRLStXamA3Z8fyjoYSKN7u2Rb0TaV5E1HmCQnBmDH4/Dmt8dbWCAiAri42bWrm3nnbxmg1NUyciKVL0zC3RAm8fIkmTbB589KlGDECLVviw4d0JE9ERESUnShVgMXdPnvhowKClrnzIodKeYQfV48FvZBDyNO0s6Vx/DXB2LpnG0MJFJ9CL9xNoRkaEWVnnp5YuBA9e8Z/yzViBJo1w/fvKU5p0gQBAdDXx+7dNj72nmvlgoC//4aPT2r32rED48YhKgo9ekx9P7JkccW5c2jWDOHhqtoMERERUVZSqgCTvwl7KwckZjVrFPpvAfH9xfP35ICsinm9vMKPq5qlyhRVAxSvw9iJgyincnGBsTH27MHMmQCuXUNQEAYNgiLlP9QNGiAwEIaG2LWrV/DA2bNEhQK9euHAgRRnSaWYOxerV0Mm0/NadrN42zplP125AnNzvHihwi0RERERZQ3lXkFUKBQABE0trf8qLURfOhsaI0KtSJ06pj+tKooiADEmOppt0IhyqKJFsXUr1NQwbRr271+2DHp62LQJgwen1t6wWjUcOIA8eeDp6fJ6lLMzYmPRuTNOnUrtjgMHIjAQ+fJpBAYEo6FVucd37qBRIzx8qLI9EREREWUJpQowiXF+YwmgCHvy7L9uZbGXj52IUEBi2MC8kuz/oTFPHj6TA4JuXl0hqaWIKEdo0QIzZkChQI8elbUfBAQgTx6sXYuRI1ObWKcOdu2ChgaWLZtrOH/gQERGwtoaoaGpTWzYEGfOoEIF6Z0b+97VbVnzw5MnaNQIN2+qZkNEREREWUKpAkxWvmYVbQGKDwGb9obH/wP4l6ANOx7LIeQxt2ik/f/IT8f8Dr9XANKSZUpmwJnPRJR5xo9H5874+BEdO9av8s3fH5qacHPD33+nNrFFi/jDmIXxLqtqruvaFZ8+wcICd++mNrFkSZw5g44dBQN9v52CuTlevUKLFvj0STUbIiIiIsp8yr2CmLeVnZWhBIrwHYOtHBZs9Fk/2c7B85kcQh7zts3+/QBM/P4scGGf4ZteKQBpmaZNzNJx5jMRZT1BwPr1KF8e16+jV6/mzUR/f2hoYPFizJiR2tyOHeHmBlEUhgze3N7X0hLh4WjZEs+epTZRTw9+frh7V7ewfkAA2rWDVMpjnYmIiCgHU64qEgw7TJtknleA4uNFz7G97fvNPPA8VhRkZQePt80nAFA8XNrEpFiLMf5PYkVIDFuP7F+JD8CIcrw8eeDnBz097NyJS5dat8bmzZBKMXUqfH1TmztkCKZNg1wu7dNj15DDDRvi+XO0bIm3b9N6c21t7N6N58+hr5++XRARERFlHWUfS0nLjtjmN6lpQdl/X3ZJ9Gr8vcKlnhYAQJRHRcWKIgBBp+IAz9V9i/D5F1GuULYs/P3x998oXx5Ap07YuBGmptDVTcPcqVMxejRiYjS6dw7452LVqrh3D23b4gvPaSciIqI/hvLPpST5ms84erdP8IHDIY8/wLBMY+u2NQuq/zsoqOUp+Fe1JhXMbfoOH2hZUjvFlYgoR2naFE2b/vcre3vY26d57sKF+PABXl55ulge8z9Zr1+5kBDY2ODAAWhqpnmRjRvh6oqlS9Gs2W8lTkRERJTl0vdioES3hLntYPMkBko6+t90TNfaRJQLCQLWrEF4OPbvN7RrdWRLcF3bokFBsLWFnx+kafwL6elT3LgBCwusWnWler8iRWBomLFZExEREakK3wwkoswlk8HXF40a4cWLIv1bBvq8NTTEnj3o1y+1k53/M2kSpk5FbCz69z9VfWStGornzzM2ZSIiIiJVYQFGROk2YQJGjULMv+cCvnyJx49TjNfSwt69qFYN9++XHdM2YPsXHR14e2P06LR1OBQETJsGDw/IZMPFZfOfdG3TLPLVq/Rvg4iIiCjDsQAjonTbtAlLl6JTJ0RFAWjeHOXL49ixFKfkzYuDB1G6NEJCas9u778tWkMDy5Zh2LA0d5nv1w8BAWJe/U7wW/ugaedGb16/Tv9OiIiIiDIWCzAiSrc9e2Bign37YGmJr1/btkVUFGxsEByc4qx8+RAQgIIFERjYYp3dbr84LS24u2PAgDS/i9i8uXA6WFGkWB2c935Yv3ez5xERKtgNERERUcZhAUZE6Va1Kk6eRKFCOH4clpaukz8PGoRv39CmDS5cSHFiiRI4dAgGBvD3b+3rEHBAzJMHHh7o0QNxcWm7dYUKkgvn4qrXLoFH+rfPtmyJDx9UsCEiIiKiDMICjIhUoWxZBAejeHEEBwvNm7n/E9G9Oz5/hqUlrl5NcWKlStizB1pa2LCh8e6/A/YrdHWxdSu6d0dsbNpunT+/9MzJ8F3BoSW7XL6Mdu0QGamCDRERERFlBBZgRKQixYsjKAglS+LSJUmrFl6u4Z064f17WFjg0aMUJzZsCF9fqKtjyZKGizoe3//N0BDbt6NjR0RHp+3WGhom7RscPSYUKYLgYBw/nv7NEBEREWUIFmBEpDpFi+L4cZQujStXpCMdt2xBq1Z4/RqtW+PNmxQntmmDwECYmGD37urD6p/wfmZkhH370LFjfF+PtN78zBmsXo2WLdO9ESIiIqKMwQKMiFTKzAwnTqBrV1hZqavDzw+1auHBA6xZk9rEBg1w9izKlsW1axUd6p5ZGmJsjAMH0KHDb7xSaGqKgQMhlQLv32PZMoSHp28zRERERCrGAoyIVK1AAWzbhj59AOTJg4MHMXMm+vVLw8SSJXHmDJo1w6tXpR3MrzhvKVgQBw/G91b8zRy8vDByJOrWxe3bv78BIiIioozCAoyIMpahISZOhKlp2qINDHDoEBwdERVlOq7H9U7TzEzFEydgaYkvX37nrr16oXZtPHqEBg0QFKRM3kREREQZQJp6SMzhMfWdDqXxU/jkaLReeGZBK/X0LUJEfwKpFMuX46+/4ORktHz6Las71bE+OFirWTMcOgRDw7QtYmyMoCCxZy9hp5+ilYVk7er4J3JEREREWSsNBZj4+dnNGzfS/B180jTLfRbTtwIR5VxPn+LQIfTpA/U0/zPMyJEoUwa2troHtt2o/qyR1D/kYr6WLXH4MIyM0raCtnbEKt+V/tMnx01H3764fBmLF0PCx/5ERESUldJQgAl6RSpUrJjUE7Cotw8evo36t7ASJJr6+fMb6WnIv7wNe/UpWhQBCJolWvftUjWvIKtUVk2VeRNRTjJrFtauRVAQNm+GRLJpEwwM0KZNarMsLBAcDGtrjdCzZwrXbVdkb0BohRYtcOQIjI3TdFtjE6Hg6mmDBxRcjmHSZcvw7h08PaGhke79EBERESkpDf8YrN5qwcXriVwLcutQUBEDCBqmjQcv9Dv/+MOX92FP7t+5++jl+4+vQv1de1c3lCDq8elzMU1Hz57RrWIaaj0iyp0cHaGnBx8fjB4dF4e+fdGuHXx90zCxUiWcPYvataXPH+9/X29I4X1XrsDcHK9epfXODg7I6zzIGnu/CHrYsgWLF6djG0RERETppeTbOIown6HdZp16B6OmM4OuB638u2Ptonr/VViCZv6qNmO8zpzz7FRY7evlpd36eDxRqCpjIsp5qlTB7t3Q1MSyZVLXObNmQaFAz54IDEzD3IIFcfIkuncXvn5xD2s/u8Cy27fRsiUiItJ687lzYdTdoqF4aqd2jzdVW6djG0RERETppVwBFnd5xcxdrxQSI+uFm1zqGQhJR2n81WvVEtv8EkXE4VmLTqWziwcR5WxNmsDHB2pqmDjR2cjDyQnR0WjfHpcupWGuhga8vTF1KhSK8a9H+hoOuncz1sICnz+n6c6CgHXroNewcqfv3lYTq/12R3siIiIi1VGqAIu7uXffvThI9C36dCyU0gqCkWU3SyMJ5C+OHLwWp2SKRJRL2Nhg+XKIIgYNcq2/q29ffPkCCwvcvZuGuYKAadPg7Q0Njc7v1xzVsblz8auFBb59S9OdNTXh74/SpREaCjs7iOwJRERERFlEqQJM/vThEzkgyV/ETDOVUFkhs/wSQP7y2Uu5Mrciolxl8GBMmgS5XOjZY02/c1ZWePcOlpZp/qare3cEBsLExPxbwDl186dnw9q3R3TaHq8bGeHAAZiY4OhRREb+uBqVzgavRERERL9HqQJMUNdQFwDFu9dvY1MJjXsdFq4ABG0d7WReVCSiP8uMGXBwwPfv0lXLt29H3bp4/Ph3zlmuXx/nz6Ns2Qoxly9Jar07esXODnFpe8BesiSuXsXly9DWBgBcuAB9fTg4ICZG2c0QERER/R6lCjC1wsUKqwGK94d3HPuU4qs8nwJ3HHqnANTMihVmG3oiAiAIWLUKnp745x8dHezbh3LlcPUqLl5M8wrFi+P0aZibF1CEnRLMo/wP9usHRdoa/RQsiHLlfvxCRwdSKTw8YGmJjx9/fydEREREv025AqyMhUVJKSAP2+TktDcsuXcLFa/2Of/t/VIOSP9q3fovFmBEFE9NDX37onhxAEZGCA7G/v1o0uR3VjA0xOHDsLfPI37ZDRt4e48Y8ftpVKiAM2dQuDACA1GrFu7f//0liIiIiH6Pcl0QpdUHO7UykECMvedpW996su/Vd7++ixgXcd1varsGXdbejREhMWztNLgajwEjoiQZGsLKCsLvvqWsoYHNmzF1qjpiNqC3yYppkyb9/r0rV8bp06hcGQ8eoEEDBAX9/hJEREREv0HJc8AkRfqsWN61mEyAGPU0YGbXamYFS9ez6NStd9/e3Ttb1i9T0LRK5xn7H0eJEGTFurot711YyRsRESUrvjXi2rVQU5uK6aVm9Z0/K7XvUn91/jz+Xlw4wv8ULC0RHo5WreDqyiaJRERElHGUroukxbp5Hds2umE+qQBAjI64f+7Qzq0bvTZu8Tt49t67aBGAIC1g7rT9mFe3Ynz9kIhSsnUrli1TsvJxcBD274vT0u0Dr+qTrNznfEr7VG9vLF6Mdj30In33YfJkyOVwdsbYscqkQURERJQG6XkwpVGiw8Ljty/vdB1i/T/27isgqqOLA/j/7i4dEQS7YkGjIiq9gyIIFppigwB2sGMHYwxYA7FrNIIdsFAsYMdCF5FiQ5GoUVGxd6Wz93tQ82nYXZYFFfT83rL3zNkZHzRn78wZIw0V6X/3DzEcuaZdzF2mrYm9lHt6mXN7mVqYJyHku/brr/DxwezZYFk+H7a2GD78k2bxVbKz4yWeKlJqaoOTFr9Y7Fl2V/yvbdMGZ87AcySHH7AQsbFQVa3OFxNCCCGEVE9NT2ZxG2k5z9rgPAv8ktfPnj57+Y4vq9RIVU1Fno58EULEt2YNBg3CihW4e5e/ZceVK7IFBXj+HDExkJMTL4OBgdyFtBcm/bs9uqw6x/gEDveZrV3loGbNcOQIzMwQHQ1fXyxbZo+nT2u4FEIIIYQQEWrtaBZHRqlxy3Ydf9Jo3YyqL0JINdnb4+hRKCsjMpJn0ysp6lGLFjhxAn374u1bsZO0a6eSe+Z2m54tUGA8xzJz8TFxBmlqYt8+SEtj+XKEhEi8AEIIIYQQsdRKAVb++u7l1BMHo3bu2LolKuMpC4ClU+yEkGqxtkZKCtq2RXq6hrtJ6ubcFi2QlIT+/atTg6motM07fr6LWwO80Z7vcH3OJnEGWVkhOBgAJk/G6dMSTp8QQgghRBw1K8DY15d3+zl3a6bWpru5reNQ95FjxgfE5FcAZUkzdbrajFt++Ma7WpooIeT717Ur0tJgaIhbt9r+bJYelNCyJZKTq1mDycho54TH9ZjNQ3mHZd73xy8SZ9DIkfD1RVkZBg+udB+Yvf37srBaSyGEEEIIEagGBVjZP7tGGRr/HBST86ys0usutux53qnNsx10jcfsvllakxkSQn4kzZohPh4DB+LFi1YTHOJP8d/XYP364c0bcXMwHMY664+teuv54LQM/u3NsLEoL69y1NKlcHbGixeIiPj8gaws7txBz57YuLHayyGEEEII+ZykBRj7OnGu0+jQvEIWDE9V027ENN8hWlL/T6um8ZOaNAP2Tc62UfazTr6kDYmEEDHJyyM6GkuXYtasjp048fFo1QopKQgKqkYOLhceaRMX6e5/B4UGkVvK+jpUWcBxONi9Gzt3YsqUzx/s2QNfX5SUYMIEeHigsLDaKyKEEEII+UjCAqzs4qpp666UsIxUW5c/029cPrZ91YKhXf5/2xdXa9qJa2c3DNWQZtiSvI3TlmXRWzBCiNg4HMydC39/AB07IiEBHh4YMKB6OaSkMDPBYVyH+EdoKnXqGGtqhrtVtKeXlYWbGxo2/PxTHg+Bgdi9GwoKCA+HmRn++ad6UyGEEEII+UiyAqw4ZfPWy6UsI919TmToRF1lQVkYZZ3xofv8jeQZtix3x5akkppNlBDyw9LQQGgoTEyqPbBBAyxLMBjYLO0aOjM5l2FsjIsXJZzE8OE4exYdO+LCBRga4uxZCfMQQggh5McmUQFWnpeQVFABRrb35Mn68iICZbqNn2LXgAH/UWrytaqPYBBCiHAVFSip9i85LVti3aF2NvJnkmCJggJYWOD4cQknoKWFjAzY2+PZM9jY0HswQgghhEhAogKs4u7texUAt52erhojMpJp2F1HgwfwC+7e50s0QUIIec/BAa1bIzm5uuP09LA2TKUvJ24PhuPNGzg6IjxcnIF8PrZsQX7+Jx81bIj9++HtDVnZ6k6DEEIIIQQSFmAMw2EAgMfjVhXKVpSXswDLr+BTHw5CSE00a4YnT9CnD3buTE7GsmUoFfts6aBB8F8q44ZdS3j+KC2FpycCAqoclZqKsWNhaYlHjz75lMfDxo14+hTt20uwCEIIIYT84CQqwDjNWjTjAhV3ruZVcc0X+/pKzp0KgNu4WZMqizVCCBFh0yb4+KCkBB4et8csmjMHnp7gi/1q3dcX3uOZX8sD5iutAYeDBQswZgzKykQMMTSEqSnu3IGzMyNBUpQAACAASURBVIqLa2EFhBBCCCESFWA8zZ5mjTlgXx/btOu2qP/9Kb8RGhL3hgVH2chUkyfhFAkhBAC4XKxejXXrwOF4XP9tm7R3dETFpEnVSLB2LWxssPj11Kktolk5eWzdCnt7Ee3pZWQQEwMNDZw9C09PsPQanxBCCCE1JlkXRDkLT9cOPIZ9c/oX9wUpzwX/Xwn/8al57v5Jb1lwWzi7WinWZJqEEPLe5MnYvx/y8iNLQ2K5A0M3Fs6bJ+5QKSns3QstLay76zxdOx5NmiAuDubmuH9f2BA1NcTGomFDREVh0SLhqePjsWqVONc9E0IIIeQHJ+E9YHJmfn+4q/MY/svURTY9rMYv230yK/8NC6Ci6MXD21dSIgNHmfXov+zcaxYctX4L5tkp1eq0CSE/MAcHnDwJNbX+FQdPMn3+WFq+bJm4Q5WUEBuLJk2wJs1wXu80dOqES5dgbo7cXGFDNDUREQEeDwEB2LVLSJC/P2bMgIsLbVUkhBBCiGgSFmBgGjutj1nZr6UUw5bcSwye49bHbOaxEqA8b6VN63ZaFsPmbj/7sJQFR9nQN2rHqLaSfg8hhAhgYoKUFLRrZyBzSZFT6OuLzZvFHdquHQ4dgrw8lu5pv8kzGcbGuH0b5uYi+iva2WHZMrAsxowRcgHYihVQVUVsLPr2xevXkqyIEEIIIT+GGhRG8j2mxGadXO5h0FRaUC96htuwk/3c6IzEpb0aie5VTwgh1depE65c4d27vWiNEsti/HgcPizuUAMDbN8OhsH4+Y0PTT8FZ2c8f44+fbBpk7Ah06bB2xvFxZgxQ0jG5GS0bo3ERFhZ4fFjSVZECCGEkB9AzTpjcJtazgg9N+H3jJPHTidnXM1//Ox1qVSDRo1bdtQx7dmnj3mHhvTmixDyxcjJQU5u8mQ8fw5/fxw/jgEDxB06ZAhyc+HvD9cx8imJ0T3azsLq1fDyQmYm1q2DtHTlIevWoVEjdO8uJGOXLkhOhq0tsrNhYoK4OGhoSLguQgghhHy/JCrAKvLi9j3rYm/SWo4BALmWBg5jDBzG1O7MCCFETL/9hgED0KVL9UbNn4+bNxEaiv4O3PT0Va0MDTF2LEJCkJWFffugrv6feCkpLF0qMmObNkhORt++OH8eFhY4fhzdulVvToQQQgj53kn0hqr88mZP8/YtNPuOD4xIv19MrZkJId+anh7k5YGUFOzZI+YQhsHmzbCyQkEBHB3xztEVqalo1w5ZWdDXR0KCJPNo0gTx8ejZEw8ewNYWFRWSJCGEEELI90viLYJs+ctrx4PnDjdp21JrwKRlURkPSmpzXoQQIgFvb7i6YsIEMSsfKSlERaFjR5w/j59/Br+7NjIyYGODJ0/Qpw+CgqrM8PIlCgs//6hhQxw9Ck9PmJuDSzfQE0IIIeQzEhVg3E62w3pqKHEZAGz586tHNswZatSmZTeHKSv2ZT8qreUpEkKIuAIDISeHjRvh4oKiInFGqKri0CE0aoSYGPz6K6CqimPH4OuL8nL4+cHTU0Se4mK0b4+ffkJKyucP5OSwYweiomq2GEIIIYR8hyQqwHjdxm5PuP7wztnoVdMHG7WS5zAAW/Ys59Cfs1z01VtpO01bfeDCYyrECCFfm4MD4uPRuDFiYv5u0evVjSfiDPrpJxw4AGlpBAZi506Ay0VgIHbtgrw8wsJgbo78fIEDpaWho4P792FlheXLwdJ+bEIIIYRURfIuhYxcS0OXaSujzt55eCMx/PeJDtpNZRiALX1yMXbN9IG66q11B81Ye/DS07JanC4hhFTByAhpafdkO/z08tzbbiZFl2+IM8jCAhs2gGUxdizS0wEArq44cwbt2iE7G/r6iI+vPIrDwfHj8PcHn4/Zs+HkhBcvhH/HmzfYsQPPn0u0KkIIIYR8J2qhTTynQTuLn/3Wx56/9+Bq3JaA0X06N5JiwJY8Pr9/lY+jdmt1g8Gz1x+59op+GyaEfB0aGpyUpKvS2i2LbxYZWPKzzoszaMwYTJyI4mI4O+PePQBAjx7IyECfPnjyBLa2Ao+E8XgICEBMDBo1wsGD0NYWclMzgK1bMXIkunXD0aOSLowQQggh9V5t3tPFU+ncZ7T/lrjcB/eyD673+9myvRKXYYsfZu5dPtnltxO0JZEQ8rW00GsudSYxSdqmUcmDYjNrlIr1F9CaNbC2xsOHcHT82FpDVRVHj8LXFxUV8PODh4fAI2H29h9aJ+bno1cvbNwoKPvw4TA3R0EBBgyAtzfevq3B+gghhBBSX32Ri5Klm2j3dR05asyogbqqXOZLfAMhhFSho56SVNzhv7iTD5T0+2uzlDhDeDxERn5oiujp+fFM179HwhQUEB4Oc3PcuVN5bNu2SEnBpEkoKcGECcjOrhTRtCmSkhAcDDk5hISgWzcJO90TQgghpD6r5QKs9PHlo5sCxvbt1qJZF5sR83dkPK1gATA8pYYKVIkRQr4uk57SqrvWuTM7p/owJ0+KNaRRI8TGQlkZe/diyZJPHgwfjpSUD0fCjI1x8WLlsTIy+PNPREdj/Hh06iQoO8PAywsZGdDTw+3b6N0b3t6V2tgTQggh5HtWKwUYW1SQGbN+rmfvTs1a9ujvtWDL8ZwnpSzAcBRamwydtWZ/Rv6dTf2ka+OrCCGkOoYOxdy5KC/H0KHCehn+V+fO2LMHXC5++w2RkZ880NZGRsaHTYpWVkhLEzjcxQV//QUFBeFfoKmJtDTMnw8uFyEhsLBAeXk1lkQIIYSQ+qwmBRj/7e0zkatmDjNv31Td0HlyYFj83y/KWQCMTJMe9hN+35l448HtMxHLpjrrNZetrQkTQkj1LFqEoUPx8iXu3hV3iJ0dAgPBshg5EllZnzxQVcWRIxgyBC9eoE8fxMVJOCcpKSxciNRUdOmChw+pACOEEEJ+HDxJBvHvHF++bGPUgbjsgkL+/5sbMjzlDpZOw4e7Dnex1mwkUWZCCKltHA727MHq1WjeHADg44OHDxEcDGVlEaNmzUJeHjZvhosL0tPRtOnHB9LS2L0bSkrYsgUODti1Cy4uoidQWoroaNjZQVX18weGhrh8GRUVkKYdAoQQQsiPQqI3YGUZW/zXH8i8/776YjgKrY2HzFy971z+g79PbV84zo6qL0JIncIwH6svAPHxiIyEhcXHZvNCbdiAnj1x5w4GDUJJyScPuFxs2oQZM1BaimHDsG2b6Dz79uHnn6Gri8zMSs+4XKq+CCGEkB9KDbYgMtKNuw+YsDQ84fqD22mRy30G6tNGQ0JI3XfsGHr0QE4OjIwE9tL4l5QUIiKgro4zZ+Dt/fkzhsGKFQgMREUFxozB6tUi8tjZwdQU+fmwsMD27bWwAkIIIYTUXxIVYJy2/X8JOXq54P7FQxvm/mzZvsEXaWZPCCFfQosWSEhAz54oKECvXkhMFBHbtCliYqCggB07sGpVpce+vvjzTzAMpk+Hn5+wJCoqSEyEry+KizFqFLy9RV5LFhoKBQWsWVOdJRFCCCGk3pCodJLSHzl/XN+uqmJdrEMIIXVM3iPlcerH3/QfhpcvYWeHiAgRwdraCAsDh4NZs3DoUKXHkyZh+3bweAgKgp/fx7vD/ovHQ2AgwsI+3AFmZYUHD4R8n5QUioowbRrGjhXz/mhCCCGE1COSFGDs82vJp0+dOhV/6WFFrU+IEEK+tOPHsTlMRid3V9HYKSgpgZsb/vpLRPzAgfjtN/D5cHPDlSuVHnt4IDoaMjIICsLEieDzheVxd0diIlq3xpkz0NNDerqgIFdXRERAXh5btsDKCo8eVX99hBBCCKm7JCnAGE7GsgF9bGz6+R5+LvjHXkIIqcO8vGBsjJu3OH1y15YvDgTLYvZs0UN++w2urnjzBg4OePq00mMnJ+zfDzk5bNwId3eUlQnLY2CAzEz06oUHDzBlipCgIUNw5gzatMGZM9DX/7wRPiGEEELqN4m2ICq0btOYA1TcvX2XXoERQuodWVns3w91daSmYszfvjh2DNHRoocwDDZvhp4ebt3CsGF4965SRL9+OH4cSkrYvRuDBqGoSFiqJk1w4gTWrMHSpcK/r0cPZGTA0hL37qFnT+zbJ/biCCGEEFKnSXYGzGj40A48puLvw4dz6fpQQkg91KwZjhyBkhJCQ/HHBVv07VvlEHl5HDiA5s1x+jSMjJCXVynCwgKnT6NxYxw6hH798OaNsFQ8HqZOhY2NyO9r3BjHj8PDA+/eYfBg7NkjxrIIIYQQUtdJ1r9QztR/+2+myhUXV01Zkf22lqdECCFfQ9eu2L0bXC7mzsWBA2INadUK8fHQ1MSVKzA0FPTaTE8PiYlo1QqJiejdG8+e1WiKsrIIDcUff0BKCs+f1ygVIYQQQuoGCRvIMw2Mfz0a/5drs6xfehkN9g+Nv/qoUOi5c0IIqZv698fSpeDz4eHx+ZVg164hJkbgkE6dkJmJkSPx+jWGDIG3d6UDX126IDER7dsjMxNWVrh+XczJXL2KS5cEPZg9G69eYeJEMfMQQgghpC6TqAArS18zwtXNKzC+omOXJsW5exeO6N21uZJ8A9VmLVsL0XHC4ZLanjshhNTYnDkYORJv32Lr1k8+HT8ezs5wdxd4lEtODtu2ITgY0tIICUHv3igo+DyifXskJ0NTE5cvQ0cHwcHC2tN/ysYG+voIDxf0TJauuSeEEEK+EzxJBvHvpkbuiSr+7DO2ouTt80dvhe2RkX0m9EA6IYR8UyEh6NMH1taffOTri+xs7NyJa9dw4ABatao8yssLuroYPBgpKdDWxu7dn2do0QJnzmDyZISHY/x4HDyIzZvRrJmIaXh7IyAAnp54/BgzZtTS2gghhBBSx0hUgDEqGnr6+tV6oyWjocJI8lVfSXnmhonrM8oY+Q5O02c4dZD71vMhhHxFUlJwc/v8o379kJEBZ2dkZUFHB1FR6NWr8kB9fWRmws0NJ06gb18sXow5c8D8+3ddw4YIC4OTE8aPx+HD6N4dwcEYOFDYNPz9oaoKHx/MnIk7d7B69Sep/uPlS7i6om9f+PhIsmBCCCGEfDsMK8bGmO9fSfRQ5SFRxQA4Dbq6Lt2yZqKRqoTH4+oAPT297OxsJyenA2I2FiCECPT8OYYPx4kT4PGwcqWwe7sqKrBoERYtAp8PR0fs2AFl5c8jHj3C2LE4dAgAhgxBSEiliP/btw9ubigpgYcHtmyBlJSgoNxcaGmBz8e4cVi/XkgQIYQQUtd5eHiEh4eHhYW5u7t/67l8PfW3yvhC+G+u7Jxq0aPPLzH/FFcdTQj5njVqhKNHMWMGyssxdSomTUK5gJs3uFwEBCAmBioqiI2FoSEuX/48omlTxMYiOBgKCoiKgrY2EhOFfeegQThyBA0aICwMgwahsFBQUJcuiI6GvDw2bUK/fnj5smbrJIQQQsjXQwXYZ3gafd16teCV3z/9+yAdwxEb0p/QTdOE/ICOH/9Y1HC5WLECO3ZAVhYbNghrjQjA3h7nz8PAANevw8gI27Z9/phh4OWFzEzo6+POHVhZwccHJYJ3cvfujZMnoaaGQ4cwdKiQ7xs4EKmpaNUKp07BzAy3b0uyTkIIIYR8dbVSgJW/vns59cTBqJ07tm6JynjKAqinOxsZtd4BcReT1rhpNmBfXw6dbPaT9tCF+3Nf18vFEEIkkpSEvn3Rqxfevfv4kacnUlIwYwasrEQMbNMGSUkYOxZFRRg9Gt7eKC39PKJzZ6SlITAQPB7WroW+Pi5cEJjK0BDJyejQoVKGT2lr4+xZaGvj6lXo6yMlpTqrJIQQQsi3UbMCjH19ebefc7dmam26m9s6DnUfOWZ8QEx+BVCWNFOnq8245YdvvKs6Sx3DUTOesjMje988uzYy/Jc5Uf4uPToaj1oZd0vgTiBCyPdGWxudOuHiRYwc+Un3eD09rFiBRo1Ej5WVxaZNCA6GjAxCQtCzJ+7f/zyCx4OvL1JS8NNPyMmBiQmCgsAXcI9i5864fh1xcSK/r2VLJCTA1hbPnsHWFgcPir1KQgghhHwbNSjAyv7ZNcrQ+OegmJxnZZXeELFlz/NObZ7toGs8ZvdNEb/g1lXyHZwXH72UET69ZwtplD0+t31mX83OvcYv35v1kO4zI+T7pqSEmBgoKyM6GosXS5LBywspKWjTBmfPwsAAZ85UijA0xIULmDoVJSXw80OfPrh7V8LpNmyIw4fh5YWiIqxeLWESQgghhHwtkhZg7OvEuU6jQ/MKWTA8VU27EdN8h2j9vxEXR03jJzVpBuybnG2j7GedfFkf9/AxSlpuK+OvnY+YN0BDgWGL7yYGzx5soN6ym/3k5dEZD6gQI+S71akT9uwBlwt/f0RHC48rFtqrR18fWVmwtsaDB7CywqZNlSLk5LBmDWJj0bQpTp9G9+44ckTC6fJ4CA7GwYMICZEwAyGEEEK+FgkLsLKLq6atu1LCMlJtXf5Mv3H52PZVC4Z24f77nKs17cS1sxuGakgzbEnexmnLsurhWzAAANNAc8jiQzlXT/05oZe6HAO27FnO4fWzhxi1aanVd5Tvsm0H0/5+VlIf60tCiCh2dli8GCyLUaOQkyMoYsUKKCtj+3ZhGVRVcfw4fH1RWgovL0FHwgDY2+PyZTg74+VLODpW+Qpr3TrhZZq9PTQ0RA8nhBBCyDcnWQFWnLJ56+VSlpHuPicydKKusqAsjLLO+NB9/kbyDFuWu2NLUr1+YSSrbjVpQ3xeXsLmX4YbtZRjALbs2ZXj2/+YM9rRtHMT5WaaFgPHzYvOo56JhHxHfH3h6oq3b+HoiKdPKz1WUUFJCUaPxoYNwjJwuQgMxK5dkJdHSAh698bDh5WCGjfGvn0IDATLYvp0jBuHsjKB2R4/ho8PHBzg5yfi3RshhBBC6jSJCrDyvISkggowsr0nT9aXFxEo0238FLsGDPiPUpOvCbg+p56RbW05Zsnus7fyL8as9nHspibFAABYfvHj3JQDm1dGXq7/aySE/IthsHkzdHVx6xbmzq30ePRorF8PAJMmYdEiEXlcXT8cCUtNhb4+zp0T9E2+voiMhLw8Nm9G79548qRyniZNsGIFGAZBQdDVRXp6VQs4eVKMIEIIIYR8VRIVYBV3b9+rALjt9HTVGJGRTMPuOho8gF9w976ALl/1k5RaN0ef1TGX7t7JiN3o72Wv30qBK/qPgRBST8nLY/9+2NjA2FjQ44kTERwMDge//QY/PxF5dHSQmQkrK9y/D0vLSreEvefigtRUqKsjJQUmJsjNrRwyfTpSU6GpidxcmJrC2/uTXvn/UVQEOzuYmsLHR8h1zoQQQgj5BiQqwBiGwwAAj8etKpStKC9nAZZfwf/uzknJNtdz8A4IPphx9/njvNQDmxa7/FTlnwchpL5RV8eJExgzRsjjceOwcyd4PAQFYfJkCL8CUU0NcXHw9f2wb9HbW9BOQ21tpKXBwAA3b8LYWOB5LyMjXLiAwEBwuQgJQY8eSEwU9H1ycli6FFwu1q5F9+5IThZvuYQQQgj5siQqwDjNWjTjAhV3ruZVcc0X+/pKzp0KgNu4WZPvuDiRbtTR1GnszGHded96JoSQr2/4cEREQFoa69dj8mQRgTweAgMRHAxpaYSEwMYGjx9XCmrRAklJcHPD69dwcsK6dZXzSEl9uEusa1fcvAlra5w+Lej7fH2RlQU9Pdy8iZ494e2Nt28lXSQhhBBCaodEBRhPs6dZYw7Y18c27botamdh+Y3QkLg3LDjKRqaaVJwQQr5XgwZh/37IyWHDBjx6JDrWywvx8WjeHElJH7rV/5esLMLD4e+PigpMnSrkZRkMDZGVhV9+QbNmkBd2GrdbN5w9i8BASEkhJATduyM+vvrLI4QQQkitkawLopyFp2sHHsO+Of2L+4KU54K33PAfn5rn7p/0lgW3hbOrlWJNpvmlcTs7z/bz8/Ob42mkUoO7qQkhP4KSEpRX7rjTvz9SUhAVhaZNq8xgaorMTBgZ4e5dmJsjPLxSBMMgIAC7d0NODiEhsLfHy5eV88jIYMkS3Lsn5IjaezwefH1x9iy6d8etW7CxQVRUlTMkhBBCyBciYbUhZ+b3h7s6j+G/TF1k08Nq/LLdJ7Py37AAKopePLx9JSUycJRZj/7Lzr1mwVHrt2CenVKtTru28bTcFv7++++/L55oWUVbEULIj628HB06QFMTly5Veqari8GDxczTogUSEjBiBIqL4emJefPAr7yfYNgwnD6Npk0RFwdDQ+TlST5vHR1kZGD+fMjKCmtzTwghhJCvQNLXPUxjp/UxK/u1lGLYknuJwXPc+pjNPFYClOettGndTsti2NztZx+WsuAoG/pG7RjVll4rEUK+C1wu1NVx/TpMTLBrV41Sycpi+3asXg0uF0uXwt1dUGVkbIzMTOjq4vp1mJoiIUGczJGRWLy4Uu9DaWksXIh37+DmVqN5E0IIIaQGalAYyfeYEpt1crmHQVNpQS+NGG7DTvZzozMSl/ZqRC+VCCHfCYbB6dMYNw6Fhfj5Z2Hnsz4qLUVJFbfQ+/jg2DEoKWH3bjg5CeoY36oVEhPh5ITnz2FnJ6SH/WcWLcL8+dDWRmZmlbGEEEII+apq9maK29RyRui5W/+kx24OnO3tOWzggH4DnId6jJu+cENUwrU7Vw8uHdhBtpZmWmcVv3hQcP/+/fv3C54Xf+u5EEK+AhkZhIRgx44P57N698aDB0JCdXWhro6DB0UntLZGfDyaNMHRo7CywrNnlSIUFbF3L2bORGkpRo/G3Lki+t0DCA9H9+64fh2WloiIqGo9585h1SoU019ghBBCyNdQG60J5VoaOIwxcBB2S853ruT4lE4Dd75hAdkhUS8jB8vUWuZTp05FRkZKMDA/Px9ASVW/uxNCasLTE1paGDQIKSnQ10dUFExNKwVpaiIqCo6OGD8eK1YIb1YIXV2kpaFPH5w7h549cfw4Wrb8PILLxfLl6NIFEyYgMBC3b2P7dsgI/hunRw9kZMDHBxs3wtUVubnw9wcjbC/Cr7/ixAnExuLoUch+97+ZEUIIId8Y9Yavu9atWxcTEyPx8McCLhgihNQmXV2cO4dhw5CQgN69cf06Wrf+PCIiAjY2mD4dGzciIQHh4dDTE5atfXukpMDODpcvw8ICcXHo0KFS0JgxaNsWLi7Yswd37iAmBo0bC8wmLY2//oKODiZPxoIFuHIFO3YIKQCXL0f//khIgJsboqLA/Y4vbSSEEEK+vS9QgJUVJG37K+LMrbeyzbtaDvYYbNRcuva/5EewYcMGR0fHcgHtrquwZMmS/Pz8lv/9/ZwQUvuaNMGJE5g/H1lZUFau9Jhh4OUFMzO4u+PCBRgbY948zJ8vrMhp3hwJCRgwAGfPwsICx46hR49KQdbWSEnBgAFIS4OpKY4cQceOwqbn5YU2bTBsGKKjcfs24uKgolIpqHt3HD8OS0vs34/Ro7F9u/CXZYQQQgipKYYVeZBAFPbV5d1/LNkQnXjfalvexr7vq6yizGUD7H9JeFT+PivDaaQ/fefBP/o2/W7bILIvbmZdf1rBAhzVjvod6kLDET09vezsbCcnpwMHDnzruRBCAADFxfDzw9q1YFlYWiIyUsR1Ye/eYeBAnDgBFRUcOiRoZyOABw9gb4/sbKiqIiYGZmYivjw3F46OuHEDR46gXz8hQenpsLbGu3f45RcsWVKdtRFCCCES8vDwCA8PDwsLc3d3/9Zz+XokrYvY56fnWJm6L41I/fvxm9KPNVzppZWT/P+tvgCw/OcZK4e7bbhRUfOp1lGMioa+oZGRkZGRQZ2ovgghdZGsLFavxrFjaN4cSUkIDhYRq6CAgwcxeDBevICtLY4dExTUvDkSEzFgAJ49g40NRJ4X7dIFGRk4ehR9+woPMjJCRASkpLB0KVauFG9VhBBCCKk2CQuwwqQFXqsvvGUBhiPTSEX+feFRnLxxY1YRy/DaDFwZd/FSym7fnqocsK8Sliw99qYWJ00IIXVfXl6lVoW2trh0CatXY/x40WNlZLBnD8aOxbt3cHISUl4pKiImBhMmoLgYw4cjKEhEQmVl9O1b1dbCAQOweTMYBrNnIzpa9AwJIYQQIhnJCrC3J7fsulXOgqs+aOOFx3krekoBQGnGwaMPKsBRdlwaPK1P925mw3+P/nNQIw74j2Mj4t/V6rwJIaQu27oVnTtj4EC8fv35AzU1+PigSZMqM3C5CAnB7NkoLYWbm5B3ZlwuNmzA6tVgGPj5wccHfH6N5u3pieXLwefjxIka5SGEEEKIEBIVYOW5aede8sHIWc5ZObabIvPx01Px9yrAKFoN7qf2/jNGzcFjQCMO+K+yz+VVu5dEnVD+9un9W3k5F89nZWadv3ztxu37T97Wz5UQQr4iHR00aoSYGJiY4OZNCZMwDP74A4GB4PMxfjz8/ITE+fggIgKysli7Fi4ugu5yFuDpU6xahYcPKz2YMQPnz9MuREIIIeQLkagAq3hU8LgC4LTS12vxbwL2eWb63xWAVA9Lk4b/bnOR7dCpDRfgPyx4VLOfZb+movtnI1fO9uxn3KmZopxS41btO3fT1tU30Nft3qVju1ZNlRSUW2sa9x8xd92+9LuFkvYwIYR8z3R0kJEBLS1cvQpDQ5w6JTJ68mRYW+P2bYEPfX2xdSt4PAQFCX/FNXgwTp2CmhoOHICVFcS4hSI8HDNmwMAA589XeqatDQWFKjMQQgghRAKSbUHk8/kAGFk5uf8fKCjJSssuZcFVNzJq+UnW910W2dKSkvpQqfCfpW/0Nm3f3nTYzOVhx9L/fvSuvNK0Wbb01b3c9KOhgVNdTDTaGo5ck/Lo++0xQgiRVPv2SEvDwIF4/hx2diKPaF28iNOnYWyM9HSBz0eOxM6dkJbG2rUYNw6CL6cwNUVaGjp2xLlzMDbGtWuipzdiBCwtce8eLCywb5/YqyKEEEJIzUhUgHHUmqpxAH7B7fzSj5+VnT+V+IwPTiMzBEMZZwAAIABJREFUy25S/w8tvX0zvwJgGjRsUOc7BJbe3DXSpOfEkLSHH9o6Mlx51daddEx72dj1d3Ae6Ow4oG8fKzM9zbZNFKXer4Yte5K5Y3pvw8HBV4q+5dQJIXWSoiL27v2wh9DPD+PGobRUUNyhQ7C1xaNHsLJCVJTAVEOHIjYWCgrYuhXm5kLKqw4dkJYGMzPcugUzMyQliZibigpOnMDo0Xj3DoMH49dfUVZW/RUSQgghpJokKsCkNPV7yDPgvzgafvDJ+1rlTfyO6FsVYBQt+1rI/z/y1am9cc/5AE+jk8YXuPO5NhWdW+gyOvx6CQtGpoWJZ8DW4+fvvHj9NP9admr8iWOHY/fv2x9z6Gjc6ZTMK7cevXr14EpixIop/TspccCW5cdMHTTn1Kv68I6PEPJ1MQx8fbF7N+TlsXkzZs8WFNSwIY4cweTJKCrCsGEICKjUPxEA7Oxw8iTU1ZGeDl1drFwpaDuiqiqOH4ej44f3bps2CUz1nrQ0tmzB8uXgcLBkCUxNkZcnKG7+fAwfjrdvxV40IYQQQoRjJcF/FjlMlQOAo6w/etmO3Vt/7d9aigGYBvbbHvE/xLy7c2q5c1spBgCv228XyiT6pq+l4s56a3kGYLgtHddkvuCLO674VswUHQUGYGSMgq6Vf8kpik9XVxeAk5PTt54IIeT/srJYS0t2+3aRQatXs1wuC7DDh7NFRQJDXr1ivbxYhmEB1sSEzcsTFFRezk6ezAIswPbrx96/L3puSUls27YswMrLs7t2VXpsaMgCrK0tW1IiOg8hhBBSLe/vXw4LC/vWE/mqJCvAWLYsd1Wvhv/ZVMhIdZmdWsiyLMtW3FhtKf/xxhlOowGb71TU3py/gIrbayxlGICr7nXsVTXHlv+90kKOAaSMl12vGxUYFWCE1GMxMayCAguwvXqJKHiOHWNbtWIBVk6ODQxkKwT+FRsZyaqpsQDbsCEbHCz6a1+9YkeMYAHW3LzSsxs32GbNPpSFgr+JEEIIkcSPWYBJeBEzeJ2nRuz91aq51L9FGEdJb8Z6PxO59+/VKoqLy1gWAKOgNW5r8Ch1Sb/o6yi/euFKGQtOk/5DrJSqOZar4TLEUAqouH71b2rGQQipIUdHJCejZUskJ+PRI2FRdnbIyYGXF4qK4OcHS0vcuFEpaMgQ5OTA2RmvXsHbGwMGoKBAWEIlJWzfjpQU7NxZ6ZmGBuLioKyMPXswebKkCyOEEEIIIGkXRADgNLFeeDLvWsKev5b/vnR58N70a6mBVo0+1GMMV7F5R51eQ3xWHb6YvtGpZd0uvwC2pKSUBRjFBorV7xXCUVJW4gBsaUkpnQIjhFRHaSkqKv9wo6ODS5dw/jxatxYxtmFDBAfj8GG0aIHUVPTogTVrKh34atoU+/cjMhIqKjhyBNra2LtXRE4zM6irC3rQrRv27YOsLP76C/PmiThXRgghhBDRalYZcRq0txw2fqbf3Jleg/SbS3/yQGPSgSvZ8ZGrp/XTkBc+vs7gtmrTigvw72VlP6j2fWVFFzNyygBO0+ZN63qhSQipQ4qL0a4d9PTwzz+VnjVqhG7dxEnSvz+uXIGHBwoLMW0a+vbF3buVgoYMwYULsLHBkycYPBhDh+LZM/HnWfS+yauVFXbuBJeLpUsxbBjevRM/AyGEEEL+RRUDAIDX3b5fGy7YosQgv6i71dlIyL45t2zujtsV4Kia9eouVfUAQgh5j8eDmhouXoSREeLjJc+jrIzQUERGQk0NcXHo1g0hIZWC1NURF4fgYCgqIioKWlqIjRUn+Z9/QkkJv/yC0lJg0CAcOgRlZURFYcoUyWdMCCGE/MBqoQArfXTxWNiq+VPGuA9xsrd3Huo+Zur81WHHLjwsqXnur0bayHuKhRKDivw9niZ2c8LOPah69hUvrx1e7m7aZ0Haa5aR7jpuUh+FrzBTQsj3gsdDcjLs7fH0KezsEBYmMvryZfzxx8e3UQIMGYIrVzBo0IcDX/374/79zyMYBl5euHQJPXvi4UM4OcHTE2/eiJ5kkyZgWfz+O0xMcPUq0Lcvzp5Fnz7o2VPshRJCCCHk/xi2Blv5+c8zQvymLQ5Lu19cOQkj00x/yMygoGlWLer4DWAflOWFDLKaePhBBQuAkWrUwdDc3EinS/s2rZqrNVSQlZXmsWXFxUVvnz28d/fW3xczzqSczXlYyGcBcJTNF8Ydm2dQRwowPT297OxsJyenAwcOfOu5EEKqwOdj7lz88Qc4HKxdi0mThMS5umLPHhgZISYGTZuKSBgWBh8fvHgBVVVs3w57+0oRLItNmzB9OgoL0aYNtm5F794iEqanw8MD169DVhYBAZg9GxzaPEEIIaQ2eHh4hIeHh4WFvW+H+KOQuH9i6c0w13YyVbSsYLiNrZakvRT7Wq1vrPDqjjE9lDnV6sPBaaD584asOrVEakNPSL2zbt2Hq718fYVE5Oay7dqxANu2LZuTIzrbvXts//4swHK57MqVQoJyclh9fRZgGYadOpUtLBSR8PVrdvToD/eKWVuzN2+KsSRCCCGkKtSGvjqKMxa5jNtzq4QFGOlmhm7zNuxNOH89/+GTR/f/uZwSu8nf06SFDAO24kn8fKcRofnV7mzxTch18dycmZe24zd3S42GPNF1GMNTamfm+svW5Gvnwyfo/vdONEIIqY7Jk7FpE7hcBAVh4UJBEZ074+xZmJjg9m2YmyMhQUS2li1x6BAWLwafjxkzMH48yssrBXXtirQ0LFgAHg9r16JfPxQXC0vYoAG2bMH+/WjcGKdOoVs3BAd/HlFSIug7CCGEEPJfkm1B5N/bNEDT+9gbluG1sl+2b/tUg0aVKjn2RebakQNnHbxXznKae+67ut1JuV4VKWUvb13KzL6cd/PO/UfPXrwtKi2HlJyCoqJiw8bqHTp16qzVQ6utct1sukFbEAmppyIj4eEBQ0MkJwuJKC6Guzv27oWMDLZvx/DhohPu3QtPTxQWwsYGUVFQVhYUdP48HB1x7x5cXBAZKXp/4dOnmD4d4eFo0ACvX3/8tKwMbdtCURH790NTs6pVEkIIIR/8mFsQJTqexT48Ep34lgUjrTkjYvc0wUefGBV9n10RBUZWy66UPowJP/bScbhKfarApJTb6dm007P51vMghPw4hg6FiQkUFYVHyMoiKgp+fvjjD7i54do1BASISOjiglat4OyMkydhaIhDh/DTT5WCdHRw/DgsLLB3LyZOxMaNIhKqqSEsDGPHgsv95FMuF+rqH17Q7dqFAQOqWCchhBDyA5NoC2L535dzS1kwshaTphiLajyhYOIztZccA/Zt9rmrtDmFEEKq0ro1VFRERjAMgoKwfDkYBgsW4MwZ0QmNjJCZCR0dXL8OU1MkJgoK0tTEkSOQl0dwMJYsqXKSPXvC3PyT/+ZwEB8PDw+8fg0HBwQE0E3NhBBCiDASFWD81y9f8QFOSx2dKq4eZpro6LTmAvynT57Vj2NghBBSH8yciehojBiBLl2qjG3ZEklJcHDAs2ews0NoqKAgIyPs2QMeD/PnY8uWas9HVvb6rztKFwZ+KAtdXVFYWO0khBBCyA9AogKMo9pYlQOgoqLKK4vZCj6fBTjKKg2pbTEhhFRfRgbevRP0YOBAbN9e1fuyD96fz/L1RUkJRo6Enx/4lX8Uc3DA+vVgWXh7Y//+ak3yyhV06sx03Oyb9et+NGiAiAj06lXpJjJCCCGESFaA8TrpdJNnwL9/5swt0SUYP//MmXw+GOlOXTvWj9vACCGkDklPh6EhjI3x4EFNU3G5CAxEcDB4PAQFYfhwQbc6e3nB3x8VFfj5Z6Smip9cXR1GRsjPh/5CR7+eaRVtNZCRAQMDIbUjIYQQ8uOSqABj1Jwmualz2dLM1fMj7wsvwfgP9v626mwJy8ibDezXrD514CCEkDqhUyd07YqcHFhY4NatWkjo5YVDh9CwIaKi0Ls3Hj2qFBEQgMmTUVQEJyfk5oqZtkEDpKYiOBiKigg61LXTy/Q7PRzRqhV49NsbIYQQ8hkJ9wUq9Vm6dbqOIr8gaoy1+59nHldusFH+5OxfntYjd9+rYHgdxv7qqU47EAkhpLqUlZGcDGNj3LwJMzNcviwyesUKtG6No0dF57S1RUoK2rbF2bPQ18eFC5UiVq/GoEF49gy2trh7V8ypcjjw8sLFi7Cxwc2Xqm0vxjg2O/f4lYyYwwkhhJAfhBi/TfLvJO5KuF35PZemu7vBnZCMvD1TzGOCDOz6WRlotmnSQKrszeP83MyEo8fT7xayACOl4b5gbJtnTwsV1OS/wAIIIeT7pqKCkyc/tJLv1QtHjsDISEjou3e4dw+Ojti4EWPGiMippYWMDAwahORkWFhg927Y23/ymMtFePiHQq1fPyQni3nSDED79oiLw7ZtmDULBw+ie3ckJqJTJzFHE0IIId8/MQqwsoz140ZGFYuIYIvunTuw6ZzAS3/Zspvb3bptlx0S9TJyMP0SSggh1aeggNhYDBmCw4c/tDF0dBQUN38++HwsWICxY3H9On7/HYzQzd9qaoiLw8iRiIjAwIEIDMSMGZ+Ey8nh0CFYWuLSJTg74/hxyMqKOVuGwejRsLXFyJE4dQr//POxAGNZuLlBQQG//47GjavzB0AIIYR8P2hjICGE1ANycti/H8OH49UrODlh3TpBQQyDgABs3AguF0FBGDsW5aJuYJSVxe7dmD8fFRWYNQu2tigo+ORxw4Y4cgTq6khKwrBhqLrt7WdatcKJEygoQL9+Hz8qKUFcHLZsQZcu2LqV7gojhBDyYxLjDZiUxbyDx8ZU71/eSrjNtKVqloEQQn5sUlLYtQvGxvj1V5SVCY/z9kaLFhg+HFu34upVhIaiY0dhsQyDhQthZoZRo3DyJLp2xYYNcHX9+LhlSxw9CgsLxMZi0iRs3FitCTMMmjf/5L9lZZGRgUmTcOwYxozBtm0IDoamZrVyEkIIIfWdGAUYp2kPG7seX34qhBBCRGMY+PjAx6eqOAcHxMdj8GCcPQttbZw8CRMTEeF2drhwAWPG4NAhuLnh6FFs2ABFRQCApiYOH4a1NYKD0bo15s2r0QLat3+w9ajC6YNKvhOQkgJtbcyYgYAA8fc3EkIIIfUdbUEkhJDvkaEhLl2ChweKiwU1m/+vJk0QG4vgYMjLIywM3bt/cg2YsTH27AGPh/nzsWVLTSZVUYGuXaE+ySHqt8sYNw7l5QgKQo8eOH++JmkJIYSQekTyAqzkydWEiD8Xzp4yznPYQHsHF/dxU30XrAw9mftcxM4YQgghte/GDWzZUmlforIyQkPx5g2cncVJwjDw8kJmJnR0cOsWevVCQMDHk18ODli3DiyL8eMREyPxPLlc9O+PV68w1FvF9U3I2yNJ6NoVf/+N1aslzkkIIYTULxJckVlSkBK2fMkfm0/ceFMh4Aj1LGk1TWvXyb/4jTZvIV3zCRJCCKmKnx/27sX69QgNhZbW58/kq3cDSJcuSE/HkiVYtAgLFuD4cYSHQ0MDGD8eDx5g4UK4uGDFCjH2QQr2vr/95MnYswepqeahW873ehoNS0vJshFCCCH1TjXfgL27GjrGoLPluFXHrgusvgCwpU+vHF03saeWiXd4bmEtTJEQQohov/yC9u1x/jz09bFsWVUNC3Nzce6ciOdSUggIQFwcWrbE2bPQ1UVICABgwQL4+4PPx7Rp8PIS2QlEFE9PXLoEc3PcvYvedlI+Z11L1FpKlooQQgipd6pRgLFPTszuZTpq6+U3LACGo9TObJD3r6u27Np7KO70qWMxETvWL546rNdPKjwGYPkvsjeNsBzwe/obajRMCCFflq4ucnIwdSpKSzFnDszN8fffwqPt7WFsjAkT8O6diJzW1sjJgasrXr+GtzeGDsWLF0BAACIiIC+PTZtgZYXHjyWbcNu2iI+Hvz+4XKxdC2Nj3L0rWSZCCCGknhG7ACu9umb4sJWZr/gAI9vewT/qwu3rKXs3Lpo22nXQgD5Wve0ch3pOnLdmT3zurYv7Fjp3kGPA8p8mzh80Zs99/pdcASGEEEBODmvW4NgxtGr1offhmjVCrtqaPRvS0ti4EdraOHNGRE5lZezahR07oKiIqChoayMxERgyBKmpUFdHaipMTHDlimQT5vEQEIDkZGho4MIFHDjwybMNGxASQheFEUII+S6JWYCV560fPz/+BR/gNOnze0JmTIBLNxWu4IwNNZ3n7zsX/3ufJhywFQV7fSaG5lMJRgghX4GtLS5dgpsbioowbZqQg1rjxyMrC7q6uHEDFhbw8UFJiYicnp7IzoahIfLzYW2NuXNR3FkbaWkwMMA//8DEBAcPSjxhY2NcvIgDBzBu3MeP+HzMmgVvb7i5iX5HRwghhNRH4hVgr44GLkt9y4KR6TYtImKOkQpTxQBGxWhORMS0bjIM+E8OL16VWlzzqRJCCKmaigp27kRkJBo1woMHQoK6dkVaGubOBcN82AKYlyciZ8eOSEn5cAdYYCB0dHDmdgskJcHdHW/eYOBABAVJPGEFBTg5fXITGIeDiAgoKWHPHpiZ4dYtiTMTQgghdZA4BRj77PD2/Q/5AFd95HL/XlVWX+8xKr38l49swwUqboVtOPyStpIQQshXM2QICgoQESE8QloaS5ciKQkdOuDCBVhb4/59EQmlpLB4MVJSoKmJa9dgbg5vH9m3G0IRGAiWhZ8fxo5FaWntzN7BoSI9k+2iiYsXoa+PuLjaSUsIIYTUAeIUYEWpxxLesIBU97FTrJWqkVzJ2mecthTAf5EYl1FL/ywTQggRi4wMOFX+HW9qigsXYGWF+/dx9GiVOY2NceECAgMhJYWQEHTvwZzU8/3QlmPLFvTuLXFbjv+wndSx9f2z+XoD8fw5+vdHUBAdCSOEEPJ9EKMAK7+effE1H+C1t7XrJPjclzDcjnZ2HXkA/2lG+nXRbZEJIYR8EwoKOHQIMTHw8BAnXEoKvr7IzIS+Pm7dgq0tPGMHvzpSC205PtWlC+6/btAuKzqi02/g8+HnB3f3qvrrE0IIIfWAGAUYv+BuAR8At/1P7apXfwE8jU7teQAqHj94TP9uEkLIN/XLL1i5UtCbJHl5ODpCRkb8VN26IS0NgYGQlkZYGLq4ah/zT4OhIf75B8bGiI2t4VT//BORkVBuxBmet8Bdfl+ZbAPs2oXbt2uYlhBCCPnmxCjA2KLCIhZgpFUaNRDv+Ncn5FQayTIA++rFK9o8Qggh305REVauxMyZ8PAQ3fVQXDwefH2Rk4OePfHgAfqNafFzq8SSIe54+xaDBtWkLcd7Q4bgyhXY22PnO+fOxRd+Nz/8TFmjFuZNCCGEfFNiFGCMrKwMA7Clr14VVruIKn75spgFGBlZmWoXb4QQQmqNnBwOHECDBti5E3364Nmz2knboQNOn0ZwMBQVsWufbNuk0AsDF3zYNOjhgefPa5K8WTPExuKvv/BYsf0vKf27d0dqau1MmxBCCPlWxCjAOM1bteAAqLhz43Z1txGW3755u/yTHIQQQr6Zvn1x5gzU1ZGcDCMj4Z3ny8owbx5OnBAzLYcDLy9cugRrazx8xOjs/y1IN4KVk0d4ODQ1sXt3TebMMBg/HhcuwNwcBQXYsOGTZ4cOISSkdl7nEUIIIV+LGFURr6O2liIDlOfFnfinehUY//aJuNxygFHspt2BJ+EUCSGE1BYtLZw9C3193LwJU1MkJgoKunkTS5fCwQEJCeJnbtcOJ07gr7+gpAS/rCEGMpceatng0SO4uaF//xoe39LQQGIi9u7F8uWffDphAry98dNP2LQJZWU1yU8IIYR8NeK8llKw6GuhyADl2Zs3pL6rRvLCM39tyigHGAVzW3MFSadICCGkFjVvjvh4ODjg+XPY2Qm6K6xzZ0ybhpISDByInBzxM79/W5WTg379kPVSo0VO3EaTHayqGo4eRdeuCAqqSRtDDgeDBqF5808+Cg9Hjx7Iz4eXFzQ1ER4OPl/i/IQQQsjXIU4BxjR2HOnYmAO2/MammUHpb8VM/S5j2czg6+UsOGoOIx0b0xEwQgipIxQVsX8/pk5FSQmmTBEUsXIl3N3x8iXs7JCfX63krVvjyBFs2QIFRWZCmqehfM5jOw8UFsLPD/r6yMiolSUAQM+e71LOH/aOLe3cHTduwMMDWloIDaUyjBBCSF0m1sEsRsXBb7qBPAO2MGupi/uGS2+rbMbxNifYw2VxxjsWjJyej59jI6q/CCGkDuFysWYNoqOxfbugxwyDLVtgbY2CAvTrhxcvqpt/9GhcvgwzM2TebdriZOi2IUfYNm1x4QJMTeHjg7fi/pYnWmQUYx/soJaffdBlO9u2HXJzMWIELC3pYBghhJA6S8zOGFJa0zb+atKAAVtxP2aymYnn6pO3C4XEFuXHrx1hZjpx/91yFoyCgd9fM7pL1dqECSGE1BoXF/TvL+SZtDT27UOPHrh6Fc7OKC6ubvK2bZGQAH9/ABgd1a9X4ysvvHzBsli7Ft274/jxGk0dADB4MIYPx5tCruPeEV15eVembESrVrh8GYXC/okihBBCvjGxWxPKavtGhY/XUmAA9m1O+HTbTu207cfMXbVj39FTKecyz6WePro/dPW8cY667Tpa+4ReesMHGLnOo3dEz9OT+5IrIIQQ8oUoKeHgQbRsiaQkjBolQQIeDwEBSE5Gu3ZIypRvuydw79xMGBjg1i307YuhQ/HkSU0m2KABdu9GQgK0tJB7Q0prnffA7jfvJN2BikpN0hJCCCFfTjV6w3NaOK5PTlgzqL0MA4AtfXzx8NbAGSNd+ttYGBkYmVv3HzRi+tLNB88/KmUBMNLq9n+cSt3k0pr7peZOCCGktp07h6lTcefOx/9u3RpHj6JhQ+zdK8FLsPdMTHD+PNzc8Po1Bi/Wdm1zpnDpaigqIioKnTohJARstW+Z/FTPnsjOxrJlaNAAB45Ia5oqL178eb+PnBzY2GD+fNy4UZMvIoQQQmquepdzMcr6U6IvXIwJ9NBvIiXsVBfDU9UevjA6+1LMLBM6+kUIIfVKeDjWrYO29ifdEbt1Q1YWzpyBrKzEaRs2xM6d2LEDiorYE83TDPbJ2HwRtrZ48QLe3ujfv4ZXNktJYdYsXLsGV1cUFmL+fERGfvI4JwenTmHxYvz0EywssGULXr+uydcRQgghEmNYCX93LH12Le3UiZPJ2TfuP37y5GWJtJJq4yYt2mub29jamHVtIlPL8yTVoKenl52d7eTkdODAgW89F0JIPfPiBcaOxb59ADByJNatg6Jibea/dQvu7jhzBlwuZs3Cks5h3Nkz8PQpNDRw4AC0tGr+FfHxOHAA8+ahSZNPPk1MxLZt2Lv3Q/8PeXkMGoSRI2FlBU71foskhBBSWzw8PMLDw8PCwtzd3b/1XL4eiQswUndRAUYIqaHQUEyciHfv0LYtdu6EqWltJi8vx+LFeL9L0MgIEasK2kwbiHPnoKiI7dvh4lKbX/Yfb99i715s24akpA/7Hg0McO7cF/xGQgghwv2YBRj97EcIIeS/PP/H3r0H5Hj/fxx/3ndH55xFEeWckGPJoTCGnKbMEIaaOcTmkDmUw6xmM4WROZYZ5ZzzsTmfD51EJSI5JUQn1f37Y9ov37Gh3Hf0fvyl+/p0fV5Xf6y9uq7r83Hi7FkaN+b6ddq2xcPjH1sop6W984tbf63MsW8fRkacOkXDTyv/MeIwgwfz9CkODri5vceNvIoXZ9AggoOJicHdnZo139dEQgghxGtIARNCCPEKdepw4gTjxpGVxYwZDB+e69jdu1SujJ0dDx688/ltbbl0ic8+4/Fjvhii1zdl5bN5vmhp4eVF9+48fpz3S/ibSsUff3D1aq6PqlfHw4OrV+X2lxBCCDWTAiaEEOLV9PSYN49du6hS5eXbXXp6FC9OcDAtW3L58jufv0wZNmxg2TJKlCAggFo/OZ+dsYPSpdmxgxYtuHIl75fwl7Nn+eILmjZ98W6bEEIIoUFSwIQQQvybTp24dYuVK3N9ZGDAqVM0a0ZMDC1asGNHXs4/dCghIbRty+3bNJvyyYS2p7Pr1ufKFayt2b8/j+H/0rgxAwaQnEyfPkyb9q9POKpU1K+PmRk7d+bL1EIIIcT/kAImhBDi7RkacvgwX3xBcjI9erBgQV5OZmLCoUPMn4+eHj9tMbNIOZnYphcPH9K5M15eeQ+rrY2/P76+aGszezbduvHo0WuGKhSUK0dMDF278tln3LyZ99mFEEKI3KSACSGEeGuJiSxZpf940Rrc3cnOZswYXFzIzHznEyoUuLpy7hyNGxN+o3ilYxt3tfVEpcLNjf79SU3Ne2ZnZ/bvp0IFdu2ieXPCw18z7tAhfH0pWZJNm6hTBw8PMjLyPrsQQgjxFylgQggh3tqCBYwYgXkDxa4WHqxahZ4eS5fy5Zd5PG39+pw6hbs7KhRd/pw02nhLVrGSrF2LjQ1xcXmP3aYNJ0/SsCFRUVhbs337qwYplTg7ExnJwIGkpDBjBg0a5NfDkEIIIYQUMCGEEG9t2DCsrbl1iy5dGHLI6emW/VSsSEJC3s+so4OHB0eOYGbGwhv2VplHHpepzvnzWFlx8mTez1+9OseP8/nnPHny8tKO/8PQED8/9u6lVi2uXuWTT5gzJ++zCyGEEFLAhBBCvDUjI44exdeXYsVYtYqaQ2y2Lohj9+78Or+VFefP4+zMmXQLs4enL5Rqx+3b2NqybNk77z/2t6JFWbuWlStZtOi/hnbsSEgIM2eir09ERB7nFUIIIZACJoQQ4t0oFDg7ExKCrS137tDTUdexn1ZiYr6dv0QJfH3ZtQvdyuVaPN77m+5I0tIYPpymTdm1K48nVygYPJjevd9gqJ4e06aRmIifXx4nFUIIIZACJoQQIi9q1GD/fubPp2hRAgNp2pT09Pw8f+fOXLxI1546zhkLB+L/sEgVzp+nSxdat+bIkfyc6d8VKYLEiUGZAAAgAElEQVRSfmMKIYTIB/LrRAghRJ4olbi6EhJChw6ULZurp4wfj5UVx4/n8fzly7N5MytXsq3kAMPUa676viklKnL0KG3a0LEj587l8fx/O32aypUZOZKkpDcYnZiIjw/37uXX7EIIIQoJKWBCCCHygakp+/Zx9iw6OjkfRUdz8iStWzN6NMnJeTz/4MGEhdGtt65PmnPF5Oj5lTwzixuwfz/NmmFvT0hIHs8PZGby4AG//kqdOqxe/V/vmi1fjqsr5uZs2JD3qYUQQhQeUsCEEEK8H4GBeHqio8PChdSpw+bNeTyfsTEbN3LgAEZ1io+7M6nSs5jt9Sep9PTZvp3GjXF0JCYmL+e3tiYsjI4duXePwYNp25bQ0NePHjKEjh25fx8HB/r1Ix/ffhNCCPFRkwImhBDi/dDRyfx20rrxZ1MbtuT2bXr3xtEx78/s2dlx6RKenjzTK2Mf7llb7/rZ9pPQ0SEwkLp1cXHJy2r4tWqxdy/btmFkxJEjWFri6sqTJ68aWr48e/bg60uJEqxbR716eW+YQgghCgMpYEIIId6Xo0fp9715+StHj/aZT7FiBAZSrx7btuXxtLq6TJpEWBhduhD1uEKzA55dza7c6+lMdjZLl2Jmhpvbm73I9Wr29oSGMmoUKhU+PtSrx9Wrrxr310KQoaHY2XHv3ouGKbfChBBC/CspYEIIId4XGxtcXHiWptV6g+twq7AM204kJjJjRr6c3NSUHTvYto1q1dgZXs1wm+93XS5mdOlJaipeXpiYMHz4Oy8BYmDAggWcPk2LFsTHv6aA/aVaNfbvx8fnxUKQzZrl80KQQgghPi5SwIQQQrwv2tosWcLmzZQty7L9JlUjdp+bsT1/N9SytyciAnd3dHT4Icjc8OTm9eNOqj7pxJMnLFtGq1bUrYuX17s9l2hpyfHj3LpFt27/Ok6hYPRoLl3C1paSJVEo3u1ahBBCFAZSwIQQQrxfPXty4QJt23L3Ls08urourZ+RkZ/nL1oUDw9CQujYkYcP+Xxe8zYpu68GXcHdnWrViIzEzQ0jIzp2xM+P1NS3OrlSSZUqbzbUzIyDB7l4EV3dd7gKIYQQhYQUMCGEEO+dsTEHDjBzJlpa+Phga/vyY3pRUf+16Pt/q1WLPXvw96dSJY4epcFntXwNPbh2jX37GDgQPT3272fQIKpUwcWF8+fzMteOHXz2GadP5zGyEEKIwkgKmBBCCHXQ0mLaNP78ExMTzp/n8eOcAwEB1KpF9+6vWW3wLSgUDBhAZCRffUVGBl99xdejlM/bdsDPj9u38fWlSROSkli6lCZNqF8fLy/u33+HibZvZ9MmWrZk8OC8rLkohBCiMJICJoQQQn2srQkPJzqaChVyPqpfn7Jl2b4da+s8buT1l1KlWLyYtWspUoTFi7G15e5dMDDA2ZmzZzl/ntGjKVOGiAjc3DA2pl+/t53355+ZPBk9PVavpnZtvLxev+7GvHmUKiWbNQshhPibFDAhhBBqVbToy29V1a/P6dPUr094OM2bc+BAvszSrx/HjlG1KseO0bQpZ8/mHGjcGB8fbt8mIIBPPyUzk3XraNCA2bN541fTihZlzhyuXmXgQJKTcXPD3JzAwFcNVSh48oS+fZk/P1+uSwghxIdOCpgQQghNq1HjftBJVY+ePHxI5854eeXLWRs35uRJWrbk1i1at8bfP9cxPT0cHNi5k+vXcXIiLY1p02jYkODgNz+/sTF+fuzbR/36REfj6Ii9PWlpLw8aN+5F9Ro3DldXsrPzfl1CCCE+aFLAhBBCaNi5cxjWLN76/qakMe5kZeHmhrPzm9+P+heGhgQH8+WXpKUxaBBubv9oQEZGrF5NcDD16hEZia0tjo7cu/fmU3TowMWL+PhQujQ7dxIf/48Rrq6sX4++Pj4+ODi87TKMQgghPjJSwIQQQmhYpUpUrsyx44pqKz2Ch61BX5/ffuPbb/Pl5Hp6LF+Ory/a2nh50a0bjx79Y1CbNly8yPz5FCtGYCC1a+Pt/eZ3q7S1GT2a6GguXMDU9FUj+vRh505KlWLTJtq358GDvFyREEKID5oUMCGEEBpWpQqhoQwYQHIytr99Mdby8HOLJtSrl49TODuzfz8VKrBrF82bc/nyP0bo6ODqSkgInTvz6BFjx9KmDaGhbz5FmTJYWLz+sK0thw9TpQonTtCuHQ8fvsNVCCGE+AhIARNCCKF5pUrh709AAGXK4H28mdGds0FGI/J3ijZtOHECc3OiomjZkqCgVw2qUYNdu9i2DSMjjh3D0hJXV54+fedJFy/GwSFnCRALC06ceLHcSETEO59TCCHEB00KmBBCiILCwYELF2jXjnv36NGDUaPyedGKGjU4cYLPPuPJE3r1ev1iH/b2hIUxZgwqFT4+1KnDxo3vNuOuXWzYQPPm9O/PjRtgbMypU5w6hY3NO1+FEEKID5oUMCGEEAVI1aocOMDcuejqsmgRkZH5fP7ixQkMxNMTlQo3N/r1IyXlVeNKlcLbmzNnaN6c+Hj69MHenri4t51uzRomTUJPj7VrqVOHSZN49LwYzZvn/UKEEEJ8oKSACSGEKFiUSsaP59w5AgNzXgTLyMDMjBYtuHUr7+dXKJg0iQ0bKF6cdeto2/ZVr4T9pXFjjh/nl18oUYLt2zE3Z+lSVKo3n6tkSTw9iYrC2Znnz/nxR0xN/3XjZiGEEB87KWBCCCEKovr16dMn5wulEh0dTp+mUSN++eUfm229i169OH6cGjU4e5ZGjZgy5TW3wrS0GDuWiAh69yY5GRcXunR51WLz/8bICF9fTp3C1paHD3Fzo0mTXG+WxcRga4u3N8+f5/GihBBCFHxSwIQQQhR42tocO0bnziQm8s031K7NihVkZeXxrA0acO4cLi5kZjJnDubm7NjxmqFGRmzcSGAg5cqxezf167N06dtO16QJBw+ybRt16xIfn6tFRkURHMzYsZibs3XrO1+OEEKID4IUMCGEEB+CMmUe/r7r87L7rha3JC6OoUMxNycw8K0eCPwnAwOWLOHMGZo1IzaWbt2wt+fGjdeM7tOH8HB69uTxY1xc6NaNhIS3nfGvBT4SEihXLuejzp3Zvp06dbh6lZ49ad+eixff+YqEEEIUcFLAhBBCfBiUSo4X7VD36ZmBWmsTS5sRGYmjIyNH5v3MlpacPImvLyVLsn079erh4UFGxquGVqjA5s0EBFC6NDt20KgRmze/w4Xo67/8UdeuVzeG/t7GN61kBQ4epEkTnJzeod0JIYQo+KSACSGE+DAYGBAayqgxyj/oZ5gUMdlg8bOKNShWLF9OrlTi7ExkJAMHkpLCjBk0a8bx468Z7eBAeDhdu3LvHr174+iY942Vt2zXHnDYufKTyAU632Sijb8/tWpx8GAeTyuEEKKgkQImhBDig/H34vCWLXQ8H31V/G6MfeTc69fz7fyGhvj5cfAgdeoQEoKNDU5O3L//mqFBQfj6vljY/t9eIHsjY8bw66/Utyntmvlz3ezwzfTi6dN1HpFHjuTzZmhCCCE0SwqYEEKID0zjxhw7ho8PpUq9WBx+585chy9ffttVCv+HrS0XLuDujq4u/v7UqYO396takEKBszMhIbRpQ0IC9va4uORa3PDt6OszYgRHjhAbyzBPMw+LTRW52+/I123a0KpVXq5GCCFEwSIFTAghxIdHS4vRo7l8mb59efaM06dzDjx+TKNGmJkxdmxednHW18fDg7AwOnXi4UPGjqVdO8LCXjW0enUOHWL+fHR1WboUCwsOH37neYFq1Zg0iUuXOBBa4bvvMDNDRyfX4cuXSU7Oy/mFEEJolhQwIYQQHypDQ9at49Ytpk/P+ahECZycyMjA25u6dbGxYcWKd74rZWbG7t2sWUPFihw5gqUl48fz5Mk/ximVuLq+2KYsNhY7O9zc8r7Xsrk5339PVFSuQnf8OPXqUbEi/fqxfbvsGyaEEB8iKWBCCCE+bFWqoPz7t5lSyW+/cfEiw4dTsiTHjjF0KIaGDB3KyZPvdv7+/YmM5Ouvycri55+pXZvVq1+1+r2FBadOMWUKCgVeXnTuzOPH73xRr1arFu3bk57OunXY26sMKzNqFCdO5PMsQggh3icpYEIIIT42V/UaTCi19PbZ26xaRevWPHvGihVYW7/mIcL/ZmDAokWcPYuNDXfuMHgwzZu/qvjo6jJ7NkePUrkywcG0acPt23m8lpeUK8f+/Vy/vrSGZxjmisQHLFqEtTVmZvzwQx63RBNCCKEeUsCEEEJ8bPz9+eknmrYtdqrOIA4f5soVJk/m88+pVi0vp23cmMOHCQigalXOnqVVK5ycuHv3H+NatODMGSwsCAmhWTNCQvIy6SsYG1tvneRiHdqIiz8x/p5OFWJi+O47rl3L54mEEEK8B1LAhBBCfGzGjcPWloQE2rXD3x9q1mTOHNaupUSJ/x26Zw9Xrrz5mRUKHByIiHhpjUQvr3/s2vzXHTAbG27fpl07jh7N6yW9zNycY8eYta3hEtO5hs/j2nNghsXGkGem+TuLEEKI90EKmBBCiI9NmTLs3cukSaSl4eSEqytZWa8ad/48nTtTrx4jR77V+1rFiuHhQWgoXbvy6BFublhYsGfPy4NKl2b/fvr0ISmJDh3YsCEvV/RK9vaEh+M1V3newM4jpHeTJowdm2u5/MxMwsLkuUQhhChopIAJIYT4CGlr4+mJry86Ovj40K0bjx79Y1D9+owYgZYWv/5K3boEBr7VFDVrsn07+/ZRty5XrtC5M/b2vLQrtJ4e69bx1Vekp/P55yxZkrdregU9PcaPJyqKUaNQKPDxISEh59jPP9OgAXZ2XL2a7/MKIYR4Z1LAhBBCfLScndm7l3Ll2L0ba2tu3Hj5sJ4ev/5KeDh2diQk4OhI164vV6j/1qEDly4xfz4lSrB9O/Xq4eFBamrOYS0tFi/G05OsLEaMwM0tPy7rf5Urx4IFhIfz559UqZLzabt2VKxIcDANGzJr1j+ekhRCCKEZUsCEEEJ8zNq149QpzM25fJnFi181omZN9u/H15fSpdm5E3NzfvqJzMw3n0JHB1dXIiL4/HNSU5kxg/r12bgx14hJk1i5Em1tvLwYMuStTv7matakdetcX7doQWRk9qgxZGQwfTrm5hw8+D7mFUII8VakgAkhhPjI1ajB8eMsXMjYsa8ZoVDg7Mzly/Trx7NnTJjAL7+87SxGRvzxB8HBWFgQG0ufPrRuzZkzOYcHD2bTJooWZdUqevcmJeWdL+ctGBjMLu/dOvvPaN16REXRoQNOTiQmqmNqIYQQryEFTAghxMevRAlGjqRSpX8dVLEia9eyezfdur18L+kttG3LuXMsWULFihw9SosW9O9PXBwA9vYcOkT58gQFYWvL/fvvNsVbad+eBFMb84zzM5meodLB3z+jfmOSktQwtRBCiFeSAiaEEELk0qkTQUG0bPnOJ9DWxsWFmBjc3dHXZ+1aatbE1ZXHj3mxf7OpKadPY2VFdHQ+Bn+lVq24epXNO/XOdJthqbx4mDZJdzM62GYtX57rRTUhhBBqJAVMCCFEIbVxI5GR7+vkfy1Vf/Uqzs5kZuLjg6kp3t5kVjPlyBEaNyYmhtatuXDhfSXIoVTy6acEBbE9pu4utz8blL9z4FK5YcNwcnrfMwshhHgFKWBCCCEKo4gI+vShWTM2bXqD0YsWUbo08+a9ZkOx1zIywteXU6do04bERMaOpUEDAo8acugQtrbcuYOt7fvYIuyVTEz44Qdu3sTfn06dsLVVz7RCCCFeIgVMCCFEYVS7Nk5OPH1Knz4MG8bDh/86OiuLR4/49ltat36H5wabNuXPP9m2DTMzIiNxdKRjn1IhXrtwdOTxYxwcsLXl4sV3vpa3oqfHgAHs3s3XX+d81K8fBgaMHSs7hgkhhBpIARNCCFEYaWmxejU//4yeHsuXU6cOfn6oVK8ZPWYMO3diZMSJEzRqxJIlrx/6Wvb2RETg60v58uzfT+OWeoN0/3jitZjy5QkOpkkThg/n7t08Xte7KFuWx4/x9lbVrnO+QueLs7eTna2BGEIIUThIARNCCFF4ffMNYWF06sT9+wwaRLt2RES8ZuinnxIWhrMzz54xYgSdOxMf/7bT6ejg7ExkJK6uaGnht0ZZZdZX3/a6dvNLd3R0WLYMU1M8PEhLy+N1vZ2FC7l8mTFj0pRFLe/vaTTNPr5ozXAnr+z7smC9EELkPylgQgghCjVTU3bvxt+fChU4fBhLS06efM3QUqXw9SUggLJl2bsXCwu2bn2HGcuUYf58wsPp2ZOnT5m3tHjVFR52FcLC6jrw7BkzZlCr1r/ej3sP6tTB2zvzWtyhLnNvaNWokn6tvr9bRqWqB9z2vZ9do4UQovCSAiaEEEIwYACRkTg7o6f3X8XHwYHQULp04eFDRox45xlr1mTzZkJDmTABIyMO3TRrcDmgPQeuFmnIzZsMGoSdndpeDPtLiWplbHeMr/A4aofLtiNFPtHJTl/qlVSrFkuXqrUMCiHEx00KmBBCCAFQujS+vjx+jJXVfw01NGT7dtavZ/XqPE5qbs6PP3LjBkeOMGYMIeXs6qaeH8Tqu1QkOFhl2eR5Pyfu3MnjLG+lSDFl1yX2LR/vWbMiI6SOY2wsLi6cOqXOCEII8TGTAiaEEEK8PYUCR0c6dsyXkymV2Njg7c2tW2zZplQNdLIoGj0D9wyVjs46/zQjswhHj4wnan0xTEeHQUOU4eEEBjJjBo0bA5CZybff8ssvPHumzjBCCPExkQImhBBC/Jvly188dagGenrY2+Pnx5X44kbLPIa3DA1SdNfPelYvcEZ8afOtXZc+u5Wkjhw5lEr69GH6dPT0ALhzB29vvvmG6tX54QeePFFnGCGE+DhIARNCCCH+za5dbNhAkya4uf3XjZ9jxzAyYvp0nj/P46QGBgwdit+Jmo3jtgY674vSb1A9O6bHThedqobXm/ZRbdlKRkYep3gXRkbs2YOVFffv8913mUYmeHj81x5qQgghXiIFTAghhPg3K1YwejTZ2Xh5UbcuAQGvH5qSQkICs2ZhZUVMTL7MbmSEg2+Hmk8vRHn8frpURy1Vpsm5jYpePZ+Xr8yoUZw4kS+zvIX27Tl+3NfxQDDttJOTmDEju6oJkydz/766kwghxIdJCpgQQgjxb0qWxMeHkydp2pSbN+nbl/btX7NdWMeOBAdTvTrnztGqFefP51sILa2a7l80f7T34Kq4WWXnn6OJzpNEFi3C2ppq1XBzIyoq3+Z6AwNW2O377lAH/aO76ax8loynZ1bTFuoMIIQQHy4pYEIIIcR/a9qUU6dYupRy5Th4kEaNcHd/1bjWrbl0iU8+4e5d2rXjwIH8jdFxUOVJt12Pzj/bsnjYDNxvKEyIi8PLi1q1aNoUb2/13IkqVozvv+ePuFa7xuxqqXVmA31W3+7o5sbjx2qYXAghPmxSwIQQQog3olQyfDhXrvD11y+eSHz1JsUlSrBjB19+SXIyXbqwbl3+xtDVxdWV7bH1H47xqKWM/oS9AXoDM3SLc+4cY8dibEzv3hw+nL+TvlL58nh7syqs6R+9A4dl+f5VAy9fVsPMQgjxAZMCJoQQQryFMmVYtIhLlzh+HG3t1wzS1mbZMsaNIyOD/v1ZuzbfY5Qrh7c3F0K0tD/t2Dfdr0zGnYmG/ncadiIzk82badeOYcNIUseSiXXqsHEjx47RujUPHpCQkHNgwQIqVGDQIA4cIDtbDUmEEOKDIAXsrWQ/i79wcFuA/yr/gG37Tsc8euWfPoUQQnz06tfH0vJfRygUzJuHlxfAhQvvKUa9euzcyb59mNQvNjdhgOGl3Y5WN++6TEdPj+XLqVePwMD3NPX/sLLi8GEeP8bOLuejrCwePMDPjw4dMDFh8mS5OyaEEEgB+4fMe+fW//B1r3aOCyOzcn+edffYoq/ampQ3btK+R1+nIU59e3zSombFSg0dPDZdTlZpKq0QQogCZNUq/PxevtkzcSLx8S9q2HvToQPnzzNvHqVLE3jU0Gj5jAmfhiU3s+POHRwd6daNuLj3GuBvxYvn+mLsWKKjM77zuKFtys2beHpSrx7Nm7NggXpuzQkhRMEkBSyX9Oj1X7es26Lfd4u3HI9KynV3Ky1syWfN7Ub7Hr6ZqspVtlQZiSEbZvRpYTNi43W5FyaEEIVbZibDhzNoEFZWnDmT60ClSijf+29bXV3GjSMqilGjUCj4abNpqTP7Z9RYnV6sDDt2ULcuXl5kZf33ifJXjRrZ09y7142y4ehSnB9hwJkzjBnzyK63PJMohCi0pIDlyE7YOKzDgCXnHmapQKHQ0dZ6cUD1aN/4z1y3xWWoQFHUuEXPYd9MmTFz+gTn3i2NiypAlRyy1Kn39GPJGo0vhBBCs7S12bABIyNOn6ZlS778ktu31Z2hbFkWLODqVSZMoExZhcc1J5Nn4YH6A0lJwc2NNm0ID1dzJH19Ll5SzDvVKnqCr5VJgiMBG+gz7eJnRkaMGSN3woQQhZJKqFQqVfajbYMrKwGFspzV6BUn4lNzjjwPmWWppwCU5dpM3XMzPfd3pd/a625bQQko9Jt9H/pc/blfydLSEujRo4emgwghRKHz9KnKzU2lq6sCVfHiqlmzVCkpL49IS1OtWqVKSHjfSdLSVAEBKmtrFajs2RaHsQqytHRUkyap0tLe9+yvc+aMatIkVY0aKlCBaunSnAPHj6usrVWjRqmCglRPn2oqnhBCzQYMGAD4+/trOohayR0wAFRJQcs3JGSj0G88efs+nyEtK+u/OJIZGrAuJF2FVpUBv22c+YmRbu5v063S0X3zHyNraStUaed/++14hgaiCyGEKECKFeOHH4iIoHdvnj5l2jRq12bPnlwjtmxh8GBatiQy8r0m0dPDwYFjxzh7FkNn+2b6oT6MISsLL6+kKubJ2w6919lfp2lTPD2JieHsWX77jS++yDkQEsLx4yxciL09ZcpgZ4eXFxcuoJLXrIUQHxspYABkhpw6n6pCUbzzN980L5brgOrRhXPRmaBt2n9kt3KKf36nolS7ia5t9BRk3Qo+eFneBBNCCAGmpmzcSHAwlpbcvMl33+U69umnWFtz4wY2Npw6pYYwTZrg60vIjVKpnt59DQ9fpm7pxOjiPdofquUSfuKJGgK8LtWwYRT7+1euiwsnTuDuTsuWZGVx6BBublhaYmjIyJGv2XBNCCE+SFLAAMh+9DApG7SM6tUp+VLLyk5KTMoGtGub137Nbi/KSs2aV9OC7Ns3b8srxUIIIXK0bcuZM2zaxMqVuT4tWZKDB/nsMxITsbNjxw71hKlQgUmTWHez1dX1F9ZUn5aJtm3UUgPrerPN1x3cWzDqTcuWF3p4GF4/MbT7/fhfAhg2DGNj7t5lyRLu3tV0OCGEyDdSwABQlDQopYDspAcPX+5QSoMyBkpAlfn8+WufglBlqwBVRsbrhwghhCiMlEp69cLC4uVP9fRYt44hQ0hJoVcvPD1JT1dPHi0tejjqDbg289a289crtaxC/NTwfjU71Vhc9Ye9ax8UhMf9njxhxebS1cY7DH7+27XgOCIiOHeOKlU0nUsIIfKNFDAAdMybNiqiIPv+vm3HUnIfUJRu0NBEGzJDz156zW/H7PhTp+KyQKuKcWWtVw8RQggh/padzcw52ittlqvcJvP8OZMnY27On3+qM0N1e3OT+GNpC5c9rFjXmJsjbn7Xpr/xlrJDt8+6oP7F6v/WuDFXrjBmDNrarF5NnTo4/VD3WslG/zvu/n1mz5ZtnYUQHygpYAAoynf9olNpJVnXfxs1cfe9XHfBtC0/71dfV5F1e733Hzdf8YShKmm/p8+xdBXKCjbt6r/mKUUhhBDibwkJeHjw5VBF411zLv64l/r1iY5mwgR151Aq9UcOLXMnIm3fkahGDjo875W0ott0y8vFmgZ/6ZeZ+lzdeQAwMsLbm8uXGTyY7Gz8/alXD1dXHj7MNej335k2DXNz+vVT/8L6QgiRR1LA/qKo0Md9fPNiClV6xK89mnX57o/z9188Ea/d6BufMfX1VQ93jOszcefNlxY6fB6/b3qv/kujM1UK3QbDvrItoonoQgghPixVqrBxI9WqcekSjSd2tCpyce8Av4ffL9ZUHv0ONjUvBGRHXg3rOumxVhnz9HPtVg5KKlH11Kce6bfuayRS9eqsXEl4OJ9/zvPn+PgwZkyuw8OG8fXX6Oiwbh0WFvTtS1iYRnIKIcQ7UKgKwhPfBUNm7B9fdh665mqqClDola9rbdeuZcO6tWpUMUg+7DXR52RStqK4abvevdo3qloy+9H1iwe2bDl87akKFCVbeuzdP71Fsf+cQy2aNGly/vz5Hj16bNmyRdNZhBBCvFpaGr/8wk8/vbi3o61Nx464uNCjhyZTZaeknZ0YYLDsp1rpocBzhW6MeQ8T73H6tlaaihQaio8Pjo507Pjygbt3M+f+ov2rD6mpKBR07YqHB02aaCalEOKdDBw4cM2aNf7+/n9tCFZISAF7Sfb9YM+hw+Zsj3n2xj8VRbGavWb6/TauZZlXLFKvGVLAhBDiQ5GWRlAQa9awezcZGSgU3L9P2bKgUrFgAebm2NmpP1V2lur0Dwcyfl5g82i7kmwgzrhV2Vljiw3sjbKgPDvj48PYsXSsf3u6npdV2G/K9FQUChYtYsQITUcTQrypwlnACsp/RgsIZfl2320Lv3xg4djeLYyLKf+1Uil0StduP+yn3eEhG78pQO1LCCHEB0RfHwcHtm7l9m1+/RUfH8qWBeDyZVxdad+eXr2IiVFzKqWWouXUDq0fbj3oG/V7pW8fYVD15rFigx0eVjbPXP07GlymI5eKFSlShL1hlW3OeRulxyzSGZumLHpk97MrVzSdTAgh/pXcAXstVUpC2NkzlyKir9+68+DRk5S055kqhbZukeIGZSsZ1ajdoJl1y7rldTWd8lXkDlGxQwAAACAASURBVJgQQnwM5s3Dw4Pk5EwtvTOtxhotnmJcr4RGghwMenbxG7/e0T+acB1INqxVfM53igH90dbw2lNpaRw9yt697N1LSAh//x/NwIH4+Wk0mRDizRTOO2BSwD5CUsCEEOIjkZBw58vvKuz2U5KdgOE+i2/b+n5RraWhRrIc2P082OWPgXHf1+IqkFbJRN9tLF99hZ6eRvL8jzt32LePvXvZuhV9fe7cyXlYctYsUlJwdqZ6dQ1HFEL8Q+EsYPIIohBCCFFQGRpW2rXylPfJqHJWhiQ4hYw3sjI+3HJicrIGsrTvrDMj1ilk/eWR5QMiqaN/5zpjx2aY1MLbm7Q0DQR6WaVKDByIvz/XrxMentO+srOZOxdPT2rW5LPP1LzZmhBCvJIUMCGEEKJAsxrTrOa9Yw/9tl+o3jsT7dRTIdWr4+2tgVexlEr6OCrnXnfY9kP450W3XaCx7p04xo7NMjbBy4vUVHUHepUyZShfPucLpZJjx3ByQlubTZto1w5LS1atIj1dkxGFEIWbFLA8S0tKuB0fHx8ff/uh5v8AKIQQ4qOkUJQZ2LXxtY3hR5PmWG9PTGTs2Je3xnryRG1ZihZloptyUZx9wMSzn+lsO0cTrQd3cXNTVTPBy4uUFLUleSMNGrB69Vedr/9W2T2jdEUuXGDIEKpVY+bMArKaiBCisJECllfpe0bXNjIyMjIyMv1qe77+QW3RokVmZmamby88PBx4osZfxkIIIdTDslWR4KPa69bRsCHVquV86ulJqVJYW7N48Yttxd6/smX5wUs5L8reZ+CZ3orN57FU3L+Hm5uqeg08PUlIUE+MNxTxsJLzbY+SSTd+Ml+VWqcxd+/i7s7x45rOJYQojDS8fpH4F2fPno3Jw9LDKQXtb5BCCCHyg0JB37707Zvro1q1KFmSEyc4cYJx4+jShXHjaN1aDWGqVWO1n+LUyJ7fTOxR4vCOacxqfu80kyczdSqdOuHkRI8e6OurIcm/27+fVauYOlVvQtigScpBU22PjGkfXtbaWtO5hBCFkayCmFfpWweU7/V7sgr0HQIfBfTJv7WgMjMz4+Li3uEbu3fvHh4eLqsgCiFEIZKaypYtWav8tQ7sJSsLhYJhw/jxRwwM1BZh2zbc3DC6vO8rlnRjuy4ZgKqUgaKvI4MGUQDazsOHzJ7NokVkZFC0KGPHMnZsrhfGVCpOnaJuXUqV0mRKIQqTwrkKohSwvFIlxZyLepClAmXZmk3NCsKOzLIMvRBCFEIRETRuTNvad36zXFxtnRfp6VSuzLZtNGmitgyZmfj789tvRJ585KAKcMLPmuMKVIDKuKrii344O1OjhtryvNK1a0yeTGAgKhVlyxIfn7OQ/s6ddO1KiRIMGcLo0ZiZaTanEIVB4Sxg8g5YXilKmzZt3qJFixYtmhWI9iWEEKJwKlOGKlXYF1rJZPUMl+YXkuq14vZt9uxRZwZtbYYM4fhxLt0wqDffeVKro/UVETNwv46J4mYcXl4qs5pZVjYsXYpGltIHoEYN1q/nxAl69cLWFl3dnANNm9K+PcnJ+PhQuzbdu3PwoKZCCiE+YlLAhBBCiI9BpUqEhzNrFsWLs/RI3XIRh/saH1+gN/7xYw2EMTbG1ZWjR9lzo47BfA8n6+jOij2/0z9Npad18hguLpkVKmf2H8S+fWRkaCAftGjBpk0EBqL4+4+nFSqwf39WeGSs/RiVnj5BQbRvT506eHsXuKUdhRAfMilgQgghxEeiSBGmTuX6dTw9Ma6mDLhpNWa8rpER33+vsUh/NbHDx7SWXPskYe6aLpZ3hrHsCK210p5pr/Xjk0+yS5ele3d+/ZU8rDuVjzaE1q4R5F0lI9bPbGaaQSWuXGHsWNq103QuIcTHQwrYf8h8+iA+9krYpQvnzp67EBoZfT3+/tNMTYcSQgghXqtsWSZNIiaGzZtp355nz/Dzyzl25w47dmhk/ysTE8aP59C5klOuDT354+HeDaJm4B6ChTLlKUFBjByJmRk1azJqFNu38+yZ+hP+xc4OR0cealcYFD2t1KMbXxVZHVPR+l7ZuvLKvBAiv8giHK+QGn8yaP3G7fuOnLoQdu3es8yXf0IKhW7JKqZ1GjSz/bRHz56dmxsXLWhvfskiHEIIIf4WG0uRIlSqBMDAgaxZQ/PmLFtGgwaaDXbtGj/9xLZl96yf/9lDGdRLd0fRtJxNzLS1adECe3s6dMDSMtdjgmqSlMS6dfj5cfLki08sLJg5kx49ckbcu4eXF40b07UrpUurOZ4QH43CuQiHFLCXZCeeWvrduBmrTt7JeKMfi0KnfJMvpvziNcqmotb7zvbmpIAJIYR4tRMn6NuXmzdV2joHmrmV+XmKpVX+bZ/yTuLi+P57VqxAlZnVSuf0BIs9nVS7dS6d/f/bdFWq0KkTXbrQowfa6t6/9MoVVq9m9Wpu30ZPj5QUlH89PLR6NYMHA+jo0K4dPXvSowdVqqg5nhAfOilghV1GzNphn365Jio95yei0CpaprJxVWPDsiWKFimip5WdkZaakvzwbvzNuPj7T5//PUynao8FO9e61C+iqeT/QwqYEEKI10pOZvJk1a+LFarsy9Rd2mBB57ntO3XScKjISObM4fffyc6meHEmfJk4vuG+okf2sGcPCQkvBpmaMnUqAwaov4ZlZBAQgL4+ffrk+mj5cjZtIjiYzEwAhYJmzejViwEDMDJSc0IhPlBSwAq31NNTrdrMuZSuQqFXuWVf5+H9e3SwamBc4pV3trJT70ae+XP3htVLV+++8iQbhW6tkTtP+7QvVSCeRpQCJoQQ4t89DDr2fPDwig8vAxdptNl0fNNf+nfrpv5n/V4SFsbMmQQGApQty4QJjBmtKhIVwp49rFjBlSsApqZMm0b//uqvYa+UcTdJd+92tmxh9+4XiyWWLk10NGXKaDqaEB+AwlnAZBGOv2THrfzul5B0lUKrSvf5x8KPrXYf8kmj17QvQFmkYr02jt/47Lh0afPoxsUUqoyo36b4XtXAS81CCCHE2ytj36ri7QsZHnOeFa/YiIszYgZ82z3K0pING9DgH2bNzQkI4Phx7OxITMTNjWomCq/dDdNdJxIRQUAAtWsTE8PgwdSsydKlL249ac7EiZSoWnrIwYERszby4AFbtvD55zRuTNGimg0mhCjIpIABkH1zy/qjqSq0jIcu9x/TxOCN/wCoZ9L9l/WzbIooVOnnNwfFSgMTQgjxodDT03WfXOzBjYxlfkftvdKr1Lh4EQcHlizRcC4rKw4cYPdumjbl/n3c3Khbl5WrlY86Ovx/Dbt+HRcXjdcwY2Oys1m1igYN6NmvyIkKPfjjDw4cQF9fU5GEEAWfFDAAMiMuhj9XoazQxcG25Ft+r5bpZw7NdSArKkJugQkhhPjA6OnpDh1os23i1RitxYtp04aGDQFQqQgL09QuyUCnTpw+zaZN1K9PbCxffkn58ti0Uc6KdDi9KiJ7XYGoYaNHc/UqI0eip8fWrVhb07YtGzeSnv7yuMuX8fEhMVH9CYUQBZAUMABU6ekZKlAUL1H87Z9+V5Y0KKkEVUb6my2dKIQQQhQ4enp89RV//om1NQDr19OgASYmzJrFvXsaiaRQ0KsXISGsWUPbtigUHDvG9Om0sFJWGOnQr2HEoREBmaY5NaxWLY3UsOrVWbiQ69eZOpXSpTl8mD59qFKFXbtyDZo9G1dXqldn2jSSktScUAhR0EgBA0DLqJqRFmTfOnc+Ifttvzn10pmw56CsaFhRfpxCCCE+Dk2aYGFBQgLTp2dWrnq55ZD005c0EkSppH9/goN59Ih9+5g0iXr1SExkXYDSbrGDfkz4+PKr75WqSWwsLi7Uq4e/v/prWIUKzJpFXBze3jRsSGIioaG5Ds+cSZcuJCczezbVqzNjBo8fqzmhEKLgkMYAgLZFt0+raaFK/dPLLfDm2zxIqEo+PXfy6utZKMu2ameh894SCiGEEOpUsyaXLnHgwBPbHsqs53VPrdJt0fhGox7ZZ85pKlHRonTogKcn4eFERbFoEd27U6S41s/3nao8jhjE6hiFGVFRODllm9Rg7lwePVJzwuLFGTOGixe5fZuJE3MdMDVlxw5OnOCTT3j8GA8Pqlfn++9JTlZzQiFEQSAF7C+6LVxGty6pICtunZNVp4n+pxPS//N7sh5F7vhpgHXHGSeeqBS69YeP7FhMDUmFEEIItbGzK3lwy5EVUX9UHJtC0WqXtimaN4v5fIqmY2Fmxtdfs3UriYkcOsR4N+0wS6e6XB7E6gjqKeNvMnEixsaMGkVUlPrjGRq+4sNus1uWP7/Hu8+R5GZ2JCUxdSpmZkREqD2dEELDZB+wvz2/srS37dc7ErJUgEKnjFlzG5sWjevWqGZkWK5UMX19XW3V87S01KeJd27djL166czxoyfD7qRkqwClgc3MvbunNCsgBUz2ARNCCJHv9q65d330z188+nU73X6z+2PuXCwtNZ3pZffusXcvvr5w9OgkvLqyQ4EKpRI7O8aMQdPbnH3+OevXv/j3lzWCZzGtcuwxdu/mk080mEoIzSqc+4BJAcst9bLf6H6uK0MeZb/5D0VZol4/L/9FX1kWjE2YQQqYEEKI9yMjA1/vtJmeug8eKpVKPD2ZMEHTmV4lKIhvvkERHTWKhS5ay/SyUgAaNuTrrxk4kCJFNBXswgVWrWLtWh48AKhW9H7P4eW//RZjY00lEkLDCmcBk0cQcytS12nZ2SsnVk8f0Ma0lPa/FyqFdsnqrfp9t+JI5IU1IwpQ+xJCCCHeE11dRk/QvxqtHD8eHR0iI3MOhIRw5owmk73M3p6ICMb71pxd3rti1u1xivmJRYy4dAkXF0xMcHMjPl4jwRo3xtub+Hg2bqRLF+JSy3t7Y2bG3r25BqWlaSSbEEJt5A7Y6zx/FBty9nzolZgb8XcTk56mZmSiU6RY8eLFS5Wvala7dh3zhuYmBgVz0Q25AyaEEOJ9S0lBXx/lX3/ILVOGpCQ6dMDdHRsbDSfLJSkJLy+8vclOy3DU2/p92XlVb58E0NWlb1/Gj8fCQoPxQkPx8mLnTtaty3kO0c+PoUMZMICZM+W+mCgMCucdMClgHyEpYEIIIdRqwQKmTXuxtHr79kyZQrt2mn3hKre4OKZOZc0aVCq6l/pzXtX5puHbyM4G6NCBceP49NOCknbHDnr3JiODIkUYPZrJkzEw0HQmId6jwlnA5BFEIYQQQuTN6NFcv/50vMdjhQEHDmBnR82azJzJjRuaTgZQtSp+fpw8iY0N2x63NQvd3Kn61Vj7MZQowf79dO1K3bosWUJKiqaTQteuREVlD3NWpaXz44/UqIGXlzyUKMRHRgqYEEIIIfLMwCBtkrt15etTmX0TY2JicHdXmdUkLEzTyV5o3pzDh1m3DhMT9saY1gjy7tU8PmrkfExMuHKFESOoXBlXV27e1HDQqlVPD/Vtpjp9EDuSknBzU9Wug58f8siSEB8LKWBCCCGEyAflynEqspTujCk2Rtc/Ye/v9D+daWnVrezkyYSGajocAAoFffsSGcmPP2JgwJYDJWotcq2hivm977bUVh14/BgfH0xNcXTk5EkN5mzRgi8XNfmy2oFP2RWChSLuBoMGpSxercFIQoh8JAVMCCGEEPmjeHGmTyf2hnL6kY6nRq/pZXjy5A1DT08aN+bq1ZxB589r9tFEPT0mTCAqCg8PTEyIvaEcsN6+2PF9wxufjbYaCBAYiJUVTZvi50dmpvoTKhR8/TVRUfRb3bl/vQuDWB2Efetvmw8fXnBuKAoh3p0UMCGEEELkJ6USGxt8fLh1i+Bgvv6aXr0wNATg2jWaNqVGDezs8PPj2TNNhSxXDnd3YmM5exZnZ4oVY9mFJjVP+FVX3gis5/68RBnOnWPQIGrVwsuLR4/Un1BHBycnLoUqe29x8umw7UJ6vWXLaNNG/UGEEPlMCpgQQggh3gulkrZtWbSIwEBKlADAyIghQ9DT49AhBg16XrpCZqeuLFxIdLSmQjZpgq8v9+4REECHDtzIMHSM8CiTfGOawYLE0mbExuLmhokJw4axYwfp6WqOp1TSowf79hEZyaRJTJyYcyApienTCQ5Wcx4hRN5JARNCCCGEuujqsnw5d+48mvvbMVppP0/V3ruT0aOpWZM6dXI9p6huRYrg4MC+fURH4+5OOZPisx+NqpB0pZdiy4VS7Xj8mOXL6daN8uX5/HMCAkhOVnPCWrXw9MTNLefr/fuZNQtb22y7DldWncjKUnMcIcS7kwImhBBCCPUqWdJg/LD0A0d7WyUMYvUf9EtSluXq1cxYTa9ACDVq4OHBtWscOsTAQcp9RXtYPj5Un/Afis5KMLQkOZn16+nblwoVsLdnxQoePNBM0N69mT0bAwPloQO1h1gHF++27OvzCQmaySKEeCtSwIQQQgihAXZ2bD5eceA+p3lN15bPvmuoum3m0n7pUl66mbNiBSNHsmWLmu84KRS0a8eqVdy5w8qVlGxZ77uUqZUTztUrdmNLu/nprTuQmcn27QwdSqVK2Njg5aXupyi1tJgyhdjY+CFTnylLtE/bMXRx01NGn33bKWzXLuSGmBAFmRQwIYQQQmhMhw6cPs26QC2DOpVu3MDFhd69cx3+5Rd+/ZVevahQAVdX1H6Lp3hxBg/mxAmOHKFbNyJTqvYKdi15at/oXrfuzPClc2e0tDh2DDc3atWiRQs8PYmPV18+A4MqK2YVvXMtznF8hlaRntmb5u5tuLfL/GrVmDJF81uaCSFeSQqYEEIIITRJoaBPH8LCWLECExOys3Md27qV2bOxsSEj48UmXd98w9276g9pY0NQEBcvMnAg2dksDKxYZYazvfauc7vusWYNn31G0aKcPs3kyZiZ4erKnTtqy6YoX67q+rl6N6OfDR2TraNXp8y9+HjmzKFfP7VFEEK8BSlgQgghhNA8LS2GDCE2lqCgXJ/WqMGUKRw5wqVL9OlDWhq//EKNGkycSEaG+kNaWODnx9WrjBmDnh7bt9O0fSmbxf2DBm3g/n02b6ZPn//vihMnqvUNMUPDYsu8tTNSXBLnHDnCqFGMGKG+yYUQb04KmBBCCCEKtLg4YoqYExjIxYv06kVqKnPnsnWrpvJUr463N7GxuLtjYMCxY3TvjmWrIn5PematCyQ0FAeHFyFNTHBzIylJzQltbFiwgP79c77eu/evBetv3GDZMm7fVnMcIcRLpIAJIYQQokCzssLMjIYNmfS7xcFRm56fOs+8eXTpotlUFSvi4UFMDDNnUq4cFy4waBANG7L0aL0nywK4dAkHB1JS8PKiWjXc3Hj8WDNBU1P59FNsbbGy2jJ8h/NwVdWqdOvG2rXcuqWZREIUclLAhBBCCFGgOTtTvDghIfz4I+3bU9q2UfdD4xatKhYTo+lkUKYM06Zx/Tre3lStSng4Li4YGuI0t8HBrwKyjx6nWzeSk/HywtQUDw+ePFF3xCJFWLiQ8uU5edJ1X7eY0k0/U27etSO7f3+MjTE2pm9f5s/X4FbYQhQ6UsCEEEIIUaC5u/PgAfv3M2ECFhY8e0ZQEKNGYWbGrFk5g86excICDw+N3GgqVowxY4iOZs0a7OxIS8Pfn/btMRvQckbToITAo9jZkZjIjBmYmuLlRWqqWvONGEFsLPPmUbly9aTz65/3vmfY8GeL1WYGD27dIiCAceOwtlZrIiEKMylgQgghhCjo9PRo354ff+TSJeLjWbECR0cMDSldOmdEfDyhocyYQfXqTJ6s1rXgc+jo0L8/Bw5w4waenpiaEhuLhwdGfVvZpB/YNuFIVqs2PHiAmxsmJnh5kZamvnDFijFuHDExLFpE1aplE8K+CRkclVUj8sj95csZNoxvvvnf71Cp8PFh4ULCwtQXU4jCQKFSqTSdQeSzJk2anD9/vkePHlu2bNF0FiGEEEJdjh3D3Z0DBwCVto7i876MG4elpabiZGdz/Dj+/vz+O8+eAZQsiUeToGE33UtEXwAwNWXOHBwcUCjUmiwjg99/Z906MjLYsYOiRV86mp6OQoGu7vXrVK/+4rP27Zk6lXbt1BpTFAYDBw5cs2aNv7//gAEDNJ1FfeQOmBBCCCE+Cq1asX//bPtTAThmZapYs4YmTbC15dQpjcRRKrGxwdeX+Hh8fbGy4skTvjlkXyr63FijDQ8q1icmhr59admSw4fVmkxXlyFD2LOHQ4f+t31lZGBigoEBHTua/PHD3tmnBw/MKlWKAwewtcXGht271ZpUiI+SFDAhhBBCfDxGrm5+6Kv1dbSjf+bbJ4pSBAdnT56i2UilSuHszPHjREQwcSKVDBXetz6reDdkgG7AwxLVOH2atm3p2JHQUM3mBNDWpkED0tLYv5/vvus4tcXKoHL3rXvs6/TTpwYnThzL/vRTmjZl505N5xTiQyYFTAghhBAfj9KlWbyY7aHVTjn8ZKS6OYSVXSLn+flREF65qFsXLy/i4ggKolt35R+ZDsbJEVO0PFN1S7F/P40a4eREQoImIyqV7N3L3busX4+LC2ZmPHqks2tbhz0Tdj6yPtnOrVIlzp3D3l79e5sJ8fGQAiaEEEKIj02dOgQEELi7xFnzwXsSLAYNwtaW5OScw3fuEBWlqWza2nTrxtatXL3KAOeiPyomGWfE/KiY9Bwd/P2pWRM3Nw2sVp9b+fI4OrJkCVFRXL+Onx9ffUWLFs1GNI2NZckSvLwwMAAgNZWtW7lyRZNphfjQSAETQgghxMepUycuXmTJEipU4PBhYmNzDnTrRq1a2NoSFER2tqbimZri60t0NP3HlPXQ9zTPDgnEQfUs5cWmYd7eZGZqKtv/q1aNgQNZvJiTJ3F01NfHxYXx43PWDVm4kJ49qVOHChXo2ZOffyYiQsOBhSjwpIAJIYQQ4qOlpYWLC9HRXL6MhUXOp05OlCpFcDDdu1O3LosXk5KiqYTVquHtzfXr9HOvNbxUgBUnjtCaBw8YOxZzcwIDNRXsjfTu/WJDgPv32bqV8eOpXx9TU1xdOXpU0+GEKKCkgAkhhBDiI1eiBLVr5/p6zBji4vjlF0xMuHqVr7+malWmTNHg+1cVKuDhQVwcvTxb9C77pwOB0Zhx5QqOjqq27Th9WlPB/oOpKevXc/v2vFHXnPBbyZBErQpcu4aPD23bcv26pvMJURBJARNCCCFE4VOy5AKtsXV1ov3tA1IaWpGYyJw5VK/O8eMaDcWkScReV7T8qU97w4gx+NynvOLwn7RsmdW9V4FYJvE1xv0fe/cdVnXZgHH8e1gKynQrinvhHjjAjXs23KPeTDHL1Cxnr9teycqRleLKkaaUlrjFDQ7ce+8tDlQUZJzz/iGVGk7gHIX7c3m9l53fOPeBV865eX6/55mQr/WSjmNLTs8af7kyW+flH3Sr/SfkymXpXCKvIxUwERERSYuuXOHIcetOQS0z7N38YfHNJ8u1NDq7YmNj6VxkzEifPhw7bVv8px51PE58xcB7JgfroD9MpcvcbdbegtOHPIPBQOPG7NnDjJlWp7JUandqZLZfx/f83Pb27Ud2uncPDw/y5uXjj1m+/JFJUUTSFhUwERERSYtGjWLHDj79lMyZmXaoSsFdCxxuX271jVdQ0Gsx+UW6dHTrxq4TTnl/GfVuhTP+9Is2pXMMmmsqUvSST6v446csHTARVlZ06sShQ/j5YTQyYQLFiz9yXaeVFQ4OnD3Ljz/SqBGurpQvT8+eLFjApUuWzC1iXipgIiIikkaVL8/48Zw/z9y51K1LbCyBgTRrhp/fX3vcvk3r1gwZ8sgUimZlY0O7dizfnrnertHD2h/7yfbTGJNtztBAY5FiYWX9ruy26KJhT5E5M5MmsWMH1apx5w5RUX9tsLfn0CG2b2fIECpXxsqKXbuYMIHWrXF354cfLBlaxIxUwERERCRNS5+etm1ZtYozZxgxglKlKFz4r21nzxIYyPDh5M9P+fKMGmWpadbLlmX0HPf218f//tXRQNeuVqZ4rz0BTuUKLi/cc+Nv1ywS6dnKlGHjRsLDyZ//kUcNBipUYOhQtmzh9m3Wr2fkSBo2JFu2v1YWe0R8PPv38+CBGVOLmIMKmIiIiAhA7tx8+SV799Kv318PlSpFSAjt2uHkxK5dfPklnp4UL86gQezda/6ETk60G+DR8ubkvbP3bXFvaU9Uw+MTyrUsMDVz/0n+tyMjzZ/oOdKnf/o2e3tq1GDQIJYt4/Jl2rd/coevvqJUKVxcaNOGdeswmVIyqYj5qICJiIiIPF3Vqvzyy3sNr71lE7Sp4H/iXTJx+DBffUXZsuzebalQ5ToUr3J+wZWVew8Ua5mRyA9v+LfsX+DbrP59ukdZohi+hCFD8PJi+fIX2LV6dUqVIiaG+fOpXZtixfjuO27cSPGIIilMBUxERETkOTzLpVtCk+onpjvcuTLUJ/jau91p1ozcuS2bKke9kiUOLYhdszG8aLVM3BgS1f/znwrMLDPWp9z9H38kIsKy6RJ3/Djbt9OoEWXKMHHiM0PWqMHevZw7x7BhuLtz9Ch9+uDuTseOr/OM/CLPpQImIiIi8hx9+3LiBJ9+ik16m2EhdbL99oPP9T+CtmR+bCeTiU8/pW9fwsPNmc22drUshzeyfHmUZ4UcXP6Ozxbuznfm4zGFckR26MData/XtXszZ/Ldd2TLxt699OhBjhx07MiGDU8PmSsXgwdz5gx//kmjRsTEMGcOnTqZNbRIslIBExEREXk+Dw/Gj+fkSfr2xcmJ0FCaNcPbm/Pn/9ojOprp0xkzhvz5+fJLc49ANWhgf2A7q1cbK1bKyrWv6XskOm+hX4a+UyciTx7697fUPI5PsrWld2/OnSMwkPr1E/pUzZoULcrOnU8/zNqaZs1YupRTp/jqK0aONF9ikeSmAiYiIiLyorJnx9+fs2cZMYLMmdm8mdDQv7bZ27NlC02bEhnJqFHkz8+oUZh5ZgxfMkadEgAAIABJREFUX6uwrWzaRK1ambgxhGHnrTw+udA/wP9WwYLUrcusWY/MC285dna8+y4rVnDqFEOGkDs3x46xZcsLHOnhwYABNG785OMXLjB/vhZ3ljeCCpiIiIjIy3Fx4csvOXOGLVto1eqRDSVLsngxW7fSpAm3bvHll+TNi7+/uUuPjw9r17JpE76+GY13+uF/0cbja6v+u4JvvvceefLQqxc7dxIfb9ZQifLwYOhQTp/m4EG6d0/Cifr3p00bcufm8885ezbZ8omkABUwERERkVeRIUPCesKPMpn47Xyl3cODWLcOb29u3KB/f7y9LZDPx4fVq9m0iSZN7OPu9onzv5LOY26WnjbXr4wfT4UKuLpSty5DhrBiBbdvWyDg36ytKV78ya8k8N57NGnCrFncuvW8U/TqRY0a3L7Nt99SoACtWrF5c8qEFUkqFTARERGRZLN9Oy1bUq4cZXvXnNAq5M6vy6hUiezZLRbIx4egIEJCqF/f9kFk2/AJF+0LBpf9omKeq3fvEhzM8OE0bIibGyVL4ufHzJkcO2axsI8ymVi/nqVLee89smenUSOmTXv6LPQVKrB+Pbt20akT1tYEBuLtTaVK/PrrazHSJ/IIFTARERGRZFOmDH36kDkze/bQsydZ32vY2mPrik+XWbgFeHuzYgVbt9K4sVX0/Tq7vwm7mCumXOVjLQf93Glto9rRdnYcOEBAAO+/T5EiuLhQty5DhxIcbLF7xgwG9u5l0iR8fTEaWb6cDz8ke3bq1mXy5KekKluWmTM5c4ZBg8icmbAw2rZl+HBzRxd5JoPptZqaVJJD+fLld+3a1bx58z/++MPSWURERNKimBgWL2bGDFauTBiAcXfHz49BgzAYADh2jCtXqF7dAuF27eKrrwgKIiYm4RF7e2NVn/OF62yyq7PobLnNW62uXPln94wZ8fPj888tOYx34wZ//MHvv7NmTULq4cP573+feUxUFHPm8NtvfPYZ9eubJaa8tI4dO86ZM2f27NkdOnSwdBbzUQFLhVTAREREXhMXLzJzJjNmcOIEwKlT5MsHQOnS7NtHrVqMGUP58hZIdv8+mzcTHExwMLt3YzQmPJ4xI5Ur3yznuzWj79Ir5UND2bcPkwl7e7p04YsvcHe3QNi/3bpFUBCbNtGzJyVKWDKJJIu0WcB0CaKIiIhISsmVi4EDOXaMDRtYtOiv9gUMGECmTKxbh5cXHTty7py5kzk44OvL6NHs2MGVK/z6K126kC8fkZEEB7t93b/R4Ao/BOXZU+6Ds6Pm9Hr7XEwMEyZQoACdOiWUSYtwdaVTJ6ZMSaR9jR9Pu3bs3fu8UxiNVK1KlSqsWJEyGUWeQwVMREREJGUZDFSvTosWjzzUpg1nzsQOHBJvbcecORQqRM+e5l67+W9ZstC6NQEBnDrFyZMEBNC6NVmycP48M2bkHthx7EKPqMy5t+Rt2y1u4v7Ze0oWj+/UiaNHLRP2aRYtYt48ypWjXbtnVkSTiVu32LqVhg0T5usXMS8VMBERERFLyJjxl0JDC8QemWdoZ4qJZcIEChVi+nQLp8qfny5d+PVXrl5l926++YamTcmUyfbqhcpnfh1v7LGbsldj3drPbjC32IhhNdcd3XXPwoH/8vvv9OqFnR3z5lG8OH5+XLyY2H7W1uzZw+TJZM9OaCh16uDjw7p15o4raZgKmIiIiIhlvPUW9bp4vG/7ixdhG6jB9et8+CF371o6FwAGQ8KUjosXEx7OwYMEBNCpEwUKOHGnPiuHmQYP2VC7QHmX465e19r35vffeXTuDrPLlImxYzl+nK5dMZkICCB/fvz8uHr1X7umS0fXrhw/zqhRuLoSGkrt2jRowO7dFsgtaY8KmIiIiIhlODsTEMC5c9TpV6GRw/rGLG1t+tWnoWNQkKWTPcFgoHhxunRh5kxOnODyZX777c4Hvc5mrQgUitiede443n2XnDmpUIFhw9i1CwtN8+buzuTJHDhAq1bExhIQQMmSXLuW2K4ZMzJwIKdPM2QITk6sXEn16lo0TMxABUxERETEkrJlY/RoTp2iZL9Gyx1bhYbSrBmff27pWM+QPTvvvOM0bazH1bBrxyJ+eHvNSNthq6h3z+TAzp0MHUr58uTJQ7duLFtGdLT5AxYpwvz57NhBo0a4umJj8/RdnZ0ZOpTTp/nvf/n8c6ytzZdS0ioVMBERERHLe1jDzp5l6FBy5MDq789oCxYwZAjh4ZYM93Q5C2X4+PfaXc4PXv35ytz21+uyepLdp3ddcnPhApMn07gxbm7Urcv48Vy6ZOZs5cqxdClHj+Lm9rxd3dwYPpwhQ8wRS9I8FTARERGR14WrK0OGcOkSX3/910NffcXw4RQowJAh3LljyXBPly0bY8aw71j6HB19P4oZ7xRxrrHHgaP/GY23N9HRBAfTqxe5c1OhAkOHsnOnpS5QfOj2bTZvfrEIs2bRogXDh7Ns2WvbgeWNowImIiIi8hr79VcaN+buXYYPv5ct/9XPxxAVZelMiXN3Z9Ys1q7F05NlZz2LzujX1DXk3OYLTJ5MkyakS8fOnQwbRoUK5MvH++8zbRpHjpg/Z69eeHvj5cWqVc/bdcEC/vyTIUNo3JisWcmXj1atGDOGdeu497pM/yhvHBUwERERkddY0aIsWcKWLVvsa2eIvpHt274Rzh77O/jH3Xtg6WSJq1WL3bsZNw4nJ5YsoWjtnP1PdY2cF8T16/z5Jx9+SPbsnD3LzJl8+CHFipEtG2+/zdixhIURF2eGhB06kCsXO3ZQvz61a7N169N3/eUX5s2jTx+qVydjRs6cITCQvn2pXRtPT8uO48mbSwVMRERE5LVXuXKWfWt+aLpij3V5l9jwkr/0P+VSzv/Luxad+P2pbG3p2ZOjR+nalQcP8PenWDFm/eZAs2ZMmcLFi+zaxfjxtGpFjhxcu8aiRXz2GZUq4eJCnToMHUpwMJGRKRSvTh1OnWLyZLJmZd06qlShbl327ElsV2dn2rThm2/YsIGICA4cYMYMunfHy4sKFTAYntz/xg3zdEh5oxlM6u6pTvny5Xft2tW8efM//vjD0llEREQkOd29Ywrts7Dw7P+6PbhchKMRdlnfeYcJE8ic2dLJnmL7dnr0YNs2gFq1mDCBEiUe3+PkSUJCEv48ekWijQ1lyuDjQ+vWVK6cEtlu3+abbxg3jshIrKzo2JEff8TB4VVPd/o0RYvi5saHH9K1K7lzJ2fWVKpjx45z5syZPXt2hw4dLJ3FfDQCJiIiIvLGcHQyNJjyTr57B/Ysv+zzdlajkXnzWL7c0rGermJFNm9m5kyyZGHdOsqVo2dPbt9+ZI8CBXjvPaZM4fDhx0bDDAZ27GDcOKpUoWxZJk9O9jExZ2dGjODkST79FBsbZs4kODgJp3Nzo1Qprlxh5Ejy5+fttwkO1mWK8m8qYCIiIiJvGIO1Vc0G6X//ndOnCQykdWsAYmI4ccLCyRJjZUWnThw5wkcfYTQyYQJFizJyJBcv/mvXLFlo0YJvv2XrViIiWLuWL74ga1b27KFbN3Llont39u1L3nhZszJ+PMeOMWcOjRol4UTOzmzfzo4ddO2KrS2LFlG3LkWK4O/PzZvJFlfefCpgIiIiIm8qd3fefRc7OwB69KBQIRo1Mm3e8vXX/PDD6/Wx382NH39kxw58fLhyhf/+l7x5adaMoCDi4xM7wMGBWrX4+mvOn2fBAnx9uXuXn36idGkqVCAggPv3kzGehwft2z9zyeYXVL48kydz+jSjRpEnD8eP078/RYq8tksIiPmpgImIiIikCr6+ODqyfLnBu2qZfvXnfRKaKxft2rFmDUajpbP9pUwZNm1i9WpatcLKiqAgmjXDw4PBgzlz5inH2NnRsiWrV3P4MP36kSkTO3fi50euXPj5cfBgyqUNDsbTk969OXz4JY/Mlo2BAzl1ikWLqF+fIkWwtU2RiPIGUgETERERSRVatuTCBUaPxsWlHqtC8AmO9rk2b42vLwULMmIEFy5YOuFffH2ZP58rV5g8mZIluXiRESMoUIC6dQkMJCbmKYcVKcLo0Vy4wIIFeHsTEUFAACVK4ONDYCCxscme88IFDh1i3DiKF6d6dWbPJjr6ZY63tqZFC1asICQEe/vHNsXF8dNPBAZy9myyRpY3gAqYiIiISGrh5ES/fpw6xeDBuLh4ExqMb2j6OlGnrwwenHDJ32MTYFiUqytdu7JvX8JtU/b2BAfTqhXZs+Pnx4EDTzksfXpatiQkhO3b6dwZBwdCQ2nVirx5GTGC8PBkTPj++wmDbY6ObNpEp07kzEmvXhw6lORTb9hA9+4JsbNnp2lThg9nxQpu3EiG3PJ6UwETERERSV1cXRk2jNOnGTYMV9eq0WtX91nRqhU2NgQFvfzVdCnv4W1T588zYQIlS3LrFgEBlCpF7drMnUtU1FMOq1CBqVO5eJEJEyhenEuXGDwYDw/8/JLxRZYrx6RJXLrElClUrMitW4wfj6cnXbok7bzVqzNqFA0bkikTV6+yZAlDhtCwIZkzU7RowrT9kkqpgImIiIikRi4uCXdWLVlSYnSH+fO5eJHt2xNZUisoiEmT2LfvKZNhmIurKz16sG8fW7bQuTMZMrBuHe3bkyULrVsTGPiUSTdcXOjRg4MHWbuWpk158ICAADw9adw4aZPKPyZjRj78kLAwdu2iWzecnJJ8PaetLQMHsmwZ169z4gRz59K7Nz4+ODhw9Ojr2JIl+Wgh5lRICzGLiIjIc5w7R5Ys2NubTGTMmNBtnJyoUoUqVfD2plIlHB0tGfDOHebN4+ef2bYtYTEtBwcaNeLdd2ncmIwZn3LYyZNMmMC0ady7B1CqFB9/TMeOT96ClTQmE0Yj1tZPPnj+PO7uWCVlgCMujitXcHd/8vHx45k8GR8fGjSgTh2cnZPwHK8RLcQsIiIiImnA5s14eODmhq+vwX/08hE7OrQz5s3LnTusXMnQodSti6srZcvy228Wy+jkhJ8fW7Zw7hzjxuHtTXQ0v/1GmzZkyULTpsyaldjU7gUKMH48Fy8ybhzu7uzbh58fefMydCjXrydXNoPhyfYFfPUVHh5kzkzTpoweTUgIDx68/KltbBJpX8CZMxw+zJQpvPMOmTNTowb/+x+7d2uh5zeRRsBSIY2AiYiIyLNcusQ77xAW9s/89G5u1Kp1u6Lv5oz1Vp3Iv3kzu3cTG8tbb7FwoUWjPuLiRZYuJSiIFSuIiwNInx5fX1q2pHnzxMaEYmL480+++YawMIB06WjViv79KV48JeItX85HHz02qWG6dFSsiI8PDRtSvXqSn2DPHlasYMUKNm/+Z8rHbNno3p3Bg5N8dstImyNgKmCpkAqYiIiIPN/Nm6xdS3AwwcGcPJnwoMHA2rXUrHn/Pnv2UKwYrq4WDZmYS5dYuJDffmPTpoQKmS4d9erRvTsNGiR2wJo1jB3LsmWYTFhZ0agR/frh45MS2c6fZ9MmQkMJCeHAgYR4BgPnziU+svUq7txhzRpWrGDlSs6eJV8+Tp1KplObmwqYpBIqYCIiIvJyTp8mOJg1azh5kl9+oXDhx7bGxHD3LpkyAcHBnD9P27akT2+ZpI+6ciWhiW3cmDCDSI0ajB6dyEQjAEeOMG4cs2YlzKvYoAEjRlChQsrFi4hg82ZCQzEYGDbsyasWFy/m8mW8vfH0xGB41ec4fhxHR7Jnf+zB27fp2pVs2ahZk+rVyZz5Vc+e4lTAJJVQARMREZHkVL8+q1ZRrBje3l/86bMo3CcqZ4EvvqBrVxwcLJ0NgGvXmDkTf/+EZbSaN2fUKDw9E9v1+nUmTmTsWO7cwWCgRQuGD6dECfPmxWTCwSFhWWc3N7y9qVYNb28qVMDOLsln372bcuUS/m4w4OlJzZrUqEGNGmTJkuSzJ6e0WcA0CYeIiIiIPFPFimTIwOHDTJ06Jvz9ExTccSlnrt6t/pd9fMCgsw+nG7SsrFn54gvOnGH0aJyc+PNPSpWiVavELs3LnJmhQzl9miFDcHRk0SJKl6ZVK44dM2dgg4H582nfnty5uXmToCD69sXbGxcXatZk5cqknb1sWcLCGDECX1/s7TlwgIkTadmSbNkoVYq9e5PnNcirUgETERERkWcaOZKICLZt47vveOstsmbNweWWBI6428vnq0YPpxiMiLB0SMiYkX79OHmSfv2wsyMwkGLF8PPjypV/7ermxtChT+6aeGNLKc2aMWcO585x9ixz5tCtG56eREezYQNTpiT57BUr8uWXrF7NrVuEhDByJHXr4uDA/v3s358M6SUJdAliKqRLEEVERCRlHT1KaOiFBZvnHa/Q91Q3IEcOdu36616kffvInduy03ecO8eoUUybRnw8GTLwyScMGPCU1bMuXGDMGCZP5sED7Ox4/32GDCFnTnMnBuDmTbZto0KFJy8VvHSJKVOoWpUaNZJwjWJsLBcvkjdvUlMmH12CKCIiIiLyAooU4YMP3FdM/eJkt9WrqV6duLi/5rRft47Spcmaldq1GTfun/kVzStPHiZPZt8+Wrbk/n38/SlQAH//hNuuHuPuzvjxHD1K167ExxMQQKFC9OzJ1avmj+3mRsOGidyo9fPPDB1KvXpkzUqbNsyb90pDjra2ibQvkwkvL4oVY/ToxMYKJfmpgImIiIjIq/P1ZcMGrl37a9DI05N69TAYWLeO3r0pWJASJRgwgC1b/ll2zFyKF2fBAjZvpmZNbtygf38KFyYgIGEZscd4eDB5Mnv38s47REUxYQKFCzN0KOHhZs6cqG7d+PJLSpXi9m3mz6ddO7JmxdeXCRO4cCHJZ4+L48gRBgwgTx7efptlyxLmlJSUoQImIiIiIskna1ZWruTaNebNo00bXFw4eJDRo6lalTx5OHfO/IkqV2bdOpYsoXRpzp/Hz4/SpUn8Rg1PT377jR07aNSIO3cYNoysWSlYkHbtGDuWkBAsNOWImxsjRrB3L6dOMW4ctWtjMrFmDT17Urx40kIZDOzYwerVtGwJsGgRjRuTJw/9+3P6dDLFl8eogImIiIhIcnNx+SSkTcHt836dcM0UvIaePcmfn5s3uX/fUokaN2bXLubMIX9+Dh3irbeoUoUNGxLbtVw5li4lJIRGjXBw4ORJ5s3js8+oVg0XF0qX5sMPCQhg9+7EhtJSVr589OzJmjVcu8Yvv9C2LU2bYm+ftJNaWeHry4IFnDvH6NEUKsSlS/j7U7gwGzcmT255hCbhSIU0CYeIiIhYXOfOTJ8OUKMG339PyZIQG4ut7ZP7ffABBw4krITl40PWrCkdLDaWGTMYOpTLlwF8ffH3/2fdrCfFxXHwINu3s307YWEcOPBY6bK3p2xZKlakYkVq1iRXrpQO/yIiInj3XVxdadaMxo1xc3vJ400m1q9n6lR27GD+fMqUSZGUQFqdhEMFLBVSARMRERGLM5mYPZu+fbl6FRsbPviAr74iU6Z/7VemzGMrUxUtmlDGqlUjf/6Ui3f/Pt9/z+jRRERgMPDuu4waRaFCzzssKordu//pYydO8PdnaWtrmjXj44+pXRuDIeWSP9fp0xQtSkwMgI0NPj40a0azZhQoYMFQiUubBUyXIIqIiIhI8jMY6NSJI0f49FOAgACKFGH8+H/NxLF1K2vXMmwYvr5kzMiRI0ybxvvvU6AAXbqkXDwHh38WDUufnsBAPD3x80sYFnsqe3uqVqVnT+bM4dgxbt5k5UpGjqRpU6ytWbQIX188PfnhB+7eTbnwz5YvHydP8v331K2LlRXr1/PZZxQsSMmS/Pe/FrwIVBKogImIiIhISnFxYfx4du6kenVu3KBXLxo1enyP9OmpVYvBgxNWDQ4L47vvaNGCnDlxdEzpeG5ujB7NsWN07YrJREAABQvSv/8LT/Lu4kK9egwaxOLFnD/P6NF4eHD4MJ98Qq5c+PlZatVjd3c++YRVq7h2jV9/pW1bXFw4cICRI/nzT4skkn+ogImIiIhIyipVivXrmTOHnDk5cuTp09Hb2FCxIr17s2gRFy/y3XdP7nD/Pvv2kdx30Li7M3ky+/fTsiVRUf8sGhYV9TJnyZqVfv04dYrFi/H1JTKSgABKlcLHh8BA80/X8ZCzM61bM3cu166xejXjx9O8+ZP7TJ1KrVr06cOvv1pq2ba0RQVMRERERFKcwUD79pw5w7FjWL3yJ9BevShdmmLFGDfulZYifpaiRVmwgC1bqFWLmzcTFg374Qfu3HmZs1hZ0bQpq1dz5Aj9+uHiQmgorVolTOx+8WLyZn5xtrb4+vLppzg4PLlpxQrWr+e772jbloIFyZSJ+vX58kuCgixVG1M5FTARERERMRNbW+zsnnwwNJT33mPRImJjn3d8s2a4u3P0KL17kysXnTuzY0fyJqxUibVrWbGCcuW4cIFPPiFnTrp0Yfv2lzxR4cKMHs3Zs0yYQNGiXL6cMLLWsSPr1llqPbFEzZ7N0qUMG0aTJmTPzs2brFrFqFE0a8akSZYOlxqpgImIiIiIJf3+O7Nm8fbbeHgwaBCnTj191yZNOHOGRYuoV4/oaKZPp2JFvLyYPp3o6GSMVL8+O3awcCG1a3P/PlOn4uVF+fIEBLzk5BpOTvTowaFDrF5NixbExTFnDrVr4+JCmTJ07cq0aezfT3x8MoZ/Wfb2NGrE4MEEBXH5MufOsXAhAwbQpg116lgwV6qlaehTIU1DLyIiIm+QyEimTmXKFA4dArCyok4dunalWbNEhsv+ceIEkyczYwY3bgB068ZPP6VEvBMnmDqV6dMJDwdwdKRtW/z8nr502DOcPUtAACtXsm/fY+N9GTNSrhxeXlSqhJcXefIkV/jXXNqchl4FLBVSARMREZE3UUgIU6YQGJgw+0W2bIwZQ8eOzzwmOpoFCwgM5D//4e23Uy5bTAx//klAAGvWJEwCUr48XbvSrh0ZM7786aKj2bWLsDC2b2fbtifnvsieHS8vvLyoUgVvb9KlS5aX8BpSAZNUQgVMRERE3lwREcyezZQp7N9P06YsXmzpQI87dozp05k2jevXAZycaNOGjz6iTJkknPTGDcLC/vnz8NQPZchA7do0bEiDBuTLl8Twr5u0WcB0D5iIiIiIvEZcXOjRg337OHiQWbOe3GoyvfBUgg0bUro0AQHJe3vYw8k1zp9n9mx8fLhzh4AAypaldGl69GD+fC5devmTZspEw4YMGcLSpYSHc+IEc+fSqxdlynD/PkFBdO9O/vwUK8Znn7FqVfK+IjEzFTAREREReR0VL46Ly5MPDhuGuzvFijF48PNWOY6IYN8+/Pzw8GDYsIRbuJJJ+vR06MCmTRw4wKef4uLCvn1MnEibNuTKRYECvPceU6dy5Mgrnb1AAdq2ZexYdu/m6lUWLKBjR1xdOXKEsWOpXx83N+rWxd8/4bY5eaOogImIiIjIG6NsWTJn5sgRRoygVKlnNrHQUBYvpkoVrl1j6FBy56ZTp2RvLJ6ejB/PlSts3MioUTRsiJMTp04xaxZdulCsGFmz8tZbjB3L9u2vtKxWliy0bMmsWYSHs2kTgwZRrhzR0QQH078/np4ULkzPnixfTmRk8r40SSG6BywV0j1gIiIikorFxbF+PYGBLFz4z91SRYsyeDBt2yZ2wKZNfPstQUEYjVhZ0aQJs2fj5JRC8eLj2b+fTZsICSEk5LErEjNkoHJlqlWjWjUqV05kTeQXdfUqK1awYgWrVnHzZsKDNjZUrEjNmtSogY8PGTIk8YWYQdq8B0wFLBVSARMREZG0ID6edesIDGTRIsLDyZfvmWuIHTvG2LHMmsX9+2zeTJUq5gl58iQhIWzaRGjoY1ck2tpSvjw+PlSvjrc3bm6vdPb4eMLCWL6c4ODHhthsbRPKWM2aVK362pYxFTBJJVTAREREJE2Jj2f1arJlo2zZ5+164wbHj1O5sjli/cu1a4SGsnEjISHs2fNPXTIY8PSkWrWEPubu/kpnf1gsQ0ISniMmJuFxGxtKl8bXF29vatRIuaG/V5A2C5iNpQOIiIiIiCSJtTUNGrzYrpkykSlTyqZ5uof3g731FkBkZEJd2riRsDAOHODAgYSlpPPlS7hMsUYNChV64bM7OODri68vwN27hISwfj3r17NrFzt3snMngJ0dlSvTvj1t2+LomAIvUZ5Pk3CIiIiISOr00Ue0acPhw8/bb+ZMHBzo0YMrV8wRC4CMGalXj+HDWb+eiAhCQhg9msaNcXHh9OmEOTwKF6ZoUfr1Y/NmjMaXObujIw0b4u/Ptm3cvMnSpXzxBRUrEh/Pxo34+ZEzJ127sn17Sr08eToVMBERERFJnVasYP58Spakc2fOn3/6funS8eABEydSoAD9+/8zrYW52Nnh7U2/fixZwo0b7N3L99/TqhWZMnH0KF9/jbc3OXLQpQtBQURFveTZHR1p1IivvyYsjJs3mTOHGjW4d48pU/DyomxZfvqJ27dT5IVJYlTARERERCR12rKFjz7Cyorp0ylcmC++eEq3atOGAwdo2ZKoKPz98fCgf39LdRIrK0qV4pNPmD+fq1fZtIl+/ShShGvXmDqVZs3IlImmTQkIeKXhOicn2rdn/XqOHKFfP7JmZc8euncne3ZatSI4OPlfj/yLCpiIiIiIpE7Zs/Pjjxw6RJs2PHjAN99QoAD/+x/37/9r12LFWLCAsDDq1ycyEn9/ChVi7Fji4y2Q+y/W1vj4MHo0R45w8iTjxuHtTXQ0S5bg50euXFSowNChL3CN5b8VLszo0Zw/z4IF+Pry4AGBgdStS7Fi+Ptz40byvxj5iwqYiIiIiKRmBQsybx47dlCvHhERDBxIxYpPuaWqQgVWrGDDBnx8CA/ns8+YPNnccZ8if3569iQkhPPn+fFH6tfHxoadOxk2jOLFKVGCgQMJC+PlJji3s6NlS1av5uhR+vYlWzaOHKF/f3Ln5r332Lw5pV5M2qYCJiIiIiKpX7lyrFzJmjVUqUL6JxDPAAAgAElEQVTmzBgMT9+1enU2bWLZMjp1om7dJ7fu3cvgwSxc+My7ylJQrlx89BErVhAezvz5tGuHiwsHD/K//1GpEu7udOvGihU8ePAyJy1UCH9/zp1LGAd78IBZs/D25uefU+hVpGWahl5ERERE0oratV94XKdhQxo2TOTxr79m7tyEv+fIQcWKeHlRsSJVqph5YncnJ1q1olUrYmPZsIE//2TxYs6dY/JkJk/G0ZEGDWjRgkaNcHF5sTPa2fHuu7z7LqdOMW0aa9dSuHDKvoY0SQVMRERERNK6K1e4fZsiRV5g16++In9+tm8nLIzLl1m8mMWLATJkoEcP/ve/FE6aCFvbhAXAvv+egwdZsoSgIDZvJjCQwECsralcmaZNefvtF15VLH9+Ro1K2dBpmC5BFBEREZG0rlEjihenXTtOnXrerh4ejBjBihXcvMmxY8yZQ8+eVKrE/ft8/71lJ+0APD3p14+QEE6dYtw4atfGYCA0lP79KVyY8uUZOpRVq7h1y7Ix0zSNgL0E470L+8L2nLh0PRLHzDnzlapQOo+jtaVDiYiIiEhSderEgAHMm8fvv9O1K//9L1mzvsBhhQpRqBDt2wMcP47JhPXr8uEwb1569qRnT27eZNky/vyTFSvYtYtduwAMBgoWpGLFhD9ly+LgYOnEaYYKGACmmyd2HL9hxCpjnpKeOdL/a3vUqWXjhw4fHxh2JfqfmWUM6TKXbNS13+A+bcq4aSRRRERE5M3VqxfvvsuIEUybxsSJzJjBJ58wYADOzi98ikQv7zt1ip9/plkzKlRIvrAvx82NDh3o0IHoaNauZdUqtm9n926OH+f48YTb2Wxs8PT8p4+VLImNWkKKUXEAIGbtwOqVK1eu7N15zvknx42NV1f1rV2x6YDZ2x5tX4DpwfV9i77qULliyx92332pGT9FRERE5DXj7s7kyezdS9Om3LuXsBLYxIlJO+mMGYwYQcWKVK7ML78QE5M8WV9J+vQ0asS4cYSGcucOu3cTEMCHH1K6NMDevUydip8f5crh5ETVqnz2GVevWjBvqqVu+xwxB8a1bv3t1ggjYLDLWqKmb/UyBbNl5N7VE7vWr1p/6Hrsg1OLejY1OG76tVM+fTVFRERE3mienixeTGgo/foRGkqPHrz9NjlzvurpevcmOppp09i2jW3b6NOHLl3o3Jm8eZMx8yuwsaFMGcqUoUsXgPv32b2bHTvYvp3t2zl+nC1b2LKFXLno08eySVMhVYZnMl6aO3DkpggjButsNQdOmz6gcV77f7aaIo8GDuzg98OOiIuL+nyxoF5gu+zPWFFCRERERN4M3t6EhBAczLVrSWhfgJsbY8YwbBhz5zJxInv3MnIkI0eSKxcff8yAAcmWOGkcHPD2xts74T8jIti+nWPH6NDBorFSKV2C+CzG87/NWBVhxJCu1BeL/hz+WPsCDBmLtBofNKWNuzXGG4u/m3bYwrPeiIiIiEjy8fWlXbsnH4yMZNw4wsJe5kQODnz4IXv2sHEjbdrg6srFi/z5ZyJ73rtn8XkUARcX6tbl449f5hY4eWEqYM9yb8vGnTEmDM5N+39ROfGF9QzZ3xrUrbQtprj9K1edN5o5oIiIiIiY1cKF9O5NpUqUL09AAJGRL3NwtWrMm8eNGxw/zsqVT249coRMmXBxoWZN+vZl4UIuXUq+4PK6UAF7BuP1y1diTWBbtqaPy1MvLrQu5OOdwxpT3Knjp+LMGU9EREREzO2dd+jblyxZ2LULPz9y5uSjj9iz52VO8XAO+H+PLrm4ULgwkZFs2MCYMbzzDrlyUbo0/fuzaVPyvQKxMBWwZzMAWDm7Oj/jC2VwcXMxgOn2rduaC1FEREQkVcuQAX9/zp9n7lxq1ODuXSZNomxZSpXC3z9pp86enX37CA9n6VIGD6ZBAzJmZN8+/P2pXp1Zs5LnBYilqYA9g1W2AvkyWoEx/Gr4My4uNF6/dt0IBmcXZ83BISIiIpIGpEtH27asX8+hQ/Tsiasr+/czYgTGpN+QkjkzjRoxbBjLl3PjBsHB9OlDgwaUKZMMueU1oAL2LPY+Teu6WhG7K2j502/verBjefA1I4Z0JcoWszVnOhERERGxsGLFGDeOy5fZuJHNm7F6/MN1dDRvvUXLlkyYwO7dLz+/hp0dderwzTcsX06pUk9u7dYNNzdat+bnn7lyJSmvQsxJ09A/Jv5wQJfWh0oWKlSocKHChQoXKlS7T49yi4ft2DCy95ymgZ3yWD95gOn2lpG9Jp2Iw5C+cpP62TQCJiIiIpL2pEtHtWqJPH77NsuX8+ABv/0G4OSEtzc+PlSrhpcX6dIl7VkNBm7dYsECFiwAKF6cWrWoVYsaNcicOWmnlhSkAvYY450TG34/seHv/zZY2dmnM4Hxyh/dGvXLs/Wbmhn/3hZ748DyqaMGjpp/8J4J69zt+rTPrfFEEREREflbtmwcO0ZwMJs2sWkTJ0+yfDnLlwOkT8+MGbRpk4Sz//QTffuyfDnLliVcDXnoED/8gMHABx8wdWoyvQhJZipgAFgXa96ji82REydOnDh5+tKt6PiE2TRMxpj7UQ//FnViz5G7ppoZEwa5YkP7Vawx9nQ8gCFdofcmjGzoqvEvEREREXlMnjx88AEffABw6RIhIWzaxMaNHDzIrVuJ7B8Vhb19Io8nLl8+unene3diYwkLY/161q1jyxYuX06u/JLsVMAAsPFs/3VA+4d/N0bfvHDqxBNOnr/+xDW7xof3WBqsXMp+NG3huBY5NPwlIiIiIs+QMyetWtGq1VN3GDuWPn0oVozq1fHxoVYtcuZ8sVPb2uLtjbc3gwYBiUwGcuQIvr7kyEHt2nToQMmSr/gaJMlUwP7FKr1bnuJeeYp71X7kQVPM7Ss3TFn+GeMy2Ocs16BT67ot2rVvWjqzvowiIiIiklTZsmFvn3At4aRJGAyUL0+LFjRvTokSL3Miq38NDcTFERHBxYvs2MHXX1O1Kl270qrVywy3SfLQsM2LMdg558jh8kjPsqnQd+GSmf4931L7EhEREZFk0a4dERGEhuLvT5MmZMjAjh18+SUlS+Ll9fKTKD6qRAmuXWP1aj7+GGdnNm/m/ffJmZNPP+Xw4WR7AfICVMBERERERF4XtrZUrUrfvgQFER7OkiV06UK2bISHJ3mRMQcHfH2ZOJFLl5g2jUqViIjg++8pW5br15MnvbwAjd6IiIiIiLyO0qencWMaNyYgIJGtsbF88w05ctCkyUtOO+/gkDAxyN69TJlCZCTOzskUWZ5PBSzJom9dvnnfaAKDfaacbuktHUdERERE0oLduxk4EMDaGh8fmjenRQvy5XuZU5QuzcSJiTxuMrF/P4ULk16fbZOfClhSPVjZo8hbv9w1QfqWgREL3k3ignqPu5Xo7KTPE5+kC4RFRERE5A1QsSLTp7NgAevWsWEDGzbw2WeULk3z5rz9NqVLJ+HUixbxzju4ubFoEdWrJ1tiAVTAXmeffPLJDz/88MqHh4eHJ2MYEREREXmtGAz85z/85z/cvcvy5fzxB8uXs3cve/cyfDjr11Ojxqueulw5vLwIC+PcueRMLIAK2OssV65crq6ur3BgZGRkbGxsnjx5kj2SiIiIiLxuHB0TlheLiWHDBv74gyNHyJ8/CWfMm5dt27h7F0fHZEspf1EBSyq76sPWbu0RbwKrTIXskvPMAwYMGDBgwCsc+Nlnn40dO9bLyys504iIiIjI683Ojrp1qVs38a09enD2LE2a4O1NsWKJLBX2JLWvlKECllQG1wIVvApYOoWIiIiIyLMEBXH2LEFBAI6OlC9PxYp4eeHlhS6cMicVMBERERGR1G/XLhYtYtUqtm3j7FnWr2f9+oRNH33Ejz9aMluaogImIiIiIpL6ubnRuTOdOwNcu0ZYGNu3s307u3fj5GTpcGmJCthzxEVevxp+49ad+w9ijVbpMjg6OjpnzpYlo75uIiIiIvKmypqVJk1o0sTSOdIkFYlERF3cGjT/9yWrN23bfeDUtXtxpse2Ggx2TrkKFC1ZsVbD5i1aNPDK7WCwUE4REREREXmzqIA9xnhjW8DA3sN+3nolxvS0fUymmNsXDm+7cHjb8ln+fbKUbzdorP8nPtmszZlTRERERETeRCpg/4g5OffDhh/MOf7gr+5lsHZwy5k7T+4cmRwd7O3TWRtjoqPu37159eL5cxfDI2NNYIoN3zGzd+11679fNtfP096i8UVERERE5HWnAvaXqLDh7zxsX4Z0OSu37tqlfXPfKiVzOyY6smWMunpk+4YVv80MmLni6J3Yc39++nbfgmET6jjrakQREREREXmq5y7AlkYYz80YOHbfA5PBOlezcaEHQ2cO+U+9Mk9pX4CVfbbi1Vt9NmHp3r2LepTNYDDFHJ8yaPKxeLNmFhERERGRN4wKGADG83/MD4kyYZ2787TZn5Z3eeGBrHR5m42dP8LH3mB6sGtR0Gk1MBEREREReToVMADiDu05GGvCKmujlrVedhkE6wLvtPSyhfjjhzQEJiIiIiIiz6ACBoDpwYMYExgyOmZ8+bu4rJxcnKzAFPPg6VMnioiIiIiIqIA9ZO3u4W4Nxgs7d102vuzBUXu3H4gFq2w5sunLKSIiIiIiT6fGAIBNqSYNPawxRW3w7x94/mUuJDTdDRszYOaZeKwyedcsZZtiCUVERERE5M2nAvaQXSW/HtWcDMSf+7VTlfp9Z4ddfvDcY+Ijjiz9pkPVusO23DEZ7Dy7fFw3gxmSioiIiIjIG0vrgCWwLtx90pjgWt2XXo65uGZMp8rjehX08vGpVLZYfg/3HJmdM6RPb2djio2Ojoq8ceXC+dPH9m7fHLL1wJX7RhNg5eI9eNqAiuks/SJEREREROS1pgL2N9siXResSd+jbc8Z+yKMptibx0MXHw9d/NzDrByLt/Wf/UO3chr+EhERERGRZ9MliI+yL9Zp6o6jW2YO7lC9gLPNs+dDNNg45fNuO3D6piO753xUzvnlJ08UEREREZG0RiNgT7LJ6tVx2OyOw2IjTu/bsWv/0ZNnL169cSsyKiYOW/sMGTNmdM6Sp2CRIkVLlC6R10WTboiIiIiIyItTAXsaW5d85X3zlfe1dA4REREREUk1dAmiiIiIiIiImaiAiYiIiIiImIkKmIiIiIiIiJmogImIiIiIiJiJCpiIiIiIiIiZqICJiIiIiIiYiQqYiIiIiIiImaiAiYiIiIiImIkKmIiIiIiIiJmogImIiIiIiJiJCpiIiIiIiIiZqICJiIiIiIiYiY2lA0hKGTVq1MSJE1Pu/NevX7979661tbXBYEi5Z5HXkMlkio+Pt7KysrLSb3DSFn3r07L4+HjA2tra0kHE3IxGo9Fo1Nt9GvTwZ37mzJkdHR1T7lmuXbuWcid/bamApUJ58+YFbty4cePGjZR+rri4uJR+Cnk9xcfHP/xAJmmNvvVpmdFotHQEsQy93adZ4eHh4eHhKfoUBoPh4WfXtMNgMpksnUGS39mzZ1P6E9IHH3ywYcOG0aNHV65cOUWfSF43c+fODQgIaNu2rZ+fn6WziFkdPHjw448/Ll68+I8//mjpLGJuvr6+cXFxq1evtrW1tXQWMas+ffrs3Lnzm2++qVChgqWziFnNmjVr+vTpn3zySe/evVP0iezt7XPkyJGiT/G60QhY6uTh4ZHST5EhQwagZMmSNWrUSOnnktfK1q1bgTx58uhbn9bY2dkBzs7O+tanQQ+vO61evfrD/xtI2uHq6gqULl1a//DTmo0bNwKurq758+e3dJbURtfxi4iIiIiImIkKmIiIiIiIiJmogImIiIiIiJiJCpiIiIiIiIiZqICJiIiIiIiYiQqYiIiIiIiImaiAiYiIiIiImIkKmIiIiIiIiJmogImIiIiIiJiJCpiIiIiIiIiZqICJiIiIiIiYiQqYiIiIiIiImaiAiYiIiIiImIkKmIiIiIiIiJmogImIiIiIiJiJCpiIiIiIiIiZ2Fg6gLypnJ2d//5fSVMeftOdnJwsHUTMTf/q0zJnZ+f79+9bW1tbOoiYm/7hp1l6u085BpPJZOkM8kYKDw/fvXt3vXr1LB1EzC0mJmbVqlV16tSxt7e3dBYxt/Xr1xcuXDhnzpyWDiLmdvDgwbi4uNKlS1s6iJjb1atX9+/f7+vra+kgYm4PHjxYvXq1r69v+vTpLZ0ltVEBExERERERMRPdAyYiIiIiImImKmAiIiIiIiJmogImIiIiIiJiJipgIiIiIiIiZqICJiIiIiIiYiYqYCIiIiIiImaiAiYiIiIiImImKmAiIiIiIiJmogImIiIiIiJiJipgIiIiIiIiZqICJiIiIiIiYiYqYCIiIiIiImaiAiYiIiIiImImKmAiIiIiIiJmogImIiIiIiJiJipgIiIiIiIiZqICJiIiIiIiYiYqYCIiIiIiImaiAiYiIiIiImImKmAiIiIiIiJmogImIiIiIiJiJipgIiIiIiIiZqICJiIiIiIiYiYqYCLyCuLuXjl39tzVyHhLBxERERF5o6iAycuJOrVq4uetqhXPkyWjvWNWjxI12vWftO7cA0vHEjO7v6pn6Xx5C7X5+ZLR0lHEDO6dXDN1yIeNvIrly+7ikM7BOWveUrVb9xq75Mgdff9TNWPEwYVf92hZs2TebC4O6dI7ZspZ2KvRewMmrzl9z2TpbGJmUTuHVcxgZbDO0W11jKWzSMqJDe1TwMbwTDYFP98ca+mcbzwbSweQN0jUgSmdW37265HIv9557507GH7u4Mb5k376YNLCH9sUsLVoPDGfO2sWLLtu1M+PtMB0c+t4v/e+/P3YI5+4o8LP7l93dv+6wB+/9f1y9uwva2XT7/JSH+O1dcPbthu17krcP9/5m5eP37x8fPvy2eO/edv/1+mflHcyWDChmFFk6NAP/rfzvkm/t0/t7p8+cVm/WDMDfYCSF2Q890unht1/vxBnwuCQt1qzRl550t85GbpkSdilB7f3TXu/kY3z5h8bZtK7cRoQve+H/wVe00/otODB4R/bN+uzItwIBiunAjWbNqiY3yn6/KHdmzeEHr8VH3tx9dDmzY2rVg+t7GjpqJKsHhwc1/rtEesjjGBIn71s3UY1SuZxsYo4vWP14uBDN+OiTvzeq0mc05aF7+XVB/LUzxSxZmDnsfsfaNgz9Ys7c+JMrAmsHPOUKJLVLtF9rN3dM+rDXpKZRF6A8dpv7XJYAQa7Qh3nnoj+e0Pk3h+auVsbwGBTuNeGuxaMKObw4OquBV/Wc7d9+LPXrub35+ItHUlSTtzRb30cDIDBOke9rzZei/tnU/yNrWOb5bYxAIZ0ZYfsemC5lJL8jJdnNXe1Agzpi38w9+i9RzbFXw8dWSuTFYB1rs5Lb1sso5iLMTyocz6bvz5wW2X3W6V/7qnX/T/aOxvAkOGdX+9YOkvqpl9dyYuIPzhpVOAVIwbbYp/O+KltgXR/b8lQ6qPpP3Z0t8YUdzxgxJwLGhZJjUx3tkz8uH2zGqXcM+Us32rkqgux+kVoWhAbNmXSlvsmsC7Qdeav/atlsf5nm5VbpV5z5/cpYWfA9GBvwE/roiyXU5Kb8eLCn1dEGMGmZJ9ZP7Yt7PDINqtMVQdMH1rDwQDxl4N+23TfYinFLIyXf/v0o59Px2FjY6NRj1TPeOnE6SgTWOculN/e0mFSNxUweQHxhxYuPBBrwpC+WvceVTI8vtGQqWHvziVswBQVGrj4ohpYahS5Z9HUuUEb91+MjFf1SjPiT6xbdyYesC31Xvfarv/+7JWhUo+PqqUzgPHa+jX74syfUFJIVFjIzhgT2Hq+07pMun9ttspdv2EpG8AYcfSIbhdJ1Yzn5nTvMf+C0dqj3eft8+gjY6oXd+bE6TgwWOcrlM/6+bvLq9M9YPJ8xjOrVx6KBWwrNG3s/u+fwDbFmzQuNHLv4bjoLcvX3vroPd0IlupkLNe2b3+vvz9hR+0L/GHZSX3gTuXiThw9GQdYZavqXSTRt2KrrCVKZLdacybeeOXi5Xi9oaQWxuvnL0SZAOvceXMn9p23cnR2tAIw3b8fpd/JpF5xJwK69l581WRToMukb5uu8Rlj6UCSwky3Tp66aQTrbAULOOujXIrS+6U8X8yR/UfjAOtcFSrmSuw3YDbFK5V3NBy+ZYo5cuB4HJk0G2IqY3Cq9OGISn//p+nGjL2TVMBSvajbd03p0qfHNl/+3E/5zbcp6uHnb0O69On0Zp1qWGV55/t1FSJNBussRZ0T2yH25JFTcYDBLm/+RN8TJDWIOTShc79VN022RboH+Nd3O7zG0oEkxcWdPnE6DrDOXzi/tSny3PYNG3eduBJpypApZ4Fy1aqVymGvH/TJRQVMnst48cjRu0bA2qOAR+JD0rZ58rlbcyvOeOHIsUhT5UQuVhKRN4xLh4URHZ65x4OdqzfcMILB1rOMp95NUg8H99JV3Z+6NerApOGzT8eDVZYm7eq76Md96hS9++sPBm+6Q7oSvaaOqu1s0LpPaUH06ZMXjWCwT39xQTfvb2ZuvRLz9xC3wcqxUOMeI/0HtCyW0ZIZUwu9ZcpzGW9ev2UEDLbZc2RO/Jed1tlyZrWGOJPx5vWbJlTARFK/mMM/DZpyPA4MGaq3bZHIxcmSWpgijm/dc/b2nZtXzhzauvSXOatP3DMZ7Iv856dv38msn/ap0r0tw/8zKuwe6ct+MW2ojz5vpxHxZ0+ejjUBt1eM/vzJjSbj3WNBX7XZtGrbr0vG1M+mf/lJpAImz2W6F3nPBBjsHeyf8hnLYO/wcFzadD/yvu4IEEn1Ig9M6dy83/rbJgz2pXuN7PS0ixQlNYgNG/NWwylX/55uw8qpzAffTRvzn3Ku+ranRqbb6wZ1/nZfNBm8Bk0b5OXw/CMkdYg7c/zMw5sLDDZZKn/430FdW1Qtmt0h7uaZvWsDf/jfNwv23zZG7Bjb/r2CW5d2K6hJOpJEPzzluUzRUQ9vs7azS3xNvkc2me7fUwETSdWi/t/encfZVP9xHP98z11mnzGbbezTWEITxi5LlsgyIsvYQgoVlVIqLX4pMiEpoWzRD4WxryFkGVsL8bObbCNja5jtLuf3h8qYuRgZZ7hez7887pl77+d+7oxz3uf7Pd9zeMn7rStV7/3t4QxdmcNajpn1djXWK76vOJN/nfXhm8Pn7mMNejekn10+sNfn/8sQv9rvTnqtkmde1wPDOE8dOnJZF1EeEd2+2bbui37NKxUN9LJ4+BUoUydm8MxNPwx/NFATcZ5d9Z//LD7Psd7tIYDhppSHp6cSEbHZrjsJPCMj48o/bhDSANzjLu+Pe7tFhYot31lwMEUXzT+y19drZj9Thj96N2dtNO73lLSU5HOnDu5YPnlwm3K++uXDK0Z0rBP96W8ZeV0ccpWeOO/F3pMP21W+BkO/erkCf9v3E63os4tOJSUlJf3x6+T2xbMtp+b78ICJ79bxViLOxPnTll4ggd0WAhhuSvn4+igR0dNS067z96an/rVJ+fj5MDEYcD8pB+Lealo+su3QJYdTdFG+EdFDFv60eWJMaU6Q3wc0s9XDw8s3sGB45cd6vD9ny4o3o7yVOJNWv/36jJPcCMx9OI998/wLM485tKAmwyc+X4arVO4zJq+AoODg4CB/z+tc718qpltdTyWiX96yYQfrstwWAhhuSgsODdZERM84nXjOdQJznDn1h0NERAsM5qIAwL3oF3aMi6n8cNsPVySk6cocUqX76NV7ds1/p3kpZh7el5R/zUHvtAvVRPTktQtWX+REuJvQz84dOGB+olPL32Lk+GfCucQHWamgipHFTCLiPH8qMTWvq7m3cayMm9LCyjzgo0TEcezIMYfLH7EfTzjhFBFToTKlWZQYcCP2Y/P7PlL3hVn7UnRlLlC735St+7ZOealBUY+8Lgx3in7h0I6t8fHxW3cdv+41Xt6Vq1Uwi4huO3b0BENgbkJPPnHiolPE+cfCHiVM6lrWmh8fdIiIM3FCEw+llFJacI8lzEC9zyhvX28lIkqU4mDvthDAcHPWshXLmkXEkbBj5x+uznU6Dmz/+U+niLKWrcicBcBt6BfXDWoeM3F3iq6sxVoMW/3ruk+fqhTEfsO92f83IaZWjRo1aj0+PP56k4yUyaRdOfwymRkoAdyAfinhp00bN27cFH/gOpOdRMSZdDrJKSIqX8H8TD+/LRws4+a0Eo0blzVv3mXP2LZ8dVLvrqFZTns4j36/cq9dRFmrNmvIXWEAd3F53dtPj9mdpitr6R4zv5/Qpih7jPuBObxMuFkOOBynd+5IcDZ4wFXgtu37bb9dRJQlrGhBErmbUAFVuwwcVMf1RBfnybVfzog/71Q+D3d4rmkJk4jyrsJK5O4kdfXgRr2WpuqmiFc37I6t6WoBFvvedRsSHSLKu1rtytlW6cCtYHeKHDCXf+KJcsN277Ilrxw/dV/MwLLX/N6kbp34VXy6Lsq7RtsWxdgVA+7BefybYVMO23VlqfjK9M9IX/cNFVS3YWWPFZvT7dunTdr2/LDq2S710/9YMP674w4R5VG9Ud0Azrq5CRVYu/fQ2tfZaNsycN438edF+VXvOXRYY5ZHdDsquEGTKOuyDemOQ9NjZ/ef0zXb3R31xLjhE3fbRLTAxu2aBPGHf1s4WkZOmCOfe61FoCZ66pYPnx2+NdM1187TK9/oM3avXcRUtMsb3UvxGwW4Bz1xyZwNl3VRllrP9IliuY37iCm8U69G/kp022+juj47be/la7ZmnFj5zpN9v010ipgKd3ipE/fgBtyCVqJD7+bBmojz9Pznnxy06pQ989bUw3GvRD87+6RDlGdkv7faFyB/3R5OaSJHVIGOsbHfbX5mYeKFDe80rLqpx9PRUWHWiwc2fDt55sbjabqyPNB97JAm/nldJ4Bckr5z8850XUTJ/kndGs674c7WVKLLuK+eLs10JDehFQaMZw8AABHeSURBVO7y0bvTN736w/mMAzN6RK4Y2bBpvYdKhHg5/zyxZ+OKFVuPpegiyqPM0+M/aslpcMBNqIIxn4xdvL3r7N/tyVs/blpmbp3HH6tRuoCn7VzCrvUrvv8lMV0XpYU0HjHjzSoMgd4uAhhyyBzeY1rcuS4dBy9NuHRg2dhBy65uUr4Pdhn73WetCrIjBtyF88S+/clOEdEzTv2y7tSNf9j8YO1LrEXuTqzlX5qzMK1rpyHLj6XbzuxaPn3X8syblaVQg9cmT3u3KWfBATeiFe04dY0l7OkXx64/kZF8eP3sL9Zn2qq0gIrdx8wa+1Q54tftI4Ahx1S+Gq8u3Nl47sQvpsz5/pfDJ89meOcvEhHVrGOv53o9HuGT1+UByEWOM4lnXF+Mj/uCCq7zxpLf2iyb8uWMhWvidx08eS5V9woILhT+cK1HW8T06tY43IfwBbgdj/C2H69t3Gvp9K+/XbBi897fT51JVn6hYRFRDZq36/ls+6hQgkPuULrOaUsAAAAAMAIXzwIAAACAQQhgAAAAAGAQAhgAAAAAGIQABgAAAAAGIYABAAAAgEEIYAAAAABgEAIYAAAAABiEAAYAAAAABiGAAQAAAIBBCGAAAAAAYBACGAAAAAAYhAAGAAAAAAYhgAEAAACAQQhgAAAAAGAQAhgAAAAAGIQABgAAAAAGIYABAAAAgEEIYAAAAABgEAIYAAAAABiEAAYAAAAABiGAAQAAAIBBCGAAAAAAYBACGAAAAAAYhAAGAAAAAAYhgAEAAACAQQhgAAAAAGAQAhgAAAAAGIQABgAAAAAGIYABAAAAgEEIYAAAAABgEAIYAAAAABiEAAYAAAAABiGAAQAAAIBBCGAAAAAAYBACGAAAAAAYhAAGAAAAAAYhgAEAAACAQQhgAAAAAGAQAhgAAAAAGIQABgAAAAAGIYABAAAAgEEIYAAAAABgEAIYAAAAABiEAAYAAAAABiGAAQAAAIBBCGAAAAAAYBACGAAAAAAYhAAGAAAAAAYhgAEAAACAQQhgAAAAAGAQAhgAAAAAGIQABgAAAAAGIYABAAAAgEEIYADgttLndvTR1K3SArstShexbRwQblZKWWvEHnDk9Se5VfbEdZ8806h8YX9Pq2dQ5XfibXldEAAAfzHndQEAAOSuS+vfaNR05G9puoiI2M6cS8njgu5F9t+mv/H5pku6peJTw5+r4Z3X5QCA+yCAAYDbMhWv16W7V4ae5WHn7+v+u/aIXVeWUg1i6hbLOhVCedcqahLJ+qx7hn5uwegJe9J00fJV7vLKMw1LFShbzpTXRd17nMfWTZ0wKcnp0aLGEAIYAOQiAhgAuC1zVN8Jk/tmezh9XszctUfsIp41+0+cEu3h+snOiJjYyZHJuhYaVeCemq7uOLb/UKouYi7dZ/ykwVXZzwEA7irsmAAArmj5q7bpVjWvq/g3HA6HiIjyzxeg8roWAACyuKfOagIA7joZyecuXLbdsxMWRfSUE8fP5WL990BDbCnJl9PsuVtibrcRANwWAQwA4Ip9+5sPWrKuguj8fWx9D6WUV6vpF5znt3/Rq3bx4MCQQD8Pq09wkXJ1Ow3+7y9//nUQnnZ0xagXoqs9UCjQx8PLv0BEjdYvjttwyn7d97Od3jL9P31a1ShbLNTf2ze0RIXqjdr1i52364IzpxU7E8bU9VDKUuWDPXYRsW0dVMaslDIVfWGtTUTEcSC2hlUpzTdmXrqIXN4X9067aiWDvQOihu7ItEyi/cy2b4b2bV2zXLH8/l6eviFhEVUee+qNcauOpLp6zzvXkBu4lV5lrlD089vGPVM/In9AgK+X1ezhF1Li4cZPvfvNT+cyPdH248ulzEp5NJuU5BSR9MXdg5RSylrr44POm7bRtuW1MhallCmky/xkl7U7j4yp56kppXnV//Rojr9bAHAnOgDg/pI2t6OPEhHl13l+2nV/yrbtjXJmEbFUH7Hf/veDjoRP61lFxLPFJ/MGRHpnn+GnfCMHrDprO7Gwf6WAbKf4lKVY+xlH7dnfK3XvtJ4P5dNcTBhU5tDaryw4mpGTz+U4+skj1uwvoRV5fk2Gruu6ff+I6hYR5dNxbmry9hENQ/8qUCvYe2X6lZdIPzS7b+VAk6uZi8qrZPSorRecWd7zzjTkBm61V/9U2HLq/sXPlXNRoihriXZTDvz9vIwNL5V0sWiJpWbsAcfN25ixeWBps4hood0WJLv6kg58XMuqRJR34/HHHbf0yQHATXANGADglmWsf6/70guploLVWrdvXuehoqbErXO/nLo2IU2/9MuYp1r+lO/nH/ZmBD3cukPLepFhzuM7l8+Y/v2RVN32+5yBQ7q2nNzCP9Nr2Q982a5B3yWJDl2UV9FqzZo9UqGIrz3p0LaVi9fsO28/s3FUu4ZJM9dPblP4JpM2tMKdp2yvf8m297N2Xb467DBXeHHO1z1KaMoaEn7tzs6ZtOSlV99ccz5fhRZPtqobWapopQpmEXGemtvr0S4zEmy6KFNAeN3mTatHhJqTE35es2TVL6fTU48seLVJK8e6la8+lH3dktxsyA3cRq8cCdN69Vy3N9UUWql1l3YNKhQ0nTvy89rZ3yzfn+zMODqnf5/69VY+V1ITMVcauGRn94yMje81eWH+ed1a9/3vP23pL8qncJYFM1220VKlTXTJUbEHHGeXx6273Kq5T5Yq9s+Zvc2mi/J7tNMTN/tCAcBN5XUCBAAYLBdGwEREC6g1eF3S1TEMx8nvOhf5e+REeZbvs/C47Z+Nzj+W9Ao3iYhoYX1Xp2d+m70jH/FTIqIF1Xp9SULmehxnt45tU8KiREQLaTPjZJbBp+sWvuOtB80iYqk2fN81g0t/D92YCxTOb8nf8MONZzOPwDgTZ7W/styjFtJgyNpTtkybLv76ZUy4VYmI8q4xfHemTbnfkBt9sn/Tq0wVipav5purT2duyqWdw+sGaCKirI+MPpK5H+nLng7RRMSjxdRz11Rx4zbqesbmgREmEdEK9lx6OcsnsO96v5JFRFS+J2eezeH3CQDuhrNPAIBbp/wafDDjvbrBV/ciWqHWL3aJMIuIKEv5l6eMbhl2ddxJhT72aq/KFhFxnj15Kv3q6ySvGjl6U7IupqJdJ88f9nixzGNLWlDVF6Z/93qkhxLn2UWxE3f9q+ulstHtpxP1VqNnDKoVlGkf6Ng3ddSCP5wiphI9v57zdv2CmQbNlH/FXlPmDI7yUqKnbBv3+Q8ubuycWw25gdvtlRb42IiZ7z+aP/P8Qp9KL77bOcwkojuOJRx3ZH/Sdbluo4hYqrSJLmUScf6xLG7DtdfN2Xd/9+0um4gW3LxTsyCWqARwnyKAAQBumfKs17VjiSxXCpmKhxc3iYiYH+78VGXPrBsjSlmUiOgO+9VwkLJ2ZtxJhyhr1Atvtgh1cUTuXaVfv4ZeSnTb3hWrEnJpzQZT4bZ9nih4zbs5Di2M+yldF+VZs/+gx1xkA4/IF16LDtJEHCcWzY/PyLo5txpyA7fbK61Qu5c6F8+227dGlLsyFJfDMjJ9guxtFBERS5W2VxLY6aVxP2ZOYPZfvp2z1y6i5W/VqUnArb0ZALgPAhgA4JapfEXC/LIdepvNV8Z7rKUiimdbxkGZzdkes+/6ccsFp4ipRL16pVws/CAiKqhS5ZImEbEf3Hsgd4bAlLVSrSpZ4tCl7Vt220XEXOHxpiVc7hpVvoaP1/ZUIo7T27cdzTpWlEsNuYHb7ZXyiKpb3dvFk8xml4uO3JSrNl7xzxhY4pK4TWn/PGzbMXvOfruIKeyJTg18XD0RAO4LBDAAwK3T1A32HyaLJWeH9PYTx045RcS+f0QNi3LNUnnob3YRcSYnnc3ZVL2bUQGFC/pcW6DzzMlEmy6iPCLKuloCUERE+ZUuE6aJiDPxRGL28aVcacgN3G6vlH+B/F63W8Q1L5i9jX+zRF1JYI5TS+Zv+buQjPjZcw/ZRUzFn+xUJ1crAYB7CwEMAJBH9MsX/8z5HYv19LT0XLnRr/LyzroYu/NS8iWniCgfX5/r7hiVX4CfJiLOPy8mG34Dq9vvldl0KwNuN+eijf/4J4GdWBwXfyWBpW2aPS/BIWKOaB9TPfsykgBw/2AZegBAHlHefr4mJaJbqr6xZGKH/DceJdL8iubLnXUbXN2ty89HiYiecunydbOVfvlSii4imo+vt+GnL/OqVzcq6QbbLFFtokuO/vig49ji+dti69axpv44e/5xh4j5wQ4xlSx3ujQAuJsRwAAAecVcsHABTY449DRL/gqRkXm3SzKFFCpgUWLT0w7uO+qQsi7Hii4f3H/cISJa/kIFjJ8/ctf0KmcsUW1alxz98UFHwqL5Oz6q89C62QtOOkRZKsV0LH+31w4AdxZTEAEAecXyUM0oHyXiOLBu/QnXI0/62R8+ebl/v379X5v2q+3OVeJXpUZ5s4jYdy9fecx1JRfXLv0xRRfRQqpWC8/d2Xw5cff0KmcsUW2iS5pEHEcXxe04v2bWotNOUdbqMe1LG987ALirEMAAAHnGr2HbpkGa6Gk/jnxnwWkXlzilbhvV/7UxYz/7fNJPKUF38MjdFNEyuqJViZ628dMRqy9kryRj17iP5p1xipgKt2hdMy+uYbprepVDlqi20SVNIvbDC78eMWPJGacozzqdnnS9xiQA3Ef4fxAAkGdUcPSAZx+0KnEkzOjR6uW4Q5lvG+W8+MsXnZ8csdumi1aoXb+YsDu5yzI92HNAixBNdPvhiV07fLTxTKaF5vVLe6b0bDskPkUX5R31fP9GvnewkOvKq16lp//LtU/+SWD7vxw576xTlE+DTk8U4bgDwH2PidgAgDzkWX3w5LfWNHwvPvni1jFtK34X1bRF/YeK+duTDv+8esGK3efsuihLqW6ff9TyDq8qoQrFfDp28dYus4/bT698s37Z6Y2im1V/IFhL/v3n7xcs3XEqXRfRAusN/WpAhbzadRrbq79uYpaxefxbn3g1KWzyKdu8eWTArbywJaptdMlPRh502G12ERXQuFOrAnd8aRAAuOsRwAAAecq76tvLlnt0iXlv2e9pqSe3xU3cFnd1ozIFV+07Ydao1gYcuWthHaaudfg9+dykXy/az+1ZPmXP8kxblXf4E8NmT+lXwXrHC7k+A3tlqVCzqv/ERRf0Sz9NHtBtslhqxu55/NYCmFiqtLmSwEREC2rWuXkI+QsAmIIIAMhrKrDW60v27Fo6dmDnhpElC+bzslh9AsPK1Yru/cF/4/dsHNu2pFHrlns80Gni9n2bpg55tlX1MkVCfD2s3oGFSlVq0m3QF6v27J7bv4p/XicIw3qlCnaZ8N377asVz+dhNnv4hRYrGnLrV75Z/1qJQ0QLbdn5sXy5UxoA3NuUrufKbS0BAACulbHltYqPxO63m4r0XrZ/fGOvvK4HAO4CjIABAIA7InX9tFmH7CKmYm061SV9AYCIEMAAAMCdcXH51LknHCLm8Had8mTpfgC4GxHAAABA7kvbNS42LskpylK+U+cqRl3GBwB3PVZBBAAAuca2JbbryF+tptPbV675X4ouWlCLV/tU5HADAP7G/4gAACDX6Bf2rZ43I8kpIiLKVKDpB8M6cPsvALiKKYgAACDXaIUqVHsgxNvTv3C5Bj1jl8XP61OG6YcAkAnL0AMAAACAQRgBAwAAAACDEMAAAAAAwCAEMAAAAAAwCAEMAAAAAAxCAAMAAAAAgxDAAAAAAMAgBDAAAAAAMAgBDAAAAAAMQgADAAAAAIMQwAAAAADAIAQwAAAAADAIAQwAAAAADEIAAwAAAACDEMAAAAAAwCAEMAAAAAAwCAEMAAAAAAxCAAMAAAAAgxDAAAAAAMAgBDAAAAAAMAgBDAAAAAAMQgADAAAAAIMQwAAAAADAIAQwAAAAADAIAQwAAAAADEIAAwAAAACDEMAAAAAAwCAEMAAAAAAwCAEMAAAAAAxCAAMAAAAAgxDAAAAAAMAgBDAAAAAAMAgBDAAAAAAMQgADAAAAAIMQwAAAAADAIAQwAAAAADAIAQwAAAAADEIAAwAAAACDEMAAAAAAwCAEMAAAAAAwCAEMAAAAAAxCAAMAAAAAgxDAAAAAAMAg/wday5JvxSF2awAAAABJRU5ErkJggg==" width="576" /></p>
+<p>Note that the correct usage of the <code>formula</code> argument in
+<code>survtab</code> specifies the time scale in the <code>Lexis</code>
+object over which survival is computed (here <code>"FUT"</code> for
+follow-up time). This is used to identify the appropriate time scale in
+the data. When only supplying the survival time scale as the
+right-hand-side of the formula, the column <code>lex.Xst</code> in the
+supplied <code>Lexis</code> object is assumed to be the (correctly
+formatted!) status variable. When using <code>Surv()</code> to be
+explicit, we effectively (and exceptionally) pass the starting times to
+the <code>time</code> argument in <code>Surv()</code>, and
+<code>time2</code> is ignored entirely. The function will fail if
+<code>time</code> does not match exactly with a time scale in data.</p>
+<p>When using <code>Surv()</code>, one must also pass the status
+variable, which can be something other than the <code>lex.Xst</code>
+variable created by <code>Lexis()</code>, though usually
+`<code>lex.Xst</code> is what you want to use (especially if the data
+has already been split using e.g. <code>splitLexis</code> or
+<code>splitMulti</code>, which is allowed). It is recommended to use a
+factor status variable to pass to <code>Surv()</code>, though a numeric
+variable will work in simple cases (0 = alive, 1 = dead; also
+<code>FALSE</code> = alive, <code>TRUE</code> = dead). Using
+<code>Surv()</code> also allows easy passing of transformations of
+<code>lex.Xst</code>, e.g. <code>Surv(FUT, lex.Xst %in% 1:2)</code>.</p>
+<p>The argument <code>breaks</code> must be a named list of breaks by
+which to split the <code>Lexis</code> data (see
+<code>?splitMulti</code>). It is mandatory to assign breaks at least to
+the survival time scale (<code>"FUT"</code> in our example) so that
+<code>survtab</code> knows what intervals to use to estimate the
+requested survival time function(s). The breaks also determine the
+window used: It is therefore easy to compute so called period estimates
+by defining the roof and floor along the calendar time scale, e.g. </p>
+<p><code>breaks = list(FUT = seq(0, 5, 1/12), CAL = c(2000, 2005))</code></p>
+<p>would cause <code>survtab</code> to compute period estimates for
+2000-2004 (breaks given here as fractional years, so 2005 is effectively
+2004.99999…).</p>
+<div id="relativenet-survival" class="section level2">
+<h2>Relative/net survival</h2>
+<p>Relative/net survival estimation requires knowledge of the expected
+hazard levels for the individuals in the data. In <code>survtab</code>
+this is accomplished by passing a long-format <code>data.frame</code> of
+population hazards via the <code>pophaz</code> argument. E.g. the
+<code>popmort</code> dataset included in <code>popEpi</code> (Finnish
+overall mortality rates for men and women).</p>
+<pre class="r"><code>data(popmort)
+pm <- data.frame(popmort)
+names(pm) <- c("sex", "CAL", "AGE", "haz")
+head(pm)</code></pre>
+<pre><code>## sex CAL AGE haz
+## 1 0 1951 0 0.036363176
+## 2 0 1951 1 0.003616547
+## 3 0 1951 2 0.002172384
+## 4 0 1951 3 0.001581249
+## 5 0 1951 4 0.001180690
+## 6 0 1951 5 0.001070595</code></pre>
+<p>The <code>data.frame</code> should contain a variable named
+<code>"haz"</code> indicating the population hazard at the level of one
+subject-year. Any other variables are considered to be variables, by
+which to merge population hazards to the (split) subject-level data
+within <code>survtab</code>. These merging variables may correspond to
+the time scales in the used <code>Lexis</code> object. This allows for
+e.g. merging in different population hazards for the same subject as
+they get older.</p>
+<p>The following causes <code>survtab</code> to estimate EdererII
+relative survival:</p>
+<pre class="r"><code>st.e2 <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex, data = x,
+ surv.type = "surv.rel", relsurv.method = "e2",
+ breaks = list(FUT = seq(0, 5, 1/12)),
+ pophaz = pm)</code></pre>
+<pre class="r"><code>plot(st.e2, y = "r.e2", col = c("blue", "red"))</code></pre>
+<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABIAAAASACAIAAAAIyqENAAAACXBIWXMAAB2HAAAdhwGP5fFlAAAgAElEQVR4nOzdeZiN5ePH8c9zZl/tBmOnZN8yyFKyhUJ2ZYlICJVI/ago9ZUiKpVdxk52IWXJnkaKbAlZxja2GWY/5/fHGcuMGevM8xy8X/9w7nM/9/nMXHVdPtdzn/sxHA6HAAAAAAAZz2Z1AAAAAAB4WFDAAAAAAMAkFDAAAAAAMAkFDAAAAABMQgEDAAAAAJNQwAAAAADAJBQwAAAAADAJBQwAAAAATEIBAwAAAACTUMAAAAAAwCQUMAAAAAAwCQUMAAAAAExCAQMAAAAAk1DAAAAAAMAkFDAAAAAAMAkFDAAAAABMQgEDAAAAAJNQwAAAAADAJBQwAAAAADAJBQwAAAAATEIBAwAAAACTUMAAAAAAwCQUMAAAAAAwCQUMAAAAAExCAQMAAAAAk1DAAAAAAMAkFDAAAAAAMAkFDAAAAABMQgEDAAAAAJNQwAAAAADAJBQwAAAAADAJBQwAAAAATEIBAwAAAACTUMAAAAAAwCQUMAAAAAAwCQUMAAAAAExCAQMAAAAAk1DAAAAAAMAkFDAAAAAAMAkFDAAAAABMQgEDAAAAAJNQwAAAAADAJBQwAAAAADAJBQwAAAAATEIBAwAAAACTUMAAAAAAwCQUMAAAAAAwCQUMAAAAAExCAQMAAAAAk1DAAAAAAMAkFDAAAAAAMAkFDAAAAABMQgEDAAAAAJNQwAAAAADAJBQwAAAAADAJBQwAAAAATEIBAwAAAACTUMAAAAAAwCQUMAAAAAAwCQUMAAAAAExCAQMAAAAAk1DAAAAAAMAkFDAAAAAAMAkFDAAAAABMQgEDAAAAAJNQwAAAAADAJBQwAAAAADAJBQwAAAAATEIBAwAAAACTUMAAAAAAwCQUMAAAAAAwCQUMAAAAAExCAQMAAAAAk1DAAAAAAMAkFDAAAAAAMAkFDAAAAABMQgEDAAAAAJNQwAAAAADAJBQwAAAAADAJBQwAAAAATEIBAwAAAACTUMAAAAAAwCQUMAAAAAAwCQUMAAAAAExCAQMAAAAAk1DAAAAAAMAkFDAAAAAAMAkFDAAAAABMQgEDAAAAAJNQwAAAAADAJBQwAAAAADAJBQwAAAAATEIBAwAAAACTUMAAAAAAwCQUMAAAAAAwCQUMAAAAAExCAQMAAAAAk1DAAAAAAMAkFDAAAAAAMAkFDAAAAABMQgEDAAAAAJNQwAAAAADAJBQwAAAAADAJBQwAAAAATEIBAwAAAACTUMAAAAAAwCQUMAAAAAAwCQUMAAAAAExCAQMAAAAAk1DAAAAAAMAkFDAAAAAAMAkFDAAAAABMQgEDAAAAAJNQwAAAAADAJBQwAAAAADAJBQwAAAAATEIBAwAAAACTUMAAAAAAwCQUMAAAAAAwCQUMAAAAAExCAQMAAAAAk1DAAAAAAMAkFDAAAAAAMAkFDAAAAABMQgEDAAAAAJNQwAAAAADAJBQwAAAAADAJBQwAAAAATEIBAwAAAACTUMAAAAAAwCQUMAAAAAAwCQUMAAAAAExCAQMAAAAAk1DAAAAAAMAkFDAAAAAAMAkFDAAAAABMQgEDAAAAAJNQwAAAAADAJBQwAAAAADAJBQwAAAAATEIBAwAAAACTUMAAAAAAwCQUMAAAAAAwCQUMAAAAAExCAQMAAAAAk1DAAAAAAMAkFDAAAAAAMAkFDAAAAABMQgEDAAAAAJNQwAAAAADAJBQwAAAAADAJBQwAAAAATEIBAwAAAACTUMAAAAAAwCQUMAAAAAAwibvVAZD+/vvvv++++y4xMdHqIAAAAMDN+Pn59e3b19fX1+og5qGAPYC+/vrrTz/91OoUAAAAwK0VK1asVatWVqcwDwXsARQfHy/p2WefrV69utVZAAAAgNTNmjVr+/btcXFxVgcxFQXsgfX000+/8cYbVqcAAAAAUrdz587t27dbncJsHMIBAAAAACahgAEAAACASShgAAAAAGASChgAAAAAmIQCBgAAAAAmoYABAAAAgEk4hv4WEqLOnDwdce7i5dh4u83LLyAgIFP2oBz+/N4AAAAA3DGKRCqij21ePGvekp9+3bJ957+nLiU4kr1rGJ6BwUUeK12pVoMmTZs+E5LP17AoJwAAAID7CwUsGXvElrHvvjF48uYTcY605jgccReO7t5ydPeWH78f1jdHxRf+b+Sw16oHuZmZEwAAAMD9iAJ2TdyB6V0adA7dH3ulexluvlnz5MufL3e2AF8fHy83e1xM9OXIsyePHfnv2OmoeIfkiD+9bcobT69e8+Wy6d1K+lgaHwAAAICro4BdEb11SHNn+zK88lRp/UrXF5vUqVo6X0Cqd7bs0Sf3/LZ2+dwpY6cs33sx/r+FvZv1L7p1dO1M7EYEAAAAkCZOQXSy/zfp3ZF/xjoMt+DGX2zYtWHK+53qlUujfUmy+QSVqNnqzdFLd+yY36u8n+GI2z/u/77bl2hqZgAAAAD3GQqYJMl+ZMGs9dEOueV7ecLU3hUz3/aNLK+CjUfO+rC6j+GIDZu/+CANDAAAAEDaKGCSpIS//9gV75AtZ8OWtQLv8Fq3Is1bhnhIifv/5hYYAAAAgJuggEmSHLGxcQ7J8A/wv/NvcdkCMwfaJEdcbNpHJwIAAAAABczJLW+BvG6S/ejvYeH2O704esdvO+MlW1DuIH6dAAAAANJGY5AkuZd5tkEBNzmi1w4bMOfInWwkdERuHf7OlEOJsmWr9lQZjwxLCAAAAOD+RwFz8qzcrVeNQEOJ/83sULV+/6lbw2NveU3i+T1LP2v3RN3Bmy46DM+SXXvW9TMhKQAAAID7Fs8BS+L2aI9vh6+q1WNpeNyxn4d3qPLF60VDqlevXL544QJ5c2fP5Oft7enuiI+JiY6KOHH0yMF9O37buH7zzhOX7Q5JtszV3pvwTiUvq38IAAAAAC6NAnaVR7FXZv/s3attn0l/nrc74s/u37Bo/4ZFt7zMFlCi7bCpX79agdtfAAAAAG6OLYjX8yneYfy2vZumvNeuZpFM7jc/D9FwDyxUre27E3/dsz20e4VMd354IgAAAICHDXfAUnLPGdJ+8NT2g+PPH/xzW9hfew8cPnYy4lxUdFyCPHz8/P39M+XIX7RYscdKlS1VMDOHbgAAAAC4fRSwtHhkLlSxTqGKdazOAQAAAOCBwRZEAAAAADAJBQwAAAAATMIWxHsWcy787GW7QzJ8suXJ6m11HAAAAAAuiztg9yp2Ra9iefPmzZs3b5FXl9z66c134L333nNzczPu3MiRIyVt3LgxPdPc4F+v4jKMTf3nZ+inAAAAAA8SCpjrio6Ottvtd315eHh4Ooa5Uc74Y5ICvxyaoZ8CAAAAPEgoYK5r+PDhjrtSoUIFSdmzZ8/QeCcDH5GUP2Zfhn4KAAAA8CDhO2D3yrPm4F8290p0SLZsj3hancZEXq2aaFyYv6I2/GqvVoMmDwAAANwa/26+V0aWIo+HVK5cuXLlSkWzGlanMVHwwJckGXIs6ver1VkAAACA+wMFDHfJyJ/fLpukstvGOxxWpwEAAADuBxQw3L1o78ySaiau2bLF6igAAADA/YAChrsXX6KcpDw6PvabRKuzAAAAAPcBChjunn+LZyTZZD/8499WZwEAAADuAxQw3D33Di/YDTdJWXJynCYAAABwaxQw3IPg4ITa9SV57d8VHW11GAAAAMDlUcBwTzyrh0gqH7flV86iBwAAAG6FnWOSpMTL5yIi4+7xLHXDO3POTF7pE+j+UbmypBBtXbhC9epZHQYAAABwbRQwSbIfHNOoRL9N8fe2infLOednt3jYGlhIiAzjcce2135M0Of85wQAAADcDFsQJUleWXNk9jCsTnFfyprVUbiIry7bdu86fNjqMAAAAIBr45aFJNnydV54rPFfy78f9dEnU347k+CQZPgVrlL90Ux30Mo8y+V6KPusUaG8DvzTU1/Xrj12zhyVL291IAAAAMBVUcCu8Mhe+rk3x9drWK5xtT4rz9rllq/VqCWfVOIXdEv2sD9sUleN++ZA988/Lx8aanUgAAAAwFU9lLdsbsLrsW4fvVKM1nUnbFkyOf9SR6sWLRLn0QMAAABpoYCl5FGuQd1gN6tT3FeqVnX+WUerIiO1dKm1aQAAAADXRQG7gXupCqU5kONOXPnWV3Wtd1fCrFnWpgEAAABcF5vtbmAElqvXpFbUmbyFA6lht6VMGeefvrpcQWFLloRcvKjAQGszAQAAAK6IO2A3ci/ba+bPq1dN6VqMnYi3pVQp2ZJ+VU9pTUyMFi+2NhAAAADgoihguGdeXipU0PnXp7RGErsQAQAAgFRRwJAeKlVy/llT6zyN+BUrFB9vbSAAAADAFVHAkB6ufA3MWzFB3hd69pSHh7WBAAAAAFdEAUN66NRJISGS5vq/dCQ6e+vWVucBAAAAXBIFDOkhVy4NGiSpQuZ/JS1fbnUeAAAAwCVRwJBOKleWVChim5sSV6ywOgwAAADgkihgSCc5cqhQIffoyLJee7ZuVUSE1XkAAAAA10MBQ/oJCZH0QpEtiYlatcrqMAAAAIDroYAh/YSESKqbaaukhQvVqZM2bLA6EgAAAOBK3K0OgAeIwyGpwG9zftWu5st/OXXOY+9ebdxodSoAAADAZXAHDOln8GBJgQnnqmv9I+e2+vpq82YdOmR1KgAAAMBlUMCQfvLkkWTIIekprXnkETkcmj3b6lQAAACAy6CAIf2ULXv1r09qbWKiJM2aZVkcAAAAwNVQwJB+Spd2/umQUU0bDu2NzZxZYWHat8/aWAAAAICroIAh/Vy5AxYvD19dLhf/W4UKEjfBAAAAgCsoYEg/ZcpIkmF4Kk7SU1rj4yNJ06dbmgoAAABwGRQwpJ/8+ZUli/MweklPac3OncqeXXv2aO9ea5MBAAAALoEChvRjGMm+BmZsPHLY/uqrqlpVOXNamwwAAABwCRQwpKuKFZ1/HrUV2JC/rV22bNm0caOyZLE2FgAAAOASKGBIVx98oMmTJeULOHdq6DhJK1ZYnAgAAABwHRQwpKvAQHXsqHz5dOHCM0X222xas0aXL1udCgAAAHANFDBkgJAQSVn2bXn8ccXEaO1aq/MAAAAAroEChgxQubIkbd36zDMSuxABAACAKyhgyAAhIZK0ZUv9+pK0fLkkTZmigQOvnlEPAAAAPIwoYMgAjz8ud3ft2FH08M/1Ajfv3at//9WIERo6VKtWWZ0NAAAAsA4FDOktIUG9eytXLsXHB7zw3ILL9bwVs2KFWreWpK+/tjoeAAAAYB0KGNLbqVOaOFFnz0o6q6w+CZGVtWXFCnXtKm9vLV6sgwetTggAAABYhAKG9JY7twIDnWfPRypAUi2tXrVKgYFq2VJ2u8aOtTohAAAAYBEKGNKbYah0aedfM+u8pEb+ay9d0oYN6tlTksaPV0yMhfkAAAAAy1DAkAHKlJHk8PQK0slEuZWL3uSj6OnTVbmyKlXSmTOaNcvqhAAAAIAVKGDIAGXKSDKyZjHkOKSC7omxVY3Ns2YpMlI9ekjS6NEWBwQAAAAsQQFDBihTRpLsdkmnlFNSu3xro6I0d67atFH27AoL0/791kYEAAAALEABQwYoXVqGoXPnJHkqTlIDnzWSJk6Ut7e+/Vbduyt/fmsjAgAAABZwtzoAHkQBASpUSP/+K6mw/r1s+AXFHQkM1Pr12rNHzZureXOrEwIAAABW4A4YMkadOvL0VFBQFp3b8c5MY8XyVq0kafJki3MBAAAAFqKAIWN8842OH1fVqpKqlryoRx7p1EmSJk9WfLzF0QAAAACrUMCQMWw2ZcumkBBJ2rJF0hNPqEQJnTyp5cstjgYAAABYhQKGjFS5siRt3ep89dJLkjRxomVxAAAAAGtRwJCRKlWSzabt2xUbK6lDB3l4aMkShYdL0nffqXRpHTxocUYAAADANBQwZKSAAD32mGJj9eefkoKC1KiREhIUGipJu3Zp506NHGlxRgAAAMA0FDBksMqVJS15b+u21sPl5/d6rR2SJkyQw6Fu3WQYmjxZFy9aHRIAAAAwBQUMGebff5Utm/NxzOdXbFnzw1ldvlxj7/g8ebR3rzZtUsmSqlFDkZGaNs3qqAAAAIApKGDIMOHhOntWe/dKetJn68yEFpJsP8zt2C5R0qRJktSzpyR99ZUcDguDAgAAACahgCHDlC4tw9C//8rXN1/0vn9V+LhvUZ040b3MBsPQzJmKjFSzZgoO1t9/a+1aq9MCAAAAGY8ChgwTGKgCBRQbq8cek8NR3eu30OjmkvJtnlOtmqKiNHeu3N3Vtaskff21xWEBAAAAE1DAkJHKlpWkvHklvZz/p9mOlpI0d+7LLyXqygPBunWTp6cWLNDRo9blBAAAAExBAUNGKlNGkjJlklQ7csHvqnjEq6hOnGiTb0NgoNav1549ypVLzZsrIUHr1lkcFgAAAMhoFDBkJGcBi4hQrlz+J/6pHPD3tNgWkrwXz2nVSpImT5akUaP07bdq1sy6nAAAAIApKGDISM4C9tdfatRI0tvFFsxWK0lau7ZTJ0maPFnx8cqRQ926ydvbwqAAAACAGShgyEhFi8rPT0eOqG5dSc/ELnSUK7+rz1h9/vkTT6hECZ08qeXLrQ4JAAAAmIUChoxks6lHD9Wvr2efVUCAz87fti8+WvKLrs4+9tJL0pWjOAAAAICHAQUMGezTT7V8ufz8VLeuHA4tXnz1nQ4d5OGhJUsUHm5hPgAAAMA8FDCYpUkTSVq48OpAUJAaNVJCgkJDr806ftz0YAAAAIBZKGAwy7PPyt1dv/yi8+evjnXuLEkTJsjhkKTQUAUHa8wYixICAAAAGYwCBrNkzaoaNRQff/2xGw0aKE8e7d2rTZskKUsWSRo9OqmPAQAAAA8YChhMdGUX4oYNCn1hmaN8Bfd9f7dvL0mTJknSM88oXz7t3av1662MCQAAAGQQChhMsWWLYmLUtKkMQz/+OHJY3IEZW40/tuurrzp3lmFo5kxFRsrNTR07StK4cVYHBgAAADIABQwZb/lyVamit99WgQIqU0YXLnTMv3qBmkrS3LmPFk6oVk1RUZo7V5K6dpWbm+bO1blz1oYGAAAA0h8FDBkvVy5JmjNHDoeaNpVU59LCXR7l9hqP6fRp/fqr8ygO5wPB8udX7dqKjta0aRYmBgAAADIEBQwZr2xZBQcrPFw7dji/BuazcmG9uo65juaSNGdOq1YKDNT69dqzR5K6dpWksWMtTAwAAABkCAoYMp5hqEEDSVq2TOXLq1AhHT/+WuXf5qilJM2d6+eV0KqVJE2eLEmNGytnTv31l7ZssSwyAAAAkBEoYDBFw4aStGyZJD33nKTaUQsP+Jfdo8d0+rTWru3USZImT1Z8vDw9k26CHThgWV4AAAAgI1DAYIq6deXlpc2bFRHh3IXosWxh48aaqxaSNGfOE0+oRAmdPJn0kLD339emTWrb1tLMAAAAQHqjgMEU/v6qXl2JiVq5Uk8+qWzZtGvXK0/tS9qFuGyZpJdekq4cxeHhoSpVZBjWBQYAAAAyAAUMZrm6C9HNzfn36mcXZapRZmHpgerTR1KHDvLw0JIlCg+3NigAAACQUShgMEvjxrLZ9Pffkpy7EN2WLFy3Tk3+/FB9+0oKClKjRkpI4AB6AAAAPLAoYDBL0aJavlxTp0pS/fry9tbGjTpx4vopzqM4pkyxIh4AAACQ8ShgMFHduipRQpL8/VWnjux2LV16/fsNGyooSDt3avv2pJGYGG3eLIfD9KgAAABABqCAwSJNmkjSwoXXj7m7q3VrSfr++6SRwYNVtapmzDA5HAAAAJAhKGCwSOPGcnPTypWKjLx+uEMHSZo+XfHxkvToo5I0Zoz5+QAAAID0RwGDRXLmVJUqio3VTz9duqQp7+691PIlHTxYsaJKl9apU0kPBGvVSoGB2rBBu3ZZHRgAAAC4ZxQwWOfKLsTFi7Xzk8V+c6fok08ktWsnXdmF6OeX9DjmCRMsiwkAAACkFwoYTNezp+rWVXy8nn9ekpYsqflEwkrbM5IcP8xXQkK7dnJz06JFioiQpK5dJen77xUTY2FoAAAAIB1QwGC6jRu1apXWrVPRoipRQmfP5jnwa7YnS/2tEkbEGa1enSePatdWXJzmzJGkihVVoYIiIrRggdXJAQAAgHtDAYPp6teXpB9/lK7tQnzxRc1RS0nO1uU8iuPqWYhdukjSuHFmJwUAAADSFwUMpmvYUFLSE8CcBWzBgpYtHIu8Wkqyz/1BCQnNmilTJm3apD17JOnFF+Xnp9WrdeCAZakBAACAe0cBg+mqVVPWrNqzR//8o5AQ5c2rw4cDD+4o2Kjk3yphOxehX37x8VHz5pI0bZokBQaqUycZhi5csDY6AAAAcE8oYDCdm5vq1pWkH3+UYejZZyVp4cIXXtBstZLkfO6ycxfi1Kmy2yVp1CgdP64KFSzKDAAAAKQHChis4NyFuGyZdO1rYI0aaXHgiw4Z9jnzFB9fs6YKF9bhw1q7VpJsNgUFWRcYAAAASA8UMFihQQPZbFq9WlFRevppBQZq+3bv8IMNexed7NUtpvKTcnc3DL34onTdURwAAADA/Y4CBivkyKFKlRQbq02b5OmpBg0kafHiDz9Up5hvfH9eLMOQ1KGDDENz5igqyuK8AAAAQLqggMEigweraVOVLStd24WYYkrRoqpaVZcu8QQwAAAAPCAoYLBI/fqaP185c0pSw4by9NTatYqISDErxQPBJB05ovnzTUsJAAAApCcKGFxApkx66iklJiYdy3GdNm3k46Off9aRI0kjr7+uZs2SHuMMAAAA3F8oYHANaexCzJRJzz0nuz3pgWCSKleWpLFjzQwHAAAApA8KGFxDkyYyDC1frpgYSb+ssof3/EjLl+uGXYgdO8rDQ0uW6Phxy8ICAAAAd4cCBtcQHKzHH9elS1q16tIlda5/LPeYQerYUfHx9esrVy7t3q1t2yQpKEiNGyshQVOmWJ0ZAAAAuEMUMFjq/Hl9+KGOHpWu7UL085N/8Xx/qbROndKKFe7uattWuu4mWNeukjRunOx2S0IDAAAAd4kCBkvNn6/33tOgQdKVArZokRIT27RRqNpJSa3LuQtx+nTFxkpS3boqWFAHD+qXXyyKDQAAANwVChgsFRIiScuWyW5XqVJ69FGdOqXNm9u21TSjXaLctHixzp0rV05lyyoiIunwQ5tNL78sScOGWZkdAAAAuFMUMFiqZEkVLKhTp/T775L03HOSNG9ekSLK83ien1VbMTGaPVtS+/bSdbsQe/RQ1qxatUpr1liSGwAAALgbFDBYrWFDSUlPAGvZUpJmznTuQpyq9pI0daqkdu3k7q6lS3XmjCRlzaoRI5Q/v7JksSg2AAAAcOcoYLDa9QWscmUVLarwcP36a5s2WujWLFIB2rBB+/YFBalePcXFadaspOs6dtThwypb1rLgAAAAwJ2igMFqTz8tX19t26aTJyWpVStJmjEjTx5VqO47Vy0kOXchpnggGAAAAHDfoYDBaj4+evJJ2e3Oxy6rXTtJmjNHcXHdummk3jiXp6RKl5bUpIkyZ9bWrdq509LAAAAAwN2igMEFXL8LsXhxlSqlc+e0alXbtvr5VOksx3Y6T6j39k76jtj06RZmBQAAAO4eBQwu4Pnn5e8vw0h66Xzu8owZknLkSDbx6i7ExMSUa1y6lMEhAQAAgHtGAYMLCA7Wf/8pNDTpZZs2MgzNn39jqapeXY8+qmPHtHp1svEhQ5QlS8pBAAAAwNVQwOAasmSRu3vS3wsXVkiILl1K2pSY3AsvSDccxREQoPh49emTyp0xAAAAwHVQwOCSrtuFmELHjjIM/fCDIiOvDfbsqaJF9ddfGj/erIQAAADAnaOAwSW1bi03Ny1bpvPnJYWHa/8Pf2nAAF26VLCgatTQpUv64Ydr0z099cknkjRokC5csCgzAAAAcCsUMLikXLn05JOKjdWCBZJattTqlmM0bJi+/VZpPBCsRQvVrKnTp/XxxxbkBQAAAG4HBQyuJDLSectLSrYLsWhR/WivL0mTJ0tq2VK+vlq9WgcPJrv6iy9ks+mLL/TPPyZmBgAAAG4bBQyupHJlFS+u6GhJat5cXl76+WedPNm2rZaq0Tm37Nq5Uzt2BAaqaVM5HClvgpUvr/btFRend96xJD0AAABwCxQwuBJfX504oTVrJClLFtWrp8REzZ1bu7ayBnlMS2wjSVOnSuraVZJGjdK5c8kWGDpUfn6aO1d//WVydAAAAODWKGBwJY0aSdKiRUkvr+xCdHdX8+b6Xh0kKTRUCQlPPaU6dXTunP73v2QLBAdr5EiFhChnTjNzAwAAALeFAgZX0qyZJM2fn/Q8ryZN5O+vjRt16FCbNvpNlfZ6lNLJk/rpJ0n/+58MQ6NH68iRZGt07aotWxQUZH56AAAA4BYoYHAlZcuqWDGdPKlff5UkX189+6wcDs2eXb26ChTQlPhrj2GuWFEtWigmRh9+aGlmAAAA4LZRwOBinDfB5s5NetmmjSTNmGEYatlSU9XeYdi0cKEuX5Y0dKg8PDRxonbvtiouAAAAcAcoYHAxLVpI0rx5SbsQGzRQ1qz64w/9/XeHDgp3y7u8cA9VriwPD0mPPKJOnZSYqPfeszQzAAAAcHsoYHAxFSqoaFGdOKGNGyXJ01NNm0rSrFmlS2vPHlXf/qVWr3YWMEkffCBfX82bp82bU1ksLk6nTpkWHQAAALgFChhcT6tWkhQWlvTSeRbitGmSihZVQECyublzq3dvORwaMCCVlV5+WcHB2ro1I9MCAAAAt40CBtfzzjv6/nt16ZL08umnlSePDhzQ77+nOv3tt5U1q9audR6OmEyhQkpI0BtvyOHIyMAAAADA7aGAwfX4+6t9e/n5Jb202dS8uSTNmJHq9MyZ1b+/JPXrJ7s92Vv9+ilXLm3cqFmzMjAvAAAAcJsoYLgfXHkic8qCdUWfPsqXTzt2XKTfTaQAACAASURBVDs90SkgQB99JEkDBig6OqNTAgAAALdAAcP9oEoVFSqk48e1fr0ku10HDkijR2vePOf73t4aNEiSBg5UfHyySzt1UsWKOnxYI0aYnRoAAABIgQKG+4FhqHVrSZo5U9LQoSpdNNrx+htq314REc4pnTureHHt368JE5JdarNp1CgZhv73Px0/bnZwAAAA4HoUMNwnnLsQ58xRfHyWLIqWT1jOZxQdrfHjne+7uWnIEEkaMkSXLiW7tFo1Pf+8oqI0cKDJoQEAAIBkKGBwYXXqqF69pBMMy5RRyZI6c0Y//9y6tdzd9UFEL0kaM0YJCc7pzZurShWFh2v06JQrffqpvLw0ZYqOHTPzBwAAAACSoYDBhe3dq59+unb6fJs2kjRjRo4cqlVLSxPqX8hVTP/9p8WLne879xlK+vTTqzsTkxQpotGj1aaNsmUzLz4AAACQAgUMLqxZM0nXTjZs21aGofnzFR394otyyPjG6CFJX3559Yonn1Tdujp/XsOGpVzslVc0bZq8vc0IDgAAAKSKAgYX1qKFJM2enfSySBE9/rgiI7Vs2QsvqGBBfRzeKd4nUKtX688/r140fLhsNn35pY4csSIzAAAAkDYKGFxYtWrKk0cHD2r79qSRKw8E8/DQgAGKVMBcn/aSNGbM1YvKllWLFoqJSTqTAwAAAHAdFDC4MJtNzz8vXbcLsU0bublp6VJduNCpkwoW1Idne8owFBqqxMSr1330kTw8NGmSdu+2IjYAAACQBgoYXJtzF+KcOUkvc+dWjRqKidHChZ6eGjJEu1X890bv6eWX5eZ29aJHHlHnzkpMTHo6841On9auXRkdHQAAAEiJAgbXVrOmcufW/v3asSNp5MouREnt2+vkSVVc/IFGjUpx3fvvy9dX8+Zp06ZUVm3VSuXKKSwsI5MDAAAAN6CAwbXZbGrSRJJ++SVppGVLeXpq1SqdOiUpZ87Ur8udW717S9KAAam8GxKihAS9+WYGBAYAAADSRgGDy/u//9Prr6t586SXWbKobl0lJGjevJtf9/bbypZN69Zp5cqUbw0cqFy5tHbttS+XAQAAACaggMHl5c2rkSOVP/+1ket2Id5E5szq31+S+veX3Z7srYAAffBB0lsxMekZFgAAALgJChjuQ02bys9P69fr8OGbT+zVS8HB2rHj2ikeV3XpojJldPCgvvgio2ICAAAAKVDAcB/y81OjRnI4ru9VkyZp6RNDHU8+paioq4M+Pnr/fUkaOFDx8cnWcHNLql4ff6zwcFNiAwAA4KFHAcP96cUXJWnCBDkczoHx4+W2ab2xbq0mTbp+YufOKlFC//yjsWNTrlGrlpo0UWSk3nvPjMgAAAAABQz3p4YNFRysPXu0bp1zoHt3jVcXSY7RX17/lS83N330kSQNHqzIyJTLDB8uT09NnKgLF8zJDQAAgIcaBQz3j7ffTjpVQ5K7u7p0kaTvvnMOtG2rPY81PaSCxj/7tWrV9dc9/7yqVdPp0xoxIuWSjzyi8eP19tsKDMzg8AAAAAAFDPeTSZM0fLj27k162aWL3N01b57zgWBubnp3kNtYvSLJPurLFJd+9pkMQ599phMnUq7avr0+/liGkdHpAQAAAAoY7iPPPivp2qO78uZVo0aKi9Pkyc6BNm20vnjXGHnbflyqffuuv7RKFT33nKKiNHSomYkBAACAZChguH84n8V8/bOTu3WTpO++c37py2ZTj/eyz1QbORyJY75LcfWwYXJ313ff6Z9/zAoMAAAAJEcBw/2jXj1lyaI//ri2C7F+fRUqpH//vfqlr1attKxob0mJ4ybq0qXrr37sMXXooPh4DRpkbmwAAADgCgrYTTjiLoYf2BW2Zf3aX1b9tOrnNes2/rZj98GTkfEOq5M9pDw89NxzkjR/ftKIzZbiKA6bTS0/Lr9B1Twvn9eWLSkW+PBD+fpq1ixt3pz6J+zapZUrMyI6AAAAIFHAUhNzZEPoJz2bhBTK4p85T9FSFavUeKp23Xp169R6slpIuRKFc2Xyy5y/7NNt3/hs1pbjMVaHfdjcuAvx5Zfl4aFFi3TsmHOgZUtFfjUl4sMxqlkzxdV58qhXLzkcGjAg9eVfeknPPKOlSzMgOQAAAEABSyH230UDG5V6rEb7d8cs+u3QhdRvdTniLx75c/XML/q1qfpIifpvhe64wB0x09Svr0yZ9PvvOnAgaSQoSE2bKiFBEydenfVMzyLZBnaXu/uNCwwYoGzZtHatVqxIZfkXXpDDoc6dnQcrAgAAAOmMAnaVI3Lb502qN/942YHLDsnwyBT8aKnSxQtm8046oNyWqWS95k0b1a1erkiQn7shSY7LB1d+3qF6ze5zD8ZZmv3h4eWVdBbi9XepnEdxjBunxMRbLpA5c9Ltr/79r39cc5I+fVS7tk6dUseOctCrAQAAkN4oYEkc55a/1WrAyvAEh+FXvNWwJX+fOnN0719//n3w1Ol/ln/WqpivYb94+EyRPlNX/Lr9nxMXIg5snDfytbqF/Qw5ov4c2+7Zt1dzH8wkffuqRg1VqXJt5Omn9eijOnJEP/54Owu89pry59eff2rGjJRv2WyaMkXZsmn58qtfKwMAAADSDQXMKXH/+CFTDiU4DJ+yby7ZMLN/o8cyJ21fs/kXrtd3xprQ9gVsUWGfd+i75KxDcgssVLXZ61+u3Pl7aOeSPoYjdveYPsPDuAtmivLltW6dQkKujRiGXnlF0m12Jm9vDR4sSQMHKjY25bvBwRo7VpL69tWePekRGAAAALiCAiZJsv+3dFFYrENuhbp8MeSpLEbK9225mgx9p7afkXh05qhZx65tXPMp9sK384bW9DcccbsmjV0TbWpoXOell+TtrWXLdOjQ9cMnTuiHb07euDOxQweVK6dDh/TNN6ks1qyZOnTQ5ct68UXFUasBAACQfihgkqSEvbv2JkhuuRs8/4RvqjNseeo1KO8hR8ymFWsvXv+GR7FO3Z8JNGQ/tW7NrgRT0uJG2bKpRQvZ7Zow4frhta2+btYj16ouM1NMt9n00UeSNHSoLlxIZb0vv1ShQgoL06efZlRkAAAAPIQoYJIkR2xMjEOyZQ/K4ZbGFFuOnNltkiP+xLFTyW+o+D9SLK+blHj8v2O3PgMCGcZ5FMf48YqPvzpWtGImScHTPr18OeX0Ro309NM6c0bDh6eyWGCgpk6Vl9fVw+0BAACAdEABkyTZsuXIbpMSww8dSWvHmf3UidN2SYaXt1fyLYqOixcuOiTDM+UbMFX16ipVSidOaNGiq2MVPml51iOoVPz2Je9suPGKTz6RYWjECB09msp61arp+HF9/XXGJQYAAMBDhwImSXIv8Xg5X0P208tCl51J9TRD+6Eli8LiJVtg4SI5k/3WItfOXno8UXIrUqxIWrfPkBFmztTo0clGbjiKw/D2ini+iyTvsaMvXUq5QEiImjVTdHTSdsQbZc0qG/+LAAAAIP3wr0tJkpGlXqv6WW2yn5zV55Vxu2/YrnZpx+juH/0a7ZAtc51G1Xyujjsu7vi2U5dxhxJleJVt0qgwBcxMAweqTx9t335tpEMH+flp1Srt23d17JGRPeJtXo1i5k0bcuDGNT7+WB4eGj9eu3ebkBgAAAAPOwqYk5Gj+aC+lfwMR+Kx+d2rhrQYOH7Z1t2Hjh49uGvTkrHvNqtUo+/K03YZXqVf69c4syTJEfHz0OYVilbqMe9wgsNwL9RhSLfi9C9TNWokKdmpG5kyqU0bORwaP/7aYJ48p+q1c1Oi5+jPLl5Mucajj+rll5WYqIEDMz4wAAAAHnoUsCs8yvSbMaZFfg9D9gu75g3t2qhyiUL58hUu9cRz3T6ZvzvSLtmy1vp46jsVPJ3z7WfDFi/+43S8Q4Z7ngafzR3RICvfADNXly6SFBqq60/YcB7FMWmSYmKujgV/0c8uW9uYSROHht+4zODBCgjQDz9o48abfdrFi1q5Ug4etw0AAIB7QAG7xr1Qh+kbFw1sUMj3hiZluGer0GXiukVvlvZONm7zL/z0q1+uCVvYp7y/aTmRpHRpVaqkCxe0YMG1wUqVVLGizpzRDz9cGyxW7GzNpl6KNcakcqRGzpzq00eSBgy42ae9/77q10/9yEQAAADgNlHAknEPfmbIst37Ns3+4u2XWzSqXf2JGnWebf3q+98u2fHPb+M6lvS7bqpbcOsJO46d+ufnb3pWC3K3LPFD7uWXJaV49teNR3FIyj7iXbubx5Olz6a6TP/+yplTv/6qJUvS/KiGDWUYGjQo2ZfOAAAAgDtiONhT9cCpWLFiWFhYkyZNFlx/a+iBdPGicudWdLT27VPRokmDUVEKDtbFi9q5UyVLXpt8+rSyZUvrWMNRo/T66ypeXH/+Kfc0CnWvXvrqKxUvrt9/l49P6nMAAABwm9q3bx8aGjp16tR27dpZncU83AHD/SwwUC1ayOHQ5MnXBv399eKLkjRuXLLJOXLc5FD57t1VpIh271ZoaJqfNny4SpfW7t3q3/8ecwMAAOAhRQHDfc55FMe0ackGX31VkqZMSXY+x015emrwYEl65x1FRKQ+x9tb06fL21tff62lS+82MAAAAB5iFLB7FnMu/PixY8eOHTt+NubWs5HeqldXhw5q2DDZYJkyqlpV589r9uzbX6ltWz35pE6cUO/eac4pVUqDB8vhUOfOOnnybjMDAADgYUUBu1exK3oVy5s3b968eYu8uiQ2PVceOHCgzWYz7lxYWJikiLTu4zxgDENTpujrG443dJ5Hn/wojquOH5fdnnLQZtOkSQoI0PTpmjcvzQ986y3VqqVTp/Taa3efGgAAAA8nCpjrio+P54iUu9eqlbJm1ebNCgtL8c6uj+Z/Hjzi9ddTuahQIX3yiSR1765Tp1Jf2GbTlCnKmlU7d6ZvYgAAADz4KGCua9iwYY67UqFCBUnZsmWz+iewlI+POnSQbjiKQ3pk6nufq+/eb345eDCV63r0UN26On066eFgqcqXT7t3a8OGdIwLAACAhwIF7F551hz8y+bNmzdv3rzu46c9rU6D63XrJsNQaKguXrx+2LNDG0l9E4Z9+GEqFxmGxo5VQIBmztTcuWmunTOnsmZN57wAAAB44FHA7pWRpcjjIZUrV65cuVLRrIbVaXC9xx5TzZqKitKMGcnGX3vNHpCpnlbunPL7nj2pXFewoP73P+mmGxEBAACAu0ABw4PCbtdbb6V8jJfzKI5vvkk2mCmTrVtXSX3tw1O9CSape3fVq6czZ9SrV4aEBQAAwMOJAoYHRUSERoxQ9+6Kiro22Ly5cubUjh3asiXZ5L59HV7eLTT395n7//wzlcWubkScPVtz5mRscAAAADw8KGC3kBB15tjBvTt3bP992+/b/9rzz6Fjp6MSrA6F1OTIoerVFRWlWbOuDXp6qlMn6YabYLlyGe1edFPi6/YRQ4akvl6BAvr0U0nq0eNmj/xKTFSrVho06F7jAwAA4GFAAUtF9LHNs0f069CgSrFc/j6BOfIWfqx0uQqPV3q8QpnijxTKGxTolzlfiSoNO77z5Q9bjlzmnHgX8vLLkjRhQrLBV16Rm5tmztSJE8nG+/WTzdZJkzb9EJ7qN8Ekdeum+vV15kzSTsZUxcZqyRINHapNm+4xPQAAAB58FLBk7BFbvu32ROHCT7Tu+9nU5Vv2nbyUcEPBcjjiLhzdveXH7//Xu3nVIgVDXhq1/mSiFWFxg1atlDmzNm3S339fGyxcWE2bKjY25cOaixVT06Zein01+1x//9TXMwxNmKDMmbVwoWbPTn2Or6/69pXDoTfeEI9tAwAAwM1RwK6JOzD9papP9hi76USc89/RhptvtnzFyj/xVJ36DZ9r+nzTxo2eqVurWsUSBXP6ezjPO3TEn9425Y2nQ1p8tyvayuhw8vFR69aSNHFisvE335SkMWN06VKy8c8+U69eg7Y+lzdvmksGB2vYMEnq2TPNjYhvv63cubVlS7LNjwAAAMCNKGBXRG8d0rxz6P5YhwyvPFU7fDBxxfbD5y6e+W9P2IbVPy1fumj+D/MXLvlx5S/rt+06ePLChfBda2d93qthsUCbHPH/LezdrP/PF7j94QKcuxCnTFFs7LXBJ55QlSo6e1bff59scqFCGj1aBQvefMmuXfXMMzpzRq+8kvoEf385T1Ps10+XL999dgAAADzwKGBO9v8mvTvyz1iH4Rbc+IsNuzZMeb9TvXL5AtzSmG7zCSpRs9Wbo5fu2DG/V3k/wxG3f9z/fbePnYjWq1RJZcvqzBktXZps/I03JGnkSNntd7qkYWj8eGXOrEWLNHNm6nM6dVLFijp6VKNG3UVoAAAAPCwoYJIk+5EFs9ZHO+SW7+UJU3tXzHzbD1T2Kth45KwPq/sYjtiw+YsP0sBcQefOklJWpebNVbiw9u9PWcxuT3Cwhg+XpNdeS3mWh5PNljThk08UHn4XnwAAAICHAgVMkpTw9x+74h2y5WzYslbgHV7rVqR5yxAPKXH/39wCcwmdOqlFCz3/fLJBNze99pokjRhxd6t26aIGDRQRkeaJiLVqqXFjRUbqo4/u7hMAAADw4KOASZIcsbFxDsnwD/C/7ZtfV9kCMwfaJEdcbBzfAnMFAQGaM0dt26Yc79JFmTJpzRr99tuNFzmiY56qkdiixc0WHj9eWbJo0SJNn576hOHD5eub+i0yAAAAQBSwJG55C+R1k+xHfw8Lv+OvCEXv+G1nvGQLyh3Er9OVBQSoSxdJqXxPKyrKyJ/v46115s272RbFPHn02WeS1LOnjh1LZcKjj+rIkTS/JwYAAADQGCRJ7mWebVDATY7otcMGzDlyJxsJHZFbh78z5VCibNmqPVXGI8MSIl28/ro8PDR7to4cSTbu6Sk3tyfi1jytX955R/HxaS7QubMaNtT58+rePfUJWbPKg/8MAAAAkAYKmJNn5W69agQaSvxvZoeq9ftP3Roee8trEs/vWfpZuyfqDt500WF4luzas66fCUlxL/LmVfPmio9P+VBmT0/17i1psO+wv/5Kus2VlnHjlCWLFi9WaGhGRgUAAMCDyHA4+N6SU/zesc1q9VganuiQZHhkLRpSvXrl8sULF8ibO3smP29vT3dHfExMdFTEiaNHDu7b8dvG9Zt3nrhsd0iyZa4+ZOXy/6vkIgWsYsWKYWFhTZo0WbBggdVZXM+2bapUSZkz68gR+ftfG79wQQUK6MKFSsa2vzwr/vGHHnsszTUmT1anTsqeXQcOKPBOT20BAACAJKl9+/ahoaFTp05t166d1VnM4251ANfhUeyV2T9792rbZ9Kf5+2O+LP7Nyzav2HRLS+zBZRoO2zq169WcJH2hWuOH1f37urdW7VrXxt8/HHVqKFff9XEic67XkkyZVLXrvrss+/yfljxyIJXX9Xq1TLSOJLlpZc0ebLWrtXw4UmPYAYAAABuB1sQr+dTvMP4bXs3TXmvXc0imdxvfh6i4R5YqFrbdyf+umd7aPcKme788ERkuD/+0KJF6tcv5fibb0rSF18oMfnX/V5/XQEBFY4sfD1gwtq1mjz5Zmt/+qkMQ59/rqNHU59w5oxCQvT553cbHgAAAA8i7oCl5J4zpP3gqe0Hx58/+Oe2sL/2Hjh87GTEuajouAR5+Pj5+/tnypG/aLFij5UqW6pgZk5bcGl16ihHDm3fru3bVb78tfHGjVW0qP75RwsXqlmza+PBwRo3Tm3afBbz2i+q1K9fmXbt0jxRIyREzZpp3jwNHapvvkllwsWL+v137dihpk1VpEi6/lwAAAC4b1HA0uKRuVDFOoUq1rE6B+6ep6deeEGjRmnCBH311bVxm019+qhXL40YkayASWrdWsuXu02ePD1v/7dKLXdzu9nyH3+sRYs0bpx691bx4infLVxYHTtq0iT1769589LpJwIAAMB9ji2IeKA5H/wVGqrLl5ONd+6sbNm0YYM2b055yVdfqVmzkm/W//FH2W76/8ejj6pzZyUm6r33Up/wyScKCNAPP2jdurv+AQAAAPBAoYDhgVaqlCpV0oULSnEgpK+vXnlFkkaOTHmJn5/mzdMbb9zO8u+/Lz8/zZ2rTZtSeTcoSG+9JUlvvHGzZ4sBAADg4UEBw4POeRPsu+9Sjr/2mjw9NW+e/v33rtfOnVuvvy5JAwakPuGtt1SggMLC1LfvXX8IAAAAHhwUMDzoXnhBmTJp3Trt2JFsPE8etW6txMRkXw+7c2+/rZw5tW6dfvwxlXd9fTV/vnx89OWXtzhWEQAAAA8DChgedP7+euklSZo1K+Vb/frJMDR+vC5cuMkCFy5o6VLZ7am/GxCQdPvr7bdTn1O+vEaNkqRevRQdfYfhAQAA8GChgOEh8M476tJFrVunHC9dWrVqKTJS48enee3Bg0crNvn02XXDhqU5pWdPFS6sv/7StGmpT+jaVYMGqUkTeXndeXgAAAA8QChgeAgEBWncOJUtm8pbVx/KnNYpGTt2lDywaI5ajh0cvn9/6lM8PfXBB5I0aJBiY1OfM2SIQkNvcawiAAAAHnj8exAPt4YNVby4jh5N81ldjRurbt2cOjUp9oVuXRIdjtRnvfiiypfX4cMaMybjsgIAAOC+RwHDw80w1KePJH3+eeoTbDaFhtqDcj+lNVXXDZs0Kc1ZQ4dK0ocf6ty5jIkKAACA+x8FDA+9jh0VFKRt27R+feoTcua0zZjmMGyD9f7sPhuOH099VoMGql1b586lWeUAAAAAChgeet7e6tZNkkaMSHNOrVpG/37uShgf1eb91yLSmvXJJzL+n727DKsq3eIA/t+HTiUEUcDGduwaEwUDFAVMEEFHEUWxUEx0HLtRMMBAsRXFwBZb7HbU0RkDu5M++37QOyGcPpj/37fLXu961/F5hnsWe79rC5gxAykpCvb090ezZnj3Tr2KiYiIiOhbxQaMfiQPHqBYMYwY8enP+/SBoSESEnDjhsy1v/2WXq2uPVI8Nvpv25r7UbAaNeDlhdRU/PabgkKuXsWuXejZU6XqiYiIiOibxwaMfiSZmbhzBzNm4OnT//zcxgadO0Mq/fjGrlzp6hqsX5FubOGOrZejj8qKGj8eenqIicHvv8srZNky5MuHlSvlbUhERERE3x82YPQjcXSEmxvS0hAd/emlgQMhCFi8GM9kPmGIokX1E9bdcenebUYFWSFOTujeHdnZGDVKXiFOToiNhSBg8GAcOKDSZyAiIiKibxgbMPrB9O0LAJGRn774q3x5uLri/ftcerN/EZo2cdwVY10in5yYsWNhZoYNG3BU5n0yAPDwwJAhyMpChw64d0/p+omIiIjoW8YGjH4wLi6oUAH37mHTpk8vfXgp85QpuHtXkx1sbD5Otg8LUxA5YQKaNcOjR/D2RkaGJnsSERER0beBDRj9eIKCAGDOnE9/7uqKNm3w4gW6doVUqskOQ4bAxgaHDiExUV6YRIK4ODg6IjkZQ4ZosiERERERfRvYgNGPx98flpY4dAinT396KToadnZIStLwZV5mZhg2DADCwhS0ctbWWL8ehoZYtUqTDYmIiIjo28AGjH48xsbo2hUAoqI+vWRtjaVLIQgYNQrnzslP8/JJ5r7yfa+Er8n1au/eKFECFy8iLk5BOTVq4Ngx7N6tXPFERERE9C1jA0Y/pD59oKeH48dzueTqij59kJ4OHx+kpsrJ8XvSw8ZXIouPC8i89mfOq/r6GDMGAEaPRnq6gnIqV0alSsrWTkRERETfLjZg9EMqUQKHDiE+PverU6eiYkVcuSJ/jEYtb4dECx9DMfWhV59cAzp3RtWquH0bkZGaV0xERERE3wM2YPSjqlULTk65XzI0RGws9PUxZw62bZOVQCIBpk17AQuHyzsy1mzMNWD8eAAYP17DwYpERERE9J1gA0aUmypVMG4cRBHduuHRI1lRLQNsY4r+BiC9Vwjevs0Z0Lw53N3x/Dk6dvz0xWNynD2LS5fUKpuIiIiIvm5swIhkGDwYzs54/BiBgbJCBAEVI3sdRy2zl3czRo3LNWbZMhQpgqNHMXKksjs3bowaNXDypBpFExEREdFXjQ0YkQwSCWJjYWmJhAQsWiQrqnlLyaKqkdnQ0Y2YgfPncwZYWGDNGujpYepUJCQotbOvL9LS4OmJhw/Vrp6IiIiIvkZswOiHl5KCmzdzv2Rvj4ULASAkBNevy0rQeXq1+eglkWZlhQzKNaBWrY/PMwYE4NYtxRXNnIlGjZCSAk9PxRMUiYiIiOgbwgaMfnjOzqhSBU+f5n7Vyws+Pnj3Dj4+sk5xNWqEPY1+uwuHtFsy71gNGQIPD7x4gY4dkZGhoCI9Paxfj2LFcOwYevVS9nMQERER0dePDRj98MqUwZs3iI6WGRAZiaJFcerUx5mGuZm/Ov/xpb8bX5Z5bEsQsGQJihTB8eMYNUpxUVZWiI+HsTGWLsX8+YrjiYiIiOibwAaMfnh9+wLA3LkyxxTmy4fly6Gjg/HjcexYriG2tvDuaiIxMZKzj6qHwSpX/tgV9uuHAwcUxxMRERHR148NGP3wXFxQoQLu38emTTJj6tVDaCiysuDri9ev1d5K1cNgnTtj0CBkZsLHR+09iYiIiOgrwgaMCAgKAoA5c+TFjBuHmjXx558YMECTrVQ6DAZg8mT07IlmzTTZk4iIiIi+FmzAiAB/f1ha4tAhnDolM0ZXF7GxMDbG4sVYu1btrf59GEyZN4Pp6GDBAjlj8ImIiIjoW8IGjAgwNoa/PwBERckLK1MGU6cCQK9euHtXVtSePXjQuDMKFcKDB7kG/H0YbNo0Zd8MRkRERETfBzZgRACA3r0hkWDVKjx/Li8sKAju7njxAt27QxRzDenUCYcOinjwAINyfy0YgFq18NtvKhwGIyIiIqLvAxswIgBAiRLo3BmGhjJnIX4gCIiJgY0Ndu/G7Nm5hrRti1Dp5HRdE6xahb17ZWUKDf14GKxDB6UOgxERPUUhJgAAIABJREFUERHRd4ANGNH/LVuGBw9ga6sgzNYWMTEAMGIEbt/OeX3kSDwycBybPRIAgoKQlpZrmg+HwYoWxYkTSh0G+1vHjmjaFG/fqrCEiIiIiL4SbMCI/k8QYGioVGSrVujYEe/fIzQ050VHR/Tsiani4Dv5KuKPPzBtmqw0FhZYvRr6+qodBrtxA3v3wt9f1iOQRERERPT1YgNGpJapU2FqinXrsGtXzovDh0PfWLfL60gIAiZMwJ9/ykqj6pvBAKxahfz5sWGDavfNiIiIiOhrwAaMSC329ggLA4ABA3IeGytYEH364KBYP6mwL1JTERwsJ5Oqh8FKlcKaNdDVxYQJWLJE/U9ARERERJ8fGzAiGWQMkf9HaCicnHDlCubNy3lx6FCYm6NjyrQsMwts3479+2WlUeMwmKsr5s8HgMBA7Nmj1BIiIiIi+hqwASPKTUQEChXCggXyYvT1P74WbNQoPHz4yUUrK/Tvj8ewmVtnBdq0QZkycjJZWGDFio9vBtu0SakCu3fHkCHIzISXFy5eVGoJEREREX1xbMCIclOyJAAMGoSbN+WFtW6Nli3x+jVGj855MTQUAweizq8tsHEjChaUv2Hdupg4EaIIf3/cuKFUjRMnwtsbr1/DwwNv3ii1hIiIiIi+LDZgRLlp2RI+Pnj3Dn5+yM6WFzl7NgwMsGgRTpz45IqpKaZPR61ayu45cCC8vfHqFTw98f694niJBMuW4eefcf8+Xr5UdhciIiIi+oLYgBHJMHcu7O1x9CgiIuSFlSyJfv0glaJ/fw0Hw384DFa2LC5eRI8eSi0xMkJSElJS4OCgyc5ERERE9JmwASOSIX9+LF4MQcCwYbh8WV7kqFEoVAjHjmH5cg33NDXF2rUwMcHKlQoOoP1NTw/W1hpuS0RERESfCRswItlcXBAQgPR0dO2ac9b8P8zMMGkSAAwZglevFOQcM0b+rMMKFRAdDQAhITh5UuWSiYiIiOhrxgaMSK4ZM+DoiNOnMX26vDBfX9Svj0eP8NtvskLmzkVkJLBwIcaPx6JFcpJ16oTevZGeDm9vPH2qdulERERE9NVhA0YkV758WLTo4/EsOQQBs2dDRwezZ+Pq1VxDwsMRHIzjnWcDQEgIrl2Tk2/WLPz8M+7cQadOCoaAfOLYMbRpgytXVFhCRERERJ8NGzAiRZo2xaZNChowAFWqoFs3ZGaib99cr//6KwA0X9TuXRsfvHsHHx9kZMhKpqeHVatQoAD27JFzUy0X+/cjIQEtWih+jzQRERERfX5swIiU0Lo16tZVHDZpEqyssGcPEhJyXuzTBx4eePkS3o8iUawYTp/G2LFykjk4YNUq6Ojg11+xfbuylQ4YgLp1cecOWrXCu3fKriIiIiKiz4MNGJH2WFoiPBwABg5EWlrO6zExKFQIO47li226HDo6mDQJSUly8jVpgtGjIZXC1xd//aVUCYaG2LwZpUrh9Gl06KDa44tERERElNfYgBFpVe/eqFQJf/6JadNyXrS2xsqVkEjwy5KfU7qOgFQKPz88fy4n36hR8PDA8+fo0AHp6UqVYGWF7dthbY1t2zB0qHofg4iIiIjyBBswIq3S0UFkJAQBEybg9u2c1xs2xMCByMqCc9Ko7Jp1kJKSa6v2tw/jP4oXx8mTGDBA2SpKlEB8PAwMMH06IiPV+BhERERElCfYgBGpKD4e5cvjxAmZAfXqoV07pKbKuv00fjyqVcMff+nOqLYCbm5o0ED+hhYWiI+HkRHmzcPSpcqWWb8+oqMhCOjfHzt2KLuKiIiIiPIUGzAiFd26hStX0KUL3r+XGTN9OkxMsGZNrke89PWxahXq1UMx52LYuhXNmyvc86efMGsWAAQF4exZZSvt0gXh4cjKUmGGBxERERHlKTZgRCrq0wcVK+L6dYwYITPG3v7j7a++fZGVlfN6qVI4dAje3ips27MnAgKQlob27fHqlbKrwsNx4gQmTlRhIyIiIiLKO2zAiFRkYIDYWOjpYc4cXLwoM2zIEJQqhcuXMX++tnaOikLVqrhxA35+EEVlV9WoAWNjbZVARERERBphA0akuipVEBSE7Gz07y8zxsAAU6YAwOjRePJEK9saGmLDBlhaYvNm+ZM7iIiIiOgrxQaMSC1jxsDKCvv2Yds2mTFt2qBZM7x4gZEjlcq5cyd69sSbN3JCihbF4sUQBAwfjn37VKyZiIiIiL40NmBEarGwwKhRADBoEDIzZYbNmgV9fcTEYP9+OcmOHsWAAchYsgLR0QgNlb+zhweGD0dWFtq1w82bKhc+fDi6dEFqqsoLiYiIiEhzbMCI1NW7N5yccO0a4uJkxpQpg+HDIZUiIACvX8uKWr4cs2Yh7PVwGBpi4ULs3i1/519/RevWeP4c7u4qDOT4IDERcXFo3z7X4SBERERElLfYgBGpS08PkZFwcICdnbywESNQsyZu3ZLzHuXQUJibY+b2MmdajoQoomdPvH0rJ6VEgrg4VKyIq1fRoQOys1Woet062Npi61b4+0MqVWEhEREREWmODRiRBpo2xZ07Cl7kpauL2FgYGWHxYsTH5xpSvDgiIwGgya6haeWr4datj883ymZmhs2bUaAAdu6UNw8/p1KlsGULzMywYgX69VNhIRERERFpjg0YUd4rUwYTJgBAr1549CjXEF9f+Pri5Vtdv6zF0NNDRAQOH5aftWhRbNgAfX1MnozFi1Uop0YNbNoEAwNERvIVYURERESfFRswos+iXz84O+PJEwQGygqZNw9lymDdtUrbKw2FVIpfflE4K6N+fcycCQB9+iA5WYVynJ2xejV0dDBiBKKjVVhIRERERJpgA0b0WUgkiI2FhQUSEmQN7TA1xdq1MDJC29MjX9mXx7VrH7sruXr3RlAQ0tLQti1SUlSoqE0bzJ0LUURQkPwZjURERESkNWzAiLTn3Tt5V+3tMX06AAQH486dXEMqVsS0aUiHQbu3S2BhARMTZbadPRvOznj4EK1b4/17Fert1QsTJ0IQVB6lSERERETqYQNGpCXLl8PcHMuWyYsJCICXF169QrduEMVcQ3r3xsCBcPSqgefPERKizM56eli3DiVL4uxZdO0qK3HuwsLw+jU8PFRYQkRERERqYwNGpCVmZpBKMWSInPd9AcC8ebC1xd69H+ce5mb6dMTEqLa5pSU2b0a+fFi/HpMmqbbWyEi1eCIiIiJSGxswIi1p0wb16+PRIwWDBQsUwIIFADB0KK5f1+L+Zcti1Sro6GDkSCQkaDExEREREWkNGzAi7Zk9GxIJZszAjRvywjw84OeH9+/RuTMyM7W4f4sWGDcOUil8fXHxohYTExEREZF2sAEj0p4qVeDjg4wMDB+uIDIiAo6OOH0aU6YolfnWLSVvl4WFwccHb9+idWs8eaJU7n+7eBEBAbJGhBARERGRptiAEWnVxIkwMcG6dTh0SF5YvnxYsgSCgDFjcOqUnMD0dPj64nWNJqhcWZkeTBAQE4OaNXHrFjw9kZGhWvlbtmDpUpUneRARERGRktiAEWlV4cIYPBgAQkIglcqLdHZGcDCystC1K9LSZEW9eoU1a7DumTNSU9G9u4KcAABDQ2zaBHt7HD6MoCDVyg8MRMGC2L8f8+aptpCIiIiIlMEGjEjbQkNRuDDOnsW2bQoip0xB+fK4cgWjR8sKsbFBeDgGidPuS+xx+DDmzlWmBDs7JCTA2BiLFyMqSoXaraw+jggZMgQ3b6qwkIiIiIiUwQaMSNtMTDB/PurUQYkSCiINDREbCz09TJ+OAwdkRQ0fjpou+XpK5wPAsGFKNkZVq2LhQgDo3x979ihdPNC6Ndq3x7t36NmTDyISERERaRkbMKI84O6Oo0dRrpziyGrVEBYGqRQBAXjzJtcQiQRxcThj57YSnfH+PXr0ULIx8vHBsGHIzISXF86fV6H8yEjY2GDfPkRHq7CKiIiIiBRiA0b0pY0ejRo18NdfHw+P5cbGBitWYIBOxCPYIilJ+fc0jx+PLl3w+jVatsTt28pWZG2NiAgACA3lREQiIiIibWIDRvSl6eoiNhZGRli4UM6xscaN0SPMqh8iAIiDQ3HvnjK5BQGLFqFpU9y/j5Yt8eKFskV16ABPT7x+jdBQZZcQERERkUJswIi+AmXLYtw4AOjRQ06TNGYMHtRvvxFthdevkJSkZG49PWzYgEqVcOUK2rZFerqyRUVGolgxmJkpG09ERERECrEBI8pjUimuXVMcNmAA6tfHgwcYOlRWiK4uVq/G0cDY2xEJ6NBB+RLMzZGYCAcHHDiArl2VGWUPAAUL4s8/lX/akYiIiIgUYwNGlMcmTkSZMh+Hu8shkSAmBoaGiInBvn2yogoVwtT5ZkX6toaenkpVFC6MxETkz481azBihEpLiYiIiEhr2IAR5bGffgKA0FDcuqUg0skJYWEQRQQFyXk1s9oqVEB8PAwMMGkS5szRenoiIiIiUowNGFEec3dHx4548wbduyseHz9sGMqVw/XrmDQpL2pp3BhLlkAQMGAANm7Mix2IiIiISB42YER5b+5c2Noq9V4tfX0sWgSJBBMn4sqVvKilUyeMHYvsbPj44OhRFRY+fSrnZdFEREREpBRdxSEZO/pV7btd6clpuTNoMedMRHN9zZIQfaOsrLBgAdq0QWgomjeHo6O84Nq10aMHFixA9+44cgQSeX8liY9H8XbVitql57+aDFNTJcsZNQoPHyIqCh4eOHIETk5KrQoOxpo1WL1apfEfRERERPQfSjRg4tuHN2/c0PBAiuHDt4qevSL6nnl4wNsb69ejWzfs3g1BkBc8ZQq2bkVyMqKjERgoJ1BHB++lhvnvnXnmG2K1aZHy5URE4N49JCSgRQscPQpbW8VLXF2xZg2Cg9G4MWxslN+KiIiIiP6hRAMmmDuWr1BB0ztgjuZyv3ASff8iI7F/P/buxZIl6NZNXqS5OWbORPv2GDIE7u4oXFhWoIcHxrSPqby2ulXC4tcxzcx/aa9kLTo6WLkSTZogORmtWiEpCSYmCpYEBGDtWuzcieBgrF2r5D5ERERE9B9KNGD6rtNOXZyW96UQfedsbDBnDjp1QmysggYMQLt28PBAQgIGDJDf7oyIKzv39JQBN4OFoF5ZTeroFnNQshxjY2zejLp1cfIkOnbExo3Qlfv7QBCwYAEqVsS6dVi/Ht7eSu5DRERERP/gEA6iz6hjR6xapewM+Kgo5MuHdeuQkCAnSk8PnQ713mPobpb14i9nJQYt/kuBAti+HQUKYOtW9OmjOL5IEUyeDADBwXj2TPl9iIiIiOijvG/A0l48uH/v/rP30jzfiehb0LEjKlVSKrJQIfz6KwD07Ys3b+QEFrQT8m1Y/FiwLXVr99mACJXKKVkSW7bA2BgLF2LKFMXxvXqhUSM8egRnZ9y+rdJWRERERJT3DVjGobCqDvZFGk48l5XXWxF9d4KDUacO7t7FqFHyA2u0LHD8l2gAZWPD7u64rNImtWohNhYSCcLCsGWLgmBBwPLlKFMGFy6gbl2kpqq0FREREdGPTuMGTJr+6unjR7KkXNy4Zv9TEdl3/7qbrY16iX4oEgkWLICeHubMwbFj8mNbLWy1r1SgIdLeRy1VdR9vb0ycCFFEUBBevVIQbG+P5GS0bQt7e+joqLoVERER0Q9NiSEcMojPkueGDpq6NjnlnVThoRMdywJWPG5GpIaKFTFoECZNQmAgTp+Gnp6c2AanZ96fVNEpqI0a+wwejM2bceQIhg9HZKSC4Hz5EB+vxiZEREREPzp1u6KMC1M9mvdfcvSuEt2XILGoE+RfU973RqIf0pw5qF0bDx4oCBs9GiVL4uJFzJghP1DXzKjQ+D6Cvcyx9XJIJJg/H/r6mD8fhw+rkYCIiIiIFFOvARMfrw2fePSVFILEoqyrT1Dfnt7VbHQESPJV7dCvf//+/fv369WpvqOhAEHfySfq0IU9Q37S13LlRN++c+dw/DiCghSEGRkhOhqCgLFjceNG3pVToQKGDIFUil9+QZqG714nIiIiotyo1YCJL3dv2PNKhGBUc8zekzvjoiIWrEta4m8nEVNNavefPnPmzJmz563cf3Lb4BommTd2b7uaqf6TjkTfsd9+g4UFEhKwcqWCyEaN0KULUlPRo4dKg+ZVNXIkypbFtWsfx82rZNo0lCiB/fu1XxURERHRd0OtBizr2rlLqSIEkyZBvSqbfPiZWcMW9U2RefbIiXf/T23jPD52dB2DJ4lhQ9Y+ysOvjETfKju7j08V9uuHhw8VBM+YARsb7N+P5cuVTP/wIaKi8P69ChUZGGD+fAgCJkzAlSsqLATw+DH+/BOurli4ULWFRERERD8OtRow6dPHz6SAxK5s6fzC/39o6FSuuK6YfuParX/GHeqV+aWfWz7xacKUBZc4BJEoF/7+8PDAs2cIDFQQaWWFqVMBYOBAPH6sTO6rnsOb9Sk5rONfKlXUoAF69EBGBrp3h1SV9/dNnozwcGRmIjAQgYHIzFRpWyIiIqIfgnpnwLKzswFITExN/lkvsS9iryNk3b55+18v/BLy1Wnwk56YeTlx+012YES5ioqChQU2b8aaNQoi/fzg4oJnzxAaqkziykVelMDN9lu6TJ2gWjM0dSoKF0ZyMhYsUGGVIGDMGKxaBSMjLFwINze8eKHStkRERETfP7UaMImFlYUEyH7y8Mk/XZVg6ljEWhDfXrn4179aLYl1ASsJkH3rxi02YES5KlQIU6YAQHAwHj1SELxwIUxMsGwZdu9WmDh/1IQ0a/ufcaTJiNp7Z11UviJzc8yeDQBhYUhJUX4dAHTsiH37ULAgdu9GzZr4/XfVlhMRERF939RqwHSdKpTWEyB9fOzwtX9ud+kUK1VMF1lXT5x+/c+BL/Hli1ciIKalpvEUGJEs3bvD1RVPn37sxOQoWhSjRwNAUJDi010WFoY7E15aFq+KM/UG1EjpMxHZyv4hxMsLbdrg9Wv06qXkin/Uro0TJ1C5Mm7cwM8/4/JllTMQERERfa/UasCEAo1cq+oLyLwws/fYfQ8+PtwkKVSxgrVEfLd70Ypb/z84Ir2TEH88A9ApWLigjpZKJvr+CAJiYtC0KRo1Uhw8cCB++gk3byIsTHFw1ar5Uy7tqjJUD5n2UcMzqtfF1atKFhUVhfz5sW2bOu9cdnDA4cPw8sKLF/hLtTNoRERERN8z9c6A6ZTs2r9tAQmkLw//1rS4Q5PpF7IA6Ndo3sRaIr7bP9wzaMHu0xfP7F0U0n7EvrciJNb1GlbgKHoiORwcsHs3WrVSHKmri9hY6Otj7lzs3Kk43sio8fFJYVV23oGj/rkTqFoVFy4oU5GdHcaPB4A+fdQ5zWVigvXr8eAB3N1VXktERET0vVKvAYNg7T17cc8yhgIgpj29/eCtCABmLQb3rWIgiG/OLezlWr1Staa/zD3xQgrBuFpw36bG2iyb6Mf2008YNQqiiO7dlemN9PQQtqdp25IXF6F7OgyU36dXL9Srh4cPMWyYmpUWLKjmQiIiIqLvkpoNGCDYuEUeObx0WOcmVUsVMtf7MI1er9Lg5XPaOOgJ/4ozLu27YGXoT3oal0pE/xIWhlq1cO8eBg1SJtzSEut3mSf/EnPr7AtUqqTkJhIJYmJgaIiFC7FvnwbVEhEREREAQJPnAiWW1fwmrPCb8O+fGZbtsf5S/e1xq/eev/0ClqVqu3fq0LgY734RaZuuLpYuRdWqWLIE7u7w9FS4olgxREervE/p0hg6FGPHIigI58/D0FCdYv+WkoLt2+HnBwMV7sMRERERfT/UugOWfW3XuqN3U2WMNZSYl3HrPWbGgiVLFkwfHsDui0gde/bgyhUFMWXKfDyk1auXkq9mzt2WLVi3Ts714cNRrhyuX8eECXKilDJ+PHr2hJsb3rzRNBURERHRt0itBizrYoxfveKFyjXvNWnN8XucL0+kZS9folkzNG6M588VRIaEoFEjPHmCwED1t/P1Rfv2cHPD/fu5XtfXx6JFkEgwcSLOn1d/HwDBwbCzw969aNxYo56RiIiI6Bul9hkwMevl1Z0LhnWsU7RwBbc+U9edfJCuzbqIfmT586NhQzx+jOHDFURKJFiyBObm2LQJq1erus8ffyAzE1i6FFZWSExEhQo4dizXyNq1ERiIrCwEBir/LrFclC+Po0fh5ITTp1GnDm7cUD8VERER0bdIrQZMp7Rrh4YlzHUEAGLW8yuJUUPa1ypSuGKrvtPjzzzK0HKJRD+i+fNhYIDoaFkd0T+KFsW0aQAQFISUFOV3OHMGpUujWTNkuLXFxYtwc8OLF/D0lHUfbNIk2Nvj+HHMm6f8JrnXe/AgqlbFn3+ifn2cO6dRNiIiIqJvi1oNmG7FX5bu/+Ph7eT1Mwd417I3lgiAmPns0ta5g72qO9pX9ug/a9O5x2zEiNTn5ISBAyGVfrzxJF+PHnBzw8uX6N4dorLPBDs6onBhJCWhVy/Azg4JCWjWDA8fwssL6bnc0DY3x/z5ADB8OO7eVe3TfMLWFgcOwNUVDx+icWMcOqRRNiIiIqJviNqPIEIwKlzTq/+Mdcm3H944EDexd6vKtgYCIGY8Ob959oC2VR0dqnoOjNhy4WmmFssl+oGMGoXixXHxIqKiFAdHR8PSErt2YdEiJdNbW2PLFpiaYskSTJ4M6Ohg5UoUL47kZFknytzc4OmJN2/Qq5fyHyN3pqbYvBne3h/Pu926pWlCIiIiom+C+g3YPynMitX3CYvcfDblwZVdi8Z0cyljqSdATH98duPMkNaVHRxreIdGJl59xVkdRCoxMkJkJACMHIl79xQE29lh7lwA6N8fN28quUPlylizBjo6GDYMq1cDlpZYtw5GRoiNlTUXce5c5M+PxESlukL5DAywejX694ejI4yMNM1GRERE9E3QQgP2N12LMi7dwhft+v1BypktkWE+DYqb6whi2sNTG6YFe43ezUcSiVTVvDnatsWbN0q9bblTJ7Rvj3fv4O8PqVTJHVq2xKRJEEV064bjx4GqVbFwIXR18exZrvF2dpg5EwD69MHIkco/8Jg7HR3MnImrV2Frq1EeIiIiom+FNhuwv+nbVG7eyT+ge0DbqlY6Ql7sQPTDmDULpqbYtEmp4YORkShYEIcPIyJC+R0GD0aPHkhNhacn7t0DfH3x+rWcpwz9/bFoEfT0MH482rdHaqryWxERERH96LTcgGU8vrg9eswvzSsWKli2addRsSefZosABF3zfCbsxIjU4OiIpCTs2gUdHcXB1tZYuBAAhg3D5cvKbxIZCWdn3L///7n3ip4I7NYN27YhXz6sX48mTfDkifJbEREREf3QtNKAian3TyVEDvNzLl2w8E8te45dtPPSkwwRECQmDnXaD5698eSd29Et9LWxFdEPqHp1NGigbHCrVvD3R1oa/PyQqewIHD09xMWhXDkUK6bsPi4uOHwYjo44dgx16uDaNWUXKrRqFcqXx5YtWktIRERE9PXQ1WCt9O2t5MSNGzZsiN+efPtN9j9nQQQDm0ouXh07derQ6udiZnnylCMRyTR7NpKScOYMpkzBiBFKLrKzU+meGQBUqIDkZLi748wZ1K2LTZtQv77KxeZ07x6uXIGHB0aPxujRkPBXCBEREX1H1PpqI729c0pw2xqOtiXqdRg4Y+2RW28+PmiYv5Rz11ELd1y6f+/clqiwzvXZfRF9AebmWLwYgoAxY3DqlKbZ7t9Hjx44fz7Xi3Z2OHAA7u54/hwuLli1StPdAAwejAULoKuLsWPRqhVevNBCTiIiIqKvhFoNUubJReGRm07dey8V8eFBw9rtBs2KP3HnwfW9S3/t0aycpSY31ohIY87O6NMHWVno2hVpaRqlOnQIMTFwd8ejR7le/zAipE8fpKfDxwdjxmi02wc9e2LPHtjaIjERNWvi0iUt5CQiIiL6Gmhwh0rQL1DJLWhC3P4/Htw6tnZaSNvqdobaK4yIcrNiBTp2xOvXiiMnT4aTE65cwdixGu3o6YmGDZGSAk9PZOT+NgkdHcydi1mzIAgYOxa//KL86TOZGjTAqVOoUQM3bqBOHaxfr2lCIiIioq+BWg2YpGjL4Qu3X7x/7/zWqGE+DYrzQUOizyUhAWvWYNQoxZHGxli6FDo6mDoVUVGqvrHr/n08fAgA0NPDmjWwt8fRowgNlbMkJOTja5wXLYKbm1JNonz29jhwAL6+ePsW7dtjyRJNExIRERF9cWq1TnrV/Uf1aF7eSk/b1RCRAqNHQ08PkZE4e1ZxcJ06GDMG2dno0wfu7v/vqJRSpQoqVvz/fHlbW6xfDwMDRERg8WI5qzw9kZQEGxvs3o169XDnjvIb5s7ICMuXY9Ys6Ovj+XNNsxERERF9cbx3RfRNqVABffsiOxtBQZBKFcePHIn4eFhbIzERlSohIUHJfapVw9OnGDLk//+7Vq2Pbxjr0wcnT8pZWKsWjh1DmTK4eBF16uDMGSU3lCckBC9fYtAgLaQiIiIi+rKUmJaRsXeYc9iedAD69cbsmOlm9q+fKM2g6aR9E5vwVWBEmhszBmvX4vhxzJ2Lfv0Ux7dti7p10b07tm1Dmzbo0gVRUTA1lb8oIgIVKyI2Fn5+aNwYAODnh6NHsWABvL1x6hQKFJC1tnhxHD6Mtm1x6BAaNcKGDXBxUekT5sKQJ0yJiIjou6BEAya+uHn61Kk0AAYFn2b99ydKMyz2QrUTKEQkg5kZIiPh4YHhw+HmhhIlFC+xtcWWLYiOxoABWL4chw9j+XL8/LOcFSVLYtgwhIcjKAjnz8PAAAAQEYELF3DsGGJiMGyYnOVWVti9GwEBWLUKrVph9Wq0aaPShyQiIiL6PikzL97Iyt7ePg2AgZWJBAAE04IlSpZU7Q5YQVNBnfqIKBetW6NzZ6xcie7dkZQEQYn/ugQBPXuifn34+uLMGTRqhEGDMG4c9GSe5QwLw+rV+P13zJjx/25LXx9n48anAAAgAElEQVTx8ZgxAx06KNzQwAArVsDWFrNmoV07LF0KHx/lP6ECH8Zy1KuHYcOU+vREREREXwlBVHE2Gn39qlWrdubMGQ8Pj02bNn3pWijPPHuG8uXx6BHi4lTrbDIzMX48fvsN2dmoWRNxcShVSlbsgQNo3BiGhrh0CcWLq1np5MkIC4MgYNYspR6ZVMadOyhZEpmZ6NED8+ZBR0c7aYmIiOhz6tKlS1xc3PLly319fb90LZ8Ph3AQfZusrBAdDVtbmJiotlBPD2PG4OBBFC+OEydQuTJmz5YV27AhfHyQmorevdWvdOhQTJkCAP37Y9o09fP8m6Mj4uNhbIzoaHh5ITVVO2mJiIiI8ppaDVj2tV3rjt5N5a0zoi+qVSs8fKjm4aq6dXH2LLp0wfv36N8fnp54+jTXwOnTYWGBnTtx+7b6lYaGYt48CAJCQxEWpn6ef3N3R1ISrK2RkIAWLfDqlXbSEhEREeUptRqwrIsxfvWKFyrXvNekNcfvpbERI/oWmZtj2TKsXQtLS2zciAoVsG1bzigbG2zahFmz4OgoI09sLKpXx+nT8ncLDMTy5dDVxeTJCA5W9b3QuatZEwcOfHxfc716uH9fCzmJiIiI8pTajyCKWS+v7lwwrGOdooUruPWZuu7kA5WGchDR16FdO5w9i4YN8egRWrXC0qU5Qxo0QEiI7FkXly7h9Gk0bozdu+Vv1bkz4uNhaIjISAQGKvUaM4XKlcPhw3BywqVLaNAAf/2lhZxEREREeUetBkyntGuHhiXMdQQAYtbzK4lRQ9rXKlK4Yqu+0+PPPMrQcolElLccHbFvH8aNgyiid2+cPava8okT0b073ryBuztWrpQf26oVtm2DqSmio+Hjg8xM9av+W5EiOHwY1avj5k38+qsWEhIRERHlHbUaMN2Kvyzd/8fD28nrZw7wrmVvLBEAMfPZpa1zB3tVd7Sv7NF/1qZzj9mIEX1W587h2jU110okGDkSgYFITUXbtnj2TIW1urqIjkZ4ODIy4Ov7ceCGbM7OSEyEuTlWr4anJ9JUeqOgDAUKfGwh+/fXQjYiIiKivKP+FETBqHBNr/4z1iXffnjjQNzE3q0q2xoIgJjx5Pzm2QPaVnV0qOo5MGLLhafa+BM3EcmXnY2ff0bt2rh3T/0ks2ejRg3cvg1/f9UOaQkCxozB7NkQBAwdipAQ+c8X1q+PfftgbY2tW9GiBd6+Vb/kv5mZYeRI/PSTFlIRERER5R0tjKGXmBWr7xMWuflsyoMruxaN6eZSxlJPgJj++OzGmSGtKzs41vAOjUy8+uo7mdUhfX37dNKW1cvi1m87ePkJb/PRV0JHB66uePkSgYHqJzEwwPr1HxujSZNyDblwAQMGyJiY2K8f4uKgr4+ICPj7y+/BqlXDgQMoVAj793OGIREREf1AtPkeMF2LMi7dwhft+v1BypktkWE+DYqb6whi2sNTG6YFe43e/Y30KlnPr+xaOm10aL8+wYPHzNv6+8vsvy9Jnxyc1qlqsRI1nFt36tqlnXvDioUKVvAet+1PbTxDRaSpqChYWmLbNixbpn4SR0esWgUdHYwciV27cl6Pi8OsWbKf9OvUCdu2wcwMy5fj3Dn5W32Yn1G8OA4fhrMznjxRv2oiIiKib0WevIhZ36Zy807+Ad0D2la10pE1Oe0rJL45t7Br9RIVmweEjps2Jypy+tjerSuWaTYp+aUIiI93DXJ1G7L6/PPsv+/liVkvLm8I96jbasrJ19/JDT76htnZYcYMAOjXT6MHEZs2xYgRkErRpUvOPEFBMDbGihXYskX28uRkxMSgShWFWxUrhn37UKoUzpxB48Z48ED9qnM6ehTGxhg6VJs5iYiIiDSk5QYs4/HF7dFjfmlesVDBsk27joo9+TRbBCDomucz+do7sYwrc9o2CVp2/qX0X72UmP1o7wiPgOW3H20a1G3OubeioGNRtpn/wFFjw8OC2tVxMBI+hHQYsPUJWzD64rp2hYcHXr1Cr14a5QkPR/PmePwY3t7I+M/N62LFEB4OAN7eWLVKxvJy5dC9u+y59f9RpAgOHECFCrh8GXXq4Px5jQr/N319SKWYMgWjR2stJxEREZGmRC2Qvr93ctPcsC6NnSx0//2VS5CYONRpP3j2xlP3U7WxT17K+mNWAxMBgKBboHqX8PlrNiesnj+hb4sSxgIgyV+mXGEdARKr+qP3Pcz8Z9W7ayv8SxsKgKBXYcSp9C9X/n9UrVoVgIeHx5cuhL6Ee/dECwsREFeu1CjPs2di0aIiIPbv/8kVqVQMDxcBURDEKVM02uRvT5+KdeuKgGhqKm7cqJ2coihu3izq6oqAOHWq1nISERGRtvj6+gJYvnz5ly7ks9KkAct+89eRNTMGtv+5qNl/HzQUDGx+cg+auOLgn6+ztVZp3so4FlpKB4DEtnX09X81UtJne0IqGHz4dBKrNsvu5fhAqadHVdYXAB2H4KSvpANjA/aji4kRAdHaWnzyRKM8x4+LBgYiIOb2a3H2bFEiEQGxXz8xWxv/oaelif7+H/u68HBRKtVCTlEUly8XJRJREMToaO0kJCIiIm35MRswtR5BlN7eOSW4bQ1H2xL1OgycsfbIrTcfHzTMX8q566iFOy7dv3duS1RY5/rFzPLkjJn2Zf+xb9+tbECvasikgFL6/1wQLJ1Hj/KwkACQ2LXr065Qjg9kWLlnj3r6ArIfHj50PfvTq0RfQLduaNYMT5/i9GmN8tSsiWnTACAoCFeufHKxXz8sX/5x5OHgwYpSubrCzQ3v38sJMTDAkiWYNQsSCcaORceO8sOV5euLOXMgiujVC+vWaSEhERERkSbUapAyTy4Kj9x06t57qYgPDxrWbjdoVvyJOw+u7136a49m5Sx1tVxmXsu+8+edbECncL36JXX+e0nIX6d+JV0AehWr/2SQy1qJbZWqDhIg+/6de2zA6GsgCFi3Drt2wdVV01TBwfDzw9u38PTE69efXOzcGVu3wtwcN27ITSKK+OsvJCbCywuZCl4MGBKCrVuRLx/WrkW9erh7V7P6AQC9e2PMGGRnw9cXO3ZoISERERGR2jS4QyXoF6jkFjQhbv8fD24dWzstpG11O0PtFfZ5iRnp6SIgGBkZ5pgbIBgZGwkABAPDnBc/BBgZCYCYnpbOORz0lTAzg4uLkmMwFIiKQvnyuHYNPXvmvOjigkePsHGj3AyCgO3bUbAgduyAn5/894MBaN4cJ06gdGmcPYvatXHypAbF/194OEJCkJGBDh0+mSpCRERE9Fmp1YBJirYcvnD7xfv3zm+NGubToPi38qChbBJrG2sJkH3vxp/vPr2W/dcff2YDyE65nZLrHa6Mu7fvSwGJZQGrb/4fgigHExPEx8PcHGvWYO7cnNcNDaGjk/PH/1WyJHbuRP78WL0awcEK93RywtGjcHbG/fto0ABxcWpV/l8zZ2LoUHh6Ql9fcTARERFRHlGrY9Cr7j+qR/PyVnraruaL0atQq5qpAPHNjoVxf/6nyxJf7I5efSMLQNalzVtu5NKBvdoXv+eFFILRT9XKfmuPXhIpxckJy5ZBEDBwII4cUTNJpUrYuBGGhpg3D2PGKAy3tMTOnQgORloa/PwQFqbwzpkCgoBJk7BkiUZJiIiIiDSkTgMmPr96aN/evXuTLjz8bs48mbn6eNhKIL7ZN9SjR0zy/fdSAJkvft882jtg8e1sQRAEpJ+cGjLv97T/rJM+3j4sdOUDKQSzhq2dLb72d53Rj+r6dYSE4No19TN4eCAkBJmZ6NgRT57ICRRFREfj+PHcrjVqhLVroauLsWMxc6bCPXV1MWcOFiyAri4mT0b79niX4w41ERER0bdFnQZMkJyc6ubStGmLoduefy+HnoT8bqNGN7WUQHx3aUmPOvb58tnYWZpZl/f4bd+jbEkh76jFPYvrik939W/YuNfszSf+uP/k8Z1LSbEjPOp6zb+aIQq6JQNCO9ix/6Kv1Lp1iIhA9epYulT9JFOnon59pKSgY0dky/zjy/Xr6NkTDRvKGDnYqhWioyEIGDwYhw8rs23Pnti2DRYW2LABdevi9m116yciIiL6Cqj1CKKJQ5ECEiD77q27380tMOiWDFy+enCt/BIAELPePnn4Il0qAoJZ5ZClUYFdx88OKKaH7CfJC/p71HIqbGNbpKKz/4StN1NFCCaVQxePa2j8pT8CkSz9+8PHB2/fIiAAvr455xkqRVcXa9fCzg779mHsWFlRpUtjwACkp6Njx1yPjAH+/oiIgL09TE2V3NnFBSdOoGxZXLiA6tVx8KA65eeUkYHERKSnaycbERERkTLUOwNWq2P7krpC9vVt237P0nZFX47ExmXygfM7Z/V2r+qQz0AiSAysyjXvu2DP3mku1oJg5TZ399IupY0+ucslGBZpMS5x1/h6Zl+maCJlmJggLg6xsTA1xYoVqFQJx46pk6dgQcTFQUcH48djwwZZUTNmYNYsAOjbFyEhEHPeKA8Oxu3bqFxZ+Z1LlsSRI3BxwdOnaNYMK1aoUf2nli6FmxtatWIPRkRERJ+PemP7jOqGLx1dN3/2+Zl9p595q+WSvigDx6YhkVtO33mZlpmZmfb08vaIHjUtP/Zc+sU7x567ujcqtGtbl7rVa9Z39eoZvnDXpcuJIxpY8+FD+gb4+eH0aVSpgtu30aABxoxRZ66FszMmTIBUio4dsWyZrKiQECxZAj09RESgVy9N52d8YGGBxET07Yu0NHTpgshITRO6uqJgQezeDR8fOc9UEhEREWmTmnPTBbPaI7cnzetU8PTwRrW8w5clXXn0XhvfsL4iEp3c/m0MHRsHTVkav+vIyeMHd65fMKZH0xImn700IrU5OeHYMYSEIDsbY8eie3d1kgwZgkmTkJUFf39Mny4rys8PmzfD2BgLF6JHD+30YLq6iIj4uGdwMCZN0ihb0aLYtQuWltiwAd265XanjoiIiEjb1Jqbnnl89i+zkjMAlCprc+PUhl+7bvhV0DEwyZff3Fgv95bO0H3+pXluBpqUSkTaYGCAWbPQpAm6d8e9e2omGToUpqbo1w+DB+PJE1mdUPPm2LoVrVph8WIUL44RI2QnfPoUZmYwUOp3xMCBKFAA3bph2DC8fKlRG1axIrZsgasrli1DgQKYNk39VERERETKUKsBk949snb1uv/OYxez098+f/T2uYwlhs9S1dmJiPJGq1ZISVHiDcqy9emD/PkREIDJk/HmDebMgSSXP780bozERHTrBgcH2akePUKxYihdGklJyJ9fmc27dIGeHvz8MHkyXr/G3Lm5bq6UunURH49WrTB9OgoXxoABauYhIiIiUoZaDZhgUaJa9eoqHVs3KPHdviMr7cWD5++lIiAYWRWyNPzS5RApS19f0ww+PsiXD+3bIyoKL19i6VLo5fJ69gYNcOOG3Dzm5ihaFOfOoVEjxMejeHFlNu/YEWZm8PbGvHl4/RpLl0JX3Tehu7oiNhadO2PwYDg6wstLzTxERERECqn1hUW/ycTDJydqu5RvVPrOvqXbrngjAobt1r1c6629xyyHDx8+caL6/8zPnj3TWilEsri7Y/t2tG6NlSvx+jXWroWRkcpJjIywcyeaNsX586hRAytXolkzZda5uX3cfMUKvH2LNWuUfIYxFx074s4dDB2KsDA2YERERJSH1H1qh/KeyJkA9Jn17ImqVaFq696wIfbtQ4EC2LoVLVqo+ZIxBwecOgVPTzx/jhYtEBam5NSORo2wdy8sLZGQgLZtkarBs85DhmDRIsycqX4GIiIiIoXYgH29Jk6cKKqlatWqAKysrL70J6BvzYMHOHsWfn4qDwSsVg0HD8LBAQcOwNkZT57ID09JQUwMMjL++1MzM6xfj0mTIAiYPBkeHnj5UpnNa9TAnj0oUADbt6N5czUbwA+6dYO7u/rLiYiIiBRiA6Yp/QZj9yUnJycnJx+c4KzxmRqiL2nePFhbIzERU6eqvLZMGRw6hFKlcPo0GjTA3btyYn/7DT16wNs7xxuQBQFDh2LLFlhYYOtW5ZuhKlVw8CDs7XHwIJo0UfkeHhEREdFno9YZsOybO2N23MhSaZ+SzX9pVkKDiWtfLcGiRPWaJb50FUTaYG+P2Fi4u2PECNSti3r1VFtepAgOHULz5jh3DvXrY9cuODnlGtinDzZswJYt8PREfHyOg1stW+LECXTpgsKFld/8QwPo4oJTp9CgAXbvRqFCqpVPRERE9Bmo1YBlnV3UP/iTMfQKGLZb5/99NmBE35WWLTF4MKZORadOOHsW1taqLbe1RVIS3N1x5AgaNMCOHahcOWdUxYo4eBDOzkhMROvW2LQpx+SOkiVx7JiqtRct+rEHu3QJzs7YvVvu7HslXLuGa9fQurVGSYiIiIj+Lc8fQRQkOrq6urq6Ot/rFHqi782ECfj5Z6SkqHMYDED+/Ni1C82b49EjNG6Mw4dzjSpbFklJsLPDrl1o0QJv32pa9QcFC+LAAdSsiWvXUL8+/vhDo2x9+sDDQ6MXPRMRERF9Qr0x9I3H7TscImtEmTTj7bO7V44mroiNP/M4E8ZlusyPn+fjpL3x7J9V1tunj548e/H6fXqmVGJgYmZmls/atoCpuu8bIvr66epi1SpUqYLt2zFtGkJDVc5gbIyEBHTpgrVr0awZNm2Ci0vOqDJlkJQEZ2ccOAA3N2zbBlNTuWlFEWlpCsfcW1pi5064ueHoUTRogF27ULGiyp/gg+BgJCVh+HA4OqJzZzWTEBEREf2HenP2lJH99OgkFxsJIOg6dl6bkp13O2nb+5Rja6YP7tK8lpOtiW6OO3eCoJ/PvmytFn5hERuS77yTfulqc/owBdHDw+NLF0Lfsq1bRUEQnZzUz5CVJfboIQKiqal48qSsqN9/FwsVEgHRxUVRwu7dRRMTcflyZTZ/80Z0dhYB0cZG/OMPVcr+r3nzREDU0xN371Y/CREREeXK19cXwHLl/s/9u5GHjyBKrOoMWR3j56AjZt1ZM3Dcnvd5t5XWSJ8dnx9Yt3jxuh0GTVu+4/j1R++ycjyBJYoZr1J+P7592aR+XnVKFK3pP/vwo+wvUSxRXnJzw44diItTP4OODhYsQEAA3r5Fixa4fj3XqA/3wRwccOmSold/OTjg3Tt06YKQEGRmyt/c1BTbtqFZMzx+/PFxSPX06oUBA5CZCS8vXLigZhIiIiKiv+XtGTDBskVvn5K6QPaDvbsvKPjC9MVl3FzpX6dh74XHHmZ86LoEHWMrh9JV6jZq2qxlqzZt27R2a+7S+Odq5YramOp9uDEmZj45FTvAuab3gssavP+V6Ovk6ooaNTTKIAhYsADNm+PpU7RoIasNcnLC77/j6lVI5P9CCg/H/PkwMEBEBFxdFQ6bNzREfDzq1sXNm3BxUfKlYrmYPh0+Pnj9Gi1byp+uT0RERKRYXp9l0i1dvowurqk0sv7LSD3xq1e3uD/SRQgGhWp36NnDx6NpnYoOZrlObpSmPrp68sCO9bELY3dce515J6Gf55CSJyKa5OOoEaL/0tPDhg1o0gTJyXBzw/79uZ70MjFRLltgIH76Cd7e2L8ftWphyxaULSsn/MNhtPr1cfEiPD2xfXuOkfdKEATExOD2bRw+jNatcfAgzMxUTkJERET0QV5PQRTT0tJEQNAv91MZvTzeSxPSO0uGz7yQLgo6hVvPOnL5SGx4gGtlGd0XAImRbbkG7QdGbDt/fmPfKiaCmPFH9IgF1/kkIlEujI2xZQucnHD6NDw8kJGhUbbatXHyJGrUwM2bqFULW7fKD7e2xq5dcHBAUhL8/RU95SiDoSE2bULp0jh3DsuWqZOBiIiI6IM8bsDEZ3t3nswEhPx2BY3zdiuNSO9uWnM4VYSOQ/dFy/tVy6/0jSyDoq1nrhlXz0gQ089s3PIXOzD6jj15omb7AsDaGtu3w9YW+/YhIECZ6fYbNyImRkagnR0OHED79njzBm3b4tAh+akcHJCYiPz5sXo1+vZVq37Aygp79iA8HF5eamYgIiIiQt42YNIXp+d2H7LxhRSCfvkq5b7mG2BZV85dzhQhsWnZrrG5imt1Sni1q6kHZP9xhbfA6Lt19SoKFUKbNuq8GeyD4sWxdStMTbFyJUaMUBjevz969ICfH9LTc7tsZITVqzF2LAoUUOaxwgoVsHEjDA0RFYWpU1UvHgBgb48xY1CwoJrLiYiIiKDmGbDMg7+1GXdA7mNEYsaLO79fufk0VSoCQn5X39Z2X/PxKDE9PUMEJKZmpqqXKTHPby4BxIz0DHW/mhJ97WxskC8ftmzB1KkYMkTNJNWrY9MmtGyJiRNha4uQEDmxCxagfXvExeHuXcTHw9IyR4QgYPRojB6t5OaNGmH1anh5YehQWFsjIECtj0BERESkGbUaMOnjC/v27ElTLljQLewxfbrPV91/Qce+iL0Ofs9OOX3mgbS2o2r3BVPPn7yUCUhs7Wzz+kgd0ZdiaYlly+DujhEjULcu6tVTM0+TJli8GF26YOBAFC4Mb29Zgc2b48gRuLvjwAHUqoVt2+DkpOaef/PwwJw56N0bgYEoWBAtWmiaMDsbPXvC0hIjRiB/fk2zERER0Y9AvY5B39xasQK2Dk41WvaasSN5TbeSeT1tUUO6ldxbFNGBmHpgcti6u6o8SCi+OTF1WOytbEisfm5U6Wt+zJJIQy1bYvBgZGWhUyc8fap+Hh8f/PYbpFL4+GDvXjmBFSvi2DFUq4YbN1C3rsKjXkoJCsKwYcjMhLc3jh3TNNu7d1izBtOmwckJCxeqf0SOiIiIfhxqNWAGrWPuPlHo8cM7105sm9e/ib2+tqvWPv1agX3rmwvIvrPar06zIctPPMj13Ml/ZL+8um2ab12Xscdei4J++R59XJScpE30rZowAT//jJQU+PmpfxgMwPDh6NcPGRnw8sL583ICCxVCUhJatsSzZ3B1xbp1ijKfPo0KFbBggZyQ8ePRrRvev0fr1rh2TfXi/8XcHMeOoVEjPHmCwEBUr66dLpGIiIi+Y4Koybeo70rmtYWejXtve5AtAhD0LEvWrFevVpWyxYvY21nnMzE01NcVM9PSUt8+e5hy96/r508ePZx86eF7qQhAkr/er7t2jKjxlTRg1apVO3PmjIeHx6ZNm750LfTduXsXVarg2TMMGYLJk9XPI5WiQwesX4/ChXH0KBwd5cRmZ6NfP0RFQVcXz57BXM6knMRE/I+9+4yq6toePvw7NAGx944KigW7gKhYiRWwd7CDsWE0CvEmAZKYYEejUbADVuzYRSxIE0Vj16hYsUSNXVTgvB80/n2jInD2oeh8hh9u2OvMOc8YuZrpXmuujh1Rqxk1ihkz0Pvwy/eUFLp1Y+NGKlYkMpJSpTL/PV4LDcXdnYQEgI4d+f13TE01jSmEEEJ89pydnYODg4OCgvr165fdtWSdHL41MCvpV3Vds8dwVG/3JccfpKpf3f8rcvNfkZs/+TGdfNV7Tw6aO6xeDum+hNCucuUIDsbRkSlTKFQIT89MxtHRISiI27eJiKBdOw4epFChj63V1WXuXOrV4+bNT12C3L49K1cycCC//87Zs6xZ88GzWbq6rFiBvT2RkbRpw4EDmp7gcnCgdWumTGHKFLZsYe9e5s3D2VmjmEIIIYT4LGlhasSrxAMBP4wY0K//sPFTVsTe1OzO1axlVM1l4eFz0ct+7GdXuYBe2mNDVHr5KzbuPXFxxNmjwV/XK5CjZ4wIoai2bVm7lrx5+ecfjeIYGhIaSq1anD5Np04kfWKwz+DBfP89qk/+f61nT8LDKVmS3buxsvrYLkMjIzZtwsKCEyfo3Pkjw+4zwsgILy/OnKFHD54+Zd06TQMKIYQQ4rOkwRZE9cMTK6dM+mPt/hstlpyb3/b1Qa/nh6d26Dhx3+3k11FVOoUbfLM8dErb3Dcf8NWDhOOH40+cu3jlxu17/zx5/jIZfaO8JiYmBYqVN6ta1aJm7ZqmBXPm0A3ZgiiyQlIShoYKxLlxA1tbrl7F0ZH169HVVSAmcOUKjo4cP06RIqxfj53dB1ddv46tLdeu0bMnK1ago9BvVH/9RYkSaW6VFEIIIYRsQcwY9f3wCa2dph99okanSON/e7iXx2eM8HrbfQHq1PtxM3r1MT28a6SZQv9ZlVX0C1as37pi/dbZXYcQOZQi3RdQpgxbt9K0KZs3M2QI/v4YKDG3p0IFIiPp25fNm7G3Z80anJzeX1W2LFu2YGfH6tWUKMGsWQpkBszNlYkjhBBCiM9PJv++99kBH1e/Y0/UoNLJU7iQ8etNQUkR8+cfea5W6VXoPGPXn8cPrvRoVkQH9cN9k37d8VjBooUQn5WaNdm4EWNjli6ldWvu3Enn5zp3plMnHn/sdxcTEzZsYNw4Xr5k9+6PBalVi02bMDRk9mzFGrD3PX7MTz9x9Ki24gshhBAit8hcA/YkbNGKhGQ1uuW7zD9259z0ZvoAL+NCt99MQaeg46/+Y+xrWTbu9dvaOV0K65B6Z/PqvU8VrVsIkbM8e8amTTx/nsmPN2tGZCQVKhARQf36HD6cng+dPMmmTbRty6NHH1mho8O0aZw9y7RpaSdfsgSVinHj2LIl48Wnw86deHlhZcW4cTyV3w2FEEKIL1imGrDkM9GHHqSiMrKbMGOIpYnq35/u2Xs9BZVJi27tir7+maqog3OHwjqkPow/dC5ZsaKFEDmOvz+dOtGmzceboU+pU4fDh2nWjOvXadqU4OBPfiIsjEqViIqiZUvu3//4uqpVP7lhslcvvL1JSaF377RvJsskJyfGjQOYMYOaNdm2TfkUQgghhMgVMtWApdxOvJMCOmUb1C/9NoD6/uHY8ymgX9uu0f/NBDQ0q1pBF1JvJd5OVaJeIUTO1KkT5coREYG9feanIxYtyq5dDB5MUhIuLnh6kprWbxwVKrB3L5Urc+QIrVtz714m0772ww84Ow2T3/wAACAASURBVPPkCe3bc/26RqHep6/PtGkcPoyVFZcv06EDDg7KZxFCCCFEzpe5LYipqamAytDI6P8mQr84Eh3/Uo1ueWvrMu9EfT1lUf3yxQu58FmIz1jFihw8iJkZhw7RsiV//53JOAYGLFyIvz96ekyejIMDDx+msbx8efbuxdyco0dp3Zq7d9ORIiWFKVPYtes/P1apWLSIFi1ITMTJSSsbBWvXJiqKGTMwMWHLFmrVYuFC5bMIIYQQIifLVAOmU7REUR1ITbx89e0tX6+O7tl/LxWdwo3tLN8Zzv7y8sWrKaDKVyCf3JQlxOetfHkiIqhRg2PHsLPjxo3Mh3J1JSyMYsXYtg1r64/d5fVauXIcOED16m/S3rr1qeAJCXh40K7d+wfD9PUJCcHcnPh4evYkJSXz3+BjdHX55htOnqRDB/75h6FD2b5d+SxCCCGEyLEy1YDpV29Q21hF6j/bg0P/fv1i6/HeZWsTUlCZ2LVtavx/Kx/uWbfrfiroVa5aObMT74UQuUbJkoSHU7s2Z8/StCmXLmU+lJ0d0dHUrMm5c9jaEhaWdtqwMKpV48wZfvjhU5HNzJg8GWD8eIYO5dWrdx8WKUJoKIUKsXUrEydmvvy0VajAli2sWYOLC/XqaSuLEEIIIXKgzG1BLPBVr/aFdUj9e+2w9kOmBa5a8kOvIYuvpqAysevY8s0BMPWzq+HTB4wKvpkKelVbNC+b665iFkJkQvHi7NlD/fokJNCyZebPgwGVKxMdTefO3L9P27ZvuqaPKFWKvXsZMoQ+fdIRecIEQkIwNmbhwvc3TFatysaNGBgwZQrz52e+/E/q3p1lyyhRQosphBBCCJHTZK4rUhXu7P29XQEVqQ8OLx7fv/egX7Zde6VW6VsM+65ncRWQenFW82Kmrb/dePmVGp3CbdwHW8oLMCG+FEWKsGcPTZqQmKjpZAwTE9atw9cXtRpPT/r1IynpY2tLlGDBAlq0SF/kLl2IiqJcOQ4exNaWs2fffWhn96b1Gj067XdvQgghhBAZk9nXUnoWo1ev+75FKf23J7t08tcfO9ezkREA6pSkpFdqNaDKW3PoYv+B5eX9lxBfkgIF2LePGzcwM9M0lEqFhwerVpE3L8uX06pVOo55pU/t2kRHU7cuFy7QuDEHDrz7cOBAPDx49YquXTl5UpmEn6RWM2kSK1ZkUTohhBBCZL3Mv5fSKd7qp7BzAw5u2xWX8A+FqzZz6NiglMGbhypdk1LmdZvXsHMaOMq1XWXjNCMJIT5HuroUK6ZYtO7dMTOjUyeiorCyYuNGZc5OlSlDRAT9+rFxI8OGcfr0uw9/+40rV1i1CkdHYmIoXlyBhGm7e5cffyQ1lYgIZs3CwODTHxFCCCFE7qLZxkCdfJXseg6z+8CDyiM2nhqhUWwhhPj/1K1LXBxdu3LwIHZ2LF+Ok1Pan4iNZckSfvopzd4pb17WrWP+fMqX/88TlYrFi7l8mZgYunRhzx7y5NH4W6SpWDGWLcPVlfnzOX6ckBBKl9ZuRiGEEEJkMdkZKITIPV5P+Bg0iKdP6dqVWbPSXr5yJf7+dOz4qUu9dHQYPpyOHd9/YmTEhg2UL09kJC4uqLV/n2G/fkRFUbEiUVHUqcO+fVrPKIQQQoisJA2YECJLnD1LjRrMm6dpHAMDFi3Czw+1mjFjcHMjOflja7//HnNz4uLo2TONVZ9QsiTbtlGgAGvW8NNPmQySIXXqEBeHvT1//429fdrTH4UQQgiRy0gDJoTIEv/8w9mzjBzJ2rUKRHN3Z/VqjIwICKBjRx49+uCqokXZvp1ixdi6lREZ3RQdE8OECa+nONaowapV6Onh40NwsMbFp0ORImzbxrhxJCfj6YmbW1a8fBNCCCFEFpAGTAiRJRo14rffSE3F2ZmoKAUCdutGeDjFi7NzJ02bcu3aB1dVrsyWLRgbExDA9OkZiT93LlOnUrcukZFA27ZMn45azeDBWbQtUE+PadNYuZK8eVm8+GM9phBCCCFyGWnAhBBZZcIERo4kKQlHR86fVyCgjQ3R0VhYcPw4NjYcPfrBVVZWLF2Kjg7jx2dkwruvL7a2XLtG8+ZMmYJaPXo0I0fy8iXduhEcnEWvpHr14tgxDh6kQIGsSCeEEEIIbZMGTAiRhfz8cHLi3j3at+fOHQUCVqpEZCTNmpGYiJ0dW7d+cFX37kye/Ob9VUxM+iKXKcP+/Xh5kZqKhwdffcXt235+dOrEvXs4O9OiBadOKfANPsnMDGvrrEgkhBBCiCwgDZgQIgvp6rJiBVZWXLyIgwPPnikQs3Bhdu6kXz+ePMHJiblzP7jq228ZPpykpIycQdPTw9ubTZsoUoSwMBo00I2JXL+eZcsoUYL9+6lTB3d3Hj9W4Etk1D//kJKSDXmFEEIIoSFpwIQQWcvYmI0bKV+eQ4cYOVKZmHnyEBj45m3VyJG4u5Oa+v6q339n+3Z++CGDwTt2JD6eRo24fp0WLVSrVrq4cPYso0ejVjN7NhYWBAYq8jXSKz6eYsWwsCAggBcvsjS1EEIIITQkDZgQIsuVKsW2bRQrRmKiYjFVKry9WbwYAwNmz6Z79/dfr+no0LZtpg5TlS/P/v18+y3JyURHAwULMmsWcXHY2JCYSP/+tGrF2bNKfJF0KFGCihW5cAE3NypWZOpUGdEhhBBC5BqZa8Ce3b165crVmw9efnppyuPbV69cuXrrcWbv4BFCfI5q1ODaNbZsUTjsgAFs307BgqxfT8uW3L6tWGR9faZO5cYNZsx4+7O6dYmKYtkyihYlPJxatfD0JClJsZwfU6YM586xeTMNG3LzJhMmULYs7u5K9rNCCCGE0JJMNWAvtg2vampaufW0k5/sqtT31wyoYmpaufmkeOnAhBDvypMHPT3lw7ZsyaFDmJsTG0ujRpw5o2TwUqX+U7NKhYsL584xejQpKUyeTI0abNumZM4P0tHBwYHYWLZvp1kzHj9m9mzMzPjtN62nFkIIIYQmtL0FUWVgYKCClFs3bsl5cSFE1jA3JyICKysSEmjShAMHPrZwyhTWr1cgYeHCzJrF/v1YWnLpEh064ODAlSsKRE6bSkXbtuzbR3Q0Tk68eMGqVVpPKoQQQghNpPOvn1Nvxqzbfe7Zm2tvXsVdSQH1w+OhQctOpNXCpSYl7p+/9wWASsNChRAiA0qUYO9e+vVjwwa++oolS+jd+z9LHj7ku+8A1q6lc+dMZXn1Cn9/2rbFzAxo0oT4eGbPxtubLVvYu5cff2TsWK285/sPGxs2buTKFYyNtZ5LCCGEEJpI538XJJ9e5j5w/s3/f6zYjVDvQaHp+rjKqFb9mvoZrU0I8SXx8mLHDhYtomZNZQIaG7NuHT4++PjQty/nzuHt/e7zAgWYNInvvqNvX8LDsbHJeIrwcEaNomhRtm+nQQNAT4+xY+nZk7FjWbMGDw9WrWLJEmrXVuY7pa1ChazIIoQQQghNZMEURJVOYetvfxlQUQYuCiHScOEChw7RuLGSJ6hej0b080NHBx8fBg/m1at3n3t6MmIEz5/j4MBff2U8fosWODhw9y6tWrFv39sflynD6tXs2kXFihw9SsOGeHnxMh1TixSXkkKrVnTpwq1b2ZBdCCGEEO9L5xsw/TqjVmzv9OLfLYgRv3addCClfC+/eQPMddP8oErXuJiZZU3TgvL+SwiRpsWL0dEhOBhHRyZNwsNDscju7lSoQN++LF7MtWusXUv+/G8f+vmRkMC2bXTsSEwMhQplJLKBARs2MGQIS5fSti0rV767l9HenlOn8PFh2jR++ol161i8GCsrxb5WeiQnc/YsiYkcPMjChTg6Zml2IYQQQrwvnQ2Yqkj15l9V//efXjxepAOpJpVtv2pTT/uHG4QQX4LXlynXrMnEiXh6cvEic+eir9Df3XTqxN69ODqyezdNmrB1K+XKvX6ip8fq1djZcfQoPXuybVsGj2zp6rJ4MQUL4udH9+4sXMiAAW8fGhnh64ujI4MHc+oUjRoxZAgzZpA3rzJf65Py5CE+nsGD2boVJyecnfnjD0xMsii7EEIIId6XqX2BuuYdRo0ZM9rFtrhsKxRCKEelenNqytiYBQto354HDxQLbmVFdDQWFpw4gY0NR4++fWJiwqZNlCzJ7t2MHZupsmfOxNeXlBQGDWLWrP88t7Xl6FE8PFCpCAigdu13tytqXYkShIbi74+xMUFB1K5NVFTWZRdCCCHEf2Sqg9Kr3X/KzJnTPdqXlQZMCKG07t0JD6dkScLCaNSIe/cUi1yxIlFRNGtGYiJ2dmzf/vZJuXKsX4+hIXPn8uJFpoJ7eDBlCsCYMe/Ptjc0xNeXw4epW5eLF2nZEjc3njzJ9DfJGJUKV1diYt5MyW/enN9+IzX10x8UQgghhOIU6aCSH107Ebk7NGT5ssWLQuLuqgG1Wq1EZCHEF8namthYatXi7FkuXVIycqFC7NxJnz48eYKjI/7+b580akR4OBs2kCdPZoOPH09AAKVLf2yLYZ06xMbi64u+PgEB1KpFWFhmc2WcpSWHDjFmDMnJTJzI6tVZl1oIIYQQb2nWgKkfnVjp2cmyZNEKtZp85dij34DBw7w3XU2BVwfG1a3Reui0rReeKlSoEOLLUr48sbGcOUPDhgpHzpOH4GC8vEhOZtgw3N359y+MGjXSeEzFkCHcuEGbNh97rq+PhweHD9OgAQkJfPUVLi78849mSdPN0JCZM9m5k379sLXNoqRCCCGEeJcGDdirSysGWtn0nbzp5L1X773uUr+6f27PwvEO9WwGr7yYHcOXhRC5nqEhFhZaifx6PP2iRejrM3s2AwZk8ZB4S0uio/H1xcCAoCBq1GDTpqzLbm9PUJBcGiaEEEJkj8w2YOpH+79zGhR47pkalV6R6m36j/Ho/s5VyzpFK1cpaqBC/fjkkoEdvw17IBsShRA5zaBBbN1K/vwEBtKunZIDP9JBTw8PD44cwcqKmzfp3BlPTzmXJYQQQnz+MtmAvfpz5pjfT71Qq/RNu86JvXBix9KZPj2q/d+VYLo1x+w+G/NHj8oGKvWLc/PHTD0ib8GEEBr76y++/Zbr1xULaG/Pvn2UKkV4OI0bc+7cuw+vXCE6WuMU589TuDA9epCY+P7DGjWIimLyZPT0mDwZJycePdI4Y6aMH0/Hjkp8XyGEEEKkKXMNWNLBhYtPvFSrDGpNWBM4vF7BD0VRFaw7LHC9l7WxSv3qzLJFBzI3V0wIIf5PcDDTp2NtzeHDisWsW5eYGGrW5PRprKxYu/btExcXGjdm+XLN4qtUpKQQEkL16syb9/5LLl1dJkxgzx6KF2fLFho2/E8bmEUiI9m6FVtbHB05cSIbChBCCCG+EJlqwJLP7TuQmILKsOXIkQ2M01iYx3LYqDb5VKTejow4m5zJEoUQ4o0xY2jRgsREmjdn2zbFwpYvT3Q0vXrx6BHdu+PmxqtXQJ8+qNUMGUJsrAbBzc05c4Zu3Xj4kOHDadiQI0feX9W0KdHR1KjB+fPY2rJnjwYZM2XHDn78kXz5CA2lTh2cnRUePymEEEKI1zLVgKVcu3w9BXQr1q9XVJXmSlWBWnUr60Fq4rUbcrZBCKGh10PkBw7k6VOcnFi0SLHIJiasXIm/PwYGBATQsiWJiW5uDB9OUhKdOnHtmgbBS5cmJITNmylXjvh4bGxwd3//FrBKlYiJwcmJ+/dp25bJkzX5PhmWPz8+PiQk4OGBgQHBwVhY4Ob2wY2TQgghhMi8TDVgKpWOCkBPT/dTS9UpyclqUKempMocDiGE5vT1WbwYX1+SkxkyBE9PFLx10NWVyEhMTTl4kDp1CAubNYtWrbh1Cycnnj3TLLiDAydPMmIEqanMnk2dOly8+J8lJiZs2ICXFykpeHq+fRWXdYoUwdeXc+cYNIjUVAICqF07i6eTCCGEEJ+5TDVgOiVLl9SFlCunz33imi/1o1Mnr6SAbrGSxT/ZrAkhRDp5eBAQ8GZyxdChJCu3xblBA+Li+Oor/v6btm31fvFesyrV3JyjR3Fx0bjXy5+fOXOIiqJWLS5eJCbm/SWvJ+SvWIGR0ZtXcXfuaJY048qXZ9EiTp6kRw9q1sTQMKsLEEIIIT5jmWrA9Ko3a1xMB/WjHQtWXE5rZ2HyhcCAXY/V6BS0tq2ul8kShRDiA4YOZcMG8uZl0SJWrlQyctGibNuGlxdqNT4+hQd12rr8QcGCrFvHL78oEf/1EJHjx+nT52NLevUiMpJy5Th4kEaNOHlSibwZZGHB6tXs3SsNmBBCCKGkzE1BNGrq0ttMT6V+HD6xn8/B+x/+O+HUO3v+18/rwBM1uqU79W5hokmZQgjxvo4d2bePQYNo0ULhyLq6eHuzeTOFChEaat7XKnTScV1dvLw4dUqJ+Pr6WFqiSusQ7evpjFZWXLpEo0Zs3KhEXiVcuEBQEI8fZ3cdQgghRO6UyXvAjBp7TulXXk+V+iDy59a1WwybujLsyNXHaiDl+T+3Lp86uMZ3YOPa7aceeqRGp2g7n/+1ya9o2UIIAUCDBixaRNmyWgneoQPHjtGwIX/91WSc9f7+i9u0oXRpraQCSEzkwoV3f1C6NPv34+zMkyd06YK3t5Ln3TLN0xMXF8qXZ+JEbt3K7mqEEEKI3CaTDRiqYk5zN81oV0ZfpX5xfb//hD72jcfteAHJ52a0LlexZtOe3y2NufVSjU5BK4+QZQNNM5tHCCGyU/nyHDjA0KEkJTVePHh7MZdChs+1lcvenho1CAh492eGhixbhq8vKhU+PvTurfEsEI1NnEjz5jx4wG+/YWqKqyvnz2dzSUIIIUQuokFjZFx71OYjYdOcG5Yw+NA2GpVugaodv1sbt//X5oXTnlUvhBA5mKEhAQEsW4axMUFBNGlCQoJWEnXtysuXuLkxYsS70w9VKjw8WL8eExNWr6ZFC06f1kr+dKpXj717iY/H2ZmUFBYsoFo1HByIisrOqoQQQojcQrM3U7ol7MYGHkq4FLt5oe94N5eenTu069Cph/PQb376I2Tf2SunQ3/tbCant4UQWSkwEBMTFixQOKyLCxERVKxIfDzW1q8vU05N5cwZ5VL89BPLl2NkxB9/0LIlt2+/+9DJiagoKlbk0CEsLenRg+PHlUudcXXrEhjI6dO4uWFgwJYtNG5MYGB2liSEEELkCkpsDTQq09BhsMeU+ctWrd+ybcuG1YEBM374upudWQHZdyiEyHK6ujx9iqsrP/6o8JGpevU4fJi2bfn7b1q1Ijra15fq1WnfnsuXFUrRpw8HD1K+PAcP0qDB6zbvLUtLDh1ixAgMDAgJoU4dunTh6FGFUmeKuTnz53P5MhMnYmmprbN4QgghxOdEeiQhxOelb1+WLkVfn59/ZsAAhW8yLlyYLVtwdubhQ+ztHYzCChdm+3Zq1mTGDIVuI6tXj+horK25fp0mTQgOfvdh0aLMmcOVK3h4YGTEhg3Uq4e9PbGxSqTOrBIlmDSJ48dp2TI7yxBCCCFyBWnAhBCfnf792biRvHkJDMTRkSdPlAyuq8uSJQwcyNOnlt91vDhzs7MzT58ybtybO5wVULo0+/bh4kJSEv37v38LWPHi+Ppy+TJeXuTPT1gYNjY0acLevUpkV05SEp6erF2bI4Y3CiGEEDlEOm5HfhU7a4hfzEvN8hjYjFnobq2vWRAhhEin9u3Zu5eOHdmxgxYt2LqV4sUVC66ry6JFmJjw++8Fh3YPXLmyd+8uw4fz55/Y2jJ8OJMmYaLh1Yevpx82bEh4+Mc29hUrhrc3I0cyZw5+fkRG0rIljRvj40OrVpplV8ipU0yeDGBjw9SpNGmS3QUJIYQQOYBK/cm/mXyxtkfB7iFJmuUx7B7yYE23PJoFEelTv379+Ph4JyenjTnn6lYhssWFC7Rty8WLmJlx4AClSikZXK3m22+ZMQNdXRYvftrVxcuLWbNITsbcnPh4jXuwjLh3j99/Z9YsHjwAaNwYDw8cHLKugI9ZsoT//Y+bNwE6d8bXlypVsrsmIYQQOYazs3NwcHBQUFC/fv2yu5asI1sQhRCfLzMzIiOpX58LFzh0SOHgKhXTp+PrS0oKgwblXb142jRiY6lfn4cPFT569klFiuDtTUIC3t4UKkRkJI6ONGlCfHyWlvG+gQO5cAFfX/LnZ8MGatTAzU2ubxZCCPFFS8cWRIO2fsfP/pyasbgpf0fPmzBhfszfyWpApVuwUH65DEwIkfVKlCAigvh4bG21Et/DA8DTkyFDePKk3ujRcXG8fEke7b3wT0ykdOkPPilYEC8vvvmG339n5kwiI7G1xdcXd3dU2fc7sLExHh7074+3N4sWERDAqlUsWkS3btlWkhBCCJGN0tGAqUxKm1fNQEj1kzOrfxw25veDt183X3mrdvWaP/ub5gaZrVEIITRhZETjxlqM7+FBvnyMHMmYMbx6pRo3Tovd18KFDB3K4MHMm4f+h4/V5s/P//6Huzv/+x+//84337BnD0uWULSo1qpKh5IlmT8fd3c8PAgNJTRUGjAhhBBfKIW3IL68HvZr57oN+syMuJ2sRmVQusWEkPj4kPHNS6Wj0xNCiFxq+HD8/VGp+PZbPD3ff+7vz86dSiSqXh1jYxYton17Hj5MY6GJCbNmsWkTRYqwZQs1a7JrlxIFaKZaNTZv5uxZ5s3L7lKEEEKIbKJcA5Z6/3DAkEa12ny/6cIzNSqdQnUHzYs8ETa5axVjxXIIIYQSHjxgxw5SM7i1Om1DhxIUhJ4ekye/2Zf4r1u3GDaMtm0ZPJhHjzTLYmtLVBRlyxIWhq3tJ2+AdnDg2DHs7Lh9m7ZtcXfP6sNpH1S1KsbyB4MQQogvlTIN2LO/1nva12o8bFH8P6lqVMaVnX7e8WfMIrcGhWXIhxAi5/nxR9q1o1cvXrxQMmyfPixfjr4+U6YwfPjbBq9kSebOxciIxYupVUvj27pq1yYmhjp1OH2ahg2JjEx7edmyhIfj5YWODrNn07QpCQmaFaAFf/+NhQVdurx/55kQQgjxudG4QUq+uX9aj3r1uk0Ov/FSjUqvRJMxK+KObfiffTk58yWEyKF696ZAAUJCaNv2zeB2pfTowYYNGBoybx7Dhr3twYYP5+RJmjblyhVatcLNjadPNchSpgwREbRvz927tG7NqlVpL9fVxdubPXsoW5bYWOrWZc0aDbJrwcuX3L7Nhg3Uro2zMxcvZndBQgghhNZo0oCpH/65dHhjy1YTQs49UYNOfst+syNO7pvZq7qJTDwUQuRgjRoRGUm5cuzbR5MmXLumZPAOHdi0CWNjFixgwACS3tyiWKkS4eH4+mJgQEAAtWoREaFBFhMTNm5kyBCSkujbl02bPvmJZs04dgwHBx4+pGdPXFx49kyDAhRVpgx//YWHBwYGBAdTrRpubty4kd1lCSGEEFqQ2QYsKWHLj+1qWQ+ad+heihqVoWk7r9A/44JG2hTVVbQ+IYTQiho1iImhVi1OncLGhuPHlQz+1Vds20a+fAQFUbfu212Cenp4eBATg6Ully7RsiV79miQRV+fBQvw9UVfP50v1IoUYdMm/PzIk4egIKysctCWv6JF8fXl7FkGDiQ1lYAAzM0ZP57797O7MiGEEEJRmWjAUu5Eze7boI7TzzuvvlCj0i1qM2Jp7LGt3u1NtTd5WQghFFe6NHv30rgxiYm0aPHJw1QZ06wZe/dSvTpnz2Jnx6hRPHny+kmdOsTF4elJ0aIfmySfER4eJCXRp086l6tUuLsTFUWVKpw6hZUVs2ZpXINyKlRg8WJOnqR7d5KSmDaNnj2zuyYhhBBCURlrwNSPT60Y08yy2ZgVpx6lgsqkWs9p4Sci5rjUKiCbDoUQuU/hwuzejZMT9+/TujWnTysZvH59jh3D1xc9PebMoWrVtxsF8+Tht9+4eRM7OyUTpl+9ehw5grMzz58zZgzOzhqPZ1SUhQVr1nD4ML160alTdlcjhBBCKCr9DdjLqzt/carTsN+syDvJalQGZVt/t/7okVVj7UrKFV9CiNzLyIh163B3p1gxDJQeHqSvj4cHR45gZUViIp060aMHd+8qnCVTTEwIDGTZMkxMCA6mShXmzyc5ObvLeke9eqxcyYgR2V2HEEIIoah0NWCp9+LmD7Su3f7H0EvP1ah0C9cfGhB9fNevncyMtF2fEEJona4ufn5cvYqZmVbi16xJdDT+/uTNS0gINWsSGPjBhVeupH27cvrcuEHXrmzfnp61Li4cOUKTJty+zddfY2mZnnEe2WzaNL75JgedXhNCCCEyJB1vr16Gu9drO/fqKzWAyqhSR89fx7Yq+/x0VEbOS+gUtbCpWkT2KQohvkw6Ori60ro1rq7s2UP//oSEMG8eZcu+XXLvHlWrUrQooaHUratBrqNHWb+eTZuYOZNRoz65vEoVIiIIC3vT1XTqhI0NU6fSpIkGNWiTnx83buDnR9OmfP01Xbsq/+ZSCCGE0J50NGDq+7fvvO6+APXzS6FevUK9MprHsHvIgzXdZEqHEOJLVqkSu3cTFMQ337BlCxERTJnC0KGoVECBAtjasncvTZuyYgWOjpnN0qEDP/2ElxejRxMdzYwZlCz5yQ+1bk18PEuW4OVFTAx2dnTrxm+/UblyZsvQmvBwZs8mKIiICCIiKFGCQYNwc6NCheyuTAghhEgHjS9iFkKIz9KBAxgaMnw4L18qGValwsWFkyfp0oWHD3Fzo3lzzp8H9PTYsYP+/Xn6lE6d8PbWIMUPPxAcjLExK1dSrRrz5r29EjoN+vq4unLhAr6+mJgQEvLmPq47dzJbiXZUqcKcOdy4wfz51K7N7dtvGkVHR27dyu7ihBBCiE9RqdXqTyxJPrZ4wqKjrzTLo1938JRBdWRcR5aoX79+fHy8k5PTxo0bs7sWIXKtI0do2pTnz2nUiLVrKV1a+RQrV+Luzt9/kzcvv/zC6NHo6ACzZjF2LKmpDBnCH39ouyr/rwAAIABJREFUMKo+IYFRo9i6FcDG5k2/kj43bvDTTyxaREoKhQrh4YG7O4aGma1Em6KimDePkBBevGDVKhlbL4QQuYmzs3NwcHBQUFC/fv2yu5ask44GTOQ20oAJoYxjx+jShYQEihVjzRqaN1c+xd27uLuzYgVAly4EBpI3L7BuHS4uPHtG69aEhFCwoAYpXs94vHEDIyMuX6Z48fR/9MwZvLwICQEoV47vv2fIkNdNYo5z9y7x8bRqha5udpcihBAi3b7MBixH/kEqhBA5wesrk+3t+ftv7O2ZPFn5FEWLsnw5mzdTqBDr19O0KdevA127smcPJUoQFqbBYbDXunbl9GnGjqVtWwoUyNBHq1VjzRp27qR2ba5dw80Na2t27tSsHu0oWpSvvvpA95WUlB3VCCGEEB8nDZgQQnxckSJs346HBykpeHq+ubpYcQ4OHDpEtWocPYqVFYcOATY2xMRgba3E5sf8+Zk+nfXryZOZUUhfffVmPke5chw+TNu2WFmxaRM5f//E5s3kz8/XX/PsWXaXIoQQQvxLGjAhhEiTri6+vixfjrExwcEMGKCVLGZmREbSqhU3b2JnR3AwYGpKTAyrVmklYYbo6DBgAOfOMXUqJUoQF0enTtSuzapVpKRkd3EfV6AAOjrMn0/dusTFZXc1QgghBCANmBBCpEvv3kRFUasW5cppK0WhQuzYwahRvHiBiwuenukZXaiRpk1p2JDo6HQuNzLi22+5cgV/f8qV48QJevfG3JxZs3jxQquFZlKzZhw5Qp06nD+PrS2enrzScKCUEEIIoTFpwIQQIn1q1+bPP5k2TYsp9PSYPRt/f/T0mDyZnj21uHlOrebpUw4fpkkThg3j4cN0fi5PHlxduXiRZcuoUoWEBMaMoUoVZs3SyvZMDdWoQUwMHh6kpjJ5Mk2b8tdf2V2TEEKIL5s0YEIIkcO4urJ1KwULsnYtjRtz7dq7D/v1o0wZ5szR+KWTSkVkJBMnoqeHvz9t2mSof9LXx8WFM2dYs4bq1bl6lTFjMDXF2zv9rVwWyZMHX1927aJsWWJjqV+foKDsrkkIIcQXTBowIYTIeeztOXSIqlU5dgwbm3cPMOnokJjIqFFUqcKCBZrtqTMyYtIkjh6lUiViYxkwIKODNXR06N6dkyfZvJmGDblzBx8fKlfG25t//tGgMC1o1Yrjx+nVi8ePGThQ9iIKIYTINtKACSFEZj19io8Pf/6pleDm5kRF0aIFiYnY2b25KwwCA9m9m3r1uHoVV1fMzQkIIDlZg0TVq7954bZmDV5emQigUuHgQGwsW7dia8u9e/j4ULEiPj48fapBYUorVIiVK1m3jmXLNLjeWgghhNCMNGBCCJFZERF4e9OsWfrnWGRM4cLs2sWIESQl0a8f3t6v31C1bk1cHKtWYWHBlSu4uWFpyfr1GiSysGDNGvT0+OWXt51eRqlUtG9PZCTh4bRqxcOHeHtjYcHy5TlrYH2XLvTtm91FCCGE+IJJAyaEEJllb0+vXjx8SNu2REZqJYWeHnPm4O+Pri4+PvTq9fqklo4OPXty8iTLllG5MmfP0q0bp09rkMjent9/R63W/IBUixaEhRERQcOGXL9Ov37Y2hIbq2FU7bp7VzYlCiGEyCLSgAkhRGbp6hIcjIsLjx7Rpg1792orkasrGzeSLx9r1tCyJbdvv83/ehLGggWMH0/lypplGTaM/fsJCNC8XqBJE2JjWbOG8uWJiaFRI3r04MoVRWIr7OpVypalbFl+/JGbN7O7GiGEEJ87acCEEEIDurosXkz//jx9SseOhIdrK1GHDkRFUbEiMTHY2nL+/Nsn+voMGcLkyeTJo3EWOzsFLzpTqejenTNn8PLC0JCQEKpXx9OTJ0+UyqCMQoWoXZs7d/j5Z0xNcXbm8OHsrkkIIcTnSxowIYTQjK4uS5bw9dc8e4aDA2Fh2kpUsyYxMVhbc+kStrZERaW9PD6e337L/m7H2Bhvb86fx9mZ58+ZPBkLCwIDc9DBsHz5iI3l8GGcnUlNJTiYhg1p0IDAQNmXKIQQQnnSgAkhhMZUKubMYcgQnj3D0VGzw1hpKl6cffvo1o1792jZkjVr0ljr68vEiVhZceqUtspJv7JlCQx8sxfxxg3698fa+pMtZJaqX5/AQC5cYPx4ChXiyBH698fSUuP71oQQQoj/nzRgQgihBB0dAgIYNQodHe2+NzE0ZNUqhg/nxQt69WLq1I8tnDSJmjU5cwZrawIDM5Vr/Xp27cp0pe+zsiIykmXLKFmSuDiaNKFHD65eVTCDpipUYMoUrl1j3jwsLUlOzkFv6oQQQnwepAETQgiFqFTMns2TJ9Surd1EurrMnYufHyoVEybg7k5q6vurzM2Ji2PoUJ4+pX9/XFx49iwjWVJT6d2b9u3ZulWpwgGVChcXzp/H0xMDA0JCqFGDX37JYG1aljcvw4Zx/DgXLmBomN3VCCGE+LxIAyaEELmTuzurVmFoyOzZ9OhBUtL7SwwNCQhg2TKMjQkKomHDjOyO1NHhxx9JSaF3b44fV7BwIF8+fvuN06fp2pUnT/jhB8zNWbiQlBRl8yjv4EFsbPj++xw60VEIIUTOJw2YEELkWt27s3UrBQqwbh2tWnHv3gdXubgQHU2VKpw+TaNGGZnUOHEizs48fkz79ty4oVTVb1WqxNq17NtHw4YkJjJ0KLVqERqqeB4lnT9PbCyTJlGpEh06sHlzLmgahRBC5CjSgAkhhDbt34+zMydOaCt+y5YcPEi5ckRFYWf3sQNVtWpx+DA9evDoEVu2pDu4SsWiRTRvzo0bODlpaZtgs2YcOsTmzZiZcfo0jo40akREhDZSKWDQIA4epF8/DAzYtg0nJ0xN8fHRRn8qhBDi8yQNmBBCaNOmTQQH06ABv/xCcrJWUrweT1+nDqdPY2PD0aMfXJUvH6tXv3l7kwH6+qxdi5kZR47g4vLBw2aKcHDg9Gn8/SlRgpgY7OxwcOCvv7SUTSONGxMUxPXrTJ9O1apcv463N6amjB+f3ZUJIYTIDaQBE0IIbfr5Z4YP59UrfvgBGxtOntRKltKlOXCAr77i5k3s7Nix42MLrawwMspg8CJF2LyZggVZt44ff9Sw0jTo6+PqysWL+PqSLx9btlCjBm5u3LqlvZyZV6QIY8dy5gzh4fTqhY4OsbHZXZMQQojcQBowIYTQprx5mTuXAwcwN+fIEerVw9OTly+VT5QvH6Gh9OnDkyc4OLBwoZLBq1VjzRr09Pj1V/75R8nI78mbFw8Pzp7F1RW1moAAzMzw9OTRI62mzSSVihYtWLmSe/eUndgvhBDisyUNmBBCaF+TJsTH8/XXJCczeTKNG2vlsmYDA4KD8fIiORlXV7y90/Oh/v3p0CEdl3HZ27N5M7NnU6iQxoV+WunS+Ptz4gTdu/P0KZMnU7kys2Zpaxen5kxMPjCwftEiTE0ZMYKYmOyoSQghRI4kDZgQQmQJExP++IPduzE15fBhWrXSShaVCm9vZs9GRwcfH7p14+bNtD8RH8+2bVSrho/Pp6ZstGvHyJEKFvtJFhasWcP+/Vhbc/cuY8ZQvTpz5/LkSVZWkXn37nHlCn/8QaNGWFjw668569ZpIYQQ2UIaMCGEyEKtWnH8OGPH4uamxSyjRhESQr58rFtH9eosWIBa/bG14eH07Mnz53h7Y2HBihVprM0ednZERxMSQpUq/PUXI0dStixjx3LxYnZX9ikTJnD8ON9+S6lSnDvH//5HxYq0asWyZTx9mt3FCSGEyCbSgAkhRNbKl4/p09O5PzDzOnfm7Fm6dOHBA1xdsbPjzJkPLixWjFWriImhUSOuXaNvX6ytiYxMX5bnzz92+ZiyVCq6deP0adaupVkzHj5k5kyqVMHJiT17clzH+C5LS6ZO5do1tm2jd2/y5CE8nAED6Nw5uysTQgiRTaQBE0KIz1Tp0qxbx+bNlCnDwYPUrp3G/A8rKw4eZMkSSpUiLo6mTZk4MR0pOnembFkCA5Ut/GN0denalX37OHoUV1cMDdm8mdatsbBg1qwc/U5JV5d27Vixgps3WbgQe3tatvzvmqQk5s9n6VK2biU2litXtHTvmhBCiGwmDZgQQuQAV64wcCCHDysf2cGBkydxdX0z/6NBg49NhNDRYcAAzp9n4kTy5GHv3nQEt7EhKYn+/fHw0N4VYe+rUwd/f27cwM+P8uU5f54xYyhTBnd3Ll/Osioyo0ABBg9m1y48Pf/7aONGvv6agQPp2BEbG0xNyZsXExMqVqRpU6Kjs6NcIYQQWiANmBBC5ADh4SxdSrNmrF+vfPCCBfH3Z/9+LCw4cYLGjXFz4/HjD641MWHSJG7cYM+edET29iYgAH19pkyhY0cePlS28LQVLIi7O5cuvXkP9vAhs2dTuTIODoSF5eh9iR/Uvj1eXvTvT/v2NGhAuXIYGfH0KZcvc/BgujeFCiGEyPGkARNCiBzA2ZmhQ3n2jO7dmTZNKymaNiU+Hi8v9PQICMDCgg0bPra2cGGMjdMXduhQwsMpVozt22nShIQEpepNJ11dHBzYvZtDh+jXDz09tmzB3h4rK23deq0l+fPj7f1mC2JcHFev8uwZjx9z4QJHjzJ27H/Xx8byxx859JZqIYQQaZAGTAghcoDXTZGfH8D48QwZwqtXymcxMsLbm7g4rKxITKRLF3r04M6d9Hz0xQscHBgyhBs33nvWpAnR0VSvzsmTNGzIvn1K150uDRsSFMSVK3h5UaIEhw/TsCF//JEttSjGxITKlalTB533/rgeN44RIyhXDkdHNmzQyr8vQgghtEEaMCGEyDHc3QkJwdiYRYto315bO/pq1SI6Gn9/TEwICaFqVQICPrlj79kzIiJYtAgzM9zdSUz8/x9XrkxUFO3ace8ebdpo5Zrp9ClZEm9vLl3C1ZWkJEaMoFOnrJnUmNX8/OjSBR0dQkPp0uXNaP7c9dJPCCG+TNKACSFETtKlC+HhlChBWBhNm3L9ulay6Ojg6srx47Rpw4MHuLl98l6yQoWIj6dnT16+ZPZszMz45pv/f/9bgQKEhjJhAuXKkTevVspON2Nj/P1Zv57Chdm0iRo12LkzeytSXoMGrFvH9evMnImlJXfuvPkfVlYysUMIIXI0acCEECKHsbYmJobq1Tlx4s2mRC2pWJEdOwgMJG9eFixgxoy0l1eqxKpVHDtG164kJeHnR+XKjB37zh5GXV0mT+bCBSpU0GLZ6da5M8eOYWfH7du0a4e7+8eG8OdixYoxZgzHj3P4MCNGUKgQcXGsWpXdZQkhhPg4acCEECLnMTUlMpJff2XkSK3ncnYmKAgdHcaPZ8uWTy63tGTtWo4do3Nnnj9n5kyaN9d6jZlWrhzh4fj6oqfH7Nk0acKFC9ldk3bUr8+cOSQmsmcPP//836dr1mBggLk53brh48OGDVy8mPsGRQohxOdBGjAhhMiRChbku+8wNc2KXJ074+VFaip9+qTzFFGtWqxfT3w83bvTocOnVs+ahb8/ycmaV5oJurp4eBARQaVKxMVRvz7BwdlSSFYwNKRlS/Ln/+/P8+RBT48LF1i3Dm9vunTBzIz8+WnUiAkTeP48O2oVQogvlTRgQggh4Icf6N2bx49xdOTu3XR+qE4d1qxh6tQ0FyUl8e23DBtG3brpu1xMK6ytOXqU3r159AhnZ1xcePIku2rJBk5OPHzI8eMsX46HB+3aUaYMT54QE8PUqXLJmBBCZClpwIQQIvc4elRbbytUKhYtwsqKhAS6dtXwsNSGDfzyC/fvA2BoyObNVKrEyZO0bk2XLly6pEjJGZU/PytWsGwZefMSFPRmGOSXQ18fS0v69MHXl23buH6de/fYs4fly2nZ8r+L9+8nKOhDVw4IIYTQmDRgQgiRS0RHU68eNjbaGo1oZMTGjZQpw4EDH7j3NyO8vPjhB8zNmT+flBRo146zZ/HzI39+NmzAwgJ3dx49UqrwDHFx4fBh6tYlIQE7O7y9SU3NlkKyX+HCtGxJnz4fuGSsTx9cXChblpo1GTuWHTt49iw7ShRCiM+RNGBCCJFLVKlCtWocP46trbYu2ipVik2bMDZm7lzmzct0mBUraNWK+/f5+ut/p6Lr6+PuzpkzuLiQnMzs2VSrxvbtCtaefhYWREczejQpKfj40K4dR49mSyE517x5ODqSLx+nTjFzJu3aUbgw7dqxYgUvXmR3cUIIkctJAyaEELlEkSJERtK0Kdeu0bQpUVFayVK/PkuXolIxenSmj2zVrElYGJs3Y2pKfDyNG+Piwu3bULo0y5YRHY21NYmJTJqkbO3plycPs2YRGkqxYuzaRb16tGrF9u0yGPANR0c2beLePfbv5/vvsbIiOZkdO+jbl1Gjsrs4IYTI5aQBE0KI3KNQIXbvpls37t+nZUvWr9dKlu7d8fQkOZkePTSZ2u7gwKlTfP89efIQFETVqixeDIC1NdHRbNrEokVKlZw5HTpw8iTjxpE/P+HhtG+PpSVLlshLnjf09bGz4+efiY3l9m3mzaNDB1q3zu6yhBAil5MGTAghcpU8eVi1Cjc3XrygRw8WLNBKll9+wcmJ+/dxcODBg0yHMTbm5585eZKOHXn4kDFj/n2gUuHoSNWqihSrieLFmTaN69fx86N8eU6dYtAgypfH25t797K7uJykSBGGDWPLFnr0+O+js2cJDEz/7EwhhPjSSQMmhBC5ja4u8+bx/fekpODmRlCQ8il0dAgOplYtzp6lVy9SUjQJVrkyoaGEhbF1q1L1KSxfPtzduXCBNWuwsuLOHXx8MDXFzY3z57O7uBxv7Fj696dMGTp1Yv16eX8ohBCfIA2YEELkQioVP//MnDno6XHrllZSmJiweTPFi7NzJ56emsdr1YqmTdNc8ccf5MvHwoWa58ocfX26dyc2logIOnbk6VMCAqhWDQeHL2tgfUZ5e9OxI6mpbNpE166ULk3v3ri74+NDXFx2FyeEEDmPNGBCCJFrjRjBgweMH6+t+BUqsH49efIwbZqW9jquX094+L//oKvLkycMHcrIkbx6pY106dSkCaGh/Pkn/fujp8eWLdja0rw5oaFf7sz6NFhZERrKjRv4+VGvHvfvs2oVs2fj7U3//v9d/OoVzZtjZoaVFW3b4urK1q0aXjsnhBC5jDRgQgiRmxkbazd+48bMnw8wYgT79ysb+/FjunWjVSu6dOHiRXBzY/lyjIyYO5dWrbhzR9l0GWVpydKlJCTg4UHBguzfj6MjVaowfTr//JO9peVExYvj7s6RI5w8SWAgfn54eTF79n+XvXzJuXNcvEhcHDt3smABHTtSqhSDB7N7t/S3QogvgjRgQggh0jRgAGPG8OoV3bpx6ZKCgfPlY/ZsTEzYsIHq1Rk/ngft+3DwIOXKERFBgwYcOaJguswpXRpfX65eZeZMKlbk4kW+/ZayZXF15fjx7C4uR6pRA2dn3N3x9v7AyMS8ebl8mb/+4tAhduzg11+pXZv791m8mK++4qefsqNiIYTIWtKACSHEZ+TBAyZN4soVhcNOm0aHDty9S5cuPH2qYOCRIzl3joEDSU5m2jSqVGFebL3kgzFYW3PtGs2asXatgukyLV8+xozhwgV276ZjR54/Z8ECatemQQMCA7N3v2TukycPZmY0bEibNnz3HceOceYMPj40bkzDhtldnBBCaJ80YEII8RnZsIHvv8fGhmPHlAyrq0twMBYW/PknnTvz6JGCsUuXZvFi4uJo1oy//2b4cGq3K31oyj6cnXn6lB49WLVKwXSa0NGhdWtCQzl/Hg8PChfmyBH696d8eTw9uX49u+vLtSws+PFHDh6kQ4f/PgoL44cfOHQoO8oSQgjtkAZMCCE+Iz160Lo1t27RrBl79yoZuWDBN0MRd++mSRPFX7LVq8e+faxbh5kZp08zxtOQwECmT8fQMAfONTczw9eXK1fw98fSklu3mDyZypXp0YOwsOwu7vMyeTK//IK1NSVLUrnym1+VKlG4MPb2HzgzNnAgJUvi6srhw9lRrhBCpIM0YEII8RnJm5etW+nVi0ePaNeOgADUasWCm5sTE0P16pw4QYMGHDyoWOR/denCqVMsWsSsWQCMHcuzZx8YpZczmJjg6sqffxIWRufOpKQQEoK9PQ0asGQJz59nd32fhfnz+eYbypbl9m0uXXrzKyGBf/7h3LkPXFCXmMjt2yxYQMOGNGhAQACPH2dH3UII8XHSgAkhxOfFwIDlyxk9mhcvcHPD3p6EBMWCV6xITAzt23P3Lvb2rFihWOR/GRgwaFBuOgukUtGqFevXc+kSnp4ULcqRIwwaRKlSDB8u72E0VbkyM2Zw5QoJCVy8+ObXpUvcv8+lS+jr/3f9jh2cPMnYsRQpwpEjuLlRpgzDhhEfnx3VCyHEh0gDJoQQnx0dHWbNYvVqihdnzx4sLVm+XLHg+fKxaRMjRpCURL9+eHsrFvnjUlOZMYNNmwA4dowdOz7w7iO7lS/Pb79x7RpLl2JtzcOHzJtHw4bUqcPvv3P/fnbXl5vp6GBqSqVKb35VrEihQujpfWClSkWNGkyfzo0bBAdjZ8fjx/j7U78+gYFZXrcQQnyINGBCCPGZ6tGDU6fo04enTz9wH5Mm9PSYMwc/P1QqfHwYOFDbN+leusS4cXTqhJ0dTzv0oF07zM3x81N2HIgiDA3p35+YGM6cwcOD4sX5809Gj6Z0aXr0IDQ0B3aOn6c8eejbl/37OX2aMWOoXp2yZbO7JiGEAKQBE0KIz1nRoixfTmQkq1crH9zdnS1byJePpUtp2ZK//1Y+xb/MzAgIoGhRIiIYmDjpioE5CQl88w3lyjFuHJcvay91pllY4OvLtWts3kz37m9OiDk6YmqKp2fOLPnzVK0aM2dy6hQtW/730a1bnDolp/WEEFlNGjAhhPjc2dpiaqqVyO3avbk3OTISW1vOndNKFgCGDiUhgenTiS3fvdLLs05sijJozqNHzJiBmRnduxMVpb3smWZggIPD/2PvvuOqLP8/jr8AkSGI4kIQUESGe6EhZg7cIpYrt5UbclSKVuboW6LmLDU1FzjBStyIe4ELEZTtwoGKOFARFTi/Pzy/TMLUhHMf4PN8nAcPuM917uvNCYnPfV33dREQwKVL+PpiZ8fVq+olE1u3JjAwv8cOxb+pU4eaNTE2plIlPviATz/lhx9Yv54TJ7Rw6U0hROEhBZgQQhQ9KhXHj+fN/sG1axMWRoMGJCbSpAn79+fBOV/BxIQvvuD8eVav1b1av7Pb0331Cd9o3B89PTZuxM2NXbvyr/d3ZGWFjw8JCezaRc+e6Ouzezc9emBlRcuW9OvHuHHMncuGDRw6RGKiDMtoQt++ODhQvDjXrnHwICtW8O239OpFo0a4uysdTghReOV2B6sQQojCbd06+vShTh1WrKBevXc9m6UlBw7Qpw9BQbRty9Kl9O+fFylzV6wYvXrRqxf79vHzz/W2llzVbZovCxYQGoqdXf71myd0dWndmtatSU1l9WqWLSMq6pUbtpmZYWWFhcWLj61aUbOmZhMXarNmMWsWWVlcucL58yQmvlhosXHjnI3T0xk0CDMz2ralVStMTZVILIQoFHRUebhFjNAODRo0CA8P9/T03LRpk9JZhBBa6cIF2rTh/HmKFWPcOL77DgODdz1nVhbffMP06QAjRzJnDrpaMMniyBGys2ncmOLFlY6Su/h4Ll3ixg2uXVN/TE7m+nWSk3OfBdekCUOG0L07xsYaz1q0JSbi6Kje+llfH1dX2ralbVvq1dOKn3QhCqh+/fqtXr3a39+/b9++SmfRHBkBE0KIosfOjshIvv2W+fP58Uc2bWLtWurUeadz6unh64u9PSNGMH8+16/j54eRUR4lfgtr1rBgAf37M6Rrqm6zZmRnY2xM06a0bEnLltSvj56e5lO9ioMDDg65P5WaSnLyi8Ls/Hl+/52jRzl6lNGj6duXIUOoVUuzcYswe3vCw9m8meBgjh3j4EEOHuSbbyhfnrZt8fXF0lLpiEKIAkIu2gghRJFkbMzs2Rw6hLMz0dG0b8+1a3lw2kGD2LIFMzM2bsTVVZGFMc6cITSU4cPp0Nf80RcTqVmTx4/ZtYvx42nUiDJl8PRk/nzu39d8trdSpgw1a9K2LQMG8PXXLFvGjRsEBODuzr17/PILtWvTsCFLlvDokdJZi4Y6dZg4kcOHSUlh40YGD8bWllu38Pdn82alwwkhCg4pwIQQoghzdSU8nJYtSU7mo4/IyMiDc7Zty+HDVK3KmTM0bcqAAdy4kQenfWO+vgQEUL48wbt0qq2ZvP/nKG7cYP16hgyhWjXu32fzZkaN4ocfNJkqTxga0r07ISFER+PjQ5kynDrF0KFYWjJ0KBERSucrMkqVomtXlizh0iViYvj9dwYOzNlmwQIcHWnTBi8v5s1jxw7OnyczU4G0QghtIwWYEEIUbYaGBARQpQrHjzNzZt6cs2ZNoqKYNAkDA/z8sLdn8mSNLbiuq0v37kRF0aYNycm4uzN5Yfmsbj1ZvJj4eJKSWLkSb+98XSkkvzk74+vL1avqAbG0NJYsoV499YDYw4dK5ytKnJz46CMMDXMeT0wkPp6QEBYuZPRoOnTA3p4SJXBy4tNPZfsBIYo0KcCEEKLIK1OGzZtp3hwXlzw7p5ERkydz7hzdu/PoEVOmULu2JpeJL1+e7dv57jtUKqZMoW1bbt4EwNqaAQP4+edc1hOMiCAmRmMJ391fA2KRkXh7U6qUekCsUiV69mT6dEJCSE1VOmVRNWcOCQls28acOQwfjrs7trZkZhIXh58ft24pnU8IoRxZBRGAzJMLRyw48UzH2N5zzBee9grcNJ6XZBVEIYR22b2bkSPVtU2nTixYgI2Nxjrfs4c+fbh5E3d3QkJe3S4zE1NTnj1j0CC+/55y5TSWMK+kpxMQwJIlhIa+dNzWlvr1XzwsLBTKJyAjg4Qrj1XGAAAgAElEQVQEdHWpUSPnU336kJpK+/Z07Ii9vRLhhFBC0VwFUUbAAMi6tN9/5cqVKxZ++1F9l76/HEvNVjqREEIUHu7unDnD3LmYmLB1K87OTJ6c+yLr+aBVKyIi6NePHj3+tV2xYowdi64uixdTrRqzZhW4WWLGxgwcyNGjxMayYgUjR+LmhokJly/z559MnEjHjlSsiJUVHh5MnszmzVy9qnToIsbQkFq1cqm+srLYu5fgYEaPplo1HB358kv27ClwP4NCiDciBVgO2Q/OrRn5fp3WXwddyIt70YUQQgDo6zNqFLGx9OtHejpTplCrFjt2aKZzCwv8/Bg8+HXtpk5Vz5m8f5+vvqJGDQIDNZEvrzk6MnAg8+Zx+DAPHnDtGps3M2kSnTpRtizXr7N1K1Om4OmJtTUWFvTvT2AgaWlK5y7C9PSIjmb1anr1wtyc+Hhmz8bdnXLl6NaN6Gil8wkh8pQUYC8pVrVd7+aWxTKv7Z32Ub1GAxYeS8lSOpIQQhQeVlb4+bF3LzVqkJBAhw54eHDpktKx/qZaNQIC2LkTZ2cSE+nRgzZtiI9XOtY7sbRUD3lt2cKtWyQksGEDPj60bk2ZMty8ib8/PXpQoQLt2jF/PomJSicukkqXpk8f1q7l1i0OHsTHh1q1SEvj999ZulTpcEKIPCUF2Et0yracvOvMwXm9q5uq0qL8vN0c6vaY+mdMmtwnJ4QoWmJisLFhzpx8OXmLFoSHM326ekZijRrMmIHGb0iOi2PFCrJyvczWti2Rkcyfj7k5ISH07q3hbPlHRwd7e3r0wNeXXbu4fZuzZ/H1xd2dzEyCgxk1imrVqFqVoUPZskVjE0XFC3p6vP8+vr5ERnLpEv7+fPttzjbBwdSoQbduTJ/O3r3av6edEOIlUoD9g27Z9z5fcyL8j2/a2hpk3zsbOKlrnWrvfTJ718V0pZMJIYSmPH7M9et89RVBQfly/uLFGTeO2Fh69eLxY3x8+Phj0jX6a3bsWD79lJYtX7EBdbFifP45CQlMnIiPjyaDaViNGvj4EBKi3uV5yBAsLLhwgSVL6NwZc3Nat2bePK5cUTpokWRrS9++lCmT83hCAtHR/P4748fTqhWlS+PkRN++zJ1LeLgSQYUQb0MKsNwZ23f5347IE6vHfGBZnGe3jq/8sl11p+bDfvr91A25GiiEKPzq1+fHH8nOpm9fzp7Nr16srFi7lq1bMTMjIIAPPnhFMZQvvvkGKysOHqRuXWbO5MGD3BqZmzN1Kt27ayyVgsqUoXt3Fi/m6lUOH2bCBOrWJT2d3bsZPRobG1xcWLCAu3eVDirA25voaPWGdo0bY2BAXBxr1jBmDA0bEhWVl32pVLIWiBB5TAqwV9MpWbP37H2xpzd807FqCR1VxpUDi8d2c7GxqtXJ+6eNJ5KlEBNCFGrjxtG7Nw8f0rkzt2/nY0cdOnDiBI6OnDyJiwsnTuRjX3/TuDGnT9O+PbdvM24ctrZMnEhKypu9+MaNV0xeLAz09HBz48cfOX2aq1dZsoQPP8TEhJMn8fbG0pI+fdizh2xZL1hRzs7qDe3CwkhLIzycxYsZNIiePalcOWdjLy/KlcPVlUGDmDWLnTu5dImMDK5fz33xlZ9+ws0NJyfKlUNPj5Il6diRZcvy9zeBEEWISqhUqozA7oYA+o1nxGfm8vzjy3t/Gd7cxkjnr/dNR79MjbYDx81Yvvlo3O2MbI0n/jf169cHPD09lQ4ihCjgHj9WubioQNW6tSozt1+OeSg1VdWihQpUhoYqf//87etlwcGq5s1VoAKVsbHqiy9e972eOqXS1VXVq6eKiNBQRC2QkaFav17Vpo1KV1f9XlWurJoyRXX5stLJxBv47DP1f7V/PsqVUz15krO9o+NLbfT0Xnzy1VdKfAOi8Hq+/Ze/Zn/tK05GwN6IoU0Lr4X74uL2//b1x42tjHRA9Sz1XPDKGeM+7dzEqXwpi+rvfzj4m41xhfZ6qBCiSDI0ZONGypcnJIQJE/K3L3Nzdu3Cy4uMDPr3Z/x4jY2wtGnDvn2EhtK5M48fM3s2Fy786wssLbGz4/RpXFyYPJlnzzSTU1kGBvTsSXAwSUn4+mJnx6VLTJpElSq0bo2fn4bv4BNv57ffuHmTvXtZuBAvL1q2xMKC4sWpWJFmzdDXz9l+714OHyYmhlu3yMoiOZmlS2nfHj09YmOV+AaEKGSUrgC1w+tGwF7yNCUyaO6ozrXK6uu89FYadg/M0ETY15IRMCFEXjpwQKWvrwLVhg2a6G7xYlWxYipQdeumevRIEz3+zblzquDgN2iXnq7y8VGPC9SsqTpxIt+TaZmsLNWhQ6ohQ1TGxuqxkVKlVEOGqE6dUjqZyE/p6bmMD9+7p1q2TBUZqUQgUfDJCJh4M/pla3UeNTco8srlE5t/nTSkU8NKJfR0Xv8yIYQomJo1Y/58dHQ4cEAT3Q0ZwtatlCrFxo24uZGUpIlO/1/16rRpk/OgSvWPxUGMjPD15eBBnJw4exZXV8aPL1JLtuvq0rSpesWOX36hfn3u3WPJEho0oGFDfvyRVavYvp0TJ7hyhcePlY4r8oiREXp6OQ8uWcJnn1G7NtWqMWGChv/JClEgFVM6QAFmWLGBx9AGHkMn8/ROwslDB0IzHP7xW0kIIQqDYcNo0oRq1TTUXdu2HDtG585ERODqyqZNuLhoqOvczJ/P6NE0bsyECXh4oPvXpcsmTQgP59tvmTeP6dPZto3du6lQQcGomle6NF5eeHkREcHy5axZw6lTnDqVs5mJCRUqUL485cpRtiwVK1K2LOXKYWdH48Z/e0tFAdS3L4mJbNpEYiK+vsyeTd++jB+vuV8YQhQ4UoDlheLm1Zp4VmuidAwhhMg/tWtrtDsHB44epVs39u2jWTN++40+fTQa4G/q1qV8eY4do0sXHBwYNYoBAyhRAgAjI2bNols3Pv2Us2eJji5qBdhf6tZl/nxmziQoiGPHuH2blBRu3uTWLVJSePiQhw85fz6XF1aqRO/e9Omj6R8xkVcqVmTxYhYu5MgRlixh/XqWL2fVKnr0YPJkHByUzieE9pECTAghhFZ6vizH6NEsWEC/fkRF8eOPioyVfPABFy+yfDmzZxMfj5cX337LkCF4e1OpEgCurkREcP481atrPp5WMTCgRw969Mh5/MEDkpPVVdmtW9y8SUoKt28TFsaFC8yYwYwZ1KpF37706oW1tRLRxbvR06NZM5o1Y8oUfH3x82PdOi5d4uhRpZMJoX2kAANAz6nL2PFVn6Fn3bi0TIQQQog3kZ6OsXH+dlGsGL/8Qu3aeHkxfToXLrByZb53mhtjY7y9GT6cTZuYM4cjR5g+ndmz+eknRo4EwMBAqq9/YWqKqWnugyGnTuHnx/r1REXh48OECbi60r07ffpQtqzGg4p3VrUqS5fy3Xf89hv16yudRgitJNUGAMVq9p46bdq0af8b0aysrKchhBCvNX48Zcrg56eJvoYMISiIkiUJDMTVlT/+UGoPYD09unbl8GGOH6dXL4CEBEWCFCoNGjBvHtevExJCv34YGXHkCKNHU6kSHh6ywH1BZW3NlCl4eiqdQwitJAWYEEKIt2dpSUYGAwcydSoqVb5316EDR49StSqRkXTtiqMjv/6q4OJ6Li6sXcv9+8yf/+pGV67g4MDEiZp4fwo+PT3c3fHz4/p1VqzA3Z3MTLZuZcAAKlVi2DC2bVMv7/HPR3w8Fy68eNy4ofQ3I17ts894/302blTqKooQWkGmIAohhHh7I0dSogTDhjFpEhcusGQJxYvnb481ahAVxfLlzJlDYiLDh/Pdd+oF+BSaqWZklMvBpUu5fJlBg6j8+CGXL/O//3H7NgsWyEp/b6hkSQYOZOBArl9n3TpWryYigsWLWbz4LU7StCne3nz0US5bDAtlxcQQGsrhwzg60ro1detSty41a2JgoHQyITRIRyVX5t5Rxt3kO+nZKtAxKmNpbqh0HKBBgwbh4eGenp6bNm1SOosQolDbtYvu3UlLo2VL/vgDMzNNdJqdzbZtTJtGaCj8/7IPX3+Nk5Mmen+dKlW4dAk9PTp2ZGLDHQ2ndeXxY3r1YtUqqQb+m3PnWLOG48e5dy/3Bg8ekJn54suUFB48AKhYkSFDGDIES0tN5BRvIiODFSuYMYNLl14c1NenenWmTqVzZ8WCCaX069dv9erV/v7+z3dkLiKkAHtXT4L6lvtwzQMVGHYPvBfQTQsu4UgBJoTQnMhIOnbk6lVq1GD7dmxsNNf14cPMn88ff5CVha4uHTowYQJNFN4SJDqaGTNYv169LXPPigdX3fEweJKGhwcBARhqw2W6Qi4jg4AAZs/mzBkAPT3at2fUKFq1Qkdu89YOz55x4ACnThERQUQECQlkZTF0KL/++lIzlYrQUCwtsbbOZQNoUTgUzQJMZkRorwkTJuj8J+Hh4UBqaqrS34EQogioXZvDh6lenXPncHXl2jXNdd20KQEBxMYyciQGBmzdipsbTZsSGEhWluZivKx6dVau5MoVpk+nalU2JDdze7L3NmXZsuWpewcePlQqWNFhaEj//kREcPIk/fqhq8vWrbRujbMz8+bJfwGtoK+Puzs+PqxbR0wM9+8TEcHcuTmbbdiAmxtVqlC8OBUrUrs27doxYAA+PixYQFqaEtGFyAtSgGkvHblSJ4QoEGxtOXKEli1JTtZoAfacvT3z5nH+POPHU6oUR47Qowe1avHrr1y5oukw/69cOcaNIz6e4GBsPmzQRm/PTSoUP7KPjh3V0+NE/mvQAD8/kpLw9cXamrg4Ro/GyoqhQzl3Tulw4m9KlKBOnVyGh997jw4dqFgR4MYNoqIIDsbPjxkz8PZm6dKc7W/dYulSkpI0kVmIdyFTEN+V6u75Uwm3s1SgW6ZaQ3tzLSiaZAqiEEIB2dncuoWFhZIZHjxg2TLmzuXyZfURJydat8bdnRYtMDVVKte1a0T/Gec+vbXO1SvMncuoUUolKbKePuWPP1iwgMOHAXR0aN0aLy/ef5/SpZUOJ14nK0u9f/f169y6RXIyjx7h5aWuzf7y7bf88IN60umwYbRvL2vfFABFcwqiFGCFkBRgQogiLTOTwEACAti3j/v31QeLFaNxY3Ux1rgxxZRYBDgpiWXLGDr0+aIQKhVz5mBsTKNGWFtTrpwCiYqgM2dYsIA1a15sL1auHM7OODri4ICTE46OVKmizA+IeEdXrjBhAhs3qu/AtLVl8GA+/TRnnSa0ihRgopCQAkwIIQCysoiIYPdudu/m0CH1H2VAiRK4uuLujrs79esrtTJDSgoVKrzYJMzICFtbrK2pVInKlenVi2rVFMlVJNy7x/LlrF9PTEwud4UVL07VqupizMEBZ2ccHDA3VyKoeHu3b7NyJUuWqPdJ19fH05Ovv6ZePaWTidxIASYKCSnAhBBaITKS4cPp0QMvL+UHFB48YP9+du8mJISYmBfHra1p354JE6hcWfOhtmxh5UoSE7lyhbt3X3rK05N//go/fZpq1TAx0VjAIuHKFeLjiYsjNpa4OOLiSErKZffsWrXo2JFOnXjvPVmRrwBQqdizh19/ZfNmnj3D1ZWjR5XOJHJTNAswpf+PqPUyH96+mZJ6Ny39ybNsXYMSpqamZmUrlDOR900IIV7n0iWOHuXoUVauZNEi3ntPyTCmpnh44OEBcO0aISGEhLBnD1eusGQJ/v6MG4ePT+6bK+ebvxIBDx+SlERSEleucPUqXbrkbLxzJ+3bU7IkAwYwYoSWbHtWGFhbY21Nq1Yvjjx+TFycuiqLiSE+nthYoqKIisLXlzJlaN+eTp1o25ZSpZTLLf6Vjo56kDs5mYAAGf4S2kVGwHLx+FrYlg2/bw05dOz02Qu3HmW+/A7p6BQvaVXVqZZLi/aeXbq0a2RtrAXrbrxERsCEENpizx68vIiLQ0eHvn2ZNUu7bnVSqYiMZOZM1q5FpaJyZWbN4qOPNBdg8WIWLeKHH+jY8bVtb9zg4485cABAR4dWrRgxgs6dZTRGE7KyCA1l61Z27+bUKfVBPT3q1qVTJzw8aNBA0Xzi7Z0/T1gYHh6ULKl0lKKtaI6AyeowL8lOPfbr0CZ2dk16fvmT/85j8TdzVl+ASvX0/tWYYzv8fEd2da1audHAeYdvKrbhjBBCaLVWrTh9mkmTKF4cf3+cnJg3j+xspWP9Px0d6tRh9WqOHaNRIy5domtXWrbk7FkNBbhwgTNn6NSJZs3Uy/O9moUF+/cTGcnQoZQowe7dfPQRVarw44+kpGgmbtGlp0fTpvj6cvIk58+zeDGdOqGnx6lTTJlCw4bY2TF0KFu2vLjTUGi5L76gb1+srBg2TL1ntxAaIyNgLzw9v3ZQ+09XJzz5/3dER8/Y3NLaxrpiGVNjIyMDveynGY/TH9y5ee1K0rWUh8/+aqZv4/nz9rVDa2h04sq/kBEwIYTWiYtjxAj27gV4/33+/JMyZZTO9LLsbFav5quvSEmhWDFGjGDqVMzM8rfTzEzmz2faNG7fBujQgR9+oG7d177u/n1WrWLhQuLiAKytZe8jBaSlERzMtm1s3/6iBjYxoWFDnJyoUQNnZ5ydn695KbTOsWNMmMD+/er7/dzcGD6cbt0wMFA6WRFTNEfAUInn0o99U8dAB0DHwNK1/+TlwaeT0jJf0Tgr/ca5Axtmfd7BsaQugE5xB+/d97I1GvjV6tevD3h6eiodRAghXrZmjcrCQgWqoCClo7zCnTuqkSNVenoqUJUpo5o7V5WVle+dPnig8vVVmZmpQKWjo+reXRUX9yavy85W7dql6tlTNXx4fkcU/yYrSxUaqvrmG1XduirI+ShVSuXqqho0SPXTT6odO1QXL6qyteXvBaGKjlZ9/rn6Hx+oypVT+fioUlKUjlWUPK+7/P39lQ6iUTIC9lx20sI2zt570tGz8pgdtOrzBqXe7MauJ5c2j/2o9y+nH2HQ2PfMkXGO2jAVX0bAhBDaKy2NsDDc3bV6h9SICEaO5NAhgAYN+PlnXF3zvdPbt5k2jYULycjAwICTJ6lZ8z+f7NEj/vwTJyfq1EFfPw9TitdITiYqinPniIkhJoboaO7cydmmRAn14JibGx4eMkSmvEePWLuWRYs4fRrg88+ZP1/pTEVG0RwBkwIMgOzL81s4jj74RNdmyLaoxW3f6nbMrIQ5Lep8eehxsfdmRh/+yl4LKjApwIQQIg9s2YK3N0lJ6hVEZs6kQoV87/TqVb7/nrAwtmzBxuY/n+annxg7FsDQkHr1aNRI/bC3z7Ok4g3dvEl0NDExnDtHbCzR0dy48eJZXV1cXOjSBU9PnJ2VSykACA1l0yb69KF2baWjFBlFswCT5dQByIyOOPdMhW75Dt1bvO1iOHpVu3ZvNP7QgcyE6PgstKEAE0KIAubyZdLTte7PTw8Pmjfnf/9j7lz8/dmyhSlT8PLK32UHK1Vi8eJ3P02PHkRHExZGXByhoYSGqo+XKUOzZixbRunS796JeCMVKlChAi1avDhy9y7R0Zw9S3AwwcEcO6a+H8nBQV2JvfeeVo8QF2KurrmPdv/2Gzt20KgRjRvTsKHsxSfelfz7BkD15MlTFeiYmJq8/ZryuiVLldQF1dMnT2U0UQgh/oN27ahdm0WLlM7xD6amTJ9OVBTt2nHvHqNG8f77xMcrkOT+fYKCuH//DZvb2LB8uXr+2+7d/PADnp5UrEhqKn/+SUJCvmYVr1G6NG5uDB3KH3+QmkpICCNHUrEi8fHMmIGbGxUq0L8/gYE8eqR0VgHA2rX88Qfjx9OiBaVKUbs2gwezbBlRUWTl3UrYd++SksKFC0RHc+qUeuv4v4+XikJDRsAA0KtkW0mPmKyrp8KTs9+zebuy9PGZE2efgW6FihWknhVCiP+gf3+++YYRI4iP56eftG5nKwcHduxg82a8vAgNpV49pk3D21ujgxS+vvj6oqdHvXo0b07z5rz//ptsYGRmRqtWL3YZvnKFlBTq18/ZbPJkzp6lfXs8PChfPq/Di1czNFTvFzx7NkeOEBREUBDnz+Pvj78/Jia0a4enJ23batcWekVNYCA7dnDsGMePc/q0elfu334DaNyYsLCc7cPDOXOGJ0+4f5+MDB4/5v59njzh4UM6dmTAgJcaP35Mw4ZER+fe9XvvvRjBfi4zk8GDuXkTc3P1o3Rp9SdlylCvXh4s5BgeTnQ0KSncv8+IEfI7Ie/JPWDPPT36ZfVms89n6dn0WnPYv6f1G//PX/Xg+PdtW08OTdMpPyDowspOJfIz5RuSe8CEEAXPhg0MHEhGBu3asWGDlu6NmpbG2LEsWQLg5sbKlZq7pyo2Fm9vDh3i6VP1ET096teneXM8PXFze8fT16zJuXMAurq89x6ennTujJPTO55V/EdRUepK7NQp/vozzcGB997jvfdo0oSaNbXuMkXRkZHB6dMcP66eO1qzJkFBLzVIS6NMGTIzc395w4acOPHSkcePqVmTCxcwM0Nfn5IlMTDA2JgSJTAwoHdvBg58qf3t21Sq9Mod5zp0YNu2l45kZTF1KqmpLwo2IyPu3uXmTVJS6NqVDz54qX1MDDVqvPjB++knvvzyX9+Rd1M07wGTAkwtK36eu8uY/WkqneJWLUdN+3FMj0YVX3MBIete7M7fvh///fqzadk6xWt9ffjE/1y0YvMIKcCEEAXS0aN06UJKCrVrv+MSFPlrxw4GDeL6dYyN+fFHRo5E5+1nr/836emEhrJ/P/v3c/y4uhjT0+PWLczN3+XEt2/zxx9s3syePWRkqA86OuLpibc31tbvnFz8J1eusHkzQUEcPfrSdEQTE1xcaNJEXZKVLatcRPEPKhWTJ3P5MgYGlC6trqZKlqR4cUqWxM0tD9a9vHiR2Fju3Mnl8fHHjBr1UuPLl6lShVf9vd++Pdu3v3QkPZ3PPycjg/Llsbbm008pVepdA/8LKcCKuGdxSz5qMWJbcpYK0NE3t2/UtGnjes52tpUqljUrYWhYvJjqWUbG44epN65euRh/5sTRw2Fnb6RnqwDdUk2n7tr5jYs2DH8hBZgQouA6f55OnYiNpWJFNm+mYUOlA73CvXuMHIm/P0CbNixbRqVKms6Qns7Roxw4gL4+EyfmLAIfP8bQ8D9Uho8esXMnmzezbRupqQB9+6q/UaGgrCxiYzl1iiNHOHyYmJiX/p6uWJGmTXFzo0EDGjWieHHlggqttG8f5869KNIyMihZEgsLypfH0xNbWyWzSQEmHsf4fd5r1IrIe9lv/qbomlbvNd1/wbD6Zpq6APpaUoAJIQqwO3fo2pX9+zE15dKldxzYyV+BgYwYwe3bmJkxYwZDhigd6P8lJVG9Os7O/PorDRr8t3NkZXH4MHv30qUL9erlbT7xrm7dIixMvb7lyZMvDY4ZGVGjBrVrU6sWtWtTpw5lyigXVIjXKZoFmCzC8XdGzv1/O9luyLoFP/+2ZsvRC/cz/6UO0ylWsnLjjr0+8/bq08RSrjUJIUQeMTcnOJgxY4iOxshI6TT/qnt3mjVj2DA2bWLoUIKCWLpUK3bVLVGC8uU5eZLGjfHy4vvv/8M9dXp6fPBBzptDngsMZPt2evXS9v20C7Hy5encmc6dATIziYwkNJSwMMLCSEzk5ElOnnzR2NKSWrWoU4datahVC2fn1wyRPXvGvXvcv8+9e+pH8eK0akUJLZnnI0TBJyNgr/Ls3sXIk+FRcecvX7uZevfh46eZ6BuVMDExMStnY+/o6FSzTs3KpfSVTpkrGQETQgiNCgxk2DDu3KFcORYtomtXpQNBejozZjBtGk+fUrEivr70759X5+7SRb3qgJ0dgwfzySea2KFavKH799Vr9J05o/7kwYOXGujr4+xMrVpUqvSi0Pr7x/T0XE5rbEzHjvToQceO2n5hRBQsRXMETAqwQkgKMCGE0LTkZAYPVq8+1r07ixZpxcSvyEiGD+foUYAWLVi0CEfHdz9raipLlrB0KRcvAhQvTpcuDB1KixaaW45EvCGViosXiYwkKorISCIjOX/+NVtX6elRqhRmZpQurf7k5k1CQ8nOBjAxwcODnj1p2xZDQ818E6IwkwJMFBJSgAkhhAJUKhYtYtw4Hj3C0pKNG3F1VToTZGezdCkTJnD3LkZGbNpEmzZ5deJdu1i8mK1b1StuOziwZEnusxaF9khP59w5zpwhNZWSJTEzU1dZf300McnlVVevsnEjGzZw7Jh6/Q8zMzp3pmdPWreWZT/Ef1c0CzCZuy2EEKIgmD4dJ6dcdjzVHjo6jBjBmTM0bcr167Rpw/79SmcCXV2GDiUmhj59ePyY8+fz8MTt2vHnn1y+zNSp2NgQH8+WLTmbqVTExXHrVl51K96VsTEuLgwahI8Pw4fTuzcdOuDmRo0aVKqUe/UFVKrE6NGEhnL5MnPn4uZGWhr+/nTqRIUK9O/Pli08e6bZ70SIAksKMCGEEAXB1avExdG0KT17cvq00mlerWpV9u9nwAAePqRjR3btUjoQABUqsHo1Dx4wfHien9vSkokTuXCB48f5/vucz86ciZMTFSpgYICtLU2a8NFHjBzJDz8QGPiauXBCC1lbM2oUhw+TkMCPP1K3Lvfu4e9P585YWjJsGLGxSkcUQutJASaEEKIgmDOHr75CT4+AAOrXp107rRhfypWeHitW4O1NejoeHmjPbPBXjW7kBT09XFxyWZ6hYUPq1MHcnKdPSUoiNJQ//+Tnn/n2W3r0UN80JwqiqlWZMIHTp4mNZepUatTg9m0WL6ZmTfr2lTJMiH8jBZgQQoiCoFgxZs7kwgW++AITE4KDadECV9dcJr1pAx0d5s9n9GiePqVnT37/XelAr3DoEB06MGMGly7lUw8tWxIRQWqqev7joUMEBDB3LuPGMWYMzZrlU7dCcxwdmTiRs2c5e5Zhw9DTY80adRkWF6d0OCG0khRgQgghCg4rK2bN4s+bp+kAACAASURBVPJlpkyhbFnCwujcmYMHlY6VGx0d5szh22/VNZifn9KBcnPoEDt24OODnR2ursydy7Vr+dSVoSF2djRtSvfujBrF9OnMnk2pUi+1UakYMoRPPmHfPmSNsAKnRg0WLSIxkZEj0ddnzRqqV6dHDxkNEyInKcCEEEIUNObmfPcdly4xbx79+1OjhtKBXu377/H1JSuLTz9lxQql0/yDjw9BQfTuTYkShIUxZgw2NnzwAQsXcvu25uM8ecL69axcScuWVK3K5Mnqle5FAWJtzbx5xMczciTFixMYSI0aUoYJ8RIpwIQQQhRMJUowciSrVmnFjlv/wsdHXYN99hm//KJ0mpfp6dG5M2vWcOsWgYF07YqBAQcP4uVF48aaj2NoSGQkEydia8vFi0yZQtWqtGjBqlU8eqT5OOK/kzJMiH8hBZgQQojCJTKShg0ZM4b9+7VlYWwfH3XpNXIkc+cqnSY3RkZ068bGjdy8yerVdO1K586KBKlcmalTuXCB3bvp2xcjI/bvZ+BArKw4fjxn4z17aNyYRo1o3ZrWrWnfnh49GDiQnTtlBqNWeF6GxcVJGSbES4opHUAIIYTIU9euER7OqVPMnYupKS1b0q4dbdtSpYqSqby8KFaMESMYM4YHD5g4Uckw/8LUlD596NMnl6fu3sXfn1atNDDnU1eXVq1o1YoFCwgIYOVKIiLIzs7ZLCwsl6oMWLWKmjU5eJDSpfM7qXg9GxvmzeOLL5g2jRUrCAzkjz/o2ZNOnXBxwd5e6XxCaJyOSq4RFToNGjQIDw/39PTcpD1rHwshhCaFh7N+PcHBREa+OOjoyIcf8v33FFPu4uOyZQwZQna2el5iwfLzz4wciY4OLVvy+ed06oSenrKJVCrOnSM9nbQ0gGfPePiQCxdYuJBbt4iNxdZW2YAip8uX1WXY06fqI6VL07AhLi40bEjDhlhbK5pPaFy/fv1Wr17t7+/ft29fpbNojhRghZAUYEIIoXbtGsHBBAcTEsLduwDnzlG9upKR1q+nXz8yMxk3junTlUzytu7eZeJE/Px48ACgShVGjOCzz7RwmCkri4wMSpRQOod4haQk/Pw4fpyTJ0lOfukpCwt1Jfa8JCtfXqGIQlOkABOFhBRgQgiRU1YWx49z/z7t2uV8KiaG0qWxsNBcmMBA+vTh2TNGjOCXX9DR0VzX7+7+fVauZMECEhIAjI3p25exY7V/Jtm1a/z4Ix98wEcfKTkIKnK4epWTJzl5khMnOHmSO3deetbGBhcX7OyoVAlraywtsbbGwgJdWcSgsCiaBZj8BhJCCFEE6Onh6prL8bt3qVuX4sWZNIlRo9DX10SY7t0xNqZbNxYuJCuLhQsL0p+TZmaMGsXnn7NzJz//THAwS5YQHs6JE0one419+1i4kIULsbHBy4vBg7Vw6K4oqlSJSpXo0kX95fnzL4qx8HCSkkhKyvmSYsWwsMDGBisrrKywscHSUl2h2dhoOL4Q/4UUYEIIIYqwkiXp0YPVqxk7lpUr+eUXmjfXRL8dO/LHH3z0EYsXEx/P9Om4uGii37yiq0uHDnToQHw8K1ZQr57SgV7v449JT2fuXGJi8PFh6lT696dlS2rVompVGRPTFlWrUrUqPXsCZGcTG0tEBFeucO0aSUlcu8a1a9y4wdWrXL2ay8urV8fbm379MDHRcHAh3oJMQSyEZAqiEEK8nX378PYmOhqgUycWLtTQUgB79tCzJ6mp6OjQvTs//KD9E/neVEICQUG4uODqSvHiSqd5QaVi1y7mzGHXrhdL1VerRnS01GAFxrNnXL+ursGuXePKFa5e5fp14uJITQUwM2PgQLy8qFZN6azidYrmFMSCM+dBCCGEyCctWhARwdy5mJiwdSvOzkyfTmZmvvfbqhWXLuHri4kJAQFUr87QoTkXJSigZs5k7FiaN8fcnA4dmD2byEht2JxLR4e2bdm5k3Pn+PprPDyoUoVy5XKZBDp5Mp9+ysyZ7NzJlStKZBWvoK+PrS1ubvTsyRdfMGcOgYEcOcLNm2zejLs79+8zbx6OjrRuTWAgWVlKJxbiZTICVgjJCJgQQvxHly4xejRBQQCjRmlu0+Rr15g6leXLycykRAm8vZkwATMzDfWeHy5fZv58du8mKupF3VWhAu7ufPwxnTopGu71srMpVUq93ONz9vZ8+CGenri6FqRb9oqm2FgWLWLZMh49AqhalcGDGTwYc3Olk4l/kBEwIYQQomirXJlNm9i6FRcX6tTRXL9WVixeTFQU3buTns706VStyvTpPHmiuQx5y9aWWbM4c4bkZFavZuBAKlXi5k3WrOHDDzUxuvhudHU5dYrFixk5klatKFOGxERmzqRpUywtWb9e6XziXzk5MW8e164xdy5VqnD+POPHY2VF//4vbQ0ohFJkBKwQkhEwIYQowI4dw8eHAwcAbG35+msGDSokYy6xsezeTalS5LjUnZXFxx9z9y729lSrRrVqODhgZ6c9N49lZXH0KEFBbNrE+fMMG8aiRUpnEm8mK4utW/nlF/bsUY/FtmiBtzeenopvJC6gqI6ASQFWCEkBJoQQBd7u3Xz5pfpyfc2aTJum/dP2/rsHD7CyemnCH6Cnh40N1arh5UXnzgoly8Xly1ha5tyw4NYt9uyheXMqVlQolnidmBgWLHixkbitLSNGMGiQzEtUWNEswArFFTUhhBAivx04gJkZX35JRoYmunN3Jzyc337DyoqzZ/HwoF07tmwhLU0TvWuYqSmJieqNxUaOpH177O3R0eHiRXbt0rbBJlvbXLaL++47evemUiVcXRk/nrVriYri2TMl8olXcHbml1+4epX583F05PJlfHywtmboUM6eVTqcKGKkABNCCCHezOPHzJ6NiwsREZroTk+Pzz4jIYFp0yhViuBgOnemTBmaNGHiRPbvL8B3iP1T+fK0bYu3N/PmsX07CQmkpxMXx9atrFiRS/vHjzUe8d8MH46nJwYGhIUxfTp9+lC7NiYm1KvHV1+Rna10PvH/Spbk88+JjeXQIbp358kTliyhVi2aNiUwUPtvThSFhBRgQgghxBv44ANOnqR2bc6epVEjJk/W0OLWRkaMH8/58/zvf7i5AYSG8r//0aIF5ua0acP06Zw8WQhX2tbXx8GBjh2xsMj51Pjx6h20Q0OVSJaLOnXYtInbt9m8mcmT6doVe3syM4mIYN487t7N2T4pifBwGSJTUtOmBAQQG4uPD6VKceQIPXrg4MD06dy5o3Q4UdhJASaEEEK8mdq11StkZGUxZQpNm5KYqKGuzc355hsOH+bePUJC8PGhQQMyMggJYfx4XFwoVYrWrZk+nVOntGG7rfxlZ4euLoGBNGmCqysBAVoycmFsjIcHkyaxcSMJCaSlERbGqVOUKZOzZZMmNGhAhQoMHMjWrYVqLLNgsbfH15ekJBYvxtmZixdfrJco8xJF/pECTAghhHhjhob4+rJjB1ZWhIVRvz7+/hoNUKIE7u74+nLyJMnJrFvH4MHY2fHwIbt3M348DRtibc1332nbJL28NGQISUlMmkTZsoSF0bMnNjZMnpzLSJOiSpSgcWNq187lqSFDcHTk7l1WrcLDgwoV6NePoCAN3WAocjA1ZcgQzp4lJIROnXjyBH//F/MSC9/oslCcrIJYCMkqiEIIke/u3GHECDZsQEeHO3coVUrhPBcvsmcPe/awdy+3bgFUq8avv9KypcLB8lV6On5+zJ1LXByAqSl+fnTponSsNxUfz8aNbNzI6dPqI6amLF1Kz56KxiryoqP5+Wf8/dX7OJcrR5MmNG2KmxsNGmjP5giFhKyCKIQQQog3Y27O+vVs3MiCBcpXX0CVKgwaxLp13LjBgQPUqkVCAu7ufPJJYb6jxdiYYcOIjmbrVlq14sEDYmKUzvQWHBz4+mvCw0lMxNcXFxcePCAhQelYRV716ixaxJUrzJyJnR0pKQQFMXYsTZpgZkazZnz9NVu3FuZ/WCK/yQhYISQjYEIIUdRlZrJgAd98w6NHmJszbRpDhiidKf/duVPQN3V68ABT05wHk5I4dAhXV+zslMhU5F28yOHDHDnCkSNER79Y01JHh+rVcXNTP6pWfc157t1DpSIjQz07OC1NPbnx+czZrCz1HhNPn6pH3p631NenXDnKlaNiRfUn/9wFoUArmiNgxZQOIIQQQoi8VqwYo0bh4cGwYYSEMHQo69axeDEODkony0+5Vl/dunHqFF270q8fdepoPNPb+Wf1BYwcSVAQgKUlzZrRtCnNmlGjBroyjUkjqlShShX69QO4d4+jRzlyhMOHOXGCc+c4d44lSwAsLLCyAl6UWM8rq7++zCvm5lSoQNmyVKhAhQo5yzMLC8zM8qwvlQodnTw7m/iLFGBCCCFE3rl+HU9P2rXju++Uv1JtZ8euXQQGMmIE+/dTty7jxvHNN8oH06TMTC5dYtYsZs2iVi3696d3bywtlY71Fr76Ch0djhzh+nXWr2f9egBzc9zc6NWLXr2UzleUlCpFhw506ADw7BmnTnH0KIcPc/QoN25w48a/vdbMDF1dDAwwNgYwNaVYMfU5dXTQ1VUXTvr6mJgAGBpiZMSTJ9y+zc2b3LxJSgopKdy585rZjwYGlCv3ojwrXx4Li5fqtJIlSUvjzh1SU9VnS03l9u0XR/46npnJhg107ZoX7534G5mCWAjJFEQhhFBMVBT165OZiYcHgYEYGCgdCIA7d5gwQX2hvk4dli7FxUXpTBoUGsrq1WzYQGoqgJ4eLVvSrx89exagFRVUKmJiOHyYQ4c4eJCkJAAjIx49kjEKrZCYyL176Oi8KLGeV1Z/fZlXnpdhKSkvqrJbt158cuMGDx7kWV+lSrF+PW3b5tkJ/0mmIAohhBDi3dSqxf79dOnCli189BF//KEVNZi5OYsX06sXQ4dy5gxNmjBiBD/8oL7SXui5uuLqypw57NiBnx/bthESQkgIiYlMmaJ0uDf1/I6j6tXVd/MlJXHkCBUq5Ky+nj5lyBCysqhfn/r1qVePkiUVyVvk2NtrqKPnY1n/IiODlBSSk9V12o0b3Lr1UsGWno6xMebmlCnz4mPZsjmPlCmjFb+9CiUpwIQQQog85ebGwYO0bMn27XTuzKZNGBkpnQmA5s2JiGDKFGbNYv58Nm9m0SLatVM6lqYUL46nJ56e3L1LQAAhIfl7YT+f2dhgY5PL8Tt3WLuWZ89YvRpARwd7e3Ux1qABzZoVrfmnRZOhIdbWWFsrnUO8mhRgQgghRF5zdmbfPlq2ZNcu2rdn2zZKlFA6EwBGRvj60qMHgwcTHk779nTqRP/+dOqkLVWiBpQuzdChDB2ay1OHDhETw4cfvmaIQYtZWHD2LAcOEB5OeDiRkSQkkJDAhg0Ao0Yxd+5L7dPTWbqU5GQePODxYx4+JC2N9HTS03n0iLlzC3SVKoSWkgJMCCGEyAdOTuzeTatWHDiApyebN+fxjSDvon59jh1j3jwmTWLrVrZupWRJPvyQ3r1p1Qo9PaXzKWfECM6exdub9u3p1w8Pj4I4B8vB4cVql5mZREeri7H4+Fz25f7zT0aPfuWpYmJyFmBPn5KSol7uTwjx38giHIWQLMIhhBDaIjaWli1JTubnn/H2VjrNP6SksG4da9dy7Jj6iIUFPXrQuzeNGyuaTCGHDzNjBjt38uwZQOnS9OxJv340aaJ0svzy8CELFgCUKIGxMaammJpiZISJCWXLYmubs/1nn7F8OXXq0LcvvXpJJSbeVdFchEMKsEJICjAhhNAiiYksWMCYMbnfsqMlkpJYt46VK4mNVR+xsaFLFz75hLp1FU2mhOd1qZ8fp06pj9jbs2QJLVooGksr+PkxZox6GXRdXT74gL596do1L/eeEkVK0SzAZA8/IYQQIj/Z2zNnjlZXX4CNDT4+xMRw9iyTJlGlCklJzJ9PvXrUqMHkyVy8qHREDSpXjpEjOXmSc+fw8aFSJRITCQnJpeXly+qxsiKjf3+Sk9m0ie7dKV6cffv47DMsLNT7XQsh3oQUYEIIIYT4f8/LrcRE9u5l0CBKlyY6milTsLenTRu2biU7W+mIGlS9Or6+XL7MmTNMnpzz2UWLqFyZkiVp3BgvL5Yv58wZMjMVyKlZz5eTDAjgxg2WL6dVK54+5fffGTdO6WRCFBBSgAkhhBDiZbq6tGihXh3vzz/p3h0DA0JC8PDA2ZmFC3n0SOmIGqSrS+3auWzZXLs2zs48ecLx4yxcyGefUbcupqb06EF4uBJBNc3MjE8+Yfdurlxh4UJ++knpQEIUEFKACSGEEJq1bBkDBnDvntI53oCBAV26EBBAcjKzZlG5MvHxeHlhbY2PD1euKJ1PUW5uREdz7x779vHTT3z8MdWq8eQJgYE0bsy1a0rn0xxLS4YPp149pXMIUUBIASaEEEJoVmAgfn60bs3du0pHeWNmZnzxBefPs3kz7u7cvcuMGVSujIcHR44oHU5RJUvSvDlffsm6dcTHc/UqEybQuzdlyyqdTHkuLtjb4+9ftCauCvFaUoAJIYQQmvXbb9jbc/IkLVty+7bSad6Gri4eHoSEEB7OkCEUL87WrTRtSsOG+PkVhdufXs/Skh9/ZNWqgriBWJ4rUYLz5+nfn1q1+OMPZOFtIZ6TAkwIIYTQrEqV2L8fBwciImjdmps3lQ709urVY/FiLl5k0iTKluXUKQYMwMaGyZPVK5SLHHbvplEjpk0rGFNP88jevQQEYG9PdDRdu1KnDoGBSmcSQgtIASaEEEJonJUV+/bh5EREBI6O+Pry+LHSmd6ehQWTJ3P5MosW4eREcjJTpmBry9ChbN7Mw4dK59MmCQmcOMHXX2Nry7hxXL+udCBN0NWle3eio1m0CCsroqLo0YP33ycsTOlkQihKCjAhhBBCCZaW7NtHhw7cv8+ECTg7c+GC0pn+E2Njhg0jOprt22ndmkePWLIET0/MzWnRAl9fTp+WyWcMH05ICK1bk5bGzJnY2TFoEAkJSsfSBH19hg0jIYGffqJcOQ4fpkULMjKUjiWEcqQAE0IIIRRiYcG2bezeTb16XL5MYqLSgd6Bjg7t27NrF1FRTJmCqyvZ2ezfz4QJ1K9PxYr068eaNdy6pXRQ5bi7s2sXp07RoweZmSxbRvXqfPYZKSlKJ9MEIyO+/JLz5/nhB3x8MDTM2eDixQJ2R6QQ/1kxpQMIIYQQRVurVpw8yY0bWFoqHSUv1KhBjRp89x0PH7JvH1u3EhzM5cusXs3q1QDVq+Phgbs7779fFFeqqF+fDRtITGTGDFauZPlyihdn0SKlY2mIqSlff53L8YQEnJ3JysLBgffew9UVV1dq1kRPT+MRhch/UoAJIYQQStPVLSTV19+ZmODhgYcHQHQ0wcEEB3PwINHRREczfTqmprz/PjVq4OiIoyNOTkVo6XZ7e5YsYfx4Vq2ia1el0yjPwoK2bTlwgPh44uPx8wMwNcXFBTc3vL0pX17piELkHSnAhBBCCK20di1jxzJiBGPGYGysdJp3U7061aszZgyPH3PokLoYO3eO7dvZvv1FszJl1JXYXyWZnR36+srlzmd2dkyZonQIrWBqyrZtZGYSGcnRo4SFERrKhQvs3cvevejo5Hyf7t1j5UrKlqVyZapUoWJFdOWuGlFwSAEmhBBCaKUHD7h+nW+/5ddf+f57+vcvDH9jGhnRpg1t2jBrFlevEhZGfDyxscTGEh9PaipHj3L06Iv2+vrY2eHkRK1afPopVaooF11T0tMZMgQnJ0aNwtRU6TQaVawY9etTvz7e3gA3bxIWRlQUn3ySs+WqVYwZ8+JLAwNsbNQbgw8cWNTeNlHw6KhkYaJCp0GDBuHh4Z6enps2bVI6ixBCiHewfz9jx3LyJEDdunz+OW3aUKmS0rHyTXIysbHExREXp/7k8mWys9XP6unRrRtffUXDhoqmzGeJiTg7k5lJ2bL4+DBiRIEf/8wHt28zfz4JCVy6xKVL3Ljx4ilzc06cwM5OuXDibfTr12/16tX+/v59+/ZVOovmFPxraUIIIURh1bw5x4+zejW2tkRE8NlnWFtTowY7dyqdLH9UrEiLFgwbxpw57NjBhQs8esSZMwQEMHAgenps2ICLCy1bsn17oV3a3t6e/ft5/31u32bsWOzt+eUXnj5VOpZ2KVuWqVNZt47QUJKTSU8nOpp162jWDB0dsrKUzifEv5ICTAghhNBiOjr06UNsLEuX4ulJyZJER7Njh9KxNMXQkNq16d6dFStISmLSJEqXZt8+OnbE0ZF58wrnflJubhw8SHAwjRqRnMznn2Nvz7x5pKcrnUxLGRnh7MzHH3PgALdvU62a0oGE+FdSgAkhhBBaz9CQQYPYtInUVCIimDEjZ4OICLy8WLmS69eVyKcRFSoweTJJScydi40NCQmMHk3lykyezJ07SofLB23aEBZGUBB163LlCqNH066d0pkKpGvX6NmT2bNJS1M6ihCAFGBCCCFEQVKsGHXq5LJ91tq1LFzIJ59gZUWtWsydW2inYZmYMGoUiYkEBODiws2bTJmCrS2jRpGUpHS4vKajQ+fOhIcTFIS7eyG/+S3fREYSEMCXX2JtzZgxXLyodCBR5EkBJoQQQhR8337LL7/QuTMmJpw9y5gxuLoSGal0rHyjr0/37hw7xs6duLvz8CHz52NvT//+nDmjdLi89rwMCwlh9myloxRI7duzZQstW5KWxty5VKtGt24cOaJ0LFGESQEmhBBCFHwlS+LlRVAQd+6waRO2tpw4QcOGfPcdz54pHS7f6OjQti0hIYSH07s3KhX+/tStS5MmLF7MvXtK58t/fn74+MiYzmt16sSePUREMGAAxYrx++80bYqrK3v2KJ1MFElSgAkhhBCFiL4+np5ERf0fe3ceFlXZuHH8nmEHARE3BAVF3HFf09zSLJesXFJzq8x63VtteyuztyxLcyu1NE2z3MrUMnMLzX3HXVDcEBDFHRRh5veH/DIJsxLOkZnv55qLS845AzeMw5x7nnOeowEDlJmp4cM1dqzZmfJejRr6+mvFxmrIEPn5af16PfusgoLUrZuWLr0xkb3jGTNGH36ocuXUs6f27jU7zd2uWjVNm6YjR/Tf/6pwYW3YoKefNjsTnBIFDAAAh+Prq3HjFBWlxx9Xy5ZmpzFKaKhGj1ZSkubMUdu2unZN33yjBx5QyZIaPNgxD8icM0e9esli0YwZioxUhw5ZV43DrRUvrnfe0dGjmjZNX3xhdho4JQoYAAAOqlEjzZypqlXNzmEsT0916qRFi3T0qEaMUESETp7U2LGqVk21a2vMGJ05Y3bE3BMermnTFBOjfv3k7q7vvlOdOmraVAsXmp3sbuftrV691Lx59uVpaQ44mQvuNhQwAADgiIKDNXSoDh7Uli3q21e+vtq6VUOGKCREnTtr0SJlZJgdMZeEhmrCBMXF6eWX5e+vqCi1b69ly8yOlS/17q3QULVooSVLHPZa3zAdBQwAAGfy4YeKiND335udw0C1amnSJCUkaPp0NWum9HTNnauHHlKZMnrzTR06ZHa+XFK8uD74QMeP65NP1L2704185pJWreTnpxUr1Lq1IiM1ZYpjXusb5qKAAQDgTE6eVGysHn1UnTopKcnsNAby8VHPnlq5UocOadgwlSmj48c1fLgiItS0qaZP1+XLZkfMDb6+GjxYM2aoWDGzo+RLTz6pY8c0cqRKldKePerTR4UKqVkzDRum+Hizw8FRUMAAAHAmo0Zp/Hj5+mrePFWqpLFjlZJidiZjhYXpzTcVG6uoKPXqJR8fRUWpd28FBempp/Tbb4555Nm+fQoIULNmWrjQkaeFzA3+/nrxRcXG6uuvVa+erl7Vr7/q7bf1+utmJ4OjoIABAOBMrFb176/du/Xgg0pJ0eDBCgrSI4843bQNFosaN9a0aTp1SnPmZF3NeepU3XuvwsL0yis6csTsiLnK1VWSfv1V7durYkV99plSU83OdFdzc1O3btqwQcnJWrBAr7+uIUOyb5OcrE8+0apVSkszIyLyLYvdId/mcW61atXatm1b+/btFyxYYHYWAMBd7PvvNXmyli1TZqYkrVqlpk1NjmSiY8f0zTeaODGrelmtat5cPXqoY0d5e5ucLVdcvKgpUzR2bNaFm93dFRqqMmVUu7befjuroeGfePdd/fe/kuThobp1VbGiJF28qIwM+ftr5EgVLHjT9qtWaeTIrEujX7p00zXS/fw0Y4aCg2/aft48DR+uokVVooSCgxUUpJCQrI/FisnNLW9/OmP06NFj5syZM2bM6N69u9lZjMOTDQAAZ/XII3rkESUkaNYs7dun6tXNDmSqUqU0dKhefFHLlmnaNP3wg5Yv1/Lleu45de2qBx5Q3boqWtTslHfA11dDhmjgQH3/vUaP1rp1iolRTIyWLlXPnipX7qaNV6xQVFRWQytdWsWKycvLpNx3r6ef1rlz+vVX7dihNWu0Zs1Nazt3zn4RvkWLtGTJLb/akSPZC9j27be8fF3Bgtq8WWXL3rQwPV0HDigoSIUL/4OfAsZjBMwBMQIGAMgFdrvGj8+6rFa2d/KdwdmzmjVL06bddGnjsDDVrZt1q1lTPj7m5btjV67o8GEdPiw3N7VqlX1tvXratOmmJb6+CgpS0aKqX18ffiiLxbCkd7/z57VmjU6elCRfX7m6KiBA992X/Zd05YrWrcs6Ba9AgZuGsAIDFRaW/cva7dq3T8eOKTFRx48rIUHx8Tp5UvHxslq1Zo1Kl75p+969NX26JHl6KihIwcFZ42YlSyoyModLsmdmav9+XbiQdTt7Vhcu6OJFXbigwoX16quy5v25Ss45AkYBc0AUMABALkhKUvHikuTpqbZt9cQTevBBZ9zt3rVL336r9eu1dasuXLix3MVFlSurTh3Vq6e6dVW5skMdxbd7t+bP1+HDOnRIR48qOVlXr2at8vDQmTPZy+fD85fIJwAAIABJREFUD2vZMgUHq0oVVaum6tVVrVoOlQJ5aeZMffCBTpzQuXM5rD14UBERNy3p2FHz59/yqx0/rpCQXE74Z85ZwBzoLwUAAMhFxYpp7lxNmqSVKzVvnubNU8WKev559eghDw+zwxkoMlKRkZJks2n/fm3alHWLjs66TZkiSd7eqllTdeuqQwfdc4+5kXNBlSqqUuWmJefOKTFRyckqUiSHoT+7XampWcc0/n6VuYIFVb26unXT008bkdnpde+u6y0mNVUnTtwYNztxQgUKZB8uk1Svnvbtk6+v/PxUsKD8/eXnJz8/+fqqShUj2pfTYgTMATECBgDITfHxmjlTn36qY8ckqVgxDRmioUOdcTTsj65c0fbt2rxZmzZp82bFxNyYv75JE732mu6/39R8hrt0SUeOKDpaO3dq+3bt3KlTpyQpNDSHKSWPHVNqqoKC5O9veFDcRRgBAwAA+JPgYA0dqhde0Jw5+vhjbdumV19VmzZZ40JOy9NTDRqoQYOsT8+e1aZNWrVKkycrKkpRUapTR6+9pvbtnaWpFiiQNW7WrVvWkoQERUcrNDT7lomJiohQerokeXmpePGss8uCg1W8uDp2VIUKhiYHjEUBAwAAf4Orq7p1U7du+vVXxcVlPz4NAQFq1UqtWumNNzRlij78UJs365FHVLmyXn5Z3bo51Blif1NQkIKCclgeEKCHH9aOHYqP1+XLiovLmhn/ujVrtHRp9rscPqwSJeTpmYdpAaNwIWYAAPBPNG2qJ57IYVQnNjZrfjcnV6CABg/W4cOaPl3h4dqzR716KSJCY8boyhWzw90dPDw0e7YOHNClS7p0STExWrNGc+dq7Fi98YbeeSf79qtXKzxcxYqpRw8tWnRjOhAgf6KAAQCAO/bVV4qIUIUK+uwzpaaaneYu4OGhnj21b5+mT1eFCjpyREOGKCxMb79901SK8PFR2bJq1EgdO2rgQA0frnr1sm8THq66dXXhgmbO1EMPqVgx9eqlH3/MOogRyG8oYAAA4I5Vr64yZRQTo379FBSkjh01daoSEsyOZTY3N/XsqT17tHChatdWUpKGDVN4uN5+W2fPmh0u/wgO1saNio3Ve++penWdP6+vvlLbtipeXP/5DzUM+Q4FDAAA3LGqVXXwoObOVYMGunBB8+frqacUHKxatTR2rNnhzGa1ql07bdqkhQtVv75On9awYSpdWm++yWjYPxAerldf1fbtOnBA776rqlV19qwmTrzp/DEgP6CAAQCA3ODioo4dtW6djh7VZ5+pXTt5e2vbNr34ojIyzA53F7BY1K6d1q/XihVq3lznz2v4cJUpo48/5tywf6ZcOb3+unbu1P79iopS+fJmBwL+GQoYAADIVaVK6dlntXChTp/W8uVauTKHCQB/+UWbNzvppB3Nm2vFCq1dqyZNdOaMXnxR5cppyhRq6j9WvrwaN86+8NQplS+v++/X7NlM14G7EwUMAADkDU9P3XefGjXKvjw6Wq1aqW5dFS6sJk307LMaO1bLl+vkSTNSmuSee/Trr1q2TLVq6fhx9emjKlU0d+6Nqznj30lPV1KSli1Tly4KCdHzz2vvXrMzATehgAEAAGNVqKDnnlNYmM6e1erVmjRJgwerZUsFByswUN99Z3Y+A7Vooc2bNWeOypXTgQPq3FnVqmnuXLNj5WchITp2TJMmqWFDnT6t0aNVubJq19bkybp0yexwgEQBAwAARnN316hRiovTiRP65Rd98on69tW996pQIaWk6Pjx7NufPKlhw7RtmxlZ857Fok6dtGePJk1ScLB27VLnzmrUSGvWmJ0s3/LzU9+++u03bd2qfv3k76+tW/XMMypdWsnJZocDKGAAAMAswcFq2VKDB2vSJK1erTNndOGCBg/OvtmsWXr7bdWqpVattHKlGUHznqur+vbV4cOaNElFi2rtWjVurJYtFR1tdrL8rGZNTZigkyc1fboaN1ZgYA6nIwKGo4ABAIC7hq9vDgv79tULL8jXV7/8ovvuU716+v57x5zAw91dffvqwAG99pp8fLR8uWrW1JNP6uhRs5PlZ97e6tlTUVHav18BAWanAShgAADgLufnp48+0tGjGj5cRYpo0yY9+qgqV9aXX+raNbPD5YGCBfW//yk2Vv36yWrVl1+qXDk98wwXvMp9O3aodWtNnMjVnGEkChgAAMgPAgL0xhs6ckTjxiksTPv368knNWCA2bHyTPHimjBB+/ere3dlZmryZJUvr6ee0qFDZidzIDt3askS/ec/KltWn33GtPUwBgUMAADkH97eGjBAMTGaMUPNm6tBA7MD5bEyZTRjhmJi1Lev7HZNnapy5dS5s/bvNzuZQ+jVS/PmqWpVHT+ufv1UtqwmTKCGIa9RwAAAQH7j6qru3bVihXr3NjuKIUqX1qRJionRoEFyc9PcuapcWZ07a98+s5Plfx06aMcOzZ+vatV04oQGDFB4uMaN46BE5B0KGAAAcCD9+qlLFy1erMxMs6PktrAwjRmjAwc0aJDc3TV3rqpUUbt2DjtBv2EsFj36qLZv1/ffq0YNxcdr0CC9+qrZseCwKGAAAMCB/PCDZs9Wu3YKDdUbbzjgGVOhoRozRgcPatAgeXho8WLVrq127bR1q9nJ8jmLRQ8/rK1btWCB2rZV8+bZNzh9WnPnavlybdmi2FidOeOAJR+GoIABAAAHsm2bRoxQuXKKj9f//qeICN13n77+WleumJ0sV5UsmVXDBg7MqmF16mT1B9wJi0Xt22vRIrVpk33Vc8+pc2e1bKk6dRQRocKF5eoqf3+Fhqp5c6WkmBEX+RIFDAAAOJBixTR0qPbvV1SUevaUl5dWrlT37goO1ubNZofLbSEhGjtWhw9ryBB5eemHH1S7tlq00NKlstvNDudwnn5aXbqoRQvVrq3wcAUGysVFFy7o2DGtWaNTp8zOh3yDAgYAAByOxaLGjTV9uk6e1GefqXZtnTvnsGMUQUEaPVqHD+vll+XnpxUr9MADql5dM2Y45nXSzNK4sb75RsuWafNmxcbq9GllZOj8eR09qvh4VaiQffsJEzR+vJKSzMiKuxoFDAAAOC5/fz37rDZv1uXLatXK7DR5qVgxffCBTpzQJ58oJETR0erZU6VK6e23de6c2eEcl5+fSpVS0aLZl1+8qEGDNHCgQkLUpo1mzVJqqhn5cDeigAEAACfg6Zl9SXq6ypVT5coaOdJxhil8fTV4sA4d0vTpqlxZiYkaNkylSmnwYJ04YXY4Z+Lrq8WL9dBDslr10096/HEVL67evbV8uWw2s8PBZBQwAADglCwWubpq7169/LJKllSHDlqyxEF2jt3d1bOndu3SsmVq21YXL2rsWIWHq2dP7dljdjin8eCD+uEHnTyp8ePVoIEuXtT06WrZUqGhOT8Kx47pwgXDU8IEFDAAAOCU3Ny0e7eWLVOnTpL03Xdq3VolS+qVVxQXZ3a43GCxqEULLVqkbdvUo4dsNs2YochItWypRYvMDuc0AgPVv7/WrVNMjN56S2XLKj5eJ09m32zYMIWGyt9frq4qUkTlyqlePT34oHr31rhxysgwIzryisXOJDkOp1atWtu2bWvfvv2CBQvMzgIAQH6QmKjp0zVlimJiJMnVVRs2qFYts2PlqthYjRqladOUliZJlSsrMlIRESpbVhERWfOqwwDnz8vfP/vCefP0yitKTs55EGzZMrVocdOSjAydOqUSJfIqpFF69Ogxc+bMGTNmdO/e3ewsxnE1OwAAAIDZihfX0KF6+WVFRWnKFO3YoYIFzc6U28qW1aefatgwTZigCRO0Z0/2A+EKFszqY79XsrJlaWW578/tS1LHjurYUZIyM3X2rFJSdPaszp7ViRO6eFGNG2ffvmdPffON/P1VuXLWrVIlhYaqVKkcTnfEXYYCBgAAIEmyWNS0qZo2zXnt9Om6dEkNGqhqVbnm2z2oIkX09tsaOlQ7dyomRjExio1VbKxiYnTunDZvzn61tIAAlS6t4GAFBWXdSpTI+li0aD7+Pdy1XFxUuPDte2/dulqxQqdOad06rVuXfdXq1fLwyLuMuEM8bQAAAG7n8mU98UTW1Y29vVW7turXV4MGql9fxYubHe6f8/JS/fqqX/+mhadPZ/WxPxaz6+Mw27bl8EWsVhUtquLFFRyc9TE4WNWqqVo1BmHy3JAhGjJEp09r1y7t3avdu3XggI4e1YkTOnlSmZnZt+/QQb/+qpIlFRqqsmX14INq2pT+bBZ+7wAAALfj46N58/TDD9q4UQcOaPVqrV6dtap0ab33nrp0MTVfbrg+8NKgwU0Lk5MVF6fERJ04oaQkxccrMTHr46lTSkxUYqJ27LjpLq6uqlRJNWtm3apXl4+PkT+HEylcWM2aqVmzG0tsNmVmys0t+5ZpaUpJUUqKdu6UpFGjVLiwHn5YHTvqvvtoYgbj1w0AAPA3PPqoHn1Uks6c0YYN2rhR69dr0ybFxWnVKkcoYDkqUkRFiuS86vo8ECdPKiEh6+ORI9q2Tfv2KTpa0dGaNk2SXFxUvvyNPlajhvz8DPwBnIzVKmtOk5z/9JOSk3XsmI4e1fbtmj9f+/bpiy/0xRd67DF9+63hQZ0aBQwAAOCfCAxUmzZq00aSbDYdPKgyZbJvc+WKEhMVFmZ4OAO5uqpEiRwm4ktLU3S0tm3Lul0/Rm7vXs2cKUkWi8qWVY0aKlVKISFZXyEkREFBcnc3/odwIte7dK1aevRRDR+uPXs0b55+/FHVq5udzOlQwAAAAP4tq1UVKuSwvGdPzZun9u315puqUcPwWKby8lK9eqpXL+vT9HTt2nWjj0VHZ51j9mfFiikoKHsrCw1VxYo5j+rgTlyfO/Gtt3JYtWePJk1S8+Zq1UpeXoYnc3wUMAAAgNx2//1avFgLFuiHH9S2rf77X9WpY3Ymk7i7q1atGxdVy8jQnj3atStruogTJ5SQoOPHlZSUdct2Rpmk4GA99pi6dlXt2gZnd1IzZ2rcOI0bJ19fffdd9kuQ4Y5RwAAAAHJbnz5q314TJmj0aC1apEWL1LChhg+/ab4E5+TqmjVTYjY2W9b0Htf7WEJCVkM7cEDHjmnUKI0apYgIde2qLl1UsaIZ0Z3GK6+oUCHNm6ctW5SSYnYaB0QBAwAAyAPXr7jVv78+/liffqq1a7OO6Zo5k6sb58BqzfmMMkl79mjGDH31lWJi9M47eucdVaqkTp3Uo4fCww0P6gT8/fXSS3rpJV27lsOEirhjHFALAACQZ4oU0YgRiovT66/Lz09Ll96Yvx5/U+XKGjFCJ05ozRoNGqQiRbR3r4YNU9myql1bY8YoKcnsiA6K9pU3KGAAAAB5LDBQ776rI0e0ZIkeftjsNPmT1apGjTRmjI4f14IFeuwxeXtr61YNGaKQED34oL76SpcumZ0SuD0KGAAAgCECAvTAA0zod6c8PNS+vb79VklJmjlTbdrIYtHPP6tXLwUHq1+/rGsNA3cr/gQAAACYZ8kSFSumgQN16pTZUfKbAgX0+ONavFgJCZo4UffeqwsX9Nlnql5dDRpo2jSlpZkdEcgBBQwAAMA8drvOnNH48SpbVsOH6/JlswPlQ4GBeuYZrV6t/fs1dKgCA7Vhg554QkFBeuYZRUebnQ+4CQUMAADAPK1ba/dudeqkixf15psKC9OYMcrIMDtW/lS+vEaMUHy85sxRixY6f16TJ6taNdWurcmTlZpqdj5AooABAACYrEIFzZmjqCjVq6fTpzVkiCIj9f33ZsfKtzw81KmTli3T3r0aOlSFCmnrVj3zjIKD9cwz2rPH7HxwdhQwAACAu0Djxlq/XnPnKiJC+/fr0Uc1ZYrZmfK5ihU1YoSOHtXkyapVS+fOafJkRUaqRQstWiS73ex8cFIUMAAAgLuDxaKOHbVnjyZM0D33qEIFswM5hAIF9PTT2rJFmzerTx95e2vFCj30kOrV05IlZoeDM6KAAQAA3E3c3NSvn9auVcOGZkdxLLVr6/PPdfKkPvlEQUHavFmtW6thQ61YYXYyOBcKGAAAQH6Qnq7p03XokNk58jk/Pw0erLg4TZqkoCCtW6cWLdSokVauNDsZnAUFDAAAID9YtEi9e6tCBT35pOLizE6Tz3l4qG9fxcTok09UrJjWrtV996lRI/36q9nJ4PgoYAAAAPlB69bq21cWi778UuXL6+mndfSo2ZnyOR8fDR6s2FiNGKGAAK1dq2bN1LKlNm82OxkcGQUMAAAgP/Dy0qRJiolR376y2/XFF4qIUM+eOnzY7GT5XIECGjpUR49qxAgVLKjly1W3rlq21NatZieDY6KAAQAA5B+hoZo0Sfv2qWdP2WyaMUOVKunzz82Olf/5+mroUMXG6pVX5OOj5ctVp446dtSCBfrtN+3bp6QkLpCNXOFqdgAAAAD8Q2XLavp0vf66hg/XN99o/Xo9/bTZmRxCYKDef1/PPacPPtBnn2n+fM2ff9MG/v4KDFThwipUSIGBWR+v/6NKFVWtalJu5CcUMAAAgPypXDnNmKGPP1ahQmZHcSxFi+rjj/XiixozRvv26cwZnTmjlBSdOaPz53X+/C0P+6xaVb176/HHVbSosYmRn1DAAAAA8rMc9/Wjo+XqqkqVDE/jQIKCNGJE9oXnzys5OauM/d7KUlJ06pRWrlR0tJ5/XkOH6oEH1Lu32raVu7sZ0XFXo4ABAAA4lsxM1a+vtDQ98ICGDlXTpmYHciD+/vL3z3lVZqZWrdLkyVqwQIsWadEiFSyozp3Vo4caNTI2Je5qTMIBAADgWFxcNHSoChTQzz+rWTM1aKAffpDdbnYsR+fiohYtNGeOkpI0aZJq1dK5c5o8Wffeq0qV9PbbOnbM7Ii4K1DAAAAAHM5bbyk+Xp98ouLFtWGDHn5Y5cppzBhdvWp2MicQEKC+fbVli7Zv1+DBKlJE+/Zp2DCFh6ttW82dy6Pg5DgEEQAAwBH5+WnwYPXpoy++0KhRio3VkCGaMEFbt8rX1+xwzqF6dX3yiUaO1E8/ado0/fSTfvxRP/4oSQEBKlxYhQtnTaJ4/R9FimRf4uJi9s+A3EcBAwAAcFw+Pho8WP36adYsffihTp1SerrZmZyMm5vat1f79jp9WrNmafp07dihs2d19qxiYm5z3+LFs2a3j4xU1aqqXFkeHoaERh6igAEAADg6Nzf16qVevXJYlZamzp115YrKl1eFCipfXuXKqVQpWSyGp3R0hQtr0CANGiQpaxLF06dv/OP32/Ul1xcmJioxUcuXZ30FV1eVK6fISFWrltXKSpUy8QfCv0MBAwAAcGIXLmj5cl25cmMvX5K3t8qVU/nyGjRI99xjXjjHdf04w3LlbrPZ0aPatUu7dmnnTu3apYMHtXev9u7V7NlZGwQEZDWxyEiVKaMyZVSypNzc8jo+7gQFDAAAwIkVK6a4OG3bpv37deCADh7U/v1KTNSOHdqxQ1L2AnbunF58Ua6uKlFCoaEqUULBwSpVSgUKmBLfwYWGKjRUbdtmfXrlivbuVXT0jVtysqKiFBV14y6uripZUqVLq0yZrI/X/1GkiCk/Af6MAvaP2C7H79y4NSY+5apHoeJhlevUDC/IbxAAAORvxYurdWu1bn1jyfnzOnhQsbFq0iT7xjt3asqUHL6In5/CwvTRR2rZMg+jOjlPT9WsqZo1byxJSMgaH9u3T4cPKy5OJ04oLk5xcVq58qb7+vpm9bGICLVrp4YNZWU6dHNQH7LJOLV1/pQp3y49fd/EbwZUuDHxTGbS2olvvfbBV2tOpP1+GQ2Le2DkQwPeeueFRyr6cpg0AABwGP7+qlNHderksKpJE61cqf37FR+v48cVH6/4eB07pgsXFB2tNWtyKGDHjqlECbmy25kHgoIUFKT777+xJD1dR44oLi6rj/3+8dy5rEEzSSNHKiREnTrpscdUty7n+xmMZ8IfXI2d/VyXfpO3pWTa3arXzLix4sruiV3aDF54LP3mKxja089EzxvWcen3fb/8YXyHMH6XAADAGTRrpmbNsi88e1bx8apYMfvyCRM0YIC8vVWjRlapq1NHZcuy059X3N1VrlwOZ5edPZtVxrZu1ezZiovT6NEaPVqlS+uxx/TYY6pe3Yy4zojS8P9sCfP7tOj+9dEMuySLxc31/0e/7OeWvdghq31ZvEvWvb9Vw8olC7pcOrF7zZKfNx5PtV+Mntzz0ULFo95ryDU1AACAkwoIUEBADssjIxURoZgYrV2rtWuzFhYsqLAwVaqkCRNUsKCRMZ1XQIBq1VKtWurYUe+/rz17NHeuZszQ4cMaMUIjRigsTA89pF69bjrEEXmAAnad/fyPrw2adTTDbrEWrt//w1GvdK1f4noDy9g9/pUvYtLtshZu/NrXX//3/hD33++VHr/svR7dh686lbpj9HPjuq17rQq/TwAAgD9o3FgHDyolRZs3Z922bNHJk1mTfAwYoAYNbtp+5kxNnKiQEJUsqZIlFRqqJk0oabmvcmVVrqw339S6dZo7V3Pn6sgRjR2rsWNVqZI6dVK3brefpBH/CoVBkmQ/u2jKvASbLJ41Xl287N16Pr+vydg159voq3a5BHf/fP479xe+abTcPbjlW99/k1K31fiDV7Z9/vm6F8c0dv/T1wYAAHB2hQqpVSu1apX1aXKyjh1TZqbq1s2+5YoVNwbKrvP0VJs26tFDDz4od3a1cpXVqkaN1KiRRo3SqlWaPVvffae9ezVsmIYNU926mjJFVaqYndLRMPmJJCkjeuO2NLssBR54/vm6Pn9YYT+3fWtshuQa/nj/toVzOFbZ4t/05cGNPSzKPPHryn0Zf94AAAAANytSRLVq5dC+JE2apN9+09dfa8QIDRigJk2Unq758/Xwwxwal4dcXNSihT7/XImJWrxYPXrIz0+bNmn1arOTOSBGwCRJtnMpZ22SS0ilCn43tSzb2TNnbZJcy1cpf4vflbV4nbqhLisP2E4eP2lTNQPSAgAAOCp3dzVsqIYNbyyJj9c332jOHAUGmhfLabi5qU0btWmjK1e0fXvOJRl3hhEwSZLFr6C/RbKdPZ1iu2mFtWChglZJ9oxr1+w531ey2+yS7Onpt94EAAAA/0pwsF58UZs2acmS7KuuXdOSJUpONiOWo/P0VIMGcnG5/Zb4hyhgkiS3KrWre1lkS162cG3qH1dYAiKrhblKGbu27Lya831t8Rs3HsuUXIJLluC/KAAAgGFmzlTr1ipRQm3b6ptvdOWK2YGA26OASZIsRdp0axVgVeaRzwe8/POpP4yCudbs0rWyuyXz5Owx3xy3/fme9rPLR4xde9Uua9FGTStzRCcAAIBhWrZUu3ayWPTjj+rWTSEhevllHT5sdizgr1DArrMU7fjWi3V9LParez9tX6f1a99sS86aUMO1+vNjB1X2tKf8+FzHl386nv7He12LX/bmI49Pjs2wW9wj+zzbzMuM6AAAAE4qJEQLF+rkSY0frzp1dOaMRo5URITatNGaNWaHA3LGkM3/c6/60qzP9z3w1MyDaceWvt/tl1GDK97TvGn9ahXLlQluOPjZ314eu2HTx20rLWj66CP3VS/lZzt3ZMeKBQtWH75klyx+9V6f9HJNN7N/BgAAAOdTuLD691f//tqyRZ9+qm+/1U8/adMmzg3D3YkCdoNr6a7Tfguq8FSf9xYfumy/mrx31ey9q2bftIn90qFVX3206qs/LLL4RDzyzlefP1fPRwAAADBP7dqaOlUffaSZM1W0qNlpgJxxCOJNrEWavrZwz74V44c8Wq+kjzWH637dYHELKH9fn49+3hM9//n6hf5yUwAAABikUCENGqQuXbIvv3BBS5cyUQdMxwjYn3mUbNZ/dLP+o1ITdm/ZvHNv7JETiafPXUi9ci3DbnF19ypQMLB4SJnykXXuqV+xCFdjBwAAyBeGDdOoUQoM1BNPaMAAhYaaHQhOigJ2SxbvoMjGD0U2NjsHAAAA7lzXrvrtN23apI8+0tix6ttXr7+u4sXNjgWnwyGIAAAAcAK1a2vjRm3erMcfV0aGxo9X2bJ69VWlpJidDM6FAgYAAACnUbu2Zs5UdLQeeUSpqRoxQuHhWr3a7FhwIhSwO3blbMLJ+Pj4+PiTKZzUCQAAkA9UrqzvvtOGDWrZUufOadcuswPBiVDA7tTVpQPLh4SEhISEhD+7+KrZaQAAAPA31a2rX37RyZPq39/sKHAiFLC719ChQy3/yrZt2ySdOXPG7J8AAADgrhcUlMPCU6dksxkeBU6BAnb3cnNzs1j+/fXFinL9QQAAgH9h/XoFBalmTS1ebHYUOCCmob9T7o2HrdwwMNMuWQMjcvWyYO++++677777L+74/PPPjx49ulGjRrmZBgAAwEkEB6tUKe3cqXbtVLiwihZVkSIqWlRFi6p0aQ0cKHcuBYt/jwJ2pywB4bXrhpudAgAAALmkVCnt36+JEzVihBITdfr0TWurVFGrVjctmTlTI0eqUiX17q2WLWXlEDP8FQoYAAAAcDMPDw0erAEDdPq0kpN1+rSSkpScLItFzZtn33jbNkVHKzpa336rkiX1xBPq3VulS5uRG/kABQwAAADIiYuLihVTsWK32ezjj/Xkk1q4UF9+qdhYvfOO3n1XzZrpySfVoYM8PAzJinyDAnYbGZdOJyWfOXsh9eo1m9XDx9fX179wsSIF+L0BAABAkmSxqEoVVamiV19VVJSmTtW8eVqxQitWaN48ffed2flwd6FI5CAtfsOi2fMXL1uzcfvuw6cuZ9hvWmuxuPsFh1eIrNPswfYPP/xA3ZLe/36mQgAAADgMi0VNm6ppU40bp2++0ezZuuceszPhrkMBu4ntzMbJrz03bNqGxHT7rbax29PPn9i38cS+jUu++uCFIrW6vT76gwGNirkYmRMAAAB3L39/Pfusnn02h1UpKVqzRoULq0gRBQXJ19fwcDAZBeyG9EOz+jzagMOTAAAgAElEQVT45MyYq//fvSwu3oVKlCxVMijQ19vLy8PFln4lLfViSlL88WPxyZeu2SX7teQt059rvurXcT/Neqayl6nxAQAAcNd7/nlNn37jU09PFSmi4sVVtKjKl9d773HOmMOjgP2/tE3vdLjeviweJeo/1vfpx9u3aBBZ0jfHkS1bWtL+zVE/z5s+efrPBy5cO/bDoEdfLrtp7H3+HI0IAACAW3viCV24oKQkJSUpMVGXL+v4cR0/Lkk//qgePVS9+k3bz5yp+fNVrZqqV1f16goLMyM0chMF7DrbsS9fGx191W5xCW436ofpA2sV/MsqZfUqVqlx50qNO/d/fuFLj3Ybv/1yzOevTxrQ9OXyHIkIAACAW2rSRE2a3Pg0NVXJyUpIUHKyvLyyty9Js2dr8WItWJD1aUCAatRQ9eqqUUNNmqhkSYNiI/dQwCRJtuMLZv+WZpdLqaemzBhUy+9v39Ej7KHRs4fvqPbCmrRt3y+Ke6F8WRoYAAAA/iZvb4WGKjT0lhvMnKmlS7V9u7Zv144dSkrSypVauVKS/P11+rRc2Z/PZ3jAJEkZe3fsuWaXtWjrTs3+fvu6ziW8Q6e6r6yJyojZezBTFDAAAADkGn9/de6szp2zPk1IyGpi27crKCh7+7Lb1batjhxReLgiIlS2bNatVCm5sJN6t6CASZLsV6+m2yVrAd8C//wsLqtfQT+rZE+/euupEwEAAIA7FhSkoCC1bp3zWrtd+/YpLk5799603N1dZcqob18995wBGfHXKGCSJJeQ0BAX7cs8sXVbgq1+Kes/unPazs27r0nWYkHF/tkdAQAAgNxjtWr/fh04oJgYxcbeuJ04of379f33FLC7AQVMkuRate2DoR/uO5QW9cErc9vNeKzk3x6jtV/cNPLV6UcyZS3asGlVt7wMCQAAAPw1d3dFRioy8qaFaWk6fFghIdk3TkjQ6NGqX1+tW8vT07CMTo4hm+vc6z0z8F4/izKPfduzQauXZ2xKuHrb+2Se2//jR93vaTls/QW7xb3y0/1b+hiQFAAAAPhHvLxUubL8/bMvX7RII0eqQwcFBempp7RypWw2M/I5F0bAsriU6zdx5PJm/X5MSI9fMbJn/U+GlK3bqFG9GhXLhIYEFfb38fR0d7Vfu3Il7dKZxBPH4w7u3Lzutw27E1NtdknWgg3fnPJqHa6aBwAAgPyjZ0+lpurrr7Vli6ZO1dSpKlFCXbro8cdVs6bZ4RwWBex3buX7zlnhObDr4C+jz9ns11Ji1i6MWbvwtnez+lbq+sGMCc/WZPgLAAAA+Ymnp4YM0ZAhOnBAs2Zp1izFxmrUKI0apQYN9NtvsnK4XO7jd/pHXhV7frHlwPrpb3ZvHO7v+tfzIVpc/Uo37Pra1DX7t8/8T03/fz55IgAAAHBXKF9ew4YpJkYbNmjQIBUrpoQEDkfMI4yAZedatG6PYTN6DLt2Li56y7ZdBw4djU86c/ZSWnqG3Lx8ChQo4F+kVNny5StUqVYlrCCTbgAAAMBx1KunevU0ZowyM7l0WB6hgN2KW8HStVqUrtXC7BwAAACA0WhfeYZDEAEAAADAIBQwAAAAADAIBQwAAAAADEIBAwAAAACDUMAAAAAAwCAUMAAAAAAwCAUMAAAAAAxCAQMAAAAAg1DAAAAAAMAgFDAAAAAAMAgFDAAAAAAMQgEDAAAAAINQwAAAAADAIBQwAAAAADAIBQwAAAAADEIBAwAAAACDUMAAAAAAwCAUMAAAAAAwCAUMAAAAAAxCAQMAAAAAg1DAAAAAAMAgFDAAAAAAMAgFDAAAAAAMQgEDAAAAAINQwAAAAADAIBQwAAAAADCIq9kBkFf+97//jR8/Pu++/unTpy9evOji4mKxWPLuu+AuZLfbMzMzrVar1co7OM6Fh96ZZWZmSnJxcTE7CIxms9lsNhsv907o+t/8woUL+/r65t13OXXqVN598bsWBcwBhYWFSTpz5syZM2fy+ntlZGTk9bfA3SkzM/P6DhmcDQ+9M7PZbGZHgDl4uXdaycnJycnJefotLBbL9X1X52Gx2+1mZ0DuO3r0aF7vIT355JNRUVEjRoyoX79+nn4j3G1mzZo1efLkrl27PvPMM2ZngaH27NnTv3//SpUqffrpp2ZngdFatGiRkZGxbNkyNzc3s7PAUC+88MLWrVs/+uij2rVrm50Fhvrqq6+mTp06YMCA5557Lk+/kZeXV1BQUJ5+i7sNI2COKTQ0NK+/hY+Pj6TIyMgmTZrk9ffCXWXDhg2SSpUqxUPvbNzd3SX5+/vz0Duh68edNm7c+Pp/AziPgIAASdWqVeOJ72xWr14tKSAgoEyZMmZncTQcxw8AAAAABqGAAQAAAIBBKGAAAAAAYBAKGAAAAAAYhAIGAAAAAAahgAEAAACAQShgAAAAAGAQChgAAAAAGIQCBgAAAAAGoYABAAAAgEEoYAAAAABgEAoYAAAAABiEAgYAAAAABqGAAQAAAIBBKGAAAAAAYBAKGAAAAAAYxNXsAMiv/P39f/8Ip3L9Qffz8zM7CIzGs96Z+fv7p6amuri4mB0ERuOJ77R4uc87FrvdbnYG5EvJycnbt2+///77zQ4Co6Wnp//yyy/33Xefl5eX2VlgtF9//bVcuXIlSpQwOwiMtmfPnoyMjGrVqpkdBEZLSkratWtXixYtzA4Co129enXZsmUtWrTw9PQ0O4ujoYABAAAAgEE4BwwAAAAADEIBAwAAAACDUMAAAAAAwCAUMAAAAAAwCAUMAAAAAAxCAQMAAAAAg1DAAAAAAMAgFDAAAAAAMAgFDAAAAAAMQgEDAAAAAINQwAAAAADAIBQwAAAAADAIBQwAAAAADEIBAwAAAACDUMAAAAAAwCAUMAAAAAAwCAUMAAAAAAxCAQMAAAAAg1DAAAAAAMAgFDAAAAAAMAgFDAAAAAAMQgEDAAAAAINQwAAAAADAIBQwAP9CxsXEY0ePJV3KNDsIAABAvkIBwz+TdviX8S92vrdSqSIFvHyLhlZp0u2ViauOXTU7FgyW+svgaqXDIrpMO2kzOwoMcPnQii/e6tO6bsXSxQt6e3j7Fw2r2vyxIaMX77/A4+/QbOf2fPfhwE5NI8OKFfT28PQNLFGubuter05aEXfZbnY2GCxt67A6PlaLS9Czy9LNzoK8c23tC+Gulr/kWvbFddfMzpnvuZodAPlI2u7Pn+r0/Lf7L/3/K+/lY3uSj+1ZPXviZ09O/O7TLuFupsaDcS6smPPTaRt/P5yBPWXDmGd6vTH/4B/2uNOSj+5adXTXqrmfftzijRkz3mhWjPfyHI/t1Kp3unb736rEjBuPfEpCTEpCzOYlM8Z89OgH304dUMvPYmJCGOjS2reffH9rqp337R1dalxsAm+sGYAdKPxNtmNf93yw3/wTGXZZvMPufah13VKeFw6tXbx408mr56On9G7t6r/u0wcDeTV2AleiJ7w/9xR/oZ3B1X2fPv7QCz8n2ySL1S+8absH6pTxu3J87/Z1UWtjzmZei1/2dvv2tl+WvV3f1+yoyFVX93zy2KPDfz1nkyyexWu0bN0kslRB67m4LcsWLt+bkpEWO39I2wy/9d/1CmOH3PHZz6147anRu64y7On4Mo7EHrlml6y+paqUL+qe4zYuISEF2Nm7Y3bgb7CdmtctyCrJ4h7RY1bsld9XXNo54aEQF4tkcS03JOqiiRFhhKtJ2+a8cX+I2/W/ve5Nxx3LNDsS8k7GgY8beVskWVyC7n9v9amMG6syz2wY/VBJV4ski0eNt7ZdNS8lcp8t4av2AVZJFs9KT846cPkPqzJPr323WaBVklyCn/rxvGkZYRRb8qKnSrv+/w63tfgzv/B0d1ypCx73t0gWnw7fXjA7i2PjrSv8HZl7Jv5vbqJNFreKg778rGu4x+9rfKr+Z+qnPUJcZM+ImTx85gmGRRyR/cL68f0ff6hJ1ZDAErU6v/vLiWu8EeoMrm36fOL6VLvkEt53+rev3FvE5cY6a6F6Q2bNfqGKu0X2qzsnf7YqzbycyG22+O+m/XzOJrlGvvDVp13Lef9hnTXwnlenvt3E2yJlJiyatybVtJQwhC1h3qD/TIvLkKurK6MeDs92MjYuzS65lIwo42V2GMdGAcPfkLn3u+92X7PL4nlvv4ENfG5eaQl88LmnqrhK9rS1cxfG08Ac0aUd338xa9HqXfGXMqleTiMzdtWqI5mS3Kr26tc84M/7Xj71Bv7nXg+LZDv164roDOMTIo+kbfpta7pdcqvc4bHqHn9abS3Z6sGqrpJs5w7s53QRh2Y7NrPfwNknbC6h3V58vBS7jA4v40hsXIZkcSkdUdrl9pvj3+McMNye7ciypXuvSXKr3a5NyJ//ArtWatsm4t2d+zKurF+y8ux/enEimMMpULPry6/U/X0POy167oSfDrHD7eAyYg8cypBkLXZPw/I5vhRbi1apUty64kimLTE+IZMXFEdhO338RJpdkkvJsJI5PfJWX39fqyTZU1PTeE/GcWXETu773MIku2v40xM/brei0UizAyGP2c8eOpxik1yKlQ33Z1cuT/F6idtL37/rQIYkl+DadYJzegfMtVK9Wr6WfWft6ft3x2QokNkQHYzFr16f4fV+/9R+5sudEylgDi/t/EW7h6en3EqXKXmLd77tadf3vy0enh68WDsMa5EO41bVvmS3uBSp4J/TBtcO7T+cIcniHlYmx9cEOIL0vWOfGvpLit2tfL/JH7QqtG+F2YGQ5zLiYuMyJLmUKVfGxX7p2Oao1dtiEy/ZfQJLhNe8996qQV78oc8tFDDcli1+/4GLNkkuoeGhOQ9Ju5UqHeKisxm2E/sPXrLXz+FgJQD5TMHu353r/pdbXN26LOqMTbK4Va5emVcTx+EdUu2ekFuuTds98Z0ZcZmStUjbbq0K8ufeMV3Z/uGTb665II8qQ774X3N/C9d9cgZX4g7F2ySLl2f8nGcbfjR9Q2L670PcFqtvRJuB737waqeKBczM6Ch4ycRt2VJOn7VJsrgVDyqc85udLsVKFHWRMuy2lNMpdlHAAMeXvu+z1z+PyZAsPo27PpzDwclwFPZzMRt2HD1/ISXxyN4NP349c1nsZbvFq/wTn33coTB/7R3S5fXvPPG/TZflWeOlKW83Yn/bSWQePRR3zS7p/M8jXsy+0m67eHDRe13W/LLx28UjWxXjmX+HKGC4LfvlS5ftkixe3l632MeyeHlfH5e2p15K5YwAwOFd2v35U+2H/nreLotXtSHv9rzVQYpwBNc2jXzkwc+Tfp9uw+pX/clRU0Y+UTOAh90R2c+vev2pj6OvyKfu61Ner+t9+3vAMWQciTly/eQCi2uR+n3++3rfh++pUNw7I+XIzpVzJ7z/0Zxd523ntox+vFfZDT8+W5ZJOu4IfzxxW/YraddPs3Z3z/mafH9YZU+9TAEDHFra4R+HP1yj3jNzDqfbLa7B7cZ8+9+6zFfsVGwXo79977UR8w8wB70Dsp/5+aU+E/any7fhW1NeruFpdh4YxpZwKO6yXbJ4RPT8enPUZwPb1CgZ4OXm4VusfKOub3yz7tcRzQOsku3MsnfeWXyWfb07QwHDbVk8PD0tknTt2i0PAk9PT7/+j78oaQDyucsHv/9v2yqR7d78ITbVLqtftT5frZz9dHme9A7OvcWnx1KvpF5MSYjd+vPUNx6tWMB++fDSD7s0aj92T7rZ4ZCr7InfDX5m6uEMS8Fm737xXBWe287EWrLvooTTp0+fPhU9tXPon6ZTK1D9+clvNfK2SLbEBdN/OkcDuyMUMNyWxaeAj0WS/UralVs83+xpWassPr4+HBgMOJ7UmO9ff6BytQ7v/ng41S5LgYj2wxZuXz+5azneIHcCVld3Dw+vAgHFw2u2emL4vA1LX6vtbZHt9Ir/Dp15kguBOQ7b8a/7D/jmeKa10P0jJvcvz1kqTsbFy79QYGBgIT/PW5zvX6Zrz8aeFsl+ecOarczLckcoYLgta2CRQKske3pSYkrODSwzOeFUpiRZAwI5KQBwLPZzWz/tWrN6h/eWHr1it7gWrtV79Iq9uxa82aYMRx46JYtfg1fe7FTEKtkvrvphxXneCHcQ9jPzX3p+QaLNWrTtxxOfDucUH2RnKRRZrZSLJNvZhMQ0s9Pkb+wr47asweXL+lgkZR6PO56Z4yYZJ47G2yS5BJUvx6TEgAPJOL7gP/c2HvDtgVS7xbVYw4Ffbjqw6cshzUp6mB0MecV+7tDWTRs3bty068Qtz/Hyrlm3iqsk+7XjR+IZAnMQ9ovx8edtku3UwifCXCw3c2/wUWymJFvipPs9LBaLxWINfOJHjkB1MhbvAt4WSRZZLOzs3REKGG7PvUJkBVdJmUe3bjuV03udmTFbdlywSRb3CpEcswA4DPv5qFfadJ28O9VucS/V9v0V0VFje9UoxOuGY8vYP6nrPfXr17+n9YiNtzrIyOLiYr2+++XiykAJ4ADsl45uX7d27dp1G2NucbCTJNvppNM2SZaCxYty+PkdYWcZt2cNa9myguv6XRnpm39ecfqZHkWyve1hO7L8l30ZksW9zoP3cVUYwFFcjvrvU2N2X7Fb3Ms98c3ySY+W5BXDGbiGlw93VUxmZtK2rUdtzcrmVLivHdhzMEOSxS24ZHEauYOw+Nfp/tIrjXI+0MV2ctXnMzeetVl8qj/W74EwF8niXYuZyB1J2oo3WvT5Kc3uEvHimt0jG+Q0AUvGvqg1iZmSxbtuw5p/mqUD/wQvp/gbXCs/8kjF93fvunbxl4nTDnR9qcJN/2/SNk3+YuNVuyze9Tu0LcVLMeAYbCe+fv/Lwxl2i1vkCzPG076chqVQ4/tqeixdfzVjy/Qpm/u/X+9Pp/rZT/0wce6JTMniUa9FY3/edXMQloCGz7zb8BYrr2146buvN56Vxbfek+++35LpER2OJbDZ/bXdl6y5mnloxsjZg+b1+NPVHe2J34+YvPuaZA1o2en+Qjzx7wh7y/g7XKv1e7ltgFX2tA3v9R2x6Q/nXNuSfnn12XH7MiSXkt1f7V2G/1GAY7An/jhvzWW7LG73PP1sbabbcCIu4d36tPCzyH5tz6gefafvu3zT2vT4X97s+J85iTbJpcRjQ7pxDW7AIVjDHnumTaBVsiUt6N/xlWUJGX9cm3b4+xfa9519MlMWz2oDX+9cjP51Z3hLE3+LpViXkSPnrn96YeK5NW/eV2fdE0+1rx3sfj5mzZyp36w9ccVucSvbe9yw+/3Mzgkgl1zdtn7bVbtk0cEpPe/77i9fbF3Cun/6xVPlOBzJQVhLdP/grRnrXvz1bHrMzCeqLf34vgeaVA0r7GW7EL937dKlm46n2iWLR/mnJn7QjrfBAQdhKd71k3GLt/SYfSzj4qaPHig/v1HrVvXLFfO8lnJ01+qly3cmXrXLYi3c8sOZr9ViCPROUcDwN7mGPzH9+5TuXd746eilmCXjXllyY5WlQKXu4+aOf6g4L8SAo7DFHzh40SbJnp6wMyrhrzd2rdTwEnOROxL3ykPmLbzSo9uwn49fvZa86+cZu37+42qLW1Czl6dOf+sB3gUHHIi1ZJdpK92Cnxo8bnV8+sXDq2d/tvoPay1W/8jeY74d16si9evOUcDwt1kK1n9x4baW8yd/9uW85TsPnzyT7l00JKL2g1369OvTOsLH7HgAclFmcmJyzifjwylYAhu9+uOeR5d8+fnMhSs37oo9mZJm9/IPDAqvfk/ztl379GwZ7kP5AhyOR3iHj1a17PPTjK/m/LB0/b5jCckXLb5FgiNqN2vT6cm+nWsXoTjkDovdztuWAAAAAGAETp4FAAAAAINQwAAAAADAIBQwAAAAADAIBQwAAAAADEIBAwAAAACDUMAAAAAAwCAUMAAAAAAwCAUMAAAAAAxCAQMAAAAAg1DAAAAAAMAgFDAAAAAAMAgFDAAAAAAMQgEDAAAAAINQwAAAAADAIBQwAAAAADAIBQwAAAAADEIBAwAAAACDUMAAAAAAwCAUMAAAAAAwCAUMAAAAAAxCAQMAAAAAg1DAAAAAAMAgFDAAAAAAMAgFDAAAAAAMQgEDAAAAAINQwAAAAADAIBQwAAAAADAIBQwAAAAADEIBAwAAAACDUMAAAAAAwCAUMAAAAAAwCAUMAAAAAAxCAQMAAAAAg1DAAAAAAMAgFDAAAAAAMAgFDAAAAAAMQgEDAAAAAINQwAAAAADAIBQwAAAAADAIBQwAAAAADEIBAwAAAACDUMAAAAAAwCAUMAAAAAAwCAUMAAAAAAxCAQMAAAAAg1DAAAAAAMAgFDAAAAAAMAgFDAAAAAAMQgEDAAAAAINQwAAAAADAIBQwAAAAADAIBQwAAAAADEIBAwAAAACDUMAAwGFdnd/Fx2r5p6wBPRddla6tfT7c1WKxuNcfGZNp9k/yT2UkRn3ydIvKJfw83T0L1Xxz4zWzAwEAkMXV7AAAAOSuS6tfbfHAx3uu2CVJ15JTUk0OlB9l7Jnx6oR1l+xukb1G9KvvbXYcAHAcFDAAcFguoU269/ZKt2dbbDsWNWtVXIbd4lamWdfGpbIfCmHxvqeki/R/7d1pfBRVusfx51Qv2RdCEgJhCxhlCcSQQACRRRRElkDYTALqMMwIDqAyuKEzo1cdlcgmIyqOgIqjDEtACCAoiIICARXhwiWAENllN0CWXuq+QKBJmpBIpzrA7/uyK9X19NOfT6r+fU6dKrnXdUM/sXDiO9sKddFCWwz66586N6jRqLHJ20Vdf5z7Vs98571jTp8erV8ggAGABxHAAOCGZU4a/s704aVeLpqfNm/VHruIb5tR02ak+Ljf2Rmbljk9Pl/XIpJqXFfT1R37cncX6CLmW4e9/d5zLTnPAQCqFE5MAAB3tMiWqQ+09HYVv4fD4RARUcGhIcrbtQAAUMJ19asmAKDKKc4/ceqs7bqdsCiinzuw/4QH678OGmI7l3+20O7ZEj3dRgC4YRHAAADu2DeObWIpuQqi8+cpHX2UUn69PjzlPLnxraF31KteLbxakI81oHrtxu3Tn/vP5l9/uwgv3PvZhBEprW6pWS3Axy+4Rmzr3o9O/fqQ/YrHsx1Z9+H/DOvVulHdiGD/wIj6ccl39x+ZOX/LKWd5K3bmTW7vo5Ql8eVtdhGxbXj6NrNSylRnxCqbiIhjZ2Zrq1JaYNr8IhE5uyPr7/1bxVT3D0l6aZPLMon2ozkfvTS8d5vGdSOD/XwDw6NjE7s++MzUFXsK3B2z8hpShor0yrVC0U/mTP1Tx9jIkJBAP6vZJyi8/u33PPiPj74/4bKjbc3jDcxK+XR775hTRIoWPxSmlFLWtq/vcl61jbZ1T95mUUqZwgctyHdbu3PP5A6+mlKaX8c39pb7uwWAG4kOALi5FM67P0CJiArKWFB4xb+y5TzT2CwiluRxufYLLzry3uhgFRHfHpPmj473Lz3DTwXGj15x3Hbg01EJIaV+4lOWugNm7bWXPlbB9veHNA/V3EwYVOaIO/66cG9xeT6XY++kO62l30Kr/ZeVxbqu6/bccckWERVw/7yC/I3jOkf8VqAW9fDyovNvUbR79vAW1UzuZi4qv5iUCRtOOUscs3IaUoaK9upihT1n5i5+pLGbEkVZ6/efsfPCfsVfPxbjZtESS5vMnY6rt7H42yduNYuIFvHAwnx3X9LO19talYjyv+ft/Y4KfXIAuEFwDxgAoMKKv3r+oSWnCixRrXoP6N6ueR3T4Q3z3p25Kq9QP7N58oM9vw/94cvtxWG39x7Ys0N8tHP/d8tmffj5ngLd9vPcJ14Y3HN6j2CX97LvfLd/p+HZhx26KL86rbp1uzOudqD92O6c5YtX7jhpP7p2Qv/Oxz7+anpqratM2tBqZczY2PGMbfu/+g/6908Oc9yjcz/4Q31NWcMbXn6ycx7LfmzM2JUnQ+N69OvVPr5BnYQ4s4g4D80betegWXk2XZQppGH77vcmx0aY8/N+WJm9YvORooI9C8d06eVYvXxM89LrlniyIWW4hl458t4fOmT19gJTRELvQf07xUWZTuz5YdXsj5bl5juL984dNaxjh+WPxGgi5oQnsr97qLh47fNdRiw4qVvbv/j5Gz2DRQXUKrFgpts2WhJTU2ImZO50HF+Wtfpsr+4BJarInTs7x6aLCrorvc/VvlAAuEF5OwECAAzmgREwEdFC2j63+tilMQzHwTkZtS+MnCjfpsM+3W+7uNH5S/bQhiYRES16+BdFrofZPv7OICUiWljbp7LzXOtxHN8wJbW+RYmIFp4662CJwacrFr7p2SZmEbG0enXHZYNLF4ZuzDVqRVoiO/9z7XHXERjn4U8GnF/uUQvv9MKqQzaXTad/fDetoVWJiPJv/epWl02eb0hZn+z39MqlQtFC24z94ohrU85892r7EE1ElPXOiXtc+1G09I/hmoj49Jh54rIqym6jrhd/+0SsSUS0qCFLzpb4BPYtLyZYRESF9vv4eDm/TwC40fDrEwCg4lRQp5dnPd+++qWziFaz96ODYs0iIsrS9PEZE3tGXxp3UhFdxwxtYRER5/GDh4ouvU/+ivETv8nXxVRn8PQFr9xX13VsSQtrOeLDOU/F+yhxHl+UOW3L77pfqhTdfuSw3mvirKfbhrmcAx07Zk5Y+ItTxFR/yAdz/9YxymXQTAU3Gzpj7nNJfkr0czlT3/zSzYOdPdWQMlxrr7RqXcd9/OJdka7zCwMSHv1HRrRJRHfsy9vvKL3TFblvo4hYElNTGphEnL8szfr68vvm7Fvn/HeLTUSr3j29WxhLVAK4SRHAAAAVpnw7DL6/fok7hUz1GtYziYiYb894sIVvyY2xDSxKRHSH/VI4OLfq46yDDlHWpBFje0S4uSL3Txw5srOfEt22/bMVeR5as8FUq++wPlGXHc2x+9Os74t0Ub5tRj3d1U028Ikf8WRKmCbiOLBowfriklcQ9C0AAAeXSURBVJs91ZAyXGuvtJr9H8uoV+q0b41tfH4orpxluHyC0m0UERFLYt/zCezIkqw1rgnMvvm/c7fbRbTIXuldQip2MAC4cRDAAAAVpkJrRweVuvQ2m8+P91gbxNYrtYyDMptLvWbfsmbdKaeIqX6HDg3cLPwgIiosoUWMSUTsu7bv9MwQmLImtE0sEYfObFy31S4i5rj77q3v9tSoQjvfd4evEnEc2Zizt+RYkYcaUoZr7ZXySWqf7O9mJ7PZ7aIjV+WujeddHAM7nJ31TeHFl22bZs/NtYuYovukdwpwtyMA3BQIYACAitNUGecPk8VSvkt6+4F9h5wiYs8d19qi3LO0eOl/7SLizD92vHxT9a5GhdSKCri8QOfRg4dtuojyiW3kbglAEREVdOtt0ZqIOA8fOFx6fMkjDSnDtfZKBdeI9LvWIi57w9JtvMCSdD6BOQ5lL1h3oZDi9bPn7baLmOr1S2/n0UoA4PpCAAMAeIl+9vSv5X9isV5UWOSRB/0qP/+Si7E7z+SfcYqICggMuOKJUQWFBGki4vz1dL7hD7C69l6ZTRUZcLs6N2286GICO7A4a/35BFb4zez5eQ4Rc+yAtOTSy0gCwM2DZegBAF6i/IMCTUpEt7R8JnvawMiyR4m0oDqhnlm3wd3TuoIClIjo586cvWK20s+eOaeLiBYQ6G/4z5fe6lVZJZWxzZKUmhIz8fVdjn2LF+Rktm9nLVgze8F+h4i5ycC0BEtllwYAVRkBDADgLeaoWjU02ePQCy2RcfHx3jslmcJr1rAosemFu3bsdUgjt2NFZ3fl7neIiBZZs4bx80eqTK/Kx5KU2jtm4uu7HHmLFmx6rV3z1bMXHnSIsiSk3d+0qtcOAJWLKYgAAG+xNG+TFKBEHDtXf3XA/ciTfvzLSY+PGjly1JPv/2irvEqCEls3NYuIfeuy5fvcV3J61ZI153QRLbxlq4aenc1XHlWnV+VjSUpNiTGJOPYuytp0cuUni444RVmT0wbcanzvAKBKIYABALwmqHPfe8M00QvXjP/7wiNubnEqyJkw6snJU/715nvfnwurxCt3U2zPlGZWJXrh2jfGfXGqdCXFW6a+Nv+oU8RUq0fvNt64h6nK9KqcLEl9U2JMIvafPv1g3Kzso05Rvu3S+7lfYxIAbiL8HwQAeI2qnjL6z02sShx5s/7Q6/Gs3a6PjXKe3vxWRr9xW226aDX7j0yLrsxTlqnJkNE9wjXR7T9NGzzwtbVHXRaa189smzGk7wvrz+mi/JP+MuruwEos5Iq81auiot+59snFBJb77vj5x52iAjql96nNdQeAmx4TsQEAXuSb/Nz0Z1d2fn59/ukNk/s2m5N0b4+OzesG24/99MMXCz/besKui7I0eODN13pW8qoSqmbaG1MWbxg0e7/9yPKxHRt9eHdKt+Rbqmv5P//w+cIlmw4V6SJatQ4v/Xt0nLdOncb26reHmBV/+/azk/y61DIFNOrePT6kIm9sSeqbEjNp/C6H3WYXUSH3pPeqUelLgwBAlUcAAwB4lX/Lvy1d5jMo7fmlPxcWHMzJmpaTdWmjMlVvOfydTyb0NuDKXYseOHOVI6jfI+/9eNp+YtuyGduWuWxV/g37vDJ7xsg4a6UXcmUG9soS16Zl8LRFp/Qz308f/cB0sbTJ3HZfxQKYWBJTzycwEdHCumV0Dyd/AQBTEAEA3qaqtX0qe9uWJVOeyOgcHxMV6mexBlSLbtw25eGX/7N+29opfWOMWrfc55b0aRt3fDPzhT/3Sr6tdnigj9W/Ws0GCV0eePqtFdu2zhuVGOztBGFYr1TUoHfmvDigVb1QH7PZJyiibp3wit/5Zv1tJQ4RLaJnRtdQz5QGANc3peseeawlAADA5YrXPdnszsxcu6n2w0tz377Hz9v1AEAVwAgYAACoFAVfvf/JbruIqW5qenvSFwCICAEMAABUjtPLZs474BAxN+yf7pWl+wGgKiKAAQAAzyvcMjUz65hTlKVpekaiUbfxAUCVxyqIAADAY2zrMgeP/9FqOrJx+cr/O6eLFtZjzLBmXG4AwAX8RwQAAB6jn9rxxfxZx5wiIqJMNe59+ZWBPP4LAC5hCiIAAPAYrWZcq1vC/X2DazXuNCRz6fr5w25j+iEAuGAZegAAAAAwCCNgAAAAAGAQAhgAAAAAGIQABgAAAAAGIYABAAAAgEEIYAAAAABgEAIYAAAAABiEAAYAAAAABiGAAQAAAIBBCGAAAAAAYBACGAAAAAAYhAAGAAAAAAYhgAEAAACAQQhgAAAAAGAQAhgAAAAAGIQABgAAAAAGIYABAAAAgEEIYAAAAABgEAIYAAAAABiEAAYAAAAABiGAAQAAAIBBCGAAAAAAYBACGAAAAAAYhAAGAAAAAAYhgAEAAACAQQhgAAAAAGAQAhgAAAAAGIQABgAAAAAGIYABAAAAgEEIYAAAAABgEAIYAAAAABiEAAYAAAAABiGAAQAAAIBBCGAAAAAAYBACGAAAAAAYhAAGAAAAAAYhgAEAAACAQQhgAAAAAGAQAhgAAAAAGIQABgAAAAAGIYABAAAAgEEIYAAAAABgEAIYAAAAABjk/wGcCtOoiGrItAAAAABJRU5ErkJggg==" width="576" /></p>
+<p>Note that the curves diverge due to merging in the “wrong” population
+hazards for some individuals which we randomized earlier to be male
+though all the individuals in data are actually female.
+Pohar-Perme-weighted estimates can be computed by</p>
+<pre class="r"><code>st.pp <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex, data = x,
+ surv.type = "surv.rel", relsurv.method = "pp",
+ breaks = list(FUT = seq(0, 5, 1/12)),
+ pophaz = pm)</code></pre>
+<p>Compare with EdererII estimates:</p>
+<pre class="r"><code>plot(st.e2, y = "r.e2", col = c("blue", "red"), lty = 1)
+lines(st.pp, y = "r.pp", col = c("blue", "red"), lty = 2)</code></pre>
+<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABIAAAASACAIAAAAIyqENAAAACXBIWXMAAB2HAAAdhwGP5fFlAAAgAElEQVR4nOzdeZxV8//A8de5szVNy7SnBS1KRQgthOpra0FfS5YSsi/ZQpQtZEmW7FtIkUpfIqmEogjJ8tMiUVTahNZptnt/f9zRMsr3SzPnTno9/5npzD2f+77+8nqccz8niMViSJIkSZKKXyTRA0iSJEnSrsIAkyRJkqSQGGCSJEmSFBIDTJIkSZJCYoBJkiRJUkgMMEmSJEkKiQEmSZIkSSExwCRJkiQpJAaYJEmSJIXEAJMkSZKkkBhgkiRJkhQSA0ySJEmSQmKASZIkSVJIDDBJkiRJCokBJkmSJEkhMcAkSZIkKSQGmCRJkiSFxACTJEmSpJAYYJIkSZIUEgNMkiRJkkJigEmSJElSSAwwSZIkSQqJASZJkiRJITHAJEmSJCkkBpgkSZIkhcQAkyRJkqSQGGCSJEmSFBIDTJIkSZJCYoBJkiRJUkgMMEmSJEkKiQEmSZIkSSExwCRJkiQpJAaYJEmSJIXEAJMkSZKkkBhgkiRJkhQSA0ySJEmSQmKASZIkSVJIDDBJkiRJCokBJkmSJEkhMcAkSZIkKSQGmCRJkiSFxACTJEmSpJAYYJIkSZIUEgNMkiRJkkJigEmSJElSSAwwSZIkSQqJASZJkiRJITHAJEmSJCkkBpgkSZIkhcQAkyRJkqSQGGCSJEmSFBIDTJIkSZJCYoBJkiRJUkgMMEmSJEkKiQEmSZIkSSExwCRJkiQpJAaYJEmSJIXEAJMkSZKkkBhgkiRJkhQSA0ySJEmSQmKASZIkSVJIDDBJkiRJCokBJkmSJEkhMcAkSZIkKSQGmCRJkiSFxACTJEmSpJAYYJIkSZIUEgNMkiRJkkJigEmSJElSSAwwSZIkSQqJASZJkiRJITHAJEmSJCkkBpgkSZIkhcQAkyRJkqSQGGCSJEmSFBIDTJIkSZJCYoBJkiRJUkgMMEmSJEkKiQEmSZIkSSExwCRJkiQpJAaYJEmSJIXEAJMkSZKkkBhgkiRJkhQSA0ySJEmSQmKASZIkSVJIDDBJkiRJCokBJkmSJEkhMcAkSZIkKSQGmCRJkiSFxACTJEmSpJAYYJIkSZIUEgNMkiRJkkJigEmSJElSSAwwSZIkSQqJASZJkiRJITHAJEmSJCkkBpgkSZIkhcQAkyRJkqSQGGCSJEmSFBIDTJIkSZJCYoBJkiRJUkgMMEmSJEkKiQEmSZIkSSExwCRJkiQpJAaYJEmSJIXEAJMkSZKkkBhgkiRJkhQSA0ySJEmSQmKASZIkSVJIDDBJkiRJCokBJkmSJEkhMcAkSZIkKSQGmCRJkiSFxACTJEmSpJAYYJIkSZIUEgNMkiRJkkJigEmSJElSSAwwSZIkSQqJASZJkiRJITHAJEmSJCkkBpgkSZIkhcQAkyRJkqSQGGCSJEmSFBIDTJIkSZJCYoBJkiRJUkgMMEmSJEkKiQEmSZIkSSExwCRJkiQpJAaYJEmSJIXEAJMkSZKkkBhgkiRJkhQSA0ySJEmSQmKASZIkSVJIDDBJkiRJCokBJkmSJEkhMcAkSZIkKSQGmCRJkiSFxACTJEmSpJAYYJIkSZIUEgNMkiRJkkJigEmSJElSSAwwSZIkSQqJASZJkiRJITHAJEmSJCkkBpgkSZIkhcQAkyRJkqSQGGCSJEmSFBIDTJIkSZJCYoBJkiRJUkgMMEmSJEkKiQEmSZIkSSExwCRJkiQpJAaYJEmSJIXEAJMkSZKkkBhgkiRJkhSS5EQPoKL3448/Pvnkk/n5+YkeRJIkSfozGRkZvXr1Kl26dKIHCY8B9g/06KOPDhgwINFTSJIkSf9dw4YNu3TpkugpwmOA/QPl5uYCnTp1at26daJnkSRJkrZtxIgRn3/+eU5OTqIHCZUB9o/Vrl27q666KtFTSJIkSdv29ddff/7554meImxuwiFJkiRJITHAJEmSJCkkBpgkSZIkhcQAkyRJkqSQGGCSJEmSFBIDTJIkSZJC4jb0/0Xeup+Xr1z165oN2bnRSFpG2bJly1euVqWM/90kSZIk/WWGxDZkLZn+xojRY9/+4OPPv/5+xfq82FZ/DYLUcjXr7b3vwW3bn9C587HNa5cOEjSnJEmSpJ2LAbaV6KqPn+pzVb/npy/LiW3vNbFYzurFcz5ePOfjt164p1eVA8/o+8A9l7WulhTmnJIkSZJ2RgbYZjnfvXRe+x7Dvs3+vb2CpNIVa9TevfZulcqWTk9PS4rmbMzasPaX5UsW/bhk5brcGMRyV84YclW79yY/PO6lC5ukJ3R8SZIkSSWdAfa7rE9uOyleX0FajZanXnB+1xOObLVv7bLbvLIVzVo+99Mp418Z8tSQ8d+syf1xzOUnXlf/k4f+Vd67ESVJkiRtl7sgxkV/fK7PA19lx4Kkmsc/OG3WtCG3nHP0/tupLyCSXq3x4V2ufujNL798tecBGUEs59un+z45Lz/UmSVJkiTtZAwwAKKLXhsxNStGUu1zBw+9/MDM//lCVtqexz8w4vbW6UEse+arbyywwCRJkiRtnwEGQN7sL2blxohU7XBK23J/8dykeied0jwF8r+d7SUwSZIkSX/CAAMglp2dE4OgTNkyf/1bXJFymeUiEMvJ3v7WiZIkSZJkgMUl1dqjVhJEF382c2n0r56c9eWnX+dCpNpu1fzPKUmSJGn7LAYAkpt2ar9HErGsKfdcP2rRX7mRMLb2k3tvGLIwn0ilQ9s0TSm2CSVJkiTt/AywuNQWF/Y8rFxA/o8vd291zHVDP1ma/V/Pyf9t7psDux1yVL+P1sSC1CbnX3pURgiTSpIkSdpp+RywAkkNLnni3kltL3lzac6Sd+7t3vLBK+s3b926xQGN6u5Ra7fK5TNKlUpNjuVu3Ji1btWyxYsWzPvy0w+nTv962YZoDIhkHnrz4BsOTkv0h5AkSZJUohlgm6Q0vGDkO6V6nn7Fc1/9Fo3l/vLttNe/nfb6fz0tUrbx6fcMffSiZl7+kiRJkvTnvAVxS+mNuj8z45uPhtzc7fB65ZP/fD/EILlcnUNP7/PsB3M/H3Zxs/J/ffNESZIkSbsar4AVlly1+Zn9hp7ZL/e3BV/NmPl/33z3w5Llq35dl5WTR0p6RpkyZcpX2b1+w4Z777PfPntmuumGJEmSpP+dAbY9KZl1DjyyzoFHJnoOSZIkSf8Y3oIoSZIkSSExwCRJkiQpJN6CuMM2/rr0lw3RGATplWpULJXocSRJkiSVWF4B21HZE3o2rFWrVq1atepdNPa/P735L7j55puTkpKCv+6BBx4APvzww6Kc5g++i9QnCP5z8F3F+i6SJEnSP4kBVnJlZWVFo9G/ffrSpUuLcJg/qhpbAez12fBifRdJkiTpn8QAK7nuvffe2N/SrFkzoHLlysU63tJgN6BObEGxvoskSZL0T+J3wHZU6uH93p3eMz8GkUp7pSZ6mhBFGzZm7rwM1j/xcO5FPX0imiRJkvTfeQVsRwUV6h3UvEWLFi1aHFy/YpDoaULU4LnrgYDYlBsmJHoWSZIkaedggOlvirRsESUCHL/+pR34qpokSZK0CzHA9PdlkQ4cxgeDByd6FEmSJGlnYIDp78sqXQGowU8D78lL9CySJEnSTsAA099X7rD9gQjRst9/lZ+f6GkkSZKkEs8A09+XenXPHFJ/pnL92LdTpyZ6GkmSJKnEM8C0A444IiXIrczP1zHgxRcTPYwkSZJU4hlg2gFpabllKgH78n+jR+bn+UUwSZIk6U/5IGYA8jf8umptTmzHFglKZVYtn1Y0A+00gqb7MG1yCrl1Vn/x7rsHHn10ogeSJEmSSjADDCC64LGOja/9KHfHVil1yqjfRp68ixVYSrvDmDYZ+BfvjBhhgEmSJEl/xlsQAUirWCUzJUj0FDulVq3iPzvy5iuvkJ2d2GkkSZKkEs0rYACR2j3GLDn+/8a/MOiOu4Z8+nNeDAgy6rZs3aD8X6iy1P2r74I927QpMI8GX9F07ZrYY48FV12V6JEkSZKkksoA+11K5X2Pu/qZozvsf/yhV0z8JUpS7S6Dxt51sP+B/ouaNaOR5AbReQ2YN4SzBg06yACTJEmStmcXvGTzp9L2vvCOCxpaXX9FJL3ge29HMunHH1m5MrHjSJIkSSWXAVZYyv7tj6qZlOgpdir168d/HsmkWIy77krsNJIkSVLJZYD9QfI+zfZ1Q46/4qCD4j9bMzWVnJEjEzuNJEmSVHIZYH8QlNv/6BPatjmied1yZtj/pF27+M80sg/ksyVLWLw4sQNJkiRJJZQB9kfJ+/V8+Z33Jg05v6F3Iv5POnXa9Gtb3gP690/cMJIkSVIJZoBph5UrR0pK/Nc2TAb+859EjiNJkiSVWAaYikKNGvGf8a+BrVjB0qWJHUiSJEkqiQwwFYW9947/TCWnRvATMH58QueRJEmSSiQDTEWhWzdgPvV/osapsRHAiBGJHkmSJEkqeQwwFYUjjgDqM782i9owOSmJd95hxYpETyVJkiSVMAaYikLt2lSoEP+1NVMrlcvNy3MrDkmSJKkwA0xFpGnT+M8yrNtr9Qy8C1GSJEn6AwNMRWS//Tb9enh0cmoq77/PkiUJHEiSJEkqcQwwFZF9993068F8WqUK0Sh3353AgSRJkqQSxwBTEdlvP+BXKsymcS0Wr/opG3juuURPJUmSJJUkBpiKyD77ABX4tRFzDubTFrHpQcD69bz3XqIHkyRJkkoMA0xFJD2dtDQgIAa0YXKpUoB3IUqSJEmbGWAqOtWqbfq1DZOjUYD330/YOJIkSVJJY4Cp6DRsGP8ZI2jFR5HsrCBg40bGjk3sWJIkSVJJYYCp6LRqFf+ZR3Ia2S2ZnpkJMHBgIoeSJEmSSg4DTEWnQ4f4zxRygTZMTkkB+PBDYrEEjiVJkiSVFAaYik7z5gTBpn+1YfKqVUQi5Oby6qsJHEuSJEkqKQwwFZ0goHz5+K8xgpZMj+Tnxp/PPG1aIueSJEmSSggDTEWqTh0gRvAJzX+iRh0WtG4NMGZMgueSJEmSSgIDTEXq7LOBgNgBfL4nC09lxPz57LYb333HZ58lejZJkiQp0QwwFakWLYBYSkoqOUDbYPKUKZx4IsAzzyR2MkmSJCnxDDAVqX32IRIJ8vOBGMEhfMjGjU2bEgQMG8bq1YkeT5IkSUooA0xFKiODevWIRoFVVEqLbWzOJ7Nn064d69YxZEiix5MkSZISygBTUWvaNP4znySgDZPHj+fSSwFuvZW8vAROJkmSJCWYAaaiFg+wIJJKznKqNYjM/+YbatYkLY1ff6V//0SPJ0mSJCWOAaaits8+AEmRdLLSyTolOrIM6wYM4MgjAR59NLHDSZIkSYlkgKmo7bknQF5eKTb+RmYq2Ycy7YMPGDQIYOVKJk1K6HiSJElS4hhgKmoHHEAQxH/NIh1oy3srVlChAnvtBXDDDQkcTpIkSUokA0xFLQgoVy7+ayVWAe2D8cATT9CvH8Bnn7FyZeLGkyRJkhLHAFMx2GMPIEZQmZ/zSN4n9n/lWDN4MKefTtmyxGJce22iJ5QkSZISwQBTMdhvPyCIBMB31IsQbc3U779n4UK6dQMYMYJYLLEjSpIkSQlggKkYtGmz6ddfqAicnPwa0LcvAwYQibBxIy+/nKjhJEmSpIQxwFQMOnUCiEaB0mwAOgXjgLFjKVOGzp0B3nwzgfNJkiRJiWGAqRhUrUpqavzX2ixaQ7nKeT+VSs5fs4a5c7n/fpKSeOUVVqxI7JSSJElS2AwwFY/atQHS0pZR/TU6B7FY/6MnA88/zx570LEj2dkMHpzQCSVJkqTQGWAqHl27AuyxR2NmV+BX4PSM14Hnnyc3l0svBXjiCfLzEzmjJEmSFDIDTMVjv/02/bqB0sBuU0ft0zi6fDnjx3PUUTRsyI8/8sYbiZtQkiRJCp0BpuIRD7BffgH24IcfU+qxdGmfNh8Czz5LEHDxxQCPPprIGSVJkqSQGWAqHnXrUq4cP/9MJHIAn4/K7QyckDMqJYWxY1m6lB49KFWKSZMYNy7Ro0qSJElhMcBUPIKAJk0AatdOI/srmgKlx4489uhoXh59+1K2LA0bAvTundA5JUmSpBAZYCo2TZsCVKsGLKfapORjWbbs3FIvAsOGkZ/PnXcCzJrFjz8mckxJkiQpNAaYik18J/oFC4Czef6DvFbA8XPuSUoiN5dHH6VDBypUIBajV6/EDipJkiSFxABTsaleHWD1aqAd746kCxDMnXNEi43Aww8DnHcewOuvux+9JEmSdgkGmIpNp04AOTkEQVVWrKHcd9QjGn1svyeB+fNZtIjbbyc5mZwc7rsvwcNKkiRJITDAVGyqVSMlBSA9HWjFR0M5E2g45anMTIC+fUlLo00bgAcfTNiYkiRJUmgMMBWnqlUBypcHzkp9aQSnAsyd2+3kjcCrrwIMGgSwdCkffZSoKSVJkqSQGGAqTg0aQMEVsKPz3ppHg/nUJxq9e4/HgoB163jtNRo3pk4dgLvvTuiokiRJUvEzwFScWrQAWL2apKS0aFarYPqLdAUyhg9u1Ajg3nvh9w05PvyQ7OyETSpJkiSFwABTcTrmGIBff40/dPmK0k/H90Jk3rz+t+UDc+eSm0vHjjRrxs8/88oriRxWkiRJKm4GmIrT4YcTBESjdOgAHBVMmk3j9yNtyMvrXHlq48b88gvjxwNcdBHAo48mclhJkiSpuBlgKk6RCDVqALRrR+nSmeuXHLzb4mnRVgCjRp19NsCzzwJ060bFinz0ETNmJGxYSZIkqbgZYCpmHToAfPstxx5LLHZ9kzdGcQrAK69075qfksLYsSxdSno68R57/PEEzipJkiQVLwNMxaxpU4CvvuKEE4Aj14/5nAO+T9qL5curzfugY0fy8hg2DOCSS4hEeOklVq1K6MCSJElSsTHAVMw2BVinTiQnl5vxbsu9fxuRfzLAqFE9egAMHkwsRr167LsvGzdy3nmJnFeSJEkqPgaYilnTpgQBX39N+fIcdhi5udc1HV9wF+Lo0e2Pzq9cmW++YfhwgM6dAcaNIxpN5MiSJElSMTHAVMwyM9l9d7KymD8/fhfi0VljvggOeCi4IrZ8RfKw55s0AbjlFoC+fUlKIifH7RAlSZL0z2SAqfjF70L8+OP4Fa6MN0fWrrBueaxqQIz77oun1/z5LF5MSgqHHALwwAMJHFeSJEkqLgaYit9uuwH0788ee5CRQTR6c83B/+FEgLlz27bYkJkJ0LcvwIABAAsW8P33iRpXkiRJKi4GmIrfcccBzJ9Pbi4tWwJnrH9qLnvPogmxGI88csopAK++CtCyJZUqAfTunbB5JUmSpGJigKn4dexIcjLRKC++yCWXAOkL59aqnlewFcfzz995J0HA2rWMGQMUPBBs7NjEDSxJkiQVDwNMxS8I2HtvgOef58QTSUkhGr218cgRnAowd27l0hvif7/zToDbbiMSYeNGnnsucTNLkiRJxcAAUyhOPhlgxgyAffcFzvzt4W+C3+9CfPjhXr0K/r5+PaVL07w5wNChCZtXkiRJKg4GmELRsyfA+vV8+SVnnQWk/t9ndeuy6S7Ec88lLY1olEGD4gcIAj79lDVrEji0JEmSVMQMMIWiYkWqVAF45BEuvphIhNzcWw6dVBBg8+aRl9ejB8BHHwE0bMjhh7NuHS+/nLiZJUmSpKJmgCksbdoATJhASgp16wJdVz82P7Xxi3QlGmXKlFtuISWF8eNZuhTg/PMBnn46cQNLkiRJRc0AU1guuwzgp5/Iz+eaa4DI0iXnn88C6gCMGlWtGh07kpfHiy8CnHwylSszYwaff57AoSVJkqSiZIApLIcfTs2a5OfzySd07UqpUsyYcdYxywruQhw9mry8c84BGDIEIC2NM84AeOaZxM0sSZIkFSkDTCE68USAceMoU4YjjyQaPWj5m+vqNp1DI37+mcmTO3SgWjW+/rrgqtdFFwG88AIbNiRyakmSJKmoGGAKUYcOAOPGAZxwAhC8Pub003mFkwFGjUpO5tRTAV54AaBRI2rUYN06rr02QQNLkiRJRcoAU4jatqVMGT7/nCVLOP54kpKYOLH7v9fG70KMjf4PeXnduwM8/njBVa+jjgIKvhUmSZIk7ewMMIUoLY22bYnFGD+eqlVp2ZLs7AY/vB3Zb9/76LVhVRYvvXTggaSnk53NXXcB3HsvQcDq1bz5ZqKHlyRJknaYAaZwbXkX4nHHAQwcuN9+LKFmBuu5806gbVuA558HqFKFhg0B+vVLxLSSJElSkTLAFK6OHQHGjGH1ag4/HGD69Gsu3fAW7YHYvG/ZsOGOOwAWL+bbbwH69AH47DPWrk3QzJIkSVIRMcAUrtq1KV2a/HweeYRWrShVilhs38mPrKi499fsE8SiDBp0wAFUqgRwyy0AZ55JejrRaME/JUmSpJ2XAabQNWsGMGoUwIEHArz4YufOFDwQbMgQoEsXgLFjC87o1Al+3xpRkiRJ2nkZYApdfKPD2bMBzj8fYNas2/tF4wEWnTc/fhdiELB2LW+9BTBwIMCqVbz/foJmliRJkoqCAabQnXMOkQi5uYwfz5lnkpREfn6NKcPX1mo0iyaRWD4PPlixIvXrAwV7Ie6+Ow0aQMHlMUmSJGlnZYApdMnJ7LEHwJNPEonQqBHAU0917cpIugA89xxw6aUAH39MNArw7LMAb75Jbm5ChpYkSZKKgAGmRIhvRh+/ofD00wE++aRPH14OTosRROd/z6+/9uxJZiY5OUyZAnDooey3H8uXb/5imCRJkrTTMcCUCFddBfDLLyxdyhVXEARs3Fjuq6llDmgwmHM3Uoo334xE6NkTtth745xzAJ5+OkEzS5IkSTvMAFMi1KtH2bIATzxBRgb77gswbdqAAczgoNJsYOhQoHt3goBRo1i3DuCss0hPZ8IEfvghgaNLkiRJf58BpgQ58USAhQsBrr8eYOLEtm2ZXP20LNKZNInFi+vXp1Ur1q/ntdcAMjP597+JRuPfEZMkSZJ2PgaYEuSyywDeew+gQwdSU5kyJfLrqmO6lB9LJ6JRXnqJ37es33QXYnzX+sceIz8/ETNLkiRJO8YAU4IceCC77caiRXz9NeXL06YN+fmMG3faaQzlTCjYcv6000hP5513WLQIoE0bypRh5Uruuy+hw0uSJEl/iwGmBAkCjjkGYNw4gBNOABgzpmVL5uzZfhnVmT2bmTPLl+df/yIa5aabCs5r2RLgkUcSMrQkSZK0QwwwJU58M/pNARYEjB8fZG88+bTk27lpGdW54w6geXOAESMKTho4EGDRImbPTsTMkiRJ0g4wwJQ4xxxDSgrTpvHbb9SsSbNmrF/P6NGdO/MmHauzjDFjyMq65hoiETZuZPhwgP32o1o1gN69Ezu9JEmS9JcZYEqccuVo0YK8PF58EaBOHYDbb2/RgmVpe3zNPkSj3HNPejpNm8Lv1774fSuOiROJRhMytyRJkvQ3GWBKqNq1Ae6/H6BrV4BvvyU7u3VrXuIMIL7lfK9eAF98wfr1ADfdRFISOTk89lhChpYkSZL+JgNMCXXWWQALFpCbS+fOpKYSjTJ4cN++vED3fJL48Ue+/75bN9LSiEYZMAAgNZVDDgHi3xGTJEmSdhoGmBIq/jWwWKzgUV/xew0HD27blt8yak7hCIBbbwXatQM2P4L58ccJApYvdztESZIk7UwMMCVao0ZQ8NQvLrkE4IsvyMlp1+73B4K9/jpw550Aixbx/fcATZoUbFw/cCA5OQmYWpIkSfobDDAl2imnAHz2GcA555CSQjTKY4/dfDOjOGUdZVi9mkmT9t+fSpXg9xIDRo2iSRN++IHHH0/Q5JIkSdJfZIAp0S67DGDDBr74An5/7NdTTx10EMnlM16jM8DddwNXXw0wc2bBecnJ8cP068eqVWFPLUmSJP0NBpgSLTOTqlUBHn4Y4LrrAObOZcOGE0/kfq7+jUz+7/+Ixa6+msxMPv+cr78uOLVTJ44+ml9/5bbbEjS8JEmS9FcYYCoB4jtsTJwIcPzxlC5NLMbEiQMHMitl/9+CCqxYwQcflCpVcLviSy9tPvWBB0hO5rHHmDUrEZNLkiRJf4UBphLgyisBli8nNxegd2+A0aMrVuTIo4IXY2cADB0KdO8O8MIL5OcXnNq4MT16kJfH9deHP7ckSZL01xhgKgFatKBBA3Jz+fBDgG7dCAJefZX16087jSGcFSNg5Eg2bGjdmgYNWLKE997bfPbtt5OWxtixPPNMoj6AJEmS9D8xwFQyHHccwLhxAHXr0rw569czblznzixO3+tjWrBmTXw/+jPOAAoeGxZXtWrBzh1XXUVeXuiTS5IkSf8zA0wlQ4cO8HuAAaefDjB8eNmydOz4+wPBXngBOOssgoDhw/nll81nDx9OJMK6dfTqFe7YkiRJ0l9hgKlkOOwwypfn669ZuBDg1FNJSmLcOH777fTTeYkz5gUNmTCBhQv33JOyZcnL45ZbNp9ds2bBlbFHH3VLekmSJJVcBphKhpQUjjwS4K23AKpX54gjyM7mpZc6dGBtUuZHsZZEo/ErXO3bA4wYsdUCgweTnk5+Pt26hT27JEmS9D8ywFRixO9CHDOm4J+tWgH061eqFLVrM55jAcaPB/r3B1i5cvNDmYHUVG69FWDChIJHOkuSJEkljQGmEiMeYBMnFny76+yzAVasYO7c7t15jc5rKcuGDbz2Wr161KwJcOONWy1w3XVUrUosVnA7oiRJklTSGGAqMapXL3gE86OPAtSvT9WqALfddt11ZAelRtIF4O67gQsvBJgwgWXLtlpj8GCAOXM2b+chSZIklRwGmEqSgw8GePnlgn+edBLAuHEZGTRs+PteiDNmkJNz442ULUs0SteuWy3QqROHHALQpw/RaHiDS5IkSf8LA0wlyaWXAsydS3Y2UPClrtWrmT79vPN4n8MXUZv8fB54IAgKvgn23nvMmbPVGpMmsfvufPklQ4eGO1fWp9kAACAASURBVLwkSZL03xhgKklOOYXUVKJRHn8coGpVatUCuPPOyy8nkhQM4SyAp54CevakShViMa64Yqs10tML2qxPH9avD3d+SZIk6U8ZYCphDjoI4NlnC/4ZfyLzO++kpLDvvr/fhfj996xcCYwcSVIS775b+CJY164ceig//cSAASFOLkmSJP03BphKmPhdiLNmkZsL0LcvQcCGDUyceOWVzKPBpOAogNdeA9q04dxzyc/n5pu3WiMIGDiQIODee/nhh7A/gSRJkrQ9BphKmDPOICWFaDR+nyHly7PXXgDDh591FnvswbOxc4BNX/C69VZKl2b0aKZP32qZli3p0oWsLK6/PtTxJUmSpD9hgKnkOfBAgFGjCv754IMAH3wAnHUWr3N8dkoZpk7lu++A3Xbj8suJxbYRWvfeSyTCyy/z1luhjS5JkiT9GQNMJc/ddwN8+23BRvLHHEONGnz3HZ99dvrprCfj1eBEYjGGDYu/vHdvKlZkyhTefnurZWrXpm5dgB49iMVC/QSSJEnSNhlgKnmOOIK6dfnpp4LbCiORggeCDR++997svz+Dc84EGDIk3lWZmVx3HcBFFxV+9tdLLwEsW1ZwFU2SJElKLANMJdKJJwK88krBP+N7IQ4fTjR6+um8S7tVpWuzYAEffhj/+xVXkJLC999z771bLXPwwRx+OMCNN5KVFdbwkiRJ0nYYYCqRTj4ZYNSognsHW7akTh1++ompU08/nVgQGZR7McAdd8RfXqoU//oXwG23FeyeuMnw4SQlsWEDl10W4vySJEnSthhgKpGaN2ePPVi8mE8+AQgCTj0VYMiQ2rWpWZOncnsATJjA4sXxM4YNKwit3r23WqlGDc49F+D551m0KMSPIEmSJP2BAaYSKQgK34XYpQvAkCFkZx9wAMupNjfSmFiMK66I/71SpYKXPPII69ZttdigQZQuTTRacCejJEmSlCgGmEqq+F2Ijz5acBfiAQeQmkp+Pg8/HH/s8l3R3gBvvLHppsOnniIlhdzcgoc5b1KqFHfdBTBtGp9+GtoHkCRJkgozwFRStWpFUhJZWQVbGQItWwI888xBB1G+PC9zWlakNLm5DBgQ/3uZMlx8McCLL7Jy5VaL9exJkyYAV17plvSSJElKGANMJVUQFDTTo48WHIlvNj9vHmvWdOhADqmDgwsAHnpo00n33kt6Ovn59OhReLGPPqJ6dT78cPNdjZIkSVLIDDCVYPGKmjGj4KJVx46kpxOLMWDAQw8RiXBn/nUxAlas2PQM5tRU+vQBGDeu8JYbZcvSrx9Ar15s2BDip5AkSZJ+Z4CpBLvkEiIRcnM3X7Q64giAYcMqV6ZDB5ay24TIsQA33LDppBtuYO+9iUa57bbC6513HgceyKJFDBoUxviSJElSIQaYSrCUFBo1gi1uMozvv/HDDyxf/uyzRCL0j/YBmDmTX36JvyQpiddfJyWF555jzpyt1otEGDgQ4M47Wbo0nM8gSZIkbWaAqWQ7+2yg4GlgQKtWlC0L0L9/lSocfzxTaf1ZUnNiMYYM2XTSXnvRowf5+dx0U+H12rTh3/9m3botr5lJkiRJITHAVLJdfjmRCDk5vPZawZH27QHeegsYOZLdd+e2/L4ADz1Efv6m8265hdKlGT2ajz4qvOSAAQQBQ4YwbVoIH0CSJEnazABTyZaaSoMGAE8+WXDk4YdJTmbhQlasSEnh5psZS6dFKXVZuJDx4zedt9tuXH45wPXXF16yfn2qVgXo2tUt6SVJkhQqA0wl3o03AsybV/DPqlU55hjy8hg9Gjj7bOrtFXko92KAhx/e8rzevalUifffZ9y4wks++yzADz8weHDxzi5JkiRtyQBTiXfaaVStyvff8/XXBUdOPx1g+HAgKYkbbuAZzsuKZDBxInPnbjovM7PgdsWzziIa3WrJDh3Yf3+Aq69m48YwPoQkSZKEAaadQFISnTsDmzej79yZjAymTuWHH4Du3anaIHNY9AxiMR57bMtTe/UC+PnnzQ9z3mTECIKAtWsLHu8sSZIkhcAA087g5JNhiwDLyKBjR2IxRo0CkpLo04db6PcxLXj88U370QP7788hhwD07Utu7lZLNmjASScBPPaYW9JLkiQpJAaYdgZt21KlCrNmMXt2wZGuXQGefjq+jUa3bqxM3i2VHPLyCl3SGjq04ErXLbcUXvXpp0lNJT+fs84q/o8gSZIkGWDaOSQnc/zxsMVFsA4dyMhg3jyGDQOSkujQgWfpAfDSS1t+5atuXTp2BLjvPtau3WrVzMyCp4G9/TaffVb8n0KSJEm7PANMO4n4XYibvsuVnMw++wDccUf8wDPPMDRy1hrKkZXF009veepzz5GURE4OPXsWXrVvXxo1ArjmmmKcXZIkSYozwLSTaNeOIGDFCiZPLjhy110A8+axcCFQpQptjiv7At2B2J13bXlq5cr06AEwbFjhr3ulpDB9OtWqMXky//lPcX8GSZIk7eoMMO0kUlPZYw+AgQMLjrRtS8WKwKYvfT31FI9GesYIYj8u4tNPtzz7/vtJSyM/n8suK7xwuXIFXw+79lqys4vxE0iSJEkGmHYep54KbL4CBpxzDsDrr8e/9FW1Kg2PazCJIyNEo72u3fLUMmW47z6CgDfeYP78wgtfcAH77sv33zNoUHHOL0mSpF2eAaadxw03EASsX8+HHxYc6dePSITsbJ54In7g6ad5PLgEyJn6SaE9Ny69lHPOITeXm24qvHBSEg8+CHDHHSxbVrwfQpIkSbsyA+xPxHLWLP1u1syPp055d9Lbk96Z/P6Hn345Z8HytbmxRE+2iypfntq1Ae65p+BIRgYtW8Lm+xKrVCE4/rgF1CkVy8ofcF+hBW6/ndKlGTGC6dMLr92uHZ06+VxmSZIkFS8D7I82Lpo27K5LT2hep0KZzBr19zmw5WFt/nXU0Ucd2faIQ5vv37hu9fIZmbvv1+70qwaO+PinjYkedlcT3wvxvfc2HxkwAGDBAubNix8YMizp3nK3rab8msGj4k8J26RGDXr2JBbj+uu3sXafPgBDh7obhyRJkoqLAbaV7O9fv7HjPnsfdmafx17/dOHqbV/qiuWuWfTVey8/eO1prfZqfMw1w75c7RWx0MSf27V27eZrWIceStWqAA8/HD9QpgxHPnXqOspUWDo7d9KUQgtcfz2VKjFlChMmFF67eXOqVwfo1s0bESVJklQsDLBNYmtn3HdC65PuHPfdhhgEKeVrNthn30Z7VioVBABEyjc5+qTOHY9qvX+9ahnJAUBsw4KJ93VvffjFryzISejsu47KlalZE+CBBzYfjH8BbMwY8vPjB/7dJeWN6ucDi657uNACmZkFl7969drycc0ASUm8+SaRCFlZdOpU6OKZJEmSVAQMsAKxX8df0+X6iUvzYkFGoy73jJ294ufF3/zfV7MXrFg5f/zALg1LB9E1P/xc74qhEz74fP6y1au++3D0A5cdVTcjILbuq6e6der9ntfBQnLJJQCzZ28+0rkzDRqwaBFvvRU/EATUvvPibNL2+GLMxrkLCy1w2WWkpTFrFo89VnjtZs0KvgP22Wfcf3/xzC9JkqRdmAEWl//tM7cNWZgXC9L3u3rstJev67h3ZnL8L5EydY/uNXzysDP3iKybeV/3XmN/iUFSuTqtTrzy4YlffzasR5P0IJY957Er7p3pVbBQXH015coxa1b8+csAQcAFFwA8+eSmV3U4u+q7FU5KIn/W5U8WWqBUKfbbD6BPn208+Kt/f5o0Aejdm7lzi+MDSJIkaddlgAEQ/fHN12dmx0iqc96Dt7WpEBT+e6T6Cf1v+FdGkL/45UEjlmy+cS294RlPjO5/eJkgljPruacmZ4U69K6qVCk6dCAWY/TozQfPPptSpRg3blOVBQEZ1/dcRO0173yStWpDoTWGDCEIWLuWW28tvHwkwhtvkJJCfj7t25NjVkuSJKnoGGAA5H0z65s8SNqt/b8PKb3NV0RqHN3+gBRiGz+aMGXNln9IaXjOxceWC4iueH/yrLxQplV8L8QtA6xSJU4+mWiUwYM3HTvs2pZvBR0Oi74/odMjhRbYe2+OPhrggQdYvbrw8nXq8NBDAAsXcs01RT++JEmSdlkGGACx7I0bYxCpXK1K0nZeEqlStXIEYrnLlqzI3+ovZfZqWCsJ8n/6cUn+dk5W0WrfnowMpk/nxx83H7zwQoAnniA3N34gCKi0W1oyeZU/fmND4WtgPPssSUlkZ3Plldt4h4su4ogjAB55hMmTi/4TSJIkaddkgAEQqVSlcgTyly5ctL07zqIrlq2MAkFaqbStb1GMrVm9JgZBauE/qLiULl1wF+KWT+xq3Zry5fn55y13z2jz1nXZpLWKffTCaeMKrVGjBl27ArzwAosXb+NNxo2je3diMc48k19/LYZPIUmSpF2PAQZAcuOD9i8dEF05bti4n7e5m2F04djXZ+ZCpFzdelW3+q+2dsrIN3/Kh6R6Dett7/KZilyXLgCDBm11sHlzoOD2QQAqNa35ebkjksjPGDti/frCawwaRGoq0SgXXbSNdyhdmsGDadGCxYu5/PIiHV6SJEm7KgMMgKDC0V2OqRghunzEFRc8PecPt6ut//Khi+/4ICtGJPPIjoembzoeW/PlE+ec9/TCfIK0/U7oWNcAC83xxxMELFzIuC0ubQ0cCPDTT3z66aZjDR69AugUe+P+CwrvaZiZyRVXAIwbx5w523iT5GRefJGyZRk2jOHDi/ojSJIkaddjgMUFVU66qdfBGUEsf8mrF7dqfvKNz4z7ZM7CxYsXzPpo7FN9Tjz4sF4TV0YJ0va97NrjMwGIrXqn/0nN6h98yegf8mJBcp3ut13YyP4KT2oqDRoA9Ou3+WDTptSqBXDDDZuOVezWYX6pfSrwa+nhg9esKbQK/fpRsyaxGDfeuO33qVevIOsuuYQffijCDyBJkqRdkQH2u5Sm1w5/7OTdUwKiq2eN7n9+xxaN69SuXXefQ4678K5X56yNQqRi2zuH3tAsNf766C8z33jji5W5MYLkGu0HvnJ/+4p+Ayxc114LMGMGa9duPhi/WXDyZLI2PxSg6u09gVNjL/e7+KdCa6SnM3MmZcvyn//w4Yfbfp8LLuDkk/ntN7p1I999ViRJkrQDDLDNkut0f+nD129sX6f0H0oqSK7U7Lxn33/96n1LbXU8UqZuu4senjxzzBUHlAltThXo0YO0NKJR7rpr88Grrip4htfdd286Vq7X+ctTatVicfrwIb/8UniZqlULbkS8/vrtvtXjj5OUxNSp9O9flJ9AkiRJuxoDbCvJNY+9bdyceR+NfLD3uSd3/FfrQw47stOpF93yxNgv53/69FlNMrZ4aVLNUwd/uWTF/Hcev/TQaskJm3hXFgQFD/N69tnNB5OTOeoogCee2PKVZa+5EOgUe/3xu//w2C+47jqqVuWDDxg7dttvVbkyjRoB9Ou35ffLJEmSpL/GAPujtJotTrni7mdGjZ30wbT3337j5cdvvbBD48w//JcqvXuTRtXTve0woQYMAFi+nBkzNh+Mf2drxYot7yksfeeN65q0aMn0rEFPrVhReJmyZenTB+C668jbztO0X3utYMvEf/97y9sbJUmSpL/AANPObO+9qVED2GoPjUaNqFcP4Jlntnxtmfv6AZfl3P/g3Rv/uNLFF1OvHnPmMGzYtt9q024cS5ZwySVFMr0kSZJ2OQaYdnIXXgjw3ntb7Y8xahTAq6+yYYtHChxzzIa9m1Vn2W+PDFuypPAyqamcfz5Az56sWrXtt+rZk8MOA3j++e3erChJkiT9CQNsh238delPS5YsWbLkp1+2cWFFxe3668nIICeHCRM2HzzgAFq14rffGDlyy9eWvuVaoFfu3QPv2cZuhp06EQSsW0fXrtt9t9GjKVMG4IwzWL68aD6BJEmSdh0G2I7KntCzYa1atWrVqlXvorHZRbnyjTfeGIlEgr9u5syZwKrtXcf5h0lNLbj/cPDgrY7Hr4w9+eRWB085JWf3+vX4bskTbyxaVHilJk0491yACRN4+eVtv1uVKgwZArB2LWeeuePTS5IkaddigJVcubm5sVgs0VPsDM45h5QUXn+dZcs2H+zShYoVmT6dmTM3H0xKSu191QSOycpNvuyybaz0yCNUrw5w7rn8ca+OuBNPpEsXgLff5u23i+xDSJIkaVdggJVc99xzT+xvadasGVCpUqVEf4KwVKtG+/bk5fHii5sPpqfTvTvA009v9eIzzzyaiSPpMvuN777/vvBKaWmMHk0QsGHDn13geu65gga78srt7pooSZIk/ZEBtqNSD+/37vTp06dPn/7+ne1SEz3NLit+7+DTT7PlNcMLLyQIeP551qzZfLBs2WjDRulknRl74aKLtrHSIYdw9tkAEydu90bE0qUZOpT69Zk9e6uHkEmSJEl/zgDbUUGFegc1b9GiRYsWB9ev6FPBEqVDB2rU4JtvmD5988G996ZCBTZu5Oabt3xt0qD7gct45Mu3V8yZs43FHnmEKlXgT29ETE2lf3+Am25i9Tae7SxJkiRtgwGmf4TkZM44A+C227Y6ftRRAM8/v9XBY46J7lazIr+cxsvbvAhWujQjRgBs2MA2vyoW16ULhx3GihXcc88OzS5JkqRdhwGmf4ojjgCYMGGrC1L33guwejVvvrnlayO39wOu4oHP3l//xRfbWKxtW+6+m7Q0Ro0qeKjYNj34IJEIDzzAwoU7/gEkSZL0z2eA/Rd5635esuCbr7/8/LMZn33+f3PnL1yycp27LpRIHTuSnk4sRr9+mw/Wrk3DhgA33bTVi3v0iGVW2JOFx/P6xRdve73evXnwQYBLLtnuI7+aNeOEE9i4kSuvLIJPIEmSpH88A2wbspZMH3n/td3bt2xYvUx6uSq16u697/7NDjr4oGZNG+1Vp1a1chmZtRu37HDWDQ//5+NFG9wnvqQIAtq3B3jhha2Ox58S9sUXbPnkryAIrr4K6M09M6fnfPrptpe88EKOOYaffy54qNg2NWkCMGYMU6fu0PiSJEnaFRhgW4mu+viJCw+pW/eQU3sNHDr+43nL1+f9IbBisZzVi+d8/NYLd19+Uqt6ezY/e9DU5fmJGFZ/MGAAwKpVTJu2+WC3bpQvTyzG5Zdv9eJrr42VKrUfXx7O+7ffvu31goDBg8nMZMwYRo7c9msuvpiUFIALL8THtkmSJOnPGWCb5Xz30tmtjrjkqY+W5cT/PzpIKl2pdsMDDmlz5DEdjuv8787Hdzz2qLaHHth4z6plUuL7HcZyV84YclW75ic/OSsrkaMrrl49ateGP9xwGL/LcOxY1q/ffLBUqeD222MEI4NT339j9Za7J26pZs2CPTYuvXTbNyLWqEGvXgCzZ29323pJkiQpzgD7XdYnt53UY9i32TGCtBqtut/67ITPf/h1zc8/zp057b23x7/5+qv/eXXM2Lcmvjt1xqwFy1evXjpryoj7enZoWC5CLPfHMZefeN07q738UQJccgnABx+Qnb354M03k5JCXh6FLnVdc03Q5ogKsV8u4KlbbtnukuefT+vW/Pwz3bpt+wV9+1K+PEDPnmzYsKOfQJIkSf9gBlhc9Mfn+jzwVXYsSKp5/IPTZk0bcss5R+9fu2zSdl4eSa/W+PAuVz/05pdfvtrzgIwglvPt032fnOediIl39dUkJ5OXx0MPbT6Ynk737gAjRhCNbvX63r2BayL3vz9x45Qp214yCGjTBmDSJIYP38YLypTh7rsBVq3ivvt2/DNIkiTpH8sAAyC66LURU7NiJNU+d/DQyw/M/J8fqJy25/EPjLi9dXoQy5756hsLLLCES02ldWuAxx/f6viTT1K3LgsXFtqPnmOPpVmzqtFl3RgW361jm665hgoVAM4/n2XLtvGC889nzz0B+vdn6dId+gSSJEn6BzPAAMib/cWs3BiRqh1OaVvuL56bVO+kU5qnQP63s70EViLEH861cOFW2x4mJRU8U/n++wu//pprgL5Jd380NX/SpG0vWb48Q4cCrF+/7RsRk5J4+GGA7Gz69NnRTyBJkqR/KgMMgFh2dk4MgjJly/zPF782iZTLLBeBWE52zv+zd5/RURdtH8e//91NJ/TQexGkl1sUBAUUpBpKaILSmyH0LghI79Klg/TeBFGKiHTpICIC0otICyU9+7xgH4Vks7sJoEB+n1c5O9fMf8b7POc8FzNzjW6BvQgKFyYgAKs1Zj36Fi1Iloxt24hRdb5uXXLlMkeFp+RWYGCclQyrVqV2bYAtW1iwwE5AtWq89RbA119z9OgzWIeIiIiIvHqUgAFgzpQ1kxmiLx04eDXaefiTQo78fDwCTGnTp9V/zhdE8+YAM2c+cePL15cWLQDGjXsi2GymTp30XK3DslOnWLs2zlFnzPjnIOLly3YCVq+mUiWio+nU6amXICIiIiKvImUMAFgKVauc1Yw15MfhPZddjM9BQuu9fSN7zT0XhSnV22ULuT23GUq8vP8+WbPyxx9s2/bE7x074ubG0qVPnE4EKla0EDmIPl6EfPopERH2R02enLlzAUJCbEU9YkibloULSZWKrVtj3jUTEREREUEJ2P9zf7N1UJmkBlEXFn9S8oPu8/ZdDXPaJ+rOyfWjGpWqMGB3sNVwz98ysILPvzBTcYXJRJMmADNnPvF7pkx88AERETEfCitblsyZU3C7KbOvXIlZrP5x1avj7w+wdSvz59sJSJGCR8U8unaNM5ETERERkUTLsMZ15SXRifhtWq1yn66/GmUFDLeUuUqULv1m0ddzZM2UPnUyH09Pd4s1IjQ05P7Na5cu/nHqyM+7duw5fu1htBUwJS/9xfcbP3vjBUnAihcvfvDgQX9//9WrV//Xc/nvXLxI9uy4uXHliu3g4CMDB/L551gs3L5NkiT//D53Lk2aXCV9Fi5YzZbjx8mb1/7Af/1F/vz8+SepU3PmDEljVW2JiKBAAU6dYsIEW+EPEREREYnt448/nj9//rx58xrF9dzqq0gJ2ONCfv06qEGH2UfvRLv+H8Xkm6/B8HmT2hRLFv/yHc+JEjCb0qXZuZM+fZ7Y0nrwgOTJiYykSxdGjfrn96go/Py4ffsjY+Eia4PChTl0CCPu/03LluXHH2OO/bfVq6lZk5Qp+f13UqZ8disSEREReYUkzgRMRxAf5/X6JzP2/7Z77ueN3smZzOI4oTIsSbO/3aD3rJ9OHprf9gXKvuQfefIAtvLwf/PxoVo1gKlTiXrsup/ZTLduwDhrBy9CjhxhxgxHY48YgWEwejSXLtlprVGD4sW5dYvBg59yDSIiIiLyStEOWFwi7vxxdP/BY7+dOX/5+s3b90PCI3Hz8kmSJEkyvyy58uTJW6BwgWzJX8yiG9oBszl3juzZAbZsoXz5J37PkQOrlWnTaNnyn99DQ8mZkytXllC/Pou8vTl7lrRp4xw+IIAVK2jTJuabz4+8/Ta7dmGxcOIEuXM/qyWJiIiIvDoS5w6YErBXkBKwf+TIwR9/ULo0P/30xO/FinHoEJkyxSyHeOQIxYsTFfUB3/1Audr13RYtinPsU6coUIDoaI4d4/XXY7YuX06dOgDVqzsqbS8iIiKSaCXOBExHEOWV1r49wO7dPHz4xO+jRwNcuhSzTn3hwowbh8m0Bv8pbu0XL3aUO732Gs2aERXF55/baQ0IoEQJgHXr2L79qRYhIiIiIq8MJWDySmvXDjc3oqIYM+aJ38uVI0MG4NG9rycEBnLkiKeX0TziqwYsCgri3r04h2/TBsNg+XJ277bTOn68rYxHYKBK0ouIiIgIKAGTV5zFQtmyAJMnx2x69FzXgQOcPRuzqUABRo4Eplk+NV/4I8abYY9Lnx6TCSAoyE7rm2/aHg07fpwuXRIyfRERERF5xSgBk1fd0KEAV6/GPG3YujXFimG1MnGinV6BgdSrlyTyzlKj3tQJ4XY3uIC0aWnVCuDAAb791k7AyJG4uQFMmMCcOQleg4iIiIi8IpSAyauueHEyZwbo1++J300m5szBMJgxg7t37XT86iuyZfuf9efPoge2ahXnGcIvvsDDAyAoiOjomK25cv3zUFibNhw8+BQLEREREZGXnxIwSQQmTcIw2LOHP/984veCBSlXjnv37L/5lTw5S5ZEWTzC8LhwPHjYMPtjp05N584AZ86wYIGdgO7dbQcRw8KoVYubN59qKSIiIiLyUlMCJolA9epUrUp4OLNmxWx6lDx9+aX9Ha4SJcyZMwykb0umjxlw7+RJ+8P36EGSJADduhEWFrPVMFi2jMOHeeMNzp+nQYMn3n8WERERkURFCZgkDo+qZEycGDPRqlKF11/n0iVWrLDf8csvgSH0zhN1ovHHUXafzUuWjEeFOq5fZ9IkOwFubhQuzIoV+PmxadM/hxJFREREJLFRAiaJQ4UKvP46ly+zZs0TvxsGHToAjBplv+OHH9KypTvhC2gYvP/32FtojwQFkSoVQL9+3L5tPyZzZhYvxmLhiy9YtSqB6xARERGRl5oSMEkcDIPAQIAJE2I2NW6MxcKBA/zwg/2+EyZE5XwtJ2cG0G9s4OkrV+yEeHkxdiyGwf37tkee7SpfnkGDsFpp1ozTpxO2EhERERF5iSkBk0SjcWOSJWP7dg4ceOJ3T09Spwbo3t1+Rw8P88b1kRbPuiwtE7a5Wwv7O1wff8zevRgGY8Zw6VKcs+jenSpVuHOHWrV48CCBSxERERGRl5QSMEk0kiShalWAXr1iNvXsCbB/f5zbUrlyWaZOAkbR1fLturVr7F0FgzfeoHZtQkIYNCjOWRgG7u4Ax47RsmU8lyAiIiIiLzklYJKYlCoFsHlzzHr0bdrg5QXQo0ecfZs1u/9BbR8eNGHOlsZf37tnP2rwYNzcmDGDX3+Nc6RWrTCZABYtYty4eC5BRERERF5mSsAkMWnZEg8PrFZb1cK/9WngaAAAIABJREFUeXjQtCnAmjUOHupKsmz2X1mLexEy5G7gV60P2Y157TWaNycqKuYXHle5Mp99Zvu7a1d+/DG+yxARERGRl5USMElM3N0JCACYNy9mPfr+/TGZiIoirheXAV/f1Of2565XzIcHNRfV3bsp2G7UgAH4+rJiBbt2xTlS//5UqgQQGUnduly+HP+1iIiIiMhLSAmYJDIjRmAYhITEfJTZz4/33weYMIGLFx0MkGrO6KtpCufi9J/120dH2wlIk4a33gLo2jXOQUwmFiwgWzaAP/8kIIDw8HguREREREReQkrAJJHJkIGiRQGGDo3ZNGoUhkFYGAEB2E2tHvH0TPHd4hDDu/qtuT9+vsVuiK8vwO7dbNgQ5zApU7JkCR4eAHv20LlzvJYhIiIiIi8lJWCS+DxKvc6fZ/fuJ34vWJD27QH27XP0mBd4Fsn7S62+QPYRbSPvh8YO6NcPwwDo0sVRKleixD/fmTSJ2bPjsQgREREReRkpAZPEp2JF28NfsevRf/klS5diGPTty+HDDsYoOq/zj27v3Y3w/qXhkNithQpRuzbAyZPMn+9oLoGBBAWRJw/Ap5/GfKJMRERERF4xSsAkUerSBWDHjpj16IE6dQgMJCyMhg0JCYlrALOX+9kkhQpzxGftoojfzsYOGDIEsxmgd2/CwhzNZfx4Tp6kVStCQ6lTx0EVRhERERF56SkBk0SpWzcKFSIqipkz7bSOHEnBgpw4YXugOQ5urZtH4JaDs39V+SR2a+7cNGkCcPkykyY5n9H48bz1Fn/8Qf36REa6tAgREREReekoAZNEyWxm1CiASZNi1qMHPD2ZOxd3dyZMYP36uMYI6Jd/umeQiWjPsyfCF6+MHfDFF7i72/5wWFgRwMODlSvJmJHNm+nePV6LEREREZGXhhIwSawqVKBAAS5fZvVqO61FizJwIFYrjRtz/brdATw9MQ/sf5mMKbgd1bwV9+/HCMiQgaAggLt3qV/fTqIXQ/r0LFuGhwdjx8Yski8iIiIirwYlYJKItW0LMGGC/dauXXF35+ZNGjaMa4AmQb4DfEcB5of3wrv2jh3QsycpUuDmxq5d9OnjfEYlS/LBBwCBgezb58ISREREROSlogRMErEmTUiZkp9+sl980GTC3x9gyxamT7c7gIcHRYbV30gld8It0yZx5EiMgNSp+fVX1q/HzY2RI1mzxvmkrlwBCA2lRg3b3yIiIiLyylACJomYtzeNGwNMnGg/YPp0/PwAAgM5dcpuSIsWDE49Nhx3w2qN+rgJVmuMgLRpqVDBdp6xaVPOnXMyqRkz8PYGuHqVgAAnFRRFRERE5OWiBEwStzp1AL7+2k49eiBZMlauxDCIiMDf3+4tLnd3Gg3KO4bOBlbzscN8/bXd73Tvjr8/t29Tvz7h4Y5mVLgw06YBGAa7d9OmTXyXJCIiIiIvLiVgkrjly4fZTHQ0Q4faDyhdmvbtAU6epF8/uyHNmnE04IsexnAgulMX/vordoxhMHs2WbOydy99+zqZVMOGtGuH1YphMGcOX30VjwWJiIiIyItMCZgkbsmSUakSwPTpcZYpHDGC3LkBhg9n9+7Y7W5uLFzm9kuV7lspb7p9M65qGylSsGQJFotLl8HGjOHdd23nGdu358cfXV2QiIiIiLzIlIBJojd8OMCDByxaZD/A3Z1Vq7BYiI6mVi2Cg+1GDR1KoGlKGB5Mn243TwPCw4mMdOkymJsbixeTMSNARAT16jl/SUxEREREXnxKwCTRy5/ftsH1xReOYkaMALh2jU6d7IYULEiBWq+NoTPR0bRpQ2Rk7JgiRciaFXDpMli6dCxfjocHJhPXr/Phhzx86OqaREREROTFpARMBNvlrjNn+PnnOGM6deKbb/D2ZtYsli61GzJoEEPMfc8Z2Tl6lMmTYwf4+rJ0KW5uAHv3On8Z7K23+P57Fi8mVy4OH6ZVKxfXIyIiIiIvKCVgIlCvHr6+gJP6GFWrMnIkQJs2dk8E5slDjQZeXa0jAXr25PLl2DElSvyz0zZqlPPLYO+8Q506rFtH0qQsWMCYMc7WIiIiIiIvMCVgImCx2HaXNm2yX4/+b23bUq0at2/TvHnsJ7+ATJm4SGaAkBCCguyO0b07FSsCrr4MBuTNy9dfYzLRvTvffus8XkREREReTErARADo3t1WZmPGDEdhhsGMGaRJw6ZNjBsXu71AAfZRYj1VAVatYvPm2DEmE/PmkT49wO3b1Kvn5DLYI/7+9OlDVBQNG3L6tCtLEhEREZEXjhIwEQDSpGHBAoDRo7lyxVFk2rS2JK13b86fj9FYvz45chDIpDA8AJo2JTTU7tce7WgB+/Y5vwz2SP/+VKnC7dt8+GFctRhFRERE5IWmBEzk/9WtS7Vq3LrlvNhF9eqkS0dICG3axGgxmxkwgPNkHUIvgEuXbGXuY3n/ffr2xWTCYnHpMhhgGBw/jsnEr7/StKndI5AiIiIi8kJTAibymGnTSJmS9euZNctJZIUKABs38v33MVoaNCB3bobT8xzZAAYP5uxZu2P078+9ewweHI/LYB98QHQ0JhMrV7q6byYiIiIiLw4lYCKPSZ+eCRMAOnXiwgVHkaNH4+kJ0LIlERGPtzzaBAvDozVTASIiaNEirmG8venWDX9/Vy+DjRtHsWJER2MYDBnC7NkuLUtEREREXhBKwESe9NFH1KlDcLCTQ35+fgwcCHDhgi1ne0y9euTLx/dUXEd1gB9+YNq0uEYyDGbPJls2ly6DeXmxciWpU9um1rq13TIfIiIiIvKCUgImEsvkybi7s3UrkyY5CuvYkaxZAT77jGvXHm8xmWxvO7dj4kNLUoBOnTh5Mq6RUqRgwQLc3Bg1itWrncwua1aWLbO95hwRQe3aHDvmwqJERERE5AWgBEwkllSpSJkSoHNnfv89zjCLxVYOMTSUrl1jNAYEUK4cVyxZfCLvXqv4CQ8f0rChgyOGpUoRFITVSpMmzqvMly3L1KkAJhPBwXz4Idevu7QyEREREflvKQETicUwbCXpIyKoW5eoqDgj33+f8uUBFi5k377HW0wmtm7liy8AGt6ZRO7cHDzI5587+Oz+/QB371KrFg8fOplj06Z07kx0NBYL585RrZrzLiIiIiLyn1MCJmJP+fI0awZw+DBjxzqK/OorzGasVgIDY98Za9+edOnYui/J/MoLcHNj5Ei2bIlrpNatAQyDY8do2dL5HEeMoFkzSpYkZ0727+eTT4iOdt5LRERERP5DSsBE4jB+PBkyAPTqxS+/xBmWOzfjxuHtzf79zJsXo9HHh9mzMQyaTXnjctM+REfTuDE3b9od6aOPaN0aqxWTiYULbYcMHTCbmTmT7dtZt44UKVixgt6947NAEREREfnXKQETiYOPD0uXYhhERlKnToxa808IDOSrrwC6d+fu3RiNlSrRrh0REZTf2ifqrbe5fNlBVfq/q8wDHTrw888uzfT111m1Cnd3hg9nyhSXuoiIiIjIf0IJmEjc3n7bdi7w118ZPtxRZKNGlCnD9esMGhS7ceRIChbk1GnTjuBCAKtXM3Om3WE8PFi6lGTJAMLCCAjgr79cmum779pywPbtYz8NLSIiIiIvCiVgIg6NHk3GjAADBnD0aJxhhsG4cZjNjBsXu9y8hweGgWHQ40Rjq8kM0K4dv/1md6ScOZk3zxZ/4QINGjgqAvK4pk3p3ZvISAICHM1URERERP5DSsBEHPL2Zt068uQhMpLGjR3UkadoUZo1IyKCoKDYjfnzY7WylzdHuPcBCA2lfv24RqtenQ4dsFoxm9m82e6mmn0eHvj6cu8eVapw+bKrvURERETkX6METMSZokU5eJDcuTl8mCFDHEUOG0aKFGzezJo1MVrGjyd9eoA+oX1+9X0D4PBhBgyIa6QRI6hRg1KlMJv54gu+/dalmd66xb17eHhw+TL+/jx44FIvEREREfnXKAETcYG3N3PmYDYzeLCjyhgpU+LnB9C2LaGhj7ekTs2cORgGUYal+r1FEW7eAEOHsnWr3ZHc3Fi1iu3b+fxzoqNp1Ig//nA+zWHDKFmSsDA8PTlwgHr1XD2+KCIiIiL/DiVgIq4pVYoOHWwHEZ9Mrp7QuDHA1auMGBGjpWJF2rXDauUMOdtHjQWwWmnUiFu3HHy2b1/8/bl1i3r1CAtzMkdPT9auJWdOQkPx8GD9enr0cGVtIiIiIvIvUQIm4rIhQ8ifn19/pX//OGO6diVTJoBBgzh/PkbjiBEULAjwVXSrLd7VAa5epVUrB980DGbPJkcOfv6ZTp2czzF1atauJVkywsKwWBg9mkmTnPcSERERkX+HEjARl3l48PXXmEyMGMFPP9mPcXdn/HiAiIjYCZOnJ19/jbs7QIOHM4M902IysWIFc+Y4+GyKFKxciZcXU6Y4DrTJl4/FizGbiYrCMOjYkbVrnfcSERERkX+BEjCR+MibF8BqpX597t+3H1OzJu++C7BqFT/8EKOxSBEGDgS44+aXKfT3fU2nALRrx6lTDj5boAAlSwK0bcuhQ86nWakSo0ZhtWKxEBlJ/fps3+68l4iIiIg8b0rAROLD25vu3QGuXKFnzzjDJk/GbAZo2ZLIyBiN3bqxfDnDhnEP3/eWtLpX/SMePKBhQyIi4hrv7l22b8cwCA2lbl3u3nU+044dadeOyEhq1CAkhOrVOXjQlRWKiIiIyHOkBEwkngYMIFcugMmTOXbMfky+fLRuDXDmDF99FaPRMKhdm86dbbto/pcnW7NmY/9+vvgirm+mTMnnn9t2tE6f5pNPsFqdz3TCBK5dY8UK6tUjOJhKleJ6/FlERERE/iVKwETiyd2dpUsxmbBaadkyzrCBA/H1BejThxs37IZMmULWrPxwMNmscvMwmxkyhG3b4hrvs8+oVInISCwW1q5l1CiXJpsmDSYT8+ZRqRI3blClClevutRRRERERJ4HJWAi8Ve0KM2bA+zdyzff2I9JmZJvviFPHu7epU8fuyHJkzNvHmYzrb4ufa5BL6KjadyY4GC7wSYTCxaQNavtSGPv3nE9IWaHmxsrVlCqFGfPUrGi47r3IiIiIvIcKQETSZBhw/D2BmjbNs67W++8w+rVuLszY0ZcW1tlytCrF9HRjPi2IMCFC7Y7ZvakTMmSJbYiipGR1KnDmTOuztfbm7VryZeP48epWpUHD1ztKCIiIiLPkBIwkQR5dCsLuHSJKVPiDMubl969iY6madO4trYiIjCZWH/zrVBLEoBp09i0Ka7x3nyTIUMA3Ny4dYtq1VwqyPHIo4qISZKwZw/16jko+SEiIiIiz4sSMJGE6tiRjBkB+vfn5s04wz77jBIlOHcurneUkyYlOppLpiwdI0cBWK20aBFnjXvo3JlatYiIIEUKTp6kXj2iolyab0QE169z/z5eXqxfT9OmREe71FFEREREnhUlYCIJ5eHBqVOUL8/t27a3veyyWJg7Fy8vZs1i5crY7d27U6IE0dFMo9V2czmACxfo2zeu8QyDOXPo3p1p0/Dz47vv+Owzl+abOjXffouPDyEhuLuzYAHt27vUUURERESeFSVgIk/B25sJE7BYmDSJEyfiDMubl44dAVq25Pr1GI2PEjRvb6wYLaO+Cjc8AMaNY8eOuMbz9WX4cAICWLECd3eGD2fWLJfmW7Ikixfj5kZ4uG3Wjw40ioiIiMi/QwmYyNPJl49mzYiMdPQuM5AqFcCtW7RqFbsxb15GjgQ4Y36tv7UfgNVKs2aEhDj+eJkyjB0LEBjInj0uzbdaNebMwWQiKgqTiT59mDbNpY4iIiIi8vSUgIk8tYEDSZaMdev4/vs4Y1q2tF0YW7uW+fNjt7dtS9WqREUx2tTtCIUBfv/dwdPMf/v0U9q2JTSUmjW5dMml+X70ERMm2J5ytlpp25Zly1zqKCIiIiJPSQmYyFNLk4ZevQA6dbK90hVb0qTMnYthALRty4ULMdoNg1mzSJ+e8GhLc2ZGYQYYNYr9+51+f9w4ypTh2jU+/JCHD12a8qefMmAA0dFYLERH06gR333nUkcREREReRpKwESehU6dSJKEEyccXcZ67z1atwa4f5+mTW07UI9Jk4avv8Zk4rckxcuzdUOqj4mMpHlzwsMdf/zsWfbuJUkSDh2icePYA9v3+ef06UOhQrRtS3g4tWqxe7dLHUVEREQkwZSAiTwLFgtmM0D37o5e5ho1iuzZAbZuZdKk2O3vv8/GjaxaxcXs7wTcnPpXitwcPcrQoY4/njw5vr7cv4+HB8uXM2yYq7MeOJADB5g4kUaNePgQf/94vOwsIiIiIgmgBEzkWTCZGDQI4O5dBg+OM8zHh3nzbAcRu3Xj1KnYIRUq8P77LFlClLtXjTtzrIaJQYM4dMjBx9OmZckSLBbCw211Ndasid/cZ82iShVu3KBJEz0OJiIiIvIcKQETeUbatCFHDoAxYzh9Os6wt9+2Pb8VGspHHxERYTfqjTcYPJid1lIz3dvaDiLGEfnIe+8xYgRW6z93uo4di8fc3dxYuJBMmdixgwkT4tFRREREROJFCZjIM2Kx2ErCR0XRtaujyCFDeOstvL05cIARI+KK6tIFf386hg2/7JGDQ4dsg8etUyeaNSM8HB8f7t/nww+5cSMe00+WjK++Aujd21H+KCIiIiJPQwmYyLPz4YeUKQOwZg0//RRnmLc3u3ezbh2GQf/+cdU5NAxmzyZVFp8lYTUA+vZ19NYzAJMmUaIEDx6QNCnnzlGrltP6HU+4cwezmYcPdRBRRERE5HlRAibyTE2YYLvi1aaNkySmfHnatSMyksaNCQ21G3L6NFeukMR4ABAeTosWREU5GNLTk+XLSZuW4GCSJmXHDtq2jcfcrVbb68w7d9p2w0RERETk2VICJvJMFS5Mw4YAJ06wYIGT4BEjyJ+fEyf4/HO77cmTYzYzgH53SA6we7fd2omPy5yZZcvw9aVyZby9mTWLyZNdnXvDhpQvb0sbu3dXRUQRERGRZ08JmMizNnQoPj4AvXrx4IGjSE9P5s7FzY3Ro/nxx9jtuXMzZAhXrOl7m4fbfurZ02liVKYM16+zaBHTpgF07MjmzS5N3DCYMgUvL4AHD2jVytUnxURERETERUrARJ61TJm4cYM33uDyZUaOdBJcvDgdOxIdTZMm3LsXu71TJ6pX56uolj+Y3gMICaFlS6eJkZcXhkHDhvTqRUQEtWtz5IhLc3/tNfr2BTCb2bqV6dNd6iUiIiIiLlICJvIceHkxbhyGwYgRXLjgPBg4d85u7UTDYOZM0qU3WkdPCcEL4IcfmDHDxYkMHszHHxMcTJUqnD/vUpdu3ShWzHbXrFs359MXEREREdcpARN5PkqWJCCAkBD69HESGRCAmxvAtGmsXx+73c+PhQs5Y8o90LBdFbN27sLFi67M4lH+9v77XLlClSrcvu28i8XCrFm4uWEYBAfTrJkOIoqIiIg8M0rARJ6b4cPx9GT+fPbtcxRWsCD9+tn+btHCbpJUtixduzLS2vWIqShg3L9HmzYuzsIwyJCBDBk4cYKaNQkLc96lcGE6dcJqxcODLVuYM8fFT4mIiIiIE0rARJ6b7Nnp0AGrlS5dnOwi9ehBiRIA167Ro4fdkEGDKPqGpXH07BOmgvfwZcMGZs50ZRZ377JoEVeukCIFP/5I48YuvfHVvz9t29qq2HfqxKVLrnxKRERERJxQAibyPH36KW5u7NjB1KmOwiwW5szBwwNgxgy2bo0d4ubGhg0MXFv47JqjbY2vgKigjq6Uik+VitmzMQzu3sXHhyVL+Owz5xP38mLyZMaOpWZN7t51fb9NRERERBxRAibyPBmGbb+pc2fOnnUU+frrtoOIVitt2th9mjl1aqpXp1o10nf5aCEfmUPuR9SuT0SE01k0bMiAAURHExmJmxvDhjFhgqsrmDSJFClYv575813tIiIiIiJxUQIm8jxlzkyHDgAhIbRo4eQgYpcu5MsH8PvvDBvmIHDYMJaXn3yerG5H9kcNHOLKRPr2pV07wsLw8MAw6NSJVatcWkH69IwZAxAUxOXLLnURERERkbgoARN5zgYOJHt2gB9+cPKulrs7U6diMmEYDB3KiRNxBZrNTF+arFv6+VGYjcGD2L3blYl8+SW1anH/PsmTExVFw4bs2uXSCpo0oXJl7tyxXQkTERERkQSzOA8J39i+WNC3LlROc8Sj8oSD4yu5P90gIi8jb29mz6ZcOVs1jkqVyJIlzuDSpTl8mDFjmDOH5s3ZuROT/X8lSZWK9ktLzyvbpEnUzHv+jXzPHMbX1/FEzGbmzePKFfbswc+PGzfw92fnTl57zfkiGjRg2zbWrWPxYurXdx4vIiIiIna5kIBZ7187c/q0nQsp8eF57b6eEpJE6913adWKqVO5f5+mTdm8GcOIM7hgQcaNY9Mm9uxh+nRat44rsHdvpkfvBHxvnL3RqJPfGuevM3t7s24dpUvzxx9UqsTGjVSuzK5dpE3rpOPo0YSEALRrR7lyzuNFRERExC4XEjAjaZb8BQo87Q5YlqRx/z+cIq++ESP45hsuX2brVmbNonlzR8FJkzJ2LHXr0r071aqRMaPdqKJFmfBTu4m0i8bkt3Zm8IyKSVvUdTqR1KnZv5+bN/Hz47332LOH6tX54Qd8fBz16tiRpk1xc+PmTYKCWLrU6XdERERExA7D6rgqgLyEihcvfvDgQX9//9WrV//Xc5HHrF9PtWoASZNy/DiZMzuJr1GDNWuoUyeudCcsjDKlrf32V6/KeivGfUtyr1NHLNmdDfuYGzcoVYrTp6lWjVWrsDj8B5lKlfjuO9zciIhg2TICAlz/joiIiIgdH3/88fz58+fNm9eoUaP/ei7/HhXhEPm3VK1K795kykRwMM2aOamICEyeTLJkLFvGmjV22z08WL7C6Jpy1p+kMbD6Rt7+o3xz58M+xs+Pb7/Fz49vviEw0Enw1KkkSWIret+uHTdvuv4dEREREbF5/glY6O2rVy5fufkw+rl/SeSFN3gwBw/i58fmzcyd6yQ4QwZb+cR27bh3z25IliyMX5ymrWkqEIU597lNh5qOj9eMcuVi3Tq8vZk2jREjHEVmzcrAgQAeHly/TvnynD8fr0+JiIiIyPNPwMJ/6lksc6as7w49HPm8PyXyMvDzY+xYgI4duXTJSXBkJMClS/TtG1dIhQrk/6zGbJqaiQrHPd/cHqdXHo3XjCwWcuTAZKJnT9atcxTZvj1vv01YGMmTc/QoJUqwc2e8PiUiIiKS2D11AhYddvevP6/H5dKxVUu2/WUl6uIfF6OexXxFXgENG1KzJnfv0qaNk8gJE2z1EidMcPDYV//+rC437g+yuxPuQZi1wUd3rsWjbun+/Rw/jqcnVitt23L3bpyRJhNffYW7O8HBlCnDn39SvjyzZ7v+KREREZHELuEJmPXmngnN3s6S1DuFX9p0cclcqP7MU5FWTCn9Uum6mcjfJk0iZUrWr2fePEdhZcvSoAFAdDStW9suYMViMjFzqW+39PMfGj53LKlzh/+yrXSfaJdP/bZoQY0aPHyIhweXL9O7t6PgAgXo25foaDp1okcPwsNp1owOHYjSv7CIiIiIuCChWVH40ZH+lTrO3nXxQbTTK/+GKUXJtk1KuCXwUyKvoPTpGTQIICiIy5cdRY4ZQ/LkAMeOMWZMXFGpU/P16VLWe/dDVm0Mx/3DM2MXNNvi4lzMZhYupFQpwsJse1w7djiK79OH69epWZNhw5gxA3d3xo+nWjVHW2ciIiIi8kjCEjDrn0v7Dd11NxrDlOL1ig3bBrUKKJ7GbGBKVqxe+44dO3bs2L5NgzJZPA0M99caTv7p6Obuhd2f8cxFXnIPHgDODyKmTcvQoba/+/fn9Om4Ar298fEhfbXiF5v0NRFdfm7jTYtdrVTo5cXSpSRNSnQ00dG0aEGowzOMadLY/mjenK1bSZuWjRspUYLffnPxgyIiIiKJVIISMOudTSs237VieJXov+Xn7+ZPHj912Q+zm6Q3WUN83uo4euzYsWPHTVm47ef1Xd/wiTi9af3JCBfeexZJZAICbI8ff/MNCxc6imzVilKlAEJDadnSaaH5nDN7X8j+bkYuh37SKu58LaaMGfniCwA3N377jeHDXe349tvs30/Ropw6RalSbN3qakcRERGRRChBCVjkb4ePh1gxfN5r26aIz6PffN+tXCYJEYd27nvw/0OnKT947uclPW5s6Nl96XU99yzypGzZGDLE9ndQENeuxRlpMjFliu2Z5G3bnFwbA0ymzJtnh7glrR6xcna5rx88cBL+t6Ag3nzTdtFsyBBOnHC1Y3Q0GTNSsiS3bvHBB0yc6GpHERERkcQmQQlY9F9/3owGU/rX8yQ3/v9Hz9fy5bBYw07/du6fy/hueVu0r5rM+teaEVOP64q+SEzt2lG6NMCtW7Ru7SiyUCGGDSNnToDOnfnzT8cDGzmyr/Kfc5BivS4F9qnv6i6YycSkSZjNmEyEh9O8OS5W8jh4kG++Ye9e3n+fyEiCghxUDBERERFJ1BJ2BywqKgow+STx+ae/KVPWTGYj8vyZ8489+GUkK/lOYTdrxC8bvj2jDEwkBpOJGTPw8ABYu5YlSxwFd+nC6dNUqMDNm3Tr5njg0FAsK5YU4+CfpAn4psnIIa4mQ8WLM3kyQUFkzMiePUyd6lIvf3+GDQPYvJlSpfDyYto0qlbl9m0XPysiIiKSWCQoATOlSJXCBFE3rt34J6sykmTJmtqw3j9x7I/HUi1Tar9UJog6d/qcEjCR2PLkoV8/29+BgVy/7iR+2jR8fPj6azZtchDl6cmDDxsAGbiSl5PvffbW5rHHXJxRq1Z8+SXjxgH07On8sWjAMOjRg3XrSJqUXbvInBk/PzZtokQJfv3Vxc+KiIiIJAoJSsAsrxXI42YQ/efuHb/9s91lzp47u4XIk/sOBP9z4ct65/ZdK1hDQ0J1C0yUZJ2FAAAgAElEQVTErm7dKFoU4OZNgoKcBGfLxuefA7Rty8OHDgI/Xu6/Pm0zT0JvGqkLc6RM5zcuBg5z/bmu2rWpUYPgYOePRf+tShV27CB7dk6dwmTitdc4fZq331ZZDhEREZF/JCgBM/zKVizmbhBxdOynA7ZetR1uMmUoWCC1yfpg08wF5/7/4kj0hTUr94aDOV3GdOZnNGWRV4zFwqxZuLlhsbBsGWvXOonv3JnChTlzhp49HY9a/Kcvz5tzvGb97bo5gxsRmSf3Cv9fKU6edHFekyeTPDnr17NypYs9KFiQvXspU4br17l4kZIluX2bKlVYutTVEURERERebQm7A2bO1bhjTT8T0Xd2DHo/R+b3Rh+NBNzfqPReapP1wbbetdpO3XTg2MEtMzvU/WzrfSum1KXfLaBS9CJxKVKE06cZPBggKAjHhQstFqZNw2Jh4kS++85BYLrcvre/XveLUSBD1EUwgknqfngfRYsyfLgrW2Hp09tmFBgYj9tcfn5s3kzLloSEkDYtnToRFkaDBkye7OoIIiIiIq+whCVgGKkDxs1qldfTAGvoX+ev3rcC+FbuGlTUw7DeOzytTcX/FSr+fouJ+25HY3gXbxf0vveznLbIKydLFrp2pUQJLlxg0CAnwTt3EhmJ1Urz5o5zoyIf5ft13v6h9IrGSErwddJaQ8Po2ZMyZTh1yumkKlQgRw6uXaNXr3gsxd2dadPYupUpUxgzhi+/xGolMNDxjp2IiIhIopDABAyMNFUn7dwxp9dH7xXLnSGp26Nq9G6Fus6bUCOzm/FYnHeeRlMXdivs9tRTFXnV/V0GftQojh51FPn++7i7A1y+TJcujkcNaOgRMWDI2+w87lb0pHuhynx71zcTu3dTpAjDhzuuND9qFGfP2rbc4nuVq1w50qUD6NCBOXOwWBg+nGbNiIx01lNERETk1WVYrc+6OEZ08Mlv5y/ecuT8bVLmfqtag3rlsmv3619VvHjxgwcP+vv7r169+r+ei8Rf27Z89RVlyvDjjxhGnGGDBtG3L4aB1cqKFdSq5WBIq5URI/D1pWBBKlTAM+zurtLd8+2YBlC6NHPm2F4Yi2XfPkqWxDCIiuK11zhyBE/PBC5r3Trq1SMkhBo1WLQo4eOIiIjIK+Pjjz+eP3/+vHnzGjVq9F/P5d+ToB2wqN++X7brYkgcmZspad6qn/YfM3X27KmjezdV9iUSP8OGkT49P/3EvHmOwnr2pEQJHv0DSps2jp9mflQm/tNPKVOGqVO5S7Iie6ceHryeDBnYsYNixZg2DXv/FlOiBK1aERWFtzenTjFkSMKXVb06I0aQIgWrV1O5MsHBCR9KRERE5OWVoAQs8tiMT0rnyJCvUpthS/ZeVn15kWcpWTIyZADo1ImbN+MMs1iYOxcvL4AbN2jd2sXhGzemRw8iIig/qsrZebvIn5/gYFq3pnJlu29+DR9Ohgw8fIhhMHQoR47Ef0UA/PabrcZ+mjRs20b58o5zRhEREZFXU4LvgFkj75z8bmqv+iWzZSxQNXDksp+vhj3LeYkkZo82o27dok8fR2F58/LFFwCGwerVLF7s4vBDh1K/PrdvM7zhEX75BbMZLy+++45Chdi9O0Zw0qSMGgXg7k5kJK1bu/6W2BNy5qR6dW7f5v59MmbkwAFKluT06YQMJSIiIvLySlACZs5Tsd67OZOaDcAaeevEhsnd676ZNWPB6kGjVx68Hv6MpyiS6Hz5pe3217RpsTOiJ3TuzNtv2xK2tm3tbmHFZhiMGkWhQsy6VmV5xg5YrYSEkDQpt29TqxZXrsSIb9CAqlUJC8Pbm717mTIlIWuyWFi1ilatePiQa9fIkYOzZylThsOHEzKaiIiIyEsqQQmYpWCLOdt+v3Z+z/KxnQLezORtMsAacfP4NxO71v5flkxF/Dt+ufrwn0rERBKoTBnq1weIjqZNG0d1A00m5szBxwdvb+7coXlzu1e5YmvUiF9/JYWfpc7lL4dV3EqOHAQHYzJx7Rq1axMWc0N73Di8vAgJAejdm4sXE7Iss5mpUxk2jKgo/viDnDm5do1y5fjpp4SMJiIiIvIySvARRAyvjCVqdxyzbM/5a6d/nD/00+pF0noYYA2/cWTtuE41i2XJXKxW5/Hrjv4V8QynK5JYjBlD0qQAR486ecM4Vy6OHGH7dlKm5PvvmTnTleHLlycigocP8fam18Z3Rzc+SqtWREdjMrFnT+wbZTlz0rcvViv583PvHm3aJHBZQI8ezJyJ2cyZM+TKxZ07VKjA8uUJH1BERETkJZLwBOyfIXyzl2nYc9LaQ5eunvh+Zv9mFfKmdDOwhv15aNXYDh8WyZzljYBukzacvKtaHSKuS5eOvn1tf/fpw+XLjoJz5qR4cSZOBOjYkTNnnA7fpw+NGvHgAV5emM106++zuNxU6ta15WBz5zJtWowuPXqwcycbNpA8ORs2OMkKHWvWjMWL8fTk9GmKFiUsjPr1mT494QOKiIiIvCyeQQL2N0uKvBWa9Zv5/a9XLx1cN6lnw3dyJDUb1tBr+1eMalf78006kigSLx07UqgQwL17Tl9bBmjQgLp1efCAJk0cP68MGAbTp1OqFDdvkj49VivNmrG/zQzy5rX1bdcuxtFAk4lSpciShbFjAQID6dPHxQOPdtSuzcaNZMtG3bp8/jlRUbRuzaBBCR9QRERE5KXwLBOwv7mnKVKpQZOmzZvWLJbKHPdDsiLiiMXCuHG2ahxLlrBhg/MukyaRLh07djB+vNNYT0/WriVXLi5dIls2QkLwb+R7fepqGjWiUSMiIqhb1+7OW5MmzJyJmxuDB1O3ru1iWAK8+y5//EHPngwYwMSJGAZ9+xIQwL17CRxQRERE5MX3jBOw8D+PfTu9f4tKBTOke/39xn3n/vxXlBUwLEmT+SgTE4mvsmXp3Jns2QE6dCA01El86tS2o4O9evHLL06HT5WKdetIkYJz58ialStXaD0mD/PmMXs2Zcty7Rp16hBuZ/O6WTPWrydZMpYv5733uHEj/kt7UmAg69eTIgUrV/K//3HixNMOKCIiIvJieiYJmDXkyv41k3p9Uj5PuoyFq7QaMPO74zfCrWCYfDKXrNt13KqfL5yfXtn9WXxKJLEZNYpTpyhcmNOnGT7cefyNGxgGoaF88gkRzkvg5M3L8uW4uXH+PEmSsGYNa9eCxcLy5WTPzu7ddOpkt2ORIgwZQpYs7N5NyZL89lt8FxZTpUr8/DMFC3LqFG+9xapVTzugiIiIyAvoaRKw6Pvndi0d26Ve6Rxps5So0W7YvB9O3Y60AoZHmsLV2g5d8OPpq+d2LRnZvkbx9J7PasIiiY/FYjuiN3So80QnRQqsVkwmDh5kxAhXhi9fnvnzefddunUDCAri/n1IlYoVK/DyYvJkZsyI3euzzwgMJH9+ihThzBlKlXoG1eTTpOG11yhZknv3qF2bnj2d3mUTEREReckkKAGLPv/diHY138iSNmfpep3HLN157p7toGHy3OUb95228fiVy4fXTe75UZnsvs/ljplIolO6NE2aEBZGUJCTyJo1CQiwJS79+7N/vyvD163Ltm306cObb3LhAgMHAlC0KFOnArRrx759Mbo0a0bKlHz7LWYzFSpw6xYVKrBoUTzX9aTz51m5kt27KVsWi4Xhw6lenTt3nmpMERERkRdKghKkiJ9n9pu0ev/lh9FWHh00fKtOly9X7rtw9dSWOV+0/CBfSssznqaIjBxJ6tRs2sTSpU4ip0whbVqAyEgaN3Z+c+z/mUxMmoTZzJgxHDkCgKcn3t6EhVGjBleuPB781lvs3ctrr3HgACdOUK8eYWE0bEj//vFd2D8KFGDRIry82LaNQoXw82PDBt54g+PHEz6miIiIyAvlKXaoDHe/QlXbDpm/7fer53YvHdWh5v900FDk+UmVypbcdOjA3buOIlOntu1cGQYnTjBggOsfKV6ctm2JjKR1a6Kj4eFDHj7EYuHq1dgFOXLlYtcuypTh8mU2bKB1awyDAQNo0cKV22f21avH1q2kS8eBA/j4ULAgp09TsqReahYREZFXRIISMFO2Kr2nfXvsyuUj30zu1fCdHDpoKPKv+PlngGvX6NfPSaS/Pw0aYLViGIwcyeTJrj+wNXgwGTOydy+zZsEnnxAQQGQkbm7s2mW7JfaYVKnYtImPPuLePWbOpEULvLyYOZOqVQkOjvf6HnnrLfbvp3hxzp3j4kUqVeL+ferWpWdPoqISOKaIiIjICyJBqZPb/5r0bVkpfyq3Zz0bEXGkaFEAw2DiRA4dchI8eTKZMmG1EhVFYCDVqnHtmisf8fGhcmWAHj248ZfBrFm8/joREZhMjB/PrFkx4j08mD+fHj2IjGTaNEaOJE0aNm2idGkuXIj/GgHImJFt2/D3584dtmyhSRPblbCqVbl1K4FjioiIiLwItHcl8vIIDKRQIVtO1batkxKByZMzZQpA2rSkTs2GDRQqxJo1Tj+yezczZpAkCbdu0aMH+PqydCk+PrbPBQbaNuIeYxgMG8bMmZQuzQcfsHs3efNy7BglS3LwYALXmiQJK1fSowcRERw9ajuX+N13FC3qYmERERERkReRYXV6MCl8S6/yPTeHAe6l+28cW9X3sV9c5vH+sK1D39NTYP+K4sWLHzx40N/ff/Xq1f/1XORZ27GDd94BsFoZN4727Z3Ez5tH6tQUK0bz5qxfD/Dxx0yeTJIkcfUIC6NQIU6dwmIhKootWyhXDhYt4qOPMJuJiiJLFvbvx8/PwWdv3qRmTX76CV9fVqygQoX4r/T/7dxJmjTkzs3Fi9Suzc8/4+PDrFnUrZvwMUVERORF8PHHH8+fP3/evHmNGjX6r+fy73GhXKH19pkD+/eHAh7p/op88heXeWa/7eoNFBGJW+nSfPQRCxYA9O5N1arkzOko/uOPbX+sW8f06XTqxLx57NjBvHm8/bbdHh4eTJxIxYqYzURG0rYtR47g0aABO3cyaRIeHly4QK1abN2KW5zHkB/dDWvalEWLqF6dxYupUSOBK/57mpkzs307gYHMmkWDBly75jz9FBEREXnRuFIv3itVpkyZQgGPVD4mACNJupy5csVvByxdEiMh8xORmEaOZN06goN58IDmzfnhBwwX/q/LMGjVijJlaNSIgwcpW5YuXRg40G4SVaECtWqxciVJk/Lbb4wZQ69eMGYMBw6wZw+pUrFjB02aMHs27nHua3t4sGABadPy5ZfUqcOcOTRs+DTLBvD0ZOZM8uWjWzc6dODPPxk40KXVi4iIiLwgXDiCKC8bHUF89U2cSFAQJhPR0UyaxKefxqPvxo306sWxY0RFUaIE8+eTO3fsqIsXef11HjzAMPD05PhxcuSAO3fYt4+kSfngA4KDqVCBFSvw9Y3rU+vWERTE22+zcCGGwZdfPps9q+++4/vvmTCBiAgaN2bGDCx6elBEROQllDiPIKoIh8hL6NNPKVPGVhWje3fOnIlH35UrOXwYd3f8/Ni3jyJFGDcudlTmzPTuDZA0KSEhBAYCkDw5FSvy1lvs3EnGjGzaRLlyXL8e16f++ovz51myhNq1ATp2ZNSoeMw0Lh99xJgx1K2Ltzdz5xIQQEjIMxhWRERE5F+QoAQs6rfvl+26GKKtM5H/iMnEwoX064e/Pw8e0LKl6898MXIkDRoQEsKNG2TKxMOHdOxIrVr89VeMwC5deO017t7Fy4uNG1mx4rG2AgXYsYM8eThwgJIl+f13u59q2pRhw4iKYuVKatbEMOjWjZ49E7DgJ4wahdnMggVUqkTq1KxZQ+XKTt6mFhEREXlBJCgBizw245PSOTLkq9Rm2JK9l0OViIn8+zJlon9/ZswgbVp++IHp013tmCwZCxeydCkpU3LpEsmSkSQJq1ZRoICtTOL/8/BgwgSALFkAgoKeTHKyZWPXLkqW5I8/KFOGAwfsfq1HD6ZMwTBYuZKqVW3PebVrF4+EMbamTVm1Cm9vVq6kUCEyZuTHHyldmitXEj6miIiIyL8jwUcQrZF3Tn43tVf9ktkyFqgaOHLZz1fjVZRDRJ6F1KkZPx6gW7f4PXtcpw6//GLbObp/n7RpuX6d6tWZM+fxqIoV+eEHNmygZEmuXmXAgCcH8fDAx4ccObh+nbJl2bjR7qfatGH+fNzcWLeOChXw9GTSJFq3dvKMmWPVq7N1K6lTs3UradKQKxfHj1O6dFxbcSIiIiIvigQlYOY8Feu9mzOp2QCskbdObJjcve6bWTMWrB40euXB6+HPeIoi4kjdutSuTXAwzZrFb18pXTq++YbRo/H05Pp1cufGauXTTzl06PGosmXJkYOpU3FzY/z4Jxvv3WPnTs6eJUcO7t/H35+FC+1+qkEDli/H05Nvv+Wdd0iShOnTadiQiIgELNjmzTfZvp0sWTh0CIuF4sVtW3FPTl9ERETkxZKgBMxSsMWcbb9fO79n+dhOAW9m8jYZYI24efybiV1r/y9LpiL+Hb9cffhPJWIi/5IpU/DzY8sWZs+OX0eTic6d2bePMmUICKB1a0JCqFmTmzdjBBYsSLt2REU9uXOVLh0bN5IsGWfPki0b4eE0asSIEXY/9eGHrF9PkiR8/z0jRpA0KYsXU6sWofF6UfBJr7/Ojh3kz8/Jk4SH88EHXL/OO++weXPCxxQRERF5rhJeBdHwyliidscxy/acv3b6x/lDP61eJK2HAdbwG0fWjutUs1iWzMVqdR6/7uhfT/FP3CLiipQpyZ8foHNnLl6Md/eCBdm+nSFDGDeON97g/HmaNIm9mTZgAJky8fPPTJv22K/vvMPOnWTKxLlzZM6MYdCjBx062D1fWL48O3YwciQtW9oOEH7zDZUrc/9+vKf8t0evM3/4IaVKsXYt9etz/z7VqrF8ecLHFBEREXl+nkEZepNv9jINe05ae+jS1RPfz+zfrELelG4G1rA/D60a2+HDIpmzvBHQbdKGk3dfkVod0cHnD/ywbvHX85ev3/7LDW3zyYvg0VFAw+DuXdq0Sfg4Hh4sX25LjIYNi9Ho68uXXwL07MnVq4815M/PTz+RJw8XL+Lnh4cH48fTuLHd84WFC9O1q+3E4I8/kiED27Y9bQ3DlClZs4avvsLdnYUL6dSJsDDq138yURQRERF5MTzLd8AsKfJWaNZv5ve/Xr10cN2kng3fyZHUbFhDr+1fMapd7c83vSS5SuStE9/PGfV5t/aB7br2n/LNr3ei/m6KvrF9VINi2XO+Uf7DBo0/rlPt3YIZ0hUIGLj+7FOcoRJ5BpInp3t3rFbMZjZs4OuvEz5UliwsWoTZTJ8+fP99jMZt28iTh7t36d79yYZs2di+nf/9j+vXSZKEJEmYP5/KlQkOdvCpfPnYsYMcOdixg/LluXEj4bP+m2EwZoyt9n2bNvTv/wzGFBEREXmWrM9HxK2Tm+cObPxGarMBgGedZaHP6VPPTnTwoamfFE5uMv75z2OY0743dPftaKs1+vp3HYskMWL/FzTMad//P/buOy7KY2vg+G8LHQQBxd57R7BRNBZEsGAvUewlMSrGEjWJLb5GjSVqjIklGkWNXewdCyr23mOJDXsnSNud9w/22gssEE0837+4+8yemeHe8Lknc54zo/Y+NL7v1T9TtmxZICgo6H0vRPyDYmNV8eIKFChHR3X1aqqiff21ApU58/NxEhKUg4MCZWWlQK1Y8cq3Hj9Wfn4KlJ+fyp5dgfL0VDdvvn2qv/5SBQsqUMWLq6ioVK36eZMnK61WgerdO81iCiGEECJttWrVCggNDX3fC/lHpeUJGBB/69jaaUM61iqZLUvRGm0Gztp3x6AAjT6Do91rcpcPSvzJnxpU/3z2kQfG54olleHm5m+C2oVeuhnWu/1Ph6OVRpexqH/bXgOHDu7/eZNKOW00SUOafbnq9n+kxlL8O1lZ8dtv6HRpUIgIhIdjYcGtWzRuTLzp8Fqv5+uvARwcABo35o8/XvyWvT2rVjFuHGPHsm0bBQqwfz8+Ply8+Japvv2WhAQKFuTECSpV4siRVC08idHIgQM0aICVFWPHMmhQGsQUQgghhEgbaZHFGWOu7Qub1D+4aqGM+ufTLI3WLmelpn0mLNsf9SQt5klPiX+Or2ynATT6TJ7Bg39dsGL5/F+/7x6Q31YDWqcixbLrNGhdfAeF30h49q2/z8xtW9haAxqLEt/sj3t/y3+BnIB9vHr3VqB0OgVq3jzz47RurUBZWipQPXs+/TguThUtqkDVqKFAaTRq1Kg3B7l5U3l4KFB586pr1940qlEjBcrFRZUurUDZ26tly8xfeJLoaGVnp0B5eyu9XoEaPTq1MYUQQgiR5j7OE7DUJGCGxxd3LhjXq6l3HgfdC8dbGqvMpet8PmLu9guPDGm20vQVH9m3oA7QutWbdva5RMp4d1NICauk3Wld6s++9sqGnhwYWMZSA7qc3bZ8IBmYJGAfr5gYUz1fUk5z44aZcR49UoUKPcvlnvuzuHGjKU0aOtRU49ejhzK86R/0R49UhQoKVIkS6t69Ny05MNBUOBkQYMrrBg9WxtRV9W7bppycTJWNWq3SaNS0aakKKIQQQog093EmYGaVIBovrf+hW4Nyudzy+zTrNW7hzr8emwoNnQpWazNw6rrjUdcOr5zc/1PfvA5pXOKYXgx/hof/ZQCLsiEj2xW0fPZA41xt0MCgjFpAm7XJF02yvbIh6zKdO/lYajDc2BFx1vDyUyH+UTY2TJ+OVotWy927dO5sZhwHBxYuxMYGgwHg8885eTLpSY0aNGlCdDR//MHPP2Nt/ZaWh+DgwLp1lC7N8eNv6jdvY0NYGM2a8fAhW7bQpg1aLUOH0rw5MTFmLh+oXJnt28mWjRMnKFMGpfjsMxYtMj+gEEIIIUSaMCtBStj32+Cfw/ZfizEqkgoNKzbpPX7p3svXz27+/btO/sWc9Wm8zPRmuHzhsgF02X18C+hefKRxquRbSg9YlPQsbfWa72rd3Mvm1IIh6vI1ScDEe1e5Ml9/Te7cODqyYoX5OUfp0qYrlfV6oqNp2PBpS8PJkylThtOnGTaMSZPIkIE5cwgM5PHj18U5fJgLF3B2Zs8eGjQgLu7VIRYWzJ1Lt27ExjJ7Nm3b4ujIwoX4+Jhzq9lTJUuyYQMZM3LwIJ6eGAy0asW6deYHFEIIIYRIvVScUGksM5Wq/fn3c7b+ef2vyIVjQhp4ZrVOu4X9s1R8XJwCjY2N9Su9QjQ2tjYaQGNl/erDpAE2NhpQcbFx0odDfAiGDePCBUaNAujalVu3zIzTrRuffkpiItbWnDnz9DzN1ZVt26hWjago1q4lPBw3NzZtonr1101lNBIdzYMHODmxaROffmo6VXuRTsdPPzF2LBoNv/1GUBCFC3PoEBUrsm+fmcsHihdnzRpsbU3dQOLjadSInTvNDyiEEEIIkUpmJWDaPIFfT117LOrakVWTB7SsnO/fUmj4ZlrXzK5aMFw7d+Hvl58ZLv55wQAYrl66+toTrvgrl6KMoHXO5PKv/0WI/5DOnalZkzt3CAkxP8jkyeTPT2wslpYsWMCkSUkfZ8jAmjWMGcPAgXh4EBlJwYLs20elSpw792KEatX46SdTGmZvz9KldO/+ptl69WLBAqytWbDgWY5XuTJz5pi/g4oVmTMHnY6dO/H3JyaGOnU4fNj8gEIIIYQQqWFWxmDh2XZgp1rFXSzSejXvjUWJCh72GtTjdVPnXHghy1L3N06bfy4RSDy+YuW512RgD8OXbrpvRGNT2qPov630UvyXaTT8+iv29syfT0jIa2v/3i2pFtDamjx50Gjo1evp+ZGVFb17U7o0QN68RETg4cGFC/j6cujQi0G++ILevUlMxGjE2ppffnnLBcmNG3PoEDt34ubG+vWmusTWrenfH6PRnB0ADRowdSrZsvH11zRuzIMH+Ptz9qyZ0YQQQgghUsOcBEzdOx0Rvnnz5i1Hb/xn3nlyqNkyyE2LehzeL6jT9N1RMUYg4f6pFYMat5txyaDRaDTE7Rsd8sup2Be+Z7y1dkDfedeNaByq1KuW8UO/60x8ZPLmZcoULC2ZOJFKlThzxpwgZcty9iyRkYSEkJBA8+bcvv3qKDc3tm6lVi1u3KByZTZsePHx6NG0aUNMDFZW6HQMHcqPP75pwiJF8PAA0Ov56SemTEGvZ9Qomjbl71dOqJOpfXuuXqVyZebOxd+fW7cICCAqysxoQgghhBBmMycB02j3ja7tV6NGQL/V9/4rLz1pnGoPHFTDWYv6+/jMTpVyODpmzurs4Fo86P/Cbxq02RpPntE5n17d2dCzStXPJqzY+2fU7VuXj2+Z9U2QV6NfT8crjb5Au77Nskr+JT44LVrQrx85c3LoEO7uTJhgTpCcOXF2ZvRofH25epXmzV/7Hpe9PfPm8emnREdTty7z5z/3TKNh2jT8/Xn4EBcXtFp692bmzORM3rkzq1eTMSNLluDlxaVL5uzgKUtLli7Fy4sLF/D35969VEUTQgghhEgps0oQ7XLmzqQFw5W/rvxnjsDQF+gSOr9PBSctgEqMvn3jfpxRgcahTMjvk7u0GT6hXV4LDLd3T+kZVKFQ9sxuuUtWa/v9qvNPFBq7Mn1nDKti+763IMSrzpxh2DCioihViidP6NmTJk148MCcUHo9CxeSNSvh4Qwd+urzI0dwcyM6mp49iY/n008ZO/a5xxYWLFpE2bLcukXhwihFly6sXp2cmXPkYMoUihbl6FE8Pdm+3ZzlP2Vry4oVFC/+lt74QgghhBDpxbx3wCo0b1pArzGcXb36VGJar+j90Wb2G7XtyPrxXeuUzelopdVorVyK1eo+ZdPmMX6uGo1L7Ukbfw8ubPPSKZfGOnfAsDUbhvs4vJ9FC/F2RYrw7bcoxdGjFC6MnR2LF1OmDJGR5kTLksXU0WL4cJYseemhszNOTqxYwe7dDB+ORkOfPoSEoJ4elDs4sAhnPPAAACAASURBVHo15cpRqRIDBpCQQJMmRES8c9pGjWjWjIYN8fPjzh38/Zk715zlP+XiwsqV5M3L3r0EBREb++6vCCGEEEKkDfPubzY+ivzOO6NWm7HKyAOP0/Rm6A+GIdHwmk+fXAqf3LdNAz8vz/K+NRt1Hjx147nof3xp71K2bFkgKCjofS9EfDDCw1X27AqUg4PKk0eB0uvV4MHK8Lr/lb9Thw6mCLNmvfTk/HlVoIAClT+/Gj1aWVgoUJ07v24eo1F17qxAOTqqgwffPuGUKUqnU6Dat1dffKFAaTRq0iRz1p7k5k3l6Ki8vVWWLApUUJBKSDA/mhBCCCHM06pVKyA0NPR9L+QfZWYCppQyPjo8pWVRe61DsUaDZoWfuPG3Wf9PTqQDScDEa9y+rerWVaBAlSqltFoFqkYNFRWVsjg7dypQ2bKZ0qAxY156fv26cndXoLJmVT//rGxtTYnTa3Iwg0E1bapAZc6szpx5+7Tr1ikHB9OShw9XGo0CNWJEytb+1KNHKmdOUzRnZwUqOFgZjWZGE0IIIYR5Ps4EzKwSxIQ9E9q0+LTzyC2GgkUzx55a8l2basWzZrB1cMmSPecbFPx8tVlNsIUQacPVleXLmTABKyuOHiV3btP1yWXKsHZtCuKULk3BgkRFUbKkqcqwf//nn2fJwvbt+Ptz/Tr9+vF//4eDAzNm0KoViS9VLGu1hIY+a0p4/fpbpvX3Z/Nm05Lnz+fHH9HrGTDgpcmTy8GBdetwdmbTJnx9sbMjNJS+fc0JJYQQQgiRMuZkbbGLmlincBrrJoti0zp5FG8gJ2DibQ4dUkWKKJ1O7dyp/P1NB1k9eqi4uORGOHZMubgoUMWKmaoMu3Z96YQrNlY1a6ZAWVmpsWNNh1fNmr2u0i86WlWsqECVKKHu3n37zOfPqyJFFKjcudW4cabJP//czFLK3buVnZ0C1bq1srRUoMaNMyeOEEIIIczzcZ6AmXVzsCZjfg9PzxSdaFnl/8/ekRV7//q9GKMCjY1LNueUZqZC/NPKlOHwYa5fJ08e1q5l4kT69mXiRCIj+eMP8ud/d4QSJYiIwM+PkycpUICrV5k8mQcP+P13LEzXs1tZMW8ebm5MnMidO6xdS2AgCxagFHPnon/+D0+fPpw4Qe7cHD9OtWosXUq+fG+aOV8+du6kXj127mTMGBYtonlzfvmFR4/4/fcXwyZDhQrMn0+DBsyeTdu2zJpFnz7kzEnjximLI4QQQgiRAu87A/zXiw1r6ZCUW6b1Kd+AAQNS89+sj49PWq5G/IdFRKhcuUz9MHbtSu63Ll40NdzIk8d0wlWnjoqJeWnUyZMqPl4ppfbtUxkzKlCNG5s+Mfn2WwUqQwaVO7cC5eys1q59+8zR0appU1W9ujIY1JYtpsmDglSsWf8ATpumQOl0KjhYgbK2VhER5sQRQgghREp9nCdgZr0DJv4R6ln3biHSk48Phw9Tty4PH9K0KXfuJOtbefKwdSvFivHXX2TMiIsLq1YREMCjR8+PKlrUdCrm6cnGjTg7s3gxLVqQkPC/EUOH0rgxjx6RkECtWty7R2Ag/ftjNL5pZjs7Fixg0ya0Wj75hM2bcXZm+XIaNODJkxTvvmNHvvsOg4ElS+jUidhY6tfnzJkUxxFCCCGESA5JwD5cI8xt8Zb0DpiLi8v73oH497h7l02bcHTk6lVat35L8vOC7NnZtg0PDy5fZtw4cuZk2zaqVeP27dcO9/Bg40ZcXFiyhAYNiEsqY05qxVGlClFRnDxJjx5oNIwaRVBQMi+MLleOTZvIlIm1a6lV66UEMFkGDmTgQKpWZfx4GjTg7l0CArh5M8VxhBBCCCHeSRKw1LKsPDR89+7du3fv3v59Ncv3vRohzOPggIsLDx9iYcHatYwendwvuroSEcHevbRuTUQEBQty4ACVK3PlymuHlynD/Pm4uLB6NQ0a/O8GZGtrwsLw9ubyZaZPp18/MmZk1SrKl+fEieSswt2d7dvJkYPt26lenbt3k7v8p777jlWrsLVl7lwqVeLiRWrXJjo6xXGEEEIIId7OrCYchvPrp687l/jugc/NU6BWR//8OnNm+8BpMub3LJ+MvgVCfMjc3Ni9G3d3bt9Go+Hbb/H2xscnWd+1saFcOYDcuYmIoFYtDh/G15cNGyhU6KWxAwcyYgQ9exIaytq1NGjAsmVYW4OTE+HhdO3Kb78xciQ9erBlC0ePUrEiM2cmpy3GunX07s3PP7N/P5Urs3Ej2bKl+NeQtJsVK/D25sABmjVj+fIU9/YQQgghhHgbc0rcpA39h03a0AszrVmjNBrTHc05cqjbt80Jcv++8vZWoNzc1KFDLz1ctMgUvmdPlSWLAuXv/2LnjokTlV6vbG1VTIxq08bUJb9fP5WY+JY5nzxRer0C1aePKlFCgSpcWF2+bM7yk5w7pzJnVqA6dTI/iBBCCCHeTppwpAuNVqfX6/V63X+1C70Q/x0BAYSEYDRibW16GcyMTjBOTixeTJUq3LxJ1ars2PH8w8aNmTMHvZ7x46lTh6xZWb+egAD+/vt/I7p3Z/duNm/Gxobff2fKFPR6Ro2iRg1u3XrTnNbWTJ+OTseYMfj4UL48Z87g68uff6Z4+Uny52fVKuzsmDaNkSPNDCKEEEII8Sqzamssqw4L3xHyprf0jfHRd6+c3LVm7qylB28lYFsk+Nelv7QsZJWKVb5HidF3bt6+e/9RTFyCUWtl5+Dg4OjqlsleapLEf9TIkWzbxqFDWFmZXgb76qsUB2nblh07KF+evXvx9ycsDD+/pw9btECno2VLpk+nQwfWrmXbNgIDWb0ae3sAPDyehercmaJFadqUrVvx9GTJElO54yvatCFjRpo149dfadoUnY7ISCpXZsMGSpZM8Q6++YZt25g8mfbt+fprsmWjdesUBxFCCCGEeI30O1wz3Nk10i+zFjT6XJ8uvGpIv5nSWszVyAVj+wTXqlDIzU7/ysmdRmPpmKNohYDW/Scu2X35b+P7Xu2rpARRpMqZM8re3lT7p9ebcyvW2LGmr1eqpEDZ26t9+14asmiRsrBQoNq1U9mzK1C+vurRozcEvHpVVaxouqVrxoy3zBwebroWrHZt9cknClTmzOrPP1O8g0aNFCgvL/XTTwqUhYXauDHFQYQQQgjxdlKCmMa0LpW+mj+9dU6dSry8oNewTTHpN1WaMd7d82sXr3z5vJr1HhO6bs/Zm38nvlKBpVT8w6un9qydPbJHo0r585RvO2HHTcP7WKwQ6aNQISZNAvDyIjGRFi2SezPYU716MWkSGg2RkZQsSXQ0AQGcPfv8kMaNWbQIS0tmzqR6dbJnJyKCmjXf0ME+KoqGDenQgdhY2renSxfi4187c9WqbN5s6rIIprrFWrVS3FN+yhTy5mXXLvbv58svSUigUSOOHk1ZECGEEEKIV6XvO2Aa54CuLQvowXB988ajCe/+wnsVf35e20pVuk6NvBGflHVpdLYuOQu7e31Swz+wbv0G9evVruVX1dujWJ7M9hZJB2Mq4fb+WV9WK994yomU3/8qxAerTRuuXSM8HG9vM18G++IL01tZx45RoAB37rx6tVZQkKkF4rx5bNhAnjzs3k3Fipw+/Uq0QYP46ivOnmX0aKysmDoVf/83NZsvV47Nm3FzY+tWsmbFy4vz5/HzS+alYiYuLixdiq0ts2ZRsCAtW/LoEYGBb+quL4QQQgiRXOndhENfuHiRf8f7Uk/2fteo/Zw/4xQaq2yVWg+Zsf7QpfuP7lw+fXDnlo3rVq9YtnTZ8lVrN4Tv2H/i4s2HD6+f2LZgbPfAwhm0qITLy3s0/Grzw5S3KxDig5UtG5aWzJ+Pq2vKbgZ7ql075s9Hr+fcOfLl48KFV6/WCgwkMpKNGylWjH378PbmwgW8vNiy5cVQI0aQMycREUyaxLRpZM/O1q1UqMCpU6+duXRptm/Hy4sKFVi+nCJFOHaMhg3/d/Vz8pQpw7RpACEhtGmDjw/XrhEYyMOHKfs1CCGEEEK8IJ1LHI03p/lbgcamXuj9dJ4qVQyXfq5uqwGNLnu9CfvvJ/vFrtiLy7u722lAY1Vh1Om39cn+B8k7YCItrV5t/stgSqmpU00vUeXIoUBVq6bi4t409skT1by5AmVpqWbNevHZ7duqShXTa2A//aTKlVOgHBzUypXvXMLlyypnTgWqeXNlSOHbqL17mzrqHz2qihRRoKpWfcsOhBBCCJEC8g5YeqR3dzev35cAGqesWWzTd6pUMV4JW7DjiUKXs8NvoT08nJLdM98qT70fFwzzsdGouIPLVl6Ud8HEf09gIH36mPkyGNCpEwMGkJBAwYK4uREeTrt2bypoTCpHHDyY+HjatCEk5LmBrq6sX0+7dsTG0qMHfn60bMnjx9Svz6hRb19CzpysWYOTE/Pn0717ypY/ahR+fty8SYcOrFiBmxtbttCpU8oO04QQQgghnkrPBMx4/8CkDl8tu29EY1ncvZhFOk6VWoknD59IUGgzBzapmiGF39Xlb9SkvAUY/jx5VhIw8Z/Uty/Fipl/M9jw4YSG8ssvrFqFvT3z5vHNN28aq9EwYABTpmBhwcSJNG9ObOz/nllZMWMGP/6ITsf335OYyPDhKEX//nTuTMLb3jItUcL0vtnkySmrptTpmD+ffPk4cABLS9PlYLNnU7w4y5enII4QQgghRBKz3s9K2P5/9Ydte30TMhMVf//yqZPn7zwxKtA41WxVL+uHfBOziouLV6C1d7BP+TK1GZwyaEHFx8XLW2DiP2nIEE6exM7OzJvBNBpatTL9HBZGYCAjRuDmRkjIq2Pj4siTB2dnZszgiy9YuJCrVwkLI1Om/43o2ZMiRWjWjAULaNKE+fNp25Zp0zh9mqVLcXV90yrc3fnlFzp2pF8/XF1p1y65y3d2Zu9eLl8md25y52bDBrp04fhx6tenZk3Gj6do0RT8MoQQQgjxkTMrATPeOhq+aVPsuwcCaPTZg8aObflB51/ocuTOoeOU4eqBg9eNFXOl7FzwyZF9xxNA65bVLb17mgjxXgQF8csvxMWh0fDNN3h54eNjZqjq1Zkxg+BgevUie3YaN37puV5P9uwcOMCAAcyaRUgIu3bh5cXq1RQq9L9BtWqxezeLF+Pvj709BQtSrx4REVSqxMqVFCny2plr1+bQIXr2ZOxYunQhSxYCApK7ahcXXFxMP3t5ceQIc+bQpw8bNlCqFO3bM3z4W1I/IYQQQohnzMsYLDO4vlsmt5yFygV+Nm7d7gXtC3zgnRD1peoE5Nahnmwb1X/RlZQUEqrHe0cPmPWXAa2L9yelPuQySyHMVrMmX35JYiKOjua/DPZUy5b83/9hNNKyJZs3v/RQp2PrVvz8uHqV9u2ZMAEPD86dw8uL7dufG1e0KAMHYm8PUKYMu3fj6Wka90rMJBUqEBPDrFl06UJCAo0bExlp5g60Wlq35swZevQAmDqVwoWZMAGDFCELIYQQ4p3edxeQD0XimfGfZNAAGsvs1fvO3hMV++6v3D+1avSnJTJoAY1lyW/2vvsr/wzpgijSXny8qlBBgXJ1VaACApQx2c1CX7V2rapXT4FydFSHD7/6PDZWNWmiQNnaqsWLVd26CpSVlZo7980xo6NVw4YKlF6vJk589XlioqpfX4HKl099+qlpK6dPm7+JJKdOKX9/BQqUu7vavj21AYUQQoiPx8fZBVGjzHil/r8p4czUhlW7rr5uUIDGwrlAeR+fCu5F8+XOkdXV0c7a2lKvEmJjn0TfvXH1ysWzR/bt2rH7+I0YowK0Tj7fbVj3TTm7972HJB4eHgcPHgwKCgoLC3vfaxH/IefPU7Ysjx5hb090NF999c72g2/k6sq9e5Qvz549ZM/Orl3kyvXSEIOBbt349Vd0OiZP5tgxJk1Co2HQIIYMeV1Mg4F9+1i7lmHDUIrOnZk0CYsXTqWfPKFqVfbswdOTrFlZuZK8edm5k6xZU7b8Eydo2pTatRk4EAcHgJUrCQnh4kWAOnX46Sfy5ElZTCGEEOIjFBwcPGfOnNDQ0FZPXxf/GLzvDPCDEnNyVofSTtoUva6mdSjWcvKBB6k4DEhzcgIm0sv8+aabuPR6BSokxMxzsPHjTUdapUopUMWKqXv3Xjtw4EAFSqNRP/+sxo9XWq0C1a6dio9/ZeikSQpUYKCaOVPZ2ChQfn7q/sv3D16/rnLnVqAaNFDe3gpUyZKvjnqHnTuVTqdAZc2qQkNNv4OYGDVypLK3Nx3cDR6sYmJSFlYIIYT42HycJ2Dp0DUiIWr71IFftG3V5rO+P8zbc/2tzRI/MDZFW0/ffyZy1qBWlfM76t+eh2n0GfJ6t/h6RsTpQ3M+L+v4QfcYESKNNGtGcDCxseTNi7U1EybQpQtGY4rjhITQowdxcVy5QuHCnDxJ/frP9Zt/5rvv+OknNBqWLSMkhMWLsbVl5kyCgnjy5MWhlSuTKRNr1jBuHPPmkSULGzdSvjxnzjw/KksW1q4lY0aWLaNMGYoU4dgxGjRI2b1eXl7s24ePD9evExxMhQrs3YuNDf36mQ7HYmIYOpRixVi6NMW/GyGEEEL8t6WiBFE9PPbHD8MnL952rerMM7/WsgTgyf7Rtet8vfVmYlJUjdbZ88u5K3+o9e/rD5jw4OLR/QePnTl/6drNu/ejn8QnYmFjZ29v75gpV4HChYuUKF0ij9OH2XRDShBFOnr8mAoV+PtvUxoUHU2LFsyejT6FnXaMRho3ZtkycuXCYODaNerVY+lSdLpXx544gZubqc3gvn3UqcOtW9SowfLl2D5/w/vFi9Spw8mTuLryyy8MG8bRo7i4sHQplSs/H3DLFmrVIj6eBQvo04crV2jWjHnz0KbkD5VSLF5M795cuYJWS8uWjB1rape/fTshIRw+DFC7Nj//TO7cKfv1CCGEEB8DKUFMCePdzX3ck+7M0rq0WxOX9Gnckf8rb/PyWZDGsdpPfyam1ZGdeDcpQRTpKz5excUppdT27SpDBgWqXj0Vm/ImNDExqmJFBapECeXoqEC1bWuK/FanT6ts2RQoX1/16NGLzx49UrVrm+obp083tfqwtFS///5SkMWLVZUq6uJFdeSIafIePVK8A6XUw4eqd29lYaFAubiofftMnycmql9+URkzKlD29mrcOJUofwaFEEKIF0kJYgrEbB/aefzhaAUarZVzRtukpCs24tdfDzxRGn3uBuM2HDm6449+VVy0qIdbh3+/7rH5OaIQ4oNiYYGlJYCvL5s34+LCihU0bPhKUeC72NgQFkbevBw/TunS2Nry++/UqMGtW2//XuHCbNlCjhxERBAQwOPn/7o4OLB8Od26ERdHp06UKcOgQcTH07YtISHPV0s2asTWreTJQ6lSLF+OtTUTJzJhQsp2AGTIwJgxHDmCnx9373LqlOlznY7PPuPUKYKDiY6mVy88PNi7N8XxhRBCCPEfY14CFr3pt3kXExW6XA1/PXzrzNgqFgDx+1auvW5A61Tv+yk9/UqV9G4+YvGkhs5ajLdWLNjyd5quWwjxQfD0ZONG08tXgYFER6fs625urF5Nxoxs387UqeTOTUQEHh7s3//2792/z9q1ph6GtWrx6NFzz3Q6fvqJcePQavnuO1xcmD4dCwsmTqRJE2JiXo1WpQozZ6LR0Ls3q1albAdJihZlwwauXSM4+OX9zZ7NmjXkycORI1SqRJcuL2aMQgghhPjImJWAJZ6K3PvAiMam8lfjOpa01/zv081brhrQ2FdtHOCa9JnGtW5wbWctxocH955JTLNFCyE+IO7uhIaSNStbtxIQ8GIylAxFi7JlC6NH07w5+/dTpQpXr+Lry5w5b/rG/v1UrEiTJsyfT7587NpFtWrcu/fioC+/JCyM4sXJlYsOHQgPx9WVpUvx8uLKlVdjNm/OkCEYDLRowZEjKdvBU9myvf7zgABOnmTwYHQ6pk6laFGWLTNzCiGEEEL825mVgBluRt0ygDaHp0e2pwHUvf17zhrAonTlSs96AloXKJxbB8YbUTdT3ilNCPEvsGcPtWqRLRu5c7NjB9WqcfduyiKULk2fPuh0uLqyYQMdOhAbS+vW9O//2haLhQtTpgynT9OyJXPnkj8/Bw5Qo8Yr09apw/Hj1K8P4ONDZCSFC3PkCBUrcuDAq2F79TKVCwYGcvVqynbwJlu20KABkZHY2DBkCPv2Ub48167RsCF166bZLEIIIYT4FzGvBNFoNAIaa5vnOm7EHYg8GK/Q5apQIftzUZVSgIqPi5MLn4X4T8qbl9y5OXAAJyfy5TMlQ7dvmxnN0pLp05kyBb2eUaOoW5eHD18a4uDAli1UqMC5czRrxu+/U6AAhw5RowZ37rw5coEC7NpF1apERVGlCi/2CN20CUdHsmY1PQ8K4u+0KJvesIGwMHx8+Owz7t+ndGkiI5kyBQcHVq2iZEkmTDCnjb8QQggh/r3MSsC0rm6uWjBG/XX56S1fCYc2b7trROvsXbnkc83Z4/86f9kAGgdHB7kpS4j/pMyZ2b6dAgU4cgQbGwoX5vBhKlfm2jXzY3buzKZNplfLKlR46S4vwMmJ9evx8uLyZZo25bffKFbMNO2NG28O6+zMhg189hl//03DhgwZ8vSJmxs6HaNH07o1BQty8CDNmmEwmL+DJEOGMHAgej1TplC0qKnTfefOnD5Nw4Y8eEDPnlSuzMmTqZ1ICCGEEP8WZiVgFsU8S9tqMN5fO2fl7aSDrcdbZi2+aEBjX7mW73P38jzcvGTDPSPo8xfOn8JbgoQQ/xq5chERQfHinDiB0UixYpw+ja8vFy6YGbBRI1q0YPJkSpTgzBm8vNi06aUhjo5s2EC1aly/TtOmprGnTpmOsF7v2jUKFcJgYMwYNBqGDqVDB+LjgZIlGTMGpejenR9/JGNGVq/m66/NXP5TVlZ89x0nTlCjBjdv0rIln3zC6dNky8aSJSxYQJYs7NxJ2bIMGUJCQmqnE0IIIcSHz7wSRMeazQOdtRhvL/4ssOOY2fNnDmzeccZlAxr7ynWqmV4AUzGXw8e27T7nuhH0hat+kuNfdxWzECL5smQhPJySJfnzT+LjcXfn4kWqVuXcOXOi2dsTFUVwML160aAB9+5RqxajRr00ys6OFSuoXp2bN2nalOnTKVmS06epVu0NOVhCArdvM20aYWHMmIGdHTNmUL16UsFkjx60bk10NL17M3culpb88AO//mrO8l9SoAAbNjBzJq6ubNuGu7tpK02bcuoUnTsTH8/QoaYkTQghhBD/cWbeH5Zw6sdPHF8qKtRYFO27M0YppZTh3PjKthrTc61z7emXDGl2dZl4F7mIWbw3t26pMmUUqHz5VLlyClS2bOrUqRTHSUxU3bsrUBqN6tdPjRihtFoFqmVL9eTJS2NjYlStWgrU3Lnq3j3l6alAFSqkrlx5XeQjR1Tu3ApUjhxq/nyVM6cCVaBA0iKjo1Xx4gpUs2ZqxgwFysJCbdxoxi/i9e7cUe3aKY1Ggbp69dnn27erHDlMi9qzJ82mE0IIIT5wchFzSuiL9Fiw5NuqWS2eJmHaDB69fu5fySYprTPExiYoBWjsSnSaMaVdLjn/EuIjkCkTmzfj6cmFC3TtaioHrFWL69dTFkenY+JEpkxBp2PUKA4dYvZs7OyYO5fq1V96zcvGhpUr2b2bFi3ImJENGyhXjrNn8fXl4sVXIpcqxf79+Ppy9SodOzJkCO7unDuHtzdbt9rZsWwZjo4sWMDjx/TrR0ICjRpx/HiqfitPubgwYwYREcybR/bszz739eXQIapX5+pVKldm2rS0mU4IIYQQHyDz8yJt5urfbTpzeuv8X8aM+H7MlCV7Tu8cWdXZlI9pdPZZC7p/0iTkx9VH9vwalF3SLyE+Fs7ObN3K6tUEB7N6NV5eXLpE3brmdBXs3JlVq3B0ZOFCJk0iLIxcudi1i/LlOXjw+YF6PRUqkHTonpSDVajAX39RterrXkNzdWXjRlO5YceOBARQvz737uHnx6hRBQuo335Do6FPH5o2pXlzHj2iXj1u3TL3F/IKb29atHjNotato18/4uLo3JkuXZLeTRNCCCHEf877PoITaU9KEMUH5M4dVaiQAhUYqBISzIlw5IjKlUuByp9fnT2rfHwUKDs7FRb2li/dv68qVFCg8uZVN268boTRqIYNM5UD9u6t+vc3/RwYqG7f7ttXgZo5U8XEqIoVFShvbxUba87yk+nyZXXrllJKzZ2rbG0VKA8PdelSOs4ohBBCvHdSgiiEEGnNxYW1a8mcmTVr6NrVnAilSrFnDxUqEBWFtTWbN9O+PX//TaNGTJjwpi/Z2rJgARUqcPHiG47fNBq+/ZZFi7Cz49AhRoxgwwbc3FizBnf3UXV3nD5N27bY2LBsGblysXMnrVuj0uc+w7g4ihWjcGFWrODTT9m5k7x5OXAAT0+2bk2XGYUQQgjxvkgCJoRIZ/nysXIltrZMm8bYseZESGrWfvUqOXNiaclvvzF+PErRsyddupCY+Oo3mjWjWDF69qRgQfbto1mz146CRo24coXVqwFq1GD/fry9uXpVU61q4T+GJN2RnCULa9aYCiG/+86c5b+TlRWBgdy/T/369O9PiRLs24efH7dvJ9VFpsukQgghhHgvJAETQqQzo5HRo6leHa2Wvn2ZN8+cIDodzs7P/mNICAsWYGPD1KnUqcOjRy8NL16cmBjatKF3bzJnZvVqvvjiDZEzZsTa2vRzjhxs3crgwRiNDB2Kv39SY/jixZk/H72eoUOZM8ec5b/T/PmMH49ez6hRVK9OfDxr19KvHwYD/fsTHMyTJ+kyrxBCCCH+YZKACSHSWVwcGzeyciXVq6MUHTqwa1cahG3cmPBwMmdm/Xp8fbly5fmHw4bRqxfx8YSEMHw4trZMnZq84ze9niFDWL8eNzc2bcLTkx07gFq1GDvWtPz0KAvUaAgJpraXXgAAIABJREFUITycbNnYvp3SpdmyhZEj+eMP7OyYMwdvby5dSvt5hRBCCPEPkwRMCJHObGxYsAC9nk2b8PMjNpZ69Th7NrVht21j4ULWrKFIEY4epWJFDh16+lCjYexYunUjLo5vvmH0aNPx29y5yYj87bcMHcoffySVI1K16o0+Yyb/rDp1ols34uNp3Jg5c9LlfTAfHw4epFo1bt8mIIAffqBZM3btIl8+Dh3C05PNm9N+UiGEEEL8kyQBE0KkP39/xoxBKSIi8PXl7l0CA1Pb2X3GDH78kRYtmDOHKlWIiqJyZdPbXP8zfjx16nDrFpMmMXQoStGxIzt3vivysWPs2EG9enz2WVI54oSxiV9003QKjh0/nvr1uXuX4GCqVuXEiVTt4LXc3Niwga+/xmCgXz8OHKBUKfbtw9+fO3cICGDixLSfVAghhBD/GEnAhBD/iJAQunYlNpaTJyldmvPnqVuXmBjzA44cibs7f/5JQADDhtGqFdHRBAXx889Ph+h0zJtHyZKcOsWOHXzxBbGxBAVx5sxbIy9YQMeOREcTHMyFCyxa1MZpuT3Rc5dY//rVhaVLmTULNze2baNMGUJCePzY/E28lk7H8OGsW2dqyAE4O7N6Nf37k5hISAgeHixcmNQiRAghhBD/MpKACSH+KRMnUrs2d+/y5Ak5c7J3L23bmp9GZM1KRAS1a5t6BdapY2qe0a0bISFPwzo4EBaGqyvr11OihOn8KiAgqbnGG1hbM20as2Zha0toKMOHF1k9NrTIcA3qy3E5d3Wc0bqV8fRpevRAKSZOpEgRZs82cxNvUbMmI0ZgZWX6jzodI0awaBFZs3LwIM2aUaQI06YRF5f2UwshhBAi/UgCJoT4p+h0zJlD0aKcPUu+fGTMyKJFDBhgfkA7O5Yv5/PPiYujRQtsbZkxA0tLJk6kSZOnx2tJbfCrVqVcOebNo2LFN18O9rzWrdmxg/z5OXiQgID6Q917ekQkYNF8Rs3bAa2d9NETJrBvHxUrEhVFmzZUr87p0+ZvJZkaNeKvv5g1i8KF+fNPOncmVy6GDOHBg3SfWgghhBBpwrwELObO5UuXLl9/EP/uoYbHNy9funT5xuPX3sEjhPi4ODmxahWZMnHgAIsXY2XFDz88XzSYYjodkyfzf/8H0K8fx46xZg1OTixdSrVqT8+5KlYkPBwPD2xsWLGCAgXYt4/mzTEY3hrc3Z39+6lfn0ePaN589IB7PsXuXSVHsw0d7ldtyL177u7s2sWsWbi6Eh5OqVL0709srPm7ebsnT5gwgUuXaN2akydZsYJy5bh1i6FDyZWLkBCiotJraiGEEEKkFbMSsLg1XQvnyZO/xpjj78yq1L2FbQvlyZP/k+EHJQMTQgD58nH0KIcPU60aM2ea+q8vX56qmN98w+zZWFoybhwWFuzdS8GC7NlDpUqcOvXS2EyZWLkSZ2dWraJPn3dFTsrlRo8mSxadnfWCjc5ZMxu2ULXo/tCNngO4fl2joXVrzpyhRw8MBkaNonhx1qxJ1W7eZO1aevbEw4Nhw3jwgLp12buXiAjq1OHxYyZOJF8+WrdOgwaTQgghhEg/6V2CqLG0tNSA4ca1G2//N81CiI9Hlizkzw/QogWDBmEw8Omn7N2bqpitWrF5M199hacnBQsSEUH58ly8iI8P27e/NLZIEcLCsLJi/HgmTHhXZI2GPn2IiqJWrWzZ2Bqhq1Ip/iZuUy/64e3NuXOAszMTJrBtGyVLcuECtWtTt27aX9tVuzaffsrjxwwaRO7c9O7N1av4+LByJQcOEBxMYiKhoRQtSt267N+fxrMLIYQQIk1oVLLusjFe371k45kY09CEfZO7/rzXmL3uwGGN8rwthTPGRm37dcTsw49xDA67Obue1VvGijTj4eFx8ODBoKCgsLCw970WId5FKdq2ZfZssmZl925y5UqzyDExtGrFsmVYWTFzJi1aPP/wyRNWrjR9tmgRDRumbMmbwqJLDW/mdmANWbKwYQMlSyY9Skxk4kSGDOHxY+zsGDSIXr3Q69NsT8C2bYwYwfr1AJaWtGpF374UKQJw8iQ//MC8eSQkoNGYbhIrXjwtZxdCCCHSUHBw8Jw5c0JDQ1u1avW+1/IPUskSt+mzrKk4LNPY+I4/b0jeVCLVypYtCwQFBb3vhQiRPHFxqlo1BSpPHnXsWFpGNhrV4MEKlEajBg9++vHBg8rKSnXvrr7/XoGysVE7d6Y8+OPHqkYNBSpjRhUZ+fyTq1dV06YKFCh3d3X4cGr38aqDB1WzZkqnU6C0WjVy5LNHly6pkBBlZ6dAWVurCROU0Zj2CxBCCCFSLynvCg0Nfd8L+Uf9A10QNVrnCn3+r21eabgohHitpHLBChX46y+8vdPyDSqNhr59GT8erZahQ+nQgYQEwM4OrZaffsLKii++4MkTgoL488+URD5/nlKlqFiRhg25fx8/vyerw2fPNl0unT07CxawYQN583LoEOXKMXgw8cnoWpR87u7Mn8+ZM3TpgqXlC+03cuVi/Hj++otOnYiNJSSEwEBu3EjL2YUQQghhtmSWIKq7J7cduBL3vxLEiO8bDd9uyNV8/C9tC+reHl9nm6lAyRJ5nCxSv1aRTFKCKP5lAgNZu5bgYIDQUNM9xP36pUHkgQMZOZKxY8mVi5YtiYnBz4/Fi8mQYckSmjYFWLyY6dNZs4ZChdi9m4wZkxf5yBHKlSMhgc6diYtj1qzp+s86Jf6SMSMjRtCpE1otwJMnDB3KmDEYDBQvzowZlC+fBtt6icGA7g1/icPC6NSJO3dwdWX6dIKC0n52IYQQwmxSgphssYuaWIO+2DcHEtL4QE6kBSlBFP8yBw6YCuYGDVIjRyqtVoHq2FHFx6c28owZSqNRoHr0UJGRys1NgSpZUl2+rJT67jsFyt5eRUYqd3cFys9PJST/r9rGjcreXoGqX19163YX5wDN2qSyw0qV1JEjzwbu3KmKFDHVCnburKKjU7ut5Fi2TM2ereLj1Y0bqnZtUz1kcLB6/PifmF0IIYRIDilBTDZdwdrde/bs0dors5QVCiFSrWxZ5sxBq+W777hwgblzsbVl+nQCA1N7wXC7dixciI2NqTPGxo0UKcKxY1SsyKFD335Lq1ZER9O8OTNnkj07GzfSu3eyg9eowebNuLgQFsaJE85DQ9aogBWaoJxOjyMj8fAgJITHjwG8vDh0iH790GiYOpXSpdm6NVXbSo7gYFq3pmJF7t5l5UqmTMHWltBQSpVi1650n10IIYQQb/S+M0CR9uQETPwrLVumbG1N51CbN6ssWRSoAgXU6dOpjbxrl8qcWYEqVUodO6aqVDGdfK1Z8+SJqlRJgfL0VDt2KBsbBerXX1MS/PhxlT27KcTw4UqjeUiG7h47k9pj5Mql1qx5NvbQIdNRm0ajOndO38OolStVvnymFiPjxyujUZ04ocqUUaD0ejV4sEpMTMfZhRBCiOSQEzCzJT66cmznxpWL5s6a8duifXdUUl6XFpGFEB+N+vUJDydzZjZu5MsvWbmSsmU5dw4vL7ZsSVXkSpWIjKRIEY4exd+fkSP59FOio6lXz3rWlGXLyJ2b/fuZN48pUwC6d0/JhMWLs307+fOzfz9z5zJ+fAZ9zMQD3nuajPHw4PJlatdm927T2DJl2LOHkSOxsGDqVEqVYtOmVO3sLerU4dgxevQgNpaePfHzw8GB3bvp1w+jkaFD8fXl/Pn0ml0IIYQQb5K6BEw9OvZH//ols7jmLuVTs17TVm07fDZk+WUDJGzv7V68Rqcxq8/9nUYLFUL891WowI4dFCjA0aO0a8e2bQQFce8eNWvyyy+pipwvHzt24OtLVBQ1azJgAIMHk5jIZ5+5fR+ycoVycyM+nuBg+vYlIYEmTZIuWE5J8FKlOHmSR49YtAgrK4/5ffcUazd2tLFaNXLnfjbWwoJ+/di/H09PLl6kZk1at+b+/VRt7k1sbZkwgTVryJqVzZspWZJZsxg5kvXryZ6dyEjKliU0NF2mFkIIIcQbmX94Fn9+bpvCtpoXw5k6c8Rv6ZZTB2gcSrSfdy4uzQ7sRHJICaL4d7t1SwUEqObNlXruIq+kRhqG1N0nGBurWrVSOp3atk0ppX77TVlYKFCtW6s4098pg0HVratAFS2qHjxISfAHD9TEierWLaWUWrPGVE7ZtOmbCg0TEtTIkcrKSoHKmlWFhaVqZ29386aqV8/0W/zpJ6WUun9fNW9u+qRJE3XvXjrOLoQQQryJlCCmKG97tG1AUPvZZ2IUGr1LMf82Pfs1KfGs1bzWNX8hV0sN6vHxme3q9Nn0QAoShRDJlCkTa9bwxx8AGg1DhjB9OhYWTJxInTo8emR+ZCsrQkN5+JDKlQHat2f1ajJkYPZsAgKSGn5otcydS4kSnDpFixYYDMkO7uhI9+5kygQQEMD69Tg6snAhxYuzatWrw/V6+vXjwAHKl+f6dRo0oH9/jEbzN/cWmTOzfDnTp5Mzp6nPvpMTf/zBtGnY27NoEe7urFuXLlMLIYQQ4iVmJmAJR37s+dOJOKWxyNNo0p5zx9b9/uPQpkWfXUSjK9Fz4+ndk5vmt9SouDO/9hx9IE2vIBVCfFQ6dCA8nEyZWLsWX18uX05VNDu7Zz/7+bF1K1mzEh6OtzdnzgAODqxcaZrt22/NncXHhx078PTk8mXq1qVJk6eXJYeE0KCB6f2r4sXZtYtRo9DrGTWKoKBUJZhv16EDly/TsuWzTzp25OBBypfn0iUCAvjkEyIj02t2IYQQQiQxLwGL3TF9xrF4pbEs9dXC2V3LOr0uisbJ/bPZSwdXsNWohFOzftsel7qFCiE+akn5TMGCHD1KpUrs359mkd3d2b2bEiU4eZLy5Vm8GMiThyVLsLRk5EjmzDE3cokSrFrFlClkyMDixRQrxoQJGAzbtxMWRqlSjBtnukP5q6/YvJnMmVm1inLlktLAf0jBguzYwdixuLqybRteXtSrx7Fj/9wChBBCiI+NWQlY4pmt26MMaKyrdevmafuWgVYlP+vu76DBeHNnxOlEM5cohBB88QUjRxIeTtWqREXxySesWZM2kU+eZPBgfv+d5s159IgmTR63D/lusCFTJlPjj06dnrUxTJlp08iShS1b2LaNxo15+JCePSlffsuPhzt3JiaG3r3x9OTgQQBfXyIjKV6cs2fx8mLz5rTZ3DsdPMicOfTowcWLjByJoyMrV1KmDE2bpqQNiRBCCCGSzawEzHDlr6sG0OX1KOuqeetIjWMp9/x6MEZduZY+7zYIIT4Kq1YxcyYNGzJ7Nu3a8fffBAXx229pE/n336lRg44dmTIFS8stM/8a/J2uTq3ERo3o2pXYWBo04MqVlEcuUAA7O+bP55NP+OQTli8nZ04OHnTyKzfFOmTtsthcuTh8mIoV6d+fuDjy5WP3blPfx1q1GDUqDTb3Tl9+Sfv2+Ppy5Qr9+nH+PP36YWnJokUUK0aXLk8LJ4UQQgiRNsxKwDQarQZAr9e9a6gyJCYqUEaDUfpwCCHMFh5OwYLs20flynz1FSNHkphIx470708qbx3s3p3GjXnwgFq1iIlh507/3KfLcvD8JX2HurcmTKB6dW7cICiImJgURq5alTNnTGdf3boxZAihofTrh1JMnFird/HjEzZ37YrBwKhReHpy+jT29ixbxuDBGAz070+XLiQkpGpz7zRyJLlysXs3JUvSsSMxMYwcyZ9/0rkzSjF1KgUL0r9/ejXKF0IIIT5CZiVg2izZsujAcOnkmXdc86UenTh+yQC6TFkyvzNZE0KIN8mfnx07KF+eixfx9sbbm5kzsbBg1Cjat09VmmJjw4IFDBiAwcCXXzJunNX2jQt9JjrycElE5l/rrVk431iwIIcO0bp1ynO97NlZtIgVK8iVi0OHqFaN+/fZsgVPTy5ccGhQ4+fbTbcuu1+oEMePM3Ag/K/v47x52NgwdSrVqnHrlvmbe6dKlThyhK5d0Wr57TcKFaJvX2xsmDKF48dp0oQnTxg1ity56d8/HRuECCGEEB8PsxIwfbEq3pm0qEfrps37622VhYnnZk/d8FihdargVUxv5hKFEAIgc2a2bKFePe7dw88PJydWrcLBgd9/p3ZtHj82P7JWy/ffs3w5jo788Qf+/vl/6TO9yXqg11q/sw36rZ77wMmJJUsYPtys+HXrcvw4PXui1TJ1KsHBrFjB+PFJPeB92+Q73OnnUSPVN988+0bz5uzcSc6c7NhBpUocP27+5t7JyYmff+bkSZo3Jy6OMWMoUIAJEyhcmIUL2buXmjV5/JhRoyhcmJ9/Jl6a2gohhBCpYF4XRBvf1i0K6DXqcfjXrYbuuPf6fydsvLX5m1aDt0crdNnqt6hqn5plCiEEYGvL0qV8/jmxsTRuzJUrpu6BGzdSrRo3b6YqeN26REZSpAinT+Pr2/gLty/qXErAovmObi7N/VaPOKrTMWgQCxeaFdzBgR9/ZO9eypfn9m1iYwkJ4cgRatbkwQObvt2+WletjMsL75kldWcsX54LF6hUibCwVG3unQoU4I8/OHAAf38ePODLL7l3D8DTk/XrCQ+nYkVu3KBbN/LnZ+zYVCW8QgghxMfMzHvAbLz7/9Aql15jfLBzWI3SVT8b/cemA5cfK8Dw5P6Nv07sWDiynXfpwNF7Hym0rgFDv/HPkKbLFkJ8rHQ6Jk9m6FAMBr76inLliIykUCH276dSpdR2cC9alD17aNCABw+YM2fs4tweJeMvkbvthUGVvqy4utEMpWjblgMHzI2flFTduUPevAD58rF+PXPnkjkzW7dSrhw7djw/PFs2tm0jOJjoaBo2ZMiQ1L7vlpwFrlvH1q0sXoyz87PPq1YlMpKwMEqX5upV+vQhVy6+/pobN9J3PUIIIcR/kDLb34cnBma3eHsXRLRO5QdsuWs0fxaRcmXLlgWCgoLe90KESE+rVqn1600/37mjvLwUKGdntWNHaiMbjWrDBnXvnlLq3Dnl6KhAraSOgp35g22IyZFDbd2a2klecOeOqlFDgbK0VFOnJn22fr1as8a0nJEjlVarQDVrpv7+O02nTrmICFWnjgLTeoOD1cmT73lJQggh/qVatWoFhIaGvu+F/KPMPAEDsC3dfcWBTWOCy7lZvi4L0+gcC9cZsHjftu8/cX5HliaEEClWuzY1a5p+dnFhwwbq1OHePWrWZOXKVEXWaPDzI2NGIH9+5s7Fx4f8Izpia+t1PvSwvY/F1YtVq9Khg6lILw3Mm0fp0nz5JfHxdO6c1P2wSRMCA+nVC4OBfv1YuhR7exYsoGpVTp5Mo3lTYsoUmjRhzx58fFi5koMHCQ7GaCQ0lBIlqFuXXbvew6qEEEKIfx3N/7N333FZVu8Dxz8PQxC34t4oJg4cOHCniYUzt6ZgpUKpgbbQ+hVQZqiVaMNAKxXNAieuVDTNhQNwYy5U3IqJAxXhuX5/eH8jTUvhUUyv94uXL7nvc59z3Y+vkstzznUk5ytarp3YGvPL6nVb9x47m3Ip3bZA0eJlnes1beXh0bxqoRwkeCq73Nzc4uPju3TpsuBh7xpR6rGSmcmwYXz7LdbWfPUVr71m4f7j4+nRg6SktHzF295ctindrWRJxo3D2zvHPTs7c/AgtWvz6qu89x7XrtG8+ffdl7weUDA9ndat+flnihdn1y66dCEpCSsrunfn//4PV1cLvNZ96tKF6GhMJjp0ICCA5s0BDh9m4kSmTjVq9DdrRkAAHTti0n92U0opdR+8vLxmzpwZERFxayrsaZHbU3DK8nQJonpKpaZKWpqEhIjJJCB+fmK23Prn4GD5+GM5c0ZeeEEgs0Ahv4Ybby3D8/SUpKScdZ6YKC4uAlKsmEyeLBUqCEi5ctsi9v7vtxIbKyJy7pwMHSr29gJiMknXrhIfb4GXux+pqfL++5I/v7H4sFkziY42PuCzZyUwUIoWNW45O0toqFy79ogCU0op9d+lSxCVUuo/Kz2dqlWpWZMXXzSOCJs0iZdftsxJxmYzn3/OBx/Qpw/ff4+Xl9Xl1Il7PVa8G+PoyLJl1KzJ2LFkZGS3/+rVjeIfKSkMG0b//ri7c/y42+D620bOad2a48dp1YrvvsPRka++4uhRAgLIm5f586lfHw8PNm+2wFv+s4IFGT2apCQ+/JBixdiwgc6dqV2bGTMoVoygII4eZcIEKlTgwAGGD8fZmUmTtGa9UkopdSdNwJRSTwRbW555hqQkWrTAxYUFC8iXjxkz6NyZK1dy2rmVFUuXUro0v/5K48YMGcIrr3D1qsfEjgc+j/byIi2NkSNp0ICtW7M7RIECzJ1LSAgijBlDpUp4e3P9evGhvX5xe3/I63LjBoMGMWwYZjMlShASwpEjBAZSsCAxMbi707w5v/6a0xf9V46OBAdz9CihoVSowJ49DBjAwoUA+fMzfDgHDzJjBq6uHD+Ovz81ahAV9dCLNyqllFL/IfexB+zm5omDQmNz+K+YedyHT/VvbJuzTtT90T1g6imVlkavXixZQr58REZSvDgdO3L2LA0asGQJJUrktP9Tp+jZkw0b0q3skz/7uUpSDF9+SZ48zJ69LG+3IUM4cgQbG4YM4ZNPyJ/tow+jom5ld7i707cvb7/NzZu0bz+t45zX38x7/TrbtuHmltX8/Hm++orQUFJTAZo1IziY557L6bvej5s3mT2b9ev56CNKlbrtlghLljByJHv2ALi7M368sW1MKaWU+pPuAbuH61E97XM8jH3PqOsPfT2lukX3gKmnV0aGDB4sIDY2MnWqHD4s1aoJSOXK8vvvFug/PX11NV+BdGx/7Dw7zS9AQKytZfr0tDQJDBRbWwGpVEmWLcvBKNu3S6VKArJli6xdK8WLC0i1atvnHw4Lk8zMuzxx/rwEBkrhwrdt0Mp1mZkyfbqULm1E1bat7NqV2zEppZR6nOgeMKWU+o+ztiYsjMBAMjIYPJjp09m4kSZNSEqiaVM2bcpp/7a2jRO+XdX4PVtu9o7uN/pn5998Z5GZyauv5p39fVAQW7fSqBFHjuDpSadOnDiRrVHq1CEhgdhYGjakZUs2baJWLfbvrzOgrk/pRVZ3+9/2rV1YSUkEBVGkiLFBq3lz4uNz9r7Zsn8/zs689BJ79uDtzcGDhIQYSyXr1cPXV49vVkop9VS7jwQszwuhO/c9qD3rfhjWpLiNUYnYZF24SEGtSqyUegRMJoKCmDABk4ngYL75hpUr8fQkJQUPD5YuzWH3Dg48F/vJKb9PrTCPOjP82fCXfBslXMrMx6BBTJpUpw4bNvD55+TLx+LFuLoye3a2hilcmMaNjd9XqcKmTXTtyqVLdO3K2LF/bbhsGb6+7NplPBQYyJEjjB5t1Mlo2pTQ0Ee9BSstjeRkZs+mbl0GDuSPPwgI4NAh/PwAwsOpWpWRI7l8+ZFGpZRSSj0uLD+pZr68d/aIFiX/TL7yPdNj3K8nb1p+IHUPugRRKRGRH3+UPHmkdWsRkZs3ZdAgY2nilCkW6f5m5Lyfe8/Nk0dAyhe5vNLkISaTfPbZrbtJSeLpaSy969lTzp3L8XiZmfLBB0aF/YEDJT391uWePQXEykq6dZPt27OaX74sfn5G844dLRHAg0hOFj8/ufXhODjIBx/I5csiIvv2GQGDlC0rYWGSkfFIA1NKKfVYeTqXIFo4AbuRvPKTLlUd/pd75SnT+t05v1+17Bjq32gCppQhOVlSU43fm80SGGicnxUYaKkRdu2Sxo0FpFTBq2JlJSABAX/ejYyUIkUEpEQJmT8/ZyMlJcmwYfLFF+LgYGyounhRRM6fl+HDJW9e481efFHi4rIeio6WYsUEpGRJWb48ZwE8uKNHxcvLSAIdHSU0VG7eFBHZuFGaNTPSMBcXiYx81IEppZR6TGgCljOZKVvDBtYvYnUr+TJZFan36rdbU+62W1w9ZJqAKXVPX35ppEnDht29nMWDy8iQKVNk7lyRWbPExkZA3n33z7tHjkibNllTYRcuZHeYr78WkPz55bPPpFw5AalR488ToG8dhVywYFa5i82bjeeSk6VlSyM98/P7c+bs0dm4UZo0MQJ7+23jotksP/5olBq5I2CllFJPD03Asu/q/rkBbcrm+d/El0OVLqNXHLthka7Vg9METKl/Mm+eMWHUtaukpVm4859/Niohvv76nwme2SxhYZIvn4BUqCCrVmWr5+vXxdvbSKTefVfq1jXmldav/7PJmTPyzjuSP7+xKHHlSuN6RoYEBoq1tYA0biyHD+fwJR+Y2SxRUdK8udzxN+z16/LZZ8Yk4a3pOy2TqJRST5WnMwHLcRXEjFNrP+tVv36PsatPpAsmm5LNh/+4dfv89z3K58lp10opZWk//UTZsixbRuHCzJ+PpycXL1qm59RU4wDoyEjs7Zk8OW2QH2YzYDLh48POnTRvzrFjtG2Lry9Xrz5g/3Z2TJ/OF19gZcW4cdSti6cn58/Tti0//XSrSYkSjBtHUhKjRlGrVtbZXNbWBAWxahXlyrF5M/XqERlpmZe+TyYTPXqwbh13nPJiZ8dbb3HoEIGBFCjAggXUqUOvXhw48EjDU0oppR6lnCRgkrpj2pBmtZ97N+r3KwJWBWv3n7Ru95oJfWrk14qHSqnHz6lT9O1LixacOMH69ZQvz9q1NG9OcrIFOjebOXeO2bP55ht+/nmXfcMiP3zRuszvhxNv3Lrv5MSvvxISgq0t4eG4urJu3YOPMmIEc+fi4MC0ady8yaBBXL/OSy8RFPRnE0dHxoxhxw5q1brt0Vat2L6dTp1ITaV3b7y9SUvLwftaSFwcNjYEBXHoEAEB5MlDVBQ1a+Lrm90i/koppdTjLbsJ2PWkxR96ujZ+dfKWlEzBZF/JM3DRjq0Rw9wdrS0an1JKWUzp0rz1Funp9O/PkiXExuLqyp49uLuzc2dOOy9ShN9+o0wZVq7kk0+KfD26qOmPNWdc6tQjxJisAAAgAElEQVTK/PadQ7cKwdvYEBBAXBz16nH4MG3aMHIkN2484EBdurB6NSVKEBNDfDwff2wU3B88mJs3//nRYsVYuJDQUOzsiIigUSN2787m61rE5s00aEDVqnz5JQ4OhISwfz8+PogQHo6TE76+nDmTmxEqpZRSFpeNBCzz7MZJ/RrU7fLx8mM3BJO1o/vQaZu3LwlqX8nO8vEppZQlffYZoaGYTAQEEBjIypU0a8bJk7RuzYYNOe28Rg3Wr8fJiS1byn09au+cxL6Fll4xO7z+WZXnK+47lmgsOqxVi82bCQxEhLFjadCAhIQHHKhxYzZuxNmZ+HiuXSMyEgcHpk6lQwdSU+/10JQpfP45mZn4+7NxI9WqsWcPjRoxcWIOXjlnqlenVSvOnsXPj4oVCQrC3p6wMHbtwsuLjIysQ8Pu/VpKKaXUf80D7RgzX9o9y79ZiT+P+Mrv0vvztaf0iK/HjBbhUOpf/FmHo0sXOX9eunQREHt7+eEHC3R+9Kg4OwtI9epy5Mjil6NKm06BFDRdChuy3WzOarhhg9HQzk4+/fTBizKeOycffSRHjoiIxMZKyZICUquWHD161+YlSghIkyZGEY7Ll8XLyyhC2L9/Vrn+Ry862ijlf+vQsCFD5OBBEZFdu7IODStWTEJCLF8zRSmlVO56Ootw3H8CduPoLx93csr75xFf5dqOmn9A/zJ8HGkCptS/27RJHB2NsoCnTsmwYcZP+kOHWqBS+6lTUquWgFSpInv2nFmb2K3I6lvddyy97eqx8382vHpVhg41Tsrq0kWuXMnBoIcPi4uLgJQuLdu2/f3+unVSvryAFCoks2cbF6dPN6omliwpkycb53TlirVrpWNH46OwtpZ33jGur1snLVpknd381VfGmc5KKaWeAJqA3VPm+S2TX65b+H9HfFkXdRs8Je6C+d8fVLlCEzCl7suePVKxooB4eoqIzJxpTIs1ayYnT+a08/PnpWFDAXnlFRGRzMxZA1cVNV0AWVPkRZk+/a9tly+XokUFpH59OX48B4NeuCCtWwtIvnyycOHf71+8KH36GMmMl5eRyfz+uzRvblysXl0WLMhBADm2Z4+88orkySPu7rddX7ZM3NyMIAsWlKFDtWC9Uko9CZ7OBMwkt/aG/4P01W84v/D1sZsCYMrr1HHkmDefK2f7YCsdrRyruz9TTIsjPhJubm7x8fFdunRZsGBBbsei1OPt5Elee42WLXn7bYCEBLp148gRypRh7lzc3XPU+bVrRETwwgtUqHDrwpktR+N8wz23f2pC6NiRyZMpV+7WrUOH6NiRffsoU4boaNzcsjvosWOMGUNYGNbWfPEFfn5/bzJjBkOGcPUqlSrx4480aQIQE8OIEUZNDnd3xo+nefPsxpBjqanY2uLgcNtFERYuZMIEfvvNuNKyJa+/Trdu5NFjT5RS6r/Jy8tr5syZERER/e84qOTJ9u852vWonvY5Hsa+Z9T1h55Nqlt0Bkyp7Dt3Tp57ztiYFR5u+f7NZpk+3ZjwKlRIwsLkf9vCUlLk2WeN6atsTkP98ouxlvGDD4zFfH37yqlTf2+4Z4+4ugpInjwSE2NcTE+XsDApVco4FrlnT2Mv1mNi61YJD5fUVNm3TwICjI8QpEQJCQjIhdOllVJK5dzTOQOW44OYlVLqSeLoyC+/EBDAjRv4+ODtzbVrluzfbKZBA3bvpls3UlPx9b3con3ajgNA0aIsX86AAVy9Steufz3Z675VrmxUml++nG++wcGB2bNxcWHy5FtHQv+pRg02b8bPD7OZS5eMi7a2+Phw8CAhIeTPT1QULi74+nL2bI7f2hLeegsfH8qXZ/JkBg3ixAmmT6duXc6eZexYqlbFw4OoKDIzcztQpZRS6h/dxxLEjO3fv/tdwr+cLvNvbOsNHPdqXZucdaLujy5BVMoCZs9m0CDS0nBzY968P5cR5tSnn/Leezz/PN9+y6ZNmf5vlj8Xj8kUNnBLp7COWFkBEyfy5puYzQwaxDffYPtAK74PHcLTkwMHqFyZH37gyy+ZOxegfn2+/ZaGDe9ofv069ndb43DiBB99xHffkZlJkSIEBODvf/eWj8zWrYwcyerVAFZWeHri54eHB/HxhIczc6ZxrnTZsgwaxNChFC+em9EqpZS6H7oEUT0hdAmiUtlnNkvt2lKnjhw4IAkJUrmygBQvLqtXW6b/deuMxXP58smECXL6tGeZ7beW0r3lvDAj1SiDGBUlDg4C4uEhFy8+4BBnzkijRgLi6CjLlkl0tFSoICA2NuLnJ5cu3X9Pe/dmFYIvX17Cwh68Vr6l7dghgwYZ1VJAXFzkm2/kxg05d07GjhUnJ+O6nZ0MGCBnz+ZytEoppf6ZLkFUSikFtrbs2EHjxpw7x9ateHhw7hzt2jF2rAU6b96cxES8vLh6lREj8PRcvCBjwqA9eUj//EDnTuW3pyaeBHr0YPVqSpY0Too+cuRBhihRgtWr6dSJ8+fx9OSnn1i7loAARJg0ierVmTHjH56OjqZLF379FcDFhchIli+nTh2Sk/H1pXFjli/PwevnmKsrU6aQnMynn1K+PImJDBnCN9/g6Mi773LgAEuX0qkTGRlMn07t2ixZkpvRKqWUUn+nCZhSSv2FycTatXTtyoULeHoydSrLlhEQQGYmI0fi5WWBLWElSjBjBkuWUKECCQlWTd2HF4tYE5Fc0iZl2aVmDV1vJEbuAho3Zts26tZlzx4aNmTdugcZIl8+5s9n3DgcHPjxR155hZAQtm3D3Z2TJxkwgE6dOHr0ro+uWkV0NG3a0KULv/8O0K4d8fH88APly7NtGy+8QKNGLFzIvy5gf3iKFWPkSA4fJjKSV1/F09O4fmtpYnQ0+/fTujVnztCpE6+/bqxOVEoppR4LuT0FpyxPlyAqlVNms4SEiJWVUUgwLU1++kny5ROQevXkyBHLjHLpkgwbZoxSu/bxuNP1C+wHKUjqojdX/9mkQwdjTd2sWQ8+xKFD0q+fTJpkfJuZmVWD0cFBAgPlxo07nrh2TcaMkYIFBcTWVoYNk3PnjFtpaTJ+vJQsaSzzq11bZs+WjIxsvv1D9ccfcv26hIaKnZ2AVK4s69fndkxKKaX+RpcgKqWUAsBkIiCABQsoWJDZs2nWjCZN2LABJycSEmjcmF27LDBKgQJ8+SXr1lGjBqdOla1iv/ZY5Reddl6iYLcvmh8dMhazuUABFi5k2DBu3KB/f4KCHnDeycmJmTN54w3jWysrvL3ZswcvL9LSCA6mYUM2bvzrE/b2jBrF4cP4+SHCV19RuTJBQVy/Tt68vP02R48SFkb58uzaRd++ODszcSI3bljg87CUS5eoVIkKFahShbg46tYlKYlnn2XkSG7msKCUUkoplWOagCml1D106sS6dVSuTEICTZvi5MTWrbRty5kztGnDjh2WGaVpU3buJDmZQoXyF7aZe8D14y7b2plWFps8mt69SUuztubLL/niC6ysCA7mlVdyvAqyVClmzGDZMpyc2LmTFi147TVSU//apFgxJk5k+3Y8PblyheBgXF05cwbAzg4fHw4dYvp0qlUjKYnhw6lWjYkTLVyxP9vy5qVePc6epXNnpkwxdsCZzYwdS/PmHDiQ2/EppZR6umkCppRS9+bqypYteHhgMmE2U7QoS5bw4oucP8+zz7J1q2VGsbb+s8S7lRX/t6DB4uW2+QvbMGcOzZqRnAyMGMG8eeTLx/TpVKnCV1/lYNJp927KlWP+fDZs4L33sLEhLIznn/97/lSzJkuXsnw5tWuTlMS5c1m3bG3x9iYxkchIatTg2DGGD6dSJYKC7kjlcoGtLatXExqKrS0TJ9K0Kf37s3Il5cuzZQt16zJxYi5HqJRS6mmmCZhSSv0jR0dWrLg1QwWQJw8//0zXrly8SLt2bN78UAb18GDLFp55hu3bcXe/lel17sy6dTRowKlTvPEG1aoxZUq21tSlp3P+POHh1KuHqysJCTg5sXkzL7981wWO7dqxfTunTlGr1p23rKzo2ZPdu4mOpmFDzp4lOJgqVQgK4o8/svHaFmMy4e/Pxo04O7NnD40asWsXu3bRvz9paQwfTvv2nDqVmxEqpZR6amkCppRSD+hWDtatGxcv8vzzxMZafog5cxgyhO++o3VrTp6kZcurP0QC9eqxdSsrV1K/PseO4eODszPh4WRkPEjn9euzaxdt2nD6NH368M47hIdTuDCRkQQG3vUJKyscHe+8aDazbx+AyUSnTmzezJIlNG1KSgrBwVSuTHAwV69m5+0txc2Nbdt46SWuXWP4cIYNY+pUIiMpWpRly6hbl0WLcjM8pZRSTydNwJRS6sHZ2hIZSb9+pKbywgts2mTh/tetIyaG9u0ZMYKhQ7+4PqTgqz2CW68RswBt27JtG9HRuLpy9Ci+vtSuzYwZZGbed//OzsTEEBZG4cIsXUqXLgwdio0No0cTEXGffYSE4OJCkybGWVsmE+3bs2EDq1fz3HOkphIURPXqzJqVmwXrCxZk1ix++IF8+Zg5k+XL6dmThARatzY2iXl753KWqJRS6mmjCZhSSj24GTN45RVCQ+nfn9RUPDxYs8aS/Y8bh7c3ly7RtSvly1fw9TQhQWue7VVx89Xz1/jfpFNCApGRODuzbx8DBlCnDlFR953tmEz4+JCYSK9eXL3K+PG89RYiDBp0n+/SvDnFixMbS8eONGiQdTJY69bExLBuHQ0bcvw4/fvTtOnDWqp5n15+mYQEJk3i+ecBKlQgJoZx47CzIyKC+vWZPv3xKuSolFLqCaYJmFJKPbioKCIi8PDgs8+MOZSOHfn1V4v1b2fHtGmEhCDCyJE9Mn5a8kFsIdOlOcfdW1RK3rUm5VarW1uw9uxh+nScnNizh169qFuXqKj7HqhUKX7+mREjSE/n55/x9yc9nR49OHjwXx9t2ZKkJEJDKVuWuDhefBFX16yJuObN2byZyEgqVCA2liZN6NXrXoc/PwrOzrzxBnZ2xrdWVrzzDps3U6sW+/fz8stUqEBgoG4MU0op9dBpAqaUUg9uyhRq1mT7dlq3ZvRoXn7ZyMFWrbLYELfOIouMJF8+vvvu+dUBW2fsdbY9knC1Wt3WRfp1vvxnOfU/CxKGhVGmDDt30qsXTZoQE3PfY40fz/DhvPQSX3xB586kpNCpExcv/utz+fLh78+BA0yaRLly7N7NgAG4urJzp/EGPXuSmEhgIPb2REVRowYjR3LlSrY+kIegTh3i45k2zShb/9FHVKqElxfbtuV2ZEoppZ5cmoAppdSDK1WK1aupXZvERDw8+PhjXn+dtDQ6d36QvOc+dO/Ob79RtiwbNjgH9d+28g//Uj/nIf3HRQVquEhAQFbDPHnw8eHAAcaPN1YGenjQv//9ZTvW1kyYwCefYGXFrFnUqcO+ffTqdZ/FPfLm5Y03OHiQyZOpWJG9e5kzJ+uugwNBQezfj5cX164xdizVqzNjRm5uDLslPZ3+/Rkzhn79iI9n2za8vDCbmTmThg1p0IAZM/TgZqWUUpanCZhSSmVLiRKsXUvDhvz+Oy1a8PbbDBlCWhodO7J4sSUHql+fLVto2JBDhwoe3RWa1GV/++GDmUJmZvjXN+9IYxwcePttDh9m9Gjy52fWLBo1Ys+eBxkuf36WLqVsWVau5LXX7v85Oztee40DB1izhlGj7rxbrhwzZhhrEU+cYMAAGjdm48YHCczSLlxgzhyCgmjRglWrcHNjxgyOHiUwkGLFiItjwAAqVCAoiPPnczNOpZRSTxhNwJRSKruKFGHFCho35sgRWrdmxAiGDePGDXr0sHCB8zJl+O031q6lXz/s7ctHfx0+ZPsBnOPSXEyfjf978/z5ef994uJwdSUxkYYNmTr1AYdbuBAHB777jtDQB4rU1pZWrcib9+53GzViwwamT6dUKbZupXlzevXi2LEHGsFiSpUyTmeOjaVtW+rU4fvvKVaMoCCOH2f6dGrV4vRpgoMpVw5vb2NdpVJKKZVDmoAppVQOFC7M8uU0acKxY/TowaRJ+PkZOdjChZYcyN6eli2xtgawtubrryuFDncyJfHuu/j7Yzb//Ylq1di8mcGDuXaNwYPx9iYt7b6Hq1uX77/Hyoq33iI6Ooex799PixZ89hnp6ZhMeHuzfz8jR5InD1FR1KzJ6NEPEpvltGjBrl188omxd27gQGPK69IlI+Navpz27bl5k4gI6tShbVvmztV1iUoppXJEEzCllMqZQoVYvpw+ffDwwGQiNJThw0lPp1cvFix4iOP6+/PTT9jbM2kSvXpx/TrQpw8lSxIaeus77O0JD2f6dBwciIigYUP27r2/zjt25M03jdSuXz927MhJpEePsmED77xD7drGoWEFCvDpp+zdS/fuXLnCBx/g7MzUqQ9ylJmFFCrEe++RlEREBG5unD1LcDDPPgtgMtGuHUuWkJjIsGEUKMCqVfToQcWK/N//5WZFR6WUUv9pmoAppVSOFSjA7NmMHw9gMjFhAm++aeRgH3/8sGZMrlzBbGb+fAoVYu5cnnuOlJT8+Tl7lhEjcHYmPNwoouHtzbZt1KjB3r24u/PTT/fRedGinDzJL7/Qpw9XrtC+PSdOZDtSDw+WL6dGDfbvp2NHPD3Ztw/AyYk5c1izhoYNOXmSwYNxdbXw4s37lCcP/fuzbRu//cZLL9Gz5213q1Xjyy9JTmbSJGrW5NQpPvkEJyc6dCA6OheSRqWUUv9pmoAppdRD8PnnvP8+GRl8+CHu7uzaZfkhJk2iTx/GjGHpUsqXZ+NGWrac+uGxxYupV4/jx/H1pVUrY4eViwuxsfTpw+XL9O2Lry/p6f/YeVgYdeqQmEhKCs8+y8mTdOmSk2WCHh7s2EFYGI6O/PILrq74+xuF7lu1YssWoqOpWpW9e+ncmSZNWLcu20PlSIsWzJpFcPBdbhUqxBtvsHs327bh44O9PUuX0qUL5cszcqROiCmllLpfmoAppdTDMXo069bh7Ex8PG5ujBz5b0nPA+rZk/LlWbcOX18WLKBu3VszXB3KJMTFERlpJGX16xtFGW/N0oWFYWdHeDhNm3L48L07z5+fhQspWZKVK3nmGapWJS4Ob++7bja7TzY2+PiQmMhrr2E2M2kSzzyTdeJWp07s3UtYGCVLEhtLy5Z06sSfZ53luo8/plQp3n6bAwdwcyMsjJMnCQujVi1OnWLsWJyc8PAgKuo+S/crpZR6emkCppRSD0FaGsHB2NuzfTsBAWRmMnYsDRuSkGCxIZydiY3F1ZXdu+nUicmTadeOU6do2dK0/JeePUlIoEMHUlLo3JmxY42HfHzYuBEnJ+LiqFePuXPv3X/Fisybh50dYWG89BJFijB3LoGBOYza0ZHJk4mL49lnOXv2ts/D1hYfHw4dIiSEAgVYvJiaNfH15fTpHI5pAZmZnDnD55/zzDO0acPs2djb4+PDrl3GhJidHTEx9OpFpUqMHElycm5HrJRS6rEl6olTv359oEuXLrkdiFJPsZgYAcmfX8LCxGyWdevE2VlAbG0lIEDS0y020IUL0ry5gBQpIr/+Ki+9JCA2NjJlioiYzTJunNjYSPPmtz2Umio9egiIySR+fv8Yzs8/i8kktrZGRybTrZ4t4tixe946cUJ8fMTGRkDy5ZOAAElNtdSw2RQfLwMHSv78AgJSrJiMGCF79xp3z5yRsWOlShXjrq2tdO4sc+bI9eu5GrRSSj3e+vfvD0REROR2II+UJmBPIE3AlMp9mZny6qvGD+Nt20pSkly9KgEBYmUlIHXqSEKCxca6fl26dxcQBwdZtEgCA43UKjDw1v2jR+WPP+58yGyW8eONDKd5czl69N79jxolIEWLyvjxRs/vvSeZmRaL/3bnz2f1nZgoPXsan6Kjo4SGys2bD2nY+5WaKt9+K25uRlQgY8Zk3c3MlBUrpHt3sbU17hYtKq+/Lps25V7ESin1GHs6EzBdgqiUUg+BlRXffUdkJMWLExNDzZp8+SVjxrB2LVWrsmMHjRoxcqRlCiTa2fHTTwwcSFoaXbvi6cmkSVhZERxMjx6cOlWhAoUL3/mQycTbb7NmDeXKsX49Li4EB9+jysbo0bz0EmYzffvy1VdYWzNmDD16cPWqBYK/3dq1FC9O7drMnElGBtWrExnJ2rU0bsz58wwfTo0afP01V65YfOT7VbAgvr5s20ZcHK+9RsmS2Nhk3bWywsODOXM4fZqwMJo148IFJk+mSROqVyco6B/33SmllHpK5HYGqCxPZ8CUeoxcuCA+PsZsSLNm8vvvD2sqzGyWwEApU0bi40VE5s2TAgUEpHBhCQ8Xs/lez509K717i8kkIOXLy6xZ/9BWRERWrJAiRQTE1VWSkiwT/P8cPCgVKxqflpOThIUZS/jMZomKkmrVjFuFCsmIEXLwoGUHt5i/foB79khgYNZLWVlJs2YSFiaXLuVefEop9djQGTCllFKWVqQIYWHMmUPJkmzYQIMGpKQQEsKaNRaeCjOZCArixAnq1QPo2pV9++jWjYsX8fGhZUsSE/9s++mnVK5snIlcvDg//URsLE2akJxMv340bsyGDfceyMODLVtwcWHnTho25Lffchr5X1SpwoEDTJ9O9eocPoyvLxUrEhTE5cv06MHevcyZQ6tWpKYyYQLVqtGlC6tWIWLBECygRw8KFqRPH378kdKljYmvdevw8SFvXjZswNeXEiXo1YtFi7RqolJKPXU0AVNKqYeve3f27MHLi9KlsbMDaNGCuDh8fMjIYOxYWrSw/ElSZcowdy7R0ZQty/r11KnzZyn8ixc5coROnXj3XSMBaNSIDRuIjKRCBbZupUULevW6d0RVqxIbS4cOnD9Pu3ZMm2bBqG1t8fZmzx5++ok6dThzhuBgqlZl5kysrenenTVrSEgwTuKKjqZtW6pXZ+LEh7EiMptKleLyZX7+mX79KFGC1q2ZMIGSJY3i9VOn0rIlN24QFUXnzlSqhKcn3t689RbjxjFtGosXs3kzR4/m5Nw1pZRSj7HcnoJTlqdLEJX6L1m+XCpUEJBSpWTz5ocyxB9/iI+Pscqwdm3ZtMlsltBQo1BEw4Zy+HBW2ytXJDBQ7O2Noh4BAXL58t36PHJELl2SgABjaZ2f38Moy2E2y6JF4u4uIM8+e5fXCg01Prxb6xL9/Cy+KDKbDh+WiROlbdusahwg1atLZGRWg6CgrKqJ9/rKl08qVxZ3d+nYUQYOlBkz5OrVXH0xpZSyqKdzCaJJHrelGyrH3Nzc4uPju3TpsmDBgtyORSl1H1JT6dmTlStxcCAigm7dLNbzhg306oWXF4GBxnlV+/ZhZcWgQXz22YadBfr2JTmZYsX45ht69cp67vhx3nuPmTMRoWxZxozBywuT6X+3k5OpUgUnJ5YtIyaGoUO5eRNPT2bPplAhiwX/FwkJlC5NqVJ3uZWZydKlTJpETAyAlRXt2+Pvz3PP/SXg3JOayvLlREezbBkXLvDii8yfn3VXhN27SU7m/HnOneP0ac6d49w5zp7lzBnOneP69Ts7LFSI3r155RXc3R/leyil1EPh5eU1c+bMiIiIW5nYU0KXICqlVK66tewsOpohQ0hLo0cPgoIs1vn165w5w9ix1K2LyUR8PIGB2NgQHk716s3Ozk9IoH17UlLo3Zs2bdi/33iuXDlmzGDTJtzdOXGCAQNo3JiNG//XraMjtWrx++80a0aDBqxeTfHiLFtG8+YkJVks+L+oV+8u2dexY+zYgbU1nTqxciVbttC/PzY2LF6MhweNGrF798OI5cEUKkSvXsycydmzbNrE99/fdtdkIn9+lixhwwbOnsXaGhcXWrVi8GACA5kzhwsXOHiQjRtZuJCJE2nalNRUwsNp0oQaNRg//rE4pVoppdSDye0pOGV5ugRRqf+MGzfEzs5YCJiUJKGhRnXEgQMtdlhzQoLUq2ec3+XjI5cuyY4d0qiRscStZ0/z6TNhYeLoKCCtWt35dGamTJ0qpUoZFfwGDJDjx0VE5PJleeEF47DppUvl4EGpUcM4n/jXXy0T+b+pWdMoLTl/ftb6x1OnJDBQSpYUEHt7+frrRxNL9o0b909LEP9+6nV8vLzyipQvbzSwtpa2bSUyUm7cyI3olVIqZ57OJYg6A6aUUrknTx6WLDEKX7i74+5OVBQODnz3He3bk5pqgSHq1mXzZkJCyJPn1sQXR46waRNhYeTPT1SUqfozPoTv/10+/JBRo+582sqKgQPZv5+RI7G1Zfp0qlbF359Tl/OzcCH9+nHlCp07s2YNsbF06kRKCs8/f+dEz8MxZAhFi7JhA127UqMGU6Zw4walShlVB318uH6doUN58UVSUh5BONk0dCizZhEWRkgIn35KQABvv42PD6++irc37drd2X7KFH74gcuXadeO5s2xtiYmhl69KFUKX18SEnLjHZRSSj2Q3M4AleXpDJhS/zEXL8rzzwtI3rwSFSWbNxszOLVqyZEjFhtl505p2NCYN7k1w3b4sDEuyODB/9rBoUPSq5cxRZc3rwwfLqdOmiUw0JheCwyUjIysshw+PnLzpsWCv4crVyQsLOt8sBIlJDBQzp837s6bJ0WLCkjJkvLLLw87lkdk1SqpUydriqxQIWnYUCpVyrrSsKF8840cPZrbgSql1H14OmfANAF7AmkCptR/T0aGDB2alckkJ0vdukZpxC1bLDnKuHGSN69A1gHQM2ZIvnwC8vnnf38iJkZOnbrtyu7d4uUl1tYCYmcnPj6SGjzBSMvGjBERmTpV8uQxChfu3m2x4O/t5k358UdjoSVIgQKya5dx69gxadnS+Fz9/J6cdXq//y6jR9+WiRUoII0bG0dk3/oqUkRatpRhwyQ8XGJj5cqV3A5aKaX+RhMw9YTQBEyp/6rx441M5rXXJDVVPD2NnUw//WTJUQ4elLlzb7syb55YWYmVlSxa9NfLW7cam7xCQu5MXW6lYQSml54AACAASURBVLeCdXCQH174yWyfN2sabe1aKV5cQGxsZNgwSUmxZPz3tnKltGsnRYrI9u1ZFzMyJCQkq+b+gQOPJpZH5K+ZWL16cu2azJ4tHTsaH/9fv6yspGpV6d5dgoJk7lw5eFDM5tyOXin11NMETD0hNAFT6j9s7lxxcBArK7lwQW7elNdfz5oWe6iCg++cPBJJS5MePYwf352dZcmSOx/atUt69jQOGCue76r/G5lZ02UXLoifn9jYGHMxoaGPYEXiP4iNFScnASlYUJ7Iv+gPH74zzz11SiIipGJFKVNGihc3/ij++pU/v7i7i7+/LFmi82NKqdzxdCZgWoRDKaUeJ926sW0bK1dSpAg2NnzzDaGhmEwEBzN4MDdvPqxxP/iAvn25fJnOnTl//ta1vHmJimLFClxcOHCADh3o1CmrVD1QqxaRkezYQc+enE9zmPil1a0SHWfOQJEiTJzI7t14evLHHwwfTu3aLFv2sOL/N40bk5BA375cuoSXF97eXLmSW7E8FJUrU7TobVdKlaJqVZKTOXmSc+fIyDCuOzhQrBj583PlCrGxTJxIhw4ULUqbNoSEEBeH2fzow1dKqaeIJmBKKfWYcXGhTZusb/39iYzEwYGpU+nQwTKlEe9w+DD169OmDY0akZRE9+6kp/9508ODHTv44gsKFWLxYmrW5NVXOXs26+natYmMZMsWOnTg6lUmTcLZmfff58IFeOYZli4lOpoqVdi3j/bt6dSJQ4cs/wr/aN48oqMpWJAff2T6dPLlIyICV1c2bXrEgTxq7u4cOcLChYSE4O1Nw4bkz09aGikpXLnCqFGsWsUHH+DuTmYmv/7KqFE0aECpUrz0Ej/8wIkTuf0CSin1RMrtKThleboEUakn0KZNUqKEgLi6SnKyhTvfsEFMJrG1lagoKVtWQIYO/Xur06fFx8fYTDVo0N172rzZ2LlmTUaE3cD4dgEZKRdFRNLTJTRUChYUEFtb8fOT1FQLv8U9ZGYaNUEGDZK0NBGRxESjYoeNjQQGZp0h9pQ4ckR++UWmTpU//si6ePmyrFwpL7xg/Pn++eXkJD4+Ehn5yP64lFJPF12CqJRS6rF0+DApKcTG4uLCzp00bcrevZbsv2lTRo7k5k18ffn6axwc+PprJk++o1XJkoSFkZjIO+8wZMjde2rUiKVL2bSJTq0udb/xY70VYy+VdD78zmRMJvz92bcPHx8yM5k0ierVCQ9/BMvdrKyYMoW8eZk6laZNOXiQ6tXZtAk/PzIzCQ7G0/PpOj6rYkWef56BAylcOOti/vy0bcuzz962ytVk4vBhwsPp1YsSJfD0ZNYs0tIefchKKfVE0QRMKaUeez4+dOzI2LGsXUuLFiQn06IFGzdacojRo+nUiQsXGDWKyZMxmfDzY9WqvzesUoVx46hX7586c3dn/poiW0M3bLZvVSTjnNNnQ0441rk4exmlSxMWxpYtNGvGqVP4+tKoERs2WPJF7sbbm7g4atRg+3bq1+fnn7GzY+JEFi2ieHFWrKB+fZ57jmXLEHnYsTzWAgJITGTKFAYMoEqV2z6NGzf45Rf696dUKV55hV9/1a1iSimVTZqAKaXUY8/fn7x5CQvDy4u5c+nRgwsXaNOGefMsNoSVFbNmUbMmiYnMn09AABkZ9OrFwYP38/T163h789FHXLqUdbGlfz3XC2tm940+ZKpaNnVv4ZfaH3H2uBm3Ezc31q1j+nTKlCEujhYtGDyYa9cs9i534+JCbCy9e3P5Mn364OtLejodOrB7N2+9RcGCrF5N+/bUrs0PP3DjxkON5bFWvTqDBjFtGgcPcvIkUVH4++PmRu3aTJxI06ZcucK0abRpQ+XKvP8++/bldsRKKfWfk9trIJXl6R4wpZ5AsbFSsqSA1K4tSUni6ysg1tYSHm7JUQ4fFkdHAfnwQ+nSRUCqV79tq9A9JCUZVc6LFZNPP72zpvmhxBtTa3z+B4UFMkw2vw8eb9y4fFlGjRJ7ewFxc7P83ra7mTjR2BLm7i4XLxoXL12S0FCpUMHY+FSihAQGyvnzjyCc/56jRyUkRKpWzdonVqOGhITImTO5HZlS6j9I94AppZR6XDVuTGwsNWqwaxetWjFiBCEhZGbi60tQkMVGqVyZWbOwtubjj+nbF1dX9u2jTx8yM//5uUqVWLuWVq1ISWHUKKpUITSU69eNu07V8wzc8+aOuQdnFRlmFtPBKb926sSxY5A/P2PGsHUrTk7ExdGw4SNYjujnx7p1VKxIbCw7dhgXCxTA35+DB4mMpFEjzp4lOJhKlfD1va3svgIqVCAggAMHCA83ruzdy8iRlCmDhwczZugmMaWU+heagCml1H9EpUps2EDz5hw7RosWtG3LV18ZR4S98YbFduS0a8e4cYiwfDnR0ZQowfLljBz5r881bcqaNaxcibs7Z84wYgQuLkRHZzVo1a1YrzNf/jD6xID8cxcvxsWFoCBu3IBatdi6lbZtOX2aNm2YOtUyL3JvjRqxYwfr19Oy5W3XbW3p2ZPNm1m3jo4duXqV8HBcXOjU6ckvWJ8N/fvz+usUKmR8m5lJTAwDBlC+PH374u9PcDBffsmsWSxbxubN7N/P+fO6c0wppXQJ4pNIlyAq9SS7elXatxeQQoUkJUXmzzeW8HXrJteuWWyU336TCxdERNavFzs7gQda67hokdSpY6xPe+utO+8ePy5eXsZdZ2dZulRERDIyJCDAuOrjI+npFnqT7Nu5UwYMMNYrgrRqJdHRT13N+n917Zr89JO0by/W1rfVr/+HrwIFpHx5cXWV1q1l4EBZvFhu3Mjt11BK5RJdgqiUUuqx5+DAggUMHoyLC3Z2vPgiy5ZRqBDz5tGhw21FMHKiRQuKFAFo1oxvvwUYOpS1a+/z6Y4diYtj0iQKF77tyOZbypZlxgxWrKB6dQ4coF/7PzaW63XmqyhCQpg5k7x5CQ/nuefu8uRDtmgRH37IkSPGt7VrM20aSUkEBFC4MGvX0rkz1arx+ef88ccjDu3xZW9P794sWUJyMp99Ru3aACYTH3xAYCBvvEG/fnh60rgxDg7GI5cvk5zMzp38+ivffUfHjhQvzsCBrFhBRkYuvopSSj0iJnnKa+4+idzc3OLj47t06bJgwYLcjkUp9Ujs3s0LL3DiBG5uLF1KiRIW7n/ECEJDcXRk82acnO7/uRs3yJMHk+nud9PTCQ1lWdDmX6+5C6aYph82WhJY6HACL75IcjLlyzN/Pm5ulnmF+9CiBevXY2ND7968+y6urlm3Ll/mu++YNImkJAAHB/r1Y9iw29qoWxISuHSJVq3uvD53LlOnkp7OhQtcucK1a1y+zOXLtxW7L16c7t3p3ZsWLbC2fpRRK6Vyh5eX18yZMyMiIm5NhT0ldAZMKaX++2rVYt06qlUjLg53dw4csHD/n31Ghw6cP0+3bly9ev/P2dndM/sC8uTh3XeZdbDxtGZTMrDx2Bi8tlTvKetdMtbH0rgxycm0asWcORaI//788APe3phMzJpF3bq0b8+aNcatAgUYPpyDB1m5ko4duXaNKVOoU4cGDZgx47bDi1W9enfJvoDu3Vm2jFWrSEjgwAGOHyc1lf37ee893nyT0FDq1+fcOb79ltatKVkSb29iYnTPmFLqCaQJmFJKPREqV2bjRtzdSUqiZUsSEizWswjTpxMURPXq7NhB1645Weh4+jSdO/P551lJS5kyvLx+0NGvF1+1KdT5RlQt/+daPme7NGAtr7zC1av06sXIkY/mx/CqVZk+nYMHGT6cfPlYtozWrWncmHnzjFkaKyvatmXRIvbvJyCAokWJi2PAACpUYORIjh9/BDE+aapW5ZNP+Pxz/P2Ji2P3bgIDeeYZUlKIiMDDg4oV8fdn/fqn/YxspdSTRBMwpZR6IkydyrRpLF/OCy9w+jQtW7JihWV63rmTgQPp0IFvv6VECVaupHlzjh7NXmdJSSxezNtvU78+v/2Wdb3qkHb5EtZfK16hCZsiDjZ5q1uSR/L3Jz4Mw9qasWPp1InUVMu8zr+pUIEJEzh6lI8+onhxtmyhe/c7j7yuWpWQEI4eJSyM2rU5fZqxY6lShV69iIl5NGE+mWrWJCiIffvw8wOwtub4cSZNokULSpemShXjq1Iliha9y1eRIhQujKMjgwezbVtuv4xSSt1LblcBUZanVRCVehqVLSsg/fvL1avSp4+A2NlJWJiYzTntOSNDnn9eQOrVkz17pEYNAXF0lHXrstffsmXGMb4mk3h5yenTf7l34oS5Xn2BFFOxJmy0sZHQ9svNhYsISLVqkpiY03d5QGlp8vXX0rOnJCXds43ZLDEx0rVrVhlANzf5/ntJS3t0cT55tm+XevWMz9NkMip9PuhXlSry1Vdy6VJuv4xS6t60CqJSSqn/rIgIChRg5kz69GHqVPz8uHEDX188PIzCEdlmbU1kJDVqkJDABx+waRPt23P+PB4e/PhjNvp74QV27SI4GHt7IiKoXp2JE7lxA4AyZUzrfqNTp6KSMqXyGGD40nYNzFvOl6jB/v00a8Yvv+ToXR5Q3rwMGUJkJJUq3bONycRzzzFvHocPM3Ikjo7ExfHqq5QuzZAhOg+TTXXqEB9PbCwvv4y9fdah3oCNDYcOceHCbV8tW2Jjg6MjVapQtqzR8tAhhg2jeHF8fYmPz5X3UEqpu8ntDFBZns6AKfWU2rZNihcXkJYt5eJFiY6WMmUExMFBQkIkIyNHne/dKwULCsiHH8rNmzJ0qDE3ERiY7S4PHZIOHYzJirJlJTb2fzcyMuT772Xv3n37pGNHASnApZh8nY2mzZrJnDk5fZ2cOXZMCheWOnUkPFyuXLnt1rVrMm2aNG6cNQ9Tp45MmiQpKbkU63/fhQsyYYL07CkvvyzDh0tU1L8/snu3BAdLlSq3TYi5uUlYmFy+/PAjVkrdt6dzBkwTsCeQJmBKPb0SE6V8eQGpX1/OnJELF8THx/jxs2nTnC7hW7zYWGb31ltiNktoqFhZCcjLL+fkJN3oaKlbV0A+/fTuDZYtkxo1xIrMkXx6yaaI8TqVK8uECZKamu1xc+L0aWPJJ0jhwjJihOzff2ebxEQJCJASJYxmdnbSs6dER+du5vjUOXtWdu+WgABxdMw6BtrbW0aNkvj43A5OKaUJmHpiaAKm1FPtyBFxdhaQZ56Rw4dFRJYskXLlBMTePqdTYZGRkiePgLz6qpjNsnSpFChgzEqdPZvtXs1m2bXrn+K6eVO+/locHcWea95MP2TnkvXTtI+P/P57tofOths3JDJS2rbN2qfUtq1ERsrNm3c2i46Wnj3FxsZoWa6cBAT806Yy9TBcuyYREdK8+W1zYkWKSMuW8vrrMmGCREfL7t1y7VpuB6rUU0YTMPWE0ARMqafd6dPGpJKLi3Hl4kXx8RGTSUDq1s3RP/6vWCH584vJJGfOiIjs2GHMuVWtKvv2WSD4vzh9+i9TawkJVw6c/PxzqVBBrMhsy8oVdh2NN7Kyko4dZeVKy45+n+LjZeBAcXAwfqavWVOuX79Ls+PHJSREnJyMZlZWRsKWg7lDlR179sigQWJnd/e6HXnyyGefydatcuFCbgeq1NPh6UzATKInazxx3Nzc4uPju3TpsmDBgtyORSmVS1JTCQigYkVGjcq6uGIFPj4cPYqtLW++yUcfkSdPdjpPTOTYMZ5/3vj25Ek6dyYujqJFmTuXZ5/NefjA3r24ulK2LO+9x6uep2ydylOkCPPmmZu1WLKEMWOIjaUu24dZT/Zmhm3mdYD69fH3p29fbG0tEsP9++MPvv+eyZNJT2ffPhwc7t7MbGbVKr77jgULjLojjo7Urk3ZspQuTZkyWb+WLUvevI/yDZ4u164RGckPP3DgAGfOkJl5lzZFixpV75OT2bqVKlWoU4caNaheHRcXqlXL5n89Sqm/8vLymjlzZkRExK1M7CmhCdgTSBMwpdQ9paXx0UeMH4/ZTO3afP89DRpYoNurV+nXj4ULyZOHKVPw9s55lxcu0LatcaC0U8XM1YW6Vty5yKg5OGQInTuv32Q9aRLz5uGYeWaIafJw268Lpp8HKF0aHx/8/ChaNOdhWERsLE5OlCiRdSUlhZkz+e47du2651OFClG2LKVKZf363HPUqvUI4n26ZGaSnMyhQxw8yKFDWV9XrvzTUzY2VK5MmzZ8/TXW1o8qVqWeOJqAqSeEJmBKqX+xYQMDB/L779jY8NZbBAdjZ5fTPjMzef99xo4F8PNjwgSscnrSidnM3Ll89BG7d2NN5sRCH/pcn2R74wpA+fL4+jJo0MHLJb/8kilT4No1b2YE2E+sfD0RwM6Oxo1p04Y2bWjcOBdnK9asoXVrrK1p3pxu3ejalfLls+7u38+RI5w+zYkTxq+nTnHyJKdO/a80/+2aNsXHh5497znJpizlzJmsrGznTtas4eJF45bJBCCCrS0nT+LoeNuDS5eyfTsVKlCpEhUqUKYMNjaPOnil/is0AVNPCE3AlFJ3d/Ag/v707o23N2lp/N//MWkSmZnUqMGPP1KnTvZ7vnwZs5lChZg6lSFDuHmTHj2YMcMiq+jMZubM4aOP2LOHQqT6F57+dr7JBU7sA8iTh+HDGTv2zBm++orJk7mQIi/wy3t5JzS7sdpk/t/Csnz5aNaMNm1o3Ro3t0c8YXHhAq++yi+/GAmVyUTDhnTrRrduODv/04MpKZw6lZWYHTrE3LmkpgIULkz//vj4ULv2o3gFBZjNJCQQE0NMDL/9Rnq6cd3RkdataduWDh2MI8jKlePEiawHbWwoU8bIxzw9eemlXAheqceWJmDqCaEJmFLq7qKj6dIFoFMnwsIoXZpNmxg4kMRESpdm69asI2wfVI0anD7NokU0a8by5fTuTWoqderwzTc0bWqR2G+lYaNHs2sXdVxl+xer+eYboqN55hl2777VJi2NadOYMIGDB8nPlaFusR82jXHYGEN8PH/+ZZc/P+7utG1L27bUq5fzabr7dOkSS5Ywbx7LlnH1qnGxfn1++YXixW9rKUJqKoUL36WT69dZtIjwcGJijCtubvj40K8f+fI9zOjV7VJTiYlh+XJWrODoUeOiyUTdujz/PPnzc/gwV65w/LgxvWk2G22KFiUl5c7e4uLIyKBePd1Upp5GmoCpJ4QmYEqpe4qIwN+fP/6gaFG+/JKXXuL6dTp0YPVqGjVi7Vrs7bPT7csvM306Dg5ERdG+Pbt38+KLHDqEyYSXF2PHUqrU/7N35nE15f8ff9172/ckZAlZ2iyRJWJskSW7GEwYS2ZIthnFjMnyMzIMWbIzjHXsRZKyDUKyRdoQFVqU9vXe+/790RnXvd9rq3sr9Xk+zsOjznmf83mfe+7N53Xf78/7rRD3iRAUBFNTWFkBANLToaICff33bUoTF93ckJoKExMcPIieVqm4dAkXL+LSJcTFSUyNjdGrF/r1w3ffKSAJ8/MoKEBQEE6cwJkzyMnBgwf/3ct/TJmC3bsBQFcXurrQ0YGuLgwMoKuLvn0xYwYAREVh717s3MnN5vX08O23+PFH2NhUzE0wJERH49w5BAXhyhUUFEj28/kwNUWLFmjWDMbG0NEBj4cuXdCtm9Tp2dmoXRslJdDQgK0t7Oxgbw87O5iYVPB9MBiVQ80UYKwMfTWElaFnMBgf4/VrGjqUq7o9cCC9fEnp6dSsGQHk4lLGawqFNH06AaSiQrt3ExHl55OXF2loEEDa2uTlpdSC6yUl73VwCg6mceMyt/8zovdbgAQC8vJ6r8lYQgLt2UMTJnDV80u3Zs3o5EnluSeX4mKukr8MS5aQgYH8IukAJSVJLAsKpHqRAWRrS9u2UU5Ohd0EQ0JBAQUFkYcHOTlRy5akqirn8amqkrk5DR5M8+fT1q105w6JROTpSVZWXEuFd1uTJjRuHOsWzaj+sDL0jGoCi4AxGIxP89dfmDsXWVmoXRubN6NVK9jZITsb69ZhzpwyXnPVKnh6gsfD6tWYPx8Anj2DpyeOHgUAc3Ns2IB+/RR2C+/RvTsePMDMmZg3D8bLZmHTJgAQCF7Ws/37lUMwOaj26LrnkLpsVCEuDhcvYtMmLomxd2+sW4c2bZThYRnIykJuLnJykJuLzEy8eQORCOPHy7F8+BDbt2P/fq5KhL4+HB3Rvj23GRlVsOMMABAK8fw54uIQE4O4OMTGIi4OiYmSdMRSTEwwaBAGDkSnToiIwM2buHEDt24hOxsAJk7Enj2V4T2DUVHUzAgYE2AAAGH45hm+t0t4Ws2Hzp03tPlX3nqFCTAGg/FZJCZi2jQEBYHHQ2wsHj7EyJHg83H6NAYMKOM1N23C7NkQi+HhAW9vbmdICNzdERUFAE5O8PWFqalibuE/Zs7E5s0AoK2NWZPzFtb7Sy/4OG7ceFdJMB9at9S6G81xabPqfxSMWIz9+/Hzz0hNBZ+P8eOxejXq1lWsh0oiNRVjxqBJE4wbBzs7HD+O7dtx44aUTePGEjHWvr2iskEZZaGwEHFx3BYdjQsXkJjIHVJXxzffYNAgDBoEMzNERuLuXfTti/r1pa5w/TqmToWZGTp2RKdO6NRJtgYjg/F1UTMFGEtBJCKiwqPO3KoHvq71+I0334gq26PywFIQGQzG5yIW065dNGsWlx/4668EUK1aFBdX9mvu3UsqKgTQTz9JdhYXk48P6egQQFpa5OVFhYXldV6asDAaPJjL49LQoNmzKS8tj86do59+KmllIwaPgDxoeXqIJemI7/P2LXl4kLo6AaSjowwPlcHDhyQQcElrJiY0Zw6FhVF0NP31F7m7k70995K/v9WvT05O5OVFfn6UmFjZN1DjefqUfHzIwUEqZdHMjFxdyd9fznvwyBHZZEUzM/r2W/rzT7p1S2FepaVRRAQFBNCuXbR0KS1ZQlevkvwPDoNRPmpmCiITYET0vgADAJ5qg94LTz0t+PR5VRMmwBgMRhkRi2nUKALI0pKyssp+HX9/0tSkVq1k9yclkYsLN21s0YLOni2Ps3K5f59GjSI+nwBq04aePOH2i1NST40/0pt/CaAePejly/fOCQyU/B4bS87OnIfNm9ORIwr3UOE8eUJLl5K5uWRG3qIFubnRgQMkFhMRvXxJ/v7k5UVOTlS7tqweq1uXXFzoyJFyPXBG+Xnzhvbvp7FjqVYtydPR06ORI2n3bkpIkFi+eEH//EPz51P37qStLfU0//1X9rIPH5KnJ3l70+bNtH8/+fvT5ct05w49fUrZ2XLc+P13buXm/24tWry30pLBUBBMgNVg/hNgKs36j+tZX5UHgK/XeoLvzdSv8eseJsAYDEbZyc4ma2sCaNgwbv5eNpKS6M0b+YcuXuSGAMjJieLjyz7KB7h/nxMkjRpJ7b98merXJ4CMjSkwkIiIrl8ngHR1ac0aKi7m7EJCqHVrzsPevenBA4V7qAxu36a5c7kbLN0uX5a1EYspLo7++Yc8PKhvXzIykhhraJCjI61fX67wJ6P8CIX077/k4SF5D5Zu9eqRkxMtWUIBAZLyLUIhPXhAO3eSqysNGyanrMu4cR8s6KKuTjExsvazZhFA+vpkZUV9+9LEifTLLzRnDrVsyQQYQynUTAHG1oABAIqOjTZwPloI1c5/RF79Pn3r7Cm/HHqcQzyBgfWIucuWzhlmqcerbB8/H7YGjMFglIv4eHTsiPR0LF2K335TyhDFxfDxwfLlyM2Flha8vPDzz+Ap8g9tdjZmz4amJrc27B1paZgwAefOgcfDrFlYs7xAddokHDkCANbW8PVFjx4AIBRi9278+ivS0riFYWvWoE4dBXqoJEQiXLuGW7eQmYnFi2VbYf/0Ew4ehLU1bGzQti3atgURAgMREoLLlyEUcmZmZnBwgJMT+vWrsPr8DDm8eIGzZ3H2LEJDkZEhdahxY3TogI4d0bEjbG1lejFIeP4c//yDt2+RmYnsbGRnIyeH+8HAAAEBctYE5udDS+uz3Csuxm+/oVYtDBuGli2//PYYDLYGrEbzXwRMtfMfsUIiory4k784NtbgAQBPtU6nSX8GPcurbC8/FxYBYzAYZaekhOLj6fx5EgiIx6OjRxV55cmTafFiys3l9iQl0dix3IqW0aMpr4L+zIrF5OPDLbn55htKSiK6eJEsLSVBuXdLo9LTadYsbkmboSH5+FBJScU4qSQmT5YNg+jq0sCBtHo13b5NR46QqyvVqyc5qqVFDg7k4yOVAseoFJ48oUOHaP586tGDdHWlHiKPR+bmNH48rVtHly9TWloFuRQZKfHBwoI8PCg0tIKGZlQbamYEjAkwIpIjwIiIxFkPD8ztUV+t9CtZnkajHtNXHwt/XfUXZTMBxmAwys6cOSQQ0P79tGoVV47i4UPFXDk1lStx0aAB7d8vyW8MCCB9fQKoQwepLldK5soVatCAAKpdm/74g7LTCmn5ctLU5BKw1q+X1ByIjCRHR26a2aGDwl6QSuL5c/Lzo+XLadQorv1b6VanDmcgFNK1a7RwIdnYSM3yO3SgTZsoI6NSvWcQEZFIRJGRtGcPublR585yVm3Vrk09etAPP9CGDRQcLL3o8QsRiz/Ww+/MGXJxkVq3ZmNDf/+t1LZ/jGpFzRRgLAURgHQK4vWfWwgkRyjn8bFVCxb6nH2aRwDAUzWy7vftxEkTxw/uaFJF0zJYCiKDwSg7e/di0iRoauLaNfz5Jw4eRNOmCAtTTK3rsDDMmoWwMADo2hUbNsDWFgDi4jB4MGJiYGICPz907KiAseRRWIjERLRowf2aloaJExEYCACGhpg5E3OHP6+1dDb8/QHItkQLCICbG54/h5oaFi+GhwdUVZXkZ0Xy+jUuXcKVK2jaFJ6eskfPnsWdO7h3D8HByM0FAA0NjBiByZPRqxf4/Ir3lyGHkhI8eoTbt3H7NiIiEB3NtRF7HwMDWFrCygqWlrC2hoUF6tVDRgbS05GejowMvHmDN2+4qWKJXgAAIABJREFUX0v3vPtZTQ19+mDECAwdKv8vgVCIa9fg54dDh5CSAgCNGuHWLch23mMw/geWgliDkRsBe4+CFxc3/djTVFOyPoGnamTtOGnBH7v9Q2PeFJZjnboSYBEwBoNRLlxdCSBTU0pMpI4dCaC+fRVWglospiNHqFEjLnHKxYWSk4mI0tOpVy+uFoTSvgqdOpV4PPrpJ6lEwqAg6tlTknHn7k6pu0/ToEFyqnrn5ZGHB1djsXVrCg9Xkp9VhEePJAXuv/2WZs4kBwfu7gFq0oSWLqUXLyrbS4Y8EhIoKIjWrSNXV+rWTSpCVYbtXasDgYB69aKNGz/YwKCwkHbtolatSEtLUoOUwfgINTMCxgQYEX1agJVSkHBl56JvOzfQlF4nzuNr1LHsNmzqoqPRVaNmIhNgDAajXBQXU/fuXAHAp0+pTh0C6OefFTlEdjYtWEBqaly+37FjREQlJTRzJifMPDxIpPiOjIcOcUu/evem1FSpQ3fvkosLpy5UVcnFhR4//sBVrl2jli0JIBUV8vD4KtqFlY38fJo8WWpJmIEBff89zZ5NZmbcHj6fHBxo794KW8HHKCPJyXTxIvn60owZ1Ls31atHampkYkKtWlGPHjRiBE2bRgsX0po19Ndf5O9P169TVBSlppJIRKmptGMHDRjAfWRLP6OdO9OqVR+smfmVL5ZkVBxMgNVgPk+AcRSnRfj5zB7SuraqtBDTcD5aNf4XZgKMwWCUl9evuQVS8+fT9evctGv3bgWPEhtLTk4EkLOzZOe2bVzRi1GjlDGpv3aNTEwIoIYN6eZN2aMPH5KLCzc+n09OTtI278qH5OeThwcXF2jVim7fVrifVYrISNq4kTp3liixLl3I359cXUlLS6LNXF3pzp3K9pWhTPLyyN+fXFykqoBYWZGHB129+olzX70iNzf65x/W0JkhBRNgNZgvEmD/UfAq3H+rl6tTh4baAh4TYAwGo5oRGsrprj17aPNmLjkwLEzxA925Q5mZUnvOnSMDA245vxJS3FJSuJxDdXXavl2OQXw8ubtz9TgAsrcnf38iHx/i82n+fEkvpOvXycKiJoTC3hERQbNmkaEhAZw0zcigTZuofXvJdNzWllasoD17KCCAwsIoIYHy8yvbb4aiycujEyfou++4Tyr+a13u6fnBj+zBg5Lk1bVrWeNvBgcTYDWYMgkwCUXpsddP7Vhz+EHVCLgzAcZgMBRDqe7S0qKnT2n6dAKofv1y1VP7fGJiuFbK9esrQ/UVFdGMGdx0cNo0+QohOZk8PEhPjzPzaHlCJFDlQl737nFG74fCrK3lLBurjuTny1nec+8ezZr1wbVGOjrUrBl16UJDhtDkyfTLL7RuHe3fT6Ghykg1ZVQcRUUUGEiurlyqMkBqajR5MsXGyloKhbRlC5e9W/qW6NaNpkyhVavo+vXKcJ1RNWACrAZTTgFWxWACjMFgKAw3N9LSosePqaiIunUjgNq1o1evKmLo98ty7N+vjBH27OHCXIsWfdDm7VtasYKbXHZE2FM1C26VmJeXJJXqxg2ujZiKCrm718zlUJmZ5OBA331Hy5bRvHk0YQINGEDt21PDhlz3gQ9tDRvSggX04EFl3wCjfAiFdOUKjR/PfR0hENDYsRQRIWsmEpGfH/XoIfUe4PPp9WtZy/x82YWajGpJzRRgrAw9gI+Vof8aYWXoGQyGIikshIYGAKSk4JtvEBsLU1OcPQtra2WNuG8f2rVDq1YQCjFnDnx9weNhwQL8/rvCC58/eID16zFrFtq1+5hZfj5278batXgdX7gES37Gaj7Exe3t1A7/zVW1LyzEkiVYswYiEZo3x65d+OYbxbpaxYmPh4UFiosBwMQEtWrBwAD6+jAwQO3amDYNamp48wZpaUhNRUoK0tKQnIzbtxEfz12hdWt89x3GjkWjRpV4H4zy8vw51q3D9u0oLAQABwcsXw47O1mz168RFYXYWMTEQFMT//d/sh/uTp1w+zYMDdGyJXR1oacHgQCGhhAI0L07xo6VvWBSEp48gY0NDAyUdm8MJcDK0NdgSh4eWOzp6en5i++VtKpVUr4ssAgYg8FQFunp9M03BJCuLgUGKmWIqCgCSFubTp/m9rwry+HsXLnBJZGI/P3JwYH64nwiGhJQoKIT6/VedO7WLbKy4r7/X7eu8jytHJ49o0WLuBonMtvixbLGgYHE55O2Njk7k4uLJIGNzyd7e/LxobS0yrgHhoIozeB9V6OFW0j5JcyeLbXA7P1NQ0NO5mqTJlwQumdPWr36w1VMGVUMFgFjVBNYBIzBYCiRoiJMnoyDB6GiAl9fuLoq+PpEmDYNu3ZJXf/sWYwdi+xstGkDLy8MG6bUHsB5eRg9Gk2aYMECNG4sx+DuXez4423PozPHiA+los5A2xR3d4wbBxUVoKgIS5fC2xtEWLoUv/2mPD+rJiIRXr5EVhYyM7l/CwsxciQMDaXMwsPh7IwXL0AEPh+OjujRA5GROHECeXkAoK6Ovn3h7IxRo6ClVSm3wigvb95g0yasX4/MTADo2hWennByAo/3qTP/IzUVsbEoLERWFkQiZGZCKISFBXr3lrX09oa/P27fhlDI7TEzw6BBcHJC795QUVHQLTEUTc2MgDEBVg1hAozBYCiXUmmxdCkAeHhg5covmE99JqtWYeFCEMHdHT4+4PEQGYmhQ/H0KQA0b4758zFxIjQ1FTwuACApCebmyM+HmhomTMDChTAzk2OWnIyL8wMOn9E5nd0DQNOmmD4drq4wNAQOHsTEiRAK4eaGDRsU//pUF+LisGkTdu3iRFfLlpg8GYaGOHoUly5BJAIAQ0OMHo3Bg1GvnvyL6OpKTa+1tD5oyagUcnKweze8vZGcDABt2mD+fIwfD4ESVnxkZuL8eQQEIDAQaWncTldXbNum+LEYCqFmCjCWglgNYSmIDAZDWVy6REOG0KNHREQ7d3KZgRMnUlGR4sfas4frmuziQsXFRET5+bRpEzVrxuUhGRvTkiVKylSLiqLvvuPuT0WFJkyg6Gj5lgUFtHcvV4OjNDfT1ZViYoj8/LjqE66urNLfx3nzhlaupIYNudewc2ciopcvac0asrH5WAGPD23dutHhw9y7hlFFyMmhNWskGarm5uTmRjt3Uni4Ujo4iER04wb98gvZ2yu+hSFDgbAUREaZKHz7OiNfTABP06h+LY3KdgcsAsZgMJSHlxeWLYOREQID0bEjzp+HszOys9G7N06cgL6+gocLCcHIkcjORp8+OH6cu75YjIAArFyJGzcAQF0do0dj0SJYWCh4dODJE6xciX37UFICgYAbp1UrOZalTq1bh0uXAEAgwKBBWNwhsMPKkSgowNix2LsXqqoK97A6UVKCY8ewbRvMzaXiFZGROHAAYWFcGtv/kpMjyToDkJaGnBwAMDGBqytcXVG/vjL9ZnwJhYX46y/88QeeP5fsVFWFpSVsbCSbTMKqwjlxAgsXon17ODjAwUF+pjGjYmARMEZZKDw1Xrc0tYQ1YmYwGNWeoiIaMYJr4hMSQkT04AEXubC2VkbTZAoPp3r1CKBvv5U9dPUqOTtzRa/5fHJyUlI7ofh4+uEHLppVt+4njON2XcnSrPun4Gd1FAI0xuRKoboeATR4sKSDM6MciESUkUEJCRQTQ+HhcvpNlcYk27blIi0CATk5UXAwib/+IlvVhuJiCg6mVavo22/JwoL7EL+/NWlCw4bRkiV06hTFx0s6PiiKjRulhmvRgmbMoBMn6O1bBQ9UMaSk0KNHdPEiJSTIOertTYMGUY8eZGtLzZpR3bpkaEgNGlDLluThIcf+8mXavp2OHKHAQLp5U+nx+5oZAWMCrLwoT4B5enqWR1p369ZNkd4wGAxGKUIhTZzINWguLYSYlMTNdk1MKDxc8SM+e0aOjrRpk/yjcXHk7s718yqttnbkiOLna0RJSfTrr+Tj8ym7S5dKMxcTrR3bW+YDZIvwNNQmIMOmlzg7R+GO1QQ2biQzMzI0lNNSjM+nqChZe3d3atqUxo2j/v25PNbSnDcfH8phT6DqkZdHN27Qli00fTp16iSpnfj+U65Xj1q3pv79acIEWrCA1q2jAwfo0iWKjKT09LIMGhdHmzfTiBFkaCgZSCCg/v2revLq/v00cSINGEA2NlS/PpcpXbqZmsoai0Sko/PBZN1WrWTtS0okH5nSbcsW5d5OzRRgrChM1YXHFm0zGIwqiECAv/6Cnh42bsTQodi/H87OuHoVo0fj3Dn07IlDh+DkpMgRmzbFuXMfPNq8Odavh6cnNmzA1q24fh3Xr8PSEu7uGDRIgS2lGjTA8uXyD5WUvJdd2LMnrl3D0KENI4PCezld/sN/y9+2fU5eCRT2rX//0p26A656Bnw3Q692bUX5VSOIjcWzZ9zPPB4MDKClBS0t6OmhSRM0aCBrn5aG+Hiuw5iJCczMEBeHmBjMmYPffsO338LdXYl97BhfipYW7OwkvcJEIsTE4P59bnv0CCkpSE5GcjIePpR/BXV11KmDBg3Qty+mToWp6acHbd4czZvjxx8hEiE8HCEhCAlBaChu3EBBQaXlCycnIzoaMTGIiUFUFMzM4Osra+PmJpuOa2SEunVhbIwBA2SN+XzcuIHnz6GtDT096OlBRwcaGsjLQ26unM+Oigo2b8bNm8jORnY2eDw5PdwY5YetASsv9Pbpnbg3IgL4Ri06NK9VBUQTWwPGYDCUDhEWLMCaNRAIsH07Jk9GcTGmTsW+fRAIsGEDZsxQug9JSTAxkaqklpODXbvg44MXL7g9Fhbo2xcODujVC7q6yvBi0SKsWYPRozF3Lmxt/9sbE4M+ffDyJeztcfZscr7e6TUxTuv7mggT78B2iNo5+6G1XV3h4KAMj6ohYjFevIC+PjQ1P6vyJRHCwnD0KI4dk7wXatWChgZevQIAHg99+2LmTHTvrvTlRozyIxJx/btfvUJqKl6/RnIyUlLw+jVSU/HqFbKzJcYCAQYOxPTpGDDgi9tV5OWhpES2lbNQiOnTAaBfPzg4wMio3PcjTXAw9u3jRFdWltQhIyOkpsreRWgoYmNhbIx69VCvHoyNoaamYJcqkpq5BowJsGoIE2AMBqOCWLYMXl7g8/HsGRo35srTL1vGlY9ft06J3brOn4ejI5o0wcyZmDJFahItFOLoURw5gkuXJNMZFRV07syJsc6dFdgVyNcXc+ZwRSB69MDcuRg8GHw+8Pw5evdGfDxsbXH+PGrVEsUnFHZz0H4VFwXLvgh+iQZt2sDVFV27omFDGBsryiOGBCLcvs0psdKqD717o1kzHDiA/HzOxtgYlpYwN0fLlrCwgLk5mjZlbaO+MgoKkJKCuDjs3Ytjx1BUBACNG2PaNEyZUt62BBkZqF+fu6ZAAFtbODrC0fHL/pAUFiIqCmLxe1/T/EeHDrhzh/u5Vi1YWMDCAi1bwtwcXbuiTp1yOV/1YQKMUU1gAozBYFQcO3fi+nVs3Qp1dW7P7t344QeUlGDYMPj6KqsC3dOnGDgQsbEAoK2N776DuzusrKRsRCLcv8+lFl29yk2gSu27dOHKn7VvX/4mXQkJ2LgRO3Zwcq95c8yZg3HjYJgZjz59EB+PDh0QEgJ9faSkoF8/RES8NWjaXyUk7I2kv5imJho3RqNGaNQIpqYwNZX8rJxuZzWLUiUWGIgBA9CpEzIzsXs3Dh9GVBRyc2WN1dTQrBknxlq2hKUlWrZErVqV4Tfjy8nMxJEj2LABkZEAIBCgVy+4u39ZA2gZYmPh54egIFy7JvlDoq8PBwf8/jtatpS1LylBbCwiI/HwIR4/xsOHePYMIhF4PDx+LFux9eFD3LmD5s1hYYEamJxcMwUYK8JRDWFVEBkMRiVz/jzp6RFAenq0bh2VlChlFLGYgoPJyYl4vE9X4MjOJn9/cneXdOwq3Ro1IldXio8vvzvZ2eTjQ2Zm3IXV1Gj3bqKEBGrenAA6dIizy8igzp0JEDcyPesTM2IEtWkjVQbgfzdjY2rfnoYNoy1bWA0JxePhIXmp1dVJQ0P+U2jdmjw96do1ZVR4YSiF0jqp70pKNG9O3t6Umlqua+blUUAAubuTuTl32SVLZG22b5dTLUZVlaysaOpUVgxVlppZhINFwD6BMPdNSlr62+z8ohIxX11bV1dXv3ZdY50qnZrAImAMBqPyefUKnp7Ytw8A2rbF5s3o2lVZY8XEYMMG/P03F8vo3RsXLnzM/uVLBAcjOBgXLiAlBQA0NbFgATw8yh9sEolw6hS2bcPFi/j9dyxYAKSlITAQY8ZIgoS5uRg6FBcvom5dBAWhbdvSfQkJSEhAYiISE/HiBfdDYqLkG3cAenqYOBEzZiij7VkN5ckTLF2KyEhER6OgQOoQnw8HB6SnIzoaeXncTiMjDBgAJyc4OsouFmJUQZKTsXcvtm3jirKoq2PIELi6ok+f8ga/X7zA3btwcJBdXrp2LRYsQNOmaN0aVlbcv+bmX/dKLeVRMyNgTIDJoeDlzdP/HD8TfPXWvUfPUvOE0q8Qj6em16CZReuOvQYMHTasf6dGWlWg7oYUTIAxGIyqwoULmDkTMTHg8fDdd/jzTyUudcrKwu7d2L4d5ub4zL9+RIiIwOrVOHgQRGjSBH/+iREjFOKOSCRVH6SU168REYEePaAhysPw4QgORq1a+PtvDBr0kUu9fo3ERERHY9cu/PsvAPB46N0bM2diyBA5ozDKRmmpj+hoPH6M6GhERSE7G6dOwcwMIhFu3MCZMwgJkSzX4fNhbo6RIzFsmJyFPYwqhUiEwEBs24bAQIhEAGBtjR9/hIsL9PQq27maTc0UYCwFUQrRm5tbXLvUU/tcScVTNe4w0edqctVKR2ApiAwGozLx9CQ3Nyr8rzFifj55eXEZObVqkY+P0vt6/i/p6eTlRUePfrDNalgYderEpQr16kUPHyrJEScnAkhfnyZMoIBTxcVDRnKDdu9OV69+zhWio8ndXdLYx8SEPDwoMVFJ/jLkMGiQnARFbW3q1InWrJG88RlVkxcv6NdfycSEe3A6OjR9Oj14UNlu1WBYCmJNp/jpwakDJu+PK/rvFeEJtGrVb2TayMRIV0tTU10gLi4syM/JSHmZmPAyLbfknZmq6dCNZw9Ot64qq6RZBIzBYFQmjRsjIQH9+uHkSWhpcTufPIGbG4KCAKBbN2zejNatK86lnTsxbRrwXy3E/v3h6AhbW6kijWIx9u/HTz8hLQ0qKpgxA8uWQV9fsY4EBmLxYqmKZ8NbPLJ8dNQoL+Eb/Gs20AIrVsDG5pPXyc7G4cPYuBGPHgGAmhqGDgWra18x5OXhwgWucEJYGF69wvszKW1tdOwICwtYW8PSEpaW0NNDdrayitEwyoZIhLNnsWEDLlzgHp+tLVxd4eLCat5UNCwCVrPJv/VLW3UeAPDU63eZsGR30L2E7A9FtkT5yZFX/vlz1kBzPT4A8NRauoVkiivU4Q/DImAMBqMyefCA6tYlgGxs6OZNqUP+/tSwIQGkokLu7pSdXUEu5eXRqlXUo4dkPX5paYtx4+jIESnLjAxydyeBgAAyMlJSvC5rzLTUOtZOLWPeD6FY8aMIIB6PnJ0pJoaIRCKaOpX69aOxY2nmTFq8mEJCZN0pLTOgosJdpF072raNcnMV7jLjgxQUUFgY/fILde5M9erJCY7x+dxb3sSE7O1p+nTavp0uXWJxyypBTAx5eFCtWtzDMjAgd3d69qyy3apJ1MwIGBNgpYhe+PbR4gE8QYMh68PffraUKoz3m9VOmwfw1Duviq4imYhMgDEYjEomJoaaNuXmnlOmSNUdy8yUKJz69Wnv3gp1LDubTp6k6dOpSRPJBPnePVmze/eoe3fuqK0thYYq2A1n59L0wSf+katX07x5NGkS7dmUQx4epKnJvW7OzjmPnmtpyc7mTU1p8WKKi5O63osXtHAh1anD2Rga0oQJ5OtLt29TcbGCfWd8nFevKCiI1q6ladOoWzfJzF7uZmlJL19WtscMooIC2ruX2rWTaGYHBzpyRFkFXBnvwwRYDUb0fP036jxAYOp6LusLzxXGru2uyQNU7VbHVQ0FxgQYg8GofHJzaeFCUlPjln5t3iwVu7lzR7LmauBAevq0EjyMjiYfH/rllw9qFH9/MjXlolIuLpScrLCh8/Kob18uCnf/vtShxERyd+deNzW1pPELzh3KOHiQNm4kT09O1ZZ6tGWL7FULC2nfPrKzk5ria2hQly40ezYdOCAr2xgVQ3IyXbxIf/5Jzs7UqhXp6srGxzp3ppUr6fFjzj43l1W6rzRCQ8nFRVJEvmlT8vamFy8q261qDRNgNZiis98b8QG+yQ/BRV98sujFhh5qAN/o+4AvP1kZMAHGYDCqCjEx1K8fN5fZsEHqkEhEmzdzDbD09OjcuUpy8aNkZ9OCBZwcMjCg9esVNjUuKKCBA7lExwsXZI/Gx5OrKxcn1NYmD4/S8iFiMV26RBMnUt269NdfH7z2w4e0eTNNnEhWVlz+27vNyIgGDCAvLwoIoLQ0xdwK40vJyKBr12jrVho+nN4PcrZsSVOmkKoq6erSgAHk7U2hoSyGWQmkpdGqVZKefqXR+uHDydubLl1ivfgUTM0UYKwIBwCg6NR44xEHc/gtfr4W+Yed6heenblviMmE00W6406kHRim/ml7ZcOKcDAYjKrF8ePYtQteXujcWfZQaipmzMDx41BRwYYN+PHHyvBPmkePEBuLYcMkJTpiYzF7Ns6dA4AuXbBnD1q2VMBARUUYMwZ+fgAwahRWr0aTJlIGDx7g119x5gwAGBnB0xPTpn2kLkhWFvLyZIs9ZGfj9m3cuoWwMISF4fVrqaPNmuGbbzBkCPr1kxRMYVQkhYW4dg2nT+PoUdmnU4q2Nrp0wTffoGdPdOtW3tZVjM9HLEZQEHbswJUryMiQ7BcIYGWFzp1hZ4dOnWBlpbBWEG/fQihETg4KC1FQgNxclJRAKIShIWrV4rbq9waomUU4mAADAAjDF7XpsjJKpNl7U3TwDFP+p894j4Ir7tZ9Nsaj+fyrj9d0+VL1pgSYAGMwGF8TRFi6FMuWgQiurvD1hUqlNru3t0doKLp0wdataNNGst/fHzNnIikJWlpYuRJublJFFMtGSQn++AMrVyIvD1pauHULrVrJ2ly/jkWLuP5fAgHatUPPnujZE927yzQw6twZt2+je3d8/z0GD4aRkZwBExMRFsbpsTt3uM7VADQ14eCAIUMwZAjq1CnvbTHKgEiE69fh5wc/Pzx9yu3k8yEWS2x278b331eKdzWd2FjJB+fePZSUSA7p6sLWFnZ26NwZjRohMxNFRcjLQ24uioqQlcWpqawsFBcjJwd5eSgulmitggIUFiInB0LhZ3nyTol9aDMy4n4ow98noRBpaUhLQ3IyUlORloasLMyYody/CUyA1WSKQ+dbfbP2qUhgOvbAtX1jGn32dxmUE7bcse+SG9m8OhP9nu1x0laml58JE2AMBuPrIC8P2v/91fznH0yahMJC9O+Pf/6pzN6oFy5g4kS8fAlVVcydCy8vSWwoOxs//4zt2wHA3h579qB5cwWM+PIlFi7ExYsIDoalpXyboCCsXo2rV1FczO0RCGBrix49ODGmq/t//wdvb+TlccfNzNCxI7fZ2UFNTfaSIhEePUJgIPz8EBbGTfT5fNjZYehQDBkCCwsF3ByjDDx8yCmxO3ckNe61tdGnD/r3R9euaNWKi7okJ+PWLXTsyMrcVxyFhbh3j9Njt27h2TOFXVlfH6qq0NODujq0tKCtDTU18PnIzERGBrd9PgYGEjEmI880NPD2LVJSkJaG1FQkJ3O6Ky1NznXWrMH8+Yq6RTkwAVajEcWud+g493I28dQa9J698ve5ozuZfCKbUJQZfW7ncs/lhx9li3lqrRddu/1/HatAAiITYAwG46vAxwfz5uH77+HtDWNjAAgNxbBhSEtDmzY4fRqmppXmW14eli/HmjUQidCgATZswIgRkqOBgZg6Fa9eQUsLv/8Od/eKywoqKMCdO7h+HSEhuHoVRUXcfoEANjawt8+x7Xk02/HASa2bN5GfLzlvxAgcP/6xC795g7NnceYMAgMlYTEzMzg5YfBg9OxZyVHJGktiIvz94eeH0FCJtAago4OOHdG1K65cwbVrAGBmhu7d8c03aNsWxsYwMpJ8uVEeCgoQFQUANjYKiPhWS9LSOCUWFob0dOjrQ00NurqcfDI05NSUri7U1aGnB01NaGjAwAAqKrJa65MQSZTYJ7f3Y6efiUAAY2MYG6NOHdSrB2NjNGiAqVNhYFCGF+ZzYQKshlMSs31ErxkBr0UEgKdaq3mnbt06t7M0a9zQpLa+toaGmgqVFBYW5KYnJyXGxz64HXrt5qPkfDEB4Bt0W3b+3C8dq0L4C0yAMRiMrwI/P4wZg6IiGBpi9WpMmQIAT5/CyQnR0TAxgb8/OnSoTA9v38b06bh3DwBGj4aPD0xMuEOZmXB3x759ANCvH3btQsOGFe1efj6uX8eVK7h8GWFhkqQoFRV06CAcP/FxN9fbd/jh4XjwACNHyn6HXVgIHx/Uq4du3aTCeHl5OHcO/v4ICEB6OrezTh0MHoyRI+HoyGbhlYNIhOhoTn1fu4aoKKnuzzwe/nc2Z2mJu3ehoSG189Ej3LvHhUFUVZGRgTdvkJ6ON29gZoYJE2QvYmODBw8AoGFDjBqF0aNhZ1cNlyFVS96+RXq6fG1WWAg9PZiYcHKrXj3UqcP9XPEPt2YKMFYF8X3yH++d0taA/0XvPb6u1fjNd6pME2YiVgWRwWB8LcTEkKMjV2XMw4PEYiKijAzq1Yur/nfqVCV7WFJCf/5JOjoEUKtWskePHKHatQkgfX3atk3xoy9eTLq6tGIFFRR8wjI3l4KCaOFC6tpV0pW5QwcKD//QGadPSyq8mZnRjz/SyZNSnbGFQrp8meZeJtR6AAAgAElEQVTNo2bNJJaNG9P//R+9eqWgG2SUlZQU8vMjT0/q0YO0tWXr2qupkYoK1a5NgYH05o3UiVZWH2xKJhBQ0f8Uc54zh9q359oxvOtEN28e3bzJfV4ZjHLCqiAyAECYGnbId+POA6dDn2UJP/La8FT0mnQeNHaK28zxXet/Rti4AmERMAaD8TWxZw9cXVFSgkmTsGMHVFQgFGLWLGzdCh4Pv/2GJUsq2cOEBHh6onFjrFwpeyglBT/8gNI/tgMHYscORa7F8fbGwoUA0LQpVq/GyJGfdVZuLgICsGABEhIgEGDmTCxf/r9r6kpKsHkzrl7F5cuSSJeqKrp0wcCBmDMH6u/l1D96BD8/7NmDJ084s8GDMX06HBxYQKzyEQoREYEbN3DzJm7e5J7R+9Svj9at0bYtWrdGWhru3OFiI0IhDAy4fMXatWFnh/79AaCkBJmZyMpCZia3lS5MOnMGR48iMZG7rKennA8Eg/Gl1MwIGBNgH6IkMz4i/O7DmKcvXqakv80tKBZCVVNbR0dH39i0ubm5Rau2rZoYVIGSh3JgAozBYHxlXLiA4cORkwMnJ/zzD1f0Yv16zJsHsRhTp2LzZqhWzb+4AICjR/HDD8jIgLExtmz5XKX0OVy8iLlzEREBAL16Ye5c9OwJXd1Pn5ifz9VXLC6GiQm8veWklwEAxGKEh+P8eQQF4eZNrhTbiRMYPlyO8bVr2LABp05xCY8NG2LKFKUXSWN8EVlZePgQDx/iwQPuh5wcKQNVVVhaonVrNGwoEVrv//v+6sF3aGlh0CA4O6N2bfj7IygIc+bA1bVi7olRnWECjFFNYAKMwWB8fdy6BScnvHkDd3esX8/tPH4cEyYgPx8ODjh6VLkrwcvJ69eYNg0BAQDg7IwtW+SXgS8DIhG2b8dvv+HNGwBQUUHnzti2DdbWnz43IgI//ojQUADo1QtbtsDc/CPmWVm4cAEJCZg+HZqaUoeePsXbt9yivJQU7NmD7du5+m9qahg6FK6u6NOHrQ6qchAhPh4REXj4EBERiIjA06cQiT52ikAAAwPo68PQkPshJQU3bnBFHXR0MHgwxoyBo6PsArMHDxAQgAkTKmFFJOPrhQkwRjWBCTAGg/FVEh2N2bPxww9SwZdbtzB0KFJSYG2NM2dkWxVXIgkJWL0akybB1pbbQ4QtW7BgAdcO+dgxdOmisOHevoWvLwIDERYGoRBbt2L69M86kQj79mH+fLx5A01NLFiAhQul8gs/DysrREWhdWvMnInvvoO2NsRiXLyI7dslAbEWLTBlCiZP5qpaMqom+fmIjMSDB0hPh54e9PU5lfXuXx0dOWclJeHYMfzzD27d4gp+6OtjyBCMGYO+fbkKfmPG4MgRqKnBxQUeHmjRokLvi/GVwgQYo5rABBiDwahWPH8OJydERqJuXZw6BTu7ynYIALB9O6ZPh5oali3Dzz9L1kI9fYpJk3DtGnR0cPo0evZU8Li5uYiNlVMU/PhxHDkCe3v07g1ra9lQVEYGFi7Ejh0gQosW2LwZDg5fNOyOHfDywuvXAKCvj0mTMGMGWrYEgJcvsWsXdu7kVgepq8PBAU2aoG5dNGyIunXRqBHq1mVpitWExEScOIGjRxEayikxAwMMHgxnZ7RsiaVLceQIRCIIBBg1CgsXom3byvaYUbWpmQKMVUGshrAqiAwGo7qRmUn9+nGV2kaPprt3K9shoqIimjOHeDwCqFcvSkyUHBIKaeJEAkhLi4KCKsgfZ2dJobq6dWnBAsrJkbW5fJksLQkgHo9cXCg19YtGKC6mQ4eoWzduEB6P+vUjf3+uGp5QSKdPk5MTCQTyi+ypqVGjRtSlCw0fTrNm0f/9H+3ZQ1evkkikoFeAUbE8eUK//042NpJHXLs2TZ9OwcHk7k4aGtxOe3sKCalsXxlVmJpZBZEJsGoIE2AMBqMaUlJCP/1EamrctM7RkS5dqmyfiIKDqX59rhL9wYOS/WIxublxsuPkyYrwJDOT/vqLXFw4fwBq1IhOnJA1Ky4mb29udmxoSD4+ZRBA9+/TtGmkpcWNc+CA1NGEBDp+nDZsoIULacIE6tePrK2pVq0PVj83NaXFiykurhz3zqhUoqNp2TKytpaUsx8/ni5fprlzuQ4OANWw2TXjC2ACjFFNYAKMwWBUE+LiqHt32r9fsic5mby8SF+fm9a1b09795JQWHkuEqWm0pAhnD8uLpK4k1hMc+ZwGuzYsQp16cYN6tiRc8nJidLTZQ1iY8nBgTNo25ZWraL4+C8d5O1b+vNPGjKEoqM/y76ggJ49o2vX6MgR8vGhBQvIxYWaNpXE07p3p927pXqRMb4uHj2iH37gviQplWE3b9Jvv1G7dvTvv5XtHKOqwgQYo5rABBiDwagmnD/Pzc3/+ENqf1YW+fhQvXrc5L15c9q2jYqLK8lLIrGYfH1JU5MAsrGR6lD766/cbHTv3gp1SSQiX18yMCCANm6Ub7N/P5mYSASQnR2tW0dJSeUf/Pp1OnaMrlyhyEhKTf1Ex97wcHJ1lYRKNDTI2ZmCg1mf36+VhARJCiKfT87OFBVV2T4xqjBMgDGqCUyAMRiM6sOmTcTnE0Du7rLJcoWFtG0bmZpyM/fGjcnHh/LyKslRoshIsrWlDh1kpYO3N6fBdu+uaJdevyZf348FlQoLyd+fXFxIV5d7Gfl8srcnHx96/bpsY2Znyy4D4/Opbl2ytqaePT/4GuTn05Ej5ODAraoDqGFD8vCgJ0/K5gWjkvm4DMvJoTFjyMWFVq2ic+cUovoZXys1U4CxKojVEFYFkcFgVCtOnsS4cSgsxPjx+Osv2Y7MJSU4dAirVuHxYwCoXRszZ8LdHbVqVYqz8lm1Cp6e4PGwYQPc3CrbG3kUFiI4GEeP4uRJ5OYCAJ+PLl3g7IyxY7+0guHq1bhxA2/eIC0Nb95wDcxK6doV16/L2qelwciIK+uYmIiDByVNxgDY2sLVFePGyS+PzqjKJCZizRps347CQvD5GDkSy5bBwgIxMbCy4hqLlVKrFtq0QevWaNsWzs7Q06s8pxkVS82sgsgEWDWECTAGg1HdCAnBiBHIyUGvXlixQk5/LbEYfn7w9kZYGADo6mLKFAwdCnt7WcFWWfj6YtYsAFi7FnPmVKYn6em4fRv9+skWsi8lJwf+/jhyBEFBKCoCAFVV9O2LMWMwdCj09cswoFDIybC0NFhZoW5dqaPnz8PREVZWWLAA48Zxj0ssxqVL2LMHJ04gP5+z1NHhjurpQSAAAENDAODzOb9UVKCrCy0tfPstHB1ZV+iqQkIC/vxTVoYJhbhxAw8fch2iMzIk9nPnYu1a2Ys8ecJ1iDYwYE+2WlEzBRhLQayGsBREBoNRDQkPpzp1uOy0KVM+aHbhAvXtK8l+09WloUNpyxZ69qwCff0AW7dy6ZTLllWmG5MmEUCdOn2imv/bt/TXX9S/P6mqci+mtjb98AM9eqRYd2JiqHFjSUVEHx/KzZUczcqiHTvI3l6SmviZm4UFbdlSmRmpDBmeP6fp0yUlOsaNo4MHJdUvk5Lo3DlatYp++IHu3JE999AhqYerp0eNGlGrVmRvT8OG0ePHFXwrDEXCUhAZ1QQWAWMwGNWT1FSsX4+dO9G7Nw4d+pjl3bs4fBhBQYiIkOw0N0f//nB0RM+e0NRUtrMcy5cjKwve3lBRAYBdu+DqCrEYHh7w9q4gH2S4fh3ffoukJAgEcHPD0qWfiGulp+P4cRw+jMuXQQQeD717w80NgwdzcahyU5pG+scfiIwE/ksjnTULRkZSZjk5EAoBICsLYjGIkJkJACIRsrO56+Tm4tkzbN6MhAQAqFULrq6YORMNGyrEU0Z5efECK1fir79QXMztMTREhw7o2BEdOqBDBzRqJOesBw/g6oqUFGRlcQ/9fXx8MHu21J68PNy7h44doa6uhHtgKJSaGQFjAqwawgQYg8FgcKSm4soVnD6NgABJkpOGBrp1g4MDHBzQvr1y85kaN0ZCApydcfAgp8EOH4aLC4RCLFiAVauUOPRHyM2Flxc2bIBQCC0t9O+PESPg5PQJJRYXh127sG0bNwWuXx/TpsnRSWWFCKdPw9sbN24AgI4OvL0xc2ZZLiUWIyAAGzYgJAQA+HwMHAhPT9jbK8RTRnlJSMDffyMsDOHheP1a6lC9epwSK5VkcpcfZmYiK4vbRCI5icZubvD1hZ4eBg7E8OEYOJAtIKy6MAHGqCYwAcZgMGoc+/bh338xZQrs7OQbiEQIC0NgIIKCEB4uWf5vagonJyxcqKwQyd276NsXGRkYORKHDnHzxKNHMX48SkowYwY2baq0FS0REZg3DxcvonQmoK4OPz84On7irJwcHDqE9eu5qifq6hg9Gj/9hDZtFOXXlStYtQrnzqF3b05BlZm7d+Hjg8OHUVICALa2cHfH2LFVZWEgA0BSEsLDER6O27cRHi61GAyAqSk6doSZGRo2RKNGqF8fjRqhXj35CxjfcekS5s/HvXvcrxoacHDA8OEYMgS1ayvrRhhlgwkwRjWBCTAGg1HjcHDAhQsA0LUr5s7F8OEfy4578wbBwTh3DufPIzkZAHR08NtvmDNHKRPze/fg4ICMDIwYgcOHuSECAjBqFAoLMX06Nm/+xHRSqSQl4eRJnDiBmzdx7BgGDfqss4hw4QK2b8eJExCJgP/EzbhxXKCv3Dx/DkND2Zjcv/9i1Srk5XGVGkuTEoVC5ORARwdBQbC0lHOp5GRs3QpfX64eo4kJXF0VGLpjKJKnTyVi7O5d5OTIsVFRQb16MDVFgwZo0ACmpqhfn1NopqYSs/h4nDyJkycRGsp95SIQYPJkbN9eQffC+ByYAGNUE5gAYzAYNY6UFKxfj23buO/PmzbFjBkYPhzNmn3sLCLcv4/ff8exYwBgZQVfX/TsqXj37t1D375IT5fSYIGBGDEChYXo1QurVqFjR8WPW34uXkRUFAYMgJmZfIPYWPj6Ys8ebhlW48b48UdMmaKkQMOCBVi9Wv4hTU1cvQpbW6mdUVF4+RI9ekBVFfn52LcP69cjKgoAtLUxYQJ690br1mjWTFGykaFIxGJER+P+fSQm4uVLJCTg5Uu8fInkZHxo9mplBTc3uLhI5RympMDPDydP4uJFWFlJImOMqgATYIxqAhNgDAajhpKXh7174eODuDhuj6Ultm7FN9984sRLl+DmxuXUOTlh82b5pQDKwzsNNmgQjh/nigNcuIAxY5CeDh4Pzs5YsQLNmyt43HLSqhVXGcPGBs7OcHGR/8rk5GDvXmzahJgYABAI0LEjt8quSxeoqSnKncJChIaCz4euLvBfYXqBAHp60NSEhoasfWnLKWNjjB6NceO4/gXnz2PdOpw/L5nEq6vD0hJWVmjVCtbWsLZG06aVGZVkfJySErx6haQkJCXh5UskJiIpCa9eISYG6ekAoK+PSZMwcyZatJA6saAAPJ7s+yQnB2vXomVL9OvHgqKVQM0UYKwMfTWElaFnMBg1GpGI/Pzo22/J0JAAWrr0s84qLiYfH9LR4eqte3lRUZGCHQsPp1q1CKCff5bszMkhb2/S1SWAVFXJ1ZVevVLwuOUhNJTGjiU9Pa7+N59PDg60b5/8+u5iMZ07R05OXK3xd8XrBwygtWspIoLE4gp2f/9+sraW+NK0Kf36K1e1/PFjWrSIBg+mpk3l1LjX0qIOHWjSJPrjDwoMpISECnacURaEQvL3JwcH7iHyeOTgQEeOkFD4sbOOH+fsBQKyt6cVK+jevYrymMHK0DOqDSwCxmAwGAAgFCIqCpaWsullkZEIDkbPnrCxkT3l5UssXIh9+wCgTRv4+qJbN0W6dPcupkzBjz/C1VV23GXLsHs3hEJoa8PNDQsXlq3rsVIoKkJICPbvx6lTKCwEAD097NiB0aPl2+fnIzQUISEICcHdu5JIk7ExevaEgwMcHdG4cQU5Dzx4gAMHcPgwEhO5Pe3awddX0tA7NxdRUXj0CI8f4+FDREYiKUn2Is2bY/hwDB2KLl1YcKyqEx2NLVuwaxfy8gCgWTNMm4Zp01CrlhzjkhJs2YLTp/Hvv5Li+A0aYOBADBuGgQMrzu0yk5+PjAxkZnK90zMzQYR69dCqlazl/fvw94dIBHNzWFrCwqLiWnJ8CBYBY1QTWASMwWAwPsaoUdw33g0bkqsrnT0rG5kJCSELC+4rdBcXSk6uIMeiosjZmQvHGBmRtzcVFlbQ0J/J27e0dSt16UIA/fbbZ52SnEz799OkSdSwoWynZDc3OnqUIiKooEDJfhMRiUR0+TJNm8ZFRj08Pmb89i1du0bbttGsWdSnDxkZSRyvW5d711S1h8OQITOTfHyoaVPuwWlokIsLPXjwQfucHDpxgqZOpfr1JY/7xo0K9FgasZiSkujWLTp3jg4epIAAOTYeHqSuLr8XuYqKnGh6165SNnw+mZmRkxMtWEDBwRVwT3JgETBGNYFFwBgMBuNjREVh3TqcPYuXL7k9Dg7Ytk2qzkRxMdatw5IlKCyEgQGWLIGbm6L6Dn+CW7fg4YErVwCgcWMsWoSpU6tczCUjA4aGsgX0xeJP+BkdzYXFLl9GVpZkP4+HRo3QogVatEDz5mjRAi1bwsxMgYvH3qeoCGFh6NBB9rv/Y8cwbx7MzWFjAxsbtG0LCwsueioW4949nD6Nw4e5ZW4AtLTQuzecnTF0aBWKVjJkEIlw5gw2bcKFC1wstlcvuLlh6NAPfqBLq/OcPYvERKxZU6E9xO7dw+7dePYMz57h+XMu3vyOp09lq+F8/z327IGWFgwNYWjIrS3V1wefj5YtsX69bPj/1i2cPctVN4mMxJMnXIcGAAIB8vIqoXV1zYyAMQFWDWECjMFgMD4NEe7dQ0AANm5EWhq0tLB8OebMkZIQz57B3R0BAQBgY4PNmyVZa8omJATz5yMiAgBatcLKlXByqqChy8zo0QgMxMiRGDsWXbpAT++DlkIhbt9GSAhu30ZsLOLjJblf7xAIYGrKqbIWLWBtjV69lKqBfX3h5ia1R0MDrVqhXTvY22PCBE5vRkbizBmcPo3QUG5CLxDAzg7Ozhg1Cg0aKM9BRrmIioKvL/7+mytt37gxZszA1Kny8xI/hFiMwYNRXIyRIzF8OOrW/WI3kpIQG4unT1FSAldXWYE0bBj8/CS/1qmDRo1QuzYMDWFtjYUL5XwCiorKrppKShAXh8ePER2NevUwdWoZr1MemABjVBOYAGMwGIwvIC0Nc+fiwAEA2LFDzhzk1CnMmYMXL8DnY84crFghp9xemXnxAqtXY/RoOaUaRSLs2QMvLy5S5+iImTPRo8fHhE3l4u6OTZskosTKCnZ26NIFdnawsPhYv2mRCC9eIC4OcXGIjUVcHJ48wfPnEAqlzJo2hbs7pkzhaiAqgaQk3LuH+/e5LT5esn4tPFy2xv2LFzh1Cn5++Pdfrhcan49OndCjB9q0QZs2MDdnHZ+rHNnZ2LsXvr5cJFNLC999h1mz5CyXkktxMUxNkZICAAIBunXDqFEYMQL168u3z8vD6dN4/Bixsdxbu7SFXSkXLqB3byn72FgEBqJpUzRtCjMzaGuX5R6/LpgAY1QTmABjMBiML+bsWezYgRUrYGUl52h+PlaswOrVKClBq1bYt09OAY+ysWMHXF3B42H8ePzxB0xMZA0KCrB+PVatQmYmAKiooGNH9OmDPn3QpUslJAx9nCdP8PffCA7G3btSQa0RI3D8+JddqqQE8fGcKouLQ3Aw111AXx9Tp2LWrAoo45GVhQcPcP8+Cgsxb55ssGLePFy4ABsbWFggNxcREbhwAQUFEgM1NVhZoXVrtG6Ntm3Rpg3q1VO2y4zP5do1bNggaSRub4/ZszF8+Kc7wmVlwd8fx47h/HkuRZDPR9eucHbGtGmyea2//ooVK6T2GBvD3BwtWqB1a7i5MYnOBBijusAEGIPBYCiFiAi4uCAiAqqqWLQIixcrICNOKMSKFVi1CgUF0NPDkiWYNUvOHDAjA1u2IDAQt25J4kJaWrC358RYu3YVtETtMykqwp07uHULN24gLAwDB2LzZlmbkBAYGaFJExgafvqCYjEuXsT69ThzBgD4fAwcCE9P2Nsr3vnPo29fhIRIfhUI0KIFTEygqgoixMfj2TOIxVKnGBujbVu0bs2FyFq3ZvPvSubJE+zciW3buO83mjbF9OkfrJcoQ3Y2zpzBsWM4d44T3mvXYu5cKZv797F2LUxNYW4Oc3O0bAkDAyXcxtcME2CMagITYAwGg6EsCguxZAlWr4ZYDDs77NunmNbJSUlYtIgrf29ujg0b0K+ffMu8PNy4wZWyuHdPMsHX0YGdHdf7uH37j+X7VRGuXpVkXerqwtQUTZvC1JT7YdCgD2Zf3b+PLVvw999c9MHWFu7uGDfu05ELRVNSgnv3cPcu7tzBnTt49EhSz6BBAyQlIS8Pjx7hwQM8fIiICEREcLP8dxgaYsgQjBqFvn2rXCyzRpGTg0OH4OODqCgA0NCAszMWLPjcvMTcXAQEIDQU8+ZVZHuFagITYIxqAhNgDAaDoRiWLcPBg1izRrYARkgIvv8eSUnQ1cWaNbJNvcpMQABmz8bTp+DxMG4ctm+HltbH7FNTcfEiLl7EhQt49kyyv0EDTJ6Mhf/P3p3H1Zj+fxx/tSqkFCpZslOWIcvYhlLGFgZlLGWXsZsxGMZgzMKYse+MsY0thrEvMfa9rCUihVSSZGtRnd8f7p8z9Y0wdU6dPs/HefSo+1z36XOnmcd5d93X5/pG+1v8vMWTJ4wcyblzhIcrXRH+bcwYpk9/2+nR0SxaxPz5xMYC2NoycCAjRrzTZFrOSEriyhUCAggKokYN+vVL9+zTp1SrxpMn2NlhZsbLlzx8qN5tzNwcd3e6dOHTT7NzgaF4L68nWXftUtb+vbovsVOn3DW7rGMkgAkdIQFMCCGyh48PS5cCfP45c+ZQooT6qfh4hg5l7VqA1q35/fdMlm99gMREZszg559JSGDzZjp3ftcTb9/m4EEOHuTQIR48AKhUicWLM67xz53i4rhzhzt3CAvjzh0iIxk5krp1043x9WXQIDp2ZMwYqlRRDiYlsXEj06cTFARgZka3bkov+VzmxQsaNODq1XQH9fWxs0OlIiJCecdvakqLFnh40KmTRrufi38LCmLePNasUfZxLl6cRo1o0oTGjXFyyqHNEfIvCWBCR0gAE0KI7JGayvz5fPstz55hZcXMmXh7pxvwKhU8ekSJEixdSocO2fN9w8I4coRu3T7kvZ5KxbFjDB3KlSvo6dGrF7/99n6dtnMnX1+6dSM1FX19OnZk7Fjq11eeSktj925mzeLQIQADA1xc6NkzF4aYhw+5epVr17h6latXOXtWuY+ySxeaNMHXV93a/nUS++yznGv6KN4mLo7ff2fRonSzyyYm1KtHkyY0akSjRrrwH5bWSQATOkICmBBCZKewMAYNYt8+gE6dWL483X1uUVH068fu3QBeXixcmCve9KeksGABEybw/DmWlvz8c7bdJ6lFt28zezbLlikdDxo3ZuxY2rVTL3i7dIlZs9iwgaQkgEKF+OwzevbE1TV33kOWkMDx45w4QZcuynKjsDC2bGHzZs6cUSex1q1xd6dpUypU0G69+dTt28o/04kTBAWp113q6eHgQOPGyiPLf53Hj1GpSExUfn+fPFEaMMbFAaSm8uQJQHKyMvP2aqSREcWLU7w4trbKJzrWuEUCmNAREsCEECL7rVnDsGHEx1O2LJs2qadfAJWKZcsYNYoXL7C3Z9WqTDb1+u8uXGDLFho0wNn5XTNeaCiDBnHgAEDz5ixZQuXK2V+YhkVHM2cOixYpHS3+d4Psx4/Zvp01azh4UAkxtrZ4eODhQZMm2qn5/Q0fzrx5GQ+WLMknn9CkCZ98gqNjuj3DhWY8fszJk5w4wfHjnDuXbtcBGxtlG+7XEetVsnr9ZXaxtMTammLFsLbG2jpjPLOxwdw8276XSpXjDX0kgAkdIQFMCCFyxO3bdOvGmTM0aMDp0xmfDQqiZ08uXMDAgLFjmTw5m/9S3bcvf/wBYGxMo0a0bEnLltSunfXbcF9fBg/m4UNMTRkzhgkTdOFP6E+esHgxs2cTGYmXF6tXZzLm7l3WrWPFCm7cUI44OODhQe/e2NtrsNYPERTEt99y6BDx8ZkPKFqUxo2VPFa3ri78k+Y5L1/i78/Jkxw/zsmTyu7Mb2Fujr4+BQoovXXMzJTOnRYW6Omhr68EJyMj5Q8sJiaYmpKUxMOHREcTHU1MDDExGfcn/18FClC8uDqelSiBjU26nFakCE+e8OgRsbE8eqR88vCh+sjr4ykpbNz4HmtRP4AEMKEjJIAJIUROefmSRYuoWZPmzTN5NjmZyZP55RdSU3F3x9c3O5uLR0aydCn79nH2rHLrElC8OK6ueHnRuvXbzn30iG++URqK1KrFsmXUq5dthWlRUhIHDlC3bhY7HPv7s3o1GzYo7Un09WnYEG9vunXL5eurUlI4d07ZdODUKaXN/avWHXfvqocVLEiDBnzyCU2b0qBBrrgHNh+6eZPHj9HTU0esV8nq9ZfZ5VUMi4lRp7IHD9SfREVl0lX0g1lYsGEDn36abS/4vySACR0hAUwIIbTpxAk6duThQ9q04a+/sn+Dp8ePOXiQ/fvZv5+wMAATE168yPpWocOH8fHhxg0MDRk8mB9/1Nm36qdOcf8+LVumy1fJyezZw+rV7NqlXiTWuTNeXri45P77+Z4948gR/PzQ12fGDO7d4+hRjh/n2DGuXeP1uzkDA6pUoU4d5VG7NkWKaLVuoXGJicTEEBmp5LSoKB48SBfYXrygYEEsLbGyUn8sVizjESsrTWxPJwFM6AgJYEIIoWXXruHiQlQULVuybVsO7sd1/Tr791OiBF27vtP4hASmTOG330hJwd6eRYto1SqnatMiW1uioihQgEPUWogAACAASURBVBYt6NiR9u2xtlY/GxfHpk2sWaPuOViqFD174uWFg4O2Sv4vbt3CwYHkZAoWJDFR3SUC0NOjYkV1HqtTRxr3idxFApjQERLAhBBCo3bvZtUqfviBSpXUB4ODcXEhMpJmzdi1i0KFNFrShQuMGkW/fnh5ZfJsQAADBhAQANCuHd7etGuXq3dtfl+bNrFwIcePK/dq6uvz8cd07EjHjun+jV4tEvv9d0JClCMODnh707t3usCW66Wk0KsXf/+tdM97O3t7JYZZWvL4MXFxPH/Os2c8fUpCAsnJFCuGiQnPn/P4MQkJJCRgaEj16vTsSZ8+Od6SQeQ3EsCEjpAAJoQQGjVwIMuWYWbGwoX8+z3E9eu4uHD/Pp98wq5dGr3fb/VqevUCcHVl8eJMOmSnpDBnDpMmKe/ZixThs8/o3p0WLXJnx/YP8fAh27fz998cOKDuQ/fzz4wbl3Hkq0Vi69bx8CGAgQHOznh50aVLNi/fyUnJyZw+zdWrREdz/z5RUURFER1Nly7UrElAAAEBXLz4TiHtTYyMaNKEiRNxds6+ukX+JgFM6AgJYEIIoVFPnuDjw4YNAL16MX++OmvduIGLCxERNG3K7t2ay2AqFatWMXo0sbGYmjJxIqNHZ9IpLyaG9etZt44zZ5QjNjZ4etK9Ow0aaKhUDXj+nH372LaNgweZOJFBgzIflpTE/v2sWcO2bUq/CwsL3N3x9qZFC92Y+klN5fp1Tp1i7lxiY5X+ECYmFC5MkSIULoy5Oc2aYWOjHDE1pVAhbtxg2DACAtTNX8zMaNuW779PN6EoxAeQACZ0hAQwIYTQgtWrGTyY58+pXJkNG6hdWzkeEoKzMxERNGnC7t0abbsXF8e4cSxbhkpFjRosWZJuv6x/u3OH9etZuZLgYOVImTJ07EifPnz0kcbq1Y5LlzhwAHd3qlRRjrzKpatX4++vHKlYETc3nJxwcsLRMX82fX/5kvnzWbSImzfVPT9sbRkzhp49KVZMq8WJPEsCmNAREsCEEEI7rl2ja1euXKFAAVatUjfGCAvD2ZmwMBo3ZvduTbel8/Nj0CBu3UJfnyFDmDXrbTcZBgbi68vq1dy+rRx5tXdWr16UK6eZejWtc2f++gugfn169uTzzyleXHkqMJA1a/jzT+7dU483MaFmTSWM5cs8FhvLjz/y559KV3+gQAHc3PDwyFv3bIpcQQKY0BESwIQQQmsSExk1isWLMTRkxw51j8HwcJyduX2bRo3Ys0fTGSwhgalT+fVXXr7k9Omsby9MS+PIEdatY8sW4uIA9PVp0YLhw2nTJvd3bH8/N24wbRp//aXseWxkxKef4uVF+/aYmACkpXHyJGfPcv48/v6EhPDv904mJtSqlS6PvdpeNx+4fJnt2zl8mH/+UVovWlkxahQjRujsBgci20kAEzpCApgQQmjZ5MlMmZKx38OdOzg7ExqKkxP792uhHXhgIGfOvF8nu6Qk9uxh3Tp27lT6WFSuzIgR9Oql6b6OOS0hge3bWbuWffuUBWDm5kyblsmCsSdPCAjA3195/G8ec3dn7FicnDRXvLZFRLBhA2vXcvEigIkJn3/OwoU61VlT5BAJYEJHSAATQgjtu38fW9uMUefOHVxcuHWLOnU4cCAvbckUH8/vvzNvnrL1c9GiDBjA0KGULq3lwrLdqwVga9dy7hyenmzcmMX4+Ph0eez1AqkWLRg7Fjc3DZSce5w4Qf/+ykJCIyO8vFiwQJlHFCJT+TOA6dZdBEIIIUQuUbJkJhNNZcrwzz9UrEhAAK6uxMZqo7L0jhzh558JDMximLk5X37JrVts346rK3Fx/PIL9va4u3PihEYK1ZTixRk+nLNnuX+f1aszPnvpEu7uDB3KkiWcPMmTJ5ib4+zM6NGsX8+NG9y7x5gxFCnCwYO0bImTE5s2qbsH6rrGjQkKYuRIjI15+ZIVKzA3Z8gQUlK0XZkQuYkEMCGEEEKDSpdWMtiFC7i6KhtPadG33zJ+PNWr4+jIlClcu/a2wfr6uLtz4AABAQwciLExO3fSpAl167J6ta69y7a1pUCBjAePHmXnThYsYNAgGjfG3Jxy5XB355tv+Osv0tIoWZLp07l3j9mzsbMjIICuXalUiTlz1HuR6TQ9PWbN4ulTJYYlJ7NwIYUL8+WXyjoxIYQEMCGEECLnpaWp33+XKsXhw1SuzMWLuLkRHa3NwhYton9/rKwICmLyZBwcqFGDqVPV/egzVbs2S5Zw+zaTJlGsGP7+9OpFmTJMnsyjR5oqXRsGD8bPjxkz6N0bJydMTQkLY+dOpk2jc2f27VOGmZkxYgShoaxaRdWq3L7NyJGULav7P5//Z2zMrFk8fky/fhgakpTErFmULImvr7YrEyIXkAAmhBBC5Dxvb6yt+ecf5Us7O/75h6pVuXiRKlWYNk1r0yPVq7NsGVFR7N1Lv35YWnL1Kt99R7VqjBmTxbk2NkyeTHg4ixZRtSqRkUyZQtmy+PiwfTvPnmnkAjTLwIAWLRg9mj/+4Px5nj7l+nV8fZk0iREjMm6zZmyMtzeBgWzfToMGxMQoP58RI9L1tdddpqYsX86jR3TtipER0dF4etKoEYcOabsyIbRKApgQQgiR80qX5ulT3N05elQ5UrIk//xDmzbEx/PNN1Stytq1WrtJy9CQTz9l+XKioti9mz59sLXF2Pidzi1YkEGDCApi927c3Hj+nKVL6dABS0ucnZk2jQsX0NWOXwYGVK5Mly5Mnszs2VhYpHs2NZXvvmPBApydOX2aAwdwdeXZM+bOpWJF+vcnJERLdWuUmRkbNhAfz2+/Ubw4p07RogUtW7JoEWfOaP8mXCE0T7og6iDpgiiEELmOSsXgwSxeTMGC7N5Ns2bqpw4dYvRoLlwAcHJixgycnbVVZhYePuT0aVq0eFt/8cBAtmxh717OnlU3n7C2xs2NVq1wc6NECc0Uq30REZQujUqFhQU+PgwfTsmSBAQwfTpbtpCaiqEh3t589x1ly2q7Vg15+pTZs5k5k8eP1QdNTSlXjo8/pn17nJ01vUme0C7pgiiEEEKInKGnx8KFDBjAixe0bcuxY+qnXFzw92fTJuzt8ffHxQU3N65c0V6tbzZmDO7u2NoyeDDnz2c+xtGR777j5EkeP2b7dgYOpGxZoqNZu5aePbG2xtGRcePw8yMpSbPVa5ydHbt28cknPH7M9OmUK0fv3hgZsXEjwcEMGICeHitWULkyQ4dy/762y9UEMzMmTiQ0lIUL6dlTyVoJCQQFsWIFHTtibo6FBQ0asGxZ/mkeKfIdmQHTQTIDJoQQuVRqKr17s3Yt5ubs30/9+umeTUhg7lx+/pn4ePT16dGDX37BxkZLtWbm5Em++orTp5Uva9akb1969sTKKosTg4LYt499+zh6VL3azcyMpk1xdKRKFapUoWpVihXLweK16OxZfvtNmfXS06NlS775hmbNCA/np59YsYKUFIyN6d2bKVNy1794zrt/X5kxvXiRqKh0N+GamVG/Ph9/TJUqlCtH2bL4+/P0KcWKYWND8eIUL55Jo0qRt+TPGTAJYDpIApgQQuReqan06MHGjVhY4OeHk1PGAbGxzJjBrFkkJ1OoEEOHMmECZmbaqPUNAgNZsYI1a4iJAShQgA4d+PZbatTI+tyEBI4dU8LY/24+ZmWlJLHXkax8eYyMsv8StOL2bWbPZsUKnj3D0JDYWGUCKDiYn35i3TpSU5V/8bFjKVpU2+VqQUoK/v789ReHDxMRQURE1qcUKoS1Nba2DB+Op2fOlyiymwQwoSMkgAkhRK6WkkK3bmzejLPzG/vBXb/OxIlK0247O777jn79MDDQZJlZSE5mxw5WrGDfPlJTad2a3bvf7xXu3eP0aW7cIDiY4GBu3CA+PuMYIyPKl6dqVWrUoG9fypXLrvK1Ji6O5ctJSmLChHRbdQcGMmUKmzejUmFmxuDBfPMN5ubaK1T7oqM5fZpz5wgNJSyMsDAiI984uHBhGjbE3Z0+fShcWINViv9GApjQERLAhBAit3v5kl9+4eOPadHibcMOH+brr5XVVh99xLBhtGxJqVKaqfFd3bvH1q00aULt2v/1pSIjCQ7m+nWuX1c+CQ9X35RmYECXLoweTd26//Ub5VpnzzJ1Kjt3AlhZ8fXXDBtGwYLaLiu3SExUklhYGOHhhIVx8yZhYelaKZqbM2AAw4aRmMiCBbi40KqV3KmYe0kAEzpCApgQQugOlYp165gwgfBw5YiDAy1b4uZGs2YUKqTV4t5qzhy++orq1WnShEaNaNqU0qXf+0USE7lxg+vX2b2bdetITgZwdmb0aFq3TjeDlNetWMG0aXh5MXQo164xcaIyO1q8OF99xYgRmJhou8TcKyGBsDAuXWLRImWjB0NDqlRR7nI1N6dDB7p2xc1Nd25o1Rn5M4BJF0QhhBAiF9PTo0cPgoNZtowOHShShKAgZs+mbVusrGjRgmnTCAjQ2gZib2FhgaEhly6xYAE9elCmDGXK0L078+dz48a7voiJCTVr4uHBH39w5w6TJlG0KP/8Q9u2VKnCnDkkJubkNWhQdDQhIUpL+r//5s8/2beP+vWJiWHcOCpXZu5cXrzQdpW5lKkp1arx+eccOUJAAAMHYmiopK+CBYmPZ/Vq2rbFxoYBA/Dzk/6KQstkBkwHyQyYEELkSa+awX3zDeXLv3FMaioXL+Lnh58fR47w8qVyvFgxnJ1xdaVVK8qU0Uy9WUtM5Px5jh/nxAlOnuTRI+W4sTF3737ghmDPnvH778ycyZ07ANbWDBrE8OFYWmZb2dpy/DjTp7NrFyoVxsZ07cq33xIczKRJXLwIUKIEI0cyZIhslZWlqCgWL2b+fGJjAczMMDXlwQPlWSenN26jIDQsf86ASQDTQRLAhBAiT+rUia1bMTVl4kRGj876Zqm4OA4eZP9+DhwgLEx9vHp1+vVj2LDc1bRDpeLaNU6c4Phx9PRYtizjBfbty+nT2NtTrhzly6s/ZtqI4uVLtm1jxgzOnQMoXJi+ffnqq1wUPj+Yvz8//cS2baSlYWRE9+78/DPnz/PTT8oGAGZm9OnDN9/kt4b1HyApiY0bmT6doCCAQoWoUoUnT6hQgb17tV2cAPJrAEMldE6dOnWADh06aLsQIYQQ7yMmRuXlpdLTU4HK0VF17Nh7nHv9umrePFX79qrChVWgAlW9eqpLl3Ks1hxQr55SeYaHlZXKxyfzU9LSVHv3qlxdlZFGRiovL9XFi5qtO2cEBam8vVVGRipQTZyoHDx2TNWunXKxhQqphg9X3b2r1SrzhtRU1Y4dKhcX5SdnYKDq3Fl1/Hi6MXFxqtGjVStWqGJitFRlfvUqd61Zs0bbhWiUrAETQgghcodixVi9msOHcXAgMJBPPsHbO11/t7eoXJmhQ/n7bx49Yts2ypbl3Dnq1uW770hKyuG6s8mJE1y9yvbtzJ7NiBG4u1O9OgULEhvLsWOZn6Knx6efcuAAAQF0745KxZo1fPQRjRqxZAmPH2v2ArJVtWqsWsWNG8yezaBBysEmTdixA39/PDx48YK5c6lQAW/v91hTly/p69OuHQcPcvEivXtjaMiWLTRpQsOG+Poq68GOHOHXX+nbFxsbnJ2ZM0fd9UaIbCe3IOoguQVRCCHytqQkpk1j2jQSEylenIUL6dLl/V7hxQu+/55ffyU1lYoVWb6cZs1yptacFx2Nmdk7tWIPD1d2On7yBMDEhM8+o1cv3NzQ17m/OF+5wowZyvbN+vp07szkyTg4aLusPCAqioULWbRI+eNGuXKMHEmvXmzezObNHDqk9NoE6tThs8/w9KRyZS3Wq+Py5y2IOvf/IyGEECKvK1CASZO4dAkXF2Ji6NWL9/1racGCTJvG0aNUq8bNmzg74+PDs2c5U24Os7bOJH1t2UKHDmzblu4nU7Yss2YRHc2mTbRrx8uXrF9Pq1aULs2IEVy+rMmqc1BkJHXrsmgRP/1EYCC9e2NggK8vNWrQubM0l8iSjQ3ff8+9e6xahYMDt28zYgRlynD5MkuXEhPD+vV4emJmRkAAEyfi6MitW9ouWugWmQHTQTIDJoQQumPLFoyMaN/+A09/+ZKZM/nuO5KTsbdn6VLc3LK1Pi0ZPJhFiwBq1GD8eDw9M5njiohg7Vp+/52QEOWIkxNeXvTsiZWVRqvNXkFB1KlDUhImJgwaxLhxJCYyYwa//6405W/WjFGjcHfXwXm/7JaWxqFDzJmj7H1tZETHjoweTf36JCXh58fWrUREsHGjFhpPpqURHc2DB7x4wfPnxMeTkEC5cjRunHHkL7+wfXvmOzI0bMi8eRkPbtrE7du4uVG7tvb30sufM2DShEMHSRMOIYTQcXfvqubOfY9uE5cuqVtceHioHj7MyeI0IiFBNW+eqkwZ5aIqV1b98YcqOTnzwefPqwYOVJmZKYNNTFQeHqrt21UvX2q26Oxz7ZrKy0tlYKACVcGCquHDVVFRqshI1ZgxKnNz5TIrVVLNn6969kzbteYNAQEqLy+l6QmoGjdWbd+uSkt74/jTp1WRkTlVzIQJqlKlVIaGmbSkMTLK5Ne8atXM+9eAqmhRVUpKxvE2NsqzNjaqPn1UmzapHj/OqWvJUv5swiEzYDpIZsCEEELHDRnCwoUApUrRpg1t2uDqSqFCbzslJYUFC5gwgefPsbZm/vz3XleWCyUns3o106Ypt4iVK8fYsfTrh6FhJoOfP2fLFlau5MgRZd/q0qXp3ZtevahQQaNlZ5fLl/nuO7ZvR6WiSBFGjuSrr9DXZ906Zs7k+nWAIkXo3ZvRoyldWtvl5gHh4cydy/LlyipCR0dGjaJHD0xM0g07f5569TA0pE0b+vWjTZvMf+P+LTKS0FDCwpTH3bvcu0dEBMWKcfkypqbpBjdsqOw4UKIENjaYmmJmpiyEbNiQIUMyvnhUFDdvZnyRV+zsMtmt4PRpVq5k927u3lWOGBrSuDGtW9O7N9bWWVxL9pIZMKEjZAZMCCF0XEiIql8/VcmS6j90FyigatlSNXu26s6dt51486bK2Vk5pV071b17mqo4J718qVqzRlWtmnJdCxdmMf72bdWUKary5ZXxenqqZs1UK1fm1cmis2dVrVop1+LurhxMTVVt356uQb+Hh+rUKa0Wmmc8fqyaMUNVurTywzM1VTk7qyZPVh0+rEpIUKlUqqdPVR4e6ukyGxvVmDGq4GCVSpX5LGzfvm+coapUSfX8ecbxz5+rwsNViYk5fJ0q1eXLqunTVc2bq6+le/cc/6YZyAyY0BEyAyaEEPmCSsXFi+zeza5dnD2rtNO2siIm5m0LO9LSWLyYceN4+hRLSyZNomdPLC01VnVOSUvjr7/YuZPx49+paZ1KxbFjrFjBli1KexIzMzw86NOHxo21vzLmfZ04waxZtGjBF1+kOx4QwOzZrF9PSgpA48aMGEGnTrlrk+5c6eVLfH2ZO5dz55QZU8DEhAYNaN6c5s0pXx5fX1asUHZ5BkxNMTbmypWM043jxrFqFWXKUK4c9vbY21O6NKVLY2tL8eIavag3iY/Hz48jR/DwoGlTjX7r/DkDJgFMB0kAE0KIfOfhQ/btY88erK357besx9+5w6BB7NkDYGxMmzZ4e9OmDQUK5HSlWjB/Ptev07EjzZtnEjwSEti5k6VLOXhQ6alYpgzdujFoEPb2Gq81Z0RGsmQJc+cSFwdQoQLDhtG/fxa3rQoAnj7lzBn8/PDz48IFdRgzNKRWLVxdsbIiMJC//uLpUypU4MQJTd/Fl6dJABM6QgKYEEKId7J1K0uXcuCAMntmaUnXrvTsSaNG2q4sW1WoQGgoQLFidOhA5860aIGxccZhd+6wfj2LFxMWBqCvj4sLXl506fJOu5DlTosXk5JC//6YmPDkCStWMGeOcoHGxpQtS/nyGR+a7/eXd8TFcewYhw9z5AiXLin/3QAFClC3LlWqYGjI06fKdONrSUm8eJHxpZ494+XLzL/LkyfqVzYxwdYWOzvs7LC1pVQpbGwoXRpra4yMsvHKtEYCmNAREsCEEEKo+fsDODm9cUBkJJs24evLiRPKkVdTQP37U7GiJirMaTdvsmoVW7Zw7ZpyxMICd3c6d6ZNm4xvY1NTOXCAlSv5+2+lsbelJd260aoV9etTooSmi/8vUlMpXJjEREqW5JtvGDCAAgVITWXrVmbN4uTJzM8qVixdHqtQAXt7rK0zb/KQjz1+rA5jFy+qI5Nm6OlhbU3JktjZUbIkJUuqs5mtLcWKabSY/0ICmNAREsCEEEIoXvXHe/4cHx+mT89iciMoiE2bWLVKmSHh/zfO6tEjL72he4ugILZsYcsWLl1Sjnz9Nb/8kvnguDjWrWPlynRbG9vbU7++8qhTJw/cwvfPP3z9tRLCS5Vi/Hj69VNm/xITCQ3N5JGQkPlLmZlha0uJEpQooaxesrbGxoYSJZRPcv9PI8fEx3PsGPfvAxQunDHUFyiQyRzq/w57rUgR9a2yL15w7x5RUdy9S1QU9+5x/z737xMd/bbIl2HerHRpdTazs1OidHw8T56ke8TFqT9/+pQnT3jxgunTqV79g34o70YCmNAREsCEEEKo/fYb48eTnEypUixaRLt2WYxPTeXgQdasYetWnj8HKFAAd3f69KF167zXnSJTt26xeTOHDjF0KO7uWQy+coUNGzh1Cn9/pT35KwYGODpSrx4NGlC/Po6OWTcj1xY/P8aNU2JY6dJ89RWDBr1xvd+rjum3bqkjWXg4MTEkJWXxXQoWxM6O6tWpVYtatfjoI91ZRJf7pKQQHU1EBJGR6bJZRAT37/P48dvONTPj6dN3/Ubz52fS+D4bSQATOkICmBBCiHRCQhgwgCNHADw8mD//nW6le/aMv/5izRoOHVI6D1Srxpdf4uWlm706XnkVPJo3z2R6Ii2N4GDOnlUely+nW8RTsCB16lC/Pp0758ZFdCoVW7cyeTJXrgDUrIm///slxsePiYoiJoaoKPUn0dHExBAZSXR0JlNnFhZKEnsVyapXz2TpncgBr+bNIiPVH1/Nm736MjkZwMyMIkXUDwsLzM3THSlShBIlaNIkZ1tmSgATOkICmBBCiIxUKpYtY/Ronj6laFGmTWPgwHc9NyKCtWtZuJA7dwCsrRk6lC++wMoq5+rVmgYNOHsWa2t69KBPn7fdfZWYyIULnDvH2bOcO0dICK/fUzVrxvjxtGypmZLfQ1oaW7YwZQovX3L1asaQ2asXt29jY6PcWGhnR/Hiym2Hdnbo62fx4s+eERbG5ctcusSFC1y6xIMH6QYYGVGtmhLGatVSVi+Zm2fzNYqsxMVhYZFbJrMlgAkdIQFMCCFE5sLC8PFh/36AyZOZNOk9zk1LY9cufvqJ06cBChTA05Px46laNUdK1Za//mLSJK5eVb6sW5fevenenaJFszgxLo6zZ/nnH5YuVbq916vH+PF06JBb3uq+3cuXWFsrlf+vTz9l796MB3/9lTt3MDdXHhYWWFtTpw6FCysDIiO5dImLF7l4kUuXCAnJZN2SqSk2NtjaKj0lXn98fTDX3tgpsoMEMKEjJIAJIYR4m5UrmTSJL79kxIgPOf34caZPZ9cuVCr09WnThnHjaNw4u6vUqvPnWbmSdeuUQGJiQp06fP89LVpkfe6zZ/z+O7/8ovRkcHRkzBi6d88DQSI2lsBApcNDdDSRkTx4wP37xMTQoQMLFqQbHB+PpaV6V6zXDA2pW5cxY/jss4xPvXjBlStKJAsKIiqKiAhlF+w3edXsz8UFDw9atcLE5D9fpMhdJIAJHSEBTAghRI4LCWH+fJYtU1b+ODkxfDg9euTsehENS0ri779ZuZL9+0lNZcgQ5s9PN0Cl4soVSpbMpEtkUhIbN/L999y6BWBvz8iR+PjoVIQ4epQLF4iPVz/Cwrh4kZSUzGfMMvXiBffvK+vKXq0li4hQgl90NA8eqCfNihShfXs8PWnZUpdXIeYzEsCEjpAAJoQQ4kP06UNMDJ6edOz4rrvxPnjAwoXMn09sLED58gwfzoABeXjn4kzFxXH1Kk5OGa9rzRq8vQFKleKjj5RHixZYWCgDXr5k/Xp+/pngYABrawYN4ssvdXmz42fP8PenShVsbNIdv3WLkSOpWJHmzWnaFEvLd3q11FRCQ9m6lU2blC6OgLk5HTrg6Ymbm3T1yOskgAkdIQFMCCHEe1OpKF2aiAgAU1PatqVbN9q0eacZm+fP+eMPZs0iNBSgSBHc3GjdmjZtsLXN2bK1KziYQYPw9093H52ZGYMGMWqU+tpfLZ/7/ntlS7FixRgyhBEjsl5Xpkt8ffH0VD7X18fBgbJlKVZM2fe5d++sQ3t4ONu2pdsx/NWG2h4efPqpJLE8SgKY0BESwIQQQnyIR4/w9WX9eo4dU9b2mJvTsSPdu+PmlnUnidRUtm5l5kxOnVKO6Onx0Ue0aUObNjRooFN3J/5bWhq3bnHhAhcvcuIER48CmJlx82a6dv8qFTt3qruYmJszfDijR+vybNi/qVQcO8ahQxw+zJkzJCame/aPP+jdO92Rw4f59lulsUezZri7q/PqjRts2oSvL5cvK0csLfnsMzw9adFCZ3/NdJQEMKEjJIAJIYT4TyIi2LiR9euVGRtgwQIGD37X06Oj2bePnTvZt0+9c7GlJS1a4OpKu3aULJn9Nece/v7MmEFkJLt2qfsB/tuhQ/z4I4cOAVhZ8c03DBmiU2vDspSYyNWrREXx8CEPHpCQwIgR6vs2X/npJyZMUH9pZISLC50707EjxYsrB4OD2bSJTZsIDFSO2NnRpw99+1KunEauRPxXEsCEjpAAJoQQInvcuMGGDZw4wdSp1K//3qenpHD6NDt34uenXsCjr0/t2koSa9Qo692ldNXJk4wfr+yOXbo0kybRq1ce6JSoMWlpXLjA/fuEhfH33xw5QkoKgIEB7dqxZUu6jzaZXQAAIABJREFUma7AQHx92bCB69cB9PVxcaF/fzp2lHYduZwEMKEjJIAJIYTIcSEhJCfj6Piu42/eZPdudu/myBH17WeWllSvTrVqODgoDx2eHPP3Z+ZMZQ7ndez082PcOCWdVqnC1Kl06ZI39g3TsIcP2b6dLVs4eBBjY+7fz3x20d+fpUv580+ePwewsMDTk8GDqVVLw/WKdyQBTOgICWBCCCFynKUlcXHUr8/AgXTtmvm74Uy9eMGhQ+zezZ49hIVlfNbCgmrVcHRUPlatStmy2Vq39ry+p65KFcaMoWdPpW+ESsXmzXz7LTduANSowcSJeHhos9Tc7OlTXr7MpInigQPY2eHgAPDkCRs2sHq1ul2HkxMDB9K9+3v8ogqNyJ8BLL/O+wshhBDivxg1iqJFOXuW/v2xs+OLLwgIeKcTCxakXTsWLuT2be7dY/9+Zs9m4EClNfnjx5w6xfLlfPUVrVphb0+RIjRogI/Pu75+rvXVV8yfj70916/Trx8VKjB7Ni9eoKeHhweBgSxZgp0dV67g6UmTJhw7pu2KcyUzs0zSV0AALVvi6EiDBqxbh6kpAwdy/DiBgYwdi5UV/v74+FCyJN7e+Plpo24h1GQGTAfJDJgQQghNSEjA15dlyzh+XDlSty4DB9K374d3oouOJjCQ4GCuXiU4mMBAHjxQP9uyJePG4ez8XyvXopQUNm5k+nSuXAGwtuarrxg2TGnCkZzMypVMnKhctasrv/1GzZraLDhPSExk1Cg2beLRI4CSJRkyhIEDlQ2yX7xg82aWL1dn2lq1GDqUXr0wMtJazQKQGTAhhBBCiPdgaoq3N8eOERjIyJFYWnL+PAMH4uv74a9pbY2LC4MHs3Ahhw4RHc3Dhxw5wldfYWbG/v24uNCgAVu3Ko3y8xxDQ3r04NIltm+nfn2ioxkzhokTlWeNjRk4kOvXGT+eQoXw86NOHfr2JTxcq0XneiYmLFrEvXssXUr16ty/z4QJlCnDgAEEBVGwIN7eHD1KcDCjR1OiBJcuMWAAlSuzdCnJydquXuQ7EsCEEEII8d84ODBrFhERrF3LsGGZzFCFhbF7tzI78b6srPjkE379lXv3mD0bW1vOnqVTJypXZs6cjNtJ5RV6eri7c+YMe/bQqRNt2qR71sKCH3/k5k0GD0Zfnz/+oHJlfHy4fVtL5eYRpqYMGMDlyxw4QNu2JCWxfDn16vHihTKgShVmzODuXdatw9GRsDB8fKhUicWLJYYJTZIAJoQQQojsYGJCjx7MnYu1dcanevSgbVuKF6dWLYYPx9eX6Oj3fv0iRRgxgtu3WbWKSpW4dYuRIylXjsmTiY/PlivQglat2LIl85sqbWxYsIDgYHr2JDWVpUupUoV+/bh1S+NV5il6eri6snMn164xahR9+mBqmm6AsTHdunHlCtu3U6cOd+7wxRdUrJiH87zIaySACSGEECKHjR7NJ59gbMzly8ybh6cnNjZUq0a/fuzZ834vVaAA3t4EB7N9O05OREUxZQplyjBiBFFROVO9xr18Sb9+fPstDx9Svjxr1hASwsCBqFSsWEHlynh6Ehys7SpzvcqVmTmT+fMzb+v/ahLy/HnlF+nuXUaOxN6e6dNJSNB4rSJ/kQAmhBBCiBz22WccOcLjxxw9ytSpuLlRuDDBwaxYwaBBmYz382PbNgIDSUrK/AX19ZV3zwcO0LgxT54wdy4VKzJiBHfu5OilaEJsLH/+yY8/Uq4cY8bw4AHlyrFkCSEhDB+OkRG+vjg64unJtWvarjUPWrECIyN69yYmRolh586xfTt16xIdzbhxEsNETpMAJoQQQgiNKFCApk359lv27ycujlOnWLSItWszDouN5dNP+ewzqlenYEHs7XF1ZcQIrl/P5DVdXTl+nKNHadOGFy+UGNapE7t2kZqqgWvKETY2HD9O27Y8e8aMGZQrx+jRxMZib8+cOVy/zvDhGBvj60v16ri75/kG/RpmYYGBAatWUa0aK1agUqlj2IED1K3LgwfqGPZ6/ZgQ2Ufa0OsgaUMvhBAiD1Op+PVXjhwhJITbt3n5UjluYEC3bsyejZVV5idevsz06WzaREoKgJ0dvXvTty/ly2uo8mzn78/337NjByoVRYrw9deMHKlsJXz3Lr/+yrJlJCSgp0fbtkyejJOTtivOI0JDGTKEvXsBmjRhyRJlB2dApWLHDr7/Hn9/AFtb3N2xssLCAgsLihalaFHlk1dHPnjHBQHk1zb0EsB0kAQwIYQQOiIlhfBwbt5k2zZWrCA5mR9+YMKEt50SFcXGjSxfztWryhEnJwYOpGdPChbUQMnZ78IFxo9X0kL9+pw5o37q3j1++YVly0hMRE+P9u2ZOFFi2LvasYMvviAiAiMjvvySyZOV3dgAlYpdu5gyhfPns3iRIkXU2axqVbp3p2nTzFedicxIABM6QgKYEEIIHRQeztatdO9OiRLvNN7fn6VL+fNPnj8HMDena1d8fKhTJ0fLzCmHDzNlCuXL8/vvGZ+KjOSXX1i6VLlfrkULvv6ali0lBmQtLo6xY1m+HJUKBwdOnMDCIt2Af/7h+nXi4nj8OJOPjx9ncqdr2bL07EnPnlStqrHryLskgAkdIQFMCCGEUDx5woYNrF7NiRPKEQcHvL3p3/+NtzLmUdHRzJzJ4sU8eQJQsyajR/P55xgZabuyXO/4cQYN4tYtrl3D3v79zn3yRElisbEcOMCff6rbwNStS8+efP55JhsziP+XPwOYNOEQQgghRJ519y61atG3L6GhmQ8oUoSBAzl+nIsXGTYMS0uCghg3jtKl8fbm6FHy+l+ig4K4cAHA2prp05XtqkuV4vJlvL0pU4bJk3n8WNtV5m5NmnDpEvfuvXf6AooUoUwZatbE2ZmffiI8nPPnGT6cYsU4f56RI7Gzw82N1at59iz7Kxd5kwQwIYQQQuRZT59y4wZ//EHVqvTr98YYBtSqxdy5RESwbh0tWpCUxJo1NGtGtWrMmPEhG0PnEi4uODnRqZPSkt7MjBEjuHWLVatwdEy3T9q9e9quNRczMMi2GVEnJ+bM4d49tm/HwwMDA/z86NWLEiXw9GTHDqVJjMjH5BZEHSS3IAohhMhHQkP54QfWrCElBSMjvLzo35+PP85iBdTt2/zxB3/8ocQSIyPc3enfn08/RT9P/Xl61iwmTuT5cwwM6NWLyZMpXVp5SqXi4EHmzGHnTgBjY7p2ZexYHB21WG9esmIFjx7Ru7dyVycQF6d8UqFCxtViQGIixsYZf39iY9m4kbVrOXVKOWJnR8uWWFsrPRWLFsXSUv25uXnOXVAulD9vQZQApoMkgAkhhMh3bt3ihx9Yu1aZXihThlGjGDkyi7PS0jh0iKVL2bZN6XdfsiReXvj4UK5cjtecXSIjmTqV5ct5+RITE4YNY9w4LC3VAy5cYNYs1q8nJQU9PVq0YPhw3N21V3EeYWPzxqnRTz7hyJF0Rx48oHJlChemRw+8vTNJuTdvsnYtf/7JzZtv+6YGBumCmbU11apRvToODtjb615jFQlgQkdIABNCCJFP3brFokVs2sTdu9jYEBn5ridmaF6vr4+LC15eeHhgappz9Wanmzf57js2biQtjaJF+eEHBg/OOGDmTFauJCEBwNGRGjWoVImKFalUiUqVKFZMK4XnXqdOMWwYoaFYWCjJ59Un+vp4ezN0aLrBT5/SuDFXrihf1qmDtzfdumXStPPMGS5eJC6OuDgePVI+ef3l69m2/1W4MNWqUaMGDg5KJHs925lnSQATOkICmBBCiHxNpeL8eeXdagbPn1Oo0NvOzdC8vmhRPDwYMoSaNXOq2ux14QLjxrF/P4aGvHiRSQvEmBgWLGDBAh4+zPiUhYWSx15HsooVJZW9n1OnWLOGjRt59AjA0JBWrejdm86d3/UVUlPTZbN79wgMVB7372ccbG6Oo6PycHCgbFnKlqVAgey8ohwmAUzoCAlgQgghRCb27qVtW6pUwdOTrl0ziWevxcXx558sX86lS8qRChVo2JCPP+bjj6lVC0NDzZT8gY4eJSUFF5c3DkhI4NIlQkIICeHmTW7eJCQk82aJRYtSrhx2dtjaKo+SJZWPJUrk9p+DtiQlsWsXq1ezZw/JyQBHjvDJJ//1ZePiuHqVoCDl45UrxMRkMszWlrJlKVNGyWNly2JvT5kyFCnyXwvIARLAhI6QACaEEEJkIiCA1q158ED5skYNevXC25vixd94yvnzLF/Ohg3Ex6sPFixI3bo0bEjDhjRogI1NzpatMQ8fKnns38HsLS3s9fUpUQIbG+zslI92dtSqRa1amJhosO5c7OFDNmwgJIQffsDMLN1TkZGZzGi9Ym//ri0ZY2LUkez6dcLDuXdPiXz/q2hRJZhVrEjr1jRvnhvyswQwoSMkgAkhhBCZS0nh4EE2bWLbNuUmMWNjOnZk2DCaNHnjWampBAfj78+JExw/TnAwaWnqZ21tcXKiSRMaN6Zevdx7A9ivv3LxIt98835dEGNiuH2bqCju3SM6mogIoqKUjw8epPs5vGZoiIMDdeooj48+yuK2z3woJYUSJdQ9FTOoVo2goIwHZ80iPh5HR6pXp1KlN2antDQiIwkLIzxcedy5Q3g4YWG8eJFuZLFidOxIly64uGhxt24JYEJHSAATQgghspCczN69LF/O7t2kpmJkxNOn75qdYmM5fVp5nDnD06fqp0xN6diRCRNyY6v3Ro04dQoDA7y9mTIlG/o3pKTw4AH37yuTOa/e9wcEcO1auq2uDAyoUkWdx2rXzp33wmnakCGcOZP5U+7uTJqU7sjTp1hYqOOusTHVquHgQI0aODri4kLhwll/x5gYJYxduMCWLcrGcYClJR060KULrq4YG3/wBX0YCWBCR0gAE0IIId5VRASrV2NkxOjRH3J6aipBQZw6peSx4GBUKvT16dyZb7/NXa07Hj5k6lQWLyY5GRMTvLyoXBlbW8qV4+OPs3P3s4QELl8mIEB5XLmitPh/RU+PihWpXZsyZShVipIlKVmSUqWwtdX8u/+85NAh/PwIDOTqVcLC0s09durEli3pBj9/jo8PDx+qs66hoXIPpKEhvXtTrx6hoezYga8vJ04oYywscHOjXTs6d9bYpKUEMKEjJIAJIYQQ/9Xz5/j60rQpFSq8x1l37/LLLyxfTmIienp06MB331G7do5V+f5CQ5k4kQ0b0r2DnzUr455pL16weTNFiyoBydLyw2+tTE7myhV1Hrt8mcTEzEdaW2NrmzGVlS1LtWp5bHfsnPb8OdeuceUKQUFcu0a3bvTokW7A1avUrMmb3uR37szmzeovb99m+3Z8fTl5UjmlYEFcXPDwoFOnd5pb+w8kgAkdIQFMCCGE+K8WLmTIEPT0cHGhXz9at8bC4l3PffCAmTOZN09ZdePqyg8/0KBBzhX73i5fxs+Pu3e5f5/4eKZOpV69dANmz2bUqHRHChfG0hIrK0qXZsYMKlfO+Jrh4ZibZ/1TSkkhMJArV7h3j/v3uXePyEju3iU6Ot2Ni/9mZ0fXrnTrRt2673WV+drly0RGqncVe/mSZ8+Uzz/9lLJl0w1+9owjR7C1Zf9+Nm/G3185XqQIW7bg6ppzZebPAKb95idCCCGEELmOhwfnz7NxIwcPcvAgQMWKODlRty7Ozjg5ve3cEiWYNo2vvmLBAmbNws8PPz8aN2bqVJydNVN+FmrWzOL2yC5dCAkhPJy7d3nwgEePePaMZ8+4c4cLF+jUKWMAW7CAoUPR06NGDdzccHOjaVMKFszklQ0NlU6JGaSlKe09XuWxyEgloV2/zp07zJzJzJlUqkS3bnz++du2EBCvZPlP/G8//MD06Rgb4+zMwIHUrs3hw2zezPnzSq8aka1kBkwHyQyYEEIIkT3i41m/nj//xN+fhATloL4+oaEZ5xDe5OFD5s9n9mylkX3jxkyZQosWOVVwznn6lEePePSI589p1CjjPYGHDzNsGLdvKxtYAyYmNG6Mmxvu7jg4/KdvHRjImjWsXk1kpHLEwQEPD7y83u8GUfEmFy4werSyfRygr0+jRnTqROvWVK2ao985f86ASQDTQRLAhBBCiGyWkkJQEOfPK3dnzZqVsWPErFlcuULt2rRvn0k2i41l3jzmzFG21WrcmLFjcXfXSOkalJzMyZMcOMCBA/j7K8vMDA0JDc2GpotpaZw8ia8v69erNyB2csLLi88/x9r6v76+iI1l+3a2buXAAWWdnp4eGzbg6Zlz31MCmNAREsCEEEIITStXjrAwACMjevbkm2+oVCnjmLg45sxRx7DmzZk+nfr1NVyphsTGcugQBw6QkMCyZRm3Zr5/n4cPsbamRAn09N7vlZOS2LuX9evZsUNZZWdoiKsr3bppoGlEvvDsGbt389dfnDvHkiWyBizbSQDTQRLAhBBCCE0LC2PPHg4f5q+/SEnBwICuXRk/PpMNweLjmTeP2bOJjUVPDw8PfvyRihW1UbSWpKRQrJhyT6ahodL80NYWGxtKlqRt24wdQd7k2TP+/pv169m/X+l0X6QIPXrg45PJGjORK+XPACY9PYUQQggh/jN7e774go0buX6dAQMwMGDdOmrWpEsX4uLSjTQ359tvCQtj2jQKF2bTJhwc8PEhKkpLpWucoSFeXlSvTvHipKQQEcH58+zYwbJlTJlCr16ZnPLgQSbN6wsXpkcPdu4kMpLFi2nalCdPWLSIjz6iYUNWrlQv2xMiN5EAJoQQQgiRfcqXZ+lSbt5k2DAKFGDLFo4ezWRY4cKMHcu1awwciErF0qVUrMi4ceq+4bpt3jyuXOHBA5KSuHOHU6fYto2FC/nuO2bPzjj45k1KlcLGhl692L073bbOr1hZ4ePD0aMEBzN2LFZWnD5Nnz7Y2uLjw+XLmrkmId6RBDAhhBBCiOxWujRz5xIayq5dtGv3xmF2dixZwpUreHjw/DnTp1OhAnPmvHFHLN1jbEzp0nz8MR068MUXTJlCy5YZxxQrRr16xMezejVt22Jry4ABHDxIamrGkVWqMG0aERFs2oSrK/HxLF1KrVrUrcvSpcqCMSG0TQKYEEIIIUTOsLGhTRsMDDIef7X86bWqVdm0iVOnaNqUhw8ZOZLq1fH1RRbqv2JhwYkThITwww/UqEFsLMuX4+qKnR0jRmRyn2GBAnh4cOAAQUGMHYulJf7++PhgZ4ePD4GB2rgGIdQkgAkhhBBCaNCePRQtSv367NiRLmJ9/DFHj3LgANWrc/06np40bMiRI9orNJepWJEJE7h8mcBAvvuOKlWIjmbuXE6ffuMp1aoxbRrh4SxdipMTjx+zdCk1auDqmvGHL4QGSQATQgghhNCgUqWwtubcOdq3p359du9O96yrKwEBLFiAtTVnztC8OZ99xrVrWqo1V3JwYMoUgoO5cIGNG2nWLIvxhQszYADnz3PuHP37U7AgBw/Svj0NGrBnj0YqFiIdCWBCCCGEEBpUowahocyZg60t58/Tti0ff8y+feoBRkYMHszNm0yaROHCbNtGjRp4eRESor2ic6WPPsLTE/3072YTExk2jFmzMmlnUrcuy5Zx/z6zZ2Nry7lztGlD48YcPKixkoVAApgQQgghhKaZmjJ8OLduMXOmMtPVqhWNG3P1qnpM4cJMnkxICEOGYGDA2rU4ONC7N7duaa/uvCA8nAUL+PJLypRh7Fju3884oEgRRozg9m2WLMHWlpMncXWlSRMOHdJGuSI/kgAmhBBCCKENpqaMGkVoKDNmULw4J08ydWrGMTY2zJ/PzZsMH46hIatWUbkynp4yG/ZGVaqwZw/NmxMfzy+/UK4cffpk0nijQAEGDiQkhNmzsbbmxAlatKBJEw4f1kLNIp+RACaEEEIIoT0FCzJ6NKGhLF3KTz9lPqZ0aebM4fp1hg/HyAhfXxwd8faW2bDMffop//zDuXN4epKaysqV1KhBu3acOpVxZKFCjBjBzZtMm0bRopw4gbMzbm6cO6eNukV+IQFMCCGEEELbXjWKqFDhbWPKlFFi2Ku9m9esoVo1vL0JDdVUlXlK3bps3MiNGwwdiqkpu3bh6kpaWiYjX22KHR7OtGlYWODnR/36uLnh76/xokW+IAFMCCGEECJXSkykfn1ateLMGfXBsmVZsoSQkHQxzMeHe/e0V2guVr488+Zx5w7TpvHjjxk7dvybmRljx3LzJuPGUagQfn7Uq0eXLmzbxvHjXLtGdHQ+2iBb5CQ9leyBoHOcnJwCAgI6dOiwbds2bdcihBBCiA/17BlVqnD/Pnp6eHjw008Zp8hu3GDqVNavJzUVExMGDGDcOEqW1FK5OuTBA6ZPZ9GiTHZ5NjfHyopixbC0xMpK+fjqk+rVqVlTG+XmYV5eXmvXrl2zZk3Pnj21XYvmyAyYEEIIIUSuVLgwV68yfjympmzahIMDX37Jo0fqAZUrs2YNV6/SrRvJycybR/ny+Phw86b2is5T9u5l/fpMdmQuUYLffuPWLcaOpX17GjemalVKlMDAgPh4QkM5e5a9e/nzT+bNY/Jkhg2jRw9q1aJWLWbN4sEDbVyMyDNkBkwHyQyYEEIIoVMiIvj+e37/ndRUihZl7FhGjMDEJN2YwEB++IFNm0hLw8CALl0YO5batbVUcR5ha0tUFM2bs3x5FgvwXouPJyaGR4+IjSU2Vvnk0SMePODQIR4+BDAyolUrevemXTuMjXP0CvI6mQETQgghhBC5j50dS5bg74+bG3FxjBtH584Zxzg6sn49ISFKp8SNG6lThyZN2LFDGxXnEb//jo0Nhw9TsyazZpGamvUp5uZUrEj9+rRuTc+eDB/OlCnMm8fGjURFceAAHh4AO3bQuTPW1vj4cPx4Tl+HyFskgAkhhBBC5AW1arF/P3v30rAhlStnPqZ8eebMISyMSZMwN+fECdq3x8mJ1avfKV38X3v3HR1F1Ydx/Jnd9JCE3hNK6C10EJAiINJEQUCqNMGCoqiI9bVLU6wIKCCCKFUEUYqAICi99xZaICGhGUjd3Xn/IFJCaJLMQvL9HA5nmbLz21mSmWfunTtZTYsW2rlTffsqLk4DB6pePe3Y8d/fzW5XkyaaNk1RURozRtWq6cwZjR2re+9VuXJ66y0dPpx+peMuRgADAAC4ezRrpr/+0siR11smX76U0/1PPlH+/NqwQY89pjJl9OmnSky0qtC7RPbsGjNGv/2mkBCtWqXKlTV4sJKSbus9c+RQ375at04bN2rAAOXJo5079fbbCg1Vq1aaPp1vIYsjgAEAANz9jh7VyZNXTAkM1IABOnhQY8YoJET79um551S6tD79VHFxbqryTvXAA9q6VX37yuHQ0KEaODB93rZyZX3yiSIiNHu2HnpINpvmzVOHDvLxUc6cKlVKdeqodWv16KEXX9SHH+qbbzR7tv78Uzt26MQJGi0zKw93FwAAAIDbc2HAertdgwfr+efl63tplre3+vZVz56aMkVDh2rnTj33nN5/X716qXJllS6tUqXk7+++0u8YgYEaM0YdO2rwYIWFpec7e3qqTRu1aaOYGE2ZookTtWmTTp/W6dPau/cG6+bPnzK6fcWKqlRJ5cvL2zs9a4M7MApiJsQoiAAAZC0ulzp31tSpklSkiIYNU/v2Mow0FpszR0OGXPFkZ0khISpVSqVKqWxZlSql0qUVEpLG6lnZwoXauDHltculs2cvzapfXy1a3PIbXhhEMSbm0ouLfy5MuTDR5bpiLQ8PlSqlihUVFpaSykJCbuNTuV/WHAWRFjAAAIC7nM2mH39Uv34aOFCbNqljR33+uUaOVPXqqRd76CE99JD++EMLF2rPHu3apX37dPiwDh/W779fWtLXN6Vx7MLfISEqWFCFC6ce+z6LSEhQ8+aps9BFs2b9lwB24fHN1xpM5aJDh7R1q7Zu1ebN2rpVe/Zoxw7t2JEStiXlyJGSxCpWVPHiKl5cwcHy9LzlemAhAhgAAECm0KiR1q/X+PF6/XWtWKFatdS9u4YMUb58qZds2FANG6a8djp18KD27NHOndqzR7t3a/duHT+uTZu0aVPqFfPkUcGCCg5WoUIqVCglmF14kS1bRn8+t/Hx0TffaPfulH8ahrJnv/S6SZPUy+/Zo8cfV82a6tVLZcve1qaLFFGRImrVKuWfCQnasUNbtlz6Ex2tZcu0bNmlVTw8FBysYsVUvHjK3xde5MlzW5Ug/RDAbonrfMTm1ev3RpxK9M6Zv2j5GlVDs7MHAQDAncJmU58+6tBBH3ygTz7Rt9/q4EEtXXq9Vex2hYYqNFTNm1+aePZsShjbtUvh4TpyREeP6tgxRUcrOlqbN6fxPoGBKlJEVaqoenXVqKHKlTNVc1nPnrew8L59Wr5cy5drxAjdc4969VLHjgoISIcyfHxUtaqqVr005fjxlPaxnTt14IDCw3X0qMLDFR6uJUuuWDcgICWPlSyp1q1Vt65sjMbnHtwDlorjxPqZ48b9uCCm8egf+pexX5zujFo5+n+vDv3uz6PxF/eY4ZWr4oP9//fOCw+XDbiTuklzDxgAANCBAxo2TLVq3Vp4uL6oKB07pqNHdeSIjh27FMwOH049sqKnpypWVI0aKX/KlZNHVrpqvWaNxo3T1Kkpd4v5++uRR9S7t+rVy/Cb65KSdPCgwsNT8tjFv8+cuWKxwoXVvr06dlTNmm683y9r3gNGALtM4r6pzz/61NgNp5ymZ+V3Nqx7o0JKAEvYNvrRlgPmHE5Ka18ZAZX6Tvj5i3ZF75jfKgQwAABgtdOntW+f1q3T2rVau1Y7d14xirqfn6pUuZTHSpTIEoN8xMVp5kyNH69ly3ThlLtWLf39d+rPHhenmJjUTWSenuncq/P06ZQwtn69pk5VeHjK9GLF1LGjOnZU5crpubmbkzUD2B0TGtzOdXxmnyZdvz/kMCUZhqfHv61f5plFL7ZLSV+GX3DN+5vVLR+c3X7u6LY/f5u/+kg4ewofAAAgAElEQVScGbtlbPe2OfMv+6BuejQtAwAAZKQNG1SwoPLnT+e3zZEjJVw9+aQknTunjRtTwtjatdq/XytXauXKlIWzZ1fRogoOVpEiCg5W4cIKCUm5oywzNZT5+albN3Xrpv37NWGCJk7U2bMyzSsCWGKiQkMVGZn2O7Rrpxkz0qeYHDlUrZqqVdMjj+jDD7V9u6ZP16RJOnBAQ4ZoyBAVLaoHH9Rjj13RxREZIBP9F78t5tl5rz475ZDDNGy5az897OPBnWoXvJDAHNu+GPzN3iRTttz1X/3++zfuL+x1ca2kiEUfdOv67tITcZtGPv95579ercD+BAAAd7ADB1S9uvz89MQTqlhRwcEKDlZISPo/XSpbNt17r+69N+Wfp05dCmPr1unYsbQH+bDblT9/Siq78KdIETVocGnQi7tUaKjee0/vvZfGLA8PVa2qrVt17twV05OSdP68vLxSL+906r335O2typUVFqYCBf5jSeXLq3x5vfmm/vpL06dr+nQdPKjPPtNnn6lcObVvr86dbzxII/4TuiBKksxTkx8u0v3nc/Kp+uofy9+rdelxhI6Nb1Su+d52h71Q9xmbvn0od+rWcvPskgE1m32xx2Er+uyS3Z/Wv+qnxA3ogggAANKWlKQePfTDD6mn58+vYsX0ySeqWdOKMqKjdfiwjhxJGQH/wk1lhw4pMvKKjosX+PioVSt17armzdMIJFnNzp0qV+7SP/PlU+XKqlxZFSooWzY1bpzGaB9nzqR0gAwIuGYDo9OppUs1dapmzdKpUykTa9bUuHGqUCHdP8RFdEHMwhxbVm+IN2UEPDBwYM3LHwZvntm4fp9D8gjt8nSrq9KXJCOo4aAB9b/uvyTh6B9Ldjrqh7FHAQDAHcvLS1Om6OmnNX++Dh1KyT8REYqMVGSkVq1KHcBWrNATTygoSLlzK29e5cunPHmUJ4/y5VNIiEqW/I9lXHiTatVST3c4Uob0uBDPjh7V1q3680/NmKEZM5Qzpzp2VJcuqlMnS9xClqayZTVzppYv16ZN2rxZUVFasEALFqTMffppffHFFcuvX6/ateVwXJoSEKAWLdShg5o3l69vykS7XU2aqEkTjRqlhQs1dap+/llr1mj58gwNYFkTcUGS5Dpz6rRLshcuVybwih9n1+mTp12SPEpXKH2NfWXLX6NmEfuS3a5jR465FGZBtQAAALejbl3VrXvpny6XIiMVE5PGqfb+/dq+/ZrvM22a2rdPPfH8efn7p7X0TfDwSLkZ7HLHjqX0kVu5Ul99pa++UnCwOndWz54qXfo/buiu1rat2rZNeR0entKZc+9eOZ3q1Cn1wjlzqmxZHT0qSbGxcjgUG6upUzV1qgIDNWeOGjS4YnlPT7VsqZYtlZCgjRstahHNYghgkiQjMHuQoXOu0zGnrnzIuS17zuw2SaYjOdmU0r7WYrpMSWZSUjLdOQEAwF3HZlPBgipYMI1Zjz2mhg119Kiio3XihKKiFBOj6GgdP67ERJUpk3r5Dz7Q66+rWrWUk/hq1dLhYVMFC2rAAA0YoB07NG2avvtO4eEaOlRDh6pcOXXvrh490njYdBZRrJiKFdPDD19vgS1brphy6JCmT9e0adqwIfXY9Jfz8dE996RbnbgMAUyS5FmhemVfI+J89KI5K+OaNvK7OMPIUTGsqMf83Y6t6zYn9mqc1vMEXRGrVx92SvZCwQXtacwHAAC4ixUpoiJFbnbh4GD5+mrdOq1bp7ffVr58atFCLVro/vsVGHi7lZQrp7fe0ptvatkyTZqkmTO1Y4cGD9brr6tZM3XpoocfzlRPf84gRYroxRf14otyONK4JWzHDh0/rvr15enpjuKyBB6ALUky8rTs3CyHTc6DX/cfNP/EZa1gHlUf7VTey3Aem/rpD0dcV69pnv59yGcrE03Z8tZrWJ48CwAAsrJu3RQTo3nz9NRTKlJEUVGaMEHt2yt3bnXvnj6bsNnUqJHGj1dkpH78Ua1byzA0b546d1bhwho0SAcOpM+GMr00B+Ro3VpNmih/fvXpo99/F8P1ZQAC2AVG3kf+92JNf8NM3DGqTY0Wr/6wITrlXkWPygM/e7a8j3lq3vOPDPr1SNLlayVHLHrz4S5j9zlMw6tinyca+ab11gAAAFmIr69atNCXX+rgQW3dqiFDVL++TFNLlqRxNn/qlKKi/vuGOnbUnDk6dkxffKEaNXTypIYPV8mSatlSv/4qVxrXznEDb76p8uV16pTGjVPTpvr6a3cXlAkxDP0ljvAfej3Qe/KeeFOS4Z2nbJ37GtYOK1uqeKHsscuHDvps1WmXkS20YduHG1cOCXSdObhp8ezZyw+cMyUjsPZbC39/s9Z/veE0nTEMPQAAuLOcPSvDSN0LMSpKxYsrLk7e3ipcWIUKKSREhQqpUCEVKaKGDW+51+L69Ro7VpMnKy5OkgoVUp8+6t9fuXOn2wfJIrZv17RpWrNG77+foc9lzprD0BPAruCK/mNI7z4f/LL//E3vFcO/5MPvfPf187Vz3jGjoRLAAADAXSA+Xg89pA0bFBOTxty2bTVz5n9527NnNXWqPvlEO3dKkre3HnxQffuqSZPbqhYZIGsGMLogXsGWp+Grc7bvXPzFc21rBfvbrhupDM8cpRv3GTF/+5aZA++g9AUAAHB38PXVggWKjlZcnPbs0dKl+u47vf++nnpKrVunMaK6y6Vdu27csTAoSH37ats2LVqk9u3ldGr6dDVtqurVNXZsSuMY4D6MGnE17+BGT49s9PTHcce3rVu7ece+g0cjY878E5eQ7DANDy/fbNlz5S9cvHTFGnVql82T5Z/GDgAAcLt8fVWy5I0f6/zppxo4UIULq3Nnde2qihWvt7DNlvJk4fBwjR6t8eO1fr369dOrr6pnT/XvfwtDOwLpigB2TYZfgYr1H6xY3911AAAAQFKtWgoN1f79GjZMw4apUiV17arOnVWo0PXWKlZMQ4fq7bc1bZq+/FJr1mjECH32mfr21WuvKX9+q6oHUtAFEQAAAHeDOnW0d69WrtSTTypXLm3ZokGDFBKiJk00b94N1vXxUffuWr1aa9eqSxc5HPriC5UooVde0alTllQPpCCAAQAA4C5hGKpTR6NG6dgxzZ6tRx6Rl5cWL1avXjf7DtWra/Jkbdum9u0VF6chQ1SkiAYP1j//ZGTdwCUEsNuWcPr4sYiIiIiIY6cS3F0LAABAluDlpTZtNH26jh/XhAmaNOnWVi9bVtOmafVqtWqlc+c0dKhCQzV0qOLjM6Zc4BIC2O1KXPBM6cKFCxcuXDj0iV8S3V0NAABAlpI9u3r00P33p56ekKDw8BusW6OG5s7VihVq0EAxMRo8WKVKaexYORwZVCwgAtid7OWXXzb+kw0bNkg6efKkuz8BAACAm/Trp+LF1bixliy5wZJ16+qPP7RokapW1dGj6tdPJUtq7Fg5nZYUiiyHAHbn8vT0NIz//nyxvHnzpmMxAAAAd5NmzRQUpCVL1LixatfWnDkyzest36SJ1q3TtGkqVUoHD6pfP4WFafr0G6wF3DrD5H/V7TFP71+/N8ZpSrZcJauXuBOeyDxw4MCRI0d+/PHHzz//vLtrAQAAcJPYWI0fr6FDdfy4JFWooJdeUufO8rjuc5gcDn37rd55R0eOSFLu3MqbV3nyKG9e5c2r3LlTv86dWzaaNP6jbt26TZ48edKkSV27dnV3LdbhOWC3y8gRWr1mqLurAAAAwJUCAjRggB5/XN98oxEjtG2bHntM776rn35ShQrXXMvDQ336qFs3jR6tIUMUGamYmOttxWZLSWIVK6pHDzVtSh7D9RHAAAAAkHn5+enZZ/XEE5o0SUOHau9erVt3vQB2gbe3BgxQ//6KiVF0tGJiFBWl6Og0XkdH68QJnTih7dv1448KDlbPnurRQ8WKWfLxcPchgAEAACCz8/JS797q0UP79qlUqZtdy25XvnzKl+96yzidKZHsl180YYL27dM77+i999SokXr1Utu28vG5/fKRmRDAbsBxLiYq+uTpf+ISk102b/+AgICg3PnyZGO/AQAA3G3sdpUunf7veSGkVaqkV1/V+vUaO1bff6/Fi7V4sYKC1LGjunVTvXrpvF3ctQgSaYiPWDV36sxfFv25euO2AyfOO64cpsQwvAILhZapWKNR8zYPPfRAzWC/O2DcDQAAAPwnO3Zo+3a1a5c+925Vq6YxYzR8uH78Ud99p5UrNXasxo5VuXLq3l29eyt37nTYCu5m3CN4BdfJ1aP71SlevE7HF0ZMmr96T1Tq9CXJNJPOHt25+rfvhjzb7p7QojV7fLoiisdEAAAA3J3691eHDmrU6MYPbr55gYHq21crVmjzZg0YoFy5tGOHBg9WcLA6d9b06Vq5Unv3KjY23baIuwctYJck7Z/Sp3mvyXsT/81cht0vZ8HgkOACuQL8fH297a6khPi42FNREUcOR0SfSzYlMzl63cTn71v6x+e/TulX3tet5QMAAODWvfWWdu/W8uUKC9OIEXr8cd3Gg1hTq1RJn3yioUP1888aP16LFumHH/TDD5cW8PFRnjwqUEB58ihPHuXPr3z5lDu38uVT/vwqWFC5cqVbMbgzEMD+Fb/mnXYX0pfhXbB2x76Pd2nT5J6KwQH2tBZ2xUftWrts/oyJYyfO3/1P8uGfn207qMSazxoH0RsRAADgrlK/vrZv18sva+xY9eunWbP0zTcqXDg9N+HtrQ4d1KGDDh/WxIlat07R0YqKUlSUzp/XkSMpzxxLU3CwqlRR5copfxctmp6FwR0IYBe4Dk94deSWRNOwF2r98c8Tn6mW/bpRyuabr1z9DuXqd3h64JyX2nb+YuP5vV+/NqZ/w0Gl08xrAAAAuHNlz64xY9S0qZ58UgsWqGJFDR2qvn3Tf0MhIXrjjSumxMXpxAlFRqaMa3/8eMqLyEidOKFDh1Li2Zw5KcvnyHFFHitT5gbPlcadhy9MkuQ6MnvqinhT9pDe4yY9Wy3wplf0LvrgyKnvbgp74c/4DT/NDX+hdAkSGAAAwN3okUdUr54ef1y//KJ+/XTwoD74IMM36uenokWv2a7lcmn/fm3cqI0btWmTNm5UVJSWLNGSJSkL+PqqQoWUMFaypEqUUHCw7JyP3tEIYJIkx45N25NN2fK2aN/o5tPXBfbQdu1rDv5zmWPvjj1OEcAAAADuVvnza+5cjRunF17QiROp54aH69tvlZiYxooBARo4UL7pPSKAzaaSJVWypDp0SJly/PilMLZxow4c0Nq1Wrv20ire3ipWLGWtEiVS/oSEkMruHAQwSZKZmJhkSrZsAdlu/S4uW2D2QJtkJiUmXTVkIgAAAO4yvXurSxd5e6eePmKERo265lphYWrVKkPrkqQCBVSggFq0SPnnP/9o0yZt2qStW7Vvn/btU0SEdu3Srl1XrOXldSmVlS6tVq1UqFCGl4prIIBJkuyFixS2a6fz6PoNx121Q25tcP74zWu3JUu2fAXyMao/AABAJuDjk8bEl19WkSIy07riniuXmjXL6KLSEBio+vVVv/6lKfHxKUls796UF/v26ehR7d6t3btTlrHZ1LChunRR27bKnt0NZWdtBDBJkkelVs2LDNu5P37Z0MHTW0/qGHzTbbRm7Jrhr0w86JQtb92GlTwzskgAAAC4UUiIBg262YUTE9Wzp4KC9Pjjqlo1I8u6kq+vKlZUxYpXTExIuBTJVq/WvHkpN5I9/bRatFCXLmrRIu3MiQxAk80FXrX6PXNvoCHn4R+739Ns0KQ1x9Pq3Xsl55ld80Z0rdP07b//MQ2v8o8/3dTfgkoBAABw5ztzRrNmafRoVaummjX1zTc6f95txfj4qEIFPfywXnpJM2YoMlITJ6pVKzkcmjVL7dopf3517665c+VwuK3ILIMWsBT2Uk+NHv57o6fmHU+KWDy8e+1PnitRs169WlXKFi9SuEDuIH8fHy8PMzkhIf7cycijR8L3bF7714pV2yLjXKYkW/a6b457pcZVHYUBAACQNeXLp82bNXq0vvsuZZyMF15Qly7q109hYW6uLShI3bure3cdO6bp0zV9uv76S5MmadIkFSyoRx5R+/aqV8/NRWZeBLCLPEv3nbbY55lOAyZsOeMyk0/tXTln78o5N1zNFlCu09BJXz5RleYvAAAAXFK6tEaO1Icfavp0jR2rFSv01Vf66ivVqqV585Qr1xULz5+v8eMlKVs2eXpKUmCgAgNVpYpq11bu3BlSYcGCGjBAAwZo925NmaIpU7Rvnz77TJ99prJl1aWLBgxQtmwZsuksjAB2Od+y3b9Z90DfH778/Jvv5/514KzjOqMaGh6BRWu17NS7/9Nd6hT0sq5GAAAA3EV8fNStm7p10/btGjtW332njRt1+nTqADZhgqZPT/sd/Py0Z0/GjltYurTefltvv61Vq/TDD5o6VTt36vXX5eurgQMzcLtZEgEsNY+8Nbu9Panb28lnwres27B19/5DEVEnT5+LT3LI09c/W7ZsQXlCSpQuXaZCWIWi2Rl0AwAAADelfHl9+qmGDVNsbBotWqNHq2NHOZ2KjU25EevsWUVHa+1aJScrICD18gsXatcuVa6sqlXTs5Gqdm3Vrq2PP9aiRVq5Uh07pts7418EsGvxzF6sWpNi1Zq4uw4AAABkHt7eaTxhTFKOHGrb9hbep3dvHT0qSXa7ypRRpUoKCEjpvnj//brvvtTLR0crKkp+fsqeXTlz3uDN7XY98IAeeOAW6sFNI4ABAAAAd5tJkzR1qtau1ZYt2r5d27dfMSsi4oqFnU6VL6/oaEkyDNWtq86d1aFD6m6QsAQBDAAAALjbNGyohg0lKTFRmzdr927Fx6d0X6xWLfXCdrseflgrVyo+XpGRWrFCK1bouefUrJm6dNHDD8uLEQ2sQwADAAAA7lre3qpZUzVr3mCxMWNSXpw/r9mzNWWKFi7U3LmaO1evvKIPPsjoMnERAQwAAADIMvz91aWLunTRiROaOlULFqhxY3fXlLUQwAAAAICsJ29ePfOMnnkmjVnLlmnNGrVtq9BQy8vK/GzuLgAAAADAneSVVzRokEqW1LRp7i4lEyKAAQAAALjMV1+pe3cVL37jAetx6+iCCAAAAOAyYWGaONHdRWRatIABAAAAgEUIYAAAAABgEQIYAAAAAFiEAAYAAAAAFiGAAQAAAIBFCGAAAAAAYBECGAAAAABYhAAGAAAAABYhgAEAAACARQhgAAAAAGARAhgAAAAAWIQABgAAAAAWIYABAAAAgEUIYAAAAABgEQIYAAAAAFiEAAYAAAAAFiGAAQAAAIBFCGAAAAAAYBEPdxeAjPL+++9/8cUXGff+MTExsbGxdrvdMIyM2wruQKZpOp1Om81ms3EFJ2vhq8/KnE6nJLvd7u5CYDWXy+VyuTjcZ0EXfufnzp07ICAg47Zy4sSJjHvzOxYBLBMqWrSopJMnT548eTKjt+VwODJ6E7gzOZ3OCydkyGr46rMyl8vl7hLgHhzus6zo6Ojo6OgM3YRhGBfOXbMOwzRNd9eA9Hfo0KGMPkPq1avXsmXLhgwZUrt27QzdEO40U6ZMGTt2bKdOnfr16+fuWmCp7du3P/300+XKlRs1apS7a4HVmjRp4nA4Fi1a5Onp6e5aYKkXXnhh/fr1I0aMqF69urtrgaW+++678ePH9+/f//nnn8/QDfn6+hYoUCBDN3GnoQUscypSpEhGb8Lf319SxYoVGzRokNHbwh1l1apVkkJCQvjqsxovLy9JQUFBfPVZ0IV+p/Xr17/w3wBZR44cOSSFhYXxg5/VLF++XFKOHDmKFy/u7loyG/rxAwAAAIBFCGAAAAAAYBECGAAAAABYhAAGAAAAABYhgAEAAACARQhgAAAAAGARAhgAAAAAWIQABgAAAAAWIYABAAAAgEUIYAAAAABgEQIYAAAAAFiEAAYAAAAAFiGAAQAAAIBFCGAAAAAAYBECGAAAAABYhAAGAAAAABbxcHcBuFsFBQVd/BtZyoUvPTAw0N2FwGr81GdlQUFBcXFxdrvd3YXAavzgZ1kc7jOOYZqmu2vAXSk6Onrjxo3333+/uwuB1ZKSkhYuXNi4cWNfX1931wKr/fHHH6VKlSpYsKC7C4HVtm/f7nA4wsLC3F0IrBYVFbV169YmTZq4uxBYLTExcdGiRU2aNPHx8XF3LZkNAQwAAAAALMI9YAAAAABgEQIYAAAAAFiEAAYAAAAAFiGAAQAAAIBFCGAAAAAAYBECGAAAAABYhAAGAAAAABYhgAEAAACARQhgAAAAAGARAhgAAAAAWIQABgAAAAAWIYABAAAAgEUIYAAAAABgEQIYAAAAAFiEAAYAAAAAFiGAAQAAAIBFCGAAAAAAYBECGAAAAABYhAAGAAAAABYhgAEAAACARQhgAAAAAGARAhgAAAAAWIQABgAAAAAWIYAB+A8csZGHDx2OOud0dyEAAAB3FQIYbk38gYVfvNjh3nIhebL5BuQtUqFB58Gjlx5OdHdZsFjcwgFhxYqWfPTbYy53lwILnN+/+Jv/9WlRs2yx/Nn9vP2C8hatdF/H50b+susfvv9MzXVm+6xhz7RvWLFovux+3j4BuQqWqtnisVfGLA4/b7q7Nlgsfv3bNfxthr3AE4uS3F0LMk7yyhdCPYzr8ijx4l/J7q7zrufh7gJwF4nf9nXv9gN/3HXu3yPv+cPbow9vXz519Fe9Rs8a9Wiop1vLg3X+WTzt1xgXvz+yAvPUqk/7Pfb6zD2XnXHHRx/auvTQ1qXTR33U5PVJk15vlI9reZmP68TSdzp1fn9ppOPSN3/q+N5Tx/eu/W3SpyPaDv1xfP9qgYYbK4SFzq18q9eH6+NMrttndnHh+45zYc0CnEDhJrkOf9+9+VMzjzpMGX5F732wRc0Qn3/2r/zllzXHEs9uGdejhUfQX6Oa5+JonAUkbPnyw+kn+A2dFSTuHNXlwRfmR7skwxYY2rD1AzWKByYc2bHxr2Ur9552JkcseqtNG9fCRW/VDnB3qUhXids/6dj23T/OuCTDJ3+Vpi0aVAzJbjsTvm7RnN93nHLE75v5XCtH4N+zHivKCXnmZ55Z/GrvkVsTafbM/BwH9x1MNiVbQEiF0nm90lzGXrhwNk72bpsJ3ATXiRmdC9gkGV4lu03Zl3BxxrnNXz5Y2G5Ihkep55bFurFEWCExasO01+8v7Hnhd69Xw88PO91dEjKOY/dH9fwMSYa9wP0fLD/huDTLeXLVyAeDPQxJhneV/21IdF+VSH+u49+1yWGTZPiU6zVl9/nLZjljVr7XKJdNkuyFes8767YaYRVX9NzexTz+PeG25e+3kB/3zCtudpcgQzL82/34j7trydy4dIWb4dw++v3pkS4ZnmWfnfBVp1Dvi3P8Kz05flS3wnaZjr1j3518lGaRzMj85+8vnu7yYINKhXMVrNbhvYVHk7kQmhUkr/l69N9xpmQP7Tvxx8H35rFfmmfLWeu5KVNfqOBlyEzcPParpfHuqxPpzRUx69v5Z1ySR8UXvhvVqZTfZfNsueq8Mv6tBn6G5Dw+d8afcW6rEpZwHZ/x7JPfhjvk4eFBq0em5zq2LzzelOzBJYv7uruYzI0Ahpvg3DFr1rZkU4bPvU89c4//lTONXM2f713BQzLjV06fE0ECy4zObfrpmylzl2+NOOckemUZzn1Llx50SvKs9NhT9+W4+tzLv9YzT97rbUiuE38s3uKwvkJkkPg1K9YnmZJn+XYdK3tfNdsW3Kx5JQ9JrjO7d3G7SKbmOjz5qWemHnXZi3R+sUsIp4yZnuPgvnCHZNiLlSxmv/Hi+O+4Bww35jq4aMGOZEme1Vu3LHz1b2CPcq1alnxv805Hwt+/LTn95GPcCJbpZKvaadDgmhfPsOO3TP/y1/2ccGdyjn279zsk2fLVqVs6zUOxLW+FCvltiw86XZERx50cUDILV8yRo/GmJHtw0eC0vnlbQFCATZLMuLh4rslkXo59Y/s+PyfK9Ah9fPRHrRfXG+7ugpDBzNP7D5xySfZ8JUKDOJXLUBwvcWNJu7budkiyF6peo1BaV8A8ytWqFmDsPG0m7dq216FcjIaYyRiBtfq8W+viP82TEzaPJoBlevFnY01vHx95FisefI0r32b8hfNvw9vHm4N1pmHL0+7zpdXPmYY9T5mgtBZI3r/rgEOS4VW0eJrHBGQGSTs+6/3ywlOmZ+mnxg5tlnPnYncXhAznCN8X7pBkL16quN08d3jtsuUb9kWeM/1zFQyteu+9lQr48os+vRDAcEOuiF27Y12S7EVCi6TdJO0ZUqywXacdrqO79pwza6fRWQnAXSZ711lnul53icT1i5addEmGZ/nK5TmaZB5+hcPqFL7m3Phto9+ZFO6UbHladW6WnV/3mVPCxmG93vzzH3lXeO6b9+8LMnjuU1aQEL4/wiUZvj4R056oO2Liqsiki03chi2gZMtn3hv6Svuy2dxZY2bBIRM35DoVc9olyfDMXyB32hc77fkK5rVLDtN1KuaUKQIYkPkl7fzqta/3OiTDv36nh9LonIzMwjyzd9WmQ2f/ORV5cMeqed9PXrTvvGn4lu751UftcvPbPlM6//c7Pd9fc14+VV4a91Y9zrezCOeh/eHJpqSz84e8mHqm6YrdM/eDR/9cuPrHX4Y3y8dP/m0igOGGzPPnzpuSDF8/32ucYxm+fhfapc24c3HcEQBkeue2fd27zct/nDVl+IY99173a3VSRGaQvGb4w82/jro43IYtsHKvj8cN71k1B197ZmSeXfpa74+2JMi/5mvjXqvpd+M1kDk4Du49eOHmAsMjT+0+b7zW96E6ZfL7OU4d3Lxk+pcfjpi29azrzLqRXR4rsWreEyUYpOO28MsTN2QmxF+4zdrLK+1n8l02y4w7TwADMrX4A/PefahKrX7TDiSZhkeh1p/++EZNxgTY4wgAABdaSURBVCvOUlyxW3784NUhM3czBn0mZJ6c/1KfL3clKaDu/8YNquLj7npgGdfx/eHnTcnwLtn9+7XLvnqmZZXgHL6e3gH5Stfr9PoPf/0x5L4cNsl1ctE77/xymnO920MAww0Z3j4+hiQlJ1+zE3hSUtKFF9cJaQDucuf3/PRGqwoVW7/58744U7bAsD7fLZn6eGl+6DM5ryajDsclxMWeOr5v/fzxr7ctm808f2DBsEfrtflse5K7i0O6MiNnDeg3/oDDyN7ovW+er8DPdlZiC+4793hMTEzMiS3jOxS5aji1bJUHjv1fPT9DckXOnvjrGRLYbSGA4YYM/2z+hiQzIT7hGj9vZnzKLMM/wJ+OwUDmE7f3p9ceKB/W7r15B+JMGdlKtnl7zsa/x3YqxQXyLMDm4eXt7ZstR/7Qqs16vjtj1YJXq/sZcsUsfuPlycd4EFjm4Try/dP9fzjitOW8f8jYp0tzl0oWY/cNypkrV66cgT7XuN+/eKfu9X0MyTy/6s/1jMtyWwhguCFbrjy5bJLMpKjIU2knMGf08RNOSbLlyMVNAUDmYp5ZP6pT1crtPlhwKME0PHJX6zFy8Y6ts99sWZyeh1mSEXjP4Dfb57FJZuzSnxef5UJ4JmGenPnSwNmRLlveVh+NfjyUW3yQmpGzYliIXZLr9PHIeHdXc3fjXBk3ZCtUuoS/Icl5JPyIM81FHEcPRbgk2QuULsWgxEAm4jgy+8l76/f/cXecaXjkq/vMhDW710x4rlGwt7sLQ0Yxz+xfv2b16tVrth695j1eflVrVvCQZCYfORhBE1gmYcZGRJx1Sa4Tc3oWtRtX8rpnxD6nJFfkmPu9DcMwDFuunvPogZrFGH7Z/AxJhgyDk73bQgDDjXmVqVjGQ5Lz0PoNJ9K61uncu27TPy7J8CpTkT4LQKZhnl02uGWnsdviTMMrpNWHi7cs++yxKjk5bmRujl1jOtWpXbt2nRZDVl+rk5Fht9sunH7ZPWgoATIB89yhjX+tXLnyr9V7r9HZSZIrJirGJcnInj8v3c9vCyfLuDFb0aZNy3j8vdWRtHb+4ph+3fKkuuzhOvj7wp0OyfCq0bwxT4UBMovzy97o/em2BNPwKtXzh9/HtA3miJEVeISWDvXQXqczasP6Q65GJdIK3Mm7t+9xSDI8CwXnJ5FnEkZQja4vDa6XdkcX17GlX09efdpl+Ffu+NQDRe2S4VeNkcgzk/jFrzfp82u8aS/54p/bht+T1gAsjp3L/ox0SoZfzbpVrxqlA7eCwylugkf5hx8u++G2rcmxC0d/u7vTS2Wu+H8Tv2bsN6sTTRl+tdu1CuFQDGQOrqPffzjhgMM0PCu+MOkL0leWYeSs37iq94K/Ex3rJo5b+/SHta661c888fPo6UedkuFdq0n9IK66ZRJGjrr93qt7jZnJq16a9f3q0zICavV678OmDI+Y6Ri5Gt1f3eu3PxOd+ycNn/rsjG5XPd3RjPxpyNhtyZItR9P29+fkB/+2cLaMm+ER9tSgVjlsMuNXfdB3yJrL7rl2RS185YnPdzoke3DXV3oU538UkDmYkfNm/HnelOFZ5/EnqjPcRhZiD+3cp0mgITN5+8fd+k7cef6KuUkRC9985MlpkS7JXrDjc515BjeQKdiKduzXMpdNckXNfvqRwYuOOy6fG3/gpxfa9J16zCnDJ+yZ1zrkI3/dHi5p4qYY+R4dPnz634/PiTzz55uNa/zVs3eb6oW8zu79c9r4H1YeTTANzxI9Pn/7/kB31wkgnSRu+HtDoikZ2jOue+NZ1z3Y2ot2HfVN71J0R8okbAW7Dv3fpL9e/ON00t7JPcMWfNT4gQaViub2df0TsWPlggVrjsSZkuFduvfooa25DA5kEkb+Tp98/su6blMPO2LXjHig9Mx6LZrVLpXPJ/nUoa3LF/y+OTLRlGHL3XTY5Fer0QR6uwhguEkeoT0n/nSq66Ov/3ro3N7fPh/826VZRrZyXT+f/sWD+TkQA5mFK2L3nliXJDPp+OZlx6+/sEe5uucYizwz8Sr/3Iw5Cd06vz3/SGJy9Nb5k7bOv3y24Vmg0aDxE//3AFfBgUzEFvzot0s8C/Ue8PnyiKTYA8unfrX8srmGLahij09//PyxssSv20cAw00zstd+cc6GpjPHfjVhxu+bDxw7meSXt3DJ6s0f7fNUnxYl/d1dHoB05IyOjE77ZnxkCUaueq/M2972twlfT56zZPXWfcdOxZu+QbkKhFauc1+rTn26Nw31J3wBmY53aLsRS5v2+XXSd9N+XvD3zsPHo2ONgDyFSlZv1LJ9r74dquchOKQPwzS5bAkAAAAAVuDmWQAAAACwCAEMAAAAACxCAAMAAAAAixDAAAAAAMAiBDAAAAAAsAgBDAAAAAAsQgADAAAAAIsQwAAAAADAIgQwAAAAALAIAQwAAAAALEIAAwAAAACLEMAAAAAAwCIEMAAAAACwCAEMAAAAACxCAAMAAAAAixDAAAAAAMAiBDAAAAAAsAgBDAAAAAAsQgADAAAAAIsQwAAAAADAIgQwAAAAALAIAQwAAAAALEIAAwAAAACLEMAAAAAAwCIEMAAAAACwCAEMAAAAACxCAAMAAAAAixDAAAAAAMAiBDAAAAAAsAgBDAAAAAAsQgADAAAAAIsQwAAAAADAIgQwAAAAALAIAQwAAAAALEIAAwAAAACLEMAAAAAAwCIEMAAAAACwCAEMAAAAACxCAAMAAAAAixDAAAAAAMAiBDAAAAAAsAgBDAAAAAAsQgADAAAAAIsQwAAAAADAIgQwAAAAALAIAQwAAAAALEIAAwAAAACLEMAAAAAAwCIEMAAAAACwCAEMAAAAACxCAAMAAAAAixDAAAAAAMAiBDAAAAAAsAgBDAAyrcSZj/rbjFtly9F9bqKUvHJgqIdhGF61h+91uvuT3CpH5LJPHm9SvmCgj5dPzqpvrk52d0EAAKTwcHcBAACkr3PLX2nywEfbE0xJUnL0qTg3F3Q3cmyf9MqXf50zPSs+NuSp2n7uLgcAMg8CGABkWvYiDbr28E0yU012HV42ZWm4wzQ8izfqVD8kdVcIw69OsF1KvdZdwzz188gxOxJM2bJX7frC442L5ytT1u7uou4+riPLvh0zLsbl3ar22wQwAEhHBDAAyLQ8qj85ZvyTV01OnNVp5tJwh+Rzz7NjJ7TxTntlV8lOw8eHxZq2PNXz3VXd1Z1H9uyPNyWPUk+MHvd6DY5zAIA7CgcmAEBabHlrtO1ew91V/BdOp1OSjMDsQYa7awEAIJW76qomAOCOkxR76sz55Lu2w6JkxkUcPZWO9d8FOyQ5LvZ8giN9S0zv3QgAmRYBDACQFse6V8t5ph4F0XX484behmH4PjjpjOv0uq/61C2SK0fuHAHeXv65Cpet3/n1KZv/STkJTzi44OP+bWqWKJDD39s3MF/J2g8NGPXnccc1t5cctWrSO088WLtMSJ5Av2x5ilao1aT9M8NnbT3jutmKXYc+re9tGJ7V3t/hkJS8ZnBpD8Mw7MH9lyZLknPv8NpehmHL1mlWoqTzu396s33NYrn8gqq/t/6yYRId0Wu/f+/Jh+4pG5I30NcnW+5CJas1e+yVUYvC49PaZsbtkOu4lX11eYUyT68d9XjDknmDgrL5enl4B+QuWrnpY//7fuOpy1ZMXvF8cQ/D8G4+LsYlKfGXHjkNwzC86ozY57rhbkxeNai0p2EY9txdZ8emWbsr/NMGPjbDsPk2/OzgTX+3AJCZmACArCVh5qP+hiQjoMvshGsulbz2lbIekjxrDdvj+Hei89BnDbwk+bT6ZNbAML+re/gZ2cIGLjqZHDHn2SpBV13iMzxDOkw+6Lh6W/E7J/aqlN2WRodBwyNP3Rd+Pph0M5/LefCTe72ufgtb4aeXJJmmaTr2DKvlKRn+j86Mj103rHGelAJt+fstTLzwFon7pz5ZNYc9rZ6Lhm+xNh+vOeNKtc2M2SHXcav76mKFrb/d88tTZdMoUYZX0fYT9v67XtKfzxVLY9ASz3uG73XeeDcm/f1SKQ9Jtjzdf45N60vaO6KOlyEZfk1HH3Xe0icHgEyCe8AAALcsaflbPX49E++Zv+ZDHVrWqxRsj1wz8+tvlx5KMM9t/vSx1huzb/pjZ1LOyg91bN0grJDr6Ib5kyf9Hh5vJh+e8dLb3VqPbxV42Xs59n7dvtGT8yKdpgzf4JrNm99boXA2R8z+tQt/WbL7tCN65cftG8f8sHx824I36LRhK9hlwrqG55J3ftG+6zcHnB4VBsz4rmdRm+GVO/TKg50rZt5zL7665HT2Cq0eebB+WPHgKhU8JLmOz+xzX9fJh5JNGfag0PotH6hVMo9H7KFNS+Yt2hyVGB/+84v3P+hctvDFSlePW5KeO+Q6bmNfOQ9N7NNr2c54e54qD3Vt36hCfvup8E1Lp34/f0+sK+ngjGefaNhg4VPFbJJHlZfmbeiRlLTyrfv7zz5tetV/9/fPWgfK8C+YasDMNHejZ7W2bYp9PHyv8+T8n5adf7Clf6oq9syYujbZlBFwX+eHb/SFAkAm5e4ECACwWDq0gEmyBdV5fVnMpTYM57HpXQr/23Ji+JR/Ys7R5IszXSfm9Qm1S5Kt0JOLEy/fzM6P7g0wJNly1nl53qHL63GeXPN526KehiRb7raTj6VqfLpm4etfK+chybPmkN1XNC7923Tjka9gXs+8jT9YefLyFhhX5I8dLgz3aMvd6O2lx5Mvm3V2y9edQr0MSYZf7SHbLpuV/jvkep/sv+yryyqULfs9ry6OunynnNswpH6QTZLhde/I8Mv3R+JvvXPbJHm3+vbUFVVcfzeaZtLfL5W0S7Ll7/Xr+VSfwLH13Sqekozsj/xw8ia/TwDIbLj6BAC4dUZAo/cnv1U/16WjiK3AQwO6lvSQJMOz/PMTRrYudKndycjT7MU+VT0luU4eO5546X1iF3008q9YU/bgbuNnf9gi5PK2JVvOGv0nTX85zNuQ6+Tc4WO3/qf7pa5iOqIizQdHTh5cJ+dlx0Dn7m8//vmES7IX7fXdjDca5r+s0cwIrNhnwozXq/saMuPWjvryjzQe7JxeO+Q6bndf2XI0G/bDu/flvbx/oX+VAf/rUsgumc4jh446r17pmtLejZI8q7VtU9wuuU789tOfV94359g2fdrWZMmWq2Xn5jkZohJAFkUAAwDcMsOnQbdHi6a6U8heJLSIXZI8Knd5rKpP6pkli3sakkyn41I4iFv6w0/HnDK8qvd/tVWeNM7I/ao980xjX0Nm8s4Fiw6l05gN9oLtnng4/xVbc+6f89PGRFOGzz3PDm6WRjbwDus/qE1Om+SMmDt7dVLq2em1Q67jdveVrUD757oUueqw71Wy7IWmuJss47JPcPVulCR5Vmt3IYFF/frTissTmGPztBk7HZIt74Od7w+6tY0BQOZBAAMA3DIje+FCAVedent4XGjv8SpesshVwzgYHh5XTXNsXbHqjEuyF23QoHgaAz9IMnJWqVrMLsmxb+fe9GkCM7yq1KmWKg6dW7dqm0OSR4UWDxRN89BoZG/coq6PITmj1q09mLqtKJ12yHXc7r4yvKvXr+WXxkoeHmkOOnJDae3GCy62gUXO++mvhIuTk9dPnbHHIdkLPdy5kX9aKwJAlkAAAwDcOptxneOH3dPz5k7pHRFHjrskOfYMq+1ppM2z6nvbHZJcsTEnb66r3o0YQQXz+19ZoCv6WGSyKRneJcukNQSgJBkBpUoXsklyRUZEXt2+lC475Dpud18Zgfny+t5uEVe84dW78V+e1S8kMOfxebNX/VtI0uqpM/c7JHuRRzrXS9dKAODuQgADALiJef7sPzf/xGIzMSExXR70a/j6pR6M3XUu9pxLkuGfzf+aB0YjICjAJsn1z9lYyx9gdfv7ysN+Kw1uN5bGbrzoYgKL+OWn1RcSWMJfU2cdckoeJTt0qnX1MJIAkHUwDD0AwE0Mv4BsdkMyPWu8Mm9sx7zXbyWyBQRnT59xG9J6WleAvyHJjDt3/prZyjx/Ls6UZPPP5mf55Ut37avrlXSdeZ7V27YpNnLEPueRX2avHV6/nlf8iqmzjzolj3IdO1XxzOjSAOBORgADALiLR/6C+WwKd5oJnnkrhIW575Bkz10gn6ehZDNh3+6DTpVJs63o/L49R52SbHkL5LO+/8gds69ujmf1tg8VGzlin/PQ3Nnrh9artGzqz8ecMjyrdHq0/J1eOwBkLLogAgDcxbPSPdX9Dcm5d9nyiLRbnsyTf3zy/LPPPPPsoIlbkjOukoBqtct7SHJsm7/wSNqVnF3664o4U7LlrlEzNH17892MO2df3RzP6m3bFLNLzoNzf1p/esmPc6NcMrxqdepQyvp9BwB3FAIYAMBtAhq3eyCnTWbCio/e/DkqjVuc4td+/OygTz//4stxG+NyZuCZu71k6zYVvQyZCSs/G7b4zNWVJG0dNXRWtEuyF2z10D3uuIfpjtlXN8mzers2xeyS48Cc74ZNnhftkuFTr/MjaY8xCQBZCL8HAQBuY+RqM7BvOS9DzkOTez74/E/7L39slOvs5q+6PDJsW7IpW4H2z3QqlJGHLHu5XgNb5bbJdBwY263j0JXRlw00b57bMaFXu7dXx5ky/Ko//WyTbBlYyDW5a18lJv7HsU8uJrA9X38066RLhn+jzg8X5rwDQJZHR2wAgBv51Hp9/GtLGr+1Ovbsmk/bVZxe/YFWDSuFBDpiDmxa/POCbaccpgzP4t2/HNo6g0eVMAp0+uzzX9Z0nXrUEbXw1YZlJjVp07xWiVy22MObfv/51/XHE03JlqPBe98MrOCuQ6e1+yrlIWZJf49+7RPf+wva/cu0bBkWdCtv7Fm9XZtin3y0z+lIdkhGUNPOD+bL8KFBAOCORwADALiVX403fpvv3bXTW78dTog/tvansWt/ujTTsOeq8eSYHz9+yIIzd1uhjt8udQY88tS4LWcdp3bMn7Bj/mVzDb/Qhz+cOuGZCl4ZXsi1WbivPCvcUyNw7Nwz5rmN4wd2Hy/Pe4bvaHFrAUye1dpeSGCSbDmbd2mZm/wFAHRBBAC4m5Gjzsvzdmz99fOXujQOK5Y/u6+nl3+OQmXrtOn3/pTVO1Z+3q6YVeOWe5foPHbd7r++fbvvg7VKF86dzdvLL0eB4lXu7z74q0U7ts18tlqguxOEZfvKyN91zPR3O9Qskt3bw8M7IE9IcO5bv/PNK2UkDsmWp3WXZtnTpzQAuLsZppkuj7UEAAC4UtKqQRXvHb7HYS/c77c9o5v6urseALgD0AIGAAAyRPzyiT/ud0j2kLad65O+AEASAQwAAGSMs/O/nRnhlDxC23d2y9D9AHAnIoABAID0l7B11PCfYlwyPMt37lLNqtv4AOCOxyiIAAAg3SSvGt7toy1e9qh1C5fsijNly9nqxScqcroBAP/iNyIAAEg35pndi2dNjnFJkgx7vgfe/7Ajj/8CgEvogggAANKNrUCFmiVy+/kEFizbqNfw31bPeqI03Q8B4DIMQw8AAAAAFqEFDAAAAAAsQgADAAAAAIsQwAAAAADAIgQwAAAAALAIAQwAAAAALEIAAwAAAACLEMAAAAAAwCIEMAAAAACwCAEMAAAAACxCAAMAAAAAixDAAAAAAMAiBDAAAAAAsAgBDAAAAAAsQgADAAAAAIsQwAAAAADAIgQwAAAAALAIAQwAAAAALEIAAwAAAACLEMAAAAAAwCIEMAAAAACwCAEMAAAAACxCAAMAAAAAixDAAAAAAMAiBDAAAAAAsAgBDAAAAAAsQgADAAAAAIsQwAAAAADAIgQwAAAAALAIAQwAAAAALEIAAwAAAACLEMAAAAAAwCIEMAAAAACwCAEMAAAAACxCAAMAAAAAixDAAAAAAMAiBDAAAAAAsAgBDAAAAAAsQgADAAAAAIsQwAAAAADAIgQwAAAAALAIAQwAAAAALEIAAwAAAACL/B96Dbm5nCh6pQAAAABJRU5ErkJggg==" width="576" /></p>
+</div>
+<div id="adjusting-estimates" class="section level2">
+<h2>Adjusting estimates</h2>
+<p><code>survtab</code> also allows for adjusting the survival curves by
+categorical variables — typically by age groups. The following
+demonstrates how:</p>
+<pre class="r"><code>## an age group variable
+x$agegr <- cut(x$dg_age, c(0, 60, 70, 80, Inf), right = FALSE)
+
+## using "internal weights" - see ?ICSS for international weights standards
+w <- table(x$agegr)
+w</code></pre>
+<pre><code>##
+## [0,60) [60,70) [70,80) [80,Inf)
+## 1781 1889 2428 2129</code></pre>
+<pre class="r"><code>w <- list(agegr = as.numeric(w))</code></pre>
+<pre class="r"><code>st.as <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex + adjust(agegr),
+ data = x, weights = w,
+ surv.type = "surv.rel", relsurv.method = "e2",
+ breaks = list(FUT = seq(0, 5, 1/12)),
+ pophaz = pm)</code></pre>
+<pre class="r"><code>plot(st.as, y = "r.e2.as", col = c("blue", "red"))</code></pre>
+<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABIAAAASACAIAAAAIyqENAAAACXBIWXMAAB2HAAAdhwGP5fFlAAAgAElEQVR4nOzdd2BN5+PH8c+5N3vYxN6zNiVqldqlRoPaWlVUv7Q6lG7dLS3a0lKbGo1NbEVtip9VpVYRe0VC9r2/P26IRFSRnBO8X/8k9znnPPkk/acf5znPMZxOpwAAAAAAac9mdQAAAAAAeFRQwAAAAADAJBQwAAAAADAJBQwAAAAATEIBAwAAAACTUMAAAAAAwCQUMAAAAAAwCQUMAAAAAExCAQMAAAAAk1DAAAAAAMAkFDAAAAAAMAkFDAAAAABMQgEDAAAAAJNQwAAAAADAJBQwAAAAADAJBQwAAAAATEIBAwAAAACTUMAAAAAAwCQUMAAAAAAwCQUMAAAAAExCAQMAAAAAk1DAAAAAAMAkFDAAAAAAMAkFDAAAAABMQgEDAAAAAJNQwAAAAADAJBQwAAAAADAJBQwAAAAATEIBAwAAAACTUMAAAAAAwCQUMAAAAAAwCQUMAAAAAExCAQMAAAAAk1DAAAAAAMAkFDAAAAAAMAkFDAAAAABMQgEDAAAAAJNQwAAAAADAJBQwAAAAADAJBQwAAAAATEIBAwAAAACTUMAAAAAAwCQUMAAAAAAwCQUMAAAAAExCAQMAAAAAk1DAAAAAAMAkFDAAAAAAMAkFDAAAAABMQgEDAAAAAJNQwAAAAADAJBQwAAAAADAJBQwAAAAATEIBAwAAAACTUMAAAAAAwCQUMAAAAAAwCQUMAAAAAExCAQMAAAAAk1DAAAAAAMAkFDAAAAAAMAkFDAAAAABMQgEDAAAAAJNQwAAAAADAJBQwAAAAADAJBQwAAAAATEIBAwAAAACTUMAAAAAAwCQUMAAAAAAwCQUMAAAAAExCAQMAAAAAk1DAAAAAAMAkFDAAAAAAMAkFDAAAAABMQgEDAAAAAJNQwAAAAADAJBQwAAAAADAJBQwAAAAATEIBAwAAAACTUMAAAAAAwCQUMAAAAAAwCQUMAAAAAExCAQMAAAAAk1DAAAAAAMAkFDAAAAAAMAkFDAAAAABMQgEDAAAAAJNQwAAAAADAJBQwAAAAADAJBQwAAAAATEIBAwAAAACTUMAAAAAAwCQUMAAAAAAwCQUMAAAAAExCAQMAAAAAk1DAAAAAAMAkFDAAAAAAMAkFDAAAAABMQgEDAAAAAJNQwAAAAADAJBQwAAAAADAJBQwAAAAATEIBAwAAAACTUMAAAAAAwCQUMAAAAAAwCQUMAAAAAExCAQMAAAAAk1DAAAAAAMAkFDAAAAAAMAkFDAAAAABMQgEDAAAAAJNQwAAAAADAJBQwAAAAADAJBQwAAAAATEIBAwAAAACTUMAAAAAAwCQUMAAAAAAwCQUMAAAAAExCAQMAAAAAk1DAAAAAAMAkFDAAAAAAMAkFDAAAAABMQgEDAAAAAJNQwAAAAADAJBQwAAAAADAJBQwAAAAATEIBAwAAAACTUMAAAAAAwCQUMAAAAAAwCQUMAAAAAExCAQMAAAAAk1DAAAAAAMAkFDAAAAAAMAkFDAAAAABMQgEDAAAAAJNQwAAAAADAJBQwAAAAADAJBQwAAAAATEIBAwAAAACTUMAAAAAAwCQUMAAAAAAwCQUMAAAAAExCAQMAAAAAk1DAAAAAAMAkFDAAAAAAMAkFDAAAAABMQgEDAAAAAJNQwAAAAADAJBQwAAAAADAJBQwAAAAATEIBAwAAAACTUMAAAAAAwCQUMAAAAAAwCQUMAAAAAExCAQMAAAAAk1DAAAAAAMAkFDAAAAAAMImb1QGQ+o4dOzZq1Kj4+HirgwAAAAD/xtfX94033vDx8bE6iHkoYA+hESNGfP3111anAAAAAO6sRIkSbdu2tTqFeShgD6HY2FhJzZo1q1mzptVZAAAAgJTNmDFjx44dMTExVgcxFQXsofXUU0/169fP6hQAAABAyvbs2bNjxw6rU5iNTTgAAAAAwCQUMAAAAAAwCQUMAAAAAExCAQMAAAAAk1DAAAAAAMAkFDAAAAAAMAnb0N9BXMT5M+cuXLpyLTrWYfP09ff3z5gtILsffzcAAAAAd40ikYLI0E0LZsxauHzt5h17Dp+9GudMctQwPDLkKVKybJW6TVq0bNm4aj4fw6KcAAAAAB4sFLAkHBc2j36n36AJm07HOG93jtMZE3Zi3+YT+zYvnvTVG9krd3h36Ff/qxlgNzMnAAAAgAcRBSxRzKGp3Zt0m/J39PXuZdh9suTOlz9frqz+Pt7ennZHTFTktfCLZ0KPHws9FxHrlJyx5/6Y2O+pVau/XzS1Z2lvS+MDAAAASO8oYNdFbvk4yNW+DM/c1Z7r8VLHFvWfKJvPP8U7W47IM39tXbNk5sTRE5fsvxJ7bF7fZ/sX3fJdvYysRgQAAABwW+yC6OI4Nv6dobuinYY9T/Nh6/eun/jhCw0r3KZ9SbJ5BzxWu+3r34Xs3DmnT0Vfwxnz98/vjjoQb2pmAAAAAA8YCpgkyXF87ox1kU7Z8704dnLfypn+840sz4LNh874pKa34YzePmfBERoYAAAAgNujgEmS4v78v72xTtlyPN2mboa7vNZeJKhNVXcp/u8/uQUGAAAA4F9QwCRJzujoGKdk+Pn73f1TXLYMmTLYJGdM9O23TgQAAAAACpiLPW+BvHbJcWLb9lOOu704cufWPbGSLSBXAH9OAAAAALdHY5AkuZVr1qSAXc7INV8NCD5+NwsJneFbBg+ceDRetqw16pRzT7OEAAAAAB58FDAXj8CefWplMBR/bHqXJxr1n7zlVPQdr4m//FfIkE7VGwzaeMVpeJR+6ZUGviYkBQAAAPDA4j1gCezFe/80eEXd3iGnYkJXDu5SbdhrRavWrBlYsVThAnlzZcvo6+Xl4eaMjYqKjLhw+sTxIwd2bt2wbtOe09ccTkm2TDU+GDuwiqfVvwQAAACAdI0CdoN7iR6/rvTq0/7V8bsuO5yxF/9eP//v9fPveJnN/7H2X00e0asSt78AAAAA/DuWIN7Mu1SXMX/s3zjxg061i2R0+/f9EA23DIVqtH9n3Nq/dkx5uVLGu988EQAAAMCjhjtgybnlqNp50OTOg2IvH9n1x/bd+w/9E3rmwqWIyJg4uXv7+vn5Zcyev2iJEiXLlC9TMBObbgAAAAD47yhgt+OeqVDl+oUq17c6BwAAAICHBksQAQAAAMAkFDAAAAAAMAlLEO9b1KVTF685nJLhnTV3Fi+r4wAAAABIt7gDdr+il/YpkTdv3rx58xbptfDOb2++Cx988IHdbjfu3tChQyVt2LAhNdPc4rBnKRnGxv5z0vSnAAAAAA8TClj6FRkZ6XA47vnyU6dOpWKYW+WIDZWU4fvP0vSnAAAAAA8TClj6NXjwYOc9qVSpkqRs2bKlabzTGYpLKhC1P01/CgAAAPAw4Rmw++VRe9Bvm/rEOyVb1mIeVqcxkedzLTV6m6+ublgbX72W3eo4AAAAwAOAO2D3y8hc5PGqgYGBgYFVimYxrE5jorwfvCDJkHP+W2utzgIAAAA8GChguEdGnjwO2SRV+mO002l1GgAAAOBBQAHDvbvmlUVSjfjft2yxOgoAAADwIKCA4d7Fla0kKZdOjf4x3uosAAAAwAOAAoZ75/fc05JschwP2WV1FgAAAOABQAHDvXPr1M5h2CVlycF2mgAAAMCdUcBwHwIC4ho1leR1cE9kpNVhAAAAgHSPAob74lErUFLFmM1r2YseAAAAuBNWjkmS4q9duhAec597qRtemXJk9EydQA+OwEBJgdocvFQNG1odBgAAAEjfKGCS5Dgysuljb22Mvb9ZvNoEX/619aPWwKpWlc1W0bHj5cXR+uZR++UBAACAu8MSREmSZ5bsmdwNq1M8kPz9nSVKeiraY9/Of/6xOgwAAACQvnEHTJJs+brNC22+e8mk4Z9+MXHr+TinJMO3cLWaxTPeRSvzqJDzkeyzRuVK2vfn//RDvXqTZs9WuXJWBwIAAADSKwrYde7Zyj7z+piGT1doXuPVZRcdsudrO3zhF1X4A92RY9sOm9RZk0cceuXbbwMnTLA6EAAAAJBePZK3bP6FZ8men/YoQeu6G7asmV3fNNDyOXMUFWVtHAAAACD9ooAl516hSYM8dqtTPFBq1nR9baDlV65o6VJr0wAAAADpFwXsFm5lKpVlQ467UaGC62s1bfJU9IwZ1qYBAAAA0i8W293CyFChYYu6EefzFs5ADftPypd3ffVQTKA2z5tX++pV+fpamwkAAABIj7gDdiu38n2mr1y1YuJLJViJ+J8UKybPhDeA1dHqa9cUEmJtIAAAACCdooDhvtntKlnS9W1drZLEKkQAAAAgRRQwpIYqVVxfq2uDjxG5eLEcDmsDAQAAAOkRz4AhNVzfh8NNcbm9L7Xs7W2j2gMAAAC34H+TkRrat3dtRh/i2/bgtdxt2lidBwAAAEiXKGBIDVmy6NNPJZX3PShp8WKr8wAAAADpEgUMqeTxx+Xmlu/iTm9F8i5mAAAAIEUUMKQSX1899pgRF1vF/f+2bNGFC1bnAQAAANIfChhST2CgpHaFNsfHa8UKq8MAAAAA6Q8FDKknMFBSXZ/NkubN0wsvaPNmqyMBAAAA6Qnb0COV5dsd8oceb7Z43enLXkePatUqqwMBAAAA6QZ3wJB6Pv5Ykm98eGVtK395jaenfv9doaFWpwIAAADSDQoYUk+ePDe+raPVxYrJ4dDMmRYGAgAAANIXChhST/nyN76tq1VOpyTNmGFZHAAAACC9oYAh9VwvYE4ZlbXt9IErvr7atElHj1qaCgAAAEg3KGBIPdcLmEM2N8VVjV1fqZKcTgUHWxsLAAAASC8oYEg95crJZpNh2BUvqa5W+fpKrEIEAAAArqOAIfX4+qpwYbme/ZLqaPW+fcqYUdu26Z9/rE0GAAAApAsUMKSqcuVcXx2yVdL2c/9c69FD1asrc2ZrYwEAAADpAgUMqapKFdfXc/aAdXnbRco7Tx6tX68MGayNBQAAAKQLFDCkqtde08yZcncPMM6d+miUU8bSpVZHAgAAANINChhSlZeXgoJUpozi4prk3GGzafVqRUZanQoAAABIHyhgSAOBgZIy/rW5cmVFRur3363OAwAAAKQPFDCkgcBASdq8uXFjSWIVIgAAAOBCAUMacBWwTZsaNZKkxYslacIEDR5sZSgAAADAchQwpIGSJZU5s44fL7o/pLn/qr/+0uHD+uQT9e+vzZutzgYAAABYhwKGNPDaa8qSRZJ7966zrjbOqgvLlqlNG0kaMcLiaAAAAICFKGBIbfHxGjFCR45ICnf6uTlintSapUvVu7fsdv36q86etTohAAAAYBEKGFKb3a6iReVwSHLIJqmOVq9cqZw59fTTio7WuHFWJwQAAAAsQgFDGihf3vU1QGckNfFaFR6uDRv0yiuS9OOPio+3MBwAAABgGQoY0oCrgGXI6KNrkfIuErU3QGemTlXDhipeXMeOKSTE6oQAAACAFShgSAOuAubtJemIChlyPmn8PmOGIiPVq5fEVhwAAAB4VFHAkAZcBSwiQtJV+Up6LmD1lSuaOVPPPy8fHy1frnPnrI0IAAAAWIAChjSQN6+yZdPVq5Iy65Kkp4xVksaPV+bM+u47vfSSa5t6AAAA4NFCAUPaKFdOktPNvbAOX7Blz3jtlJ+f1qzRwYN68UWNGiW73eqEAAAAgOkoYEgbjRrJbjeKFbXJcbjPMGPrltat5XRqwgSrgwEAAADWoYAhbfTvr7Aw1asnqUqu4ypW7IUXJGnCBPagBwAAwKOLAoY04+urwEBJ2rxZUu3aKllSoaFatsziXAAAAIBVKGBIS64CtmmT61PnzpI0frx1eQAAAABLUcCQlooWVdasOnVKJ05I6tpVdrvmzUvYg/6bbxQYqAsXLM4IAAAAmIYChrRkGKpSRUpYhZgna1TjxoqJ0dSpkrR1q7Zs0U8/WZoQAAAAMBEFDGksMFDS+m83r+46XhkyDKi0TNLYsZLUvbskjRqluDgrAwIAAACmoYAhzYSHK29ebdggybFx89xfrio2tvruUdmza/dubdumevVUsqSOH9eCBVZHBQAAAExBAUOauXZNoaHaskWGUdX2x6z4lk7DZluyqHvbK5LGjZNh6OWXJWnECIuTAgAAAOaggCHNBAQoIEBhYSpQwDP+Wjad3+VfQ1FRL+cPkfTLL7p2TS+8IH9/rVypvXutTgsAAACkPQoY0lK5cpJUqJCkep7rxoW3kZRvU3CVKgoL09y58vdXhw6SNGqUlTEBAAAAc1DAkJbKl5ekLFkkPZ953q/ONk7DpsWLe7a/ousvBOvTR4ahCRN05YqVSQEAAAATUMCQllwFLDZWHh6lz6+Jlud27xqKimqfIcTHRytX6vBhlS6tWrUUHq6tW61OCwAAAKQxChjSkquA/fmnatc24mLbZ1w08VobST4hwc8+K6dTkyZJ0vjxGjFCTz5paVQAAAAg7VHAkJZKlZKnpw4fVuPGkrpnnzdLQQ7DrnXrXnhBksaNU3y8ChdW795yc7M4LAAAAJDWKGBIS25uKlVKDodKlZJhlD+5uHi1LNv7T9fYsXXrqkgRHT+uVausDgkAAACYhQKGNPbKK6pbV9WqqVIl27WIVe+tfPzL1nrmGcNQly6SNG6c1QkBAAAAs1DAkMa6d9dvvylLFrVoIUnz5t040q2b7HbNmaNLlyxLBwAAAJiJAgaztGwpSfPmyeFwDeTNq3r1FBWlqVMTzzp/3opsAAAAgCkoYDBL2bIqVkxnz2rTphtjrq04XC8Ek/TNNwoI0KJFVsQDAAAA0h4FDCZq3lxKsgrx2WeVLZu2bdP//Z8keXvL4dDw4RbFAwAAANIYBQwmcj0GNnv2pk0a3WWds0xZjy3r2rWTpAkTJKljR/n4aPlyHTpkYUoAAAAgrVDAYIpt23T0qGrUUECADh4MHvTnjsl7jL179O23L70kSVOmKDpaGTMqKCjxBc0AAADAQ4YChrR35YqeeEKNGslmU9Omktp7z52rlg7DrsWLyxW8UrGiLlzQ/PmS1L27dP0FzQAAAMBDhgKGtOfvr+zZdeCAdu92rUKseGzeZa+c65w1FBWlhQtv3oqjdm2VKqUTJ7RkiaWZAQAAgDRAAUPaMww1bixJISFq0EC+vvbtWzvVORGsNpIUHNyxo7y8tHSpjh2Trm+NOHasdYEBAACAtEEBgymaNpWkkBB5e6tRIzmdvfMtmKnWDsOuJUuyuF1p0UIOR8KjX127ysNDCxbo9GlrQwMAAACpjAIGUzRsKE9PbdyoCxdcqxDLH50XlSn5KsRx4+R0KkcOPfus4uK0f7/FqQEAAIDURQGDKfz8VLOm4uO1bJmaNZObm231bx2bXr6xCrFBA+XPryNHtGaNJI0apXXr9OST1oYGAAAAUhkFDGa5sQoxSxbVqqXY2F4FFs9SkEM2LV1qk6NrV+n6VhwZMqhGDSvDAgAAAGmBAgazuArY4sWKj3etQix9cF6pp3JNqTBEAwbIZuvWTTabgoN1+bLFSQEAAIA0QgGDWYoXV+nSCgvTxYtq2VKGYSwKWbkousuOfvrgA0kFC6pOHUVG6tdfrY4KAAAApA0KGEy0cKHWrVP27CpQQBUqKCJCq1bdfNy1FYdrL0QAAADg4UMBg4kKFlS1agnft2ghSfPm3Xy8VSv5+2v9eh04kDBy7ZoOHTIzIgAAAJCGKGCwSMuWkjRnjhyOG2O+vgoKkqSpUxNGundX8eLavt38fAAAAEDqo4DBIuXLq1AhnTmjLVtuHu7cWZImTpTTKUn58snh0E8/WZEQAAAASG0UMFjn+irEyEiN/fBYxLNdtHNnnTrKn19Hj2r9ekl68UUZhqZNU3i4tVkBAACAVEABg3VcBWzWrMWLtfbjVX5zJuvDD202deokSZMnS1Lx4qpVSxERbI0IAACAhwEFDKabNEm5c2v7dtWqpWzZ9PffdXLtX+nWKF525+IlCgtzvZF5xgxFRkrSiy9K0tixVkYGAAAAUgUFDKY7fFinTmn8eNntatZMUpbf55aul3Odahox0Vq4sHhxVa2qsDAtWCBJbdooc2Zt3KhduywODgAAANwnChhM16SJJIWESImPgXXsqGC1kaTgYF3fisP1QjBvb3XoIEnjx1sQFgAAAEhFFDCYrkoVBQToyBHt26dGjeTrq82bg6qfWuTT+sYqxA4d5OmppUt1+rQkde8uSZMnKzra2ugAAADAfaGAwXQ2mxo1kqSFC+Xtrfr15XD4rJhf9ZmAG6sQs2RRkyaKi9O0aZJUoYJq1FBEhK5csTY6AAAAcF8oYLBC06ZSCqsQZ+g5SfrlF11fhejaC1HS4sU6cEDZs5ufFQAAAEg1FDBYoVEjubtr/XpdvqzmzeXmpt9+a/TEleVZnouWp5Yt08WLzZopWzbt2JGw94a/v/Lntzo2AAAAcH8oYLBCxoyqXl1xcVq2TFmzqkYNRUd7/Laky2tZhnoNjKxWV76+Hh5q21aSpkyxOi0AAACQSihgsIhrFeLq1VLiKsT339eAyA+91y2Xp6eur0L85RfFx1uVEgAAAEhNFDBYpHt3Pf98wgbzrVpJUkiIYmJuPqVaNZUsqZMntWKFFQkBAACA1EYBg0UyZ9b48apZU5IKFlS5cgoLS7ghdpOOHaWbtuKQdOiQduwwKyQAAACQqihgSB9atpSkefOSDXfuLJtNs2crLCxhpFkzVa+u0FBz4wEAAACpgQKG9MH1GNjcuXI6bx4uUEC1aysyUrNnJ4yUK6eoKE2YYHZAAAAA4P5RwJA+VKqkQoV08qT++EPSypUKfW2wpk+X1KWLdNMqxBdflKSxY+VwWBQVAAAAuFcUMKQbzzwjSfPmRUaqVaNruYYPULduCgtr00Z+flq9WkeOSFKDBipSREeOaNUqa+MCAAAAd40CBqt9/bVmzpQSVyF6e6tQaZ/VqqPISM2c6eenFi3kdGrqVEkyDHXtKkljxliXGQAAALgnFDBYKjxcAwaoWzdFR+vJJ5Utm/bu1YED7dppkhKXHrpeCDZxYsIDYt26yW7X7Nk6d87C6AAAAMBdo4DBUv7+KldO4eH6/XfZ7WrSRJLmzu3QQbOM1lcNP/3+uw4fbtBAefPq77+1ZYsk5cmjJk0UE6NJk6xNDwAAANwdChis1rSpJIWESFJQkCRNn16ggMoE+s52tpLTqSlTbDa1by8psXH16iVJX32lqCgLIgMAAAD3hgIGq7kK2IIFktSkibJk0Y4d+vPP9u01WZ0lafJkOZ2u576mT1d0dMJFzZrJw0NxcVblBgAAAO4aBQxWCwxUtmw6fFgHDsjDQ61aSdKMGW3barW93gkjnw4e1MaNpUurYkVdvJhwq0zSggU6cUJ+fhZGBwAAAO4OBQxWs9vVqJF0fRWia63hL7/kzKlaT9qmODtKcr0QrPP1+2EAAADAA4oChnTg5sfA6tZV7tw6dEjbtvXsqR/18oX8FVWliqSOHeXurpAQnT9vaVoAAADgXlHAkA40aiS7XWvXKiJCNptat5akadPattUfZ/Nn/We76+ZXjhxq2FCxsa77YQAAAMCDhwKGdCBLFgUFKWvWhPd8uVYhTpum+Pjs2ZOcyCpEAAAAPNAoYEgfZszQyZPy95ekatVUtKhOntS6dcnOatFCmTJpyxb99VeS8bZtVamSrl41Ky0AAABwTyhgSJfatpWkadOSDXt5qU0b6ZabYGfPascOff21OeEAAACAe0QBQ7rUqZMkBQcrJibZEdcqxIkTFR+fOPjllzIMDR6sf/4xLSIAAABw1yhgSJdKlVKZMrp4UcuXSzp9WgcWHtDrr+v8+Zo1VaSIQkO1Zk3i6dWqqW1bRUbq3XctiwwAAADcEQUM6dWNrTiktm01s8VkDR2qIUMMI+H2WLJViIMHy8dHU6dqwwbzswIAAAD/CQUM6UlMjLZsSdgLsV07GYbmztXVq0WKKMTRRJImT1Z8/PPPyzAUHKyIiMRL8+XTq6/K6dSbbyZMAAAAAKQ3FDCkJ599psBA/fqrJBUurMBAXb2qkJB27bRB1Y94lNDJk/rtt4IFVaOGrl7VnDlJrn7nHeXKpY0bFRxsSXoAAADgDihgSE9y5ZKkX35J+Hh9FWK9egoI0ISYDlLC0sOuXSVpyBA5HIlX+/lp0CBJeucd8yIDAAAA/x0FDOlJUJDc3LRsmcLCJKltW9ntWrTI7crFoCBNVFenDM2erfDwLl1UuLB27dLUqUkm6NZNDRoob15L0gMAAAB3QAFDepI9u2rVUnS0FiyQpJw5VaeOYmI0d267dvpHBbZ41tLVq5o928NDH3wgSe+/r+joxAnsdi1bptWrLUkPAAAA3AEFDOmM60XLN57iur4KsWZNFSign6O7SAmrEDt3VvnyOnpUo0dbkxQAAAC4WxQwpDPPPiu7XUuXJqxCDAqSp6d++804dbJNGwWrTaybt1at0qlTNps+/liSPvlE4eHWhgYAAAD+EwoY0pmAANWsqehoLVwoSZkyqXFjORyaNatzZ121Z5hVbIACA+XvL6l5cz35pM6d09ChFqcGAAAA/gsKGNKf26xCLFdO+/ap6eYPtGGD/PxcBz/9VJIGD9aZMynMFBuruLi0DwwAAAD8NxQwpD9BQfLy0t9/J3x85hn5+WnTJh05UqyY69ZXopo11ayZIiL05ZfJp3E6VbasqlZVbKwZqQEAAIA7ooAh/cmZUxs2JGyEKMnHR82by+nU9Okpnv7557LZNHKkDh9OMm4Ystu1Y4dGjkzjwAAAAMB/QwFDulSxogoXTvx4fRViiueWLauOHRUTk7Anx82++kqSBg3ShQtpEhMAAAC4KxQwPAgaNVLWrNq9W3v2pHj844/l6anJk7VzZ5LxZs1Uv74uXdInn5gREwAAAPh3FDA8CNzdFRQkybUK0eFQaKj0888aO9Z1vGBB9ewphyPh7cw3++Yb2e0aOVL795saGQAAALgVBQwPiBurEJ3Oz5V/0S0AACAASURBVD9X3ryKe+1N9eihgwddx997TxkyaP58rV+f5Lpy5dStm2Jj9dZbpmcGAAAAkqKAIX2LjEz4pnZt5cmjw4e1ZUumTJK0JluQHA6NGOE6nj27+vWTpAEDks/x6afKmFELFmj5cpNSAwAAACmigCEdGz1a/v5atkySbDa1bStJ06a1bSs3Nw081VeSxo7VlSuu0998UwEBWrdOISFJpsmRI6GVffSRedkBAACAW1HAkI5FRSk+XqNHJ3x0rUKcMSNH1vg6dbQ1tsKZYjUVHq5ffnEd9/NLKFoDB8rhSDLTa6+pfn1VrmxedgAAAOBWFDCkY0FBstm0eLEiIiSpShUVL67Tp7VmTYcOkjQkuo8kff+9nE7XFb17q3Bh7d59o5Ql8PLS8uX67jtT4wMAAADJUMCQjuXJo2rVdO2aFi1KGHnuOUmaNq1jRxUooGHHno3Mmlf79um331zHPTz04YeS9MEHio62JDQAAABwWxQwpG9t2khScHDCR9edr1mzPJzRb7+tOLmNsfeUpO+/v3FFp04qX15Hj2rUKLPDAgAAAP+OAob0rXVrGYYWLdLVq5JUsqTKl9elS1q69MUXlT+/Pj3bw+HuqYULdemS6wqbLeG1y59+emN7DgAAACBdoIAhfcubN/kqxOsvBPPw0Mcf66xybAj6Rt26KUOGGxc984yefFLnzmno0JRnvXxZMTFpHR0AAABIjgKGdM+1CnHmzISP7dvLMDR/viIiunbV6dOqOe0VjR4tu/3miz79VJKGDNGZM8nnu3RJBQqofv0bO3cAAAAAJqGAId1z7YW4fn3Cx/z5Vb26rl3TggWSAgJSvqhmTTVrpogIffll8kM+PvLz09q1mjo17UIDAAAAKaCAId3Ln18zZ2r8+MSR66sQ//26zz+XzaaRI3X4cJJxT0999pkkDRiga9dSOSwAAADwLyhgeBC0aqUGDRI/tm0rNzctWaILF/7lorJl1bGjYmL08cfJD3Xposcf14kT+vbbNEgLAAAA3AYFDA+g7NlVr55iYzV79r+f+PHH8vTU5MnauTPJuM2mIUMk6auvdOpUmuUEAAAAkqKA4cHkeiHYTesSJ0zQrLo/OCs/rtOnbwwWLKiePeVw6P33k0/w5JNq1UoREXrvPTPyAgAAAKKA4UHVpo0yZ9bGjdqxwzXw88+KWP2HsX3bzS9llvTuu/L314IFWrcu+RxDhsjTUxMmaNs2c0IDAADgUUcBw4PJ21udO0vSmDGugV699LNekqTRoxUVdePEHDn0+uuS9OabyfedL1xYr7wihyOFnRIBAACAtEABw4NjxQqVKaMtWxI+9uolw9DkyQoPl9Shgy6UrPGHHtf585ox4+br3nxTAQHavFnz5yef8v331bixnnrKjPgAAAAABQwPjt27tXevhg9P+FiqlGrVUni4az96u13vv6+R6i3JOWz4zdf5+enddyXp7bcVF5dkykyZtHixXn7ZjPgAAAAABQwPjpYtZRhasECRkQkjPXtK0siRrk/PPaftJTucVQ7j/3Zo48abL+3VS0WKaP9+TZ5samQAAADgZhSwf+GMuXLq0N7tm9et+W3F8hUrV/++YevOfUfOhMc673wt0kChQqpUSeHhWrYsYaR1a+XIoZ07tXWrJLtdAz70HKdukhzDk2zF4e6e8Daw99/n5csAAACwDAXsVlHH10/54pUWVQtl9suUu2iZytVq1anXoGGD+nWfrFG1wmOFc2b0zZS//FPt+w2Zsflk1J2nQ2pq00aSgoMTPnp4qGtXSRo1yjXQtq1WlXw5Tm6aOVOhoTdf2r69KlVSaOiNG2YAAACA2ShgSUQfnv9e0zIla3V+Z+T8rUfDUr7V5Yy9cnzXqunD3mr3RLHHGr05ZWcYd8RM07atDEPz5yfuc9izp2w2TZ2qS5ck2Wzq/nH+eWphi49NtvG8YeizzyTp88918WLK0x86pOjotMwPAACARxsF7AZn+B/ftKgZ9PmiQ9eckuGeMU/xMmVLFczqZRiSJFvG0g2DWjZtULNCkQBfN0OSnNeOLPumS83aL888EmNp9kdHoUKqWDHJKsQiRVSvniIjNWWKa6BNG3n+/MOFT0aqRYtkVzdurHr1dOmSBg9OYe7du1WsmFq2TL5bPQAAAJBaKGAJnJeWvNl2wLJTcU7Dt1Tbrxb+efb8if27d/155Oy5g0uGtC3hYziu/HO+yKuTl67dcfB02IVDG2YN/V+Dwr6GnBG7Rndq9vYq7oOZxLUKcebMxBHXVhw//nijOTXrnjPrey/Ly+vWq7/4Qoah4cN14kTyQ3nyKGtWLVmiH35Ii9wAAAAABSxB/N9jPp54NM5peJd/feH66f2blszk5jpi8yvc8I1pq6d0LmCL2P5NlzcWXnRK9gyFnnj2te+X7dk2pVtpb8MZvW/kq4O3cxfMFK1bS9KSJYkjLVooTx7t25dszWGKqlRRUJAiI/XJJ8kPZcmin3+WpLfe0q5dqZYXAAAAuIECJklyHAuZvz3aKXuh7sM+rpPZSH7clrPFZwPr+RrxJ6YPnxHquDHuXaLDT7M+q+1nOGP2jh+9OjL5dUgDRYvq88/Vv3/iiJubunWTErfi+HeffSZ3d40dq337kh9q2VIvvqjoaHXokPiUGQAAAJBaKGCSpLj9e/fHSfZcTVpV90nxDFvuhk0qussZtXHpmis3H3Av8cLLjTMYcpz9ffXeuBSvRWobOFBvvplk5KWXZLcrOFhnz97x6uLF9cILio/X+++ncHT4cBUvrr179d57qZQWAAAAuI4CJklyRkdFOSVbtoDs9tucYsueI5tNcsaeDj0bn+SIX7ESee1S/MljofG3uRhpLV8+Pf20YmI0ceLNw2fOaO6I0Phb/rt89JF8fTVrVrLXNUuSr6+mTpW7u4YO1cqVaZkZAAAAjx4KmCTJljV7NpsUf+ro8ds9yOU4e/qcQ5Lh6eWZdImi80rYFadkeCQ/AFO5tuIYNUqOxDWiIV1mtPxf3g2tv012bq5c6ttXkgYMSGGmypX1wQdyONS1q8LC0iwwAAAAHj0UMEmS22OPV/Ax5Di3aMqi8ynuZug4unD+9ljJlqFwkRxJ/mrha34NORkv2YuUKHK722cwQZMmKlhQhw7pt99ujD1WK6ukoguGXruSfHno228ra1b9/nuS7TxuGDhQNWsqNJTdOAAAAJCaKGCSJCNzw7aNstjkODPj1R4/77uW/PjVnd+9/OnaSKdsmeo3reF9Y9x5ZedPL3T/+Wi8DM/yLZoWpoBZyGbTiy9KSbbiCHy3/iHvMrniT/zWZ06y0zNm1MCBkvT22zffM0tgt2vhQq1YoVq10jIzAAAAHjEUMBcje9D7b1TxNZzxoXNefqJq6/fGLNqy7+iJE0f2blw4+p1nq9R6Y9k5hwzPsv97q3kmSZLzwsrPgioVrdJ71j9xTsOtUJePe5aif5nq5Em1aqVVqxJHuneXu7vmztXJk64Bw1DU870k5Zg2/OrV5BO88ory59euXZo2LYXpM2ZUvXppkxwAAACPKgrYde7l3po2snV+d0OOsL2zPnupaeBjhfLlK1ym+jM9v5izL9wh2bLU/XzywEoervMdF7cvWPB/52KdMtxyNxky89smWXgCzFzbt2vu3CTbIebMqRYtFBenceNujJUe8kKYe7aqsevnvrU+2QReXvroI0l67z1FR5uQGAAAAI86Clgit0Jdpm6Y/16TQj63NCnDLWul7uN+n/96Wa8k4za/wk/1+n719nmvVvQzLScSNGigbNm0fbt27EgcdG3FMXq0bmx96ONz4bnekrKN/erKleRzdOmi0qV19Oh/fIUYAAAAcF8oYEm45Wn88aJ9Bzb+OuztF1s3rVezeq36zZ7r9eFPC3ce3Ppz19K+N51qz/Pc2J2hZw+u/PGVGgFuliV+lHl6qn17STff71K9eipeXMePa/HiG2OFh/WNsvs2jFk47b29yeaw2/X555L0ySe6tZ7dLDxckbxpGwAAAPeHAnYrzzyBbV79ckzwwhVr1/++fMH0Hz/q+fRjmW75S/nkL10qpzfLDi310kuSNGWKrl3fOMUwEgZvvqWVNevF5s8bcmYcm3w/eknNm6tGDZ0/r29TOJggPl4lSqhiRUVEpF54AAAAPHooYHiQlS2rxx/X5cuaOzdx8IUX5OWlRYt09OiNsdzfvhnj4VexWMr96ZtvZBj65hudPp3yz7HblSeP9u/Xq6+mYnoAAAA8cihgeMC5tp4fOzZxJGtWBQXJ4UgyWLCgx5njJf74JcU5AgPVrJkiIvTZZ7f9OZMmycdH48bp119TJzgAAAAeQRSw+xZ16dTJ0NDQ0NCTF6OszvIoat9ePj5atUoHDyYOurbiGDNGsbGJg5kyye22T+t9/bXc3DRqVJJpblaqlL7+WpJ69dLx46mRHAAAAI8edo+4X9FL+5Ro9Uu4U/JqE3z519aeqTZzXFzcsWPH7iXSI7WlesaMat1akyYl2ZK+Vi2VKaM9ezR/voKC/ss0JUuqUydNmKB339WMGSmf07u3lizRwoXq1k1Ll8rGP18AAADgLlHA0q/u3btPnDjxni8/fbvnmR4+H3wgp1NPP51ksEcP9e2rUaP+YwGTNGiQgoP1669q106tWqVwgmFo3DiVLasVKzR8uPr1u+/kAAAAeMRQwNKvqlWrrl+/3uFw3O2FoaGh0dHRPj4+aZEqPSpSRJMmJR/s0kUDB2rFCh04oOLFkx08dUo5c8pIuodl/vz64gv17auePVWjhnLkSOFHZc+un39WixYaOFANGqhMmVT8NQAAAPDwo4DdL4/ag37b1CfeKdmyFvNIzZl79+7du3fve7iwcuXK27dvz5AhQ2qmeeBkzKh27TR2rMaMSXh467pdXy2eNWDr1X7vDfk2+SLC//1PCxZo+XL17avp01Oe+Jln1LOnfvpJc+dSwAAAAHB3eIrlfhmZizxeNTAwMDCwStEsvBUsXXFtxTFunKKSbI9SdOaXg/Th6R9m3rqXhmFo9Gj5+2vGDAUH33biYcM0fbr69k31xAAAAHjIUcDw8KpSRZUr68IFzZp187BP9w6S3oz94vPPnLdeVLCgvvxSknr31pkzKU/s6annntMjfosRAAAA94AChoea6ybYqFFJBp9/Pi57rgr6vyNjfzt8OIWLXn5ZjRrp/PmEqwEAAIDUQgG7g7iI86FH9u/ZuWPbH9t27P7r4NHQcxFxVofCbSxfrpo1tW9f4kiHDsqQQWvXas+exEFPT7d+fSS9EfdVim9eNgyNGiV/f82bd9st6QEAAIB7QAFLQWTopl+/fatLk2olcvp5Z8iet3DJshUqPV7l8UrlShUrlDcgg2+mfI9Ve7rrwO9nbz5+LYVFbLDKpk1avz7Jlhu+vurUSbrlJtgrrzj8MzbQ8l0Ttu/fn8JMBQpo8GDXiXp09vMHAABAWqOAJeG4sPmnntULF67+3BtDJi/ZfODM1bhbCpbTGRN2Yt/mxZO+7Bv0RJGCVZ8fvu5MvBVhcYuOHWUYCg7WlSuJgy+/LMPQhAm6fDlxMEMGW4/ukt5wDE7xJpikHj3UuLEuXLjDQsSjR/W//+ngwVSIDwAAgIceBSxRzKGpzz/xZO/RG0/HuFqXYffJmq9Exep16jd6+pmWrVo2b9q4Qd0alR8rmMPP3bXfoTP23B8T+z1VtfWovZFWRodL4cKqXVtXrybZQr5MGdWvr4gIjR6d5OR+/ZzuHm0UvGXqwaNHU5jMMDRmjDJl0vz5mjr1tj9z0SKNGKEePVLnNwAAAMDDjQJ2XeSWj4O6Tfk72inDM/cTXT4at3THP5eunD/21/b1q5YvCZk/Z/aceQsXL/tt3R97j5wJCzu1d82Mb/o8XSKDTc7YY/P6Ptt/ZRirEdOBF1+UpLFjkwy+/rokffedYmMTB/PkMTp1tCu+R8YZXl4pT5YnT+JCxNDQlM/p0EFZs2rVKi1YcN/hAQAA8LCjgLk4jo1/Z+iuaKdhz9N82Pq96yd++ELDCvn87bc53eYd8Fjttq9/F7Jz55w+FX0NZ8zfP7876gArEa3XurUyZ9aWLdq5M3GwcWOVK6fQ0OTv9vr0U/Xp8/rGNjlz3na+7t3VpIkuX1avXimfkCmT3n9fkt56K0m/AwAAAG5FAZMkOY7PnbEu0il7vhfHTu5bOdN/fqGyZ8HmQ2d8UtPbcEZvn7PgCA3Mct7eatdOkiZMSDLep48kffNNksHcufXddype/N+nHDNGmTNr4UJNnpzyCb17q3hx7d+ffJEjAAAAkAwFTJIU9+f/7Y11ypbj6TZ17/btuvYiQW2qukvxf//JLbB0wbUKcfJkRUcnDnburJw5tX271qy52/ly59a330pSnz46cSKFE9zdE97d/NFHCgu7p8wAAAB4NFDAJEnO6OgYp2T4+fv955tfN9gyZMpgk5wx0TE8BZYeVK6sihV14YI2bEgc9PRM2M1w6NB7mPL559WypcLCbrsQsVUrPfWUzp/XF1/cw/QAAAB4VFDAJEn2vAXy2iXHiW3bTznu9uLInVv3xEq2gFwB/DnTiVGj9OabCgxMMvjKK/L21vz5+uuve5hy5EhlyaKQEI0fn/IJX34pw9Dw4frnn3uYHgAAAI8EGoMkya1csyYF7HJGrvlqQPDxu1lI6AzfMnjgxKPxsmWtUaece5olxF2pUkWDB8vHJ8lg9uzq1ElOp3744dYr4q5G168T9y+7yefKpWHDJKlfPx0/nvLP7NhRUVHauvW+sgMAAOAhRgFz8Qjs2adWBkPxx6Z3eaJR/8lbTkXf8Zr4y3+FDOlUvcGgjVechkfpl15p4GtCUtyPN96Qzabx43XhQpLxmBh70UJfrqs55mfnunW3vbpzZz37rMLC1K2bnCktNx01SkuW6NlnUzk1AAAAHhpuVgdIL+zFe/80eEXd3iGnYkJXDu5SbdhrRavWrBlYsVThAnlzZcvo6+Xl4eaMjYqKjLhw+sTxIwd2bt2wbtOe09ccTkm2TDU+GDuwiqfVvwTupEQJNWqkxYs1apTeeSdx3M3NcHd7PH5zU4UMGNBs7VoZt3kW8KeftHatVqzQ2LHq3j35UR8fNWqUVtkBAADwEKCA3eBeosevK736tH91/K7LDmfsxb/Xz/97/fw7Xmbzf6z9V5NH9KrE7a8HQ79+WrxYI0bozTfl4ZEwaLOpXz+9/vp7Hl9XW99s9OiEDTtulT27hg1Tx4564w01bKj8+U3LDQAAgIcBSxBv5l2qy5g/9m+c+EGn2kUyuv37foiGW4ZCNdq/M27tXzumvFwp491vnghrNGig8uV18qSmT08y3qOHsmYNjFlbXRv691do6G0n6NBBrVrpypXbljQAAADgdrgDlpxbjqqdB03uPCj28pFdf2zfvf/QP6FnLlyKiIyJk7u3r5+fX8bs+YuWKFGyTPkyBTOx6UZ6N2iQQkK0ZImyZEkcfPVVdeumIUPUuXPiWkNfX/Xqpc8+G5FjUKWzS/r2NWbNuu2sP/6o1au1ZImWLVPDhmn7GwAAAOBhQgG7HfdMhSrXL1S5vtU5cF927tTWrZowQa+/njjYoYPefVe7d2vVKj31VOJ4374aObLC2WVvew3/cvZrc+aoVauUZw0I0IABevtt9e+v+vVlS+lG8qpVmjpVQ4YoY8ZU/Y0AAADwIGMJIh5qnTtL0s8/Jxn09FTv3tItL2XOkUOTJskwPovtX02bXnst5a0OXfr2Vb582rlTwcEpnzBlisaM0aBB9xUfAAAADxkKGB5qzzyjXLn011/atCnJeO/e8vVVSIj27Usy3qyZ+vSxxcdOyPpGuXK33QtRkpeX3n9fkgYOVExMCif07Su7XSNG6O+/7//XAAAAwEOCAoaHmpubOnWSpDFjkoxnyaLOneV0avjw5Jd8/bXaty/xetMFC+4wd7duKlVKR45o7NgUjpYvry5dFBOjgQPvOT0AAAAeNhQwPOxeekk2m6ZN08WLScb79ZPNpkmTdP58knFPT02dmuQtYbdht+uTTyTpo48UHp7CCZ9+Kl9fzZqlf3m5MwAAAB4pFDA87IoVU+PGunYt+ZNgxYvr6acVGakff7znuYOC9MQTOntW33+fwtHcufXGG5L0xhuKi7vnHwIAAICHBwUMj4A+fSRp5MjkNci1NeIPPygq6p7n/vJLSfr6a124kMLRt95SnjzasuW/3FEDAADAw48ChkdAo0YqWVLHjumvv5KM162rihV19qymTfuXq8PCtGzZbXdErF1bjRopLExffJHCUT8/zZghd3cNGaLly+/5FwAAAMBDggKGR4BhaOZMjR2r0qWTH+rXT5K+/fa2BevUqWMVmo9oNH/EiNtO/9VXstk0YoSOHUvhaI0aGjZMhqEzZ+4tPQAAAB4eFDA8GkqXVrduKewr366d8ubVnj23vT918GDZowumqNO4AQeOH0/5lPLl1batoqJu+9av3r0VHp6wHSMAAAAeZRQwPNrc3VN+KfMNtWqpUyd/hU+82rpP98jbTfP55/Lw0MSJ2rs35RN8fO4/KwAAAB54FDA88nr1kp+flizRrl0pn/Djj3FFSpTV7vrL+s+YkfIphQqpe3fFx+u999IuKAAAAB54FDA88jJnVteuklLeS16Sn5/b7F/j3b3+px+W9Jid7LVhN3z4ofz9NXeuNmxIq6QAAAB40FHA8IhxOnXqVPLB11+X3a7Jk3X6dMpXlStnG/yVpKFXXhzc+0iKp+TIoVdflaQBA+4Q4fBh9eunEyfuKjcAAAAeBhQwPGI+/1y5c2vBgiSDhQvrmWcUHa2ffrrddUbfPhH1W2bS5aDgdmuWx6R4Tv/+ypFDa9dq0aJ/izBnjoYNU6tW9/P6MQAAADyQKGB4xPw/e3cZVlXahQH42efQCCImmNjdPSp2CzZ2Byk2qKNiY2JhgwGiGNiijoojBuZYYzujIjZgk+fs78c43yicPqCgz/1rhr3e9a491zVeLvbe682TBwDmzUv783/m0a9YgQQlkzYEIUdowDurIrVx/v7i/QpDLCzg5QUA3t6Qy5WWMHgwSpbExYsYNkzb6omIiIgoe2MDRj+Zvn1hbY1Tp3Dx4lc/b9QItWvj1SsEBytda22d4+jue609Oi5ooCzE3R12drh+XdXZzlZWCAuDuTmCgrB2rQ73QERERETZFRsw+smYmWHgQABIf7LyP59wzZqFt2+VrZbUqFYqfGnucvmUBRgZYcoUAPj1VyQlKa2iUqXPrZebG06f1rh4IiIiIsrm2IDRz8fDA1IptmzBixdf/bx7d9SqhUeP4OamT/q+fVGhAh4+xJo1qsJ69oSHB1JS0LMnXr3SZ0MiIiIiyjbYgNHPp2hRtG+PpCSsW/fVzw0MsGULLCyweTNCQnROL5Vi1iwAmDED79+rily4EI0aIToaTk5ITdV5QyIiIiLKNtiA0U/JwwMAVqxASspXPy9RAgsXAoCrKx490jm9oyN++QWvXsHPT1WYoSG2boWNDSIisF/xXA8iIiIi+qGwAaOfUtOmqFABT59i1660l4YORbduePsWffpAJlORI/aVPKKC+8Mxio9v9vUFgPnz077nmIaNDfbuxaBBqFtXm/qJiIiIKHtiA0Y/JUHA2LEAFLdHq1ejcGGcOqVgWv0XLkV+anBzTeFFo+TnL6a/2qAB2rXDhw+YM0dNLTVrIiAABQpoXDwRERERZVtswOhnNWAAoqPh7q7gUq5cCAiAIGDKFJw7pyxBkw45NliNlEIW7+Ss8FnZnDmQSLByJf76KwPrJiIiIqJsjA0Y/cQKFYIgKL7UogU8PZGait69lU3SMDSE+XyfhyiW++Gl1BUKJh5WqoRevZCcDB+fjKuZiIiIiLIzNmBESvj6okoVPHjw+WVFRZwGmvkVWghA9PLGs2fpA6ZPh5ERgoNx4IAWOycmal8tEREREWUHbMCIlDA2RkgITE2xZg22b1cYIpWi3vzO+9HeMOGdbJx3+gA7O8yYAVFE//6IjtZo22XLYG2N3bv1KZ2IiIiIsig2YETKlS//eYaGq6vCB1wAnJzgX275J5hJQ4Jw/Hj6gHHj4OiI2Fh065Z26L1CZmZISEDfvrh+Xa/aiYiIiCgLYgNGPz25HOvWKR2UMWIE2rXD69fo3x+imP66IGDYrKK+8IYoyj08FQasX4+iRXHuHCZPVl/O4MEYNAgfPsDBAa9fa3crRERERJTFsQGjn96ZMxg6FH36KL4qCAgMRP78+O03LF2qMKRjRxyrMf46KqXEvYdcnj4gVy5s3QpDQ8ybhz171Ffk74/atfHwIXr0QGqqFrdCRERERFkcGzD66dWogdy5cfYszp9XHJAvH9avhyDAywtXr6a/LggI2Wl8M+iS0cO7kCj+f6puXUyfDlHEwIF49EhNRSYm2L0btrY4dgzjx2t3N0RERESUlbEBo5+eqSmGDAGAZcuUxrRpg6FDkZSEXr2QkJD+etGicOpjKBgbqdjHywsODoiPh5OT+o/BbGywYweMjeHnh8BADe6CiIiIiLIDNmBEgKsrDAwQGoqYGKUxfn4oWxY3b2LiRN020fZjsHr1Pr/z6OaGGzd025OIiIiIshY2YERAkSJwdERKCtauVRpjZobNm2FkhCVLcPCgbvtYW//3Mdjeverjhw2DhwcSEzUdYU9EREREWRwbMCIAgIcHAKxciaQkpTHVq8PH5/OHXC9eqMomispOU9bqYzAAS5fi+XO0aaM+koiIiIiyPjZgRAAAe3vUqIGXL5WdufyZlxeaNMHLlxg+XFnI8eN42dkZBQrgzh1lORwcEBeHHj00Ohksf371MURERESULbABI/qXqysArF6tKkYiwYYNsLLCnj1Ysyb9dZkMbdog7IAx3r6Fm5vCHP//GCwqClOmZEDhRERERJRdsAEj+levXmjVCvXqqQkrUgQrVwLA2LF4+jTNRakUlw38bwAAIABJREFUrVtjUorPB9O8OHYMW7YozPH/j8HmztXoYzAiIiIi+jGwASP6l4kJDh3CvHnqI3v0QMeOeP8e3t7pL86ciTcS63GpcwBg9Gi8eaMwR926mDZNi4/B/nHvHsaMwbNnmsYTERERUZbCBoxIJwsXwsQEwcGIjExzpVIldOmC1SmD7tna4/lzTJ2qLIe3Nzp00OJjMAChoVi0CA4OCk8jIyIiIqKsjg0YkU6KF8fYsRBFeHpCJktzceZMSKRC95fLRQND+Pvjjz8U5hAEbNiAIkUQFaWiTfuKqytKlMDFixg2TM8bICIiIqLvgA0Yka4mTkTRovjjDwQEpLlSujR69MCV1IpHy3lAJoOzM1JTFeawtkZoKAwN4eur0cdg1tbYvRs5ciA4GL6++t8DEREREX1TbMCIlHj8GIsX48MHpQGmpp8/GJswAbGxaS76+MDAAN1v+qTaFMb589i1S1maunX/O11Mk4/BKlZEcDAkEkyahJ07NbsXIiIiIsoa2IARKeHvj1Gj4OmpKqZ7dzRpgrg4TJuW5krJkujXD29kFmubh6JzZ9SqpSKNtzdat0ZcHPr2Vfao7CuOjvD1hVyOvn1x7pz6eCIiIiLKItiAESkxYABMTREYiP37VYUtWwZDQ6xYgatX01yZNQuDBqHOyHrYuRPFiqnIIZFg0yYULIjISEyYoFF148ZhyBAkJKBTJ0RHa7SEiIiIiL47NmBESpQrh5kzAWDwYLx8qTSsQgU4O0Mmg7s7RPHLKwUKICAA1atrtFvevNixA0ZGWLgQO3ZotGTFCjRrhmfPsHatRvFERERE9N2xASNSbuRI2Nvj5Us1LyJOm4a8eXHqFLZv12e3unUxdy5EEYMG4dYt9fGGhggLw+LFGD5cn22JiIiI6NthA0aknESC9ethYYGtWxEaqjQsV67Pz8rGjMHHj/psOHIk+vTB+/fo3l2jTJaW8PREwYL67ElERERE3w4bMCKV7Owwfz4AuLnh+XOlYUOGoHZtPHmifja8ry/c3dMfHfZ/K1eifHncuIGhQ3WrmIiIiIiyLjZgROoMG4ZWrRAbi5EjlcZIJFi8GIKA+fNx757CkGXLsH8/sHkz/P1V9Gk5ciAsDJaW2LIFK1fqXz0RERERZSFswIjUEQQEBCBfPsTFqQqrVw99+iApCePGpb/49i08PdG1Kx64LYIgwMcHUVHKMpUp83muhqcnzpzRrtgjR1Q9qCMiIiKi74sNGJEGChbE48cID1cTNn8+cubEnj3pI3PmhKsrkpLQZlGLFLeRSE39/LGXEt27w9MTKSno0QOvX2ta5tWraNUK9eurmtpIRERERN8RGzAizRgbQypVE5M/PyZNAgBPTyQlpbm4YAEqV8a9exiVOAdVq+LBA1XvNALz56NhQ0RHo0cPFZ+MfaVsWdSpg7//RqdOSEzUaAkRERERfUtswIgylKcnypTBvXtYtizNFRMThITA1BT+64wP9d38+ZRn5cMVDQ2xbRtsbHDsGKZP12hzY2Ps3o2iRXHmDPr3T3MsGRERERF9f2zAiDKUkdHn1mv6dDx7luZihQqfp2/0mlk+fsI8AHB2xuPHypIVKIDNm2FggJkzcfCgRvsXKICDB5EzJ7Ztw4wZut0DEREREWUWNmBE2ktMxNmzSh8wtWgBBwe8f48JE9Jf9PBAhw6Ij0eno25iu/Z480Z1n9SkCaZPh1yOPn3w118aVVe+PLZuhYEBfHywebNGS4iIiIjo22ADRqS9WbNQvz4WLFAa4OcHExNs2oRTp9JcEQSsW4cCBfD7SSG0VSC6dEG7dqp38/ZG586Ij0fnzkhI0KjA1q2xcCFEEUOG4OxZjZYQERER0TfABoxIe/b2EARMnYroaMUBxYtjzBiIIjw9IZenuZgvH4KCULYsrMvkxY4d6NhR9W7/jMEvUQJXr6oe2/GVESPg5obERB7oTERERJSFsAEj0l7z5nByQkICvL2VxkyciKJFcfkyAgMVJrh1Cy1barqhlRXCwmBmhjVrsH69pqsWL4aXF4YN0zSeiIiIiDIbGzAincyfDzMzbNmC06cVB5iZfR644e2N2Fj9N6xcGWvWAICrKy5f1miJgQF8fTFihP6bExEREVHGYANGpJNChTBqFEQRY8cqncbRowcaN0ZsbEaNI+zdG0OHIjERXbogLi5DUhIRERHRN8UGjEhX3t6wsUFUFLZuVRqzZAmkUvj7IypKfcITJzBgAF6+VBGydClq1MDDhxg0iMd8EREREWU/bMCIdJUjB2bOBIDx4/Hpk+KYypUxdixSU9G/v9IY4MQJLFgAcWcYNm6Em5uKPU1MsH07rK2xZ48uz9Vev8Zvv7FzIyIiIvpu2IAR6WHAAFSrhidPsH+/0php01C5Mu7ehZeXspDZszFuHJaZeSFnTuzYgbAwFXva2SEkBFIppk3Dnj3a1Tt+PFq2VFEIEREREWUuNmBEepBIsGkTRo5E06ZKY4yNERICExP4+yM8XGHIpEmQSDBmUcG/h8wCADc3xMer2LZVK8yZ8/l05hs3tKi3Vy8YGWH+fMyfr8UqIiIiIsoobMCI9FOxIvz8kCePqpgKFTBlCkQRQ4cqnJ5hb48xY5Caipa7XGT1G+L5c4wdq3rbceMwcCA+fECHDnj9WtNimzfHxo2QSODlhYAATVcRERERUUZhA0b0TXh5oVEjxMTA01Ph9ZkzUaMG7v8lGWu1DqamCAzEkSOqU65Ygdq18fAhevRAaqqmhfTogeXLIYoYPhw7d2p1D0RERESkLzZgRN+ERIL162FhgeBgbNuW/rqREUJDYWmJxQdLn289BQCGDcOHDypSmphg927Y2uLYMYwfr0UtLi6YMgUyGfr0wcmT2t0HEREREemDDRjRt1K8OObOBQA3Nzx/nv56iRJYuxYAmoWPTShXHY8eYd481SltbLBjB4yN4een3SuF06bBxQWJiXBwwNWrWiwkIiIiIn2wASPKOC9fYssWyGRKA5yd0bYtXr/GgAEKh8F3746hQ/Eh0cDZKBDW1jA3V7tnvXpYvRoA3N1x7pwWxS5fju7d8fYtfH21WEVERERE+mADRpRxZsxAr17w81MaIAhYuxbW1jh8WNkTqyVL0KYNrOyrIDZWw4Hx/fvDzQ2JiejYETExmhYrkSAoCAsXYtIkTZcQERERkZ7YgBFlnA4dAGDmTLx6pTTG1hbLlwPAyJG4fz/9dVNTHDyIJUu023nxYjRpgufP4eiIhARNVxkZYfRoVKyo3V5EREREpDM2YEQZp2VLtG2Lt28xZYqqsJ494eSEjx8xYICq9xW1YWCAHTtQogQuXcLw4RmSkoiIiIgyHhswogy1cCEMDbF2La5fVxW2ahUKFcLp06reV9SStTXCwmBujqAgLF6cUVmJiIiIKCOxASPKUGXLYvhwyGQYOVJVmJUVAgMhCPj1VzWt2j+ioxW+r5hG5coICoIgYOxYhIdrXPMXzp5VOKCRiIiIiDIGGzCijDZ9OnLnxvHjOHhQVViLFhg2DElJ6NcPycnKot68waBB+FS3KapU0aQH69QJkyZ9PuNLg/CvPH6MX36Bvb0WX5ERERERkVbYgBFltFy5Pg8WHDMGKSmqIhcuRKlSuHIFM2YoC7l1C+vXY9frhvj0CUOHKhxen8b06ejaFXFxcHDAu3daFG5riwoVcPeumk/YiIiIiEhnbMCIMoGbG0qVwu3biIpSFWZujg0bIJXC11dZZL166NkT7smLXhna4sSJz2d+qSQICAxExYq4dQv9+kEu17RqAwNs2gRDQyxahDNnNF1FRERERJpjA0aUCYyMsHMn5sxBnTpqIuvXx9ixSE1Fnz748EFhyIoVyGVn5ZqyBAC8vBAdrXZ/Cwvs3Ys8ebBnD6ZP16LwatUwahTkcgwejMRELRYSERERkSbYgBFljkqV4O0NIyP1kdOmoXJlPHiACRMUXreyQmgo9hp1DUNnvHsHZ2dN9rezw+bNkEoxfTq2bdOi8OnTUb48bt/G7NlarCIiIiIiTbABI/rejI0REgITE/j7K5tdWKsWZs+GG/zfCLlw8CBCQjRJ3LIl5s+HKKJ/f0RGalHOunWQSjFnDi5d0nQVEREREWmCDRhRFlChAqZMgShi2DBlczNGj0YdxwKjxYUA4OmJ1681STxqFEaMQGIiOnbE7duallOvHtzckJqKoUMz6qRoIiIiIgLYgBFlFePHo25dPHmCiRMVXhcEBATgaKEBv6EFXr/G8eMaJvbzQ+fOiItDmzZanPE1ezaKF8eVK3jyRNMlRERERKQWGzCizHfnDqZORVycqhipFGvXwtAQK1cqG0GYOzd2hgnB7be+XBSMjh013FwiQXAw6tfHw4do317ZpI+0zM0REYETJ1C0qIb7EBEREZF6bMCIMt+GDZg+Ha6uasIqVsTYsZDL4eys7ACxWrWwcZ91vlG9NRrv8S9TU+zZg9KlcekSnJyQmqrRqiJF0KiR5psQERERkXpswIgyn7MzLCwQGoodO9RETp6MkiVx/ToWLcrYEvLkQXg48uXDwYPqO0EiIiIiyiRswIgyX9GimDsXAFxc8PKlqkhTU6xdC0HAtGl48CBjqyheHPv3w9wca9fC1zdjcxMRERGRRtiAEX0Tzs5o2RKvX8PTU01k48bo3RsJCZnxoKpWLWzZAqkUEyciKCjD0xMRERGRGgbqQ5IPjajuEZ6k3z7GbZZdXtpai49WiH4sgoDVq1G5MrZuRdeu6NJFVfDixTh8GEeOICQEvXqpCFy9SmwwsmaxCubmZ49q+FVYhw5YvhwuLhg8GLa2aNZMo/IvXULHjpg2DYMGaRRPRERERApp0ICJH54/uH8/Ub99TJ5/EPXLQJTdFSuGOXPg7g4XFzRsiHz5lEbmzo25czFoEDw90bIl8uRRFvjkCSRJCeaXLyd5TTH20/S1Qmdn3L37eTx9ZCQqV1a/5MMHPHmCESPQpAns7DTch4iIiIjS0qABEyyLVKhYUd8nYEUsBf0yEP0AXF2xcyciIjBpEtauVRU5YACCg3H8OLy9sW6dsqhJvwrDwjYF3KpvtGS+2KGV0LSJhoUsWIDoaOzYgbZtERWFQoXUxNvbo2dPbNmCwYNx7BgE/u9MREREpBMNGjCjlgsuXl+Q+aUQ/fgEAevWoXZtfPqkPnLlSlSpgsBA9OqFpk0VRpmYYEZ4zcXlJ477NO1dp36WD68hVy5NCpFIEBSE589x6hTatkVkJHLmVLNk2TIcP46ICKxdi2HDNNmEiIiIiNLiEA6ib6t4ccTEIDhYfWTp0vD2hijCxQWJSl8CLloU1Xb+GiXUs3z35GkXD80LMTHB7t0oUwbXr6NHD/WHg+XOjSVLAGDcODx+rPk+RERERPSfzG/AEuOfPY15GvtJnuk7EWUTxsaavsM3YQLKl8fdu5g3T0VU89YG5zyC38PCNmLzq6VbNC8kd26EhyN/fhw6BGdn9fFOTujSBe/eYfBgiPyqk4iIiEh7md6AJUd6Vy9cqKj9nCvqfr9ORGkZGWHVKggCZs/GrVsqAj38igdW8gNgMto19e9ozXews/t8OFhAAGbOVB+/fDmsrXH06OeDzYiIiIhIK3o3YPKkt69fvlDmyfVdoSdei5BF/x0ty4h6iX42DRti0CAkJcHZWcVTJ4kEfU8MPmzWyUL2Jn7Req12qFkTISGQSjFlCnbtUhNcoABWrIAgYMIExMRotQ8RERERaTKEQwkxNmr5uDHzt0U9+ShX+y6S1Dpvbn5uRpTe+/f46y9UqaIqZt487N+PkyexYQMGDlQWZW2NSucDHiysUcKrv7ZVODhgwQKMGgU3NzRpAisrVcFOTsiZE3fvwtZW232IiIiIfna6dkXJ1+Y7th65/ky0Bt2XIMlVz2VAbUMdtyL6kbm4oFo17NunKsbaGosWAcDYsXj5UkWgbYVcJQInqR8qr8iIEWjQAM+eYcIE9cGtW2PECA6jJyIiItKabg2Y+HLb1Dln3sohSHKVa9nbxWNY1xr5pAIkOas7jRg5cuTIkSOcezYsYiJAMCrde0XktaPjqxhlcOVEP4R69SCKGD4c8fGqwnr1Qrt2iIvDmDGZVIhEgnXrYGKCNWtw6lQmbUJERET0s9OpARPf/Lbz6FsRgmltn2MXDgevWLp6e8T6ATYSMcG87siFfn5+fktWhpy4cGBsLfOU+78duJ2i+5uORD82Fxc0aoRnzzBypJpIf3+YmyM4GL/9lkm1lCkDLy/I5RgyRMXce8Xi4rBtG1JSMqcyIiIioh+FTg1Y6p0rNxJECObNXJyrmv/zMwv7Ng1zIOWP0+c//ps6X9NZG6fUM3510Hv8thccWU2kiESCDRuQIwc2bVIzAaNoUUyeDADDhuHjR1WR/3r2DFevalfOxIkoXx537mg95HDWLDg5oWVLvH6t3UIiIiKin4pODZj89ctYOSCxKVfG6v8fgZiULl/cQEy6f+fhf+MODcsOGdEup/h6z7zVNzgEkUgxOzvMmAEAbm6Ii1MVOWYMqlXDw4eYNUuTxBF1J3yqWv/IlljNa/ly7v3Nm5qvQ//+sLXFiROoVUvrro+IiIjo56HbN2AymQyAxDyH+X/rJYWKFpIKqY8ePPriwC8hZ71GVQzFlD8Phj9gB0akzIgRn19EHD1aVZiBAVavhlSK+fNx5YrarLVy3q2Hs4n9h9+7p0UtDRti6FAkJ6uee59W5cq4eBF16+LhQ9Sti+BgLXYkIiIi+nno1IBJcuXOJQFkr56/+q+rEnIUKZpHED/cvP73F62WJE/e3BJA9vD+QzZgRMr8MwHDzAwbN+LoUVWRtWrBxQWpqXB1hVyuOmvJvYs+GeZ0SNn5sEaXN3dVjU9MY948FCyIyEisXav5ItjY4MQJDBqExET06wdvb7UFEhEREf10dGrADEpXLGMoQP7y7Kk7/z3uktqVsjNA6u3zl97991tz8U38WxEQExMS+RUYkQqlSmHKFAAIC1MTOWsWChbE2bNYskR1oFCsqCQk+KPUssX7MKFihdSQbRrWkjMn/PwAYPx47U5bNjZGQAAWL4ZUirlz0bEj3r/XYjkRERHRD0+nBkzI27hldSMBKdf8XKcdf/Z57pnEtlLFPBLx428Bmx/++3tv+eM9YeeSAWmBggWkGVQy0Y9q7FiEhGDqVDVhlpZYtQoAJk3C7duqY026tv9w8fZRk/Y5U14b9HZC9+549UqTWrp1g6Mj3r7FqFEa1f4lT08cOoTcubFvH+bP13o5ERER0Q9Mt2/ApCX7j+yUVwL5m1Mzmxcv3GzhtVQARrVaN8sjET+emNjZZfVvl65fPhbg2X3S8Q8iJHka2FfkKHoi1aRS9OyJ/PnVR7Zvj0GDkJCA3r3Vjn7PX9UmV+TeEUar3sMC27ejUiUNn2qtWIGcObF9O/bs0ST8K82a4fx5uLujWzet1xIRERH9wHRrwCDk6bokcFhZEwEQE18/evZBBACLNmM9qhkL4vsra5xb1qxco/mQ5efj5RDMarh7NDfLyLKJfnp+fihaFJcvazIwvkZN4ZdNw6sI144LzcR37zWcYm9ri+nTAcDVFW/fal1g8eJYtgyVKmm9kIiIiOgHpmMDBgj52vmfPrVhQq9m1UvZWhr+M43esPLYoGUdCxsKX8SZlemzOmRcFUO9SyWiL1haIjAQgoBp03DpktpwJyeMWlJsZuOjb+6/RunSGm7i7o569fD06efP04iIiIhIT4Ko+ZxpDcnf3Q4P3nrs6qN4WJeq276nUxM7Pv36pmrUqHH58mVHR8fdu3d/71ook3l4YPlylC+PS5dgYpIZO1y/jho1IJMhMhL16+ubLSEBpqYZURYRERFlf3379g0ODg4KCurTp8/3ruXb0ekJmOzOke1nohOUdG4Sy7LtXH0WrV6/fvXCiQPZfRHpIjkZAwZg9Wo1YXPnonRp3Lz5+Shn3ezbh2PHlF2sVAljx0Iuh7Oz2s/N1Dh1CpaWGDxY3zxERERE2ZdODVjq9XX9GhS3Ld/a2Tf0XAznyxNlvPh4BAfDwwM3bqgKMzPDhg2QSuHri1OndNkoORmdOqF5cwwapOxLr6lTUaYMrl/HggW67PB/VlYwMUFgINq353h6IiIi+knp/A2YmPrm9uHVE3rUK1awYju3+dsvPEvKyLqIfnL582P4cKSkwMUFqt8TrlcPY8ZALseQIUhI0HojIyMsWQJTU6xfj4oVFfZ7xsZYterz52bq5t6rUrEiIiKQPz+OHMEvv+DJE91TEREREWVTOjVg0jItnexLWEoFAGJq3M2DK8Z3r1O0YKUOHgvDLr9IzuASiX5Sc+bAxganTmHTJjWR06ejUiXcuYOJEzVPHxgICwvs2gW4ueHyZdStiydP0KkT3rxJH9y4Mfr3R1ISnJ3V9IOq1ayJs2c/P09r2BC3bumeioiIiCg70qkBM6g0ZMOJe88fRe3wG9W1TiEziQCIKbE39i8f26VmkUJVHUcu3n3lJRsxIr1YWn4eMT9mDGJjVUUaG2PTJhgZYelSnDih+Q4fPqBPH1y6BJQti4gI1KiB+/fRv7/CHmvhQuTLh99/x8aNWt1GWnZ2OHMGDRrg4UP88gsiI/XKRkRERJS96PwKIgTTgrW7jFy0PerR8/u/B89x7VA1v7EAiMmvru5dMqpT9SKFq3cevXTftdf83J5IV337omlTxMbi11/VRFatiokTIZdj4EANv68aNAjDh+PTJ3TogOhowMQEYWHIkwd792LOnPTx1tZYtAgAxozBy5da30qaVIcPw8EB8fFo2RLHj+uVjYiIiCgb0b0B+y+FhV3D3t7+e/948uzmkQCfQS3KWhsKEJNe/rHLz9OhauEitbqO8z94+y1ndRDpYOVKGBtjzRpERamJnDQJtWrh4UOMGaNh7mXL0LQpnj2DoyM+fgSKFEFQECQSTJmCs2fTx/fujfbtEReH0aO1vY20zMwQFgZnZyQm4vRpfbMRERERZRcZ0ID9n0Gusi0GTQ04cuvZk8v7/L17NypuKRXExOcXdy5w7zLlN76SSKSD0qUxahTkcowapSbSwAAbN8LUFGvX4uBBTXIbGmL7dpQqhT/+QL9+kMuB1q3h4wOZDH/9pXDJ0qUwN8fmzQgN1fZO0pJKsXIlbt3S6ss1IiIiouwtIxuw/zPKV7V1zwEDBw/sVD23VMiMHYh+Jr/+irJlkZioPrJcOUybBgBDhiAuTpPc1tbYtw+5ciEsDJMnAwAmT8bz5+jdW2G8nR1mzgSAXr2wcKFm9atUtiyk0gzIQ0RERJQtZHADlvzyevhanyGtK9kWKNe8/+SNF17LRACCgWVOc3ZiRLoxN8e1a7hwQaPgMWPQqBGePcOIERqmL1MG27bBwACzZ//75Cx/fhXxI0di8WIAGDsWQ4fyVGUiIiIiLWRIAyYmPL24x39Cv6ZlChSs0nbYtIDDN14li4AgMS9cr/vYJbsuPH60to1RRmxF9HMyNISBgUaREgk2bECOHNi8Gdu3a5i+eXMsWQJBwIsXGsV7emLbNpiZYd06tG2rcHC9jhIS4OuLO3cyLCERERFRlqLZX+kUk394GHVw186dO8PCox69l/03ZEMwzle5RZcePXs6dfjFziJT3nIkIqXs7ODrC3d3uLqiUSPVj7P+z9UV/fohRw5NN+nSBYUKoWNHHD2KBg2wbx/s7HQv+f+OHsWECfD1RWgoWrXKgIREREREWYpO3ZH80eF57p1qFclfooHT6EXbTj98//lFQ6tSTftPXnPoxtOYK/tWePdqyO6L6PtwdUXr1nj9GsOGab5Icff16BFmzsTbt+mv1KmDixdRtSr+/BO1amXMiV6tW6NHD7x9i/bt4e+fAQmJiIiIshSdGqSUCwFT/XdfjPkkF/HPi4Z1u41ZHHb+8bO7xzZMH9qqvLU+D9aISCWZTP1ADkHAunXIlQt79yIoSK/t1q3D5Mno0wdyefqLBQsiMhLt2yM2Fi1aYPNmvbYCYGiIkBD4+kImg7s7hg9Haqq+OYmIiIiyDj2eUAlGeSu3c5kdfOLes4dnty3w7FTTxiTjCiMiJbp3h60tHj1SE1aw4OeDk0eMwKVLum83dChy58b+/Zg1S+H1HDmwezfc3ZGUhL594eMDUb9D/wQBXl4IDYWpKdasQbt2Ch+/EREREWVLOjVgkmJtJ64Jv/405ur+FRN6NyrOFw2JviFLS8THazTkcMAAdOyIN29Qrx7mzIFMpvkmCQn//lORIggNhVQKHx+EhysMlkqxbBlWr4ZUimnT0LOnRjPzVevWDUePIl8+HDmChg3x+LG+CYmIiIiyAp1aJ8OaAyYPbV0ht2FGV0NE6s2ejZw5sXcvdu5UHxwSghEjkJqKiRPRuDH+/luTHe7fR968cHH599+bNYOPD+Ry9OmjIsOwYdi3D5aWCA1Fs2Z49UqTrVSpXx9RUahQAdevY/RofbMRERERZQV8dkWU3djYYPZsAHBzQ2ysmmBTUyxZgiNHUKgQTp1ClSpYs0btDmZmkMuxejVOnvz3R5MmoVMnxMWhc+cvno6l1bo1IiNRpAjOnEG9erh9W9N7UsbODqdPY/x4uLrqm4qIiIgoK9BgWkbysQlNvY8mATBq4HPIr53FFz/RmHFz3+NzmvEoMKIM4eKCXbtw9Cg8PREcrD6+eXNcvw53d2zejOHDcfgwVq9GnjzKwm1t4e2NqVPh4oIrV2BoCAgCAgNx7RquXIGnp4ournJlREXBwQEXL+KXX7BjB5o00e0mP8uZE3Pn6pWBiIiIKOvQoAET4x9cungxEYBxgdepX/9EYyZ28fp9l09E/xEErFmDypWxeTO6dkXHjuqXWFkhOBiOjhg+HGFhOH0a69ahfXtl4d7e2LIFN29i0SJ4ef2bYccO1K+PtWsxZAhq11a21sYGJ06gd2/s2YPWrREQgD59dLhJIiIioh+QJvPiTXMXKlQ2/2/+AAAgAElEQVQoEYBxbnMJAAg5CpQoWVK7J2AFcgi61EdEitnZYcYMjBoFV1fY2yNXLo1WdeuG2rXRvz9+/x0ODhg6FIsWwdw8faCREVatQpMmmD4d3bv/e8hy1aoIDkZQkNpDl83NERaGceOwaBH69UNcnEZDQzQXG4scOWBsnJE5iYiIiL4BQdRzYjRlPTVq1Lh8+bKjo+Pu3bu/dy2UmeRyNGqE06exdCk8PLRYKIpYuhReXkhKQtmyCA5GjRoKA3v1wpYtaNMGBw/qWOPy5fD0hFwOLy/4+uqYJI2XL1GsGIoXR3g4ChfOmJxERET07fXt2zc4ODgoKKjPz/S2DIdwEGVbEgmCgzFyJBwdtVsoCPD0xMWLqFwZt2+jbl34+CgcUu/nBysrhIdj714da3R3x8aNMDDA3Llwc1N4mLPWLC1RujT+/BP16+PPPzMgIREREdE3o1MDJrtzZPuZ6AQ+OiP63ooVg58fihTRZW3Fijh3Dl5ekMsxbRoaNMD9+2lC8ufHjBkA4OOje419+iAsDKamWLECffsiJUX3VP8wMcGJE7C3x5MnaNgQkZH6JiQiIiL6ZnRqwFKvr+vXoLht+dbOvqHnYhLZiBFlUyYm8PVFeDhsbREVhRo1cOpUmhAXFzg7q5yi4e+PKVOQmqpinw4dEB4OS0uEhKBTJxVz7DVlZYXDh9G9O+Lj0aIFtm/XNyERERHRt6HzK4hi6pvbh1dP6FGvWMGK7dzmb7/wTKuhHESUZbRsievX0bkz3r1D9+548eLLi1IpVq5UeQ7ywoWYMQMdOuDDBxWb2Nvj+HHkzYsDB9CqFd6+1bdqY2OEhMDVFUlJ6NkTq1bpm5CIiIjoG9CpAZOWaelkX8JSKgAQU+NuHlwxvnudogUrdfBYGHb5RXIGl5jFyN89uhSxb+um4B0HTv756ge/WfppWFtj+3Y0b45nz9Czp8LvwZTauhX58uHQIdjb4/lzFYE1auDkSRQujMhINGiAp0/1rVoqhb8/ZsyAXA4XFyxdqm9CIiIiosymUwNmUGnIhhP3nj+K2uE3qmudQmYSARBTYm/sXz62S80ihao6jly8+8rLbNqbpMbdPLJhwZRxI9zcx/qs3H/rzX9/E5W/OrmgZ3W7ErWaOvTs37dbe/tKtgUqdp1x4C+tjkQjyiSiiAkTsGKFjsv/GelhY4OIiM8ffmmodm1ERaFMGVy+jHr1cPu2itiyZXHqFMqUwY0baNgQDx7oWOyXfv0Va9fCwABRURmQjYiIiChziXqTvfvrZPAc1w5V8xt/cdSXYJyvWqdRS/ZefZWs/xbfiPzdH6v7VbGSfHkb0vzN5pyNl4ui/MXhkVUVHWYmSPM3n3v+rfx7V/+f6tWrA3B0dPzehdC39emTaGQkSiTiyZO6J4mIEKVSUSIRDx3SbmFsrPjLLyIg5sqltoDYWLFOHREQbWzEa9d0L/ZLL16IiYkZk4qIiIi+jX+mzwcFBX3vQr6pDBhDL7Gwa9jb23/vH0+e3TwS4DOoRVlrQwFi0ss/dvl5OlQtXKRW13H+B2+/zeqzOpJvLuvUzGXT1TfyLyoVZS+OTXIcGPToxe4xg5Zd+SAK0lzlWg0YPXnaVG+XbvUKmwr/hDiN2v8qq98g/ehMTeHtDbkc/fvj40cdkzRujClTIJejb1/ExKS/fvkyjh5VtNDaGkeOwMEB8fFo1Qq7dqnYxNoaR49+fuHR3h5nz+pY7Jfy5eO5zERERJQdZEZXl/Tij33+3r0bFf/nMzEAMOm2PWv/cjr13uJG5gIAwSBvzb5TV4Xu3bN11WyPNiXMBEBiVbZ8QakASe6GU44/T/lv1cc7mweUMREAwbDipItJ36/8r/AJ2M8rJUWsVk0ExDFjdE8ik4mtWomAWLeumJz2CXaZMqJEIp45o2Rtaqro7CwCoqmpKJOp3icxUezcWQREc3Px8GHd6yUiIqJsik/AMoxRvqqtew4YOHhgp+q5pQpe2suCUi6s8T/9UYQkf4eVp09v8hnevYOD0/AJSw+c3zuiorH45vbNGJmQ28Fv69Qm+Q3+W2ZWutfKkHFVjAQx5damDWey6Wdv9OMwMEBAAAwN4eeXfqC8piQSBAWhYEFERWHKlDQXu3X7PPFC8dj5f2Ymrl6NefMgUfPHi7Extm3DoEH4+BEdOmDHDh3rVUguR2BgxnxjRkRERJSBMrgBS355PXytz5DWlWwLlGvef/LGC69lIgDBwDKneVbuxGT3jh9/KAMMq3v6Dixl9N8FwbrplMmOuSQAJDbd3LrZpvsPZlJ12NAGRgJkz09F3tVmdBxRpqhWDWPGQC7HkCFI1HU+TN682LEDhoaYOxd79nx5ZeJEFC+Oq1cxZgxEZa/dDhsGd3dN9pFKsW4dPDyQnIwePRAYqGO96UVFYfBg1K6N06czLCcRERGR/jKkARMTnl7c4z+hX9MyBQpWaTtsWsDhG6+SRUCQmBeu133skl0XHj9a28ZIfaLvRvb4r8cyQFqwQcOS0q8vCVb1GlY2AGBYqWYVRZ+YSPJXq15YAsiePo5hA0ZZgY8PKlTAnTuYNk33JHXrYuZMiCIGDsTff///x6amWLsWRkZYuhS9eyNZ78e+goClS+HjA5kMQ4bAx0d5X6eNWrXQuTPi4tC6NS5ezICERERERBlCnwZM/uHhmW1+Y5waFM9fpHZHd9+giLvxqSIAwThflfYuczb/fv/ZwzOh80d0rGFjklEFZw4xOSlJBARTU5N0D+oEUzNTAYBgbJL+4j8BpqYCICYlJnEOB2UFxsZYtw5SKRYswL17uucZNw4dOyI+Hj16fNlpNW2KQ4eQMye2bEHr1hlwpDKAqVOxahWkUkybhsGDkZKib0JDQ2zbhj598OED2rXD/fsZUCQRERGR/nRqwOSPDs9z71SrSP4SDZxGL9p2+uH7zy8aWpVq2n/ymkM3nsZc2bfCu1dDO4tM+cYs40ny5MsjAWQx9/9KNzxO9ve9v2QAZE8ePVH4hCs5+tFTOSCxzps7m9wu/fjq1sXkyShQAFKp+mBlBAGBgbCzw/nz8PL68kqTJvj9d9jaIiIC9vZ49Uplno8f0aYNZs1Svdvw4ThwAJaWWL8ebdpkQF8nlSIwEK1b4+VLtGql+oxoIiIiom9Ep44h5ULAVP/dF2M+yUX886Jh3W5jFoedf/zs7rEN04e2Km9toDZH1mJYsU6NHALE94fWBP/1VZclxv+2duv9VACpN/buu6+gA3t7POxovByCaZUa5bLbfdOPbOpUREejeHG9kuTKhdBQGBlh8WLs3PnllSpVcOYMypXD1as4eFBlkrdvERGBX3/F3Lmqd2vZEpGRKFgQx46hQQNER+tVOwBDQ+zciXr18NdfaN8eHz7om5CIiIhIT3o8shGM8lZu5zI7+MS9Zw/Pblvg2almVn/RUAWLlr0d80sgvj/u5Th0XdTTT3IAKfG39k7pOjDwkUwQBAFJF+Z7rrz19VQD+cvwCeNCnskhWNg7NM2VlQeNEOmmVi3MmwcAAwfizp0vrxQtijNnsHkzevRQmcHWFlu3QirFhAlYt071bpUr49QplCuHGzdQty6uXNGzepiZYfdulCiBS5fQtStk/FCTiIiIviudGjBJsbYT14Rffxpzdf+KCb0bFc8uLxqqIFi1mzylubUE4scb64fWK5QzZz4ba4s8FRxnHn8hk9h2XRE4rLiB+PrISPsmzkv2nr/39NXLxzciNk5yrN9l1e1kUTAoOXCckw37L/oxeXqia1e8f4/u3ZGQ8OUVKyv06qXBCcgdO2L5coginJ3TPElLr1gxnD6NRo3w9CkaNcKhQ/oVD+TLh0OHkC8fjhzB06f6ZiMiIiLSh06tk2HNAZOHtq6Q2zCjq/meDEoOD9o6to6VBADE1A+vnscnyUVAsKjquWHF8P6zlgy0M4TsVdTqkY51ShfMl79opaYDZu9/kCBCMK86LnCGvdn3vgUi1cLDceuWjmsDA1GmDK5dw+jROmZwdsbUqZDJ0KcPTp5UHZsrF44cQc+eeP8ejo4IDtZxz/8rWRIXLiAiAoUL65uKiIiISB+6NGBi3O3I48eOHYu49vyHeptHkq/F3N+vHl7s2r564ZzGEkFinLt8a4/VR48taJFHEHK3W/7bhr5lTNM85RJMiraZcfDIrAYW36doIg09eYK2bVG9+ucnUdqysMC2bTA1xapVCApSEZicjAsXlFzz8YGnJxIT0aED/vhD9YbGxti8GVOnIjkZ/frBx0frktMoUgT29vomISIiItKTLg2YILkwv12L5s3beB2I+9HmrhsXae7pv+/S4zeJKSkpia//DF86tLb1557LqHivjVduH1sxrn+nFvVr1m7YssuwqWuO3Pjz4KRGefjyIWV1trZwdUViIjw80KkTYmO1zlC5Mvz8AMDFBTdvKouaMwe1a2PgQCWj5BctQrduePcO7dqpHXQoCPDxwZo1GTmenoiIiOj70ukVRPPCRfNKAFn0w+gf6hHYVyRSRf9tTIo0cZm3IezI6QvnTh7esdpnaPMS5t+8NCIdSCTw98euXbC2xp49qFABR45onWT4cPTrh48f0b07Pn1SGNKsGXLkwIYNcHBQNHVQIkFQENq2RVISkpI02XPoUOzYATMzBAaifXu8e6d11URERERZh27fgNXp0b2kgSC7e+DArdSMroiIMk/HjrhyBQ0b4sULtGkDT0+tHyr5+6NcOfz5Jzp2VDjWvUEDREQgf34cOoRfflE09MLYGPv3IyYG+fJpuKejIyIiPk/RaNgQMTHalazQ339j8GDcvp0BqYiIiIg0p9v8QtP6UzdMqW8lu+rnsfAyT9Yhyk4KF8bx4/j1VwgCli5Fs2baHY+VIwd27UKBAvjtNzRrhtev04fUrInTp1GyJK5dQ6NGuH8/XYQgwES7Uytq1/4vZ8OGGdA4HT6MwEA0b47Hj/VNRURERKQ5HQfICxZ1fw2PWNmzwKWJjet0nbop4uaLT/KMrSzbSIx/9jQmJiYm5mlcovpooizAwAAzZuDoURQsiMhIrbuZMmVw5gxKlcL582jYUGEHU6IEzpxB7dp48ACNGqn4ZEwLJUvizBnUrYu//0bDhrh4Ua9sgwaheXPExKBNG8TFZUB5RERERJow0GVRyrklQxZHJQMoVS7f/Ys7p/ffOV2QGpvntLI0M1Tc0pm0X3VjZTu1hwVlQ0mHPcp02vxeBEy6bX+zrWvG3eOrV69OnDihw8L4+HgAog6T7uin0rgxrl/H3buoWVPrtXZ2OHkSbdrgyhXUrYvDh1GpUpqQvHlx/Dg6dsTRo2jcGH/8gYIF9S05b14cO4YePbBvH5o1w969ug82NDLCzp2wt8eVK2jbFseOwZzfcxIREVHm06kBk0ef3rZ1+9ePe0RZ0oe4Fx+U/SLZJDZByRVSZvjw4bt27dJ5eUyGfChDP7ZcuVCnjo5rCxRARAQcHBAZCXt77N+P+vXThJibY98+dOuGQ4cQG6u8ATt7Fs2bY/x4TJ2qdlszM+zahcGDsXEjWrXC1q3o2FHHO7C0xIEDqF8f586hRw/s2gUDnf5EJCIiItKcTn/dEHKVqFGzpkYDzP5lXCIXJ7VraciQIQY6/X3w6NGj8fHxuXPnzvCSiL5iZYXffkOvXggLQ8uW2LEDrVunCTExwd69iI1FnjzK8xgaIiUFPj4wMMDEiRDU/GEhlWL9elhZYckSdOuGdevQv7+Od2Bri4MH0bAh9u+HhwdWrtQxDxEREZGGBL6opicx/sGle69lIiDJXapmSess0GfWqFHj8uXLjo6Ou3fv/t61UHbz1194/jz9syxVZDIMH46AABgZYeNG9Oihy75BQejfH6IIJycEBGj4OqCPD6ZNg0SClSsxbJgu2/7j1Cm0bImEBPj7w9VV9zxERESklb59+wYHBwcFBfXp0+d71/Lt6DiEg/5PyFWiZu06derUqVMrS3RfRHrp3RsNGiA8XIslUinWrsX48UhORq9enw9r1lbfvti7F1ZWCA1FzZoazgXx8YGvL0QRzs6YN0+Xbf/RoAHWr4cgQI93fomIiIg0wgaMiL7QpQtEEf37KzrASzlBwNy5WLwYAEaPhre36vDHj3H3brqftm+P8+dRoQJu30adOtDs+a2XF1asgCDAy0vttqo4OSEqCps26Z6BiIiISBNswIjoC2PGoH17vHqFXr0gk2m31tMTGzbAwABz58LNDXKlR1M0b45KlRAWlu5CqVI4cwYdO+LdO3Tpgo0bNdnW2RnBwTA0xNy5cHFRsa0atWvDxkbHtUREREQa0mkIh+zB4XWH7qdqtU/J1kNalZDqstv3lfrh9YtXsfHvPiWlyCXG5hYWFjnz5M+bg7PS6AclCAgMRNWq+P13zJypyVjCr/TrBysr9OiBFSvw7Bm2bIGxgpMZnJwwcyacnLBpE3r2/PqapSXCwjB7NqZO1fz4sJ49YWmJbt2wahXevcOGDTA01K5wIiIiom9Dp0Yi9Y+Ake7btTp12KTb9gHZpgFLiInaF7pz/2+R5/648dfLj6lfjykRBCPLgiXKVqrVpI1jx46taxc245df9EPJmxchIWjWDNOno0EDNGum3XIHB4SHw9ERu3ahbVvs3g0LizQhM2YgRw54e6NvXyQkYNCgry8LAiZNwrBhKicnptWuHcLD4eCAkBC8e4dt22Bqql3hRERERN9Apr+CKEikBgYGBgbSbNGlyGPPrRpev3jx+k5jFgQdOnf3RdruC4AoJr99cutc+CbfEV3qlShWe8CSUy+0fFOLKIuzt8eECZDL0b8/Xr/WZXlEBPLnx/HjaNECsbHpQ7y84OsLmQxDhmDZMkVJ8uZVO48+/bbHjiFPHuzfj7Zt8f691oV/aft2nD+vVwYiIiKi9HR6AmbUZMbxU57KPrSQJ3+Ijb555uDmjWGXX6bArGzfVWEre5dW8B5SFpP8IGRIm0HB95L+7bkEqZm1beEihW1yW5iZmhpL5cmJCZ/ex72IiX4c8+pDigiIKa8ubhzVNOLEsoMhwyvw9+30A/Hxwe+/IzIS7u7YulXr5dWqITISrVrh3Dm0aYOIiPST5b28YGEBd3d4ekImw8iRGVB1zZo4eRItWuDECTRtivBwrZ6i/efNG3TvDjMzREaievUMKIyIiIjoMzHTyF6f8W2RTwIIBkV6bXsiy7ydMsSnc5OqGAsAIBjb1uvnE3j4j8fvUpUEyz49//P30IUebctYSgBAMCrtfvSN/JsWrFz16tUBODo6fu9CKJuLjhZtbMQ2bXTPEBMjlighAmK7dmJKisIQf39REERAXLZMZSq5XHRwELt1E+Pi1G77999iyZIiIJYvLz55olPlojh0qAiIhQuLz5/rmIGIiIhU++f4r6CgoO9dyDeVia8gSnLXG791Xb/CUjH1cejoGUc/Zd5W+pM/Xj/R71qSKEgLOiw+/efpjVMHtqxa2ELZR2sS0/zlG3UfvfTA1au7PKqZC2LyvbWTVt/lm4j0QylUCA8fYt8+3TPY2uLIEeTPjwMH4OysMMTVFWvXQiLBwYMqU8nluHQJ27ejVi1cu6Z622LFcOIEypfHzZto1kzhK5Dq+fvD3h7R0ejUCUlJumQgIiIiSi9zvwETrNu49i5pAMieHfvtWkqm7qUXefTu0FMJIqSFBwcEjahhpfGXJ8bFHPxCZzQwFcSky7v2/c0OjH4wRkaQ6jc8p3hx7N8Pc3MEBGDaNIUhgwfjxg2EhKjMI5XizBnUqIEHD1C/PkJDVW9bsCB+/x1Vq+LOHXTqhESthgYBAAwNsXMnihfH2bMYNkzr5UREREQKZfYQDoMyFcpmg5HtqTev/JkiQpKvbbcmllqulZbo0q22ISC7d5OPwIgUqFkToaEwMICPD1asUBhSrhysrNTlKVIEp05hwAB8/IiePTF5suozv/LkwcGDKFIEkZHo31+X88Fy50ZYGMzNsWkTlizRejkRERFRepndgImJiYkiIBiVr1I2C5/LIyYlJYuAkMMih/bTGiWWVpYSQExOSk43MpGIAKBdO6xcCQAjRmDPHt3zmJhg/XosXQqpFDNnomtXfPigItzGBuHhsLLCtm349VddNqxSBZs2QRAwZgzCw3WsmoiIiOj/MrkBE2OPHb6QAghWNgXMMncrvUgLFS0kBeRPLl1+pvWvyROuXriRAkjy2+TP9Kn+RN9PcjL8/fHwoY7LhwzB5MmQydCrF86eVRseEYE3b5Rc8/BAeDisrbFrFxo2VP1+Yfny2LULRkaYM0fZ4zc1OnfGr79CJoO7uy7LiYiIiL6UmR2DPP7S8sHjd8XLIRhVqFY+Cz8Ag0Hl9m2KSiEm/D7Xe3u0Ni8Siu/Pz5+w8aEMkty/NK6cle+RSE/HjsHdHW3b4uNHHTNMm4ZBg/DpExwccPeuisCoKDRtipo18eCBkojmzREVhXLl8OABPqmZ8NO48X+P33QbKeLjgylT4OGhy1oiIiKiL+n0fVbKyZkdZ/yerCpETI5/fOvmg9cJchEQrFr2cbDJ0icxG9UZ7tFw3agT7x5v7Vfv5aU5s0d1r22j5ugy2Zvbh9bN8J6x9cY7UTCqONStRdpzjoh+JI0bo2JF3LgBd3esX69LBkHAmjWIjcWePWjTBmfOIH9+hYEVK6J2bZw/jwYNcPAgqlVTFFSqFK5cwcePyJVL7c6DBuHvvzFzJnr3xsmTqFpVu8IlEmUDRIiIiIi0o1MDJn957fjRoxpOFRMMCjouXNg7a/dfgLS066r5R5u4HniWHHNsfr+6i0eWrN2gQZ1q5YoXLWSTJ6e5iYmRgZiSmJjwIfb5k+i/7169cOZU1I3nn+QiAInVL1MCJtTK+mdNE+nB1BShoahVCxs2oGlT9O2rSxKpFCEhaNYMUVFo3x4nTqQ/oBlAjhw4fhzduiE8HI0aYedOtGypKJuREYyMNNx5+nQ8eoSgILRrh6goFC6sS/lEREREetJtQqGRZZ48edQ1YILUNFeRSk17jZ7k2qxQNpiEaFhm2LZjJh49PddfeyMXU+Lund577/RetcskFuV7zg3yd67Ox1/04ytfHkuXYsgQuLqiVi2ULatLEjMz7N2LX37BxYtwcsLu3TBQ8AeEuTn27sWwYVi/Hh06ICgI3bvrVbsgICAAT5/i2DG0aYPTp5Ezp14JiYiIiHSg0zdgxg7rol+p9fL54zvnD6wc2ayQpr+h/u5My/Vbd/HO2Y1T+jQqkdNA9TM7wcDS7peeEwMjb/8R7FI9ZxZ/wEeUUQYPRq9e+PABTZvixg0dk+TNi/Bw5MuHAwfg4qIsysAAAQEYNw7JyejVC6tWaZD50CF07ow7dxRe/Odor4oV8eefcHJCaqqO5QOIiUGJEvgfe3celXP6/3H8ebeXbNm3LMmaLEkSiiyDki3LyD5kjzHIYCpmTNlGzDDZlS9DKGqQ7CX7nn1s2Y0lu7Tcvz/4+vlac/epu3g/zpw5x+dz3e/r1TlOeve5PtfVqdOH31ITQgghhHifHPBkKovpFa7TzS+km19y4sVjBw4dP3P+8rVbd+8/fvYiBX3jXKampnkLmZevWLGSVXWrMvlk0w3xNZo3j9u32bwZJyeiorCx0aSIhQWRkTRqxPz5mJszfvx7R6lUTJ6MmRk//siAARga0qvXR8tu2EBYGNu28ddfNG/+7v28eYmIoG5doqLo35/58zXJDrx4wZ07rFxJeDgDBzJuHAUKaFhKCCGEEF8VacA+RD9fWZsmZW2aaDuHENmOiQkREXTsSEQEI0eydauGdWxtWbGCNm3w8aFECXr3/tBAb28KF2bw4I8f+gVAQAB37/Kf/9CqFb/8wujR7w4pU4bISJycWLAACwvGjNEke9mynDqFnx8LFjBjBvPnM2IE3t4YGWlSTQghhBBfj0zYhj75+s654wf19OjRf+TkZXtvfHSzRCFEjmRkxOrVTJ3KTz9lqE6rVsyejVpNv34fP6D55fb1n94I3siIkBD8/VGr8fbGw+O9p4TVrs1ff6Gry9ixLF2qYfbixQkK4vhx3N15/Bg/PypUYO5c0j77LEEhhBBCfEUy0ICpHxxfNrZz/YrFyvbf+LrLenZgSvNazv1/nr3kP8FBU0d71LOq/8PGW/LziBBfHH19RozAySmjdfr2ZexYUlPx8GD/fgWCqVSMHs2KFeTKxX/+Q9Om3L797igXF6ZORa2mTx+2bdN8tsqVWbmSqCisrblyBU9PRo3SvJoQQgghvniaNmDqe1tHNarnMWnFrrO3H71Qv7r64tj0QT7bb6WoXw9Lu7d/eudvZ//zOWcbCyG+LhMn0qPHq409wsKUqdmhAzExlCpFbCx2dvzzz7tDhg1j6FBevKBDhw9t25FezZpx+DALF1KtmmxwL4QQQoiP0bABe7rTr9+MI4/VoNIxNMtv8nIPwOcxf/558JlapVe67fRNR4/FLh/tWEAH9YPtv0za+EjB0EKIL4pKxbx5dO/O48e0b8+ECajVn/zQnTvMns2jj3xrqVmT/fuxt+fSJTZufO+Q336jbVvu3aNFC27d0jQ/ADo69OrFsWN4eWWojhBCCCG+bJo1YI83L1h2MUWNrnm7P4/cPjPNUR/gxf6IDTdS0cnXelLQsKbW1Rw6/7rq93ZmOqTdXrdi2xNFcwshsp0TJ6halVmzNPmsvj5LlhAUhK4uPj507MiTT3zP+PNPBg3C2Zn79z88qEgRtm1j/Xr69XvvfR0dli7F1paLF2nblqQkTbJ/0rNnmVJWCCGEEDmRRg1Yyqnd+xLTUBk3HDX9u2qmqv9e3bLtaioq00YdWhR8eU1V0LVbKzMd0h4c2ncmA0fuCCFygHv3OH2aoUOZMEHDCv36ERlJvnysWkW9ely69JGxPXtiYcH+/Tg7c/fuh8cZGtKiBQYfPI7w5Z6OZcqwezeDB2sY/CMOHiRfPr75hgsXlC8uhBBCiBxHoypjvGgAACAASURBVAYs9db126mgU7K2TfHXBdT3Duw9mwr61Rva//+xxEblK5bWhbSb12UnDiG+cA0aEBKCnh4+PgwZkp5lhO/RvDn791O5MseOYWvL9u0fGliyJLGxVKnC4cM0aMCNGxrnpkgR1q4lVy7mzycoSPM675U3L7lzExVFtWoEBJCcrHB9IYQQQuQsmi1BTEtLA1RGxsavOy2SDu4+9EKNrrmdXYk3qqrVakD9IilJox/GhBA5ybffsno1hob8/jsDBmi4I3v58uzdi6srd+7QtCm///6hgUWLsnUr1apx6hSNGnH9evrqP3vGzz9z9Oib16ytmTcPYMgQYmI0Sf0h5ctz9iz9+vHsGd7e2NiwZ4+S9YUQQgiRs2jUgOkULFJQB9KuX0p4vf988uEtO+6moWPm0LCa/v8PfXHpfEIqqHLnza16XykhxBemdWvCwjA2JigIDw9SNFp8nDs3YWGMHk1KCkOG4On5oSdHRYqwZQvW1pw5Q6NGXL2ajuI7dzJ+PPXqERr65uUuXfj+e5KT6diRa9c0Sf0hZmYEBbFtGxUrcvw49erh6cnDh0pOIYQQQoicQqMGTL9K7eomKtLub1ga8e/LB1uPti1ZdTEVlWnDbxqY/P/IB1tWb7qXBnoWFS30FAkshMj2WrRg/Xpy52b5cjp14oVGx7Hr6uLvz7JlGBszdy7Ozvz773sHFirE1q3UrMnZszRq9MnNO6BJE777jqdP6dQJX983l0pOnkyzZty8ibu7hqk/wtGRQ4cYPRo9PebOpWpVzp1TeAohhBBCZH+aLUHM26xzSzMd0v5d1b/ld1OD/1o0vvN3CxNSUZk2dGn86gUw9dOErdN6Dll6Iw30KjZyKpmBM5+FEDmMkxPR0eTPz5o1rFmjeZ0uXYiNpVQpYmKwtyc+/r2jChRgyxbq1uX27XRsOairy7x5BAWhp4efHx078vTp6zvLllG2LLt3M3y45qk/xMQEf38OHMDOjqtXM3r4mBBCCCFyIs26IpVZW99xDfOqSEs8sHBkjy69f15/JVmt0q/Uf0ynwiog7XygU6EyTX4Iv5SsRsesuVefavIATIivi50dMTH88APNmmWoTq1a7NlDnTqcP4+9PeHh7x2VPz+7dnHzJgULpq/sWzsuXr788nKBAqxZg4kJs2czf36Ggn+ItTVxcVy5gotLptQXQgghRHam6WMpvUpDV6we16iY/us3u3Ty2Hz/h7e9MQDq1OfPk9VqQJXLqu/CoF7m8vxLiK9P1apMmYKZWUbrFC/Ozp2vTmpu1+6tdYOv6ehgbPw5ZZs1Y/duLC05ehR7ew4ceHm5Ro1XeyEOHsy+fRnN/l46OpQsmSmVhRBCCJHNaf5cSqew84TNZ3rGrt+0/+J9zCo6urrULvbfo3ZUuqbFLGs6VW3o1mtIvxYWJh+tJIQQn2JoyOLFVK7M2LH4+XH2LAsXYmSU0bKVKrFnDx07smULI0awY8fLyx4e7N3L77/Tpg0HD1KsWEbnSY+TJ3n8mDp1smIuIYQQQmhLxhYG6uQu17BT/4bvuWExKPzEoAzVFkKI/6FS4e2NlRVdu7J8OZcvEx5OoUIf+cSpU+TJQ4kSHy1rZsbGjfzxBzY2b16ePp3jx9mxA3d3tm79yEnOinFx4dIlxo7F1xdd3UyfTgghhBBaISsDhRBZRa1mwwYSEzNUxMWFXbsoU4a4OOzsOHXqQwOfPqVmTWrU4MKFT9XU08PLi/r137ymr8+KFZQsya5djBqVocjp9P336Ojw88+0bMndu1kxoxBCCCGynjRgQoissmULLVvi5MSjRxmqY2XF/v04OHDxInZ2bNjw3lEmJjRpwp07uLry4IEm8xQpwqpVGBoSGMiiRRmKnB6DB7N1K0WLsmkTNWuyd2+mzyiEEEKIrCcNmBAiq9jaUqkSR4/SqZOGBzS/VrAgmzfTpQuPHtG6NXPmvHfU8uVYW3PyJB07fv6EGzcyfrxd1cdz5wIMHPh6k45M1LAhBw5gb8+VKzg68nJqIYQQQnxJpAETQmSVvHlZv54iRdiwgQEDMlrNyIj//AcfH1JSGDgQLy/S0t4akjs369ZRpAibNn3+hNOm8fPP2Np2rxXfrx/Pn9O+/YfOglZSiRJs20b//iQl4elJ374Z7VWFEEIIka1IAyaEyEJlyxIZiYkJ8+czdWpGq6lU+PqyYAH6+sycibv76yOVXytd+v8nnDXrc4rPno21NadPY2c323ZRgwYkJNClS1a0Q4aGzJnD4sUYGzN//oeWWAohhBAiR5IGTAiRtWrXJjgYHR1GjWLZMgUK9u7Nhg3ky8eaNTRqxM2b7064eDEqFcOHExmZ7rKWluzdy9ChPH2q27d3VJHulsWfbNnCjz8qEDk9evRgzx4mTKBx4yyaUQghhBBZQBowIUSWa98ef3/Uavr0IS5OgYLOzuzbR4UK7NtH7docOfLWfXd3fvqJ1FS6dSM5Od1ljYwIDCQkhFy5jFeFHNWvXVM/fsoUVqxQIHJ6WFszfjy5cmXRdEIIIYTIAtKACSG0YeRI+vfn+XMGKXRioKUlcXE0aMC1azRowN9/v3Xfx4cffsDNDX39z6zs4cG+fVSpYnz59F4d+0Zs69kTP793VzsKIYQQQnyaNGBCCC2ZNYsxYxg8WLGCBQoQHU3Xrjx+jJsbf/zx5k2ViilTWLxYo8pVqrBvH9276yc9/r7B/qQkfH2pXJmVK5WI/TmSkvD3Z8MG1OqsnloIIYQQitCsAXt6J+Hy5YQbiS8+PTT10a2Ey5cTbj6SfbyEEP9DT49Jk+jTR8mahoaEhODjQ1oagwe/d2tEDeXKxZIlnD3rsmPk3r3Y25OQQKdO2Nll6YFde/cyZgwtW1KjBsuWyQaJQgghRM6jUQOWtH5gxTJlLJpMjf/kP/7qeyt7VihTxsLpl0Pyg4IQIgu83Bpx0SIMDJg5k/btefJEseKWlqhUtrbs2sWSJRQtyr591KtH9+7cuqXYJB9Rvz7Tp1OiBMeO0bUrFSowezbPnmXF1EIIIYRQRGYvQVQZGBioIPXmtZupmTyVEEK81qMHUVGYmREejpMTN268O0St5vlzDcurVHTvzj//4OODvj4hIVSqREAASUkZSv1JOjoMH86FC8yfT4UKXLzIoEGUKcOkSSQmZu7UQgghhFCEXvqGpd3Yszr6zNNXLx0k77+cCuoHxyJClhz/WAuX9vz6jj+3JQGoMhhUCPHlu3yZyEh69cLERIFqTk7s20erVhw4gK0tERHUrPnm/QEDWLmSjRupU0fDGXKlPfLNt6BHdIfRs0qGhuLtzcKFTJ9Oq1YKxP8IAwP69KFXL8LC8PfnwAHGjiU0lMOHM3deIYQQQmRcOhuwlJNLvHr9eeN/36W4FuHbOyJdH1cZW9tYfe7OY0KIr01AwKsTiNeto1gxBQpaWBAXR7t27NhBw4YsX46Ly+ubefJw/z5ubuzbR6lSGtVfs4bhw8uWnLYyKmqLZxUvL06cwMWFJk0IDKRKFQW+go/Q0aF9e9q3Z8sWZs3C0jJzpxNCCCGEIrJgF0SVjpndDz/3LCsbLgohPm74cCwsOHCAOnXePctLQ2ZmREXh4cHjx7Rp8+bWiL/8QpMm3LxJixY8fKhR8fbtcXTk6lUcHZ3z7D98mBkzyJePzZupUQMvLx48UOaL+DhnZ8LDmTIlK+YSQgghRAal8wmYfo0hyza0SfrvEsSYSe1/2Zlq3nnGnJ6Wuh/9oErXpFD5alZl8snzLyHEp1hasm8f7duzfTv167N0KW3aKFDW0JDgYCwsmDCBwYM5e5bffkNHR1+f1aupV48TJ+jcmYgIdD/+/exdpqZERfHtt6xZQ6NG+mvWeHk169KFceNYsICZM1m5klmz6NBBgS9CA8HBHDnC+PHkz6+dAEIIIYR4D7UGnoe6G4FelbEHkzX5uMhktWrVAtzc3LQdRAiNJCWpe/RQg1qlUvv4KFn5r7/URkZqULdtq37y5OW1c+fUBQqoQT1ihKZlU1LUvXurQW1goA4NfXnt4EF1/fpqUIO6Qwf1zZtK5P9MdeqoQV2ihHr9ei3MLoQQQnySh4cHEBISou0gWUqjdYG6lq2GDBs2tHu9wrKsUAihNAMDFi9m0iQAPz+++47kZGUqd+rE5s0ULEhYGPXqcfUqUL48q1djYMC0afz1l0ZldXWZP5/vv+fFCzp3Zv58oFYtdu4kKIg8eVi1ikqVmDtXmS8i/ZYtw8GBa9do1Yq+fTVdZimEEEIIRWnUQelV7zH5t9+mjW5ZUhowIUTmGDOG0FBMTFiwgOBgxco6OLB7NxUqcPQodeu+fNPM0ZHAQIC+fV82ZZ9PpWLaNHx8SE2lXz+io19e69ePU6do3ZrERDw9adVK0/oasbAgJoagIIyNmT8fa2u2bMm62YUQQgjxXop0UCkPrxzfFR0R+p8lCxeE7r+jBtRqtRKVhRBfsfbtiYmhd2+aNlWybPnyxMXRsCHXrtGgAX//DfTvT+/evHiRsdO0fH354w9KlyZfvtfXihdn7VpWrsTMjPXrsbJi7lyy7BvkyyZw/35sbbl8maZN8fTk8eMsml0IIYQQ78pYA6Z+eHy5d5tqRQuWtq7frHVHj559+vuuTUiF5J0jalZt0nfq3/88USioEOJrVKsWCxZgbq5w2QIF2LSJrl15/Bg3t5dbIy5YwP37WFllrPLAgVy8iK3tW5fd3TlxgrZtefAAT09atCAhIWMTfY4qVYiLY+JE9PWZO5eBA7NuaiGEEEK8JQMNWPKFZb3q1O0asDb+bvI7v81VJ987s2X+SNdadfssP/8iIwmFECITGBoSEvJq0eDgwXh5kZamyPnPH1K0KGvWsHIlBQsSFUXlygQEkJb26Q8qQk+PcePYu5dmzWjcOIsmFUIIIcS7NG3A1A93jHHrHXzmqRqVXoEqzXsMG+3+xlHLOgUtKhQ0UKF+FL+ol8sPmxNlQaIQQinXrytTR6XC15eFCzEwYOZM3N2zYHHey0dhHTrw9Cne3jg6cu5cZs/5/2rUICqKnj2zbkYhhBBCvEXDBiz56G/DZp1IUqv0y7T/fe8/xzcu/s2vY+X/P0JH12pY9Ok9sztaGKjUSWf+HDbloDwFE0IoITKSEiVo145nz5Qp2KsXGzaQPz9r1lCnDqdPK1P2tX37MDKibVuuXHl5oXBhQkNZt47ixYmNpXp1AgJITVV4WiGEEEJkT5o1YM9j5y88/kKtMrAetTJ4YK1876uiylezf/AaHzsTlTr51JIFO5MyFlQIIQDKlSN/fsLCcHbmzh1lajZuzN69VKvGqVPUqcOqVUBMDAEBpKRkuHiuXBgZER5OlSpMn/66oqsrR4/SpQvPnuHtTaNGrxu0rBYXR/fu7NmjndmFEEKIr41GDVjKme07r6eiMmo8eHDtj70zYVit/5DmuVWk3doVczrjP8cIIUSVKuzbR/ny7N6NnZ1iC/gsLdm3j169ePQId3c8PacHJHt74+2d4cpVq3LqFN268fgxI0ZgY8Pu3S/vFCzIsmWEh1OsGDEx2NoSG5vh6T7f2rWEhGBvzzffsGuXFgIIIYQQXxWNGrDUK5eupoJuWZtaBVUfHanKa13TQg/Srl+5llXvmgshvnDlyxMTg40NFy5gb09cnDJljYxYuJCgIAwMmDs3+Jqzuf6N6dMJDc1w5WLFCA5myxYqVuTYMRwc6N6du3df3nRzIz6eZs24dQtnZy2c1+zjw48/kjs3UVHUr4+zMzt2ZHUGIYQQ4uuhUQOmUumoAPT0dD81VJ2akqIGdVpqmuzDIYRQStGibN9Oy5bcvUuzZkRGKla5Xz927aJ06dxHYk4b1Wik3tq7N6dOKVG5cWMOHWLMGPT0CAnByur1+2YvjwgbPZoXL/D0xNOTF1n42qyJCb/8wqVL/PQT+fKxdStOTjg6snlz1mUQQgghvh4aNWA6RYsX1YXUyyfPfOKYL/XDE/GXU0G3UNHCn2zWhBAi/UxNCQ+nRw+ePKFt25fnKSujdm0OHKBJE+NHtzepmg96HNC2LY8eKVHZxIRJkzh8mAYNuHmTCxde39HVxd+fZcswMWHuXJyduXVLiRnTzcwMPz8uXWLCBMzM2LmTpk1ZsiRLMwghhBBfA40aML0qjg6FdFA/3Dhv2aWPrSxM+Sd47qZHanTy2dWroqdhRCGEeD99fRYtYvx40tLebGYUULAgGzfi46NLqj/evme6DO2t3A71VauyYwfXr9Oy5Vt3unQhNhZzc2JjX7WBWSxvXsaP59Ilfv0Va2vKlMnqAEIIIcQXT7NdEI0bdO9SXk+lfrT1Rw+/2HvvX1yYdnvLWA+fnY/V6BZv06WRaUZiCiHEe6lUTJjArVsMGaJwZV1dfH0JD0/Lk68zf3mvqv2fsScVK65SUazYe+/UrMmBAzg6cvUqDRoQEqLYnOmXOzfe3hw9iqOjFmYXQgghvmwangNm7OA92cNcT5WWuGtik+qN+k9ZvvlgwiM1kPrs/s1LJ2JX+vdyqN5yyr6HanQKtvAb2zyPorGFEOINBQtmVuXWrXUO7HtoblWRM60n1X0ekvEdOT4sPp59+4BChYiKok8fnj+nRw+8vUnLHpsYPX+OtzcrVmSXPEIIIUROpGEDhqqQ2x9rp7cooa9SJ13dETTq26YOIzYmQcqZ6U1KlbVq0GnM4j03X6jRyVdndOiSXmU0nUcIIbTM0jLPid1nanbOzSOjHp3w8iI5OVMmatkSe3smTUKtNjRk/nyCgtDTIyAAFxcSEzNlzs9y9CgBAXTuTJUqLFmixCFpQgghxNcnA42RSfUh6w5untrNtojB+/aiV+nmregyZtX+HZOczD6+V70QQijq3j18fDhzRrGCpqYVDy3nt9/Q02PmTL75hgcPFCv+2ogRAGPH0q0bz58D/fqxZQuFC7NhA3XqKLQZYwbY2bFkCeXKceYMPXtSoQJz52bpho1CCCHEFyBjT6Z0izT8PnjfxQt71833H+nZvVPbVi1atenYre/wCbNDt5++fDJiUtvyRgolFUKIdPr7byZMwN6emBglyw4bxtatFCvG1q04O78+yEsxXl5ERpI3L//5D40acfMm0KABBw5gY8O5c9Sty7p1Cs/5ubp359w5Vq6kcmUuXsTTE3NzAgJ4+lTLwYQQQoicQqVWy/lcXxobG5tDhw65ubmFh4drO4sQ2vD8OV26EB6OkRHBwbi7K1k8IYEmTTh3jsqV2byZ4sWVLA4cP46bGxcvUqIE4eHUrg08fkzPnqxeja4uv/7KDz+g0vbCgrQ0Vq/ml184ehSgQQN27tRyJCGEEDlOt27dli5dGhIS4uHhoe0sWUfezRJCfHGMjFi1isGDef6cTp0ICFCyuLk5MTFpVatx6lSiVf0XZy4qWRyoVo29e6lfn2vXcHJi9WrA1JTQUPz8SEtj1ChsbVm3Du3+9kxHB3d3Dh9m7VqcnalVS5thhBBCiBxEGjAhxJdIV5dZs161Xt7ejBih5M59RYpcWrJjv6pOvvsX71g57Vryj2KVXypUiC1b6NWLJ0/o1ImEBECl4qefCAujWDEOHsTNDRsbwsK03IapVLRuzebNzJihzRhCCCFEDpKO05GT9wZ+N2NPBl+zNqg7bL6XnX7GigghxGcZNYpy5ejWjenTuXSJpUsxNlakcDmb/DciNx1xb1njaZxOzwY/LI8evsCqRAlFagNgYMDChdjYcOAARYq8vuzmRosWLF7MxIkcPky7dlhZMXIkXbuiq6vc7EoIDeXUKby8yJtX21GEEEKI7CQd74AlreqYzz30ecbmMXIPTVzZwTBjRUT6yDtgQvyPrVtp144HD/j1V7y9FSyc8uDJ9TptzM9uvk1hN6Oo5qNr/PgjBgYKzvBBL17w11/4+XHhAkDVqowalb3asGrViI+ncGH8/OjbNxsFE0IIkX3IO2BCCPElatyYnTvp2pVmzZQtrJc3l/mxyGfN3Apze8PzRpv8dteuzenTyk7yfgYGdO/OqVMsWYKFBSdO0KMH1tYEB5OamhUBPmn5cho25PZtBgygRg2io7UdSAghhMge0rEE0eCbGcdOT/zMtydS/909Z9SoP/f8m6IGVLr58ufR9p5dQoivl7U1S5dmSmVDQ+OIlXTtmm/Vqi06TV2Pr12yxPnXXzNlKgC1mtu3Xy9KfNmGdenC8uVMnMjJk/TogZ8fo0fTuzd66fgGn3msrNixg4gIhg8nPp5mzWjShN9+w8pKm6mEEEIIrUvHEzCVaXHLip+hQom0w0H9O/T9Y/e/KWpQ5arYIWDzoT+aZcmyHCGEyGoGBvz1Fz17Gqc9iTJsPbZ2VCbONX48xYvzyy9vXtPXp3t3Tp5kwQLKlePCBTw9qVo1WzwNc3XlxAkCAsiTh82bqVWL8eO1HEkIIYTQLoWXIL64unlS25q1v/0t5laKGpVB8UajQg8dCh3pVEyrv4kVQohMpavLwoUMGaKb9NT029asWZNZE1WrhkrFuHH06UNy8pt39PXp3ZszZ1i0iPLlOXuWHj1o2PDVS2JaZGjIqFGcO4enJ2lpTJtGSoqWIwkhhBBapFwDlnbvwNzv7K2bj1v7z1M1Kp38NXvP2XV8c0D7CiaKzSGEEAqJiaF4caZNU6ygSkVgIN9/z4sXdOzIkiUvLz98yKZNyu2B36kTf/9N7twsXEiLFjx48NZ9PT169uTUKYKDKVmSuDhq1nydRZsKF+bPPzl+nN27tbw2UgghhNAuZRqwp+fWeDe1dui/4ND9NDUqEwu3iRuP7lngWdtMNvkQQmRLz55x6xY//MDQoYq1RyoV06bh709qKr17s2AB8NNPNG9O48ZcuqTMJDRvTkwMJUuyZQsODly+/O4QPT26dSM+nq5defiQnj3p0IG7dxUKkAGVK1O9urZDCCGEEFqV4QYp5caOqR1r1eoQsPXaCzUqvSL1hy3bfyRsbNNS8s6XECL7ataM0FCMjZk1i/btefZMscqjRzNpEmlp9O3LrFmdO1O0KDt2UL06CxcqNEX16uzZQ/XqnDiBvT0HD753VN68LF3KypXkz8/q1VhZsWGDQgEU5e/P0KGcOaPtHEIIIUSWyEgDpn5wdPFAh2rOo0LPPFaDTp5qHjNj4rf/1rmKqex4KITI9tq1Y8sWChYkPJzGjfn3X8UqjxlDYCDA0KF1f+t0esctDw8ePqRPH1q04Pp1JaYoUYLt22ncmBs3cHIiPv5DA93dOXyYhg25eZNWrfDyIilJiQDK+eMPZs2iShXatGHXLm2nEUIIITKZpg3Y84uRP7Wwtus9Z9/dVDUqozItfCKO7g8ZXLegHLYphMgx7O3Zvp1SpdizhwYNlHwKM3QoixeTOzcrV+a1rxLivHjlCnWBAmzcSI0aCm3SkS8fGzbQqxfPn3P//kcGli7N1q34+6Ovz8yZ2Nhw9KgSARSyfTuenhgYsHYt9etTrx5hYcq9NSeEEEJkMxo0YKm342Z2rV3DbWJUQpIalW7BuoMW7z3yt2/LMobK5xNCiMxVtSq7d1O9OmfOYGen5COY7t05fZq2bbl3j1693P9wil99plkz/v2X9u0ZNkyJKQwMWLiQBw9o0ODjA3V1GT2a2FgqVODECerWJSAguzQ5Fhb8+SeXLzN+PAUKsHs37dpRqRLz5qFWazucEEIIobTPa8DUj04sG+ZYzXHYshMP00BlWrnT1K3HY37vbp1XFh0KIXKqEiWIjcXdnQcP2LxZycrFi7NmDStXUrgwO3cWbVFzY6OAObNSTEyIjlZuFpP07jVra8uRIwwdyvPneHvzzTcKrYdUQuHCTJjA5cvMmkW5cpw7R79+xMVpO5YQQgihtPQ3YC8Son52q2HrEbjrdooalUHJJmPWHD741/cNi8qGwkKInM7UlBUr2LuXMWOUL+7uzunT9OvH8+eqMd7959e+EnYgNlb5edLD2JjAQNasoWBBoqOpUYO1a7WT5L1y5WLwYM6eZcUKfHywsdF2ICGEEEJp6WrA0u7u/7OXXfWWP0VceKZGpWtm03fu7mObJrUpb5zZ+YQQIouoVNSpg0HmbOCaPz9BQWzbhqUlR4+atbLP7+vFkyeZMld8PH36cO7cR4a0bcvRo7xcD9mmDZ6emZVFM7q6dOyIry9GRm/fevxYG4GEEEII5aTj6dWLrV61vvkjIVkNoDIu5+I96Xvnks9Oxn3OmxI6BSvVrVhA1ikKIb5mjo4cOcKECUydysyZREYydy7Ozi9v3rhBsWJKzBIezsKFrF1LeDj1639oVPHibNxIYCBjxjB3LuvWMWYMnp4YZuO3ebdsoVkzKlemVy+6dqVoUW0HEkIIITSg/qTnoe7v/A7ysxm5hz7/9FRCEbVq1QLc3Ny0HUSIHO7FC/WgQerAQHVamsKVDx1S16qlBrVKpe7WTX3nzuzZalAPGKBOTs5w8ceP1a1bq0FtaKieOVOdmvrx4cePq+vWVYMa1Obm6nnzlMiQOY4dUxcp8iqqnp7a1VW9erU6KUnbsYQQQmjKw8MDCAkJ0XaQLJXhg5iFEOJLdecOQUF4edG5s8JL9GrWZM8eJk7E0JCQEKpVa3AnzMiIOXNo2ZLExIwVz5WLNWsYOpSkJIYOxd6eI0c+MtzKit27iY6mVi0SEujbF0tL5s4lNTVjMTJBtWpcuUJ4OG5uqFRERNC+PSVK4OXFyZPaDieEEEKkj0r9yV1+U44sHLXgcHLG5tGv2Wdy7xqyXUeWsLGxOXTokJubW3h4uLazCJHDRUTw8hBla2vCwihXTuH6LzfniIkBbnYcWnvn9Gs3dS0tiYigYsUMF4+IYMgQLl9GT4+BA/n5Z3Ln/shwtZrISMaN49gxgMqV8fOjQwdU2XL1+O3bLFvGokWv0ubKxb17mfUGnxBCiEzSrVu3pUuXhoSEvHwU9pVIRwMmchppwIRQ0rlztGnDyZOYmfHXXzRtqnB946KvlQAAIABJREFUtZo5c/j+e5KSnjdxaXpneewRUzMzVq/GySnDxR8/Zvx4Zs0iNRU7O/bs+eQn0tJYvZoff+SffwCqVWP8eNzdM5wk0xw6REgIRkb8+qu2owghhPhMX2cDJksQhRDioywt2bPn1XnKLVoQEKDw8cAqFQMHsm0bhQsbbY7ckVyvT9OEe/do3pzFizNc3NSU335j3z4cHbG0TM8ndHRwd+fkSYKCKFGC48fp2JF69di6NcNhMketWvz22/u7r5s3szyNEEII8SnSgAkhxKfkzs2qVYwfT1oa3t707q38FPb27N5N5co6J47Pj687rcuBFy/o1YulS5UoXqsW27cTEpL+T+jr068fFy4QFETRouzejbMz9euzc6cSebKEvz/FitG3Lw8fajuKEEII8QZpwIQQIh10dJgwgTVryJ2b0FCSM/he7PuUK8euXTRqxI0b369z2tg/PG9edHWVnyf9DAzo149z55g4kXz52LULR0fc3Dh8WJup0qlaNYyMmD+f6tXZtk3baYQQQoj/kgZMCCHS7eXLYIcPo6+fKfXz52fTJvr358mT5kHtEof5dumSKfMA3L9PkyaMHPnJs41NTRk3jgsX+PFHTE1Ztw4bG9q14/jxTMumhFatOHQIW1suXcLZOdsdNi2EEOKrJQ2YEEJ8jpIl0/kylYb09JgzhxkzUKnw86Nv30x52gbcvUtMDFOnUrUqERGfHJ4/P7/8wsWL+PhgakpYGNWr4+r68S3utaxyZeLi8PdHX5+5c7G2frnfpBBCCKFN0oAJIUT24+XFypWYmDB/vhJHg71P+fLs3k3t2iQk0Lo1I0em50MFC+Lry/nzjB6NkRGRkdjY0LEjp08rH1ARenqMHs3u3VhZceECjRvLZolCCCG0TBowIYTImKdPSUtTvmz79mzdSpEibN5M/fpcunTjBo6OTJ+u3BS1arFnD4GBGBkxdSp//pnOzxUqhL8/ly4xejSGhoSGUrUqHTty9qxy2RRVqxYHDjByJGo1U6ZoO40QQoivmzRgQgiRAVevUrgwzs48eqR8cTs7DhygRg1OnMDW9vHG2NhYRozAwYHt2xWaQleXoUNZsgSViiFD2Lw5/R8tXBh/f86eZehQDAwIDaVyZTp25Nw5hbIpytCQyZM5eJAdO7QdRQghxNdNGjAhhMgAU1MKFGD7dr75JlP2Oy9Zkp07adWKO3csBzTZ67WscGHi4mjUiGbN2LdPoVk6dmTMGFJSNHiMVbIkgYGcOcPQoejrv3oa1r07588rlE1R1atTrZq2QwghhPi6SQMmhBAZkC8fO3dSrhxxcTRuzL17yk+ROzdr1zJoEElJtWd4XP3O19+f/PmJjsbOjqZNFdoUfuJE2rfn/n0WLNDg0+bmBAZy8iQ9e6JWExJClSp4eXH/vhLZMtmVK5m10YkQQgjxLmnAhBAiY0qXZts2LCw4eJAmTbh7V/kpdHX5/XemTUOl0p/kN/p8v/NnUn78kVy52LyZ2rWZPz/DU+josHQpc+YwfLjGNcqVY9EiTp6kWzdSU5k5k4oVmT8/U16RU0psLObmlCvHlCk8eKDtNEIIIb4C0oAJIUSGmZuzbRvly3P4ME2acOdOpszy/fesWYOJCfPm5e/d9pexT8+ff/X+lTK7JBoZ0b8/RYtmsIylJcHBHDlCo0b8+y99+1K3rnKrJZVWtizVqnH1KqNGYW7OiBEkJGg7kxBCiC+aNGBCCKGEUqXYvp0KFThyJLOegwFubmzfTuHCREbi5FREdTswkGfP+OGHTJktI6ys2LqVdesoXZr9+6lbl+7duXVL27HeUaIEx44RE4OLC48eMX06Zcvi6sqePdpOJoQQ4gslDZgQQiikRAm2b6dyZY4eZdmyzJrF1pbdu7G0ZP9+7O0/tOfgsWPZYkGdqysnT+Ljg6EhISFUqkRgICkp2o71jvr1iYjg0CE8PNDVJTISe3t69tR2LCGEEF8iacCEEEI5xYqxYweBgXTrlomzlCtHTAw2Nly4QIMGHDz41v1Tp6hRg3LlWLgwYxOFhXHjRsZKYGKCry/x8bi4kJjIsGFUq8amTRmsmilq1CAkhAsXGDmSvHmz77FmQgghcjRpwIQQQlGFCjF0KPnyZe4sRYqwYwctWnDrFo6OrF//5k1zc5o14949+vTh22813R7/4EHatcPBgX//zXheCwsiIoiOplIlTp+meXNcXbPp21YlSzJ5MnfusHOntqMIIYT4EkkDJoQQOVOuXKxbx3ff8eQJbm7Mm/fmnY0bCQkhd26WL8fGhgMHPr++lRV2dly8SLt2JCUpErlJE44dY8YMTE2JjKRyZXx9laqtMD099PTevhgVxaBBbNpEaqo2MgkhhPgiSAMmhBCZLDmZ33/n+HHlK+vpMXcuPj6kpODpia/vmzc9PDh2jLp1+ecf7O3x9f3M7eANDQkPx9yc2Fj69VMqsr4+Xl6cOEGHDjx9ip8f1tZERipVPnMtWMDs2TRvTunSjB7NiRPaDiSEECIHkgZMCCEyWUwMQ4ZgY4Ovr/In/qpU+Poyfz66uvj58d13b+5xUaYM27czdCipqfj50abNZz5uKlqU9evJk4fgYAICFExtbk5oKJs3U6UKZ8/i6krt2oSFoVYrOIny/viDiROxtOTaNSZPxsqK2rWZOVORRZpCCCG+FtKACSFEJnN0xMvrVQ9ka8vhw8pP0acPoaEYG7NgAR068OzZ6zuGhgQGEhaGmRkREZw8+ZmVq1Zl+XJ0dfnxR8LDlU3t7MyRI8ycSbFir944s7Zm+fLsu8CvUCHGjePsWeLi6N+f/Pk5eBAvL0qUYMoUbYcTQgiRQ0gDJoQQmUxXlxkziImhYkWOHqVOHby9lX/zqU0btm6lYEHWrqVx47cOg3ZzIz6e6Ghq1vz8yi1b8ssvpKXx7bcavUz2Mfr6DBnCpUssWUL58sTH8+23WFoSGJhN3w17yd6eOXO4cYPQUFxdAc6f13YmIYQQOYQ0YEIIkSXq1ePwYUaPRq0mIAAbG/bvV3iKunXZuZPSpdmzh4YNuXz5zZvFitGkiaaVR4+mZ0+ePWPw4IzHfJeBAd27c/IkS5ZQsSIXLzJsGBUr8vKY6WzL0JAOHVi3jsRE5sx5++6LF5w6ld0XVQohhMh60oAJIURWMTbG358dO6hQgRMncHBQfjli5crs2oW1NadOUa8ee/YoVjkoiIED6d5dsYLv0Nd/1YatW0fNmly+zLBhlClDQABPn2betAowMUGlevvi0KFUqUKZMnh5sWNH9l1XKYQQIotJAyaEEFnLwYEjR/jhBypUIHdu5euXKMHOnTRqxPXr1K/P8OE8efLegTduULMmI0fy4kU6yhoY8McfDByobNh36ejg6srBg6xbh60tt2/j7U3p0vj6kpiY2ZMrqWlTSpYkIYGZM3Fyolgx+vZl/fpsvbRSCCFEFpAGTAghspyxMVOmEB9P+fKZUj9vXjZswNsblYoZM6hWjejod0c9fMjJk0ydSr16n785RyZTqXB1Ze9eIiKoW5c7d/Dzo1w5xo/nyhVth0uf9u1JSGDPHkaPxtKSf/9l/nxataJwYfz8tB1OCCGE9kgDJoQQXyJDQ379lYMHsbXl4kWaNaNjx7d25qhYkdhYypXj4EGqV6d/f27e1Fbc91OpcHFh926io3Fy4v59fv6ZsmVxdSUyMgcs6lOpsLPD35+zZzl+nAkTqFmThw9Zu/Y9g8+f5/hxLlwgIYH793nwIMvjCiGEyBLSgAkhRLaxc6fCR0pZWxMXx4wZ5MpFaChWVgQHv3nf1pZDh+jfHyAoiPLl8fXl8eP0FX/wADs7Bg5M3xLGDGnShG3biI2lc2f09IiMxNWVsmWZMIFr1zJ7cmVYWTF+PIcOkZDA1q1v3z1wAEtLrK2xsKB0aczMyJcPlQqVioIF+fNPbSQWQgiROaQBE0KI7OHkSRwdqVGDI0eULKunh5cXx47h7MytW/TogYvLm8v48uZlzhyOH6dNG548wc+P8uXZuzcdlZ894+RJ5syheXPu3VMy8wc4OLB8OTdvEhRE1apcuYKPD+bmNG1KaOibB1Bna6VKkS/fey42a4aVFeXKUaoU+fOTJ8+rW3fvvvXkEuDJE8LDuXEj09MKIYRQnDRgQgiRPZQrh5MT16/TsCFRUcoXj45myRLMzPj7b6pVIzCQtLTX9ytVIiyMmBjs7bl1i7i4dNQsWpRduyhViu3bsbPjzBmFM39Avnz060d8PAcO0K8fhoZs3kzHjpQujbc3CQlZk0JhRYqwcSPHj3P+PAkJ3LvHgweo1aSlkZjIuHFvj585k7ZtKVkSe3v8/Tl9WhuhhRBCaEQaMCGEyB6MjIiKwsODR49o1Ur5ZWcqFd27c+IE7dvz4AHDhuHo+NZP7vXrs2sXJ0/i5ZW+mtbW7NmDjQ3//EO9euzYoXDmj7KxISiIa9cICqJKFa5fJyCAsmVfPRDL/m+IpYdKRd6877neoQNt2mBkxJ49jBlD5cpUqsTo0cTFvdlWCyGEyI6kARNCiGzDwIDgYHx8SE1lwAC8vJQ/x7doUVatYt06SpQgNpaaNfH1ffMlLpWKypXRSf8/DsWLs307rVtz7x7Nm7/1jlkWyJ//1QOx6Gg6dEBX99UDscqViY3N4ixZx9KSsDD+/ZfwcHr1omBBzpxh8mQcHLCyIjlZ2/mEEEJ8mDRgQgiRnahU+PqyYAH6+sycSadOPH+u/Cyurhw7Rs+eJCXh50fdupw69ZHh+/dTsiSDBnHr1vtum5qyZg1Dh5KURM+eTJ2qfOBPUalo0oTQUBISmDSJsmU5dw4nJ8aN+5K7ERMT3NxYuJCbN9mxg++/x9Ly/T17eDhz5rB1q7w2JoQQ2icNmBBCZD+9exMejqkpoaEMGZIpU5iZsWgRUVGULcvhwzRr9pFN6J8949YtZs/G0pIJE963TaKuLoGB/P47OjqEhmZK4PQpWpQxYzh7Fh8fgF9+wcGBs2e1mCgr6OrSsCHTpnH2LKdOoa//P3eTk+nQgYEDcXameHHy56duXXr3ZvJk1q3j4UMthRZCiK+VNGBCCJEttWzJ9u1UqkSJEpk4S9OmHD9OgwZcvUq7diQlvXdUw4YcPYqrK48e4eODhQUzZ75v7KBBxMe//5SrrKWnh68vsbFYWLB/PzVqEBio7Uzao6/P8uV89x0ODpiZkZjI3r0sWsTo0bi50b69tvMJIcRXRhowIYTIrmxsOHUKX9/MnSVXLsLCKFeO3bvp1+9Do6pUYd06du7EwYHbt/HyomJFlix5Z8uHSpUoWjRzA6db3bocOkS/fjx7xrBhtGv3nv3cvxLu7sybR2wsd+9y+zbbt/PnnwwbRsuW72nAkpMJDiY6mkePtJFVCCG+dHraDiCEEELbChRgzRocHAgOpkYNhg//0MAGDYiNJTKSH3/k+HF69iQhgfHjP1pcrebsWSpWVDx1euTJQ1AQTZrQvz9hYcTFsXAhLVtqJUt2UagQjo44On5wwIYN9OgBoKuLtTUODtSrR/36lCqVZRmFEOJLJk/AhBBCQPXqhISgUjFyJOvXf3ysiwtHjhASQv361Kz5qcrTp1OpEk5O7N+vVNjP5e7O4cM4OnLrFi4ueHry9Km2suQAzs54e2Nvj64uhw/z++98+y3m5lSqxLRpOebAayGEyLakARNCiJzj2TM6d86sbQbbtuWnn0hNxcODc+c+PlZHBw8PYmJwcflU2bp1KViQHTuws6NrVy5dUiju5zE3Z9s2ZsxAX5+5c7G15cgRrQTJAXLl4tdfiYsjMZGdO5k0CRcXzMw4c4YffmDDBm3nE0KIHE4aMCGEyDnu3GH1akaOZNCgTDlw18eHjh25fx9XVxITNSigVvPXX/zzzxuXHBy4eBEfH4yMWLaMihXx9OTff5WKnH4qFV5e7NpFxYqcPIm9PQEBcmzxxxgb06ABY8YQEcHt20RGMnEijRtrO5YQQuRw0oAJIUTOUaoUa9ZgbMzs2XTooPwRYSoVCxZgbc2ZM3TuTGrq5xaIjaVLF6pUoX9/rl//71VTU3x9OX2abt1ISWHuXCpVYsYMrXQ/tWtz+PCrQ8u8vWnenGvXsj5FzqOrS6tWjBtHrlxv31q8mMhIDf6yCCHEV0oaMCGEyFFcXdm4kbx5CQujZUvlT3EyNWXdOgoVIiqKsWM/99N2dvTvj1pNUNCrJuv/fy43Nyc4mP37adyYe/cYPpzly5XNnk7GxgQGEhZGoUJs3kz16vj7y3FYGjp/nl69cHWldGl++onLl7UdSAghsj1pwIQQIqdp2JDYWEqUYNs2nJ2VX85XujRr1mBgQEAAixZ91kcNDJgzh/h42rbl0SOGD8fWln373hhRqxZbtvD33/TujZOTork/j5sbx47RogV37zJmDKVLM26cVpZG5mwvD4WrWJFr15g4kXLlaNGCBQuIiODQIW2HE0KIbEkaMCGEyIGsrNixAwsLDhygYUMSEhSuX78+c+YADBz4v/1TulSsyJo1REZStiyHD2Nvz6BBPH78xoiWLVmwIHPPmE6HokVZv57oaBo3JjGRX36hTBm8vLhyRbu5cpghQzh1iu3b6doVAwM2buS772jdGhsbIiPfHrxvH50707cvo0cTEMCKFf/7F0MIIb4C0oAJIUTOZGFBbCw1anD69KeO4tJI797078/z57Rpo9lrUq1aER+Ptze6usyezZQpikdURpMmbNnCoUN068bz58yciYUF3btz6pS2k+UcKhWOjixdyvXrzJxJ9+64uODigrX12yNXrWLFCubPZ/JkvL3p3JlixejVi507Uau1EV0IIbKcSi3f8L44NjY2hw4dcnNzCw8P13YWIUQme/CAX3+lbVvs7JQvnpxM8+Zs24aNDTExGBtrVubECYKC8PSkatWPjhswgKQkZs16zz4PWSU+nsmTWb6clBR0dGjZkp9+wtZWW3G+QE+fsnkzt25x7x737rFnDzExr1qvGjXYtw99fW1HFEJkoW7dui1dujQkJMTDw0PbWbKOnrYDCCGEyIC8efH3z6zi+vqEhmJnx8GDeHoSHKxZmapVmTkzHeP+/psrVzhyhIgIba1OtLIiOJgJE/jtN+bNIzKSyEgcHPD1pUkTrST60piY0Lr1/1w5f57gYJYsITFRTgUQQnwVZAmiEEKIDytQgHXryJOHkBCmTVOwsFrNjRv/e2nbNipV4vBhbG05cEDBuT5XmTIEBvLPP4wYgakpu3bRtCkNG7JhgyyTU56FBX5+XLrExYsYGr5993N3p1SrefJEqWhCCJEppAETQgjxUVWqsGQJOjqMGsXffytV1d+f4sXp2pVbt/57ycKCuDgaNeLGDZyc0PYi6uLFmTqVS5fw8cHMjJgYWrbE0pJff32ndRSZIzqafPmoXJmAAE6f5sQJYmJYt47FiwkOJjn57fFBQRgakjs3NjaMHUtsLCkp2sgthBAfJQ2YEEJ8WQ4epFgxfHyUfFjTpg0//URaGh4enD2rSMnq1TExYdkyKlVi1ixevAAgf342baJ/f548oV07fH0VmSsjChTA15fLl5k6ldKlOX+eH3/E3Jw2beT04UxXvDglSnD6NN7eVK6MlRUNG+LmRq9e9OhBRMTb41NTSU3FwIBDh5g0iQYNKFyYjh1ZtIjbt7XxBQghxPtIAyaEEF+WlBTu3GHCBDw9lewPfvqJ9u1JTMTZmWPHMl6vZUtOnMDFhcREhg6lQgUWLCAlBfT0mDOHX38F8PNj4MCMz5VxpqaMGMGFC0RH060b+vqsXYurK6VK4e3N+fPazveFqlqVS5f4+2/c3SlblipVqF+f1q3p2ZPx42na9O3xAweSmkpiIlFRDB9OpUrcv09oKL17U7Eiz55p42sQQoh3yC6IXyDZBVGIr11kJJ068fQpDRqwcCHlyytT9skTWrZk507y5GH1aqV2pVi7lnHjiI8HKF8eX1+6dgVg1Sp69CA5mQcPNN6AMZO8/LH+jz9etaI6Otjb07073bplt6Rfu4sX2biRjRsxMmL5cnTk185CZDNf5y6I8q1ICCG+OC4ubNpEsWLExFC9OjNmKLO7XK5cREfTtSsPH9KiBXPnKlAT3Nw4epRly6hYkX/+wcPjv6f3dujA4cPs2pUNe5r8+enXj6NHOXCAfv0wNmbXLjw9KV4cT0+OHtV2PvFfZcsyYABr17Jixdvd1507FC2KsTEWFtSvj7s7Xl74+xMcTHQ0T59qKbEQ4isgDZgQQnyJHBw4cYJu3Xj6lOHDcXTk3DkFyhoYEBKCjw8pKXh64u2tyJtmOjp06cKJEyxeTLdu2Nj890aFCtn8EC4bG4KCuHaN2bOpVYvERObOpUYNHByYPVveO8rWdHXJnZvnz7lwgV27WLWKmTMZM4YePWjWjN693/OR06e5ejXLgwohvjhyDpgQQnyh8ucnOJiOHfH0JDYWR0euX1egrEqFry/m5vTvT0AAN28yb54ip+fq6tKjBz16ZLxSVsublwEDGDCAQ4eYP59ly4iLIy6OoUNxdqZTJ9q2JX9+bacU/yt/fs6d4+lTrl7l1i2uXePmzVf/v3Xr7cPKgP37qVMHoHBhatV69Z+NDWXKZHl0IUQOJw2YEEJ80VxcOHGCceMwMVGybO/elCyJuztLlnD1KqtXkzevkvXf8HIHwnbtaNQIoqPx8cHVlT59KFw4k2bUWK1azJ7N1KmEhbFiBVFRbNrEpk0MGEDz5nTqhJsbpqbaTineYGJChQpUqPDpkRYWtG7Nrl3cvv3qvbKXzMywtWXKFKpVy9SkQogvhyxBFEKIL12+fPz+O5MnK1y2WTNiYihZki1bqF+fhASF6//X33/z++80bkzjxlxce4zdu/nxR0qV4ttviY3NpEkzwsSErl1Zt45bt1iyBBcX1GoiIvDwoFAhXF0JDpbDgnMeMzPWruXOHS5dYvVqxo6lRQuKFOHePaKiiIp6e3xiIgsXEhlJfDyPH2sjsRAiu5JdEL9AsguiECLrXLtGq1YcPUqxYkRGUquW4jMkJzNlClOncv8+KtSDLDeNyj2n1NH/HsJlbc2AAXTtSu7cik+tlHv3iIwkNJQNG16lNjbG2Znu3XFzw8BA2/lEBly7xvnz2Nu/vQ7X1xc/v///Y4EClClD6dKULk2VKvTooci6XSFyvK9zF0RpwL5A/8fencfVmP5/HH+1ayctkrJmyb4vxUyDscugvoPKMiPMIMY6jLF/LWPGNoydFIPsYhjGhCJkNxLZSipLZCupzu8P5zemJt9hdLpP9Xk+zqPHOdd9n3O9jzE5n3Nd93VJASaE+GeJiXh7064dw4ahp/deL/XwIV27EhqKmRkbN9K+fR5FzCYlhfnzWbRIvbJF3ZKxP1Rd1uLKCt17SQAWFsycyaBBmug6D92+TXAwGzZw4oS6xdKSChUwM8PcHHNzLC2xtFTfNzfHwoLixV8/dHRER0fRNyDe2o0bzJnD9evcusXNmzl3Idu2jS5dFEomhDaRAkwUElKACSH+2cmTNG6MSkWTJqxaRbVq7/Vq6el89hlBQejr8+OPDBiQRylzevGCjRtZuJDISICuHdO39NrK4sUcOULHjuzapaF+89z162zcyIYN77aptaMj3bvj5UXjxlKJFTBJSdy8+boYGzEi59WAs2cTFETjxri50awZzs4KBRUif0kBJgoJKcCEEG9l7178/IiLo1gxli3Dx+e9Xk2lYvJk9aSroUOZN0+jJcKxYwQG0qYNHh4A3LpFyZIFcYGLO3dITOTJk9e3hw+zPXz0iMePefqU+/dfr2vv5ISnJ15eNGwolVgh4etLYODrh3Z2uLqqi7H69dGXRdNEISUFmCgkpAATQrytx48ZMYIVKzA05OBBXF3f9wVXrWLgQF6+xNeX5cvz//Km1FSePcPaGoD//pdp02jaFHd3PvqIRo0K+sfYP/4gOJigIK5dU7c4OdGlC56euLpKJVawZWURGcnRo4SFER5OYuLrQzVrvttIqRAFSNEswGQVRCGEKMIsLFi+nK++Ij2dbt3yYJfZfv3Yvh0zM9au5YMP1DMF81HHjpQqRdeuHDkCBga8eMHBg0yYgKsrJUrQvj3ffcepU+qlMAqa6tWZNImYGC5eZMwYHByIjWXBApo3p1w5/P0JC8uTnbGFAnR1adSIYcPYvJmEBK5eZc0aPv8cFxfKls3l/J9+Ys4cDhzg/v18zyqEeD8yAgZARuTiLxadfKljUslj+FcelYyVzvN+ZARMCPFuMjPp2JG9e6lXj7AwjN/7l+Dp03TuTHw8urr4+vLf/2JvnxdB/9n06UydyosXAF9+yffjHhgdC+X33/n9dy5den1e9eqcP49uwf4WMiuL8HCCg9Uf2V+pVAkvL1q1onZtrKwUzSc05t69bNvglSlD7drUqUOdOlSpQvXq7/tXOyOD9euJjiYujps3Uano3JmePXFweM/gQuRUNEfApAAD4MVmr+KewWmArnn1Hv9dOf+LxiUL7j/LUoAJId7Z/fs0bMjNmwQGkif/Cj57xnffMWsWaWmYmDBqFGPG5EFp9xaSkvjpJ2bO5MULatdmwwaqVgUgMZGDB/n9d0JDsbUlLKzQTNrLyuLIETZtYssWkpJet5cpQ82a1KpF7drUqkWVKgV9DqZ4bft29u/n7FnOn8+5z5ifH0uXZmtJT2fGDNLTKVkSKyusrChZEiA2loQEPvmE8uWznb9jRy6LNOrq8uGH9O6Nj0+h+V9HKE8KsCLsdQEGoGPg4D5y0fJvPSoUUzTVvyUFmBDi37hyhaVLGTsWG5s8e824OMaPJygIlYoyZZg+Pd8+u/3xB//5D3/8gbExM2bg7/8Wz3n2DFNTjSfTpMxMDh9m61YiI3PZ/9fQkOrVqVWLmjXVJdlfR1FEAZWVxbVrnD3L2bOcO0dCAl9+Sb9+2c45doxmzd74Cn37smpVtpbHj5kxA2PHR3PQAAAgAElEQVRjypXD0ZGUFNatIySEtDSAffv4+GMNvBNRJEkBVoT9fwGmX7Gtl+P54EN3Xqp0LWp6z1g+Z0Bjm/fbH0cBUoAJIbRLaCjDh3P2LECjRsybR9Om+dDt06d88YV6ZbnRo5k163+evXAhw4bRpw8zZhSOuiQrixs3OHeO8+e5cIFz57h+PecVYnZ2NGzIRx/x4YfUrl3Qp2SKN1KpCA7m6lWSk3nwgORkkpPJysLRkbJl6d//rVa9T0lh82b++INJk7Cw0HxoUTQUzQJM5iJko2P90aRfA4cs8f9s/M+XLqwd7Lrzp67Dp0we1qWahQy2CyHEv/Thh5w6RVAQY8Zw4gSurnTvzpw5ODlptNtXS4G0asXgwVy58k9nly2LgQGrVrF1KxMnMnhwQZ+up6tLxYpUrEjXruqWp0+5eFFdkr2qypKSCAkhJATAyooWLXB3x92dGjVkjlmhoqODl9f7voilJZ99lkv7qx0o9PTo2ZOKFd+3FyGKAvmy6290rZsMWXfy9NbxbcoaZT26GDyxW23nJn1/+PXGc6WTCSFEgfVqNY6YGCZOxMiI4GBcXJg0idRUTffs60tSEps3/9N5nTvzxx94evLoEcOHU6MG+/ZpOls+MzOjSRMGDGDRIo4c4dEjrl9n7Vr69aN8eZKT2b4df39q1cLODi8vFi8mKkrp0ELrPXzItGl8+y3Ozri6EhREerrSmYTQblKA5c6kUpdpv5w/GTT8g9KGvLx7Ys2Iti5VPxw4Z8upxBdKZxNCiHxy714ev6CpKZMmceUKPj48e8bkyVSuzNq1ml463dgYvbeZTV6xIps2sX8/Li5ER9O2LZ06cfOmRrMpq3x5fHxYuZLr17lxg9Wr8fXF0ZF79wgO5ssvcXHB3p6ePVm2jNhYpeMKrWRlRWgovr6YmnL0KD4+ODkxceLrlTmFEDlIAfZmOhY1ev7w++UzG8d3qGiqo0qLO7R0VPeGTg41Ow6es/lkghRiQohCbeFCSpXip5/y/pUdHVm7loMHqVOH27fp3ZuPPyY5Oe87erOsLO7efcOxVq04fZoZMzAzIySEmjWJicnPbEopV44+fQgIIDaWq1dZvpyePbG3JzGRn39mwADKl6dTJ/buJStL6axCy7i5ERBAUhIrV1KnDklJTJlCuXL4+PBc5g8J8TdSgP0DHXMXz2khFy/99uOgD52MdVC9fHBx96JRno3LOtRo23fMd6t3Hbvy4IUsZCKEKHTKlUOlwt+fw4c18vru7kRGsmwZtrYcOICrK9eva6Sj3AwdSunSTJr0hg2ZjYwYO5bLl+nZk5IlC/rFYP9CpUp8/jnr1nHnDlFRLF5M9+4YGhISQrt2VKnC99/nc8ksCgATE/r148wZDh/G05OsLIKCsm2/J4R4RQqwt1LMyf3Lxb9HR4euGPdpYwdjHVC9fPDHvjWzR/fr3KyqbfFSLs0/6T9+c3Su/5ALIURB1KkTo0bx8iVdu3Ljhka60NOjf3/OnqVePS5fplEjwsI00tHf1K0LMHkyLVty+/YbTnJwYN06bt6kXLn8SaWdqlZl0CCCg0lIYN48ypcnJoaRIyldGi8vjh5VOp/QPs2bs2kTN25w6BANGiidRgjtIwXYOyjm2OKz6T9H3Ig9t2Oef+ea1gavlohSZaXdjQrbvuKHTRcyFE4ohBB5acYM2rXjwQO6dtXgRCJ7ew4domNHHjygdWs2btRUR3/x2Wfs30/p0hw6RO3azJnDs2f50G3BVrw4/v7ExLB/P56eZGQQHIyrKw0asGxZPiynIgqYMmVo0SJnY1oaP/5IRIQSgYTQGlKAvTsD65qd/eftOB936+TOJRP9OjYoY6onq/UKIQohXV3WraNSJc6eZcAADXZkZsb27XzxBWlp9OjBpEka7Ov/ubtz9iwdOpCczKhRVKjw1mXY9Ol8+SUpKRqPqJV0dWnVik2biI5mzBisrTl1igEDKF0af39NjZWKQmPfPoYMoWlTGjRg3Di2bXvzELQQhZcUYP9eMfv6nQZMWrrrZFzy3ejw7cundatc4PZsFkKI/61ECXbuxMKCoCAWLNBgR3p6LFrEvHno6DB5Mn5+ZGh8UoGNDSEh7N1L06bcvcuoUdSuTVraPz1tzRoWL6Z2bY4c0XRCbVaxIjNnEhvLypXUq8ejRyxYgLMzHh5s2EB4OFeu8PSp0imFlmnblnHj1HX7jBl07YqjI/b2dO7M7Nmyfr0oKorchcUaYWjl3MzDuZnSMYQQQhOqVWPFCv7zH0aMoFkzzV7S4e9PmTL4+LB8ObGxBAdjbq7B7gBo04Y2bdi3j6lTSU1F9x+/mdyzB29vTpzA3Z3Ro5k8GQMDTYfUWsbG9OtHv35ERLB4MZs2sXMnO3dmO8HWFnt7bG3Vd2xssLOjVClsbXF0xNRUufQi3xkZMX06Eyawbx8nT6pviYns2sWuXdSoQfv2SkcUQvOkABNCCPFPPD354w+mTePBA4331a0bDg507sy+fTRvTkgIZcpovNP/L8PeirMz4eF8/z0TJjBjBvv3ExRElSqazaf1mjShSRO+/57Vqzl6lHv3SEwkKYlnz7h1i1u3cn+WkRFduuDnh7s7OjKbv8goVgwPDzw81A9jYjh5kvv3adUq55nTprFxI05O6urdzg5bW0qXxtaWcuUwNs7n4ELkDSnAANCr2mXU2Iov0XNsXEJmZQohxN9NmsTo0ZiY5EdfTZpw7BgdOnDuHE2asHs3tWvnR7+5iYkhNJQePbIP1OjrM2YMH36ItzeRkdSty4wZDB0qNYSNDaNHZ2t59kxdid27R0ICd+9y9676zr17xMSwcSMbN+LsTP/+9O6Nra1C0YVyKlWiUqXcD507x8WLXLyYyyEbG2JisLDQaDQhNEJHpZI9rAqb+vXrnz592sPDY/v27UpnEUKIfys5mS5dOHIEc3M2baJtW0VSdO/Oli3Y2jJqFIMG/W2+3OPHDB5MYCDAwoUMHqxExgLszh0CA1myhJs3AQwN8fDAz4+WLaWYFQAZGVy4QHw8d+9y5456ZDUhgXv3sLNj3z6MjLKd//HHXL9Oz574+r6xqBNaxcfHJygoKDAw0NvbW+ks+UeGe4QQQmglKyv276dHD548wcODtWsVSfHtt6+X6KhQgQkTsi/aZmHB2rVs2ECtWlSsqEjCAq10acaM4do19dL2WVkEB9O6NZUrM2sWd+8qnU8oTV+funXp2JF+/fjmG+bPZ+NGDh8mKorQ0JzVF/DyJdeuMXUqlSvTvDkrVvD4sRK5hfifpAATQgjxr8THc+GCZrswMmLdOiZOJD2dPn2YNIl8n7VRqxZHj7J3L82acfcu06ZRvjzduvHbb3856T//4dw52rXL52yFxp9L29+8yeTJODkRE8PYsTg64uXFgQNv+589NZUHD0hI0HBcocUOHiQ0lD59MDUlLIz+/SlVCm9v9u/P/18eQryRTEF8b2kPE5KfZ6lAx7hkaatiSsdBpiAKIfJH06acOMGcOQwfrvG+Fi9m6FAyM/n0U6ZMwdlZ4z3mJjycRYvYskW9WPaPP/Lll4oEKeQyM9m7l+XL2b1bvRlBxYp8+ikqFc+f8/w5Dx+q7zx+zJMnPH/Os2c8evT6E3a1anh48MknNGwoUxmLqGfP2LKFgABCQ8nKAli6FD8/pWOJvymaUxBlEY739WLfkCqfrHuigmKewY82df/baPi/duHChT179vyLJyYlJQEZmt9CRwhRpPn4cPw4X33F7dvMmaPZz7lffIGTEz16sGGD+nowf39at87nD9eurri6kpTEihXs3k2NGv/z7KtXsbDAzi6fwhUienp06ECHDsTHs2oVK1Zw7RrTp//zE4sVw8SErCyiooiKYuZMSpemc2e6dMHdHUNDzUcXWsPUFF9ffH25dYu1azl8mLp1lc4kxP+TEbD39WKHt41mCrBOnTqFhIT866fXqVPnzJkzeZZGCCH+bssWvL1JS6NbN4KCKKbhSQBXrzJ7NuvWkZoKUK0aQ4bg66s9O0mlp2NggI4OpKZibY2JCfv3U6eO0rkKtqws9u7lyBFMTTExwcwMS0tMTDAxoXhxTE0xNVU3vtrDLTOTw4fZsYMdO9RrewCWlrRrR5cutGsn6+YJtZUrOX4cV1eaN6dCBaXTFFVFcwRMCrD3pbkC7MKFCxs3bvwXA1lr1qxJSkrq0KHD+9RvQgjxVn7/nU8+ISUFd3e2bcPSUuM9pqSwZg1z56r3lrKwoE8fhg+nXDmNd/0/ZWZSsSJpaXz+OQP8VI5DurBzJyVKsG8fDRsqm63I+uMPQkLYtYujR9UTFPX0aNIET0+6d8fBQel8QlG1a3P+vPq+gwMtWuDmRosWuLi8xYbsIo9IASb+DdXDa6eu3s9UgW5J5waVrLRgrrlcAyaEyFcXL9KuHbdvU6MGv/ySP/smk5XF7t0sWMCBAwC6urRvj7+/guuXq1S4u3PoEICeHu1bpS962NPxxBYsLdmzh2bNFEklXrl5k+3b2bGDI0fIzATQ1aVhQ2rUoGxZypalXDnKlsXBAX25OKPIuHmTbds4fJiwMO7ff91uZcXw4XzzjXLJtEBICHPn8ugRCxdq9reXFGCikJACTAiR327epG1boqOpWJFLl/L1apszZ1iyhMBA9bzEKlUYNIj+/fNpz+i/CQ9n8WK2bOHFC/TIDDLo++nLwMxipnq7d/LRR4pEEn/14AG7drFjB7/+yvPnOY/q61OmDE5OlCunLsle3Zyc5BKywkylIiqKI0cIC+PwYWJjadFC/WWKUtLTuX+fe/e4fx9zcxo1ynnCnTts3Eh6Omlp6l9+fypVii++yPk39uFDfvtNPQ6sq8udO9y5w+3bxMaiq8vPP1OqVLbze/bk558BVq+mT5+8fXPZSAEmCgkpwIQQCnjwgK5dSUzkwgUFPqsmJrJ0KUuWkJgIYGND3760b0/Tpop8cE5O5uefCQwk8njmCj7vw5pMIxO9Xdtp3Tr/w4hcPX9OeDjXr3Prlvp28yYJCeoV83LQ1cXFhaZNadaMJk2oUkUWVyzMEhLU1xn+1aVLNGxIiRI0akTjxjRqRIMGmJvnWacnTzJzJomJ3L9PUhIpKdmOHjyIu3u2loEDWbr0ja+2Z0/OfTG++IKffsr9ZD09IiNzXqyaksLp0zg5aXyDQynARCEhBZgQoohKT2fjRhYsIDJS3WJmxgcf0Lo1rVpRvXr+J7p8maC1Wc2DBrSJW0GxYuzeLeNg2iw9nbi41yXZjRvqO7dv89crsq2saNqUJk1o1oxGjTAzUy6xyC/Xr+Pmlm2XOV1dqlWjUSOaNaNXL4yNs52flsa+fdy+zb173LtHQoL6TmIiL1/y++85B7VGjuT7718/NDDA2hpra2xssLFh4UJsbLKdf/kyAQGoVBgZ5awVTU3x88v51dPJkyxYwIsXAFlZ2Nnh4ECZMjg6UrmyktdDSgEmcpHx9H7SvQcPHz9/8TJL18jU3Nzc0trOxkyrZ4hLASaEKOqOHmXzZg4cyLZVdOnStG5N69a0bJlzto2mqVQMGcKiRfj7M2/eq7Z9+8jKonVrueioAMjI4Nw5wsI4dYqwMG7ceH1IT48qVahfHzc3XF1xcZHBsUJLpeLqVU6cUN/OnlXXM8C8efj7Zzt5yhQmTsz9dYoXZ/9+GjTI1vj0Kb//TokS2Nhga0uJEhp4A1qpaBZg8ls/F6nxEbs2bgnZf+T4mYvX7z7LyF6i6ugYWjhUrFqzoXs7jy5d2jZyNJHftEII8UZPnyowQNCsmfqy8bt3OXSIAwf45Rfi4ggIICAAoEIFWrWiVSvatMmPVcl1dPjxR7y9qVnzVcPz57RvT1YWtrZUrar+nvvVF97W1nz8Mba2Gg8l3p6+PvXrU7+++mFsLEePcuwYERGcOcOlS1y6RGAggK0ttWrh7EzlyupbuXJSYxcSOjrq/6avKoX0dM6e5cQJrl7lk09yntylC1FRWFmph7Ds7LCzw9oaOzusrHJ5cTMzOnXS+FsQWkJGwLLJenB82bjhk9dEJKa/1R+LjoFN/Z7j584a7Ganp+lsb09GwIQQ2mLuXEaMwNeXmTPze9Dp7y5eZP9+Dhzg0CGePVM3GhnxwQdMnZrLRe4a9tNPLFxIVFQuhzp2ZNeubC3PnzNsGKVL06sXzs75E1C8ldRUIiM5dkx9S0rKeYKBARUqqD+4vyrMnJ3zaa1QIbRf0RwBkwLstfRr6z9v1y/o6ov//xPR0TOxKu3o5Ghf0tzE2NhILys9LfX5k+Sk+LjY+HtPX/55moGTx8I96wdUN37TK+czKcCEENpi1y68vEhLw9KSiRMZPBgDA6UzQXo6R4+qi7FTp8jMRFeX/v35739z/2pak6Kj1Zfd373Lgwfcv8+DB/ToQfv22U67dIkaNdQrmDVtSq9efPopJUvmc1jxz27e5PJlrlwhOpqrV7l6ldjYXBb2MDXF2Zl69fjoIz76CHt7JbIKoQWkACvaUk9807TFf8+9UKFjVLrJf/z69/Jo1bSmo3muI1tZqUmXTx7auzlgWcDe6MdZ6BhW/nLPiQUtLbViNqIUYEIILRIXx/jx6ulZlSszfz5t2yqd6S+Sk5k9mx9+4OVLbGyYNYs+ffLvIp53mZ95+DCrVrF1K0+eABga0q4d3t507EixYhrMKN7TixdcvcqVK+qfr25372Y7p1o1dSX24Yf5/yWAEEoqmgUYKqFSqVSZtxa1NNEBHT2HzvMjH2a97fPSbuwYUtdUB3SMGs+6nKHJiG+vXr16gIeHh9JBhBDi/x04oHJxUYEKVB07qm7cUDpQdleuqD7+WB2vQQPViRP50emsWSo9PdW8ee/0pGfPVOvWqdq1U+nrq/Pa2Kji4jQUUWjKo0eqiAjVnDmq9u1VZmbq/5Sg0tVV1aunGjlStWeP6skTpVMKoXmv6q7AwEClg+QrXaULQO2QFbd9Y1iqCj3Hz1YGDq1f/K2/+zQq13nuxqluxjqqF6e37bqRqcmQQghRcLVsyZkzzJyJmRkhIdSqxfXrSmf6C2dn9u1j504cHYmMpFkz/P15/FiznZYrR1YWw4bh50d8/Fs+ycSEnj3Zs4fbt5k7l/r1ycrKfesqoc0sLWncmBEj2L2bhw8JD2fqVNzdMTTk9GnmzKF9e6yscHNj4kQOHXq92p4QohCQAgyAjEtn/3ipQte2vaf7u66GpVexm2cjA8i8eumKFGBCCPEmhoaMGcPly/TsibW1VlwMlkOnTkRFMWYMwIIFVK3K2rVobqK+lxfLl6Ovz/LlODszejTJyW//bDs7hg0jMpL793Fyynl0715++SXnPDehnfT1adaMb77h4EGSkzlwgHHjaNIElYrwcKZM4cMPsbCgcWMGD2btWi5f1uDfSiFEPpACDADVixfpKtAxMzd794n/uhbFLXRBlf7i7ZZOFEKIIszBgXXruH4dR0elo+TG1JSZM9WDYAkJ9O6NuzuXLmmqu88+4+JFfHx48YLvvqNsWcaOff+Rt/h42renfXvs7Chblm7dmDGD/ft5+DBPQgsNMjamZUumT+fYMR48YOdOhg2jdm0yMzlxgkWL6N2batUoUYKPP+abb9i5k8REpUMLId6RFGAA6JUpW0YPsm6fOp3wzhM5Us+dvPgSdO3s7eSPUwghCoHatQkLIyAAGxsOHaJOHfz9efpUI31VqcLatZw8SZs2PH3KrFnUqkVKyvu8ZOnSTJ1KixaYmxMby9atjBvHxx9jZYWzM9u25VV0oVkWFnTqxNy5nD3Lo0eEhjJ7Nt264ehISgr79zN9Oh4e2Nvj5ET37nz3HYcO8eCB0rmFEP9EtgYEQL9Wx3ZlZ0ddSz00a2xwp8D/OL71rl6qJye++zrgZia6tq4f1tK+CTVCCFEwLF5M6dJ06aJ0jv+no4OvLx068PXXrFzJggXs2MH8+Xh4aKS7evXYu5dDhxg/ntjY95xhpqPD+PGMH09WFtHRREYSGcmpU5w5Q0wMYWG5bBortJyZGR98wAcfqB8mJHDihPp28iRxccTFsWWL+mixYpQqhYND7j//vntBejp375KQQGIiSUncucPdu+qfrxp1dPD0pF8/3Nzyb4lQIQoxWYZeLfPK/FYNh4c+VukYOnzkP+O/w70a2Rv9w1MeXd67YurYqRsuPs7SMaw5LuzktIb/8JT8IcvQCyEKmMePKV4cYMoUvvlG6TR/ExHBF19w5gyAtzeLFmHxrpcLa4WMDGJiqFQJ/ezfvgYH4+1N3bq0aUObNjRujN5bfw0pFKdSER39uh67cuUfBlD/LM8MDbl7l6Qk7t9/274qV6ZvX3r3lo3LRJ4pmsvQSwH2p5fRy7q6f7E7IVMF6BhYVWrk5ta4brUKZcvYW1uaFitmqK96mZaW+vRB4u24G1fOnTwaFnEx8XmWCtAt7jbl173jG5oq/R5ekQJMCFHw/PQTQ4aQmYmfH4sW5SwRFJeZyeLFfP01z55RsSLr19OoUf71/vQpMTHUqaOhl/9zu+xXihenVSt1MaadV+qJ/+35c+7cISEh959/L8/09bG1pVQp7O2xtcXBIefDxERWr2bNGvVqnfr6tGtHv3506KCNi+mIgkUKMJEatXZID//V5x9lvf0fiq65S49ZgYsG1tOOTZhBCjAhRAG1Ywc9e/L8OR9/zObNmJsrHehvoqPp2ZPTp9HXZ/x4JkzIp6Ginj35+Wdat2bAAJo3x9Y2z3t49ozQUPbu5ddfuXLldXvjxhw8iIlJnncoFPNneZaejq2t+vY2EwszM9m3j1Wr2LWL9HQAOzt8fOjXj2rVNJ1aFFpFswCTVSP+yria74rI6GMB33q3qGip/79/GenoW5R37TFu1ZHLZ4IGaVH1JYQQBZWHBwcPYmPDr7/SsqU2rqFepQoREUycSFYWkyfTuvXb79/1Xrp1o0QJ9u+ne3fs7KhWjQEDCAoiNjavejA1pUMHFi4kOprr1/npJ7p0wcKCqCieP8+rToRWMDGhUiWaN6dlS2rWxM7ubS/r0tOjfXs2byYxkaVLqVOHpCTmzMHFhQYNWLaMJ080HF2IwkJGwN7k5aMb5yNPX4i+dis+6cHDp6npGRgYm5qZmVnaOFWqUqVqjdo1yhXXzoF3GQETQhRg167Rrh1Xr1K+PL/8QpUqSgfKzYED+PqSkEDx4ixdipeXxnt8+JBlyzhwgGPHePbsdXvPnqxbp6E+MzJ4+RJj45ztcXHY2mKkFVc9CyUdP86qVWzYoN46wcwMLy+GDqV2baWTiYKjaI6ASQFWCEkBJoQo2BIT6diRU6do3JiICKXTvMG9e/Tty+7dAD4+LFmSTxP1MjI4dYojRzh8mLAw2rZl/fqc5zx9iokJuhqZ5HLqFA0bYmvLwIEMGoSdnSY6EQXJ8+ds3szKlRw5gkqFjg6tWzNqFK1aKZ1MFARFswCTKYhCCCG0TKlShIYyYAC9eysd5c1sbNi1i3nzMDIiMJAGDTh3Lj/61dencWNGjmTnTpKTc6m+IiMpXpx69Th6VBP9OzlRvz5JSUyeTNmy9OuXT+9baC0TE3x9OXSIK1cYNgxTU379ldatqVeP9evJyFA6nxDaRwowIYQQ2sfMjCVLGDRI6Rz/k44O/v6cOkXNmkRF0aQJ8+e/5xZeecDGBkdHzp3DzY3PP8/zfXltbDh5kshIfHzIzGT1aurUwc2N4GAyM/O2K1HAVKrE3LnExzNvHmXKcOYMvXpRqRKzZvHokdLhhNAmUoAJIYQQ76F6dY4fZ+hQ0tIYNox27UhMVDJP2bJERzNzJkZGrFyJszPz55OVlbed1K/P2rVERzNsGBYWhIfj5YWbW952IgokCwv8/bl2jYAAXFy4dYuxYylbFn//fFqzRgjtJwWYEEII8X6MjZk/ny1bsLJi3z7q1GHvXiXzGBoyZgwXL9KuHQ8fMmwYjRpx8mSe91OhAnPnEhfHvHlUqZJ7lff0KS9e5HnPQtsZGuLry8WL7N9Px448fsyCBVSogK8vly4pHU4IpUkBJoQQoiBITaV2bdq2JTxc6Shv0LUrZ87g5kZSEh06sGCBwnkqVmTPHjZuxMGBU6do1oxfftFEP69GPC5f5vjxnIf++IOSJSlWjFKlaNAADw+GDmXWLIKCCA+Xq4MKPx0dWrVi1y6OHaNbNzIyCAykZk08PNQrdghRNEkBJoQQoiBQqbh3j337cHOjaVM2b9bGS46cnAgNZeJEVCqGDWPePKUDgZcXUVEMG0axYvn/J1aiBFWrYmhIUhKnTrFzJwsXMnYsPj64ufH11/kcRyimSRM2byY6moEDMTJi505atMDamo4dmTGDw4dJTVU6ohD5SF/pAEIIIcRbMDHh/HkWLmTxYiIi8PSkQgWGDaNfP0xNlQ73F3p6TJqEoyN+fgwfTmqq8nWGuTlz5zJ3bv73XLo0586hUpGYyO3b3L5NXBxxccTHc/cuH32U/4mEkipV4qefmDKFH38kIIBbt9i9W72Vg4EB9evTrBlubjRrJtsbiEJO9gErhGQfMCFEYZaaSkAAP/zA1asAVlZ89RXjxysd629WraJ/f7KymD6dceOUTlMw7N/P+fP07Im9vdJRhOYlJBAZSXg4YWGcPEl6+utD9va4ueHqipsbdetqaE87oRWK5j5gUoAVQlKACSEKv6wsdu7k++8JC0NXl0ePMDdXOtPf/FmDTZumjSXili0sXMjAgXTqpCWjiA0bEhmJoSFduzJ4MK6uSgcS+eXJEyIiOHqU8HAiInjy5PWhEiVwdsbREUdHypZV33F0pFQpdHSUSyzySNEswGQKohBCiAJIV5cuXejShchI0tK0sfoC+vXD2BgfH775BpWKb75ROlB2J09y6BCHDmFszMcf07UrHTtiZaVgouXLmTaNHTvYsIENG6hTh8GD6dkTY2MFQ4n8YG5O69a0bg2Qmcn584SHc/QoYWHExXHiBDKAv5IAACAASURBVCdO5HyKoSFlyuDoiJMTTk7qO66uWFjkf3wh3o0UYEIIIQqyBg1yaXz2jN9+o0kTbG3zPVB2PXqgo4OPDxMmoFIxYYLCef5q2jTKlSMwkIgIduxgxw4MDPjwQz75BC8vSpbM/0R16rB5M7dvs2QJK1Zw9iyff87o0fTrx/jxFC+e7eSMDI4d4/Fjnj8HSE0lLQ1AT4+WLSlXLv/ji7yhp0fdutSty+DBAImJ3LihvnowNpbYWOLiuH2bpCSuX+f69WzPNTXl00/x86NRI0WyC/FWZApiISRTEIUQRd233zJ1Krq61K1L27a0a0fjxugr953jhg34+JCRweTJfPutYjHeJCGB7dvZto3QUF6+BGjShGPHlA314gWbN/Pjj0REAMyZw4gR2U6YNYuxY3N/rq4uoaE0b67xkEJBaWnExqpXdrl1i7g4oqI4elS9un3duvj50bOnDIhpO5mCKIQQQhQKXl6cOkVoKKdOceoU06dTvDitW9O2LR06KLDC2qefoqODt7d6hfqJE/M7wP9mb8+gQQwaRHIyISHs2kWzZkpnwsiIXr3o1YtTp/j1V/7+2ax1aw4dQkdHff1asWLqmYoPHxIVhY1NfgcW+axYMSpXpnLlbI1Xr7JyJatWceYMgwYxfDidOuHnR6tWCqUUIjcyAlYIyQiYEEIApKVx6BB797J3L5cvqxstLYmPV2bNiU2b6NWLjAzGjGHmTAUCvI9z5xg/nlat8PFRZHbi+9u6lZQUPDyUvcxN5If0dHbsYNkyfvtNPSDm4oKvL35+lCihdDiRXdEcAZN1PYUQQhRSxYrRpg1z5xIVxY0b/PQTHh60bk2xYsrk8fJi/Xr09f/X5DmtFRHB7t0MH06ZMvTqRWgoBeoL3KwsevSgXz9KlaJDB9auJSVF6UxCYwwN8fRk/36ioxkzBhsbLl1i7FhKl8bLiwMHlM4nijwpwIQQQhQB5coxcCDbtxMcjJ5etkNPnjBxYj5d8uTpyc8/Y2DArFmMGZMfPeaV/v3Zvp327Xn5kvXrcXenalW++467d5VO9lZ0dQkOpm1bVCr27KF3b0qVwsOD6dPZvFm9jIcofJydmTmTuDjWreODD3jxguBgWremfn2+/57z5wvW1wii8JACTAghRNEWGsqUKbi5MWAADx9qvLvu3Vm/HgMDZs9m9GiNd5dXdHXx8GD3bq5fZ+JEHB25coXRo3F0LCiVZOfO/PILCQksXYq7Oy9fsnMn33yDpydTpuRyfkKCekUSUdAZGdGzJ6GhXLrEV19RsiSnTzNyJLVrU7o0vr4EBpKYqHRKUZRIASaEEKJo69CBb7/FwIBly6hWjfXrNd5j9+7qcbDvvmPUKI13l7ecnJg0iRs3CAmhc2eysti/X+lM78DaGj8/Dh7k9m1WrWLMGHr0oGvXnKdt3kzp0piY4OxM+/YMH86GDfIZvcCrWpXvvyc+no0b6dsXBwcSEwkMxNeX0qWpXZuRI9m3j9RUpYOKwk4W4SiEZBEOIYR4ZzExDBqkvjrkgw9YsoSqVTXb49atfPopL1/SrRszZ1Kpkma705AHDzAywswsZ3tqaoHePvnUKby9uXqVzMxs7dWq0aoV06bJ4uaFxPXrHDjAgQP8+uvrywL19WncmE6daNWKunXRldEKTZJFOIQQQoiiqlIlfv2V1auxtubQIerVY/p0srI02GPXrmzahIkJW7bg4sKQIQXleqpsSpbMpfpavhxTUypXxteXxYs5e5aMDCXC/Xv16xMVxfPnXLrE9u3897+0a4eZGVFRLFxIaKjS+UQeqVABPz82beLuXX7/nXHjaNCArCzCwxk7lgYNsLfn00/58UcuXNDs7wNRpMgIWCEkI2BCCPHv3b/PqFEEBKBS8fPPfPqpZru7c4fJk1m1iowMTE0ZPJjx4zE312ynmrZ9O76+PHnyusXUlAYNaNaMli1p2VK5ZO8lI4OTJ7l5E0/PnNt6BwcTEUHz5rRoIcvcF3gPHvDbb+zfz6+/Ehv7ur1ECVxdadECNzcaNMDAQONJXrzIuUKMhUXOVYTy1oMH3LvHvXvcv09iIs+f07evZv9KF80RMCnACiEpwIQQ4n0dOsSWLYwfn0+7Nl++zLffEhwMYGPD+PF8+WXOz/gFS0YGFy9y9CgREUREcPXq60OXLlGtmnLJNKJ+fU6fBtDVpWJFatWienVq1KBmTZydNfuJWWjUlSscOsSRIxw+zK1br9tNTGjSRF1yN278VjsLPntGSgqPHpGSQkoKjx9nu//n7dEjHj1S33/x4h2iGhtjYoKlJWZmmJhgZoalJSYmGBtTogQmJpiYYGGBuTn6+iQnc/cu9+9z7x5JSeqK6969XMaq58xhxIh3iPGupAAThYQUYEIIUSBFRDBqFGFhAFWqMHUq3bujo6N0rLxw/766Env8mO++w8go29HBg9m3D3t7nJwoUwYHB8qWVd/JnwL4vcXEsH49oaEcO0ZaWrZDTZty9KhCsUSeiovj0CHCwjhyhKio10vYGxhQvz7Nm+PoqK6p/vz58OHrh/9iUU0Dg5wzfB8/znldYt4qUQJbW6ytsbHB1pbSpfnyS6ytNdhj0SzACvK3a0IIIUR+UqlIT89ZPOShJk04coRduxgxguhovLxo0oTZs2neXFM95htrazp2pGPH3I9euUJMDDExuRyqXZszZ7S/Cq1UiW+/5dtvefmSy5e5eJELF7h4kYsXcXDIeXJmJqNH8/w5TZvSti22tkokFu/O0RFvb16VCffuER7O4cMcOcLZs+qvF/43Y2MsLSleHEtL9a14cSwssLTEwkJ9+/OEVw/faSGb5895/pzHj3nyhOfPefaMR4/UjSkpPH3K8+c8fUpKCllZFC+OnR3W1lhbY2urvm9jkx/zKgVSgAkhhBBvy9ubvXtZupTu3TXYS6dOtG3L6tVMnEhEBC1a0KoVc+dSo4YGO1XW3r1cv058PLGxxMURH09cHLGxxMcXuKUUDQyoWZOaNenR443nJCezYAEZGSxZgq4u9erRrh3t2tGokUxWLDBsbOjShS5dAJ484ehRwsJ4+FBdPhUv/vr2Z02lua9uXnk1yVCjo1Uir0gBJoQQQrwdGxuSk/H0ZOBAfvhBg7WBgQF+fvTowezZzJ3LgQPUq0f//nz5JS4umupUQbq6VKr0tgvx37nDqFE0bUrfvm915Y32sbHh+HEOHeLAAUJDiYwkMpKpUylZkjZtmDKFihWVjijehbk5bdrQpo3SOUTBIcvQCyGEEG9n3jwCAjAxYckS6tfnwgXNdmduztSpXL1K//6oVCxeTPXq2NvTsyfLl+c+Ya8oOHOG9esZMgQnJ8aNIyFB6UD/Rr16DB/O7t3cv88vvzB0KM7OPHjA+vUEBSkdTgihYVKACSGEEG/N15eTJ6lRg6goGjdm/nyN92hvz7JlnD9P377Y25OYyM8/4+eHszNOTvTuTUBAtqWyC70OHdi2DVdXkpOZMYNy5ejTh/PnlY71Lxkb07Yt8+dz5QpXrxIYyLBhOc+Ji2PdOq5dUyKfEEIDpAATQggh3oWLC8eO0bs3qakMG0avXtk2vNKQatVYtYo7d7h2jaVL8fHBwYG4ONaupU8fypaldGm8vFi2jLg4jYdRXJcuhIUREYGnJ5mZBARQpw4ff8yxY0oney+VKuHtjaVlzvZhw/D2plIlSpfmP/9h4ULOnZNNgYUowKQAE0IIId6RmRlr1rB2LebmrF/P9On513WFCvj5sXYtcXGcP8+8eXh4ULw4CQkEBzNgAE5OuLgwa9a/WfS6YGncmE2buHoVf3/MzNi/nz59lM6kESNG8Mkn2NqSkMCmTQwdSp06WFnRoQOBgUqHE0K8OynAhBBCiH/Fx4fISPr1w9NTgd51dKhZE39/tm/n/n0iI5k9m3btMDMjKoqxY6lXr0jsP1W+PPPmERvLokXMm6d0Go1o1oytW0lKIiqK5cvx9aV8eVJS2LOH/v1lKEyIgkdWQRRCCCH+rcqVWblS6RCgp0f9+tSvz6hRZGTw668MG8bFizRvjp8fM2ZQvLjSETWseHG++CKX9uPHmToVNzc8PKhWLd9j5bGqValalc8/B4iPJzwcGxt0s3+X/uIFbdvy6BHly+e8veuynSkpucyHFEK8PynAhBBCiEJEX5/27Wndmh9+YOJElixh+3ZmzcLXV+lkSggNZfdudu/m66+pXJkuXfDwoEmTnFVLAeTggJdXLu1paZw/T3IyZ8/mPGRvz+jRORf5yMxk4UKuXOHhw9e35GQePiQrixEjmDNHU29BiCJLCjAhhBAiT23ezL17+PkpuauugQFjxtC1KwMHcvAgvXuzcSOLF1O2rGKRFDFiBNWqsX07ISFcucLs2cyejZ0dnTvj40Pz5krny3uWlty6xeXL3LiR7XbzJgkJnDyZ8/xz5xg+PPeXKlECR8ecjZmZJCVRunTeJxei6JACTAghhMhTI0YQG8uRIwQGKlmDAc7OHDhAYCBffcWePbi48O23jBiBfpH5119fn86d6dyZzEzCw9mxgx07uHaN5ctZs4anTzE0VDpi3jMzo0EDGjTI1piVRUICdnY5T65bl1WrSE2lRAmsrChRQn2zssp9mHDECObPx9WVgQPx9MTISFPvQohCrMAPwQshhBDaJSAACwt+/pk+fcjMVDiMjg6+vvzxBz4+PH/O2LE0aMCJEwqnyn96erRowfffExPD+fNMm8bs2YWy+noTXV0cHHIpvXV06NuXL76gRw/atKFRI5ydsbZ+4yTNJk2wtCQ8HB8fypRh9GjZoEyIdyYFmBBCCJGnPvyQvXuxsCAoiM8+04pV6uzsWLuW3bspV45z52jalAED8mP7Mu1Usybjx+ey4XFCAr17M38+d+8qEatg+PRT4uNZvpx69bh/n+++o3Jl2rZlxw7lv20QoqCQAkwIIYTIa02b8ssvmJsTEKAtNRjQvj2XLjFxIvr6LFtG1aps2aJ0Jm1y4gRr1zJsGGXK0KkTwcGkpSmdSRuZmvL555w6xfHj9OmDkRH79tGlSy4lrRAiV1KACSGEEBrQrBm//KLesll7dmsyNmbSJCIiaNCAO3fo3p3WrVm9mocPlU6mBTp3ZutWOncGCAnBywt7ewYMICwMlUrpcNqoUSNWryY+nh9+oFkz6tZVOpAQBYQUYEIIIYRmuLqyaxcmJqxaxZQpSqf5i7p1iYhg3jzMzTlwgH79KFWKDh1Ys4ZHj5QOpxwdHT75hB07uHOHBQto2JBHj1i2jObNqVuX9HSl82mpEiUYPpzwcPr1UzqKEAWEFGBCCCGExnz4Ibt2Ubw4qalKR8lOTw9/f27dYtkyWrcmK4s9e+jbFzs7OnZk7doiXYlZWzNkCCdOcOkSX3+NoyMPHuRyhVNoKOvXc+6c1GZvMnIkgwdz86bSOYTQMjoqGVUvdOrXr3/69GkPD4/t27crnUUIIURBkJxMSAjBwezbx8uXAHp6uLvj44OHB5aWSufTPllZmJqqLxIzMKBqVWrWpFYtatWiRQtMTZXOp7ysLGxsSE7GwABvb77+GmdnpTMJ7ePj4xMUFBQYGOjt7a10lvwjI2BCCCFEkWdlha8vu3YRH8+SJXz0EcCBA/TujZ0dHh4EBfH4sdIptYmuLsuX0707lSuTlcWFC6xfz9ixtG9P2bJs26Z0PuXp6nL8OL6+qFSsXk21avTqxaVLSscSQgtIASaEEEKI/2djw4AB/PYbd+6weDHu7mRksHMnPj44ODBwIOfOKR1Ra3h7ExxMdDSPH3PyJCtW4O9Pw4Y8eEBwsNLhtEKlSgQEEB1N//7o6bF+PTVr0r07Fy4onUwIRUkBJoQQQuSvtDROn1Y6xD+xtWXQIA4eJD6eRYv44AOePWPpUurUwc2N9evlwqfXTExo0IDPPmPePE6c4PRpli1TOpMWqVCBZcuIiWHwYAwN2bKFxo158EDpWEIoRwowIYQQIn998w316zNunNI53o6dHV98QWgo0dGMGUPJkoSH06sXjo6MHSsLLOSibl3MzHI2xseTmKhEGm3h6MjChdy4wciR9Ogh1xWKIk0KMCGEECJ/tWqFgQEzZjBhgtJR3oWzMzNncvs2mzbRtCl37zJrFhUr0ro1wcG5LBIo/pSRgYsLZcsyYAA3biidRkmlSvHdd6xcib5+tvbkZCpXpnp1hgxh61YZHxOFnBRgQgghRP5q25YNGzAwYNo0Jk1SOs07KlYMT0+OHiUyEj8/ihXjwAG8vKhShVmzuH9f6XxaSV8fHx8yM1m2jMqV6dOH6GilM2mXrCyePOHSJX78kW7dsLWlXj1GjCAkRBZ/EYWQFGBCCCFEvuvalaAg9PWZPJk+fbhzR+lA765+fZYu5eZNZs6kfHmuXWPsWJyc6NePsDD1WvbiTz/+yKVL9OmDjg4BAbi40KMHFy8qHUtbWFsTG0tYGFOm4O6OoSFnzvDDD3TqhLU1mzcrnU+IPCUFmBBCCKEELy8CAzEyIiCAypWZMqVALmthY8OYMcTEEBJC+/a8eMHq1TRvTvHifPQREydy4ABPnyqdUjtUrszq1Vy5wsCBGBiwYQO1a9OvH1lZSifTCgYGuLoyYQIHD/LwIQcPMmECrq7o6/P3PWt//53q1WnVioEDmTOH7du5eFG9K5sQ2k82Yi6EZCNmIYQoMK5dY8wYtmwBmDmTMWOUDvR+rl9n6VJCQoiKev2pWV+funVxc6NFC1xdsbFRNKJ2iI9n9myWLUOlIjGR4sWVDlTArF5Nv345G3V1+egjhg+nfXslMol/pWhuxCwFWCEkBZgQQhQwYWGsWMGoUVSvrnSUPPL4MSdOcOAAYWFERvLixetDFSrg6oqbG66uhef9/jsJCTx+TJUqSucokG7eJDqamBhiYrh6lZgYbtxQjyKfPUvt2krnE2+naBZg+v98ihBCCCE0ys0NNzelQ+QpCwtataJVK4Bnz4iI4MgRwsKIiOD6da5fJzAQwM6OihUpV47y5SlXTn1zcsLQUNn4+cTeHnv7nI1ZWSQnY22tRKCC5NVfljZtXrekpLB6NTExODsrF0uItyAFmBBCCKGVUlPZsoV27ShZUuko78fUlJYtadkSICODU6cIC+PIEcLDSUoiKYmjR7Odr6uLg4P68/WfhVmVKpQurUj8/DZ0KEuW0KsXEyZQqZLSaQoSS0uGDcv90N27WFujK0sfCO0gBZgQQgihlQICGDSIEiUYP54hQwrJoJC+Po0b07gxI0agUnH7NjducPOm+uer2+3bxMURF8eRI6+fqKNDhw6MGVPYhgr/rnZtdHVZu5b16/H2ZsIEKlRQOlPB9vvvtGxJxYp8+SV9+8oe0EJ58lWAEEIIoZW6daNtWx4+ZORIXFzUC3UUJjo6ODrSogW+vkycyOrV/P47N26Qmsr16xw8yKpVfPstPj64uWFsTEgIzZvj6sqOHYV55cD+/blyhc8+Q0eHNWuoWpXPPuPmTaVjFWBOTlSoQEwMw4dTpgyDB8s2bEJhUoAJIYQQWsnGhl9+Ye9eqlfn2jW6d8fJic8+Y8MGnjxROpwm6etTvjzu7vTty+TJrF3LkSPcusXEiZQsydGjdOlClSrMn19o1x0vV44VK7h8mb59UalYtYoqVfjqqwK5UYEWqFiRK1fYsYOWLXn2jEWLqFYNNzdmz+bGDaXDiSJJCjAhhBBCi7Vpw7lzLFlCmTLExbFqFT160KuX0rHynbU1kyYRH09AAM7OxMQwbBjlyjFpEo8eKR1OMypUYNUqoqLw9SUjg7lz2blT6UwFla4unTtz4AAXLjBgACYmhIczZgx16pCRoXQ4UfRIASaEEEJoNz09BgwgNpYzZ/juOzp1onPnXE5LTMxlw9pCxsgIX18uX2bnTho0ICmJyZNxcsLfn/h4pcNpRqVKBARw5gxz58r+Vu+venWWLCExkc2b6d2bvn3Rl/UQRL6TAkwIIYQoCHR0qFOHkSPZuZPPP895NDhYvaa5tzcBATx8qETE/KKrS6dOnDzJkSN07MiTJyxYQIUK6tqsUKpVi2HDMDFROkchYWZGt26sWcO8eTkP3blDnTp06MDSpYW2qBeKkwJMCCGEKPjKl6dsWZKSWLeOPn2oUoX165XOpHlubuzaRUQEn3xCRgaBgdSogZcXu3dn2/q5sLpwgc8/5/hxpXMUKo8fc/kye/YwcCCOjjRsyKRJhIfLTEWRl6QAE0IIIQq+Bg24eZOoKBYswM2Ne/fo1YuOHYmLUzqZ5jVuzNatXLrE55+jr09wMB07YmeHry87dxbahTqArVtZuZKmTfH05OpVpdMUElWrEhfHypV06YKxMZGRTJ6MmxtWVnTtSmKi0vlEoSAFmBBCCFFYVK3KkCEcPsyqVZQowe7d1KjBnj1Kx8oXVaqwfDk3bjB9OnXrkpJCYCAeHtja0rMnW7eSmqp0xLw2ejTjxmFszObNVK/Ol1+SlKR0psLAxoZ+/di2jfv3CQlh6FBcXHjyhG3bZLhR5A0dVaG/YLfoqV+//unTpz08PLZv3650FiGEEApJTGTwYLZsYehQ5s9XOk2+u3WL7dsJDuboUfXaJMbGtGyJpyeffIK5udL58s6dO+pd1DIzMTNj+HAGDcLeXulYhc2dO1y7hpsbOjrZ2rds4fhx3N1p0QJT039+nfh4zp/n6VNAfanms2ekp/PyJbVr06lTzvN/+IGICCwt0dfH0hIjI0xMMDXF0JBmzahRI0/enJJ8fHyCgoICAwO9vb2VzpJ/pAArhKQAE0IIoXbpEhUrYmSkdA7lxMaybVu2SqxYMVq1wtOTLl2wsFA6Xx65dImvv1avU29oyNatdOigdKYioV49zpwBMDSkTBlSU0lLU/9s2JATJ3Ke7+DAnTu5v5S5OY8f52y0teXevdzPt7LiwYOcjW3bcvYsJUtibU3JktjYYGOjftisGRUr5jz/yhXOnSMlhSdPePqUJ09ISVE/dHdn5Mh/ev/vrWgWYLL0phBCCFF4ubgonUBprxap9/cnNpYtW9i8mYgIQkIICcHYmC5d6NuXli3RLeAXZbi4sGMHx47x/ffs28fLl0oHKip+/vn/2LvvuKjrB47j7++xQUTcAxTBvffOkaNyl+GotFITMy1NK1u2zLQsUyu35jZHpmXu1AxXjtwLJ+BERVEQOO5+f8gvkzAt5b5yvJ6Pe/g47/s57n3HuO/7Pt+hGTO0cqW2btXRo7csSndCrGdPbdiQOgWbI4cMQ97e8vCQq6vq109n/IYN2rFDsbFKTlZcXGq7i4uT1arKldMZf+6czp5Nf1vUwECdPHnLLSkpqlJF166l/9SOHnVEAcuamAFzQsyAAQBu68IFLVumJ56Ql5fZUUwSFaXvv9f8+QoPl80mSYUL67nn9OyzCg42Oxwyq8uXdeGCPD3l5ZX6rylsNp07pwsXFBOjCxd07lzqlQsXVKOGevdOO/6997R/v3x95eurbNnk6yt//9T/Vq+ufPkyPDAzYAAAwNkNHarhw1W8uCZMUIMGZqcxQ0CAXn5ZL7+sU6c0fbomTlREhD78UB9+qKpV1aOHnnpK2bKZnfK+slr1+ONyc9OLL6pJk7S7MeF+8POTn5/ZISSLRfnzK3/+ux3/wQcZmQa3kckn3AEAwL/SvbvKl9fhw2rUSD176vJlswOZp2BBvfGGDh/W1q3q0UPZsmnbNoWFqVAhdemiVavkNFsJJSZqwwYtXKhmzVSmjL76Kp2djQA4CgUMAICspGTJ1HMbubtr3DgFBOiZZ7RkSZbea6hqVY0bp1OnNHWqmjRRXJymT1fTpipdWu+/n3a/mczIx0cHDujjjxUQoAMH1KePAgL0/PMaNkyLFyslxex8QNZCAQMAIItxd9egQdq+XY0b69o1zZypli1VsKB++83sZKby9VWXLlq5Uvv26Y03VKCADh7UBx8oJEStW2v0aIWHpx4+PDPKk0dvvaVjxzR/vho2VFycvv1WAweqTRstWJB28NWrWrFCe/bc9vgMAO4B+4ABAJAllSmjVat07JhmzdLs2dq71xmmeu6LUqU0dKgGD9ayZZoyRT/9pB9/1I8/SpLFohIlVLmyqlRJ/dff3+y4/4arq9q1U7t22rNH69bp2DHFxqZz9L2339aoUanX8+ZVkSLKl0958qhAARUrpmefzfQHjQRMRQEDACALK1pUb7+tt99WXFw6pyeOidG1aypSxIxkZnN1VcuWatlS589r4UL9/ru2b9eePTpwQAcOaPbs1GFFi97sY5UrZ5ozIJcr908n8W3fXhEROnJEx4/r3DmdO3fL0mLF9NBDt9yyYIHGjVOePMqfX+XKqWJFlSsnd/cMSQ5kfhQwAACgdNqXpPr1tX+/atZUp07q2NERB6V+AOXJox491KOHJCUna88ebd+uHTu0Y4d27tSxYzp2TN9/nzq4QAG1a6c33lBAgImR71XdulqyRJLsdp06pZMndf68zp/X6dNydVXNmmnHL16slStvucXNTaVLq2JFNWmiLl0cFBvIJChgAADgNkJDNWKENm/W5s16/XW1b6+XX1b16mbHMo+bW+pM1w0pKTp0KLWP3fj39Gl99ZUmTNALL2jgQBUqZGrce2YYKlTozs9i7Fh17qwzZxQVpT/+0B9/KCJCu3Zp1y5Nn64mTVSwoEPiApkDBQwAANzGBx9o4EAtXqxZs7RkiWbM0IwZql1br7yi0FB2BJKLi0qXVunSevrp1Fv++ENDh2rePH31lSZO1Asv6I03Mn0NuyMvLzVpcsst8fHavVt//CEvr3TaV/362r5dhQurQAEVKpT6b8GCKlBAFSs620nYgL+hgAEAgNvz8lKHDurQQSdO6OuvNXGiNm7Uxo2Kj9fzz5sd7sFTqZLmzNGgQRo6VLNmafRojRun557ToEHOX8P+yttbNWums7HiDT4+unZN+/dr//60i0qU0MGDaW+8elVuy+Zv+gAAIABJREFUbvLwuP85ATNk+c+uAADA3ShSRJ9+qshIjR2rJ59UnTpmB3qAlSmjadO0a5c6d1ZKisaPV3CwwsIUHW12sgfD0qW6dEl79mj5cn37rQYPVu/eatNGtWrpkUfSDk5IUNGi8vfXo4/qiy+0d68ZiYH7iRkwAABw13x8FBamsLB0FiUny83N4YEeYDdq2MCBqbNh48fr22+z4mxYunLkUI4cKlv2ziPd3VW5slav1vLlWr5c/fsrIECPPKJHHlGTJpnsNACAJGbAAADAfXDhgvLnV0iIvvhCly+bneZBcqOG7dzJbNh/5OKiFSt0+rRmzFDnzsqXT1FRmjRJ7dsrTx5NnWp2PuBfo4ABAIB75uGh/Pl19Kj691eePKpXT+++q19+UUKC2ckeDGXLato07dihJ5+U1arx41W8uPr1S3uKLdxO3rx6+mlNm6bTp7V9u4YOVaNGcnNTSorZyYB/jQIGAADuWbZs2r1bixeraVPZ7QoP1+DBatxY/v5q3FhHjpid78FQvrzmzdMff6hdO12/ri+/VEiI3nlHsbFmJ8s8DEOVK+uNN1LrfdeuaQds26bx43XpkhnhgLtCAQMAAPeDxaJWrbRihS5c0E8/qX9/Vami5GT98ou2bDE73IOkfHnNn68//lDr1rp6VR9/rOBgffKJrl0zO5lT6N9fYWEKDNSLL2rfPrPTAOmggAEAgPsqe3a1aKHhw7Vtm2JitHGjOnZMO2bKFLVpoyFDUqtIFuweFSpo0SJt2qSWLXXpkt56S0FBGjZM16+bnSyT++wzPfKI4uM1dqzKlVPTplq8WDab2bGAmyhgAAAgw/j7q1YtGUba2xcu1OLFevtthYaqcmVly6aCBdWggbp104wZZgQ1Sc2a+vFH/fabGjRQTIwGDlSJEho/Xlar2ckyrerVtWyZ9u1Tr17y8dGqVWrTRsWLa8QI9kjEA4ICBgAAHG7mTM2erQED1LatypaVp6dOn9avv2ryZHXpovj4tOMvXnTmgyvWrau1a7VypapUUWSkwsJUvLjGj+cIE/9dqVL6+mtFRemLLxQSoqNH9eqrGj3a7FiARAEDAAAm8PVVx4767DMtXKg9exQfrxMntHq1xo3TggXy9r5lcEqKSpZUwYLq21dRUSYlznhNmmjrVs2dq5Ildfy4wsJUoYLmzZPdbnayTMvPT/366dAhLV6sF19UmzZmBwIkChgAADCfYahwYT38sHr00OOPp13q4qJHH1VCgkaOVEiIXnhBERFmpMx4hqHQUO3Zo0mTVKSI9u1T+/aqXVurV5udLDO7cXiYb75RyZJmRwEkChgAAMgEpk/Xrl3q3Fk2myZOVMmSatVK27aZHStjuLqqa1cdOqRRo5Q/vzZvVpMmatGCY/rdZzExqlFDvXrp7FmzoyBroYABAIDMoFw5TZumffvUrZtcXfXTT6peXaGhSk42O1nGcHdXnz46ckRDhih7dv38sypWVM+etIX7JjZWu3drzBgVL66PP05nz0MgY1DAAABA5lG8uCZOVESEXn5ZXl5atEgXLpidKSN5e+vNN3X0qN54QxaLxo1TSIgGDtTVq2Yny/yKFdPOnQoNVVyc3nkn9fiTHPgEGY8CBgAAMpvAQI0cqZMndeCA8uc3O03Gy5VLQ4dq926FhuraNQ0bplKlaAv3QYkSmjtXGzaoTh1FRyssTBUr6uefzY4FJ0cBAwAAmVOuXAoOTnvjlStasEBnzpgRKIP92RZq177ZFpYuNTtW5le7ttav1/TpCgzU3r1q0UIff2x2JjgzChgAAHAiI0boyScVEKAmTTRpki5dMjvQ/Va7tsLDNXeugoK0d6+aN1fTptq92+xYmZzFomee0cGDGjJEfn5Ou2MhHgwUMAAA4ESeflpt28rVVatXq3t35c+vNm00e7auXTM72f1z42j1+/Zp6FD5+WnVKlWporAwjs9xr7y89Oabio3V+++nXTR5spo1U9OmatpU9eqpWrWbl3btZLWakBaZFgUMAAA4kWLFtHChzpzR5Mlq2lQpKVq8WE89pXz59PrrZoe7r7y89MYbOnhQYWGSNH68SpTQ4MG6eNHsZM5owgStXKlVq7RqlcLDtW3bzcuqVUpISDveZjMjJTIHChgAAHA6OXLo+ee1YoWiozVqlOrUUXy8vvvO7FgZIF8+jR2rnTvVvLmuXNG776pwYfXqpYMHzU7mXH74QStXpl7Wr9fWrTcvx4/L1/eWwefOKU8eFSumjz7SiRMmJcaDy9XsAAAAABkmXz716aM+fRQVJXd3s9NkmDJltGSJ1q3TsGFatkxjxmjcOD36qPr1U+PGMgyz82V++fIpX767Hezurpw5FRGhQYP0/vtq1EjPPacnnpC3d0ZGRKbBDBgAAMgCAgKUN2/aGxcvlpubHn5Ys2crMdGMWPdVgwb6+WcdOpR6krSff1bTpipVSiNHcpZhh8qRQwcPasUKPfWUPDy0erU6d1aBAnrhBW3aZHY4mI8ZMAAAkFVlzy5PT61ZozVrlCuXunRR9+4qU8bsWPemWDGNHKkPP9S33+qLL3TokPr21ccfq2tX9e6tgACz82UNFkvqETsuX9acOZo6VRs3auJETZqk7dtVqdItg/fuVXh46vXs2eXiIkk+PnJ3V1CQihVzdHhkMAoYAADIqho2VHS0Zs/WhAnatk0jRmjECNWtqxdeUPv28vIyO9898PPTK6+oVy/98IO+/FIbNmjYMI0YoTZt1L+/atY0O1+W4eensDCFhenAAU2dqogIBQWlHdO9+21nxtzcFB2tPHkyOCUcigIGAACysOzZU9ePt2/XhAmaNUvh4QoP1+jR2rrV7HD3zM1NoaEKDVV4uL78UgsXat48zZunhg3VvbvKlVOxYvLxMTtl1lCqlD75JP1FQ4Zo7tzUAydevpx65epVJSerSBH5+6cdv2iRzp5V7doqW1YW9ifKfChgAAAAUpUqGjNGw4fru+80fbqzbfdVt67q1tXx4xo9WpMmae1arV2buqhgQRUvrmLFVKzYzSu0Mkdq1EiNGt3tYJtN7dsrKUmS/PxUq5Zq11adOqpUSblzc8CVTIECBgAA8H8+PuraVV27prMoMlIffKDgYFWvrurVlSOHw8Pds6Agff653n9f336rX37R4cM6ckSnTunUKa1bd8vIv7ay4GAVLJh68fQ0KTr+z2LRnDmaP1/h4TpxQsuXa/ny1EWGob599cUXt4xPTFSPHjp7Vtmzy9VVvr7y9VWrVnroIWbPzEIBAwAAuAsrV2rSpNTrhqHixVW9umrUUPXqqlQpM+0w5uubemh+STaboqJ0+LAiIhQRcfNKuq1MUs6cKlBABQuqQAEVKnTL9fz55eHh+GeTFT3+uB5/XJJOnVJ4uDZs0MaNOnRIly6lM/jMGc2cqZSUW278/HMFBqpjRw0YkM7RQZHBKGAAAAB3oXNneXtr40b9/rt27NChQzp0SDNnSpKPj9avV+XKZkf89ywWFS6swoXVuPHNG9O0sqNHdfq0oqJ09qwuXtTFi9q7N/2vli+fKlVS1aqplyJFHPMksq6CBVP38fsHRYpozx4dP664OCUl6do1nTihOXN09Kg++0wWi4YOdVRcpKKAAQAA3AU3N3XsqI4dJSk5WXv2aMsWbdmi339XTIxcnWidKt1WdsO5czp7VpGROns2tZJFRenMGUVFpS766xZxuXPfLGP0MROVKqVSpW65ZfBgbdqklSvVubNJmbI0J/pjAQAA4BhubqpcWZUrKyzstmOOHVPu3PL1dWCsjJc3r/LmVfny6Syy23XypHbs0LZtqZdz527bx6pUUWBg6gmv4HiGodq1Vbt2OotGjNBvv+nxx9W2rbJlc3iyLIECBgAAcL+dOKESJeTnp9deU+/eWeKggoahIkVUpIjatk29JTLyZhn7ex9zdVWBAqlTbYGBCghQkSKpVzjtlYkWLdK6dfr+e3l7q00bffopJ+++7yhgAAAA91vevGrSRMuWaeBAjRihN99UWFiWO4RgYKACA9PvY7t26fRpRUYqMlLh4Wnv6OWlwoUVEKDAQAUFqV491a8vNzcHx8+iFi3S7NmpJ8SbPVvVqunVV83O5GwoYAAAAPebl5eWLtVvv+mdd7Runfr21fDhGjBAPXtm3UMFpuljSUk6dUqRkTpxQpGRiorSyZM6eVJRUbp4UQcP6uDBm/fNnl2PPKIWLdS8OfNjGcvPTz17qmdPnTyp8HC1amV2ICdEAQMAAMgY9epp7VotWaJ339WOHerbV6NG6auv9NhjZid7ALi7KyhIQUF66KG0i24cqS8qSpGROnhQy5dr1y7Nm6d582SxqEYNtWypFi1UqZIZubOMG1uHIgNw/jUAAICM1KKFtm3T/PkqW1ZHj2rAALMDPfB8fFSmjJo1U7du+vRT7dypM2c0dapCQ+XtrU2b9M47qlxZ+fKpSxfNm6e4OLMTA/8CBQwAACCDGYbatdOuXVq4UNOnm50mE7rRtebO1dmzWrxYPXqoUCGdO6fp09W+vfLlU4sWGjNG58+bHRS4MwoYAACAQ1gsattWVaqYnSMz8/ZWq1YaN06Rkdq+XR99pJo1lZion39Wr14qUkQ9emj/frNTAv+EAgYAAGCq7t319NM6dMjsHJmKYahyZb3zjjZt0unTmjJFLVooMVETJqhsWTVvrpUrZbebnRJIBwUMAADAPHa7li3TrFkqV04vvqjTp80OlAnlzavnntNPP+nQIb38sry9tXSpmjVTqVIaOVIJCWbnA25BAQMAADCPYej33xUWJrtdY8eqeHG9844uXzY7VuYUEqKRIxUdrS+/VGCgDh1S374KCtLAgTp1yuxwQCoKGAAAgKkKFNDYsdq7V6Ghio/Xxx8rOFjDhun6dbOTZU5+fnrlFR05orlzVbOmzp3TsGEKDlaXLtqzx+xwAAUMAADgQVCihObO1aZNatRIFy9q4EDVrWt2pszMzU2hodq0SevXKzRUVqumT1f58qpXTz/+yO5hMBEFDAAA4IFRo4Z++UVLl6paNfn7m53GKdSrp7lztX+/evWSj4/Cw9W6tWrV0oYNZidDFkUBAwAAeMA8+qh+/12rVpmdw4kUL66vv9bJk/rkExUooC1bVK+eOnXSyZNmJ0OWQwEDAADIJK5dU1yc2SEys5w5NXCgIiI0dKh8fDRnjooX1yuv6MoVs5MhC6GAAQAAZBKVK6twYX3+uZKSzI6SmXl76403dOCAevSQ1apRo1SqlMaPV0qK2cmQJVDAAAAAMonatRUbqwEDVK6cFi0yO00mV6iQxo3T5s2qV0+nTyssTDVq6NdfzY4F50cBAwAAyCSmTtXKlSpfXocPq21bPfywdu40O1MmV62afv1Vc+cqKEjbt6tBA7VqpaNHzY4FZ0YBAwAAyDyaNNH27frqK+XKpTVrVLWqwsJ07pzZsTIzw1BoqPbt09Ch8vXVTz+pdGl2DEPGoYABAABkKq6ueuklHT6svn1lsWj8eD38sNmZMj8vr7Q7hoWEaORIdgzDfUcBAwAAyIT8/TVihHbvVmioHn3U7DTOomBBjRunTZtUt65iYtS3r1xdZRh3vnh7q0IFffGFYmLMfg540FHAAAAAMq2SJTV3roYPNzuHc6leXevXa84chYTc7V0SErR7t/r3V6FC6tBBK1fKZsvIiMjEKGAAAABOZ9EiDR+u8+fNzpFpGYY6dFBEhOz2u7rEx2vRIrVqpZQUzZ2rZs0UEqKPPlJUlNnPBA8cChgAAIDTGThQr72moCD16qWICLPTZAFeXmrdWosXKzJSQ4cqJETHj2vQIBUpoqZNNW+ekpPNjogHBQUMAADA6cycqVatlJCgMWNUsqRCQ7V5s9mZsoYCBfTGGzp8WOvXq0cPeXpq1Sq1b6/ChfXKK9qzx+x8MJ+r2QEAAABwv1WposWLtX+/Pv9cM2Zo/nzNn6+HHtLrr6tlS7PDZQGGoXr1VK+ehgzR9OmaOFF792rUKI0erQYN9Pjj8vSUn59cXJQjh1xd5esrT095ecnHR+7u8vOThWkSp0UBAwAAcFKlS2viRA0erFGjNHas1q/X+vVavlzNmpmdLMvIlUt9+6pvX23cqIkTNXeu1q7V2rV3vqNhKEcO+furbl099JDq1VPp0hmeFg5BAftXbNeid27edjj6YqJHzvxBZatXCcnBKwgAAB5o+fNryBC99ZYmTtTmzSpfPu2AmBjFxCg4WO7uZuTLGmrXVu3a+vJLffed/vhDycmKjVVKii5fVlKSrl1TQoKuX1dcnKxWxcbKbtelS7p0SUePavp0ScqTR/XqqX591aunypXl4mL2U8J/RH1Iw3pu24JJk+Ysj2k8dnbvUjd/sFPOho99761h09ZHJdjtqbcZ7rnKt+793of9Hy/ta5gTFwAA4K5ky6a+fdNfVLu2IiLk6qrgYJUurZIlVapU6hV/f8emdHa+vure/a5GpqToyhVFRurXX/Xbb1q/XqdOaeFCLVyY+nXq1EntY9Wry8srQ1Pj/qKA/UVixHf9OvYav/1iit2tUhXrzQXX94zt2OKVxSeT7LeMtydd2DX/gyeXL+wxZdFX7YJ4LQEAQGbUoYPmzNHx4zp0SIcO3bKobdvUNX44mIuL/P3l768KFdS7tyQdOaL161P72OHDWr5cy5dLkoeHqlVT9erKnVu+vqmXHDmUPXvq9WzZlCOHuc8Gf0Vp+D/b6QXdmzwz84TVLskw3Fz/P/tlj105oF1q+zK8A2s0e6Ru2cAcLlej9qxfumxzZLw9btf4Lk/kzL9uSF1fM58AAADAfzJ4sAYPVmKiDh5Mvezbl3olMTHt4IQElSuns2dVpIgCAhQYqMBAFS6sgAAFBalYMRlsF5QxQkIUEqLnnpOkM2dS9+hbv167dys8XOHhd7j7n30sTx61aaOnnlKBAhkfGumggN1gv7zkrZdnnbDaDUvuWi99+sXATrUK3mhg1j1fDZx4OMkuS+76b82c+W6zgJtbRydFrxzS+ZmP1pyL/2NEv9FPbXirHK8nAADInDw8VKGCKlS4wzCLRV5eunZN+/Zp3760Szt31rRpGRQQN+XPr9BQhYZK0uXLCg/X3r26dElxcamXK1cUG6urV2/+98ZF0oEDWr9eb7yhZs3UpYvatGELRgejMEiS7Jd+nDT/tE2GZ+U3f1o5uKbPn0usu+fO2ZVol0uhZyYs+LBZ7ls+03Ev1PS9hbMv1njkq0PXt0+YsGHAyPrsuwoAAJyZh4f27EndPenkSUVGKipKJ04oKkpHjqhgwbTjbTbNn6+CBVW1Kiv6GcLPT82bq3nzOwyLjU0tYwcPavp0LVmipUu1dKn8/BQaqi5dVK8es5eOQQGTJFl3bd6eYJfh++irr9bw+csCe+yObRFWyTXk6Zda5k7nZ9Lwa/j6K/Un9P7letTaX/Zb61fkFQUAAE4ve3aVLauyZe88ctkydeggSa6uKl9etWqpRg1Vq6ZixeTpmdExcVOOHKl7gpUpo8cfV2ys5s7VtGnasEETJ2riRAUG6qmn1K2bihc3O6uT4xRvkiRb7MVLNskloEyp7Le0LNulC5dsklxLlit5m2plyV+9RhEXyXYq8pTNAVkBAAAyj4ceUp8+qlRJknbs0Jgxev55lS8vb28VLarffjM7X1aVI4d69NBvv2n/fr33noKDFRmpYcNUooSqVdPIkYqJMTui06KASZKM7Dn8DMl2KebirR3KkiNnDoskuzU52Z7+fSW7zS7JnpR0+yEAAABZkq+vRo3Sjh26fFnr12v4cIWGKiRErq46cULR0WnHL1um0qX18MPq2lUffaSZM9MZg/uoZEm9/74OH9bq1Xr2WWXLpm3b1LevAgPVqZOioszO54TYYE6S5FauWiUvI/ra+ZWLw+ObNvL+c4HhX75ikOuyg9bdW3cmdm2c3kS5LXrz5pMpkkuhwIKcEA8AACBd3t6qV0/16qX+NyVFV6/Kzy/tsCNHdOCADhy4eYthqHp1tW2rJ59k67iMYrHo4Yf18MP6+mt9/72mTdMvv2jOHFWvrldfNTucs2EGTJJk5Gnx1CP+FqUcn9D79WXn/jIL5lqlY6ey7kbKqe9Gzo5MZwtD+6VVQ0eFJ9plyVuvYVn6LAAAwN1wcUmnfUl66SUdPaoVKzRunN58M/UYfVu26K23VLasjh93dM6sxsdHnTtr5UqdOKHp09Wjh9mBnBAF7AYj75PvDajhY9gT933Tpnrzt2ZvP596ImbXSq+Oermsp/3ikn5Pvv5zZNJf75UcvXLQ40+Pj7DaDffy3Xs24sg+AAAA96poUTVtqh49NGSIfvhBMTFatEjPP6/mzZU7t9nhsoyAAD3zjLJlMzuHE2LK5v/cK7w2a8L+R7vNOJRwcvknT6344pXSdR5uWKti6RLBheq+0vO310dt2vJ5yzI/NHzi8caVCme3xR7/Y/UPP/x69KpdMrLXfHvc61XczH4OAAAATsfLS61bq3XrdBYlJ6tLF7m5qU0bPfqofHzSGQM8YChgN7kW7fTtbwVKdes+5Kcj1+yJ5/et+W7fmu9uGWK/emTNtOFr/np+QcOn+OMfTpvQrya/8QAAAA4VF6dFi5SQoOnT5eWl0FANGKDy5c2OBfwTNkG8hSVPw7cW792/+qu+T9QM9LH847noDDf/ko27D1+2d9eCV2vl5LR1AAAADpYzp/bt02efqW5dJSZq2jRVrKjHHtMvv5idDLgtZsD+ziOw0UsjGr30RfzpPVt/37kv4njUmZjYK/HXk612w9XdK1uOXPkDgkuWr16nVuk87maHBQAAyMqCgjRggAYM0LFjGjFCkydr2TItW6aaNbVsWeqph4EHCQXstgzvAuXrty5f3+wcAAAAuKOiRTVqlN57T2PGaPRobd2qs2cpYHgAsQkiAAAAnEWuXHrnHZ04oagolSxpdhogHRQwAAAAOBdPT+XPn/bGK1c0ZowOHzYjEHATBeyeXb90+lR0dHR09KmL183OAgAAgPTNmqVevVSqlJ54Qtu3m50GWRf7gN2rxOV9Sj4+M84ueYbOi537pMd9+8pLliyZOnXqf7jjsWPHJCUkJNy3KAAAAJldhw7avl3TpmnhQi1apK5d9fHHypvX7FjIcihgD65JkyYtXLjwP989Li7uPoYBAADI3Pz9NX68PvxQw4dr9GhNnKj58zVokHr3lpub2eGQhVDAHlzjxo3r1KnTf7jjlClTli5d+sQTT9z3SAAAAJlb/vwaPlw9eujVV7VkiV59VRMmaMEClS5tdjJkFRSwe+Ve/4NfNvVJsUuWXMXv62nB8uTJExoa+h/uuHHjxqVLl7q4uNzPNAAAAE6jRAn99JN+/ln9+mn/fn3/vd5+2+xMyCooYPfK8A+pViPE7BQAAAD4l5o3V5MmWr1aDRuaHQVZCAUMAAAAWZW7ux57zOwQyFo4DD0AAADwFxER6tNHW7eanQPOiRmwO7BejTl7/sKlK/GJyTaLh4+vr69f7nx5svG6AQAAOKkfftBXX+mbb/TccwoLk4uLXF3l6ytJBQvK09PsfMjcKBLpSIje9ON3C35auX7zjj1Hz12z2m9Zahju2QuFlCpfvdFjbdq2fbRGoLdhUk4AAADcf717KyZGX36pyZM1efItiwoU0PHjcr/1wGtdu+qHH1S6tLp3V4cO8vZ2ZFhkOmyCeAvbhc1jw+oEB9fp0H/49GWbD51N274k2e1Jl6P2b146bejL7WqHBNV4buRvZ1PMCAsAAIAM4OmpoUO1Z4+eflpVq6pqVVWooOBgBQerYkW5/m0C49QpXbqkDRvUtasKFVLfvtq/34zcyByYAbsp6cis7o91nXE48f+dy3DxzlkwsHBggVy+3l5eHi62pOsJ8XEXz0ZHnow+fzXZLtmTz2+d2u/hNWtH/zwrrKyXqfEBAABw/xQrphkz7mrksmWKidGSJRo3Ths3auRIjRypBg3Us6eefDKdwoasjR+I/0vY8mG7G+3L8ChYq0OPF55u06R2+UDfdE+mZUs4e+D3dcvmTx0/ddnBK8knF738xOvFtoxq7MfWiAAAAFlP7tx69lk9+6x27tTYsZo5U+vWad06nTyp1183OxweLGyCeIPt5JS3RuxKtBsuhVp/Gb43fOp7zzerdJv2Jcnila9M/favjlqyc+fCPpV9DHvS4QlvjzvElogAAABZWsWKGjNG0dEaO1atW6tBA7MD4YFDAZMk2SJ/+O63BLtcArtNmv5y1Rx3PZHlEdR6xHcf1fMy7InbF/54jAYGAAAAX1+FhWnRItWsmXbRmTPav19RUbpyxYxkMB8FTJJk3ffH3mS7LHmbhzbK/i/v6xLSLrSGm5RyeB9TYAAAALgtu10VKqhMGQUGys9PhiF/fxUurLJlVauWhgwxOx8cgX3AJEn2xMQku2TJ5pvt3+/FZcmeI7tFsiclJv3tkIkAAABAKsNQx45asUJxcamX2FjFxqYuvXhRb711y/ikJFWpouvXVb++GjZUo0YKDHR8atxfFDBJkktAkQAX7U+J2rb9tK1W4X83L5iw8/c9yZIlX4F8TCgCAADgH4wadct/L13SlSupZSw4OO1gu11JSTpyREeOaMoUSQoOVsOGqRfKWOZEY5AkuVZo+VgRF9kT1g0bOC/y32xIaI/b8tmbU4+nyJKrbsMKbhmWEAAAAM7H319FiqhcOdWurXz50i718NCBA9qxQyNGqHVr+fvr6FFNnqwuXVS4sD7/3IzEuFfMgN3gXjOsz0MT+629cnJOl9rntn0ypF/7GgU8/vk+KbEHlk38aOBHc/ZcsRvu5V54qamPY8ICAAAgi7BYVKmSKlVS376y2bRzp9au1dq1+v13+fmlHXzsmD79VO7uypVLuXIpZ07lyqXcuZUrl/Lkkbe3GU8AaVHAUrmU6DX2s1WNei05nRS9+rMutb7sW6xGvXo1K5cOLhJQILdzukW2AAAgAElEQVSfj6enu6s9+fr1hKsXzkRFHju08/cNv23acybeZpdkyVF30KQ3q9+hsAEAAAD/ncWiypVVubL69Ut/wI8/auzY9Be5uWnhQrVokXHpcJcoYH9yK9lj7mrPPp1embIr1mZPvng4fPHh8MV3vJvFt0ynYdO/7lmF6S8AAACYKSxM+fPr9GlduKCLF3Xhgi5cUEyMLlxQYqKyZTM7HyQK2K28SneZuPXRHrO/Hj1x5o8bjl62/sNRDQ3X7EE1W3Tq1vulp+sUdHdcRgAAACBdHh5q3/5fjH/6aa1apY4d1bWrKlbMsFi4BQUsLde8NTp/ML3zB8mxx3Zt3b774JET0WcvXLqakGSVm5dPtmzZ/PIULlayZKlyFcsF5eCgGwAAAMis3N117pxGjdKoUapaVV27qlMn+fubHcvJUcBuxy1H0apNilZtYnYOAAAAIENMmaKXX9bkyZo1S9u2ads29e+vxx9X165q3FjGvz8/Lu4Ch6EHAAAAsqrKlTV6tKKjNXu2mjVTUpJmz1bTpho2zOxkTosCBgAAAGRtnp7q2FHLl+vYMX3wgWrVUoUKZmdyWmyCCAAAAECSVLiwBg3SoEFm53BmzIABAAAAgINQwAAAAADAQShgAAAAAOAgFDAAAAAAcBAKGAAAAAA4CAUMAAAAAByEAgYAAAAADkIBAwAAAAAHoYABAAAAgINQwAAAAADAQShgAAAAAOAgFDAAAAAAcBAKGAAAAAA4CAUMAAAAAByEAgYAAAAADkIBAwAAAAAHoYABAAAAgINQwAAAAADAQShgAAAAAOAgFDAAAAAAcBAKGAAAAAA4CAUMAAAAAByEAgYAAAAADkIBAwAAAAAHoYABAAAAgINQwAAAAADAQShgAAAAAOAgrmYHQEb5+OOPv/rqq4z7+jExMXFxcS4uLoZhZNyj4AFkt9tTUlIsFovFwic4WQvf+qwsJSVFkouLi9lB4Gg2m81ms/F2nwXd+JufO3duX1/fjHuUc+fOZdwXf2BRwJxQUFCQpAsXLly4cCGjH8tqtWb0Q+DBlJKScmOFDFkN3/qszGazmR0B5uDtPss6f/78+fPnM/QhDMO4se6adRh2u93sDLj/Tpw4kdFrSF27dl23bt3QoUNr1aqVoQ+EB82sWbPGjx/fqVOnsLAws7PAofbu3fvSSy+VKVPmm2++MTsLHK1JkyZWq3XlypVubm5mZ4FD9e/ff9u2bcOHD69WrZrZWeBQ06ZNmzx5cu/evfv165ehD+Tl5VWgQIEMfYgHDTNgzqlIkSIZ/RA+Pj6Sypcv36BBg4x+LDxQNm3aJKlw4cJ867Mad3d3SX5+fnzrs6Ab253Wr1//xo8Bsg5/f39JFStW5Bc/q/n1118l+fv7BwcHm53F2bAdPwAAAAA4CAUMAAAAAByEAgYAAAAADkIBAwAAAAAHoYABAAAAgINQwAAAAADAQShgAAAAAOAgFDAAAAAAcBAKGAAAAAA4CAUMAAAAAByEAgYAAAAADkIBAwAAAAAHoYABAAAAgINQwAAAAADAQShgAAAAAOAgFDAAAAAAcBBXswMgs/Lz8/vzX2QpN77p2bNnNzsIHI3f+qzMz88vPj7excXF7CBwNH7xsyze7jOOYbfbzc6ATOn8+fM7duxo1qyZ2UHgaElJSStWrGjcuLGXl5fZWeBoa9euLVGiRMGCBc0OAkfbu3ev1WqtWLGi2UHgaGfPnt29e3eTJk3MDgJHS0xMXLlyZZMmTTw9Pc3O4mwoYAAAAADgIOwDBgAAAAAOQgEDAAAAAAehgAEAAACAg1DAAAAAAMBBKGAAAAAA4CAUMAAAAABwEAoYAAAAADgIBQwAAAAAHIQCBgAAAAAOQgEDAAAAAAehgAEAAACAg1DAAAAAAMBBKGAAAAAA4CAUMAAAAABwEAoYAAAAADgIBQwAAAAAHIQCBgAAAAAOQgEDAAAAAAehgAEAAACAg1DAAAAAAMBBKGAAAAAA4CAUMAAAAABwEAoYAAAAADgIBQzAf2CNO3PyxMmzV1PMDgIAAJCpUMDw7yQcXfHVgPYPlSmcJ5uXb94i5Ro8NXDsmpOJZseCg8WveKVi0aDiHb89ZTM7Chzg2pHVE9/r3rxG6aL5c3h7ePvlDarwcIe+I346cIXvv1Ozxe79/tM+oQ3LB+XL4e3h6ZurYIkazZ99c9zqY9fsZmeDgyVs+6C6j8VwKdBzZZLZWZBxksP7h7ga/8i12IANyWbnzPRczQ6ATCRhz4Ruoa/OOXD1/++8107uPX9y76/fjR3Tdez333QMcTM1Hhznyuq5P8fY+PuRFdgvbhoZ9uw7Cw79ZY074fyJ3WtO7F4z75vPm7wzffo7jfLxWZ7zsZ1b82Gnpz5ec8Z68zt/8fThi6cP/750+sjhTwybM7l31eyGiQnhQFfD3+/6ybZ4O5/bO7v4YxGn+WDNAViBwl2ynZzZ5bFeC6KsdhneQQ+1bl6jsOeVI+E//bTlVOLlXZOea+7qt+Gbx3LxbpwFXN/19SfzzvEXOitI3P/N0637LztvkwxL9pCGrR6tHpz9euS+HRvWhR++lJIcvfL9Nm1sK1a+X8vX7Ki4rxL3ftnhiY/WxtokwzN/5abNG5QvnMMSe2zrysWr9l20JkQs6NvSmn3j988GsULu/Oyxq9/qNmJ3ItOezs96POJ4sl2y+BYuVzKve7pjXAICsrGyd8/swF2wnZv/VAGLJMO9eOdZEdf/XHB159etA1wMyXAt0XddnIkR4QiJZ7fPfadZgNuNv73uDUefTDE7EjKO9eDn9bwNSYZLgWZDfj1nvbko5cKmEa0DXQ1Jhkfl97YnmpcS95/t9LQ2/hZJhmeZrrMOXvvLopSY8MGNclkkyaVQtyWXTcsIR7Gd/7FbUdf/r3Bb8oet4NfdecX/8LSfIRk+7eZcMTuLc+OjK9yNlL1jP553xibDrfTLU8Z0CvH4c4lPhRcnf9M5wEV26+HxH82IYlrEGdmvbPzqpadbN6gQkKtg1faDV0Ql80FoVpC8ZcLYjfF2ySWkx9Q5Ax/K43JzmSVnzb6zvutfzt2QPXHn+DFrEszLifvNFv39t8tibZJr+f7TvulUwvsvyyy56rw5+f0G3oaUcvrH+evjTUsJh7Cdnv/yi98es8rV1ZVZD6dnOxVxLMEuuQQWD/YyO4xzo4DhLqTs+/77Pcl2GZ4P9epT2+fWhUaux/p1K+cq2RPC5y2OpoE5o6t/LJw468dfd0dfTaF6ZRkpEWvWHE+R5Fbh2V4P+/993cunZp8XH/IwJNu5tat3WR2fEBkkYctv25LsklvZdh0qefxtsSXwkccquEqyxR48wO4iTs12ckavPt9F2VyKPDXg6cKsMjo96/GIY1bJcClavKjLnYfjv2MfMNyZ7fjK5fuSJblVa9Ui4O9/gV3LtGxRfPDO/dbrG5f+cunFZ9kRzOlkq9Lp9YE1/lzDTtg17+ufj7DC7eSsEQePWCVZ8tWpWzLdt2JL3nLl8ltWH0+xnYk+ncIbirOwxURGJdgluQQGBab3nbf4+vlaJMkeH5/AZzLOyxoxvke/xWftriEvjP281ep6n5kdCBnMfunI0Ys2ySVfsRA/VuUyFO+XuLOkA7sPWiW5FKpWvVB6n4C5lqlZ1dfYf8medGDPYatycTREJ2Nkr9n9o5p//td+YcrOsRQwp5dwOc7u4ekpt6LBgbf55NuecGP92/Dw9ODN2mlY8rQbvabaVbvhkqeUX3oDko8cOGqVZLgHBaf7ngBnkLRvVLc3Vly0u5XsNX7YIzn3rzY7EDKc9VjEMaskl+ASwS72qyd/X/fr9ogzV+0+uQqGVHnooQoFvPhDf79QwHBHtugDB+NsklyKhBRJf0rarXDRABddstqiDhy6aq+VzsZKADKZHM98H/vMP45I3LZy3QWbZLiVrVSWdxPn4R1QsU7AbZcm7Bn74fRjKZIlT8unHsnBn3vndH3Hp10Hrb8ij3J9J378sJ/BeZ+yguvHjkTbJMPLM3puz7rDp246k/TnFLdh8S3eos/gYW+Gls5mZkZnwVsm7sh2MeaSTZLhlr9A7vQ/7HTJVzCvi2S12y7GXLSLAgY4v6T9Y96ecNgqGT71O7VNZ+NkOAt77OFNf5y4fOXimeP7Ni2ZOWNlxDW74VXy+TGft8vNX3undG3jh89/vOWaPCu/Nun9eqxvZxEpJ44cS7ZLurxs6IC0C+22uEM/Dum4fsXmOT999kg+fvPvEQUMd2S/dvWaXZLh5e11m3Usw8v7xry0Pf5qPHsEAE7v6p4J3dq8sfayXYZXxb6Du9xuI0U4g+Qtnz3+2ISzfx5uw5K9UtcvJn32fBV/vu3OyH55zdvdPt91XT413p70dg3vO98DzsF6/PDxGzsXGK55anV/9+0ebeuUyu9tvXh85y/zvv5k+Nzdl22xW0c8/WyxTUt6FuMgHfeEP564I/v1hBu7Wbu7p39Ovr8sssdfo4ABTi3h6JKP2lauGTb3aJLdcC3UauScd2twvOIsxRa3a86Qt4YuOMgx6J2Q/cKy17p/fSBJvnXfm/R6ZU+z88BhbKePHLtmlwyP4l1m/r5uTJ8WlQP9vdw8fPOVrNfpndkb1g592N8i2S6s/PDDny6xrndvKGC4I8PD09OQpOTk224EnpSUdOPKP5Q0AJnctUML321ZrnyrQYsi4u2yZK/Yfdov371Qkl96J+fe5JuT8dfj4y6ejti2bPI7T5TOZr92dPmnHeu1GbU3yexwuK/sZ75/JWzyUauRo9Hgif3K8budlVgCe/x4OiYmJubcrsnti/ztcGrZKr06/r163oZkO/PD1J9jaWD3hAKGOzJ8svkYkuzXE67f5vfNnpC6yPDx9WHDYMD5xB9e+PajZSu2G7zkaLxdRrbibT5YvGPj+E4l+IA8C7C4unt4eGXzzx9S5ZHnP5q/aflb1bwN2WJWv/vGjFOcCMx52CJnvtR7dmSKJWezoeNfKsleKlmMi5dfzly5cuXM7nmb/f2DO3Wp72lI9mub1m/juCz3hAKGO7LkypPLIsmedPbMxfQbWMr50+dSJMnin4udAgDnYo/d9k2nKpXaDVl+4rrdcM1d9bkRq/ft/mFQi2C2PMySjOy1Bw4KzWOR7HFrFq2+zAfhTsJ+YcFrr/5wxmbJ2/LzsS+EsIsP0jJylq9Y2EWS7dLpMwlmp8ncWFfGHVkKlSzmY0hKiTwWmZLuEGvUiWibJJcCJUtwUGLAiVgjf3jxofq95xyMtxuu+er2mbLl4JYpfRsFepgdDBnFHntk25bNmzdv2R112328vKvUKOcqyZ4ceTyaKTAnYY+Ljr5sk2znFj8f5GLcyr328IgUSbYz45p5GIZhGJZczy9hC9QsxvDO5m1IMmQYrOzdEwoY7sy9VPlSrpJSTmzbfi69zzpTDm/944pNMtxLlWebBcBp2C+vG9ii0/g98XbDvXDLT1bvWjfq2co5ed9wbtYD4zrVqVWrVp3mQzffbiMjw8XFcmP1y8WViRLACdivntixITw8fMPmw7fZ2EmSLeZsjE2SkSN/XjY/vyesLOPOLEFNm5Zy3bjbmvT7stUxYZ3zpPnYw3Z81Yr9Vslwr/5YY84KAziLa+ve7TZyz3W74V7i+dmrxj0RyDtGVuAaUjLEVYdTUs5u33bC1qhYeoU7+eDeQ1ZJhluhwPw0cidh+FV/5rWB9dLf0MV2as2EGZsv2QyfSh16PRrkIhneVTkSuTNJWP1Ok+4/J9hdig9Yv+ez2ukdgMW6f936MymS4V2jbpW/HaUD/wZvp7gLrmUff7z0J3t2J8etGPvtwU6vlbrl5yZhy/iJmxPtMrxrtWtZmLdiwDnYomZ+MuWo1W64le8//SvaV5Zh5KzfuIrH8o2J1q1TJ/3+0ic1/7arn/3corHzolIkw6Nmk/p+fOrmJAz/umGD695mYfKm176fufmSDN+aXQd/0pTDIzodI1ejZtXcl65PTDky/bPvXp7f+W9nd7SfWTh0/J5kyeLfNLRZTn7x7wlry7gbrhV7vd7S3yJ7wqYhPYZu+cs+17azK97sOXq/VXIJfObN54L5iQKcg/3Mkvnrr9lluNV5oWc1DreRhbiEPNW9SXZD9uS9X3TuMXX/tVuWJkWvGPTki3PP2CSXgh36PsU5uAGnYAnqENYil0Wynf3hpScHrjxt/evShKML+7fp8d2pFBmeFfu83T4f/eve8JEm7oqRr+Nnn83b+MLiM7HrBzWuvuH5bm2qFXK/fHj93Mmzw6Ou2w23Ys+N/qBZdrNzArhPErdv3J5olwwdmtSl8ff/+GbrEvTMNxO7lWBzJCdhKfjMsPembxiw9lLS4RnPV1z+eeNHG1QIyu1luxK9L3z58i2R8XbJ8CjZbeywVnwMDjgJI3+nL0f/tLXzdyetcVuGP1pyQb3mj9Qqkc8z+eKJ3b8uX7XzTKJdhiV3009nvFWVKdB7RQHDXXINeX7qwovPdHzn5xNXDy8dPXDpzUVGtjLPjJ73Vev8vBEDzsIWffBQnE2SPen0znWn/3mwa5m6VzkWuTNxL9t3/uLrnZ/6YFlkYvL53cum717218WGW4FGr0+e+t6jfAoOOBFLYMdvf3Er1O2V0b9GJ8Ud/fW7Mb/+Zalh8Sv/3Mg5o58tTf26dxQw3DUjR60Bi7c3XTB+zJT5q3YePXUhyTtvQPFqj3Xs3qt78+I+ZscDcB+lnD9zPv2d8ZElGLnqvblk7xNLp0yYsfiXzbsjTl1MsHv55SoQUqnOwy07de/SNMSH8gU4HY+QdsPXNO3+8/Rpcxct37j/5OnzcYZvnkLFqzVqEdq1R/tqeSgO94dht/OxJQAAAAA4AjvPAgAAAICDUMAAAAAAwEEoYAAAAADgIBQwAAAAAHAQChgAAAAAOAgFDAAAAAAchAIGAAAAAA5CAQMAAAAAB6GAAQAAAICDUMAAAAAAwEEoYAAAAADgIBQwAAAAAHAQChgAAAAAOAgFDAAAAAAchAIGAAAAAA5CAQMAAAAAB6GAAQAAAICDUMAAAAAAwEEoYAAAAADgIBQwAAAAAHAQChgAAAAAOAgFDAAAAAAchAIGAAAAAA5CAQMAAAAAB6GAAQAAAICDUMAAAAAAwEEoYAAAAADgIBQwAAAAAHAQChgAAAAAOAgFDAAAAAAchAIGAAAAAA5CAQMAAAAAB6GAAQAAAICDUMAAAAAAwEEoYAAAAADgIBQwAAAAAHAQChgAAAAAOAgFDAAAAAAchAIGAAAAAA5CAQMAAAAAB6GAAQAAAICDUMAAAAAAwEEoYAAAAADgIBQwAAAAAHAQChgAAAAAOAgFDAAAAAAchAIGAAAAAA5CAQMAAAAAB6GAAQAAAICDUMAAAAAAwEEoYAAAAADgIBQwAAAAAHAQChgAAAAAOAgFDACcVuKCjj4W49+y+Hf5MVFKDn81xNUwDPdanx1OMfuZ/FvWM+u+fKFJ2YLZPd09c1YZtDnZ7EAAAKRyNTsAAAD319Vf32zy6Od7r9slScnnL8abHCgzsu6d/ubXG67a3co/O7RXLW+z4wCA86CAAYDTcinS4JnnvJLsaW62nVw3a80xq91wC27UqX7htJtCGN51Al2ktPfKNOwXF40Yt++6XZYcVZ7p/0Lj4HylSruYHSrzsUWu+3bcpBibR8taH1DAAOA+ooABgNNyrfbiuMkv/u3mxO87LVhzzCp51n55/JQ2Hunf2Va802eTK8bZLXmq5ctUm6unRB46kmCXXEv0HDvpneq8zwEAHii8MQEA0mPJW/2JLtXNTvFfpKSkSJKRPYefYXYWAADSyFSfagIAHjhJcRdjryVn2g0WJXt8dNTF+5g/E7wgyfFx165b72/E+/0yAoDTooABANJj3fpWGbe0R0G0nRzd0MMwDK/W02Ntl7aO6V63SC7/3P6+Hu4+uQJK13/qnVk7r6SuhF8/vvyL3m1qFCvg7+PhlT1f8VptX/lm/WnrbR8v+eym6R/2bF2rVOE82b2z5QkqV7NJaJ/Pvt8da7vbxLYTI+t7GIZb1Y/3WSUlbxlY0tUwDJfA3muSJSnl8Ge13A3Dkq3T94mSrh1cOCi0RtFc3n7VBm/7y2ESred/nzn4xba1SxfOm93LM1vuQsWrPvLsm9+sPJaQ3mNm3AvyD/7Na/XXhLJf+v2bFxoWz+vnl83L3dXDN3dQpabPvjdzx8W/3DH5t37Brobh8dikGJukxJ+ey2kYhuFeZ3iE7Y4vY/Km10u6GYbhkvuZH+LSzW47NrKBp8UwLF4NRx2/6+8tADgTOwAga7m+oKOPIcnwffqH67cdlfz7m6VdJbnV/PSQ9f83ppwY1cBdkmfLL79/taL337fwM7JVfHXlheToxS9X9vvbR3yGW+H2M45b//5YCfundq2Qw5LOBoOGa566/RcdT7qb55Vy/MuH3P/+JSwBL/2SZLfb7dZDn9Z0kwyfjgsS4rZ+2jhPakBL/rAViTe+ROKR716s4u+S3paLhlfRNl9sibWlecyMeUH+wb99rf5M2OrbQz/1Kp1ORBnuQaFTDv//fknr+xZN56AlbrU/O5xy55cxaeNrJVwlWfJ0WRSX3jfp8PA67oZkeDcdG5Xyr545ADgJ9gEDAPxrSb++/9zPsQlu+Wu0bd+iXoVAlzNbFkz4ds2J6/arO0c+22pHjj/W7k/KWalth1YNKhayRW1fNmP6qmMJ9uST81/7oHOryS2z/+VrWQ9PCG304pIzKXYZXoE1HnvsoXIB2az/a+/ew6Kq8ziOf8+ZOQOCCCIigjckyhR1EdR0zUuWmhdQ8BKg7eb6lLVq5WPWWu3aY20pqZVdrdTKXSUvaIqapmarpqFl6upK3sgrCSqByGVmzv5B6gAjQg5nKN+vPznPzPzmy/Nwzofv73xP9pH09as3HbpgPbdt1rDe2Yu+mhcXfINNG2pw0vxdPfNLDr45bOQHR23miMeXfvxQC1WxBISVPdnZs9OemDRl0wW/iIFDY7q3b9k0MsIsIvYzy8bcM3JhZokuisk3rPuAfp3DG5rzMvdsStvwfVbR5WMrJ/WJsW1ZP6ldxbklrixIJW6iVrbMj8aM3nLwsqlh5OCRw3pFBJnOH9uzOeVf6zLy7MXHl04Y27PH+sdCVRFz5FNp3/65uHjb1D7jVlzQLd2nffHGoHqieAeXG5jptIxaVFxs6KzkH2w561K3XIoZ4F1uFRlLU9JLdFF87kkccqNfKAD8Trk7AQIADOaCDpiIqL5dn9uSfa2HYTu9JKnJlc6J4tlm7GcnS64etP+UNibMJCKihjy6scjxYw7OvNtHERHVv+vTaZmO67HlfDMnroWmiIgaELfwdLnm03UXvvvZ1mYR0Tq9cqhMc+lK68bcKDhQC+z9z205jh0Y+9nFw0vHPaoBvV7YfKbE4VDu3vcTwiyKiChed72y3+GQ6wtS2Tf7NbVyWKGofl2mbMxyLEr+t69091VFRLHcPfuYYz2K1v4lQBURj4ELzpdZReVl1PXir58KN4mIGjR6zaVy38C6b1qkJiKK39BFOVX8fQLA7w3/fQIAVJ/i0+ulhVO7N7h2FlEbD358ZLhZRETR2jw5f/agkGt9J6Vh30ljOmgiYs85fabo2vvkbZg5e3ueLqamo+ateLl/M8fekurfcdwnS55u76GIPWdV8tx9v+p+qQp0a9ZZPWb2wme6+jucA22HFsxa+ZNdxNRi9MdLn+8Z5NA0U+q1HTN/6XPRdRTRC9LffutLJw92dlVBKnGztVLr952xaNo9gY77C70jH/9HUohJRLedyDxpq/ii63JeRhHRouJiW5pE7D+tTf1P2fvmrPuXfLqvRERtMCDxfn9GVAK4RRHAAADVpnj2GPVAi3J3CpmahzU3iYiY/5D0pw6e5Q+Gt9QUEdFt1mvhoGDzotTTNlEs0eOmDGzo5IrcK2r8+N51FNFLDn6+IdNFMxtMwfFjhwSV+TTbkc9SvyvSRfHsMuGZvk6ygUf7cZNj/VUR26lVK3YWlz/sqoJU4mZrpTYe9kRS8wqnfUv4naWtuCouw+EbVCyjiIhoUfGlCSxrTepWxwRm/f7TpQetImpgTGIf3+p9GAD8fhDAAADVpvg1CfGpcOltNpf2eywtw5tXGOOgmM0Vfmbdt3XHRbuIqUWPHi2dDH4QEcU/skOoSUSshw/+4JoWmGKJ7BpVLg7l79qx3yoi5oj+/Vo4PTUqfr37/9FTEbFl7Uo/Xr5X5KKCVOJma6V4RHfv7OXkRWaz06EjN+SsjKWu9sDOpqVuL7z645LdKUszrCKmkCGJvbydvRAAbgkEMABA9alKJecPk6ZV7ZLeeurEGbuIWDNm3KUpzmkdXvyvVUTsedk5VduqdyOKb3CQd9kF2s+dPluiiyge4a2cjQAUEVF8br8jRBUR+9lTZyv2l1xSkErcbK2Ueo0C69zsIsq8YcUyXqFFlyYw25m0FTuuLKR4Z8qyI1YRU/Ohid1cuhIA+G0hgAEA3ES/lPtz1Z9YrBcVFrnkQb9KHa/yw9jt+Xn5dhFRvOt6X/fEqPj4+qgiYv85N8/wB1jdfK3Mpuo03G7MSRmvuprATq1O3VmawAq3pyzPtImYw4cndK44RhIAbh2MoQcAuIni5VPXpIjoWse/pc0dEVh5l0j1aernmrkNzp7W5eOtiIhekH/putlKv5RfoIuI6l3Xy/B/X7qrVpUtqZJjWnRcbOjsVw/bTqxekZ7cvZvl8taUFSdtIubWIxIitZpeGgDUZgQwAIC7mIOCG6lyzKYXaoER7du775RkCmjcSFOkRC88fOi4TVo57RVdOpxx0iYiamDjRsbvH6k1taoaLTpucOjsVw/bMlet2D29W7stKStP20TRIhMeaFPb1w4ANYstiAAAd9HadYn2VkRsP2z56pTzzpOe8+VrT04YP37C5I/2ltTcSnyi7mpjFhHr/uQ5/sQAAATXSURBVHXrTzhfSe7mNVsLdBE1oGOnMNfu5quK2lOrqtGi42JDTSK246tSd1/YtHhVll0US+eE4bcbXzsAqFUIYAAAt/HpHd/PXxW9cOvMv6/McnKL0+X0WRMmvz7nzbc+/K7Avwav3E3hg2LbWhTRC7e9MWPjxYorKd739vTl5+wipuCBg7u44x6mWlOrKtKi42NDTSLWo599PGNh2jm7KJ7dEoc6nzEJALcQ/g4CANxGaRA78eHWFkVsmQsfinky9YjjY6Psud+/kzR0xv4SXdTGw8YnhNTkKcvUevTEgQGq6Najc0eNmL7tnMOgeT3/wPzR8S/sLNBF8Yr+64R769bgQq7LXbUqKvqVs0+uJrCM92cuz7GL4t0rcUgTrjsA3PLYiA0AcCPPzs/Ne3ZT76k783K/eT2+7ZLofgN7tmtWz5p9dM/GlZ/vP2/VRdFaPvjW9EE1PFVCaZzwxpzV34xMOWnNWj+lZ6tP7o29v/NtDdS8H/d8sXLN7jNFuohav8eLH0yMcNep09ha/fIQs+Kv3332tTp9gk3erQYMaO9bnTfWouNjQ1+bedhmLbGKKL73JcY0qvHRIABQ6xHAAABu5dXx+bXrPEYmTF37Y+Hl0+mpc9NTrx1UTA06Pvre4lmDDbhyV0NGLNhs8xn62Id7c63nD6ybf2Cdw1HFK2zIyynzx0dYanwh12dgrbSILh3rzV11Uc//bt7EB+eJ1iX5QP/qBTDRouJKE5iIqP73Jw0IIH8BAFsQAQDuptTv+nTagX1r5jyV1Lt9aJBfHc3iXT/kzq6xj7z0750Hts2JDzVqbrnHbYlzdx3avuCFh2M639EkoK6Hxat+45aRfR585p0NB/YvmxBVz90JwrBaKUEj31sybXin5n4eZrOHT8NmTQOqf+eb5ZdJHCJqw0FJff1cszQA+G1TdN0lj7UEAAAoq3jH5LZ3J2dYTU0eWZvx7n113L0eAKgF6IABAIAacfmrjxYfsYqYmsUldid9AYCIEMAAAEDNyF23YNkpm4g5bFiiW0b3A0BtRAADAACuV7jv7eTUbLsoWpvEpCijbuMDgFqPKYgAAMBlSnYkj5q512LK2rV+0/8KdFH9B04a25bLDQC4gr+IAADAZfSLhzYuX5htFxERxdSo30svj+DxXwBwDVsQAQCAy6iNIzrdFuDlWS/4zl6jk9fuXD72DrYfAoADxtADAAAAgEHogAEAAACAQQhgAAAAAGAQAhgAAAAAGIQABgAAAAAGIYABAAAAgEEIYAAAAABgEAIYAAAAABiEAAYAAAAABiGAAQAAAIBBCGAAAAAAYBACGAAAAAAYhAAGAAAAAAYhgAEAAACAQQhgAAAAAGAQAhgAAAAAGIQABgAAAAAGIYABAAAAgEEIYAAAAABgEAIYAAAAABiEAAYAAAAABiGAAQAAAIBBCGAAAAAAYBACGAAAAAAYhAAGAAAAAAYhgAEAAACAQQhgAAAAAGAQAhgAAAAAGIQABgAAAAAGIYABAAAAgEEIYAAAAABgEAIYAAAAABiEAAYAAAAABiGAAQAAAIBBCGAAAAAAYBACGAAAAAAYhAAGAAAAAAYhgAEAAACAQQhgAAAAAGAQAhgAAAAAGIQABgAAAAAGIYABAAAAgEEIYAAAAABgkP8DCbO2e9Xx2GAAAAAASUVORK5CYII=" width="576" /></p>
+<p>We now have age-adjusted EdererII relative/net survival estimates.
+The <code>weights</code> argument allows for either a list of weights
+(with one or multiple variables to adjust by) or a
+<code>data.frame</code> of weights. Examples:</p>
+<pre class="r"><code>list(sex = c(0.4, 0.6), agegr = c(0.2, 0.2, 0.4, 0.2))</code></pre>
+<pre><code>## $sex
+## [1] 0.4 0.6
+##
+## $agegr
+## [1] 0.2 0.2 0.4 0.2</code></pre>
+<pre class="r"><code>wdf <- merge(0:1, 1:4)
+names(wdf) <- c("sex", "agegr")
+wdf$weights <- c(0.1, 0.1, 0.1, 0.1, 0.2, 0.2, 0.1, 0.1)
+wdf</code></pre>
+<pre><code>## sex agegr weights
+## 1 0 1 0.1
+## 2 1 1 0.1
+## 3 0 2 0.1
+## 4 1 2 0.1
+## 5 0 3 0.2
+## 6 1 3 0.2
+## 7 0 4 0.1
+## 8 1 4 0.1</code></pre>
+<p>The weights do not have to sum to one when supplied as they are
+internally forced to do so within each stratum. In the
+<code>data.frame</code> of weights, the column of actual weights to use
+must be named “weights”. When there are more than one variable to adjust
+by, and a list of weights has been supplied, the variable-specific
+weights are first multiplied together (cumulatively) and then scaled to
+sum to one.</p>
+<p>This adjusting can be done to any survival time function that
+<code>survtab</code> (and <code>survtab_ag</code>) estimates. One can
+also supply adjusting variables via the <code>adjust</code> argument if
+convenient:</p>
+<pre class="r"><code>st.as <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex,
+ adjust = "agegr",
+ data = x, weights = w,
+ surv.type = "surv.rel", relsurv.method = "e2",
+ breaks = list(FUT = seq(0, 5, 1/12)),
+ pophaz = pm)</code></pre>
+<p>Where <code>adjust</code> could also be <code>adjust = agegr</code>,
+<code>adjust = list(agegr)</code> or</p>
+<p><code>adjust = list(agegr = cut(dg_age, c(0, 60, 70, 80, Inf), right = FALSE))</code></p>
+<p>for exactly the same results. When adjusting by multiple variables,
+one must supply a vector of variable names in data or a list of multiple
+elements (as in the base function <code>aggregate</code>).</p>
+</div>
+<div id="other-survival-time-functions" class="section level2">
+<h2>Other survival time functions</h2>
+<p>One can also estimate cause-specific survival functions, cumulative
+incidence functions (CIFs, a.k.a. crude risk a.k.a. absolute risk
+functions), and CIFs based on the excess numbers of events.
+Cause-specific survival is close to net survival as they are
+philosophically highly similar concepts:</p>
+<pre class="r"><code>st.ca <- survtab(Surv(time = FUT, event = lex.Xst) ~ 1,
+ data = x,
+ surv.type = "surv.cause",
+ breaks = list(FUT = seq(0, 5, 1/12)))
+
+st.pp <- survtab(Surv(time = FUT, event = lex.Xst) ~ 1, data = x,
+ surv.type = "surv.rel", relsurv.method = "pp",
+ breaks = list(FUT = seq(0, 5, 1/12)),
+ pophaz = pm)
+
+plot(st.ca, y = "surv.obs.canD", col = "blue")
+lines(st.pp, y = "r.pp", col = "red")</code></pre>
+<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABIAAAASACAIAAAAIyqENAAAACXBIWXMAAB2HAAAdhwGP5fFlAAAgAElEQVR4nOzdZ3RU5cKG4WcmmXQSIBC6EIr03hEUOFQpUqQXpRepAkqzgAUQkCpFREA6KE2qFAsi0kLvIL2HHtJn9vcjiPJZkWTvCdzXHyd7MuGBtc5a517zZo/NMAwBAAAAAJKe3eoBAAAAAPC0IMAAAAAAwCQEGAAAAACYhAADAAAAAJMQYAAAAABgEgIMAAAAAExCgAEAAACASQgwAAAAADAJAQYAAAAAJiHAAAAAAMAkBBgAAAAAmIQAAwAAAACTEGAAAAAAYBICDAAAAABMQoABAAAAgEkIMAAAAAAwCQEGAAAAACYhwAAAAADAJAQYAAAAAJiEAAMAAAAAkxBgAAAAAGASAgwAAAAATEKAAQAAAIBJCDAAAAAAMAkBBgAAAAAmIcAAAAAAwCQEGAAAAACYhAADAAAAAJMQYAAAAABgEgIMAAAAAExCgAEAAACASQgwAAAAADAJAQYAAAAAJiHAAAAAAMAkBBgAAAAAmIQAAwAAAACTEGAAAAAAYBICDAAAAABMQoABAAAAgEkIMAAAAAAwCQEGAAAAACYhwAAAAADAJAQYAAAAAJiEAAMAAAAAkxBgAAAAAGASAgwAAAAATEKAAQAAAIBJCDAAAAAAMAkBBgAAAAAmIcAAAAAAwCQEGAAAAACYhAADAAAAAJMQYAAAAABgEgIMAAAAAExCgAEAAACASQgwAAAAADAJAQYAAAAAJiHAAAAAAMAkBBgAAAAAmIQAAwAAAACTEGAAAAAAYBICDAAAAABMQoABAAAAgEkIMAAAAAAwCQEGAAAAACYhwAAAAADAJAQYAAAAAJiEAAMAAAAAkxBgAAAAAGASAgwAAAAATEKAAQAAAIBJCDAAAAAAMAkBBgAAAAAmIcAAAAAAwCQEGAAAAACYhAADAAAAAJMQYAAAAABgEgIMAAAAAExCgAEAAACASQgwAAAAADAJAQYAAAAAJiHAAAAAAMAkBBgAAAAAmIQAAwAAAACTEGAAAAAAYBICDAAAAABMQoABAAAAgEkIMAAAAAAwCQEGAAAAACYhwAAAAADAJAQYAAAAAJiEAAMAAAAAkxBgAAAAAGASAgwAAAAATEKAAQAAAIBJCDAAAAAAMAkBBgAAAAAmIcAAAAAAwCQEGAAAAACYhAADAAAAAJMQYAAAAABgEgIMAAAAAExCgAEAAACASQgwAAAAADAJAQYAAAAAJiHAAAAAAMAkBBgAAAAAmIQAAwAAAACTEGAAAAAAYBICDAAAAABMQoABAAAAgEkIMAAAAAAwCQEGAAAAACYhwAAAAADAJAQYAAAAAJiEAAMAAAAAkxBgAAAAAGASAgwAAAAATEKAAQAAAIBJCDAAAAAAMAkBBgAAAAAmIcAAAAAAwCQEGAAAAACYhAADAAAAAJMQYAAAAABgEgIMAAAAAExCgAEAAACASQgwAAAAADAJAQYAAAAAJiHAAAAAAMAkBBgAAAAAmIQAAwAAAACTEGAAAAAAYBICDAAAAABMQoABAAAAgEkIMAAAAAAwCQEGAAAAACYhwAAAAADAJAQYAAAAAJiEAAMAAAAAkxBgAAAAAGASAgwAAAAATEKAAQAAAIBJCDAAAAAAMAkBBgAAAAAmIcAAAAAAwCQEGAAAAACYhAADAAAAAJMQYAAAAABgEgIMAAAAAExCgAEAAACASQgwAAAAADAJAQYAAAAAJiHAAAAAAMAkBBgAAAAAmMTT6gFIfGfPnp06darT6bR6CAAAAPB3/P39+/Tp4+fnZ/UQ8xBgT6BPPvnko48+snoFAAAA8M9y587duHFjq1eYhwB7AsXFxUmqXbt2+fLlrd4CAAAA/LmFCxfu3r07NjbW6iGmIsCeWJUrV+7du7fVKwAAAIA/d+DAgd27d1u9wmzchAMAAAAATEKAAQAAAIBJCDAAAAAAMAkBBgAAAAAmIcAAAAAAwCQEGAAAAACYhNvQ/4P4iPAr167fvBMZE+eye/unSJEiKE26tAH8uwEAAAB4ZITEn4i68PPXC79auX7ztt0Hfrl6L9546FmbzSswU448BUtWqvlSvXo1SmXxs1m0EwAAAEDyQoA9xHV926cDew+Z+fPlWOOvvscwYm+fP7zt/OFta74Y0Sdt8eaDxozoVj6dh5k7AQAAACRHBNhvYk/Oa1+z7ZzjMb+2l83DL3XGLM9kyRCcws/X19vDFRsdFXn3xpUL585euBYRZ0hG3LWds3pX/va7Cavndcrva+l8AAAAAO6OAPtV1PahDRPqy+adsUyTjh1avFSlbMEsKf70nS1X1JUjO75f++WsT2etPXon7uzyHg3eyLl9/P+COI0IAAAA4C9xF8QErrMzBo7ZF2PYPDLVHbvl4JZZ77SpVuQv6kuS3Tddvucbvz5+1d69S7sX9bcZscenDZp6zGnqZgAAAADJDAEmSXKdW7bwxyhDHlnaTZ/do3jKf/1Glne2umMWvlfe12bEhC39+hQFBgAAAOCvEWCSpPhDew7GGbKHvNioUuAjvtYjR8NGpRyS8/gh3gIDAAAA8DcIMEmSERMTa0i2gBQBj/5bXPbAlIF2yYiN+etbJwIAAAAAAZbAI3PWzB6S6/yusEuuR31x1N4dB+Ike7oM6fjnBAAAAPDXKAZJkmeh2jWzesiI+n5E/8XnHuUgoXF3+8gBs047ZQ9+rmIhR5ItBAAAAJD8EWAJvEp36l4h0Cbn2QWty1Z/Y/b2SzH/+BrnrSOrRrUsV3XI1juGzSt/h9eq+puwFAAAAECyxeeA3efxbNcpIzdU6rrqUuyFjSNblxnbK2ep8uVLF82bPWvmDGmC/H18vDyNuOjoqIjrl8+fO3Vs746ffvz5wOVIlyHJnvK5t6cPKOlt9V8CAAAAgFsjwB5w5O64aKNP92Y9Z+y75TLibhzfsuL4lhX/+DJ7inzNRsz+pHMx3v4CAAAA8Pc4gvh7vnlbf7bz6NZZb7d8PkeQ59/fD9HmGRj6XLOBn28+sntOl2JBj37zRAAAAABPG94B+/88Q0q1GjK71ZC4W6f27Qzbf/TkmQtXrt+MiIqNl8PXPyAgICjtMzlz585ToHCBbCm56QYAAACAf48A+yuOlKHFq4QWr2L1DgAAAABPDI4gAgAAAIBJCDAAAAAAMAlHEB9b9M1LNyJdhmTzDc6Y2sfqOQAAAADcFu+APa6Ydd1zZ86cOXPmzDk6r/znT29+BG+//baHh4ft0Y0ZM0bSTz/9lJhr/uAX77yy2bb2+TJJ/xQAAADgSUKAua+oqCiXy/WfX37p0qVEHPNHaeIuSgqe/F6S/ikAAADAk4QAc18jR440/pNixYpJSpMmTZLOOx1QUFKWqONJ+qcAAAAATxJ+B+xxeT0/ZNPP3Z2GZA/O5WX1GhNdr9des7f4KiruTpQj0NfqOQAAAEAywDtgj8uWKkeJUqVLly5dumTO1Dar15iozITmCQ92955l7RIAAAAguSDA8B/5BnlFy0dSisUzrN4CAAAAJA8EGP67M97PSsoWccDqIQAAAEDyQIDhvztVpL4kXyMy8vRVq7cAAAAAyQABhv8uY+/GCQ9Ofrzc2iUAAABAskCA4b/L3zDvDVuwpNjIeKu3AAAAAMkAAYb/zsPTtr1CH0nxew9avQUAAABIBggwPJaAmhUkpT38g9VDAAAAgGSAD2KWJDkjb16/G2s83g+x+aQMCfJOnEHJRr5XSkYP8Am9dyD28g2v9KmtngMAAAC4NQJMklynJtXK129r3OP9FJ9Gi28tevkpK7DUGbx3+pUqEfnDmfk/5epd2+o5AAAAgFvjCKIkyTt12pQOm9Urkqkrz1aQdHvlZquHAAAAAO6Od8AkyZ6l7fILdfev/WLc+8Nm7QiPNyTZ/LOXKf9s0CNUmVeR9E9lzzoqltceZflxXvy1/p5pU1k9BwAAAHBfBNivHGkK1nn9s2ovFqn7XM9vbrjkkaXxuJXDSvIP9I+iL92UlC72/KF2I/KtGG71HAAAAMB9PZVv2fwN7zyd3u+Ym+p6FCnzpLv/4Ltl1i4BAAAA3BwB9v85itSsmsnD6hXJSWjjkoZskjLcPabwcKvnAAAAAO6LAPsDzwLFCnJDjkeQJV+Ki7ZMkmwyLs//1uo5AAAAgPsiwP7AFlik2kuVKr5QKnsgGfYvHQoun/Dg1sJ11i4BAAAA3Bm/7fRHnoW7L9jY3eoVyUp0iQpau0BSul2rrN4CAAAAuC/eAUMiSFmtVMKDVNGXXUePWzsGAAAAcFsEGBJB7saFY+WV8PjSrG+sHQMAAAC4LQIMiSAkk+OIZ8GEx9E3o6wdAwAAALgtAgyJ4864z28qlaQsHWpYvQUAAABwUwQYEkf5roV+TllD0vkFP1q9BQAAAHBTBBgSza2CFSTFbNhs9RAAAADATRFgSDQpaj0vKeTID1YPAQAAANwUAYZEU6BxvusKDo46b5w6bfUWAAAAwB0RYEg02UJtYb7PSboyb6PVWwAAAAB3RIAh0cTGKsAeKSlkcMfLXYZYPQcAAABwOwQYEs2x3ffK3tsgyS6XY8Fsq+cAAAAAbocAQ6LJXtD/rLImPA6+dVK//GLtHgAAAMDdEGBINH5+OhpU8sGX95ZvsHAMAAAA4IYIMCSm28/+FmC3Fq+3cAkAAADghggwJCav8qUePE4dtkFOp4VjAAAAAHdDgCExZalfwimPhMe+Mbe0c6e1ewAAAAC3QoAhMRUoE3DElvfBl3e+4hQiAAAA8BsCDInJ4dAvaX47hXhv488WjgEAAADcDQGGRHavXNWEB5cdWbz6v27tGAAAAMCtEGBIZI2XNJ3d/5BL9mDn1eA65ayeAwAAALgRAgyJzG5X5W55Dyq/wxXj2rHL6jkAAACAGyHAkPgyZdKeFBUkXfvqB6u3AAAAAG6EAEOSuF2ogqTYjZutHgIAAAC4EQIMSSLFixUkpTm6hc9iBgAAAB4gwJAkitbO9Iuy+8bd2V3utej5S62eAwAAALgFAgxJ4pc6PdPrsqSi26caHTvJ5bJ6EQAAAGA9AgxJIuDyCT9FSronf9+Ia9qzx+pFAAAAgPUIMCSJK1lKJDywyyXJuXa9pXMAAAAAt0CAIUm4SpSSFCsvX0VJilhKgAEAAAAEGJJG2lql9OvbXy7ZA3Zv1r17Vo8CAAAALEaAIUkUrpL2lEI9FS/phlJ7OGP1Ax/KDAAAgKcdAYYkkSGD9vuWSnjsIaek+PmLLV0EAAAAWI8AQ1K5nr2kpFh5pdJNSVqyRLGxFm8CAAAALEWAIal4lC0lKVJ+knaqRHSKtFYvAgAAACxGgCGplOlRalNQ/TDvspJS1ywdcOm4vLysHgUAAABYiQBDUnm2oHflW0t+rjxQUtC+zVbPAQAAAKxHgCFppa9TMlo+qS/s140bVm8BAAAALEaAIWmVecF7u0rZZOjHH63eAgAAAFiMAEPSyptXW/3+Jyli7nKrtwAAAAAWI8CQtGw2nSrVRJLXyiXhF2PDP12iY8esHgUAAABYgwBD0rpxKaZ08IkDKuAVeevTsjPTdGoY36Cx1aMAAAAAaxBgSFpLX5zW5qval2wZJZVxbbmqEM+De7Vvn9W7AAAAAAsQYEhacUFpJAX4xEsqe23FMtWTpLlzrV0FAAAAWIIAQ9IKqFxKUp74A3tUxDfm1gWfHJLiZ82Vy2X1NAAAAMBsBBiS1rM1sl9VSKq4qxvtVSVVSX/gF2X3vHJBm/loZgAAADx1CDAkrcKFFWYvIckzNIukUheXLVYjiVOIAAAAeBoRYEha3t46mrGSpPJe28NUzDv27u0UWSQ5F36pmBir1wEAAACmIsCQ5G5Xqicp3y8rl9obSqqX7qcwFfO4c1Nr1lg9DQAAADAVAYYkV6p5zv0q6BtzK0WeTIZsRc6u+NTW0bDZZbNZPQ0AAAAwFQGGJFe5sr72bSypXJ4bO1XCKzbizZFpb5+/q5desnoaAAAAYCoCDEnOy0uVV/fdNnB53nGdv7Q3lpRpy6KUGf2s3gUAAACYjQCDGcpU9Cn9Qd3gzL7nn2tiyGZf9bXu3bN6FAAAAGA2AgymqtgqyzaV9oyN1OrVVm8BAAAAzEaAwVQNGmiJRyNJMbMXWb0FAAAAMBsBBlMFB+ti+cYu2T3WrVZExNVtp7Rli9WjAAAAAJMQYDBbpVaZt6qsZ2zkmtdWnizTwqjwvA4dsnoUAAAAYAYCDObZusV11LdI7cm1Ek4h5tq9aJ8K2QyX5syxehoAAABgBgIM5jl6xEgbfS7drtX2ksWd8sh2eM0qRz1Jzi/myjCsXgcAAAAkOQIM5qn9ksdKWx1JDUM2b9FznvHRlQqFn1Y2jwtn+U0wAAAAPA0IMJgnTRodzVdfUo59SxNOITZwfrlATSVp7lxrtwEAAAAmIMBgqoxtqt9VijSnd6psWac8Mh9Yuz6gniTn/EWKjbV6HQAAAJC0CDCYql5Tn7WqYZPRJNOPm1XBIz6maZGj+1TI4/YNrV1r9ToAAAAgaRFgMFWmTNqX4/4pxKWOxpJevLd4jlpK0rx51m4DAAAAkhoBBrOlalU7Wj5pjvzorFAxXp4Z9q3bla5WhAKcN+9YPQ0AAABIWgQYzFa7WYpNqmw3nI0LHPpeL9idcXN7bT+y7ozH8iVWTwMAAACSFgEGsz37rM52+2jn868X6/e/hFOIqdYvKlEttXx8rJ4GAAAAJC0CDBboPCF/ie9HB2ROebdqg3h5Or7foOvXrR4FAAAAJDkCDFaq3iLNJlW2O+O0bJnVWwAAAIAkR4DBSnXrapmjkaSY2Yus3gIAAAAkOQIMVgoI0L0aDWPl5di8SVevRkU4tWWL4uKs3gUAAAAkCQIMFqvZPNVG/c/uir85Y1m/tDNVvryGDbN6FAAAAJAkCDBYZu+O2K25Wlc9O32FdyNJHksWH4zNJck1fYYMw+p1AAAAQOIjwGCZ1TOulD0x2++dfrHVasfKK8XOb9M+9+wphdrPntbmzVavAwAAABIfAQbLlGyQ5aDy+0bfbF1oz3pVtbmcvbIunafmkjR7ttXrAAAAgMRHgMEyFStqrV8DSfmPLV3u3VhS4WOLF/q8YsjmWrBIUVFWDwQAAAASGQEGy3h66m6V+pJ81yyJq1k3Wj5+O74vW8V/h0raI+5oxQqrBwIAAACJjACDlYq3L/qLsvtHXGld4tA3qmYzXN0yLZ2tVhKnEAEAAPAEIsBgpWrVtNqrnqRCJ5eu8GksKWfYom9SN42Vl7F2na5etXogAAAAkJgIMFjJ21vhFepLciz/0lW7bpR8fXb+2PilmCVqIJdL165ZPRAAAABITAQYLJa/Q7nLSh9443TzCufWqobNcA3M/VXctJlRe48pf36r1wEAAACJiQCDxWrVsc/I8vap9GUrNEq/wreJJNuC+a3ae/sVzGH1NAAAACCREWCwmJ+fBpztEnrpJ+8MqVWnToQCfPb8rBMnrN4FAAAAJD4CDG6kfgu/5XpJkhYutHoLAAAAkPgIMLiRGjW0MkUzSTGfz7V6CwAAAJD4CDC4ES8vpXi5+lWFeP9yWPv2SdLZszp92uJZAAAAQCIhwOBemrTwXKIGkjR/fseOupy9nFG8hO7ds3oXAAAAkAgIMLiLc7/E7Xp1QsWMx9anaSYpdua88GvGCWeo7cZ1LV1q9ToAAAAgERBgcBezO/xQfFaPG027Zm5W4Yyyel0+26341jlqKUlz5li9DgAAAEgEBBjcRYpKJWLlFbz/u1Y1wxepsaTnL8xfE9Q0Sr5av14XLlg9EAAAAHhcBBjcRZ2WQZtU2W44C535+odMzSQZCxZWq++/SrXkcmn+fKsHAgAAAI+LAIO7yJZN27M0lHT7s8UFWhU9pHyOW9e65d04W60kaeZMa+cBAAAAj48AgxvxbdkwVl6pd29sWfP6QjWRVPDA/ENZa15TWh08qL17rR4IAAAAPBYCDG6k7iupvlUlD1dc7kNLt+dqYcjm+nJJs0bxC9RUkr74wuqBAAAAwGMhwOBGcufW1syNJN2atrhcqxy7VNwz6m6HjKtm2Nq6ZNf581YPBAAAAB4LAQb3EtCqfpwcqfdsavXi9QW2ZpIyfj9/wMIiYfOPavp0q9cBAAAAj4UAg3tp0D71Io9mUZ4psmVxHizUzCkPrV7dqOqtEk1zKiDA6nUAAADAYyHA4F6yZ1f1SzMd1y4qJKRq6ww/6HmPuGgtW2b1LgAAACAREGBwO2nS2rwCfSQ1baqF9maS4mfzIWAAAAB4EhBgcF8ZM+pC2Zdj5O3x3UZdvmz1HAAAAOBxEWBwa7Vaplqn6jaXU4sXS5LLpQMH5HJZvQsAAAD4LwgwuLWXX9Yij2aS4r6Yv3u3+gV/roIFNXas1bsAAACA/4IAg5uKjtaZmd+mMa7d+1/dCAU4dm6N3HfiwK3MkjRtmtXrAAAAgP+CAIObGttmb9Y2lW/UatWgpd8K1ZVU9tyi/emrXlZ6HTminTutHggAAAA8MgIMbsozV2i0fFLtXF+/zKWvvJpJcs6a83ITj3lqLkmzZ1u8DwAAAHh0BBjc1EutAr9RNZvh8lmz1FG7+nUFO04c7lBm/2y1kqT58xUXZ/VGAAAA4NEQYHBTuXJpe9ZGkm5/trhRc8eXellS/n3z4/IX2adCunZNa9davREAAAB4NAQY3FfKV16Kkm/qAz/ULnZxhX8zSXGz5jVrasxRS4lTiAAAAEh+CDC4r/qtU6xTdZvhsi9bkrZBhfPK7Lh4pl2+rfNsLZzy0Ndf69YtqzcCAAAAj4AAg/vKkeP+KcS7ny9u2ty+QE0lpf92fo4KGdeopmJidOGC1RsBAACAR0CAwa2lfqVOlHxTHfyxSr6L61I3kxQ/d+HUT+KPvj039ucw5c9v9UAAAADgERBgcGv1W6dYamsgw/C8fiVXk2KHlM/z5rU8Fzf1GRLoVaqI1esAAACAR0OAwa3lyKFc3027tOmwihZt2lSL1FiS5s+3ehcAAADwXxBgcHcln/fNWCm3pAoV9F2mFpKci5coKsrqXQAAAMAjI8CQbNhsKtE05y4V97h3R6tXWz0HAAAAeGQEGJKTZs00X80kGfN+PYUYGalZs3TzppWzAAAAgH+HAENyUry4tmVv5pSHsXKVbt/+6CN1SbVAr76qXr2sngYAAAD8MwIMyUb0heuKjq7UIuNmVbDHRmvp0shIrYqt6rQ7NH++zpyxeiAAAADwDwgwJA/TR4S7Mj9zs3yd5s3vn0J0zZ3ftauu+WRZYDRRXJzGjLF6IwAAAPAPCDAkD3ec/oZsKXdtzON75nCBRrHysm3aGGJcadpUHxgDDZtd06YpPNzqmQAAAMDfIcCQPNRr5vu16thkxM1bXKtlqnWqbnM5tWhRnz46Ysu7zl5TkZGaONHqmQAAAMDfIcCQPISGKixHI0kRMxY3a6a5tpaSXJ9MLpDfqFJFHzrflKQJExQRYe1OAAAA4G8QYEg20rd98Y4CUx3f/kzcyYtlGpzVM/ajh7VmTZ8+2qwKO7ye040bmj7d6pkAAADAXyLAkGzUb+azUrUlxS34qnFzzwnqLkmjR1erpgIF9H7sG5I0ebKlGwEAAIC/Q4Ah2QgN1e6cjSTdm7m4ZUvN9e94W0HatMm2Z/cbb+hr1dldpI0aNLB6JgAAAPCXCDAkJ+nb1LytoJQndqYMP1H/lcDP1VaSPv64VStt32HLv+1zffih1RsBAACAv0SAITlp0Mx7ua2eJO3b16uXJth7xstTCxfq3LkSJeTlZfU+AAAA4G8RYEhOQkOV6vPRBwbOU926uXIpd7WsX6mh4uK4AT0AAACSBQIMyUydV4MLfNBMnp6SevbUKPWVpClTdOeOxcsAAACAf0KAIRmrXl338pbYrAq6c0czZlg9BwAAAPgHBBiSMZtN3bpptPpI0tixio+XtGaNzg+arNBQHTtm8T4AAADgYQQYkrdXX9WPqeseUR6dPq2lS2/eVK1aWjHulE6f1vvvW70OAAAAeAgBhuTNz0+vtrGNVw9JGjkyVSqVLKnh97q7PByaP19nzlg9EAAAAPgNAYZkaeNG7fUre+/ZooqP795dczxeCVca7dihLVt69tQ5Zfnav6ni4/Xxx1YvBQAAAH5DgCFZOnhQnlF3/Y/v0dKlWbOqSl2/KeosSaNHN26sZ57RgDsDDJtdn32ma9esHgsAAADcR4AhWWrWTJ86XpMUPWKcpJ49NUHdY2w+Wr7c8/SJ7t11WHm3Bb+oyEg+IgwAAADugwBDspQ2rSIavnJDqX12bdGOHS+8oIxFQuYazeVyaezYjh0VFKTe4YMkaeJERURYvRcAAACQCDAkXx16+s1QG0nOsRMkde+ukepnyKYZMwLjrrdpo59V5lhIed24oc8+s3osAAAAIBFgSL7KlNH3hbo75WFbtFCXL7dooZvp8qxTdUVGaurUnj3l6am+NwZK0p49Vo8FAAAAJAIMyVr9XllXqK49PlZTpnh7q337Xz+Uefz4bOmjBwxQdKWasZu3adw4q5cCAAAAEgGGZK1pU80I7CkpbuJUxcZ27aofvKrstRXRlStasGDoUH3zjbzKl1JQkNVLAQAAAIkAQ7Lm66u8nV/YpeKeN67q8uWMGdWwoT42ekvS6NEyDKsHAgAAAA/xtHqAOzNi71w+d+5S+M2796JjXTaHl69/UKo06TNnDknhsFk9DgkGD9bCoNU5yl1M+cwzkl5/XeXmNxtmH5TxwAGtX69q1aweCAAAAPyGAPuj6HNbvpwzb/HS1d/vOXM77o9votgcgZnzFn+u8ov1mjZ/qXRGHwsm4oEUKdR+YIgUkvBliRIqVtoxYdtrwzRAo0cTYAAAAHArHEF8SMwvKwbXKpCnQquBk1bsOP1n9SXJiLtzbt+3C8b2a1o2V77qfefsvc1JN3fSs6emqlOkPUDffKO9e397IixMM2daNgsAAAAgwH7HuLtz9EvlG364+mSkIdkcQZmeLeLiwLAAACAASURBVFAwb7ZgH1vCcUN7UP5qDevVqlq+SI50/p42STIiT30zunX557t8eSrW0u34nZdfln/mVNNdbSRp7FhJ33+vokV1p2NftWmj5cst3gcAAICnGAF2n3Fzbd/G/b+5FG/Y/PM2HrHy0NXw80f37zt06uq1E2tHNc7tZ3PdOROeo+fsdZt3n7h8+/rJn74a061qdn+bjIh9n7as/ea3vA/mJhwOde6sMertsnlo7lydP79/v/bs0Re3X5KkoUO5OQcAAACsQoAlcB7/bOis0/GGzbfw6yu3LHijVp6U9389zh6QvVqf+d/NaZXVHhE2unWflTcMySMwtGyDXhO+ObBrTtv8vjYj5vCkniPDeBfMYuEnb2vNGrlcnTrpsm/oUqOe4uI0eXLr1kqVSv1OdIpNk1FhYVqzxuqlAAAAeEoRYJIk19lVK8JiDHmEth87tGKqP9zi0J7+pQ8G/M/f5jy/YNzCC64H131zN5/y1QfPB9iM2IMzPv0uytTReMhPP2lOriF68UXNmJEmjZo10wi9KUmTJwfaI3r0ULR8vkjzuiQNHWrtVAAAADy1CDBJUvzRg0fjJY8MNeuX8/vT77BnrFazqENG9NZ139/5/ROO3G261Ai0yXX1h+8OxpuyFn8mMFDbjZKSXKPHyDB699ZOW8ntHmV186ZmzuzRQylSqOeRLvGpQ7Rtm9avt3ovAAAAnkYEmCTJiImONiR7mnRpPf7iW+xpQ9LYJSPu8oWrzoeeCciVO7OH5Lx49oLzL16MpFeggC6Xf/m8MtsPH9TGjQUK6IUX9JGzjyR9/HHqIGfXroqU34IMvSXp3XctHQsAAICnFAEmSbIHp01jl5yXTp/7q1/kcl29fM0lyebt4/3wEUXjzu07hmTz+v9PwGSdujmmqLMkjR8vqWdPLVO9s44cOnVKy5e//rr8/NTlUPf4VGn100/69luL5wIAAODpQ4BJkjzzlSjiZ5Pr2uo5q8P/9BZ5rtMrV4TFSfbA7DlCHvpXu/v9olUXnZJHjtw5/urtM5iiYUOtyNApSr5auVLHjtWtq6zZPUbF9ZSkUaNCQtShgyIM/yVZekrStGnWrgUAAMBTiACTJNlSVWtcPbVdrisLe3acdjjy/z9/b+/4Lu9vjjJkT1ml1nO+D64bd/ZOadN+2mmnbN6FX6qVnQCzlKenGnRMM1/NZBiaNMlu12uvabra3fZKq61b9f33ffvK11dDbvdSx45q08bqvQAAAHjqEGAJbGkbvtWnpL/NcF5Y2qVsqZcHf7Z6++HT58+fOrh15acDG5Ss0Oebay7ZvAt261c3pSTJuL7xg4bFcpbs+tWZeMPmGdp6aKe89JflOnXSBM/ehmzG9M91+3b79vIM9Bsd212Shg3LnFlbt2rJOn9NnaqqVa0eCwAAgKcOAfYrR6F+8ye9/IzDJtftg1990KFW6XyhWbJkL1CuTqdhSw/fdUn21JU+nD2gmFfC97tuhH399Z5rcYZsnhlrjvry45qp+Q0w62XIoGcbFPheL9gi7mrevMBAtWql8eoR5RWkdeu0c2fhwsqd2+qVAAAAeFoRYL/xDG0976cVg2uG+v2hpGyewcXaf/7DitcL+jx03R6QvXLnCd+FLe9ZNMC0nfh7vXrpfdtbt33SKSREUo8eumsPmuzqJEkjRlg8DgAAAE83T6sHuBfPTDWGrj7caduKL5eu+/HA6cs3Y31SZ8xZvFKdxk1q5Ev5UK16ZGoyfW+r7HnS+/LGl3spW1aTj1Z2ZLosP0l69lnVr6+Pvnq9u+cEx5IlOnhQ+fNbvREAAABPKQLsj7wzlW7Us3Sjnv/wbX7P5M9ryh48sly5HvryzTf11VfpvrC/2i5+skaN0owZvz3ncunmTQUHm7wQAAAATyeOIOLJV7Kk/vc/fRDbz2X31Ny5OnNGUni4pkxRfLtOypRJ+/ZZvREAAABPBQIMT4X+/XVKoUu8miouTqNHS5owQV26aOuRVIqJ0ZAhVg8EAADAU4EAe2zRNy9dvHDhwoULF29EW70Ff6VKFZUpo7ejBxo2u6ZN0+XLtWpJUruDrxs+vlq6lDfBAAAAYAJ+B+xxxazrnrv+3LuG5NNo8a1FL3sn2k/esGHD559/Hh8f/6gvPHXqlKToaHpQm9dFFp7dN/CV+qpatU8fNWqUd4NvnaqRyzVhQqkPPqhaVevXp99RpkOpn8frww+1YIHVewEAAPCEI8Dc18SJE5cvX/6fX37t2rVEHJMcXbigPjUPbTcma/MqnTzZoIFn3rwafHhgVS3XxInq12/QoJTr1+vVI/0P+U7T4sUaPFgFCli9GgAAAE8yAsx9TZo0qUWLFv/hhW+++eapU6cyZcqU6JOSlwwZdD1b8SOn8uQ5e0TLltlffrlPH7VvX2p7QOVSdzZpypQX+vevUEGbN2fYU65NkZ8mafhwzZlj9WoAAAA8yWyGYVi9IXkzbp7cdTzcaUj24FwlcqZ2g08FK168eFhY2EsvvbRs2TKrt1jso4909s1PJqqbypXTli1xccqZU8+e3bBeVRUSotOn1/3gW6OGiqY5F3Ynp5xOHTyo3LmtXg0AAPBUaNWq1Zw5c2bPnt2yZUurt5iHm3A8LluqHCVKlS5dunTpkm5RX/i9Dh200K9NuNLop5+0ZYvDoR49tEFVDgaW1dWr+vzz6tVVsqR2h2c5WPJVOZ0aNcrqyQAAAHiSEWB4kqVKpdqN/aaosySNHCmpc2cFB+utO/0kacQIxcYOHixJva4OVHCwvBPvJioAAADAHxBgeMJ166YJ6h5t89WKFTp0yN9fXbtqmeqdSVFA585pwYI6ddS9u6p3zKrwcE2caPVeAAAAPMkIsH8QHxF+4dTRA3t379q5a/f+IydOX7gW8cj3hYeFihdX/kohs4zWMgyNGSOpZ0/5B9jeiegnScOG2QzX+PHq29finQAAAHgaEGB/IurCz4s+7te6Zpnc6QN8A9Nmzp6nYJFiJUqWKFYob67QzOkC/VNmyVfmxVcGTFiy7Vwk9zBxf/36abT6uGTX/PmSgoPVtq3mGc3CA7LpyBE9xr3+AQAAgEdCgD3EdX3blE7lsmcv16TPqNlrtx27ci/+D4FlGLG3zx/etuaL4T0als2RrdSr43684rRiLP6tGjWU68VcY/JNe3CPjb59ZfNyDI3sK0nvvSfuBQoAAABT8Dlgv4k9Oa99zbZzjsf8+n/GbR5+qTNmeSZLhuAUfr6+3h6u2OioyLs3rlw4d/bCtYg4QzLiru2c1bvyt99NWD2vU35fS+fjL9lsWrVKUtsHV7JkUdOmmvZFu/f8PgjavVsbN6pKlYdec+OGnE6lTWvyVAAAADzZCLBfRW0f2jChvmzeGcs06dihxUtVyhbMksLjz77ZFXXlyI7v134569NZa4/eiTu7vEeDN3JuH/+/IO5Dn2wMGKA5c3xGxfZ4TwM0bNiDALt8WenTS2XK6MYN7d2rp/7zrAEAAJCIOIKYwHV2xsAx+2IMm0emumO3HNwy65021Yr8RX1Jsvumy/d849fHr9q7d2n3ov42I/b4tEFTj3ESMRnJk0d16mh8fNdon5TatEk//SRp1SplyKABA6SCBXX9utq143QiAAAAEhEBJklynVu28McoQx5Z2k2f3aN4yn/9RpZ3trpjFr5X3tdmxIQt/foUBZasDByoOwqcaLwmSR99JClLFnl6auRI7Wg3RenSad06TZ5s8UoAAAA8QQgwSVL8oT0H4wzZQ15sVCnwEV/rkaNho1IOyXn8EG+BJRsREZJKldILL2h4TO84L3+tWKEDBwoV0ptvyulU0+5po8dNlaR+/XT0qMVrAQAA8KQgwCRJRkxMrCHZAlIEPPpvcdkDUwbaJSM2JpbTam5vzRrNy/e+UqbUt99K6t9f1xU8y7OdDEMjRkh65x0VL65fftEbW15S69aKjFSLFoqLs3o4AAAAngQEmCTJI3PWzB6S6/yusEuuR31x1N4dB+Ike7oM6fjndHurVyvssK+cTr3/vqQaNVSsmIZE9nN5emn+fJ044XBo+nR5eWniRG2qN15Zs2rXLg0fbvVwAAAAPAkoBkmSZ6HaNbN6yIj6fkT/xece5SChcXf7yAGzTjtlD36uYiFHki1EIunYUZ/ZOtyxBWnTJm3bJqlfP51X5iW+LeR06uOPJRUurLfekmGo3etBkRM/l92u997T7t1WbwcAAECyR4Al8CrdqXuFQJucZxe0Llv9jdnbL8X842uct46sGtWyXNUhW+8YNq/8HV6r6m/CUjyeggVVplrgVKOjpITcatRIuXJp8N03DZtdn3+uixcl9e+vkiV1+rR6f11ZPXooLk4rVli7HAAAAE8APgfsPo9nu04ZuaFS11WXYi9sHNm6zNheOUuVL1+6aN7sWTNnSBPk7+Pj5WnERUdHRVy/fP7cqWN7d/z0488HLke6DEn2lM+9PX1ASW+r/xL4V/r21avrevayjXN89ZVOnPDImbNPH3XunHtDYIOqt7/UmDEaOdLTUzNnqnhxzZypSbdGeFSqpIoVrR4OAACAZI8Ae8CRu+OijT7dm/Wcse+Wy4i7cXzLiuNb/vlND3uKfM1GzP6kczHe/kouqlRRumKZ5oY1f9U5U2PHauLEV1/V0KHqf3FAVdtXGj9erVurYMF8+bRmjSIi5OHrpbp1rV4NAACAJwFHEH/PN2/rz3Ye3Trr7ZbP5wjy/Pv7Ido8A0Ofazbw881Hds/pUizo0W+eCAv16aMRetMlu2bM0LVr3t7q0UNhKrY8YxfFxqp164TbHlasqNq1rd4KAACAJwjvgP1/niGlWg2Z3WpI3K1T+3aG7T968syFK9dvRkTFxsvh6x8QEBCU9pmcuXPnKVC4QLaU3HQjmWrcWAMH5llzpmatyFWaMkVvvdWli4YPV4sLH4Vn/sZnzx4NH6633rJ6JgAAAJ40BNhfcaQMLV4ltHgVq3cgKXh6qlcvfdB7UE3bWvv165ICA9W1qz780P/dTNOGX6isoUNVq5aKFbN6KQAAAJ4oHEHEU6prVzUbX/bszxcT7oUoqWdPBQVpxLaKx6t2VXy82rX7889fbtRIWbPq8mVT5wIAAOCJQIDhKeXlpe7dla1UiOz3/1cQEqLRoyWp8s6PnKE5lXAQ8Vfbtil//l/vRX/2rNq3N38zAAAAkjsCDPhNu3aqXl3nb/i9m22m7HYNHaqwsISnLl3SoUNq21ZXB41TcLBWrdK0adauBQAAQLJDgAEPmTpVKVLo/W+fO1mti+Lj1bZtwkHEevX04ou6fl3t386oTz6RpH79dO2axXMBAACQrBBgwEOyZr1/8PD+QcS9ezVsWMJT06YpdWp9/bVmRTdRrVq6fVvvvmvhVAAAACQ7BBigq1d1d8aX+uKLhC+7dFGVKjob7vdBrpmy2/Xee9q1S1LGjBo7VpJ69tSlPqPkcGjqVB08aN1wAAAAJDMEGKDChRXdobtefVUHDkiy2fTppwoI0DvfPPdLjYfuiNiqlRo21O3bav1hHrVvL6dT/ftbPR8AAADJBgEGKGtWLXA2kmFo1KiEK6Gheu89SaoaNsKV/aGDiJMnKyREGzboi+zvKjBQK1dq/36rlgMAACB5IcAA9e2rj/W60+apefN09mzCxR49VKGCfrnsNyLvQwcR06bVxImS1GdEiCZPVr16ypzZwvEAAABIRggwQPXryzNntsXGy4qL07hxCRftdn32mXx9NXDVc2dqv3b/IGJsrKRGjfTWW+rcWWreXEuXKlUqS+cDAAAg2SDAAHl4qFcvfaQ3DNn0ySc6dCjh+rPP3r/NYZWdw//fQcShQ++fUQQAAAD+PQIMkKQ2bXQuTdFP1VExMWrbVk5nwvW+fVWunE5c9Pu40EzZ7Xr//YSDiAAAAMB/QIABkuTnp65d9aZGXPfJpG3bNGlSwvWEg4g+Pnpj+XPn6j50EBEAAAB4VAQYcF+3brKlDGobPUmS5s17cD1vXg0aJMNQ9d3DXTlyae9effjhn7z+7l2dOWPWWAAAACRLBBhwX8LtDbenr3vgwxX69NPfP9W/v4oX1+EzfuOLzZTdrg8++P1BxGPHFB4uNWmiXLm0b5/pwwEAAJBsEGDAb1q00KVLKjCgjgoW/P11T09Nny6HQ32+KnexQbffH0S8dUuFCqlCBbny5FNcnPr2tWg7AAAAkgECDPhXChdW//5yufTing+NHDkfHEQMDFT27DpyRNPTD1JwsNav15o1Vo8FAACAmyLAgH9r8GAVLKi9J/ynlJwuu13Dh+vMmYT/Sho4MlV038GS1KeP4uOtnQoAAAD3RIAB/5aXl2bNksOhbouev1a1uWJi9NZbkurWVeXKCg/XB7deU65cOnxY06dbPRYAAADuiAAD/tKePYp6f7RefFG3bydcKVpUvXvL5VLTE+/L21tz5yosTNLw4bLZNGqcI7zvcEl6+23duWPhcgAAALgnAgz4cydPqnhxbRu1WWvW6M03H1wfMkR58mjTyaxbirwml0sDB0oqWVJNmig6Wv22NlCFCrp6VSNGWLcdAAAAbooAA/5c5szKlk2db4+I9/TRp59q48aE6z4+mj5ddrsa7h7sSpla69ZpwwZJw4bJ21tffKGjHUbJZtOYMYqJsfRvAAAAALdDgAF/zttbn32mY7bcwzRAhqEuXRQVlfBUuXJq2VJXYlN9GdpPkvr2lcuVLZtee00ulz7cUEoffqg2beTtbeVfAAAAAO6HAAP+UqVKeuUVDY0feDygqI4f15AhD54aOlTe3mqzt1dsuizau1cLF0p66y01aqR69aT+/fXJJ9YNBwAAgJsiwIC/M3q0gtN5toiYatg9NHq0du1KuJ41q7p0UaTLZ1LIu5I0aJBiYlKm1KJFql/fwr0AAABwawQY8HdSp9a4cdqhkpMcPRUfr7ZtFReX8NSgQQoKUt/9r9wLLaBTpzR1qrVTAQAA4P4IMOAfNGmiOnX0ZszQK/7ZtW+fZs1KuJ4mjfr2lVMebzuGSdJ77z24Wz0AAADwpwgw4J9NmiSPQP8mUTNd+QsqZ84H13v3Vvr0+vhY7WsFKik8XCNH/smLz57V+fPmbQUAAIAbI8CAf5Y5szZuVP9VFewH9qlixQfX/f311luS1PXOcNls+vjj37fWwYOKj5dKllTRorpwwfTVAAAAcDsEGPCvlCihGjX+5HqHDsqVS1+eLXWqaANFRem99xKuL12qAgXUt69UtqzCw9W6tVwuUxcDAADA/RBgwGNxOO43V+vzH8rh0PTpOnRIUt688vDQpEn6ZcA0pU+vTZs0erTFWwEAAGA1Agx4XI0bq3Rp/Xj12d3F28vp1KBBkvLkuX/HxH4fpdXMmbLZNGiQtm+3eiwAAACsRIAB/9W2bbp+XZLNpuHDJanJ4XeNgBRatkw//ijp/feVIoWWLNGP/tXVvbvi4tSihSIirF0NAAAACxFgwCPbtElti+9VmTJq0CDhSsWKqlJFx2+HbCj0uiT17SvDCAnR669LUr9+cg3/SIUL68QJ9e1r3XAAAABYjAADHtmOHVoUlvOmI0Q//KBVqxIujholu13Nw/o606bXtm1avlxS377KmFE//6xxU7w1Z458fDR16oOXAAAA4GlDgAGPrFs3pczkPyRuoCQNGJBwe8PChdWokcKjAxbkHCxJ/fsrPj4gQDNmyGbTgAE6oAL66CNJ2rLFwvEAAACwEAEGPDJ/fw0erMnqct4Rqv37tWhRwvVhw+TlpfbbO8ZmzaWjRzVjhqRq1dSunWJiNG6c1L27duzQu+9auR4AAADW8fznb4ld26NY9zUxj/fneNecEDa+htfj/RDAbbRrp1GjvN45OXi62untt9WwoRyO0FC1b69JkxzjQj7od6ax3nlHzZvL33/MGKVKpUaNJEklSlg8HQAAANb5FwFmRFw+eeJE9OP9OT6XI4zH+wmAO3E49O67erXVKwMco3IeP6yZM9Whg6R33tHs2Xpzx8udC5RNcWCrxo7VoEEBAffPHgIAAOAp9y8CzBb4TP4CBR73HbBnAm2P9xMAN9O8uUaN8hiwd+hiNdK776pFC/n5hYSoZ0+9/75tgG34RL2gESPUvr3SpbN6LAAAANzCvwgwr2qjdu4flfRTgOTFbteQIapfr+FeR4nCF3fqyy/VurWkN97Qp5/qk/3Pv13ixZCdqzVsmMaO/fMfERWl8+eVK5epuwH8H3t3GVZV1gVw/H/upZUQVCws7O4uVBATOxHB7hhbx45x7G5RR3TsbhS7FXNsX1tsUVTy3vN+ABls50qIrt+nce99zlnb52EeF3vvtYUQQoiEI0U4hDBcrVqULKV0UGeGONekePHIRktL+vcH6PByDFots2Zx48ann+/UiezZIwvWCyGEEEKIX0HcJ2AhLwIe3H/w7K0+zr8kRHxTFHbsYNm1omY7N5I9e3R7x45kzszaa3lvlGpOWBiDBsV8av58GjXi1SsoVgxVpXVrHjyI99iFEEIIIUQCiPMELOxAv0IO6TKU/+NMRFx/SogEkDQpGTN+2GhiwpAhAO7/G46ZGcuXs21bdO/WraxcSY8e0K4d1avz9CmenpGXiQkhhBBCiJ/bdydg+tCXTx8/+px759et2PtURXf35l1dbMQrRCLh7k6BAhy977DfeQSqSqtWPHsW2TV6NObmeHuzdp2CtzepUuHr+9lzYkIIIYQQ4idieAKmPjs6rWXp9FYWyVLYp/och3yNF1yNUNHYprCT42biV6LRMHIkQIMjv0WUqUBAQGSdeiBHDkaPBmjfnkdqShYuRFEYMIAzZxIuXiGEEEIIER8MzYrCzo1zc+2+8PDdN/qv3u+laJKV7OBZzNjATwmRmISFRa90Va+OkxOPn2qmFFiIlRXr1rF0aWRX1644OfHkCe3agasrHTsSGkrTprx9m3ChCyGEEEKIOGdYAqY+Xjnkj8Mv9SiaZDldmnXo0rZ+4ZRaBY11oUZdu3fv3r171/ZNyqY3U1BMsjWbeeDcrj75TWI5ciF+OL//zs0STXBw4MqVyJZRowAGe2d8PGAyQKdO3LkDaDT89RfJkrFhAz4+MG4cuXNz6RL9+iVY9EIIIYQQIu4ZlICpgb5rdr1UUcyLDd19YofPzKlzVu1Z6JlaowYnKdF9wqRJkyZNmbVs74ktvYomCb/uu+Vy+DdcNyZE4hYczNixbD2bluDg6LKHJUvi7s7btzTY6qXWq8/Ll3h5RdbbSJeOCRMAOnfmzhNzli7FzIy9exNuBkIIIYQQIs4ZlIBFXDlzIVhFSVKpQ/sCSSLbLMtXLZuU8NOHjr959+qUFUctHlzS9MnWfn1WPvrqRkUhEjdzc7y8GKXvH6q1YPVqjh+PbJ82jbRp2b+feYVmkSoVfn5MmxbZ5eVFrVq8fMmwYZA/P2fPsn17ws1ACCGEEELEOYMSMP3Tx8/0oEmdM7uN8q7RLFuuzEZq6PUrt/4td2ico3XX6tbq0w1j51yQIojipzdkCIHmqSfruqCqDB4c2Whjw+zZAD1GJX8wdC5A375cuBDZO28eLi6ULw9AtmykSZMAcQshhBBCiPhi2BkwnU4HaJIkTfLv85p0GdJplYjbN27HuPBLsS5ZLr+xGv7P1m03JAMTP7s0aejQgTH0e22cjB072LMnsr1GDZo35+1b6i+uqbZsRWgoHh6EhQEpU7JjBx4eCRq3EEIIIYSILwYlYJpkdsk0oHvy8Mm/WZWSNH2G5Ir6+uL5mzFSLU3yFHYa0N26fksSMPEL6N8fvZXNmPCeAP36oUZtvp02jXTpOHKEGdmmkDUrp08zYkRCBiqEEEIIIRKCQQmYUbY82Y0V9I+PHLzy73KXNlPWTEZEXD5+6tW/B77UwBcvVVBDgkPkFJj4BSRPTvfuTKb7c5NUHD/Oli2R7dbWURsRew9NcmvoIrRaxozh6NEvvevx47iPVwghhBBCxCuDEjAlRQWXQiYK4ecmdRzmFxAe9ao0efMk16hvfBcsvaWPGqm/s2HtsTDQpkqbShtLIQvxY+vZEzO7JEPDBgBRlzEDUL06LVoQEkLT6aXUnr2IiKBZM16//vRb5s/H3p6ZM+MlZCGEEEIIEU8MOwOmzdKie50UGvSBB0dWzuxQacK5CMCkqGul5Br1zd4BdTvM8T113n/3gm4NB/q9VtEkL1M+j5SiF78GKyv69WMuba+mr0z+/DG7pkzBwYEjR5hiN5z8+fnf/+jTJ+aAw4cZM4bwcHBwAOjVi8uX4zN4IYQQQggRpwxLwFCS15/i3TaHmQJqyNPbAa9VAMuqvboUNFXUoDNz27sUyVe4cuvpx1/oUSwKd+5S2SI2wxbih9a9O4v+NrXz92XOnJjt1tYsWICi0G+wyY0RyzAzY/bs6G2KwLhx9O/PqFFQpQpeXgQH06wZ4eHxPgMhhBBCCBEnDEzAQElZfcahg4v6N61UKGsaK+PIavTG+XotmVbbwViJMc4iu/ucZb3zG393qEIkGkZGNG6Mnd0nupyd8fIiNBT30bn0Q4ejqrRpw7Nnkb29eqHRMGoUJ0/C1Kk4OuLvz+jR8Rq9EEIIIYSIMwYnYIDGtrDH6KW7Tl3aP7jou/2FZjnbrL5wbtOMIT3aenq2/W2U9+4L/n+5ZzGJjViF+DlMmkT69Bw9ykSlJxUqEBBAmzaRXaVL07kzERG0aEGIUVIWLUKrZeRIjh1L2JiFEEIIIUSsMCgB013Zuerw3eDPlDXUWOWo3nHoxDkLF86ZMMDLKZPsPRTiPVZWURsRfx+sudp/IVZWrFvH0qWRvX/8QdasXLzIqFFQpgzduhERgacnwcEJG7YQQgghhPh+BiVgEefne5TJnCaXa/sxK47dl/ryQnzdkyc8fx79p8qVadWK0FCa9M+omzAZoFMn7twBLCxYvDiqTP2JEzBqFLlzc/ky/fsnVOxCCCGEECK2GLwFUY0IvLxjXXX/oAAAIABJREFUTv/GJTOmzVO907hVJwJCYzMuIX4WN28yaqSq5s5Dvnwxc7AJE0ifHn9/xj31on59Xr6kZUv0eqBkyah1rxYtCMGMJUswMWHx4oSbhBBCCCGEiB0GJWDa7C6NyjtaaRVAjXh+cevMPg2LZ0ibt2aXCWv9H4XFcohCJGqzZvH7IOWKcR7u36dLl+h2Kyu8vVEUhg7lUtdZpErF7t1MmxbZO3Ik2bNz6RITJkDBgvj6smFDAs1ACCGEEELEGoMSMKO8rRftvfbw9tHVk3rUL57OQqOAGv7swubpveoVSZ+ugFv3yevPPJZETAigdWvMzan2YH6EuSXLlrFmTXRXpUq0aUNoKM26JdfNnAPQv3/kxV/m5ixahIUFISEAlCtHuXIJEr8QQgghhIhFhldBVMzTFqvXfeKqo7cfXt/n80fHmgXsTRVQw56c3TilR51C6R0K1f1t6qZzT+UKI/FLy5aNIUO4Sabh5n8AdOjA48fRvRMn4ujI6dP8ealW1MVfnp7odECJEjx7xogRCRW4EEIIIYSIfd9Thv7dKywzlW3Wb8bG0/cCLu5cMLSlcw5bYwU19PHpdZO61SrgkL5o/d4ztl5+KbU6xK+qVy+KFmXk846X07vw5Ant2kV3JUnC3LkoCsOG8U+byaRPz7FjjB8f2WtmlkARCyGEEEKIuBELCVg0o2Q5nFsOWbDzUsA9/00z+jUrl9lKq6ghD0+uGd+53mBf2ZIoflVaLQsWYGyiVLs3V2dhyfr1rFwZ3VuxIu3bExZG805WEXMWoCgMGcKFCwkYsBBCCCGEiCOxmYBFM0lZwLWJp1crrzqF7LRKXHxBiEQmb1769+emPsMwy/EAnTvH3Ig4blzURsQxJyvTujWhoXh4EP6Z7buHDpEmDT4+8RK4EEIIIYSITbGcgIU9Pr9t3tDWrnnTpMpZucWgxSee6lRAMbKyTiKZmPi1DRhA3ryMfNTmemYXnjxhx47oriRJmDcPRWHECP7xGk/69Jw+zbhxMR9/9Ijz5wF484aAADp04Nq1+J2BEEIIIYT4XrGSgKnBD05umNHfo2L2VGnzV2s7bMGOC0/CVFA0SRxKNuw1Zd2JO7fnVTWJjU8JkWiZmODtjYmpMqHI3yxeTIMGMXudnOjQgbAwPLta6eYvjDoWFpVyATRuTMGCHDgALi40acLr1zRuTKjcvyeEEEIIkZgYfcez+te3jm5dt2bNmrXbjt4O0v1bZEMxTZnPuV7jJk0a1SydyTJOdjkKkRgVKcL9+1hb22Lk8XHv2LFs387Jk4z3r9i3XTtmz8bDg+PHMTYGKlRg715atuTMGZLMncupU/j707s3U6fG+zyEEEIIIYSBDMqO9Ld3jO1cp2h6e8cyjX6buPLQraCojYY2WSu2GDR3+4UH989smtmvaVnJvoT4gJ0dRp/5vUf0RsQhQ7jcejyOjpw5w5gxkb0DB1K4MNev078/JE3KsmWYmjJtGmvXxl/0QgghhBDi+xiUIIWfWDBkxvqT99/qVSI3GpZo0HPy2uN3Aq7uXjS8TZVctt+zsCbEr6tiRby8CA3Fq3MS/Zx5KArDh3PqFGBkxIIFmJgwfTq+vlC4cFRu1qoVN28mcNxCCCGEEOLbfMcKlWKSIl/1DqN99l4LuHVk5fhudYqklkuLhPheEyeSLh1HjzL1vBMdOxIRQatWhIUB+fMzYACqStu2BAVBt264uREYSJMmny2ZKIQQQgghfiQGJWCajNUGzN12/sH9s5tn9m9WLrNsNBTCEKGhvHgSQenSeHigRp2itLZm9myAgQO50W4sWbJw9iyjR0f2DhxIkSLcukXfvqAoeHtH3d3s759QsxBCCCGEEN/OoNTJuIjnoDauue2MYzsaIX4pdergmEmvu3SVJUvw9o5ur16dZs14+5bWXS3UhYvQaBg1ipMnASMjvL0xMWH2bHbvBltbfH2ZM4eiRRNuHkIIIYQQ4lvJ2pUQCSZTJl68MRmRYirAb79x505015Qp2Nuzdy9zLpSmc2ciImjRgpAQIG9ehg9HVdm6FYBs2WjbFo38LAshhBBCJALfUC0jbHf/iv12hQImZYZun1TdMkbLNzOtPMbvj0pyFZgQMYwezcaNDLvapFmBdVnPrMLLi127UBTAzo5p02jYkL59qX78D4dt27h4kVGjGDEC6NOHggUpWTKhJyCEEEIIIf6jb0jA1Bc3Tp08GQKYpnoa8X7LNzPL9EL9+ighfimRx71q1KDSlZk3k+/X+vkxZw7t20f2NmhAvXqsWYNXJwvfRYuVcmUZM4ZatShaVFFwcUnY2IUQQgghhCG+pV68uV26dOlCAFO7JBoAJWkqxyxZ/tsKWKqkiiHxCfFzq16dpk1Ztiz5SMfpQ542oE8fXF3JmDGyd9Ys9u9n924Wu5f07NqVSZNo0QJ/f8w+X3E0IgK9HhNZbhZCCCGE+BF9QwJmWn3WtbuzYraYuE69cC2uIhLiFzN1Krt3M/RC/eZFG2U+sYJ27di+PXIjYooUTJiAhwfdu+PiPzrNjh1cvMjw4dFFET+hXDnu3uXECVKlir85CCGEEEKIbyMH94VIYHZ2TJ0K4Hx5mt42OTt3sn9/dG/z5ri58fIl7bqZsWABWi1jx3L8eMw36PU8fhzjdffu4e6OXh9vUxBCCCGEEN/IoARMd2XnqsN3g+VQlxCxo2FD6tThf0EpVtdZSoMG5M4ds3fmTJIlY/Nmlt8qQY8e6HS0aEFwcPSArl1JkwZfXwDmzydVKnbv/tIqmRBCCCGESCAGJWAR5+d7lMmcJpdr+zErjt0PkURMiO82bx4jR1J2hAsrV5I8ecyuNGn480+ALl140m0kuXNz+TJDh0YPyJIlKil7+hTs7Vm2DK2WIUPw84vfSQghhBBCiK8weAuiGhF4ecec/o1LZkybp3qncatOBPynohxCiPfY2TFwIKlTf7q3dWtcXHj6lK69TaM2Ik6YwKFDkb1du1KxIgEBeHigquDkRJ8+6PV4ePD0afzNQQghhBBCfI1BCZg2u0uj8o5WWgVQI55f3DqzT8PiGdLmrdllwlr/R2GxHKIQQlGYOxdLS5YvZ+394vTti05Hs2YEBgIaDYsXY2vLtm3MnQvA8OGUKcP9++9yMiGEEEII8UMwKAEzytt60d5rD28fXT2pR/3i6Sw0Cqjhzy5snt6rXpH06Qq4dZ+8/sxjScSEiEUZMjBqFECnTjzvNoySJbl9m9atI3vTpYtKvbp358IFMDJi2TLs7Ni2jcmTEy5qIYQQQgjxHsOrICrmaYvV6z5x1dHbD6/v8/mjY80C9qYKqGFPzm6c0qNOofQOher+NnXTuafhsRiuEL+QsDBGj+bUqeiGTp0oV46HD/mtjxE+PlhZsWYN3t6RvfXq4elJSAgeHoSFgYMDCxeiKGzenEATEEIIIYQQH4qFMvQay0xlm/WbsfH0vYCLOxcMbemcw9ZYQQ19fHrdpG61CjikL1q/94ytl1/KNighvo1OR/v2rB7gz8CB1K7Ny5eR7RoNixaRJAmLF7PxQmbmzQPo2pXLlyMHTJ1KliycPs3gwQDUrMnhwyxZkiCzEEIIIYQQH4vNe8CMkuVwbjlkwc5LAff8N83o16xcZiutooY8PLlmfOd6g31lS6IQ3+b1a7y9aTq5WFD+Mty7R+/e0V2ZMkWVP+zcmZdVGtK8OW/e0LAhISGApSU+Phgbs27duwdKlCBNmnifgRBCCCGE+LQ4uYjZJGUB1yaeXq286hSy0ypx8QUhfmbW1vTqRbhO0/TtfMzMmD//3SVfAD16ULw4d+/StSvMnEm2bJw/z8CBkb3Fi3P4MBs3JlDoQgghhBDii2I5AQt7fH7bvKGtXfOmSZWzcotBi0881amAYmRlnUQyMSG+2ZAh5MzJ5mvZ95QZhKrSti2vX0d2abUsXUrSpPz1Fyu2JGXZMkxMmDQp+qxXkSJkz/75V1+/jk4X9zMQQgghhBCfECsJmBr84OSGGf09KmZPlTZ/tbbDFuy48CRMBUWTxKFkw15T1p24c3teVZPY+JQQvwZTU2bPRlGosb9PSO7C3LrFoEHRvY6OUVczt2/P3ZSFGT4cVaVVKx4+/Mp79+0ja1acnaPPlQkhhBBCiPj0PQmY/vWtwysn9WxUJrN9+mK1O49ZsufqiwgVUExT5q/R4Y+l+64H3Dq8YlzX2oVTm8VWwEL8KsqVo21b3oYZtdF6Y2zM1KkcPBjd26ED1asTGEirVqi9elO5Mo8f4+n5lVu/HB1Jm5Y9e6hQgYCAOJ+DEEIIIYR4n0EJmP72jrGd6xRNb+9YptFvE1ceuhUUtdHQJmvFFoPmbr/w4P6ZTTP7NS2byTJOzpgJ8YsYO5Z06fA5l+9UpT7o9bRrF51fKQre3tjb4+vLjFkafHywt2fHjo9v/QoIiJGUpUvH8ePkzcuZM5QqxZUr8TgbIYQQQghhWAIWfmLBkBnrT95/q1eJ3GhYokHPyWuP3wm4unvR8DZVctkaxXKYQvySrKyYPh3A9dAgXe58PH1K+L8X66VMyZw5AL17c+GJfdStX337cvx49Jg9e0iblkaNiIh415QmDfv2Ubo0t25RqhSHD8fffIQQQgghfnnfsUKlmKTIV73DaJ+91wJuHVk5vludIrLRUIjY5uZGq1aY25i+2nWc69cxMfmg18vr3eXLlarSuTPh4TRrRlBQ5ID06bGxYdUqvLzQ6989liwZO3dSowbPn+Piwtat8TsnIYQQQohfl0EJmCZjtQFzt51/cP/s5pn9m5XLLBsNhYhD8+dz5w7JUpliaflxb/Tly8OHw7hxFCjA9ev06BHZ6+jItm1R94O1bh1jL6KFBevW4eXFmzfUrs22bfE1GyGEEEKIX5pBqZNxEc9BbVxz2xnHdjRCiP8qaVIWLUKr5Y8/2HfUlKVLsbBgwQL+/jtyQPHibN9O0qQsXEi3bjGeNDJiwQL69ycigkuXEiR4IYQQQohfjSEJmPr88gG/3bt37zn3UG4TEiLhlS5Nnz7o9Xh58SpdLiZOBOjYkVu3IgeUKsW6dZiZMW0aPXvGeFJRGD2aBw/47bf4D1sIIYQQ4hdkSAKmaE6Mq+5cuXLVvluef7HitRAizty7F/NPw4dTtCg3b9KjB7RrR6NGBAbSqFF00Y7KlVmxAmNjJk5k5Mj3X5UqVXwFLYQQQgjxqzNoC2IShwwpNKC7e+uuLIEJEZ/0eo4cQT9rDg4OjB0b3W5kxOLFmJvj7c3q1TB7NhkycPx4zGSrVi18fNBqGTxY7gATQgghhEgYhp0BK964YRYjRXd1y5ZLEV8fLoSILQsXUqoUs/bmRFEYNAh//+iunDkZMwagQwcehtiwZAlaLSNHsmdP9JiGDVm3jpEjZdFLCCGEECJhGFa/0LzUkEWDS9nozk7qMsH/dSyHJIT4rOLFMTam25pyDxt2JSwMd3fevo3u7dKFqlV5+hRPT9QyZRkwAL2eFi14/Dh6TM2aDBiAonzmA0FBuLpGnSITQgghhBCxzcAC8oplid+37ZnVJNWpARWK1x/y156Lj97qv/6YEOL75MlDr17odNT45081bz4uXaJPn+heRWH+fOzs2LGDOXNg8GBKl+buXcqW5fbtb/rAy5fs3k2fPhw8GFdzEEIIIYT4hRmUgIUfm9KiSdO2Y/bosuZMGXJpzfAWFXOntrKwtEuV1uEzsnbYEhrbsQvxSxo8mGzZOHXBdFrJZZiZMXMmmzdH96ZJw9y5AD17cuWGEevWUbAgV69StiyXL3/97enS0a8fOh0eHtG3OQshhBBCiNhiUAKmv3to5fLly5cvX77xxMPwyEKIqi709fNHD+59zrPgWI1biF+WmVnUxV89vXPfaTMCVaVVKx49ih5Qt27UzsRmzQi3ScH+/VSqxN27lC7N0aMfvO3tW/r25ciRGE1DhlCkCDdvxlxbE0IIIYQQscLIkIeUZI6FixT5Tytapo7JPnfmRAjxH5UsSc+ejB1L5a2/XSq/TbvPj/btWbcuesD06Rw4wKlTjBrF0KFJ2bKFJk1Ytw5nZ9auxdk5euSpU4wdy4wZbN9OmTLAu4qKhQszZw41a1KtWrzPTwghhBDip6Woqlzl9bMpXLiwv7+/m5vb+vXrEzoWEVdCQylalPPnGdLq3tC1+XjzhqAgTEyiBxw8SIUKKAoHDlCiBERE0KYNixZhasrSpdSrFzlMVWndGm9vrKzYtYuiRd89P3YsffuSJg3nz2NrG+/zE0IIIcTPr3nz5j4+PkuWLHF3d0/oWOKPgUU4hBAJy9SUxYsxMWGhbzqOHOHQoZjZF1CmDD16EBGBhwevX4OREd7edO9OaCiNGuHtHTlMUZg7lyZNePUKV1cuXXr3fK9elC/Pgwd06RK/MxNCCCGE+JlJAiZEYlWwIIcPs2ULZM9OkSIfDxg5kvz5uXaN2rUJDQVFYdIkxoxBp6N16+ha81otf/1F7do8f06TJoRG7i7WaFiwgCRJWLYs5m1jQgghhBDie0gCJkQiVrgwefJ8ttfUlLVrSZ2a3btp1IiIyGvT+/Zl2jQUhZ496dcvcqSRET4+ZM/O2bMMGPDueUdHFi+mTh0yZozTWQghhBBC/DoMKsKhu7Fj/vbrEf/pO1lcW1dx1BryNSGEwTJnZudOKlRgwwa8vFi8GI0GOnfGxgYvL/78k6Agpk1Do0mShCVLKF2aSZNwdX1Xp6NevejTYkIIIYQQ4vsZlIBFnF7QvfOqkP/yiFmDVZ6SgAkRL968IUmS6D/lycPWrVSujI8PVlbMmAGAuzvW1jRsyMyZBAayaBHGxkWLMnQoAwcydWrMQolCCCGEECLWxPkWREWjNTIyMjLSShV6IeJDZNHCtm1jthUrxoYNUZc2//77u9aaNdm2DSsrli2jbl2Cg4G+fZk0iSFD4j1sIYQQQohfg0ErYCZOI/wOdtN/plcf9vrZ3YuHty5dvNb/cTgWOZrPXjurWTbT74hSCPFVa9fi7s6KCclqGhkxbx4uLtSvH93r5MTKldSrx6hRWFrSty8AFSrg50fVqmzejKsrGzdqra27d0+oGQghhBBC/PwMu4jZLnvJ0tm/OKRKbY9ufY+Ma1J7gO8/izydQ00OL2mQVip+CBGngoPxGJDu5u/jbQZ0pE0bihfHwSG6t2ZNFi2ieXP698fGhnbtAChcmL17cXFh/34qVWLnzs/e+qXTMXw4hQtTq1Z8TEYIIYQQ4mcUhzmRxq5kn+XzPRy0asSdFb+N2PU27j4lhKBuXerVIzCQBn4dqFmTwEBatkT/3lJ106bMnw/QsSN///2uNVcuDh4ka1ZOnXqXln3Ko0cMH07jxly+HGeTEEIIIYT4ycXtopRiW7VjsyxGoAvY7XsuPE6/JYSYNQt7e3btYlHZBaRKxa5dTJnywRgvLyZORK+nRQs2b37XmjEjvr5YWrJ6NStXfvrtadLQsiXBwTRrRrj8OAshhBBCGCKudwUaZc+dw6BtjkKI/yxFCubMAeg0NMX9kQtRFPr35+zZD4Z1706/foSH07Ahe/e+a82QgfHjATp14tGjyLYVK8iQgYMH342ZMgVHR/z9GTMmrucihBBCCPFTiusETA0JCVFBMcmVP4dxHH9LCIGbG82a8fYtDRa4qu3aExpK8+aEhn4w7I8/6N6d4GBq1eLEiXetbdrg6srTp9EbER894s4dmjUjMBCApEmZNw+NhhEjOHo0vuYkhBBCCPHziOMETH22e8eJcFBsUqeyiNtPCSEizZiBgwNHjjA53Xhy5OD8efz9Px42cSJeXgQF4eLCmTMAKArz52Njw4YNkRsRO3akRAnu3KFNm3ePOTnRtSvh4bi44OsbX3MSQgghhPhJxGUCpn9xanqrPute6FFMchfMJQtgQsQLa2vmzUNRGD3Zgu3bWbaMEiU+HqYozJtH/foEBlKlClevApA2LWPHQtRGRCMjli6NOhrm4/PuybFjadaMoCCqV49RykMIIYQQQnydQeezwvePrD1iX9iXhqhhL+5cunjjabBeBcXGxb1WarmJWYj4UqUKixZhZAQZMpAhw+eGabUsXUpQEDt24OzMgQOkTw+tW7N2Ldu3064d69dnzszkybRqRYcOlChBlixgbMySJaRJw7hxDBlCkybxOTUhhBBCiETNoARM//ic365dId82WDFK6zZhQjPJv4SIVx4e3zTMxIRVq3B25tgxqlblwAFsbRXmzydPHjZsYMUKGjVq2ZKdO1mxAk9P9u1DqwVFYexYSpcmZco4nocQQgghxE/FsAqFJlbJkyf/WgKmaM2Tpc9bselvAztWSieVEIX4UVlasnUrFSpw/nzU6lfURsS2benUiQoVsLefPZsjRzh0iFGjGDz43ZNubgkZtxBCCCFEImRQYmRaa/7dJ/NjOxQhRHxwdeV//2PrVrJkiW6ztWXzZvLnZ906Fi3C0zPGRsS2bdmwwcaGhQtxdmbsWAYNQpEVbSGEEEIIg8R1GXohxA/h5UvevgVAq+XaNcqV4+LFmAPSp2faNIAuXbh+PUZFxI0bWb4cqFiRpUuZPv2L2deDB7x6FXezEEIIIYRI7CQBE+Lnp9ORLRt58nDvHlFHvgICKFOG48djDnN3p1EjXr/G0xOdDtKmZdw4gM6defgQaNwYT8/PfyYoiGzZyJ2bCxficjZCCCGEEIlYHCRg4Q/2zx3UydO9RfveY5cdC/hisUQhRDzQasmZk5s3cXHh6VsLNm2idm1evKBKFQ4fjjly9mwcHDh0iPHjAWjdmqpVefYs+mrmL7GwoGhR7t2jbFn27YuTmQghhBBCJHLfkYCpL88vG9i4TPbUmdpvj86ygk+Oq1KoUvuRMxcv/WvO+L7upfKU6bX9kT42QhVCGG7jRgoW5NIlqlUjKMyUlStp0IDAQFxc2LUrepiNDQsWoCgMGsTJkwDMm0eyZGzc+PUrv7Ratm+nUaOom8WWL4/D+QghhBBCJE6GJmDqc78+TqXcR684dPVxUJga1Rp2bmKnIXsfRajRw/TPT0xs3HTmdd33hyqEMJyVFTt2kD07J05QuzahemP+/hsPD968oVYtduyIHunsTKdOhIfTogXBwTE2InbpErkRMdq9exw69P5nTE35+2969SI0lKZNox4UQgghhBDvGJiAvd0/rO3kM69VUDSmtsksIg/lhxyYPftUsKoYZagzcefZcwf/7lveToP6cu+o0duDYjFoIYQBUqRg61ZSp8bPj8aNiVC1LFxI+/YEB8coLQ8wbhx58nDxIr//DkCrVlEbEdu2jTnMy4syZRg9+v3PKArjxjF5MopCnz5064Ze1sCFEEIIIaIYloC93rVg2c0IFW36urPPPL4yobwxQNiJTdsCdGhsao2e0905X97Sjf9YPb2urQb9440r9ryJ1biFEAbInJmdO7G1Zf16WrdGVTTMnMmSJUydGnOYmRmLF2NiwuTJ+PkBMH8+yZKxaRPLlkUP8/REq2XgQAYO/OhL3bqxcCHGxkydSt++cTwtIYQQQohEw6AELOLSkeOBehTzcn0mts6bVHnXunvPPR1KUqf6VZNHtinJazavbqtB/9L/+JWIWAtaCGGwPHnYuBELCxYvZscOUBTc3Sle/INhhQrx++/o9Xh48OIFpEkTVZeja9fojYjNmrFsGcbGjB5Np06o6vuv8PBg0yYsLbl+PR7mJYQQQgiRKBiUgOkePXisA026IoXTRL9AfX7y2FUdGOcvV9I6+p4gsyzZM2hB//CBVOIQ4gdRujSbN9O8OQULfmnYwIGULcv9+3TpAkDLlh9vRGzYkHXrMDNj5kzatftos2GVKty5w8qVsT8HIYQQQojEybAtiHq9HlDMzM3/vZE19NQR/zAVbfrixdPGeKuqqoAaFhqqfvQaIUQCcXLir7+wt//SGI2GRYuwtGTp0ncVDT+1EbF6dbZuJWlS5s3D3Z2ID9a6bWwwNo79CQghhBBCJE4GJWCa5PbJNaB/cOtOdP358NO79z3To7EtXS5vjH9thd26cUcHiqW1pfKpVwkhfjRnz3L/fuR/Zs4ctfGwQwfu3oU0aZgwAaBrVwICop9wcmLzZiwt+ftvWrVKgJCFEEIIIRILgxIw41xF8lso6F9s89n0JHJhK2jP4tU3dShJy7mWtfh35Mvda3Y+14ORY3ZHo1gJWAgRl54+pXBhypQhKKpyadu21KxJYCAtW6Kq4OUVtRHR2Tk6TwPKl2fnTpIl49ixr33ijVTkEUIIIcSvy7AtiNYujavZatA/Wd2+Wuvxfy1fOKhxa+87OpSk5WpUjDoApr694zfBs4tPgB6MsjtVSPcddz7/SPSvbp/as2n5Xz6rt+z/50nY1x8QIlHYvJk7d8DOjkKFuHWL/v2juxYswN6eXbuYPh2ARYvIk4d//qF0aa5ejR5WogQ3b3LixBc/M348NjbMnRs3kxBCCCGE+NEZtiyl2NYZ+nu57b/tfRl40rt3C++oVuOc7fs3SqkA+htTnPL1OPBWVQGNbZVurfImlgWwiOcX/TZuPfjPnWfBJilyV2jUpGpOG21kl/7J/oldu/6x6txzXeS6n2KULJdbjz/H9q6e2SwBQxbie129Ss2apErFkSNKxgULKFKEWbNo1IiyZYEUKZgzh9q16dMHJyfy5EnJ/v3UrMmhQ5QsyZYtlCgR+R5r6699KV06dDo6dMDUlBYt4nhaQgghhBA/HEOXpYxydF2x5nen1MbRJ7s0VoV/m9GvpDkAqi4kJFxVASVJnjbec7zSJ4b1LzXozNwWRRzzunr1HjF+2swZE4Z1rJU3R5UxRwNVUB/v7OlSvc/ys++yL0CNePHPmiFupWqOPfFKaoyIRCxzZlxcePiQ5s3R585L//7o9bRuTXBw5AA3N1q2JCQEDw/CwiBZMnbupFo1nj/H2ZmdO7/1S40bM2kSej2tWvH333E1HyGEEEKIH5XnQthMAAAgAElEQVTheZEmZaXhu65c3rt81vg/Ro+fs+bY5UNjnGyj8jFFmzR11oIVGnSbtOXssdluaRND+hV2cVqdSh3+Ohuoj5FLqbpHuwe6eS25/Wh9z5bTzrxWFW2ynFU8fxs0bEi/Dg1KOpgrkUMa9dj8RFIwkWgZGbFiBQ4OHDzIxIkwYAB583L1KsOGRY+ZOpWsWTl9mhEjALCwYMMGvLx4/ZqaNT9Xa/7MmY/OfHXrxogR6HQ0b86qVXE2JyGEEEKIH5IqVFVV1Yhrk8slUQDFKEWR5kNmr9i4Yfns0V2qOloooLHJkSutVkFjV3aw38Pwf596c2WpZ3YzBRTjPANPhiZc+O8pVKgQ4ObmltCBiERm505VUVRTU/XcOVU9flzValUjI/XEiegBhw6pWq2q0aj79r1r0uvVnj1VULVadfbsD1547pyqKGr+/OqLFx99bOBAFVQTE3Xz5jibkBBCCCF+aO7u7sCSJUsSOpB4lRiWpuJD+Im5Mw69UdHY15x16NBfQ9s1rFmrUbv+U7cc39g1j6kaePnifZ1iV2vS8iFO9jFOs1lkazprWe/8JooafumvRYelJIdI1JydaduW0FBatCAsf1F69CAiglatou/2KlWKPn3Q6/HyelclUVEYP54xY9DpaN+efv1ivjBjRnLk4OxZatWK3sz4zsiR9OhBWBgNGuDnFy/zE0IIIYRIeJKAAaC75ud3SwfGhbqN8cpq8m+HYltx8CC3ZBpAk7pBpwZpPvoLMyvQtk0ZEwXdw4MHruriMWYh4sCECVH7DEeNgmHDyJqVc+e4eTN6wNChFCzI//5Ho0aEhLxr7duXhQsxMuLPP+naFb0+stnSEl9fMmbkwAEaNvzojuYJE+jQgeBgWreOl8kJIYQQQiQ8ScAA0N353x0daNOWKZtF+36XYlOybD4jwDhvkfymn3hWY1+wkIMGdA/u3JcETCRySZKwYAEaDaNH889NC3btYtcusmaNHmBiwvLlpEzJtm3UqsXbt+86PD1ZtQozM6ZNw8OD8PDI5rRp8fXF3p7Nm/H0jE7NAFAUpk9n7FgGDYqv+QkhhBBCJDBJwABQw0JDVVDMzc2UD/sUcwtzBVBMzT7ujBxgbq6AGhoSKnU4ROJXtmzUPsOHDyF9eipV+mBAtmzs20eaNPj64uoafWMz1K7N1q1YWbF0KXXqRCdnWbKweTOWlixdSrdu779Lo6F3b7y84nhOQgghhBA/CknAANAkT5lcA7r71//35sM+3c1r/9MBunu3731yhSvs7u0HetDYprCTv07xU/jjDx49+jjz+leOHOzZQ7p0HDhA1aq8evWuw8mJ3btJkYItW6hYkWfPIpuLFGHdOkxNmT6dP/6I8/iFEEIIIX5YkjEAYJyneOGkCmrQ9rk+/3svy1Jf+M5bfj0CiLiwcdP1T2RgL/3W7nqhRzHPXzhnYrltWoivSZ78KwOyZePAATJl4tAhKlbk+fN3HUWKsH8/6dNz7BjlynHvXmRzpUr4+KDVMnAgjx/HYeRCCCGEED8yScAiWbo0c7PXoAb59XVrM//og7d6IPzFpY2D63t539YpiqIQemJct1mXQt57Tv94W//eywL0KJbla1VM9sktikL8pDJmZO9eHB05dQpn5+jlLsiRg4MHyZmTixcpV44bNyKb69dn9WpGjCBFis+/9MULSpakf390cqRSCCGEED8hScAiKTbVBw2ubKtBfXNhYZuS6aytU6a2tUye222k3yOdJk39md5tMxupT3d2L+/UfsrG49cePHl858KexQPdStWbfTlMVYyyePVulFryL/EzO3uWXLlYujRmW/r07NlD1qz4+1O5Mk+fvutwcODAAYoX5+ZNKlXi7t3I5tq1GTgQ5Qs/Kq9ecfo0Y8ZQpw6vX8fNTIQQQgghEowkYO8YZWm3ZHmv4jYaADXi9ZOHL0L1KiiWBbotmtmuxagpXpmM0T05Oqe7W/FsaVPaZ8hb0XP05hvBKkqSAr29R5S3SOgpCBE3rl8nIACePePSJTp2jN5VGMnBgf37yZ2bM2coV46AgHcddnbs2kWZMty+jbPzt+47zJABPz9SpGDTJkqX5s6dWJ6MEEIIIUSCkgTsX5qUzn/uO7tjcscahRysTTWKxtQul2uXObt2j3dOrih21af7Lmqe3fyDX90rZhmqjti6c1QZy4QJWog4FhpK/vwULcrzAhWpV49Xr2jb9oMxqVLh50fevFy6hJMTDx6860ialC1bKFyYK1dwdubFi2/6ZKlSHDlCjhycO0eJEpw6FZvzEUIIIYRIUJKAvc80feVuMzaduhMYEh4eHvL0n21T2xSzjcq5TDI3XXzm8u6ZvVvUcS5VpFhZl3pth8zdeeGfrQPLJZfNh+JnZWpKsWLcv0/nzjB9Ora2bNuGj88Hw1KmZPdu8ufnyhWcnGIskllZsX07uXJx7hzVqn2wq/D1a6ZN+9TamKMjhw/j5ERAAOXLs2FD3ExOCCGEECK+Kar6tburwnb2KtVzR+j3fce0yoTD411Mvu8l4tsULlzY39/fzc1t/fr1CR2L+BncukW+fAQFsWIFDYMX4+mJnR3//IO9/QcjX7zA1ZXjx8mYET8/MmV613H/PmXLRp0H27wZM7PI5oULadmSXLnYvx87u48+HBZG27YsXoxWy8yZH6+8CSGEECJRa968uY+Pz5IlS9zd3RM6lvjzDXXT1Vd3/rlwIeTrA7/ELOcruaRYiMQpY0bGj6ddOzp2pNyFFqlcl7N9O1Wrsn07KVPGHJksGTt2ULUqR49SoQJ+fjg6ApA2Lb6+lC3L7t00bszq1RgZAXXrMnky585RvTq7d5MkyfsfNjFh0SKyZmXQIJYskQRMCCGEED+Bb0jAFKv0ufPk+dQKWMjj6zceh0QlVorGzMbe3s7KVBf0+EHAy1BVBRSzzFW8GhSwVozz5tDGZtxCiPjUti0bNrB1K23asGnhQipU4PRpypdn794P1sFsbNi+nWrVorYQ7t5N1qwAODqycycVKrBhA15eLF6MRmNtHZWXHTtGrVps3Yqp6UffHjiQmjW/fjGZEEIIIURi8A1nwExcxp88/5Fze6bVSa0PA8U0bfn2E9Ycu/ki6PmDW9cuX/nf/eeBAf7rx7UoZKsh5Oaho2FOPUYPb5rnZ72kOORFwIP79+/fv//g+XcuEwrxI5s3D1tbNm9m4bZU7NtH/vxcvszOnR+PtLZm+3bKluXuXSpU4MqVdx158rB1K5aW+PjQpUtkW8qUbN0aVcajaVPCwj717Xz5SJMmbqYlhBBCCBGvDMyK9A+Wd2w66sBTkjuN3Limf8n3byBWzOwLuPVa5Orm5F6p9ZrTU5p65jq5uXXGn7PgR+iOLtnrLA1SwazBqsCV9T/+/b2hXrx4ccqg+m9BQUGxFoQQ76RJw7RpNGtG9+44O9un27+fvXtxdf3kYEtLtm2jVi38/HBx4dAh0qUDoFgxNmygWjVmzsTWlhEjAEdHtm/HyYm1a6lTh9WrMTePx4kJIYQQQsQjwxKwiNMzRq4L0Gvs3Cb49Psg+/qXaVaP2ZN9DzZY+nDnqIkHmk8tH3u5yS+hTZs2a9asMfjxe+9f1iTE92valPXrWbWKAwdo0sSKWrW+MDhJEjZtisq+qlZl/36SJQPAyYkNG6hZk5EjsbSkTx8gf378/KhSha1bqVmTHTvQfnnT8oYN2NlRpkzsTU4IIYQQIj4YlIBF/LNp89UINLaunnXTfGldS7Gr2rSq3d8Ln9zz3X4uonzRn3UXYtxwd3d//fq1Tqf7rw8eO3YsKCjI7hNF5YT4XosW4eWFi8s3DbawYMsWypfn7FmqVo1RZsPFhWXLaNSIfv2wtqZdO6BAAfbupXJlDh3i9WusrT//3pAQ6tRBq2XOHFq2jIVZCSGEEELEF4NSIt3tG7d0oLVPn87sK0ON06Sz1/BEd//OfR0/ZQJmUm6Y39EuOhU0dlljtc5+7dq1a9eubcCDkWXozWUXl4gDFhZUrfqZPr2ewEBsbWO2WVuzZQulS3PsGI0bs25dZPlDqFePefNo1YqOHbGyokkTIGdOLlzg1asvZl+AmRnDhjF4MK1bExDAwIGxMTMhhBBCiPhg0LksxcTURAH904ePw78yNOLhgyd6UCySWPykdxUryRyLFCtevHjx4kWz2P6kcxTim3TsSNq0rFz5QXPatGzdGlXAo2PHGB1eXkyahF5PixZs3hzZliwZGTJ8w7cGDcLbG62W33+nc2f0+liagxBCCCFE3DIoAdM6ZHTQgv75ztW7X37xeq+Xfqt3PNWDNl1GBylDL8TPzdGRkBCaNsXb+4OeXLnYupUkSZg3jyFDYnR068aAAYSHU6/eJwsqfomXV1S9jhkzqFeP4ODvjV8IIYQQIu4ZloBld3V1NALdA5+ePTc9+NwZJX3A5j6/LbmvA6OsVapklQRMiJ9OaCjNmjFhAgC9ezNmDDodrVu/a/pX8eIsX46REcOHM3VqjI5Ro+jcmbAw6tfn2LGPP/HgAYGBn/m8mxt+ftjZsX491arx8mVszEkIIYQQIg4ZVhreqFD7ni7JNKjhV70blao5aNXZp+/vRYx4dn7NkFqlG8y7Eqaisa3Ss33BRHr+K+L10/s3r1w4e/rUyVOnz1++fuv+k9cRCR2UED+K589ZtYpevfj9dwD69mXmTBSFXr3o1++DwTVq4O2NotCjB6tXx+iYMgUPD4KCqFyZLVtiPhISQo4c5M7NxYufiaBECfbuJW1a9u6lWbPYm5kQQgghRJwwMC3SpPecMX23k+eKW+Eht7eNbLh9nF2WgkXyZrK3Mo4Ienzz/En/a09DVQDFOGPDadNbOCSmS8CC7x/dtGLNZt8Dx05f+N/jNxHv77JUFBOrtI458hZ1qupWu7ZrMYef9XSbEF+XOjV//02TJowaRVgYY8dChw5YWeHpyZ9/8uYNU6ei/Psj0rw5t28zaBDNmmFjQ+XKAGg0LFiAorB4MbVrM316ZF1EwNSUEiXw9aVCBXbsoGDBTwWRJw+HD+PhQb58cT9jIYQQQojvoxou5Mba38qkNPp8+qEYpSrXa92NkO/4RjzTPT06q23JVCbfmlIpximKtJh84GFEQgf+nkKFCgFubm4JHYj4VaxZoxobq6D26vWuafVq1cREBbV9+4/Hd+umgmplpZ4+HaNVr1eHDFEVRQW1a1dVp4tsDglRa9dWQbWxUQ8diuOZCCGEECIeubu7A0uWLEnoQOLV9yxMmWauM2HvpdNrx3WoWdwx2b9Ji6Ixt89Zpl73KRvPXfIbVztzYrl/OezGMs+S5TvOPfIwLHLNS9Fa2DlkL1iqQuUq1WrWrlO7VnVXZ6fShXNlTJnUOHK2aviTk4t7VCxWf84/UgBA/Lrq1mXdOkxNGT+eXr0AqFePjRuxsMDbm7CwD8ZPnEiDBrx6RfXq3Lr1rlVRGDoUb2+MjZk6lUaNCAkBTE1ZuZL69QkMxMWFXbvib15CCCGEELHue09maW3z1O41s3Yv9KGvnj19FvhGb2Zla5c8mUWiO/IVfHx4vZY+10JVFNM0JRq1bdPMrXLJvA6Wn6wdog9+dPnEvu2rF89dvP3Kq/A7G7rW7ZPl+NRK1rIbUfyiqldnzRrq1YuqvjF+PFSpgr8/QUGYfHhBnkaDjw+Bgfj64uzMoUOkTPmuz9OTdOmoX5/Vq3nwgA0bSJ7c2Jjly2nThoULqVGDlSupVSteZyeEEEIIEVti7WiWxtQqRdpMWbM5OqRKhNkX+jsLB0w6F6oq2rS1Jh/659DiIV4uBT6TfQEac/tc5Rr+NnXL2bPruhRMoqhh1+YNnHP1c/UghfgVVK/O8uWYmDBhAkuXApA9O0WKfHKwiQmrV1OwINevU6MGr1/H6KtcmQMHcHDg8GHKl+f2bUCrZf582rUjNJQGDdi27WvRhITg7s6UKbExMyGEEEKIWBMrCVjEq7vnD/luWrV0sfeCVSeeqoCqfvF+sB+N/u76FQeDVbQOrRYs6VrY5psXskwz1pq0YkQZc0UN9V+36aZkYOLXVrs2a9ZQsCBZsnx9sJUVW7aQKRMnTtCoERExy4vmzcvRoxQowMWLlCjBqVOARsOsWfz2G2FhrF37tbc/ecKKFXTvTrduJK7/HQkhhBDip/Z9CZj66vzf/WrnTZU8Q74yLrUaunu2aj90wx0dhO/vWTB35Tbjt1x/E0uBxq2Ii2f+CVfRpKzWwMnqPz6rdazXoJgx6K5dlCUwIWrUwN+f4sW/aXDq1Pj6Ym/P1q14er6fKKVJw/79uLry8CHly0eWp1cUJkzg6NGPrxn7iIMDK1ZgZsbUqXTuLDmYEEIIIX4Q35GAhf9vmVexEs3+3HDhWfhH/7ZRw59f2T2/d81CJVr9fePDE/g/HjU0NEwFJall0v9+iktjZWOlATUsNEz+jSfEF5w/T40aHDgQs83RkY0bSZKEpUvp3fv98ZaWbNiAuztv3uDmxqxZkc3Fi2P1Lb8oqVuXjRsxN2fmTNq1kxxMCCGEED8CQxMw9dW+/m4t/7ryVkUxsstVpUX3vg3yGP/72uSO2ZKbKKhBFxZ61ei1K/AH/5ePNl2GdFrQ3zvlH6D/rw8Hnz1xIRw09qntE9NtZ0LEO39/tmyJWiOLoVgxVq+OOjzWo8f7iZKJCX/9xZAh6HR07Ei3buj/y4+oszMbNmBuzrx5koMJIYQQ4kdgYMYQfnZS92n/hKqKccZ6049dP7990aRhDXP+W7JCm6e77+WjMxs6mihq6JXZ3ced+rFXwYzy1aiaQYsavO/Pfqvu/peNhGrQ8XH9F9/SobErXSGf8dcfEOJXc/o0Bw8C4OGBpyevXlGlCpcvxxzj6sq6dZiZMXky7du/n2R9UJ6+cePI8vQxvX37+c9LDiaEEEKIH4lhCVjIwfne58NUxSRfn5V/dSxk86m3KDYF2/+1dkhxC0UNv7R4wf7Q7ws0jpkUb9elrJWC7s5yj5JV+iw5HvD1eHWBl7eMdy/lPOzIK1Uxyd2mk3OSeIhUiMSmXj3Kl2fNGlAU5s6lWjWePsXFhTt3Yg6rVo316zE3Z+5c2rb9aKHLy4stW7CyYtUqqlUjMDC6Z/p0rK2ZMePzETg7s349ZmbMm4e3d6xOTgghhBDivzGoYHzElb37H+hQzCt27lzE4gsDTfO271Llz2PrXj06dOByROX8P3B5em22jrPH7XLquCUg7P7ucR4lJnfPUqxMmeIFc2bOkC51cuskZmYmRmp4SEjw62cP7929efXsicMHj154+FavAhqb0oMX9C+aWG6cFiJetWtHv364u2NvT5kyxqxejYsLBw9SrRr792NrGz2yShW2b6d6dRYs4M0blizBKOb/NJyd2bOHGjXYs4fy5dm+ndSpgZQp0eno0oXwcLp3/0wQLi5s2sTQoeTKFZdzFUIIIYT4CoNSIt3dW/d0oM1UuFDyL9esUKzzFXQ0Wnda9+DufT35DQoxvhhnb7tyt1mXJt0WngvUq+HPrx3aeO3Qxq8+prHM1eTPJTPaF5LlLyE+qW9fHjxg6tSoAhx585qzeTPly3P2LNWqsWsXSZNGDy5Xjm3bqFaN5cvR6/HxwTjmzt5ChThyhKpVOXeOsmXZuZPMmRs25OVL2renRw9ev+b33z8TR+XKVK4cpzMVQgghhPgqg7YgKopGATAy+txFxdFUXUSECqpep08EJy/Mc3rMP3nlyOLB7uUcrY2+klsaWWUq3WSA94HLp306FLL+78UThfh1TJpE3bq8fEm1aty9C9bWbNlChgwcO4aX1weDy5TBzw9bW1aupG5dQj/YDpwhA4cOUbIkN25QujRnzgBt2jBvHhoNgwYxfHh8zUoIIYQQ4r8zaAVMkypNKi3PdbcvXnlDfusvjFRf/XPhtg60KVKl/Gqy9mMwSlms+bAlzYeFB948d9L//JUbt+8/evbidXBYBMbmSZImTWqdIn2W7Nlz5MmfJ6ONFN0Q4ltoNPj44OzMoUNUq8aBA9ikTcvOnTg5cf/+x+OLFMHXFxcXNm+mbl3WrMHMLEZ3smT4+lK3btQbNm2iTJmWLTE3x8ODIUN4+5YxY+JtckIIIYQQ/4FBCZhRrvKlU4y5GPBq+7xlt/7P3r3H9Xx/ARx/fboqhdwit7kbQjeSRCpyzS3Xyi0xP2QbajOTzUZjc9mMMtfC5M4IpYTcyjX3GeZ+v1/S7fv7I2tR6du3XMZ5/qXP+3be//Rw+rw/5931k49yfI2WcmZR8JaHKrSKNbKr/Q5/AJYd3WKVrZwrW8mJJSEKhIEBa9fSpAlHj+LuzsaN6NaowblzKNm/Pra0JDISFxc2bqRjR1avxsAgU3Phwqxfj4cHy5fTqhUrVtC6dc+eqFT06UNgIHp6arwKi4vj5Ek8PHKKQQghhBCiwGlWBdGgqVfPajqK6mHUlx7jd97J/nBh2o2tYzzGbX+kQtusY09Ho2w7CSE+GCVKEB5OmTJERrJxIwB6ei9+4/WCBg3Yvp2yZdm8GVdXHj16sVlPj6VLGTiQJ0/o0IEFC4BevVi8GF1dvv2W+/dzC2jECLy8GDZMatMLIYQQ4o3R8B4wgyb+P3hU1FHS7sV+61zfcfDkpZH7LzxUAalP7147f2xn2KR+Teq3mbzvgQqtkq3Hj2lVpEDDFkL8J1WuTFQUAQG0aKFW/48/JjqacuXYvp3WrXnw4MVmbW2Cghg3jpQU+vdn6lSgWzciI1myhKKvOh4NQEAAhQoxc6bkYEIIIYR4YxSVxv/teHL4Z/e2n4dfTn7VBFrFGvqtDv+ueXE54fPmWFlZHThwwM3Nbc2aNW87FiHy6No1ypR56dm5czg5ce4c1tZs3py5cP0/pk/n009RqfDzy9vnX1u20LEjT58ycCBBQXIWUQghhHiTPD09Q0NDQ0JCPDw83nYsb46Gb8AADOsPW7c/coqnjaledv9nUbSL1mz3xYq4mO8l+xJCqCUkhLJlGTyY1NTMjytXJjqaKlWIj8fFhdu3swz09WXBAnR0CAxk6NAstzjnrGVLVq9+fkfz8OHyHkwIIYQQr1v+KmNomzp8tmjfJxPjIjdF7Yg7fuHG7QdJusbFS5WrbmHXzMXFvlrRfCR4QogPTfXqGBoSFMS1ayxdmrnsRqVKREfj5MSBAzg7ExFByZIvjvXyolgxundn5kzu3mXBgld8XfaCVq1Ys4aOHfnlF3R1+emngtyREEIIIcSLNLuI+dSWVbc/bte4goECYFDOpv0Am/YDCjYyIcSHIC2N33+neXPMzMDWluho2rVj7VocHfnjj8xpVsWKbNuGkxOHDuHkRGQkpUq9OFeHDoSH4+bGkiXcv09YGIaGwIMHdOuGkxOjRuUQRKtWrFpFp05MnUrJknz55WvbrhBCCCE+dBq9oUpJ+M3LvopZbdfBk5btvZwoZ3aEEJrato3evbG359o1ABo2ZPv253c0Ozhw4ULmzuXKsW0btWtz5AhOTty8mWW65s2JiqJUKTZsoEWL9NOKt2+zdSujR/PttznH0bo1y5ahr8+BAwW6PyGEEEKIF2h8RFCVcu/k5qAvejT+qFzdtv+bvDzu6rOCjEsI8WFo3JiGDTl3jnbt/ik0X6sWu3fToAEnTmBry+HDmfuXKUN0NHXrkpCAg8M/aVtmVlZs307FiuzdS7NmXLlSuTJLl6Kjw9df8/33OYfi5salSyxeXLAbFEIIIYTITKMETLtmy+7NqhbRVgBVyp3jG38d3a1RpXLm7Yf9uOrA9aQCDlEI8R4zMOCPP6hWjf376dSJp08BKFuW6GiaNePqVRwdOXYs85DSpdm6FXNzTp7E0TG7HKxWLXbsoFYtjh3D0ZErV7p2ZfFitLUZM4bAwJyjKVkSff2C3aAQQgghRGYaJWA65t4Ltv157e89K6Z+2rVReUMtBVTJt4/+8cvILtYVyzdwGzFtzaEbkogJIdRRqtS/FzS3b8+TJwAUK8amTXTpwt27HD/+0pCXcrCrV7NMWrEi27djacnp0zg7c/16t27MnYuWFl98wS+/vIFtCSGEEEJkQ/MqhYpBuYZdRvy0fM/f187EhE4c0r6Bqb4CqqSbh9dN/7STZcUKlp0/m7H+yK3kAgxXCPFeqlaNmBjKlWPrVlxd/zmLWKgQy5dz+jTu7lmHlCr1bw7WokV2OVh6DysrTpygeXOuX+/ThzlzUBSGD+fXX9WLLDExP/sSQgghhHhJAZSJ1zKu3LS3/8x1By9dPb5lbkB/l1rFdRVUz24cXD3Vt0ODChVtuo6aufHkfanVIYTIWY0aREVRrhw7dtC+PUnp79AVherVcxqSew5WrBjh4dSty8mTtGrF7dv9+zNjBsCwYezenVtMU6ZgYsLSpZrvSgghhBDiRQV5T5eOSS2X/uPmbjlx9dKB9TP9eztUKaKtqBKvxa+cMrTL1xFyJFEI8Uo1ahAdTfnyxMS8VP4wR+q+B6tdm8OHcXbmzp3//Y+ZM6lbN0sV+6yKFSMxES8vVq7M+26EEEIIIbLxWi5K1ivdwLVn334D+nWyLKGtvI4VhBDvp+rV2b+f7dupVi2HHtevs2jRP8U64MUcLPvvwUqXJiqKWrU4dIi2bXnw4JNPOHw45yUyeHvz9dekpNCzJ+vWabwpIYQQQogMBZyAJd1ICJ8T4O1qblbmY+c+YxfG3UpVAYpOkaKFJRMTQqihdGns7XNunjKFPn1o1Yr79zOeZeRgp07lkIOZmhIRQZUq7NlD69Y8fKhuNOPH88UXJCfj7s6GDXnbiRBCCCFEFgWSgKmeXolfO/MLrxY1y5Sr38Zn/NzNR28mqUDRKlyhcbeR01fHXfh7Tmu9glhKCPGB8/GhYkV27MDJiVu3Mh6n52D16j3Pwa5cyTKwfHmio6lcmV27aNPmn0Ifavj+e0aNIikJd3eiowtmF0IIIYT4UOnkY2zao/N7Nq5euXLlqrLUxNkAACAASURBVPA9fz9M/bfIhqJfup5Llx49e3Zv36Sy8Ws55SiE+EBVr86OHTg7s38/Dg5ERFCuXHpLqVJs24aLC/v306IFUVGYmb04tmLF59eL7dxJp06sW4eBQXrLrl0YGtKgQQ6LBgby6BGzZtGuHeHhODi8tu0JIYQQ4j2nUXaU9vfmH4Z2sqloWtW++2c/hcWef/j8oGGx6i36jA3edPTK5UPrf/Xv1VSyLyFEPj17RpUqNG3KvXv/PEp/A1avHidOYG/PX39ldDYxISICKytOnaJFi+zeg1WqREQEZmZERtKxY3qV+bQ0nJxo1IiFC3MIQlH45Rf69uXJE7y9C3qLQgghhPiAaJQgJcfNHTdzTfzlJ2kq0g8a2rp/Pm3VvgtXT29d8M3AVrWL5+fFmhBC/EtLCx0ddu7ExYW7d/95amrKtm3Y2nL+PE2bcvRoRv/cc7Dq1YmKokwZtmyhUyeePdPSYsQIkpLo25exY1Fle2eGlha//ca4cYwc+Tq2KYQQQogPRD7eUCl6peq1/eT70G1/Xj2/O2yKbyfrsoUKLjAhhADQ1SUqimrViI+nRQtu3/6nwcSEzZtxcODqVZycMjVgYsKmTdSvz6lTODtz40aWSWvWZMsWSpZk0yZ69iQ5eeJE5sxBV5cJE+jWLXORxUy0tQkIwMfndWxTCCGEEB8IjRIwrY/afBkcnnDl8uE/fv2it0MVOWgohHiNypdnxw5q1+bQIZydM5XeKFKE8HA6dCAtjZSUzENKliQykvr1OXECFxfu3Mkyqbk5kZEUL87q1fTqRUqKtzcbNlC0KCtW0KJFdmmbEEIIIUS+aZQ66Vr3HTvQtU4J3YKORgghslWmDFFR2eVghoasXcvNm5iavjSkZEkiIqhdmyNHcHLKdHwxQ/36REZiYsKKFfTuTWqqiws7d/LRR+zZg60tJ06oEdmdO9kdcxRCCCGEyJ4mCZjqzskdUVu3bo0+ci21wAMSQohsmZoSGUmtWhw+jLNz5iOHOSpViqgoatZ8fgNzNpXnLSzYsAFjY8LC8PFBpapbl927sbHh3DmcnHL4HiyzFi2oWpV58zTakxBCCCE+OJokYIpW3OS2Ls7Orf023Mn1PydCCFFQypYlOpqPP+bwYaZPV2tI+g3MH33E7t24uWX3cVfjxmzYQOHCzJvHiBFAmTJs24a3N23bouR6g3zr1iQmMmAAAwem11QUQgghhHgFjY4gFq5QqZQWpF48f1FegQkh3qT0s4ijRuHpmXOn6Gg2bcr4qUKF55Xno6Lo2JFnz7L0b9qUNWvQ12fGDL76CjA0ZM4c5sxRI6CJEwkNpXBhfvsNOzvOns37noQQQgjxAdHsG7BGPbpV01FST2/YcCIl9+5CCFGAypThhx+oXj3nHt2706YNU6dmPKhWjejo55Xne/R4qWAHAM7OhIWhq8t33xEYmLeAevcmNpZq1Th4EBubzLmfEEIIIcRLNKtfaGA3bsHXdsVSD08d9uOBrF9VCCHE2/TNNygKn33G+PEZz2rUYPNmihdnzRp69iQ16+v7Dh1YsgRtbb74glmz8rZi/frExdG+PXfu0LYt33yjxtdjQgghhPgQaVhAXjG2/So8elbPMvu/bN6o67hF0cevP0kr2MiEEEJDgwczf/7za7tGjcp4XK/ev1UPBwwgLesvra5dn587/N//stbV8PKiXj2OH89h0WLFWLuWCRNQFMaNY/36gtqNEEIIId4nOpoMSt473XvaniSg+selz8Sv/KbPym8Ubf3CRYsVMdTNPqUr1G720Vlt9fMTqhBCZO/334mNZeJEjIz+eeTlReHC9OrFlCno6zNhQvrj9KqHLVuycCFGRvzyS5a5+vXjwQNGjMDHB2Nj3N0zWu7fJyGBJk1Yvhxn5+ziUBTGjMHWltBQGjUq6F0KIYQQ4n2gUQKWdjE27PflL5b7UqU+e3Tn+qOst52mK3Q7a+0xIYQoEPPns2ULCQnPyxk+16ULYWG4u/PddxQuzBdfpD9u3Jg1a2jXjpkz0dXN/KXYP3x9uX2bb7/FwwMjI1q3Tn/8++/06cPy5bRpQ3AwffvmEI2TE05OBbxDIYQQQrwvNErAFJOqVtbWWSuJvYJ+VZNcqzkLIYRGgoNp3pyYGFxdCQ/P9B7MzY2FC/H05MsvKVs2I2dycmLtWjp0YNo0ihYlICDLjN98w9OnTJlC166Eh+PgABgYsGwZVasyaRL9+3PxImPHvpn9CSGEEOL9oVECpuc0cWfcxIIORQghNFOpEhERNG/Ozp106sS6dRgY/NPWsydPnjBoEAcPZn5p1bIlS5fSrRvjx1OoEP7+WSb94Qfu32fOHNq3JyoKKytAUZg4kerVGTSIr7/m7FmCg9HVVSPEkSPR1eWrrzK9oRNCCCHEh0jDIhxCCPFOSS80b2ZGZCRubi9eiTxgAJcv89NPLw3p1Onfqoc//phlRkVh1ix69ODBA1xdMxff6N+fVaswNGTBAjp3zq6Yx0uSkwkOZtIkzM3ZskXTLQohhBDifSAJmBDiPVG9OtHRlC1LRESWHMzUFG3trEPc3Zk9G0Vh1Ch++y1Ls7Y2ixbRrh23btGyZeZLltPfipUuzZYt3L+fW2S6usTEYGHBuXO0aoWXF7duabRFIYQQQvznFUgClvLgYkJsxPrlixfOm7s87pYKUMkdOEKIN65GDSIinudFQ4eqNcTbm+nTUanw8WHSpCzNurqEheHoyOXLODpy4UJGS6NGJCRw6BAmJmosY2HBvn1Mm4aRESEh1KhBcLC6uxJCCCHEeyR/CZjqQcJS/47mZUpWqmffskM3j74DBgesvZAKyds/t6jjPHDKhjOPCyhQIYRQR506REZSsWIePrYaNozp01EUvviCQYNISXmx2cCAP/7A3p4LF3Bx4fr1jJbSpfn4Y7Uj09HB15dDh3By4u5dBg2idWuuXFF7vBBCCCHeB/lIwJLPLunX0LZ34Nqjt5OzvO5SJd85tfW3Ue0tbQcs/SspPxEKIUTemJvz999Mn55zj2HDMDUlPj7jwfDhrFyJoSHBwbRpw4MHL/Y3NOSPP7Cw4PRpWrXi7l3Ng6talYgI5s2jeHE2beLrrzWfSgghhBD/QZomYKoHMV+49V906okKRadE7VZ9Rvi51/23FJhWyao1SuopqB4end+v3cjIe3IgUQjx7tDW5sYNXF1JSMh41rEj0dGYmhIRgb09Fy++OKRoUcLDqVGDw4dp357bt7OdOCGBjRtzW11R6NeP48cJCGDYsPztRAghhBD/MRomYMmHp474+dgzlaL7UZdf9p5J2LRg6vhuH//7ibt23RERJ/f82q2qnqJ6dmr2iMn75S2YEOKd8eOPuLtz+zbOzpw4kfG4YUN276ZWLRISsLXl4MEXR6UnZxUrEhuLjQ2HD2eduG9f2rbls8/UKI1oasq4cdSvn+/NCCGEEOK/RLMELHHnb/MSklSKXr3RYYuGWBbLbhalmMXgRavGNTJUVMknFs7dnqd7m4UQogAlJXHqVKaftbUJDaVNG27coGVLzp3LaKlcmV27aNaMK1dwcMjyOisj+zp3Djs7fv/9pYW++AJ9faZOpUePF8swCiGEEEIAGiZgKae2bb+SilKoxdCh1oav6KhvPnhYK2OFtOuxO06mvKKjEEK8RmPGUKsW33+f6ZGeHitW0KwZly7h4pK5GIaJCZs307s3jx7h5sbs2S/OVb48O3bg7c2TJ/TsyaBBJCdnNHbtSlQUJUqwfDmOjnmvNj9rFr16cfVq3rcohBBCiP8GjRKw1IvnL6WCdmUry5LKK3sqRetZVNWBtCsXL+d6IEcIIV4PBwe0tRkzhp9/zvTUwIB167Cx4a+/cHTMXN5QX5+QEMaNIyWFTz7B1/fFI4X6+syZQ1AQenoEB+PszI0bGY12dsTEUKECe/bQtOmLb95ytW4dS5diY8O+fZruVQghhBDvNI0SMEXRUgB0dLK52PRFqtSUFBWo0lLTpA6HEOItad+euXPR0sLX98ULl4sUYdMmzM05fZqRIzMPURQCApg7F11dZszI7kihjw9RUZQty/btWFsTF5fRUqcOu3dTvz4nT2Jjw7JlagcaGkqLFly+jIMD8+drtFchhBBCvNM0SsC0ypiV0YbUv4+fyuWaL9WDY0f/TgXtUmVK55qsCSHEa9Onz/MLlwcPfjEjKl6ciAi6d8fNLeuo/v3ZsIEiRVi+HCenLEcKmzQhPh5bWy5exMGBBQsyWsqVY+dOevbk4UN69uTkSfWiLFGCzZvx8+PZM/r3f+l8oxBCCCHeAxolYDq1mzUppYXqwaY5S86/6mRhyplFwVseqtAq1siuto6GIQohRIEYOpRvviE1FU9PNmzI1GBqyu+/07VrtqNcXNi5kwoV2LWLxo35888Xm83M2LYNb28SE+nXL3PKZGTEkiXMmcOAAVSsqHaUOjpMmkRw8L/nG2/ezONGhRBCCPHu0qwKokFTr57VdBTVw6gvPcbvvJP94cK0G1vHeIzb/kiFtlnHno5G+QlTCCEKwtixjBpFcjLu7sTEqDvK3Jw9e7Cw4MwZHBwyHzYEsvskLNPnZN7ezJmD4avKFWVn4EC2bsXUlO3badyYy5fzOF4IIYQQ7ygN7wEzaOL/g0dFHSXtXuy3zvUdB09eGrn/wkMVkPr07rXzx3aGTerXpH6byfseqNAq2Xr8mFZFCjRsIYTQUGAggwfz9CmjR+dhVPqLLhcXrl3D0fHFF2jpfHyIjs72kzAN2dsTH4+VFX/9xaFD+Z1NCCGEEO8GDRMwlFJuM9f+1LqcrqJ6dikmaHQvlyafb3oGKad+cq5QuW7T7l8s2HMtSYVWsYZ+yxf2+0jTdYQQomApCjNnMmMGEybk3OncOWJjX3pWpAgbNtCvH48f07Ej8+ZlGWVnR3w8jRtz6dIrqmgkJxMayrVrasRavjy7drFvH23bqtFbCCGEEP8B+UiMDOsPW7c/coqnjaledrXoFe2iNdt9sSIu5vvmxV9dq14IId4oLS2GDcPFJeceffpgb8+sWS891tVl3jwmTSIlhQED8PfPMtDMjOhoBg4kMZH+/fn0U5KSXuqybh2enjRoQFSUGrHq6WFjo0Y/IYQQQvw35K8yhrapw2eL9n0yMS5yU9SOuOMXbtx+kKRrXLxUueoWds1cXOyrFZU3X0KI/6B+/di5k6FDMTGhR4+XGv38KFWKQYMIDOTmTYKC0Mn8q1Rfn+BgrKwYPpxp04iMZO5cGjbMaG/ZEmdnIiNp2ZKAAL78Ei35TSmEEEJ8MAqiNKFBOZv2A2zaDyiAqYQQ4l3Qrx83buDvj5cXRYrQps1L7f37U6IEPXsybx63b7N0KQYGL/YYNIj69enTh6NHsbPjs88YPz69k7ExW7bwww+MGcPYsURHs2QJpqZqx3b9Oj4+uLoyeDCKnC8QQggh/mPk765CCMHBg4wYwZUrmR75+TF6NMnJdO3Kzp1Zh7i5ERVFyZKsXUuLFlmuCANsbTl8GD8/gMmTqVuX6Oj0FkXBz4+ICMqUISoKa2t27VI71rNnWb+eIUNo3frFiIUQQgjxH/AaErDkK9uDx/6vr0efwaN+WLL36sufPwghxDsnNJTp02ncmOPHMz2dNAlvb54+pV27bOsQ2tqyfTsVK7JnDw4OXLiQpUehQkyaRHw8FhacPYuTE4MG8fBheqOjI3Fx2Nlx6RLNmxMaql6sjRuzciWlSrF5M+bmhIXlfbtCCCGEeGvykYCp7icsGdPDvmbZyoM3ZWRZT+Mnt7J0Gjzh14WLFwVN8fOwq2s/ctP1V13WLIQQb92YMdjbc+EC9vaZ7gdTFGbPpnNn7t+nTRvOncs68OOP2bOHBg04cQJb2xzKxTdowN69TJqEri7BwdSrR2Rkekv58mzbxogRJCfz1Vdqh9upE0eP0qEDd+7QvTvdunHnTh53LIQQQoi3Q9METHUnarSjncf3y2JP33iY9M9NzElHfvrfuG3XUzJuZlal3Yn7qUevX8+k5j9UIYR4XYoXJzKSHj24e5eWLVmy5J8GbW2WLKFFC65ezVoUMV3ZskRH06wZV6/i6JjD/c66uvj5ER+PtTXnz9OyJV5e6VmTri5Tp7J2LSEheYm4dGnWrCEoCCMjli9Xu6iiEEIIId4yDROwJ9vH+0w79EgFipZ+cRPD9O/AE3fMnr3/qUrRqdTppy2Hj+xc6teshBaq+9u++37TwwIMWgghCpy+PkuWMHo0SUl4eBAQkKlh7VpmzGD48JzGFivG5s107869e7RqxbJlOfQzN2f3biZNQk+PkBDq1mXNmvSWDh1o2jSPESsKPj4cPEjjxly8SKtWnDmTxymEEEII8aZploA9ipy75FyKCu2KnWcfunHqx2a6AElx68OvpqJVrMP3QSNc6pk36TFxxS+di2uRdmPdsujHBRq3EEIUOEUhMJApU1AUxo/H15e09APURkYMG0b58q8Yq6/P0qWMHMmzZ/TsyZQpOfTT0cHPj6NHcXDg6lU6daJbt+wqeKitWjV27GDiRDp2pEwZzecRQgghxBuhUQKWcmL3vntpKAYOo3/yNjdS/nm6NfpSKoqRY9fWJdOfKSXbe7YtrkXa/QP7TqUUWNBCCPH6fP45S5eir8+MGWzcmIeBisLkyUybBjBqVKb8Latq1YiKYsoUDAxYvhxzc1avfqnLtWsZ1Tpyo62Nvz/Ll2NklIdwhRBCCPE2aJSApV6/ciMVtMpbW5llTKC6E7/3dCro1ndoXDTjappC1WpW0oa0a1ekEocQ4r+iWze2bmX4cOzs8jzW15f589HVZcYM+vcnKadKsNrafP45hw/j4MC1a3TujK8vKc//UvX4MTVqULfui1UZhRBCCPHfp9kRxLS0NEApZGDw7yWgz/bvPpCkQrtio0blMs2qUqkAVdKzZ6os0wghxLuqSROmT6d48RyaZ8/GwiKn27v69GHdOoyMWLiQZs24eDHnZapXJzqaGTOev3Fr25Z79wADAywsuHCBpk2JjdVoAykpjBzJ/Pmo5JevEEII8Q7RKAHTKmlaUgvSrpy/kPG33eSDW2Nup6FVvImDue6/XZPO/3UhFRTjosZKdlMJIcR/0Z9/cugQLVowf3627a6uxMTw0Ufs2YOVVUbZ+exoaTFsGNHRmJqyZQs2Npw8qaXFli24u3PnDk5OLF+e9wivXmXqVPr3p21bua9ZCCGEeHdolIDp1raub6iQdjc8dP3N9L+tPoxeuOJcKoqRg2tTw3973t+6csudNNCpWrOqToEELIQQ74AffsDPj2fP6N+fQYNITs7axdKS/ftp3ZqbN2nZEn//nD8JAxo3Jj4eKyvOnMHOjsjI9Koegwc/r+oxe3YeI6xQgbAwSpYkPBxzc5YuzeN4IYQQQrwWmh1BLNqyR5viWqTdXDG4jfeURb/PH9vDe96FVBQjh3Ytnn8ApnpyIerHvsNCr6aBTk3H5uXzceezEEK8ddOmYWjIvHkAaGszaRKhoRQqRHAwzs7cvJl1SPHibNjApEloaREY+Pzm5Byl38rcqRN37+LqSmCgtjazZjFpEmlpfPIJ/v55jLhLF44do2NH7tyhVy/c3fNVblEIIYQQBUGzrEgp3ingK4eiCmn34ueN6tOz/4SNF5NVim6twV90L60AaX9Nb17qI+eRa84nq9Aq3sp3gLm8ABNC/KcZG/P0Kd7ejB//z6PevYmKokwZtm+ncWOOHcs6SlHw8yMiAlNTNmzAwoJ9+3Jew8iIlSsZN460NPz909+t+fkRFIS2NoGBec/BSpdm9WrCwjAxYcUK6tTJuHlMCCGEEG+Fpq+ldGoNX7byK8eyuhlfdmkVsfpspn9jAwBUqYmJySoVoBSuO3BeUL+K8v5LCPHfNmDA80QoIIDBg0lNBaBxY/btw8qKv/7Czo79+7Md6+hIfDy2tly4QLNmBAfnvIyiEBDA0qUYGBAcjJMTN28OHMiqVRgakpCgUeju7hw8SIsW3LhBp05s3qzRLEIIIYQoAJrnRVqlnb6JPHVy2++zpkz8fkrQyr0nYyc5Fn+ejynaRmWrWzR395264fDe2W7lJP0SQrwHfHyeJ0JBQXTvzrNnAFSowI4d9OjBgwecOpXT2PQDhsOHk5jIoEF4efHkSc4rde/+/N3ajh00bszx4x06cOkSq1ZpGnqlSkRGMmMGdnZUqKDpLEIIIYTIL0UlFYrfO1ZWVgcOHHBzc1sjZ42EeA327qVdO27dolkz1q6laNF/Gq5cwcws1+GLFzNoEI8f06ABK1dSpUrOXS9fpmNH4uMxNmbJEtq1K5D4hRBCiHeEp6dnaGhoSEiIh4fH247lzZFXU0IIkTeNGhEdTblyxMTQvDn37//ToEb2BfTuTVwcH3/MoUNYWLB6dc5dy5Vjxw569eLhQzp2JDAw/8ELIYQQ4u0qgNIYSdcPR22Jit139Ny1W/eeKobFSpSpbG7TpLmLY4My+vmfXggh3jl16xIbi6srhw5x4gS2tnkb/vHH7N1L//6sWEGXLowezXffoa2dXddChQgNpV49vvwSf3/OnGHmTPT00hs//5yDBwkOplq1fGxmzhzu3OHTTzOmFUIIIcTrk68ELO1OXLD/iAkhuy8nZj3HqOiXsXb/PDBwhKOZFEAUQrx3KlVi3z6OH6dRoxx63LpFz544O/P55+i8/HvQ2JiwMCZPZswYAgM5cIBlyzAxyW6e9EKKH31Ev3789ht//sny5ZQqBRw+THQ0VlbMnUvXrpruJCCAK1dYv5516yheXNNZhBBCCKEWzY8gJp8N9bBuOmTOruyyL0D17Fpc6GiXBi2/33NfPjMTQryHjI1zzr6Ay5eJisLfnyZNOHEia7uiMHo0W7ZgakpEBA4OXL6c82zduxMTg5kZMTHUq8emTcDq1c9rf7i7M2gQSUkabWP1aipVIjaWJk04f16jKYQQQgihLk0TsMS4b7sM/P3cMxUoemUa9hrz68ptB/+8cO3m9ctnE3aumzPOq7GZvoIq9Wb0WLc+iy6kFWjUQgjx7qtfn5gYqlVj3z4sLQkM/Kd0/QscHdm/n7p1OXqUJk1eUUYRbGyIi8PRkWvXaNOGESOMdROXLmXhwucl6+3sOHs273E2bMju3VhYcPIkjRtz4EDepxBCCCGEujRLwNIuhXw97XCiCkWnfPufdh7bvXjCJ52bNahWwbRkabPKdZu09w5YGHt059QO5XUU0m6s/2Ls+nvyFkwI8d67devF/MXenv378fHh2TP8/bG3zzbBSq+1YW/P339jZ8fu3TkvYGbG1q1Mm4auLtOnY2XF4cNeXuzcSdWq7N+PhQUrVuQ97rJl2b4dV1euXaNZM8LD8z6FEEIIIdSiUQKmurZxRcwjFYpe7c+WLR1hUzy7WRQTa98lyz6rraeQdm1t6CbJwIQQ770BA7CyYvz4TI+KFCEoiI0bKVeOPXuwtOTnn7MOLFaMyEg6d+bOHVxc0g8Y5kBR8PUlPh5zc44fx9aWwEDLBmnx8XTsyIMHdOuGJjdQGBmxdi29e/PoER07snhx3qcQQgghRO40SsBSTiecSFKhFGr6v2G2hV/RsXBj3+HNDRRUjw7sO56iYYhCCPFf0aMHOjoEBDBkCGmZj167unL06PPbl4cPJzo661h9fcLC8Pbm8WPc3Fi69JUrmZuzd+/ze539/XF1LfbkyqpV/PQT5ctnuposT/T0CAlh9GiSkujXj+RkjWYRQgghxKtolIClPbh3Pw20yllYmL56AqW0hUUFbUi7dfO2fAYmhHjf9ezJqlUYGDBrFl26kJiYqa1YMRYuZN06fHywtMx2uLY2wcGMG0dSEr178+OPr1zMwIDp01m9mpIliYigQQPlj/WffsqFCzg6aroBRSEwkNBQpk5FV1fTWYQQQgiRI40SMK0SpUpoAanZfVD+IlVqWpoKtIqZFJU7n4UQH4D27dmyBRMT1qyhbVvu3s3SHBT0ildUikJAANOnoyiMHIm/P6pXn9/u2JGjR2ndmps36dDh+Uu2fOrdm//9L7+TCCGEECI7GmVFOjUtzA0V0i7v2nXu1SlY2oVduy6koejVrFNdbgMTQnwY7O2fV4yPisLamkOH8jzD8OEsXIiuLoGB9OtHyquPcJuasmED06ahr09ISNYlT57kwoU8xyCEEEKI10GjBEwp6fa/XhW1VUnx08aGXc45BUu7uvLrqXueqRTDJp1al1E0DlIIIf5jzM3ZswcbG86eVeN6rR496NKFmzczP/PwYONGjI1ZuJAuXXj69JUzpFfm2L+fevU4cSK9Mkf6V2jPnmFpSe3azJ2bj/2kpGh6y5gQQgghXqDhucAiLt/P+9TCKO3K8gFOHr/supH1r7MpN/fM8nLqu/RSqqJTzfsrr4pyAlEI8UGpUIEdOxgyhPLlKVQo534qFXv2sGoVtrYv3dfs7ExkJCVLsm4drVtz/35uS9apw+7dDB78vOp9mzZcvaqvj6cnjx/j7U337ty7p9Fm7O2pWlWTd3lCCCGEeJEa5wLT/o5Zsu181vdctT08bP4Ojjv1+zD7tYE2rVo72tSuVNpYN/nhjQsn4reFb9578YkKFN2qHuO9K92+9aRwScPXsAEhhHhn6eszc2ZunRSFXbvo1Il9+7CzIywMF5eMxoYN2b6dVq2IicHenk2bKFfulbMZGjJrFq1b4+3N5s3Uq0dQUFBQZxcXfHwIC2PPHkJDado0jzsxM2PvXpo1Y+VKnJ3zOFgIIYQQ/1JUuXzfDc9WdCvmvjwxl165KOS+/F5YV/38TSLUY2VldeDAATc3tzWaXAYkhHgbEhMZMIAlS9DRYdq0l2pgXLmCqysJCVSuzObNVK+uxoRXr9KvH5s3A/Trx/Tpf98x7t2b2Fh0dBgzhrFj0dZWO7ykJPr3Z/Fi9PT45RcGDszb7oQQQojseHp6hoaGhoSEeHh4vO1Y3hw5XyhyagAAIABJREFUGCiEEG/arVtZHhUqRGgo48aRksLQofj6kqnMrJkZ0dE0asS5czRtyp49aqxRtizh4QQFUbgw8+djbl7p7+3R0fj7k5bG+PE4OeXlOGLmK8J8fOjSJbs9CCGEECJ3ahxB1G06Zv2mAbkWnH817TIN5EYZIYSAdevo2JFevZ4nR/9Kr0D/0UcMGsSMGVy8yMqVKM/rF5UowdatdOnC5s00a8bkyQwfnttKioKPDw4OeHiwfz+OjrpDh06cPNnZWc/Li5gYIiJwd1c77vQrwszNGTqUVavYvZu5c2ndOq/bF0IIIT5waiRgWqb1nVvVf/2hCCHEh6BCBYyMWLyYhARWrqRatReb+/alcmW6dGHTJp48yZyiFS7M+vX4+TFtGr6+xMby228YG+e2Xq1a7NnDhAlMmMCMGURHOy1efOSIeUQEnTrlPXoPD5o2pU8fYmJo25bdu2nUKO+zCCGEEB8uOYIohBBvlIUF8fHUqcORI1hZsXp1lh7NmnHsGIcOvfiCDEBXl59+YvVqihUjLAxraxIS1FhSR4eAAHbupFo1EhJo2LDEb4E9uqXpaHY9Y6VKREUxeTIODpQvr9EUQgghxIdL8wTs2c3j25b98s2oYQO9undq176Lx8DhfuN/WhR54k5yAcYnhBDvnxo12LMHd3cePKBLl+ffZb3A1JQaNXIa7ubGvn3Uq8fp0zRqpPYFX7a2HDiAjw+Jifj74+rK5csabkBLi5Ej2bYtt5qMQgghhHiZBn//fHZlZ8iU7374LeLMw9RsKiiO1CtZ26nn0C/9+9ub6eU/QCGEeB8ZGbFsGdbWfPklgYEkJLBkCUWLqju8enX27mX4cObMwdubmBiCgjAwyG2YsTFBQbRqxaBBRERQty6//krPnsCDB4wbR9euNGmSr30JIYQQ4tXy+Abs8fFFA2xqOQycuunPbLMvQJV061j4z0Oa1W08KPTEkwIIUQgh3kuKwujRbN5MyZJs3MiAAa/sHRvL1Kkk/3vEoFAhgoNZuBBDQ0JCaNKEs2fVW7hzZ44epV077t2jVy+6dePevb17mTYNZ2fWr8/Hln79lSVL8jFeCCGEeP/lIQFT3YwY1dyu37yEhypA0SpSuUnnQV9Nnbtk5R9borZuWrts4cwJw7s3r2Gio4Aq7e6BOX0c2k7c+zC3e8aEEOID5uREXBwtW+ZWzOLrr/nsM1q35u7dzI+9vIiNpWpVDh7EwoJVq9Rb1dSUdev4+WcMDFi+HCsr56JxQ4aQmEiXLprmUI8eMWwYvXvTsSM3b2o0hRBCCPEBUKnp2bGpLUzS0zWlUJX241YcuZOSbcfUe8dWf9OxmoECoGibuS+5lKruIqJAWFpaAm5ubm87ECFEwdm/X1W2rApUtWqpTpx4qfH+fVXXripQKYpq+HBVUpLa0x4/rrK0VIGqcGHVxo2TJj2fZNo0jYJctkxVrJgKVKamqj/+0GgKIYQQH5D0+5dDQkLediBvlJpvwFJOzRw8NvpuGmiVdpm4LX5tQBdzE+1su2oVrd1x7Kp90RNdSmuhSr2y0nfIogtp2XYVQgihJktL9u6lfn1OnsTamnnzMjcWKUJYGNOmoaPDjBk4O3P1qnrTfvwxe/YwYACPH+Pm5lcudPp0gBEj8PfPe5DdunHkCI6OXL9O+/YMGMCNG3mfRQghhHifqZeA3Q+fNDn2kQpF33zEsmWjG5kouQxQTBqNXrZshLm+QtrNDROmxibmP1QhhPiwVajAzp14evL4MQMG0KsXDx5kNCoKvr5s3YqZGdu306ABW7eqN62uLnPmMG4cycl4eQ1P/GHBAnR0CAzE3x9VXk+RV6hAZCRTpqCnx7x51KjBjz9m/nRNCCGE+MCpk4Cpbm9YsPpaGmhX7DtlXPNcs690iknzcVP6VtKG1HMhv264J5+CCSGEmu7epV+/7OphGBmxaBGLFmFszNKlWFhw+nTm9qZN2b+f5s25cQNXVwIDsxS4z5aiEBDAzz+jKPj5ee33DV2UpqtLYCAhIXmPXkuLzz/n8GHatuX+fUaOZOLEvM8ihBBCvJ/UScCexm7a9lAFuvW8hzkVycPkRZx8BzbQhbS7MVvikjQNUQghPjTHjrFgAZ068dtv2TV7erJ/P1ZWnD2bNUsrU4bISPz9SU3F35/Wrbl+Xb1Vhw5l+XIKFWLGjO7hfdetTLa3p3ZtTfdQsyZ//EF4OO3a0by5prMIIYQQ7xs1ErCUPw8cfpAGOlVatqqZ/XdfOdGu3qpVdR1IuxW3989UDUMUQogPjb09kyaRmoqPDwEB2fWoXp1du9i4kaFDszZqazNxIhERlCnDli3Uq8emTeot3LkzGzZQpAghIa7BnXdsfmJtnY9tAK6urF+Pg0P+ZhFCCCHeH2okYGlXLl5JA7Sr1Kict/wLdKrWrKIDpN64ekMSMCGEUJufH7NmoSiMH4+vb3bfYunp0bo1+vo5zeDkxOHDtGrFjRu0aYOvr3qfYrVowdatlC7NH3/g6MitW/nZRfZUKhISSEkp+JmFEEKId54aCZjq6ZOnKlD0TIobq/f5VyYGJsULKaC6f/e+fAQmhBB5MXgwK1agr8+MGfTtq0nCUro04eH/Vke0t+fcOTWGWVuzezfVqrFvHw4OXLyY99hfKSSEevWwtFS7TogQQgjx/lAjAVMKFdJXQJV0//6TPCdRiffuJapA0S+kn+fkTQghPnSdOrFhA8bGLFpEly4k5lpR1tWV5s05ezbjQXp1xB07qFyZffuwsCAsTI2Fq1Rhxw4aNODECWxtSUgAtm3D21vtAvevYGtLlSokJODsTKdO/PVXvmcUQggh/jPUSMC0ypY30wJS/z5zPq/HCFPO/3U+JdMcQggh8sbJiU2bMDFh3TrSL+l6lUuXiInB0pLff8/8uFEjDh7E3Z379+neHS8vnj7NbaoyZYiOpmlTrlyhWTNiY5ctY+5cGjZkz578bAhq1OD4cSZOxNiYNWuoU4cxY3j2LH+TCiGEEP8NamRFOtUb1DVSIOXUloizecvA0s5HbDmRAoqReYNqOhqGKIQQHzg7O7Zvp3dvWrbMreuOHXTpwv379Oz5/HrlfxQtyrJlTJuGvj4hIdjYcOxYbrMVK0ZEBF27cvcuLVv+0Hxj06ZcukSzZvzyS/62pK+Pvz+nTtG3L8nJfP891tYcOJC/SYUQQoj/AHVeSxVu6trUSIGUA7/9Gvs49/4ZnuyaNScuBZTC9i3tC2saohBCiLp1CQ3FwiK3fiYmrFjB7NkYGDBv3ktZTfpxxF27qF6dY8ewtSU0NLcJ9fX5/Xd8fHjyxNjDbZvnXD8/kpMZNoxevTLndxopW5b589m5k5o1OXoUW1sOHszfjEIIIcS7Tp0ETCnVoW+HUlqoUs7M+Txw7yM1p34cN/nzoD9TVGiVbN+3Qyn5BEwIId6QQYOIi8PcnJMnadyYH3/MXEXR0pL9++ndm0eP8PTEy4tHr/69rq3N7Nl8+SUpKVqDBk4ymrBmVVrRoixdirU1x4/nO9rGjTl4kE8/pXx5Cssf64QQQrzn1PowSzFp7/+pjaGC6sn+77t4/HrkUa7FOB4dDfLsMiHusQrFwMrXv0Nxyb+EEKKAnT9PUk6X3Nepw759DBtGcjIjR7J4ceZGY2NCQ5k7F0ND9Y4jKgrffcf06SgKY8d2mOEcv+ZS7drP87uYmHzvxMCAn37i7Flq1Mj3XEIIIcQ7Tc3KGLp1R8z+qrGxgir18tqhTRp7TYs8/ySHvk8vRM/o08RuyOqLKSqUwjb+sz6rp1tgAQshhAA4doyqVbGx4cyZHHoUKsSMGfzxBx060LBh1vb+/f99T+bgQFxcbksOH87GjenFOap1bbD/q9U9evDggRSTF0IIIfJA7coYhRr4LQ+92KrX7KOPVY+Ohn7aMmxiPZd2rZ0cbGqVL12iqF7yg9s3Lp2K3xEVvn7zoetJKgDFoFb/hSvGWBm8vviFEOIDVbYsNWpw5Ag2NixcSIcOOfRr04Y2bXKapHZt9u7Fw4NVq3B2Zv16HBxeuWqrVhw5woABrF9fqFfnpZ6eY/fNqlb/tZ0bXLiQ5GT690dLCukKIYR4TygqVR7u9lLdi/9lQPdRq88+y3WQolex7Xe/L/y8sRw+fOOsrKwOHDjg5ua2Zs2atx2LEOI1evSI/v1ZvhxFYdgwfvwRHY3qzaam4u3NggUYGrJyJa6uaoxZtIhPPuHJE2rVYvFiLC01WfjVVCqMjXn8GAcH5s+nSpWCX0IIIcRb5enpGRoaGhIS4uHh8bZjeXPy9jdFpZj1sBWHDq+d5GldWjenxErRKdGgxzcrDhxZO1KyLyGEeH2MjAgLIygIHR1mzMDFhevX1Rs5fz4LFmRU5tDWZt48hg/nyRPc3Fi5Uo0ZvLyIi6N+fU6exNaWgADS0jTeSPYUhRUrKFOG7dupX5/Zs8nLXwyFEEKId1Pe3oBlknT75O6tEZE7Dpy5fOPmzXvP9IqUKFXarEoDe+eWzk3qlNYv4DhFHsgbMCE+NDExdO/O9etUqMCKFdl+8JVJWhqFC5OYSJs2zJ9P6dLpj1UqRo9myhS0tfntN/r2VWPhxET8/Pj5Z1QqnJxYtEhV1qxXLwwNmTYNY+N8bwy4fZuhQ5/fK92yJb/9RoUKBTGvEEKIt+/DfAOm8e3IeiVqNetWq1m3ggxGCCGEJpo148ABunUjNpZWrbhzB+UV5w+0tAgLo18/Nm6kXj0WLEg/dKgoTJ5MyZL4+9O/Pw8fMmxYbgsXKsT06bRtS9++bN1K/fppwXO3bu1w8ya7drFiBXXq5HtvJUqwdCmdOzNkCFu2UKsWHh58+SWVKuV7aiGEEOItkM+ahRDifWBmRnQ0X3/N8OGvzL7StW/PsWO4unL9Om3aMGgQT55Xtk1/oQX4+vLjj+qt3bIlhw7Rti23bml3dvuriVfDuk9OnsTSkq++ypg4f9zdOXqUbt14+pTgYIYPL4hJhRBCiLdAEjAhhHhP6Ooyfjzjx6vX29SUDRuYNAkdHYKDadWKe/fSW4YOZfZsFIWRI/H3V2+20qVZv55p09DXN14TsjvZekLXQykpfPcddeuyfr1mG8oS8LJlHD/OmDF89llBzCiEEEK8BZKACSHEh0pLCz8/du2iYkV27qR5cx48SG/x8SE0FB0dAgMZNky94heKgq8ve/bw8cdap06M+aPxX//7yap+yrlzdOhAx47cuFEQMdeqxYQJNGv28vPHj7l9uyAWEEIIIV4vScCEEOJ9dusWixeTmJhzD2trdu6kVi0OH+b06YzHPXuyahWFCvHLL3zyido1Dhs0ID6eQYNITPzo58/jUixWDN1WpAhr1zJ5cj638kotWlCmDN27s3v361xGCCGEyC9JwIQQ4n0WGIiHB40b8+efOXeqUIF9+9i3D2vrzI/bt2f1agwMCArC05OUFPWWNDRk9mw2bqRaNeXY0S6/OF5r3mPayEtDhuRnH7lxckJRCAvDzo5GjVi6lOTk17meEEIIoSFJwIQQ4n3m7U316hw6hJXV81ru2TM2xsYm62NXVzZvpkgRliyhc+dXvkl7SevWHD+eXo3eYN0y319rVl4YkJfxefT995w9i78/JUqwbx+9elG1KrNnSxomhBDiXSMJmBBCvM9q1mT/fnr14uFDevbEyyvPZQmbNiUqihIlWL+ezp15+lTtkbq6+Ppy8iSenjx9yvjxmJvzxx/pjUlJxMaSmpq3YF6lfHkmTuTCBYKCqF2bixf55BM+/piLFwtuDSGEECK/JAETQoj3nLExixezcCGGhoSEYGPDsWNqDLt1i1On0v9pZcXWrZQuTXg4Tk5cuZKX5c3MWLSI6GjMzTlzhvbtcXHh5MkpU7C3x9aWuDgN9pQzQ0N8fDh6lOXLqV2bs2clARNCCPFOkQRMCCE+CF5e7N5NzZocP46tLWvX5jaga1fq1GHevPSf6tcnJoZKldi9GysrduzI4/Lpd0UHBVGiBJGR1Ks38KhvrfKP4uOxtWXEiII+KqgodO1KQgJXrmBnV6BTCyGEEPkiCZgQQnwo6tUjPp7evXn0iJkzc+vdvj2pqXh7Z9zHXKsW+/fTsiXXrtGiBYGBeVxeRwcfH06dYvhwUlNLLZ1xPK3W720WaWszfTqtW3P3rgZ7eiUtLcqUyea5vBMTQgjx9kgCJoQQHxAjI0JDiYpi7tzcun7+OTNnvnQfc4kSbNzIuHGkpeHvT8+ePH6cxwhKlGD6dGJjsbZWrlzuvrHPrfpOzUod37oVOzvOnNFgT3k0ezYVK9KkCVFRr38xIYQQ4mWSgAkhxAfH0ZEKFdToN2QIISHo6hIYmHEXmLY2AQGsWUOxYvz+O9bWnDiR9whsbdm7l+BgSpYsEh8Vfd9yqtnk0yfTbG2Jjc37bHliaUmpUuzahZMTLVq8/vWEEEKIF0gCJoQQIme9ej2/C2z2bLp25dmz9Mft27N3L3XqcPIktrasXp33mbW0GDiQ06cZNEhJThpxZfSREo7Gt8+PGVOwG8iiYUPOnuW77yhenOho7O1p04ZDh17zqkIIIcRzkoAJIYRg9my+/TaHovBt27JpE0WLsno1PXpkPK5Rgz17cHfnwQO6dMHfP/0NWR6ZmDB7Nps3U65cndvbTxvUX9gkWONdqMvIiC+/5OxZvv6aIkUID8fKCg8P7tx57UsLIYT44EkCJoQQgh9+4Ouv8fIiJSW7ZgcHoqIoXZr4+MyPjYxYtoxp09DRITCQdu00LaTh4sLRo/Turfv0QaXvB9G2LVevajRRXhQtyvjxnD3L55+jp8fixfz882tfVAghxAdPEjAhhBAsWkSRIixZQvfuJCVl18PSkjNnst4gpij4+hIRgakp4eE0aPBSjqa2YsUIDSUsjOLF2biRBg1Yt06jifKoRAmmTOHUKb77joED38SKQgghPmySgAkhhMDenqgoSpRg1So6duTp0+w6GRtTpEi2w5s1Iz6eRo24cIGmTZk/X9M43N05eBBHR27cwM0NL68jux6dPavpbOqrWJEvv8TM7PWvJIQQ4kMnCZgQQggAKysiIylVivBw2rTh0aO8DS9fnpgYBg4kMZH+/Rk0KIc3abmqWJGtWwkKwtCQkJCi9uaf1N2xfr1GU+XTtWv068eyZahUb2N5IYQQ7ydJwIQQQjzXoAHbt2NmxrZttGnDgwe5DZg7FxMTZs1K/0lfn+BggoKe/6NpU02LCyoKPj7ExWFpWUl1fuNTxxNu/tMna5bP5cO+fSxYQI8eNGzI1q1venUhhBDvKUnAhBBC/KtWLaKjKV+eHTvw8cmtd0oK9+4xZAhdu3LvXvozHx+2b6diRfbtw8aGzz7L88u052rXZu9exo3T0mK0KrDFaOuAzkeSkzWaSjMdOjB3LuXLEx+PszOtWnHw4BtcXgghxPtJEjAhhBAvqFGD7duxs6NOndy6DhrEqlWYmLByJfXqsXNn+uOGDTlxAj8/gKlTqVmTRYs0CkVHh4AAZXvMY9Mq5iT4rbb9rdaUPw8/0WgujfTvz+nTBAZiYsKWLVhb4+XFxYtvLgAhhBDvHUnAhBBCvKxyZWJjGTtWja6dOnHoEE2acPEijo4EBKRfB2ZoyKRJxMdja8uVK/TpQ7t2nD+vUTRNmhT+89Ctjt4GPP3k7CiTBpW2Nvk69cp1jebKOwMDRo/mr78YNQo9PUJCqFmTtWvf0OpCCCHeO5KACSGEyJ+KFYmOZtQoUlMZPx5XV64/z47q12fXLhYupEQJNmygdm0CAjQqzmFsXHL1nAdhm86Z2pbkltOub5XKH+Hjw8mTBbmRVzAx4YcfOHmSHj1ITCQh4Q2tK4QQ4r0jCZgQQoh809Xlhx/YuJHSpYmIwNMzo0VR8PLi6FE8PXn6lPHjMTcnKkqTRYq4t6p8bffpJfF/2npqpSYzZw61a+PiwhsrklipEkuXcvUqX331hlYUQgjx3pEETAghRO7u3uXbb3M7Q+jqyqFDeHrSrdtLLWXKsGgR0dHUqsXp0zg74+XFrVuaRFKjp1X13Ys4fZrhwzEwIDKSDh2wtGTRIlJSNJkxr0xN38QqQggh3lOSgAkhhMjd2rV8/TVNmnDixCv7lS3LokV4e2fb2Lw5Bw8ybty/31IFB2t6yVaVKkyfzt9/M2kSZmYcPEifPqpq1QkMzKjH+OYcPkzFigwZwo0bb3ppIYQQ/zWSgAkhhMhdt244OnLlCnZ2bNig+TyFChEQwKFDODpy5w6DBtGiRT6+5CpZEj8/zp4NrL3wOLWVv8/j70+lSvj6cumS5lHm1dOn/2fv3uNyPv84jr/uzoVIckpOJUSKHKLMMcxUTo0cwoyYOY3fMrY5bqvZKGtDzuU0Z8kxZ0V0cMipFDlFzucOOvz+cG/G2lbcdSef58Njj+17f7/X9dG2h95d1/dzcfMmc+dSqxY+PqSlFd7UQggh3jUSwIQQQvw3AwO2bqVHDx48wMWFGTPys3IVEYGVFVOn/plM6tRhzx6WLaN8efbvp0mTt3uNS1e34woPj4axXdl0iJY8esScOdSqxbhxb7jNMb/s7Tl1ii5dePSICROoW5fVq990aU8IIUQxJwFMCCFEnujrs3Yt3t4oFHzzDS4uPHyYtyfv3eP8eaZMwdqaHTteXHvRnOPcOfr04ckTunVjzpw3r83WlmNRGp3nu/YwOWhPxHpFz5z0DGbNwtycadPe9Cjo/KhThy1b2L0bW1uSknB3x8mJS5cKfF4hhBDvGglgQggh8kqhwMuLkBCMjAgJoXlzEhLy8Fjnzhw4gLU1CQl8+CHOzly+/OKTsmVZsQJfX3JyGD0aT88376OhocHQocTH02JsM3ettdY5p4J13Xj0iMmTqVGjkHYGtmtHdDSLFlG+PHv2YG395+HUQgghxAsSwADIjPpt6KBBgz4Z8d3mhFR1FyOEEEVbp05ERmJtzblzeTusGWjZkpgYfH0xNCQk5LUTwUaP5vff0dcnIEC5j++NlSnDrFmcPEnFdvVc09c4KA5nObbizh0mTMDSkoAAsrLefPS80NDgk084c4a+fXn2jOvXC3Y6IYQQ7xoJYABkJe0PWrp06ZLfvu7eqEk//6N3s9VdkRBCFGXm5hw5wvff4+WV52e0tBg9mjNn6NmTZ8+YOhU7O27cePFhz57s3Uv58uzciaMjV668VXl167J7N+vW8emi5pqH9hMaSsOGXL2KpyfW1qxdW+AvaJUrx/LlPH5Mr14FO5EQQoh3jQSw12Q/PrNiVEsbp4mbL0oXKyGE+GclSvDVV9ja5vOxKlVYu5YdO6hVi9OniY398xN7e44coU4dYmNp3pzo6LetsEcPBg0CoH17oqJYswYLC86d4+OPad78DU+DzpcSJQp8CiGEEO8aCWCv0DLv1Kd1Za3M63t/6N6w6YDfjt4u4K0qQgjxXurYkdhYTp+mQ4e/Xq5Zk8OHad2a5GRatXq71oiv0dDAzY2zZ69/Oz/TpBJHj9KuHU5OKsh5+RIZSUAA6emFOqkQQoiiRALYKxTl2k7ZdfKgXx+rUjmPYgM/d7C0/XjaxnOPpJewEELkxb59HDyYt1t1dalX7++XjYzYuRMPD54+fdvWiH+XpaFt+dPQcvcvbHeYkWNYmt27adIEd3cuXlTlNP/CywtPT+zsOHq0kGYUQghRxEgA+xuNcvYjV0TGbJjUsZpu9oPTayf3sKllP2jWrkvP1F2ZEEIUaTk5dO5M69Z8+y3Zb/Yq7aVLXLigo8OyZfj6kp39tq0RX6OpyZgxPMkp0Tl8krVB4vku49HTY/Vq6tZl3Dju3VPNNP9i5kzq1OHMGRwcGD+eZ/InixBCvHckgOXOwKLrjO2nIpePbVVZh+e3ji0d18mqTuthP62PvikbR4QQIlcKBT4+aGoyfTouLjx4kP8hHB2pV4/vvycr60VrRD09AgJwdn6r1oh/9d13REfj4MCZm8Z1Q2a62cQ/6DqQzExmzcLCglmzCnZ/oJ0dx48zeTKamvz8M9bW7NlTgNMJIYQoeiSA/TOFYf0+s/adP/77pI/MSyhy0q4emP+/nk2qmlp3+fyndZE3JIgJIcTrRo1ixw7KlWPrVmxtCQnJ5/NDhpCZyaRJtG3L5ctubuzdi4kJO3bQsiVXr6qmSBsbDh1i0SJMTFgXUaX81iU/D4zN7PgR9+8zbhyWlgQGFmCbRD09pkzh8GFsbLh4EScn2rZl+fKCmk4IIUQRIwHsPyhKWbnNCDl9do//8NZV9RXkPL97euuv/3NrVs20fqdBXjOXbDkSfzdd3hETQgildu2IjKRJEy5fxtkZNzeSk/P88JQphIZiasrBgzRoQFBQ8+bK1oinTmFvT0yMaopUKPjkE86fZ9gwsrIYv9jqY4MQQkOxseHKFQYMoFmzPL/N9kbs7IiMZNo09PTYt4+BA/88FU0IIUTxJgEsT/Sqthnx2764uP0LJ/ZuZqqvgJznd8/sXPrjl5+4tKhTvkxFq5bdhkxaFyc9E4UQAqpX58gRZs+mZEnWrcPKioiIPD/crh2nT9O7N48e4eHBxx+bl70fFkbLliQn07Il06aRmqqaOsuWZe5cIiP56COcnKB9e2JiWLaMSpWIjKRVK5ycOHNGNZP9nbY233zDjRusWsX69ejovH7D06dv+i6dEEKIoksCWD7omX0w+LtVEZeunNzsO9rFupy2AoCc7LRb58I2LZy1JlZFr4kLIcS77kW7i7NncXHh4UMuXMjPw2XKsGoVAQGUKMHatTRqZHzrXGgon3xCaiqTJ2NlxYYNKiu1USNCQhg+HAANDTw8SEjA2xtDQ3bvpmFDPD25dUtl872mdGl698bV9fXrZ85QtixmZnz2GaGhPH9eUAUIIYQoXBLA8k+7nLXLaN/Np65ejgyeN3lol8ZVSmgq1F2UEEIUQWZmbN7MzZv075//h4cMISaGJk1ISmLLFl1dFi0iIoKR0AlDAAAgAElEQVSmTUlKokcP2rbl9GnV1wxgYICX173IxJyRo8jOJiAAc3OmTCEtrWDmy42REdWqkZzM3Ll06ED58vTrx9q1PH5ceDUIIYQoABLA3pxeJTtnzynzt0RevXcrLnzTghk9LDXVXZMQQhQ9FSq86ZOWloSHs2MHo0a9uNC0KUeOsGwZJibs20fDhowezcOHqqr0pdhYKtQrZxfmF7P4BJ068eQJU6dSpw6//16A/Tn+qnJl4uOJieHbb7G25sEDVqzg448xMcHZmbt3C6MGIYQQBUACmCrolK3VwvXTcb0aaKm7EiGEeBccOYKXFykpebhVW5uOHdHT+/PCi02CcXGMGkVODnPmYG6On5+K35YyMaFaNY4fp/HA+v3Lbb+7ahc2Nly+TO/etGqlsmYg/6lhQ6ZO5dQpEhKYORNHRzIzCQkpsLU/IYQQBU4CmBBCiML2yy/8+CN16xIQ8EbrSefOGflM8Bt4PCqKli25e5cxY5SLY6pSsSKxsXh7U6IEy5dT7VOnqa4xmXMXUL48hw7RpAmffpq3BKki5uaMH8+hQ9y4wdGjtGr1+g0nTnDggMqOrBZCCFFgJIABoFmn6/8mTJgw4UuPZkbyJRFCiAI2cyYffcT9+3h60rIlZ8/m8/mlS/HxoVEjW6+OB6fuCw6malXl8coeHiqLRfr6eHkRG0v37jx9ypRpGvV9P9059yKTJ6OtzaJFangxDDAxoWnTXK63akXr1lSoQP/+rF3L06eFWpUQQog8k7QBgFb9PtN++OGHH2Z89kE56achhBAFzNSUkBDWrKFSJcLDadqU4OD8PO/lxbhxlCrFrl20bes8o1m8z8Yp32br6BAURJ06+Pio7FSt6tVZv57QUOrWJS6OTj1K/FZ+CqdP4+bG06dMnYq1NWvXqmaytzF9OnXrcu8ey5fz8cdUrszw4Rw/ru6yhBBCvE4CmBBCCPVwc+PcOTw8ePqU7t3x98/zk2XL8tNPXL7M9OmYmHDsmK5798lr6iVNXuLy4fMHD5gwATs7VR6k3L49J08yaxZ16lChAlhYsGYNe/ZgbU1CAh9/TLt2nDqlsvnewKhRnD1LfDwzZ9KiBY8eMW8ejRrRtGn+VxiFEEIUIAlgQggh1KZ0aZYtY/p0srMZOZJZs/LzsJERX39NUhK//EL16pw/X3HiJ5ttJwcHY2HB6dO0bs3Agdy+rZpStbUZO5Zz5+jR449LbdsSE8P8+ZiYsHcvDRvi4aGy+d5MrVqMH094OGfOMHo0ZcsSGcnu3eosSQghxKskgL21tPs3kq9fv379evK9wn0PQAghiomvvyYoCH19rl3L/8MGBnz+ORcuEBRE58588IGzM2fP4uuLgQHLlmFpiZ8fWVmqLxtAS4uhQ1NPxDFqFBoaBAVRu7Yqd0C+MSsrfH25fp2wsD8OmRZCCFEkSAB7W+k7R9auUqVKlSpVzIeFpKty5OnTp5d9I6dOnQLu37+vymqEEKIg9e3LnTv5XAH7Ky0t+vVj61Y6dQK0tRk9mlOn6NyZBw+UPRKPHVNhvS9t2kRJM6NuV/yubD5O+/bcv8+ECTRsSFhYgcyXL3p6ODigrf369fHjGTmS6Gh11CSEEO87CWBF1507d+6/kczMTCBTmhELId4pBgYqHrBmTbZuzjzr4e1Zbv3xmJzmzfH05NEjFc9SqRIlSrBpE5bd63s1Cn22chMWFpw9S6tWjB1LaqqK53t7WVksXIi/P40b07gxc+aQmKjumoQQ4j0iAazo8vPzu3///r38s7GxAUxMTNT9OxBCCHWLi6sb+NW8Oz2vVGnRSjMsIIDatQkMVOUMzZpx8SKjRpGZyY8/UnWkq/+w0zlff4OmJr6+2NgQHq7K+d6epiaRkYwdi7Ex0dGMHo2FBbVrM3Ysu3er+EBrIYQQfyMB7G3pfDB1b0RERERExMHv2+qoePAyZcoY5Z+mpqaK6xBCiEKXns6XX7J589uNUq8eixZRsWKVaxF7n7c8WLZrmZvnBwygTRvOnVNNnUC5cvj5ERGBgwN37zJyvG6T7dPOBUXRqBEXLtCyJZ6eRetgrlq1mDWLa9dYtYrevSlblvh4fH1xcuK339RdnBBCFHMSwN6Wwsi8cdNmzZo1a9bEoqycISaEECqSkMDMmXTrho/P2w30ySckJODtjaFhy3ubzyrqrdHziNt/w8aG0aNVGYsaN+bQIVauxMyM6GhsPRpE+Ufg7Y22NgEBNGjAgQMqm0wl9PTo3ZtVq7h1i7AwJk6kUyfs7dVdlhBCFHMSwIQQQhRF9eoxaxYKBRMmMGwYb/Vaa4kSeHkRF4enp0JTwy0t6JK2Ze/M5XPmYGPDjh0qq1mhwN2d8+f5/HP09UFbGy8vIiNp2JCLF2nTpsgthb2gqYmDA999x/btNG78+qfjx1OmDD17EhhYFIsXQoh3jQQwIYQQRdTYsaxfj4EB8+fTufNb98+oWJF584iNxdVV9/mT2Y7rGzQgMZEPP6RHDy5fVk3NgIEBv/zCgwd/ZJkGDTh6FG9vtLQICMDGRpVHRBcChYKHD1m/ngEDqFyZoUOJiFB3TUII8Q6TAPYfMp/cuX4p7vTJ49FR0cdjzyckXb/9RLoLCiFEIenalX37KF+e0FAcHbl69a1HrFOHTZuIizMOWRYdzU8/UaoUGzZgZcV335Gu0tNEXvpzKczWlsRE5VLYs2cFM5mqzZzJ5cvMnYuDA48esWABzZtTrx4//4ycdyKEEPknASwXqdcj1sz6n8eH9rUrltQ3NKlSs461baPGTRo3alC3Vo0qFQxLlDGzsu884KtfNhy9+ixH3dUKIUTx1rQphw9jaUlsLPb2KtoxaGmJoaGWFuPGERdH//6kpvL119Srx9atqhg/N9GZNpd+P4a3N5qayrfC3pWlsKpVGTaMsDDOnePLL6lYkbNnGT+eESPUXZkQQrx7JIC9Ivvu0XmeLWrWbNFr3E9BO47GpzzN/FvAysnJeHjt3NHtgd6jejQ3r950oF9YSpY6ihVCiPeFuTmHD9OqFcnJjB+v4sErVSIwkLCtD4+UdBqb+PnALnecnbl0ScWzPH5M8+bUs9WeV9qLsDCsrEhMpG1bJkzg8WMVT1Zw6tTBx4erV9m8GQ8P3N3VXZAQQrx7JIC9lJG4cmDzVp8FHLmZ8SJ1KTQNjM1qN2zRun3Hzs5du3V1+aiTUxsHO6vq5Utqv+h3mPP8dtSysW2b9px/pugdtSmEEMWIsTF797J6NYsXF8j4Lawe2GeFj+DXBEUty5BZDetlTJlCWprKxi9ZkkGDSE1l+HC6/dD0Xmg0Xl4APj6UL0/XrqxYofpToguIlhYuLixbhrPz6x8lJLBuHU+eqKMsIYR4NyhycmQPHQCpx75u/sH3J9NzUOhWtu81dEhf1/bNrc1K5XqkVnZqyvnIAzvWLQtYtiPuUTYKHcsR247NaVe6SPSht7Ozi4mJcXV13bRpk7prEUKId0d8PF9/zdq1wAVqTeK7GHM3X1+6dFHZDOvXM3Qo9+5RoQJLl9LJ6ChffcWBA8rjj3V16dCBnj1xcaFMGZXNWpg6dCA0FIWCKlWoWRNz85e/rKwwMFB3fUKIoqV///7Lly8PCgrq16+fumspPLIC9kL2lSUTZ59Kz1Fomrr4hp8JXzZ5UAfbf0hfgIZ+BasPPv5iztaTJzeObFhCkZNxYcGk+fGyE1EIIQrf2rXExqpiIEtL1qwhNBRr61pcWMPHCxLbfu180tmZixdVMT706MHx43zwASkpdO7M6JXNMnbs5dYtli2jSxeys9myhQEDKFcOR0f8/Lh1SzUTF5qJE3F0REuLq1c5cIDFi5k0id69adKEWrV4/lzd9QkhhPpJAAMg++qm38NSc9A0G7woaJRdmTwvZOlWd5n9+3RHfUVOeszGLZckgQkhROE6fZqPP6ZhQ0aOVFFPvvbtiYnhl18wNm7DvmjszELm1q/PhAmqOQSralX27GHyZDQ0mDOHli25izEeHmzZwo0byiSmoUF4OGPGULmyMomlpKhg7kLQujWHDvHsGYmJ7NrF3LmMH0+3bjRogK0tWlqv3+/qip0dX37J7t2q3PEphBBFmAQwADLPnjjzPAeN8p3d2hjm81lN8x5uTbUh68JZWQITQohCZmXF+PEoFPj7U7s2ixcrd/O9FS0tPv+cCxcYM0ZTW8O1TlxaGj4+NGiASnZ2a2kxZQr791OtGseOER7+xwfGfySx5GQCAujQAYVCmcSqVKFDB+bPfzeSmJYWNWvi5MSwYcycyYYNnDzJ1q0o/vbzzfh4YmKYORMnJ4yN+fBDZs/mzBl1FC2EEIVEAhgAOenpGTmgKFmqZP7f4tIwLGOoATkZ6RnyPp0QQhQuDQ1mzuT0aTp04PZtBg+maVMVHRRsZMTs2dy/3/Hs7IMHsbHh4kW6daNDB86eVcHwjo6cPMn27bm9Y1auHEOGsHMnN2+ycCGdOqFQEBrKsGFUrswHHzB7tiqPjlajEyfYswcvLxo2JDWVHTv44gvq18fMjHXr1F2cEEIUCAlgAGhWqVZFE7KvRcfcyPePTlNPRp5+DhoVKlWQL6cQQqhD7drs3MnKlZiaEh2NgwPDhqmop2CJEigUjo5EReHvT9myhIZia8vYsTx48LZjly5Np05o/O3PjnPn/jgS2tiYwYPZvp2UFJYswdkZHR0OHeKLL6hencaN+f57zp9/2zrUSFeXtm3x9iYmhhs3WL6c/v2pWJFr1zhwQN3FCSFEgZDEAIBWgy4fVtMkJ/WAz4S1V/OzkTDn8bGZXy1LykLD2KF1A+0Cq1AIIcR/cXfn/Hn+9z+0tJg/n6lTVTm4lhYjRpCQwLQBiVGZthV8v2pQ84mfH1mq3ny+fTtWVlSvjo8PDx/+cdXIiIEDCQ7m3j2Cg+nfH0NDoqOZNIm6dTE3Z/RowsJ4pzsbV6hA374EBpKcTFwcs2a9fsOhQzg6MmQICxZw4gSZmeqoUggh3pYEsBd0mnmObGmoIOvKao/mHb8MOnYj/T+fyXpwfutP/Vo4TT3yKEehU2/ICKcShVCpEEKIf1ayJD/+yMmTfP55gZwSbGTEN5/dbaBxegLeh+/XjRizukkTDh1S5RTW1jRqxM2bTJhA1ap4eZGc/JeP9fVxdiYwkJQUgoMZOBBjYy5eVDb0qFmTceMIC1PFm3Dqo1BgaYn2336oGRlJeDgLFzJ0KA0bYmiIgwNjxrBiRTHZkCmEeD/IOWB/eh4X0L3NZ1tvZOUACu2yFk0dHZs1rFuzWpVK5UqX0NPT0cp5npaW+uTuzWtXL8WfjDwcFnH65rPsHECjjOO0XTsmNSkiAUzOARNCiIIVE8PIkRw+DBzkg5H8UrVLA39/qlVT2QxhYfj4sHUrOTno6NCrF199Rd26ud2amcmBA2zYwKZNL7Na9ep4ejJ4MCYmKqtJ7XJyiIjg6FEiI4mM5MKFlx9paREbS5066itOCPEm3s9zwCSA/VXqucCR7qOXnHqQnfcvikYpK3efoF+HNSoahzCDBDAhhPgHt2+rLo/k5BAUlPO/LxW3UjLRWswn0/W/H/yl8YQJ6OmpaAqIjsbHhw0byMpCQ4Px4/Hx+ee7s7OJiGDjRtatIykJQFeXnj357DNatFBZTUXH/fvKJBYZyZMnrFlD2bKv3PDkCdnZGOa3u7EQovC8nwFMtiD+lX5dj4VRcUeWfdvvA/PSWv8eqBRahjUc3CcuPnT++PLhRSh9CSGEyJW/P+XL06+fihq5KxR4eCjizjNqlJYWQwmITrXaOjXK0pLAQFWMD4CdHWvWcP48np7o6HDq1L/eraFBixbMnEliIqGhuLmRlcWKFTg4ULcufn48eaKyyooCIyM6dGDSJDZtYvfu19MXYGODiQmdOhEQ8O4daS2EKL5kBeyfPH9w6VRUTGxc4uXrKXfvP0nNyERbv0TJkiVLm1S1qF27Tn2b+tXLFM2mG7ICJoQQf7dzJ9278+wZRkb88ANDhuTSfvANxcYyciQHDswwnfvN9WGAkxNz52JurqLxAUhNRVs7l6OM/01yMkFB+Ptz7RpAqVK4u/P551hbq7KyImvgQJYvV7ZJ0dTE0ZHu3enWDTMzdVcmhFB6P1fAJIAVQxLAhBAiV5cu8fnnbNsG0KgR8+fTuLHqRo+Ly6xpOT9A8e233LuHoSFz59Knj+rGz8327URG4uFB9er/fFNGBps3ExDAnj3KNol2dowahbt7Lo0uipk7dwgOZsMGdu9WtvZXKGjShDlzaNZM3cUJId7TACZbEIUQQrwvatRg61aCgzEzIyaG5s0ZPZrHj1U0eu3aWtqKESOIj8fNjUeP6NuXQYMKdt/fDz8weTK1atGrF8eO/cNNOjq4uREayokTDBtGyZJERzNgANWq8e23xbx/YLlyfPIJISHcusXKlfTsiYEBx44hP6AUQqiPBDAhhBDvF2dnTp9m5EhycpgzB1tb7t1T5fjGxqxZw7JlNNWPrbjUu1Wjx8ePq3L8v1q4kH79UChYs4ZmzXB0ZMOGf25B36ABc+dy/Tr+/tSrx40bTJ9O9erY2vL11xw9+m43r/93hoa4u7N2Lbdvc+AA3377+g3nz/Pzzxw48McZ2EIIUVAkgAkhhHjvGBoyZw4REdjZcfs2z56pfgoPD0Lbef/AV+svNPBqtt/Hp0DSjaUlQUFcuoSXF0ZGhIfToweWlvz22z8fU2xoyIgRnD7N/v24u2NoyMmTfPcd9vZUrsynn7JxI0+fqr7WIkJfnw8+QF//9es//MD48bRujZERTk788ANHj8pZz0KIgiABTAghxHuqcWMiI0lJoUqVAhnf0G96tl2T6iTteN5OZ8IXrh1Sb94skIlMTfH25soV5syhZk0SExkxgmXL/uuxVq1YuZJ79zh0CC8vatcmJYVFi+jenXLlcHLCz4+rVwuk4iJo8mTGjKFBA9LS2L2biROxt8fYGGdnVq1Sd3FCiGJFApgQQoj3l0KRy1qIytSsqRFxGG9vtLTGMtt3j/XQeuE7dxbUbCVLMnIk8fGsXcuQIbRrl7fHXrQH9Pbm/HkSE/H1pX17MjPZvZsxY6halXr1mDCBsLDivEERqFmT2bM5eZKUFNasYdgwLC159IiQEAYMULZSFEIIVZAAJoQQQrzi++/55BMVrf1oaeHlpRET9byerTmJG+61PtFpwhefZzx/rorBc6OpSc+eBAT8a1/Ef1KzJqNHExpKcjJLltCjB6VKcfYsPj60bEn16kydquxoX4yZmODmxty5xMVx7RrLlrFhA5qar9zz/Dm1a2NsTJs2jBxJQAAREapr5yKEKOYkgAkhhBCv+P13liyhbl1+/BHVJCVra+3oiJzx/9NUZHvh0+rXjx0duXhRFSPn2bVr2NjQr99/neb8gokJAweybh23b7NzJyNGUK0aV68yZQrVq+PsTHDwe7EoZGqKhwdduuTyka4u9+6xfz/+/nh60rw5pUtTsyauruzaVeiFCiHeJRLAhBBCiFds24abG0+f4uWFrS3796tiUF1dxcwfFQcPPKtZP7uk4bFjNGzI6tWqGDlvnjwhLo4VK7C1pUsXwsLy9piuLh064O9PUhJRUQwdio4OISG4umJmxoQJXLpUsHUXTdranDrF9evs2MGPP+LhQaNG6Opy6RLBwfj6qrs+IUSRJgFMCCGEeIWpKWvWsHcvVlacPUubNjg7q2hHoqOjQWLsB0mBLi48eoS7O8OHF1LHwTp1SErCywsDA7ZupWVLHB3ZskV5MnOe2Nkxfz7Jycyfj7U1N27g44OFBU5OrF2rorXCd0rlynTsyP/+x7JlREfz+DHnzrFxI/Pnv35nairBwRRQDxYhxLtGApgQQgiRizZtiIlhxgwMDAgJwdqa5ctVM7KxMZs28csv6Okxbx7VqzN9arZqzyLLVcWKeHuTlMS331K2LOHhuLhga0tISH5GKVOGoUM5dUq5IKanx+7dfPwxVasyYUJhb6wsUrS0qFOHrl0xM3v9Iz8/XF0xNaVpU6ZOJTo6P8FXCFHcSAATQgghcqery6RJnDmDszMPHzJjhspGVij4/HMiImjRAu07N0ZOMX5sUnNPs4m3duflDa23Uq4cU6dy+TI//YSpKadOMXz4Gw30YkHsyhVmz6ZuXW7exMeHWrXo2JHAQKKiePRIxaW/u7p3x8UFPT0iI5kyhcaNMTVlyBC2bpWjxoR4Dyly5GcwxY6dnV1MTIyrq+umTZvUXYsQQhQThw5Rrhx166p+5Iht96q5Na30LPHFPyaXrqvdv7fJyN5YWqp+sldlZLB5MyYmtG791mOFhREQwLp1pKa+vFihArVrY2lJrVpYWlK7Nubm6Oi89WTvptRU9u0jJIRt27h8WXnRwoIzZ97fr4l47/Xv33/58uVBQUH9+vVTdy2FR0vdBQghhBDvgJYtC2pk+85leRyfuCwsyXt1g/h1lR+ew38y/pOf1m5UYmhfRo1Cq6D+sNbRwc0tl+tpady+nctOun/j6IijI35+LF/OoUPEx3PhAikppKRw8ODL2zQ1qVYNS0vlr3r1aNHifYkf+vp07kznzgCxsQQHs3r16w3uhRDvAQlgQgghxJvIyWHOHOrUoWPHtx5LQ8N80Afmgz5ISpizbvyeEiG/u2RtLBMXw7iYo4+tmk3upIJy82PgQH7/HScnxo/HyQmFIs9PGhkxciQjRwLk5HD1KhcuKMNYXBzx8SQlcfEiFy+yY4fykVKlaN9emUwqVy6I305RZG2NtTWTJuXyUU4OR45Qty5GRoVelhCiMEgAE0IIId5EYiJjxgA4OzN7NubmKhizuoXW8E0db93q6P/L3HOzd5g9Pe83pXXdzYwZQ9++hbdY4uTEtm2EhhIaio0N48bRuzfa2vkcRaGgalWqVqVdu5cXnz/n4kVlGLtwgYgITp1i40Y2bkShwNZWmcSaNXt/l4a2b+ejj9DVpXNn+venc2d0ddVdkxBClaQJhxBCCPEmLCzw96d0abZsoX59vv6aZ89UM3L58nw9Xdf/qmvJ6V6lTPSOH2fAAKytWbKE9NRsOnemfXvmzePWLdXM9zeDB3PlCt7eVK7MyZN4eFCzJt7eJCe/9dDa2tSujYsL48czfz4nT3LzJsuW4eZGqVIcP8533+HgQPnyfPwxAQHvY+t2Ozs6dSIzk40b6d6dSpUYNozwcGmcKESxIU04iiFpwiGEEIXm7l2mTcPfn+xsTE35/nv698/Pnr3/8uwZixbx88/Krg1VK2acfVK1xJMUAE1NWrfGzY3u3TExUdmUf5GRwcqV/Pwzp08rJ1yxgl69CmIqSEvj4EG2bmXbNhISlBc1NWnWjI8+olMnbGzeo2WxGzdYtYqgIE6cUF6pVYvhwxk7Vq1lCaFi72cTDlkBE0IIId6csTF+foSH07gx168zYADt25OUpLLxDQwYOZILFwgKwtaWKzd1TJ/EeeotO1OjS46GJnv2MGwYlSrh5MSCBaSnq2xiAHR0GDiQU6fYvp0ePTA0VGW2fJ2eHh064OenfGFs1izat0dLi8OHmTQJOzuMjGjXjm++ISSEO3cKrI6ioVIlvviC48c5fRovL0xNuXCBL77g9m11VyaEeFuyAlYMyQqYEEIUvuxsFi9m4kRu32bgQJYsKZBZwsLw8WHrVnJyKKvx4JsGmwcYrDWKCiUjA2DOHGUDjEL0+DEZGRgbF8zoT56wezfbtrFnz+unPFtaYm+PvT0tWlC/fjFfHMvKYs8eMjLo0kXdpQihSu/nCpg04RBCCCFUQEODTz+lRw8WLMDVtaBmedHsPTYWf38CA8uMPTFgLAM6Nbs/zW5z45xIxUcfFdTE/8zenrg4OnRgwABcXdHTU+noJUvStStduwKkpBARQUQER44QFUV8PPHxBAYqb2vcmBYtlJGsYDZkqpOmJh065HL9xg1Gj6ZBAzw8qFq10MsSQrwJWQErhmQFTAgh3gcpKcydyy+/cO8egIUFn3/O0KHo6//lptBQ0tLo3LngFojGj8ffX7n50ciI3r3p1w97ezQK9C2HzExOneLIEWUk+/OdMUBDg+bNcXOjZ09MTQuyiCIgNFQZzDQ0aNOGgQPp3h0DA3WXJURevZ8rYPIOmBBCCPFOqlCBKVNISmLWLKpVIyGBMWOoUYMZM7h7F4DsbJydcXHB3Bwfnz+uqthPP3H9Or/8gp0d9+8zdy4ODlSsyMCBr+8ZVCUtLRo1YsQIgoK4cIFbtwgOZuJEWrdGT4/wcMaMoWpVWrZkzhxVdG8sqpyc2LULd3d0dNizh/79MTGhSxfmzuXaNXUXJ4TInQQwIYQQomD5+eHqqsrOHH9VqhRjx5KQwMqV2NmRksI331C9OuPHk3xTgwULqF2by5eZMAEzMz79lJMnVV6DsTGff05UFLGxjBtHjRrcvs2yZQQEqHyqf2BigrMz333Hvn3cuUNwMP37Y2BAWBijR2NmhqMjfn7FM4k5ObFyJTduMG8ezZuTmsrWrXz2GbVqFc/frxDvPglgQgghRMHatYvgYBo2ZP36gppCSwt3d6Ki2LuXDz/k6VN+/pmaNRl+uP/FrefYsYOPPiI9nUWLsLWlVSs2bCiIMurX56efuHiRM2dYvJjx41+/4cEDwsJU3qzxVfr6ODsTGKhcFnuRxF6siRXjJFamDJ6eHD5McjKLFtGjB23aULq0ussSQuRCApgQQghRsFatolcvHjygZ088PFR2XnOu2rRh2zZOnKB/fzIzmTePWpYKZ/+OMdNCiItjzBhKl+bgQXr0ICys4MqwsmLQIMqVe/36iBG0bImxMd26sWBBAeegP5NYcjIrV9K1Kzo6L5NY69b89pvyeLXipGJFPvmEdevYto0SJV75KCODVq1o0YLp04mOlpOdhVAXCWBCCCFEwTI0ZPVqli3DwICgIJo0UZ5rXHAaNCAwkPh4Ro1CW5uQEBo3xnmsRUSv2aM3/1sAACAASURBVFy7xq+/Mnw4DRoUbBG56duXhg159oxNmxg6lCpVsLfHx4f4+IKctVQp3N3ZuJFbt1i+HFdXdHQ4cIARI6henTp1GDmSLVt48qQgiygCMjOJj+fIEb79lsaNMTSkbFnKlsXAAG1tZsx4/f7kZKpXR6GgdGlatWLMGAIDiY0lM1Md1QtRfEgAE0IIIQqDhwfHjlGvHmfP0rQpfn4FPmPNmvj5KWOYvj4hITRvjmOnklvMPuO33zA0fOXu7GwmTWLKFGJiCq6kzp2JieHqVebPx9UVfX2OHmXCBGrXpnfvgpv2D6VK0bcvmzaRkkJQED16UKYMcXH4++PiQtmytG7Nd98RGUl2dsFXU+gMDEhMJDgYT0/MzHjyhPv3uX+f1FSysnJZmc3K4vFjgEePOHgQPz8GDKBBAwwNsbfn4MHC/x0IUTxIG/piSNrQCyFEkfX4MZ99xvLlAL/+ymefFdK8t2/z66/4+fHgAUCjRkyYQM+eKBR/uaNSJbKyAKpVw9WVrl354IMCPeD42TN27mTjRkJCsLdn27aCm+ofZGVx4gS7d7N7NwcPKs+zBoyNaduW9u3p2JFq1Qq9rELx+LFyLUtP79WzC/7m9m2OHycmhpgYjh8nMZGcHCZO5LvvXrktJ4eEBMzNC/gIAlGsvJ9t6CWAFUMSwIQQoohbsoRvv8XHhz59CnXeBw/w98fPjzt3AGxslDFMSwuA8HBWrCA4mOvXlQ8YG+PsTLdudOlS+N9V37+Pvz92drRrh65uwc/38CF797JrF6GhJCa+vF6nDh06YG+PjQ21axdoIn03PHxIQgLW1ujovHL9t98YMYIqVejTh/79qV9fTfWJd4kEMFFMSAATQgjxL54+ZcEC5fldQI0afPEFgwb90bIhJ4fISDZuZNMmzp9XPrNgAZ9+Wsh1LlzIkCEAhoZ06YKHB05OhRUDExPZtYtdu9i3j4cPX17X16d+fRo2xNYWGxsaNKBkyUIp6F1w7Bh9+rzMrjY29O+PuzuVK6u1LFGkSQATxYQEMCGEeEddvkyVKoW0xJKeTmAgP/2kbIBRrhwjRjBiBCYmf7kpLo6NG4mJYdo06tQpjLL+4ulTZs9mwwaOH1deMTNj4EAGDqRmzcIqIjOTo0fZs4fjxzl5kkuXXvlUQwNzc2xtlb9sbDA1LazKiqScHA4fZvly1qzh3j0ATU3atWP0aDp3VndxoiiSACaKCQlgQgjxLgoJwdkZCwu8vPDweH17VwHJzmbrVry9OXwYQFeXjz9m0iRq1/6vJ6Oj0dCgYcOCr5FLl1i5kqVLSUgAUCjo1o116/7yAluhefCAEyc4eVL51zNnXr429oKJCW3a4OpK586UKVPo9RUZGRls20ZQEFu3kp6OkZEyjwnxqvczgMlbkkIIIUSRULs2tWqRkMCQIdSsia8vT58W+KQaGjg7Ex7OoUO4uZGZSVAQVlY4OxMR8c+PPX+OgwONGtGkCYsXF+zRZlCjBpMmER/P/v14eKCvz8GDauqFXqYMrVszejRLlhATw5MnnDjB0qWMHUubNhgZcfs2a9bQty/ly+PkxK+/cvWqOgpVNx0dunZl/Xpu3GDRIoKC1F2QEEWIrIAVQ7ICJoQQ76gX61HTphEVBX9sCxw1irJlC6mAhAR++YWAANLSABwc8PKiS5fc1ppmzMDXl7t3AcqUYeBAhg3Lw8KZCjx5QlYWpUsXwlT5l5jItm1s3syBA8qMqFDQqBGurri6quXstSIqPJxOnShdmho1qFGD6tVf/jIzQ1tb3fWJQiIrYEIIIYRQpxfrUceOsWULLVpw5w5Tp1KjBgsXFlIBFhb4+ZGUxOTJGBkRHo6LCzY2BAby/Pmrt379NdeuERhI8+Y8eICvL3Xr0q4dGzYUdJElS+aSvg4exNSUXr3YtQt1/mzZ3JyRI9m9m1u3WLOG/v0pVYroaL79FhsbqlfH05MtW/721XxfXb9OWBhBQUyfzuDBtGuHuTmGhoSEqLsyIQqQBDAhhBCiaFEo6NKF8HD276dDBx49opA3NFSowJQpXLqEjw+VKxMby4AByn2AFy785T49Pfr35/Bhjh9n6FBKlGDvXnr0YP/+Qi0XgGfPlJGnY0caNmT9enWfpWxkhJsbgYHcusXWrQwdSsWKXL5MQAAuLlSqxMCBhISoaSdlEeDgwP37XLrEvn0sWcLkyXh48MEHmJkBuWToPXto3py+fZk5k9BQbt8u/JKFUBXZglgMyRZEIYQoTi5epFw5DA3VM3t6OitW8PPPnD0LoFDg4MCgQbi5UarUq7c+fEhQELGx+Pi83n/ihx9YvZo6dahbFysr6tShdm2Vn+117RrLljFvHteuAVhb8/XX9OxZZI4Fzs7m2DE2bWLz5pf9/StWpG9fBg6UU7P+w88/M378K1dMTbGxwdYWBwdpsfjuej+3IEoAK4YkgAkhRLEXG8udO7RuXXidAKOjCQhg1SoePwbQ08PZmaFDadcuDzV0787Gja9c0dSkRg1sbPDwwMVFhXWmp7N4Md7eXLkCUK8e8+bh6KjCGVQhLo4NGwgK4tw55RU7OwYMoE8fjI3VWlkRFhNDdLSyBeWpU8r/EF84epSmTdVXmXhzEsBEMSEBTAghij1zcy5exMqK8ePp27eQetYDaWls2UJAAHv2KLeJmZnRpw+entSo8c+PZWZy4gRnz3LuHOfPc/YsFy8qd9/p6PDsmcrPPsvIYOlSfviBpCQ6dWL7dtUOrzrR0QQGsnIld+4A6OjQoQMeHnTtKo0o/k1ODomJnDjBiROkpTFtGgYGr9yQno5CUXj/Y4g3JQFMFBMSwIQQothbvpyJE5UdzitXZvRoPD0LtTHg1ausXMn8+cqjiTU0aN4cDw/69Xv9O+HcZWQQH8/Ro5QpQ48er3/65An6+m+fyp4/Z/NmGjUqxIOb30x6Ort2ERTEpk3K/hxly9KzJ56eNGqk7uLeQZmZVK/O06f07s3AgTRrpu6CxD96PwNYEdkWLYQQQoh86NePxETWrKFJE5KT8fLCzIzRowvv0CkzM7y8SEhg1y7c3dHRITwcT0+qVMHTk23bSE391+d1dKhfn8GDc0lfp09TtiyVKjF4MJs3v80hY9ra9OxZ5NMXoKuLszNr1pCUhI8PVlbcu0dAAHZ22Nnxyy/Kdv8ijzQ1qVePBw+YNw97e+rVY+ZMbtxQd1lCKEkAE0IIId5J2tq4uXH0KNu307Ytjx8zZw61anHqVOHVoKGBkxMrV3LjBr/9RpMm3L9PQAAffUS5cri4EBBAcnI+By1bFnNzbt9m8WK6dqVcOVxdWbjw1Q6Mby47m3r1sLBg8WLlcWdFSOXKfPklZ85w9CiffYaRETExjBqFqSnu7i/3fYp/p1CwcyenTzNuHBUqcPYsX35J1ap06cL69fI1FGonAUwIIYR4hykUdOrEnj1ERdGrF9Wq5W0HoKqVKcPw4Rw7xunTTJ1KkyakprJli3JNzM6OyZOJjMzbt76VK3PuHKdP8/33NG1KejrBwQwZgqUlVau+7FrxphQKSpcmMZHBg6lQgYED2bGj6HWDb9qUX3/lxg1+/53OncnMZPVq2rfHwoLvv89/qH0v1avHTz9x7RrBwXTrhoYGW7fSsyfr16u7MvG+k3fAiiF5B0wIIYTa3bnDtm2EhLBzJ48eKS+amNCpE87OdOyY58b6N26wZQu7dhEWxt27HDhAixav3JCdTUYGenp5ry0rizVr8PXl2LGXhbm50acPDg55H6YQJScTFERAABcvAmho0LYtQ4dKr458uHOHFSuIiuL775WnjYki4P18B0wCWDEkAUwIIcSfUlLw9aVDB9q0UU8BaWkcOMCWLWzdSlKS8qKeHq1b4+yMqyumpnke6+lTSpR4/WLv3qxfj60tjo44OuLgQMWKeRzvwgVWr2b1auUpZ8CmTbi65rmeQpadzd69BAaybp3yHbtKlfDwYMgQzM3VXdy77Nkz9PUL70gH8RfvZwCTLYhCCCFEcbZtG97etG2LgwPbtqmhAD09OnbE359Llzh1iu+/p0ULnj9nxw5GjMDMjBYt+Okn5dLOf/h7+gJq1EChICoKX1969qRyZRwc8PcnJeU/x6tVi2++4cwZTpzAy4tOnbCyyvdvsPBoaNC+PYGBJCczfz4NGnDjBj4+1KqFoyMBAW/TsOT9lZREuXJYWjJv3n+1jhFCNWQFrBiSFTAhhBB/Sk/n55/x9eX2bYBGjZg0ia5d0VDrz2BfbFDctIkdO15+02trS/fudO9OvXr5HO7ZM44eJSyM8HDCwnj6FEBTk/Hj8fZ+y1IDA7lzh969qVz5LUcqAOHhLFjA2rXK6GVsjLs7XbvSqhVaWuou7h1x9y4tWhAfD1C+PCNH8tlnlC2r7rLeF7ICJoQQQojiRleXiRO5dAlfX6pUISaGHj2wtiYwUJ2dJ8qVw8ODDRu4e5fgYPr3p3RpTpzg22+pX5+aNRk9mrCwPPerMzCgTRu++YYdO0hJYeVKXFzQ1OT8+bcvdcQIxo2jWjVcXdmyhaystx9SdRwcWLqU5GTmzsXOjrt38fenfXvKl6dfP9au5fFjdZdY5Bkbc+4cwcHY23PrFt98Q9WqeHqqquumEH8nK2DFkKyACSGEyFV6OosX8+OPynexPv2UBQvUXNKfsrI4coS1a1mzhps3lRerVqVrV5ydad06/ys6qano6Lx+mnNGBrGxNGiQ994VBw7g709wMBkZAKamDBrE4MFUr57PegrBiROsWcPmzS/fadPVpV07XF1xdqZSJbUW9y7Yu5eZM9m5k5wctLQYPpw5c9RdUzEnK2BCCCGEKM50dRk+nPh4liyheXMaNFB3QX+hqYmjI35+XLvGnj2MGEHlyly5wpw5ODlRtSoTJii3ieWVvv7r6Qv44QcaN6ZSJYYN48CBvKxntWrF2rVcu8bMmdSuzfXrzJiBuTmdOnH9en7qKQS2tnz/PWfOcPEivr60b09WFtu24elJ5crUq8eUKURHq7vKIqxtW7Zv58QJ+vVDoeD333O5Jy2t6J1aIN4xsgJWDMkKmBBCiGIgO5uICDZsYMMGLl0CUCho2ZJPP6VnT/T132jQI0cYOpTTp5X/aGxMhw58+CGdOmFi8p9P5+Rw6BALFyrbEK5YQZ8+b1RGobl1iy1b2LyZ3btfvmxnaal8T0xHR3nF0PCVsFqy5CsrhEZGGBkVVsVFxq1bZGe/3lEzOZm6dUlNpXp1LCwwN8fCQvmrRo2XX0+RZ+/nCpgEsGJIApgQQog3M306d+4wciQWFuou5VWHD7NoEWvW8OQJQJky9OnD4ME0avRGw50+zapVrF378j0fDQ1cXNi4MY8D3L/PqVM4OuayxlZEPXvGzp1s3kxICHfv5vvxmjVp2pQmTWjShEaNcm9H+T64f5/WrYmNzeX1RE1NfvyRL754/frNm2hoUL58XqeIjeXKFe7d4+5d7t7l+XO0tChVCiMj3NxyScJPn6KtnY/sd/cuaWn5OfyhYEkAE8WEBDAhhBBvpmJFUlLQ1KRHD7y83jTeFJjUVEJCCAhg927lFSsrPDz49FOMjd9oxIQEtm1j+3b276d8eS5depvukNnZDB+Ori69etGiRVE9Viori7AwgoNfSREPH5Kd/fKex49f2WWXkqJsLPmCpib16tGkiTKSWVu/dx0X09JISCAx8ZW/XrnClClMmvTKnRERtGhBTg46OlSsSJUqVKyIqSl6ejx+zGefYW39yv1bt9Klyz/OO2kSM2a8cmXvXjp2JDMTDQ1Klwa4f1/5kaYmy5bRt+8r9+/cyUcfkZWFsTF2djRujJ0ddnZUq/amX4u3JQFMFBMSwIQQQryZCxfw8WH5ctLTAdq3x8uL9u3VXdbfnD/P0qUsXqzsra+ri4sLQ4fSrt2bxp4Xv2Fd3VcupqYycSImJnTuTIMG/5nNHj6kYkXS0gCqV6dPH/r0yX9L/SIoK4szZ4iM5NgxIiOJjX0lnunr07ChMo/Z21OzpvoKLXquXsXNjQsXuHcvl0+/+IKff37lSlISw4ahqYmxMWXLYmyMjg4ZGTx9SloaI0e+fuJ2VBQ9enDjBs+fvz64vj5LltCr1ysXT56kTx9u3eLOnVeulyuHvT3+/oWfxCSAiWJCApgQQoi3kZyMry/z5/PoEYCdHRMn0r27usv6m/R0Nm5k0SL27lWu39SqxeDBeHpSpowqJoiJwc5O+felStGokXK5oFEjLC1zzWPnzrFsGatWceWK8oqNDX364O6OmZkqSioKUlM5fpzISGUkS0h4ZT9e06YMGoS7u3JBRryQlkZysvLXjRtkZFC+PK6uKvovFTIzycggPT2vb+tdvUp0NNHRREURHa38Scbq1a8HtoInAUwUExLAhBBCvL0HD5g7Fz8/UlIATp16fbdU0XHpEosXs3Qp164BlC7NmDGMGaOKb25fHBe9axeXL79yvUwZVq2iU6dcH8rJISyMFStYt075vpWmJqGhtGnz1vUUQffvvwxjBw/y4AGAvj7duzNoEG3aqPnMb5EXV65w9apaNs6+nwFM/pcQQgghRC7KlOGrr0hKYv58/vc/LC3VXdA/q1GD6dNJSiIkhPbtefiQqVOpUYMpU5Rx4M117kxAAElJpKSwbRszZtCtG1Wr8vBhLpvKHj5k0yaSk190a5w3j+RkgoPp3RsLC5UtdRQ5RkZ06MCkSWzezM2brFlDly5kZLBiBe3bU60aEyZw8aK6qxT/qmpVHByK6muLxZCsgBVDsgImhBCioOXksHYtdeoUrcPEXjh8mB9+ICQEoFQpPvsMLy9V91FPTc2lEf64ccyahYYGzZvTowfdu//7GzXx8ejrF6OtiX91/TrLl7NgAYmJgPJr4uFB377vbwdFkRtZARNCCCGEyJNDh+jVCxsbmjTht9/eeqFJpVq0YMsWwsPp0oXHj/HxUS7DqLLIXI8h698fV1f09AgP54svqFGDJk3w9n7Z7P4vUlOxscHcnMGDlSGlWDE1xcuLhASiohg6FH19wsOV50F7eLzsYinEe0kCmBBCCCHyrWlTRo/GyIioKEaMoHJl+vVj795cjkdSlxcxLCzsZQyrWlXVMew1trZs2sTt26xdS+/elCxJVBRffYWlJc7Or92rp8fgweTksHgxderg4UFcXIEVpkZ2dsyfz/XrzJ+PvT2PHhEUhJMTdevSrx9TprB8ORERrzflE6JYky2IxZBsQRRCCFE40tLYtInFi9mzR9mHsEYNRoxg3Dh1V/aq8HC8vV/ZlDhhQsG/lJWWxq5drF/Pli1Uq8bx43+/JSmJ2bOZP5/0dDQ06NyZadNo2LCAC1Ojs2dZsoTly7l58/WPSpfGwgJzcywsXv5N5crqqFIUnvdzC6IEsGJIApgQQohCdvkyS5eyZImyWWByMpUqqbumvzlwgClT2L8foGxZvviCoUMxMSmUuTMzXz+tOCODdeto0oRatZKS8PZmyRIyMtDQYOBAFi4s1g0RMjOJiCA+XnmK8YuDjB8+zOXOEiWwsMDGRnlksK0tBgaFXq4oQBLARDEhAUwIIYRaZGezbx9Pn+Li8vpHly5RogTly6ujrFft38+UKRw4AKClRYcOuLvTtSslSxZuHatX4+7Oi4aJgwfTs+fVuwY//sjChWhqcucOenqFW4/a3b6tTGIXLrwMZi+6+P9JSwsrK+zslHnMxub9+zIVNxLARDEhAUwIIUSRcuMG1aqRlUWzZjg74+xM/fpqLmnfPnx92bGDjAwAAwNcXHB3p1MndHQKpYIHDxg/nt9/58kTgNKlcXdn8OBbVRtnZFClSqHUUPQ9eEB8/Msjg8+cITPz5afa2tSvr8xjjRtjbV1Y//KEykgAE8WEBDAhhBBFSkYG/fsTHExamvJKjRrKJNa69etb8wrT/fts2cLatWzfTlYWQJkyODvj5saHHxZKYY8f8/vvLFpERITyio0N48fz6jejd+4QHk7r1pQuXfAlFWWpqZw8SVQUUVFER3PunPJf2wu6unTsyJAhfPghmprqq1LkgwQwUUxIABNCCFEEPX1KaCghIYSEkJKivFiuHFu2YG+v1srg+nXWrWPtWsLDlVdMTenRAzc3HB0LpYIzZ1i4kP+zd+dhNeUPGMDfc2/7nqi0EKlIyi4qRHbZsgyDGcswYzdjbLOYxc8ymBnrmMyMUYx9XyaSbJWt0CZLWmiVRJS2e35/aAbJMEP31O39PD2eOudc501u97z3e873bNyIrCxoaCAv79kKMX48fH2hpQVvbwwfrsRhukru0SNcuvS0j129WjoVjKUlRo3CmDGwsZE4Ib1K9SxgnIaeiIiIlEFXF/364ZdfkJqKM2cwdy4aN8bdu0/LmIQsLTF1Kk6fRkwMPv8ctrZIScGKFfDwQKNG+OYbJCZWcILGjfHDD7h9G7t3Y/fuMgM4H3yATp1QWIjt29G3LywsMHEiQkMr0aT/0tDVhZsbpk6Fvz9iY5GWhiVL4OCAlBTMnw9bW3Trhu3bS08zJao0WMCIiIhIqWQytGmD//0P0dHIzUXfvmU3iIjArl149EiCbI6O+PZb3LiBsDBMmQJzc8TFYd482NqiRw/s2oWioorcvaYm+vVDz55lFrc0uxXUclaG/5HvFimaNMHdu1izBm5usLPDxo0VmadqMTXFjBmIi3t69+cjRzB4MMzNMX48oqKkzkdUigWMiIiIJKOrW87CwYPh44NateDjgz/+wIMHSo8FuLpi+XLcvo3DhzF8ODQ0EBAAHx/UrYvPPkNCgnLT7NqF776r+W63T39xiBy5NOZE1owZsLREfDxWr1Zukirh2bs/N2+Oe/fg6wtnZ7RsCV9faZo90TNYwIiIiKhyWbwYbm4oKMCuXXj3XZiaok+fih99Ko9cjq5d4e+P9HT8/DOcnZGWhgUL0KABunTB9u3KivTBB1iwAHXr4sYNfPqpYzfrJekjkreEhoVh2zalBKiKDA0xbhzCw3HuHMaNg74+wsMxfjysrDBpEmJjpc5H1RcLGBEREVUuPj44fRq3bmHVKnh6orgY+/fDxwd16uDPP6WJ9ORg/skMfOPGQUsLR49i8GDUqYPZs3HzZgXvXkcHc+bg5k0cOIBevVBYiI0bZR5uruNdrCP2ltk2IACjRyM8vIIjVSGtWuHnn5Gail9+gasrcnKwejWaNMGAAbhwQepwVB2xgBEREVFl9GSqiWPHkJaGH3+EkxPS0xEaKnGqJ2e3pabi55/h4oL0dCxeDDs7pQyIyWTo1QsHDiA+HnPmwMwMkZGYO7fMVn/8gfXr0aoVvL3ZL56hp4cxYxAWhqgoTJgATU3s3o1WrdCtW+ltuYmUhQWMiIiIKrVatTB1KqKicPMmvvpK6jQA/hoQu3QJp05hxAhoaDwdEJs5E5GRFbx7GxssWIDkZOzdi02byqxcsQKzZkFXFwcOoHVr1rAXODlh9WokJWHePBgZ4cgRdOwId3fs31/tp5UkJWEBIyIioqqhXr1y7q87dSq8vPD779LMreDuDj8/pKZi+XI0boz0dCxZAhcXODvju+9w61ZF7ltDA336oGnTMouNok8vuj08bcH6RTOzDQxw4ABatUKXLjh3riLDVDm1auGrr5CcjB9/hLk5QkLQpw9cXODn99zNnYkqAAsYERERVWHnziEoCKNGwdISEybg4kUJMhgbY8oUREcjNBQTJqBmTURFYdYs2NjA0xO//oqcHCWm2b0bmzbpTRk96wfzzObdd3T/pa5u1tGjaNsWgYFKjFEl6Otj6lTcuIEff4SVFaKi8N57sLfH8uUoKJA6HKksFjAiIiKqwoKCsH493Nxw/z5++gnNm6NbN5w5I02Ytm2xejXS0xEYiBEjoK2N48cxdizMzeHtDT8/5OVVfIhvvoGvL7p2BaARfNgn4IPEx+Y3bLy+rr3WQvNuxe++CtLVxdSpiI/Hhg2wt8fNm5g2rbSGKeMHRtWOIPJsV5XTokWLiIiIvn377tmzR+osREREShIbi3XrsH497t8HgF694O8PY2MpI+Xn48AB+PkhIADFxQBgZARvb4wcic6dIQgVvPvsbOzdix07cPQoCgsBwMEBcXHPbuLvjzt3UKsWzM1hbg5TU5iaVnywyqy4GFu2YNEixMQAgJkZhgxB48ZwdISjI2rUkDqfqhkxYsTGjRv9/f2HDx8udRblYQFTQSxgRERUbd27h++/x/LlyM3F7t3o10/qQACA1FRs3oyNG3HpUukSGxuMHYvJk2FgUPG7z8nBvn3Yvx+2tli06O/Fd+6gnumjtfjQAA8KoFkMtVzoCwKKdAy1dWVOrXVaLR0CB4eKz1f5KBTYuxcLF+L8+eeWm5vD0RGNGqFx49I/a9WSKKKKYAEjFcECRkRE1dzduzh7Ft27Q1bJLraIicGmTdi0CcnJAGBsjOnTMWUKDA2lyXPou+ges5wFvORo0McHO3Y8uyAwELaFV+p7WCqlOFYCJ08iLAyxsYiNRVwcHj4su0HNmqVlzNERdnaoUwd16kBPT4qsVVL1LGBqUgcgIiIiestMTNCzp9QhytO4MRYswPz5CA7G/Pk4fhxffokffsC0aZgyBUZGys7Tc6YTul9CQgIKC1FUhIcPS0rwKCXnYa5ool+oOXTAsxsfP44fux46iF4lkKcaOT5yaVejdzvTPq6wt1d2bqVp3x7t25d+LopISsKVK4iJQVwcoqMRF4esLJw4UfZOYsbGsLJC3bqwtoaVFaytUbcurKxgZQUNjXL28uABcnJKP+7ff/p5Tg4eP4aBAYyMYGQEAwMYGj73p/L/x9DbwAJGRERE1cKff2LAAAwYgC+/lPjEOpkMnTujc2eEhGDRIhw4gHnzsHQpJkzArFlKv27N2RnOzn9/JQcMgHKHt5o1Q8MBjmcPeDQrPGudE4UTUTjxMz5Frlat+45tLd5pL5s8EVpaSguubIIAGxvYYvY95QAAIABJREFU2KBHj6cLb98urWRXriAhAbduISkJ9+7h3j1ERZXzN5ibw9oa+vrIycG9e6UtS6H476kMDUv7mKbma23/ZMsWLdCxI9q1g47Of981/Vc8BVEF8RREIiKiFx0/ju7dUVAAuRzvvosvvkCDBlJnAoCnNQyAvj4mTMDMmZV6uocrFx/HbQp/GBhWIy60RWGYOdJLV2zejHfekTRa5ZCVhdu3S8vYk0+Sk3HrFlJTUVRUzvZ/j3EZGZWOa/39oaGBBw9Kh8Xu38f9+6Vf/v3nm9DQQJs28PREx45o21aS8lw9T0FkAVNBLGBERETlunULCxbgt99QWAg1NXTvjmHD0LdvpRgGCA3FwoWlNUxPDxMnVvYaBkAUERWF8B0JsjOhPi0S9eZOgb6+1KEqMYUCaWlITkZeHoyMYGxc2rLe5FLFe/dKm1i51e5FDx7gwQOEhCA4GBcvPr3rtJYWXF3h6QlPT7Ru/brjaW+MBYxUBAsYERHRP0hMxP/+B3//0nvt6uvjq6/w8cdSxwIAhIVhwYKnNWz0aMydCzMzqWP9J337iB6nFtg5qtea8V6bPmZyudSBqIz793HyJIKDcfw4Ll9+eiakjg7atoWnJzp1Qtu2FRqhehawSjY3EBEREVEFs7HBunW4fRurVqFdOzx8iKAgqTP9pW1b7N+P0FB064aHD7FiBezsMGNGOdcTVX6aj+9Pz5nXN3RWqwHWB3UHL/c+ejRQfHI/NKoUDA3h7Y3vv0dEBO7cwe7dmDIFzs7Iz0dQED7/HO3aYd06qVOqIBYwIiIiqo5q1sTEiQgJQVpambnWSz25obMk2rZFQADCwtCjB3JzsWwZnJ3RrBl++AHp6a9+eCWx7YhR/M9HY+37yQSxT8H2qQe61Otqt8Bw8fR3M+PjpQ5HZdSogX79sHw5Ll9GZiZ27MDEifDwQLNmUidTQSxgREREVK2ZmUFbu+zC+fNhZARXV6xYgYwMKWIBrq44dAjh4ZgwASYmuHQJH38MKyv07Ik//kBenjSp/hX7cR0dr+6W307KmPhNjmFdW8R/mTd78R/W2d2GvnhPrSrxHVULNWvCxwerVuHkSbRsKXUaFcQCRkRERFRWw4YwMMDZs5g6FVZW6NcPf/75RrOF/2fNm2P1amRkIDAQI0ZAUxN//ol330XNmhg8GPv3P51GofKysDBb9YVR9k0cPJjbqa+aTNEqfgsiI5/dZP9+uOjf/Eh/47hm56eOerB8OY4eRUqKVImJKhDvA0ZERERU1sCB6NUL+/dj0yYEBGDvXuzdCxsbfPABxo1DzZrKziOXw8sLXl5YsQL79sHfH0FB2L4d27fD0hI+Phg1Ck2bKjvVvyOToWdP/Z49kZKC+Hi0a/fsSmNj/Ko2vv3Do7gEXEIqLOLQcD/sE7UbabRtMWVDi5pWqnuHMapmOAuiCuIsiERERG/RnTtYvx6+vnhy5VLnzjh6VOpMwI0b2LgR/v64ebN0ScuWGD0ao0ZV2ZshHzuW/+PPxbHXtJOvqhXlP7sm38RKOzUeGhpSRaMKwlkQiYiIiKisWrUwcyauXcPhw3jvPQwbJnUgAECDBvjqK9y4gVOnMG4cjI1x4QImTICdHdasQWGh1Pn+g06dtPdt1b9xUe3xQyQkICAAP/6YO3TcA9tmWi4OeH4a+6QkXPc/IwYelXKyFKL/hKcgEhEREb2aTIauXdG1azmrcnORmIgmTZSeCRAEuLvD3R0rVmDvXixahIsXMXEiFi/G3LkYNapqDhrJZLCxgY0NunV72X2de7R/FJnsIaBYFGR5dRpqd2wja+eK3r1hYaHUqET/HkfAiIiIiN7IuHFwdkbjxlixAtnZ0mTQ1MTgwYiIQGAgmjdHcjI+/BB2dli+vPR+0yrm/Ym63xnMD0W7AlFDNylWtmE9xo8X69RVDBhYKc4QJXo5FjAiIiKiN+LjAwsLxMZi6lTUro3+/bFrl2S1x8sLFy5g3z40a4bkZEybBgcH+PpCxe6APHMm5uTMUj8XsmD2g2G2Z6dgxW70Ly4RZLt3oksXrFwpdUCil2IBIyIiInojAwciKQm7dqFHD5SUYM8e+Pigdm18+CEkueOwIMDbu7SGubggKQnjx8POTtVqmCCgVSt8s1D9jxutp96YHL9kVw/HpC/wbbJlWzg5SZ2O6KVYwIiIiIjelJoa+vfHoUO4dQvff4+mTXHvHn7+GbNmSRZJJoO3NyIisG0bHByQmIjx42FvD1/fqnDrsH/J1hYzZuBoTO2PUj63Sg6Fp+eza4uLkXc3XzXPxaQqiAWMiIiI6K2pXRvTp+PiRURH49tvMXeuxHlkMgwahJgYbNiABg2QkIDx4+HsDF9fHDmCqChkZECV7klkYQHZC4e37wwR79Z0yNMzvd514uPzUVLkInqKsyASERERvX2NG6Nx43KW792LXbvg7Q1vb2hqKimMXI6RIzFsGPz98e23iI3F+PFP16qpoVYtmJnBwgKmpqhdG2ZmMDUt/dLaGnp6SspZQZo4CxF7WvYt3m0XuAaBa66bumHaNLtZA8rpakQVjwWMiIiISHm2bMGWLfDzg4UFZs/GBx8o777JamoYNQrDh2PjRgQFIS0NGRnIzMSdO0hLQ1oaLl0q51FyOZo1Q6dO6NQJ7u7Q1VVS2rdo3jxkTdy1+ccY9V/Xdkn3t8sMwdyQpIVOJXO/qD9zIGsYKZkgqtKoMwEAWrRoERER0bdv3z179kidhYiIiJ6Tk4Pff8f69YiMBABLy9IaprTRsBcVFSEzE2lpSE/HnTtISUFmJtLTkZ6OzEwkJDy9rbO6Otq0QefO8PSEq6uUmf+zm1GPoj71ax642FqRBOBe3abGl4JhZCR1rmpqxIgRGzdu9Pf3Hz58uNRZlIcjYERERETKY2SEadMwdSr27cNXX+HSJUyejMWLMWcOPvxQmsEYdXVYWsLSsvy1+fkID0dICI4excmTOH0ap0/j66+hrY3mzeHuDi8vdOgAdXXlhv6v6jfRrR/w0d20MbtGb2gVuMAyJRZZWSxgpEwcciUiIiJSNkFA376IiMDu3XBxwe3bmDgR69dLHas82tpwd8esWQgMRGYm9u3D1KlwdsbjxwgJweLF6NIFtWqhTx+sWIGkJKnjvh6T2hoD/vzAOv+aLPU2GjSQOg5VLyxgRERERNIQBPTrh4sXsXMnRoxAx45SB3oVQ0N4e+PHH3H5MjIysHVr6R3G7t/H/v2YOhX16sHVFcuWVZEmpq6OWrWeXaBQYKt/Ycq2EBWcqp8qDRYwIiIiIikJAgYMgJ8fbG2ljvJv1KqFwYOxdi2uXcOtW9iwAYMHQ0cHZ89ixgzUq4c2bbB0KRITpQ76bwQHI3bkIssh7hkmjlk/+LOGUUVgASMiIiKqjDIyMHIkfvsNRUVSR3kVKyuMHImtW5GVhX37MGIE9PVx7hw+/RT16qFxY3z1Fa5dkzrla3Bzg/oA73ihgdn9azU/Hplp0ihj+iLxSCDu3JE6GqkOFjAiIiKiyujiRfj7Y8wY1K+POXNw5YrUgV6Dlha8veHnh4yM0iZmYIDYWHz9NRwcqkAT09LC5zubCXFXfN02XIO96f3rZj/OEbp1hanpoxrW+PJLqQOSKmABIyIiIqqMunfH5s1o3Bi3b2PRIjg6onVrrFqFu3elTvYa/m5i6enYtQvDhkFf/2kTa9ECH36IVatw7BgyMqTO+oL69mrjTo8UY2J/6rT9d71JIXDLhb7uvdvirt3lbH3pEi5dqgLDlFRpcBp6IiIiokrqnXcwZAhCQ+Hnh23bcP48zp/HJ59gxAj88ovU4V6Ptjb690f//nj8GAEB2L4dBw4gIgIREU+3MTGBkxMaNYKTExwd4eRUZmoMaTg4yh2CBgIDU1Jw9IzC/FF8W++az25QUoJJvRPXHG4hiAqFmoZoZy9vUA/1/vqoXx9OThAEqfJTpcUCRkRERFR5CQLc3ODmhuXLsXcv/Pxw+DB27sTatVCrUsdxWlro1w/9+uHxY4SGIjoasbGIiUFMDO7exYkTOHHi6cY1az4tY507w95eutyApSX6+8gAuzLLCwqw+6xFM3GsJ4Jti+PlV6JxJfq5LSZPxooVZf+6rCwoFHj4EDk5ePQIjx4hNxf376OkBP36wczsuY3v3sWcOVBTQ40aMDFBjRpPPzE1RY0ab/2bJSWoUk9cIiIioupKSwtDhmDIEGRmoqSkirWvZ2lpoVMndOr0dElq6tMyFhOD2FhkZeH4cRw/XrqBo2NpeWvZshINKenoIOa6xqlTP/8ShsiQ3Hvnb1gWJtRDgg0S7dQS2pgnGTVrVvYxZ8/Cze2lkyvGxJQtbKGhWLeu/I0FAStXYuLE5xampWH2bOTnA4CGBnR1n66qVQtjx8LG5l98h1Qxquxzl4iIiKhaMjUtZ+GpU/D2hrs7vvwSrVsrPdObsbCAhQW8vJ4uSUlBbCyioxERgUOHEBuL2FgsWAArK/Tti3790KED1NWlS/wXE5PSZgjo5+U1O3GiWWAgfg5EdDS+GYcvRr3wAFNTODoiLQ0GBjAwgK4udHVhaAh9fejrY8KEstv36oWDB5GYiOxsZGfj7t2nn9y/X86ZmiEh8PN7aVyFAgsWvOG3TG+OBYyIiIioyhMEFBbi4EEcPAhvb3zzDZo2lTrTG7C0hKUlunQBgJIShIXhwAHs3IkbN7B6NVavhrExvLzQuzf69YOBgdRxAQA6OujRAz16AMDDh9DTK7tBQAC+/75eK+/IDh3g4IA6dV5jNE8mQ8+e/yLEgAEIDMS9ewBQWIhHj56uys/Hu++W3X7tWnz+OTw80KcPeveuFNfeVQMsYERERERVnrs7bt3CsmVYuRL79+PAAfj44Kuv0Lix1MnemFwOd3e4u2PRIsTElE7jER6O7duxfTu0tODujt69MWQIzM2lzvqXF9sXgFOnEBiIwMDSUShtbdjZwd4e9vZo0wZ9+ryNHctkz40kvlJJCbKzsWcP9uyBXI62bdGnD/r1g13ZC97oLRJEUZQ6A71lLVq0iIiI6Nu37549e6TOQkREREqVmYnFi/HTT8jPh0yGd97BkiWwsJA61tt24wZ278aePThzBgoFAMjl6NQJI0ZgwIDnLn2qPEpKcPQojhxBRASuXkVa2nNro6PLtuXcXKSnV3wVSk3F/v3YswfBwSgoKF3YqBE++giTJ1fwvjFixIiNGzf6+/sPHz68ovdVebCAqSAWMCIiomouNRULF2LdOhQU4N13sXGj1IEqTHo69u3Dnj04dqy0PujpYcAAjBwJT0/IKvEtb3Nzce0arl3D1atQKPDll2UnVuncGceOwdwcnp7o2BEdO1bwbJC5uTh8GHv34tAhZGfD2BjZ2RW5P6C6FjCegkhERESkaiwssHIlPv0U69ejVy+p01Qkc3OMG4dx43D/Pvbuhb8/goLg5wc/P1hYYOBAvP8+XpyMsDLQ10eLFmjR4qUbeHvjyhWkpWHzZmzeDAAWFqVlzNu77Hz1byfQwIEYOBDFxQgJgbHx294BlarEbwsQERER0RuoUwfz5qFlS6lzKIWhIUaORGAgkpKwaBHs7JCaihUr0Lw5GjfG4sXIyJA64r80bRpSU3HlCn76CUOGwMwMqanYtAkffIDu3Styx2pq6NABzs4VuY9qjSNgRERERNVIYSHGjoWWFurWhaUlTE1RuzbMzGBqWoXvLfYsa2vMmoVZsxAeDj8/bN6M2FjMno3PPoOnJ0aMgI9PJb1IrFwNG6JhQ3z4IQDExiI4GCdPwtW17GaiiJ07YWQEZ+fyb1RAlYdKPM+IiIiI6PXk5GDHjtJb9T5LEGBmhjlzMGWKFLEqwJMT/L77DgcOwN8ff/6Jo0dx9CimTMHo0Zg9u+oVFUdHODqWvffyEydOYNCg0s/NzODsjCZN0KQJnJ3h6AgtLWXGpFdgASMiIiKqRkxNce4cgoKQlob0dGRkIDUVmZnIzER6OqKjy26fnAxvb1hYoFMndO6Mpk0r9cwWL9LUhI8PfHyQlYUtW+Dvj3Pn8MMPWLcOkydjxgzUqCF1xLehdWt8/DHOnkV0NDIySue7f0JDA/7+GDxY0nz0DBYwIiIiourFyQlOTmUXlpQgK6ucO/Hm5CAuDpGRCAgAABMTdOyIzp3RqRMcHJSR9m2pWROTJmHSJFy+jHnzsG8fFi7EmjX4+GNMnw59fanzvRkdHSxbVvp5YiKiohAdjcuXERWFmzdLZ+p/VlYW9u+HkxOaNVORU0+rEP57ExERERHk8vIn1nN2xq1bOHoUx44hKAiJidi5Ezt3AkDduti/H02aKDnpm3JxwZ49iIzE/PnYvh3z5mHFCkyahE8+qfI17AkbG9jYwNv7n7ZZsgTffQcAurpo1QoeHmjbFu3awdBQORmrtSo1hExERERESmdqimHD8MsvSEhAfDx8fTFkCExNkZyM1FSpw/1Xzs7Ytg2hoejUCXfv4uuvYWuLxYvx+LHUyZRi3DiMHYtGjZCXh+PH8e236NkTNWrAxQWzZ6OkROp8Ko0FjIiIiIheV/36+OADbNmC9HTcu4du3cpu4OeHGTNw4kQ5p71VQm3bIigIp06hfXvcuYPZs2Fvj+XLS+/prMJsbbFuHWJjkZmJvXsxcybc3KCujshIfPcdbt2SOp9KYwEjIiIion9NEMo/XW3pUixbho4dYWWFKVNw+nQVaGLu7jhxAoGBaNECt25h2jQ4OMDXt1oMBNWsiT59sHgxTp/G/fs4fRrBwbCxkTqWSmMBIyIiIqK3ZvduzJ6N+vWRloaVK+Hhgbp1MX06wsIgilKH+0deXjh/Hlu3olEjJCVh/Hg4O2P1aly+XC2aGABNTbi5oUMHqXOoOhYwIiIiInprbG2xcCHi43H+PD79FDY2uH0bP/6Idu3w2WdSh3sVQcDgwYiKwoYNqF8fsbGYNAlNm8LYGF5e+OILHDqE7GypU1IVx1kQiYiIiOjta9kSLVti8WKcO4dt2xAQADu7cjZLTkbt2lBXV3q+l5PLMXIkhg7Fli04fBhhYbh5E0FBCAoCAEFAw4ZwdUW7dmjbFo0aVbEbo5HkWMCIiIiIqKIIAtq0QZs2T+9S9azvv8cnn0BDAw4OcHREkyZwdISTE+rXh1yu9KzPU1fHiBEYMQIAMjIQFlb6ceECrlzBlStYvx4ADA3h6oq2beHhATc3aGpKm5qqABYwIiIiIpKGszPs7BAfj6goREVh69bS5VpaaNECO3eWf2sy5TMzQ79+6NcPAIqKcPEizpxBWBhCQ5GcjMOHcfgwAOjqokMHdOuGrl3RsKG0kanyYgEjIiIiIml4eeHaNeTl4coVREcjNrb0z8REhIUhNbWyFLBnqaujdWu0bo0pUwAgNRVhYQgJwbFjiIzEoUM4dAgA6tZF167o2hWdO8PYWNrIVLmwgBERERGRlHR00KIFWrR4uiQ3F48ewdy87JYLFyI5Gd7e6Ny5spzsZ2EBHx/4+ADAnTs4fhxHj+LgQSQlYd06rFsHuRxNm8LLC15e6NChcl3tRpJgASMiIiKiykVfH/r65SxfuRJpaVi7FgYG6NkTAwagRw/o6Sk930vUqoVBgzBoEEQRFy/iyBEcPozQUISHIzwcixfD2BidO6NDBzRsCHt7WFtDEKQOTUrHAkZEREREVcOpU/jjD+zejYsXsWULtmyBlha6dEH//hgyBDo6Uuf7iyCgeXM0b47Zs/HwIYKDceQIjhzBtWvYsQM7dpRupqsLe3vY28PBobSS2duX3zxJlbCAEREREVHVYGuLL77AF18gIQG7d2P3boSGYv9+7N+P2FgsWSJ1vvLo6cHbG97eAJCQgCNHEB6Oa9cQF4eMDFy8iIsXn9ve0hIODqWtzMkJbdtCV1eS4FRRWMCIiIiIqIqpVw8ff4yPP0ZGBvbuxYkT6NtX6kyvoV49jB//9MucHFy7hqtXEReHa9dKP1JSkJKCY8dKt9HQQOvW6NQJnp5wdYWWliTB6W1iASMiIiKiqsrMDOPGYdy4clYFBSE8HIMGoV49pcd6PUZGpRMq/k2hQFLS01b25OKx06dx+jS++Qba2mjbtrSMtW4NNR7IV038uRERERGRCpo7F+fOYfZseHjgvfcwcCAMDKTO9CoyGerVQ7166NatdMnDhzhzBkeP4uhRXLyIY8dKB8d0dNCuHby84OaGNm04uWJVwgJGRERERCrI1xfLlmHXLpw8iZMnMXky+vfHyJHo3BlyudThXpueXukU9gCysnDiBIKDcewYrlwpbWUAjIzg4YGmTeHsDBcX2NpCJpM2Nf0TFrB/RfEo5fLZ8Osp2QWaNcxtGrdqbmvEf0EiIiKiSsjFBX5+WL0aO3diwwacPIlNm7BpEywt4euLnj2lzvfv1az59J5jaWkIDi79iI8vnYnkCV1dNG4MFxc4O5d+GBlJmJrKYn0oozgzfOevv245nNV57eZJDZ++O1KSEbJ23tzFfqdu54ti6TJBw6RJn0nzvvmkfyN93sOBiIiIqPLR18f77+P995GUBD8/+Pvj+nUEB1fJAvas2rUxbBiGDQOA5GSEheHyZURGIjISt27h3DmcO/d047p10aRJ6fiYszMcHHj/MSmxgD2j4MbW6e9M8I3ILhHVmzYvfrricfTad3pN3ZdcKD63vVh4N3LH1wMP7x63fu8qHxv+WxIRERFVVnXrlk5hHxcHW1up07xVdeqgTh0MGVL65b17pU0sMhKXLyMmBklJSErCgQOlG5iYwM0N7u5wc0PLltDQkCp4NcXS8BdF2s6xXsM3JRWLAARBXe2v0S8xJ3CGT2n7EnSsW3ft5tbY2kj+8Hb0qT8Dzt7KE3MjfUcOqGF+YoEb75tHREREVMk1bFjOwvx8aGmpyLiQsTE6dECHDqVflpQgPr50fCwqCuHhuH0b+/Zh3z4A0NZGq1bw8EC7dnBzg6GhhMGrCxawJ8T7B+dO+SOpWBRkNV0nfvf97KGuFk8aWHH0qtm/XC8UIavZfu6mTV90tXr6JkFhSuCCEcO/Dc7Mu/TD9JXDQuc68d+TiIiIqIpJTISTExo0wPz56N1b6jRvm1wOe3vY22PQoNIlqakICcHp0wgJwcWLpZOUPFG/funMih4elXf6/qqOM6QAAMR7+3/dkaaAoNVszoHAFaNcLf66yV1x1LYtkQUi5JbD1+385tn2BUDDssu83Zsn2qsJ4uOIdetCCyWITkRERERvRE8PZma4fBne3mjXDsePSx2ogllYYNAgLF+OCxeQlYX9+zFrFtzcoKmJmzfh64v33kP9+qhfH6GhUmdVRSxgAIDiyLMR+SIEve4ff9xa95kVYs7F8BvFgJrtuxN71yxnVFow7DhzantNASW3jx+7UvziBkRERERUqdWsiStX8PPPMDdHWBg8PeHujlOnpI6lFMbG6N0bixbh9Gnk5ODUKSxYgF69YGSEhARcuyZ1PlXEAgYAUORk31MAcivHhgbPtSzFvbv3FADUHJwcXnJ6ocy8Veu6ckCReitVoYSsRERERPSWaWhg3Dhcv47582FkhJAQdOiA/v0RHy91MiXS0oK7O+bMwYEDuHsXKSl4/32pM6kiFjAAgGBgZCgAintZ2c93KJlRDSMZALG4qEgs/7GAqBABiIWFL9+EiIiIiCo7PT189hni4zF7NnR0sGdP9W0gMhksLKQOoaJYwAAA6k4tm2oLUNwJ3BeS9+wKwbiJi40aUBx14XJB+Y9VpJw9m1wCyC2tLarOXdWJiIiIqFw1amDhQty4gc8+w8yZZdc+eIBZs7BqFSIiUMzLT+jfYwEDAAi1eg3rZixDSeK6STMDMp8ZBVNr/s7QxhpCSerW5ZtvlXOGoXjv6KIVIQUiZKbuHRtzEkQiIiIilWBujvnz4e1ddvnx4/juO0yejBYtYGSETp3wxRc4dAg5OVKkpCqIBewJwXTgvBmtdQWxIHZN31Y9526OuFP6joZa049XTGmsJWYfnD5w5qFbz010WJQS+GX/d31vFIuCRpOxH3pqSxGdiIiIiJSmVy/8+itGjoSdHR49QnAw5s9Hr16oWRMdOiAxUep8VOlxyOYvGs6f/rHuSvcxG6/lJx9eOOzI91MbtevU0dWlkX19S7epH56eueLMuWW9Hfd0HNC/c9M6BoqcxEtBe/acvPlQBASDNp/9PLO5utTfAxERERFVLLkco0dj9GgAyMxEWBhCQxEairNncfIkLl2CjY3ECamSYwF7Sq3e0N9P1244ZuyCA/GPxII7scFbY4O3PreJ+DA+2G9psN8ziwRdu/7f+K2b3kYXRERERFSNmJqib1/07QsAublITESTJmW32bsX4eHo1AlublDn2/XEUxDLkNXqOHdfzJWgVdMGtLHWlZVz36+nBHVjh85jlwbERO782LXGP25KRERERKpNX7+c9gVg3jx8+y08PWFign798NNPuHIFRUVKz0eVBkfAXqRp7TnxB8+J3+elRV84fzn2RuLt9KycB3mPi4pFQU1DW8/IxNyqvkOTVu1cG9XSkDosEREREVViGzfi998REICYGOzdi717AUBdHba2GDsWn3widT5SOhawlxJ0ajdp36dJe6lzEBEREVGV5eSEpUuxdClu38bhwwgIQHg4kpIQF4dt28oWMFHEihUoKkLDhmjYEDY2UOPRusrhj5SIiIiIqMJZWWHMGIwZAwCPH+PGDVhalt3m5k1Mm/b0S11deHigUyd06oSmTSHnLWdVAgsYEREREZFSaWnByamc5ba22LIFoaGIi8PVq0hORkAAAgIAoEYN/PIL+vdXclJ6+1jA3tjje2nZeQoRELRNLGpoSR2HiIiIiKquIUMwZEjp5xkZOHas9OPmTVy/LmkyektYwN5UweHJDv035YqA1qDtOdsGar61v/nkyZObNm36Dw9MTk4GUFBQ8NaiEBEREZHSmZlh6FAMHQoADx7AwKDsBtu349smr8VZAAAgAElEQVRv4eqKDh3QvDns7XmaYhXAAlZ5LVu2bN++ff/54dnZ2W8xDBERERFJ6MX2BSAmBlFRiIrCunUAoK2Nxo3h4gJnZ3h4oFkzJWek18ICVnmtXLmyV69e/+GBmzdvPn78eH+eI0xERESk0ubNQ+/eOHYMoaGIjERCAi5cwIULACCXIyEB1tZSR6QXsIC9KY32Xx87M7lEBGQmdm/1tmB16tQZN27cf3hgXFzc8ePHNTXf3tmQRERERFT5CAJatkTLlqVf3r+PyEhERuLyZaipwcys7PYzZuDcObRpAw8PuLnBxETJeQlgAXtzgrFty9a2UqcgIiIiourO0BAeHvDweOkGx47h4kWcOoWlSyEIcHSEhwfc3eHhgTp1lBi0emMBIyIiIiKqFk6fxqlTCAnBqVM4exYxMYiJwdq1ADBqFH77Tep81QMLGBERERFRtaCjg27d0K0bABQV4cKF0kp25gynT1QeFrBXKH6YlXHn7r0HeQVFCpmmrr6+vmFNs1p6/HcjIiIioipMXR1t26JtW3z6qdRRqhkWiXLkp5zZv3XngcBTZy9G38x8VCw+t1YQNAwsbRs2aeXZo2+/ft1bW+sIEuUkIiIiIqKqhQXsOYq7Z33nTv/69zPpheLLthHFwvu3r5y9feXsn36LP6nVYthnPyye5G7GUVsiIiIiInoFFrCnCuP/GNtj9MbrBX91L0GuU8PCuo51bRN9HW1tTbmi8HF+Xm52Rsqt5JQ7D4tEQCy6c2HD9E7Bx1ce+mN8Y21J4xMRERERUWXHAvaX/HPf+DxpX4KmheuQcR+829erbRNr/XJHthT5GXHnTwTs2OC7IeDqg6LkvVMGzGxwbkVnQ56NSERERERELyWTOkAloUheP/eHyAJRkFv2+TEkJmTDvFFdm76kfQGQaZs5th/88YqDly/vntxMVxALr6/77OdrJUrNTEREREREVQwLGABAcWvP1tP5IuTWY371n9LC6LUHsjRt+vyw9Vt3bUEsiNi9P4ENjIiIiIiIXo4FDABQHHsppkiEzLTnIE+Df/lYua3PoNbqQMn1WA6BERERERHRP2ABAwCIBQWFIiDo6ev9+6u4ZAZGBjJALCx4+dSJRERERERELGBPyK3qWskBxe3wiDTFv31w/uXz0UWAzKy2Gf85iYiIiIjo5dgYAABqzr171JVDzD+xePb2W//mREIx99ySORsSSyAzcevorF5hCYmIiIiIqOpjAXtCo834yR4GAkqSt4xs222m/7m0glc+piQn7uDS4e26fB32QBQ0Gn8wsYuuEpISEREREVGVxfuAlZLbT1i75KjnhINphSlBS0a6/jitQWt39zbNGtWva1W7pqGulpaGmlj0+HH+w7vpt28lXLt8PvT0mej0PIUIQGbk9uWvc1ppSv1NEBERERFRpcYC9jd1h3HbgrQmD526PjJHIRZlXw/Zdz1k3ysfJtN3HLrYf/WHzTn8RURERERE/4ynID5Lu9HIXy5cDdvw5fD2toZq/zwfoqBmUM9t6NzfTsVd3PhRc8N/P3kiERERERFVNxwBK0vNtPWIr/1HfF2UkxB5ISLqanxSSsbdew/zC4uhrq2rp6dnWKtOAweHhk4uTjZGnHSDiIiIiIheHwvYy6gb1WvhVa+Fl9Q5iIiIiIhIZfAURCIiIiIiIiVhASMiIiIiIlISFjAiIiIiIiIlYQEjIiIiIiJSEhYwIiIiIiIiJWEBIyIiIiIiUhIWMCIiIiIiIiVhASMiIiIiIlISFjAiIiIiIiIlYQEjIiIiIiJSEhYwIiIiIiIiJWEBIyIiIiIiUhI1qQNQRfnf//63atWqivv7s7KycnNz5XK5IAgVtxeqhERRLCkpkclkMhnfwale+KOvzkpKSgDI5XKpg5CyKRQKhULBl/tq6Mnv/Jo1a+rr61fcXjIzMyvuL6+0WMBUkI2NDYC7d+/evXu3ovdVXFxc0bugyqmkpOTJARlVN/zRV2cKhULqCCQNvtxXW3fu3Llz506F7kIQhCfHrtWHIIqi1Bno7UtKSqroI6TRo0efOHFi0aJFrq6uFbojqmz++OMPX1/foUOHjh8/XuospFQxMTETJ050dHRcs2aN1FlI2by8vIqLiwMDA9XV1aXOQkr1ySefhIeHL126tGXLllJnIaXy8/P77bffJk2aNH369Ardkba2du3atSt0F5UNR8BUU926dSt6F7q6ugCaNGnSoUOHit4XVSpnzpwBUKdOHf7oqxsNDQ0AhoaG/NFXQ0/OO23fvv2T/wZUfRgbGwNwcXHhE7+6OXnyJABjY+P69etLnUXV8Dx+IiIiIiIiJWEBIyIiIiIiUhIWMCIiIiIiIiVhASMiIiIiIlISFjAiIiIiIiIlYQEjIiIiIiJSEhYwIiIiIiIiJWEBIyIiIiIiUhIWMCIiIiIiIiVhASMiIiIiIlISFjAiIiIiIiIlYQEjIiIiIiJSEhYwIiIiIiIiJWEBIyIiIiIiUhIWMCIiIiIiIiVhASMiIiIiIlISNakDUFVlaGj4959UrTz5oRsYGEgdhJSNz/rqzNDQMC8vTy6XSx2ElI1P/GqLL/cVRxBFUeoMVCXduXPn4sWLXbt2lToIKVthYeGRI0c6d+6sra0tdRZStuPHj9vb21tYWEgdhJQtJiamuLjYxcVF6iCkbBkZGVFRUV5eXlIHIWUrKCgIDAz08vLS0tKSOouqYQEjIiIiIiJSEl4DRkREREREpCQsYERERERERErCAkZERERERKQkLGBERERERERKwgJGRERERESkJCxgRERERERESsICRkREREREpCQsYERERERERErCAkZERERERKQkLGBERERERERKwgJGRERERESkJCxgRERERERESsICRkREREREpCQsYERERERERErCAkZERERERKQkLGBERERERERKwgJGRERERESkJCxgRERERERESsICRkREREREpCQsYERERERERErCAkZERERERKQkLGBERERERERKwgJGRERERESkJCxgRPQfFOemJyclZzwskToIERERUZXCAkb/Tv7NI6tmDPZwrFNLT1vftK5Th2Gz1wYnF0gdi5Qs78hUl3o2du/8nqqQOgopwaP4oF/mje3ZulE9cyMdTR1DUxvnTkOm/XAg7gF//ipNkROz67vJgzo2sTEz0tHU0jexsG/d8705PwclPBKlzkZKlh/+dStdmSCv/WFgodRZqOIUhXxiqyb8I7UGM0KLpM5Z5alJHYCqkPzodWMGfbwl7uFfr7yPkmPuJMec3Lr2p9Frd615x1Zd0nikPA+Cth3KUvD3R3UgZp9ZPv69z3dee+aIO/9OUlRwUlTw9jXLvD739//c04zv5akeRWbwN0OH/S84vfjpTz477Xp22vXzf/ovXzpg8ZbfJrUwECRMSEr0MOSr0QvD80S+b6/q8hJupPGNNSXgARS9JkXyppE9Juy8XSxC0LHx6NOzdR2tB/EhBw6cSy24H/nr+z3VDEPX9DDhq3E18Dhy9cLtmfwNXR0UXFnzbp9PAu4oAEFmYNvRu3ur+gaPb8VeDD0Rcv1eSVFK4Fd9+yqOBH7lqi91VHqrCmJ+HDLg2+M5CkDQMm/WpWeHJnWMZDkJFwL3HY3NLs6/sXNa72KDsF3v2fCAXPWJOUFzx/wQVcBhT9VXnHgjsUgEZPp1nBxMNcrdRm5lpceDvTcmEr0GReaOYbVlAAQNuxF/3Hj894qHl1f3sZILgKBmP+1EroQRSRkKMiK2fd7VSv3J716NjiuTS6SORBWn+Ooydx0BgCCv3XXByczip6tK7p75oY+1mgBA0Gw2L6JAupT09inS/PoaywAIWo6j/7j66JlVJVkh8z1NZAAgtxxz8L5kGUlZFHf2j6mn9tcBt8x8/BE+3VVX3p53DQVA0PXZ8kDqLKqNb13R6yiJWfu/7ekKCOqNpqz/aait5t9rdJ0/+m3NCCs5xOLrvt9uvM1hEVUkPghbNfHdPh2crUwsWgyef+R2Ed8IrQ6Kzq1bG5YnAnLbcRu2zPaoJX+6TlajzbQ/tn7ipCFALLjs+1NwvnQ56W1TpOz6PSBHAag1+cRvzVB7nWfWyUzazfntqw46AlCStn/HqTzJUpJSKNJ2TPno94RiqKmpcdRD5SlSbyTki4Dc2q6+ttRhVBsLGL2Gkthdu6KLRAhaHhMmt9V9fqVg0mP6GCc1QMwP2b4vhQ1MFT28tPuXP/afjEp5WMLqVW2U3AgOTiwBoO783oROxi8ee+m2mfyRh6YAKDKPB0UWKz8hVZD8c6fDC0VAvbHPkKaaL6yWWXfr4awGQJFzNY6Xi6g0RfLGCZO33lbI6w6b8W4dHjKqvOLEGwnFgCCvZ1dP/urN6b/jNWD0aorEwMOxRQDUW3r3snrxN7CaY+9edvMvXyl+HPbnsXsfvccLwVSOXvOhM2e3/vsIOz9y++pD8TzgVnHFN67GFwOQmbVzcyj3pVhm6uRkLgtKLFGkp6SV8AVFVSiybt3OFwHIrW2sy/vJy/QN9WUAIObl5fM9GdVVfMN33PR9GaKa7Qdrl3kHuS+ROhBVMPFe/M1sBSA3a2BryEO5CsXXS3q1wrioq8UA5JYtW1mW9w6YmmObFvrClXtiYVz09WKYcDZEFSMYtBn7bZu/vxTvrr+8lgVM5eXfzxU1tbSgXq++9Uve+Rbznxx/C5pamnyxVhmyWj4rg1s+FAV5rYaG5W1QFB93sxiAoGFTv9zXBFIFhbErxsw6ki2qO0zwXdytxpUgqQNRhStOuJFQDEBe376+XHyYfP7EyYgb6Q9FXRML2+YeHs61tfmL/m1hAaNXUqTEXc1VAJDXta1b/pC0ep16VnLcK1bcjrv2UHQt52QlIqpijIbvyhn+j1sUhAeeuKsABPXGTRvz1UR16Fi5tLN66dr86LXf+CeUALJavYd1M+Kve9X0+OJ3o7889QCaTtN++V8nQ4H3faoOHifEpygAQVsrZduHbks3nEkv/HuIW5Dp2/WaPH/xnEGN9KTMqCr4kkmvpMjOuqcAIKib165Z/pudcjMLUzlQLCqys7JFsIARqb7CKz99tu56MSDoth/ar5yTk0lViDnXz1xKuv8gOz0x9szBTRsDbzwSBW2HUT8t86nJ3/Yq6VHYN6P+d+4RtJp9+utX7jzeriZKkuITikQA9wMWzSi7UlTkXtu/4J1TR85uObCkmxmf+W+IBYxeSXz08JEIQNDW0X7JMZagrfNkXFrMe5jHKwKIVN7D6HVj+s46fl+EoO0ybf7Il52kSKqg6NyS/j3WZfw93YbMoOno739dMqq5MX/sqki8H/zZmGWRj6Hb+rNfP2ut8+pHkGooTrye+OTiAkGtluvYLz4b169dQ3Od4uzEy8e2r164dFvUfUXOhR/efa/BmYMfNuAkHW+EvzzplcTH+U8us9bQKP+efM+sEvMesYARqbT8mwe/7deszfhtNwtFQc3Se/mWL1pzvuJqRZEbuWXB3EU7r3IOehUk3g34dOzquELou837dWYzLanzkNIo0uITHomAoGk3ctP5Ez9N7tXM2lhbXVPfzMF96OebQ48v6mQsAxR3A7/55sA9Huu9GRYweiVBU0tLAICiopeeBF5YWPjkk38oaURUxT26tvuL3k5NvL/ceyNPhMzAZazfsa0fOPBJr+I0vNYk5z3Oy81OuxEe8NvnAxrpiY9uHv7uHfe+K2IKpQ5Hb5WYvmvq+N9uFgtGnvN/me7E53Z1IrMetz8tKysrKzPyt8F1X5hOTa/px77z3HUEQJG+Z8OhHDawN8ICRq8k6OrpCgDEx/mPX/J8E/NLVwm6+ro8MZhI9eRd3/1Z98YuPvMP3swTIejZ9f1638Uw36H2fIO8GpCpaWhqausZm9s27zbq2x1nDs9tqSNAkRX0xayNqbwRmOpQ3No0cdLmWyWyGl0X+U504FUq1Yxc27CGiYlJDQOtl1zvX3/oyPZaAiA+OnMqnPOyvBEWMHolmUktExkAsTAjPbv8BlZyJy2zBABkxia8KIBItYg54WuGNm/qs+Bw0mNRUKvZ4v0fgmKj9nzZqz7PPKyWBIO2s78cVEsGiLnBe4Pu841wFSHe3fnpx3vSFTLT3svWfmDLS3yoLKFGE5c6cgCKe2np+VKnqdp4rEyvJLN0aKArACi5lXCrpNxNim8npSgAyGs72HNSYiIVUnxrz0ce7SdtuZonCmpmbpPXn7t6bv00T2tNqYNRRRFz4sPPnT179lzU7Zde46XTvLWTGgCx6FZiCofAVISYm5JyXwEoMveNspELz9Nou/RGCQBF+s9dNQVBEASZyaiDPAO1mhF09HQEAAIEgQd7b4QFjF5No2GThmoASpLCIzLLe6+z5PqFSw8UgKDRsAnPWSBSGeL9E7N7DfWNzhMFjTq9FwZFnljxXrMafN1QbcVxPw9t5+rq2q7norMvO8lIkMtlTw6/5GocKCFSAeLDpIuhISEhoWevv+RkJwCKrIwsBQDByNyUp5+/ER4s06vJbLp0aagWFlVceD4gKGv8iFpl3vZQJB49cqUYEDRa9ejMu8IQqYpHJ74Yszz6sSho2I/afPTnAdZ8xagO1GwdbNVwvaQkIyI8SeHZoLzCXXQ15loxAEHd0tqcjVxFCIathn862738E10UqcHrNp69pxB0mw6Z0N1GDgg6LTgTuSrJD/rca+yhfFFuN+NU9JK25U3AUnzlxKn0EkDQae3W/IVZOujf4MspvQa1xv37N1oYHVWUe2Tt71eHftrwuf83+ed8fzlbIELQcfXpXYcvxUSqQXF708L1N4tFQb3JJ/6r2L6qDaFG+87NNQ+HFRRf2PDr+YkL27xwqZ+YuXft9tslgKDZxqu9Id91UxGCsdv4+W4vWVl05tNdm87eg6DfZvT8hV04PaLKEUw8u7bU+PNUQUm8/5KtU3aMeOHujmL67kW+0UWAzLjLoK41+MR/Izxapteh5jJhZm9jGcT8MwvGLTr3zDXXiowjcz5ceaUYkFsPn/N+ff6PIlINYvrBHaceiRDU233wYUtOt1GNyG2HjfUyECAWxXw/YtyGK4+eW1uYcuTLgR9tS1cAcosh04bxHtxEKkFmM2R8LxMZoMjYM3Hg7MC04mfX5t/c/UnfcVtTSyBouUz+bLAZ+9eb4Vua9FoEs3eWLNke9sG+9JxTX3ZuFTpqTN+Wlhr3r5/a9tvmkNuPRUG9wfsrv+5qIHVOInpLCiLCIgpEQMC1X0d23vWPL7Zym+Frfhljz9ORVITMYvjief6hM47fK7y+cZTL4WWdu3dwtqmprXiQEhty+PC5W3kiIGg6jFm72JtvgxOpCMF86I8rD1wYsTW5OPfc0u4OO917dnO1N9Mqyk6KOnn46OX0AhGCrGaX7zbObcEh0DfFAkavSc121Ibd2cPf+fxQ0sPrf66c/efTVYKe4/CV21f1MecLMZGqUKRcvZarACAWpl0+kfbPG6s5uj3kXOSqRKPxtB37Ho8Y9nXArYKiO1EB/lEBz64W1Gt7zvxtw7zufBecSIXIrN/5/Zi65ZipK0+mFObePLn1p5PPrBVkhk3eX75l5XuNWL/eHAsYvTbByHXGvoguO31/Wr/j6OWbqXcLdUyt7Fr2eGfshLE97XSljkdEb1HJnfQ75V+MT9WCYOI+52DMgD/Xr9u479jZqBup2fmitqFJbdum7Tr1Hjp2ZBdbXZYvIpWjaeuzNLjL2EP+ftv2Hg67kpx2J1fQr2Vp19Kz16DR4wa3rMXi8HYIosi3LYmIiIiIiJSBF88SEREREREpCQsYERERERGRkrCAERERERERKQkLGBERERERkZKwgBERERERESkJCxgREREREZGSsIAREREREREpCQsYERERERGRkrCAERERERERKQkLGBERERERkZKwgBERERERESkJCxgREREREZGSsIAREREREREpCQsYERERERGRkrCAERERERERKQkLGBERERERkZKwgBERERERESkJCxgREREREZGSsIAREREREREpCQsYERERERGRkrCAERERERERKQkLGBERERERkZKwgBERERERESkJCxgREREREZGSsIAREREREREpCQsYEdH/27vT+CiqdI/jz6lesi+EJEDCFjAKEoghYVUDiAvIEgybSRAdLo7gACrjruPoVa9KZB9RcQQUXBiBgBBAUBAFBQJuIFwCCJFddhOy9VLzAoEmaUIineoAv+/LrlTX009/Pqn69zl1CgAAwCAEMAAAAAAwCAEMAAAAAAxCAAMAAAAAgxDAAAAAAMAgBDAAAAAAMAgBDAAAAAAMQgADAAAAAIMQwAAAAADAIAQwAAAAADAIAQwAAAAADEIAAwAAAACDEMAAAAAAwCAEMAAAAAAwCAEMAAAAAAxCAAMAAAAAgxDAAAAAAMAgBDAAAAAAMAgBDAAAAAAMQgADAAAAAIMQwAAAAADAIAQwAAAAADAIAQwAAAAADEIAAwAAAACDEMAAAAAAwCAEMAAAAAAwCAEMAAAAAAxCAAMAAAAAgxDAAOCKVTL37gBNVZVWa/DCEhHbmtFNzUopa/vM7Q5vf5Kqsh9cNeH+W1tEBftafcNaP7fO5u2CAAD4g9nbBQAA4FkFXz11a7exPxfrIiJiO3ys0MsFXY7sP8986o1vCnRLy3tffbC9v7fLAYArBwEMAK5YpkadBt3nV6qXedn566oPV+6y68rSpEtacsOyUyGUf8cGJpGye1029GMLxr+9pVgXLbT1oL/f37VJnWbNTd4u6vLj3LNqxtvvHnH69Gz/AgEMADyIAAYAVyxz0vC3pw0v93LJvLS5K3fZRXw7jJo6PcXH/c7O2LTMafH5uhaRVOeymq7u2JO7s0gXMV877K13n23DeQ4AUKNwYgIAuKNFtkkd3MbbVfwZDodDREQFh4Yob9cCAEAZl9WvmgCAGqc0/9iJU7bLdsKiiF64b+8xD9Z/GTTEVph/qtju2RI93UYAuGIRwAAA7tg3PH29pewqiM5fJ3f2UUr59Z55wnl8w5tDb2xUu1Z4rSAfa0Dt+s2T05/98Mff/7gIL9792bgRKW2vqVcrwMcvuE5s+z4PTfn6gP2Cx7MdWjvzf4f1bt+sYUSwf2BE47h2t/YfmTlv0wlnZSt25k1M9lHKkvjyFruI2NY/eZ1ZKWVqMGKlTUTEsT2zvVUpLTBtXomInNqW9Vz/tjG1/UOSXtroskyi/XDOBy8N79OhecPIYD/fwPDo2MQ77n1qyvJdRe6OWX0NqUBVeuVaoejHc6bc3zk2MiQk0M9q9gkKb3zDbff+84Pvj7nsaFv9SBOzUj7d3z3iFJGSRfeFKaWUtePrO5wXbaNt7ePXWZRSpvBB8/Pd1u7cNbGTr6aU5td50u5Kf7cAcCXRAQBXl+K5dwcoEVFBGfOLL/hXtpynmptFxNJuTK79zIuOvEmdrCLi23PCvNHx/uVn+KnA+NHLj9r2fToqIaTcT3zK0nDArN328scq2vrekFahmpsJg8occePfF+wurczncuyecLO1/Fto9f+2olTXdd2eO6adRUQF3D23KH/DmK4RfxSo1X1gWcnptyjZOXt461omdzMXlV9Myrj1J5xljlk9DalAVXt1tsJeM3IXPdjcTYmirI37T99+Zr/Srx+OcbNoiaVD5nbHxdtY+u1j15pFRIsYvCDf3Ze0/fWOViWi/G97a6+jSp8cAK4Q3AMGAKiy0q+ev2/xiSJL3bZ9BvS4qVUD08H1c9+ZsTKvWC/4ceK9vb4P/eHLraVhN/QZ2KtTfLRz73dLZ838fFeRbvt1zmMv3NNrWs9gl/eyb3+nf5fh2Qcduii/Bm27d785rn6g/cjOnGWLVmw7bj+8Zlz/rkc++mpaatRFJm1oURnTN3QusG39V/9B//7FYY57aM77f2msKWt40/NPds4j2Q8/+vSK46FxPfv1To5v0iAhziwizgNzh94yaFaeTRdlCmma3KNbu9gIc37eDyuyl/94qKRo14JHb+/tWLXs0Vbl1y3xZEMqcAm9cuS9N3TIqq1FpoiEPoP6d4mrazq264eVsz9YmpvvLN09Z9Swzp2WPRijiZgTHsv+7r7S0jXP3z5i/nHdmvzi55N6BYsKiCqzYKbbNloSU1NixmVudxxdmrXqVO8eAWWqyJ0zO8emiwq6Jf2ui32hAHCF8nYCBAAYzAMjYCKihXR8dtWRc2MYjv2fZNQ/M3KifFsM+3Sv7exG52/ZQ5uaRES06OFflLgeZuvYm4OUiGhhHZ/IznOtx3F0/eTUxhYlIlp46qz9ZQafLlj4xmeuN4uIpe2r284bXDozdGOuExVpiez6f2uOuo7AOA9+POD0co9aeJcXVh6wuWw6+dM7aU2tSkSUf/tXN7ts8nxDKvpkf6ZXLhWKFtrh6S8OuTal4LtXk0M0EVHWm8fvcu1HyZL/CddExKfnjGPnVVFxG3W99NvHYk0iotUdsvhUmU9g3/RigkVEVGi/j45W8vsEgCsNvz4BAKpOBXV5edbzybXPnUW0en0eGhRrFhFRlhaPTB/fK/rcuJOKuOPRoa0tIuI8uv9Aybn3yV8+dvw3+bqYGtwzbf4rdzZ0HVvSwtqMmPnJE/E+SpxHF2ZO3fSn7pcqR7cfOqj3Hj/ryY5hLudAx7YZ4xb85hQxNR7y/px/dK7rMmimglsOnT7n2SQ/JXphzpQ3vnTzYGdPNaQCl9orrdYdYz568ZZI1/mFAQkP/TMj2iSiO/bk7XWU3+mC3LdRRCyJqSlNTCLO35ZkfX3+fXP2zZ/8Z5NNRKvdI717GEtUArhKEcAAAFWmfDvdc3fjMncKmRo1bWQSETHfkHFva9+yG2ObWJSI6A77uXBQuPKjrP0OUdakEU/3jHBzRe6fOHJkVz8lum3rZ8vzPLRmgymq77C76p53NMfOT7O+L9FF+XYY9eQdbrKBT/yIx1PCNAudls4AAAeeSURBVBHHvoXz15WW3eyphlTgUnul1ev/cEajcqd9a2zz00NxlSzD5ROUb6OIiFgS+55OYIcWZ612TWD2H/8zZ6tdRIvsnX57SNUOBgBXDgIYAKDKVGj96KByl95m8+nxHmuT2EbllnFQZnO51+ybVq894RQxNe7UqYmbhR9ERIUltI4xiYh9x9btnhkCU9aEjoll4lDBhrWb7SJijruzW2O3p0YV2vXOG32ViOPQhpzdZceKPNSQClxqr5RPUnI7fzc7mc1uFx25KHdtPO3sGNjB7Kxvis++bNs4e06uXcQUfVd6lwB3OwLAVYEABgCoOk1VcP4wWSyVu6S379tzwCki9twx7S3KPUvrl362i4gz/8jRyk3VuxgVElU34PwCnYf3H7TpIsontpm7JQBFRFTQtddFayLiPLjvYPnxJY80pAKX2isVXCfS71KLOO8Ny7fxDEvS6QTmOJA9f+2ZQkrXzZ670y5iatQv/SaPVgIAlxcCGADAS/RTJ3+v/BOL9ZLiEo886Ff5+ZddjN1ZkF/gFBEVEBhwwROjCgoJ0kTE+fvJfMMfYHXpvTKbqjLgdnFu2njW2QS2b1HWutMJrPib2fPyHCLm2AFp7covIwkAVw+WoQcAeInyDwo0KRHd0uap7KkDIyseJdKCGoR6Zt0Gd0/rCgpQIqIXFpy6YLbSTxUU6iKiBQT6G/7zpbd6VVFJFWyzJKWmxIx/fYdjz6L5OZnJN1mLVs+ev9chYr5+YFqCpbpLA4CajAAGAPAWc92oOprscujFlsi4+HjvnZJM4fXqWJTY9OId23Y7pJnbsaJTO3L3OkREi6xXx/j5IzWmV5VjSUrtEzP+9R2OvIXzN752U6tVsxfsd4iyJKTd3aKm1w4A1YspiAAAb7G06pAUoEQc21d9tc/9yJN+9MsJj4waOXLU4+/9ZKu+SoIS27cwi4h989Jle9xXcnLl4tWFuogW3qZtU8/O5quMmtOryrEkpabEmEQcuxdmbTy+4uOFh5yirO3SBlxrfO8AoEYhgAEAvCaoa99uYZroxavHPrfgkJtbnIpyxo16fOLkf73x7veFYdV45W6K7ZXS0qpEL14zacwXJ8pXUrppymvzDjtFTFE9+3Twxj1MNaZXlWRJ6psSYxKx//Lp+2NmZR92ivK9Kb2f+zUmAeAqwv9BAIDXqNopo/96vVWJI2/WX3o/krXT9bFRzpM/vpnRb8xmmy5avf4j06Kr85Rlun7I6J7hmuj2X6beM/C1NYddFprXC7ZMH9L3hXWFuij/pL+NujWwGgu5IG/1qqTkT659cjaB5b4zdt5Rp6iALul31ee6A8BVj4nYAAAv8m337LRnVnR9fl3+yfUT+7b8JKlbz86tGgbbj/zywxcLPtt8zK6LsjQZ/MZrvap5VQlVL23S5EXrB83eaz+07OnOzWbemtK93TW1tfxff/h8weKNB0p0Ea1Wp5f+PTrOW6dOY3v1x0PMSr9965kJfrdHmQKa9egRH1KVN7Yk9U2JmTB2h8Nus4uokNvSe9ep9qVBAKDGI4ABALzKv80/liz1GZT2/JJfi4v252RNzck6t1GZarcZ/vbH4/oYcOWuRQ+csdIR1O/Bd386aT+2Zen0LUtdtir/pne9Mnv6yDhrtRdyYQb2yhLXoU3w1IUn9ILvp40ePE0sHTK33Fm1ACaWxNTTCUxEtLDuGT3CyV8AwBREAIC3qVodn8jesmnx5McyusbH1A31s1gDakU375jywMsfrtuyZnLfGKPWLfe5Jn3qhm3fzHjhr73bXVc/PNDH6l+rXpOE2wc/+ebyLZvnjkoM9naCMKxXqu6gtz95cUDbRqE+ZrNPUETDBuFVv/PN+sdKHCJaRK+MO0I9UxoAXN6UrnvksZYAAADnK137eMubM3PtpvoPLMl96zY/b9cDADUAI2AAAKBaFH313sc77SKmhqnpyaQvABARAhgAAKgeJ5fOmLvPIWJu2j/dK0v3A0BNRAADAACeV7xpSmbWEacoS4v0jESjbuMDgBqPVRABAIDH2NZm3jP2J6vp0IZlK/6/UBctrOejw1pyuQEAZ/AfEQAAeIx+YtsX82YdcYqIiDLV6fbyKwN5/BcAnMMURAAA4DFavbi214T7+wZHNe8yJHPJunnDrmP6IQC4YBl6AAAAADAII2AAAAAAYBACGAAAAAAYhAAGAAAAAAYhgAEAAACAQQhgAAAAAGAQAhgAAAAAGIQABgAAAAAGIYABAAAAgEEIYAAAAABgEAIYAAAAABiEAAYAAAAABiGAAQAAAIBBCGAAAAAAYBACGAAAAAAYhAAGAAAAAAYhgAEAAACAQQhgAAAAAGAQAhgAAAAAGIQABgAAAAAGIYABAAAAgEEIYAAAAABgEAIYAAAAABiEAAYAAAAABiGAAQAAAIBBCGAAAAAAYBACGAAAAAAYhAAGAAAAAAYhgAEAAACAQQhgAAAAAGAQAhgAAAAAGIQABgAAAAAGIYABAAAAgEEIYAAAAABgEAIYAAAAABiEAAYAAAAABiGAAQAAAIBBCGAAAAAAYBACGAAAAAAYhAAGAAAAAAYhgAEAAACAQQhgAAAAAGAQAhgAAAAAGOS/eMDm3F/xToQAAAAASUVORK5CYII=" width="576" /></p>
+<p>Absolute risk:</p>
+<pre class="r"><code>st.cif <- survtab(Surv(time = FUT, event = lex.Xst) ~ 1,
+ data = x,
+ surv.type = "cif.obs",
+ breaks = list(FUT = seq(0, 5, 1/12)))
+
+plot(st.cif, y = "CIF_canD", conf.int = FALSE)
+lines(st.cif, y = "CIF_othD", conf.int = FALSE, col = "red")</code></pre>
+<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABIAAAASACAIAAAAIyqENAAAACXBIWXMAAB2HAAAdhwGP5fFlAAAgAElEQVR4nOzdd1zV9eLH8c85gIKyQhBJxZ3iSBPFAaIoago4QRyBSWk5QrQS9Fba1cqRg1xlpoGmAs4IF4gLQQH3wJF7LxwgInDO9/fHKevXtVKE7/ecw+v5x314v4ze10dXffn9ns9RSZIkAAAAAAClT630AAAAAAAoKwgwAAAAAJAJAQYAAAAAMiHAAAAAAEAmBBgAAAAAyIQAAwAAAACZEGAAAAAAIBMCDAAAAABkQoABAAAAgEwIMAAAAACQCQEGAAAAADIhwAAAAABAJgQYAAAAAMiEAAMAAAAAmRBgAAAAACATAgwAAAAAZEKAAQAAAIBMCDAAAAAAkAkBBgAAAAAyIcAAAAAAQCYEGAAAAADIhAADAAAAAJkQYAAAAAAgEwIMAAAAAGRCgAEAAACATAgwAAAAAJAJAQYAAAAAMiHAAAAAAEAmBBgAAAAAyIQAAwAAAACZEGAAAAAAIBMCDAAAAABkQoABAAAAgEwIMAAAAACQCQEGAAAAADIhwAAAAABAJgQYAAAAAMiEAAMAAAAAmRBgAAAAACATAgwAAAAAZEKAAQAAAIBMCDAAAAAAkAkBBgAAAAAyIcAAAAAAQCYEGAAAAADIhAADAAAAAJkQYAAAAAAgEwIMAAAAAGRCgAEAAACATAgwAAAAAJAJAQYAAAAAMiHAAAAAAEAmBBgAAAAAyIQAAwAAAACZEGAAAAAAIBMCDAAAAABkQoABAAAAgEwIMAAAAACQCQEGAAAAADIhwAAAAABAJgQYAAAAAMiEAAMAAAAAmRBgAAAAACATAgwAAAAAZEKAAQAAAIBMCDAAAAAAkAkBBgAAAAAyIcAAAAAAQCYEGAAAAADIhAADAAAAAJkQYAAAAAAgEwIMAAAAAGRCgAEAAACATAgwAAAAAJAJAQYAAAAAMiHAAAAAAEAmBBgAAAAAyIQAAwAAAACZEGAAAAAAIBMCDAAAAABkQoABAAAAgEwIMAAAAACQCQEGAAAAADIhwAAAAABAJgQYAAAAAMiEAAMAAAAAmRBgAAAAACATAgwAAAAAZEKAAQAAAIBMCDAAAAAAkAkBBgAAAAAyIcAAAAAAQCYEGAAAAADIhAADAAAAAJkQYAAAAAAgEwIMAAAAAGRCgAEAAACATAgwAAAAAJAJAQYAAAAAMiHAAAAAAEAmBBgAAAAAyIQAAwAAAACZEGAAAAAAIBMCDAAAAABkQoABAAAAgEwIMAAAAACQCQEGAAAAADIhwAAAAABAJgQYAAAAAMiEAAMAAAAAmRBgAAAAACATAgwAAAAAZEKAAQAAAIBMCDAAAAAAkAkBBgAAAAAyIcAAAAAAQCYEGAAAAADIhAADAAAAAJkQYAAAAAAgEwIMAAAAAGRCgAEAAACATAgwAAAAAJAJAQYAAAAAMiHAAAAAAEAmBBgAAAAAyIQAAwAAAACZEGAAAAAAIBMCDAAAAABkQoABAAAAgEwIMAAAAACQCQEGAAAAADIhwAAAAABAJgQYAAAAAMiEAAMAAAAAmRBgAAAAACATAgwAAAAAZEKAAQAAAIBMCDAAAAAAkAkBBgAAAAAyIcAAAAAAQCYEGAAAAADIhAADAAAAAJkQYAAAAAAgEwIMAAAAAGRCgAEAAACATAgwAAAAAJAJAQYAAAAAMiHAAAAAAEAmBBgAAAAAyIQAAwAAAACZEGAAAAAAIBMCDAAAAABkQoABAAAAgEwIMAAAAACQCQEGAAAAADIxVXoASt6lS5e+++47jUaj9BAAAADgn1SsWPHDDz+sUKGC0kPkQ4AZofnz50+fPl3pFQAAAMC/q1+/fr9+/ZReIR8CzAgVFhYKIXx9fT08PJTeAgAAADxbTEzMwYMHCwoKlB4iKwLMaHXs2HHMmDFKrwAAAACe7dixYwcPHlR6hdw4hAMAAAAAZEKAAQAAAIBMCDAAAAAAkAkBBgAAAAAyIcAAAAAAQCYEGAAAAADIhAADAAAAAJkQYAAAAAAgEwIMAAAAAGRCgAEAAACATAgwAAAAAJAJAQYAAAAAMiHAAAAAAEAmBBgAAAAAyIQAAwAAAACZEGAAAAAAIBMCDAAAAABkQoABAAAAgEwIMAAAAACQCQEGAAAAADIhwAAAAABAJgQYAAAAAMiEAAMAAAAAmRBgAAAAACATAgwAAAAAZEKAAQAAAIBMCDAAAAAAQghx9uzZFStWhIWFtWnTpnLlyhs3blR6kREyVXoAAAAAAGXcv38/PT193759+/btS09Pv3379tMPmZqaFhQUKLjNWBFgAAAAQFlRVFR06tSp/fv379mzJyUl5eTJk1qt9ulHbW1tW7Ro4e7u7urq6u7ubmdnp+BUY0WAAQAAAMZJo9GcP3/++PHjJ06cOH78eFZW1okTJ/Lz859+goWFRfPmzd3c3Fq1atW6desaNWoouLaMIMAAAAAAY6DLrWPHjmVlZemiKysr68+5JYRQqVQNGjTQFVerVq1ef/11MzMzpQaXTQQYAAAAYJA0Gs2hQ4dSUlLS09OzsrL+N7eEENWrV3dxcWnUqFHDhg11/2ljY6PIWugQYAAAAIDByMvLS09P3717d0pKSlpaWk5Ozp8/6uzsrMstFxeXxo0bu7i4kFv6hgADAAAA9NqdO3dSU1N10bV///7CwsKnH6pXr567u7u7u3uTJk1cXFysra0V3InnQYABAAAA+iUvL+/XX389fPhwSkpKSkpKVlaWJEm6D5mYmLi6unr8rkqVKspOxYsiwAAAAADFPHz48Ndffz179uyvf3Lt2rU/f06FChXc3Nw8PT3d3d3btGljZWWl1Fq8PAIMAAAAkElWVtahQ4f+3Fq3bt36308rV65crVq1GjZsqHu80NXVlbMKjQYBBgAAAJSis2fPbv/d9evX//JRc3PzunXr1q1bt06dOnV/V716dRMTE0XWorQRYAAAAEAJu3z58vbt25OTk7dv337p0qWn152cnNq2bfs0tOrUqVOtWjWVSqXgVMiMAAMAAABKwK1bt3bu3JmSkrJnz579+/c/vW5vb9+6dWsPDw9vb+/mzZuTW2UcAQYAAAAUh0ajOXHiREZGRkZGxq5du06cOPH0QzY2Nu3bt/fy8urYsWOTJk2ILjxFgAEAAADP69dff83MzNRF14EDBx49evT0Q5aWlh4eHl5eXl5eXs2bN+dFXHgmAgwAAAD4W9evX8/4k+zs7D9/tFatWm5ubi1btmzdurWbmxtnFeJfEWAAAADAXx06dGjmzJk7duy4cuXKn69XqVKlZcuWLVq0aNmyZcuWLe3t7ZVaCANFgAEAAAB/SEtL+/LLLxMSEiRJEkLY2Ni4urrqbnO1bNmyevXqSg+EYSPAAAAAACGESE5O/uKLL5KTk4UQFStWHDZs2NChQxs0aMARGihBBBgAAADKuqSkpM8++ywtLU0IYWVlNWTIkPHjx1epUkXpXTBCBBgAAADKKK1Wm5CQMHny5IyMDCGEvb39yJEjR48e/corryg9DUaLAAMAAECZo9Vq16xZM3HixKysLCFE5cqVhw8fPnbsWGtra6WnwcgRYAAAAChDCgoKVq1aNWXKlDNnzgghatSoMWbMmGHDhllYWCg9DWUCAQYAAADjJ0lSWlpaTExMTEzMzZs3hRANGjQYP378wIEDTU35IzHkw79tAAAAMGb79+9ftWpVbGzspUuXdFeaNWs2YcKEvn37qtVqZbehDCLAAAAAYISOHz8eFxe3atWqU6dO6a5Ur169d+/eAQEB7u7unCwPpRBgAAAAMB4XLlzYsGFDdHT0gQMHdFfs7e379OkTFBREd0EfEGAAAAAweOfPn4+NjY2JiTl48KDuir29vb+/f2BgoKenJ48aQn8QYAAAADBIGo0mLS0tISEhISHh6NGjuou2tra9e/cODAzs1KkTp2tAD/EvJQAAAAxJdnb25s2bExISNm/enJ2drbtobW3t6+sbGBjYtWvX8uXLK7sQ+AcEGAAAAAzAuXPn4uPjf/nll507dxYWFuou1q5d29vb29fXt0uXLnQXDAIBBgAAAD2Vn5+fkpISHx+/YcOGixcv6i6amJi4u7v7+fn5+fk1bNhQ2YXAiyLAAAAAoBceP3588uTJU6dOZWVl6X5w8uTJJ0+e6D7q6Ojo4+PTvXv3Ll26WFlZKTsVKDYCDAAAAAq4d+/euXPnjh8/fuLECd0PTp06pdFo/vJpDRs29PPz8/X1bdu2LYcZwggQYAAAAJDJ4cOHN2zYkJiYeOLEiafnZzxVrly5+vXrN/idi4tL/fr1udkFI0OAAQAAoBRpNJrU1NT169evX7/+3LlzT6/b2trWr1/fxcXlaW7Vrl2bg+Nh9PhXHAAAACUvPz8/KSlp/fr1P//88+3bt3UXq1Sp0qNHjx49ejRv3tzJyUnZhYAiCDAAAACUmPv37ycmJurOLXz48KHuYq1atXSHFnbo0IF7XCjj+D8AAAAAXtbp06d197t27Nihe5MulUrVokWLXr169erVq1GjRkoPBPQFAQYAAIAXJknSiRMndu3atWvXrp07d16/fl133dTUtFOnTr169erZs2f16tWVHQnoIQIMAAAAz0Wr1R49enTnzp07d+7cvXv301d2CSEqV67cvn17Pz8/Hx8fOzs7BUcCeo4AAwAAwN/SaDQnT57cs2dPUlJScnLy3bt3n36oSpUq7dq1c3d39/DwaN68uUqlUnAnYCgIMAAAgDKtsLDw9u3bt27dun79+p9/cPv27evXr587dy4nJ+fpJ9esWdPT07N9+/aenp5169ZVcDZgoAgwAACAMiQ/P3/p0qW6V23pcuvPN7We6bXXXmvXrl379u3bt2/v7Owsz07AWBFgAAAAZUJubu633347c+bMGzdu/Pm6qampg4ODg4NDlSpVHB0ddT+oXLmy7gfVq1d3cHBQajNgfAgwAAAAI3f//v25c+dGRkbqbna5uroOHz68Tp06Dr/j5VuAbAgwAAAAo3Xnzp158+ZFRkbev39fCOHu7h4eHu7r60txAUohwAAAAIzQzZs3Z8+ePXfu3Ly8PPF7evn5+Sm9CyjrCDAAAACjcvHixVmzZi1atCg/P18I4e3tPXny5NatWyu9C4AQBBgAAIDROHv27PTp05csWVJUVKRWq319fSdOnNiiRQuldwH4AwEGAABg2PLy8uLj43/66aeEhAStVmtmZjZ48ODx48fXr19f6WkA/ooAAwAAMEiFhYVbtmxZtWrVhg0bcnNzhRDly5cfMmRIeHh4zZo1lV4H4NkIMAAAAEOi1Wp37969cuXK1atX646VV6lUbdq06d+/f2BgoKOjo9IDAfwTAgwAAMAwHD9+PC4uLjo6+vz587orDRs2DAgIGDRoUL169ZTdBuA5EWAAAAB67fz587GxsUuXLj116pTuirOzc69evYKDg11dXZXdBuBFEWAAAAD6SKvVrl+/ftq0aenp6borTk5OAQEBAwYMaNWqFe+kDBgoAgwAAEC/FBYWrly5curUqVlZWUKIV155pU+fPgMGDOjQoYOJiYnS6wC8FAIMAABAX+Tn5y9ZsmTGjBkXLlwQQtSsWfPjjz8OCQkxNzdXehqAkkGAAQAAKC83N/eHH36YPn36tWvXhBB16tQZN27ckCFDzMzMlJ4GoCQRYAAAAEq6c+fOvHnz5s6dm52dLYRo2rTp2LFjBw0axNOGgFEiwAAAAJRx8+bNhQsXzp49++HDh0IId3f38PBwX19fDtgAjBgBBgAAILczZ87MmDEjOjr6yZMnKpXKx8dnwoQJbdu2VXoXgFJHgAEAAMjk2rVrcXFxq1at2rdvnyRJJiYm/fv3j4iIaNq0qdLTAMiEAAMAAChdd+/eXb16dUxMzM6dO7VarRDC0tKyf//+48aNq1evntLrAMiKAAMAACgVeXl5CQkJ0dHRW7duLSgoEEKUL1++c+fOAQEBffr0sbS0VHogAAUQYAAAACUpPz8/MTExLi5u7dq1jx49EkKYmJi4u7sHBwf379/f2tpa6YEAlESAAQAAlICioqJNmzatWrXq559/zs3NFUKo1WovL6/+/fv37du3UqVKSg8EoBcIMAAAgJdy8uTJpUuXRkdH37hxQwihUqnatGkTGBjYr18/JycnpdcB0C8EGAAAQHHk5ubGxsYuWbJkz549uisNGzYMDg4ODAysWbOmotMA6C8CDAAA4MXs379/0aJFK1euzMnJEUJYWVn16tUrODi4U6dOvIcygH9GgAEAADyX7Ozs1atXz58//8iRI7orrq6uw4YNGzhwIEcaAnhOBBgAAMA/0Wq1ycnJixYtWr9+fWFhoRDCyckpICDg3XffbdKkidLrABgYAgwAAOAZJElKS0uLiYmJi4u7fv26EMLMzKxXr14hISHdunUzNeUPUQCKg187AAAA/p+MjAxdd126dEl3xcXFJSQkJCgoyNHRUdltAAwdAQYAACCEEIcOHYqJiYmNjT137pzuSo0aNfr16xcYGOjq6qrsNgBGgwADAABl2vHjx+Pi4mJiYk6ePKm7UrVq1b59+wYEBLi7u3OqIYCSRYABAICy6PTp0zExMTExMcePH9ddcXR09Pf3DwwMdHd3V6vVys4DYKwIMAAAULbs2bPniy++2LRpk+6/2tvb9+nTJzAwsH379iYmJspuA2D0CDAAAFBWJCcnT5kyZfv27UIIKysr3f2uTp06caQhANnwyw0AADB+KSkpEydOTE5OFkJYWVmNGDFi3LhxdnZ2Su8CUOYQYAAAwGhJkvTLL79MmTIlPT1dCGFvbz9y5MiwsDBbW1ulpwEoowgwAABghLRabUJCwqRJkw4cOCCEqFy58vDhw8eOHWttba30NABlGgEGAACMilarXbNmzWeffaY7Vt7Z2Xns2LHDhg2zsLBQehoAEGAAAMBYPH78ODo6etq0aefPnxdC1KlTZ/z48UFBQeXKlVN6GgD8hgADAAAGb+/evT/++OOqVasePHgghHBxcZkwYUL//v053hCAvuFXJQAAYKiuX7++bNmyH3/8MSsrS3elTZs2Y8aM6du3L++kDEA/EWAAAMDAFBQUbNmyZdmyZevXry8sLBRCODk5BQQEhISENG3aVOl1APBPCDAAAGAwjh8/vmzZsiVLlty+fVsIUa5cOV9f3+Dg4F69epmZmSm9DgD+HQEGAAD03b179+Li4r777jvdmfJCiIYNGwYHB4eEhDg4OCi7DQBeCAEGAAD01I0bNzZs2LB+/frk5OSCggIhhIODw8CBA4cMGcKjhgAMFAEGAAD0y+nTp9evX79+/fp9+/ZptVohhKmpqZ+f35AhQ3x8fDhTHoBBI8AAAIBeOH78eFxc3C+//LJ//37dFXNzc29vbz8/vx49elSpUkXZeQBQIggwAACgGI1Gk5aWFhcXt3bt2itXrugu2tnZderUydfXt3fv3lZWVsouBICSRYABAAC5ZWdnb926NT4+fuPGjffv39ddrFGjRs+ePXv16tWuXTveQBmAseJXNwAAIJPDhw9v3Lhx48aNaWlpGo1Gd/H111/v1atXz549mzdvruw8AJABAQYAAEpRbm5uUlLSpk2bNm7c+PQhw3LlynXo0MHHx6dnz561a9dWdiEAyIkAAwAAJe/cuXNJSUnx8fGJiYlPnjzRXaxcuXLXrl39/Py6dOliY2Oj7EIAUAQBBgAASoZWq921a9e6des2btz466+/6i6amJi0bdvWx8enW7duzZo1U6lUyo4EAGURYAAA4GX9+uuv0dHRy5Ytu3Dhgu6Kvb19165du3fv3rVr10qVKim6DgD0CAEGAACK6cGDB7GxsVFRUampqZIkCSFq1qw5cOBAX19fNzc3ExMTpQcCgN4hwAAAwIvRarXJycnR0dFr16599OiREMLCwsLX13fYsGGdOnXiIUMA+AcEGAAAeF5ZWVkxMTFRUVG6Rw3VarW7u3twcPDAgQMtLS2VXgcABoAAAwAA/yI7O3vFihVRUVGZmZm6K6+99lpwcHBQUJCzs7Oy2wDAsBBgAADgb505c2b27NlRUVF5eXlCCFtb28DAwMGDB7dp00bpaQBgkAgwAADwDHv27Jk5c+aGDRu0Wq1arX7zzTeHDBnSo0cPc3NzpacBgAEjwAAAwB+0Wm1CQsK0adP27NkjhChfvny/fv0iIiIaNmyo9DQAMAYEGAAAEEKIR48e/fTTT7NmzTp16pQQwt7e/p133gkNDX311VeVngYAxoMAAwCgrLt169aCBQvmzZt39+5dIUTt2rVDQ0OHDh1aoUIFpacBgLEhwAAAKLvOnDkzb96877///vHjx0IIV1fX0NDQQYMG8R7KAFBKCDAAAMqiHTt2TJ8+ffPmzZIkmZiY+Pv7f/TRR61atVJ6FwAYOQIMAIAyRKvVxsfHT506de/evUIIS0vLIUOGhIWF1a5dW+lpAFAmEGAAAJQJhYWFK1asmD59+okTJ4QQ9vb2H3zwwahRo+zs7JSeBgBlCAEGAICRe/To0eLFi2fNmnXp0iUhhLOz89ixY999992KFSsqPQ0AyhwCDAAAo/Xw4cOlS5dOnTr1xo0bQoi6deuOGjXq/fffL1++vNLTAKCMIsAAADBCN27c+Pbbb+fMmfPgwQMhRPPmzUePHs3xhgCgOAIMAACjkpWVNX369BUrVhQUFKhUqm7dukVERHh6eiq9CwAgBAEGAIDRSE5Onj179saNG7VarYmJyYABA8LDw5s2bar0LgDAHwgwAAAMW0FBQWxs7KxZsw4ePCiEsLCwePvttz/66CNOlgcAPUSAAQBgqHRnbMycOfPy5ctCiMqVKw8fPnzUqFH29vZKTwMAPBsBBgCA4Tl37tyiRYu+/fZb3Rkbr7322ogRI4YNG2ZhYaH0NADAPyHAAAAwJPv374+MjFy5cmVRUZEQwt3dPTw83NfXV6VSKT0NAPDvCDAAAAyAVqtNSEiYOnVqamqqEKJcuXJBQUEff/xxkyZNlJ4GAHgBBBgAAHrt0aNHixcvnj179sWLF4UQDg4O77///siRIx0dHZWeBgB4YQTYC9Pm3b505U6+iXXlV6vYWfB2lgCA0nLnzp25c+fOnz//7t27QogGDRqMGTMmKCiIF3oBgOEiwP5Kenz90M5te09czi60dKrzRsfu7jUr/PZU/aMTKyd9/N8ftp66VyQJIVRmdvU8egz58JNQnzoVFN0MADAyFy9enDVr1uLFi/Py8oQQrq6uoaGhgwYNMjHhL/4AwLARYH/26Piyj4eNW5x2o1D67YrKzNF9bNTqL7s6Fp2c36d96NY72qefLRVmn97+4/gdq1cMi4qf26eGmTKjAQDG5OjRozNmzNCdsaFSqby9vUNDQ/38/JTeBQAoGQTYUwUnvunVfkzSXe2fL0qFN1Om+/d+ZU9c9c8/S7qjFUJlZlvr9aZ1KpnkXs06nHUjTyvlHl0U1LdytZ3/dauo1HYAgOFLSUmZNm1aQkKCJElmZmZBQUHh4eGNGjVSehcAoCQRYL/RnFnw/oRtd7VCqCyc2/Ub6ONWy6bodtaOmOgNx+7tmxbSt/LRe1q1vef46OhPutUwF0IIoX2YtXrSO8Mj07LzDnw99rugnWPr8WQIAODF6I43/Oqrr9LS0oQQlpaWISEhH374obOzs9LTAAAljwDTKcpcvDDtkSTUtu0nb/15fEvr3172FTrmnend3SN27t93T6grB3wTO7mb49P3WVFbu/SbGW+V6+b3/bnH+75fejD0yxb8hAIAnpNGo1m6dOmMGTNOnz4thHBwcAgNDR0xYoSdnZ3S0wAApUWt9AD9oDm7Y8f5IiHMXh8zd9zT+hJCiApNPhjn76AWQqgr93inl+Nf3+VSVanruOFu5YQoOrdz50WtAADgeVy8eLFDhw5Dhw49ffp07dq158+ff/HixU8++YT6AgDjRoAJIYTQXDp3USOESfWO3g3+eg/LvEXbN8yEEKYNmjYs/4yvVddo3aqqiRBFF89eLJJhKwDA4MXFxTVr1iwlJaVq1aorVqw4derUiBEjOFweAMoCnpgTQgghPcrNk4Qwsba1/p8kVdm++qqlWjxRW9lYPbNXVVY2ViohtA/uP5Ce9XEAAH73+PHjiIiIb775RgjRs2fPH374oVKlSkqPAgDIhztgQgghVNa21iohNNcvXf3fm1gqq0qOtra2Npbln/2zJWXfyZaEUFlUsPjrA4oAAPzh2LFjbm5u33zzjbm5+Zw5c9atW0d9AUBZQ4AJIYQwredSz1QltHe2rNmR89cPmrWbcfzuvXs3VvSzftbXFp3cveemRgiTmnVrcggiAOBZJEmKjIxs0aLFsWPHXFxc9u7dO3r0aJWKv7cDgDKHABNCCKF+tVPXpuVUQnMlavSYtZcKnv8riy789NnCI4VCmNTwbF+HAAMA/I/bt2/7+fmFhYU9efIkKCgoMzOzadOmSo8CACiDANMxafDOuL6OaiEVnFrS7w23vmO+WhAVs+nI3X94UZcm5+KeZRHdPYdtuKEVKouWQ99xM5NvMADAMCQlJTVt2jQhIcHe3n7Dhg3R0dEVKlRQehQAQDEE2G9UDn3n/vSRq7VaSJrsw2vnTBj59qDhS048+1jDooNfeb5qW6mWR/C0xMsFklDbtP10/gcu3P8CAPyhsLBw0qRJXbt2vX79upeX16FDh3r06KH0KACAwgiwp1R2HaftTP1pnG8DG5N/eShfenz32q3cQkkIIVQVX+s7c3N8RHMODwYAPHXq1KlWrVp9/vnnarV64sSJiYmJVatWVXoUAEB5HEP//1Rs1H9afOCkmyf27ck8eSW/bo2/uamlLmdVuVbT195o693rrSH92lZ91vuDAQDKqujo6JEjR+bm5tasWXP58uXu7u5KLwIA6AsC7H+pLBwbdejTqMPff4ZZ6y8PXvtStkEAAENx/PjxsLCwpKQkIcRbb721YMECKysrpUcBAPQIjyACAHLBWlUAACAASURBVFACsrOzQ0NDmzVrlpSUZGdnt2zZsmXLllFfAIC/4A4YAAAvRavVLl++/KOPPrp9+7ZarQ4KCpo5c6aDg4PSuwAA+ogAe2n5965n52klIVQWlV61M1d6DgBATtu3bw8LCzty5IgQwsvLa86cOa+//rrSowAA+osAe1lPtnxQv/dPOZIQ5gFx92P9S+48jri4uEWLFhXjC48dOyaEOHv2bIlNAQD8j8uXL//nP/9ZtmyZEKJ69epTpkwJDg5WehQAQN8RYPorLi5O9zLu4tm3b18JjgEAPJWXlzd9+vRp06bl5+dXqFDh448/joiIMDfnGQgAwL8jwPTX4sWLhw0bVowvHDFixJkzZ3jDGQAocZIkrV69+qOPPrp06ZJKpQoICPj666+dnZ2V3gUAMBgE2Msq5/l58t4PNJIQ6kr1ypXkd7a2tvb29i7GF3LoFgCUhv37948ePXrPnj1CCFdX18jISN7gCwDwogiwl6V6pU4LtzpKrwAAlKJbt26NHz/+xx9/1Gq1Tk5OX331VXBwsEqlUnoXAMDwEGAAAPytoqKihQsXfvbZZ/fv3y9fvvyYMWMmTJjAgwYAgGIjwAAAeLaMjIyRI0dmZGQIITp16jR37lwXFxelRwEADBsB9i+Kcu/cvH333sO8J4VadfmKVlZWNvaODpb8vAGAMbtx48a4ceOWL18uSVK1atW++OILjpgHAJQIQuIZHl/dGx+z5pfE3fsOHjt361GR9P8+qlKVs65ap0GTll7devbq9aZb9Qq8CAAAjEZRUdH8+fM/++yzhw8fWlhYjBs3jiPmAQAliAD7f7R39y2aMObzH/feKJD+7nMkqeDBlax9V7L2bYqe9qGD68D/zJ42ysPRRM6dAIDSsHPnzlGjRunezt7X1/ebb76pVauW0qMAAEaFAPtDwdkV73YLWX7mye/tpTKpYPdqdefqTpWsKlhYlDfRFuQ/zsvJvnn18qWrt3MLJSGkwtuZUWM6bt8xd+OK9xpZKDofAFB8165di4iI0D1zWLdu3Tlz5vj4+Cg9CgBghAiw3z1O/29fXX2pyr/aOnDY0EE9vds0qW71zDtb2sc3T2bs3Lw6alHU5lMPCy9tCO0zrm76N51seBoRAAxMYWHhggULPv3005ycnAoVKnz88cc8cwgAKD1qpQfoCe2lpRNmH3kiqUyq9piz5/ieqIlDujT7m/oSQqgtHBt69hv7TcLhw+s+eKOiSio48/1/vjutkXUzAOBlJSYmNm7cOCwsLCcnJyAg4OTJk5MmTaK+AAClhwATQgihvbw+JuWxJEyqv/PDslBX2+e+kVW+Zo/ZMZM9LFTSkwPr4s9TYABgIK5duxYYGNilS5fTp0+7uLgkJSXFxsZWr15d6V0AACNHgAkhhCg6ceh4oSTUlbsHeFm/4Nea1Okb4GYmhObMCW6BAYD+KyoqmjNnjouLS2xsrKWl5YwZMw4fPtypUyeldwEAygReAyaEEEJ68qRAEkJtaWX54q/iUlvbWquFkAqe/P3RiQAAvbB///7hw4fr3lvZ19d33rx5NWrUUHoUAKAM4Q6YEEIIk2o1qpkIob2y/8B17Yt+8ePDGccKhVA7Ojny0wkA+urevXujR492c3PLyMioXbt2QkJCfHw89QUAkBnFIIQQwvR13241TIT0eOe0iLjLL/IgoZSTPmN81AWNUFdy7/C6WaktBAAUlyRJ0dHR9evX/+abb0xMTEJDQ48cOdK9e3eldwEAyiICTKdcq/c+aGetEppLq4LbdB23LP36k3/9Gs39kwlfv9W28+dpDyVVuUZDR3auKMNSAMCLOHLkSLt27QYPHnz79u0OHTocPnw4MjKyYkV+wQYAKIPXgP3G5LUR385I8hqRcL3g6rYZwa3nhNV18/Bo9YZL7RrVnOxtKpqblzOVCvPzH+fevXHl8vnThzNSU/Yeu5GnlYQQalv3z34Y37K80v8jAAB/ePTo0YwZM7766quCggInJ6epU6cGBwcrPQoAUNYRYE+Z1R8Wu838gwGjlx65r5UKs8/s+fnMnp//9cvUVg0HTFs2//3m/G0qAOiP+Pj4UaNGXbp0ydTUNDQ0dPLkydbWL3rKLQAAJY9HEP/MwiV4ceaptKjP3vKsY2P6z+chqkyta7kPmLBk98mDy4c3t3nxwxMBAKUhKyurc+fOPXr0uHTpUps2bTIzMyMjI6kvAICe4A7YX5lWdgv6fFnQ54X3zx/JPHD01NmLV2/evZf7uKBImFlUtLS0tHFwrlu/foPGTRvXtOXQDQDQHw8ePPj888/nzZtXWFhYqVKlqVOnhoSEqNX8VSMAQI8QYH/HzLaWq3ctV2+ldwAA/pUkScuWLRs3btzNmzfVanVQUNDMmTMdHByU3gUAwF8RYAAAw3bgwIEPPvggNTVVCNGyZcu5c+e2atVK6VEAADwbD2YAAAzV3bt3de+tnJqa6uTkFBUVtW/fPuoLAKDPuAMGADA8RUVFS5YsmTBhwt27d83MzEaOHMk5hwAAg0CAAQAMzI4dO0JDQ48ePSqE8Pb2joyMbNiwodKjAAB4LjyCCAAwGFevXg0ODvby8jp69GidOnViY2MTExOpLwCAAeEOGADAAEiS9PXXX0+aNCkvL69ixYoTJkz48MMPy5cvr/QuAABeDAEGANB3BQUFQ4cOjY6OVqlUAwYMmD59erVq1ZQeBQBAcRBgAAC9du/evT59+uzYscPS0nLFihV+fn5KLwIAoPgIMACA/jp//ryPj09WVpaTk1N8fLyrq6vSiwAAeCkcwgEA0FN79+5t3bp1VlZWkyZN9u7dS30BAIwAAQYA0Edr1qzp2LHjrVu3unTpkpKS4uzsrPQiAABKAAEGANA7kZGR/fr1e/z48bvvvpuQkMA7LAMAjAYBBgDQI0VFRcOHDw8LC5MkaeLEid9//72pKS9XBgAYD35XAwDoi5ycnMDAwE2bNpmbm//444+BgYFKLwIAoIQRYAAAvXDlyhU/P79Dhw5VqVLl559/btmypdKLAAAoeQQYAEB56enpPXr0uHnzZqNGjRISEmrUqKH0IgAASgWvAQMAKGzdunVeXl43b9709vbes2cP9QUAMGIEGABAMRqNZurUqf7+/nl5eUOHDt20aZONjY3SowAAKEU8gggAUMaBAwfef//9jIwMtVo9derU8PBwpRcBAFDquAMGAJBbTk7OmDFj3NzcMjIynJ2d4+PjqS8AQBlBgAEAZBUfH9+4ceM5c+aoVKrQ0NBjx451795d6VEAAMiERxABADK5evXq6NGj16xZI4Ro3rz5d99916JFC6VHAQAgK+6AAQBKXVFRUWRkpIuLy5o1a2xsbObMmZOenk59AQDKIO6AAQBK14EDB957773MzEwhhK+v78KFC6tVq6b0KAAAlMEdMABAabl///7o0aPd3NwyMzNr1669efPm+Ph46gsAUJZxBwwAUCri4+OHDx9+9epVMzOzkSNHfvnllxUrVlR6FAAACiPAAAAl7NatW8HBwVu2bBFCtG/ffuHChS4uLkqPAgBALxBgAICSlJ6e3rdv3ytXrtjb28+YMWPw4MEqlUrpUQAA6AsCDABQYhYvXjxq1KgnT554eHjExsY6OTkpvQgAAP3CIRwAgBLw5MmT0aNHDx069MmTJ8OGDdu2bRv1BQDA/+IOGADgZV29etXf33/v3r3m5ubz588PCQlRehEAAHqKAAMAvJSUlJSAgIAbN25Uq1ZtzZo1bm5uSi8CAEB/8QgiAKD4Fi1a1LFjxxs3brRv3z4zM5P6AgDgnxFgAIDiyM/PDwkJee+99woLC4cNG5aUlOTo6Kj0KAAA9B2PIAIAXtjly5f79u2bkZFhaWm5ZMmSgIAApRcBAGAYCDAAwIvZsWNHYGDgrVu36tatu27dusaNGyu9CAAAg8EjiACA5yVJ0rRp07y9vW/dutW9e/f09HTqCwCAF0KAAQCey+PHjwMCAiIiIiRJmjRpUnx8/CuvvKL0KAAADAyPIAIA/l1ubm6PHj22b99ua2u7bNkyX19fpRcBAGCQCDAAwL948OBB9+7dU1NTq1atmpiY6OLiovQiAAAMFQEGAPgn9+7d69at2759+5ydnbdt21a3bl2lFwEAYMAIMADA37p161bnzp2PHDlSq1atbdu21apVS+lFAAAYNg7hAAA82/Xr1zt27HjkyJEGDRrs3r2b+gIA4OURYACAZ7h48WK7du2OHz/erFmzXbt2Va1aVelFAAAYAwIMAPBXp0+fbteu3dmzZ11dXZOSkhwcHJReBACAkSDAAAD/T1ZWlpeX1+XLl9u1a5ecnFypUiWlFwEAYDwIMADAHw4ePOjp6Xnt2rUOHTps3LjR2tpa6UUAABgVAgwA8JvMzExvb+87d+74+Phs2rTJ0tJS6UUAABgbAgwAIIQQu3fv7tixY3Z2dkBAwLp168zNzZVeBACAESLAAABi+/bt3bt3z8nJGTBgwIoVK8zMzJReBACAcSLAAKCsS0hI6N69e25u7tChQ5cvX25qaqr0IgAAjBYBBgBllyRJc+bM6d27d35+/ujRo7/77ju1mt8XAAAoRfw1JwCUUdnZ2SEhIRs2bFCpVJ988snkyZOVXgQAgPEjwACgLMrIyOjfv/+5c+dsbGy+//77gIAApRcBAFAm8KgJAJQtkiRFRkZ6eHicO3euZcuWBw4coL4AAJANAQYAZcjdu3f9/PzCwsIKCwtDQ0NTUlJq166t9CgAAMoQHkEEgLIiPT09MDDwwoULlSpVioqK8vHxUXoRAABlDnfAAMD4PX3s8MKFC25ubhkZGdQXAACKIMAAwMjduXPHx8cnLCysqKhI99hhrVq1lB4FAEAZxSOIAGDMdu7cOWjQoKtXr9rb20dHR3fr1k3pRQAAlGncAQMA46R77LBz585Xr1719PQ8dOgQ9QUAgOIIMAAwQjdv3uzcuXNYWJhGo/n000+Tk5OrVq2q9CgAAMAjiABgdFJTU/v163f16lVHR8fly5d7e3srvQgAAPyGO2AAYFTmzp3r5eV19erV9u3bHzp0iPoCAECvEGAAYCTy8/NDQkJCQ0MLCgqGDRuWmJhYpUoVpUcBAID/h0cQAcAYnDlzpm/fvkePHrW0tPzhhx/69eun9CIAAPAMBBgAGLxffvklKCjo/v379evXX7NmTaNGjZReBAAAno1HEAHAgGk0mkmTJvXs2fP+/fs9e/bct28f9QUAgD7jDhgAGKo7d+4MHDgwMTHR1NT0yy+/HDdunEqlUnoUAAD4JwQYABik/fv3+/v7X7hwwcHBYeXKlZ06dVJ6EQAA+Hc8gggAhmfRokVt27a9cOGCh4fHoUOHqC8AAAwFAQYAhiQ/P//dd9997733dGfNb9u27dVXX1V6FAAAeF48gggABuP8+fO9e/c+fPiwpaXl999/379/f6UXAQCAF0OAAYBhOHbsWNeuXa9du8ZZ8wAAGC4eQQQAA7B379727dtfu3bNy8srPT2d+gIAwEARYACg77Zv396lS5fs7Gw/P7+EhARra2ulFwEAgGIiwABAr23YsKF79+45OTlvvfXW2rVrLSwslF4EAACKjwADAP0VHR3t7++fn58/atSoqKgoU1NeuAsAgGEjwABAT0VGRr799ttFRUXh4eFz585Vq/kVGwAAg8dv5wCgdyRJioiICAsLE0LMnj176tSpSi8CAAAlg6dZAEC/aDSa4cOHf//996amposXLx48eLDSiwAAQIkhwABAjxQUFAQFBcXGxlaoUGH16tXdunVTehEAAChJBBgA6ItHjx717dt3y5Yttra28fHxHh4eSi8CAAAljAADAL1w7949X1/f1NRUR0fHzZs3N2vWTOlFAACg5BFgAKC8GzdudO3a9ciRIzVq1EhMTKxXr57SiwAAQKngFEQAUNiZM2fatm175MiRRo0apaamUl8AABgxAgwAlLRx48ZWrVqdP3++VatWu3btevXVV5VeBAAAShEBBgDKkCTpv//9r5+f371793r37p2UlGRnZ6f0KAAAULp4DRgAKCAnJ2fw4MHr1q1TqVTh4eFffvmlWs3fiAEAYPwIMACQ26lTp3r37p2VlWVnZ7dixYquXbsqvQgAAMiEv3AFAFlt2LDBzc0tKyuradOmGRkZ1BcAAGUKAQYAMtFoNBEREb1793748OHAgQNTU1Nr166t9CgAACArHkEEADncvXt3wIABiYmJpqamU6ZMCQ8PV3oRAABQAAEGAKXu4MGDffr0uXDhgoODw6pVqzp27Kj0IgAAoAweQQSA0rV8+XJ3d/cLFy60aNEiMzOT+gIAoCwjwACgtBQVFUVERAQFBT1+/HjYsGF79uxxdnZWehQAAFASjyACQKm4evVqQEBAWlqaubn5woUL3377baUXAQAA5RFgAFDysrKyunbtevny5Ro1aqxZs8bV1VXpRQAAQC/wCCIAlLD09HRPT8/Lly97eHhkZmZSXwAA4CkCDABKUnJysre39507d3x9fbds2WJvb6/0IgAAoEcIMAAoMevWrfPx8cnJyXnrrbfWrl1boUIFpRcBAAD9QoABQMlYsGCBv79/fn5+aGhoVFSUmZmZ0osAAIDeIcAAoARMmzZt5MiRkiRNnDgxMjJSreZXVwAA8AycgggAL0WSpA8//HD27NkmJiYLFy4cOnSo0osAAID+IsAAoPgKCgoGDx68atWq8uXLL1++3N/fX+lFAABArxFgAFBMjx498vf337x5s6Wl5dq1azt37qz0IgAAoO8IMAAojnv37vn6+qampjo6Om7atOmNN95QehEAADAABBgAvLBr1669+eabR48erVmz5tatW+vVq6f0IgAAYBg4pwsAXszJkyfbtGlz9OjRRo0apaSkUF8AAOD5EWAA8ALS09PbtWt36dIlDw+PlJSUqlWrKr0IAAAYEgIMAJ7Xpk2bOnbseOfOHT8/v61bt9ra2iq9CAAAGBgZAkzKzYr5uPuYDU9K/x8FAKVm6dKlPXr0ePTo0ZAhQ9auXWthYaH0IgAAYHiKFWAFW7/+fMdd6Tk+M+/M+k+6N24+4OvtVwuL808CAL0wbdq0d955p6ioKDw8/IcffjA15QQjAABQHMUKMOlh+rSe3SKS7/xTg+Vf2Di5Z9Nmfb7YfDH/eVoNAPSRRqMZMWJERESEWq1esGDB1KlTVSqV0qMAAIChKu4jiNLDjBm9uoVvu619xgcLrmyb3q/5676f/fxrniSEqly1jqHBbmYvsxMAFPDkyZMBAwYsXLiwfPnyK1euHD58uNKLAACAYStWgJnUadrESiXlZH7d+81xif+vwYpu7I4Matm4S0RcVo4khMqsikdoVMaxpGm+zpz3AcCg3Lt3z9vbOy4u7pVXXklKSgoICFB6EQAAMHjFqiLTNyZsXP9xS2u1lHNgVp+uH229pRVCaO7s+/bd1o28xiw/8kArCZWpvdt7i9KO74wMet2G53UAGJYLFy60bds2JSWlZs2aqampHh4eSi8CAADGoJivI1fZd5y6aYOJT69p+x4cnNO3a/5XIaoVUxbtvVUkCSFU6leaBU+eP/39Ng4mJboWAORw7Nixbt26XblypXHjxps2bapWrZrSiwAAgJEo/kFeqkodvtj4s4lvzy/T7h9a+EHob5fV1o37T5r39aj2TrzmC4Ah2r59e+/evR88eODl5bVu3TobGxulFwEAAOPxUi/MUtl5/jfhl0/dX9F9F5VF3d5fbT6W+dMY6guAYVqzZk337t0fPHjQt2/fjRs3Ul8AAKBkvezJGKpX3Cf+kjDJ004thCjMl+yqOZQviV0AILvIyMh+/frl5+eHhobGxsaam5srvQgAABibEjiaUGXb5pOfN07uUElVdGXDyC4DFmXlv/w3BQAZSZIUHh4eFhYmSdK0adMiIyPVak5uBQAAJe85XgOmObF6atzxon/5LKm5e5298Wfyr2wY2dn3yDvtHP7/n11MGwVE+DfkSA4A+kej0QQFBa1cubJ8+fJRUVGBgYFKLwIAAEbrOQKs6ETslElxz31XSyq6um3+f7f95ap5QKOPCDAAekeSpPfee2/lypU2Njbr16/v0KGD0osAAIAxK/4piABgBMLDw3/44YcKFSrEx8e3a9dO6TkAAMDIPUeAlXtzzpGTk7Uv989RW1Ut93LfAQBK2pQpU2bMmGFmZrZ69WrqCwAAyOA5Akxl+Wq9+qW/BABktWDBgk8//dTExGTZsmXdunVTeg4AACgTOOYLQFm0YsWKDz74QKVSLVy4kFM3AACAbErhNWCF13YtXRiTej7X3KmRp3+QfysnHj4EoE/i4+PffvttrVY7ffr0oUOHKj0HAACUIS9xB0x6cHTFf/p71Heq9f7mgt8vPs6c0bV5p/enLIj6Kfq7r8PfatvY46PNN1/yBWQAUGJSU1MHDBhQWFj4n//85+OPP1Z6DgAAKFuKewdMyk4e591z5sFcSagruUu/XS04MmvkxB03i6Snn6bNzpjVf2DNzK2j6nIGPQClHT582MfH59GjR8OHD58yZYrScwAAQJlTzDtgebs+HzbnUK4khEpd3u6VCiohhBD5u7/9dv9jSWVao/esrYePpKwMb19JLaQHO774cnNOCY4GgGI4c+ZM165d79+/P3DgwHnz5ik9BwAAlEXFC7DcpB9WnC+ShIlzn28P3To1s72ZEEIUZMRvuq4RatseX34X1vn1Ju79v1o9r4+dWmhv/Ryz/VGJ7gaAF3L58uXOnTvfvHmzS5cuS5cuVas5gggAACigWH8EKcpKS7+vFSoLz3Gz3m1iqfr96rbtVzRCZenl381ed01l7xfkY6cW2gcH0k8VldhoAHght2/f7tKly8WLF9u2bbt27dpy5TgaCAAAKKNYAaa5ee2WRgh1tRaurz79BlJ25r7TGiHMmnq2sVH9ftW8bv0aJkJob1zjJA4Ainjw4MGbb7558uTJpk2bJiQkVKxYUelFAACg7CreQzharVYIoTK3sHhaWuLJ/rQDBZIwcW7VquqfvqskSUIIqeDJE+l/vg0AlLK8vDw/P78DBw7Uq1dvy5Yttra2Si8CAABlWrECTG3vaK8WQnvtwqWn588XHty2865WqO3cPZuY/fGpBRfOXtIIobKysVI961sBQKkpLCz09/ffvXt3tWrVEhMTHR0dlV4EAADKumIFmFnDFk0rqIT23qbl8bd1N7ZytketPq8RKkvPN9tV+OMzH2xbszVbK4Rpnfp1SuE9nwHg72g0mkGDBm3atKly5crbtm2rUaOG0osAAACK+T5gNl36d7dbH3P39ur3u797+YPOlc4sm7jkkkaorDx9O/72AjAp79L2haM/WH5dK4Rpfa8O1ThyDIBctFptSEhIXFycra3tli1bXnvtNaUXAQAACFHcAFPZ9Z70iefmsTse3M9c8n/s3XlcVOUex/HfmWERBEVBxX3PFQFxx10xd8VcskwtSw3FrdI00zStzG6WS+6Wuadmppn7vqPggoL7iooKosjOzLl/MEWaqQzLYeDzfs2rV/ecZ4av93W9r/nyPOd5PuqzyHTVusrA0T0KKyJivPR9sxrD98WqqojoCr46tJ8bE2AAsoaqqoMGDfr555/z5s27fv16Dw8PrRMBAACYmDstZVV5yKq1Y5sVtf77yS5dPq8Rsz6ubyciIqohPj5JVUVEyVv9vUVz3y7F/BeArKCqqr+//5w5c+zt7Tdu3Ni4cWOtEwEAAKQyf15KV7jFxO3n+u7ftDXgygMpWKlJh/a1iv51to6idyha0bNptcad3vbv36a8/XM/CQAyzOjRo2fNmmVjY7NmzZqmTZtqHQcAAOAJ6VsYqHMs17jHwGf8fllXftBvZwal67MBIK3Gjh07ZcoUGxubtWvXtmnTRus4AAAAT2NlIIAcYsKECZMnT9br9UuWLGnfvr3WcQAAAJ6BAgYgJ5g2bdpnn32W0r66d++udRwAAIBne4kliIk7Rjf/eHuCiNg0/GzztHaO/7jy0mxbfrXzyxY2Lx4IAGk1ffr0ESNG6HS6n376qWfPnlrHAQAA+E8vUcDUB5eOHzsWLyK2rveTn7zy0vKUfaCaFRAAnmvRokXDhg1TFOWHH37o1auX1nEAAACe52U24bBzLlGiRLyI2Drn1YmIKA6u5StUSNsMmKuD8uJRAJAmixcvfu+990Rk5syZAwYM0DoOAADAC7xEAbNtN/vCjdn/vGLTenrwhcxKBAAvZ/Xq1f369TMajVOmTPHz89M6DgAAwIuxCQcAi/Trr7++8cYbBoNh8uTJI0eO1DoOAADASzHnHDA1MnT/ibBEVVeoWuMarvoMzwQAz7d58+Y33ngjOTn5s88+GzNmjNZxAAAAXpY5M2CKLmBqO5+WLduM+iOSnTUAZLGtW7f6+vomJCSMGDFi/PjxWscBAABIA7OWIOYtWbqQTsRw4+oNQ0YHAoDn2LZtW+fOnePj44cPH/6///1P6zgAAABpY1YBs677evcKVorh/B9/hCRndCIA+A87duzo1KlTXFycn58f7QsAAFgi8zbhsGsw/qdxDZwMJ6f5/y/wcQZHygaSoy4f37P59w3bDgVfi4x/0TLL5IjLp0+ePHny9LWHrMgEMs2+ffs6d+4cFxfXr1+/GTNmKApHWwAAAMtj5i6IimO9sX/umt3T9fiYpnW7jv9519nwWGPGJtNGzPn1E7p5FC1SoVbTNp06tmrgVrZwsRrdxq069eA//3jq3V/eq+Xh4eFR56NtiVmZFchF9u/f37Zt28ePH7/zzjvz5s3T6djBFQAAWCRzdkGUpCPfv/vd4UQRqVil8MVjayf2WTtR0dvmze+Uz9762V+L8rSfEzy7nW16omY6Y/jWUR17fHs06p9dSzU8CF7zec9Nv+5YvHFW1zLWmqUDcq8DBw60adMmpX3Nnz+f9gUAACyXWQXMeOPAevfddAAAIABJREFULytXxz9xTTUkPI4Mfxz5H2/JExFnzk/KQskX5vbumdK+FH2+0jXr1fV8pUDstcA92wNuxKmxZxa80SxBOfjja0X56gdkpYMHD6a0r759+9K+AACApTOrgCkFynvVqpWQlrfYli+QrZ/XUKP++Hzi9kijKNalOn79y0L/us6mA84Swnb9r9+b47feTrq6dLB/q3q/vFmc739AFjl48GDr1q2jo6P79OmzcOFC2hcAALB0ZhUwmxZf7g/4MqOjaCp667L14UZRbNw+WLVsWN28qXdsizcbs36nYwfvYdsi76wbMXRl81/eYBYMyAKHDh1q06ZNdHR0jx49aF8AACBn4AuNiIgkBR8NjFFFsWvuP/Sf7cvEtvKgBd+0c9GJ8e5vn07eFa1BQiCXOX78eLt27R49etS9e/elS5fq9XqtEwEAAGQACpiIiBgj7t43iujL1qrp8sylkrpSvb8Z28hBEcOVhWNmBidldUAgVwkMDPTx8Xnw4EG3bt2WLVtmZWXWXD0AAED2QwFLoaqqiIgh2fBfI/SvDJg61M1GUeOP/e+TZTdzxKb7QHYUFBSU0r66du26fPly2hcAAMhJKGAiIqIvUrSITsRw/Xhg+H9Wqzy1Ppr6Thm9GCM2fjxsRRgVDMh4QUFBLVu2jIyM7Nq164oVK2hfAAAgh6GAiYiIVdW6Xo6KqHG7p3974JH6H6OU/D4Tvu5RVCfG8HUjBsw/z7HLQIY6ceKEj49PZGTka6+9xtwXAADIkShgKRx93uzsqhM1KeT7Hl0n77yd/OxhSuEuU6d1K64X491NQ9q9u/R8bNbGBHKukydPtmzZMiIiokuXLitWrLC25thzAACQA1HATPK1+fSzVs46UQ23t33askLZOh3fHv7pVz9su/rUQ2G6Yt1/WDzMw0FREy8u6V3Ts/2wb1YFRvzXnBmAlxISEtKiRYuIiAhfX9+VK1fSvgAAQE5FAfuLvtx7S1aP9nbWKyJq7M2ADT99N2nMJ0tO/2suTCnYYuqOTZ81cdGJGnP+j+9Hjlhwkl0RAfPduXOnbdu2ERERHTt2pH0BAICcjQKWSnFpNmln0JZv3mlUxkH/zM3o/x5ZsNG4P3Yv9m9SIs9zxwF4kbi4OF9f36tXr9auXXvFihU2NjZaJwIAAMhEPOP+JJuSLUYsbDF81r2LwadDr955XNj9v34Xn7dar+m7u40J2rZ+4/aDx0+FXgmLKpgnS7MCFs9oNL7xxhuHDx8uW7bsxo0b7e3ttU4EAACQuShgz6LkKVSxVvOKtV440NbVs/0Az/YDsiATkAMNHz78t99+c3Z2/vPPPwsXLqx1HAAAgEyXIQUs+dGNkNOhV2/djYyOt3fr1LW2i6KqqqKwPA/Af/r222+nT59uY2OzevXqSpUqaR0HAAAgK6TvGTD10ekVH3d2c3UpXaNhq47de/XtN/Cz9dcNIkl7P/Cs1vK9b/64GJNBQQHkJBs2bBg5cqSiKAsXLmzWrJnWcQAAALJIOgpY0uXlb9ep9+aU9cERSf/ahl1Nijy3Y8FHHWrW67fiUs4+sDj+we1bYWFhYWG3IuO1zgJYhICAgJ49exoMhq+++qpXr15axwEAAMg65i5BVB/tGd3pnZ/PJaiiWDlXadG+lUfs9m9XB5uamM6l/CsuNjfDE6ODf3y7fd5Ch75v6ZRDFyQmbPGv5LssWhXJ02111C9dbTPskyMjIwMDA814Y3R0dIaFADLalStXOnToEBMT8+67744cOVLrOAAAAFnKzAKWdHLasBlnElTFukyX79YuGFjTSZewpvv3q4NNp2bpqw/bFtpk7oBuQ1dfSjg3Z9jU3oGTa7G7dNr0799/7dq1Zr/95s2bGRgGyBCRkZFt2rQJDw9v06bN7NmztY4DAACQ1cwrYPH7Fyw6nagqNu4jf/nZr+Yzd45WnDwH/vxr5PX6Yw/HhixeuHdcrZYZNzmUK/Tq1SsmJiY5+V9HQb/IkSNHoqOjnZ2dMyMVYLbExMSuXbueO3euevXqK1assLJiF1YAAJDrmPUFKPnc7r23DKLYNR88uNbzzu2xdRvo/+qUI+sehR/YF5rc0j0nft2yaTxh52F/gyqic66YoZN8nTt37ty5sxlv9PLyCgwMtLOzy8g0QPqoqtqvX79du3YVL15806ZN+fPn1zoRAACABsyqRIYbV28aRPRlvWq6PP/JLiV/Dc/yVuuCDLduhBnF3ayI2ZxSoHytOuW1TgFkd6NHj166dKmjo+Mff/xRsmRJreMAAABow6xdEBVFp4iIWFnpXzRUNSQnqyKq0WD8106JAHKJhQsXTpkyxdraes2aNe7uOfJXMQAAAC/FrAKmcy3mqhcxXDt77gXHfKmPzgRfM4joC7kWfmFZA5ATbd68eeDAgSIyffr0Vq1aaR0HAABAS2YVMKuqTbwL6UR9tHn+8qvG5wxMvvjzvK3Rquic6jaoapkPgCU/vh925VzwyaDjx44HnQ69eDXs3uM074oB5FrBwcGvv/56cnLyuHHjUmoYAABAbmZeK7Jr1LtnhR+nnY/eOabXBLffP2tY8BmPghnv7vik1/i9j1XRF+/cs5lDOpNmobiwwxtWrd24bd+RoODLd2OSn1w8qSg2+YqXr+xWu1mbTp07t65T0j6HnnAGpNe1a9dat2798OHDt95667PPPtM6DgAAgPbMmgETsfP++OtepawUY9SBz1u6Nxs4dcX249ejVRExxD24c/XM/l++etvbve3Uo49U0bm0mfDJq/kyNHZmMUYcmTOgQblyDXp88M2SzUfOhz/dvkREVRMf3gw58ufPXw15rX75MnX6fr8/3KBFWCBbu3HjRvPmzcPCwpo1a7ZgwQJF4TcVAAAA5h7ELEqhTrPWf3u33Qd/hiXc3DN35J65phvnvm1Z8tvUcTqnOqNWL367jJlFL0slXlr+bpt3ll5I+KtzKXr7gsVKlipZ1NnR3s7OVm9MjI+LjY4MD7txPeze4yRVRE26d2zx8Oa7ds/YtHxANbZ9B0zCw8NbtWp1+fLlmjVrrl271saGc9gBAABEzC9gImLv7v/7cffvP/rw61XHwhP/NVGk6PO/0sbvy2njfCvkSU/CrBJ3dOJrKe1LsS1Wr0f/997s1LK+W0nHZ+4dYowLDw3Ys3nN4nmLN597lHR9/ZAuIyscnd4iP7/jB+Tu3bvNmzcPDQ319PTctm1bgQIFtE4EAACQXaRvZwx9kcYjfj76/pcB2zfv3Bdw9vrdiEeJ1o4FCxWv6NmgiY9Pwwr5LWHmS0TEeP3HMdNOJaiKvniHb9cv9vdyem6V0tkVqdq4e9XG3QeN+P2jLm/MDIq5MP+TuYObjqzEXo/I5VLa19mzZ93d3bdt21awYEGtEwEAAGQj5hWw2PvX78WITX7Xok42InbFa3foV7tDv2cONUSHh0XGi23BYq6O2XcfROON31btj1NFX6rfwiVDvF7+gTXbMh2nrfr8hPsH++IC12248kGlCjQw5GL37t1r0aLFmTNnatSosX37dmdnZ60TAQAAZC9mzVAlbPKrVKZM+ZbfBL9wQ3Y18pe+r5QpU77p5MDsvHl78tkTZ5JU0RVu261ZWrcL0Zd/rVsdaxHDhbPn2YwDuVhUVFTr1q2Dg4MrV668ZcsWFxcXrRMBAABkO5m9RFCxsbFRRAx3wu5k53KiJiQkqiKKg6ND2p/i0uVzyqcTURMT/v0kHJBLREVF+fj4BAYGVqpUaefOna6urlonAgAAyI5eclWg8fbhtdvOxZr6RVLANYOI+vDUhiWLTz+vwhnjb+2ZsytBRCR7706hL1G6hF5CDDePB9421iuVtloadzIgOElEV6RoEUt55A3IUA8fPmzVqtWxY8cqVqy4c+fOokWLap0IAAAgm3rJApZ8dvHQt+fcNj5xMWzDZ+9seKm3K3Y1vKpbpzVbFrKq0b5N6a9DLsXtmfLx6g5LepR86Se51OijU0cvvmoQXWHvpjWy858RyByPHj169dVXAwICKlSosGvXrmLFimmdCAAAIPvKgikbRVew7oeT+pbN1rNDNnUH+DfKp4jh+sre9V8dueTo7YQXvscQFfrHN70a+Ew49EhVbKq9N8gnbxYkBbKTmJiYDh06HDlypHTp0tu2bStevLjWiQAAALK1l5wBs/bwX/5n579OKE7a98Vrk/caSr3+3ey+FZ8/V6To7QtVcKtexim7zw3pX/GbM3V7M78/bieG7Zjau953wyrUadiwrmeVcqVLFHXJnzdPHhsrNSk+Pu5xxJ2bN66cPxlwcP/h4DuxRlVEdE7e4xaOrm2r9R8CyFKxsbHt27ffu3dvqVKldu3aVaZMGa0TAQAAZHcvWcAU56pNW1X96z8lRC/UiRgdyjdo9WrN7Lu3fBpZV+r/y448/j2H/ngqyqgmRV448PuFA7+/8G06x6o9pyyZNbAm01/IVVLa1+7du0uWLLlr166yZctqnQgAAMACmLUuUF+xnf+wYUN6NyicrZcVpp1dld4Ljp07tHhcr8bl81s9f98QxSpfWe+eYxbtCw1a+n7N/Nl7kxEgY8XFxXXs2HHXrl0lSpTYtWtXuXLltE4EAABgGcyav7Jy7/P1tD4ZHSWbsCpc560JS96akBR15dSxwNPnLl0LC4948DguMVms7fI6ODjkL1SqQqVKlau7W8DCSiATxMfHd+7ceceOHcWKFduxY0f58uW1TgQAAGAxcswCwgxn7VTWq2VZr5Za5wCymw8//HDr1q2urq47dux45ZVXtI4DAABgScwqYIZLWxZsvpicpp9TofW7r5Z/6c3dAWRPu3fv/uGHH2xsbDZt2lS5cmWt4wAAAFgYswpYctDCYYNXx6flLXm6re5LAQMsW0xMzHvvvaeq6qeffurp6al1HAAAAMuT6UsQFZ1er1PESs8uFYClGzly5MWLFz08PEaNGqV1FgAAAItkVgGzafb5zv1Djf9x15j4OOLG2YObli3+NfBukthXfmvOr7PffIVDsgCLtnv37tmzZ1tbWy9cuNDamg1oAAAAzGFWAVOcK9X3rvTcIa927j101KGpPTuP2Xbmp74+CTYHl3QrnsM2rQdyj38uPqxZs6bWcQAAACxVJnYinXP9kSsX9C6pV5Ovrxrx+fbYzPtRADLXqFGjUhYffvzxx1pnAQAAsGCZOymlFGzj92YFKxHD7R3bTiVl6s8CkElSdj5k8SEAAED6ZfaqQKtK1Spz1hhguWJjY1l8CAAAkFEyu4Cp8fHxqohiU9W9Mr84ByzP3zsfsvgQAAAg/TK5gKkRO7YEJIkoTkVd7TP3RwHIcCmLD62srFh8CAAAkCEys4AZHxyf2W/kugdGUWyqeVblyxtgUf5efDhu3DgWHwIAAGQIs57PSto7qfPnexKfN0RNfHA95Oyl+3FGVURxatWrY1FOYgYsSsriQ3d3dxYfAgAAZBSzCpjx7qmd27fHv9xgxap4p//97036F2BJDhw4MHv2bCsrq0WLFrH4EAAAIKOYt0OhTT4XF5cXFTBFb1eglFvzN0Z84teiBDshApYjNja2b9++RqNx/PjxLD4EAADIQGYVI9uOC27cW5DRUQBkEynHLru7u48ePVrrLAAAADlKZm9DD8DCHDhwIGXnQxYfAgAAZDgKGIBUfy8+5NhlAACAzEABA5CKxYcAAACZ6iWeAUvcPKSm/58J6fs5tm1mBE5vbZO+DwGQmVh8CAAAkNleooCpj+9cunjxJTed/y957jxW0/cJADITOx8CAABkgZcoYEq+UtWqV0/vDFipfBwEBmRXqqr279//4sWLHh4eLD4EAADIPC9RwGxafXPs9DeZHwWAVkaNGrVs2TJHR8clS5aw+BAAACDzsAkHkNv98MMPU6dOtba2Xr16dfXq1bWOAwAAkJNRwIBcbdWqVf7+/oqizJ8//9VXX9U6DgAAQA73EksQX0rSg6uhF8PuP3gUr8tb0KVYucrlC+XhoS8ge9u9e3efPn2MRuPUqVP79OmjdRwAAICcL50FTH0UsnHBjNk/rdtzJjzW+Pc+h4pi61y5UZd3/If371CZ3TeA7Cg4ONjX1zchIcHPz+/DDz/UOg4AAECukI4liGrkof/5etbs9MHsP0/f+Uf7EhFVTbgfsn3eR51r1nztu6NRbEAPZDM3b95s27ZtVFRUjx49ZsyYoXUcAACA3MLsGbD4U9O6th+5K9IoIoo+X5najRt6VSlVKJ+tMeb+jdDAfbsPX4pKVuMurfugfYx+1+/+1WwzMDWAdIiIiPDx8blx40bTpk0XL16s0/EsKAAAQBYxs4AZLs4dMm53pFEUm9JtPpn5/Yh2FRyeWGmoxlze/N1Qv8//uJpwb9vYoQvbb/Ury5c8QHtxcXGdOnUKDQ2tXr36unXrbG353QgAAEDWMa8UJR+b/8OBGFV0hdrP2vnbuPZPtS8RUfKWa/PJrztmtS+sE/XRnhnzA5PTHxZA+hgMhjfffPPAgQMlSpTYtGmTk5OT1okAAAByF7MKmOHCzp1XkkWsPYdNebvcfx/aal2u79fDvawVSb60ffslg9khAWSMoUOHrlu3ztnZedu2bSVLltQ6DgAAQK5jXgG7ee2mQURfulmzCvrnjtRXaN68nF7EcOPqDQoYoKnx48fPmjXLzs5u/fr1lStX1joOAABAbmRWAVPjYmJVEV1eR4cXvV9xcHRQ/n4HAI3Mnz9/4sSJer1+2bJl3t7eWscBAADIpcwqYLqChZx1IoabFy/HvWBowuWL1w0iOudCzuzBAWhkw4YNfn5+IvL999/7+vpqHQcAACD3MqsVWVXxrGGviPHBpp/W3TI+Z6B657fFf0QYRbF3q1k5nWc+AzDLkSNHevbsmZycPGHChEGDBmkdBwAAIFczq4ApBVu91jy/IsaI3z/o/c3Rh89eXKg+Ov5tn+G/3jOKkr95F5+CT2+UCCDThYSEtG3bNiYmpn///uPGjdM6DgAAQG5n3rpApUiP8cM97RQx3tvxcRN3H//v1x2+GJGQUsTUxMjLR9bPGPqqe8OPtt41ipLHY+i4HkXoX0AWS0xM7NGjR2RkZKdOnX744Qet4wAAAMDcg5jFxnP0L3OCm7+75npS/LUdM4ftmDlM0VnbOea1ToqNjks0/jUppliV8P3hl09qctYrkOU+//zz06dPv/LKK8uXL9frn79jKQAAALKC+TtjWJfvveLotq+6Vs2vT5ncUo1JsQ+jHsb+1b4UXb5KvpO3HF31doX/PioMQOY4ceLElClTdDrdggUL7O3ttY4DAAAAEfNnwERERF+kycjVpwee3/nrb1v3Hg66EHb/QXSStUMB52LlPeo19un8mk/l/Ox9CGS9xMTE3r17JyUljRgxolGjRlrHAQAAgEn6tybU5XulZd+RLfumPwuADDJp0qTTp0+XK1du4sSJWmcBAABAKiaogJzmxIkTX331lU6n++mnn/Lmzat1HAAAAKTKhMO5km7t/XH2qoNXHucpWq1x17e61i1qk/E/BMAzJScn9+vXLykpafjw4Sw+BAAAyG7SMQOmPjy9/JPXG1YqWnbg5sS/LsYdm/pqzRYDJ/2weNnPc78Z1atB9YYfbg5/3mHNADLQ559/HhgYWLZsWRYfAgAAZEPmzoCpkTtHtuz0v6DHquicvf/adD7x1LeDxu8OT/77ZGbVGBnw7etvlDm2dXAFNsEGMtnJkye//PLLlMWHDg4OWscBAADA08ycAYvdO6H/dyceqyKKzrZgAfuUjejj982ZczxOVaxK+3679eSp/StGNXHWifpw9+QvNkdnYGgA//b34kN/f//GjRtrHQcAAADPYF4Be7x94fIryaroS3WZc+Luuf81sRYRSQzY8Odtg+icOn4xd5hPDTfv179cM7NLQZ0Y7/6+aldMhuYG8JRJkyYdP368bNmykyZN0joLAAAAns2sApYccuholFEUu8Yjv33XzUH56+qOXTcNojg069rGJeWa4tLhrXYFdWJ8GHj0XHKGhQbwlL8XH/74448sPgQAAMi2zCpghvBbdw0iuhK1vIr9/QFq5LEj5w0i1u6N6+dX/rqap0Kl0noR451b7MQBZJKUxYeJiYmDBw9u0qSJ1nEAAADwn8xbgmg0GkVEyWNn93fTkoTjhwITVdGXqlu3+D8+VVVVEVETExLUf30MgIwwefLklMWHkydP1joLAAAAnsesAqZzKeKiEzHeunr97/3nk4J27Ikwiq6gd2M369ShiVcvXTeIKI75HZVnfRSA9Dl16tQXX3zB4kMAAACLYFYBs65ay91eEeODP5duuJcysRW9a/GaKwZRHBq3bmSfOvLhjrVbI40iVuUrlc+EM5+BXO7vxYd+fn4sPgQAAMj+zGtF+Vu93rbgb6si7q0Z2PbdG/4+zheWjF903SCKY+P2zU0PgKmx13fNHuq/9LZRxKpSs6Yl0nHmM4Bn+vLLL48dO1amTJkvv/xS6ywAAAB4MfMKmFLQ97OxjTeP2P0w6tiij/osMl21rjJwdI/CiogYL33frMbwfbGqKiK6gq8O7efGBBiQsc6ePfvFF18oijJv3jwWHwIAAFgEc6elrCoPWbV2bLOi1n8/2aXL5zVi1sf17URERDXExyepqogoeau/t2ju26WY/wIyUnJycp8+feLj4/38/Hx8fLSOAwAAgJdi/ryUrnCLidvP9d2/aWvAlQdSsFKTDu1rFbUx3VT0DkUrejat1rjT2/7925S3f+4nAUizr776isWHAAAAFid9CwN1juUa9xjY+Bk3yg/67cygdH02gP8SEhIyefJkRVHmzp3r6OiodRwAAAC8LFYGAhbGaDS+/fbb8fHxAwYMaNWqldZxAAAAkAYZsDVGYvjJnVt3HjgafOXO/ag4xd7J2bWsW23vpj7NPFxt0//xAJ4we/bsI0eOlCxZ8uuvv9Y6CwAAANImXQXMGBkw7+Nhk5YcCotX/3VTsXWt1e2DKVOGNSvGBohABrlz587YsWNFZMaMGSw+BAAAsDjmL0FMury0V61GfvMPPqt9iYiacCdg6Ugfj1ZfHH74zAEA0mzIkCFRUVGdO3fu1KmT1lkAAACQZuYWsPiAz197b+WVBFVEsXGt88YnP6zdHXTh+p174WGXT+//ff743vWL2SqiGu7t+rRTn5+vGzM0NZArbd68efXq1Xnz5p02bZrWWQAAAGAO81YHGm8uGffdyXhVFKsS7af++tOQ2gVTm5xL4WJlq3t36DfUf3pf3w833Ey+u2H0pxs6/dTJSXnORwJ4rtjY2EGDBonIpEmTypQpo3UcAAAAmMOsGTD1zqY1ex6rothUHbFqxbB/tq9USoFaQ5evGlHVRhHjnfVLN0exDhFIhwkTJly+fLlGjRqDBw/WOgsAAADMZFYBSz5/OiRRFSVPo0H+9fI+Z2De+kOHNLVTRH0cePRsspkRAQQHB0+bNk2n082dO9fKim1tAAAALJVZBcz4KOqhUURX3NOzyPM/QCns6VlSL2K8fy+Cx8AAsxiNxgEDBiQlJQ0ePLhevXpaxwEAAID5zCpgOudCzjoRMRgMLxqqGoxGVUTnVCA/Zz4DZpk3b97BgweLFi06ceJErbMAAAAgXcxqRVaVPN3sFTGGHTx45fkVzHj94MHrRlFsKlWryLIpIO3Cw8PHjBkjIjNnzsyfP7/WcQAAAJAuZhUwxaXToDdK6dXEY999+kvYf1cw4+2146YdTlAVe2/fNq7sgQik3bBhwx48eNCmTZsuXbponQUAAADpZea6wHw+Xywa7ulgvLW6X4teMw/e/fcGG8n3Ds/u3aLvipsGxarCu2N7l2IFIpBWW7duXblypb29/axZs7TOAgAAgAzwEusCjdf2LN999d/zXFV79ap9bV7AuZX+DddPqf1qm2a1q5Yu7GidFH33esix3X9uOXIjVhVRrMv3mvBu6Yj7sXld7DPhDwDkVHFxcX5+fiIyceLEsmXLah0HAAAAGeAlClhSwKz3+q6Of84INe7m0d/mH/3tmfeSLv30httPebqtjvqlq62ZKYFcaNKkSZcuXXJzcxsyZIjWWQAAAJAxWBgIZEdnzpz55ptvUg7+sra21joOAAAAMsZLzIBZN/pkw+Z+L9xw/vn0rh58hwRejqqqgwcPTkxMHDRoUP369bWOAwAAgAzzEgVMV8S95avumR8FQIoFCxbs3r3b1dV10qRJWmcBAABARsr0JYhqzLUDK77ye23ctsTM/lFATnD//v2Ug7++//57JycnreMAAAAgI2Xa6cjJkWd3rFm+dNny9QeuRhvUPN2aq5n1o4CcZPjw4ffv32/dunX37t21zgIAAIAMltEFTI2/dWzjyqXLlv3yZ9CdBDoXkCZ79uxZtmyZnZ0dB38BAADkSBlVwAwPL+xZt3zZ0uW/7rkQlfxE8VKsC1Zu1q1dlUybbANyhoSEhIEDB6qqOn78+HLlymkdBwAAABkvva0oMTzoz1+WL1u28o+AsFjjP4uXos9X1rtDj9df7/FaK/fCNun8OUDON3ny5NDQUDc3txEjRmidBQAAAJnCzAJmfHz1wPoVy5YtW7P9bETSkysNdc7uvr37vP5693a1i9spGZARyAXOnj07ZcoUnU43Z84cDv4CAADIqdJYwJIizmxfvWzZshXrD157/M8JL0Vn51q+cMyla4+MNs3HLvu2q23G5gRyMqPROGDAgMTExPfff79BgwZaxwEAAEBmebkCpsbdPLph5dJly1ZvORn+xNYaik2h6i269Oj5eo9ODRJnNPAYe9yYOUGBHGzu3Ln79+93dXX94osvtM4CAACATPQSBSxp9yiPzv8LeWj454SXVf4KjTp1f/3117u0rO6SslzKcDaTMgI52p07d1IO/po1axYHfwEAAORsL1HAjPevXDa1L0WXt0Sdtt1ff/31bm29iuXhAS8g/QYNGhQVFdWuXbsuXbponQUQnKIDAAAgAElEQVQAAACZKy3PgCk2xZv7TfzUr1ujMnnpXkBG+OOPP3799VdHR8c5c+ZonQUAAACZTpeGsWrize1T325aoWjFZm9/9tPuS9E87gWkR3R09MCBA0Xkiy++KFGihNZxAAAAkOleooDZtPh0+bdDO9d0tVVERFRD9KXdP014u/krxco37v3pwu0XHhoyOyWQI40ZM+bmzZt16tR5//33tc4CAACArPASBUwp4OY7/Lt1x2+End40++Oe3qXy6hQRUY2Pr+5bMundVpWLlfN+c8y8LaEPktUXfhiAFEePHp09e7aVldXcuXP1er3WcQAAAJAV0rAE0cq5WpuBXy7ff+X2+R0/TXin5StOVilFLPb6weVfDmjt1uTzk8kiIvGxsTQx4HmSk5MHDBhgMBhGjRrl4eGhdRwAAABkkbQ8A/bXWxzLN+szbuG20FtXDq78elD7GoVsTGsTDQZVROI3vlO6QtO3Ppn755mIpAyOC+QMU6ZMOXHiRMWKFT/55BOtswAAACDrmFHA/qLYlajX46OZG07evBm0fvoH3eoUt9P99ZTY5T1LvxjY1q14Cc+Og79eefB6DFNiwF8uXLgwefJkRVFmz55tZ2endRwAAABknXQUsL/ZFHLv6P/NL0eu3Tq7Zf7Yt5qUc9Sn7FKvJtw9sWHWqJ4NyxWt/OGuxAz4UYClU1X1/fffj4uLe/vtt1u0aKF1HAAAAGSpjChgf9E7VfJ59/Ofd1+8fWnv0sn9W1cpaG0qYobo69cjmAQDRH788ccdO3a4uLhMmTJF6ywAAADIahlZwP6i5C3d8M0xc/88e+tawNp/bGAP5Hb3798fNWqUiEyfPt3FxUXrOAAAAMhqVpn54bZFvboM9+oy/JuIM7vO2WfqjwIswZAhQ+7fv9+6deuePXtqnQUAAAAayJJWZOVczadBVvwgIBvbvHnzihUr7O3tZ82apXUWAAAAaCMzliACeFpsbOygQYNEZOLEieXKldM6DgAAALRBAQOywrhx4y5fvuzu7j5kyBCtswAAAEAzFDAg0508eXL69Ol6vX7hwoXW1tZaxwEAAIBmKGBA5jIYDP369UtKSho+fLiXl5fWcQAAAKAlChiQuaZNm3b8+PHSpUuPHz9e6ywAAADQGAUMyER3796dMGGCiMyZM8fBwUHrOAAAANAYBQzIRFOnTn38+HHHjh1bt26tdRYAAABojwIGZJY7d+788MMPiqKMHTtW6ywAAADIFihgQGaZMmVKbGysr69v7dq1tc4CAACAbIECBmSK27dvz5s3T1GUcePGaZ0FAAAA2QUFDMgUX375ZWxsbNeuXd3d3bXOAgAAgOyCAgZkvNu3by9YsECn0/H0FwAAAP6JAgZkvEmTJsXFxXXv3r1GjRpaZwEAAEA2QgEDMtiNGzcWLlyo1+t5+gsAAABPoYABGWzy5MkJCQmvv/56lSpVtM4CAACA7IUCBmSk69ev//jjj3q9nqe/AAAA8G8UMCAjff7554mJib169apcubLWWQAAAJDtUMCADHP16tWff/5Zr9ePGTNG6ywAAADIjihgQIaZMGFCYmJinz59XnnlFa2zAAAAIDuigAEZ4+LFi0uXLrW2tv7kk0+0zgIAAIBsigIGZIyJEycmJyf37du3XLlyWmcBAABANkUBAzLAhQsXVqxYYW1tPXr0aK2zAAAAIPuigAEZ4LPPPktOTu7Xr1/ZsmW1zgIAAIDsiwIGpFdISMjKlSttbGxGjRqldRYAAABkaxQwIL0mTJhgNBr79+9fpkwZrbMAAAAgW6OAAely5syZ1atX58mTh+kvAAAAvBAFDEiX8ePHG43GAQMGlChRQussAAAAyO4oYID5goOD161blydPno8++kjrLAAAALAAFDDAfJ9++qnRaPTz8ytevLjWWQAAAGABKGCAmYKCgtavX583b96RI0dqnQUAAACWgQIGmGn8+PGqqvr5+RUpUkTrLAAAALAMFDDAHMePH9+4cWPevHk//PBDrbMAAADAYlDAAHOMGzdOVVV/f//ChQtrnQUAAAAWgwIGpNnWrVs3bdrk6OjI9BcAAADShAIGpE1CQsKQIUNE5NNPP3V2dtY6DgAAACwJBQxIm0mTJp07d6569erDhg3TOgsAAAAsDAUMSIPz589PnTpVp9PNmTPH2tpa6zgAAACwMBQw4GWpqvr+++8nJCS8++673t7eWscBAACA5aGAAS9r8eLFO3fudHFxmTx5stZZAAAAYJEoYMBLiYyMHDVqlIhMmzbNxcVF6zgAAACwSBQw4KWMHDny7t27TZo0efPNN7XOAgAAAEtFAQNebP/+/YsWLbKxsZk9e7aiKFrHAQAAgKWigAEvkJycPHjwYFVVR48eXaVKFa3jAAAAwIJRwIAXmDp16smTJytUqPDxxx9rnQUAAACWjQIGPM+1a9dS9jycPXt2njx5tI4DAAAAy0YBA55n8ODBMTExb775ZsuWLbXOAgAAAItHAQP+05o1azZu3Jg/f/6vv/5a6ywAAADICShgwLNFR0cPGzZMRL766qtixYppHQcAAAA5AQUMeLaxY8eGhYXVrl27f//+WmcBAABADkEBA57h+PHjs2bNsrKymjt3rk7HXxMAAABkDL5ZAk8zGo2DBg0yGAzDhg3z9PTUOg4AAAByDgoY8LRZs2YdOXKkZMmS48eP1zoLAAAAchQKGPCEO3fujBs3TkRmzJjh4OCgdRwAAADkKFZaBwCylyFDhkRFRbVt27ZTp05aZwEAAMhy0dFy6pQEBcmlSzJihJQsqXWgnIYCBqTasmXL6tWr7e3tZ82apXUWAACALHHvngQFpb4uXhSj0XSrZEkZMULTcDkQBQwwiY+P9/PzE5GJEyeWKVNG6zgAAACZ48oVCQqSEydMjSss7Im7trZSvbp4eoqXl7z1lkYRczIKGGCydOnSy5cvu7m5DR06VOssAAAAGSc8XI4elaNH5cgRCQiQqKgn7ubLJx4e4ukpnp7i4SFVq4q1tUZBcwUKGGAyY8YMERkzZoyVFX8vAACAJYuNlcBAU+k6fFiuXXvirqtrat2qWVPKlRNF0ShobsQXTUBEZMuWLadOnSpevPhrr72mdRYAAIA0MholJCR1muv0aUlOTr2bL5/UqiV160rdulK7thQrpl1QUMAAERH57rvvRMTf39+aOXcAAJD93bghISFy5oycPStnz0pwsDx6lHrXyko8PaVuXalTR+rWlcqVRcfpU9kFBQyQc+fObd261d7e/t1339U6CwAAwL9cuyYhIRIcLKGhEhwsISFP1K0UpUtLvXpSp47UqSM1a4q9vRZB8WIUMEC+/fZbo9HYt29fZ2dnrbMAAIDcTVXl6lXTvNbZs3LmjISGSnT008NcXKRaNalSRapXlypVxM1NChXSIi7SjAKG3C4yMnLZsmWKovj7+2udBQAA5DIGg1y5ImfOmNYThoRISIjExj49rHDhJ+pWtWrULctFARMREUPsg4joRDV9H6LkcSqc3zZjAiHrzJkzJyYmpn379pUrV9Y6CwAAyNGMRrl4UU6fNtWt0FAJCZGEhKeHFSsmVauailbKP1mkk4NQwEREjFd+aFf1o0NJ6fuUPN1WR/3SlQZmUZKSkmbPni0iw4YN0zoLAADIcWJi5PRpOXlSTpyQkyfl1CmJiXl6TKlSqV2ralWpWlWcnLTIiixCARMREduChZyslXtJ6ZwDg8VZtWrVzZs3q1ev3rx5c62zAAAAy3frlqlupTSuCxfEaHxiQMmS4uaWOrVVpYo4OmqUFdqggImI6Eq+sz6s4+nNP38/6cvFAfeTVRFR8par1/CV/Gk4lM7Gw5XtPS3N9OnTRWTEiBEK5w8CAAAzXLsmAQESECBBQXLihNy798Rda2txcxN3d9PL01MKFtQoKLILCthfrF3cOoxY0KqtR0fvoVsjjaIv2f37jV/W5r+gHGzfvn0BAQGFChXq2bOn1lkAAICFuHfP1LhSXnfvPnG3QAFxdxcPD1PjqlZNbGw0Copsin7xJNvKAyb1/2HnVyHJLx4LSzdt2jQR8fPzy5Mnj9ZZAABAdhUdLYGBprp19KhcvfrEXRcXqV1batcWLy9xd5fSpbUJCctBAXuatUcbn+JTQ65pnQOZ7OrVq7///rutre3AgQO1zgIAALITVZWQEDl4UA4ckKNHJTT0iee4HBykZk1T6apTR8qW1S4oLBIF7F+sqtd0s1auMQWWw33//fcGg6F3796urq5aZwEAAFqLjZWAADlwQA4elEOHJDIy9Za1dWrjql1bqlQRvV67oLB4FLB/UfJ5tOrU7PH9EuXysS1DThUdHf3jjz+KyJAhQ7TOAgAANHLrlmma6+BBCQqSpH8cSVS8uHh7S4MGUr++uLuLLQcNIcNQwP7Nyt1/5Q5/rVMgMy1YsODhw4fNmzf38PDQOgsAAMhCt27Jhg2yb58cOPDE01x6vXh6ire31K8vDRtKqVKaJURORwFDrmMwGGbOnCkiw4cP1zoLAADIEpcvy6+/yrp1cvhw6gNd+fJJ/frSoIE0aCB163IeF7IGBQy5zvr16y9fvlyxYsW2bdtqnQUAAGSm06dNvevkSdMVOzt59VVp1Uq8vaVaNZ7mQtajgCHXSdl9fujQoTodJ2cDAJATnTkjq1fLqlUSGmq6Ym8vzZtLt27i68tMF7RFAUPucvz48f379zs5OfXp00frLAAAIOMYDHLokKxeLWvXSliY6aKzs7RtK926SatWbKSBbIIClm7xD25HxhpVEcXOuVhBDvTN5lKmv/r37+/g4KB1FgAAkD7Xr8uxY6ZXQIBERZmuly4tvr7i6yve3iwyRHZDAUuvhC3+lXyXRasiebqtjvqla8b9bmXmzJkpbSGtwsLCROTRo0cZFiWnuHXr1urVq62srAYNGqR1FgAAkHa3bpnq1vHjcuyY3L37xN0qVcTXV7p0ES8vjfIBL0YBy74CAwMvX75s9ttjY2MzMEzOMHPmzMTExB49epRib1kAACzCvXupc1zHjsmtW0/cdXGRWrVMLy8vKVFCo5RAGlDAsq/58+ePHTvWjDd27NjxzJkzrq6uGR7JosXGxs6bN09Ehg0bpnUWAADw32JjZe9e2bZNtm2T4GBR1dRbTk7i5ZVausqU0SwkYC4KWHrZNJ6w87C/QRXROVe0ychP1uv15cqVM+ONtjxj+iw///xzRERE/fr169Wrp3UWAADwJKNRgoJMpevAAUlIMF3Pm/eJxlWhgiiKpkGB9KKApZdSoHytOuW1ToEXUFV1+vTpwvQXAADZyp07sm+fbN8uGzemLi/U6cTLS1q2lJYtpVEjdi9EDkMBQ66wefPmkJCQEiVK+Pr6ap0FAIDc7fFj2bHDNNl1/nzq9bJlxcdHfHykeXMpWFC7fEDmooAhV/juu+9EZOjQodbW1lpnAQAgVzp/Xv74QzZtkr17JTHRdNHJSZo1M/WuChU0zQdkEQrYCyQ/vh9+L+LBo9iEJKPONq+jo2N+lyKFHPjvzZKcOXNm27Zt9vb277zzjtZZAADITeLjZe9eU++6eNF0Ua8Xb29p1Up8fKROHc7pQm5DkXiGuLDDG1at3bht35Gg4Mt3Y5LVJ+4qik2+4uUru9Vu1qZT586t65S051HQbO67775TVfWdd94pyHoGAACyQHi4bNkiGzfKli3y98Gkzs7SvLm0bCkdOwp7NSMXo4A9wRhxZN6Y4RN+OnwnUf2vMaqa+PBmyJGbIUf+/HnKB4W83vhk2pTBDYvwy5ts6v79+8uWLdPpdEOGDNE6CwAAOVdyshw6JJs2yaZNcuqU6aKiiKentG0r7dox2QWkoIClSry0/N027yy9kPBX91L09gWLlSxVsqizo72dna3emBgfFxsdGR5243rYvcdJqoiadO/Y4uHNd+2esWn5gGp2msbHsy1atCguLq59+/YVK1bUOgsAADlLQoIcPSp79sjevXLwoMTEmK47OIiPj7RtK23bSrFimkYEsh0K2F/ijk58LaV9KbbF6vXo/96bnVrWdyvp+Mzf1BjjwkMD9mxes3je4s3nHiVdXz+ky8gKR6e3yM9qxOxFVdUFCxaIiJ+fn9ZZAADIEWJj5fBh2bNH9uyRI0ckPj71VpUq0rq1tG0rjRuLTYaejgrkIBSwFMbrP46ZdipBVfTFO3y7frG/l9Nzq5TOrkjVxt2rNu4+aMTvH3V5Y2ZQzIX5n8wd3HRkJWbWs5Vt27ZduHChVKlSrVq10joLAAAWKyZGDh2S/fvlwAHZty/1lGQRKVdOWrYUb29p1kxKltQuImAxKGAiImK88duq/XGq6Ev1W7hkiFe+l36jbZmO01Z9fsL9g31xges2XPmgUgUaWHYyd+5cERk4cKCeRecAAKTJgweyf79peWFQkCQnm67r9eLlJY0bS5Mm0rChODtrmhKwPBQwERFJPnviTJIqusJtuzV7+faVQl/+tW51Pt63J/nC2fMGoYBlH7dv396wYYO1tXWfPn20zgIAgCUID5e9e2XfPtmzR4KDxWg0Xbeyknr1pHFjadxYGjWSfGn9tgQgFQVMRETUhIREVUTn4OiQ9qe4dPmc8ulE1MSE/946ERqYP39+UlJS9+7di/H4LwAA/+X6ddm719S7QkNTr+fJI3XqSJMm0qiRNGggefNqFxHIUShgIiKiL1G6hF5CDDePB9421iulS9Ob404GBCeJ6IoULZK2NyITGY3GRYsWiciAAQO0zgIAQLZhNEp4uNy4IadPm3rX1aupdx0cpEEDadRImjSROnXE1laznEDORQETERGrGu3blP465FLcnikfr+6wpEfJl15IqEYfnTp68VWD6Ap7N61hnZkhkRZ//PHHtWvXypcv36xZM62zAACQtZKTJTxcrl2TW7fk5k25cUPCwkz/cvu2JCU9MbhAAWnY0LS20MtLrPhyCGQu/o6lsKk7wL/RguG7H11f2bv+3eNffjG8e52iL/itjyEqdPOCzz/+fGXwI1Wxqf7eIB/m5rOPlO033n//fUXhbAAAQE4XFSXbt8uWLRIcLDduyJ07YjD852BXVyleXMqXN/UuNzfRsYYHyDoUMBP9K35zpm5v5vfH7cSwHVN71/tuWIU6DRvW9axSrnSJoi758+bJY2OlJsXHxz2OuHPzxpXzJwMO7j8cfCfWqIqIzsl73MLRtZmmzy5u3LixefNmW1vb3r17a50FAIDMoaoSFCSbN8vmzXLoUOouhSKi00mxYlKypBQvLiVKSMmSUqyYlColxYtL8eKc0AVoiwL2N+tK/X/Zkce/59AfT0UZ1aTICwd+v3Dg9xe+TedYteeUJbMG1mT6K/uYN2+ewWDo2bNnoUKFtM4CAECGioiQbdtMvSs83HTR2lqaNpXWrcXbW0qXlqJFWUkIZFv85fwnuyq9Fxxr3X/FrBkLlm04ePlh8nN2NVSs8pWp265nv8GD3mxQjN8kZSPJyclsvwEAyFGMRgkKku3bZft22bMn9SEuV1fx8ZEOHcTHR5ycNI0I4GVRwJ5mVbjOWxOWvDUhKerKqWOBp89duhYWHvHgcVxisljb5XVwcMhfqFSFSpUqV3evXsaJTTeyod9+++3WrVtVqlTx9vbWOgsAAOaKj5fAQDlyRA4flp075f5903VbW/HxkdatpXVrqVpV04gAzEEB+y/WTmW9Wpb1aql1DqRVyvYbfn5+bL8BALAwFy7IkSOm14kTT2xXWL68qXQ1a8aRXIBFo4AhR7l06dLOnTvt7OzefPNNrbMAAPAiUVGpjevIEYmISL2l10uNGlKvntSrJw0bSsWK2qUEkJEoYMhR5s6dazQa33jjjQIFCmidBQCAZwkLk507ZdcuOXRIzp0T9R9PnBctKnXrSr16Ureu1KolDg7apQSQWShgyDkSExMXL14sbL8BAMhu7t+X3btl507ZuVPOnUu9bmcnNWumlq5SpbSLCCCLUMCQc6xZs+bu3bvu7u61a9fWOgsAINd79Ej27jWVrlOnUme68uWTxo2leXNp1Ejc3cWaLb2A3IUChpzj7+03tA4CAMit4uLk+HE5cEC2b5e9eyUx0XQ9ZaarYUNp2VIaN+YoZCA3o4AhhwgJCdm3b5+jo2PPnj21zgIAyAVUVW7elPPnTa9z5+T8ebl6VQwG0wBra/H2lubNpXlzqV9fbG01jQsgu6CAIYeYM2eOqqpvvfWWo6Oj1lkAADlOVJSpZZ07JxcumEpXbOzTw6ysxMtLmjeXZs2kUSN20QDwbxQw5ARxcXFLly4VkXfffVfrLACAHOHBAzl61PQ6dkzu3HnGmCJFpFIleeUV06tSJSlXjuWFAJ6PAoacYOXKlZGRkfXr1/f09NQ6CwDAMiUkyIkTqaXrwoUnNoh3cJCKFU1Fq3Jl07/nz69dXACWigKGnCBl+w12nwcApIGqyrlzcvSoBATI0aNy4kTqnhkiYm8vNWtKnTpSt67Uri1ly2oXFECOQgGDxTt16tSRI0ecnJy6deumdRYAQDaWnCxnz8qJE3LihAQFyYkTEhWVelevFzc3qVPHVLqqVRMrviYByHj8Pwss3uzZs0Wkb9++9vb2WmcBAGQnjx/LqVOmuhUUJMHBkpDwxICSJU11q04d8fJizwwAWYACBsv2+PHj5cuXC9tvAACMRrlxQ0JDUye4LlwQozF1gE4nFSuKp6d4eJj+6eqqXVwAuRQFDJZt2bJljx49atq0abVq1bTOAgDIQnfuyPnzcuGC6XX+vFy8KPHxT4yxsZHq1U1dy8ND3N2Fo0oAaI0CBss2b948YfsNAMjZYmMlOFguXDCdwZXyevToGSOLFZNKlaRGDVPpqlpVrK2zPC4APA8FDBbsyJEjgYGBLi4uvr6+WmcBAGSo27fl4EE5cEAOHpTAQElKenqAs3PqvvAVK5pePMQFINujgMGCpew+369fP1tbW62zAADSx2iUM2dk/345eFAOHpTLl1Nv6fXi7p56+lZK4ypYULusAGA+Chgs1cOHD1etWqUoSr9+/bTOAgAwS0yMBAXJgQOm3hUZmXrLwUHc3aVhQ/H2loYNpUAB7VICQEaigMFSLV68ODY2tlWrVhUrVtQ6CwDg5UREmI7hOnFCTp6UkBBJTk69W7q0NGwo9etLw4ZSvbro9doFBYDMQgGDpZo/f76w/QYAZGdGo1y+/ETjunnziQFWVlK7tjRoIA0aiLe3FC+uUVAAyDoUMFik/fv3BwcHFytWrGPHjlpnAQD8w7lzsnevqXGdPi3R0U/cdXCQGjXE3d20L3z16mJvr1FQANAGBQwWacWKFSLSp08fKyv+NwwA2cDZs7JmjaxZI6dPP3G9eHHTAVwpjat8edHpNIoIANkCX15heYxG47p160SkW7duWmcBgNwtOFjWrJHVq+XsWdOVggXl1VelZk1T43Jx0TQfAGQ7FDBYnoMHD96+fbtMmTIeHh5aZwGAXOnMGVm9Wn75RUJCTFcKFJD27aVbN3n1VbGx0TQcAGRrFDBYnrVr14pI165dFUXROgsA5CYpvWvVKgkNNV0pWFDatZNu3aR1a7G21jQcAFgGChgsz/r160WkS5cuWgcBgJzu7l05c0ZCQyU4WLZskUuXTNeLFBFfX+naVZo2ZbN4AEgTChgszLFjx65cuVK8ePG6detqnQUAcpZbt+TsWdMrJETOnJGIiCcGFC0qvr7SrZs0akTvAgDzUMBgYVLWH/r6+urYRwsA0iM2Vg4flhMnTF0rJESiop4ekz+/VKki1apJlSpSt640aMAehgCQThQwWJiU/Q9fe+01rYMAgAWKjpb9+2XvXtm7VwICJCnpibsFC5q6VtWqphcnIwNARqOAwZKcPn363LlzLi4uDRs21DoLAFiIBw9k3z7Zs0f27pWgIDEYTNf1eqlVS2rXlurVTaWrSBFNgwJArkABgyX59ddfRaRz586cvwwAz3Pvnhw+LAcOyPbtEhQkRqPpupWVeHmJt7c0bCgtW0qBApqmBIDciG+xsCQpD4Cx/hAAnnbjhpw6JadOyYkTcvKknD8vqmq6lSeP1KkjTZpI48ZSv77kzatpUADI7ShgsBgXLlw4ffq0k5NT8+bNtc4CAJpKSJAzZ+TkSTl1Sk6elJMnJTLyiQH29lK/vjRuLE2bSp06kiePRkEBAE+jgMFipEx/dejQwcbGRussAJCFVFWuXZOQEFPdOnVKzp2T5OQnxjg7i4eH1Khherm5cSwyAGRPFDBYjJQHwDh/GUAOl5wsly7J2bMSGmo6jys0VGJinhhjZSVVqoi7u+lVowbbFQKApaCAwTLcvHnz2LFj9vb2rVq10joLAGSc+HgJDU3tWiEhcuGCJCY+PczVVapWlerVpUYNcXeX6tVZVQgAFooCBsuwZs0aVVXbtWtnb2+vdRYASJ/kZDl5UrZvl+3bZe/eZ9StokWlWjUpV06qVpVq1cTNjQ3iASDHoIDBMqQ8AMb6QwCWymCQwEDZsUN27pT9+yUuznTdykoqV5aqVU3/rFJFKlcWftMEADkXBQwWIDw8/NChQ7a2tm3bttU6CwCkxeXLppmuHTue2KiwXDlp2VJathQfH3Fy0i4fACCrUcBgAdatW2cwGNq2bZsvXz6tswD/Z+++46MqEzWOP2cmkx4ChA6hRUC6EEroIKGXUESlKipgw7rr2lbXXb3qouuqa8MVpKyKKL0XkR5C74Tee4f0mTn3D6IBCT2ZM5n8vh8/97P3nJnMkxOSOc+873kPcCMHD2ru3MzBriNHsrZHRal1a917r+69V0WLWpcPAGAlChjyAO6/DMDbpaZq8WLNnq3Zs7VpU9b2EiUyS1fr1ipXzrp8AABvQQGDtztz5szChQsdDkeXLl2szgIAV9q+XbNmafZs/fqrkpMzN4aG6t57FRur1q1VrZql+QAAXocCBm83adKkjIyMtm3bFi5c2OosACAlJWn5ctlNweIAACAASURBVM2bpylTtHVr1vaKFdW5s7p0UbNmCgiwLh8AwKtRwODtuP8yAOtlZGjVKv36q2bP1rJlysjI3F6kiNq0Ufv2attWJUpYGhEAkDdQwODVLly4MG/ePJvN1rVrV6uzAMhnLl5UfLwWL9bixVqxImuGoZ+fmjRR+/Zq107R0bLZLE0JAMhjKGDwatOmTUtNTW3evHnJkiWtzgIgHzh5UkuXatEiLVmiNWvkdGZuNwxVq6ZmzdSmjVq3ZuF4AMBto4DBq3H/ZQC57vBhLV2qJUu0dKnWrpXbnbndble1amraVLGxatmSheMBADmCAgbvlZKSMmvWLMMwunfvbnUWAD5k3z6tWZP53+rVOnYsa1dwsGJi1KyZmjVTTIxCQqxLCQDwTRQweK9Zs2YlJSU1aNCgbNmyVmcBkJft3q3Vq7NK18mTV+yNiFCTJmrWTE2bKjpaDodFKQEA+QIFDN6L+y8DuB1Op3bu1Lp1mQNca9bo7NkrHlC0qOrWVd26io5W3bqqUMGioACA/IgCBi+VkZExY8YMSd26dbM6CwDvduSINm7Uhg3atEkbN2rLFqWmXvGAkiUzG9el0hUZaVFQAAAoYPBWc+fOPXPmTO3atStXrmx1FgDe5OJFbd6cVbc2bNCpU1c8wDBUoYJq1coqXaVKWZQVAIA/ooDBS3H/ZQCSdPq0tm3T1q1KTNS2bdq8WXv2yDSveEzhwqpZM+u/GjUUFmZRXAAAboACBm/kcrmmTJkiLgAD8hWXS3v3KjExq25t26YTJ/74MH9/Va+uGjVUo4Zq1VLNmipd2oq4AADcDgoYvNHChQtPnDhRuXLl6tWrW50FQG5av14zZ2rNGiUmKjFRaWl/fEBYmKpUUZUqqlpVVaqoWjVVriw/3rwAAHkV72HwRpfWP7zvvvusDgIgFyQlad48zZihGTN08OAVuyIjr6hbd9+tMmUsSgkAQK6ggMHruN3uSZMmiQvAAB+zY4dmzND06Vq0KGukq1QpdeyoFi0yG1doqKURAQDIdRQweJ34+PjDhw+XL1++bt26VmcBcGecTsXHa9o0zZun1aszN9psio5WbKw6d1aTJjIMSyMCAOBRFDB4nUvzD3v06GFwWgbkRU6nNm3S8uWaM0fz5unixczthQurXTt16qR27VSkiKURAQCwDAUMXufS/EPWPwTykj17tGKFEhKUkKC1a5WcnLWrdm117KhOnRQTI7vduogAAHgFChi8y+rVq3fv3l2iRImYmBirswC4ttOnM+vWpf8uXyzeMFSliho0ULNm6tCBVTQAALgcBQze5ff7L9tsNquzALjS1q2aP1/x8UpI0I4dV+wqXlwNGmT9V7CgRREBAPB2FDB4l0sFjPmHgLc4flzz5mnePM2de8WS8SEhqls3s241bKhy5ayLCABAXkIBgxfZvHnztm3bIiIimjdvbnUWIB9LSdGiRZmla8MGmWbm9hIlFBur5s3VoIGqV+duyAAA3AbePuFFJk6cKCkuLs6PEzvAw9xurV2bOdi1ZIlSUzO3BwWpSRPFxio2VnXrsmQ8AAB3iNNceBHuvwx42tGjmjlTs2Zp/nydOpW50W5X/fpq00axsWrcWAEBlkYEAMCnUMDgLQ4dOrRmzZrQ0NDWrVtbnQXwaS6X4uM1c6ZmztTatVkzDCtWVGys2rTRvfeqcGFLIwIA4LMoYPAWEyZMME2zQ4cOgYGBVmcBfNGxY5o1SzNnau5cnT6duTE4WPfeqw4d1K6doqIszQcAQL5AAYO3mDx5sqS4uDirgwA+5Pcru6ZO1fLlcrszt18a7OrcWW3aiI88AADwIAoYvMLZs2cXL17scDg6duxodRYg7zt4UPPmac4czZmTdWVXUJBatlTHjurQgcEuAACsQgGDV5g2bVp6enqbNm0KFSpkdRYgbzp3TgsWaN48zZ+vbduytt91lzp0UMeOatFCQUHW5QMAABIFDF6C+YfA7UhP1/LlmWvHr1wplytze3i4WrZUbKzatVOlSpZGBAAAV6CAwXppaWmzZ882DKNr165WZwHygt27M0vX7Nk6fz5zo5+foqMzb9jVvLn8/S2NCAAAskcBg/Xmzp174cKFevXqRUZGWp0F8Fb79mVOL5w/X8ePZ240DNWqlVW6QkIsjQgAAG6MAgbrMf8QyN7p0/rlF82fr3nztHNn1vayZRUbq9at1bq1ihe3Lh8AALhlFDBYzO12T5s2TVK3bt2szgJ4gZQULVmSWbrWrs1aOL5QIbVqpdatFRurypUtjQgAAG4fBQwWW7Zs2dGjR6OiomrUqGF1FsAiTqfWrMksXcuWKTU1c3tgoJo0ySxddevKbrc0JQAAyAEUMFjs0vzD7t27Wx0E8KzTp7V8uZYv19KlWrlSSUmZ22021auXWbqaNGHheAAAfAwFDBabMmWKuAAM+YFpauvWzMYVH69t22SaWXurVFGrVoqNVatWKlzYupQAACB3UcBgpc2bN2/fvr1YsWKNGjWyOguQC5KStHatVq/W0qVasEAnT2btcjhUq5aaNFHTpmrRQsWKWZcSAAB4DgUMVpo0aZKkrl272rm4BT7j1CktWaKFC7Vokdaty7o5sqQyZdS4sRo3VqNGqlNHDod1KQEAgDUoYLASC9DDRxw5okWLtHixFi7U5s1ZcwsdDtWtm9m4GjcWd7oDACDfo4DBMocOHVq1alVoaGhsbKzVWYBbd/iwli7VvHlaskRbt15Rui7dHLlJEzVvrvBwS1MCAADvQgGDZSZNmmSaZrt27QIDA63OAtwct1uTJmniRC1cqAMHsraHhWXWrebNVb++/P2tiwgAALwaBQyWYf4h8pK0NI0erQ8+0PbtmVsiIjLXz2jWTHXqcJMuAABwMyhgsMa5c+cWLlzo5+fXqVMnq7MA13XunL78Uh9/rCNHJKliRT31lNq2VfXqMgyrwwEAgDyGAgZrTJs2LT09vXXr1oW55RG81vHj+vxzffKJzpyRpFq19OKL6tNHfvzlBAAAt4nTCFiD+Yfwart36+OP9fXXSkmRpCZN9Je/qHNnhrwAAMAdooDBAmlpabNnz5bUpUsXq7MAV1q7Vh99pO++k8slm02dO+u11xQTY3UsAADgIyhgsMD8+fPPnz8fHR1dvnx5q7MAv1myRO+/r2nTJMnfX3366NVXdffdVscCAAA+hQIGCzD/EN7CNJWQkLmyfGKiJIWH64kn9OyzKlHC6nAAAMAHUcDgaW63e+rUqZK6detmdRbkVxkZ+vVXTZyoKVN06FDmxlKl9NxzGjJEBQpYGg4AAPgyChg8LT4+/siRI+XLl69Zs6bVWZDPpKRo3jyNH6+pU3X2bObGsmXVvr06d1b79nI4LM0HAAB8HwUMnnZp/mGPHj2sDoJ849QpTZ+uadM0Y4aSkjI3VqumLl3UubOaNGFtQwAA4DEUMHgaF4DBQzZu1OzZmjJFy5bJ5ZIkm01Nm6pbN3Xrpqgoq/MBAID8iAIGj9qyZUtiYmJERETjxo2tzgJfdOKE5s3TnDmaPVtHjmRuDAhQ+/aKi1NcnIoVszQfAADI7yhg8Kjfh7/8/Pi3hxySkaHlyzV7tubM0Zo1crszt5cqpbZt1bGj2rdXWJilEQEAADJxEgyPYv4hcszu3Zo3T/Pmae7crBU1AgPVtKliYxUbq7p1ubgLAAB4GwoYPOfw4cMJCQnBwcGxsbFWZ0EeZJravl3x8Vq+XPPmadeurF3Vq6ttW7Vrp+bNFRRkXUQAAIAboIDBcyZPnmyaZvv27YODg63Ogjzi3DklJGj5cq1Yofh4nT6dtSsiQrGxattWbduqTBnrIgIAANwCChg8h/mHuDG3W1u3Zg5zxcdr69asa7oklS6thg3VqJGaN1d0tOx264ICAADcDgoYPOTcuXMLFiyw2+0dO3a0Ogu8jGlq9WpNm6Zly7Rihc6fz9oVEKC6dRUTo5gYNWqkyEjrUgIAAOQAChg8ZMaMGenp6a1atSpSpIjVWeAd0tO1cKEmTdKUKTp4MGt7uXJq1EgxMWrYUHXryt/fuogAAAA5jAIGD2H+ITKdP6+ZMzVpkmbO1LlzmRvLlFHXroqNVUyMSpa0NB8AAEAuooDBE9LS0mbOnCmpa9euVmeBRU6c0MyZGj9ec+cqLS1zY8WK6txZvXqpSROWjAcAAPkBBQye8Msvv5w/f75OnToVKlSwOgs8a9MmTZmiSZO0apVMU5LsdjVvrrg4xcUpKsrqfAAAAB5FAYMnMP8wf3G5tHSpJk/W5MlZd+sKDlbbtoqLU+fO4jpAAACQX1HAkOtM05w+fbqkbt26WZ0FuSkpSXPmaPJkTZ+ukyczNxYtqi5dFBenNm24RTIAAAAFDLluxYoVBw8eLF++fO3ata3Oglxw8qRmzNC0aZo5UxcvZm6sUEFduqhLF7VsKT/+zgAAAGTixAi5burUqWL+oe/ZvVtTp2raNP36q5zOzI3VqqlXL3XpouhoS8MBAAB4KQoYct2SJUsktWvXzuogyAlHj2rkSI0erW3bMrcEBqpdO3Xtqq5dVaKEpeEAAAC8HQUMucvlcq1evdowjAYNGlidBXfA7dbcuRo+XFOnKiNDkiIi1KmTunZVu3YKDbU6HwAAQN5AAUPu2rhxY1JSUqVKlSIiIqzOgtty+LBGjNA332jvXklyONS9uwYNUtu2ststzgYAAJDXUMCQu1asWCGpYcOGVgfBLXK79csvGj5ckyZlDnmVKaO+ffXkkypb1upwAAAAeRUFDLmLApb3HDmi0aP11Vfas0eS7HbFxmrwYPXowZAXAADAHaKAIXdRwPKMtDTNmaOvv9aMGXK5JOmuu/TYY3r4YRUvbnU4AAAAH0EBQy66cOHCtm3bAgICatWqZXUWZCc9XQkJWrBAv/6q5cuVkiJJ/v667z4NGqR775VhWB0RAADAp1DAkIsSEhLcbnedOnUCAgKszoLfZGRo5crM0rVsmZKTM7fbbLrnHvXtq4ceUtGilkYEAADwWRQw5CLmH3oLl0vr1mnJEi1dqjlzdO5c1q6KFRUbq9hYtWqlIkWsiwgAAJAvUMCQiyhgFjt4UBMnauZMLV6sixeztlerplat1LKlWrRgsAsAAMCTKGDIRStXrhQFzPN27dKECfr5ZyUkyDQzN1atqpYtM0sXi2oAAABYhAKG3LJv374jR45ERERUqFDB6iz5w+bN+vlnTZig9esztwQHq317de+u2FiVKGFpOAAAAEgUMOSeS/MPY2JiDFbSy1WbN2v8eP34o7ZuzdwSHKx771WvXureXWFhloYDAADAFShgyC1cAJaL3G4tW6YJEzRhgvbty9xYpIji4tSjh1q3FstOAgAAeCUKGHILBSznmaaWL9ePP+qnn3ToUObGUqXUvbt69FCLFrLbLc0HAACAG6CAIVdkZGSsXbvWMIz69etbncUnJCToxx81frz278/cUqGCevZUjx5q2FA2m6XhAAAAcLMoYMgVGzduTE5OrlKlSqFChazOkpddur7ru++0Y0fmlshIde+uXr3UpIm4uA4AACCvoYAhVzD/8I5c6l0//KDExMwtpUurZ096FwAAQF5HAUOuoIDdjku9a9w4bduWuaVkSd13n+6/X40bM88QAADAB1DAkCsoYLdg69bM67s2b87cUqyYevbU/fereXN6FwAAgC+hgCHnnTt3bvv27YGBgTVr1rQ6ixfbvl0//qgff9TGjZlbIiLUvbseeECtWrGeIQAAgE+igCHnJSQkuN3uunXr+vv7W53F++zbp0mTNH68li7N3FKwoLp0Ua9eatdOHDEAAACfRgFDzmP+YTb279fEiRo/XsuWyTQlKTxcXbvSuwAAAPIVChhyHgUsy7Fj+u47ff+9Vq7M3FKggLp21f33q21bBQRYGg4AAACeRgFDzlu5cqXyeQFLTdXUqRo9WrNmyemUpNBQdemi++9X+/YKDLQ6HwAAAKxBAUMO27Nnz7Fjx4oVK1a+fHmrs1hh+XKNHq1x43TmjCT5+ysuTv37q2NHBQVZHQ4AAAAWo4Ahh+XT+YeHDumnnzRihDZsyNxSrZoGDNDAgSpWzNJkAAAA8CIUMOSw/FXAUlI0bZpGj9bMmXK5JKlkSfXqpYcfVp06VocDAACA16GAIYddKmANGjSwOkhuMk0tXKiRIzVhgi5elKSgIHXrpgED1KYNt/ACAADAtVDAkJMyMjLWrVtnGEa9evWszpI7Tp3SqFEaPlyJiZJkGGraVA89pF69FB5udTgAAAB4OwoYctL69etTUlLuvvvuQoUKWZ0lpy1erK++0s8/KzVVkiIjNXCgBgxQVJTVyQAAAJBnUMCQk3zwArBz5zRunD77LHN1DZtNsbEaPFjdu8uPXx8AAADcGs4gkZN8qoCtXq3hw/W//ykpSZJKlNBDD2nIEFWoYHUyAAAA5FUUMOQkXyhg58/rhx/0xRdat066bMirWzc5HFaHAwAAQN5GAUOOOXv27I4dOwIDA2vWrGl1ltuycqW++ko//JA55FW8uAYO1KBBqljR6mQAAADwERQw5JgVK1aYphkdHe3IWyNFFy7ou+/01Vdau1aSDEOtW2vIEMXFyd/f6nAAAADwKRQw5Ji8N//w0lVe332XeS+vIkX08MMaPFiVKlmdDAAAAL6JAoYck5CQoDxRwFJTNXWqhg/XvHmZW6KjNXiw+vdXUJClyQAAAODjKGDIMStXrpSXF7AtWzR6tIYP15kzklSwoO6/X08/rTx60RoAAADyGgoYcsbu3buPHz9erFixcuXKWZ3lKtca8urXT8HBliYDAABA/kIBQ864dAFYTEyM1UEuY5patEhjxmj8eJ0/L0mFCmnAAA0erGrVrA4HAACA/IgChpzhXStwJCZq7FiNGaN9+zK3NGmiwYPVqxdXeQEAAMBCFDDkDK8oYGfOaPx4jR6tZctkmpJUpoz69tXAgapSxcpgAAAAgCQKGHJEenr6unXrDMOIjo624OXT0jRnjsaM0eTJSk+XpPBwde2qAQPUurUMw4JIAAAAQHYoYDfgvHjy2IlTZ84np2W4bQEhYWFh4UWKFw3luF1h/fr1qamp1apVK1iwoEdfePVqjR6t77/XiROSZLcrNlb9+6tnT4WEeDQJAAAAcBMoEtlIORQ/ddzP0+YuXrF20+7jSU7zir2G4V+gdNTdNeu36hDXrVv7BpHBjLB4ev7h+fP65ht99pl27crcEh2t/v3Vu7eKFfNQBgAAAODWUcCu4D61Yvirz7/1bfzRdPNajzHN9HMHt644uHXFzNHvv1g0us9rH73/dNPidk/m9DaeK2AHDuiTT/T11zp3TpIiI9W3r/r3Z1VDAAAA5AkUsCzpu757rMMjY3ek/da9DHtw4VKRZSNLRoQFBwUF2N3pqSnJF04fO3Rg/6ETFzNMycw4sWrU8/cu+PXTGd8NqZ5/l9fzRAFbvVr/+pfGj1dGhiS1aKEXX1SnTrLZcvFFAQAAgBxFAftNSsLfe15qX0ZAqZgHBg/qGxfbqGZkWLYjW+6UY9tWLpz106jho2Ylns/YP/mZHi/dlfBJ6/D8OBvx9OnTO3fuDA4OrlGjRs5/ddPU/Pn6+GNNmyZJNps6d9Zrr8mrbjgGAAAA3BxGDy5x7x/56kcb0kzDXrrrv5duXjrqzYFt77lG+5JkCyperfn9L3wyff36iUPrhBhm+o6vX/tqu8ujmb1FQkKCaZrR0dF+fjna59PSNHq0atRQmzaaNk1hYXrmGe3eralTaV8AAADIoyhgkiT3gUnjlqSYskc++s2YZ6IL3vRAVkD5rh+N+0fTIMNMWzNx6p582cByfv7hiRN6/31VrKiHHtKWLSpZUm++qX379PHHKlcux14FAAAA8DgKmCTJuWXd5gxTtmIde7UqcIvPtUf17NXAIbl2bMmfQ2A5WcB27dLgwSpbVi+/rMOHVa+evv9e+/frb39ToUI58PUBAAAAS3ENmCTJTEtLNyVbaFjorV/FZStQsIBNMtPTrr10os8yTXPlypW68wK2c6feeUdjx8rplM2mrl31wgtq0SJnUgIAAADegREwSZK9TLkydsl9cPWaI+5bfXLK+pWbMiRb8ZLF89/h3LVr18mTJ0uWLBkZGXmbX2LnTj38sKpW1bffyjD06KPaulWTJ9O+AAAA4HvyX2PIll+tzh3K2WWmLHz/5fEHbmUioXkhYdgro/a6ZIto0rKWI9cSeqs7mn+4d6+GDFHVqho1Soah/v21ebP++19VrpzDKQEAAADvQAG7xL/hkKHNChhy7f9hQKN2L41JOJJ2w+e4zm6b/kG/xm3eWn7eNPyrD3qqTYgHknqZ2yxgl6pXpUoaPjyreo0erUqVciUlAAAA4B24BiyTvfKTXw6b1+rJ6UfSD80fNiDm38/d1aBp04Z1qlYsV6ZkkfCQwEB/PzMjNTXl4qmjBw/s2b5+5bIl8ZuOJrtNSbaCTd745pX6AVZ/Exa45QK2d6/efVcjRsjplMOh/v31xhu6665cjAgAAAB4DQrY7xxVBv84P3Bo72dHbjjrNjNO71g6ZcfSKTd8mi2sWu/3x3z2eN18OPyVlpa2fv16m80WHR1940dTvQAAAJDvMQXxckFVB/x3VeLyUW/0ax4V7nf99RANvwIVmvR+dcTibWvHPlE3/NYXT/QB69atS0tLq1atWoEC1128f/NmPfRQ1oTDQYO0fbtGj6Z9AQAAIL9hBOyP/Io16P/WmP5vZZzds2HVmo2Ju/YdOnbqzMWUdKccQSGhoaHhRcveVaXK3TVq1yhfMP8tunGFG8w/dLs1dao+/VS//CLTlMOhQYP06qsqX96TIQEAAADvQQG7FkfBCtGxFaJjrc7hza5ZwM6c0Tff6PPPtWePJIWF6eGH9cILVC8AAADkcxQw3L5sCtj27frsM33zjZKSJCkqSoMGadAgFS5sUUYAAADAi1DAcJtOnTq1e/fukJCQatWqye3WL7/o4481fbpMU5KaNNGzz6pHD9ntVicFAAAAvAUF7I6lnjlyOtltSkZQRKnCgVbH8ZgVK1aYptmiTh2/zz7Txx9nzjYMDVWfPnrmGVWvbnVAAAAAwOtQwO5U2uyhVbr/74IpBfYaf/bH+3LuZmB79uyZO3fubTzx5MmTktxud45Fyc62uXO/kgauWKElSySpUiU99ZQGDtT1V0QEAAAA8jEKmPd69tlnp06dettPP3z4cA6GuVqDCROaSnI61b69hg5V+/aycVcDAAAA4HooYN7r5ZdfLl269G0MZC1cuDAxMbFt27a5kep3Ee+8s2jkyEYff+yoUSNXXwgAAADwGRSwO+Xf/K1f4oe6TMkWUck/J79y48aNGzdufBtPfOGFFxITE4sWLZqTaa5StV+/qv365epLAAAAAD6GAnanjEJR9RpEWZ0CAAAAQB7ARTsAAAAA4CEUMAAAAADwEKYg3oDz4sljJ06dOZ+cluG2BYSEhYWFFyleNJTjBgAAAOCWUSSykXIofuq4n6fNXbxi7abdx5Oc5hV7DcO/QOmou2vWb9Uhrlu39g0igw2LcgIAAADIWyhgV3CfWjH81eff+jb+aLp5rceYZvq5g1tXHNy6Yubo918sGt3ntY/ef7ppcbsncwIAAADIiyhgWdJ3ffdYh0fG7kj7rXsZ9uDCpSLLRpaMCAsOCgqwu9NTU5IvnD526MD+QycuZpiSmXFi1ajn713w66czvhtSPcjS+AAAAAC8HQXsNykJf+95qX0ZAaViHhg8qG9cbKOakWHZjmy5U45tW7lw1k+jho+alXg+Y//kZ3q8dFfCJ63DmY0IAAAA4JpYBfES9/6Rr360Ic007KW7/nvp5qWj3hzY9p5rtC9JtqDi1Zrf/8In09evnzi0Tohhpu/4+rWvtrs8mhkAAABAHkMBkyS5D0watyTFlD3y0W/GPBNd8KYHsgLKd/1o3D+aBhlm2pqJU/fQwAAAAABcGwVMkuTcsm5zhilbsY69WhW4xefao3r2auCQXDu2MAQGAAAA4DooYJIkMy0t3ZSM0LDQW7+Ky1agYAGbZKanXXvpRAAAAACggF1iL1OujF1yH1y95oj7Vp+csn7lpgzJVrxkcQ4nAAAAgGujMUiS/Gp17lDOLjNl4fsvjz9wKxMJzQsJw14ZtdclW0STlrUcuZYQAAAAQN5HAbvEv+GQoc0KGHLt/2FAo3YvjUk4knbD57jObpv+Qb/Gbd5aft40/KsPeqpNiAeSAgAAAMizuA9YJnvlJ78cNq/Vk9OPpB+aP2xAzL+fu6tB06YN61StWK5MySLhIYGB/n5mRmpqysVTRw8e2LN9/cplS+I3HU12m5JsBZu88c0r9QOs/iYAAAAAeDUK2O8cVQb/OD9waO9nR2446zYzTu9YOmXH0ik3fJotrFrv98d89nhdhr8AAAAAXB9TEC8XVHXAf1clLh/1Rr/mUeF+118P0fArUKFJ71dHLN62duwTdcNvffFEAAAAAPkNI2B/5FesQf+3xvR/K+Psng2r1mxM3LXv0LFTZy6mpDvlCAoJDQ0NL1r2ripV7q5Ru0b5giy6AQAAAODmUcCuxVGwQnRshehYq3MAAAAA8BlMQQQAAAAAD6GAAQAAAICHUMAAAAAAwEMoYAAAAADgIRQwAAAAAPAQChgAAAAAeAjL0Pusd9555z//+U/uff2TJ09euHDBbrcbBnehzl9M03S5XDabzWbjE5z8hR99fuZyuSTZ7Xarg8DT3G632+3m7T4fuvQ3v0iRImFhYbn3KsePH8+9L+61KGA+qHz58pJOnTp16tSp3H4tp9OZ2y8B7+RyuS6dkCG/4Uefn7ndbqsjwBq83edbJ06cOHHiRK6+hGEYl85d8w/DNE2rMyDn7du3L7fPkB555JGFCxe+9957MTExufpC8Dbffffd8OHDe/fuPWTIEKuzwKM2b9781FNPVatW7fPPP7c6CzwteJWjUQAAIABJREFUNjbW6XTOnTvX4XBYnQUe9eKLL65evfqDDz6oV6+e1VngUaNHjx4xYsTTTz/9/PPP5+oLBQUFlSxZMldfwtswAuabypUrl9svERISIqlmzZotWrTI7deCV4mPj5dUtmxZfvT5jb+/v6Tw8HB+9PnQpXmnzZs3v/TPAPlHoUKFJNWuXZtf/Pxm0aJFkgoVKlSxYkWrs/ga5vEDAAAAgIdQwAAAAADAQyhgAAAAAOAhFDAAAAAA8BAKGAAAAAB4CAUMAAAAADyEAgYAAAAAHkIBAwAAAAAPoYABAAAAgIdQwAAAAADAQyhgAAAAAOAhFDAAAAAA8BAKGAAAAAB4CAUMAAAAADyEAgYAAAAAHkIBAwAAAAAP8bM6APKq8PDw3/8v8pVLP/QCBQpYHQSexm99fhYeHp6cnGy3260OAk/jFz/f4u0+9ximaVqdAXnSiRMn1q5d27ZtW6uDwNPS09PnzJnTunXroKAgq7PA03799dfKlSuXKlXK6iDwtM2bNzudztq1a1sdBJ527NixjRs3xsbGWh0EnpaWljZ37tzY2NjAwECrs/gaChgAAAAAeAjXgAEAAACAh1DAAAAAAMBDKGAAAAAA4CEUMAAAAADwEAoYAAAAAHgIBQwAAAAAPIQCBgAAAAAeQgEDAAAAAA+hgAEAAACAh1DAAAAAAMBDKGAAAAAA4CEUMAAAAADwEAoYAAAAAHgIBQwAAAAAPIQCBgAAAAAeQgEDAAAAAA+hgAEAAACAh1DAAAAAAMBDKGAAAAAA4CEUMAAAAADwEAoYAAAAAHgIBQwAAAAAPIQCBgAAAAAeQgEDcBucF47u37f/2EWX1UEAAADyFAoYbk3K7jn/+dP9zaqVLRoaFFasXI0WfV7+csH+NKtjwcOS5zxbu0L5Sg9+e9htdRR4QNKu+f9987GODapWKFEwOCA4vFj5Wvc+8NxH07ad5+fv09xnN0/459BeLWuWL14wOCAwLKJU5QYdH3rlq/l7kkyrs8HDUla/VT/EZthLPj433eosyD0ZS1+M8jOuy++uPy3LsDpnnudndQDkISmbvn601ws/bLv42ztv0v7NJ/ZvXjTuyy8e+XLC5w9GOSyNB885P//HGSfd/P3ID8zT8R8Peej1n7dfdsadcmLfxgX7Ni4Y//mHsa+PGfN6q+J8lud73McX/L13n3cWHHVm/eRPH9lx+siOlTPHfPxBj/d/GPF0dAHDwoTwoItL//bIu6uTTT6393XJe3Ye4YM1D+AECjfJvf9/Azo8+fNBpykjuHyzrh0blA08v2vptGkJh9PObfjm4Y5+4cs+7xDBu3E+kLrhs3fHH+cvdH6QtvXzvl1fnHXCLRm2AlEtu7SvX7FA6oEta5ctXLrjjCvj0Ny/xcW558z9W0yY1VGRo9I2//uBHv/49axbMgJL1GnTsUXNsgVtZ/esmjtl3pbTzpSdPz/X2Vlg+YSHynNC7vvMs/NfffSjjWkMe/o+596dezNMyRZWtkaVYv7ZPsZepkwoJ3t3zARugvv4T31K2iQZ/pX6f7cz9fcdF9d/1rWM3ZAMv8rPLbxgYUR4QtqxNT++3raM49LfXv+Wn+53WR0JuceZ+GHTYEOSYS/Z9v8WHXdm7XKdiv+oa6SfIckIqPPmmjTrUiLnuY+Mjitkk2QEVnvku8Sky3a5Ti59u1WETZLspR+dfs6yjPAU94mpj1bw++2E21ZiyBx+3X1X8qS+4YZkhPT84bzVWXwbH13hZrg2f/nO+KNuGY6qz4z8ondUwO97Qmo9MeLz/mXsMp07hv9j7EGGRXyReX75f57q27VFrTIRpaLvf3vOwQw+CM0PMhK+/nJ5sinZowaP+uHlZkXtWftshRs+9924F2v4GzLT1g//YkGKdTmR09yHJnw766xb8qv54ujPe1cOvmyfLaLxKyP+1iLYkFxHpv60ONmylPAI95Gfnnni2z1O+fn5Merh89yHd+5JMSV7ZKWKQVaH8W0UMNwE15YJEzZlmDICmz05tFHIlTuNiA7PP1rDTzJTlo6fcogG5osurpv43++mLtp46KKL6pVvuHYuWLDXJclR66En7y109blXSMOhTzQLMCT38V/nb3B6PiFySUrCktXppuSo3vOBewKu2m2LbNehlp8k99nEbVwu4tPc+8c+OXTcQbe9XJ8/9S3LKaPPc+7duccpGfYKlSrYb/xw3D6uAcONuffOnb0lQ5KjXpdOZa7+C+xXrXOnSm+v3+pMXT7zlzNPPMSFYD4ntG7vl15u8PsZdsqG8Z/N2MUJt49z7kzc5ZRkK964SZVs34ptxWrUKGGbv9flPnroiIs3FF/hPnngYIopyR5ZPjK7n7wtLDzMJklmcnIKn8n4LufO4YOfn3LM9Isa9OWHXeY3HWZ1IOQy88yu3afdkr34XVHhnMrlKt4vcWPp2zYmOiXZS9erXzq7T8D8qjWMDjO2njHTt23a4VQEqyH6GKNAw8f+0fD3/9c8NXL9lxQwn5dy7oIZEBgoR4WKkdf45NtMuXT+bQQEBvBm7TNsRXt+uqDeRdOwF707PLsHZOzattspyfAvXzHb9wT4gvQtnzz6lzmnTUeVJ4e/367w1vlWB0Kuc+7ZuccpyV6xckW7eXH/yoWL1uw8etEMiSgVVbdZs1olg/hDn1MoYLgh96FtiRfckuzlosplPyTtKFuhjF1nnO6D27ZfNGOymawEII8p2G/C2X7XfUTa6rkLT7klw1H9nuq8m/iO4DK1G5e55t6UTV/+fcwel2Qr2rlPu4L8ufdNqWv/+cgbi88roMZz/33n3nCD+z7lB6l7dh1yS0ZQ4KEfH2/ywaj4o+m/D3EbtrBKnYa+/f4rvaqGWpnRV/CWiRtynz55xi3JcJQoWST7DzvtxUsVs0tO03365GlTFDDA96Vv/eK1r3c4JSOkee9u2UxOhq8wz+6IX7fv3PnTR/duiZ/+v7FzdyaZRlCVgV982LMIf+19UtLyvw98JyFJgXX+/M3fmnK+nU+49u3ak2FKOjfrvT/9cafpvrB96v89uHjOih+mDWtXnN/8O0QBww2ZSReTTElGUHDQNc6xjKDgS+PSZvLFZK4IAHzexU1fPxr3l1/PmTKCaj/39oBrTVKEL8hIGNa9w9fHfl9uw1bgnkf+9c2wgXUL8WP3Rea5Ba89+uGGVIU0eO2b1xoE3/gZ8A3OvTv2Xrq4wPArGvPYX18b3K3x3SWCnaf3rv9l/GfvfvDjxnPus6s+6vvQXfHTH7+LRTruCH88cUNmasqly6z9/bO/J99lu8zkJAoY4NNSdk//R7c6DYf8uDvdNPxKd/n4h782YL3ifMV9YcMP//fqez8nsga9DzJPzfrzY59tS1dYkze/ealOoNV54DHuI7v2JJmSEVBpwP9WLvxiaKc6kYWCHAFhxas07f3698t+fe/eQjbJfWru3/8+7QzneneGAoYbMgICAw1Jysi45iTw9PT0S//jOiUNQB6XtH3iXzvXqNnljck7k03ZCtR+bPQv4wZV4Zfex/nHfr4/OTX5wukjO1fPGvF6j6qhZtLu2f98sGncJ5vTrQ6HHGUenfDskBG7nUbBVm//9/ka/G7nJ7bIwVOPnDx58uTxDSPuL3fVcmqh97ww/M2mwYbkPjpp1IyzNLA7QgHDDRkhoSGGJDM1JfUav29mSuYuIyQshInBgO9J3jHxtfbVa/d8e/ruZFNGaKW4t6asXT68d2U+IM8HbH7+AQFBoYVKRNVtN/AfP8XPfrVesCH3yfl//cvYw9wIzHe4D/zvqae/P+CyFW773vCnqnCVSj5jDwovHBERUbhA4DWu96/Ye0DzQEMyk+IXr2ZdljtCAcMN2SKKRtgkmenHjp7OvoG5Thw57pIkW6EILgoAfIt5dvXnveve0/P/Zu9LNQ2/ItEPfzR/y8ZJb3SqyMzDfMko0OjlN3oVtUnmhQWT55/jg3AfYZ76+c8vTDrqthXr/OGXg6K4xAd/ZBSuWbusXZL7zJGjKVanyds4V8YN2UpXuSvEkOQ6sOeAK9uHOA/uO+SWZC9ZpTKLEgM+xHlg0hPNmj/9Q2KyafgVbzJ0ZEJiwsjnWkUGWB0MucU8u2t1wooVKxI2HrzmNV7BdRvU8JNkZhzYe4ghMB9hXjh06Jxbch+fMrC83biSf6MPdrokuY9+1TbAMAzDsEUMnM4M1HzGCA4NNiQZMgxO9u4IBQw35n93zbv9JLn2rV5zPLvPOl07Vq0775YM/7trMmcB8BnmuYUvd+o9fFOyafiX7fzu/A0LP3moTmHeN3ybc9tXvRvHxMQ07vjeimtNMjLsdtul0y+7HwMlgA8wL+5bu2zp0qXLVuy4xmQnSe6Tx066JRkFSxRj+vkd4WQZN2Yr36bN3X7LNzrTV86af3JI/6J/+NjDvXfenK1OyfCv36E1d4UBfEXSwr8++vGmVNPwrzzw+3lf9YjkHSM/8IuqEuWnHS7XsTWr97lb3ZVd4c5I3LzdKclwlI4sQSP3EUZ4/X5/frlp9hNd3IcXfD12xRm3EXLPA0+2L2+XjOBoViL3JSnzX499bEaKaa/0p8WbhjXKbgEW59aFi4+6JCO4QZO6V63SgVvB2ylugl/17t2rvrtpY8aFOV9+m9j7z3df8e8mJWH4f1ekmTKCY3p2LstbMeAb3Af/9+7I3U7TcNR8ccx/aF/5hlG4eeu6AbOXpzlXjfpm5VPvNrzqUj/z+OQvxx90SUZAw9jm4Xzq5iOMQk2GvN3kGjsz4v884X8rzsgIa/jI2++2YXlEn2NEtGpbz3/m4jTXrjHDxj3zU/+r7u5oHp343vBNGZKtUJtebQvzi39HOFvGzfCr/eRLnQvZZKbE/9/g9xIuu+bafWzOK49/utUp2SP7vfJwRf5FAb7BPDr9p8VJpgxH40GP12O5jXzEHtXnsdgChsyMzf/qP3jU1qQr9qYfmvPGfU/8eNQt2Us98Fwf7sEN+ARb+QeGdIqwSe5jk5667+W5R5yX703ZPfHFuMHjDrtkBNYe+tr9xelfd4aPNHFTjOIPDhs2fvmgKUfPLn6jdf1lAx+Nq1fa/9yOxT+O+H7pwVTTcNz18KdvtS1gdU4AOSRtzfI1aaZkaPs3A1pPuO6brb18v8//+2hlpiP5CFupfu+/OWbZn349k75j7MDasz9s3b5FrfJFgtznD21ZOnt2woFkUzICqjz65ftd+Bgc8BFGid7//nTaqv7j9jsvJHzQvsrPTTu2i6lcPDDj9L6Ni2bPW380zZRhK9Lmn2NfjWYI9E5RwHCT/KIGjpp4ut+Dr8/Yd3HHzE9fnpm1ywit1u/T8f/pWoI3YsBXuA8lbr/glmSmH1m/8Mj1H+xXrclF1iL3Jf7Vn/tpSmr/Pm/NOpCWcWLjrDEbZ12+23CUbPXSiFFvtudTcMCH2CIf/PYXR+lHn/100aH0C7sXjfti0WV7DVt4zYc//uHTh6pSv+4cBQw3zSgY86cpa9r8PPyLkT/NW7/78Kn04GJlKtXr8OBjTz7WsVKI1fEA5CDXiaMnsr8YH/mCEdH0lembe8wc+fXYKb+s2Ljz8OkUMyg8omTUPY3v7dz7sQFtokIoX4DPCYjq+cGCNo/NGDP6x8mzl2/df+TEBSOsaOlK9Vp16vXI4PvrFaU45AzDNPnYEgAAAAA8gYtnAQAAAMBDKGAAAAAA4CEUMAAAAADwEAoYAAAAAHgIBQwAAAAAPIQCBgAAAAAeQgEDAAAAAA+hgAEAAACAh1DAAAAAAMBDKGAAAAAA4CEUMAAAAADwEAoYAAAAAHgIBQwAAAAAPIQCBgAAAAAeQgEDAAAAAA+hgAEAAACAh1DAAAAAAMBDKGAAAAAA4CEUMAAAAADwEAoYAAAAAHgIBQwAAAAAPIQCBgAAAAAeQgEDAAAAAA+hgAEAAACAh1DAAAAAAMBDKGAAAAAA4CEUMAAAAADwEAoYAAAAAHgIBQwAAAAAPIQCBgAAAAAeQgEDAAAAAA+hgAEAAACAh1DAAAAAAMBDKGAAAAAA4CEUMAAAAADwEAoYAAAAAHgIBQwAAAAAPIQCBgAAAAAeQgEDAAAAAA+hgAEAAACAh1DAAAAAAMBDKGAAAAAA4CEUMAAAAADwEAoYAAAAAHgIBQwAAAAAPIQCBgAAAAAeQgEDAAAAAA+hgAEAAACAh1DAAAAAAMBDKGAAAAAA4CEUMAAAAADwEAoYAAAAAHgIBQwAAAAAPIQCBgA+K+3nB0Nsxq2yFRowNU3KWPpClJ9hGP4xw3a4rP5ObpXz6MJ/D4qtXqpAoH9g4bpvrMiwOhAAAJn8rA4AAEDOurjoldj2H25ONSVJGSdOJ1scKC9ybh7zymfLLpqOmg+992RMsNVxAMB3UMAAwGfZy7Xo93BQuvmHze79C79bsMdpGo6KrXo3L/vHqRBGcONIu/THZ+UZ5unJH321JdWUrWDdfi8Oal2x+N1V7VaHynvcBxZ++9U3J90BnWPeooABQA6igAGAz/Kr98RXI564anPahN4/L9jjlAIbPTN8ZFxA9k92V+o9bETtC6ataL3ieWq6uuvA9l0ppuRX+fEvv3m9Pu9zAACvwhsTACA7tmL1ewyob3WK2+FyuSTJKFAw3LA6CwAAf5CnPtUEAHid9AunzyZl5NkJi5KZfOjg6RzMnwcOSEbyhaRUZ85GzOnDCAA+iwIGAMiOc9Wr1Rx/XAXRvf/TlgGGYQR1HXPWfWbVF481KRdRqEihsAD/kIgyVZv3ef279eczT8JT987+19NxDe4qWSgkIKhA8Uox3Z79fPER5zVfL+NY/Ji/P9415u6yRQsEhxYtX6NhbK+hwyZsPOu+2cTufR83DzAMR/Q7W5ySMhJeruJnGIY98ukFGZLk2jEsxt8wbKG9J6RJSkqc+EavBhUigsPrvb36smUSnSdW/u/tJ7o1qlq2WIGgwNAipStFt3volc/n7knJ7jVz74Bcx60cq8sTyjyz8vNBLSsVCw8PDfL3CwgrUv6eNg+9+b+1py97YsaS5yv6GUZAh29OuiWlTXu4sGEYhn/jD3a6b3gYM+JfquIwDMNepN+kC9lmd+/5uEWgzTBsQS0/2XvTP1sA8CUmACB/Sf35wRBDkhHWd1LqNR+VsfKVqn6SHA3/ud3520bXvk9a+EsK7PzvCS/UDr56hp8RWvuFuacyDk15pk74VR/xGY6y94/d67z6tVK2jnqkVkFbNhMGDb+iTV6cvDf9Zr4v195/N/O/+kvYyjz1S7ppmqZz+z8bOiQj5MGfUy6s+mfropkBbSWGzEm79CXSdo17om4he3YzF42gCnH/Sjjr/sNr5s4BuY5bPVa/J+zy7fZpT1bNJqIM//K9Ru747Xnpi5+rkM2iJY5Gw3a4bnwY05f/ubKfJFvRAZMvZPdD2vFBY39DMoLbfHnQdUvfOQD4CK4BAwDcsvRFf3t4xtkUR4kG3e7v1LRWpP1ows9ff7tgX6p5cf3HD3VZW3Ddr1vTC9/T7YEuLWqXdh9cM2vsmHl7UsyM/T/9+a3+XUZ0LnDZ13Lu+LpXqyemH3WZMoIiG3To0KxGmVDnyV0r50z7JfGM88TSf/VqffL7RSN6lLrBpA1bqb4jV7W8mLH1P736/Xe3y6/Gsz+NHljeZvgXibryzc59cvpzf3r1lzMFa3S+r2vz2hUj69Twk+Q+8vNj9/Ybuy/DlGEPj2reqX3DSkX9Luxb98v0ueuPpaXsmfyntl1dC+f8qdbV65bk5AG5jjs4Vq59ox57ZOHWFHvROt369WpVo4T99J51C8b9b9b2C+70vT8983jLFnOerGCT/Or8efqah9PTl/6t7dOTzpj+zf8x75MuBWSElPrDgpnZHkZHdI+4Cv8atsN1atbEhUldO4X8IcX2n8atzDBlhN3bp/uNfqAA4KOsboAAAA/LgREwSbbwxq8vPJk1huE6PL5vmd9GTozA6o9POZjx+0738emPRdklyVb6iflpl7/M1g+bhRmSbIUb/2X6vsvzuE4lfNqjvMOQZCvSY+zhPww+XTP46teq+UlyNHgv8YrBpd+GbvyKlyrmKNb6/5aeunwExn30h/svLfdoK9LqrQVHMi7bdW7D172j/A1JRnDMe5su25XzB+R639ntHKvLEspWsNGr849dflAurnmvebhNkuHf7KM9lx+PtJmPFrFJCuj87ekrUlz/MJpm+vI/V7JLspV4ZEbSH74D58Z/1HFIMgre9/2pm/x5AoCv4dMnAMCtM8JavTP2b80jst5FbCW7Pduvkp8kGY7qz4/8qEvprHEno2i7Pz1W1yHJferwkbSsr3Nh7ocfLbtgyh7Zf8SkdzuWvXxsyVa4/tNjxv+ldoAh96mpw4ZvvK3rpa5iOo8dNbt+NPblxoUvew90JX77r8nH3ZK9/COjf/pryxKXDZoZBWo+NvKn1+sFGTKTV37+2a/Z3Ng5pw7IddzpsbIVavfP7/9xb7HL5xeG1Hn2zb6l7ZLpOrDvoOvqJ11T9odRkiO6R1xFu+Q+PnPi4iuvm3NuGv/jxgzJFtGpT4fCLFEJIJ+igAEAbpkR2KL/g+X/cKWQvVxUObsk+d3T96G6gX/cWamiw5BkupxZ5SB5wfcTD7tk+Nd7+tXORbM5Iw+OHjq0dZAhM2Pr7Ln7cmjNBnupno93L3HFq7l2TZm4Ns2UEdjomZfbZdMNAmo//VJcYZvkOjR10or0P+7OqQNyHXd6rGwlez3Xt9xVb/v+lapeGoq7yRiXfQdXH0ZJkiO656UGdmzGxCWXNzDn+h9/2uqUbMW69mkbfmsvBgC+gwIGALhlRsEypcOuOvX287s03uNfsVK5q5ZxMPz8rtrm3Lgk/qxbspdv0aJiNgs/SDIK16lbwS7JuXPrjpwZAjP86zSO/kMdurgqfpNTkl+Nju3LZ/vWaBRs3bFJoCG5jq1aufePY0U5dECu406PlRFQr3nD4Gye5OeX7aIjN5TdYbzk9zGwo9MnLkv9fXPG6nE/bXdK9tLd+7QKye6JAJAvUMAAALfOZlzn/cPucNzcKb3z0IEjbknO7f+McRjZc9R9e7NTkvvCyVM3N1XvRozwUiVCrgzoPnH4aIYpGQGV7s5uCUBJMsIqVyltk+Q+eujo1eNLOXJAruNOj5VRoHixoDsNccUXvPow/sZR71IDcx2ZPin+tyDpK8b9vMsp2cvd16dpjiYBgLyFAgYAsIiZdO78zd+x2ExLTcuRG/0aQcF/XIzdffHCRbckIyQ05JpvjEZYeJhNkvv8uQsev4HVnR8rP/utDLjdWDaH8Xe/N7BD0yauuNTAUpeNm7DPJflVur93w6uXkQSA/INl6AEAFjGCw0LthmQ66r8yffgDxa4/SmQLiyyYM+s2ZHe3rrAQQ5KZfDHpmt3KTLqYbEqyhYQGe/zjS6uO1fUiXWefo16PuAoffbDTdWDapJXDmjf1T1kybtJBl+RX7YHedRy5HQ0AvBkFDABgFb8SpYrbtMdlpjqK1ahd27q3JHuRksUdhjLM1J2Je126O9uxoqSd2w+6JNmKlSzu+fkjXnOsbo6jXo9uFT76YKdr39RJq99vWmvhuMmHXTIcdXo/WN3bswNA7mIKIgDAKo5ajeqFGJJrx8JFh7IfeTJP/frv558ZOvSZl0ZtyMi9JGHRMdX9JDk3zZpzIPsk5xbMWJJsSrYi9RtE5exsvpvhPcfq5jjq9YirYJdce6dOXH3mlx+mHnPL8G/Y+/7Knj92AOBVKGAAAMuEte7ZvrBNZuqSD9+YfCybS5xSVv7rmZc+/vQ/n32zNrlwLp652yt1iavpb8hMXfrJP+efvTpJ+sbP359wwi3ZS3Xu1siKa5i85ljdJEe9nnEV7JJz95TR/xw7/YRbRmDTPvdlv8YkAOQj/B0EAFjGiIh7YXA1f0OufWMHdn1+4q7LbxvlPrf+i773/XNThilbyV5De5fOzbcse7VHXuhcxCbTuXt4/wfeX3risoXmzYtbRj7S860VyaaM4HpPPRMbmotBrsmqY5WWdptrn/zewLZ//eGEU24ZIa36dC/DeQeAfI+J2AAACwU2fH3Ea7+0/tuKC+cSPu5Zc3y99p1b1ipbwHly97r5k2dvOu00ZTgqDvjs/S65vKqEUbL3J59OS+g37qDz2JxXW949JjauQ8O7ImwX9q+bN3nG6iNppmQr1OLt/75Qw6q3Ts8eq8ybmKUv//K1fwe1LWUPubtTp9rht/KFHfV6xlX494c7Xc4Mp2SEt+nTtXiuLw0CAF6PAgYAsFRw/b/OnBXQr/ffZu5PTTm8cuLwlROzdhr2iPpPfPXDv7p54MzdVvqBbxe4wu578psN55ynt8wauWXWZXuN4Kju744bObSGf64HuTYPHitHjUb1Cwyfeta8uHbECwNGyNFo2JaOt1bA5IjucamBSbIV7tC3UxH6FwAwBREAYDWjUOO/TN+yccanf+7bunaFEgWDHP4hhUpXbRw35J3vVmxZ+mnPCp5atzzgrj7DVyUu+/atwV0bVilTJDTAP7hQyYp12g54+Yu5Wzb9/Ex0AasbhMeOlVGi31fj/3F/g3IFA/z8AsKKlo0scutXvvlnrsQh2Yp26duuYM5EA4C8zTDNHLmtJQAAwJXS41+q2WzYdqe9zJCZ279sE2R1HgDwAoyAAQCAXJGyaNQPu5ySvWyPPs1pXwAgiQIGAAByx7lZ3/58yCX5RfXqY8nS/QDgjShgAAAg56Vu/HzYxJNuGY7qffpGe+oyPgDweqyCCAAAckxG/LD+H27wtx9bNeeXbcmmbIU7/+nxmpxuAMBv+IsIAAByjHk2cf6EsSfdkiTDXrz9O+8+wO2/ACALUxABAECOsZWs0eCuIsGBBUpVbfXIsJkrJjxehemHAHAZlqEHAAD4//bsmAYAAABAUP/WtvCCFk6AiQMGAAAwEWAAAAATAQYAADARYAAAABOKs1LoAAAA1klEQVQBBgAAMBFgAAAAEwEGAAAwEWAAAAATAQYAADARYAAAABMBBgAAMBFgAAAAEwEGAAAwEWAAAAATAQYAADARYAAAABMBBgAAMBFgAAAAEwEGAAAwEWAAAAATAQYAADARYAAAABMBBgAAMBFgAAAAEwEGAAAwEWAAAAATAQYAADARYAAAABMBBgAAMBFgAAAAEwEGAAAwEWAAAAATAQYAADARYAAAABMBBgAAMBFgAAAAEwEGAAAwEWAAAAATAQYAADARYAAAABMBBgAAMBFgAAAAkwCPyI1s1FNhigAAAABJRU5ErkJggg==" width="576" /></p>
+<p>The “relative CIF” attempts to be close to the true CIF without using
+knowledge about the types of events, e.g. causes of death:</p>
+<pre class="r"><code>st.cir <- survtab(Surv(time = FUT, event = lex.Xst) ~ 1,
+ data = x,
+ surv.type = "cif.rel",
+ breaks = list(FUT = seq(0, 5, 1/12)),
+ pophaz = pm)
+plot(st.cif, y = "CIF_canD", conf.int = FALSE, col = "blue")
+lines(st.cir, y = "CIF.rel", conf.int = FALSE, col = "red")</code></pre>
+<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABIAAAASACAIAAAAIyqENAAAACXBIWXMAAB2HAAAdhwGP5fFlAAAgAElEQVR4nOzdeZiW8/7A8ffMtO/SKu3R4iSKlGnRgkPTbspW5DB+SGTJcs6xH5RjSbIkpaKjQtFiS4s2lQotU1Ip7VHRPtvz+8NzDE72mfue5f26nss15/s80/M5lRnvue/7e8dEIhEkSZIkSdkvNuwBJEmSJCm/MMAkSZIkKSAGmCRJkiQFxACTJEmSpIAYYJIkSZIUEANMkiRJkgJigEmSJElSQAwwSZIkSQqIASZJkiRJATHAJEmSJCkgBpgkSZIkBcQAkyRJkqSAGGCSJEmSFBADTJIkSZICYoBJkiRJUkAMMEmSJEkKiAEmSZIkSQExwCRJkiQpIAaYJEmSJAXEAJMkSZKkgBhgkiRJkhQQA0ySJEmSAmKASZIkSVJADDBJkiRJCogBJkmSJEkBMcAkSZIkKSAGmCRJkiQFxACTJEmSpIAYYJIkSZIUEANMkiRJkgJigEmSJElSQAwwSZIkSQqIASZJkiRJATHAJEmSJCkgBpgkSZIkBcQAkyRJkqSAGGCSJEmSFBADTJIkSZICYoBJkiRJUkAMMEmSJEkKiAEmSZIkSQExwCRJkiQpIAaYJEmSJAXEAJMkSZKkgBhgkiRJkhQQA0ySJEmSAmKASZIkSVJADDBJkiRJCogBJkmSJEkBMcAkSZIkKSAGmCRJkiQFxACTJEmSpIAYYJIkSZIUEANMkiRJkgJigEmSJElSQAwwSZIkSQqIASZJkiRJATHAJEmSJCkgBpgkSZIkBcQAkyRJkqSAGGCSJEmSFBADTJIkSZICYoBJkiRJUkAMMEmSJEkKiAEmSZIkSQExwCRJkiQpIAaYJEmSJAXEAJMkSZKkgBhgkiRJkhQQA0ySJEmSAmKASZIkSVJADDBJkiRJCogBJkmSJEkBMcAkSZIkKSAGmCRJkiQFxACTJEmSpIAYYJIkSZIUEANMkiRJkgJigEmSJElSQAwwSZIkSQqIASZJkiRJATHAJEmSJCkgBpgkSZIkBcQAkyRJkqSAGGCSJEmSFBADTJIkSZICYoBJkiRJUkAMMEmSJEkKiAEmSZIkSQExwCRJkiQpIAaYJEmSJAXEAJMkSZKkgBhgkiRJkhQQA0ySJEmSAmKASZIkSVJADDBJkiRJCogBJkmSJEkBMcAkSZIkKSAGmCRJkiQFxACTJEmSpIAYYJIkSZIUEANMkiRJkgJigEmSJElSQAwwSZIkSQqIASZJkiRJATHAJEmSJCkgBpgkSZIkBcQAkyRJkqSAGGCSJEmSFBADTJIkSZICYoBJkiRJUkAMMEmSJEkKiAEmSZIkSQExwCRJkiQpIAaYJEmSJAXEAJMkSZKkgBhgkiRJkhQQA0ySJEmSAmKASZIkSVJADDBJkiRJCogBJkmSJEkBMcAkSZIkKSAGmCRJkiQFxACTJEmSpIAYYJIkSZIUEANMkiRJkgJigEmSJElSQAwwSZIkSQqIASZJkiRJATHAJEmSJCkgBpgkSZIkBcQAkyRJkqSAGGCSJEmSFBADTJIkSZICYoBJkiRJUkAMMEmSJEkKiAEmSZIkSQExwCRJkiQpIAaYJEmSJAXEAJMkSZKkgBhgkiRJkhQQA0ySJEmSAmKASZIkSVJADDBJkiRJCogBJkmSJEkBMcAkSZIkKSAGmCRJkiQFxACTJEmSpIAYYJIkSZIUEANMkiRJkgJigEmSJElSQAwwSZIkSQqIASZJkiRJATHAJEmSJCkgBpgkSZIkBaRA2AMo623atOm5555LT08PexBJkiTplxQvXvzmm28uVqxY2IMExwDLg4YOHTpo0KCwp5AkSZJ+Xd26dXv06BH2FMExwPKg1NRUICEhoUWLFmHPIkmSJB3duHHjli1blpKSEvYggTLA8qy2bdv2798/7CkkSZKko1uxYsWyZcvCniJobsIhSZIkSQExwCRJkiQpIAaYJEmSJAXEAJMkSZKkgBhgkiRJkhQQA0ySJEmSAmKASZIkSVJADDBJkiRJCogBJkmSJEkBMcAkSZIkKSAGmCRJkiQFxACTJEmSpIAYYJIkSZIUEANMkiRJkgJigEmSJElSQAwwSZIkSQqIASZJkiRJATHAJEmSJCkgBpgkSZIkBcQAkyRJkqSAGGCSJEmSFBADTJIkSZICYoBJkiRJUkAMMEmSJEkKiAEmSZIkSQExwCRJkiQpIAaYJEmSJIB16xg7lhtvpHlzKlRg2rSwB8qLCoQ9gCRJkqRw7N3LokUsXMjChSxaxK5dmU8VKEBKSniT5V0GmCRJkpRfpKWxZg1LljBvHnPnsno1GRmZz5Ypw2mnER9PkybEx1O2bHiD5l0GmCRJkpQ3paezYQMrV7JqFStXkpzMqlUcPpz5gqJFadyYpk054wyaNaN69fBmzTcMMEmSJCkv+C63VqwgOTkaXcnJP8otICaGevWixXXGGZx8MgULhjRufmWASZIkSblSejoff8zcuSxaRHLyUXILqFqV+vU56SQaNIj+s3TpMGbVfxlgkiRJUq5x8CCLFjFnDnPnsmAB+/b96Nlq1aK5Vb8+f/kL9eubWzmOASZJkiTlaF99xfz50ehasoTU1MynTjiB+Hji42nYkPr1KVUqvCn12xhgkiRJUs5y8CCff84nnzB3LnPnkpxMJBJ9Ki6OJk1o0SL6qFQp1EH1+xlgkiRJUmi+/ZbPP2fdOj7/PPOxdeuPXlOsGE2b0qoV8fE0b07JkiHNqqxggEmSJEkBSU7m449/1Fo7dx7lZYUKUbMmDRpETy9s0sS9CvMOA0ySJEnKRuvWMXNm9LFt20+fLVKEOnWoU4fataMf1KlD1arExYUxq7KfASZJkiRlsS+/ZOZMZsxg5kw2bcpcr1yZM8/MDK3atTn+eGJiwhtUgTPAJEmSpCywcyezZzN3LvPmsWRJ5nq5cjRrRosWtG9P48bmVn5ngEmSJEl/RHo6q1axeDGLF/PBB6xalflU6dK0bk2bNrRtS8OGRpcyGWCSJEnSb/X553z0UTS6li7lwIHMp0qUoEUL2rShTRsaN/YiLh2dASZJkiT9rG3born13WP37h89W7MmTZty+uk0a0bTpu5VqF9ngEmSJEk/9fHHPPoos2axefOP1itV4vTTOe00Tj+d00+nXLmQ5lOuZYBJkiRJmRYs4MEHmTqVSASgdGmaNIke5jr9dKpWDXs+5XIGmCRJkgQwYwb/+hczZgAUL05SElddRb16bqGhrGSASZIkKb+bPp277mLBAoCSJenThzvuoFKlsMdSXmSASZIkKZ/KyGDqVO6/n8WLAcqV47rruOEGjjkm7MmUdxlgkiRJyncyMnjtNe6+m+RkgAoVuOYabrqJUqXCnkx5nQEmSZKkfCQlhVde4YEHWLsWoHp1+vcnKYmiRcOeTPmDASZJkqS8LxJhwQLGjWPcOHbsAKhXjzvu4OKLKeB/EStA/nWTJElSXrZkCa+8wvjxbNoUXTnlFO68k+7diY0NdTLlSwaYJEmS8qCVK5kwgVdeYc2a6ErVqnTtSmIi8fHuLK/QGGCSJEnKO774gjfeYPRoli6NrpQrR7du9OpldylHMMAkSZKU623YwPjxjBvHsmXRlXLluOACevakVStPNVQOYoBJkiQpV0pPZ8ECpk5l6lSWL48ulilD16707Em7du6uoZzIv5WSJEnKTXbv5u23mTqVt99m9+7oYqlSJCTQsyfnnkvhwqHOJ/0iA0ySJEm5wPr1TJ7MlCnMnk1qanSxVi3atychgXPOsbuUOxhgkiRJyqEOH2buXCZP5o032LgxuhgXR3w8HTvSsSMNGoQ6n/T7GWCSJEnKEQ4dYvVq1qwhOTn6werVHDkSfbZiRTp04PzzOeccSpYMdVDpTzDAJEmSFII9e1i/npUrWbUq+sGaNaSn//RlDRrQsSMJCZx5ppsZKi8wwCRJkhSQTz7hjTd47z1WrcrcP+N7hQpRty716kUf9etTt64Hu5TXGGCSJEnKRunpzJ/PpElMmsT69ZnrZcpQty7162fmVq1abhyvvM+/45IkScp6hw8zfTqTJvHmm+zaFV2sVIlOnejUicaNqVw51PmkkBhgkiRJyjJ79/Lee9F9C7/9NrpYs2Z008KzzvIYl/I7/w2QJEnSn/XZZ9HjXbNmRW/SFRPDaafRpQtdunDSSWHPJ+UYBpgkSZJ+t0iEVav44AM++IDZs9m2LbpeoADt2tGlC507U7VqqCNKOZIBJkmSpN8kI4Ply5k9m9mzmTMn88ouoEIFWremY0c6dKBs2fBGlHI8A0ySJEk/Kz2d1auZN4/p05kxg6+/znyqUiVatiQ+nhYtaNyYmJjwppRyDwNMkiQpX0tNZdcudu5k27YffbBrF9u2sX49+/ZlvrhGDVq1onVrWrWiTp3whpZyLQNMkiQpHzl8mJEjo1dtfZdbPzyodVQnnkjLlrRuTevWVKsWyJRS3mWASZIk5Qv79/Psszz6KNu3/2i9QAHKl6d8eSpVomLF6AcVKkQ/qFqV8uVDmljKiwwwSZKkPG7vXoYMYfDg6MGuJk245hpq1452V/nyXr4lBccAkyRJyrO++oqnnmLwYPbuBYiP57bbSEiwuKTQGGCSJEl50I4dPP44Q4Zw8CD8N706dgx7LCnfM8AkSZLylI0beewxhg3j8GGA9u25/36aNQt7LEmAASZJkpRnrFvHoEGMGEFaGrGxJCRw992cdlrYY0n6AQNMkiQpdzt4kMmTefllpk4lI4OCBbnsMu64g7p1w55M0v8wwCRJknKl1FTeeYdXXuGNN9i/H6BwYfr04bbbqFEj5Nkk/RwDTJIkKTfJyGDOHP7zH159NbqtfEwMzZtz4YX07EnFimHPJ+kXGWCSJEm5w8qVTJjA6NFs2BBdadCAxEQuuYQTTgh1Mkm/mQEmSZKUo23YwPjxjBzJmjXRlWrV6NKF3r1p0iTUyST9fgaYJElSTpSRwaRJDBzIokXRlcqVSUzkoos44wzvpCzlVgaYJElSzpKayn/+w8MPk5wMcMwxdOvGRRdx1lnExYU9nKQ/xwCTJEnKKQ4fZsQIHnmEL74AqFGDW2/liisoUiTkwSRlFQNMkiQpfPv388ILDBrE1q0AtWszYAB9+lCwYNiTScpSBpgkSVKYvvqKp55iyBB27wZo1IibbuKSSzzbUMqbDDBJkqRw7NjBM8/w+ON8+y1AfDy33UZCghtsSHmZASZJkhS0tWt55BFGj+bIEWJi6NCBO+/kzDPDHktS9jPAJEmSArJ1KxMm8MorLFxIJEJcHBdeyO2306hR2JNJ39m2jS++iD527uTmmzn++LBnymsMMEmSpOz19de8+irjxjF7NhkZACVKcOGFDBjACSeEPZzyp+3bM0Nr48bMjw8f/tHLqlblpptCGjHPMsAkSZKyxcGDTJ3K6NG8+y4pKQCFC3P22SQm0q0bJUqEPZ/ytgMH2LyZHTvYsoUdO9i6le3b2bqVrVv54gsOHTr6Z5UvT40a0Uft2lx6abBD5wsGmCRJUlY6fJj33mPCBF5/nQMHAOLiiI+nd28uvJBSpcKeT3lGJMK2bWzcyMaNbN4cDa3v/rl5c/Qv38859tjM0PruUbMmNWpQvHhQ0+dfBpgkSVIWSEvjrbd45RXefJP9+wFiY2nThgsvpHt3jj027PmUe6WksHkzmzZFzxXcuDH68ZdfcuTIz35W0aIcdxyVK0cflSpx3HFUqkSVKtSo4RHYEBlgkiRJf8rq1YwcyejRbN8OEBND8+b07EmPHlSuHPZwyjkiETZuZPVqvvySSISUlOhBqv37SU0lI4NvvgE4fDh6fuA333DgAF98wbZt0WsH/1fFilSrRvXqVK1KlSpUrEiVKtHWKl06qP9j+n0MMEmSpD9i/37Gj2fECObNi640aEDv3vTsSY0aYQ6mHCE9nQ0bWLmS5GSSk1m1itWro8dGf68CBTj+eKpXp0aNaG5998/q1SlaNKvnVrYzwCRJkn6fJUsYNoz//Id9+wBKlqRLF3r3pl0776GcX6WksHZttLVWrmT1alavPsr5gRUrctJJ1KxJXBwFC0bPAyxenEKFiImhTBmAwoUpVgygVCmKFaNaNapUoYD/0Z53+GcpSZL0m+zezauvMnQon34aXWnShKQkLr7YC2ryk2++Yd266GP9+ugHmzeTnv7TV1arRr16nHQS9evToAH161O2bBgTK2cxwCRJkn5JRgYzZjBsGJMmkZoKULkyiYlceSUNG4Y9nLLVnj0sX/6j0Fq3jq+/Psor4+KoXZsGDaKh1aAB9epRsmTgEysXMMAkSZKOIhJhwQLGjWPCBLZtAyhYkC5duOIKzjvPM8LyusWLefJJxo+P3sHth4oVo3ZtatWidu3oo1YtatSgYMEwBlXu4xcPSZKkH1m8ONpdmzZFV+rX54or6NWLihVDnUzZLTWVV1/lySf58EOAuDiaNcusrO8+cGtL/TkGmCRJEsDHHzNuHOPHs359dKV6dXr0oGdPmjQJdTIFYOdORo5k6FC+/BKgdGkuu4z+/d3RUlnOAJMkSfnaypVMmMC4caxeHV2pUoXu3UlMJD7eXQ3zgWXLePZZxoyJ3n2rbl2uuYYrr6R48bAnU95kgEmSpPzos88YN45x41i5MrpSsSIXXEDPnsTHExsb6nAKQHo606bx5JNMnw4QG0v79vTrR0KC2a1sZYBJkqT8Zd48/vUv3nor+j/LlaNbN3r2pHVr4uJCnUzB2LuXUaN47LHoRX6lSnH55dx4IzVrhj2Z8gUDTJIk5RczZvDAA8ycCVCyZPR4V7t2bmmYP6Sn8847vPgib74ZvUXySSdx/fVceqlnGypIfr2RJEl539y53H03M2YAlCzJtdcyYIA3xc03Vq/mxRcZM4atWwHi4ujUiX79aNvWsw0VPANMkiTlWZEIU6bwwAMsWgRQrhzXXceNN1KmTNiTKQDffsukSYwZw/vvE4kA1K3LhRfSpw/Vq4c9nPIvA0ySJOVBGRlMnco997B0KUCFClxzDTfdRKlSYU+m7JaRwfz5jBnDyy9z4ABAqVJ07kzv3rRr5yEvhc4AkyRJeUpGBq+9xl13RbeVr1aNm24iKYmiRcOeTNntyy8ZO5Zhw6K3couNJT6e3r255BKv8lLOYYBJkqQ84tAhRo9m4EA2bACoXZs77qBXLwoVCnsyZZ/t21m0iEWLmD2befOipxrWqsVll3HZZZ5qqBzIAJMkSbnehx/y4ou88grffANQvz533smFF7q9YV508CBLl7JwIYsWsXAhGzdmPlW8ON2706cPrVt7qqFyLL8sSZKk3GrbNsaM4cUXSU6OrjRvTv/+dO/unZTzkIwMkpOjubVwIStWkJaW+WypUpx+OmecQdOmtG1LyZLhDSr9JgaYJEnKZVJSeOcdxoxh0iRSUwEqVyYxkSuuoFGjsIfTn3T4MOvWsXYtn3/O55+zZg1LlrBvX+YLChSgceNocTVtSr161rZyFwNMkiTlGitXMmYMI0awaxdAoUIkJNC7N126ULBg2MPp9zp4MFpZP3xs3hy9juuHatSgWbNocTVu7IYqytUMMEmSlNPt2cOECTz3XHRPeaBBA3r35oorKF8+1Mn0e61axcSJTJ/O2rVs2XKUFxQqRM2a1KlDnTqccAJ16nDqqVSoEPigUnYxwCRJUg61fTtvvMGkScyYQUoKQPnyXHwxffp4qmGuEomweDETJzJxImvWZK4XLkytWtHK+v5RrRpxceHNKmU7A0ySJOUsn33GpElMmsTChWRkABQoQMeO9OlDhw7uKZ97pKXxwQdMnMikSWzeHF0sV45OnejcmUaNqFrVy7eUDxlgkiQpR1i5kgkTmDKFJUuiK0WK0L49HTvSqROVKoU6nH67w4eZO5fJkxk3jh07ootVq3LeeSQk8Ne/erme8jkDTJIkhSY9nQULmDCB11/PPEZStizt2pGQQNeubiqee2zZwuzZTJzIW29x4EB0sV49unalWzeaNPHGXNJ3DDBJkhS03bt5910mT2baNPbujS5Wr07nznTpQsuW3kA5N9i8mSVLoo+lS9m+PboeE8Npp9GtG127Uq9eqCNKOZFf3iRJUkA++YRp05g2jQULSE+PLp58Ml260LkzjRuHOpx+1Q+La8mSzNMLv3PMMTRtyvnn07UrVauGNKKUCxhgkiQpG+3fz/TpvPUW06ZlnmRYqBBnnUWHDnTuTK1aoc4nYN8+UlL45hsOHeLwYfbuJSWF/fvZv5+UFL78kmXLjlJcZcvSpEn00bixf5DSb2SASZKkrLd+PdOnM3ky773HkSPRxQoVOPdcOnbknHMoXTrU+fKtLVuYMoXJk0lOZs8eUlIyr9f6VT8sriZNqFkzOweV8iwDTJIkZY2MjOiu49Om8fnn0cW4OM48kw4dOO88TjnFjRjCEImwbBmTJzN5MkuXEon89AXFi1O4MGXKUKQIRYtSqhSFC1OyJMWKUbgwFSty8skWl5RVDDBJkvRnff45o0czZgxffBFdKVeOc8/l/PM591yOPTbM2fKvw4eZMYM332TKFLZsiS4WL84555CQQIsWHHsshQtTokSoU0r5jgEmSZL+oG++Yfx4Ro1i/vzoYZUaNbj4YhISaNqUuLiw58ufvvqKadOYMoV33uHbb6OL35/9ef75FC8e6nxSfmeASZKk3ycjgxkzGD2a11+PXkBUtCgJCSQl0a6dJxmGZMMGxo1j0iQWLyYjA/67HXzHjnTsyKmnhj2fpCgDTJIk/VbJyYwbx6hR0VMNY2OJj6d3by6+2BPZQrJpExMmMG4cixdHV4oWpV07OnYkIYHjjgt1OElHYYBJkqRfsXs3Y8cyahQffRRdOfFEevemVy+qVQt1snxr61ZefZVx41iwIHr2Z6lSdOrEBRdw9tkUKxb2fJJ+lgEmSZJ+1tq1PP44o0Zx8CBAmTL07Mlll9G8ediT5U+7dzNlChMm8PbbpKXBf493JSbSvbsXd0m5ggEmSZKOYt48Hn2UN94gI4PYWP76V/r0oVMnihQJe7J8aM8eJk9mwgTeeYfUVIAiRfjrX0lMpFs3z/6UchcDTJIkZcrIYOpUBg5k3jyAwoXp0YPbb6dBg7Any4fS0pgyheHDeffdaHcVLkynTvToQadOlCwZ9nyS/ggDTJIkARw4wMsv89hjrFkDUK4cf/sb/fq5j0MYNm5k+HBGjGDrVoCCBTnvPHr2pHNnypQJezhJf4oBJklSfrdzJ08/zVNP8fXXALVq0a8fV13lVg6BS0tj8mSef5533oluJV+vHklJ9O7t3aylPMMAkyQp/1q7lqee4vnnOXQIoEkT+vXjkku8h3LgtmzhpZd4+mk2bYL/nmrojdWkvMgAkyQpP5o1i0GDePttIhHi4rjgAm65hTPOCHus/CY9nZkzGTaM118nPR3gxBO54gr+9jfKlQt7OEnZwgCTJCkfychg8mQefpgPPwQoUYI+fbjxRmrVCnuy/Gb9el54gZEj2bYNoEgRLrqIpCRatgx7MknZywCTJClfSE1l7FgGDWLVKoBy5bj+evr2pWzZsCfLPyIRli3jjTd4800+/ji62KABSUn06uWfhJRPGGCSJOVxBw4wfDiPPRa9vKhaNW66iSuv9La9QUlJYfbsaHd9+WV0sVQpOncmKYkWLUIdTlLQDDBJkvKsb79l5Egefpjt2wHq1KFvX/7v/yhcOOzJ8oMDB5gxgwkTmDyZvXuji+XLR2+gfM45/jFI+ZMBJklSHrR9O88+yxNP8M03AI0bc8MNbm8YiE2bePttJk/m3XdJSYku1qpFQgKJicTHu6uhlM8ZYJIk5SnJyQwaxNixpKQQE8N553H77bRqFfZYeduOHcydy5w5zJ6deXFXgQK0aUOnTnTuTM2aoc4nKQcxwCRJyiNmzODxx5k2jYwM4uK46CJuu41GjcIeK6/asIE5c6KPNWsy10uU4K9/pVMnOnRwXw1J/8sAkyQpd0tJYfx4HnuMZcsAihbl8su55RZ3ls9qkQgrV0aL64MP2LIl86kSJWjenBYtaNWKZs0oUiS8KSXldAaYJEm51Xd7bDz6aHRrvQoVuOYa+vb1Fr5ZJyODZcuYNYsPPmDuXHbvznyqXDni42nVihYtaNyYAv43laTfxC8WkiTlPuvXM2wYzz4b3WPjxBO59lqSkihaNOzJ8oBIhFWrmDGDGTOYPZs9ezKfqlo1WlwtW9KggdtpSPoDDDBJknKTJUsYPJj//Ie0NID4eG67jYQEW+BP+/xzZsxg5kxmzmTHjsz1WrVo04bWrWnViurVw5tPUh5hgEmSlAtkZDB1Kg8/zPz5AIUK0asXt95Kw4ZhT5arbd/OnDlMn8677/LFF5nrFSvSqhXt23P22W5gKClrGWCSJOVoBw4wfDiPP87GjQDly/N//8d111GxYtiT5V7r1zNqFK+8wmefZS6WL89ZZ9GmDW3bUrdueMNJyuMMsN8t4+CuTZu/OhxXqsJxlcoW9X6WkqTs8tVXDBnC0KF8/TVAvXr070+vXl7o9UcdOMBrrzFyJLNnE4kAlC5Nq1a0bUvbtjRs6HmckgJggP1U5NC2j2e//+GqL3enlqhc+9S258fXKBb9cnxg1X/uufW+F95dsyctAsQULHtCi059bv5Hvw61i4U6syQpj9m4kcceY/hwDh4EaNKEfv245BLi/LnfHzNvHi++yPjxfPstQPHidO9Onz60bOnvqaSAGWA/dGDlmFuTBgxfsD01El2JKVgx/qZRrz54bsW01UO7te737lcZ3786krr7s5kv3jHr1bFJoyYP6Va9YDhDS5LykuXLeeSR6B4bMTG0b0+/fnTsGPZYudS2bYwfz4gRfPppdKVJE3r1olcvb5EsKSwG2PdSVj3ZpXX/6V9n/HAxkrpj7qALuh4zb0LVe++a/lUGxBQsU/PkRrWPjdu/JfmT5O0HMyL7lw/r1b3C8bPva1o8rNklSbnf3LkMHAZZUU0AACAASURBVMjUqUQiFCxIr17cdhsnnRT2WLlRSgrvvMOYMUycGN0ssnJlEhO58ko3LZEUOgMsKn3t0/935/tfZ0BM0Wote1zcoWnN0mm7kmeNG/3Gij0LB17RvcLyPRmx5VrdMXr0P86r/t0N7jO+TX71nr9dM3jB7oNL/33Tc71m33SCpzFIkn6f77Y3fOghFiwAKFGCK67g5pupVi3syXKd3btZsIB33mHs2Ohlc4UL07UrffpwzjmeaigphzDAvpP20fBnFhyIEFum9f3vvnnH6aWil3316/+3QefH3z57ycI9xFZIfHL8/edV/P4C3dhS9Xs8Ornk/qYdn19/aOHzI5f1e/A0f0MlSb9RejojR/LII9Gt+MqXp18/rr3Wk+N+jzVrWLCAefOYP5/k5OjWGkDjxlx+OZdc4u+mpJzGXgAgfd2sWRvSoODJ/YcM+L6+AIo1vH7ABY/OGbkzI7ZCp791qfjT7ZFijj13wDVNR926IGX97NkbM06rHRvo4JKkXGrjRi69lLlzAWrV4uab6dPH7Q1/g8OH+eijaHHNn89XX2U+VbQop51Gixb07EmjRuGNKEm/xAADIH3T+o3pEFe1bft6P/0tKXLamacWHPnOkQL1GjUofJTPja3e7IwqcQs2pG1ctzGN2oWCmFeSlKtNmEBSEnv3UqUKjzxCYiIF/Ib8C3bsYN68aHQtXUpKSuZTlStz5pnEx9O8OY0bU8hvw5JyOr/eAxA5sP9gBOJKlSn1P0ewYsocd1yJWI7Elixd8qiHt2JKli4ZAxnf7P0mcrTnJUn6r0OHuP12nnwSoHNnXniBY48Ne6acacsWZs/mgw/44AOSkzPX4+I4+WTi4znzTM48k1q1whtRkv4IAwyAmFJlSsWwL33bpi1p/OUnV+nGlDy2Ypky6QVLFD766YWR3V/tjkBM0WJFvX+jJOnnrVjBRRexYgVFivDww/Tr541/f2zDBj74INpd69ZlrhcvTvPm0ehq1oxSpcIbUZL+LAMMgAIn1D+hQMyWlK/eeW3WvnPPLfmjJwu2fGTl14/87OemrZ4zb0c6FKxRp4YbLEmSjiYS4cknue02jhyhfn3+8x+vUfqv9euZO5d583jvPTZsyFwvUYJmzYiPp0ULWrak8NGuApCkXMgAAyD2uHbnNio0e/GRzaNu6P/Xd5/uVu23nkOe9sXLdz3zaSrEVW/VurYBJkn6H7t20acPU6cC9OrFs89SrFjYM4UlLY3PPmP5cj79lOXLWbyY7dsznz32WFq04KyzaNWKRo3cOF5SnmSAfSeu3t8GdB/cc+z2lDUjepz6UefePdudUqvmqe3/evKxP3d2SPq+jR9Oeubevz8+fXsGMUVPv+pvTQsGOrMkKReYPp3evdm2jXLleOEFOnUKe6CAbd3KihV88gnLl7NiBatWceTIj15QqRKtWtGqFa1bc9JJnpQpKc8zwKJiyncf8vIta7r+e8m36bs/ef2JT14nrvoNM9c+0fIoVZW27KG2HR78cPv+1O923YgtfeY/h15f3x/USZIypabyr39x//1kZNCmDWPGUKVK2DMFYN06Zs5k+fLoYa7vboj8vZgYatXi5JNp2JCGDTnlFE44IaRBJSkcBtj3Ysq2HTh7/qn33X7vc2+t+Sb9lzY0jBz6euvOaH3FFD+x2wOjnr+hsfdukSR9b80aLrqIZcsoUIB//pN//jOvn0+XksKkSQwbxowZmXdDBsqWjbZWw4acfDJ/+QslSoQ3pSSFzwD7keInXThwcs97dqxaOO+j1ZsP16n+M98tYwuVrFCz0Ymnntm+y6V9epxZxSuDJUmZRo/muuvYv58aNXjpJeLjwx4oW33+Oc8/z4svsnMnQLFidOxI48bR3Dr++LDnk6ScxQD7XzFFK550VreTzvr5VxRs9uCyrQ8GNpAkKbdYuZIbb2T6dIBLL+XppylZ8tc+J5dKSeGNNxg2jPffjx7yqlePyy/nyiu9tZkk/QIDTJKkLLB7N/fcwzPPkJZG2bIMHsyll4Y9Uzb5/HOGD2fkyOghryJF6NiRpCTatw97MknKBQwwSZL+lIwMXnqJW25h1y5iY+nVi0cfpXz5sMfKcunpTJvGk096yEuS/gwD7E87vGfb7oMZEYgpeuxxZYuEPY4kKUgzZ3LjjXz6KUCbNjzxBCefHPZMWSsjg/nzmTiRl19mxw6AYsXo0YOkJJo3D3s4Scp9DLA/68g719ft+vK+CBRJnLB3/AVZtx/HhAkThg0b9gc+ccWKFcC6deuybBRJ0v/48kv+/nfGjAGoWpUHHqB377BnykJHjvD++0yaxBtvRE81BBo2JCmJSy+lTJlQh5OkXMwAy7kmTJgw/bvruP+QhQsXZuEwkqTvHTzIoEEMHMjhwxQrxq23cvvtFMkbp0B88w3TpjFxIm+/zb590cXatenale7dadYs1OEkKS8wwHKu4cOHJyUl/YFPvPbaa9euXVslX9zvU5ICFYnw6qvccgubNhETQ2Ii//431aqFPdaft2sXb73FhAm8+y4pKdHFBg1ITKRjR5o0CXU4ScpTDLA/q1Cre2d8eH16BGKPPaFQVv7KpUqVav+HdpQqmWf3PJakMC1Zwg03MG8eQJMmDB6c+2/w9fnnvPYaEyeyeDEZGQAFCtC2LZ0706VLnihLScpxDLA/K+aY2qc1rR32FJKkbLRzJ3fcwYsvkpFB5co89BC9exMTE/ZYf1hqKm+8wbPPMmNGdD/DYsU45xy6dCEhwS0NJSlbGWCSJP2stDSeeYa77mLvXgoXpn9/7rwzN99befNmhg1j+HC2bQMoXpzu3enalXPOoVixsIeTpHzBAJMk6egWL+a661i8GKBdO4YMoX79sGf6YzIymDGDYcOYOJG0NIC6denTh6uuomzZsIeTpPzFAPsVafu/2rHr6z3fHjySmhFbuHjJkiVLl6tYvoS/b5KUl23fzoABvPQSkQjHH8+//pVrt5jfu5fx4xk8mFWrAAoVIjGRpCTatcvN51BKUi5mSBzFoS0fTh732pT35ixctmL9zgNpkR89GxNTqFSV2vUant7mvM5duvy1adVifgeTpDwjLY2hQ7nrLr79lqJFGTAg124xv2QJw4bx0kscPAhQpQqXXkrfvhx/fNiTSVK+ZoD9SMbXC4fd2f/eFz/cnhL5uddEIinfbE5euDl54VujB95cvsnFf398YN8WFeOCnFOSlB1mz6ZvX1asAEhI4MknqVkz7Jl+r+3bee01hg3j008BYmPp0IFrruG884iNDXs4SZIB9gMp68Zeed4VL6098t/2iokrVva4qtWqVj62ZLGiRQvHZaQcPnRw3+4dW77ctGXX/tQIRFJ3fTSqf9uZs4ZMG3v1SUVDHV+S9Mdt3crtt0fPOaxThyeeoEOHsGf6XTZuZOJEXnuN+fOjG8pXrMgVV5CURI0aIc8mSfoBA+y/Di26r/t39RVT+LhmPZOuuqRz++YNq5Y86pGtjEM7Vi+e/faro4aNenvNt6mb3ujXbUCdRU+2K+3ZiJKUy6Sm8vTT/POf7NtHsWLcemuuOudwzRpef53XX2fJkuiG8kWKcPbZXHwx3bpRKEtvTylJygoG2HcyNo288/FPj0Ri4qp0fOyNUdc3KfOLKRVbtGKDVj0atOpx3U1v3trt4qeWHVj7/N+f63vWgLqeiShJuch779G3L599BpCYyKOPUrVq2DP9FitXMmECU6awZEl0pWhR2rUjMZEuXShVKtThJEm/xAADIOPLSePmHooQV+1vL4zp1+S3f+cqXKPT4+Pu/7jRzXMOLZ04ecPNdetYYJKUG2zdSv/+jB8PUL8+Q4bQrl3YM/2q77rrlVdYsya6UqYMZ59NQgLdulGiRKjDSZJ+EwMMgLRVH69MjRBb4fzENr/354ZxtbsnNr19zuy0tas+S8cAk6QcLi2Np57i7rv59ltKlODuu7nhBgoWDHusn5OezgcfMHEiEyeyeXN0sUIFunShe3fatMnBo0uSjsIAAyBy5EhKBGJLlCzx+6/iii1VplQsRFKO/PzWiZKkHGHJEq65Jnpv5YQEnnqK6tXDnumoDh9m+nQmTuTNN/nqq+hi1ap060a3bsTHE+cP/CQpVzLAAIg7vvrxcSSnb16ydFtGs2q/b5/eQ58sXpEKsRUrV3SDX0nKqfbs4Z57eOopMjKoVYshQzj//LBn+l/79vHWW7z+OtOmsW9fdLFuXbp2pVs3TjvNuydLUm5ngAFQ4OSE86oPSl53aPbA2yd0HNOz6m/+uWJk36JH7hj1RTqxFeLPOtnTQCQp54lEGDOGW25h1y4KFqRvXx58kOLFwx7rh3bvZsoUpkxh2jQOHIguNmhAYiIdO9KkSajDSZKykgH2nUJnXH19y+H9Z3276ZXezXcueejB/j2aVi78y5+Tvnf128Pvv/3+V1Z8G4kp9Jerrjs7R303lyQBn37Ktdcybx7AWWfx9NPUrx/2TN87fJgRI3jtNWbPJj0dIDaWli3p2pWuXb1/lyTlSQZYVNyJ1z77yPQ2107dlrLl/Ud6N3vixjpNW7Q449T6taofX7lc6eJFihQqEEk9fPjQ/q+3b/5yw2efLJ4/98MV2w9mRIDYMvF3vXDH6b8SbJKkIB04wCOP8NBDpKRQuTIPP0zv3mHP9EOLF3P55axaBVCoEO3b060bnTtTsWLYk0mSspEB9r2CdZPGv1/k+otuGPnp3oxI6u61895cO+/NX/202JINLho4Zuj/NfbwlyTlHJMn07cvmzZRoAD9+nH//Tnp5lgpKdx3HwMHkpZG/fr8/e906ECZMmGPJUkKgrtG/FDR+r2Hf7Rmwai7Lm1Vu3SBX77OOaZAqZrxF905Ys7qZS9d07i0F0VLUs6QnMzZZ9OpE5s20bw5H33E4ME5qb6WL6d5c/71LzIySErio4+45BLrS5LyD4+A/VSBCk173Tum172pezd8+tHS5WvWbdyy4+s9+w+lpFGwaPESJUqULl+tTt269f7S6C81yrjphiTlHN98w7338tRTpKZy7LE8/DBXXEFszvlJY1oajz7KXXeRkkKtWowYQevWYc8kSQqaAfZzCpap2aR9zSbtw55DkvSrvtvncMAAduwgNpZevXj0UcqXD3usH1q5kssv56OPiIkhKYlHH6VEibBnkiSFwACTJOVuS5dy/fXMnw9w+ukMGcIZZ4Q90w9lZDBkCLfdxpEj1KjBCy/Qtm3YM0mSQpNzzsyQJOn3+fprbriBpk2ZP5/KlRk1ioULc1h9rVtHmzbceCMpKSQl8emn1pck5XMeAZMk5T5paYwYwZ138vXXFCzIddflsH0OgUiE55/npps4cIDKlRk2jISEsGeSJIXPAJMk5TKzZtGvH8uXA7Rvz+DBNGgQ9kw/sWEDV1zBrFkAiYk89xzHHBPySJKknMFTECVJucaWLfTuTZs2LF9O7dqMH8977+Ww+jp4kAcfpGFDZs3iuOOYMoXx460vSdL3PAImScoFIhH+/W/uuYeDBylenDvv5OabKVw47LF+KD2dUaO46y62bAG45BKGDDG9JEk/YYBJknK6lBSuuorRo4mJ4aKLGDSI448Pe6afmD6dW27hk08ATjuNQYNo0ybsmSRJOZEBJknK0fbsoVs3Zs2iRAnGjqVjx7AH+omVKxkwgGnTAKpV4+9/58orc9LtnyVJOYsBJknKuTZsoEMHkpOpXJnJk2nSJOyBfujLL3ngAV54gfR0ypZlwABuuIEiRcIeS5KUoxlgkqQc6sMP6dyZnTtp2JApU6hWLeyBvrdnDwMHMngwhw9TqBDXXce991KmTNhjSZJyAQNMkpQTvfYavXpx6BDnnMOECTnmHl8pKbz4Iv/4B7t2ERNDYiIDB1KzZthjSZJyDU9SlyTlOIMH06MHhw5x5ZVMnZoz6isjg7FjqVuXq69m1y7OPpulSxk/3vqSJP0uBpgkKQdJS+Oaa7jxRiIR7r6b55+nQE44V2PyZBo35pJL+OILGjXi7bd5911OOSXssSRJuU9O+LYmSRLAvn307Mlbb1GkCC++SM+eYQ8EvP8+//gHH34IUK0a995L795ucihJ+sMMMElSjrB5Mx078vHHVKrEm29y+ulhD/Thh/zjH7z/PkC5ctxyi5scSpL+PANMkhS+RYvo1IkdOzjpJKZOpXr1UKdZsYL77uPVV4lEKFuW66/npptyxoVokqRczwCTJIVs4kQuvZSDB2nfnldfpXTp8EZZvZoHH+Tll8nIoHhx+vbl9tvdX16SlIU8i12SFJr0dB5+mAsu4OBBrrqKt94Kr742beLqq2nYkDFjKFCApCTWrePhh60vSVLW8giYJCkcS5fyf//H4sXExvLww9x2W0hz7NzJY4/xxBMcOULBgiQlcdddVKkS0jSSpDzOAJMkBW3fPu66iyFDSE+nWjWeeYbzzw9jjq1bGTSIYcM4dIi4OC6/nLvvpkaNMEaRJOUXBpgkKVCTJ9O3L5s2UaAA/frxwAOULBn4EJs2MXAgL7zAkSPExNCjB/feS716gc8hScp3DDBJUkC2bOGGG3jtNYDGjXnuOU47LfAhNmzgoYcYNYqUFGJjSUzkH//g5JMDn0OSlE8ZYJKkbJeWxtCh/POf7NtH6dLcey99+xIXF+wQGzbw8MOMHElqKrGxJCRw332cemqwQ0iS8jsDTJKUvZYu5eqr+egjgIQEnnmG448PdoJ16xg0iBEjSEuLHvW67z5POJQkhcIAkyRll717uftuhg4lPZ1atXj6ac49N9gJVq5k4EDGjiU9nYIF6dWLf/6TE04IdghJkjIZYJKkbDF5Mtdcw5YtFCzIddfx4IMULx7g23/6Kf/+dzS9ChXi4ou5+25q1w5wAkmSjsIAkyRlsZ076d2bd94BaN2aZ56hfv2g3jsS4f33eewx3n6bSISiRbnqKgYM8L5ekqQcwgCTJGWlRYvo3p3NmylXjkce4bLLiIkJ5I2PHGHsWB5/nOXLAUqU4OqrueUWKlUK5O0lSfpNDDBJUpYZPpy+fTlyhBYtGD+eypUDedddu3j2WYYOZccOgOOOo29frr6asmUDeXtJkn4HA0ySlAWOHGHAAJ58EiApiSFDKFQo+9917Vqeeorhwzl4EOCUU7jmGnr3pkiR7H9vSZL+CANMkvRnbdnCBRfw4YcUKcLQoVxxRfa/5dy5DBzI1KlEIsTG0r49/fqRkBDU+Y6SJP1BBpgk6U+ZO5fERLZv5/jjee01mjbNzjdLSeGVV/j3v6MXehUuTI8e3H47DRpk57tKkpRlDDBJ0h83bBh9+5KaSuvWjBtHxYrZ9k7p6QwezKBBXuglScrVDDBJ0h9x+DDXXsvIkQBJSQwdSoHs+5ayYQOXXcacOQCnnkr//vTsGchFZpIkZTEDTJL0u335Jd27s3gxJUowYgSJidn5ZiNGcOON7NtHlSo89xwdOmTnm0mSlL0MMEnS7zNrFj17snMndeowcSJ/+Uu2vdOuXSQlMWkSwAUX8OyzHHtstr2ZJElBiA17AElSrhGJMHAg7duzcyfnn8+iRdlZX++8wymnMGkSpUvz3HNMmGB9SZLyAANMkvSbHDpEYiK3304kwj33MHkyxxyTPe908CA33MB557F1K+3asXw5SUnZ806SJAXNUxAlSb9u/346dWLmTMqUYcwYEhKy7Z0WLqRXL9aupUgR7rmHW28l1p8VSpLyDgNMkvQrvvmG889n/nyqVOG996hfP3veJi2NBx7ggQdIT6dhQ8aMoVGj7HknSZJCY4BJkn7Jnj2cdx4LF1KtGu+/T5062fM2ycn06sWSJcTG0q8fjzziLvOSpDzJAJMk/aydOzn7bD79lJo1ef99atbMhveIRHj+efr35+BBatRg1ChatcqGt5EkKUfwxHpJ0tFt20bbtnz6KfXqMWdO9tTXypW0bcvVV3PwIFddxfLl1pckKW8zwCRJR7FxIy1bsnIlp5zCBx9QpUpWv8HevfTvzymnMGsWFSvy5psMG0aJEln9NpIk5SwGmCTppz77jJYtWbeOJk2YPp3y5bP0V49EGD2aevV44gkyMujVi+XL6dgxS99DkqQcymvAJEk/kpxM+/Zs3UrLlkyZQqlSWfqrL1nC9dezYAFA06YMGULTpln6BpIk5WgeAZMkZVq2jFat2LqVs85i2rQsra+vv+aGG2jalAULOO44Ro3iww+tL0lSfmOASZKiPvqI9u356is6dOCtt7Lugqy0NAYPpnZtnnySuDj69WP1anr3JiYmi95AkqRcw1MQJUkAc+bQoQP79pGYyMsvU7BgFv26M2fSrx8rVgC0b8+TT2bbjZwlScoFPAImSWLmTM4/n337uOgixo7NovravJnevWnblhUrqFOHyZN57z3rS5KUzxlgkpTfTZ3K+eezfz9XXcVLL1Hgz58bkZLCffdx4omMGUOJEjz0ECtWkJCQBbNKkpTLeQqiJOVfkQiDBzNgAKmp3HADj/8/e3cZEFXWgAH4vTOEKAiC3bm6dq0tigKKoCh2Bwq26Lp2N+ra3YEJJgaKWKuooNi1FiqYgCBSw8zc74fx6So6TDDE+/z75p57eP2z37xzzj13oTYey7pxAz174to1CAK6dMHcuTp4iRgREVFGxQJGRJRFRUWhTx8cOABBwIQJmD5d4xnlcnh6Yto0yGQoVQrr16NRIy0EJSIiykRYwIiIsqLgYHTqhMePYW6OtWvRvr3GM969i549ERwMQYCbG/7+W3unKBIREWUefAaMiChr+bjtsEEDPH6MP/5ASIjG7UsUsWYNatZEcDCKFoW/P1avZvsiIiL6Ia6AERFlIZGR6NkThw9DEDB0KObNg5GRZjM+eYI+fXD6NAC0b4/Vq5ErlxaCEhERZVIsYEREWUVQEDp2RGgorKyweTMcHTWbThSxdi3+/BMfPiBfPqxeDWdn7QQlIiLKvLgFkYgo8/uy7TA0FLVqIThY4/b17Bns7ODujg8f0L49bt9m+yIiIlIFCxgRUSYXEQFHR3h4QC7H0KE4dw4lSmg2o7c3qlZFQADy5IGPD3bvhpWVdrISERFldtyCSESUmZ05g65dER6O3LmxZQscHDSb7vVruLvjwAEAcHTE2rUoUEAbMYmIiLIKroAREWVOH7cd2tkhPBzW1rh2TeP29c8/qFABBw7A0hLbtuHQIbYvIiKi1GIBIyLKhF6/hp0dPDygUGDiRJw8iUKFNJtx717Y2yMyEg4OuHkTXbpoJygREVEWwy2IRESZTWAgOnRAeDjy5YOXF2xtNZ5xwwa4u0Mux6BBWLIEEv54R0REpCb+nygRUaaydClsbBAejkaNcO2aNtqXpydcXaFQYPJkLFvG9kVERKQJroAREWUSiYkYOBAbNwKAmxuWLYOhoWYzKhQYOBBr1kAqxcqV6NdPGzGJiIiyNBYwIqLM4MEDtG2Lmzdhaor169Ghg8YzxsejY0ccOoQcObBrl8YvDiMiIiKABYyIKBM4dAjduyM6GmXLYs8eVKig8YxRUWjVCufPw9ISvr6oV08LKYmIiIjPgBERZWgKBaZMgbMzoqPh7IxLl7TRvkJDUb8+zp9H8eIIDGT7IiIi0iKugBERZVQREejSBf7+MDDArFkYNQqCoPGkt27BwQFhYahUCUePanx6PREREX2DBYyIKEO6cgXt2iE0FHnyYMcONG2qjUlPn0br1oiJgY0N9u2Dubk2JiUiIqL/4xZEIqKMZ80a1KuH0FA0aIBr17TUvvbtg4MDYmLQti2OHGH7IiIi0gUWMCKijCQxEX37wt0dMhnc3BAQgIIFtTHv0qVo1w6JiRg6FLt3I1s2bUxKRERE/8UtiEREGcaTJ2jTBtevw9QUa9eiUydtTKpUYuxYzJ0LQcC8eRg5UhuTEhER0Y+xgBERZQy3bqFZM7x4ob2z5gE8f45evXDyJIyMsGEDunbVxqRERESUIm5BJCLKAC5eRKNGePECNjYICtJS+9q2DZUr4+RJ5M+PI0fYvoiIiNIACxgRUXp36hTs7REVhZYtcfgwcubUeMaYGHTvjm7dEB0NBweEhGjpHA8iIiL6BRYwIqJ07cABtGiB2Fh064a9e2FiovGMJ06gYkV4ecHMDKtX48gRFCighaBERESkAhYwIqL0a8uWT2cTDh6MzZthoOFzu4mJGDMGzZohLAx16iAkBG5u2glKREREqmEBIyJKpxYvRq9ekMsxejSWLoVEw/9g37yJ2rXh6QmJBJMn49w5lC6tnaBERESkMp6CSESU7ogixo6FpycEAQsXwsNDs+mUSixdilGjIJPh99/h5YXq1bUTlIiIiFKJBYyIKH1RKDBgANauhYEB1q1Dz56aTRcaip49cfYsBAFubli4ENmzaycoERERpR4LGBFROiKToXt37N6N7Nnh4wMHB82m27IFgwcjNhb582P9erRooZ2UREREpC4WMCKi9CIuDm3b4tgxWFjA1xcNGmgw19u3cHPD/v0A0KkTVqxArlxaiklERETqYwEjIkoX3r2DkxMCA5EvH/z8ULWqBnMdPYo+ffDqFSwssHw5unTRWkoiIiLSDAsYEZH+vXqFZs1w4waKFYO/P8qUUXeihASMGoXlyyGKsLHB5s0oUkSbQYmIiEgzPIaeiEjPHjxAvXq4cQMVKiAwUIP2desW6tTBsmUwMMDkyfD3Z/siIiJKb1jAiIj06cgR1K6NJ09QuzbOnkXBgmrNIopYvBg1a+LGDfz+Oy5exJQpkEq1nJWIiIg0xgJGRKQfoohp09CyJd69Q5s2OHEClpZqTfT8OZo2hYcHZDK4uSE4mK/5IiIiSrf4DBgRkR7ExqJnT+zbB0HA6NGYNQsS9X4Q8/GBuzuiopA3L9atQ8uWWg5KREREWsUCRkSU1u7fR5s2uHsXlpbYvh3Nmqk1y/v3+OsvrFkDAM2aYeNGFCig1ZhERESkfdyCSESUd6LJxwAAIABJREFUpg4cQK1auHsXVaogOFjd9nXxImrUwJo1MDHBokU4epTti4iIKENgASMiSiMKBcaMQZs2eP8eXbogMBAlS6Z+FrkcU6agQQM8fIiaNXH1KoYNgyBoPy4RERHpALcgEhGlhchIdO4Mf38YGGDGDIwerdYsjx+jUycEB0MqxbhxmDIFhoZaDkpERES6xAJGRKRzV6/CxQWhociTBzt3okkTtWY5fx6tWyMiAsWLY+tWNGig5ZRERESke9yCSESkW15eqF8foaGoWROXL6vbvrZtQ9OmiIhAixa4do3ti4iIKINiASMi0hW5HGPGoHt3JCTAzQ3nz6No0dTPIorw9ET37khKgpsbDhyAubn2sxIREVGa4BZEIiKdCA9H+/a4cAHZsmHlSvTqpdYsSUno2xdeXpBKsWABhg7VbkgiIiJKYyxgRETad/cumjXD8+coVgx79qBGDbVmiYyEiwvOnoWpKbZv50uWiYiIMgEWMCIiLQsKgqMjIiLQoAH27UPu3GrN8uABnJzw778oVAi+vqhWTcspiYiISB/4DBgRkTadPAlbW0REwMkJx46p274CAlCrFv79F1Wr4uJFti8iIqJMgwWMiEhr9u2DoyNiY9GtG/buRfbsas2yfj0cHBAdDRcXnD+PwoW1nJKIiIj0hwWMiEg7VqxAu3ZITMTQodi8Wa03JIsipkxB375ITsbQofD2VrfDERERUTrFZ8CIiLTA0xNjxkAQMHkypkxRa4q4OHTrhv37YWCApUvRv792ExIREVF6wAJGRKQRUcSff2LhQkilWLkS/fqpNcvLl2jVCpcvI1cu7NkDGxstpyQiIqL0gQWMiEh9Mhl69sTOnTA2hpcX2rVTa5bgYLi4ICwMpUvj8GH89puWUxIREVG6wWfAiIjUFBcHZ2fs3AlTU/j6qtW+ZDJMmIB69RAWBmtrXLzI9kVERJS5cQWMiEgd797ByQmBgciXD0ePqnVQ/NWr6NkTN29CIsGIEZg1C8bG2g9KRERE6QkLGBFRqr14gebNcfMmihfH8eMoUyaV98vl+PtvTJoEmQwlS2L9ejRurIucRERElN6wgBERpc69e2jWDM+eoUIFHDuGQoVSef+tW+jVC1euQBDg5oa//4apqU6CEhERUfrDZ8CIiFIhKAgNG+LZMzRogHPnUtm+5HJ4eqJmTVy5guLFERCA1avZvoiIiLIUFjAiIlUdPYomTRARgZYtcfw4LCxSc/Pt26hbF2PGQCaDmxtu3uRZ80RERFlQGhQw8cPdXX+1GH4gSfd/iohIZzZuRKtWiItD797YuxcmJirf+XHhq0YNXL6MYsXg78+FLyIioixLrQImOz5/6ulIUYWR8Q/2T2hRsXrn+afCk9X5S0RE6YKnJ1xdIZdj9GisXw8D1Z+fvXMH9et/s/DVtKkOgxIREVH6plYBE98HeTo7jDkZ8bMOlhh6ZLpzlaouM/2eJqrS1YiI0iOFAgMHYswYSCRYsQJz5kAQVLtTqcSaNfjjDwQFoUABHDyI1athZqbbuERERJS+qbsFUXwfPK+1w+iAt8ofXJSFBcztUL2y06SDD+NFQDAq3GRoj1qGmuQkItKDpCR07oyVK2FsjB07MGCAyndGRMDWFu7uiI+Hqyvu3YOTkw6DEhERUQahVgGTlqpSyUwQYy/Pb9N8lP83HUz+6p/F3f+oaD/G+26sCAiG+RsM3Rx864SnU1Ge90FEGcq7d7C1hbc3cuXCiRNo317lO2/cQK1aOHUKBQrgyBGsW4ecOXUYlIiIiDIOtVqRQbVxR/b/9UdOiRgbssCl2cjjb5QAFBGXVvWtU8FmuNeNGKUIwSB3Lfc1F26fWdy9srmKG3aIiNKJ0FDUq4dz51C8OAID0aCBynd6e6NePTx5gurVcfEiHBx0mJKIiIgyGjVfxCzkbjLn6AGpY2vPSzFXF7Vtlji7j7B9xpqLb+QiAEGSq2qP6cvn9q+bR6rVtEREaeHWLTg4ICwMFSvi6FEULqzabaKIuXMxbhyUSnTpgnXrUnNUIhEREWUJahYwAIJV45lHDkqdnGddiL62csjQTx9LclbsNGXZ/MGNCvCZLyLKiE6dQps2iImBjQ327YO5uWq3ffiAHj2wbx+kUsyZg9GjdZuSiIiIMiaNHswSLK2nHT40sX6uj7MIJqXbzPa7dXnbcLYvIsqY9uxBixaIiUHbtjhyROX29fAh6tTBvn2wtISfH9sXERERpUTTkzGEXPUnHzo8xdpSAiA5UbQsnMdYG7mIiNLc4sXo0AGJiRg6FLt3I1s21W47dgy1auH2bZQti8BA2NrqNiURERFlZFo4mlCwqDvh4JHpja0EediBQfad19xN1HxSIqI0JIoYPRoeHhBFeHpi8WJIVPyv45o1cHLCu3dwcsKlSyhbVrdBiYiIKINT4RkwxR2fOd635b8YJVavX+qi74PEsAOD7JxuuDbM8+2XF4MK7ce0K88jOYgo/VEo0L07duyAsTE2b0bHjqrdlpSE/v2xaRMEAaNHY9YslUsbERERZV0qFDD5nd0zpnirvKolysMDlk8L+M+n2dpXGMkCRkTpjijC3R07dsDcHPv3o3Fj1W4LD4eLC4KCYGqKzZvh4qLTkERERJRpqH8KIhFRJjB6NNavR/bs8PVFw4aq3RMYiLZt8eoVSpXC/v2oWFG3EYmIiCgTUaGAGTVfdOPedKVmf0diVshIsxmIiLRtxgzMmwdDQ/j4qNy+Nm2CuztkMtjaYtcuWFrqNiIRERFlLioUMMG0YBk+Vk5Emc2KFZg4EVIptm6Fg4Nq96xdC3d3iCI8PDBvHgy4iYCIiIhSh98eiCgr2r4dQ4ZAELBypcqnbqxfj/79IYpYuBAeHrrNR0RERJmUDgpY8ouzG1fuCnzyIVuBCtbturerXYCbD4koPfH1Ra9eUCoxdy769VPtno0b4eYGpRKzZ7N9ERERkdo0ODRZjLm5fXynBmULlOjvJ/v8YcLlec2qN+0/Y8XmbVtWzx/drV7FBiP9Xmv4ABkRkdYEBqJzZyQnY/x4/PWXavds2oS+fT+1rzFjdJuPiIiIMjV1V8DEqJOjbJ3/vvpBhMSqvvjpU9mNBYMmn34tF78MU0YFL+jUpfjl44NL8wx6ItK369fh6Ii4OAwYgBkzVLtn0ya4ukKpxKxZbF9ERESkITVXwOLPTnVbdO2DCAgSY8tc2QUAQOI/q1ZdSRAFg2JtFhy/fuPcjtGNrCQQY07PnOUXq8XQRERqePAAzZohOhpdumDZMtXu2bnz09rXzJkYO1a3+YiIiCgLUK+AfTixfvsTuQhpUZdV197c/7uRIQDIgn2PvlRAYtFq1moPu8qV6nea7bPMxVIC5ZuDu07FaTU3EVGqPH8OOzu8fg17e2zcCIkq//HbtQvdu0OhwIwZGDdO5xGJiIgoC1CrgMnvXgiKVkIwsR61oG8lU+HzpwGnwhQQTG3aOeT++JmQu2V3R0sJlDEhQfflWgtNRJQqb9/C3h5Pn6JePezdCyNVTgbavRvdukEux4wZGD9e5xGJiIgoa1CrgClev3ijACSFa9Yo+GUCMerypX8VgGEV67rmwudPs5UuW0wKKF+94EkcRKQXMTFo3hz37qFKFRw+jBw5VLhn92507Qq5HNOns30RERGRFqm3BVGpVAIQspmYfGlaSLpyIUQmQlq0du1CX80qiiIAUZaUJH43DRGRjsXHo2VLhISgTBkcOwYLCxXu8fb+1L6mTcOECTqPSERERFmJWgVMkjtfbgmgfBH67Mv588lXA85EKiGxrG9dyfD/Q2Whj54pAMHM3Ez40VRERDqTnIx27fDPPyhcGP7+yJdPhXu8vdGlC+RyTJ2KiRN1HpGIiIiyGLUKmGH5mlWyC1C+O+rl+/bjwlbsqc0+TxQQTK2bN8z+/5ExAXuORykBg1JlS+ngnc9ERClRKNC1K44eRd68CAhAsWIq3OPj8//2NWmSziMSERFR1qNeKzK379TCcv+uyLc+/Vv0fT7EzurB1skbnikgmFk7Nfn0AJgY/+zUymFDvF4qAYOyNo0La/DOZyKiVFEq0acPvL1hYYFjx/Dbbyrc4+ODzp0hl2PKFLYvIiIi0hH1Cphg2WbKBGu/Eadjoi9v+Kvnhk+fGv7ef2zHvAIA5aPFNpWH/xMvigAkls2GuVbiAhgRpQ1RxKBB2LIFOXLgwAFUrarCPV/a16RJmDxZ5xGJiIgoq1J3Wcqg3NBdeybYFDD88mSXJGeNEcvH1DUBAIiKxMRkUQQg5KjYb8Pq3kW5/kVEaUEUMWQIVq1C9uw4dAjW1ircs3//p52HEydi6lSdRyQiIqIsTP11KUneptNO3O917sjx4CfvYFm2UUunmgU+v1xHkJoWKFOtcQVr595D3BxKZf/pTEREWjN2LJYvh5ERfHzQuLEKNxw+jI4dkZyMceMwbZqu4xEREVEWp9nGQIlZSeuO/X/wA7Ok1KD9twdpNDcRUWpNmABPTxgZYc8eODiocMOJE2jXDjIZPDwwc6bO8xEREVGWx52BRJRJTJ2KmTMhlWLrVjg5qXDDuXNo3RqJiRgyBAsW6DwfEREREQsYEWUOCxdiypRP7atDBxVuuHABLVogLg59+mDxYgh8UyERERGlBRW2IMoCxjYZcyIJgFGDKX4LHc2++kRlxrZzTs5uavTrgUREqbVkCUaMgESCTZvQubMKN4SEwNERsbHo2RNr17J9ERERUZpRoYCJ7x5duXw5EYBx/gj5t5+oLFuJd6JaAYmIfmrDBnh4QBCwYgW6dVPhhmvXYGeHd+/Qvj3WrYOEGwGIiIgo7ahyCIeJVeHChRMBGFvlkACAYJq/VOnSqVsBy2/Kn5iJSNs2b0a/fgCwbBnc3VW44eZN2NoiKgouLti+HQZ8QyERERGlKRW+fBg7rnzwfOXXnxg1X3Lrga4SERGpxtsbrq5QKuHpiYEDVbjh/n3Y2yMyEg4ObF9ERESkF9x7Q0QZ0t696NIFCgVmzsSoUSrc8OABmjTBq1ewt8fevTA21nlEIiIiou+o8wOwGHXv3LVwmSjJU8G6cn6p1jMREf2cnx+6dIFcjilTMG6cCjc8fQo7O7x4AVtb7N+PbNl0HpGIiIjoR9RZARMkwfMc7WxtHUYfjuLJGkSUxo4fR5s2SErCiBGYPFmFG54/h40Nnj5F/frYtw8mJjqPSERERJQCtbYg5ihSLI8EUDwPfa7QdiAiop/w9//08uThw/H33yrcEB4OGxs8eYK6dXH0KExNdR6RiIiIKGVqFTDD2p06lDYQFP8ePnxXru1EREQpCAiAszMSEjBwoGrt680b2Nnh0SNUq4bDh2FmpvOIRERERD+l3iEcJvUmb5pUz0JxfeGQv0M+aDlSOiCPfnzljN9BX/8Lt55GJf5qm6U88vHN69evX7/5NIY7Mol05p9/0Lo1EhLg6oqlS1V4efKLF7Cxwd27qFYNAQHIlSstUhIRERH9lJqnIApmdSYcPbWyc/4r4xrXbjd5y6k7r+OV2k2mH3H/HpjavmqBfKVrNnZwbmVfr1KJvAUrt5+068a7FP954pvd/WpWrVq1aq2//GVpmZUoCzl3Di1a4MMH9OmDNWtUeHnykyewtsadO6hcGcePs30RERFROqHWa3CSLy3uu+iiDECZ3/M+vLxnWs890wSpcQ5zi5zZDX/8vSib06pbKx3T97HPytfHR7fquCAo+uuuJSre3fKZ3vnI3oDNh5a3K26ot3REWdf583Bw+NS+1q5VoX3duwc7O4SFoUYN+Pkhd+60SElERESkArUKmPL5+d07vRO/+UxUJH2Iev0hKoVbskUmqPOX0pD8weoenT+2L0Gas1j1OrWr/ZYr/mnImRPBzxPE+NvrutgkCYEb2xbgq9OI0lJg4Kf21auXau3r6lU0a4a3b2FtDV9f5MyZFimJiIiIVKNWARNylapRs2ZSam4xLpXrlw9s6JMYfXj6tBNRSgiGRVvN3b1+SG2rTy84Swo/9bdr18nHXyaHeg0eYl9nd9dCrGBEaSQwEM2bIzYWPXti/XoV2ldQEBwcEBWFFi3g48MT54mIiCi9UauAGTWdfS54traj6FXs8W0HXishGFX6c9c2j9o5/n/FuJDNuAMnzVrW9/CPerVvxLCdTXZ34SoYURq4cAEODoiNRceOqrWvU6fg7IzYWDg7Y9cuGKfvTc9ERESUJbFJAACSbwWFxIkQTJoMGfZ1+/rEuNygdfMdc0ugfLN/4sxTsXpISJTFXLkCR0e8f48OHeDlBan0Vzf4+qJFC8TGont3+PiwfREREVH6xAIGAFBGvolQAtISNavn/uFWSUnRHvMnNDQVoHiyftyyW8lpHZAoSwkJgZ0d3r1D+/bYtg0Gv1yq374dLi5ITMSgQdi0SYUbiIiIiPSDBewjURQBQCFXpDRC+pv7vGGVjAQx8fLf47eFZYpD94nSo6tXP7Wvdu2wfbsKZWrVKnTvDrkco0dj2TIVtioSERER6Q2/qQAApPkK5JMAimdXQl6nWK2y1fxrXp/iUigjD43x2BHOCkakfVevwtYWUVFo1w47dqjQvjw9MWAARBHz5mHOnLSISERERKQBFjAAgEH52jXMBIgJp5csOP9eTGGUYG43dW7HAhIoX+8b4b72X752mUirrl2DnR2iotC2rWprX1OmYMwYSKVYvRojR6ZFRCIiIiLNsIB9ZGbXtXV+CcTku4s7tpt58qX8x8OEvC7zFrYvJIXyzZGhjn29/o1P25hEmdf167C1RWQkXFywYwcMf/7Wc1HE8OGYOhUGBtiwAf36pVFKIiIiIs2wgH2S02HiFHsrCUTFS/+JtqVL1GrVe/jEOSv8Q//zUJikYIcVmz2qmgqi7OHWHtWrOXnM3xUSmdKaGRGp5O5dNG2KyEi0aYOdO3/VvhQKuLpi0SIYG2P3bvTokUYpiYiIiDTGs8I+k5bst9X7Wev2cwIjFWJ8WLDvpmBfwaJ7BVe74t+efy1YNp0XcCSni8vUMxFx/x5ePOqwnhITZRKvXqFFC0RGolUrFdpXQgK6dMH+/TAzw4EDsLFJo5RERERE2sAVsP8TctvMOHn12Pw+DYubSn94GP2XkZYNJx0+vXlIo8LZfjqOiH4lIQFt2iA0FH/8gR07YGT009Fv36JpU+zfD0tLnDjB9kVEREQZDlfAvmVUpOmI9U2HL3/78NbNe6GvPuStktKP8TkqdFtyuv24q/4HDp0IvHLj3pPwaMtsaZqVKMNTKtGlCy5eRIkSOHQI2bP/dPS9e3B0xOPHKF4chw6hQoU0SklERESkPSxgPyJky1OmZpMyNX850Dh/NSf3ak7uaZCJKBMaPhz798PKCkePIm/enw49fx6tWyMiArVq4eBB5MuXRhGJiIiItEorBUz+/vndm/dCX7yJik3MXsm53R+5BVEUBYHb84goRQsWYMkSGBnB2xtly/506K5d6NULiYlo0wZeXr9aKSMiIiJKvzR7Bkx8f3PHmNaV8ucuVrmBfasO3Xq59p9y4JkCSD77Z7UKtv3mH34Yp6WgRJSZ+Ppi1CgIAtav/+mTXKKIKVPQuTMSEzF0KHx82L6IiIgoQ9OggCU/3t67Vp2ungduRSZ/dwy7mBx1P2DdXy2r13Hd8Shzv7A48d3LF+Hh4eHhL6IS9Z2FKEMIDkbnzlAoMGcOunVLeZxMhh49MHUqJBIsW4bFiyHhuUFERESUsam7BVF8f2asc58t95NECAZWvzd1sq8af2KB961PTUySu9RvuY3CXstib23s7ZQjz4XFthaZdENi0rEhZdtsixWBbO29o3e3M9bazFFRUSEhIWrcGBsbq7UQRNr25AlatkRcHPr2xahRKY+LioKLC86cgakpduyAk1PaRSQiIiLSGTULWPL1hR5LbyeJgmFxl0V71vWvbiFJ8umw2PuW/ON1aUUP/3uNVru3H+b9KOn+Ko95PUJm1vz58dL0X25ubnv27FH79rCwMC2GIdKKqCg4OOD1azg4YOXKlMc9fgxHR9y7h4IF4euL6tXTLiIRERGRLqlXwBLPrdtwUyYKRlVG7d4ysPoPH8kQLKr137I36lndCRfj725ef3ZSTVvtLQ5lCd26dYuLi5PL5am98dKlS7GxsVZWVrpIRaQ2mQzt2uH+fVSsiB07YJDSf34uXoSzM968QeXKOHQIRYqkaUoiIiIiXVKrgMnvnz77QgHBpMngwTV/9kC8caX+Q5p5Xtr3/vX5f+7JbatkxkPvjaynnrw4RCECEqsyWl3ka926devWrdW4sUaNGiEhISYmJtpMQ6QZUYSrK06dQqFCOHIE5uYpjPPxQY8eSEhAs2bYvRs5c6ZpSiIiIiIdU6sSKZ6HhikAaYka1XP//MkuwbxytVIG+64qXjwPV6KKWhHTOSFXqZq1Suk7BVF6N3YsvLxgZobDh1Ne01q8GCNGQKmEmxuWL095jYyIiIgoo1Lr+40gSAQAMDCQ/mqoqJDLRUBUKpTfnZRIRFnE+vXw9IShIXx8UOWHv8TI5XB3x4YNkEqxaBGGDUvriERERERpQq0znSX5C+aXAoqnd+7/4jVf4vvbt54qAGme/Hl/WdaIKDPy80P//gCwZAns7X80QhTh5oYNG5AjB/bsYfsiIiKiTEytFTCD8o3q55lz5+V7v7XbQ9sNKJ5ii5M/3LLmeKwIiUXteuUz5mYi+YeI128j372PT0pWSoxzmJmZmefOl8c0Y/5jiNLcrVvo1AlyOSZN+lTDfmD0aGzcCFNTHD+OunXTNB8RERFR2lKvSJg07NG59MaF/8aeHNdtaqWDUxpY/uBRMOWbgPHdJp/9IEJaqHVnG1MNk6ahhPCLvrv2HPL/59LVW4/fxMm/3TwpCEY5C5UqV+kPGwfn1q2b1yqSPZO+4YxIU0+fonlzxMSge3dMmZLCoDlzMG8eDA3h7c32RURERJmeWlsQAZP6Y+Z2K2ogKKPPT7etYtN/3o4TV57FigAUCe9ehd4+t3tO7/pVWswLei9Cktth6vhmGeMoM2XkpVXu9UqWrNfxz/lb/S79+/q/7QuAKMpiwu5eOrplztC2dUsVr9Vr8bnXCn2EJUrXnj9HkyYID4eNDdatg/DDHyq2bMG4cZBIsHUrmjdP64hEREREaU7drXRCHuflBxa8cfzzaHhS2JnVo86s/nTh/gLbIgv+P05iUWu09+beKe9STEdkj7b3dejj9SDpc+cSpNktCxYpWqSAlVl2ExNjqVKWmBAfG/U6/Pmz8LcfkkVATH57efPwJqdOLz2y3b0Cj30n+uT1a9jb4/FjVK+OPXtg9MM3NBw8CFdXiCIWLULHjmkdkYiIiEgfNHiWKXuVIQevVFn818i5uy6/ln23UCRIzX9zGDh74aQ2pbNpkjCtJARNa/uxfQnGBet0dOvX1dm2bqUiZj88O0SZ8Ppe8Bk/n81rNvvdf5/87MBQl1Glg5Y0NeduRCK8eYMmTXDvHqpVg78/cuX60aBTp9CxI+RyTJ+OoUPTOiIRERGRnmh2mIQ0n/WILUEDZgef8Dv5T/CdZ28i38sMzSzzFCpTrV4jO7sGpc0zwsoXACifbRy38EaSKEgLtVxwYPOQGhY/rVISk3zlrTuUt+4waMTBv1y6LLsa92Dt+NWDG48qy7MeKYv72L7u3EGVKvD3h6XljwZdvw4XFyQmYtAgTJiQ1hGJiIiI9Ee9AhYf8extHIzM8xewMAJMCv3R0vWPlq4/HKqIfR0elQhjy4L5zdLv0YHK5/t3nUsQIS3qun7r0BqqP7BmXLzVwl3Tr1X585+EkH2+T/4sW5oNjLKwt2/RtClu30blyjhxAlZWPxr08CGaNUN0NLp2xZIlaR2RiIiISK/UWqFKOjKwbPHipWzn35L/aqgYtbvXb8WLl2o8M+SXY/VIfufa7WQRkrwt2tuk9rgQaam27WsZAooHd/7lYRyUhUVHo3lz3LqFcuVw7Bhy5/7RoPBw2Nnh9Ws4OmLjRkgyyiI5ERERkXbo+tuPYGRkJACKV+Gv0nM5EZOSZCIgmJqZpv4pLklOi5wSQJQlff8kHFEWER0NOzuEhKBsWZw8ifz5fzQoMhL29ggNRZ062LULhoZpnZKIiIhI31TcFah8eXGP//34T/0iOfipAhBjbvhu3XzzZxVOmfjizKpTSQCQvk+nkBYuVliKu4qwKyEvlXWKpq6WJlwPvpUMSPIVyMdf8ylLiomBvT0uX0aZMjh5EgUK/GhQfDxatcKdO6hUCUeOIEeOtE5JRERElA6oWMDkdzYP673qpfKbD8N9p/TxVel2waRyjYrp+cdug8pODsXm3n2UcMZzjHfLrR2LqPwklxgbNG/s5lAFJHnrN66cnv+NRLrx/j2aNUNwMEqXxqlTKFjwR4OSk9G2LQIDUbIkjh1L4WBEIiIioswvDZZsBIll7ZEzepVI16tDRrXdhzTMKUDxbGePus1GbQ16mfTLexTR9w7P71bPbuqF96JgVKHfIDv+pE9ZTVwcWrbEpUsoVgz+/ihU6EeDlEp07w4/P+TNi6NHU1ggIyIiIsoSVFwBM6w6ZPvR1p/fUJz8z6y2M88qinZatLJXmZ+vFQnS7HlKV6pY3CK9rw1Jfxu4at4Jm4GHX8rCA+b1qLPIo3StBg1qV/u9ZLHCBXKb58iWzchATE5MTPgQ+Srs+ZN/rwcHnrt461W8UgQgsag/af3YP4z1/Y8gSlPx8XBywtmzKFoUp06hePEUxg0fjl27YG4OPz/89ltaJiQiIiJKb1QsYIJV+cb25T//r6TY9RJAaVqqnn2z6un3bPlUMizrtjsg25DOwzbeiFaKyVEPzh98cP7gL2+TmJXv7Ll1ef/qXP6iLOVj+zp9GkWK4NQplCiRwrgJE7BkCUxM4OuLatXSNCIRERFR+qPWvkBpGcchHh5De9TLm663Faaeye891l2+f2HzpG6vLpDrAAAgAElEQVTWpcwNfn5uiGCQs0T9zuM2/HPvqteA6ubp+5ARIu1KSECrVjh1CoUL49QplCyZwrhp0zBzJgwN4e2Nhg3TNCIRERFRuqTW+pVBlZ5zF/bUdpR0wiBvre5Tt3afmhz95MblkJv3Hz0Nfx357kOCTA5DkxympqbmeYqWLlu2XMUqGWBjJZEOJCaidWsEBKBgQQQEoFSpHw0SRYwahfnzIZVi0yY4OqZ1SiIiIqJ0KdNsINQ6Q4sSNWxL1LDVdw6i9GbkSBw/jvz5ERCQwiNdoggPDyxZAiMjeHmhffu0jkhERESUXqlVwBSPjq3zeyhP1d8p3bxvs1IqH+5OROnT6dNYsQJGRjhyBOXK/WiEQgFXV2zeDGNj7NoFZ+e0jkhERESUjqlVwORX13sM9k5MzS3Z2nv3YgEjytji4tCvH0QREyemcKCGTIbOnbF3L0xNsX8/mjZN64hERERE6ZvOtyAKEqlUIsBAylMqiDK6UaPw8CGqVsXo0T+6HB+PNm1w/Dhy5cKRI6hTJ63zEREREaV7ahUwI5vpJ88NU6ZwVSn7EPn8TuCRbZv3hrxJRvZy3VftXdn1N74kiyhDO30aK1fC0BDr18Pw+/NnYmLg6Ijz55EvH44fR+XKeohIRERElO6pVcAEq7J165f96ZBmrXsMG31hXufW4/xvb+pll2QUuLV9oUx2aD1R1vH15sPq1b+7HBUFBwcEBaFoUZw4gTJl9BCRiIiIKCPQYSeSWNUdtXNdjyJSUf5s14jpJ+J196eISLdGj/60+XDMmO+uvXqFxo0RFIQSJXD6NNsXERER0U/odlFKsHQY2LW0AaB4GeB/I1mnf4uIdOTjyYc/3nwYGoqGDXHzJsqXx7lzKFFCPxGJiIiIMghd7wo0KFuhHN81RpRxxcenvPnw3j00bIiHD1GzJs6eRcGC+olIRERElHHouoCJiYmJIiAYla9S7vvH9okovfty8uF/Nx9evQpra4SFwdoaAQGwstJPPiIiIqIMRccFTIwMOBacDAgWBfJn1+2fIiKt+7j50MDgu82HwcGwtcXbt2jRAn5+yJlTbxGJiIiIMhRdFjDluyvLXEfte6eEYFShWnkugBFlKF82H06a9O3mw4sXYWODqCh06ID9+2FioreIRERERBmNWs9nJZ+d0Xr6GdnPhoiyd8/u3nkUkaAUAcHCvlurAnwTM1GG8nHzYZUq324+TEhAjx6Ii0OvXli3DlKp3vIRERERZUBqFTDlmxsnT5xIVG2wYFDI+e+/u7J/EWUk589j5UoYGGDDhm83H44fjwcPULkyVq9m+yIiIiJKLfVOKDTKmTt37l8VMEFqkqtopSZdRowf2LQwT0Ikyjji49GrF5RKTJ783ebDJUs+PRNmZKS3fEREREQZllrFyLjVuudv12k7ChGlEx9fu1ylCsaO/erTpCS4ukKhwLhxqFlTb+GIiIiIMjJdH0NPRBnM+fOfTj787+bDiRNx5w7KlcPEiXoLR0RERJTBsYAR0f992Xz439cuBwVhwQJIJFi3Dtmy6S0fERERUQbHAkZE//eLzYcjR6J+fb2FIyIiIsr4VHgGTOY3tPqQo0ma/R1jh6UhS5rzoX2idCzFzYfTpuHWLZQtiylT9JWNiIiIKHNQoYCJH149evhQxUPnU5Lt1QdRsxmISJdSPPnw2jXMm/dp8yHfuUxERESkGRUKmJCzaIWKFTVdASuaky8CI0qvRBFubnj4EFWrfrv5UC5Hnz5ITsaIEWjQQG/5iIiIiDILFQqYkf38yzfn6z4KEenL6NHYtg1mZti69dvNh9On4+pVlCiBadP0Fo6IiIgoE+EhHERZ3YoVmDcPhobw9kbFil9duHEDc+ZAIsGmTciRQ2/5iIiIiDIRFjCiLG3XLgwZAkHA2rVo1uyrCx83H8pkGDQI1tZ6y0dERESUuaiwBVElye9C7z0Mj3j3PlGSwzJ3wZLlSuXJxoe+iNK306fRsyeUSsybh549v702ezauXEHx4pg1Sz/hiIiIiDIjDQuY+P7uoXVLV27ad+b263jll3MOBcHYqlxDlz5Dhru1LMfTN4jSo1u30KYNkpIwcCBGjvz22t27mDULgoA1a2Bqqp98RERERJmRBlsQxagLf7epVt35z5VHb776qn0BEMWkiLsn1vzVunr1touConkAPVE6ExaGFi0QHY2OHbF06bfX5HL07InERPTvDzs7/eQjIiIiyqTUXgFLvLGwndOoU1FKAII0Z/E/rBvU+L1onpzGyriI5/dC/jl98VG0XEx4tO9PpzjpqYNDKhhrMTURaSAyEnZ2eP4cjRtj82ZI/vM7zPz5CA5GsWLw9NRPPiIiIqLMS80Cpni4euik01FKCEbFHMYvWzzCsbTpNzsNxbjHfouGDZx+ODTprf+EYeudjg8swQM/iPQvIQHOzrh3DxUrYt8+GP/np5F79zB1KgQBq1fDzEw/EYmIiIgyL/VKkfzy2hXn40RI8jgtP7l/ktN/2hcAIUdJh/F7A5Y75ZVAfH9m6doQueZhiUgzCgW6dsX58yhcGEeOwMLi28tKJfr2RWIiXF2/PRKRiIiIiLRDrQKmeHDy5BM5YFjNw7N3ScMUxxmW7DV3eA1DAfJHJ048Uqgdkoi0Y9gw7NsHKyv4+6NIke8uL1iA8+dRsCDmztVDOCIiIqIsQL0CFvY0TAFIi9nYlJb+dKS0dJMmJaWA4nnocxYwIr2aPBnLl8PEBAcOoFy57y7fv49JkwBg7VrkypXm6YiIiIiyBLUKmJgQFy8Ckhxmpr+6XzA1MxW+3EFEerJ2LaZNg1SKbdtQv/53l588QfPmSEhAz55o0UIP+YiIiIiyBrUKmMQyj5UEUIQ9fJzwi6FJjx8+UwASqzxWPIODSE98fTFwIAAsXow2bb67/OABrK0RGop69bBsWZqnIyIiIspC1GpFBr9Xq5xdgPLdkU37Xih/MlB8tX/z4UglhOyVqpfT8J3PRKSWS5fQuTPkckydikGDvrt8/z5sbBAWhgYN4OfH1y4TERER6ZRaBUywtG/bxFyAMvLgnz3mB8X8eHOh+P7Kgp7D975VQjBv4mJn+d+DEolI5+7eRYsWiIuDm9unJ7z+e9nGBuHhaNQIR4/y3HkiIiIiXVNvX6CQr+Pk4dVMBCjfBoxpVMVuyOJ9Fx9GJn0sYqIs6vGlA0uHNavS4K/jb5QQslUdNqljPvYvojQmk6FjR0RFwdkZK1Z8d/naNVhb4+VLNG+Oo0e59kVERESUBtTdF2hUbezuVbea9PV5lpz4NGCZR8AyD0FiaGKWwzA5PjZBpvy8KCYYFG6zYvf46sY/nY2IdGD6dNy8id9+w/btkP7nwNKQENjbIzISLVpgzx5ky6afiERERERZjPonYxiW6rEjyH9Ou/Lm0o+LW6IyOT4mOib+c/sSJDnLtpl5LGhX79IpvyqMiHTj2jV4ekIiwbp1yJ7922uXL8PODpGRcHLC3r1sX0RERERpRqOTMaT5Go3yvtn/35N79x8/e/Hqg/CId7HJhqa5rAqWqlrH2q51W7ty5jz7kCjtyWTo0QPJyRgxAg0bfnvt3Dm0aIHYWHToAC8vGPL3ESIiIqK0o/nRhJKcv9n2GmXbS/MsRKQlM2bg5k2ULIlp0769cPYsHB3x4QM6d8aWLTDg4aREREREaYoLVESZzbVrmDMHEgk2bUKOHF9dOHYMzZvjwwe4usLLi+2LiIiIKO3p4BtY8ouzG1fuCnzyIVuBCtbturerXcBI+3+EiH5ILoerK5KTMXz4t5sPjxxB27ZITISbG1auhIQ/vhARERHpgQZfwsSYm9vHd2pQtkCJ/n6yzx8mXJ7XrHrT/jNWbN62ZfX80d3qVWww0u/1z17WTERaNH06QkJQosS3mw8PHYKLCxITMWAAVq1i+yIiIiLSF3W/h4lRJ0fZ1Os2a9f5f9/Eyj4fOi+7sWDQ5NOv5V/ezCwqo4IXdOqy4qFC86hE9AvXr2P27E+bD///Wq/du+HigqQkjByJFSsg8J18RERERHqjZgGLPzvVbdG1DyIgSIwtc2X/+I0u8Z9Vq64kiIJBsTYLjl+/cW7H6EZWEogxp2fO8ovVYmgi+t6XzYdDhsDa+vOn3t7o0gXJyZgwAfPm6TMfEREREalbwD6cWL/9iVyEtKjLqmtv7v/dyBAAZMG+R18qILFoNWu1h13lSvU7zfZZ5mIpgfLNwV2n4rSam4j+Y8YMXLmCEiUwY8bnjx4/hqsrFApMm4bp0/UZjoiIiIgAqFnA5HcvBEUrIZhYj1rQt5Kp8PnTgFNhCgimNu0ccn/8TMjdsrujpQTKmJCg+3KthSai//iy+XDjxs+bD5VK9O6N2Fi4uGDiRD3nIyIiIiIAahYwxesXbxSApHDNGgW/TCBGXb70rwIwrGJd1/zLQybZSpctJgWUr17wJA4iHfm4+VAmw+DBaNTo86ezZuHsWRQqhLVr9RmOiIiIiL6i3hZEpVIJQMhmYvL/x/mTrlwIkYmQFq1du9BXs4qiCECUJSWJ301DRNowc+anzYczZ37+KCQE06dDELB2LSwt9RmOiIiIiL6iVgGT5M6XWwIoX4Q++3L+fPLVgDORSkgs61tXMvz/UFnoo2cKQDAzN+PRa0Q6cOMGZs36dvNhfDy6dIFMBg8PODjoOR8RERERfUWtAmZYvmaV7AKU7456+b79uLAVe2qzzxMFBFPr5g2z/39kTMCe41FKwKBU2VI6eOczURb3ZfPhwIFfbT4cORL376N8+a9WxIiIiIgoXVCvFZnbd2phuX9X5Fuf/i36Ph9iZ/Vg6+QNzxQQzKydmnx6AEyMf3Zq5bAhXi+VgEFZm8aF+epXIm2bPRuXL6N4ccye/fmjY8ewahWMjbF9O0xM9BmOiIiIiL6jXgETLNtMmWDtN+J0TPTlDX/13PDpU8Pf+4/tmFcAoHy02Kby8H/iRRGAxLLZMNdKXAAj0q47dzBrFgQBa9Z83nwYEYFevSCKmDEDVaroOR8RERERfUfdZSmDckN37ZlgU8Dwy5Ndkpw1RiwfU/fjL+6iIjExWRQBCDkq9tuwundRrn8RaZNcjp49kZiIgQNhZ/f50wED8OoVGjbE8OH6DEdEREREKVB/XUqSt+m0E/d7nTtyPPjJO1iWbdTSqWYBo08XBalpgTLVGlewdu49xM2hVPafzkREqTZnznebD9etg48PzM2xdSukUn2GIyIiIqIUaLYxUGJW0rpjf+sfXCg1aP/tQRrNTUQpuXsXM2dCELB6NczMAACPH2PECABYsQLFiuk1HRERERGliDsDiTIYpRK9eyMxEe7usLcHAMjl6NYNsbFo2xZduug5HxERERGlTAtHY8heXz95/OT5oFtPXkVEJwjZLazyl6j0R/3GdjZV8xtrPj0RfWPlSly6hCJFMHfu549mzcKFCyhUCGvW6DMZEREREf2KRgVMGRW8ZozHjK0XwhPF7y4Kxvlrtv/T09PDpiAPQCTSklevMGECACxd+nnz4ZUrmDEDEgm2bIGlpV7TEREREdEvqL8FMfmxV7eaDQeuDfxR+wIgJr0K9hplV9V+1sWYHw4golQbOhTR0WjdGs7OAID4eHTtiuRkDB+OJk30HI6IiIiIfkXdApYYPL1tv51PkkRAMMpfq8v4FXtOX33w7NXb1+GPb547uHZyj7oFjQWIirenJjr33PJMqdXURFmSnx+8vZEjBxYu/PzRiBG4fx/ly2PGDH0mIyIiIiLVqLc7UBm2ddKi64kiBIPCTvP2bhr6h+X/m1zuvAVLVKzf0nXYkCW92oz0DZO/8R070dd5k7OF8JMpiein4uMxaBAAzJiB4sUBAH5+WLMGxsbYvh3ZsukzHBERERGpRq0VMPHVEZ8zH0QIRuVH7Nrh8XX7+j8hV81h23eNKG8kQPnqgJdfNPchEmlg6lQ8fozKlTF4MADg7Vv07g1RxKxZqFJFz+GIiIiISDVqFTD5vzfvykQI2RoOGlInx08G5qg7bGhjEwHih5CgO3I1IxLRrVtYuBASCVavhsHHdeu+ffHqFRo2hIeHnsMRERERkcrUKmDK99ExSkBSqFq1fD+fQMhbrVoRKaCMeBvJx8CI1KJUwt0dyckYPBh16gAA1q3DwYOwsMC2bZDwbX5EREREGYZaX90kVnmsJAAUCsWvhooKpVIEJBa5zPktkUgta9YgMBAFCmDaNADA8+f4808AWLECRYroNRoRERERpY5arcigbLVK2QUowwMDn/y8gimfBQY+U0IwKluhDN8GRpR6r19j3DgAWLYM5uYAgMGD8f492rVD5856jUZEREREqaZWARNyOw/qUlQqyi4vmrg7POUKpny5Z9LCi0mikL1+G4f8PAORKPU8PPDuHRwc4OICANi6FQcPwtISy5bpORkRERERpZ6a+wJz2s3aMLyaqfKFt2vTbssC33x/wIb87cWVPZr22hGmEAxK953Qoyh3IBKl1vHj2LkT2bNj+XIAQETEp82HCxciXz69RiMiIiIidaiwL1D59Mz206Hfr3OV79btj6drgu/vHNLggOcfzRxs/ihfLK+ZYXLsm2d3L58+euzS83gREAxLdZvat1hkRHyO3Nl18A8gyqwSEjBwIABMm4YSJQAAAwbg7Vs4OKBHD71GIyIiIiI1qVDAkoOX9+vlnfiTEWJCWND+tUH7f3gt+dGmLpU2ZWvvHb27nbGaKYmyoBkz8OgRKlXC0KEAAF9f+PggR47Py2FERERElPFwYyBRenT7NubP//TiL0NDICYGAwYAwLx5n5fDiIiIiCjjUWEFzLDheF8/118eOP9z0vxVDTWbgSjLEEUMHgyZDIMGoW5dAICHB8LDUa8e3N31HI6IiIiINKBCAZPkq2LbrIruoxDRR+vW4fRp5M+PGTMAACdPYvNmGBtj3Tq+dpmIiIgoQ9P5lzkx7un5HXMGtp3kL9P1nyLKDCIiPr34a/FiWFgAcXHo1w+iiOnT8fvv+k5HRERERBrR2duR5VF3Any2e23bfuB8aKxCzNa+iairP0WUmQwfjogING+ODh0AAGPG4PFjVKsGDw89JyMiIiIijWm7gImJLy4f2um1bdvuo1dfJbFzEaXKmTPYtg0mJp9POrxwAStWwMAA69fDkI9REhEREWV42ipgipgHZ/Zt3+a1fe+ZB9Hyb4qXYGhZzqa94+86W2wjyhySktC/P0QRkyejZEkgKQl9+0KpxMSJqFZN3+mIiIiISAs0bUWy11eP7t6+bdvOw8Hh8cqvi5cgzVmifsuOnTp1bGtfJa+Rhn+HKPObORP37qFSJYwYAQCYPBl37qBcOYwdq+dkRERERKQlahYw5YfQ8wd2bNu2zefEncjkb3caSqyqtOnRs1OnDo5/FDIRtJCRKAu4cweenpBIsGoVDA2Ba9ewYAEkEqxfD2O+wpyIiIgok0hlAUuOvH3Ce9u2bTsOBD798PWClyAxyV8qb9yjp++VRk0mbFvQjt8YiVSmVMLdHTIZBgxAvXqAXA5XVyQn488/Ua+evtMRERERkdaoVsDEhLAg351e27Z5H7v++pujNQSjPBWbunTs3Kmjcz3Z0npVJ1xR6iYoUSa2ejXOnUP+/Jg1CwAwZw5CQlCiBKZO1XMyIiIiItIqFQpY8unRVVv/fTdG8fWCl4F56YbOHTp16uRiWzH3x8PZFHd0lJEoU3v16tOLv5Yvh4UFcO8eZs6EIGDNGuTIoe90RERERKRNKhQwZcSTx5/alyDJUbhWiw6dOnVq36JGwWx8wItIc4MGIToajo5wcQGUSvTti8RE9O8PW1t9RyMiIiIiLUvNM2CCUaEmA6dNHNi+YfEc7F5E2nD4MPbuhZkZVq0CACxejPPnUbAgZs/WczIiIiIi0gFJKsaKsrAT83o3Ll2gjE3vKZtOP4rl415EmoiNRf/+ADBrFgoXBkJDMWkSAKxYAQsL/WYjIiIiIl1QoYAZNZ24fcGw1tXzGwsAICpiH53eNLV3k98KlrLuMXH9iQcxCl2nJMqUxo1DWBhq1cKAAYAowtUVHz6ga1c4O+s7GhERERHphAoFTMhVqc3wRfuuPA+/eWTlmM71i+aQCABE5YfQf7bO6GtfrmDJ+l3HrTl2751c/OVkRPRRUBBWroSBAVavhlQKrFqFkyeRNy8WLdJ3NCIiIiLSlVRsQTSwquDQf/b2c09e/huwaWof298sDD4Wsfhngdtnuzev1Gj6dTkAJMbHs4kR/YxcDnd3KBQYPRpVqwKhoRg9GgCWL0fu3PpOR0RERES6kppnwD7fYlbKpuek9f73XjwJ3Dl3kFPlPEaf9iYqFCKAxEN9ipVu3H386qO3I5O1HJcoc/D0xLVrKFMG48cDogg3N8TGonNntGun72hEREREpENqFLDPBJPCdTr+tcz3eljY1QNL/mxfq5CJ5PNTYo/PeM3q36JSocLVWg2euzPwWRyXxIg+e/Dg04u+Vq6EiQmwfDn8/ZEnDzcfEhEREWV6GhSwL4zyVGk1ZP7uS09f3Dm2dkL3RiXNpB9PqReT3lzzXT66c4OSBcqNPCXTwp8iyuhEEQMGICEBvXujaVPgyROMHQsAK1cib159pyMiIiIi3dJGAftMalHWru/0Lacfvnx01mumW/PfLQ0/FTFF7LNnkVwEIwI2bkRAAHLnhuf/2LvzOBvr/o/j7+uc2Vf7vu9EyJItbiUiIdqUFAoJJXfdFSmqu/qplJClSFRk38qSJGGs3XayL2M3lhlzZuYs1+8P2sk2c13nnHk9/7gf932fOXPeZjvX+/p+ru/1juTzqVMnpaTo4YfVrp3d0QAAAJDlMrOA/cqILt7gkZdHfbv18P410/6wgT2Q3Z08eXGvjaFDlSePNGyYli5l+BAAACD7CMnKTx5esEbbPjXa9nn31JYlO6Ky9KWAQNC7t06e1F13qX17ae9e9esnSSNHKm9eu6MBAADACpa0opDcN91Zz4oXAvzY/Pn66itFRWn48D8MH3booLZt7Y4GAAAAi2TFCCKAv0pN1dNPS9KgQSpVSvroIy1dqoIF9eGHdkcDAACAdShggBUGDNCePapaVb17S3v2qH9/SRo+XLly2R0NAAAA1qGAAVluwwYNHSqnU59+qlDnr8OHHTvq3nvtjgYAAABLUcCArOX1qksXud3q00c1akgffqgff1TBghoyxO5oAAAAsBoFDMhaQ4Zo3ToVL65XX5X27NErr0jSiBEMHwIAAGRDFDAgCx0/roEDJWnkSMVE+fT44zp/Xo8/rjZt7I4GAAAAG1DAgCw0eLBSUtSqle66SxoyRMuWqVAhvf++3bkAAABgDwoYkFWOHtWIETIM9e8v7dhxcfhwzBjlzGl3NAAAANjDkhsxA9nSO+8oNVVt26pWDZ8aPSGXS506qUULu3MBAADANqyAAVniyBGNHi3D0IAB0vvv66efVKiQ3nvP7lwAAACwEwUMyBJvvaXUVN13n6pG7NCAAZL0yScMHwIAAGRzFDAg8x05ok8+kcOh/v1Mde4sl0udO6t5c7tzAQAAwGYUMCDzvfGGXC498IBu3jVdK1aw8yEAAAAuYBMOIJMdPKhPP5XTqQH9vHpwgCS98ori4+3OBQAAAPuxAgZksjffVHq6HnpIFddN1NatKlFCnTvbHQoAAAB+gRUwIDMdOKBx4+R06pUX3Wo9SJIGDVJYmN25AAAA4BdYAQMy0+uvKyNDHTqo/NLR2rNHN92khx+2OxQAAAD8BStgQKbZt0+ffy6nU/2ec6nFW5L0+utyOu3OBQAAAH/BChiQaQYOVEaGHntMZb8dqsRE1aihNm3sDgUAAAA/wgoYkDl27dLEiQoN1Su9z+qOwZL03//KMOzOBQAAAD/CChiQOQYNksejxx9Xienv69Qp3Xabmja1OxQAAAD8CytgQCbYuVNffaXQUPXvflKNP5CkN96wOxQAAAD8DitgQCZ47TV5POrSRcW+eEvnzunuu9Wwod2hAAAA4HdYAQNu1LZtmjRJYWF6+fHDavyxDEOvv253KAAAAPgjVsCAGzVwoHw+de2qouMGyeXSAw+oenW7QwEAAMAfsQIG3JAtWzRliiIi1O/hvfrXODmdevVVu0MBAADAT7ECBtyQV1+Vz6du3VRg+CsX7wJWsaLdoQAAAOCnWAEDrt/mzZoxQxERernVZt35lcLC1L+/3aEAAADgv1gBA67fK6/I51OPHso3tL98PnXvrpIl7Q4FAAAA/8UKGHCdfv5Zs2YpOlr9mq3VXbMVHa2XXrI7FAAAAPwaK2DAdXr1VZmmevRQrsEvyTT1zDMqUMDuUAAAAPBrFDDgeqxbp7lzFR2tl+r/qO++U3y8+va1OxQAAAD8HQUMuB4DBsg01auXcr7zoiQ9/7xy5bI7FAAAAPwdBQy4ZgsX6ptvFBurl6vM0cqVyptXvXvbHQoAAAABgAIGXJv09Itt65X+ZuzgAZLUr59iY+1NBQAAgIBAAQOuzRtvaMcOVa6s5wpN0v/+p8KF1bWr3aEAAAAQGNiGHrgGv/yiwYPlcGjUCK+z6yBJeu01RUbanQsAAACBgRUw4GqZpp56SunpeuIJ1dsxTtu3q2xZPf643bkAAAAQMFgBA67W+PH6/nvlyaP/9k9Vg9cladAghfBLBAAAgKvFChhwVZKS9J//SNKQIco9bKAOHFD16nrgAbtzAQAAIJBw8h64Ki+8oOPH1aiRHqmyUZ2HyOHQ8OFycAoDAAAA14DDR+DKfvpJY8cqLEwfD/cZ3bvJ7dYzz6huXbtzAQAAIMBQwIAr8HjUs6dMUy+9pIoLPlBCgooV06BBducCAABA4GEEEbiCwYO1YYPKlNFLjxzQLa9K0rBhiomxOxcAAAACDytgwD/Zv19vvilJH3+s8L49lZKi9u11zz125wIAAEBAooAB/6RnT50/r0ceUZPjX2rOHOXKpSFD7H14CiQAACAASURBVA4FAACAQMUIInBZU6dq7lzFx+vdl5PUuI8kvfee8ue3OxcAAAACFStgwKUlJ+vZZyXp7bdVYHDfi5vQP/aY3bkAAAAQwChgwKX176/ERNWqpa7lftD48QoP18iRMgy7cwEAACCAMYIIXMK6dRo+XCEhGjPU5Xj0SZmmXntNFSrYnQsAAACBjRUw4K98Pj39tLxePfusqs4cqF27VKWK+va1OxcAAAACHitgwF8NH65Vq1S0qAa226iG78vh0KhRCg21OxcAAAACHitgwJ8cPaoBAyRp2FBf1HPd5XarVy/VrWt3LgAAAAQDChjwJ71768wZtWihVvuGauVKFSum11+3OxQAAACCBCOIwO8WLNCUKYqK0qh+B9TsFUn66CPFxtqdCwAAAEGCFTDgorQ09eghSYMGqcjbPZWSooceUqtWducCAABA8KCAARdNnKg9e1Slip7N/5XmzFF8vN57z+5QAAAACCoUMOCijz6SpNd6Jzn/3UeS3n9fhQrZGwkAAABBhgIGSNKCBdq4UYULq81P/9axY2rUSJ062R0KAAAAwYYCBkjSBx9I0v/dvdTx+WcKD9fIkTIMu0MBAAAg2FDAAO3YoYULlTMq/cHvnpRpasAAVahgdygAAAAEIQoYoPffl8+nj2pPcO7ZqcqV9fzzdicCAABAcKKAIbtLStIXX8hhmPcdHCJJ/fopNNTuUAAAAAhO3IhZkuRNPX0qOcO8sU9iROTIFx+eOYFgnZEjdf68BtaaF75mq4oX13332Z0IAAAAQYsCJkm+vSPurvT8SveNfZaI+6ec+fo+GlhAcbv18ceS1CvjPUl69lmF8EsBAACArMIIoiQpPFfeHKHseZcNTZ6sQ4f0QOl1OTf8oLg4tp4HAABAluJkvyQ5inaeldhq0/zPP3zjrfFrTnpMSUZ0qToNysVfQysLq1aAPhtohg6VpLfyvKfdUvfuio+3OxEAAACCGQXsV6F5qtzz3CdNW1RrVf+ZhUk+OYs+8OHct2rxBQpiy5ZpzRpVzX2o1PqpCg1Vz552JwIAAECQY8nmz8IrdHuja3laV/YwZIgkfVxuiNxuPfSQiha1OxEAAACCHAXsr0KrNb+zsNPuFMhy+/Zp9mzlDT9XZ8unktSnj92JAAAAEPwoYH8TUvmWKmzIEfw+/FBer4ZVGWWcO6smTVS9ut2JAAAAEPwYtvsbI65a09aNU04WKRVHDQtWyckaN06hcrc5NEyS+va1OxEAAACyBQrY34VU7TVpcS+7UyArffKJzp7VfytNDtt6QJUrq1kzuxMBAAAgW2AEEdmO16thwySpR9r7kvTcczJY7AQAAIAVKGDIdmbN0p496lh4cfyen5U/v9q3tzsRAAAAsgsKGLKdC7vPD4p/T5J691ZEhL15AAAAkH1QwJC9rFunn35SrdjtxbfNV1SUunWzOxEAAACyETbhuGFpp48kpfpMyYjMXSgXiyl+7sLy1/ASg7XJVJcuyp3b7kQAAADIRihgNyp9Qa/y936RbEoR90858/V94Zn2mYcNGzbkQl24RomJiZLOnTuXaVGCxeHDmjJFhUKO1/zlSzmdeuYZuxMBAAAge6GA+a/169fv2bPnup+empqaiWGCw7BhysjQsEpDja1puu8+lS5tdyIAAABkLxQw/zVmzJj+/ftfxxNbtWq1ZcuWAgUKZHqkgJaaqtGjFaXUexJHStJzz9mdCAAAANkOBexGhTUc+H1CL68pOXKXDcvMz+x0OkuVKnUdTwwPz7w5yCDy+ec6dUrvlRwbsveU6tdX3bp2JwIAAEC2QwG7UUbO0jVrM8nm70xTQ4fKKW9X14eS1Lev3YkAAACQHbENPbKF+fO1bZu65J4Zc3SXSpVSq1Z2JwIAAEB2RAFDtvDBB5L0asx7ktS3r5xOe/MAAAAge2IE8Qo8KSePnTh1+lxqutvnCI+OjY2Nz5M/bwxft0CyZYsWLdLtESsK7V+pXLn02GN2JwIAAEA2RZG4BFdiwpzJ0+YuWrbq5817jp/3mH961DDC4gqXrlClVuPmrdu0uat20SjDppy4Sh98INPU+4Xf027p6acVHW13IgAAAGRTFLA/8Z1aNfrlPgM/SziaYV7uY0wz4+yhbasObVv17efv9M1b4+F+Q97p2SA/I21+6uRJffGFSjv2Vt03S+Hh6tHD7kQAAADIvihgv8vY/eUTzTtP3Jn+a/cynFG5ChUtVrRg7tioyMhwpy8jzZWanHQs8eCBxBMpblMy3SfWju9z+5IfPvrmy243RdoaH5c2dqxcLn1Y4j3t86pTJ3F7NAAAANiHAvYr1+pB7S60LyO8UJ0Huz75SOsmdasUjb3kypbPdWz7mqXzp44fPX7+jnPuA7N6t32hzOqhd8QzjehfTFOffKJcSrrr6GcyDPXpY3ciAAAAZGvsgniB78C4l4dsTDcNZ+FWHyzfsnz8q52aVrtM+5LkiMxfqeEDzw2dt2HDjF7Vow0zY+eYfqN+8VqaGVe2aJF27tRL8SOcaefVooUqVbI7EQAAALI1CpgkyXdw5uSfXKacRbt8OqF3jRxXvZAVXqLVkMmvN4g0zPT1M+bspYH5mVGjFK707r4REjdfBgAAgP0oYJIkz9b/bXGbcuRrcX/juGt8rrN0u/trh0renVtZAvMrR45ozhx1cH4Vk3xE1aurcWO7EwEAACC7o4BJksz09AxTMmJiY679Ki5HXI44h2RmpF9+60TYYMwYud16OX64JD3zjN1xAAAAAArYBc4ixYs4Jd+hdeuP+K71ya4Naza7JUf+gvn5cvoNn09jx6qeVpRKWqs8efTgg3YnAgAAAChgF4Tc3LJ5cadM19J3Xpxy8FoGCc3k1YNfGr/PK0fu+v+6OTTLEuIazZun/fv1YswwSeraVRERdicCAAAAKGAXhd3arddtcYa8ByZ1rNvshQmrj6Rf8TneM9vnvduh3p0DV54zjbCbnnz6zmgLkuLqjBqlAjrawjVNTqeefNLuOAAAAIDEfcB+4yzXY+Tg7xr3mHckI3Hx4I51Pni2TO0GDW6tXrFU8SIF88RHR0SEhZjutDRXyqmjhw7u/WXDmhU/JWw+muozJTly1B/w6Uu1wu3+R+Cigwc1f75eCxnl9GSoXTuVKGF3IgAAAECigP1BaPmuXy+O6NX+mXEbz/hMd9LO5bN3Lp99xac5Yiu1f2fC8O63sPzlP0aPlsPrfjpqjDxSz552xwEAAAAuYgTxjyIrdvxk7Y6V4wd0aFg6PuSf90M0QuJK1m//8thl23+e+NQt8de+eSKyiMejsWPVTtNypiaqUiU1amR3IgAAAOAiVsD+KiRf7UcHTnh0oPvM3o1r12/asXt/4rFTp1NcGR6FRkbHxMTE5y1Wpnz5CpWrVi6Rg003/NDMmTp8WM9HDpNL6t1bBuUYAAAA/oICdjmhOUrWaFKyRhO7c+BajRqlavrfLa7lypFDHTrYHQcAAAD4HQUMQWX3bn3/vcY6P5JX6tRJ0VyaBwAAAD/CNWAIKqNGKd53ur0xSYah7t3tjgMAAAD8CQUMwSMjQ+PHq6tGh3lS1by5ypWzOxEAAADwJxQwBI+pU3XquLdX2CiJ3ecBAADgjyhgCB6jRukezSmcsVelS6tZM7vjAAAAAH/FJhwIEtu2adkyfe8cJq/Us6ccnFwAAACA3+EgFUFi5EhVMLc18n6vqCg99pjdcQAAAIBLoIAhGLhcmjhRPTXMkKmOHZUzp92JAAAAgEuggCEYTJokd1LyY86JktSjh91xAAAAgEujgCEYjBqlThoX7T2nxo1VpYrdcQAAAIBLYxMOBLyNG7V6lTnBMUI+dp8HAACAX2MFDAHv44/VVAvL+naoWDG1amV3HAAAAOCyWAFDYEtJ0Zdf6gsNk6Tu3RXCjzQAAAD8F0erCGxffKFc5/a1ML5VWLi6dLE7DgAAAPBPGEFEYBs9Wj01zGF61b698uWzOw4AAADwTyhgCGCrVmn7+tTOxjiJ3ecBAAAQAChgCGCjRqmDJuY0k1S3rmrVsjsOAAAAcAVcA4ZAdfasJk/WSg2X2H0eAAAAgYEVMASq8eNVK3XpzdqofPnUrp3dcQAAAIAro4AhUI0Zo6cvLH91767wcLvjAAAAAFfGCCIC0k8/KWnz4XuNmXKGqGtXu+MAAAAAV4UVMASkr77SU/o4xHSrXTsVLmx3HAAAAOCqsAKGwOPzae70jNUaI7H9BgAAAAIJK2AIPCtWqN7R6fl1TFWrqkEDu+MAAAAAV4sChsAzbZoe0NeS9MQTdmcBAAAArgEFDIFn4czUZlogh0Nt29qdBQAAALgGFDAEmLVrVWXfnCilqn59FSpkdxwAAADgGlDAEGCmTVM7TZPEzZcBAAAQcChgCDDfTkttoW9kGLr3XruzAAAAANeGAoZAsmmTyuz8NlrnzVvrqFgxu+MAAAAA14YChkAyffrF+UPjPuYPAQAAEHi4ETMCyZyp6d9rniTmDwEAABCIWAFDwNi5U0U2z4/TObNGTZUqZXccAAAA4JpRwBAwftv/kPlDAAAABChGEBEwZk9zz9NcSbrvPruzAAAAANeDFTAEhkOHlHvdwpw67bu5msqUsTsOAAAAcD0oYAgMU6eqrTlNkuN+5g8BAAAQqChgCAyzprpba5YktaOAAQAAIFBRwBAAjh1T5MrvcynJV6myKla0Ow4AAABwnShgCAAzZuheH/OHAAAACHgUMASAGVO9F+cP2f8QAAAAgYwCBn93+rS0dGk+HfeWLqfKle2OAwAAAFw/Chj83cyZau2ZJsnZ/gG7swAAAAA3hAIGfzdjmu9ezZDY/xAAAAABjwIGv5acLNeinwrqiLd4KVWrZnccAAAA4IZQwODX5s7VPRnMHwIAACBIUMDg16ZPM5k/BAAAQNCggMF/uVxKmreyqA56ipRQjRp2xwEAAABuFAUM/mv+fN2dNk1SyEP3yTDsjgMAAADcKAoY/Nf0aWY7TZOYPwQAAECQoIDBT7ndOjJ7TXHt9xQooltvtTsOAAAAkAkoYPBTixapaTLzhwAAAAgqFDD4qenTxfwhAAAAggwFDP7I69W+6etLa7cnTwHVrWt3HAAAACBzUMDgj5Yu1e2np0kKebCdnE674wAAAACZgwIGfzRtmtpqusT8IQAAAIIKBQx+x+fTjikbK2i7J0ce3Xab3XEAAACATEMBg99JSFDDE7/OH4aE2B0HAAAAyDQUMPidadN0n6ZKzB8CAAAg2FDA4Hc2TtlRSVs98bnVuLHdWQAAAIDMRAGDf1m3TvUOTpbkbNeG+UMAAAAEGQoY/Mtv91827mP+EAAAAMGGAgb/sm7Szpu10ROTQ3fcYXcWAAAAIJNRwOBHtmzRLXumSnK2ba2wMLvjAAAAAJmMAgY/MmMG84cAAAAIZhQw+JHVX++7Res9kbG68067swAAAACZjwIGf5GYqPKbpxkyjXtaKiLC7jgAAABA5qOAwV9Mn6425gxJzgeYPwQAAEBwooDBX/w45VhdrfSGRqhpU7uzAAAAAFmCAga/cOaM8q2c5ZDP16SpYmPtjgMAAABkCQoY/MLcuWrpmSkp9P42dmcBAAAAsgoFDH5h4bTkxlpiOpxq2dLuLAAAAEBWoYDBfunpClkwL0JpGbUbKG9eu+MAAAAAWYUCBvstWqSmrlmSwh9k/hAAAADBjAIG+82bnt5C30hS69Z2ZwEAAACyEAUMNvP5dG7m93E6l1ahmkqWtDsOAAAAkIUoYLDZihVqdHqmpIiHmD8EAABAkKOAwWazZ/ru0RxJuvdeu7MAAAAAWYsCBpsd+DqhoI6kFSihm2+2OwsAAACQtShgsNOWLapxcKak8PZt7c4CAAAAZDkKGOw0c6Zaa5Yk414uAAMAAEDwo4DBTpsmbSmnXzLi8qhePbuzAAAAAFmOAgbbJCaq3JYZkpxtW8vptDsOAAAAkOUoYLDNzJlqZc6S5GzH/CEAAACyBQoYbLP868QaWueJiFGTJnZnAQAAAKxAAYM9zp5V/uXTDZm+pncpIsLuOAAAAIAVKGCwx9y5usc7U1LYA8wfAgAAILuggMEe3009c5uW+ZyhatHC7iwAAACARShgsEF6usIXzA6VO71eY+XMaXccAAAAwCIUMNhg8WI1c82UFPlQa7uzAAAAANahgMEG30xzNdVCGYZatbI7CwAAAGAdChis5vPp/IyF0TqfWrm2ihSxOw4AAABgHQoYrJaQoEanZ0qKepj9DwEAAJC9UMBgtTkzvS01V5LaUMAAAACQvVDAYLXEScvy6KSraDlVqGB3FgAAAMBSFDBYautW1Tg4U1L4w+3szgIAAABYjQIGS82apVaaLclxLxvQAwAAINuhgMFS279cX1J703IVUu3admcBAAAArEYBg3UOH1bpzbMkhdzXRoZhdxwAAADAahQwWGfWLN2rGbpQwAAAAIDshwIG6yRM2ldFmzIi49Wokd1ZAAAAABtQwGCRs2dVYPk0SebdLRUWZnccAAAAwAYUMFjkm290j3empPAHmT8EAABANkUBg0WWTD5eVyu9IeFq1szuLAAAAIA9KGCwQnq6IhbMcsqb3vBOxcbaHQcAAACwBwUMVvj+ezVLmyUp6mHmDwEAAJB9UcBghflTU+7QYtNw6O677c4CAAAA2IYChixnmnLP+iZCaanV66tAAbvjAAAAALahgCHLrVql207NlBT9CPOHAAAAyNYoYMhy38xyN9e3ktSGAgYAAIBsjQKGLOea930OnUkuVVWlStmdBQAAALATBQxZy+tV6e3zJIW0a213FgAAAMBmFDBkrU2bdKv7J0mR9zSxOwsAAABgMwoYsta6H89X0SavI1Q1atidBQAAALAZBQxZ69T8NSHynCp8s6Ki7M4CAAAA2IwChqwVui5BkurWtTsIAAAAYD8KGLJQcrJKn0iQlLN5HbuzAAAAAPajgCELrV6t2uYqSaENWQEDAAAAKGDISju+3VNAR1Oi8nEHMAAAAEAUMGQp15IESWcrMn8IAAAASBQwZKlcO1ZKimxMAQMAAAAkChiyzv79qnI+QVLOFlwABgAAAEgUMGSdtctcN2ujz3AatWranQUAAADwCxQwZJWjc9eGKeN4/iqKibE7CwAAAOAXKGDIKsaqBEnumswfAgAAABdRwJAl3G4VPpggKVcLduAAAAAALqKAIUts2qSa3lWSou+ggAEAAAAXUcCQJbZ+u7+wElPCc6tsWbuzAAAAAP6CAoYskbwoQdKpsnVkGHZnAQAAAPwFBQxZInpTgqTQ25g/BAAAAH5HAUPmO3tW5ZNWSsrXmi0QAQAAgN9RwJD51i5Pr6b/+eQIqVvL7iwAAACAH6GAIfMdnLU+XOnH8tykuDi7swAAAAB+hAKGzOf9aaWk1KrMHwIAAAB/QgFD5su3J0FSfDN24AAAAAD+hAKGTLZ3r6qnrZSUpyUFDAAAAPgTChgy2cb5h4vo0PnQHCpf3u4sAAAAgH+hgCGTnZ63QtLREnXk4KcLAAAA+BMOkZHJwn9OkKQ6zB8CAAAAf0UBQ2Zyu1Xy6EpJ+VtTwAAAAIC/ooAhM21c567q+9mUEXN7bbuzAAAAAH6HAobMtHf6z5FyHclRUTlz2p0FAAAA8DsUMGSm9B9WSjpXiflDAAAA4BIoYMhMObYnSIq6o67dQQAAAAB/RAFDpjlzRjclJ0gq1JYVMAAAAOASKGDIND/PP1ZC+84740KqVLQ7CwAAAOCPKGDINCdmrZCUWORWOZ12ZwEAAAD8EQUMmca5JkGSpybzhwAAAMClUcCQaQofWCkpT0sKGAAAAHBpFDBkjr07PVXc600Z+VpyC2YAAADg0ihgyBy/TNkQrfOHY8opTx67swAAAAB+igKGzJGyaKWkpHLMHwIAAACXRQFD5ojZnCAp9DYKGAAAAHBZFDBkgowMlT2VIKnwfXXtzgIAAAD4rxC7A/g7T8rJYydOnT6Xmu72OcKjY2Nj4/PkzxvD1+1Ptv5wvJq52+WIjq1zk91ZAAAAAP9FkbgEV2LCnMnT5i5aturnzXuOn/eYf3rUMMLiCpeuUKVW4+at27S5q3bRKMOmnP4jcVpCNWl//toVQviJAgAAAC6Lw+U/8Z1aNfrlPgM/SziaYV7uY0wz4+yhbasObVv17efv9M1b4+F+Q97p2SC/08qc/sa3IkGSqxrzhwAAAMA/oYD9LmP3l0807zxxZ/qv3ctwRuUqVLRY0YK5Y6MiI8Odvow0V2py0rHEgwcST6S4Tcl0n1g7vs/tS3746Jsvu90UaWt8O+XdnSApvhk7cAAAAAD/hAL2K9fqQe0utC8jvFCdB7s++UjrJnWrFI295MqWz3Vs+5ql86eOHz1+/o5z7gOzerd9oczqoXfEZ8dpxKQT3squNZKK3cctmAEAAIB/wi6IF/gOjHt5yMZ003AWbvXB8i3Lx7/aqWm1y7QvSY7I/JUaPvDc0HkbNszoVT3aMDN2juk36hevpZn9xfYpm2KUkhhZJqRwfruzAAAAAH6NAiZJ8h2cOfknlyln0S6fTuhdI8dVL2SFl2g1ZPLrDSINM339jDl7s2UDO/1tgqRjJZk/BAAAAK6AAiZJ8mz93xa3KUe+Fvc3jrvG5zpLt7u/dqjk3bk1ey6Bhf+cIMmoSwEDAAAAroACJkky09MzTMmIiY259qu4HHE54hySmZF++a0Tg5ZpquTRlZIKtWMLRAAAAOAKKGCSJGeR4kWcku/QuvVHfNf6ZNeGNZvdkiN/wfzZ78u5b92pUt6daUZk/iZV7M4CAAAA+Lvs1xguKeTmls2LO2W6lr7z4pSD1zJIaCavHvzS+H1eOXLX/9fNoVmW0F/tn5xgyNydq5ZCs98/HgAAALhGFLALwm7t1uu2OEPeA5M61m32woTVR9Kv+Bzvme3z3u1Q786BK8+ZRthNTz59Z7QFSf1M+tIEScmVmT8EAAAAroz7gF3kLNdj5ODvGveYdyQjcfHgjnU+eLZM7QYNbq1esVTxIgXzxEdHRISFmO60NFfKqaOHDu79ZcOaFT8lbD6a6jMlOXLUH/DpS7XC7f5H2CDnjgRJ0XewAwcAAABwZRSw34SW7/r14ohe7Z8Zt/GMz3Qn7Vw+e+fy2Vd8miO2Uvt3Jgzvfkt2XP5y+cqfWyOpxEMUMAAAAODKGEH8o8iKHT9Zu2Pl+AEdGpaOD/nn/RCNkLiS9du/PHbZ9p8nPnVL/LVvnhgEfpmxJV5nD4eViC1bwO4sAAAAQABgBeyvQvLVfnTghEcHus/s3bh2/aYdu/cnHjt1OsWV4VFoZHRMTEx83mJlypevULlq5RI5svm+EyfmJEg6VLRuIbuTAAAAAAGBAnY5oTlK1mhSskYTu3P4M+eaBEneWswfAgAAAFeFEURcvyIHV0rK24otEAEAAICrQgHDdUrac6Zkxo40RZRoXdXuLAAAAEBgYATxhqWdPpKU6jMlIzJ3oVwRdsexzO4vV9WSb1d8jcpRYXZnAQAAAAIDBexGpS/oVf7eL5JNKeL+KWe+vi/zbga2d+/eRYsWXccTT548Kcnn82ValEs5/91KSUnlmT8EAAAArhYFzH8988wzc+bMue6nHz58OBPD/F347q2SwhpRwAAAAICrRQHzXy+++GLhwoWvYyFr6dKlO3bsaNq0aVak+k2Ot/7zw/iq9Qa0zNJXAQAAAIIJBexGhTUc+H1CL68pOXKXzdSLoerVq1evXr3reOJzzz23Y8eOvHnzZmaav6nYoUbFDjWy9CUAAACAIEMBu1FGztI1a5e2OwUAAACAAMA29AAAAABgEQoYAAAAAFiEEcQr8KScPHbi1OlzqelunyM8OjY2Nj5P/rwxfN0AAAAAXDOKxCW4EhPmTJ42d9GyVT9v3nP8vMf806OGERZXuHSFKrUaN2/dps1dtYtGGTblBAAAABBYKGB/4ju1avTLfQZ+lnA0w7zcx5hmxtlD21Yd2rbq28/f6Zu3xsP9hrzTs0F+p5U5AQAAAAQiCtjvMnZ/+UTzzhN3pv/avQxnVK5CRYsVLZg7NioyMtzpy0hzpSYnHUs8eCDxRIrblEz3ibXj+9y+5IePvvmy202RtsYHAAAA4O8oYL9yrR7U7kL7MsIL1Xmw65OPtG5St0rR2EuubPlcx7avWTp/6vjR4+fvOOc+MKt32xfKrB56RzzTiAAAAAAui10QL/AdGPfykI3ppuEs3OqD5VuWj3+1U9Nql2lfkhyR+Ss1fOC5ofM2bJjRq3q0YWbsHNNv1C9eSzMDAAAACDAUMEmS7+DMyT+5TDmLdvl0Qu8aOa56ISu8RKshk19vEGmY6etnzNlLAwMAAABweRQwSZJn6/+2uE058rW4v3HcNT7XWbrd/bVDJe/OrSyBAQAAAPgHFDBJkpmenmFKRkxszLVfxeWIyxHnkMyM9MtvnQgAAAAAFLALnEWKF3FKvkPr1h/xXeuTXRvWbHZLjvwF8/PlBAAAAHB5NAZJUsjNLZsXd8p0LX3nxSkHr2WQ0ExePfil8fu8cuSu/6+bQ7MsIQAAAIDARwG7IOzWbr1uizPkPTCpY91mL0xYfST9is/xntk+790O9e4cuPKcaYTd9OTTd0ZbkBQAAABAwOI+YBc5y/UYOfi7xj3mHclIXDy4Y50Pni1Tu0GDW6tXLFW8SME88dEREWEhpjstzZVy6uihg3t/2bBmxU8Jm4+m+kxJjhz1B3z6Uq1wu/8RAAAAAPwaBew3oeW7fr04olf7Z8ZtPOMz3Uk7l8/euXz2FZ/miK3U/p0Jw7vfwvIXAAAAgH/GCOIfRVbs+MnaHSvHD+jQsHR8yD/vh2iExJWs3/7lscu2/zzxqVvir33zRAAAAADZDStgfxWSr/ajAyc8OtB9Zu/Gtes37di9P/HYqdMprgyPQiOjY2Ji4vMWK1O+fIXKVSuXyMGmGwAAAACuHgXsckJzazMvsgAAIABJREFUlKzRpGSNJnbnAAAAABA0GEEEAAAAAItQwAAAAADAIhQwAAAAALAIBQwAAAAALEIBAwAAAACLUMAAAAAAwCJsQx+03nzzzWHDhmXd5z958mRycrLT6TQM7kKdvZim6fV6HQ6Hw8EZnOyFb3125vV6JTmdTruDwGo+n8/n8/F2nw1d+JufJ0+e2NjYrHuV48ePZ90n91sUsCBUokQJSadOnTp16lRWv5bH48nql4B/8nq9Fw7IkN3wrc/OfD6f3RFgD97us60TJ06cOHEiS1/CMIwLx67Zh2Gapt0ZkPn279+f1UdInTt3Xrp06dtvv12nTp0sfSH4my+//HL06NHt27fv1q2b3VlgqS1btjz99NOVKlUaMWKE3VlgtSZNmng8nkWLFoWGhtqdBZbq27fvunXr3n333Zo1a9qdBZb6/PPPx44d27Nnzz59+mTpC0VGRhYsWDBLX8LfsAIWnIoXL57VLxEdHS2pSpUqjRo1yurXgl9JSEiQVKxYMb712U1YWJik+Ph4vvXZ0IW504YNG174MUD2kTNnTklVq1blFz+7+fHHHyXlzJmzVKlSdmcJNszxAwAAAIBFKGAAAAAAYBEKGAAAAABYhAIGAAAAABahgAEAAACARShgAAAAAGARChgAAAAAWIQCBgAAAAAWoYABAAAAgEUoYAAAAABgEQoYAAAAAFiEAgYAAAAAFqGAAQAAAIBFKGAAAAAAYBEKGAAAAABYhAIGAAAAABYJsTsAAlV8fPxv/4ls5cI3PS4uzu4gsBq/9dlZfHx8amqq0+m0Owisxi9+tsXbfdYxTNO0OwMC0okTJ37++eemTZvaHQRWy8jIWLhw4R133BEZGWl3Fljthx9+KFeuXKFChewOAqtt2bLF4/FUrVrV7iCw2rFjxzZt2tSkSRO7g8Bq6enpixYtatKkSUREhN1Zgg0FDAAAAAAswjVgAAAAAGARChgAAAAAWIQCBgAAAAAWoYABAAAAgEUoYAAAAABgEQoYAAAAAFiEAgYAAAAAFqGAAQAAAIBFKGAAAAAAYBEKGAAAAABYhAIGAAAAABahgAEAAACARShgAAAAAGARChgAAAAAWIQCBgAAAAAWoYABAAAAgEUoYAAAAABgEQoYAAAAAFiEAgYAAAAAFqGAAQAAAIBFKGAAAAAAYBEKGAAAAABYhAIGAAAAABahgAG4Dp7kowf2HziW4rU7CAAAQEChgOHauPYsHPbvB26rVCxvTGRsvuKVGz384sglB9LtjgWLpS58pmrJEmUf+uywz+4osMD53Ys/efWJFrUrliyQIyo8Kj5fiZtvf/DZIXO3n+P7H9R8Z7ZM/79e9/+rSon8OaLCI2JzFypXu8VjL41avPe8aXc2WMy1bmCtaIfhLNh9UYbdWZB13Mv7lg4x/lFImX+vcNudM+CF2B0AAcS1eUyX+5+btD3l13fe8we2nDiw5cfJIz/uPHL6iIdKh9oaD9Y5t/jrb076+PuRHZhJCR92e6z/tF/+cMTtOrF/05L9m5ZMGfFek/4TJvRvnJ9zecHHd3zJoPYPv7nkqOf373zSkZ1JR3au+XbCh++2fWfS2J414gwbE8JCKctf6/zWulST8/bBLnXvriOcWLMAB1C4Sr4DX3Rs3mPaIY8pI6rEba1a1C4WcW738rlzVx9OP7vx08dbhMSvGNE8N+/G2UDaxuFvTTnOX+jsIH3biEda9Z1/wicZjrjS/7rnrlql4tIObv15xdLlO0973YmLXmvd2rdw0Wt1Yu2OikyVvuWDB9u+/sMZn2REFKh+Z4tGVYrlcJzZu3bR7O+2Jnlcu6Y929ITt3L6YyU4IA9+5pnFL3cZsimdZc/g59m3a5/blByxxSqXzxd2yY9xFikSw8HeDTOBq+A7PvXhgg5JRljZR7/clfbbAykbhrcq4jQkI6Tcs0uTbYwIK6QfW/91/6ZFQi/87Q3710cHvHZHQtbx7HivQZQhyXAWbPrfH497fn/IeyphSKuiIYYkI7z6q+vT7UuJzOc78nnrnA5JRkSlzl/uOP+Hh7wnl7/ROLdDkpyFu8w7a1tGWMV3Yk6XkiG/HnA7CnRbyK978Eqd+Ui8IRnR7SadsztLcOPUFa6Gd8vIN6cc9ckIrdh73MftS4f/9kj0zU+NHfFoEadMz87Rr088xLJIMDLPrRz29COtGt1cJHehGg+8sfCQmxOh2YF79ZiRK1NNyVm66/hJL96W1/n7Y45ctz775eS+lcMMmekbRn+8xGVfTmQ2X+L0z+af8UkhVfp+PqJ9uag/PObIXe+lsa81ijIk75E5U5el2pYSlvAdmdr7qc/2ehQSEsKqR9DzHd6112VKzqJlS0XaHSa4UcBwFbxbp0/f7DZlRNzWo1fd6D8/aORu3qdL5RDJdC2fMjuRBhaMUv4345Mv5/y4KTHFS/XKNry7lizZ55UUevNjPW7P+fdjr+hbez11W7gh+Y7/sHijx/qEyCKu1T+tyzCl0JvaPVgt/G8PO4o2a35ziCTfmR3buVwkqPkOTOzRa/Ihn7P4w/9+pBiHjEHPs2/XXo9kOEuWLem88ofj+nENGK7Mt2/Rgq1uSaE177m7yN//AodUanl32Tc2bPOkrfz2+9NPPcaFYEEn5pb2L7xY+7cjbNfGKcO/2c0Bd5Dz7Nqx2yPJkb9e/fKXfCt25KtcuYBj8T6v72jiES9vKMHCd/LgIZcpyVm0RNFLfecdsfGxDkkyU1NdnJMJXp5do7v2mX3MDCn95Mj37lncYLDdgZDFzNO79yT5JGf+MqXjOZTLUrxf4soytm/a4ZHkLFyzVuFLnQELqXRrjVhj22kzY/vmnR7lZjfEIGPE3frE67f+9j/NU+M2jKSABT3X2WQzPCJCoSVLFb3MmW/TdeH42wiPCOfNOmg48rb7aEnNFNNw5q0Qf6kPcO/evscjyQgrUeqS7wkIBhlbh3b5z8IkM7R8j9HvNMu1bbHdgZDlPHt37fVIcpYqV8ppphxYs/TH9buOppjRuQuVvuW2224uGMkf+sxCAcMV+RK370j2SXIWL1380kvSocVKFnHqtMd3aPsvKWadSwwrAQgwOTpMP9PhHz8ifd2ipad8khF6U7WbeDcJHlFFqtYrctlHXZtHDpqw1ys58rZ8uFkO/twHp7Sf/6/zgGXnFF752U/evD3e4L5P2UHa3t2JPsmIjEj8unv9d8cnHM34bYnbcMSWvbvXG++8dH/FGDszBgveMnFFvqSTp32SjNACBfNc+mSnM3+hfE7JY/qSTiaZooABwS9j28f9xuz0SEZ0w/ZtLjGcjGBhntmZ8L/9Z88lHd23NWHeFxMX7TpvGpHlO338Xrs8/LUPSudXDur05urziqj+/KevNeB4O5vw7t+9121KOjv/7X//9UHTl/zLnP8+tGzhqklzBzfLz2/+DaKA4YrM8ynnTUlGZFTkZY6xjMioC+vSZmpKKlcEAEEvZfOYLq3/88NZU0Zk1Wff6Hi5IUUEA/fqwfc2H3Pst+02HHHVOr//6eBOt+Tk2x6MzLNL+nV5b2Oaomv3+7Rf7agrPwPBwbNv574LFxcYIXnrPPFKv65t6lUoEOVJ2rfh+ynD33r3601nfWfWDnnksTIJ87qXYZOOG8IfT1yRmea6cJl1WNil78n3h4fM1PMUMCCoufbMe71N9Vu7fb0nwzRCCt/z4aRXarNfcbbiS9446b8vvz1tB3vQByHz1Pznnxi+PUOx9V/99IXqEXbngWV8R3bvPW9KRnjZjl+sWfpxr7urF80ZGRoem798g/b9v1rxw9u353RIvlOLBg2ae5pjvRtDAcMVGeEREYYkud2XHQLPyMi48F/+oaQBCHDnf5nxSsvKVe4ZMGtXqilHXNUnPv9+8pPl+aUPcmFNRhxITUtNTjqya938sf3bVowxz+9Z8H8PNWg9dEuG3eGQqcyj05/pNnaPx8jR+I1P+lTmdzs7cRTtOufIyZMnTx7fOPaB4n/bTi2m2nOjX20QZUi+ozPHf3OGBnZDKGC4IiM6JtqQZKa50i7z+2a6Lj5kRMdGMxgMBJ/UnTP63XVT1XZvzNuTasqIKdt64OyfV45uX44T5NmAIyQsPDwyJmeB0rc06/T61IQFL9eMMuQ7ufiV/0w8zI3Agofv4BdP9/zqoNeRq+nbo58uz1Uq2YwzMj5X7ty5c8VFXOZ6/1LtOzaMMCTzfMKydezLckMoYLgiR+68uR2SzIxjR5Mu3cC8J44c90qSI2duLgoAgot5Zt2I9rdUa/ffBfvTTCMkT43HhyzeumnmgLtLMXmYLRlxdV8ccH9eh2QmL5m1+CwnwoOEeWra88/NPOpz5Gv53sgnS3OJD/7KyFWlajGnJN/pI0dddqcJbBwr44ochcuXiTYkeQ/uPei95Id4Du1P9ElyFixfjk2JgSDiOTjzqdsa9py0I9U0QvLX7zVu9Y7V455tXDTc7mDIKuaZ3etWr1q1avWmQ5e9xivqltqVQySZ7oP7ElkCCxJmcmLiWZ/kOz67Uwmn8Wdhdd/d5ZXkOzqqabhhGIbhyN1pHhOo2YwRFRNlSDJkGBzs3RAKGK4srEKVCiGSvPvXrT9+qXOd3p1r/3fOJxlhFaowswAEDfPs0hfvbj96c6pphBVr+dbijUuHPlY9F+8bwc2zfVT7enXq1KnX4u1VlxsyMpxOx4XDL2cICyVAEDBT9v+8Yvny5StW7bzMsJMk38ljJ32SjBwF8jF+fkM4WMaVOUrceWeFkJWbPBlr5i8+2e3RvH857eHb993CbR7JCKvV/A7uCgMEi/NLX+ny4eY00wgr1+mr70a1Lco7RnYQUrp86RDt9HqPrV+339e4zKUKt3vHll88kozQwkUL0MiDhBFfq8PzLza49KCL7/CSMRNXnfYZ0dUe7HFXCadkRNVgJ/Jg4lrcv8kT37hMZ9l/L9s8uO6lNmDxbFu67KhXMqJq17/lb7t04FrwdoqrEHLTvfdWfGvzJnfywpGf7Wj/fIU//dy4Vo/+ZFW6KSOqTruWxXgrBoKD79AXb43b4zGN0Cp9JwyjfWUbRq6Gd9wSvmBlumft+E/XPP3WrX+71M88PmvklENeyQi/tUnDeM66BQkjZ/1ub9S/zIPuhOenf7HqtIzYWzu/8dadbI8YdIzcjZvWDPt2Wbp394TBk3tPffRvd3c0j854e/Rmt+TIeef9TXPxi39DOFrG1Qip2uOFljkdMl0J/+369uo/XHPtO7bwpe4fbfNIzqIdXnq8FD9RQHAwj86buuy8KSO03pPda7LdRjbiLP3wE03iDJnuLe8/2nX8tvN/ejQjceGA+576+qhPchZ68NmHuQc3EBQcJR7sdnduh+Q7NvPp+15cdMTzx0dde2b0bd118mGvjIiqvfo9kJ/+dWM4pYmrYuR/aPDgKSufnH30zLIBd9Ra0alL65qFw87uXPb12K+WH0ozjdAyj380sGmc3TkBZJL09SvXp5uSoV8+7XjH9H98s3WW6DDiky7lGEcKEo5CHd55dcKKf/9wOmPnxE5VF7x3x12Nbi6RJ9J3LnHr8gULVh9MNSUjvHyXke/cw2lwIEgYBdp/8NHctY9OPuBJXv3uXeWnNWjRrE65/BHupP2bflzw3Yaj6aYMR547/2/iyzVYAr1RFDBcpZDSncbPSOrwUP9v9qfs/PajF7/9/SEjplKHj6YMa1WAN2IgWPgSd/yS7JNkZhzZsPTIP39wSKX6KexFHkzCbnp26uy0Rx8eOP9guvvEpvkTNs3/48NGaMHGL4wd/+pdnAUHgoij6EOffR9auMszH/2YmJG858fJH//4h0cNR3yVxz+c9NFjFalfN44Chqtm5Kjz79nr75w2+uNxU7/bsOfwqYyofEXK1mz+0BM9nmhRNtrueAAykffE0ROXvhgf2YKRu8FL87a0/XbcmImzv1+1adfhJJcZGZ+7YOlq9W5v2f6JjneWjqZ8AUEnvHS7d5fc+cQ3Ez7/etaCldsOHDmRbMTmLVy2ZuO77+/c9YGaeSkOmcMwTU5bAgAAAIAVuHgWAAAAACxCAQMAAAAAi1DAAAAAAMAiFDAAAAAAsAgFDAAAAAAsQgEDAAAAAItQwAAAAADAIhQwAAAAALAIBQwAAAAALEIBAwAAAACLUMAAAAAAwCIUMAAAAACwCAUMAAAAACxCAQMAAAAAi1DAAAAAAMAiFDAAAAAAsAgFDAAAAAAsQgEDAAAAAItQwAAAAADAIhQwAAAAALAIBQwAAAAALEIBAwAAAACLUMAAAAAAwCIUMAAAAACwCAUMAAAAACxCAQMAAAAAi1DAAAAAAMAiFDAAAAAAsAgFDAAAAAAsQgEDAAAAAItQwAAAAADAIhQwAAAAALAIBQwAAAAALEIBAwAAAACLUMAAAAAAwCIUMAAAAACwCAUMAAAAACxCAQMAAAAAi1DAAAAAAMAiFDAAAAAAsAgFDAAAAAAsQgEDAAAAAItQwAAAAADAIhQwAAAAALAIBQwAAAAALEIBAwAAAACLUMAAAAAAwCIUMAAAAACwCAUMAAAAACxCAQMAAAAAi1DAAAAAAMAiFDAAAAAAsAgFDAAAAAAsQgEDgKCVPu2haIdxrRw5O85Jl9zLnysdYhhGWJ3BO712/0uulefo0g+ebHJTobiIsIhctwxY5bY7EAAAF4XYHQAAgMyV8uNLTe56b0uaKUlyn0hKtTlQIPJsmfDS8BUpZmiVx97uUSfK7jgAEDwoYAAQtJzFG3V4PDLD/Mv/7Tuw9Mslez2mEVqqcfuGxf46CmFE1SvqlP76rIBhJs0aMmprmilHjls69H3yjlL5K1R02h0q8PgOLv1s1KcnfeEt6wykgAFAJqKAAUDQCqn51KixT/3t/06f3n7akr0eKaJu79HjWodf+sm+su0Hj62abDry1swfUOPq3oO/7HaZUki57iM/7V+L9zkAgF/hjQkAcCmOfLXadqxld4rr4fV6JcmIyxFv2J0FAIC/CKizmgAAv5ORnHTmvDtgBxYlMzXxUFIm5g+AL4g7Nfl8midzI2b2lxEAghYFDABwKZ61L1cK/esuiL4DH/0r3DCMyFYTzvhOr/34ifrFc+fMkzM2PCw6d5GKDR/u/+WGcxcPwtP2LXi/Z+vaZQrmjA6PjMtftk6bZ0YsO+K57Ou5/7+9O4+v6c7/OP75nrtkl4gkIrGFpqiQRkIwaqnWUksIoRLajvGb0kFbP3SdGf21/bWV2qemo1O01WkzllCCoagOLUJp+fETlLS2lFgmIctdzvyhuJIrkkpOMryef96Te87nfu7jkXPe9/s935Oz7aP/Gd2/ffOGwbW8fYMbR8U/lDQuddneC87yVuzMntXZQylL7Ov77SJi2/F8M7NSytRg7CabiIjjUGp7q1Ka77BlRSJy6WD6H5LaRdTx9o97bZfLMon2M5kfvzZmQIcWDUNqeXn6BoVHxvZ8/IW5648WuDtm1TWkDBXplWuFop/PnPtfXSND/P19vaxmD7+gxvc//PgfP959zuWNti3PNjEr5dH7/bNOESla9USgUkpZO7592HnLNtq2TW5mUUqZgoYvz3Nbu/PorC6emlKaV9fZx8r93QLAnUQHANxdCpc+6qNERPmlLC+86V/ZMl9oYRYRS/zULPvVFx3Zs7tYRcSz78xlE6K9S8/wU77RE9bn2k58Nj7Gv9RPfMrScMiiY/bSxyo48MHI1gGamwmDyhz8q/9ecay4PJ/LcWzmA9bSu9Dq/25jsa7ruj1rarxFRPk8urQgb+fU7sE/F6iFPrmu6Mouio6kjWlT2+Ru5qLyikiYvuOCs8Qxq6YhZahor65V2G9h1qqnWrgpUZS1cdKCQ1ffV/zPZyLcLFpi6ZB6yHHrNhZ/Peles4howY+tyHP3JR16u6NViSjvh9897qjQJweAOwT3gAEAKqz4yylPrL5QYAltN2BIn06tG5hO71j63sJN2YV6/rezHu+3O2DPFweKA+8fMLRfl+hw5/Fv1i766POjBbrthyWTXhnRb37fWi77sh96L6nbmIzTDl2UV4N2vXs/EFXf1372SOa6VRsPnref2To9qfvZT76cnxh2i0kbWljKgp1d820H/pQ0/K/fO8xRTy/58NeNNWUNanrjyc55NuOZiS9uPB8Q1Xdw/87RTRrERJlFxHlq6agHhy/KtumiTP5NO/fpFR8ZbM7L3rMxY/23OUUFR1dM7NHfsXndxNal1y2pzIaU4TZ65cj+YNTIzQcKTMExA4YndYsKNZ07umdT2sdrs/KcxceWjB/dtcu6pyI0EXPMpIxvnigu3jqlx9jl53Vr51c/n92vliifsBILZrptoyU2MSFieuohR+7a9M2X+vfxKVFF1pK0TJsuyu/B5IG3+kIB4A5V3QkQAGCwShgBExHNv+PLm89eH8NwnFycUv/qyInybDn6s+O2axudP2WMamoSEdHCx2wocj3MgWkP+CkR0QI7PpeR7VqPI3fHnMTGFiUiWlDiopMlBp9uWviul+4zi4il3ZsHbxhcujp0Y64bFmIJ6f6/W3NdR2Ccpz8dcmW5Ry2o2yubTtlcNl387r1hTa1KRJR3+zf3uWyq/IaU9cl+Sa9cKhQtoMOLG3Jcm5L/zZud/TURUdYHZhx17UfRmt8EaSLi0XfhuRuqKLuNul789aRIk4hooSNXXyrxCex7X42xiIgKGPxJbjm/TwC40/DrEwCg4pRft9cXTelc5/pZRKs34OnhkWYREWVp+eyCGf3Cr487qeCeE0e1sYiIM/fkqaLr+8lbP23GV3m6mBqMmL/8jUcauo4taYFtx360+LloDyXO3JWp8/b+ovulStHtOaf1/jMWPd8x0OUc6Di4cPqKn5wipsYjP1zy+66hLoNmqlarUQuWvBznpUS/nDn3nS/cPNi5shpShtvtlVa759RPXn0wxHV+oU/M039MCTeJ6I4fs487Sr/ppty3UUQssYkJTUwizp/WpP/zxvvm7PsW/32vTUSr0ye5dyBLVAK4SxHAAAAVpjy7jHi0cYk7hUyNmjYyiYiY7095vI1nyY2RTSxKRHSH/Xo4uLzpk/STDlHWuLEv9g12c0XuHTtuXHcvJbrtwD/WZ1fSmg2msEGjB4becDTHkc/Sdxfpojw7jH++p5ts4BE9dnJCoCbiOLFy+fbikpsrqyFluN1eafWSnklpVOq0b41scWUorpxluHyC0m0UERFL7KArCSxndfoW1wRm//bvSw7YRbSQ/sk9/Ct2MAC4cxDAAAAVpgLqh/uVuvQ2m6+M91ibRDYqtYyDMptLvWbfu2XbBaeIqXGXLk3cLPwgIiowpk2ESUTshw8cqpwhMGWN6RhbIg7l79y2zy4i5qhHejV2e2pUAd0f+ZWnEnHk7Mw8VnKsqJIaUobb7ZXyiOsc7+3mTWaz20VHbsldG6+4NgZ2OiP9q8JrL9t2pS3JsouYwgcmd/Nx90YAuCsQwAAAFaepMs4fJoulfJf09hM/nnKKiD1ranuLcs/S5rX/s4uIM+9sbvmm6t2K8g8L9bmxQOeZk6dtuojyiGzubglAERHld2+zcE1EnKdPnC49vlQpDSnD7fZK1aob4nW7Rdyww9JtvMoSdyWBOU5lLN92tZDi7WlLj9hFTI0GJ3eq1EoA4D8LAQwAUE30Sxf/Vf4nFutFhUWV8qBf5eVdcjF2Z35evlNElI+vz01PjMrP308TEee/LuYZ/gCr2++V2VSRAbdbc9PGa64lsBOr0rdfSWCFX6Uty3aImCOHDIsvvYwkANw9WIYeAFBNlLefr0mJ6Ja2L2TMGxpS9iiR5tcgoHLWbXD3tC4/HyUi+uX8SzfNVvql/Mu6iGg+vt6G/3xZXb0qq6QytlniEhMiZrx92PHjquWZqZ07WQu2pC0/7hAx3zd0WIylqksDgJqMAAYAqC7m0LC6mhx16IWWkKjo6Oo7JZmC6tW1KLHphYcPHnNIc7djRZcOZx13iIgWUq+u8fNHakyvyscSlzggYsbbhx3ZK5fveqtT681pK046RFlihj3asqbXDgBViymIAIDqYmndIc5HiTgObf7yhPuRJz33i5nPjh83bvzkD76zVV0lfrHtW5pFxL5v7bof3VdycdPqLZd1ES2obbumlTubrzxqTq/KxxKXmBBhEnEcW5m+6/zGT1fmOEVZ44cNudf43gFAjUIAAwBUG7/ug3oFaqIXbpn2hxU5bm5xKsicPn7yrDl/euf93ZcDq/DK3RTZL6GVVYleuHX21A0XSldSvHfuW8vOOEVMYX0HdKiOe5hqTK/KyRI3KCHCJGL//rMPpy7KOOMU5dkpebD7NSYB4C7C/0EAQLVRdRIm/PY+qxJH9qJf9382/YjrY6OcF7/9c8rgqftsumj1ksYNC6/KU5bpvpET+gZpotu/nzdi6Ftbz7gsNK/n718wctAr2y/rorzjfjf+Id8qLOSmqqtXRUW/cO2Tawks671py3Kdony6JQ+sz3UHgLseE7EBANXIM/7l+S9t7D5le97FHbMGtVoc16tv19YNa9nPfr9nw4p/7Dtn10VZmjz2zlv9qnhVCVVv2Ow5q3YMTztuz1n3YtfmHz2U0Dv+njpa3g97Pl+xetepIl1Eq93ltb9OiKquU6exvfr5IWbFX7/70kyvHmEmn+Z9+kT7V2THlrhBCREzpx122G12EeX/cHL/ulW+NAgA1HgEMABAtfJu+/s1az2GD5uy5ofCgpOZ6fMy069vVKY6bcf85dPpAwy4ctfChy7c5PAb/NT73120n9u/dsH+tS5blXfTgW+kLRgXZa3yQm7OwF5Zojq0rTVv5QU9f/f8CY/NF0uH1P2PVCyAiSU28UoCExEtsHdKnyDyFwAwBREAUN1U7Y7PZezfu3rOpJTu0RGhAV4Wq0/t8BYdE558/W/b92+dMyjCqHXLPe5Jnrfz4FcLX/lt//hm9YN8Pazetevb5cLFAAACYElEQVQ1ienx2PN/Xr9/39LxsbWqO0EY1isVOvwvi18d0q5RgIfZ7OEX3LBBUMXvfLP+vBKHiBbcL6VnQOWUBgD/2ZSuV8pjLQEAAG5UvG1yqwdSs+ym+k+uyXr3Ya/qrgcAagBGwAAAQJUo+PKDT4/YRUwNE5M7k74AQEQIYAAAoGpcXLtw6QmHiLlpUnK1LN0PADURAQwAAFS+wr1zU9PPOkVZWianxBp1Gx8A1HisgggAACqNbVvqiGnfWU05O9dt/P/LumiBfSeObsXlBgBcxX9EAABQafQLBzcsW3TWKSIiylS31+tvDOXxXwBwHVMQAQBApdHqRbW7J8jbs1ZYi24jU9dsXza6GdMPAcAFy9ADAAAAgEEYAQMAAAAAgxDAAAAAAMAgBDAAAAAAMAgBDAAAAAAMQgADAAAAAIMQwAAAAADAIAQwAAAAADAIAQwAAAAADEIAAwAAAACDEMAAAAAAwCAEMAAAAAAwCAEMAAAAAAxCAAMAAAAAgxDAAAAAAMAgBDAAAAAAMAgBDAAAAAAMQgADAAAAAIMQwAAAAADAIAQwAAAAADAIAQwAAAAADEIAAwAAAACDEMAAAAAAwCAEMAAAAAAwCAEMAAAAAAxCAAMAAAAAgxDAAAAAAMAgBDAAAAAAMAgBDAAAAAAMQgADAAAAAIMQwAAAAADAIAQwAAAAADAIAQwAAAAADEIAAwAAAACDEMAAAAAAwCAEMAAAAAAwCAEMAAAAAAxCAAMAAAAAgxDAAAAAAMAgBDAAAAAAMAgBDAAAAAAMQgADAAAAAIMQwAAAAADAIP8Gzc3EXzDiiWcAAAAASUVORK5CYII=" width="576" /></p>
+</div>
+</div>
+<div id="using-survtab_ag" class="section level1">
+<h1>Using <code>survtab_ag</code></h1>
+<p>Arguments concerning the types and methods of estimating of survival
+time functions work the same in <code>survtab_ag</code> as in
+<code>survtab</code> (the latter uses the former). However, with
+aggregated data one must explicitly supply the various count and
+person-time variables. Also, usage of the <code>formula</code> argument
+is different.</p>
+<p>For demonstration purposes we form an aggregated data set using
+<code>lexpand</code>; see <code>?lexpand</code> for more information on
+that function.</p>
+<pre class="r"><code>sire$sex <- rbinom(nrow(sire), size = 1, prob = 0.5)
+ag <- lexpand(sire, birth = "bi_date", entry = "dg_date", exit = "ex_date",
+ status = "status", breaks = list(fot = seq(0, 5, 1/12)),
+ aggre = list(sex, fot))</code></pre>
+<pre><code>## dropped 16 rows where entry == exit</code></pre>
+<pre class="r"><code>head(ag)</code></pre>
+<pre><code>## sex fot pyrs at.risk from0to0 from0to1 from0to2
+## 1: 0 0.00000000 336.9447 4126 12 143 12
+## 2: 0 0.08333333 323.8542 3959 19 101 17
+## 3: 0 0.16666667 314.1913 3822 10 86 15
+## 4: 0 0.25000000 305.0373 3711 15 77 13
+## 5: 0 0.33333333 296.7300 3606 16 72 13
+## 6: 0 0.41666667 289.3323 3505 13 50 14</code></pre>
+<p>Now simply do:</p>
+<pre class="r"><code>st <- survtab_ag(fot ~ sex, data = ag, surv.type = "surv.obs",
+ surv.method = "hazard",
+ d = c("from0to1", "from0to2"), pyrs = "pyrs")</code></pre>
+<p>Or:</p>
+<pre class="r"><code>st <- survtab_ag(fot ~ sex, data = ag, surv.type = "surv.obs",
+ surv.method = "lifetable",
+ d = c("from0to1", "from0to2"), n = "at.risk",
+ n.cens = "from0to0")</code></pre>
+<p>Note that e.g. argument <code>d</code> could also have been supplied
+as</p>
+<p><code>list(from0to1, from0to2)</code></p>
+<p>or</p>
+<p><code>list(canD = from0to1, othD = from0to2)</code></p>
+<p>for identical results. The last is convenient for
+e.g. <code>surv.cause</code> computations:</p>
+<pre class="r"><code>st.ca <- survtab_ag(fot ~ sex, data = ag, surv.type = "surv.cause",
+ surv.method = "hazard",
+ d = list(canD = from0to1, othD = from0to2), pyrs = "pyrs")
+plot(st.ca, y = "surv.obs.canD", col = c("blue", "red"))</code></pre>
+<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABIAAAASACAIAAAAIyqENAAAACXBIWXMAAB2HAAAdhwGP5fFlAAAgAElEQVR4nOzdd3hNh+PH8c+9N1NC1N679h6xi5ba1IhVVH+laKuqVNH11a9WlVa1VauoEXvvr1G79kgJRY0iiJgR2bnn90eohqjS5JxE3q+/4uac61PP83ue3/t7zj3XZhiGAAAAAADJz271AAAAAABIKwgwAAAAADAJAQYAAAAAJiHAAAAAAMAkBBgAAAAAmIQAAwAAAACTEGAAAAAAYBICDAAAAABMQoABAAAAgEkIMAAAAAAwCQEGAAAAACYhwAAAAADAJAQYAAAAAJiEAAMAAAAAkxBgAAAAAGASAgwAAAAATEKAAQAAAIBJCDAAAAAAMAkBBgAAAAAmIcAAAAAAwCQEGAAAAACYhAADAAAAAJMQYAAAAABgEgIMAAAAAExCgAEAAACASQgwAAAAADAJAQYAAAAAJiHAAAAAAMAkBBgAAAAAmIQAAwAAAACTEGAAAAAAYBICDAAAAABMQoABAAAAgEkIMAAAAAAwCQEGAAAAACYhwAAAAADAJAQYAAAAAJiEAAMAAAAAkxBgAAAAAGASAgwAAAAATEKAAQAAAIBJCDAAAAAAMAkBBgAAAAAmIcAAAAAAwCQEGAAAAACYhAADAAAAAJMQYAAAAABgEgIMAAAAAExCgAEAAACASQgwAAAAADAJAQYAAAAAJiHAAAAAAMAkBBgAAAAAmIQAAwAAAACTEGAAAAAAYBICDAAAAABMQoABAAAAgEkIMAAAAAAwCQEGAAAAACYhwAAAAADAJAQYAAAAAJiEAAMAAAAAkxBgAAAAAGASAgwAAAAATEKAAQAAAIBJCDAAAAAAMAkBBgAAAAAmIcAAAAAAwCQEGAAAAACYhAADAAAAAJMQYAAAAABgEgIMAAAAAExCgAEAAACASQgwAAAAADAJAQYAAAAAJiHAAAAAAMAkBBgAAAAAmIQAAwAAAACTEGAAAAAAYBICDAAAAABMQoABAAAAgEkIMAAAAAAwCQEGAAAAACYhwAAAAADAJAQYAAAAAJiEAAMAAAAAkxBgAAAAAGASAgwAAAAATEKAAQAAAIBJCDAAAAAAMAkBBgAAAAAmIcAAAAAAwCQEGAAAAACYhAADAAAAAJMQYAAAAABgEgIMAAAAAExCgAEAAACASQgwAAAAADAJAQYAAAAAJiHAAAAAAMAkBBgAAAAAmIQAAwAAAACTEGAAAAAAYBICDAAAAABMQoABAAAAgEkIMAAAAAAwCQEGAAAAACYhwAAAAADAJAQYAAAAAJiEAAMAAAAAkxBgAAAAAGASAgwAAAAATEKAAQAAAIBJCDAAAAAAMAkBBgAAAAAmIcAAAAAAwCQEGAAAAACYhAADAAAAAJMQYAAAAABgEgIMAAAAAExCgAEAAACASQgwAAAAADAJAQYAAAAAJiHAAAAAAMAkBBgAAAAAmIQAAwAAAACTEGAAAAAAYBICDAAAAABMQoABAAAAgEkIMAAAAAAwCQEGAAAAACYhwAAAAADAJAQYAAAAAJiEAAMAAAAAkxBgAAAAAGASAgwAAAAATEKAAQAAAIBJCDAAAAAAMAkBBgAAAAAmIcAAAAAAwCQEGAAAAACYhAADAAAAAJMQYAAAAABgEgIMAAAAAExCgAEAAACASQgwAAAAADAJAQYAAAAAJiHAAAAAAMAkBBgAAAAAmIQAAwAAAACTEGAAAAAAYBICDAAAAABMQoABAAAAgEkIMAAAAAAwCQEGAAAAACZxsXoAkt7Zs2cnTJgQFxdn9RAAAADg73h5efXv3z9dunRWDzEPAfYUGjt27Jdffmn1CgAAAODRihUr1q5dO6tXmIcAewrFxMRIatasWa1atazeAgAAACRu7ty5Bw4ciI6OtnqIqQiwp9bzzz/fr18/q1cAAAAAiTt8+PCBAwesXmE2HsIBAAAAACYhwAAAAADAJAQYAAAAAJiEAAMAAAAAkxBgAAAAAGASAgwAAAAATMJj6B8hNuxKcMjV66HhUTFOu7tX+vTpfbJkz+rNvxsAAACAx0ZIJCIiaOfyuQtXrNu668DhU5dvxxoJfmuzuWXIXbh4mSr1Grd86aVGvnnT2SzaCQAAACB1IcAScF7dNXFIv6E/7bwUbTzsGMOIvnn+6K7zR3etnj6if9ZKnT4YPeKtWtkdZu4EAAAAkBoRYPdEn5zVvfH/zTwRdbe9bI50mXLlzZc3Z+b06Tw93R3O6MiI8FvXgoPOnQ0KCYsxJCMmZO+0fs9v3PTdqlk9S3laOh8AAABASkeA3RWx+9M28fVlc89Vrf3rPV5uWb96mbzpE72y5YwI/m3P5jULpk2ctuZYaMzZpW+3Hlhk97cv+HA3IgAAAICH4imI8Zxnpw4Z/WuUYXPkbvHN9sDt0z559cXyD6kvSXbP7CWfa/futysDAhb3qeBlM6JPTPpgwvE4UzcDAAAASGUIMEmS89ySudsiDDnyvjZ5xtuVMv7jC1nuBVqMnvvfWp42I2r/4uWnKTAAAAAAD0eASZJijxwMjDFkz9bEr16GxzzXUbiNn6+rFHfiCJfAAAAAAPwNAkySZERFRRuSzTu99+N/isueIWMGu2RERz380YkAAAAAQIDFc+TJn8chOc/v23/R+bgnRwTsORwj2bPnzM4/JwAAAICHoxgkSS5lmzXO75ARsXnEoPnnHudGQuPW7pGDp52Jkz1zzbplXZNtIQAAAIDUjwCL51a1Z5/aGWyKOzuna/WGA2fsvhj1yHPibvy2clTnGg2G7gg1bG6lerzZwMuEpQAAAABSLb4H7A5H0TfGj1xf742VF6ODNozsWu2bd4r41qpVtUKJQvnz5Mzi4+Xh4eZixERGRoRdvXT+3OnjAXt+2bbz8KVwpyHJnrHmx5MHV3G3+j8CAAAAQIpGgP3Jtdjr8zZ49OnYd+qvN5xGzLUT25ed2L7skafZ05fsOGLG2F4VufwFAAAA4O9xC+JfeZbo+uPeYzumfdz5ucI+Ln//PESbS4aCNTsOmbL1twMze1f0efyHJwIAAABIa7gCdj+XbL5dhs7oMjTmxulf9+4/dOzkH0HBV6+HRUTHytXTy9vb2ydrviLFihUvXa50gYw8dAMAAADAP0eAPYxrxoKV6hesVN/qHQAAAACeGtyCCAAAAAAmIcAAAAAAwCTcgvivRV6/eC3caUg2z8y5MnlYPQcAAABAisUVsH8r6n99iuXJkydPnjyFe6149Lc3P4aPP/7Y4XDYHt/o0aMl/fLLL0m55gGn3EvIZts5YEGy/i0AAADA04QAS7kiIiKcTucTn37x4sUkHPOgLDEXJWUZOzRZ/xYAAADgaUKApVwjR440nkjFihUlZcmSJVnn/Z6+gqS8kSeS9W8BAAAAniZ8Buzfcntu6M87+8QZkj3zs25WrzHRpbZvasomd0VFn73kli+H1XMAAACAVIArYP+W7ZnClX2rVq1atWqVIplsVq8xUc0RLeN/ONHvB2uXAAAAAKkFAYYn5JPFNUzpJT2zepbVWwAAAIDUgQDDkzviUV5SjojTio62egsAAACQChBgeHInyraVZJfz1ootVm8BAAAAUgECDE8ue7fG8T9cGTfX2iUAAABAqkCA4clV61zkD1t+SbHpfKzeAgAAAKQCBBienHd625b6/5WkE3wbGAAAAPBoBBj+lfQt6knKdWKz4uKs3gIAAACkdHwRsyQpLvz61VvRxr97E5tHxmw+7kkzKNWo0DzPyT6FC8eedO4/aK9Syeo5AAAAQIpGgEmS8/QPTUu+tyPm372Lh9/8G/PaprECy59fs73qFb59MmT+puwEGAAAAPC3uAVRkuSeKWtGV5vVK1KpK6XqSIpau9nqIQAAAEBKxxUwSbLn/b+lQS0OrZk+ZtjwaXuuxBqSbF6FqtUq6vMYVeZWPkea7FnXBnW1WzkOrY2ctcijU2ur5wAAAAApFwF2l2uWMs3f/fHFJuVb1Oy79ppTjrztxqwYXoV/oEcK27JfkpszKqr7a2rfUg6H1YsAAACAFCpNXrL5G+7Few57vRjV9Ti88z4T/4N7xA3t2GHtGAAAACAlI8Du51q+cYPcXMN5DFkbVYrTnX+x2KUrrR0DAAAApGQE2ANcSlcswwM5HkPZaumOqVj8z1Hzl1k7BgAAAEjJCLAH2DKUf7Flvbp1fAtlIMP+iSJFtMulZvzPXn8c0cmT1u4BAAAAUiwC7EEu5frM2bBx/bQexbgT8Z+w2RSc3/fen1etsm4LAAAAkKIRYEgCLjXuBVj0Yj4GBgAAACSOAEMSyPFCqdvyiv/ZZdsm3b5t7R4AAAAgZSLAkAQqVHbsUZX4n6PSPWPtGAAAACDFIsCQBEqV0q89x25VbUmeQ/rJy8vqRQAAAEBKRIAhafQZV3JG+jckRazeZPUWAAAAIIUiwJA0bDZFVqtryOa6c6tiYqyeAwAAAKREBBiSTPG6OY6pmEtkmPbvt3oLAAAAkBIRYEgyNWtqk+pK0qZN1i4BAAAAUiYCDEnG11fbXOpKil7zs7Ztk9Np9SIAAAAgZSHAkGSCglTLY68hmzZtUu3amjnT6kUAAABAykKAIclM+D6mZ9hXhmxuipakBQusXgQAAACkLAQYkky+wq4n9KxdTkmGbFq/XuHhVo8CAAAAUhACDEmmYkXtUtX4n0OVQRER2rjR2kkAAABAikKAIcmUL6+9tirxP6dTuCStWGHlIAAAACCFIcCQZLy8dCmfr6QoubsqRpKWLZNhWDwLAAAASDEIMCQlz+rlo+Qe/xCOm/LRhQsKCLB6FAAAAJBSEGBISqUruQeonE2GpFtKL3EXIgAAAHAPAYakVKGCdstXkiFbVoVI0okTFm8CAAAAUgwCDEmpUiVtcntRUrCyuyvqbL+v9dVXVo8CAAAAUgoCDEkpY0Z99mvzj3tcXKg2kvJlDleWLFaPAgAAAFIKAgxJrFgxVW+VY5PqStLmzRavAQAAAFISAgxJr3p1bbXXMWTT9u2KjrZ6DgAAAJBSEGBIehkzKkuJrIEqpfBw7dlj9RwAAAAgpSDAkCxq1tRG1ZOkjRut3gIAAACkFAQYkkWNGtqsOpJ+n7z5VuV6atrU6kUAAACA9VysHoCn0Pr1cr4/eIImOWXPdeaXqCBvxVzWkSMqWdLqaQAAAICVuAKGpLd9u7yCT2XW1QvKlU7hO2MrS9K8eVbvAgAAACxGgCHplSmjvaos6ZoySbpkZJekyZMVF2ftMAAAAMBaBBiSXsWK2i1fSV66LSmfzgZnKqHz57VmjdXTAAAAACsRYEh6+fPr5DOVY+WST2edstfU9tkuXSRp0iSrpwEAAABWIsCQ9Gw2FavodVQlXBVzSoU8FPnz5dKGm7tWrlRQkNXrAAAAAMsQYEgWFSpol6pKClJuSRV04Ey5loqN1dSpVk8DAAAALEOAIVlUqKA9qvLnH+to8wTjdUlat86yTQAAAIDV+B4wJIuKFTVSvpKy6bJT9pq2X8Zmq6mpU1W6tNXTAAAAAMsQYEgWRYvKpUKZny903BxcvI19cVnnwfkDdqleN6t3AQAAAFYiwJAs7Hbt2e+QZvUorPSnbpXVQfuSRapXx+pdAAAAgJX4DBiSV40amq2OkjR7tmJirJ4DAAAAWIkAQ/KqUUP7VfFsxrIKCdHq1VbPAQAAAKxEgCF51aghSbPsnSVp+vQ7r0ZGWjYIAAAAsA4BhuRVpox8fPTdtZflcGj58vVzr8aeOa8cOfTGG1ZPAwAAAMxGgCF5hVyI6Vto+U35XCpdX9HRizrMm/yTQ7dva/JkhYRYvQ4AAAAwFQGGZDR9ugbknTv0QIsPNWxJhq6Sumr6+KU51bixoqM1bZrVAwEAAABTEWBIRrdvK0RZJdXU9qG/tjIy+FTTzsiDv51r1EOSJk2SYVg8EQAAADARAYZkVLGi9qiKIVsV+74rN10vVG8j6WX5Tw1uonz5dPy4tmyxeiMAAABgHgIMyahsWYW6ZDppK+LhDC+lwLnuXSV10Yy582zq1k2SJk2ydiEAAABgJgIMycjTU8WLa4dRTdJz2jJy13NGwUL59Uf23zYfrdldDocWLOBRHAAAAEg7CDAkr4oVtVqNJXX1mHcp2Ha+zsuSumjGzM151bChoqLk72/1RgAAAMAkBBiSV4UKWqqWUS5elSK3F9AZf0dX2Wx+mr9sVph69ZKkPXus3ggAAACYhABD8qpYUeFKtyVDM5sMP82fsKGIUa26t8JqXF4S27i5Vq/WV19ZvREAAAAwCQGG5FW+vOx2TYzoIql8uuNnzuj8810lfVtlhouL1KiRcuSweiMAAABgEgIMyStDBn3+uSp+1FTr1+/rMFLSjJgO8vR037pe585ZvQ4AAAAwFQGGZPf++xo8WHrhhUYdMkqavcpHzZrJ6dSsWVZPAwAAAExFgME8desqUyYdPqygF7pK0vTpVi8CAAAATEWAwTyurmrWTJL8rzZSjhw6ckT79t353YULiouzcBsAAABgAgIMpmrVSpIWLnVRhw6Sbnw7PTZW2rlTefKob1+LxwEAAADJjACDqRq+aGT1Ct+zR5de7Copbrr/wHeilSWLJP30k0JDLd4HAAAAJCcCDCZZvlzjx8vzowFBEZlKGYfnnagQVaxsZl0NnrYmOl8R1a2r27d5LAcAAACebgQYTDJwoHr31pUQw9UZ9aqmLl4s9+5dJLUOm75undSjhySNH2/xSgAAACA5EWAwSc2akrTSu72kjrY527c6rzbp4rS7NNfyVdOvqE0bZc2qgIB7j+UAAAAAnjoEGEzSvLkkTThYVUWK5DQuVI/btmRH9sha9d0U7bFsXkScm7p0kaRJk6zdCQAAACQfAgwmadBAnp7atUu3m/hJ6qA5ixcrXa+ukvwiZ6xeLb3+umw2+fvr1i2rxwIAAADJggCDSdKlU926cjq1PksHSX6av2l9bOgLraI8M1bTzm0//qZixVS7tsLCNHeu1WMBAACAZEGAwTzxdyFOP1hWpUpl0ZVaURtWbvCIbdlGUo71M8PCpDfekKQ//rB0JgAAAJBcCDCYp0UL2Wxau1axrdtJaq+5ixfLq3dXSR1iZpw55VT79jp0SB99ZPVSAAAAIFkQYDBP7twqV05hYdpZsKPs9mrauXq1IirXjstfKJ/Olr66WZJKl5abm9VLAQAAgGRBgMFUr70mFxfFFXpWixePKPFTWJjWrbc5XuksSdOnW70OAAAASF4EGEz11lsKDVWdOlKLFkU7+0pavFjq0kU2m+bPV1iY1QMBAACAZESAwWyennd+aNtWkpYsUUz+IqpRQ7dva8kSC4cBAAAAyY0Ag2WKFlXJkrpxQ5s36863MP95F2JMjAIDLdwGAAAAJAcCDFZq3VqKvwuxQwd5emrDBuPsOUn69FOVLq0FC6ydBwAAACQtAgxWatVKkhYtkjO9T0yj5nI6ZzefJUl58kjSxIlWjgMAAACSGgEGaxw8qPBwVby8JsSRo8Kl1bt2KbZjF0kVfp128eK9C2I6d87qpQAAAECSIcBggX37VKGCevaULl7MEhfcV2MWL5Znq0Y3PHKU0NFNo/bKx0fNm8vplL+/1WMBAACAJEOAwQI5c8pm05Ilimr8kuHq9oI2bJx7WS4uVxp0lOScNkOSunaVpKlTLV0KAAAAJCUCDBbIlUvlyiksTJsCntGLL7ootsrZhQEBKvhBJ0kNrs7Z/UusGjZUjhw6flx79li9FwAAAEgaBBis0by5JK1YIVuH9pLaa+7ixXJUrXwlU9Fsurztvxvl4qJOnSRp2jRLlwIAAABJhgCDNeIDbNkyqWXLODfP2tq6fe55SY7OHSVlXT87NFR65RVJmjNH0dFWbgUAAACSCAEGa1SurFy5dPasDp1Jb2vW1C5n2d/mHT+uZ97oKKll7MIFMyJUtqyqVVNoqK5ds3ovAAAAkAQIMFjDZlPjxpK0fLnsnTpIaq+5S5ZIxYpdL1gxg0LDF62RpJUrFRCgHDksHQsAAAAkDQIMlvnzY2Bq0iTGM0MV7Vm7IFRSxt4dJXX3mi1JmTKpRAkrVwIAAABJhwCDZerXV/r0CgyUPD2dM/zfdfv+570Zzp2T7eVOsts91i3XzZtWbwQAAACSEgEGy3h5af16rV0rSe5tmp1t9oZhaOlSKVcu1a6tyEgtXWr1RgAAACApEWCwkq+vqla983OrVpK0eLEkqWNHSZo925pZAAAAQPIgwJBSNG8uNzdt3qwrVyQ/P7m5af16BQff+fWFCwoJsXQgAAAA8G8RYEgpfHxUr57i4rRsmZQpkxo0UGxs6JQFhiHFxalUKfn6KjbW6pkAAADAkyPAkIL4+UnSzJmS7tyFeGjI7I8/lhwO5cypM2fufGIMAAAASJ0IMKQg7eoEb7HXzbtpxunT0ksvOT29auiXlWPPREVJXbpI0vTpVm8EAAAAnhwBBuuNHasiRXT2rNJf+6O2c/N/jE9mzjDk5WVv2dwm48Xrc5cskbp2lcOhpUt144bVewEAAIAnRIDBer/+qpMnNXOmVLlyVJbcBXV674R9hnHnLsSOmj1pkpQ7t+rVU2Sk5s2zei8AAADwhAgwWK9JE0lavlyy2906tJZU88L87dulRo2MTJnLKSD458Dff5deeUXiLkQAAACkYgQYrNeggdKl0+7dCg6WrZ2fJD/Nnz7NkJubrU1rSe2NOVOmSK1bK316bd+uY8esngwAAAA8CQIM1kuXTnXryunU6tVSzZqx2XIV1Oljs/eHh9+5C7GTZv001YhxTae2bSXJ39/ixQAAAMATIcCQIjRrJt29C9GlXWtJTW7PX7xYqlNHuXMX0ql8l3avXCl17y6bTX/8YfFcAAAA4IkQYEgRWrSQzaa1axUVdefrwNpp3vRphux2tWsnqaNmHz8u1aihAwf0ww9W7wUAAACeBAGGFCF3bpUrp7Awbd4s1apl5MhZUKfPbzh27tyduxDfyDy339txklSunLy8LJ4LAAAAPBECDClF8+aStGGDZLfbvv5qW/6XTzvzz5ghVamiokVdr15y3bbR6o0AAADAv0KAIaXo1Utt2uillyRJHTuG/jAzQp4//STDkDp0kKTZsy0dCAAAAPxbBBhSily5tGCBqle/88eGDZUnj06c0M6dd+5C1IIFioy0cCEAAADwLxFgSKEcjjvZNW2aVLy4KlRQaKjWrLnza6dThw/L6bRwIQAAAPC4CDCkXN26SdKcOYqIuHMRzJg1e+dOOZ3SlCkqU0Zff23tQgAAAOCxEGBIuUqWVOXKunlTS5dKHTrIbncuWdaweujo0VLBgpI0cqRu37Z6JgAAAPBPEWBIwSIjp6R7q77WT5sm5c2rWrUcMZEttXTcOBnPv6CaNXX5ssaPt3olAAAA8E8RYEhxpk/XoEEyDCkwsMyWsT/Y3ly7VufP37kL8f88Z588qY0bpSFDJGnkSIWHW7wYAAAA+GcIMKQ4Y8ZoxAht3CiVL69s2Z41jpd2/jprltSundzcnotal02XJ02SmjRRlSoKDtbEiVZPBgAAAP4RAgwpTtOmkjRrluRwqFUrSX6aP2WKlCmT6te3O2Pb2RcsWqSQEOmjjyRpxAhFRFg6GQAAAPhHCDCkOF26SNL8+YqIkPz8JHVymXfsmHbvvnMXYi+f2dHR8veXmjdX5cq6dEmTJ1u7GQAAAPgnCDCkOM8+q0qVFBqq1aulunWVLVuh2ONldGjaNKlVK3l5lbqxvYDOTJggw5A++ECSvvxShmH1cAAAAOARCDCkRC+/LEn+/pLDoZdektRWC+bMUZSLl5o1k2G8ln7eb79pxw6pZUs1a6bixWWzWTwaAAAAeBQCDClRhw5yOLRypW7ckNq2ldTVfe61a1q+/M5diD28Z0u6dk2y2bR8udautXgxAAAA8A8QYEiJcuZU3bqKitKiRVK9esqSpUDUseL6bdo0qXFjZcqU/eLB4J8DmzWzeigAAADwOAgwpFCdO0vS/PmSi4sGDowrUizM9Zk1a3Tpmptat5aUbeNciycCAAAAj4kAQwrl56eGDfX885Kk995znPitctPssbHy979zF6JmzeLBGwAAAEhdCDCkUF5eWrNG771375VXXpGkqVOlunWVO7dOntSePVbNAwAAAJ4AAYZUo2lTZc2qwEDtP2iP/34wTZuW4IiDB1W2rFatsmQeAAAA8EgEGFINV1d16iTFZ9drr8lm008/RZwNGTtWwcGSpFOndOiQ3nlHcXGWLgUAAAASR4AhNYm/C9HfX1HPllbTpgoP/73vd2+9pT59JEktW6poUZ04oTlzLJ0JAAAAJI4AQ2pSIeCnVsWOXL2qVaukDz6QVGrj95ndbi1apDNnJIdD778vSUOHchEMAAAAKRABhpTu7Fn176+LF6XAQL366oRbnRR/F2K1aqpd237z+phSE+PiNH68JKlLFxUqpBMnNH++tbMBAACABxFgSOnmzdPXX2vYMKloUWXKlPVCQBmXoytXKjhY8de72p0d5aHIiRN1+7bk6qpBgyTpv/+V02nxdAAAACAhAgwp3YsvStKcOYo2XNWypaT3iyyMjdXs2VLTpqpQwfXqpY8Lzbx+Xf7+kqRu3VSggI4c0cKFVu4GAAAAHkCAIaUrW1ZlyujaNa1bJ7VtK6lZxHz9+Qj6AQMk9bn9hUNxY8bIMCRX1zufBBs2jG9qBgAAQIpCgCEViH/6vL+/1KCBMmXy+ePX6s/8dvCgAgKk9u1VpIh38MnumRcfOaINGyRJr76qAgV07JjCwy0dDgAAACRAgCEV6NRJNpuWLlVYlKuaN5c0pNhCSVOnSg6H3n1X0lC3z2wyJk2SJLm7a/t2HTwoLy8rdwMAAAAJEWBIBfLlU82aCg/X0qWSn5+kF67duQsxPFz6v/9TzpzZLx7sW2p9rVp3z8mVS8WLWzcZAAAASAQBhtTh5ZelP+9CzJjR83iAX4Xfb9zQrFmSu3v8NzGPzv7FnW9kBgAAAFIkAgypg5+f3C+yWzwAACAASURBVNy0bp2uhbnplVfk5ta5XbSksWMlSW++qYwZ9fPP2rHD2p0AAADA3yDAkDpkzqw+fVS6tNzdpdGjde1aw34ls2XTwYPauVPKkEG9eknSqFFWLwUAAAAeigBDqjFqlA4ckJeXZLPJy8vdXa++KknjxkmS3nlHnp5avFiBgQlOi4jQ8OH6/XfzBwMAAAD3IcCQivXuLYdDc+fq8mUpe3a98ooMQ199leCgDRs0ZIg6dJDTadFMAAAA4A4CDKlY/vxq2FBRUfrpJ0nSwIFycdHMmQM7nB006O5Bzz+vvHm1b5+mT7dqJwAAABCPAEPq1ru3JE2YIKdTKlhQfn6KiSmwePSXX+rwYUlSunT64gtJGjRIoaEWTgUAAAAIMKRmR482dS4vWFCnTul//5MkDRokm627c2Jm48q33949rGNH1aql4GCNGGHZVAAAAIAAQ2o0fry2b5ck9expa9nivw226M9HcZQtq8aN3WLD+9i+nzlTV69Kkmw2ffON7HZ9/bXOnLFoNQAAAECAIbUJClLv3mrXTnFx0vPPS/L7Y5SHh1au1OnTkqT335fUz+U7R0TYpEl3T6tUSS+/rMhIDRxo0XAAAACAAENqkzu3ihbVhQvatEl68015erqtXfF2g6NOp+7k1nPPqWbN9DHXemjS998rJubumcOHy8tLCxZo61arxgMAACCNI8CQ+nTsKEn+/lLWrOrcWYbxrmOMpEmTFBkp6c5FsIEuX4cERS9Zcve03Ln1/vsyDC1fbslsAAAAgAD7G0Z06MWTgft3bdv88/p16zds2vLLnoCjp4NvxRhWL0vjOneWzaaFCxURIfXvL7s9+5pp9csEX7mihQslSc2aqXTpHLHnX5b/mDF/OXPQIPn7x+cZAAAAYD4C7EGR57bPHP5mS9+Cz3hnzFWkdKVqteu+0ODFBvXr1anpW75koRw+XhnzlXu+Y79Rc3ddiLR6bJpUpIgqV1ZoqFaulIoVU+PGiowcXnCi/nwUh80WX1lDHCN2bHfeeRSHJFdXdeqkzJktGg4AAIC0jgBLIOrUsg+bli5eu8uQH5btOXMz8UtdRkzouV83zvnmvQ7Vny3ZcMDMgJtcETNd586S7n7/cv/+kirt+D5Hxsjt27V/vySpY0cVLlwk7tiaXksILgAAAKQQBNifjFt7v2pZq83nq06GG5LN1Sd30dJlShTI7GGzSZLsPqVebPNS0wa1yhfO7uVikyQj/PTar7rWeq73gtPRlm5Pe15+WR4eWr1af/wh1aunihVtIZdHVF0kaeJESZLDoXfekdRg3xeWLgUAAADuIcDuMK6vGdBu0NqLsYbNq0S7ESuOXL5y/tihX4+cvhzy+5pR7YqlszlD/7hSuO+M/2098Pulm1dP/rJw9FsNCnnZZIT9OrFzs/c3ch3MTJkzq1UrOZ2aMUOSNGKEypV77vXiNpv8/XXzpiSpe3flyKE9e7Rhg5VbAQAAgLsIsHhxJ378dNqZWMPmWe7dFdvnDGxaPKNL/G/s3oVe7D9708wu+e1h+7/q2n/FNUNyZChYvfU73609vG/m/5XytBlRR3/oO3I/V8FMNWCAcuVS3rySpPr1dfBggdYV69ZVWJimT5ckeXjorbckacSIRM6/fFl9+yow0LTBAAAAAAEmSXKeXblsf5QhR8Hu33xa9xnb/b+352j52eAXvGxx5+eMmRvk/PN1z2Kdxi/87DlvmxEdOHXipghTR6d1FSsqKEivvJLgxd69JWncOBnxFyTfeks+Plq3Tnv33n/+zz/r22/Vtauczvt/BQAAACQPAkySFHss8Fis5MjZuFWNdIkeYc/1YuMKrjIid/xvc+hff+Fa7NXejTLY5Ly8ZVNgrClr8XCtWil3bh09qs2bJUk+PurZU5KGDQsOTnhoy5YqUED792vqVNNnAgAAII0iwCRJRlRkpCHZs2TP6njIIfas2bLYJSPmUtDluAS/8X62WB6HFHfhbFDcQ06GWVxc1L279Ofz6CX16ydvby1d6pdz24oVfznU01PDh0vSkCF3PzQGAAAAJC8CTJJkz5w1i12Ku3jm3MM+yOW8fCnEKcnm7uGe8BZFI/RmqCHZ3O7/BSzRs6dcXbVokYKCJEk5csQ/p36U0f+zYQmflNKhg2rX1uXL+oInJQIAAMAMBJgkyaVk5fLpbHKGrJq56kqiTzN0nlmxbH+MZM9QqHC2BP9qtzbPW3khTnIULlb4YZfPYJpr13J2qT+mzI+xsZo8+e6LAwYYOXL6aneeXQu3bk14/Jgxstv19dc6ccLsqQAAAEh7CDBJku2ZF9s1zGSXM3hu39cnHQ2///e3A77tPWxrhCF7xvpNa3r++boRGjD+1e6TzsTJ5l6uZdNCBJgVQkL08cc6fVqSdPGiNmzocWKgt8ImTFBMjCTJ29v2yceSRuj90SMSXuOsUEFduig6WoMHm70bAAAAaQ8BFs+Wtc1H/at42Yy4oMW9q/u2/fDHVbuPnjl//nTgjhUTh7SuUrv/2hCnbO5l3nqvRUZJknF1w2dtKhap8sbCP2INm0vBrp/2LEF/WWL5cv33vxo4UJJUqpRq1XK5dX1IjikXLmj58rsH9egRV6xkIZ3Ku2rC/U+e//xzeXtr4UJt2WLqbgAAAKQ9BNhdrmXfm/1D23yuNjlvBi78rEfTqiUL5s1bqHSN5j2HLz56yynZM9X7fMbgim7xxzuv7V++/GBIjCGbS67GoxZ83TgTnwCzRpMmcnXVsmW6fFmS4j/x9Wb0aBfF3nsUh8Ph+OIzSR8Zn477IuEjN3LlunP5a8cO80YDAAAgTSLA7nEp2HXWL8s+bFww3QMlZXPJXLH7lC3L3i3jkeB1u3eh53t9t2n/0r4VvE3bifvkyKEmTRQdrZ9+kiS1aKHixTNcO9PefcmGDTp27O5xL70UUa1eFl3JM3vkhQsJ3+L997V1q/r1M3M2AAAA0iACLAGX3I0+XXX0+I5537z/WtumL9SqUbt+s/a9Phm/IuD3PZNeKeX1l0MdudtPDgi6/PuGcW/WzO5i2WJIknr0kKSJE2UYkt2uPn0kDcvwpWFo/Ph7h3mO+cKQrW/c1zOHn0twvsOhWrXk5mbmZgAAAKRBlMOD3HNX9etb1a/vIw5Ll69UCVP24NEaN1b+/Dp5Ups2qV49qVs3ffJJgZA9NfTLTz/VGDZMXvHx7Ot7o37bZ9bPr7PxP9Lkv39PAAAAIMlxBQxPA7td3bpJ0qRJkqR06dSzp6TPMn1144Zmz7535DMTvpCbW9WjP+ngQQuGAgAAIG0jwPCU6N5dDocWLlRIiCTprbfk4VErfK2ksWP/clyhQurZU06nPvjAkp0AAABIywiwfy3y+sULQUFBQUEXrkVavSUty5NHjRopOloLFkiScuTQypXGwkXZsungQe3a9ZdDP/5YPj5atUrr1yfyRk6nSpWSr6/CH/g+OAAAAODf4TNg/1bU//oUa+V/y5A8/ObfmNfWPcne+bvvvvvmm2+e4MSgoCBJN2/efOSRT5mPPtK1aypf/u6fn3/eVerWTV9+qR9+UNWqd1/PkkUDB+qDD/Tee9q3T/aE/zOE3S4XF+3Zox495O9v4nwAAAA8/QiwlOvgwYOnTp164tMjI9PcBbmqVfXLL/e/2Lu3vvpKc+dqxAjlyHH31X79NH68Dh7UnDnq1On+c+bPl6+vZs2Sr6/6PuppLAAAAMA/RoClXJMmTfrgiT6n1KJFi8DAwOzZsyf5pNSoQAG99JIWLtS4cRo69O6rnp76z3/02mu33v4gfZs2ck944bJoUU2bplatNGCAypdXnTqmrwYAAMDTiQD7t9yeG/rzzj5xhmTP/GySfo+U3W4vVKjQE5zo7p5090E+Fd55506ADR4sjz+/Srtbt8Be35W6ejBo8Pe5v+5//zktW2rgQI0YofbttW+fcuc2dzIAAACeTjyE49+yPVO4sm/VqlWrVq1SJJPN6jVITK3Kka+W3BUSolmz/vKq3b6z+WeSMo79TNeuJXLa55+rUSMFB6ttW0VHm7QVAAAATzUCDGnAJ59MOVKtm34aPVqGce/lRt82+dle3yv6+o1BXyRylt2uGTOUL5927tTgwaaNBQAAwFOMAMNTKCBAnTvr9Om7f65QQdIwxye/H478+ed7h+XOrZ+bjHLKnn7KGCX6vJMsWbRwoTw8tGVL8q8GAADA048Ae4TYsCtBp48dDjiwb+++A4d++/1MUEhYrNWj8AirVsnfX599dvfP7dqpfPnccWd7asJ9D/Zv/3m52eroiIuOGvRJ4u9VubKOH9eaNck6GAAAAGkEAZaIiKCd875+r2vjasVyeHtmyJqnUPEy5StWrlK5YtkSzxbMkz2DV8a8Jas1eWXwd4t2nQs3Hv1+MFu7drLZNGeOQkMlSXa7Pv1U0ke2YVtW3vrtt3tHlimjdXWGRcndfYG/9u1L/O3y5lXmzMm/GgAAAE8/AiwB59Vd43vWKFSoRvv+o2as2XU8+HbsA4FlGNE3zx/dtXr6F2+3qV64gG+3MduC46wYi4cqXFh16+r2bc2effel5s1Vo0Zm40pf45vvvktwcNePC3yvt2QYzncHmL4UAAAAaQsBdk/0yVndqtd5Y+KOS9Hx1WVzpMuct1iFGnXrN2zS/KVWL7Vo2qhBvZqVShbI5u0a/7xDIyZk77R+z/u2nRAYYeV0PKBHD0kaN+4vL33xhaT++mrZ1KtXr957+fnntaLcB1eV2b5lE7caAgAAIFkRYHdF7P60zf/NPBFlyOaeq3rX/0z534E/rodeOfvb/u0b161ZuWzxosVLV6xe+/O2vYGng2/evBi4ee5XfZoUy2CXEXN26dutB264yd2IKUibNsqaVQEB2r//7ku1a6thQx/d7BPx5eTJCQ4e+eMzG6sOkqSBAxX3qOuZ8+Y99GZFAAAA4G8RYPGcZ6cOGf1rlGFz5G7xzfbA7dM+efXF8nnTOx5yuN0ze8nn2r377cqAgMV9KnjZjOgTkz6YcJw7EVMONzd17ixJkyb95dXPPpPN1kffTRgTGRNz7+XKldV201vKn1+HDmnGjL973ytX1L69XnhBx48ny24AAAA81QgwSZLz3JK52yIMOfK+NnnG25Uy/uMvVHYv0GL03P/W8rQZUfsXLz9NgaUkr78um00zZ+rWrbsvVaqkjz7akLHN6QvuixYlPNrDQ8OGSdLAgQoKeuibZsmi9u1186Zat1ZYWDItBwAAwNOKAJMkxR45GBhjyJ6tiV+9DI95rqNwGz9fVynuxBEugaUoxYurVi2Fhel///vLq0OHXhgxw5Bt1KgHTnj5ZTVqpJAQdeig2Id/2cCPP6pUKQUGqmfPZFgNAACApxkBJkkyoqKiDcnmnd77H1/8+pM9Q8YMdsmIjormU2ApzMiR6txZ1aoleLFLF2XJor17tXNnwqNtNvn7K39+bdumDz986Jt6e2vRIqVPr1mz9NfvdQYAAAAehQCTJDny5M/jkJzn9+2/6HzckyMC9hyOkezZc2bnnzOFqVpVM2YoT54EL3p66vXXJem+L2WWpEyZbkyYKzc3ffmlli596PsWLarBgyXp7bf/7loZAAAAkBDFIElyKduscX6HjIjNIwbNP/c4NxIat3aPHDztTJzsmWvWLeuabAuRpN58U25uWrhQZ8/e/6uSr1b9r/swGYZefVVnzjz0Lfr3V5EiCgzUlCnJuRQAAABPFQIsnlvVnn1qZ7Ap7uycrtUbDpyx+2LUI8+Ju/HbylGdazQYuiPUsLmV6vFmAy8TliIp5MolPz+5xkaM+/7+3C5TRp/cGrAv70u6fl3t2ys6OvG3cHPT559L0kcf6fbtZN4LAACAp4SL1QNSCkfRN8aPXF/vjZUXo4M2jOxa7Zt3ivjWqlW1QolC+fPkzOLj5eHh5mLEREZGhF29dP7c6eMBe37ZtvPwpXCnIcmesebHkwdXcbf6PwKPYeCrIeP8C+/6plbYx6u8ve+9PmGCypSxNTg35Xz2gHS7d2vQIH39deJv4eenevW0datCQuRFfQMAAODRCLA/uRZ7fd4Gjz4d+0799YbTiLl2YvuyE9uXPfI0e/qSHUfMGNurIv8PeOpStlq6UBfX+jGrlw1e1+K7Bn++XqCAPv1U7777jJ9z7kq3WvrmG9WqpdatE3+XlSt1+bLy5zdpNAAAAFI5bkH8K88SXX/ce2zHtI87P1fYx+Xvn4doc8lQsGbHIVO2/nZgZu+KPo//8ESYad06lS2rffv+8pKX19kOAyUV+nGIMy7B8yv79lXNmloVUmVe5S9lGHrtNZ06lfj7enpSXwAAAPjnuAJ2P5dsvl2GzugyNObG6V/37j907OQfQcFXr4dFRMfK1dPL29vbJ2u+IsWKFS9drnSBjDx0I7X49VcdOqRPP03waMMS494OnvNd6ci9ez9aXPnze9e47Hb9+KMqVFCHHX3r1t6abetCtW6tnTvl4WHBdAAAADxFCLCHcc1YsFL9gpXqW70DSaJrV334oVas0OnTKljwzosOb8/DLYZkX/Rm9jFD9GkLudz7P4fixfXBB/roI70YNHX/s4ftAQF67z1995016wEAAPC04BZEpAlZs8rPT06nxo9P8LrvpB6n7YXzhh8794X/fae8/77KlVPAqfS/vDNPnp76/nv5338MAAAA8FgIMKQV77wjSZMmKTz83ovpM7n+0uATSelGfKKoBN894OqqJUv0/ffy7V5Wo0ZJUq9e+u23h/4Fo0apcWOFhibHeAAAADwdCDCkFRUrytdX169rzpwEr9cY+3KgrXTmsD9Cx86475QCBe58ZbPeeEOdOyssTO3aKSIi8b9g61atWaPPPkue+QAAAHgaEGBIQ958U9L9n+QqWNg+v8boi8q5el+2vzt53DiVKKFDh+5cSnvQf/4ju13ffKMTJ5JoLwAAAJ42BBjSkPbtlT27Dh7U9u0JXq/3Wf1cuvD2+haRkQ8/2dtb8+YpXTpNnKjp0xM5oEIFvfKKoqM1aFDSzgYAAMBTgwBDGuLuru7dJWnt2gSv16mjypV1+bLmzv3b80uX1pgxkvTGGzpyJJEDhg9XhgxatEjr1yfRZAAAADxVCDCkLYMH69tv79yL+Fd9+kjSV1/JMB48SZKuXVPDhprm2l2vvKLbt9WuXYKnecTLnl0DB0rSgAGKi0va5QAAAHgKEGBIW7y81KePsj3waa8OHZQzpw4d0ubNiZ948aLWrVPv3vq931iVLKnAQL39diLH9e+vAgUUEKCpU5N4OgAAAFI/AgyQJDc39e4tSSNGSKdOPXj9qlQpdeumiAh17e3lnDtfnp6aMkW7d9//Rh4eGjFCkj78UH/3kTIAAACkRQQYcEevXvLxUdiabSpcWF26PHjA6NHKnVs7dmj8lpLq10+GoQEDEnkjPz/Vr6+YGAIMAAAA9yHAgDuyZtXnn+uMCoTZ0mv2bE2Zct8BPj4aP16SBg7UmQ6DlD27tm7VsmX3v5HNpjVrFBSkjBlNGQ4AAIBUgwBD2hUScv8jN3r1Ur4aeV4zfpSkt9/W0aP3ndKsmfz8dPu2uvdLb3z4kSQNHKiYmPvf2uGQh0dy7QYAAECqRYAhjTpwQDlz3v8cDbtdEyZosWu7mbYudx51GBFx34k//KCsWbVhg2ak66kSJXTsmCZPNm83AAAAUjMCDGmUj48MQ5Mn6+rVBK+XLq1331Vv44cz7sV0+LAGD77vxCxZ9PXXktT/fZe4ocMk6ZNPFBpqzmwAAACkagQY0qhChdSokSIiErl89cknyl7Yu22Uf5zDTd9+++CnvDp3VrduqlRJtjatVauWLl/WV1+ZtBsAAACpGQGGtCv+65jHjr3/mfOenvrhB+1TpQ/tn8sw9NprCgm579ypU7Vmjex2adQo2WwaOVLnzyf+17z+uipV0q1byfGfAAAAgNSFAEPa1bixihbV2bNaseL+X734ojp10oiYd/dmaaQrV3T48EPfpWpVtWmjiAgNHZr4AX/8of37NXx4ku0GAABAqkWAIe2y2dSrlyR9/30ivx0zRpmz2J67smjdsF2qV+/v3mjECLm5aerUxDtt+HDZ7Ro9WmfOJMFoAAAApGYEGNK0V1+Vl5fWr08knbJk0fDhipBnl+98r1//23cpVEg9eyouToMGJfLbihXVsaMiIxP/LQAAANISAgxpWsaM6txZkiZMSOS3r72mevUUHPzgoxATuH1b1/t8LB8frVyp9esTOWLECHl5ae5cbduWFKsBAACQWhFgSOvefluurjp3LpFf2WwaN07u7po06e/SqWFD5ft/9u4yrKqsiwP4/9x76RRsBLsbE8VGxUAwUUDCGjFRFFHHQBx1FBuwA7HAwm7s7m7HxhYQJe897wd9HUeJy+UiqP/fp3nOWXvvtecZ5mFxzlnbMu+7PiMAYPhwKBTfRpiZYehQABg27Nuzn4mIiIjod8ICjH53FSrg9m2sWpX63bJl4eMDhQK9eiExEXj58vtuh6VKIS4O/e4MgYUFLl7EmjWpTOTrC3NznDqV+l0iIiIi+j2wACNCsWLQ00vz7ujRKF8et24hIABo1Ajly+Pmza8DpkyBoSHWRmhf7TIBAP78EwkJ386iq/u5TeKoUak8IiMiIiKi3wMLMKIMaGlh3jwIAvz9EVOpPuLi0K0bEhO/BBQs+Lm/Rrcd3cXqlnjwIPW+im5uaNIEBgY/KnEiIiIiynVYgBFlrFEjuLoiMRHdXsxC2bK4eBE+Pl8HeHujTBlcvS7ZVD8AAP76C2/efDuLRILISFy5Agl/7oiIiIh+U/xFkEgp06cjf37sPKK/w3kVNDUxdy42b/5yV1MTAQEA0GtVk6TGLRAdjUmTcixXIiIiIsqtWIAR/evQIZw+nfotU1NMmwYArrNrxI2aBFFE37748OFLgJ0dWrXCu3f4O+80SKUIDMS9ez8kayIiIiL6abAAI/pMLkfLlmjaFI8epR7g6gobG7x5g8EPh6JuXTx/jlmzvg6YOROamvDbVCWhc3ckJeHPP39E3kRERET082ABRvSZVAoHB3z4AC+vNGOCg6GtjWXLhXOOUwFg2rSvv/UqWxbz5qF/f2j8PRG6uggLw4kT2Z84EREREf00WIAR/WvWLBgZYdMmbN+eekDp0hg9GqKIbsENFC1sERODQ4e+DujRA7NnQ2phhsGDIYqf2yOmqk4d1KqFpCS17oCIiIiIcjUWYET/KlgQY8YAwODBqRzl9YmPDypUwJ07mF55OUJC0LZt6nEjR6JAARw+jK1bUw+Ij8fZswgKUkfiRERERPRzYAFG9B+DB6NqVdy7h7//Tj1AUxMLFkAQMDaowIOGrtDUTD3OwODzN2DDhyMlJZWAKVMAwN8fr1+rJXMiIiIiyv1YgBH9h0yGwEAIAiZPxu3bqcdYW8PFBQkJGDEi3bn++AOlS+PWLSxZksrd1q3RsiXevcOECVlPm4iIiIh+CizAiL5lbY3u3ZGYiCFD0oyZPBl6eggPx9GjacY8eKpxzWUyAIwfj7i4VCJmzIBMhnnzcO1alrMmIiIiop8ACzCiVEydCmNj7N6N+PjUA8zM4O0NAN7eEMXUY3r1QuVxHaLLW+H588/nNH+jQgX07ImUlPR6dRARERHRL4QFGFEqChTAwYPYswc6OmnGjBgBc3OcPo3Vq4FTp7B27TcBrVpBhND34wwIAqZPR1RUKrP4+8PICNu2Yc8ete6AiIiIiHIjFmBEqataFU2bphegqws/PwDw9YWibz9064bIyK8DBg1CuXIIe1j3bkV7xMWl/q1XvnwYORLA5/aLRERERPRLYwFGpDo3N9SsiSdPcChfJwDw9f36fUQNDcyYAQBd7k8RpTIsWoTr11OZZfBgWFujdOkfkzMRERER5SAWYESqk0g+f9vleMJLXqgIzpzBpk1fB7RqhR49cOFj2RUaPSGXY/ToVGbR1saRI1i58oekTEREREQ5iQUYUZY0aoT27fEqTmdN8VEAMGrUN6d+LVyITp3gkzAhTjBARER6bROJiIiI6FfHAowoY+HhcHLC+/ep3w0IgJYWep3slWheCrduYcWKr+9KpQgNRaWm+aeLQwFg2LA02yYSERER0a+OBRhRxtavx5o1GDs29bslSqB/fyQqNKYZTACAsWO/6V6vrY2ICFxoNuydVkGcOoWNG7M/ZSIiIiLKjWQZhyTtGmQ5cGdi1tbRajX3/BxbzaxNQpRDxozBpk0IDISbG6pVSz1gxQqMvd51YIlpRvcvYN48DB36dYCBASL26SN4DPr3x6hRaNcOGhqpL/biBQ4dQseOkEqzYStERERElJOUKMDEuOf37t5NyNo62s/j+NYV/bQqV0a/fpgzBwMG4MgRCMK3AcbGGDsWgwYJ3vETF6MNli//pgD7rE8fBAbixg0sWoR+/VJfbMIEBAdj0CDMnq3mbRARERFRTlOiABMMLSpWqpTVJ2AWht/9zkr0E/H3x/r1OHYMISFwd08lwNMTCxZgybXWzh0Dm7gXTX0WmQwTJ6JjR4wfDxcXGBqmEuPmhiVLMGcOLC3h5qbGLRARERFRjlOiANNsEXD2SkD2p0KUmxkaYupUuLhg2DDY2cHU9NsAmQxTpsDODh0j+99ZgO/u/1+HDqhfH8eOYfr0W05+Zct+F1C7NhYtgqsr+vZF+fKoXVvNOyEiIiKinMMmHETKcnZG06Z48wZjxqQe0LYtWrTAu3fw9093ooAACELK5Gk25Z4MHpxaQPfuGDAACQlwcMCzZ1lOnIiIiIhyi+wvwBLeRT17+uzNR0W2r0SU7ebOhYYGFizAlSupB8ycCZkMQUG4fj3tWerWhYODLDl+nHTinDlpNFecORONGyMqCp07IylJHbkTERERUc7L9gIs6YivpXmRoo0mX0zJOJgol6tQASNHQhAQHZ1mQI8eSEnByJHpTjRlCjQ0eoqLq0iv+fsjtHXD3QAAIABJREFU4Pt3fGUyrF+P4sVx/Di8vNSROxERERHlvCwXYIrEmNcvX6TlyZVNYQdfi5A//uexXB35EuU0Pz/ExqJBgzQD/P1hZIQtW7B3j4hduxATk0pQmTLo2VNQyLdVHS2RwMcHixZ9F2NqinXroKODefNw8KD6dkBEREREOUb1Akx8c3Juj/oWhrp58hUomBbzKl2X3E4RITHJZ8rPzehXoaub3t38+TFiBABs9tyFVq1S75kIwM8PBgbm5zdvHHhAFOHpifDw72Jq1MDq1WjSBCVKZD1tIiIiIspxqlZFSZen2dt6LTv++IMiw/O9BEkeK0/32mmcOkv06xkyBMWKYd39Gsla+oiIwIkTqQTlz//prDD7E74T/ES5HN27Y8+e78IcHBAZCQuLbE+aiIiIiLKfagWY+DJ83OTjMQoIkjzlWzh7DuzTqUZ+qQCJkaXjIC8vLy+vQX27NbDQFiBolnEOPnJ5n09VTTVnTpR7aWtj8mS8RP5AmReAND8IGzYMhQrh9OkxFTYMGYKkJHh6/sg0iYiIiOhHU+IcsO+J0Xs37IsRIejUHr9//5jqegDe2/cqZ7f0tV5dr+lexSUAoHgZ6dvWPuDc3u03/XvXU2vWRLmeoyOCguB3dNgfOvN0Dx3Crl2wtf02SF8fY8fC0xMjRky/3s7MTDNfvpzIlYiIiIh+FJWegKXcung1XoSg18yzbzW9T9cMGrVqoI/kC8dOf/j/1Pmb/hUy1krr1Q5fn/AXGb6oSPTzWbgQxYrh6tVUbgkCAgIQKxhNSB4JAL6+UKR2FkPv3qhQAffvC4sXeXvD1TV7EyYiIiKinKVSAaZ4/fKNApAUKl/WWPj/Re0yFUrIxMS7tx782+5Qo1yvQW2MxNebpy64yiaI9Ot5/BgPH8LbO/W7deqga1fMTun/Rtccly5h/fpUgqRSTJwI/L+7YoZWrEDx4jh2LAtZExEREVGOUe0bMLlcDkCip6/373hJkaJFpELKw3sPvzrwSzCyalhVQ0y+tmPnPVZg9MsZOhQmJtizJ7XmGQCAKVMg6GiP/DgGAP78EympHYfXvj2srfHqVWrHgX3n1Ss8eICOHfH4cRYSJyIiIqKcoVIBJsljmkcCyF89f/VvVSXoWxTNK4hx16/881WpJcmbz1QCyB/cfcACjH45efLAxwcAhg9P/QVDCwssXozlgsdtlMGdO9i1K/WJAgI+v7P45EkGS3p5oWVLvHiBDh0QH5+19ImIiIjoR1OpAJOVqVRWQ4Di5Ymjt/79g760eOniMqTcPH0u9t8PvsTodzEiICbEJ/ArMPoVDR4MCwtcvoyVK1MPcHLCzLmynliyWuJy4H3N1IPq1EH79oiPx4QJny7s24eAgNSKOqkUa9agZEmcPYu+fdW0CSIiIiL6QVQqwIR8jVtYagpIvjyzn19kVPLnqQpXrpRXIn7Yu2TVg///2qh4tHnjqSRAWtCsoFRNKRPlJtran4umUaPw8WPqMf37w2q4tbMitG2vgqkeCQYAkydDQwPLluHwYQATJ2L4cCxcmFpknjzYuhWGhlixAnPnqmMTRERERPSDqPYNmLSUm1f7fBIooo9OtClh3mz65RQAmrVsm+WViB8OjurguWDvuSvn9y8Z3GV0ZJwISV7rRpVU6nhPlPt17w5LSzx9iqCgNGP+/hseHvj4Ee3a4dat1CLKlIGPD1JS4OiIZ88GDgQAX19ERaUWXL48li+HIGDoUBw8qI5NEBEREdGPoFoBBiFvp9lL+5TTFgAx4fXDqDgRAAxaDRtYXUsQ319c2LdFzSo1bHoFnn6ngKBbY8BAG111pk2Ui0gkmDQJACZPRlxc6jGCgAUL0KoVXr9Gq1ZplFUTJqBlSzx/jk6dOtol2dkhJubzN2apaN8ew4cjJQVdu+LlS7VshIiIiIiym4oFGCDkbxN07OjykU7NLEsXNtT41I1eo8qw0LkO5hrCV3G6ZV0WrB5eVSPLqRLlXi1bwsEBUimSktKM0dDA+vWoVw///IOWLfHu3XcREglWr0axYjhxAj4+gYHQ08PKldi/P40ZJ01CixZ48QLnz6tpH0RERESUvbLyXqDEpIbrpFWuk76+pl2+9/qrDXauXLv/0sN3MCldt203xybF+fSLfn0bNyIpCVpa6cXo6mLLFtjWi312Ja59+8K7dkFb+78RJiYIC0PDhpg926JGjdGju48aBU9PXL78XSQAqRQREbh4EXXrqnUrRERERJRdVHoCJr+1Z93xx/FptDWUGJZr02/8jAXLli2YPsqD1Rf9JgQhg+rrE1NTHDNqfUco8+DQw65dIf/+eIbatTFzJgB4evq0uValCu7cwdSpaUynowMrKwhCGreJiIiIKHdRqQBLubLY1bpE4Qq2faeEnXrK/vJEmaJZvqSu+OEvTb/Nm9G/f2oRnp5wd8eHD9LOHeZNiREETJ6MBw9+cJpEREREpH4qfwMmpkTf3L1gZFerYmaV2vSftu5MVKI68yL6hfn5QVPTKWWFpfb1BQvg759azLx5sLTE7dv1Frj17CEmJODOnR+dJhERERGpnUoFmLRsC8dGJQ2lAgAx5e31HcE+XeoUNatsN3D6xvMv0m5CQEQAUKwYevUSFPJt1cfIZBg7FoGB38Voa2PDBpiaYvPmBWWm37yJ5s2VmDkqCitWpNcJhIiIiIhylEoFmKxyr+UH7zx/eHL9zCGd6hTRlQiAmPzm6rbAYR1rWhSpZu81K+LiS/4OSL8tJyc4OKT2fdcX48bBwKDQiY3rvE8C8PLChg3fxRQrhuXLIZFIRvmWfbRXqYWnTIGbGz4dIkZEREREuY/KryBC0DGr3dFrxrqTD5/fPbRycj+7agW0BEBMenVpy+wh7S0tzC07DJ2z9fLrZDWmS/RTOHsWmzdjxYq0I/Lnx4ABABxO+o4fD7kcLi44cuS7sLZt4esLuRzdu+Pp04wXdneHjg4WLsSiRapnT0RERETZRvUC7N8pDIo3cPYN2nLhSdT1PUvG92hezkRDgJj48sKmmYPbVTO3qNVpeNCOmzHs1UG/jXHjAGDMGHz8mHaQjw9MTHDo0Djr/YMGISEBdna4dOm7MH9/tGyJFy/QqVPG7xZWr/659OrfH0ePqr4BIiIiIsoeaijAvpDlKde8x7gle25EPTm/NcjXuWEJQ6kgJjw/uyFgQMexe/lKIv02nJxQowaePsXs2WkHGRtj+HAAmDx5xgx06ICYGLRt+90BzV9OZz558nN8+pydMWgQkpPRuTOePcvKLoiIiIhI7dRZgH2hmb+abTd3j54e7S1NpTygiH4/goCAAACYPBkvX6YdN2gQmjVDvXpSKVatgpUVnjzBmDHfhX06nVlLC3Pm3Bu3onBhLFuW7vLTp6NxYzx/rtRDMyIiIiL6gdRcgCW9vLJz0fhetpULFyxv4zYm5MxruQhAkBka6bESo99J48awtcX795g0Ke0gXV3s24cJEwBoa2PxYmhoYP58XLz4XWTt2pg1C0Cxqf1Moq55eaX7cEsmw/r1KFYMJ05gyJAsb4WIiIiI1EYtBZgY/+zs5qCRrk3LFjSr2rqP35LdV18liYAg0TO36jJs9qYzjx4uaqWpjqWIfh5Tp0IqRXAw7t5VKr5CBQwYALkc/ftD/P6byb594eEhTfiwR6+9EBszdGi6c5maIjwc2toIDsbJkyqlT0RERETql5UCTBH34Hj4TG9H6xIFLGo7DJgSeuD2uxQRgKCVv2pbz8mrDt2NenA8bNoghxqFtNWVMNFPo3JldO+O5GT4+Sk7xM8PhQvj+HGEhqZ2OzgYlpaFP9xZLXMNDxO3bEl3rlq1EBKCpk1hbp7JxImIiIgou6hUgCke7p46oH0tiwIlrR2Hzgg/9uD95xcNjUs3dRuzcNfVZ08vbg32dWpQ3CBbvjEj+llMmIA8eRATo2y8gQGmTAEAHx9ER393+/+nM7dO2TIMAX364NWrdKfr0gX798PMLLNpExEREVE2UalASj6zZFxQxNmnHxUiPr1oWLez96yNpx9F3d6/fELvlhVMZGpOk+jnZG6OZ8+waZNy0QkJAFxc0KgRXrzA+PGpxRQrhmXLIAiThVHlXxzs3Vt9uRIRERFR9svCEypBM1+VNp6TVh68E/XgRHjA4PY1+aIh0Xe0tSGVKhF35AiMjDBjhiAgMBAyGQIDUzsWDICdHUaNkoopYZJuZzY/y6AjIhERERHlJioVYJJirUct3Hnl2dNL24JHOjcswRcNibJMQwNJSfDzw+PHlSrB0xNyOQYMSK0bB4AJE9CyZX7F8/XoNH5UZhrNHz2abl98IiIiIspeKpVOGjXdx/S2rWiqoe5siH5fdeuifXvExsLREcnJEyeiUCEcPYrVq1ML/nQ6c9GiVjixocxIZZe4excNG6JmTTx4oLa0iYiIiCgz+OyK6IcaPhwuLoiPT+3ekiWfD+8aOdLQ8PMBYt7eafTw+HQ6s6ZmzSMzsW6dUmtbWMDaGo8fo1kzPH2q8haIiIiISGVKdMtI2j+yqe++RACa1uN3zWxj8NUVpWnZTImc3IxHgdFvb88eXL6MhASEh0PyzR9A8uRBWBgaNMCMGahf382t/bJlOHwYEyZg+vTU5qpTB9OmYfBg9OiBSpVQvnwGa2tqYudO2Nri6FE0aYJDh1CokJq2RURERERKUaIAE9/dO3f2bAIArYKvU/57RWnaxd+l+ikL0W9m7VrUr48NGzBsGGbM+O527dqYMgVDh6JHD6FatcDA4paWmDMHbm6oUiW16QYNwtmzCA1Fly44eRJ6ehksr6eHbdvQrBnOnUPLljhwAKam6tgWERERESlFmX7xOqZFihRJAKBlqicBAEG/YMlSpTL3BKygvqBKfkS/mPLlERGBFi0wcyYsLODl9V2ElxcOH0ZEBLp2rXzsWJ8+suBgDBiAQ4cgpPpDFByMc+dw9Sp6907ji7H/MjLCrl1o3BhXrsDGBvv3w8Qky9siIiIiIqUoUYBptZl35/G8r69o2s65eie7MiL61TVsiJAQODnB2xvm5ujY8b+3BQHLluHSJZw+jWvXJk6sum4djhxBWBi6dk1tOn19bNqEWrWwZs2iG9bVF/WrWTOjDPLmxd69aNQIFy+ibVvs2wddXfXsjYiIiIjSxSYcRDnA0RF//QWFAi4uOHbsu9vGxoiMxLp1qFo1Tx5MngwAQ4YgNjaN6cqUwaJFANwvev1tf/z9eyUyKFQI+/d/7vmRSgZERERElC1UKsDkt/asO/44nh91EanO1xeenkhIgIMDnjz57naxYujU6dM/enigbl08f46JE9OerksXxYBBGkie8azrGM/XSmVgbo7jx7FqFZo1U2UDRERERJR5KhVgKVcWu1qXKFzBtu+UsFNPE1iIEalk7lzY2+PNm9QKsK9IJAgKglSKmTNx5UraYTMC4mtYm+Ox3aquG9fJlcqgUCE4OX3XjZGIiIiIsovKv3iJKdE3dy8Y2dWqmFmlNv2nrTsTlammHEQEqRQbN+LpU9Stm0GkpSV69UJKCoYMSTtIQ0Nn27qPhgWbYf89d/8XL9SaKxERERGpg0oFmLRsC8dGJQ2lAgAx5e31HcE+XeoUNatsN3D6xvMvktScItEvTCJR7iyumJgpQ17kzYv9+9M9dblgQZ1NqxWC1Puj/wKHnWrLkoiIiIjURKUCTFa51/KDd54/PLl+5pBOdYroSgRATH5zdVvgsI41LYpUs/eaFXHxJQsxIrVp1sy4dpnAQbcBDB2KuLg0A4WmTeKG+0mgGHjSef20fzK3Slwchg3DmTNZy5WIiIiI0qT6tx+Cjlntjl4z1p18+PzuoZWT+9lVK6AlAGLSq0tbZg9pb2lhbtlh6Jytl18nqzFdot9U1aqIjXXc0KVhrfgnT/DXX+nFGk4Z9bhm+zx4V3Zkh8To+Eyscvo0pk9Hu3Z4+TKL+RIRERFRqtTw8b3EoHgDZ9+gLReeRF3fs2R8j+blTDQEiIkvL2yaObhdNXOLWp2GB+24GcNeHUQZuXABAQFISfnuxuzZKF8ely5tKDJYIsGMGbh5M+1ZBMF879I3RiUqyy9qjvTOxPKNG6NZMzx/Djc3iPyJJSIiIlI/dXY/k+Up17zHuCV7bkQ9Ob81yNe5YQlDqSAmPD+7IWBAx7F7+UoiUUYmTsTw4QgK+u6Gvj7Cw6Grm3fTokUNViQlYeDAdCcyNjY9tBE6OsL8eVi+XNnlJRKEhCBvXuzahZkzM509EREREWUkW9pPa+avZtvN3aOnR3tLU6mQHSsQ/Zr69gWA8ePx6tV39ypVwpw5ADzO9LMyur5vH1avTneuqlU/xaN/f5w7p2wGZmYICYEgwNcXp05lKnkiIiIiypCaC7Ckl1d2Lhrfy7Zy4YLlbdzGhJx5LRcBCDJDIz1WYkQZad4crVsjOhpjxqR2u2dPuLkJHz/s0O+ii48DByIqKt3pevVCr174+BG2trhxQ9kkWrfGgAFIToaLC2JjM7kDIiIiIkqPWgowMf7Z2c1BI12bli1oVrV1H78lu6++ShIBQaJnbtVl2OxNZx49XNRKUx1LEf3qZs+GlhYWLUrjqVVQECpWNH56bWNx77dv0adPRtMFB6NtW7x+jebNE24o3RRx2jRUq4a7dzFoUGZyJyIiIqIMZKUAU8Q9OB4+09vRukQBi9oOA6aEHrj9LkUEIGjlr9rWc/KqQ3ejHhwPmzbIoUYhbXUlTPSLK1UKAwZAocDgwak1wtDTQ3g49PWbmFwyMcG2bVixIt3pNDQQHo5GjfD0aVSl5ntXpP/I7P+0tLB6NfT0EBKCI0dU2gcRERERpUKlAkzxcPfUAe1rWRQoae04dEb4sQfvP79oaFy6qduYhbuuPnt6cWuwr1OD4gbZ8o0Z0a9t3DgUKoRjx9I4c7lCBdy5o3lg96c2GYMG4fHjdKfT0cGWLVFmNYsr7hVyb7k15K1SSZQvjyVLYG2NIkUymz8RERERpUWlAin5zJJxQRFnn35UiPj0omHdzt6zNp5+FHV7//IJvVtWMJGpOU2i34mBASZMAAAfH8Sneo5XwYIwMHB1RYcOiIlBz54ZNY03NCx0ceerfBUqiVcKeLRevTDtg5y/5uiII0dQvHhm8yciIiKitGThCZWgma9KG89JKw/eiXpwIjxgcPuafNGQSE169ECNGnj4MIPeGfPnI18+7N2LZcsymjFv3nwX9sSYFK8tnirY12HFokT1JUtEREREylKpAJMUaz1q4c4rz55e2hY80rlhCb5oSKRmEgm2bsXu3bC0TC8sXz7MmgUAQ4bg0aOMJjUzMzq9N86gUFNxv2GfrsFzvj/vmYiIiIiyl0qlk0ZN9zG9bSuaaqg7GyL6olAhtGiRcZhTN3F63XX6sc969MjoRUQAJUvqH9udoGvigAj9wT2DAjMcQERERETqpEoBJr69eSRy//79By4/l6s9ISLKnBMnhp7sclBmc3L/h4ULlYivXFk7ckeylr4rVsi8B2diofnz8eefShR5RERERJQmVQowQXJmWpvmNjatRmx/y9/FiHKYpSUqViydciMY/by9ce+eEkPq1NHYHqHQ0PojaS78/ZVdKDAQf/2FGTOykCsRERHR706lVxD1zIvmkwDyxw8e8xEYUQ7T1sbGjTAwcMWKLh+W9e6t3DOqZs0k4Wshk2HsWGVrqmnTIAgYORKnTmUtYyIiIqLfl2rfgNXp2qWUTJDf3r79Bj/jJ8p+u3ahZ0/ExqZxu0wZLFgAYJ7Q7+2BS8HByk3q4IAlSyAIGDYMS5dmHN+qFQYORHIynJ3TToWIiIiI0qNa/0KdeuOWj61nLL80c+D088qdKEREqluzBkuXYvz4tCO6dYO7u5aYEI4uE4a/v3tXuXldXTF7NkQRffpg/fqM46dORfXquHcPAwcqtwARERER/YeKDeQFg7p/7jwwr1vBc6Ma1+k0bsWB6y8+KtSbGRF94eMDmQxz5+Lq1bSDgoNRtWoZ3J4V/4e7OxRK/kQOHIg//4RcLjo59y+1e86cdIO1tLB6NfT0sGIFlizJxAaIiIiICICKBVjyqdlu3Zz6TDkgL10+f8KNDRPcmlYsZKhrYFrQzDwNpT2389xXIlVVrIjevZGSgiFD0g7S0cHq1aKuXjesMT22Ze5cpWf398eAAUJy0pR7nUOGXDx8ON3gcuXw6R1HT0/s2qX0GkREREQEADJVBikeHwtfuy7hP9dEeWLc2xdxb9MYov0mXpWViOiziRMRHo59+7BtG9q2TSOoQgVh0cKU3p7JHzVGjUKrVihTRrnZZ8/Gu3cGq1atVDi16XL2+EXdggXTDnZ1xa1bmDQJffviwYPMboSIiIjod6ZSASbkKVmjZs1MPdHSKplHUGUpIvrExATjxmHQIHh5oXlzaGmlEefkJHNyyu+OjyFwd8eRI5BKlZhdIsGSJbhypfzly8NeDPfwCNq+HZJ0HpBPnAgTExgbq7ITIiIiot+YSgWYZrPJR89MVncqRJS+fv2waBGuXMGcORg+PL3I2bMRGYkTJzBrFry9lZtdSwurV4s1anomztu1y3baNLsRI9IOFgSl5yUiIiKif6nYhIOIfjyp9PORXRMn4tWr9CKNjD53mB89GteuKb1AxYrCXxMFiEvQM/DP50ePZjFfIiIiIvoWCzCin4mNDTp2xPv3ePIkg8jmzeHhgcRE9OoFufInpg8ZgmbN8uHVohQPZyfxbVpfdRIRERGRSliAEf1kVq/G7duoXj3jyBkz0K7AKYeTvn27f1C2BpNIEBICU1Nb7GrzeL4yZ4N9FhWFffuUjiYiIiL6Tan0DZj83u7Fu+6mZGqdUra9WpZUphkAEaVLUxOlSikVaWSExTXn59u+fPeai70kWxeHaCjVkMPMDIsWoUOHObKhHys1ACoptdiQIQgLw7hx6R4XTURERPS7U6kAS7mwxGvAN23oM6DdeZ07CzCiHy3fnDHJJ3a2fLv79SoPl5TQ0JWCTJkf+vbt4e4uW77ccIArTp6EpmbGQ9zcsGED/PxgZobevbOcOBEREdGvKdtfQRQkUplMJpNJ2YWeKAeUKKFxcG+KvrEzVlmHDXRxQYqSz64DA1G6NC5cwNixSsW3aoX58wHA0xObNqmcLxEREdGvTbU29E38I48OVqRxV5EU9+bx9eM7VoVsPP8yGbrlus/fOM+5TFqnFhFR9qpcWbZ1k6Jlq/5JQY/DzF0wYuVKZPwcTE8Pq1ahfn1Mm4YWLdC0acYL9eyJJ08wfjycnbFvH+rVU0f2RERERL8U1Q5iNi1rVb9suiEtHVwHjzgxrZvDqL3Xlrs3T9Q8HtrZjB0/iNTr2DHY2GDixIwO5WrcWBK+VuzQcbJiZO+wvC7oqVQNVqsWRo2Cnx/c3HDpUryOiY5ORkPGjcOrVwgKQrt2OHYMZdP//wQRERHRbycbayKJqZXP2sWu5lIx5VHYUP99H7NvKaLflKYmEhMxejSuX88o1N5emDtHgDgffWPCdin7LuKff8LKCk+eXKrTJ39+nDmjxJBZs9C2Ld68QevWePFCiQFEREREv5HsfSglmLTq51xKBsij9u+9nJytaxH9hmrVwh9/IDERHh5KHPbVrx/GjpUhpYtmRFgYnJ2VqMFkMqxcCUPDqnc3tI8L7doV0dFKDAkLQ506uH8fM2cquxMiIiKi30N2vxUoK1uxnEqvORKRUv7+GxYWOH0as2crEe3nhxMnKmybamiI8HDlarASJTBrFoAF0n6S+3d79VJiFV1dbN+OESPg4aFENBEREdFvJLsLMDEhIUEEBM0KVctpZPNaRL8jQ0MsWQJBwJgxuHNHiQF169ZpbrhrFzJRg3l4wNFRRx63UuYesUEeFKTEKqammDKF34ARERERfSObCzDxzf7dZ5IBwbhQQd3sXYrot2Vjg+7d8fEjeveGKCo1xMoKmavB5s+HhUWdlGMjMdnbG+fPZzlpIiIiot9SdhZginfnAnv6bHqngKBZsXoFPgAjyjazZ8PMDIcOfT6LSxmZq8GMjbFiBSQSP4lf9cSTjo6Ijc1y0kRERES/H5W+z0o+PNHB/1BSeiFi0rtHN67fex2vEAHBuIVLu0I8iZko2xgbY84cdOyIv/6Cp6eyo6yscLXrxB3LXw4Mn+4MjVWr0u1N36gRvLwkM2as03KpcPeCtbXBsWMwMFA6xY0b4eQEHx+MHw8Jz6QgIiKi35RKBZji5eXIffsSlAsWZGb206c7s/4iyl4dOmD6dOhm8l1f80Mr/0i6ZaQR7RQeAggZ1GCTJmH//iKXLi01Hupye1F0dGYKMF1dyOXw98f581i1CkZGmUuUiIiI6JegWodCTcO8efNmVIAJUp08FpWbOg0d3a9ZEXZCJMp+Q4dmfkx4OBo16hodGqtp9Ef43JIlMWlS2sFaWli1CrVqdYpe3HJxcwPzLplYyNYW+/ejc2ds346aNbFpEypVyny6RERERD83lQojrXaLH79arO5UiCgHVKmCjRvRqlWfxMD7Eou//x7erBmaNUs7vmJFBASgf3+Dge6oVBR16mRirYYNcfYsOnbEmTOwssLy5ejYMcsbICIiIvqZ8EsMot9ekyYICYFEMkUc4aDY6OyMFy/Sje/XD/36IT4ebdvi7t0vl1+9gkKR0Vrm5jh8GO7uiItD587w9VViDBEREdGvgwUYEQGOjggIgCgu0+gjeRHl4ZFRO/s5c2Bnh9evYWeHt28BXLmCwoXRoAEePMhoLW1tLFuG6dMhleLvv+Hjo6Y9EBEREf0EsqEAS352eOGY/u4ubn2HT119KirdZok/IUXsw3MHtq5dsXL99sPXXv1qu6Nfx9mz8PLCu3dKD/Dygq2tYfKbEM3eO3di7tx0g6VSrFqFatVw8yYcHJCYmC8fChfG8eOoXh3h4UosN3Qodu1CiRIwNVU6RSIiIqKfXhaaY4gxV9ZM/St4/aGrWDCyAAAgAElEQVSnTZbdmm+rCQCIPzutTdtRB1+kfPrz+cIZf88asmrrVNsCP82jtpS31yO37Dh67dGbeM18FRs7dmtV3lj66Zbi1eEZgwZNXnf5rfzT9gRZngr2Q/6eOrxNCe0cTJkoFaGhmDMHb94gNFS5AYKAJUtQubLNu51GQqyPj2GDBqhePe14AwNs3466dXHkCNzcCq5Zc/my0Lcv1q6FoyO2bUNwMPT1012xWTPcu5eJLRERERH9/FSti8S3kT5N6rlMCjt2++X7pP+/rJR0eUb/cV+qLwCi4u2ZGV2dgu/Ks55q9hPfX1zoVrNkZVuP4f4Bc4ODpvv1a1e5XMspJ6NFQHy5x7tFG5+1l/5ffQEQU95d2zDOvp7d1DOx6b+wRfSjDRkCfX2sXInNm5UeU7gwDh0S9ux29jRMTISjI+LiMorfuRNGRggLw7hxRkZYswYhIdDTQ2goatbEhQtZ3QURERHRL0bFAuzjYb8+sy7GiYAg0TLJo/vpkK+EI/Pnn4sXBVnR9jP2XLp8dM2IRqYSiDEH/5q0670ak84eSdfntm/mueJStOKrWkqUv9g/2t4j9OGLCO8ecy/GiYI0T/mW7kPH+I3z9exsZa4jfApxHLLtFUswyk2KFYO/PwAMGJCZFxErVYKNzfTpqFoVd+4o0de+YkWEhUEmg78/5s8H4OqK06dRuTJu3YKVFYKCVN8CERER0S9IVMX7zd3zSgBILTosuPxe8flq4uHBxaSAJE+HVS8/XVO8WtPJRAJITLtvjlNppR8m5c6shnoCAEGWr2b3cfPDtmxeO3/SwFYldQVAYlyugplUgMS0wdjI58n/jvpwa5V7WW0BEDQqjT6bmHPp/4elpSUAe3v7nE6EcphcLtarJwJi7dpiTEzmxl69KurqioC4erUS0YsXi4CooSHu2fPpQny82L+/KAgiID55ovSqHz6IrVqJ48aJCkXGwURERPSTc3FxARAaGprTifxQKj0BS7lx4nS0AoJOQ58ZvSrrC/+/uv/AEzkE/SadWuX9dE3Ia9e9jYkEipjzp2+lqKVgzCbJZxYGHfsgQlLAbt6xYyvG/9HFrp3jHyPnbD+9ZVAlLTH65vWncsG03cy145oU+Oq7Od0yTvNWD6+qKYjJN1YsP86WHJSrSCQID0eJEjh9Gq1bZ/Q+4X99Ou4LQL9+SjQ27NkTI0YgORmdOuHyZQDa2ggMxPbtmDMHhQsrvWpMDCIj4eeHAQMy6sNIRERE9FNSqQCTv3j2Ug5IitSsUfjLBOLbs6duywGNqg2tjIT/X9UuVbaoFFA8f/YiNx/2I78TGflADmhYDp7iUVrz3xuCSdOxY+zzSABICnXu37nwd//CtKv16W2tKUD+/OiR2z/Fp270OzEzQ2QkihbFsWNo2xbx8ZkY6+kJR0dER8PREcnJGUVPngxnZ8TGonVrPHny6VqrVhg4EIKQ/sivFCqEiAjo6CA4GL1784gwIiIi+vWo9g2YQqEAIGjr6Pz7m1XiuRPnk0RILerUMftqVlEUAYhJiYm5+c/Z8kf3H8kBqZl1g1LS/94SjK0aVJEB0Khcs6pWKmMlBapbmksA+bNHT1mAUe5TtCgiI1GkCA4dwrZtmRl57dqaXXkCjCeePv35c7L0CAIWL0b9+nj6FPb2mXvc9jVbW+zcCX19LFkCFxek5OpH50RERESZpVIBJslbIK8EUDx78OjLS3fJF/YfeqOAxKR+w8oa/4YmPbj3SA4IBkYGyv8V/Mf7XCAKOjra36Up6OjqCAAELe3vb34K0NERADExIVcXmfQbK1ECR45g5ky0aZOZYYIgxL0fGjveWnL8r78QGZlRvLY2Nm9GmTI4fx6OjqrXTo0aYedOGBhgzRo4Oyvx9I2IiIjop6FSAaZRoWZVXQGKdztXbv3c++/9gZD1/8gh6De0baD7b2TM/g173ioAWcmyJbNw5Fi2k+TNn1cCyJ/evf/h23vyf+7clwOQP3n4JNUnXEmPHz5TABKTfKY/zWln9NspVgxeXtDVzTjyXxUqYMQIQSHfYuiip3jv6oo3bzIaYmqKnTuRPz927ED//t/c/PgR0dHKLW1tjchImJggPBwdOiAxMTN5ExEREeVeqlUMRi26tjaRQPFqfd/WvQJWrF02pmuvpY/kEPQbtm36+QMw8eOjyOnuA1dGKQBZ2SaNi+Tm4kSjUp0a+gLE97sWrrz/nypLfLd30dq7KQBSrm7Zmtp5ZjGRG/e9U0DQqVqjfG4uMolUMH48atbME/3PysI+T5/CzU2J1hglSmDrVujqYuFCzJjx9Z3mzVGsGG7fVm7pmjWxaxfy5MG2bWxmT0RERL8M1aoiwaT9+D8bGglQRJ9dOtytW4+JOx4ni4JGub4jHfMLABT3ZjfOV8xmWMSDZBESk5aDe1bO3bWJQQtn+wISiO8jR9j3Xnzy2UcFgOR3N7aM7eSx9KFcEAQBiWemDZ53I+E/4xQvd44cvjpKAcGgUbumeXLza5ZEKtDQQEgItLXbRS1wNNixfTvmzVNiVO3aWL4cEgmGD8fGjV8ulyuHmBh07qx0L5BatXDgANq3R5MmqqVPRERElNuo+lhKVm5Q2IY/mxTS+FJySAxrDA3ytdIBAIjyhIRkUQQg6FXqvXSBh0Vufv4FQDBuM2asjYkE4oery3pbFTEyyl/IxCBvRfuJkS/kksKdgpf2KSETX+/xatSk7+wtp+88e/Xy0dUDIaPt63WcfzNJFGSlPIY7FmL9RT8RHx+MHq1Eo8EKFTBhAkRxuayXKd54e+PSJSVm79wZkyZBoYCLC44e/XRt9myUK4fLl+HlpXSWVati40ZUr670ACIiIqJcTfXnUpL8zSbsu+V+dMeeM/+8g0nZRnZtaxb6fwN3QapfqHT1xhUb2nsM7NOqZKa+O8khslJ/hK590K5LwKloBcSUuFfPP10XDKoNXh78h41gfnxv+8X3X51c4GW/4L+/Pgp61YYv9W/0M+yS6BNRxJIlePsWL19i4cKMOsV7e2P7du1Dh/YW72P5zwYnJ5w5o8TnZCNG4J9/sGABmjfHwoXo3l1fH+HhqFMHCxfC2hrdu6ttO0REREQ/i6w9mJIYlGjo2Nfbd6R3nw7/Vl8AJCX7R1w7fyB8ltfPUX0BACT5m/996NLuWf3aWpobaUkEiZZpBduBC/btD2ieVxBM2wTuXd69rM43v6gK2kVb+e/Y85e1Qc4kTaQSQcCWLdDXx+LF6NMnoy+7JBIsXQoDg+r/bGxR7tH16xg2TLllAgPRvz8SEuDqiuHDIZdXroxZswDA0xM3bmR5G0REREQ/m9z9ZdaPp2VhMzjIZnAQoJArJNL/1KeaJZxCLlq7LwsM2XvxzuMYqYl5eauWnbs72ZTUy6l0iVRXvz4iImBnh8WLoauL2bPTjS5RAps24cKFaTZFDlth3jyUL4+BAzNaQyZDYCCqVsWAAQgIwJUrWLu2Tx/jo0cRGoouXXDqVCYbMwLYuxcbN+Kvv2BiksmRRERERDkvl3+alYO+qb4+07Zo4jl1+cY9x86cOrx7/YLxvVl90U+sWTNEREBbG3PmYOhQJaKHDatSTTJzJgAMGoSuXREbq8QyvXsjMhIFCmD3btSujRs3goNRtiyuXoWPT+aTXr4c8+ejXj2cO5f5wUREREQ5jAUY0W+tRQts2gQtLcycibFjlRrSty82bICxMcLCUKUKTp5UYkz9+jh7FjVq4M4d1K2rf3BbeDh0dXH6dOYznjYNVarg1i1YWWHKFCW6iBARERHlIizAiH53trZYvRoyGfz9ER6u1JAOHXDxIurUwcOHaNwYs2crcT5YkSI4dAgdOyI2Fg4OVXb+ffs2du/OfLqFC+PUKYwYAbkcI0fC2hr372d+FiIiIqKcwQIsyxLeRT17+vTp06fP3iZkHE2UG3XogBUrYGgIDQ1lhxQtikOHMGgQkpLg5YX27fHuXUZj9PSwbh2mTIEowtfXzMc5j7aSJ4L9l7Y2pkzB7t0wM8OJE6heHStXqjIPERER0Q/HJhxZlbh7YNn2q96LgHbnddHhnbTUNvOaNWuWLl2qwsA7d+4A+PDhg9pSod9At27o1k3p6ORk1K+vVarU7BUrmjaVeXhg82ZUq4a1a2Flle5AQcCIEShZEu7uWL0a//yDjRtRsKAqGdvY4OJF9O6NiAh0747HjzFypCrzEBEREf1ALMByr4iIiH379qk8PDo6Wo3JEP2HXI5Hj3DmDExM7AMDL15E1644cQING2L0aIwdC0n6D9c7dUKZMrC3x4kTqFkTmzahVi1V0sibF5s2YdEieHuDf3EgIiKinwELsNxryZIlf/zxhyLzPQb69et3584dMzOz7MiKCAC0tbF1Kxo3RlAQypWzGDDg8GFMnAh/f/j54fx5LF+eUZf4KlVw5gw6d8bBg2jYEIsW7TR1qV5dpYdhvXujd28VN0JERET0Y7EAyyrNhn6RJwfKRUBiWloz43jl6evrN23aVIWBBgY8FZqyX61aWL4cjo7w8kKxYrK2bcePR40acHfH1q2oVg1r1qB+/XRnyJsXe/diyBAEBsLV9bJ4tW+RSVu3S6pU+UE7ICIiIvrx2IQjq4Q8JWvWrlOnTp06tUqZCDmdDZGanD+PNWsyCurcGWPGQC6HkxOuXAFgZ4eLF1G/Ph4/RuPGGD8+oy7xMhnmzsWcOZBKR+DvqU+cmjRI2bNHHRt4+RL796tjIiIiIiJ1YgFGRKkYMABOTko0Fxw/Hk5OeP8e7drhxQsA5uY4cADDh0Muh58f7Ozw5k1GkwwciJ07YWzsiLD5sU72bVLmz8/yBvr3h40N2rfH69dZnouIiIhIbZR4BTFpz7B63rsTs7aOVsvpxwNaqPUNPSLKPr1748QJDBgAa2sUK5Z2nCBg8WLcu4dTp9CpE44cAaChgalT0bgx3NywYwccHHDgAGTp/8/Gxgb796N5885v10lSFN0819y4oTFrFgSVnyr37Il9+xARgbNnsWkTatZUdSIiIiIidVKiABNjH127ejWLR1xpl4/N8JzWXCkl7vWLV2/exX5MTFZItPQMDAyM8hbIp89v5+gX5+GBXbsQHg4XFxw6BKk07VAdHWzejHr1cPs25PIvoa1b4/x5WFnh6FH4+cHfP6MlLS2xdy+aN+/4dkOYpJvjnDVRURorVkBbW6UN2Nri0iU4O+Po0U9NPuDsrNJEREREROqkRCEhGFpUrFQptSdgCS/v3nuZ8LmwEiTaxgUKmBpqyd+/fBYVkyiKAATtEi09OlczEjQql0vnF7hcJv7pya1hG7btPXLqwtX7Lz+k/Ld0FARNQ7OS5SrXatLK3sHBtra5Lr/8ol/S/Pk4cQLHjmHKFIwenW5ogQK4cgXJyd8UaubmWL0aTZti0iQ0boxmzTJa0tIS+/bBxqb92w3rZN06r1szLL9GYKCqG7CwwIED8PbGnDlwccHp05gxI91SkoiIiCj7iSpSvDowpkFeiQBBy6xR3+kbTj2ISf5yL/75hYhpbpYmEgGCQfUhu18oVF3mB5O/Pjmvj1VBTWVLKkEjX023WUeep+R04v9haWkJwN7ePqcToZ/e3r2iRCLKZOLJk6pPMnasCIgFCojPnys34Px50cREBPbn6ThvTpLqC38xb56ooSECYqtWYkyMGiYkIiIidXBxcQEQGhqa04n8UCo24VA8W9vP6a8jr2HaZOKBKwfmDe1Qu6jhl6dpgnaBavbDlh8/ubSjuTTuwmwn9yUPMn2Y1Y+XdG+1u1WjfgtPPE/69MxLkOqampetXq+xTcvWdg7tHdq1sW3epH6NCsXy62t8KtHE5FdnQ4Y0rd1pwbX4nEydKHvY2GDwYKSkwNkZ79+rOMm4cWjSBC9ewMMDojKvIlevjn37YGLS9N2Gvoe6ITlZxYW/6NsX+/YhXz7s3ImgoKzORkRERJQFqhVgKReCJm6KUkhM7aav9LXKk8bzIq3SrvNnORaQKN7s+WvGkSx28ch28acndOyx8k6iCEGrsJXr+KW7Lzx8F/v60c3zxw7s3bV9y6aNmzZv27kn8ujZa/+8iImJunYobPrA1mUNJRCTH20e1MFnf8zP+ZUbUbomT0aVKrh3D35+Ks4gkWDFCpiaYudOzJ6t3Jj/12DYsAHd1FGDNWyIM2cwbBi6dcvqVERERERZoFIBlnJt67bbKZAY27p3KJzeDIJpK6dWphLIn+zddTlFxRR/CMWjZaNmXk4UBalZu1nHrh0LGefRopq5QVpfi0h0ClRo2GXonO2XLm0aWF1PEJPuLBq94Lb8h+ZM9CNoaWHVKhgbIz5TT3nDwtCjx5enZkWKICQEggAfH5w6pdwMn2owU1Ns2ICuXdVQgxUtimnT0m3pSERERJTtVCrA5A/vPZADkgIWRTLqT6ZRuEgBCSB/+uhpbq5OFI8jwo7Gi5Ca91wSOqiGsdJtNbSKtZsZ5m+tI4iJ5zdt/Sc375FIVZUqISoqk+/urV6NZcvQtSvkn38q2rRB//5IToaLC2JjlZukenXs3QtTU2zciK5do18l29hg3Djl3mMkIiIiypVUKsAETS1NAVC8fv4yoz9Kpzx/9koBCLp6ubpXYMr1i9eSRUjyt+7cxDCTY6UlO3aurQHI71znIzD6VWW6F/ysWcifHzt2YNiwL9cCAlC9Ou7eRZ8+Ss/zVQ2m6dr15JHkCRPQrRsSsngwxheRkZ/OjyYiIiL6MVQqwKTmxcylgOLtnvUZfPgUE7l+92sFIC1SzDw3N38WExOTREDQN9DPfJ0oMTQ2lABiUmIS/zBP9Enx4tiwAVpamDULf//96ZqWFsLCYGCAsDCsWKH0VP+vwXR3bbxfu2teo+SwMLRti6SkLCd56RKaNUO1ajh2LMtzERERESlFtQKsrK1tSRkgf7bS23vrs7Qe+yiitvkMDX0qB2SlW7YsnZsLMGmRokWkgOLJufNRme7XGH/pzNVkQFKgUAEVm0oS/YqsrbFwIQQBvr7o0+fTR1ylS3/uw9GvH27eVHqq/38Plv/oxnu1uloUSt6/H716ZfldxLJl0bw5nj9H06ZYsiRrcxEREREpRbWKQWbZ17tFHgnE5NtLHevZjVl36fV/30VMeXNlw7h29TsvupUkQmLS0rtvdSWOfM45siptWxWVQow/9LfvuseZeZFQfH962siQB3JITOs3rqKRbRkS5Rpv32LNGuWaYri6IjwcurpYtAhNm+LVKwAeHnBxwYcP6NIlM28SVqv2qQYz3Lfxaun2+Y0SQ0Mxfryqe/hEWxs7dmDIECQloVcvDByohlYfREREROlS8ZGNxMI9KLBLMQ0BYsLDnRO7VC9SqIyVbUcnNw83506t6pUtZFa104Tt/ySIEDSKdZkb6Gaey58Nadb5Y2ADQwHyR2tdrVr6hJ6Oyrhtvjz65vYAl3rN/U7EioJmxd79m+v9gEyJctrUqXBygp0dXr9WIrpTJxw8iEKFcPQoHB0/XZs3D2XK4MoV+PpmZuFq1bB7N/LkMTi8/Wrp9gVlrydMwPLlmd/A12QyzJiB5cuhrY3AQDRtiufPszYjERERUXoEUfWXeBLvbxrl1nfOsZcpaUwhyAo28Jq3bKJDCS1V1/iBkm8t7NCk3/YouQhA0DApVdvauk718iWKFimU10hPW1tTJiYnJMTHvXn+5PE/ty+dOX705NXnHxUiAImx9YQ9u0bXyiUFWI0aNc6fP29vbx8REZHTudAv6PJlNG+Oly9hbo7wcNStq8SYJ0/g4YFq1TBt2qcL586hXj0kJ2PTJtjbZ2b58+fRogXevPlgbGYXHXpUo8nVqyhTRoV9/NepU+jUCU+eoHBhrF8PK6ssz0hEREQZ6N69+8qVK0NDQ11cXHI6lx9IzJqUN1c2TfO0q1Myj+aX7hWCRKdAeeuOXrO3Xn+XksX5f6yP10N6VjWWZKoPh8SggnPwuWhFTuf+FUtLSwD29vY5nQj9sp48Ea2tRUCUycQpU0SFSv/9T5smAmKePOLDh5kc+fix2KiRCIiCsCrvoKiHiaos/70XL8TGjUVALFRIPRMSERFRuj7VXaGhoTmdyA+V1TcDpSaVHIYFbzl593Vs9Msn92/fuvso6s372OfXj6yfOahteePc3HnjezrlXRefvXUiZKxLw5JGsvTrMEFmWLx+t1FLj9y8sNLT0ig3N9knUjczMxw4gHHjoFDA1xft2yM6OtOTeHvDzg7v3qF79y+nhSmnSBFERmLWLMhkTq/nFOxkjbt3M7389/Lnx9698PfHyJFqmI2IiIgoNVl5BfHXlhz9z+Wz56/cuvfw6Ys37+Lik1KgoaOnr69vlM+iVNmy5SpVrVTMOHc23eAriPTDRETA3R0xMShTBps3o1y5zA1/9QrVquHZM/j5YezYzC9/6hScnHD/PgwNERwMZ+fMT0FEREQ55vd8BVEtvQlTYh/fuHLzwbOXb98n6Fa271QrryCKoiD81E+FNIyL17ApXsMmp/Mgys0cHHDuHDp3xoULmDQpM6d7AbC1zRcbu2HmWmsnCz8/NGiAJk0yuXydOrhwAX37Ys0auLhg924EB0NfP5OzEBEREf04WXsFUYy9ssbXoXLBvEWrWLdo18XFvWff8ZsfyYHkw97VK9r0Dth+94OaEiWi3KlkSRw/jqAgjBmTyZFv3uDEibqD6wR2P6VQwNUVb95kfnlDQ6xejZAQ6OkhNBQ1a+L8+czPkq6nT7F7d5YPHSMiIiICslSAJd9f7VG7rvPfm6++Sf7uNxMx+e2t/YuH21nW7bnmXlJWMiSi3E5bG/36oXTpTA6LjESbNnj+vO+aRn6lVz55gk6dEBOjUgaurjh7NrZENdy6pahdF+PHQ5HpI9XTNHgwbG3RuTPev1fbnERERPS7UrUAE2MPjbTvseLWRxGCzLRCSzevEZ0r/ftFlCRvyTJ5NQWI768u82g7bF80/3ZMRN8wMMDmzRg4EImJY++6Bur7Hj6oaNQIz56pNFu5chfmnZwrDBLkKfDzQ8uWiIpST56enjA2xoYNqFMHt26pZ04i+h979xUQ1dEFcPx/dyliQcXee5dYsYEKIooidsSCLdbYMIkRjTFCYhRi19iNDQti7w2wgaIgGntL7L1jpe1+Dxq/GKXs3TW283vcnTlzbh6IZ2fuGSGE+FypLMAS/pgwcMrxOL1iXrjVb/vPHd0yf4JfmzL/b3moLT9w+6nIaW2KWSj6uNMzBo45KLtgQnxe5s1j9GgSElIcpNUyeTKTJqHR9H0csCJzt6N/6KpV48gRNSvWbWAZP2aSK1tuKrkJCaFiRTZvVpX765ydiYrC1paTJ7GzY+VKE8QUQgghxOdKXQH2PHzO3KPxesXii8HBC/tUzvK2KEqWSr0XrhpRPb2iTzi54PfdccYlKoT4uPz8M99/j6NjGna0Bgxg/XoyZmzxcP7K3H2vXsXRkT171Cz67beU6t+gij463NyJW7do0oTvvzfBccTixdm7F09PHj3Cw4Nhw0hMNDamEEIIIT5LqgqwxNM7d19LQklXr1+/qulTGGhp27t/w0wKupsRe07JP1eE+JwsW0ahQuzdS7Nmqe2DAY0asXEjGTI0i1/eujX37+PiwvLlatadMAG75vnqJoSMs/kFjYbRo2ne3ASvb2XMyNKljB2LVsuoUdjbc+mSsTGFEEII8flRVYAlXb5wJQm0RapUzp7KbcWZv6hUzAx01y5fNd0r8UKID5+dHQcPUqQI0dFpa5BYpw5Hjyr7I4OC+Oor4uJo147p0w1eV6tlyRKq1dAMuvd97+Ih+mzZWb8ee3suXjT8IV6nKHz7LSEhFCzIgQP89puxAYUQQgjx+VFVgCmKRgEwM9OmNlSflJioB70uSSd9OIT4zGTLxrJlmJszZgxhYWmYUKQIxYtrtUybhr8/Oh19+uDtbXAHeCsrVq+mUCFmnqo7wnU/Zcty9ChVqrBrl6rneF3duhw5wuTJDBxogmhCCCGE+MyoKsA0ufPm1kLSxROnU7nmSx97/NjFJNDmyJ0z1WJNCPHJsbNj2DBUXPPl48O8eZibM3kyXbqk4RDj63LnZtMmihcnPn9RIiNxd+fuXRo2ZMECwwK9VebM9O9P3rwmCCWEEEKIz4yqAsysbF37HBr0sVtmL7mQ0snCxHMLZ217pEeTpXqtsmYqUxRCfNR++AF7e65epVcvwyZ27szGjWTKxMKFuLkZ/BpX2bKcPYu/P2TKxOrV+PgQF0eXLnh7m/KWMCGEEEIIQ6jrgmhVu1O74maK/lHY915+4ffefjxIdyt0mNeI3Y/1aPM2b+eU0Zg0hRAfLa2WRYvInJlVq3jwwJCZMTEuXfId7zImZ062b8fZmVu3jEjC35/Zs1/uqbm7ExurNlYyvv2WkiXZutXEYYUQQgjxaVF5D5iV/ZBfvQqaKboHET/Xr+DUe8zSkIOXHumBpGf3b1w4Hh7s39W+QuMxB2L1aLI38hvW0NqkaQshPiaFCxMWxvr1ZMliyLTnz7l5s8CUwSe/HFOiBFFR1KzJ2bNG5NG9O2Fh5MjBpk3Urm2Cthz/dP8+Z8/SqBH9+vH0qSkjCyGEEOITorIAQ8nRbOra8Y3ymSv6uCu7Zg5u72L/7ZY4SDw9vn6BIuVrew6dH3kjXo8mSzWf5Qu6Fla7jhDi01C5Mm5uBs6pVYu5c9FobPwHx7T9tUoV/vqL2rU5eNCIPBwc2LePMmU4coSqVVVeN/ZWc+YwcSIWFkydiq0t4eEmiyyEEEKIT4gRhVH6Cv3XHQwZ29Eul8XbetEr2sylmgxdEbVrlKNNyr3qhRAiGZ06MWcOGk3GkUPC2011ceHmTRwd2b7d4Eg6HW5u9OhBUuFi7N+Pmxt37uDiwsKFpklVo8Hbm+hoKlbkr79wcmLIEOLjTRNcCCGEEJ8K4zpjaHPV+Wbhga9GR4VsCdsTdeLSrbux8eaZbHLkK2OTwAsAACAASURBVFGpVl0XF4fimWXnSwhhnK5d0eno0SPdd/03T9Z0yfXVokW0aMHu3VSubECYpCSiorh9m8yZGTs2E2vXMmwYAQF06cKJE4wahcYUf6/Kl2ffPn74gQkTCAggNJSlSyle3ASRhRBCCPFJUFWAJZ3etupumSY1C1gpAFb57Ny72bl3M21mQgjxUrduPH3KgAHaAX0XTteamfWcPx93d/bvJ3/+tMYwN2fVKurXZ9w4SpSgVy8t/v4ULUq/fgQEcO4cCxaQIYMJsk2XjrFjcXenc2eio/nmG9atM0FYIYQQQnwSVP3im3h0TieHonnLuvb2X7b/6nO5YVkIYYibN8menQ4dDJnTvz9jx6LXK337zB5xxdmZa9do2pTHjw2I4eDAzJkvg+3YAUDPnmzaRNasrFxJnTpcumRITil6cV/zyJEMHmyymEIIIYT4+Kk+cqNPfHBq68yhbWsWzlfere+Y5VHX40yZlxDi02VhQVISS5Ywe7Yh0779lmnTaN/eLE+O4GBKluTQITw9SUoyIEbnzgwaREICrVv/3VCxfn327aNECWJisLNj925DckqRtTXDhuHgYLKAQgghhPj4qSrAtKUaeNYtZq1VAH3ivRObpg1uU71QPlv3/uNWxdyUd86FECnKmvVl6fX115w6ZcjMr75i4UIsLW1s2Lz5ZT95Hx/DVg8IoFkz7t2jadO/7yUrVYroaJo25dYtnJ0JCDAsohBCCCFEmqkqwMxsu8/fefbGxcgVE75uXT1/eo0C+oS7xzb8NqhV1YL5KzYbOHHN4VtSiAkhktO6NR078uQJHTqo7BRYtCgrV2JpybhxTJ9uwESNhkWLqFCBU6do1+7vT62tWbUKHx+SkhgyhI4def5cTVqpCg7G0VGa1AshhBCfLfVdvxSrfNVaDRy/PPLijXO7Fo3u414xl6UC+vjbf6yb9HWLygULVG75zeT1R+4kmDBdIcQnY9q0l+f+hg9XGaF2bWbN0BXn3IABhjWmz5iRdevIk4e9e0lM/PtTrRZ/f5YuJX16Fi3C2Znr11VmloLISHbtwtGRYcNIkD+PQgghxGfHBG2XNZmK1O4wZOq6Q1eun9j2u++XLqVtzBX0cbcOrZ7g3bRigYJ2rb+buunUQ+nVIYT4h4wZWbwYc3PGjiU0VGWQTud+PEuJqYm9OrZ+duyYARMLFuTYMU6cwOxfvWA9Pdm7l8KF2buXqlXZv19lZsn59VdGjAAYNYoqVThyxMTxhRBCCPFhM+U9XWZZS7t8OeL3bSevX4lZP3VIhzpFrbWK/vmN6JVj+7X6cbscSRRCvM7Ojh9/RKejc2fu3VMVomZNrKx6Mmt7bPWvG526dcuAqTY25Mv3ti8qVCAqinr1uHaNunWZO1dVZskwM8PXl/Bwihfn6FGqVycgAJ3OlEsIIYQQ4gP2Ti5KtshZ0bVdl67duraonE2rvIsVhBCfiKFDqV2bq1fZuFHVfDc3oqN1ZcvbcnTdlcrza82KM0lD1uzZ2boVHx/i4ujWjV69THxcsEYNYmLo2pXnzxkyhMaN38lxRyGEEEJ8eExcgMXfOrp5tm93V9u8ucvU7zx8QdSdJD2gmFlnziCVmBDiDVotK1YwdSqtWqkNUbasJvrA0w49rHg2+M9e+0t10j8y5Haw5JiZ4e9PYCDp0jFrFvXrY9D+WqoyZWLuXFaufFnstW5tyuBCCCGE+FCZpADTP7sWvXbq0E71SuXOV6FxT7/ftx67Ha8HRZOhQM02gyatjrp0cXYjC1MsJYT45OTMSZ8+pE9vRAgrq/SLZl0dOe+pkqHOxcC7Re04ccLQGNu2UafOG+0JvbwICyNPHnbvpmpVDh40Isu3admSo0fp3BlPTxNHFkIIIcQHySz1IcnSPb4QuWn1ypUrV22OvPgo6f9NNhTLnF+4tGrbrp2nu32RTO/klKMQQvxLvmFdwnNWz9qrTbk7x663/TrPka0GTY+JYc8e6tdn3rx/tKcHatYkOpqWLdm/n7p1mT/fxLtVuXMzf74pAwohhBDiA6aqANNd3Dp2zIzla7bFXHuq+0fdZZaleJ1mbdu2a9vKuayNMaWdEEKo4dCjzNSHBxZ+N+Xg6Zo/76NmTQPmfvcd168zeTIdOnD6NCNGoLw6OJ03Lzt30rs3CxbQpg3ff4+fH1rtO3gCIYQQQnziVG1PJUT9PmLqmuirL6ovRZOhQA2PbyeuOnDp+pnQ+T/1aCjVlxDCGL170707z56pmdt3kNWTvoND42s3bcqffxowUatl0iRmzkSrxc+PL798/YbodOmYP58JE9Bq+eUX6tbl/Hk1+QkhhBDi82bE+UDFIscXbl+NWrTz7PUL+4LHereomied6RITQny+Nm7k999p2JAHD9RMnzSJJk24cwd3d4Mj9OzJhg1YWzN/PvXqcefO618PHMi2beTPT0QEFSsSGKgmv1Q9eYKDA337/uOWaCGEEEJ8IlQVYJrCjb+ftfnotat/bJg2tEOdovKalxDClLZto0AB9uzBwYGrVw2ertWyeDHlynHyJO3akZQEkZGEhaVxesOGL/tuRERQpw7Xrr3+tZMTx47Rvj2xsXTqhIeH2ivMkvfsGUeOMG0aLVuq3AcUQgghxIdKVelkXrXL8B6u5bKZmzobIYQAypQhMhJbW44fx8GBM2cMjmBtzYYN5MzJli0MHgytWlG/Pr6+6PWpT4YqVdi/H1tbTp5kw4Y3vs6cmcWLWbCATJlYsYKKFdm50+AUU5A9O2Fh5MjB+vU4OXH3rimDCyGEEOK9UlOA6e+d2hMWGhq648iNJJMnJIQQ/N32olYtLlygTh0OHTI4QuHCrF6NpSXjxxNe3xeNBj8/vLxI21XNBQqwdy9BQXTqlMyITp04cgQHBy5fpl49vL1ff2nMOFWrsns3BQu+bL2oYh9QCCGEEB8kNQWYooka4+ZSv34jn4330vRjshBCGM7Ghq1badCAmzdxdGTXLoMj1KrFzJkAzkE9jv26icyZWbIEJ6c0XqmcMSOenqRL4eXWwoXZsQN/f8zMmDwZe3tOnzY4y+SULs2+fUbtAwohhBDiw6PqCGKGAoVyaCDp8oXLsgUmhHh3MmZk/XratiU2ln791ETo3Jn+/YmPx2VMgxsrwilUiH37qFmTkydNk6KZGT4+7NlD8eJER1OpEpMmpfGgY+ry5mXHDqpXf7kPeOSIacIKIYQQ4v1R9w5Y9bZtipspSWc2bjwpPbqEEO+ShQWLF/Pbb/j7q4wwYQKNGnHjBo0Hl38Wtg87O/76C3t7duwwNNTz5yxbxuPHb3xRvToxMfTsybNnDBz4cj2TyJaNkJCX+4CjRpkmphBCCCHeH3X9C61qjZj/Y60sSX9M6D8u5s1/igghhAlpNPTti5ubyulaLYsWUbw4hw7RySePPmwHzZtz/z5ubjx6ZFCowEDatqVWLW7efOO7TJmYOZPly18enaxQgY0bVWb8Ly/2AadNY8QI0wQUQgghxPujsoG8kqnGD5t3TG+X++D3jtVbj1i448TNpzrTZiaEEKZiY8P69WTOzIoVBPyWgZUr8fXFy4sMGQyK4+ZGmTIcPYqzczLvkbVuzeHDODpy6xbu7gwcyPPnJngACwu++ooyZUwQSgghhBDvlZmaSQn7J3WfGBkPlCiT81z0yp86r/xJ0VpmyJzFOr3520u6dE1mHJvuZmlMqkIIoV7p0gQF0aQJw4ZRrpzGXdVuUt687NqFszNHj1K3Ljt2kDv3G4MKFCA0lDFj+PFHJk0iLIylSylXzvhHEEIIIcQnQNUOmO5yRHBQUFBQUNC6qBsJL1421yfFPb5389qV5NyVy0SFEKZy4gRNmxIZadgsV1d++gmdjg4dOHZM5dI5chAaSvnynDpFw4bcufO2QRoNPj7s3UupUhw9ip0dU6earDPHK2vXsnmziWMKIYQQ4h1TtQOmZC1WpWrVNF2l8zfLYlkVNUsJIcSboqNZv559+9i/n6JFDZg4dCjHjrF0KU2bcuAA2bO//vXz5yl2nX/pRQ1Wrx5HjlC/PqGhZMv2tnFVqnDoEEOGMHky/fqxbh3z55MnjwHppiApidatSUzkyy+ZNImMGU0TVgghhBDvmKoCzMJ5dHjUaFOnIoQQaeTlxYoVrF9Pkybs20fmzGmdqCj8/jvnzhEVRbt2bN6M2au/gr17s2wZgYE0aZJqnJw5CQnByYk//qBBAyIikincrKyYNAlHR3r0YNs2KlZk7lz17UT+Satlxgz692fuXHbvZvFiqlUzQVghhBBCvGMqm3AIIcR7pNGweDG2tpw8Sdu2JBlyI6GVFWvWkC8fISF8990/vsiShQcPaNaMX39NS5zcuQkLo1Qp/vjjbU0R/6lFC44fx9X1ZWeOXr14+tSAjJPTrRsxMVSuzLlz2Nvj62vYfwghhBBCvA9SgAkhPkqZMrFuHTlysGULQ4caNjdvXpYvx9KSiROZPfvvT/39mTgRwMeHdu14lvqLq3nyEB3N6dMUKpTa0Fy52LSJiRMxN2fWLKpVM82tyqVLExnJiBHodPj54eDAn3+aIKwQQggh3hmTFGCJsZePRmxfv3zxgrm/L4+6owf0Jn/dXAghXle4MKtWYWnJmDHMmWPY3Jo1mTULoG9fdu/++1Nvb9avx9qaoCDq1UvLZcoZM1KsWNqWVBS8vYmIoGRJjh+nenUmTTJBZw5zc3x92bqVfPmIjKRKFWJijI0phBBCiHfGuAJMH3t06ZDmtrmzF/rCoUHTNl5duvX2XXspCRJ2f1upXP0eYzeee2KiRIUQ4k0ODvz2G0C/fuzbZ9jcTp0YOJCEBNq04fLlvz9t3JjwcIoUITKSqlWJjjZtwlStyuHDDBjA8+cMHEijRmkp81JXvz5//EGLFjx8yPnzJggohBBCiHfDiAIs4a8lXavV6BCw9tjdhDd+w9Un3DsdOuc798o1ui39M96YDIUQIiXdu+PtTVwcS5caPHfsWBo14uZNmjblyaufi2xt2b8fBweuXsXR0dCO9XFxqW1rvejMsXIlNjZs3UqFCmzaZHDqb8qWjVWruHGDVq1MEE0IIYQQ74baAkwfu2tosy8Xnn6qRzHLVrZh54E+HuXN/x82e7GS2S0U9I+OzevaZFDIAzmQKIR4Z8aPZ+NGVFytrNWyaBHFi3P4MF9+SWLi31+86DTfowc6Hc+fpz3g/fsUKED9+jx+nNrQli05fJi6dbl1iyZNGDSIhASDH+BNuXKZIIgQQggh3hmVBVjCHxMGTjkep1fMC7f6bf+5o1vmT/BrU0b76ntt+YHbT0VOa1PMQtHHnZ4xcMxB2QUTQrwrGg2NGydzGVdqbGxYtw5ra4KDad78H/tgFhbMmsXTp1StmvZoFhZYWREWhpvbP0Ilp0ABQkP55RfMzBg3jpYt09L5QwghhBAfNXUF2PPwOXOPxusViy8GBy/sUznL26IoWSr1XrhqRPX0ij7h5ILfdxt0b7MQQvxnypRh61Zy5GDjRhwdU+spn6IMGdi9m8KF2b0bV9c07INptXz/Pbt3kz07GzbQuDGPHqlf/k3nz9O0KaGhpowphBBCCCOoKsAST+/cfS0JJV29fv2qpk9hoKVt7/4NMynobkbsOZWYwkAhhHifatQgMpKSJYmOpmZNTp1SH6pQIbZvJ18+wsNp1oyHD9O2/J495M/Pzp04OXHnjvrl/+XQIdavp2lTIiJMFlMIIYQQRlBVgCVdvnAlCbRFqlTOrqQ4Usn8RaViZqC7dvmqTlWCQghhIL2e+fMNvhCraFH27sXenvPnsbdnz563DYqJoVYtlixJOVTx4uzYQd68hIVRqRL796dh+dKlCQ+nRAkOHqROHa5cMSz75LRoQc+ePH2Km5u0pxdCCCE+BKoKMEXRKABmZtrUhuqTEhP1oNcl6aQPhxDiP3H4MF27Uru2wVVMtmyEhODhwb17uLgQFPTGiPPn2bePDh1eVjXJK1GC8HDs7Dh/ntq1WbAgDcsXKsSePXzxBSdPUrs2584Zlv1bKQrTp9OmDQ8f4urK6dMmiCmEEEIII6gqwDS58+bWQtLFE6dTeclcH3v82MUk0ObInTPVYk0IIUzB1pb69bl+nWbNUq6S3iJdOpYupW9f4uJo356AgNe/btWKWbOwsmL2bKpW5Y8/UghVpAjh4XzzDYmJrFuXtuVz5WLnTmrW5MIFatfmyBHDsn8rjYbAQBo14vZtXFy4dMkEMYUQQgihlqoCzKxsXfscGvSxW2YvuZDSycLEcwtnbXukR5Oleq2yZipTFEIIg5iZERxMiRLExNClS2q3cr1Bq+W335g4EUVhyBC8vdH98+9cjx4cPEiFCpw8SfXqBAS8/vVrLCwYN44zZ5g/P83LZ83K9u24uHDjBo6OREYaln1yeaxYgYMDly/TuDF375ogphBCCCFUUdcF0ap2p3bFzRT9o7DvvfzC7739Xze6W6HDvEbsfqxHm7d5O6eMxqQphBCGyJqVdevIkoXlyxk9Wk0Eb2+WLSNdOiZPpnXr1/vDlylDZCQDBhAfz5AhuLpy40YKoYoXJ1MmQ9bOkIH162nZkvv3cXEhJETNA/xL+vSsXUv58hw/TvPmJggohBBCCFVU3gNmZT/kV6+CZoruQcTP9Ss49R6zNOTgpUd6IOnZ/RsXjocH+3e1r9B4zIFYPZrsjfyGNbQ2adpCCJGK0qVZtgytluHD2bhRTYTWrQkNJVs2Vq+mXj1u3/7Hd+nSMWkSq1aRLRvbt+PsbKKs/2ZpSXAwXbrw+DFNmrB6tQli2tiwdSslS3LjhsHbgkIIIYQwEZUFGEqOZlPXjm+Uz1zRx13ZNXNwexf7b7fEQeLp8fULFClf23Po/Mgb8Xo0War5LF/QtbDadYQQQrUGDfDzQ6ejfXtOnlQToVYtdu+mYEEiI6lV642+GM2bc/gwTZoYdFkzMGgQuXOn9mKYVsvcuXh7ExdHmzZp6+ORmrx5OXaM48dRUu5gK4QQQoh3xYjCKH2F/usOhoztaJfL4m3/J1e0mUs1GboiatcoRxv5P70Q4v34/ntatiQ2lu++UxmhbFkiI6lcmXPnqF2bgwdf/zp/ftavN7Q6Skri5k2aN2fgQOJSuKVeUZg4EX9/EhPp2pXJk1Xk/2/m5lhYmCCOEEIIIVQxrjOGNledbxYe+Gp0VMiWsD1RJy7duhsbb57JJke+EpVq1XVxcSieWXa+hBDvk6Iwfz7W1jg5qQ+SJw+7dtGmDZs3U7cuQUE0aWJUVuPHU7gwgwczaRJ79hAURIkSyY/28QEYOpSBA3n+nMGDjVpbCCGEEO+VKVoTWuWzc+9m597NBKGEEMLUMmVi3jxjg2TMyNq19OjBggW0bMmyZbRokfzo2FjWrqV58+SabygK3t44ONC2LTExVKnC9Ol06JB8QB8fsmShTx98fLh3D39/Ix9HCCGEEO+L7FAJIUSamJszbx4+PiQk0LYtmzYlP3TaNDp1onJloqNTCFilCgcP4unJo0d4eTFgAImJyY/u1YvAQMzNCQigTRsePFD9IK9Ztoz06Zk71zTRhBBCCJGad1CAJVzbPWt43y5enXt/9+uS/dfjTb+CEEK8F4qCvz8+PsTH06IFmzcnM65DBypV4tw57O0ZOzaFloPW1gQFMWsWlpZMmcKoUSku3749q1Zhbc3y5VSsyN69xjzLS2ZmPHtGz54sX26CaEIIIYRIjREFmP7h0SXD2jqUylOk95ZXVdaz6DENKzv3HjltweKFM8f6eNUq7zBoy82ULmsWQoiPy+jR9O1LfDytW7Nz59tGFCjAvn0MHEhCAt99R+PG3LqVQsAePdi5EycnatZMbe0mTThyBHt7Ll6kbl18fUlKUvscALRqxciRJCXh5ZXipp4QQgghTENtAaa/FzbYqZbXqGURZ249iv/71934I+P7jth5M/HVr7163b2o8W3bTztn3L8QhBDCVO7eJW9eOnVSfxWWojBlCr168fQpTZqwZ8/bBllaMmECW7eSOzdbtmBrm/x+GUCNGoSF4eKShuULFWLnTkaMQKfDz4/69bl6Vd2DvDRs2MtNvWQLSiGEEEKYjMoC7Oluv54TDz/Wg6KxtMma/kWf+ed7Zsw4+EyvmBVqMX7bH0fCl/rUzaZB/3DnL6O2PDJh0kIIoZqi8Pw5gYH8/LNRQaZNw8uLJ09wdycqKplxLi4cPIiTE7du0aSJyZpnmJnh68v27eTNy86dlC9v7AHC0aP56iuePaNJE8LDTZOkEEIIId5GXQH2OOT3JecT9WgLtpxx+NbpcXXNAeKj1m++noQmS9NRMwe6fGFr33b0it9a2mjQ3Vq3bMcTk+YthBDq2NiwbBlaLb6+rFypPo5Gw/z5tGvHw4c0aEBMTDLj8uZl+3Z+/hmNhoULDVri/n0SEpL/ul49Dh/GzY0HD2jThk6dePrUoPj/pyhMnUq3bjx5QpMmyT+MEEIIIYylqgBLPLnvwAMdilWdweO722ZU/v40dMeVJJSMTq0bZX/xmZLdvaObjQbdw5gDp1Po7iWEEP8hFxd++QW9nq5dOXFCfRytlgULaNaMBw9wdU0+lFbLDz9w7BjbtqU9+M2bFChA1aqcP5/8oBw5WL+eiROxtCQwEDs7jh416BH+T1GYMYMWLXj4kPbtVQYRQgghRGpUFWBJN6/dSgJN/qpV8r4KoL8Xvf9MEphXqFMzs/L3p+mKlyqkBd2Na9KJQwjx4Rg8+GX/95YtefhQfRxzc4KDcXPj9m3q1ePUqeSHlipF/vxpj5wpE4ULc+QIdnaEhSU/7sWdYnv3UrIkJ05QvTqTJqV9ldeYmbF0KV99RZs2KiMIIYQQIjXqjiDqdDpASWdl9arSIu7gvph4PdqC1avn+0dUvV4P6OPj4tS+7y6EECanKMybR+XKnD5Nx47ojPiFyMKC5cupV4+bN3FxSXHDyhDp07NvH82bc/cuDRsSEJDi6MqVOXyYAQN49oyBA2nVivv31axqacm0afz0k6qUhRBCCJE6VQWYJnuu7BrQXbtw6VX/+YRDobvu6tDY2NexNf//0PgLf15KAiVT5kzK20IJIcR7YmXF8uXY2LB+vbHdMaysWL+eunW5cgVHRy5eTNu0uXPJk4fp05P7PlMmVq3C35+kJIYMwcuLZ89STGLSJJYvJ0sWVq2iYkVppyGEEEJ8gFQVYOZlq1ZIr6C7v3nR+tsvNrYe7Viw4nwSSsY6rrXT/3/kw9CV2+7pwKxYqWJmJklYCCFMpmhRli7F3JzISGNDpU/PunVUr86lS7i4cP16GuYkJHDjBn36pLBhpSj4+LBsGRkysHgxzs6pRW7dmuho7Oy4dAknJ+bOVfEsQgghhHh31B1BzNygbWMbDbrbK3o37j52YdC84W27z72UhJKxTpN6L18A0z+9FDauS/9F13VgVsrJMb8Rdz4LIcQ70qAB586xeLEJQllbs3UrVaty9ixOTty8mdqEXr1YtozMmV9uWCXfP8PDgz17KFSIfftwdEwtbLFiREQwaBCJifTsyZo1Bj7H62JjWbIkxa03IYQQQhhAXVWk2LTw/aFOZgXdg+i533Vu9+XITZcT9Ip56d5DPXMqgO7PSY45CtcftOZCgh6NTUPvbrayASaE+DAVLEimTKYJlTkz27ZRqRKnT9OgAXfvpjahTRsOHaJGjZcbVtHRyQ2sVIkDB3Bzo1y5NORhbs6YMfj6kpREu3bs3m3QU7xm6lQ6dKBZM+Li1AcRQgghxN/UbkuZlR6wbOUPTnnMX73ZpbGu8s3UITWtANAnPX+eoNcDSobyPebO7FpQ9r+EEJ+FrFnZvJnSpTlyhEaN0rAPVqQIu3bRsiV37+LkxI4dyQ3MmZMNG1i1Ks2pjBjBgAE8f467O4cPp3na69q0IXdutm/H05NEuU5ECCGEMJb6ukiT0/mnkNOndgZNHzt61NiZK/efivB3snlZjynajHlKVHL08J6w8Y/9M5rlk/JLCPEROXvWqOm5chESQrFiREVRqRI7d6Y2wcKCoCDatuXxY9zdTXkP8oQJeHgQG4ubGxcuqIlQrBjbt5MtG2vX0q4dSUkmy00IIYT4LBlXGWkyFa3j2fvbIUO/7dmyah6Lf3xRrO+a4zE7gicObFQsffLzhRDigxMYSMmSdOhAfHzqg5OTLx979lC3LtevU78+I0em1une3JxFi/jyS5484cyZtC/05AmLFiV/lZlGw6JFuLhw7RouLmnYj3ub8uUJCSFLFlasoHt39HKpiBBCCKGebE0JIcRrbG3JnJklS3Bz49Ej9XHy5CE0lBEj0OsZPhwXF27cSHGCVsvvv3P1Km3bpn2VuXPp2JEKFdizJ5kRFhasWEGlSpw7h7s7jx+nPfj/VazI2rWkT8/8+fTvL/tgQgghhGomKMDib/6xJXDC8P7dvDyaNWnSvI1XtwHDJwZuOXxDXtgWQnyEXlyglT8/ISHY23P1qvpQWi2+vmzfTu7chIVRsSIhIanNyZvXoCVat6ZaNS5exMmJH34gIeFtg170ZyxRgqgomjdX2U6jTh1WrsTSkqlTadlS9sGEEEIIdYwqwHT3omb0tC9auFKjTt+M/G3u4hXrNm5cu3zx3Ckjv+7UqHLhwtU6jt1xTd7ZFkJ8bMqXZ88eSpXi6FFq1zboSOBb1KvH4cPUr8/Nm7i64uub2nFEQ+TJQ0QEI0YA/PIL9vbJvMCWIwebN5MrF6GhdO2qMgNXV7ZvJ3t2QkKkMb0QQgihjvoCLOGvRV5Va/eZvffq87f+DqqPuxG1aLBLxQajIh/KD6VCiI9M4cLs3UutWpw/T61a7NtnVLRcudiy5eVxRD8/GjRI89tYDx6k2sDQzAxfX8LDX7b9qFCBSZPeNq5YMbZtI3Nmli5lwABDH+Gl2rU5dYqTJ0kv7/cKIYQQaqgtwJ5H/dyqR9D5OD0oFrmrtR82beXOQ2cv3bh90ebksgAAIABJREFU8+pfR8PXzR7RqWZeSwV90u0dw5t1XnjJdD/3CiHEf8PGhm3baNyYu3dp0MDY3oQvjiNu2/ZyF6pqVcLD0zCtZ08qVcLfP9WBNWpw8CDt2vHsGQMH0rXr2wZ98QWrV788RjhmjKGP8FK2bBQsqHKuEEII8dlTV4DprgT+OPGP53oUs/zu48OP71s88quWdSsWL5Are868Rcrbu3f3XRBxLHxC0/xmCrpb64cOX/9AdsGEEB+dDBlYu5auXXn8mL/+MkFAZ2eio3Fw4MoVnJzScByxeXO0WoYOZfjwVIO/6B2ycCHW1mzcmMxbWk5OzJ+PRoOPD/PmqXsKIYQQQqimqgDT39i0YtdjPYpF2W+WLR1oZ/O2KErWqt5Lln1T1kJBd2Ptoi1SgQkhPkZmZsydy40btG5tmoD587NjByNGoNPh50ezZty9m/zo9u1ZvBhzc0aOpF+/tLS+6NiRc+c4ehRFSWZE27ZMmYJeT48erFmj7iles3Mnvr7yVpgQQgiRFqoKsMQzR0/G61HS1e7bv0aGFAZmqOk9wNFKQf845sAJ6cYhhPho5cplymgv3tpau5Zs2diwgUqViIhIfrSnJ6tWkS4dU6fSu3da+mfkyPGWhKOi+PZbdu5Ep4M+fRg6lKQk2rdPce208ffHzw8np9Qa7QshhBBCXQGmi33wUAeafJUq5Uo5gJKzUqUCWtDduX1XXgMTQoh/aNKEmBhq1ODyZZycmDEjxaGrV2NlxaxZdO2q7hquGTMYPx4nJwoXxseHo21/oVs3nj2jWTNOnlT9FADjx1OkCPv3U706R44YFUoIIYT41KkqwDTZcmTTAEmp/yNAn6TT6UGTJWtmufNZCPGpuHPHBPtGQMGC7N7N11+TkMBXX9G/P4nJHRZwdWXTJjJmZOFCGjdWcQ3XqFEMH07Roly+zK+/8kUFpfKBGX+WdefuXVxduXJF/WOULUtUFHXrcukS9vasXas+lBBCCPGpU1UVmZWqZJteQXd1797zKZdgukt7917SoViUKlfCTFWCQgjx4endGwcH9X0E/8ncnPHjWboUKyt++43Gjbl/P5mhjo5s306ePERFER9v6EK5cvHTT5w7R0QEffqQLRuHjprZnlgWgT2XLuHqmuK7aKnJlo2tW+nUicePadECX1/1oYQQQohPmqoCTMnerG/7glp9fPTE4cFXky/BdNdX/jghMk6vpLdv0Sh3cq+DCyHEx8bD42UfwZTODRqibVvCwsidm+3bqVaNU6eSGVejBmfP8tdfWFqqW0hRqFWLqVO5do21a3FvY+Vhue6SdXmOH6dxYx4/Vv0IWFoyfz4jRwL4+dGzp7qjkkIIIcSnTeW5QGuXUXO/rpRRd215N2ev3/beevPMTOLtyOmdnLssvZKkmBXv/kOngnICUQjxyfD0ZM4cgD59+P1308SsUYPoaKpU4dw5atUiNDSZcRkykCWL8ctZWNC0KcuWcf6hTf7ToZQsyYEDNG3K8+fqgyoKw4axbBlWVsyeTViY8XkKIYQQn5g0nAvUXdy1ZOeFN3/HLOvlZXdxVtTpoP4OawPsGjZysitbKGcm84RHty6djN65eev+y0/1oJgX8/LrXujunacZsqd/Bw8ghBDvRdeuxMYycCC9emFtjYeHCWLmy8euXXTsyOrVuLoybhwDBpggbMosLSF3TjZvxsGBHTvw9GTlSsyMODXu4UHx4mzciIOD6dIUQgghPhFp+F9sQtTUHl2Wp/STqP7ZlQNrZh94620y+oQ/57e3nZ/OY/mD4NYqj8wIIcSHyNube/f46Se8vMiQgcaNTRAzQwZWrsTPj59+wtub48f57TfMzVOcs2YNbdrQvz+jR2NhoXLhokXZto26dVm3LqHjl/v7LLB3UJK9SSxVlSpRqZLayUIIIcSnTA4GCiGEen5+fP018fF4eJimLyKgKPj6vmzLMWtWim05XsiUCUVh/Hhq1+b8efULly//otGieVDgoTrezZuntq6hbt/mxAmTRhRCCCE+PmnYATOvPWz9lm5GvkqtzV0x5V9whRDi4zRuHI8eMWcOY8Zgb2+ysJ6eFCpEixaEhFCtGuvWUaZMMkOdnYmIoG1bDhygYkVmzcLTU+Wq1auzZo2ukVv/hCk31+WqXHlYcDB2dmqf4V9at2bPHjp2JCCA3LlNFFQIIYT4yKShANPkqlC/YYV3n4oQQnyMFIWZM6lVixo1TBz5RVuOZs04eJAaNViyBDe3ZIZWrUpMDD17smwZbduycSMzZ2JlpWZVZ2dNcBAeHiMTf3h8IWOtWt4jR+LjY8RjvNK+PQcOsHAha9bw448MGJDa2UohhBDiEyRHEIUQwlgaDV27Jr9DZYQXbTlatCA2lmbNCAhIfqi1NUFBTJmCpSWBgdjbc/asylWbN2fOHBRlgvKNR1LQkCG0aMGDByqD/V+vXpw9S8eOxMYyaBDly7N5s9FBhRBCiI+M+j5XcbdP7AsL2x19+vLNW3fuPdVkyZ0vX/7C5ewbNalbxkZ+1BRCCNPIkIEVKxg+nNGjGTKES5eYNCn5JoX9+lGrFm3bcugQLVpw7JjKVTt35sEDZeDARdpOiZaZlq9xO3GC1aspW1btY7yQPz8LF9KhA97enD5N48a0bMn48RQqZFxcIYQQ4qOhogCLuxYeOPaXX+dsP/coSf/m14Msspd1btfv+yFfOuRV241LCCHE/2k0/PILZcvSvTvTphETw5IlFCmSzOjKlYmOZsSI5Eekjbc3165pfv11mc4jU/Etc8/U8fNj2TKjQr7UsCFHjjBpEj//zKpVRERw7RoaOZEhhBDis2Dg//CenFjYza50nR4Ttpx9a/UF6OPvHN88pU/d8jV7LTr51AQpCiHER2ftWnr14t49U8bs0IGdOylYkMhIKlVKsRaytmbCBBNcIubvT8+eyvNnv99yX+YT8+OPxsb7PwsLvvuOU6fo2pWmTaX6EkII8fkwYAdMf3v74MYe46Mf6gAUjXXhmvUbONWuVrZgruxZrXSP7ty8cvbg7pAt28LP3k/U6+7HzO5c58zlDeuGVM+k+ioZIYT4KC1ZQnAwhw+zcSPZs5ssbPXqHDlC794EBb3stTFtGhkzmiz+vykK06fz8CHLlrWZ60rXPVDKlPHz5mXuXFMGFEIIIT54aS7A4k9Mauv5ovpS0hVt4vPrL97NbbNq/zWqU59huocn1k0e9t3oteee6e7sGt6yW+EDQe3yyY+bQojPyfjxREdz4ACVKxMcbMoGiZkzs3QpjRrRpw+BgRw4wNKl7/LSY42GwEBiY9m8GRcXwsMpWPCdLSaEEEJ8+tJYGCWentp7+I77OtDkdBm9M3qtb6s3q6+XETOXbT581YEdo11yatAnXVvp3WfhJZ0JUxZCiA9evnzs3k2tWly+TN26TJli4vidOhEdTYUKnD5N9er4+qJL+e/szZsEB5Ok6kpHc3NWrMDBgcuXcXHh1q0XH//2G4UKsXChmpBCCCHEZyttBdjDzf5jIh7rUSxtBy5bNrh61tTOFCpZqw9etmygraWC7vbGkRMinhufqhBCfExedJD38SEhgQEDaNGChw9NGb90aSIjGTCAxET8/HB15caN5Ef7+eHpSe/eKhdLn561a7G15cwZXFy4cgW4f59Ll+jcGTc3Ll9WGfgtOnSgTx8SEkwXUQghhPiApKUA09/dOH/1DR1oC3YZO8Ix1errBSWr44ixXQppIel84LSND97eskMIIT5dZmb4+xMcjLU1a9ZQo8aLysVk0qVj0iRWryZbNrZvp0IFtmxJZmjXrqRPz5w5+PmpXMzGhq1bKVOGI0eoXp1Dh4YPJziY7NnZtIny5Zk0KbVduLRITGTbNqZPp3Vr4uKMDieEEEJ8cNJSgD2L2LLzkR7Mv+je39nagODWzt49KpqD7v6ubVHxalMUQoiPWuvWREVha8upU+zYYfr4zZpx+DB163LrFo0b4+1N/Jt/cO3sCA7GzAxfX6ZNU7lSnjxERODkxLVr1K7NunUeHhw7RuvWxMYycCB163LmjHEPY2bGtm1kz866dTRrxrNnxoUTQgghPjhpKMASz8b8EasDs6INGpZ6+3tfydGWaNiwhBno7kTtP6vq1QMhhPgElCzJ/v1s2UK7du8kfv78hIUxcSJmZkyejIMD5869McjNjenTAQYMYO1alStlzcq2bfTqxZMntGzJ5Mm5crF8OcuXkysX4eFUrsycOcY8ClSqxO7d5MnD1q24uvLokXHhhBBCiA9LGgow3bXL13SAtmjJIobVX2BWrFRRMyDp1vVbUoAJIT5jVlY0bIiZAXd/GEajwdub8HCKFiUqiipVWLz4jUHduzN8OElJtG/Pvn0qVzIzY8YMJk5Er8fbm169SExs3Zrjx/Hy4skTBg0y7kmAMmXYseNlJ5NGjYiNNTqiEEII8aFIQwGmf/b0mR4Ui6w2hl/oZZXVJp0C+of3H8pLYEII8Y5Vq0Z0NK1aERuLlxc1azJt2uv3Qfv50bUrT5/SvDl//ql+JW9vgoJIl45Zs3B359GjbNkIDGTHDjZsMPoxgFKlCA+nSBEiIqhXj7t3TRFUCCGEeP/SUIAp6dJZKqCPf/jwqcFF1PMHD57rQbFMZym3MQshxD88fUrTpvz8s8rm8MnJmpUVK5g5k6xZiYykb1/y5KFlS9asIT4eFIWZM3F15dYtxowxaiUPD8LCyJGDLVtwcHjRYMTREQcH0zwIhQsTFkbRohw8yA8/mCioEEII8Z6loQDT5MmfVwMkXTx3wdB/JSRe+PNC4j9iCCGEeOnOHbZs4ccfcXXl9m0TB+/Zk2vXWLcODw/0elavpkULcuWiVy/C95vrg5fzyy8MGGDsMjVrsm8fpUpx5Ag1anDo0FtHHT6stgV/4cLs2oWnJ82bG5OmEEII8eFIQ1VkVqJi+YwKJJ7etv0vwyow3YXt204mgpLRtmLxd/bmgxBCfIwKFmTrVnLlIiSEypWJijJx/HTpcHcnOJgbN5g5E3t7Hjxg1ixq16aIbcYhsd//aVnWBMsUK8bevdSpw9Wr1KnDxo3/+v7kSSpXplQplixRFT9/foKCaNjQ+EyFEEKID0FatqUy1HatnVGBxJg50yKeGBD86d7ps6MSQcng0MAhg9oUhRDiU+XkREwMtWtz5QqOjqxc+U5WsbGhZ0/Cwzl+nBEjKFyYixcJCKB4capWZdIko1+wsrFh2zY6dODxY5o1+1eb+0KFqFePmzfp0IEGDd7WnlEIIYT4nKSlAFNyNO3SNIcGfeK52d8G7H+cxtBPosZ8O/Nsoh5NdvcuTXPIK2BCCPGmvHkJC6NPH54+xcMDX993uFbZsvj6cu4cW7bQoQPp03PwIAMHUqAAI0YY9yqapSWBgS+j9O2Lt/erW5nTpyckhOBgcuRg+3ZsbfH1NfqO5ZMnuXrVuBBCCCHE+5GmF7OUrO5DvrZLr6B/enBUK69pRx6n2ozj8bGZHVuNjHqiR7Gq4j2kqY3UX0II8XZmZkydyq+/oij4+dGv37tdTqulYUMWLeLGDebNo1494uKI/GnbkGphRr2Kpij4+jJvHubmTJ6MhwdPn7760sOD06fp2ZO4OPz8sLUlNFTtQg8fUrEiJUvyyy9GV3JCCCHEfy2NnTHMyw+c8UPNTAr6pKtr+9nX7DQx5MLTZMY+u7Rjcmf7Wn1WX07Uo2SwGzL9my/MTZawEEJ8mr77jpUryZBB/SXJhsqUiS5dCA0lNJRVSiv/mAY/lF21f79xQbt0YfNmsmRh1Srs7YmMfPVN1qzMnElYGKVLc/YsLi4sX65qCWtrvLx49owffsDWli1bjMtYCCGE+E+luTVhuoo+yxf1Lp9BAf3jY4u+blCqSMUm3YZOWLBqc2j4gegDEWGbVy+cOKxH08pFSjh7LzzySAeKVekvF6wYVsXqXT6BEEJ8Kpo358QJ9Tckq+boiH7o91qSJt3pMMx+Z0CAceGcnQkPp1gxDh/G3p7u3blz559rHT6Mnx+5c5Munar4isLvv7NzJ7a2nD1Lo0a4u3PhgnFJCyGEEP8RRa834G4v/YPo37p5frf6r7hUJykWBd1+CVrwbU05fPifq1KlSkxMTLNmzdasWfO+cxFCfDR0A7/RTJoQi7UTO0q3rzxrFhmM6Z707BkBAQQE8Pw5WbMyYgT9+qHVmixdIDGRqVP58UdiY7GyYvBghgxRW9UJIYR4Dzp27Lho0aLAwEAvL6/3nct/x7DLuZQsVfuvOPzHWv+OVXOaJ1dYKWbZKrb9aUXMkbWDpPoSQoiPhWbCODp3tiZ2q+IaveRM1aqcOGFEOCsrfH05epTGjbl/n4EDsbP754lEEzAzw9ubkydp145nz/DzM8HNZkIIIcQ7ZvjtyEqmUu4+C6MuXz+xc9nkH/p1aduisbNDLYd6rs08O301dPzi0KNXrx5aOrxlucxy87IQQhht/XpmzMCQwwpqKQqzZ+Pqml1/O9Si0YNTN2rUUPua1ivFi7NxI+vWUagQhw5RqxadOiV37fSaNbi7ExFh4BJ587JkCTt24OREzZrGpSuEEEK8c6pvR7bIVrpum9J125gyGSGEEP82aBBnzhAayoIFpE//jhczN2f5curVyx8VtS9rY9v7uz09M4aHM3Ys5sY0U3J3x9mZX3/F35/AQDZsYMQI+vdH89oPdTt3smEDGzfSsyf+/mTJYsgSjo44OhqRohBCCPEfkV0qIYT4oE2fTpYsrFiBoyPXr7/79TJmZONGSpUqfP/Qyj6hL1rKOzsbvXT69C9PJDZs+PJEYrVqvN5yMSCA4cMxN2fmTMqUITjYuBWFEEKID5IUYEII8UGrV48DByhZkqgo7OyIiXn3S+bIwa5dLFzYYGLjiAgKFWLPHipWNOLmrldKlGDLFtato2BBDh58eSLx7x6Jlpb89BPHjuHszI0beHri5mZcd8PduyldmrFjX90KLYQQQrx3UoAJIcSHrkQJwsOxt+fqVRwdWbny3S+ZKxcdO2JuXrUq0dG4uHDrFq6uBASY4m00d3eOH2fQILRaAgMpV46goFdflijB9u3MmkXWrGzaRPnyTJumdqG7dzlzhu++o04d/vzT6LyFEEIIE5ACTAghPgI5chAaSocOPHpE69b06/ffbepkz87mzQwZQlISQ4bQvDk3bhgdNGNGxozh0CEcHbl1i/btmTLl1ZeKQo8enDxJ27Y8eUK/fjx7pmqVFi3YsoX8+YmIwNaWgADZChNCCPHeSQEmhBAfB0tLFi1iyhQsLZk6lQMH/rultVpGj2b1arJkYd06ypdnyRJTxC1XjrAwJk0C8PZm4sR/fpkrF0uXEhLCqlVYWaldokEDjh2jZ0+ePWPIEBo25PJlY9MWQgghjCAFmBBCfEz69ePAAWbMoFq1/3DV+HiGDm2WfvvJkzRtyt27dOiAmxtXrxodWVEYMIBZs1AUvv6aUaP+9b2zM82bG7dE5szMnMmKFeTIQUgItrYsXmxcRCGEEEI9KcCEEOIj88UX9Or1rxbu79iZM/j74+6e+0TY2rUEB2Nj8/IFrVmzTBG/e3dmz0ajYdgwfvkl1eGbNhEcbOBxwlatOHqU5s15+JCOHbl/X3WyQgghhDGkABNCCJGa8uX5+mvi4mjRgpgYDw+OHaNpUx48oFcvmjTh2jWjl/jyy5c12A8/MHJkymPbtsXTky++YNUqQ5qC5MrF6tUEBTF5MlmzGpmvEEIIoY4UYEII8dF78IA2bZg7912uMW4cHToQG0u9eoSF5cnDq62wjRspV84UW2FffsmiRZiZMXw4P/2UwsDAQIoU4fhxWrWiWjW2bjVkFU9P+vUzMlMhhBBCNSnAhBDio/fnn6xYQbdutGtHbOy7WUNRmDcPT08ePqRRIxYtAl5shbm7v9wKc3c3eiusXTsCAzEzY8QI/PySG9WsGadPM3Mm+fIRHY2rK/b27NhhxLpxcdIgUQghxH9DCjAhhPjoVanCokVkykRQEFWqcPDgu1nG3JylSxkxgvh4OnXC1xfIk4d16wgOJmtWNmwwxVthbdu+3Afz9WXIkBRy6dmTs2cZM4bs2dm7l3r18PRUdU3Z/fvkz0/58qxebYprzoQQQoiUSAEmhBCfgvbtOXKE6tU5d46aNU10Y/KbFAVfX6ZMQaPBz485c1587OHB8eO4u3P/vim2wjw9WbwYMzMCAlKowQArKwYN4q+/8PXF2pqtW4mPN3w5Cwty5eLkSVq2pFYtdu1SnbgQQgiRKinAhBDiE1G4MLt20a8fCQkMGUKLFly69G5W6tePVauwtaVo0VefvXgrbOZMrK3ZsIGKFQkONmKJNm1YuhRzcwIC8PFJeWymTIwYwcWLnD6NpaXha2XIwKFDzJxJnjxERuLoiIsLMTHqEhdCCCFSJgWYEEJ8OiwtmTKFVavImpW1aylZ8p3VYE2bcuQI9er98zNFoWdPjhyhfn1u38bTk6ZNjbj3uHVrlizB3Jxff+W771IdniULuXL9+8PYWGJi0rAZ+OJE45kz/PQT1taEhGBnh5fXO/vPJ4QQ4vMlBRgAidHTenbt2vXLvr+sPffsfScjhBDGadGCQ4fw8qJ2bbJk+a9XL1SIbduYNYssWVi/nnLlmDJFbYeL1q1ZtQpLS8aOZdAgFQH69qVKFSpUYP584uJSG50xI8OH8+effP015uYsXkyrVioWFUIIIVIgBRgASRd2Bs6fP3/etB9aVrbz+m3/XWmGJYT4qBUqRGAg27djbf3vr0JDOX/+3a6uKPTowcmTdOzIo0cMGICdndozfU2asHIllpaMG8e33xo628OD/Pk5epSuXSlShNGjuXcvtTnZszN+PKdP068fvXqpSloIIYRIlhRg/6J7dHzxgNoVXL5f+9fz952LEEKYWlQU9etTrBh16zJvHo8emS70H3/g4MCKFa8+yJ2bhQvZsIGCBYmJoXp1hgzhuYo/rW5uBAdjYcH48QwYYFCfjaZN+esvgoOpXp3r1/n+e/LmpVMnTp1KbWahQkyZQvfuhqcrhBBCpEQKsNeYFXNt75jXLPFq2OiWlap1nrb/dtL7TkkIIUyofHm6diV9enbv5ssvyZOHTp0ICzNFy8SzZ4mIwNOTceP++bGbGydO4OODXk9AAOXLExJiePCmTV/ug02ZQoUKBt35ZW6OhweRkYSE0KgR8fEEBlKuHEuWGJ4G8Ouv9O3Lvn2qJgshhBBSgL1OyV7Pd9sfuye1L5tJH3t0YT/7khXb/LT6ZKzcCyOE+DRYWTF3LtevM3cuderw9CmBgTg74+LCnTvGhW7dmokTAQYNokcPEhNffZMhA/7+7NlDuXL8+ScNGtCpE3fvGhi/SRNCQihdmlOncHam4//Yu++4rMvugeOfm6GAuHCL4gQXKoKAArn3wAmaAuaCTBNHBaa5SgWtnKngRNAKnKC4cGsoIDgAt7hwoSYuXMDvD+/np5km9xAUz/uvnu99X+cc7HlVh+v6nsudGzdUCtCyJZGRJCYycCDFi6Oj3r8Af/uN+fNxcKB2bX7+WdUahBBCCGnA/kWnZKOvV8bGrx3btlLBrLuJYRN61Ddv1P/XbSmP8royIYTQjsKF6d+fPXs4e5YJEyhdmh07aN1a47je3oSFYWjI4sX07Mmjf/xjs3FjEhLw86NgQeUe1IoVKsZ3cuLYMWbNolAhQkKoUYPZs8lU7aRC7dosXsytW/TurWL2F3bvxseHcuU4cYJvv6ViRbp1IyLi1YZTCCGE+A/SgL2ZUfWuP20+Fhsysmn5Ajy7GbN8dLvaNZt9+fOaw9ffOUZLCCE+FlWrMnEiCQm0a4eVlTYidu/O1q2YmLBhAw4OHDr06of6+vj4cPw4LVty4wb9+tGpk4qT3vX18fbmxAl69iQ9nREjsLV9LYva0tJy8KUqVfDz49IlwsPp0gVg/XqcnTEz01YZQggh8jdpwN5OUcSyz6+7Tib8ObZjtUKK7MeX9wR829PWzLRup2E/r469Jo2YECKfKF+ezZtZtkxL4T77jAMHqF6do0dxcODXX1/7vHp1tm9XzqnftAlLS9Xn1FeoQFgY4eFUqkRCAg4Oah1q/Ic1ayhdmh49uHkzB9/W06NzZ9av5/JlZsygVi2uXePMGU0KEEII8YmQBuwdFIVru/y0MTF5x7whzcwMFWQ/u5246bdvXewrmVq26+8zY1lE9OnbT+QdMSGEeEXNmhw7xvffo6dHQsK/P38xpz45mZ49lXPqnZxISlIxS+fOJCczYQJ6egQHY2nJihVqjxMxM6NIEdaupW5d1q7N8bIyZfjmG5KTuX4dNzf1UgshhPikSAOWIwZmzYfO33Xq1O7F3/e2NzVUQPaz20lbl0//boCzQ83SxcrW/qzb4LGrT8nMRCFEfvH8uWZjOQwNmTKFq1dZvvxtXylXjrAwNmygQgWio7G2ZuJElYbMg5EREycqDzVev06/fjRvTnKyGvXa2irD3LxJjx64uqq4o1amzOtPsrOJjZV3w4QQQrxGGjAVGFRsMnDK7wdTLh3dMMvbuW5JfQUA2VmPb57Yv37xr6HH5d+zQoj8wtOT8uWVcw3VV6IEurr//RVnZ5KSGD6c58+ZNAlLS3bvVjGLhQXbtxMUROnS7NmDlRXe3jx4oGqxZmZs305AAMbGhIVhaUl4uKoxXrFqFXZ2tGqVs3fLhBBCfCqkAVOdfsm6zt6zNhy7fDE2fOEEz04NKxTSVeR1UUIIoV1WVjx/zsiR9O3Lw4fai3v9OgMGEBn56rMiRZg9m337qF2bM2do0QIvL+7dUyWsQoGHBydOMGgQmZnMmYOVFfv3q1qdQoGnJwkJODpy/TpduzJsmLqnGu3sKF+ePXuwteXIEbVCCCGEyIekAVOfQTmbzl4TAyJiL9+5eerA+kU/9bB4x+95hRDiozF8OBs2ULQoq1bRsCEnT2op7l9/sWwZHTvSoweg9zELAAAgAElEQVRXrrz6iYMDR47g50eBAgQGUqsW69apGNzEhEWL2L+f+vU5d45mzfD1VfFQI0D16uzZw/TpFCzIggXqHsU0NycujkaNuHiRxo0JCVErihBCiPxGGjBtKGBi7tBl0Ohe9fTyuhIhhNCezp2JiaF2bU6exN6e9eu1EbRbN2bOpHBh1q6lVi1+/fXVt6RezKl/0bZcvUr37ri65mws4asaNyYuDj8/dHTw98fGRo0NKF1dvv2WY8fYu5dSpVRd/T/lyrF7NwMG8PgxHh74+qo47VEIIUQ+JA2YEEKIt7Kw4OBBevbk3j26d9dGB6FQMGKE8iKvBw8YPZqGDV+7QcvSkgMHCAigcGHCwqhRg8BAFc8B6unh48P+/VhYkJhIo0b4+6tRurk5jo6qLvqnggVZsoSAAPT08PenUyfu3tUsohBCiI+bNGAA6Nbs+q2vr6/vdx72xeWPRAghXlG4MKGhTJmi3E8KCNBGUFNTwsKIjKRqVY4epVkztmx59XMdHTw9OXmSrl25excvL5o35/RpFbPY2XHkCMOH8/Qpvr589hnnzmle+6NHqrdynp5ERmJiwubNDBumeQ1CCCE+XtJtAKBn2WfytGnTpv30VZOSMk9DCCH+SaHg+++JjKRZM6yttRe3fXsSE/Hy4vFjunf/99z38uVZt47gYEqWZM8erK35+WeePFElhaEhs2ezZQumpvz1F9bWBAZqUnJKCiVKYGen+qz7Vq2IiaFDB9q00aQAIYQQHztpwIQQQuRImzbs2oW9vVaDGhqyYAHjxtG6NcbGb/yKmxvJycphjN9+S40aLF9Opkr3LrZpQ2Iiffpw7x5eXvTsqfYdZ0WLYmrK4cPY2PDrrypuhVWrxqZNeHiol1oIIUT+IA2YEEKIPKVQ8OOPbNhAwYJv+0qpUoSEsHUr9epx8SL9+1OvnopDQYoVY+VKQkMpXpw1a7C0JCJCjWJNTDh2jOHDefKE0aP57DPOnlUjjBBCiE+XNGAae/z3taupqampqVfvPM7rWoQQIpcFBTFqVC7NlWjThiNHCA2lenWSk+nWDXt7du5UJYSLC0eO0Lw5N27g7IyHhxr3NRsZMXs2mzcrTzXa2Gh2qvHKFS5c0GC9EEKIj4zMTdfUk61f1+i28n42GLiE3Q3t+dZf4Kps+/btS5YsyVJ9bFdKSgrw+LH0g0KI9+6334iNJSyMxYtp2/a9p1MocHGha1eWLWPiRGJiaNmSVq3w88PGJmchzMzYsYNFixg5kuBg9u8nKIjPPlO1krZtOXKEIUNYvRovLzZt4vffMTJSNQw4OnL5Mm3aMHw47dqhI78YFUKIfE4asA/X/Pnz12tw7U5aWpoWixFCiDdatQoPD6Kjad8eLy9mzHjbm1wqWr4cKyusrN74ob4+np64uTF3Ln5+REVha0vPnvz0ExYWOQiuUODpSePGuLtz9CjNm/PFF0yahKmpSjWWLElYGCtXMmwY4eHs26dWC9q/Pz//zNatbN2KuTnDhvHFFxQponogIYQQHwdFtmpXq4jXPdngVur97IBdu3Zt//79aiz08fFJSUlxdnbesGGD1qoRQoi3yMpi7lx8fHjyhMqVWbaMZs00i3j6NDVqYGxMZOQ796bu3GH6dObMISMDPT0GDGDCBMqXz1mip0+ZMIFffuHZM4yMGDECHx81mp+rV9m7F1dXdbev7t1j2TJmzyYlBaBwYT7/HG9vatdWK5wQQnw03N3dQ0JCgoOD3dzc8rqW3CMNmKay/z53+MytzGzQKWHesLrJBzDF3sbGJj4+vkuXLppsoAkhhEqSkujXj8OHUSgYPJiZM9U6j/dCdjYDBrB8OcbGbNmSk7uQU1OZPJmlS3n+HCMjBg1i3DhKlcpZuosX+eEHQkLIzqZECb79lhEj/mMiyPuSmUlEBHPnKl9r09Fh3z4cHHK7DCGEyEWfZgMmZ801pSheraGdvb29vb3tB9F9CSFEnqhTh+hofvgBXV0CAxk+XINYCgVLlignZLRty96971xhakpAAImJuLiQkcGcOZib4+PD1as5SFepEitWcOgQTZty+za+vlhYsGIFmv2C8v590tNVWaCrS9eu7NjB8eN4elKvHiVLalKAEEKID5M0YEIIIbRDX5/Jk/nrL1q2zMmu1X/S0WHpUtzdefiQDh1y0oMBNWoQGkpMDG3bkp7O9OlUqcKAASQl5WCxrS27d7N9O/XqcekS/fphb8/u3Wr/BA0aUKECfn4q3hwNWFoSEEBCQs5eaBNCCPGRkQZMCCGENtnaEhVF//4aB9LVZdky3Nx4+JDOnTl0KIfrGjZkyxbi43F3JyuLZcuwtMTJKWf3frVqRUICQUGUK0dsLM2b07o1x46pUX6LFjx4wJgx1Kmj4pVlb5OaSvHiVK3K6NHs26fiXdRCCCE+FNKAvcPzB7dSU04lHk04HHc44fjJsxdS0x48z+uihBDi06Cry/Ll9O7NvXu0a8fJkzlf2qABK1Zw+jTDh2NkxIEDODtjbc2KFTz/73+K6+jg4cHZs/j5UaQIUVE0aICHR86OM74UGMjOndSrx7lzdOtGixbq9XGvKFCAYsVISeHXX2nShHLlGDSIjRuRS0eEEOKjIg3YG2SkHgz99VuP9o1qlDU2LFKqQtWada2sG9o2tK5Xy7xKhTJFChWrWLtRh35j5q49dPmRzDARQoh32rePZs1ytgf1Gl1dgoPp1Yu7dzl1StXVVaowezYXL+LnR7lyJCTQrx8WFsyezaNH/7nSyAgfH06fZsgQZQ0WFvzwAzdu5Dx78+YcPsy8eZiYsGsXNjZ8/TV37qj6Q/xPqVKcO8dff/Hdd5ibk5bGkiV07kypUnz+OXL1iBBCfCSkAfuHrNuHFno5VK3q0Gv0z8FbDp2+8fD5vxqs7Oyn6VdOHNq8wm94j8bVKtt9MXv/DTkHIoQQ/yUujj17cHbm88+5eVPFxXp6/P47Z8/SpYt62UuWxMeHlBSCgqhRg5QURoygUiV8fbl27T9XlinD/PkkJtK9Ow8f8tNPVKxIz55s2UJWVg5rHzqUM2cYOhRg3jzNrqvW0aFxY/z9OX2axER++gkbGx4+5I8/UOvaEiGEELlPxtC/9PTcqkHtB4ScefK/PxGFrpFJ+YpmFcuVKGxkaFhQN+vp44xH9+/cSL18KTXtwbP//5q+WZe5kau86hjmVeWvkTH0QogPTVYW8+YxdiwPHlCyJDNnklcDhzMzWbuWGTOIjQUwMmLgQCZPplixd62Mjmb6dDZuVB5hNDNjwAAGDKBixRymTkxk3DgsLJg+XYMf4N8uXSIxkXbt1L2GTAgh8synOYZeGrD/yYgZ17jJ1KNPslEULN+ol+fgvl1aNa5bsbDum76clXHjZOyeLauDAoO2nLqXhaKAxdDImDkti34Qc+ilARNCfJguXMDLi23bANq3Z+FCzMw0CHf3LgYGGBiot3r3bmbMYPNmsrOpWJGlS2nVKgfLrl8nKIjFizl7FkBHhxYt8PSka1f09dWr5L3IzKRePbKyGDKE/v0pXDivCxJCiDf4NBsw+W3ZC1mXln0/89iTbIWuqfOsA0kHgib0b2P1lu4L0DEsU7uJ66g5m44eXfd1g0KK7KdnFo0NOC0nEYUQ4j9UrsyWLSxbRvHibN5M3bosXqxurPv3qVwZCws2bFAvQLNmbNrEsWM4OHD5Mm3a4O1NRsa7lpUti48PZ84QF4enJwYGREXh6krFinh7k5ioRiUpKe86CakGhYICBTh5Em9vKlRg5EjOndN2DiGEEOqQBgyArMvr/9yfkY1uxYFLgofbFMvxRlbBys4z//zRyVCR/SR+XUSKdGBCCPGfFAq++ILkZHr04N49Bg9WaarFKwwMqFePy5fp2pVu3bh8Wb16LC3Zt49Zs9DXZ84cbGyIi8vZShsbAgJITSUgACsrbtxgzhzq1qVhQwIDefgwhwU8foylJZUq0a9fzu4ryyEdHQ4fZvt2OnXi/n1mzcLCgtatiYjQ8IJpIYQQGpIGDIDnyUeSnmWjU7qDS/MiKq7VrdbDxU4fMs8kyxaYEELkRNmyrF5NeDi//UaZMmqF0Ndn924CAihShPXrqVkTf3/1rsbS0cHbm7g46tfnxAkaN8bXl2fPcra4WDE8PUlIIDqagQMxNubwYby8MDMjJCQnAQwMcHcnO5sVK6hbly5d+OsvNX6IN9HRoVUrIiKIj6d/f/T1iYrC2RkbG27f1lIOIYQQKpMGDIDsJ0+eZoPCuLCx6m9x6RQpVkQHsp8+eSq/VRRCiBzr3JmvvtJgvY4Onp6cPIm7O48e4euLjU3O72t+Td26HDyIjw9ZWfj74+TE6dOqrG/UiMWLuXqVwEDs7LhzB3d3fH1zMixx4ULOnmX4cAwNCQ/H0VF5bbTWdqqsrFi6lEuXmDyZcuU4dkz1SZRCCCG0RhowAHQrVKqgC1lXDsdfy9Fg4VdlHI1NfAY6ZcqVkT9OIYTQzJMnORzw/j/lyrFiBRERVKrE0aM4OhIUpF5qAwP8/Ni7l2rViInByorZs1XsggoXZvBgDh1i4UL09fH3p1s37t9/57pKlZg9mwsX+OEHTEyU10bb2eXgnbScK12aH37g4kVSU6lVS3txhRBCqEY6BgD06nVqX0mX7Iw9/r5hl1U5wpJ9P2bGmKALmeiUcGxW70OagCWEEB+de/eoWBErK2JiVFzZqRNJSXzzDTo6XLqkSQ2OjsTH4+lJRgYjRtCuHampqkfx8mLnTkqXJjwcBwdSUnKyqFQpJk/m4kV++YUKFThzRqsN2Av6+m849JmRwYYNPHig7WRCCCHeQBqwFwrYe339WREFmZf+8Gjc9rvgmGtP3rkm8+7JTT+7ObSeFH0vW1GgzuChrQvlQqVCCJF/vegOjh/HwYFvv1Wx/ShUiBkzuHuXH37QsIwiRQgIYPVqSpZk2zYsLVm5UvUoTk5ER1OnDomJ2Nqye3cO1xkbM2oUFy5w7RomJqrnVcP8+XTtirk5ixap9x6dEEKInJN7wP7fs1OB3Zt/telaZjag0DepbufkZN+gVtVKFcqVLFrIwKCAXvazx48zHty+fuVyyumjsX/tP5h4/VFWNqBTzGnyti1jbT+QBkzuARNCfLweP8bPj6lTefaMqlVZtIgWLfKsmBs3GDyYiAgAFxcWLlS9I7p/Hzc3wsPR02PWLIYO1aSeO3fYv5927ShQQJMw/3LpEr16cfAggKUlM2bQrp1WEwghxJt9mveAkS1eepQcNLB+MR2V5nDoFK7dd/7hu1l5XfsrrK2tgS5duuR1IUIIoaYjR7KtrbMhW6HI9vTMvndPg1gXLmSvWpX97Jl6q7OyshcsyC5UKBuyzcyyd+xQPcTz59k+PtmQDdmenmpXkp2dPWxYNmRXrZr9++/ZWVr/9054eHa1aso6W7XKPnJE2wmEEOJ1L/qu4ODgvC4kV8kRxFcZ1vJYHHcqOmi8W5NqRfX+uw9T6BWp4vj590v3nUwIGWJdVPXhiUIIId6mfn0OHmTSJPT1CQzE0pJjx9SN5etLnz44OnL2rBqrFQq+/JKEBBo14tIlWrfmm2948u5T6q/Q1cXPj1WrMDAgMJCOHbl7V41KgMGDqVuX8+f5/HPs7dmzR70wb9G5M0lJzJhBsWJERWFjw+DBOb/QTAghRA7JEcS3eXY35Vhc/PFT5y6m3rj994OMp8/RNyxkbGxctJRZ9Ro1alrWt6xc7MMcuiFHEIUQ+UZiIgMHEhODvz/ffadWiLg4evbk4kWMjZk5k0GD1Kvk+XN++YXx43n6lDp1CA6mQQMVQ0RH060bN25gbk54ODVrqlFGVhZr1vDdd1y4ANCqFb/8Qr16akR6u9u3mTyZBQt49owFC/jyS61GF0KIlz7NI4jSgOVD0oAJIfKTzEwOHsTWVoMXn+7dY9gwgoMBunUjMJCSJdWLFBuLuzunTqGvz/ffM348OiodJblyha5dOXwYExNCQ2nZUr0yHj1i5kz8/bl/Hz09Bg1i1iwKFlQv2FucPs3GjfTvT/HiWo0rhBAvfZoNmBxBFEII8UHT1cXRUbOxE0WKsGIFoaEUL866dVhasmmTepFsbUlIYPhwnj9n0iRat+byZVXWV6jA7t1068adO7Rrx5w56pVhZMTYsZw9y9ChKBQsXMiWLepFejsLC0aNku5LCCG0ThowIYQQH5+kJPr1Y+dOVda4uJCQQJMm3LhB587MmKFeakNDZs9m82bKl2fnTurWVW6t5ZSxMatXM2YMmZl4ezN0KM+eqVdJ6dLMm0diIgsW0L69ejFUdP48w4axa1euJBNCiPxJGjAhhBAfn82bWbGCli1p144jR3K8rFIldu5k6lT09Ni3T5MC2rblyBG6dCE9HQ8PXF25cyfHi3V0mDqVkBAMDJg/n+rVmTGDv/9WrxILC778UtuD6d9m0yZ++40WLWjdWvXbsoUQQoA0YEIIIT5G3t5Mm0axYmzdio0N7u7KoRTvpqvLmDGkphIaqmENpUqxfj1BQRgbExaGlZWKO0N9+rB7N3XqcOkS331HxYoMHcrp0xpW9cKBAzg7s2KF2rtrb/Hll0yZQvHiREXRqBFdu3L8uFYTCCFE/icNmBBCiI+Pvj6+vpw7h48PBQoQEoKFBV5e3LiRs/WlSmFgoJVKPDw4fhwnJy5fpmVLvL1VGVJvb09iIvv20akTjx4xfz41a9K6NRERaDYia/9+IiLo1w8LC377jYwMTYK94sXskYsX8fOjcGE2bMDKCldXbfWNQgjxKZAGTAghxMfKxAQ/P06exN2dzEwCA6lRg4MH1Yp19y4//qjefk7lyuzahZ8f+vrMmYONjSqnIgEnJyIiOHWK4cMxMiIqCmdnatZk9mwePVKjHmD0aIKCqF2bCxcYNowqVfDz49499YL9S+HC+Phw5gze3ujrExaGpSWrV2spuhBC5HPSgAkhhPi4VarEihXEx9O+PenpOT6L+JoNGxg/ngYNGDSIq1dVXa2nh48P+/Zhbk5SEo0bM2mSivtO5ubMnk1qKrNmYWbG6dOMGEH58nh7qzhpUVnPi625tWuxteXGDcaMoVIlxo1T+xbofyldmlmzOHOGQYNQKLQXVwgh8jlpwIQQQuQH9esTGcn9+/Turdb63r0ZMQJdXZYswcKCiRN5+FDVGHZ2JCTg5cWTJ0ycSO3arFunYoiiRfH25vx5wsNxcCA9nTlzqF4dV1eio1WtR0eHbt2IiWHbNpo35+5dpkzhhx9UDfOfKlZk0SKePFH7hmshhPjUSAMmhBAi/zA2fv1Jdja7d3Pz5rtWFizIzJmcPo27O48eMWkSlSszezaZmSoVUKgQCxeyezf163PhAt2707IlSUkqxQBdXTp35sABDhzA1ZWsLMLCcHDAyopJk9Q4J9m6NTt3Eh3N0KHk0mWnWVn07Uvv3ixZQmpqrqQUQoiPgzRgQggh8rNdu2jenMqV+eorzp9/17dfHGfcuxd7e27dYsQIGjTg1ClVkzZpQnw8QUGUKsXOnTRogLc36emqV+/gwJ9/cu4c335L8eIcPcrEidSrh4UFvr7ExKg0q6NRI+bNw97+9ef37r2H84OPHxMRwZ9/MmgQFSpQvz4+Puzape2xjEII8fGRBkwIIUR+ZmNDt248ecKCBVhY8PnnOZiQ4eREdDS//06VKhw/rt54CR0dPDw4eZLhw8nKYs4catYkMJCsLNVjmZkxfTppaezbx/DhlCvHmTP4+2NvT6VKeHkREaFJY1OnDiVL0rIlv/2mvc0qIyNOnGDBArp0wdiYY8eYPp0WLShRgu7dSU7WUhohhPj4SAMmhBAiPytalLVrOX2a4cPR1+ePP2jQQDl38L8oFPTuzYkTbNzIqFFqZzcxYfZsYmNxdOT6dby8sLdXd06jri5OTsyezZUr7NuHjw/Vq3P5MoGBODtTtiweHkREqDIFX6lNG3R12bmTYcOoWJHGjZk+nbNn1SryVaamfPkl69dz+zY7dvDtt9Sty/37rFtHSIjG0YUQ4mMlDZgQQoj8r1o1Zs/mzBlGjcLYWHlPcZ8+71pWsCAdO2Jo+PrzGzd4/Djn2Rs0YN8+QkOpWJG4OBwd8fDIwWtpb6Ojg5MTfn6cPk1MDD4+mJtz5w7BwTg7U6YMbm5s2ZLz04lLlnDjBsHBdO+OoSEHDypD1q/PgQPqFvmqAgVo0YLp0zl2jMuXWbsWH5/Xv3P5MitWqDvCUgghPibSgAkhhPhUVKjAL79w6RI//kjZsuq++HTmDBUqUKECo0Zx4kQOFykUuLhw4gQTJqCvT3AwNWowezbPn6tVw/8HtbVVdmLHjzNpEvXrk57OypW0b4+lJYsW5XAWfrFiuLmxZg1paaxZg5sbxYpx7BjbtmlQ3htVqEC3bhQt+vpzX1/69aNKFWrXZvRooqLU2MoTQoiPgiJblfd3xUfBxsYmPj6+S5cu69evz+tahBAi37l7l/btX54jbNIET0969MDAIIcBTp7E21vZ29Svz7RptGuHQqGl8s6dIzSUBQuUt4eVKsWXX/LVV5Qtq1KYp09JTMTSkgIF/vH8wAGWLqVuXRo2pEEDChXSUtnx8UybRlTUy7a4UCFatqRdO7p2pVw5LaURQnxY3N3dQ0JCgoOD3XJpQusHQXbAhBBCCFUUK0Z0NHFxeHpSuDB79+LmhqkpI0fmcF5izZps3cratVSpwtGjdOiAjQ1hYWrN5/i3atUYM4YLFwgPp3Fj0tL48UcqVcLVlZiYnIcpUABr69e7L2D5cpYuZeRIPvuMokWxtOSLL5g7l+hoFS+efo21NWFhpKWxZw9jxmBlxaNHhIfz1Vc0bqxBXCGE+OBIAyaEEEIA3LlDz54sXpyzb9vYEBBAaioBATRsyJ07zJpF/frcuJHDdN26kZTEr79SvjwJCbi6Urs2y5ZpaU67jg6dO/PXX8TF4e6uvEnM3h4nJ8LCVL3c7FXTpxMYyODBNGiAjg5JSQQFMXw4Dg5UrqzWqP1X6enRpAlTp5KQQGoqS5bQq1du3VwmhBC5RI4g5kNyBFEIIdQQE6O8I8vZmcWLKVVKlcXx8SxaRHo6y5ZRsKBKeZ8+5Y8/mDKF06cBzMwYNYrBgzEyUinMf0pJISCAgADlAb/q1Rk2TPMcT55w9CiHDxMXR1wcenrs26fVsoUQ+Z0cQRRCCCE+XXZ2/PEHxYsTHk7dukRGqrLY2poFC1i1StXuCyhQAA8PTpwgPBxray5dYsQIKldm4kT+/lvVYG9RpQp+fly4wIwZmJlx9iwjRlCpEuPGcf262lELFsTOjiFDWLJE2Ym91n1lZNCoEU2aMHMmFy9q+kO89OOPVK/OokWazTARQoi8IQ2YEEIIodSrF8nJtGvHjRt07IiHBw8f5lLqF2cG4+IID6dRI9LSmDSJSpXw9ubaNS3lKFqUb77h3Dn++AN7e27dYsoUqlfnxx959EhLOf7h2TNSUti3j1GjqFIFOzv8/bVxw1haGufO4emJpSVr1uR84L4QQnwIpAETQgghXipblshIZs2iYEGCg2nYkPh4dWNlZFC5Mk5OOd9lUijo3JnoaPbto1Mn7t9nzhyqVMHLSznUUAv09OjVi4MHOXCALl14+JDx46lZk1WrtN7JFCnC+fOEhtKrF8bGxMbi64u5OVZWTJmiQXM7ezahoZibc+oUPXtib8/OndqsWwgh3idpwIQQQoh/UCjw9ubgQerU4eRJHB25dEmtQDo66Otz4AD29hw7ptJSJyciIoiOxtmZp08JDKR6dYYOJS1NrUreyMGB9es5eJBGjbh8mb59sbNj/37tJQAoVAgXF/74g5s3Wb8ed3eKFePoUcaNY9UqdYO+uFUtKYn58ylXjthYWrakfXuOHNFm6UII8X5IAyaEEEK8gZUVsbGMGoWNzRvuDc6RggU5eJCmTbl0CUdHNmxQNUCjRmzYwNGj9OlDZibz52Nujr8/jx+rVc8b2dvz11+EhmJmRlwcTZrg6kpKivYSKBkY0KULK1Zw4waRkUyeTI8er38nI4ObN3McUV+fIUM4c4affqJoUbZswc4u51djCyFEXpEGTAghhHgzQ0N++YX9+9VtwIASJdi6FQ8PHjygRw/8/dWIUbcuK1eSlISLC+npylN8gYFaujeM/20onTjBhAkYGBAWRp06+Ppy756WEvxDgQK0b88PP2Bi8vpHHTtSpgz16+Pry549ORuxUagQY8dy7hyjR+PkpOLwSiGEyAPSgAkhhBDvU8GCBAUxaxbZ2fj6Mniweld91ahBaCg7dtCgAVeu4OWFvT1792qvTiMjJk7k9Gnc3Xn8GH9/atUiMFCTS8NU1aIFhQtz7Bj+/jRrRsmSuLiwdGkOxpCUKMHPP7NzJyVLvv5RcjJ37ryfeoUQQh3SgAkhhBAqyMpi4UJiYlRc5u3N779jaMjixfTsqXb2Fi2IiyM0lEqViIujaVM6d+bcObXj/UuFCqxYwaFDODpy9SpeXtjZabXP+y/jxnHrFjt28M031K5NejqrVzNwIKamjBqlVsT4eOrUoWxZ2rVjyRJu39ZyxUIIoTppwIQQQggVHD3KkCE4OjJxoorXULm6sns35csrb1xWl44OLi4kJ+PnR+HCbNxIrVp4eWl1PoetLfv2ERJCxYrEx9O0KS4unD+vvQRvVaAALVowYwZJSVy4wIIFdO6MkdGbj0MeOMDp0/85u7FaNTp1Ati6lUGDKFuWtm1ZvFg6MSFEHpIGTAghhFCBlRW+vmRlMWkSTZuqOK7Czo4zZzh8WPMyjIzw8eHkSTw9ycoiMJCaNfH358kTzWMDoFDQty8nTzJpEoUKsXo1tWrh7a3KlAxNVarEl18SHs6DByxe/Pqn27bh5ESNGhQvTqtWjBnD2rX/GtZftCgREVy7xuLFtG2LQsG2bQweTNmydOzI3bu59aMIIcRL0oAJIYQQKlAomDaNqKqNKakAACAASURBVCgqVOCvv6hfn8BAVdYbGWFkpK1iypcnIIBjx+jQgTt38PWlbl3CwrQVHoyMGD+eU6fo14/nz5kzh2rVmDDhPc3nUIm1Na6umJqSns6OHfj50aMHZmZUqMDChf/8aokSDBzIli1cv86SJbRrh0JBZCRnzuRN6UKIT5s0YEIIIYTKmjcnMZHPP+f+fby8cHHRYNBDdjZXrmhSTO3abNpERAS1anHmDK6uODqyebMmIf/J1JTly0lMxMWFhw+ZPJmqVfH3JyNDezlUVrIkf/7JlSukprJ+PWPH0rYtJiakpjJkCLt2vWmNiQkDBrB5M9evk5iIre3rX9i1i7VrSU9//+ULIT5d0oAJIYQQ6ihalFWrWLwYY2NWr8bGRt23sKZNo2JFGjUiNFTFt8r+oVMnjh3jt98oU4a//qJDB2xsWLdOe9Pqa9UiNJToaJo35/ZtfH2xsCAwUJOataJ8ebp04aef2LKF27dZswZPT6yt/3ONiQl16rz+MDubDh3o0YNSpWjRgp9/llvFhBDvgzRgQgghhPoGDiQ+Hltbrl5V95UiGxtKluTQIXr1onp1fvlF7QN+enp89RXnzjFrFqamxMfTvTv16rFihfa6JHt7du5k+3asrZXj8F+cevyvURi5qnt3AgLUurpNoSAggKZNyc5m1y6+/ZbatalWja+/ZuvW3BzHL4TI36QBE0IIITRibs7Bg1y9irm5WuvbtuXKFYKCqF2bixf55hsqVMDLS+1hiYUK4e3N+fMEBVG9OklJ9OuHhQWzZ2tvREerVspx+ObmnDyJqyuNGrFjh5aia19mZs5+dg8Pdu8mLY0//sDdnVKlOH+eefNo145x4957lUKIT4M0YEIIIYSmdHQoUUKD9QUL4uHB8eNs3EiLFty/T2AgtWszZ47aIQsUwMOD5GSCgqhRg5QURoxQtmHaeXVLocDFhaQkAgIoX56YGFq1onVrrcx41LpOnShblgULcnYgs1gxevVixQquXyc6mnHjaNIER8f3XqUQ4tMgDZgQQgjxXuzYQWysKgt0dOjYkR07SEjAwwNdXa5d07AGfX1lGxYejrU1ly4xYgSVKzNxopYGGerr4+nJ6dNMnUqxYkRFYWtLly4sX86NG9pIoB3Vq3P3Ll99haMjx47leJmODo0a8eOP7NmjvE/sVdu2MWoUO3fK6UQhhEqkARNCCCG07+FD2rTB3p7+/VXvRKysCAri4UOmTdNKMTo6dO5MbCxr12Jtzc2bTJpEtWpMmaKlq7AKFWLMGM6d47vvMDAgPJz+/SlXDltbxo/n4ME8b1HmziU8HDMzDh7ExgZvbx480DjonDnMnEnLlpiaMmwYe/dqb+CJECI/kwZMCCGE0L5ChfjpJwoUYPlyatZk7lzVexA9vTc8/PprrK0ZP56jR1UtSUeHbt04fJhNm3Bw4NYtxo2jbFk6d2b5cv7+W9V4/2Jigr8/KSn89hsdOmBoSFwcP/5I48aULYubG6tWceuWxmnU1Lkzycn4+JCdzZw51KzJunWaRVywgLFjMTfnxg1++42mTalYEW9vIiN59Eg7RQsh8iNF9gcztkhoi42NTXx8fJcuXdavX5/XtQghxCft3Dm8vdm0CaB+febNw8lJs4jt2rF1q/Kvzc3p0YMePWjYUI1Iu3bh709UlLIz1NenRQt69KBrV0qV0qzIFx4/Zv9+oqKIiCA5WflQR4cGDWjVik6dcHBAJw9+ERwbi5cXCQkAffsSEqJxxPh4QkMJDSUlRfmkfXsiIzWOK0T+5+7uHhISEhwc7Obmlte15B7ZARNCCCHel2rV2LiR9eupXJmjR2nShC++UPe6sBc2bSIqii+/pEwZzpzBzw9bW6pU4ZtvuHRJpUjNm7NlCzdvEhREp04oFGzdiqcnZcvi5MTs2Vy9qkGdgIEBrVrh50dSEqdOMXMmrVujr8/hw/j789lnlC9P//6EheXyxce2tsTE8MsvmJhw+bI2Ilpb4+fH+fPExODrS7NmtGnz+neePGHOHEJC1B5uKYTIN2QHLB+SHTAhhPjQZGQwbRozZvD4MT16sHq1xhGzsti/n9WrWbeOK1cA+vRh5Uq14/39NxERhIWxfbtyYruODo0b07kzPXpQvbrGBb/w8CE7drB5M5GRLztGPT2cnOjQgQ4d3nA/8vuUmYmu7htqLFRI25k2b6ZDB+Vfm5hgZ4e9PW3a4OCg7UxCfEw+zR0wacDyIWnAhBDiw3TuHH5+dOxI167aC5qdzcGDbN2KszPW1prHS09n40bWrGHLFuXAeoUCOzs6dsTWFltbzQbuvyopichIIiPZv//lRdGVKik7sRYtMDLSUiYVzJ/PsGE4OdG/Pz17UriwluI+e8a8eezbx6FD/9hbrFWLwYP5+us3v/InRH4nDZjIJ6QBE0IIAbBzJ3FxeHhQtqwaqx88IDKSNWvYtImHD18+r1JF2Yk1bIi1NUWKaFznw4fs3MnGjWzaRGqq8qGBAU5OtGqFszO1ammcI6ciIujbl/v3AQoVomdP+venSRMUCu3luHKFQ4fYv58//1TeNLBxIx07ai+BEB8NacBEPiENmBBCfFyioqhRg4oVtR33s8/Yv5+CBenTh9Gj1T7dl5HB1q3s3UtsLAkJ/2jGdHSoUYOGDZX9mJUVhoYaFJyVRXw8kZFs2kRc3Mup7jVr4uyMtzfly2sQPacePGDNGpYtY+9eXvxXUrVq9OvHoEGUK6fVTM+fs2kTR48yevR7OPUoxEdAGjCRT0gDJoQQH5G4OGxt0dfH3Z0xY7T3thWQlMTEiaxbR2YmCgXt2jF6NC1bahIyM5PkZOLiiIsjNpajR3n69OWnenpYWuLoSPfuNG36hterVHDzJlu2EBnJtm3KGflGRowcyXffaWPTLUfOnSMoiKAg5dtqDRoQH58ribOzWbSI4sVxdqZgwVxJKUTe+DQbMJmCKIQQQuQlS0v69SM7m6VLqVkTNzeSkrQUuk4dwsI4fZqvv6ZQITZvplUrGjQgJETtK4N1dalbl/79+e03YmK4f5/YWObPZ8AA6tYlO5sjR/jtN1q2pHx5vvySHTvUvYS5dGk8PPjjD27eZM8eevQgI4MpU6henXnzePZMvfpVUq0akyeTksL27QwcSL9+uZATgAsX8PLC1ZUKFRg5Unv/hxBCfBCkARNCCCHykoEBy5dz5gzDh6Ovz8qV1K1L587ExmopQdWqzJnDxYtMnUq5chw5grs7K1ZoJXaBAjRsyJAhLFnCsWOkp7NvH2PHYmHBzZsEBNCqFeXK4eVFVNTLQRuq0dOjSRNWr+bgQZo2JS2Nr7/G3JwVK8iVUzw6OrRqxeLFeHu//tGtW/z++3u4XLpKFRYtwsqKW7eYNQtLS2xsmDxZeXmZEOIjJw2YEEIIkfcqV2b2bE6fZtgwDAzYuBF7e776SnsJTEwYM4aUFJYupW9fjS+EfrNChXBy4qefOHWKxEQmTKBWLdLSCAykdWvKlMHDg4gIdbev7OzYvZvt26lbl4sX6dcPe3t279buj6CSqVPp0wdTU3r2ZNMmdff63mjQIBISiItjyBCKFiU+ngkTsLamalXOn9deGiFEHpAGTAghhPhQVKzI3LmcP88331CoEEePajtBwYL0709IiFZfNXuzOnWYOJHkZGUnVrs2d+4QHIyz88tO7NX3x3KqVSuOHCEoiHLliI2leXNat+bYMe3/ADkweDCdOpGVxZo1dOqEmRm+vly4oL0ENjbMn8/162zciKcn5ctz6ZJmN3kLIfKeNGBCCCHEh6VsWWbM4NatXNzduXmTkSPZv/99xH7RiSUlcfw448dTuzZ//63sxMqVU14fffu2KhF1dPDw4OxZ/PwoWpSoKBo0wNWVixffR/3/oVYtIiK4dAl/f2rW5OpV/P2xsODLL7l5U3tpDAzo2JGAAK5c4e5d7O1f/8Lq1cyaxblz2ksphHiPpAETQgghPkQFC6Kv//rDtLSXF2Vp09atzJpFkyZ8/jmXL7+HBACWlkyaRFIS584xaxaOjty5w++/4+ZG6dI0bMjEiRw+nOMXu4yM8PHh3Dl8fNDXJyyM2rXx9SU9/T3V/zblyvHdd5w4wYEDuLuTlUVAgFaPj/4/hQJj4zc89/Rk5EiqV6dOHcaNk6EdQnzgpAETQgghPhqOjlStyujR3L2r1biff86ECRgY8Mcf1KzJpElkZGg1wT9UrYq3N/v3c/48AQF06oS+PocPM2kSDRtStiweHoSFce9eDmKVKIGfH8eOKcck+vtjbs7IkURH586Ijlc5OLBiBYmJfPklgwfnYuLVq/n8c4oVIzmZKVOwtMTKiunTlePzhRAfGGnAhBBCiI9Gz548f86vv2Juzvz56s4V/Dc9PSZO5MwZ3N3JyGDixNwZM1ilCp6eRERw5w7btzN8OBUqcPMmwcG4ulKmDK1b4+/PyZPvCmRhwerVHDiAkxNpacyahYMDlSvz7bfamyaZUzVrsmABbdvmYsoWLVi1irQ0duzAywsTE44exceHKlVYujQX6xBC5Ig0YEIIIcRHY+pU4uJo2pRbtxg6FEtLNm7UXnRTU1asYM8eGjQgNZV+/WjalKtXtZfgrYyMaNWK2bO5dInDh/nxR+ztefqUqCh8falVi1q1GDCAhQuJj3/7EMXGjdm3j0OHGDWKihW5dImff8bOjqpV8fXN2xnu2dl89x0//vg+D0jq6dGiBQsXcu0a4eF8/jklS1KgwHvLJ4RQkyI71zfoxftmY2MTHx/fpUuX9evX53UtQggh3ou1a/nuO+XYhQ4dmDkTCwvtRc/KYulSxo7l5k3mzWPoUO2FVkFaGps3s2kT27b948iloSENGmBri50dtraYm79lfVISwcEEB7/sIStXxtkZF5f3NIX/P6SnU6YMT55gYsI33/D1129+mSs3nD/P+fM0bfqGVwyFyHXu7u4hISHBwcFubm55XUvukQYsH5IGTAghPgVPnjBnDlOmkJ6OqSlXrmg7QXo6u3bRti2GhtoOrZrnz4mPJyaGmBhiYzl16h9HI01MXjZjdnaUKfPPxVlZ7N/Pn3+yZg03bigf1qqFqyuurtSunWs/xcGDjBmjnGxZqhS+vgwZkhd/tPb2xMRQogStW1OkCEWKYGhIoUIUKYKdHTY2b1iSmYmubq4XKj4J0oCJfEIaMCGE+HTcvIm/PyVK8P33eV1KbklPJzZW2YzFxLx+RrJqVcaN44svUCj+uSwzkz17CA1lzRpu3VI+tLCgc2c6duSzz9DTy4Xid+xg/Hj++gugQgWmTqVvX3Ry842Q1auZPJnjx9/wUZEibzgiaWdHcjJdutC3L23a5M6fkvh0SAMm8glpwIQQQrwviYn4+dG3L+3b53UpSqmpys2xmBji4pSzE1u0ICDgLddNP3/Ozp2EhrJ+/csLyIoVo107OnWifXtMTN53zZGRjB/P4cMAzs5s2PC+E/5LUhLx8WRkcPcujx/z6BHp6Vhbv2F6Y6dOREYq9xxLl6ZXL/r2fcNdZEKoRRowkU9IAyaEEGL/ftLTad9e27srs2YxciRA8+b4+2Nrq9XomsrK4vffGTmStDQMDRk/ntGj3/6uU1YWCQlERLBxI/Hxyh5DVxcrKzp1onPnN5/H016pq1YxdizVqrFz5/vLow0XL7JyJStXkpysfGJuTt++jBhB0aJ5Wpn46H2aDZhMQRRCCCHyoa5d6dSJ+vX580+ysrQXd9gwfvmFEiXYtQt7e1xdOXNGe9E1paND376cOoWnJ48fM2YMDRty6NDbv21jw8SJxMW9vJJMT+/llWRVq+LlRUQET568j1Ld3Lh48YPvvoBKlfj+e+Wm2ahRlC/PmTNMnMjcuXldmRAfJWnAhBBCiHxo/nzMzEhMpHdvLC1ZuZLMTG3E1dNj1CguXMDPD2NjwsKoUwcvL65d00Z07ShenIAAdu2iRg2OHcPBAS8v7t//zzWVKyuvJEtLY/VqvviC0qVJSSEwEGdnSpfGzY2ICJ4+zYX6nz3T0t8srWvQgF9+4dIltm9n7Fg+pS0LIbRIGjAhhBAiH3J15exZgoIwN+fECdzcMDcnMFBLdzcbG+Pjw4kTDBpEVhaBgVhYsG+fNkJrTdOmJCQwYQJ6egQGUqsWOTqYX7gwPXqwbBnXrhEdzfffU78+9+6xciXOzpQty6BBREW9vw4pM5OaNbGwIDT0fd+DrS5dXVq14qefqFz59Y+mT6d7d+bOzcHl2UJ8uqQBE0IIIfInfX08PEhKYulSqlcnJQUvL6ys3rUXlHOmpixaxPHjdOnCw4ekpmoprtYYGjJxIrGx2NmRmkq3bri6cvNmzhbr6NCoEVOmcOQIKSlMm0b9+vz9N0uW0Lo1pqZ8/TUHDmi9SdLRoVw5zp+nVy8cHYmO1m7492z1atatY/hwatXCzIyBA/nzz5czJ4UQgDRgQgghRP6mr0///pw4wYoV1KjB1as8fqzVBC+2lu7fp3dvrcbVmnr1OHCAWbOURyZr1CAwUMW+qXJlfH05coTz5/Hzo2ZNbtxg3jycnDAzw9ub/fu11YkpFOzZw6JFlCtHdDSOjvTqxdmzWon9/m3ZwvLl9O1LmTJcvszSpfTuTZkyNGxIWFheFyfEh0IaMCGEECL/09PD3Z3kZK5epVSp95CgUKHXnzx9SufOdOrE/PlcvPgeUqpATw9vb44do21b7t7Fy4tmzTh1SvVAVaooz14mJjJhAtWrc+UKc+bw2WdUrYq3N/Hxmlerq8ugQZw+zQ8/YGhIaCg1atCmDZGRmsd+z0xM6NePkBCuXSMhgenTad2aAgU4fJiFC/O6OCE+FDKGPh+SMfRCCCFy7uRJxo/Hzo6ePd/wUo/67t6lUiXltVyApSUdO9KhAw4OeXuZb3Awo0Zx6xZGRvTrx4ABNGyobqzsbKKj+eMPwsK4fl350MyMxo2xt8feHmtrDAw0qTY1lcmTCQnh0SMKFODRI3R1NYmXFzIyOHyYatUoV+4fz9PSmDuX2rVp1YqSJfOoOJHHPs0x9NKA5UPSgAkhhMi5RYvw9FT+ta0tLi707EmVKtoInZbGxo1ERrJt28tOrHhx2rVj6lStdnuquXWLkSNZuVJ5bLBePQYOpG9fSpRQN2JmJrt388cfrF3LnTsvn+vr06AB9vY0aoS9PdWqqRc+PZ3QUAwMcHdXt8IPUGAgXl4AOjpYW9OmDa1b4+BAgQJ5XZnIPdKAiXxCGjAhhBA5l5lJeDhhYURE8OCB8mHDhri40Ls3ZmbayPHsGfv2ERnJxo3Kk39+fvj4aCO0+pKTWbyYkBDS0gAKFqRLFwYOpFUrzW6vPn+e/fs5fJjDh4mJ4dmzlx8VLYqtLY6O2Njg6IiJiYY/QloaS5fStCmNGmkYKS88esTChWzZwr59L19MNDamWTPl3wmFIk/rE7lBGjCRT0gDJoQQQg0ZGWzZQlgYGzcqJyUaG3P9+hte79LIuXPExtKpE8bG/3h+7RrJyTg4YGio1Xzv8PQpW7cSHMy6dcoZ/aamuLnh6UnVqhpHv3+fuDiiozl0iEOHuHHj5Uc6Ojg6MmgQLi5q/8izZzNiBIClJYMG4eamwSZeHsrIYO9etm1j2zYSE5UP4+Np0CBPyxK5QRowkU9IAyaEEEITjx+zZQtr16Kry5Ilr28HZWSgp4e+vrazdujA5s0YGdGyJR070rEjFSpoO8d/uXqV4GAWL1aOHNTRoXFjPDxwc8PISEs5UlI4eFDZjMXHK691Ll4cNzcGD6ZuXVXjpaczbRpBQcoX0AoWpFcvpk2jfHktFZz7rl5l2zblIdHXXnf7+28UCooVy6PKxHshDZjIJ6QBE0II8Z7cvEn16jx9SoMG2Npia4udHRYW2jgsFh7OTz9x+DBZWconVlZ07EinTtjZaXYoUAXZ2ezezdKlrFlDRgZA8eL07cuAAdrej3n8mIgIAgOJilI+sbHB05M+fV7fG3yXZ8/YtInFi9myhcxMihRh8mSGDfsIx3X8h6dPKVuW+/dp1owePejalbJl87omoQWfZgMmY+iFEEIIkVNGRtSpw9OnHDzI3Ll4eFCzJsWL07o1Y8dy5YoGoZ2diYkhNZUlS+jeHWNjjhxhyhQaN6ZrV639AO+iUNC8OcHBXL3K/Pk0bMjffzNvHtbW2Ngwfz5372opk4EBLi5s305yMj4+lCjB4cN4eWFqipeXSuPs9fXp2pWNGzl7lq5duXePESP45hst1fmB0NenbVsUCqKiGDIEU1M++4xZs/L8hgMh1CANmBBCCCFyytiY6Gj+/puoKKZOpVs3TE1JT1f+Tz8/jROULcuAAaxZw61bbNvG8OHUqpXLZxFfKFaMIUOIjeXoUYYPx8SE+HiGDqV8eTw82LNHWxcvQ61a+PmRmkpoKK1acf8+gYHY2FCnDv7+/P13ziNVrsy6dUREYGODpaWWyvtAKBT8/jvXr7N8OZ07U6AA+/czciRVqmBnx9GjeV2fECqQI4j5kBxBFEIIkZuuXlU2Kn37vj5o/elTLl2ievU8qkx7njwhPJwVK9i8mcxMgIoV6dOHr77S0qDI/5eczKJFBAdz+zaAsTG9e/PFFzRunGvnMD8C9+8TGcmaNWzezIMH/PorI0fmdU1CHXIEUQghhBBCZeXL06UL48e/4ZqrESMwN8fcnLFjtbpLsWULq1drbxPq3QoWxMWFiAguXMDPj8qVuXwZf3+qVKF1a8LC/jFtXiO1azNzJleusHIlzZrx8CGLF+PkRPnyeHqyadPLie2fssKF6dWL0FBu3uTQIb7++vUv3LnDyZN5UZkQ7yYNmBBCCCHel+bNKVuWs2eZOhUrK2rWZPz4l5PG1de7Ny4u2Nmxe7fmRaqkQgV8fDh3ju3bcXFBT4+oKFxdMTPD21sbP9oLBgb06cOuXZw8iY8P1apx4waLFtGpE6VK4eJCSIhKpxP37sXUlDFjePRISxV+IAwNsbNDT+/15127UqsW1arh40NMTG726kK8kzRgQgjxf+zdd1yV5f/H8dfhADJERNyCAxMnKuDMnXtn7lLLLM2sr9nS6ldqO9u2TMvce5QrFffEAbgXKi6We4IKnPP7w1MkYaLAOXB4Px/nwQPucd2fGzhw3ue67usWkezSvTtnzrBmDS+8QJEiHD7MBx8QEEDVqsyYkYl2J07Ex4edO2nWjM6drd/X4eBAixbMmcPp03z+OZUqERfH2LFUr07HjuzalXVH8vfn0085epRjx/jmGxo04MYN5s2jb1+KFKFhQz77jMjI+zaTmEhcHJ9+SpUqLFqUdeXlWL17U6IEx48zZgx161K2LK++yubNqXNsitiOApiIiIhkI6ORZs346SdiYwkJ4bnn8PbmwAG+/DITjT7xBIcP8+mnFCjAokUEBDBo0F23ObaWokV5/XUOHmTTJvr3x82NJUsICqJXLw4fztIj+fkxdCibNhEXx+TJdOiA0cjmzYwYgb8/VasyYgSbNt2rq6d1a0JDCQri5Ek6d6ZzZ8vtzuzW4MGcOcPGjQwdiq8vp07x9dc0bIivb+aiv0gWUAATERERazAaadGCCROIjWXVKubOTbtBcjLr13P+fMaac3Nj+HCOHGHQIIDx4/H3Z9y4rK054xo0YOJETp5k+HBcXJg9mypV6NGDY8ey+khFi9KvH4sXEx/P9Ol0746HBwcO8NlnNGqEvz8jR3LkyL/3q12b7dsZOxZPTxYtokIFPD0JDGTBgqyuMIdwcKBhQ8tU9Vu38vrrlCtHTAzLltm6MsnrFMBERETEqpycaN4cP7+0yydPpmlTihe3DKzbvz8DbRUrxrhx7N5N+/Zcvco772RDvQ/A25tPP+XECYYPx8mJuXOpXJlBg4iNzYaDFSzIk08yZw7nzrFsGQMHWq63e/99Klakbl3GjuXs2X/uYTTy8sscPEjfvnh6cvUqu3axYkXahs+epUcPnn2WDz9kxgxCQ9M0k9sYDNSrx+efc/w4Bw4wfnzaDRIT2b496+ZREbkPTUNvhzQNvYiI5EZRUQwZwpo13LplWVKuHB060LEjjRuTL9/99t+0iXz5qF07m8vMqJMn+fhjfv2VlBTc3HjuOd55h6JFs/OQJhNbtjB3LtOnW2axNxqpV49+/XjySfLnT7P5hQucOUOlSmm/t6tW0bJl2rbz58fPz9LBZm83GRs2jG++oVAhOnemWzdatMDZ2dY15RWahl5ERETEZsqVY9kyzp9nwQKefZZixYiK4rvvaNWKMmUsgeK/NGyYTvrauZMnnuDbb4mJyZ6q76lMGX7+mb176d6dxETGjqV8eUaM4MqVbDvknUF3335LdDSLFtG9u+U6sUGDKFqUHj1YvPif/Tze3tSokU6ybdGCTZv4+WeGD6d7d4KD8fLi+nX27GHevHSGLJ45w7BhfPIJCxZw/Xq2nV326diRatW4eJHffqN9e4oV4+mnWbw49Z0AkSylHjA7pB4wERGxAyYTO3eyeDFLlpCQQGgoXl53bXDwIPHxBAfj4XHvVsaMYfhwAAcHGjemVy+6dqVw4Wyt/N/27uWDDyyXvXl788Yb/O9/uLpm/4EvX2bRIqZOZfVqy/wchQrRrRt9+9KgAQZDxlu6dIljx4iNpXlz3NzuWvXNN6m3QXZ35/HH6dOHli0xGrPqNKzi0CHmzWPevNQ71hUowNChvP++Tcuyc3mzB0wBzA4pgImISF5QogRxcRiNVKlCnTrUq0edOlStevfr/uRkFi5k1iyWLbPcwtjJiRYt6NmTLl0oUMCaBa9fzzvvsHkzgI8Po0bRvz8O1hmNFBXF9OlMn546ZX+JEnh4WB6uruTPT4ECuLri7o6nJ66uuLlRsCCurpQoQXDwf6S1hARmzODwYUJD2bzZEvSKF6dXL559loAAq5xgFoqMZN485s8nLIxKlTh4MO0G589bvlGSaQpgYicUwEREJC8YO5bp09m1i9u385B/EQAAIABJREFUUxd6evL227z66r/uzXv1Kn/8waxZhIRYhuH5+WXDHIX3t2wZ//d/REQA1KzJ11/TtKkVD79zJ9OmMXs2cXEPsFfZsvTtS58++Pv/94YnTjBtWmrQy5ePs2etnHOzzqlTuLml7S89eZKKFUlKwt+fmjUJDCQwkJo1KVLERlXmbgpgYicUwEREJO+4dYuICLZtY/t2tm2zRKp33733wLELF1iwgHnzKFmS336zYqWpzGbmzGH4cE6eBOjShc8/p3x5K1aQksKZMyQmcuMGV66QmEhCApcvk5hIYiKXLnHzpuWTxET27rUUCtSrR58+9OqFt/d/H2HHDssNt7780lq9fNZx9SqdOrF16125H/Dx4dFH+eCD+2ZU+ae8GcAc77+JiIiISE6VLx/16lGvnuXLlSv56KP/nArR25vnn+f559NZFRPDgAGUK0fnzjRtmoGJFx+SwWAZAvnTT7z3HgsXsmQJgwczejQFC2bTMe9mNFKmzANsHxbGlClMn05oKKGhDB1Ks2b07Uu3bmkvCPtL7drp/xQSEvjySypWxM8PV1dcXfHywtUVF5eHOhHrK1CAdetISmL/fiIi2LWLiAh27+bMGebMwdeXL76wdYmS06kHzA6pB0xERORhbN5Mw4aWzz08aN2ajh1p1y5bJ+04f54PPuCHH0hJoVAh3nuPIUP+NX4yh7h5k5AQpk7l998twzgLFqRjR/r1o3nzDE7psXQpHTqks9zBgaJF+eEHnnjiruXJyWzeTEAAhQpl/gSyjdlMZCRbt9K+vfWneMnV8mYPmD11CYuIiIhkQoMGRETw3nsEBnLtGvPm8fTTFC9O48b8+CMmU3Ycs3Bhvv2WHTto0oSLF3nlFQICWLYsOw6VaS4udOzInDmcPs3XXxMUxOXLTJ1Ky5b4+/P++xw/ft82Wrfmq69o3ZrgYCpXpmxZvLxwdsZkIj6e8+fTbj9pkuX23K1aMW7cg125Zj0GA/7+PP10OunrxRfx9KRPHxYt0rz2cocCmIiIiNi533+ncWNWrMjApjVrMno04eGcOsUPP9C6NY6ObNzIkCGW6QuzR2Ag69axaBHly3PoEO3b07Il+/dn3wEzp1gxXnmFsDD27ePNN/Hx4ehRRo6kfHmqVGHYMJYvJyEh3V0dHS3rd+7kwAGiorh4kVu3SE7m8mUGDky7/WOP0aoVQEgIgwdTqhQNG/LVV5w4kb2nmGVcXbl6lenT6dzZcoexJUvSXj8meYwCmIiIiNi5nTvZuJE2bXjmGS5ezNg+vr68+CLLl3PuHLNm8dFH1K2bvVVCx44cPMg33+DpyapVBAYyaBDnzmX3YTOhalU++4yTJwkJoV8/PD0tJ9C2Ld7etGrFl1+yb19GWjIa058s0c+PFSuIi2PSJDp1wtmZzZt57TXKlaNp09zQpfTllxw9yiefEBjIlStMmULHjpbJ/UeOTGf7O9OfiF3TNWB2SNeAiYiI/FNyMj/8wDvvcOMGxYoxZgz9+mW60aQk+vfH2ZmePWnRImvvOnz2LO++y6+/kpKCtzcjRtC//33nHcwBUlLYtYtVq1i1inXrSE62LC9alCZNaNGCjh0pUSIzR7h+nT//ZMECli7FwYGTJ/H0zILCrSQykjlzmDePPXswmWjThj//vGuDCxd45BEuX8bTk5IlKVaMRx6hVStatcpV5/kA8uY1YApgdkgBTERE5N+OH2fgQFavBujQgZ9+wscnE81dvIiPj6WzomhRevSgd2/q18/gXBQZsWcPr75qKThfPrp25fnnadIkC4+Qnc6fJySEFStYuZLYWMtCo5FatWjVitatqVs3M5ON3L7NrVt4eKRdvmABxYpRv37Onvs+OZmzZylcGGfnu5bfuEGLFkREpO3ac3KiYUM+/jh1uk97kTcDWE7+3RQRERHJMn5+hIQwbhwFCrBkCdWr89lnmWiuUCH27WPUKCpW5OxZvv+eBg3w8+Oll5g50zJJYOZUr86qVfz5J+3akZTEjBk0a0alSnzxRc4el3hH4cL07s2kSURHs3s3Y8bQvDmOjmzbxgcf0LAhRYrQvTu//MLp0w/RvLNzOulr3z66dqVhQ3x8GDKE1atTO+FyFkdHSpZMm74Ad3e2buXmTc6fZ98+QkIYM4YmTTCbWbuWadNsUatkPfWA2SH1gImIiPyHM2cYPJglSzAYuHABL69MtxgezowZzJ7NmTOWJRMn0r9/pttNFRPD1KmMG2eZfMLZmc6dGTgw49O/5ww3brB+PStWsHw5R46kLq9aldatadOGRo0yc0ew5GRGjmTmTKKiLEu8vencmSeeoEWL7LuvW/a7fNlyj4Q0AxHj4wkJoWnTzHXm2lLe7AFTALNDCmAiIiL3FRrKtWu0bJl1LZpMhIayaRMnT/LWW2lfE2/axLx5BAdTrx4VKjz0EdasYfx4Fi609O34+vLkkwwZgq9vpuu3sqgoQkJYtYqQEC5ftix0daVBA1q0oEULgoMfuu3wcObPZ8ECDh2yLPHyYsMGqlXLdNk5yqBBjB8PULMmbdpQpw5BQQ92i21bUwATO6EAJiIi8nBiYnj/ferVo0cP3NyytOkePZg71/J5kSLUrUu7djz1VPpz/91PbCxTpvDzz5auHqORZs0YOJAnnsja2UCsIimJzZtZsYIVK9i1i79fmpYrR+vWtG5Nq1YP/cM4cCA1iW3cSK1aWVZ1jrBrF++/T0gI16+nLvT2JjiYtm155RXbVZZRCmBiJxTAREREHs6MGTz1FICnJ71789xzmemGuVtMDNOmsXUroaGptxPOn5/evRk2jMqVH6JJk4nly5kwgSVLLB1ilSrxww889lgW1Wx9cXGsXMny5YSEpN6V2c2Ndu3o1o327cmf36b15Ui3brFhA+vWERZGeLjlAkEHBy5ezPlzJyqAiZ1QABMREXk4KSlMm8aECal3XQ4M5LnneOqpLH0pe+IEGzYweTJr12I2U6kSBw9mpr3YWCZO5JdfOHECg4G+ffniC4oUyapybcFkIiyMFStYupRt2yzdYq6utGlDt2507JjOFBwPKC6OESPo3p327bOg3hzk9GnCw3FzSzu+1mymenVOnSIggLJlKVoUHx+KFbN8rFDBJp2nCmBiJxTAREREMungQX75hSlTLN0wbm4MGcKYMVl9mCNHmDyZypXJilefSUn8+KPldmdeXowcycsv5+zZ2DPozBmWLWPxYpYvt/T05ctHy5Z0707nzg+djH//nS5dAJ56im++oXDhrCs4x2rShA0b0l/VrBlr1li3GlAAE7uhACYiIpIlbt3ijz+YMIE1a/D25uxZax34wgW2bqV5c1xdH3TX48cZMoTlywEaNmTcOKpWzfoCbeP8eZYtY+7c1CRmNFKvHt2707s3RYs+UGNmM2PHWvJq0aJ89x09emRL1TnL2bPs20d0NHFxxMQQG0tMDPHxtG7N2LHWL0cBTOyEApiIiEjWOn0ao5GSJa11vBde4OefKViQfv0YNIgqVR60gcWLGTyY6GicnHj1VUaNyszs7jlPfDwLFjBvHuvXk5IC4ORE8+Z060aXLhQqlPGWTpzg+edZtQqgfXvGjcu9M7rnSnkzgNlBt7SIiIhI9vL1TSd9bd1Ky5aMGUN8fFYf79lnqV+fy5cZO5aqValfnzFjiIzMeAMdO7JvH//7HykpfPYZ1aqxYkVWF2lDxYoxeDCrVxMby88/07IlZjPLl/PccxQvTps2/PorFy9mpKWyZVm5kvHj8fRk6VKqV2fy5OyuXvI6BTARERGRh7FzJ6tWMXw4pUvTvTsrVmAyZVHTdeqwZQu7dzN4MAUKEBrK8OH4+1OtGtOnZ7CNggX59ls2bqRaNY4do00bevSw4ihK6yhShIEDWbmSuDh++YXWrTGbWbHCksTatmXixPsmMYOB559n/346dODSJZ55hu3brVO95FEKYCIiIiIP46WXWLqUxx/HZGLePNq0oXx5vvmGW7ey6ADVq/Pjj8TGsmABffvi5cX+/Xz//QO18eijRETwzTfkz8/cuVSsyLffZl1QzDm8vRkwgOXLOXuWyZPp0AGDgeXLGTCAokVp2JBvv/3v9FmqFIsXM2MGzz//cDcFEMkoBTARERGRh2Ew0K4dCxdy6hQffYSfHydOMGwY/v6EhGTdYdzc6NKFKVOIj2fjRmbPTrtBSgq7d3Pz5r0acHRk6FB276ZNGy5f5pVXaNqUsDCSkrKuyJzDy4t+/Vi8mLg4SxIzGtm8mVdeoWTJ+yax3r0ZPz7zU9yL/BcFMBEREZFMKVGCt98mMpLFi6lRg1On+OqrbDiMkxMNG1K6dNrl48ZRsyZFi9KzJ3Pm3CuJ+fnx55/MnEnx4mzcSK1auLlRvjytWvHCC4wZw/z5RERw9Wo2VG4TfyexmBjL6ESDwZLEfHwsoxMvXcpIS6tW0bkzH3zA+vUkJGR33WL/HG1dgIiIiIg9cHCgQwfatWPVKuuOYWvUiFq12LmTOXOYMwdPT7p3p29fGjXCYEizba9etGnDe+/xxx+cOcPx4xw/nra9woUpXx4/v7s+lir178ZyiTujEwcM4MIFFi5k7lzWrGH5cpYvZ/BgWrSgRw86d6ZgwXs1sHgxixaxaBGAkxO1atGgAY0a0aAB3t7WOw+xG5qG3g5pGnoREZE859QpFi5k5ky2bbMsKVuWV15h6NB77XHrFidOcOwYx4/f9TExMZ2NXVwsYeyfj7JlcXbOntPJVhcusGCBJYndmcXe2ZlWrejRg06d/n1n58REli5l40Y2bWL3bssegMFAo0asWoWTk3XrtyN5cxp6BTA7pAAmIiKSo9y6Rbt2FC3K6NH4+2fzwQ4fZupUpk3j5ElcXbl+HYcHu+QkJiZtJDt2LP3LpoxGfH1Tg1mlSrRq9RD3jradixdZsoS5c1mxwnJJXL58tGxJ9+48/jgFCvx7j2vX2LqVTZvYuJHt23F3JyoKd/e7tomNJSEBP79c22doRQpgYicUwERERHKUK1coX54LF3B0pH9/Ro6kVKlsPqTJxJYtuLhQq1aWtHftGseOpT7upLJTp1K7g+4oUICuXXn6aRo3zlXx4+xZ5s9nzhw2brSckouLZeb+tm3vNToxKQmTiXz57lqYkkLhwly+TIEC1KhBzZoEBlKzJlWr5s7ewmymACZ2QgFMREQkp4mO5v33mTiR5GRcXXnpJUaMoFAhq9cREcGAAdSrR/v2FCqEmxseHnh44OpK/vwP2lhSkmUQ451HaChbt1pWlSlD37707Zv9PX5ZKy7OksQ2bUqdrd/Pj6AgAgMtH4sV++82XnrJcondPzk5UbUqr75K377ZU3nupAAmdkIBTEREJGeKjOTdd5kzB7OZQoUYNYrBg3G05pxoixbx+OOk+/LPw4OlS2nU6K6Fx4/z22+0bJnulB7/duoUM2cyYQLHjlmWBAfTty9PPkmRIpmv3opiYpg/n/nz2bEj7dSHJUvelcfKlEm3gfPniYggIoJdu9i1iyNHSEmhXTuWLk275aFDeHvntu9PFlEAEzuhACYiIpKThYczfDirVgF06cKCBdY9/P79TJ1KeDhXr5KYyPXrXLlCYiJmM8uX07jxXRu/+y4ffgjg50ffvvTrh59fRg4SFsaUKUyfzoUL8NelVf360blzbhuJl5LCoUOEhxMRQXg4u3Zx5cpdG3h7W8JYw4a0apV2SOJfEhLYu5eKFdOOZ9y0yZJ5fXwIDEx93CPW2RsFMLETCmAiIiI53x9/8M47NGjAzz/bupT/cPEiX33F1KmcOgV/Tfz39NN065buHBVpJCaycCFTpxISYrm0qkgRevemd298fXFzw8srm+vPcmYzx4+n5rGIiLvmJylYkMcfp1cvmjfPYM9mfDx9+7JtW9o7sBUqRO3afPUVVapkaf05jAKY2AkFMBEREclKJhNr1zJ5MgsWcOMGgJsbr7/O6NEZbCA2lhkzmDyZvXvTrnJ1xc0NT0/c3VMvSXNzw93dsrBpUxo2xGjM0jPKQmfOEBFBWBiLFhERYVlYpAhdu9KrF40aZWQWSrOZo0ctQxbvPO7EurFjefnlu7Y0mYiKokwZ645czTYKYGInFMBEREQkW1y7xvz5TJ7M+vXUqJGaNzJs1y6mTGH5ci5fJjGRy5cztFexYnTpQteuNG2as4PHiRP88QdTphAebllSsiTdutG9Ow0aPNC8kNHRHD9O/fppz/fOmFAXFwICCAqyPAIC7jXyMadTABM7oQAmIiKSS50/T5UqlCvHN99Qv76tq/kPsbG4uKQzgjAhATe3B2rpxg0SE7l6lWvX7rokLSGBS5c4f57ff+foUcvGhQvTuTPdutG8ec6+/fH+/cydy8yZHDliWeLrS5cudO9Ow4aZaXjZMoYNIzLyrolUnJyoXJm6dfnuu1yWxBTAxE4ogImIiORSV64QGEhUFAYDTz3Fp59m/x3DstDEiQwYQEAAbdrQujWNGmXVhBt34szcuRw4YFlSsCAdO9KxI+3apb0Pcs6yYwezZjFnTuq09JUq0aYNpUtTtCg+PhQrho/Pg94D4OpVy0jF8HDCwzl0iJQUDAYOH6ZChbu2XLeODRuoUIEKFfD3z8iFe1alACZ2QgFMREQk90pIYMwYxowhMRE3N954gxEjcHGxdVkZsWwZvXunziaRPz+PPUabNrRpQ7lyWXKE48dZvJi5c9m82bLEzY3HHqN7d5544iHuZGYtJhObNzN7NnPn3jVpx9/c3SlVimLFKFWK4sUpWdLysXx5ypa9b/MJCRw4gIMDQUFpV9Wuzc6dqV8WK0aVKnToQI8e+Phk4oyyiAKY2AkFMBERkdwuKoo33mD+fIASJRgwgBdfpEQJW5d1X0lJbN7M8uUsX86ePanj5OrUYf36LMyRkZHMm8f8+YSFWZa4u9OuHd275+w+sZQU1q4lPJyYGOLiLB+jo9PeauyfKlemQwc6dKBBg4eYimTXLubMITLS8vj7OA4O9O/PL7887IlkEQUwsRMKYCIiIvZh7Vpef90yoUPDhmzcaOuCHkhMDCtWsHw5ISEYjRw7lh0D4KKimD+fefPYvt0S99zcaNuWbt3o0CEH94mlcfUq0dHEx1s+njnD2bOcOcPevVy8aNnG25s2bejYkdat095NLMNOn2b7dmbNYulSqlcnNDTLzuDhKICJnVAAExERsScbNzJ1Ko8+yjPP2LqUh5OSQnJy2tkhkpMZOhSjkTZtaNr0Qafu+LfTpy1JbOtWTCYAFxfatKFbNzp2zHHXPmVUSgq7drF4MUuWpHb2GY3Uq2e5Bu5hbxN28yZGY9qJTFJSCAsjIABX18yVnWEKYGInFMBERETygitXOHyYWrUycqOpnOfsWXx8SEoCcHGhcWPatqVtWypWzGTD58+zbBlz57J8OcnJAPny0bIlHTvSpQtFimS6cluJiiIkhMWLWbmS27ctC/386NCBjh1p0iTz80KOG8fgwXh40LkzvXrRsmVWzaJyT3kzgOXG56uIiIiIMGQIdetSoQKffkp8vK2reVBFi7JzJyNHUrcut2+zciXDhlGpEn5+vPQSsbEP3XDhwvTrx+LFnDrF99/TtCnJySxZwqBB+PjQoQOTJnHtWhaeibWUK8fAgSxeTHw8s2bx1FN4e3P8OGPH0rIlRYrQvDnDhzNnDseOPdwRGjemXj2uXWPaNDp0oGRJ1q/P2nMQUAATERERyaV69aJcOY4f5623KF2anj3ZtMnWNT2Q6tUZNYrQUOLjmT6dPn0oUoSoKH74gUmTMt98iRIMGcLatURH89NPNG9OSgpLl9K/P5Urs2xZ5o9gIwUL0rMn06YRH8/69bzxBpUrc+UKa9YwZgw9e/LIIxQqRMuWvPUW8+Zx4kQGG65Sha1bOXaMjz4iIIALF1Inz5cspCGIdkhDEEVERPIIk4mVK/n5Z5YsITkZg4F+/fjyS7y9bV3ZwzGZCAsjLIwePShU6K5VN29y5QrFimWm+XPnWLiQX35hxw6AZ57h668fej6LHCY2lp07CQuzfIyLu2uttzfBwdSqRXAwQUGUKpWR8YrXruHhkV313pE3hyAqgNkhBTAREZG8JiaGceP44gsSEylShNWrCQiwdU1Zq1Mnliyhdm169KB7d0qXfuiWzGYmTODVV7lxg+LF+eknHn88CwvNGaKj78pjaW4+ZjBQrBjFi1OqFCVKWD6WLGl5FCtmtcsK82YAc7R1ASIiIiKSWSVL8v779OvHCy+wejWRkXYXwJo0Ye1atm9n+3beeIO6denRg27d8PV90JYMBgYOpEULBgxg3Tq6dKF7d376Kdd2G6arVClKlaJzZ8uXp0+n5rF9+4iLszx27UpnX0dHihalVClKl+bjj/H3t2bheYECmIiIiIideOQRVq0iNjY33LL5Qb32Gi++aJnfcMkSQkMJDeW116hfn9GjadHiQdvz82PNGktX2Ny5bNxop11hd/j64utLly6WL1NSiI8nJobYWKKjLR/j4jh9mvh4y6qYGHbsoHFjBbAspwAmIiIiYlfsMH3d4epK16507UpCAsuWMWcOS5eyZQvff/8QAYw80hWWLqPRMtowXbdvW24GnZhIo0bWrSxP0CyIIiIiInZu61a++IIbN2xdR1Zxc6NbN+bM4exZlizhhx/S2SYlJYON3ekK+/ln3N2ZO5dq1cjrF9E7O+PrS/36PPZY5u8tJv+mACYiIiJi5957jzfeICCAFStsXUrWcnenfXtKlUq7/JNPcHGhdWsmTuTixfs2c6crbM8emjYlLo4uXejRgwsXsqVkEQUwERERETv3zTcEBREVRZs29OnDuXO2Lii7FSmCgwMrVzJgACVK0KEDU6Zw5cp/7/R3V1j+/OoKk2ykACYiIiJi56pWZds2Pv8cNzemT6dyZcaOZcsWLl2ydWXZ5LnniItj4kRat8ZkYulSnn6a4sXp0oV16/5jvztdYeHhNGxo6Qpr2ZKPP2bTJm7dslbxYu80CccDMd2I3r0tLDL64q18hYqXrVo7qHxBfQdFREQk53N05PXX6dqVwYNZsYKhQwFcXNi7l0cesXVx2cHLi/796d+f8+eZP585c1i/nt9/Z/9+jhz5710rVGD9esaO5Z13WLWKVasAXFyoU4fGjWnYkEcfzfY7FIsdU3xII/ls2Pxff5214nzzcTNfqmT8e3lK/OZxI9/+bMrGM4l/37ra4Owd0Omlke+/1qWyh8E25YqIiIhkXLlyLF/O7Nn8/jvHjmEyUaBA2m1efJFffqFsWcqXT3088gh+fri42KLoTCpcmEGDGDSIuDgWLcrgpOoODrzyCn36sHo1mzaxfj3797NhAxs2ADg6UrMmjRpZ8ljhwtl7BmJnFMD+4dbR2cN6vTg+/GKK2almUHLqipv7xvVqP3TRqdvmu7Y3376wZ97obisWDvztj++7ltX3UkRERHKDnj3p2fOea93dSU4mMpLIyLuWGwzUrcv69Tg7Z3eB2aN4cQYOTGf52rW8+CINGtCzJ489hjH1DfjChVO/V5cusWkTGzeycaPlhsY7d/L11xgMVK5M48Y8+ihBQVSsiKNeE8p/0i/IX0yx859r0Wf6yWQzYDA4Of715DNfDnm9qyV9Gdx867Rq3aCqb0Hj9TP7Nv65fNvpBPO1PeP7PVGo+PqPG6gvWkRERHK7zz/ngw84fpyjRzl2zPI4epSTJzl1iuTktAHstdcIDcXPj8qV6dqVihVtVPdDi43l0CEOHeLXXylalG7d6NmThg1xuGuuBC8vOnakY0eAGzcIDWXjRjZsYNs2DhzgwAHGjQNwc6N6dQIDCQwkKIiAgFybVyXbGMxm8/23sn/mK4ufrfL4pBiTwaFwvSFjvhrRu17JO53syXs/rFv7vfBbZofCjd+ePv3dVj6pz6Lb0SEf9+3zwdqzJoNL7Q93bHm7Wo4ItMHBweHh4Z07d/5dc/eIiIhIFklOxmRKJ04EBLBvX+qX9evz9NP07EnBgtasLnMOHmT2bGbP5tAhy5JSpejRg/79CQj4712Tktixg02b2LGD8HCOH79rrZMTVasSFGTJYzVq4O6ePaeQO/Xt23fatGlTp07t06ePrWuxHgUwAMwXp3Up0++P67gEvb1uw4d1U58ZyRHv1qzz4f5kY6l+83ZNerxw2mu9zFfWDK3T+vsjyQ5l/7fm8LeNc8J7HApgIiIiYjXXrxMWxtGjbNnCvHlcvQrg4kKXLowalcFLrnKM3buZNYvZs4mKAnB358qVfw5KvK/Ll4mIICKC8HAiIjh8+K47QhuN+PtbwlhwMIGBeHpm9SnkKnkzgOWIHhvbS96zLTzRjMGjzauv1vnn+xLmyxFhR5PBsfxTQzr8K30BBs+mbw5tPOGlNTfPrFtzMLlxDX1HRUREJC/Jn58mTWjShAED+O47Fixg0iTWrmXmTPLnZ/x4W9f3QGrUoEYNPvmEbduYO5cCBdKmL7OZDz/k+nVLhCpfHsNdLxALFqRZM5o1s3yZkMDu3ZYwFhHBvn0cPMjBg8yYAWAwUL48QUGWR3AwhQpZ5zzFlhQXADBdvnjJBEafKpUK3PUkMl26cMkEOFasVvEe3yuH4rXrlDGuOWyKOR1jooYVqhURERHJkdzc6NOHPn04dYply2jb1tYFPbS6dalbN53lly4xenRqr5anZ2p4atCA0qXTbO7mRv361K9v+fL2bfbtIzzc8tizh6NHOXqUOXMsG5Qtm5rHgoIoVixbTk5sSwEMAEOBgp4Grpsunb9oumuFQ8FCBR0Ac3JSkhnSn2zebDID5tu3kzScU0RERARKl+aFF9JZPmkSGzfSpQulS5M/P56euLnh6mr1+h5aoUKsX09IiCVCRUezdi1r1wIYDIwZw+uv/8fezs6WZHVHcjIHD1paCgtj925OnODECRYssGxQqhTBwZZ8FxxMiRLZem5iJQpgADhVq1XT1RB941zIos0iK0cbAAAgAElEQVQJLZu5/b3C4BVQo6zj8sPJe3fuvvVs8/RufmGK3rbtVAoYS/mWfIARwiIiIiJ5zqRJrF/PxIlpl3t5Ubcuy5alGdDHjh2cO8djj+WkW5A1aECDBpbP4+Is4WnnTtavx2T6zz3TcnQkIICAAJ5+GsBk4vDh1P6xiAiio4mOZtEiy/YlSliS2J1IVqpUFp6VWI8CGACGIu2fbO3154KLJya89Gb7tWPbFP1r3lHHoF69q349enfM7G9nvtWsv69Dmj3Nl1Z9OnbzLTMORRs2rapvp4iIiMi9zZ7NL7/w559cvcqNG1y+TEICN29y6RKHDmEypb3kqlMn4uIoUICOHenendatc1ISA4oXp1072rW75wbx8ezeTePGGanbwYHKlalcmaeeAjCbOXqUsDBLxAsPJzaWJUtYsiT14H93jtWsSenSaeOr5EyaBfEvt/d80uTRd0JvmA3OpVu99unHw7oHFbmTp65teOPR1l/uu12gzrAZ8z5u55s60WFSdMj7Tz358frzJoNzjXe37hgd5GSr8v9JsyCKiIhILmIyceUK7u7pzHE/dSrffktYmOXLnJvE7uWJJ1i4EE9PnniC3r3T3Oj5QR07RlhYaiS7dOmutW5u+Pvj70+FClSsSMWKVKiAl1dmzyBb5c1ZEBXAUiVHzXy2zYBpRxLNgCFfkcqPPta0Xo3K/n6lCl7b8NmbY0MvmQz5yzd9okvzmqULmC6f2LX69983HL9uBkOBeqNWrnqvbg65r4MCmIiIiNiT48eZO5e5c+9KYhMn0rWrTcvKiBUrePttwsMtXxYvTvfutG+Pry/+/jhmavRUVFRqHtuzh7i4dLYpUiQ1jPn7U7Ei5cuTL19mDpuVFMAE07l1nw547uMlx25k+LticK/Q5f0pE4bVK5Rj+nwVwERERMQu/TOJffYZb75p64Iy6PBhZs5k5kyOHEld2LIlK1em3TIsjKtXKV4cHx88PB7oIFeucOQIkZEcOmT55MgRrl9Pu5mzM23a8OSTdOpk++lP8mYA00VLd3Eo0vTtRfv7rv3lq++nzl+x48wN072DmMHJy79x1+ff/L8hrcrkii5wERERkdzNz4/hwxk+nGvX0okn0dHs20eTJjlvdGLFiowaxahR7NzJrFmEhREXR82aaTc7e5a6dVPnuHd3x9+fNm3o3JnatXFIOxVBGp6e1K5N7dp3LYyO5sgRy+PwYY4c4fhxFi1i0SI8POjShd69adEik11x8mDUA3ZP5oTYfTt37D5w9MSZuPOXrybcTEo2GxydXfMX9C7u41cxoPaj9SoX+ddI5ZxAPWAiIiKSB7Vty/LlFChAp0706EGrVjlorF2GpKQwYgTbthEXR3Q0CQmpq4oX58cf6dIl8we5eJF585gyhS1buJMDChWiWzf69qVBA2tP46EeMLmLwa1EQONOAY1tXYeIiIiIZMCQIZw9S3g406YxbRqennTuTPfutGqVzvQeOZHRyOefp3555Qo7d1q6q06cYOvWLAlghQoxcCADB3LqFAsXMnkyERGMH8/48ZQuzeOP88wzBAZm/jhyT/fpyhQRERERyRU6dCAsjKNH+fhjAgO5coUpU+jYkWLF+OknWxf3EDw9ad6cb78lKoqTJ/nkk7QbREXx/fccPPhwzZcuzdChhIezbx8jR+Lnx6lTjB1LUBBVqzJqFFFRmT0DSZcCmIiIiIjYj/LleestwsM5coSPPqJGDS5fZs0aW5eVSaVLpzN//ejRvPwyVarg78+wYcyezfHjD9H2nbgVGcm6dTz/PF5eHDjA6NFUqMCCBVlQu6ShIYiZdvNS7MUEkxkMrt4lC+W0az5FRERE8qYKFXj7bd5+m5gYChWydTXZYcQIgKVLiYzkm28sC729qVWLTp148cUHaszBgSZNaNKE77/nzz+ZMYMNG3Bzy+qaRQEs826teLlil+nXzODSfe7lOd2y7lrP8PDwOXPmPMSO0dHRQFJSUpaVIiIiIpJrlSyZzsIZM4iL4+WXcXKyekFZpVIlJk0iJYUtW1i9mp072bmT+HhWrGDVKgYMeLhJSJyd6dyZzp2zvFyxUADLuUaOHLlkyZKH3v3s2bNZWIyIiIiIPRkxgtOnmT6dyZOpVs3W1WSG0UijRjRqZPny9Gl27MDLK236Sk6mfn0uXCAoCF9ffHwoUSL1o83vCJaXKIDlXF988UXDhg0fYseFCxdu27atU6dOWV6SiIiIiH2YOZO+fQkPp1YtRo/m9dfTucYqV/L1xdc3neVmM1euEBWV/twaAwfy88/ZXZrcoQCWWc6NR68JfTnFDA7eFbJ0htOKFSsOHz78IXaMj4/ftm1b/vz5s7IaERERETvSoAH79vHWW3z3HSNGsHAhkyZRqZKty8o+Tk4cPMjBg+zdS0wMZ84QE0N0NDExxMSQnGzr+vIQBbDMMniVr1WnvK2rEBEREZEH4+bGt9/SoQMDBrBtG0FBjBzJG2/gYK/ThBuNVKuWywdc2gN7/f0SEREREbm/li3Zs4d+/UhMZMQIRo2ydUFi7xTARERERCRPK1iQyZP5/XeqV+eRR2xdjdg7DUG8j+Tr5+PPXbh0NeFWkskhn7uHh4dn4WJF8uv7JiIiImJXNPe6WIeCRDoSo0MXz56/JGTjtoh9x8/eSDbftdZgcC5QqnylgNrN2nZ+/PE2dXzdDDaqU0RERESyW3Q0xYvbyxyJkgNoCOJdTBe2jRv0qJ/foz1f+2Lq8m1H4tOmL8Bsvn3lzMFtf0759H9d65cvW+eZbzfFp9iiWBERERHJXnPm4ONDoUK0b89nn7F1K0lJtq5Jcjn1gKW6fWzGc22fnRZ566/MZTC6FSrpW9q3hLeHm6trPqPp9s3EhGsX46NPn4o+dz3JDOakczsnD3ts7brvls0YVFU3sBMRERGxKxUqULEihw+zbBnLlgG4u1O/Po0b06oVdevauj7JhRTA/pK4/f2ud9KXIV/Jej0HPv9U5xb1A3w90u1uNiXGH9qxfvm8yeMnLz98NenUH/974s1Hto9t7qnRiCIiIiL2IzCQQ4eIiWH9ejZsYP16Dh5k1SpWreK999i+ndq1bV2i5DYKYHeYTv329td7bpkNxlIdv/pj8svBBf8zSjm4FqvSuEeVxj2GvLrojSee/D7iRuSEd35+qembFTU8WERERMTOlCxJ79707g1w9iwbNrBhA3FxVKiQdsuNG9m1ixo1CAzEw8P6lUouoAAGgOn077M3JZoxlh7w69T/BRfI8I75ynb6evYHu2q8tjExfOHiqNcqPqIEJiIiImK/ihalWze6dUt/7aBBHDwI4OBAhQoEBxMURHAwgYF4elqzTMm5NAkHAMkHdu1PMuNQtF33ZhlPX3cYy3ftXscJUiIPHNFkHCIiIiJ52M8/M3AgtWrh5MThw8yYweuv06wZXl706mXr4iRnUA8YAOZbt26bwSG/R/4Hv4rLoUDBAg5gvn3r9r+mTBQRERGRvKNRIxo1AkhKYt8+wsIIDycsjD17iI1NZ/s1azCbCQ6mYEErVyo2owAGgNGnjI+RgylnwsJjTfVKP1i/YOLuHfuSwKFYiWLqUBQRERERcHIiMJDAQMuXKSnp3Ens2DGaN7d8Xr48wcGpD+UxO6bEAIBj9Q5tyxgxJ67/bMTc0w8ykNB8bfvnb00+kYKDd4Om1Z2yrUIRERERybXSvY9z2bK88w716+PmxrFjzJnD8OG0aIGXFxUqsGSJ1asUq1AAu8O57qCXGxUwkHJqVr/6rd+cuj321n33Sbl8aOkXfR5tOXrrVbPBuerzQ1q6W6FSEREREbELRiMffsiWLVy5wp49/PYbL71kyWNHjxIamnZ7k4k9e7h61Ra1StbREEQLo/+L4z5f1ezFpbG3o1d/3q/eN688Uqdhw7qBlf3K+JQo7Onu4uLsaE66eTPx+oW4M6ejjuzesWVT6L64BJMZcCjY4L1f36qdz9YnISIiIiK5j6MjAQEEBPDMMwDJyZw5Q+nSaTf7+WdefNEyv2KtWgQHU6sWgYHkz2/1iiUTFMD+5lRx4JzVLi/3Hvrbnssmc9LFyM2LIjcvuu9uDh5Ven829YcXgtT9JSIiIiKZ5+hI2bLpLK9fn/r1CQ/n8GEOH2b6dAAHBypVokEDvvxSdx7LHTQE8Z9cK/f7ZefhrZPf69O4vKfjf8+HaHAsUK5B77cnbjwUMW1wkOeDT54oIiIiIpJxNWuyZQvXrhEezvjxDBxIcDBGIwcOMGECYWFpt4+M5NdfWbOG6GhblCv3oB6wtByL1uk7emrf0UmXo/bsDN97+NjJ6PgLl64n3k7GydU9f/78nkVKP1KxYqVqNaqVLahJN0RERETEmv6eX/H55wFu32b3bi5epGnTtFsOG8bSpZbPPTzw98ffn2rVePxxqlSxZslyFwWwe3EqWC64RbngFrauQ0RERETkXpydqV07/VXvvUeJEhw6xOHDnDtHWJill+ydd2jRgpUrMWgMly0ogImIiIiI2KE6dahTx/L5xYscOcLBg2zdyrx5HDmCyZT+5PiS3XQNmIiIiIiInStUiHr16N+f8eOJjycyMp30dfIkycm2KC6PUQATEREREclDnJxwdk67cMkSypalVCmGDmX7dluUlWcogImIiIiI5HUVK1K1KmfPMnYsdetSqRIffMC1a7Yuyx4pgImIiIiI5HUVKrBvH2FhDBtG8eIcPsx77zFhgq3LskeahENERERERACCgggK4vPPWbWKTZvo2dPWBdkjBTAREREREUllNNK6Na1b27oOO6UhiCIiIiIiIlaiACYiIiIiImIlCmAiIiIiIiJWogAmIiIiIiJiJQpgIiIiIiIiVqIAJiIiIiIiYiUKYCIiIiIiIlaiACYiIiIiImIlCmAiIiIiIiJWogAmIiIiIiJiJQpgIiIiIiIiVqIAJiIiIiIiYiUKYCIiIiIiIlaiACYiIiIiImIlCmAiIiIiIiJWogAmIiIiIiJiJQpgIiIiIiIiVqIAJiIiIiIiYiUKYCIiIiIiIlaiACYiIiIiImIlCmAiIiIiIiJWogAmIiIiIiJiJQpgIiIiIiIiVqIAJiIiIiIiYiUKYCIiIiIiIlaiACYiIiIiImIljrYuQLLLRx999P3332df++fPn7927ZrRaDQYDNl3FMmBzGZzSkqKg4ODg4Pewclb9KPPy1JSUgCj0WjrQsTaTCaTyWTSv/s86M7f/MKFC3t4eGTfUc6ePZt9jedYCmB2qGzZssCFCxcuXLiQ3cdKTk7O7kNIzpSSknLnBZnkNfrR52Umk8nWJYht6N99nnXu3Llz585l6yEMBsOd1655h8FsNtu6Bsl6J0+ezO5XSM8+++z69es//fTTevXqZeuBJKeZMWPG+PHje/fuPWjQIFvXIla1f//+IUOGVKlS5ccff7R1LWJtLVq0SE5ODgkJcXJysnUtYlWvvfZaWFjYF198UatWLVvXIlY1ZcqUiRMnvvTSS8OGDcvWA7m6upYoUSJbD5HTqAfMPpUpUya7D+Hu7g4EBAQ0adIku48lOUpoaChQunRp/ejzGmdnZ8DT01M/+jzozrjTxo0b3/k1kLzDy8sLqFGjhp74ec2GDRsALy8vPz8/W9dibzSOX0RERERExEoUwERERERERKxEAUxERERERMRKFMBERERERESsRAFMRERERETEShTARERERERErEQBTERERERExEoUwERERERERKxEAUxERERERMRKFMBERERERESsRAFMRERERETEShTARERERERErEQBTERERERExEoUwERERERERKxEAUxERERERMRKFMBERERERESsxNHWBUhu5enp+fdHyVPu/NALFChg60LE2vSsz8s8PT0TEhKMRqOtCxFr0xM/z9K/++xjMJvNtq5BcqVz585FRES0atXK1oWItd2+fXvlypXNmzd3dXW1dS1ibevWrfP39y9ZsqStCxFr279/f3Jyco0aNWxdiFhbfHz83r17W7RoYetCxNpu3boVEhLSokULFxcXW9dibxTARERERERErETXgImIiIiIiFiJApiIiIiIiIiVKICJiIiIiIhYiQKYiIiIiIiIlSiAiYiIiIiIWIkCmIiIiIiIiJUogImIiIiIiFiJApiIiIiIiIiVKICJiIiIiIhYiQKYiIiIiIiIlSiAiYiIiIiIWIkCmIiIiIiIiJUogImIiIiIiFiJApiIiIiIiIiVKICJiIiIiIhYiQKYiIiIiIiIlSiAiYiIiIiIWIkCmIiIiIiIiJUogImIiIiIiFiJApiIiIiIiIiVKICJiIiIiIhYiQKYiIiIiIiIlSiAiYiIiIiIWIkCmIg8hORrcadOnoq/nmLrQkRERERyFQUweTCJx1d+/3qPRlVKF8nv6lG0TLUmT44Yt/bULVuXJVaWsHJojXJlK/SaFGOydSliBTeOrf5l5HPt6lQuV7ygWz43z6Jlqz/W85Wvlxy6qp+/XTNd3r9gzMvdmwaULVbQLZ+Lh3dJ/zrtnn7r59VRN8y2rk2sLDFsdG13B4OxxAsht21di2SfpM2vlXc0/CfHR17fkmTrOnM9R1sXILlI4r4JA7q/OuvQ9b/+8944tf/cqf0bZo/76dlxC37sVd7JpuWJ9VxdPWfZeZP+fuQF5ouh3w56+v/mH/nHK+7Ecyf3rj25d+3cH79s8X9Tp/5fs2J6L8/+mM6ufb/3kx+tjUtO/clfjI28GBu548+p337xxGezJr4UXMBgwwrFiq5vHvXsJ2EJZr1vb+8Soo7G6o01K9ALKMkg06np/dq+OP9MshmDW9lGndrVKe1y9djmJUu2x9y6sufXZ9o5em75sa23/hvnATf3/PDJ3LP6C50X3Dr441OdXlt+zgQGhwLlm3ZsU9uvwM3TByK2rN8ceSklKTpkVOfOppUho+p52LpUyVK39n/T84kP1l02gcGleGDLdk0CShd0uBy1M2TRqgMXkxOPzn+lQ3KBrQueLqsX5PbPfHn12wO+3ntL3Z72L/nE0RNJZnDwKF2tYlHndLcx+vjk14u9TDOLZIDp7LwnSzgABucKfWccvfn3iuu7f+jkYzSAwdH/lfXXbFiiWMOt+PA5/9fKx+nO317npt+dSrF1SZJ9kg9/2dDNABiMJVp9vOFscuqqlAuhX3fydTQAhnyBI8Nv2a5KyXqm2CmdvRwAg0uVZ2ccvvGPVSnnN3/YzNsBwFhqwNIrNqtRrMV0bvGAco5/veB2KD5opZ7u9ivh96c8DWBw7zrrqq1rsW9660oyImX/uI/mxpkwOFX+328/9S6f7+817tUHT/yxr48Rc3Lk+A+mnVG3iD0yX936/ZCnOjWp7uNdMrjHhyvPJOmN0LwgafuEcVsTzGAsP3DyrBGNihhT1zkUqvvKjNmvVXM2YL61e/xPaxNtV6dkNVP0gknLL5vAMeC1KT/29nf7xzoH70ffmjiqiZsBUmIXz9uYYLMqxSpMsfP+N3hSVDKOjo7q9bB7ppijUYlmMPpW8HO1dTH2TQFMMiDlwIIF+5LMGFwavfhyffe7Vxq82w4bUM0RzImb5y6KVgKzR9d3LfxlxuINe6Ovpyh65RkpR9euPZECOFV/+sXHvP792su97suDG+UzgOnsutV7kq1foWSTxO2bwm6bwalq15418/1rtYNv67bVHQHT5cOHdLmIXTOdmvbiy7PPmIxlnnz9qdJ6yWj3kk8cjUoGg7FchXLG+28uD0/XgMn9mU6ErDiQBDjV6tje599/gR2rdGhf4cPdB5Nvbv1zzaXBT+tCMLuTP6j3myPq/P0KO3HP3B+WHdMLbjuXfPTwsWTAodijDSqm+6/YoWi1asUdVp9IMcVFx6boH4q9MJ0/fSbRDBh9y/qm95N38PD0cAAwJyQk6j0Z+5V8dPzAYYvizY7lnx/3ZcfVDT+3dUGSzcyXjh2/aAJjsUfKe+qlXLbS/0u5v9uH9h5OBoylatUuld47YI5V6gZ7GA5eMt8+tC8yGW/NhmhnDAXqPvdB3b+/NF/4bfc4BTC7l3jlmjmfiwtO5fx87/HOtznxzutvQz6XfPpnbTccinT9bm2t62aDsUglz/Q2SDp26HgyYHAu65fu/wSxB7cPjB0wfOVFs1PFF8d/1rrQwdW2LkiyXXLU0ahkwOjn72c0Xz+1Y/2G8KNx183u3iXLBzVqVL2Eq/7QZxUFMLkvU/Shw9dMgLFM+TLpd0k7lS7nY+RSsunMoSPXzfXSGawkIrlMwT4LLvf5zy1uhYWsv2ACg1PVmlX138R+uPnUeNTnnmsT9417f2pUCjgU6fBk64L6c2+fbkaMefa9jVfJV+2VXz56zNOg+z7lBTejjkWbwODqEj3nhQZfTA6Nu/13F7fBwaNC+5c//Oyt7pXz27JGe6F/mXJfpovnL5kAg1PxEoXTf7PTWKxkUSMkm00Xz180owAmYv9uH/zpnQmRyWBwb9z78XQGJ4u9MF+ODN118srVi3EnDoQunT4t5OgNs8G1Yv+fvuxaWH/t7dKNre/3/2j7DVwC3/h1VEO93s4jUk4ei0oyA1eWf/p62pVm07Ujiz/utXHltllLPm9dTM/8TFIAk/sy37h+wwwYXN1c7/Eay+Dqdqdf2pxwPUFXBIjYvev7JgzoPHzdFTMG1xqvfNjvXoMUxR4kbf+8S9sJ8X9Pt+FQoOazX/36ef8gL/3Y7ZH5ytp3Bny55ybudd759Z06bvffQ+xD8onIE3cuLjA4Fqn33LvvDHz80UrF3ZIvnti9Zu4Pn3wxZ+8V0+WdXz/19COhS194RJN0ZIr+eMp9mW8m3rnM2tk5/Xvy/WOVOeGGApiIXUs8vvSDxwPrDppz/LbZ4Fiq47ez3q2j+YrzFNO1PbM+fvvT+Yc1B70dMl9Y/sZzPxy6jUeDkb++Gehi63rEakyxx6JumMGQr0K/6TvW//Ry+0BfL1enfB7FKjbs/X8zt6z79DEvBzBdCHn//SWX9FovcxTA5L4M+VxcDABJSfccBH779u07n/xHSBORXO7GkYXvdqgW0PG9P44mmHEoUOO5KWtmP19RT3o759zix1MJNxOuXYw9GrZ84v89UTm/+cbxFWN6New8dv9tWxcnWcoct2DooInHkw0Fm334y7Bqem7nJQ6+AxfHnj9//vzZPRN7lPnXdGr5a746fmRDNwOY4n6fvOyyElimKIDJfRnc87sbAPPNxJv3eL6ZEy2rDO4e7hoYLGJ/EiIXvtOmao2uHy49nmDGkL9C59GLIraO7+2vN8jzAAdH53z5XPN7FS8f1Lr/B/NCV7xdy82A6fzqd4dPi9GNwOyH6fT0IS/NPJ3iUKjVp+OHVNRVKnmM0dWzkLe3d6ECLve43t+vd7/GLgYw3wjdGKZ5WTJFAUzuy8G7iLcDYL4dH3cx/QSWci72bAqAg5e3LgoQsS/my2E/9g6q2fXjFSdvmg2OhYOf+Xr1gf9v774Dqqr/P46/P+cOlgwRXDhQwpEaqag4cuRIE8XcIFqalVZamfbV6tv4VV9L0oYNtXKkfcscqOUsNTUHrjJMv4KLFMXcgTLuOL8/rES4IiQeFJ+PPznee9/3jfo5r/P5nM9JXPRS15qsPLwtKZ/mY1/qE6iJ6OlrF68+z4XwUkI/vWDMqEVpTq185MQpj4Rwiw/yUv4NwqqZRMR59nhaZklXc2vjXBnXpAXVvsNLiYjjyKEjDpd/xH40JdUpIqZKtWuxKTFQitiPLBp+T+snv9p3UVfmCi1HzNi6b+uMp9tVdSvpwnCj6OcO7NiakJCwNfHoVe/x8mzUtL5ZRHTbkcOpTIGVEnp6aup5p4jz9yWDg03qStbmb+93iIgzbWonN6WUUlq5wUtZgXqbUZ5lPJWIKFGKk73rQgDDtVnrNKhjFhFHyo6dv7u61ulI3v7zH04RZa3TgDULQKmhn183tmv0tN0XdWWtFjl+9S/r3n+woT/jRulm/9/U6BYREREt7n8z4WqLjJTJpF06/TKZmSgBSgE9I+WnTRs3btyUkHyVxU4i4jx14pRTRJRfxfIsP78unCzj2rTgjh3rmDcn2nO2rVh96rGBgXkuezgPf79qr11EWZt0ac9TYYDS4sK6fz/83u4sXVlrDf7y+6k9qzJi3A7MIbVDzJLscJzYuSPF2e4OV4Hbtu/XJLuIKEtQ1Yok8lJC+TaJHTO2leuFLs5jaz+Zk3DWqbzu7vd452CTiPJszE7kpUnm6hc7DF2WqZtCR2/YHdfc1QYs9r3rNqQ5RJRn05aN8u3SgaJgOEUhmOs98EDd8bsTbemrpszcFz2mzhV/bzK3Tvs0IVsX5RnRK7IaQzFQOjiPfjF+xkG7riwNnp39AenrtqH8W7dv5LZyc7Z9+6zPtj0xvlm+W/303xdPmXfUIaLcmnVo7ctVt1JClW352Ostr3LQtmXMwi8Szorybjbk9fEd2R6x1FHl2nUKty7fkO04MDtu7sj5A/M93VFPi39z2m6biFa2Y59O/vzDvy6cLaMwzGGPPxdZVhM9c8t/Hn1za657rp0nVo0bNnmvXcRUNXbcQzX5GwWUDnra0vkbLuiiLC0eGRbOdhu3EVNIzNAOPkp026+TBj46a++FK47mpK56qffwr9OcIqbK/Z6O4RncQKmgBfd7rGs5TcR5YtETvcd+d9ye+2jmwfhnox6de8whyj1sxAt9K5C/rg+XNFEoqkL/uLh5mx9ZknZuw0vtm2wa/HBUeJD1fPKGr6d/ufFolq4sdzw0+dVOPiVdJ4Bikr1z885sXURJ0meD2i8scLA1Bcd+9OnDtViOVEpolWPfenn2ptE/nM1JnjM4bOXE9p3b3BUc4OH8I3XPxpUrtx65qIsot9oPT3mrG5fBgVJCVYx+d/K32wfO/c2evvXtzrUXtLr/vohaFdxtZ1IS16/8fldati5KC+g4Yc7zjZkCvV4EMBSSOWTwrPgzsSyA6oAAABFqSURBVP1fXJaSkbx88tjllw+pMnfGTp73QfeKDMRAaeFM3ZeU7hQRPef4rnXHC/7D5jtbZrAXeWlirff0/CVZA2NeXXEk23YyccXsxBW5DytLpXbPTZ/1cmeuggOliFa1/8w1lqCHn5q8PjUn/eD6uR+vz3VUab4NHnrvq8kP1iV+XT8CGApN+UWMXrKz44JpH8+Y//2ug8dO53iWrxIa3qX/0MeH3h/qVdLlAShGjpNpJ13fjI/bgirXatzSX3sun/HJnCVrEhL3HzuTqXv4lqsUcneLeyOjhw7qGOJF+AJKHbeQXm+v7Th02ezPv168cvPe346fTFfegUGh4e269hnyaN/wQIJD8VC6zmVLAAAAADACN88CAAAAgEEIYAAAAABgEAIYAAAAABiEAAYAAAAABiGAAQAAAIBBCGAAAAAAYBACGAAAAAAYhAAGAAAAAAYhgAEAAACAQQhgAAAAAGAQAhgAAAAAGIQABgAAAAAGIYABAAAAgEEIYAAAAABgEAIYAAAAABiEAAYAAAAABiGAAQAAAIBBCGAAAAAAYBACGAAAAAAYhAAGAAAAAAYhgAEAAACAQQhgAAAAAGAQAhgAAAAAGIQABgAAAAAGIYABAAAAgEEIYAAAAABgEAIYAAAAABiEAAYAAAAABiGAAQAAAIBBCGAAAAAAYBACGAAAAAAYhAAGAAAAAAYhgAEAAACAQQhgAAAAAGAQAhgAAAAAGIQABgAAAAAGIYABAAAAgEEIYAAAAABgEAIYAAAAABiEAAYAAAAABiGAAQAAAIBBCGAAAAAAYBACGAAAAAAYhAAGAAAAAAYhgAEAAACAQQhgAAAAAGAQAhgAAAAAGIQABgAAAAAGIYABAAAAgEEIYAAAAABgEAIYAAAAABiEAAYAAAAABiGAAQAAAIBBCGAAUGplL+jvpami0soO+iZbxLZxVIhZKWWNiEt2lPQ3KSp72rp3H+lQr7KPu9Xdv9FLCbaSLggAgD+ZS7oAAACKV8b6cR06T/w1SxcREdvJMxdLuKBbkf3X2eM+3JShWxo8+ObjEZ4lXQ4AlB4EMAAotUzV28Q+5JGj5/mx87d1/117yK4rS8120a2r5V0KoTxbVDWJ5H3VLUM/s/idqXuydNH8GsU++0j7mhXq1DWVdFG3HueRdTOnfnbK6RYZ8SoBDACKEQEMAEotc/jwqdOH5/tx9sLoBWsP2UXcm4+cNiPKzfWLnaHRcdPD0nUtMLzCLbVc3XEk6UCmLmKuNWzKZy82YZwDANxUGJgAAK5o5Zv0HNSkpKv4JxwOh4iI8vHzVSVdCwAAedxSVzUBADednPQz5y7YbtkFiyL6xdSjZ4qx/lugIbaL6Rey7MVbYnG3EQBKLQIYAMAV+/bn77Tk3QXR+dvktm5KKY/us885z27/eGjL6uXKBpT1drN6latSt3XMi//d9cefJ+FZh1dOejKq6R2Vynq5efhUCI3o8dRHG47br/p5thNbZv/fsO4RdaoF+niWCQyu36xDnxFxCxPPOQtbsTPlvdZuSlkav7HHLiK2rWNrm5VSpqpPrrWJiDiS4yKsSmllohdmi8iFffEv9Wlao5ynb/jrO3Jtk2g/ue2L14f3aF63WnkfD/cyAUGhje97cNxH3x3KdPWZN64hBShKr3JXKPrZbR890ja0vK9vGQ+r2c07IPjujg++/MVPZ3K90PbjMzXNSrl1+eyUU0Syv33IXymlrC3e3u+8ZhttW56rbVFKmQJiF6W7rN156L027ppSmkfb9w8X+ncLAKWJDgC4vWQt6O+lRER5D1iUddU/Zds2rq5ZRCzNJiTZ//qhI+X9NlYRcY98d+GoMM/8K/xUmbBR3522pS4Z2dA33yU+ZanWd85he/7Pytw7a8hdfpqLBYPKHNjy2cWHcwrzvRyH373Hmv8ttCpPrMnRdV23J01oZhFRXv0XZKZvn9A+8M8CtYqPrcq+9BbZB+YOb1TW5GrlovKoETVp6zlnns+8MQ0pQFF79XeF3WYmfft4XRclirIG95mR/NfrcjY8XcPFpiWW5nHJjmu3MWfzmFpmEdECBy1Od/VLSn67hVWJKM+OU446ivTNAaCU4B4wAECR5ax/5aFl5zItFZv26Nu11V1VTWlbF3wyc21Klp6x670Hu/3k9/MPe3P87+7Rr1ubsCDn0Z0r5sz+/lCmbvtt/phXB3abHumT673syZ/0aTd8aZpDF+VRtWmXLvfUr1LGfurAtlXfrtl31n5y46Q+7U99uX56z8rXWLShVR4wY3vbDNveD/rEfnrQYa7/1PzPBwdryhoQcuVg5zy19OnRz68561c/snf31mE1qzasbxYR5/EFQ++NnZNi00WZfENad+3cLDTQnJ7y85ql3+06kZ15aPHoTt0d61aNviv/viXF2ZACXEevHCmzhg5ZtzfTFNiwR2yfdvUrms4c+nnt3C9WJKU7cw7PHzmsbZtVj9fQRMwNxyzd+VBOzsZXOj256Kxubf3a9+938xHlVTnPhpku22hp3DOqxqS4ZMfpFfHrLnTv6pWniqT5c7fZdFHe98Y8cK1fKACUUiWdAAEABiuGGTAR0XxbvLju1OU5DMexeQOq/DVzotzrDVty1Pb3QefvS4eGmEREtKDhq7Nzf8zeifd4KxHR/Fv8a2lK7nocp7dO7hlsUSKiBfSccyzP5NNVC9/xwp1mEbE0fXPfFZNLf03dmCtULm8p3/4/G0/nnoFxpn3V99J2j1pAu1fXHrflOnT+l0+iQ6xKRJRnxJu7cx0q/oYU9M3+Sa9yVSiaX/PnV5/I3ZSMnW+29tVERFnveedQ7n5kL384QBMRt8iZZ66oouA26nrO5jGhJhHRKg5ZdiHPN7AnvtbQIiLKr/eXpwv5+wSA0oarTwCAolPe7d6Y80rrcpdHEa1Sj6diQ80iIspS75kZ73QLujzvpALvGz20kUVEnKePHc++/D7p3018Z1O6LqaqA6cvGn9/tdxzS5p/kydnz/tXmJsS5+lv4qYl/qP7pfLR7SfS9O7vzBnbwj/XGOjYN3PS4t+dIqbgIZ/P/3fbirkmzZRPg6Ez5r8Y7qFEv7jtow9/cPFg5+JqSAGut1da2fsmfPnaveVzry/0avjUywOCTCK640jKUUf+F12V6zaKiKVxz6iaJhHn78vjN1x535x997yvE20iWrmuMV382aISwG2KAAYAKDLl3mZg/+A8dwqZqodUN4mImO8e8GAj97wHQ2talIjoDvvlcHBx7ZfxxxyirOFPPh8Z6OKM3LPxiBHtPZTotr0rv0sppj0bTJV7DXug4hWf5jiwJP6nbF2Ue/ORY+9zkQ3cwp58LspfE3GkfrMoISfv4eJqSAGut1dapT5PD6ieb9i3hta9NBVXyDJyfYP8bRQREUvjXpcS2Ill8T/mTmD2XV/P32sX0cp3j+nkW7QPA4DSgwAGACgy5VclyDvfqbfZfGm+x1oztHq+bRyU2ZzvZ/bEH7ecc4qYgtu0qeli4wcRUf4NG9UwiYh9/97k4pkCU9aGLRrniUMZ27fstouIuf79nYNdDo3Kr/39Ld2ViOPE9m2H884VFVNDCnC9vVJu4a2bebp4kdnsctORa3LVxkv+ngNLWxq/KevvH9t2zJ2fZBcxBT0Q087L1QsB4LZAAAMAFJ2mChg/TBZL4U7p7alHjjtFxJ40IcKiXLM0ev1Xu4g400+dLtxSvWtRvpUrel1ZoPPksTSbLqLcQuu42gJQRER516odpImIMy01Lf/8UrE0pADX2yvlU6G8x/UWccUb5m/jXyzhlxKY4/jSRVv+KiQnYe6CA3YRU/XeMa2KtRIAuLUQwAAAJUS/cP6Pwj+xWM/Oyi6WB/0qD8+8m7E7M9IznCKivMp4XXVgVN6+3pqIOP84n274A6yuv1dmU1Em3K7NRRv/9ncCS/02PuFSAsvaNHdhikPEHNo3uln+bSQB4PbBNvQAgBKiPL3LmJSIbmkybum0fuULniXSvKv6Fc++Da6e1uXtpUREv5hx4arZSr+QcVEXEc2rjKfhly9LqlcFlVTAMUt4z6ga77y933Hk20Xb4lq3smb+OHfRUYeI+c5+0Q0tN7o0ALiZEcAAACXFXLFyBU0OOfQsS/n6YWElNySZAipVsCix6Vn79x12SB2Xc0UX9icddYiIVr5SBePXj9w0vSocS3jPHjXeeXu/I+WbRTveanXXurmLjzlEWRpG9693s9cOADcWSxABACXFclfzcC8l4khetz7V9cyTfvqHd58ZOWLEyOdm/WK7cZV4N46oZxYR++4Vq464ruT82mU/XtRFtIAmTUOKdzVfYdw8vSocS3jPqBomEcfhb+J3nF3z1TcnnKKszaL71jK+dwBwUyGAAQBKjHf7Xp39NdGzfpz40uITLm5xytw2aeRz703+4MPPfrrofwPP3E2h3aIaWJXoWRvfn7D6XP5KchI/emvhSaeIqXJkj+YlcQ/TTdOrQrKE94qqYRKxH1zy+YQ5S086Rbm3iunteo9JALiN8P8gAKDEqHJRox6906rEkTJncPdn4g/kfmyU8/yujwf0nrDbpotWqc+I6KAbOWSZ7hwyKjJAE91+cNrAfm9tPJlro3k9Y8+MIb1eTbioi/IMf2JkhzI3sJCrKqleZWf/w71P/k5gSZ9MXHjaKcqrXcwDVTjvAHDbYyE2AKAEuTd7cfoLa9q/kpB+fut7vRrMC+8c2fauaj72Uwd/Xr145e4zdl2UpeagD9/qdoN3lVCVot+f/O3W2LlH7SdWPd+2zuwOUV2a3VFOS//t5+8XL9txPFsX0cq2ef3TUfVLaug0tld/PsQsZ/OUF9716FTZ5FWna9cw36K8sSW8V1SNdyfud9htdhHl2zGme4UbvjUIANz0CGAAgBLl2eTfy1e4xUa/svy3rMxj2+KnbYu/fFCZyjUZPvWrST0MOHPXgvrNXOvw7v34Z7+ct5/Zs2LGnhW5jirPkAfGz50xor71hhdydQb2ylK/eROfad+c0zN+mj5q0HSxNI/bc3/RAphYGve8lMBERPPvMqBrAPkLAFiCCAAoaapsi38t3ZO4bPKYAe3DalT087BYvcoG1W0R9dgb/03Ys3FyrxpG7VvudkfMtO37Ns189dHuzWpXCSjjZvUsW6lmw06Dxn783Z7dC0Y29inpBGFYr1TF2KnzXuvbtLqfm9ns5h1YrWpA0e98s/65E4eIFthtwH1+xVMaANzalK4Xy2MtAQAArpSz5bkG98Ql2U1VHlueNKWjR0nXAwA3AWbAAADADZG5ftZXB+wipmo9Y1qTvgBARAhgAADgxji/YuaCVIeIOaRPTIls3Q8ANyMCGAAAKH5ZiR/FxZ9yirLUixnQ2Kjb+ADgpscuiAAAoNjYtsQNnPiL1XRi+6o1/7uoi+YfOXpYA043AOAv/I8IAACKjX5u3+qFc045RUREmSp0fmN8Px7/BQCXsQQRAAAUG61S/aZ3BHi6+1Su225I3PKEhcNqs/wQAHJhG3oAAAAAMAgzYAAAAABgEAIYAAAAABiEAAYAAAAABiGAAQAAAIBBCGAAAAAAYBACGAAAAAAYhAAGAAAAAAYhgAEAAACAQQhgAAAAAGAQAhgAAAAAGIQABgAAAAAGIYABAAAAgEEIYAAAAABgEAIYAAAAABiEAAYAAAAABiGAAQAAAIBBCGAAAAAAYBACGAAAAAAYhAAGAAAAAAYhgAEAAACAQQhgAAAAAGAQAhgAAAAAGIQABgAAAAAGIYABAAAAgEEIYAAAAABgEAIYAAAAABiEAAYAAAAABiGAAQAAAIBBCGAAAAAAYBACGAAAAAAYhAAGAAAAAAYhgAEAAACAQQhgAAAAAGAQAhgAAAAAGIQABgAAAAAGIYABAAAAgEEIYAAAAABgEAIYAAAAABiEAAYAAAAABiGAAQAAAIBBCGAAAAAAYBACGAAAAAAY5P8BKFfCAXCs2swAAAAASUVORK5CYII=" width="576" /></p>
+<p>One has to supply the most variables when computing Pohar-Perme
+estimates (though it is probably rare to have third-source aggregated
+data with Pohar-Perme weighted figures, it is implemented here to be
+used as a workhorse for <code>survtab</code>). For this we must
+aggregate again to get the Pohar-Perme weighted counts and
+subject-times:</p>
+<pre class="r"><code>ag <- lexpand(sire, birth = "bi_date", entry = "dg_date", exit = "ex_date",
+ status = "status", breaks = list(fot = seq(0, 5, 1/12)),
+ pophaz = popmort, pp = TRUE,
+ aggre = list(sex, fot))</code></pre>
+<pre><code>## dropped 16 rows where entry == exit</code></pre>
+<pre><code>## NOTE: 83 rows in split data had values of 'age' higher than max of pophaz's 'agegroup'; the hazard values at 'agegroup' == 100 were used for these</code></pre>
+<pre class="r"><code>st.pp <- survtab_ag(fot ~ sex, data = ag, surv.type = "surv.rel",
+ surv.method = "hazard", relsurv.method = "pp",
+ d = list(from0to1 + from0to2), pyrs = "pyrs",
+ d.pp = list(from0to1.pp + from0to2.pp),
+ d.pp.2 = list(from0to1.pp.2 + from0to2.pp.2),
+ pyrs.pp = "ptime.pp", d.exp.pp = "d.exp.pp")
+plot(st.pp, y = "r.pp", col = c("blue", "red"))</code></pre>
+<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABIAAAASACAIAAAAIyqENAAAACXBIWXMAAB2HAAAdhwGP5fFlAAAgAElEQVR4nOzdZ3gUhcKG4Xd30xuhhNBbaCGAdJAOUhMU6dJBiiBNwS6igCJNaQIiTSSggPTeFEUQQhOkI53QIfT03fNjReUAKpLMJOS5/3xxtvCGc77rOo8zO2txOBwCAAAAACQ/q9kDAAAAACCtIMAAAAAAwCAEGAAAAAAYhAADAAAAAIMQYAAAAABgEAIMAAAAAAxCgAEAAACAQQgwAAAAADAIAQYAAAAABiHAAAAAAMAgBBgAAAAAGIQAAwAAAACDEGAAAAAAYBACDAAAAAAMQoABAAAAgEEIMAAAAAAwCAEGAAAAAAYhwAAAAADAIAQYAAAAABiEAAMAAAAAgxBgAAAAAGAQAgwAAAAADEKAAQAAAIBBCDAAAAAAMAgBBgAAAAAGIcAAAAAAwCAEGAAAAAAYhAADAAAAAIMQYAAAAABgEAIMAAAAAAxCgAEAAACAQQgwAAAAADAIAQYAAAAABiHAAAAAAMAgBBgAAAAAGIQAAwAAAACDEGAAAAAAYBACDAAAAAAMQoABAAAAgEEIMAAAAAAwCAEGAAAAAAYhwAAAAADAIAQYAAAAABiEAAMAAAAAgxBgAAAAAGAQAgwAAAAADEKAAQAAAIBBCDAAAAAAMAgBBgAAAAAGIcAAAAAAwCAEGAAAAAAYhAADAAAAAIMQYAAAAABgEAIMAAAAAAxCgAEAAACAQQgwAAAAADAIAQYAAAAABiHAAAAAAMAgBBgAAAAAGIQAAwAAAACDEGAAAAAAYBACDAAAAAAMQoABAAAAgEEIMAAAAAAwCAEGAAAAAAYhwAAAAADAIAQYAAAAABiEAAMAAAAAgxBgAAAAAGAQAgwAAAAADEKAAQAAAIBBCDAAAAAAMAgBBgAAAAAGIcAAAAAAwCAEGAAAAAAYhAADAAAAAIMQYAAAAABgEAIMAAAAAAxCgAEAAACAQQgwAAAAADAIAQYAAAAABiHAAAAAAMAgBBgAAAAAGIQAAwAAAACDEGAAAAAAYBACDAAAAAAMQoABAAAAgEEIMAAAAAAwCAEGAAAAAAYhwAAAAADAIAQYAAAAABiEAAMAAAAAgxBgAAAAAGAQAgwAAAAADEKAAQAAAIBBCDAAAAAAMAgBBgAAAAAGIcAAAAAAwCAEGAAAAAAYhAADAAAAAIMQYAAAAABgEAIMAAAAAAxCgAEAAACAQQgwAAAAADAIAQYAAAAABiHAAAAAAMAgBBgAAAAAGIQAAwAAAACDEGAAAAAAYBACDAAAAAAMQoABAAAAgEEIMAAAAAAwCAEGAAAAAAYhwAAAAADAIAQYAAAAABiEAAMAAAAAgxBgAAAAAGAQAgwAAAAADEKAAQAAAIBBCDAAAAAAMAgBBgAAAAAGIcAAAAAAwCAEGAAAAAAYhAADAAAAAIMQYAAAAABgEAIMAAAAAAxCgAEAAACAQQgwAAAAADAIAQYAAAAABiHAAAAAAMAgBBgAAAAAGIQAAwAAAACDEGAAAAAAYBACDAAAAAAMQoABAAAAgEEIMAAAAAAwCAEGAAAAAAYhwAAAAADAIAQYAAAAABiEAAMAAAAAgxBgAAAAAGAQAgwAAAAADEKAAQAAAIBBCDAAAAAAMAgBBgAAAAAGIcAAAAAAwCAEGAAAAAAYhAADAAAAAIMQYAAAAABgEAIMAAAAAAxCgAEAAACAQQgwAAAAADAIAQYAAAAABiHAAAAAAMAgBBgAAAAAGMTF7AFIeqdOnZo0aVJiYqLZQwAAAIC/4+3t3a9fPy8vL7OHGIcAewKNHz9++PDhZq8AAAAA/lmhQoWaN29u9grjEGBPoPj4eEkNGjSoXLmy2VsAAACAB5szZ86uXbvi4uLMHmIoAuyJVbNmzVdffdXsFQAAAMCD7d27d9euXWavMBo34QAAAAAAgxBgAAAAAGAQAgwAAAAADEKAAQAAAIBBCDAAAAAAMAgBBgAAAAAG4Tb0/yDh1uULl65E3bgTG2+3unv7+vqmyxQY4MPfGwAAAIBHRkg8QHTklqVz5i9bu3Hrrr3HLt5OcNzzqMXi5pc9qHCxsjXqN3z++XrlcnpZTNoJAAAAIHUhwO5hv7L1i3deHfjllvNxjoc9x+GIu37mwNYzB7au/GpYv4DSrd4dNaxn5UCbkTsBAAAApEYE2J/ijs7uXP/F8COxd9vLYvPKkC1nrpxZM/p6eXq62+xxMdF3bl69EHn6VOSlW/EOyRF/afuMV2t+v2HcitkvhXiaOh8AAABASkeA3RUdMaiJs74s7tkqtOjapXXDWk8Xy+n7wDNb9ugLB7f9sOrbGV/MWHXoRvypxb0bv5E/Yuwz6bgaEQAAAMBDcRdEJ/up6e+M2hPrsNiyPzd6075NM97vWKfEQ+pLktUzsEjV5n3HLt+9e2Gvkt4WR9yRye9OOpxo6GYAAAAAqQwBJkmyn14056doh2w5O02d2bu0/78+keWe57lRcwZX9rQ4YncuXHqcAgMAAADwcASYJClh/y/74h2yZg5tVsPvEV9rC2rSrJyrlHhkP6fAAAAAAPwNAkyS5IiNjXNIFh9fn0f/FJfVz9/PKjniYh9+60QAAAAAIMCcbDly57BJ9jM7dp6zP+qLo3dv2xsvWQOzBvLXCQAAAODhKAZJkkvxBvVz2+SI/mHYW/NOP8qFhI6bESPennEiUdaMlaoXd022hQAAAABSPwLMya38S72q+FmUeOqbdk/XfWNmxLnYf3xN4rWDy0e2qVh74M83HBa3kC49ansbsBQAAABAqsX3gP3OVvDlz0esq/Hy8nNxketHtKsw+pX85SpXLl8yOF/uHFkzpfP28HBzccTHxETfunL+zOnjh3dv2/zTlr3n79gdkqz+lQZMfbusu9m/BAAAAIAUjQD7g2uhrnPXe/Rq2Wf6nmt2R/zVI5uWHNm05B9fZvUt0nLYzPHdSnH6CwAAAMDf4xLEv/IMbjdl+6GfZwxoUzUoncvf3w/R4uKXt1LLd6ZtPLgrvHupdI9+80QAAAAAaQ1nwP6fS+ZybQfObDsw/trxPdt3/nro6MnIC1eibkXHJcjV09vHxyddQK78hQoVLvpU0Tz+3HQDAAAAwL9HgD2Mq3/e0rXylq5l9g4AAAAATwwuQQQAAAAAgxBgAAAAAGAQLkF8bDFR567esTski2fGbBk8zJ4DAAAAIMXiDNjjil3dq1COHDly5MgR1G3ZP3978yMYMGCAzWazPLpRo0ZJ2rx5c1Kuuc8x92BZLFv6zUvWPwUAAAB4khBgKVd0dLTdbv/PLz937lwSjrlfQPw5SZkmDE7WPwUAAAB4khBgKdeIESMc/0mpUqUkZcqUKVnnHfMtLilnzOFk/VMAAACAJwmfAXtcblUHfrelV6JDsmYs4Gb2GgNFNX9JUza6K/bG0Ut+QQFmzwEAAABSAc6APS5L+qAy5cqXL1++fNn8GSxmrzFQmY+bOH/Y32eSuUsAAACA1IIAw3/kk8njjrwkZVk/y+wtAAAAQOpAgOG/O+YZIilnzBElJJi9BQAAAEgFCDD8d2dKPivJpsQTX/9s9hYAAAAgFSDA8N8FdAhz/nB50rfmLgEAAABSBQIM/11Iy+KXLIGS7L7+Zm8BAAAAUgECDP+dh4/LtrD3JbkcP2L2FgAAACAVIMDwWAKaVpOU69gGs4cAAAAAqQBfxCxJSrwTdeVmnOPx3sTi4Z85nXvSDEo1ijYLvtQxc0D8uZu7fvMtmd/sOQAAAECKRoBJkv34hLAir/8c/3jv4tFs3rW5TdNYgXl6WbZmqFL9yvxTM38IIcAAAACAv8UliJIk9wwB/q4Ws1ekUjdKVJUUv+4Hs4cAAAAAKR1nwCTJmvPFxZHP/brqqzEffjxj2+UEhySLd74KlQume4QqcyuRJU32rG/9ylqv/PsWn5yyNnfn2mbPAQAAAFIuAuwu10zFnu07pU5oiecq9Vlz1S5bzuZjln1clr+gf3Rt/U5JPvYbMb1eVOfTZs8BAAAAUq40ecrmb7gXfunDroWorkfhmsnP+UOmmDMx2/eaOwYAAABIyQiw/+daon7t7DazV6QmmeqX/ePnkxOWm7gEAAAASOEIsPu4FC1VjBtyPIIiYXmjlN75s8tqAgwAAAB4KALsPha/EnUa1qherVw+PzLs3/Dz017P30+C5T27WVeumLsHAAAASLEIsPu5PNXrm/Xfr5vRpRBXIv5Ll/KWc/5gVeKFmWvMHQMAAACkWAQYkoCl3J8fA7s2i6sQAQAAgAcjwJAEAsLK/fFztj2rZLebOAYAAABIsQgwJIGitbJEKofz5zuu6cwdAwAAAKRYBBiSgL+/9r8z86A1RJJjyMey8t8rAAAA4AH4H8pIGrU/qr6jcCtJ15f8YPYWAAAAIIUiwJBkbDWrSfLdSYABAAAAD0aAIckEvVD2jryyRu3XxYtmbwEAAABSIgIMSaZkebdttgoWOa4v/8nsLQAAAEBKRIAhybi46ETuapIuzFoXtW6H2XMAAACAFIcAQ5K5eDo2281DkgK+m5u+dpn4dXwYDAAAALgHAYYk8+PEfbUvzbbL6u+4Kun8uHlmLwIAAABSFgIMSSbj0wUTZbPIYZFDku+GpWYvAgAAAFIWAgxJpkRln0Mq5KyvO/Lyv3FK+/ebPQoAAABIQQgwJJn06XXQp4zz52h5SooKX27qIgAAACBlIcCQlKLyl5VklzW9oiTFzCfAAAAAgD8RYEhKrk+XkRQjD6vsCXIJPPKTrl41exQAAACQUhBgSErZQkvEy9VT0ZLOKpvVkZiwcq3ZowAAAICUggBDUir5tMdeFXXeh8Nqs0iK2nzA7FEAAABASkGAISllzKhfMj4jKUEuWe2RGztMyzSkr9mjAAAAgJSCAEMSe3bf0F1zj+xUKZsjofIL2S3p/MxeBAAAAKQUBBiSWKZAW8lm+X/xqyrp8oIfzZ4DAAAApCAEGJLFjZLVJCV+94PZQwAAAIAUhABDssjQsEqibJmORejOHbO3AAAAACkFAYZkUb5Ouj0q7mKP09atZm8BAAAAUgoCDMmiSBFt9agmad/otQfSVbjW6z2zFwEAAADmI8CQ9E6cUIRfrWrWjZKsG38ofCPCa9IoxcaavQsAAAAwGQGGpHfkiArf2h58Z4dd1qDrO/eouFv8bX3/vdm7AAAAAJMRYEh6JUtqp0pJOq2cbvaY3a6lJUV/MdPsXQAAAIDJCDAkvUyZdNC3rKRLlsySvLJnSJTNbdkCRUWZPQ0AAAAwEwGGZHGrcBlJ3u4Jkool/rJez9jiYzRrltm7AAAAADMRYEgWnlXLSsqecNIhS95zm2e7tpeUMHGy2bsAAAAAMxFgSBZBz+S5qMx+CVePKsgt4U7WcjkuKcBl/x7t2GH2NAAAAMA0BBiSRenS2qHSkk5Y8klqkmVzuNpI0vLl5g4DAAAATESAIVlkzqzDfmUkWXy9JeU+8cOOuu9srfOe2rY1exoAAABgGgIMycXWsvlB96fOlGssKd2vP4Uv8y+/epDy5jV7FwAAAGAaAgzJpefnRQvH/OL3cpsjKuAWd0u7dpm9CAAAADAZAYbkVaWKvlcNSfalfPoLAAAAaR0BhuSVKZO25GwmKX56uBwOs+cAAAAAZiLAkOzc6tU8oxzuZ44qIsLsLQAAAICZCDAkuwbPWb/RC5I0a9bBg5r+/GJ7thz66SezdwEAAABGI8CQvE7/cqWa/+5F3q0lJc76Jnx6/C+LT1rPRWrYMLOnAQAAAEYjwJCMTp/WnlIdfKqWKlfVY6+K2q5eapZuzWy1irO4a9UqnT1r9kAAAADAUAQYkpGrq246fCwO+ws5N81WK0nFf53lli3TUkcDJSRoxgyzBwIAAACGIsCQjLJk0WG/MpLyR2371r21XVYtWtTm2etT1UmSpkzhvogAAABIUwgwJK/oomUlWXZsL/BMro2qYomJ7pxp0WrVjbTl0rFj2rDB7IEAAACAcQgwJC/faqUSZfM7sadpg5hZai2pQMSsXHmsUxM7SNLUqebOAwAAAIxEgCF5Fa3gc1CFbfb4RkF75tuaR8tT69d3rh85XR0dFqvmz1dUlNkbAQAAAIMQYEhepUtrq8pLSrf7x6KV0q1Ufdnt7T3mnFCeH91qKSZGmzebvREAAAAwCAGG5JU9uzb5h0mKmzWvUSM5r0LM8cOssDBNK/e5xo5V7dpmbwQAAAAM4mL2ADz5oirUv7HKz/fXHY2fjX+rb4Oryphh585lv+5V0aJSL7PXAQAAAMbhDBiS3duDPL9qtjR69sJcQa5FSrh962giSV9/bfYuAAAAwGgEGJJd2bLqObeqV4tnJf1xFaLCw2W3m7wMAAAAMBYBBkM1bqyNqnLKllenTmnTJrPnAAAAAIYiwGCokBAVLGQJT2wpSbNmmT0HAAAAMBQBBqM9/7zC1UaS5s6NuR47frxud39NGTLoxAmTlwEAAADJjACD0Ro10gEF73MrqaionR+u6NlTEWuvKypKkyaZPQ0AAABIXgQYDHL2rD5ouCs+e55yp77NkUPT41pLKrl/ltWqjyI7SNKXXyo+3tyRAAAAQLIiwGCQ777TriWnXc+etIwc8dxzmq1WdovNc93S+uWvro+pdCN7sM6f18qVZs8EAAAAkhEBBoNUq6a1ljo3LX6KiGhV4dg5Zd3qXVNxcf3yzJe00L+jJE2davJKAAAAIDkRYDBIzpwqWNxjuSNU0tPnFmTKpEm3WkuqfHKWi4vePdxerq5asUJnz5q9FAAAAEguBBiMExameWomyTp/XmiovlXTeDdv159/bFH+RGR85pPFGighQV99ZfZMAAAAILkQYDBOWJhWKPSW1U8REW0qHrst7w2+z8rh6BP4jaSp6iRJkyfL4TB5KAAAAJA8CDAYp0IF+WX2WGoPk1T9ynxvb4272lpSqX0z3dw0fE89e45cOn5cly+bvRQAAABIFgQYjGO1qm7d369CdF00r25drXTUu+MbaDu0/406v7h72a7MXKEVKxQQYPZSAAAAIFkQYDBUWJhWqV60zUfbt7eoE5UglzXpmkkaXHjWhQsKqB6ievXM3ggAAAAkFwIMhgoNVb4Qz/DqUzRwYJ3m/m5uGnmutSTNnu3hmmj2OgAAACB5uZg9AGmLr6/27pXUQpK/VL261qypcCNLQb+zh7Vhg555xuyBAAAAQDLiDBjM1KiRJK1I11KSZs0ydwwAAACQ3AgwmKlRI1mt+vBkW1ksmj9fd+78/kBcnOx2U6cBAAAASY8Ag5kCA1WhgvbFBF3NX043bmjp0s2bdXx/tPLlU2io2esAAACAJEaAwWTOqxCXpWstKW76rCpVFPqsTbdva/VqHThg8jgAAAAgSRFgMMfx49q95oIaN26Tdb2kQYdfkKur23erSue+fPCY25kKTSUpPNzklQAAAECSIsBgjkaN1D9slxYuzDL2neLFdfRGwKWSdRQf/2GxOZI+v91WksLD+SQYAAAAniQEGMyRL5/WJVSP8/BTRMSL1Y9JWurXWlKNs7NcXTX85yqJufLq1Clt3Gj2UgAAACDJEGAwR1iYYuSxNWOopGa2BZIG7Xle6dK5bv/5pZpH4hMsW/K1kqSZM83dCQAAACQhAgzmCA2VxaIJl5pJyrZpXr58OnnR82LF5yX1CfxG0ruH20vSvHmKjjZ1KQAAAJBkCDCYI2tWlS6tRXGhCV5+iojoXPOYpCXeLSXlj5idP79+OFvgRsEyznvTmz0WAAAASBoEGEzjvApxd/ZQSS3dF0gauu0ZZc6sgwffDNsraZ53B0n6+WczVwIAAABJhwCDacLCJOmLqGaS8myblzWrjp50uVK1kaSW1jkBAdoY3FUzZuitt8zdCQAAACQVAgymKVNG2bJp5uX6di8fbdvW9pmzkpZ5t5DkveTr06c1PdxV7dopMNDspQAAAEDSIMBgGotFDRsqWp4HWnyg0NDazdNLGvNLNWXLpqNH3ffttFjMnggAAAAkKQIMZho+XKtWKXhKPy1bVq2eZ/r02rXber1WE0maM8fsdQAAAEASI8BgJh8f1a0rq1WSXF1Vv7509ypEffONHA4zxwEAAABJjQBDCtKihSQN/bGicufWqVPautXsRQAAAEBSIsCQgoSGKksW7d1nuVClqSTNmeNwaNo0nen7qXx9tXu32QMBAACAx0KAIQVxcVHLlpI0M66FJM2Zc+RgYqdOWjL9im7d0oQJ5s4DAAAAHhMBhhQjLk4fffTy07skfbyurCMov86dK3BxU1CQxl9rLUnz5ik21uSRAAAAwGMgwGC+vXuVIYMWvROh/v3zj+xWsqSuXtWhYk0lWebO6dhR+1XkuH9JRUVp+XKzxwIAAAD/HQEG8125oqgoDV5ZRn5+iojoHXZU0oQrLSRp3rxO7RNcXTX+RltJmjnT1KUAAADAYyHAYL5KleTvr537PW5VC5PU3GWBu7sm/lwioUCwLl3KcnDDs89qpr213eqiFSt0+bLZewEAAID/iACD+VxcVKeOJG0MbCrJa9WC0FAlJCgidzNJmjOnSxddVOaN7rUUF6d580wdCwAAAPx3BBhShLAwSZp0sp68vbV1a7ew05KGHG8pSfPn160RFxSkydFtJCk83MSdAAAAwOMgwJAi1K8vm02rfvRKeKauHI5atxZlyaLlRwtH5y+mqCjL+nUvvqiFahTt6qctW7gXIgAAAFIpAgwpQkCAypZVbKz25G8sybp4YatWkrQu4+9fCNali4JLey3suETffit3d1PHAgAAAP8RAYaUwnkV4ldXG8jNTT/+2LnRFUkDD70gi0WLFgX4xmzfrlaTqqlRI5OHAgAAAP8VAYaUwhlgKzenU7t2CggILmIpVUo7rgVF5S2lGze0erXZAwEAAIDHRYAhpShZUgMG6PXXpcmTde6cMmRo316SFrn/fhWiufMAAACAx0eAIQUZOFCdO//5j61by91dg4+8IItFixfr9m3zpgEAAABJgABDypUxo8LCdDwh59lcFXTnjlasMHsRAAAA8FgIMKRozqsQv4r98yrEmBi93+tqdI4C6tvX1GkAAADAIyPAkKKFhipLFo0939xhtWn5ct24sXevJn0W7xZ5XBMmKCrK7IEAAADAIyDAkFI5HFq50uX29VatdE5Zf8tSWTExWrq0VCl55gn8TjUVG6u5c81eCQAAADwCAgwpzi+/6PnnFTllpUJD1adPx46S9HnU71chWq3q1Ekz1F6SxoyR3W7mVgAAAOBREGBIcdat0+LFGrMmWJIWLCiaP6ZUKc2MbuqwuWj1al292rmzFro2P27JpwMHNG+e2XsBAACAf4sAQ4rz/POyWDRpTV57sad086a++65DB11SwO701RUXp8WLs2RR3QauQxxvS9KgQZwEAwAAQGpBgCHFyZ9fZcroxg0dDGkiSfPnO78QbOLVP++F2K2bZqj9KVte7d+v+fNN3QsAAAD8WwQYUqJWrSTpi8uNJWnx4gx+CQ0aaJ69SaLNTevX6+LFOnUUXNz1o8S3JGnwYDkcZs4FAAAA/h0CDClRq1ZycdHEH0MSCxTWlSv68cf27RWl9D951FJCghYulNSnj75Uh/OeeXX4sG7fNnsyAAAA8M8IMKREmTOrRg3FxWlvwcaSNH9+/frKkkXTbv95FWKbNmrd0e2noT/pl1/k42PqXgAAAOBfIcCQQjmvQvz8YmNJWrTIxWpv3VoL1SjexVM//KCzZ93cNG2amvbOpsKFzZ0KAAAA/EsEGFKoxo3l6anJO0olFgzWtWuKienYUTflu8ZSV3Y7N94AAABAakSAIYXy89OHH6pxE4t9/ffavVteXiEhKl1a4fF/XoUIAAAApC4uZg8AHqpvX+f/DZQCnT+1b6+3djwXY/P22LxZJ08qd27z1gEAAACPjDNgSE1at1aiu9dSe5gcDn377T2PRUdryBAdPmzSNAAAAOCfEWBITTJkUIMG+sbx/1chtmypV0tu0Lvvqm1b08YBAAAA/4QAQyrToYNWKPSmNZ22bdNvvzkPHj2qzw/ViPbPqogIrVpl7kIAAADgYQgwpB6XL0uqV0/ps3ostj8rSXPnOh/p2VMx8pjg0VeSBg40bSEAAADwtwgwpHQJCXrtNW19d4kyZ9b48S4uat1a4WojSRMmKDZWUsuWypFD75/vHuefWVu2aO1ak0cDAAAAD0KAIaU7c0affKJx461yODRtmqQOHbRadffYSioyUuHhklxd1b27bst7VmBfSfrgA1MnAwAAAA9GgCGly5NHISH69nrtBC8/7dypY8dCQlSmjIYn9pOkESNkt0vq3l3e3up9uGdihgBt3qzvvjN5NwAAAHAfAgypQMuWipX79syhkrRwoaQOHfSNXjjrGaRDh5xH0qdX+/a65fBeGvSKJA0YYOZiAAAA4EEIMKQCbdrIYtH4c40lacECSe3aydvPNiT6VUkaNsz5tFdekdWqrr/2sqfPqE2bdOyYaYsBAACAByHAkArkzq0KFbQgNizR3UtbtujsWV9ftWmjqep0wyuLtm3T+vWSChRQw4a6FOP76xsz9d57yp3b7OEAAADAPQgwpA6tW+uOvLanry27XYsWSerZU7EWj9EJPaU/T4JNm6bVq1X8zfoaNEg2m4mDAQAAgPsRYEgdmjeXq6smXfrzKsTgYNWooU/jesZ6pNPatdq+XZK/v+rUkcVi7lgAAADgwQgwpA4BAapdW4sSn010cdfWrc6DPXroutLN9OwqScOHm7kPAAAA+BcIMKQab76pHMXSHx65RPPmOY80bKg8efReVF+7m4fmz9fhw+YuBAAAAP4eAYZUo2pV7dmj4D51VK+e84jNpq5ddV5Z1mZpK7tdI0c+4GXHjys21tChAAAAwEMQYEjdunSRh4d6nXlTNpu++kqRkc7jiYlasUJ3fjmsAgXUvLm5IwEAAAAnAgypW6ZMatFCR+xBe/I3VmysRo92Hl+wQGFheuuTAHl5aca1j7QAACAASURBVMkSRUSYuxMAAAAQAYYnQO/ektTz7DuyWDRxoq5ckVS6tGw2fTEv/e2OPSXpvfdM3QgAAABIBBieAKVKqXx5bbxZIjK4lm7f1sSJkvLl0/PPKzZWY137KX16rVmj5cvNXgoAAIC0jgBD6rN2rRa9vEYhIdq2zXmkRw9JGhT7piSNHq3btyW9+qokjZyeMe6tAZLUr5/i400ZDAAAADgRYEh9+vfXTxN/1f79GjrUeaRFCwUG6oujz9wMqaArVzR9uqRKlVShgq5e1Zc+PRUSokOHNGGCqcMBAACQ1hFgSH1q1dJMtY23eWjxYh09KsnNTV26SNIU/9ckafhw58ku50mwT8a4OIYOk6SBA3X5slmzAQAAAAIMqU+bNrqozN+6vKDERI0b5zzYvbtcXfV2RKOEgkV0+rTmzJHUpIny5dPhw1quMNWtq6gojR9v6nYAAACkaQQYUp/gYD31lIbE9pPFomnTdO2apGzZ1LChYuOtKwr3laQhQ2S322y/fzzss8+ksWNVvboqVTJ1OwAAANI0AgypUuvW2quiewKe0c2bmjzZedDZWr22tXPkzKUDB7RihaQuXVSihPLnlwoW1Pffq1YtE2cDAAAgjSPAkCq1bStXV717pa8kjRnj/MRX9eoqXlynzrn+UrW3JH30kSRfX+3apc8+M3MtAAAA4ESA/Q1H3I1zR/ft3PrTD9+tW7tu/YYfN2/bfeD4hZvxDrOXIUsWPfuslifWu5y5iCIjNW+e83j37pL0+tFuyphRW7bop5/MXAkAAADciwC7X8zpTeEf92hYLm96H/9s+YuWrlCl+jO169SuVaNapXIliuTLks7bP9dTNVu+OnLO1rMxZo9Nw7p2lUOWUZa+kvT9986D7dopQwat3+J9rtHLkjRsmHkDAQAAgP9HgN0j9tiS/mFFC1dp+86EJdtOXH/wqS5H/I3Te77/ZvTrLzxdoEjd18J3X+eMmBlq19Zzz+lM7Y6aPVuDBjkPenmpfXtJGhbTR97eWr5cv/zygBc7HNq7VwkJBu4FAAAACLA/OW5u/6Rh5SZDVhy945AsrumyFyxaLDhPRg+LRZJkTRdSp8nzYbUrlwgK9HaxSJLjzvE1n7SrXLX7t8fjTN2eJlmtWrxYM2Za1bKlsmb943iPHrJa9cX8jDGtXpTDoU8+ecCLv/1WxYrptdeMmwsAAAAQYH9wRK16rflba84lOCzewc2HLdt/8fKZQ7/u2X/84qXfVo1sXsjLYr9x8nJQn5mrN+767fz1K0c3zx/Vs3Y+b4sct/Z80abBm99zHiyFCApS3bqKjtaXAa/L1VVff+38smZJ06apeXPduiWFhMjFRRMm6MABc9cCAAAgTSHAnBKPTBk040SCw+L5VN9lm755I6ywv4vzEatPvjr9vt4Q3ja39dbOT9r1W3bVIdn88j7d+JVxa/buCH8xxNPiiD0woc+InZwFSymc96MfOiuno8ULSkzU6NHO40uXat48TZwoFSmirl0VH6/evc0cCgAAgDSGAJMk2U8tX7Iz1iFb3s6jB1VPb/n/x61ZGn709jPelsQz34yZE2n/47hnoVafz/+oqo/FEbdv+hcbog0djYcKDVXBgjp5UhuefltWq6ZM0fnzkl56SZI+/VQxMdLgwcqQQevWaeVKk+cCAAAgzSDAJEkJh/YdSpBsWes3quj1wGdYs9WpX9JVjpifV/9w468PuBbq2L2en0X2iz9u2Mc9Hcx19KjOnZNksahrV0kaujhYDRooJsb5RWD16qlkSZ0/r9mzpQwZ9O67ktS3r/NrxAAAAIDkRoBJkhyxMTEOyZopMMD2kKdYAzJnskqO+PORFxPvecSnQKEcNinx7KnIxIe8GMnso480+bNYPfWUKlZ01lSnTvL21tq1OtnqbUkaM0YXLkjq10+Shg+X3S716qWCBXXwoD7/3Mz1AAAASDMIMEmSNWNAJquUeO7E6Yd9kMt+8fwluySLu4f7vZcoOm5cv+GQLG7//wCMkZCgQYP08qvu8Tny6sQJzZ0ryd9frVvL4dCnmyuoYUPduqWBAyW98IKCgnTokJYskVxdNWKEJL3/vq5cMfe3AAAAQFpAgEmSXIqUKeFlkf3SivAVlx94N0P7iWVLdsZLVr98QZnv+Vu7+cPc5WcTJVtQoaCHnT5DcnJxUcOGSkjQ6uBXJOnTT53He/eWxaLp03XrvWFycdHkyTpwwGZTnz6S9PHHkqTnnlOtWoqK0owZJs0HAABAGkKASZIs6es0r5vBKvuFOX26Tj5w5/8fv717bPcPN0Y7ZPWvFVbJ84/jjhu7P+/YefKJRFncn2oYlo8AM4nz7hqvbG+jLFm0c6c2bJAUEqIqVXTzpr7aWkgdOyohQe+9J6lTJ2XKpIgIbdwoSZo4UW3bqm5d8+YDAAAgrSDAnCwBTd7rV9bb4kiMXNj96XJN+09ZEXHgxJkzx/f9vOyLdxqXrdJvzSW7LO7Fer7+nL8kyXFl/UdNSuUv+/L8kwkOi0vedoNeCqa/zFKzpgoU0NEz7odrdpOkUaOcx533o//sMzk+GChvb82fr82bvbzUs6eku7c/zJ9fX32lkBBTlgMAACBNIcDuci3++tcTmuZytch+fd/8j7qElS+SN2fOfEUrPvvSxwsP3LRL1gw1hsx8u5Sb8/n2qzuXLv3lUrxDFpds9Ud++2n9DHwCzDQWizp3lqQPr74sT08tXaqDByU1bqwcOXTggL47kFWvvCJJb70l6Y03NGHC79ciAgAAAIYhwP7kkrfd7M1L+tfP63VfSVlcMpbqPO3HJX2Ledxz3OqTr2a3cRt2Lu5T0sewnXigF1+Uu7tmrw241aitHA6NGyfJxeX3+9F/9pn05psKDNTGjVq61NNT3bsrMNDkzQAAAEhrCLB7uGSvN2jFgcM/zx39ZqemYc9UrlilVoMW3d7/fNnu37ZNbh/i/Zen2rK3mLo78uJv6yf2qBToYtpi3JUpk55/XomJmpH+FVks+vJLXb8uqWtXeXho6VIdu+Srd96RpDfeUAJf2QYAAAATEGD3c89evlmfoVPmLVu3cdOPa5d+M/GDl0KL+N/3N+WVKyQ4iyeXHaYgzltxjFsXrFat5Osru11SYKBatlRiosaOlbp3V/78Onjwofc8TEjQpEk6ccK40QAAAEhLCDA8OapXV8+e6tBBCg/X+fNKn955vG9fWSyaNk3X77hq8GBJGjBAd+672aWkH39Ut26qXVvXrhm3GwAAAGkGAYYnh8WiceOcd9m4R9GiqllTN29q6lSpRQtVqKCzZzVmjPPRY8d05szdp1asqJIl9dtvatPGeQINAAAASEIE2GOLiTp3NjIyMjLy7NUYs7fgYV59VZLGjlVCokVDh0rSxx/r4sXERJUoofLlFR0tSfLw0KJFCgjQ8uUaNMjEwQAAAHgicfeIxxW7ulehRrNuOiSPZvOuzW3qnmTvHBERsWDBgv/wwsjISEnx8fFJNiX1Cw1VcLAOHNCiRWratJrq19fKlfr4Y9uoUYULa9s2ffmluneXJOXKpa+/Vt26GjRIxYurcWOTpwMAAOAJQoClXIMHD162bNl/fvm5c+eScExqZ7GoVy+9/LJGjVLTptKwYVqzRhMmqGfPN94IatZMI0eqSxe5OP8f4pln9NFHeustdeig4GAFB5u8HgAAAE8KAizl+vTTT6tWrWp/9E8ijRs3LjIyMnv27MmxKpXZv18TJ+rtt5UtW/v2eu89bd6srVtVvnwxtWmjGTM0YEDjmbMKFNCRI1qwQM2b333hG29o507NnatGjRQRIT8/M38LAAAAPCkIsMflVnXgd1t6JToka8YCbkn5zgUKFHj99df/wwvnzp0bGRlps9mSck2qYrerdWvlz6/BLvP02WeKi9OkSV5e6tpVH3+s0aP19dfSRx9p3jx9/bW1b99+/Up366YhQ9SsmSzObxawWDR1qvbu1f79GjHi93snAgAAAI+Hm3A8Lkv6oDLlypcvX7582fwZ+FawlCE2VosWacgQRVZrJatVM2bowgVJPXvKzU3ffqtTp6Ts2dWjhxwOvfZahw7KmlW7d2v9+r+8i4+PFi1SjRp6+mmzfhEAAAA8YQgwPIE8PdWkiex2fb6+gMLCFBurSZMkZcumZs2UkKDPPpMkvfOOMmbUhg3uP6zp1UuShg+/940KFNB33yk01OhfAAAAAE8oAgxPpq5dJWnKFCX06SdJY8bo+nVJfftK0uTJunVL8vf//VvDXn+9+0t2X1+tXau9e03bDAAAgCceAfYPEm5djjx+aO/uXTu279j168HfTkReupVg9ij8s6pVFRKi8+e17GY11aihq1f16aeSSpVSlSq6dk1ffilJ6tlTuXNrzx7/FbP791f27PLwMHU3AAAAnmgE2ANER26Z++nr7epXKJTFx9MvIEe+wsVKlCpTtkyp4sEF8uYI9PP2z1mkQmj7t8ct2Hr6jsPstXiYzp0ladIk6cMPJenTT3Xxou5+KfOYMbLbJQ+P379wuX//N/rEnjmj/PlNGwwAAIAnHgF2D/uVrZ+/VDFfvoot+o2cuWrr4Qu3E+4LLIcj7vqZA1tXfjW0d5Ong/KU6zDmpwuJZozFP+jQQV5eWrNGx7NWVGiobt3SyJGSGjZUUJB++02/f8tamzYqWVInT2r8+H94x19/VZEimjo12acDAADgCUWA/Snu6OwOT1d7+Yufz8c5q8ti88qYs1DJitVr1Q199vlGzz8XVq92jUqli+TJ7OPqvN+hI/7S9hmv1izXdNK+aDOn40H8/dW4sex2TZ0qffihLBbNni3JapXzlhujRknOfx4yRJI+/FBXr/7dO964oQMH1L27Nm1K7vEAAAB4IhFgd0VHDGryYviRWIcs7tmebvfBtNW7TkbduHzq4M5N369dtXzJwgULFy9buea7n7bvO37h+vVz+36Y80mv0EJ+VjniTy3u3fiN9de5GjHFeeklSVq8WCpZUrNm6fPPncdffFHp0mnDBu3aJUmqV0+1aikq6r7bIN6rUiX166f4eDVposjIZN4OAACAJxAB5mQ/Nf2dUXtiHRZb9udGb9q3acb7HeuUyOn7sK8ytnoGFqnavO/Y5bt3L+xV0tviiDsy+d1Jh7kSMaWpXFkjR/7+IS+1bKkGDZzHfX3VqZMkjR5996kjRshq1ZgxOnVKksOhfftkt9/3jsOGqU4dXbigpk0VG2vArwAAAIAnCQEmSbKfXjTnp2iHbDk7TZ3Zu7T/v/5CZfc8z42aM7iyp8URu3Ph0uMUWMrTr58aNXrA8d695eKib77RuXOSpBIl1Ly5YmL07ruSvv5aRYvqtdfue5nNpvBw5cqlLVse9DAAAADwdwgwSVLC/l/2xTtkzRzarIbfI77WFtSkWTlXKfHIfk6BpSK5c+v55xUXpwkT7h766CN5eio8XOHhxYvL1VVjxujnn+97ZUCA5s+Xu7vGj1dEhKGjAQAAkMoRYJIkR2xsnEOy+Pj6/OuTX3+w+vn7WSVHXGwcnwJLVZz3o58wQXfuSJLy5dO4cZLUrVtR6/433pDdro4dFRNz3yvLlFHfvnI41KePHPynDgAAgH+LAJMk2XLkzmGT7Gd27Dx3/8d+/kH07m174yVrYNZA/jpTBbtdy5fr2rWKFVW+vK5e1axZdx/q1Ent2+v2bTVv/l6/OyEhOnRIgwc/6E3efltZs2rLFv36q3HLAQAAkMpRDJIkl+IN6ue2yRH9w7C35p1+lAsJHTcjRrw940SirBkrVS/ummwLkYRWrlSDBurYUdIrr0jSJ5/85TzW+PEqUkT79rn36zl1qmw2DR+uHTvuexNfXy1YoKFDVaSIccsBAACQyhFgTm7lX+pVxc+ixFPftHu67hszI8798w3uEq8dXD6yTcXaA3++4bC4hXTpUdvbgKX4TxwOlSqlmjXlcEhly8rbW4sXKyKiaVPlyqVDh7Rmzd2nentr7lx5e2v69PIHvuzdWwkJevFFxcff96YVKujNN+XiYuhvAgAAgNSM/+34O1vBlz8fsa7Gy8vPxUWuH9GuwuhX8perXLl8yeB8uXNkzZTO28PDzcURHxMTfevK+TOnjx/evW3zT1v2nr9jd0iy+lcaMPXtsu5m/xL4O5cuadcuff+9atbMrN699fHHeu89l9Wre/TQm29q1CjVrXv3qSEhmjxZrVqpe/chG0ouWfLUnj0aPtx5f0QAAADgv7M4uIXAn6IPfNWrZZ/pe67Z//1fitW3SMthM8d3K5Xu0W/fkUxKly69c+fOhg0bLlq0yOwtKcjgwRowQI0aacEC6do15cunqCh9//21EtVz5tStW9q9W8WL/+UFL76o6dNVsOCPn26v/qxvgQI6dMi08QAAAE+etm3bhoeHz5w5s02bNmZvMQ6XIP6VZ3C7KdsP/TxjQJuqQelc/j6oLC5+eSu1fGfaxoO7wrunoPrCw3TrJnd3LVmiEyckf//f74HYv7+/v9q3l6TPPrv3BRMmqEQJHT5cNbzrokX68kujBwMAAODJwxmwh4m/dnzP9p2/Hjp6MvLClahb0XEJcvX09vHxSReQK3+hQoWLPlU0j3/KvOkGZ8Aepk0bzZqlt9/WkCHSrVsKCtLFi1q16ki+uoULy9VVJ08qMPAvLzhyRGXK6MYNTZmiTp3+7q1//VU//6zOnWXlX2oAAAD8K2nzDBifAXsYV/+8pWvlLV3L7B1IQj16aNYsTZ6sAQPk4eOj11/X66/r3XcLbKsTFmZZulSTJ6t//7+8oEABffGFXnhBPXuqVCmVLPnQt+7fX0uWSFLXrsn9WwAAACD14t/WIw15+mmVKaPLlzVnjiSpRw9ly6YdO7R5s/OCxHHj7vva5RYt1KWLYmLUooVu3HjoWzv/tU3//rp2LbnWAwAAIPUjwJC2vPyyJI0dK0ny9NSUKWrWTMHBNWqoRAldvKi5c+97zdixKllSR46oS5eHvm+zZqpWTZcuPeRrmwEAAACJAENa88ILypxZe/cqLk6SVL++5s5Vhgy6+6XMQ4fefegPHh6aO1d+fpo7V5MmzZypGjUUGXnfW48eLZtN48Zxt0QAAAA8DAGGtMXTUz/8oE2b5Ob2/w+1bKnChXXggEaOvO9l+fNr8mRJ6tMncunODRv00kv3PadECXXqpPh49e2bHMsBAADwBCDAkOYULqwyZR5w3M1NkybJYtGHH+ro0fsebt5c3bopNvb17S3ypL++fLnCw+97zocfyt9fK1Zo5cpkGA4AAIBUjwAD/lS1qtq1U3T07x8V+3+jR6tUKdvx377P30XSq68qKureJwQE6L33JKlvX8XHJ/tcAAAApDYEGHDXzZu6deuTTxQQoDVr9M039z3B3V1z5ypdujzb5o0pOP7yZQ0ceN9zevZUoUI6eFAHDxqxGQAAAKkKAQbc9dRTCgnJ6Hln6FBJeuWV+05wSQoK0ldfyWLpdaJfOduO8eO1d++9T3Bz04oV+vZbFStmyGgAAACkJgQY0q6rV7V//1/+OUsWnTqlceM6dlSNGrpwQe+++6CXPfeceva0xMUu8WllTYhzfoHYPfLlU5MmyTUaAAAAqRkBhrSrZUs99dRfGmzQIEkaPNhy+NDEiXJ316RJ2rz5Qa8cMUJFigReP9zXc+K6dfr+e6MWAwAAIJUjwJB2FSighAR99tndf65VS23a6PZttWpVKE/sa6/Jble3bg+6m4a7u4YNk/SBZWAun6uurkauBgAAQCpGgCHt6tFDFotmztT163cPTZyoggW1c6feffe991SokH79VWPGPOjFDRqoVi33O1Enuw+tXNm4zQAAAEjVCDCkXcHBqllTt25pxoy7h3x8NGuWXF316afu65aPHStJ77+v48cf9PoRI2S1asyYB31r2F1r1+rNNxUbm+TjAQAAkBoRYEjTevSQpM8+k91+91CZMvrgAzkc6ty5TslLLVvqzp3fn/b/SpRQq1aKi9OAAQ/9AyZM0PDhGjkyyZcDAAAgNSLAkKY995zy5NGRI1q37i9H33pL1avr/HktXTpqlNKn18qVWrDgQa//+GN5eenrr7Vt24P/gN69JWnoUJ09m+TjAQAAkOoQYEjTbDZ17SpJ48f/5ajVqnnzNGGCWrQIDNSQIZLUs+dfPir2hxw51KuXHA699pqkmJj7nlCjhho31q1b6t8/eX4DAAAApCYEGNK6zp3l4aHly3Xy5F+OZsqk7t3l7S2pa1dVrKhz5/7H3n3H5di2cQD/XXd3W5FUQpEVycweeewts7JHVlZm1lPZRUWPvUllZa8kErLJ3juyt7S7r/cP8t4U6u5Oxe/719O5ruN8Py8fR9d5HSfc3NKaP2kSjIxw5EjIsJ26uti5M9UAT0+oq8PXF+fOZdEWiIiIiCi3YAJGfzsDAzg4QCpFbGzaAyQSLF0KVVXMn49Tp1J16+h8vrC5+mZnJCY6OaVap3hxDB0KmezzWzIiIiIi+psxASPC/Pl48wZlyvxwgKUlRoyATIYhQ5CcnKp70CCULp332c2ppisePIC3d6oB//6LAgUQFobt25UaOBERERHlMkzAiCAI0NL6xZjJk1G8OM6dk7u4+StVVbi7Axj9wS2v8MHdHZGR3w7Il+/L+UVn57TudSYiIiKivwUTMKJ06NxZy9xk5dQoAC4uePw41YAOHVC3ruq7lyvNZ8fEpFVxY9AgWFjg7l08f/4b4iUiIiKinIkJGFE6SCR4/PifVT07dZB9/Agnp7TGeHtDEDo8mGOuGenvj/Dwb3ulUoSG4uxZFCnyOwImIiIiohyJCRhROsyfj4IFERq6qqxn3rzYujWtaofVq6NzZyEudl0pN1H88s3YN4yMULnybwqYiIiIiHIkJmBE//fqFUaNwvXrqToMDbFmDQRBZ9a/yxxOARg2DNHRqYZ5eEBdvcqVtc0MIs6dw549vyFkIiIiIspNmIAR/V9ICObORffuaZU6bNYMw4cjKcl2R7f6lT9ERmLKlFRjzMwweDBkMv+CYypVgpnZ74iZiIiIiHIRJmBE/9euHYoVQ0QEli9Pq3vWLFSqhLt3txRxUlHBf//h9u1UY1xcoK9f4PKh8+77LC2zPGAiIiIiyl2YgBH9n6YmvLwAYNIkvHqVqltdHevWQUtLf9eaRfU3JiZi/PhUY/T0MGECAIwahaSkHz5p6VKMHp3qKzEiIiIi+sMxASP6RseOaN4cb96kVUoeQNmymDMHQG/ZKh0dbN2aqtohgGHDUKIErl+Hr+8PH7NsGebMwZo1ygqbiIiIiHIFJmBE35s3D+rqWL4cp0+n1T1wIAID1RbOHTUKAEaPhih+O0BNDdOnA4CrKz59SvsZY8YAwMSJ+PBBeYETERERUU7HBIzoe6VKYfhwyGQYMuQHhwQ7dYKFxZgxMDbG6dMIDEw1wM4OtWvjyRN4eycnIzgYsbHfDrC3R506eP78y5FHIiIiIvo7MAEjSoOLCwoVwtmz8PP74Zg8eb4UQhw/HvHx3/YJAry8IAjw9Nyz4mnz5mjU6Nt3XV8HeHkhMjIrtkBEREREORATMKI06OjA2xsAIiJ+NqxvX1ha4v59LF6cqq9WLdjYIDq6cfjkYsVw4gSaN/82B6tZE7a2iI3FpEnKDZ6IiIiIciwmYERps7fHuXOYNetnY1RU4OEBAFOn4s2bVN2zZkFVVWv9yuPLrhQvnlYO5ukJLS0EBPzgazMiIiIi+tMwASP6oSpVoKHx0xGJia1O/DumSujbt3B3T9VbujQGDEBysvF/4w8dQho5mIkJhg+HKGLsWOVHT0REREQ5DxMwoky4fRszZrg/6JJX8nHePNy9m2qAmxt0dbFnj+m9sEOHYGaGEyfQogU+fkwZMGECjI1x6RLvBCMiIiL6GzABI8oECwvUry9982JV+bkJCXB1TTXAwADOzgDg7GxqIh48iKJFcfw4WrRIqduhq4vz53HlCiT8w0hERET05+O/+YgyZ/p0AO3veBbVfLF+PU6cSDVg1CgUKYIzZ7B5s5kZDh2CqSmOHcP9+ykDjIxQuPDvDJmIiIiIsgsTMKJfe/sWtWtj7ty0+urWRatWwqdo//KzRBHjx6caoKn55dXY+PFISDAzw9mzOHwYZcpkcdBERERElPMwASP6tXfvcOoUxo/H9etpdbu7QyKpe2lRlQKRR45g585UA/r2hYUF7t3D8uUADAxgbZ3VIRMRERFRTsQEjOjXzMzQvz8SEjBsWFrd5cvD3h5xcX4lpwBwdkZi4rcDVFQwYwYATJnybR16IiIiIvq7MAEjSpeZM1GgAA4exJYtaXVPnw41NYszvi2LXbt5EytWpBrQrh3q1MHLl5gz52ePcXVF+fJy34cRERER0R+FCRhRuuTPj2nTAGDkSHz6lKrbzAz9+iE52cN6LwA3t7RedHl7QxDg7Y1nz+Sb4+Jgbo4WLfDpE/DoEa5cQbt2aT2DiIiIiHI9JmBE6TVgAKpXx6NH8PBIq9vDA6tXl5/Xv25dvHwJT89UA2rUgI0NoqMxdep3PbGx2LcPrVsjxmMeypXDpUvo0QOimBW7ICIiIqJsxASMKL0kEixYAIkEs2fj1q1U3To66N0befN+fdH16FGqMR4ekEqxfLl8NQ8NDYSGonBhhIWhdRed5MCtyJcP27Z9+WyMiIiIiP4gTMCIMqBaNfTqhYQE/PvvD8dUr45OnRAbCze3VH3m5ujTB0lJcHGRby5ZEocOoVAhHDoEn72lsXEjVFTg6vqDD86IiIiIKLdiAkaUMR4eMDWFtvbPxsyaBXV1+PoiIiJV35Qp0NbGli04fly+uVQprF4NAK6uuF+qKaZPhyiiTx9cvarU8ImIiIgoOzEBI8oYQ0M8fPglWfoRMzM4OkImw9ixqfqMjTFiBIDUdzY3bQo7O8TEYMgQYNw42Nvj40e0b4/oaOWFT0RERETZiQkYURa4eXNG0WUFH8al4gAAIABJREFU8stCQxEcnKp33DgYGeHoUeze/V2Pjw/y5UNQEHbsFLByJapUwZ07iIz8PVETERERUVZjAkaUBVxctEYODGiwAsDYsUhO/rZXRwcTJuBzX1KSfE/Bgpg5EwCCgwEtLRw9iogIWFj8prCJiIiIKIsxASPKAp07A2hyfIpl8ZjLl7F2baoBjo4oUQI3bqTuGzQI+/alVEDU0kKlSlkfLhERERH9JkzAiLJAp06oUUN4+sSvxgIAEyfi4cNvB6ipfbnX2cUFMTHyPYKAZs2gp/fbYiUiIiKi34cJGJHi7t6FqWlady4LwufblisFubezfvPsGRo3xtOn346xt4eVFZ48wfz5vydaIiIiIsp2TMCIFBcXh8ePMXkynjxJ1de0KRo1wrt3G6p5V6uGO3fQoAGeP5cbIAjw8gIADw+8fp2u512/jiVLkJCglOCJiIiI6PdjAkakuHLl0KkTYmI+v+5Kxd0dgqC+aO4B36hKlXDzJpo3x9u3cgP++QfNmuHduy+VN35pxgw4OmLYMGXETkRERETZgAkYUaZMnw6pFCtX4saNVH3VqqF9e8TG6i50Dw6GuTkuXECrVt9e6zV7NiQSLFiAe/dSL56UhPbt4eyc8vPIkdDUxLJlWLw4K/ZCRERERFmNCRhRppQujd69kZSEKVPS6p4+HSoqWLPG0EAMCUGxYjhxAu3bIy4uZUCFCujaFQkJmDw59ezERBw4AE9P7NsHALCywooVAODkhLCwLNgNEREREWUtJmBEmTVlCrS0sHEjIiJS9ZUtC39/LFoEQTAxQUgIjI1x4ADs7eUuAJs+HerqCAhIPV9T80teN2gQPn0CAHTtirFjkZgIOztERWXhroiIiIgoCzABI8qsQoUweDBEEf/+m1a3vT169vz8nyVLIjgY+vrYsQN9+kAmAwAULYohQyCTYeLE1LOdnFC5Mh4+lPtMzN0dTZvixQv06JGyBBERERHlDkzAiJRg/HjkzYugIJw48YuR5ctj717o6MDfH/37QxQBAP/+i/z5ERyMAwe+G6+igqVLoaICLy9cu5bS5O8PY2McOgQPD+VvhoiIiIiyDBMwIiXQ14eLCyQSfPz468HVqyMoCNraWLUKI0cCAPT0MHYsAIwfj+Tk78ZXq4YBA5CQgIEDUxI2AwP4+kIigZvbt7XtiYiIiChHYwJGpByjR+PjRzRtmq7Bdepg2zaoq+O//zBtGgDAyQlFiuDcObi5pR7v4YFChRAejtWrU5qaNIGXF1q2hK6ucjZARERERFmPCRiR0mhp/WpEWNjXO5ebNMH69ZBK4eoKLy9AUxN+fpBKMXMmtm79bp6uLry9AWDcOLl7mEeOxI4d0NRU4haIiIiIKEsxASP6Xc6fR4MGaNfua0P79li1ChIJnJ2xbBnwzz+YOROiCAcH3Lnz3Wx7e3TvjhIlIAi/N2wiIiIiUh4mYES/S6lSMDREeDj27Pna1qMH5s2DKMLREevXA2PGoHNnvHuHDh0QE/PdAn5+OHkSqqq/N2wiIiIiUh4mYES/S548GD8eACZMkC8fP2QI5syBTIZevbBrt4BVq2BhgcuX0b9/toVKRERERFmDCRiR8nl5oXVrREen6nB0hIkJLl9GYKB888iRmDDhy+3Kt5/mwdat0NXFunVYvDi9jxRFjB6NRYuUED0RERERZRkmYETKd+gQ9uzB3LmpOjQ0vtzW7OKCpCT5npkz0b07YmPh5ASYm2PZMgBwcsKxY+l6ZEwMFizA0KEIDs58/ERERESURZiAESnfhAkA4OmJFy9S9Tk4wNwct29j7drvenx8oK+PoCDs2AHY2cHJCYmJsLfHy5epHxEbi3Xr5K4d09bG5MkQRfTsiWfPlLsdIiIiIlIWJmBEyle3Llq0wMePmD07VZ+KClxdAWDKFMTHy/fo62PyZAAYPhwxMYCXF6yt8fgx7OxS387s54du3WBnJ/c12bhxaNwYL16gd++UC5uJiIiIKGdhAkaUJTw8IJFg4UI8epSqz94eFSogMjL1fV+OjqhUCZGRmD0bkEqxaRMKFcKhQ3Bx+W5kq1YwMEBQ0JdsDgAkEvj7w8gIwcHw8cmCPRERERFRZjEBI8oSFSrAzg5xcZg6NVWfRIKlS9GmDapX/65HRQULF0IQ4OGB27cBIyMEBkJNDR4e2LJFfmThwti6FaqqmDlTrqKHkRFWr4YgYMIEnD+fNTsjIiIiIsUxASPKKjNmQE0Nq1fj+vVUfTVrYudOlCiRelbt2ujeHfHxGD065Wd3d4gi+vT5bqG6dTFrFkQRffvi6tWU1hYtMGQI4uNhayv3iRgRERER5QhMwIiyipkZ+vZFcvKXL7vSz9MT+fJh166UG5tHjfqSTdna4tMn+ZEjR6J3b0RHo0MHvHsnN79CBdy5w6r0RERERDkNEzCiLOTiAh0d3LiRsVlGRnBzAwAnJ8TFAQBWroSFBa5cSX078+LFsLLCrVvo2TOlIIeGBjZuRJs2qFcv0zsgIiIiImViAkaUhQoVwo0bCA3N8MShQ1GxIu7ehZcXACBPHmzbBl1drF+PBQvkR2poYPNm6Otj1y4EBKS0limDnTtRu3ZmN0BERERESsUEjChrFSoEff2fjoiPx9u337VJpViwAIKAmTNx/z4AoHRp+PpCEDBqFMLD5QcXK4bAQNSsmeY3ZURERESUgzABI8pubduiWDFERn7XXLcuunRBbGxKNQ4A7dph5EgkJqJzZzx9Kj+4QQOcOME3XkREREQ5HRMwouxmZIQPH9IqVw9vb+TNi23bsHdvStOsWbC2xrNn6NYt9e3MP/PiBZKSlBAtEREREWUCEzCi38rXF61a4ckTuSZXV6iqYs2a1MU6ChbEv/8CgJMT4uMBAFIpNm6EsTEOHYK7e3qfeusWChdG3bp4/TrTOyAiIiIixTEBI/qtDh7E3r1o0QLv36c0lSyJ3r2RnIwpU1KPHzEC5cvjzh3MnZvSVLAg/P0hkWDqVJw7l66nGhjA1BSnTqF+/W+TPyIiIiL6rZiAEf1Wc+eibFlcuoS2bVNKzAOYPBmamti4EefPfzdeKoWPDwBMm4aHD1NaGzaEkxMSE9G9O2JiUj/lyBGUL4/9+1N+1tPDsWOoUAFXr6JOHdy5o/R9EREREVF6MAEj+q309bF/P0xNceQI7OxSPuMqVAiDBkEU4eqaekrDhrC1RUwMxo6Va3V3R4UKuHED48alnvL4Ma5cgb29XKpVsCDCwlCrFh48QL16uHRJ2TsjIiIiol9jAkb0uxUpgr17kT8/du7EkCEprRMmQEcHu3dj48bUU7y9kScPAgOxb19Kk7o61q2DhgYWLpSr0fFFly6wtcXbt2jTBh8+pLTq6SEkBE2b4tkz/PMPTpzIgs0RERER0c8wASPKBuXKYc8eaGlh6dKU8ocGBpg1CwAGD05d3rBIEUyaBADDh6dU4/i8ypQpEEX06/dddQ1BwIoVsLDAjRvo3x+imNKhrY2dO9GuHd6+RdOmzMGIiIiIfjPpr4ck7BteZVhQ/K8H/ox6i/kR85qrZW4Roj9IzZoICECnTnBzQ+nSsLcHHB1x9y7evIGKSurxo0bB1xc3bmDePLmziGPGICgIYWHo3x9bt8qP19HBtm2oXh2bNkEqxcqV0NAAAKirIzAQDg5YuxbBwahVK4s3SkRERET/l44ETIx+dvfOnbhfD/wZjWfR4q9HEf1V2rXD4sVwdMSDBylNXl4/Gqymhvnz0aQJpk1D164oXBgAIJHAzw8VKmDbNqxdi5495aeULo2tW9G+Pdatw5072L4dxsYAAKkUa9bA0RGVK2fJxoiIiIjoB9KRgAm6puUsLTP7BsxUV8jcCkR/ov790b49ChRI1+DGjdGhA7ZuxdixWLcupbVIEfj4oFcvDBsGa2sUKyY/pWFDHD+Otm1x+jQaN8bVqykdgoCaNZW1CyIiIiJKp3QkYGpNvc5e/uGv5Ykoc9KZfX3m44PgYKxfj/790aBBSmvPntizB5s2oUcPhIV9d4KxXDmcOgUHB+TPr7SYiYiIiEgxLMJBlJuYmGDCBAAYPhyJiXIdS5bAxATh4fD2Tj2rQAHs2IHVq3+6dFISLl+Wq9dBRERERMqX9QlY3NunT6KevI6RZfmTiP4sSUmws8P06d81jxmDkiVx5QrGj5dr1dPDypUQBLi44OJFRR7n7Y0KFTB7tuIBExEREdGvZHkClnB0fBWTIkXru19IyupHEeV6T57AxQWPHwMAYmOxcydcXLBpk/wYdXUEBEBNDXPnYssWuY4mTTB4MBIS0LUrYmMz/Ozq1SEIcHPD9euZ2gMRERER/VimEzBZ/PtXL57/yOPL2zaGvRKR/Oj+o+9vNiKi723ejOnTMXAgAEBH50tRRAcH3LwpP6x6dcyeDVFEnz64cUOuw8sLlpa4dg3//vvLZ3XvjqJFcepUys8NGqBfP8THo0+f1BeREREREZFSKJ6Aia9Pzu9bx1RXS8/AqOCPmFSwX3krSYQkv4E+Pzcj+pUuXZAvH/buRVAQAGDIEHTtiuho2Np+91LLyQnduuHjR9jaIiYmpVVDA76+UFODjw9CQ3/+LEFAZCT++UeuoKKXF0xNcepUmh+SEREREVHmKZoVJVzytGk+YvXxR59kv/xmX5Do1XLsXV1VwUcR/T0MDL68uxo1KqXGxtKlMDfHpUsYM+a7wUuWoGxZXL6M4cPlWqtUgYsLZDL07Ik3b37yrNWrMW4c4uLQrRucnCCTAbq6WLUKggBXV1y7ptytEREREREUTcDEF5vc3I+/l0GQ6JVt2s1x2IBOVoYqAiR5q9gNHzFixIgRwwd1qWeqIUBQK91t0dFLB5wrqik5cqI/07BhKF0aN25g0SIAQJ482LQJmppYtAgBAfIjP/doaWHlym8rHE6cCGtrREVh2LCfPEgqhYcHli6FqirmzUObNvjwAWjUCH37Ij4eDg48iEhERESkdAolYOK7kC0H3osQNKtPPngm2H/RvKWBh1b3NpaIsdo1R3jPnTt37n+L14Wd2TOmmnbinZA9NxLTcd0YEQGAmtqXL7+mTMGrVwCAChXg6QkAgwZ99zGYpSWWLweAwYNx/nxKq0SC1auho4N167B+/c8fN2AAgoKQPz/27oW1NZ49A7y9UaQITp7Ef/8pdWdEREREpFgClnTzwpVYEYJ2I8dBlbQ/t+nUb1EvDxLPHzv9KWVpw4YzfF1rqb/cO95503NeLkSUXm3aoHlzvH0LN7eUpiFD0LkzoqMxb953g7t2Rb9+iIuDrS3ev09pLV4cc+YAwODBiIz8+eMaNcLJkyhTBhcvols3IG9eLF0K4Lvqi0RERESUeQolYLJXL17LAIlxWfN8QkqjRmmL4lIx/s7NB/8/tqRapt/wVnnFVztmL73Cw0xE6eftDakUy5bh6tWUphUr4OyMfv1SD54/H1Wq4M4d9Oold5Fyv35o2xbv3sHB4ZfXK5cqhcOHYWyM48cRFwe0bImgIKxapbwNERERERGg6DdgycnJACTaebT/P19SpGgRFSHp4d2Hchd+CXlrWVdUFROv7g26ywyMKN0sLODoiKQkHD6c0qSri1mzULly6sEaGti0CXnzYseOb48NLl8OQ0McOIBBgyD7xV3ohoY4exYXL0JDAwDQvDksLJSxFSIiIiL6P4USMImevp4ESH757OX/syohj2nRAoIYfe3yfblUS1LAQF8CJD+484AJGFFGeHpiz54033iloUQJ+PlBEODsjPDwlFZDQ2zcCC0tLFuGvn1/WVSjUCGULp2pmImIiIjo5xRKwKSlLc1VBchenAi/+f/XXSpmpcykSLpx+tyH/x93Et+9fS8CYlxsHL8CI8oIdXW0bAm1dNcPbdPmS/H6Ll3w8mVK6z//YN8+6OjA1xddu6bUticiIiKi7KFQAiYY/NO0ipqAxEtzB08JffrlX3SSQuUtC0jETyErAx6kHHaSRe7YeioBUClYuKCKkkImoh/w8EC9enj8GPb2cq+76tXDvn3Q1cWmTejQAfHx2RkiERER0d9NsW/AVEr2GtHeQALZu/DpjYubNPK+lARArVrzRgUk4qewiR0cl4acuxxxcKWT7aTQaBGSAnXrW7IUPZES+fvDzAxnz8q3SaXYtAnGxggNxbRpch21ayM0FPr62L0bHTogLi49T7h2Da9fAwDmzUPFirh7V3nRExEREf2lFEvAIBTo9N+qAWU0BECMe/XwabQIADotxgyrrC6IHy8sG9S0agWrxv0WnH4rg6BlNXRYYy1lhk3014uKwoMH6Nnzu2yqYEEEBEBFBdOmIThYrsPKCgcOwMAAe/eiXTvExv58+efPUbEiatdGdDRw7x4uXYKDwy8reRARERHRzymYgAGCYauFx8LXTOjaqEqpQrqqn6vRq1YY4ze/nYmqIDdOy7z70nVjK6pmOlSiv9fVq+jeHdevyzWNGAFLS1y/DheX7wY3aAA3N8hk6NoVDx/KdVSqhMOHUagQgoPRvDk+fvzJEwsUQLlyuHULgwcDkyejcGEcPoxFi5S3JyIiIqK/kcIJGABJfqueMwMOnLt+xLVayvlCjbL9N1+5tGuh28gBvXsPGDVj1cErEWu7l0x3HQEiSsPBgwgIwIABchd6qatj7VqoqmLOHBw58t34SZPQogXevIGdHRIS5DrKlkVoKAoXxpEjaNECHz786IkqKggMhI4O/Pywdmc+LF4MAOPG4c4d5W6NiIiI6K+iUAKWfHN/4PFHsT8oayjRLdNq8OQ5S1evXuo9sU8DM549JMqsPn1gbIzwcGzaJNdauTLGjYNMhj59EB0tP14igb8/ihXDqVMYP/7btczNER4OMzMcO4aGDVM+80pDqVJfbhUbPBg3SrVB166IiUH//r+81pmIiIiIfkShBCzp8oqedYsXsmg+yGPjqSjWlyfKajo6mDoVAMaMQUyMXIebG6yscO8eJk36bkr+/Fi/Hmpq8PHB7Nnf9hUrhrAwlCiBc+fQpAlevfrRc/v0Qffu+PQJtraImz0PRkYIC/vyNoyIiIiIMk7hI4hi0rsbwUsn2NcqVtiy1RDPwDNPWduaKAv17YuqVfH4Mby85FqlUqxcCTU1LFiAsLDvptSsiUWLIAgYNw6DBiEpSa7P1BRHj8LCAufPw9oaT5/+6LmLF8PcHJcvw3mWPpYtAwBnZ1ZEJCIiIlKMQgmYinlTu/oldFUEAGLSm2t7Fznb1ihauHybYd5bI54n/HI+EWWYRAIfHwgCPDwQGSnXUbEi/v0XMhlcXVPPcnDA5s3Q0sLSpWjZ8ttvvj6Xqy9fHtevo0EDREWl+dw8ebBuHdTVsWABgtXbws4Onz5h1iylbo6IiIjob6FQAiYt329N2O1nD09unjuyU40iWhIBEBNfX9m9YEzHqqZFKtmM8Nl+4QUTMSLlqlMHnTohNhYTJ37bMWECnJzQr1+as9q3x6FDMDRESAjq1sWjR3J9RkY4eBAVK+LmTdSrh/v301yhShXMng1RxPXrwIIF6NwZbdooaU9EREREfxdBzPT39LKP94/t3Lhh48Yt+y8+j09ZTVA3rNSyW+8+vbs2r1CANeh/Kysrq4iICBsbm+3bt2d3LKRkDx7AwgJxcTh5EtWrZ2Di/fto2RI3bqBQIezejcqV5fpev0azZjh3DmZmOHoUhQunuUJUFAoVgiCk2UlERESUYT169PD39/fz8+vevXt2x/L7ZKYMfcoSOmb1uo1fuPP846fX9q+c3LdJmfyqAsT4F+e3zXVqW8nEtFqnsQv33njPWh1EmVasGJydIYq4eTNjE83McPw46tfHkyewtsbevXJ9+vo4cAA1a+L+ffTv/6MVChdm9kVERESUWUpIwL6S6pVp0tdt5f7rTx9H7Fo4vpt1cV0VQYx7dnaL19COriE8kkikDG5uuH4dPXpkeKKeHoKD0a0boqNhY4MlS+T68uXDjh3Q10dQEAIClBcsEREREX1DmQnYV2qGlZp36d3HoU/7Kvoq/JU5kVIJAsqUUXCuujr8/ODmhqQkODrCyQkyWUqfoeGXAotOTnjxQimhEhEREdF3lJyAJby4HLR8cr/m5QsVLNu4l4vvmVfJIgBBqptXm5kY0e9x9CgGDsS7d2l2CgImT8bKlVBVxbx5sLdHXFxKX+/eaNoUr19j9OifP+HZM9Sti4ED8WjbWVhaYts2pW6AiIiI6I8lVcYiYuyTc/u3bdmyZevuo7ffJn392EuQaBep0crOvot95+ZWxmrKeBQR/ZK/P5YtQ2ws1q790ZC+fWFqik6dEBiIqCjs2IECBQAAy5bB0hL+/rC1/Umpw9evceoUjh3DsxXPdsiuyrr3lJw+iXLlsmAzRERERH+UzLwBk0U/OL5p7mi7usWNTKu3G+rhd+jW5+xLUDes2NrRPeDwnacPjm/0HN7OylhDWQET0Tdevvy2sjyA8eORJw/8/LB1608mNm6M8HCYmuL4cdSqhdu3AQBFi2LyZAAYOhQfP/5obrlyuHoVDg7YJ229Gn0kMdFR1dsf3f0+07shIiIi+sMplIDJHgbPHtq+mqlRibp2o+ZsOvbg45eDhvlKNezlsmzflSdRF3YtGt+1nplOlnxjRkRfNW6MMmVw5Ypck5kZZs4EgEGDfv41l6UlTpxAlSq4cwe1auHYMQDAyJGoVQuRkXBx+cnc0qWxYgXu3cNNp0UXVKwKx9x+16ZHrZpiaGjm90RERET0x1IoQUo8s9Jt4fazUTEyEYAg0Tap2Xm0z9bTkU9vHVwztX8zi/xKOdlIRL9Wty5iYmBnh5gYudahQ9GkCV6+hJPTz6cXKoSwMDRrhtev0bQpwsMBiQRLl0JVFfPn4/jxn08vXBgePhpmEVtitAq0wa6Gp9x79cr0loiIiIj+XJl4QyWoGVRo5TjTP+z20wcnNnk5ta/Kg4ZEv523NypUwLVrGD5crlUQsGwZdHSwYQMCA3++go4Odu9Gnz6IiUG3bnj3DihfHmPHQiaDgwPi438ZQ94KRbW2r4OKynTBZeuAfZnbEBEREdGfTKEETFKs5cRlQZefRF3cvWhCN+viPGhIlG00NLBuHbS0sHLltzd4FSuG2bMBYMgQREX9fBGpFMuWfTl4+OUqZldXlC2LGzcwa1a64mjSBK6ugiir9l/3VB+lEREREdEXCqVOqlV7u/RvXk5fVdnREJECypXD3LkAMGgQbt6U6xg4EM2a4eVLdO78y0WkUvj7Q0cHmzcjIABQV8eSJRAEzJiBa9fSFce//6J1a7x+jT17vraJIpYvT+8CRERERH88vrsi+hMMGICuXREdjW7d5M4MCgLWr0fLlqhZMz2LFC8OHx8AGDIEDx4A1tYYMAAJCXBwkLuw+cckEqxfj4AAyH0HdvEiBgyAtXVKlUUiIiKiv1s6qmUkHJzQcPyBeABqdSfvm9tKR64l3dQbe4S6N+JVYERZZtEinDyJc+cwZcqXIogAoKcn/z7ql/r2RXAwNm1C9+44fBgqs2djzx6cPInFizFkyK/n58mDrl3lGypUQJs22LULrVvj+HHo66c/FiIiIqI/UDoSMPHt3XNnz8YBUC/4KunblnTTMHsr/noUESksb15s2IB69XD5cqbWWbIEJ07g2DF4eGDSJF0sWYLWrTFhAtq2hYlJRleTSLBhAxo0wOnTaN8eISFQV89UeERERES5WnrqxWvqFylSJA6Aur62BACEPAVLlCyZsTdgBfMIisRHROlXrRoeP0aePJlaRE8Pq1ahWTNMnozGjVGjVSt06oTNmzFoUIZepn2lpYXt21GjBo4eRe/eWLcOAv82ICIior9VOhIw9VaLbz9aLN+i1nzeFX7PQZQTFSjwqxGfPsHPD7a2yJ//R0MaN4aTE+bORbduOH8eOvPn4+BB7N2LDRtgb5+BaOLicPYsatc2NpYEBaFOHWzYgLJl4eqagTWIiIiI/iQswkH0l1m/Ho6OqF8fL178ZJS7OypWxN27GD0aKFgQnp4AMGwYXr7MwLO8vFCvHgYMQHJyuXIICICKCiZP/rZcPhEREdHfRKEELPnm/sDjj2L5URdRLtS+PSwtceUKGjf+STalro5166CpieXLERgI9O2LJk3w6hXGjs3As5o3/3JDWadOiItr1Qo+PhBFODsrYR9EREREuZFCCVjS5RU96xYvZNF8kMfGU1FxTMSIcqTEROzahY8fv23V10doKCwtcfkyGjfGq1c/mm5hAQ8PABg8GE+fCVi2DNra8PXF/v3pjaBqVYSGokABbN+OBg3w+vXQoViz5kuxeyIiIqK/kMJHEMWkdzeCl06wr1WssGWrIZ6BZ55mqCgHEWW5wEC0bQs7O4jf/ZbEwAAHD8LSEpcuoVGjn+Rgw4ahVSu8eoVevSAWLfbl460BAxAdnd4gatTAkSMwMcHJk6hfH48f9+qVnnuhiYiIiP5MCiVgKuZN7eqX0FURAIhJb67tXeRsW6No4fJthnlvjXieoOQQiUgxDRqgQAEEBaFPHyQlfdtnaIiDB1GuHC5dQuPGeP06zRUEAatWwcgIISGYPx8YNQpWVnj4EG5uGYijbFmcPIkKFXD1KurWxc2bim+JiIiIKJdTKAGTlu+3Juz2s4cnN88d2alGES2JAIiJr6/sXjCmY1XTIpVsRvhsv/CCiRhR9jI2RmAg8uSBry9sbBAT8223oSEOHECZMrh4EU2bIj7tl9iGhli6FACcnXHpmhTLl0MqxX//4dSpDIRSqBBCQ1GrFh4+RN26ePxY0T0RERER5W6KV0EUNAtX7zhiTuDJh8/uHPZ3H9ymkpG6AIgJLy/u/G9k+yqmJlU6jJq369KrRCWGS0QZ8s8/OHQIhobYuxf//JOq6EbBgggNhbk5rlzBmzc/WsTGBv37Iz4eXbsitkxljB6N5GR07Yp37zIQir4+DhxAmzb48EF+YmRkxlI5IiIiolxNCWXRxJTsAAAgAElEQVToJTpm9bqNX7jz/OOn1/avnNy3SZn8qgLE+Bfnt811alvJxLRap7EL9954z1odRNmhalWcOIGSJXHmDOrXR2Tkt93Gxjh3Drduwdj4J4vMnQtzc1y9ikmTgGnTUKsW7t1Djx6pPi/7KS0t7NyJN29gafm1rUcP1KrFwvRERET0t1DmPWBSvTJN+rqt3H/96eOIXQvHd7MurqsiiHHPzm7xGtrRNYRHEomySfHiOHwYFSrg+nXUqYNnz77t1tZG0aI/X0FbGwEBUFODjw+CDqhiwwbo62P3bsyZk+FotLXlf7K3hyjCwQFHj2Z4JSIiIqJcJ0suYlYzrNS8S+8+Dn3aV9FXEbLiCdlI9uHhuUO7Nqz137znyNWXzCoplyhUCIcPo359PHmCp08VWcHKCq6uEEX064fX2qZYswaCgPHjER6emcAcHeHkhPh4tG+PW7cysxIRERFRLiBV7nIJLy4f3LFly5YtOw9dfZnw9WySINXNq51LMrGkN9dCd+4Nvxr5OlbNoNw/dl1alM2n8rlL9vLInOHD3QMvvUn+vDVBqmdhM3LW7LGtimtkY8hE6ZIvH0JD8eIFChZUcIUJE3DgAMLC0K8ftm1rjdGj4eWFLl0QEQEDAwUXvXBhjvmpyNZ9t+1WrVkTCxeiSxcFVyIiIiLK+ZTyBkyMfXJ2x8IJPRuaFyxcseWAKSuDr7xMEAFBom1Sy3bMf9vORD5c3kJNGY/KUuLHC8t6VS1RvnmfsdO85i9a6D1lcNvyZZp5nHwnAuKL/aObtnLecDEl+wIgJr29usXNpnab2Wc+8BM3ygUkknRkX0eO4MSJH01fswZ582L7dvTujQcD3VGvHh4/hr09kpMVjMnFRTJ4UGBiu86tYt6+RdeusLP7SUEQIiIiotwtMwmYLPrB8U1zR9vVLW5kWr3dUA+/Q7feJokABHXDiq0d3QMO33n64PhGz+HtrIxzwQuihGvz2zdyXHvxnUwulxKTnx+cZNPH7+Hz7aP7zr8QLQoqemWb9R7lMsVtvGPnWiaawuchdiN3v2QKRn8AUUTLlmjYEHfupNlftOiXQvS+vihtIR1tsinZoCBCQzFzpoJPnDwZBgYqwXs3vW7k5/NaRwebNqFatVQXlxERERH9ERQ6gih7GOzluSRw+/6IJzFy2YogzVfS2sbevot9x0YW+ZV8uDGrJd9Z7Dgx9I0MgtTAqsvgfq2tjMUnV4/tWLly390XO52a39K+/SRZol/v38BAlwZGKZvzurVuSFsH35txD/wm/je42XSrnP+aj+gbt27hwgV06gTJ59/GCAJsbbF6NQYPxv79aU7p3BnVqsHdHatWYc66glekAUFCU8nkyahZE02aZDgCKyuEh6NZM5w82T36H+sDIQ6TCsbEpMRDRERE9IcRFRAX2FnujZYg0Tap2Xm0z9YzT2IVWS1HSDgxtpQKAIlR2+W34v/fLnt9wMlS/fPnaxL9dmujkr+fGXvOpZKaAKiYDD0U/31n9qhSpQoAGxub7A6EcoFWrURA7NJFjP/6f99Xr0QDAxEQAwJ+Pvf+fXHAAFEqFSfDTQTeqRvePfJYwTiiokRLSxEQzc3FR48UXISIiIhyle7duwPw8/PL7kB+q0z8kllQM6jQynGmf9jtpw9ObPJyal81Nxw0TFvy7dDQB8mAahUnjz6l5F5jCfkburrY6EkASIw7D+lcKNX/YBqVBvSvqyYg+Vn40VuKfgVDlF2cnaGri/Xr0aYNoqMBAPr6mDULAEaNwtu3P5lbrBiWLsXt23ja3zVEaJo3/sVj665dOicpUsywUCEcOYJq1XDzJurWxd27imyGiIiIKMdTKAGTFGs5cVnQ5SdRF3cvmtDNurhOrj8rlBx5LzIZUClct15JlW+7hHy16lWQAlAtX7WiehpzJUaVq5hIgOQnkVFMwCi3sbZGWBiMjLB/Pxo0SKl+0bs3GjbE8+eYMOGXKxQrhiXLJGXP+r3PU9gaRypudilbFra2Ga8pr6eH4GBUr46HD9GkiXxVj4QEzJ+Pa9cyuCARERFRzqNQ6qRatbdL/+bl9FWVHU22ERPi40VA0NTUSFUtX9DU0hQACOoaqTs/D9DUFAAxPi6edTgoF6pcGceOoUQJnD2LAQMAAIKAxYuhoYHly3HsWHoWKVLFMO/+QFGqOg6zOqjsCAzE5zTs5s2MhKKnh5AQNG8OY2MI///jFhqK4cNRpQq8vCCTZWRBIiIiohxGkQRMfHPjaOjBgwcPXXr2p7zxkRQwLCABkqPu3Pv0fV/y/dv3kgEkP374OM39Jjx6+EQGSPIb6Of6V4H0lypRAgcPIm9ebNmCgAAAQOnSGDsWMhkcHdNbkbBWLWH6NAHiRq0+4+3uq6ggMBCWlvDxyUgouroICsKxY/JVOBo1wsCBSEjA2LFo0AD372dkQSIiIqKcRJGMQZCc8WzVpHHjFuP2vPlDXvmoWtawyiNA/Lhvmf+9b7Is8W3I8g13kgAkXdm5604aGdj70K0H3sogaFa0KpvLSj8S/V/Rol8ypWHDEBUFAJg4EaVL48oVPHqU3lWcndGuneT9W/d7drevxPfvD5kMo0djx45MxaaqiiVLsGcPjI1x5AgqVsT69ZlakIiIiCi7KPTKRtukqIEESH704NGf8gpMp2k3GyMJxI+h42z6rzj5JEYGIPHt9Z2unfqsepgsCIKA+DOeTouvx30zT/YiaMLYdU9lEHTqt22ol+YRRaJcondv2Njg7VsEBgIANDRw8CAOHYKZWXqXEASsWgUzM5w5U3Sh87JlmDkTMhm6d8elS5kNr0ULXL4MW1t8/IgePbBpU2YXJCIiIvr9FPsGrIa9bUmpkHxrz57rf8hlqUK+Vi6ujfNLIH66srp/rSJ58xoa59cpUM5meujzZEmhTotWDSguFV/tH1G/waD/dp6+/eTli8grh3wn2dTuuORGgihIS/YZa2fM/Ityu9WrMW8eevZM+blIEdSvn7El9PSwcSPU1TFvHgICxo2DgwOio9G2LV68UDQsf39cvAhAXx8bN2LGDCQno0cPBAcruiARERFRNlHsoyXN2m5rXGvnS744d5h3RLSSQ8om0pID/TaMqZFPAgBiUvTLZ2/jZSIg6FRyWrNoYK8Z//UxU0Xyy5NLR9jUKF3Y0Kho+Ya9Z+6+GytC0K40dtW0+lrZvQWiTNPTw7BhyJ8/c6tUqwYvLwAYNAg3bixYgJo18fAhOnRAfHzGV7t3Dz16oE4dHDz4uWHiRIwdi4QETJ2auTiJiIiIfjsFq0YIOjX/DTq0uEvBcxP/qdHJbe2ha89jcn1tMolhk1mHLwb7DG5dxSSvukSQqOtbNB+29MBBryYFBEG/1YKQNT3MNb97yyVoFG0xbe/+GXV1sidoopxp6FB064boaNjaashitm2DiQmOHcOgQRlfyswMDg749Alt2iAo6HPbrFnw9cWcOcoNmoiIiCjLCaKY8Toaiaf+6+dzMgFAzN2woLPPEkVAUFHXzptPV0s17ZROo/WSK4tbpXWNVk4lS5ZJVFJtJi7y0OoFviEXbj96r5LfpGytZp17dG1cQjs7AvwxKyuriIgIGxub7du3Z3cs9Bf7+BFVq+LWLbRvj/XrL1xXr1sXnz5h7lyMGJHBpUQRI0Zg3jyoqWH9enTokCUBExER0e/Vo0cPf39/Pz+/7t27Z3csv49CZftkj45t2hD4bTUKMTk++s3z6Dc/mKLxOlaRJ2WjNLIvABqmDRxnN3D87dEQZb+QEEyejAULULlyusbr6GDrVtSrh23b0LZtpa1b167V7tQJY8agVCm0apWRRwsCfHwglWLOHNjaYs0a/E1/TRMREdGfRKEETNArYVW1aoa+5VAvwQqBRLlOt274+BFbtkBVFbh8GcePo29fnDkDafr+6ihXDkePomlT7N+Phg077N3r6qo/ZQq6dsXx4yhXLiOhCAK8vaGhgZkz0bs3YmJSLo0mIiIiyk0USsDUGrmHn3FXdihElNNcuoQrVzB9OqZMARwdsWgRLlzAvHkYNSq9S5Qrh/BwNG6M06dRv77b/pCbN403bEDbtjh1CgUKZDCgGTOgoQFXVwwciFevMHHi157wcOzahUmToKubwTWJiIiIfiMFi3DQ/8W9ffokKioqKurJm7hfjybKTZYuhYoKZs7E6dOApiYWLgQAFxc8eJCBVczMEB4OS0tcvSo0bLB66qNq1XDvHrp0QZIC91i4uGDtWpiaflercckSzJ4NGxvE5rbjzkRERPRXUegNGMmJDx5m3j7gowhodA58t6mT8gqNyGSyBxn6Z+7XkBQp9U2Uhtq1MXIkvLzQqxciIqDZrBlsbbFpE4YMwZ49GVjI2BgHD6JZM1y4oNG47u6AkCr2pQ8cwKhRmDcv42H16IEePb5rmz4dYWEIC4OdXcqZSSIiIqKchwlYztW/f/9Vq1YpPP358+dKDIb+WtOnIzgYly/DxQVeXoCPD4KDsXcvtmxBx44ZWMjQEIcOoXVrHDtm2Mk6ZO4+K4dK8+fDwkKh2vSpFCuG0FBYW2PXLvTuDT8/SPiCn4iIiHIehRKw5LvBK/bdydDZIWnJ5v2alVBR5Gl/rYoVKxYvXlyBiVFRUfHx8RoaGkoPif5C6urw9UWNGpg7F23aoH59Y7i7Y/BgDBiAatVgapqBtfLlw/796NABwcFlBzfYOmZPi2m1hw9H6dJo2DDTgZ49W3r9+oO+I+vaF1m3DvnyfTkvSURERJSjKHQPWPxm23ydAzP0wZOyj+flHOLbu+duv0oWAYl+qaol8+eAYo+8B4yUbvJkTJkCMzNcvAidPCJsbLBrF2xtsXFjhtdKSEC3bti8GdraK1tt7bepaf78OHUKJUtmLkRHRyxZgrx5bw7wrjy/b2yc4OKCqVMztyYRERFlpb/zHrAsP6MjSFSkUqlUqpIDEpMsIeiVqFq9Ro0aNWpUyxHZF1FWmDQJVla4fx+rVgGCgNWr0bQpatZUZC01NWzYgL598emTw/Y2HtW2vHmDtm3x/n3mQpw2De3a4f17c89+D8q2KC6NnDYNS5Zkbk0iIiIiZVOsDH2DaaHhTrIf9MoSol8/unZ8b4Dv1ogXidAq02PJ1sXdSv+Jb7+I/haqqli3DtOno3FjAIC+PoKDFV9ORQUrViBfPsyZMy7C7lOR5dOu97G3x+7dUFH4oHKBAti2DYGBGDzY8HzwDc3yw5I9T57oP2gQfy9CREREOYhiFzHrm9eqY/7TIc3a9XQad8KzS7uJIVfX9G4Sr3bcr3NhfhJPlHuVLo21a5W33OeLlQ0NMX781CgHmfb7GftG9O+PhQuhqZmJZTt3hrU1hgxR3bJlCQbKojbj4XIULaq0sImIiIgyJwtzIol+LecNK3qaqIhJkRtHTTsQk3WPykJJ0a+i7t+8cvH8ubPnzl++cedB1MtoBa4uIqK0jBuH+fMBTP800ks6fvVqVKuGy5czt6aRETZvxoYNMDCQHAyBtbVSIiUiIiJSiqwtQy/kbzG4W0l/j5tJTw+GXEpsWjN3XM0TG3Vy18Ytu0OOnjp/5d6LT0nflikRBDXdwiXKlK/WoIVNu3bNq5to8YQTkeKGDoWGBgYNGp00K5+B0O+qe/Xq8PDA8OEQMvNHy84ODRpg3Djo6CgtVCIiIqJMy+pTgVLzcmVy0V1jstenlgysXbx4bbvRXn77Tt16/n32BUAUE94/vn4qaK3H8I61ShSr3vu/8OfJ2REsUTabORNz5yI2Frh3D92749w5BRfq1w/r1kFV1eGlR4jV+Lg4jBiB5s3x7Fnm4jM0xOrVCt30TERERJRVsjo5EuPi4kRAULOoWCanv/5KuLuuX4u+/rfjU3IuQUUrfyETUxNjfR0tTU11FVlCXGzMxzfPox5FRr2MThQBMfHlWd+RDQ+Fzd+7bmC5zHy5QpTLREdj8mQkJsLbG2ubnWgYEIDwcJw/Dz09RZaztUWePOjQofG5WbfaJtUM99q/H5UqYc0aNG+unIAnTcLRo9iwAYUKKWdBIiIiIgVk8Rsw8fXB4DOJgJDPuKBW1j4qs2JPT+34OfsS1AvV6jl5VfD5h28/vIq8EXHsUMi+PTu3bd22Y3fQ/tDws1fvP3///unVwxu9h7U015VATIzcMbyD88H3Gb9RjSjXypMHISGoWhVRUWi2yi5CozYePhR79IQCVwt+1rIltmyBunqpnd4POo2xtsbz52jZEk5OSEhQQsBXr+LoUTRvjrdvlbAaERERkWKyMgGTvT23wMF521sZBLVylS1y9AswWeTqiXMvxYuCSuG2PseuHvN169O0konOjypiSzSNLKxtR83bc/HitmGVtQUx4fbySUtv8SQi/VXq18eZMwgJgUUFabu4DW+QX9iz+3z/RYqv2KrV5xxMZ5l3WLWxPj6QSjFvHurUwe3bmY125UqUL5vkdLmfXyXvT58yuxoRERGRYhQ6gph4ZHq7aYd/+jtpMeFt5PVrd1/FykRAyNe0e1vjnFyqQvZo+8bwWBEqpg4r/YZb6aZ7onqxtnM3TrtQcfTR2Ihtu+6PNi+p8C1GRLlT48aIiICvr8nEccuWvOpksXL0+Ee1PYIrK7jc5xysY0fB28tpDGqFe3btirNnYWUFLy8MGKB4nPr6CN70vkAFP9XIhB1lH7S49Z+aBq/GICIiot9NoQRM9uJS6IEDcekbLEgL23h7d8vR+ReSrl24mihCYtiyc4P0Z1+fqZTo2Ln6+KOHk25fu5UMJmD0F1JRQd++6Nat46VGjhWOLR5y2BYfIxQvP9iqFdatg709vLyqAxERnoMHIyAAAwfiwAEsXargV2YAjC31ny7dojfQ1ubRguNl39S8sUainqNfzRMREdGfR7FfAKvpFvg1AyOT0tVaDpqz7+TGviVzeCVEMT4+QQSEPDp5Mp4oSnTz6UoAMSE+gV+B0V9MXR0VDswRK1Yyib+TqXdVADp0wIYNUFWFl5futLH+/vD1RZ48CAxE5co4dkzxhY37t364JOijoFv7wbprZTogNjZTcRIRERFlkEKJkXrbFY9erlB2KNlJpUjRIiq4nvz4XMRTWU3TjKWlsRfPXEkEJEbGRjzQRH85DQ1hw3pUrYoNGzB2LKpUUXypzzmYvT28vCAIPWfPrlEDXbsiIgINGsDLC8OHK7iw+YD6p5NDiw9pYflg9/PKzY1O7UTevIrHSURERJQRzBgAANIKrVsUVYEYe3jW+MBHGamlIX487TnB90EyJPp1/qnA00xEZcpg3Tr07o0SJT43fPiAQ4cUWurrezBPTzg7m5vjxAmMHo2kJIwYgVWrFI+xuqNVhM+RKImJ0c0jaNgQL18qvhYRERFRRjAB+0ytxsBh9XQFJEdu6FmrmbPf6afxv5yT/O7GHq/utZtMOfFBFNTK9R/SRPs3REqU87Vti9Wrv75WmjgRDRtixgyFlvo2B1NTg5cXFi2CKGLgQOzerXiMTYeXKXzvKEqXRkQExo5VfCEiIiKijMiCb7MSnxxZvXjj8fvRGsblrDv16FTDWE35D1E6ldKDl3geaDB4z9OEqIOePWv6jChZvW7dGpXLFi9axLhAXm0NDTWpmBgXFxv9+tnjR/dvXTxzPPzklWcxMhGAJF8d15UTqqln9yaIcqI2bbB4MVxdUbkyWrbM+PwOHbB+Pbp0gacnAMyePWgQnj7F1KmwtUVICOrUUTSyokVx9CgmTUKnToouQURERJRBosJk7y4FTLSrU7pgsYFB8SmNMWdmNzCSfi1kIUjyVxsd9CxZ8af8VjHXfB0q5pNkqA6HRMei26Jz72TZHbucKlWqALCxscnuQIi+mDFDBEQdHfHaNUWX2LxZVFUVAdHZ+XPD0KEiIOrrZ2JNIiIiylbdu3cH4Ofnl92B/FaKHkEU34Q6N6jdfebGY7defPxa/C/h0pwhbmHPk74WAxRlb87Mse+66E7uuKJYs2zPFWdvnvB17W5dIq/053mYINU1q9Nl4qqjN877O1bJm6Or7BNlswlOMba2+PgR7dvjwweFlujYEevXQ1UVs2dj3DgAPj7o0AGvX6NpUzx6pIQgExKQ8NPrDYmIiIgyT8EjiDFHpgzwuRAtAoJEPb+e1uf0I+7okiXnYkVBWrTd7OWTG2tdC5g01PPw6/dhM2bu67WqlaKXAv1eUsPqPab49ZiS+O7+pbMRl2/efRj1/PXb6NiEJKhqaufJkyevgWlJc/MylhUti+Vj0Q2iX5syRXB3952//Nq1HleuoGdPbNsGQYHfWXTsiIAAdO2K2bORnKzi7u7vr9q0KcLD0bIljhxR/H6wz8qVQ3IywsJgapqpdYiIiIh+QrEELPrAynX3k0SomHZYtNu3f/nPl2clnNkV9DQZEr22M5eOaGLwP/buPK7G9I3j+Oe0qWQpWbKTLCFLZAuJZM9WtuwkZshg7EuZGWoYyhi7sWQPUZbILmMtkn0da9bsSuqc3x+YH8bMcM6Tiuv98odznvtc9/fMeHm5eu7nvlXYTVzNxVKdVifcCVu581nTFplqjwrDnMXsGxSzb5DeOYTI9KysePHC2LvbzgnJpSf1XL+eCRMYNUqrUu7uaDR06sQvv7Bzp0lw8IYNtnXqcPw4rVoREYGxsfYxixRh+3b61j213rSDwYB+9OmjfS0hhBBCiH+g1RLElNP7Dz1UozKpM3RKr/Jvji5OOb195/VUVGb12ja2fPWeyrJ556YWeqgfxRw6m6JYaCFEZuLlxaRJqNWWI3rvaTtNT4+xYzl6VNtqHh7s3Enx4sTEYG+f4/epmzaoCxdm927atSNVh9XOa9dib0/in7f1T8Xh7c24cdrXEkIIIYT4B1o1YKm3b95JBb2CVezz/1VAk3Dk4LlUMKxQp8b/n4gyLlGqiD6ob928rVYirxAiMxoyhJkzAds5A3e3nFqmjG5HHzs6EhfHgAG8eMGgQQXa1942+6KFBWFhfPut9lWzZycigltl6nVjYYrKkPHj6dGDFPnRkRBCCCGUpN0mHGq1GlAZm5j8/zmOF9H7Y5I16BeuVq3AW1U1Gg2gSX7xQvO3MkKIr4e3N7Nno1I5rh10ot0PxYvrVs3UlKAgNm8mf37++MOmXeXDveeYmjJrFhMmaF/V0pLISPYU7dJas+aFngkLFuDuTlKSblmFEEIIIf5PqwZMzzKvpR6ob/559a89w14e3b77vho9i1p1yr+1NUXynxevpoIqW45ssk+gEF+53r2ZO5dXaxB//FGBgq6unDxJp048flw8oM/lMk0KGcSPHs38+dqXLFCAyEiOWDV3Uu94YpSLdeto3JhHjxRIK4QQQgihZQNmaFulgqkK9YPNS8Lvvrqx9WTnotWXU1GZ1WlU2/T/Ix9tX7M1QQ0G1qWs0+DMZyFEJtOjB4sWoa+Pr68ym77nzMmSJaxahYVFnujNZ00qumnW9enDunXalyxRgs2bOWte3TF5R2JOK3btwtmZe/cUSCuEEEKIr552SxBzNGzfxEIP9d3V3k16TV68YsGY9r1+v5qKyqxOM+fXD4Bpnl/d8Uu3/kvi1WBQqp5TQW2PHBNCfFE8Pdm2jTVrMDJSrKa7OydO0KSJyZM7obRanurRr8ODffu0r1ehAlu2YOdpd3fdPmxsiIlh4ULF0gohhBDiK6ZdV6SyaOU7uk4OFeqHR37/vmuHHj9uuvZSozIs7T2iXR4VoL4Y5JS7aIMh6/58qUHPwtWnZ3m5ASaEeM3JCTe3V79dvZr69Tl/XueaVlZs2MDs2WTN6k7I/qRKk5rsPHNG+3pVqxIcTOG6xdi3j8BAunXTOaIQQgghhJYNGBiUHrByzeh6VoZ/Pdmll91+0G/Da5gAoElNSnqp0QCqrOV6/z67e2G5/yWE+ICDB9mxg5YtefJE51oqFV5eHDmisa9ShCuhj+tHV+lz/dxzXcvmzo2PD5aWOucTQgghhNDyIGYAvTz1x2872y1q09bDlx9gUapu82ZVrN6sKFLpm1nZVHIqW8ete3+vxtam/1pJCPH1GjeOiAhOnKBzZ0JDUem+W0/p0qoD+1N8f1RN+KnTszmnKx55HBeR3Tq3AlmFEEIIIXSm28JAvWzF67TzrvOBC9bfrDv5jU61hRBfAzMz1gc/flGl1h/rqw0dNMt/soG+vs5FDQwMfvR9XK/pgyadyiTGXK1Q1+TkNsMi+XWsGhmJuTlVqoBazb592NtjKj9dEkIIIcSnkZWBQoh0Vrxgso3xtZ7Mdwjs2Ngl5dYtZcpmr1/V8GDUKcMKhZ+dfli2lvrCJV2qvXhB48Y4OrJtG6xZQ506lC/Pzp3KZBVCCCHEV0MaMCFEerO0NNgZmWKW052QLju721dS79qlTOH8FfOodu86YlA997M/H9vX02WvjyxZ6N+fFy9o1YpoE0cqVuTSJerXp29fJR5fE0IIIcTXQhowIUQGULWqwbYIjVk2T5b8dKtn86bq1FRlCpepkfP5+sjdevVyPr763L42cXFal5oyha5defoUly5WUVMP4++PkRGzZlG6NGFhysQVQgghxJdOGjAhRMZQrZpqSwRmZt1YuLP8AH09jVKF6zQxu/P7hkhcTJ/cTq7pxOHD2tVRqZg3j7ZtefCABo0MVhYdRnQ0Dg7cvImbGx4eJCQolVkIIYQQXyppwIQQGUbNmqxbh7FxlYO/MWiQgoXdu5oe+yF8HS2NniakODdk/37t6hgYsGIF337Lixd06IBvSFn27cPfH2NjQkKoWJE7dxSMLYQQQogvjzRgQoiMpH591qzByIjAQDZtUrDw96Oz7Plm5WraGjx9qK7vwo4d2tXR1+fXX5k0CZUKPz8CfjFg2DCOHqVmTe7f5+lTBTMLIYQQ4ssjDZgQIoNp0oS1a2nWDFvbV2/cukVgIPfv61p48jSjla1WLKKrXuIzTbPmbN2qdakhQ1i+nKxZefgQgNKliYri3j2KF11DThgAACAASURBVNc1pRBCCCG+aNKACSEynqZNCQ+naNFXr2bN4rvvqFxZ65WDr+npsXip/rxaC6bzrSrxOc2bExqqdTUPD+7dY+LEN69VKkxMdMonhBBCiK+ANGBCiIzO25uaNbl6lbp1mTIFjQ7bc5iYsG69akbpaVP5juRkPDxYskTrasbG/zVi/Xpd7rMJIYQQ4sujXQP2/N7VK1euxj9M/u+hqU9uX71y5eqtJylazSSEEPnysXs348aRmsrgwbi56bTdYK5cbNyk+jnflPGMJSWFbt1YsEC5sG95+ZI2bXB1pXdvnj1LkymEEEIIkdlo1YC92NSvVNGi1g0mn/jPrkqTsKpbyaJFrZ1+ipEOTAihLYPIzb7Oe0JDMTcnPJy6dXn0SPtqxYqxdStTcvgNx5/UVHr2ZNo03UMmJvLNN4SHv3ltaMhvv2FszLx5VKrEoUO6TyGEEEKIzC6tlyCqjIyMVJB668YthY5VFUJ8ddRqWrakfv0WL9fExGBry4kTtGlD8kfchP8n5cuzdi1TjYYNYTLAwIFMnapjzDNnmDGDli2ZMuXNW336EBNDpUqcP0+tWvj6otQJ00IIIYTInAw+bpg6/sCayLPPXz958fLwlVTQPDoeHrwo7t9aOHXSzd2zdr4AUOkYVAjx9dLTY+RIfH3p2LHomjWbNzerXp3t21m8mF69tK/q7MyCBXh6Dk5Smf6q+VY1aBBPnjB2rNYFK1XC358RIxg8mCtXmDoVPT0oU4aDB/npJ374AT8/tmwhOJgSJbTPLYQQQojM7CMbsJRTi3y6z4pXv/PmjXDfHuH/8IF3qUzs7MsZfmo2IYR4Y9w4kpLw96dNm8KhoVu3Npk8GWdnXat27MilS4wZ0/eFUdY5qT1V48bx6BGTJ6PS8mdGw4ZRogSenkybxtWrLF2KqSkYGuLrS+3adO3KgQPY27NjB/b2uqYXQgghRCb0GXZBVOlZVBvyY7disuGiEEIXEyfSvz/Jybi7l7u7c+FCZc7cGj0aLy/mJXfpnHWtJosxU6bQtSsp2j+02qYNERGYm7NuHc7OHD365kL9+hw/Ttu2PH7MlSsKRBdCCCFEJvSRd8AMK/ZftrnlizdLEPdOaPPTntTC7QNndrPR/9cPqvRNc5coX65oTrn/JYTQWVAQSUnMnYurK+PGMXw4+v/+V9BHmTGD+HiWhjdX59u09KmbKjiY5GSCgzHU8i+uunWJiqJJEw4exN6eXr2YMwcACwtCQrh7l9y5dY8thBBCiMzoIxswVS5bp4a2b169eDJfD9Rm1jUbulb+yApCCKEzlYpZszA3Z/JkRo/m6lVmz9a9qr4+K1fSsCHLo+phvW2pYWPVypU8ecLq1VqfrWxrS3Q0EycycyZhYcye/daqRum+hBBCiK+YVusC9W2a9h84cECXmnlkWaEQ4vPS0yMggC1bsLHBwuKvt48e5flz7auamLBhA3Z2LL/o4FV8myZ3HjZtolEjHj/WumauXEyezJUrxMX91zNl8fHcvKn1REIIIYTIRLS6f2VQoevPU7sqHUUIIT5WgwacO/fXq2PHqFwZe3t27cLMTMuSOXKwaRM1azIvupKh854Z513YswdnZyIisLTUOukHP5qYyJMn5Mnz5rW9PQ8fsnw5bm5aTySEEEKITEGRW1gpj6/F7YsMD1m66Pf5IYfvaQCNRqNEZSGE+G/Fi2NjQ3Q07dvrsn0GBQqwaRMWFszcUWpUnb2vi9apw40byoUFaN2a/Pnp2pULFwBo04bERNq2ZdkyZScSQgghREajWwOmeRy3fHjL8vksi9g5Nmzh4dmtp7fv+qup8HLP4EplG/SevPHCM4WCCiHEP8menYgIylreZuPGft7q//7APytblo0bMTVlwtIigW32UqECp0/j6MjFi0qlBRo2RF+fxYspU4YePbj03a/4+5OSgqcn06crOJEQQgghMhodGrCXl5Z1d6jeKWD9ifsv/3a7S/My4ez2ed83r1y95/KLybokFEKI/1a8OLuqDdtAs07znWeOvKZLqerVWbECAwMGBeRd0nMnNWrw55/Urk1cnFJpv/uOs2fp1QuVigULKF2a3heGPR0TgEbDgAFMmaLUREIIIYTIaLRtwDSPd49w67H47HMNKoNctq5dBw5zf+uoZT1L65KWRio0T04s6N5syLaHsiBRCJHGLEd7J5lb1WV3+4kV9g4I0aVU8+b89hsaDd2+Mw/rH4mLC/HxODlx8KBSaYsWZe5czpyhe3c0GubNo8hvQw92m4lKxeDBDB+u1ERCCCGEyFC0bMBexk4d+OvJFxqVYdE20w9eiItYONXPo8z/z+PRLzcw8syBGR7WRirNi7OzBk6KlrtgQog0Vr268bnjF8u5mfOg9q8etxp24elTrYt5eTFuHKmptO+Z9Y8R4bRqRUICrq5ERSkYuXhxfv+d06dp3JiEBGos8r7nPw99fQICmDBBwYmEEEIIkUFo14AlRc37PS5ZozKyG7pqcb/KOT9URZWzkvfiteOqmao0L08vmr/nhW5BhRDiv1laWsetW1Vv5nNM80UGU7kyhw9rXczXl2+/JTGRFu5ZzoxfRdeuPHqEqysREQpGBkqUYNMmVqxg3DjMB3Vn2TKMjNizR9lZhBBCCJERaNWApZzdtedmKipj52+/rWL6LwOzlPfu75pNhfr2vr1ndNiaTAghPl6bSO/fuh+5la8i58/j5MTu3VqXCgykTRvu38elscFV39/x8uL5c1q0wM9Pp/0WP6RdO8aNQ18fPDy4cIHVq5WtL4QQQoiMQKsGLPXan9dTQb+YfWXLfz9dVJXDrpK1AahvXruh085kQgjxsfT1+f73Mvn+PECPHjx/zrx5upQKDqZ2ba5fp0kzvQcTZzFqFKmp+PpSowanTikY+x2FCr060Sw5mZcv02oSIYQQQnx+WjVgKpWeCsDAQP+/hmpSU1I0oFGnqmUfDiHE55QlC/PmsXYtP/+sSxkTE8LDqVCBkydp0lT1fOSP7N2LjQ1HjmBvT0AAqalKRX5PaiolS2Jjw8aNaTSDEEIIIT43rRowvXz58+lD6pVTZ//jmC/N45MnrqSCfu58ef6zWRNCCGWpVLRqhZWVjmVy5GDjRooU4cAB2rcnxaEmx44xYAAvXjB8OLVrc/68Innfo6dHsWJcuUKzZoxqePjOddnNSAghhMj0tGrADGzr1sqth+ZxxNxlf/7bysKUC4vnbH2iQS9ntZq2BlpGFEIIHSUlce+eThUKFGDTJiwsCA+nf380JqYEBRERQcGC7N9PxYoEBaFR+Ea/SsX27cyeTWuTzT9FOlwu5jwr4JFalnMLIYQQmZl2uyCa1O7SoYSBSvNkx0hPv6iED/+bQ31n+yjPcXueatDP37JDPTNdYgohhA46daJgQSIjdSpia0tYGCYmzJpFjx6kpEDDhpw48XpnjoEDadSI69cVivyanh5eXgTtqnDXpHC1lH1Vh9dvVef+sWPKTiKEEEKIz0fLc8BMag3/2bOwgUr9cN8PDSrU8560fFv01ScaIDXxwa0/T0at8u9eq0KTSYcea9CzbOw3yjW7orGFEOITVKzIixe4u3P9p0UUKMC6ddrVqVWL0FCyZmXhQlq14vlzyJGD2bMJCcHSkq1bKVeOOXOUDQ8UdMif+8zeJ/ls7In+aZ9Ts8o3/f0Vn0QIIYQQn4OWDRiq3G6/rZ/SuIChSvPi+u7ZQzu61Boc8QJSzk5pUKhYudrtRiw8cCtZg15Oh2Ehi7oX1XYeIYTQ3ejRdOrEo0fMmPycmzfx8GDtWu1Kubqycye5c7NhA/XqvVnZ2LYtJ0/SsiWPHtGnD+7uui55/LvChbPF7E4tXbYcJw5TVS9a+/PNhBBCCJGOdGiMTCv0D4veNrlz1bxGH9qLXqWfo1SzEasP757gZPHve9ULIUTaUqmYN4+aNZn4sO88qzG8fImHB0uXaletalX278famkOHqFOHa9cAyJOH0FBWrcLcnNWrKVtW6/ts/8jKSj9qN05OVpqbQzfU0Tq/EEIIIdKRbjtj6OetM2jxob4TD2+L2LH38Kmrd+4/TjbMZpG7gE2lmnVdXBxL5JA7X0KIDMHYmLAwatSg9/nxWW1UHc6Pp2tXNBo8PbWoZm3N3r00bkxsLNWrExFB+fIAuLvj4ECPHuzYQatWdO9OUBDZsin2NXLlYutWfHyYORNPT5KT6d791ZVTpzAxoVgxxaYSQgghRFpQYmtCkwJVm/es2rynAqWEECLN5MrF5s1Ur07H8365aqga7vejWzc0Gjp31qKalRW7dtGiBXv3Urcu4eHUqgVAkSJs28avvzJiBAsWsHcvy5dTpYpiX8PQkBkzKF+eIUN48eLVe8+fU7kyqal07syYMdKGCSGEEBmX3KESQnxFrK1ZvRojI1z3+57v5EtqKt27a72WL2dOIiNp25YHD2jY8K3jklUqBgwgOpqKFblwgVq1mDJF4U3q+/bl2TO8vV+9MjWlXz9UKhYsoFQpvLy4elXJ2YQQQgihFGnAhBBfl7p1WbIEOzuSho3jhx9e92BJSdpVy5KFFSteb0Tv5sb8+W9dK12aAwcYMICXLxk8mIYNiY9X5Ct80JQpnDnz+pbe3LnY2NCvH3PmsGXLBwY/e0Z0NNHRHD3KpUtcuaL4GWZCCCGE+LCPWIL48mBQr8ADybrNY1R94Dyfaoa6FRFCCCW4u+PuDkD50eTPz717GBtrXU1fn1mzsLLCz4/evbl2DV/fN9eyZCEoiKZN6dKFbduoWJFFi2jUSOdv8GHFi7NgASNHMn48y5czc+br98+dw8bmnZGdOxMa+s479vYEBuLomEbRhBBCCPHaRzRg6mv7Vq0I0fKnw28Yp7aZ41NNtxpCCKG8Hj10r6FS4euLpSU+Pvj58eABU6ei99cKg4YNiY2lSxe2bqVJE/r3Z9IkjIx0n/cdjx/TqBFVqthMnhwcbDRqFL//zqNHWFlRvPj7Y93cuHGD1FTUah494sEDoqOpU4f27ZkyhXz5FI4mhBBCiL8osQmHEEII+PZb8uenUyemTeP+fRYswPCv2/558xIRwbRpfP8906axfz/Ll2NtreT0z55x/Dj793PsGGvWlC6d++ef/3Fs16507fr/l8+fExDApEksX45azYoVSuYSQgghxNs+ogEzahR4/MwP6k+rm3p3/8yhQ2cduJuiAVT6Oc2zy2FgQogvXevWbNxIq1YsXcqtW4SGvrUFvUqFjw/Vq9OhA4cPU7kys2bRoYNic1tZERVFy5bs3Uvlyqxbh739R37U1BQ/P3r2JCiI5s0VSySEEEKIv/uIBkxllt+m1CeU1Dw9vXKs98Bfo26/ar6ylmozbta075yUXm4jhBCKiI7G0ZH+/fn5Z0hKolcvHBwYMEC7as7ObN9O06Zs306DBsyb9+aIsFeqVePoUfr0YeVKOnZk82ZmziRrVkW+CBUrcuQIbduyezd167JoEW3afPynCxfml1+UCSKEEEKIf6LwLojJ17dNaFWpSsepe2+naFAZ5a83NCQmJuR7JytZ6yiEyKCMjdFomDSJoCC4d4+VK/HxYcwYrQtWqUJUFMWKcegQFSvSuTOXL791OUcOVqxg0SJMTQkOpkoVYmN1/xavWVqyZQvduvHsGe7uzJmjYz2Nhi1buHdPkXBCCCGEULABUyccmdOrhp3r6PUXnmtQ6ZlX6jFzX9y2gDYlTRWbQwghlFe2LAsWoFIxaBDrjhRk6VIMDfnxR4YM0Xp3dhsbDh/GxwdDQ5YsoXRp+vfn9u23RnTpwv79lCnDmTPUqMGsWYp8F4AsWViwgMmT0WheH0emg23baNQIGxuCgnj5UqmIQgghxNdLmQbs+fm1w13sannPj3mg1qAytXb7ISL2wPw+VSzknDEhRCbQoQM//ohaTceO7C/kwdq1ZMnCL7/Qrx/qT3wE9o1cuQgM5Px5vLxITWX6dKytGT6chw/fjLCz48gRevUiMZG+fRk8WMnTuAYPZsAAXrxg7lxdylSrRuPGPHzIwIFUqPDhU8WEEEII8fF0bpBS4ndP9qhcuW3AjhvJGlQGeR0HLjt8LHSUSyF55ksIkYmMHEm/fiQm0qIFF0o3IzQUY2NmzaJPH617MKBQIWbPJi4Od/fXmw1aWxMQQGIiAKamzJ3LsmVkycKUKfj4KNmDTZrEzJkMH65LjezZ2bSJ8HBsbDh9mkaNaNyYI0eUiiiEEEJ8dXRpwDSPYhf2q1W+/tCQs081oJe9vOe0vSd2TW1vayY7HgohMp9p02jenHv3aNyYu1Uas3kzZmbMm0fnzqSk6FK5TBlWreLAAZydSUhg+HBsbJgz503VDh1Ytw5jY379Vcd+7x1GRnh7U7So7pWaNePECX7+mezZiYjAwYFWrbh2TffCQgghxFdH2wYs6fKGsY3tqvWYeeh+qgaVcdHG48JjDwd/W91SX9F8Qgjx2ejrs3QpFSpw4QK9eoGTE+HhmJmxbBm//aZ7fQcHtm8nMhJ7e27coE8fypVj8WLUamjUiPXrMTFh7ly8vBTrwZRjZMT333PpEkOHYmrKunX89FN6ZxJCCCEyIS0asNQ7f0zrVKWi2w9brr7QoNK3rP7NwoPHNvo2KZpF+XxCCPE5ZcvGxo3Y2ZEzJwBOTmzdipMTVasqNUWDBhw+zMqVlCzJ2bN07YqDA1u3QsOGRERgZsb8+Xh66njPLY3kykVAABcvMmUKQ4akdxohhBAiE/q0Bkzz5OSygXXL1x247ORjNajMyrSbvCNu7/Qudjlk0aEQ4stQoACxsSxa9OZ1jRrs3EnNmgpOoVLh4cHJk8yeTYECREfj6kr79twtU4fNm8mWjeXL06QHu3NHkTJ58/Ldd5QooUgxIYQQ4uvy8Q1Y8tUtP7pVrOoZtO9OigaVUcEGI9YejV4xqE4+OeJLCCE+nYEBXl6cP8/PP5MtGytXUq4cIfGObN5M9uyvT2pWcOv34GDy5mXSJMUKvuvJExo1on9/bt5MoxmEEEKIL8FHNWDq+4dnda9WocnY8EuJGlT6Fva95+w/vnVCyxImaZ1PCCG+bCYmfP89cXG4uHDnDh4eNPevdXflDiwsCAmhdWtevFBmpqJF0dNj5Ej27lWm4LsSEti9m+nTKVGCwYOVutkmhBBCfGk+4u5V8g6fyo1+u/pSA6AyKd5s+IRB9Qsmnvpj3yfMo2dZunqpXLJOUQjxBdi7l9GjGTqUpk2VKlmkCFu3EhJCnz5s2EDJKPv530S2ntWQDRto3Zo1azA21nWO2rUZPpwJE/Dw4OhR8uVTIvj/FSlCdDTjxrFmDVOmMGcO33zDoEHkyaPsPEIIIUTm9hENmCbh9p2Xbw6m0SReCh/XPnzcp85j7B7ycFVb2aVDCJEJ9erFkSNs3EiBAgAcPcqePezdi7c3kydjaqrURO7uODri7U1YGG1+qty/9rbAky56mzbRqtXrc8l09MMPHDzI9u107EhkJPoKb1tra0tICMeOMXYs4eEEBDBtGr16MWzYm/90QgghxFdP54OYhRDiS3fvHrGxNG3KkycA9O9PYCBGRsycib09MTEKzmVlxfr1rFqFhQW/7q1Y4+We59nzERGBm9ubw5t1oKfH0qVYWbFzZ9rtIl+xImFhHDmCmxtJSfz6K66uaTSVEEIIkfl8xB0w/RKN+n6bV8fnwA0rlZADwoQQmdOiRTg6EhuLuzsbNmBgoMLHhwYN6NSJ2FiqVWPUKMaMUfCGkrs7tWvTty/r1pWxZ2dUlvq5tm6lUSM2bsTMTKfSefOydCkuLvj5UaMGLi4KRX6fvT3r1hEXx/TpFC+eRpMIIYQQmY9Ko9H89yiRqdjb28fExLi5ua1bty69swjxhbh8mRo1uH2bnj2ZN+/Nu0lJ+PoyaRJqNTVqsGSJ4q1GSAh9+2J5/+xOvfpW6hs4OrJpE9my6VrXzw9fX/Lm5dQpLCyUSCqEEEJ8ss6dOy9ZsiQ4ONjT0zO9s3w+sgRRCCH+W7FihIVhasr8+Uyc+OZdY2P8/dm0CSsr9u9Pi5V27u6cPEnZ1qWc1DuuU5CoqBf1m/D4sa51x4zBxYXbt7lwQYmYn2zqVDw82L07XSYXQggh0pM0YEII8VEcHFi6FD09Ro1i8uS3Lri6cvw4nTvTokVazJs3L2vWMHZJyZY5d12lcJbDUfdKOyadvaJTUT09wsI4fRoHB4VifpqwMEJCcHKidm02b06XCEIIIUT6kAZMCCE+VsuWzJyJSsX337N8+VsXLC1ZvJhffkm7qTt1YsNp6wmuu09haxkf97RstbBRB1NSdKhobEzp0orl+0Shofj5kSsXUVE0aULp0gwZwrZtip15JoQQQmRY0oAJIcQn8PJiyRKKFCF37s89db58zIooenv9gagcTS1Tb7tOqDui8NKQEDLjk7w5czJ2LH/+yaRJ5MvH2bP88gsuLuTKRWhoeocTQggh0pI0YEII8Wk6dODPP2nQ4L/G3brFuHFcuqTs7PVaZKt1b/2Fxv2z8OLn+M6nPHyrV9Ns367sJJ+JmRlDhnDtGrt3M2IElSqRmMjdu+kdSwghhEhL0oAJIUTaCAlh/HgqV2btWmULqwz0S2yaljpjtkZPfxx+gw53aN4g0cWF6Ggdip47x+LFqNWKpfxoBgbUqcOECcTE8PQpXl7vDwgNxc2NqVM5ffrzpxNCCCEUJg2YEEKkjR49aNuWR49o0wYfH5KTlS2v39dLb9MGTfYc7Vi526D+8W13qlbFw4Pz57UqN2wYXbsyYoSyIT+VickH3gwLIyyMQYOwtcXGhokTiY//7MmEEEIIhUgDJoQQujp+nOHDSUh4992sWQkJYfZssmRh2jRq1lR8OSKurqp9URQpUjVl/+mcNSplORUSQtmy9OnDzZufWGrAAAwN+fnnt445yyimT2fZMrp0IW9eLlxg5EgKF6ZVKzZtIjU1vcMJIYQQn0gaMCGE0NXs2QQE4OTErVt/u+blxR9/YG1NdDSVKrF6tcJzlyvHkSM4Olo8vHTEoPo0140aDXPmYGPDiBGEhLB1Kzt2EB1NXByXLhEfz4MHfGD7xHr1mD0boF8/tm1TOKRusmalQwcWLeLmTSIiaNMGlYp162jalC5d0jucEEII8YmkARNCCF2NGoWtLXFx1K7Nn3/+7XLlyhw5QsuWPH6Mhwc//qjw9JaWbNtGx46qp0/6b3O7MWJ6mzYkJuLvj4cHrq7Ur0+VKtjZYW1N/vxYWGBoiEqFhQV58mBtTblyjB9PUofuDBvGy5e0acOJEwqHVIKeHq6urF7NtWsEBFCxIjY26Z1JCCGE+ETSgAkhhK7y5ycqiurVuXCBmjWJi/vbiJw5WbuWqVMxNCQsTPkEWbKwZAnjxqFW5/mh/+pcfQ79kdKjB+7uNGhAvXrY21OuHMWLkzcv5ubo6wM8eMDdu1y6xMmTjBtHuXJsrjOR9u15/JgWLbhzR/mcCsmbl6FDOXoUX9/3L6WkcO9eOkQSQgghPpI0YEIIoQBzcyIjadCA+HicnDh48G8jVCoGDuTCBSIi0iSBSoWvL8uXY2zMnDlV/JrPn/p41SoiI9mxgyNHiIvj4kVu3SIhgZQU1GoSErh9m4sX2bqV8uW5eJEmTVUdEn9Prlydy5dp3ZqkpDSJmpa8vcmTh/r1WbiQEyc+tNhSCCGESFfSgAkhhDLMzNiwgZYtSUigQQM+fDZXoUJYWKRhiHbtiIzE0pKICOrU4caNfxqoUmFuTp48FC+OiwsxMQQGkj07K9ablDm99lGOwuzbx8qVaRg1bVStiqkpO3bQvTvly2Nmhr093bsTGCi72AshhMgQpAETQgjFZMnCqlW0b8/Tp+m3iM/RkQMHKFOG2Fhat+bly4/5kIEBPj6cOUPnzlxKtHJ4FLkw58Ddxq5pHVZxr3aAnDmT1q2xtiY5mZgYFi7ku++oVSu9wwkhhBDSgAkhhLIMDVm6lEGDsLcna9aP+MDUqZQowZYtSoawtiYqiqJFOXTok472srJi8WJ27sTAtmT3h1Od2udr3pxr15SM9hlkz463N2vWcOECjx6xbx8zZtCnDyNHvj/y5UsaNvyHJaNCCCFE2pAGTAghFKanxy+/sGfPxzVgt25x8SJNmrzeBV4pFhasWoWREVOmfOq2H05OHDtGYODrRZVlyhAQkFkfpsqWjZo16duXWbMYMuT9q8nJHD3K7t04OjJyJC9epEdEIYQQXxlpwIQQIl35+/PDD2g09O3LnDlKVq5alfHj0Wjo1etfHgb7IENDfHw4fZrOnXn2jOHDqVKFP/5QMl1GkDUrly4xbBgaDRMnUrUqMTHpnUkIIcSXThowIYT4TJydqVGD3bvffVelYvRopk4F8PZm5kwlpxw6lGbNuHuXjh1JTf3UTxcsyOLFhIVRrBgmsQecHZN79frSNnnPlg1/f/bto3Rp4uKoVo3hw0lOTu9YQgghvlzSgAkhxOeg0XDvHgcO4OSEmxtnzrx72ceHKVPQaPjmG2bNUmxWlYrffyd/fvbs4aeftKvRvDlnAiP2U2Ozqsni+S9LlGDCBJ4/VyxjRlCtGjExDByIWk1AADVqcPlyemcSQgjxhZIGTAghPgeVigMH8Pcne3bCwihfnj59uH37rREDB/LLL697sAULFJs4d26WLUNfHz8/duzQroZR1QpYWdVTb99QqO+jR4wahY0Nc+dm1gfDPsjEhKlT2bmT4sWJiWH+/PQOJIQQ4gslDZgQQnwmpqYMG8bFiwwYADBnDtbW+PqSmPhmxKBBTJ6MWk3fvlqsGPxHdesyYgRqNV26aLmC0MqKsDBMTRtem3+1p5+jIzdv4uVFuXKEhKDRKJY03dWpQ2wsixYxaFB6RxFCCPGFkgZMCCE+K0tLgoKIjaVZM549w88PZ+e3Lg8ezPLl/PYb+vpKzurrS7163LhBly5aNkxVqhAcjJ5eofm+e23795BdVwAAIABJREFUhIem2Nhw9iweHh96sC0zMzOjS5e0PS5bCCHE10waMCGESAe2toSHs3071apRpMi719q3p2dPhefT12fxYiwt2byZwEAti7RuzerVmJoyZ06z3xqf3Pdw9mzy5ePgQZyccHHh+HFFM2ckGs1bNyqFEEIIHUgDJoQQ6cbZmQMHWLHis0xWsCCLFqFSMWwYBw5oWaRVK3buJG9etm0zdK7t1eb+hQuvH2zbto1KlfDw4M8/lUydQfToQe7cTJ/+Ra23FEIIkS6kARNCiK9GkyYMGMDLl3TqxKNHWhZxcODAAcqW5cQJTpzImvX1g23DhmFoSEgIZcsyfDgPHyqaPL0VKcKzZ/Tvj4cHz56ldxohhBCZmTRgQgiRsSQk0Ls3mze/9drDg9BQZapPmkS1aly6RO/e2hcpWpSDBzlwgLp1X71haYm/P3FxuLuTmEhAACVK8MsvX85u9b6+rF1LzpysXo2jI1eupHcgIYQQmZY0YEIIkbEcOsS8eTRtSp8+PH0K584REoK7uzJLFQ0NWbqU7NkJCWHePO3rZM1KtWrvvWdjw6pVr886u3+fIUMoXpypU7+Qp6dateLwYcqU4dgxqlRh5870DiSEECJzkgZMCCEyFldXJk8mSxbmzKFiRfalVicggNRUPD1ZulSBCaytmTsXoH9/YmMVKPguBwd27mTzZhwcuH2bQYOwtiYo6Etow0qU4OBBmjfn3j0aNmT69PQOJIQQIhOSBkwIITIWlYrBg4mOxt6eixepXRufG0NTR48jNZWuXVm2TIE5PDzo0YOkJDp2VGyZ4I0bTJvG48evXjVqxMGDREbi4EB8PAMHUrQoAQGZvg3Llo3QUAYPJiWF/v1ZvTq9AwkhhMhspAETQoiMyNaWAwfw98fAgGnTqBDqG+/1pgcLDlZggt9+w86OU6fw8VGgGvDrr/j4UKvW2w9INWjwug2rWpU7dxg+/Etow/T1mTyZRYuws6Nw4fROI4QQIrORBkwIITIoAwOGDWPPHkqW5ORJrIN9Hw8cS0oKXbvyww+6Vjc2ZtkyTE2ZN0+ZlY3ffvt6a8Tq1Tl06O0rDRpw6BCRkVSp8roNK1aMgACSkhSYNr106UJsLA4O6Z1DCCFEZiMNmBBCZGjVq3P0KAMGUKkSGl8/pk9HT4+xYxXYk6NsWaZMAfD25tw5XasVLMj+/TRpwq1b1K3793gNGnD4MJGR2Ntz+zbDh1OyJEFBmbsNE0IIIT6VNGBCCJHRmZoSFMS+feTIAd98w7p1ODlRvrwCpfv0wcODp09xd+fpU12rZcvGunX07k1SEp06MWECavV7Q161YWvWUL48164xcCClSxMY+GUe3yyEEEL8nTRgQgiR2TRrxs6dlC2rTLV58yhdmuPH8fT8e7/0yQwNmTOHgACAUaOoW5cbN94bolLRujXHjhESQrlyXLnCd99RrBh2dowaxcGDCqRIF8ePY2pK586Z+wk3IYQQaU0aMCGEyKyaN6doUZYuRaPRoUq2bGzahKUl69czerQyyYYOZdMmChQgKorJkz84RE+Ptm2JjSU0FA8PcuQgLo4JE6henfz56dWLdesy2TnOJiYYGrJkCbVrc/16eqcRQgiRUUkDJoQQmZWhIVeu4OmJgwN79uhQqFgx1qzByIiJE1myRJlwrq7ExTF16r/vsqinR8uWrFzJ/fvs3cuwYZQqxe3bzJ9Pq1bkyoWLC0FBmaOfsbFh/35KlCA6mqpVCQ9P70BCCCEyJGnAhBAis1qzhlWrKFoUiyNbi9UtPLnsgpMnta1Vpw4zZgD07s3+/crkMzd/ff7XR9DXx9ERf3/OnPn/rbDkZLZtY+BAChemShXGjycuTploacTWloMHadCAW7do0YJGjTh9Or0zCSGEyGCkARNCiMxKpcLdnZMn6dfxYSGuDTnVY53dWO8+mjt3tCrXsyf9+pGURKtWXLumcNZPUa4cI0awfz/x8a9vhZmaEh3NuHHY2VG7NitX8vJlOgb8NxYWbN5MYCDm5mzZQoUKDB5Mamp6xxJCCJFhSAMmhBCZm6kpbks9Hk2Zn6pnOEr9g/Oc9rWrJmn5L/6gIBo04PZtWrTg2TOFg74ydizW1qxf/zFj8+ShRw/WruXePTZupE8fcuQgKor27SlSBD8/4uPTJKOODAzw8eHcOfr2Ra1myhROnEjvTEIIITIMacCEEOJLkOO7HvoRG9Vm2T1YFfK8qd7jh29fVatZsYIFC1i9mm3bOHyYs2e5efNvO88bGLBqFSVLcuwYnTunyXaEjx9z6RItW9KtG48efeSHjI1p0oRZs7h1i0WLsLMjPh5fX4oUwcODbduUj6k7S0tmzODYMVatokKF9E4jhBAiw5AGTAghvhQuLnp/RFGokN29HSrHWly58teVPXvo0IEePXB3x8UFBwdKl6ZAAbJlw8iI6dPfKmJuTlgY5uaEhuLrq3zIqVOZPRszMxYtokwZNm78pE8bG9OlC7GxHDlC584AISG4uFC5MnPmpNVNO12UK4e7e3qHEEIIkZFIAyaEEF+Q8uWJiqJsWU6domZNzp599Xb16owZQ7dutG5NgwbY21OyJPnyYWpKSsrfzq0qVYqVKzEw4McfWbZM4YQqFV5eHD9OnTrEx9O8OX36aHEGtL09ixdz5Qr+/hQowNGj9OlDgQL4+HD5ssKRFbd7N5MnK3DwtRBCiMxIGjAhhPiyFC5MVBTOzty8yZYtr94zNmb8eBYsYM0aIiM5coSzZ4mP59kz1Gq+//5vRVxc+OUXNBp69uTgQeVDFivGjh1MmPD64Obq1bl1S4syVlYMG8bFiyxejIMDjx4xbRolStCiBWFh3L+veG5ljBnD999TsiSLFul2hpsQQohMSBowIYT44uTMSUQEu3fj7a1dgRs30PQfgLc3SUm0bJkmmyLq6zNiBIcPY2vLyZMMHap1pSxZ6NyZgwc5dIguXTA0JDwcNzcsLSlenHbtmDSJnTt5/FjB9DqZMYPq1YmPp1s3qldn/nzOn0/vTEIIIT4XacCEEOJLZGhInToYGWnx0Y0bKViQ2rU55T0NZ2du3cLNLa2er7KzY88evLxeP9Glm6pVWbSIa9eYOBFHR7Jm5fJlVq1i6FCcnTE3p3RpOncmKIh9+3j+XPcJtVSuHH/8QXAwBQpw6BC9elGyJAUK4OmZCdZPCiGE0JE0YEIIId5RsiT587NvH5UcDCdWDtFYl+DoUbp2TavVcrlyMXs2Li5K1cudm+HD2buXR4+Ii2PBAr75BgcHDA05e5YlSxg4EEdHsmfHzo4ePViwIB1OFVOp8PTk7FlmzKBNG/Lk4eZNli5l9erPnUQIIcRnJg2YEEKId9jYcOoUAwaQmsrIyRaNXoanmOVkzRrGj0/vaJ9GX59y5ejWjenTOXiQJ0+Ijmb2bHr1omJFVKrX7VmPHtSqxblz6ZAwa1b69mX1am7d4uRJ1qyhX7/3x2zdiqcnQUEcOyYHOgshxJdAGjAhhPgKJCZy9erHD8+Rg6Ag9uyhbFm2Xi3d/NmKVJUBfn6sWJF2GdOaoSGVK+Plxdy5HD3Kkyfs38+0aRQtyuHDrzeyTy8qFba2tG5N1qzvX1q+nKVLGTiQSpUwN8fZmREjCA3lxo30CCqEEEJn0oAJIcRXoFMnSpQgKuqTPlSzJjExjB/Priyu32t+RqPR9OhJdHQaZfy/6Gi++47bt9N0EmNjqlenf39iY/Hy4tkz+vShUSPi49N02k8WGMjvv9O1K8WL8+QJO3fi70/r1hQsiL19OiyeFEIIoSNpwIQQ4itQsSIvX+LpycOHn/Q5IyPGjOHYMWLqfrdAr6cq8TkNG7J3bxrFfG3JEgIDqVcvrXuwV7JnZ/ZsQkKwsGDLFipWJDz8M0z7sXLkoHt3Fi7k4kVu3yY8nDFjcHXF3JyEBNTq98efO8fRo7JYUQghMi5pwIQQ4iswciQ1anDlCr16afHpUqXYtQuPezNo1YqEBBo2JCRE8Yz/N2oUdnacPo2z8+fpwYC2bTl2jHr1uHMHNzf69EmrfR91kScPzZoxfjwRESQkcPkyWbK8MyA5mYoVqVwZa2umTMlAO+8LIYT4izRgQgjxFTAwYMkSsmdnzRp+/127GlnNjVizhu+/JymJdu3w9VU04lssLdm1C3t7Tp2ibt3PtiiwUCG2bycwECMj5syhShViYj7PzIoxMqJ/f4oV48oVBg+mUCEGD+bKlfSOJYQQ4i3SgAkhxNeheHF+/RVgwADOntWyiErFzz8TGIhKhZ/f8Xo+Naqp02TBnrk5kZHY23P2LPXqfbYeTKXCx4cjR7Cz48wZqlXD1zeTLecLCODiRTZswNmZx4+ZMoUSJWjfnsOH0zuZEEIIQBowIYT4inTpQqdOPHtGx44kJ2tfx8eHVaswMbHbNW3YoTbtWiQ2bMiJE8rlfMXcnM2bsbP7zD0YUK4cBw8ybBhqNX5+1K7NpUufbXIFqFQ0bcr27cTE4OmJSsXKlVSrRmxseicTQgghDZgQQnxdZsygeHFiYhg3Tqc6bdqwfTuWli1ZF2VY71jk3QoV6NJF6Se2cudm2zbKl+fsWZo2VbT0fzA2xt+fiAgKFGD/fipVIjj4c86vjFexL19m2DDc3ChUKL0DCSGEkAZMCCG+Ltmzs3Qphobs2KFrqRo12L2bIkUqvzx4OmeNMgbng4MpUQJfX168UCLqK7lzs307VatiYKBc0Y/l4sKxY7RsyePHdOmCpydPnnz+FLoqUAB/f0JDsbBI7yhCCCGkARNCiK9O9erExrJunQKlbG05cIDKlXM9vBhrWmNwjT+ePsXPj8qVFW1Ucufm0CEOHVKu4iewtCQ0lLlzMTNj6VIcHbl2LV2CKO/oUaytadSI779nwQIOH+bp0/TOJIQQXwFpwIQQ4utTpgxWVsqUypeP3btp0kT/4f3JxxtG+22wteX6dZ4/V6Z8BtGrF9HRlC7N8eNUq/aFbGjx7BlXr7JlC5Mn06MHDg5kz07x4jRrxujRPHiQ3vmEEOILlQ4rOoQQQnxRzMxYv55vvmHOnMrjW56Y9mtS974mJmk86d27dOlCuXIMGPB5nm0qWZJDh2jXjs2bqVOH33+nQ4fPMG0acnTk6lUOHeLUKeLiOH2a06e5fJnLl9m4kcKF8fJ6Z/ydOyxfTlLSB0qZmuLl9f6hZHfusH49+vpky4axMSYmmJlhaEjOnJiby3pIIcTXSxowIYQQOjMwYPZsihdnxAjVN/1Mzp55vVX9G2o1iYlkzarcjDdvsnUrEREEBdGuHUOGUKGCctU/LFs2wsLw8WHGDDp14uzZNDwL7fOwssLNDTe31y9TU7l4kRMnuHmTjh3fH/zDD0yf/o+lihShRYuPHW9gQFQU1aq98+aNG2zaRL58FCxIwYLkzv3f+ZOSuHeP27e5fZt797h7l1u3eP4cZ2fatPnvjwshRLqQBkwIIb56p09TqhR6Oi9KHzaMvHnx8mLaNB48YN48jIxeXfH2ZuFCevZkzBjy59d1HoAKFThyhEmTCAlhyRKWLKFhQ4YMwcVFier/yMCA336jZEkGDcLPj6tXmTXrr2+Z6enrU7IkJUt++Oq332JmhkbzgUv58uHq+v6bffsCPHvG06ckJpKUxJMnpKTw4AFmZh/or8aOfeeQcBMTChV63YxVqICPD/r674wfORJ//w/nmTGDy5cpWvSfv6oQQqQfacCEEOLrFhKChwe9ejF3rgLVunUjXz7c3QkO5upVgoNfrQ8sXx61mlmzWLSIb79l2DBy5dJ5rkqVWLaMiRMJDGT+fLZuZetWKlZk/HiaN9f9q/wLHx8KF8bTkwULOH+e0FAsLdN0wgyhVCkmTvyE8ba2r4/+/kjffYexMVevcvUq16+TkMC5c5w79/qqoyMODu9/xNCQ3LnJnZt8+V7/Jk8eDA0BihR5f/COHTx8SN26SvzZE0IIHag0H/zZkcjM7O3tY2Ji3Nzc1imyy5kQ4st27hyVKvH8Ob/9Rr9+ytSMiaF5c27exNycmTNp1w44e5affmLpUtRqzMz45htGjiR7dmUm5OFDZs1i2jTi48mVi3v3FKr7b2Jjad6ca9coUYINGyhV6jPM+RV5/pwrV7h+nevXUavp0ePtNa2fLCUFExNSUtDTw86OevVwdqZOHeX+BAohtNK5c+clS5YEBwd7enqmd5bPR3ZBFEKIr1vJkixejEqFjw87dypTs3Ll1+dnPXhA+/Z4ePDgQalSLF7MoUO4uvL0KQEB2NgwffqHl5B9spw5GT6cy5dZtowlS5So+N8qVODAAeztuXCBmjXZvfvzTPu1MDWlTBlcXOjenZ49deq+AAMDZs3C2ZksWTh2jKlTad4cCwtq1+ann7hzR6HQQgjxEaQBE0KIr16bNgwdSkoK7u5cuqRMzdy5CQ1l0SLMzAgJoWLFVw2KvT0REezaRc2a3LlD//6KNX0AWbLQoQONGilX8T/kz8+uXbRoQUICDRuyePFnm1l8sp492b6dhAR27mTMGBwd0dMjKorRoxk9Or3DCSG+JtKACSGEgAkTaNaM+/dp3ZpnzxQr26ULx49TqxZXr1KvHj4+JCcDdeuybx9hYQwd+v5WeGnizh2FbrR9gJkZa9cybBjJyXTtio8PanUaTSUUYGyMkxPjx7N3LwkJhIby3Xd4e78/LDWV06flf6UQIk1IAyaEEAL09Fi2DFtbYmPp0kXJdqVYMXbtwt8fAwOmTaNKFeLiXl1p3pyAgPf3pk9NZexYAgI4f16hAAcOYGWFszM3bypU8X36+vj7M2cOhoZMm0a7diQmptFUQklmZrRsyZQpVK78/qWxY7G1JV8+Ondm2bKPeqjw8WMePODRo7RIKoT4okgDJoQQAoBs2Vizhhw5WLtWmR0R/2JgwLBh7N2LjQ1xcVSrRlDQP/V4N27w448MH07JklSogJ/fX/2atvLnJ29edu2iUiW2btWt1r/p3ZuwMLJnZ/Vq6tfnxo20m0qkudq1KVaMu3dZsoROncidG5Xq9a8CBUhIeH+8tzc5cmBhQc6clCnDxIlcv54euYUQmYE0YEIIId4oXZrlyzE3x8RE+eLVqhEdjZcXiYkMHEijRh+8JVW4MJs34+lJzpwcP46vL3Z2lCrFiBHExGg1b+HCxMbSqBF37tCoET4+vHyp41f5J40asW8fRYuyfz9lyvDLL2k3lUhbjRpx6RJnzjB1Kg0bYmz8/0vGxh/YESRnTszNMTcna1bOnGHkSIoUwdWVpUtJSvqcwYUQmYA0YEIIId7SuDEJCXTunCbFs2Vj9mzWrCFXrtdndoWF/X2UqyvBwdy+zaZN9OpF7tycO4e/P/b2hIdrNW/u3GzaRGDg62WQDRqk3f2pcuU4cIA2bXjyhCFDqFRJdkfMxEqVYuBAtmwhMRGN5vWvixcxN39/pL8/CQkkJPDoERs34uGBkRFbt+LpSatW6RFdCJGBSQMGQMqRGV7du3fv8c1P6y/Iwn0hhEhTrVtz8iRNmnD3Lm5udOnC06d/H2VkROPGzJ1LfDw7dvDttzg6YmOj7aSv9tnfupX8+dmzh0qViIzU5Uv8i7x5Wb2aHTsoU4aTJ3FyonlzWZD2tdDXp0kTVq4kPp6ZM3F2xtExvTMJITIYacAASP1zV/DChQsXzBjdunJVz+kH78u+R0IIkYby5mXDBqZOxdiY4GBq1PiXk5j09alXj19/Ze9eSpfWbV4nJ44excWFu3dp0YLUVN3K/Zt69YiNJTAQMzM2bKB0aQICSElJuwlFxpIzJ97ebN/OqFHvX3rwgPDwD/7YQQjxVZAG7D3qJyeXDqhdwWXk+kuyaFsIIdKOSsXAgRw+jK0tJ07g4sL9+59a49YtSpWiWTO2b//oz+TJQ0QEQUH8+CP6+p864ycxNMTHh9On6dyZZ88YPpwqVdi3L03nFJnA2LG0aEG+fLRrx/z5cndUiK+ONGDvMLBu1NEpv0HKjR0TW1dy6Drj4N00/OmoEEJkfNeu4eLChg1pVb9cOXbtomxZjh+nfv0P7C73r16+5H/s3XdUVNfax/EvHUQRFCkWLIAFQQ3YewMLYEexgNdu7CVRU9U0Na+JPRq7osaCFTuoiWLsHVQUsSugBrDSZN4/nBsvhCSUGQ7l+axZrvHMmb1/B1HnYe+zd3Q0e/bQti0ffMC6dVlb9EJXlzFjmDgxZ5Gzq3x51q4lOJhq1bh0iWbN8Pf/hwE/Ufj170+zZrx+zebNDB5MhQq4uPDRRxw8KCt2CFEkSAGWjo5l62kHLx2d18ephOr5lbWjmlSt0/Or7deea2v/TiGEyOdu3CAkhJ49c7oEYRaUKaO+X+rSJdq2JS4u62+tUIH795k7l/LluXgRPz/s7Jg2Lbt13H89eMDz5zl6579r25YLF5g6FSMjAgKoVo1587Q6BVLkX3XrcvQoUVEsWkSnThQvTlgYP/xAu3bUqaN0OCGE9kkB9he6lg1Hrz9zfttn7SoapcWHbZnavbZjwwE/Hrz9WulkQgiR59q0US8c7+2tvY2MsbLi4EHs7blwAU9PXrzI+lvNzBg7lshIVq7E2ZnoaKZPp1Ilpk/PZob4eKpWpVw5JkzQ0hqJJiZMm0ZYGB07Eh/PuHHUq8eJE9roShQAlSoxYgQ7d/LHHxw5op6h6uSkdCwhhPZJAZa5Yg5dvtl3+cy68S3KGpISe3r1xPZO1VsOn731XHSS0tmEECJPLVxIixY8eoSPD0la+yewfHmOHKFyZU6coEOH7C5QYGTEgAFcvsz+/bi78+IFs2eTlq31lIoXp2NHXr1izhzs7Rk6lMjIbGXIInt79uxh2zbs7LhwgaZNadaMb77hzJlsBhaFhYEBLVsyYwZnzrBtW8ZXHz7E3h4PD3bulO8QIQoJKcD+no6Zc58fj1y/sOkzT3tTHVXi/d9+/rhHPbtyLl6jZgeeeSyFmBCiaDAwYNMmKlTg998ZPlyLHVWowJEjVKzI8eN07ZqDu2F0dGjXjoMHuXqV06fRTf9f3Js3tG5N27Z8+SX79hEfn/7N+voEBnLpEn5+vH3LsmVUq4a3N2fP5uqi/kbXrly7xiefYGhIaChffEH9+lhb07s3q1ZpcaxRFDhJSTx5QnAwXbrg4MAPP/zlW1cIUdBIAfYvdEo4+XyzO+zqoYUftrQz0UGV8ixsz6KPfRpULOfcfsDk/1sVdOLGsyS5R0wIUahZW7NtGyYmrF7N/Pla7KhiRYKDKVuWkBA6d87xgFuNGtSokfHgq1ecPcuhQ3z9NR07Uro0zs4MHcrGjf8zsODiwtq1XL3K4MHo67N7N/Xr4+uLSvP/zhcrxnff8fQpwcFMnoyTE0+fsnEjAwdSrhz29gwbRlCQrMpQ1FWpwv37zJmDgwO3b/PRR5Qvz4cfcvWq0smEEDklBViWGNu1GvnTkYiIX5d/6tugnIkOqFKehR9Y/f2kgZ0aV7cyt3Fq1nXIZ4ERcju1EKKwqluXZcsAxo1j3jwtduToyOHD2Nhw8CC+vllb1jBLLC25fZvt2/noI5o0wcCA8HCWLaN3b9zdSUhIn2HZMm7dYtw4ihVj3z7tzb00NaVtW2bOJDycGzdYuBBvb4oXJyqKpUvp1InSpenQgblzuXZNSxFEfleyJOPGERHB7t14ePD6NUuW4OxMt27a+MmAEELrpADLBuMKzQd9+8vJ2/cu7Zw7tpOLpYEOAKq0xNhroTuW/7j5iuywKYQoxPr2ZfFidHXZtUu7HVWrxoEDlC7Njh34+mpw9+LSpenShf/7P0JDSUjg+HH+7/+wseHwYQ4e/MvZ5cszZw4PH3LzJsbGGV99rfmVmRwdGTmSXbt49ky9KoOrK2/esH8/48fj5IStLd278+OPnDypwcpUFAy6unh6cuAAV68yYgSmpvz6K8nJSscSQmSfFGDZZ2Dp0mns3J2X7989s2vJ1KFedcub6ukoHUoIIfLC8OGEhbF5s9Y7qlWLkBBKlWLbNvr00cZ67UZGNG7MRx9x+TLr19Oly9+cV7IkVlYZDx4+jJkZlSszdChbtuR02fu/ZWioXpXh3DmiowkIwM8PGxuio9m2jYkTadSIkiVp3pxPP2X3bo33L/K16tVZtIjHj7l1CyMjpdMIIbJPX+kABZixrZv3MDfvYdNI/uPm2WO/nUisqqd0JiGE0Lbq1fOoozp12LsXDw+2bKFYMVauzLiqhoaUKUOfPtl8T6lSWFpy5w7LlrFsGXp6uLri7o67O40bY2iowXhWVvTrR79+AI8ecfw4oaEcP86FCxw7xrFj6tOqVKFJE5o2pUkTnJzQkZ8LFnbFi2dyMDyc+fPx9MTLS0t/XYQQGiAFmCYYlnJs3NmxsdIxhBCikGnQgH37aNeONWvQ02P58vxSWNSpw6NHXLhAcDAhIYSGcuYMZ87w3XdYWHDmDPb22ui2bFl8fPDxAYiL48QJfv9d3XlUFFFRBAQAWFnRpQsffYSjozZSiPxr+3aWLmXpUipV4sMPGTSI0qWVziSE+Av58YgQQojcOXyYBw+01Xjjxuzbh6kpK1cydqy2ekkvKQlvb0aN+sf7vHR1cXNjyhRCQvjjD/btY+JEatXKm4SAhQUdO/LNN/z6K/HxnDrFnDn06IGtLbGxLF1KjRr4+nLhQp4lEsqbOJEffsDBgTt3mDyZChUYNEi+B4TId6QAA0CvepePp0yZMmWSfwML+ZIIIUTWXbtGmza4uWlpvyyApk3Ztg1jYxYsYMyY7O7RnAOvX/PbbyxaRL16XLmShTcUK0b79syezaVL/PGHloa//oGBAfXrM24cW7bw6BHh4QwahJ4emzbh5kaHDhw9mseJhDJMTJgwgYgI9uyhQweSkli5EldXmjZ9P1tVCKE4qTYA0Hfu89WMGTNmfDOiuWX+mN4ihBAFg4MDHToQG0urVpmtJKghHh4EBmJoyIIFVKzI1Kk8faqtvsDacVbkAAAgAElEQVTCgtOnqVWLq1epX1+7q+5rg5MTy5dz7x5Tp2Jmxv79tGiBmxtbtsiq5UWCri4dO7J3LxERjB+PuTnHjzN1qtKxhBD/JQWYEEKIXDAwYNcuBg3i5Uu8vdmwQVsdeXoSEkLTpvzxB199RaVKjBvHvXta6q16dU6dYswYEhMZN46uXXOx0qCvLw4OnDihyXxZYG3NtGncu8fMmZQuzfnz9OxJrVqsXavBhf1FvubgwI8/8uABGzawaJHSaYQQ/yUFmBBCiNzR12fZMqZOJTmZfv34/nttddSsmXrhPy8vXr9m3jwcHPD35+pVbfRmbMy8eWzbhoUFO3bwwQeEhuaooeRkbt2iRQu+/z7vR6DMzJg8mbt3mTuXChUIC6N/fxwdmTePN2/yOItQhqkpvXtTo0bG4wEBNGpE+/b4+jJ8OFOmMGsWP//Mpk2cO5d5UwkJ3LtHVBRXr3LuHGfOEBJCSMjfni+EyJxK5NKbPx49fPDgwYMHD5+9UTrLO66urkDnzp2VDiKEKGLmzVPp6qpANWaM6u1b7fZ1+bLKz0+lr68ClY6OystLdeKElrqKilI1aKAClYGBKjw8++9PSVFNnar+yrRpo3r8WPMRsyYpSbVihapaNRWoQGVtrZoxQxUbq1QcobD+/dXfCX996Oiorl7NeP7Ikf90fkSEEtcgCr5+/foBAQEBSgfJUzoqmQ+eO0k7+5Xpuv6FCox9tsRv7qG5LRF37NixZMmSt9nffvTUqVMvXrzw8PA4cOCAxtIIIURWrFvHwIGkpDBtWl7cdHLnDnPmsGyZejSnSRMmT8bLS+Or1aekMHUqBw6weze2tjlqIiQEPz+io7GyIiAADw/NJsy6tDS2bWPmzPejFnZ21KlD7drUqcMHH1C5slLRRJ5KSeHCBeLiiI9XP/58bm7OnDmYmKQ7/9tv+eEHihfHwAAjI4oVQ0cHc3MAe3vmzsXYON35rVpx9SodO+LpiYcHZmZ5d2miAPHz81u3bl1AQMC7SqyIkAIst7RXgPXo0WPr1q05frubm9tZ7S1KJoQQf+fAAfr1Y+JEpkzJox6fPGHRIubPJy4OoHZtJkygb1/09PIoQBY9fEjfvvz2G3p6fP45X3yhbMKDB/nxR0JDefUq3fGSJalT5/2jZk0MDBSKKAqydu3er8tjYECzZuodoqtWVTSWyGekABM5ob0CLC4u7lyOZlWPGDHi5s2bnTt33rFjh8bSCCFEPpeQwOLFzJ1LTAyAkxPr11OnjtKx0nv7lunT+fZb0tJYsIBRo5QORFoaN29y8SIXL3LhAhcvqr9+fzI0pGZN6tTBzi7jkMg7xsYZjxsbY2aGmRklS2Jurn5iaKjFqxD5U3g4e/awZw+///5+6RcHB374gU6dMp4cHa3eea9kSXT/u0aBoSGmpnkVVyhBCjCRE6q4W+duPn2rAt3SjnUdSuWDVezd3NzOnz8vBZgQoihKTGTVKmbPJioKExMWLWLAAKUz/cXhw8yZw/TpuLoqHSUT0dHp6rHISNLSNNDsX6syMzNKlcLeXv2oVEmG2gqtuDj1DN79+3n2jCFDWLo03QnHjtGyZebfaXp6LFrEsGF5k1TktaJZgOkrHaDA07Gwr1s/r/fcFEKIAubVK1JS1PeLaJWxMR9+yMCBTJrE/PkMHMiRIyxZQrFiGu9qwwaWLmX+fGrVyuY7W7emdWuN59EUGxvat6d9e/VvX77k8mUuXSImhsTETM5PTMy4oOLr1zx/rn7Ex5OQQEICiYkkJhIb+7f96utTocL7euzPR/HimZ//8iVxcerblv73SWoq9erRurXcdJSPWFjg64uvL2/fcvUqDg4ZT7C15YMP1JOIExLeV2LJySQlZTJX98wZ/P2xsMDeHkdH7O1xcMDBgdKltXwlQmiCFGBCCCG0r3lzbt5k4UL8/fOiOyMj5s2jXj2GDSMggCtXCAzEXsM/LDt9mt9+o3lztm6lTZtcN/fqFQcP0rx5fvsIWbw4jRvTuHFu2/lrVfb8ObGx3Lqlfty/z+3b3L5NSEi6N9rYUKUK5crx/Hm6cuufdzPT16dhQ9zd8fCgXr18dz9gkaWnh4tLJscdHMjWfesxMdy4QVpaxg32SpTA0ZEVK/Ld7GMh/pcUYEIIIbSvcWPOn6d/fw4e5Kef8mhsol8/3Nzo3p2LF3F1ZeVKunfXYPPff8+TJ2zYQPv2/PQTQ4bkrrlFi5g8GWNjevRg2DCaNtVMynyjWDGKFcPG5m9PSE7m9u339di7R1QU0dFER2dyfvHiWFhgbo6FRbonqan8+isnThAaSmgoU6diYUHr1nh44OFBpUpau0KRh7y8ePSI69eJjCQyklu31L8+f87581y7lrEA27OHCROwsqJSJezssLOjQwfs7BRKL4o8KcD+RerLpzFPnsU9f52UkqZrZFqiRImSltZlisvXTQghsmPBAurVY+RI1q8nNJT162nSJC/6rVGDU6cYOJDAQHx8GD2a2bM1daeRoSHr1uHoyPTpDBvGw4dMm5aL5nx8OHaMfftYt45163B2Ztgw/PwoWVIjafM/Q0OqVaNatXQH09J4+JBbt3jyBDOzdOXWP/8xvnjB4cMEB3PwIDdvsnUr79YVdnRUV2KtWlGihBYvR2ibtTXW1rRoke5gXBwvXmRSWUVFceMGN268307dxIRPP+XjjzHS3PJpQmSRLMKRiTcPTwZt2ro7+NipC2FRsa9S03+FdHQMzcrZV3ep16pD5y5d2tevUCwfrLuRjizCIYTIp+7coU8fTpxAX5/PPsu7ddhVKubP5+OPSUmhRQs2bvyngZjsW76cDz8kNZWBA1myJHf13d27LF/OihU8fgxgaoqvLxMnUqOGhsIWRbdvc/AgwcEcOkR8vPqggQGNGuHpSadOVK+uaD6RJ+7e5fZt7t3jzh0uXmTHDlQqqlVj1SoaNVI6XBFWNBfhQNFtoPOdt09PLh7ayMYwqyWVjkGZuv3nHotOVTp4Oq6urkDnzp2VDiKEEH+RlKSaOFGlo6MCVZs2qidP8q7ro0dVtrYqUJUrpwoN1Wzb27erTExUoPLyUiUm5rq55GRVYKCqbVv1F6pOHQ1EFCpVaqrq999V06ermjRR6eurQP2oWlX18ceqY8dUqfnr/3OhRb/+qnJyUoHKzU3pKEXbu7orICBA6SB5SkbA3ku+tWFwh4Hrbib99yuio1esVNkKdhVsS5coZmJipJeWnPjm9Ys/Yh7ev/fwycuUP08zsOu8YO+GYTUz2x5FCTICJoTI7w4coH9/YmL4+ms+/zzv+n3yhN69OXQIfX2++YZJk9DR2CSGkyfx9ubpU44coWVLDTV68ybr1uHiQo8eGmpRqCUkEBLCrl3s2cOzZ+qDZcrg5YW3N+3aaWPhTJG/pKSwdi3Vq+fRhGiRqaI5AiYF2H+9Of15o+bfXUpSoWNUtmGvoUP6dm7byKVCiUxnx6S9ibl+5rf9gWuWrtkf8TwNHcOqI/eent+mZL6YjSgFmBCiAIiJYeVK/vMfbG3ztN/UVL75hq+/Ji2Nzp1Zs0aDN1ndvUtoKL17v99GVluiotixg44dZfJc7r19y8WLBAWxeTPXrqkPGhvTtCleXvToQblyiuYTIpteveLePR484MGD90+ePuXLL/H2VjrcX0gBVpSl3fvJo8aoQ6/RK+f94841o93Ms1ZKJd3Z9XG3PgsvvMKowcxLxydVyw/r3EoBJoQQ/yIoCH9/4uOpWpXAwMwXxs7PRoxg8WKA+vXx98fXN78tXl9AXb3Krl3s3Mnp0+qtqHR1qV8fLy+srTOW6hYW6X5bsiS6uujoUKMGJvllTozIiRMnqF49459vfvP6dSaDtLdu0aoV9+9n/pavvuKLL9Id2bGD+fPx8qJPH83eGJsNRbMAk9X8AEi7v2NT6BsVenaDVgSMccv68shGlTrN2fT1xdoTj705vz3o9sRqDvmhAhNCCPHPvL05fZoePbh8mYYNGTGCjz7C2lrpWFk2eTKpqWzezOnTnD7NhAl4euLvT8eOGBoqHa4Ac3LCyYkpU4iJISiIXbsICeHkSU6ezEYj5ub07cuQIdSurbWgQmuOH6dpU8qU4fvv6d9fg5OUc+jBA8LDefiQ+/d58OD9k/h4Jk9m5sx0Jycm8uwZJibY2VGuHOXLU7Gi+knlyjg5ZWz8+HGOHOHIESZPxsMDf386d8bYOM8uruiSETAAkvcNLOu16hm2ww/cWdw2m/93pd1b0NpxzG+ppQcEPVrZMR/8xycjYEKIgirTH+pqtbtRo1i9GpWKYsUYNoyPP9bslMjnz/HwwNGR2bO1UN8lJrJjBwEBHDjA27cAlpZMm8bIkZruqeh6/ZqDBzl8mDdvSEhI91JcXLrfJiSQlsbr1+/nMdavz9Ch9OpF8eJ5lFbk3osXdO9OcDBAs2b89BPOzlrsLjWVmBju3yc6mrp1KV8+3atRUVSrlvme46amfPstY8dmPJ6Sko2FWFNT2b2bNWvYu5fkZABzc3x88PenSZM8Kj5lBKwIUyUlJatAt3iJ4tn/ZtM1MzfTBVVyUrIUs0IIkWOLFzNmDAsXMmxYHvVYrBgrVzJuHN98Q2Agc+awaBH/+Q9ffJHxc1BOJSZy/TqnTrF3L99/z8CBGv1MY2yMry++vkRHs2EDa9Zw+TKbNkkBpkHFitGlC126ZOMt16+zejUrVqiHJ8ePp3dv/PwK397ahVOJEhw8yC+/MHEix47h6oqHB+XKYWuLhweNG+e2/RUrOH+ehw959IiHD4mOVk92Bdq0ISQk3cllyuDuTkoK5cpRsSJly1K+PHZ2lC37t5OOs7UNhr6++tv72TN++YWAAE6fZtkyli2jb1/WrcvRFYoskBEwAFLPflqr0Yxrb01aL7wePMIuezdPv/ltTM02C27jMPHY1dmNNLO9Z67ICJgQokAKDKRnT3R0WL0aP7+87j0sjO+/Z8MG3r7F0JBevZg6FXv73Df88CGjR7N9O0DTpvz8cyYTgTTmxg0sLSlVKuNxlUr5qVRFTFISu3axdCmHDvHuo5aTE/7+DBmSyZ+PyIcSEvjiC376ST26DJQvn8ntVZMmce8e1tbY2KCjQ2wsT54QG0tsLN7efPVVupNjYzOOhOvoYGND2bKUK8fgwcovknHtGmvXsmULnp7Mm5cXPRbNETDZB+ydpOMT7PUAPbveG+9lZxeQtOenpjcy0wFdq/5BL7WWL1tkHzAhREE1d64KVHp6qk2blAkQFqby81Pp6alAZWCg8vNT3bihkYZ37VKVK6dudfJkTewVlnULF6r09VUeHqpVq1QJCXnYsVCpVKqICNXkyaoyZdR7jhkbq3x8VMHBSscSWXPzpmrHDtWiRaqpU1W7dmV89c0b9QaAmT5atsykwU2bVAsXqgIDVcePq+7fVyUn58FF5GuyD1iR9vbGvLb1xv/6XKVjWK712Bnfje9Z39boX94Sf33/8q+nfL0x7HmajqHLp6Fnvqn3L2/JGzICJoQowKZNY/p0DA3Ztg1PT2UyREUxaxYrV5KaioEBvr58/jlVq+ay1bg4Jk1ixQpUKmrUYNu2vFpD/pdfGDCApCQAY2P1kmcdO2KUL/7PKiKSkti+naVL+fVX9YBYrVr4+eHtTbVqSocTuXDzJmfOEBtLTAxAmTLqh40NTk6yJs6/K5ojYFKA/SklYmm3ViP2PH6rAnQMSjnUb9q0wQc1qlQsb2tZ0tTY2FBflZKY+Obls+gH92/fuHTm99CTYdGv01SArnnTrw7u/6yeqdLX8I4UYEKIgm3yZL7/HhMT9u7V3JbG2XfjBt99x/r1pKair0+fPnz6ae4/LB87xtChXL/O9Ol8+aVGgmZBfDxbt7JhA7/+qr7jxNycbt0YORJX17wKIQBu3mT5clavJjZWfcTREW9vvLxo1gx9uTdfFDFSgIk319aO7j121eX4tKx/UXRLOPWeFbBouGv+2IQZpAATQhR0KhUjRrBkCaamHDhAkyZKhrl1i+++IyCAlBR0dHB1pX17OnSgYUP0crjxSFISBw/SujWmef9zu0eP2LSJDRs4exagcmWiovI8hCA5mT172L6dfft4+lR90MKCdu3o1In27fP7JlRCaIoUYAIgNfb0L4sWLF8f9HtUQuo/fG109M0qNfDsPWjUyL6Ny+avAWYpwIQQBV5aGv7+rF9PtWpcv650Grhzh5kzCQjg9Wv1EQsL3N1p35727TW1cv3u3Zia5tUwyI0bbNtG5cr06qX9zsTfSkvjwgWCgti9m3Pn1Af19KhTBy8vevbU5pItQuQDUoCJ/5USf/vy2fNXIm7dfRjzLO7lm+RUDExMixcvXrKMnUO1atWdaztXMs8HSx5mQgowIURhkJrKF19ga8uYMUpH+a/EREJDCQkhJOT9h2WgShW8vPD2pnnzHN/zcecOlSsDlCqFpyedO9O+vRJDZPfusXkzHTpQs2ae913U3brF7t0EBXH0KCkp6oNVq9KpEz17Uq+eouGE0A4pwEQhIQWYEEJo3e3bBAcTEsKBAzx/rj5oakqrVnh70749dnbZai8tjW+/ZcOG9wN+xsa0aUPnznh7Y2Oj0fD/4N0NeEDDhgwaRK9elCiRV30LtYQEDhwgKIh9+3j2TH2wRQsmTaJDB9lQQBQqRbMAy96OV0IIIYQAqFyZoUPZvJnYWIKDmTgRJydevWL3boYNo3Jlxo0jOTnr7enq8sUXXLvG9evMmkXjxurbhIYOpUIFDh7U3pWkN348I0dibs7JkwwZQtmyDB7MyZN51b0AKFmSnj0JCCAmhqNHmTABCwt++w1PT2rXVt+QKIQouKQAE0IIIXLByIi2bZk9m/Bw7txhyRK6dEFfn3nzaN6cu3ez2161akyaxPHjPHrE0qV4eWFlRfHi2oieGRsbFi7k0SMCAmjRglevWLGCRo1wdlZvJi3ykJ4ezZrxww/cu8fcudjZceUK/v7Y2TFtGgkJSucTQuSIFGBCCCEKiIcPGT+e/fuVzvH3KlZk2DC2b+f336lShVOnqF2brVtz1pi1NUOGEBTEw4c0bpzx1dGjsbamc2fmzOH8ed6+zW32dExM6NePX38lIoLJk7GxITycWbM02ofIhuLFGTuWyEjWrMHZmehopk/Hzo6xY3n0SOlwQohskgJMCCFEAXHgAHPn0qED9eqxcyf5+R5mNzfOn6d7dxIS8PFh7FiNTxp7+5bYWHbtYsIE3NywtKRTJ374gbNnNVqMOToycyb373PgAOvWaa5dkRMGBvj7c+UKx47h5cXz58yfT5Uq+PsTEaF0OCFElkkBJoQQooDo14/Zs7Gx4exZunShTh02bVJvK5wPlSzJli3MnYu+PvPn06aNZocqfvqJe/dYu5ZBg3BwID6eoCA++oh69WjdWoP9AKCvj4cHDg6ablfkUNOmBAVx7hx+fqSmEhCAkxPe3nKznhAFgxRgQgghCghDQyZOJCqKBQuoUIHLl/H1pWZN1q4lNVXpcJnR0WHsWEJDqViRY8eoXZsDBzTYfIUK+PmxfDk3b3L/PgEBDB5M1aqUK6fBTkT+5erK2rWEhzN4MAYG7N5No0a0aZOHS7YIIXJECjAhhBAFiokJo0YRGcnSpVSpwvXr9O/PiBFKx/p79etz9izt2/P0KR06MGWKpm/YAihfnn79WLaMiAg2bNB485lZvhxzcxYuzNdzQYuAatVYtozbt5k8mZIlOXyYdu344AM2bMinP5cQQkgBJoQQogAyNGTIECIiWLOGZs1wdVU60D+ytGTvXmbORFeXWbNwdyc6Oi/737SJESM0fZvQ27ckJDB6NJ068eSJRpsW2WZry8yZ3LvH999TtiwXL9K3L46OLFjAq1dKhxNCpCcFmBBCiAJLXx9/f44eZfhwpaP8Gx0dJk8mJARbW44coXZtDh3Ks86XLWPxYmrWpF+/9xs959a79R5Ll2b3bpyd2bNHQ+2KnDMz4+OPuX2bNWtwcuLOHcaMoVw5xo7l8WOlwwkh/ksKMCGEEIXR+vUcP650iL9o2ZKLF2nblthY2rdn2rS8WUQkIIDhw9HTY/16atakTx+uXtVEu126EB5O+/bExuLtzdixJCVpol2RK4aG+PsTFsauXTRpQkIC8+dTuTL+/ty4oXQ4IYQUYEIIIQqhx4/p148WLfi//8t3dyhZWbFvn/pOsOnT6dw5DzZysrVl8WIiIxkzBkNDfvkFFxe8vblwIddNW1uzZw8zZqgXe2zYUBZEzyd0dPD2JjSUs2ffL5ZYowbe3pw+rXQ4IYo2KcCEEEIUOra26sGlSZPo1YuXL5UOlJ6+PjNmEBSknr9XqRK+voSGarvbChWYN4+bNxk5Ur1oXoMGnD+f63Z1dZkyhePHcXRU33sk8hM3N9au5fJlBgxAX1/95+7hwdatnD7NgwcybClEXtNXOoAQQgihBVOnUrcu/fqxZQuXL7N9OzVqKJ0pPU9Pzp9n0iS2bmXTJjZtonZtRo2iTx+KFdNet+XLs3Ahn3zCrFmEhlK6dMYT7t7lxg3q1cPcPDvt1qvH+fN8/TUuLpoLKzTGyYmVK/n6a+bOZelSgoMJDn7/qoUFNjaUKUPZslhZYWVF2bKUKYO1Nba2mJpmqYsXLyhWDEtLLV2BEIWHjiq/zc0Quebm5nb+/PnOnTvv2LFD6SxCCKGomzfp1o2wMEqUYM0aunZVOlBmoqNZs4aFC3nwAKBkSXr1Ytw4pSpGNzfOn0dHB0dH6tWjfn3q1eODDzA2zmmLR47w4480aoS7O66u6OlpMq7IvoQEfv6Zo0d5/JiYGGJjSUnRTMs6Ori50a0b3bpRrZpm2hSFm5+f37p16wICAvr166d0lrwjBVghJAWYEEK89+IFAwawdSu6unz1FZ99pnSgv5GczM6dLF1KSAiAri6tWzN0KN265XHFsnYtS5Zw4QKJie8PGhhQvjyenixYkPH8uXO5fBkDA/T1KVECwMyMMmWwtKRBA8qWhSlTmDVLfXapUrRpg7s77u5UqpQX1yOy4OlTYmOJieHxY/WT6GhiY9UV2ps3WWqkRAmePXu/6r2TE9260bVrft8kQihLCjBRSEgBJoQQ6ahUzJrF55+TlkZ8PGZmSgf6R+fP8/PPrFvH69cA9vYMGcLgwZlMFtSmlBSuXOH0ac6c4fRprl3j7VucnblyJd1paWmYmf3tTlP29kRGQnIyu3erJ73duvXnq3GWjveb9k76dHqNGhQvrs2LEXklMZHQUIKC2LSJmBj1QTs7unTB25uWLdGXe19EelKAiUJCCjAhhMhEaCgxMXTvrnSOrHn2jBUrWLyYO3cATE3p25fhw/ngA0XivHxJbCw2NpncnnblCmfOkJpKSop6uZOEBGJjefaMxo35+ON0J6dERI13Dm6VGtyawxbEJWNoTvwbTCpWpHp1hgwpMH8+4p+9fcuJE2zZwtatPHyoPmhpSYcO+PjQrh2GhormE/mGFGCikJACTAghCom0NHbvZuFCQkLU6+l/8AGDBtG3bzaXyMhHLl/m7Fmexb41Djv76InBvhjX69fVC/E1bMiJE/D0KRYWf068PHIEfX3s7Hj7lvh43rzhzRvi40lNpVUrrK3TNf7mDV9+SdmyeHpStWqeX5v4i7Q0Tp5k2za2bycqSn3QwgIPD+zsMDDAzAxjY0xMKF4cAwMsLDAwoHhxihXDyIiSJTEykgHSwkwKMFFISAEmhBCFTUQEixezbh3PngEYG9O9O4MG0bIlOjpKh8utt2+JiuL6dZydqZxwkbp1KV2arl3x8QmzbOlS529vgevdmw0b0h05cYLGjdXPHRzo2BFPT5o3z8UKIkJzLl5UV2JhYdl7Y9my1Kypfjg74+SU3+cRi6yTAkwUElKACSFElkRGsmEDI0YUmJWz3y3UsXYt+/bx9i1AhQr06cOHH1KxotLhNOTRI9zduXr13e9UlmVO2HTdkOKzP7GlSk+/ZEmMjTE1xcyMYsUYPpwmTTI2EBjI9u0cOKCuVQFTU9q0wdub//xH7kHKF27c4Ngxnj0jJYUXL3jzhsREnj8nJYWEBJKTefWKV69ITn4/5pmBnR1OTri44OSEszM1amR1rXyR30gBJgoJKcCEECJLJk7kxx+xs2PmTHr1QldX6UBZ9vAh69bx88/cvg3/s2Rily4YGCgdThMuX2bLFgIDuX5dfcTKikmTmDAhiyN+b99y6hR797J3Lxcvqudvbt1Kt25ayyy0Q6Xi7l3CwwkLIzyc8HCuXctYkunoULkyTk5UrYqDA/b2ODhgZyf1dgEgBZgoJKQAE0KILImOpmtXTp4EqFmTadPo3r0gzehLS+PwYdauJTBQ/YHUwgIfH0aOpFYtpcNpyJUr6krs2jWAsDBq1sxuG48esXcv16/z+ecZb51LSSEtDSMjDaUVeSItjagowsK4elX967VrJCdnPM3AgEqVcHB4/7C3p3JlWf8jf5ECTBQSUoAJIURWpaaydi1ff61ebLB2baZPp1OnglSGAU+fsm4dK1a8v7emcWP8/OjVCwsLRZNpzpEj3LrFoEGa/aNp0ICwMDp0oEcPvLxksYeCKjWVyEjCw7l5k8hIbt0iMpKHD/nrh1w9PezssLenVy+NfzeJnJACTBQSUoAJIUT2pKSwciXffsv9+wB167JrF7a2SsfKvlOnWLmSjRt5/hzAyAhPT/z96dBBfuyfqQEDWLuWtDQAY2Pat6dHD7y9ZY2HwiAxkcjI9/XYuyf37qlvnwSaN2fZMlktU2FFswArOPPdhRBCCC0xMGDYMG7eZMECypbl7FnOn1c6U440aMDPPxMTw+bNeHmRlsa2bXTpgo0Nw4YRGprJiECBtn49NjZMmMDjxzlrYNUq7t1j/nyaNSM5mR076NcPa2s6d+byZc1mFXnN2BhnZ7p0YeJEFi8mOJioKF6/5vp1Vq3CxoajR6ldm5kzSU1VOvEszbgAACAASURBVKsoYqQAE0IIIQAwMmLUKG7d4vRpPD2VTpMLxsb4+BAUxN27zJ1LkybExbF0Kc2aUaMG06Zx65bSETXk7VtiY5kzhypVGD2aBw9y0Ea5cowezdGjPHjAwoW0bElKCrt28fPPGo8rlGdoSLVq/Oc/XLvG0KEkJfHJJ7i5cfas0slEUSIFmBBCCPE/jI2pVy+T469e5XmUXLO1ZexYQkMJC2PqVCpWJCKC6dOpWpWmTVm6VD1TseDy9+fSJfz8SElh4ULs7fH3JzIyZ43Z2jJyJEeO8PAhv/zCtGkZT9i1i6pVcXWlbl3atMHdne7d6dmTwYOZMqXAfy2LGnNzfv6ZX3+lalUuX6ZRI8aOLZB/y0VBJAWYEEII8W8CAylRAg8P1q7lyROl02TfuzUeb91i3z769sXYmOPHGTYMGxv8/Dh2TOl8ueDiwtq1XLqEry+pqQQE4OREp07Z3uv3f1hb4+tLmTIZj4eFcfMmFy5w7hyHDxMSwrZtbNnCihXMmsWRI7m6DqGI5s25eJHJk1GpmD+f2rU5fFjpTKIIkAJMCCGE+DcVKmBmRnAw/ftja0uTJsyYwZUrSsfKJj092rdn3Tqio1m1ilatSEpi3TqaN6dmTebPJz5e6Yg5VbMmv/xCeDj+/gBBQSxZovFOPv2Ue/c4e5azZwkJITiYwEA2b2bZMtavz2TW6g8/MHkyN25oPIjQJBMTZs7k+HGcnbl1i7Zt+fDDwjmeqVIRE0NYGKdOqReeEUqRVRALIVkFUQghNC8+nl9+Ydcufv2VxET1wYoV6dePr78uqKtZ373L8uWsXMmjRwDFitGrF8OG0aCB0slyITaW4GDc3bGyUjaIrS3R0ejo4OHByJF4ehakvb6LoORkZszgu+9ITqZ8eRYvxstL6UzZoVLx5AmxscTEEB1NbCyPHxMTw5MnPHpEbCxPnrxfbsTZmc8+o2dP5b8ni+YqiFKAFUJSgAkhhBa9ekVwMHv2sGcPjx+jr8/Tp5QsqXSsXHi3ofPSpWzbpl6iu0YN+vdn6NDCs40Y8N13HDxIt274+uZNbXbtGnPmsH49r18DVK7Mhx8yaBClSuVB5yKHwsMZPFi9PXvv3sybl8lkVEW8W3HmyRMeP1Y/efRIXXH9eeRfl3O0tMTamj/+UK8bWq0an3xC377o6+fBFWROCjBRSEgBJoQQeUGl4tw50tKoXz/jSxcvYm9PiRJKxMqFBw9YvpzFi4mNhf+upjhuHK6uSifThE6dCAoC0NenXTv69aNzZ0xMtN1tXByrVvHTT+q1J01M6NOHH3+Urcbyr7Q0Fizgs8949QpLS0aOpEYN7O1xcMDcXFudvnxJTIy6jnryhOjo909iY9XH//Uzu6UlVlZYWVG2LGXKYG2NrS1WVtjYYG2NlRUGBgDJyQQEMGOG+nuycmWmTOE//1Fms0ApwEQhIQWYEEIo6coVatemUiUCAwtk6ZKczM6dLF3KoUPqT3xubgwdSp8+FC+udLhcSEpi507WrWP/flJSAEqUoFkzGjfGzw87O612npbG/v0sXMiBA+rt2bp21WqHIrdu32b4cA4eTHfQ0hIHh4yP0qX/qZ24OOLjiYtL9+TZM/XkwD9rrTdv/iWPri5lylCmzPtq6t2TP4+UKZO9Cio1lV9+4bvvuH4doEIFPv6YwYPz4IcS6UgBJgoJKcCEEEJJL1/Sti2nTmFszIIFDB6sdKCciohg6VJWr+aPPwBsbQkIoE0bpWPl2tOnbNzIunWcOqU+4u3Nrl1503lkJGfP0r27eixC5GcqFbt2ceIEt24RGUlkJC9fZnKahYW6EjM1zaTcyqJixdQ1laWluqayslLPGLSxUZdeenoavDi1tDQCA/n2W/XO4zY2fPQRw4djaqr5vjIlBZgoJKQAE0IIhSUlMWkS8+cD+PmxZAnFiimdKacSE9myhfnzOXsWXV0+/ZSpU5W8ZUSDHjwgNJTTp+ncmRYt0r0UG8uMGVSpQuPG1K6t7etNS6NDB968oWtXunWjYkWt9iZyLjqamzeJjHxfkkVGkpDwT2+xsMDcHAuLdE8sLDLWWsr+C/Gu1PzmG/WG1JaWjB/PqFF5MVFWCjBRSEgBJoQQ+cL69QwbxqtX1KlDYCD29koHyoV32yR9/DEpKdSvz8aNVK6sdCZtCghQr2gPmJpSvz4eHnh7U7OmNnpLTqZyZfVSlDo6uLnRvTvdu+PoqI3ehIY9eaKuxJKSMqm1CpZ9+/jmG37/HcDCgjFjmDRJu8Vh0SzAlF57UgghhCis+vblxAkcHbl4kXr12LNH6UC5oKPD2LEcPUqlSpw+zQcfsGWL0pm0qVcvVqygf3+qVuXVK44c4ZNPcHbG3p6PPyYpSbO9GRoSEcHGjfTsiakpZ8/yySdUrUqtWkyf/i8DLEJxZcrQqBF+fgweTI8etGmDqytVqhS86gvo0IHjxzl0iFatiItj+nR+/lnpTIWRFGBCCCGE1ri4cOYMXbsSF0f37v++SnQ+17AhZ8/i7U1CAj174u//70sHFFCGhgwcyOrVREQQE8PWrQwciJUVUVHMnq2ep6VRxYvTqxebNhEby/bt+Plhbs6VK0ybpo09pYX4J61bc/gwoaGMH0+3bkqnKYwKxRxuIYQQIt8qWZKtW/n5ZxITC8OtU6VLs3Mn8+czeTIBAYSFsWlTIZ8qZ2VFt25060ZaGqdPc/cujRtnPCcqitRUqlbNfW8mJnTpQpcuJCdz+DC//05Rmpkl8pEmTWjSROkQhVTB/59ACCGEyOd0dBg+XOkQmvNuOmKzZvj6cuECbm789FORqBJ0dWnYkIYNMx5PS8PVlYQEHB3p1Il27WjSJPf3zRga0r497dtn8tKbNxgbo6OTyx6EEMqQKYhCCCGEyD5XV86do29fXrzAzw9//8yX6C4KdHUZOhRLS27e5Icf8PCgVClatGD6dI4dIy1Ns709fIi1NS4ubNyo8baFEHlBCjAhhBBCCY8esXgxr14pnSMXSpRg3TrWrMHUlIAA6tbl4kWlMynk+++JjuboUSZPpm5dUlM5epRp02jenClTNNtVsWKULUt4OL174+LCL79IGSZEASMFmBBCCKGE2bMZMYKGDTl+XOkouePvz9mz1K5NRASNGjFvHkVzhxs9PZo1Y+ZMzpzh6VN27GDMGBo2pF69jGeqVNy/n+OyycKCK1dYswZHR65epU8fHB1ZurTAr/AiRNEhBZgQQgihhFGjcHIiLIymTalfn/XrSU5WOlNOVa/OiRMMG0ZiIuPG0bEj69fz5InSsZRjbk7nzsybx4kT+PhkfPXHH7Gzw9qawYO5fDkHzRsY4O9PeDgrVlClClFRDBuGszP792sguxBC26QAE0IIIZRQpQqnTvHFF1hacuYM/fpRuTLffcfTp0onyxETE5YsYfNmSpZk/3769cPGhvr1+fJLTpzg7Vul8+UndepQsSJPn7JiBbVr07YtQUE5GBAzMGDgQCIiWLkSe3siIgrVUi9CFGJSgAkhhBAKKV6cr77i3j2WLsXZmUeP+Owz7Ow4cEDpZDnl48O1a8ydS/v2GBlx5gxff03jxlhZ4evL6tVERysdMR9o04Y7d7h6ldGjKVGCQ4fo1Inq1Vm4MAf3BOrrM2AA16+zYQNr12ojrhBCw6QAE0IIIRRlYsKQIVy+zMGDeHqSkkJCgtKZcsHWlrFj2bePZ88IDmbyZNzc+OMPNm1iwABsbbG3Z+xYQkIK8JRLjahRg/nzuX+f2bOpVImbNxk9mp49c9aYvj69e9O8uWYjCiG0QgowIYQQIh/Q0cHdnd27SUnJ8afw/MXEhLZtmTmTs2e5dYtFi/DywtSUqCjmz8fdHSsrfHzYsoU3b5TOqpySJZk4kchIAgPx9KRtW802P3AgdeqwaZOslChEPiIFmBBCCJG/paYyYgRTpnDnjtJRcqpKFUaMIChIPSw2cSI1a5KQQGAgPXtibY2/P/v2Fd2F/PT06N6d3bsZP16zDT96xKVL+PpSqxZbtkgZJkS+IAWYEEIIkb/Fx7N8ObNmYW+PpydBQQV4TQsjI9q2ZfZswsK4e5c5c2jQgBcvCAigY0dsbRkxQhubFxdgI0ZQuTJTpxIenoN3BwWxZg0ODoSH07MntWqxdq18dYVQmBRgQgghRP5macnJk/j5YWjI3r106kTlynz9NY8eKZ0sd+zsGDeOkye5e5e5c3F15elTFi+meXPs7Bg7ltBQpSPmA69ececOX32FszM1azJtWrYqsT8XrF+yBDs7wsPp3x9XV/bs0V5iIcS/kAJMCCGEyPdcXVm7lgcP+OEHqlbl/n2+/JKKFenVi9evlQ6Xa+/KrXPnCAtj6lQcHHj4kPnzadaMypWZMoXr15WOqJw1azh8mMGDKV2aq1eZPv19JZblJSUNDRk2jJs3+eknypfn0iW8vYmI0GpuIcTfkgJMCCGEKCBKl2bCBK5f59AhevZEV5ctW7h9W+lYmvOurrhxg+PHGT0aa2vu3GHWLGrUoF49AgNRqZSOqIRWrVi2jOhoDhxIV4l99FG2mjE05MMPiYxk4UJGjaJSpYwndOiAsTFVq+LuzuDBfP01a9dy9CiRkSQlaepihBDoKx1ACCGEENmho0Pr1rRuTWws9+9Ts6bSgTRNR4fGjWncmDlzOHyYX35h2zbOnsXHh9q1mTaNzp3R0VE6ZZ7T18fDAw8PFi/m8GH27sXHJwfNGBkxcmTmLxUvTlISN29y82bGl6pU4datjAe9vPj9dwATE4yNAczN8fLC15caNXIQTYiiQgowIYQQomCyssLKKuPBuDgmTsTFhb59M3m1YNHTw90dd3d++ok1a/j2Wy5domtXXF2ZNg1vb6XzKeTPSuyvVq9m1iyqV8fZGRcXXFxwdEQ/qx/23u0IcOcOd++qH/fucecOjx/ToEEm5z97RlwcoP71nfPn+eorBg1i+fJsX5kQRYQUYEIIIUQhcvkyq1YBTJ6MpycDBtCxY9Y/gudTxsYMG8aAAaxezVdfcf48nTpRqxaff06PHkVxNOzvRERw/TrXr7Njh/qIkRFOTjg706IFgwb9awMmJtSoQY0aoFL96xf299+Jjwd4/Vo9R/HWLTZuZPt2Xr3K3YUIUajpqIrmdOpCzc3N7fz58507d97x57+/Qgghio7du1m2jH37SEkBsLGhXz8GDMDJSelkmpCczOrVTJ+uXgSyYUM+/bTojob91dWrhIVx+TJhYVy5wu3b72+ci4zE3j7dyQcOsHMnCQmZPBwcuHoVAwNN5Xr1iiNHaNoUc3NNNSkKAz8/v3Xr1gUEBPTr10/pLHmngP9ITAghhBAZeHnh5UVMDOvWsWoV4eHMns3s2bRqxf79GBoqnS93DA0ZOpT+/VmzhmnTOHmSTp1o1IhPPpEyDMDJCScnevZU//bFC8LDuXIFff2M1RcwfjzXrmXeTqlS6KZfqu3lS1q1wsyM/v3p0YNixbKVa/Zspk3DyIj27fH1xdsbU9NsNSBE4SEjYIWQjIAJIYR47/RpVq1i40bS0rh7t1ANQLx+zbJlzJypXpC9SROmT6dNG6VjFRznznHqFGZmlCyZ7mFhkcnJcXFUrcrTpwBmZvTsyX/+Q5MmWewqPJxx4zhyRL2LuJER1tZYWGBuTs2azJ2bcbDt9Wtu38bcHAuL7NZ6oiApmiNgUoAVQlKACSGEyCg5mdevC1X19aeXL1mwgNmz+eMPgNatGT0aT08NTp8Tai9esH07AQEcOqSe2Vi1Kr17M2AAFStmpYGYGDZvZuNGTpx4PzVST4+7dylXLt2ZHTqwf7/6eeXKuLnh5kbduri5ZV4eigKqaBZgsg+YEEIIUQQYGmZSfZ0/j40N3t7s309amhKxNKF4cT75hNu3+eorLCw4fJiuXSlfngkTCAtTOlzhUqIE/v4EB3PtGlOmULYsN24wfTpVqxIenpUGrK0ZPZrjx3nxgrt3uXiRI0e4cCFj9QW0b0/NmpQrh7Ext28TGMgnn+DuTqlStG5dRDeEE4WGFGBCCCFEUZWWxvPn7N5Nhw5Uq8aPP6ZbULxgMTPjiy+4fZs5c3BxITZW/aRePRYtKsDXlT9Vq8aMGdy7x549+PhQvTpmZtlqwNQUOztq16ZlS1xcMjlh7FjCwnjwgJcvCQtjzRrGjKFxY0xNefAgkwLs1ClCQoiJyekVCZGHZApiISRTEIUQQmRVfDxr1jBvHrdvAxgZ0akT48fTqJHSyXInPJyAAFau5MkTACMj3N3x96dr1wK/KH9BERtLiRKYmGi21bdvSUvLOL305UssLEhNBShVSr0QSY0a6l8rVNBsBKFJMgVRCCGEEEWMuTljxxIZya5dtGtHSgpbttC4MT16KJ0sd2rWZOZM7t9n1y58fHj7lt276dmTihWZMoWbN5XOV9hFRVGuHOXKqUeyNEdPL5Ob+4oXZ9o0mjTB3Jw//iA0lKVLGT+edu2ws2PECA32L4QGSAEmhBBCFHm6uuo7wa5fZ/x4zM2JiFA6kyYYGeHtzebN3L7Nt9/i6MijR8yaRbVqNGvGihU8fqx0xELK0pIGDYiLY/58XFxo0oTVq3n9WnsdfvYZoaHExfHwISEhzJ/P8OG0bImNDZaWGU9OTGTjRhIStBdHiH8iUxALIZmCKIQQIldSU1GpCuEqgioVx4+zahVbtvDihfpgtWq0aEHz5rRsmclaECI3Ll5k2TLWr1fXOubm9O3L8OE4Oyuba9kyhg6lQgVWrMDdXdksRZ1MQRRCCCGEAH39TKqv8+dZuVK9i1MBpaND06bqga/Vq2nfnuLFiYhg6VL69aN8eRwcGDSItWu5e1fprIVCnTosWsTDh6xcScOGxMezaBGurjx8qGwub28aNuT+fdq1Y+RIXr1SNo4ocqQAE0IIIUQWTJzIoEG4uxeGaXumpvTvz759xMdz9ixz5+Ljg4UFt26xciX9+1OpEmXL0rMnS5dmcYF18bdMTRkwgBMnuHyZ0aPx8aF06YznJCS8H5PUPhsbjh9n7lwMDfnpJ1xc+O23POtcCCnAhBBCCJEV331H2bIcOcIHH3D4sNJpNERPDzc3xo5l82aePOHsWX74AW9vLCx4/JgtWxg2DGdn7OwYPpz9+0lOVjpxQebiwvz5rF+PsXG6469fU6UKFhbUqsXgwSxfzpUr2h5r1dVl7FjOncPVldu3adWKYcO0epOaEO9JASaEEEKILGjUiIsXadeOmBjatmXKlII9HfGv3hVjEyawaxdPn3LhAnPn0rUrlpbcv8/PP9OhA1ZW9O3Lli28fKl03ELEyIjGjdHT48oVVqxgyBBq1cLCgtat+eQToqK013PNmpw4wWefoafH0qU0aUJSkvZ6E0JNCjAhhBBCZE2ZMuzbx8yZ6Ooyaxbu7kRHK51JO3R1qVOHsWPZto3YWC5cYNo0atcmIYENG+jZkzJl6NSJlSt5+lTprAWfnh5BQTx/zokTzJ1L795UqcKLFxw5wsyZfPaZVjs3NOSbbwgNpXp17t0jMVGrvQkBIHsRCiGEECLLdHSYPJm6denblyNHcHNj715q11Y6ljbp6FCnDnXqMHUqd++yYwe7d/PrrwQFERSEri6NGuHtTbduODoqnbUgMzKiYUMaNlT/NjaW06c5f56uXTOemZLC1as4OWlwoc4GDQgLIyUl4+xIIbRBRsCEEEIIkU1t2nDhAi1a8OgRO3cqnSYPVazI2LEEB/PggXpSooEBx48zZQpVq1K3Lt9+y8WLyB4/uWdlhZcXX36Ji0vGl779ljp1sLTEx4c1a4iN1UiHenpSfYk8IiNgQgghhMg+W1sOHeLQIZo1UzqKEqytGTqUoUN5/py9e9m+nX37OHeOc+f4/HOsrWnbFg8P3N2xtVU6a6HTti3bt3P5MoGBBAaiq0u9enh74+lJnTqa7So4mFKlcHHB0FCzDeeF6GjWrycmhrg49eOPP4iLIyWFTz5h1Cil8xVhUoAJIYQQIkf09PDwUDqE0szM8PXF15fEREJC2LmTAwe4f5/161m/HsDFRV2JNW+OiYnScQuFpk25dIl79/6fvfuOi7p+4Dj+/t6xh4CKuHDhnrm3Zo7cMy1LrRyZmWnaMLPUbFhZWpmao3I0nDnL3ObIbYpArsSBOBEHIHDc/f6QXyphasKdHK/ng4cPuO/37t73PeG+7+/4fLV8uZYt07p12rZN27Zp+HA1b65ffsmo59m/P/U/uJubypVT5cqpX5Uqyccno57kHsTGasECnTmj2Ngbner698nJWrYs7bHAH32kcePSf6gBA/TIIypb1g6pkQ4KGAAAwH3z8FDr1mrdWpL++kurV2v1aq1cqdBQhYbqk0/k4qKaNdWmjZo0UeXKMnEayP0pVEj9+qlfP8XHa80aLVumRYt04ICs1oxatqVKacAArV6tgwe1Z4/27Em93WRSqVKaMEGPPHJfjx8XlzrIS2xs6tf1QhUbK6tV33+fdn/e2LF67730H8rNTZcvp71xwAB5ecnPTwEBt3yFhyssTKVK3Vd43A8KGAAAyDjduikhQe3bq0UL5c7t6DQOUqxY6gGKSUnaskWrVmnlSu3erc2btXmzJAUFqWlTde6s1q1pYvfLy0tt2qhNG02YIJstA5enq6s+/1yS4uK0b19qB9uzR6GhiojQjh1pC9jhw3rvvdRrSsfFKTFRsbFKTFR8vGw2LVqkhg1vmX/8eA0fnv5Tm0zpjDD69NO6fFk+PjeqlL9/6jd586aze7VoUb37bjoPXqSIWra866WATEABAwAAGcRq1fr1iorSwoUym1Wzplq3VsuWTj5M4r9wc9PDD+vhh/Xeezp/XmvWpJaxEyc0e7Zmz1bJkho8WD16cHRiBkh3UMSUFKWk3OcpXN7eql1btWun/picrOPHVaxY2tl++knffpv+I3h6Kjk57Y2PP65Tp+TpKX//1K/rncrfX0FB6Wy+KFEitRBmhrNnlZSkggUz6/FxMwoYAADIICaTdu/WvHmpA7Vv2aItWzRsmAoVUqtWGjpUhQo5OqLj5M6txx/X449LUkSEli/XxIk6eFDPP6+33tILL6h/fwUGOjql03nkEYWF6c039cILcnfPkId0dVVISDq3v/iiiheXzaYcOeTpKQ8P+fvL3V3e3vLxSaceFi+uL7/MkEQZoG5dHT+uIUM0fLi8vBydxtmx1xsAAGScPHnUv79++UXnz2vRIvXpo/z5dfy4Jk16gFY2Ha5MGb3yig4f1pIlqlNH585p1CgFB6tHD4WHOzqccylaVBcuaPBglS6t776T1Zp5T+XpqQ4d1LGjmjRR3bqqWlUhISpYUAEBGXjFsszyxBOyWPTBBypfXsuWOTqNs6OAAQCATODtrXbtNGWKTp7Url367DMNGpR2nqQknTrliHAPBpNJbdpo82bt3Knu3WWxaNYsVaigpk21dKmjwzmLb7/VqlV66CFFRqpbN1WsqHnzHJ3pQTR6tHbsUI0aOno09ZS6Y8ccncl5UcAAAEBmMgxVqaKXXkrnilh9+qhAAVWrps8+y6jL6WZJVatq5kwdOKCXXpKHh1avVtu2qlJFM2fKYnF0uKyvSRPt2qVvvlFwsMLC1KWLmjXT1q2OjvXAqVJFW7Zo/HjlyKFly1S+vMaOVUqKo2M5IwoYAABwkIYN5e+vXbs0aJAKFFDr1pozRwkJjo7lICEh+uwzRUZq5EgFBmrPHj39tEqW1Oef6+pVR4fL4kwmPfOMDh7URx8pIECrVqlBA8XGOjrWA8ds1sCBiohQly66elWvvqqvvnJ0JmdEAQMAAA7Ss6eiozV3rtq0kWFo+XI98YTy5VOvXjpwwNHhHCQwUCNG6NgxTZ6skiV19KgGDlTevHrySS1dqqQkR+fLyjw89OqrOnxY77yjwYPl5+foQA+o/Pk1Z45WrFCHDmmHzkeGoIABAADH8fBQ585askRRUfr8c1WvrkuX9PXXGjLE0ckcytNTffsqIiL16lHx8frhB7Vtq3z59NxzWr8+UweTcHI5c+qttzRmjAzjlttjY9Wzpz74QEePOijZg+XRR7VwocqVc3QOZ0QBAwAAD4DAQA0YoO3bFRGh99/X2287OtADwGRSu3Zav17Hjmn8eNWtq5gYTZ2qRo0UHKyBA7Vpk2w2R6d0FmFh+uYbDRumkBDVrq3PPlN0tKMzwTlRwAAAwIOkdGm98YZq1Eh7+969mjUrmx6D93fdCgvTiBEqWVKnTunzz1W/vooW1cCB2rPH0RGzvrp19csveuopeXtr61YNGqTgYDVurDFjtGKFo8PBqVDAAABAVvDCC+rRQ2XKaNas7HsAXtmyGjlSBw5o61YNHKh8+XTsmD7/XFWqqHJlffSRDhxgn9h/17y5Zs/W2bOaM0cdOsjVVWvX6o031KKFNm9OO3NcnPbt0+XLjgiKrI0CBgAAsoIxY1S2rP76Sz16qGJF/fRTtm4aNWtq/HidOKHVq9WrlwIC9Mcfev11lS4tPz/Vr68BAzR9unbtUmKio7NmNZ6e6tJFCxfq9GnNnKlXXtGLL6pSpbSzPfusKlWSn5+CglS3rp55RuPHZ9/BY3AvXBwdAAAA4C7Ur6/QUC1YoGHDFBamjh1VoYLeekudOzs6meOYzWrcWI0b68svtWKFfvxRGzcqKkqbNmnTptR5XF1VpoweeujGV0DAnR/58mXFxSkuTpcuydtbpUtn6ut4QPn5qXv3205t00YHDujwYZ09q7NntWWLZszQyy8rJEQ9e2rYMDsGRRZj2LLz1iMnVbVq1d27d7dr127RokWOzgIAQEZLStK0aXr33dQxEpo21cKF8vFxdKwHxrlz+uMP7dmjP/7QH3/o4MG0F9MtUkQPPaRChZSQoNjY1KJ19apiYxUfr7i4dA6rq1RJvXurWzf5+9vtdWQZUVE6fFiHDmnDBq1YofPn5empK1dkNjs6WRbQvXv32bNn7pj+cAAAIABJREFUz5o1q1u3bo7OYj/sAQMAAFmKm5teeEHPPKMJE/Thh1q9WsePq2xZR8d6YAQGqmlTNW2a+mN8vEJDb1Sy0FBFRioy8g4P4uMjb295eysgQMePa+9eDRig115T587q00f16mXya8hSChRQgQJq2FC9e8tq1fbt8vRM275sNs2fr8BA1asnl7tb/U5I0PnzcnNTUFBmpIYDUcAAAEAW5OWl117T88/r9GmVLOnoNA8wLy/VrKmaNVN/TEnRwYP64w9FR8vHR/7+8vaWl5dy5FCOHKmlK80VipOStHixpk7VmjWaOVMzZ6pMGfXpo+7dlTu3/V/QA81kUq1a6dy+a5e6dJEkPz81a6YqVW7sb4yP1+uv66GHbpl//Xo1b556/l6+fKpS5cZXoUKZ/zKQuShgAAAgy7peG9JISVF4uMqVk4nBxv7BbFaZMipT5h7u4uamzp3VubNOntR332niREVEaPBgDR2qdu303HNq3DjtRY2RRqVKGj5cCxcqPFzz5mnevFumliiRtoD5+qaW27g4RUdr+XItX546KW9e/fRT+jUPWQQFDAAAOJdPP9Vrr6lQIfXsqZ49FRzs6EDOomBBvf66Xn1Va9dqyhT99FNqlyheXE89pV69WNS35eqq0aM1erQiI/XLLzp2TH5+qfsbAwPVpEna+atW1cmTqd//9Zd2777xdfaszp9PO/+5c1q/XjlyKG9e5c6twEC5uWX6i8J/RQEDAADOpX59lSihQ4c0cqRGj1bz5urTR61a3e25N/h3JpOaNFGTJjp5UtOn6+uvdfiwRo3S+++rbVv166dHHmGH2G0VKaJ+/e7tLsWKqVgxPfZY6o9xcfL2TjvP66/rm29uueX6+PiBgSpeXBMmpB2lxmpNLYGGIT8/9hXbGYsbAAA4l1q1dOCA1q5V165ycdHy5WrfXoUK6c03b+xVwP0rWFAjRujoUf38szp0kKQFC9SkicqX16RJunrV0fmc1D/bl6S+fdWtm5o2VcWKyp9frq66dEkHD2rzZs2YoYMH087fv7+KFVOuXMqZU2Zzag3LmVOFCqlePV24YIfXkZ2xKQgAADgdw1CjRmrUSBcuaOZMTZum8HC9/75WrdL27Y4O51xMJrVooRYtFB2tadM0ebLCw/XCC3rjDT37rPr3V/Hijo6YDdw8zsp1Fy/q7FmdOyd3d1Wpknb+ihVVvHhq0YqNlc2Weu2B6/eKjVWuXHbJnU2xBwwAADivXLn08ssKC9OmTerbV337OjqQ88qXT2+9pePHtWSJmjTRpUsaP16lSqlpU82bl/ZaZMhsAQEqVUr16ql69XSm9uunQ4cUE6OYGFmtstkUG6uYGEVGKipKISF2j5u9sAcMAABkA3Xrqm7ddG7fu1djx6paNTVponLl7B7L6ZjNatNGbdrojz80aZJmz9bq1Vq9WiEh6tNHffooZ05HR0R6rl97ICDA0TmyBfaAAQCAbGzJEs2erUGDVL688udXjx6aOVOnTjk6Vtb30EP66iudOqXx41WkiI4c0dChKlxYffsqNNTR4QBHooABAIBs7NVXNWuWevRQ/vyKjtasWXr6aRUooLJl9fbbslodnS+L8/PTwIE6fFgLF+qRRxQXpylTVKmSGjfWp59q61YlJzs6ImBvFDAAAJCNeXioWzfNmKGoKIWF6bPP1KaNfH0VEaF339W5c47O5xTMZnXooDVrFBqqfv3k7a21azVkiGrXlp+fGjbUsGFatkwxMY4OCtgD54ABAABIksqWVdmyeuklWSzatk02m4KC0s6ze7d8fVWihCPyZX3lymniRH3wgRYv1ubN2rxZERH67Tf99pskGYbKlEk9W69OHRYynBUFDAAA4FYuLumP2HHihKpXl9WqihXVubMee0ylS9s9XNbn56cePdSjhyRdvKgtW7RlizZv1o4dCg9XeLimTpWkoCDVrq169dS8OeOjwJlwCCIAAMDdyZdPffsqIED79umtt1SmjCpW1DvvKCLC0cmyrIAAtWql997T+vWKjdXWrfr0U3XqpHz5dOaMFi3SK6+ofHmVKKFXX9WmTQxnDydAAQMAALg7Li6aOFGnT+vnn/Xss8qZU6GhGjFCZcuqYkUdPuzofFmcq6tq1tTLL2v+fJ06pcOHNXOmevVSnjw6fFhjx6p+feXPr969tXSpEhIcHRf4jyhgAAAA98LNTS1a6Ouvdfq0fvlFvXopVy6FhurgQUcncy4hIereXdOmKTpaO3dqxAiVKaOzZzV9utq2Va5catNGU6bozBlHBwXuDQUMAADgP3F1VfPmmjZNp0/r+HG1bJl2hnXrNHWqjh1zRDgnYjKpalWNHKnwcB05ovHjVbeurl3TsmXq21cFCqhePX34IQUYWQUFDAAA4P64uCg4OJ3be/bUc8+pSBGVK6dXX9W6dVz26n4VK6aBA7Vpk06c0KRJevRRmc3avFlDh6pUKbVuzfl4ePBRwAAAADLH1Kl67DH5+Sk8XGPH6pFHlDu3HntM06fr0iVHh8viChTQ889rxQqdPasff9QTT8jXV8uXq2JFvfiizp93dD7gtihgAAAAmaNJE82bp/PntW6dXntN5cvr8mUtWKDevdW3r6PDOQs/Pz3+uH74QZGReuklSfrySxUtqpEjde2ao8MB6aCAAQAAZCYXFz38sD78UKGhOnZMkyera1d16eLoWE4nZ0599pn271fnzrp6VaNGqVQpzZwpm83RyYBbUMAAAADspVAh9e2r779Xx46OjuKkSpXS3LlatUoVK+r4cT39tGrX1pYtjo4F3EABAwAAeAA0aqQ8eTR6tGJiHB0l62vSRHv2aMYMBQVp2zbVq6cuXRQZ6ehYgEQBAwAAeCDkyaNz5/T22ypcWIMH68QJRwfK4kwm9eihw4c1YoTc3TVvnsqV09ChunLF0cmQ3VHAAAAAHgBz5mjjRrVurbg4jRunkBD16KGwMEfHyuJ8fDRypA4eVPfuSkjQhx+qdGlNmaKUFEcnQ/ZFAQMAAHgw1KunpUu1Z4+efFI2m2bNUsWK6tBBly87OlkWFxysmTO1caNq1NCpU+rbV6VKaeRIHTni6GTIjihgAAAAD5JKlfTddzp4UP37y91dixYpNNTRmZxC3braulWzZ6tYMR05olGjVKKE6tfXlCmKjXV0OGQjFDAAAIAHT9GimjBBx45p82bVrevoNM7CMPTUUzp0SBs36rnn5OOjTZvUt6/y5lWbNpo3T8nJjo4I50cBAwAAeFAFBqpOnbQ3Xr2qBg3UoYMWLFBioiNiZXEmk+rV01df6exZzZ2r1q2VkqJly9Sli/LmVd++2rTJ0RHhzChgAAAAWUpcnPbs0aJFeuwx5cuXWhi43PB/4OGhzp21dKmOHdP48apcWTExmjJF9eurbFmNHMnI9cgMFDAAAIAsJShIhw9r3DhVrqyLF1MLQ/HiGjFCBw44OlzWlD+/Bg7U7t3atUsDBypPHkVEaNQoFS+uqlX15JMaPVpz52rvXl275uisyPJcHB0AAAAA9ygoSIMGadAghYVp1ix9953++kvvvKPRo7V1q2rUcHS+LKtKFVWpoo8/1q+/auZMLV2q3bu1e/eNGUwmFS6sUqVUurRKl079Jm9exyVG1kMBAwAAyLLKldOYMXr/fa1bp9mzFRmpggXTzrNypVatUtWqqlpVxYvLMBwRNEtxdVXr1mrdWleuKDxcERE6cEAHDigiQkeO6OhRHT2qFStuzO/vr1KlVLWq2rZVo0Zyc3NcdGQBFDAAAIAszmRS48Zq3Dj9qe++q40bU7/391eVKqpWTSEhSkhQ6dJ69NG083/wgZYuVVKSLl+WxSI3N3Xvrl69suN+Hl9f1aypmjVv3JKcrKNHb6lkBw4oJkbbtmnbNk2cqBw51Ly52rdXixby93dcdDy4KGAAAABObfp0/fCDdu3Szp06dUpr12rt2tRJrq5KSJDZfMv833yjQ4duuWX4cL3zjjp00Ntvq2xZO8V+MLm6qmRJlSx5y43nzik8XGvWaPFi7dunuXM1d65cXdWwodq1U9u2KlTIQXHxIKKAAQAAOLUSJfT226nfR0dr507t2qXoaHl4qFattO1L0saNOnJE7u7y9ZWLi44c0eTJWrJEc+YoPl5Lltg5fhYQGKiGDdWwod55R8eO6ddftXSpVq7U6tVavVoDBqhsWbVpo9atVbcuh4CCAgYAAJBt5MunNm3Ups2/zRMUpKCgGz8WK6amTRUVpfnz1aBBZgfM8goX1nPP6bnnFBOjn3/W4sVasULh4QoP14cfqnBhtW2rmjUVF6fkZF29qmvXlJCg+HglJurqVSUn69IlWa26eFFWq1xcVL26atRQjRoqXZry5hwoYAAAALiTAgU0cGA6t4eF6c8/1aqVPDzsnunBljOnunVTt266dk1r12rx4tQLjn3xhb744h4eZ8cOTZwoSX5+qlFDNWum9rGbSzKyFAoYAAAA/qvevbV1q3Ll0rPPqm9fFS/u6EAPHg8PtWypli01aZJ27NDixfrrL/n5ycVFvr5yd5eXlzw95eEhb2+5uaUe+envL5NJV69q+/bUET5OnNCqVVq1KvVhixRJLWM1a6pKFXl6OvRF4h5QwAAAAPBfjRql4cO1Y4fGjtWnn6pNGw0Zovr1HR3rgWQypR1T8W78fdhndPSNMrZzpyIjFRmpOXMkycVFZcooOFhBQSpYUHnyqGBBBQWpQAEFBcndPYNfCO4PBQwAAAD/VbNmatZMO3dq0iT98IMWL9bixapRQ6+8ok6dZDI5Op8TyZdP7dqpXTtJsloVEXGjj+3fr9BQhYamf8fcuZU3r/LnV968ypdP+fLJ21t+fvL1lbe3vL3l7y8fn9TvkfkoYAAAALg/1app+nSNGaMvv9TEidq+XV26aOpU9e7t6GROymRSuXIqV07PPitJ8fGKiFB0tKKjdeqUTp9O/TcqSmfP6vx5nT+v/fvv6pEDAlKbmI+PAgP10UeqUCFTX0o2RAEDAABARggM1MiRev11zZypFStUq5ajA2UbXl6qWjX9STabzp7V2bM6eVJnzqRWsqtXdeWKLl1SXJzi4nT5si5fVlycEhJ08aIuXrxx9zZtKGAZjgIGAACAjOPpqb591bevo3NAkmQYqdcVuJseZbXq0iVduZJazBISVKdO5kfMdihgAAAAyHwxMWrQQIUK6eWX1bSpo9MgPSaTAgIUEODoHE6OAnZPrHFRe7ftOhQVk+ieM2+RctWrhPizBAEAAO4sOVmnTiksTL/8ogoV1L69GjRQ7doM/IDshvqQhuXsrgXTp//46/nGk394sbT579tTzmyePGLYhzM3nkyw2VJvM9xyVWj74oh3hnQo48t1yQEAAP5FUJCOHNFXX+mLL24M2efqqurV1bixhg6Vl5ejIwL2wNigN0k8POeFWmVqdh02adGWQxctNyZc2z+5U41HBnz124kb7UuSLenCvvmjHqtZr9+CSMs/Hw4AAAA3CQjQ0KE6elRLl2rwYFWrJqtVW7Zo9Gj9+qujwwF2wh6w/7NGL+jdpNt3xyw2SYbh6vL/vV+22FWvdBq45HiSTTK8gms0e7RuuWB/89WT+zf+smLbiXjblX1TenTMmXfD+3V9HfkCAAAAsgI3N7VurdatJenyZW3apMhItWyZdrbFi7Vxo+rVU5Mm8vGxf0wgk1DArrNdWj7spe+PWWyGKXet/h99OrRrrfzXG5hl/4Sh0w4l2WTK3WDYd9+91ayg29/3Sopa9X73bqPXnY3/Y9zLXzy5ZVh5licAAMBdy5Ejnep13fvva/t2ffKJPDz06KPq1Elt2sjf3775gIzHIYiSJNvFpdPnR1tleFR+Y9mqz5+tld8jdYoldO6P+xJtMhfoNnXBOze3L0luBZqO+OmH/iVdDNu13VOnbklyQHQAAABnNHu2RoxQvXpKStLixerRQ0FBatlS06fr8mVHhwP+OwqYJMmyb9vuBJsMn+aDB9e4eSgeW+yeXYctkkvIU/1b505npA3D7+HXBjZwN5Rycv3aCM4EAwAAyBAlSmjkSG3cqKgoTZqkJk1kteqXX9S7t555xtHhgP+OAiZJssbGXLRK5oJlS+e4pWVZL164aJXkUqp8qdscXmjKW71GYbNkPXXilNUOWQEAALKTvHn1/PNatUqnT2vaNHXooI4dHZ0J+O8oYJIkI4e/nyFZL56PubVDmfxz+psk2SzJybb07yvZrDZJtqSk288CAACA+5Mrl3r10sKF6tYt7aT169W6tX74QTbWxvCgo4BJklzLV3vI05D13Kolm+NvnmAEVKhUxEWyhO7cm5j+fa1R27YdT5HMBYLzm9OfBQAAAJlo7VotX64nn1TDhtqzx9FpgH9DAZMkGYGtnnw0wKSUyKkvvrbi7E17wVyqPNG1nJuRcmrOZz+cSOcIQ9vF1WM+35xokylPvYfLMQgiAACA/b31lqZNU1CQNm5U9ep6/nmdP+/oTED6KGDXGXkeG/FKDW/Dlhg+sV31lsN+2H0udUANl4cGf/5SOQ9bzPKXH3vt5xO3DHSYHLXq7Q5PTTlssRluFXo/38jTEdEBAACyO1dX9eqlI0c0YoRcXPTVVypRQp99JgsjpOGBQwH7P7eKr34/tVtJT8OWdPzXD56sFpy/3CNP9B/2wYRvf75Qd+DzNQN0afsnrcuWfeTpV98b98UXn4we0v3h0qUffXfDeauMHDXf/Oq1Kq6Ofg0AAADZmLe3Ro7UH3/o0UcVG6tBg1Stms6dc3Qs4BYcM3eDS9Gu327KV7pX7/eXHYmzJZ4LXzcnfN2cW2axXT2ybubYdTNvusnwLtHhnZlTX67pLQAAADha6dJasUKLF2vIEO3bp6NHFRjo6EzADewBu4Up8OFhS8Ii1kwY1LFmsLcpnet+3WC4BpRq3HvsirB9CwbXyvmvswIAAMCu2rVTWJgOHFCNGo6OAtyCPWD/5B7cqP+4Rv0/jY/ev3PH3vDDkSdPn4+9HH8t2WIzXNw8ffxz5S1YrFSF6nVqlQl0c3RYAAAApMvdXSVKODoEkBYF7LYMr3wVGrSt0MDROQAAAJBRvv9eS5Zo0CDVquXoKMimOAQRAAAA2cbChZozR7Vrq0IFjR/PaPWwPwoYAAAAso1p0/TGGwoK0v79evllFSyoxx/Xr7/Kms71XoHMQAG7b9cuRp+KioqKijoVc83RWQAAAPBv/P31/vs6cUILF6pVK1ksmjtXzZuraFGtWuXocMgWOAfsfiX+OqBUh++u2CSPzvNi5z7mnmGPHBsbu3Pnzv9wxytXrmRYCAAAAOfj6qoOHdShg6Ki9O23+uYbHTmi1avVtKmjk8H5UcAeXH369Jk/f/5/vntUVFQGhgEAAHBCBQrozTc1bJjCwlSypKPTIFuggD24unbteunSJZvNdq933L9//+nTp2vWrJkZqQAAAJyNYah8+XRuHzBAq1erVCmVLasKFVS2rEqXlnvGHe+EbIkCdr/cGoxau3VAik0y5SqRoZcF69ixY8eOHf/DHQcPHjxu3LiQkJCMTAMAAJDdHD6sP//Un39q8eLUW1xcFBKi8uXVoYOeesqh4ZBVUcDulxEQUq0GVQcAAMDpLF+uP/9UWJj271d4uPbv1+HDOnBABw5o7VoKGP4bChgAAACQHpNJZcuqbFl17px6S1KSIiIUHq4iRdLOfPmyateWj486ddJjj6lYMftmRZZBAQMAAADujpubKlVSpUrpTLJYdP68wsO1fbtef12VK6tTJ3XqpNKl7Z4SDzQK2B1Yrp4/c+7CxcvxiclWk7u3r6+vX+6gQB+WGwAAAG6SM6ciI/Xrr1qwQEuXas8e7dmj4cNVvrw6d9Yrr8jLy9ER8UCgSKQjIWrr0jkLlq3auG3P/r/OxlluHYbQMNxyFAgpXaF6oxbt2rdvXiPYy3BQTgAAADxAPD3Vvr3at1diolav1oIFWrxY+/dr/34VLaru3dO5y+XLSkmRpLg4JSVJ0rVrCghQvnx2TQ47ooDdwnph25RhL4/6duvppNsO/m6zJV06GbHtZMS2X2Z+OCSw6pNvjvvwxXpBZnvmBAAAwIPL3V2tWqlVKyUna9067d+v9u3TztO/vyZNUroXHPL0VGSk8uS55cbkZFks8vTMrMywFwrYDUlHvu/doufsQ4n//z0wzF458wcXCs6Xy9fL09PdbE26lhB/JeZM1InjUeeuJtskW/K5nTNefmTd+i9+/r5vOX4fAAAAcBNXVzVrpmbN0plkGLLZ5OsrFxdJ8vJKvcKYu7tKl1aOHGnnr1lT+/apYkXVrau6dVWvngoWzOT0yBQUsP9L2P5Op+vty3DPX+vx5/o81a5J7QrBvunu2bImnPlzx4YV82dMmbHiwOXk44tf6vha8e2fN/bjaEQAAADchQkTNGHCPcxftarCwlJPLbt+x0KFVK+e6tRRp07KmzeTYiLDmRwd4AFhPf7NsHH7Em2GuUDb8ZvDNs8Y8Wyzh27TviSZPIPKNugy+PPle/f+NKCyt2FLOjT1za8Optg1MwAAALKNqVMVG6vfftP776tVKwUE6Phxff+9XnxRTzyRzvxHjujPPxUfb/eguAP2gEmSrCcWzdmUYJO5UK/ps16q+o9dvrflXqTtuDmj/6g0ZGPC7p+WHh1SqjjnggEAACAzeHqqfn3Vry9JVqsiIrRpk7ZtU9Omaec8eFBlyshqlaRcuVSwoAoVUnCwgoNVqJCaN1fOnPYOj/+jgEmSLOF/hCXbZMrTsnOju29f15lDOnWuMXTjBsuh8IMpooABAAAg05lMKldO5cqpb990pubPrw4dtG+fTpzQhQu6cEF7996Y2qOHZsy4Zf6zZ9W1qywWBQTc+MqbV127yscnc19I9kMBkyTZEhOTbJLJx9fn3s/iMuXwz2GSbEmJtx86EQAAALAXHx/Nn5/6/dmzOnlSJ0/q2DGdOKHoaPXsmXb+Eye0bl06QzJeuaLBgzM9bTZDAZMkmQsWLmhWRMrJXbujrbUK3duZcQl7d+xPlkxB+YI4pQ4AAAAPlDx5lCePqlT5t3mqVtXRo4qM1MWLunhRsbG6eFGJiXr8cXulzEYoYJIkl4qtWxT+KOJIwoYPh85rM+vx4Ls+kNB2ZfvHb8yITJEpT92HK7pmZkgAAAAgkxQurMKFHR0iW2CXzXVuNfsOqJ/DUMrxH3vUfvS1WdujE+94n5TYP5eP7Van6ajfL9sMt3J9+jf1tkNSAAAAAFkWe8BSmUu+MPnj1Y1eWB6dFLXm4x61xg8qXqNevZqVyxQrXDBfbj9vDw83F1vytWsJVy+cPnni6MG9O7Zs2rr/dLzVJsnkX/ft6W9Ud3f0iwAAAADwQKOA/c211HNz13gM6Drwm32xVltyzKHNSw5tXnLHu5l8y3b9cNaXz1dh9xcAAACAf8chiDfzLNNj2s4Dv894u1uDED+Xfx8P0XDJUbRu12Ffb/xzz+x+VfzuffBEAAAAANkNe8DScslTo/uoWd1HJcce3bdzd+iBI8eizly4eDUhySJXT28fHx+/wELFS5UqXb5S+SL+DLoBAAAA4O5RwG7H1b9o1SZFqzZxdA4AAAAAToNDEAEAAADATihgAAAAAGAnFDAAAAAAsBMKGAAAAADYCQUMAAAAAOyEAgYAAAAAdkIBAwAAAAA7oYABAAAAgJ1QwAAAAADATihgAAAAAGAnFDAAAAAAsBMKGAAAAADYCQUMAAAAAOyEAgYAAAAAdkIBAwAAAAA7oYABAAAAgJ1QwAAAAADATihgAAAAAGAnFDAAAAAAsBMKGAAAAADYiYujAyCzvPfeexMmTMi8xz9//vyVK1fMZrNhGJn3LHgA2Wy2lJQUk8lkMrEFJ3vhrc/OUlJSJJnNZkcHgb1ZrVar1crHfTZ0/W9+7ty5fX19M+9Zzp49m3kP/sCigDmhIkWKSLpw4cKFCxcy+7ksFktmPwUeTCkpKddXyJDd8NZnZ1ar1dER4Bh83Gdb586dO3fuXKY+hWEY19ddsw/DZrM5OgMy3rFjxzJ7Dalnz54bNmwYM2ZMrVq1MvWJ8KD5/vvvp0yZ0rVr1759+zo6C+wqLCysf//+ZcuWnThxoqOzwN6aNGlisVhWrVrl6urq6CywqyFDhuzatWvs2LHVqlVzdBbY1cyZM7/++usXX3zx5ZdfztQn8vT0zJcvX6Y+xYOGPWDOqXDhwpn9FN7e3pIqVKjQsGHDzH4uPFC2bt0qqVChQrz12Y2bm5skPz8/3vps6Ppxpw0aNLj+3wDZR0BAgKRKlSrxi5/d/Pbbb5ICAgKKFSvm6CzOhuP4AQAAAMBOKGAAAAAAYCcUMAAAAACwEwoYAAAAANgJBQwAAAAA7IQCBgAAAAB2QgEDAAAAADuhgAEAAACAnVDAAAAAAMBOKGAAAAAAYCcUMAAAAACwEwoYAAAAANgJBQwAAAAA7IQCBgAAAAB2QgEDAAAAADuhgAEAAACAnbg4OgCyKj8/v7//RbZy/U3PkSOHo4PA3vitz878/Pzi4+PNZrOjg8De+MXPtvi4zzyGzWZzdAZkSefOnduzZ0+zZs0cHQT2lpSUtHLlysaNG3t6ejo6C+xt/fr1JUuWzJ8/v6ODwN7CwsIsFkulSpUcHQT2dubMmdDQ0CZNmjg6COwtMTFx1apVTZo08fDwcHQWZ0MBAwAAAAA74RwwAAAAALATChgAAAAA2AkFDAAAAADshAIGAAAAAHZCAQMAAAAAO6GAAQAAAICdUMAAAAAAwE4oYAAAAABgJxQwAAAAALATChgAAAAA2AkFDAAAAADshAIGAAAAAHZCAQMAAAAAO6GAAQAAAICdUMAAAAAAwE4oYAAAAABgJxQwAAAAALATChgAAAAA2AkFDAAAAADshAIGAAAAAHZCAQMAAAAAO6GAAQAAAICdUMAAAAAAwE4oYAD+A8uV08ePHT9zNcWR0JzBAAAe6klEQVTRQQAAALIUChjuTcJfKye80qV+2UKBPp6+eQqXb/jk0Mnrjic6OhbsLH7lwEpFi5R44ttTVkdHgR3EHVkzbUTvljXKFM3r7+Xu5ZenSMVHHh80btmfl3n/nZo1NmzhRwM6P1yhSJC/l7uHb678JWu0fPqNr9YcjbM5OhvsLGHXqOreJsOc7/lVSY7OgsyTvHlIiIvxr1yKv7Il2dE5szwXRwdAFpKwf2qvzoN//PPq/z95446HnTse9tucyZN6Tl448YkQV4fGg/1cXjP35/NW/n5kB7aYrZ/1fXr4goM3rXEnnDsWuu5Y6Lp5Ez9pMnzWrOGNgtiW53ysZ9e90/XJ99adttx452OiD8VEH9rxy6zPxnb88MevX6yaw3BgQtjR1c0je36wK97GdntnF3/0cDQb1uyAFSjcJevx73q0eGHBSYtNhleR+m1b1ijkcfnI5mXLtp9KvLRv+jMtXfy2TGyRi0/jbODavi8/mHeWv9DZQWLExKfaDllxzioZphwhD7dpXr1Yjmsnwvds2bD50MWU5KhVI9u1s65cNbKWr6OjIkMlho1/vOPo9bFWyfDIW7lpy4YVCvmbYo/uXLVkdXiMJeHwgkGtLTl+X/h0EVbInZ8tds2wXuNCE9nt6fwskYcjk22SybdQ+VJ53NKdx1ywoA8re/fNBtwF69n5T+YzSTLcSnT//vC1vydc3ftl24JmQzJcSg7acMWBEWEPiWd2zx3erKDr9b+9bg9/cTzF0ZGQeSwHPqnnZUgyzPmavf/bWcuNSSkXto5rG+xiSDLcK4/Ynei4lMh41uiZ7QJMkgyPsj2/PxB306SU85vfbZTLJEnmAr2WX3JYRtiL9dzSXkVd/r/CbcrbdyW/7s4rftFTfoZkeHf68bKjszg3Nl3hbqSETX5v3mmrDNcyL30zqWuI+99TvCv2+3pi94Jm2SyHpoyefZLdIs7Idvn3Cf2fatuwYsFc+at2eXflyWQ2hGYHydunTv493iaZQ56b8ePQ+oHmG9NMOWsO+n7OkPJuhmyJe6dMWpfguJzIaNaohd+uiLVKLhWGzJzYtaTXTdNMueq88fXIhl6GlBK9dP7GeIelhF1Yo+e/1O/boxa5uLiw18PpWU8dPppgk8zBJYp5OjqMc6OA4S6khC9cuD/ZJsOj/gsDanvfOtHI1eLlXuVdJFvC5nlLomhgzujqHz9N+37pb6FRV1OoXtlGyuF16yJTJLlWfPqFRwL+ue7lXXNAv/ruhmQ9u37NPov9EyKTJGzftCvJJrmW6/T4Q+7/mGwKfrRFRRdJ1tgDf3K6iFOzHp/9woA5J63mwk++8lQhVhmdniXy8FGLZJiLlihqvvPs+O84Bwx3Zo1c9Wt4siTXam1aFfznX2CXsq1blXh3b4Tl2u+/rL3Y72lOBHM6PlW6vja0xt9r2An75n358xFWuJ2c5fCBIxZJpqA6dUul+1FsylO+fF7TmsgU6+mo6BQ+UJyF9fyJkwk2SebgIsHpvfMmXz9fkyTZ4uMT2CbjvCyHpzz38pIzNpeQPpM/abOm3seODoRMZrt45K8Yq2QOKh7ix6pcpuLzEneW9GfoAYskc4Fq1QuktwXMpWzNqr5GxEVb0p/7D1mUi9EQnYyRo2bv0TX//tF24Zu9kylgTi/h0hWbu4eHXIsWC77Nlm9bwvX1b8Pdw50Pa6dhCuz0xbpqV22GObC0X3ozJB/58y+LJMOtSLF0PxPgDJLCP+/1+soYm2upF6Z8+GjOiDWODoRMZzl6+KhFkrlYyWJm29XjOzb8tvvw6as271z5Q6rUr18xnyd/6DMKBQx3ZI3688AVqyRz4ZDC6e+Sdi1UtKBZFy3Wk38evGqrlc7BSgCyGP9uC2O7/escibtWbbhglQzXcg+V49PEeXgVrFSn4G2nJuyf/M6soymSKbD1k4/68+feOV3b81HPtzdelnv5QdPee8TP4LpP2cG1o0eirJLh6RE19/m6Y2dsPZ309y5uw+RbotWAdz98o3MZH0dmdBZ8ZOKOrDHnL1olGa558+VOf2OnOSh/HrNksVljzsfYRAEDnF9SxKQ3px6ySIZ3g67t0zk4Gc7CFnto6x/HLl2OOR0ZvnX5d7NXHY6zGZ6lnp30Safc/LV3SnG/v/Pse9vj5FH51ekj67G+nU2kHDtyNNkm6dKKMa+knWizXjm49P0nNq7c9uOyjx8N4jf/PlHAcEe2uKtxNkmGp5fnbdaxDE+v6/ulbfFX4zkjAHB6V/dP7dXu9fWXbDI8Kw16t8ftDlKEM0je/nGHFlPP/D3chinHQz0/nf7xs1UCeNudke3Sujd7fbLvmrxrvDn9zRped74HnIMl8lDk9ZMLDJfAWr3fevO59nVK5/WyxETuXTvvyw/Gzg29ZI3dOe6pp4tvXf58cQbpuC/88cQd2a4lXD/N2s0t/Wvy3TTJFh9HAQOcWsJfy0e3r1yz79y/kmyGS4E2n/34Vg3GK85WrFf2/fj+sDELDjAGvROyXVjxau8v/0ySb90R01+r7OHoPLAba/SRo3E2yXAv0eO7HRsmDWhVOTjA09XdN6hUva7Df9iyfswjASbJemHVO+8su8i63v2hgOGODHcPD0OSkpNvexB4UlLS9W/+paQByOLiDv70VuvyFdq8vfhwvE2mHJV6z1w7p08pfumdnFuTicfjr8VfiYk+vGvF18M7lvGxxf3160dP1Gv3eViSo8MhQ9lOLxzY9+u/LIZ/o3envVye3+3sxBT83NLo8+fPnz+77+suhf8xnJrPQ4OnjKjnZUjW04tm/BxLA7svFDDckeHt421Isl1LuHab3zdbQuokw9vXmwODAecTf+inN5uXq9Tp3eV/xdtk+JRoN2rJnt+ndC3JBvJswOTi5u7u6ROQN6TKo8+Onr/112HVvAxZz6956/XZp7gQmPOwnviu/4s/nEgx5Ww2Zkr/Upylks2YPf1y5sqVK2cOj9uc71+sa48GHoZki9u6cRfjstwXChjuyJQrMJdJki3pzOmY9BtYyrnosymSZArIxUkBgHOxxe6a2LXKQ53e//XYNZvhkrvqM+PWhIcuertVMY48zJaMHLWHvt050CTZrqxbvOYSG8KdhO3CglcHLzptNeVp/cnkPiGc4oO0jJwVKhUyS7JejD6d4Og0WRvryrgjU4FSxb0NSSknjp5ISXcWy8ljUVZJ5nylSjIoMeBELCcW9avf4MUfD8TbDJegugO+2X5g+zeDGgW7OzoYMost9siu7du2bdseevK253h5ValR3kWSLflEZBS7wJyE7UpU1CWrZD275NkiZuNWbrXHHk6RZD39VTN3wzAMw5Tr2eUcgZrNGF4+XoYkQ4bByt59oYDhztxKVyjtIinl2K7dZ9Pb1plyaOcfl62S4Va6AscsAE7DdmnD0FZdp+yPtxluhVp/sGbfhs+frpyTzw3nZvnzq651atWqVaflmG23O8jIMJtN11e/zC7sKAGcgO3qsT1bNm/evGXbodsc7CTJev7Measkwz9vHg4/vy+sLOPOTEWaNi3t8nuoJWnHijXn+3YPTLPZwxq5emWERTLcqrdozFVhAGcRt+GtXp/tv2Yz3Eo++8PqrzoG84mRHbiElApx0aGUlDO7dx2zNiqeXuFOPhB20CLJcC0QnJdG7iQMv+rdXh1aL/0DXayn1k2dve2i1fB+6PEXmhcxS4ZXVUYidyYJa4Y36f1zgs1c4pWN+z+und4ALJaIDRtPp0iGV426Vf4xSgfuBR+nuAsu5Tp0KPPB/tDkKysnf3ug66ulb/l/k7B9yrRtiTYZXrU6tS7ERzHgHKwnv/vgm78sNsO1wpBZE2hf2YaRs0HjKu6//p5o2Tlj+o7+H9T8x6l+trOLJ887mSIZ7jWbNPBjq5uTMALq9n237m0mJm99deF32y7K8K3Z890PmjI8otMxcjVqVs3tl42JKUdmfTznpfnd/3F1R9vpn8ZM2Z8smQKadm6Wk1/8+8LaMu6GS6UXXmsdYJItYev7z43ZftM519YzK994/osIi2QO7vbGM8X4HwU4B9vp5fM3xtlkuNbp83w1htvIRswhT/ZuksOQLTns0+7PzYiIu2VqUtTKtx/rN/e0VTLnf3zQk1yDG3AKpiKP922VyyRZzyzq/9jQVdGWm6cm/PXTkHbPzTmVIsOj0oA3uwTRv+4PmzRxV4ygJz7+eN7vfZacjt34duPqW57t1a5aAbdLhzbO/fqHzSev2QzX4s98MapZDkfnBJBBEnf/vjvRJhk6OL1H44X/+mFrLtJt4rReJTkcyUmY8nf7cMSsLa+sv5h0aPazlX79pHHzhhWL5Pa0Xo4K3/zrr9tPxNskw71Ur8kftmEzOOAkjLxdx3+xbGf3OcctV7aPbV5qQb2Wj9YqGeSRHHMs9LdfV+89nWiTYcrd9KPZw6qyC/R+UcBwl1xCnp3xU0y3J4b/fOzqoV++GPrLjUmGT9luX8yb0DYvH8SAs7BGHTh4xSrJlhS9d0P0v8/sUrbuVcYidyZu5QbNX3Kt+5OjVpxITD4XumJW6IqbJxuu+Rq99vWMEc3ZCg44EVPwE9+udS3Qa+AXv0UlXfnrtzmTfrtpqmHyq/DMZz9+8XQZ6tf9o4Dhrhn+tV5ZsrvpgimTvpm/eu9fpy4keeUpWKJaiyd6v9C7ZQlvR8cDkIFSzp0+l/7J+MgWjFz13lge1vGXb6bOXrJ2W+jhUzEJNk+/XPlCHqrzSOuuvXs0DfGmfAFOxz2k09h1TXv/PGvm3MW//h5xPPrcFcM3sECJao1ade75XJdqgRSHjGHYbGy2BAAAAAB74ORZAAAAALATChgAAAAA2AkFDAAAAADshAIGAAAAAHZCAQMAAAAAO6GAAQAAAICdUMAAAAAAwE4oYAAAAABgJxQwAAAAALATChgAAAAA2AkFDAAAAADshAIGAAAAAHZCAQMAAAAAO6GAAQAAAICdUMAAAAAAwE4oYAAAAABgJxQwAAAAALATChgAAAAA2AkFDAAAAADshAIGAAAAAHZCAQMAAAAAO6GAAQAAAICdUMAAAAAAwE4oYAAAAABgJxQwAAAAALATChgAAAAA2AkFDAAAAADshAIGAAAAAHZCAQMAAAAAO6GAAQAAAICdUMAAAAAAwE4oYAAAAABgJxQwAAAAALATChgAAAAA2AkFDAAAAADshAIGAAAAAHZCAQMAAAAAO6GAAQAAAICdUMAAAAAAwE4oYAAAAABgJxQwAAAAALATChgAAAAA2AkFDAAAAADshAIGAAAAAHZCAQMAAAAAO6GAAQAAAICdUMAAAAAAwE4oYAAAAABgJxQwAAAAALATChgAAAAA2AkFDAAAAADshAIGAAAAAHZCAQMAAAAAO6GAAYDTSlzwhLfJuFemgB5LE6XkzYNDXAzDcKv18aEUR7+Se2U5vWF8nybl8ufwcPPIWeXtbcmODgQAQCoXRwcAACBjXf3tjSbNPwm7ZpMkJZ+LiXdwoKzIEjbrjS+3XLW5Vnh6zAu1vBwdBwCcBwUMAJyWuXDDbs94JtnS3Gw9vuH7dUctNsO1WKOuDQqlPRTC8KoTbJbS3ivLsMUsHvdV+DWbTP5Vug3p07hYUOkyZkeHynqsJzZ8+9X081b31rVGUcAAIANRwADAablU6/fV1/3+cXPiwq4L1h21SB61X5ryTTv39O9sLdH1468rXbGZAqsFZanD1VNOHDySYJNcSj4/efrw6nzOAQAeKHwwAQDSY8pTvWOP6o5O8V+kpKRIkpHD389wdBYAANLIUls1AQAPnKQrMbFxyVn2gEXJFh91MiYD82eBBZIcfyXumiVjI2b0YgQAp0UBAwCkx7JzWFnXtKMgWo9/8bC7YRiebWfFWi/unNS7buFcAbkDfN3dvHMVLNPgyeHf772cuhJ+LfLXT19sV6N4vgBvd88cQSVqtR84cWO05bbPl3xm66x3nm9bq3ShwBxePoFFytds0nnAxwtDY613m9h67LMG7obhWvW9cIuk5O1DS7kYhmEOfnFdsiSlHPq4lpthmHy6LkyUFHfgp7c71yiay8uv2ru7bhom0XJux3fv9mtfu0yhPDk8PXxyFyhR9dGn35i46mhCes+ZeQvkX9zLsro5oWwXd0zs83CJPH5+Pp5uLu6+uYs81PTpEd/tibnpjsmbXi7mYhjuLaaft0pKXPZMTsMwDLc6Yw9b77gYk7e+VsrVMAxz7m6LrqSb3Xr0s4YeJsMweT78eeRdv7cA4ExsAIDs5dqCJ7wNSYbvU4uu3Xau5B1vlHGR5Frzo4OW/9+Ycuzzhm6SPFqPXzi4ktc/j/AzfCoNXnUhOWrJS5X9/rGJz3At1GV2pOWfz5UQMaNnRX9TOgcMGi6BdYcsjky6m9eVEjm+vts/H8JUsP/aJJvNZrMc/Kimq2R4P7Eg4crOjxoHpgY05e27MvH6QyQemdOvSoA5vSMXDc+i7T7dHmtN85yZs0D+xb0uq78Ttvn24LIXyqQTUYZbkc7fHPr//ZI2DiqazqAlrrU/PpRy58WY9PurJV0kmQJ7LL6S3pt0aGwdN0MyvJpOPplyT68cAJwE54ABAO5Z0m8jn/k5NsE1b432XVrVqxhsPr19wdRv1x27Zru697On2+zx/2N9RFLOh9o/3qZhpQLWk7tXzJ61+miCLfn4/FdHdW/zdescNz2W5dDUzo36LT+dYpPhGVyjRYv65Qv6WM4f2bFy2doDFy3nNn/aufH5H377umP+Oxy0Ycr/1Dc7H76aHDGhc7dpf6W4lB84f+azRUyGW+6QWz/srOeXD3pl2NqL/uVbP9a2QaViwZXLu0iyRi/o/Ui32ceSbTLMfiENWjWvWSLQ5cqxP9YuX7X3TGLC0cWvNGubsmHlKxX/OW5JRi6Qf3Efyyrl2IzePTdEJJgDK7fv1rlR+bzmmKN/rJvz3YqDV6xJkfNfev7hhitfKGqSXCq/unz3M0lJm0c2e3HRRZtbg9GrP2+TQ4Z3/jQDZqa7GF2rdmxX9NOPD6VcWPHThri2rbzTpDg4f86OZJsM30ee7HCnNxQAnJSjGyAAwM4yYA+YJJNfneEbzt/Yh5Fyat5TBf+/58TwKPf8kpPJf0+0nl3eO8QsSaYC/dYk3vw0EZ/U9zUkmXLWeX35sZvzpFzY/kXHIq6GJFPujrNPpdn5dNvgu94s6yLJtcaYA7fsXPr/rhuXoPx5XPM0fn/zhZv3wFhP/9jl+nCPptyNRq2LTr5p0qV9U7uGuBmSDK9aY/bfNCnjF8i/vbL/sqxuSiiTf+1ha87cvFCu7h7TwM8kyXCrP+7ozcsj8ZdeuU2S3Ft/G3NLin9fjDZb0u+vljBLMuXt+XNcmldgCR1d2VWS4f/YDxfu8v0EAGfD1icAwL0zfBu9N3tkg1w3PkVM+doP7FbCRZIM13IvfzOuTYEb+52MwEdf6V3FVZL1wqnoxBuPc2XVJ+O2XLHJHNz960UftCx0874lU87qL86a93old0PWC0s/nhL6n86X+geb5cxpW9txs4fWyXnTZ2DKgW8/XXzWKpmL9Jw5/62H896008zIUaH3N/OHV/M0ZIvfMfHL9elc2DmjFsi/uN9lZQp49KMfRj+S5+bjC70rDxzxVAGzZEs5cexkyj/vdFvpL0ZJrlU7titmlqxnf/lp463nzVn2z5sbmiyZcrV6skVOhqgEkE1RwAAA98zwaNj9iSJpzhQyFw4pbJYkl4eeerqKR9qJJYq5GpJsKZYb5SB+3Q8/nUqR4VbtxWGtA9NZI/eqOmBAY09DtuSIX1cdy6AxG8z5Oz3fIe8tz5ZyZMlPexJtMjxqvzT00XS6gXulF19rl9MkpUQtXbQtKe3kjFog/+J+l5UpX+dBTxX+x8e+W4ky13fF3WWMm17BPxejJMm1aqfrDezMzz9turmBWfbOnR9hkUx52j7ZzO/engwAnAcFDABwzwz/ggV8/7Hq7eLyv/buNTiq8owD+Ht2swkkhJuRq7egKCrIIEHEUi+DWlQ0CihNUGfqB7XtwIxMay+2HZ3qOEDxRr3RemudjhkrlyJCbdXqoAWB0QpNK6L1hsKAlkiAQPbSDyiiLBhKcjYOv9/H3dmdZ54Pe85/3/c87871nuJ+/Y/cY4xDVFS0x2vplYuXbMqGkDzqjDP65Rn8EEKIug85uTIZQkiv+dcbrbMEFhUPOW3ol+JQ4/Ilq9IhhKKB548+Ku+lMeo66vxvdIhCyKxfvuztL68VtVJD9uFAexWVVJ0+vDTPh4qK8g4d+Ur52rjTrjWwdQvmvNS06+XmFXV/XJ0OIdn3ktqzyvJ9EOCgIIABsP8S0T6uH8lUqmW39Om1732YDSGkV087NRXllzr55n+mQwjZzRs/atlWva8SdenTq+yLBWY3fLCuORdCVNJ/QL4RgCGEEJUfe1zfRAghu27tuj3Xl1qlIftwoL2KOvfs0fFAi/jCF+7Zxs+kqnYmsMyHC+Yu+ayQHUvrnngzHULyyPG1I1u1EoCvFwEMgALJbWn4pOUnFue2N21vlYN+o46lXx7Gnm3c3JgNIURlncr2emGMyruUJ0II2U8aNsd+gNWB96oouT8Lbl8tTxt32ZXA1j45Z+nOBNb0Ut3sdzIhFPW/rGb4nmMkAQ4extADUCBRaXmnZBRCLjXsJwtmTeix71WiRPnhXVtnbkO+07rKy6IQQm5r45a9ZqvclsatuRBCoqxTaex/XxaqV/sqaR/vparGVlfe/qs1mfeenLts+ukji7ctrpv7fiaEohMm1AxJtXVpAO2ZAAZAoRT16tMzEf6TyTWlegwcPLhwl6RkRe+eqSg055rWvP52JgzIu1a0Zc3q9zMhhESP3j3j3z/SbnrVMqmqsRdX3v6rNZl35s9dMXXkSc/XzfsgE6LUkJpvn9jeawdoW7YgAlAoqZNGVJVFIWTeeP6FtflXnnIf/e2O6yZPmjT5+kdea267SsqHnnpiUQghvWrR0+/lr6ThuacWb82FkKgYdsrRrbubryXaT69aJlU1troyGULm7flzVvz32cfmr8+GqHh4zWXHxt87gHZFAAOgYMpHjRvdPRFyTYtn/GLe+jyPOG1bdtvk6++c+eu7H3hla/c2vHNP9r+welBxFHJNL9417ZlNe1ayY+U9U2dvyIaQ7DPm4hGFeIap3fSqhVJV46orkyGk3/rT76Y9umBDNkQdRtaOzz9jEuAg4ncQgIKJDqmecvUJxVHIvPPody66bs6bux8blW34x70Tx09b1ZwLid6XTqrp25aXrOQJV00ZU5EIufRbs66YMPXFDbsNms811j901biblm7Nhai06vuTz+7UhoXsVaF6tX37/zn7ZFcCW/2bGbM/yoao7KzaSw5z3wEc9GzEBqCAOgz/2YM3PDvqxqWbG16+c9ygx6tGjznzpCM6pze+9eoz8/686uN0LkSpflfePfXCNp4qEfWuuWvmky9fXvd+ev3TPz1zwO/Prj5v+DGHJDa/++pf5z214sPtuRAS3c64+bdTBhbq0hlvrz49xGzH3++74Y6O5/ZJlg244ILBXfbni1NV46or75ixJpNuTocQdTmn9qKebT4aBKDdE8AAKKjSYT9fuKjk8pobF77btO2DZXNmLZvz+ZtR8pBh373/sdsujuHOPdF3wsPPZcrHf++B1xrSH9cveqh+0W7vRqVHX3Jr3UOTBha3eSF7F2OvUgNHDOs8a/6mXOMrD0658sGQGjG9/vz9C2AhNXTszgQWQkh0P2/iBRXyF4AtiAAUWtTttB8tqF/51MwfThw1uLJX146p4rJufY8/rfqaW/6wtP7FmeMq45pbXnJM7azlr7/08E1XXzT8uMMqOpUUl3br3W/IuVf++N6/1K96YvLQzoVOELH1Kup1+f2P//KyU47sWlJUVFJ+6BGHV+z/k2/Fn07iCCFx6IUTv9W1dUoD+HqLcrlWOdYSAOCLdiy5ftA3p69OJw+7ZuHq+87pWOh6ANoBK2AAQJvY9sIjj72ZDiF5xNja06UvgBCCAAYAtI2GRQ8/sTYTQtHRl9YWZHQ/QHskgAEAra9p5T3T52zMhih1Yu3EoXE9xgfQ7pmCCAC0muYl06+Y8Vpxcv3yp5/999ZcSHQf84NrB7ndAPiMX0QAoNXkNr3+zOxHN2ZDCCFEyZ6jb7l1guO/AD5nCyIA0GoSvQeeckxFaYfOfY4/66rpC5fOvvY42w8BdmMMPQAAQEysgAEAAMREAAMAAIiJAAYAABATAQwAACAmAhgAAEBMBDAAAICYCGAAAAAxEcAAAABiIoABAADERAADAACIiQAGAAAQEwEMAAAgJgIYAABATAQwAACAmAhgAAAAMRHAAAAAYiKAAQAAxEQAAwAAiIkABgAAEBMBDAAAICYCGAAAQEwEMAAAgJgIYAAAADERwAAAAGIigAEAAMREAAMAAIiJAAYAABATAQwAACAmAhgAAEBMBDAAAICYCGAAAAAxEcAAAABiIoABAADERAADAACIiQAGAAAQEwEMAAAgJgIYAABATAQwAACAmAhgAAAAMRHAAAAAYiKAAQAAxEQAAwAAiMn/AFVMTQ1aMPniAAAAAElFTkSuQmCC" width="576" /></p>
+<p>Here it is best to supply only one column to each argument since
+Pohar-Perme estimates will not be computed for several types of events
+at the same time.</p>
+</div>
+
+
+
+
+</div>
+
+<script>
+
+// add bootstrap table styles to pandoc tables
+function bootstrapStylePandocTables() {
+ $('tr.odd').parent('tbody').parent('table').addClass('table table-condensed');
+}
+$(document).ready(function () {
+ bootstrapStylePandocTables();
+});
+
+
+</script>
+
+<!-- tabsets -->
+
+<script>
+$(document).ready(function () {
+ window.buildTabsets("TOC");
+});
+
+$(document).ready(function () {
+ $('.tabset-dropdown > .nav-tabs > li').click(function () {
+ $(this).parent().toggleClass('nav-tabs-open');
+ });
+});
+</script>
+
+<!-- code folding -->
+
+
+<!-- dynamically load mathjax for compatibility with self-contained -->
+<script>
+ (function () {
+ var script = document.createElement("script");
+ script.type = "text/javascript";
+ script.src = "https://mathjax.rstudio.com/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML";
+ document.getElementsByTagName("head")[0].appendChild(script);
+ })();
+</script>
+
+</body>
+</html>
diff --git a/man/ICSS.Rd b/man/ICSS.Rd
index 1e57ad7..7230d21 100644
--- a/man/ICSS.Rd
+++ b/man/ICSS.Rd
@@ -1,45 +1,45 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/data_document.R
-\name{ICSS}
-\alias{ICSS}
-\title{Age standardisation weights from the ICSS scheme.}
-\format{
-data.table with columns
-\itemize{
- \item age - lower bound of the age group
- \item ICSS1 - first set of weights, sums to 100 000
- \item ICSS2 - second set of weights, sums to 100 000
- \item ICSS3 - third set of weights, sums to 100 000
-}
-}
-\source{
-\href{https://seer.cancer.gov/stdpopulations/survival.html}{ICSS weights (US National Cancer Institute website)}
-
-Corazziari, Isabella, Mike Quinn, and Riccardo Capocaccia. "Standard cancer patient population for age standardising survival ratios." European Journal of Cancer 40.15 (2004): 2307-2316.
-}
-\description{
-Contains three sets age-standardisation weights for age-standardized survival (net, relative or observed).
-}
-\examples{
-## aggregate weights to a subset of age groups
-data(ICSS)
-cut <- c(0, 30, 50, 70, Inf)
-agegr <- cut(ICSS$age, cut, right = FALSE)
-aggregate(ICSS1~agegr, data = ICSS, FUN = sum)
-}
-\seealso{
-Other popEpi data:
-\code{\link{meanpop_fi}},
-\code{\link{popmort}},
-\code{\link{sibr}},
-\code{\link{sire}},
-\code{\link{stdpop101}},
-\code{\link{stdpop18}}
-
-Other weights:
-\code{\link{direct_standardization}},
-\code{\link{stdpop101}},
-\code{\link{stdpop18}}
-}
-\concept{popEpi data}
-\concept{weights}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/data_document.R
+\name{ICSS}
+\alias{ICSS}
+\title{Age standardisation weights from the ICSS scheme.}
+\format{
+data.table with columns
+\itemize{
+ \item age - lower bound of the age group
+ \item ICSS1 - first set of weights, sums to 100 000
+ \item ICSS2 - second set of weights, sums to 100 000
+ \item ICSS3 - third set of weights, sums to 100 000
+}
+}
+\source{
+\href{https://seer.cancer.gov/stdpopulations/survival.html}{ICSS weights (US National Cancer Institute website)}
+
+Corazziari, Isabella, Mike Quinn, and Riccardo Capocaccia. "Standard cancer patient population for age standardising survival ratios." European Journal of Cancer 40.15 (2004): 2307-2316.
+}
+\description{
+Contains three sets age-standardisation weights for age-standardized survival (net, relative or observed).
+}
+\examples{
+## aggregate weights to a subset of age groups
+data(ICSS)
+cut <- c(0, 30, 50, 70, Inf)
+agegr <- cut(ICSS$age, cut, right = FALSE)
+aggregate(ICSS1~agegr, data = ICSS, FUN = sum)
+}
+\seealso{
+Other popEpi data:
+\code{\link{meanpop_fi}},
+\code{\link{popmort}},
+\code{\link{sibr}},
+\code{\link{sire}},
+\code{\link{stdpop101}},
+\code{\link{stdpop18}}
+
+Other weights:
+\code{\link{direct_standardization}},
+\code{\link{stdpop101}},
+\code{\link{stdpop18}}
+}
+\concept{popEpi data}
+\concept{weights}
diff --git a/man/Lexis_fpa.Rd b/man/Lexis_fpa.Rd
index 796cf88..0a46365 100644
--- a/man/Lexis_fpa.Rd
+++ b/man/Lexis_fpa.Rd
@@ -1,90 +1,90 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/utility_functions.R
-\name{Lexis_fpa}
-\alias{Lexis_fpa}
-\title{Create a Lexis Object with Follow-up Time, Period, and Age
-Time Scales}
-\usage{
-Lexis_fpa(
- data,
- birth = NULL,
- entry = NULL,
- exit = NULL,
- entry.status = NULL,
- exit.status = NULL,
- subset = NULL,
- ...
-)
-}
-\arguments{
-\item{data}{a \code{data.frame}; mandatory}
-
-\item{birth}{the time of birth; A character string naming the variable in
-data or an expression to evaluate - see
-\link[=flexible_argument]{Flexible input}}
-
-\item{entry}{the time at entry to follow-up; supplied the
-same way as \code{birth}}
-
-\item{exit}{the time at exit from follow-up; supplied the
-same way as \code{birth}}
-
-\item{entry.status}{passed on to \code{\link[Epi]{Lexis}} if not \code{NULL};
-supplied the same way as \code{birth}}
-
-\item{exit.status}{passed on to \code{\link[Epi]{Lexis}} if not \code{NULL};
-supplied the same way as \code{birth}}
-
-\item{subset}{a logical condition to subset by before passing data
-and arguments to \code{\link[Epi]{Lexis}}}
-
-\item{...}{additional optional arguments passed on to
-\code{\link[Epi]{Lexis}}}
-}
-\value{
-A \code{Lexis} object with the usual columns that \code{Lexis} objects
-have, with time scale columns \code{fot}, \code{per}, and \code{age}.
-They are calculated as
-
-\code{fot = entry - entry} (to ensure correct format, e.g. difftime)
-
-\code{per = entry}
-
-and
-
-\code{age = entry - birth}
-}
-\description{
-This is a simple wrapper around \code{\link[Epi]{Lexis}} for creating
-a \code{Lexis} object with the time scales \code{fot}, \code{per},
-and \code{age}.
-}
-\examples{
-
-data("sire", package = "popEpi")
-
-lex <- Lexis_fpa(sire,
- birth = "bi_date",
- entry = dg_date,
- exit = ex_date + 1L,
- exit.status = "status")
-
-## some special cases
-myVar <- "bi_date"
-l <- list(myVar = "bi_date")
-sire$l <- sire$myVar <- 1
-
-## conflict: myVar taken from data when "bi_date" was intended
-lex <- Lexis_fpa(sire,
- birth = myVar,
- entry = dg_date,
- exit = ex_date + 1L,
- exit.status = "status")
-
-## no conflict with names in data
-lex <- Lexis_fpa(sire,
- birth = l$myVar,
- entry = dg_date,
- exit = ex_date + 1L,
- exit.status = "status")
-}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/utility_functions.R
+\name{Lexis_fpa}
+\alias{Lexis_fpa}
+\title{Create a Lexis Object with Follow-up Time, Period, and Age
+Time Scales}
+\usage{
+Lexis_fpa(
+ data,
+ birth = NULL,
+ entry = NULL,
+ exit = NULL,
+ entry.status = NULL,
+ exit.status = NULL,
+ subset = NULL,
+ ...
+)
+}
+\arguments{
+\item{data}{a \code{data.frame}; mandatory}
+
+\item{birth}{the time of birth; A character string naming the variable in
+data or an expression to evaluate - see
+\link[=flexible_argument]{Flexible input}}
+
+\item{entry}{the time at entry to follow-up; supplied the
+same way as \code{birth}}
+
+\item{exit}{the time at exit from follow-up; supplied the
+same way as \code{birth}}
+
+\item{entry.status}{passed on to \code{\link[Epi]{Lexis}} if not \code{NULL};
+supplied the same way as \code{birth}}
+
+\item{exit.status}{passed on to \code{\link[Epi]{Lexis}} if not \code{NULL};
+supplied the same way as \code{birth}}
+
+\item{subset}{a logical condition to subset by before passing data
+and arguments to \code{\link[Epi]{Lexis}}}
+
+\item{...}{additional optional arguments passed on to
+\code{\link[Epi]{Lexis}}}
+}
+\value{
+A \code{Lexis} object with the usual columns that \code{Lexis} objects
+have, with time scale columns \code{fot}, \code{per}, and \code{age}.
+They are calculated as
+
+\code{fot = entry - entry} (to ensure correct format, e.g. difftime)
+
+\code{per = entry}
+
+and
+
+\code{age = entry - birth}
+}
+\description{
+This is a simple wrapper around \code{\link[Epi]{Lexis}} for creating
+a \code{Lexis} object with the time scales \code{fot}, \code{per},
+and \code{age}.
+}
+\examples{
+
+data("sire", package = "popEpi")
+
+lex <- Lexis_fpa(sire,
+ birth = "bi_date",
+ entry = dg_date,
+ exit = ex_date + 1L,
+ exit.status = "status")
+
+## some special cases
+myVar <- "bi_date"
+l <- list(myVar = "bi_date")
+sire$l <- sire$myVar <- 1
+
+## conflict: myVar taken from data when "bi_date" was intended
+lex <- Lexis_fpa(sire,
+ birth = myVar,
+ entry = dg_date,
+ exit = ex_date + 1L,
+ exit.status = "status")
+
+## no conflict with names in data
+lex <- Lexis_fpa(sire,
+ birth = l$myVar,
+ entry = dg_date,
+ exit = ex_date + 1L,
+ exit.status = "status")
+}
diff --git a/man/RPL.Rd b/man/RPL.Rd
index 0dd7317..20c0bbf 100644
--- a/man/RPL.Rd
+++ b/man/RPL.Rd
@@ -1,26 +1,26 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/relative_poisson_net_survival.R
-\docType{data}
-\name{RPL}
-\alias{RPL}
-\title{Relative Poisson family object}
-\format{
-A list very similar to that created by \code{poisson()}.
-}
-\usage{
-RPL
-}
-\description{
-A family object for GLM fitting of relative Poisson models
-}
-\seealso{
-Other relpois functions:
-\code{\link{relpois_ag}()},
-\code{\link{relpois}()},
-\code{\link{rpcurve}()}
-}
-\author{
-Karri Seppa
-}
-\concept{relpois functions}
-\keyword{datasets}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/relative_poisson_net_survival.R
+\docType{data}
+\name{RPL}
+\alias{RPL}
+\title{Relative Poisson family object}
+\format{
+A list very similar to that created by \code{poisson()}.
+}
+\usage{
+RPL
+}
+\description{
+A family object for GLM fitting of relative Poisson models
+}
+\seealso{
+Other relpois functions:
+\code{\link{relpois_ag}()},
+\code{\link{relpois}()},
+\code{\link{rpcurve}()}
+}
+\author{
+Karri Seppa
+}
+\concept{relpois functions}
+\keyword{datasets}
diff --git a/man/Surv.Rd b/man/Surv.Rd
index 7d5257c..49b5195 100644
--- a/man/Surv.Rd
+++ b/man/Surv.Rd
@@ -1,72 +1,72 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/Surv.R
-\name{Surv}
-\alias{Surv}
-\title{Survival Objects}
-\usage{
-Surv(
- time,
- time2,
- event,
- type = c("right", "left", "interval", "counting", "interval2", "mstate"),
- origin = 0
-)
-}
-\arguments{
-\item{time}{see \link[survival:Surv]{survival::Surv}}
-
-\item{time2}{see \link[survival:Surv]{survival::Surv}}
-
-\item{event}{see \link[survival:Surv]{survival::Surv}}
-
-\item{type}{see \link[survival:Surv]{survival::Surv}}
-
-\item{origin}{see \link[survival:Surv]{survival::Surv}}
-}
-\value{
-See \verb{[survival::Surv]}.
-}
-\description{
-Wrapper for \link[survival:Surv]{survival::Surv}.
-}
-\section{Surv in survival vs. in popEpi}{
-
-\code{popEpi::Surv} is a wrapper for \link[survival:Surv]{survival::Surv}.
-Therefore you don't need to to do \code{library("survival")} when using \code{Surv}
-with e.g.
-\code{\link{survtab}}. Remember that if you do \code{library("survival")} after
-\code{library("popEpi")}, the \code{Surv} from \pkg{survival} is used instead of
-from \pkg{popEpi} (\code{R} throws a warning about this) when an expression
-such as \code{Surv(my_times, my_events)} is evaluated. You can avoid such
-conflicts by writing e.g. \code{popEpi::Surv(my_times, my_events)} instead.
-However, \code{popEpi::Surv} is designed in such a way that this should not
-become a problem and you should be able to use the two interchangeably.
-}
-
-\seealso{
-Other main functions:
-\code{\link{rate}()},
-\code{\link{relpois_ag}()},
-\code{\link{relpois}()},
-\code{\link{sirspline}()},
-\code{\link{sir}()},
-\code{\link{survmean}()},
-\code{\link{survtab_ag}()},
-\code{\link{survtab}()}
-
-Other survtab functions:
-\code{\link{lines.survtab}()},
-\code{\link{plot.survtab}()},
-\code{\link{print.survtab}()},
-\code{\link{summary.survtab}()},
-\code{\link{survtab_ag}()},
-\code{\link{survtab}()}
-
-Other survmean functions:
-\code{\link{lines.survmean}()},
-\code{\link{plot.survmean}()},
-\code{\link{survmean}()}
-}
-\concept{main functions}
-\concept{survmean functions}
-\concept{survtab functions}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/Surv.R
+\name{Surv}
+\alias{Surv}
+\title{Survival Objects}
+\usage{
+Surv(
+ time,
+ time2,
+ event,
+ type = c("right", "left", "interval", "counting", "interval2", "mstate"),
+ origin = 0
+)
+}
+\arguments{
+\item{time}{see \link[survival:Surv]{survival::Surv}}
+
+\item{time2}{see \link[survival:Surv]{survival::Surv}}
+
+\item{event}{see \link[survival:Surv]{survival::Surv}}
+
+\item{type}{see \link[survival:Surv]{survival::Surv}}
+
+\item{origin}{see \link[survival:Surv]{survival::Surv}}
+}
+\value{
+See \verb{[survival::Surv]}.
+}
+\description{
+Wrapper for \link[survival:Surv]{survival::Surv}.
+}
+\section{Surv in survival vs. in popEpi}{
+
+\code{popEpi::Surv} is a wrapper for \link[survival:Surv]{survival::Surv}.
+Therefore you don't need to to do \code{library("survival")} when using \code{Surv}
+with e.g.
+\code{\link{survtab}}. Remember that if you do \code{library("survival")} after
+\code{library("popEpi")}, the \code{Surv} from \pkg{survival} is used instead of
+from \pkg{popEpi} (\code{R} throws a warning about this) when an expression
+such as \code{Surv(my_times, my_events)} is evaluated. You can avoid such
+conflicts by writing e.g. \code{popEpi::Surv(my_times, my_events)} instead.
+However, \code{popEpi::Surv} is designed in such a way that this should not
+become a problem and you should be able to use the two interchangeably.
+}
+
+\seealso{
+Other main functions:
+\code{\link{rate}()},
+\code{\link{relpois_ag}()},
+\code{\link{relpois}()},
+\code{\link{sirspline}()},
+\code{\link{sir}()},
+\code{\link{survmean}()},
+\code{\link{survtab_ag}()},
+\code{\link{survtab}()}
+
+Other survtab functions:
+\code{\link{lines.survtab}()},
+\code{\link{plot.survtab}()},
+\code{\link{print.survtab}()},
+\code{\link{summary.survtab}()},
+\code{\link{survtab_ag}()},
+\code{\link{survtab}()}
+
+Other survmean functions:
+\code{\link{lines.survmean}()},
+\code{\link{plot.survmean}()},
+\code{\link{survmean}()}
+}
+\concept{main functions}
+\concept{survmean functions}
+\concept{survtab functions}
diff --git a/man/adjust.Rd b/man/adjust.Rd
index 8ff8267..36ff61f 100644
--- a/man/adjust.Rd
+++ b/man/adjust.Rd
@@ -1,24 +1,24 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/evaluation.R
-\name{adjust}
-\alias{adjust}
-\title{Adjust Estimates by Categorical Variables}
-\usage{
-adjust(...)
-}
-\arguments{
-\item{...}{variables to adjust by, e.g. \code{adjust(factor(v1), v2, v3)}}
-}
-\value{
-Returns a list of promises of the variables supplied which can be
-evaluated.
-}
-\description{
-This function is only intended to be used within a formula
-when supplied to e.g. \code{\link{survtab_ag}} and should not be
-used elsewhere.
-}
-\examples{
-
-y ~ x + adjust(z)
-}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/evaluation.R
+\name{adjust}
+\alias{adjust}
+\title{Adjust Estimates by Categorical Variables}
+\usage{
+adjust(...)
+}
+\arguments{
+\item{...}{variables to adjust by, e.g. \code{adjust(factor(v1), v2, v3)}}
+}
+\value{
+Returns a list of promises of the variables supplied which can be
+evaluated.
+}
+\description{
+This function is only intended to be used within a formula
+when supplied to e.g. \code{\link{survtab_ag}} and should not be
+used elsewhere.
+}
+\examples{
+
+y ~ x + adjust(z)
+}
diff --git a/man/aggre.Rd b/man/aggre.Rd
index 50b7760..9d3c935 100644
--- a/man/aggre.Rd
+++ b/man/aggre.Rd
@@ -1,194 +1,194 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/aggregating.R
-\name{aggre}
-\alias{aggre}
-\title{Aggregation of split \code{Lexis} data}
-\usage{
-aggre(
- lex,
- by = NULL,
- type = c("unique", "full"),
- sum.values = NULL,
- subset = NULL,
- verbose = FALSE
-)
-}
-\arguments{
-\item{lex}{a \code{Lexis} object split with e.g.
-\code{\link[Epi]{splitLexis}} or \code{\link{splitMulti}}}
-
-\item{by}{variables to tabulate (aggregate) by.
-\link[=flexible_argument]{Flexible input}, typically e.g.
-\code{by = c("V1", "V2")}. See Details and Examples.}
-
-\item{type}{determines output levels to which data is aggregated varying
-from returning only rows with \code{pyrs > 0} (\code{"unique"}) to
-returning all possible combinations of variables given in \code{aggre} even
-if those combinations are not represented in data (\code{"full"});
-see Details}
-
-\item{sum.values}{optional: additional variables to sum by argument
- \code{by}. \link[=flexible_argument]{Flexible input}, typically e.g.
-\code{sum.values = c("V1", "V2")}}
-
-\item{subset}{a logical condition to subset by before computations;
-e.g. \code{subset = area \%in\% c("A", "B")}}
-
-\item{verbose}{\code{logical}; if \code{TRUE}, the function returns timings
-and some information useful for debugging along the aggregation process}
-}
-\value{
-A long \code{data.frame} or \code{data.table} of aggregated person-years
-(\code{pyrs}), numbers of subjects at risk (\code{at.risk}), and events
-formatted \code{fromXtoY}, where \code{X} and \code{X} are states
-transitioning from and to or states at the end of each \code{lex.id}'s
-follow-up (implying \code{X} = \code{Y}). Subjects at risk are computed
-in the beginning of an interval defined by any Lexis time scales and
-mentioned in \code{by}, but events occur at any point within an interval.
-
-When the data has been split along multiple time scales, the last
-time scale mentioned in \code{by} is considered to be the survival time
-scale with regard to computing events. Time lines cut short by the
-extrema of non-survival-time-scales are considered to be censored
-("transitions" from the current state to the current state).
-}
-\description{
-Aggregates a split \code{Lexis} object by given variables
-and / or expressions into a long-format table of person-years and
-transitions / end-points. Automatic aggregation over time scales
-by which data has been split if the respective time scales are mentioned
-in the aggregation argument to e.g. intervals of calendar time, follow-up time
-and/or age.
-}
-\details{
-\strong{Basics}
-
-\code{aggre} is intended for aggregation of split \code{Lexis} data only.
-See \code{\link[Epi]{Lexis}} for forming \code{Lexis} objects by hand
-and e.g. \code{\link[Epi]{splitLexis}}, \code{\link{splitLexisDT}}, and
-\code{\link{splitMulti}} for splitting the data. \code{\link{lexpand}}
-may be used for simple data sets to do both steps as well as aggregation
-in the same function call.
-
-Here aggregation refers to computing person-years and the appropriate events
-(state transitions and end points in status) for the subjects in the data.
-Hence, it computes e.g. deaths (end-point and state transition) and
-censorings (end-point) as well as events in a multi-state setting
-(state transitions).
-
-The result is a long-format \code{data.frame} or \code{data.table}
-(depending on \code{options("popEpi.datatable")}; see \code{?popEpi})
-with the columns \code{pyrs} and the appropriate transitions named as
-\code{fromXtoY}, e.g. \code{from0to0} and \code{from0to1} depending
-on the values of \code{lex.Cst} and \code{lex.Xst}.
-
-
-\strong{The by argument}
-
-The \code{by} argument determines the length of the table, i.e.
-the combinations of variables to which data is aggregated.
-\code{by} is relatively flexible, as it can be supplied as
-
-\itemize{
- \item{a character string vector, e.g. \code{c("sex", "area")},
- naming variables existing in \code{lex}}
- \item{an expression, e.g. \code{factor(sex, 0:1, c("m", "f"))}
- using any variable found in \code{lex}}
- \item{a list (fully or partially named) of expressions, e.g.
- \code{list(gender = factor(sex, 0:1, c("m", "f"), area)}}
-}
-
-Note that expressions effectively allow a variable to be supplied simply as
-e.g. \code{by = sex} (as a symbol/name in R lingo).
-
-The data is then aggregated to the levels of the given variables
-or expression(s). Variables defined to be time scales in the supplied
-\code{Lexis} are processed in a special way: If any are mentioned in the
-\code{by} argument, intervals of them are formed based on the breaks
-used to split the data: e.g. if \code{age} was split using the breaks
-\code{c(0, 50, Inf)}, mentioning \code{age} in \code{by} leads to
-creating the \code{age} intervals \code{[0, 50)} and \code{[50, Inf)}
-and aggregating to them. The intervals are identified in the output
-as the lower bounds of the appropriate intervals.
-
-The order of multiple time scales mentioned in \code{by} matters,
-as the last mentioned time scale is assumed to be a survival time scale
-for when computing event counts. E.g. when the data is split by the breaks
-\code{list(FUT = 0:5, CAL = c(2008,2010))}, time lines cut short at
-\code{CAL = 2010} are considered to be censored, but time lines cut short at
-\code{FUT = 5} are not. See Return.
-
-\strong{Aggregation types (styles)}
-
-It is almost always enough to aggregate the data to variable levels
-that are actually represented in the data
-(default \code{aggre = "unique"}; alias \code{"non-empty"}).
-For certain uses it may be useful
-to have also "empty" levels represented (resulting in some rows in output
-with zero person-years and events); in these cases supplying
-\code{aggre = "full"} (alias \code{"cartesian"}) causes \code{aggre}
-to determine the Cartesian product of all the levels of the supplied
-\code{by} variables or expressions and aggregate to them. As an example
-of a Cartesian product, try
-
-\code{merge(1:2, 1:5)}.
-}
-\examples{
-
-## form a Lexis object
-library(Epi)
-data(sibr)
-x <- sibr[1:10,]
-x[1:5,]$sex <- 0 ## pretend some are male
-x <- Lexis(data = x,
- entry = list(AGE = dg_age, CAL = get.yrs(dg_date)),
- exit = list(CAL = get.yrs(ex_date)),
- entry.status=0, exit.status = status)
-x <- splitMulti(x, breaks = list(CAL = seq(1993, 2013, 5),
- AGE = seq(0, 100, 50)))
-
-## these produce the same results (with differing ways of determining aggre)
-a1 <- aggre(x, by = list(gender = factor(sex, 0:1, c("m", "f")),
- agegroup = AGE, period = CAL))
-
-a2 <- aggre(x, by = c("sex", "AGE", "CAL"))
-
-a3 <- aggre(x, by = list(sex, agegroup = AGE, CAL))
-
-## returning also empty levels
-a4 <- aggre(x, by = c("sex", "AGE", "CAL"), type = "full")
-
-## computing also expected numbers of cases
-x <- lexpand(sibr[1:10,], birth = bi_date, entry = dg_date,
- exit = ex_date, status = status \%in\% 1:2,
- pophaz = popmort, fot = 0:5, age = c(0, 50, 100))
-x$d.exp <- with(x, lex.dur*pop.haz)
-## these produce the same result
-a5 <- aggre(x, by = c("sex", "age", "fot"), sum.values = list(d.exp))
-a5 <- aggre(x, by = c("sex", "age", "fot"), sum.values = "d.exp")
-a5 <- aggre(x, by = c("sex", "age", "fot"), sum.values = d.exp)
-## same result here with custom name
-a5 <- aggre(x, by = c("sex", "age", "fot"),
- sum.values = list(expCases = d.exp))
-
-## computing pohar-perme weighted figures
-x$d.exp.pp <- with(x, lex.dur*pop.haz*pp)
-a6 <- aggre(x, by = c("sex", "age", "fot"),
- sum.values = c("d.exp", "d.exp.pp"))
-## or equivalently e.g. sum.values = list(expCases = d.exp, expCases.p = d.exp.pp).
-}
-\seealso{
-\code{\link{aggregate}} for a similar base R solution,
-and \code{\link{ltable}} for a \code{data.table} based aggregator. Neither
-are directly applicable to split \code{Lexis} data.
-
-Other aggregation functions:
-\code{\link{as.aggre}()},
-\code{\link{lexpand}()},
-\code{\link{setaggre}()},
-\code{\link{summary.aggre}()}
-}
-\author{
-Joonas Miettinen
-}
-\concept{aggregation functions}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/aggregating.R
+\name{aggre}
+\alias{aggre}
+\title{Aggregation of split \code{Lexis} data}
+\usage{
+aggre(
+ lex,
+ by = NULL,
+ type = c("unique", "full"),
+ sum.values = NULL,
+ subset = NULL,
+ verbose = FALSE
+)
+}
+\arguments{
+\item{lex}{a \code{Lexis} object split with e.g.
+\code{\link[Epi]{splitLexis}} or \code{\link{splitMulti}}}
+
+\item{by}{variables to tabulate (aggregate) by.
+\link[=flexible_argument]{Flexible input}, typically e.g.
+\code{by = c("V1", "V2")}. See Details and Examples.}
+
+\item{type}{determines output levels to which data is aggregated varying
+from returning only rows with \code{pyrs > 0} (\code{"unique"}) to
+returning all possible combinations of variables given in \code{aggre} even
+if those combinations are not represented in data (\code{"full"});
+see Details}
+
+\item{sum.values}{optional: additional variables to sum by argument
+ \code{by}. \link[=flexible_argument]{Flexible input}, typically e.g.
+\code{sum.values = c("V1", "V2")}}
+
+\item{subset}{a logical condition to subset by before computations;
+e.g. \code{subset = area \%in\% c("A", "B")}}
+
+\item{verbose}{\code{logical}; if \code{TRUE}, the function returns timings
+and some information useful for debugging along the aggregation process}
+}
+\value{
+A long \code{data.frame} or \code{data.table} of aggregated person-years
+(\code{pyrs}), numbers of subjects at risk (\code{at.risk}), and events
+formatted \code{fromXtoY}, where \code{X} and \code{X} are states
+transitioning from and to or states at the end of each \code{lex.id}'s
+follow-up (implying \code{X} = \code{Y}). Subjects at risk are computed
+in the beginning of an interval defined by any Lexis time scales and
+mentioned in \code{by}, but events occur at any point within an interval.
+
+When the data has been split along multiple time scales, the last
+time scale mentioned in \code{by} is considered to be the survival time
+scale with regard to computing events. Time lines cut short by the
+extrema of non-survival-time-scales are considered to be censored
+("transitions" from the current state to the current state).
+}
+\description{
+Aggregates a split \code{Lexis} object by given variables
+and / or expressions into a long-format table of person-years and
+transitions / end-points. Automatic aggregation over time scales
+by which data has been split if the respective time scales are mentioned
+in the aggregation argument to e.g. intervals of calendar time, follow-up time
+and/or age.
+}
+\details{
+\strong{Basics}
+
+\code{aggre} is intended for aggregation of split \code{Lexis} data only.
+See \code{\link[Epi]{Lexis}} for forming \code{Lexis} objects by hand
+and e.g. \code{\link[Epi]{splitLexis}}, \code{\link{splitLexisDT}}, and
+\code{\link{splitMulti}} for splitting the data. \code{\link{lexpand}}
+may be used for simple data sets to do both steps as well as aggregation
+in the same function call.
+
+Here aggregation refers to computing person-years and the appropriate events
+(state transitions and end points in status) for the subjects in the data.
+Hence, it computes e.g. deaths (end-point and state transition) and
+censorings (end-point) as well as events in a multi-state setting
+(state transitions).
+
+The result is a long-format \code{data.frame} or \code{data.table}
+(depending on \code{options("popEpi.datatable")}; see \code{?popEpi})
+with the columns \code{pyrs} and the appropriate transitions named as
+\code{fromXtoY}, e.g. \code{from0to0} and \code{from0to1} depending
+on the values of \code{lex.Cst} and \code{lex.Xst}.
+
+
+\strong{The by argument}
+
+The \code{by} argument determines the length of the table, i.e.
+the combinations of variables to which data is aggregated.
+\code{by} is relatively flexible, as it can be supplied as
+
+\itemize{
+ \item{a character string vector, e.g. \code{c("sex", "area")},
+ naming variables existing in \code{lex}}
+ \item{an expression, e.g. \code{factor(sex, 0:1, c("m", "f"))}
+ using any variable found in \code{lex}}
+ \item{a list (fully or partially named) of expressions, e.g.
+ \code{list(gender = factor(sex, 0:1, c("m", "f"), area)}}
+}
+
+Note that expressions effectively allow a variable to be supplied simply as
+e.g. \code{by = sex} (as a symbol/name in R lingo).
+
+The data is then aggregated to the levels of the given variables
+or expression(s). Variables defined to be time scales in the supplied
+\code{Lexis} are processed in a special way: If any are mentioned in the
+\code{by} argument, intervals of them are formed based on the breaks
+used to split the data: e.g. if \code{age} was split using the breaks
+\code{c(0, 50, Inf)}, mentioning \code{age} in \code{by} leads to
+creating the \code{age} intervals \code{[0, 50)} and \code{[50, Inf)}
+and aggregating to them. The intervals are identified in the output
+as the lower bounds of the appropriate intervals.
+
+The order of multiple time scales mentioned in \code{by} matters,
+as the last mentioned time scale is assumed to be a survival time scale
+for when computing event counts. E.g. when the data is split by the breaks
+\code{list(FUT = 0:5, CAL = c(2008,2010))}, time lines cut short at
+\code{CAL = 2010} are considered to be censored, but time lines cut short at
+\code{FUT = 5} are not. See Return.
+
+\strong{Aggregation types (styles)}
+
+It is almost always enough to aggregate the data to variable levels
+that are actually represented in the data
+(default \code{aggre = "unique"}; alias \code{"non-empty"}).
+For certain uses it may be useful
+to have also "empty" levels represented (resulting in some rows in output
+with zero person-years and events); in these cases supplying
+\code{aggre = "full"} (alias \code{"cartesian"}) causes \code{aggre}
+to determine the Cartesian product of all the levels of the supplied
+\code{by} variables or expressions and aggregate to them. As an example
+of a Cartesian product, try
+
+\code{merge(1:2, 1:5)}.
+}
+\examples{
+
+## form a Lexis object
+library(Epi)
+data(sibr)
+x <- sibr[1:10,]
+x[1:5,]$sex <- 0 ## pretend some are male
+x <- Lexis(data = x,
+ entry = list(AGE = dg_age, CAL = get.yrs(dg_date)),
+ exit = list(CAL = get.yrs(ex_date)),
+ entry.status=0, exit.status = status)
+x <- splitMulti(x, breaks = list(CAL = seq(1993, 2013, 5),
+ AGE = seq(0, 100, 50)))
+
+## these produce the same results (with differing ways of determining aggre)
+a1 <- aggre(x, by = list(gender = factor(sex, 0:1, c("m", "f")),
+ agegroup = AGE, period = CAL))
+
+a2 <- aggre(x, by = c("sex", "AGE", "CAL"))
+
+a3 <- aggre(x, by = list(sex, agegroup = AGE, CAL))
+
+## returning also empty levels
+a4 <- aggre(x, by = c("sex", "AGE", "CAL"), type = "full")
+
+## computing also expected numbers of cases
+x <- lexpand(sibr[1:10,], birth = bi_date, entry = dg_date,
+ exit = ex_date, status = status \%in\% 1:2,
+ pophaz = popmort, fot = 0:5, age = c(0, 50, 100))
+x$d.exp <- with(x, lex.dur*pop.haz)
+## these produce the same result
+a5 <- aggre(x, by = c("sex", "age", "fot"), sum.values = list(d.exp))
+a5 <- aggre(x, by = c("sex", "age", "fot"), sum.values = "d.exp")
+a5 <- aggre(x, by = c("sex", "age", "fot"), sum.values = d.exp)
+## same result here with custom name
+a5 <- aggre(x, by = c("sex", "age", "fot"),
+ sum.values = list(expCases = d.exp))
+
+## computing pohar-perme weighted figures
+x$d.exp.pp <- with(x, lex.dur*pop.haz*pp)
+a6 <- aggre(x, by = c("sex", "age", "fot"),
+ sum.values = c("d.exp", "d.exp.pp"))
+## or equivalently e.g. sum.values = list(expCases = d.exp, expCases.p = d.exp.pp).
+}
+\seealso{
+\code{\link{aggregate}} for a similar base R solution,
+and \code{\link{ltable}} for a \code{data.table} based aggregator. Neither
+are directly applicable to split \code{Lexis} data.
+
+Other aggregation functions:
+\code{\link{as.aggre}()},
+\code{\link{lexpand}()},
+\code{\link{setaggre}()},
+\code{\link{summary.aggre}()}
+}
+\author{
+Joonas Miettinen
+}
+\concept{aggregation functions}
diff --git a/man/all_names_present.Rd b/man/all_names_present.Rd
index 287ab1f..93ffc80 100644
--- a/man/all_names_present.Rd
+++ b/man/all_names_present.Rd
@@ -1,34 +1,34 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/utility_functions.R
-\name{all_names_present}
-\alias{all_names_present}
-\title{Check if all names are present in given data}
-\usage{
-all_names_present(data, var.names, stops = TRUE, msg = NULL)
-}
-\arguments{
-\item{data}{dataset where the variable names should be found}
-
-\item{var.names}{a character vector of variable names, e.g.
-\code{c("var1", "var2")}}
-
-\item{stops}{logical, stop returns exception}
-
-\item{msg}{Custom message to return instead of default message.
-Special: include \code{\%\%VARS\%\%} in message string and the missing
-variable names will be inserted there (quoted, separated by comma, e.g.
-\code{'var1'}, \code{'var2'} --- no leading or tracing white space).}
-}
-\value{
-`TRUE` if all `var.names` are in `data`, else `FALSE`,
-}
-\description{
-Given a character vector, checks if all names are present in \code{names(data)}.
-Throws error if \code{stops=TRUE}, else returns \code{FALSE} if some variable name is not present.
-}
-\seealso{
-\code{\link{robust_values}}
-}
-\author{
-Joonas Miettinen
-}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/utility_functions.R
+\name{all_names_present}
+\alias{all_names_present}
+\title{Check if all names are present in given data}
+\usage{
+all_names_present(data, var.names, stops = TRUE, msg = NULL)
+}
+\arguments{
+\item{data}{dataset where the variable names should be found}
+
+\item{var.names}{a character vector of variable names, e.g.
+\code{c("var1", "var2")}}
+
+\item{stops}{logical, stop returns exception}
+
+\item{msg}{Custom message to return instead of default message.
+Special: include \code{\%\%VARS\%\%} in message string and the missing
+variable names will be inserted there (quoted, separated by comma, e.g.
+\code{'var1'}, \code{'var2'} --- no leading or tracing white space).}
+}
+\value{
+`TRUE` if all `var.names` are in `data`, else `FALSE`,
+}
+\description{
+Given a character vector, checks if all names are present in \code{names(data)}.
+Throws error if \code{stops=TRUE}, else returns \code{FALSE} if some variable name is not present.
+}
+\seealso{
+\code{\link{robust_values}}
+}
+\author{
+Joonas Miettinen
+}
diff --git a/man/array_df_ratetable_utils.Rd b/man/array_df_ratetable_utils.Rd
index 0bff50e..84d1e55 100644
--- a/man/array_df_ratetable_utils.Rd
+++ b/man/array_df_ratetable_utils.Rd
@@ -1,143 +1,143 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/long_df_and_array.R
-\name{array_df_ratetable_utils}
-\alias{array_df_ratetable_utils}
-\alias{long_df_to_array}
-\alias{long_df_to_ratetable}
-\alias{long_dt_to_array}
-\alias{long_dt_to_ratetable}
-\alias{array_to_long_df}
-\alias{array_to_long_dt}
-\alias{array_to_ratetable}
-\alias{ratetable_to_array}
-\alias{ratetable_to_long_df}
-\alias{ratetable_to_long_dt}
-\title{`array`s, `data.frame`s and `ratetable`s}
-\usage{
-long_df_to_array(x, stratum.col.nms, value.col.nm)
-
-long_df_to_ratetable(
- x,
- stratum.col.nms,
- value.col.nm,
- dim.types,
- cut.points = NULL
-)
-
-long_dt_to_array(x, stratum.col.nms, value.col.nm)
-
-long_dt_to_ratetable(
- x,
- stratum.col.nms,
- value.col.nm,
- dim.types,
- cut.points = NULL
-)
-
-array_to_long_df(x)
-
-array_to_long_dt(x)
-
-array_to_ratetable(x, dim.types, cut.points = NULL)
-
-ratetable_to_array(x)
-
-ratetable_to_long_df(x)
-
-ratetable_to_long_dt(x)
-}
-\arguments{
-\item{x}{`[data.frame, data.table, array, ratetable]` (mandatory, no default)
-
-- `long_df_to_array`: a `data.frame`
-- `long_df_to_ratetable`: a `data.frame`
-- `long_dt_to_array`: a `data.table`
-- `long_dt_to_ratetable`: a `data.table`
-- `array_to_long_df`: an `array`
-- `array_to_long_dt`: an `array`
-- `array_to_ratetable`: an `array`
-- `ratetable_to_array`: a [survival::ratetable]
-- `ratetable_to_long_df`: a [survival::ratetable]
-- `ratetable_to_long_dt`: a [survival::ratetable]}
-
-\item{stratum.col.nms}{`[character]` (mandatory, no default)
-
-a vector of column names in `x` by which values are stratified}
-
-\item{value.col.nm}{`[character]` (mandatory, no default)
-
-name of column in `x` containing values (these will be contents of the
-array)}
-
-\item{dim.types}{`[integer]` (mandatory, no default)
-
-see `type` under **Details** in [survival::ratetable]}
-
-\item{cut.points}{`[NULL, list]` (optional, default `NULL`)
-
-see `cutpoints` under **Details** in [survival::ratetable]
-
-- `NULL`: automatically set using `dimnames(x)` and `dim.types`
-- `list`: one element for each dimensions of `x`}
-}
-\value{
-- `long_df_to_array`: an `array`
-- `long_df_to_ratetable`: a [survival::ratetable]
-- `long_dt_to_array`: an `array`
-- `long_dt_to_ratetable`: a [survival::ratetable]
-- `array_to_long_df`: an `data.frame`
-- `array_to_long_dt`: an `data.table`
-- `array_to_ratetable`: a [survival::ratetable]
-- `ratetable_to_array`: an `array`
-- `ratetable_to_long_df`: a `data.frame`
-- `ratetable_to_long_dt`: a `data.table`
-}
-\description{
-Utilities to transform objects between `array`, `data.frame`, and
-[survival::ratetable].
-}
-\details{
-- `long_df_to_array`: converts a long-format `data.frame` to an `array`
- with one or more dimensions
-
-- `long_df_to_ratetable`: calls `long_df_to_array` and then
- `array_to_ratetable`
-
-- `long_dt_to_array`: simply asserts that `x` is a `data.table` and
-calls `long_df_to_array`
-
-- `long_dt_to_ratetable`: calls `long_dt_to_array` and then
- `array_to_ratetable`
-
-- `array_to_long_df`: converts an array with one or more dimensions into
- a long-format `data.frame`; any [dimnames] are used to name and fill the
- stratifying columns; for dimensions without a name, `".dX"` is used
- for stratifying column number `X`; for each `k`, if there are no contents
- in `dimnames(x)[[k]]`, the elements of `seq(dim(x)[k])` are used to fill
- the corresponding stratifying column; the value column always has the name
- `"value"`
-
-- `array_to_long_dt`: calls `array_to_long_df` and converts result to a
- `data.table` for convenience
-
-- `array_to_ratetable`: converts an array to a [survival::ratetable]
-
-- `ratetable_to_array`: converts a [survival::ratetable] to an array
-
-- `ratetable_to_long_df`: calls `ratetable_to_array` and then
- `array_to_long_df`
-
-- `ratetable_to_long_dt`: calls `ratetable_to_array` and then
- `array_to_long_dt`
-}
-\examples{
-
-long_dt <- popEpi::popmort
-arr <- long_df_to_array(long_dt, c("agegroup", "year", "sex"), "haz")
-rt <- array_to_ratetable(arr, dim.types = c(2L, 4L, 1L))
-
-arr2 <- ratetable_to_array(rt)
-long_df2 <- array_to_long_df(arr2)
-
-identical(sort(long_dt[["haz"]]), sort(long_df2[["value"]]))
-}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/long_df_and_array.R
+\name{array_df_ratetable_utils}
+\alias{array_df_ratetable_utils}
+\alias{long_df_to_array}
+\alias{long_df_to_ratetable}
+\alias{long_dt_to_array}
+\alias{long_dt_to_ratetable}
+\alias{array_to_long_df}
+\alias{array_to_long_dt}
+\alias{array_to_ratetable}
+\alias{ratetable_to_array}
+\alias{ratetable_to_long_df}
+\alias{ratetable_to_long_dt}
+\title{`array`s, `data.frame`s and `ratetable`s}
+\usage{
+long_df_to_array(x, stratum.col.nms, value.col.nm)
+
+long_df_to_ratetable(
+ x,
+ stratum.col.nms,
+ value.col.nm,
+ dim.types,
+ cut.points = NULL
+)
+
+long_dt_to_array(x, stratum.col.nms, value.col.nm)
+
+long_dt_to_ratetable(
+ x,
+ stratum.col.nms,
+ value.col.nm,
+ dim.types,
+ cut.points = NULL
+)
+
+array_to_long_df(x)
+
+array_to_long_dt(x)
+
+array_to_ratetable(x, dim.types, cut.points = NULL)
+
+ratetable_to_array(x)
+
+ratetable_to_long_df(x)
+
+ratetable_to_long_dt(x)
+}
+\arguments{
+\item{x}{`[data.frame, data.table, array, ratetable]` (mandatory, no default)
+
+- `long_df_to_array`: a `data.frame`
+- `long_df_to_ratetable`: a `data.frame`
+- `long_dt_to_array`: a `data.table`
+- `long_dt_to_ratetable`: a `data.table`
+- `array_to_long_df`: an `array`
+- `array_to_long_dt`: an `array`
+- `array_to_ratetable`: an `array`
+- `ratetable_to_array`: a [survival::ratetable]
+- `ratetable_to_long_df`: a [survival::ratetable]
+- `ratetable_to_long_dt`: a [survival::ratetable]}
+
+\item{stratum.col.nms}{`[character]` (mandatory, no default)
+
+a vector of column names in `x` by which values are stratified}
+
+\item{value.col.nm}{`[character]` (mandatory, no default)
+
+name of column in `x` containing values (these will be contents of the
+array)}
+
+\item{dim.types}{`[integer]` (mandatory, no default)
+
+see `type` under **Details** in [survival::ratetable]}
+
+\item{cut.points}{`[NULL, list]` (optional, default `NULL`)
+
+see `cutpoints` under **Details** in [survival::ratetable]
+
+- `NULL`: automatically set using `dimnames(x)` and `dim.types`
+- `list`: one element for each dimensions of `x`}
+}
+\value{
+- `long_df_to_array`: an `array`
+- `long_df_to_ratetable`: a [survival::ratetable]
+- `long_dt_to_array`: an `array`
+- `long_dt_to_ratetable`: a [survival::ratetable]
+- `array_to_long_df`: an `data.frame`
+- `array_to_long_dt`: an `data.table`
+- `array_to_ratetable`: a [survival::ratetable]
+- `ratetable_to_array`: an `array`
+- `ratetable_to_long_df`: a `data.frame`
+- `ratetable_to_long_dt`: a `data.table`
+}
+\description{
+Utilities to transform objects between `array`, `data.frame`, and
+[survival::ratetable].
+}
+\details{
+- `long_df_to_array`: converts a long-format `data.frame` to an `array`
+ with one or more dimensions
+
+- `long_df_to_ratetable`: calls `long_df_to_array` and then
+ `array_to_ratetable`
+
+- `long_dt_to_array`: simply asserts that `x` is a `data.table` and
+calls `long_df_to_array`
+
+- `long_dt_to_ratetable`: calls `long_dt_to_array` and then
+ `array_to_ratetable`
+
+- `array_to_long_df`: converts an array with one or more dimensions into
+ a long-format `data.frame`; any [dimnames] are used to name and fill the
+ stratifying columns; for dimensions without a name, `".dX"` is used
+ for stratifying column number `X`; for each `k`, if there are no contents
+ in `dimnames(x)[[k]]`, the elements of `seq(dim(x)[k])` are used to fill
+ the corresponding stratifying column; the value column always has the name
+ `"value"`
+
+- `array_to_long_dt`: calls `array_to_long_df` and converts result to a
+ `data.table` for convenience
+
+- `array_to_ratetable`: converts an array to a [survival::ratetable]
+
+- `ratetable_to_array`: converts a [survival::ratetable] to an array
+
+- `ratetable_to_long_df`: calls `ratetable_to_array` and then
+ `array_to_long_df`
+
+- `ratetable_to_long_dt`: calls `ratetable_to_array` and then
+ `array_to_long_dt`
+}
+\examples{
+
+long_dt <- popEpi::popmort
+arr <- long_df_to_array(long_dt, c("agegroup", "year", "sex"), "haz")
+rt <- array_to_ratetable(arr, dim.types = c(2L, 4L, 1L))
+
+arr2 <- ratetable_to_array(rt)
+long_df2 <- array_to_long_df(arr2)
+
+identical(sort(long_dt[["haz"]]), sort(long_df2[["value"]]))
+}
diff --git a/man/as.Date.yrs.Rd b/man/as.Date.yrs.Rd
index b39c48a..cff6b98 100644
--- a/man/as.Date.yrs.Rd
+++ b/man/as.Date.yrs.Rd
@@ -1,45 +1,45 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/fractional_years.R
-\name{as.Date.yrs}
-\alias{as.Date.yrs}
-\title{Coerce Fractional Year Values to Date Values}
-\usage{
-\method{as.Date}{yrs}(x, ...)
-}
-\arguments{
-\item{x}{an \code{yrs} object created by \code{get.yrs}}
-
-\item{...}{unused, included for compatibility with other \code{as.Date}
-methods}
-}
-\value{
-A vector of `Date` values based on the input fractional years.
-}
-\description{
-Coerces an \code{yrs} object to a \code{Date} object.
-Some loss of information comes if \code{year.length = "approx"}
-was set when using \code{\link{get.yrs}}, so the transformation back
-to \code{Date} will not be perfect there. With \code{year.length = "actual"}
-the original values are perfectly retrieved.
-}
-\examples{
-data("sire", package = "popEpi")
-
-## approximate year lengths: here 20 \% have an extra day added
-sire$dg_yrs <- get.yrs(sire$dg_date)
-summary(sire$dg_yrs)
-dg_date2 <- as.Date(sire$dg_yrs)
-summary(as.numeric(dg_date2 - as.Date(sire$dg_date)))
-
-## using actual year lengths
-sire$dg_yrs <- get.yrs(sire$dg_date, year.length = "actual")
-summary(sire$dg_yrs)
-dg_date2 <- as.Date(sire$dg_yrs)
-summary(as.numeric(dg_date2 - as.Date(sire$dg_date)))
-}
-\seealso{
-\code{\link{get.yrs}}
-}
-\author{
-Joonas Miettinen
-}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/fractional_years.R
+\name{as.Date.yrs}
+\alias{as.Date.yrs}
+\title{Coerce Fractional Year Values to Date Values}
+\usage{
+\method{as.Date}{yrs}(x, ...)
+}
+\arguments{
+\item{x}{an \code{yrs} object created by \code{get.yrs}}
+
+\item{...}{unused, included for compatibility with other \code{as.Date}
+methods}
+}
+\value{
+A vector of `Date` values based on the input fractional years.
+}
+\description{
+Coerces an \code{yrs} object to a \code{Date} object.
+Some loss of information comes if \code{year.length = "approx"}
+was set when using \code{\link{get.yrs}}, so the transformation back
+to \code{Date} will not be perfect there. With \code{year.length = "actual"}
+the original values are perfectly retrieved.
+}
+\examples{
+data("sire", package = "popEpi")
+
+## approximate year lengths: here 20 \% have an extra day added
+sire$dg_yrs <- get.yrs(sire$dg_date)
+summary(sire$dg_yrs)
+dg_date2 <- as.Date(sire$dg_yrs)
+summary(as.numeric(dg_date2 - as.Date(sire$dg_date)))
+
+## using actual year lengths
+sire$dg_yrs <- get.yrs(sire$dg_date, year.length = "actual")
+summary(sire$dg_yrs)
+dg_date2 <- as.Date(sire$dg_yrs)
+summary(as.numeric(dg_date2 - as.Date(sire$dg_date)))
+}
+\seealso{
+\code{\link{get.yrs}}
+}
+\author{
+Joonas Miettinen
+}
diff --git a/man/as.aggre.Rd b/man/as.aggre.Rd
index 2e44e6f..dca0930 100644
--- a/man/as.aggre.Rd
+++ b/man/as.aggre.Rd
@@ -1,81 +1,81 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/aggregating.R
-\name{as.aggre}
-\alias{as.aggre}
-\alias{as.aggre.data.frame}
-\alias{as.aggre.data.table}
-\alias{as.aggre.default}
-\title{Coercion to Class \code{aggre}}
-\usage{
-as.aggre(x, values = NULL, by = NULL, breaks = NULL, ...)
-
-\method{as.aggre}{data.frame}(x, values = NULL, by = NULL, breaks = NULL, ...)
-
-\method{as.aggre}{data.table}(x, values = NULL, by = NULL, breaks = NULL, ...)
-
-\method{as.aggre}{default}(x, ...)
-}
-\arguments{
-\item{x}{a \code{data.frame} or \code{data.table}}
-
-\item{values}{a character string vector; the names of value variables}
-
-\item{by}{a character string vector; the names of variables by which
-\code{values} have been tabulated}
-
-\item{breaks}{a list of breaks, where each element is a breaks vector
-as usually passed to e.g. \code{\link{splitLexisDT}}. The list must be
-fully named, with the names corresponding to time scales at the aggregate
-level in your data. Every unique value in a time scale variable in data must
-also exist in the corresponding vector in the breaks list.}
-
-\item{...}{arguments passed to or from methods}
-}
-\value{
-Returns a copy of `x` with attributes set to those of an object of class
-`"aggre"`.
-}
-\description{
-Coerces an R object to an \code{aggre} object, identifying
-the object as one containing aggregated counts, person-years and other
-information.
-}
-\section{Methods (by class)}{
-\itemize{
-\item \code{as.aggre(data.frame)}: Coerces a \code{data.frame} to an \code{aggre} object
-
-\item \code{as.aggre(data.table)}: Coerces a \code{data.table} to an \code{aggre} object
-
-\item \code{as.aggre(default)}: Default method for \code{as.aggre} (stops computations
-if no class-specific method found)
-
-}}
-\examples{
-library("data.table")
-df <- data.frame(sex = rep(c("male", "female"), each = 5),
- obs = rpois(10, rep(7,5, each=5)),
- pyrs = rpois(10, lambda = 10000))
-dt <- as.data.table(df)
-
-df <- as.aggre(df, values = c("pyrs", "obs"), by = "sex")
-dt <- as.aggre(dt, values = c("pyrs", "obs"), by = "sex")
-
-class(df)
-class(dt)
-
-BL <- list(fot = 0:5)
-df <- data.frame(df)
-df <- as.aggre(df, values = c("pyrs", "obs"), by = "sex", breaks = BL)
-
-}
-\seealso{
-Other aggregation functions:
-\code{\link{aggre}()},
-\code{\link{lexpand}()},
-\code{\link{setaggre}()},
-\code{\link{summary.aggre}()}
-}
-\author{
-Joonas Miettinen
-}
-\concept{aggregation functions}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/aggregating.R
+\name{as.aggre}
+\alias{as.aggre}
+\alias{as.aggre.data.frame}
+\alias{as.aggre.data.table}
+\alias{as.aggre.default}
+\title{Coercion to Class \code{aggre}}
+\usage{
+as.aggre(x, values = NULL, by = NULL, breaks = NULL, ...)
+
+\method{as.aggre}{data.frame}(x, values = NULL, by = NULL, breaks = NULL, ...)
+
+\method{as.aggre}{data.table}(x, values = NULL, by = NULL, breaks = NULL, ...)
+
+\method{as.aggre}{default}(x, ...)
+}
+\arguments{
+\item{x}{a \code{data.frame} or \code{data.table}}
+
+\item{values}{a character string vector; the names of value variables}
+
+\item{by}{a character string vector; the names of variables by which
+\code{values} have been tabulated}
+
+\item{breaks}{a list of breaks, where each element is a breaks vector
+as usually passed to e.g. \code{\link{splitLexisDT}}. The list must be
+fully named, with the names corresponding to time scales at the aggregate
+level in your data. Every unique value in a time scale variable in data must
+also exist in the corresponding vector in the breaks list.}
+
+\item{...}{arguments passed to or from methods}
+}
+\value{
+Returns a copy of `x` with attributes set to those of an object of class
+`"aggre"`.
+}
+\description{
+Coerces an R object to an \code{aggre} object, identifying
+the object as one containing aggregated counts, person-years and other
+information.
+}
+\section{Methods (by class)}{
+\itemize{
+\item \code{as.aggre(data.frame)}: Coerces a \code{data.frame} to an \code{aggre} object
+
+\item \code{as.aggre(data.table)}: Coerces a \code{data.table} to an \code{aggre} object
+
+\item \code{as.aggre(default)}: Default method for \code{as.aggre} (stops computations
+if no class-specific method found)
+
+}}
+\examples{
+library("data.table")
+df <- data.frame(sex = rep(c("male", "female"), each = 5),
+ obs = rpois(10, rep(7,5, each=5)),
+ pyrs = rpois(10, lambda = 10000))
+dt <- as.data.table(df)
+
+df <- as.aggre(df, values = c("pyrs", "obs"), by = "sex")
+dt <- as.aggre(dt, values = c("pyrs", "obs"), by = "sex")
+
+class(df)
+class(dt)
+
+BL <- list(fot = 0:5)
+df <- data.frame(df)
+df <- as.aggre(df, values = c("pyrs", "obs"), by = "sex", breaks = BL)
+
+}
+\seealso{
+Other aggregation functions:
+\code{\link{aggre}()},
+\code{\link{lexpand}()},
+\code{\link{setaggre}()},
+\code{\link{summary.aggre}()}
+}
+\author{
+Joonas Miettinen
+}
+\concept{aggregation functions}
diff --git a/man/cast_simple.Rd b/man/cast_simple.Rd
index 59bca33..d72d2f3 100644
--- a/man/cast_simple.Rd
+++ b/man/cast_simple.Rd
@@ -1,52 +1,52 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/utility_functions.R
-\name{cast_simple}
-\alias{cast_simple}
-\title{Cast \code{data.table}/\code{data.frame} from long format to wide format}
-\usage{
-cast_simple(data = NULL, columns = NULL, rows = NULL, values = NULL)
-}
-\arguments{
-\item{data}{a \code{data.table} or \code{data.frame}}
-
-\item{columns}{a character string vector; the (unique combinations of the)
-levels of these variable will be different rows}
-
-\item{rows}{a character string vector; the (unique combinations of the)
-levels of these variable will be different columns}
-
-\item{values}{a character string; the variable which will be represented
-on rows and columns as specified by \code{columns} and \code{rows}}
-}
-\value{
-A `data.table` just like `[data.table::dcast]`.
-}
-\description{
-Convenience function for using \code{\link[data.table]{dcast.data.table}};
-inputs are character strings (names of variables) instead of a formula.
-}
-\details{
-This function is just a small interface for \code{dcast} /
-\code{dcast.data.table} and less flexible than the originals.
-
-Note that all \code{data.table} objects are also \code{data.frame}
-objects, but that each have their own \code{dcast} method.
-\code{\link[data.table]{dcast.data.table}} is faster.
-
-If any values in \code{value.vars} need to be
-aggregated, they are aggregated using \code{sum}.
-See \code{?dcast}.
-}
-\examples{
-library("data.table")
-## e.g. silly counts from a long-format table to a wide format
-test <- data.table::copy(popEpi::sire)
-test$dg_y <- year(test$dg_date)
-test$ex_y <- year(test$ex_date)
-tab <- ltable(test, c("dg_y","ex_y"))
-cast_simple(tab, columns='dg_y', rows="ex_y", values="obs")
-
-}
-\author{
-Matti Rantanen, Joonas Miettinen
-}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/utility_functions.R
+\name{cast_simple}
+\alias{cast_simple}
+\title{Cast \code{data.table}/\code{data.frame} from long format to wide format}
+\usage{
+cast_simple(data = NULL, columns = NULL, rows = NULL, values = NULL)
+}
+\arguments{
+\item{data}{a \code{data.table} or \code{data.frame}}
+
+\item{columns}{a character string vector; the (unique combinations of the)
+levels of these variable will be different rows}
+
+\item{rows}{a character string vector; the (unique combinations of the)
+levels of these variable will be different columns}
+
+\item{values}{a character string; the variable which will be represented
+on rows and columns as specified by \code{columns} and \code{rows}}
+}
+\value{
+A `data.table` just like `[data.table::dcast]`.
+}
+\description{
+Convenience function for using \code{\link[data.table]{dcast.data.table}};
+inputs are character strings (names of variables) instead of a formula.
+}
+\details{
+This function is just a small interface for \code{dcast} /
+\code{dcast.data.table} and less flexible than the originals.
+
+Note that all \code{data.table} objects are also \code{data.frame}
+objects, but that each have their own \code{dcast} method.
+\code{\link[data.table]{dcast.data.table}} is faster.
+
+If any values in \code{value.vars} need to be
+aggregated, they are aggregated using \code{sum}.
+See \code{?dcast}.
+}
+\examples{
+library("data.table")
+## e.g. silly counts from a long-format table to a wide format
+test <- data.table::copy(popEpi::sire)
+test$dg_y <- year(test$dg_date)
+test$ex_y <- year(test$ex_date)
+tab <- ltable(test, c("dg_y","ex_y"))
+cast_simple(tab, columns='dg_y', rows="ex_y", values="obs")
+
+}
+\author{
+Matti Rantanen, Joonas Miettinen
+}
diff --git a/man/cut_bound.Rd b/man/cut_bound.Rd
index 5c0ae65..762cbd7 100644
--- a/man/cut_bound.Rd
+++ b/man/cut_bound.Rd
@@ -1,32 +1,32 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/utility_functions.R
-\name{cut_bound}
-\alias{cut_bound}
-\title{Change output values from cut(..., labels = NULL) output}
-\usage{
-cut_bound(t, factor = TRUE)
-}
-\arguments{
-\item{t}{is a character vector of elements, e.g. "(20,60]"}
-
-\item{factor}{logical; TRUE returns informative character string, FALSE numeric (left value)}
-}
-\value{
-If `factor = TRUE`, returns a character vector; else returns a numeric
-vector.
-}
-\description{
-Selects lowest values of each factor after cut() based
-on the assumption that the value starts from index 2 and end in comma ",".
-}
-\details{
-type = 'factor': "[50,52)" -> "50-51" OR "[50,51)" -> "50"
-
-type = 'numeric': lowest bound in numeric.
-}
-\examples{
-cut_bound("[1900, 1910)") ## "1900-1909"
-}
-\author{
-Matti Rantanen
-}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/utility_functions.R
+\name{cut_bound}
+\alias{cut_bound}
+\title{Change output values from cut(..., labels = NULL) output}
+\usage{
+cut_bound(t, factor = TRUE)
+}
+\arguments{
+\item{t}{is a character vector of elements, e.g. "(20,60]"}
+
+\item{factor}{logical; TRUE returns informative character string, FALSE numeric (left value)}
+}
+\value{
+If `factor = TRUE`, returns a character vector; else returns a numeric
+vector.
+}
+\description{
+Selects lowest values of each factor after cut() based
+on the assumption that the value starts from index 2 and end in comma ",".
+}
+\details{
+type = 'factor': "[50,52)" -> "50-51" OR "[50,51)" -> "50"
+
+type = 'numeric': lowest bound in numeric.
+}
+\examples{
+cut_bound("[1900, 1910)") ## "1900-1909"
+}
+\author{
+Matti Rantanen
+}
diff --git a/man/direct_standardization.Rd b/man/direct_standardization.Rd
index af19c3e..3bb9fd8 100644
--- a/man/direct_standardization.Rd
+++ b/man/direct_standardization.Rd
@@ -1,157 +1,157 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/direct_adjusting.R
-\name{direct_standardization}
-\alias{direct_standardization}
-\alias{direct_adjusting}
-\title{Direct Adjusting in \pkg{popEpi} Using Weights}
-\description{
-Several functions in \pkg{popEpi} have support for direct standardization
-of estimates. This document explains the usage of weighting with those
-functions.
-}
-\details{
-Direct standardization is performed by computing estimates of
-\code{E}
-by the set of adjusting variables \code{A}, to which a set of weights
-\code{W} is applicable. The weighted average over \code{A} is then the
-direct-adjusted estimate of \code{E} (\code{E*}).
-
-To enable both quick and easy as well as more rigorous usage of direct
-standardization with weights, the weights arguments in \pkg{popEpi}
-can be supplied in several ways. Ability to use the different
-ways depends on the number of adjusting variables.
-
-The weights are always handled internally to sum to 1, so they do not
-need to be scaled in this manner when they are supplied. E.g.
-counts of subjects in strata may be passed.
-}
-\section{Basic usage - one adjusting variable}{
-
-
-In the simple case where we are adjusting by only one variable
-(e.g. by age group), one can simply supply a vector of weights:
-
-\code{FUN(weights = c(0.1, 0.25, 0.25, 0.2, 0.2))}
-
-which may be stored in advance:
-
-\code{w <- c(0.1, 0.25, 0.25, 0.2, 0.2)}
-
-\code{FUN(weights = w)}
-
-The order of the weights matters. \pkg{popEpi} functions with direct
-adjusting enabled match the supplied weights to the adjusting variables
-as follows: If the adjusting variable is a \code{factor}, the order
-of the levels is used. Otherwise, the alphabetic order of the unique
-values is used (try \code{sort} to see how it works). For clarity
-and certainty we recommend using \code{factor} or \code{numeric} variables
-when possible. \code{character} variables should be avoided: to see why,
-try \code{sort(15:9)} and \code{sort(as.character(15:9))}.
-
-It is also possible to supply a \code{character} string corresponding
-to one of the age group standardization schemes integrated into \pkg{popEpi}:
-
-\itemize{
-\item \code{'europe_1976_18of5'} - European std. population (1976), 18 age groups
-\item \code{'nordic_2000_18of5'} - Nordic std. population (2000), 18 age groups
-\item \code{'world_1966_18of5'} - world standard (1966), 18 age groups
-\item \code{'world_2000_18of5'} - world standard (2000), 18 age groups
-\item \code{'world_2000_20of5'} - world standard (2000), 20 age groups
-\item \code{'world_2000_101of1'} - world standard (2000), 101 age groups
-}
-
-Additionally, \code{\link{ICSS}} contains international weights used in
-cancer survival analysis, but they are not currently usable by passing
-a string to \code{weights} and must be supplied by hand.
-
-You may also supply \code{weights = "internal"} to use internally
-computed weights, i.e. usually simply the counts of subjects / person-time
-experienced in each stratum. E.g.
-
-\code{FUN(weights = "world_2000_18of5")}
-
-will use the world standard population from 2000 as
-weights for 18 age groups, that your adjusting variable is
-assumed to contain. The adjusting variable must be coded in this case as
-a numeric variable containing \code{1:18} or as a \code{factor} with
-18 levels (coded from the youngest to the oldest age group).
-}
-
-\section{More than one adjusting variable}{
-
-
-In the case that you employ more than one adjusting variable, separate
-weights should be passed to match to the levels of the different adjusting
-variables. When supplied correctly, "grand" weights are formed based on
-the variable-specific weights by multiplying over the variable-specific
-weights (e.g. if men have \code{w = 0.5} and the age group 0-4 has
-\code{w = 0.1}, the "grand" weight for men aged 0-4 is \code{0.5*0.1}).
-The "grand" weights are then used for adjusting after ensuring they
-sum to one.
-
-When using multiple adjusting variables, you
-are allowed to pass either a named \code{list} of
-weights or a \code{data.frame} of weights. E.g.
-
-\code{WL <- list(agegroup = age_w, sex = sex_w)}
-
-\code{FUN(weights = WL)}
-
-where \code{age_w} and \code{sex_w} are numeric vectors. Given the
-conditions explained in the previous section are satisfied, you may also do
-e.g.
-
-\code{WL <- list(agegroup = "world_2000_18of", sex = sex_w)}
-
-\code{FUN(weights = WL)}
-
-and the world standard pop is used as weights for the age groups as outlined
-in the previous section.
-
-Sometimes using a \code{data.frame} can be clearer (and it is fool-proof
-as well). To do this, form a \code{data.frame} that repeats the levels
-of your adjusting variables by each level of every other adjusting variable,
-and assign the weights as a column named \code{"weights"}. E.g.
-
-\code{wdf <- data.frame(sex = rep(0:1, each = 18), agegroup = rep(1:18, 2))}
-
-\code{wdf$weights <- rbinom(36, size = 100, prob = 0.25)}
-
-\code{FUN(weights = wdf)}
-
-If you want to use the counts of subjects in strata as the weights,
-one way to do this is by e.g.
-
-\code{wdf <- as.data.frame(x$V1, x$V2, x$V3)}
-\code{names(wdf) <- c("V1", "V2", "V3", "weights")}
-}
-
-\references{
-Source of the Nordic standard population in 5-year age groups
-(also contains European & 1966 world standards):
-\url{https://www-dep.iarc.fr/NORDCAN/english/glossary.htm}
-
-Source of the 1976 European standard population:
-
-Waterhouse, J.,Muir, C.S.,Correa, P.,Powell, J., eds (1976).
-Cancer Incidence in Five Continents, Vol. III.
-IARC Scientific Publications, No. 15, Lyon, IARC.
-ISBN: 9789283211150
-
-Source of 2000 world standard population in 1-year age groups:
-\url{https://seer.cancer.gov/stdpopulations/stdpop.singleages.html}
-}
-\seealso{
-Other weights:
-\code{\link{ICSS}},
-\code{\link{stdpop101}},
-\code{\link{stdpop18}}
-
-Other popEpi argument evaluation docs:
-\code{\link{flexible_argument}}
-}
-\author{
-Joonas Miettinen
-}
-\concept{popEpi argument evaluation docs}
-\concept{weights}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/direct_adjusting.R
+\name{direct_standardization}
+\alias{direct_standardization}
+\alias{direct_adjusting}
+\title{Direct Adjusting in \pkg{popEpi} Using Weights}
+\description{
+Several functions in \pkg{popEpi} have support for direct standardization
+of estimates. This document explains the usage of weighting with those
+functions.
+}
+\details{
+Direct standardization is performed by computing estimates of
+\code{E}
+by the set of adjusting variables \code{A}, to which a set of weights
+\code{W} is applicable. The weighted average over \code{A} is then the
+direct-adjusted estimate of \code{E} (\code{E*}).
+
+To enable both quick and easy as well as more rigorous usage of direct
+standardization with weights, the weights arguments in \pkg{popEpi}
+can be supplied in several ways. Ability to use the different
+ways depends on the number of adjusting variables.
+
+The weights are always handled internally to sum to 1, so they do not
+need to be scaled in this manner when they are supplied. E.g.
+counts of subjects in strata may be passed.
+}
+\section{Basic usage - one adjusting variable}{
+
+
+In the simple case where we are adjusting by only one variable
+(e.g. by age group), one can simply supply a vector of weights:
+
+\code{FUN(weights = c(0.1, 0.25, 0.25, 0.2, 0.2))}
+
+which may be stored in advance:
+
+\code{w <- c(0.1, 0.25, 0.25, 0.2, 0.2)}
+
+\code{FUN(weights = w)}
+
+The order of the weights matters. \pkg{popEpi} functions with direct
+adjusting enabled match the supplied weights to the adjusting variables
+as follows: If the adjusting variable is a \code{factor}, the order
+of the levels is used. Otherwise, the alphabetic order of the unique
+values is used (try \code{sort} to see how it works). For clarity
+and certainty we recommend using \code{factor} or \code{numeric} variables
+when possible. \code{character} variables should be avoided: to see why,
+try \code{sort(15:9)} and \code{sort(as.character(15:9))}.
+
+It is also possible to supply a \code{character} string corresponding
+to one of the age group standardization schemes integrated into \pkg{popEpi}:
+
+\itemize{
+\item \code{'europe_1976_18of5'} - European std. population (1976), 18 age groups
+\item \code{'nordic_2000_18of5'} - Nordic std. population (2000), 18 age groups
+\item \code{'world_1966_18of5'} - world standard (1966), 18 age groups
+\item \code{'world_2000_18of5'} - world standard (2000), 18 age groups
+\item \code{'world_2000_20of5'} - world standard (2000), 20 age groups
+\item \code{'world_2000_101of1'} - world standard (2000), 101 age groups
+}
+
+Additionally, \code{\link{ICSS}} contains international weights used in
+cancer survival analysis, but they are not currently usable by passing
+a string to \code{weights} and must be supplied by hand.
+
+You may also supply \code{weights = "internal"} to use internally
+computed weights, i.e. usually simply the counts of subjects / person-time
+experienced in each stratum. E.g.
+
+\code{FUN(weights = "world_2000_18of5")}
+
+will use the world standard population from 2000 as
+weights for 18 age groups, that your adjusting variable is
+assumed to contain. The adjusting variable must be coded in this case as
+a numeric variable containing \code{1:18} or as a \code{factor} with
+18 levels (coded from the youngest to the oldest age group).
+}
+
+\section{More than one adjusting variable}{
+
+
+In the case that you employ more than one adjusting variable, separate
+weights should be passed to match to the levels of the different adjusting
+variables. When supplied correctly, "grand" weights are formed based on
+the variable-specific weights by multiplying over the variable-specific
+weights (e.g. if men have \code{w = 0.5} and the age group 0-4 has
+\code{w = 0.1}, the "grand" weight for men aged 0-4 is \code{0.5*0.1}).
+The "grand" weights are then used for adjusting after ensuring they
+sum to one.
+
+When using multiple adjusting variables, you
+are allowed to pass either a named \code{list} of
+weights or a \code{data.frame} of weights. E.g.
+
+\code{WL <- list(agegroup = age_w, sex = sex_w)}
+
+\code{FUN(weights = WL)}
+
+where \code{age_w} and \code{sex_w} are numeric vectors. Given the
+conditions explained in the previous section are satisfied, you may also do
+e.g.
+
+\code{WL <- list(agegroup = "world_2000_18of", sex = sex_w)}
+
+\code{FUN(weights = WL)}
+
+and the world standard pop is used as weights for the age groups as outlined
+in the previous section.
+
+Sometimes using a \code{data.frame} can be clearer (and it is fool-proof
+as well). To do this, form a \code{data.frame} that repeats the levels
+of your adjusting variables by each level of every other adjusting variable,
+and assign the weights as a column named \code{"weights"}. E.g.
+
+\code{wdf <- data.frame(sex = rep(0:1, each = 18), agegroup = rep(1:18, 2))}
+
+\code{wdf$weights <- rbinom(36, size = 100, prob = 0.25)}
+
+\code{FUN(weights = wdf)}
+
+If you want to use the counts of subjects in strata as the weights,
+one way to do this is by e.g.
+
+\code{wdf <- as.data.frame(x$V1, x$V2, x$V3)}
+\code{names(wdf) <- c("V1", "V2", "V3", "weights")}
+}
+
+\references{
+Source of the Nordic standard population in 5-year age groups
+(also contains European & 1966 world standards):
+\url{https://www-dep.iarc.fr/NORDCAN/english/glossary.htm}
+
+Source of the 1976 European standard population:
+
+Waterhouse, J.,Muir, C.S.,Correa, P.,Powell, J., eds (1976).
+Cancer Incidence in Five Continents, Vol. III.
+IARC Scientific Publications, No. 15, Lyon, IARC.
+ISBN: 9789283211150
+
+Source of 2000 world standard population in 1-year age groups:
+\url{https://seer.cancer.gov/stdpopulations/stdpop.singleages.html}
+}
+\seealso{
+Other weights:
+\code{\link{ICSS}},
+\code{\link{stdpop101}},
+\code{\link{stdpop18}}
+
+Other popEpi argument evaluation docs:
+\code{\link{flexible_argument}}
+}
+\author{
+Joonas Miettinen
+}
+\concept{popEpi argument evaluation docs}
+\concept{weights}
diff --git a/man/fac2num.Rd b/man/fac2num.Rd
index b4441d4..b6199c1 100644
--- a/man/fac2num.Rd
+++ b/man/fac2num.Rd
@@ -1,42 +1,42 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/utility_functions.R
-\name{fac2num}
-\alias{fac2num}
-\title{Convert factor variable to numeric}
-\source{
-\href{https://stackoverflow.com/questions/3418128/how-to-convert-a-factor-to-an-integer-numeric-without-a-loss-of-information}{Stackoverflow thread}
-}
-\usage{
-fac2num(x)
-}
-\arguments{
-\item{x}{a factor variable with numbers as levels}
-}
-\value{
-A numeric vector based on the levels of `x`.
-}
-\description{
-Convert factor variable with numbers as levels into a numeric variable
-}
-\details{
-For example, a factor with levels \code{c("5","7")} is converted into
-a numeric variable with values \code{c(5,7)}.
-}
-\examples{
-## this is often not intended
-as.numeric(factor(c(5,7))) ## result: c(1,2)
-## but this
-fac2num(factor(c(5,7))) ## result: c(5,7)
-
-## however
-as.numeric(factor(c("5","7","a"))) ## 1:3
-
-suppressWarnings(
- fac2num(factor(c("5","7","a"))) ## c(5,7,NA)
-)
-
-
-}
-\seealso{
-\code{\link{robust_values}}
-}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/utility_functions.R
+\name{fac2num}
+\alias{fac2num}
+\title{Convert factor variable to numeric}
+\source{
+\href{https://stackoverflow.com/questions/3418128/how-to-convert-a-factor-to-an-integer-numeric-without-a-loss-of-information}{Stackoverflow thread}
+}
+\usage{
+fac2num(x)
+}
+\arguments{
+\item{x}{a factor variable with numbers as levels}
+}
+\value{
+A numeric vector based on the levels of `x`.
+}
+\description{
+Convert factor variable with numbers as levels into a numeric variable
+}
+\details{
+For example, a factor with levels \code{c("5","7")} is converted into
+a numeric variable with values \code{c(5,7)}.
+}
+\examples{
+## this is often not intended
+as.numeric(factor(c(5,7))) ## result: c(1,2)
+## but this
+fac2num(factor(c(5,7))) ## result: c(5,7)
+
+## however
+as.numeric(factor(c("5","7","a"))) ## 1:3
+
+suppressWarnings(
+ fac2num(factor(c("5","7","a"))) ## c(5,7,NA)
+)
+
+
+}
+\seealso{
+\code{\link{robust_values}}
+}
diff --git a/man/flexible_argument.Rd b/man/flexible_argument.Rd
index a9cdab2..581a715 100644
--- a/man/flexible_argument.Rd
+++ b/man/flexible_argument.Rd
@@ -1,169 +1,169 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/flexyargs.R
-\name{flexible_argument}
-\alias{flexible_argument}
-\title{Flexible Variable Usage in \pkg{popEpi} Functions}
-\description{
-Certain arguments in \pkg{popEpi} can be passed in multiple
-ways. This document shows the usage and a pitfall in the
-usage of such flexible arguments.
-}
-\details{
-Flexible arguments in \pkg{popEpi} are used to pass variables existing
-in your data or in the environment where the function is used
-(for everyday users this is the global environment - in simple terms,
-where your data is / your work space). The flexible arguments
-are modelled after the \code{by} argument in \code{data.tables} -
-see \code{?data.table}. There are many ways to supply the same information
-to certain functions in \pkg{popEpi}, but the possible ways listed below
-may be limited in some of them to only allow for using only a part of them.
-}
-\section{Everyday usage}{
-
-
-Most commonly you may pass
-variable names as character strings, e.g.
-
-\code{FUN(arg = c("V1", "V2"), data = x)}
-
-which may be stored in advance:
-
-\code{vars <- c("V1", "V2")}
-
-\code{FUN(arg = vars, data = x)}
-
-where \code{x} contains those variables. You may also supply variable
-names as symbols:
-
-\code{FUN(arg = V1, data = x)}
-
-Or as a list of symbols (similarly to as in \code{\link{aggregate}}):
-
-\code{FUN(arg = list(V1, V2), data = x)}
-
-Or as a list of expressions:
-
-\code{FUN(arg = list(V1 + 1, factor(V2)), data = x)}
-
-A formula without a left-hand-side specified is sometimes allowed as well:
-
-\code{FUN(arg = ~ I(V1 + 1) + factor(V2), data = x)}
-
-Using a symbol or a list of symbols/expressions typically
-causes the function to look for the variable(s)
-first in the supplied data (if any) and then where the function was called.
-For everyday users this means you might define e.g.
-
-\code{V3 <- factor(letters)}
-
-and do e.g.
-
-\code{FUN(arg = list(V1 + 1, factor(V2), V3), data = x)}
-
-provided \code{V1} and \code{V2} exist in \code{x} or in the function calling
-environment.
-}
-
-\section{A pitfall}{
-
-
-There is one way to use flexible arguments incorrectly: By supplying
-the name of a variable which exists both in the supplied data
-and the calling environment, and intending the latter to be used. E.g.
-
-\code{vars <- c("V2")}
-
-\code{FUN(arg = V3, data = x)}
-
-where \code{x} has a column named \code{vars}. This causes the function to
-use \code{x$vars} and NOT \code{x$V2}.
-}
-
-\section{Advanced}{
-
-
-Function programmers are advised to pass character strings
-whenever possible. To fool-proof against conflicts as described in the
-section above, refer to the calling environment explicitly when
-passing the variable containing the character strings:
-
-\code{TF <- environment() ## current env to refer to}
-
-\code{vars <- c("V1", "V2")}
-
-\code{FUN(arg = TF$vars, data = x)}
-
-Even if \code{x} has columns named \code{vars} and \code{TF},
-using \code{TF$vars} does not use those columns but only evaluates
-\code{TF$vars}
-in the calling environment. This is made possible by the fact
-that data is always passed as a \code{data.frame}, within which evaluation
-of expressions using the dollar operator is not possible. Therefore
-it is safe to assume the data should not be used. However, lists of
-expressions will not be checked for dollar use and will fail in conflict
-situations:
-
-\code{TF <- environment() ## current env to refer to}
-
-\code{vars <- letters[1:5]}
-
-\code{x <- data.frame(vars = 1:5, TF = 5:1, V1 = 10:6)}
-
-\code{FUN(arg = list(TF$vars, V1), data = x)}
-
-On the other hand you may typically also pass quoted (\code{\link{quote}})
-or substituted \code{\link{substitute}} expressions etc., where
-the \code{env$object} trick will work as well:
-
-\code{q <- quote(list(vars, V1))}
-
-\code{FUN(arg = TF$q, data = x)}
-
-This works even with
-
-\code{a <- 1:5}
-
-\code{V1 <- quote(TF$a)}
-
-\code{FUN(arg = TF$V1, data = x)}
-
-So no conflicts should occur.
-}
-
-\examples{
-
-data(sire)
-## prepare data for e.g. 5-year "period analysis" for 2008-2012
-## note: sire is a simulated cohort integrated into popEpi.
-BL <- list(fot=seq(0, 5, by = 1/12))
-x <- lexpand(sire, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status \%in\% 1:2,
- breaks = BL)
-
-x <- aggre(x, by = fot)
-
-## silly example of referring to pyrs data by fixed character string;
-## its possible that the real name wont be fixed in a real-life application.
-pyrs <- "actual_pyrs"
-TF <- environment()
-x$actual_pyrs <- as.numeric(x$pyrs)
-x$pyrs <- 1
-
-## this works (uses actual_pyrs eventually)
-st <- survtab_ag(fot ~ 1, data = x, surv.type = "surv.obs",
- pyrs = TF$pyrs, d = from0to1,
- surv.method = "hazard")
-## this would be wrong (sees expression 'pyrs' and uses that column,
-## which is not what is intended here)
-st <- survtab_ag(fot ~ 1, data = x, surv.type = "surv.obs",
- pyrs = pyrs, d = from0to1,
- surv.method = "hazard")
-}
-\seealso{
-Other popEpi argument evaluation docs:
-\code{\link{direct_standardization}}
-}
-\author{
-Joonas Miettinen
-}
-\concept{popEpi argument evaluation docs}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/flexyargs.R
+\name{flexible_argument}
+\alias{flexible_argument}
+\title{Flexible Variable Usage in \pkg{popEpi} Functions}
+\description{
+Certain arguments in \pkg{popEpi} can be passed in multiple
+ways. This document shows the usage and a pitfall in the
+usage of such flexible arguments.
+}
+\details{
+Flexible arguments in \pkg{popEpi} are used to pass variables existing
+in your data or in the environment where the function is used
+(for everyday users this is the global environment - in simple terms,
+where your data is / your work space). The flexible arguments
+are modelled after the \code{by} argument in \code{data.tables} -
+see \code{?data.table}. There are many ways to supply the same information
+to certain functions in \pkg{popEpi}, but the possible ways listed below
+may be limited in some of them to only allow for using only a part of them.
+}
+\section{Everyday usage}{
+
+
+Most commonly you may pass
+variable names as character strings, e.g.
+
+\code{FUN(arg = c("V1", "V2"), data = x)}
+
+which may be stored in advance:
+
+\code{vars <- c("V1", "V2")}
+
+\code{FUN(arg = vars, data = x)}
+
+where \code{x} contains those variables. You may also supply variable
+names as symbols:
+
+\code{FUN(arg = V1, data = x)}
+
+Or as a list of symbols (similarly to as in \code{\link{aggregate}}):
+
+\code{FUN(arg = list(V1, V2), data = x)}
+
+Or as a list of expressions:
+
+\code{FUN(arg = list(V1 + 1, factor(V2)), data = x)}
+
+A formula without a left-hand-side specified is sometimes allowed as well:
+
+\code{FUN(arg = ~ I(V1 + 1) + factor(V2), data = x)}
+
+Using a symbol or a list of symbols/expressions typically
+causes the function to look for the variable(s)
+first in the supplied data (if any) and then where the function was called.
+For everyday users this means you might define e.g.
+
+\code{V3 <- factor(letters)}
+
+and do e.g.
+
+\code{FUN(arg = list(V1 + 1, factor(V2), V3), data = x)}
+
+provided \code{V1} and \code{V2} exist in \code{x} or in the function calling
+environment.
+}
+
+\section{A pitfall}{
+
+
+There is one way to use flexible arguments incorrectly: By supplying
+the name of a variable which exists both in the supplied data
+and the calling environment, and intending the latter to be used. E.g.
+
+\code{vars <- c("V2")}
+
+\code{FUN(arg = V3, data = x)}
+
+where \code{x} has a column named \code{vars}. This causes the function to
+use \code{x$vars} and NOT \code{x$V2}.
+}
+
+\section{Advanced}{
+
+
+Function programmers are advised to pass character strings
+whenever possible. To fool-proof against conflicts as described in the
+section above, refer to the calling environment explicitly when
+passing the variable containing the character strings:
+
+\code{TF <- environment() ## current env to refer to}
+
+\code{vars <- c("V1", "V2")}
+
+\code{FUN(arg = TF$vars, data = x)}
+
+Even if \code{x} has columns named \code{vars} and \code{TF},
+using \code{TF$vars} does not use those columns but only evaluates
+\code{TF$vars}
+in the calling environment. This is made possible by the fact
+that data is always passed as a \code{data.frame}, within which evaluation
+of expressions using the dollar operator is not possible. Therefore
+it is safe to assume the data should not be used. However, lists of
+expressions will not be checked for dollar use and will fail in conflict
+situations:
+
+\code{TF <- environment() ## current env to refer to}
+
+\code{vars <- letters[1:5]}
+
+\code{x <- data.frame(vars = 1:5, TF = 5:1, V1 = 10:6)}
+
+\code{FUN(arg = list(TF$vars, V1), data = x)}
+
+On the other hand you may typically also pass quoted (\code{\link{quote}})
+or substituted \code{\link{substitute}} expressions etc., where
+the \code{env$object} trick will work as well:
+
+\code{q <- quote(list(vars, V1))}
+
+\code{FUN(arg = TF$q, data = x)}
+
+This works even with
+
+\code{a <- 1:5}
+
+\code{V1 <- quote(TF$a)}
+
+\code{FUN(arg = TF$V1, data = x)}
+
+So no conflicts should occur.
+}
+
+\examples{
+
+data(sire)
+## prepare data for e.g. 5-year "period analysis" for 2008-2012
+## note: sire is a simulated cohort integrated into popEpi.
+BL <- list(fot=seq(0, 5, by = 1/12))
+x <- lexpand(sire, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status \%in\% 1:2,
+ breaks = BL)
+
+x <- aggre(x, by = fot)
+
+## silly example of referring to pyrs data by fixed character string;
+## its possible that the real name wont be fixed in a real-life application.
+pyrs <- "actual_pyrs"
+TF <- environment()
+x$actual_pyrs <- as.numeric(x$pyrs)
+x$pyrs <- 1
+
+## this works (uses actual_pyrs eventually)
+st <- survtab_ag(fot ~ 1, data = x, surv.type = "surv.obs",
+ pyrs = TF$pyrs, d = from0to1,
+ surv.method = "hazard")
+## this would be wrong (sees expression 'pyrs' and uses that column,
+## which is not what is intended here)
+st <- survtab_ag(fot ~ 1, data = x, surv.type = "surv.obs",
+ pyrs = pyrs, d = from0to1,
+ surv.method = "hazard")
+}
+\seealso{
+Other popEpi argument evaluation docs:
+\code{\link{direct_standardization}}
+}
+\author{
+Joonas Miettinen
+}
+\concept{popEpi argument evaluation docs}
diff --git a/man/get.yrs.Rd b/man/get.yrs.Rd
index c07e2c7..eea4b67 100644
--- a/man/get.yrs.Rd
+++ b/man/get.yrs.Rd
@@ -1,81 +1,81 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/fractional_years.R
-\name{get.yrs}
-\alias{get.yrs}
-\title{Convert date objects to fractional years}
-\usage{
-get.yrs(x, year.length = "approx", ...)
-}
-\arguments{
-\item{x}{a \code{Date} object, or anything that \code{link{as.Date}}
-accepts}
-
-\item{year.length}{character string, either \code{'actual'} or
-\code{'approx'}; can be abbreviated; see Details}
-
-\item{...}{additional arguments passed on to \code{\link{as.Date}};
-typically \code{format} when \code{x} is a character string variable,
-and \code{origin} when \code{x} is numeric}
-}
-\value{
-A numeric vector of fractional years.
-}
-\description{
-Using Date objects, calculates given
-dates as fractional years.
-}
-\details{
-\code{x} should preferably be a \code{date}, \code{Date} or \code{IDate}
-object, although it can also be a character string variable
-which is coerced internally to \code{Date} format
-using \code{\link{as.Date.character}}.
-
-When \code{ year.length = 'actual' }, fractional years are calculated as
-\code{ year + (day_in_year-1)/365 } for non-leap-years
-and as \code{ year + (day_in_year-1)/366 } for leap years.
-If \code{ year.length = 'approx' }, fractional years are always
-calculated as in \code{ year + (day_in_year-1)/365.242199 }.
-
-There is a slight difference, then, between the two methods
-when calculating durations between fractional years. For
-meticulous accuracy one might instead want to calculate durations using
-dates (days) and convert the results to fractional years.
-
-Note that dates are effectively converted to fractional years at
-\code{ 00:00:01 } o'clock:
-
-
-\code{ get.yrs("2000-01-01") = 2000 }, and
-\code{ get.yrs("2000-01-02") = 2000 + 1/365.242199 }.
-}
-\examples{
-
-data("sire")
-sire$dg_yrs <- get.yrs(sire$dg_date)
-summary(sire$dg_yrs)
-
-## see: ?as.Date.yrs
-dg_date2 <- as.Date(sire$dg_yrs)
-summary(as.numeric(dg_date2 - as.Date(sire$dg_date)))
-
-## Epi's cal.yr versus get.yrs
-d <- as.Date("2000-01-01")
-Epi::cal.yr(d) ## 1999.999
-get.yrs(d) ## 2000
-
-## "..." passed on to as.Date, so character / numeric also accepted as input
-## (and whatever else as.Date accepts)
-get.yrs("2000-06-01")
-get.yrs("20000601", format = "\%Y\%m\%d")
-get.yrs("1/6/00", format = "\%d/\%m/\%y")
-
-get.yrs(100, origin = "1970-01-01")
-
-
-}
-\seealso{
-\code{\link[Epi]{cal.yr}}, \code{\link{as.Date.yrs}}, \code{\link{as.Date}}
-}
-\author{
-Joonas Miettinen
-}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/fractional_years.R
+\name{get.yrs}
+\alias{get.yrs}
+\title{Convert date objects to fractional years}
+\usage{
+get.yrs(x, year.length = "approx", ...)
+}
+\arguments{
+\item{x}{a \code{Date} object, or anything that \code{link{as.Date}}
+accepts}
+
+\item{year.length}{character string, either \code{'actual'} or
+\code{'approx'}; can be abbreviated; see Details}
+
+\item{...}{additional arguments passed on to \code{\link{as.Date}};
+typically \code{format} when \code{x} is a character string variable,
+and \code{origin} when \code{x} is numeric}
+}
+\value{
+A numeric vector of fractional years.
+}
+\description{
+Using Date objects, calculates given
+dates as fractional years.
+}
+\details{
+\code{x} should preferably be a \code{date}, \code{Date} or \code{IDate}
+object, although it can also be a character string variable
+which is coerced internally to \code{Date} format
+using \code{\link{as.Date.character}}.
+
+When \code{ year.length = 'actual' }, fractional years are calculated as
+\code{ year + (day_in_year-1)/365 } for non-leap-years
+and as \code{ year + (day_in_year-1)/366 } for leap years.
+If \code{ year.length = 'approx' }, fractional years are always
+calculated as in \code{ year + (day_in_year-1)/365.242199 }.
+
+There is a slight difference, then, between the two methods
+when calculating durations between fractional years. For
+meticulous accuracy one might instead want to calculate durations using
+dates (days) and convert the results to fractional years.
+
+Note that dates are effectively converted to fractional years at
+\code{ 00:00:01 } o'clock:
+
+
+\code{ get.yrs("2000-01-01") = 2000 }, and
+\code{ get.yrs("2000-01-02") = 2000 + 1/365.242199 }.
+}
+\examples{
+
+data("sire")
+sire$dg_yrs <- get.yrs(sire$dg_date)
+summary(sire$dg_yrs)
+
+## see: ?as.Date.yrs
+dg_date2 <- as.Date(sire$dg_yrs)
+summary(as.numeric(dg_date2 - as.Date(sire$dg_date)))
+
+## Epi's cal.yr versus get.yrs
+d <- as.Date("2000-01-01")
+Epi::cal.yr(d) ## 1999.999
+get.yrs(d) ## 2000
+
+## "..." passed on to as.Date, so character / numeric also accepted as input
+## (and whatever else as.Date accepts)
+get.yrs("2000-06-01")
+get.yrs("20000601", format = "\%Y\%m\%d")
+get.yrs("1/6/00", format = "\%d/\%m/\%y")
+
+get.yrs(100, origin = "1970-01-01")
+
+
+}
+\seealso{
+\code{\link[Epi]{cal.yr}}, \code{\link{as.Date.yrs}}, \code{\link{as.Date}}
+}
+\author{
+Joonas Miettinen
+}
diff --git a/man/is.Date.Rd b/man/is.Date.Rd
index 950edc3..906ce90 100644
--- a/man/is.Date.Rd
+++ b/man/is.Date.Rd
@@ -1,26 +1,26 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/utility_functions.R
-\name{is.Date}
-\alias{is.Date}
-\title{Test if object is a \code{Date} object}
-\usage{
-is.Date(obj)
-}
-\arguments{
-\item{obj}{object to test on}
-}
-\value{
-`TRUE` if `obj` is of class `"Date"` or `"IDate"`.
-}
-\description{
-Tests if an object is a \code{Date} object and returns
-a logical vector of length 1. \code{IDate} objects are also
-\code{Date} objects, but \code{date} objects from package \pkg{date}
-are not.
-}
-\seealso{
-\code{\link{get.yrs}}, \code{\link{is_leap_year}}, \code{\link{as.Date}}
-}
-\author{
-Joonas Miettinen
-}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/utility_functions.R
+\name{is.Date}
+\alias{is.Date}
+\title{Test if object is a \code{Date} object}
+\usage{
+is.Date(obj)
+}
+\arguments{
+\item{obj}{object to test on}
+}
+\value{
+`TRUE` if `obj` is of class `"Date"` or `"IDate"`.
+}
+\description{
+Tests if an object is a \code{Date} object and returns
+a logical vector of length 1. \code{IDate} objects are also
+\code{Date} objects, but \code{date} objects from package \pkg{date}
+are not.
+}
+\seealso{
+\code{\link{get.yrs}}, \code{\link{is_leap_year}}, \code{\link{as.Date}}
+}
+\author{
+Joonas Miettinen
+}
diff --git a/man/is_leap_year.Rd b/man/is_leap_year.Rd
index b6f71da..b592d93 100644
--- a/man/is_leap_year.Rd
+++ b/man/is_leap_year.Rd
@@ -1,31 +1,31 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/utility_functions.R
-\name{is_leap_year}
-\alias{is_leap_year}
-\title{Detect leap years}
-\usage{
-is_leap_year(years)
-}
-\arguments{
-\item{years}{a vector or column of year values (numeric or integer)}
-}
-\value{
-A `logical` vector where `TRUE` indicates a leap year.
-}
-\description{
-Given a vector or column of year values (numeric or integer), \code{\link{is_leap_year}} returns a vector of equal length
-of logical indicators, i.e. a vector where corresponding leap years have value TRUE, and FALSE otherwise.
-}
-\examples{
-## can be used to assign new columns easily, e.g. a dummy indicator column
-df <- data.frame(yrs=c(1900,1904,2005,1995))
-df$lyd <- as.integer(is_leap_year(df$yrs))
-
-## mostly it is useful as a condition or to indicate which rows have leap years
-which(is_leap_year(df$yrs)) # 2
-df[is_leap_year(df$yrs),] # 2nd row
-
-}
-\author{
-Joonas Miettinen
-}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/utility_functions.R
+\name{is_leap_year}
+\alias{is_leap_year}
+\title{Detect leap years}
+\usage{
+is_leap_year(years)
+}
+\arguments{
+\item{years}{a vector or column of year values (numeric or integer)}
+}
+\value{
+A `logical` vector where `TRUE` indicates a leap year.
+}
+\description{
+Given a vector or column of year values (numeric or integer), \code{\link{is_leap_year}} returns a vector of equal length
+of logical indicators, i.e. a vector where corresponding leap years have value TRUE, and FALSE otherwise.
+}
+\examples{
+## can be used to assign new columns easily, e.g. a dummy indicator column
+df <- data.frame(yrs=c(1900,1904,2005,1995))
+df$lyd <- as.integer(is_leap_year(df$yrs))
+
+## mostly it is useful as a condition or to indicate which rows have leap years
+which(is_leap_year(df$yrs)) # 2
+df[is_leap_year(df$yrs),] # 2nd row
+
+}
+\author{
+Joonas Miettinen
+}
diff --git a/man/lexpand.Rd b/man/lexpand.Rd
index d73642e..9451118 100644
--- a/man/lexpand.Rd
+++ b/man/lexpand.Rd
@@ -1,389 +1,389 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/lexpand.R
-\name{lexpand}
-\alias{lexpand}
-\title{Split case-level observations}
-\usage{
-lexpand(
- data,
- birth = NULL,
- entry = NULL,
- exit = NULL,
- event = NULL,
- status = status != 0,
- entry.status = NULL,
- breaks = list(fot = c(0, Inf)),
- id = NULL,
- overlapping = TRUE,
- aggre = NULL,
- aggre.type = c("unique", "cartesian"),
- drop = TRUE,
- pophaz = NULL,
- pp = TRUE,
- subset = NULL,
- merge = TRUE,
- verbose = FALSE,
- ...
-)
-}
-\arguments{
-\item{data}{dataset of e.g. cancer cases as rows}
-
-\item{birth}{birth time in date format
-or fractional years; string, symbol or expression}
-
-\item{entry}{entry time in date format
-or fractional years; string, symbol or expression}
-
-\item{exit}{exit from follow-up time in date
-format or fractional years; string, symbol or expression}
-
-\item{event}{advanced: time of possible event differing from \code{exit};
-typically only used in certain SIR/SMR calculations - see Details;
-string, symbol or expression}
-
-\item{status}{variable indicating type of event at \code{exit} or \code{event};
-e.g. \code{status = status != 0}; expression or quoted variable name}
-
-\item{entry.status}{input in the same way as \code{status};
-status at \code{entry}; see Details}
-
-\item{breaks}{a named list of vectors of time breaks;
-e.g. \code{breaks = list(fot=0:5, age=c(0,45,65,Inf))}; see Details}
-
-\item{id}{optional; an id variable; e.g. \code{id = my_id};
-string, symbol or expression}
-
-\item{overlapping}{advanced, logical; if \code{FALSE} AND if \code{data} contains
-multiple rows per subject,
-ensures that the timelines of \code{id}-specific rows do not overlap;
-this ensures e.g. that person-years are only computed once per subject
-in a multi-state paradigm}
-
-\item{aggre}{e.g. \code{aggre = list(sex, fot)};
-a list of unquoted variables and/or expressions thereof,
-which are interpreted as factors; data events and person-years will
-be aggregated by the unique combinations of these; see Details}
-
-\item{aggre.type}{one of \code{c("unique","cartesian")};
-can be abbreviated; see Details}
-
-\item{drop}{logical; if \code{TRUE}, drops all resulting rows
-after splitting that reside outside
-the time window as defined by the given breaks (all time scales)}
-
-\item{pophaz}{a dataset of population hazards to merge
-with split data; see Details}
-
-\item{pp}{logical; if \code{TRUE}, computes Pohar-Perme weights using
-\code{pophaz}; adds variable with reserved name \code{pp};
-see Details for computing method}
-
-\item{subset}{a logical vector or any logical condition; data is subsetted
-before splitting accordingly}
-
-\item{merge}{logical; if \code{TRUE}, retains all
-original variables from the data}
-
-\item{verbose}{logical; if \code{TRUE}, the function is chatty and
-returns some messages along the way}
-
-\item{...}{e.g. \code{fot = 0:5}; instead of specifying a \code{breaks} list,
-correctly named breaks vectors can be given
-for \code{fot}, \code{age}, and \code{per}; these override any breaks in the
-\code{breaks} list; see Examples}
-}
-\value{
-If \code{aggre = NULL}, returns
-a \code{data.table} or \code{data.frame}
-(depending on \code{options("popEpi.datatable")}; see \code{?popEpi})
-object expanded to accommodate split observations with time scales as
-fractional years and \code{pophaz} merged in if given. Population
-hazard levels in new variable \code{pop.haz}, and Pohar-Perme
-weights as new variable \code{pp} if requested.
-
-If \code{aggre} is defined, returns a long-format
-\code{data.table}/\code{data.frame} with the variable \code{pyrs} (person-years),
-and variables for the counts of transitions in state or state at end of
-follow-up formatted \code{fromXtoY}, where \code{X} and \code{Y} are
-the states transitioned from and to, respectively. The data may also have
-the columns \code{d.exp} for expected numbers of cases and various
-Pohar-Perme weighted figures as identified by the suffix \code{.pp}; see
-Details.
-}
-\description{
-Given subject-level data, data is split
-by calendar time (\code{per}), \code{age}, and follow-up
-time (\code{fot}, from 0 to the end of follow-up)
-into subject-time-interval rows according to
-given \code{breaks} and additionally processed if requested.
-}
-\details{
-\strong{Basics}
-
-\code{\link{lexpand}} splits a given data set (with e.g. cancer diagnoses
-as rows) to subintervals of time over
-calendar time, age, and follow-up time with given time breaks
-using \code{\link{splitMulti}}.
-
-The dataset must contain appropriate
-\code{Date} / \code{IDate} / \code{date} format or
-other numeric variables that can be used
-as the time variables.
-
-You may take a look at a simulated cohort
-\code{\link{sire}} as an example of the
-minimum required information for processing data with \code{lexpand}.
-
-Many arguments can be supplied as a character string naming the appropriate
-variable (e.g. \code{"sex"}), as a symbol (e.g. \code{sex}) or as an expression
-(e.g. \code{factor(sex, 0:1, c("m", "f"))}) for flexibility.
-
-\strong{Breaks}
-
-You should define all breaks as left inclusive and right exclusive
-time points (e.g.\code{[a,b)} )
-for 1-3 time dimensions so that the last member of a breaks vector
-is a meaningful "final upper limit",
- e.g. \code{per = c(2002,2007,2012)}
-to create a last subinterval of the form \code{[2007,2012)}.
-
-All breaks are explicit, i.e. if \code{drop = TRUE},
-any data beyond the outermost breaks points are dropped.
-If one wants to have unspecified upper / lower limits on one time scale,
-use \code{Inf}: e.g. \code{breaks = list(fot = 0:5, age = c(0,45,Inf))}.
-Breaks for \code{per} can also be given in
-\code{Date}/\code{IDate}/\code{date} format, whereupon
-they are converted to fractional years before used in splitting.
-
-The \code{age} time scale can additionally
-be automatically split into common age grouping schemes
-by naming the scheme with an appropriate character string:
-
-\itemize{
- \item \code{"18of5"}: age groups 0-4, 5-9, 10-14, ..., 75-79, 80-84, 85+
- \item \code{"20of5"}: age groups 0-4, 5-9, 10-14, ..., 85-89, 90-94, 95+
- \item \code{"101of1"}: age groups 0, 1, 2, ..., 98, 99, 100+
-}
-
-\strong{Time variables}
-
-If any of the given time variables
-(\code{birth}, \code{entry}, \code{exit}, \code{event})
-is in any kind of date format, they are first coerced to
-fractional years before splitting
-using \code{\link{get.yrs}} (with \code{year.length = "actual"}).
-
-Sometimes in e.g. SIR/SMR calculation one may want the event time to differ
-from the time of exit from follow-up, if the subject is still considered
-to be at risk of the event. If \code{event} is specified, the transition to
- \code{status} is moved to \code{event} from \code{exit}
- using \code{\link[Epi]{cutLexis}}. See Examples.
-
-\strong{The status variable}
-
-The statuses in the expanded output (\code{lex.Cst} and \code{lex.Xst})
-are determined by using either only \code{status} or both \code{status}
-and \code{entry.status}. If \code{entry.status = NULL}, the status at entry
-is guessed according to the type of variable supplied via \code{status}:
-For numeric variables it will be zero, for factors the first level
-(\code{levels(status)[1]}) and otherwise the first unique value in alphabetical
-order (\code{sort(unique(status))[1]}).
-
-Using numeric or factor status
-variables is strongly recommended. Logical expressions are also allowed
-(e.g. \code{status = my_status != 0L}) and are converted to integer internally.
-
-\strong{Merging population hazard information}
-
-To enable computing relative/net survivals with \code{\link{survtab}}
-and \code{\link{relpois}}, \code{lexpand} merges an appropriate
-population hazard data (\code{pophaz}) to the expanded data
-before dropping rows outside the specified
-time window (if \code{drop = TRUE}). \code{pophaz} must, for this reason,
-contain at a minimum the variables named
-\code{agegroup}, \code{year}, and \code{haz}. \code{pophaz} may contain additional variables to specify
-different population hazard levels in different strata; e.g. \code{popmort} includes \code{sex}.
-All the strata-defining variables must be present in the supplied \code{data}. \code{lexpand} will
-automatically detect variables with common names in the two datasets and merge using them.
-
-Currently \code{year} must be an integer variable specifying the appropriate year. \code{agegroup}
-must currently also specify one-year age groups, e.g. \code{popmort} specifies 101 age groups
-of length 1 year. In both
-\code{year} and \code{agegroup} variables the values are interpreted as the lower bounds of intervals
-(and passed on to a \code{cut} call). The mandatory variable \code{haz}
-must specify the appropriate average rate at the person-year level;
-e.g. \code{haz = -log(survProb)} where \code{survProb} is a one-year conditional
-survival probability will be the correct hazard specification.
-
-The corresponding \code{pophaz} population hazard value is merged by using the mid points
-of the records after splitting as reference values. E.g. if \code{age=89.9} at the start
-of a 1-year interval, then the reference age value is \code{90.4} for merging.
-This way we get a "typical" population hazard level for each record.
-
-\strong{Computing Pohar-Perme weights}
-
-If \code{pp = TRUE}, Pohar-Perme weights
-(the inverse of cumulative population survival) are computed. This will
-create the new \code{pp} variable in the expanded data. \code{pp} is a
-reserved name and \code{lexpand} throws exception if a variable with that name
-exists in \code{data}.
-
-When a survival interval contains one or several rows per subject
-(e.g. due to splitting by the \code{per} scale),
-\code{pp} is cumulated from the beginning of the first record in a survival
-interval for each subject to the mid-point of the remaining time within that
-survival interval, and that value is given for every other record
-that a given person has within the same survival interval.
-
-E.g. with 5 rows of duration \code{1/5} within a survival interval
-\code{[0,1)]}, \code{pp} is determined for all records by a cumulative
-population survival from \code{0} to \code{0.5}. The existing accuracy is used,
-so that the weight is cumulated first up to the end of the second row
-and then over the remaining distance to the mid-point (first to 0.4, then to
-0.5). This ensures that more accurately merged population hazards are fully
-used.
-
-\strong{Event not at end of follow-up & overlapping time lines}
-
-\code{event} may be used if the event indicated by \code{status} should
-occur at a time differing from \code{exit}. If \code{event} is defined,
-\code{cutLexis} is used on the data set after coercing it to the \code{Lexis}
-format and before splitting. Note that some values of \code{event} are allowed
-to be \code{NA} as with \code{cutLexis} to accommodate observations
-without an event occurring.
-
-Additionally, setting \code{overlapping = FALSE} ensures that (irrespective
-of using \code{event}) the each subject defined by \code{id} only has one
-continuous time line instead of possibly overlapping time lines if
-there are multiple rows in \code{data} by \code{id}.
-
-
-\strong{Aggregating}
-
-Certain analyses such as SIR/SMR calculations require tables of events and
-person-years by the unique combinations (interactions) of several variables.
-For this, \code{aggre} can be specified as a list of such variables
-(preferably \code{factor} variables but not mandatory)
- and any arbitrary functions of the
-variables at one's disposal. E.g.
-
-\code{aggre = list(sex, agegr = cut(dg_age, 0:100))}
-
-would tabulate events and person-years by sex and an ad-hoc age group
-variable. Every ad-hoc-created variable should be named.
-
-\code{fot}, \code{per}, and \code{age} are special reserved variables which,
-when present in the \code{aggre} list, are output as categories of the
-corresponding time scale variables by using
-e.g.
-
-\code{cut(fot, breaks$fot, right=FALSE)}.
-
-This only works if
-the corresponding breaks are defined in \code{breaks} or via "\code{...}".
-E.g.
-
-\code{aggre = list(sex, fot.int = fot)} with
-
-\code{breaks = list(fot=0:5)}.
-
-The output variable \code{fot.int} in the above example will have
-the lower limits of the appropriate intervals as values.
-
-\code{aggre} as a named list will output numbers of events and person-years
-with the given new names as categorizing variable names, e.g.
-\code{aggre = list(follow_up = fot, gender = sex, agegroup = age)}.
-
-The output table has person-years (\code{pyrs}) and event counts
-(e.g. \code{from0to1}) as columns. Event counts are the numbers of transitions
-(\code{lex.Cst != lex.Xst}) or the \code{lex.Xst} value at a subject's
-last record (subject possibly defined by \code{id}).
-
-If \code{aggre.type = "unique"} (alias \code{"non-empty"}),
-the above results are computed for existing
-combinations of expressions given in \code{aggre}, but also for non-existing
-combinations if \code{aggre.type = "cartesian"} (alias \code{"full"}). E.g. if a
-factor variable has levels \code{"a", "b", "c"} but the data is limited
-to only have levels \code{"a", "b"} present
-(more than zero rows have these level values), the former setting only
-computes results for \code{"a", "b"}, and the latter also for \code{"c"}
-and any combination with other variables or expression given in \code{aggre}.
-In essence, \code{"cartesian"} forces also combinations of variables used
-in \code{aggre} that have no match in data to be shown in the result.
-
-If \code{aggre} is not \code{NULL} and \code{pophaz} has been supplied,
-\code{lexpand} also aggregates the expected counts of events, which
-appears in the output data by the reserved name \code{d.exp}. Additionally,
-having \code{pp = TRUE} causes \code{lexpand} to also compute various
-Pohar-Perme weighted figures necessary for computing Pohar-Perme net survivals
-with \code{\link{survtab_ag}}. This can be slow, so consider what is really
-needed. The Pohar-Perme weighted figures have the suffix \code{.pp}.
-}
-\examples{
-\donttest{
-## prepare data for e.g. 5-year cohort survival calculation
-x <- lexpand(sire, breaks=list(fot=seq(0, 5, by = 1/12)),
- birth = bi_date, entry = dg_date, exit = ex_date,
- status = status != 0, pophaz=popmort)
-
-## prepare data for e.g. 5-year "period analysis" for 2008-2012
-BL <- list(fot = seq(0, 5, by = 1/12), per = c("2008-01-01", "2013-01-01"))
-x <- lexpand(sire, breaks = BL,
- birth = bi_date, entry = dg_date, exit = ex_date,
- pophaz=popmort, status = status != 0)
-
-## aggregating
-BL <- list(fot = 0:5, per = c("2003-01-01","2008-01-01", "2013-01-01"))
-ag <- lexpand(sire, breaks = BL, status = status != 0,
- birth = bi_date, entry = dg_date, exit = ex_date,
- aggre=list(sex, period = per, surv.int = fot))
-
-## aggregating even more
-ag <- lexpand(sire, breaks = BL, status = status != 0,
- birth = bi_date, entry = dg_date, exit = ex_date,
- aggre=list(sex, period = per, surv.int = fot),
- pophaz = popmort, pp = TRUE)
-
-## using "..."
-x <- lexpand(sire, fot=0:5, status = status != 0,
- birth = bi_date, entry = dg_date, exit = ex_date,
- pophaz=popmort)
-
-x <- lexpand(sire, fot=0:5, status = status != 0,
- birth = bi_date, entry = dg_date, exit = ex_date,
- aggre=list(sex, surv.int = fot))
-
-## using the "event" argument: it just places the transition to given "status"
-## at the "event" time instead of at the end, if possible using cutLexis
-x <- lexpand(sire, status = status, event = dg_date,
- birth = bi_date, entry = dg_date, exit = ex_date,)
-
-## aggregating with custom "event" time
-## (the transition to status is moved to the "event" time)
-x <- lexpand(sire, status = status, event = dg_date,
- birth = bi_date, entry = dg_date, exit = ex_date,
- per = 1970:2014, age = c(0:100,Inf),
- aggre = list(sex, year = per, agegroup = age))
-
-}
-
-}
-\seealso{
-\code{\link[Epi]{Lexis}}, \code{\link{popmort}}
-
-Other splitting functions:
-\code{\link{splitLexisDT}()},
-\code{\link{splitMulti}()}
-
-Other aggregation functions:
-\code{\link{aggre}()},
-\code{\link{as.aggre}()},
-\code{\link{setaggre}()},
-\code{\link{summary.aggre}()}
-}
-\author{
-Joonas Miettinen
-}
-\concept{aggregation functions}
-\concept{splitting functions}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/lexpand.R
+\name{lexpand}
+\alias{lexpand}
+\title{Split case-level observations}
+\usage{
+lexpand(
+ data,
+ birth = NULL,
+ entry = NULL,
+ exit = NULL,
+ event = NULL,
+ status = status != 0,
+ entry.status = NULL,
+ breaks = list(fot = c(0, Inf)),
+ id = NULL,
+ overlapping = TRUE,
+ aggre = NULL,
+ aggre.type = c("unique", "cartesian"),
+ drop = TRUE,
+ pophaz = NULL,
+ pp = TRUE,
+ subset = NULL,
+ merge = TRUE,
+ verbose = FALSE,
+ ...
+)
+}
+\arguments{
+\item{data}{dataset of e.g. cancer cases as rows}
+
+\item{birth}{birth time in date format
+or fractional years; string, symbol or expression}
+
+\item{entry}{entry time in date format
+or fractional years; string, symbol or expression}
+
+\item{exit}{exit from follow-up time in date
+format or fractional years; string, symbol or expression}
+
+\item{event}{advanced: time of possible event differing from \code{exit};
+typically only used in certain SIR/SMR calculations - see Details;
+string, symbol or expression}
+
+\item{status}{variable indicating type of event at \code{exit} or \code{event};
+e.g. \code{status = status != 0}; expression or quoted variable name}
+
+\item{entry.status}{input in the same way as \code{status};
+status at \code{entry}; see Details}
+
+\item{breaks}{a named list of vectors of time breaks;
+e.g. \code{breaks = list(fot=0:5, age=c(0,45,65,Inf))}; see Details}
+
+\item{id}{optional; an id variable; e.g. \code{id = my_id};
+string, symbol or expression}
+
+\item{overlapping}{advanced, logical; if \code{FALSE} AND if \code{data} contains
+multiple rows per subject,
+ensures that the timelines of \code{id}-specific rows do not overlap;
+this ensures e.g. that person-years are only computed once per subject
+in a multi-state paradigm}
+
+\item{aggre}{e.g. \code{aggre = list(sex, fot)};
+a list of unquoted variables and/or expressions thereof,
+which are interpreted as factors; data events and person-years will
+be aggregated by the unique combinations of these; see Details}
+
+\item{aggre.type}{one of \code{c("unique","cartesian")};
+can be abbreviated; see Details}
+
+\item{drop}{logical; if \code{TRUE}, drops all resulting rows
+after splitting that reside outside
+the time window as defined by the given breaks (all time scales)}
+
+\item{pophaz}{a dataset of population hazards to merge
+with split data; see Details}
+
+\item{pp}{logical; if \code{TRUE}, computes Pohar-Perme weights using
+\code{pophaz}; adds variable with reserved name \code{pp};
+see Details for computing method}
+
+\item{subset}{a logical vector or any logical condition; data is subsetted
+before splitting accordingly}
+
+\item{merge}{logical; if \code{TRUE}, retains all
+original variables from the data}
+
+\item{verbose}{logical; if \code{TRUE}, the function is chatty and
+returns some messages along the way}
+
+\item{...}{e.g. \code{fot = 0:5}; instead of specifying a \code{breaks} list,
+correctly named breaks vectors can be given
+for \code{fot}, \code{age}, and \code{per}; these override any breaks in the
+\code{breaks} list; see Examples}
+}
+\value{
+If \code{aggre = NULL}, returns
+a \code{data.table} or \code{data.frame}
+(depending on \code{options("popEpi.datatable")}; see \code{?popEpi})
+object expanded to accommodate split observations with time scales as
+fractional years and \code{pophaz} merged in if given. Population
+hazard levels in new variable \code{pop.haz}, and Pohar-Perme
+weights as new variable \code{pp} if requested.
+
+If \code{aggre} is defined, returns a long-format
+\code{data.table}/\code{data.frame} with the variable \code{pyrs} (person-years),
+and variables for the counts of transitions in state or state at end of
+follow-up formatted \code{fromXtoY}, where \code{X} and \code{Y} are
+the states transitioned from and to, respectively. The data may also have
+the columns \code{d.exp} for expected numbers of cases and various
+Pohar-Perme weighted figures as identified by the suffix \code{.pp}; see
+Details.
+}
+\description{
+Given subject-level data, data is split
+by calendar time (\code{per}), \code{age}, and follow-up
+time (\code{fot}, from 0 to the end of follow-up)
+into subject-time-interval rows according to
+given \code{breaks} and additionally processed if requested.
+}
+\details{
+\strong{Basics}
+
+\code{\link{lexpand}} splits a given data set (with e.g. cancer diagnoses
+as rows) to subintervals of time over
+calendar time, age, and follow-up time with given time breaks
+using \code{\link{splitMulti}}.
+
+The dataset must contain appropriate
+\code{Date} / \code{IDate} / \code{date} format or
+other numeric variables that can be used
+as the time variables.
+
+You may take a look at a simulated cohort
+\code{\link{sire}} as an example of the
+minimum required information for processing data with \code{lexpand}.
+
+Many arguments can be supplied as a character string naming the appropriate
+variable (e.g. \code{"sex"}), as a symbol (e.g. \code{sex}) or as an expression
+(e.g. \code{factor(sex, 0:1, c("m", "f"))}) for flexibility.
+
+\strong{Breaks}
+
+You should define all breaks as left inclusive and right exclusive
+time points (e.g.\code{[a,b)} )
+for 1-3 time dimensions so that the last member of a breaks vector
+is a meaningful "final upper limit",
+ e.g. \code{per = c(2002,2007,2012)}
+to create a last subinterval of the form \code{[2007,2012)}.
+
+All breaks are explicit, i.e. if \code{drop = TRUE},
+any data beyond the outermost breaks points are dropped.
+If one wants to have unspecified upper / lower limits on one time scale,
+use \code{Inf}: e.g. \code{breaks = list(fot = 0:5, age = c(0,45,Inf))}.
+Breaks for \code{per} can also be given in
+\code{Date}/\code{IDate}/\code{date} format, whereupon
+they are converted to fractional years before used in splitting.
+
+The \code{age} time scale can additionally
+be automatically split into common age grouping schemes
+by naming the scheme with an appropriate character string:
+
+\itemize{
+ \item \code{"18of5"}: age groups 0-4, 5-9, 10-14, ..., 75-79, 80-84, 85+
+ \item \code{"20of5"}: age groups 0-4, 5-9, 10-14, ..., 85-89, 90-94, 95+
+ \item \code{"101of1"}: age groups 0, 1, 2, ..., 98, 99, 100+
+}
+
+\strong{Time variables}
+
+If any of the given time variables
+(\code{birth}, \code{entry}, \code{exit}, \code{event})
+is in any kind of date format, they are first coerced to
+fractional years before splitting
+using \code{\link{get.yrs}} (with \code{year.length = "actual"}).
+
+Sometimes in e.g. SIR/SMR calculation one may want the event time to differ
+from the time of exit from follow-up, if the subject is still considered
+to be at risk of the event. If \code{event} is specified, the transition to
+ \code{status} is moved to \code{event} from \code{exit}
+ using \code{\link[Epi]{cutLexis}}. See Examples.
+
+\strong{The status variable}
+
+The statuses in the expanded output (\code{lex.Cst} and \code{lex.Xst})
+are determined by using either only \code{status} or both \code{status}
+and \code{entry.status}. If \code{entry.status = NULL}, the status at entry
+is guessed according to the type of variable supplied via \code{status}:
+For numeric variables it will be zero, for factors the first level
+(\code{levels(status)[1]}) and otherwise the first unique value in alphabetical
+order (\code{sort(unique(status))[1]}).
+
+Using numeric or factor status
+variables is strongly recommended. Logical expressions are also allowed
+(e.g. \code{status = my_status != 0L}) and are converted to integer internally.
+
+\strong{Merging population hazard information}
+
+To enable computing relative/net survivals with \code{\link{survtab}}
+and \code{\link{relpois}}, \code{lexpand} merges an appropriate
+population hazard data (\code{pophaz}) to the expanded data
+before dropping rows outside the specified
+time window (if \code{drop = TRUE}). \code{pophaz} must, for this reason,
+contain at a minimum the variables named
+\code{agegroup}, \code{year}, and \code{haz}. \code{pophaz} may contain additional variables to specify
+different population hazard levels in different strata; e.g. \code{popmort} includes \code{sex}.
+All the strata-defining variables must be present in the supplied \code{data}. \code{lexpand} will
+automatically detect variables with common names in the two datasets and merge using them.
+
+Currently \code{year} must be an integer variable specifying the appropriate year. \code{agegroup}
+must currently also specify one-year age groups, e.g. \code{popmort} specifies 101 age groups
+of length 1 year. In both
+\code{year} and \code{agegroup} variables the values are interpreted as the lower bounds of intervals
+(and passed on to a \code{cut} call). The mandatory variable \code{haz}
+must specify the appropriate average rate at the person-year level;
+e.g. \code{haz = -log(survProb)} where \code{survProb} is a one-year conditional
+survival probability will be the correct hazard specification.
+
+The corresponding \code{pophaz} population hazard value is merged by using the mid points
+of the records after splitting as reference values. E.g. if \code{age=89.9} at the start
+of a 1-year interval, then the reference age value is \code{90.4} for merging.
+This way we get a "typical" population hazard level for each record.
+
+\strong{Computing Pohar-Perme weights}
+
+If \code{pp = TRUE}, Pohar-Perme weights
+(the inverse of cumulative population survival) are computed. This will
+create the new \code{pp} variable in the expanded data. \code{pp} is a
+reserved name and \code{lexpand} throws exception if a variable with that name
+exists in \code{data}.
+
+When a survival interval contains one or several rows per subject
+(e.g. due to splitting by the \code{per} scale),
+\code{pp} is cumulated from the beginning of the first record in a survival
+interval for each subject to the mid-point of the remaining time within that
+survival interval, and that value is given for every other record
+that a given person has within the same survival interval.
+
+E.g. with 5 rows of duration \code{1/5} within a survival interval
+\code{[0,1)]}, \code{pp} is determined for all records by a cumulative
+population survival from \code{0} to \code{0.5}. The existing accuracy is used,
+so that the weight is cumulated first up to the end of the second row
+and then over the remaining distance to the mid-point (first to 0.4, then to
+0.5). This ensures that more accurately merged population hazards are fully
+used.
+
+\strong{Event not at end of follow-up & overlapping time lines}
+
+\code{event} may be used if the event indicated by \code{status} should
+occur at a time differing from \code{exit}. If \code{event} is defined,
+\code{cutLexis} is used on the data set after coercing it to the \code{Lexis}
+format and before splitting. Note that some values of \code{event} are allowed
+to be \code{NA} as with \code{cutLexis} to accommodate observations
+without an event occurring.
+
+Additionally, setting \code{overlapping = FALSE} ensures that (irrespective
+of using \code{event}) the each subject defined by \code{id} only has one
+continuous time line instead of possibly overlapping time lines if
+there are multiple rows in \code{data} by \code{id}.
+
+
+\strong{Aggregating}
+
+Certain analyses such as SIR/SMR calculations require tables of events and
+person-years by the unique combinations (interactions) of several variables.
+For this, \code{aggre} can be specified as a list of such variables
+(preferably \code{factor} variables but not mandatory)
+ and any arbitrary functions of the
+variables at one's disposal. E.g.
+
+\code{aggre = list(sex, agegr = cut(dg_age, 0:100))}
+
+would tabulate events and person-years by sex and an ad-hoc age group
+variable. Every ad-hoc-created variable should be named.
+
+\code{fot}, \code{per}, and \code{age} are special reserved variables which,
+when present in the \code{aggre} list, are output as categories of the
+corresponding time scale variables by using
+e.g.
+
+\code{cut(fot, breaks$fot, right=FALSE)}.
+
+This only works if
+the corresponding breaks are defined in \code{breaks} or via "\code{...}".
+E.g.
+
+\code{aggre = list(sex, fot.int = fot)} with
+
+\code{breaks = list(fot=0:5)}.
+
+The output variable \code{fot.int} in the above example will have
+the lower limits of the appropriate intervals as values.
+
+\code{aggre} as a named list will output numbers of events and person-years
+with the given new names as categorizing variable names, e.g.
+\code{aggre = list(follow_up = fot, gender = sex, agegroup = age)}.
+
+The output table has person-years (\code{pyrs}) and event counts
+(e.g. \code{from0to1}) as columns. Event counts are the numbers of transitions
+(\code{lex.Cst != lex.Xst}) or the \code{lex.Xst} value at a subject's
+last record (subject possibly defined by \code{id}).
+
+If \code{aggre.type = "unique"} (alias \code{"non-empty"}),
+the above results are computed for existing
+combinations of expressions given in \code{aggre}, but also for non-existing
+combinations if \code{aggre.type = "cartesian"} (alias \code{"full"}). E.g. if a
+factor variable has levels \code{"a", "b", "c"} but the data is limited
+to only have levels \code{"a", "b"} present
+(more than zero rows have these level values), the former setting only
+computes results for \code{"a", "b"}, and the latter also for \code{"c"}
+and any combination with other variables or expression given in \code{aggre}.
+In essence, \code{"cartesian"} forces also combinations of variables used
+in \code{aggre} that have no match in data to be shown in the result.
+
+If \code{aggre} is not \code{NULL} and \code{pophaz} has been supplied,
+\code{lexpand} also aggregates the expected counts of events, which
+appears in the output data by the reserved name \code{d.exp}. Additionally,
+having \code{pp = TRUE} causes \code{lexpand} to also compute various
+Pohar-Perme weighted figures necessary for computing Pohar-Perme net survivals
+with \code{\link{survtab_ag}}. This can be slow, so consider what is really
+needed. The Pohar-Perme weighted figures have the suffix \code{.pp}.
+}
+\examples{
+\donttest{
+## prepare data for e.g. 5-year cohort survival calculation
+x <- lexpand(sire, breaks=list(fot=seq(0, 5, by = 1/12)),
+ birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status != 0, pophaz=popmort)
+
+## prepare data for e.g. 5-year "period analysis" for 2008-2012
+BL <- list(fot = seq(0, 5, by = 1/12), per = c("2008-01-01", "2013-01-01"))
+x <- lexpand(sire, breaks = BL,
+ birth = bi_date, entry = dg_date, exit = ex_date,
+ pophaz=popmort, status = status != 0)
+
+## aggregating
+BL <- list(fot = 0:5, per = c("2003-01-01","2008-01-01", "2013-01-01"))
+ag <- lexpand(sire, breaks = BL, status = status != 0,
+ birth = bi_date, entry = dg_date, exit = ex_date,
+ aggre=list(sex, period = per, surv.int = fot))
+
+## aggregating even more
+ag <- lexpand(sire, breaks = BL, status = status != 0,
+ birth = bi_date, entry = dg_date, exit = ex_date,
+ aggre=list(sex, period = per, surv.int = fot),
+ pophaz = popmort, pp = TRUE)
+
+## using "..."
+x <- lexpand(sire, fot=0:5, status = status != 0,
+ birth = bi_date, entry = dg_date, exit = ex_date,
+ pophaz=popmort)
+
+x <- lexpand(sire, fot=0:5, status = status != 0,
+ birth = bi_date, entry = dg_date, exit = ex_date,
+ aggre=list(sex, surv.int = fot))
+
+## using the "event" argument: it just places the transition to given "status"
+## at the "event" time instead of at the end, if possible using cutLexis
+x <- lexpand(sire, status = status, event = dg_date,
+ birth = bi_date, entry = dg_date, exit = ex_date,)
+
+## aggregating with custom "event" time
+## (the transition to status is moved to the "event" time)
+x <- lexpand(sire, status = status, event = dg_date,
+ birth = bi_date, entry = dg_date, exit = ex_date,
+ per = 1970:2014, age = c(0:100,Inf),
+ aggre = list(sex, year = per, agegroup = age))
+
+}
+
+}
+\seealso{
+\code{\link[Epi]{Lexis}}, \code{\link{popmort}}
+
+Other splitting functions:
+\code{\link{splitLexisDT}()},
+\code{\link{splitMulti}()}
+
+Other aggregation functions:
+\code{\link{aggre}()},
+\code{\link{as.aggre}()},
+\code{\link{setaggre}()},
+\code{\link{summary.aggre}()}
+}
+\author{
+Joonas Miettinen
+}
+\concept{aggregation functions}
+\concept{splitting functions}
diff --git a/man/lines.sirspline.Rd b/man/lines.sirspline.Rd
index 9c397ca..dbd60ad 100644
--- a/man/lines.sirspline.Rd
+++ b/man/lines.sirspline.Rd
@@ -1,49 +1,49 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/S3_definitions.R
-\name{lines.sirspline}
-\alias{lines.sirspline}
-\title{lines method for sirspline-object}
-\usage{
-\method{lines}{sirspline}(x, conf.int = TRUE, print.levels = NA, select.spline, ...)
-}
-\arguments{
-\item{x}{an object returned by function sirspline}
-
-\item{conf.int}{logical; default TRUE draws also the 95 confidence intervals}
-
-\item{print.levels}{name(s) to be plotted. Default plots all levels.}
-
-\item{select.spline}{select which spline variable (a number or a name) is plotted.}
-
-\item{...}{arguments passed on to lines()}
-}
-\value{
-Always returns `NULL` invisibly.
-This function is called for its side effects.
-}
-\description{
-Plot SIR spline lines with R base graphics
-}
-\details{
-In \code{lines.sirspline} most of graphical parameters is user
-adjustable.
-Desired spline variable can be selected with \code{select.spline} and only one
-can be plotted at a time. The spline variable can include
-several levels, e.g. gender (these are the levels of \code{print}
-from \code{sirspline}). All levels are printed by default, but a
-specific level can be selected using argument
-\code{print.levels}. Printing the levels separately enables e.g. to
-give different colours for each level.
-}
-\seealso{
-Other sir functions:
-\code{\link{plot.sirspline}()},
-\code{\link{sir_exp}()},
-\code{\link{sir_ratio}()},
-\code{\link{sirspline}()},
-\code{\link{sir}()}
-}
-\author{
-Matti Rantanen
-}
-\concept{sir functions}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/S3_definitions.R
+\name{lines.sirspline}
+\alias{lines.sirspline}
+\title{lines method for sirspline-object}
+\usage{
+\method{lines}{sirspline}(x, conf.int = TRUE, print.levels = NA, select.spline, ...)
+}
+\arguments{
+\item{x}{an object returned by function sirspline}
+
+\item{conf.int}{logical; default TRUE draws also the 95 confidence intervals}
+
+\item{print.levels}{name(s) to be plotted. Default plots all levels.}
+
+\item{select.spline}{select which spline variable (a number or a name) is plotted.}
+
+\item{...}{arguments passed on to lines()}
+}
+\value{
+Always returns `NULL` invisibly.
+This function is called for its side effects.
+}
+\description{
+Plot SIR spline lines with R base graphics
+}
+\details{
+In \code{lines.sirspline} most of graphical parameters is user
+adjustable.
+Desired spline variable can be selected with \code{select.spline} and only one
+can be plotted at a time. The spline variable can include
+several levels, e.g. gender (these are the levels of \code{print}
+from \code{sirspline}). All levels are printed by default, but a
+specific level can be selected using argument
+\code{print.levels}. Printing the levels separately enables e.g. to
+give different colours for each level.
+}
+\seealso{
+Other sir functions:
+\code{\link{plot.sirspline}()},
+\code{\link{sir_exp}()},
+\code{\link{sir_ratio}()},
+\code{\link{sirspline}()},
+\code{\link{sir}()}
+}
+\author{
+Matti Rantanen
+}
+\concept{sir functions}
diff --git a/man/lines.survmean.Rd b/man/lines.survmean.Rd
index 60682bf..e5173e9 100644
--- a/man/lines.survmean.Rd
+++ b/man/lines.survmean.Rd
@@ -1,42 +1,42 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/S3_definitions.R
-\name{lines.survmean}
-\alias{lines.survmean}
-\title{Graphically Inspect Curves Used in Mean Survival Computation}
-\usage{
-\method{lines}{survmean}(x, ...)
-}
-\arguments{
-\item{x}{a \code{survmean} object}
-
-\item{...}{arguments passed (ultimately) to \code{matlines}; you
-may, therefore, supply e.g. \code{lwd} through this, though arguments
-such as \code{lty} and \code{col} will not work}
-}
-\value{
-Always returns `NULL` invisibly.
-This function is called for its side effects.
-}
-\description{
-Plots the observed (with extrapolation) and expected survival
-curves for all strata in an object created by \code{\link{survmean}}
-}
-\details{
-This function is intended to be a workhorse for \code{\link{plot.survmean}}.
-If you want finer control over the plotted curves, extract the curves from
-the \code{survmean} output using
-
-\code{attr(x, "curves")}
-
-where \code{x} is a \code{survmean} object.
-}
-\seealso{
-Other survmean functions:
-\code{\link{Surv}()},
-\code{\link{plot.survmean}()},
-\code{\link{survmean}()}
-}
-\author{
-Joonas Miettinen
-}
-\concept{survmean functions}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/S3_definitions.R
+\name{lines.survmean}
+\alias{lines.survmean}
+\title{Graphically Inspect Curves Used in Mean Survival Computation}
+\usage{
+\method{lines}{survmean}(x, ...)
+}
+\arguments{
+\item{x}{a \code{survmean} object}
+
+\item{...}{arguments passed (ultimately) to \code{matlines}; you
+may, therefore, supply e.g. \code{lwd} through this, though arguments
+such as \code{lty} and \code{col} will not work}
+}
+\value{
+Always returns `NULL` invisibly.
+This function is called for its side effects.
+}
+\description{
+Plots the observed (with extrapolation) and expected survival
+curves for all strata in an object created by \code{\link{survmean}}
+}
+\details{
+This function is intended to be a workhorse for \code{\link{plot.survmean}}.
+If you want finer control over the plotted curves, extract the curves from
+the \code{survmean} output using
+
+\code{attr(x, "curves")}
+
+where \code{x} is a \code{survmean} object.
+}
+\seealso{
+Other survmean functions:
+\code{\link{Surv}()},
+\code{\link{plot.survmean}()},
+\code{\link{survmean}()}
+}
+\author{
+Joonas Miettinen
+}
+\concept{survmean functions}
diff --git a/man/lines.survtab.Rd b/man/lines.survtab.Rd
index 28e95bc..835d15f 100644
--- a/man/lines.survtab.Rd
+++ b/man/lines.survtab.Rd
@@ -1,67 +1,67 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/S3_definitions.R
-\name{lines.survtab}
-\alias{lines.survtab}
-\title{\code{lines} method for survtab objects}
-\usage{
-\method{lines}{survtab}(x, y = NULL, subset = NULL, conf.int = TRUE, col = NULL, lty = NULL, ...)
-}
-\arguments{
-\item{x}{a \code{survtab} output object}
-
-\item{y}{a variable to plot; a quoted name of a variable
-in \code{x}; e.g. \code{y = "surv.obs"};
-if \code{NULL}, picks last survival variable column in order in \code{x}}
-
-\item{subset}{a logical condition; \code{obj} is subset accordingly
-before plotting; use this for limiting to specific strata,
-e.g. \code{subset = sex == "male"}}
-
-\item{conf.int}{logical; if \code{TRUE}, also plots any confidence intervals
-present in \code{obj} for variables in \code{y}}
-
-\item{col}{line colour passed to \code{matlines}}
-
-\item{lty}{line type passed to \code{matlines}}
-
-\item{...}{additional arguments passed on to to a \code{matlines} call;
-e.g. \code{lwd} can be defined this way}
-}
-\value{
-Always returns `NULL` invisibly.
-This function is called for its side effects.
-}
-\description{
-Plot \code{lines} from a \code{survtab} object
-}
-\examples{
-data(sire)
-data(sibr)
-si <- rbind(sire, sibr)
-si$period <- cut(si$dg_date, as.Date(c("1993-01-01", "2004-01-01", "2013-01-01")), right = FALSE)
-si$cancer <- c(rep("rectal", nrow(sire)), rep("breast", nrow(sibr)))
-x <- lexpand(si, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status \%in\% 1:2,
- fot = 0:5, aggre = list(cancer, period, fot))
-st <- survtab_ag(fot ~ cancer + period, data = x,
- surv.method = "lifetable", surv.type = "surv.obs")
-
-plot(st, "surv.obs", subset = cancer == "breast", ylim = c(0.5, 1), col = "blue")
-lines(st, "surv.obs", subset = cancer == "rectal", col = "red")
-
-## or
-plot(st, "surv.obs", col = c(2,2,4,4), lty = c(1, 2, 1, 2))
-}
-\seealso{
-Other survtab functions:
-\code{\link{Surv}()},
-\code{\link{plot.survtab}()},
-\code{\link{print.survtab}()},
-\code{\link{summary.survtab}()},
-\code{\link{survtab_ag}()},
-\code{\link{survtab}()}
-}
-\author{
-Joonas Miettinen
-}
-\concept{survtab functions}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/S3_definitions.R
+\name{lines.survtab}
+\alias{lines.survtab}
+\title{\code{lines} method for survtab objects}
+\usage{
+\method{lines}{survtab}(x, y = NULL, subset = NULL, conf.int = TRUE, col = NULL, lty = NULL, ...)
+}
+\arguments{
+\item{x}{a \code{survtab} output object}
+
+\item{y}{a variable to plot; a quoted name of a variable
+in \code{x}; e.g. \code{y = "surv.obs"};
+if \code{NULL}, picks last survival variable column in order in \code{x}}
+
+\item{subset}{a logical condition; \code{obj} is subset accordingly
+before plotting; use this for limiting to specific strata,
+e.g. \code{subset = sex == "male"}}
+
+\item{conf.int}{logical; if \code{TRUE}, also plots any confidence intervals
+present in \code{obj} for variables in \code{y}}
+
+\item{col}{line colour passed to \code{matlines}}
+
+\item{lty}{line type passed to \code{matlines}}
+
+\item{...}{additional arguments passed on to to a \code{matlines} call;
+e.g. \code{lwd} can be defined this way}
+}
+\value{
+Always returns `NULL` invisibly.
+This function is called for its side effects.
+}
+\description{
+Plot \code{lines} from a \code{survtab} object
+}
+\examples{
+data(sire)
+data(sibr)
+si <- rbind(sire, sibr)
+si$period <- cut(si$dg_date, as.Date(c("1993-01-01", "2004-01-01", "2013-01-01")), right = FALSE)
+si$cancer <- c(rep("rectal", nrow(sire)), rep("breast", nrow(sibr)))
+x <- lexpand(si, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status \%in\% 1:2,
+ fot = 0:5, aggre = list(cancer, period, fot))
+st <- survtab_ag(fot ~ cancer + period, data = x,
+ surv.method = "lifetable", surv.type = "surv.obs")
+
+plot(st, "surv.obs", subset = cancer == "breast", ylim = c(0.5, 1), col = "blue")
+lines(st, "surv.obs", subset = cancer == "rectal", col = "red")
+
+## or
+plot(st, "surv.obs", col = c(2,2,4,4), lty = c(1, 2, 1, 2))
+}
+\seealso{
+Other survtab functions:
+\code{\link{Surv}()},
+\code{\link{plot.survtab}()},
+\code{\link{print.survtab}()},
+\code{\link{summary.survtab}()},
+\code{\link{survtab_ag}()},
+\code{\link{survtab}()}
+}
+\author{
+Joonas Miettinen
+}
+\concept{survtab functions}
diff --git a/man/lower_bound.Rd b/man/lower_bound.Rd
index b433bed..cd30944 100644
--- a/man/lower_bound.Rd
+++ b/man/lower_bound.Rd
@@ -1,21 +1,21 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/utility_functions.R
-\name{lower_bound}
-\alias{lower_bound}
-\title{Return lower_bound value from char string (20,30]}
-\usage{
-lower_bound(cut)
-}
-\arguments{
-\item{cut}{is a character vector of elements "(20,60]"}
-}
-\value{
-A numeric vector.
-}
-\description{
-selects lowest values of each factor after cut() based
-on that the value starts from index 2 and end in comma ",".
-}
-\author{
-Matti Rantanen
-}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/utility_functions.R
+\name{lower_bound}
+\alias{lower_bound}
+\title{Return lower_bound value from char string (20,30]}
+\usage{
+lower_bound(cut)
+}
+\arguments{
+\item{cut}{is a character vector of elements "(20,60]"}
+}
+\value{
+A numeric vector.
+}
+\description{
+selects lowest values of each factor after cut() based
+on that the value starts from index 2 and end in comma ",".
+}
+\author{
+Matti Rantanen
+}
diff --git a/man/ltable.Rd b/man/ltable.Rd
index 5155cf5..388aba2 100644
--- a/man/ltable.Rd
+++ b/man/ltable.Rd
@@ -1,165 +1,165 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/ltable.R
-\name{ltable}
-\alias{ltable}
-\alias{expr.by.cj}
-\title{Tabulate Counts and Other Functions by Multiple Variables into a
-Long-Format Table}
-\usage{
-ltable(
- data,
- by.vars = NULL,
- expr = list(obs = .N),
- subset = NULL,
- use.levels = TRUE,
- na.rm = FALSE,
- robust = TRUE
-)
-
-expr.by.cj(
- data,
- by.vars = NULL,
- expr = list(obs = .N),
- subset = NULL,
- use.levels = FALSE,
- na.rm = FALSE,
- robust = FALSE,
- .SDcols = NULL,
- enclos = parent.frame(1L),
- ...
-)
-}
-\arguments{
-\item{data}{a \code{data.table}/\code{data.frame}}
-
-\item{by.vars}{names of variables that are used for categorization,
-as a character vector, e.g. \code{c('sex','agegroup')}}
-
-\item{expr}{object or a list of objects where each object is a function
-of a variable (see: details)}
-
-\item{subset}{a logical condition; data is limited accordingly before
-evaluating \code{expr} - but the result of \code{expr} is also
-returned as \code{NA} for levels not existing in the subset. See Examples.}
-
-\item{use.levels}{logical; if \code{TRUE}, uses factor levels of given
-variables if present; if you want e.g. counts for levels
-that actually have zero observations but are levels in a factor variable,
-use this}
-
-\item{na.rm}{logical; if \code{TRUE}, drops rows in table that have
-\code{NA} as values in any of \code{by.vars} columns}
-
-\item{robust}{logical; if \code{TRUE}, runs the output data's
-\code{by.vars} columns through \code{robust_values} before outputting}
-
-\item{.SDcols}{advanced; a character vector of column names
-passed to inside the data.table's brackets
-\code{DT[, , ...]}; see \code{\link{data.table}}; if \code{NULL},
-uses all appropriate columns. See Examples for usage.}
-
-\item{enclos}{advanced; an environment; the enclosing
-environment of the data.}
-
-\item{...}{advanced; other arguments passed to inside the
-data.table's brackets \code{DT[, , ...]}; see \code{\link{data.table}}}
-}
-\value{
-A `data.table` of statistics (e.g. counts) stratified by the columns defined
-in `by.vars`.
-}
-\description{
-\code{ltable} makes use of \code{data.table}
-capabilities to tabulate frequencies or
-arbitrary functions of given variables into a long format
-\code{data.table}/\code{data.frame}. \code{expr.by.cj} is the
-equivalent for more advanced users.
-}
-\details{
-Returns \code{expr} for each unique combination of given \code{by.vars}.
-
-By default makes use of any and all \code{\link{levels}} present for
-each variable in \code{by.vars}. This is useful,
-because even if a subset of the data does not contain observations
-for e.g. a specific age group, those age groups are
-nevertheless presented in the resulting table; e.g. with the default
-\code{expr = list(obs = .N)} all age group levels
-are represented by a row and can have \code{obs = 0}.
-
-The function differs from the
-vanilla \code{\link{table}} by giving a long format table of values
-regardless of the number of \code{by.vars} given.
-Make use of e.g. \code{\link{cast_simple}} if data needs to be
-presented in a wide format (e.g. a two-way table).
-
-The rows of the long-format table are effectively Cartesian products
-of the levels of each variable in \code{by.vars},
-e.g. with \code{by.vars = c("sex", "area")} all levels of
-\code{area} are repeated for both levels of \code{sex}
-in the table.
-
-The \code{expr} allows the user to apply any function(s) on all
-levels defined by \code{by.vars}. Here are some examples:
-\itemize{
- \item .N or list(.N) is a function used inside a \code{data.table} to
- calculate counts in each group
- \item list(obs = .N), same as above but user assigned variable name
- \item list(sum(obs), sum(pyrs), mean(dg_age)), multiple objects in a list
- \item list(obs = sum(obs), pyrs = sum(pyrs)), same as above with user
- defined variable names
-}
-
-If \code{use.levels = FALSE}, no \code{levels} information will
- be used. This means that if e.g. the \code{agegroup}
-variable is a factor and has 18 levels defined, but only 15 levels
- are present in the data, no rows for the missing
-levels will be shown in the table.
-
-\code{na.rm} simply drops any rows from the resulting table where
-any of the \code{by.vars} values was \code{NA}.
-}
-\section{Functions}{
-\itemize{
-\item \code{expr.by.cj()}: Somewhat more streamlined \code{ltable} with
-defaults for speed. Explicit determination of enclosing environment
-of data.
-
-}}
-\examples{
-data("sire", package = "popEpi")
-sr <- sire
-sr$agegroup <- cut(sr$dg_age, breaks=c(0,45,60,75,85,Inf))
-## counts by default
-ltable(sr, "agegroup")
-
-## any expression can be given
-ltable(sr, "agegroup", list(mage = mean(dg_age)))
-ltable(sr, "agegroup", list(mage = mean(dg_age), vage = var(dg_age)))
-
-## also returns levels where there are zero rows (expressions as NA)
-ltable(sr, "agegroup", list(obs = .N,
- minage = min(dg_age),
- maxage = max(dg_age)),
- subset = dg_age < 85)
-
-#### expr.by.cj
-expr.by.cj(sr, "agegroup")
-
-## any arbitrary expression can be given
-expr.by.cj(sr, "agegroup", list(mage = mean(dg_age)))
-expr.by.cj(sr, "agegroup", list(mage = mean(dg_age), vage = var(dg_age)))
-
-## only uses levels of by.vars present in data
-expr.by.cj(sr, "agegroup", list(mage = mean(dg_age), vage = var(dg_age)),
- subset = dg_age < 70)
-
-## .SDcols trick
-expr.by.cj(sr, "agegroup", lapply(.SD, mean),
- subset = dg_age < 70, .SDcols = c("dg_age", "status"))
-}
-\seealso{
-\code{\link{table}}, \code{\link{cast_simple}}, \code{\link{melt}}
-}
-\author{
-Joonas Miettinen, Matti Rantanen
-}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/ltable.R
+\name{ltable}
+\alias{ltable}
+\alias{expr.by.cj}
+\title{Tabulate Counts and Other Functions by Multiple Variables into a
+Long-Format Table}
+\usage{
+ltable(
+ data,
+ by.vars = NULL,
+ expr = list(obs = .N),
+ subset = NULL,
+ use.levels = TRUE,
+ na.rm = FALSE,
+ robust = TRUE
+)
+
+expr.by.cj(
+ data,
+ by.vars = NULL,
+ expr = list(obs = .N),
+ subset = NULL,
+ use.levels = FALSE,
+ na.rm = FALSE,
+ robust = FALSE,
+ .SDcols = NULL,
+ enclos = parent.frame(1L),
+ ...
+)
+}
+\arguments{
+\item{data}{a \code{data.table}/\code{data.frame}}
+
+\item{by.vars}{names of variables that are used for categorization,
+as a character vector, e.g. \code{c('sex','agegroup')}}
+
+\item{expr}{object or a list of objects where each object is a function
+of a variable (see: details)}
+
+\item{subset}{a logical condition; data is limited accordingly before
+evaluating \code{expr} - but the result of \code{expr} is also
+returned as \code{NA} for levels not existing in the subset. See Examples.}
+
+\item{use.levels}{logical; if \code{TRUE}, uses factor levels of given
+variables if present; if you want e.g. counts for levels
+that actually have zero observations but are levels in a factor variable,
+use this}
+
+\item{na.rm}{logical; if \code{TRUE}, drops rows in table that have
+\code{NA} as values in any of \code{by.vars} columns}
+
+\item{robust}{logical; if \code{TRUE}, runs the output data's
+\code{by.vars} columns through \code{robust_values} before outputting}
+
+\item{.SDcols}{advanced; a character vector of column names
+passed to inside the data.table's brackets
+\code{DT[, , ...]}; see \code{\link{data.table}}; if \code{NULL},
+uses all appropriate columns. See Examples for usage.}
+
+\item{enclos}{advanced; an environment; the enclosing
+environment of the data.}
+
+\item{...}{advanced; other arguments passed to inside the
+data.table's brackets \code{DT[, , ...]}; see \code{\link{data.table}}}
+}
+\value{
+A `data.table` of statistics (e.g. counts) stratified by the columns defined
+in `by.vars`.
+}
+\description{
+\code{ltable} makes use of \code{data.table}
+capabilities to tabulate frequencies or
+arbitrary functions of given variables into a long format
+\code{data.table}/\code{data.frame}. \code{expr.by.cj} is the
+equivalent for more advanced users.
+}
+\details{
+Returns \code{expr} for each unique combination of given \code{by.vars}.
+
+By default makes use of any and all \code{\link{levels}} present for
+each variable in \code{by.vars}. This is useful,
+because even if a subset of the data does not contain observations
+for e.g. a specific age group, those age groups are
+nevertheless presented in the resulting table; e.g. with the default
+\code{expr = list(obs = .N)} all age group levels
+are represented by a row and can have \code{obs = 0}.
+
+The function differs from the
+vanilla \code{\link{table}} by giving a long format table of values
+regardless of the number of \code{by.vars} given.
+Make use of e.g. \code{\link{cast_simple}} if data needs to be
+presented in a wide format (e.g. a two-way table).
+
+The rows of the long-format table are effectively Cartesian products
+of the levels of each variable in \code{by.vars},
+e.g. with \code{by.vars = c("sex", "area")} all levels of
+\code{area} are repeated for both levels of \code{sex}
+in the table.
+
+The \code{expr} allows the user to apply any function(s) on all
+levels defined by \code{by.vars}. Here are some examples:
+\itemize{
+ \item .N or list(.N) is a function used inside a \code{data.table} to
+ calculate counts in each group
+ \item list(obs = .N), same as above but user assigned variable name
+ \item list(sum(obs), sum(pyrs), mean(dg_age)), multiple objects in a list
+ \item list(obs = sum(obs), pyrs = sum(pyrs)), same as above with user
+ defined variable names
+}
+
+If \code{use.levels = FALSE}, no \code{levels} information will
+ be used. This means that if e.g. the \code{agegroup}
+variable is a factor and has 18 levels defined, but only 15 levels
+ are present in the data, no rows for the missing
+levels will be shown in the table.
+
+\code{na.rm} simply drops any rows from the resulting table where
+any of the \code{by.vars} values was \code{NA}.
+}
+\section{Functions}{
+\itemize{
+\item \code{expr.by.cj()}: Somewhat more streamlined \code{ltable} with
+defaults for speed. Explicit determination of enclosing environment
+of data.
+
+}}
+\examples{
+data("sire", package = "popEpi")
+sr <- sire
+sr$agegroup <- cut(sr$dg_age, breaks=c(0,45,60,75,85,Inf))
+## counts by default
+ltable(sr, "agegroup")
+
+## any expression can be given
+ltable(sr, "agegroup", list(mage = mean(dg_age)))
+ltable(sr, "agegroup", list(mage = mean(dg_age), vage = var(dg_age)))
+
+## also returns levels where there are zero rows (expressions as NA)
+ltable(sr, "agegroup", list(obs = .N,
+ minage = min(dg_age),
+ maxage = max(dg_age)),
+ subset = dg_age < 85)
+
+#### expr.by.cj
+expr.by.cj(sr, "agegroup")
+
+## any arbitrary expression can be given
+expr.by.cj(sr, "agegroup", list(mage = mean(dg_age)))
+expr.by.cj(sr, "agegroup", list(mage = mean(dg_age), vage = var(dg_age)))
+
+## only uses levels of by.vars present in data
+expr.by.cj(sr, "agegroup", list(mage = mean(dg_age), vage = var(dg_age)),
+ subset = dg_age < 70)
+
+## .SDcols trick
+expr.by.cj(sr, "agegroup", lapply(.SD, mean),
+ subset = dg_age < 70, .SDcols = c("dg_age", "status"))
+}
+\seealso{
+\code{\link{table}}, \code{\link{cast_simple}}, \code{\link{melt}}
+}
+\author{
+Joonas Miettinen, Matti Rantanen
+}
diff --git a/man/meanpop_fi.Rd b/man/meanpop_fi.Rd
index 6ebda6f..cb6ddf9 100644
--- a/man/meanpop_fi.Rd
+++ b/man/meanpop_fi.Rd
@@ -1,33 +1,33 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/data_document.R
-\name{meanpop_fi}
-\alias{meanpop_fi}
-\title{Mean population counts in Finland year, sex, and age group.}
-\format{
-\code{data.table} with columns
-\itemize{
- \item \code{sex} gender coded as male, female (0, 1)
- \item \code{year} calendar year 1981-2016
- \item \code{agegroup} - coded 0 to 100; one-year age groups
- \item \code{meanpop} the mean population count; that is, the mean of the
- annual population counts of two consecutive years; e.g. for 1990
- \code{meanpop} is the mean of population counts for 1990 and 1991
- (counted at 1990-01-01 and 1991-01-01, respectively)
-}
-}
-\source{
-Statistics Finland
-}
-\description{
-Mean population counts in Finland year, sex, and age group.
-}
-\seealso{
-Other popEpi data:
-\code{\link{ICSS}},
-\code{\link{popmort}},
-\code{\link{sibr}},
-\code{\link{sire}},
-\code{\link{stdpop101}},
-\code{\link{stdpop18}}
-}
-\concept{popEpi data}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/data_document.R
+\name{meanpop_fi}
+\alias{meanpop_fi}
+\title{Mean population counts in Finland year, sex, and age group.}
+\format{
+\code{data.table} with columns
+\itemize{
+ \item \code{sex} gender coded as male, female (0, 1)
+ \item \code{year} calendar year 1981-2016
+ \item \code{agegroup} - coded 0 to 100; one-year age groups
+ \item \code{meanpop} the mean population count; that is, the mean of the
+ annual population counts of two consecutive years; e.g. for 1990
+ \code{meanpop} is the mean of population counts for 1990 and 1991
+ (counted at 1990-01-01 and 1991-01-01, respectively)
+}
+}
+\source{
+Statistics Finland
+}
+\description{
+Mean population counts in Finland year, sex, and age group.
+}
+\seealso{
+Other popEpi data:
+\code{\link{ICSS}},
+\code{\link{popmort}},
+\code{\link{sibr}},
+\code{\link{sire}},
+\code{\link{stdpop101}},
+\code{\link{stdpop18}}
+}
+\concept{popEpi data}
diff --git a/man/na2zero.Rd b/man/na2zero.Rd
index 4db3bea..1aa9373 100644
--- a/man/na2zero.Rd
+++ b/man/na2zero.Rd
@@ -1,30 +1,30 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/utility_functions.R
-\name{na2zero}
-\alias{na2zero}
-\title{Convert NA's to zero in data.table}
-\usage{
-na2zero(DT, vars = NULL)
-}
-\arguments{
-\item{DT}{\code{data.table} object}
-
-\item{vars}{a character string vector of variables names in \code{DT};
-if \code{NULL}, uses all variable names in \code{DT}}
-}
-\value{
-A copy of `DT` where `NA` values have been replaced with zero.
-}
-\description{
-Given a \code{data.table DT}, replaces any \code{NA} values
-in the variables given in \code{vars} in \code{DT}. Takes a copy of the
-original data and returns the modified copy.
-}
-\details{
-Given a \code{data.table} object, converts \code{NA} values
-to numeric (double) zeros for all variables named in \code{vars} or
-all variables if \code{vars = NULL}.
-}
-\author{
-Joonas Miettinen
-}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/utility_functions.R
+\name{na2zero}
+\alias{na2zero}
+\title{Convert NA's to zero in data.table}
+\usage{
+na2zero(DT, vars = NULL)
+}
+\arguments{
+\item{DT}{\code{data.table} object}
+
+\item{vars}{a character string vector of variables names in \code{DT};
+if \code{NULL}, uses all variable names in \code{DT}}
+}
+\value{
+A copy of `DT` where `NA` values have been replaced with zero.
+}
+\description{
+Given a \code{data.table DT}, replaces any \code{NA} values
+in the variables given in \code{vars} in \code{DT}. Takes a copy of the
+original data and returns the modified copy.
+}
+\details{
+Given a \code{data.table} object, converts \code{NA} values
+to numeric (double) zeros for all variables named in \code{vars} or
+all variables if \code{vars = NULL}.
+}
+\author{
+Joonas Miettinen
+}
diff --git a/man/plot.rate.Rd b/man/plot.rate.Rd
index 84420af..2d21872 100644
--- a/man/plot.rate.Rd
+++ b/man/plot.rate.Rd
@@ -1,37 +1,37 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/S3_definitions.R
-\name{plot.rate}
-\alias{plot.rate}
-\title{plot method for rate object}
-\usage{
-\method{plot}{rate}(x, conf.int = TRUE, eps = 0.2, left.margin, xlim, ...)
-}
-\arguments{
-\item{x}{a rate object (see \code{\link{rate}})}
-
-\item{conf.int}{logical; default TRUE draws the confidence intervals}
-
-\item{eps}{is the height of the ending of the error bars}
-
-\item{left.margin}{set a custom left margin for long variable names. Function
-tries to do it by default.}
-
-\item{xlim}{change the x-axis location}
-
-\item{...}{arguments passed on to graphical functions points and segment
-(e.g. \code{col}, \code{lwd}, \code{pch} and \code{cex})}
-}
-\value{
-Always returns `NULL` invisibly.
-This function is called for its side effects.
-}
-\description{
-Plot rate estimates with confidence intervals lines using R base graphics
-}
-\details{
-This is limited explanatory tool but most graphical
-parameters are user adjustable.
-}
-\author{
-Matti Rantanen
-}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/S3_definitions.R
+\name{plot.rate}
+\alias{plot.rate}
+\title{plot method for rate object}
+\usage{
+\method{plot}{rate}(x, conf.int = TRUE, eps = 0.2, left.margin, xlim, ...)
+}
+\arguments{
+\item{x}{a rate object (see \code{\link{rate}})}
+
+\item{conf.int}{logical; default TRUE draws the confidence intervals}
+
+\item{eps}{is the height of the ending of the error bars}
+
+\item{left.margin}{set a custom left margin for long variable names. Function
+tries to do it by default.}
+
+\item{xlim}{change the x-axis location}
+
+\item{...}{arguments passed on to graphical functions points and segment
+(e.g. \code{col}, \code{lwd}, \code{pch} and \code{cex})}
+}
+\value{
+Always returns `NULL` invisibly.
+This function is called for its side effects.
+}
+\description{
+Plot rate estimates with confidence intervals lines using R base graphics
+}
+\details{
+This is limited explanatory tool but most graphical
+parameters are user adjustable.
+}
+\author{
+Matti Rantanen
+}
diff --git a/man/plot.sir.Rd b/man/plot.sir.Rd
index 87dd5ac..3144565 100644
--- a/man/plot.sir.Rd
+++ b/man/plot.sir.Rd
@@ -1,85 +1,85 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/S3_definitions.R
-\name{plot.sir}
-\alias{plot.sir}
-\title{Plot method for sir-object}
-\usage{
-\method{plot}{sir}(
- x,
- conf.int = TRUE,
- ylab,
- xlab,
- xlim,
- main,
- eps = 0.2,
- abline = TRUE,
- log = FALSE,
- left.margin,
- ...
-)
-}
-\arguments{
-\item{x}{an object returned by function \code{sir}}
-
-\item{conf.int}{default TRUE draws confidence intervals}
-
-\item{ylab}{overwrites default y-axis label}
-
-\item{xlab}{overwrites default x-axis label}
-
-\item{xlim}{x-axis minimum and maximum values}
-
-\item{main}{optional plot title}
-
-\item{eps}{error bar vertical bar height (works only in 'model' or 'univariate')}
-
-\item{abline}{logical; draws a grey line in SIR = 1}
-
-\item{log}{logical; SIR is not in log scale by default}
-
-\item{left.margin}{adjust left marginal of the plot to fit long variable names}
-
-\item{...}{arguments passed on to plot(), segment and lines()}
-}
-\value{
-Always returns `NULL` invisibly.
-This function is called for its side effects.
-}
-\description{
-Plot SIR estimates with error bars
-}
-\details{
-Plot SIR estimates and confidence intervals
-\itemize{
- \item univariate - plots SIR with univariate confidence intervals
- \item model - plots SIR with Poisson modelled confidence intervals
-}
-
-\strong{Customize}
-Normal plot parameters can be passed to \code{plot}. These can be a vector when plotting error bars:
-\itemize{
- \item \code{pch} - point type
- \item \code{lty} - line type
- \item \code{col} - line/point colour
- \item \code{lwd} - point/line size
-}
-
-\strong{Tips for plotting splines}
-It's possible to use \code{plot} to first draw the
-confidence intervals using specific line type or colour and then plotting
-again the estimate using \code{lines(... , conf.int = FALSE)} with different
-settings. This works only when \code{plot.type} is 'splines'.
-}
-\examples{
-\donttest{
-# Plot SIR estimates
-# plot(sir.by.gender, col = c(4,2), log=FALSE, eps=0.2, lty=1, lwd=2, pch=19,
-# main = 'SIR by gender', abline=TRUE)
-}
-}
-\seealso{
-\code{\link{sir}}, \code{\link{sirspline}}
-}
-\author{
-Matti Rantanen
-}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/S3_definitions.R
+\name{plot.sir}
+\alias{plot.sir}
+\title{Plot method for sir-object}
+\usage{
+\method{plot}{sir}(
+ x,
+ conf.int = TRUE,
+ ylab,
+ xlab,
+ xlim,
+ main,
+ eps = 0.2,
+ abline = TRUE,
+ log = FALSE,
+ left.margin,
+ ...
+)
+}
+\arguments{
+\item{x}{an object returned by function \code{sir}}
+
+\item{conf.int}{default TRUE draws confidence intervals}
+
+\item{ylab}{overwrites default y-axis label}
+
+\item{xlab}{overwrites default x-axis label}
+
+\item{xlim}{x-axis minimum and maximum values}
+
+\item{main}{optional plot title}
+
+\item{eps}{error bar vertical bar height (works only in 'model' or 'univariate')}
+
+\item{abline}{logical; draws a grey line in SIR = 1}
+
+\item{log}{logical; SIR is not in log scale by default}
+
+\item{left.margin}{adjust left marginal of the plot to fit long variable names}
+
+\item{...}{arguments passed on to plot(), segment and lines()}
+}
+\value{
+Always returns `NULL` invisibly.
+This function is called for its side effects.
+}
+\description{
+Plot SIR estimates with error bars
+}
+\details{
+Plot SIR estimates and confidence intervals
+\itemize{
+ \item univariate - plots SIR with univariate confidence intervals
+ \item model - plots SIR with Poisson modelled confidence intervals
+}
+
+\strong{Customize}
+Normal plot parameters can be passed to \code{plot}. These can be a vector when plotting error bars:
+\itemize{
+ \item \code{pch} - point type
+ \item \code{lty} - line type
+ \item \code{col} - line/point colour
+ \item \code{lwd} - point/line size
+}
+
+\strong{Tips for plotting splines}
+It's possible to use \code{plot} to first draw the
+confidence intervals using specific line type or colour and then plotting
+again the estimate using \code{lines(... , conf.int = FALSE)} with different
+settings. This works only when \code{plot.type} is 'splines'.
+}
+\examples{
+\donttest{
+# Plot SIR estimates
+# plot(sir.by.gender, col = c(4,2), log=FALSE, eps=0.2, lty=1, lwd=2, pch=19,
+# main = 'SIR by gender', abline=TRUE)
+}
+}
+\seealso{
+\code{\link{sir}}, \code{\link{sirspline}}
+}
+\author{
+Matti Rantanen
+}
diff --git a/man/plot.sirspline.Rd b/man/plot.sirspline.Rd
index f108aef..48fedff 100644
--- a/man/plot.sirspline.Rd
+++ b/man/plot.sirspline.Rd
@@ -1,53 +1,53 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/S3_definitions.R
-\name{plot.sirspline}
-\alias{plot.sirspline}
-\title{\code{plot} method for sirspline-object}
-\usage{
-\method{plot}{sirspline}(x, conf.int = TRUE, abline = TRUE, log = FALSE, type, ylab, xlab, ...)
-}
-\arguments{
-\item{x}{an object returned by function sirspline}
-
-\item{conf.int}{logical; default TRUE draws also the 95 confidence intervals}
-
-\item{abline}{logical; draws a reference line where SIR = 1}
-
-\item{log}{logical; default FALSE. Should the y-axis be in log scale}
-
-\item{type}{select \code{type = 'n'} to plot only figure frames}
-
-\item{ylab}{overwrites default y-axis label; can be a vector if multiple splines fitted}
-
-\item{xlab}{overwrites default x-axis label; can be a vector if multiple splines fitted}
-
-\item{...}{arguments passed on to plot()}
-}
-\value{
-Always returns `NULL` invisibly.
-This function is called for its side effects.
-}
-\description{
-Plot SIR splines using R base graphics.
-}
-\details{
-In \code{plot.sirspline} almost every graphical parameter are user
-adjustable, such as \code{ylim}, \code{xlim}.
-\code{plot.sirsplines} calls \code{lines.splines} to add lines.
-
-The plot axis without lines can be plotted using option \code{type = 'n'}.
-On top of the frame it's then possible to add a \code{grid},
-\code{abline} or text before plotting the lines (see: \code{sirspline}).
-}
-\seealso{
-Other sir functions:
-\code{\link{lines.sirspline}()},
-\code{\link{sir_exp}()},
-\code{\link{sir_ratio}()},
-\code{\link{sirspline}()},
-\code{\link{sir}()}
-}
-\author{
-Matti Rantanen
-}
-\concept{sir functions}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/S3_definitions.R
+\name{plot.sirspline}
+\alias{plot.sirspline}
+\title{\code{plot} method for sirspline-object}
+\usage{
+\method{plot}{sirspline}(x, conf.int = TRUE, abline = TRUE, log = FALSE, type, ylab, xlab, ...)
+}
+\arguments{
+\item{x}{an object returned by function sirspline}
+
+\item{conf.int}{logical; default TRUE draws also the 95 confidence intervals}
+
+\item{abline}{logical; draws a reference line where SIR = 1}
+
+\item{log}{logical; default FALSE. Should the y-axis be in log scale}
+
+\item{type}{select \code{type = 'n'} to plot only figure frames}
+
+\item{ylab}{overwrites default y-axis label; can be a vector if multiple splines fitted}
+
+\item{xlab}{overwrites default x-axis label; can be a vector if multiple splines fitted}
+
+\item{...}{arguments passed on to plot()}
+}
+\value{
+Always returns `NULL` invisibly.
+This function is called for its side effects.
+}
+\description{
+Plot SIR splines using R base graphics.
+}
+\details{
+In \code{plot.sirspline} almost every graphical parameter are user
+adjustable, such as \code{ylim}, \code{xlim}.
+\code{plot.sirsplines} calls \code{lines.splines} to add lines.
+
+The plot axis without lines can be plotted using option \code{type = 'n'}.
+On top of the frame it's then possible to add a \code{grid},
+\code{abline} or text before plotting the lines (see: \code{sirspline}).
+}
+\seealso{
+Other sir functions:
+\code{\link{lines.sirspline}()},
+\code{\link{sir_exp}()},
+\code{\link{sir_ratio}()},
+\code{\link{sirspline}()},
+\code{\link{sir}()}
+}
+\author{
+Matti Rantanen
+}
+\concept{sir functions}
diff --git a/man/plot.survmean.Rd b/man/plot.survmean.Rd
index f76a750..3de7f7b 100644
--- a/man/plot.survmean.Rd
+++ b/man/plot.survmean.Rd
@@ -1,45 +1,45 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/S3_definitions.R
-\name{plot.survmean}
-\alias{plot.survmean}
-\title{Graphically Inspect Curves Used in Mean Survival Computation}
-\usage{
-\method{plot}{survmean}(x, ...)
-}
-\arguments{
-\item{x}{a \code{survmean} object}
-
-\item{...}{arguments passed (ultimately) to \code{matlines}; you
-may, therefore, supply e.g. \code{xlab} through this, though arguments
-such as \code{lty} and \code{col} will not work}
-}
-\value{
-Always returns `NULL` invisibly.
-This function is called for its side effects.
-}
-\description{
-Plots the observed (with extrapolation) and expected survival
-curves for all strata in an object created by \code{\link{survmean}}
-}
-\details{
-For examples see \code{\link{survmean}}. This function is intended only
-for graphically inspecting that the observed survival curves with extrapolation
-and the expected survival curves have been sensibly computed in \code{survmean}.
-
-If you want finer control over the plotted curves, extract the curves from
-the \code{survmean} output using
-
-\code{attr(x, "curves")}
-
-where \code{x} is a \code{survmean} object.
-}
-\seealso{
-Other survmean functions:
-\code{\link{Surv}()},
-\code{\link{lines.survmean}()},
-\code{\link{survmean}()}
-}
-\author{
-Joonas Miettinen
-}
-\concept{survmean functions}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/S3_definitions.R
+\name{plot.survmean}
+\alias{plot.survmean}
+\title{Graphically Inspect Curves Used in Mean Survival Computation}
+\usage{
+\method{plot}{survmean}(x, ...)
+}
+\arguments{
+\item{x}{a \code{survmean} object}
+
+\item{...}{arguments passed (ultimately) to \code{matlines}; you
+may, therefore, supply e.g. \code{xlab} through this, though arguments
+such as \code{lty} and \code{col} will not work}
+}
+\value{
+Always returns `NULL` invisibly.
+This function is called for its side effects.
+}
+\description{
+Plots the observed (with extrapolation) and expected survival
+curves for all strata in an object created by \code{\link{survmean}}
+}
+\details{
+For examples see \code{\link{survmean}}. This function is intended only
+for graphically inspecting that the observed survival curves with extrapolation
+and the expected survival curves have been sensibly computed in \code{survmean}.
+
+If you want finer control over the plotted curves, extract the curves from
+the \code{survmean} output using
+
+\code{attr(x, "curves")}
+
+where \code{x} is a \code{survmean} object.
+}
+\seealso{
+Other survmean functions:
+\code{\link{Surv}()},
+\code{\link{lines.survmean}()},
+\code{\link{survmean}()}
+}
+\author{
+Joonas Miettinen
+}
+\concept{survmean functions}
diff --git a/man/plot.survtab.Rd b/man/plot.survtab.Rd
index 3367655..4784a4c 100644
--- a/man/plot.survtab.Rd
+++ b/man/plot.survtab.Rd
@@ -1,80 +1,80 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/S3_definitions.R
-\name{plot.survtab}
-\alias{plot.survtab}
-\title{\code{plot} method for survtab objects}
-\usage{
-\method{plot}{survtab}(
- x,
- y = NULL,
- subset = NULL,
- conf.int = TRUE,
- col = NULL,
- lty = NULL,
- ylab = NULL,
- xlab = NULL,
- ...
-)
-}
-\arguments{
-\item{x}{a \code{survtab} output object}
-
-\item{y}{survival a character vector of a variable names to plot;
-e.g. \code{y = "r.e2"}}
-
-\item{subset}{a logical condition; \code{obj} is subset accordingly
-before plotting; use this for limiting to specific strata,
-e.g. \code{subset = sex == "male"}}
-
-\item{conf.int}{logical; if \code{TRUE}, also plots any confidence intervals
-present in \code{obj} for variables in \code{y}}
-
-\item{col}{line colour; one value for each stratum; will be recycled}
-
-\item{lty}{line type; one value for each stratum; will be recycled}
-
-\item{ylab}{label for Y-axis}
-
-\item{xlab}{label for X-axis}
-
-\item{...}{additional arguments passed on to \code{plot} and
-\code{lines.survtab}; e.g. \code{ylim} can be defined this way}
-}
-\value{
-Always returns `NULL` invisibly.
-This function is called for its side effects.
-}
-\description{
-Plotting for \code{survtab} objects
-}
-\examples{
-data(sire)
-data(sibr)
-si <- rbind(sire, sibr)
-si$period <- cut(si$dg_date, as.Date(c("1993-01-01", "2004-01-01", "2013-01-01")), right = FALSE)
-si$cancer <- c(rep("rectal", nrow(sire)), rep("breast", nrow(sibr)))
-x <- lexpand(si, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status \%in\% 1:2,
- fot = 0:5, aggre = list(cancer, period, fot))
-st <- survtab_ag(fot ~ cancer + period, data = x,
- surv.method = "lifetable", surv.type = "surv.obs")
-
-plot(st, "surv.obs", subset = cancer == "breast", ylim = c(0.5, 1), col = "blue")
-lines(st, "surv.obs", subset = cancer == "rectal", col = "red")
-
-## or
-plot(st, "surv.obs", col = c(2,2,4,4), lty = c(1, 2, 1, 2))
-}
-\seealso{
-Other survtab functions:
-\code{\link{Surv}()},
-\code{\link{lines.survtab}()},
-\code{\link{print.survtab}()},
-\code{\link{summary.survtab}()},
-\code{\link{survtab_ag}()},
-\code{\link{survtab}()}
-}
-\author{
-Joonas Miettinen
-}
-\concept{survtab functions}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/S3_definitions.R
+\name{plot.survtab}
+\alias{plot.survtab}
+\title{\code{plot} method for survtab objects}
+\usage{
+\method{plot}{survtab}(
+ x,
+ y = NULL,
+ subset = NULL,
+ conf.int = TRUE,
+ col = NULL,
+ lty = NULL,
+ ylab = NULL,
+ xlab = NULL,
+ ...
+)
+}
+\arguments{
+\item{x}{a \code{survtab} output object}
+
+\item{y}{survival a character vector of a variable names to plot;
+e.g. \code{y = "r.e2"}}
+
+\item{subset}{a logical condition; \code{obj} is subset accordingly
+before plotting; use this for limiting to specific strata,
+e.g. \code{subset = sex == "male"}}
+
+\item{conf.int}{logical; if \code{TRUE}, also plots any confidence intervals
+present in \code{obj} for variables in \code{y}}
+
+\item{col}{line colour; one value for each stratum; will be recycled}
+
+\item{lty}{line type; one value for each stratum; will be recycled}
+
+\item{ylab}{label for Y-axis}
+
+\item{xlab}{label for X-axis}
+
+\item{...}{additional arguments passed on to \code{plot} and
+\code{lines.survtab}; e.g. \code{ylim} can be defined this way}
+}
+\value{
+Always returns `NULL` invisibly.
+This function is called for its side effects.
+}
+\description{
+Plotting for \code{survtab} objects
+}
+\examples{
+data(sire)
+data(sibr)
+si <- rbind(sire, sibr)
+si$period <- cut(si$dg_date, as.Date(c("1993-01-01", "2004-01-01", "2013-01-01")), right = FALSE)
+si$cancer <- c(rep("rectal", nrow(sire)), rep("breast", nrow(sibr)))
+x <- lexpand(si, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status \%in\% 1:2,
+ fot = 0:5, aggre = list(cancer, period, fot))
+st <- survtab_ag(fot ~ cancer + period, data = x,
+ surv.method = "lifetable", surv.type = "surv.obs")
+
+plot(st, "surv.obs", subset = cancer == "breast", ylim = c(0.5, 1), col = "blue")
+lines(st, "surv.obs", subset = cancer == "rectal", col = "red")
+
+## or
+plot(st, "surv.obs", col = c(2,2,4,4), lty = c(1, 2, 1, 2))
+}
+\seealso{
+Other survtab functions:
+\code{\link{Surv}()},
+\code{\link{lines.survtab}()},
+\code{\link{print.survtab}()},
+\code{\link{summary.survtab}()},
+\code{\link{survtab_ag}()},
+\code{\link{survtab}()}
+}
+\author{
+Joonas Miettinen
+}
+\concept{survtab functions}
diff --git a/man/poisson.ci.Rd b/man/poisson.ci.Rd
index 9541426..89f6fb4 100644
--- a/man/poisson.ci.Rd
+++ b/man/poisson.ci.Rd
@@ -1,36 +1,36 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/utility_functions.R
-\name{poisson.ci}
-\alias{poisson.ci}
-\title{Get rate and exact Poisson confidence intervals}
-\usage{
-poisson.ci(x, pt = 1, conf.level = 0.95)
-}
-\arguments{
-\item{x}{observed}
-
-\item{pt}{expected}
-
-\item{conf.level}{alpha level}
-}
-\value{
-A \code{data.frame} with columns
-\itemize{
-\item \code{x}: arg \code{x}
-\item \code{pt}: arg \code{pt}
-\item \code{rate}: result of \code{x / pt}
-\item \code{lower}: lower bound of CI
-\item \code{upper}: upper bound of CI
-\item \code{conf.level}: arg \code{conf.level}
-}
-}
-\description{
-Computes confidence intervals for Poisson rates
-}
-\examples{
-
-poisson.ci(x = 4, pt = 5, conf.level = 0.95)
-}
-\author{
-epitools
-}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/utility_functions.R
+\name{poisson.ci}
+\alias{poisson.ci}
+\title{Get rate and exact Poisson confidence intervals}
+\usage{
+poisson.ci(x, pt = 1, conf.level = 0.95)
+}
+\arguments{
+\item{x}{observed}
+
+\item{pt}{expected}
+
+\item{conf.level}{alpha level}
+}
+\value{
+A \code{data.frame} with columns
+\itemize{
+\item \code{x}: arg \code{x}
+\item \code{pt}: arg \code{pt}
+\item \code{rate}: result of \code{x / pt}
+\item \code{lower}: lower bound of CI
+\item \code{upper}: upper bound of CI
+\item \code{conf.level}: arg \code{conf.level}
+}
+}
+\description{
+Computes confidence intervals for Poisson rates
+}
+\examples{
+
+poisson.ci(x = 4, pt = 5, conf.level = 0.95)
+}
+\author{
+epitools
+}
diff --git a/man/popEpi.Rd b/man/popEpi.Rd
index 7770514..ccff5fe 100644
--- a/man/popEpi.Rd
+++ b/man/popEpi.Rd
@@ -1,37 +1,37 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/popEpi_package.r
-\docType{package}
-\name{popEpi}
-\alias{popEpi}
-\title{popEpi: Functions for large-scale epidemiological analysis}
-\description{
-\pkg{popEpi} is built for the needs of registry-based (large-scale)
-epidemiological analysis. This is in most part enabled by the
-efficient \pkg{data.table} package for handling and aggregating large data sets.
-
-\pkg{popEpi} currently supplies some utility functions such as \code{\link{splitMulti}}
-and \code{\link{get.yrs}} for preparing large data sets for epidemiological analysis.
-Included are also a a few functions that can be used in
-epidemiological analysis such as \code{\link{sir}} for estimating
-standardized incidence/mortality ratios (SIRs/SMRs) and \code{\link{survtab}} for
-estimating observed and relative/net survival as well as cumulative incidence
-functions (CIFs). In particular, \code{survtab} implements the Ederer II
-(Ederer and Heise (1959)) and
-Pohar Perme estimators (Pohar Perme, Stare, and Esteve (2012)
-\doi{10.1111/j.1541-0420.2011.01640.x}) and allows for easy
-age-standardisation.
-
-Since there are many benefits to using \code{data.tables}, \pkg{popEpi} returns
-outputs by default in the \code{data.table} format where appropriate.
-Since \code{data.table}
-objects are usually modified by reference, this may have surprising side
-effects for users uninitiated in using \code{data.table}. To ensure
-that appropriate outputs are in the \code{data.frame} format, set
-\code{options("popEpi.datatable" = FALSE)}. However, \code{data.table}
-usage is recommended due to better performance and testing coverage.
-\code{data.table} is used
-by most functions internally in both cases.
-}
-\details{
-popEpi
-}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/popEpi_package.r
+\docType{package}
+\name{popEpi}
+\alias{popEpi}
+\title{popEpi: Functions for large-scale epidemiological analysis}
+\description{
+\pkg{popEpi} is built for the needs of registry-based (large-scale)
+epidemiological analysis. This is in most part enabled by the
+efficient \pkg{data.table} package for handling and aggregating large data sets.
+
+\pkg{popEpi} currently supplies some utility functions such as \code{\link{splitMulti}}
+and \code{\link{get.yrs}} for preparing large data sets for epidemiological analysis.
+Included are also a a few functions that can be used in
+epidemiological analysis such as \code{\link{sir}} for estimating
+standardized incidence/mortality ratios (SIRs/SMRs) and \code{\link{survtab}} for
+estimating observed and relative/net survival as well as cumulative incidence
+functions (CIFs). In particular, \code{survtab} implements the Ederer II
+(Ederer and Heise (1959)) and
+Pohar Perme estimators (Pohar Perme, Stare, and Esteve (2012)
+\doi{10.1111/j.1541-0420.2011.01640.x}) and allows for easy
+age-standardisation.
+
+Since there are many benefits to using \code{data.tables}, \pkg{popEpi} returns
+outputs by default in the \code{data.table} format where appropriate.
+Since \code{data.table}
+objects are usually modified by reference, this may have surprising side
+effects for users uninitiated in using \code{data.table}. To ensure
+that appropriate outputs are in the \code{data.frame} format, set
+\code{options("popEpi.datatable" = FALSE)}. However, \code{data.table}
+usage is recommended due to better performance and testing coverage.
+\code{data.table} is used
+by most functions internally in both cases.
+}
+\details{
+popEpi
+}
diff --git a/man/pophaz.Rd b/man/pophaz.Rd
index aa12e06..490f1f5 100644
--- a/man/pophaz.Rd
+++ b/man/pophaz.Rd
@@ -1,59 +1,59 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/pophaz.R
-\name{pophaz}
-\alias{pophaz}
-\title{Expected / Population Hazard Data Sets Usage in \pkg{popEpi}}
-\description{
-Several functions in \pkg{popEpi} make use of population or expected
-hazards in computing the intended estimates (e.g. \code{\link{survtab}}).
-This document explains using such data sets in this package.
-}
-\details{
-Population hazard data sets (pophaz for short) in \pkg{popEpi} should
-be \code{data.frame}s in the "long" format where one of the columns must be
-named \code{haz} (for hazard), and other columns define the values or
-levels in variables relating to subjects in your data. For example,
-\code{\link{popmort}} contains Finnish population mortality hazards
-by sex, calendar year, and 1-year age group.
-
-\tabular{rrrr}{
-\code{sex} \tab \code{year} \tab \code{agegroup} \tab \code{haz} \cr
-0 \tab 1951 \tab 0 \tab 0.036363176\cr
-0 \tab 1951 \tab 1 \tab 0.003616547\cr
-0 \tab 1951 \tab 2 \tab 0.002172384\cr
-0 \tab 1951 \tab 3 \tab 0.001581249\cr
-0 \tab 1951 \tab 4 \tab 0.001180690\cr
-0 \tab 1951 \tab 5 \tab 0.001070595
-}
-
-The names of the columns should match to the names of the variables
-that you have in your subject-level data. Time variables in your pophaz
-may also correspond to \code{Lexis} time scales; see
-\code{\link{survtab}}.
-
-Any time variables (as they usually have) should be coded consistently:
-When using fractional years in your data, the time variables in your pophaz
-must also be coded in fractional years. When using e.g. \code{Date}s in your
-data, ensure that the pophaz time variables are coded at the level of days
-(or \code{Date}s for calendar time).
-
-The \code{haz} variable in your pophaz should also be coded consistently
-with the used time variables. E.g. \code{haz} values in life-tables
-reported as deaths per person-year should be multiplied by 365.25 when
-using day-level time variables. Typically you'll have calendar time and age
-expressed in years, which means \code{haz} should be expressed as the number
-of deaths per person-year.
-
-If you have your population hazards in a \code{ratetable} object
-usable by functions in \pkg{survival} and \pkg{relsurv}, you may
-transform them to long-format \code{data.frame}s using
-\code{\link{ratetable_to_long_dt}}. Ensure, however, that the
-created \code{haz} column is coded at the right level (events per
-days or years typically).
-
-National statistical institutions, the WHO, and e.g. the Human
-Life-Table Database supply life-table data.
-}
-\author{
-Joonas Miettinen
-}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/pophaz.R
+\name{pophaz}
+\alias{pophaz}
+\title{Expected / Population Hazard Data Sets Usage in \pkg{popEpi}}
+\description{
+Several functions in \pkg{popEpi} make use of population or expected
+hazards in computing the intended estimates (e.g. \code{\link{survtab}}).
+This document explains using such data sets in this package.
+}
+\details{
+Population hazard data sets (pophaz for short) in \pkg{popEpi} should
+be \code{data.frame}s in the "long" format where one of the columns must be
+named \code{haz} (for hazard), and other columns define the values or
+levels in variables relating to subjects in your data. For example,
+\code{\link{popmort}} contains Finnish population mortality hazards
+by sex, calendar year, and 1-year age group.
+
+\tabular{rrrr}{
+\code{sex} \tab \code{year} \tab \code{agegroup} \tab \code{haz} \cr
+0 \tab 1951 \tab 0 \tab 0.036363176\cr
+0 \tab 1951 \tab 1 \tab 0.003616547\cr
+0 \tab 1951 \tab 2 \tab 0.002172384\cr
+0 \tab 1951 \tab 3 \tab 0.001581249\cr
+0 \tab 1951 \tab 4 \tab 0.001180690\cr
+0 \tab 1951 \tab 5 \tab 0.001070595
+}
+
+The names of the columns should match to the names of the variables
+that you have in your subject-level data. Time variables in your pophaz
+may also correspond to \code{Lexis} time scales; see
+\code{\link{survtab}}.
+
+Any time variables (as they usually have) should be coded consistently:
+When using fractional years in your data, the time variables in your pophaz
+must also be coded in fractional years. When using e.g. \code{Date}s in your
+data, ensure that the pophaz time variables are coded at the level of days
+(or \code{Date}s for calendar time).
+
+The \code{haz} variable in your pophaz should also be coded consistently
+with the used time variables. E.g. \code{haz} values in life-tables
+reported as deaths per person-year should be multiplied by 365.25 when
+using day-level time variables. Typically you'll have calendar time and age
+expressed in years, which means \code{haz} should be expressed as the number
+of deaths per person-year.
+
+If you have your population hazards in a \code{ratetable} object
+usable by functions in \pkg{survival} and \pkg{relsurv}, you may
+transform them to long-format \code{data.frame}s using
+\code{\link{ratetable_to_long_dt}}. Ensure, however, that the
+created \code{haz} column is coded at the right level (events per
+days or years typically).
+
+National statistical institutions, the WHO, and e.g. the Human
+Life-Table Database supply life-table data.
+}
+\author{
+Joonas Miettinen
+}
diff --git a/man/popmort.Rd b/man/popmort.Rd
index 1c9a7cd..f0fe7dd 100644
--- a/man/popmort.Rd
+++ b/man/popmort.Rd
@@ -1,37 +1,37 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/data_document.R
-\name{popmort}
-\alias{popmort}
-\title{Population mortality rates in Finland 1951 - 2013 in 101 age groups and
-by gender. This is an example of a population hazard table as used in
-\pkg{popEpi}; for the general help page, see \code{\link{pophaz}}.}
-\format{
-\code{data.table} with columns
-\itemize{
- \item \code{sex} gender coded as male, female (0, 1)
- \item \code{year} calendar year
- \item \code{agegroup} - coded 0 to 100; one-year age groups
- \item \code{haz} the average population mortality rate per person-year
- (d/(pyrs), where d is the number of deaths and pyrs is the person-years)
-}
-}
-\source{
-Statistics Finland
-}
-\description{
-Population mortality rates in Finland 1951 - 2013 in 101 age groups and
-by gender. This is an example of a population hazard table as used in
-\pkg{popEpi}; for the general help page, see \code{\link{pophaz}}.
-}
-\seealso{
-\code{\link{pophaz}}
-
-Other popEpi data:
-\code{\link{ICSS}},
-\code{\link{meanpop_fi}},
-\code{\link{sibr}},
-\code{\link{sire}},
-\code{\link{stdpop101}},
-\code{\link{stdpop18}}
-}
-\concept{popEpi data}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/data_document.R
+\name{popmort}
+\alias{popmort}
+\title{Population mortality rates in Finland 1951 - 2013 in 101 age groups and
+by gender. This is an example of a population hazard table as used in
+\pkg{popEpi}; for the general help page, see \code{\link{pophaz}}.}
+\format{
+\code{data.table} with columns
+\itemize{
+ \item \code{sex} gender coded as male, female (0, 1)
+ \item \code{year} calendar year
+ \item \code{agegroup} - coded 0 to 100; one-year age groups
+ \item \code{haz} the average population mortality rate per person-year
+ (d/(pyrs), where d is the number of deaths and pyrs is the person-years)
+}
+}
+\source{
+Statistics Finland
+}
+\description{
+Population mortality rates in Finland 1951 - 2013 in 101 age groups and
+by gender. This is an example of a population hazard table as used in
+\pkg{popEpi}; for the general help page, see \code{\link{pophaz}}.
+}
+\seealso{
+\code{\link{pophaz}}
+
+Other popEpi data:
+\code{\link{ICSS}},
+\code{\link{meanpop_fi}},
+\code{\link{sibr}},
+\code{\link{sire}},
+\code{\link{stdpop101}},
+\code{\link{stdpop18}}
+}
+\concept{popEpi data}
diff --git a/man/prepExpo.Rd b/man/prepExpo.Rd
index 4184410..cc8f554 100644
--- a/man/prepExpo.Rd
+++ b/man/prepExpo.Rd
@@ -1,114 +1,114 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/splitting_utility_functions.R
-\name{prepExpo}
-\alias{prepExpo}
-\title{Prepare Exposure Data for Aggregation}
-\usage{
-prepExpo(
- lex,
- freezeScales = "work",
- cutScale = "per",
- entry = min(get(cutScale)),
- exit = max(get(cutScale)),
- by = "lex.id",
- breaks = NULL,
- freezeDummy = NULL,
- subset = NULL,
- verbose = FALSE,
- ...
-)
-}
-\arguments{
-\item{lex}{a \code{\link[Epi]{Lexis}} object with ONLY periods of exposure
-as rows; one or multiple rows per subject allowed}
-
-\item{freezeScales}{a character vector naming \code{Lexis} time scales of exposure
-which should be frozen in periods where no exposure occurs (in the gap
-time periods)}
-
-\item{cutScale}{the \code{Lexis} time scale along which the subject-specific
-ultimate entry and exit times are specified}
-
-\item{entry}{an expression; the time of entry to follow-up which may be earlier, at, or after
-the first time of exposure in \code{freezeScales}; evaluated separately
-for each unique combination of \code{by}, so e.g. with
-\code{entry = min(Var1)} and \code{by = "lex.id"} it
-sets the \code{lex.id}-specific minima of \code{Var1} to be the original times
-of entry for each \code{lex.id}}
-
-\item{exit}{the same as \code{entry} but for the ultimate exit time per unique
-combination of \code{by}}
-
-\item{by}{a character vector indicating variable names in \code{lex},
-the unique combinations of which identify separate subjects for which
-to fill gaps in the records from \code{entry} to \code{exit};
-for novices of \code{{\link{data.table}}}, this is passed to a
-\code{data.table}'s \code{by} argument.}
-
-\item{breaks}{a named list of breaks;
-e.g. \code{list(work = 0:20,per = 1995:2015)}; passed on to
-\code{\link{splitMulti}} so see that function's help for more details}
-
-\item{freezeDummy}{a character string; specifies the name for a dummy variable
-that this function will create and add to output which
-identifies rows where the \code{freezeScales} are frozen and where not
-(\code{0} implies not frozen, \code{1} implies frozen);
-if \code{NULL}, no dummy is created}
-
-\item{subset}{a logical condition to subset data by before computations;
-e.g. \code{subset = sex == "male"}}
-
-\item{verbose}{logical; if \code{TRUE}, the function is chatty and returns
-some messages and timings during its run.}
-
-\item{...}{additional arguments passed on to \code{\link{splitMulti}}}
-}
-\value{
-Returns a \code{Lexis} object that has been split if \code{breaks} is specified.
-The resulting time is also a \code{data.table} if
-\code{options("popEpi.datatable") == TRUE} (see: \code{?popEpi})
-}
-\description{
-\code{prepExpo} uses a \code{Lexis} object of periods of exposure
-to fill gaps between the periods and overall entry and exit times without
-accumulating exposure time in periods of no exposure, and splits the
-result if requested.
-}
-\details{
-\code{prepExpo} is a convenience function for the purpose of eventually aggregating
-person-time and events in categories of not only normally progressing
-\code{Lexis} time scales but also some time scales which should not
-progress sometimes. For example a person may work at a production facility
-only intermittently, meaning exposure time (to work-related substances
-for example) should not progress outside of periods of work. This allows for
-e.g. a correct aggregation of person-time and events by categories of cumulative
-time of exposure.
-
-Given a \code{Lexis} object containing rows (time lines)
-where a subject is exposed to something (and NO periods without exposure),
-fills any gaps between exposure periods for each unique combination of \code{by}
-and the subject-specific "ultimate" \code{entry} and \code{exit} times,
-"freezes" the cumulative exposure times in periods of no exposure,
-and splits data using \code{breaks} passed to \code{\link{splitMulti}}
-if requested. Results in a (split) \code{Lexis} object where \code{freezeScales}
-do not progress in time periods where no exposure was recorded in \code{lex}.
-
-This function assumes that \code{entry} and \code{exit} arguments are the
-same for each row within a unique combination of variables named in \code{by}.
-E.g. with \code{by = "lex.id"} only each \code{lex.id} has a unique value
-for \code{entry} and \code{exit} at most.
-
-The supplied \code{breaks} split the data using \code{splitMulti}, with
-the exception that breaks supplied concerning any frozen time scales
-ONLY split the rows where the time scales are not frozen. E.g.
-with \code{freezeScales = "work"},
-\code{breaks = list(work = 0:10, cal = 1995:2010)} splits all rows over
-\code{"cal"} but only non-frozen rows over \code{"work"}.
-
-Only supports frozen time scales that advance and freeze contemporaneously:
-e.g. it would not currently be possible to take into account the cumulative
-time working at a facility and the cumulative time doing a single task
-at the facility, if the two are not exactly the same. On the other hand
-one might use the same time scale for different exposure types, supply them
-as separate rows, and identify the different exposures using a dummy variable.
-}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/splitting_utility_functions.R
+\name{prepExpo}
+\alias{prepExpo}
+\title{Prepare Exposure Data for Aggregation}
+\usage{
+prepExpo(
+ lex,
+ freezeScales = "work",
+ cutScale = "per",
+ entry = min(get(cutScale)),
+ exit = max(get(cutScale)),
+ by = "lex.id",
+ breaks = NULL,
+ freezeDummy = NULL,
+ subset = NULL,
+ verbose = FALSE,
+ ...
+)
+}
+\arguments{
+\item{lex}{a \code{\link[Epi]{Lexis}} object with ONLY periods of exposure
+as rows; one or multiple rows per subject allowed}
+
+\item{freezeScales}{a character vector naming \code{Lexis} time scales of exposure
+which should be frozen in periods where no exposure occurs (in the gap
+time periods)}
+
+\item{cutScale}{the \code{Lexis} time scale along which the subject-specific
+ultimate entry and exit times are specified}
+
+\item{entry}{an expression; the time of entry to follow-up which may be earlier, at, or after
+the first time of exposure in \code{freezeScales}; evaluated separately
+for each unique combination of \code{by}, so e.g. with
+\code{entry = min(Var1)} and \code{by = "lex.id"} it
+sets the \code{lex.id}-specific minima of \code{Var1} to be the original times
+of entry for each \code{lex.id}}
+
+\item{exit}{the same as \code{entry} but for the ultimate exit time per unique
+combination of \code{by}}
+
+\item{by}{a character vector indicating variable names in \code{lex},
+the unique combinations of which identify separate subjects for which
+to fill gaps in the records from \code{entry} to \code{exit};
+for novices of \code{{\link{data.table}}}, this is passed to a
+\code{data.table}'s \code{by} argument.}
+
+\item{breaks}{a named list of breaks;
+e.g. \code{list(work = 0:20,per = 1995:2015)}; passed on to
+\code{\link{splitMulti}} so see that function's help for more details}
+
+\item{freezeDummy}{a character string; specifies the name for a dummy variable
+that this function will create and add to output which
+identifies rows where the \code{freezeScales} are frozen and where not
+(\code{0} implies not frozen, \code{1} implies frozen);
+if \code{NULL}, no dummy is created}
+
+\item{subset}{a logical condition to subset data by before computations;
+e.g. \code{subset = sex == "male"}}
+
+\item{verbose}{logical; if \code{TRUE}, the function is chatty and returns
+some messages and timings during its run.}
+
+\item{...}{additional arguments passed on to \code{\link{splitMulti}}}
+}
+\value{
+Returns a \code{Lexis} object that has been split if \code{breaks} is specified.
+The resulting time is also a \code{data.table} if
+\code{options("popEpi.datatable") == TRUE} (see: \code{?popEpi})
+}
+\description{
+\code{prepExpo} uses a \code{Lexis} object of periods of exposure
+to fill gaps between the periods and overall entry and exit times without
+accumulating exposure time in periods of no exposure, and splits the
+result if requested.
+}
+\details{
+\code{prepExpo} is a convenience function for the purpose of eventually aggregating
+person-time and events in categories of not only normally progressing
+\code{Lexis} time scales but also some time scales which should not
+progress sometimes. For example a person may work at a production facility
+only intermittently, meaning exposure time (to work-related substances
+for example) should not progress outside of periods of work. This allows for
+e.g. a correct aggregation of person-time and events by categories of cumulative
+time of exposure.
+
+Given a \code{Lexis} object containing rows (time lines)
+where a subject is exposed to something (and NO periods without exposure),
+fills any gaps between exposure periods for each unique combination of \code{by}
+and the subject-specific "ultimate" \code{entry} and \code{exit} times,
+"freezes" the cumulative exposure times in periods of no exposure,
+and splits data using \code{breaks} passed to \code{\link{splitMulti}}
+if requested. Results in a (split) \code{Lexis} object where \code{freezeScales}
+do not progress in time periods where no exposure was recorded in \code{lex}.
+
+This function assumes that \code{entry} and \code{exit} arguments are the
+same for each row within a unique combination of variables named in \code{by}.
+E.g. with \code{by = "lex.id"} only each \code{lex.id} has a unique value
+for \code{entry} and \code{exit} at most.
+
+The supplied \code{breaks} split the data using \code{splitMulti}, with
+the exception that breaks supplied concerning any frozen time scales
+ONLY split the rows where the time scales are not frozen. E.g.
+with \code{freezeScales = "work"},
+\code{breaks = list(work = 0:10, cal = 1995:2010)} splits all rows over
+\code{"cal"} but only non-frozen rows over \code{"work"}.
+
+Only supports frozen time scales that advance and freeze contemporaneously:
+e.g. it would not currently be possible to take into account the cumulative
+time working at a facility and the cumulative time doing a single task
+at the facility, if the two are not exactly the same. On the other hand
+one might use the same time scale for different exposure types, supply them
+as separate rows, and identify the different exposures using a dummy variable.
+}
diff --git a/man/print.aggre.Rd b/man/print.aggre.Rd
index e78f0da..339ad44 100644
--- a/man/print.aggre.Rd
+++ b/man/print.aggre.Rd
@@ -1,31 +1,31 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/S3_definitions.R
-\name{print.aggre}
-\alias{print.aggre}
-\title{Print an \code{aggre} Object}
-\usage{
-\method{print}{aggre}(x, subset = NULL, ...)
-}
-\arguments{
-\item{x}{an \code{aggre} object}
-
-\item{subset}{a logical condition to subset results table by
-before printing; use this to limit to a certain stratum. E.g.
-\code{subset = sex == "male"}}
-
-\item{...}{arguments passed to \code{print.data.table}; try e.g.
-\code{top = 2} for numbers of rows in head and tail printed
-if the table is large,
-\code{nrow = 100} for number of rows to print, etc.}
-}
-\value{
-Always returns `NULL` invisibly.
-This function is called for its side effects.
-}
-\description{
-Print method function for \code{aggre} objects; see
-\code{\link{as.aggre}} and \code{\link{aggre}}.
-}
-\author{
-Joonas Miettinen
-}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/S3_definitions.R
+\name{print.aggre}
+\alias{print.aggre}
+\title{Print an \code{aggre} Object}
+\usage{
+\method{print}{aggre}(x, subset = NULL, ...)
+}
+\arguments{
+\item{x}{an \code{aggre} object}
+
+\item{subset}{a logical condition to subset results table by
+before printing; use this to limit to a certain stratum. E.g.
+\code{subset = sex == "male"}}
+
+\item{...}{arguments passed to \code{print.data.table}; try e.g.
+\code{top = 2} for numbers of rows in head and tail printed
+if the table is large,
+\code{nrow = 100} for number of rows to print, etc.}
+}
+\value{
+Always returns `NULL` invisibly.
+This function is called for its side effects.
+}
+\description{
+Print method function for \code{aggre} objects; see
+\code{\link{as.aggre}} and \code{\link{aggre}}.
+}
+\author{
+Joonas Miettinen
+}
diff --git a/man/print.rate.Rd b/man/print.rate.Rd
index 8ffebdc..46820e9 100644
--- a/man/print.rate.Rd
+++ b/man/print.rate.Rd
@@ -1,28 +1,28 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/S3_definitions.R
-\name{print.rate}
-\alias{print.rate}
-\title{Print an rate object}
-\usage{
-\method{print}{rate}(x, subset = NULL, ...)
-}
-\arguments{
-\item{x}{an \code{rate} object}
-
-\item{subset}{a logical condition to subset results table by
-before printing; use this to limit to a certain stratum. E.g.
-\code{subset = sex == "female"}}
-
-\item{...}{arguments for data.tables print method, e.g. row.names = FALSE suppresses row numbers.}
-}
-\value{
-Always returns `NULL` invisibly.
-This function is called for its side effects.
-}
-\description{
-Print method function for \code{rate} objects; see
-\code{\link{rate}}.
-}
-\author{
-Matti Rantanen
-}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/S3_definitions.R
+\name{print.rate}
+\alias{print.rate}
+\title{Print an rate object}
+\usage{
+\method{print}{rate}(x, subset = NULL, ...)
+}
+\arguments{
+\item{x}{an \code{rate} object}
+
+\item{subset}{a logical condition to subset results table by
+before printing; use this to limit to a certain stratum. E.g.
+\code{subset = sex == "female"}}
+
+\item{...}{arguments for data.tables print method, e.g. row.names = FALSE suppresses row numbers.}
+}
+\value{
+Always returns `NULL` invisibly.
+This function is called for its side effects.
+}
+\description{
+Print method function for \code{rate} objects; see
+\code{\link{rate}}.
+}
+\author{
+Matti Rantanen
+}
diff --git a/man/print.survtab.Rd b/man/print.survtab.Rd
index 9f0354d..81bbe70 100644
--- a/man/print.survtab.Rd
+++ b/man/print.survtab.Rd
@@ -1,41 +1,41 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/S3_definitions.R
-\name{print.survtab}
-\alias{print.survtab}
-\title{Print a survtab Object}
-\usage{
-\method{print}{survtab}(x, subset = NULL, ...)
-}
-\arguments{
-\item{x}{a \code{survtab} object}
-
-\item{subset}{a logical condition to subset results table by
-before printing; use this to limit to a certain stratum. E.g.
-\code{subset = sex == "male"}}
-
-\item{...}{arguments passed to \code{print.data.table}; try e.g.
-\code{top = 2} for numbers of rows in head and tail printed
-if the table is large,
-\code{nrow = 100} for number of rows to print, etc.}
-}
-\value{
-Always returns `NULL` invisibly.
-This function is called for its side effects.
-}
-\description{
-Print method function for \code{survtab} objects; see
-\code{\link{survtab_ag}}.
-}
-\seealso{
-Other survtab functions:
-\code{\link{Surv}()},
-\code{\link{lines.survtab}()},
-\code{\link{plot.survtab}()},
-\code{\link{summary.survtab}()},
-\code{\link{survtab_ag}()},
-\code{\link{survtab}()}
-}
-\author{
-Joonas Miettinen
-}
-\concept{survtab functions}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/S3_definitions.R
+\name{print.survtab}
+\alias{print.survtab}
+\title{Print a survtab Object}
+\usage{
+\method{print}{survtab}(x, subset = NULL, ...)
+}
+\arguments{
+\item{x}{a \code{survtab} object}
+
+\item{subset}{a logical condition to subset results table by
+before printing; use this to limit to a certain stratum. E.g.
+\code{subset = sex == "male"}}
+
+\item{...}{arguments passed to \code{print.data.table}; try e.g.
+\code{top = 2} for numbers of rows in head and tail printed
+if the table is large,
+\code{nrow = 100} for number of rows to print, etc.}
+}
+\value{
+Always returns `NULL` invisibly.
+This function is called for its side effects.
+}
+\description{
+Print method function for \code{survtab} objects; see
+\code{\link{survtab_ag}}.
+}
+\seealso{
+Other survtab functions:
+\code{\link{Surv}()},
+\code{\link{lines.survtab}()},
+\code{\link{plot.survtab}()},
+\code{\link{summary.survtab}()},
+\code{\link{survtab_ag}()},
+\code{\link{survtab}()}
+}
+\author{
+Joonas Miettinen
+}
+\concept{survtab functions}
diff --git a/man/rate.Rd b/man/rate.Rd
index e1bbd17..abee7c5 100644
--- a/man/rate.Rd
+++ b/man/rate.Rd
@@ -1,123 +1,123 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/incidence_rates.R
-\name{rate}
-\alias{rate}
-\title{Direct-Standardised Incidence/Mortality Rates}
-\usage{
-rate(
- data,
- obs = NULL,
- pyrs = NULL,
- print = NULL,
- adjust = NULL,
- weights = NULL,
- subset = NULL
-)
-}
-\arguments{
-\item{data}{aggregated data (see e.g. \code{\link{lexpand}},
-\code{\link{aggre}} if you have subject-level data)}
-
-\item{obs}{observations variable name in data.
-\link[=flexible_argument]{Flexible input}, typically e.g.
-\code{obs = obs}.}
-
-\item{pyrs}{person-years variable name in data.
-\link[=flexible_argument]{Flexible input}, typically e.g.
-\code{pyrs = pyrs}.}
-
-\item{print}{variable name to stratify the rates.
-\link[=flexible_argument]{Flexible input}, typically e.g.
-\code{print = sex} or \code{print = list(sex, area)}.}
-
-\item{adjust}{variable for adjusting the rates.
-\link[=flexible_argument]{Flexible input}, typically e.g.
-\code{adjust = agegroup}.}
-
-\item{weights}{typically a list of weights or a \code{character} string
-specifying an age group standardization scheme; see
-the \link[=direct_standardization]{dedicated help page}
-and examples.}
-
-\item{subset}{a logical expression to subset data.}
-}
-\value{
-Returns a \code{data.table} with observations, person-years, rates and
-adjusted rates, if available. Results are stratified by \code{print}.
-Adjusted rates are identified with suffix \code{.adj} and
-\code{.lo} and \code{.hi} are for confidence intervals lower and upper
-95\% bounds, respectively.
-The prefix \code{SE.} stands for standard error.
-}
-\description{
-\code{rate} calculates adjusted rates using
-preloaded weights data or user specified weights.
-}
-\details{
-Input data needs to be in aggregated format with observations
-and person-years. For individual data use \code{\link{lexpand}}, or
-\code{\link{ltable}} and merge person-years manually.
-
-The confidence intervals are based on the normal approximation of the logarithm of the rate.
-The variance of the log rate that is used to derive the confidence intervals
-is derived using the delta method.
-}
-\examples{
-## Prepare data with lexpand and then reformat agegroup.
-data(sibr)
-x <- lexpand(sibr, birth = bi_date, entry = dg_date, exit = ex_date,
- breaks = list(per = c(1990,2000,2010,2020), age = c(0:17*5,Inf)),
- aggre = list(agegroup = age, year.cat = per),
- status = status != 0)
-
-x$agegroup <- cut(x$agegroup, c(0:17*5,Inf), right = FALSE)
-
-## calculate rates for selected periods with Nordic 2000 weights:
-r1 <- rate( data = x, obs = from0to1, pyrs = pyrs, print = year.cat,
- adjust = agegroup, weights = 'nordic')
-r1
-
-## use total person-years by stratum as weights (some have zero)
-w <- ltable(x, by.vars = "agegroup", expr = sum(pyrs))
-w[is.na(w$V1),]$V1 <- 0
-
-r2 <- rate( data = x, obs = from0to1, pyrs = pyrs, print = year.cat,
- adjust = agegroup,
- weights = w$V1)
-r2
-
-## use data.frame of weights:
-names(w) <- c("agegroup", "weights")
-r2 <- rate( data = x, obs = from0to1, pyrs = pyrs, print = year.cat,
- adjust = agegroup,
- weights = w)
-r2
-
-## internal weights (same result as above)
-r3 <- rate( data = x, obs = from0to1, pyrs = pyrs, print = year.cat,
- adjust = agegroup,
- weights = "internal")
-r3
-
-}
-\seealso{
-\code{\link{lexpand}}, \code{\link{ltable}}
-
-Other main functions:
-\code{\link{Surv}()},
-\code{\link{relpois_ag}()},
-\code{\link{relpois}()},
-\code{\link{sirspline}()},
-\code{\link{sir}()},
-\code{\link{survmean}()},
-\code{\link{survtab_ag}()},
-\code{\link{survtab}()}
-
-Other rate functions:
-\code{\link{rate_ratio}()}
-}
-\author{
-Matti Rantanen, Joonas Miettinen
-}
-\concept{main functions}
-\concept{rate functions}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/incidence_rates.R
+\name{rate}
+\alias{rate}
+\title{Direct-Standardised Incidence/Mortality Rates}
+\usage{
+rate(
+ data,
+ obs = NULL,
+ pyrs = NULL,
+ print = NULL,
+ adjust = NULL,
+ weights = NULL,
+ subset = NULL
+)
+}
+\arguments{
+\item{data}{aggregated data (see e.g. \code{\link{lexpand}},
+\code{\link{aggre}} if you have subject-level data)}
+
+\item{obs}{observations variable name in data.
+\link[=flexible_argument]{Flexible input}, typically e.g.
+\code{obs = obs}.}
+
+\item{pyrs}{person-years variable name in data.
+\link[=flexible_argument]{Flexible input}, typically e.g.
+\code{pyrs = pyrs}.}
+
+\item{print}{variable name to stratify the rates.
+\link[=flexible_argument]{Flexible input}, typically e.g.
+\code{print = sex} or \code{print = list(sex, area)}.}
+
+\item{adjust}{variable for adjusting the rates.
+\link[=flexible_argument]{Flexible input}, typically e.g.
+\code{adjust = agegroup}.}
+
+\item{weights}{typically a list of weights or a \code{character} string
+specifying an age group standardization scheme; see
+the \link[=direct_standardization]{dedicated help page}
+and examples.}
+
+\item{subset}{a logical expression to subset data.}
+}
+\value{
+Returns a \code{data.table} with observations, person-years, rates and
+adjusted rates, if available. Results are stratified by \code{print}.
+Adjusted rates are identified with suffix \code{.adj} and
+\code{.lo} and \code{.hi} are for confidence intervals lower and upper
+95\% bounds, respectively.
+The prefix \code{SE.} stands for standard error.
+}
+\description{
+\code{rate} calculates adjusted rates using
+preloaded weights data or user specified weights.
+}
+\details{
+Input data needs to be in aggregated format with observations
+and person-years. For individual data use \code{\link{lexpand}}, or
+\code{\link{ltable}} and merge person-years manually.
+
+The confidence intervals are based on the normal approximation of the logarithm of the rate.
+The variance of the log rate that is used to derive the confidence intervals
+is derived using the delta method.
+}
+\examples{
+## Prepare data with lexpand and then reformat agegroup.
+data(sibr)
+x <- lexpand(sibr, birth = bi_date, entry = dg_date, exit = ex_date,
+ breaks = list(per = c(1990,2000,2010,2020), age = c(0:17*5,Inf)),
+ aggre = list(agegroup = age, year.cat = per),
+ status = status != 0)
+
+x$agegroup <- cut(x$agegroup, c(0:17*5,Inf), right = FALSE)
+
+## calculate rates for selected periods with Nordic 2000 weights:
+r1 <- rate( data = x, obs = from0to1, pyrs = pyrs, print = year.cat,
+ adjust = agegroup, weights = 'nordic')
+r1
+
+## use total person-years by stratum as weights (some have zero)
+w <- ltable(x, by.vars = "agegroup", expr = sum(pyrs))
+w[is.na(w$V1),]$V1 <- 0
+
+r2 <- rate( data = x, obs = from0to1, pyrs = pyrs, print = year.cat,
+ adjust = agegroup,
+ weights = w$V1)
+r2
+
+## use data.frame of weights:
+names(w) <- c("agegroup", "weights")
+r2 <- rate( data = x, obs = from0to1, pyrs = pyrs, print = year.cat,
+ adjust = agegroup,
+ weights = w)
+r2
+
+## internal weights (same result as above)
+r3 <- rate( data = x, obs = from0to1, pyrs = pyrs, print = year.cat,
+ adjust = agegroup,
+ weights = "internal")
+r3
+
+}
+\seealso{
+\code{\link{lexpand}}, \code{\link{ltable}}
+
+Other main functions:
+\code{\link{Surv}()},
+\code{\link{relpois_ag}()},
+\code{\link{relpois}()},
+\code{\link{sirspline}()},
+\code{\link{sir}()},
+\code{\link{survmean}()},
+\code{\link{survtab_ag}()},
+\code{\link{survtab}()}
+
+Other rate functions:
+\code{\link{rate_ratio}()}
+}
+\author{
+Matti Rantanen, Joonas Miettinen
+}
+\concept{main functions}
+\concept{rate functions}
diff --git a/man/rate_ratio.Rd b/man/rate_ratio.Rd
index 58a1433..bd122a6 100644
--- a/man/rate_ratio.Rd
+++ b/man/rate_ratio.Rd
@@ -1,72 +1,72 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/incidence_rates_utils.R
-\name{rate_ratio}
-\alias{rate_ratio}
-\title{Confidence intervals for the rate ratios}
-\usage{
-rate_ratio(x, y, crude = FALSE, SE.method = TRUE)
-}
-\arguments{
-\item{x}{a rate-object, vector of two; rate and standard error or observed and person-years.}
-
-\item{y}{a rate-object, vector of two; rate and standard error or observed and person-years.}
-
-\item{crude}{set TRUE to use crude rates; default is FALSE.}
-
-\item{SE.method}{default TRUE; if \code{x} and \code{y} are vectors of observed and
-person-years, this must be changed to FALSE.}
-}
-\value{
-A vector length of three: rate_ratio, and lower and upper confidence intervals.
-}
-\description{
-Calculate rate ratio with confidence intervals for rate objects or observations and person-years.
-}
-\details{
-Calculate rate ratio of two age standardized rate objects (see \code{\link{rate}}).
-Multiple rates for each objects is supported if there are an equal number of rates.
-Another option is to set \code{x} and \code{y} as a vector of two.
-\enumerate{
- \item rate and its standard error, and set \code{SE.method = TRUE}.
- \item observations and person-year, and set \code{SE.method = FALSE}.
-}
-See examples.
-}
-\examples{
-\donttest{
-# two rate ratios; silly example with female rectal / breast cancer
-## mortality rates
-data("sire", package = "popEpi")
-data("sibr", package = "popEpi")
-
-BL <- list(per = 2000:2005)
-
-re <- lexpand(sire, birth = "bi_date", entry = "dg_date", exit = "ex_date",
- status = status == 1, breaks = BL, aggre = list(per))
-br <- lexpand(sibr, birth = "bi_date", entry = "dg_date", exit = "ex_date",
- status = status == 1, breaks = BL, aggre = list(per))
-
-r_re <- rate(re, obs = "from0to1", pyrs = "pyrs")
-r_br <- rate(br, obs = "from0to1", pyrs = "pyrs")
-
-rate_ratio(r_re, r_br, SE.method = TRUE)
-}
-
-# manually set rates (0.003 and 0.005) and SEs (0.001 and 0.002)
-# so that x = y = c('rate', 'SE')
-rate_ratio(x= c(0.003, 0.001), y= c(0.005, 0.002), SE.method = TRUE)
-
-# observed numbers (10 and 20) and person-years (30000 and 40000):
-rate_ratio(x = c(10, 30000), y = c(20, 40000), SE.method = FALSE)
-
-}
-\seealso{
-\code{\link{rate}}
-
-Other rate functions:
-\code{\link{rate}()}
-}
-\author{
-Matti Rantanen
-}
-\concept{rate functions}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/incidence_rates_utils.R
+\name{rate_ratio}
+\alias{rate_ratio}
+\title{Confidence intervals for the rate ratios}
+\usage{
+rate_ratio(x, y, crude = FALSE, SE.method = TRUE)
+}
+\arguments{
+\item{x}{a rate-object, vector of two; rate and standard error or observed and person-years.}
+
+\item{y}{a rate-object, vector of two; rate and standard error or observed and person-years.}
+
+\item{crude}{set TRUE to use crude rates; default is FALSE.}
+
+\item{SE.method}{default TRUE; if \code{x} and \code{y} are vectors of observed and
+person-years, this must be changed to FALSE.}
+}
+\value{
+A vector length of three: rate_ratio, and lower and upper confidence intervals.
+}
+\description{
+Calculate rate ratio with confidence intervals for rate objects or observations and person-years.
+}
+\details{
+Calculate rate ratio of two age standardized rate objects (see \code{\link{rate}}).
+Multiple rates for each objects is supported if there are an equal number of rates.
+Another option is to set \code{x} and \code{y} as a vector of two.
+\enumerate{
+ \item rate and its standard error, and set \code{SE.method = TRUE}.
+ \item observations and person-year, and set \code{SE.method = FALSE}.
+}
+See examples.
+}
+\examples{
+\donttest{
+# two rate ratios; silly example with female rectal / breast cancer
+## mortality rates
+data("sire", package = "popEpi")
+data("sibr", package = "popEpi")
+
+BL <- list(per = 2000:2005)
+
+re <- lexpand(sire, birth = "bi_date", entry = "dg_date", exit = "ex_date",
+ status = status == 1, breaks = BL, aggre = list(per))
+br <- lexpand(sibr, birth = "bi_date", entry = "dg_date", exit = "ex_date",
+ status = status == 1, breaks = BL, aggre = list(per))
+
+r_re <- rate(re, obs = "from0to1", pyrs = "pyrs")
+r_br <- rate(br, obs = "from0to1", pyrs = "pyrs")
+
+rate_ratio(r_re, r_br, SE.method = TRUE)
+}
+
+# manually set rates (0.003 and 0.005) and SEs (0.001 and 0.002)
+# so that x = y = c('rate', 'SE')
+rate_ratio(x= c(0.003, 0.001), y= c(0.005, 0.002), SE.method = TRUE)
+
+# observed numbers (10 and 20) and person-years (30000 and 40000):
+rate_ratio(x = c(10, 30000), y = c(20, 40000), SE.method = FALSE)
+
+}
+\seealso{
+\code{\link{rate}}
+
+Other rate functions:
+\code{\link{rate}()}
+}
+\author{
+Matti Rantanen
+}
+\concept{rate functions}
diff --git a/man/relpois.Rd b/man/relpois.Rd
index dff50ec..ee47af4 100644
--- a/man/relpois.Rd
+++ b/man/relpois.Rd
@@ -1,131 +1,131 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/relative_poisson.R
-\name{relpois}
-\alias{relpois}
-\title{Excess hazard Poisson model}
-\usage{
-relpois(data, formula, fot.breaks = NULL, subset = NULL, check = TRUE, ...)
-}
-\arguments{
-\item{data}{a dataset split with e.g. \code{\link{lexpand}};
-must have expected hazard merged within}
-
-\item{formula}{a formula which is passed on to \code{glm}; see Details}
-
-\item{fot.breaks}{optional; a numeric vector of [a,b) breaks to specify
-survival intervals over the follow-up time; if \code{NULL}, the
-existing breaks along the mandatory \code{fot} time scale in \code{data}
-are used (e.g. the breaks for \code{fot} supplied to \code{lexpand})}
-
-\item{subset}{a logical vector or condition; e.g. \code{subset = sex == 1};
-limits the data before estimation}
-
-\item{check}{logical; if \code{TRUE}, tabulates excess cases by all
-factor variables in the formula to check for negative / \code{NA}
-excess cases before fitting the GLM}
-
-\item{...}{any argument passed on to \code{glm}}
-}
-\value{
-A \code{glm} object created using a custom Poisson family construct. Some
-\code{glm} methods are applicable.
-}
-\description{
-Estimate a Poisson piecewise constant excess
-hazards model
-}
-\details{
-\strong{Basics}
-
-\code{relpois} employs a custom link function of the Poisson variety
-to estimate piecewise constant parametric excess hazards. The pieces
-are determined by \code{fot.breaks}. A \code{log(person-years)} offset
-is passed automatically to the \code{glm} call.
-
-\strong{Formula usage}
-
-The formula can be used like any ordinary \code{glm} formula. The user must
-define the outcome in some manner, which is usually \code{lex.Xst} after splitting
-with e.g. \code{lexpand}. The exception is the possibility of including
-the baseline excess hazard terms by including the
-reserved term \code{FOT} in the formula.
-
-For example, \code{lex.Xst != 0 ~ FOT + agegr} estimates a model with constant
-excess hazards at the follow-up intervals as specified by
-the pertinent breaks used in splitting \code{data},
-as well as for the different age groups.
-\code{FOT} is created ad hoc if it is used in the formula.
-If you leave out \code{FOT}, the hazard is effectively
-assumed to be constant across the whole follow-up time.
-
-You can also simply use your own follow-up time interval variable that
-you have created before calling \code{relpois}. However, when using
-\code{FOT}, \code{relpois} automatically checks for e.g.
-negative excess cases in follow-up intervals,
-allowing for quickly finding splitting breaks
-where model estimation is possible. It also drops any data outside the
-follow-up time window.
-
-\strong{Splitting and merging population hazard}
-
-The easiest way to both split and to include population hazard information is
-by using \code{\link{lexpand}}. You may also fairly easily do it by hand
-by splitting first and then merging in your population hazard information.
-
-
-\strong{Data requirements}
-
-The population hazard information must be available for each record and named
-\code{pop.haz}. The follow-up time variable must be named \code{"fot"} e.g.
-as a result of using \code{lexpand}. The \code{lex.dur} variable must also
-be present, containing person-year information.
-}
-\examples{
-## use the simulated rectal cancer cohort
-data("sire", package = "popEpi")
-sire$agegr <- cut(sire$dg_age, c(0,45,60,Inf), right=FALSE)
-
-## usable straight away after splitting
-fb <- c(0,3/12,6/12,1,2,3,4,5)
-x <- lexpand(sire, birth = bi_date, entry = dg_date,
- exit = ex_date, status=status,
- breaks = list(fot=fb), pophaz=popmort)
-rpm <- relpois(x, formula = lex.Xst \%in\% 1:2 ~ FOT + agegr)
-
-## some methods for glm work. e.g. test for interaction
-\donttest{
-rpm2 <- relpois(x, formula = lex.Xst \%in\% 1:2 ~ FOT*agegr)
-anova(rpm, rpm2, test="LRT")
-AIC(rpm, rpm2)
-## update() won't work currently
-}
-}
-\references{
-Paul W Dickman, Andy Sloggett, Michael Hills, and Timo Hakulinen.
-Regression models for relative survival.
-Stat Med. 2004 Jan 15;23(1):51-64.
-\doi{10.1002/sim.1597}
-}
-\seealso{
-\code{\link{lexpand}}, \code{\link{poisson}}, \code{\link{glm}}
-
-Other main functions:
-\code{\link{Surv}()},
-\code{\link{rate}()},
-\code{\link{relpois_ag}()},
-\code{\link{sirspline}()},
-\code{\link{sir}()},
-\code{\link{survmean}()},
-\code{\link{survtab_ag}()},
-\code{\link{survtab}()}
-
-Other relpois functions:
-\code{\link{RPL}},
-\code{\link{relpois_ag}()},
-\code{\link{rpcurve}()}
-}
-\author{
-Joonas Miettinen, Karri Seppa
-}
-\concept{main functions}
-\concept{relpois functions}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/relative_poisson.R
+\name{relpois}
+\alias{relpois}
+\title{Excess hazard Poisson model}
+\usage{
+relpois(data, formula, fot.breaks = NULL, subset = NULL, check = TRUE, ...)
+}
+\arguments{
+\item{data}{a dataset split with e.g. \code{\link{lexpand}};
+must have expected hazard merged within}
+
+\item{formula}{a formula which is passed on to \code{glm}; see Details}
+
+\item{fot.breaks}{optional; a numeric vector of [a,b) breaks to specify
+survival intervals over the follow-up time; if \code{NULL}, the
+existing breaks along the mandatory \code{fot} time scale in \code{data}
+are used (e.g. the breaks for \code{fot} supplied to \code{lexpand})}
+
+\item{subset}{a logical vector or condition; e.g. \code{subset = sex == 1};
+limits the data before estimation}
+
+\item{check}{logical; if \code{TRUE}, tabulates excess cases by all
+factor variables in the formula to check for negative / \code{NA}
+excess cases before fitting the GLM}
+
+\item{...}{any argument passed on to \code{glm}}
+}
+\value{
+A \code{glm} object created using a custom Poisson family construct. Some
+\code{glm} methods are applicable.
+}
+\description{
+Estimate a Poisson piecewise constant excess
+hazards model
+}
+\details{
+\strong{Basics}
+
+\code{relpois} employs a custom link function of the Poisson variety
+to estimate piecewise constant parametric excess hazards. The pieces
+are determined by \code{fot.breaks}. A \code{log(person-years)} offset
+is passed automatically to the \code{glm} call.
+
+\strong{Formula usage}
+
+The formula can be used like any ordinary \code{glm} formula. The user must
+define the outcome in some manner, which is usually \code{lex.Xst} after splitting
+with e.g. \code{lexpand}. The exception is the possibility of including
+the baseline excess hazard terms by including the
+reserved term \code{FOT} in the formula.
+
+For example, \code{lex.Xst != 0 ~ FOT + agegr} estimates a model with constant
+excess hazards at the follow-up intervals as specified by
+the pertinent breaks used in splitting \code{data},
+as well as for the different age groups.
+\code{FOT} is created ad hoc if it is used in the formula.
+If you leave out \code{FOT}, the hazard is effectively
+assumed to be constant across the whole follow-up time.
+
+You can also simply use your own follow-up time interval variable that
+you have created before calling \code{relpois}. However, when using
+\code{FOT}, \code{relpois} automatically checks for e.g.
+negative excess cases in follow-up intervals,
+allowing for quickly finding splitting breaks
+where model estimation is possible. It also drops any data outside the
+follow-up time window.
+
+\strong{Splitting and merging population hazard}
+
+The easiest way to both split and to include population hazard information is
+by using \code{\link{lexpand}}. You may also fairly easily do it by hand
+by splitting first and then merging in your population hazard information.
+
+
+\strong{Data requirements}
+
+The population hazard information must be available for each record and named
+\code{pop.haz}. The follow-up time variable must be named \code{"fot"} e.g.
+as a result of using \code{lexpand}. The \code{lex.dur} variable must also
+be present, containing person-year information.
+}
+\examples{
+## use the simulated rectal cancer cohort
+data("sire", package = "popEpi")
+sire$agegr <- cut(sire$dg_age, c(0,45,60,Inf), right=FALSE)
+
+## usable straight away after splitting
+fb <- c(0,3/12,6/12,1,2,3,4,5)
+x <- lexpand(sire, birth = bi_date, entry = dg_date,
+ exit = ex_date, status=status,
+ breaks = list(fot=fb), pophaz=popmort)
+rpm <- relpois(x, formula = lex.Xst \%in\% 1:2 ~ FOT + agegr)
+
+## some methods for glm work. e.g. test for interaction
+\donttest{
+rpm2 <- relpois(x, formula = lex.Xst \%in\% 1:2 ~ FOT*agegr)
+anova(rpm, rpm2, test="LRT")
+AIC(rpm, rpm2)
+## update() won't work currently
+}
+}
+\references{
+Paul W Dickman, Andy Sloggett, Michael Hills, and Timo Hakulinen.
+Regression models for relative survival.
+Stat Med. 2004 Jan 15;23(1):51-64.
+\doi{10.1002/sim.1597}
+}
+\seealso{
+\code{\link{lexpand}}, \code{\link{poisson}}, \code{\link{glm}}
+
+Other main functions:
+\code{\link{Surv}()},
+\code{\link{rate}()},
+\code{\link{relpois_ag}()},
+\code{\link{sirspline}()},
+\code{\link{sir}()},
+\code{\link{survmean}()},
+\code{\link{survtab_ag}()},
+\code{\link{survtab}()}
+
+Other relpois functions:
+\code{\link{RPL}},
+\code{\link{relpois_ag}()},
+\code{\link{rpcurve}()}
+}
+\author{
+Joonas Miettinen, Karri Seppa
+}
+\concept{main functions}
+\concept{relpois functions}
diff --git a/man/relpois_ag.Rd b/man/relpois_ag.Rd
index 52510d1..1f2681e 100644
--- a/man/relpois_ag.Rd
+++ b/man/relpois_ag.Rd
@@ -1,112 +1,112 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/relative_poisson.R
-\name{relpois_ag}
-\alias{relpois_ag}
-\title{Excess hazard Poisson model}
-\usage{
-relpois_ag(
- formula,
- data,
- d.exp,
- offset = NULL,
- breaks = NULL,
- subset = NULL,
- piecewise = TRUE,
- check = TRUE,
- ...
-)
-}
-\arguments{
-\item{formula}{a formula with the counts of events as the response.
-Passed on to \code{glm}. May contain usage of the \code{offset()} function
-instead of supplying the offset for the Poisson model via the argument
-\code{offset}.}
-
-\item{data}{an \code{aggre} object (an aggregated data set;
-see \code{\link{as.aggre}} and \code{\link{aggre}})}
-
-\item{d.exp}{the counts of expected cases. Mandatory.
-E.g. \code{d.exp = EXC_CASES}, where \code{EXC_CASES} is a column in data.}
-
-\item{offset}{the offset for the Poisson model, supplied as e.g.
-\code{offset = log(PTIME)}, where \code{PTIME} is a subject-time
-variable in data. Not mandatory, but almost always should be supplied.}
-
-\item{breaks}{optional; a numeric vector of [a,b) breaks to specify
-survival intervals over the follow-up time; if \code{NULL}, the
-existing breaks along the mandatory time scale mentioned in \code{formula}
-are used}
-
-\item{subset}{a logical vector or condition; e.g. \code{subset = sex == 1};
-limits the data before estimation}
-
-\item{piecewise}{\code{logical}; if \code{TRUE}, and if any time scale
-from data is used (mentioned) in the formula, the time scale is
-transformed into a factor variable indicating intervals on the time scale.
-Otherwise the time scale left as it is, usually a numeric variable.
-E.g. if \code{formula = counts ~ TS1*VAR1}, \code{TS1} is transformed
-into a factor before fitting model.}
-
-\item{check}{\code{logical}; if \code{TRUE}, performs check on the
-negativity excess cases by factor-like covariates in formula -
-negative excess cases will very likely lead to non-converging model}
-
-\item{...}{any other argument passed on to \code{\link[stats]{glm}} such as
-\code{control} or \code{weights}}
-}
-\value{
-A \code{relpois} object created using a custom Poisson family construct.
-}
-\description{
-Estimate a Poisson Piecewise Constant Excess
-Hazards Model
-}
-\examples{
-## use the simulated rectal cancer cohort
-data(sire, package = "popEpi")
-sire$agegr <- cut(sire$dg_age, c(0,45,60,Inf), right=FALSE)
-
-## create aggregated example data
-fb <- c(0,3/12,6/12,1,2,3,4,5)
-x <- lexpand(sire, birth = bi_date, entry = dg_date,
- exit = ex_date, status=status \%in\% 1:2,
- breaks = list(fot=fb),
- pophaz=popmort, pp = FALSE,
- aggre = list(agegr, fot))
-
-## fit model using aggregated data
-rpm <- relpois_ag(formula = from0to1 ~ fot + agegr, data = x,
- d.exp = d.exp, offset = log(pyrs))
-summary(rpm)
-
-## the usual functions for handling glm models work
-rpm2 <- update(rpm, . ~ fot*agegr)
-anova(rpm, rpm2, test="LRT")
-AIC(rpm, rpm2)
-
-## other features such as residuals or predicting are not guaranteed
-## to work as intended.
-}
-\seealso{
-\code{\link{lexpand}}, \code{\link{poisson}}, \code{\link{glm}}
-
-Other main functions:
-\code{\link{Surv}()},
-\code{\link{rate}()},
-\code{\link{relpois}()},
-\code{\link{sirspline}()},
-\code{\link{sir}()},
-\code{\link{survmean}()},
-\code{\link{survtab_ag}()},
-\code{\link{survtab}()}
-
-Other relpois functions:
-\code{\link{RPL}},
-\code{\link{relpois}()},
-\code{\link{rpcurve}()}
-}
-\author{
-Joonas Miettinen, Karri Seppa
-}
-\concept{main functions}
-\concept{relpois functions}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/relative_poisson.R
+\name{relpois_ag}
+\alias{relpois_ag}
+\title{Excess hazard Poisson model}
+\usage{
+relpois_ag(
+ formula,
+ data,
+ d.exp,
+ offset = NULL,
+ breaks = NULL,
+ subset = NULL,
+ piecewise = TRUE,
+ check = TRUE,
+ ...
+)
+}
+\arguments{
+\item{formula}{a formula with the counts of events as the response.
+Passed on to \code{glm}. May contain usage of the \code{offset()} function
+instead of supplying the offset for the Poisson model via the argument
+\code{offset}.}
+
+\item{data}{an \code{aggre} object (an aggregated data set;
+see \code{\link{as.aggre}} and \code{\link{aggre}})}
+
+\item{d.exp}{the counts of expected cases. Mandatory.
+E.g. \code{d.exp = EXC_CASES}, where \code{EXC_CASES} is a column in data.}
+
+\item{offset}{the offset for the Poisson model, supplied as e.g.
+\code{offset = log(PTIME)}, where \code{PTIME} is a subject-time
+variable in data. Not mandatory, but almost always should be supplied.}
+
+\item{breaks}{optional; a numeric vector of [a,b) breaks to specify
+survival intervals over the follow-up time; if \code{NULL}, the
+existing breaks along the mandatory time scale mentioned in \code{formula}
+are used}
+
+\item{subset}{a logical vector or condition; e.g. \code{subset = sex == 1};
+limits the data before estimation}
+
+\item{piecewise}{\code{logical}; if \code{TRUE}, and if any time scale
+from data is used (mentioned) in the formula, the time scale is
+transformed into a factor variable indicating intervals on the time scale.
+Otherwise the time scale left as it is, usually a numeric variable.
+E.g. if \code{formula = counts ~ TS1*VAR1}, \code{TS1} is transformed
+into a factor before fitting model.}
+
+\item{check}{\code{logical}; if \code{TRUE}, performs check on the
+negativity excess cases by factor-like covariates in formula -
+negative excess cases will very likely lead to non-converging model}
+
+\item{...}{any other argument passed on to \code{\link[stats]{glm}} such as
+\code{control} or \code{weights}}
+}
+\value{
+A \code{relpois} object created using a custom Poisson family construct.
+}
+\description{
+Estimate a Poisson Piecewise Constant Excess
+Hazards Model
+}
+\examples{
+## use the simulated rectal cancer cohort
+data(sire, package = "popEpi")
+sire$agegr <- cut(sire$dg_age, c(0,45,60,Inf), right=FALSE)
+
+## create aggregated example data
+fb <- c(0,3/12,6/12,1,2,3,4,5)
+x <- lexpand(sire, birth = bi_date, entry = dg_date,
+ exit = ex_date, status=status \%in\% 1:2,
+ breaks = list(fot=fb),
+ pophaz=popmort, pp = FALSE,
+ aggre = list(agegr, fot))
+
+## fit model using aggregated data
+rpm <- relpois_ag(formula = from0to1 ~ fot + agegr, data = x,
+ d.exp = d.exp, offset = log(pyrs))
+summary(rpm)
+
+## the usual functions for handling glm models work
+rpm2 <- update(rpm, . ~ fot*agegr)
+anova(rpm, rpm2, test="LRT")
+AIC(rpm, rpm2)
+
+## other features such as residuals or predicting are not guaranteed
+## to work as intended.
+}
+\seealso{
+\code{\link{lexpand}}, \code{\link{poisson}}, \code{\link{glm}}
+
+Other main functions:
+\code{\link{Surv}()},
+\code{\link{rate}()},
+\code{\link{relpois}()},
+\code{\link{sirspline}()},
+\code{\link{sir}()},
+\code{\link{survmean}()},
+\code{\link{survtab_ag}()},
+\code{\link{survtab}()}
+
+Other relpois functions:
+\code{\link{RPL}},
+\code{\link{relpois}()},
+\code{\link{rpcurve}()}
+}
+\author{
+Joonas Miettinen, Karri Seppa
+}
+\concept{main functions}
+\concept{relpois functions}
diff --git a/man/robust_values.Rd b/man/robust_values.Rd
index c19dad9..fc8d257 100644
--- a/man/robust_values.Rd
+++ b/man/robust_values.Rd
@@ -1,53 +1,53 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/utility_functions.R
-\name{robust_values}
-\alias{robust_values}
-\title{Convert values to numeric robustly}
-\usage{
-robust_values(num.values, force = FALSE, messages = TRUE)
-}
-\arguments{
-\item{num.values}{values to convert to numeric}
-
-\item{force}{logical; if \code{TRUE}, returns a vector of values where values that cannot be interpreted as numeric are
-set to \code{NA}; if \code{FALSE}, returns the original vector and gives a warning if any value cannot be interpreted as
-numeric.}
-
-\item{messages}{logical; if \code{TRUE}, returns a message of what was done with the \code{num.values}}
-}
-\value{
-A numeric vector.
-}
-\description{
-Brute force solution for ensuring a variable is numeric by
-coercing a variable of any type first to factor and then to numeric
-}
-\note{
-Returns \code{NULL} if given \code{num.values} is \code{NULL}.
-}
-\examples{
-## this works
-values <- c("1", "3", "5")
-values <- robust_values(values)
-
-## this works
-values <- c("1", "3", "5", NA)
-values <- robust_values(values)
-
-## this returns originals and throws warnings
-values <- c("1", "3", "5", "a")
-suppressWarnings(
- values <- robust_values(values)
-)
-
-
-## this forces "a" to NA and works otherwise; throws warning about NAs
-values <- c("1", "3", "5", "a")
-suppressWarnings(
- values <- robust_values(values, force=TRUE)
-)
-
-}
-\author{
-Joonas Miettinen
-}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/utility_functions.R
+\name{robust_values}
+\alias{robust_values}
+\title{Convert values to numeric robustly}
+\usage{
+robust_values(num.values, force = FALSE, messages = TRUE)
+}
+\arguments{
+\item{num.values}{values to convert to numeric}
+
+\item{force}{logical; if \code{TRUE}, returns a vector of values where values that cannot be interpreted as numeric are
+set to \code{NA}; if \code{FALSE}, returns the original vector and gives a warning if any value cannot be interpreted as
+numeric.}
+
+\item{messages}{logical; if \code{TRUE}, returns a message of what was done with the \code{num.values}}
+}
+\value{
+A numeric vector.
+}
+\description{
+Brute force solution for ensuring a variable is numeric by
+coercing a variable of any type first to factor and then to numeric
+}
+\note{
+Returns \code{NULL} if given \code{num.values} is \code{NULL}.
+}
+\examples{
+## this works
+values <- c("1", "3", "5")
+values <- robust_values(values)
+
+## this works
+values <- c("1", "3", "5", NA)
+values <- robust_values(values)
+
+## this returns originals and throws warnings
+values <- c("1", "3", "5", "a")
+suppressWarnings(
+ values <- robust_values(values)
+)
+
+
+## this forces "a" to NA and works otherwise; throws warning about NAs
+values <- c("1", "3", "5", "a")
+suppressWarnings(
+ values <- robust_values(values, force=TRUE)
+)
+
+}
+\author{
+Joonas Miettinen
+}
diff --git a/man/rpcurve.Rd b/man/rpcurve.Rd
index f0f15ac..40cf2b8 100644
--- a/man/rpcurve.Rd
+++ b/man/rpcurve.Rd
@@ -1,74 +1,74 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/relative_poisson_net_survival.R
-\name{rpcurve}
-\alias{rpcurve}
-\title{Marginal piecewise parametric relative survival curve}
-\usage{
-rpcurve(object)
-}
-\arguments{
-\item{object}{a \code{relpois} object}
-}
-\value{
-A `data.table` of relative survival curves.
-}
-\description{
-Fit a marginal relative survival curve based on a \code{relpois} fit
-}
-\details{
-Estimates a marginal curve, i.e. the average of all
-possible individual curves.
-
-Only supported when the reserved \code{FOT} variable was used in \code{relpois}.
-Computes a curve for each unique combination of covariates (e.g. 4 sets)
-and returns a weighted average curve based on the counts
-of subjects for each combination (e.g. 1000, 125, 50, 25 respectively).
-Fairly fast when only categorical variables have been used, otherwise
-go get a cup of coffee.
-
-If delayed entry is present in data due to period analysis limiting,
-the marginal curve is constructed only for those whose follow-up started
-in the respective period.
-}
-\examples{
-\donttest{
-## use the simulated rectal cancer cohort
-data("sire", package = "popEpi")
-ab <- c(0,45,55,65,70,Inf)
-sire$agegr <- cut(sire$dg_age, breaks = ab, right = FALSE)
-
-BL <- list(fot= seq(0,10,1/12))
-pm <- data.frame(popEpi::popmort)
-x <- lexpand(sire, breaks=BL, pophaz=pm,
- birth = bi_date,
- entry = dg_date, exit = ex_date,
- status = status \%in\% 1:2)
-
-rpm <- relpois(x, formula = lex.Xst \%in\% 1:2 ~ -1+ FOT + agegr,
- fot.breaks=c(0,0.25,0.5,1:8,10))
-pmc <- rpcurve(rpm)
-
-## compare with non-parametric estimates
-names(pm) <- c("sex", "per", "age", "haz")
-x$agegr <- cut(x$dg_age, c(0,45,55,65,75,Inf), right = FALSE)
-st <- survtab(fot ~ adjust(agegr), data = x, weights = "internal",
- pophaz = pm)
-
-
-plot(st, y = "r.e2.as")
-lines(y = pmc$est, x = pmc$Tstop, col="red")
-}
-
-
-
-}
-\seealso{
-Other relpois functions:
-\code{\link{RPL}},
-\code{\link{relpois_ag}()},
-\code{\link{relpois}()}
-}
-\author{
-Joonas Miettinen
-}
-\concept{relpois functions}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/relative_poisson_net_survival.R
+\name{rpcurve}
+\alias{rpcurve}
+\title{Marginal piecewise parametric relative survival curve}
+\usage{
+rpcurve(object)
+}
+\arguments{
+\item{object}{a \code{relpois} object}
+}
+\value{
+A `data.table` of relative survival curves.
+}
+\description{
+Fit a marginal relative survival curve based on a \code{relpois} fit
+}
+\details{
+Estimates a marginal curve, i.e. the average of all
+possible individual curves.
+
+Only supported when the reserved \code{FOT} variable was used in \code{relpois}.
+Computes a curve for each unique combination of covariates (e.g. 4 sets)
+and returns a weighted average curve based on the counts
+of subjects for each combination (e.g. 1000, 125, 50, 25 respectively).
+Fairly fast when only categorical variables have been used, otherwise
+go get a cup of coffee.
+
+If delayed entry is present in data due to period analysis limiting,
+the marginal curve is constructed only for those whose follow-up started
+in the respective period.
+}
+\examples{
+\donttest{
+## use the simulated rectal cancer cohort
+data("sire", package = "popEpi")
+ab <- c(0,45,55,65,70,Inf)
+sire$agegr <- cut(sire$dg_age, breaks = ab, right = FALSE)
+
+BL <- list(fot= seq(0,10,1/12))
+pm <- data.frame(popEpi::popmort)
+x <- lexpand(sire, breaks=BL, pophaz=pm,
+ birth = bi_date,
+ entry = dg_date, exit = ex_date,
+ status = status \%in\% 1:2)
+
+rpm <- relpois(x, formula = lex.Xst \%in\% 1:2 ~ -1+ FOT + agegr,
+ fot.breaks=c(0,0.25,0.5,1:8,10))
+pmc <- rpcurve(rpm)
+
+## compare with non-parametric estimates
+names(pm) <- c("sex", "per", "age", "haz")
+x$agegr <- cut(x$dg_age, c(0,45,55,65,75,Inf), right = FALSE)
+st <- survtab(fot ~ adjust(agegr), data = x, weights = "internal",
+ pophaz = pm)
+
+
+plot(st, y = "r.e2.as")
+lines(y = pmc$est, x = pmc$Tstop, col="red")
+}
+
+
+
+}
+\seealso{
+Other relpois functions:
+\code{\link{RPL}},
+\code{\link{relpois_ag}()},
+\code{\link{relpois}()}
+}
+\author{
+Joonas Miettinen
+}
+\concept{relpois functions}
diff --git a/man/setaggre.Rd b/man/setaggre.Rd
index 685e733..fe265c4 100644
--- a/man/setaggre.Rd
+++ b/man/setaggre.Rd
@@ -1,59 +1,59 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/aggregating.R
-\name{setaggre}
-\alias{setaggre}
-\title{Set \code{aggre} attributes to an object by modifying in place}
-\usage{
-setaggre(x, values = NULL, by = NULL, breaks = NULL)
-}
-\arguments{
-\item{x}{a \code{data.frame} or \code{data.table}}
-
-\item{values}{a character string vector; the names of value variables}
-
-\item{by}{a character string vector; the names of variables by which
-\code{values} have been tabulated}
-
-\item{breaks}{a list of breaks, where each element is a breaks vector
-as usually passed to e.g. \code{\link{splitLexisDT}}. The list must be
-fully named, with the names corresponding to time scales at the aggregate
-level in your data. Every unique value in a time scale variable in data must
-also exist in the corresponding vector in the breaks list.}
-}
-\value{
-Returns `x` invisibly after setting attributes to it without taking a copy.
-This function is called for its side effects.
-}
-\description{
-Coerces an R object to an \code{aggre} object, identifying
-the object as one containing aggregated counts, person-years and other
-information. \code{setaggre} modifies in place without taking any copies.
-Retains all other attributes.
-}
-\details{
-\code{setaggre} sets \code{x} to the \code{aggre} class in place
-without taking a copy as e.g. \code{as.data.frame.XXX} functions do; see e.g.
-\code{\link[data.table]{setDT}}.
-}
-\examples{
-df <- data.frame(sex = rep(c("male", "female"), each = 5),
- obs = rpois(10, rep(7,5, each=5)),
- pyrs = rpois(10, lambda = 10000))
-## without any breaks
-setaggre(df, values = c("obs", "pyrs"), by = "sex")
-df <- data.frame(df)
-df$FUT <- 0:4
-## with breaks list
-setaggre(df, values = c("obs", "pyrs"), by = "sex", breaks = list(FUT = 0:5))
-}
-\seealso{
-Other aggregation functions:
-\code{\link{aggre}()},
-\code{\link{as.aggre}()},
-\code{\link{lexpand}()},
-\code{\link{summary.aggre}()}
-}
-\author{
-Joonas Miettinen
-}
-\concept{aggregation functions}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/aggregating.R
+\name{setaggre}
+\alias{setaggre}
+\title{Set \code{aggre} attributes to an object by modifying in place}
+\usage{
+setaggre(x, values = NULL, by = NULL, breaks = NULL)
+}
+\arguments{
+\item{x}{a \code{data.frame} or \code{data.table}}
+
+\item{values}{a character string vector; the names of value variables}
+
+\item{by}{a character string vector; the names of variables by which
+\code{values} have been tabulated}
+
+\item{breaks}{a list of breaks, where each element is a breaks vector
+as usually passed to e.g. \code{\link{splitLexisDT}}. The list must be
+fully named, with the names corresponding to time scales at the aggregate
+level in your data. Every unique value in a time scale variable in data must
+also exist in the corresponding vector in the breaks list.}
+}
+\value{
+Returns `x` invisibly after setting attributes to it without taking a copy.
+This function is called for its side effects.
+}
+\description{
+Coerces an R object to an \code{aggre} object, identifying
+the object as one containing aggregated counts, person-years and other
+information. \code{setaggre} modifies in place without taking any copies.
+Retains all other attributes.
+}
+\details{
+\code{setaggre} sets \code{x} to the \code{aggre} class in place
+without taking a copy as e.g. \code{as.data.frame.XXX} functions do; see e.g.
+\code{\link[data.table]{setDT}}.
+}
+\examples{
+df <- data.frame(sex = rep(c("male", "female"), each = 5),
+ obs = rpois(10, rep(7,5, each=5)),
+ pyrs = rpois(10, lambda = 10000))
+## without any breaks
+setaggre(df, values = c("obs", "pyrs"), by = "sex")
+df <- data.frame(df)
+df$FUT <- 0:4
+## with breaks list
+setaggre(df, values = c("obs", "pyrs"), by = "sex", breaks = list(FUT = 0:5))
+}
+\seealso{
+Other aggregation functions:
+\code{\link{aggre}()},
+\code{\link{as.aggre}()},
+\code{\link{lexpand}()},
+\code{\link{summary.aggre}()}
+}
+\author{
+Joonas Miettinen
+}
+\concept{aggregation functions}
diff --git a/man/setclass.Rd b/man/setclass.Rd
index f8f50c9..94e7767 100644
--- a/man/setclass.Rd
+++ b/man/setclass.Rd
@@ -1,27 +1,27 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/utility_functions.R
-\name{setclass}
-\alias{setclass}
-\title{Set the class of an object (convenience function for
- \code{setattr(obj, "class", CLASS)}); can add instead of replace}
-\usage{
-setclass(obj, cl, add = FALSE, add.place = "first")
-}
-\arguments{
-\item{obj}{and object for which to set class}
-
-\item{cl}{class to set}
-
-\item{add}{if \code{TRUE}, adds \code{cl} to the
-classes of the \code{obj}; otherwise replaces the class information}
-
-\item{add.place}{\code{"first"} or \code{"last"}; adds \code{cl}
-to the front or to the back of the \code{obj}'s class vector}
-}
-\description{
-Sets the class of an object in place to \code{cl}
-by replacing or adding
-}
-\author{
-Joonas Miettinen
-}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/utility_functions.R
+\name{setclass}
+\alias{setclass}
+\title{Set the class of an object (convenience function for
+ \code{setattr(obj, "class", CLASS)}); can add instead of replace}
+\usage{
+setclass(obj, cl, add = FALSE, add.place = "first")
+}
+\arguments{
+\item{obj}{and object for which to set class}
+
+\item{cl}{class to set}
+
+\item{add}{if \code{TRUE}, adds \code{cl} to the
+classes of the \code{obj}; otherwise replaces the class information}
+
+\item{add.place}{\code{"first"} or \code{"last"}; adds \code{cl}
+to the front or to the back of the \code{obj}'s class vector}
+}
+\description{
+Sets the class of an object in place to \code{cl}
+by replacing or adding
+}
+\author{
+Joonas Miettinen
+}
diff --git a/man/setcolsnull.Rd b/man/setcolsnull.Rd
index 369622d..460e409 100644
--- a/man/setcolsnull.Rd
+++ b/man/setcolsnull.Rd
@@ -1,41 +1,41 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/utility_functions.R
-\name{setcolsnull}
-\alias{setcolsnull}
-\title{Delete \code{data.table} columns if there}
-\usage{
-setcolsnull(
- DT = NULL,
- delete = NULL,
- keep = NULL,
- colorder = FALSE,
- soft = TRUE
-)
-}
-\arguments{
-\item{DT}{a \code{data.table}}
-
-\item{delete}{a character vector of column names to be deleted}
-
-\item{keep}{a character vector of column names to keep;
-the rest will be removed; \code{keep} overrides \code{delete}}
-
-\item{colorder}{logical; if \code{TRUE}, also does \code{setcolorder} using
-\code{keep}}
-
-\item{soft}{logical; if \code{TRUE}, does not cause an error if any variable
-name in \code{keep} or \code{delete} is missing; \code{soft = FALSE} useful
-for programming sometimes}
-}
-\value{
-Always returns `NULL` invisibly.
-This function is called for its side effects.
-}
-\description{
-Deletes columns in a \code{data.table} conveniently.
-May only delete columns that are found silently. Sometimes useful in e.g.
-\code{on.exit} expressions.
-}
-\author{
-Joonas Miettinen
-}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/utility_functions.R
+\name{setcolsnull}
+\alias{setcolsnull}
+\title{Delete \code{data.table} columns if there}
+\usage{
+setcolsnull(
+ DT = NULL,
+ delete = NULL,
+ keep = NULL,
+ colorder = FALSE,
+ soft = TRUE
+)
+}
+\arguments{
+\item{DT}{a \code{data.table}}
+
+\item{delete}{a character vector of column names to be deleted}
+
+\item{keep}{a character vector of column names to keep;
+the rest will be removed; \code{keep} overrides \code{delete}}
+
+\item{colorder}{logical; if \code{TRUE}, also does \code{setcolorder} using
+\code{keep}}
+
+\item{soft}{logical; if \code{TRUE}, does not cause an error if any variable
+name in \code{keep} or \code{delete} is missing; \code{soft = FALSE} useful
+for programming sometimes}
+}
+\value{
+Always returns `NULL` invisibly.
+This function is called for its side effects.
+}
+\description{
+Deletes columns in a \code{data.table} conveniently.
+May only delete columns that are found silently. Sometimes useful in e.g.
+\code{on.exit} expressions.
+}
+\author{
+Joonas Miettinen
+}
diff --git a/man/sibr.Rd b/man/sibr.Rd
index 1d1c449..1bd540e 100644
--- a/man/sibr.Rd
+++ b/man/sibr.Rd
@@ -1,46 +1,46 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/data_document.R
-\name{sibr}
-\alias{sibr}
-\title{sibr - a simulated cohort of Finnish female breast cancer patients}
-\format{
-data.table with columns
-\itemize{
- \item sex - gender of the patient (1 = female)
- \item bi_date - date of birth
- \item dg_date - date of cancer diagnosis
- \item ex_date - date of exit from follow-up (death or censoring)
- \item status - status of the person at exit; 0 alive; 1 dead due to pertinent cancer; 2 dead due to other causes
- \item dg_age - age at diagnosis expressed as fractional years
-}
-}
-\source{
-The Finnish Cancer Registry
-}
-\description{
-\code{sibr} is a simulated cohort pertaining female Finnish breast cancer patients
-diagnosed between 1993-2012. Instead of actual original dates, the dates are masked
-via modest randomization within several time windows. The dataset is additionally
-a random sample of 10 000 cases from the pertaining time window.
-}
-\details{
-The closing date for the pertinent data was 2012-12-31, meaning status information was
-available only up to that point --- hence the maximum possible \code{ex_date} is \code{2012-12-31}.
-}
-\seealso{
-Other popEpi data:
-\code{\link{ICSS}},
-\code{\link{meanpop_fi}},
-\code{\link{popmort}},
-\code{\link{sire}},
-\code{\link{stdpop101}},
-\code{\link{stdpop18}}
-
-Other survival data:
-\code{\link{sire}}
-}
-\author{
-Karri Seppa
-}
-\concept{popEpi data}
-\concept{survival data}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/data_document.R
+\name{sibr}
+\alias{sibr}
+\title{sibr - a simulated cohort of Finnish female breast cancer patients}
+\format{
+data.table with columns
+\itemize{
+ \item sex - gender of the patient (1 = female)
+ \item bi_date - date of birth
+ \item dg_date - date of cancer diagnosis
+ \item ex_date - date of exit from follow-up (death or censoring)
+ \item status - status of the person at exit; 0 alive; 1 dead due to pertinent cancer; 2 dead due to other causes
+ \item dg_age - age at diagnosis expressed as fractional years
+}
+}
+\source{
+The Finnish Cancer Registry
+}
+\description{
+\code{sibr} is a simulated cohort pertaining female Finnish breast cancer patients
+diagnosed between 1993-2012. Instead of actual original dates, the dates are masked
+via modest randomization within several time windows. The dataset is additionally
+a random sample of 10 000 cases from the pertaining time window.
+}
+\details{
+The closing date for the pertinent data was 2012-12-31, meaning status information was
+available only up to that point --- hence the maximum possible \code{ex_date} is \code{2012-12-31}.
+}
+\seealso{
+Other popEpi data:
+\code{\link{ICSS}},
+\code{\link{meanpop_fi}},
+\code{\link{popmort}},
+\code{\link{sire}},
+\code{\link{stdpop101}},
+\code{\link{stdpop18}}
+
+Other survival data:
+\code{\link{sire}}
+}
+\author{
+Karri Seppa
+}
+\concept{popEpi data}
+\concept{survival data}
diff --git a/man/sir.Rd b/man/sir.Rd
index c9b4714..f1e6446 100644
--- a/man/sir.Rd
+++ b/man/sir.Rd
@@ -1,219 +1,219 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/sir.R
-\name{sir}
-\alias{sir}
-\title{Calculate SIR or SMR}
-\usage{
-sir(
- coh.data,
- coh.obs,
- coh.pyrs,
- ref.data = NULL,
- ref.obs = NULL,
- ref.pyrs = NULL,
- ref.rate = NULL,
- subset = NULL,
- print = NULL,
- adjust = NULL,
- mstate = NULL,
- test.type = "homogeneity",
- conf.type = "profile",
- conf.level = 0.95,
- EAR = FALSE
-)
-}
-\arguments{
-\item{coh.data}{aggregated cohort data, see e.g. \code{\link{lexpand}}}
-
-\item{coh.obs}{variable name for observed cases; quoted or unquoted. A vector when using \code{mstata}.}
-
-\item{coh.pyrs}{variable name for person years in cohort data;
-quoted (as a string \code{'myvar'}) or unquoted (AKA as a name; \code{myvar})}
-
-\item{ref.data}{population data. Can be left NULL if \code{coh.data}
-is stratified in \code{print}. See \code{\link{pophaz}} for details.}
-
-\item{ref.obs}{variable name for observed cases; quoted or unquoted}
-
-\item{ref.pyrs}{variable name for person-years in population data; quoted or unquoted}
-
-\item{ref.rate}{population rate variable (cases/person-years). Overwrites
-arguments \code{ref.pyrs} and \code{ref.obs}. Quoted or unquoted}
-
-\item{subset}{logical condition to select data from \code{coh.data} before any computations}
-
-\item{print}{variable names to stratify results; quoted vector or unquoted named list with functions}
-
-\item{adjust}{variable names for adjusting without stratifying output; quoted vector or unquoted list}
-
-\item{mstate}{set column names for cause specific observations; quoted or unquoted. Relevant only
-when \code{coh.obs} length is two or more. See details.}
-
-\item{test.type}{Test for equal SIRs. Test available are 'homogeneity' and 'trend'.}
-
-\item{conf.type}{Confidence interval type: 'profile'(=default), 'wald' or 'univariate'.}
-
-\item{conf.level}{Level of type-I error in confidence intervals, default 0.05 is 95\% CI.}
-
-\item{EAR}{logical; TRUE calculates Excess Absolute Risks for univariate SIRs.
-(see details)}
-}
-\value{
-A sir-object that is a \code{data.table} with meta information in the attributes.
-}
-\description{
-Poisson modelled standardised incidence or mortality ratios (SIRs / SMRs) i.e.
-indirect method for calculating standardised rates. SIR is a ratio of observed and expected cases.
-Expected cases are derived by multiplying the strata-specific population rate with the
-corresponding person-years of the cohort.
-}
-\details{
-\code{sir} is a comprehensive tool for modelling SIRs/SMRs with flexible
-options to adjust and print SIRs, test homogeneity and utilize
-multi-state data. The cohort data and the variable names for observation
-counts and person-years are required.
-The reference data is optional, since the cohort data
-can be stratified (\code{print}) and compared to total.
-
-
-\strong{Adjust and print}
-
-A SIR can be adjusted or standardised using the covariates found in both \code{coh.data} and \code{ref.data}.
-Variable to adjust are given in \code{adjust}.
-Variable names needs to match in both \code{coh.data} and \code{ref.data}.
-Typical variables to adjust by are gender, age group and calendar period.
-
-\code{print} is used to stratify the SIR output. In other words, the variables
-assigned to \code{print} are the covariates of the Poisson model.
-Variable levels are treated as categorical.
-Variables can be assigned in both \code{print} and \code{adjust}.
-This means the output it adjusted and printed by these variables.
-
-\code{print} can also be a list of expressions. This enables changing variable
-names or transforming variables with functions such as \code{cut} and \code{round}.
-For example, the existing variables \code{agegroup} and \code{year} could be
-transformed to new levels using \code{cut} by
-
-\code{print = list( age.category = cut(agegroup, breaks = c(0,50,75,100)),
-year.cat = cut(year, seq(1950,2010,20)))}
-
-
-\strong{ref.rate or ref.obs & ref.pyrs}
-
-The population rate variable can be given to the \code{ref.rate} parameter.
-That is, when using e.g. the \code{popmort} or a comparable data file, one may
-supply \code{ref.rate} instead of \code{ref.obs} and \code{ref.pyrs}, which
-will be ignored if \code{ref.rate} is supplied.
-
-
-Note that if all the stratifying variables in
-\code{ref.data} are not listed in \code{adjust},
-or when the categories are otherwise combined,
-the (unweighted) mean of rates is used for computing expected cases.
-This might incur a small bias in comparison to when exact numbers of observations
-and person-years are available.
-
-
-
-\strong{mstate}
-
-E.g. using \code{lexpand} it's possible to compute counts for several outcomes
-so that the population at risk is same for each
-outcome such as a certain kind of cancer.
-The transition counts are in wide data format,
-and the relevant columns can be supplied to \code{sir}
-in a vector via the \code{coh.obs} argument.
-The name of the corresponding new column in \code{ref.data} is given in
-\code{mstate}. It's recommended to include the \code{mstate} variable in \code{adjust},
-so the corresponding information should also be available in \code{ref.data}.
-More examples in sir-vignette.
-
-This approach is analogous to where SIRs are calculated separately their
-own function calls.
-
-
-\strong{Other parameters}
-
-\code{univariate} confidence intervals are calculated using exact
-Poisson intervals (\code{poisson.ci}). The options \code{profile} and \code{wald} are
-is based on a Poisson regression model: profile-likelihood confidence intervals
-or Wald's normal-approximation. P-value is Poisson model based \code{conf.type}
-or calculated using the method described by Breslow and Day. Function automatically
-switches to another \code{conf.type} if calculation is not possible with a message.
-Usually model fit fails if there is print stratum with zero expected values.
-
-
-The LRT p-value tests the levels of \code{print}. The test can be either
-\code{"homogeneity"}, a likelihood ratio test where the model variables defined in
-\code{print} (factor) is compared to the constant model.
-Option \code{"trend"} tests if the linear trend of the continuous variable in
-\code{print} is significant (using model comparison).
-
-
-\strong{EAR: Excess Absolute Risk}
-
-Excess Absolute Risk is a simple way to quantify the absolute difference between cohort risk and
-population risk.
-Make sure that the person-years are calculated accordingly before using EAR. (when using mstate)
-
-Formula for EAR:
-\deqn{EAR = \frac{observed - expected}{person years} \times 1000.}{EAR = (obs - exp)/pyrs * 1000.}
-
-\strong{Data format}
-
-The data should be given in tabulated format. That is the number of observations
-and person-years are represented for each stratum.
-Note that also individual data is allowed as long as each observations,
-person-years, and print and adjust variables are presented in columns.
-The extra variables and levels are reduced automatically before estimating SIRs.
-Example of data format:
-
-\tabular{rrrrr}{
- sex \tab age \tab period \tab obs \tab pyrs \cr
- 0 \tab 1 \tab 2010 \tab 0 \tab 390 \cr
- 0 \tab 2 \tab 2010 \tab 5 \tab 385 \cr
- 1 \tab 1 \tab 2010 \tab 3 \tab 308 \cr
- 1 \tab 2 \tab 2010 \tab 12 \tab 315
-}
-}
-\examples{
-data(popmort)
-data(sire)
-c <- lexpand( sire, status = status, birth = bi_date, exit = ex_date, entry = dg_date,
- breaks = list(per = 1950:2013, age = 1:100, fot = c(0,10,20,Inf)),
- aggre = list(fot, agegroup = age, year = per, sex) )
-## SMR due other causes: status = 2
-se <- sir( coh.data = c, coh.obs = 'from0to2', coh.pyrs = 'pyrs',
- ref.data = popmort, ref.rate = 'haz',
- adjust = c('agegroup', 'year', 'sex'), print = 'fot')
-se
-## for examples see: vignette('sir')
-
-
-}
-\seealso{
-\code{\link{lexpand}}
-\href{../doc/sir.html}{A SIR calculation vignette}
-
-Other sir functions:
-\code{\link{lines.sirspline}()},
-\code{\link{plot.sirspline}()},
-\code{\link{sir_exp}()},
-\code{\link{sir_ratio}()},
-\code{\link{sirspline}()}
-
-Other main functions:
-\code{\link{Surv}()},
-\code{\link{rate}()},
-\code{\link{relpois_ag}()},
-\code{\link{relpois}()},
-\code{\link{sirspline}()},
-\code{\link{survmean}()},
-\code{\link{survtab_ag}()},
-\code{\link{survtab}()}
-}
-\author{
-Matti Rantanen, Joonas Miettinen
-}
-\concept{main functions}
-\concept{sir functions}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/sir.R
+\name{sir}
+\alias{sir}
+\title{Calculate SIR or SMR}
+\usage{
+sir(
+ coh.data,
+ coh.obs,
+ coh.pyrs,
+ ref.data = NULL,
+ ref.obs = NULL,
+ ref.pyrs = NULL,
+ ref.rate = NULL,
+ subset = NULL,
+ print = NULL,
+ adjust = NULL,
+ mstate = NULL,
+ test.type = "homogeneity",
+ conf.type = "profile",
+ conf.level = 0.95,
+ EAR = FALSE
+)
+}
+\arguments{
+\item{coh.data}{aggregated cohort data, see e.g. \code{\link{lexpand}}}
+
+\item{coh.obs}{variable name for observed cases; quoted or unquoted. A vector when using \code{mstata}.}
+
+\item{coh.pyrs}{variable name for person years in cohort data;
+quoted (as a string \code{'myvar'}) or unquoted (AKA as a name; \code{myvar})}
+
+\item{ref.data}{population data. Can be left NULL if \code{coh.data}
+is stratified in \code{print}. See \code{\link{pophaz}} for details.}
+
+\item{ref.obs}{variable name for observed cases; quoted or unquoted}
+
+\item{ref.pyrs}{variable name for person-years in population data; quoted or unquoted}
+
+\item{ref.rate}{population rate variable (cases/person-years). Overwrites
+arguments \code{ref.pyrs} and \code{ref.obs}. Quoted or unquoted}
+
+\item{subset}{logical condition to select data from \code{coh.data} before any computations}
+
+\item{print}{variable names to stratify results; quoted vector or unquoted named list with functions}
+
+\item{adjust}{variable names for adjusting without stratifying output; quoted vector or unquoted list}
+
+\item{mstate}{set column names for cause specific observations; quoted or unquoted. Relevant only
+when \code{coh.obs} length is two or more. See details.}
+
+\item{test.type}{Test for equal SIRs. Test available are 'homogeneity' and 'trend'.}
+
+\item{conf.type}{Confidence interval type: 'profile'(=default), 'wald' or 'univariate'.}
+
+\item{conf.level}{Level of type-I error in confidence intervals, default 0.05 is 95\% CI.}
+
+\item{EAR}{logical; TRUE calculates Excess Absolute Risks for univariate SIRs.
+(see details)}
+}
+\value{
+A sir-object that is a \code{data.table} with meta information in the attributes.
+}
+\description{
+Poisson modelled standardised incidence or mortality ratios (SIRs / SMRs) i.e.
+indirect method for calculating standardised rates. SIR is a ratio of observed and expected cases.
+Expected cases are derived by multiplying the strata-specific population rate with the
+corresponding person-years of the cohort.
+}
+\details{
+\code{sir} is a comprehensive tool for modelling SIRs/SMRs with flexible
+options to adjust and print SIRs, test homogeneity and utilize
+multi-state data. The cohort data and the variable names for observation
+counts and person-years are required.
+The reference data is optional, since the cohort data
+can be stratified (\code{print}) and compared to total.
+
+
+\strong{Adjust and print}
+
+A SIR can be adjusted or standardised using the covariates found in both \code{coh.data} and \code{ref.data}.
+Variable to adjust are given in \code{adjust}.
+Variable names needs to match in both \code{coh.data} and \code{ref.data}.
+Typical variables to adjust by are gender, age group and calendar period.
+
+\code{print} is used to stratify the SIR output. In other words, the variables
+assigned to \code{print} are the covariates of the Poisson model.
+Variable levels are treated as categorical.
+Variables can be assigned in both \code{print} and \code{adjust}.
+This means the output it adjusted and printed by these variables.
+
+\code{print} can also be a list of expressions. This enables changing variable
+names or transforming variables with functions such as \code{cut} and \code{round}.
+For example, the existing variables \code{agegroup} and \code{year} could be
+transformed to new levels using \code{cut} by
+
+\code{print = list( age.category = cut(agegroup, breaks = c(0,50,75,100)),
+year.cat = cut(year, seq(1950,2010,20)))}
+
+
+\strong{ref.rate or ref.obs & ref.pyrs}
+
+The population rate variable can be given to the \code{ref.rate} parameter.
+That is, when using e.g. the \code{popmort} or a comparable data file, one may
+supply \code{ref.rate} instead of \code{ref.obs} and \code{ref.pyrs}, which
+will be ignored if \code{ref.rate} is supplied.
+
+
+Note that if all the stratifying variables in
+\code{ref.data} are not listed in \code{adjust},
+or when the categories are otherwise combined,
+the (unweighted) mean of rates is used for computing expected cases.
+This might incur a small bias in comparison to when exact numbers of observations
+and person-years are available.
+
+
+
+\strong{mstate}
+
+E.g. using \code{lexpand} it's possible to compute counts for several outcomes
+so that the population at risk is same for each
+outcome such as a certain kind of cancer.
+The transition counts are in wide data format,
+and the relevant columns can be supplied to \code{sir}
+in a vector via the \code{coh.obs} argument.
+The name of the corresponding new column in \code{ref.data} is given in
+\code{mstate}. It's recommended to include the \code{mstate} variable in \code{adjust},
+so the corresponding information should also be available in \code{ref.data}.
+More examples in sir-vignette.
+
+This approach is analogous to where SIRs are calculated separately their
+own function calls.
+
+
+\strong{Other parameters}
+
+\code{univariate} confidence intervals are calculated using exact
+Poisson intervals (\code{poisson.ci}). The options \code{profile} and \code{wald} are
+is based on a Poisson regression model: profile-likelihood confidence intervals
+or Wald's normal-approximation. P-value is Poisson model based \code{conf.type}
+or calculated using the method described by Breslow and Day. Function automatically
+switches to another \code{conf.type} if calculation is not possible with a message.
+Usually model fit fails if there is print stratum with zero expected values.
+
+
+The LRT p-value tests the levels of \code{print}. The test can be either
+\code{"homogeneity"}, a likelihood ratio test where the model variables defined in
+\code{print} (factor) is compared to the constant model.
+Option \code{"trend"} tests if the linear trend of the continuous variable in
+\code{print} is significant (using model comparison).
+
+
+\strong{EAR: Excess Absolute Risk}
+
+Excess Absolute Risk is a simple way to quantify the absolute difference between cohort risk and
+population risk.
+Make sure that the person-years are calculated accordingly before using EAR. (when using mstate)
+
+Formula for EAR:
+\deqn{EAR = \frac{observed - expected}{person years} \times 1000.}{EAR = (obs - exp)/pyrs * 1000.}
+
+\strong{Data format}
+
+The data should be given in tabulated format. That is the number of observations
+and person-years are represented for each stratum.
+Note that also individual data is allowed as long as each observations,
+person-years, and print and adjust variables are presented in columns.
+The extra variables and levels are reduced automatically before estimating SIRs.
+Example of data format:
+
+\tabular{rrrrr}{
+ sex \tab age \tab period \tab obs \tab pyrs \cr
+ 0 \tab 1 \tab 2010 \tab 0 \tab 390 \cr
+ 0 \tab 2 \tab 2010 \tab 5 \tab 385 \cr
+ 1 \tab 1 \tab 2010 \tab 3 \tab 308 \cr
+ 1 \tab 2 \tab 2010 \tab 12 \tab 315
+}
+}
+\examples{
+data(popmort)
+data(sire)
+c <- lexpand( sire, status = status, birth = bi_date, exit = ex_date, entry = dg_date,
+ breaks = list(per = 1950:2013, age = 1:100, fot = c(0,10,20,Inf)),
+ aggre = list(fot, agegroup = age, year = per, sex) )
+## SMR due other causes: status = 2
+se <- sir( coh.data = c, coh.obs = 'from0to2', coh.pyrs = 'pyrs',
+ ref.data = popmort, ref.rate = 'haz',
+ adjust = c('agegroup', 'year', 'sex'), print = 'fot')
+se
+## for examples see: vignette('sir')
+
+
+}
+\seealso{
+\code{\link{lexpand}}
+\href{../doc/sir.html}{A SIR calculation vignette}
+
+Other sir functions:
+\code{\link{lines.sirspline}()},
+\code{\link{plot.sirspline}()},
+\code{\link{sir_exp}()},
+\code{\link{sir_ratio}()},
+\code{\link{sirspline}()}
+
+Other main functions:
+\code{\link{Surv}()},
+\code{\link{rate}()},
+\code{\link{relpois_ag}()},
+\code{\link{relpois}()},
+\code{\link{sirspline}()},
+\code{\link{survmean}()},
+\code{\link{survtab_ag}()},
+\code{\link{survtab}()}
+}
+\author{
+Matti Rantanen, Joonas Miettinen
+}
+\concept{main functions}
+\concept{sir functions}
diff --git a/man/sir_exp.Rd b/man/sir_exp.Rd
index 814aeda..e6c7690 100644
--- a/man/sir_exp.Rd
+++ b/man/sir_exp.Rd
@@ -1,121 +1,121 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/sir.R
-\name{sir_exp}
-\alias{sir_exp}
-\alias{sir_lex}
-\alias{sir_ag}
-\title{Calculate SMR}
-\usage{
-sir_exp(
- x,
- obs,
- exp,
- pyrs = NULL,
- print = NULL,
- conf.type = "profile",
- test.type = "homogeneity",
- conf.level = 0.95,
- subset = NULL
-)
-
-sir_lex(x, print = NULL, breaks = NULL, ...)
-
-sir_ag(
- x,
- obs = "from0to1",
- print = attr(x, "aggre.meta")$by,
- exp = "d.exp",
- pyrs = "pyrs",
- ...
-)
-}
-\arguments{
-\item{x}{Data set e.g. \code{aggre} or \code{Lexis} object
-(see: \code{\link{lexpand}})}
-
-\item{obs}{Variable name of the observed cases in the data set}
-
-\item{exp}{Variable name or expression for expected cases}
-
-\item{pyrs}{Variable name for person-years (optional)}
-
-\item{print}{Variables or expression to stratify the results}
-
-\item{conf.type}{select confidence interval type: (default=) `profile`, `wald`, `univariate`}
-
-\item{test.type}{Test for equal SIRs. Test available are 'homogeneity' and 'trend'}
-
-\item{conf.level}{Level of type-I error in confidence intervals, default 0.05 is 95\% CI}
-
-\item{subset}{a logical vector for subsetting data}
-
-\item{breaks}{a named list to split age group (age), period (per) or follow-up (fot).}
-
-\item{...}{pass arguments to \code{sir_exp}}
-}
-\value{
-A sir object
-}
-\description{
-Calculate Standardized Mortality Ratios (SMRs) using
-a single data set that includes
-observed and expected cases and additionally person-years.
-
-\code{sir_lex} solves SMR from a \code{\link{Lexis}} object
-calculated with \code{lexpand}.
-
-\code{sir_ag} solves SMR from a \code{\link{aggre}} object
-calculated using \code{\link{lexpand}}.
-}
-\details{
-These functions are intended to calculate SMRs from a single data set
-that includes both observed and expected number of cases. For example utilizing the
-argument \code{pop.haz} of the \code{\link{lexpand}}.
-
-\code{sir_lex} automatically exports the transition \code{fromXtoY} using the first
-state in \code{lex.Str} as \code{0} and all other as \code{1}. No missing values
-is allowed in observed, pop.haz or person-years.
-}
-\section{Functions}{
-\itemize{
-\item \code{sir_lex()}:
-
-\item \code{sir_ag()}:
-
-}}
-\examples{
-
-\donttest{
-BL <- list(fot = 0:5, per = c("2003-01-01","2008-01-01", "2013-01-01"))
-
-## Aggregated data
-x1 <- lexpand(sire, breaks = BL, status = status != 0,
- birth = bi_date, entry = dg_date, exit = ex_date,
- pophaz=popmort,
- aggre=list(sex, period = per, surv.int = fot))
-sir_ag(x1, print = 'period')
-
-
-# no aggreate or breaks
-x2 <- lexpand(sire, status = status != 0,
- birth = bi_date, entry = dg_date, exit = ex_date,
- pophaz=popmort)
-sir_lex(x2, breaks = BL, print = 'per')
-}
-
-}
-\seealso{
-\code{\link{lexpand}}
-\href{../doc/sir.html}{A SIR calculation vignette}
-
-Other sir functions:
-\code{\link{lines.sirspline}()},
-\code{\link{plot.sirspline}()},
-\code{\link{sir_ratio}()},
-\code{\link{sirspline}()},
-\code{\link{sir}()}
-}
-\author{
-Matti Rantanen
-}
-\concept{sir functions}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/sir.R
+\name{sir_exp}
+\alias{sir_exp}
+\alias{sir_lex}
+\alias{sir_ag}
+\title{Calculate SMR}
+\usage{
+sir_exp(
+ x,
+ obs,
+ exp,
+ pyrs = NULL,
+ print = NULL,
+ conf.type = "profile",
+ test.type = "homogeneity",
+ conf.level = 0.95,
+ subset = NULL
+)
+
+sir_lex(x, print = NULL, breaks = NULL, ...)
+
+sir_ag(
+ x,
+ obs = "from0to1",
+ print = attr(x, "aggre.meta")$by,
+ exp = "d.exp",
+ pyrs = "pyrs",
+ ...
+)
+}
+\arguments{
+\item{x}{Data set e.g. \code{aggre} or \code{Lexis} object
+(see: \code{\link{lexpand}})}
+
+\item{obs}{Variable name of the observed cases in the data set}
+
+\item{exp}{Variable name or expression for expected cases}
+
+\item{pyrs}{Variable name for person-years (optional)}
+
+\item{print}{Variables or expression to stratify the results}
+
+\item{conf.type}{select confidence interval type: (default=) `profile`, `wald`, `univariate`}
+
+\item{test.type}{Test for equal SIRs. Test available are 'homogeneity' and 'trend'}
+
+\item{conf.level}{Level of type-I error in confidence intervals, default 0.05 is 95\% CI}
+
+\item{subset}{a logical vector for subsetting data}
+
+\item{breaks}{a named list to split age group (age), period (per) or follow-up (fot).}
+
+\item{...}{pass arguments to \code{sir_exp}}
+}
+\value{
+A sir object
+}
+\description{
+Calculate Standardized Mortality Ratios (SMRs) using
+a single data set that includes
+observed and expected cases and additionally person-years.
+
+\code{sir_lex} solves SMR from a \code{\link{Lexis}} object
+calculated with \code{lexpand}.
+
+\code{sir_ag} solves SMR from a \code{\link{aggre}} object
+calculated using \code{\link{lexpand}}.
+}
+\details{
+These functions are intended to calculate SMRs from a single data set
+that includes both observed and expected number of cases. For example utilizing the
+argument \code{pop.haz} of the \code{\link{lexpand}}.
+
+\code{sir_lex} automatically exports the transition \code{fromXtoY} using the first
+state in \code{lex.Str} as \code{0} and all other as \code{1}. No missing values
+is allowed in observed, pop.haz or person-years.
+}
+\section{Functions}{
+\itemize{
+\item \code{sir_lex()}:
+
+\item \code{sir_ag()}:
+
+}}
+\examples{
+
+\donttest{
+BL <- list(fot = 0:5, per = c("2003-01-01","2008-01-01", "2013-01-01"))
+
+## Aggregated data
+x1 <- lexpand(sire, breaks = BL, status = status != 0,
+ birth = bi_date, entry = dg_date, exit = ex_date,
+ pophaz=popmort,
+ aggre=list(sex, period = per, surv.int = fot))
+sir_ag(x1, print = 'period')
+
+
+# no aggreate or breaks
+x2 <- lexpand(sire, status = status != 0,
+ birth = bi_date, entry = dg_date, exit = ex_date,
+ pophaz=popmort)
+sir_lex(x2, breaks = BL, print = 'per')
+}
+
+}
+\seealso{
+\code{\link{lexpand}}
+\href{../doc/sir.html}{A SIR calculation vignette}
+
+Other sir functions:
+\code{\link{lines.sirspline}()},
+\code{\link{plot.sirspline}()},
+\code{\link{sir_ratio}()},
+\code{\link{sirspline}()},
+\code{\link{sir}()}
+}
+\author{
+Matti Rantanen
+}
+\concept{sir functions}
diff --git a/man/sir_ratio.Rd b/man/sir_ratio.Rd
index 1baeaf4..23ac5d6 100644
--- a/man/sir_ratio.Rd
+++ b/man/sir_ratio.Rd
@@ -1,92 +1,92 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/sir_utils.R
-\name{sir_ratio}
-\alias{sir_ratio}
-\title{Confidence intervals for the ratio of two SIRs/SMRs}
-\usage{
-sir_ratio(
- x,
- y,
- digits = 3,
- alternative = "two.sided",
- conf.level = 0.95,
- type = "exact"
-)
-}
-\arguments{
-\item{x}{a sir-object or a vector of two; observed and expected cases.}
-
-\item{y}{a sir-object or a vector of two; observed and expected cases.}
-
-\item{digits}{number of digits in the output}
-
-\item{alternative}{The null-hypothesis test: (default:) \code{two.sided}, \code{less}, \code{greater}}
-
-\item{conf.level}{the type-I error in confidence intervals, default 0.95 for 95\% CI.}
-
-\item{type}{How the binomial confidence intervals are calculated (default:) \code{exact} or \code{asymptotic}.}
-}
-\value{
-A vector length of three: sir_ratio, and lower and upper confidence intervals.
-}
-\description{
-Calculate ratio of two SIRs/SMRs and the confidence intervals of the ratio.
-}
-\details{
-Function works with pooled sir-objects i.e. the \code{print} argument in \code{sir} is ignored.
-Also \code{x} and \code{y} can be a vector of two where first index is the
-observed cases and second is expected cases (see examples).
-Note that the ratio of two SIR's is only applicable when the age distributions are similar
-in both populations.
-
-\strong{Formula}
-
-The observed number of first sir \code{O1} is considered as a Binomial variable with sample
-size of \code{O1+O2}. The confidence intervals for Binomial proportion \code{A}
-is solved using \code{exact} or \code{asymptotic}
-method. Now the CI for ratio \code{O1/O2} is \code{B = A/(1 - A)}. And further the CI for SIR/SMR
-is B*E2/E1. (Ederer and Mantel)
-}
-\note{
-Parameter \code{alternative} is always \code{two.sided} when parameter
-\code{type} is set to \code{asymptotic}.
-}
-\examples{
-## Ratio for sir-object and the same values given manually:
-
-
-## create example dataset
-dt1 <- data.frame(obs = rep(c(5,7), 10),
- pyrs = rep(c(250,300,350,400), 5),
- var = 1:20)
-Ref <- data.frame(obs = rep(c(50,70,80,100), 5),
- pyrs = rep(c(2500,3000,3500,4000), 5),
- var = 1:20)
-## sir using the function
-s1 <- sir(coh.data = dt1, coh.obs = obs, coh.pyrs = pyrs,
- ref.data = Ref, ref.obs = obs, ref.pyrs = pyrs,
- adjust = var)
-
-## Ratio is simply 1:
-sir_ratio(s1, c(120, 150))
-
-}
-\references{
-Statistics with Confidence: Confidence Intervals and Statistical Guidelines,
-Douglas Altman, 2000. ISBN: 978-0-727-91375-3
-}
-\seealso{
-\code{\link{sir}}
-\href{../doc/sir.html}{A SIR calculation vignette}
-
-Other sir functions:
-\code{\link{lines.sirspline}()},
-\code{\link{plot.sirspline}()},
-\code{\link{sir_exp}()},
-\code{\link{sirspline}()},
-\code{\link{sir}()}
-}
-\author{
-Matti Rantanen
-}
-\concept{sir functions}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/sir_utils.R
+\name{sir_ratio}
+\alias{sir_ratio}
+\title{Confidence intervals for the ratio of two SIRs/SMRs}
+\usage{
+sir_ratio(
+ x,
+ y,
+ digits = 3,
+ alternative = "two.sided",
+ conf.level = 0.95,
+ type = "exact"
+)
+}
+\arguments{
+\item{x}{a sir-object or a vector of two; observed and expected cases.}
+
+\item{y}{a sir-object or a vector of two; observed and expected cases.}
+
+\item{digits}{number of digits in the output}
+
+\item{alternative}{The null-hypothesis test: (default:) \code{two.sided}, \code{less}, \code{greater}}
+
+\item{conf.level}{the type-I error in confidence intervals, default 0.95 for 95\% CI.}
+
+\item{type}{How the binomial confidence intervals are calculated (default:) \code{exact} or \code{asymptotic}.}
+}
+\value{
+A vector length of three: sir_ratio, and lower and upper confidence intervals.
+}
+\description{
+Calculate ratio of two SIRs/SMRs and the confidence intervals of the ratio.
+}
+\details{
+Function works with pooled sir-objects i.e. the \code{print} argument in \code{sir} is ignored.
+Also \code{x} and \code{y} can be a vector of two where first index is the
+observed cases and second is expected cases (see examples).
+Note that the ratio of two SIR's is only applicable when the age distributions are similar
+in both populations.
+
+\strong{Formula}
+
+The observed number of first sir \code{O1} is considered as a Binomial variable with sample
+size of \code{O1+O2}. The confidence intervals for Binomial proportion \code{A}
+is solved using \code{exact} or \code{asymptotic}
+method. Now the CI for ratio \code{O1/O2} is \code{B = A/(1 - A)}. And further the CI for SIR/SMR
+is B*E2/E1. (Ederer and Mantel)
+}
+\note{
+Parameter \code{alternative} is always \code{two.sided} when parameter
+\code{type} is set to \code{asymptotic}.
+}
+\examples{
+## Ratio for sir-object and the same values given manually:
+
+
+## create example dataset
+dt1 <- data.frame(obs = rep(c(5,7), 10),
+ pyrs = rep(c(250,300,350,400), 5),
+ var = 1:20)
+Ref <- data.frame(obs = rep(c(50,70,80,100), 5),
+ pyrs = rep(c(2500,3000,3500,4000), 5),
+ var = 1:20)
+## sir using the function
+s1 <- sir(coh.data = dt1, coh.obs = obs, coh.pyrs = pyrs,
+ ref.data = Ref, ref.obs = obs, ref.pyrs = pyrs,
+ adjust = var)
+
+## Ratio is simply 1:
+sir_ratio(s1, c(120, 150))
+
+}
+\references{
+Statistics with Confidence: Confidence Intervals and Statistical Guidelines,
+Douglas Altman, 2000. ISBN: 978-0-727-91375-3
+}
+\seealso{
+\code{\link{sir}}
+\href{../doc/sir.html}{A SIR calculation vignette}
+
+Other sir functions:
+\code{\link{lines.sirspline}()},
+\code{\link{plot.sirspline}()},
+\code{\link{sir_exp}()},
+\code{\link{sirspline}()},
+\code{\link{sir}()}
+}
+\author{
+Matti Rantanen
+}
+\concept{sir functions}
diff --git a/man/sire.Rd b/man/sire.Rd
index 1280f23..f34c12f 100644
--- a/man/sire.Rd
+++ b/man/sire.Rd
@@ -1,45 +1,45 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/data_document.R
-\name{sire}
-\alias{sire}
-\title{sire - a simulated cohort of Finnish female rectal cancer patients}
-\format{
-data.table with columns
-\itemize{
- \item sex - gender of the patient (1 = female)
- \item bi_date - date of birth
- \item dg_date - date of cancer diagnosis
- \item ex_date - date of exit from follow-up (death or censoring)
- \item status - status of the person at exit; 0 alive; 1 dead due to pertinent cancer; 2 dead due to other causes
- \item dg_age - age at diagnosis expressed as fractional years
-}
-}
-\source{
-The Finnish Cancer Registry
-}
-\description{
-\code{sire} is a simulated cohort pertaining female Finnish rectal cancer patients
-diagnosed between 1993-2012. Instead of actual original dates, the dates are masked
-via modest randomization within several time windows.
-}
-\details{
-The closing date for the pertinent data was 2012-12-31, meaning status information was
-available only up to that point --- hence the maximum possible \code{ex_date} is \code{2012-12-31}.
-}
-\seealso{
-Other popEpi data:
-\code{\link{ICSS}},
-\code{\link{meanpop_fi}},
-\code{\link{popmort}},
-\code{\link{sibr}},
-\code{\link{stdpop101}},
-\code{\link{stdpop18}}
-
-Other survival data:
-\code{\link{sibr}}
-}
-\author{
-Karri Seppa
-}
-\concept{popEpi data}
-\concept{survival data}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/data_document.R
+\name{sire}
+\alias{sire}
+\title{sire - a simulated cohort of Finnish female rectal cancer patients}
+\format{
+data.table with columns
+\itemize{
+ \item sex - gender of the patient (1 = female)
+ \item bi_date - date of birth
+ \item dg_date - date of cancer diagnosis
+ \item ex_date - date of exit from follow-up (death or censoring)
+ \item status - status of the person at exit; 0 alive; 1 dead due to pertinent cancer; 2 dead due to other causes
+ \item dg_age - age at diagnosis expressed as fractional years
+}
+}
+\source{
+The Finnish Cancer Registry
+}
+\description{
+\code{sire} is a simulated cohort pertaining female Finnish rectal cancer patients
+diagnosed between 1993-2012. Instead of actual original dates, the dates are masked
+via modest randomization within several time windows.
+}
+\details{
+The closing date for the pertinent data was 2012-12-31, meaning status information was
+available only up to that point --- hence the maximum possible \code{ex_date} is \code{2012-12-31}.
+}
+\seealso{
+Other popEpi data:
+\code{\link{ICSS}},
+\code{\link{meanpop_fi}},
+\code{\link{popmort}},
+\code{\link{sibr}},
+\code{\link{stdpop101}},
+\code{\link{stdpop18}}
+
+Other survival data:
+\code{\link{sibr}}
+}
+\author{
+Karri Seppa
+}
+\concept{popEpi data}
+\concept{survival data}
diff --git a/man/sirspline.Rd b/man/sirspline.Rd
index 9918a5c..709ffd4 100644
--- a/man/sirspline.Rd
+++ b/man/sirspline.Rd
@@ -1,164 +1,164 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/sir.R
-\name{sirspline}
-\alias{sirspline}
-\title{Estimate splines for SIR or SMR}
-\usage{
-sirspline(
- coh.data,
- coh.obs,
- coh.pyrs,
- ref.data = NULL,
- ref.obs = NULL,
- ref.pyrs = NULL,
- ref.rate = NULL,
- subset = NULL,
- print = NULL,
- adjust = NULL,
- mstate = NULL,
- spline,
- knots = NULL,
- reference.points = NULL,
- dependent.splines = TRUE
-)
-}
-\arguments{
-\item{coh.data}{cohort data with observations and at risk time variables}
-
-\item{coh.obs}{variable name for observed cases}
-
-\item{coh.pyrs}{variable name for person-years in cohort data}
-
-\item{ref.data}{aggregated population data}
-
-\item{ref.obs}{variable name for observed cases}
-
-\item{ref.pyrs}{variable name for person-years in population data}
-
-\item{ref.rate}{population rate observed/expected. This overwrites the parameters
-\code{ref.pyrs} and \code{ref.obs}.}
-
-\item{subset}{logical condition to subset \code{coh.data} before any computations}
-
-\item{print}{variable names for which to estimate SIRs/SMRs and
-associated splines separately}
-
-\item{adjust}{variable names for adjusting the expected cases}
-
-\item{mstate}{set column names for cause specific observations. Relevant only
-when coh.obs length is two or more. See help for \code{sir}.}
-
-\item{spline}{variable name(s) for the splines}
-
-\item{knots}{number knots (vector), pre-defined knots (list of vectors) or for optimal number of knots left NULL}
-
-\item{reference.points}{fixed reference values for rate ratios. If left \code{NULL}
-the smallest value is the reference point (where SIR = 1).
-Ignored if \code{dependent.splines = FALSE}}
-
-\item{dependent.splines}{logical; if TRUE, all splines are fitted in same model.}
-}
-\value{
-A list of data.frames and vectors.
-Three spline estimates are named as \code{spline.est.A/B/C} and the corresponding values
-in \code{spline.seq.A/B/C} for manual plotting
-}
-\description{
-Splines for standardised incidence or mortality ratio. A useful
-tool to e.g. check whether a constant SIR can be assumed for all calendar periods,
-age groups or follow-up intervals. Splines can be fitted for these time dimensions
-separately or in the same model.
-}
-\details{
-See \code{\link{sir}} for help on SIR/SMR estimation in general; usage of splines
-is discussed below.
-
-\strong{The spline variables}
-
-The model can include one, two or three splines variables.
-Variables can be included in the same model selecting \code{dependent.splines = TRUE}
-and SIR ratios are calculated (first one is the SIR, others SIR ratios).
-Reference points vector can be set via \code{reference.points}
-where first element of the vector is the reference point for first ratio.
-
-Variable(s) to fit splines are given as a vector in argument \code{spline}.
-Order will affect the results.
-
-
-\strong{dependent.splines}
-
-By default dependent.splines is FALSE and all splines are fitted in separate models.
-If TRUE, the first variable in \code{spline} is a function of a SIR and other(s) are ratios.
-
-\strong{knots}
-
-There are three options to set knots to splines:
-
-Set the number of knots for each spline variable with a \strong{vector}.
-The knots are automatically placed to the quantiles of observed cases in cohort data.
-The first and last knots are always the maximum and minimum values, so knot
-value needs to be at least two.
-
-Predefined knot places can be set with a \strong{list} of vectors.
-The vector for each spline in the list specifies the knot places. The lowest
-and the largest values are the boundary knots and these should be checked beforehand.
-
-If \code{knots} is left \strong{NULL}, the model searches the optimal number
-of knots by model AIC by fitting models iteratively from 2 to 15 knots and
-the one with smallest AIC is selected.
-If \code{dependent.splines = TRUE}, the number of knots is searched by fitting each spline
-variable separately.
-
-
-\strong{print}
-
-Splines can be stratified by the levels of variable given in \code{print}. If
-\code{print} is a vector, only the first variable is accounted for. The knots
-are placed globally for all levels of \code{print}. This also ensures that the likelihood
-ratio test is valid.
-Splines are also fitted independently for each level of \code{print}.
-This allows for searching interactions, e.g. by fitting spline for period
-(\code{splines='period'}) for each age group (\code{print = 'agegroup'}).
-
-
-\strong{p-values}
-
-The output p-value is a test of whether the splines are equal (homogenous)
-at different levels of \code{print}.
-The test is based on the likelihood ratio test, where the full model
-includes \code{print} and is
-compared to a null model without it.
-When \code{(dependent.splines = TRUE)} the p-value returned is a global p-value.
-Otherwise the p-value is spline-specific.
-}
-\examples{
-\donttest{
-## for examples see: vignette('sir')
-}
-}
-\seealso{
-\code{\link{splitMulti}}
-\href{../doc/sir.html}{A SIR calculation vignette}
-
-Other sir functions:
-\code{\link{lines.sirspline}()},
-\code{\link{plot.sirspline}()},
-\code{\link{sir_exp}()},
-\code{\link{sir_ratio}()},
-\code{\link{sir}()}
-
-Other main functions:
-\code{\link{Surv}()},
-\code{\link{rate}()},
-\code{\link{relpois_ag}()},
-\code{\link{relpois}()},
-\code{\link{sir}()},
-\code{\link{survmean}()},
-\code{\link{survtab_ag}()},
-\code{\link{survtab}()}
-}
-\author{
-Matti Rantanen, Joonas Miettinen
-}
-\concept{main functions}
-\concept{sir functions}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/sir.R
+\name{sirspline}
+\alias{sirspline}
+\title{Estimate splines for SIR or SMR}
+\usage{
+sirspline(
+ coh.data,
+ coh.obs,
+ coh.pyrs,
+ ref.data = NULL,
+ ref.obs = NULL,
+ ref.pyrs = NULL,
+ ref.rate = NULL,
+ subset = NULL,
+ print = NULL,
+ adjust = NULL,
+ mstate = NULL,
+ spline,
+ knots = NULL,
+ reference.points = NULL,
+ dependent.splines = TRUE
+)
+}
+\arguments{
+\item{coh.data}{cohort data with observations and at risk time variables}
+
+\item{coh.obs}{variable name for observed cases}
+
+\item{coh.pyrs}{variable name for person-years in cohort data}
+
+\item{ref.data}{aggregated population data}
+
+\item{ref.obs}{variable name for observed cases}
+
+\item{ref.pyrs}{variable name for person-years in population data}
+
+\item{ref.rate}{population rate observed/expected. This overwrites the parameters
+\code{ref.pyrs} and \code{ref.obs}.}
+
+\item{subset}{logical condition to subset \code{coh.data} before any computations}
+
+\item{print}{variable names for which to estimate SIRs/SMRs and
+associated splines separately}
+
+\item{adjust}{variable names for adjusting the expected cases}
+
+\item{mstate}{set column names for cause specific observations. Relevant only
+when coh.obs length is two or more. See help for \code{sir}.}
+
+\item{spline}{variable name(s) for the splines}
+
+\item{knots}{number knots (vector), pre-defined knots (list of vectors) or for optimal number of knots left NULL}
+
+\item{reference.points}{fixed reference values for rate ratios. If left \code{NULL}
+the smallest value is the reference point (where SIR = 1).
+Ignored if \code{dependent.splines = FALSE}}
+
+\item{dependent.splines}{logical; if TRUE, all splines are fitted in same model.}
+}
+\value{
+A list of data.frames and vectors.
+Three spline estimates are named as \code{spline.est.A/B/C} and the corresponding values
+in \code{spline.seq.A/B/C} for manual plotting
+}
+\description{
+Splines for standardised incidence or mortality ratio. A useful
+tool to e.g. check whether a constant SIR can be assumed for all calendar periods,
+age groups or follow-up intervals. Splines can be fitted for these time dimensions
+separately or in the same model.
+}
+\details{
+See \code{\link{sir}} for help on SIR/SMR estimation in general; usage of splines
+is discussed below.
+
+\strong{The spline variables}
+
+The model can include one, two or three splines variables.
+Variables can be included in the same model selecting \code{dependent.splines = TRUE}
+and SIR ratios are calculated (first one is the SIR, others SIR ratios).
+Reference points vector can be set via \code{reference.points}
+where first element of the vector is the reference point for first ratio.
+
+Variable(s) to fit splines are given as a vector in argument \code{spline}.
+Order will affect the results.
+
+
+\strong{dependent.splines}
+
+By default dependent.splines is FALSE and all splines are fitted in separate models.
+If TRUE, the first variable in \code{spline} is a function of a SIR and other(s) are ratios.
+
+\strong{knots}
+
+There are three options to set knots to splines:
+
+Set the number of knots for each spline variable with a \strong{vector}.
+The knots are automatically placed to the quantiles of observed cases in cohort data.
+The first and last knots are always the maximum and minimum values, so knot
+value needs to be at least two.
+
+Predefined knot places can be set with a \strong{list} of vectors.
+The vector for each spline in the list specifies the knot places. The lowest
+and the largest values are the boundary knots and these should be checked beforehand.
+
+If \code{knots} is left \strong{NULL}, the model searches the optimal number
+of knots by model AIC by fitting models iteratively from 2 to 15 knots and
+the one with smallest AIC is selected.
+If \code{dependent.splines = TRUE}, the number of knots is searched by fitting each spline
+variable separately.
+
+
+\strong{print}
+
+Splines can be stratified by the levels of variable given in \code{print}. If
+\code{print} is a vector, only the first variable is accounted for. The knots
+are placed globally for all levels of \code{print}. This also ensures that the likelihood
+ratio test is valid.
+Splines are also fitted independently for each level of \code{print}.
+This allows for searching interactions, e.g. by fitting spline for period
+(\code{splines='period'}) for each age group (\code{print = 'agegroup'}).
+
+
+\strong{p-values}
+
+The output p-value is a test of whether the splines are equal (homogenous)
+at different levels of \code{print}.
+The test is based on the likelihood ratio test, where the full model
+includes \code{print} and is
+compared to a null model without it.
+When \code{(dependent.splines = TRUE)} the p-value returned is a global p-value.
+Otherwise the p-value is spline-specific.
+}
+\examples{
+\donttest{
+## for examples see: vignette('sir')
+}
+}
+\seealso{
+\code{\link{splitMulti}}
+\href{../doc/sir.html}{A SIR calculation vignette}
+
+Other sir functions:
+\code{\link{lines.sirspline}()},
+\code{\link{plot.sirspline}()},
+\code{\link{sir_exp}()},
+\code{\link{sir_ratio}()},
+\code{\link{sir}()}
+
+Other main functions:
+\code{\link{Surv}()},
+\code{\link{rate}()},
+\code{\link{relpois_ag}()},
+\code{\link{relpois}()},
+\code{\link{sir}()},
+\code{\link{survmean}()},
+\code{\link{survtab_ag}()},
+\code{\link{survtab}()}
+}
+\author{
+Matti Rantanen, Joonas Miettinen
+}
+\concept{main functions}
+\concept{sir functions}
diff --git a/man/splitLexisDT.Rd b/man/splitLexisDT.Rd
index 2b824b4..0a479b7 100644
--- a/man/splitLexisDT.Rd
+++ b/man/splitLexisDT.Rd
@@ -1,90 +1,90 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/splitLexisDT.R
-\name{splitLexisDT}
-\alias{splitLexisDT}
-\title{Split case-level observations}
-\usage{
-splitLexisDT(lex, breaks, timeScale, merge = TRUE, drop = TRUE)
-}
-\arguments{
-\item{lex}{a Lexis object, split or not}
-
-\item{breaks}{a vector of \code{[a,b)} breaks to split \code{data} by}
-
-\item{timeScale}{a character string; name of the time scale to split by}
-
-\item{merge}{logical; if \code{TRUE}, retains all variables
-from the original data - i.e. original variables are
-repeated for all the rows by original subject}
-
-\item{drop}{logical; if \code{TRUE}, drops all resulting rows
-after expansion that reside outside the time window
-defined by the given breaks}
-}
-\value{
-A \code{data.table} or \code{data.frame}
-(depending on \code{options("popEpi.datatable")}; see \code{?popEpi})
-object expanded to accommodate split observations.
-}
-\description{
-Split a \code{Lexis} object along one time scale
-(as \code{\link[Epi]{splitLexis}}) with speed
-}
-\details{
-\code{splitLexisDT} is in essence a \pkg{data.table} version of
-\code{splitLexis} or \code{survSplit} for splitting along a single
-time scale. It requires a Lexis object as input, which may have already
-been split along some time scale.
-
-Unlike \code{splitLexis}, \code{splitLexisDT} drops observed time outside
-the roof and floor of \code{breaks} by default - with \code{drop = FALSE}
-the functions have identical behaviour.
-
-The \code{Lexis} time scale variables can be of any arbitrary
-format, e.g. \code{Date},
-fractional years (see \code{\link[Epi]{cal.yr}}) and \code{\link{get.yrs}},
-or other. However, using \code{date} variables (from package \pkg{date})
-are not recommended, as \code{date} variables are always stored as integers,
-whereas \code{Date} variables (see \code{?as.Date}) are typically stored
-in double ("numeric") format. This allows for breaking days into fractions
-as well, when using e.g. hypothetical years of 365.25 days.
-}
-\examples{
-library(Epi)
-data("sire", package = "popEpi")
-x <- Lexis(data=sire[1000:1100, ],
- entry = list(fot=0, per=get.yrs(dg_date), age=dg_age),
- exit=list(per=get.yrs(ex_date)), exit.status=status)
-BL <- list(fot=seq(0, 5, by = 3/12), per=c(2008, 2013))
-
-x2 <- splitMulti(x, breaks = BL, drop = FALSE)
-
-x3 <- splitLexisDT(x, breaks = BL$fot, timeScale = "fot", drop = FALSE)
-x3 <- splitLexisDT(x3, breaks = BL$per, timeScale = "per", drop = FALSE)
-
-x4 <- splitLexis(x, breaks = BL$fot, time.scale = "fot")
-x4 <- splitLexis(x4, breaks = BL$per, time.scale = "per")
-## all produce identical results
-
-## using Date variables
-x <- Lexis(data=sire[1000:1100, ],
- entry = list(fot=0, per=dg_date, age=dg_date-bi_date),
- exit=list(per=ex_date), exit.status=status)
-BL <- list(fot = 0:5*365.25, per = as.Date(c("2008-01-01", "2013-01-01")))
-
-x2 <- splitMulti(x, breaks = BL, drop = FALSE)
-
-x3 <- splitLexisDT(x, breaks = BL$fot, timeScale = "fot", drop = FALSE)
-x3 <- splitLexisDT(x3, breaks = BL$per, timeScale = "per", drop = FALSE)
-
-## splitLexis may not work when using Dates
-}
-\seealso{
-Other splitting functions:
-\code{\link{lexpand}()},
-\code{\link{splitMulti}()}
-}
-\author{
-Joonas Miettinen
-}
-\concept{splitting functions}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/splitLexisDT.R
+\name{splitLexisDT}
+\alias{splitLexisDT}
+\title{Split case-level observations}
+\usage{
+splitLexisDT(lex, breaks, timeScale, merge = TRUE, drop = TRUE)
+}
+\arguments{
+\item{lex}{a Lexis object, split or not}
+
+\item{breaks}{a vector of \code{[a,b)} breaks to split \code{data} by}
+
+\item{timeScale}{a character string; name of the time scale to split by}
+
+\item{merge}{logical; if \code{TRUE}, retains all variables
+from the original data - i.e. original variables are
+repeated for all the rows by original subject}
+
+\item{drop}{logical; if \code{TRUE}, drops all resulting rows
+after expansion that reside outside the time window
+defined by the given breaks}
+}
+\value{
+A \code{data.table} or \code{data.frame}
+(depending on \code{options("popEpi.datatable")}; see \code{?popEpi})
+object expanded to accommodate split observations.
+}
+\description{
+Split a \code{Lexis} object along one time scale
+(as \code{\link[Epi]{splitLexis}}) with speed
+}
+\details{
+\code{splitLexisDT} is in essence a \pkg{data.table} version of
+\code{splitLexis} or \code{survSplit} for splitting along a single
+time scale. It requires a Lexis object as input, which may have already
+been split along some time scale.
+
+Unlike \code{splitLexis}, \code{splitLexisDT} drops observed time outside
+the roof and floor of \code{breaks} by default - with \code{drop = FALSE}
+the functions have identical behaviour.
+
+The \code{Lexis} time scale variables can be of any arbitrary
+format, e.g. \code{Date},
+fractional years (see \code{\link[Epi]{cal.yr}}) and \code{\link{get.yrs}},
+or other. However, using \code{date} variables (from package \pkg{date})
+are not recommended, as \code{date} variables are always stored as integers,
+whereas \code{Date} variables (see \code{?as.Date}) are typically stored
+in double ("numeric") format. This allows for breaking days into fractions
+as well, when using e.g. hypothetical years of 365.25 days.
+}
+\examples{
+library(Epi)
+data("sire", package = "popEpi")
+x <- Lexis(data=sire[1000:1100, ],
+ entry = list(fot=0, per=get.yrs(dg_date), age=dg_age),
+ exit=list(per=get.yrs(ex_date)), exit.status=status)
+BL <- list(fot=seq(0, 5, by = 3/12), per=c(2008, 2013))
+
+x2 <- splitMulti(x, breaks = BL, drop = FALSE)
+
+x3 <- splitLexisDT(x, breaks = BL$fot, timeScale = "fot", drop = FALSE)
+x3 <- splitLexisDT(x3, breaks = BL$per, timeScale = "per", drop = FALSE)
+
+x4 <- splitLexis(x, breaks = BL$fot, time.scale = "fot")
+x4 <- splitLexis(x4, breaks = BL$per, time.scale = "per")
+## all produce identical results
+
+## using Date variables
+x <- Lexis(data=sire[1000:1100, ],
+ entry = list(fot=0, per=dg_date, age=dg_date-bi_date),
+ exit=list(per=ex_date), exit.status=status)
+BL <- list(fot = 0:5*365.25, per = as.Date(c("2008-01-01", "2013-01-01")))
+
+x2 <- splitMulti(x, breaks = BL, drop = FALSE)
+
+x3 <- splitLexisDT(x, breaks = BL$fot, timeScale = "fot", drop = FALSE)
+x3 <- splitLexisDT(x3, breaks = BL$per, timeScale = "per", drop = FALSE)
+
+## splitLexis may not work when using Dates
+}
+\seealso{
+Other splitting functions:
+\code{\link{lexpand}()},
+\code{\link{splitMulti}()}
+}
+\author{
+Joonas Miettinen
+}
+\concept{splitting functions}
diff --git a/man/splitMulti.Rd b/man/splitMulti.Rd
index 546e256..227a51f 100644
--- a/man/splitMulti.Rd
+++ b/man/splitMulti.Rd
@@ -1,150 +1,150 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/splitMulti.R
-\name{splitMulti}
-\alias{splitMulti}
-\title{Split case-level observations}
-\usage{
-splitMulti(
- data,
- breaks = NULL,
- ...,
- drop = TRUE,
- merge = TRUE,
- verbose = FALSE
-)
-}
-\arguments{
-\item{data}{a Lexis object with event cases as rows}
-
-\item{breaks}{a list of named numeric vectors of breaks; see Details and Examples}
-
-\item{...}{alternate way of supplying breaks as named vectors;
-e.g. \code{fot = 0:5} instead of \code{breaks = list(fot = 0:5)};
-if \code{breaks} is not \code{NULL}, \code{breaks} is used and any breaks
-passed through \code{...} are NOT used; note also that due to partial
-matching of argument names in R,
-if you supply e.g. \code{dat = my_breaks} and you
-do not pass argument \code{data} explicitly (\code{data = my_data}), then R
-interprets this as \code{data = my_breaks} --- so choose the names of your
-time scales wisely}
-
-\item{drop}{logical; if \code{TRUE}, drops all resulting rows
-after expansion that reside outside the time window
-defined by the given breaks}
-
-\item{merge}{logical; if \code{TRUE}, retains all variables
-from the original data - i.e. original variables are
-repeated for all the rows by original subject}
-
-\item{verbose}{logical; if \code{TRUE}, the function is chatty
-and returns some messages along the way}
-}
-\value{
-A \code{data.table} or \code{data.frame}
-(depending on \code{options("popEpi.datatable")}; see \code{?popEpi})
-object expanded to accommodate split observations.
-}
-\description{
-Split a \code{Lexis} object along multiple time scales
-with speed and ease
-}
-\details{
-\code{splitMulti} is in essence a \pkg{data.table} version of
- \code{splitLexis} or \code{survSplit} for splitting along multiple
- time scales.
-It requires a Lexis object as input.
-
-The \code{breaks} must be a list of named vectors of the appropriate type.
-The breaks are fully explicit and
-left-inclusive and right exclusive, e.g. \code{fot=c(0,5)}
-forces the data to only include time between
-\code{[0,5)} for each original row (unless \code{drop = FALSE}).
-Use \code{Inf} or \code{-Inf} for open-ended intervals,
- e.g. \code{per=c(1990,1995,Inf)} creates the intervals
- \code{[1990,1995), [1995, Inf)}.
-
-Instead of specifying \code{breaks}, one may make use of the \code{...}
-argument to pass breaks: e.g.
-
-\code{splitMulti(x, breaks = list(fot = 0:5))}
-
-is equivalent to
-
-\code{splitMulti(x, fot = 0:5)}.
-
-Multiple breaks can be supplied in the same manner. However, if both
-\code{breaks} and \code{...} are used, only the breaks in \code{breaks}
-are utilized within the function.
-
-The \code{Lexis} time scale variables can be of any arbitrary
-format, e.g. \code{Date},
-fractional years (see \code{\link[Epi]{cal.yr}}) and \code{\link{get.yrs}},
-or other. However, using \code{date} variables (from package \pkg{date})
-are not recommended, as \code{date} variables are always stored as integers,
-whereas \code{Date} variables (see \code{?as.Date}) are typically stored
-in double ("numeric") format. This allows for breaking days into fractions
-as well, when using e.g. hypothetical years of 365.25 days.
-}
-\examples{
-#### let's prepare data for computing period method survivals
-#### in case there are problems with dates, we first
-#### convert to fractional years.
-\donttest{
-library("Epi")
-library("data.table")
-data("sire", package = "popEpi")
-x <- Lexis(data=sire[dg_date < ex_date, ],
- entry = list(fot=0, per=get.yrs(dg_date), age=dg_age),
- exit=list(per=get.yrs(ex_date)), exit.status=status)
-x2 <- splitMulti(x, breaks = list(fot=seq(0, 5, by = 3/12), per=c(2008, 2013)))
-# equivalently:
-x2 <- splitMulti(x, fot=seq(0, 5, by = 3/12), per=c(2008, 2013))
-
-## using dates; note: breaks must be expressed as dates or days!
-x <- Lexis(data=sire[dg_date < ex_date, ],
- entry = list(fot=0, per=dg_date, age=dg_date-bi_date),
- exit=list(per=ex_date), exit.status=status)
-BL <- list(fot = seq(0, 5, by = 3/12)*365.242199,
- per = as.Date(paste0(c(1980:2014),"-01-01")),
- age = c(0,45,85,Inf)*365.242199)
-x2 <- splitMulti(x, breaks = BL, verbose=TRUE)
-
-
-## multistate example (healty - sick - dead)
-sire2 <- data.frame(sire)
-sire2 <- sire2[sire2$dg_date < sire2$ex_date, ]
-
-set.seed(1L)
-not_sick <- sample.int(nrow(sire2), 6000L, replace = FALSE)
-sire2$dg_date[not_sick] <- NA
-sire2$status[!is.na(sire2$dg_date) & sire2$status == 0] <- -1
-
-sire2$status[sire2$status==2] <- 1
-sire2$status <- factor(sire2$status, levels = c(0, -1, 1),
- labels = c("healthy", "sick", "dead"))
-
-xm <- Lexis(data = sire2,
- entry = list(fot=0, per=get.yrs(bi_date), age=0),
- exit = list(per=get.yrs(ex_date)), exit.status=status)
-xm2 <- cutLexis(xm, cut = get.yrs(xm$dg_date),
- timescale = "per",
- new.state = "sick")
-xm2[xm2$lex.id == 6L, ]
-
-xm2 <- splitMulti(xm2, breaks = list(fot = seq(0,150,25)))
-xm2[xm2$lex.id == 6L, ]
-}
-
-}
-\seealso{
-\code{\link[Epi]{splitLexis}}, \code{\link[Epi]{Lexis}},
-\code{\link[survival]{survSplit}}
-
-Other splitting functions:
-\code{\link{lexpand}()},
-\code{\link{splitLexisDT}()}
-}
-\author{
-Joonas Miettinen
-}
-\concept{splitting functions}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/splitMulti.R
+\name{splitMulti}
+\alias{splitMulti}
+\title{Split case-level observations}
+\usage{
+splitMulti(
+ data,
+ breaks = NULL,
+ ...,
+ drop = TRUE,
+ merge = TRUE,
+ verbose = FALSE
+)
+}
+\arguments{
+\item{data}{a Lexis object with event cases as rows}
+
+\item{breaks}{a list of named numeric vectors of breaks; see Details and Examples}
+
+\item{...}{alternate way of supplying breaks as named vectors;
+e.g. \code{fot = 0:5} instead of \code{breaks = list(fot = 0:5)};
+if \code{breaks} is not \code{NULL}, \code{breaks} is used and any breaks
+passed through \code{...} are NOT used; note also that due to partial
+matching of argument names in R,
+if you supply e.g. \code{dat = my_breaks} and you
+do not pass argument \code{data} explicitly (\code{data = my_data}), then R
+interprets this as \code{data = my_breaks} --- so choose the names of your
+time scales wisely}
+
+\item{drop}{logical; if \code{TRUE}, drops all resulting rows
+after expansion that reside outside the time window
+defined by the given breaks}
+
+\item{merge}{logical; if \code{TRUE}, retains all variables
+from the original data - i.e. original variables are
+repeated for all the rows by original subject}
+
+\item{verbose}{logical; if \code{TRUE}, the function is chatty
+and returns some messages along the way}
+}
+\value{
+A \code{data.table} or \code{data.frame}
+(depending on \code{options("popEpi.datatable")}; see \code{?popEpi})
+object expanded to accommodate split observations.
+}
+\description{
+Split a \code{Lexis} object along multiple time scales
+with speed and ease
+}
+\details{
+\code{splitMulti} is in essence a \pkg{data.table} version of
+ \code{splitLexis} or \code{survSplit} for splitting along multiple
+ time scales.
+It requires a Lexis object as input.
+
+The \code{breaks} must be a list of named vectors of the appropriate type.
+The breaks are fully explicit and
+left-inclusive and right exclusive, e.g. \code{fot=c(0,5)}
+forces the data to only include time between
+\code{[0,5)} for each original row (unless \code{drop = FALSE}).
+Use \code{Inf} or \code{-Inf} for open-ended intervals,
+ e.g. \code{per=c(1990,1995,Inf)} creates the intervals
+ \code{[1990,1995), [1995, Inf)}.
+
+Instead of specifying \code{breaks}, one may make use of the \code{...}
+argument to pass breaks: e.g.
+
+\code{splitMulti(x, breaks = list(fot = 0:5))}
+
+is equivalent to
+
+\code{splitMulti(x, fot = 0:5)}.
+
+Multiple breaks can be supplied in the same manner. However, if both
+\code{breaks} and \code{...} are used, only the breaks in \code{breaks}
+are utilized within the function.
+
+The \code{Lexis} time scale variables can be of any arbitrary
+format, e.g. \code{Date},
+fractional years (see \code{\link[Epi]{cal.yr}}) and \code{\link{get.yrs}},
+or other. However, using \code{date} variables (from package \pkg{date})
+are not recommended, as \code{date} variables are always stored as integers,
+whereas \code{Date} variables (see \code{?as.Date}) are typically stored
+in double ("numeric") format. This allows for breaking days into fractions
+as well, when using e.g. hypothetical years of 365.25 days.
+}
+\examples{
+#### let's prepare data for computing period method survivals
+#### in case there are problems with dates, we first
+#### convert to fractional years.
+\donttest{
+library("Epi")
+library("data.table")
+data("sire", package = "popEpi")
+x <- Lexis(data=sire[dg_date < ex_date, ],
+ entry = list(fot=0, per=get.yrs(dg_date), age=dg_age),
+ exit=list(per=get.yrs(ex_date)), exit.status=status)
+x2 <- splitMulti(x, breaks = list(fot=seq(0, 5, by = 3/12), per=c(2008, 2013)))
+# equivalently:
+x2 <- splitMulti(x, fot=seq(0, 5, by = 3/12), per=c(2008, 2013))
+
+## using dates; note: breaks must be expressed as dates or days!
+x <- Lexis(data=sire[dg_date < ex_date, ],
+ entry = list(fot=0, per=dg_date, age=dg_date-bi_date),
+ exit=list(per=ex_date), exit.status=status)
+BL <- list(fot = seq(0, 5, by = 3/12)*365.242199,
+ per = as.Date(paste0(c(1980:2014),"-01-01")),
+ age = c(0,45,85,Inf)*365.242199)
+x2 <- splitMulti(x, breaks = BL, verbose=TRUE)
+
+
+## multistate example (healty - sick - dead)
+sire2 <- data.frame(sire)
+sire2 <- sire2[sire2$dg_date < sire2$ex_date, ]
+
+set.seed(1L)
+not_sick <- sample.int(nrow(sire2), 6000L, replace = FALSE)
+sire2$dg_date[not_sick] <- NA
+sire2$status[!is.na(sire2$dg_date) & sire2$status == 0] <- -1
+
+sire2$status[sire2$status==2] <- 1
+sire2$status <- factor(sire2$status, levels = c(0, -1, 1),
+ labels = c("healthy", "sick", "dead"))
+
+xm <- Lexis(data = sire2,
+ entry = list(fot=0, per=get.yrs(bi_date), age=0),
+ exit = list(per=get.yrs(ex_date)), exit.status=status)
+xm2 <- cutLexis(xm, cut = get.yrs(xm$dg_date),
+ timescale = "per",
+ new.state = "sick")
+xm2[xm2$lex.id == 6L, ]
+
+xm2 <- splitMulti(xm2, breaks = list(fot = seq(0,150,25)))
+xm2[xm2$lex.id == 6L, ]
+}
+
+}
+\seealso{
+\code{\link[Epi]{splitLexis}}, \code{\link[Epi]{Lexis}},
+\code{\link[survival]{survSplit}}
+
+Other splitting functions:
+\code{\link{lexpand}()},
+\code{\link{splitLexisDT}()}
+}
+\author{
+Joonas Miettinen
+}
+\concept{splitting functions}
diff --git a/man/stdpop101.Rd b/man/stdpop101.Rd
index ef2f96a..3dcb1a8 100644
--- a/man/stdpop101.Rd
+++ b/man/stdpop101.Rd
@@ -1,35 +1,35 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/data_document.R
-\name{stdpop101}
-\alias{stdpop101}
-\title{World standard population by 1 year age groups from 1 to 101. Sums to 100 000.}
-\format{
-data.table with columns
-\itemize{
- \item \code{world_std} weight that sums to 100000 (numeric)
- \item \code{agegroup} age group from 1 to 101 (numeric)
-}
-}
-\source{
-Standard population is from:
-\href{https://seer.cancer.gov/stdpopulations/stdpop.singleages.html}{world standard population "101of1"}
-}
-\description{
-World standard population by 1 year age groups from 1 to 101. Sums to 100 000.
-}
-\seealso{
-Other popEpi data:
-\code{\link{ICSS}},
-\code{\link{meanpop_fi}},
-\code{\link{popmort}},
-\code{\link{sibr}},
-\code{\link{sire}},
-\code{\link{stdpop18}}
-
-Other weights:
-\code{\link{ICSS}},
-\code{\link{direct_standardization}},
-\code{\link{stdpop18}}
-}
-\concept{popEpi data}
-\concept{weights}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/data_document.R
+\name{stdpop101}
+\alias{stdpop101}
+\title{World standard population by 1 year age groups from 1 to 101. Sums to 100 000.}
+\format{
+data.table with columns
+\itemize{
+ \item \code{world_std} weight that sums to 100000 (numeric)
+ \item \code{agegroup} age group from 1 to 101 (numeric)
+}
+}
+\source{
+Standard population is from:
+\href{https://seer.cancer.gov/stdpopulations/stdpop.singleages.html}{world standard population "101of1"}
+}
+\description{
+World standard population by 1 year age groups from 1 to 101. Sums to 100 000.
+}
+\seealso{
+Other popEpi data:
+\code{\link{ICSS}},
+\code{\link{meanpop_fi}},
+\code{\link{popmort}},
+\code{\link{sibr}},
+\code{\link{sire}},
+\code{\link{stdpop18}}
+
+Other weights:
+\code{\link{ICSS}},
+\code{\link{direct_standardization}},
+\code{\link{stdpop18}}
+}
+\concept{popEpi data}
+\concept{weights}
diff --git a/man/stdpop18.Rd b/man/stdpop18.Rd
index 3c78f65..7063ac7 100644
--- a/man/stdpop18.Rd
+++ b/man/stdpop18.Rd
@@ -1,37 +1,37 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/data_document.R
-\name{stdpop18}
-\alias{stdpop18}
-\title{Standard populations from 2000: world, Europe and Nordic.}
-\format{
-data.table with columns
-\itemize{
- \item \code{agegroup}, age group in 18 categories (character)
- \item \code{world}, World 2000 standard population (numeric)
- \item \code{europe}, European standard population (numeric)
- \item \code{nordic}, Nordic standard population (numeric)
-}
-}
-\source{
-Nordcan, 2000
-}
-\description{
-World, European, and Nordic standard populations by 18 age categories.
-Sums to 100000.
-}
-\seealso{
-Other popEpi data:
-\code{\link{ICSS}},
-\code{\link{meanpop_fi}},
-\code{\link{popmort}},
-\code{\link{sibr}},
-\code{\link{sire}},
-\code{\link{stdpop101}}
-
-Other weights:
-\code{\link{ICSS}},
-\code{\link{direct_standardization}},
-\code{\link{stdpop101}}
-}
-\concept{popEpi data}
-\concept{weights}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/data_document.R
+\name{stdpop18}
+\alias{stdpop18}
+\title{Standard populations from 2000: world, Europe and Nordic.}
+\format{
+data.table with columns
+\itemize{
+ \item \code{agegroup}, age group in 18 categories (character)
+ \item \code{world}, World 2000 standard population (numeric)
+ \item \code{europe}, European standard population (numeric)
+ \item \code{nordic}, Nordic standard population (numeric)
+}
+}
+\source{
+Nordcan, 2000
+}
+\description{
+World, European, and Nordic standard populations by 18 age categories.
+Sums to 100000.
+}
+\seealso{
+Other popEpi data:
+\code{\link{ICSS}},
+\code{\link{meanpop_fi}},
+\code{\link{popmort}},
+\code{\link{sibr}},
+\code{\link{sire}},
+\code{\link{stdpop101}}
+
+Other weights:
+\code{\link{ICSS}},
+\code{\link{direct_standardization}},
+\code{\link{stdpop101}}
+}
+\concept{popEpi data}
+\concept{weights}
diff --git a/man/summary.aggre.Rd b/man/summary.aggre.Rd
index f86f319..8c98d2d 100644
--- a/man/summary.aggre.Rd
+++ b/man/summary.aggre.Rd
@@ -1,38 +1,38 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/S3_definitions.R
-\name{summary.aggre}
-\alias{summary.aggre}
-\title{Summarize an \code{aggre} Object}
-\usage{
-\method{summary}{aggre}(object, by = NULL, subset = NULL, ...)
-}
-\arguments{
-\item{object}{an \code{aggre} object}
-
-\item{by}{list of columns to summarize by - e.g. \code{list(V1, V2)}
-where \code{V1} and \code{V2} are columns in the data.}
-
-\item{subset}{a logical condition to subset results table by
-before summarizing; use this to limit to a certain stratum. E.g.
-\code{subset = sex == "male"}}
-
-\item{...}{unused}
-}
-\value{
-Returns a `data.table` --- a further aggregated version of `object`.
-}
-\description{
-\code{summary} method function for \code{aggre} objects; see
-\code{\link{as.aggre}} and \code{\link{aggre}}.
-}
-\seealso{
-Other aggregation functions:
-\code{\link{aggre}()},
-\code{\link{as.aggre}()},
-\code{\link{lexpand}()},
-\code{\link{setaggre}()}
-}
-\author{
-Joonas Miettinen
-}
-\concept{aggregation functions}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/S3_definitions.R
+\name{summary.aggre}
+\alias{summary.aggre}
+\title{Summarize an \code{aggre} Object}
+\usage{
+\method{summary}{aggre}(object, by = NULL, subset = NULL, ...)
+}
+\arguments{
+\item{object}{an \code{aggre} object}
+
+\item{by}{list of columns to summarize by - e.g. \code{list(V1, V2)}
+where \code{V1} and \code{V2} are columns in the data.}
+
+\item{subset}{a logical condition to subset results table by
+before summarizing; use this to limit to a certain stratum. E.g.
+\code{subset = sex == "male"}}
+
+\item{...}{unused}
+}
+\value{
+Returns a `data.table` --- a further aggregated version of `object`.
+}
+\description{
+\code{summary} method function for \code{aggre} objects; see
+\code{\link{as.aggre}} and \code{\link{aggre}}.
+}
+\seealso{
+Other aggregation functions:
+\code{\link{aggre}()},
+\code{\link{as.aggre}()},
+\code{\link{lexpand}()},
+\code{\link{setaggre}()}
+}
+\author{
+Joonas Miettinen
+}
+\concept{aggregation functions}
diff --git a/man/summary.survtab.Rd b/man/summary.survtab.Rd
index 99b69c9..d3dc1a3 100644
--- a/man/summary.survtab.Rd
+++ b/man/summary.survtab.Rd
@@ -1,100 +1,100 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/S3_definitions.R
-\name{summary.survtab}
-\alias{summary.survtab}
-\title{Summarize a survtab Object}
-\usage{
-\method{summary}{survtab}(object, t = NULL, subset = NULL, q = NULL, ...)
-}
-\arguments{
-\item{object}{a \code{survtab} object}
-
-\item{t}{a vector of times at which time points (actually intervals that
-contain t) to print summary table of survival function estimates by strata;
-values not existing in any interval cause rows containing only \code{NAs} to
-be returned.}
-
-\item{subset}{a logical condition to subset results table by
-before printing; use this to limit to a certain stratum. E.g.
-\code{subset = sex == "male"}}
-
-\item{q}{a named \code{list} of quantiles to include in returned data set,
-where names must match to estimates in \code{object};
-returns intervals where the quantiles are reached first;
-e.g. \code{list(surv.obs = 0.5)} finds the interval where \code{surv.obs}
-is 0.45 and 0.55 at the beginning and end of the interval, respectively;
-returns rows with \code{NA} values for quantiles not reached in estimates
-(e.g. if \code{q = list(surv.obs = 0.5)} but lowest estimate is 0.6);
-see Examples.}
-
-\item{...}{unused; required for congruence with other \code{summary} methods}
-}
-\value{
-A `data.table`: a slice from `object` based on `t`, `subset`, and `q`.
-}
-\description{
-Summary method function for \code{survtab} objects; see
-\code{\link{survtab_ag}}. Returns estimates at given time points
-or all time points if \code{t} and \code{q} are both \code{NULL}.
-}
-\details{
-Note that this function returns the intervals and NOT the time points
-corresponding to quantiles / estimates corresponding to time points.
-If you want precise estimates at time points that are not interval breaks,
-add the time points as breaks and re-estimate the survival time function.
-In interval-based estimation, the estimates denote e.g. probability of
-dying \emph{during} the interval, so time points within the intervals
-are not usually considered at all. See e.g. Seppa, Dyba, and Hakulinen
-(2015).
-}
-\examples{
-
-library(Epi)
-
-## NOTE: recommended to use factor status variable
-x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
- exit = list(CAL = get.yrs(ex_date)),
- data = sire[sire$dg_date < sire$ex_date, ],
- exit.status = factor(status, levels = 0:2,
- labels = c("alive", "canD", "othD")),
- merge = TRUE)
-## pretend some are male
-set.seed(1L)
-x$sex <- rbinom(nrow(x), 1, 0.5)
-## observed survival
-st <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex, data = x,
- surv.type = "cif.obs",
- breaks = list(FUT = seq(0, 5, 1/12)))
-
-## estimates at full years of follow-up
-summary(st, t = 1:5)
-
-## interval estimate closest to 75th percentile, i.e.
-## first interval where surv.obs < 0.75 at end
-## (just switch 0.75 to 0.5 for median survival, etc.)
-summary(st, q = list(surv.obs = 0.75))
-## multiple quantiles
-summary(st, q = list(surv.obs = c(0.75, 0.90), CIF_canD = 0.20))
-
-## if you want all estimates in a new data.frame, you can also simply do
-
-x <- as.data.frame(st)
-}
-\references{
-Seppa K., Dyba T. and Hakulinen T.: Cancer Survival,
-Reference Module in Biomedical Sciences. Elsevier. 08-Jan-2015.
-\doi{10.1016/B978-0-12-801238-3.02745-8}
-}
-\seealso{
-Other survtab functions:
-\code{\link{Surv}()},
-\code{\link{lines.survtab}()},
-\code{\link{plot.survtab}()},
-\code{\link{print.survtab}()},
-\code{\link{survtab_ag}()},
-\code{\link{survtab}()}
-}
-\author{
-Joonas Miettinen
-}
-\concept{survtab functions}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/S3_definitions.R
+\name{summary.survtab}
+\alias{summary.survtab}
+\title{Summarize a survtab Object}
+\usage{
+\method{summary}{survtab}(object, t = NULL, subset = NULL, q = NULL, ...)
+}
+\arguments{
+\item{object}{a \code{survtab} object}
+
+\item{t}{a vector of times at which time points (actually intervals that
+contain t) to print summary table of survival function estimates by strata;
+values not existing in any interval cause rows containing only \code{NAs} to
+be returned.}
+
+\item{subset}{a logical condition to subset results table by
+before printing; use this to limit to a certain stratum. E.g.
+\code{subset = sex == "male"}}
+
+\item{q}{a named \code{list} of quantiles to include in returned data set,
+where names must match to estimates in \code{object};
+returns intervals where the quantiles are reached first;
+e.g. \code{list(surv.obs = 0.5)} finds the interval where \code{surv.obs}
+is 0.45 and 0.55 at the beginning and end of the interval, respectively;
+returns rows with \code{NA} values for quantiles not reached in estimates
+(e.g. if \code{q = list(surv.obs = 0.5)} but lowest estimate is 0.6);
+see Examples.}
+
+\item{...}{unused; required for congruence with other \code{summary} methods}
+}
+\value{
+A `data.table`: a slice from `object` based on `t`, `subset`, and `q`.
+}
+\description{
+Summary method function for \code{survtab} objects; see
+\code{\link{survtab_ag}}. Returns estimates at given time points
+or all time points if \code{t} and \code{q} are both \code{NULL}.
+}
+\details{
+Note that this function returns the intervals and NOT the time points
+corresponding to quantiles / estimates corresponding to time points.
+If you want precise estimates at time points that are not interval breaks,
+add the time points as breaks and re-estimate the survival time function.
+In interval-based estimation, the estimates denote e.g. probability of
+dying \emph{during} the interval, so time points within the intervals
+are not usually considered at all. See e.g. Seppa, Dyba, and Hakulinen
+(2015).
+}
+\examples{
+
+library(Epi)
+
+## NOTE: recommended to use factor status variable
+x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
+ exit = list(CAL = get.yrs(ex_date)),
+ data = sire[sire$dg_date < sire$ex_date, ],
+ exit.status = factor(status, levels = 0:2,
+ labels = c("alive", "canD", "othD")),
+ merge = TRUE)
+## pretend some are male
+set.seed(1L)
+x$sex <- rbinom(nrow(x), 1, 0.5)
+## observed survival
+st <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex, data = x,
+ surv.type = "cif.obs",
+ breaks = list(FUT = seq(0, 5, 1/12)))
+
+## estimates at full years of follow-up
+summary(st, t = 1:5)
+
+## interval estimate closest to 75th percentile, i.e.
+## first interval where surv.obs < 0.75 at end
+## (just switch 0.75 to 0.5 for median survival, etc.)
+summary(st, q = list(surv.obs = 0.75))
+## multiple quantiles
+summary(st, q = list(surv.obs = c(0.75, 0.90), CIF_canD = 0.20))
+
+## if you want all estimates in a new data.frame, you can also simply do
+
+x <- as.data.frame(st)
+}
+\references{
+Seppa K., Dyba T. and Hakulinen T.: Cancer Survival,
+Reference Module in Biomedical Sciences. Elsevier. 08-Jan-2015.
+\doi{10.1016/B978-0-12-801238-3.02745-8}
+}
+\seealso{
+Other survtab functions:
+\code{\link{Surv}()},
+\code{\link{lines.survtab}()},
+\code{\link{plot.survtab}()},
+\code{\link{print.survtab}()},
+\code{\link{survtab_ag}()},
+\code{\link{survtab}()}
+}
+\author{
+Joonas Miettinen
+}
+\concept{survtab functions}
diff --git a/man/survmean.Rd b/man/survmean.Rd
index 4e18b01..22eb9d2 100644
--- a/man/survmean.Rd
+++ b/man/survmean.Rd
@@ -1,299 +1,299 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/mean_survival.R
-\name{survmean}
-\alias{survmean}
-\title{Compute Mean Survival Times Using Extrapolation}
-\usage{
-survmean(
- formula,
- data,
- adjust = NULL,
- weights = NULL,
- breaks = NULL,
- pophaz = NULL,
- e1.breaks = NULL,
- e1.pophaz = pophaz,
- r = "auto",
- surv.method = "hazard",
- subset = NULL,
- verbose = FALSE
-)
-}
-\arguments{
-\item{formula}{a \code{formula}, e.g. \code{FUT ~ V1} or
-\code{Surv(FUT, lex.Xst) ~ V1}.
-Supplied in the same way as to \code{\link{survtab}}, see that help
-for more info.}
-
-\item{data}{a \code{Lexis} data set; see \code{\link[Epi]{Lexis}}.}
-
-\item{adjust}{variables to adjust estimates by, e.g. \code{adjust = "agegr"}.
-\link[=flexible_argument]{Flexible input}.}
-
-\item{weights}{weights to use to adjust mean survival times. See the
-\link[=direct_standardization]{dedicated help page} for more details on
-weighting. \code{survmean}
-computes curves separately by all variables to adjust by, computes mean
-survival times, and computes weighted means of the mean survival times.
-See Examples.}
-
-\item{breaks}{a list of breaks defining the time window to compute
-observed survival in, and the intervals used in estimation. E.g.
-\code{list(FUT = 0:10)} when \code{FUT} is the follow-up time scale in your
-data.}
-
-\item{pophaz}{a data set of population hazards passed to
-\code{\link{survtab}} (see the
-\link[=pophaz]{dedicated help page} and the help page of
-\code{survtab} for more information). Defines the
-population hazard in the time window where observed survival is estimated.}
-
-\item{e1.breaks}{\code{NULL} or a list of breaks defining the time
-window to compute
-\strong{expected} survival in, and the intervals used in estimation. E.g.
-\code{list(FUT = 0:100)} when \code{FUT} is the follow-up time scale in your
-data to extrapolate up to 100 years from where the observed survival
-curve ends. \strong{NOTE:} the breaks on the survival time scale
-MUST include the breaks supplied to argument \code{breaks}; see Examples.
-If \code{NULL}, uses decent defaults (maximum follow-up time of 50 years).}
-
-\item{e1.pophaz}{Same as \code{pophaz}, except this defines the
-population hazard in the time window where \strong{expected}
-survival is estimated. By default uses the same data as
-argument \code{pophaz}.}
-
-\item{r}{either a numeric multiplier such as \code{0.995}, \code{"auto"}, or
-\code{"autoX"} where \code{X} is an integer;
-used to determine the relative survival ratio (RSR) persisting after where
-the estimated observed survival curve ends. See Details.}
-
-\item{surv.method}{passed to \code{survtab}; see that help for more info.}
-
-\item{subset}{a logical condition; e.g. \code{subset = sex == 1};
-subsets the data before computations}
-
-\item{verbose}{\code{logical}; if \code{TRUE}, the function is returns
-some messages and results along the run, which may be useful in debugging}
-}
-\value{
-Returns a \code{data.frame} or \code{data.table} (depending on
-\code{getOptions("popEpi.datatable")}; see \code{?popEpi}) containing the
-following columns:
-\itemize{
- \item{est}{: The estimated mean survival time}
- \item{exp}{: The computed expected survival time}
- \item{obs}{: Counts of subjects in data}
- \item{YPLL}{: Years of Potential Life Lost, computed as
- (\code{(exp-est)*obs}) - though your time data may be in e.g. days,
- this column will have the same name regardless.}
-}
-The returned data also has columns named according to the variables
-supplied to the right-hand-side of the formula.
-}
-\description{
-Computes mean survival times based on survival estimation up to
-a point in follow-up time (e.g. 10 years),
-after which survival is extrapolated
-using an appropriate hazard data file (\code{pophaz}) to yield the "full"
-survival curve. The area under the full survival curve is the mean survival.
-}
-\details{
-\strong{Basics}
-
-\code{survmean} computes mean survival times. For median survival times
-(i.e. where 50 % of subjects have died or met some other event)
-use \code{\link{survtab}}.
-
-The mean survival time is simply the area under the survival curve.
-However, since full follow-up rarely happens, the observed survival curves
-are extrapolated using expected survival: E.g. one might compute observed
-survival till up to 10 years and extrapolate beyond that
-(till e.g. 50 years) to yield an educated guess on the full observed survival
-curve.
-
-The area is computed by trapezoidal integration of the area under the curve.
-This function also computes the "full" expected survival curve from
-T = 0 till e.g. T = 50 depending on supplied arguments. The
-expected mean survival time is the area under the
-mean expected survival curve.
-This function returns the mean expected survival time to be compared with
-the mean survival time and for computing years of potential life lost (YPLL).
-
-Results can be formed by strata and adjusted for e.g. age by using
-the \code{formula} argument as in \code{survtab}. See also Examples.
-
-\strong{Extrapolation tweaks}
-
-Argument \code{r} controls the relative survival ratio (RSR) assumed to
-persist beyond the time window where observed survival is computed
-(defined by argument \code{breaks}; e.g. up to \code{FUT = 10}).
-The RSR is simply \code{RSR_i = p_oi / p_ei} for a time interval \code{i},
-i.e. the observed divided by the expected
-(conditional, not cumulative) probability of surviving from the beginning of
-a time interval till its end. The cumulative product of \code{RSR_i}
-over time is the (cumulative) relative survival curve.
-
-
-If \code{r} is numeric, e.g. \code{r = 0.995}, that RSR level is assumed
-to persist beyond the observed survival curve.
-Numeric \code{r} should be \code{> 0} and expressed at the annual level
-when using fractional years as the scale of the time variables.
-E.g. if RSR is known to be \code{0.95} at the month level, then the
-annualized RSR is \code{0.95^12}. This enables correct usage of the RSR
-with survival intervals of varying lengths. When using day-level time
-variables (such as \code{Dates}; see \code{as.Date}), numeric \code{r}
-should be expressed at the day level, etc.
-
-If \code{r = "auto"} or \code{r = "auto1"}, this function computes
-RSR estimates internally and automatically uses the \code{RSR_i}
-in the last survival interval in each stratum (and adjusting group)
-and assumes that to persist beyond the observed survival curve.
-Automatic determination of \code{r} is a good starting point,
-but in situations where the RSR estimate is uncertain it may produce poor
-results. Using \code{"autoX"} such as \code{"auto6"} causes \code{survmean}
-to use the mean of the estimated RSRs in the last X survival intervals,
-which may be more stable.
-Automatic determination will not use values \code{>1} but set them to 1.
-Visual inspection of the produced curves is always recommended: see
-Examples.
-
-One may also tweak the accuracy and length of extrapolation and
-expected survival curve computation by using
-\code{e1.breaks}. By default this is whatever was supplied to \code{breaks}
-for the survival time scale, to which
-
-\code{c(seq(1/12, 1, 1/12), seq(1.2, 1.8, 0.2), 2:19, seq(20, 50, 5))}
-
-is added after the maximum value, e.g. with \code{breaks = list(FUT = 0:10)}
-we have
-
-\code{..., 10+1/12, ..., 11, 11.2, ..., 2, 3, ..., 19, 20, 25, ... 50}
-
-as the \code{e1.breaks}. Supplying \code{e1.breaks} manually requires
-the breaks over time survival time scale supplied to argument \code{breaks}
-to be reiterated in \code{e1.breaks}; see Examples. \strong{NOTE}: the
-default extrapolation breaks assume the time scales in the data to be
-expressed as fractional years, meaning this will work extremely poorly
-when using e.g. day-level time scales (such as \code{Date} variables).
-Set the extrapolation breaks manually in such cases.
-}
-\examples{
-
-library(Epi)
-## take 500 subjects randomly for demonstration
-data(sire)
-sire <- sire[sire$dg_date < sire$ex_date, ]
-set.seed(1L)
-sire <- sire[sample(x = nrow(sire), size = 500),]
-
-## NOTE: recommended to use factor status variable
-x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
- exit = list(CAL = get.yrs(ex_date)),
- data = sire,
- exit.status = factor(status, levels = 0:2,
- labels = c("alive", "canD", "othD")),
- merge = TRUE)
-
-## phony variable
-set.seed(1L)
-x$group <- rbinom(nrow(x), 1, 0.5)
-## age group
-x$agegr <- cut(x$dg_age, c(0,45,60,Inf), right=FALSE)
-
-## population hazards data set
-pm <- data.frame(popEpi::popmort)
-names(pm) <- c("sex", "CAL", "AGE", "haz")
-
-## breaks to define observed survival estimation
-BL <- list(FUT = seq(0, 10, 1/12))
-
-## crude mean survival
-sm1 <- survmean(Surv(FUT, lex.Xst != "alive") ~ 1,
- pophaz = pm, data = x, weights = NULL,
- breaks = BL)
-
-sm1 <- survmean(FUT ~ 1,
- pophaz = pm, data = x, weights = NULL,
- breaks = BL)
-\donttest{
-## mean survival by group
-sm2 <- survmean(FUT ~ group,
- pophaz = pm, data = x, weights = NULL,
- breaks = BL)
-
-## ... and adjusted for age using internal weights (counts of subjects)
-## note: need also longer extrapolation here so that all curves
-## converge to zero in the end.
-eBL <- list(FUT = c(BL$FUT, 11:75))
-sm3 <- survmean(FUT ~ group + adjust(agegr),
- pophaz = pm, data = x, weights = "internal",
- breaks = BL, e1.breaks = eBL)
-}
-## visual inspection of how realistic extrapolation is for each stratum;
-## solid lines are observed + extrapolated survivals;
-## dashed lines are expected survivals
-plot(sm1)
-\donttest{
-## plotting object with both stratification and standardization
-## plots curves for each strata-std.group combination
-plot(sm3)
-
-## for finer control of plotting these curves, you may extract
-## from the survmean object using e.g.
-attributes(sm3)$survmean.meta$curves
-
-
-#### using Dates
-
-x <- Lexis(entry = list(FUT = 0L, AGE = dg_date-bi_date, CAL = dg_date),
- exit = list(CAL = ex_date),
- data = sire[sire$dg_date < sire$ex_date, ],
- exit.status = factor(status, levels = 0:2,
- labels = c("alive", "canD", "othD")),
- merge = TRUE)
-## phony group variable
-set.seed(1L)
-x$group <- rbinom(nrow(x), 1, 0.5)
-
-
-## NOTE: population hazard should be reported at the same scale
-## as time variables in your Lexis data.
-data(popmort, package = "popEpi")
-pm <- data.frame(popmort)
-names(pm) <- c("sex", "CAL", "AGE", "haz")
-## from year to day level
-pm$haz <- pm$haz/365.25
-pm$CAL <- as.Date(paste0(pm$CAL, "-01-01"))
-pm$AGE <- pm$AGE*365.25
-
-BL <- list(FUT = seq(0, 8, 1/12)*365.25)
-eBL <- list(FUT = c(BL$FUT, c(8.25,8.5,9:60)*365.25))
-smd <- survmean(FUT ~ group, data = x,
- pophaz = pm, verbose = TRUE, r = "auto5",
- breaks = BL, e1.breaks = eBL)
-plot(smd)
-}
-
-
-}
-\seealso{
-Other survmean functions:
-\code{\link{Surv}()},
-\code{\link{lines.survmean}()},
-\code{\link{plot.survmean}()}
-
-Other main functions:
-\code{\link{Surv}()},
-\code{\link{rate}()},
-\code{\link{relpois_ag}()},
-\code{\link{relpois}()},
-\code{\link{sirspline}()},
-\code{\link{sir}()},
-\code{\link{survtab_ag}()},
-\code{\link{survtab}()}
-}
-\author{
-Joonas Miettinen
-}
-\concept{main functions}
-\concept{survmean functions}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/mean_survival.R
+\name{survmean}
+\alias{survmean}
+\title{Compute Mean Survival Times Using Extrapolation}
+\usage{
+survmean(
+ formula,
+ data,
+ adjust = NULL,
+ weights = NULL,
+ breaks = NULL,
+ pophaz = NULL,
+ e1.breaks = NULL,
+ e1.pophaz = pophaz,
+ r = "auto",
+ surv.method = "hazard",
+ subset = NULL,
+ verbose = FALSE
+)
+}
+\arguments{
+\item{formula}{a \code{formula}, e.g. \code{FUT ~ V1} or
+\code{Surv(FUT, lex.Xst) ~ V1}.
+Supplied in the same way as to \code{\link{survtab}}, see that help
+for more info.}
+
+\item{data}{a \code{Lexis} data set; see \code{\link[Epi]{Lexis}}.}
+
+\item{adjust}{variables to adjust estimates by, e.g. \code{adjust = "agegr"}.
+\link[=flexible_argument]{Flexible input}.}
+
+\item{weights}{weights to use to adjust mean survival times. See the
+\link[=direct_standardization]{dedicated help page} for more details on
+weighting. \code{survmean}
+computes curves separately by all variables to adjust by, computes mean
+survival times, and computes weighted means of the mean survival times.
+See Examples.}
+
+\item{breaks}{a list of breaks defining the time window to compute
+observed survival in, and the intervals used in estimation. E.g.
+\code{list(FUT = 0:10)} when \code{FUT} is the follow-up time scale in your
+data.}
+
+\item{pophaz}{a data set of population hazards passed to
+\code{\link{survtab}} (see the
+\link[=pophaz]{dedicated help page} and the help page of
+\code{survtab} for more information). Defines the
+population hazard in the time window where observed survival is estimated.}
+
+\item{e1.breaks}{\code{NULL} or a list of breaks defining the time
+window to compute
+\strong{expected} survival in, and the intervals used in estimation. E.g.
+\code{list(FUT = 0:100)} when \code{FUT} is the follow-up time scale in your
+data to extrapolate up to 100 years from where the observed survival
+curve ends. \strong{NOTE:} the breaks on the survival time scale
+MUST include the breaks supplied to argument \code{breaks}; see Examples.
+If \code{NULL}, uses decent defaults (maximum follow-up time of 50 years).}
+
+\item{e1.pophaz}{Same as \code{pophaz}, except this defines the
+population hazard in the time window where \strong{expected}
+survival is estimated. By default uses the same data as
+argument \code{pophaz}.}
+
+\item{r}{either a numeric multiplier such as \code{0.995}, \code{"auto"}, or
+\code{"autoX"} where \code{X} is an integer;
+used to determine the relative survival ratio (RSR) persisting after where
+the estimated observed survival curve ends. See Details.}
+
+\item{surv.method}{passed to \code{survtab}; see that help for more info.}
+
+\item{subset}{a logical condition; e.g. \code{subset = sex == 1};
+subsets the data before computations}
+
+\item{verbose}{\code{logical}; if \code{TRUE}, the function is returns
+some messages and results along the run, which may be useful in debugging}
+}
+\value{
+Returns a \code{data.frame} or \code{data.table} (depending on
+\code{getOptions("popEpi.datatable")}; see \code{?popEpi}) containing the
+following columns:
+\itemize{
+ \item{est}{: The estimated mean survival time}
+ \item{exp}{: The computed expected survival time}
+ \item{obs}{: Counts of subjects in data}
+ \item{YPLL}{: Years of Potential Life Lost, computed as
+ (\code{(exp-est)*obs}) - though your time data may be in e.g. days,
+ this column will have the same name regardless.}
+}
+The returned data also has columns named according to the variables
+supplied to the right-hand-side of the formula.
+}
+\description{
+Computes mean survival times based on survival estimation up to
+a point in follow-up time (e.g. 10 years),
+after which survival is extrapolated
+using an appropriate hazard data file (\code{pophaz}) to yield the "full"
+survival curve. The area under the full survival curve is the mean survival.
+}
+\details{
+\strong{Basics}
+
+\code{survmean} computes mean survival times. For median survival times
+(i.e. where 50 % of subjects have died or met some other event)
+use \code{\link{survtab}}.
+
+The mean survival time is simply the area under the survival curve.
+However, since full follow-up rarely happens, the observed survival curves
+are extrapolated using expected survival: E.g. one might compute observed
+survival till up to 10 years and extrapolate beyond that
+(till e.g. 50 years) to yield an educated guess on the full observed survival
+curve.
+
+The area is computed by trapezoidal integration of the area under the curve.
+This function also computes the "full" expected survival curve from
+T = 0 till e.g. T = 50 depending on supplied arguments. The
+expected mean survival time is the area under the
+mean expected survival curve.
+This function returns the mean expected survival time to be compared with
+the mean survival time and for computing years of potential life lost (YPLL).
+
+Results can be formed by strata and adjusted for e.g. age by using
+the \code{formula} argument as in \code{survtab}. See also Examples.
+
+\strong{Extrapolation tweaks}
+
+Argument \code{r} controls the relative survival ratio (RSR) assumed to
+persist beyond the time window where observed survival is computed
+(defined by argument \code{breaks}; e.g. up to \code{FUT = 10}).
+The RSR is simply \code{RSR_i = p_oi / p_ei} for a time interval \code{i},
+i.e. the observed divided by the expected
+(conditional, not cumulative) probability of surviving from the beginning of
+a time interval till its end. The cumulative product of \code{RSR_i}
+over time is the (cumulative) relative survival curve.
+
+
+If \code{r} is numeric, e.g. \code{r = 0.995}, that RSR level is assumed
+to persist beyond the observed survival curve.
+Numeric \code{r} should be \code{> 0} and expressed at the annual level
+when using fractional years as the scale of the time variables.
+E.g. if RSR is known to be \code{0.95} at the month level, then the
+annualized RSR is \code{0.95^12}. This enables correct usage of the RSR
+with survival intervals of varying lengths. When using day-level time
+variables (such as \code{Dates}; see \code{as.Date}), numeric \code{r}
+should be expressed at the day level, etc.
+
+If \code{r = "auto"} or \code{r = "auto1"}, this function computes
+RSR estimates internally and automatically uses the \code{RSR_i}
+in the last survival interval in each stratum (and adjusting group)
+and assumes that to persist beyond the observed survival curve.
+Automatic determination of \code{r} is a good starting point,
+but in situations where the RSR estimate is uncertain it may produce poor
+results. Using \code{"autoX"} such as \code{"auto6"} causes \code{survmean}
+to use the mean of the estimated RSRs in the last X survival intervals,
+which may be more stable.
+Automatic determination will not use values \code{>1} but set them to 1.
+Visual inspection of the produced curves is always recommended: see
+Examples.
+
+One may also tweak the accuracy and length of extrapolation and
+expected survival curve computation by using
+\code{e1.breaks}. By default this is whatever was supplied to \code{breaks}
+for the survival time scale, to which
+
+\code{c(seq(1/12, 1, 1/12), seq(1.2, 1.8, 0.2), 2:19, seq(20, 50, 5))}
+
+is added after the maximum value, e.g. with \code{breaks = list(FUT = 0:10)}
+we have
+
+\code{..., 10+1/12, ..., 11, 11.2, ..., 2, 3, ..., 19, 20, 25, ... 50}
+
+as the \code{e1.breaks}. Supplying \code{e1.breaks} manually requires
+the breaks over time survival time scale supplied to argument \code{breaks}
+to be reiterated in \code{e1.breaks}; see Examples. \strong{NOTE}: the
+default extrapolation breaks assume the time scales in the data to be
+expressed as fractional years, meaning this will work extremely poorly
+when using e.g. day-level time scales (such as \code{Date} variables).
+Set the extrapolation breaks manually in such cases.
+}
+\examples{
+
+library(Epi)
+## take 500 subjects randomly for demonstration
+data(sire)
+sire <- sire[sire$dg_date < sire$ex_date, ]
+set.seed(1L)
+sire <- sire[sample(x = nrow(sire), size = 500),]
+
+## NOTE: recommended to use factor status variable
+x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
+ exit = list(CAL = get.yrs(ex_date)),
+ data = sire,
+ exit.status = factor(status, levels = 0:2,
+ labels = c("alive", "canD", "othD")),
+ merge = TRUE)
+
+## phony variable
+set.seed(1L)
+x$group <- rbinom(nrow(x), 1, 0.5)
+## age group
+x$agegr <- cut(x$dg_age, c(0,45,60,Inf), right=FALSE)
+
+## population hazards data set
+pm <- data.frame(popEpi::popmort)
+names(pm) <- c("sex", "CAL", "AGE", "haz")
+
+## breaks to define observed survival estimation
+BL <- list(FUT = seq(0, 10, 1/12))
+
+## crude mean survival
+sm1 <- survmean(Surv(FUT, lex.Xst != "alive") ~ 1,
+ pophaz = pm, data = x, weights = NULL,
+ breaks = BL)
+
+sm1 <- survmean(FUT ~ 1,
+ pophaz = pm, data = x, weights = NULL,
+ breaks = BL)
+\donttest{
+## mean survival by group
+sm2 <- survmean(FUT ~ group,
+ pophaz = pm, data = x, weights = NULL,
+ breaks = BL)
+
+## ... and adjusted for age using internal weights (counts of subjects)
+## note: need also longer extrapolation here so that all curves
+## converge to zero in the end.
+eBL <- list(FUT = c(BL$FUT, 11:75))
+sm3 <- survmean(FUT ~ group + adjust(agegr),
+ pophaz = pm, data = x, weights = "internal",
+ breaks = BL, e1.breaks = eBL)
+}
+## visual inspection of how realistic extrapolation is for each stratum;
+## solid lines are observed + extrapolated survivals;
+## dashed lines are expected survivals
+plot(sm1)
+\donttest{
+## plotting object with both stratification and standardization
+## plots curves for each strata-std.group combination
+plot(sm3)
+
+## for finer control of plotting these curves, you may extract
+## from the survmean object using e.g.
+attributes(sm3)$survmean.meta$curves
+
+
+#### using Dates
+
+x <- Lexis(entry = list(FUT = 0L, AGE = dg_date-bi_date, CAL = dg_date),
+ exit = list(CAL = ex_date),
+ data = sire[sire$dg_date < sire$ex_date, ],
+ exit.status = factor(status, levels = 0:2,
+ labels = c("alive", "canD", "othD")),
+ merge = TRUE)
+## phony group variable
+set.seed(1L)
+x$group <- rbinom(nrow(x), 1, 0.5)
+
+
+## NOTE: population hazard should be reported at the same scale
+## as time variables in your Lexis data.
+data(popmort, package = "popEpi")
+pm <- data.frame(popmort)
+names(pm) <- c("sex", "CAL", "AGE", "haz")
+## from year to day level
+pm$haz <- pm$haz/365.25
+pm$CAL <- as.Date(paste0(pm$CAL, "-01-01"))
+pm$AGE <- pm$AGE*365.25
+
+BL <- list(FUT = seq(0, 8, 1/12)*365.25)
+eBL <- list(FUT = c(BL$FUT, c(8.25,8.5,9:60)*365.25))
+smd <- survmean(FUT ~ group, data = x,
+ pophaz = pm, verbose = TRUE, r = "auto5",
+ breaks = BL, e1.breaks = eBL)
+plot(smd)
+}
+
+
+}
+\seealso{
+Other survmean functions:
+\code{\link{Surv}()},
+\code{\link{lines.survmean}()},
+\code{\link{plot.survmean}()}
+
+Other main functions:
+\code{\link{Surv}()},
+\code{\link{rate}()},
+\code{\link{relpois_ag}()},
+\code{\link{relpois}()},
+\code{\link{sirspline}()},
+\code{\link{sir}()},
+\code{\link{survtab_ag}()},
+\code{\link{survtab}()}
+}
+\author{
+Joonas Miettinen
+}
+\concept{main functions}
+\concept{survmean functions}
diff --git a/man/survtab.Rd b/man/survtab.Rd
index c3d706e..8e3fcae 100644
--- a/man/survtab.Rd
+++ b/man/survtab.Rd
@@ -1,332 +1,332 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/survival_lexis.R
-\name{survtab}
-\alias{survtab}
-\title{Estimate Survival Time Functions}
-\usage{
-survtab(
- formula,
- data,
- adjust = NULL,
- breaks = NULL,
- pophaz = NULL,
- weights = NULL,
- surv.type = "surv.rel",
- surv.method = "hazard",
- relsurv.method = "e2",
- subset = NULL,
- conf.level = 0.95,
- conf.type = "log-log",
- verbose = FALSE
-)
-}
-\arguments{
-\item{formula}{a \code{formula}; e.g. \code{fot ~ sex},
-where \code{fot} is the time scale over which you wish to estimate a
-survival time function; this
-assumes that \code{lex.Xst} in your data is the status variable in the
-intended format (almost always right).
-To be explicit, use \code{\link[survival]{Surv}}: e.g.
-\code{Surv(fot, lex.Xst) ~ sex}.
-Variables on the right-hand side of the formula
-separated by \code{+} are considered stratifying variables, for which
-estimates are computed separately. May contain usage of \code{adjust()}
---- see Details and Examples.}
-
-\item{data}{a \code{Lexis} object with at least the survival time scale}
-
-\item{adjust}{can be used as an alternative to passing variables to
-argument \code{formula} within a call to \code{adjust()}; e.g.
-\code{adjust = "agegr"}. \link[=flexible_argument]{Flexible input}.}
-
-\item{breaks}{a named list of breaks, e.g.
-\code{list(FUT = 0:5)}. If data is not split in advance, \code{breaks}
-must at the very least contain a vector of breaks to split the survival time
-scale (mentioned in argument \code{formula}). If data has already been split
-(using e.g. \code{\link{splitMulti}}) along at least the used survival time
-scale, this may be \code{NULL}. It is generally recommended (and sufficient;
-see Seppa, Dyban and Hakulinen (2015)) to use monthly
-intervals where applicable.}
-
-\item{pophaz}{a \code{data.frame} containing
-expected hazards for the event of interest to occur. See the
-\link[=pophaz]{dedicated help page}. Required when
-\code{surv.type = "surv.rel"} or \code{"cif.rel"}. \code{pophaz} must
-contain one column named \code{"haz"}, and any number of other columns
-identifying levels of variables to do a merge with split data within
-\code{survtab}. Some columns may be time scales, which will
-allow for the expected hazard to vary by e.g. calendar time and age.}
-
-\item{weights}{typically a list of weights or a \code{character} string
-specifying an age group standardization scheme; see
-the \link[=direct_standardization]{dedicated help page}
-and examples. NOTE: \code{weights = "internal"} is based on the counts
-of persons in follow-up at the start of follow-up (typically T = 0)}
-
-\item{surv.type}{one of \code{'surv.obs'},
-\code{'surv.cause'}, \code{'surv.rel'},
-\code{'cif.obs'} or \code{'cif.rel'};
-defines what kind of survival time function(s) is/are estimated; see Details}
-
-\item{surv.method}{either \code{'lifetable'} or \code{'hazard'}; determines
-the method of calculating survival time functions, where the former computes
-ratios such as \code{p = d/(n - n.cens)}
-and the latter utilizes subject-times
-(typically person-years) for hazard estimates such as \code{d/pyrs}
-which are used to compute survival time function estimates.
-The former method requires argument \code{n.cens} and the latter
-argument \code{pyrs} to be supplied.}
-
-\item{relsurv.method}{either \code{'e2'} or \code{'pp'};
-defines whether to compute relative survival using the
-EdererII method or using Pohar-Perme weighting;
-ignored if \code{surv.type != "surv.rel"}}
-
-\item{subset}{a logical condition; e.g. \code{subset = sex == 1};
-subsets the data before computations}
-
-\item{conf.level}{confidence level used in confidence intervals;
-e.g. \code{0.95} for 95 percent confidence intervals}
-
-\item{conf.type}{character string; must be one of \code{"plain"},
-\code{"log-log"} and \code{"log"};
-defines the transformation used on the survival time
-function to yield confidence
-intervals via the delta method}
-
-\item{verbose}{logical; if \code{TRUE}, the function is chatty and
-returns some messages and timings along the process}
-}
-\value{
-Returns a table of life time function values and other
-information with survival intervals as rows.
-Returns some of the following estimates of survival time functions:
-
-\itemize{
- \item \code{surv.obs} - observed (raw, overall) survival
- \item \code{surv.obs.K} - observed cause-specific survival for cause K
- \item \code{CIF_k} - cumulative incidence function for cause \code{k}
- \item \code{CIF.rel} - cumulative incidence function using excess cases
- \item \code{r.e2} - relative survival, EdererII
- \item \code{r.pp} - relative survival, Pohar-Perme weighted
-}
-The suffix \code{.as} implies adjusted estimates, and \code{.lo} and
-\code{.hi} imply lower and upper confidence limits, respectively.
-The prefix \code{SE.} stands for standard error.
-}
-\description{
-This function estimates survival time functions: survival,
-relative/net survival, and crude/absolute risk functions (CIF).
-}
-\section{Basics}{
-
-
-This function computes interval-based estimates of survival time functions,
-where the intervals are set by the user. For product-limit-based
-estimation see packages \pkg{survival} and \pkg{relsurv}.
-
-if \code{surv.type = 'surv.obs'}, only 'raw' observed survival
-is estimated over the chosen time intervals. With
-\code{surv.type = 'surv.rel'}, also relative survival estimates
-are supplied in addition to observed survival figures.
-
-\code{surv.type = 'cif.obs'} requests cumulative incidence functions (CIF)
-to be estimated.
-CIFs are estimated for each competing risk based
-on a survival-interval-specific proportional hazards
-assumption as described by Chiang (1968).
-With \code{surv.type = 'cif.rel'}, a CIF is estimated with using
-excess cases as the ''cause-specific'' cases. Finally, with
-\code{surv.type = 'surv.cause'}, cause-specific survivals are
-estimated separately for each separate type of event.
-
-In hazard-based estimation (\code{surv.method = "hazard"}) survival
-time functions are transformations of the estimated corresponding hazard
-in the intervals. The hazard itself is estimated using counts of events
-(or excess events) and total subject-time in the interval. Life table
-\code{surv.method = "lifetable"} estimates are constructed as transformations
-of probabilities computed using counts of events and counts of subjects
-at risk.
-
-
-The vignette \href{../doc/survtab_examples.html}{survtab_examples}
-has some practical examples.
-}
-
-\section{Relative survival}{
-
-
-When \code{surv.type = 'surv.rel'}, the user can choose
-\code{relsurv.method = 'pp'}, whereupon Pohar-Perme weighting is used.
-By default \code{relsurv.method = 'e2'}, i.e. the Ederer II method
-is used to estimate relative survival.
-}
-
-\section{Adjusted estimates}{
-
-
-Adjusted estimates in this context mean computing estimates separately
-by the levels of adjusting variables and returning weighted averages
-of the estimates. For example, computing estimates separately by
-age groups and returning a weighted average estimate (age-adjusted estimate).
-
-Adjusting requires specification of both the adjusting variables and
-the weights for all the levels of the adjusting variables. The former can be
-accomplished by using \code{adjust()} with the argument \code{formula},
-or by supplying variables directly to argument \code{adjust}. E.g. the
-following are all equivalent:
-
-\code{formula = fot ~ sex + adjust(agegr) + adjust(area)}
-
-\code{formula = fot ~ sex + adjust(agegr, area)}
-
-\code{formula = fot ~ sex, adjust = c("agegr", "area")}
-
-\code{formula = fot ~ sex, adjust = list(agegr, area)}
-
-The adjusting variables must match with the variable names in the
-argument \code{weights};
-see the \link[=direct_standardization]{dedicated help page}.
-Typically weights are supplied as a \code{list} or
-a \code{data.frame}. The former can be done by e.g.
-
-\code{weights = list(agegr = VEC1, area = VEC2)},
-
-where \code{VEC1} and \code{VEC2} are vectors of weights (which do not
-have to add up to one). See
-\href{../doc/survtab_examples.html}{survtab_examples}
-for an example of using a \code{data.frame} to pass weights.
-}
-
-\section{Period analysis and other data selection schemes}{
-
-
-To calculate e.g. period analysis (delayed entry) estimates,
-limit the data when/before supplying to this function.See
-\href{../doc/survtab_examples.html}{survtab_examples}.
-}
-
-\examples{
-\donttest{
-data("sire", package = "popEpi")
-library(Epi)
-
-## NOTE: recommended to use factor status variable
-x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
- exit = list(CAL = get.yrs(ex_date)),
- data = sire[sire$dg_date < sire$ex_date, ],
- exit.status = factor(status, levels = 0:2,
- labels = c("alive", "canD", "othD")),
- merge = TRUE)
-
-## phony group variable
-set.seed(1L)
-x$group <- rbinom(nrow(x), 1, 0.5)
-
-## observed survival. explicit supplying of status:
-st <- survtab(Surv(time = FUT, event = lex.Xst) ~ group, data = x,
- surv.type = "surv.obs",
- breaks = list(FUT = seq(0, 5, 1/12)))
-## this assumes the status is lex.Xst (right 99.9 \% of the time)
-st <- survtab(FUT ~ group, data = x,
- surv.type = "surv.obs",
- breaks = list(FUT = seq(0, 5, 1/12)))
-
-## relative survival (ederer II)
-data("popmort", package = "popEpi")
-pm <- data.frame(popmort)
-names(pm) <- c("sex", "CAL", "AGE", "haz")
-st <- survtab(FUT ~ group, data = x,
- surv.type = "surv.rel",
- pophaz = pm,
- breaks = list(FUT = seq(0, 5, 1/12)))
-
-## ICSS weights usage
-data("ICSS", package = "popEpi")
-cut <- c(0, 30, 50, 70, Inf)
-agegr <- cut(ICSS$age, cut, right = FALSE)
-w <- aggregate(ICSS1~agegr, data = ICSS, FUN = sum)
-x$agegr <- cut(x$dg_age, cut, right = FALSE)
-st <- survtab(FUT ~ group + adjust(agegr), data = x,
- surv.type = "surv.rel",
- pophaz = pm, weights = w$ICSS1,
- breaks = list(FUT = seq(0, 5, 1/12)))
-
-#### using dates with survtab
-x <- Lexis(entry = list(FUT = 0L, AGE = dg_date-bi_date, CAL = dg_date),
- exit = list(CAL = ex_date),
- data = sire[sire$dg_date < sire$ex_date, ],
- exit.status = factor(status, levels = 0:2,
- labels = c("alive", "canD", "othD")),
- merge = TRUE)
-## phony group variable
-set.seed(1L)
-x$group <- rbinom(nrow(x), 1, 0.5)
-
-st <- survtab(Surv(time = FUT, event = lex.Xst) ~ group, data = x,
- surv.type = "surv.obs",
- breaks = list(FUT = seq(0, 5, 1/12)*365.25))
-
-## NOTE: population hazard should be reported at the same scale
-## as time variables in your Lexis data.
-data(popmort, package = "popEpi")
-pm <- data.frame(popmort)
-names(pm) <- c("sex", "CAL", "AGE", "haz")
-## from year to day level
-pm$haz <- pm$haz/365.25
-pm$CAL <- as.Date(paste0(pm$CAL, "-01-01"))
-pm$AGE <- pm$AGE*365.25
-
-st <- survtab(Surv(time = FUT, event = lex.Xst) ~ group, data = x,
- surv.type = "surv.rel", relsurv.method = "e2",
- pophaz = pm,
- breaks = list(FUT = seq(0, 5, 1/12)*365.25))
-}
-}
-\references{
-Perme, Maja Pohar, Janez Stare, and Jacques Esteve.
-"On estimation in relative survival." Biometrics 68.1 (2012): 113-120.
-\doi{10.1111/j.1541-0420.2011.01640.x}
-
-Hakulinen, Timo, Karri Seppa, and Paul C. Lambert.
-"Choosing the relative survival method for cancer survival estimation."
-European Journal of Cancer 47.14 (2011): 2202-2210.
-\doi{10.1016/j.ejca.2011.03.011}
-
-Seppa, Karri, Timo Hakulinen, and Arun Pokhrel.
-"Choosing the net survival method for cancer survival estimation."
-European Journal of Cancer (2013).
-\doi{10.1016/j.ejca.2013.09.019}
-
-CHIANG, Chin Long. Introduction to stochastic processes in biostatistics.
-1968. ISBN-14: 978-0471155003
-
-Seppa K., Dyba T. and Hakulinen T.: Cancer Survival,
-Reference Module in Biomedical Sciences. Elsevier. 08-Jan-2015.
-\doi{10.1016/B978-0-12-801238-3.02745-8}
-}
-\seealso{
-\code{\link{splitMulti}}, \code{\link{lexpand}},
-\code{\link{ICSS}}, \code{\link{sire}}
-\href{../doc/survtab_examples.html}{The survtab_examples vignette}
-
-Other main functions:
-\code{\link{Surv}()},
-\code{\link{rate}()},
-\code{\link{relpois_ag}()},
-\code{\link{relpois}()},
-\code{\link{sirspline}()},
-\code{\link{sir}()},
-\code{\link{survmean}()},
-\code{\link{survtab_ag}()}
-
-Other survtab functions:
-\code{\link{Surv}()},
-\code{\link{lines.survtab}()},
-\code{\link{plot.survtab}()},
-\code{\link{print.survtab}()},
-\code{\link{summary.survtab}()},
-\code{\link{survtab_ag}()}
-}
-\concept{main functions}
-\concept{survtab functions}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/survival_lexis.R
+\name{survtab}
+\alias{survtab}
+\title{Estimate Survival Time Functions}
+\usage{
+survtab(
+ formula,
+ data,
+ adjust = NULL,
+ breaks = NULL,
+ pophaz = NULL,
+ weights = NULL,
+ surv.type = "surv.rel",
+ surv.method = "hazard",
+ relsurv.method = "e2",
+ subset = NULL,
+ conf.level = 0.95,
+ conf.type = "log-log",
+ verbose = FALSE
+)
+}
+\arguments{
+\item{formula}{a \code{formula}; e.g. \code{fot ~ sex},
+where \code{fot} is the time scale over which you wish to estimate a
+survival time function; this
+assumes that \code{lex.Xst} in your data is the status variable in the
+intended format (almost always right).
+To be explicit, use \code{\link[survival]{Surv}}: e.g.
+\code{Surv(fot, lex.Xst) ~ sex}.
+Variables on the right-hand side of the formula
+separated by \code{+} are considered stratifying variables, for which
+estimates are computed separately. May contain usage of \code{adjust()}
+--- see Details and Examples.}
+
+\item{data}{a \code{Lexis} object with at least the survival time scale}
+
+\item{adjust}{can be used as an alternative to passing variables to
+argument \code{formula} within a call to \code{adjust()}; e.g.
+\code{adjust = "agegr"}. \link[=flexible_argument]{Flexible input}.}
+
+\item{breaks}{a named list of breaks, e.g.
+\code{list(FUT = 0:5)}. If data is not split in advance, \code{breaks}
+must at the very least contain a vector of breaks to split the survival time
+scale (mentioned in argument \code{formula}). If data has already been split
+(using e.g. \code{\link{splitMulti}}) along at least the used survival time
+scale, this may be \code{NULL}. It is generally recommended (and sufficient;
+see Seppa, Dyban and Hakulinen (2015)) to use monthly
+intervals where applicable.}
+
+\item{pophaz}{a \code{data.frame} containing
+expected hazards for the event of interest to occur. See the
+\link[=pophaz]{dedicated help page}. Required when
+\code{surv.type = "surv.rel"} or \code{"cif.rel"}. \code{pophaz} must
+contain one column named \code{"haz"}, and any number of other columns
+identifying levels of variables to do a merge with split data within
+\code{survtab}. Some columns may be time scales, which will
+allow for the expected hazard to vary by e.g. calendar time and age.}
+
+\item{weights}{typically a list of weights or a \code{character} string
+specifying an age group standardization scheme; see
+the \link[=direct_standardization]{dedicated help page}
+and examples. NOTE: \code{weights = "internal"} is based on the counts
+of persons in follow-up at the start of follow-up (typically T = 0)}
+
+\item{surv.type}{one of \code{'surv.obs'},
+\code{'surv.cause'}, \code{'surv.rel'},
+\code{'cif.obs'} or \code{'cif.rel'};
+defines what kind of survival time function(s) is/are estimated; see Details}
+
+\item{surv.method}{either \code{'lifetable'} or \code{'hazard'}; determines
+the method of calculating survival time functions, where the former computes
+ratios such as \code{p = d/(n - n.cens)}
+and the latter utilizes subject-times
+(typically person-years) for hazard estimates such as \code{d/pyrs}
+which are used to compute survival time function estimates.
+The former method requires argument \code{n.cens} and the latter
+argument \code{pyrs} to be supplied.}
+
+\item{relsurv.method}{either \code{'e2'} or \code{'pp'};
+defines whether to compute relative survival using the
+EdererII method or using Pohar-Perme weighting;
+ignored if \code{surv.type != "surv.rel"}}
+
+\item{subset}{a logical condition; e.g. \code{subset = sex == 1};
+subsets the data before computations}
+
+\item{conf.level}{confidence level used in confidence intervals;
+e.g. \code{0.95} for 95 percent confidence intervals}
+
+\item{conf.type}{character string; must be one of \code{"plain"},
+\code{"log-log"} and \code{"log"};
+defines the transformation used on the survival time
+function to yield confidence
+intervals via the delta method}
+
+\item{verbose}{logical; if \code{TRUE}, the function is chatty and
+returns some messages and timings along the process}
+}
+\value{
+Returns a table of life time function values and other
+information with survival intervals as rows.
+Returns some of the following estimates of survival time functions:
+
+\itemize{
+ \item \code{surv.obs} - observed (raw, overall) survival
+ \item \code{surv.obs.K} - observed cause-specific survival for cause K
+ \item \code{CIF_k} - cumulative incidence function for cause \code{k}
+ \item \code{CIF.rel} - cumulative incidence function using excess cases
+ \item \code{r.e2} - relative survival, EdererII
+ \item \code{r.pp} - relative survival, Pohar-Perme weighted
+}
+The suffix \code{.as} implies adjusted estimates, and \code{.lo} and
+\code{.hi} imply lower and upper confidence limits, respectively.
+The prefix \code{SE.} stands for standard error.
+}
+\description{
+This function estimates survival time functions: survival,
+relative/net survival, and crude/absolute risk functions (CIF).
+}
+\section{Basics}{
+
+
+This function computes interval-based estimates of survival time functions,
+where the intervals are set by the user. For product-limit-based
+estimation see packages \pkg{survival} and \pkg{relsurv}.
+
+if \code{surv.type = 'surv.obs'}, only 'raw' observed survival
+is estimated over the chosen time intervals. With
+\code{surv.type = 'surv.rel'}, also relative survival estimates
+are supplied in addition to observed survival figures.
+
+\code{surv.type = 'cif.obs'} requests cumulative incidence functions (CIF)
+to be estimated.
+CIFs are estimated for each competing risk based
+on a survival-interval-specific proportional hazards
+assumption as described by Chiang (1968).
+With \code{surv.type = 'cif.rel'}, a CIF is estimated with using
+excess cases as the ''cause-specific'' cases. Finally, with
+\code{surv.type = 'surv.cause'}, cause-specific survivals are
+estimated separately for each separate type of event.
+
+In hazard-based estimation (\code{surv.method = "hazard"}) survival
+time functions are transformations of the estimated corresponding hazard
+in the intervals. The hazard itself is estimated using counts of events
+(or excess events) and total subject-time in the interval. Life table
+\code{surv.method = "lifetable"} estimates are constructed as transformations
+of probabilities computed using counts of events and counts of subjects
+at risk.
+
+
+The vignette \href{../doc/survtab_examples.html}{survtab_examples}
+has some practical examples.
+}
+
+\section{Relative survival}{
+
+
+When \code{surv.type = 'surv.rel'}, the user can choose
+\code{relsurv.method = 'pp'}, whereupon Pohar-Perme weighting is used.
+By default \code{relsurv.method = 'e2'}, i.e. the Ederer II method
+is used to estimate relative survival.
+}
+
+\section{Adjusted estimates}{
+
+
+Adjusted estimates in this context mean computing estimates separately
+by the levels of adjusting variables and returning weighted averages
+of the estimates. For example, computing estimates separately by
+age groups and returning a weighted average estimate (age-adjusted estimate).
+
+Adjusting requires specification of both the adjusting variables and
+the weights for all the levels of the adjusting variables. The former can be
+accomplished by using \code{adjust()} with the argument \code{formula},
+or by supplying variables directly to argument \code{adjust}. E.g. the
+following are all equivalent:
+
+\code{formula = fot ~ sex + adjust(agegr) + adjust(area)}
+
+\code{formula = fot ~ sex + adjust(agegr, area)}
+
+\code{formula = fot ~ sex, adjust = c("agegr", "area")}
+
+\code{formula = fot ~ sex, adjust = list(agegr, area)}
+
+The adjusting variables must match with the variable names in the
+argument \code{weights};
+see the \link[=direct_standardization]{dedicated help page}.
+Typically weights are supplied as a \code{list} or
+a \code{data.frame}. The former can be done by e.g.
+
+\code{weights = list(agegr = VEC1, area = VEC2)},
+
+where \code{VEC1} and \code{VEC2} are vectors of weights (which do not
+have to add up to one). See
+\href{../doc/survtab_examples.html}{survtab_examples}
+for an example of using a \code{data.frame} to pass weights.
+}
+
+\section{Period analysis and other data selection schemes}{
+
+
+To calculate e.g. period analysis (delayed entry) estimates,
+limit the data when/before supplying to this function.See
+\href{../doc/survtab_examples.html}{survtab_examples}.
+}
+
+\examples{
+\donttest{
+data("sire", package = "popEpi")
+library(Epi)
+
+## NOTE: recommended to use factor status variable
+x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
+ exit = list(CAL = get.yrs(ex_date)),
+ data = sire[sire$dg_date < sire$ex_date, ],
+ exit.status = factor(status, levels = 0:2,
+ labels = c("alive", "canD", "othD")),
+ merge = TRUE)
+
+## phony group variable
+set.seed(1L)
+x$group <- rbinom(nrow(x), 1, 0.5)
+
+## observed survival. explicit supplying of status:
+st <- survtab(Surv(time = FUT, event = lex.Xst) ~ group, data = x,
+ surv.type = "surv.obs",
+ breaks = list(FUT = seq(0, 5, 1/12)))
+## this assumes the status is lex.Xst (right 99.9 \% of the time)
+st <- survtab(FUT ~ group, data = x,
+ surv.type = "surv.obs",
+ breaks = list(FUT = seq(0, 5, 1/12)))
+
+## relative survival (ederer II)
+data("popmort", package = "popEpi")
+pm <- data.frame(popmort)
+names(pm) <- c("sex", "CAL", "AGE", "haz")
+st <- survtab(FUT ~ group, data = x,
+ surv.type = "surv.rel",
+ pophaz = pm,
+ breaks = list(FUT = seq(0, 5, 1/12)))
+
+## ICSS weights usage
+data("ICSS", package = "popEpi")
+cut <- c(0, 30, 50, 70, Inf)
+agegr <- cut(ICSS$age, cut, right = FALSE)
+w <- aggregate(ICSS1~agegr, data = ICSS, FUN = sum)
+x$agegr <- cut(x$dg_age, cut, right = FALSE)
+st <- survtab(FUT ~ group + adjust(agegr), data = x,
+ surv.type = "surv.rel",
+ pophaz = pm, weights = w$ICSS1,
+ breaks = list(FUT = seq(0, 5, 1/12)))
+
+#### using dates with survtab
+x <- Lexis(entry = list(FUT = 0L, AGE = dg_date-bi_date, CAL = dg_date),
+ exit = list(CAL = ex_date),
+ data = sire[sire$dg_date < sire$ex_date, ],
+ exit.status = factor(status, levels = 0:2,
+ labels = c("alive", "canD", "othD")),
+ merge = TRUE)
+## phony group variable
+set.seed(1L)
+x$group <- rbinom(nrow(x), 1, 0.5)
+
+st <- survtab(Surv(time = FUT, event = lex.Xst) ~ group, data = x,
+ surv.type = "surv.obs",
+ breaks = list(FUT = seq(0, 5, 1/12)*365.25))
+
+## NOTE: population hazard should be reported at the same scale
+## as time variables in your Lexis data.
+data(popmort, package = "popEpi")
+pm <- data.frame(popmort)
+names(pm) <- c("sex", "CAL", "AGE", "haz")
+## from year to day level
+pm$haz <- pm$haz/365.25
+pm$CAL <- as.Date(paste0(pm$CAL, "-01-01"))
+pm$AGE <- pm$AGE*365.25
+
+st <- survtab(Surv(time = FUT, event = lex.Xst) ~ group, data = x,
+ surv.type = "surv.rel", relsurv.method = "e2",
+ pophaz = pm,
+ breaks = list(FUT = seq(0, 5, 1/12)*365.25))
+}
+}
+\references{
+Perme, Maja Pohar, Janez Stare, and Jacques Esteve.
+"On estimation in relative survival." Biometrics 68.1 (2012): 113-120.
+\doi{10.1111/j.1541-0420.2011.01640.x}
+
+Hakulinen, Timo, Karri Seppa, and Paul C. Lambert.
+"Choosing the relative survival method for cancer survival estimation."
+European Journal of Cancer 47.14 (2011): 2202-2210.
+\doi{10.1016/j.ejca.2011.03.011}
+
+Seppa, Karri, Timo Hakulinen, and Arun Pokhrel.
+"Choosing the net survival method for cancer survival estimation."
+European Journal of Cancer (2013).
+\doi{10.1016/j.ejca.2013.09.019}
+
+CHIANG, Chin Long. Introduction to stochastic processes in biostatistics.
+1968. ISBN-14: 978-0471155003
+
+Seppa K., Dyba T. and Hakulinen T.: Cancer Survival,
+Reference Module in Biomedical Sciences. Elsevier. 08-Jan-2015.
+\doi{10.1016/B978-0-12-801238-3.02745-8}
+}
+\seealso{
+\code{\link{splitMulti}}, \code{\link{lexpand}},
+\code{\link{ICSS}}, \code{\link{sire}}
+\href{../doc/survtab_examples.html}{The survtab_examples vignette}
+
+Other main functions:
+\code{\link{Surv}()},
+\code{\link{rate}()},
+\code{\link{relpois_ag}()},
+\code{\link{relpois}()},
+\code{\link{sirspline}()},
+\code{\link{sir}()},
+\code{\link{survmean}()},
+\code{\link{survtab_ag}()}
+
+Other survtab functions:
+\code{\link{Surv}()},
+\code{\link{lines.survtab}()},
+\code{\link{plot.survtab}()},
+\code{\link{print.survtab}()},
+\code{\link{summary.survtab}()},
+\code{\link{survtab_ag}()}
+}
+\concept{main functions}
+\concept{survtab functions}
diff --git a/man/survtab_ag.Rd b/man/survtab_ag.Rd
index ac9715b..fbda9c9 100644
--- a/man/survtab_ag.Rd
+++ b/man/survtab_ag.Rd
@@ -1,423 +1,423 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/survival_aggregated.R
-\name{survtab_ag}
-\alias{survtab_ag}
-\title{Estimate Survival Time Functions}
-\usage{
-survtab_ag(
- formula = NULL,
- data,
- adjust = NULL,
- weights = NULL,
- surv.breaks = NULL,
- n = "at.risk",
- d = "from0to1",
- n.cens = "from0to0",
- pyrs = "pyrs",
- d.exp = "d.exp",
- n.pp = NULL,
- d.pp = "d.pp",
- d.pp.2 = "d.pp.2",
- n.cens.pp = "n.cens.pp",
- pyrs.pp = "pyrs.pp",
- d.exp.pp = "d.exp.pp",
- surv.type = "surv.rel",
- surv.method = "hazard",
- relsurv.method = "e2",
- subset = NULL,
- conf.level = 0.95,
- conf.type = "log-log",
- verbose = FALSE
-)
-}
-\arguments{
-\item{formula}{a \code{formula}; the response
-must be the time scale to compute survival time function estimates
-over, e.g. \code{fot ~ sex}. Variables on the right-hand side of the formula
-separated by \code{+} are considered stratifying variables, for which
-estimates are computed separately. May contain usage of \code{adjust()}
---- see Details and Examples.}
-
-\item{data}{since popEpi 0.4.0, a \code{data.frame}
-containing variables used in \code{formula} and other arguments.
-\code{aggre} objects are recommended as they contain information on any
-time scales and are therefore safer; for creating \code{aggre} objects see
-\code{\link{as.aggre}} when your data is already aggregated and \code{aggre}
-for aggregating split \code{Lexis} objects.}
-
-\item{adjust}{can be used as an alternative to passing variables to
-argument \code{formula} within a call to \code{adjust()}; e.g.
-\code{adjust = "agegr"}. \link[=flexible_argument]{Flexible input}.}
-
-\item{weights}{typically a list of weights or a \code{character} string
-specifying an age group standardization scheme; see
-the \link[=direct_standardization]{dedicated help page}
-and examples. NOTE: \code{weights = "internal"} is based on the counts
-of persons in follow-up at the start of follow-up (typically T = 0)}
-
-\item{surv.breaks}{a vector of breaks on the
-survival time scale. Optional if \code{data} is an \code{aggre} object
-and mandatory otherwise. Must define each intended interval;
-e.g. \code{surv.breaks = 0:5} when data has intervals defined by
-breaks \code{seq(0, 5, 1/12)} will aggregate to wider intervals first.
-It is generally recommended (and sufficient;
-see Seppa, Dyban and Hakulinen (2015)) to use monthly
-intervals where applicable.}
-
-\item{n}{variable containing counts of subjects at-risk at the start of a
-time interval; e.g. \code{n = "at.risk"}.
-Required when \code{surv.method = "lifetable"}.
-\link[=flexible_argument]{Flexible input}.}
-
-\item{d}{variable(s) containing counts of subjects experiencing an event.
-With only one type of event, e.g. \code{d = "deaths"}. With multiple types of
-events (for CIF or cause-specific survival estimation), supply e.g.
-\code{d = c("canD", "othD")}. If the survival time function to be estimated
-does not use multiple types of events, supplying more than one variable
-to \code{d} simply causes the variables to be added together.
-Always required. \link[=flexible_argument]{Flexible input}.}
-
-\item{n.cens}{variable containing counts of subjects censored during a
-survival time interval; E.g. \code{n.cens = "alive"}.
-Required when \code{surv.method = "lifetable"}.
-\link[=flexible_argument]{Flexible input}.}
-
-\item{pyrs}{variable containing total subject-time accumulated within a
-survival time interval; E.g. \code{pyrs = "pyrs"}.
-Required when \code{surv.method = "hazard"}. Flexible input.}
-
-\item{d.exp}{variable denoting total "expected numbers of events"
-(typically computed \code{pyrs * pop.haz}, where
-\code{pop.haz} is the expected hazard level)
-accumulated within a survival time interval; E.g. \code{pyrs = "pyrs"}.
-Required when computing EdererII relative survivals or
-CIFs based on excess counts of events. Flexible input.}
-
-\item{n.pp}{variable containing total Pohar-Perme weighted counts of
-subjects at risk in an interval,
-supplied as argument \code{n} is supplied.
-Computed originally on the subject
-level as analogous to \code{pp * as.integer(status == "at-risk")}.
-Required when \code{relsurv.method = "pp"}. Flexible input.}
-
-\item{d.pp}{variable(s) containing Pohar-Perme weighted counts of events,
-supplied as argument \code{d} is supplied. Computed originally on the subject
-level as analogous to \code{pp * as.integer(status == some_event)}.
-Required when \code{relsurv.method = "pp"}. Flexible input.}
-
-\item{d.pp.2}{variable(s) containing total Pohar-Perme
-"double-weighted" counts of events,
-supplied as argument \code{d} is supplied. Computed originally on the subject
-level as analogous to \code{pp * pp * as.integer(status == some_event)}.
-Required when \code{relsurv.method = "pp"}. Flexible input.}
-
-\item{n.cens.pp}{variable containing total Pohar-Perme weighted counts
-censorings,
-supplied as argument \code{n.cens} is supplied.
-Computed originally on the subject
-level as analogous to \code{pp * as.integer(status == "censored")}.
-Required when \code{relsurv.method = "pp"}. Flexible input.}
-
-\item{pyrs.pp}{variable containing total Pohar-Perme weighted subject-times,
-supplied as argument \code{pyrs} is supplied.
-Computed originally on the subject
-level as analogous to \code{pp * pyrs}.
-Required when \code{relsurv.method = "pp"}. Flexible input.}
-
-\item{d.exp.pp}{variable containing total Pohar-Perme weighted counts
-of excess events,
-supplied as argument \code{pyrs} is supplied.
-Computed originally on the subject
-level as analogous to \code{pp * d.exp}.
-Required when \code{relsurv.method = "pp"}. Flexible input.}
-
-\item{surv.type}{one of \code{'surv.obs'},
-\code{'surv.cause'}, \code{'surv.rel'},
-\code{'cif.obs'} or \code{'cif.rel'};
-defines what kind of survival time function(s) is/are estimated; see Details}
-
-\item{surv.method}{either \code{'lifetable'} or \code{'hazard'}; determines
-the method of calculating survival time functions, where the former computes
-ratios such as \code{p = d/(n - n.cens)}
-and the latter utilizes subject-times
-(typically person-years) for hazard estimates such as \code{d/pyrs}
-which are used to compute survival time function estimates.
-The former method requires argument \code{n.cens} and the latter
-argument \code{pyrs} to be supplied.}
-
-\item{relsurv.method}{either \code{'e2'} or \code{'pp'};
-defines whether to compute relative survival using the
-EdererII method or using Pohar-Perme weighting;
-ignored if \code{surv.type != "surv.rel"}}
-
-\item{subset}{a logical condition; e.g. \code{subset = sex == 1};
-subsets the data before computations}
-
-\item{conf.level}{confidence level used in confidence intervals;
-e.g. \code{0.95} for 95 percent confidence intervals}
-
-\item{conf.type}{character string; must be one of \code{"plain"},
-\code{"log-log"} and \code{"log"};
-defines the transformation used on the survival time
-function to yield confidence
-intervals via the delta method}
-
-\item{verbose}{logical; if \code{TRUE}, the function is chatty and
-returns some messages and timings along the process}
-}
-\value{
-Returns a table of life time function values and other
-information with survival intervals as rows.
-Returns some of the following estimates of survival time functions:
-
-\itemize{
- \item \code{surv.obs} - observed (raw, overall) survival
- \item \code{surv.obs.K} - observed cause-specific survival for cause K
- \item \code{CIF_k} - cumulative incidence function for cause \code{k}
- \item \code{CIF.rel} - cumulative incidence function using excess cases
- \item \code{r.e2} - relative survival, EdererII
- \item \code{r.pp} - relative survival, Pohar-Perme weighted
-}
-The suffix \code{.as} implies adjusted estimates, and \code{.lo} and
-\code{.hi} imply lower and upper confidence limits, respectively.
-The prefix \code{SE.} stands for standard error.
-}
-\description{
-This function estimates survival time functions: survival,
-relative/net survival, and crude/absolute risk functions (CIF).
-}
-\section{Basics}{
-
-
-This function computes interval-based estimates of survival time functions,
-where the intervals are set by the user. For product-limit-based
-estimation see packages \pkg{survival} and \pkg{relsurv}.
-
-if \code{surv.type = 'surv.obs'}, only 'raw' observed survival
-is estimated over the chosen time intervals. With
-\code{surv.type = 'surv.rel'}, also relative survival estimates
-are supplied in addition to observed survival figures.
-
-\code{surv.type = 'cif.obs'} requests cumulative incidence functions (CIF)
-to be estimated.
-CIFs are estimated for each competing risk based
-on a survival-interval-specific proportional hazards
-assumption as described by Chiang (1968).
-With \code{surv.type = 'cif.rel'}, a CIF is estimated with using
-excess cases as the ''cause-specific'' cases. Finally, with
-\code{surv.type = 'surv.cause'}, cause-specific survivals are
-estimated separately for each separate type of event.
-
-In hazard-based estimation (\code{surv.method = "hazard"}) survival
-time functions are transformations of the estimated corresponding hazard
-in the intervals. The hazard itself is estimated using counts of events
-(or excess events) and total subject-time in the interval. Life table
-\code{surv.method = "lifetable"} estimates are constructed as transformations
-of probabilities computed using counts of events and counts of subjects
-at risk.
-
-
-The vignette \href{../doc/survtab_examples.html}{survtab_examples}
-has some practical examples.
-}
-
-\section{Relative survival}{
-
-
-When \code{surv.type = 'surv.rel'}, the user can choose
-\code{relsurv.method = 'pp'}, whereupon Pohar-Perme weighting is used.
-By default \code{relsurv.method = 'e2'}, i.e. the Ederer II method
-is used to estimate relative survival.
-}
-
-\section{Adjusted estimates}{
-
-
-Adjusted estimates in this context mean computing estimates separately
-by the levels of adjusting variables and returning weighted averages
-of the estimates. For example, computing estimates separately by
-age groups and returning a weighted average estimate (age-adjusted estimate).
-
-Adjusting requires specification of both the adjusting variables and
-the weights for all the levels of the adjusting variables. The former can be
-accomplished by using \code{adjust()} with the argument \code{formula},
-or by supplying variables directly to argument \code{adjust}. E.g. the
-following are all equivalent:
-
-\code{formula = fot ~ sex + adjust(agegr) + adjust(area)}
-
-\code{formula = fot ~ sex + adjust(agegr, area)}
-
-\code{formula = fot ~ sex, adjust = c("agegr", "area")}
-
-\code{formula = fot ~ sex, adjust = list(agegr, area)}
-
-The adjusting variables must match with the variable names in the
-argument \code{weights};
-see the \link[=direct_standardization]{dedicated help page}.
-Typically weights are supplied as a \code{list} or
-a \code{data.frame}. The former can be done by e.g.
-
-\code{weights = list(agegr = VEC1, area = VEC2)},
-
-where \code{VEC1} and \code{VEC2} are vectors of weights (which do not
-have to add up to one). See
-\href{../doc/survtab_examples.html}{survtab_examples}
-for an example of using a \code{data.frame} to pass weights.
-}
-
-\section{Period analysis and other data selection schemes}{
-
-
-To calculate e.g. period analysis (delayed entry) estimates,
-limit the data when/before supplying to this function.See
-\href{../doc/survtab_examples.html}{survtab_examples}.
-}
-
-\section{Data requirements}{
-
-
-\code{survtab_ag} computes estimates of survival time functions using
-pre-aggregated data. For using subject-level data directly, use
-\code{\link{survtab}}. For aggregating data, see \code{\link{lexpand}}
-and \code{\link{aggre}}.
-
-By default, and if data is an \code{aggre} object (not mandatory),
-\code{survtab_ag} makes use of the exact same breaks that were used in
-splitting the original data (with e.g. \code{lexpand}), so it is not
-necessary to specify any \code{surv.breaks}. If specified, the
-\code{surv.breaks} must be a subset of the pertinent
-pre-existing breaks. When data is not an \code{aggre} object, breaks
-must always be specified. Interval lengths (\code{delta} in output) are
-also calculated based on whichever breaks are used,
-so the upper limit of the breaks should
-therefore be meaningful and never e.g. \code{Inf}.
-}
-
-\examples{
-## see more examples with explanations in vignette("survtab_examples")
-
-#### survtab_ag usage
-
-data("sire", package = "popEpi")
-## prepare data for e.g. 5-year "period analysis" for 2008-2012
-## note: sire is a simulated cohort integrated into popEpi.
-BL <- list(fot=seq(0, 5, by = 1/12),
- per = c("2008-01-01", "2013-01-01"))
-x <- lexpand(sire, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status \%in\% 1:2,
- breaks = BL,
- pophaz = popmort,
- aggre = list(fot))
-
-## calculate relative EdererII period method
-## NOTE: x is an aggre object here, so surv.breaks are deduced
-## automatically
-st <- survtab_ag(fot ~ 1, data = x)
-
-summary(st, t = 1:5) ## annual estimates
-summary(st, q = list(r.e2 = 0.75)) ## 1st interval where r.e2 < 0.75 at end
-\donttest{
-plot(st)
-
-
-## non-aggre data: first call to survtab_ag would fail
-df <- data.frame(x)
-# st <- survtab_ag(fot ~ 1, data = x)
-st <- survtab_ag(fot ~ 1, data = x, surv.breaks = BL$fot)
-
-## calculate age-standardised 5-year relative survival ratio using
-## Ederer II method and period approach
-
-sire$agegr <- cut(sire$dg_age,c(0,45,55,65,75,Inf),right=FALSE)
-BL <- list(fot=seq(0, 5, by = 1/12),
- per = c("2008-01-01", "2013-01-01"))
-x <- lexpand(sire, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status \%in\% 1:2,
- breaks = BL,
- pophaz = popmort,
- aggre = list(agegr, fot))
-
-## age standardisation using internal weights (age distribution of
-## patients diagnosed within the period window)
-## (NOTE: what is done here is equivalent to using weights = "internal")
-w <- aggregate(at.risk ~ agegr, data = x[x$fot == 0], FUN = sum)
-names(w) <- c("agegr", "weights")
-
-st <- survtab_ag(fot ~ adjust(agegr), data = x, weights = w)
-plot(st, y = "r.e2.as", col = c("blue"))
-
-## age standardisation using ICSS1 weights
-data(ICSS)
-cut <- c(0, 45, 55, 65, 75, Inf)
-agegr <- cut(ICSS$age, cut, right = FALSE)
-w <- aggregate(ICSS1~agegr, data = ICSS, FUN = sum)
-names(w) <- c("agegr", "weights")
-
-st <- survtab_ag(fot ~ adjust(agegr), data = x, weights = w)
-lines(st, y = "r.e2.as", col = c("red"))
-
-
-## cause-specific survival
-sire$stat <- factor(sire$status, 0:2, c("alive", "canD", "othD"))
-x <- lexpand(sire, birth = bi_date, entry = dg_date, exit = ex_date,
- status = stat,
- breaks = BL,
- pophaz = popmort,
- aggre = list(agegr, fot))
-st <- survtab_ag(fot ~ adjust(agegr), data = x, weights = w,
- d = c("fromalivetocanD", "fromalivetoothD"),
- surv.type = "surv.cause")
-plot(st, y = "surv.obs.fromalivetocanD.as")
-lines(st, y = "surv.obs.fromalivetoothD.as", col = "red")
-
-
-}
-}
-\references{
-Perme, Maja Pohar, Janez Stare, and Jacques Esteve.
-"On estimation in relative survival." Biometrics 68.1 (2012): 113-120.
-\doi{10.1111/j.1541-0420.2011.01640.x}
-
-Hakulinen, Timo, Karri Seppa, and Paul C. Lambert.
-"Choosing the relative survival method for cancer survival estimation."
-European Journal of Cancer 47.14 (2011): 2202-2210.
-\doi{10.1016/j.ejca.2011.03.011}
-
-Seppa, Karri, Timo Hakulinen, and Arun Pokhrel.
-"Choosing the net survival method for cancer survival estimation."
-European Journal of Cancer (2013).
-\doi{10.1016/j.ejca.2013.09.019}
-
-CHIANG, Chin Long. Introduction to stochastic processes in biostatistics.
-1968. ISBN-14: 978-0471155003
-
-Seppa K., Dyba T. and Hakulinen T.: Cancer Survival,
-Reference Module in Biomedical Sciences. Elsevier. 08-Jan-2015.
-\doi{10.1016/B978-0-12-801238-3.02745-8}
-}
-\seealso{
-\code{\link{splitMulti}}, \code{\link{lexpand}},
-\code{\link{ICSS}}, \code{\link{sire}}
-\href{../doc/survtab_examples.html}{The survtab_examples vignette}
-
-Other main functions:
-\code{\link{Surv}()},
-\code{\link{rate}()},
-\code{\link{relpois_ag}()},
-\code{\link{relpois}()},
-\code{\link{sirspline}()},
-\code{\link{sir}()},
-\code{\link{survmean}()},
-\code{\link{survtab}()}
-
-Other survtab functions:
-\code{\link{Surv}()},
-\code{\link{lines.survtab}()},
-\code{\link{plot.survtab}()},
-\code{\link{print.survtab}()},
-\code{\link{summary.survtab}()},
-\code{\link{survtab}()}
-}
-\concept{main functions}
-\concept{survtab functions}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/survival_aggregated.R
+\name{survtab_ag}
+\alias{survtab_ag}
+\title{Estimate Survival Time Functions}
+\usage{
+survtab_ag(
+ formula = NULL,
+ data,
+ adjust = NULL,
+ weights = NULL,
+ surv.breaks = NULL,
+ n = "at.risk",
+ d = "from0to1",
+ n.cens = "from0to0",
+ pyrs = "pyrs",
+ d.exp = "d.exp",
+ n.pp = NULL,
+ d.pp = "d.pp",
+ d.pp.2 = "d.pp.2",
+ n.cens.pp = "n.cens.pp",
+ pyrs.pp = "pyrs.pp",
+ d.exp.pp = "d.exp.pp",
+ surv.type = "surv.rel",
+ surv.method = "hazard",
+ relsurv.method = "e2",
+ subset = NULL,
+ conf.level = 0.95,
+ conf.type = "log-log",
+ verbose = FALSE
+)
+}
+\arguments{
+\item{formula}{a \code{formula}; the response
+must be the time scale to compute survival time function estimates
+over, e.g. \code{fot ~ sex}. Variables on the right-hand side of the formula
+separated by \code{+} are considered stratifying variables, for which
+estimates are computed separately. May contain usage of \code{adjust()}
+--- see Details and Examples.}
+
+\item{data}{since popEpi 0.4.0, a \code{data.frame}
+containing variables used in \code{formula} and other arguments.
+\code{aggre} objects are recommended as they contain information on any
+time scales and are therefore safer; for creating \code{aggre} objects see
+\code{\link{as.aggre}} when your data is already aggregated and \code{aggre}
+for aggregating split \code{Lexis} objects.}
+
+\item{adjust}{can be used as an alternative to passing variables to
+argument \code{formula} within a call to \code{adjust()}; e.g.
+\code{adjust = "agegr"}. \link[=flexible_argument]{Flexible input}.}
+
+\item{weights}{typically a list of weights or a \code{character} string
+specifying an age group standardization scheme; see
+the \link[=direct_standardization]{dedicated help page}
+and examples. NOTE: \code{weights = "internal"} is based on the counts
+of persons in follow-up at the start of follow-up (typically T = 0)}
+
+\item{surv.breaks}{a vector of breaks on the
+survival time scale. Optional if \code{data} is an \code{aggre} object
+and mandatory otherwise. Must define each intended interval;
+e.g. \code{surv.breaks = 0:5} when data has intervals defined by
+breaks \code{seq(0, 5, 1/12)} will aggregate to wider intervals first.
+It is generally recommended (and sufficient;
+see Seppa, Dyban and Hakulinen (2015)) to use monthly
+intervals where applicable.}
+
+\item{n}{variable containing counts of subjects at-risk at the start of a
+time interval; e.g. \code{n = "at.risk"}.
+Required when \code{surv.method = "lifetable"}.
+\link[=flexible_argument]{Flexible input}.}
+
+\item{d}{variable(s) containing counts of subjects experiencing an event.
+With only one type of event, e.g. \code{d = "deaths"}. With multiple types of
+events (for CIF or cause-specific survival estimation), supply e.g.
+\code{d = c("canD", "othD")}. If the survival time function to be estimated
+does not use multiple types of events, supplying more than one variable
+to \code{d} simply causes the variables to be added together.
+Always required. \link[=flexible_argument]{Flexible input}.}
+
+\item{n.cens}{variable containing counts of subjects censored during a
+survival time interval; E.g. \code{n.cens = "alive"}.
+Required when \code{surv.method = "lifetable"}.
+\link[=flexible_argument]{Flexible input}.}
+
+\item{pyrs}{variable containing total subject-time accumulated within a
+survival time interval; E.g. \code{pyrs = "pyrs"}.
+Required when \code{surv.method = "hazard"}. Flexible input.}
+
+\item{d.exp}{variable denoting total "expected numbers of events"
+(typically computed \code{pyrs * pop.haz}, where
+\code{pop.haz} is the expected hazard level)
+accumulated within a survival time interval; E.g. \code{pyrs = "pyrs"}.
+Required when computing EdererII relative survivals or
+CIFs based on excess counts of events. Flexible input.}
+
+\item{n.pp}{variable containing total Pohar-Perme weighted counts of
+subjects at risk in an interval,
+supplied as argument \code{n} is supplied.
+Computed originally on the subject
+level as analogous to \code{pp * as.integer(status == "at-risk")}.
+Required when \code{relsurv.method = "pp"}. Flexible input.}
+
+\item{d.pp}{variable(s) containing Pohar-Perme weighted counts of events,
+supplied as argument \code{d} is supplied. Computed originally on the subject
+level as analogous to \code{pp * as.integer(status == some_event)}.
+Required when \code{relsurv.method = "pp"}. Flexible input.}
+
+\item{d.pp.2}{variable(s) containing total Pohar-Perme
+"double-weighted" counts of events,
+supplied as argument \code{d} is supplied. Computed originally on the subject
+level as analogous to \code{pp * pp * as.integer(status == some_event)}.
+Required when \code{relsurv.method = "pp"}. Flexible input.}
+
+\item{n.cens.pp}{variable containing total Pohar-Perme weighted counts
+censorings,
+supplied as argument \code{n.cens} is supplied.
+Computed originally on the subject
+level as analogous to \code{pp * as.integer(status == "censored")}.
+Required when \code{relsurv.method = "pp"}. Flexible input.}
+
+\item{pyrs.pp}{variable containing total Pohar-Perme weighted subject-times,
+supplied as argument \code{pyrs} is supplied.
+Computed originally on the subject
+level as analogous to \code{pp * pyrs}.
+Required when \code{relsurv.method = "pp"}. Flexible input.}
+
+\item{d.exp.pp}{variable containing total Pohar-Perme weighted counts
+of excess events,
+supplied as argument \code{pyrs} is supplied.
+Computed originally on the subject
+level as analogous to \code{pp * d.exp}.
+Required when \code{relsurv.method = "pp"}. Flexible input.}
+
+\item{surv.type}{one of \code{'surv.obs'},
+\code{'surv.cause'}, \code{'surv.rel'},
+\code{'cif.obs'} or \code{'cif.rel'};
+defines what kind of survival time function(s) is/are estimated; see Details}
+
+\item{surv.method}{either \code{'lifetable'} or \code{'hazard'}; determines
+the method of calculating survival time functions, where the former computes
+ratios such as \code{p = d/(n - n.cens)}
+and the latter utilizes subject-times
+(typically person-years) for hazard estimates such as \code{d/pyrs}
+which are used to compute survival time function estimates.
+The former method requires argument \code{n.cens} and the latter
+argument \code{pyrs} to be supplied.}
+
+\item{relsurv.method}{either \code{'e2'} or \code{'pp'};
+defines whether to compute relative survival using the
+EdererII method or using Pohar-Perme weighting;
+ignored if \code{surv.type != "surv.rel"}}
+
+\item{subset}{a logical condition; e.g. \code{subset = sex == 1};
+subsets the data before computations}
+
+\item{conf.level}{confidence level used in confidence intervals;
+e.g. \code{0.95} for 95 percent confidence intervals}
+
+\item{conf.type}{character string; must be one of \code{"plain"},
+\code{"log-log"} and \code{"log"};
+defines the transformation used on the survival time
+function to yield confidence
+intervals via the delta method}
+
+\item{verbose}{logical; if \code{TRUE}, the function is chatty and
+returns some messages and timings along the process}
+}
+\value{
+Returns a table of life time function values and other
+information with survival intervals as rows.
+Returns some of the following estimates of survival time functions:
+
+\itemize{
+ \item \code{surv.obs} - observed (raw, overall) survival
+ \item \code{surv.obs.K} - observed cause-specific survival for cause K
+ \item \code{CIF_k} - cumulative incidence function for cause \code{k}
+ \item \code{CIF.rel} - cumulative incidence function using excess cases
+ \item \code{r.e2} - relative survival, EdererII
+ \item \code{r.pp} - relative survival, Pohar-Perme weighted
+}
+The suffix \code{.as} implies adjusted estimates, and \code{.lo} and
+\code{.hi} imply lower and upper confidence limits, respectively.
+The prefix \code{SE.} stands for standard error.
+}
+\description{
+This function estimates survival time functions: survival,
+relative/net survival, and crude/absolute risk functions (CIF).
+}
+\section{Basics}{
+
+
+This function computes interval-based estimates of survival time functions,
+where the intervals are set by the user. For product-limit-based
+estimation see packages \pkg{survival} and \pkg{relsurv}.
+
+if \code{surv.type = 'surv.obs'}, only 'raw' observed survival
+is estimated over the chosen time intervals. With
+\code{surv.type = 'surv.rel'}, also relative survival estimates
+are supplied in addition to observed survival figures.
+
+\code{surv.type = 'cif.obs'} requests cumulative incidence functions (CIF)
+to be estimated.
+CIFs are estimated for each competing risk based
+on a survival-interval-specific proportional hazards
+assumption as described by Chiang (1968).
+With \code{surv.type = 'cif.rel'}, a CIF is estimated with using
+excess cases as the ''cause-specific'' cases. Finally, with
+\code{surv.type = 'surv.cause'}, cause-specific survivals are
+estimated separately for each separate type of event.
+
+In hazard-based estimation (\code{surv.method = "hazard"}) survival
+time functions are transformations of the estimated corresponding hazard
+in the intervals. The hazard itself is estimated using counts of events
+(or excess events) and total subject-time in the interval. Life table
+\code{surv.method = "lifetable"} estimates are constructed as transformations
+of probabilities computed using counts of events and counts of subjects
+at risk.
+
+
+The vignette \href{../doc/survtab_examples.html}{survtab_examples}
+has some practical examples.
+}
+
+\section{Relative survival}{
+
+
+When \code{surv.type = 'surv.rel'}, the user can choose
+\code{relsurv.method = 'pp'}, whereupon Pohar-Perme weighting is used.
+By default \code{relsurv.method = 'e2'}, i.e. the Ederer II method
+is used to estimate relative survival.
+}
+
+\section{Adjusted estimates}{
+
+
+Adjusted estimates in this context mean computing estimates separately
+by the levels of adjusting variables and returning weighted averages
+of the estimates. For example, computing estimates separately by
+age groups and returning a weighted average estimate (age-adjusted estimate).
+
+Adjusting requires specification of both the adjusting variables and
+the weights for all the levels of the adjusting variables. The former can be
+accomplished by using \code{adjust()} with the argument \code{formula},
+or by supplying variables directly to argument \code{adjust}. E.g. the
+following are all equivalent:
+
+\code{formula = fot ~ sex + adjust(agegr) + adjust(area)}
+
+\code{formula = fot ~ sex + adjust(agegr, area)}
+
+\code{formula = fot ~ sex, adjust = c("agegr", "area")}
+
+\code{formula = fot ~ sex, adjust = list(agegr, area)}
+
+The adjusting variables must match with the variable names in the
+argument \code{weights};
+see the \link[=direct_standardization]{dedicated help page}.
+Typically weights are supplied as a \code{list} or
+a \code{data.frame}. The former can be done by e.g.
+
+\code{weights = list(agegr = VEC1, area = VEC2)},
+
+where \code{VEC1} and \code{VEC2} are vectors of weights (which do not
+have to add up to one). See
+\href{../doc/survtab_examples.html}{survtab_examples}
+for an example of using a \code{data.frame} to pass weights.
+}
+
+\section{Period analysis and other data selection schemes}{
+
+
+To calculate e.g. period analysis (delayed entry) estimates,
+limit the data when/before supplying to this function.See
+\href{../doc/survtab_examples.html}{survtab_examples}.
+}
+
+\section{Data requirements}{
+
+
+\code{survtab_ag} computes estimates of survival time functions using
+pre-aggregated data. For using subject-level data directly, use
+\code{\link{survtab}}. For aggregating data, see \code{\link{lexpand}}
+and \code{\link{aggre}}.
+
+By default, and if data is an \code{aggre} object (not mandatory),
+\code{survtab_ag} makes use of the exact same breaks that were used in
+splitting the original data (with e.g. \code{lexpand}), so it is not
+necessary to specify any \code{surv.breaks}. If specified, the
+\code{surv.breaks} must be a subset of the pertinent
+pre-existing breaks. When data is not an \code{aggre} object, breaks
+must always be specified. Interval lengths (\code{delta} in output) are
+also calculated based on whichever breaks are used,
+so the upper limit of the breaks should
+therefore be meaningful and never e.g. \code{Inf}.
+}
+
+\examples{
+## see more examples with explanations in vignette("survtab_examples")
+
+#### survtab_ag usage
+
+data("sire", package = "popEpi")
+## prepare data for e.g. 5-year "period analysis" for 2008-2012
+## note: sire is a simulated cohort integrated into popEpi.
+BL <- list(fot=seq(0, 5, by = 1/12),
+ per = c("2008-01-01", "2013-01-01"))
+x <- lexpand(sire, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status \%in\% 1:2,
+ breaks = BL,
+ pophaz = popmort,
+ aggre = list(fot))
+
+## calculate relative EdererII period method
+## NOTE: x is an aggre object here, so surv.breaks are deduced
+## automatically
+st <- survtab_ag(fot ~ 1, data = x)
+
+summary(st, t = 1:5) ## annual estimates
+summary(st, q = list(r.e2 = 0.75)) ## 1st interval where r.e2 < 0.75 at end
+\donttest{
+plot(st)
+
+
+## non-aggre data: first call to survtab_ag would fail
+df <- data.frame(x)
+# st <- survtab_ag(fot ~ 1, data = x)
+st <- survtab_ag(fot ~ 1, data = x, surv.breaks = BL$fot)
+
+## calculate age-standardised 5-year relative survival ratio using
+## Ederer II method and period approach
+
+sire$agegr <- cut(sire$dg_age,c(0,45,55,65,75,Inf),right=FALSE)
+BL <- list(fot=seq(0, 5, by = 1/12),
+ per = c("2008-01-01", "2013-01-01"))
+x <- lexpand(sire, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status \%in\% 1:2,
+ breaks = BL,
+ pophaz = popmort,
+ aggre = list(agegr, fot))
+
+## age standardisation using internal weights (age distribution of
+## patients diagnosed within the period window)
+## (NOTE: what is done here is equivalent to using weights = "internal")
+w <- aggregate(at.risk ~ agegr, data = x[x$fot == 0], FUN = sum)
+names(w) <- c("agegr", "weights")
+
+st <- survtab_ag(fot ~ adjust(agegr), data = x, weights = w)
+plot(st, y = "r.e2.as", col = c("blue"))
+
+## age standardisation using ICSS1 weights
+data(ICSS)
+cut <- c(0, 45, 55, 65, 75, Inf)
+agegr <- cut(ICSS$age, cut, right = FALSE)
+w <- aggregate(ICSS1~agegr, data = ICSS, FUN = sum)
+names(w) <- c("agegr", "weights")
+
+st <- survtab_ag(fot ~ adjust(agegr), data = x, weights = w)
+lines(st, y = "r.e2.as", col = c("red"))
+
+
+## cause-specific survival
+sire$stat <- factor(sire$status, 0:2, c("alive", "canD", "othD"))
+x <- lexpand(sire, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = stat,
+ breaks = BL,
+ pophaz = popmort,
+ aggre = list(agegr, fot))
+st <- survtab_ag(fot ~ adjust(agegr), data = x, weights = w,
+ d = c("fromalivetocanD", "fromalivetoothD"),
+ surv.type = "surv.cause")
+plot(st, y = "surv.obs.fromalivetocanD.as")
+lines(st, y = "surv.obs.fromalivetoothD.as", col = "red")
+
+
+}
+}
+\references{
+Perme, Maja Pohar, Janez Stare, and Jacques Esteve.
+"On estimation in relative survival." Biometrics 68.1 (2012): 113-120.
+\doi{10.1111/j.1541-0420.2011.01640.x}
+
+Hakulinen, Timo, Karri Seppa, and Paul C. Lambert.
+"Choosing the relative survival method for cancer survival estimation."
+European Journal of Cancer 47.14 (2011): 2202-2210.
+\doi{10.1016/j.ejca.2011.03.011}
+
+Seppa, Karri, Timo Hakulinen, and Arun Pokhrel.
+"Choosing the net survival method for cancer survival estimation."
+European Journal of Cancer (2013).
+\doi{10.1016/j.ejca.2013.09.019}
+
+CHIANG, Chin Long. Introduction to stochastic processes in biostatistics.
+1968. ISBN-14: 978-0471155003
+
+Seppa K., Dyba T. and Hakulinen T.: Cancer Survival,
+Reference Module in Biomedical Sciences. Elsevier. 08-Jan-2015.
+\doi{10.1016/B978-0-12-801238-3.02745-8}
+}
+\seealso{
+\code{\link{splitMulti}}, \code{\link{lexpand}},
+\code{\link{ICSS}}, \code{\link{sire}}
+\href{../doc/survtab_examples.html}{The survtab_examples vignette}
+
+Other main functions:
+\code{\link{Surv}()},
+\code{\link{rate}()},
+\code{\link{relpois_ag}()},
+\code{\link{relpois}()},
+\code{\link{sirspline}()},
+\code{\link{sir}()},
+\code{\link{survmean}()},
+\code{\link{survtab}()}
+
+Other survtab functions:
+\code{\link{Surv}()},
+\code{\link{lines.survtab}()},
+\code{\link{plot.survtab}()},
+\code{\link{print.survtab}()},
+\code{\link{summary.survtab}()},
+\code{\link{survtab}()}
+}
+\concept{main functions}
+\concept{survtab functions}
diff --git a/man/try2int.Rd b/man/try2int.Rd
index b56f4fb..3787a1f 100644
--- a/man/try2int.Rd
+++ b/man/try2int.Rd
@@ -1,31 +1,31 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/utility_functions.R
-\name{try2int}
-\alias{try2int}
-\title{Attempt coercion to integer}
-\source{
-\href{https://stackoverflow.com/questions/3476782/how-to-check-if-the-number-is-integer}{Stackoverflow thread}
-}
-\usage{
-try2int(obj, tol = .Machine$double.eps^0.5)
-}
-\arguments{
-\item{obj}{a numeric vector}
-
-\item{tol}{tolerance; if each numeric value in \code{obj} deviate from
-the corresponding integers at most the value of \code{tol}, they are considered
-to be integers; e.g. by default \code{1 + .Machine$double.eps} is considered
-to be an integer but \code{1 + .Machine$double.eps^0.49} is not.}
-}
-\value{
-An `integer` vector if no information is lost in coercion; else `numeric`
-vector.
-}
-\description{
-Attempts to convert a numeric object to integer,
-but won't if loss of information is imminent (if values after decimal
-are not zero for even one value in \code{obj})
-}
-\author{
-James Arnold
-}
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/utility_functions.R
+\name{try2int}
+\alias{try2int}
+\title{Attempt coercion to integer}
+\source{
+\href{https://stackoverflow.com/questions/3476782/how-to-check-if-the-number-is-integer}{Stackoverflow thread}
+}
+\usage{
+try2int(obj, tol = .Machine$double.eps^0.5)
+}
+\arguments{
+\item{obj}{a numeric vector}
+
+\item{tol}{tolerance; if each numeric value in \code{obj} deviate from
+the corresponding integers at most the value of \code{tol}, they are considered
+to be integers; e.g. by default \code{1 + .Machine$double.eps} is considered
+to be an integer but \code{1 + .Machine$double.eps^0.49} is not.}
+}
+\value{
+An `integer` vector if no information is lost in coercion; else `numeric`
+vector.
+}
+\description{
+Attempts to convert a numeric object to integer,
+but won't if loss of information is imminent (if values after decimal
+are not zero for even one value in \code{obj})
+}
+\author{
+James Arnold
+}
diff --git a/tests/testthat.R b/tests/testthat.R
index 16a635f..71d474e 100644
--- a/tests/testthat.R
+++ b/tests/testthat.R
@@ -1,15 +1,15 @@
-
-if (requireNamespace("testthat")) {
- library("testthat")
- library("popEpi")
- library("data.table")
-
- using_r_devel <- grepl(pattern = "devel", x = R.version$status)
- if (using_r_devel) {
- ## memory leak problem in data.table 1.11.2 in R-devel (3.6.0 atm)
- requireNamespace("data.table")
- data.table::setDTthreads(threads = 1L)
- }
-
- testthat::test_check("popEpi")
-}
+
+if (requireNamespace("testthat")) {
+ library("testthat")
+ library("popEpi")
+ library("data.table")
+
+ using_r_devel <- grepl(pattern = "devel", x = R.version$status)
+ if (using_r_devel) {
+ ## memory leak problem in data.table 1.11.2 in R-devel (3.6.0 atm)
+ requireNamespace("data.table")
+ data.table::setDTthreads(threads = 1L)
+ }
+
+ testthat::test_check("popEpi")
+}
diff --git a/tests/testthat/Rplots.pdf b/tests/testthat/Rplots.pdf
deleted file mode 100644
index 392c5bd..0000000
Binary files a/tests/testthat/Rplots.pdf and /dev/null differ
diff --git a/tests/testthat/test_Surv.R b/tests/testthat/test_Surv.R
index 6508ed9..79612ad 100644
--- a/tests/testthat/test_Surv.R
+++ b/tests/testthat/test_Surv.R
@@ -1,25 +1,25 @@
-
-
-
-
-
-testthat::context("survival::Surv and popEpi::Surv harmony")
-
-
-
-
-testthat::test_that("survival::Surv and popEpi::Surv's formals are in harmony",{
-
- popepi_formals <- as.list(formals(popEpi::Surv))
- survival_formals <- as.list(formals(survival::Surv))
- testthat::expect_identical(
- object = popepi_formals,
- expected = survival_formals
- )
-
-})
-
-
-
-
-
+
+
+
+
+
+testthat::context("survival::Surv and popEpi::Surv harmony")
+
+
+
+
+testthat::test_that("survival::Surv and popEpi::Surv's formals are in harmony",{
+
+ popepi_formals <- as.list(formals(popEpi::Surv))
+ survival_formals <- as.list(formals(survival::Surv))
+ testthat::expect_identical(
+ object = popepi_formals,
+ expected = survival_formals
+ )
+
+})
+
+
+
+
+
diff --git a/tests/testthat/test_aggre.R b/tests/testthat/test_aggre.R
index 10f67e3..f921be5 100644
--- a/tests/testthat/test_aggre.R
+++ b/tests/testthat/test_aggre.R
@@ -1,228 +1,228 @@
-testthat::context("aggre")
-
-testthat::test_that("aggre leaves original data untouched", {
-
- x <- sire[1:100,]
- BL <- list(fot= seq(0,20,1/12), age= c(0:100, Inf), per= c(1960:2014))
- x <- lexpand(x, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status %in% 1:2, breaks=BL)
-
- ## scramble order
- set.seed(1L)
- x <- x[sample(x = .N, size = .N, replace = FALSE)]
- setkeyv(x, NULL)
-
- setDT(x)
- forceLexisDT(x, breaks = BL, allScales = c("fot", "per", "age"), key = FALSE)
-
- xor <- copy(x)
-
- ag1 <- aggre(x, by = list(gender = factor(sex, 1, "f"), sex, surv.int = fot, per, agegr = age))
-
- testthat::expect_identical(x, xor)
-})
-
-testthat::test_that("aggre works with by = NULL", {
-
- sr <- popEpi::sire[dg_date < ex_date,][1:1000,]
-
- BL <- list(fot= seq(0,20,1), age= c(0:100, Inf), per= c(1960:2014))
- x <- lexpand(sr, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status %in% 1:2, breaks=BL)
-
- ag1 <- aggre(x, by = NULL)
- testthat::expect_equal(as.numeric(ag1), c(9539.1903286174274, 1000, 373, 627))
-
-})
-
-testthat::test_that("aggre and lexpand produce the same results", {
- sr <- popEpi::sire[dg_date < ex_date,][1:1000,]
-
- BL <- list(fot= seq(0,20,1/12), age= c(0:100, Inf), per= c(1960:2014))
- x <- lexpand(sr, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status %in% 1:2, breaks=BL)
- if (!is.data.table(x)) setDF2DT(x)
-
- e <- quote(list(gender = factor(sex, 1, "f"), sex, surv.int = fot, per, agegr = age))
- v <- c("gender", "sex", "sex", "surv.int", "per", "agegr")
-
- forceLexisDT(x, breaks = BL, allScales = c("fot", "per", "age"))
- x2 <- aggre(x, by = e, verbose = FALSE)
- x3 <- aggre(x, by = e, type = "full", verbose = FALSE)
- x4 <- lexpand(sr, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status %in% 1:2, aggre.type = "non-empty",
- breaks=BL, aggre = list(gender = factor(sex, 1, "f"), sex, surv.int = fot, per, agegr = age))
- x5 <- lexpand(sr, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status %in% 1:2, aggre.type = "cartesian",
- breaks=BL, aggre = list(gender = factor(sex, 1, "f"), sex, surv.int = fot, per, agegr = age))
-
- x[, fot := popEpi:::cutLow(fot, BL$fot)]
- x[, age := popEpi:::cutLow(age, BL$age)]
- x[, per := popEpi:::cutLow(per, BL$per)]
-
- x <- x[, list(pyrs = sum(lex.dur), obs = sum(lex.Xst)), keyby = e]
- x <- x[pyrs > 0 & !is.na(pyrs)]
-
- if (!is.data.table(x2)) setDF2DT(x2)
- if (!is.data.table(x3)) setDF2DT(x3)
- if (!is.data.table(x4)) setDF2DT(x4)
- if (!is.data.table(x5)) setDF2DT(x5)
-
- setkeyv(x, v)
- setkeyv(x2, v)
- setkeyv(x3, v)
- setkeyv(x4, v)
- setkeyv(x5, v)
-
- testthat::expect_equal(x2$pyrs, x$pyrs, tolerance = 1e-05)
- testthat::expect_equal(x2$from0to1, x$obs, tolerance = 1e-05)
-
- testthat::expect_equal(sum(x2$pyrs), sum(x3$pyrs), tolerance = 1e-05)
- testthat::expect_equal(sum(x2$from0to1), sum(x3$from0to1), tolerance = 1e-05)
-
- testthat::expect_equal(sum(x2$pyrs), sum(x4$pyrs), tolerance = 1e-05)
- testthat::expect_equal(sum(x2$from0to1), sum(x4$from0to1), tolerance = 1e-05)
-
- testthat::expect_equal(x3$pyrs, x5$pyrs, tolerance = 1e-05)
- testthat::expect_equal(x3$from0to0, x5$from0to0, tolerance = 1e-05)
- testthat::expect_equal(sum(x3$from0to1), sum(x5$from0to1), tolerance = 1e-05)
-
- testthat::expect_equal(x2$pyrs, x4$pyrs, tolerance = 1e-05)
- testthat::expect_equal(x2$from0to0, x4$from0to0, tolerance = 1e-05)
- testthat::expect_equal(sum(x2$from0to1), sum(x4$from0to1), tolerance = 1e-05)
-})
-
-
-testthat::test_that("aggre()'s by argument works flexibly", {
- library(Epi)
- BL <- list(fot = 0:5, per = c(1995,2015))
- for (cond in c(FALSE, TRUE)) {
- x <- Lexis(data = sire[dg_date < ex_date,][1:500, ], entry = list(fot = 0, age = dg_age, per = get.yrs(dg_date)),
- exit = list(per = get.yrs(ex_date)), exit.status = status,
- entry.status = 0)
- x <- splitMulti(x, breaks = BL)
- setDF(x)
- setattr(x, "class", c("Lexis", "data.frame"))
- x$agegr <- cut(x$dg_age, 2)
- if (cond) {
- forceLexisDT(x, breaks = BL, allScales = c("fot", "per", "age"))
- alloc.col(x)
- }
-
- a <- aggre(x, by = list(agegr = cut(dg_age, 2), sex, fot, per = per), type = "unique")
- b <- aggre(x, by = c("agegr", "sex", "fot", "per"), type = "unique")
-
- testthat::expect_equal(a, b)
-
- a <- aggre(x, by = cut(dg_age, 2), type = "unique")
- setnames(a, "cut", "agegr")
- attr(a, "aggre.meta")$by <- "agegr"
- b <- aggre(x, by = c("agegr"), type = "unique")
- c <- aggre(x, by = list(agegr = cut(dg_age, 2)), type = "unique")
- d<- aggre(x, by = agegr, type = "unique")
-
- testthat::expect_equal(a, b)
- testthat::expect_equal(b, c)
- testthat::expect_equal(c, d)
- }
-
-
-})
-
-testthat::test_that("subset argument works properly", {
-
-
- x <- sire[dg_date < ex_date, ][1:1000,]
- BL <- list(fot= seq(0,20,1/12), age= c(0:100, Inf), per= c(1960:2014))
- x <- lexpand(x, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status %in% 1:2, breaks=BL)
- # setDT2DF(x)
- x2 <- x[x$dg_age <= 55L, ]
-
- setDT(x)
- setDT(x2)
- forceLexisDT(x, breaks = BL, allScales = c("fot", "per", "age"), key = FALSE)
- forceLexisDT(x2, breaks = BL, allScales = c("fot", "per", "age"), key = FALSE)
-
- ag <- quote(list(gender = factor(sex, 1, "f"), sex, surv.int = fot, per, agegr = age))
- ag1 <- aggre(x, by = ag, subset = dg_age <= 55L)
- ag2 <- aggre(x2, by = ag)
-
- ag3 <- aggre(x, by = ag, type = "full", subset = dg_age <= 55L)
- ag4 <- aggre(x2, by = ag, type = "full")
-
- testthat::expect_identical(ag1, ag2)
- testthat::expect_identical(ag3, ag4)
-
-})
-
-
-testthat::test_that("at.risk column works as intended", {
- ## normal case - no late entry. Just lots of breaks.
- popEpi:::skip_normally()
- x <- sire[dg_date < ex_date, ][1:1000,]
- BL <- list(fot= seq(0,20,1/12), age= c(0:100, Inf), per= c(1960:2014))
-
- x <- Lexis(data = x,
- entry = list(fot = 0, age = dg_age, per = get.yrs(dg_date)),
- exit = list(per = get.yrs(ex_date)), exit.status = status,
- entry.status = 0)
-
- x <- splitMulti(x, breaks = BL, drop = TRUE)
-
- ag <- aggre(x, by = list(sex, fot))
- setkey(ag, sex, fot)
-
- ## total events and changes in at.risk should be congruent here
- ag[, ndiff := at.risk - c(at.risk[-1], NA), by = list(sex)]
- ag[!is.na(ndiff), events := from0to0 + from0to1 + from0to2]
-
- testthat::expect_equal(ag$ndiff, ag$events)
-
- ## compare at.risk with manually computed at.risk and events
- x[, evented := detectEvents(x, breaks = attr(x, "breaks"), by = "lex.id") != 0L]
- x[, normalEntry := fot %in% BL$fot]
- x[, cutFot := cutLow(fot, BL$fot)]
- byDT <- CJ(sex = 1,
- cutFot = BL$fot[-length(BL$fot)])
- n.start <- x[byDT, .(sum(normalEntry & !duplicated(lex.id)),
- sum(evented)), by = .EACHI,
- on = names(byDT)]
- n.start[is.na(ag$ndiff), V2 := NA]
- testthat::expect_equal(ag$at.risk, n.start$V1)
- testthat::expect_equal(ag$ndiff, n.start$V2)
-})
-
-
-
-testthat::test_that("at.risk column works as intended, Vol. 2", {
- popEpi:::skip_normally()
- ## period analysis case - some observations are late entry.
- data(sire)
-
- BL <- list(fot=seq(0, 5, by = 1/12),
- per = c(2008,2013))
-
- x <- Lexis(data = sire[dg_date < ex_date,],
- entry = list(fot = 0, age = dg_age, per = get.yrs(dg_date)),
- exit = list(per = get.yrs(ex_date)), exit.status = status,
- entry.status = 0)
-
- x <- splitMulti(x, breaks = BL, drop = TRUE)
-
- a <- aggre(x, by = list(sex, per, fot))
- setkey(a, sex, per, fot)
- a[, ndiff := at.risk - c(at.risk[-1], NA), by = list(sex, per)]
- a[!is.na(ndiff), events := from0to0 + from0to1 + from0to2]
-
- x[, normalEntry := fot %in% BL$fot]
- x[, cutPer := cutLow(per, BL$per)]
- x[, cutFot := cutLow(fot, BL$fot)]
- byDT <- CJ(sex = 1, cutPer = BL$per[-length(BL$per)],
- cutFot = BL$fot[-length(BL$fot)])
- n.start <- x[byDT, sum(normalEntry & !duplicated(lex.id)), by = .EACHI,
- on = names(byDT)]
-
- testthat::expect_equal(a$at.risk, n.start$V1)
-})
-
+testthat::context("aggre")
+
+testthat::test_that("aggre leaves original data untouched", {
+
+ x <- sire[1:100,]
+ BL <- list(fot= seq(0,20,1/12), age= c(0:100, Inf), per= c(1960:2014))
+ x <- lexpand(x, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status %in% 1:2, breaks=BL)
+
+ ## scramble order
+ set.seed(1L)
+ x <- x[sample(x = .N, size = .N, replace = FALSE)]
+ setkeyv(x, NULL)
+
+ setDT(x)
+ forceLexisDT(x, breaks = BL, allScales = c("fot", "per", "age"), key = FALSE)
+
+ xor <- copy(x)
+
+ ag1 <- aggre(x, by = list(gender = factor(sex, 1, "f"), sex, surv.int = fot, per, agegr = age))
+
+ testthat::expect_identical(x, xor)
+})
+
+testthat::test_that("aggre works with by = NULL", {
+
+ sr <- popEpi::sire[dg_date < ex_date,][1:1000,]
+
+ BL <- list(fot= seq(0,20,1), age= c(0:100, Inf), per= c(1960:2014))
+ x <- lexpand(sr, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status %in% 1:2, breaks=BL)
+
+ ag1 <- aggre(x, by = NULL)
+ testthat::expect_equal(as.numeric(ag1), c(9539.1903286174274, 1000, 373, 627))
+
+})
+
+testthat::test_that("aggre and lexpand produce the same results", {
+ sr <- popEpi::sire[dg_date < ex_date,][1:1000,]
+
+ BL <- list(fot= seq(0,20,1/12), age= c(0:100, Inf), per= c(1960:2014))
+ x <- lexpand(sr, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status %in% 1:2, breaks=BL)
+ if (!is.data.table(x)) setDF2DT(x)
+
+ e <- quote(list(gender = factor(sex, 1, "f"), sex, surv.int = fot, per, agegr = age))
+ v <- c("gender", "sex", "sex", "surv.int", "per", "agegr")
+
+ forceLexisDT(x, breaks = BL, allScales = c("fot", "per", "age"))
+ x2 <- aggre(x, by = e, verbose = FALSE)
+ x3 <- aggre(x, by = e, type = "full", verbose = FALSE)
+ x4 <- lexpand(sr, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status %in% 1:2, aggre.type = "non-empty",
+ breaks=BL, aggre = list(gender = factor(sex, 1, "f"), sex, surv.int = fot, per, agegr = age))
+ x5 <- lexpand(sr, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status %in% 1:2, aggre.type = "cartesian",
+ breaks=BL, aggre = list(gender = factor(sex, 1, "f"), sex, surv.int = fot, per, agegr = age))
+
+ x[, fot := popEpi:::cutLow(fot, BL$fot)]
+ x[, age := popEpi:::cutLow(age, BL$age)]
+ x[, per := popEpi:::cutLow(per, BL$per)]
+
+ x <- x[, list(pyrs = sum(lex.dur), obs = sum(lex.Xst)), keyby = e]
+ x <- x[pyrs > 0 & !is.na(pyrs)]
+
+ if (!is.data.table(x2)) setDF2DT(x2)
+ if (!is.data.table(x3)) setDF2DT(x3)
+ if (!is.data.table(x4)) setDF2DT(x4)
+ if (!is.data.table(x5)) setDF2DT(x5)
+
+ setkeyv(x, v)
+ setkeyv(x2, v)
+ setkeyv(x3, v)
+ setkeyv(x4, v)
+ setkeyv(x5, v)
+
+ testthat::expect_equal(x2$pyrs, x$pyrs, tolerance = 1e-05)
+ testthat::expect_equal(x2$from0to1, x$obs, tolerance = 1e-05)
+
+ testthat::expect_equal(sum(x2$pyrs), sum(x3$pyrs), tolerance = 1e-05)
+ testthat::expect_equal(sum(x2$from0to1), sum(x3$from0to1), tolerance = 1e-05)
+
+ testthat::expect_equal(sum(x2$pyrs), sum(x4$pyrs), tolerance = 1e-05)
+ testthat::expect_equal(sum(x2$from0to1), sum(x4$from0to1), tolerance = 1e-05)
+
+ testthat::expect_equal(x3$pyrs, x5$pyrs, tolerance = 1e-05)
+ testthat::expect_equal(x3$from0to0, x5$from0to0, tolerance = 1e-05)
+ testthat::expect_equal(sum(x3$from0to1), sum(x5$from0to1), tolerance = 1e-05)
+
+ testthat::expect_equal(x2$pyrs, x4$pyrs, tolerance = 1e-05)
+ testthat::expect_equal(x2$from0to0, x4$from0to0, tolerance = 1e-05)
+ testthat::expect_equal(sum(x2$from0to1), sum(x4$from0to1), tolerance = 1e-05)
+})
+
+
+testthat::test_that("aggre()'s by argument works flexibly", {
+ library(Epi)
+ BL <- list(fot = 0:5, per = c(1995,2015))
+ for (cond in c(FALSE, TRUE)) {
+ x <- Lexis(data = sire[dg_date < ex_date,][1:500, ], entry = list(fot = 0, age = dg_age, per = get.yrs(dg_date)),
+ exit = list(per = get.yrs(ex_date)), exit.status = status,
+ entry.status = 0)
+ x <- splitMulti(x, breaks = BL)
+ setDF(x)
+ setattr(x, "class", c("Lexis", "data.frame"))
+ x$agegr <- cut(x$dg_age, 2)
+ if (cond) {
+ forceLexisDT(x, breaks = BL, allScales = c("fot", "per", "age"))
+ alloc.col(x)
+ }
+
+ a <- aggre(x, by = list(agegr = cut(dg_age, 2), sex, fot, per = per), type = "unique")
+ b <- aggre(x, by = c("agegr", "sex", "fot", "per"), type = "unique")
+
+ testthat::expect_equal(a, b)
+
+ a <- aggre(x, by = cut(dg_age, 2), type = "unique")
+ setnames(a, "cut", "agegr")
+ attr(a, "aggre.meta")$by <- "agegr"
+ b <- aggre(x, by = c("agegr"), type = "unique")
+ c <- aggre(x, by = list(agegr = cut(dg_age, 2)), type = "unique")
+ d<- aggre(x, by = agegr, type = "unique")
+
+ testthat::expect_equal(a, b)
+ testthat::expect_equal(b, c)
+ testthat::expect_equal(c, d)
+ }
+
+
+})
+
+testthat::test_that("subset argument works properly", {
+
+
+ x <- sire[dg_date < ex_date, ][1:1000,]
+ BL <- list(fot= seq(0,20,1/12), age= c(0:100, Inf), per= c(1960:2014))
+ x <- lexpand(x, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status %in% 1:2, breaks=BL)
+ # setDT2DF(x)
+ x2 <- x[x$dg_age <= 55L, ]
+
+ setDT(x)
+ setDT(x2)
+ forceLexisDT(x, breaks = BL, allScales = c("fot", "per", "age"), key = FALSE)
+ forceLexisDT(x2, breaks = BL, allScales = c("fot", "per", "age"), key = FALSE)
+
+ ag <- quote(list(gender = factor(sex, 1, "f"), sex, surv.int = fot, per, agegr = age))
+ ag1 <- aggre(x, by = ag, subset = dg_age <= 55L)
+ ag2 <- aggre(x2, by = ag)
+
+ ag3 <- aggre(x, by = ag, type = "full", subset = dg_age <= 55L)
+ ag4 <- aggre(x2, by = ag, type = "full")
+
+ testthat::expect_identical(ag1, ag2)
+ testthat::expect_identical(ag3, ag4)
+
+})
+
+
+testthat::test_that("at.risk column works as intended", {
+ ## normal case - no late entry. Just lots of breaks.
+ popEpi:::skip_normally()
+ x <- sire[dg_date < ex_date, ][1:1000,]
+ BL <- list(fot= seq(0,20,1/12), age= c(0:100, Inf), per= c(1960:2014))
+
+ x <- Lexis(data = x,
+ entry = list(fot = 0, age = dg_age, per = get.yrs(dg_date)),
+ exit = list(per = get.yrs(ex_date)), exit.status = status,
+ entry.status = 0)
+
+ x <- splitMulti(x, breaks = BL, drop = TRUE)
+
+ ag <- aggre(x, by = list(sex, fot))
+ setkey(ag, sex, fot)
+
+ ## total events and changes in at.risk should be congruent here
+ ag[, ndiff := at.risk - c(at.risk[-1], NA), by = list(sex)]
+ ag[!is.na(ndiff), events := from0to0 + from0to1 + from0to2]
+
+ testthat::expect_equal(ag$ndiff, ag$events)
+
+ ## compare at.risk with manually computed at.risk and events
+ x[, evented := detectEvents(x, breaks = attr(x, "breaks"), by = "lex.id") != 0L]
+ x[, normalEntry := fot %in% BL$fot]
+ x[, cutFot := cutLow(fot, BL$fot)]
+ byDT <- CJ(sex = 1,
+ cutFot = BL$fot[-length(BL$fot)])
+ n.start <- x[byDT, .(sum(normalEntry & !duplicated(lex.id)),
+ sum(evented)), by = .EACHI,
+ on = names(byDT)]
+ n.start[is.na(ag$ndiff), V2 := NA]
+ testthat::expect_equal(ag$at.risk, n.start$V1)
+ testthat::expect_equal(ag$ndiff, n.start$V2)
+})
+
+
+
+testthat::test_that("at.risk column works as intended, Vol. 2", {
+ popEpi:::skip_normally()
+ ## period analysis case - some observations are late entry.
+ data(sire)
+
+ BL <- list(fot=seq(0, 5, by = 1/12),
+ per = c(2008,2013))
+
+ x <- Lexis(data = sire[dg_date < ex_date,],
+ entry = list(fot = 0, age = dg_age, per = get.yrs(dg_date)),
+ exit = list(per = get.yrs(ex_date)), exit.status = status,
+ entry.status = 0)
+
+ x <- splitMulti(x, breaks = BL, drop = TRUE)
+
+ a <- aggre(x, by = list(sex, per, fot))
+ setkey(a, sex, per, fot)
+ a[, ndiff := at.risk - c(at.risk[-1], NA), by = list(sex, per)]
+ a[!is.na(ndiff), events := from0to0 + from0to1 + from0to2]
+
+ x[, normalEntry := fot %in% BL$fot]
+ x[, cutPer := cutLow(per, BL$per)]
+ x[, cutFot := cutLow(fot, BL$fot)]
+ byDT <- CJ(sex = 1, cutPer = BL$per[-length(BL$per)],
+ cutFot = BL$fot[-length(BL$fot)])
+ n.start <- x[byDT, sum(normalEntry & !duplicated(lex.id)), by = .EACHI,
+ on = names(byDT)]
+
+ testthat::expect_equal(a$at.risk, n.start$V1)
+})
+
diff --git a/tests/testthat/test_epi.R b/tests/testthat/test_epi.R
index 9fa2fb7..f45da12 100644
--- a/tests/testthat/test_epi.R
+++ b/tests/testthat/test_epi.R
@@ -1,35 +1,35 @@
-testthat::context("Epi subsetting methods OK")
-
-
-
-
-
-testthat::test_that("[.Epi exists and works", {
-
- xcoh <- structure( list( id = c("A", "B", "C"),
- birth = c("14/07/1952", "01/04/1954", "10/06/1987"),
- entry = c("04/08/1965", "08/09/1972", "23/12/1991"),
- exit = c("27/06/1997", "23/05/1995", "24/07/1998"),
- fail = c(1, 0, 1) ),
- .Names = c("id", "birth", "entry", "exit", "fail"),
- row.names = c("1", "2", "3"),
- class = "data.frame" )
-
-
- xcoh <- cal.yr( xcoh, format="%d/%m/%Y", wh=2:4 )
-
- Lcoh <- Lexis( entry = list( per=entry ),
- exit = list( per=exit, age=exit-birth ),
- exit.status = fail,
- entry.status = 0,
- data = xcoh )
-
- e1 <- subset(Lcoh, fail == 1)
- e2 <- Lcoh[Lcoh$fail == 1, ]
-
- testthat::expect_identical(e1, e2)
-})
-
-
-
-
+testthat::context("Epi subsetting methods OK")
+
+
+
+
+
+testthat::test_that("[.Epi exists and works", {
+
+ xcoh <- structure( list( id = c("A", "B", "C"),
+ birth = c("14/07/1952", "01/04/1954", "10/06/1987"),
+ entry = c("04/08/1965", "08/09/1972", "23/12/1991"),
+ exit = c("27/06/1997", "23/05/1995", "24/07/1998"),
+ fail = c(1, 0, 1) ),
+ .Names = c("id", "birth", "entry", "exit", "fail"),
+ row.names = c("1", "2", "3"),
+ class = "data.frame" )
+
+
+ xcoh <- cal.yr( xcoh, format="%d/%m/%Y", wh=2:4 )
+
+ Lcoh <- Lexis( entry = list( per=entry ),
+ exit = list( per=exit, age=exit-birth ),
+ exit.status = fail,
+ entry.status = 0,
+ data = xcoh )
+
+ e1 <- subset(Lcoh, fail == 1)
+ e2 <- Lcoh[Lcoh$fail == 1, ]
+
+ testthat::expect_identical(e1, e2)
+})
+
+
+
+
diff --git a/tests/testthat/test_expo.R b/tests/testthat/test_expo.R
index 67d7189..34a360b 100644
--- a/tests/testthat/test_expo.R
+++ b/tests/testthat/test_expo.R
@@ -1,50 +1,50 @@
-testthat::context("Testing aggregation by categories of exposure")
-
-testthat::test_that("prepExpo works in the simple case", {
- popEpi:::skip_normally()
- library(Epi)
-
- df <- data.frame(id = "A", birth = c(1952.4534),
- entry = c(1965.4746, 1972.42845, 1991.78643),
- exit = c(1968.56346, 1979.32478, 1997.32432), fail = 0)
-
- # Define as Lexis object with timescales calendar time and age
- x <- Lexis( entry = list(work = 0, per=entry ),
- exit = list( per=exit, age=exit-birth ),
- exit.status = fail,
- entry.status = 0,
- id = id,
- data = df )
-
- x2 <- prepExpo(x, freezeScales = "work",
- cutScale = "per",
- entry = 1964,
- exit = 2012, by = "lex.id")
- cd <- cumsum(x$lex.dur)
- exp_work <- c(0, 0, cd[1], cd[1], cd[2], cd[2], cd[3])
- testthat::expect_equal(x2$work, exp_work)
- testthat::expect_equal(x2$per, 1964+c(0,cumsum(x2$lex.dur)[-nrow(x2)]))
-
- BL <- list(work = 0:50, age = c(0,18,Inf), per = 1963:2014)
- x2 <- prepExpo(x, freezeScales = "work",
- cutScale = "per",
- entry = 1964,
- # verbose = TRUE,
- exit = 2012, by = "lex.id",
- breaks = BL)
- ag <- aggre(x2, by = list(lex.id, per, age))
-
- xx <- Lexis(entry = list(per = 1964, age = 1964-birth), exit = list(per=2012), data = df[1,])
- ag2 <- splitMulti(xx, breaks = BL[c("per","age")])
- ag2 <- aggre(ag2, by = list(lex.id, per, age))
-
- setkeyv(ag, c("lex.id","per"))
- setkeyv(ag2, c("lex.id","per"))
-
- testthat::expect_equal(ag$pyrs, ag2$pyrs)
-
-
-
-
-})
-
+testthat::context("Testing aggregation by categories of exposure")
+
+testthat::test_that("prepExpo works in the simple case", {
+ popEpi:::skip_normally()
+ library(Epi)
+
+ df <- data.frame(id = "A", birth = c(1952.4534),
+ entry = c(1965.4746, 1972.42845, 1991.78643),
+ exit = c(1968.56346, 1979.32478, 1997.32432), fail = 0)
+
+ # Define as Lexis object with timescales calendar time and age
+ x <- Lexis( entry = list(work = 0, per=entry ),
+ exit = list( per=exit, age=exit-birth ),
+ exit.status = fail,
+ entry.status = 0,
+ id = id,
+ data = df )
+
+ x2 <- prepExpo(x, freezeScales = "work",
+ cutScale = "per",
+ entry = 1964,
+ exit = 2012, by = "lex.id")
+ cd <- cumsum(x$lex.dur)
+ exp_work <- c(0, 0, cd[1], cd[1], cd[2], cd[2], cd[3])
+ testthat::expect_equal(x2$work, exp_work)
+ testthat::expect_equal(x2$per, 1964+c(0,cumsum(x2$lex.dur)[-nrow(x2)]))
+
+ BL <- list(work = 0:50, age = c(0,18,Inf), per = 1963:2014)
+ x2 <- prepExpo(x, freezeScales = "work",
+ cutScale = "per",
+ entry = 1964,
+ # verbose = TRUE,
+ exit = 2012, by = "lex.id",
+ breaks = BL)
+ ag <- aggre(x2, by = list(lex.id, per, age))
+
+ xx <- Lexis(entry = list(per = 1964, age = 1964-birth), exit = list(per=2012), data = df[1,])
+ ag2 <- splitMulti(xx, breaks = BL[c("per","age")])
+ ag2 <- aggre(ag2, by = list(lex.id, per, age))
+
+ setkeyv(ag, c("lex.id","per"))
+ setkeyv(ag2, c("lex.id","per"))
+
+ testthat::expect_equal(ag$pyrs, ag2$pyrs)
+
+
+
+
+})
+
diff --git a/tests/testthat/test_lexpand.R b/tests/testthat/test_lexpand.R
index 442251b..f00c49b 100644
--- a/tests/testthat/test_lexpand.R
+++ b/tests/testthat/test_lexpand.R
@@ -1,372 +1,372 @@
-testthat::context("lexpand sanity checks")
-
-
-testthat::test_that("lexpand arguments can be passed as symbol, expression, character name of variable, and symbol of a character variable", {
- popEpi:::skip_normally()
- sr <- copy(sire)[dg_date < ex_date, ][1:100,]
- sr[, id := as.character(1:.N)]
-
- x <- lexpand(sr, fot = c(0, Inf),
- birth = "bi_date", entry = dg_date, exit = "ex_date",
- status = status %in% 1:2, id = "id")
-
- x2 <- lexpand(sr, fot = c(0, Inf),
- birth = bi_date, entry = "dg_date", exit = ex_date,
- status = status %in% 1:2, id = id)
-
-
- x3 <- lexpand(sr, fot = c(0, Inf),
- birth = bi_date, entry = dg_date, exit = ex_date,
- status = status %in% 1:2, id = id)
-
- testthat::expect_identical(x, x2)
- testthat::expect_identical(x, x3)
-})
-
-
-
-testthat::test_that("original total pyrs equals pyrs after splitting w/ large number of breaks", {
- popEpi:::skip_normally()
- x <- copy(sire)[dg_date < ex_date, ]
- x[, fot := get.yrs(ex_date, year.length = "actual") - get.yrs(dg_date, year.length = "actual")]
- totpyrs <- x[, sum(fot)]
-
- x <- lexpand(sire, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status %in% 1:2,
- breaks=list(fot= seq(0,20,1/12), age= c(0:100, Inf), per= c(1960:2014)))
- setDT(x)
- totpyrs_split <- x[, sum(lex.dur)]
-
- testthat::expect_equal(totpyrs, totpyrs_split, tolerance = 1e-05)
-})
-
-
-
-testthat::test_that("pp not added to data if pp = FALSE but pop.haz is", {
- x <- lexpand(sire[dg_date < ex_date, ][0:100],
- birth = bi_date, entry = dg_date, exit = ex_date,
- status = status %in% 1:2,
- breaks=list(fot=0:5),
- pophaz=data.table(popEpi::popmort),
- pp = FALSE)
- testthat::expect_equal(intersect(names(x), c("pp", "pop.haz")), "pop.haz")
- testthat::expect_true(!any(is.na(x$pop.haz)))
-})
-
-
-
-testthat::test_that("lexpand produces the same results with internal/external dropping", {
- popEpi:::skip_normally()
- x <- lexpand(sire[dg_date < ex_date, ],
- birth = bi_date, entry = dg_date, exit = ex_date,
- status = status %in% 1:2,
- breaks=list(fot=0:5), pophaz=data.table(popEpi::popmort),
- pp = TRUE, drop = TRUE)
- x2 <-lexpand(sire[dg_date < ex_date, ],
- birth = bi_date, entry = dg_date, exit = ex_date,
- status = status %in% 1:2,
- breaks=list(fot=0:5), pophaz=data.table(popEpi::popmort),
- pp = TRUE, drop = FALSE)
- x2 <-popEpi:::intelliDrop(x2, breaks = list(fot=0:5), dropNegDur = TRUE)
- setDT(x)
- setDT(x2)
- popEpi:::doTestBarrage(dt1 = x, dt2 = x2, allScales = c("fot", "per", "age"))
-})
-
-
-testthat::test_that("lexpanding with aggre.type = 'unique' works", {
- popEpi:::skip_normally()
-
- BL <- list(fot = 0:5, age = seq(0,100, 5))
- ag1 <- lexpand(sire[dg_date < ex_date, ],
- breaks = BL, status = status,
- birth = bi_date, entry = dg_date, exit = ex_date)
- setDT(ag1)
- ag1 <- ag1[, list(pyrs = sum(lex.dur), from0to1 = sum(lex.Xst == 1L)),
- keyby = list(fot = popEpi:::cutLow(fot, BL$fot),
- age = popEpi:::cutLow(age, BL$age))]
- ag2 <- lexpand(sire[dg_date < ex_date, ],
- breaks = BL, status = status,
- birth = bi_date, entry = dg_date, exit = ex_date,
- aggre = list(fot, age), aggre.type = "unique")
- setDT(ag2)
- testthat::expect_equal(ag1$pyrs, ag2$pyrs)
- testthat::expect_equal(ag1$from0to1, ag2$from0to1)
-
-})
-
-testthat::test_that("lexpanding with aggre.type = 'cartesian' works; no time scales used", {
- popEpi:::skip_normally()
-
- BL <- list(fot = c(0,Inf))
- ag1 <- lexpand(sire[dg_date < ex_date, ],
- breaks = BL, status = status, entry.status = 0L,
- birth = bi_date, entry = dg_date, exit = ex_date)
- setDT(ag1)
- forceLexisDT(ag1, breaks = BL, allScales = c("fot", "per", "age"))
-
- e <- quote(list(sex = factor(sex, 0:1, c("m", "f")),
- period = cut(get.yrs(dg_date), get.yrs(as.Date(paste0(seq(1970, 2015, 5), "-01-01"))))))
- ag1[, c("sex", "period") := eval(e)]
- ceejay <- do.call(CJ, lapply(ag1[, list(sex, period)], function(x) {if (is.factor(x)) levels(x) else unique(x)}))
- setkey(ceejay, sex, period); setkey(ag1, sex, period)
- ag1 <- ag1[ceejay, list(pyrs = sum(lex.dur),
- from0to1 = sum(lex.Xst == 1L)), by = .EACHI]
- ag1[is.na(pyrs), pyrs := 0]
- ag1[is.na(from0to1), from0to1 := 0]
-
- ag2 <- lexpand(sire[dg_date < ex_date, ],
- breaks = BL,
- status = status, entry.status = 0L,
- birth = bi_date, entry = dg_date, exit = ex_date,
- aggre = list(sex = factor(sex, 0:1, c("m", "f")),
- period = cut(get.yrs(dg_date), get.yrs(as.Date(paste0(seq(1970, 2015, 5), "-01-01"))))),
- aggre.type = "cartesian")
-
- setDT(ag2)
- setkeyv(ag1, c("sex", "period"))
- setkeyv(ag2, c("sex", "period"))
- testthat::expect_equal(sum(ag1$pyrs), sum(ag2$pyrs))
- testthat::expect_equal(sum(ag1$from0to1), sum(ag2$from0to1))
- testthat::expect_equal(ag1$pyrs, ag2$pyrs)
- testthat::expect_equal(ag1$from0to1, ag2$from0to1)
-
-})
-
-testthat::test_that("lexpanding with aggre.type = 'cartesian' works; only time scales used", {
- popEpi:::skip_normally()
-
- BL <- list(fot = 0:5, age = seq(0,100, 5))
- ag1 <- lexpand(sire[dg_date < ex_date, ],
- breaks = BL, status = status, entry.status = 0L,
- birth = bi_date, entry = dg_date, exit = ex_date)
- setDT(ag1)
- forceLexisDT(ag1, breaks = BL, allScales = c("fot", "per", "age"))
-
- ag3 <- aggre(ag1, by = list(fot, age), type = "cartesian")
- setDT(ag3)
-
- ag4 <- aggre(ag1, by = list(fot, age), type = "unique")
- setDT(ag4)
-
- ag1[, `:=`(fot = try2int(popEpi:::cutLow(fot, c(BL$fot, Inf))),
- age = try2int(popEpi:::cutLow(age, c(BL$age, Inf))))]
- ceejay <- do.call(CJ, lapply(BL, function(x) x[-length(x)]))
- setkey(ceejay, fot, age); setkey(ag1, fot, age)
- ag1 <- ag1[ceejay, list(pyrs = sum(lex.dur),
- from0to1 = sum(lex.Xst == 1L)), by = .EACHI]
- ag1[is.na(pyrs), pyrs := 0]
- ag1[is.na(from0to1), from0to1 := 0]
-
- ag2 <- lexpand(sire[dg_date < ex_date, ],
- breaks = list(fot = 0:5, age = seq(0,100, 5)),
- status = status, entry.status = 0L,
- birth = bi_date, entry = dg_date, exit = ex_date,
- aggre = list(fot, age), aggre.type = "cartesian")
-
- setDT(ag2)
- setkeyv(ag1, c("fot", "age"))
- setkeyv(ag2, c("fot", "age"))
- setkeyv(ag3, c("fot", "age"))
- testthat::expect_equal(sum(ag1$pyrs), sum(ag3$pyrs))
- testthat::expect_equal(sum(ag1$from0to1), sum(ag3$from0to1))
- testthat::expect_equal(ag1$pyrs, ag3$pyrs)
- testthat::expect_equal(ag1$from0to1, ag3$from0to1)
-
- testthat::expect_equal(sum(ag1$pyrs), sum(ag2$pyrs))
- testthat::expect_equal(sum(ag1$from0to1), sum(ag2$from0to1))
- testthat::expect_equal(ag1$pyrs, ag2$pyrs)
- testthat::expect_equal(ag1$from0to1, ag2$from0to1)
-
-})
-
-
-testthat::test_that("lexpanding and aggregating to years works", {
- ag1 <- lexpand(sire[dg_date < ex_date, ],
- breaks = list(per=2000:2014), status = status,
- birth = bi_date, entry = dg_date, exit = ex_date)
- setDT(ag1)
- ag1[, `:=`(per = as.integer(popEpi:::cutLow(per, 2000:2014)))]
- ag1 <- ag1[, list(pyrs = sum(lex.dur), from0to1 = sum(lex.Xst == 1L)), keyby = per]
-
- ag2 <- lexpand(sire[dg_date < ex_date, ],
- breaks = list(per = 2000:2014), status = status,
- birth = bi_date, entry = dg_date, exit = ex_date,
- aggre = list(per), aggre.type = "unique")
- setDT(ag2)
- ag3 <- lexpand(sire[dg_date < ex_date, ],
- breaks = list(per = 2000:2014, age = c(seq(0,100,5),Inf), fot = c(0:10, Inf)),
- status = status,
- birth = bi_date, entry = dg_date, exit = ex_date,
- aggre = list(y = per), aggre.type = "unique")
- setDT(ag3)
- testthat::expect_equal(ag1$pyrs, ag2$pyrs)
- testthat::expect_equal(ag1$from0to1, ag2$from0to1)
- testthat::expect_equal(ag1$pyrs, ag3$pyrs)
- testthat::expect_equal(ag1$from0to1, ag3$from0to1)
-
-})
-
-# Aggre check (to totpyrs) -----------------------------------------------------
-
-testthat::test_that("lexpand aggre produces correct results", {
- popEpi:::skip_normally()
- x <- copy(sire)[dg_date < ex_date, ]
- x[, fot := get.yrs(ex_date, year.length = "actual") - get.yrs(dg_date, year.length = "actual")]
- totpyrs <- x[, sum(fot)]
- counts <- x[, .N, by = .(status)]
-
- x <- lexpand(sire[dg_date < ex_date, ],
- birth = bi_date, entry = dg_date, exit = ex_date,
- breaks=list(fot=c(0,5,10,50,Inf), age=c(seq(0,85,5),Inf), per = 1993:2013),
- status=status, aggre = list(fot, age, per))
- setDT(x)
- row_length <- x[,list( length(unique(age)), length(unique(per)), length(unique(fot)))]
-
- testthat::expect_equal( x[,sum(pyrs)], totpyrs, tolerance = 0.001)
- testthat::expect_equal( x[,sum(from0to0)], counts[1,N])
- testthat::expect_equal( x[,sum(from0to1)], counts[2,N])
- testthat::expect_equal( x[,sum(from0to2)], counts[3,N])
- #expect_equal( prod(row_length), x[,.N])
-})
-
-testthat::test_that('lexpand aggre: multistate column names correct', {
-
- x <- lexpand(sire[dg_date < ex_date, ][0:100],
- birth = bi_date, entry = dg_date, exit = ex_date,
- breaks=list(fot=c(0,5,10,50,Inf), age=c(seq(0,85,5),Inf),
- per = 1993:2013),
- status=status, aggre = list(fot, age, per))
-
- testthat::expect_equal(intersect(names(x), c('from0to0','from0to1','from0to2')),
- c('from0to0','from0to1','from0to2'))
-})
-
-
-# overlapping time lines --------------------------------------------------
-
-testthat::test_that('lexpansion w/ overlapping = TRUE/FALSE produces double/undoubled pyrs', {
- popEpi:::skip_normally()
-
- sire2 <- copy(sire)[dg_date < ex_date, ][1:100]
- sire2[, dg_yrs := get.yrs(dg_date, "actual")]
- sire2[, ex_yrs := get.yrs(ex_date, "actual")]
- sire2[, bi_yrs := get.yrs(bi_date, "actual")]
- sire2[, id := 1:.N]
- sire2 <- sire2[rep(1:.N, each=2)]
-
- sire2[seq(2,.N, by=2), dg_yrs := (ex_yrs + dg_yrs)/2L]
- sire2[, dg_age := dg_yrs-bi_yrs]
-
- x <- lexpand(sire2, birth = "bi_yrs", entry = "bi_yrs", event="dg_yrs",
- exit = "ex_yrs", status="status", entry.status = 0L, id = "id",
- overlapping = TRUE)
- setDT(x)
- testthat::expect_equal(x[, sum(lex.dur), keyby=lex.id]$V1, sire2[, sum(ex_yrs-bi_yrs), keyby=id]$V1)
-
- x <- lexpand(sire2, birth = "bi_yrs", entry = "bi_yrs", event="dg_yrs",
- exit = "ex_yrs", status="status", entry.status = 0L, id = "id",
- overlapping = FALSE)
- setDT(x)
- testthat::expect_equal(x[, sum(lex.dur), keyby=lex.id]$V1,
- sire2[!duplicated(id), sum(ex_yrs-bi_yrs), keyby=id]$V1)
-})
-
-
-
-testthat::test_that("different specifications of time vars work with event defined and overlapping=FALSE", {
-
- dt <- data.table(bi_date = as.Date('1949-01-01'),
- dg_date = as.Date(paste0(1999:2000, "-01-01")),
- start = as.Date("1997-01-01"),
- end = as.Date('2002-01-01'),
- status = c(1,2), id=1)
-
- ## birth -> entry -> event -> exit
- x1 <- lexpand(data = dt, subset = NULL,
- birth = bi_date, entry = start, exit = end, event = dg_date,
- id = id, overlapping = FALSE, entry.status = 0, status = status,
- merge = FALSE)
- testthat::expect_equal(x1$lex.dur, c(2,1,2))
- testthat::expect_equal(x1$age, c(48,50,51))
- testthat::expect_equal(x1$lex.Cst, 0:2)
- testthat::expect_equal(x1$lex.Xst, c(1,2,2))
-
- ## birth -> entry = event -> exit
- testthat::expect_error(
- lexpand(data = dt, subset = NULL,
- birth = bi_date, entry = dg_date, exit = end, event = dg_date,
- id = id, overlapping = FALSE, entry.status = 0, status = status,
- merge = FALSE),
- regexp = paste0("some rows have simultaneous 'entry' and 'event', ",
- "which is not supported with overlapping = FALSE; ",
- "perhaps separate them by one day?")
- )
-
- ## birth = entry -> event -> exit
- x3 <- lexpand(data = dt, subset = NULL,
- birth = bi_date, entry = bi_date, exit = end, event = dg_date,
- id = id, overlapping = FALSE, entry.status = 0, status = status,
- merge = FALSE)
- testthat::expect_equal(x3$lex.dur, c(50,1,2))
- testthat::expect_equal(x3$age, c(0,50,51))
- testthat::expect_equal(x3$lex.Cst, 0:2)
- testthat::expect_equal(x3$lex.Xst, c(1,2,2))
-
- ## birth -> entry -> event = exit
- testthat::expect_error(
- lexpand(data = dt, subset = NULL,
- birth = bi_date, entry = dg_date, exit = end, event = end,
- id = id, overlapping = FALSE, entry.status = 0, status = status,
- merge = FALSE),
- regexp = paste0("subject\\(s\\) defined by lex.id had several rows ",
- "where 'event' time had the same value, which is not ",
- "supported with overlapping = FALSE; perhaps separate ",
- "them by one day?")
- )
-
- ## birth = entry -> event -> exit
- x6 <- lexpand(data = dt, subset = NULL,
- birth = bi_date, entry = bi_date, exit = end, event = dg_date,
- id = id, overlapping = FALSE, entry.status = 0, status = status,
- merge = FALSE)
- testthat::expect_equal(x6$lex.dur, c(50,1,2))
- testthat::expect_equal(x6$age, c(0,50,51))
- testthat::expect_equal(x6$lex.Cst, 0:2)
- testthat::expect_equal(x6$lex.Xst, c(1,2,2))
-
-})
-
-
-testthat::test_that("lexpand drops persons outside breaks window correctly", {
- popEpi:::skip_normally()
-
- dt <- data.table(bi_date = as.Date('1949-01-01'),
- dg_date = as.Date(paste0(2000, "-01-01")),
- start = as.Date("1997-01-01"),
- end = as.Date('2002-01-01'),
- status = c(2), id=1)
-
- ## by age
- x1 <- lexpand(data = dt, subset = NULL,
- birth = bi_date, entry = start, exit = end, event = dg_date,
- id = id, overlapping = FALSE, entry.status = 0, status = status,
- merge = FALSE, breaks = list(age = 50:55))
- testthat::expect_equal(x1$age, c(50, 51, 52))
-
- ## by period
- x1 <- lexpand(data = dt, subset = NULL,
- birth = bi_date, entry = start, exit = end, event = dg_date,
- id = id, overlapping = FALSE, entry.status = 0, status = status,
- merge = FALSE, breaks = list(per = 2000:2005))
- testthat::expect_equal(x1$per, c(2000, 2001))
-
-
- ## by fot
- x1 <- lexpand(data = dt, subset = NULL,
- birth = bi_date, entry = start, exit = end, event = dg_date,
- id = id, overlapping = FALSE, entry.status = 0, status = status,
- merge = FALSE, breaks = list(fot = 2:5))
- testthat::expect_equal(x1$fot, c(2, 3, 4))
-})
-
+testthat::context("lexpand sanity checks")
+
+
+testthat::test_that("lexpand arguments can be passed as symbol, expression, character name of variable, and symbol of a character variable", {
+ popEpi:::skip_normally()
+ sr <- copy(sire)[dg_date < ex_date, ][1:100,]
+ sr[, id := as.character(1:.N)]
+
+ x <- lexpand(sr, fot = c(0, Inf),
+ birth = "bi_date", entry = dg_date, exit = "ex_date",
+ status = status %in% 1:2, id = "id")
+
+ x2 <- lexpand(sr, fot = c(0, Inf),
+ birth = bi_date, entry = "dg_date", exit = ex_date,
+ status = status %in% 1:2, id = id)
+
+
+ x3 <- lexpand(sr, fot = c(0, Inf),
+ birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status %in% 1:2, id = id)
+
+ testthat::expect_identical(x, x2)
+ testthat::expect_identical(x, x3)
+})
+
+
+
+testthat::test_that("original total pyrs equals pyrs after splitting w/ large number of breaks", {
+ popEpi:::skip_normally()
+ x <- copy(sire)[dg_date < ex_date, ]
+ x[, fot := get.yrs(ex_date, year.length = "actual") - get.yrs(dg_date, year.length = "actual")]
+ totpyrs <- x[, sum(fot)]
+
+ x <- lexpand(sire, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status %in% 1:2,
+ breaks=list(fot= seq(0,20,1/12), age= c(0:100, Inf), per= c(1960:2014)))
+ setDT(x)
+ totpyrs_split <- x[, sum(lex.dur)]
+
+ testthat::expect_equal(totpyrs, totpyrs_split, tolerance = 1e-05)
+})
+
+
+
+testthat::test_that("pp not added to data if pp = FALSE but pop.haz is", {
+ x <- lexpand(sire[dg_date < ex_date, ][0:100],
+ birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status %in% 1:2,
+ breaks=list(fot=0:5),
+ pophaz=data.table(popEpi::popmort),
+ pp = FALSE)
+ testthat::expect_equal(intersect(names(x), c("pp", "pop.haz")), "pop.haz")
+ testthat::expect_true(!any(is.na(x$pop.haz)))
+})
+
+
+
+testthat::test_that("lexpand produces the same results with internal/external dropping", {
+ popEpi:::skip_normally()
+ x <- lexpand(sire[dg_date < ex_date, ],
+ birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status %in% 1:2,
+ breaks=list(fot=0:5), pophaz=data.table(popEpi::popmort),
+ pp = TRUE, drop = TRUE)
+ x2 <-lexpand(sire[dg_date < ex_date, ],
+ birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status %in% 1:2,
+ breaks=list(fot=0:5), pophaz=data.table(popEpi::popmort),
+ pp = TRUE, drop = FALSE)
+ x2 <-popEpi:::intelliDrop(x2, breaks = list(fot=0:5), dropNegDur = TRUE)
+ setDT(x)
+ setDT(x2)
+ popEpi:::doTestBarrage(dt1 = x, dt2 = x2, allScales = c("fot", "per", "age"))
+})
+
+
+testthat::test_that("lexpanding with aggre.type = 'unique' works", {
+ popEpi:::skip_normally()
+
+ BL <- list(fot = 0:5, age = seq(0,100, 5))
+ ag1 <- lexpand(sire[dg_date < ex_date, ],
+ breaks = BL, status = status,
+ birth = bi_date, entry = dg_date, exit = ex_date)
+ setDT(ag1)
+ ag1 <- ag1[, list(pyrs = sum(lex.dur), from0to1 = sum(lex.Xst == 1L)),
+ keyby = list(fot = popEpi:::cutLow(fot, BL$fot),
+ age = popEpi:::cutLow(age, BL$age))]
+ ag2 <- lexpand(sire[dg_date < ex_date, ],
+ breaks = BL, status = status,
+ birth = bi_date, entry = dg_date, exit = ex_date,
+ aggre = list(fot, age), aggre.type = "unique")
+ setDT(ag2)
+ testthat::expect_equal(ag1$pyrs, ag2$pyrs)
+ testthat::expect_equal(ag1$from0to1, ag2$from0to1)
+
+})
+
+testthat::test_that("lexpanding with aggre.type = 'cartesian' works; no time scales used", {
+ popEpi:::skip_normally()
+
+ BL <- list(fot = c(0,Inf))
+ ag1 <- lexpand(sire[dg_date < ex_date, ],
+ breaks = BL, status = status, entry.status = 0L,
+ birth = bi_date, entry = dg_date, exit = ex_date)
+ setDT(ag1)
+ forceLexisDT(ag1, breaks = BL, allScales = c("fot", "per", "age"))
+
+ e <- quote(list(sex = factor(sex, 0:1, c("m", "f")),
+ period = cut(get.yrs(dg_date), get.yrs(as.Date(paste0(seq(1970, 2015, 5), "-01-01"))))))
+ ag1[, c("sex", "period") := eval(e)]
+ ceejay <- do.call(CJ, lapply(ag1[, list(sex, period)], function(x) {if (is.factor(x)) levels(x) else unique(x)}))
+ setkey(ceejay, sex, period); setkey(ag1, sex, period)
+ ag1 <- ag1[ceejay, list(pyrs = sum(lex.dur),
+ from0to1 = sum(lex.Xst == 1L)), by = .EACHI]
+ ag1[is.na(pyrs), pyrs := 0]
+ ag1[is.na(from0to1), from0to1 := 0]
+
+ ag2 <- lexpand(sire[dg_date < ex_date, ],
+ breaks = BL,
+ status = status, entry.status = 0L,
+ birth = bi_date, entry = dg_date, exit = ex_date,
+ aggre = list(sex = factor(sex, 0:1, c("m", "f")),
+ period = cut(get.yrs(dg_date), get.yrs(as.Date(paste0(seq(1970, 2015, 5), "-01-01"))))),
+ aggre.type = "cartesian")
+
+ setDT(ag2)
+ setkeyv(ag1, c("sex", "period"))
+ setkeyv(ag2, c("sex", "period"))
+ testthat::expect_equal(sum(ag1$pyrs), sum(ag2$pyrs))
+ testthat::expect_equal(sum(ag1$from0to1), sum(ag2$from0to1))
+ testthat::expect_equal(ag1$pyrs, ag2$pyrs)
+ testthat::expect_equal(ag1$from0to1, ag2$from0to1)
+
+})
+
+testthat::test_that("lexpanding with aggre.type = 'cartesian' works; only time scales used", {
+ popEpi:::skip_normally()
+
+ BL <- list(fot = 0:5, age = seq(0,100, 5))
+ ag1 <- lexpand(sire[dg_date < ex_date, ],
+ breaks = BL, status = status, entry.status = 0L,
+ birth = bi_date, entry = dg_date, exit = ex_date)
+ setDT(ag1)
+ forceLexisDT(ag1, breaks = BL, allScales = c("fot", "per", "age"))
+
+ ag3 <- aggre(ag1, by = list(fot, age), type = "cartesian")
+ setDT(ag3)
+
+ ag4 <- aggre(ag1, by = list(fot, age), type = "unique")
+ setDT(ag4)
+
+ ag1[, `:=`(fot = try2int(popEpi:::cutLow(fot, c(BL$fot, Inf))),
+ age = try2int(popEpi:::cutLow(age, c(BL$age, Inf))))]
+ ceejay <- do.call(CJ, lapply(BL, function(x) x[-length(x)]))
+ setkey(ceejay, fot, age); setkey(ag1, fot, age)
+ ag1 <- ag1[ceejay, list(pyrs = sum(lex.dur),
+ from0to1 = sum(lex.Xst == 1L)), by = .EACHI]
+ ag1[is.na(pyrs), pyrs := 0]
+ ag1[is.na(from0to1), from0to1 := 0]
+
+ ag2 <- lexpand(sire[dg_date < ex_date, ],
+ breaks = list(fot = 0:5, age = seq(0,100, 5)),
+ status = status, entry.status = 0L,
+ birth = bi_date, entry = dg_date, exit = ex_date,
+ aggre = list(fot, age), aggre.type = "cartesian")
+
+ setDT(ag2)
+ setkeyv(ag1, c("fot", "age"))
+ setkeyv(ag2, c("fot", "age"))
+ setkeyv(ag3, c("fot", "age"))
+ testthat::expect_equal(sum(ag1$pyrs), sum(ag3$pyrs))
+ testthat::expect_equal(sum(ag1$from0to1), sum(ag3$from0to1))
+ testthat::expect_equal(ag1$pyrs, ag3$pyrs)
+ testthat::expect_equal(ag1$from0to1, ag3$from0to1)
+
+ testthat::expect_equal(sum(ag1$pyrs), sum(ag2$pyrs))
+ testthat::expect_equal(sum(ag1$from0to1), sum(ag2$from0to1))
+ testthat::expect_equal(ag1$pyrs, ag2$pyrs)
+ testthat::expect_equal(ag1$from0to1, ag2$from0to1)
+
+})
+
+
+testthat::test_that("lexpanding and aggregating to years works", {
+ ag1 <- lexpand(sire[dg_date < ex_date, ],
+ breaks = list(per=2000:2014), status = status,
+ birth = bi_date, entry = dg_date, exit = ex_date)
+ setDT(ag1)
+ ag1[, `:=`(per = as.integer(popEpi:::cutLow(per, 2000:2014)))]
+ ag1 <- ag1[, list(pyrs = sum(lex.dur), from0to1 = sum(lex.Xst == 1L)), keyby = per]
+
+ ag2 <- lexpand(sire[dg_date < ex_date, ],
+ breaks = list(per = 2000:2014), status = status,
+ birth = bi_date, entry = dg_date, exit = ex_date,
+ aggre = list(per), aggre.type = "unique")
+ setDT(ag2)
+ ag3 <- lexpand(sire[dg_date < ex_date, ],
+ breaks = list(per = 2000:2014, age = c(seq(0,100,5),Inf), fot = c(0:10, Inf)),
+ status = status,
+ birth = bi_date, entry = dg_date, exit = ex_date,
+ aggre = list(y = per), aggre.type = "unique")
+ setDT(ag3)
+ testthat::expect_equal(ag1$pyrs, ag2$pyrs)
+ testthat::expect_equal(ag1$from0to1, ag2$from0to1)
+ testthat::expect_equal(ag1$pyrs, ag3$pyrs)
+ testthat::expect_equal(ag1$from0to1, ag3$from0to1)
+
+})
+
+# Aggre check (to totpyrs) -----------------------------------------------------
+
+testthat::test_that("lexpand aggre produces correct results", {
+ popEpi:::skip_normally()
+ x <- copy(sire)[dg_date < ex_date, ]
+ x[, fot := get.yrs(ex_date, year.length = "actual") - get.yrs(dg_date, year.length = "actual")]
+ totpyrs <- x[, sum(fot)]
+ counts <- x[, .N, by = .(status)]
+
+ x <- lexpand(sire[dg_date < ex_date, ],
+ birth = bi_date, entry = dg_date, exit = ex_date,
+ breaks=list(fot=c(0,5,10,50,Inf), age=c(seq(0,85,5),Inf), per = 1993:2013),
+ status=status, aggre = list(fot, age, per))
+ setDT(x)
+ row_length <- x[,list( length(unique(age)), length(unique(per)), length(unique(fot)))]
+
+ testthat::expect_equal( x[,sum(pyrs)], totpyrs, tolerance = 0.001)
+ testthat::expect_equal( x[,sum(from0to0)], counts[1,N])
+ testthat::expect_equal( x[,sum(from0to1)], counts[2,N])
+ testthat::expect_equal( x[,sum(from0to2)], counts[3,N])
+ #expect_equal( prod(row_length), x[,.N])
+})
+
+testthat::test_that('lexpand aggre: multistate column names correct', {
+
+ x <- lexpand(sire[dg_date < ex_date, ][0:100],
+ birth = bi_date, entry = dg_date, exit = ex_date,
+ breaks=list(fot=c(0,5,10,50,Inf), age=c(seq(0,85,5),Inf),
+ per = 1993:2013),
+ status=status, aggre = list(fot, age, per))
+
+ testthat::expect_equal(intersect(names(x), c('from0to0','from0to1','from0to2')),
+ c('from0to0','from0to1','from0to2'))
+})
+
+
+# overlapping time lines --------------------------------------------------
+
+testthat::test_that('lexpansion w/ overlapping = TRUE/FALSE produces double/undoubled pyrs', {
+ popEpi:::skip_normally()
+
+ sire2 <- copy(sire)[dg_date < ex_date, ][1:100]
+ sire2[, dg_yrs := get.yrs(dg_date, "actual")]
+ sire2[, ex_yrs := get.yrs(ex_date, "actual")]
+ sire2[, bi_yrs := get.yrs(bi_date, "actual")]
+ sire2[, id := 1:.N]
+ sire2 <- sire2[rep(1:.N, each=2)]
+
+ sire2[seq(2,.N, by=2), dg_yrs := (ex_yrs + dg_yrs)/2L]
+ sire2[, dg_age := dg_yrs-bi_yrs]
+
+ x <- lexpand(sire2, birth = "bi_yrs", entry = "bi_yrs", event="dg_yrs",
+ exit = "ex_yrs", status="status", entry.status = 0L, id = "id",
+ overlapping = TRUE)
+ setDT(x)
+ testthat::expect_equal(x[, sum(lex.dur), keyby=lex.id]$V1, sire2[, sum(ex_yrs-bi_yrs), keyby=id]$V1)
+
+ x <- lexpand(sire2, birth = "bi_yrs", entry = "bi_yrs", event="dg_yrs",
+ exit = "ex_yrs", status="status", entry.status = 0L, id = "id",
+ overlapping = FALSE)
+ setDT(x)
+ testthat::expect_equal(x[, sum(lex.dur), keyby=lex.id]$V1,
+ sire2[!duplicated(id), sum(ex_yrs-bi_yrs), keyby=id]$V1)
+})
+
+
+
+testthat::test_that("different specifications of time vars work with event defined and overlapping=FALSE", {
+
+ dt <- data.table(bi_date = as.Date('1949-01-01'),
+ dg_date = as.Date(paste0(1999:2000, "-01-01")),
+ start = as.Date("1997-01-01"),
+ end = as.Date('2002-01-01'),
+ status = c(1,2), id=1)
+
+ ## birth -> entry -> event -> exit
+ x1 <- lexpand(data = dt, subset = NULL,
+ birth = bi_date, entry = start, exit = end, event = dg_date,
+ id = id, overlapping = FALSE, entry.status = 0, status = status,
+ merge = FALSE)
+ testthat::expect_equal(x1$lex.dur, c(2,1,2))
+ testthat::expect_equal(x1$age, c(48,50,51))
+ testthat::expect_equal(x1$lex.Cst, 0:2)
+ testthat::expect_equal(x1$lex.Xst, c(1,2,2))
+
+ ## birth -> entry = event -> exit
+ testthat::expect_error(
+ lexpand(data = dt, subset = NULL,
+ birth = bi_date, entry = dg_date, exit = end, event = dg_date,
+ id = id, overlapping = FALSE, entry.status = 0, status = status,
+ merge = FALSE),
+ regexp = paste0("some rows have simultaneous 'entry' and 'event', ",
+ "which is not supported with overlapping = FALSE; ",
+ "perhaps separate them by one day?")
+ )
+
+ ## birth = entry -> event -> exit
+ x3 <- lexpand(data = dt, subset = NULL,
+ birth = bi_date, entry = bi_date, exit = end, event = dg_date,
+ id = id, overlapping = FALSE, entry.status = 0, status = status,
+ merge = FALSE)
+ testthat::expect_equal(x3$lex.dur, c(50,1,2))
+ testthat::expect_equal(x3$age, c(0,50,51))
+ testthat::expect_equal(x3$lex.Cst, 0:2)
+ testthat::expect_equal(x3$lex.Xst, c(1,2,2))
+
+ ## birth -> entry -> event = exit
+ testthat::expect_error(
+ lexpand(data = dt, subset = NULL,
+ birth = bi_date, entry = dg_date, exit = end, event = end,
+ id = id, overlapping = FALSE, entry.status = 0, status = status,
+ merge = FALSE),
+ regexp = paste0("subject\\(s\\) defined by lex.id had several rows ",
+ "where 'event' time had the same value, which is not ",
+ "supported with overlapping = FALSE; perhaps separate ",
+ "them by one day?")
+ )
+
+ ## birth = entry -> event -> exit
+ x6 <- lexpand(data = dt, subset = NULL,
+ birth = bi_date, entry = bi_date, exit = end, event = dg_date,
+ id = id, overlapping = FALSE, entry.status = 0, status = status,
+ merge = FALSE)
+ testthat::expect_equal(x6$lex.dur, c(50,1,2))
+ testthat::expect_equal(x6$age, c(0,50,51))
+ testthat::expect_equal(x6$lex.Cst, 0:2)
+ testthat::expect_equal(x6$lex.Xst, c(1,2,2))
+
+})
+
+
+testthat::test_that("lexpand drops persons outside breaks window correctly", {
+ popEpi:::skip_normally()
+
+ dt <- data.table(bi_date = as.Date('1949-01-01'),
+ dg_date = as.Date(paste0(2000, "-01-01")),
+ start = as.Date("1997-01-01"),
+ end = as.Date('2002-01-01'),
+ status = c(2), id=1)
+
+ ## by age
+ x1 <- lexpand(data = dt, subset = NULL,
+ birth = bi_date, entry = start, exit = end, event = dg_date,
+ id = id, overlapping = FALSE, entry.status = 0, status = status,
+ merge = FALSE, breaks = list(age = 50:55))
+ testthat::expect_equal(x1$age, c(50, 51, 52))
+
+ ## by period
+ x1 <- lexpand(data = dt, subset = NULL,
+ birth = bi_date, entry = start, exit = end, event = dg_date,
+ id = id, overlapping = FALSE, entry.status = 0, status = status,
+ merge = FALSE, breaks = list(per = 2000:2005))
+ testthat::expect_equal(x1$per, c(2000, 2001))
+
+
+ ## by fot
+ x1 <- lexpand(data = dt, subset = NULL,
+ birth = bi_date, entry = start, exit = end, event = dg_date,
+ id = id, overlapping = FALSE, entry.status = 0, status = status,
+ merge = FALSE, breaks = list(fot = 2:5))
+ testthat::expect_equal(x1$fot, c(2, 3, 4))
+})
+
diff --git a/tests/testthat/test_prevtab.R b/tests/testthat/test_prevtab.R
index 9f690d2..4f73b0e 100644
--- a/tests/testthat/test_prevtab.R
+++ b/tests/testthat/test_prevtab.R
@@ -1,22 +1,22 @@
-# context("prevtab")
-#
-#
-#
-# test_that("prevtab produces intended results", {
-#
-#
-# mp <- data.table(popEpi::meanpop_fi)
-# setnames(mp, c("year", "agegroup"), c("per", "age"))
-# x <- lexpand(popEpi::sire,
-# birth = bi_date, entry = dg_date, exit = ex_date,
-# status = status %in% 1:2)
-# pt1 <- prevtab(per ~ sex + fot, data = x, meanpop = mp,
-# breaks = list(per = 2009:2014, fot = c(0,1,5,10,Inf)),
-# adjust = "agegroup", weights = "internal")
-# pt2 <- prevtab(per ~ sex + work, data = x, meanpop = mp,
-# breaks = list(per = 2009:2014, work = c(0,1,5,10,Inf)),
-# adjust = "agegroup", weights = "internal")
-#
-#
-# })
-
+# context("prevtab")
+#
+#
+#
+# test_that("prevtab produces intended results", {
+#
+#
+# mp <- data.table(popEpi::meanpop_fi)
+# setnames(mp, c("year", "agegroup"), c("per", "age"))
+# x <- lexpand(popEpi::sire,
+# birth = bi_date, entry = dg_date, exit = ex_date,
+# status = status %in% 1:2)
+# pt1 <- prevtab(per ~ sex + fot, data = x, meanpop = mp,
+# breaks = list(per = 2009:2014, fot = c(0,1,5,10,Inf)),
+# adjust = "agegroup", weights = "internal")
+# pt2 <- prevtab(per ~ sex + work, data = x, meanpop = mp,
+# breaks = list(per = 2009:2014, work = c(0,1,5,10,Inf)),
+# adjust = "agegroup", weights = "internal")
+#
+#
+# })
+
diff --git a/tests/testthat/test_rate.R b/tests/testthat/test_rate.R
index 8bac005..74b3c51 100644
--- a/tests/testthat/test_rate.R
+++ b/tests/testthat/test_rate.R
@@ -1,302 +1,302 @@
-testthat::context('rate')
-
-# simultate test data
-set.seed(5)
-p18 <- data.table( OBS=round(runif(36)*10), PYRS=round(runif(36)*10000), AGEGROUP=1:18, COV = rep(c(1,2), each = 18))
-set.seed(5)
-p20 <- data.table( OBS=round(runif(20)*10), PYRS=round(runif(20)*10000), AGEGROUP=1:20, COV = rep(c(1,2), each = 20))
-set.seed(5)
-p101 <- data.table( OBS=round(runif(101)*10), PYRS=round(runif(101)*10000), AGEGROUP=1:101, COV = rep(c(1,2), each = 101))
-p18b <- data.table(p18)
-setnames(p18b, c('OBS','PYRS','AGEGROUP'), c('obs','pyrs','agegroup'))
-wv <- c(.1,.1,.1,.2,.2,.2,.2,.3,.3,.4,.5,.5,.5,.4,.4,.3,.2,.1)
-
-
-testthat::test_that("rate works with different weights", {
- w1 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = 'AGEGROUP', weights = c(1:18))
- w2 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = 'AGEGROUP', weights = 'world_2000_20of5')
- w3 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = 'AGEGROUP', weights = 'cohort')
- w4 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = NULL, weights = NULL)
- w5 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = NULL, adjust = NULL, weights = NULL)
-
- testthat::expect_equal(sum(w1$PYRS), p18[,sum(PYRS)])
- testthat::expect_equal(sum(w2$OBS), p20[,sum(OBS)])
- testthat::expect_equal(sum(w3$OBS), p20[,sum(OBS)])
- testthat::expect_equal(w4$rate, p20[,list(sum(OBS)/sum(PYRS)), by ='COV'][, V1])
- testthat::expect_equal(w5$rate, p20[,list(sum(OBS)/sum(PYRS))][, V1])
- testthat::expect_is(w1, 'rate')
- testthat::expect_is(w2, 'rate')
- testthat::expect_is(w2, 'data.frame')
- if(getOption("popEpi.datatable")) {
- testthat::expect_is(w2, 'data.table')
- }
-})
-
-testthat::test_that("rate CIs and SEs are correct", {
-
- ci <-data.table(agegroup = c(1,2,3,4),
- obs=c(4,13,8,7),
- pyrs=c(96,237,105,32),
- rate=c(4.2,5.5,7.6,21.9),
- std.pop=c(2773,2556,1113,184))
-
- a1 <- ci[,sum(obs/pyrs*std.pop)/sum(std.pop)] # oikea estimaatti
- a2 <- ci[,sqrt(sum(std.pop^2*((obs/pyrs)*(1-obs/pyrs))/pyrs))/sum(std.pop)] # myös oikea tulos
-
- ci0 <- rate(data = ci, obs = 'obs', pyrs = 'pyrs', print = NULL, adjust = 'agegroup', weights = list(agegroup = c(2773,2556,1113,184)))
- testthat::expect_equal(ci0[,SE.rate.adj], a2, tolerance=0.0005) # test
- testthat::expect_equal(ci0[,rate.adj],a1)
-
- # another...
- ci <-data.table(agegroup = c(1,2,3,4),
- obs=c(4,13,8,7),
- pyrs=c(960,2370,1050,320),
- rate=c(4.2,5.5,7.6,21.9),
- std.pop=c(2773,2556,1113,184))
-
- a1 <- ci[,sum(obs/pyrs*std.pop)/sum(std.pop)] # oikea estimaatti
- a2 <- ci[,sqrt(sum(std.pop^2*((obs/pyrs)*(1-obs/pyrs))/pyrs))/sum(std.pop)] # myös oikea tulos
-
- ci0 <- rate(data = ci, obs = 'obs', pyrs = 'pyrs', print = NULL, adjust = 'agegroup', weights = list(agegroup = c(2773,2556,1113,184)))
- testthat::expect_equal(c(ci0$rate.adj.lo, ci0$rate.adj.hi),c(a1 - a2*1.96, a1 + a2*1.96), tolerance = 0.0006)
- testthat::expect_gt(ci0[,SE.rate.adj], a2) # WHYY?!
- testthat::expect_equal(ci0[,rate.adj],a1) # ok
-})
-
-testthat::test_that("makeWeightsDT works in rate", {
- set.seed(5)
- p18 <- data.table( OBS=round(runif(36)*10), PYRS=round(runif(36)*10000), AGEGROUP=1:18, COV = rep(c(1,2), each = 18))
- op <- c('OBS', 'PYRS')
- mw1 <- makeWeightsDT(p18, adjust = substitute(factor(AGEGROUP, 1:18, 1:18)), weights = wv, print = NULL, values = list(op))
- mw2 <- makeWeightsDT(p18, adjust = NULL, weights = NULL, print = substitute(COV), values = list(op))
-
- attlist <- attr( mw1, 'makeWeightsDT')
-
- testthat::expect_equal(c(attlist$adVars, attlist$vaVars, 'weights'), c('factor','OBS','PYRS','weights') )
-
- testthat::expect_equal(mw1[,as.character(factor)], as.character(1:18))
- testthat::expect_equal(mw2[,OBS], p18[,sum(OBS), by=COV][,V1])
-})
-
-
-testthat::test_that("names dont cause problems", {
- w1 <- rate(data = p18b, obs = 'obs', pyrs = 'pyrs', print = 'COV', adjust = 'agegroup', weights = 'nordic')
- w2 <- rate(data = p18b, obs = 'obs', pyrs = 'pyrs', print = 'COV', adjust = 'agegroup', weights = 'cohort')
- w3 <- rate(data = p18b, obs = obs, pyrs = pyrs, print = COV, adjust = agegroup, weights = 'cohort')
- w5 <- rate(data = p18b, obs = 'obs', pyrs = 'pyrs', print = 'COV', adjust = 'agegroup', weights = 'world_1966_18of5')
- w6 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = 'AGEGROUP', weights = 'world_2000_20of5')
- w7a <- rate(data = p20, obs = OBS, pyrs = 'PYRS', print = 'COV', adjust = 'AGEGROUP', weights = 'world_2000_20of5')
- w7b <- rate(data = p20, obs = OBS, pyrs = PYRS, print = 'COV', adjust = 'AGEGROUP', weights = 'world_2000_20of5')
-
- wr <- p18b[,list(obs=sum(obs),pyrs =sum(pyrs)), by ='COV']
-
- testthat::expect_equal(w2$obs, w1$obs)
- testthat::expect_equal(w2$pyrs, w1$pyrs)
- testthat::expect_equal(wr$obs, w1$obs)
- testthat::expect_equal(wr$pyrs, w1$pyrs)
- testthat::expect_equal(w2, w3, check.attributes = FALSE)
-})
-
-
-testthat::test_that("rate works with different weights an subset", {
- s0 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = NULL, adjust = 'AGEGROUP', weights = c(1:18))
- s0 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = NULL, adjust = 'AGEGROUP', weights = c(1:18), subset = COV==1)
- s1 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = 'AGEGROUP', weights = c(1:18), subset = COV==1)
- s2 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = 'AGEGROUP', weights = 'world_2000_20of5', subset = COV == 2)
- s3 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = 'AGEGROUP', weights = 'cohort', subset = COV==1)
- s4 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = NULL, weights = NULL, subset = AGEGROUP != 1)
- s5 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = NULL, adjust = NULL, weights = NULL, subset = COV == 1)
-
-
- testthat::expect_equal(sum(s1$PYRS), p18[COV==1,sum(PYRS)])
- testthat::expect_equal(sum(s2$OBS), p20[COV==2,sum(OBS)])
- testthat::expect_equal(sum(s3$OBS), p20[COV==1,sum(OBS)])
- testthat::expect_equal(s4$rate, p20[AGEGROUP!= 1,list(sum(OBS)/sum(PYRS)), by ='COV'][, V1])
- testthat::expect_equal(s5$rate, p20[COV==1,list(sum(OBS)/sum(PYRS))][, V1])
- testthat::expect_is(s3, 'rate')
-})
-
-testthat::test_that("rate works with different weights and syntaxies", {
-
-
- wv <- c(.1,.1,.1,.2,.2,.2,.2,.3,.3,.4,.5,.5,.5,.4,.4,.3,.2,.1)
-
- s0 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = NULL, adjust = NULL)
- s1 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', adjust = factor(AGEGROUP, 1:18, 1:18), weights = c(.1,.1,.1,.2,.2,.2,.2,.3,.3,.4,.5,.5,.5,.4,.4,.3,.2,.1))
- s2 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', adjust = factor(AGEGROUP, 1:18, 1:18), weights = wv)
- #s3 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', adjust = factor(AGEGROUP, 1:18, 1:18), weights = NULL) ???
- testthat::expect_is(s1, 'rate')
-
- testthat::expect_equal(sum(s1$PYRS), p18[,sum(PYRS)])
- testthat::expect_equal(sum(s2$OBS), p18[,sum(OBS)])
- #expect_equal(sum(s3$OBS), p18[,sum(OBS)])
-
-
- # non working syntaxes
- testthat::expect_error(
- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = NULL, adjust = 'AGEGROUP', weights = list(1:18))
- ) # non named list
- testthat::expect_error(
- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', adjust = factor(AGEGROUP, 1:18, 1:18), weights = list(c(.1,.1,.1,.2,.2,.2,.2,.3,.3,.4,.5,.5,.5,.4,.4,.3,.2,.1)))
- )
- testthat::expect_error(
- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', adjust = list(factor(AGEGROUP, 1:18, 1:18), COV), weights = list( wv, c(0.5,0.5)))
- ) # a list length of 2
- testthat::expect_error(
- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = c('AGEGROUP','COV'), weights = list(COV = c(.5,.5), AGEGROUP = 1:18))
- ) # duplicated names
-
- # working
- s10 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS',
- adjust = list(agegr = factor(AGEGROUP, 1:18, 1:18)),
- weights = list(agegr = c(.1,.1,.1,.2,.2,.2,.2,.3,.3,.4,.5,.5,.5,.4,.4,.3,.2,.1)))
-
- s11 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS',
- adjust = list(agegr = factor(AGEGROUP, 1:18, 1:18), gender = factor(COV, 1:2, 1:2)),
- weights = list(agegr = c(.1,.1,.1,.2,.2,.2,.2,.3,.3,.4,.5,.5,.5,.4,.4,.3,.2,.1), gender = c(1,1)))
-
- s12 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS',
- adjust = list(agegr = factor(AGEGROUP, 1:18, 1:18)),
- weights = list(agegr = wv))
-
-
- s13 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = NULL, adjust = 'AGEGROUP', weights = list(AGEGROUP = 1:18))
- s14a <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = NULL, adjust = c('AGEGROUP','COV'), weights = list(AGEGROUP = 1:18, COV = c(.5,.5))) # SAMA1
- s14b <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = NULL, adjust = c('AGEGROUP','COV'), weights = list(COV = c(.5,.5), AGEGROUP = 1:18)) # SAMA1
-
- s16a <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = 'AGEGROUP', weights = 'world_2000_20of5') #
- s16b <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = list(AGEGROUP), weights = 'world_2000_20of5') #
- s16c <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = AGEGROUP, weights = 'world_2000_20of5') #
-
-
-
- # Works
- s21 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = 'AGEGROUP', weights = (1:18), subset = COV==1)
- s22 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = 'AGEGROUP', weights = 'world_2000_20of5', subset = COV == 2)
- s23 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = NULL, weights = NULL, subset = AGEGROUP != 1)
- s24 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = NULL, adjust = NULL, weights = NULL, subset = COV == 1)
-
- ## internal weights
- s23a <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = 'AGEGROUP', weights = 'internal')
- s23b <- rate(data = p20, obs = 'OBS', pyrs = PYRS, print = 'COV', adjust = 'AGEGROUP', weights = 'internal')
- s23c <- rate(data = p20, obs = OBS, pyrs = PYRS, print = COV, adjust = AGEGROUP, weights = 'internal')
- s24a <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', adjust = list(AGEGROUP, COV), weights = "internal")
- s24b <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', adjust = c('AGEGROUP', 'COV'), weights = "internal")
-
- ## update and getCall
- s2B <- update(s0, adjust = factor(AGEGROUP, 1:18, 1:18), weights = wv)
- testthat::expect_equal(data.table(s2B), data.table(s2))
-
-})
-
-
-testthat::test_that("in rate levels of adjust are printable", {
- w1 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = list(COV, AG=findInterval(AGEGROUP, c(0,8,20))), adjust ='AGEGROUP', weights = 'cohort')
- w2 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = list(COV, ag=findInterval(AGEGROUP, c(1,8,20))), adjust ='AGEGROUP', weights = 'world_2000_20of5')
- testthat::expect_equal(w1[,.N] ,4)
-})
-
-testthat::test_that("rate.plot doesnt throw an error", {
- w1 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = list(COV, AG=findInterval(AGEGROUP, c(0,8,20))), adjust ='AGEGROUP', weights = 'cohort')
- w2 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = list(COV), adjust ='AGEGROUP', weights = 'world_2000_20of5')
- w3 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS')
- testthat::expect_silent(plot(w1))
- testthat::expect_silent(plot(w2, col = 4:5, conf.int = FALSE))
- testthat::expect_silent(plot(w3, eps = 0.01))
-})
-
-
-testthat::test_that("rate works with missing values", {
- p18c <- copy(p18)
- p18c[c(1,6), PYRS := NA]
- testthat::expect_warning( rate(data = p18c, obs = 'OBS', pyrs = 'PYRS', adjust = 'AGEGROUP', weights = 1:18), "Data contains 2 NA values." )
-})
-
-testthat::test_that("rate standard error and CIS works", {
- se <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', adjust = 'AGEGROUP', weights = 1:18)
-
- testthat::expect_equal(se[, SE.rate.adj] , se[, SE.rate], tolerance = 0.00002)
- testthat::expect_lt(se[, rate.adj.lo], se[, rate.adj])
- testthat::expect_lt(se[, rate.adj], se[, rate.adj.hi])
- testthat::expect_lt(se[, rate.lo], se[, rate])
- testthat::expect_lt(se[, rate], se[, rate.hi])
- testthat::expect_equal(se[, sqrt(OBS/PYRS^2)], se[, SE.rate])
- testthat::expect_equal( se[, rate.adj - SE.rate.adj*2], se[,rate.adj.lo], tolerance = 0.00002)
- testthat::expect_equal( se[, rate.adj + SE.rate.adj*2], se[,rate.adj.hi], tolerance = 0.00002)
-})
-
-
-
-testthat::test_that("rate_ratio works", {
-
- w1 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = 'AGEGROUP', weights = c(1:18))
- w2 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = 'AGEGROUP', weights = 'world_2000_20of5')
- w3 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = 'COV')
- cru <- round((88/109818)/(78/110421),3)
-
-
- # rate obj, one line
- testthat::expect_equal( rate_ratio( w1[1], w1[2], crude = FALSE, SE.method = FALSE),
- rate_ratio( w1[1], w1[2], crude = TRUE, SE.method = FALSE)) # oikein, crude ignoorattu
- testthat::expect_equal( rate_ratio( w1[1], w1[2], crude = FALSE, SE.method = TRUE)$rate_ratio,
- round(w1[1, rate.adj]/ w1[2, rate.adj],3))
-
- testthat::expect_equal( rate_ratio( w1[1], w1[2], crude = TRUE, SE.method = TRUE),
- data.frame(rate_ratio = 1.134, lower=1.087, upper=1.182))
-
- # rate obj crude
- suppressMessages(
- testthat::expect_equal( rate_ratio( w3[1], w3[2], crude = TRUE, SE.method = TRUE), # oikein, hiljaa
- rate_ratio( w3[1], w3[2], crude = FALSE, SE.method = TRUE)) # oikein, message
- )
- # rate + SE
- x <- c(w1[1, rate], w1[1, SE.rate])
- y <- c(w1[2, rate], w1[2, SE.rate])
-
- testthat::expect_error( rate_ratio( x, y, crude = FALSE, SE.method = FALSE) ) # error, käyttäjän vastuu?
- testthat::expect_error( rate_ratio( x, y, crude = TRUE, SE.method = FALSE) ) # error, käyttäjän vastuu?
- testthat::expect_equal( rate_ratio( x, y, crude = FALSE, SE.method = TRUE),
- rate_ratio( x, y, crude = TRUE, SE.method = TRUE))
-
- # Obs + Pyrs
- testthat::expect_warning( rate_ratio( c(88,78), c(109818,110421), crude = FALSE, SE.method = TRUE) ) # oikein, message
- a <- rate_ratio( c(88,78), c(109818,110421), crude = TRUE, SE.method = FALSE)$rate_ratio
- testthat::expect_equal(a, (c(88,78)/c(109818,110421))[1]/(c(88,78)/c(109818,110421))[2], tolerance = 0.001 )
-
- # multi row rate objects
- a0 <- rate_ratio( w1, w2, crude = FALSE, SE.method = TRUE)
- b0 <- rate_ratio( w1[1], w2[1], crude = FALSE, SE.method = TRUE)
- c0 <- rate_ratio( w1[2], w2[2], crude = FALSE, SE.method = TRUE)
-
- testthat::expect_equal(a0[1,], b0)
- testthat::expect_equal(c(a0[2,]), c(c0))
-
- #rate_ratio( w1, w2[1], crude = FALSE, SE.method = TRUE) # väärä, pitäisi tulla data.frame
- #rate_ratio( w1, c(0.0005,0.00002), crude = FALSE, SE.method = TRUE) # väärä, pitäisi tulla data.frame
-
-})
-
-
-testthat::test_that("warnings and stops works properly", {
- testthat::expect_error(
- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = 'AGEGROUP', weights = list(1:18, 2:19))
- )
- testthat::expect_error( stdr.weights(c('wold00_1','world66_5')) )
- testthat::expect_error( stdr.weights(c('wold00_20of5')) )
-})
-
-
-
-testthat::test_that("stdr.weights returns correct datasets", {
- al <- c('world_1966_18of5','europe','nordic',
- "world_2000_18of5","world_2000_101of1",
- "world_2000_20of5")
- le <- c(18,18,18,18,101,20)
- testthat::expect_equal( stdr.weights(al[1])[,.N], le[1])
- testthat::expect_equal( stdr.weights(al[2])[,.N], le[2])
- testthat::expect_equal( stdr.weights(al[3])[,.N], le[3])
- testthat::expect_equal( stdr.weights(al[4])[,.N], le[4])
- testthat::expect_equal( stdr.weights(al[5])[,.N], le[5])
- testthat::expect_equal( stdr.weights(al[6])[,.N], le[6])
-})
-
+testthat::context('rate')
+
+# simultate test data
+set.seed(5)
+p18 <- data.table( OBS=round(runif(36)*10), PYRS=round(runif(36)*10000), AGEGROUP=1:18, COV = rep(c(1,2), each = 18))
+set.seed(5)
+p20 <- data.table( OBS=round(runif(20)*10), PYRS=round(runif(20)*10000), AGEGROUP=1:20, COV = rep(c(1,2), each = 20))
+set.seed(5)
+p101 <- data.table( OBS=round(runif(101)*10), PYRS=round(runif(101)*10000), AGEGROUP=1:101, COV = rep(c(1,2), each = 101))
+p18b <- data.table(p18)
+setnames(p18b, c('OBS','PYRS','AGEGROUP'), c('obs','pyrs','agegroup'))
+wv <- c(.1,.1,.1,.2,.2,.2,.2,.3,.3,.4,.5,.5,.5,.4,.4,.3,.2,.1)
+
+
+testthat::test_that("rate works with different weights", {
+ w1 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = 'AGEGROUP', weights = c(1:18))
+ w2 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = 'AGEGROUP', weights = 'world_2000_20of5')
+ w3 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = 'AGEGROUP', weights = 'cohort')
+ w4 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = NULL, weights = NULL)
+ w5 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = NULL, adjust = NULL, weights = NULL)
+
+ testthat::expect_equal(sum(w1$PYRS), p18[,sum(PYRS)])
+ testthat::expect_equal(sum(w2$OBS), p20[,sum(OBS)])
+ testthat::expect_equal(sum(w3$OBS), p20[,sum(OBS)])
+ testthat::expect_equal(w4$rate, p20[,list(sum(OBS)/sum(PYRS)), by ='COV'][, V1])
+ testthat::expect_equal(w5$rate, p20[,list(sum(OBS)/sum(PYRS))][, V1])
+ testthat::expect_is(w1, 'rate')
+ testthat::expect_is(w2, 'rate')
+ testthat::expect_is(w2, 'data.frame')
+ if(getOption("popEpi.datatable")) {
+ testthat::expect_is(w2, 'data.table')
+ }
+})
+
+testthat::test_that("rate CIs and SEs are correct", {
+
+ ci <-data.table(agegroup = c(1,2,3,4),
+ obs=c(4,13,8,7),
+ pyrs=c(96,237,105,32),
+ rate=c(4.2,5.5,7.6,21.9),
+ std.pop=c(2773,2556,1113,184))
+
+ a1 <- ci[,sum(obs/pyrs*std.pop)/sum(std.pop)] # oikea estimaatti
+ a2 <- ci[,sqrt(sum(std.pop^2*((obs/pyrs)*(1-obs/pyrs))/pyrs))/sum(std.pop)] # myös oikea tulos
+
+ ci0 <- rate(data = ci, obs = 'obs', pyrs = 'pyrs', print = NULL, adjust = 'agegroup', weights = list(agegroup = c(2773,2556,1113,184)))
+ testthat::expect_equal(ci0[,SE.rate.adj], a2, tolerance=0.0005) # test
+ testthat::expect_equal(ci0[,rate.adj],a1)
+
+ # another...
+ ci <-data.table(agegroup = c(1,2,3,4),
+ obs=c(4,13,8,7),
+ pyrs=c(960,2370,1050,320),
+ rate=c(4.2,5.5,7.6,21.9),
+ std.pop=c(2773,2556,1113,184))
+
+ a1 <- ci[,sum(obs/pyrs*std.pop)/sum(std.pop)] # oikea estimaatti
+ a2 <- ci[,sqrt(sum(std.pop^2*((obs/pyrs)*(1-obs/pyrs))/pyrs))/sum(std.pop)] # myös oikea tulos
+
+ ci0 <- rate(data = ci, obs = 'obs', pyrs = 'pyrs', print = NULL, adjust = 'agegroup', weights = list(agegroup = c(2773,2556,1113,184)))
+ testthat::expect_equal(c(ci0$rate.adj.lo, ci0$rate.adj.hi),c(a1 - a2*1.96, a1 + a2*1.96), tolerance = 0.0006)
+ testthat::expect_gt(ci0[,SE.rate.adj], a2) # WHYY?!
+ testthat::expect_equal(ci0[,rate.adj],a1) # ok
+})
+
+testthat::test_that("makeWeightsDT works in rate", {
+ set.seed(5)
+ p18 <- data.table( OBS=round(runif(36)*10), PYRS=round(runif(36)*10000), AGEGROUP=1:18, COV = rep(c(1,2), each = 18))
+ op <- c('OBS', 'PYRS')
+ mw1 <- makeWeightsDT(p18, adjust = substitute(factor(AGEGROUP, 1:18, 1:18)), weights = wv, print = NULL, values = list(op))
+ mw2 <- makeWeightsDT(p18, adjust = NULL, weights = NULL, print = substitute(COV), values = list(op))
+
+ attlist <- attr( mw1, 'makeWeightsDT')
+
+ testthat::expect_equal(c(attlist$adVars, attlist$vaVars, 'weights'), c('factor','OBS','PYRS','weights') )
+
+ testthat::expect_equal(mw1[,as.character(factor)], as.character(1:18))
+ testthat::expect_equal(mw2[,OBS], p18[,sum(OBS), by=COV][,V1])
+})
+
+
+testthat::test_that("names dont cause problems", {
+ w1 <- rate(data = p18b, obs = 'obs', pyrs = 'pyrs', print = 'COV', adjust = 'agegroup', weights = 'nordic')
+ w2 <- rate(data = p18b, obs = 'obs', pyrs = 'pyrs', print = 'COV', adjust = 'agegroup', weights = 'cohort')
+ w3 <- rate(data = p18b, obs = obs, pyrs = pyrs, print = COV, adjust = agegroup, weights = 'cohort')
+ w5 <- rate(data = p18b, obs = 'obs', pyrs = 'pyrs', print = 'COV', adjust = 'agegroup', weights = 'world_1966_18of5')
+ w6 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = 'AGEGROUP', weights = 'world_2000_20of5')
+ w7a <- rate(data = p20, obs = OBS, pyrs = 'PYRS', print = 'COV', adjust = 'AGEGROUP', weights = 'world_2000_20of5')
+ w7b <- rate(data = p20, obs = OBS, pyrs = PYRS, print = 'COV', adjust = 'AGEGROUP', weights = 'world_2000_20of5')
+
+ wr <- p18b[,list(obs=sum(obs),pyrs =sum(pyrs)), by ='COV']
+
+ testthat::expect_equal(w2$obs, w1$obs)
+ testthat::expect_equal(w2$pyrs, w1$pyrs)
+ testthat::expect_equal(wr$obs, w1$obs)
+ testthat::expect_equal(wr$pyrs, w1$pyrs)
+ testthat::expect_equal(w2, w3, check.attributes = FALSE)
+})
+
+
+testthat::test_that("rate works with different weights an subset", {
+ s0 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = NULL, adjust = 'AGEGROUP', weights = c(1:18))
+ s0 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = NULL, adjust = 'AGEGROUP', weights = c(1:18), subset = COV==1)
+ s1 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = 'AGEGROUP', weights = c(1:18), subset = COV==1)
+ s2 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = 'AGEGROUP', weights = 'world_2000_20of5', subset = COV == 2)
+ s3 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = 'AGEGROUP', weights = 'cohort', subset = COV==1)
+ s4 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = NULL, weights = NULL, subset = AGEGROUP != 1)
+ s5 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = NULL, adjust = NULL, weights = NULL, subset = COV == 1)
+
+
+ testthat::expect_equal(sum(s1$PYRS), p18[COV==1,sum(PYRS)])
+ testthat::expect_equal(sum(s2$OBS), p20[COV==2,sum(OBS)])
+ testthat::expect_equal(sum(s3$OBS), p20[COV==1,sum(OBS)])
+ testthat::expect_equal(s4$rate, p20[AGEGROUP!= 1,list(sum(OBS)/sum(PYRS)), by ='COV'][, V1])
+ testthat::expect_equal(s5$rate, p20[COV==1,list(sum(OBS)/sum(PYRS))][, V1])
+ testthat::expect_is(s3, 'rate')
+})
+
+testthat::test_that("rate works with different weights and syntaxies", {
+
+
+ wv <- c(.1,.1,.1,.2,.2,.2,.2,.3,.3,.4,.5,.5,.5,.4,.4,.3,.2,.1)
+
+ s0 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = NULL, adjust = NULL)
+ s1 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', adjust = factor(AGEGROUP, 1:18, 1:18), weights = c(.1,.1,.1,.2,.2,.2,.2,.3,.3,.4,.5,.5,.5,.4,.4,.3,.2,.1))
+ s2 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', adjust = factor(AGEGROUP, 1:18, 1:18), weights = wv)
+ #s3 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', adjust = factor(AGEGROUP, 1:18, 1:18), weights = NULL) ???
+ testthat::expect_is(s1, 'rate')
+
+ testthat::expect_equal(sum(s1$PYRS), p18[,sum(PYRS)])
+ testthat::expect_equal(sum(s2$OBS), p18[,sum(OBS)])
+ #expect_equal(sum(s3$OBS), p18[,sum(OBS)])
+
+
+ # non working syntaxes
+ testthat::expect_error(
+ rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = NULL, adjust = 'AGEGROUP', weights = list(1:18))
+ ) # non named list
+ testthat::expect_error(
+ rate(data = p18, obs = 'OBS', pyrs = 'PYRS', adjust = factor(AGEGROUP, 1:18, 1:18), weights = list(c(.1,.1,.1,.2,.2,.2,.2,.3,.3,.4,.5,.5,.5,.4,.4,.3,.2,.1)))
+ )
+ testthat::expect_error(
+ rate(data = p18, obs = 'OBS', pyrs = 'PYRS', adjust = list(factor(AGEGROUP, 1:18, 1:18), COV), weights = list( wv, c(0.5,0.5)))
+ ) # a list length of 2
+ testthat::expect_error(
+ rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = c('AGEGROUP','COV'), weights = list(COV = c(.5,.5), AGEGROUP = 1:18))
+ ) # duplicated names
+
+ # working
+ s10 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS',
+ adjust = list(agegr = factor(AGEGROUP, 1:18, 1:18)),
+ weights = list(agegr = c(.1,.1,.1,.2,.2,.2,.2,.3,.3,.4,.5,.5,.5,.4,.4,.3,.2,.1)))
+
+ s11 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS',
+ adjust = list(agegr = factor(AGEGROUP, 1:18, 1:18), gender = factor(COV, 1:2, 1:2)),
+ weights = list(agegr = c(.1,.1,.1,.2,.2,.2,.2,.3,.3,.4,.5,.5,.5,.4,.4,.3,.2,.1), gender = c(1,1)))
+
+ s12 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS',
+ adjust = list(agegr = factor(AGEGROUP, 1:18, 1:18)),
+ weights = list(agegr = wv))
+
+
+ s13 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = NULL, adjust = 'AGEGROUP', weights = list(AGEGROUP = 1:18))
+ s14a <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = NULL, adjust = c('AGEGROUP','COV'), weights = list(AGEGROUP = 1:18, COV = c(.5,.5))) # SAMA1
+ s14b <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = NULL, adjust = c('AGEGROUP','COV'), weights = list(COV = c(.5,.5), AGEGROUP = 1:18)) # SAMA1
+
+ s16a <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = 'AGEGROUP', weights = 'world_2000_20of5') #
+ s16b <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = list(AGEGROUP), weights = 'world_2000_20of5') #
+ s16c <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = AGEGROUP, weights = 'world_2000_20of5') #
+
+
+
+ # Works
+ s21 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = 'AGEGROUP', weights = (1:18), subset = COV==1)
+ s22 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = 'AGEGROUP', weights = 'world_2000_20of5', subset = COV == 2)
+ s23 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = NULL, weights = NULL, subset = AGEGROUP != 1)
+ s24 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = NULL, adjust = NULL, weights = NULL, subset = COV == 1)
+
+ ## internal weights
+ s23a <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = 'AGEGROUP', weights = 'internal')
+ s23b <- rate(data = p20, obs = 'OBS', pyrs = PYRS, print = 'COV', adjust = 'AGEGROUP', weights = 'internal')
+ s23c <- rate(data = p20, obs = OBS, pyrs = PYRS, print = COV, adjust = AGEGROUP, weights = 'internal')
+ s24a <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', adjust = list(AGEGROUP, COV), weights = "internal")
+ s24b <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', adjust = c('AGEGROUP', 'COV'), weights = "internal")
+
+ ## update and getCall
+ s2B <- update(s0, adjust = factor(AGEGROUP, 1:18, 1:18), weights = wv)
+ testthat::expect_equal(data.table(s2B), data.table(s2))
+
+})
+
+
+testthat::test_that("in rate levels of adjust are printable", {
+ w1 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = list(COV, AG=findInterval(AGEGROUP, c(0,8,20))), adjust ='AGEGROUP', weights = 'cohort')
+ w2 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = list(COV, ag=findInterval(AGEGROUP, c(1,8,20))), adjust ='AGEGROUP', weights = 'world_2000_20of5')
+ testthat::expect_equal(w1[,.N] ,4)
+})
+
+testthat::test_that("rate.plot doesnt throw an error", {
+ w1 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = list(COV, AG=findInterval(AGEGROUP, c(0,8,20))), adjust ='AGEGROUP', weights = 'cohort')
+ w2 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = list(COV), adjust ='AGEGROUP', weights = 'world_2000_20of5')
+ w3 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS')
+ testthat::expect_silent(plot(w1))
+ testthat::expect_silent(plot(w2, col = 4:5, conf.int = FALSE))
+ testthat::expect_silent(plot(w3, eps = 0.01))
+})
+
+
+testthat::test_that("rate works with missing values", {
+ p18c <- copy(p18)
+ p18c[c(1,6), PYRS := NA]
+ testthat::expect_warning( rate(data = p18c, obs = 'OBS', pyrs = 'PYRS', adjust = 'AGEGROUP', weights = 1:18), "Data contains 2 NA values." )
+})
+
+testthat::test_that("rate standard error and CIS works", {
+ se <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', adjust = 'AGEGROUP', weights = 1:18)
+
+ testthat::expect_equal(se[, SE.rate.adj] , se[, SE.rate], tolerance = 0.00002)
+ testthat::expect_lt(se[, rate.adj.lo], se[, rate.adj])
+ testthat::expect_lt(se[, rate.adj], se[, rate.adj.hi])
+ testthat::expect_lt(se[, rate.lo], se[, rate])
+ testthat::expect_lt(se[, rate], se[, rate.hi])
+ testthat::expect_equal(se[, sqrt(OBS/PYRS^2)], se[, SE.rate])
+ testthat::expect_equal( se[, rate.adj - SE.rate.adj*2], se[,rate.adj.lo], tolerance = 0.00002)
+ testthat::expect_equal( se[, rate.adj + SE.rate.adj*2], se[,rate.adj.hi], tolerance = 0.00002)
+})
+
+
+
+testthat::test_that("rate_ratio works", {
+
+ w1 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = 'AGEGROUP', weights = c(1:18))
+ w2 <- rate(data = p20, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = 'AGEGROUP', weights = 'world_2000_20of5')
+ w3 <- rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = 'COV')
+ cru <- round((88/109818)/(78/110421),3)
+
+
+ # rate obj, one line
+ testthat::expect_equal( rate_ratio( w1[1], w1[2], crude = FALSE, SE.method = FALSE),
+ rate_ratio( w1[1], w1[2], crude = TRUE, SE.method = FALSE)) # oikein, crude ignoorattu
+ testthat::expect_equal( rate_ratio( w1[1], w1[2], crude = FALSE, SE.method = TRUE)$rate_ratio,
+ round(w1[1, rate.adj]/ w1[2, rate.adj],3))
+
+ testthat::expect_equal( rate_ratio( w1[1], w1[2], crude = TRUE, SE.method = TRUE),
+ data.frame(rate_ratio = 1.134, lower=1.087, upper=1.182))
+
+ # rate obj crude
+ suppressMessages(
+ testthat::expect_equal( rate_ratio( w3[1], w3[2], crude = TRUE, SE.method = TRUE), # oikein, hiljaa
+ rate_ratio( w3[1], w3[2], crude = FALSE, SE.method = TRUE)) # oikein, message
+ )
+ # rate + SE
+ x <- c(w1[1, rate], w1[1, SE.rate])
+ y <- c(w1[2, rate], w1[2, SE.rate])
+
+ testthat::expect_error( rate_ratio( x, y, crude = FALSE, SE.method = FALSE) ) # error, käyttäjän vastuu?
+ testthat::expect_error( rate_ratio( x, y, crude = TRUE, SE.method = FALSE) ) # error, käyttäjän vastuu?
+ testthat::expect_equal( rate_ratio( x, y, crude = FALSE, SE.method = TRUE),
+ rate_ratio( x, y, crude = TRUE, SE.method = TRUE))
+
+ # Obs + Pyrs
+ testthat::expect_warning( rate_ratio( c(88,78), c(109818,110421), crude = FALSE, SE.method = TRUE) ) # oikein, message
+ a <- rate_ratio( c(88,78), c(109818,110421), crude = TRUE, SE.method = FALSE)$rate_ratio
+ testthat::expect_equal(a, (c(88,78)/c(109818,110421))[1]/(c(88,78)/c(109818,110421))[2], tolerance = 0.001 )
+
+ # multi row rate objects
+ a0 <- rate_ratio( w1, w2, crude = FALSE, SE.method = TRUE)
+ b0 <- rate_ratio( w1[1], w2[1], crude = FALSE, SE.method = TRUE)
+ c0 <- rate_ratio( w1[2], w2[2], crude = FALSE, SE.method = TRUE)
+
+ testthat::expect_equal(a0[1,], b0)
+ testthat::expect_equal(c(a0[2,]), c(c0))
+
+ #rate_ratio( w1, w2[1], crude = FALSE, SE.method = TRUE) # väärä, pitäisi tulla data.frame
+ #rate_ratio( w1, c(0.0005,0.00002), crude = FALSE, SE.method = TRUE) # väärä, pitäisi tulla data.frame
+
+})
+
+
+testthat::test_that("warnings and stops works properly", {
+ testthat::expect_error(
+ rate(data = p18, obs = 'OBS', pyrs = 'PYRS', print = 'COV', adjust = 'AGEGROUP', weights = list(1:18, 2:19))
+ )
+ testthat::expect_error( stdr.weights(c('wold00_1','world66_5')) )
+ testthat::expect_error( stdr.weights(c('wold00_20of5')) )
+})
+
+
+
+testthat::test_that("stdr.weights returns correct datasets", {
+ al <- c('world_1966_18of5','europe','nordic',
+ "world_2000_18of5","world_2000_101of1",
+ "world_2000_20of5")
+ le <- c(18,18,18,18,101,20)
+ testthat::expect_equal( stdr.weights(al[1])[,.N], le[1])
+ testthat::expect_equal( stdr.weights(al[2])[,.N], le[2])
+ testthat::expect_equal( stdr.weights(al[3])[,.N], le[3])
+ testthat::expect_equal( stdr.weights(al[4])[,.N], le[4])
+ testthat::expect_equal( stdr.weights(al[5])[,.N], le[5])
+ testthat::expect_equal( stdr.weights(al[6])[,.N], le[6])
+})
+
diff --git a/tests/testthat/test_relpois_mean_curve.R b/tests/testthat/test_relpois_mean_curve.R
index c7fe07d..405a236 100644
--- a/tests/testthat/test_relpois_mean_curve.R
+++ b/tests/testthat/test_relpois_mean_curve.R
@@ -1,68 +1,68 @@
-testthat::context("test rpcurve vs. survtab congruence")
-
-testthat::test_that("rpcurve and survtab e2 are approximately congruent", {
- popEpi:::skip_normally()
-
- sire2 <- popEpi::sire[dg_date < ex_date, ]
- sire2[, "agegr" := cut(dg_age, breaks = c(0,45,70,Inf))]
-
- fb <- c(0,3/12,6/12,1:8,10)
- x <- lexpand(sire2, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status %in% 1:2,
- fot=fb, pophaz=data.table(popEpi::popmort))
- data.table::setDT(x)
- data.table::setattr(x, "class", c("Lexis", "data.table", "data.frame"))
- rp <- relpois(x, formula = lex.Xst %in% 1:2 ~ -1 + FOT+agegr)
- mc <- rpcurve(rp)
-
- x[, pop.haz := NULL]
- pm <- data.table(popEpi::popmort)
- setnames(pm, c("year", "agegroup"), c("per", "age"))
- w <- as.numeric(table(x$agegr))
- st <- survtab(Surv(fot, lex.Xst) ~ adjust(agegr),
- pophaz = pm, weights = w,
- relsurv.method = "e2",
- data= x, breaks = list(fot = seq(0, 10, 1/12)))
- setDT(mc)
- setDT(st)
-
- testthat::expect_equal(st[Tstop %in% fb]$r.e2.as, mc$est, tolerance=0.0136, scale=1L)
-
- ## added old results on 2016-03-19,
- ## ref = 4feb1ca37489737332cebf33d24550a9951a7630
- old_res <- c(0.9253749, 0.8801775, 0.8123319, 0.7237591, 0.6679470,
- 0.6315218, 0.6035761, 0.5826368, 0.5645760, 0.5519045, 0.5368186)
-
- testthat::expect_equal(old_res, mc$est, tolerance=1e-5, scale=1L)
-})
-
-
-
-# comparison with flexsurv; maybe not needed ----------------------------------
-# library(flexsurv)
-# sire2 <- lexpand(sire2, fot=c(0, 10), status)
-# sire2[, year := year(ex_date)]
-# sire2[, agegroup := as.integer(as.integer(ex_date-bi_date)/365.25)]
-# sire2[agegroup > 100, agegroup := 100L]
-#
-# sire2 <- data.table:::merge.data.table(sire2, popmort, all.x=FALSE, all.y=FALSE, by=c("sex","year","agegroup"))
-# sire2[lex.Xst == 0, haz := 0] ## not really needed, nothing changes even when it works
-#
-# ## spline model does not work with bhazard (nothing changes)
-# fl <- flexsurvspline(Surv(lex.dur, lex.Xst %in% 1:2) ~ agegr, data=sire2, k = 2, bhazard=sire2$haz)
-# ## this works
-# fl <- flexsurvreg(Surv(lex.dur, lex.Xst %in% 1:2) ~ agegr, data=sire2, dist="gengamma", bhazard=sire2$haz)
-# su <- summary.flexsurvreg(fl, newdata = sire2, ci = FALSE, t = fb, B = 0)
-# su <- rbindlist(su)
-# su <- su[, list(netsurv = mean(est)), by=time]
-#
-# plot(netsurv~time, data=su, type="l")
-# lines(est~Tstop, data=mc, col="red")
-# # lines(lo~Tstop, data=mc, col="red")
-# # lines(hi~Tstop, data=mc, col="red")
-# lines(st, "r.e2.as", col="blue", conf.int=FALSE)
-
-
-
-
-
+testthat::context("test rpcurve vs. survtab congruence")
+
+testthat::test_that("rpcurve and survtab e2 are approximately congruent", {
+ popEpi:::skip_normally()
+
+ sire2 <- popEpi::sire[dg_date < ex_date, ]
+ sire2[, "agegr" := cut(dg_age, breaks = c(0,45,70,Inf))]
+
+ fb <- c(0,3/12,6/12,1:8,10)
+ x <- lexpand(sire2, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status %in% 1:2,
+ fot=fb, pophaz=data.table(popEpi::popmort))
+ data.table::setDT(x)
+ data.table::setattr(x, "class", c("Lexis", "data.table", "data.frame"))
+ rp <- relpois(x, formula = lex.Xst %in% 1:2 ~ -1 + FOT+agegr)
+ mc <- rpcurve(rp)
+
+ x[, pop.haz := NULL]
+ pm <- data.table(popEpi::popmort)
+ setnames(pm, c("year", "agegroup"), c("per", "age"))
+ w <- as.numeric(table(x$agegr))
+ st <- survtab(Surv(fot, lex.Xst) ~ adjust(agegr),
+ pophaz = pm, weights = w,
+ relsurv.method = "e2",
+ data= x, breaks = list(fot = seq(0, 10, 1/12)))
+ setDT(mc)
+ setDT(st)
+
+ testthat::expect_equal(st[Tstop %in% fb]$r.e2.as, mc$est, tolerance=0.0136, scale=1L)
+
+ ## added old results on 2016-03-19,
+ ## ref = 4feb1ca37489737332cebf33d24550a9951a7630
+ old_res <- c(0.9253749, 0.8801775, 0.8123319, 0.7237591, 0.6679470,
+ 0.6315218, 0.6035761, 0.5826368, 0.5645760, 0.5519045, 0.5368186)
+
+ testthat::expect_equal(old_res, mc$est, tolerance=1e-5, scale=1L)
+})
+
+
+
+# comparison with flexsurv; maybe not needed ----------------------------------
+# library(flexsurv)
+# sire2 <- lexpand(sire2, fot=c(0, 10), status)
+# sire2[, year := year(ex_date)]
+# sire2[, agegroup := as.integer(as.integer(ex_date-bi_date)/365.25)]
+# sire2[agegroup > 100, agegroup := 100L]
+#
+# sire2 <- data.table:::merge.data.table(sire2, popmort, all.x=FALSE, all.y=FALSE, by=c("sex","year","agegroup"))
+# sire2[lex.Xst == 0, haz := 0] ## not really needed, nothing changes even when it works
+#
+# ## spline model does not work with bhazard (nothing changes)
+# fl <- flexsurvspline(Surv(lex.dur, lex.Xst %in% 1:2) ~ agegr, data=sire2, k = 2, bhazard=sire2$haz)
+# ## this works
+# fl <- flexsurvreg(Surv(lex.dur, lex.Xst %in% 1:2) ~ agegr, data=sire2, dist="gengamma", bhazard=sire2$haz)
+# su <- summary.flexsurvreg(fl, newdata = sire2, ci = FALSE, t = fb, B = 0)
+# su <- rbindlist(su)
+# su <- su[, list(netsurv = mean(est)), by=time]
+#
+# plot(netsurv~time, data=su, type="l")
+# lines(est~Tstop, data=mc, col="red")
+# # lines(lo~Tstop, data=mc, col="red")
+# # lines(hi~Tstop, data=mc, col="red")
+# lines(st, "r.e2.as", col="blue", conf.int=FALSE)
+
+
+
+
+
diff --git a/tests/testthat/test_sir.R b/tests/testthat/test_sir.R
index 57f2f17..9337a30 100644
--- a/tests/testthat/test_sir.R
+++ b/tests/testthat/test_sir.R
@@ -1,438 +1,438 @@
-testthat::context("SIR")
-
-
-testthat::test_that("SIR w/ coh=ref=popEpi::sire", {
- ## don't skip on CRAN
- sire2 <- copy(popEpi::sire)
- sire2[, agegroup := cut(dg_age, breaks = c(0:17*5, Inf))]
- levels(sire2$agegroup) <- 1:18
- sire2[, ex_y := year(ex_date)]
- sire2[, dur := as.integer(ex_date-dg_date)/365.242199]
- ltre <- ltable(sire2[status != 0], c("ex_y", "agegroup"),
- expr = list(obs=.N, pyrs=sum(dur)))
- setDT(ltre)
- ltre[is.na(pyrs), pyrs := 0]
-
- sibr2 <- copy(popEpi::sibr)
- sibr2[, agegroup := cut(dg_age, breaks = c(0:17*5, Inf))]
- levels(sibr2$agegroup) <- 1:18
- sibr2[, ex_y := year(ex_date)]
- sibr2[, dur := as.integer(ex_date-dg_date)/365.242199]
- ltbr <- ltable(sibr2[status != 0], c("ex_y", "agegroup"),
- expr = list(obs=.N, pyrs=sum(dur)))
- setDT(ltbr)
- ltbr[is.na(pyrs), pyrs := 0]
-
-
-
- sl <- sir(coh.data=ltre, coh.obs="obs", coh.pyrs="pyrs",
- ref.data=ltre, ref.obs="obs", ref.pyrs="pyrs",
- adjust= c("agegroup","ex_y"))
- plot(sl)
- ## SIR w/ coh=ref=popEpi::sire
- ## don't skip on CRAN
- testthat::expect_equal(sl$sir, 1)
- testthat::expect_equal(sl$pyrs, 13783.81, tolerance=0.01)
- testthat::expect_equal(sl$expected, 4595)
- testthat::expect_equal(sl$observed, 4595)
-
-
- sl <- sir(coh.data=ltre, coh.obs="obs", coh.pyrs="pyrs",
- ref.data=ltbr, ref.obs="obs", ref.pyrs="pyrs",
- adjust= c("agegroup","ex_y"))
-
- ## SIR w/ coh=ref=popEpi::sire"
- testthat::expect_equal(sl$sir, 1.39, tolerance=0.01)
- testthat::expect_equal(sl$pyrs, 13783.81, tolerance=0.01)
- testthat::expect_equal(sl$expected, 3305.04, tolerance=0.01)
- testthat::expect_equal(sl$observed, 4595)
-})
-
-
-
-# SIR mstate, subset + lexpand aggre ---------------------------------------
-
-# same model
-c <- lexpand( popEpi::sire[dg_date<ex_date,], status = status, birth = bi_date, exit = ex_date, entry = dg_date,
- breaks = list(per = 1990:2013, age = 0:100, fot = c(0,10,20,Inf)),
- aggre = list(fot, agegroup = age, year = per, sex) )
-# different models
-c2 <- lexpand( popEpi::sire[dg_date<ex_date,], status = status, birth = bi_date, exit = ex_date, entry = dg_date,
- breaks = list(per = 1990:2010, age = 0:100, fot = c(0,10,20,Inf)),
- aggre = list(fot, agegroup = age, year = per, sex) )
-
-
-testthat::test_that("misc things work", {
- ms1 <- sir( coh.data = c, coh.obs = c('from0to1'), coh.pyrs = 'pyrs',
- ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
- adjust = c('agegroup','year','sex'),
- print = list(age.cat = cut(agegroup, c(0,75,120)), per = cut(year, c(1990,2010,2014), dig.lab = 8) ))
- plot(ms1)
-
- # only one print level with no variation
- testthat::expect_message( ms2 <- sir( coh.data = c, coh.obs = c('from0to1'), coh.pyrs = 'pyrs', conf.type= 'profile',
- ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
- adjust = c('agegroup','year','sex'),
- print = list(sex)) )
- testthat::expect_equal(attributes(ms2)$sir.meta$conf.type, 'profile')
-
- # coef and confint ---
- testthat::expect_equal(as.numeric(coef(ms1)), ms1$sir)
- testthat::expect_equal(data.table(confint(ms1)), data.table('2.5 %' = ms1$sir.lo, '97.5 %' = ms1$sir.hi), tolerance = 0.001)
-})
-
-
-testthat::test_that("confidence intervals an other options works", {
-
- # CI's
- ci1 <- sir( coh.data = c, coh.obs = c('from0to1'), coh.pyrs = 'pyrs', conf.type = 'profile',
- ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
- adjust = c('agegroup','year','sex'),
- print = list(FOT = fot, age.cat = cut(agegroup, c(0,75,120)), per = cut(year, c(1990,2010,2014), dig.lab = 8) ))
- testthat::expect_message( ci2 <- sir( coh.data = c, coh.obs = c('from0to1'), coh.pyrs = 'pyrs', conf.type = 'wald',
- ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
- adjust = c('agegroup','year','sex'),
- print = list(FOT = fot, sex, age.cat = cut(agegroup, c(0,75,120)), per = cut(year, c(1990,2010,2014), dig.lab = 8) )))
- ci3 <- sir( coh.data = c, coh.obs = c('from0to1'), coh.pyrs = 'pyrs', conf.type = 'univariate',
- ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
- adjust = c('agegroup','year','sex'),
- print = list(FOT = fot, age.cat = cut(agegroup, c(0,75,120)), per = cut(year, c(1990,2010,2014), dig.lab = 8) ))
-
- testthat::expect_equal(attributes(ci1)$sir.meta$conf.type,'profile')
- testthat::expect_equal(attributes(ci2)$sir.meta$conf.type,'wald')
- testthat::expect_equal(attributes(ci3)$sir.meta$conf.type,'univariate')
-
- testthat::expect_message( sir( coh.data = c, coh.obs = c('from0to1'), coh.pyrs = 'pyrs', conf.type = 'wald',
- ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
- adjust = c('agegroup','year','sex'),
- print = list(sex )))
-
- testthat::expect_message( ci4 <- sir( coh.data = c, coh.obs = c('from0to2'), coh.pyrs = 'pyrs', conf.type = 'profile',
- ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
- adjust = c('agegroup','year','sex'),
- print = list(dg = cut(agegroup, c(0,5,10,20,40,75,120)) )) )
- testthat::expect_equal(attributes(ci4)$sir.meta$conf.type,'wald')
-
-
- testthat::expect_message( ci5 <- sir( coh.data = c, coh.obs = c('from0to2'), coh.pyrs = 'pyrs', conf.type = 'profile',
- ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
- adjust = c('agegroup','year','sex'),
- print = list(sex=sex,FOT = fot,
- age.cat = cut(agegroup, c(0,50,75,120)),
- per = cut(year, c(1990,2010,2014), dig.lab = 8) )) )
- # ear
- ea <- sir( coh.data = c, coh.obs = c('from0to2'), coh.pyrs = 'pyrs', conf.type = 'wald', EAR = TRUE,
- ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
- adjust = c('agegroup','year','sex'), conf.level = 0.95)
- testthat::expect_equal(ea[,EAR], round((1490-1482.13)/39905.92*1000,3))
-
- # Update
- ud1 <- sir( coh.data = c, coh.obs = c('from0to1'), coh.pyrs = 'pyrs', conf.type = 'profile',
- ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
- adjust = c('agegroup','year','sex'),
- print = list(fot))
- ud2 <- update(ud1, print = list(fot, age.cat = cut(agegroup, c(0,75,120))))
-
- ud3 <- sir( coh.data = c, coh.obs = c('from0to1'), coh.pyrs = 'pyrs', conf.type = 'profile',
- ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
- adjust = c('agegroup','year','sex'),
- print = list(fot, age.cat = cut(agegroup, c(0,75,120))))
- testthat::expect_equal(ud2, ud3)
-})
-
-
-testthat::test_that("SIR works with multistate aggregated lexpand data", {
- ## don't skip on CRAN
-
- testthat::expect_warning(
- se <- sir( coh.data = c, coh.obs = c('from0to1','from0to2'), coh.pyrs = 'pyrs',
- subset = year %in% 1990:2009,
- ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
- adjust = c('agegroup','year','sex'), print =c('cause','fot'), mstate = 'cause')
- )
-
- dummy.coh <- data.table(agegroup = 1:18, sex = 1, from0to1 = round(runif(18)),
- from0to2 = round(runif(18)+0.4),
- pyrs = (rnorm(18)+100)*200)
- dummy.ref <- data.table(agegroup = rep(1:18,times=2), sex = 1, obs = floor(runif(36)*100),
- categ2 = rep(c(1,2),each=18),pyrs = (rnorm(36)+100)*2000)
-
- sm <- sir( coh.data = dummy.coh, coh.obs = c('from0to1','from0to2'), coh.pyrs = 'pyrs',
- ref.data = dummy.ref, ref.obs = 'obs', ref.pyrs = 'pyrs', mstate = 'categ2',
- adjust = c('agegroup','sex','categ2'), print =c('categ2'))
-
- setkey(12345)
- dummy.coh2 <- data.table(agegroup = rep(1:18,times=6), sex = rep(1:2, each= 18), obs = floor(runif(18*6)*100), level = rep(1:6,each=18),pyrs = (rnorm(36)+100)*2000)
-
- sg <- sir( coh.data = dummy.coh2, coh.obs = c('obs'), coh.pyrs = 'pyrs',
- adjust = c('agegroup'), print =c('level'))
- testthat::expect_equal(attributes(sg)$sir.meta$pooled[,sir], 1)
- testthat::expect_equal(sg[,.N], 6)
-
-
- s1 <- sir( coh.data = c, coh.obs = c('from0to1'), coh.pyrs = 'pyrs', subset = year %in% 1990:2009,
- ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
- adjust = c('agegroup','year','sex'), print =c('fot'))
-
- s2 <- sir( coh.data = c2, coh.obs = c('from0to2'), coh.pyrs = 'pyrs',
- ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
- adjust = c('agegroup','year','sex'), print =c('fot'))
- s12 <- rbind( cbind(cause=1L, data.table(s1)),
- cbind(cause=2L, data.table(s2)))
-
- # compare by hand calculated sir
-
- r <- merge(c2, data.table(popEpi::popmort), c('sex','agegroup','year'), all.x=TRUE)
- setDT(r)
- r[, exp := haz*pyrs]
- est <- r[, list(observed=sum(from0to1, na.rm=TRUE),expected=sum(exp, na.rm=TRUE)), by=.(fot)]
- est <- round(est,4)
-
- testthat::expect_is(object = se, class = 'sir')
- testthat::expect_equivalent(se, s12)
- setDT(s1)
- testthat::expect_equivalent(s1[,1:3, with=FALSE], est)
-})
-
-
-
-# SIR utils ---------------------------------------------------------------
-
-testthat::test_that('Util functions work', {
- testthat::expect_equal( poisson.ci(5,5)$rate, 1)
- testthat::expect_equal(p.round(0.0000001), "< 0.001")
-})
-
-testthat::test_that("data.table subsettin works", {
-
- ss <- sir( coh.data = c2, coh.obs = c('from0to2'), coh.pyrs = 'pyrs',
- ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
- adjust = c('agegroup','year','sex'), print =c('fot'))
- testthat::expect_equal(ss[1,.N], 1)
- testthat::expect_equal(c(ss[,.(fot)]), list(fot = c(0,10)))
-})
-
-
-
-# sir splines -------------------------------------------------------------
-
-if (requireNamespace("splines")) {
- testthat::test_that("SIR spline throws errors correctly", {
- popEpi:::skip_normally()
-
- sp0 <- suppressWarnings(try(sirspline( coh.data = c, coh.obs = 'from0to2', coh.pyrs = 'pyrs',
- subset = year %in% 1990:2008,
- ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
- adjust = c('agegroup','year','sex'), print = NULL,
- spline=c('agegroup','year','fot') )))
- sp1 <- suppressWarnings(try(sirspline( coh.data = c, coh.obs = c('from0to1','from0to2'), coh.pyrs = 'pyrs',
- subset = year %in% 1990:2008,
- ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
- adjust = c('agegroup','year','sex'), print =c('cause'),
- mstate = 'cause', spline=c('agegroup','year','fot') )))
- sp2 <- suppressWarnings(try(sirspline( coh.data = c, coh.obs = c('from0to1','from0to2'), coh.pyrs = 'pyrs',
- subset = year %in% 1990:2008,
- ref.data = data.table(popEpi::popmort), ref.rate = 'haz', dependent.spline=FALSE,
- adjust = c('agegroup','year','sex'), print =c('cause'),
- mstate = 'cause', spline=c('agegroup','year','fot') )))
- sp3 <- suppressWarnings(try(sirspline( coh.data = c, coh.obs = c('from0to1','from0to2'), coh.pyrs = 'pyrs',
- subset = year %in% 1990:2008,
- ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
- adjust = c('agegroup','year','sex'), print =c('cause'),
- mstate = 'cause', spline='agegroup') ))
-
- sp4 <- suppressWarnings(try(sirspline( coh.data = c, coh.obs = c('from0to1','from0to2'), coh.pyrs = 'pyrs',
- subset = year %in% 1990:2008,
- ref.data = data.table(popEpi::popmort), ref.rate = 'haz', reference.points = c(2000,4),
- adjust = c('agegroup','year','sex'), print =c('cause'),
- mstate = 'cause', spline=c('agegroup','year','fot') )))
- testthat::expect_is( object = sp1, class = 'sirspline')
- testthat::expect_is( object = sp2, class = 'sirspline')
- testthat::expect_is( object = sp3, class = 'sirspline')
- testthat::expect_is( object = sp4, class = 'sirspline')
- })
-}
-
-testthat::test_that("print accepts a function and subset works", {
- popEpi:::skip_normally()
- testthat::expect_warning(
- pl1 <- sir( coh.data = c, coh.obs = c('from0to1','from0to2'), coh.pyrs = 'pyrs',
- subset = year %in% 1990:2008,
- ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
- adjust = c('agegroup','year','sex'), print = list(year.int = findInterval(year,c(1989,2000,2010))),
- mstate = 'cause')
- )
- testthat::expect_warning(
- pl2 <- sir( coh.data = c, coh.obs = c('from0to1','from0to2'), coh.pyrs = 'pyrs',
- subset = year %in% 1990:2008,
- ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
- adjust = c('agegroup','year','sex'), print = list(year.int = findInterval(year,c(1989,2000,2010))),
- mstate = 'cause')
- )
- setDT(pl1)
- testthat::expect_equal( pl1[,year.int], 1:2)
- testthat::expect_is(object=pl2, 'sir')
-})
-
-
-
-testthat::test_that("sir_ratio", {
- ## don't skip on CRAN
- dt1 <- data.table(obs = rep(c(5,7), 10),
- pyrs = rep(c(250,300,350,400), 5),
- var = 1:20)
-
- dt2 <- data.table(obs = rep(c(10,13), 10),
- pyrs = rep(c(250,300,350,400), 5),
- var = 1:20)
-
- Ref <- data.table(obs = rep(c(50,70,80,100), 5),
- pyrs = rep(c(2500,3000,3500,4000), 5),
- var = 1:20)
-
-
- s1 <- sir(coh.data = dt1, coh.obs = obs, coh.pyrs = pyrs,
- ref.data = Ref, ref.obs = obs, ref.pyrs = pyrs,
- adjust = var)
-
-
- s2 <- sir(coh.data = dt2, coh.obs = obs, coh.pyrs = pyrs,
- ref.data = Ref, ref.obs = obs, ref.pyrs = pyrs,
- adjust = var)
-
-
- ## SIR w/ coh=ref=popEpi::sire
- ## don't skip on CRAN
- # Test the example from the book (statistics with confidence):
- testthat::expect_equal( sir_ratio(x = c(64, 45.6), y = c(25,23.7), digits=2)[2:3], c(lower=0.83, upper=2.21))
- # other tests
- testthat::expect_message(sir_ratio(s1, s2, digits = 2, alternative = 'less', conf.level = 0.95, type = 'asymptotic'))
- testthat::expect_equal(sir_ratio(s1, s2), sir_ratio(c(120,150), c(230,150)), tolerance=0.001)
- testthat::expect_equal(sir_ratio(s1, c(230,150)), sir_ratio(c(120,150), s2), tolerance=0.001)
- testthat::expect_equal(sir_ratio(s1, s2)[1], c(sir_ratio =round((120/150)/(230/150),3)), tolerance=0.001)
-})
-
-
-testthat::test_that("sir_exp and sir_ag and sir_lexis are working", {
- ## don't skip on CRAN
- # from0to1 ei oo vakio
-
- BL <- list(fot = 0:5, per = c("2003-01-01","2008-01-01", "2013-01-01"))
- suppressMessages(
- # aggregated with breaks
- x1 <- lexpand(sire, breaks = BL, status = status != 0,
- birth = bi_date, entry = dg_date, exit = ex_date,
- pophaz=popmort,
- aggre=list(sex, period = per, surv.int = fot))
- )
- suppressMessages(
- # no aggreate but breaks
- x2 <- lexpand(sire, breaks = BL, status = status != 0,
- birth = bi_date, entry = dg_date, exit = ex_date,
- pophaz=popmort)
- )
-
- suppressMessages(
- x3 <- lexpand(sire, status = status != 0,
- birth = bi_date, entry = dg_date, exit = ex_date,
- pophaz=popmort)
- )
- suppressMessages(
- x4 <- lexpand(sire, status = status != 0,
- birth = bi_date, entry = bi_date, exit = ex_date,
- pophaz=popmort)
- )
- # library(Epi)
- # # no aggreate but breaks
- # suppressMessages(
- # x5 <- Lexis(entry = list(FUT = 0, AGE = 0, CAL = get.yrs(bi_date)),
- # exit = list(CAL = get.yrs(ex_date)),
- # data = sire[sire$dg_date < sire$ex_date, ],
- # exit.status = factor(status, levels = 0:2,
- # labels = c("alive", "canD", "othD")),
- # merge = TRUE)
- # )
-
-
-
- # AGGRE
- testthat::expect_message( a1 <- sir_ag(x1, obs = 'from0to1', conf.type = 'profile') )
- testthat::expect_message( a0 <- sir_ag(x1, obs = from0to1, conf.type = 'profile') )
- a0 <- sir_ag(x1, obs = 'from0to1', print = list(period))
- a0 <- sir_ag(x1, obs = 'from0to1', print = list(per=period))
- testthat::expect_message( a0 <- sir_ag(x1, obs = from0to1, exp = d.exp, pyrs = pyrs) )
- a0 <- sir_ag(x1, obs = from0to1, exp = d.exp, pyrs = pyrs, print = period)
-
- testthat::expect_message(a2 <- sir_ag(x1, print = attr(x, "aggre.meta")$by))
- testthat::expect_message(a3 <- sir_ag(x1))
- testthat::expect_equal(data.table(a2),data.table(a3))
-
-
- a4 <- sir_ag(x1, obs = 'from0to1', print = surv.int)
- a4b <- sir_ag(x1, obs = 'from0to1', print = c('surv.int','period'))
- a5 <- sir_ag(x1, obs = 'from0to1', print = list(surv.int,period))
- a6 <- sir_ag(x1, obs = 'from0to1', print = c('period','surv.int'))
- setcolorder(a5, c(2,1,3:9))
- setkey(a5, period)
- setkey(a6, period)
- testthat::expect_equal(data.table(a5)[order(period, surv.int)], data.table(a6)[order(period, surv.int)])
- testthat::expect_error(sir_ag(x2, print = NULL))
-
- # UPDATE
- a4c <- update(a4, print = c('surv.int','period')) # update to l2
- testthat::expect_equal(a4c,a4b)
-
-
- # LEXIS
- testthat::expect_error(sir_lex(x1))
- l1 <- sir_lex(x2, print = attr(x, "aggre.meta")$by)
- l2 <- sir_lex(x2, print = 'per')
- l2 <- sir_lex(x2, print = per)
- l3 <- sir_lex(x2, print = NULL)
- testthat::expect_equal(l3[,.N], 1)
-
- l1 <- sir_lex(x2, print = NULL)
- l2 <- sir_lex(x2, print = 'per')
- l2 <- sir_lex(x2, print = per)
- l3 <- sir_lex(x2, print = NULL)
-
-
- # breaks...
- BL1 <- list(fot = 0:5, per = c(2003,2008,2013))
- b1 <- sir_lex(x3, breaks = BL1, print = c('fot','per'))
- BL <- list(fot = 0:5, per = c('2003-01-01','2008-01-01','2013-01-01'), age = c(0,75,100))
- b3 <- sir_lex(x3, breaks = BL, print = c('fot','per','age'))
- testthat::expect_equal(b3[,.N], 24)
-
- BL2 <- list(fot = 0:5, age = c(0,50,70,100))
- b3 <- sir_lex(x2, breaks = BL2, print = c('fot','age')) # already split data
- testthat::expect_equal(b3[,.N], 15)
-
- # Character date
- BL <- list(fot = 0:5, per = c("2003-01-01","2008-01-01", "2013-01-01"))
- b5 <- sir_lex(x3, breaks = BL, print = c('fot','per'))
- BL <- list(fot = 0:5, per = c(2002.999, 2007.999, 2013.001))
- b6 <- sir_lex(x3, breaks = BL, print = c('fot','per'))
- testthat::expect_equal(data.table(b5), data.table(b6), tolerance = 0.001)
-
- # EXPECTED
- # without pyrs;
- e0 <- sir_exp(x1, obs = "from0to1", exp = "d.exp", pyrs = , print = period)
- e1 <- sir_exp(x1, obs = "from0to1", exp = "d.exp", pyrs = "pyrs", print = period)
- e1 <- sir_exp(x1, obs = from0to1, exp = d.exp, pyrs = pyrs, print = period)
- e2 <- sir_exp(x2, obs = "lex.Xst", exp = list(exp = pop.haz*lex.dur), pyrs = "lex.dur",
- print = list(period = cut(per, c(2003,2008, 2013), right = FALSE)))
- e1 <- data.table(e1)
- e2 <- data.table(e2)
- testthat::expect_equal(e1[,.(pyrs, sir, sir.lo, sir.hi, p_value)], e2[,.(pyrs, sir, sir.lo, sir.hi, p_value)])
-
- # WARNINGS (when missing pop.haz)
- testthat::expect_error( f1 <- sir_lex(x4) )
- testthat::expect_error( f1 <- sir_exp(x4, obs ='lex.Xst', exp = list(exp = lex.dur*pop.haz), pyrs ='lex.dur') )
-
- # SIR_RATIO
- testthat::expect_equal(sir_ratio(a2, a3)[1], c(sir_ratio = 1))
- plot(a2)
- plot(a4)
-})
-
+testthat::context("SIR")
+
+
+testthat::test_that("SIR w/ coh=ref=popEpi::sire", {
+ ## don't skip on CRAN
+ sire2 <- copy(popEpi::sire)
+ sire2[, agegroup := cut(dg_age, breaks = c(0:17*5, Inf))]
+ levels(sire2$agegroup) <- 1:18
+ sire2[, ex_y := year(ex_date)]
+ sire2[, dur := as.integer(ex_date-dg_date)/365.242199]
+ ltre <- ltable(sire2[status != 0], c("ex_y", "agegroup"),
+ expr = list(obs=.N, pyrs=sum(dur)))
+ setDT(ltre)
+ ltre[is.na(pyrs), pyrs := 0]
+
+ sibr2 <- copy(popEpi::sibr)
+ sibr2[, agegroup := cut(dg_age, breaks = c(0:17*5, Inf))]
+ levels(sibr2$agegroup) <- 1:18
+ sibr2[, ex_y := year(ex_date)]
+ sibr2[, dur := as.integer(ex_date-dg_date)/365.242199]
+ ltbr <- ltable(sibr2[status != 0], c("ex_y", "agegroup"),
+ expr = list(obs=.N, pyrs=sum(dur)))
+ setDT(ltbr)
+ ltbr[is.na(pyrs), pyrs := 0]
+
+
+
+ sl <- sir(coh.data=ltre, coh.obs="obs", coh.pyrs="pyrs",
+ ref.data=ltre, ref.obs="obs", ref.pyrs="pyrs",
+ adjust= c("agegroup","ex_y"))
+ plot(sl)
+ ## SIR w/ coh=ref=popEpi::sire
+ ## don't skip on CRAN
+ testthat::expect_equal(sl$sir, 1)
+ testthat::expect_equal(sl$pyrs, 13783.81, tolerance=0.01)
+ testthat::expect_equal(sl$expected, 4595)
+ testthat::expect_equal(sl$observed, 4595)
+
+
+ sl <- sir(coh.data=ltre, coh.obs="obs", coh.pyrs="pyrs",
+ ref.data=ltbr, ref.obs="obs", ref.pyrs="pyrs",
+ adjust= c("agegroup","ex_y"))
+
+ ## SIR w/ coh=ref=popEpi::sire"
+ testthat::expect_equal(sl$sir, 1.39, tolerance=0.01)
+ testthat::expect_equal(sl$pyrs, 13783.81, tolerance=0.01)
+ testthat::expect_equal(sl$expected, 3305.04, tolerance=0.01)
+ testthat::expect_equal(sl$observed, 4595)
+})
+
+
+
+# SIR mstate, subset + lexpand aggre ---------------------------------------
+
+# same model
+c <- lexpand( popEpi::sire[dg_date<ex_date,], status = status, birth = bi_date, exit = ex_date, entry = dg_date,
+ breaks = list(per = 1990:2013, age = 0:100, fot = c(0,10,20,Inf)),
+ aggre = list(fot, agegroup = age, year = per, sex) )
+# different models
+c2 <- lexpand( popEpi::sire[dg_date<ex_date,], status = status, birth = bi_date, exit = ex_date, entry = dg_date,
+ breaks = list(per = 1990:2010, age = 0:100, fot = c(0,10,20,Inf)),
+ aggre = list(fot, agegroup = age, year = per, sex) )
+
+
+testthat::test_that("misc things work", {
+ ms1 <- sir( coh.data = c, coh.obs = c('from0to1'), coh.pyrs = 'pyrs',
+ ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'),
+ print = list(age.cat = cut(agegroup, c(0,75,120)), per = cut(year, c(1990,2010,2014), dig.lab = 8) ))
+ plot(ms1)
+
+ # only one print level with no variation
+ testthat::expect_message( ms2 <- sir( coh.data = c, coh.obs = c('from0to1'), coh.pyrs = 'pyrs', conf.type= 'profile',
+ ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'),
+ print = list(sex)) )
+ testthat::expect_equal(attributes(ms2)$sir.meta$conf.type, 'profile')
+
+ # coef and confint ---
+ testthat::expect_equal(as.numeric(coef(ms1)), ms1$sir)
+ testthat::expect_equal(data.table(confint(ms1)), data.table('2.5 %' = ms1$sir.lo, '97.5 %' = ms1$sir.hi), tolerance = 0.001)
+})
+
+
+testthat::test_that("confidence intervals an other options works", {
+
+ # CI's
+ ci1 <- sir( coh.data = c, coh.obs = c('from0to1'), coh.pyrs = 'pyrs', conf.type = 'profile',
+ ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'),
+ print = list(FOT = fot, age.cat = cut(agegroup, c(0,75,120)), per = cut(year, c(1990,2010,2014), dig.lab = 8) ))
+ testthat::expect_message( ci2 <- sir( coh.data = c, coh.obs = c('from0to1'), coh.pyrs = 'pyrs', conf.type = 'wald',
+ ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'),
+ print = list(FOT = fot, sex, age.cat = cut(agegroup, c(0,75,120)), per = cut(year, c(1990,2010,2014), dig.lab = 8) )))
+ ci3 <- sir( coh.data = c, coh.obs = c('from0to1'), coh.pyrs = 'pyrs', conf.type = 'univariate',
+ ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'),
+ print = list(FOT = fot, age.cat = cut(agegroup, c(0,75,120)), per = cut(year, c(1990,2010,2014), dig.lab = 8) ))
+
+ testthat::expect_equal(attributes(ci1)$sir.meta$conf.type,'profile')
+ testthat::expect_equal(attributes(ci2)$sir.meta$conf.type,'wald')
+ testthat::expect_equal(attributes(ci3)$sir.meta$conf.type,'univariate')
+
+ testthat::expect_message( sir( coh.data = c, coh.obs = c('from0to1'), coh.pyrs = 'pyrs', conf.type = 'wald',
+ ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'),
+ print = list(sex )))
+
+ testthat::expect_message( ci4 <- sir( coh.data = c, coh.obs = c('from0to2'), coh.pyrs = 'pyrs', conf.type = 'profile',
+ ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'),
+ print = list(dg = cut(agegroup, c(0,5,10,20,40,75,120)) )) )
+ testthat::expect_equal(attributes(ci4)$sir.meta$conf.type,'wald')
+
+
+ testthat::expect_message( ci5 <- sir( coh.data = c, coh.obs = c('from0to2'), coh.pyrs = 'pyrs', conf.type = 'profile',
+ ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'),
+ print = list(sex=sex,FOT = fot,
+ age.cat = cut(agegroup, c(0,50,75,120)),
+ per = cut(year, c(1990,2010,2014), dig.lab = 8) )) )
+ # ear
+ ea <- sir( coh.data = c, coh.obs = c('from0to2'), coh.pyrs = 'pyrs', conf.type = 'wald', EAR = TRUE,
+ ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'), conf.level = 0.95)
+ testthat::expect_equal(ea[,EAR], round((1490-1482.13)/39905.92*1000,3))
+
+ # Update
+ ud1 <- sir( coh.data = c, coh.obs = c('from0to1'), coh.pyrs = 'pyrs', conf.type = 'profile',
+ ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'),
+ print = list(fot))
+ ud2 <- update(ud1, print = list(fot, age.cat = cut(agegroup, c(0,75,120))))
+
+ ud3 <- sir( coh.data = c, coh.obs = c('from0to1'), coh.pyrs = 'pyrs', conf.type = 'profile',
+ ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'),
+ print = list(fot, age.cat = cut(agegroup, c(0,75,120))))
+ testthat::expect_equal(ud2, ud3)
+})
+
+
+testthat::test_that("SIR works with multistate aggregated lexpand data", {
+ ## don't skip on CRAN
+
+ testthat::expect_warning(
+ se <- sir( coh.data = c, coh.obs = c('from0to1','from0to2'), coh.pyrs = 'pyrs',
+ subset = year %in% 1990:2009,
+ ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'), print =c('cause','fot'), mstate = 'cause')
+ )
+
+ dummy.coh <- data.table(agegroup = 1:18, sex = 1, from0to1 = round(runif(18)),
+ from0to2 = round(runif(18)+0.4),
+ pyrs = (rnorm(18)+100)*200)
+ dummy.ref <- data.table(agegroup = rep(1:18,times=2), sex = 1, obs = floor(runif(36)*100),
+ categ2 = rep(c(1,2),each=18),pyrs = (rnorm(36)+100)*2000)
+
+ sm <- sir( coh.data = dummy.coh, coh.obs = c('from0to1','from0to2'), coh.pyrs = 'pyrs',
+ ref.data = dummy.ref, ref.obs = 'obs', ref.pyrs = 'pyrs', mstate = 'categ2',
+ adjust = c('agegroup','sex','categ2'), print =c('categ2'))
+
+ setkey(12345)
+ dummy.coh2 <- data.table(agegroup = rep(1:18,times=6), sex = rep(1:2, each= 18), obs = floor(runif(18*6)*100), level = rep(1:6,each=18),pyrs = (rnorm(36)+100)*2000)
+
+ sg <- sir( coh.data = dummy.coh2, coh.obs = c('obs'), coh.pyrs = 'pyrs',
+ adjust = c('agegroup'), print =c('level'))
+ testthat::expect_equal(attributes(sg)$sir.meta$pooled[,sir], 1)
+ testthat::expect_equal(sg[,.N], 6)
+
+
+ s1 <- sir( coh.data = c, coh.obs = c('from0to1'), coh.pyrs = 'pyrs', subset = year %in% 1990:2009,
+ ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'), print =c('fot'))
+
+ s2 <- sir( coh.data = c2, coh.obs = c('from0to2'), coh.pyrs = 'pyrs',
+ ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'), print =c('fot'))
+ s12 <- rbind( cbind(cause=1L, data.table(s1)),
+ cbind(cause=2L, data.table(s2)))
+
+ # compare by hand calculated sir
+
+ r <- merge(c2, data.table(popEpi::popmort), c('sex','agegroup','year'), all.x=TRUE)
+ setDT(r)
+ r[, exp := haz*pyrs]
+ est <- r[, list(observed=sum(from0to1, na.rm=TRUE),expected=sum(exp, na.rm=TRUE)), by=.(fot)]
+ est <- round(est,4)
+
+ testthat::expect_is(object = se, class = 'sir')
+ testthat::expect_equivalent(se, s12)
+ setDT(s1)
+ testthat::expect_equivalent(s1[,1:3, with=FALSE], est)
+})
+
+
+
+# SIR utils ---------------------------------------------------------------
+
+testthat::test_that('Util functions work', {
+ testthat::expect_equal( poisson.ci(5,5)$rate, 1)
+ testthat::expect_equal(p.round(0.0000001), "< 0.001")
+})
+
+testthat::test_that("data.table subsettin works", {
+
+ ss <- sir( coh.data = c2, coh.obs = c('from0to2'), coh.pyrs = 'pyrs',
+ ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'), print =c('fot'))
+ testthat::expect_equal(ss[1,.N], 1)
+ testthat::expect_equal(c(ss[,.(fot)]), list(fot = c(0,10)))
+})
+
+
+
+# sir splines -------------------------------------------------------------
+
+if (requireNamespace("splines")) {
+ testthat::test_that("SIR spline throws errors correctly", {
+ popEpi:::skip_normally()
+
+ sp0 <- suppressWarnings(try(sirspline( coh.data = c, coh.obs = 'from0to2', coh.pyrs = 'pyrs',
+ subset = year %in% 1990:2008,
+ ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'), print = NULL,
+ spline=c('agegroup','year','fot') )))
+ sp1 <- suppressWarnings(try(sirspline( coh.data = c, coh.obs = c('from0to1','from0to2'), coh.pyrs = 'pyrs',
+ subset = year %in% 1990:2008,
+ ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'), print =c('cause'),
+ mstate = 'cause', spline=c('agegroup','year','fot') )))
+ sp2 <- suppressWarnings(try(sirspline( coh.data = c, coh.obs = c('from0to1','from0to2'), coh.pyrs = 'pyrs',
+ subset = year %in% 1990:2008,
+ ref.data = data.table(popEpi::popmort), ref.rate = 'haz', dependent.spline=FALSE,
+ adjust = c('agegroup','year','sex'), print =c('cause'),
+ mstate = 'cause', spline=c('agegroup','year','fot') )))
+ sp3 <- suppressWarnings(try(sirspline( coh.data = c, coh.obs = c('from0to1','from0to2'), coh.pyrs = 'pyrs',
+ subset = year %in% 1990:2008,
+ ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'), print =c('cause'),
+ mstate = 'cause', spline='agegroup') ))
+
+ sp4 <- suppressWarnings(try(sirspline( coh.data = c, coh.obs = c('from0to1','from0to2'), coh.pyrs = 'pyrs',
+ subset = year %in% 1990:2008,
+ ref.data = data.table(popEpi::popmort), ref.rate = 'haz', reference.points = c(2000,4),
+ adjust = c('agegroup','year','sex'), print =c('cause'),
+ mstate = 'cause', spline=c('agegroup','year','fot') )))
+ testthat::expect_is( object = sp1, class = 'sirspline')
+ testthat::expect_is( object = sp2, class = 'sirspline')
+ testthat::expect_is( object = sp3, class = 'sirspline')
+ testthat::expect_is( object = sp4, class = 'sirspline')
+ })
+}
+
+testthat::test_that("print accepts a function and subset works", {
+ popEpi:::skip_normally()
+ testthat::expect_warning(
+ pl1 <- sir( coh.data = c, coh.obs = c('from0to1','from0to2'), coh.pyrs = 'pyrs',
+ subset = year %in% 1990:2008,
+ ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'), print = list(year.int = findInterval(year,c(1989,2000,2010))),
+ mstate = 'cause')
+ )
+ testthat::expect_warning(
+ pl2 <- sir( coh.data = c, coh.obs = c('from0to1','from0to2'), coh.pyrs = 'pyrs',
+ subset = year %in% 1990:2008,
+ ref.data = data.table(popEpi::popmort), ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'), print = list(year.int = findInterval(year,c(1989,2000,2010))),
+ mstate = 'cause')
+ )
+ setDT(pl1)
+ testthat::expect_equal( pl1[,year.int], 1:2)
+ testthat::expect_is(object=pl2, 'sir')
+})
+
+
+
+testthat::test_that("sir_ratio", {
+ ## don't skip on CRAN
+ dt1 <- data.table(obs = rep(c(5,7), 10),
+ pyrs = rep(c(250,300,350,400), 5),
+ var = 1:20)
+
+ dt2 <- data.table(obs = rep(c(10,13), 10),
+ pyrs = rep(c(250,300,350,400), 5),
+ var = 1:20)
+
+ Ref <- data.table(obs = rep(c(50,70,80,100), 5),
+ pyrs = rep(c(2500,3000,3500,4000), 5),
+ var = 1:20)
+
+
+ s1 <- sir(coh.data = dt1, coh.obs = obs, coh.pyrs = pyrs,
+ ref.data = Ref, ref.obs = obs, ref.pyrs = pyrs,
+ adjust = var)
+
+
+ s2 <- sir(coh.data = dt2, coh.obs = obs, coh.pyrs = pyrs,
+ ref.data = Ref, ref.obs = obs, ref.pyrs = pyrs,
+ adjust = var)
+
+
+ ## SIR w/ coh=ref=popEpi::sire
+ ## don't skip on CRAN
+ # Test the example from the book (statistics with confidence):
+ testthat::expect_equal( sir_ratio(x = c(64, 45.6), y = c(25,23.7), digits=2)[2:3], c(lower=0.83, upper=2.21))
+ # other tests
+ testthat::expect_message(sir_ratio(s1, s2, digits = 2, alternative = 'less', conf.level = 0.95, type = 'asymptotic'))
+ testthat::expect_equal(sir_ratio(s1, s2), sir_ratio(c(120,150), c(230,150)), tolerance=0.001)
+ testthat::expect_equal(sir_ratio(s1, c(230,150)), sir_ratio(c(120,150), s2), tolerance=0.001)
+ testthat::expect_equal(sir_ratio(s1, s2)[1], c(sir_ratio =round((120/150)/(230/150),3)), tolerance=0.001)
+})
+
+
+testthat::test_that("sir_exp and sir_ag and sir_lexis are working", {
+ ## don't skip on CRAN
+ # from0to1 ei oo vakio
+
+ BL <- list(fot = 0:5, per = c("2003-01-01","2008-01-01", "2013-01-01"))
+ suppressMessages(
+ # aggregated with breaks
+ x1 <- lexpand(sire, breaks = BL, status = status != 0,
+ birth = bi_date, entry = dg_date, exit = ex_date,
+ pophaz=popmort,
+ aggre=list(sex, period = per, surv.int = fot))
+ )
+ suppressMessages(
+ # no aggreate but breaks
+ x2 <- lexpand(sire, breaks = BL, status = status != 0,
+ birth = bi_date, entry = dg_date, exit = ex_date,
+ pophaz=popmort)
+ )
+
+ suppressMessages(
+ x3 <- lexpand(sire, status = status != 0,
+ birth = bi_date, entry = dg_date, exit = ex_date,
+ pophaz=popmort)
+ )
+ suppressMessages(
+ x4 <- lexpand(sire, status = status != 0,
+ birth = bi_date, entry = bi_date, exit = ex_date,
+ pophaz=popmort)
+ )
+ # library(Epi)
+ # # no aggreate but breaks
+ # suppressMessages(
+ # x5 <- Lexis(entry = list(FUT = 0, AGE = 0, CAL = get.yrs(bi_date)),
+ # exit = list(CAL = get.yrs(ex_date)),
+ # data = sire[sire$dg_date < sire$ex_date, ],
+ # exit.status = factor(status, levels = 0:2,
+ # labels = c("alive", "canD", "othD")),
+ # merge = TRUE)
+ # )
+
+
+
+ # AGGRE
+ testthat::expect_message( a1 <- sir_ag(x1, obs = 'from0to1', conf.type = 'profile') )
+ testthat::expect_message( a0 <- sir_ag(x1, obs = from0to1, conf.type = 'profile') )
+ a0 <- sir_ag(x1, obs = 'from0to1', print = list(period))
+ a0 <- sir_ag(x1, obs = 'from0to1', print = list(per=period))
+ testthat::expect_message( a0 <- sir_ag(x1, obs = from0to1, exp = d.exp, pyrs = pyrs) )
+ a0 <- sir_ag(x1, obs = from0to1, exp = d.exp, pyrs = pyrs, print = period)
+
+ testthat::expect_message(a2 <- sir_ag(x1, print = attr(x, "aggre.meta")$by))
+ testthat::expect_message(a3 <- sir_ag(x1))
+ testthat::expect_equal(data.table(a2),data.table(a3))
+
+
+ a4 <- sir_ag(x1, obs = 'from0to1', print = surv.int)
+ a4b <- sir_ag(x1, obs = 'from0to1', print = c('surv.int','period'))
+ a5 <- sir_ag(x1, obs = 'from0to1', print = list(surv.int,period))
+ a6 <- sir_ag(x1, obs = 'from0to1', print = c('period','surv.int'))
+ setcolorder(a5, c(2,1,3:9))
+ setkey(a5, period)
+ setkey(a6, period)
+ testthat::expect_equal(data.table(a5)[order(period, surv.int)], data.table(a6)[order(period, surv.int)])
+ testthat::expect_error(sir_ag(x2, print = NULL))
+
+ # UPDATE
+ a4c <- update(a4, print = c('surv.int','period')) # update to l2
+ testthat::expect_equal(a4c,a4b)
+
+
+ # LEXIS
+ testthat::expect_error(sir_lex(x1))
+ l1 <- sir_lex(x2, print = attr(x, "aggre.meta")$by)
+ l2 <- sir_lex(x2, print = 'per')
+ l2 <- sir_lex(x2, print = per)
+ l3 <- sir_lex(x2, print = NULL)
+ testthat::expect_equal(l3[,.N], 1)
+
+ l1 <- sir_lex(x2, print = NULL)
+ l2 <- sir_lex(x2, print = 'per')
+ l2 <- sir_lex(x2, print = per)
+ l3 <- sir_lex(x2, print = NULL)
+
+
+ # breaks...
+ BL1 <- list(fot = 0:5, per = c(2003,2008,2013))
+ b1 <- sir_lex(x3, breaks = BL1, print = c('fot','per'))
+ BL <- list(fot = 0:5, per = c('2003-01-01','2008-01-01','2013-01-01'), age = c(0,75,100))
+ b3 <- sir_lex(x3, breaks = BL, print = c('fot','per','age'))
+ testthat::expect_equal(b3[,.N], 24)
+
+ BL2 <- list(fot = 0:5, age = c(0,50,70,100))
+ b3 <- sir_lex(x2, breaks = BL2, print = c('fot','age')) # already split data
+ testthat::expect_equal(b3[,.N], 15)
+
+ # Character date
+ BL <- list(fot = 0:5, per = c("2003-01-01","2008-01-01", "2013-01-01"))
+ b5 <- sir_lex(x3, breaks = BL, print = c('fot','per'))
+ BL <- list(fot = 0:5, per = c(2002.999, 2007.999, 2013.001))
+ b6 <- sir_lex(x3, breaks = BL, print = c('fot','per'))
+ testthat::expect_equal(data.table(b5), data.table(b6), tolerance = 0.001)
+
+ # EXPECTED
+ # without pyrs;
+ e0 <- sir_exp(x1, obs = "from0to1", exp = "d.exp", pyrs = , print = period)
+ e1 <- sir_exp(x1, obs = "from0to1", exp = "d.exp", pyrs = "pyrs", print = period)
+ e1 <- sir_exp(x1, obs = from0to1, exp = d.exp, pyrs = pyrs, print = period)
+ e2 <- sir_exp(x2, obs = "lex.Xst", exp = list(exp = pop.haz*lex.dur), pyrs = "lex.dur",
+ print = list(period = cut(per, c(2003,2008, 2013), right = FALSE)))
+ e1 <- data.table(e1)
+ e2 <- data.table(e2)
+ testthat::expect_equal(e1[,.(pyrs, sir, sir.lo, sir.hi, p_value)], e2[,.(pyrs, sir, sir.lo, sir.hi, p_value)])
+
+ # WARNINGS (when missing pop.haz)
+ testthat::expect_error( f1 <- sir_lex(x4) )
+ testthat::expect_error( f1 <- sir_exp(x4, obs ='lex.Xst', exp = list(exp = lex.dur*pop.haz), pyrs ='lex.dur') )
+
+ # SIR_RATIO
+ testthat::expect_equal(sir_ratio(a2, a3)[1], c(sir_ratio = 1))
+ plot(a2)
+ plot(a4)
+})
+
diff --git a/tests/testthat/test_splitLexisDT.R b/tests/testthat/test_splitLexisDT.R
index 3b8e5bb..09a7ce3 100644
--- a/tests/testthat/test_splitLexisDT.R
+++ b/tests/testthat/test_splitLexisDT.R
@@ -1,134 +1,134 @@
-testthat::context("Compare splitLexisDT results with splitLexis results")
-
-testthat::test_that("splitLexisDT and splitLexis are congruent", {
- popEpi:::skip_normally()
-
- library(Epi)
-
- sire2 <- data.table::copy(popEpi::sire)
- sire2[, dg_yrs := get.yrs(dg_date, "actual")]
- sire2[, ex_yrs := get.yrs(ex_date, "actual")]
- sire2[, bi_yrs := get.yrs(bi_date, "actual")]
- sire2[, id := 1:.N]
-
- BL <- list(fot = 0:5, fot = 2:6, fot = c(10,Inf), fot = c(0, Inf),
- per = 1990:1995, per = seq(1950,2010,10), per = c(1900, 2100),
- age = seq(0,150,5), age = c(25,100), age = c(0, 60))
-
- x <- Lexis(data=sire2[dg_date < ex_date], entry=list(fot=0, per=dg_yrs, age=dg_age),
- exit=list(per=ex_yrs), merge=TRUE, exit.status=1L, entry.status = 0L)
- setDT(x)
- forceLexisDT(x, breaks = list(fot=NULL,per=NULL,age=NULL),
- allScales = c("fot", "per", "age"))
-
-
- # x2 <- splitLexis(x, breaks = BL[[3]], time.scale = "fot")
- # x3 <- splitLexisDT(x, breaks = BL[[3]], timeScale = "fot", drop = FALSE)
- # x2 <- intelliDrop(setDT(x2), breaks = list(fot = BL[[3]]))
- # x3 <- intelliDrop(x3, breaks = list(fot = BL[[3]]))
- # x4 <- splitLexisDT(x, breaks = BL[[3]], timeScale = "fot", drop = TRUE)
-
-
- # one row per id ---------------------------------------------------------------
-
- testthat::test_that("splitLexisDT and splitLexis congruent with one row per id", {
- testthat::expect_identical(1L, 1L) ## to trigger testing...
- for (sc in seq_along(BL)) {
- testthat::test_that(paste0("results congruent using breaks ", sc), {
- testthat::expect_identical(1L, 1L) ## to trigger testing...
- popEpi:::compareSLDTWithEpi(data = x, breaks = BL[[sc]], timeScale = names(BL)[sc])
- })
- }
- })
-
-
-
- # multiple rows per id ---------------------------------------------------------
-
- sire2 <- sire2[rep(1:.N, each = 2)]
-
-
- x <- Lexis(data=sire2[dg_date < ex_date], entry=list(fot=0, per=dg_yrs, age=dg_age),
- exit=list(per=ex_yrs), merge=TRUE, exit.status=1L, entry.status = 0L, id = id)
-
-
- testthat::test_that("splitLexisDT and splitLexis congruent with multiple rows per id", {
- testthat::expect_identical(1L, 1L) ## to trigger testing...
- for (sc in seq_along(BL)) {
- testthat::test_that(paste0("results congruent using breaks ", sc), {
- testthat::expect_identical(1L, 1L) ## to trigger testing...
- popEpi:::compareSLDTWithEpi(data = x, breaks = BL[[sc]], timeScale = names(BL)[sc])
- })
- }
- })
-
-
- # multistate using Lexis -----------------------------------------------------
-
- sire2[, "EX" := factor(status, levels = 0:2, ordered = TRUE)]
- sire2[, "EN" := factor(0L, levels = 0:2, ordered = TRUE)]
- levels(sire2$EX) <- levels(sire2$EN) <- c("ok", "dead", "dead")
-
- x <- Lexis(data = sire2[dg_date < ex_date & !duplicated(id)],
- entry = list(fot=0, per=bi_yrs, age=0),
- exit = list(per=ex_yrs),
- merge=TRUE,
- exit.status=EX,
- entry.status = EN,
- id = id)
-
- x <- cutLexis(x, cut = x$dg_yrs, timescale = "per", new.state = "sick", precursor.state = "ok")
- setDT(x)
- setattr(x, "class", c("Lexis", "data.table", "data.frame"))
-
- testthat::test_that("splitLexisDT and splitLexis congruent with multiple Lexis states per id", {
- testthat::expect_identical(1L, 1L) ## to trigger testing...
- for (sc in seq_along(BL)) {
- testthat::test_that(paste0("results congruent using breaks ", sc), {
- testthat::expect_identical(1L, 1L) ## to trigger testing...
- popEpi:::compareSLDTWithEpi(data = x, breaks = BL[[sc]], timeScale = names(BL)[sc])
- })
- }
- })
-
- # using mstate package -------------------------------------------------------
- if (requireNamespace("mstate")) {
- testthat::test_that("splitLexisDT and splitLexis congruent using mstate data", {
- testthat::expect_identical(1L, 1L) ## to trigger testing...
- ## taken directly from ?msprep examples
- library(mstate)
- tmat <- trans.illdeath()
- # some data in wide format
- tg <- data.frame(stt=rep(0,6),sts=rep(0,6),
- illt=c(1,1,6,6,8,9),ills=c(1,0,1,1,0,1),
- dt=c(5,1,9,7,8,12),ds=c(1,1,1,1,1,1),
- x1=c(1,1,1,2,2,2),x2=c(6:1))
- tg$x1 <- factor(tg$x1,labels=c("male","female"))
- tg$patid <- factor(2:7,levels=1:8,labels=as.character(1:8))
- # define time, status and covariates also as matrices
- tt <- matrix(c(rep(NA,6),tg$illt,tg$dt),6,3)
- st <- matrix(c(rep(NA,6),tg$ills,tg$ds),6,3)
- keepmat <- data.frame(gender=tg$x1,age=tg$x2)
- # data in long format using msprep
- df <- msprep(time=tt,status=st,trans=tmat,keep=as.matrix(keepmat))
-
- x <- Lexis(data=df, entry=list(TT = Tstart), exit=list(TT = Tstop),
- merge=TRUE, exit.status=to, entry.status = from, id = id)
- setDT(x)
- setattr(x, "class", c("Lexis", "data.table", "data.frame"))
- BL2 <- list(TT = 0:4, TT = 1:2, TT = 0:1, TT = c(1,Inf))
-
- for (sc in seq_along(BL2)) {
- testthat::test_that(paste0("results congruent using breaks ", sc), {
- testthat::expect_identical(1L, 1L) ## to trigger testing...
- popEpi:::compareSLDTWithEpi(data = x, breaks = BL2[[sc]], timeScale = "TT")
- })
- }
- })
- }
-
-})
-
-
-
-
+testthat::context("Compare splitLexisDT results with splitLexis results")
+
+testthat::test_that("splitLexisDT and splitLexis are congruent", {
+ popEpi:::skip_normally()
+
+ library(Epi)
+
+ sire2 <- data.table::copy(popEpi::sire)
+ sire2[, dg_yrs := get.yrs(dg_date, "actual")]
+ sire2[, ex_yrs := get.yrs(ex_date, "actual")]
+ sire2[, bi_yrs := get.yrs(bi_date, "actual")]
+ sire2[, id := 1:.N]
+
+ BL <- list(fot = 0:5, fot = 2:6, fot = c(10,Inf), fot = c(0, Inf),
+ per = 1990:1995, per = seq(1950,2010,10), per = c(1900, 2100),
+ age = seq(0,150,5), age = c(25,100), age = c(0, 60))
+
+ x <- Lexis(data=sire2[dg_date < ex_date], entry=list(fot=0, per=dg_yrs, age=dg_age),
+ exit=list(per=ex_yrs), merge=TRUE, exit.status=1L, entry.status = 0L)
+ setDT(x)
+ forceLexisDT(x, breaks = list(fot=NULL,per=NULL,age=NULL),
+ allScales = c("fot", "per", "age"))
+
+
+ # x2 <- splitLexis(x, breaks = BL[[3]], time.scale = "fot")
+ # x3 <- splitLexisDT(x, breaks = BL[[3]], timeScale = "fot", drop = FALSE)
+ # x2 <- intelliDrop(setDT(x2), breaks = list(fot = BL[[3]]))
+ # x3 <- intelliDrop(x3, breaks = list(fot = BL[[3]]))
+ # x4 <- splitLexisDT(x, breaks = BL[[3]], timeScale = "fot", drop = TRUE)
+
+
+ # one row per id ---------------------------------------------------------------
+
+ testthat::test_that("splitLexisDT and splitLexis congruent with one row per id", {
+ testthat::expect_identical(1L, 1L) ## to trigger testing...
+ for (sc in seq_along(BL)) {
+ testthat::test_that(paste0("results congruent using breaks ", sc), {
+ testthat::expect_identical(1L, 1L) ## to trigger testing...
+ popEpi:::compareSLDTWithEpi(data = x, breaks = BL[[sc]], timeScale = names(BL)[sc])
+ })
+ }
+ })
+
+
+
+ # multiple rows per id ---------------------------------------------------------
+
+ sire2 <- sire2[rep(1:.N, each = 2)]
+
+
+ x <- Lexis(data=sire2[dg_date < ex_date], entry=list(fot=0, per=dg_yrs, age=dg_age),
+ exit=list(per=ex_yrs), merge=TRUE, exit.status=1L, entry.status = 0L, id = id)
+
+
+ testthat::test_that("splitLexisDT and splitLexis congruent with multiple rows per id", {
+ testthat::expect_identical(1L, 1L) ## to trigger testing...
+ for (sc in seq_along(BL)) {
+ testthat::test_that(paste0("results congruent using breaks ", sc), {
+ testthat::expect_identical(1L, 1L) ## to trigger testing...
+ popEpi:::compareSLDTWithEpi(data = x, breaks = BL[[sc]], timeScale = names(BL)[sc])
+ })
+ }
+ })
+
+
+ # multistate using Lexis -----------------------------------------------------
+
+ sire2[, "EX" := factor(status, levels = 0:2, ordered = TRUE)]
+ sire2[, "EN" := factor(0L, levels = 0:2, ordered = TRUE)]
+ levels(sire2$EX) <- levels(sire2$EN) <- c("ok", "dead", "dead")
+
+ x <- Lexis(data = sire2[dg_date < ex_date & !duplicated(id)],
+ entry = list(fot=0, per=bi_yrs, age=0),
+ exit = list(per=ex_yrs),
+ merge=TRUE,
+ exit.status=EX,
+ entry.status = EN,
+ id = id)
+
+ x <- cutLexis(x, cut = x$dg_yrs, timescale = "per", new.state = "sick", precursor.state = "ok")
+ setDT(x)
+ setattr(x, "class", c("Lexis", "data.table", "data.frame"))
+
+ testthat::test_that("splitLexisDT and splitLexis congruent with multiple Lexis states per id", {
+ testthat::expect_identical(1L, 1L) ## to trigger testing...
+ for (sc in seq_along(BL)) {
+ testthat::test_that(paste0("results congruent using breaks ", sc), {
+ testthat::expect_identical(1L, 1L) ## to trigger testing...
+ popEpi:::compareSLDTWithEpi(data = x, breaks = BL[[sc]], timeScale = names(BL)[sc])
+ })
+ }
+ })
+
+ # using mstate package -------------------------------------------------------
+ if (requireNamespace("mstate")) {
+ testthat::test_that("splitLexisDT and splitLexis congruent using mstate data", {
+ testthat::expect_identical(1L, 1L) ## to trigger testing...
+ ## taken directly from ?msprep examples
+ library(mstate)
+ tmat <- trans.illdeath()
+ # some data in wide format
+ tg <- data.frame(stt=rep(0,6),sts=rep(0,6),
+ illt=c(1,1,6,6,8,9),ills=c(1,0,1,1,0,1),
+ dt=c(5,1,9,7,8,12),ds=c(1,1,1,1,1,1),
+ x1=c(1,1,1,2,2,2),x2=c(6:1))
+ tg$x1 <- factor(tg$x1,labels=c("male","female"))
+ tg$patid <- factor(2:7,levels=1:8,labels=as.character(1:8))
+ # define time, status and covariates also as matrices
+ tt <- matrix(c(rep(NA,6),tg$illt,tg$dt),6,3)
+ st <- matrix(c(rep(NA,6),tg$ills,tg$ds),6,3)
+ keepmat <- data.frame(gender=tg$x1,age=tg$x2)
+ # data in long format using msprep
+ df <- msprep(time=tt,status=st,trans=tmat,keep=as.matrix(keepmat))
+
+ x <- Lexis(data=df, entry=list(TT = Tstart), exit=list(TT = Tstop),
+ merge=TRUE, exit.status=to, entry.status = from, id = id)
+ setDT(x)
+ setattr(x, "class", c("Lexis", "data.table", "data.frame"))
+ BL2 <- list(TT = 0:4, TT = 1:2, TT = 0:1, TT = c(1,Inf))
+
+ for (sc in seq_along(BL2)) {
+ testthat::test_that(paste0("results congruent using breaks ", sc), {
+ testthat::expect_identical(1L, 1L) ## to trigger testing...
+ popEpi:::compareSLDTWithEpi(data = x, breaks = BL2[[sc]], timeScale = "TT")
+ })
+ }
+ })
+ }
+
+})
+
+
+
+
diff --git a/tests/testthat/test_splitMulti.R b/tests/testthat/test_splitMulti.R
index 38356f4..5325d61 100644
--- a/tests/testthat/test_splitMulti.R
+++ b/tests/testthat/test_splitMulti.R
@@ -1,145 +1,145 @@
-testthat::context("Compare splitMulti results with splitLexis results")
-
-
-
-
-
-testthat::test_that("splitMulti and splitLexis are congruent", {
- testthat::expect_identical(1L, 1L) ## to trigger testing...
- popEpi:::skip_normally()
- library(Epi)
-
- sire2 <- copy(sire)
- sire2[, dg_yrs := get.yrs(dg_date, "actual")]
- sire2[, ex_yrs := get.yrs(ex_date, "actual")]
- sire2[, bi_yrs := get.yrs(bi_date, "actual")]
- sire2[, id := 1:.N]
-
- BL1 <- list(fot = 0:5, per = 1990:1995, age = c(0, 60, Inf))
-
- BL2 <- list(fot = c(10,Inf), age = seq(0,150,5))
-
- BL3 <- list(fot = c(5, Inf), per = c(1900, 2100), age = c(25,100))
-
- BL4 <- list(fot = 0:10)
-
- BL5 <- list(fot = 5:10)
-
- BL6 <- list(per = 1990:2000, age = c(50,70))
-
-
- BL <- list(BL1, BL2, BL3, BL4, BL5, BL6)
-
- x <- Lexis(data=sire2[dg_date < ex_date], entry=list(fot=0, per=dg_yrs, age=dg_age),
- exit=list(per=ex_yrs), merge=TRUE, exit.status=1L, entry.status = 0L)
- setDT(x)
- setattr(x, "class", c("Lexis", "data.table", "data.frame"))
-
-
- # one row per id ---------------------------------------------------------------
-
- testthat::test_that("splitMulti and splitLexis congruent with one row per id", {
- testthat::expect_identical(1L, 1L) ## to trigger testing...
- for (sc in seq_along(BL)) {
- compareSMWithEpi(x, BL[[sc]])
- }
- })
-
-
-
- # multiple rows per id ---------------------------------------------------------
-
- sire2 <- sire2[rep(1:.N, each = 2)]
-
- x <- Lexis(data=sire2[dg_date < ex_date], entry=list(fot=0, per=dg_yrs, age=dg_age),
- exit=list(per=ex_yrs), merge=TRUE, exit.status=1L, entry.status = 0L, id = id)
- setDT(x)
- setattr(x, "class", c("Lexis", "data.table", "data.frame"))
-
- for (sc in seq_along(BL)) {
- testthat::test_that(paste0("splitLexisDT and splitLexis congruent with multiple rows per id with breaks no. ", sc), {
- testthat::expect_identical(1L, 1L) ## to trigger testing...
- compareSMWithEpi(x, BL[[sc]])
- })
- }
-
- # multistate using Lexis -----------------------------------------------------
-
-
- sire2[, "EX" := factor(status, levels = 0:2, ordered = TRUE)]
- sire2[, "EN" := factor(0L, levels = 0:2, ordered = TRUE)]
- levels(sire2$EX) <- levels(sire2$EN) <- c("ok", "dead", "dead")
-
- x <- Lexis(data=sire2[dg_date < ex_date & !duplicated(id)], entry=list(fot=0, per=bi_yrs, age=0),
- exit=list(per=ex_yrs), merge=TRUE, exit.status=EX, entry.status = EN, id = id)
-
- x <- cutLexis(x, cut = x$dg_yrs, timescale = "per", new.state = "sick", precursor.state = "ok")
- setDT(x)
- setattr(x, "class", c("Lexis", "data.table", "data.frame"))
-
- BL[[1L]] <- NULL ## this would drop all rows in split data
-
- for (sc in seq_along(BL)) {
- testthat::test_that(paste0("splitLexisDT and splitLexis congruent with multiple Lexis states per id using breaks list no. ", sc), {
- testthat::expect_identical(1L, 1L) ## to trigger testing...
- compareSMWithEpi(x, BL[[sc]])
- })
- }
-
-
-})
-
-
-
-
-testthat::test_that("splitMulti agrees with splitLexis, vol. II", {
-
- library("Epi")
-
- data(nickel, package = "Epi")
-
- lex <- Lexis( entry = list(age=agein,
- per=agein+dob),
- exit = list(age=ageout),
- exit.status = factor(icd>0, labels=c("Alive","Dead")),
- entry.status = factor(0, 0:1, labels = c("Alive", "Dead")),
- data = nickel )
-
- set.seed(1337)
- lex$lex.id <- sample(paste0("abcd_", 1:nrow(lex)), size = nrow(lex))
-
- lex_copy <- copy(lex)
-
- BL <- list(
- per = 1920:1990,
- age = 0:100
- )
-
- epi_s1 <- splitLexis(lex, breaks = BL$per, time.scale = "per")
- epi_s2 <- splitLexis(epi_s1, breaks = BL$age, time.scale = "age")
-
- pop_s1 <- splitLexisDT(lex, breaks=BL$per, timeScale="per", drop = FALSE)
- pop_s2 <- splitLexisDT(pop_s1, breaks=BL$age, timeScale="age" , drop = FALSE)
-
- pop_sm <- splitMulti(lex, breaks = BL, drop = FALSE)
-
- testthat::expect_equal(
- setDT(epi_s2), setDT(pop_sm), check.attributes = FALSE
- )
- testthat::expect_equal(
- setDT(epi_s2), setDT(pop_s2), check.attributes = FALSE
- )
- testthat::expect_identical(
- lex, lex_copy
- )
-
-})
-
-
-
-
-
-
-
-
-
+testthat::context("Compare splitMulti results with splitLexis results")
+
+
+
+
+
+testthat::test_that("splitMulti and splitLexis are congruent", {
+ testthat::expect_identical(1L, 1L) ## to trigger testing...
+ popEpi:::skip_normally()
+ library(Epi)
+
+ sire2 <- copy(sire)
+ sire2[, dg_yrs := get.yrs(dg_date, "actual")]
+ sire2[, ex_yrs := get.yrs(ex_date, "actual")]
+ sire2[, bi_yrs := get.yrs(bi_date, "actual")]
+ sire2[, id := 1:.N]
+
+ BL1 <- list(fot = 0:5, per = 1990:1995, age = c(0, 60, Inf))
+
+ BL2 <- list(fot = c(10,Inf), age = seq(0,150,5))
+
+ BL3 <- list(fot = c(5, Inf), per = c(1900, 2100), age = c(25,100))
+
+ BL4 <- list(fot = 0:10)
+
+ BL5 <- list(fot = 5:10)
+
+ BL6 <- list(per = 1990:2000, age = c(50,70))
+
+
+ BL <- list(BL1, BL2, BL3, BL4, BL5, BL6)
+
+ x <- Lexis(data=sire2[dg_date < ex_date], entry=list(fot=0, per=dg_yrs, age=dg_age),
+ exit=list(per=ex_yrs), merge=TRUE, exit.status=1L, entry.status = 0L)
+ setDT(x)
+ setattr(x, "class", c("Lexis", "data.table", "data.frame"))
+
+
+ # one row per id ---------------------------------------------------------------
+
+ testthat::test_that("splitMulti and splitLexis congruent with one row per id", {
+ testthat::expect_identical(1L, 1L) ## to trigger testing...
+ for (sc in seq_along(BL)) {
+ compareSMWithEpi(x, BL[[sc]])
+ }
+ })
+
+
+
+ # multiple rows per id ---------------------------------------------------------
+
+ sire2 <- sire2[rep(1:.N, each = 2)]
+
+ x <- Lexis(data=sire2[dg_date < ex_date], entry=list(fot=0, per=dg_yrs, age=dg_age),
+ exit=list(per=ex_yrs), merge=TRUE, exit.status=1L, entry.status = 0L, id = id)
+ setDT(x)
+ setattr(x, "class", c("Lexis", "data.table", "data.frame"))
+
+ for (sc in seq_along(BL)) {
+ testthat::test_that(paste0("splitLexisDT and splitLexis congruent with multiple rows per id with breaks no. ", sc), {
+ testthat::expect_identical(1L, 1L) ## to trigger testing...
+ compareSMWithEpi(x, BL[[sc]])
+ })
+ }
+
+ # multistate using Lexis -----------------------------------------------------
+
+
+ sire2[, "EX" := factor(status, levels = 0:2, ordered = TRUE)]
+ sire2[, "EN" := factor(0L, levels = 0:2, ordered = TRUE)]
+ levels(sire2$EX) <- levels(sire2$EN) <- c("ok", "dead", "dead")
+
+ x <- Lexis(data=sire2[dg_date < ex_date & !duplicated(id)], entry=list(fot=0, per=bi_yrs, age=0),
+ exit=list(per=ex_yrs), merge=TRUE, exit.status=EX, entry.status = EN, id = id)
+
+ x <- cutLexis(x, cut = x$dg_yrs, timescale = "per", new.state = "sick", precursor.state = "ok")
+ setDT(x)
+ setattr(x, "class", c("Lexis", "data.table", "data.frame"))
+
+ BL[[1L]] <- NULL ## this would drop all rows in split data
+
+ for (sc in seq_along(BL)) {
+ testthat::test_that(paste0("splitLexisDT and splitLexis congruent with multiple Lexis states per id using breaks list no. ", sc), {
+ testthat::expect_identical(1L, 1L) ## to trigger testing...
+ compareSMWithEpi(x, BL[[sc]])
+ })
+ }
+
+
+})
+
+
+
+
+testthat::test_that("splitMulti agrees with splitLexis, vol. II", {
+
+ library("Epi")
+
+ data(nickel, package = "Epi")
+
+ lex <- Lexis( entry = list(age=agein,
+ per=agein+dob),
+ exit = list(age=ageout),
+ exit.status = factor(icd>0, labels=c("Alive","Dead")),
+ entry.status = factor(0, 0:1, labels = c("Alive", "Dead")),
+ data = nickel )
+
+ set.seed(1337)
+ lex$lex.id <- sample(paste0("abcd_", 1:nrow(lex)), size = nrow(lex))
+
+ lex_copy <- copy(lex)
+
+ BL <- list(
+ per = 1920:1990,
+ age = 0:100
+ )
+
+ epi_s1 <- splitLexis(lex, breaks = BL$per, time.scale = "per")
+ epi_s2 <- splitLexis(epi_s1, breaks = BL$age, time.scale = "age")
+
+ pop_s1 <- splitLexisDT(lex, breaks=BL$per, timeScale="per", drop = FALSE)
+ pop_s2 <- splitLexisDT(pop_s1, breaks=BL$age, timeScale="age" , drop = FALSE)
+
+ pop_sm <- splitMulti(lex, breaks = BL, drop = FALSE)
+
+ testthat::expect_equal(
+ setDT(epi_s2), setDT(pop_sm), check.attributes = FALSE
+ )
+ testthat::expect_equal(
+ setDT(epi_s2), setDT(pop_s2), check.attributes = FALSE
+ )
+ testthat::expect_identical(
+ lex, lex_copy
+ )
+
+})
+
+
+
+
+
+
+
+
+
diff --git a/tests/testthat/test_splitting_attributes.R b/tests/testthat/test_splitting_attributes.R
index 7bd4bee..9f7e541 100644
--- a/tests/testthat/test_splitting_attributes.R
+++ b/tests/testthat/test_splitting_attributes.R
@@ -1,93 +1,93 @@
-testthat::context("Attributes of data split by popEpi funs")
-
-
-
-
-
-testthat::test_that("popEpi splitters produce correct attributes", {
-
- library("Epi")
- library("data.table")
-
- sire <- setDT(copy(popEpi::sire))
- sire[, "dg_yrs" := get.yrs(dg_date, "actual")]
- sire[, "ex_yrs" := get.yrs(ex_date, "actual")]
- sire[, "bi_yrs" := get.yrs(bi_date, "actual")]
- sire[, "id" := 1:.N]
-
- sire <- Lexis(
- data = sire[dg_date < ex_date],
- entry = list(fot=0, per=dg_yrs, age=dg_age),
- exit = list(per=ex_yrs),
- merge = TRUE,
- exit.status = 1L, entry.status = 0L
- )
- BL <- list(age = c(0, 50), fot = c(0, 5))
- sm_1 <- splitMulti(sire, breaks = BL["fot"], drop = TRUE)
- sm_1 <- splitMulti(sm_1, breaks = BL["age"], drop = TRUE)
-
- sm_2 <- splitMulti(sire, breaks = BL, drop = TRUE)
-
- sl <- splitLexisDT(sire, breaks = BL$fot, timeScale = "fot", drop = TRUE)
- sl <- splitLexisDT(sl, breaks = BL$age, timeScale = "age", drop = TRUE)
-
- lp <- lexpand(data.table(sire)[, .(bi_yrs, dg_yrs, ex_yrs, status)],
- birth = bi_yrs, entry = dg_yrs, exit = ex_yrs, status = status,
- breaks = BL)
-
- lapply(list(sm_1, sm_2, sl, lp), function(lex) {
- testthat::expect_identical(
- attr(lex, "breaks"),
- list(fot = c(0, 5), per = NULL, age = c(0, 50))
- )
- testthat::expect_identical(
- attr(lex, "time.scales"),
- c("fot", "per", "age")
- )
- })
-
-})
-
-
-
-
-
-testthat::test_that("popEpi splitters retain time.since attribute", {
- ## based on simLexis example from Epi 2.19
- library("Epi")
- library("data.table")
-
- data("DMlate", package = "Epi")
- dml <- Lexis( entry = list(Per=dodm, Age=dodm-dobth, DMdur=0 ),
- exit = list(Per=dox),
- exit.status = factor(!is.na(dodth),labels=c("DM","Dead")),
- data = DMlate[runif(nrow(DMlate))<0.1,] )
- # Split follow-up at insulin, introduce a new timescale,
- # and split non-precursor states
- dmi <- cutLexis( dml, cut = dml$doins,
- pre = "DM",
- new.state = "Ins",
- new.scale = "t.Ins",
- split.states = TRUE )
-
- # Split the follow in 1-year intervals for modelling
- Si <- splitLexis( dmi, 0:30/2, "DMdur" )
-
-
- sldt <- splitLexisDT(dmi, breaks = 0:30/2, timeScale = "DMdur")
- sm <- splitMulti(dmi, breaks = list(DMdur = 0:30/2))
-
- lex_attr_nms <- c("time.since", "breaks", "time.scales")
- testthat::expect_identical(
- attributes(Si)[lex_attr_nms], attributes(sm)[lex_attr_nms]
- )
- testthat::expect_identical(
- attributes(Si)[lex_attr_nms], attributes(sldt)[lex_attr_nms]
- )
-
-})
-
-
-
-
-
+testthat::context("Attributes of data split by popEpi funs")
+
+
+
+
+
+testthat::test_that("popEpi splitters produce correct attributes", {
+
+ library("Epi")
+ library("data.table")
+
+ sire <- setDT(copy(popEpi::sire))
+ sire[, "dg_yrs" := get.yrs(dg_date, "actual")]
+ sire[, "ex_yrs" := get.yrs(ex_date, "actual")]
+ sire[, "bi_yrs" := get.yrs(bi_date, "actual")]
+ sire[, "id" := 1:.N]
+
+ sire <- Lexis(
+ data = sire[dg_date < ex_date],
+ entry = list(fot=0, per=dg_yrs, age=dg_age),
+ exit = list(per=ex_yrs),
+ merge = TRUE,
+ exit.status = 1L, entry.status = 0L
+ )
+ BL <- list(age = c(0, 50), fot = c(0, 5))
+ sm_1 <- splitMulti(sire, breaks = BL["fot"], drop = TRUE)
+ sm_1 <- splitMulti(sm_1, breaks = BL["age"], drop = TRUE)
+
+ sm_2 <- splitMulti(sire, breaks = BL, drop = TRUE)
+
+ sl <- splitLexisDT(sire, breaks = BL$fot, timeScale = "fot", drop = TRUE)
+ sl <- splitLexisDT(sl, breaks = BL$age, timeScale = "age", drop = TRUE)
+
+ lp <- lexpand(data.table(sire)[, .(bi_yrs, dg_yrs, ex_yrs, status)],
+ birth = bi_yrs, entry = dg_yrs, exit = ex_yrs, status = status,
+ breaks = BL)
+
+ lapply(list(sm_1, sm_2, sl, lp), function(lex) {
+ testthat::expect_identical(
+ attr(lex, "breaks"),
+ list(fot = c(0, 5), per = NULL, age = c(0, 50))
+ )
+ testthat::expect_identical(
+ attr(lex, "time.scales"),
+ c("fot", "per", "age")
+ )
+ })
+
+})
+
+
+
+
+
+testthat::test_that("popEpi splitters retain time.since attribute", {
+ ## based on simLexis example from Epi 2.19
+ library("Epi")
+ library("data.table")
+
+ data("DMlate", package = "Epi")
+ dml <- Lexis( entry = list(Per=dodm, Age=dodm-dobth, DMdur=0 ),
+ exit = list(Per=dox),
+ exit.status = factor(!is.na(dodth),labels=c("DM","Dead")),
+ data = DMlate[runif(nrow(DMlate))<0.1,] )
+ # Split follow-up at insulin, introduce a new timescale,
+ # and split non-precursor states
+ dmi <- cutLexis( dml, cut = dml$doins,
+ pre = "DM",
+ new.state = "Ins",
+ new.scale = "t.Ins",
+ split.states = TRUE )
+
+ # Split the follow in 1-year intervals for modelling
+ Si <- splitLexis( dmi, 0:30/2, "DMdur" )
+
+
+ sldt <- splitLexisDT(dmi, breaks = 0:30/2, timeScale = "DMdur")
+ sm <- splitMulti(dmi, breaks = list(DMdur = 0:30/2))
+
+ lex_attr_nms <- c("time.since", "breaks", "time.scales")
+ testthat::expect_identical(
+ attributes(Si)[lex_attr_nms], attributes(sm)[lex_attr_nms]
+ )
+ testthat::expect_identical(
+ attributes(Si)[lex_attr_nms], attributes(sldt)[lex_attr_nms]
+ )
+
+})
+
+
+
+
+
diff --git a/tests/testthat/test_splitting_breaks.R b/tests/testthat/test_splitting_breaks.R
index 7842ff4..f33b544 100644
--- a/tests/testthat/test_splitting_breaks.R
+++ b/tests/testthat/test_splitting_breaks.R
@@ -1,80 +1,80 @@
-testthat::context("breaks attributes resulting from splitting")
-
-
-testthat::test_that("splitMulti produces intended breaks list", {
- popEpi:::skip_normally()
- x <- data.table(popEpi::sibr)
- x <- x[dg_date < ex_date & bi_date < dg_date]
-
- x <- Lexis(
- data = x,
- entry = list(
- per = get.yrs(dg_date), fot = 0.0,
- age = get.yrs(dg_date)-get.yrs(bi_date)
- ),
- exit = list(
- per = get.yrs(ex_date)
- ), entry.status = 0L, exit.status = 1L
- )
- forceLexisDT(x, breaks = get_breaks(x), allScales = timeScales(x))
-
- BL <- list(fot = 2:8, per = 1990:2000, age = seq(0,100, 10))
- xx <- splitMulti(x, breaks = BL, drop = TRUE)
-
- BL2 <- list(fot = 4:7, per = 1991:1999, age = seq(50,70, 10))
- xxx <- splitMulti(xx, breaks = BL, drop = TRUE)
-
- testthat::expect_equal(breaks(xx, "fot"), BL$fot)
- testthat::expect_equal(breaks(xx, "per"), BL$per)
- testthat::expect_equal(breaks(xx, "age"), BL$age)
-
- testthat::expect_equal(breaks(xxx, "fot"), BL$fot)
- testthat::expect_equal(breaks(xxx, "per"), BL$per)
- testthat::expect_equal(breaks(xxx, "age"), BL$age)
-})
-
-
-
-testthat::test_that("splitLexisDT produces intended breaks list", {
- popEpi:::skip_normally()
- x <- data.table(popEpi::sibr)[dg_date < ex_date, ]
-
- x <- Lexis(
- data = x,
- entry = list(
- per = get.yrs(dg_date), fot = 0.0,
- age = get.yrs(dg_date)-get.yrs(bi_date)
- ),
- exit = list(
- per = get.yrs(ex_date)
- ), entry.status = 0L, exit.status = 1L
- )
- forceLexisDT(x, breaks = get_breaks(x), allScales = timeScales(x))
-
- br <- 2:10
- xx <- splitLexisDT(x, breaks = br, timeScale = "fot", drop = TRUE)
-
- br2 <- 2:12
- xxx <- splitLexisDT(xx, breaks = br, timeScale = "fot", drop = TRUE)
-
- testthat::expect_equal(breaks(xx, "fot"), br)
- testthat::expect_equal(breaks(xxx, "fot"), unique(br, br2))
-
-
- br <- 0:8
- xx <- splitLexisDT(x, breaks = br, timeScale = "fot", drop = FALSE)
-
- br2 <- 2:10
- xxx <- splitLexisDT(xx, breaks = br2, timeScale = "fot", drop = FALSE)
-
- br3 <- seq(9, 12, 0.5)
- xxxx <- splitLexisDT(xxx, breaks = br3, timeScale = "fot", drop = FALSE)
-
- testthat::expect_equal(breaks(xx, "fot"), br)
- testthat::expect_equal(breaks(xxx, "fot"), unique(c(br, br2)))
- testthat::expect_equal(breaks(xxxx, "fot"), sort(unique(c(br, br3))))
-})
-
-
-
-
+testthat::context("breaks attributes resulting from splitting")
+
+
+testthat::test_that("splitMulti produces intended breaks list", {
+ popEpi:::skip_normally()
+ x <- data.table(popEpi::sibr)
+ x <- x[dg_date < ex_date & bi_date < dg_date]
+
+ x <- Lexis(
+ data = x,
+ entry = list(
+ per = get.yrs(dg_date), fot = 0.0,
+ age = get.yrs(dg_date)-get.yrs(bi_date)
+ ),
+ exit = list(
+ per = get.yrs(ex_date)
+ ), entry.status = 0L, exit.status = 1L
+ )
+ forceLexisDT(x, breaks = get_breaks(x), allScales = timeScales(x))
+
+ BL <- list(fot = 2:8, per = 1990:2000, age = seq(0,100, 10))
+ xx <- splitMulti(x, breaks = BL, drop = TRUE)
+
+ BL2 <- list(fot = 4:7, per = 1991:1999, age = seq(50,70, 10))
+ xxx <- splitMulti(xx, breaks = BL, drop = TRUE)
+
+ testthat::expect_equal(breaks(xx, "fot"), BL$fot)
+ testthat::expect_equal(breaks(xx, "per"), BL$per)
+ testthat::expect_equal(breaks(xx, "age"), BL$age)
+
+ testthat::expect_equal(breaks(xxx, "fot"), BL$fot)
+ testthat::expect_equal(breaks(xxx, "per"), BL$per)
+ testthat::expect_equal(breaks(xxx, "age"), BL$age)
+})
+
+
+
+testthat::test_that("splitLexisDT produces intended breaks list", {
+ popEpi:::skip_normally()
+ x <- data.table(popEpi::sibr)[dg_date < ex_date, ]
+
+ x <- Lexis(
+ data = x,
+ entry = list(
+ per = get.yrs(dg_date), fot = 0.0,
+ age = get.yrs(dg_date)-get.yrs(bi_date)
+ ),
+ exit = list(
+ per = get.yrs(ex_date)
+ ), entry.status = 0L, exit.status = 1L
+ )
+ forceLexisDT(x, breaks = get_breaks(x), allScales = timeScales(x))
+
+ br <- 2:10
+ xx <- splitLexisDT(x, breaks = br, timeScale = "fot", drop = TRUE)
+
+ br2 <- 2:12
+ xxx <- splitLexisDT(xx, breaks = br, timeScale = "fot", drop = TRUE)
+
+ testthat::expect_equal(breaks(xx, "fot"), br)
+ testthat::expect_equal(breaks(xxx, "fot"), unique(br, br2))
+
+
+ br <- 0:8
+ xx <- splitLexisDT(x, breaks = br, timeScale = "fot", drop = FALSE)
+
+ br2 <- 2:10
+ xxx <- splitLexisDT(xx, breaks = br2, timeScale = "fot", drop = FALSE)
+
+ br3 <- seq(9, 12, 0.5)
+ xxxx <- splitLexisDT(xxx, breaks = br3, timeScale = "fot", drop = FALSE)
+
+ testthat::expect_equal(breaks(xx, "fot"), br)
+ testthat::expect_equal(breaks(xxx, "fot"), unique(c(br, br2)))
+ testthat::expect_equal(breaks(xxxx, "fot"), sort(unique(c(br, br3))))
+})
+
+
+
+
diff --git a/tests/testthat/test_splitting_randomly_on_fixed_data.R b/tests/testthat/test_splitting_randomly_on_fixed_data.R
index 4d3a09c..8a41844 100644
--- a/tests/testthat/test_splitting_randomly_on_fixed_data.R
+++ b/tests/testthat/test_splitting_randomly_on_fixed_data.R
@@ -1,140 +1,140 @@
-testthat::context("Splitting tests on fixed data and random breaks")
-
-
-
-
-
-testthat::test_that("splitting funs congruent with random splitting and fixed data", {
-
- popEpi:::skip_normally()
-
- library("Epi")
- library("data.table")
-
- data("occup", package = "Epi")
-
- occup <- Epi::Lexis(
- entry = list(age = AoE, per = DoE),
- exit = list(per = DoX),
- entry.status = 0L,
- exit.status = as.integer(Xst == "D"),
- data = occup
- )
-
-
- data("DMlate", package = "Epi")
-
- DMlate <- Epi::Lexis(
- entry = list(fot = 0, per = dodm, age = dodm-dobth),
- exit = list(per = dox),
- entry.status = 0L,
- exit.status = as.integer(!is.na(dodth)),
- data = DMlate[DMlate$dox>DMlate$dodm, ]
- )
-
- data("DMrand", package = "Epi")
-
- DMrand <- Epi::Lexis(
- entry = list(fot = 0, per = dodm, age = dodm-dobth),
- exit = list(per = dox),
- entry.status = 0L,
- exit.status = as.integer(!is.na(dodth)),
- data = DMrand[DMrand$dox>DMrand$dodm, ]
- )
-
- data("thoro", package = "Epi")
-
- thoro <- Epi::Lexis(
- entry = list(fot = 0L, per = injecdat, age = injecdat-birthdat),
- exit = list(per = exitdat),
- entry.status = 0L,
- exit.status = as.integer(exitstat == 1),
- data = thoro[thoro$injecdat < thoro$exitdat, ]
- )
-
- sire <- setDT(copy(popEpi::sire))
- sire[, "dg_yrs" := get.yrs(dg_date, "actual")]
- sire[, "ex_yrs" := get.yrs(ex_date, "actual")]
- sire[, "bi_yrs" := get.yrs(bi_date, "actual")]
- sire[, "id":= 1:.N]
- sire <- Lexis(
- data=sire[dg_date < ex_date],
- entry=list(fot=0, per=dg_yrs, age=dg_age),
- exit=list(per=ex_yrs),
- merge=TRUE,
- exit.status = status,
- entry.status = 0L
- )
-
-
- sibr <- setDT(copy(popEpi::sibr))
- sibr[, "dg_yrs" := get.yrs(dg_date, "actual")]
- sibr[, "ex_yrs" := get.yrs(ex_date, "actual")]
- sibr[, "bi_yrs" := get.yrs(bi_date, "actual")]
- sibr[, "id":= 1:.N]
- sibr <- Lexis(
- data=sibr[dg_date < ex_date],
- entry=list(fot=0, per=dg_yrs, age=dg_age),
- exit=list(per=ex_yrs),
- merge=TRUE,
- exit.status = status,
- entry.status = 0L
- )
-
- lex_list <- list(
- occup = occup,
- DMlate = DMlate,
- DMrand = DMrand,
- thoro = thoro,
- sire = sire,
- sibr = sibr
- )
- lex_list[] <- lapply(lex_list, function(df) {
- df$lex.id <- sample(df$lex.id, nrow(df), replace = FALSE)
- df
- })
-
- n_random_splits <- 500
- invisible(lapply(names(lex_list), function(lex_nm) {
- lapply(1:n_random_splits, function(i) {
- used_seed <- get_random_seed()
- set.seed(used_seed)
- l <- random_splitting_on(lex = lex_list[[lex_nm]], n.max.breaks = 50)
- # list contents in order: Epi::splitLexis, splitLexisDT, splitMulti
-
- lapply(2:length(l), function(list_pos) {
-
- tt_msg <- paste0(
- "Epi::splitLexis and ", c("splitLexisDT", "splitMulti")[list_pos-1],
- " are in agreement in data '", lex_nm, "' using seed ", used_seed
- )
-
- testthat::test_that(tt_msg, {
- testthat::expect_equal(l[[1]], l[[list_pos]], check.attributes = FALSE)
- })
-
- })
-
- testthat::test_that(
- paste0(
- "splitLexisDT and splitMulti are in agreement in data '", lex_nm,
- "' using seed ", used_seed
- ),
- testthat::expect_equal(l[[2]], l[[3]], check.attributes = TRUE)
- )
-
- })
- }))
-
-
-
-})
-
-
-
-
-
-
-
-
-
+testthat::context("Splitting tests on fixed data and random breaks")
+
+
+
+
+
+testthat::test_that("splitting funs congruent with random splitting and fixed data", {
+
+ popEpi:::skip_normally()
+
+ library("Epi")
+ library("data.table")
+
+ data("occup", package = "Epi")
+
+ occup <- Epi::Lexis(
+ entry = list(age = AoE, per = DoE),
+ exit = list(per = DoX),
+ entry.status = 0L,
+ exit.status = as.integer(Xst == "D"),
+ data = occup
+ )
+
+
+ data("DMlate", package = "Epi")
+
+ DMlate <- Epi::Lexis(
+ entry = list(fot = 0, per = dodm, age = dodm-dobth),
+ exit = list(per = dox),
+ entry.status = 0L,
+ exit.status = as.integer(!is.na(dodth)),
+ data = DMlate[DMlate$dox>DMlate$dodm, ]
+ )
+
+ data("DMrand", package = "Epi")
+
+ DMrand <- Epi::Lexis(
+ entry = list(fot = 0, per = dodm, age = dodm-dobth),
+ exit = list(per = dox),
+ entry.status = 0L,
+ exit.status = as.integer(!is.na(dodth)),
+ data = DMrand[DMrand$dox>DMrand$dodm, ]
+ )
+
+ data("thoro", package = "Epi")
+
+ thoro <- Epi::Lexis(
+ entry = list(fot = 0L, per = injecdat, age = injecdat-birthdat),
+ exit = list(per = exitdat),
+ entry.status = 0L,
+ exit.status = as.integer(exitstat == 1),
+ data = thoro[thoro$injecdat < thoro$exitdat, ]
+ )
+
+ sire <- setDT(copy(popEpi::sire))
+ sire[, "dg_yrs" := get.yrs(dg_date, "actual")]
+ sire[, "ex_yrs" := get.yrs(ex_date, "actual")]
+ sire[, "bi_yrs" := get.yrs(bi_date, "actual")]
+ sire[, "id":= 1:.N]
+ sire <- Lexis(
+ data=sire[dg_date < ex_date],
+ entry=list(fot=0, per=dg_yrs, age=dg_age),
+ exit=list(per=ex_yrs),
+ merge=TRUE,
+ exit.status = status,
+ entry.status = 0L
+ )
+
+
+ sibr <- setDT(copy(popEpi::sibr))
+ sibr[, "dg_yrs" := get.yrs(dg_date, "actual")]
+ sibr[, "ex_yrs" := get.yrs(ex_date, "actual")]
+ sibr[, "bi_yrs" := get.yrs(bi_date, "actual")]
+ sibr[, "id":= 1:.N]
+ sibr <- Lexis(
+ data=sibr[dg_date < ex_date],
+ entry=list(fot=0, per=dg_yrs, age=dg_age),
+ exit=list(per=ex_yrs),
+ merge=TRUE,
+ exit.status = status,
+ entry.status = 0L
+ )
+
+ lex_list <- list(
+ occup = occup,
+ DMlate = DMlate,
+ DMrand = DMrand,
+ thoro = thoro,
+ sire = sire,
+ sibr = sibr
+ )
+ lex_list[] <- lapply(lex_list, function(df) {
+ df$lex.id <- sample(df$lex.id, nrow(df), replace = FALSE)
+ df
+ })
+
+ n_random_splits <- 500
+ invisible(lapply(names(lex_list), function(lex_nm) {
+ lapply(1:n_random_splits, function(i) {
+ used_seed <- get_random_seed()
+ set.seed(used_seed)
+ l <- random_splitting_on(lex = lex_list[[lex_nm]], n.max.breaks = 50)
+ # list contents in order: Epi::splitLexis, splitLexisDT, splitMulti
+
+ lapply(2:length(l), function(list_pos) {
+
+ tt_msg <- paste0(
+ "Epi::splitLexis and ", c("splitLexisDT", "splitMulti")[list_pos-1],
+ " are in agreement in data '", lex_nm, "' using seed ", used_seed
+ )
+
+ testthat::test_that(tt_msg, {
+ testthat::expect_equal(l[[1]], l[[list_pos]], check.attributes = FALSE)
+ })
+
+ })
+
+ testthat::test_that(
+ paste0(
+ "splitLexisDT and splitMulti are in agreement in data '", lex_nm,
+ "' using seed ", used_seed
+ ),
+ testthat::expect_equal(l[[2]], l[[3]], check.attributes = TRUE)
+ )
+
+ })
+ }))
+
+
+
+})
+
+
+
+
+
+
+
+
+
diff --git a/tests/testthat/test_splitting_randomly_on_random_data.R b/tests/testthat/test_splitting_randomly_on_random_data.R
index a408f7e..494aecf 100644
--- a/tests/testthat/test_splitting_randomly_on_random_data.R
+++ b/tests/testthat/test_splitting_randomly_on_random_data.R
@@ -1,60 +1,60 @@
-testthat::context("Splitting tests on random data and random breaks")
-
-
-
-
-
-testthat::test_that("splitting funs congruent with random splitting and random data", {
-
- popEpi:::skip_normally()
-
- library("Epi")
- library("data.table")
-
- n_datasets <- 100
- n_random_splits <- 50
- lapply(seq_len(n_datasets), function(lex_nm) {
-
- data_seed <- get_random_seed()
- lex <- random_Lexis(
- n.rows = 100:2000,
- n.time.scales = 1:10,
- n.statuses = 2:10,
- n.other.vars = 1
- )
-
- lapply(seq_len(n_random_splits), function(i) {
- split_seed <- get_random_seed()
- set.seed(split_seed)
- l <- random_splitting_on(lex = lex, n.max.breaks = 50)
- # list contents in order: Epi::splitLexis, splitLexisDT, splitMulti
-
- lapply(2:length(l), function(list_pos) {
-
- tt_msg <- paste0(
- "Epi::splitLexis and ", c("splitLexisDT", "splitMulti")[list_pos-1],
- " are in agreement in data '", lex_nm,
- "' using data seed ", data_seed, " and splitting seed ", split_seed
- )
-
- testthat::test_that(tt_msg, {
- testthat::expect_equal(l[[1]], l[[list_pos]], check.attributes = FALSE)
- })
-
- })
-
- testthat::test_that(
- paste0(
- "splitLexisDT and splitMulti are in agreement in data '", lex_nm,
- "' using data seed ", data_seed, " and splitting seed ", split_seed
- ),
- testthat::expect_equal(l[[2]], l[[3]], check.attributes = TRUE)
- )
-
- })
- })
-
-
-
-})
-
+testthat::context("Splitting tests on random data and random breaks")
+
+
+
+
+
+testthat::test_that("splitting funs congruent with random splitting and random data", {
+
+ popEpi:::skip_normally()
+
+ library("Epi")
+ library("data.table")
+
+ n_datasets <- 100
+ n_random_splits <- 50
+ lapply(seq_len(n_datasets), function(lex_nm) {
+
+ data_seed <- get_random_seed()
+ lex <- random_Lexis(
+ n.rows = 100:2000,
+ n.time.scales = 1:10,
+ n.statuses = 2:10,
+ n.other.vars = 1
+ )
+
+ lapply(seq_len(n_random_splits), function(i) {
+ split_seed <- get_random_seed()
+ set.seed(split_seed)
+ l <- random_splitting_on(lex = lex, n.max.breaks = 50)
+ # list contents in order: Epi::splitLexis, splitLexisDT, splitMulti
+
+ lapply(2:length(l), function(list_pos) {
+
+ tt_msg <- paste0(
+ "Epi::splitLexis and ", c("splitLexisDT", "splitMulti")[list_pos-1],
+ " are in agreement in data '", lex_nm,
+ "' using data seed ", data_seed, " and splitting seed ", split_seed
+ )
+
+ testthat::test_that(tt_msg, {
+ testthat::expect_equal(l[[1]], l[[list_pos]], check.attributes = FALSE)
+ })
+
+ })
+
+ testthat::test_that(
+ paste0(
+ "splitLexisDT and splitMulti are in agreement in data '", lex_nm,
+ "' using data seed ", data_seed, " and splitting seed ", split_seed
+ ),
+ testthat::expect_equal(l[[2]], l[[3]], check.attributes = TRUE)
+ )
+
+ })
+ })
+
+
+
+})
+
diff --git a/tests/testthat/test_survmean.R b/tests/testthat/test_survmean.R
index 4a26725..c6b3490 100644
--- a/tests/testthat/test_survmean.R
+++ b/tests/testthat/test_survmean.R
@@ -1,301 +1,301 @@
-testthat::context("mean survival testing")
-library("data.table")
-library("Epi")
-
-testthat::test_that("survmean() agrees with old results", {
- popEpi:::skip_normally()
-
- sr <- data.table(popEpi::sire)[dg_date < ex_date, ]
- sr$agegr <- cut(sr$dg_age, c(0,45,60,Inf), right=FALSE)
-
- x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
- exit = list(CAL = get.yrs(ex_date)),
- data = sr,
- exit.status = factor(status, levels = 0:2,
- labels = c("alive", "canD", "othD")),
- entry.status = factor(0, levels = 0:2,
- labels = c("alive", "canD", "othD")),
- merge = TRUE)
-
- ## observed survival
- pm <- data.table(popEpi::popmort)
- names(pm) <- c("sex", "CAL", "AGE", "haz")
- sm <- survmean(Surv(time = FUT, event = lex.Xst != "alive") ~ agegr,
- pophaz = pm, data = x,
- breaks = list(FUT = seq(0, 10, 1/12)),
- e1.breaks = list(FUT = c(seq(0, 10, 1/12), 11:100)))
-
- ## values to test against computed on 2016-03-04;
- ## git ref: 5077677
- testthat::expect_equal(sm$est, c(33.951439, 21.611419, 7.604318), tol = 0.005, scale = 1)
- testthat::expect_equal(sm$exp, c(45.25686, 31.22712, 13.06725), tol = 0.005, scale = 1)
-
-
-})
-
-
-
-# test_that("survmean() agrees with results computed using pkg survival", {
-# popEpi:::skip_normally()
-#
-#
-# BL <- list(fot= seq(0,15,1/24))
-# eBL <- list(fot = unique(c(BL$fot, seq(15, 115,0.5))))
-#
-# sire2 <- data.table(popEpi::sire)[dg_date<ex_date, ]
-# sire2$statusf <- factor(sire2$status, levels = 0:2,
-# labels = c("alive", "canD", "othD"))
-#
-# x <- lexpand(sire2,
-# birth = bi_date, entry = dg_date, exit = ex_date,
-# status = statusf,
-# breaks = NULL)
-#
-# popmort_sm <- setDT(copy(popEpi::popmort))
-# setnames(popmort_sm, c("agegroup", "year"), c("age", "per"))
-#
-# sm <- survmean(Surv(fot, event = lex.Xst) ~ 1,
-# breaks = BL, e1.breaks = eBL, r = 1,
-# pophaz = popmort_sm, data = x)
-#
-# st <- survtab(Surv(fot, event = lex.Xst) ~ 1,
-# breaks = BL,
-# pophaz = popmort_sm, data = x)
-#
-# sm_curve <- copy(attr(sm, "survmean.meta")$curve)
-# td01 <- readRDS("tests/testthat/survmean_test_data_01.rds")
-#
-# expect_equal(sm_curve[survmean_type == "est", surv],
-# td01$est,
-# scale = 1L,
-# tolerance = 0.001)
-# })
-
-
-testthat::test_that("survmean expected survival curve corresponds to full Ederer I", {
- popEpi:::skip_normally()
-
- sr <- data.table(sire)[dg_date < ex_date, ]
- sr$agegr <- cut(sr$dg_age, c(0,45,60,Inf), right=FALSE)
-
- x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
- exit = list(CAL = get.yrs(ex_date)),
- data = sr,
- exit.status = factor(status, levels = 0:2,
- labels = c("alive", "canD", "othD")),
- entry.status = factor(0, levels = 0:2,
- labels = c("alive", "canD", "othD")),
- merge = TRUE)
-
- pm <- copy(popEpi::popmort)
- names(pm) <- c("sex", "CAL", "AGE", "haz")
-
- BL <- list(FUT = seq(0, 10, 1/12))
- eBL <- list(FUT = c(BL$FUT, seq(11,110,1/2)))
- sm <- survmean(Surv(time = FUT, event = lex.Xst != "alive") ~ 1,
- pophaz = pm, data = x,
- breaks = BL,
- e1.breaks = eBL)
-
- ## pure Ederer I curve
- setDT(x)
- x[, lex.dur := 110]
- setattr(x, "class", c("Lexis", "data.table", "data.frame"))
- e1 <- comp_e1(x = x, breaks = eBL,
- pophaz = pm, survScale = "FUT")
- setkeyv(e1, "FUT")
- e1[, "delta" := diff(eBL$FUT)]
- e1[, "l1" := c(1,surv.exp[-.N])]
- sm.e1 <- e1[, sum((l1+surv.exp)/2L*delta)]
-
-
- testthat::expect_equal(sm$exp, sm.e1, tol = 0.0005, scale = 1)
-
-})
-
-testthat::test_that("survmean period method is useful", {
- popEpi:::skip_normally()
-
- sr <- data.table(popEpi::sire)[dg_date < ex_date, ]
- sr$agegr <- cut(sr$dg_age, c(0,45,60,Inf), right=FALSE)
-
- x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
- exit = list(CAL = get.yrs(ex_date)),
- data = sr,
- exit.status = factor(status, levels = 0:2,
- labels = c("alive", "canD", "othD")),
- entry.status = factor(0, levels = 0:2,
- labels = c("alive", "canD", "othD")),
- merge = TRUE)
-
- pm <- data.table(popEpi::popmort)
- names(pm) <- c("sex", "CAL", "AGE", "haz")
-
- BL <- list(FUT = seq(0, 10, 1/12))
- eBL <- list(FUT = c(BL$FUT, seq(max(BL$FUT),110,1/2)))
- eBL$FUT <- sort(unique(eBL$FUT))
- sm <- survmean(Surv(time = FUT, event = lex.Xst != "alive") ~ 1,
- subset = dg_date >= "1998-01-01" & dg_date < "2003-01-01",
- pophaz = pm, data = x,
- r = 1,
- breaks = BL,
- e1.breaks = eBL)
-
-
- BL <- list(FUT = seq(0, 5, 1/12), CAL = c(1998,2003))
- eBL <- list(FUT = c(BL$FUT, seq(max(BL$FUT), 10, 1/12), seq(10,110,1/2)))
- eBL$FUT <- sort(unique(eBL$FUT))
- smp <- survmean(Surv(time = FUT, event = lex.Xst != "alive") ~ 1,
- pophaz = pm, data = x,
- breaks = BL,
- r = 1,
- e1.breaks = eBL)
-
-
-
- testthat::expect_equal(sm$obs, smp$obs)
- testthat::expect_equal(sm$exp, smp$exp)
- testthat::expect_equal(smp$est, 10.01542, tol = 0.0005, scale = 1)
- testthat::expect_equal(sm$est, 10.0216, tol = 0.0005, scale = 1)
-
-})
-
-
-
-testthat::test_that("Dates and frac. yrs produce congruent results", {
- popEpi:::skip_normally()
-
- x <- data.table(popEpi::sire)
- x <- x[dg_date<ex_date]
-
- ## phony group variable
- set.seed(1L)
- x$group <- rbinom(nrow(x), 1, 0.5)
-
-
- ## yrs
- xy <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
- exit = list(CAL = get.yrs(ex_date)),
- data = x,
- exit.status = factor(status, levels = 0:2,
- labels = c("alive", "canD", "othD")),
- entry.status = factor(0, levels = 0:2,
- labels = c("alive", "canD", "othD")),
- merge = TRUE)
-
- ## dates
- xd <- Lexis(entry = list(FUT = 0L, AGE = dg_date-bi_date, CAL = dg_date),
- exit = list(CAL = ex_date),
- data = x,
- exit.status = factor(status, levels = 0:2,
- labels = c("alive", "canD", "othD")),
- entry.status = factor(0, levels = 0:2,
- labels = c("alive", "canD", "othD")),
- merge = TRUE)
- yd <- 365.242199
- BLy <- list(FUT = seq(0, 9, 1/4))
- BLd <- lapply(BLy, function(el) el * yd)
- eBLy <- list(FUT = c(seq(0, 9, 1/4), 9.5, 10:75))
- eBLd <- lapply(eBLy, function(el) el * yd)
-
- pmy <- data.table(popEpi::popmort)
- setnames(pmy, c("year", "agegroup"), c("CAL", "AGE"))
-
- pmd <- data.table(pmy)
- pmd[, CAL := as.Date(paste0(CAL, "-01-01"))]
- pmd[, AGE := AGE * yd]
- pmd[, haz := haz/yd]
-
- #### hazard method
- ## observed survival & Ederer II
-
- sty <- survmean(Surv(FUT, lex.Xst) ~ group, data = xy,
- surv.method = "hazard",
- e1.breaks = eBLy,
- breaks = BLy, pophaz = pmy)
-
- std <- survmean(Surv(FUT, lex.Xst) ~ group, data = xd,
- surv.method = "hazard",
- e1.breaks = eBLd,
- breaks = BLd, pophaz = pmd)
- cuy <- data.table(attributes(sty)$survmean.meta$curves)
- cud <- data.table(attributes(std)$survmean.meta$curves)
-
- std[, c("est", "exp", "YPLL") := lapply(.SD, function(col) col/yd),
- .SDcols = c("est", "exp", "YPLL")]
-
- testthat::expect_equal(sty$est, std$est, scale = 1L, tolerance = 0.0005)
- testthat::expect_equal(sty$exp, std$exp, scale = 1L, tolerance = 0.001)
- testthat::expect_equal(sty$obs, std$obs)
-
- testthat::expect_equal(cuy$surv, cud$surv, scale = 1L, tolerance = 0.00005)
-
- #### lifetable method
- ## observed survival & Ederer II
-
- sty <- survmean(Surv(FUT, lex.Xst) ~ group, data = xy,
- surv.method = "lifetable",
- e1.breaks = eBLy,
- breaks = BLy, pophaz = pmy)
-
- std <- survmean(Surv(FUT, lex.Xst) ~ group, data = xd,
- surv.method = "lifetable",
- e1.breaks = eBLd,
- breaks = BLd, pophaz = pmd)
- cuy <- data.table(attributes(sty)$survmean.meta$curves)
- cud <- data.table(attributes(std)$survmean.meta$curves)
-
- std[, c("est", "exp", "YPLL") := lapply(.SD, function(col) col/yd),
- .SDcols = c("est", "exp", "YPLL")]
-
- testthat::expect_equal(sty$est, std$est, scale = 1L, tolerance = 0.0005)
- testthat::expect_equal(sty$exp, std$exp, scale = 1L, tolerance = 0.001)
- testthat::expect_equal(sty$obs, std$obs)
-
- testthat::expect_equal(cuy$surv, cud$surv, scale = 1L, tolerance = 0.00005)
-
-
-})
-
-
-
-
-testthat::test_that("updating works for survmean objects", {
-
- popEpi:::skip_normally()
-
- set.seed(1)
- sr <- setDT(popEpi::sire[sample(1:.N, 100), ])
-
- x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
- exit = list(CAL = get.yrs(ex_date)),
- data = sr,
- exit.status = factor(status, levels = 0:2,
- labels = c("alive", "canD", "othD")),
- entry.status = factor(0, levels = 0:2,
- labels = c("alive", "canD", "othD")),
- merge = TRUE)
-
- pm <- data.table(popEpi::popmort)
- names(pm) <- c("sex", "CAL", "AGE", "haz")
-
- BL <- list(FUT = 1:10)
- fo <- Surv(time = FUT, event = lex.Xst != "alive") ~ 1
- e <- quote(
- survmean(formula = fo, data = x, breaks = BL,pophaz = pm)
- )
- sm <- eval(e)
-
- fo <- update(fo, ~.+sex)
- sm2 <- eval(e)
-
- sm3 <- update(sm, .~ + sex)
-
- testthat::expect_equal(data.frame(sm2), data.frame(sm3))
- testthat::expect_equal(formula(sm2), fo)
- testthat::expect_equal(formula(sm3), fo)
- testthat::expect_equal(getCall(sm2), e)
-
-})
-
-
+testthat::context("mean survival testing")
+library("data.table")
+library("Epi")
+
+testthat::test_that("survmean() agrees with old results", {
+ popEpi:::skip_normally()
+
+ sr <- data.table(popEpi::sire)[dg_date < ex_date, ]
+ sr$agegr <- cut(sr$dg_age, c(0,45,60,Inf), right=FALSE)
+
+ x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
+ exit = list(CAL = get.yrs(ex_date)),
+ data = sr,
+ exit.status = factor(status, levels = 0:2,
+ labels = c("alive", "canD", "othD")),
+ entry.status = factor(0, levels = 0:2,
+ labels = c("alive", "canD", "othD")),
+ merge = TRUE)
+
+ ## observed survival
+ pm <- data.table(popEpi::popmort)
+ names(pm) <- c("sex", "CAL", "AGE", "haz")
+ sm <- survmean(Surv(time = FUT, event = lex.Xst != "alive") ~ agegr,
+ pophaz = pm, data = x,
+ breaks = list(FUT = seq(0, 10, 1/12)),
+ e1.breaks = list(FUT = c(seq(0, 10, 1/12), 11:100)))
+
+ ## values to test against computed on 2016-03-04;
+ ## git ref: 5077677
+ testthat::expect_equal(sm$est, c(33.951439, 21.611419, 7.604318), tol = 0.005, scale = 1)
+ testthat::expect_equal(sm$exp, c(45.25686, 31.22712, 13.06725), tol = 0.005, scale = 1)
+
+
+})
+
+
+
+# test_that("survmean() agrees with results computed using pkg survival", {
+# popEpi:::skip_normally()
+#
+#
+# BL <- list(fot= seq(0,15,1/24))
+# eBL <- list(fot = unique(c(BL$fot, seq(15, 115,0.5))))
+#
+# sire2 <- data.table(popEpi::sire)[dg_date<ex_date, ]
+# sire2$statusf <- factor(sire2$status, levels = 0:2,
+# labels = c("alive", "canD", "othD"))
+#
+# x <- lexpand(sire2,
+# birth = bi_date, entry = dg_date, exit = ex_date,
+# status = statusf,
+# breaks = NULL)
+#
+# popmort_sm <- setDT(copy(popEpi::popmort))
+# setnames(popmort_sm, c("agegroup", "year"), c("age", "per"))
+#
+# sm <- survmean(Surv(fot, event = lex.Xst) ~ 1,
+# breaks = BL, e1.breaks = eBL, r = 1,
+# pophaz = popmort_sm, data = x)
+#
+# st <- survtab(Surv(fot, event = lex.Xst) ~ 1,
+# breaks = BL,
+# pophaz = popmort_sm, data = x)
+#
+# sm_curve <- copy(attr(sm, "survmean.meta")$curve)
+# td01 <- readRDS("tests/testthat/survmean_test_data_01.rds")
+#
+# expect_equal(sm_curve[survmean_type == "est", surv],
+# td01$est,
+# scale = 1L,
+# tolerance = 0.001)
+# })
+
+
+testthat::test_that("survmean expected survival curve corresponds to full Ederer I", {
+ popEpi:::skip_normally()
+
+ sr <- data.table(sire)[dg_date < ex_date, ]
+ sr$agegr <- cut(sr$dg_age, c(0,45,60,Inf), right=FALSE)
+
+ x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
+ exit = list(CAL = get.yrs(ex_date)),
+ data = sr,
+ exit.status = factor(status, levels = 0:2,
+ labels = c("alive", "canD", "othD")),
+ entry.status = factor(0, levels = 0:2,
+ labels = c("alive", "canD", "othD")),
+ merge = TRUE)
+
+ pm <- copy(popEpi::popmort)
+ names(pm) <- c("sex", "CAL", "AGE", "haz")
+
+ BL <- list(FUT = seq(0, 10, 1/12))
+ eBL <- list(FUT = c(BL$FUT, seq(11,110,1/2)))
+ sm <- survmean(Surv(time = FUT, event = lex.Xst != "alive") ~ 1,
+ pophaz = pm, data = x,
+ breaks = BL,
+ e1.breaks = eBL)
+
+ ## pure Ederer I curve
+ setDT(x)
+ x[, lex.dur := 110]
+ setattr(x, "class", c("Lexis", "data.table", "data.frame"))
+ e1 <- comp_e1(x = x, breaks = eBL,
+ pophaz = pm, survScale = "FUT")
+ setkeyv(e1, "FUT")
+ e1[, "delta" := diff(eBL$FUT)]
+ e1[, "l1" := c(1,surv.exp[-.N])]
+ sm.e1 <- e1[, sum((l1+surv.exp)/2L*delta)]
+
+
+ testthat::expect_equal(sm$exp, sm.e1, tol = 0.0005, scale = 1)
+
+})
+
+testthat::test_that("survmean period method is useful", {
+ popEpi:::skip_normally()
+
+ sr <- data.table(popEpi::sire)[dg_date < ex_date, ]
+ sr$agegr <- cut(sr$dg_age, c(0,45,60,Inf), right=FALSE)
+
+ x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
+ exit = list(CAL = get.yrs(ex_date)),
+ data = sr,
+ exit.status = factor(status, levels = 0:2,
+ labels = c("alive", "canD", "othD")),
+ entry.status = factor(0, levels = 0:2,
+ labels = c("alive", "canD", "othD")),
+ merge = TRUE)
+
+ pm <- data.table(popEpi::popmort)
+ names(pm) <- c("sex", "CAL", "AGE", "haz")
+
+ BL <- list(FUT = seq(0, 10, 1/12))
+ eBL <- list(FUT = c(BL$FUT, seq(max(BL$FUT),110,1/2)))
+ eBL$FUT <- sort(unique(eBL$FUT))
+ sm <- survmean(Surv(time = FUT, event = lex.Xst != "alive") ~ 1,
+ subset = dg_date >= "1998-01-01" & dg_date < "2003-01-01",
+ pophaz = pm, data = x,
+ r = 1,
+ breaks = BL,
+ e1.breaks = eBL)
+
+
+ BL <- list(FUT = seq(0, 5, 1/12), CAL = c(1998,2003))
+ eBL <- list(FUT = c(BL$FUT, seq(max(BL$FUT), 10, 1/12), seq(10,110,1/2)))
+ eBL$FUT <- sort(unique(eBL$FUT))
+ smp <- survmean(Surv(time = FUT, event = lex.Xst != "alive") ~ 1,
+ pophaz = pm, data = x,
+ breaks = BL,
+ r = 1,
+ e1.breaks = eBL)
+
+
+
+ testthat::expect_equal(sm$obs, smp$obs)
+ testthat::expect_equal(sm$exp, smp$exp)
+ testthat::expect_equal(smp$est, 10.01542, tol = 0.0005, scale = 1)
+ testthat::expect_equal(sm$est, 10.0216, tol = 0.0005, scale = 1)
+
+})
+
+
+
+testthat::test_that("Dates and frac. yrs produce congruent results", {
+ popEpi:::skip_normally()
+
+ x <- data.table(popEpi::sire)
+ x <- x[dg_date<ex_date]
+
+ ## phony group variable
+ set.seed(1L)
+ x$group <- rbinom(nrow(x), 1, 0.5)
+
+
+ ## yrs
+ xy <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
+ exit = list(CAL = get.yrs(ex_date)),
+ data = x,
+ exit.status = factor(status, levels = 0:2,
+ labels = c("alive", "canD", "othD")),
+ entry.status = factor(0, levels = 0:2,
+ labels = c("alive", "canD", "othD")),
+ merge = TRUE)
+
+ ## dates
+ xd <- Lexis(entry = list(FUT = 0L, AGE = dg_date-bi_date, CAL = dg_date),
+ exit = list(CAL = ex_date),
+ data = x,
+ exit.status = factor(status, levels = 0:2,
+ labels = c("alive", "canD", "othD")),
+ entry.status = factor(0, levels = 0:2,
+ labels = c("alive", "canD", "othD")),
+ merge = TRUE)
+ yd <- 365.242199
+ BLy <- list(FUT = seq(0, 9, 1/4))
+ BLd <- lapply(BLy, function(el) el * yd)
+ eBLy <- list(FUT = c(seq(0, 9, 1/4), 9.5, 10:75))
+ eBLd <- lapply(eBLy, function(el) el * yd)
+
+ pmy <- data.table(popEpi::popmort)
+ setnames(pmy, c("year", "agegroup"), c("CAL", "AGE"))
+
+ pmd <- data.table(pmy)
+ pmd[, CAL := as.Date(paste0(CAL, "-01-01"))]
+ pmd[, AGE := AGE * yd]
+ pmd[, haz := haz/yd]
+
+ #### hazard method
+ ## observed survival & Ederer II
+
+ sty <- survmean(Surv(FUT, lex.Xst) ~ group, data = xy,
+ surv.method = "hazard",
+ e1.breaks = eBLy,
+ breaks = BLy, pophaz = pmy)
+
+ std <- survmean(Surv(FUT, lex.Xst) ~ group, data = xd,
+ surv.method = "hazard",
+ e1.breaks = eBLd,
+ breaks = BLd, pophaz = pmd)
+ cuy <- data.table(attributes(sty)$survmean.meta$curves)
+ cud <- data.table(attributes(std)$survmean.meta$curves)
+
+ std[, c("est", "exp", "YPLL") := lapply(.SD, function(col) col/yd),
+ .SDcols = c("est", "exp", "YPLL")]
+
+ testthat::expect_equal(sty$est, std$est, scale = 1L, tolerance = 0.0005)
+ testthat::expect_equal(sty$exp, std$exp, scale = 1L, tolerance = 0.001)
+ testthat::expect_equal(sty$obs, std$obs)
+
+ testthat::expect_equal(cuy$surv, cud$surv, scale = 1L, tolerance = 0.00005)
+
+ #### lifetable method
+ ## observed survival & Ederer II
+
+ sty <- survmean(Surv(FUT, lex.Xst) ~ group, data = xy,
+ surv.method = "lifetable",
+ e1.breaks = eBLy,
+ breaks = BLy, pophaz = pmy)
+
+ std <- survmean(Surv(FUT, lex.Xst) ~ group, data = xd,
+ surv.method = "lifetable",
+ e1.breaks = eBLd,
+ breaks = BLd, pophaz = pmd)
+ cuy <- data.table(attributes(sty)$survmean.meta$curves)
+ cud <- data.table(attributes(std)$survmean.meta$curves)
+
+ std[, c("est", "exp", "YPLL") := lapply(.SD, function(col) col/yd),
+ .SDcols = c("est", "exp", "YPLL")]
+
+ testthat::expect_equal(sty$est, std$est, scale = 1L, tolerance = 0.0005)
+ testthat::expect_equal(sty$exp, std$exp, scale = 1L, tolerance = 0.001)
+ testthat::expect_equal(sty$obs, std$obs)
+
+ testthat::expect_equal(cuy$surv, cud$surv, scale = 1L, tolerance = 0.00005)
+
+
+})
+
+
+
+
+testthat::test_that("updating works for survmean objects", {
+
+ popEpi:::skip_normally()
+
+ set.seed(1)
+ sr <- setDT(popEpi::sire[sample(1:.N, 100), ])
+
+ x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
+ exit = list(CAL = get.yrs(ex_date)),
+ data = sr,
+ exit.status = factor(status, levels = 0:2,
+ labels = c("alive", "canD", "othD")),
+ entry.status = factor(0, levels = 0:2,
+ labels = c("alive", "canD", "othD")),
+ merge = TRUE)
+
+ pm <- data.table(popEpi::popmort)
+ names(pm) <- c("sex", "CAL", "AGE", "haz")
+
+ BL <- list(FUT = 1:10)
+ fo <- Surv(time = FUT, event = lex.Xst != "alive") ~ 1
+ e <- quote(
+ survmean(formula = fo, data = x, breaks = BL,pophaz = pm)
+ )
+ sm <- eval(e)
+
+ fo <- update(fo, ~.+sex)
+ sm2 <- eval(e)
+
+ sm3 <- update(sm, .~ + sex)
+
+ testthat::expect_equal(data.frame(sm2), data.frame(sm3))
+ testthat::expect_equal(formula(sm2), fo)
+ testthat::expect_equal(formula(sm3), fo)
+ testthat::expect_equal(getCall(sm2), e)
+
+})
+
+
diff --git a/tests/testthat/test_survtab_adjusted.R b/tests/testthat/test_survtab_adjusted.R
index 7a72907..1d21495 100644
--- a/tests/testthat/test_survtab_adjusted.R
+++ b/tests/testthat/test_survtab_adjusted.R
@@ -1,77 +1,77 @@
-testthat::context("adjusted curves from survtab")
-
-testthat::test_that("adjusted SEs and curves are what expected", {
- popEpi:::skip_normally()
-
- sire <- data.table::data.table(popEpi::sire)
-
- ## calculate age-standardised 5-year relative survival ratio using
- ## Ederer II method and period approach
-
- sire$agegr <- cut(sire$dg_age, c(0,45,55,65,75,Inf), right = FALSE)
- BL <- list(fot=seq(0, 5, by = 1/12),
- per = c("2008-01-01", "2013-01-01"))
- x <- lexpand(sire, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status %in% 1:2,
- breaks = BL,
- pophaz = popmort,
- aggre = list(agegr, fot))
-
- ## age standardisation using internal weights (age distribution of
- ## patients diagnosed within the period window)
- ## (NOTE: what is done here is equivalent to using weights = "internal")
- w <- aggregate(at.risk ~ agegr, data = x[x$fot == 0, ], FUN = sum)
- names(w) <- c("agegr", "weights")
-
- st_raw <- survtab_ag(fot ~ agegr, data = x)
- st_raw_pp <- survtab_ag(fot ~ agegr, data = x,
- relsurv.method = "pp",
- d.pp = "from0to1.pp",
- d.pp.2 = "from0to1.pp.2",
- n.cens.pp = "from0to0.pp",
- pyrs.pp = "ptime.pp",
- n.cens = "from0to0")
-
- st_adj <- survtab_ag(fot ~ adjust(agegr), data = x, weights = w)
- st_adj_pp <- survtab_ag(fot ~ adjust(agegr), data = x, weights = w,
- relsurv.method = "pp",
- d.pp = "from0to1.pp",
- d.pp.2 = "from0to1.pp.2",
- n.cens.pp = "from0to0.pp",
- pyrs.pp = "ptime.pp",
- n.cens = "from0to0")
-
- dt_raw <- data.table::data.table(st_raw)
- dt_raw_pp <- data.table::data.table(st_raw_pp)
- data.table::set(
- dt_raw, j = c("r.pp", "SE.r.pp"),
- value = mget(c("r.pp", "SE.r.pp"), as.environment(dt_raw_pp))
- )
-
- dt_adj <- data.table::data.table(st_adj)
- dt_adj_pp <- data.table::data.table(st_adj_pp)
- data.table::set(
- dt_adj, j = c("r.pp.as", "SE.r.pp.as"),
- value = mget(c("r.pp.as", "SE.r.pp.as"), as.environment(dt_adj_pp))
- )
-
-
- w$weights <- w$weights/sum(w$weights)
- dt_raw <- merge(dt_raw, w, by = "agegr", all = TRUE)
- dt_raw_adj <- dt_raw[, .("surv.obs.as" = sum(weights * surv.obs),
- "SE.surv.obs.as" = sqrt(sum((weights^2)*(SE.surv.obs^2))),
- "r.e2.as" = sum(weights * r.e2),
- "SE.r.e2.as" = sqrt(sum((weights^2)*(SE.r.e2^2))),
- "r.pp.as" = sum(weights * r.pp),
- "SE.r.pp.as" = sqrt(sum((weights^2)*(SE.r.pp^2))),
- "pyrs" = sum(pyrs)),
- keyby = "surv.int"]
-
- testthat::expect_equal(
- dt_raw_adj, dt_adj[, .SD, .SDcols = names(dt_raw_adj)]
- )
-
-
-
-})
-
+testthat::context("adjusted curves from survtab")
+
+testthat::test_that("adjusted SEs and curves are what expected", {
+ popEpi:::skip_normally()
+
+ sire <- data.table::data.table(popEpi::sire)
+
+ ## calculate age-standardised 5-year relative survival ratio using
+ ## Ederer II method and period approach
+
+ sire$agegr <- cut(sire$dg_age, c(0,45,55,65,75,Inf), right = FALSE)
+ BL <- list(fot=seq(0, 5, by = 1/12),
+ per = c("2008-01-01", "2013-01-01"))
+ x <- lexpand(sire, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status %in% 1:2,
+ breaks = BL,
+ pophaz = popmort,
+ aggre = list(agegr, fot))
+
+ ## age standardisation using internal weights (age distribution of
+ ## patients diagnosed within the period window)
+ ## (NOTE: what is done here is equivalent to using weights = "internal")
+ w <- aggregate(at.risk ~ agegr, data = x[x$fot == 0, ], FUN = sum)
+ names(w) <- c("agegr", "weights")
+
+ st_raw <- survtab_ag(fot ~ agegr, data = x)
+ st_raw_pp <- survtab_ag(fot ~ agegr, data = x,
+ relsurv.method = "pp",
+ d.pp = "from0to1.pp",
+ d.pp.2 = "from0to1.pp.2",
+ n.cens.pp = "from0to0.pp",
+ pyrs.pp = "ptime.pp",
+ n.cens = "from0to0")
+
+ st_adj <- survtab_ag(fot ~ adjust(agegr), data = x, weights = w)
+ st_adj_pp <- survtab_ag(fot ~ adjust(agegr), data = x, weights = w,
+ relsurv.method = "pp",
+ d.pp = "from0to1.pp",
+ d.pp.2 = "from0to1.pp.2",
+ n.cens.pp = "from0to0.pp",
+ pyrs.pp = "ptime.pp",
+ n.cens = "from0to0")
+
+ dt_raw <- data.table::data.table(st_raw)
+ dt_raw_pp <- data.table::data.table(st_raw_pp)
+ data.table::set(
+ dt_raw, j = c("r.pp", "SE.r.pp"),
+ value = mget(c("r.pp", "SE.r.pp"), as.environment(dt_raw_pp))
+ )
+
+ dt_adj <- data.table::data.table(st_adj)
+ dt_adj_pp <- data.table::data.table(st_adj_pp)
+ data.table::set(
+ dt_adj, j = c("r.pp.as", "SE.r.pp.as"),
+ value = mget(c("r.pp.as", "SE.r.pp.as"), as.environment(dt_adj_pp))
+ )
+
+
+ w$weights <- w$weights/sum(w$weights)
+ dt_raw <- merge(dt_raw, w, by = "agegr", all = TRUE)
+ dt_raw_adj <- dt_raw[, .("surv.obs.as" = sum(weights * surv.obs),
+ "SE.surv.obs.as" = sqrt(sum((weights^2)*(SE.surv.obs^2))),
+ "r.e2.as" = sum(weights * r.e2),
+ "SE.r.e2.as" = sqrt(sum((weights^2)*(SE.r.e2^2))),
+ "r.pp.as" = sum(weights * r.pp),
+ "SE.r.pp.as" = sqrt(sum((weights^2)*(SE.r.pp^2))),
+ "pyrs" = sum(pyrs)),
+ keyby = "surv.int"]
+
+ testthat::expect_equal(
+ dt_raw_adj, dt_adj[, .SD, .SDcols = names(dt_raw_adj)]
+ )
+
+
+
+})
+
diff --git a/tests/testthat/test_survtab_bad_surv_ints.R b/tests/testthat/test_survtab_bad_surv_ints.R
index 3cdab32..c40faf2 100644
--- a/tests/testthat/test_survtab_bad_surv_ints.R
+++ b/tests/testthat/test_survtab_bad_surv_ints.R
@@ -1,95 +1,95 @@
-testthat::context("Testing empty survival intervals in survtab")
-
-testthat::test_that("removing consecutively bad surv.ints is logical w/ & w/out adjusting", {
-
- sire2 <- sire[dg_date < ex_date, ]
- sire2[, agegr := cut(dg_age, c(0,45,60,Inf), right=FALSE, labels=FALSE)]
-
- BL <- list(fot= seq(0,10,1/12), per=c(2008,2013))
-
- x <- lexpand(sire2, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status %in% 1:2, breaks=BL)
- setDT(x)
-
- setattr(x, "class", c("Lexis", "data.table", "data.frame"))
- ## NOTE: neither should give any messages!
- testthat::expect_message({
- st1 <- survtab(Surv(fot, lex.Xst) ~ agegr,
- subset = !(agegr == 1L & fot > 8.49),
- data = x, surv.type="surv.obs")
- }, regexp = NA)
-
- ## INTENTION: 7.5+ intervals empty for one age group.
- ## this should make adjusted estimates missing altogether for 7.5+.
- testthat::expect_message({
- st2 <- survtab(Surv(fot, lex.Xst) ~ adjust(agegr),
- data = x, surv.type="surv.obs",
- subset = !(agegr == 1L & fot > 8.49),
- weights = list(agegr = c(0.33, 0.33, 0.33)))
- }, regexp = NA)
- setDT(st1)
- setDT(st2)
-
-
- testthat::expect_equal(st1[agegr==3 & Tstop>8.5, .N] , 18L)
- testthat::expect_equal(st1[agegr==1 & Tstop>8.5, .N] , 0L)
- testthat::expect_equal(st2[Tstop > 8.5, .N] , 0L)
-})
-
-## non-consecutively bad surv.ints ---------------------------------------------
-
-testthat::test_that("survtab_ag messages & results due to non-consecutively bad surv.ints are OK", {
- ## non-consecutively bad surv.ints (missing years 5-6)
- sire2 <- sire[dg_date < ex_date, ]
- sire2[, agegr := cut(dg_age, c(0,45,60,Inf), right=FALSE, labels=FALSE)]
- sire2 <- sire2[!(dg_age > 60 & as.integer(as.integer(ex_date-dg_date)/365.25) %in% 5:6)]
- BL <- list(fot= seq(0,10,1/12), per=c(2008,2013))
- x <- lexpand(sire2, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status %in% 1:2,
- breaks=BL)
- tf1 <- quote(
- st1 <- survtab(Surv(fot, lex.Xst)~1, data = x, surv.type="surv.obs",
- subset=!(fot >= 5 & fot < 7))
- )
-
- tf2 <- quote(
- st2 <- survtab(Surv(fot, lex.Xst)~adjust(agegr), data = x, surv.type="surv.obs",
- subset=!(agegr==3 & fot >= 5 & fot < 7),
- weights = list(agegr = c(0.33, 0.33, 0.33)))
- )
-
- ## NOTE: \\ needed before "(" or ")"
- msgs <- c(paste0("The total person-time was zero in some survival ",
- "intervals summed to the margins \\(over any stratifying ",
- "/ adjusting variables\\) _non-consecutively_, i.e. some ",
- "intervals after an empty interval had person-time in ",
- "them. Keeping all survival intervals with some estimates ",
- "as NA for inspection."),
- "Some cumulative surv.obs were zero or NA:")
- testthat::expect_message(eval(tf1), msgs[1],ignore.case=TRUE)
- testthat::expect_message(eval(tf1), msgs[2],ignore.case=TRUE)
-
- setDT(st1)
-
- testthat::expect_equal(st1[is.na(surv.obs), .N], 60L)
-
- msgs <- c(paste0("The total person-time was zero in some survival ",
- "intervals, when summed to the variable\\(s\\) ",
- "'agegr' \\(i.e. over all other variables, if any",
- "\\) _non-consecutively_, i.e. some intervals after ",
- "an empty interval had person-time in them. ",
- "Keeping all survival intervals with some ",
- "estimates as NA for inspection."),
- "Some cumulative surv.obs were zero or NA:")
-
- testthat::expect_message(eval(tf2), msgs[1])
- testthat::expect_message(eval(tf2), msgs[2])
-
- setDT(st2)
- testthat::expect_equal(st2[is.na(surv.obs.as), .N], 60L)
-})
-
-
-
-
-
+testthat::context("Testing empty survival intervals in survtab")
+
+testthat::test_that("removing consecutively bad surv.ints is logical w/ & w/out adjusting", {
+
+ sire2 <- sire[dg_date < ex_date, ]
+ sire2[, agegr := cut(dg_age, c(0,45,60,Inf), right=FALSE, labels=FALSE)]
+
+ BL <- list(fot= seq(0,10,1/12), per=c(2008,2013))
+
+ x <- lexpand(sire2, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status %in% 1:2, breaks=BL)
+ setDT(x)
+
+ setattr(x, "class", c("Lexis", "data.table", "data.frame"))
+ ## NOTE: neither should give any messages!
+ testthat::expect_message({
+ st1 <- survtab(Surv(fot, lex.Xst) ~ agegr,
+ subset = !(agegr == 1L & fot > 8.49),
+ data = x, surv.type="surv.obs")
+ }, regexp = NA)
+
+ ## INTENTION: 7.5+ intervals empty for one age group.
+ ## this should make adjusted estimates missing altogether for 7.5+.
+ testthat::expect_message({
+ st2 <- survtab(Surv(fot, lex.Xst) ~ adjust(agegr),
+ data = x, surv.type="surv.obs",
+ subset = !(agegr == 1L & fot > 8.49),
+ weights = list(agegr = c(0.33, 0.33, 0.33)))
+ }, regexp = NA)
+ setDT(st1)
+ setDT(st2)
+
+
+ testthat::expect_equal(st1[agegr==3 & Tstop>8.5, .N] , 18L)
+ testthat::expect_equal(st1[agegr==1 & Tstop>8.5, .N] , 0L)
+ testthat::expect_equal(st2[Tstop > 8.5, .N] , 0L)
+})
+
+## non-consecutively bad surv.ints ---------------------------------------------
+
+testthat::test_that("survtab_ag messages & results due to non-consecutively bad surv.ints are OK", {
+ ## non-consecutively bad surv.ints (missing years 5-6)
+ sire2 <- sire[dg_date < ex_date, ]
+ sire2[, agegr := cut(dg_age, c(0,45,60,Inf), right=FALSE, labels=FALSE)]
+ sire2 <- sire2[!(dg_age > 60 & as.integer(as.integer(ex_date-dg_date)/365.25) %in% 5:6)]
+ BL <- list(fot= seq(0,10,1/12), per=c(2008,2013))
+ x <- lexpand(sire2, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status %in% 1:2,
+ breaks=BL)
+ tf1 <- quote(
+ st1 <- survtab(Surv(fot, lex.Xst)~1, data = x, surv.type="surv.obs",
+ subset=!(fot >= 5 & fot < 7))
+ )
+
+ tf2 <- quote(
+ st2 <- survtab(Surv(fot, lex.Xst)~adjust(agegr), data = x, surv.type="surv.obs",
+ subset=!(agegr==3 & fot >= 5 & fot < 7),
+ weights = list(agegr = c(0.33, 0.33, 0.33)))
+ )
+
+ ## NOTE: \\ needed before "(" or ")"
+ msgs <- c(paste0("The total person-time was zero in some survival ",
+ "intervals summed to the margins \\(over any stratifying ",
+ "/ adjusting variables\\) _non-consecutively_, i.e. some ",
+ "intervals after an empty interval had person-time in ",
+ "them. Keeping all survival intervals with some estimates ",
+ "as NA for inspection."),
+ "Some cumulative surv.obs were zero or NA:")
+ testthat::expect_message(eval(tf1), msgs[1],ignore.case=TRUE)
+ testthat::expect_message(eval(tf1), msgs[2],ignore.case=TRUE)
+
+ setDT(st1)
+
+ testthat::expect_equal(st1[is.na(surv.obs), .N], 60L)
+
+ msgs <- c(paste0("The total person-time was zero in some survival ",
+ "intervals, when summed to the variable\\(s\\) ",
+ "'agegr' \\(i.e. over all other variables, if any",
+ "\\) _non-consecutively_, i.e. some intervals after ",
+ "an empty interval had person-time in them. ",
+ "Keeping all survival intervals with some ",
+ "estimates as NA for inspection."),
+ "Some cumulative surv.obs were zero or NA:")
+
+ testthat::expect_message(eval(tf2), msgs[1])
+ testthat::expect_message(eval(tf2), msgs[2])
+
+ setDT(st2)
+ testthat::expect_equal(st2[is.na(surv.obs.as), .N], 60L)
+})
+
+
+
+
+
diff --git a/tests/testthat/test_survtab_observed.R b/tests/testthat/test_survtab_observed.R
index fd12833..babd545 100644
--- a/tests/testthat/test_survtab_observed.R
+++ b/tests/testthat/test_survtab_observed.R
@@ -1,144 +1,144 @@
-testthat::context("CIF's & surv.obs's congruence & comparison w/ survival::survfit")
-
-testthat::test_that("surv.obs about the same as Kaplan-Meier & CIFs close to Aalen-Johansen", {
-
- BL <- list(fot= seq(0,19,1/12), per=c(2008,2013))
- sire2 <- sire[dg_date<ex_date, ]
- sire2$statusf <- factor(sire2$status, levels = 0:2,
- labels = c("alive", "canD", "othD"))
-
- x <- lexpand(sire2,
- birth = bi_date, entry = dg_date, exit = ex_date,
- status = statusf,
- breaks=BL)
- st <- survtab(Surv(fot, event = lex.Xst) ~ 1, data = x, surv.type="cif.obs")
- setDT(x)
- setattr(x, "class", c("Lexis", "data.table", "data.frame"))
- setDT(st)
-
- testthat::test_that("CIFs and surv.obs sum to 1", {
- testthat::expect_equal(st[, CIF_canD + CIF_othD + surv.obs] , rep(1, times = st[,.N]), tolerance = 0.0001, scale=1)
- })
-
- x <- lexpand(sire2,
- birth = bi_date, entry = dg_date, exit = ex_date,
- status = statusf,
- breaks = BL["per"])
-
- fb <- setdiff(BL$fot, 0)
- su.km <- survival::survfit(Surv(time=fot, time2=fot+lex.dur, event = lex.Xst!="alive") ~ 1, data = x, id = lex.id)
- su.km <- summary(su.km, times = fb)
- su.km <- cbind(data.table(time = su.km$time), data.table(su.km$surv))
-
- su.cif <- survival::survfit(Surv(time=fot, time2=fot+lex.dur, event = lex.Xst)~1, data=x, id = lex.id)
- su.cif <- summary(su.cif, times = fb)
- ## see issue #125
- prev_var <- intersect(names(su.cif), c("prev", "pstate"))
- stopifnot(length(prev_var) == 1L)
- curve_nms <- dimnames(su.cif[["table"]])[[1]]
- keep_curve <- curve_nms %in% c("canD", "othD")
- cif <- cbind(data.table(time = su.cif$time), data.table(su.cif[[prev_var]][, keep_curve]))
-
- testthat::expect_equal(st[, surv.obs] , su.km[, V1], tolerance = 0.0032, scale=1)
-
- testthat::expect_equal(cif$V1, st$CIF_canD, tolerance = 0.0022, scale=1)
- testthat::expect_equal(cif$V2, st$CIF_othD, tolerance = 0.0011, scale=1)
-})
-
-
-# custom status var -------------------------------------------------------
-
-testthat::test_that("survtab status argument works as expected", {
- popEpi:::skip_normally()
-
- BL <- list(fot= seq(0,19,1/12), per=c(2008,2013))
- sr <- sire[dg_date < ex_date, ]
-
- sr$statusf <- factor(sr$status, 0:2, labels = c("alive", "canD", "othD"))
- sr$statusb <- as.integer(sr$status %in% 1:2)
-
- st <- NULL
- x <- lexpand(sr, birth = bi_date, entry = dg_date,
- exit = ex_date, status = status)
- testthat::expect_error(
- suppressWarnings(
- st <- survtab(Surv(fot, lex.Xst) ~ 1, data = x, surv.type = "surv.obs",
- breaks = list(fot = 0:5))
- ),
- regexp = paste0("Some status indicators (3648 values in total) were NA. ",
- "Usual suspects: original status variable has NA values, ",
- "or you have numeric status variable with more than two ",
- "levels and you did not assign e.g. type = 'mstate' ",
- "(e.g. Surv(time = c(1,1,1), event = c(0,1,2), ",
- "type = 'mstate') works)."),
- fixed = TRUE
- )
-
- st <- NULL
- x <- lexpand(sr, birth = bi_date, entry = dg_date,
- exit = ex_date, status = statusf)
- st <- survtab(Surv(fot, lex.Xst) ~ 1, data = x, surv.type = "surv.obs",
- breaks = list(fot = 0:5))
- testthat::expect_equal(class(st)[1L], "survtab")
-
- st <- NULL
- x <- lexpand(sr, birth = bi_date, entry = dg_date,
- exit = ex_date, status = statusb)
- st <- survtab(Surv(fot, lex.Xst) ~ 1, data = x, surv.type = "surv.obs",
- breaks = list(fot = 0:5))
- testthat::expect_equal(class(st)[1L], "survtab")
-
-})
-
-
-testthat::test_that("survtab works with more complicated estimation", {
- library(Epi)
-
- library(data.table)
-
- x <- data.table(popEpi::sire[sire$dg_date < sire$ex_date, ])
-
- ## pretend some are male
- set.seed(1L)
- x$sex <- rbinom(nrow(x), 1, 0.5)
-
- ## period
- x$period <- cut(year(x$dg_date), c(1993,1998,2003,2008,2013), right = FALSE)
-
- # age group
- x$agegr <- cut(x$dg_age, 4)
-
- x$stat <- factor(x$status, levels = 0:2,
- labels = c("alive", "canD", "othD"))
- x$enStat <- factor(rep(0L, nrow(x)), levels = 0:2,
- labels = c("alive", "canD", "othD"))
- xl <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
- exit = list(CAL = get.yrs(ex_date)),
- data = x,
- exit.status = stat, entry.status = enStat,
- merge = TRUE)
-
-
- ## observed survival
- st1 <- survtab(Surv(time = FUT, event = lex.Xst) ~ factor(sex, 0:1, c("male", "female")) + period
- + adjust(agegr), data = xl,
- weights = list(agegr = as.numeric(table(x$agegr))),
- surv.type = "surv.obs",
- breaks = list(FUT = seq(0, 5, 1/12)))
-
- ag <- splitLexisDT(xl, breaks = seq(0, 5, 1/12), timeScale = "FUT")
- ag[, lex.Cst := as.integer(lex.Cst)]
- ag[, lex.Cst := 0L]
- ag[, lex.Xst := as.integer(lex.Xst != "alive")]
- ag <- aggre(ag, by = list(sex, period, agegr, FUT))
-
- st2 <- survtab_ag(FUT ~ factor(sex, 0:1, c("male", "female")) + period + adjust(agegr),
- weights = list(agegr = as.numeric(table(x$agegr))),
- data = ag, surv.type = "surv.obs", d = "from0to1")
-
- testthat::expect_equal(st1$surv.obs.as.lo, st2$surv.obs.as.lo)
- testthat::expect_equivalent(st1, st2)
-})
-
-
-
+testthat::context("CIF's & surv.obs's congruence & comparison w/ survival::survfit")
+
+testthat::test_that("surv.obs about the same as Kaplan-Meier & CIFs close to Aalen-Johansen", {
+
+ BL <- list(fot= seq(0,19,1/12), per=c(2008,2013))
+ sire2 <- sire[dg_date<ex_date, ]
+ sire2$statusf <- factor(sire2$status, levels = 0:2,
+ labels = c("alive", "canD", "othD"))
+
+ x <- lexpand(sire2,
+ birth = bi_date, entry = dg_date, exit = ex_date,
+ status = statusf,
+ breaks=BL)
+ st <- survtab(Surv(fot, event = lex.Xst) ~ 1, data = x, surv.type="cif.obs")
+ setDT(x)
+ setattr(x, "class", c("Lexis", "data.table", "data.frame"))
+ setDT(st)
+
+ testthat::test_that("CIFs and surv.obs sum to 1", {
+ testthat::expect_equal(st[, CIF_canD + CIF_othD + surv.obs] , rep(1, times = st[,.N]), tolerance = 0.0001, scale=1)
+ })
+
+ x <- lexpand(sire2,
+ birth = bi_date, entry = dg_date, exit = ex_date,
+ status = statusf,
+ breaks = BL["per"])
+
+ fb <- setdiff(BL$fot, 0)
+ su.km <- survival::survfit(Surv(time=fot, time2=fot+lex.dur, event = lex.Xst!="alive") ~ 1, data = x, id = lex.id)
+ su.km <- summary(su.km, times = fb)
+ su.km <- cbind(data.table(time = su.km$time), data.table(su.km$surv))
+
+ su.cif <- survival::survfit(Surv(time=fot, time2=fot+lex.dur, event = lex.Xst)~1, data=x, id = lex.id)
+ su.cif <- summary(su.cif, times = fb)
+ ## see issue #125
+ prev_var <- intersect(names(su.cif), c("prev", "pstate"))
+ stopifnot(length(prev_var) == 1L)
+ curve_nms <- dimnames(su.cif[["table"]])[[1]]
+ keep_curve <- curve_nms %in% c("canD", "othD")
+ cif <- cbind(data.table(time = su.cif$time), data.table(su.cif[[prev_var]][, keep_curve]))
+
+ testthat::expect_equal(st[, surv.obs] , su.km[, V1], tolerance = 0.0032, scale=1)
+
+ testthat::expect_equal(cif$V1, st$CIF_canD, tolerance = 0.0022, scale=1)
+ testthat::expect_equal(cif$V2, st$CIF_othD, tolerance = 0.0011, scale=1)
+})
+
+
+# custom status var -------------------------------------------------------
+
+testthat::test_that("survtab status argument works as expected", {
+ popEpi:::skip_normally()
+
+ BL <- list(fot= seq(0,19,1/12), per=c(2008,2013))
+ sr <- sire[dg_date < ex_date, ]
+
+ sr$statusf <- factor(sr$status, 0:2, labels = c("alive", "canD", "othD"))
+ sr$statusb <- as.integer(sr$status %in% 1:2)
+
+ st <- NULL
+ x <- lexpand(sr, birth = bi_date, entry = dg_date,
+ exit = ex_date, status = status)
+ testthat::expect_error(
+ suppressWarnings(
+ st <- survtab(Surv(fot, lex.Xst) ~ 1, data = x, surv.type = "surv.obs",
+ breaks = list(fot = 0:5))
+ ),
+ regexp = paste0("Some status indicators (3648 values in total) were NA. ",
+ "Usual suspects: original status variable has NA values, ",
+ "or you have numeric status variable with more than two ",
+ "levels and you did not assign e.g. type = 'mstate' ",
+ "(e.g. Surv(time = c(1,1,1), event = c(0,1,2), ",
+ "type = 'mstate') works)."),
+ fixed = TRUE
+ )
+
+ st <- NULL
+ x <- lexpand(sr, birth = bi_date, entry = dg_date,
+ exit = ex_date, status = statusf)
+ st <- survtab(Surv(fot, lex.Xst) ~ 1, data = x, surv.type = "surv.obs",
+ breaks = list(fot = 0:5))
+ testthat::expect_equal(class(st)[1L], "survtab")
+
+ st <- NULL
+ x <- lexpand(sr, birth = bi_date, entry = dg_date,
+ exit = ex_date, status = statusb)
+ st <- survtab(Surv(fot, lex.Xst) ~ 1, data = x, surv.type = "surv.obs",
+ breaks = list(fot = 0:5))
+ testthat::expect_equal(class(st)[1L], "survtab")
+
+})
+
+
+testthat::test_that("survtab works with more complicated estimation", {
+ library(Epi)
+
+ library(data.table)
+
+ x <- data.table(popEpi::sire[sire$dg_date < sire$ex_date, ])
+
+ ## pretend some are male
+ set.seed(1L)
+ x$sex <- rbinom(nrow(x), 1, 0.5)
+
+ ## period
+ x$period <- cut(year(x$dg_date), c(1993,1998,2003,2008,2013), right = FALSE)
+
+ # age group
+ x$agegr <- cut(x$dg_age, 4)
+
+ x$stat <- factor(x$status, levels = 0:2,
+ labels = c("alive", "canD", "othD"))
+ x$enStat <- factor(rep(0L, nrow(x)), levels = 0:2,
+ labels = c("alive", "canD", "othD"))
+ xl <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
+ exit = list(CAL = get.yrs(ex_date)),
+ data = x,
+ exit.status = stat, entry.status = enStat,
+ merge = TRUE)
+
+
+ ## observed survival
+ st1 <- survtab(Surv(time = FUT, event = lex.Xst) ~ factor(sex, 0:1, c("male", "female")) + period
+ + adjust(agegr), data = xl,
+ weights = list(agegr = as.numeric(table(x$agegr))),
+ surv.type = "surv.obs",
+ breaks = list(FUT = seq(0, 5, 1/12)))
+
+ ag <- splitLexisDT(xl, breaks = seq(0, 5, 1/12), timeScale = "FUT")
+ ag[, lex.Cst := as.integer(lex.Cst)]
+ ag[, lex.Cst := 0L]
+ ag[, lex.Xst := as.integer(lex.Xst != "alive")]
+ ag <- aggre(ag, by = list(sex, period, agegr, FUT))
+
+ st2 <- survtab_ag(FUT ~ factor(sex, 0:1, c("male", "female")) + period + adjust(agegr),
+ weights = list(agegr = as.numeric(table(x$agegr))),
+ data = ag, surv.type = "surv.obs", d = "from0to1")
+
+ testthat::expect_equal(st1$surv.obs.as.lo, st2$surv.obs.as.lo)
+ testthat::expect_equivalent(st1, st2)
+})
+
+
+
diff --git a/tests/testthat/test_survtab_relative.R b/tests/testthat/test_survtab_relative.R
index a51e2ad..e1d7a2c 100644
--- a/tests/testthat/test_survtab_relative.R
+++ b/tests/testthat/test_survtab_relative.R
@@ -1,196 +1,196 @@
-if (requireNamespace("relsurv")) {
-testthat::context("popEpi::survtab vs. relsurv::rs.surv")
- # survtab vs. relsurv::rs.surv --------------------------------------------
- testthat::test_that("relative survivals about the same as relsurv's", {
-
-
- library(relsurv)
- library(Epi)
-
- # male
- pm <- data.table(popEpi::popmort)
- # pm[, surv := 1L]
- pm[, surv := exp(-haz)]
- pm.m <- cast_simple(pm[sex==0], columns = 'year', rows = 'agegroup', values='surv')
- pm.m[,agegroup := NULL]
- pm.m <- as.matrix(pm.m)
- # female
- pm.f <- cast_simple(pm[sex==1], columns = 'year', rows = 'agegroup', values='surv')
- pm.f[,agegroup := NULL]
- pm.f <- as.matrix(pm.f)
-
- popm <- transrate(pm.m, pm.f, yearlim = c(1951, 2013), int.length = 1)
-
- pm[, surv := NULL]
-
- sire2 <- sire[dg_date<ex_date, ]
- sire2[, Tstop := as.integer(ex_date - dg_date)]
- sire2[, dg_age := as.integer(dg_date - bi_date)]
-
- x <- Lexis(entry = list(age = dg_age, per = dg_date, fot = 0L),
- exit = list(fot = Tstop),
- exit.status = as.integer(status %in% 1:2),
- entry.status = 0L, data = sire2)
- setDT(x)
- setattr(x, "class", c("Lexis","data.table", "data.frame"))
-
- ## rs.surv
- ## sex must be coded c(1,2) (male, female)
- x[, paste0(c("bi", "dg", "ex"), "_date") := lapply(.SD, as.Date),
- .SDcols = paste0(c("bi", "dg", "ex"), "_date")]
- x[, per := as.Date(per)]
- x[, sex := 2L]
- rs.e2 <- rs.surv(Surv(lex.dur, lex.Xst!=0) ~ 1 + ratetable(age=age, sex=sex, year=per),
- ratetable = popm, data = x, method = 'ederer2', type = "fleming-harrington", fin.date=ex_date)
- rs.pp <- rs.surv(Surv(lex.dur, lex.Xst!=0) ~ 1 + ratetable(age=age, sex=sex, year=per),
- ratetable = popm, data = x, method = 'pohar-perme', type = "fleming-harrington", fin.date=ex_date)
- x[, sex := 1L]
-
- ## survtab
- fb <- seq(0, 19, 1/24)
-
- x[, lex.dur := lex.dur/365.242199]
- x[, age := age/365.242199]
- x[, per := get.yrs(per, year.length = "approx")]
-
- setnames(pm, c("year", "agegroup"), c("per", "age"))
- st.e2 <- survtab(Surv(fot, event = lex.Xst) ~ 1, data = x, surv.type="surv.rel",
- relsurv.method="e2", pophaz = pm, breaks = list(fot = fb))
- st.pp <- survtab(Surv(fot, event = lex.Xst) ~ 1, data = x, surv.type="surv.rel",
- relsurv.method="pp", pophaz = pm, breaks = list(fot = fb))
- setDT(st.e2)
- setDT(st.pp)
-
- ## rs.surv
- fb <- fb[-1]
- fbd <- fb*365.242199
-
- su.e2 <- summary(rs.e2, times = fbd)
- su.e2 <- cbind(data.table(time = fb), data.table(su.e2$surv))
- su.pp <- summary(rs.pp, times = fbd)
- su.pp <- cbind(data.table(time = fb), data.table(su.pp$surv))
-
- testthat::expect_equal(st.e2[, r.e2] , su.e2[, V1], tolerance = 0.000226, scale = 1L)
- testthat::expect_equal(st.pp[, r.pp] , su.pp[, V1], tolerance = 0.00292, scale = 1L)
- })
-
- # relpois vs. relsurv::rsadd ---------------------------------------------
-
- testthat::test_that("relpois congruent with relsurv::rsadd", {
- popEpi:::skip_normally()
-
-
- library(relsurv)
-
- # male
- pm <- data.table(popEpi::popmort)
- # pm[, surv := 1L]
- pm[, surv := exp(-haz)]
- pm.m <- cast_simple(pm[sex==0], columns = 'year', rows = 'agegroup', values='surv')
- pm.m[,agegroup := NULL]
- pm.m <- as.matrix(pm.m)
- # female
- pm.f <- cast_simple(pm[sex==1], columns = 'year', rows = 'agegroup', values='surv')
- pm.f[,agegroup := NULL]
- pm.f <- as.matrix(pm.f)
-
- popm <- transrate(pm.m, pm.f, yearlim = c(1951, 2013), int.length = 1)
-
- pm[, surv := NULL]
-
- sire2 <- copy(sire)
- sire2[, Tstop := as.integer(ex_date - dg_date)]
- sire2[, dg_age := as.integer(dg_date - bi_date)]
-
-
- sire2[, agegr := cut(dg_age/365.25, breaks = c(0,45,70,Inf))]
- x <- lexpand(sire2, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status %in% 1:2,
- breaks=list(fot=0:5), pophaz=pm)
- rp <- relpois(x, formula = lex.Xst%in%1:2 ~ -1+FOT+agegr)
- setDT(x)
- setattr(x, "class", c("Lexis", "data.table", "data.frame"))
- sire2[, sex := 2L]
- sire2[, paste0(c("bi", "dg", "ex"), "_date") := lapply(.SD, as.Date),
- .SDcols = paste0(c("bi", "dg", "ex"), "_date")]
-
- rs <- relsurv::rsadd(Surv(Tstop, event = status %in% 1:2) ~ ratetable(age=dg_age, sex=sex, year=dg_date) + agegr,
- int = 0:5,
- ratetable = popm, data = sire2, method = "glm.poi")
-
-
- testthat::expect_equal(coef(rp)[1:5] , coef(rs)[3:7], tolerance = 0.055, scale=1, check.attributes=FALSE)
- })
-
-
-
- testthat::test_that("Ederer I expected survival curve agrees with survival::survexp", {
-
-
- library(relsurv)
- library(Epi)
-
- # male
- pm <- data.table(popEpi::popmort)
- # pm[, surv := 1L]
- pm[, surv := exp(-haz)]
- pm.m <- cast_simple(pm[sex == 0], columns = 'year', rows = 'agegroup', values = 'surv')
- pm.m[,agegroup := NULL]
- pm.m <- as.matrix(pm.m)
- # female
- pm.f <- cast_simple(pm[sex == 1], columns = 'year', rows = 'agegroup', values = 'surv')
- pm.f[,agegroup := NULL]
- pm.f <- as.matrix(pm.f)
-
- popm <- transrate(pm.m, pm.f, yearlim = c(1951, 2013), int.length = 1)
-
- pm[, surv := NULL]
-
- sire2 <- popEpi::sire[dg_date < ex_date, ]
- sire2 <- sire2[1:500, ]
- sire2[, "Tstop" := as.integer(ex_date - dg_date)]
- sire2[, "dg_age" := as.integer(dg_date - bi_date)]
-
- x <- Lexis(entry = list(age = dg_age, per = dg_date, fot = 0L),
- exit = list(fot = Tstop),
- exit.status = as.integer(status %in% 1:2),
- entry.status = 0L, data = sire2)
- setDT(x)
- setattr(x, "class", c("Lexis","data.table", "data.frame"))
- x[, "per" := as.Date(per)]
-
- ## rs.surv
- ## sex must be coded c(1,2) (male, female)
- x[, "sex" := 2L]
-
- fb <- seq(0, 19, 1/24)
- su <- survexp(~1, data = x, ratetab = popm, method = "ederer",
- rmap = list(sex = "female", year = per, age = age),
- times = fb*365.242199)
-
- x[, "sex" := 1L]
- x[, "lex.dur" := max(fb)] ## not really needed but illustrative
- x[, "age" := age/365.242199]
- x[, "per" := get.yrs(per, year.length = "approx")]
-
- setnames(pm, c("year", "agegroup"), c("per", "age"))
- e1 <- comp_e1(x, breaks = list(fot = fb), pophaz = pm, survScale = "fot")
-
- ## rs.surv
- fb <- fb[-1]
- fbd <- fb*365.242199
-
- su <- data.table(time = su$time, surv.exp = su$surv)
- su <- su[time != 0L]
- su[, time := time / 365.242199]
- setnames(su, "time", "fot")
-
- testthat::expect_equal(e1, su, tolerance = 0.000004575, scale = 1L)
- testthat::expect_equal(max(abs(e1$surv.exp - su$surv.exp)), 0L,
- tolerance = 0.0000103, scale = 1L)
-
-
- })
-
-}
-
+if (requireNamespace("relsurv")) {
+testthat::context("popEpi::survtab vs. relsurv::rs.surv")
+ # survtab vs. relsurv::rs.surv --------------------------------------------
+ testthat::test_that("relative survivals about the same as relsurv's", {
+
+
+ library(relsurv)
+ library(Epi)
+
+ # male
+ pm <- data.table(popEpi::popmort)
+ # pm[, surv := 1L]
+ pm[, surv := exp(-haz)]
+ pm.m <- cast_simple(pm[sex==0], columns = 'year', rows = 'agegroup', values='surv')
+ pm.m[,agegroup := NULL]
+ pm.m <- as.matrix(pm.m)
+ # female
+ pm.f <- cast_simple(pm[sex==1], columns = 'year', rows = 'agegroup', values='surv')
+ pm.f[,agegroup := NULL]
+ pm.f <- as.matrix(pm.f)
+
+ popm <- transrate(pm.m, pm.f, yearlim = c(1951, 2013), int.length = 1)
+
+ pm[, surv := NULL]
+
+ sire2 <- sire[dg_date<ex_date, ]
+ sire2[, Tstop := as.integer(ex_date - dg_date)]
+ sire2[, dg_age := as.integer(dg_date - bi_date)]
+
+ x <- Lexis(entry = list(age = dg_age, per = dg_date, fot = 0L),
+ exit = list(fot = Tstop),
+ exit.status = as.integer(status %in% 1:2),
+ entry.status = 0L, data = sire2)
+ setDT(x)
+ setattr(x, "class", c("Lexis","data.table", "data.frame"))
+
+ ## rs.surv
+ ## sex must be coded c(1,2) (male, female)
+ x[, paste0(c("bi", "dg", "ex"), "_date") := lapply(.SD, as.Date),
+ .SDcols = paste0(c("bi", "dg", "ex"), "_date")]
+ x[, per := as.Date(per)]
+ x[, sex := 2L]
+ rs.e2 <- rs.surv(Surv(lex.dur, lex.Xst!=0) ~ 1 + ratetable(age=age, sex=sex, year=per),
+ ratetable = popm, data = x, method = 'ederer2', type = "fleming-harrington", fin.date=ex_date)
+ rs.pp <- rs.surv(Surv(lex.dur, lex.Xst!=0) ~ 1 + ratetable(age=age, sex=sex, year=per),
+ ratetable = popm, data = x, method = 'pohar-perme', type = "fleming-harrington", fin.date=ex_date)
+ x[, sex := 1L]
+
+ ## survtab
+ fb <- seq(0, 19, 1/24)
+
+ x[, lex.dur := lex.dur/365.242199]
+ x[, age := age/365.242199]
+ x[, per := get.yrs(per, year.length = "approx")]
+
+ setnames(pm, c("year", "agegroup"), c("per", "age"))
+ st.e2 <- survtab(Surv(fot, event = lex.Xst) ~ 1, data = x, surv.type="surv.rel",
+ relsurv.method="e2", pophaz = pm, breaks = list(fot = fb))
+ st.pp <- survtab(Surv(fot, event = lex.Xst) ~ 1, data = x, surv.type="surv.rel",
+ relsurv.method="pp", pophaz = pm, breaks = list(fot = fb))
+ setDT(st.e2)
+ setDT(st.pp)
+
+ ## rs.surv
+ fb <- fb[-1]
+ fbd <- fb*365.242199
+
+ su.e2 <- summary(rs.e2, times = fbd)
+ su.e2 <- cbind(data.table(time = fb), data.table(su.e2$surv))
+ su.pp <- summary(rs.pp, times = fbd)
+ su.pp <- cbind(data.table(time = fb), data.table(su.pp$surv))
+
+ testthat::expect_equal(st.e2[, r.e2] , su.e2[, V1], tolerance = 0.000226, scale = 1L)
+ testthat::expect_equal(st.pp[, r.pp] , su.pp[, V1], tolerance = 0.00292, scale = 1L)
+ })
+
+ # relpois vs. relsurv::rsadd ---------------------------------------------
+
+ testthat::test_that("relpois congruent with relsurv::rsadd", {
+ popEpi:::skip_normally()
+
+
+ library(relsurv)
+
+ # male
+ pm <- data.table(popEpi::popmort)
+ # pm[, surv := 1L]
+ pm[, surv := exp(-haz)]
+ pm.m <- cast_simple(pm[sex==0], columns = 'year', rows = 'agegroup', values='surv')
+ pm.m[,agegroup := NULL]
+ pm.m <- as.matrix(pm.m)
+ # female
+ pm.f <- cast_simple(pm[sex==1], columns = 'year', rows = 'agegroup', values='surv')
+ pm.f[,agegroup := NULL]
+ pm.f <- as.matrix(pm.f)
+
+ popm <- transrate(pm.m, pm.f, yearlim = c(1951, 2013), int.length = 1)
+
+ pm[, surv := NULL]
+
+ sire2 <- copy(sire)
+ sire2[, Tstop := as.integer(ex_date - dg_date)]
+ sire2[, dg_age := as.integer(dg_date - bi_date)]
+
+
+ sire2[, agegr := cut(dg_age/365.25, breaks = c(0,45,70,Inf))]
+ x <- lexpand(sire2, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status %in% 1:2,
+ breaks=list(fot=0:5), pophaz=pm)
+ rp <- relpois(x, formula = lex.Xst%in%1:2 ~ -1+FOT+agegr)
+ setDT(x)
+ setattr(x, "class", c("Lexis", "data.table", "data.frame"))
+ sire2[, sex := 2L]
+ sire2[, paste0(c("bi", "dg", "ex"), "_date") := lapply(.SD, as.Date),
+ .SDcols = paste0(c("bi", "dg", "ex"), "_date")]
+
+ rs <- relsurv::rsadd(Surv(Tstop, event = status %in% 1:2) ~ ratetable(age=dg_age, sex=sex, year=dg_date) + agegr,
+ int = 0:5,
+ ratetable = popm, data = sire2, method = "glm.poi")
+
+
+ testthat::expect_equal(coef(rp)[1:5] , coef(rs)[3:7], tolerance = 0.055, scale=1, check.attributes=FALSE)
+ })
+
+
+
+ testthat::test_that("Ederer I expected survival curve agrees with survival::survexp", {
+
+
+ library(relsurv)
+ library(Epi)
+
+ # male
+ pm <- data.table(popEpi::popmort)
+ # pm[, surv := 1L]
+ pm[, surv := exp(-haz)]
+ pm.m <- cast_simple(pm[sex == 0], columns = 'year', rows = 'agegroup', values = 'surv')
+ pm.m[,agegroup := NULL]
+ pm.m <- as.matrix(pm.m)
+ # female
+ pm.f <- cast_simple(pm[sex == 1], columns = 'year', rows = 'agegroup', values = 'surv')
+ pm.f[,agegroup := NULL]
+ pm.f <- as.matrix(pm.f)
+
+ popm <- transrate(pm.m, pm.f, yearlim = c(1951, 2013), int.length = 1)
+
+ pm[, surv := NULL]
+
+ sire2 <- popEpi::sire[dg_date < ex_date, ]
+ sire2 <- sire2[1:500, ]
+ sire2[, "Tstop" := as.integer(ex_date - dg_date)]
+ sire2[, "dg_age" := as.integer(dg_date - bi_date)]
+
+ x <- Lexis(entry = list(age = dg_age, per = dg_date, fot = 0L),
+ exit = list(fot = Tstop),
+ exit.status = as.integer(status %in% 1:2),
+ entry.status = 0L, data = sire2)
+ setDT(x)
+ setattr(x, "class", c("Lexis","data.table", "data.frame"))
+ x[, "per" := as.Date(per)]
+
+ ## rs.surv
+ ## sex must be coded c(1,2) (male, female)
+ x[, "sex" := 2L]
+
+ fb <- seq(0, 19, 1/24)
+ su <- survexp(~1, data = x, ratetab = popm, method = "ederer",
+ rmap = list(sex = "female", year = per, age = age),
+ times = fb*365.242199)
+
+ x[, "sex" := 1L]
+ x[, "lex.dur" := max(fb)] ## not really needed but illustrative
+ x[, "age" := age/365.242199]
+ x[, "per" := get.yrs(per, year.length = "approx")]
+
+ setnames(pm, c("year", "agegroup"), c("per", "age"))
+ e1 <- comp_e1(x, breaks = list(fot = fb), pophaz = pm, survScale = "fot")
+
+ ## rs.surv
+ fb <- fb[-1]
+ fbd <- fb*365.242199
+
+ su <- data.table(time = su$time, surv.exp = su$surv)
+ su <- su[time != 0L]
+ su[, time := time / 365.242199]
+ setnames(su, "time", "fot")
+
+ testthat::expect_equal(e1, su, tolerance = 0.000004575, scale = 1L)
+ testthat::expect_equal(max(abs(e1$surv.exp - su$surv.exp)), 0L,
+ tolerance = 0.0000103, scale = 1L)
+
+
+ })
+
+}
+
diff --git a/tests/testthat/test_survtab_usage.R b/tests/testthat/test_survtab_usage.R
index 0940ea5..514debb 100644
--- a/tests/testthat/test_survtab_usage.R
+++ b/tests/testthat/test_survtab_usage.R
@@ -1,484 +1,484 @@
-testthat::context("survtab usage")
-
-
-
-testthat::test_that("Dates and frac. yrs produce congruent results", {
- popEpi:::skip_normally()
- library(Epi)
-
- x <- data.table(popEpi::sire)
- x <- x[dg_date<ex_date]
-
- ## phony group variable
- set.seed(1L)
- x$group <- rbinom(nrow(x), 1, 0.5)
-
-
- ## yrs
- xy <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
- exit = list(CAL = get.yrs(ex_date)),
- data = x,
- entry.status = 0L,
- exit.status = as.integer(status %in% 1:2),
- merge = TRUE)
-
- ## dates
- xd <- Lexis(entry = list(FUT = 0L, AGE = dg_date-bi_date, CAL = dg_date),
- exit = list(CAL = ex_date),
- data = x,
- entry.status = 0L,
- exit.status = as.integer(status %in% 1:2),
- merge = TRUE)
- yd <- 365.242199
- BLy <- list(FUT = seq(0, 5, 1/4))
- BLd <- lapply(BLy, function(el) el * yd)
-
- pmy <- data.table(popEpi::popmort)
- setnames(pmy, c("year", "agegroup"), c("CAL", "AGE"))
-
- pmd <- data.table(pmy)
- pmd[, CAL := as.Date(paste0(CAL, "-01-01"))]
- pmd[, AGE := AGE * yd]
- pmd[, haz := haz/yd]
-
- #### hazard method
- ## observed survival & Ederer II
-
- sty <- survtab(Surv(FUT, lex.Xst) ~ group, data = xy,
- surv.type = "surv.rel", relsurv.method = "e2",
- surv.method = "hazard",
- breaks = BLy, pophaz = pmy)
-
- std <- survtab(Surv(FUT, lex.Xst) ~ group, data = xd,
- surv.type = "surv.rel", relsurv.method = "e2",
- surv.method = "hazard",
- breaks = BLd, pophaz = pmd)
-
- testthat::expect_equal(sty$surv.obs.lo, std$surv.obs.lo, scale = 1L, tolerance = 0.0005)
- testthat::expect_equal(sty$surv.obs, std$surv.obs, scale = 1L, tolerance = 0.0005)
- testthat::expect_equal(sty$surv.obs.hi, std$surv.obs.hi, scale = 1L, tolerance = 0.0005)
- testthat::expect_equal(sty$r.e2.lo, std$r.e2.lo, scale = 1L, tolerance = 0.0005)
- testthat::expect_equal(sty$r.e2, std$r.e2, scale = 1L, tolerance = 0.0005)
- testthat::expect_equal(sty$r.e2.hi, std$r.e2.hi, scale = 1L, tolerance = 0.0005)
-
- ## pohar perme
-
- sty <- survtab(Surv(FUT, lex.Xst) ~ group, data = xy,
- surv.type = "surv.rel", relsurv.method = "pp",
- surv.method = "hazard",
- breaks = BLy, pophaz = pmy)
-
- std <- survtab(Surv(FUT, lex.Xst) ~ group, data = xd,
- surv.type = "surv.rel", relsurv.method = "pp",
- surv.method = "hazard",
- breaks = BLd, pophaz = pmd)
-
- testthat::expect_equal(sty$r.pp.lo, std$r.pp.lo, scale = 1L, tolerance = 0.0005)
- testthat::expect_equal(sty$r.pp, std$r.pp, scale = 1L, tolerance = 0.0005)
- testthat::expect_equal(sty$r.pp.hi, std$r.pp.hi, scale = 1L, tolerance = 0.0005)
-
- #### lifetable method
- ## observed survival & Ederer II
-
- sty <- survtab(Surv(FUT, lex.Xst) ~ group, data = xy,
- surv.type = "surv.rel", relsurv.method = "e2",
- surv.method = "lifetable",
- breaks = BLy, pophaz = pmy)
-
- std <- survtab(Surv(FUT, lex.Xst) ~ group, data = xd,
- surv.type = "surv.rel", relsurv.method = "e2",
- surv.method = "lifetable",
- breaks = BLd, pophaz = pmd)
-
- testthat::expect_equal(sty$surv.obs.lo, std$surv.obs.lo, scale = 1L, tolerance = 0.0005)
- testthat::expect_equal(sty$surv.obs, std$surv.obs, scale = 1L, tolerance = 0.0005)
- testthat::expect_equal(sty$surv.obs.hi, std$surv.obs.hi, scale = 1L, tolerance = 0.0005)
- testthat::expect_equal(sty$r.e2.lo, std$r.e2.lo, scale = 1L, tolerance = 0.0005)
- testthat::expect_equal(sty$r.e2, std$r.e2, scale = 1L, tolerance = 0.0005)
- testthat::expect_equal(sty$r.e2.hi, std$r.e2.hi, scale = 1L, tolerance = 0.0005)
-
- ## pohar perme
-
- sty <- survtab(Surv(FUT, lex.Xst) ~ group, data = xy,
- surv.type = "surv.rel", relsurv.method = "pp",
- surv.method = "lifetable",
- breaks = BLy, pophaz = pmy)
-
- std <- survtab(Surv(FUT, lex.Xst) ~ group, data = xd,
- surv.type = "surv.rel", relsurv.method = "pp",
- surv.method = "lifetable",
- breaks = BLd, pophaz = pmd)
-
- testthat::expect_equal(sty$r.pp.lo, std$r.pp.lo, scale = 1L, tolerance = 0.0005)
- testthat::expect_equal(sty$r.pp, std$r.pp, scale = 1L, tolerance = 0.0005)
- testthat::expect_equal(sty$r.pp.hi, std$r.pp.hi, scale = 1L, tolerance = 0.0005)
-
-})
-
-
-
-testthat::test_that("hazard and lifetable produce congruent results", {
- popEpi:::skip_normally()
- library(Epi)
-
- x <- data.table(popEpi::sire)
- x <- x[dg_date<ex_date]
-
- ## phony group variable
- set.seed(1L)
- x$group <- rbinom(nrow(x), 1, 0.5)
-
-
- xy <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
- exit = list(CAL = get.yrs(ex_date)),
- data = x,
- entry.status = 0L,
- exit.status = as.integer(status %in% 1:2),
- merge = TRUE)
-
-
- pmy <- data.table(popEpi::popmort)
- setnames(pmy, c("year", "agegroup"), c("CAL", "AGE"))
- BL <- list(FUT = seq(0, 5, 1/12))
-
- sth <- survtab(Surv(FUT, lex.Xst) ~ group, data = xy,
- pophaz = pmy, breaks = BL,
- surv.type = "surv.rel", surv.method = "hazard")
-
- stl <- survtab(Surv(FUT, lex.Xst) ~ group, data = xy,
- pophaz = pmy, breaks = BL,
- surv.type = "surv.rel", surv.method = "lifetable")
-
- testthat::expect_equal(sth$r.e2, stl$r.e2, scale = 1, tol = 0.0003415)
- testthat::expect_equal(sth$r.e2.lo, stl$r.e2.lo, scale = 1, tol = 0.000354)
- testthat::expect_equal(sth$r.e2.hi, stl$r.e2.hi, scale = 1, tol = 0.00033)
-
- testthat::expect_equal(sth$surv.obs, stl$surv.obs, scale = 1, tol = 0.00002575)
- testthat::expect_equal(sth$surv.obs.lo, stl$surv.obs.lo, scale = 1, tol = 0.000027)
- testthat::expect_equal(sth$surv.obs.hi, stl$surv.obs.hi, scale = 1, tol = 0.000025)
-
-})
-
-## test below even should not work, since period analysis
-## means that at.risk counts (subjects entering an interval in its beginning)
-## will not necessarily equal the counts of events.
-# test_that("lifetable counts work with period analysis", {
-# library(Epi)
-# x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
-# exit = list(CAL = get.yrs(ex_date)),
-# data = sire[sire$dg_date < sire$ex_date, ],
-# exit.status = as.integer(status %in% 1:2),
-# entry.status = 0,
-# merge = TRUE)
-#
-# ## phony group variable
-# set.seed(1L)
-# x$group <- rbinom(nrow(x), 1, 0.5)
-#
-# BL <- list(FUT = seq(0, 5, 1/12), CAL = c(2008,2013))
-# x <- splitMulti(x, BL)
-#
-# st1 <- survtab(Surv(FUT, lex.Xst) ~ 1, data = x,
-# surv.type = "surv.obs",
-# surv.method = "lifetable")
-#
-# a <- aggre(x, by = FUT)
-#
-# st2 <- survtab_ag(FUT ~ 1, data = a, surv.type = "surv.obs",
-# surv.method = "lifetable",
-# n = "at.risk", d = c("from0to1"),
-# n.cens = "from0to0", pyrs = "pyrs")
-#
-# expect_equal(st1$surv.obs, st2$surv.obs)
-#
-# })
-
-
-testthat::test_that("its possible to pass dynamically created arguments", {
- popEpi:::skip_normally()
- library(Epi)
-
- x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
- exit = list(CAL = get.yrs(ex_date)),
- data = sire[sire$dg_date < sire$ex_date, ],
- exit.status = as.integer(status %in% 1:2),
- entry.status = 0,
- merge = TRUE)
-
- TF <- environment()
-
- ## phony group variable
- set.seed(1L)
- x$group <- rbinom(nrow(x), 1, 0.5)
- agegr <- cut(x$dg_age, 4, right = FALSE)
- x$agegr <- NULL
- w <- as.data.frame(table(agegr))
- names(w) <- c("agegr", "weights")
-
- BL <- list(FUT = seq(0, 5, 1/12), CAL = c(2008,2013))
-
- form <- Surv(FUT, lex.Xst) ~ group
-
-
- st1 <- survtab(form, data = x,
- adjust = agegr,
- weights = w, breaks = BL,
- surv.type = "surv.obs",
- surv.method = "hazard")
-
- x <- splitMulti(x, breaks = BL)
- x$agegr <- cut(x$dg_age, 4, right = FALSE)
- a <- aggre(x, by = list(group, agegr, FUT))
-
- group <- a$group
- set(a, j = "group", value = NULL)
-
- form <- FUT ~ group + adjust(agegr)
- pyrs <- a$pyrs
- set(a, j = "pyrs", value = NULL)
-
- st2 <- survtab_ag(form, data = a, surv.type = "surv.obs",
- surv.method = "hazard",
- d = c("from0to1"),
- weights = "internal",
- pyrs = pyrs)
-
- testthat::expect_equal(st1$surv.obs, st2$surv.obs)
-
-})
-
-
-testthat::test_that("getCall & formula methods for survtab work", {
- data("sire")
- BL <- list(fot=seq(0, 5, by = 1/12),
- per = c("2008-01-01", "2013-01-01"))
- set.seed(1)
- x <- lexpand(sire[sample(1:.N, 100)],
- birth = bi_date, entry = dg_date, exit = ex_date,
- status = status %in% 1:2,
- breaks = BL,
- pophaz = popmort,
- aggre = list(sex, fot))
- form <- fot ~ sex
- e <- quote(survtab_ag(formula = form, data = x))
- st <- eval(e)
-
- testthat::expect_equal(formula(st), form)
- testthat::expect_equal(getCall(st), e)
-
-})
-
-
-
-
-
-testthat::test_that("survtab_ag allows for certain arguments to be length > 1", {
- data(sire)
- set.seed(1)
- sire <- sire[sample(1:.N, 100)]
-
- BL <- list(fot=0:5)
- x <- lexpand(sire,
- birth = bi_date, entry = dg_date, exit = ex_date,
- status = status,
- breaks = BL,
- pophaz = popmort,
- aggre = list(fot))
-
- st1 <- survtab_ag(fot ~ 1, data = x,
- surv.method = "lifetable",
- n.cens = c("from0to0", "from0to2"), d = "from0to1")
- st2 <- survtab_ag(fot ~ 1, data = x,
- surv.method = "lifetable",
- relsurv.method = "pp",
- n.cens = c("from0to0", "from0to2"),
- d = "from0to1",
- d.pp = "from0to1.pp",
- d.pp.2 = "from0to1.pp.2",
- n.pp = "at.risk.pp",
- n.cens.pp = c("from0to0.pp", "from0to2.pp"))
- st3 <- survtab_ag(fot ~ 1, data = x,
- surv.method = "lifetable",
- relsurv.method = "pp",
- d = c("from0to0", "from0to2"),
- n.cens = "from0to1",
- n.cens.pp = "from0to1.pp",
- n.pp = "at.risk.pp",
- d.pp = c("from0to0.pp", "from0to2.pp"),
- d.pp.2 = c("from0to0.pp.2", "from0to2.pp.2"))
-
- testthat::expect_true("surv.obs" %in% names(st1))
- testthat::expect_true("surv.obs" %in% names(st2))
- testthat::expect_true("surv.obs" %in% names(st3))
- testthat::expect_equal(st1[["surv_obs"]], st2[["surv_obs"]])
- testthat::expect_equal(st2[["surv_obs"]], st3[["surv_obs"]])
-
-})
-
-
-
-
-
-testthat::test_that("update() works with survtab objects", {
- data(sire)
- set.seed(1)
- sire <- sire[sample(1:.N, 100)]
-
- BL <- list(fot=seq(0, 5, by = 1/12),
- per = c("2008-01-01", "2013-01-01"))
- x <- lexpand(sire,
- birth = bi_date, entry = dg_date, exit = ex_date,
- status = status %in% 1:2,
- breaks = BL,
- pophaz = popmort,
- aggre = list(sex, fot))
-
-
- st <- survtab_ag(fot ~ 1, data = x)
- sts <- survtab_ag(fot ~ sex, data = x)
-
- testthat::expect_equal(sts, update(st, formula. = fot ~ sex))
-
-
- library(Epi)
-
- x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
- exit = list(CAL = get.yrs(ex_date)),
- data = sire[sire$dg_date < sire$ex_date, ],
- entry.status = 0L,
- exit.status = as.integer(status %in% 1:2),
- merge = TRUE)
-
- set.seed(1L)
- x$group <- rbinom(nrow(x), 1, 0.5)
-
- st <- survtab(FUT ~ group, data = x,
- surv.type = "surv.obs",
- breaks = list(FUT = seq(0, 5, 1/12)))
-
- sts <- survtab(FUT ~ 1, data = x,
- surv.type = "surv.obs",
- breaks = list(FUT = seq(0, 5, 1/12)))
-
- testthat::expect_equal(sts, update(st, . ~ -group))
-
-})
-
-
-
-
-
-testthat::test_that("internal weights work as intended", {
- library("data.table")
- data("sire")
- sire$agegr <- cut(sire$dg_age,c(0,45,55,65,75,Inf),right=FALSE)
- BL <- list(fot=seq(0, 5, by = 1/12),
- per = c("2008-01-01", "2013-01-01"))
- x <- lexpand(sire, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status %in% 1:2,
- breaks = BL,
- pophaz = popmort,
- aggre = list(fot,agegr))
-
- ## age standardisation using internal weights (age distribution of
- ## patients diagnosed within the period window)
- w <- x[fot == 0, .(weights = sum(at.risk)), keyby = agegr]
-
- st <- survtab_ag(fot ~ adjust(agegr), data = x, weights=w)
-
- st2 <- survtab_ag(fot ~ adjust(agegr), data = x, weights = "internal")
-
- testthat::expect_equal(st$surv.obs.as.lo, st2$surv.obs.as.lo)
-
-})
-
-
-
-
-
-testthat::test_that("survtab_ag works with bare data.frames", {
-
- data(sire)
-
- BL <- list(fot = 0:5,
- per = c("2008-01-01", "2013-01-01"))
- x <- lexpand(sire, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status %in% 1:2,
- breaks = BL,
- aggre = list(fot))
-
- e <- quote(survtab_ag(fot ~ 1, data = x, surv.type = "surv.obs"))
- eb <- quote(survtab_ag(fot ~ 1, data = x, surv.type = "surv.obs",
- surv.breaks = 0:5))
-
- la <- list(eval(e), eval(eb))
- testthat::expect_equal(la[[1]]$surv.obs.hi, la[[2]]$surv.obs.hi)
-
-
- x <- data.frame(x)
- er <- paste0("Data did not contain breaks and no breaks ",
- "were supplied by hand.")
- testthat::expect_error(eval(e), regexp = er)
- testthat::expect_equal(eval(eb)$surv.obs.hi, la[[2]]$surv.obs.hi)
-
-})
-
-
-
-
-
-
-testthat::test_that("confidence intervals are as intended", {
- popEpi:::skip_normally()
-
- library(Epi)
-
-
- ## NOTE: recommended to use factor status variable
- x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
- exit = list(CAL = get.yrs(ex_date)),
- data = popEpi::sire[sire$dg_date < sire$ex_date, ],
- entry.status = 0L,
- exit.status = as.integer(status %in% 1:2),
- merge = TRUE)
-
- ## phony group variable
- set.seed(1L)
- x$group <- rbinom(nrow(x), 1, 0.5)
-
- ## log-log transformation
- st <- survtab(FUT ~ group, data = x,
- surv.type = "surv.obs",
- breaks = list(FUT = seq(0, 5, 1/12)),
- conf.type = "log-log", conf.level = 0.99)
-
- dt <- data.table(st)
- dt[, "SE.A" := sqrt(SE.surv.obs^2*(1/(surv.obs*log(surv.obs)))^2)]
- dt[, "s.lo" := surv.obs^exp(qnorm(0.995)*SE.A)]
- dt[, "s.hi" := surv.obs^exp(qnorm(0.005)*SE.A)]
-
- testthat::expect_equal(dt[, .(lo = surv.obs.lo, hi = surv.obs.hi)],
- dt[, .(lo = s.lo, hi = s.hi)])
-
- ## log transformation
- st <- survtab(FUT ~ group, data = x,
- surv.type = "surv.obs",
- breaks = list(FUT = seq(0, 5, 1/12)),
- conf.type = "log", conf.level = 0.80)
-
- dt <- data.table(st)
- dt[, "SE.A" := SE.surv.obs/surv.obs]
- dt[, "s.lo" := surv.obs*exp(qnorm(0.10)*SE.A)]
- dt[, "s.hi" := surv.obs*exp(qnorm(0.90)*SE.A)]
-
- testthat::expect_equal(dt[, .(lo = surv.obs.lo, hi = surv.obs.hi)],
- dt[, .(lo = s.lo, hi = s.hi)])
-
-
-})
-
-
-
-
-
-
+testthat::context("survtab usage")
+
+
+
+testthat::test_that("Dates and frac. yrs produce congruent results", {
+ popEpi:::skip_normally()
+ library(Epi)
+
+ x <- data.table(popEpi::sire)
+ x <- x[dg_date<ex_date]
+
+ ## phony group variable
+ set.seed(1L)
+ x$group <- rbinom(nrow(x), 1, 0.5)
+
+
+ ## yrs
+ xy <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
+ exit = list(CAL = get.yrs(ex_date)),
+ data = x,
+ entry.status = 0L,
+ exit.status = as.integer(status %in% 1:2),
+ merge = TRUE)
+
+ ## dates
+ xd <- Lexis(entry = list(FUT = 0L, AGE = dg_date-bi_date, CAL = dg_date),
+ exit = list(CAL = ex_date),
+ data = x,
+ entry.status = 0L,
+ exit.status = as.integer(status %in% 1:2),
+ merge = TRUE)
+ yd <- 365.242199
+ BLy <- list(FUT = seq(0, 5, 1/4))
+ BLd <- lapply(BLy, function(el) el * yd)
+
+ pmy <- data.table(popEpi::popmort)
+ setnames(pmy, c("year", "agegroup"), c("CAL", "AGE"))
+
+ pmd <- data.table(pmy)
+ pmd[, CAL := as.Date(paste0(CAL, "-01-01"))]
+ pmd[, AGE := AGE * yd]
+ pmd[, haz := haz/yd]
+
+ #### hazard method
+ ## observed survival & Ederer II
+
+ sty <- survtab(Surv(FUT, lex.Xst) ~ group, data = xy,
+ surv.type = "surv.rel", relsurv.method = "e2",
+ surv.method = "hazard",
+ breaks = BLy, pophaz = pmy)
+
+ std <- survtab(Surv(FUT, lex.Xst) ~ group, data = xd,
+ surv.type = "surv.rel", relsurv.method = "e2",
+ surv.method = "hazard",
+ breaks = BLd, pophaz = pmd)
+
+ testthat::expect_equal(sty$surv.obs.lo, std$surv.obs.lo, scale = 1L, tolerance = 0.0005)
+ testthat::expect_equal(sty$surv.obs, std$surv.obs, scale = 1L, tolerance = 0.0005)
+ testthat::expect_equal(sty$surv.obs.hi, std$surv.obs.hi, scale = 1L, tolerance = 0.0005)
+ testthat::expect_equal(sty$r.e2.lo, std$r.e2.lo, scale = 1L, tolerance = 0.0005)
+ testthat::expect_equal(sty$r.e2, std$r.e2, scale = 1L, tolerance = 0.0005)
+ testthat::expect_equal(sty$r.e2.hi, std$r.e2.hi, scale = 1L, tolerance = 0.0005)
+
+ ## pohar perme
+
+ sty <- survtab(Surv(FUT, lex.Xst) ~ group, data = xy,
+ surv.type = "surv.rel", relsurv.method = "pp",
+ surv.method = "hazard",
+ breaks = BLy, pophaz = pmy)
+
+ std <- survtab(Surv(FUT, lex.Xst) ~ group, data = xd,
+ surv.type = "surv.rel", relsurv.method = "pp",
+ surv.method = "hazard",
+ breaks = BLd, pophaz = pmd)
+
+ testthat::expect_equal(sty$r.pp.lo, std$r.pp.lo, scale = 1L, tolerance = 0.0005)
+ testthat::expect_equal(sty$r.pp, std$r.pp, scale = 1L, tolerance = 0.0005)
+ testthat::expect_equal(sty$r.pp.hi, std$r.pp.hi, scale = 1L, tolerance = 0.0005)
+
+ #### lifetable method
+ ## observed survival & Ederer II
+
+ sty <- survtab(Surv(FUT, lex.Xst) ~ group, data = xy,
+ surv.type = "surv.rel", relsurv.method = "e2",
+ surv.method = "lifetable",
+ breaks = BLy, pophaz = pmy)
+
+ std <- survtab(Surv(FUT, lex.Xst) ~ group, data = xd,
+ surv.type = "surv.rel", relsurv.method = "e2",
+ surv.method = "lifetable",
+ breaks = BLd, pophaz = pmd)
+
+ testthat::expect_equal(sty$surv.obs.lo, std$surv.obs.lo, scale = 1L, tolerance = 0.0005)
+ testthat::expect_equal(sty$surv.obs, std$surv.obs, scale = 1L, tolerance = 0.0005)
+ testthat::expect_equal(sty$surv.obs.hi, std$surv.obs.hi, scale = 1L, tolerance = 0.0005)
+ testthat::expect_equal(sty$r.e2.lo, std$r.e2.lo, scale = 1L, tolerance = 0.0005)
+ testthat::expect_equal(sty$r.e2, std$r.e2, scale = 1L, tolerance = 0.0005)
+ testthat::expect_equal(sty$r.e2.hi, std$r.e2.hi, scale = 1L, tolerance = 0.0005)
+
+ ## pohar perme
+
+ sty <- survtab(Surv(FUT, lex.Xst) ~ group, data = xy,
+ surv.type = "surv.rel", relsurv.method = "pp",
+ surv.method = "lifetable",
+ breaks = BLy, pophaz = pmy)
+
+ std <- survtab(Surv(FUT, lex.Xst) ~ group, data = xd,
+ surv.type = "surv.rel", relsurv.method = "pp",
+ surv.method = "lifetable",
+ breaks = BLd, pophaz = pmd)
+
+ testthat::expect_equal(sty$r.pp.lo, std$r.pp.lo, scale = 1L, tolerance = 0.0005)
+ testthat::expect_equal(sty$r.pp, std$r.pp, scale = 1L, tolerance = 0.0005)
+ testthat::expect_equal(sty$r.pp.hi, std$r.pp.hi, scale = 1L, tolerance = 0.0005)
+
+})
+
+
+
+testthat::test_that("hazard and lifetable produce congruent results", {
+ popEpi:::skip_normally()
+ library(Epi)
+
+ x <- data.table(popEpi::sire)
+ x <- x[dg_date<ex_date]
+
+ ## phony group variable
+ set.seed(1L)
+ x$group <- rbinom(nrow(x), 1, 0.5)
+
+
+ xy <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
+ exit = list(CAL = get.yrs(ex_date)),
+ data = x,
+ entry.status = 0L,
+ exit.status = as.integer(status %in% 1:2),
+ merge = TRUE)
+
+
+ pmy <- data.table(popEpi::popmort)
+ setnames(pmy, c("year", "agegroup"), c("CAL", "AGE"))
+ BL <- list(FUT = seq(0, 5, 1/12))
+
+ sth <- survtab(Surv(FUT, lex.Xst) ~ group, data = xy,
+ pophaz = pmy, breaks = BL,
+ surv.type = "surv.rel", surv.method = "hazard")
+
+ stl <- survtab(Surv(FUT, lex.Xst) ~ group, data = xy,
+ pophaz = pmy, breaks = BL,
+ surv.type = "surv.rel", surv.method = "lifetable")
+
+ testthat::expect_equal(sth$r.e2, stl$r.e2, scale = 1, tol = 0.0003415)
+ testthat::expect_equal(sth$r.e2.lo, stl$r.e2.lo, scale = 1, tol = 0.000354)
+ testthat::expect_equal(sth$r.e2.hi, stl$r.e2.hi, scale = 1, tol = 0.00033)
+
+ testthat::expect_equal(sth$surv.obs, stl$surv.obs, scale = 1, tol = 0.00002575)
+ testthat::expect_equal(sth$surv.obs.lo, stl$surv.obs.lo, scale = 1, tol = 0.000027)
+ testthat::expect_equal(sth$surv.obs.hi, stl$surv.obs.hi, scale = 1, tol = 0.000025)
+
+})
+
+## test below even should not work, since period analysis
+## means that at.risk counts (subjects entering an interval in its beginning)
+## will not necessarily equal the counts of events.
+# test_that("lifetable counts work with period analysis", {
+# library(Epi)
+# x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
+# exit = list(CAL = get.yrs(ex_date)),
+# data = sire[sire$dg_date < sire$ex_date, ],
+# exit.status = as.integer(status %in% 1:2),
+# entry.status = 0,
+# merge = TRUE)
+#
+# ## phony group variable
+# set.seed(1L)
+# x$group <- rbinom(nrow(x), 1, 0.5)
+#
+# BL <- list(FUT = seq(0, 5, 1/12), CAL = c(2008,2013))
+# x <- splitMulti(x, BL)
+#
+# st1 <- survtab(Surv(FUT, lex.Xst) ~ 1, data = x,
+# surv.type = "surv.obs",
+# surv.method = "lifetable")
+#
+# a <- aggre(x, by = FUT)
+#
+# st2 <- survtab_ag(FUT ~ 1, data = a, surv.type = "surv.obs",
+# surv.method = "lifetable",
+# n = "at.risk", d = c("from0to1"),
+# n.cens = "from0to0", pyrs = "pyrs")
+#
+# expect_equal(st1$surv.obs, st2$surv.obs)
+#
+# })
+
+
+testthat::test_that("its possible to pass dynamically created arguments", {
+ popEpi:::skip_normally()
+ library(Epi)
+
+ x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
+ exit = list(CAL = get.yrs(ex_date)),
+ data = sire[sire$dg_date < sire$ex_date, ],
+ exit.status = as.integer(status %in% 1:2),
+ entry.status = 0,
+ merge = TRUE)
+
+ TF <- environment()
+
+ ## phony group variable
+ set.seed(1L)
+ x$group <- rbinom(nrow(x), 1, 0.5)
+ agegr <- cut(x$dg_age, 4, right = FALSE)
+ x$agegr <- NULL
+ w <- as.data.frame(table(agegr))
+ names(w) <- c("agegr", "weights")
+
+ BL <- list(FUT = seq(0, 5, 1/12), CAL = c(2008,2013))
+
+ form <- Surv(FUT, lex.Xst) ~ group
+
+
+ st1 <- survtab(form, data = x,
+ adjust = agegr,
+ weights = w, breaks = BL,
+ surv.type = "surv.obs",
+ surv.method = "hazard")
+
+ x <- splitMulti(x, breaks = BL)
+ x$agegr <- cut(x$dg_age, 4, right = FALSE)
+ a <- aggre(x, by = list(group, agegr, FUT))
+
+ group <- a$group
+ set(a, j = "group", value = NULL)
+
+ form <- FUT ~ group + adjust(agegr)
+ pyrs <- a$pyrs
+ set(a, j = "pyrs", value = NULL)
+
+ st2 <- survtab_ag(form, data = a, surv.type = "surv.obs",
+ surv.method = "hazard",
+ d = c("from0to1"),
+ weights = "internal",
+ pyrs = pyrs)
+
+ testthat::expect_equal(st1$surv.obs, st2$surv.obs)
+
+})
+
+
+testthat::test_that("getCall & formula methods for survtab work", {
+ data("sire")
+ BL <- list(fot=seq(0, 5, by = 1/12),
+ per = c("2008-01-01", "2013-01-01"))
+ set.seed(1)
+ x <- lexpand(sire[sample(1:.N, 100)],
+ birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status %in% 1:2,
+ breaks = BL,
+ pophaz = popmort,
+ aggre = list(sex, fot))
+ form <- fot ~ sex
+ e <- quote(survtab_ag(formula = form, data = x))
+ st <- eval(e)
+
+ testthat::expect_equal(formula(st), form)
+ testthat::expect_equal(getCall(st), e)
+
+})
+
+
+
+
+
+testthat::test_that("survtab_ag allows for certain arguments to be length > 1", {
+ data(sire)
+ set.seed(1)
+ sire <- sire[sample(1:.N, 100)]
+
+ BL <- list(fot=0:5)
+ x <- lexpand(sire,
+ birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status,
+ breaks = BL,
+ pophaz = popmort,
+ aggre = list(fot))
+
+ st1 <- survtab_ag(fot ~ 1, data = x,
+ surv.method = "lifetable",
+ n.cens = c("from0to0", "from0to2"), d = "from0to1")
+ st2 <- survtab_ag(fot ~ 1, data = x,
+ surv.method = "lifetable",
+ relsurv.method = "pp",
+ n.cens = c("from0to0", "from0to2"),
+ d = "from0to1",
+ d.pp = "from0to1.pp",
+ d.pp.2 = "from0to1.pp.2",
+ n.pp = "at.risk.pp",
+ n.cens.pp = c("from0to0.pp", "from0to2.pp"))
+ st3 <- survtab_ag(fot ~ 1, data = x,
+ surv.method = "lifetable",
+ relsurv.method = "pp",
+ d = c("from0to0", "from0to2"),
+ n.cens = "from0to1",
+ n.cens.pp = "from0to1.pp",
+ n.pp = "at.risk.pp",
+ d.pp = c("from0to0.pp", "from0to2.pp"),
+ d.pp.2 = c("from0to0.pp.2", "from0to2.pp.2"))
+
+ testthat::expect_true("surv.obs" %in% names(st1))
+ testthat::expect_true("surv.obs" %in% names(st2))
+ testthat::expect_true("surv.obs" %in% names(st3))
+ testthat::expect_equal(st1[["surv_obs"]], st2[["surv_obs"]])
+ testthat::expect_equal(st2[["surv_obs"]], st3[["surv_obs"]])
+
+})
+
+
+
+
+
+testthat::test_that("update() works with survtab objects", {
+ data(sire)
+ set.seed(1)
+ sire <- sire[sample(1:.N, 100)]
+
+ BL <- list(fot=seq(0, 5, by = 1/12),
+ per = c("2008-01-01", "2013-01-01"))
+ x <- lexpand(sire,
+ birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status %in% 1:2,
+ breaks = BL,
+ pophaz = popmort,
+ aggre = list(sex, fot))
+
+
+ st <- survtab_ag(fot ~ 1, data = x)
+ sts <- survtab_ag(fot ~ sex, data = x)
+
+ testthat::expect_equal(sts, update(st, formula. = fot ~ sex))
+
+
+ library(Epi)
+
+ x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
+ exit = list(CAL = get.yrs(ex_date)),
+ data = sire[sire$dg_date < sire$ex_date, ],
+ entry.status = 0L,
+ exit.status = as.integer(status %in% 1:2),
+ merge = TRUE)
+
+ set.seed(1L)
+ x$group <- rbinom(nrow(x), 1, 0.5)
+
+ st <- survtab(FUT ~ group, data = x,
+ surv.type = "surv.obs",
+ breaks = list(FUT = seq(0, 5, 1/12)))
+
+ sts <- survtab(FUT ~ 1, data = x,
+ surv.type = "surv.obs",
+ breaks = list(FUT = seq(0, 5, 1/12)))
+
+ testthat::expect_equal(sts, update(st, . ~ -group))
+
+})
+
+
+
+
+
+testthat::test_that("internal weights work as intended", {
+ library("data.table")
+ data("sire")
+ sire$agegr <- cut(sire$dg_age,c(0,45,55,65,75,Inf),right=FALSE)
+ BL <- list(fot=seq(0, 5, by = 1/12),
+ per = c("2008-01-01", "2013-01-01"))
+ x <- lexpand(sire, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status %in% 1:2,
+ breaks = BL,
+ pophaz = popmort,
+ aggre = list(fot,agegr))
+
+ ## age standardisation using internal weights (age distribution of
+ ## patients diagnosed within the period window)
+ w <- x[fot == 0, .(weights = sum(at.risk)), keyby = agegr]
+
+ st <- survtab_ag(fot ~ adjust(agegr), data = x, weights=w)
+
+ st2 <- survtab_ag(fot ~ adjust(agegr), data = x, weights = "internal")
+
+ testthat::expect_equal(st$surv.obs.as.lo, st2$surv.obs.as.lo)
+
+})
+
+
+
+
+
+testthat::test_that("survtab_ag works with bare data.frames", {
+
+ data(sire)
+
+ BL <- list(fot = 0:5,
+ per = c("2008-01-01", "2013-01-01"))
+ x <- lexpand(sire, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status %in% 1:2,
+ breaks = BL,
+ aggre = list(fot))
+
+ e <- quote(survtab_ag(fot ~ 1, data = x, surv.type = "surv.obs"))
+ eb <- quote(survtab_ag(fot ~ 1, data = x, surv.type = "surv.obs",
+ surv.breaks = 0:5))
+
+ la <- list(eval(e), eval(eb))
+ testthat::expect_equal(la[[1]]$surv.obs.hi, la[[2]]$surv.obs.hi)
+
+
+ x <- data.frame(x)
+ er <- paste0("Data did not contain breaks and no breaks ",
+ "were supplied by hand.")
+ testthat::expect_error(eval(e), regexp = er)
+ testthat::expect_equal(eval(eb)$surv.obs.hi, la[[2]]$surv.obs.hi)
+
+})
+
+
+
+
+
+
+testthat::test_that("confidence intervals are as intended", {
+ popEpi:::skip_normally()
+
+ library(Epi)
+
+
+ ## NOTE: recommended to use factor status variable
+ x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
+ exit = list(CAL = get.yrs(ex_date)),
+ data = popEpi::sire[sire$dg_date < sire$ex_date, ],
+ entry.status = 0L,
+ exit.status = as.integer(status %in% 1:2),
+ merge = TRUE)
+
+ ## phony group variable
+ set.seed(1L)
+ x$group <- rbinom(nrow(x), 1, 0.5)
+
+ ## log-log transformation
+ st <- survtab(FUT ~ group, data = x,
+ surv.type = "surv.obs",
+ breaks = list(FUT = seq(0, 5, 1/12)),
+ conf.type = "log-log", conf.level = 0.99)
+
+ dt <- data.table(st)
+ dt[, "SE.A" := sqrt(SE.surv.obs^2*(1/(surv.obs*log(surv.obs)))^2)]
+ dt[, "s.lo" := surv.obs^exp(qnorm(0.995)*SE.A)]
+ dt[, "s.hi" := surv.obs^exp(qnorm(0.005)*SE.A)]
+
+ testthat::expect_equal(dt[, .(lo = surv.obs.lo, hi = surv.obs.hi)],
+ dt[, .(lo = s.lo, hi = s.hi)])
+
+ ## log transformation
+ st <- survtab(FUT ~ group, data = x,
+ surv.type = "surv.obs",
+ breaks = list(FUT = seq(0, 5, 1/12)),
+ conf.type = "log", conf.level = 0.80)
+
+ dt <- data.table(st)
+ dt[, "SE.A" := SE.surv.obs/surv.obs]
+ dt[, "s.lo" := surv.obs*exp(qnorm(0.10)*SE.A)]
+ dt[, "s.hi" := surv.obs*exp(qnorm(0.90)*SE.A)]
+
+ testthat::expect_equal(dt[, .(lo = surv.obs.lo, hi = surv.obs.hi)],
+ dt[, .(lo = s.lo, hi = s.hi)])
+
+
+})
+
+
+
+
+
+
diff --git a/tests/testthat/test_utils.R b/tests/testthat/test_utils.R
index 78ba9c8..3df76bc 100644
--- a/tests/testthat/test_utils.R
+++ b/tests/testthat/test_utils.R
@@ -1,483 +1,483 @@
-testthat::context("utility functions")
-
-testthat::test_that("subsetting in ltable works and ltable has no side effects", {
- popEpi:::skip_normally()
-
- sr <- popEpi::sire[1:100, ]
- set.seed(1L)
- sr[, sex := rbinom(.N, 1, prob = 0.5)]
- sr[c(1, 50), sex := NA]
-
- setkeyv(sr, "bi_date")
- old_sr <- copy(sr)
-
- lt1 <- ltable(sr, by = "sex", subset = sex == 0, na.rm = TRUE)
- lt2 <- ltable(sr, by = "sex", subset = sex == 1, na.rm = TRUE)
- lt3 <- ltable(sr, by = "sex", na.rm = TRUE)
-
- testthat::expect_equal(lt3$obs, c(lt1[1, ]$obs, lt2[2, ]$obs))
- testthat::expect_true(all.equal(sr, old_sr))
-
-})
-
-
-
-testthat::test_that("ltable works with NA values", {
-
- popEpi:::skip_normally()
-
- sr <- setDT(popEpi::sire[1:100, ])
- set.seed(1L)
- sr[, sex := rbinom(.N, 1, prob = 0.5)]
- sr[c(1, 50), sex := NA]
-
- lt1 <- ltable(sr, by = "sex", na.rm = FALSE)
- lt2 <- ltable(sr, by = "sex", na.rm = TRUE)
-
- testthat::expect_equal(lt1[!is.na(sex),], lt2)
-
-})
-
-
-
-testthat::test_that("evalPopArg produces intended results",{
- set.seed(1L)
- dt <- data.table(a = rbinom(10, 100, 0.25), b = 1:2, c = 1:5)
-
- tf <- function(x=dt, arg) {
-
- as <- substitute(arg)
- byTab <- evalPopArg(x, arg = as, enclos = parent.frame(1L))
-
- x[, list(sum = sum(a)), by = byTab]
-
- }
-
- ## symbol
- t1 <- tf(arg=b)
-
- ## name string
- t2 <- tf(arg="b")
-
- testthat::expect_equal(t1$sum, c(127, 131))
- testthat::expect_equal(t1, t2)
-
- ## list of symbols / expressions
- t3 <- tf(arg=list(b, c))
-
- ## name strings
- t4 <- tf(arg=c("b", "c"))
-
- ## object containing name strings
- byVars <- c("b", "c")
- t5 <- tf(arg=byVars)
-
- testthat::expect_equal(t4$sum, c(22,24,26,31,21, 31,32,27,26,18))
- testthat::expect_equal(t4, t3)
- testthat::expect_equal(t4, t5)
-
- ## list of symbols / expressions
- t6 <- tf(arg=list(var1 = b,c, cut(c,3)))
- testthat::expect_equal(names(t6), c("var1", "c", "cut", "sum"))
-
-
- ## NULL object
- byVars <- NULL
- t7 <- tf(arg=byVars)
- t8 <- tf(arg=NULL)
- testthat::expect_equal(t7, t8)
-
- ## a list of predetermined values
- byList <- as.list(dt[, list(b, var1 = c)])
- t9 <- tf(arg=byList)
-
- ## list without any names
- byList <- list(dt$b, dt$c)
- t10<- tf(arg=byList)
-
- ## partially named list
- byList <- list(var1 = dt$b, dt$c)
- t11<- tf(arg=byList)
-
- testthat::expect_equal(t9$sum, t10$sum)
- testthat::expect_equal(t10$sum, t11$sum)
- testthat::expect_equal(names(t11), c("var1", "BV2", "sum"))
-
-
- t12 <- tf(arg=list(V0=dt$b, dt$c))
- byList <- list(V0 = dt$b, dt$c)
- t13 <- tf(arg=byList)
- testthat::expect_equal(t12, t13)
-
- ## pre-substituted list
- bl <- substitute(byList)
- t14 <- tf(arg = bl)
- testthat::expect_equal(t12, t14)
-
- ## pre-substituted vector of names
- nv <- c("a", "b")
- nvs <- substitute(nv)
- t15a <- tf(arg = nv)
- t15b <- tf(arg = nvs)
- testthat::expect_equal(t15a, t15b)
-
- ## nested functions
- tf2 <- function(a, x = dt) {
- tf(x = x, arg = a)
- }
-
- nv <- c("a", "b")
- nvs <- substitute(nv)
- t15a <- tf2(a = nv)
- t15b <- tf2(a = nvs)
- testthat::expect_equal(t15a, t15b)
-})
-
-
-testthat::test_that("cutLowMerge merges succesfully what is intended", {
- popEpi:::skip_normally()
- all_names_present(popEpi::popmort, c("sex", "year", "agegroup", "haz"))
- all_names_present(popEpi::sire, c("sex", "bi_date", "dg_date", "ex_date", "status"))
-
- pm <- copy(popEpi::popmort)
- pm[, haz := rbinom(.N, 100, 0.5)/1e5L]
-
- sr <- popEpi::sire[1:100,]
- setDT(sr)
- sr1 <- lexpand(sr, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status, fot = seq(0, 5, 1/12))
- sr1 <- data.table(sr1)
- setattr(sr1, "class", c("Lexis", "data.table", "data.frame"))
-
- sr1[, year := per + 0.5*lex.dur]
- sr1[, agegroup := age + 0.5*lex.dur]
-
- sr2 <- cutLowMerge(sr1, pm,
- by.x = c("sex", "per", "age"),
- by.y = c("sex", "year", "agegroup"),
- all.x = TRUE, all.y = FALSE, old.nums = TRUE)
-
- sr3 <- copy(sr2)
- sr3[, haz := NULL]
-
- sr4 <- lexpand(sr, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status, fot = seq(0, 5, 1/12), pophaz = pm, pp = FALSE)
- testthat::expect_equal(sr1, sr3, check.attributes = FALSE)
- testthat::expect_equal(sr2$haz*1e5L, sr4$pop.haz*1e5L, check.attributes = FALSE)
-
- sr1[, year := popEpi:::cutLow(year, breaks = sort(unique(pm$year)))]
- sr1[, agegroup := popEpi:::cutLow(agegroup, breaks = sort(unique(pm$agegroup)))]
-
- sr5 <- merge(sr1, pm, by = c("sex", "year", "agegroup"))
- setDT(sr5)
- setkey(sr5, lex.id, fot)
-
- testthat::expect_equal(sr4$haz*1e5L, sr5$pop.haz*1e5L, check.attributes = FALSE)
-})
-
-testthat::test_that("detectEvents works as intended", {
- popEpi:::skip_normally()
- x <- sire[dg_date<ex_date,]
- x <- lexpand(x, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status %in% 1:2, pophaz = data.table(popEpi::popmort),
- breaks = list(fot = seq(0,5,1/12), per = c(2007,2012), age = c(50,90)),
- drop = TRUE)
- ## this will only work with drop = TRUE.
- setkeyv(x, c("lex.id", "fot", "per", "age"))
-
- ## this leaves observations cut short due to age or period censoring to
- ## really be censoring.
- x[, event := detectEvents(x, breaks = attr(x, "breaks")["fot"], by = "lex.id")]
-
- x[, alt.event := 0L]
- x[!duplicated(lex.id, fromLast = TRUE), alt.event := 2L]
- x[lex.Cst != lex.Xst, alt.event := 1L]
- x[fot+lex.dur == 5L, alt.event := 0L]
-
- testthat::expect_equal(x$event, x$alt.event)
-
-})
-
-testthat::test_that("comp_pp_weighted_figures produces intended results", {
- set.seed(1L)
- x <- sire[dg_date < ex_date,][sample(x = .N, size = 5L, replace = FALSE),]
- x <- lexpand(x, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status %in% 1:2, pophaz = data.table(popEpi::popmort),
- breaks = list(fot = seq(0,20,1/12), per = 1993:2013, age = 0:200))
- x[, event := detectEvents(x, breaks = attr(x, "breaks"), by = "lex.id")]
-
- l <- comp_pp_weighted_figures(lex = x, haz = "pop.haz", pp = "pp", event.ind = "event", by = "lex.id")
- x[, names(l) := l]
-
- testthat::expect_equal(x[event %in% 1:2, pp], x[event %in% 1:2, from0to0.pp + from0to1.pp])
- testthat::expect_equal(x[event %in% 1:2, sum(pp)], x[, sum(from0to0.pp + from0to1.pp)])
- testthat::expect_equal(x[, lex.dur*pp], x$ptime.pp)
- testthat::expect_equal(x[, lex.dur*pp*pop.haz], x$d.exp.pp)
- testthat::expect_equal(x[event == 1L, pp^2], x[event == 1L,]$from0to1.pp.2)
-
-})
-
-
-testthat::test_that("evalPopFormula & usePopFormula output is stable", {
- evalPopFormula <- popEpi:::evalPopFormula
- usePopFormula <- popEpi:::usePopFormula
-
- x <- sire[1:5, ]
- x[, "status" := c(1,1,0,1,1)]
- x[, "sex" := c(1,0,1,0,1)]
- x <- lexpand(x, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status)
-
- f1a <- Surv(fot, lex.Xst) ~ 1
- f1b <- Surv(fot, event = lex.Xst) ~ 1
- f2 <- Surv(fot, lex.Xst) ~ sex
- f3 <- Surv(fot, lex.Xst) ~ sex + adjust(factor(sex + 1))
- f4 <- Surv(fot, lex.Xst) ~ adjust(factor(sex + 1))
- f5 <- lex.Xst ~ 1
- f6 <- lex.Xst ~ sex
- f7 <- lex.Xst ~ sex + adjust(factor(sex + 1))
- f8 <- lex.Xst ~ adjust(factor(sex + 1))
- f9 <- lex.Xst ~ factor(sex)
-
- TF <- environment()
-
- res <- data.table(time = rep(0, 5), status = c(1,1,0,1,1), sex = c(1,0,1,0,1))
- res[["factor(sex + 1)"]] <- factor(res$sex + 1)
- res$lex.Xst <- as.integer(c(1,1,0,1,1))
-
-
- ## evalPopFormula
- r1a <- evalPopFormula(f1a, data = x, enclos = TF, Surv.response = TRUE)
- r1b <- evalPopFormula(f1b, data = x, enclos = TF, Surv.response = TRUE)
- setattr(r1a, "formula", attr(r1b, "formula"))
- testthat::expect_equal(r1a, r1b)
- testthat::expect_equal(data.table(r1a), res[, list(time, status)])
-
- r5 <- evalPopFormula(f5, data = x, enclos = parent.frame(1L), Surv.response = FALSE)
- r6 <- evalPopFormula(f6, data = x, enclos = parent.frame(1L), Surv.response = FALSE)
- testthat::expect_equal(r5$lex.Xst, c(1,1,0,1,1))
- testthat::expect_equal(data.table(r6), res[, list(lex.Xst, sex)])
-
- ## model-type naming of columns
- r9 <- evalPopFormula(f9, data = x, enclos = parent.frame(1L), Surv.response = FALSE)
- testthat::expect_equal(data.table(r9), res[, list(lex.Xst, "factor(sex)" = factor(sex))])
-
- ## multiple variables, model-type naming of columns with adjust
- r3 <- evalPopFormula(f3, data = x, enclos = parent.frame(1L), Surv.response = TRUE)
- testthat::expect_equivalent(r3, res[, .SD, .SDcols = names(r3)])
-
-
- #### only the survival time scale as response
- fa <- fot ~ 1
- fb <- fot ~ sex
- fc <- fot ~ sex + adjust(factor(sex + 1))
- fd <- fot ~ adjust(factor(sex + 1))
-
- ra <- evalPopFormula(fa, data = x, enclos = TF, Surv.response = "either")
- testthat::expect_equivalent(ra, x[, .(fot, lex.Xst)])
- rb <- evalPopFormula(fb, data = x, enclos = parent.frame(1L), Surv.response = FALSE)
- testthat::expect_equivalent(rb, x[, .(fot, sex)])
- rc <- evalPopFormula(fc, data = x, enclos = parent.frame(1L), Surv.response = "either")
- testthat::expect_equivalent(rc, x[, .(fot, lex.Xst, sex, factor(sex + 1))])
- rd <- evalPopFormula(fd, data = x, enclos = TF, Surv.response = FALSE)
- testthat::expect_equivalent(rd, x[, .(fot, factor(sex + 1))])
-
- ## usePopFormula
-
- r3 <- usePopFormula(f3, data = x, enclos = parent.frame(2L), Surv.response = TRUE)
- testthat::expect_equivalent(r3,
- list(y = res[, list(time, status)],
- print = res[, list(sex)],
- adjust = res[, "factor(sex + 1)", with = FALSE],
- formula = f3)
- )
- r4 <- usePopFormula(f4, data = x, enclos = parent.frame(2L), Surv.response = TRUE)
- testthat::expect_equivalent(r4,
- list(y = res[, list(time, status)],
- print = NULL,
- adjust = res[, "factor(sex + 1)", with = FALSE],
- formula = f4)
- )
- r6 <- usePopFormula(f6, data = x, enclos = parent.frame(2L), Surv.response = FALSE)
- testthat::expect_equivalent(r6,
- list(y = res[, list(lex.Xst)],
- print = res[, list(sex)],
- adjust = NULL,
- formula = f6)
- )
-
- r7 <- usePopFormula(f7, data = x, enclos = parent.frame(2L), Surv.response = FALSE)
- testthat::expect_equivalent(r7,
- list(y = res[, list(lex.Xst)],
- print = res[, list(sex)],
- adjust = res[, "factor(sex + 1)", with = FALSE],
- formula = f7)
- )
- r8 <- usePopFormula(f8, data = x, enclos = parent.frame(2L), Surv.response = FALSE)
- testthat::expect_equivalent(r8,
- list(y = res[, list(lex.Xst)],
- print = NULL,
- adjust = res[, "factor(sex + 1)", with = FALSE],
- formula = f8)
- )
- r9 <- usePopFormula(lex.Xst ~ sex, data = x, adjust = quote(factor(sex + 1)),
- enclos = parent.frame(2L), Surv.response = FALSE)
- testthat::expect_equivalent(r9,
- list(y = res[, list(lex.Xst)],
- print = res[, list(sex)],
- adjust = res[, "factor(sex + 1)", with = FALSE],
- formula = lex.Xst ~ sex)
- )
- testthat::expect_equal(lapply(r9, names), list(y = "lex.Xst", print = "sex", adjust = "factor(sex + 1)", formula = NULL))
-
- r9 <- usePopFormula(lex.Xst ~ as.numeric(sex), data = x, adjust = quote(list(factor(sex + 1), factor(sex - 1))),
- enclos = parent.frame(2L), Surv.response = FALSE)
-
- testthat::expect_equal(lapply(r9, names), list(y = "lex.Xst", print = "as.numeric(sex)",
- adjust = c("factor(sex + 1)", "factor(sex - 1)"), formula = NULL))
-
-
- ra <- usePopFormula(fa, data = x,
- adjust = quote(list(factor(sex + 1), factor(sex - 1))),
- enclos = parent.frame(2L), Surv.response = FALSE)
-
- testthat::expect_equal(lapply(ra, names),
- list(y = "fot", print = NULL,
- adjust = c("factor(sex + 1)", "factor(sex - 1)"),
- formula = NULL))
-
-
- rb <- usePopFormula(fb, data = x,
- adjust = quote(list(factor(sex + 1), factor(sex - 1))),
- enclos = parent.frame(2L), Surv.response = FALSE)
- testthat::expect_equal(lapply(rb, names),
- list(y = "fot", print = "sex",
- adjust = c("factor(sex + 1)", "factor(sex - 1)"),
- formula = NULL))
-
- rc <- usePopFormula(fc, data = x,
- adjust = NULL,
- enclos = parent.frame(2L), Surv.response = "either")
- testthat::expect_equal(lapply(rc, names),
- list(y = c("time", "status"), print = "sex",
- adjust = "factor(sex + 1)",
- formula = NULL))
-
- rd <- usePopFormula(fd, data = x,
- adjust = NULL,
- enclos = parent.frame(2L), Surv.response = FALSE)
- testthat::expect_equal(lapply(rd, names),
- list(y = "fot", print = NULL,
- adjust = "factor(sex + 1)",
- formula = NULL))
-
- ## usePopFormula with "either" response
- useForms <- paste0("f", 2:9)
- useForms <- c("f1a", "f1a", useForms)
- useForms <- intersect(useForms, ls())
- TF <- environment()
- l <- list()
- for (k in seq_along(useForms)) {
- l[[k]] <- usePopFormula(get(useForms[k], envir = TF), data = x,
- adjust = NULL,
- enclos = TF, Surv.response = "either")
- }
-
-
-
-
-})
-
-
-
-
-
-testthat::test_that("fractional years computation works", {
- library("data.table")
- c <- paste0("2004-", c("01-01", "07-01", "12-31", "02-01"))
- D <- as.Date(c)
-
- testthat::expect_equal(get.yrs(c), get.yrs(D))
-
- yl <- 365.242199
- my <- year(D) + (yday(D) - 1L)/yl
-
- testthat::expect_equal(as.numeric(get.yrs(D)), my)
-
- yl <- ifelse(is_leap_year(year(D)), 366L, 365L)
- my <- year(D) + (yday(D) - 1L)/yl
-
- testthat::expect_equal(as.numeric(get.yrs(D, year.length = "actual")), my)
-})
-
-
-
-
-
-testthat::test_that("subsetDTorDF works as intended", {
-
- dt <- data.table::data.table(a = 1:5, b = 5:1)
- df <- data.frame(a = 1:5, b = 5:1)
-
- sub <- c(TRUE, TRUE, FALSE, FALSE, TRUE)
- col_nms <- rep("a", 50)
- settings <- list(
- list(subset = sub, select = NULL),
- list(subset = NULL, select = col_nms),
- list(subset = NULL, select = NULL),
- list(subset = sub, select = col_nms)
- )
-
- expected_df <- list(
- df[sub, ],
- df[, col_nms],
- df,
- df[sub, col_nms]
- )
- expected_dt <- list(
- dt[sub, ],
- dt[, .SD, .SDcols = col_nms],
- dt,
- dt[sub, .SD, .SDcols = col_nms]
- )
-
- unused <- lapply(seq_along(settings), function(i) {
- set <- settings[[i]]
- set[["data"]] <- dt
- sub_dt <- do.call(subsetDTorDF, set)
- set[["data"]] <- df
- sub_df <- do.call(subsetDTorDF, set)
-
- exp_df <- expected_df[[i]]
- exp_dt <- expected_dt[[i]]
-
- list(sub_dt = sub_dt, exp_dt = exp_dt, sub_df = sub_df, exp_df = exp_df)
- testthat::expect_equal(
- data.frame(sub_dt),
- data.frame(exp_dt)
- )
- testthat::expect_equal(
- sub_df,
- exp_df
- )
- })
-
-
-})
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+testthat::context("utility functions")
+
+testthat::test_that("subsetting in ltable works and ltable has no side effects", {
+ popEpi:::skip_normally()
+
+ sr <- popEpi::sire[1:100, ]
+ set.seed(1L)
+ sr[, sex := rbinom(.N, 1, prob = 0.5)]
+ sr[c(1, 50), sex := NA]
+
+ setkeyv(sr, "bi_date")
+ old_sr <- copy(sr)
+
+ lt1 <- ltable(sr, by = "sex", subset = sex == 0, na.rm = TRUE)
+ lt2 <- ltable(sr, by = "sex", subset = sex == 1, na.rm = TRUE)
+ lt3 <- ltable(sr, by = "sex", na.rm = TRUE)
+
+ testthat::expect_equal(lt3$obs, c(lt1[1, ]$obs, lt2[2, ]$obs))
+ testthat::expect_true(all.equal(sr, old_sr))
+
+})
+
+
+
+testthat::test_that("ltable works with NA values", {
+
+ popEpi:::skip_normally()
+
+ sr <- setDT(popEpi::sire[1:100, ])
+ set.seed(1L)
+ sr[, sex := rbinom(.N, 1, prob = 0.5)]
+ sr[c(1, 50), sex := NA]
+
+ lt1 <- ltable(sr, by = "sex", na.rm = FALSE)
+ lt2 <- ltable(sr, by = "sex", na.rm = TRUE)
+
+ testthat::expect_equal(lt1[!is.na(sex),], lt2)
+
+})
+
+
+
+testthat::test_that("evalPopArg produces intended results",{
+ set.seed(1L)
+ dt <- data.table(a = rbinom(10, 100, 0.25), b = 1:2, c = 1:5)
+
+ tf <- function(x=dt, arg) {
+
+ as <- substitute(arg)
+ byTab <- evalPopArg(x, arg = as, enclos = parent.frame(1L))
+
+ x[, list(sum = sum(a)), by = byTab]
+
+ }
+
+ ## symbol
+ t1 <- tf(arg=b)
+
+ ## name string
+ t2 <- tf(arg="b")
+
+ testthat::expect_equal(t1$sum, c(127, 131))
+ testthat::expect_equal(t1, t2)
+
+ ## list of symbols / expressions
+ t3 <- tf(arg=list(b, c))
+
+ ## name strings
+ t4 <- tf(arg=c("b", "c"))
+
+ ## object containing name strings
+ byVars <- c("b", "c")
+ t5 <- tf(arg=byVars)
+
+ testthat::expect_equal(t4$sum, c(22,24,26,31,21, 31,32,27,26,18))
+ testthat::expect_equal(t4, t3)
+ testthat::expect_equal(t4, t5)
+
+ ## list of symbols / expressions
+ t6 <- tf(arg=list(var1 = b,c, cut(c,3)))
+ testthat::expect_equal(names(t6), c("var1", "c", "cut", "sum"))
+
+
+ ## NULL object
+ byVars <- NULL
+ t7 <- tf(arg=byVars)
+ t8 <- tf(arg=NULL)
+ testthat::expect_equal(t7, t8)
+
+ ## a list of predetermined values
+ byList <- as.list(dt[, list(b, var1 = c)])
+ t9 <- tf(arg=byList)
+
+ ## list without any names
+ byList <- list(dt$b, dt$c)
+ t10<- tf(arg=byList)
+
+ ## partially named list
+ byList <- list(var1 = dt$b, dt$c)
+ t11<- tf(arg=byList)
+
+ testthat::expect_equal(t9$sum, t10$sum)
+ testthat::expect_equal(t10$sum, t11$sum)
+ testthat::expect_equal(names(t11), c("var1", "BV2", "sum"))
+
+
+ t12 <- tf(arg=list(V0=dt$b, dt$c))
+ byList <- list(V0 = dt$b, dt$c)
+ t13 <- tf(arg=byList)
+ testthat::expect_equal(t12, t13)
+
+ ## pre-substituted list
+ bl <- substitute(byList)
+ t14 <- tf(arg = bl)
+ testthat::expect_equal(t12, t14)
+
+ ## pre-substituted vector of names
+ nv <- c("a", "b")
+ nvs <- substitute(nv)
+ t15a <- tf(arg = nv)
+ t15b <- tf(arg = nvs)
+ testthat::expect_equal(t15a, t15b)
+
+ ## nested functions
+ tf2 <- function(a, x = dt) {
+ tf(x = x, arg = a)
+ }
+
+ nv <- c("a", "b")
+ nvs <- substitute(nv)
+ t15a <- tf2(a = nv)
+ t15b <- tf2(a = nvs)
+ testthat::expect_equal(t15a, t15b)
+})
+
+
+testthat::test_that("cutLowMerge merges succesfully what is intended", {
+ popEpi:::skip_normally()
+ all_names_present(popEpi::popmort, c("sex", "year", "agegroup", "haz"))
+ all_names_present(popEpi::sire, c("sex", "bi_date", "dg_date", "ex_date", "status"))
+
+ pm <- copy(popEpi::popmort)
+ pm[, haz := rbinom(.N, 100, 0.5)/1e5L]
+
+ sr <- popEpi::sire[1:100,]
+ setDT(sr)
+ sr1 <- lexpand(sr, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status, fot = seq(0, 5, 1/12))
+ sr1 <- data.table(sr1)
+ setattr(sr1, "class", c("Lexis", "data.table", "data.frame"))
+
+ sr1[, year := per + 0.5*lex.dur]
+ sr1[, agegroup := age + 0.5*lex.dur]
+
+ sr2 <- cutLowMerge(sr1, pm,
+ by.x = c("sex", "per", "age"),
+ by.y = c("sex", "year", "agegroup"),
+ all.x = TRUE, all.y = FALSE, old.nums = TRUE)
+
+ sr3 <- copy(sr2)
+ sr3[, haz := NULL]
+
+ sr4 <- lexpand(sr, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status, fot = seq(0, 5, 1/12), pophaz = pm, pp = FALSE)
+ testthat::expect_equal(sr1, sr3, check.attributes = FALSE)
+ testthat::expect_equal(sr2$haz*1e5L, sr4$pop.haz*1e5L, check.attributes = FALSE)
+
+ sr1[, year := popEpi:::cutLow(year, breaks = sort(unique(pm$year)))]
+ sr1[, agegroup := popEpi:::cutLow(agegroup, breaks = sort(unique(pm$agegroup)))]
+
+ sr5 <- merge(sr1, pm, by = c("sex", "year", "agegroup"))
+ setDT(sr5)
+ setkey(sr5, lex.id, fot)
+
+ testthat::expect_equal(sr4$haz*1e5L, sr5$pop.haz*1e5L, check.attributes = FALSE)
+})
+
+testthat::test_that("detectEvents works as intended", {
+ popEpi:::skip_normally()
+ x <- sire[dg_date<ex_date,]
+ x <- lexpand(x, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status %in% 1:2, pophaz = data.table(popEpi::popmort),
+ breaks = list(fot = seq(0,5,1/12), per = c(2007,2012), age = c(50,90)),
+ drop = TRUE)
+ ## this will only work with drop = TRUE.
+ setkeyv(x, c("lex.id", "fot", "per", "age"))
+
+ ## this leaves observations cut short due to age or period censoring to
+ ## really be censoring.
+ x[, event := detectEvents(x, breaks = attr(x, "breaks")["fot"], by = "lex.id")]
+
+ x[, alt.event := 0L]
+ x[!duplicated(lex.id, fromLast = TRUE), alt.event := 2L]
+ x[lex.Cst != lex.Xst, alt.event := 1L]
+ x[fot+lex.dur == 5L, alt.event := 0L]
+
+ testthat::expect_equal(x$event, x$alt.event)
+
+})
+
+testthat::test_that("comp_pp_weighted_figures produces intended results", {
+ set.seed(1L)
+ x <- sire[dg_date < ex_date,][sample(x = .N, size = 5L, replace = FALSE),]
+ x <- lexpand(x, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status %in% 1:2, pophaz = data.table(popEpi::popmort),
+ breaks = list(fot = seq(0,20,1/12), per = 1993:2013, age = 0:200))
+ x[, event := detectEvents(x, breaks = attr(x, "breaks"), by = "lex.id")]
+
+ l <- comp_pp_weighted_figures(lex = x, haz = "pop.haz", pp = "pp", event.ind = "event", by = "lex.id")
+ x[, names(l) := l]
+
+ testthat::expect_equal(x[event %in% 1:2, pp], x[event %in% 1:2, from0to0.pp + from0to1.pp])
+ testthat::expect_equal(x[event %in% 1:2, sum(pp)], x[, sum(from0to0.pp + from0to1.pp)])
+ testthat::expect_equal(x[, lex.dur*pp], x$ptime.pp)
+ testthat::expect_equal(x[, lex.dur*pp*pop.haz], x$d.exp.pp)
+ testthat::expect_equal(x[event == 1L, pp^2], x[event == 1L,]$from0to1.pp.2)
+
+})
+
+
+testthat::test_that("evalPopFormula & usePopFormula output is stable", {
+ evalPopFormula <- popEpi:::evalPopFormula
+ usePopFormula <- popEpi:::usePopFormula
+
+ x <- sire[1:5, ]
+ x[, "status" := c(1,1,0,1,1)]
+ x[, "sex" := c(1,0,1,0,1)]
+ x <- lexpand(x, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status)
+
+ f1a <- Surv(fot, lex.Xst) ~ 1
+ f1b <- Surv(fot, event = lex.Xst) ~ 1
+ f2 <- Surv(fot, lex.Xst) ~ sex
+ f3 <- Surv(fot, lex.Xst) ~ sex + adjust(factor(sex + 1))
+ f4 <- Surv(fot, lex.Xst) ~ adjust(factor(sex + 1))
+ f5 <- lex.Xst ~ 1
+ f6 <- lex.Xst ~ sex
+ f7 <- lex.Xst ~ sex + adjust(factor(sex + 1))
+ f8 <- lex.Xst ~ adjust(factor(sex + 1))
+ f9 <- lex.Xst ~ factor(sex)
+
+ TF <- environment()
+
+ res <- data.table(time = rep(0, 5), status = c(1,1,0,1,1), sex = c(1,0,1,0,1))
+ res[["factor(sex + 1)"]] <- factor(res$sex + 1)
+ res$lex.Xst <- as.integer(c(1,1,0,1,1))
+
+
+ ## evalPopFormula
+ r1a <- evalPopFormula(f1a, data = x, enclos = TF, Surv.response = TRUE)
+ r1b <- evalPopFormula(f1b, data = x, enclos = TF, Surv.response = TRUE)
+ setattr(r1a, "formula", attr(r1b, "formula"))
+ testthat::expect_equal(r1a, r1b)
+ testthat::expect_equal(data.table(r1a), res[, list(time, status)])
+
+ r5 <- evalPopFormula(f5, data = x, enclos = parent.frame(1L), Surv.response = FALSE)
+ r6 <- evalPopFormula(f6, data = x, enclos = parent.frame(1L), Surv.response = FALSE)
+ testthat::expect_equal(r5$lex.Xst, c(1,1,0,1,1))
+ testthat::expect_equal(data.table(r6), res[, list(lex.Xst, sex)])
+
+ ## model-type naming of columns
+ r9 <- evalPopFormula(f9, data = x, enclos = parent.frame(1L), Surv.response = FALSE)
+ testthat::expect_equal(data.table(r9), res[, list(lex.Xst, "factor(sex)" = factor(sex))])
+
+ ## multiple variables, model-type naming of columns with adjust
+ r3 <- evalPopFormula(f3, data = x, enclos = parent.frame(1L), Surv.response = TRUE)
+ testthat::expect_equivalent(r3, res[, .SD, .SDcols = names(r3)])
+
+
+ #### only the survival time scale as response
+ fa <- fot ~ 1
+ fb <- fot ~ sex
+ fc <- fot ~ sex + adjust(factor(sex + 1))
+ fd <- fot ~ adjust(factor(sex + 1))
+
+ ra <- evalPopFormula(fa, data = x, enclos = TF, Surv.response = "either")
+ testthat::expect_equivalent(ra, x[, .(fot, lex.Xst)])
+ rb <- evalPopFormula(fb, data = x, enclos = parent.frame(1L), Surv.response = FALSE)
+ testthat::expect_equivalent(rb, x[, .(fot, sex)])
+ rc <- evalPopFormula(fc, data = x, enclos = parent.frame(1L), Surv.response = "either")
+ testthat::expect_equivalent(rc, x[, .(fot, lex.Xst, sex, factor(sex + 1))])
+ rd <- evalPopFormula(fd, data = x, enclos = TF, Surv.response = FALSE)
+ testthat::expect_equivalent(rd, x[, .(fot, factor(sex + 1))])
+
+ ## usePopFormula
+
+ r3 <- usePopFormula(f3, data = x, enclos = parent.frame(2L), Surv.response = TRUE)
+ testthat::expect_equivalent(r3,
+ list(y = res[, list(time, status)],
+ print = res[, list(sex)],
+ adjust = res[, "factor(sex + 1)", with = FALSE],
+ formula = f3)
+ )
+ r4 <- usePopFormula(f4, data = x, enclos = parent.frame(2L), Surv.response = TRUE)
+ testthat::expect_equivalent(r4,
+ list(y = res[, list(time, status)],
+ print = NULL,
+ adjust = res[, "factor(sex + 1)", with = FALSE],
+ formula = f4)
+ )
+ r6 <- usePopFormula(f6, data = x, enclos = parent.frame(2L), Surv.response = FALSE)
+ testthat::expect_equivalent(r6,
+ list(y = res[, list(lex.Xst)],
+ print = res[, list(sex)],
+ adjust = NULL,
+ formula = f6)
+ )
+
+ r7 <- usePopFormula(f7, data = x, enclos = parent.frame(2L), Surv.response = FALSE)
+ testthat::expect_equivalent(r7,
+ list(y = res[, list(lex.Xst)],
+ print = res[, list(sex)],
+ adjust = res[, "factor(sex + 1)", with = FALSE],
+ formula = f7)
+ )
+ r8 <- usePopFormula(f8, data = x, enclos = parent.frame(2L), Surv.response = FALSE)
+ testthat::expect_equivalent(r8,
+ list(y = res[, list(lex.Xst)],
+ print = NULL,
+ adjust = res[, "factor(sex + 1)", with = FALSE],
+ formula = f8)
+ )
+ r9 <- usePopFormula(lex.Xst ~ sex, data = x, adjust = quote(factor(sex + 1)),
+ enclos = parent.frame(2L), Surv.response = FALSE)
+ testthat::expect_equivalent(r9,
+ list(y = res[, list(lex.Xst)],
+ print = res[, list(sex)],
+ adjust = res[, "factor(sex + 1)", with = FALSE],
+ formula = lex.Xst ~ sex)
+ )
+ testthat::expect_equal(lapply(r9, names), list(y = "lex.Xst", print = "sex", adjust = "factor(sex + 1)", formula = NULL))
+
+ r9 <- usePopFormula(lex.Xst ~ as.numeric(sex), data = x, adjust = quote(list(factor(sex + 1), factor(sex - 1))),
+ enclos = parent.frame(2L), Surv.response = FALSE)
+
+ testthat::expect_equal(lapply(r9, names), list(y = "lex.Xst", print = "as.numeric(sex)",
+ adjust = c("factor(sex + 1)", "factor(sex - 1)"), formula = NULL))
+
+
+ ra <- usePopFormula(fa, data = x,
+ adjust = quote(list(factor(sex + 1), factor(sex - 1))),
+ enclos = parent.frame(2L), Surv.response = FALSE)
+
+ testthat::expect_equal(lapply(ra, names),
+ list(y = "fot", print = NULL,
+ adjust = c("factor(sex + 1)", "factor(sex - 1)"),
+ formula = NULL))
+
+
+ rb <- usePopFormula(fb, data = x,
+ adjust = quote(list(factor(sex + 1), factor(sex - 1))),
+ enclos = parent.frame(2L), Surv.response = FALSE)
+ testthat::expect_equal(lapply(rb, names),
+ list(y = "fot", print = "sex",
+ adjust = c("factor(sex + 1)", "factor(sex - 1)"),
+ formula = NULL))
+
+ rc <- usePopFormula(fc, data = x,
+ adjust = NULL,
+ enclos = parent.frame(2L), Surv.response = "either")
+ testthat::expect_equal(lapply(rc, names),
+ list(y = c("time", "status"), print = "sex",
+ adjust = "factor(sex + 1)",
+ formula = NULL))
+
+ rd <- usePopFormula(fd, data = x,
+ adjust = NULL,
+ enclos = parent.frame(2L), Surv.response = FALSE)
+ testthat::expect_equal(lapply(rd, names),
+ list(y = "fot", print = NULL,
+ adjust = "factor(sex + 1)",
+ formula = NULL))
+
+ ## usePopFormula with "either" response
+ useForms <- paste0("f", 2:9)
+ useForms <- c("f1a", "f1a", useForms)
+ useForms <- intersect(useForms, ls())
+ TF <- environment()
+ l <- list()
+ for (k in seq_along(useForms)) {
+ l[[k]] <- usePopFormula(get(useForms[k], envir = TF), data = x,
+ adjust = NULL,
+ enclos = TF, Surv.response = "either")
+ }
+
+
+
+
+})
+
+
+
+
+
+testthat::test_that("fractional years computation works", {
+ library("data.table")
+ c <- paste0("2004-", c("01-01", "07-01", "12-31", "02-01"))
+ D <- as.Date(c)
+
+ testthat::expect_equal(get.yrs(c), get.yrs(D))
+
+ yl <- 365.242199
+ my <- year(D) + (yday(D) - 1L)/yl
+
+ testthat::expect_equal(as.numeric(get.yrs(D)), my)
+
+ yl <- ifelse(is_leap_year(year(D)), 366L, 365L)
+ my <- year(D) + (yday(D) - 1L)/yl
+
+ testthat::expect_equal(as.numeric(get.yrs(D, year.length = "actual")), my)
+})
+
+
+
+
+
+testthat::test_that("subsetDTorDF works as intended", {
+
+ dt <- data.table::data.table(a = 1:5, b = 5:1)
+ df <- data.frame(a = 1:5, b = 5:1)
+
+ sub <- c(TRUE, TRUE, FALSE, FALSE, TRUE)
+ col_nms <- rep("a", 50)
+ settings <- list(
+ list(subset = sub, select = NULL),
+ list(subset = NULL, select = col_nms),
+ list(subset = NULL, select = NULL),
+ list(subset = sub, select = col_nms)
+ )
+
+ expected_df <- list(
+ df[sub, ],
+ df[, col_nms],
+ df,
+ df[sub, col_nms]
+ )
+ expected_dt <- list(
+ dt[sub, ],
+ dt[, .SD, .SDcols = col_nms],
+ dt,
+ dt[sub, .SD, .SDcols = col_nms]
+ )
+
+ unused <- lapply(seq_along(settings), function(i) {
+ set <- settings[[i]]
+ set[["data"]] <- dt
+ sub_dt <- do.call(subsetDTorDF, set)
+ set[["data"]] <- df
+ sub_df <- do.call(subsetDTorDF, set)
+
+ exp_df <- expected_df[[i]]
+ exp_dt <- expected_dt[[i]]
+
+ list(sub_dt = sub_dt, exp_dt = exp_dt, sub_df = sub_df, exp_df = exp_df)
+ testthat::expect_equal(
+ data.frame(sub_dt),
+ data.frame(exp_dt)
+ )
+ testthat::expect_equal(
+ sub_df,
+ exp_df
+ )
+ })
+
+
+})
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/tests/testthat/test_weighter.R b/tests/testthat/test_weighter.R
index 721ff49..5c851d4 100644
--- a/tests/testthat/test_weighter.R
+++ b/tests/testthat/test_weighter.R
@@ -1,140 +1,140 @@
-testthat::context("makeWeightsDT")
-
-
-testthat::test_that("makeWeightsDT works with various weights & adjust spesifications", {
- popEpi:::skip_normally()
- sibr <- popEpi::sibr[1:100]
- sibr[1:50, sex := 0L]
-
- dt <- lexpand(sibr, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status %in% 1:2,
- aggre = list(sex, dg_age = popEpi:::cutLow(dg_age, 0:125)))
-
- print <- quote(list(gender = sex))
- prdt <- evalPopArg(dt, print)
-
- adjust <- quote(list(agegr = popEpi:::cutLow(dg_age, c(0, seq(15,85,5), Inf))))
- addt <- evalPopArg(dt, adjust)
-
- expr <- quote(list(pyrs = sum(pyrs), from0to1 = sum(from0to1)))
- dt <- dt[, eval(expr), keyby = cbind(prdt, addt)]
-
- wdt <- ICSS[, list(agegr = c(0, seq(15,85,5)), weights = ICSS3)]
-
-
- expr <- list(quote(list(pyrs = pyrs, from0to1 = from0to1)))
-
- ## works with weights data.frame?
- ## Intention of test: wdt contains more levels of agegr than data;
- ## weights need to be scaled to one correctly and only the original
- ## rows in data kept.
- DT <- makeWeightsDT(dt, values = expr, weights = wdt,
- print = "gender", adjust = "agegr")
- testthat::expect_equal(nrow(DT), 24L)
- testthat::expect_equal(sum(dt$pyrs), sum(DT$pyrs))
- DTW <- unique(DT, by = c("agegr"))$weights
- wdt[, ww := weights/sum(weights)]
- testthat::expect_equal(DTW, wdt[agegr %in% DT$agegr, ww])
- testthat::expect_equal(DT[, sum(pyrs), keyby = agegr], dt[, sum(pyrs), keyby = agegr], check.attributes = FALSE)
- testthat::expect_equal(DT[, sum(pyrs), keyby = gender], dt[, sum(pyrs), keyby = gender], check.attributes = FALSE)
-
-
-})
-
-
-
-testthat::test_that("internal weights are computed correctly", {
- popEpi:::skip_normally()
- sibr <- popEpi::sibr[1:100]
- sibr[1:50, sex := 0L]
-
- dt <- lexpand(sibr, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status %in% 1:2,
- aggre = list(sex, dg_age = popEpi:::cutLow(dg_age, 0:125)))
-
-
- adjust <- quote(popEpi:::cutLow(dg_age, c(0, seq(15,85,5), Inf)))
- dt[, c("agegr") := eval(adjust)]
-
- vals <- list(c("pyrs", "from0to1"))
-
- testthat::expect_error({
- DT <- makeWeightsDT(dt, values = vals,
- weights = "internal",
- print = NULL, adjust = c("sex", "agegr"))
- })
-
- ## one adjust var
- DT1 <- makeWeightsDT(dt, values = vals,
- weights = "internal",
- print = NULL, adjust = "agegr",
- internal.weights.values = "pyrs")
- DT2 <- dt[, sum(pyrs)/sum(dt$pyrs), keyby = agegr]
- testthat::expect_equal(DT1$weights, DT2$V1)
-
- ## two adjust vars
- DT1 <- makeWeightsDT(dt, values = vals,
- weights = "internal",
- print = NULL, adjust = c("sex", "agegr"),
- internal.weights.values = "pyrs")
- DT2 <- dt[, sum(pyrs), keyby = agegr]
- DT3 <- dt[, sum(pyrs), keyby = sex]
- DT4 <- CJ(sex = 0:1, agegr = sort(unique(dt$agegr)))
- DT4 <- merge(DT4, DT3, by = "sex", all.x = TRUE, all.y = TRUE)
- setnames(DT4, "V1", "w.sex")
- DT4 <- merge(DT4, DT2, by = "agegr", all.x = TRUE, all.y = TRUE)
- setnames(DT4, "V1", "w.agegr")
- DT4[, weight := w.agegr*w.sex]
- DT4[, weight := weight/sum(weight)]
- setkeyv(DT4, c("sex", "agegr"))
- setkeyv(DT1, c("sex", "agegr"))
-
- testthat::expect_equal(DT1$weights, DT4$weight)
-
-})
-
-
-testthat::test_that("weighter works with a list of values arguments", {
-
- popEpi:::skip_normally()
- sibr <- popEpi::sibr[1:100]
- sibr[1:50, sex := 0L]
-
- dt <- lexpand(sibr, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status %in% 1:2,
- aggre = list(sex, dg_age = popEpi:::cutLow(dg_age, 0:125)))
-
- vals <- list(c("pyrs", "from0to1"), quote(from0to0))
-
- DT1 <- makeWeightsDT(dt, values = vals,
- print = "sex")
- testthat::expect_equivalent(DT1, dt[, lapply(.SD, sum), by = sex, .SDcols = c("pyrs", "from0to1", "from0to0")])
-
- dt$agegr <- cut(dt$dg_age, c(0, 45, 75, Inf))
- DT2 <- makeWeightsDT(dt, values = vals,
- print = c("sex", "agegr"))
- testthat::expect_equivalent(DT2, dt[, lapply(.SD, sum), by = list(sex,agegr), .SDcols = c("pyrs", "from0to1", "from0to0")])
-
-})
-
-
-testthat::test_that("weighted NA checks work", {
- popEpi:::skip_normally()
- sibr <- popEpi::sibr[1:100]
- sibr[1:50, sex := 0L]
-
- dt <- lexpand(sibr, birth = bi_date, entry = dg_date, exit = ex_date,
- status = status %in% 1:2,
- aggre = list(sex, dg_age = popEpi:::cutLow(dg_age, 0:125)))
- dt[, agegr := cut(dg_age, c(0, 45, 75), right = FALSE)]
- vals <- list(c("pyrs", "from0to1"), quote(from0to0))
-
- naTxt <- "A warning message with counts: %%NA_COUNT%%"
- testthat::expect_warning({
- DT1 <- makeWeightsDT(dt, values = list(c("pyrs", "from0to1"), quote(from0to0)),
- adjust = "agegr", weights = "internal",
- internal.weights.values = "pyrs", NA.text = naTxt)
- }, regexp = "A warning message with counts: 15")
-
-})
-
+testthat::context("makeWeightsDT")
+
+
+testthat::test_that("makeWeightsDT works with various weights & adjust spesifications", {
+ popEpi:::skip_normally()
+ sibr <- popEpi::sibr[1:100]
+ sibr[1:50, sex := 0L]
+
+ dt <- lexpand(sibr, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status %in% 1:2,
+ aggre = list(sex, dg_age = popEpi:::cutLow(dg_age, 0:125)))
+
+ print <- quote(list(gender = sex))
+ prdt <- evalPopArg(dt, print)
+
+ adjust <- quote(list(agegr = popEpi:::cutLow(dg_age, c(0, seq(15,85,5), Inf))))
+ addt <- evalPopArg(dt, adjust)
+
+ expr <- quote(list(pyrs = sum(pyrs), from0to1 = sum(from0to1)))
+ dt <- dt[, eval(expr), keyby = cbind(prdt, addt)]
+
+ wdt <- ICSS[, list(agegr = c(0, seq(15,85,5)), weights = ICSS3)]
+
+
+ expr <- list(quote(list(pyrs = pyrs, from0to1 = from0to1)))
+
+ ## works with weights data.frame?
+ ## Intention of test: wdt contains more levels of agegr than data;
+ ## weights need to be scaled to one correctly and only the original
+ ## rows in data kept.
+ DT <- makeWeightsDT(dt, values = expr, weights = wdt,
+ print = "gender", adjust = "agegr")
+ testthat::expect_equal(nrow(DT), 24L)
+ testthat::expect_equal(sum(dt$pyrs), sum(DT$pyrs))
+ DTW <- unique(DT, by = c("agegr"))$weights
+ wdt[, ww := weights/sum(weights)]
+ testthat::expect_equal(DTW, wdt[agegr %in% DT$agegr, ww])
+ testthat::expect_equal(DT[, sum(pyrs), keyby = agegr], dt[, sum(pyrs), keyby = agegr], check.attributes = FALSE)
+ testthat::expect_equal(DT[, sum(pyrs), keyby = gender], dt[, sum(pyrs), keyby = gender], check.attributes = FALSE)
+
+
+})
+
+
+
+testthat::test_that("internal weights are computed correctly", {
+ popEpi:::skip_normally()
+ sibr <- popEpi::sibr[1:100]
+ sibr[1:50, sex := 0L]
+
+ dt <- lexpand(sibr, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status %in% 1:2,
+ aggre = list(sex, dg_age = popEpi:::cutLow(dg_age, 0:125)))
+
+
+ adjust <- quote(popEpi:::cutLow(dg_age, c(0, seq(15,85,5), Inf)))
+ dt[, c("agegr") := eval(adjust)]
+
+ vals <- list(c("pyrs", "from0to1"))
+
+ testthat::expect_error({
+ DT <- makeWeightsDT(dt, values = vals,
+ weights = "internal",
+ print = NULL, adjust = c("sex", "agegr"))
+ })
+
+ ## one adjust var
+ DT1 <- makeWeightsDT(dt, values = vals,
+ weights = "internal",
+ print = NULL, adjust = "agegr",
+ internal.weights.values = "pyrs")
+ DT2 <- dt[, sum(pyrs)/sum(dt$pyrs), keyby = agegr]
+ testthat::expect_equal(DT1$weights, DT2$V1)
+
+ ## two adjust vars
+ DT1 <- makeWeightsDT(dt, values = vals,
+ weights = "internal",
+ print = NULL, adjust = c("sex", "agegr"),
+ internal.weights.values = "pyrs")
+ DT2 <- dt[, sum(pyrs), keyby = agegr]
+ DT3 <- dt[, sum(pyrs), keyby = sex]
+ DT4 <- CJ(sex = 0:1, agegr = sort(unique(dt$agegr)))
+ DT4 <- merge(DT4, DT3, by = "sex", all.x = TRUE, all.y = TRUE)
+ setnames(DT4, "V1", "w.sex")
+ DT4 <- merge(DT4, DT2, by = "agegr", all.x = TRUE, all.y = TRUE)
+ setnames(DT4, "V1", "w.agegr")
+ DT4[, weight := w.agegr*w.sex]
+ DT4[, weight := weight/sum(weight)]
+ setkeyv(DT4, c("sex", "agegr"))
+ setkeyv(DT1, c("sex", "agegr"))
+
+ testthat::expect_equal(DT1$weights, DT4$weight)
+
+})
+
+
+testthat::test_that("weighter works with a list of values arguments", {
+
+ popEpi:::skip_normally()
+ sibr <- popEpi::sibr[1:100]
+ sibr[1:50, sex := 0L]
+
+ dt <- lexpand(sibr, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status %in% 1:2,
+ aggre = list(sex, dg_age = popEpi:::cutLow(dg_age, 0:125)))
+
+ vals <- list(c("pyrs", "from0to1"), quote(from0to0))
+
+ DT1 <- makeWeightsDT(dt, values = vals,
+ print = "sex")
+ testthat::expect_equivalent(DT1, dt[, lapply(.SD, sum), by = sex, .SDcols = c("pyrs", "from0to1", "from0to0")])
+
+ dt$agegr <- cut(dt$dg_age, c(0, 45, 75, Inf))
+ DT2 <- makeWeightsDT(dt, values = vals,
+ print = c("sex", "agegr"))
+ testthat::expect_equivalent(DT2, dt[, lapply(.SD, sum), by = list(sex,agegr), .SDcols = c("pyrs", "from0to1", "from0to0")])
+
+})
+
+
+testthat::test_that("weighted NA checks work", {
+ popEpi:::skip_normally()
+ sibr <- popEpi::sibr[1:100]
+ sibr[1:50, sex := 0L]
+
+ dt <- lexpand(sibr, birth = bi_date, entry = dg_date, exit = ex_date,
+ status = status %in% 1:2,
+ aggre = list(sex, dg_age = popEpi:::cutLow(dg_age, 0:125)))
+ dt[, agegr := cut(dg_age, c(0, 45, 75), right = FALSE)]
+ vals <- list(c("pyrs", "from0to1"), quote(from0to0))
+
+ naTxt <- "A warning message with counts: %%NA_COUNT%%"
+ testthat::expect_warning({
+ DT1 <- makeWeightsDT(dt, values = list(c("pyrs", "from0to1"), quote(from0to0)),
+ adjust = "agegr", weights = "internal",
+ internal.weights.values = "pyrs", NA.text = naTxt)
+ }, regexp = "A warning message with counts: 15")
+
+})
+
diff --git a/vignettes/sir.Rmd b/vignettes/sir.Rmd
index f125f05..97887c4 100644
--- a/vignettes/sir.Rmd
+++ b/vignettes/sir.Rmd
@@ -1,158 +1,158 @@
----
-title: "SMR Vignette"
-author: "Matti Rantanen"
-date: "`r Sys.Date()`"
-output:
- html_document:
- fig_caption: yes
- toc: true
- toc_depth: 2
-vignette: >
- %\VignetteEngine{knitr::rmarkdown}
- %\VignetteIndexEntry{Standardised incidence and mortality ratios}
- %\usepackage[utf8]{inputenc}
----
-
-```{r, echo=TRUE, warning=FALSE, message=FALSE}
-library(popEpi)
-library(Epi)
-```
-
-# Introduction
-
-Standardized incidence ratio (SIR) or mortality ratio (SMR) is a ratio of observed and expected cases. Observed cases is the absolute number of cases in the cohort. The expected cases are derived by multiplying the cohort person-years with reference populations rate. The rate should be stratified or adjusted by confounding factors. Usually these are age group, gender, calendar period and possibly a cancer type or other confounding variable. Also a social economic status or area variable can be used.
-
-In reference population the expected rate in strata $j$ is $\lambda_j = d_j$ / $n_j$, where $d_j$ is observed cases and $n_j$ is observed person years. Now the SIR can be written as a ratio
-$$
-SIR = \frac{ \sum d_j }{\sum n_j \lambda_j} = \frac{D}{E}
-$$
-where $D$ is the observed cases in cohort population and $E$ is the expected number. Univariate confidence intervals are based on exact values of Poisson distribution and the formula for p-value is
-$$
-\chi^2 = \frac{ (|O - E| -0.5)^2 }{E}.
-$$
-Modelled SIR is a Poisson regression model with log-link and cohorts person-years as a offset.
-
-The homogeneity of SIR's can be tested using a likelihood ratio test in Poisson modelled SIRs.
-
-The same workflow applies for standardised mortality ratios.
-
-# Splines
-
-A continuous spline function can be fitted for time variables, e.g. age-group. Idea of the splines is to smooth the SMR estimates and do inference from the curve figure. This requires pre-defined knots/nodes that are used to fit the spline curve. Selecting the number of knots and knot places is a very subjective matter and there are three options to pass spline knots to function.
-
-It's good practice to try between different knot settings for realistic spline estimates. Overfitting might cause unintentional artefacts in the estimate and underfitting might smooth away interesting patterns.
-
-The spline variable should be as continuous as possible, say from 18 to 100 time points. But when splitting time in too narrow intervals, random variation might occur in the expected or population rate values. Therefore it's also possible to do two variables for age or period: first with wider intervals for standardisation and second with narrow intervals for the spline.
-
-## Knots
-
-There are three options to for assigning knots to the spline:
-
-1. A vector of numbers of knots for each spline variable. Number of knots includes the boundary knots, so that the minimum number of knots is 2, which is a log linear association. The knots are placed automatically using the quantiles of observed cases.
-
-2. A list of vectors of predefined knot places. Number of vectors needs to match the length of spline variables. And each vector has to have at least the minimum and maximum for boundary knots.
-
-3. NULL will automatically finds the optimal number of knots based on AIC. Knots are placed according the quantiles of observed cases. This is usually a good place to start the fitting process.
-
-Number of knots and knot places are always found in output.
-
-# SMR
-
-## Mortality: External cohort and popmort data
-
-Estimate SMR of a simulated cohort of Finnish female rectal cancer patients, `sire`.
-Death rates for each age, period and sex is available in `popmort` dataset.
-
-For more information about the dataset see `help(popmort)` and `help(sire)`.
-
-```{r}
-data(sire)
-data(popmort)
-c <- lexpand( sire, status = status, birth = bi_date, exit = ex_date, entry = dg_date,
- breaks = list(per = 1950:2013, age = 1:100, fot = c(0,10,20,Inf)),
- aggre = list(fot, agegroup = age, year = per, sex) )
-
-se <- sir( coh.data = c, coh.obs = 'from0to2', coh.pyrs = 'pyrs',
- ref.data = popmort, ref.rate = 'haz',
- adjust = c('agegroup','year','sex'), print ='fot')
-se
-```
-
-SMR's for other causes is 1 for both follow-up intervals. Also the p-value suggest that there is no heterogeneity between SMR estimates (p=0.735).
-
-
-The total mortality can be estimated by modifying the `status` argument. Now we want to account all deaths, i.e. status is 1 or 2.
-
-```{r}
-c <- lexpand( sire, status = status %in% 1:2, birth = bi_date, exit = ex_date, entry = dg_date,
- breaks = list(per = 1950:2013, age = 1:100, fot = c(0,10,20,Inf)),
- aggre = list(fot, agegroup = age, year = per, sex) )
-
-se <- sir( coh.data = c, coh.obs = 'from0to1', coh.pyrs = 'pyrs',
- ref.data = popmort, ref.rate = 'haz',
- adjust = c('agegroup','year','sex'), print ='fot')
-se
-```
-
-Now the estimates for follow-up intervals seems to differ significantly, p = 0. Plotting SMR (S3-method for `sir`-object) is easily done using default plot-function.
-
-```{r, fig.height=3, fig.width=6}
-plot(se, col = 2:3)
-title('SMR for follow-up categories')
-```
-
-
-## splines
-
-
-Lets fit splines for the follow-up time and age group using two different options: the splines are fitted in different model and in same model, `dependent.splines`.
-
-```{r, fig.height=5, fig.width=6}
-c <- lexpand( sire, status = status %in% 1:2, birth = bi_date, exit = ex_date, entry = dg_date,
- breaks = list(per = 1950:2013, age = 1:100, fot = 0:50),
- aggre = list(fot, agegroup = age, year = per, sex) )
-
-sf <- sirspline( coh.data = c, coh.obs = 'from0to1', coh.pyrs = 'pyrs',
- ref.data = popmort, ref.rate = 'haz',
- adjust = c('agegroup','year','sex'),
- spline = c('agegroup','fot'), dependent.splines=FALSE)
-
-st <- sirspline( coh.data = c, coh.obs = 'from0to1', coh.pyrs = 'pyrs',
- ref.data = popmort, ref.rate = 'haz',
- adjust = c('agegroup','year','sex'),
- spline = c('agegroup','fot'), dependent.splines = TRUE)
-
-plot(sf, col=2, log=TRUE)
-title('Splines fitted in different models')
-
-plot(st, col=4, log=TRUE)
-title('Splines are dependent')
-```
-
-In dependent spline the `fot` is the ratio with zero time as reference point. Reference points can be altered. Here age group profile is assumed to be same for every follow-up time. SMR is 0.2 times from 0 to 10 years of follow-up.
-
-
-Splines can also be stratified using the `print` argument. For example we split the death time in two time periods and test if the age group splines are equal.
-
-```{r, results='hide', fig.height=5, fig.width=6}
-c$year.cat <- ifelse(c$year < 2002, 1, 2)
-sy <- sirspline( coh.data = c, coh.obs = 'from0to1', coh.pyrs = 'pyrs',
- ref.data = popmort, ref.rate = 'haz',
- adjust = c('agegroup','year','sex'),
- spline = c('agegroup'), print = 'year.cat')
-plot(sy, log=TRUE)
-legend('topright', c('before 2002','after 2002'), lty=1, col=c(1,2))
-```
-
-For category before 2002 the SMR seems to be higher after the age of 50. Also the p-value (<0.0001) indicates that there is a difference in age group trends before and after year 2002. P-value is a likelihood ratio test that compares models where splines are fitted together and separately.
-
-```{r}
-print(sy)
-```
-
-
-
-
-
-
-
+---
+title: "SMR Vignette"
+author: "Matti Rantanen"
+date: "`r Sys.Date()`"
+output:
+ html_document:
+ fig_caption: yes
+ toc: true
+ toc_depth: 2
+vignette: >
+ %\VignetteEngine{knitr::rmarkdown}
+ %\VignetteIndexEntry{Standardised incidence and mortality ratios}
+ %\usepackage[utf8]{inputenc}
+---
+
+```{r, echo=TRUE, warning=FALSE, message=FALSE}
+library(popEpi)
+library(Epi)
+```
+
+# Introduction
+
+Standardized incidence ratio (SIR) or mortality ratio (SMR) is a ratio of observed and expected cases. Observed cases is the absolute number of cases in the cohort. The expected cases are derived by multiplying the cohort person-years with reference populations rate. The rate should be stratified or adjusted by confounding factors. Usually these are age group, gender, calendar period and possibly a cancer type or other confounding variable. Also a social economic status or area variable can be used.
+
+In reference population the expected rate in strata $j$ is $\lambda_j = d_j$ / $n_j$, where $d_j$ is observed cases and $n_j$ is observed person years. Now the SIR can be written as a ratio
+$$
+SIR = \frac{ \sum d_j }{\sum n_j \lambda_j} = \frac{D}{E}
+$$
+where $D$ is the observed cases in cohort population and $E$ is the expected number. Univariate confidence intervals are based on exact values of Poisson distribution and the formula for p-value is
+$$
+\chi^2 = \frac{ (|O - E| -0.5)^2 }{E}.
+$$
+Modelled SIR is a Poisson regression model with log-link and cohorts person-years as a offset.
+
+The homogeneity of SIR's can be tested using a likelihood ratio test in Poisson modelled SIRs.
+
+The same workflow applies for standardised mortality ratios.
+
+# Splines
+
+A continuous spline function can be fitted for time variables, e.g. age-group. Idea of the splines is to smooth the SMR estimates and do inference from the curve figure. This requires pre-defined knots/nodes that are used to fit the spline curve. Selecting the number of knots and knot places is a very subjective matter and there are three options to pass spline knots to function.
+
+It's good practice to try between different knot settings for realistic spline estimates. Overfitting might cause unintentional artefacts in the estimate and underfitting might smooth away interesting patterns.
+
+The spline variable should be as continuous as possible, say from 18 to 100 time points. But when splitting time in too narrow intervals, random variation might occur in the expected or population rate values. Therefore it's also possible to do two variables for age or period: first with wider intervals for standardisation and second with narrow intervals for the spline.
+
+## Knots
+
+There are three options to for assigning knots to the spline:
+
+1. A vector of numbers of knots for each spline variable. Number of knots includes the boundary knots, so that the minimum number of knots is 2, which is a log linear association. The knots are placed automatically using the quantiles of observed cases.
+
+2. A list of vectors of predefined knot places. Number of vectors needs to match the length of spline variables. And each vector has to have at least the minimum and maximum for boundary knots.
+
+3. NULL will automatically finds the optimal number of knots based on AIC. Knots are placed according the quantiles of observed cases. This is usually a good place to start the fitting process.
+
+Number of knots and knot places are always found in output.
+
+# SMR
+
+## Mortality: External cohort and popmort data
+
+Estimate SMR of a simulated cohort of Finnish female rectal cancer patients, `sire`.
+Death rates for each age, period and sex is available in `popmort` dataset.
+
+For more information about the dataset see `help(popmort)` and `help(sire)`.
+
+```{r}
+data(sire)
+data(popmort)
+c <- lexpand( sire, status = status, birth = bi_date, exit = ex_date, entry = dg_date,
+ breaks = list(per = 1950:2013, age = 1:100, fot = c(0,10,20,Inf)),
+ aggre = list(fot, agegroup = age, year = per, sex) )
+
+se <- sir( coh.data = c, coh.obs = 'from0to2', coh.pyrs = 'pyrs',
+ ref.data = popmort, ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'), print ='fot')
+se
+```
+
+SMR's for other causes is 1 for both follow-up intervals. Also the p-value suggest that there is no heterogeneity between SMR estimates (p=0.735).
+
+
+The total mortality can be estimated by modifying the `status` argument. Now we want to account all deaths, i.e. status is 1 or 2.
+
+```{r}
+c <- lexpand( sire, status = status %in% 1:2, birth = bi_date, exit = ex_date, entry = dg_date,
+ breaks = list(per = 1950:2013, age = 1:100, fot = c(0,10,20,Inf)),
+ aggre = list(fot, agegroup = age, year = per, sex) )
+
+se <- sir( coh.data = c, coh.obs = 'from0to1', coh.pyrs = 'pyrs',
+ ref.data = popmort, ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'), print ='fot')
+se
+```
+
+Now the estimates for follow-up intervals seems to differ significantly, p = 0. Plotting SMR (S3-method for `sir`-object) is easily done using default plot-function.
+
+```{r, fig.height=3, fig.width=6}
+plot(se, col = 2:3)
+title('SMR for follow-up categories')
+```
+
+
+## splines
+
+
+Lets fit splines for the follow-up time and age group using two different options: the splines are fitted in different model and in same model, `dependent.splines`.
+
+```{r, fig.height=5, fig.width=6}
+c <- lexpand( sire, status = status %in% 1:2, birth = bi_date, exit = ex_date, entry = dg_date,
+ breaks = list(per = 1950:2013, age = 1:100, fot = 0:50),
+ aggre = list(fot, agegroup = age, year = per, sex) )
+
+sf <- sirspline( coh.data = c, coh.obs = 'from0to1', coh.pyrs = 'pyrs',
+ ref.data = popmort, ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'),
+ spline = c('agegroup','fot'), dependent.splines=FALSE)
+
+st <- sirspline( coh.data = c, coh.obs = 'from0to1', coh.pyrs = 'pyrs',
+ ref.data = popmort, ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'),
+ spline = c('agegroup','fot'), dependent.splines = TRUE)
+
+plot(sf, col=2, log=TRUE)
+title('Splines fitted in different models')
+
+plot(st, col=4, log=TRUE)
+title('Splines are dependent')
+```
+
+In dependent spline the `fot` is the ratio with zero time as reference point. Reference points can be altered. Here age group profile is assumed to be same for every follow-up time. SMR is 0.2 times from 0 to 10 years of follow-up.
+
+
+Splines can also be stratified using the `print` argument. For example we split the death time in two time periods and test if the age group splines are equal.
+
+```{r, results='hide', fig.height=5, fig.width=6}
+c$year.cat <- ifelse(c$year < 2002, 1, 2)
+sy <- sirspline( coh.data = c, coh.obs = 'from0to1', coh.pyrs = 'pyrs',
+ ref.data = popmort, ref.rate = 'haz',
+ adjust = c('agegroup','year','sex'),
+ spline = c('agegroup'), print = 'year.cat')
+plot(sy, log=TRUE)
+legend('topright', c('before 2002','after 2002'), lty=1, col=c(1,2))
+```
+
+For category before 2002 the SMR seems to be higher after the age of 50. Also the p-value (<0.0001) indicates that there is a difference in age group trends before and after year 2002. P-value is a likelihood ratio test that compares models where splines are fitted together and separately.
+
+```{r}
+print(sy)
+```
+
+
+
+
+
+
+
diff --git a/vignettes/survtab_examples.Rmd b/vignettes/survtab_examples.Rmd
index 341f23c..ece43b6 100644
--- a/vignettes/survtab_examples.Rmd
+++ b/vignettes/survtab_examples.Rmd
@@ -1,295 +1,295 @@
----
-title: "Examples of using survtab"
-author: "Joonas Miettinen"
-date: "`r Sys.Date()`"
-output:
- html_document:
- toc: true
- toc_depth: 2
- fig_width: 6
- fig_height: 6
-vignette: >
- %\VignetteEngine{knitr::rmarkdown}
- %\VignetteIndexEntry{survtab examples}
- %\usepackage[utf8]{inputenc}
----
-
-# Overview
-
-This vignette aims to clarify the usage of the `survtab_ag` and `survtab` functions included in this package. `survtab_ag` estimates various survival functions and cumulative incidence functions (CIFs) non-parametrically using aggregated data, and `survtab` is a wrapper for `survtab_ag`, to which `Lexis` data is supplied.
-
-Two methods (`surv.method`) are currently supported: The `"lifetable"` (actuarial) method only makes use of counts when estimating any of the supported survival time functions. The default method (`"hazard"`}) estimates appropriate hazards and transforms them into survival function or CIF estimates.
-
-For relative survival estimation we need also to enumerate the expected hazard levels for the subjects in the data. This is done by merging expected hazards to individuals' subintervals (which divide their survival time lines to a number of small intervals). For Pohar-Perme-weighted analyses one must additionally compute various weighted figures at the level of split subject data.
-
-If one has subject-level data, the simplest way of computing survival function estimates with `popEpi` is by defining a `Lexis` object and using `survtab`, which will do the rest. For pre-aggregated data one may use the `survtab_ag` function instead. One can also use the `lexpand` function to split, merge population hazards, and aggregate in a single function call and then use `survtab_ag` if that is convenient.
-
-# Using `survtab`
-
-It is straightforward to estimate various survival time functions with `survtab` once a `Lexis` object has been defined (see `?Lexis` in package `Epi` for details):
-
-```{r pkgs, eval = TRUE, echo = TRUE, message = FALSE}
-library(popEpi)
-library(Epi)
-```
-
-```{r}
-data(sire)
-
-## NOTE: recommended to use factor status variable
-x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
- exit = list(CAL = get.yrs(ex_date)),
- data = sire[sire$dg_date < sire$ex_date, ],
- exit.status = factor(status, levels = 0:2,
- labels = c("alive", "canD", "othD")),
- merge = TRUE)
-
-## pretend some are male
-set.seed(1L)
-x$sex <- rbinom(nrow(x), 1, 0.5)
-
-## observed survival - explicit method
-st <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex, data = x,
- surv.type = "surv.obs",
- breaks = list(FUT = seq(0, 5, 1/12)))
-
-## observed survival - easy method (assumes lex.Xst in x is the status variable)
-st <- survtab(FUT ~ sex, data = x,
- surv.type = "surv.obs",
- breaks = list(FUT = seq(0, 5, 1/12)))
-
-## printing gives the used settings and
-## estimates at the middle and end of the estimated
-## curves; more information available using summary()
-st
-
-```
-
-Plotting by strata (men = blue, women = red):
-
-```{r}
-plot(st, col = c("blue", "red"))
-```
-
-Note that the correct usage of the `formula` argument in `survtab` specifies the time scale in the `Lexis` object over which survival is computed (here `"FUT"` for follow-up time). This is used to identify the appropriate time scale in the data. When only supplying the survival time scale as the right-hand-side of the formula, the column `lex.Xst` in the supplied `Lexis` object is assumed to be the (correctly formatted!) status variable. When using `Surv()` to be explicit, we effectively (and exceptionally) pass the starting times to the `time` argument in `Surv()`, and `time2` is ignored entirely. The function will fail if `time` does not match exactly with a time scale in data.
-
-When using `Surv()`, one must also pass the status variable, which can be something other than the `lex.Xst` variable created by `Lexis()`, though usually ``lex.Xst` is what you want to use (especially if the data has already been split using e.g. `splitLexis` or `splitMulti`, which is allowed). It is recommended to use a factor status variable to pass to `Surv()`, though a numeric variable will work in simple cases (0 = alive, 1 = dead; also `FALSE` = alive, `TRUE` = dead). Using `Surv()` also allows easy passing of transformations of `lex.Xst`, e.g. `Surv(FUT, lex.Xst %in% 1:2)`.
-
-The argument `breaks` must be a named list of breaks by which to split the `Lexis` data (see `?splitMulti`). It is mandatory to assign breaks at least to the survival time scale (`"FUT"` in our example) so that `survtab` knows what intervals to use to estimate the requested survival time function(s). The breaks also determine the window used: It is therefore easy to compute so called period estimates by defining the roof and floor along the calendar time scale, e.g.
-
-`breaks = list(FUT = seq(0, 5, 1/12), CAL = c(2000, 2005))`
-
-would cause `survtab` to compute period estimates for 2000-2004 (breaks given here as fractional years, so 2005 is effectively 2004.99999...).
-
-## Relative/net survival
-
-Relative/net survival estimation requires knowledge of the expected hazard levels for the individuals in the data. In `survtab` this is accomplished by passing a long-format `data.frame` of population hazards via the `pophaz` argument. E.g. the `popmort` dataset included in `popEpi` (Finnish overall mortality rates for men and women).
-
-```{r popmort}
-data(popmort)
-pm <- data.frame(popmort)
-names(pm) <- c("sex", "CAL", "AGE", "haz")
-head(pm)
-```
-
-The `data.frame` should contain a variable named `"haz"` indicating the population hazard at the level of one subject-year. Any other variables are considered to be variables, by which to merge population hazards to the (split) subject-level data within `survtab`. These merging variables may correspond to the time scales in the used `Lexis` object. This allows for e.g. merging in different population hazards for the same subject as they get older.
-
-The following causes `survtab` to estimate EdererII relative survival:
-
-```{r survtab_e2}
-st.e2 <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex, data = x,
- surv.type = "surv.rel", relsurv.method = "e2",
- breaks = list(FUT = seq(0, 5, 1/12)),
- pophaz = pm)
-```
-
-```{r}
-plot(st.e2, y = "r.e2", col = c("blue", "red"))
-```
-
-Note that the curves diverge due to merging in the "wrong" population hazards for some individuals which we randomized earlier to be male though all the individuals in data are actually female. Pohar-Perme-weighted estimates can be computed by
-
-```{r survtab_pp}
-st.pp <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex, data = x,
- surv.type = "surv.rel", relsurv.method = "pp",
- breaks = list(FUT = seq(0, 5, 1/12)),
- pophaz = pm)
-```
-
-Compare with EdererII estimates:
-
-```{r}
-plot(st.e2, y = "r.e2", col = c("blue", "red"), lty = 1)
-lines(st.pp, y = "r.pp", col = c("blue", "red"), lty = 2)
-```
-
-## Adjusting estimates
-
-`survtab` also allows for adjusting the survival curves by categorical variables --- typically by age groups. The following demonstrates how:
-
-```{r survtab_adjust}
-## an age group variable
-x$agegr <- cut(x$dg_age, c(0, 60, 70, 80, Inf), right = FALSE)
-
-## using "internal weights" - see ?ICSS for international weights standards
-w <- table(x$agegr)
-w
-
-w <- list(agegr = as.numeric(w))
-```
-
-```{r survtab_adjust_2}
-st.as <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex + adjust(agegr),
- data = x, weights = w,
- surv.type = "surv.rel", relsurv.method = "e2",
- breaks = list(FUT = seq(0, 5, 1/12)),
- pophaz = pm)
-```
-
-```{r}
-plot(st.as, y = "r.e2.as", col = c("blue", "red"))
-```
-
-We now have age-adjusted EdererII relative/net survival estimates. The `weights` argument allows for either a list of weights (with one or multiple variables to adjust by) or a `data.frame` of weights. Examples:
-
-```{r weights_examples, eval = TRUE}
-list(sex = c(0.4, 0.6), agegr = c(0.2, 0.2, 0.4, 0.2))
-
-wdf <- merge(0:1, 1:4)
-names(wdf) <- c("sex", "agegr")
-wdf$weights <- c(0.1, 0.1, 0.1, 0.1, 0.2, 0.2, 0.1, 0.1)
-wdf
-```
-
-The weights do not have to sum to one when supplied as they are internally forced to do so within each stratum. In the `data.frame` of weights, the column of actual weights to use must be named "weights". When there are more than one variable to adjust by, and a list of weights has been supplied, the variable-specific weights are first multiplied together (cumulatively) and then scaled to sum to one.
-
-This adjusting can be done to any survival time function that `survtab` (and `survtab_ag`) estimates. One can also supply adjusting variables via the `adjust` argument if convenient:
-
-```{r survtab_adjust_3}
-st.as <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex,
- adjust = "agegr",
- data = x, weights = w,
- surv.type = "surv.rel", relsurv.method = "e2",
- breaks = list(FUT = seq(0, 5, 1/12)),
- pophaz = pm)
-```
-
-Where `adjust` could also be `adjust = agegr`, `adjust = list(agegr)` or
-
-`adjust = list(agegr = cut(dg_age, c(0, 60, 70, 80, Inf), right = FALSE))`
-
-for exactly the same results. When adjusting by multiple variables, one must supply a vector of variable names in data or a list of multiple elements (as in the base function `aggregate`).
-
-## Other survival time functions
-
-One can also estimate cause-specific survival functions, cumulative incidence functions (CIFs, a.k.a. crude risk a.k.a. absolute risk functions), and CIFs based on the excess numbers of events. Cause-specific survival is close to net survival as they are philosophically highly similar concepts:
-
-```{r survtab_cause}
-st.ca <- survtab(Surv(time = FUT, event = lex.Xst) ~ 1,
- data = x,
- surv.type = "surv.cause",
- breaks = list(FUT = seq(0, 5, 1/12)))
-
-st.pp <- survtab(Surv(time = FUT, event = lex.Xst) ~ 1, data = x,
- surv.type = "surv.rel", relsurv.method = "pp",
- breaks = list(FUT = seq(0, 5, 1/12)),
- pophaz = pm)
-
-plot(st.ca, y = "surv.obs.canD", col = "blue")
-lines(st.pp, y = "r.pp", col = "red")
-```
-
-Absolute risk:
-
-```{r survtab_cif}
-st.cif <- survtab(Surv(time = FUT, event = lex.Xst) ~ 1,
- data = x,
- surv.type = "cif.obs",
- breaks = list(FUT = seq(0, 5, 1/12)))
-
-plot(st.cif, y = "CIF_canD", conf.int = FALSE)
-lines(st.cif, y = "CIF_othD", conf.int = FALSE, col = "red")
-```
-
-The "relative CIF" attempts to be close to the true CIF without using knowledge about the types of events, e.g. causes of death:
-
-```{r survtab_relcif}
-st.cir <- survtab(Surv(time = FUT, event = lex.Xst) ~ 1,
- data = x,
- surv.type = "cif.rel",
- breaks = list(FUT = seq(0, 5, 1/12)),
- pophaz = pm)
-plot(st.cif, y = "CIF_canD", conf.int = FALSE, col = "blue")
-lines(st.cir, y = "CIF.rel", conf.int = FALSE, col = "red")
-```
-
-
-# Using `survtab_ag`
-
-Arguments concerning the types and methods of estimating of survival time functions work the same in `survtab_ag` as in `survtab` (the latter uses the former). However, with aggregated data one must explicitly supply the various count and person-time variables. Also, usage of the `formula` argument is different.
-
-For demonstration purposes we form an aggregated data set using `lexpand`; see `?lexpand` for more information on that function.
-
-```{r}
-sire$sex <- rbinom(nrow(sire), size = 1, prob = 0.5)
-ag <- lexpand(sire, birth = "bi_date", entry = "dg_date", exit = "ex_date",
- status = "status", breaks = list(fot = seq(0, 5, 1/12)),
- aggre = list(sex, fot))
-head(ag)
-```
-
-Now simply do:
-
-```{r survtab_ag_example1}
-st <- survtab_ag(fot ~ sex, data = ag, surv.type = "surv.obs",
- surv.method = "hazard",
- d = c("from0to1", "from0to2"), pyrs = "pyrs")
-```
-
-Or:
-
-```{r survtab_ag_example2}
-st <- survtab_ag(fot ~ sex, data = ag, surv.type = "surv.obs",
- surv.method = "lifetable",
- d = c("from0to1", "from0to2"), n = "at.risk",
- n.cens = "from0to0")
-```
-
-Note that e.g. argument `d` could also have been supplied as
-
-`list(from0to1, from0to2)`
-
-or
-
-`list(canD = from0to1, othD = from0to2)`
-
-for identical results. The last is convenient for e.g. `surv.cause` computations:
-
-```{r survtab_ag_cause}
-st.ca <- survtab_ag(fot ~ sex, data = ag, surv.type = "surv.cause",
- surv.method = "hazard",
- d = list(canD = from0to1, othD = from0to2), pyrs = "pyrs")
-plot(st.ca, y = "surv.obs.canD", col = c("blue", "red"))
-```
-
-One has to supply the most variables when computing Pohar-Perme estimates (though it is probably rare to have third-source aggregated data with Pohar-Perme weighted figures, it is implemented here to be used as a workhorse for `survtab`). For this we must aggregate again to get the Pohar-Perme weighted counts and subject-times:
-
-```{r}
-ag <- lexpand(sire, birth = "bi_date", entry = "dg_date", exit = "ex_date",
- status = "status", breaks = list(fot = seq(0, 5, 1/12)),
- pophaz = popmort, pp = TRUE,
- aggre = list(sex, fot))
-
-st.pp <- survtab_ag(fot ~ sex, data = ag, surv.type = "surv.rel",
- surv.method = "hazard", relsurv.method = "pp",
- d = list(from0to1 + from0to2), pyrs = "pyrs",
- d.pp = list(from0to1.pp + from0to2.pp),
- d.pp.2 = list(from0to1.pp.2 + from0to2.pp.2),
- pyrs.pp = "ptime.pp", d.exp.pp = "d.exp.pp")
-plot(st.pp, y = "r.pp", col = c("blue", "red"))
-```
-
-Here it is best to supply only one column to each argument since Pohar-Perme estimates will not be computed for several types of events at the same time.
-
-
-
+---
+title: "Examples of using survtab"
+author: "Joonas Miettinen"
+date: "`r Sys.Date()`"
+output:
+ html_document:
+ toc: true
+ toc_depth: 2
+ fig_width: 6
+ fig_height: 6
+vignette: >
+ %\VignetteEngine{knitr::rmarkdown}
+ %\VignetteIndexEntry{survtab examples}
+ %\usepackage[utf8]{inputenc}
+---
+
+# Overview
+
+This vignette aims to clarify the usage of the `survtab_ag` and `survtab` functions included in this package. `survtab_ag` estimates various survival functions and cumulative incidence functions (CIFs) non-parametrically using aggregated data, and `survtab` is a wrapper for `survtab_ag`, to which `Lexis` data is supplied.
+
+Two methods (`surv.method`) are currently supported: The `"lifetable"` (actuarial) method only makes use of counts when estimating any of the supported survival time functions. The default method (`"hazard"`}) estimates appropriate hazards and transforms them into survival function or CIF estimates.
+
+For relative survival estimation we need also to enumerate the expected hazard levels for the subjects in the data. This is done by merging expected hazards to individuals' subintervals (which divide their survival time lines to a number of small intervals). For Pohar-Perme-weighted analyses one must additionally compute various weighted figures at the level of split subject data.
+
+If one has subject-level data, the simplest way of computing survival function estimates with `popEpi` is by defining a `Lexis` object and using `survtab`, which will do the rest. For pre-aggregated data one may use the `survtab_ag` function instead. One can also use the `lexpand` function to split, merge population hazards, and aggregate in a single function call and then use `survtab_ag` if that is convenient.
+
+# Using `survtab`
+
+It is straightforward to estimate various survival time functions with `survtab` once a `Lexis` object has been defined (see `?Lexis` in package `Epi` for details):
+
+```{r pkgs, eval = TRUE, echo = TRUE, message = FALSE}
+library(popEpi)
+library(Epi)
+```
+
+```{r}
+data(sire)
+
+## NOTE: recommended to use factor status variable
+x <- Lexis(entry = list(FUT = 0, AGE = dg_age, CAL = get.yrs(dg_date)),
+ exit = list(CAL = get.yrs(ex_date)),
+ data = sire[sire$dg_date < sire$ex_date, ],
+ exit.status = factor(status, levels = 0:2,
+ labels = c("alive", "canD", "othD")),
+ merge = TRUE)
+
+## pretend some are male
+set.seed(1L)
+x$sex <- rbinom(nrow(x), 1, 0.5)
+
+## observed survival - explicit method
+st <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex, data = x,
+ surv.type = "surv.obs",
+ breaks = list(FUT = seq(0, 5, 1/12)))
+
+## observed survival - easy method (assumes lex.Xst in x is the status variable)
+st <- survtab(FUT ~ sex, data = x,
+ surv.type = "surv.obs",
+ breaks = list(FUT = seq(0, 5, 1/12)))
+
+## printing gives the used settings and
+## estimates at the middle and end of the estimated
+## curves; more information available using summary()
+st
+
+```
+
+Plotting by strata (men = blue, women = red):
+
+```{r}
+plot(st, col = c("blue", "red"))
+```
+
+Note that the correct usage of the `formula` argument in `survtab` specifies the time scale in the `Lexis` object over which survival is computed (here `"FUT"` for follow-up time). This is used to identify the appropriate time scale in the data. When only supplying the survival time scale as the right-hand-side of the formula, the column `lex.Xst` in the supplied `Lexis` object is assumed to be the (correctly formatted!) status variable. When using `Surv()` to be explicit, we effectively (and exceptionally) pass the starting times to the `time` argument in `Surv()`, and `time2` is ignored entirely. The function will fail if `time` does not match exactly with a time scale in data.
+
+When using `Surv()`, one must also pass the status variable, which can be something other than the `lex.Xst` variable created by `Lexis()`, though usually ``lex.Xst` is what you want to use (especially if the data has already been split using e.g. `splitLexis` or `splitMulti`, which is allowed). It is recommended to use a factor status variable to pass to `Surv()`, though a numeric variable will work in simple cases (0 = alive, 1 = dead; also `FALSE` = alive, `TRUE` = dead). Using `Surv()` also allows easy passing of transformations of `lex.Xst`, e.g. `Surv(FUT, lex.Xst %in% 1:2)`.
+
+The argument `breaks` must be a named list of breaks by which to split the `Lexis` data (see `?splitMulti`). It is mandatory to assign breaks at least to the survival time scale (`"FUT"` in our example) so that `survtab` knows what intervals to use to estimate the requested survival time function(s). The breaks also determine the window used: It is therefore easy to compute so called period estimates by defining the roof and floor along the calendar time scale, e.g.
+
+`breaks = list(FUT = seq(0, 5, 1/12), CAL = c(2000, 2005))`
+
+would cause `survtab` to compute period estimates for 2000-2004 (breaks given here as fractional years, so 2005 is effectively 2004.99999...).
+
+## Relative/net survival
+
+Relative/net survival estimation requires knowledge of the expected hazard levels for the individuals in the data. In `survtab` this is accomplished by passing a long-format `data.frame` of population hazards via the `pophaz` argument. E.g. the `popmort` dataset included in `popEpi` (Finnish overall mortality rates for men and women).
+
+```{r popmort}
+data(popmort)
+pm <- data.frame(popmort)
+names(pm) <- c("sex", "CAL", "AGE", "haz")
+head(pm)
+```
+
+The `data.frame` should contain a variable named `"haz"` indicating the population hazard at the level of one subject-year. Any other variables are considered to be variables, by which to merge population hazards to the (split) subject-level data within `survtab`. These merging variables may correspond to the time scales in the used `Lexis` object. This allows for e.g. merging in different population hazards for the same subject as they get older.
+
+The following causes `survtab` to estimate EdererII relative survival:
+
+```{r survtab_e2}
+st.e2 <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex, data = x,
+ surv.type = "surv.rel", relsurv.method = "e2",
+ breaks = list(FUT = seq(0, 5, 1/12)),
+ pophaz = pm)
+```
+
+```{r}
+plot(st.e2, y = "r.e2", col = c("blue", "red"))
+```
+
+Note that the curves diverge due to merging in the "wrong" population hazards for some individuals which we randomized earlier to be male though all the individuals in data are actually female. Pohar-Perme-weighted estimates can be computed by
+
+```{r survtab_pp}
+st.pp <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex, data = x,
+ surv.type = "surv.rel", relsurv.method = "pp",
+ breaks = list(FUT = seq(0, 5, 1/12)),
+ pophaz = pm)
+```
+
+Compare with EdererII estimates:
+
+```{r}
+plot(st.e2, y = "r.e2", col = c("blue", "red"), lty = 1)
+lines(st.pp, y = "r.pp", col = c("blue", "red"), lty = 2)
+```
+
+## Adjusting estimates
+
+`survtab` also allows for adjusting the survival curves by categorical variables --- typically by age groups. The following demonstrates how:
+
+```{r survtab_adjust}
+## an age group variable
+x$agegr <- cut(x$dg_age, c(0, 60, 70, 80, Inf), right = FALSE)
+
+## using "internal weights" - see ?ICSS for international weights standards
+w <- table(x$agegr)
+w
+
+w <- list(agegr = as.numeric(w))
+```
+
+```{r survtab_adjust_2}
+st.as <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex + adjust(agegr),
+ data = x, weights = w,
+ surv.type = "surv.rel", relsurv.method = "e2",
+ breaks = list(FUT = seq(0, 5, 1/12)),
+ pophaz = pm)
+```
+
+```{r}
+plot(st.as, y = "r.e2.as", col = c("blue", "red"))
+```
+
+We now have age-adjusted EdererII relative/net survival estimates. The `weights` argument allows for either a list of weights (with one or multiple variables to adjust by) or a `data.frame` of weights. Examples:
+
+```{r weights_examples, eval = TRUE}
+list(sex = c(0.4, 0.6), agegr = c(0.2, 0.2, 0.4, 0.2))
+
+wdf <- merge(0:1, 1:4)
+names(wdf) <- c("sex", "agegr")
+wdf$weights <- c(0.1, 0.1, 0.1, 0.1, 0.2, 0.2, 0.1, 0.1)
+wdf
+```
+
+The weights do not have to sum to one when supplied as they are internally forced to do so within each stratum. In the `data.frame` of weights, the column of actual weights to use must be named "weights". When there are more than one variable to adjust by, and a list of weights has been supplied, the variable-specific weights are first multiplied together (cumulatively) and then scaled to sum to one.
+
+This adjusting can be done to any survival time function that `survtab` (and `survtab_ag`) estimates. One can also supply adjusting variables via the `adjust` argument if convenient:
+
+```{r survtab_adjust_3}
+st.as <- survtab(Surv(time = FUT, event = lex.Xst) ~ sex,
+ adjust = "agegr",
+ data = x, weights = w,
+ surv.type = "surv.rel", relsurv.method = "e2",
+ breaks = list(FUT = seq(0, 5, 1/12)),
+ pophaz = pm)
+```
+
+Where `adjust` could also be `adjust = agegr`, `adjust = list(agegr)` or
+
+`adjust = list(agegr = cut(dg_age, c(0, 60, 70, 80, Inf), right = FALSE))`
+
+for exactly the same results. When adjusting by multiple variables, one must supply a vector of variable names in data or a list of multiple elements (as in the base function `aggregate`).
+
+## Other survival time functions
+
+One can also estimate cause-specific survival functions, cumulative incidence functions (CIFs, a.k.a. crude risk a.k.a. absolute risk functions), and CIFs based on the excess numbers of events. Cause-specific survival is close to net survival as they are philosophically highly similar concepts:
+
+```{r survtab_cause}
+st.ca <- survtab(Surv(time = FUT, event = lex.Xst) ~ 1,
+ data = x,
+ surv.type = "surv.cause",
+ breaks = list(FUT = seq(0, 5, 1/12)))
+
+st.pp <- survtab(Surv(time = FUT, event = lex.Xst) ~ 1, data = x,
+ surv.type = "surv.rel", relsurv.method = "pp",
+ breaks = list(FUT = seq(0, 5, 1/12)),
+ pophaz = pm)
+
+plot(st.ca, y = "surv.obs.canD", col = "blue")
+lines(st.pp, y = "r.pp", col = "red")
+```
+
+Absolute risk:
+
+```{r survtab_cif}
+st.cif <- survtab(Surv(time = FUT, event = lex.Xst) ~ 1,
+ data = x,
+ surv.type = "cif.obs",
+ breaks = list(FUT = seq(0, 5, 1/12)))
+
+plot(st.cif, y = "CIF_canD", conf.int = FALSE)
+lines(st.cif, y = "CIF_othD", conf.int = FALSE, col = "red")
+```
+
+The "relative CIF" attempts to be close to the true CIF without using knowledge about the types of events, e.g. causes of death:
+
+```{r survtab_relcif}
+st.cir <- survtab(Surv(time = FUT, event = lex.Xst) ~ 1,
+ data = x,
+ surv.type = "cif.rel",
+ breaks = list(FUT = seq(0, 5, 1/12)),
+ pophaz = pm)
+plot(st.cif, y = "CIF_canD", conf.int = FALSE, col = "blue")
+lines(st.cir, y = "CIF.rel", conf.int = FALSE, col = "red")
+```
+
+
+# Using `survtab_ag`
+
+Arguments concerning the types and methods of estimating of survival time functions work the same in `survtab_ag` as in `survtab` (the latter uses the former). However, with aggregated data one must explicitly supply the various count and person-time variables. Also, usage of the `formula` argument is different.
+
+For demonstration purposes we form an aggregated data set using `lexpand`; see `?lexpand` for more information on that function.
+
+```{r}
+sire$sex <- rbinom(nrow(sire), size = 1, prob = 0.5)
+ag <- lexpand(sire, birth = "bi_date", entry = "dg_date", exit = "ex_date",
+ status = "status", breaks = list(fot = seq(0, 5, 1/12)),
+ aggre = list(sex, fot))
+head(ag)
+```
+
+Now simply do:
+
+```{r survtab_ag_example1}
+st <- survtab_ag(fot ~ sex, data = ag, surv.type = "surv.obs",
+ surv.method = "hazard",
+ d = c("from0to1", "from0to2"), pyrs = "pyrs")
+```
+
+Or:
+
+```{r survtab_ag_example2}
+st <- survtab_ag(fot ~ sex, data = ag, surv.type = "surv.obs",
+ surv.method = "lifetable",
+ d = c("from0to1", "from0to2"), n = "at.risk",
+ n.cens = "from0to0")
+```
+
+Note that e.g. argument `d` could also have been supplied as
+
+`list(from0to1, from0to2)`
+
+or
+
+`list(canD = from0to1, othD = from0to2)`
+
+for identical results. The last is convenient for e.g. `surv.cause` computations:
+
+```{r survtab_ag_cause}
+st.ca <- survtab_ag(fot ~ sex, data = ag, surv.type = "surv.cause",
+ surv.method = "hazard",
+ d = list(canD = from0to1, othD = from0to2), pyrs = "pyrs")
+plot(st.ca, y = "surv.obs.canD", col = c("blue", "red"))
+```
+
+One has to supply the most variables when computing Pohar-Perme estimates (though it is probably rare to have third-source aggregated data with Pohar-Perme weighted figures, it is implemented here to be used as a workhorse for `survtab`). For this we must aggregate again to get the Pohar-Perme weighted counts and subject-times:
+
+```{r}
+ag <- lexpand(sire, birth = "bi_date", entry = "dg_date", exit = "ex_date",
+ status = "status", breaks = list(fot = seq(0, 5, 1/12)),
+ pophaz = popmort, pp = TRUE,
+ aggre = list(sex, fot))
+
+st.pp <- survtab_ag(fot ~ sex, data = ag, surv.type = "surv.rel",
+ surv.method = "hazard", relsurv.method = "pp",
+ d = list(from0to1 + from0to2), pyrs = "pyrs",
+ d.pp = list(from0to1.pp + from0to2.pp),
+ d.pp.2 = list(from0to1.pp.2 + from0to2.pp.2),
+ pyrs.pp = "ptime.pp", d.exp.pp = "d.exp.pp")
+plot(st.pp, y = "r.pp", col = c("blue", "red"))
+```
+
+Here it is best to supply only one column to each argument since Pohar-Perme estimates will not be computed for several types of events at the same time.
+
+
+
Debdiff
[The following lists of changes regard files as different if they have different names, permissions or owners.]
Files in second set of .debs but not in first
-rw-r--r-- root/root /usr/lib/R/site-library/popEpi/doc/sir.html -rw-r--r-- root/root /usr/lib/R/site-library/popEpi/doc/survtab_examples.html
Files in first set of .debs but not in second
-rw-r--r-- root/root /usr/share/doc/r-cran-popepi/tests/testthat/Rplots.pdf
Control files: lines which differ (wdiff format)
Depends: r-base-core (>= 4.2.1-2), 4.2.2.20221110-1), r-api-4.0, r-cran-data.table (>= 1.10.4), r-cran-epi (>= 2.0), r-cran-survival